Digital PDFs

AH-T098B-MC

April 1985

328 pages

Original

16MB

view download

OCR Version

14MB

view download

Document:	CVTSCB0 TSV05 TSV05 CTRL LT3 APR 1985 bw
Order Number:	AH-T098B-MC
Revision:	000
Pages:	328
Original Filename:	CVTSCB0__TSV05__TSV05_CTRL_LT3__AH-T098B-MC__APR_1985_bw.pdf

OCR Text

CUTSCEO

FEoHE ot OF 07

EREDERD

'[;.
]

——

—r————

. ———

e st

——

3B
USER DOCUMENTATION

MACRC M11135

14 UUN-84 14:]17

S€Q 0061

.REM

IOENTIFICATION
PROOUCT

THE

ID:

AC-T0978
-MC

PRODUCTY TITLE:

CVTSCBO TSVOS CTRL LT3

0ECC/DEPO:

1.0

DEPARTMENT ;

COMPUTER SPECIAL SYSTEMS/PRG

DATE:

JUNE 4,

1984

INFORMATION IN THIS DOCUMENT

SUBJECT

CHANGE WITHOUT

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

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

COPYRIGHTM
THE FOLLOWING ARE

OIGITAL
0eC

THE
'ISE
SUPPLIED

OR
BY

RELIABILITY
OF
DOIGITAL
OR ITS

1984 BY DIGITAL EQUIPMENT CORPORATION

TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION:

POP
DECUS

UN1BUS
DECTAPE

MASSBUS

MIIIt

UUN A4

NBWR—O

CONTENTS

IN"ORMATION

PROGRAM ABSTRACT
SYSTEM REQUIREMENTS
RELATED DOCUMENTS AND STANDARDS
DIAGNOSTIC HIERARCMY PREREQUISITES
ASSUMPTIONS

OPERATING INSTRUCTIONS
COMMANDS
SWITCHES

FLAGS
HARDWARE QUESTIONS

SOF TWARE QUESTIONS

o
o

PERFORMANCE AND PROGRESS REPORTS

DEVICE INFORMATION TABLES
TEST SUMMARIES
MAINTENANCE HISTORY

©o

ERROR INFORMATION

EXTENDED P-TABLE OIALOGUE
QUICK STARTUP PROCEDURE

NOVNB WO

GENERAL

NRNNNNNNON

e
s s b e

TABLE

14:1°

[ 2

(g
MACR,

USER DOCLMENTATION

SEQ 0002

USER DOCUMENTATION

MACRO M1112

5€Q 0001

14 UUN 84 14"

1.0

GENERAL INFORMATION

1.1

PROGRAM ABSTRACT

THIS IS A LSI-1i RESIDENT DIAGNOSTIC WHICH CHECKS

(@BUS).

TS/0%

FUNCTIONS

MAGTAPE

THE PROGRAM PROVIDES ERROR
THAT

THE

FUNCTIONALITY

SUBSYSTEM WHILE CONNECTED TO A LSI-11/23 SYSTEM

AID IN TME REPAIR OF

MESSAGES

THE DEVICE.

EIGHT TEST WHICH ARE EXECUTED IN SEQUENCE
.

WHICH

IDENTIFY

FAILING

THIS DIAGNOSTIC CONSIST

THIS ODIAGNOSTIC HAS BEEN WRITTEN FOR USE

WITH THE DIAGNOSTIC

RUNTIME SERVICES SOF TWARE (SUPERVISOR).

THESE SERVICES PROVIDE

THE INTERFACE TO THME OPERATOR AND TO THE SOF TWARE ENVIRONMENT.
THIS PROGRAM CAN BE USED WITH xxDP., ACT, APT, SLIDE AND PAPER

TAPE.
FOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES, REFER
TO THE XXDP+ USER'S MANUAL.
THERE IS A BRIEF DESCRIPTION OF
THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT.

1.2

SYSTEM REQUIREMENTS

LSI-11 PROCESSOR AND MEMORY
CAUTION:DIAGNOSTIC REQUIRES 32K WORDS OF MEMORY
(28K USEABLE I.E. 4K FOR I/0 PAGE)
TSVOS MAGTAPE SUBSYSTEM (DRIVE AND CONTROLLER)

CONSOLE TERMINAL
POP-11 DIAGNOSTIC SUPERVISOR (HSAAA.SYS VERSION 34 OR LATER)
POP-11 OIAGNOSTIC LOADER/MONITOR (XXDP.)

1.3

RELATED DOCUMENTS AND STANDARDS

OIGITAL EQUIPMENT CORPORATION DOCUMENTS:
1.

CHQUS XXDP+
USERS
DATE: 14 ALY 1980.

TSVOS TRANSPORT SUBSYSTEM USER'S GUIDE;
DATE: AUGUST 1982

TSVOS TRANSFORT SUBSYSTEM TECHNICAL MANUAL; DOCUMENT NUMBER EX-TSVOS-TM 001
DATE: AUGUST 1982

TSVOS

TRANSPORT

DATE:

AUGUST

MANUAL;

SUBSYSTEM

1982

DOCUMENT

NUMBER AC-F348E MC
DOCUMENT NUMBER EK-TSV0S5-UG-001

INSTALLATION MANUAL;

DOCUMENT

NUMBER

TSVOS

IN-001

USER DOCUMENTATION

MACRDO M1113

1.4

14 JUUN 84

14:1~

S€Q 0004

DIAGNOSTIC HIERARCY PREREQUISITES

FUNCTIONAL LSI 11 CENTRAL PROCESSOR AND MEMORY
FUNCTIONAL CONSOLE TERMINAL
FUNCTIONAL STANDALONE DIAGNOSTIC SUPERVISOR

FUNCTIONAL DIAGNOSTIC LOADER/MONITOR (XXDP.)
1.5

ASSUMPTIONS

ALL HARDWARE EXCEPT THE HARDWARE UNDER TEST IS ASSUMED TO WORK

PROPERLY OR FALSE ERRORS CAN BE REPORTED.
THE TAPE BEING USED ON THE TSOS TRANSPORT
OF TAPE.

IS A KNOWN GOOD REEL

CVTSAA AND CVTSBA HAVE SUCESSFULLY RUN.

2.0

OPERATING INSTRUCTIONS

THTS SECTION CONTAINS A BRIEF DESCRIPTION OF

FOR DETAILED INFORMATION,

2.1

REFER

TO THE

XXDP.

THE RUNTIME SERVICES.

USER’'S MAMUAL

(CHQUS).

THE DIAGNOSTIC RUNTIME

SERVICES

COMMANDS

THERE ARE ELEVEN LEGAL COMMANDS FOR

(SUPERVISOR).
THIS SECTION LISTS THE COMMANDS AND GIVCS A VERY
BRIEF DESCRIPTION OF THEM.
THE XXDP. USER'S MANUAL HAS MORE DETAILS.

COMMAND
START

RESTART

EFFECT
START THE DIAGNOSTIC FROM AN INITIAL STATE

START THE DIAGNOSTIC WITHOUT INITIALIZING

CONT INUE

CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER *(C)

EXIT

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

DROP

DEACTIVATE A UNIT

PROCEED

ADD

OISPLAY
FLAGS

ZFLAGS

CONTINUE FROM AN ERROR HALT

ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE
CONSIDERED TO BE ACTIVE AT START TIME

PRINT STATISTICAL INFORMATION (IF IMPLEMENTED
By THE OIAGNOSTIC - 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

14:1°

SEQ 000%

OPERATOR COMMANDS

THE TSVOS OIAGNOSTIC IS A LSI-11
CIAGNOSTIC
SUPERVISOR
COMPATIBLE
PROGRAM,
ALL LOADING AND RUNTIME INSTRUCTIONS CAN BE REFERENCED IN THE

CHQUS XXDP+« USERS MANUAL ,DOCUMENT NUMBER AC F348E MC.

THE USER ENTRY IS IN QUOTES.

8007 THE DIAGNOSTIC MEDIA
.R VTS(C?2?

DIAG. RUN-TIME SERVICES REV D.
CVvTSC-A-0

APR 79

¢¢2eTSVOS LOGIC OIAGNOSTICssss

L%%T

IS TSVOS

2.2

SWITCHES

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

SWITCHES ARE TABUWLATED BELOW WITH A BRIEF DESCRIPTION OF EACH.
IN THE DESCRIPTIONS BELOW,

A DECIMAL NUMBER IS DESIGNATED 8y

SWITCH

EFFECT

/TESTS:LIST

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

*“DDDDO".

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

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

/PASS : 000D
/FLAGS:FLGS

/EOP : DDDDD
JUNITS:LIST

EYAMPLE OF

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

FLAGS ARE DESCRIBED

IN SECTION 2.3.
REPORT END OF PASS MESSAGE AFTER EVERY
DDODD 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)

SWITCH USAGE:

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

THIS COMMAND WILL BE:

TESTS 1 THROUGH 5 WILL BE

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

SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS.

FOR EXAMPLE,

TYPE

"/TES:1-S"

INSTEAD OF

“/TESTS:1-5".

YOU MAY,

14-JUN-84

START

THAT SPECIFIES WHICH SWITCHES CAN BE USED Br EACH

TESTS

PASS

RESTART

CONTINUE

PROCEED

SEQ 000«

FLAGS

EOP

UNITS

BELOW IS A TABLE
COMMAND.

14:17

MACRO M1113

X >

USER DOCUMENTATION

(5]

OROP
ADD

X
X

ODISPLAY

FLAGS

ZFLAGS
ExXIT

2.3

FLAGS

FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS

LOOPING ON ZRROR.
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

HOE
LOE

1ER»
IBRe

EFFECT

HALT ON ERROR - CONTROL IS RETURNED TO

RUNTIME SERVICES COMMAND MOOE

LOOP ON ERROR

INHIBIT ALL ERROR PSPORTS
INHIBIT ALL ERROR REPORTS EXCEPT

FIRST LEVEL

(FIRST LEVEL CONTAINS

IXEe

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

PRI
PNT

DIRECT MESSAGES TO LINE PRINTER
PRINT TEST NUMBER AS TEST EXECUTES

UAM

UNATTENDED MODE (NO MANUAL INTERVENTION)

80E

ISR

IDR
ADR
Lov

CALLED BY PRINTX MACRO'S)

“BELL* ON ERROR

INHIBIT STATISTICAL REPORTS (DOES NOT
APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT

STATISTICAL REPORTING)

INHIBIT PROGRAM DROPPING OF UNITS
EXECUTE AUTODOROP CODE

LOOP ON TEST
sERROR MESSAGES ARE

DESCRIBED

SECTION

3.1

- i
USER DOCUMENTATION

MACRO M1113

14 JUN 84

14:17

SEQ 0007

SEE THE XXDP+ USER'S MANUAL FOR MORS DETAILS ON FLAGS.
0L MAr
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH,
FOR EXAMPLE,
TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHMIBIT ERROR REPORTS
AND TYPE A "BELL" ON ERROR, YOU MAY USE THE FOLLOWING STRING:

LOE
: IER:BOE
/FLAGS:

2.4

HARDMARE QUESTIONS

WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT
THE USER FOR HARDWARE INFORMATION BY TYPING "CHANGE W (L) ?°
YOU MUST ANSWER

"Y" AFTER A START COMMAND UNLESS THE HARDWARE

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

AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO

SUPERVISOR),

THE

ODIAGNOSTIC

THE PROGRAM WILL ISSUE THE “CHANGE MW?” QUESTION 70 ASK IF

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

ON A "N (NO) RESPONSE TO THE *CHANGE HW?” QUESTION,

RUN USING THE DEFAULT VALUES FOR ALL QUESTIONS.
TSBA/TSDB = 172520, VECTOR = 224

THE DIAGNOSTIC WILL

THE DEFAULT ADODRESS AND VECTOR ARE:

ON A “Y" (YES) RESPONSE TO THE QUESTION, THE
FOLLOWING
QUESTIONS
WILL
THEN BE ASKED TO ALLOW THE OPERATOR TO SELECT THE UNITS TO BE TESTED.
A
VALUE, IF PRESENT, LCCATED TO THE LEFT
OF
THE
QUESTION MARK
IS
THE

DEFAULT VALUE THAT WILL BE TAKEN IF ONLY A CARRIAGE RETURN IS TYPED AS A
RESPONSE.
A (D) IN A QUESTION INDICATES
THAT
A DECIMAL
NUMBER
IS
REQUIRED AS A RESPONSE.
AN “(0)* INDICATES AN OCTAL NUMBER IS BEING
SOLICITED.
AN “(L)” INDICATES THAT A LOGICAL RESPONSE IS
TO BE
MADE:
"Y* FOR YES,

"N" FOR NO.

@ UNITS (D)
UNIT

<ENTER THE NUMBER OF M745S5 CONTROLLERS
PRESENT TO BE TESTED-

DEVICE ADDRESS
VECTOR (0) 224 ?

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

<ENTER ADDRESS OF INTERRUPT

VECTOR>

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

UNITS

(CONTROLLERS) SPECIFIED IN THE “@ UNITS?" QUESTION.

LOGICAL UNIY

NUMBERS ARE ASSIGNED IN ORDEK, BEGINNING AT O.
UP TO FOUR UNITS CAN BE
SELECTED FOR TESTING AS FOLLOWS:
UP TO 4 TSVOS CONTROLLERS PER LSI-11 AND UP TO 2 DRIVES PER CONTROLLER

USER DOCUMENTATION

MACRO M1113
2.5

14 JUUN 84

14:1°

SEQ 0008

SOF TWARE QUESTIONS

AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTAR!

OR CONTINUE COMMAND,

PARAMETERS.

THE RUNTIME SERVICES WILL ASK FOR SOF TWARE

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 B8Y TYPING
“Y*,

THE SOFTWARE QUESTIONS AND THE DEFALT VALUES ARE DESCRIBED

IN THE NEXT PARAGRAPH(S).

THE FOLLOWING QUESTIONS ARE ASKED ON

THEY

ALLOW FLEXIBILITY

THE

WAY

THE

START,

RESTART,

PROGRAM BEMHAVES,

CONTINUE.

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

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

THIS CAUSES EACH TEST PASS TO
RUN AS QUICKLY AS POSSIBLE.

ONLY QUICK-RUNNING LOGIC
TESTS USE

ITERATIONS.

2.6

MATIPLE

EXTENDED P-TABLE DIALOGUE

WHEN YOU ANSWER THE HARDWARE QUESTIONS,

YOU ARE BUILOING 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 MAVE A MATIPLEXED DEVICE SUCH AS

A MASS STORAGE CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION

DEVICE WITH SEVERAL LINES,

THIS BECOMES TEDIOUS SINCE MOST OF

THE ANSWERS ARE REPETITIOUS.

TO ILLUSTRATE A MORE EFFICIENT METHOD, SUPPOSE YOU ARE TESTING
A
DEVICE, THE XY1l.
SUPPOSE THIS DEVICE CONSISTS OF
A CONTROL MODULE WITH 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 XY1l
@ UNITS (D)

WITH ETGHT

8<(CR»

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

CSR ADDRESS (0) ?
SUB-DEVICE @ (0) ?

160000<CR>
2<CR>

UNITS.

USER DOCUMENTATION

MAacwT M111%

14 JUN B4 14:1°

Q@-FACTOR (0) 0 2

SEQ 0009

<«CR»

UNIT 4

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

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

CSR ADDRESS (C) ?
SUB-DEVICE @ (0)
Q-FACTOR (0) 0 ?
UNIT

UNIT

160000<CR>

S<CR»
<CR>

CSR ADDRESS (0) ?
160000<CR»>
6<CR>
SUB-DEVICE & (0) ?
1<CR>
Q-FACTOR (0) 0 ?
CSR ADDRESS (0)
160000<CR>
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.
BE CAREFUL WHEN SPECIFYING
MULTIPLE UNITS!

AS YOU CAN SEE FROM THE ABOVE EXAMPLE,

THE HARDWARE PARAME1ERS

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

THE PROCEDURE SHOWN IS

USER DOCUMENTATION

MACRO M1113

14 UUN 84 14:)°

€9 001 "

THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT

SPECIFICATIONS HOWE vEW.

LET'S BUILD THE SAME TABLE USING THE MU TIPLE SPECIFICATION
FEATURE
.

@ UNITS (D)

UNIT

8<CR>

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

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

CSR ADORESS (0) ?
160000<CR>
SUB-DEVICE & (0) ?
6,7<«CR>
Q-FACTOR (0) 0 ?
1<«CR>

AS YOU CAN SEE IN THE ABOVE DIALOGUE,

THE RUNTIME SERVICES WILL

BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVE¢ IN ANY
ONE PASS THROUGH THE QUESTIONS.
IN THE FIRST PASS, TWO ENTRIES
ARE BUILT SINCE TWO SUB-DEVICES AND G-FACTORS WERE SPECIFIED.

THE

SERVICES ASSUME THAT THE CSR ADORESS IS 160000 FOR BOTH SINCE IT

WAS SPECIFIED ONLY ONCE.

BUILT.

1IN THE SECOND PASS,

FOUR ENTRIES WERE

THIS IS BECAUSE FOUR SUB-DEVICES WERE SPECIFIED.

THE

“-% CONSTRUCT TELLS THE RUNTIMC SERVICES TO INCREMENT THE DATA

FROM THE FIRST NUMBER TO THE SECOND.

IN THIS CASE,

SUB-DEVICES

2. 3, 4 AND S MERE SPECIFIED.
(IF THF SUB-DEVICE WERE SPECIFIED
BY ADORESSES, THE INCREMENT WOULD BE 3Y 2 SINCE ADORESSES MUST
BE ON AN EVEN BOUNDARY.)
THE CSR ADORESSES AND Q-FACTORS FOR
THE FOUR ENTRIES ARE ASSUMED TO BE

16000C AND O RESPECTIVELY

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

THE LAST TWO UNITS ARE

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

@ UNITS (D,

8<«CR>

UNIT 1
CSR ADDRESS (0) ?
SUB-DEVICE @ (0) ?
AS

160000<CR>
O 7<«CR»

YOU CAN SEE FROM THIS EXAMPLE,

A NALL FIELD) TELL

NULL REPLIES (COMMAS ENCLOSING

THE RUNTIME SERVICES TO REPEAT

THE LAST REPLY.

14 JUN 84 14:1°

MACRC M111%

SEQ 0011

(XXDP.

S.” QUICK START P PROCEDURE
TO START

THIS PROGRAM.

B00T xxDP.

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

3.
4.
LN

USER DOCUMENTATION

TYPE "R NAME", WHERE NAME IS THE NAME OF

FILE FOR THIS PROGRAM
TYPE

THE BIN OR BIC

“START"

ANSWER THE

“CHANGE MW

QUESTION WIThH

ANSWER ALL THE HARDWARE QUESTIONS

ANSWER THE

~CHANGE SW” QUESTION WITH “N°

WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY

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

THE

THESE DEFAWLTS

3.0 ERROR INFORMATION

3.1 TYPES OF ERROR MESSAGES

THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED B
A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED.
GENERAL ERROR MESSAGES

ARt ALMAYS PRINTED UNLESS THE

"IER“ FLAG IS SET (SECTION 2.3).

THE GENERAL ERROR MESSAGE IS OF THE FORM:

NAME

TYPE

NUMBER

ERROR MESSAGE

ON UNIT NUMBER

JHERE; NAML = DIAGNOSTIC NAME
TYPE = ERROR TYPE (SYS FATAL,
NUMBER = ERROR NUMBER

TST NUMBER PC:XX¥XXX

DEV FATAL, HARD OR SOFT)

UNIT NMPMBER = O - N (N IS LAST UNIT IN PTABLE)

TST NUMBER = TEST AND SUBTEST WERE ERROR OCCURRED
PC.XXXXXX = ADDRESS OF ERROR MESSAGE CALL

BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADOITIONAL
INFORMATION ABOUT THE ERROR.
THMESE ARE ALWAYS PRINTED UNLESS

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

EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION
SUCH AS REGISTER CONTENTS OR COOO/BAD DATA.
THESE ARE ALWAYS
PRINTED UNLESS THE “IfR-, "IBR" OR “IXR" FLAGS ARE SET (ScCTION 2.3°.

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

JSER DOCUMENTATINN

14 JUUN 84 (& °

MACRC TM1113

SEQ 0012

3.2 SPECIFIC ERROR MESSAGES

BELOW ARE SAMPLE ERROR MESSAGES. EACH ERROR TMMESSAGE

OF ERRORS DETECTED BY THWIS DIAGNOSTIC

ERROR MESSAGE EXAMPLE

REPRESENTS DIFFERENT TYPES

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

INCORRECT REGISTER OR STATUS WORDS.

THE THIRD PART IS THE FXPECTED AND RECEIVED

DATA,

TST: 016 FIFO EXERCISER TEST

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

FIFO STATUS (IN WORD

9) INCORRECT AFTER WRITE FIFC

TAPE BUS SIGNALS IN WORD #8:

PARERR<15>
IRESV2<14>
IRESV1<13>

IEOT
«12:
JIDENT<11>
«10>
ICER

DATMIS<?>

ILW<6>

- DESIGNATOR <BIT o>

IFMK
<9>
IMER
<«8>
ISPEED<7>

TAPE BUS SIGINALS IN WORD #9:

OUTROY<S>

WORD #2 EXPD:
WORD #3 EXPD:
WORD TM EXPD:
WORD #5 EXPD:

WORD 06 EXPD:

WORD @7 EXPD:
WORD €8 EXPD:

100020
000012
000000
000010
700000
000LDO
000000
000000
070217

WORD 09 EXPD: 000074

RECYV:
RECV:

RECYV:
RECV:
RECY:

RECV:

RECV:
RfCV:

RECV:

IRWD<2>
IFBY<1>
IFPT<O.

INRDY<4>

MESSAGE BUFFER ADDRESS = 047352
MESSAGE BUFFER CONTENTS:

WORD @0 EXPD:
WORD #1 EXPD:

JRDY<6>
IOML<S>
ILDP<4>

100020
000012
00000C
000010
000000
000000
000000
000000
070217

XOR:

000034

ERROR MESSAGE EXAMPLE

THIS ERROR SHOWS A FATAL FUNCTION ERROR FROM THE TAPE DRIVE, IN THIS
INSTANCE AN UNRECOVERABLE ERROR OCT'RED WHICH INDICATES THAT Tig

CONTROLLER MAY BE

DEFECTIVE.

CVTSC HRD ERR 00159 ON UNIT 00 TSf 001 Sub OC5 PL.
TSSR NOT CORRECT AFTER SPACE RECORDS COMMANO
TSSR

100214

TSSR BITS SEf: SC,SSR
TERMINATION CLASS CODE = UNRECOVERABLE ERROR
FACKET ADORESS = 026420
PACKET WORD ¢
PACKET WORD ¢
PACKET WORD ¢
PACKET WORD ¢

= 140010
= GOO010
= 000000
= 000024

0262Cc

USER DOCUMENTATION

MACRO M1113

14 JUN 84

S€Q 00183

ERROR MESSAGE EXAMPLE

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

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

000312 RECV:

000112 XOR:

000200

b,
USER DOCUMENTATION

MACRO Mi113

14 UUN-84

14:]1°

SEQ 0014

4.0 PERFORMANCE AND PROGRESS REPORTS
AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE
TOTAL NUMBER OF ERRORS REPORTED SINCE THE OIAGNOSTIC WAS STARTED.
THE "EOPTM~ SWITCH CAN BE USED TO CONTROL MOW OF TEN THE END

W PASS MESSAGE IS PRINTED.

SECTION 2.2 DESCRIBES SWITCHES.

SUCCESSFUL RUN EXYAMPLE

11)

(LSI

MO>STA/FLA:PNT
:HOE
UNITS
UNIT

(0)

DEVICE ADODRESS
VECTOR

(0)

CHANGE

SW (L)

THE

ABOVE

ESZ:}?&MS

224

<«CR>

START

THE

<«CR>

? N<CR>»

COMMAND WILL

2?2

172520

WHICH

TST:

001

002 OFF -LINE REJECT AND REWIND TEST
003
004
005
006
007
008

DIAGNOSTIC.

THE

COMMAND

“PRINT EACH TEST NBR AS EXECUTED" AND

1ST:

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

INITIALIZE

ARE

MAS

“MALT

TEST

BASIC WRITE DATA TEST
BASIC READ DATA TEST
SPACE RECORDS TEST
REREADS TEST
WRITE DATA RETRY TESY
WRITE TAPE MARK TEST

0 ERRORS

NOTE:

THE DIAGNOSTIC WILL RUN CONTINUOUSLY UNLESS A PASS NUMBER LIMIT
HAS BEEN SPECIFIED WITH THE “/PASS:"” SWITCH,

USER DOCUMENTATION

MACRO

MI11%

PROGRAM RUN

THE

UUN

14:;°

TIMES

AVERAGE RUN TIMES OF

USED

SEQ 001

THME PROGRAM ARE

GUIDE.

PROCESSOR WITH A LA34 CONSOLE
.

THE

TIMING

LISTED BELOW.THESE

WAS DONE

ON A LSI

FIGURES

ARE

THE PROGRAM RUNS IN TWO MODES;
NO ITERATIONS AND DEFALLT MODE.
IN
THE
NO
ITERAYIONS
MOOE, EACH TEST IS RUN ONCE, WITH NO ITERATIONS.
IN THE
DEFAULT MODE EACH TEST IS REPEATED BY THE NUMBER OF TIMES
INDICATED
BY
THE
ITERATION
COUNT.
NO ITERATIONS MOOE IS SELECTED BY ANSWERING THE
INHIBIT ITERATIONS QUESTION WITH A "Y" (YES).
TESY

N/1

NUMBER

DEF

NUMBER

SECS.

ITER

SE(;S .

250

212

300
360
600

240
240
480

TO RUN TESTS

1
2

S
6
?
8

THE

3
3

60
120
120
22

TIMES REQUIRED

Q.v.
OEFALT

10
8

300

7 MINUTES
31 MINUTES

240

THROUGH 8

IN ONE

COMMAND:

USER DOCUMENTATION

MACRC MIl11®

S.0 DEVICE

JUN B84

(4!~

S5€Q 0014

INFORMATION TABLES

WHENEVER THE PROGRAM IS STARTED,
THE SUPERVISOP REGUESTS
CHANGES:

CHANGE TMMW (L)
@ UNITS (D)

VIA THE STA(RT) COMMAND,

THE FOLLOWING P

TABLES PARAME TER

UNIT O

OEVICE ADDRESS

(0)

VECTOR (0) 224

172520

<ENTER THE ADDRESS OF

TSBA/TSDB

THE

INTERRUPT

THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF
UNITS
(CONTROLLERS) SPECIFIED IN THE *@ UNITS?" QUESTION.
LOGICAL UNIT
NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT O.
UP TO FOUR UNITS CAN BE
SELECTED FOR TESTING.

IN ADDITION, ON A START, RESTART OR CONTINUE THE SUPERVISOR
gemm%‘s‘gs CHANGES TO THE SOF TWARE OPERATING PARAMETERS, AS
L

CHANGE SW (L)

INHIBIT ITERATIONS (L) N ?

——

MACRO M1113

USER DOCUMENTATION

6.0
TESTY

TEST

14 UUN 84

14:1°

SEQ 0017

SUMMARIES

INITIALIZE #4 TEST
THIS TEST VERIFIES THAT WRITING INTO THE

TSSR RETURNS THE

CONTROLLER TO ITS INITIALIZED STATE FROM VARIOUS CONDITIONS
(I.€E. LOOPBACK ENABLED, FORCING WRONG PARITY, INVERTING SENSE OF
EXTENDED FEATURES SWITCH, ETC.)
TEST

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

OPERATION OF THE REWIND POSITIONING COMMAND. IT DOES NOT
NECESSARILY DEMONSTRATE THAT THE TRANSPORT CAN BE REWOUND FROM AN
ARBITRARY POSITION ON THE TAPE. SUBSEQUENT TESTS IMPLICITLY
CHECK THE OPERATION OF THE REWIND COMMAND SINCE THEY MUST
gEY&IEC'A‘L:lE.; REWIND THE TAPE IN THE NORMAL COURSE OF THEIR TEST
TEST

BASIC WRITE DATA
THIS TEST VERIFIES THAT THE WRITE DATA (NEXT) COMMAND OPERATES
PROPERLY, UP TO THE POINT OF CHECKING THAT THE DATA WAS ACTUALLY

WRITTEN ONTO THE TAPE CORRECTLY. CHECKING IN THIS TEST IS
LIMITED TO VERIFYING THAT THE COMMAND TERMINATED CORRECTLY WITH
THE CORRECT REGISTER,

MESSAGE BUFFER AND RAM CONTENTS.

$80008880080680000080060048000008000088000000800000080000000080000

CAUTION

THE LSI BUS ORIVERS FOR ALL AVAILABLE ADDRESS LINES(16-21)
ARE ONLY CHECKED WHEN RUNNING ON A LSI-11 SYSTEM WITH MORE THAN
128K WORDS OF MEMORY!
0888888008850 888808808008008888802800888880808888880808000040008408080400

TEST

a&:

BASIC READ DATA (FORWARD AND REVERSE)
THIS TEST VERIFIES THAT THE READ FORWARD AND READ REVERSE

COMMANDS OPERATE PROPERLY. VARIOUS COMBINATIONS OF ODD AND EVEN
OATA BUFFER BOUNDARIES, RECORD SIZES (UP TO 64K BYTES IF MEMORY
SPACE IS AVAILIABLE), AND BYTE-SWAP CONTROL ARE USED. THIS TES)
OF COURSE, FURTHER VERIFIES THE WRITE DATA COMMAND BY ACTUALLY
READING AND VERIFYING WRITTEN OATA. ALSO TESTED ARE PROPER
TERMINATIONS ON EXCEPTIONAL OR ERROR CONDITIONS:

RECORD LENGTH

LONG, RECORD LENGTH SHORT, READ REVERSE AT BOT, ILLEGAL DATA
BUFFER ADORESSES, ILLEGAL CODES IN THE MODE FIELD OF THE BASIC
READ COMMAND, AND DATA BUFFERS IN NON-EXISTANT MEMORY,

0460880000 8088080040000000608808000844600008040008804000008000080¢

CAUTION

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

128K WORDS OF MEMORY!

S88888080000400888080080008050803808800800000000804308080000808800000

MACRD M1113

USER DOCUMENTATION

TEST

14 JUUN 84

14:17

5€Q 0018

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

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

TEST

REREADS
THIS

TEST VERIFIES THAT THE REREAD PREVIOUS AND REREAD NEXT

COMMANDS OPERATE PROPERLY. VARIOUS COMBINATIONS OF 00D AND EVEN
DATA BUFFER BOUNDRIES, RECORD SIZES (UP TO 64« BYTES IF MEMORY
SPACE IS AVAILIABLE), AND BYTE-SWAP (SWP) AND OPPUSITE (OPP)
CONRTOL ARE USED. ALSO TESTED ARE PROPER TERMINATIONS ON
EXCEPTIONAL OR ERROR CONDITIONS: RECORD LENGTH LONG, RECORD
LENGTH SHORT, READ REVERSE AT BOT, ILLEGAL DATA BUFFER ADDRESSES,
AND DATA BUFFERS IN NONEXISTENT MEMORY.

0800080880 6808030880088808080808488088040000000040004088080000880008

CAUTION

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

128K WORDS OF MEMORY!

888858888888 080008830088080488880888080004808808088080400¢08080484¢0

TEST

WRITE DATA RETRY

THIS TEST VERIFIES PROPER OPERATION OF THE WRITc DATA RETRY

COMMAND (SPACE REVERSE, ERASE,
TEST

WRITE DATA)

WRITE/READ TAPE MARK

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

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

IN ADDITION,

SINCE WRITE TAPE MARK 1S THE FIRST

SUBCOMMAND UNDER THE FORMAT COMMAND BEING TESTED,
THAT THE CLEAR VOLUME CHECK (CVC) BIT

IT IS VERIFIED

OPERATES PROPERLY AND THAT

FORMAT COMMANDS WITH ILLEGAL MODE CODES ARE REJECTED.

USER DOCUMENTATION

MACRO M1113

14 JUUN 84 14:)°

7.0 MAINTENANCE

SEQ 0019

HISTORY

REVISION A

JUNE

1983

REVISION B

JUNE

1984

UPDATED FOR NEW ORION CPU PROBLEMS,
ERRORS (0311 £ #320) ON REWINDS.
ELIMINATED CPU ID MESSAGE.

RELATING TO TIMEOUT

H,
)

TSve

PROGRAM HEADER

MACRO M1113

14 JUN 84

14:17

000000

002000

002000
002000

TSV2::

SEG 0020

LTITLE
.SBTTL
.PSECY

TSve
PROGRAM HEADER
PROGRAM HEADER
ABS

.MCALL
SvC
.ENABLE
LNLIST
.ENABL
. #2000
BGNMOD

SvC

LC
8Ex,CND
ABS
. AMA

INITIALIZE SUPERVISOR MACROS

TSve

HEJR

:
:

002000
002000
002000
002000
002001
002002
002003
002004
002005
002006
002007
002010
002010
002011
002011
002012
002012
002014
002014
002016
002016
002020
002020
002022
002022
002024
002024
002026
002026
002030
002030
002032
002032
002034
002034

002036
002036

002040

THE PROGRAM HEADER [S THE INTER-ACE BETWEEN
THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR.

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

LSNAME
::

103
126
124
123
103

LSREV::
102
060
000000

001217

112730
113062
002146

002156

113404
000000
000000

000000

L $DEPO::
LSUNIT::

LeTIML::
:
LSHPCP:

LS$SPCP::
L$HPTP:
;

LSSPTP::
LSLADP::

LS$STA::
L$CO::

L$OTYP::

L$APT::
L$DTP:
:

HEADER

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

Cv7s(C,8,0,655.,0
:DIAGNOSTIC NAME

/C/

/N/

/17
/S/
/C/
0
0
0

.ASCII

/87

LASCII

/0/

. WORD

655.

. WORD

L $MARD

. WORD

LS$SOFT

. WORD

L$HW

. WORD

L$SW

. WORD

L $LAST

. WOROD

. WORD

;REVISION LEVEL
;0

sNUMBER OF UNITS
;LONGEST TEST TIME
+POINTER

TO H.W.

QUES.

;POINTER

GQUES.

S.W.

;PTR,

TO DEF.

H.W.

tPTR.

TO S.W.

PTABLE

:DIAG.

PTABLE

END ADDRESS

{RESCRVED FOR APT

STATS

1DIAGNOSTIC TYPE
;APT

;PTR.

EXPANSION

TO DISPATCH TABLE

PROGRAM HEADER
TSVe
HEADER
AM
PROGR

002040
002042
002042
002044
002044
002046
002046
002050
002050
002051
002052
002052
002054
002056
002056
002060
002060
002062
002062
002064
0020¢€4
002066
002066
002070
002070
002072
002072
002074
002074
002076
002076
002100
002100
002102
002102
002104
002104
002106
002106
002110
002110
002112
002112
002114
002114
002116
002116
002120
002120

002124

000000
000000

000000
003
003
000000
000000

000000

003372
022710

000000
000000
022376
022474

000000
003400

104035
000000
021602

022662
022602

021572

000000
000000
000000

MACRO M1113

UUN 84

14:1°

LSPRIO::
LSENVT::

LS$EXPL::
L$MREV::

LSEF::

L$SPC::
LS$DEVP::

LS$REPP::
L$EXPA:;
LSEXPS:
:
L$AUT::
L$DUT::
LSLUN::

L$DESP::
LS$LOAD:
:
LS$ETP::

L$ICP::

L$CCP:
:
L$ACP::
L$PRT::

L$TEST::
L$OLY::
L ¢HIME::

.WORD

. WORD

SEQ 002:

L$DISPATCH

. WORD

:OIAGNOSTIC RUN PRIORITY
1FLAGS DESCRIBE HOW IT WAS SETUP

;EXPANSION WORD

.BYTE
.BYTE

;SVC REV AND EDIT
CSREVISION
C$EDIT

. WORD
.WORD

. WORD

L$DVTYP

. WORD

LS$RPT

. WORD

L$AU

. WORD

L 40U

. WORD

L $0ESC

EMT

ES$LOAD
)

LS$INIT
L$CLEAN
L$AUTO

L$PROT
0

;DIAG.

EVENT FLAGS

: PCINTER TO DEVICE TYPE LIST
:PTR.

TO REPORT

:PTR.

TO ADD UNIT COOE

:PTR.

TO OROP UNIT

CODE

COOE

:LUN FOR EXERCISERS TO FILL
;POINTER TO OIAG. DESCRIPTION

;:GENERATE SPECIAL AUTOLOAD EMT
;POINTER TO ERRTBL

;PTR,

TO INIT COO€E

iPTR.

TO ClLFa-UP CODE

+PTR.

TO AUTO COOE

tPTR.

TO PROTECT

; TEST NUMBER

:DELAY COUNT
iPTR.

HIGH MEM

TABLE

TSV
PROGRAM HEADER
TABLE
TCH
DISPA
32
3‘

MACRO M1113

14 JUN 84

14:1°
.SBTTL

;00

DISPATCH

;

THE

;

IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TE-ST,

002122

000910

002124

023472

002134
002136

046716
055644

002124

002126
002130
002132
002140
002142

TABLE

38 002122

DISPATCH

SEQ 0022

THE

STARTING

ADDRESS

EACH

. WORD

L$DISPATCH: :

. WORD

.WORD
. WORD
.WORD

T2
T3
T4

075226
105264

.WORD
. WORD

17
T8

. WORD
. WORD

15
T6

41
42
43
44

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

46 002144

002144
002146
002146

000003

48 002150
49 002152

000224
000200

47 002146

50 002154

1
Se

172520

002154

BGNHW

Lé$HW:
DFPTBL: :

L10000:

;

S7 002154
002154

000004

58 002156
59 002160

000000
000000

002156
002156

60
61

62 002162
63 002164

64 002166

002166

65 002166

000017
000310

TEST.

DISPATCH 8

024612
027272
034452

39
40

CONTAINS

. WORD
. WORD

DFPTBL

sDEFAULT HARD P TABLE

172520

;

L10000-L $HUW/2

. WORD
. WORD

c24
PRIOA

.SBTTL

SOFTWARE P-TABLE

ENDHW

;:
:

1ST

(OF 2) REGISTERS.

INTERRUPT VECTOR
INTERRUPT PRIORITY.

THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM

PARAMETERS THAT CAN BE CHANGED BY

L$SW::
SFPTBL: :

BGNSW
. WORD

TRANSTST: :
NOITS::

LERRMAX: :
GERRMAX : :

L10001:

ENDSW

ENDMOD

THE OPERATOR.

SFPTBL
L10001-L$SW/2
. WORD
.WORD

.WORD
. WORD

0
0

15.
200.

;
:

ENABLE TEST OF TRANSPORT(S)
INHIBIT ITERATION OPTION.

:
i

... O
...NZ

;
;:

=
=

ITERATE.
INHIBIT ITERATE.

IfF

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

-1

GLOBAL AREAS
TSV
SOF TWARE P TABLE

MACRO M1113%

14 JUUN 84

14:17

13
19
20 002166

TSVY::

002166

2l
22
23
24

580 0023

LTITLE
.SBTTL

TSV3
GLOBAL AREAS
GLOBAL EQUATES SECTION

BGNMOD

TSV

.SBTTL

GLOBAL EQUATES SECTION

THE GL OBAL EQUATES SECTION CONTAINS PROGRAM EQUATES
ARE USED IN MORE THAN ONE TEST

25
26

THAT

28
32 002166

EQUALS

;

GET

STANDARC EQUATES.

. BIT DIFINITIONS
100000
040000
020000
010000
004000
002000
001000
000400
000200
000100
000040
000020
000010

000001

BIT1S5=- 100000
B8IT14=- 40000
BIT13== 20000
B8IT12=- 10000
B8IT11s== 4000
B8IT10== 2000
BIT09=» 1000

B8IT08=BITQ7==
BIT06==
BIT0S==
8IT04=EITO3==
BITN2=+=
8I701==
8IT00=»
BIT9==
8178=BIT7=-=
BIT6==
BITS=»

BIT4==

B8IT73=»
BIT2=BIT]ls=~
BITO=~

400

200
100

20
10
4

2
1

BiT09
817108
8I107
81706

BIT0S
B8IT04
81703
B8IT02
81701
8IT00

; EVENT FLAG DEF INITIONS
;
000040
000037
000036
000035
000034

EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION

EF .START .

32.

EF .RESTART ==

31.

EF .NEW®=
EF .PWR=»

29.

EF .CONTINUEs=

START COMMAND WAS ISSWD

RESTART

COMMAND WAS

ISSUED

30.

: CONTINUE COMMAND WAS ISSUED

28.

: A POWER-FAIL/POWER UP OCCURRED

. PRIORI Ty LEVEL DEFINITIONS

; A NEW PASS HAS BEEN STARTED

TSv3

GLOBAL

AREAS

GLOBAL EWUIATES SECTION
000340
000300
000240
000200
000140
000100
000040
000000

MACRC TMM111%

UUN 84

14:]°

PRIO7-=

340

PRIO6==

PRIOS==

5EQ 0004

300
240

PRIO&== 200

PRIO3+=
PRIO2==
PRIO1-=

140
100
40

PRIOO== O

OPERATOR FLAG BITS
000010
000020

000040
000100
000200
000400
001000
002000
004000
010000
020000
040000

33
34 002166

100000

EVL==
LOT=»

4
10

IDY==
ISR=»
UAMs =
BOE «=
PNTss

40
100
200
400
1000

PR]=>»
IXE=>=
IBE==

JIER==

LOE==
HOE = =

2000
4000

10000

20000

40000
100000
KT11

.SBTTL

000250

177572
177574
177576
172516

MEMORY MANAGEMENT DEFINITIONS

;oKT11

VECTOR

MMVEC=s

250

ADODRESS

;eKT11 STATUS REGISTER ADDRESSES

SRO=

SR1s=

SR2=
SR3.IF NB

177572

177574

177576
172516

;sUSER “I* PAGE DESCRIPTOR REGISTERS

UIPORO=
UIPOR1=
UIPDR2=
UIPDR3=
VIPDR4=
UVIPDRS=
UIPDR6=
UIPDR?=
.IF NB

177600
177602
177604
177606
177610
177612
177614
177616

;sUSER “D“ PAGE DESCRIPTOR REGISTORS

UDPDRO= 177620
UDPDR1= 177622
UDPDR2= 177624
UDPDR3= 177626
UDPDR4= 177630
UDPDRS= 177632
UDPDR6= 177634
UDPDR7= 177636
.ENDC

;:DEF INE MEMORY MANAGEMENT REGISTERS

TSVS - GLOBAL AREAS

MACRO M1113

MEMORY MANAGEMENT DEF INITIONS

14 JUN-84 14:17

:8USER "I" PAGE ADDRESS REGISTERS

UIPARO=
UIPAR1=
UIPAR2=
UIPAR3=
VIPAR4=
UIPARS=
UIPAR6=
UIPAR7=
.IF NB

177640
177642
177644
177646
177650
177652
177654
177656

UDPARO=
UDPARL=
UDPAR2=
UDPAR3=
UDPAR4=
UDPARS=
UDPARG=
UDPAR7=
.ENDC
.ENDC
.IF NB

1776560
177662
177664
177666
177670
177672
177674
177676

SIPDRO:
SIPDR1=
SIPDR2=
SIPDR3=
SIPDR4=
SIPORS=
SIPDR6=
SIPDR7=
.IF NB

172200
172202
172204
172206

SOPORO=
SOPDR1=
SOPDR2=
SOPDR3=
SOPDR4~
SOPDRS=
SOPDR6=
SOPDR7=
.ENDC

172220
172222
172224
172226
172230
172232
172234
172236

SIPARO=
SIPAR1=
SIPAR2=
SIPAR3=
SIPARA=
SIPARS=
SIPARG=
SIPAR7=

172240
172242
172244
172246
172250
17225¢
172254
172256

; #USER "D” PAGE ADDRESS REGISTERS

; *SURERVISOR “I" PAGE DESCRIPTOR REGISTERS

172210
172212

172214
172216

; sSUPERVISOR “D" PAGE DESCRIPTOR REGISTERS

; 6SUPERVISOR “I~ PAGE ADORESS REGISTERS

.IF N8B

i OSUPERVISOR "D*

SOPARO= 172260
SOPAR1= 172262
SOPAR2:= 172264
SOPARZ=

17226¢

PAGE ADDRESS REGISTERS

MACRO TMM1113
TSVS - GLOBAL AREAS
FEMORY MANAGEMENT DEF INITIONS

14 JUN 84 4

SEQ 0C26

SOPARS »
SOPARS«

172270
172272
SOPARG» 172274
R 172276
SDPA7=
.ENDC
. ENDC

172300
172302
172304
172306
172310
172312
172314
172316

;oKERNEL

X IPORO-

xXIPDR]

XIPOR2KIPORS
-

=
KIPOR4

XIPONSXIPORGKIPOR7-

IF @

"1~ PAGE DESCRIPTOR REGISTLRS
172300
172302
172304
172306
172310
172312
172314
172316

s oXKERMNEL 0" PAGE
OESCRIPTOR REGISTERS
KDPDRO* 172320
XDPOR]» 172322
KDPOR2» 172324
KOPORS
- 172326

172340
172342
172344
172346
172350
172352
172354
172356

KDPOR4
KDPORS
KDPORG»
¥DPOR7=
.ENDC

17233%0
172332
172334
172336

KIPARO=
KIPAR]=
KIPAR2
=
KIPARSe
KIPAR4
=
KIPARS
=
nIPARG
=
KIPAR7=

172340
172342
172344
172346
172350
172352
172354
172356

; oKERNEL

.IF NB

“I~ PAGE ADORESS REGISTERS

;oKERNEL

KDPARO=
KOPAR]
=
KDPARZ2
=
KOPAR3
=
=
KDPARA
KDPARS=
KDPARG
=
KDPAR7=

172360
172362
172364
172366
172370
172372
172374
172376

.ENOC

PAGL

ADDRESS

REGISTERS

TSVS

GLOBAL

AREAS

MACRO M1113

TSVOS REGISTER AND PACKET DEF INITIONS

JUUN 84

| 4:17

.SBTTL

SEQ 0027

TSVOS REGISTER AND PACKET DEF INITIONS

: SOME GENERAL EQUATES.
000004
000060
177560
177562
177520

ERRVEC=TTIVEC=TTICSRe-

177560
177562
177520

TTIBFR=»

BOVPCR==

+ POINTER TO ERROR VECTOR FOR BUS TIME OUT,
+ INTERRUPT VECTOR FOR CONSOLE INPUT
1 BUS ADDRESS OF CONSOLE INPUT
+ CONSOLE INPUT DATA BUFFER
s BOV11 PAGE CONTROL REGISTER

:BIT DEFINITIONS FOR TSSR REGISTER
100000
040000
020000
010000
004000
002000
001400
000200
000100
000016

BIT1S
8IT14
BIT:3
RMR
=
8IT12
NXM=
8IT11
NBA=
8IT10
HIADOR
= BI79:8IT8
SSR=
8177
OFL~
B8IT6
FATERR= BIT4!BITS
TERCLS= BIT3!8IT2!BITY
SC8lESCE-

1 SPECIAL CONDITION

18US INTERFACE ERROR
$SANITY CHECK ERROR
+MOOIFICATION REFUSED
tNONEXISTANT MEMORY ERROR
INEED BUFFER ADORESS
tEXTENDED ADORESS BITS
1SUB SYSTEM READY
1OFF LINE BIT
1tFATAL TERMINATION ERROR CODES
s TERMINATION COOES

:18IT DEFINITIONS FOR EXTENDED STATUS REGISTER O
s (XSYT0)
3
;-

100000
020000
010000
002000
001000

000200
000100

000020
000010
000002
000001

XSOTMK
=
XSORLS=
XSOLETXSORLL
=
XSCWLEXSONEF
=
XSOILC=
XSOILAXSOMOT=
XSOONL
=
XSOIE»
XSOVCK~
XSOPED»
XSOWLK=
XS080T=
XSOEQT
-

BIT1S
8IT14
BIT13
8IT12
8IT11
8IT10
8IT9
8178
8177

8IT6
8ITS
8274
8IT3
BIT?
BIT1
8170

1 TAPE MARK DETECTED

sRECORD LENGTH SHORT
sLOGICAL END OF TAPE
tRECORD LENGTH LONG

tWRITE LOCK ERNOR

1NON EXECUTABLE FUNCTION
1 ILLEGAL COMMAKD
s JLLEGAL ADORESS

sTAPE IN MOTION
1 TRANSPORT ON LINE

s INTERRUPT ENABLE
1VOLUME CHECX BIT
1PHASE ENCODED DRIVE
tWRITE LOCKED

1BEGINNING OF TAPE
1END OF TAPE

TSV

MACRO M1113

GLOBAL AREAS

TSVOS REGISTER AND PACKET DEFINITIONS
N
9
Q3

HN-B84

14:1°

3EQ 0028

1BIT DEFINITIONS FOR EXTENDED STATUS REGISTER
:(XST1)

95
96
9>

98
99

100
101
102
103
104
105
106
107
108
109
110
111
112

113

100000

040000
020000
017275
000400
-~

X1.0LT
=
X1.SPARE»
X1.COR
X1.M8Z2
-

Y1 .RBP
X1.UNC

8I71s
8iT14
8IT13

1DATA LATE
sNOT USED
;CORRECTABLE DATA ERROR

8IT12.B8I711.8I710+BIT9+BIT7.8I1T6+BITS.BIT4:BIT3.8IT2.BI70

- 8ITa
- 8Iv}

tREAD BUS PARITY ERROR
tUNCORRECTABLE DATA OR HARD ERROR

1BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2
;(XST2)

100000

X2 .0Pm
X2 .RCE
X2 .SPARE
X
.2
WCF

8IT1S
1OPERATION IN PROGRESS (TAPE MOVING)
8IT14
1RAM CHECKSUM ERROR
BIT13.8IT12+8IT11.BIT9+8IT8
;NOT USED BY TSVOS (ALWAYS=0)
8IT10
tWRITE CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT
.

000100
000077
000007

X2 .BUFE

8ITé

040000
035400
002000

8IT7?

X2 .EXTF

1IF WRITE CHAR CMD THEN = EXTENDED FEATURES ENABLED

1 IF WRITE CHAR CMD THEN = BUFFERING ENABLED

000077

X2 .REV

X2 .UNIT

BIT2+8IT1+8ITO

1IF WRITE CHAR CMD THEN = MICROCODE REVISION LEVEL
;IF GET STATUS THEN = CURRENTLY

SELECTED UNIT NO.

114

115

;8IT DEFINITIONS FOR EXTENDED STATUS REGISTER 3

116

117
1'8
119
120
121
122
123
124
125
126
127
128
129
130
131
132
132
134
135
136
137
138
139
140

141
142
143
144

145

;ALWATS .

s (XST3)

177400

000200
000100
000040
000020
000010

X3.MDE
= 177400
X3.SPARE- BIT7?
X3.0PI
= RITG
X3.REV
= BITS
X3.TRF
=« BITA
X3.0Cx
= BIT3
X3.M8Z
=BIT2.BIT}
X3.RI8
= BITO

sMICRO-DIAGNOSTIC ERROR CODE
iNOT USED BY TSVOS
sOPERATION INCOMPLETE
s REVERSE
s TRANSPORT RESPONSE FAILURE
;DENSITY CHECK
tNOT USED ALWAYS O
tREVERSE INTO BOTY

‘0

s8I7 DEFINITIONS FOR EXTENDED STATUS REGISTER 4
:(XST4)
‘-

100000
020000
017400
000377

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

=
=
=«
+»
+

BIT1S
1HIGH SPEED
BIT14
tRETRY COUNT EXCEEDED
3IT13
s TRANSPORT SPEC1AL MODE
BIT12.BIT11.8IT10.8179.8]IT8
tNOT USED ALWAYS O
000377
tWRITE RETRY COUNT FIELD

1 TSSR TERMINATION CODES (BIT O 2)

TSREUe
UNREC=

3e2
6

: COMMAND REJECTED
$ UNRECOVERABLE ERROR

14 UUN 84 14:1°
MACRO M111%
TSVS - GLOBAL AREAS
INITION
DEF
PACKET
TSVOS REGISTER AND
.
HR4

:DEVICE REGISTER OFFSETS

158

000000

TSBA==

155

000001

=
TSBAM=

157

000002

168

169
170
171
172
173
174
179
176
177

178
179
180
181
182
183

000003

000017

000013
000012
000011
000010
000006
000005
000004
000001

IN 1:0

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

17
13
12
11

1GET STATUS
sINITIALIZE
sCONTROL COMMANDS

1FORMAT

sPOSITION
1SUBSYSTEM WRITE
sWRITE
tWRITE CHARACTERISTICS

1READ

+ COMMAND PACKET HEADER WORD BIT DFFINITIONS
100000
040000
020000

188

000037

195
196

; ADDRESS BITS 17:16 ARE

000200

194

= BIT1.8 I710

; COMMAND DEF INI TIONS

186

189
190
191
192
193

A1716
‘0

010000

187

17SDB/TSBA REGISTER HIGH BYTE
1 TSSR REGISTER
1 TSSR REGISTER MIGH BYTE

: TSDB ADORESS BIT DEF INITIONS

184

185

TSSRH=»

1 1SDB/TSBA REGISTER

(=X XV, 1.,

159
160
161
162
163
164
165
166
167

000003

VOVYVOVVDOVYO

158

000001

T1SD8 ==

156

000000

VOVYVVOVOVOO
-

154

W)
e OO

14°
148
149
150
151
152

5S¢0 00729

007400

000140

. ACK
= BIT1S
1BUFFER AVAIL FOR CONTROLLER
4
= BIT1
.CvC
1CLEAR VOLUME CHECK
P
.0P
= BIT13
1REVERSE SEQUENCE OF DATA BITS
. SWB
= BIT12
1SWAP BYTES IN MEMORY
.MODE
BIT11!8IT10!'8IT9!BIT8 ,EXTENDED COMMAND MOOE FIELD
» BIT?
.IE
1 INTERRUPT ENABLE
.FHTe BIT6!BITS
sPACKET HEADER TYPE (ALWAYS=0)

cMO

sMAJOR COMMAND FIELD

H K4

; CONTROL COMMAND MODE CODES
;-

000000
000400

001000

002000
002400

PC.RELEA St

PC.REVIND
PC . NOOP
PC.IEREW
PC.ERASE

= 06256.

1RELEASE BUFFER

= 16256,
s 20256,

sREWIND
1NO
- 0P

= 5256.

1 SECURITY ERASE

40256,

tREWIND

IMMEDIATE

INTERRUPT

TSV3 - GLOBAL AREAS

MACRO M1113

TSVOS REGISTER AND PACKET DEFINITIONS

201
202
203
204
205
206
207

<08
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224

JUUN 84

14:

58Q 0030

: CONTROLLER RAM DEFINITIONS
000167
000200
000201
000210
000215
000234

;

167
200
RMPKTBEG* 201
RMPKTEND » 210
RMMSGBEG= 215
RMMSGEND= 234
RMCHBEG
RMCHEND

sCHARACTERISTICS IO DATA BEGIN RAM ADDRESS
1CHARACTERISTICS IO DATA END RAM ADDRESS
1COMMAND PACKET BEGIN RAM ADDRESS
1 COMMAND PACKET END RAM ADDRESS
tMESSAGE BUFFER BEGIN RAM ADDRESS
:MESSAGE BUFFER END RAM ADDRESS

=
=

HE4

XST0==
XST1==

XST2==
XST3e=
XST4==

1EXTENDED
1EXTENDED
1EXTENDED
;EXTENDED
{EXTENDED

6
8,

10,
12,

14,

PX LOwW
PKHI

227
228

000006

PKBCNT

000010

EXBCNT=10

234

000004

(WORD
(WORD
(WORD
(WORD
(WORD

4
S
6
7
8

;LOW ORDER CHARACTERISTIC DATA POINTER
sHIGH ORODER CHARACTERISTIC DATA POINTER
tNUMBER OF BYTES IN DATA PACKET
stNUMBER OF BYTES

:DATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND
000000

235

000001

237

000004

236

-4

000002

BSELO
BSEL1
SE Le
SELDATA

8N
O

230
2r1
232
233

O
1
2
3
4

OFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS
000002

229

225

226

STATUS
STATUS
STATUS
STATUS
STATUS

Nt Nt Nt Nt N

198
199
200

sBYTE
;BYTE
sWORD
;WORD

IN EXTENDED DATA PACKETY

AREAS

MACRO M1113

239

240
241

242
2A3
244
245
246
247
248

249
250
251
252
253
254
255
256
257
258
259

260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287

2388

289

UUN-84

14:1°

SEQ 0031

‘0

+BSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND
.NOP
.RDRAM
.WTRAM
.RFIFO
.WFIFO
.ROSTAT
LWCTL
WFMT
.WMISC
. WNPR
.D22
.011
.013

000000
000001
000002
000003
000004
000005
000006

000007
000C10
000011
000020
000021
000022
000023
000024

1NO-0P
1READ RAM

sWRITE RAM
tREAD FIFO

1WRITE FIFO
1READ STATUS
tWRITE TAPE CONTROL
tWRITE TAPE FORMAT
tWRITE MISCELLANEOQOUS
tWRITE NPR CONTROL
100 MICROTEST 22
100 MICROTEST 11
;100 MICROTEST 13

.NO1311
.RDEXT

1DISABLE MICROTEST

sREAD EXT.

11 AND 13

TAPE STATUS (NOT SUPPORTED BY ALL TRANSPORTS

:BSEL1 CODES FOR WRITE TAPE CONTROL
000200
000100
000040
000020
000010
000004
000002
000001

55558555

GLOBAL

.IFAD
.IOTAD
.I1TAD
. ISRESV
. IREW
. JRWU
.IFEN
.IGO

8I77
B8IT6
BITS
BIT4
BIT3
B8IT2
8IT1
8ITO

:IFAD - FORMATTER ADDRESS
- TRANSPORT ADORESS BIT O
1ITADO
sITAD1
- TRANSPORT ADORESS BIT 1
;sIRESVS - RESERVED 05
:IREW

- REWIND

: IFEN

;s IRWU
;GO

- REWIND AND UNLOAD
FORMATTER ENABLE

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

3111131
F

TSV3

TSVOS REGISTER AND PACKET DEF INITIONS

. IKISP
. IWRT
.IREV
. JWFM
.IEDIT
. JIERASE
.I3RESV
. JARESV

8177
8176
8ITS
8IT4
8IT3
8IT2
8IT1
8IT0

s IHISP

- HIGH SPEED

: IWRT

- WRITE

;IEDIT
s JERASE
1IRESVY
s IRESV4

s IREV
s IWFM

- REVERSE
- WRITE FILE MARK

EDIT
ERASE
RESERVED 03
RESERVED ¢4

;BSEL1 CODES FOR WRITE MISCELLANEOUS SUBCOMMANO
‘-

000200
000020
000010

000006
000001

MS LEXT

MS.RSFIFO

MS.RSTAPE
MS .ATTN
MS .RSO

= BIT7
= BIT4
8IT3
8IT2!B8IT1

BITO

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

;RESET TIMER A,B THEN DELAY TIMES IN SELZ2

GLOBAL AREAS

MACRC M1113

TSVOS REGISTER AND PACKET DEFINTTIONS

000200
000100
000040
000020

000200
000100
000040
000020
000010
000004
000003
100000

327

000020

1FORCE NON-FATAL RAM ERROR (FORCES ERRCODE S4)

tFORCE FATAL RAM ERROR (CAUSES SCE

NP . IR
NP OUT
NP . LOOP
NP . WRP

=
=
=
=

BIT?
BIT6
BITS
BIT4

TO SET)

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

: READ STATUS MESSAGE BUFFER BIT DEFINITIONS

000010
000004
000002
000001

®e

;WORD 09 BYTE 2 DATA IN MISS
ILMH
:
OUT ROY M
IN RDY H

TIMER A FLAG M
TIMER B FLAG H

®e

(UNDEF INED)
WORD &8 BYTE 1 PARIN W
:
IRESV?
IRESV]
IEOT L
IIDENT W
ICER TM
IFMK H
IHER H
WORD 8 BYTE O ISPEED H
IRDY
IONL
ILDP
IDBY

8IT7
BIT6
BITS
BITA
BIT3
BIT2
BIT1.8ITO
BIT15
BIT14
BIT13
BIT12
BIT11
BIT10
BIT9
BIT8
BIT?
BIT6
BITS
BIT4
BIT3
BIT2
BIT1
B8ITO

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

040000
020000
010000
004000
002000
001000
000400
000200
000100
000040

S2.0IM
S2.ILW
S2.0UTRDY
S2.INRDY
52 .ATIMR
S2.87IMR
S2.UNDEF
S1.PARIN
S1.I2RESV
S1.I1RESV
S1.IEOT
S1.IIDENT
S1.ICER
S1.IFMK
51.IHER
SO.ISPEED
SO.IRDY
SO.IONL
SO.ILDP
S0.108Y
SO. IRWD
SO.IFBY
S0.IFPT

IRWD
IF8Y
IFPTY

rrecrreer

328
329
330
331

tNO-OP (NOTHING TRIGGERED)
1SIMULATE ON-LINE/OFF -LINE TRANSISTION

; WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS

304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326

MSA.NOP = Qe2
MSA. VOL = 1e2
MSA,NRAMs 2e2
MSA .FRAM= 32

00000V
000002
000004
000006

302
303

: MS.ATTN SUBCODES

®e

298
299
300
b

SEQ 0032

294
295
296
297

14:17

®¢

291
292
293

14-UUN-84

TSV3

MACRO M1113
GLOBAL AREAS
TSV3
OPDEFS.
AND
MACROS
SPECIAL
33X
334
335
336
33”
338
339
340
a1
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
3n
372
373
374
375
376

377

378
379

380
381
382
383
384
385
386

14 JUN-84

14:17

.SBTTL

SEQ 0033

SPECIAL MACROS AND OPDEFS.

1SAVE GENERAL REGS 1 TO 5
.MACRO
JSR
. ENOM

SAVREG
RS,REGSAV

: MACRO TO FORCE AN ERROR
.MACRO
FORCERROR
NLIST
LIIF NDF LISTALL,
.LIST
.IF 8 NOTSSR

ENOC

TAG,NOTSSR
.NLIST

MOV

TSSR(RS),R1

$READ TSSR

MOV
BNE

FORCER,FORCER
TAG

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

.NLIST
LIIF NOF LISTALL,
.LIST
. ENDHM

.LIST

: MACRO TO FORCE AN EXIT TO AVOID SECTION ITERATIONS
WILL EXIT

TO A LABEL IF FORCER IS NEGATIVE

SO TO FORCE ERRORS AND EXIT ON 1 ERROR SET

FORCER TO 177777
TO FORCE ERRORS AND

"MACRO FORCEXIT

CNLIST
.I§FTW LISTALL,
LIS

MOV
B8MI

ITERATIONS SET FORCER

TAG
.NLIST

FORCER,FORCER
TAG

CNLIST
.IIF NOF LISTALL,
.LIST
. ENOM

: IS FORCER NEGATIVE?
;:BR IF YES

.LIST

: MACRO TO INCREMENT ERROR COUNTS
.MACRO
LNLIST

NEXT,ERRNO

;3:.IIF NDF LISTALL,

.NLIST

;is.1JIF NOF LISTALL,

.LIST

ERRNO=ERRNO
.1

LIST
. ENDM

MACRO M1113
GLOBAL AREAS
TSV
SPECIAL MACROS AND OPDEFS.
388
389

H
:MACRO

390

391

T0O PERFORM XOR

392

.MACRO

MOV

193

394
395
3196

BIC
BIC
8IS

398

399

400

560 0034

14 JUN-84 14:1°

. ENOM

Q00000

EN=Q

.SBTTL

XOR

A, (SP)

A,B

B8,(SP)
A,B
(sP).,8
:

FORCER

INITIALIZE ERROR NUMBER

FORCE ERROR FLAG

401

402

403

40
406

40;

407 002166
408
409

000000

THE FOLLOWING LOCATIONS MAY BE PATCHED BY
TO

OBTAIN

FORCER: :

THE

RESULTS

DESCRIBED

;
i

FOR

EACH.

THE USER

FORCE TYPE ALL HARD ERRORS (THE ONES CALLED

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

GLOBAL

AREAS

GLOBAL DATA SECTION

MACRC M1113

14 JUUN 84

14:1°

GLOBAL

a1}

a1
413

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

414

418

437

438
439
440
a4l
442
443
444
445
446

447
448
449
450

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

:SINGLE UNIT DEFAWLTS (LISTED) ARE IN THE DEFAULT P-TABLE.

002206
002210
002212
002214
002216
002220
002222
002224
002226
002230
002232
002272
002274
002276
002300
002302
002304
002306
002310
002312
002456
002622

TSTCNT:

LOOPCNT
::
DEVCNT
: :

FATFLG::

INTRECYVY:
EXTFEA::

BENBSW::

EXPD:
:
RECV::
ERRHI::
ERRLO:
:
RAMDATA:
:
RAMSIZ:
:
RCVHIADO:
:
RCVLOADD:
:

COUNT::
DATA::

TSTFLAG:
:
TSTPTR:
:
PRMNO:
:

EXPMSG::

RECMSG:
:
TMPBFR:
:

$PRINT

.WORD
. WORD
. WORD
. WORD
Lo

éPRTSU::

UNITN::
Qve:
CSRADOR::
IVEC::
IPRI::

002170
002172
002174
002176
002200
002202

JoXoYoSotoYoloYoXoNatol h

428

429
430
431
432
433
434
435
436

DATA SECTION

HEA4

415
416
a7

419
420
421
422
423
424
425
426
427

SEQ 0035

[oXeJeoRoXolotoJol

TSV3

SWITCH

tUNIT & UNDER TEST.
;QUICK VERIFY FLAG.
; ADDRESS OF CSR FOR CURRENT DEVICE
s INTERRUPT VECTOR
; INTERRUPT PRIORITY.
tNUMBER OF TESTS RUN IN THIS PASS
sREMAINING ITERATION COUNT FOR TEST
sNUMBER OF DEVICE UNDER TEST
$SET IF FATAL ERROR IS DETECTED IN TEST
$SET IF TAPE INTERRUPT WAS RECEIVED
;EXTENDED FEATURES SOF TWARE SW 0=0FF ;1=ON
1BUFFER ENABLE SWITCH SW O=OFF ;1=ON
+EXPECTED RAM DATA FOR PRAMPKT ROUTINE
;RECEIVED RAM DATA FOR PRAMPKT ROUTINE
sHIGH ADORESS MEMORY ERROR
:LOW ADORESS MEMORY ERROR
1DATA READ FROM RAM PACKET OR MESSAGE BUF AREA
1RAM DATA SIZE FOR PRAMPKT ROUTINE

;RECEIVED BUFFER HIGH ADDRESS
+RECEIVED BUFFER LOW ADDRESS
: TEST COUNT PATTERN
: TEST DATA
: TEST FLAG WORD
1 TSTBLK POINTER
tPRINT ROUTINE TEMP
{EXPECTED MESSAGE BUFFER DATA
tRECEIVED MESSAGE BUFFER DATA
: TEMPORARY STORAGE FOR PRINT

ard

TSv3
TSTBLK

GL OBAL

TEST

AREAS
DATA

MACRO M1113
TABLE

14 JUN-84

14:]1°

5EQ 0036

.SBTTL

45¢

TSTBLK

TEST

DATA

TABLE

453

454
455

HR4

;THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS

456
45"

:IN SEQUENCE THE DATA IS:

458
459
460

ALL

ZEROS

ONES
WALKING ONES

461
462

WALKING ZEROS
ALTERNATING ONES AND ZEROS

463
464
465
460

407
468 002742
469 002742

002744
002746
002750
002752
002754
002756
002760
002762
002764
002766
002770
002772
002774
002776

003002
003004
003006
003010
003012
003014
003016
003020
003022
003024
003026
003030
003032
003034
003036
003040
003042
003044
003046
003050

TSTBLK::

.MORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

.WORD

004000
010000

020000
040000
100000
177776
177775
177773
177767
177757
177737
177677

177577
177377
176777
175777
173777
167777
1577717
137777

077777
125252
052525
003052

Joe)
.WORD
.WORD
.WORD
.MORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
TBLEND ==

O
177777
BITO
BIT1
BITZ
BIT3
BIT4
BITS
BIT6
BIT?
BIT8
BIT9
BIT10
BIT11
BIT12
BIT13
BIT14
BIT1S
tCBITO
tCBIT1
*CBIT2
tCBIT3
tCBIT4
tCBITS
tCBIT6
tCBIT?
t(CBIT8
*CBIT9
tCBIT10
tCBIT11
tCBIT12
t(CBIT13
tCBIT14
tCBIT1S
125252
052525

;ALL ZEROS
sALL ONES

;0ATA FOR WALKING ONES

;:DATA FOR WALKING ZEROS

;ALTERNATING ONES,

ZEROS

ZERO OPPQOSITE FROM ABCVE

MACRO M111%
GLOBAL AREAS
GE
STORA
T
ONMEN
ENVIR
L
GLOBA
TSv3

,
14 UUN 84 14
.S8T"M

So'?

GLOBAL

ENVIRONMENT

STORAGE

:STORAGE FOR DEVICE REGISTERS
000000

100000

000000

OUMMY:

0.100000,0,0

0.0,0.0.0.0.0.0

. WORD

.
DUFLG:

:
TEMP?:

XXCOMM:
:

FREE:
:
FRESIZ::

KTFLG::

.WORD

;FLAG

COMM BLOCK POINTER.

;KT11,

MEM AVAIL FLAG

..
:1ST FREE MEMORY ADDRESS.
;...AND SIZE (IN WORDS).
;LAST WORD IN FREE SPACE

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

177777

>24K AND KT,

<24K OR NO KT

TEST ROUTINES TO FLAG >28K UNDER TEST
WE CAN TEST CLEARED OTHERWISE
ADDRESS BITS
ADORESS BITS FOR DAL S 16 21}
FLAG
FLAG

38 FLAG

{ACTUAL DATA

:EXPECTED DATA

; CONF IGURATION TABLES.
;CONFIG WORK.

tEND OF MEM TABLE.

;ERROR STATISTICS TABLE (1 WORD PER UNIT),

64 UNITS MAX:

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

100000
10XXXX
160000

UNIT DROPPED,
UNIT DROPPED,
UNIT DROPPED,

160001
14XXXX

ERTABL:

.WORD

0O »

;:32W BLOCK ADDRESS FOR 32K START

SKIPT:

;TEST

CTABE:

ERTABE:

.WORD

;SET BY
;SET IF
sNXM LO
:NXM HI
:11/723A
;117238

OO0O0OO0 OOOO%OOOOOOO

1238::

T3BFLG:
:

SAY NO DEVICE.

: XXDP.

NXMLO:
:
NXMH]
::
T23A::

:SOME TEMP LOCATIONS.

KTENABLE
::
:
NXMFLG:

CHECKOUT,

: "OROPPED UNIT" FLAG.
s INHIBITS COOE IN "CLEAN-UP'.

00000

TEMPL::

FREEHI:

...FOR MU TI UNIT

NOOEV:
:

..
;OuMMY DEVICE REGISTERS.

000000

508
509
510
S11 003052
512 003062
513
S14
515 003102
516
S17 003104
518
519 003106
520 003110
521 003112
S22 003114
523 003116
S24 003120
525 003122
526
527
528 003124
529 003126
530 003130
531 003132
532 003134
533 003136
534 003140
535 003142
536 003144
537 003146
538 003150
539 003152
540 003154
541 003154
S42 003156
543 003160
544 003162
545 003164
546 003166
547
548
549
550
551
552
553
554
555
556 003166
557 003366
558
559 003370

50 0037

BLKW
WORD

NON-EXISTENT DEVICE REGISTER
AT START
NOT IDL
ENCOUNTERED XXxXX ERRORS

64.
0

11=SKIP SUBTEST O=NO SKIP OF SUBTEST

tA 2

TSVY
GLOBAL AREAS
GLOBAL TEXT MESSAGES

MACRO M111%

14 JUN 84 14:})”

.SBTTL

SEQ 0038
GLOBAL

TEXT MESSAGES

HC)

%3
S64
565

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

566

568

sNAMES OF

569

570 003372
003372
003372

124

123

126

DEVTYP
L$DVTYP:;
.ASCIZ

588

/TSv0S/

; TEST DESCRIPTION

587

589 003400
003400
003400

052

597
598

L$DESC::

DESCRIPT
.QSEIZ
.EVEN

cesee TSVOS LOGIC DIAGNOSTIC
/eoees TSVOS LOGIC DIAGNOSTIC

CrH CABLES TRANSPORT
-

CHK CABLES

599

sBIT TO ASCII CONVFRSION FOR TSSR REGISTER
e

601
602
603
604
605
606
607
608

003500
003520
003540
003543
003547
003553
003557
003563

003540
003601
123
10
123
122
116
116

003543
003605
103
111
103
115
130
102

003547
003611
000
105
105
122
115
101

620
621
622
623
624
625
626
627
628
629

003650
003703
003736
003775
004016
004056
004115
004121
004150
004213

124
124
040
045
045
045
045
040

123
123
040
101
101
101
116
040

123
123
116
040
040
040
04S
125

SFIERR:
SFHERR:
NXR:
NXRX:
TS3X:

116
111
040

NOINTR:
IFALT:
INTX:

609
610
611
612
613
614
615
616
617
618
619

«TSVOS>

.EVEN

571
S86

600

DEVICES SUPPORTED

003567
003574
003601
003605
03611
003616
003623
003630
003635
003642

630 004217
631 004254
632 004276

102
102
123
117
102
102
102
102
102
102

040
045
040
0490
045

111
111
123
106
111
111
111
111
111
111

040
116
040
040
101

124
124
122
114
124
124
124
124
124
124

111
04S

TSSRBIT::
1%:

.ASCIZ

3%
4s:
Ss:
é6¢:

.ASCIZ
LASCIZ
LASCIZ
.ASCIZ

2%:

7%
8%
9¢:
19%:
11%:
12¢:
13s:
14%:
15%:
16¢:

.ASCI2

.ASCIZ
LASCIZ
LASCIZ
LASCIZ
.ASCIZ
.ARSCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.EVEN
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
ASCII
.ASCIZ
.ASCI1
.ASCIZ

FUSl:
usI:
NSI:
.ASCIZ
FNOINTR:

_ASCIZ
.ASCIZ
.ASCIZ

. WORD
. WORD
'SC
'BIE"
'SCE’
'RMR
'NXM'
'NBA’

14,°4,34,48,58,68%,74,8¢
9¢,178,11%,12$,13%,144,15%,16¢

'B8179
'BI'8
'SSR
' OFL
'BITS
'BIl74
'BIT3
'BIT?
'BIT}
8I70

'TSSR ERROR AFTER SOFT INIT'
'TSSR ERROR AFTER BUS RESET’
7/
NON-EXISTANT DEVICE REGISTER/
/#A
ADDRESS: w06~/
/#A
TSBA,TSSR EXP'D: ~06s8A,8068N/
/sA
TSBA,TSSR REC'D: #06sA, %06/
/uNsA/
7/
UNEXAPECTED INTERRUPT/
7
INTERRUPT EXPECTED, NOT RECEIVED/
.ASCI1
/#NsA/

/
NG INTERRUPT WAS GENERATED/
7
INTERRUPT FAWL T/
/sAR
(CPy PC: #06%A
TSBA: #06/

TRANSPORT

If ERR esse.
IF ERR ssse/

Tovt

GLOBAL
635
634
635
636
637
638
639
640
641
642

643

644

645
646

647

GLOBAL

MACRC

ARE AS

TEXT MESSAGES
004133
004405
004455
004525
004525
004531
004565
00464

004743
005011
005054
005111
005204
005276
005370
005456
005552
005643

648
649
650
651
652
653
654
655
656
657
650
659 005734
005734
660 005734
005734
005740
005744
005750
005752
005754
661 005760
662 005764
005764
005764
663

04C

04C
04C
000
045

045
04S
04s
122
040
12’
1c4
ice
106
105
045
045
045

240
“ hd
040

o ¥4
042
042

116
101
116
101
101
040

000
040
045
040

122

123
123
101
122
116
116
116

115
103

111

123
123
124

122
045
045
045

JUN 84

NOINIY.

BRINIT:
NA
NMACR.
EXPGOTEXPGT2:
DUADL1Z2:

PXTRAM: :

SCr .

WRTMSG:
MRTERR:

ROERR:
SCHERR:
RETERR:

NOMEM:

M8186:
n8189:

:
:
;

013746
012746

012746
010600

104415
062706
004737

006004
006010
006012
006014
672 006020

ASCIZ

"BUS INDY
OION ° INITIALIZE CONTROL.ER
"SOFT INIT
OIDON T INITIALIZE THE DP.
"BUS RESET’ OION T INITIALIZE THE OPL

s
7/
/

.ASCIZ
LASCIZ2
_ASCIZ
_ASCI2
.ASCIZ
.ASCIZ

/8NSA EXP'D: 8068A, s0b6sNsA REC D: sOsA, 806
/8A REG(W) WRITTEN T70: #068A REG(R) READ, EXP

.ASCIZ

.ASCI2
_ASCIZ

_ASCIZ
_ASCIZ
.ASCIZ

| ASCIZ

.ASCIZ
.ASCIZ

.EVEN
.SBTTL

/8N/

/8A EXP D:
.ASCIZ

#068A,

REC D:

w06/

'RAM Contents Do hot Metch Pecket

CONFIGC DOESN'T MATCH MFG.

WRITE

CHARACTERISTICS Feo:led

MASTER~/

‘FATAL

ERRIR

ERROR

IN SUBTEST

SNEBA
SNEBA
‘"SNBA

IN SUBTEST

CHECK

012746
012746
010600
104415
062706
000207

L100C2:

GLOBAL ERROR REPORT

SECTION

ONXRX ,NOCE V

;NODEV

=0V
MOV
MOV
MOV

NODEV, -(SP)
ONARX, -(SP)
2, (SP)

JSR

SP.RO
CSPNTYX
06 ,5P
PC.EXTEND

TRAP

C4#MSG

;

» NEXM ADDRESS

PRINT EXTENSION IF REQUIRED

ENDHSG

TO ANY OF THE ABOVE ERROR SIGNATURES.

000001

000004

EXTA:

1%:

PRINTX

8EQ
JSR

MOV
MoV

MOV
TRAP
ADD
RTS

REC

(PC).
14

PC,.BEXTA

ONULCR

ONULCR, -(5P)
01, -(SP)
SP,RO

CIPNTX

04 ,5P
PC

etc

sessee NO NXM ADODRESS- -CANNOT TEST MXM TIMEOUT. esececsuN
ecccosscsssssscscs 11/23A SYSTEM eceeccccessccscsessouN
sccccssssccesssee 11/238B SYSTEM seccesccsesccsscoulN

PRINTX

EXTEND: TS7

004526

TIMES FAILED

iNON-EXISTANT DEVICE REGISTER

ADD

005766

w068A,

TAPE ,CABLES, TRANSPORT

WRITE DATA RETRY FIVE

NXRERR

BGNMSG

TRAP

177770

TSSR Incorrect After WRITE Commend., More B:.ts Set Them SSR
‘TSSR Incorrect After READ Commend, More B:ts Set Then SSR

: THIS ROUVINE APPENDS A UNIQUE EXTENSION (IF REQUIRED)
005727
000000
001402
004777

Se-t

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

003104
003775
000002

104423

5€Q 0039

NXRERR . .

:
005766
005770
005772
005774

NSINIT:

665
667
668
669
670
671

TM1113

O = NO EXTENSION.

APPEND EXTENSION TEXT.
PRINT A BLANK LINE

06/

TSVS

MACRO M1113
- GLOBAL AREAS
PRINT TSSR CONTENTS

14-JUN-84

14:17

SEQ 0040

PRITSSR

SBTTL

674

PRITSSR

TSSR CONTENTS

675

676

6”7

{ROUTINE TO DISPLAY THE CONTENTS,

678

680
681
682
683
684
685
686
687
688
689
690

691
692 006022
693 006022

694
695

696
697
698
699

700
701
702

703
704
705
706

707

708
709
710
711

713
714
715
716
717

AND BIT DEFINITIONS,

{THE TSSR REGISTER. THIS ROUTINE IS NORMALLY CALLED OML'
1BY A MESSAGE PRINTING ROUTINE

679

L INPUTS:
;

CONTENTS OF TSSR

1 SUBORDINATE ROUTINES:
:

CHKAMB

CHECK FOR AMBIGUOUS CONTENTS

PRITSSR:

SAVREG

010104

010446

012746
012746
010600
104414
062706
010400
004737
103410
012746
012746
010600
104415
062706
010403
042703
001434

MOV

R1,R4

MOV
MOV

OTSSRFOR, -(SP)
02,-(SP)

TRAP
ADD

CSPNTB
6, SP

PRINTB

006505

000002

MOV

016134

S$:

001476

012702
012701
005703
001413
000241
006103
103006
011100
112022
001376
112762
005721
000763
105042

002622
003500

012746
012746

002622
006676

104:

114:
000054

177777

13¢:

15¢:

$SAVE. THE TSSR CONTENTS
sPRINT

THE

CONTENTS OF

TSSR

SP,RO

MOV
JSR

R4 ,RO
PC.CHKAMB

PRINTX

OAMBTSSR

8CS

006725
000001

@TSSRFOR,R4

$SAVE GENERAL REGISTERS

1GET TSSR BACK FOR CHXAMB
1ARE CONTENTS AMBIGUOUS ?

$BRANCH IF NOT

1SHOM CONTENTS ARE

AMBIGUOUS

MOV
MOV
MOV
TRAP
ADO
MOV
8IC
8€EQ

OANBTSSR, -(SP)
e1,-(SP)
SP,RO
CIPNTX
o4, 5P
R4 ,R3
1CONTENTS OF TSSR
OHIADOR ! FATERR ! TERCLS,RS
sCLEAR ALL MULTIPLE BIT FIELDS
204
tNO BITS ARE SET

1S7

1REMAINING BITS TO CONVERT

ROL
8cc

R3
13¢

sSHIFT NEXT BIT TO CARRY
1BRANCH IF BIT NOT SET

TST

(R1).

MOV
MOV
8EQ
CLC

MOV
MOV
BNE
MOV8

BR
CLR8

OTMPOFR,R2
#TSSRBIT,R1
15¢

(R1),RO
(RO)+,(R2)
114
¢ ,,-1(R2)

104
-(R2)

PRINTX

@TSSOEF ,#TMPBFR

MoV

#TSSDEF, -(SP)

MOV

OTMPBFR, -(SP)

1 TEMPORARY ASCII BUFFER
sASCII EQUIVALENT OF BITS

1BRANCH WHEN ALL ARE DONE
tCLEAR CARRY FOR SMIFY

sPOINTER 70O BIT DEFINITION
+MOVE ASCIZ TO BUFFER
1MOVE ALL BITS
1 INSERT A COMMA TO TERMINATE
tPOINT TO NEXT DESCRIPTION

1GET THE REMAINING BITS
s TERMINATE THE LINE
[PRINT

THE BIT

OEFINITIONS

TSV3

PRITSSR

MACRO M1113
GLOBAL AREAS
PRINT TSSR CONTENTS
006166

718

719
720
721
722

006172
006174
006176
006202
006204
006210
006214

006214
006216
006222
006226

006230
006232
723 006236
724 006240

725 006244
726 006246

727 006250
728 006252
729 006254
730 006260
006260
006262
006266

731
732
733

734
735

736

006272
006274
006276
006302
006306
006310
006310
606312
006316
006322
006324
006326
006332
006336
006336
006340
006344
006346
006350
006354

14 JUUN 84

14:1°

012746

000002

104415
062706

MOV
MOV
TRAP

000006

ADD

010600

010403
042703
016303
010346
012746
012746
010600

104415
0627C¢

010403
042703
001416
006203
006203
006293
016303

010346
012746
012746
010600
104415

062706
042704

001411

010446

012746
012746

010600

104415
062706
013703
010346
012746
010600
104415
062706
000207

177761
006766

59 004)
02,

(SP)

SP,RO

CIPNTX
o6 ,SP
R4 ,R3
O+CTERCL S.R3

204:

TCOCOD(K3),R3
R3S
#TCOASC

R3, (SP)
®TCOASC,

006566
000002

1GE)

THE

1PRINT

TERMINATION CODE MEANING

THE

TERMINATION COOE

(SP)

SP,RO
COPNTX

06, 5P
R4 ,R3
@tCFATERR,Q3

000006
177717

254

R3
R3
R3

TSFCOD(R3),.R3
@TFCASC ,R3

007326

; TSSR CONTENTS AGAIN
tCLEAR ALL BUT FATAL TERMINATION
1DON'T PRINT IF ZERO
1ALINE TERMINATION CODE FOR INDEX
tGET THE FATAL TERMINAT ON CODE
iPRINT

THE

FATAL

TERMINATION CODE

®TFCASC, -(SP)

006627
000002

000006
176377

1GET THE TSSR CONTENTS
1CLEAR ALL BUT TERMINATION

02,

(SP)

SP,RO
CIPNTX
“.y

#tCHIADOR
, R4

2S$:

304

OTEXASC,R4

sCLEAR ALL BUT EXTENDED ADORESS
1OON'T PRINT IF ZERO

sPRINT

THE

EXTENDED ADORESS BITS

OTEXASC, -(SP)

006525

000002

SP,RO

CSPNTX
&6 ,SP
EPRTSW,R3

002170

:PRINT MEAASGE BUFFER ADDRESS

1PRINT

PROPER MESSAGE

01,-(SP)

000001
TRAP

RTS

SP,RO
CSPNTX

4,70
PC

:RETURN TO CALLER

MACRO M1113
TSV3 - GLOBAL AREAS
PRITSSR - PRINT TSSR CONTENTS
748
749

006356
006446

755 006505

756 006525

757 006566

758 006627

S9 006676
760 006725
761
762 006766
763 007006
764 007031
765 007057
766 007101
767 007121
768 007203
769 007252
770 007276

m
772

713 007326
774 007336
775 007372

776 007403
777 007447
778

045
045

045
045
045
045
045
045
007006

116
124
124
106
122
122
125
106

007336
111
122
102
122

14 JUN 84

+16
116
116
116
116
116
116
116

045
045
045
045
045
045
045
045

007031
157
145

165
145
145
156

007057
162
162
160
156
143
143
162

007372
156
145
165
145

007403
164
163
163
163

141

14:1°

EPRT]:
EPRT2:

TSSRFOR
:
TEXASC;
TCOASC:
TFCASC:
TSSOEF
:

AMBRTSSR:

.ASCIZ
.ASCIZ

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

.ASCI2Z
.ASCIZ
.EVEN

164

TSFCOO:
1¢:
2$:

« WO~y
.A5CI2
.ASCI2
.ASCIZ
.ASCIZ
.EVEN

5¢Q 004r
"#NSA

eseeoCHECK

‘BNEA seesesCHECK

CABLES BETWEEN M7196

AND

TRANSPORTess

TRANSPORTeesee

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

'UNSA

‘Normel

iermimnation’

TSSR

%06

‘'SNSA Extended Address Bits

'"#NA Termination Cless Code

‘dNsA Fotel

806
*

Termination Cless Code

SNSA TSSR Bite Set: sT'
‘dNBA TSSR Contents Are Amb
i guous

- #7

‘Termination Condition’

'Tepe Stetus Alert’

‘Function Reject’

‘Recoverable Error
'Recoverable Error

Teape Position Une Record Down
Tape Wes Not Moved

‘Unrecoversble Error
‘Fetal Controller Error

14,24,34,4¢
‘Internsl Disgnostic Failure’
'Reserved’

'Bus Interfece or Sen:ty Check Error’
'Reserved’

MACRO TM1113
14 JUN-84 14:)°
TSV3
GLOBAL AREAS
COMMAND PACKET
COF
S
ADDRESS/CONTENT
THE
PRINT
PRIPKT

LSBTTL

78¢

781
782

785
786
787
788
789

ADDRESS/CONTENTS OF

COMMAND PACNMET

: INPUT :

790
791
792

007532
807 007534
007536
007540
810 007544
811
812 007550
813 007552
007552
007554
007556
007562
007566
007570
007572
814 007576
815 007600
816 007602
817 007604
818
819 007606
820 007644
821

THE

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

803 007502
804 007504
805 007506
007506
007510
007512
007516
007522
007524

PRIPKT

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

783

793
794
795 007460
796 007460
797 WT464
798 007466
799 007472
800 007474
801 007476
802 007500

56Q 0043

RO
R3
RA

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

NOTE:

R3 IS

IGNORED

THE KTENABLE

FLAG IS CLEAR,

:
PRIPKT:

010005
005737
001001
005003
010301
010400
006100
006101
010446
010146
012746
012746
010600

104414
062706
010300

001404
010401
004737
010004
005001
012402

010246
010146
012746
012746
010600
104414

SAVREG
MOV

003124

TST

10¢:

BNE
CLR
MOV

MOV

ROL
ROL
PRINTB

MOV
MOV
MOV
MOV
MOV

007644
000003

TRAP

000010

15¢:

MoV

204 :
254

CLR
MOV

017406

000010

045
045

116
116

10¢

R3
R3,R1
R4 ,RO
RO
R1
#PKTADD,R1,R4
R4, -(SP)

R1,-(SP)
#PKTADD,

sSAVE THE REGISTERS
:SAVE NO. OF WORDS IN PACKET
;sABOVE 28K UNDER TEST?
tBR IF YES
$SET HIGH ORDER ADDRESS 10O O
;1COPY HIGH ORDER ADDRESS
;GET LOWER ADDRESS
sSHIFT BIT 15 INTO C BIT
tAND INTO HIGH ORDER.
sPRINT PACKET ADDRESS

(SP)

SP,RO
C4PNTB

#10,SP
R3,RO
204
R4 ,R1
PC,SETMAP
RO.R4
Rl

;GET HIGH ORDER ADORESS
:BR IF NOT ABOVE 28K.
tGET LOW ORDER ADORESS
1SETUP PARG6 MAPPING FOR 18 BIT ADORESS
1GET RETURNED PAR6 ADDRESS BIAS
1SAVE WORD NUMBER

MPKTFRM ,R1,R2

;PRINT

(R4).,R2

1GET PACKET CONTENTS
THE DATA

R1,-(SP)
OPKTFRH, -(SP)

007606
000003

062706
005201
020105
002762
000207

RO,RS
KTENASLE

SP,RO
CSPNTB

010,5P
R1

R1,R5
25%

045
045

PKTFRM:
PKTADD:

,ASCIZ
.ASCIZ
.EVEN

tNEXT WORD NUMBER
sDONE ALL PACKET WORDS?
sLOOP TILL ALL DONE

; RETURN

‘+ NMA Packet Word #uD1sA = %06
‘#N%A Packet Address * #01%05'

[ 4
TSV3

PRIBXOR

MACRO M1113

GLOBAL AREAS

14 JUN-84

PRINT EXPD, RECV AND XOR BYTE

82%
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838 007702
839 007702
840 007706
841 007710
842 007720
843 007724
844 007726
845 007730
846 007732
007732
007734
007736
007740
007744
007750
007752
007754
847 007760
007762
849
850 007764
851
852
853
854
855
856
857
858
859
860
861

.SBTTL

SEQ 004aa
PRIBXOR

EXPD,

RECV AND XOR BYTE

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

;INP iS:
:
:

RECEIVED DATA

EXPECTED DATA

XOR OF EXPECTEO/RECEIVED DATA

L OUTPUT:
:

PRIBXOR::
012700
040001
04000¢
040003
010346
010146
010246
012746
012746
010600
104414
062706
010300
000207
045

tSAVE THE REGISTERS

R2,R3
R1,R3

010203

#1tC<377>,R0

177400

RO,R1
RO,R2
RO,R3

;EXPECTED DATA
1FORM THE EXCLUSIVE OR

1BYTE MASK

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

#XORBFOR,R2 ,R1,R3

R3,-(SP)

TRAP

000012

116

;PRINT THE MESSAGE

OXORBFOR, -(SP)
04, -(SP)

007764

MOV
RTS
045

XORBFOR:

.EVEN
.SBTTL

SP,RO
C¢PNTB

912,5P
R3,RO
PC

1RO HAS XOR ON RETURN
;RETURN TO CALLER

.ASCIZ

'wN#A EXPD:

PRIXOR

#03%A RECV:

PRINT EXPD,

#03sA XOR.

RECV AND XOR

HR4

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

s THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES.

: INPUTS;
:
:

Rl
R2

RECEIVED DATA

XOR OF EXPECTED/RECEIVED DATA

862
863
865

867 010032
010032
869 010036
870 010040
871 010050

14:1°

010203

SAVREG

MOV
XOR

PRINTB

EXPECTED DATA

Re2,R3

i SAVE THE REGISTERS
1EXPECTED DATA

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

%03

TSV3 - GLOBAL AREARS

MACR(O MI113

PRINT EXPD, RECV AND XOR

FRIXOR

010050
010052
010054
01G056

010346
010146
010246
012746

872 010076
3;3 010100

010300
00020~

010062
010066
010070
010072

875 010102
876

14 JUN-8B4 14:1”

010102
000004

012746
010600
104414
062706

000012

045

116

XORFOR:

MOV
MOV
MOV
MOV

R3, (SP)
R1, (SP)
R2, (SP)
OXORFOR, (SP)

MOV
RTS

R3,RO
PC

,ASCIZ

‘wNwA EXPO: w06%A RECV: #06%A XOR: #06'

MOV
MOV
TRAP
ADD

045

SEQ 0045

.EVEN

04, -(SP)
SP,RO
C4PNTB
el12,5pP

1RO HAS XOR ON RETURN
+RETURN TO CALLER

e}
MACRO M1113
TSv3
GLOBAL AREAS
- PRINT BIT NUMBERS AS ASCII
PRIEQU

14 JUUN 84

EQUIVALENT

14:1”
LSBTTL

878

58Q 004¢
PRIEQU

PRINT BIT NUMBERS AS ASCII EQUIVALENT

879

880
881
882
883

;ROUTINE TO CONVERT BIT VALUES TO ASCII AND PRINT THE STRING
: THIS ROUTINE IS NORMALLY CALLEC FROM A PRINT ROUTINE

884
885

: INPUTS:

886

887

888
889
890
891
892 010150
893 010150
894 010154
895
896
897
898
899

PRIEQU:

SAVREG

RTS

000207

SBTTL

OCTAL VALUE TO CONVERT

TABLE OF POINTERS TO ASCII EQUIVALENT

JSAVE

PRIRAM

THE REGISTERS

:RETURN TO CALLER

PRINT RAM ADDRESS

;‘

:PRINT CONTROLLER RAM ADDRESS.

' THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.

900
901
902

903
904
905
906
907 010156
908 010156
909 010162
010162
010164
010170
010174
010176
010200
910 010204
911
912 010206
913

: INPUTS:
:

PRIRAM:
010446

012746
012746
010600
104414
062706
000207

010206
000002

045

116

SAVREG

PRINTB
MOV

#RAMFOR,R4
R4, -(SP)

MOV
MOV
TRAP
ADD

02.-(SP)
SP,RO
C$PNTB
06, 5P

MOV

045

RAMFOR:

RAM ADDRESS

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

SRAMFOR
. - (SP)

RTS

;RETURN

.ASCIZ
.EVEN

'#N®A CONTROLLER RAM ADORESS *= %06’

[4
TSV3

- GLOBAL AREAS

PRIADD

PRINY

MEMORY

MACRGC M1113
ERROR

5EQ 0047

.SBTTL

PRIADD

MEMORY ERROR ADDRESS

:PRINT MEMORY ADDRESS
{ THIS ROUTINE

919
920

IS NORMALLY

CALLED

ONLY

FROM PRINT

ROUTINES.

. IMPLICIT INPUTS

921
922

;

923
924

;

925
926

010272
010274
010276
010302
010306
010310
010312
935 010316
936
937 010320
938
939
940
941
942
943
944
945
946

14:]°

ADDRESS

91s
216
917
918

927 010250
928 010257
929 010254
930 010260
931 010264
932 010266
933 010270
934 010272

JUN-84

ERRHI

SAVREG
MOV
MOV
MOV

ERRHI,RO
ERRLO,R1
R1,R2

ERRLO

HIGH ORDEK ADDRESS

- LOW ORDER ADDRESS

PRIADO:

013700
013701
010102
006101
006100
010246
010046

002226
002230

ROL
ROL
PRINTB

012746
012746
010600
104414
062706

010320
000003

045

116

000207

MOV
MOV
MOV
MOV
MOV

045

PRIAO:

$SHIFT BIT 15 TO C BIT
$SHIFT INTO HIGH ORDER
$PRINT MEMORY ADDRESS IN ERROR

SP,RO

TRAP

CS$PNTB

RTS

.ASCIZ

'wNwA MEMORY ERROR

ADD

000010

R1
RO
@PRIAO,RO,R2
R2,-(SP)
RO, -(SP)
OPRIAO, -(SP)
03, -(SP)

$SAVE R1-RS UNTIL NEXT RETURN
;GET HIGH ADORESSS
;GET LOW ADORESS
:COPY LOW ADORESS

10,5P

s RETURN
ADDRESS

#01%05°

.EVEN

.SBTTL

PRITADD

PRINT MEMORY

TEST ADDRESS

HR4

:PRINT MEMORY ADDRESS

: THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.

: IMPLICIT INPUTS

947
948
949

ERRHI

ERRLO

- LOW ORDER ADDRESS

SAVREG
MOV
MOV

ERRHI ,R2
ERRLO,R1

HIGH ORDER ADDRESS

951

010364
953 010364
010370
955 010374

PRITADD:

013702
013701

002226
002230

957

959 010400
010400
010402
010406
010412
010414

010146
012746

012746
010600
104414

010446
000002

; MOV
s ROL

R1,R2
R1

s ROL
PRINTB

RO
#PRITO,R1

MOV

02,-(SP)

MOV
MOV
MOV

TRAP

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

C$PNTB

1SAVE R1-RS UNTIL NEXT RETURN
;GET HIGH ADDRESSS
;GEY LOW ADDRESS

;COPY LOW ADDRESS
;SHIFT 81T 1S 70 C BIV

;SHIFT INTO HIGH ORDER
;PRINT MEMORY ADDRESS LOW

IN ERROR

4
TSV3
GLOBAL AREAS
PRINT MEMORY
PRITADD

010416
960 010422

010422
010424
010430
010434
010436

010440
%1 010444

9%3 010446
010511
965

062706
010246
012746
012746
010600
104414
062706
000207
045
045

MACRO M1113
TEST ADDRESS

14 JUUN 84

000006

000002

000006

045
045

PRITO:
PRIT1:

SEQ 0048

ADD
PRINT8B

OPRIT1 R

MOV
MOV

OPRITL, (SP)
@2,-(SP)

MOV
TRAP
ADD

SP,RO
CsPNTB

MOV

010511

116
116

14:]°
6 ,5P

MEMORY

ADDRESS HIGH

96 ,5P

RTS

.ASCIZ
.ASCIZ

‘WNsA MEMORY
‘WN®A MEMORY

.EVEN

:PRINT

;RETURN

TEST
TEST

ADDRESS LOW = %06
ADDRESS HIGH - %06

IN ERROR

TSv3

SPACE

GLOBAL AREAS

MACRO M1113

14 JUN-84

.SBTTL

968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
87
988
989
990

5EQ 0049

SpP ACE RECORDS (FORWARD AND REVERSE) COMMAND

SPACE

:RC TINE TO ISSUE A SPACE RECORDS
:COMMAND (FORWARD OR REVERSE)

;INPUT:
:

:
:
;
:

)

R3
RS

NUMBER OF RECORDS TO BE SPACED OVER
BIT1S
BIT1S
BIT15
FIRST

CONTROLS DIRECTION
= O IS FORWARD
» 1 IS REVERSE
DEVICE UNIBUS ADORESS

REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY

:0uTPUT
:

CARRY

SET

;

THE CONTENTS OF R4 IS MOVED TO RO

;

991
992
993

994
995
996
997
998
999
1000
1001
1002 010556
1003 010556
1204 010562
1005 010570
1006 010576
1007 010600
1008 010602
1009 010606
1010 010610
1011 010614
1012 010620
1013 010626

1014
1015
1016
1017

14:1”

SPACE RECORDS (FORWARD AND RFVFRSE) COMMAND

010632

010636
010642
010644
010644
010650
010652
010656
010660
010664

CLR

SPACE RECORDS COMMAND OK

SPACE RECORDS FAILED

:IMPLICIT OUTPUT:

TAPE HAS BEEN MOVED

:SIDE EFFECTS:

::
SPACE
012737
012737
005703
100403
010337
000407
042703
010337
052737
012704
010465
004737
103420
012727
00000C
013727
000000
005367
001375

000764
140010

010750
010740

000250
002116

177772

Ss.
010740

108:
15¢:

#500. . SDELAY
0140010.80%

:SAVE THE GENERAL REGISTERS
:SET UP DELAY
:SET UP COMMAND. SPACE FORWARD

TST

CHECK FOR DIRECTION

B8R

104

:GO DO COMMAND

BMI
10V

010742

100000
010742
000400
010740
000000
016340

SAVREG
MOV
MOV

s
R3,90%

8IC
MOV

#8IT15,R3
R3,90%

MOV
JSR
BCS
DELAY
MOV
WORD

R4, TSDB(RS)
PC.WAITF
20+
250
#250,(PC)+
0

BIS
MOV

MOV

WORD
DEC
BNE

o8178,804
0804 R4

LSDLY.(PC)+

6(PC)
4

:BR, IF REVERSE INOICATED
;LOAD UP NUMBER OF RECORDS

TO SPACE

:CLEAR DIRECTION BIT
iLOAD UP NUMBER OF RECORDS

TO SPACE

1SET REVERSE BIT IN COMMAND PACKET
SET UP R4 WITH PACKET ADDRESS

SEND OUT COMMAND
:WAIT FOR SSR
:BR, IF SSR IS SET
;DELAY ABOUT .25 SECONDS

AND OK

TSV3

SPACE

1018
1019
1020
1021
1022

1023
1024
1025
1026

1027
1028
1029
1030
1031
1032
1033
1034
103

1036
1038
1040
1041
1042
1043
1044
1045
1046
1047
1048
1049

MACRO M1113
14 JUN-84 14:]1°
SPACE RECORDS (FORWARD AND RFVERSE) COMMAND

S5EQ 0050

GLOBAL AREAS
010666
010672
010674
010700
010702
010704
010710
010714
010716
010720
010722
010724
010726
010730
010730
010732

005367
00136
005337
001356

000411

016501
012702
020201
001401
000402
000261

000401
000241

DEC
BNE

177756
010750
000002
000200

2Ss:

404 :

604 :
70%:

010400
000207

22(PC)
20

DEC

SDELAY

B8R

604

BNE

208 :

MOV
MOV
cp
BEQ

B8R

SEC

CLC
MOV

RTS

;BUMP DELAY COUNTER DOWN
t1BR, IF MORE DELAY

15¢

TSSR{RS),R1
OSSR ,R2
R2,.R1
404

t1BR IF

TROUBLE CARRY

s+READ TSSR
1SET UP EXPECTED

sARE

THEY 0K

sBR, IF EQUAL = 0K
: TROUBLE EXIT
;SET CARRY NO TROUBLE

sEXIT

708

;CARRY CLEAR = ERROR

;PASS PACKET ADDRESS
;sRETURN

R4 RO
pC

:PACKET FOR SPACE COMMAND
010740

“c.+105£177770

:COMMAND WORD

010740

804

. WORD

010742
010744
010746
010750

904 :

. WORD
. WORD
. WORD
.WORD

;{NUMBER OF RECORDS TO Bt SPACED OVER WORD

SOELAY:

.EVEN
.SBTTL

;DELAY COUNTER

O
WRTCHR

WRITE

CHARACTERISTICS COMMAND

= (LEAR

M
MACRO M1113
14 JUN 84
GLOBAL AREARS
WRITE
CHARACTERISTICS
COMMAND
WRTCHR
TSV3

105:
105¢
1053
1054
1055
1056
1057
1058
1059

SEQ 0051

{ROUTINE TO ISSUE A WRITE CHARACTERISTICS
:COMMAND SO THAT OTHER COMMANDS WILL BE

;INPUT:

oUTPUT;

CARRY

: IMPLICIT

ACCEPTED

ADORESS OF PACKET FROM TEST
FIRST DEVICE UNIBUS ADDRESS

R4
RS

REQUIRES A CALL

1060
1061
1062
1063
1064
1065
1006
1067
1068
1069
1070
1071

TO SOFINIT BE DONE PREVIOUSLY

TSSR CONTENTS
WRITE CHARACTERISTICS COMMAND Ox
WRITE CHARACTERISIICS FAILED

SET
CLR

OUTPUT:

MESSAGE BUFFER AND OTHER BUFFERS ALL SET UP
SOF TWARE SWITCHES SET AS FOLLOWS:
EXTFEA = EXTENDED FEATURES PRESENT

BENBSW

BUFFFR ENABLE

SWITCH ON OR OFF

:SIDE SFFECTS:

1072
1073

1074 010752
1075 010752
1076 010756
1077 010762
1078 010766
1079 010772
1080 010776
1081 011000
1082 011002
1083 011006
1084 011012
1085 011016
1086 011020
1087 011024
1088 011026
1089 011030
1090 011032
1091 011036
1092 011040
1093 011046
1094 011050
1095 011054
1096 011054
1097 011062
1098 01:064
1099 011070
1100 011070
1101 011072
1102 011074
1103 011076
1104 011102

14:17

WRTCHR: :
005037
005037
010465
004737

103401

000435
016501
012702
032701
001402
052702
020201
001401
000421
062704
011403
032763
001402
005237

032763
001402
005237
000261
000401
000241
016500
000207

002220
0n2216

10¢.

016426

204

000002
000200
000100

020100

25%:

40%
.

000010
000200

000012

002216

45%
.

SAVREG
CLR
CLR
MOV
JSR
BCS
BR
MOV
MOV
8IT7
8EQ
8IS
cHP
BEQ
BR

ADD

MOV
8IT
8EQ
INC

002220

817
8EQ
INC

000002

SEC
B8R
CLC
MOV

000100

000012

:
604
708
:

RTS

BENBSW
EXTFEA

R4, TSDB(RS)

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

PC,CHKTSSR

;SEND QUT COMMAND
:WAIT FOR SSR

204
604

;BR, IF SSR IS SET AND Ov
;BR IF TROUBLE CARRY = CLEAR

o0FL ,R1

;SET UP EXPECTED
;WAS OFF LINE SET IN TSSR
:BR, IF NO OFL SET

TSSR(RS),R1
OSSR ,R2

254
00FL ,R2
R2,R1
40

604
08.

(R4),R3

0X2 . EXTF XST2(R3)
454

EXTFZA

X2 .BUFE,XST2(R3)

504
BENBSW

704

TSSR(
) RS
,RC

;READ

TSSR

;MAKE THEM t OOK
;ARE THEY OK

ALIKE

;BR, IF EQUAL = 0K
;:TROUBLE EXIT
sPOINT TO WRT CHARA DATA PACKET
;GET ADORESS OF MESSAGE BUFFER
sEXTENDED FEATURES BIT SET?

:1BR IF NO
;SET EXTENDED FEATURES SW SWITCH

;BUFFER ENABLE SWITCH SET
:BR, IF SWITCH NOT SET
:SET SOF TWARE SWITCH FOR ENABLED
;SET CARRY NO TROUBLE
JEXIT
;CARRY CLEAR = ERROR
;RETURN

; RETURN

TSSR

CONTENTS

N&
TSVS

REMIND

GLOBAL AREAS

MACRO M11135

14 N 84

POSITION TAPE (REWIND) COMMAND

14:!°

110e

.SBTTL

1107

1110

1108
1109

>EQ 20S2

REWIND

POSITION TAPE (REWINDX6 COPMANG

;
;:THIS ROUTINE WILL REWIND THE SELECTED TAPE

1111
1112

:
.

1114

;

1113

CAUTION:

THE ROUTINE DOES NOY WALIY FOR 807
TO ARRIVE. ALSC THE CALLER MUST CHECH FOR

SSR TO SEY IN THE TSSR

1115

1i16

sCALLING SEQUENCE.

1:18
1119
1120

;
.
.

DO A SOFT INIT
DO A 'RITE CHARACTERISTICS
JSR
PC.REWIND

; INPYT
.
;

FIRST DEVICE UNIBUS ADODRESS

THE CONTENTS OF R4 IS PASSED T0 RO

1117

1121

1122
1123
1124

1125
1126

:
.

1128

1127

;UTPUTY

1129
1130

;
:

1133 011104

REWIND. :

1131
1132

1134 011104

;

1135 011110
1136 011114

012704
010465

011200
000000

1138 011124
1139 011130

004737
103417

016340

1137 011120
1140 011132

011132

012727

011136
011140
011144

000000
013727
000000

011152

001375

011146
011154

114"

012703

011160
011i62

1142 011164

11435 011166
1144 011170

%i:g 011172
1148

1150 011200

1151 011200
1152 011202

000550

002116
177772

005367

177756

011200
102010

000000

PC.WAITF
20¢

MOV

0250..,(PC).

BNE

:SAVE R1-RS UNTIL

NEXT WETURN

;GET PACKET ADDRESS
;SEND PACKET ADDRESS TO EXECUTE
;ENOUGH TIME FOR 2400

;WAIT FOR SSR TO SET
;LEAVE WHEN SSR IS SET

:MAIY FOR

REEL

.25 SECONDS

-6(PC)

22(PC)

.-20

DEC

;BUMP COUNTER DOWN

cLC
MOV

R4 ,RO

;:CLEAR CARRY TO SET ERROR
;:PASS THE PACKET AODRESS

BNE

RWPACK:

250.

0
LDLY,(FC).
0

BNE

20$:

0300. ,R3

. WORD
MGV
. WORD
DEC

001357

000207

JSR
BCS

MOV

OEC

005303

000241
010400

SRWPACK R4
R4, TSDB(RS)

OELAY

000372

005367

001367

10%:

SAVREG

MOV
MOV

RTS

10%

s KEEP GOING

;RETURN

L=<, +10>E177770
. WORD

.40RD

102010

;POSTION COMMAND (REWIND)
:NOT USED

TO REWIND

b
TSV

CKRAM

GLOBAL AREAS

MACRO M1113

COMPARE RAM T0O 1/0 PACKET

14 -JUN-84

14:]°
.SBTTL

1154
1155
1156
1157
1158
1159
116C

COMPARE RAM T0 1/0 PACKE!?

CXRAM

{ROUTINE TO READ THE FIRST 8 BYTES FROM RAM

{MEMORY AND COMPARE TMIS DATA TO A COMMAND PACKET.
3

s INPUT

1161
1162

3
:

1164

ADORESS OF THE COMMAND PACKET

R4
RS

1163

FIRST

DEVICE

SET
CLR

RAM MATCHES PACKET
RAM DOES NOT MATCM PACKET

UNIBUS ADDRESS

sOUTPUT:

1165
1166

CARRY

1167
1168
1169

{IMPLICIT OUTPUT:

1170

1171
1172
1173

THE

RAMSIZ

;

1175
1176

[ SIDE

1177

TABLE

RAMDATA

IS FILLED WITH

OATA HELD IN RAM,

1174

SET

70 8.

FOR PRAMPKT

THE

ROUTINE

EFFECTS:

1178
1179

1180
1181

1182 011204
1183 011204
1164 011210
1185 011214
1186 011220
1187 011222
1188 011226
1189 011234
1190 011240
1191 011244
1192 011250
1193 011254
1194 011256
1195 011260
1196 011262
1197 011264
1198 011270
1199 011272
1200 011274
1201 011276
1202 011300
1203 011302
1204 011304
1295 011312

SEQ 0053

THE

SUBSYSTEM

IS LEFT

CKRAM:
:

012701
012702
005003
004737

016426

004737

016426

112765

010265
004737
116511
122124

002232
000201

10¢:

005202
020227
003761
005703
001402
000241
000401
000261
012737
000207

sWAIT FOR SSR T0O SET
sREAD THE RAM DATA
1COMPARE TO EXPECTED

R3
Re
R2 , 0RMPKTEND

1 ADDRESS OF NEXT RAM LOCATION

(R1)+,(R4).
204

001401
003203

000210

10¢

30¢

000010

002272

304:
504:

;SAVE THE GENERAL REGISTERS
1ADORESS TO SAVE THE RAM DATA
18YTE ADDRESS OF FIRST RAM DATA
tCLEAR THME ERROR FLAG
;WAIT FOR SSR
1SET MAINTENANCE MODE
sWAIT FOR SSR TO SET
1SELECT NEXT RAM ADORESS

TSBA(RS),(R1)

PC,CHKTSSR

016426

IN MAINTENANCE MOOE

S0¢
08. ,RAMSIZ

sREACHED END YET ?
1BRANCH TILL ALL READ
tWAS AN ERROR FOUND ?
1BRANCH IF NOT
1CLEAR CARRY TO SHOM ERROR
1AND EXIT
1 SHOW GOOD COMPARE
1SETUP RAMSIZ FOR PRAMPKT ROUTINE
s RE TURN

AL AREAS

JUN 84

*l 1’

.SBTTL

{MEMORY AND COMPARE

THIS DATA TO A CHMARACTERISTICS DATA BLOCK.

R4
RS

ADDRESS OF THE CHARACTERISTICS DATA
FIRST DEVICE UNIBUS ADORESS

CARRY

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

S0 ws

s INPUT

IMPLICIT QUTPUT:
THE

TABLE RAMDATA

IS FILLED WITH

DATA HELD IN RAM,
RAMSIZ IS SET TO 8.

OR 10.

THE

FOR PRAMPKXT ROUTINE

85 %c

@e B

ouUTPUT

SIDE EFFECTS:
THE

SUBSYSTEM

IS LEFT

IN MAINTENANCE

MODE

KRW

112765

00000C

004737
116511

016426
000000

011426
011432
011434
011436
011440
011442
011444
011446

QAM 10 1/0 CHARACTERISTICS DATA

011336

011402
011406
011410
012416
011422
011424

COMPARt

;ROUTIPC TO READ THE FIRST 8 OR 10 BYTES FROM RAM

002232
000167

011350
011354
011360
011364
011366
011370
011372
011374

CXRAM?

012701
012702
005003

011332

56Q 0054

011320
011324
011330

1240 0151344

1241
1242
1243
1244
1245
1246
1247
1248
1249
1250
1251
1252
1253

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 011314
1234 011314

1235
1236
1237
1238
1239

MACRO M1113

GLC%WARE RAM T0 T ‘0 CHARACTER IS TICS DATA

() oc

TSVS
CxRAM?

004737

004737
010265
122124
001401
005203
005202
012737
005737
001407
012737
020227
003750
000403
020227
003744
005703
001402
000241
000401
000261
000207

016426

016426
(00000

000000

10¢:

SAVREG
MOV
MOV
CLR
JSR

PC,CHKTSSR

JSR

PC,CHKTSSR

ORAMDATA
R1

:?C’OEG.R?
G, TSOB(RS
;

TSBA(RS) (R1)

(R1)+,(R4).

204

000010
002216

002:72

000012
000200

002272

000176

R3
R2

20¢:

#8. ,RAMSIZ
EXTFEA
254
#10. ,RAMS12

R2 , #RMCHEND

10¢
274
R2, ORMCHEND -2
104

25¢:

:
304
S04:

30¢

SEC

RTS

S04

1SAVE THE GENERAL REGISTERS
s ADDRESS TO SAVE THE RAM DATA
1BYTE ADDRESS OF FIRST RAM DATA
tCLEAR THE ERROR FLAG
1WAIT FOR SSR
1SET MAINTENANCE MODE

sWAIT FOR SSR 7O SET
$SELECT NEXT RAM ADDRESS
sWAIT FOR SSR TO SET
1READ THE RAM DATA
;COMPARE TO EXPECTED
$BRANCH IF 0K

$1SET ERROR FLAG
1ADDRESS OF NEXT RAM LOCATION

sASSUME EXTFEA NOT SET
1IS THE SOFTWARE EXTENDED FEATURES SET
18R, IF NOT SEY
1SET RAMSIZ FOR EXTEND FEATURES
1AT END OF EXTENDED BUFFER
;BR, IF NOT AT END YET
AT END BRANCH
sREACHED END YET

sBRANCH TILL ALL READ
1WAS AN ERROR FOUND °?

1BRANCH IF NOT

1CLEAR CARRY TO SHOMW ERROR
1AND EXIT
;1SHOM GOOD COMPARE
1RETURN

)
TSVS

CxMSG

GLOBAL AREAS

MACRO M1113

14 JUN 84

COMPARE WRITE CHAR. MESSAGE BUFFERS

14:1"

.SBTTL

1264
1265
1266

EQ 0055

CXMSG

COMPARE WRITE CHAR,

MESSAGE

BUFFERS

‘0

{ROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPD AND RECV

1267

1BUFFER,

1268

THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR

;ERROR PRINT ROUTINES.

1269
1270
1271
1272
1273
1274
1275
1276

L INPUT:
3

RO
R1

R2
H
sOUTPUT;

1277

CARRY

1278

1279
1280
1281
1282
1283
1284
1285
1286
1287
1288
1289 011450
1290 011450
011454
011460

011564
011470
011472
011476
011500
011502
011504
011506
011512
011516
011520
011522
011524
011530

011534
011536
011544
011546
011552

011554

011556
011560
011562
011564
011566

RECV MESSAGE BUFFER KIGH ORDER ADDORESS
RECV MESSAGE BUFFER LOW ORDER ADORESS
EXPD MESSAGE BUFFER ADDRESS

SET
CLR

- MESSAGE BUFFERS MATCH
-MESSAGE BUFFERS DON'T MATCH

s IMPLICIT OUTPUT
EXPMSG
RECMSG

;

RCVHIADO
RCVLOACO

BUFFER
BUFFER
SET TO
SET TO

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

CKMSG:
:

010037
010137
005737
001403
004737
010001

005003
010205

011264
011164

022221
001401
005203
062704
020427
003764
032765
001403
020427
003755
005703
001402
000241
000401
000261
000207

017406

10¢:

CLR

002312
002456

15¢:

MOV

000002
000014

254

ADD

000200

sSAVE R1-RS UNTIL NEXT RETURN
1SAVE RECV HIGH ADDRESS
1SAVE RECV LOW ADORESS
1TESTING ABOVE 28K?
18R IF NO
PC,.SETHAP
sRETURN ADDRESS BIASED TO PAR6 IN RO
RO,.R1
;1GET RETUKNED ADORESS BTASED TO PAR6
R4
;WORD IN BUFFER
R3
sCLEAR ERROR SEEN FLAG
R2,RS
1GET EXPD BUFFER ADDRESS
(R2) ,EXPMSG(R4 ) $1SAVE EXPD FOR ERROR REPORT
(R1),RECMSG(R4) 1SAVE RECV FOR ERROR REPORT
(R2)+,(R1)»
;EXPD EQUAL RECV?
18R IF YES
1SET ERROR SEEN FLAG
sPOINT TO NEXT WORD ADDRESS
sOONE FIRSY 7 WORDS?
;1BR IF NO
RO,RCVHIADD
R1,RCVLOAD
KTENABLE
104

002274
002276
003124

)1 IS EXTENDED FEATURES SET IN EXPD?
1BR IF NO
1OONE EXTENDED FEATURES WORD?
1BR IF NO
t ANY ERRORS SEEN?
18R IF NO
1SET FAILURE

000012

000016

554 :
604 :

SEC

RTS

1SET SUCCESS
;RETURN

1361

1363
1364
1365
1366
1367
1368
1369

14 JUN 84

011612
011616
011620
011622
011626
011632
011636
011642
011644
011650
011652

011654

011656
011662
011666
011670
011672
011674
011700
011702
011704
011706
011710
011712
011714
011716
011720

14:)7

SER 0056

.SB8TTL

CKMSG2

COMPARE EXPD RECV MESSAGE BUFFERS

;ROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE

:BUFFER.

THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR

;ERROR PRINT ROUTINES.

RO
R1
R2
R3

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

CARRY

SET
CLR

OUTPUT;

B¢

:INPUT ;

1319
1320
1321
1322
1323
1324
1325
1326
1327
1328
1329
1330
1X31
1332
1333
1334
1335
1336
1337
1338
1339
1340
1341 011570
1342 011570
1343 011574
1344 011600
1345 011602
1346 011606
011606

1347
1348
1349
1350
1351
1352
1353
1354
1355
1356
1357
1358
1359
13690

MACRO M1113

COMPARE FXPD RECV MESSAGE BUFFERS

- MESSAGE BUFFERS MATCH
- MESSAGE BUFFERS DON'T MATCH

®c

CKMSGe

GLOBAL AREAS

: IMPLICIT OUTPUT:
EXPMSG
RECMSG

®s

TSV3

RCVHIADO
RCVLOADD

CKMSG2: :
020327
003412
012703

000144

012746

011722

012746
010600
104417
062706
010037
010137
005737
001403
004737
010001
005004
005005
111264
111164
122221
001401
005205
062704
020403
002001
000764
005705
001402
000241
000401
000261
000207

000144

MOV
MOV
MOV
TRAP

#DEBUGMSG,
- (SP)
o1, -(SP)
SP,RO
CS$PNTF

MOV
MOV

RO,RCVHIADD
R1,RCVLUAD

TS7

B8EQ

017406
10¢:

002322
002456

15¢:

000001

25¢:

50¢:

JSR
MOV
CLR
CLR
MOVB
MOVB
cHPE
BEQ
INC
ADD
cHP
BCE
BR
T1S7T

B8EQ
cLC

55¢:
604
:

TO LOW ORDER ADDRESS OF RECV

;SAVE R1-RS UNTIL NEXT RETURN
R3,MRECHMSG-EXPMSG;
880 IS COUNT ABOVE MAX ALLOWED?
St
;880 BR IF NO
ORECMSG -EXPMSG,R3; 380

ADOD

000004
002274
002276
003124

SET

SAVREG
cHP
BLE
MOV
PRINTF

000001

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

B8R

SEC
RTS

#DEBUGMSG

o4 ,SP

KTENABLE

10¢

; a0

1SAVE RECYV HIGH ADDRESS
1SAVE RECV LOM ADORESS
s TESTING ABOVE 28K?

tBR IF NO

PC,SETHAP
RO,R1
R4
RS
(R2),EXPMSG(R4)
(R1).RECMSG(R4)
(R2).,(R1).
25¢
RS
#1,R4
R4 ,P3
S0¢
15¢
RS

sRETURN ADDRESS BIASED TO PAR6 IN RO
1GET RETURNED ADDRESS BIASED T0 PAR6
tWORD IN BUFFER
sCLEAR ERROR SEEN FLAG
;SAVE EXPD FOR ERROR REPORT
;SAVE RECYV FOR ERROR REPORT
1EXPD EQUAL RECV?
1BR IF YES
1SET ERROR SEEN FLAG
tPOINT TO NEXT BYTE
sOONE ALL BYTES?
18R IF YES
;00 NEXT BYTE
:ANY ERRORS SEEN?

604

;

554

18R IF NO

$1SET FAILURE
1SET SUCCESS
1 RETURN

TSV3

CKMSGe2

MACRO M1113

GLOBAL AREAS

14 JUN-84

- COMPARE EXPD RECV MESSAGE BIFFERS

1371 011722

1372 012012

1373 012023

1374 012056
1375 012111
1376
1377
1378

120
045
040
056
124

122
116

117
045

105

056
123

04¢
056

1380
1381

1382

1383
1384
1385
1386
1387
1388
1389
1390
1391 012124

1392 012124
1393 012130
1394 012134
012134
012134
1395
1396
1397
1398
1399

SEQ 057

DEBUGMSG: .ASCIZ 'PROGRAM INTERNAL ERROR -CKMSG2 MESSAGE BUFFER EXCEEDED
4se/
/%NwA
_ASCII
FERCM:
ERCM:
.ASCIZ
7
TSSR ERROR CODE REC'D =
/.... AFTER DOING SOFT INIT/
.ASCIZ
SIMSG:
TINERR:

.ASCIZ
.EVEN

/TEST:

.../

:PRINT ROUTINE TO FATAL SOFT INIT ERRORS
INPUT
CONTENTS OF TSSR AT ERROR
R1
:
:SIDE EFFECTS:

1379

012124

124

14:17

EXECUTES DROP UNIT TO CEASE TESTING

®s

004737
004737

006022
017272

SFIMSG::

JSR

L10003:

104423

BGNMSG SF IMSG

ENDMSG
TRAP

PC.PRITSSR

tPRINT CONTENTS OF TSSR REGISTER

PC.,.CKDROP

;DROP UNIT, IF ALLOWED

C$MSG

:PRINT ROUTINE TO PRINT THE CONTENTS OF

;TSSR AND A COMMAND PACKET OTHER THAN GET

STATUS COMMAND PACKET,

: INPUTS;

1400
1401
1402
1403
1404

TSSR CONTENTS

ADORESS OF

BGNMSG

PKTSSR

JSR
MOV
JSR

PC,PRITSSR
&4 RO
PC,PRIPKT

TRAP

C#MSG

COMMAND PACKET

1405
1406

1407 012136
012136
1408 012136
1409 012142
1410 012146
1411 012152
012152
012152

004737
012700
004737

104423

PKTSSR:
:

006022
007460
L10004:

ENDMSG

;PRINT THE CONTENTS OF TSSR REGISTER
;tNO. OF WORDS IN PACKET
;PRINT THE CONTENTS OF COMMAND PACKET

‘ ;@80

(h'H
TSV3

CKMSG2

GLOBAL AREAS

MACRO M1113

1413

:TSSR AND A GET

1415

1416
1417
1418
1419

SER 0058

STATUS COMMAND PACKET
.

: INPUTS:

:
:

1420
1421

1422 012154
012154
1423 012154
1424 012160
1425 012164
1426 012170
012170
012170

004737
012700
004737

006022
000002
007460

ADDRESS OF

BGNMSG

PKTGETS

JSR

PC,PRITSSR

MOV
JSR

L 10005

104423

TSSR CONTENTS

PKTIGETS:
:

ENDMSG
TRAP

COMMAND PACKET

sPRINT

02 ,R0O
PC.PRIPKTY

THE

CONTENTS

TSSR REGISTER

tNO. OF WORDS IN GET STATUS PACKET
tPRINT THE CONTENTS OF COMMAND PACKET

C#MSG

;PRINY TSSR ERRORS FOR INITIALIZATION TESTS
;s INPUTS

:
H

1432
1433

1434 012172

012172
1435 012172
1436 012176
012176
012176

1437

004737

006022

012200
012204
012206

012210
012214
012214
012214

R}
R4

TSSR CONTENTS
ADDRESS OF COMMAND PACKET

BGNMSG

SFFMSG

JSR
ENDMSG

PC.PRITSSR

TRAP

.SBTTL

CeMSG

PKTMES

;PRINT

CONTENTS OF

TSSR REGISTER

TSSR AND MESSAGE BUFFER

;PRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND MESSAGE

1439

1440
144]
1442
1443
1444
1445
1446
1447
1448
1449 012200
012200

SFFMSG::

L10006:

104423

1438

1450
1451
1452
1453
1454

14:17

{PRINT ROUTINE TO PRINT THE CONTENTS OF

1414

1427
1428
1429
1430
1431

14 JUN-84

COMPARE EXPD RECV MESSAGE BUFFERS

1BUFFER FOR ERROR REPORTS
: INPUTS:

H
H
:
H

004737
010200
010301
004737

104423

006022

PKTMES:
:

014332
L10007:

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

PKTMES

JSR

PC,.PRITSSR

TRAP

C#MSG

MOV
MOV
JSR
ENDMSG

R2.RO
R3,R}
PC.PRMESS

sPRINT CONTENTS OF TSSR

;LOW ORDER ADDRESS
sHIGH ORDER ADDRESS
;PRINI THE MESSAGE BUFFER

Ho
TSV3 - GLOBAL AREAS
MACRO M1113
14 JUN-84 14:17
- PRINT TEST ADDRESS AND TSSR
ADDSSR
1456
145~
1458

.SBTTL
it
sPRINT ROUTINE

1459

ADDSSR

- PRINT

TEST

ADDRESS AND TSSR

TO PRINT

THE CONTENTS OF

;TSSR AND A MEMORY TEST ADDRESS
:

146C

;s INPUTS:

1461

1462

®s

1463
1464
1465

RS
ERRHI
ERRLO

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

BGNMSG

ADDSSR

JSR

PC.PRITADD

;PRINT MEMORY TEST ADDRESS

JSR
ENDMSG

PC.PRITSSR

;PRINT THE CONTENTS OF TSSR REGISTER

TRAP

C$MSG

.SBTTL

MSGEXP

1466

1467

1468 012216

012216
1469 012216

1470 012222

1471 012226
1472 012232
1473
1474

360 0059

012232
012232

004737

010364

004737

006022

016501

ADDSSR: :

000002

MOV
L10010:

104423

1475

1476
1477
1478

:
;PRINT ROUTINE
:

TSSR(RS) ,R1

sIMPLICIT INPUTS:
:

14
1486 012234

H
:
:

012234
1487 012234
1483 012240

012700
005737

000007
002216

1490 012246

012700

000010

1489 012244

1491 012252
1492 012256

012256

001402

004737
104423

014642

MSGEXP: :

L10011:

EXPD-RECV MESSAGE BUFFERS

EXPMSG

- EXPECTED MESSAGE BUFFER

BGNMSG

MSGEXP

MOV
T1S7T

#7,R0
EXTFEA

;ASSUME NO EXT FEATURES
sEXT FEATURES SET?

MOV

#8. ,RO

tEXT FEATURE BUFFER IS 8 WORDS

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

BEQ

Ss:

- PRINT WRITE CHAR.

TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER

1479
1480
1481
1482
1483
ldgg

$GET CURRENT TSSR

JSR

PC . PRMSGE XP

TRAP

C$MSG

ENDMSG

1BR IF NQ

tPRINT EXPD/RECV MESSAGE BUFFERS

MACRO M1113
GLOBAL AREAS
V DATA
EXP/REC
FIFO
PRINT
FIFEXP

TSV3

14-JUN-84

14:1°

.SBTTL

1494

1495
1496

012266
012272

1509
1510
1511

FIFEXP

FIFQ EXP/RLCV

DATA

HE4

012274
012276
012302
012302
012306
012312
012314
012316
012322
012324
012330
012330

012330

1512 012332
1513 012401
1514

{PRINT ROUTINE TO PRINT FIFO EXP/RECV DATA
R1

- BYTE COUNT

:IMPLICIT INPUTS:
EXPMSG

BGNMSG

FIFEXP

PRINTX

OF IF1MSG,R]
R1,-(SP)
OF IF1MSG, -(SP)

RECMSG

EXPECTED MESSAGE BUFFER (CONTAINS FIFO DATA ONLv
RECEIVED MESSAGE

BUFFER

(CONTAINS FIFO DATA ONLY
.

1497
1498
1499
1500
1501
1502
1503
1504
1505
1506 012260
012260
1507 012260
012260
012262

1508

5£Q 0060

FIFEXP:
010146
012746
012746
010600

104415
062706

012746
012746
010600
104415
062706
010100
004737

104423
045
04s

MOV
MOV
MOV
MOV

012332

000002

TRAP
ADD
PRINTX
MOV
MOV
MOV
TRAP

000006

012401
000001

000004

ADD

015212

JSR

MOV

L10012:
16
116

045
045

FIF1IMSG:
FIF2MSG:

SP,RO
C4PNTX
#6,5P

OF IF 2MSG
OF IF2MSG, -(SP)
01,-(SP)

:PRINT

BYTES

TRANSFERRED

1PRINT HEADER MSG

SP,RO
CS4PNTX

64 ,5P
R1,RO
PC,PRBYTEXP

;GET BYTE COUNT
:PRINT FIFO BYTES

IN ERROR

ENDMSG
TRAP

.EVEN

C$MSG
.ASCIZ
.ASCIZ

'wNe\ NUMBER OF BYTES TRANSFERRED
'«NsA FIFO DATA BYTES IN ERROR:

= sD2

TSV3 - GLOBAL AREAS

MACRO M1113

14 JUN 84

14:1°

SEQ 0041

MSGSTAT - PRINY STATUS MEADER AND MESSAGE BUFFERS

.SBTTL

1516

151°
1518
1519
1520
1521
1522
1523
1524
1525
1526
1527
1528
1529 012440
1530
1531
1532
1533

1534
1535
1536
1537

1538
1539
1540
1541
1542
1543
1544
1545
1546
1547

012440
012440
012444
012446
012450
012450
012452
012456
012460
012462
012466
012470
012474
012500
012500
012500

012502
012520
012562
012653
012734
013035
013077

.
H

MSGSTAT

5TATUS HEADER AND MESSAGE

BUFFERS

:FRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECY

:IMPLICIT INPUTS:
EXPMSG

- EXPECTED MESSAGE BUFFER

BGNMSG

MSGSTAT

MOV

OSTATCOD,R1

;ASCII

MOV
BEQ

(R1)+,RO
204

sOONE ALL MSG LINES?
:BR IF YES

RECMSG
RCVHIADDRCVLOADD-

MSGSTAT

012701
012100
001410
010046
012746
010600

012502

10$:

000001

104415
062706

000766
012700
004737

012520
S
045
045
045
045
045

012562
116
116
116
116
116
116

012653
045
043
045
045

045
045

MOV
TRAP
ADD

SP,RO
C$PNTX
o4, 5P

MOV

€10. ,R0O

JSR

L10013:

104423

PRINTX

B8R

20¢:

000012
014642

sPRINT

104

PC,PRMSGEXP

ADDRESS

TABLE

STATUS BIT

NAMES

;00 ANOTHER MSG LINE
;NUMBER OF WORDS IN A READ STATUS BUFFER
;PRINT

EXPD/RECV MESSAGE

BUFFERS

ENDMSG
TRAP

STATCOD:
1$:.ASCIZ
24:.ASCIZ
34:.ASCIZ

48:

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

ASCIZ

Ce¢MSG

.WORD
14,24,34,48,54,6%,0
'wWNsA Tepe Bus Signals in Word @8:
'sN®A
PARERR<1S5>
IEOT
«<12>
'w#NsA
IRESV2<14>
IIDENT<11>
'#NsA

IRESV1<13>

S5%:.ASCIZ
'#NsA Tape Bus Signals
6%: .ASCIZ
'wNsA
DATMIS<7>
.EVEN

ICER

«<10>

IFMK
IHER

<9>
<«8>

ISPEED<7>

in UWord 09:
ILW<6>
OUTRDY<S>

IRDY<6>
IONL<S>
ILOP<4>

INROY<4>

IRWD<2>
IFBY<1l>

1IFPT<O>

MACRO M1113
14 JUN 84 14:]1°
TSV3 - GLOBAL AREAS
ORINT LOOPBACK HEADER AND MESSAGE BUFFERS
MSGLOOP

1549
1550
1551
1552
1553
1554
1555
1556
1557
1558
1559
1560
1561 013154
013154
1562 013154
1563 013160
1564 013162
1565 013164
013164
013166
013172
013174
013176
1566 013202
1567 013204
1568 013210
1569 013214
013214
013214
1570
1571 013216
1572 013236
1573 013311
1574 013410
1575 013507
1576 013606
1577 013705
1578 014004
1579

.38TTL

SEQ 0062
MSGLOOP

LOOPBACK

HEADER

AND MESSAGE

BiFFERS

:PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECY

(IMPLICIT INPUTS:
EXPMSG

- EXPECTED MESSAGE BUFFER
RECEIVED MESSAGE BUFFER
RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS

RECMSG
RCVHIADDRCVLOADD-

012701
012100
001410

010046
012746
010600
104415
062706
000766
012700
004737

MSGLOOP
:

013216

104:

MSGLOOP

MOV

&L 00PCOD,R1

MOV

BEQ

MOV
MOV
MOV
TRAP
ADD

000012
014642

204
:
L10014:

104423
013236
045
045
045
045
045
045
045

BGNMSG

PRINTX

000001

013311
110
116
116
116
116
116
116

013410
045
045
045
045

045
04s

RECEIVED MESSAGE BUFFER LOW ORDER

(R1)+,RO

204
RO

ADDRESS

;7 5CII ADDRESS TaBLt
;:OONE ALL MSG LINES?
:BR IF

:PRINT

YES

STATUS BIT

NAMES

e1,-(SP)
SP,RO

CHONTX
04 ,SP

BR
MOV
JSR

PC . PRMSGE
XP

TRAP

C$MSG

104
210. ,RO

ENDMSG

;00 ANOTHER MSG L INE
tNUMBER OF WORDS IN A READ STATUS BUFFER
:PRINT EXPO/RECV MESSAGE BUFFERS

LOOPCOOD:
.WORD
1%,2%,3¢ .44,54,64,7%,0
'
SNSA
.ASCIZ
14:
Tepe Bus Loopback Signals in Word @8:'
! NSA
PARERR<15>
24: .ASCIZ
IRESV2<14>
' NA IMISP=>IEOQT<12>
3: .ASCIZ
IWRT=>TIDENT<11>
' SNSA IWFM =>IFMK<09>
44: .ASCIZ
IEDIT=>IHER <08>
' SNSA ITADO=>IRDY<06>
S5%: .ASCIZ
ITAD1=>IONL <0S»>
‘ NSA IREW =>IDBY 03>
IRWU =>IRWD <02>
6¢: .ASCIZ
74: .ASCIZ
! NSA IGO
=>IFPT<00>"
.EVEN

IRESV1<13>’
IREV
=>ICER
<10>’
IFAD
=>ISPEED<Q7>'
IERASE=>ILDP
<04>’
IFEN

=>IFBY

<O1>'

TSv3
GLOBAL AREAS
PRINT WRITE
MSGSUB

158!
1582
1583
1584
1585
1586
1587
1588
1589
1290
1591
1592
1593
1594 014032
014032
1595 014032
1596 01403%6
1597 014042
1598
1599
1600

014042
014042

MACRO M1113

14:)°
.SBTTL

5EQ 0063
MSGSUB

WRITE

SUBSYSTEM MESSAGE

BUFFER

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

- EXPECTED MESSAGE BUFFER

BGNMSG

MSGSUB

(2,01")
JSR
ENOMSG

#10.,RO
PC ,PRMSGE XP

TRAP

CeMSG

.SBTTL

MEMADD

- RECEIVED MESSAGE BUFFER
RCVHIADO- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS
RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADORESS
RECMSG

MSGSUB:
:

012700
004737

000012
014642

L10015:

104423

;SIZE OF WRITE SUBSYSTEM BUFFER
;PRINT EXPO/RECV MESSAGE BUFFERS

PRINT MEMORY ADDRESS DATA ERROR

1601
1602

:PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR

1603
1604
1605

1606
1607
1608
1609
1610
1611 014044
014044
1612 014044
1613 014050
1614 014054
1615 014060
1616 014064
014064
014064

14 JUN 84

SUBSYSTEM MESSAGE BUFFER

;IMPLICIT INPUTS:
:
;

004737
013701
013702
004737

104423

010250
002222
002224
010032

MEMADD:
:

L10G16:

ERRHI
ERRLO

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

EXP

RECV

- EXPECTED DATA
- RECEIVED DATA

BGNMSG

MEMADD

JSR
MOV
MOV
JSR
ENDMSG
TRAP

PC.PRIADD

EXPD,R1

RECV,R2
PC.PRIXOR

C$MSG

;PRINT MEMORY

;GET EXPD DATA

ADODRESS

:GET RECEIVED DATA
:PRINT EXPD/RECV

IN ERROR

TSVS
GLOBAL AREHXS
MACRO M111%
PRAMPKT - PRINT RAM AND PACKET DATA

14 JUN 84 141"

1618

.SBTTL

1619
1620

.
;PRINT ROUTINE

1621

>EQ 0064
PRAMPKT

RAM AND PACKET

TO DISPLAY RAM/PACKET DATA

;WHEN THE RAM DATA DOES NOT MATCH,
:

162¢

1623

: INPUTS:

1625
1626

POINTER TO COMMAND PACKET
R4
i
;IMPLICIT INPUTS:

1628

;

.624

;

1627

1629

1630

RAMDATA

DATA AS READ FROM THE RAM

RAMSIZ

NUMBER OF BYTES IN PACKET

IF RAMSIZ=0Q THEN DEFALT TO 8.

1631
1632

;IMPLICIT QUTPUTS:
:
RAMSIZ SET TO0 O

1633

PRAMPKT:

1634 014066

1635 0140¢6
1636 014072

1637 014076

1638 014100
1639 014102
1640 014104
1641 014114
1642 014116
1643 014122
1644 014126
1645 014136
1646 014142
1647 014150
1648 014156

012701

005002

177777
177777

042703
116137
116437

177400
177777
177777

0143170
014172
014176
014202

010246
012746
012746
010600

1650 014214

1651 014220

1652 014222

1653 014226
1654 014230
1655 014232

1656 014236

5%:

000436
116105
1.6403

010346
013746

014204
014206
1649 014212

002232

122124
001005

014156
014160
014164

013746

104414
062706
005202

002272

002720

10%.

002272

1660 014246
1661

045

116

15¢

20% -

25%:
04S

RAMA<Z:

;SAVE R1-RS UNTIL NEXT RETURN
:DATA FROM THE RAM

SRAMDATA R
R2

cP8
(R1).,(R4).
SNE
74
FORCERROR
74 ,NOTSSR
B8R
10
MOVB
-1(R1) RS
MOV8
-1(R4) R}
XOR
RS ,R3
8IC
#177400,R3
2 0)Y:}
-1(R1) ,RECY
MOV8
-1(R4) EXPD

ORAMASC,R2,RECV,EXPD,R3

MOV
MOV

P3,-(9P)
EXPD, -(SP)

MOV
MOV
MOV
MOV

R2,-(SP)
MRAMASC, -(SP)
6, (SP)
SP,RO

TRAP
ADD
INC

TSY

BEQ

000010

005037
000207

CLR

MOV

000014

020237

SAVREG
MOV

PRINTB

014246
000005

002272

003724
000403
020227

002224
002222

002224

005737
001404

7%.

002222

1657 014240
1628 014244
1659

DATA

RECY,

;UPDATE BYTE COUNT

;B8R IF

St
25
R, 08

sBR IF NO
.
;DONE DEFAMALT NUMBER OF RYTES?

RAMSIZ

;O0EFALL.T 10 8.7

BLY

S
RAMS]IZ
PC

ASCI2
.EVEN

;GET RECEIVED RAM DATA
;:GET FXPECTED RAM DA'A

C$PNTB
014, 5P
R2

R2 . RAMSIZ

CLR
RYS

; 880
:GET RECV RAM DATA
;GET EXPD PACKET DATA
; XOR EXPO/RECY
sLOW BYTE ONLY

(SP)

o, 4

BLE
BR
cp

JINIT BYTE NUMBER

.COMPARE EXPECTED, RECEIVED
;BR IF NO MATCH

uNsA

YES

1OONE ALL BYTES?

:BR IF NO
;SET DEFAULT RAMSI?Z
; RE TURN

BYTE:

#D2¢#A RAM: #038A Packet

S03#A XOR (03

MACRO M1113
TSvS
GLOBAL. AREAS
PRIMESS
PRINT CONTENTS OF MESSAGE

16-JUN 84 14:17

SEQ 0065

BUFFER

.S8TTL

1662

PRMESS

CONTENTS OF

1664
1665

:THIS ROUTINE PRINTS THME CONTENTS OF

1667
1668
1669
1670
1671
1672
1678

;NPT

iTME

1666

1674

1675
1676
1677

014332
014336
014340
014344
014346
014350
014352
014354

014356
014360
014362
014366
014372
014374
014376

014402
014407
014406
014412
014414
014416
014422
014424
014426
014430
014432
014436
014440
014440
014442
014444
014450

014454

1691
1692
1693
1694
1695
1696
1697
1698
1699
1700

THE

TSV 05

LOW ORDER ADORESS OF MESSAGE BUFFER
Rl
HIGH ORDER ADORESS OF MESSAGE BUFFER
.
NOTE: R1 IS IGMORED IF WTENABLE FLAG IS CLEAR
LTHIS ROUTINE 1S NORMALLY CALLED FROM A PRINT ROUTINE

1678
1679
1680
1681
1682 014356

1684
1685
1686
1687
1688
1689
1690

7 OR 8 WOMD MESSAGE BUFFER RETURNED BY

MESSAGE BUFFER

014456
014460

014464
014466
014472
014474
014476
014504
014506
014510
014555
014613

01000%
005737
001001
005001
010103
006100
006101

PaME S S

'SV

003124

108

012740
v1276¢
010600

104415
062706

012746

BNE
cLa
g 01"
Q0L
ROL

PRINTX

12 01Y
a 01Y
MmOV
2 01
MOV

010546
010146

SAVREG

MOV

014510
000003

TRAP

012546
010446
012746
012746
010600

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

THE REGISTERS

1SAVE LOW ORDER ADORESS
:ADORESS ABOVE 28«
?
;B8R IF YES
:SET HIGH OROER ADORESS TO O
:SAVE MIGM ORDER ADORESS
;SHIFTY BIT1S 10 C BIT

OPROASC ,R] RS

{PRINT

RS.

(SP)

R1,

(sSP°

(5P

®PROASC,

;SMIFT

10 MIGH ORDER FOR PRINTOUT

MESSAGE BUFFER ADORESS

(SP)

SP.RC

CsPNTX

000010

010,59

014555
000001

#PRIASC,

#PR1ASC
01,

(SP)

;PRINT HEADER FOR CONTENTS

(SP)

. RO
SP

010600

104415
062706
005004
010501
010300
001403
004737
010005

:SAVE

RO.RS
K TENABL E
108
R1
R1.R3
RO

C$PNTX
000004

o4 ,SP
R4

;NUMBER

RS .R1

;COPY LOW ORDER ADORESS

R3,.RO
208

PC,SETMAP
RO,RS
#PRASC,RA,(RS)+

017406

(RS).,

THE

WORD

;COPY MHIGH ORDER ADORESS
:BR IF NOT ABOVE 28K

;SETUP PAR ADDRESS IN RO
;:GET PAR FORMAT ADDRESS ABOVE
;PRINT THE CONTENTS OF MEMORY

(SP)

R4, (SP)
OPRASC, (SP)
03, (SP)
SP,RO

014613
000003

CIPNTX

000010

R4
R4, 07

000007

000200

000012

116
116
116

045

045
045

sNUMBER OF THE NEXT
;OONE ALL YET ?

SO
;BRANCH IF ALL DONE
204
;PRINT FIRST 7 WORDS
OX2.EXTF
, XST2(R3);EXTENDED FEATUTES ON

S04%:

PROASC:
PR1ASC:
PRASC
:

RTS

.ASCIZ
.ASCIZ
.ASCI1Z

204

PC
;RETURN
'SNSA Message Buffer Address = %01%05'
'MNsA Message Buffer Contents:’
' WNSA

;PRINT EXTENDED STATUS WORD

WordsD1sA:

%0’

28K
BUFFER

Fie
MACRO M1113
TSV
GLOBAL AREAS
PRMESS
PRINT CONTENTS OF MESSAGE

14 UN 84

BUFFER

14:1°
.EVEN

1702
1708

.SBTTL

1704

5609 005€

PRMSGE
XP

EXPO/RECY MESSAGE

;QOUTINE

1707
1708
1709

:IHPLICIT INPUTS
- EXPECTED MESSAGE BUFFER
E XPMSG
;
RECMSG

1714 014642

1715 014646

1716 014650
1717 014654
1718 014656
1719 014662

1720 014664

1721 014666

1729

1730

1731

1732

1733
1734
1735
1736

1737

BUFFERS

IN BUFFER

- RECEIVED MESSAGE BUFFER

PRHSGEXP

1713 0145642

1727
1728

BUFFERS

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

1710
1711
1712

1725
1726

AND RECEIVED MESSAGE

NUMBER OF WORDS

1706

1723
1724

EXPECTED

1705

1722

TO PRINT

014666
014670
014672
014676
014702
014704
014706
014712
014712
014716
014722
014724
014726
014732
014734
014740
014744
014746
014750
014760
014760
014762
014764
014766
014770
014774
015000
015002
015004
015010
015012
015014
015016
015020
015022
015067
015125

010005
013700
010004
013701
006100
006101
010446
010146
012746
012746
010600

104415
062706

012746
012746

010600

SAVREG
MOV
MOV
MOV
MOV

002276
002274

015022
000003

010346
012246
012146
010446
012746
012746
010600

104415
062706

RO
Rl
@PRMSGO,R1,R4

MOV

R4, -(SP)

MOV

#PRMSGO,

015067

CSPNTX

PRINTX

@#PRMSG]

000001

MOV
MOV
MOV

002312
002456

ADD
CLR
MOV
MOV
MOV
MOV

TRAP

204 :

045
045

116
116
116

045
045
045

PRMSGO:
PRMSGL:
PRMSGR2:

OPRMSGL,
el,-(SP)
SP,RO

(SP)

;PRINT HEADER FOR CONTENTS

CSPNTX

04, SP
R4
#EXPMSG,R]
ORECMSG,R2
(R1).RO
(R2),R3

sNUMBER OF THE CURRENT WORC
sGET EXPO BUFFER ADDRESS

;1GET RECV BUFFER ADDRESS
1GET EXPO

t1GET RECV

CIPNTX

8GE

S04 :

010,5P

TRAP

crP

002001
000752
000207

(SP)

RO,R3
1 XOR EXPO/RECV
@PRMSG2,R4,(R1). (R2)+ ,R3

ADO
INC

000014

1 SAVE NUMBER OF WORDS
1GET RECY LOW ADORESS
+COPY LOW ADDRESS
1GET RECYV HIGH ADORESS
sSHIFT BIT15 T0 C BIT
sSHIFT TO HIGh ORDER FOR PRINTOUT
1PRINT MESSAGE BUFFER ADORESS

XOR
PRINTX

MOV
MOV
MOV
MOV
MOV
MOV
MOV

015125
000005

1SAVE R1-RS UNTIL NEXT RETURN

SP,«0

TRAP

ADO

104415
062706
012701
012702
011100
011203

ROL
ROL
PRINTX

MOV

000010

RO,RS5
RCVLOADO,
RO
RO,R4
RCVHIADD,R1

B8R

RTS

.ASCI12
.ASCIZ
LASCIZ

R3,-(SP)
(R2).,-(SP)
(R1).,-(SP)
R4, -(SP)
#PRMSGR,
- (SP)
3,-(SP)
SP,R0
014,5P
R4

R4 RS

504

204

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

310G ANOTHER
tRETURN

‘#NSA Message Buffer Address = 801805
'#NsA Mees
Buffer Contents:’
ouD2sA
EXPD: #w068A
RECV:
'#NsA
WOR

#06mA

XOR:

MACRO MIl113

14-JUN-84

gLoas%INY EXPD/RECV MESSAGE BUFFERS

TSVS
X
PRMSGE

14:]°

5%Q 0067

.EVEN
.SBTTL

1°%a

174C

PRBYTEXP

ERROR BYTES

IN EXP/REC MESSAGE

BIFFER

174}

1742
1743

xROUYINE TO PRINT ERROR BYTES IN MEC SAGE BUFFERS
:

ONLY

1746

1747

1744

1745

THE FIRST 8 ERRORS ENCOUNTERED ARE PRINTED OUE
NUMBER OF

1748

s IMPLICIT INPUTS:

1750
1751
1752

1749

1753 015212
1754 015212
1755 015216
1756 015220
1757 015224
1758 015226
1759 015232
1760 015236
1761 015240
1762 015244
1763 015250

1764 015252

1765
1766
1767
1768
1769
1770
1771
1772

015256

015262
015272
015274
015276
015302

015310

015312
015312
015314
015320
015324
015326
015332
015336
015340
015342
1773 015346
1774 015356
1775 015360
1776 015360
1777 015370
1778 015370
1779 015372
1780 015374
1781 015376
1782 015400
015400
015404
015410
015414

010005
005037
005004
012701
012702
111100
042700
110037
111203
042703

€ XPMSG

RECMSG

PRBYTEXP::
SAVREG
MOV
CLR
CLR
MOV
MOV
208 :
MOVe
8IC
MOVB

002310

002312
002456
177400
015560

110337

177400

015562

MOV8
BIC

122122
001431
005237
023727

002310
002310

XOR
cMP8
BEQ
INC
ce

101023

010346
013746
013746
010446
012746
012746
010600
104415
062706

000010
27s:

015562
015560
015426
000095
000014

000404

308
:
35%:

005204
020405

002001

013746
012746
012746
010600

002310
015513
000002

S04 :

IN BUFFER

- EXPECTED MESSAGE BUFFER
- RECEIVED MESSAGE BUFFER

RO,RS
PRMNO
R4
SEXPMSG,R1
ORECMSG,R2
(R1),RO
otC<377>,RO
RO .PRBEXP

$SAVE R1-RS UNTIL NEXT RETURN
1SAVE NUMBER OF BYTES
1 INIT ERROR COUNT
stNUMBER OF THE CURRENT BYTE
1GET EXPD BUFFER ADDRESS
1GET RECV BUFFER ADORESS
1GET EXPD BYTE

1CLEAR UPPER BYTE
1SAVE FOR ERROR REPORT
sGET RECV BYTE

(R2),.R3
®1C<377>,R3

1CLEAR UPPER BYTE

RO,R3
(R1).,(R2).
30¢
PRMNO
PRMNO,
08 .

1PRINTED 8?

MOVSe

R3,PRBREC

B8HI

304

1FOR ERROR REPORT
;{ XOR EXPO/RECYV
;EXPO = RECV?
tBR IF YES
sUPDATE ERROR COUNT

1BR IF YES
OPRBMSG , R4 ,PRBEXP ,PRBREC ,R3
PRINTX
MOV
R3,-(SP)
MOV
PRBREC, -(SP)
MOV
PRBEXP, -(SP)
MOV
R4, -(SP)
MOV
#PRBMSG,
- (SP)
MOV
5, -(SP)
MOV
SP,RO
TRAP
CIPNTX
ADD
014 ,5P
FORCEXIT
50t

B8R

354

FORCERROR

278 ,NOTSSR

INC
cp

R4
R4 ,RS

204

B8GE

000717

BYTES

PRINTX
MOV
MOV
MOV
MOV

T0 SCREEN SPACE

S04

@PRBTOT,PRMNO

PRMNO, -(SP)
#PRBTOT, -(SP)
2,-(SP)
SP.RO

; 880
; 880
tNUMBER OF THE NEXT
tOONE ALL YET?
;BR IF YES
;100 ANOTHER
tPRINT

TOTAL ERROR COUNT

)
MACRO M1113
14
TSV3 - GLOBAL AREAS
PRINT ERROR BYTES IN EXP/REC
PRBYTEX P

TRAP

015416
015420
1783 015424

104415
062706

00000¢

1785 015426
1786 015513
1787
1788 015560
1789 015562

045
04s

116
1.6

1784

000207

JUN-84 14:)°
MESSAGE BUFFER
ADD

045
04s

PRBMSG:
PRBTOT:

PRBEXP;

000000
000000

PRBREC:

1790

1791
1792
1793
1795

i INPUTS

1797

:
:

1798

1799

00473~

010032

EXPREC::

L10017:

104423

T«

.ASCIZ
.ASCI2
.EVEN
. WORD
. WORD
.SBTTL

' SNSA
BYTE 0wD2sA
EXPD: w038A
RECV:
‘SNSA NUMBER OF BYTES IN ERROR = wD?

s RE TURN

0
0
EXPREC

1EXPD
;RECY
PRINT EXPD/RECV WORD DATA

RECEIVED DATA

BGNMSG

EXPREC

JSR
ENDMSG

PC.PRIXOR

TRAP

C4MSG
EXPBREC

.SBTTL

EXPECTED DATA

tPRINT

THE

DATA

- PRINT EXPD/RECV BYTE DATA

sPRINT ROUTINE

1809
1810
1811
1812
1813
1814

1822
1823
1824
1825
1826
1827
1828
1829
1830
1831

06, SP

RTS

{PRINT ROUTINE TO DISPLAY EXPD/RECV DATA

1796

1815
1816
1817
1818 015572
015572
1819 015572
1820 015576
015576
015576
1821

CSPNTX

1794

1800
1801
180¢ 015564
015564
1803 015564
1804 015570
015570
015570
1605
1806
1807
1808

%€Q 0068

TO DISPLAY BYTE EXPD/RECV DATA

: INPUTS
R2

004737

104423

007702

BGNMSG
EXPBREC:
:
JSR
ENDMSG
L10020:

RECEIVED DATA BYTE
EXPECTED DATA BYTE

EXPBREC
PC,PRIBXOR

TRAP

Ce¢MSG

.SBTTL

RAMERR

tPRINT

RAM AND PACKET

‘0

PRINT ROUTINE TO DISPLAY RAM/PACKET DATA

. INPUTS.
;

POINTER

TO COMMAND PACKET

THE

DATA

s03sA

XOR

%03’

TSV3 - GLOBAL AREAS

RAMERR

MACRO M1113

PRINT RAM AND PACKET DATA

14:]°

SEQ 0069

@
@

RAMDATA
RAMSIZ

DATA AS READ FROM THE RAM
NUMBER OF BYTES IN PACKET

THEN DEFALT

T0 8,

IMPLICIT OUTPUTS:
RAMSIZ

SEY

BGNMSG

RAMERR

JSR
ENDMSG

PC ,PRAMPKT

TRAP

C$MSG

.SBTTL

RAMTADD

10 0

®e

®s

IF RAMSIZ+0

RAMERR: :

1844 015600
1845

004737

015604

104423

014066
L10021:

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

1862
1863
1864
1865
1866
1867
1868
1869 015606
015606
187¢ 015606
1871 N15612
1872 V15616
015616
015616
1873
1874
1875

;PRINT RAM/PACKET DATA

TEST ADDRESS,

RAM AND PACKET DATA

HR4

:PRINT ROUTINE TO DISPLAY RAM/PACKET DATA

;INPUTS:
:

POINTER TO COMMAND PACKET

;IMPLICIT INPUTS:
:

;
;
;
;

1861

1877
1878
1879
1880
1881
1882

14 JUN 84

s IMPLICIT INPUTS:

1832
1833
1834
1835
2836
1837
1838
1839
1840
1841
1842
1843

1876

E ¢

PAMDATA

DATA AS READ FROM THE RAM

NUMBER OF BYTES IN PACKET
IF RAMSIZ=0 THEN DEFAULT TO 8.
HIGH ORDER TEST ADORESS
LOW ORDER TEST ADORESS

RAMSIZ

ERRHI
ERRLO

:IMPLICIT OUTPUTS:
:

004737

010364

004737

014066

104423

RAMSIZ

SET TO O

BLWMSG

RAMTADD

RAMTADOD:
:
JSR
JSR

L10022:

PC,PRITADD
PC . PRAMPK T

;PRINT
:PRINT

TEST ADORESS
RRM/PACKET DATA

ENOMSG
TRAP

C$MSG

.SBTTL

RAMEXP

- PRINT RAM EXPD/RECV DATA

{PRINT ROUTINE TO DISPLAY EXPD/RECV DATA

: INPUTS;
;
:

RECEIVED DATA
EXPECTED DATA

6
MACRO M1113
TSV3 - GLOBAL AREAS
ECV DATA
EXPD/R
RAM
PRINT
RAME XP

1883
1884
1865
1886 015620
015620
1887 015620
1888 015624
1889 015630
1890 015634
1891 015640
015640
015640
1892
1893
1894
1895
1896
1897
1898
1899
1900
1901

14-UUN-84

14:1”

RAMEXP:
:

042701
042707
004737
004737

177400
177400
010156
010032
L10023:

104423

CONTROLLER RAM ADDRESS

BGNMSG

RAME XP

8IC
8IC
JSR
JSR

@tCc377>
,R1
0rC<377>,R2
PC.PRIRAM
PC,PRIXOR

TRAP

C$MSG

LSBTTL

TIMEXP

ENDMSG

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

TIMER A,B

THE

DATA

AND EXP/REC

'PRINT ROUTINE TO DISPLAY EXPD/RECV DATA

;AND TIMER A,B HEADER MESSAGE

: INPUTS;

1905 015642
015642

TIMEXP::

012746
012746
010600
104415
062706
004737

000001

BGNMSG

TIMEXP

PRINTX

0TIMSGO
#TIMSGO, -(SP)

116

:PRINT

HEADER

;PRINT

THE

SP,RO
C4PNTX

ADD
JSR

64,SP
PC,PRIXOR

TRAP

C$MSG

.ASCIZ

‘#¥NA TIMER A STATUS IS IN BIT

.S8TTL

BADSSR

DATA

ENOMSG

L10024

104423
045

EXPECTED DATA

TRAP

010032

RECEIVED DATA

R1
Re

MOV
MOV
MOV

015670

045

TIMSGO:

.EVEN

3sNwA TIMER B STATUS IS IN BIT

PRINT TSSR ERRORS ON DATA TRANSFERS

HE4

:PRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS

;INPUTS:

1919
1920
1921
1922
1923
1924
1925 015770

015770
1926 015770
1927 015772

HR4

1902
1903
1904

1906 015642
015642
015646
015652
015654
015656
1907 015662
1908 015666
015666
015666
1909
1910 015670
1911
1912
1913
1914
1915
1916
1917
1918

SeQ 0070

BADSSR:;:
010245
042702

177400

R1
R2

CONTENTS OF TSSR
DATA WRITTEN (8 BITS)

BGNMSG

BADSSR

MOV
8IC

0177400,R2

;}SAVE DATA TRANSFERRED

1GET JUST ONE BYTE

(56
MACRO M1113
14-JUN-84 14:17
TSV3 - GLOBAL AREAS
PRINT TSSR ERRORS ON DATA TRANSFERS
BADSSR

1928 015776
015776
016000
016004
016010
016012

1929
1930
1931

1932

016014
016020
016022
016026
016026
016026
016030

PRINTB

010246
012746
012746

016030
000002

000006

(SP).,R2

PC.PRITSSR

006022

L1002S:

104423
045

116

OXFERASC,R2
R2, -(SP)
OXFERASC, -(SP)

@2, (SP)
SP,RO
CIPNTB

010600

104414
062706
012602
004737

5EQ 0071

045

XFERASC:

C4MSG
.ASCIZ

tRESTORE

sDECOOE

'sNsA Deta Tronsferred

R?2

7SSR CONTENTS

= %03

k*‘)
TSV

GLOBAL AREAS

MACRO M1113

GLOBAL SUBROUTINES SECTION

14 JUUN-84

14:17

SBTTL

1934

1935
1936
1937
1938
1939

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

.SBTTL

SOFINIT

SOFT

THE

SUBRO.JTINES

INITIALIZE OF CONTROLLER

1943
1944

tROUTINE

1946

:THE

TO DO A SOFT

INITIALIZE OF

:8Y WRITING INTO THE TSSR REGISTER.

1945

TSSR REGISTER

TESTED FOR

THE CONTROLLER

AFTER THE INIT,

ERRORS.

ANY

ERRORS

;OETECTED SHOUWLD BE TREATED AS DEVICE FATAL ERRORS.

1947
1948
1949
1950
1951
1952
1953

1977
1978
1979
1980
1981

SUBR(CUTINES SECTION

1940
1941
1942

1954
1955
1956
1957
1958
1959
1960
1961
1962
1963
1964
1965
1966
1967
1968
1969
1970
1971
1972
1973
1974
1975
1976

GLOBAL

S5€Q 0072

L]
.

INPUTS:

ADDRESS

FIRST

s OUTPUTS:

CARRY

L)
’

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

L]
.

CALLING SEQUENCE:
MOV
JSR
8CS
ERRDF

016064
016064
016070
016076
016102
016106
016110
016114
016120
016122
016124
016126
016130
016132

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

000000
016340

000002

176277
002200

SAVREG
MOV
JSR
MOV
MOV
8IC
BIS

cHP
8€Q
Ss:
10¢:

CLC
BR
SEC
RTS

®ADORESS
,RS
PC,SOF INIT

CONTINUE

€0, TSSR(RS)
PC,WAITF

TSSR(RS5),RO

sREPORT FATAL ERROR

SAVE THE REGISTERS

WAIT FOR SSR

: 00 THE INIT.

tGET THE TSSR REGISTER

RO,R4
s TSSR CONTENTS
0tC<HIADDR!OFL
> ,R4

OSSR !NBA , R4

{R4 HAS EXPECTED CONTENTS

:BRANCH IF OKAY

R4 ,RO

104
PC

;ONLY EXPECTED BITS

SET

;CLEAR THE CARRY FOR ERROR
:GC TO EXIT

+SET THE CARRY BIT
{RETURN

TO CALLER

[¢
TSV

CHIKAMB

GLOBAL AREAS

MACRO M1113

CHECK TSSR FOR AMBIGUITY

.SBTTL

198%
1984
1985
1986
1987
1988
1989
1990
1991
1992
1993

2009
2010
2011
2012

2013
2014
2015
2016

SEQ 0073

CHKAMB

CHECK TSSR FOR AMBIGUITY

;THIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER
:+FOR AMBIGUITY
;s INPUT

CONTENTS OF TSSR

CARRY

SET

:
;OUTPUT

1994

1995
1996
1997
1998
1999
2000
2001
200¢
2003
2004
2005
2006
2007
2008

14 JUN 84 14:1°

016134
016134
016140
016142
016146
016150
016154
016156
016160
016164
016166
016172
016174
016200

2017 016204
2018 016206
2019 016210
016214
2021 016216
2022 016222
2023 016224
2024 016226
2025 016230
2026 016232

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

Ss$:

000040
177761
000016

000040

RO ,R4
#SC,RO
S$

: SAVE THE GENERAL KEGISTERS
;sCONTENTS OF TSSR
;IS BIT 15 SET ?
$BRANCH IF YES

BNE
BIT
BEQ
8IC

10
#8IT5,R0
404
@tCTERCLS R4

;BRANCH IF READY BIT IS SET.
;IS FATAL ERROR BIT SET ?
sERROR IF NOT
;CLEAR ALL BUT TERMINATION COOE

404

$ERROR IF NOT SET

BIT
BNE
B8R
BIT

cHp

10%:

B8R
BIT

404 :

CcLC

454 ;
SO :

CLR - AMBIGUOUS CONTENTS

SAVREG
MOV
8IT
BNE

BNE

000006

NO AMBIGUITY

OtC<NBA!0OFL ' SSR!HIADDR> ,RO
sANY OTHER BITS SET ?
4048
:MJST BE AN ERROR
45¢
sRETURN WITH SUCCESS
@SSR ,RO
;IS READY BIT SET ?

R4, 016

4S$
oBITS,.RO

BEQ
BIT
BNE

454
#BIT2'8171,R0
454

B8R

S0t

SEC
RTS

sALL

THREE BITS MUST BE

SET

sOK IF ALL ARE SET
:+IS FATAL ERROR BIT SET ?

tERROR IF BIT IS SET WITH SSR
sIS THIS A FUNCTION REUECT
tBR, IF TSSR IS 0K

s AMBIGUOUS CONTENTS

s SHOMW SUCCESS - NO AMBIGUITY
tRETURN TO CALLER

MACRO M1113
14 UUN 84
TSV3
GLOBAL AREAS
ENABLE /DISABLE INTERRUPTS
ENAINT,DSBIN

.SBTTL

2028
2029
2030
2031
2032
2033
2034
2035
2036

EQ 0074

ENAINT
, DSBINT

ENABLE/DISABLE

INTERRUPTS

: DEFAULT DISPLAY INTERRUPT HANDLERS.
;

IF DISPLAY

OTHERWISE,

TIME-QUT,

REPORT DEV FATAL,

AND ABORT

JOKCKIN=BIT?
IOKSTP=BITO

000200
000001

:
i

SAYS EXPECTING INTERRUPTS
.BYTe
O

016235

INTFLAG:

.BYTE

016236

INTVEC:

.WORD

016240

INTCPC:

.WORD

016242
016244
2053 016250
2054 016254
2055 016260
2056 016262
2057 016264
2058 016272
2059
2060
2061 016274
2062 016276
2063 016304
2064
2065
2066 016306
016306
2067 016306
2068 016314
2069 016320
2070 016326
2071 016330
2072
2073
2074 016336
2075 016336
016336
016336

000

i INTERRUPT FLAG

BYTES:

DON'T CHECK FOR BAD INTERRUPTS
EXPECT "STOP" INTERRUPT,

: INTERRUPT MASK
INTMASK :

016234

PASS.

SAVE DPU REGISTERS AND DISMISS.

: BIT DEFINITIONS FOR "INTMASK” AND “INTFLAG'

2037
2038

2039
2040
2041
2042
2043
2044
2045
2046
2047
2048
2049
2050
2051
2052

14:1°

TEST WILL.

SAYS WE GOT ONE (IF POSITIVE)
O

:SAVED INTERRUPT VECTOR:
:SAVE CPU PC

010046
013700
012720

012720
012600
011646
012766
000002

011646
012766
000002

012737
105037
132737
001003
152737

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

002200
016306
000340

MOV
MOV
MOV

IVEC,RO
#INTR,(RO).
#PRIO7,(RC)
.

MOV

(SP), -(SP)

MOV

000002

RTI

(SP).+,RO

:RESTORE RO

@0,2(SP)

;SET CFU TO LEVEL

: SUBROUTINE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL

000340

020002

000001
016235
000001

002214

000001

016235

DSBINT:

INTR::

016234

MOV

L1002¢€:

(SP),-(SP)

g?;

OPRIO7,2(SP)

.SBTTL

INTR

INTERRUPT HANDLERS

BGNSRV

INTR

;DEFINE

MOV
CLRB
8178
BNE
BIS8

#1,INTRECV
INTFLAG
OIOKSTP
, INTMASK
14
SIOKSTP,INTFLAG

sSET FLAG TO SHOW INTERRUPT RECEIVED
sCLEAR FLAG TO SAY WE GOT INTERRUPT
;EXPECTING STOP INTERRUPT?
;B8R IF YES
;NO. SET THE ERROR FLAG.

;SAVE REGISTERS,

1¢:

000002

;GET POINTER TO VECTORS
:SET UP INTERRUPT VECTOR

Y/
ENOSR
RTI

MSG BUFFER,

ETC.

INTERRUPT ENTRY

‘¢
TSV3

WAITF

MACRO M1113%
GLOBAL AREARS
- WAIT FOR SUBSYSTEM READ:

14:1°

.SBTTL

2077
2078

2080
2081
2082
2083
2084
2085
2086
2087
2088
2089
2090
2091 016340
2092 016342
015342
2093 016344
2094 016350
2095 016354
2096
2097 016356
2098 016360
016360
016364
016366
016372
016374
016400
016402
016406
016410
016412
016414
016416
016420
016422
016424

5EQ 0075
WAITF

WAIT

FOR

SUBSYSTEM READY

: SUBROUTINE T0 WAIT FOR THE SUBSYSTEM READY FLAG

2079

2099
2100
2101
2102
2103
2104
2105

14 JUN 84

: INPUTS:
RS

ADDRESS OF

FIRST

DEVICE

L OUTPUTS:
RO

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

BR
BREAK

1¢

CARRY

QAIYF::

000401

104422
012746
016500
105700

TRAP

011000
000002

1%:
2¢:

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

000001

MOV
MOV

TST8

C$BRK

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

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

:25-APRIL-83 REV B
1100 MSEC
;READ THE TSSR REGISTER
;TEST FOR READY BIT SETY

;

EXIT

ON STOP FLAG.

1
01,(PC).

;

WAIT

100 USEC

002116

0
tsDLY.(PC)'

177772

-6(PC)

177756

-22(PC)

TIMER

. -4

.-20

3%
44

(SP)
2

sREDUCE DELAY COUNT
tRETRY UNTIL TIMER EXPIRES

:...0R HUNG-UP AFTER 300 MSEC.

ggp)o

: C = O, CONTROLLER STILL RUNNING.
..
: C = 1, CONTROLLER IS STOPPED.

sRESTORE STACK WITHOUT CHANGING CARRY BIT

e
TSV3

CHXTSSR

GLOBAL

AREAS

MACRO M1113

- CHECK TSSR FOR READY

14 JUN 84

14:1°

.SBTTL

c10?
2108
2109
2110

s INPUT

2114
2115
2116

;OUTPUT .

;

016426
016426
016432
016434
016440
016442
016446
016450
016454
016456
016460
016462
016464

004737
10391;

103006
032700
001405
032700
001402
000241
000401

CHKTSSR:

016340

016134

ADORESS OF CSR REGISTERS

CONTENTS OF TSSR

074000

10$ -

15¢:
204 :

000261
000207

012737
012737
005003
005711

016506
016510
016512
016516
016520
016522
016526
016530
016530
016534
016536
016540
016542
016544

020102
001407
062701
000772
005103
012716
000002

012700
104436
005703
001401
000261
000207

016520

000200

000004
000006

:
:
XNXM:
1%:

000002
016530

2s:
3¢

000004

OKAY

NOT

READY

AMBIGUOUS,

SET

PC.WAITF
204
PC.CHCAMB
104

{WAIT FOR READY
;:BRANCH IF TIME OUT
s TSSR AMBIGOUS?
;BR IF YES

BEQ

15¢

sBR IF NO

#SC,.RO

sSPECIAL CONDITION SET?

BIT

@<SCE'BIE'RMR!NXHM> , RO

B8R

208

BEQ
CLC

15¢

SEC
RTS
LSBTTL
IF

iBR IF NO
sSET FAILURE

PC
XNXM

“C”
"C”

s ANY ERROR BITS SET?

sSET SUCCESS
sRETURN TO CALLER
CHECK FOR NONEXISTENT MEMORY

TO TEST FOR A NEXM IN

ON RETURN,

;CALL:
:

JSR
8CC
JSR
8CC

ROUTINE

;
;

016466
016474
016502
016504

SET

CLR

8IT

100000

2135
2136

2156
2157
2158
2159

TSSR FOR READY

CARRY

2134

2151
2152
2153
2154
2155

CHECK

;THIS ROUTINE WAITS FOR READY IN THE TSSK

2113

2137
2138
2139
2140
2141
2142
2143
2144
2145
2146
2147
2148
2149
2150

CHKTSSR

:AND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR.

2111
2112

2117
2118
2119
2120
2121
2122
2123
2124
2125
2126
2127
2128
2129
2130
2131
2132
2133

5¢Q@ 007s

= 1,
= O,

THE RANGE

(R1)

THRU (R2).

(R1) = NEXM ADDRESS.
ALL ADDRESSES OK.

MOV ADR1,R1
MOV ADRZ2,R2

JSR PC ,NXM
RETURN

MOV

24,804

;TEST

MOV
CLR
TST

#PR]IOA
, 806
R3
(R1)

crHe

R1,Re

8FQ
ADD
BR
com
MOV

3
#2,R1
18
R3
038 ,(SP)

MOV

o4
04 ,R0
CS$CVEC

RTI
CLRVEC

TRAP

T1S7
BEQ
SEC

RTS

R3
.4
PC

“C* AND PROCEFD.

SET BUSERR VECTOR.

1FLAG.
;TEST THE ADDRESS(ES).
s JF ANY TRAP, CONTINUE AT 2%.

;OTHERWISE, CONTINUE HERE.

;BR IF FINJSHED (NO NEXM S).
;SET NEXT ADDRESS...
:...ANC CONTINUE.
;:GOT ONE, SET FLAG...
:...AND DISMISS INTERR
®T. ..
i...AND GIVE BACK THE VECTOR.

;0ID WE CATCH ONE 2?7
tNO, “C” = 0, SKIP NEXT,
;YES, “C' = 1, (R1) = NEXM ADDR

TSVv3

TSTLOOP

GLOBAL

AREAS

MACRO TM111%

CHECK TTERATION COUN?

216
216¢

14 JUN 84

14:]°
.SBTTL

216%
2164
2165

36Q 0077
TSTLOOP

CHECK

ITERATION COUN?

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

2166

; CALL: LOOPTO

2167

2168

2169 016546

2170 016546
2171 016552

005737
001006

21738 016560

100403

2172 016554

2174 016562
2175 016566

2176 016570
2177 016572
2178 016574
2179 016576
2180

ARG

00216C

005737

002174

005337
001002

002206

000241
000401

TSTLOOP: :

2182

i e

2183

;: ITERATIONS INMIBITED?
: VES.

BMI

;LOOPS DISALLOWED IN QUICK PASS,

oEC
BNE

2%:
3.

2181

N0ITS
14

TSY

18:

000261
00020

1817
BNE

Qvp

: NO.

LOOPCNT
28

cLC
8R
SEC
RTS

LSBTTL

TSTSETUP

; BUMP LOOP COUNTER
:LO0OP DISALLOWED,

OR DONE.

:LOOP ENABLED.
-

TEST NAME AND INIT ERROR COUNTS

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

2184

2185

2187

2186

INCREMENT "TESTK” TO INDICATE THE NUMBER OF TESTS
IN THE CURRENT RUN SEQUENCE.

: CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS.

2188

s INPUT.

2189

2190

2191

219¢

POINTER TO TEST ID ASCIZ STRING

;OUTPUT.

2193

glg‘s
1
glg(;

:
RS
ADORESS OF FIRSY
:
:IMPLICIT QUTPUTS,

2198

;

2199
2200
2201
2202

:
;SIDE
:
:

2204
2205

:
:

;

2203

2206
2207 016600

010046
005037
005037

2212
2213
2214
2215

105037
0.3700
006300
005737

016616
016622
016626
016630

2216 016634
2217 u1663%

UPODATED TO COUNT TESTS PERFORMED SINCE START OR RESTART

EFFECTS:

INTERRUPT

LEVEL

IS RASIED

THE DEVICE UNDER TEST

10O LEVEL

..
TSTSETI®P

2208 016600
2209 016602
2210 016606
2211 016612

TSTCNT

DEVICE REGISTER

005037

001430
100010

003144
017046

005770

016234
002172
003104

g 0}
CLR
CLR

RO, (SP)
SIFLAG
ERRX

;SAVE THE TEST ID MESSAGE
; CLEAR ~“SOFT INIT* FLAG
;: CLEAR LOCAL ERROR COUNTER

CLR8
MOV
ASL
TST

INTMSCY
UNITN RO
RO
NOOE v

;: CLEAR INTERRUPT MASK (CHECK ERROR:
; GET THE UNIT NUMBER,
. ... AND MAKE IT A WORD OFFSET
; DID STARTUP FINC THE DEVICE?

CLR

8EQ
8P

EXTA

'Y
3

CLEAR ERROR EXTENSION FLAG

;
;

BR
BR

IF YES
IF NOT

IDLE

TSVS

GLOBAL AREAS

TSTSETUP

2218 016640
2219 016H46

052760

016650
016652
016654

000001
00373

2221 016660
2222 016666

052760

016646

MACRO M1113

160000

8IS
ERRDF
TRAP

005734

160001

016666
016670
016672
016674

10845
000002
004333
000000

012737

177777

016704
016710

015700
10445]

002i72

2225 016712
016712

0G3166

104455

2220 016656 000407

2223 016676
2224 016704

14 JAN-54 16 -7

003166

0£3102

2229 016720 032700 001000

2230 016728
2231 016726
2232 016730

2233
2234

2235
2236
2237
2238
2239
5240
241
2242

016730
016732
016736
01742
016748
016746
016752
016756
016756
016762
016764
016766
016772
016774

001412
011690

010046
012746
012746
010600
104417
062706
005237
013700
104441
005726
013705
000207
045

000006
002204

1s.

002202
Ss .

002176

123

045

TNAM:
;
:

:
104421
030027
001412

013746
012746
012746
010600
104417

0160071 ,ERTABL RO)
; FLAG ERROR IN THE ERROR TABLE
2,NOINI’
; DEVICE NOT IDLE

CSERDF
2
NOINIT
O

MOV
TRAP

UNITN,RO
C D00V

017046
017050
000002

® 1,00F
G
UNITN

. DROP THE UNIT

CSsOCLN

ABORT

GFT

THE PASS

B8R

RFLAGS
TRAP

RO
CSRFLA

1
(SP),RO
#TNAM,RO

:; BR IF NO
:GET THE ID MESSAGE
;OISPLAY THE

8IT

#PNT RO

MOV
MOV
MOV
MOV
IRAP
ADD
INC
SETPRI
MOV
TRAP
ST
MOV
RTS
.ASCIZ
"EVEN
.SBTTL

RO, (SP)
OTNAM, (SP)
02,-(SP)
SP
. RO
CSPNTF
06, SP
TSTCNT
IPRI
IPRI,RO
C$SPRI
(SP).
CSRADOR ,RS
PC
'#SeTsA Test
TSTEND

AT END OF EACH TEST.

THE OPERATOR FLAGS

. PRINT THE TEST NUMBERS>

TEST

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

PRINT ERRORS RECEIVED

RFLAGS
RO
TRAP
CSRFLA
BIT
RO, #IER
8EQ
19
PRINTF 0ESUM, ERRK
MOV
ERRK
, -(SP)
MOV
0ESUM, -(SP)
MOV
02,-(SP)
MOV
SP,RO
TRAP
CSPNTF

; BUMP TEST COUNTER.
:PRIORITY THAT OF DEVICE

THE NUMBER OF

ERRORS RECEIVED

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

TSTEND:
020000

TRAP
ORD
_WORD
WMORD

BEQ
MOV
PRINTF

C16774
000002

gg:z

2245 017010
017010
2246 017012
2247 017016
2248 017020
017020
017024
017030
017034
017036

8IS
ERRDF

DOCLN
TRAP

104421

CSERDF

|
NXR
NXRERR

MOV
DOOU

104444

€160000.ERTABL(RO) ; FLAG ERROR IN "WE ERROR TABLE
1 ,NXR NXRERR
. NO DEVICE MERE
PRIN' [°

WORD
WORD
WORD

B8R

2226 0167164 000423

2227
2228 016716
016716

SEQ 0078

TEST NAME AND INIT ERROR COUNTS

;
:

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

TSVS

TSTEND

MACRO M1113

GLOBAL AREAS

PRINY ERRORS RECEIVED

017080

062706

2249 017044

00020~

2251 017046

000000

2253 017067
2254

10%

2250

2252 017050

045

000006
101

122

<0 0079

14 JUUN-84 14:1°

040
122

ADD

is:

RTS

ERRK:

EMAXDU:

.ASCIZ
.EVEN

ESUM:

.ASCIZ

06, 5P
PC

/#A #DWA ERRORS/

i LOCAL ERROR COIN'.

/ERROR LIMIT REACHED

DROPPING NIT

TSV

INCERXK

GLOBAL

2287
2288
2289

MACRO M111%

INCREMENT LOCAL

2256
2257
2258
2259
2260 017134
2261 017140
2262 017142
2263 017146
2264 017150
2265 017154
2266 017156
2267 017162
2268 017164
2269 017166
2270 o17170
2271
2272 017172
2273 017174
2274 017200
2275 017202
2276 017206
2277 017212
2278 017216
2279 017220
2280 017226
2281 017230
017230
2282 017232
2283 017236
2284 017240
2285 017246
017246

2286

AREAS

017250
017252
017254
017256
017256
017262
017264
017264
017266
017270

ERROR COUNT

JUN B4

]4:]°

.SBTTL

5€Q 0080

INCERK

INCREMENT LOCAL ERROR COUNT

‘0

:
005237
010046
013700
006300
062700
005210
032710
0010C1
005310
012600
000207
010046
013700
006300
016000
042700
020037
103004
023737
103417

104421
032700
001013
012737

ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT:

INCERN; INC
MOV
MOV

017046

002172
003166
007777

18:

002164

002162

1¢:

003102

nTS

BIC
e
BMIS
ce
8Lo
RFLAGS
TRAP

TRAP

. WORD
. WORD
. WORD
(0,00
V]

000004
017067
000000

104444
012600
000207

8I7
BNE
DEC
MOV

817
BNE
MOV
ERROF

0C 0040

104455

013700
10445]

#ERTABL ,RO
(RO)

MOV

170000

177777

ADD
INC

ASL

003166

017046

ASL

CKEMAX: MOV
MOV

002172

MOV

002172

TRAP

OOCLN
TRAP

2%:

ERRAX

RO, (SP)
UNITN,RO
RO

MOV

RTS

INCREMENT LOCAL ERROR COUNT
SAVE RO

GET UNIT NUMBER,

...

AND MAKE IT A WORD OFFSET.

RO GETS ADORESS OF ERROR TABLE

ENTRr.

€7777,(RO)
18

INCREMENT THE DEVICE ERROR COUNT
OID WE OVERFLOW THE FIELD?
B8R IF NO.

RESTORE RO
RETURN TO CALLER.

(RO)
(SP)+ ,RO

RO, (SP)
UNITN,RO
RO

ERTABL(RO),RO
#170000,R0O
RO, GERRMAX
14
ERRK, LERRMAX
24
RO

CORFLA

¢I0U.RO

4 ,EMAXDU

YES

BACK

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

EMAXOU
0

UNITN
UNITN,RO
C$DOOV

7777,

SAVE RO
GET UNIT NUMBER
... 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 EXCEEDED FOR THIS TEST?
B8R IF NO
GET OPERATOR FLAGS

EQEROF

CSOCLN
(SP)+,RO

RESTORE RO
RETURN TO CALLER

TSV

CKDROP

14 JUN 84 14:1°
MACRO M1113
AREAS
CHECK IF UNIY SHOWD BE DROPPED

.SBTTL

229,
2292

2293
2294
2295 017272

2296 017274
2297 017304
017304

017306
017312

017314
017316
017324
017324
017330
2303 017332
017332
2304 017334
2305 017336
2306
2307
2308

2310
2311
2312 017340
2313 017340
2314 017344
2315

2316
2317
2318
2319
2320
2321
2322
2323
2324
2325
2326
2327
2328

5EQ 0081

GLOBAL

013700

10445)

CHECK IF

UNIT SHOA
D BE DROPPED

. CHECK IF UNIT SHOUWD BE DROPPED
RO, (SP)
CKOROP: MOV

010046

104421
032700
001010
011600
012737

CxDROP

FORCERROR
RFLAGS
TRAP

000040

177777

003102

817
BNE
MOV

#IDV,RO
14
(SP),RO

000V

UNITN

TRAP

C 4000V

MOV

UNITN,RO

OOCLN
TRAP

104444
012600
000207

1%:

14 ,NOTSSR

e-1,0UFLG

MOV

002172

RO
C4RFLA

;ABORT

CSOCLN

MOV

THE PASS

(SP;+,RO

RTS

.SBTTL

CONFIG

DETERMINE CONFIGURATION OF SYSTEM

i SUBROUTINE - ODETERMINE CONFIGURATION OF TSVOS SYSTEM.
3

004737
000207

CONFIG:

016064

JSR

RTS
.SBTTL

PC,SOF INIT
PC
KTON,KTOFF

ENABLE/DISABLE MEMORY MANAGEMENT

s+ SUBROUTINE - ENABLE MEM MGT.
017346
017352
017354
017362

017364
017370
017372
2330 017374
2331 017376
2332 017404

005737
001403
012737
000207

KTON:

003122

177572

1¢:
i

:
005737
001405
000240
000240
012737
000207

000000

SUBROUTINE

KTOFF:

003122

177572

TST

8EQ
4%
RTS

18:

TST

B8EQ
NOP
NOP
MOV
RTS

KTFLG

1
#1,SR0
PC

s
s

GOT K72

NO.
YES.

ENABLE KTi1.

- DIS"ILE MEM MGT.
KTFLG

;

GOT KT11?

;

NO.

€0, SRO

;+ DISABLE KT,

TSV

SE TMAP

2334
2335
2336
2337
2338
2339
2340
2341
2342
2343
2344
2345
234€
2347
2348
2349
2350
2351
2352
2353
2354
2355
2356
2357
2358
2359
2360
2361
2362
2363
2364
2365
2366
2367
2368
2369
2370
2371
2372
2373

MACRO M1113
SETUP PARG MAPPING

GLOBAL AREAS

UUN 84

14:1"

.S8TTL

SEQ 0082

SE TMAP

SETUP PARG MAPPING

;THIS ROUTINE SETS UP KERNEL ~AR6 TP HANDLE

1AN 18 BIT ADORESS. THE OFFSET INTO THE PAGE
1 IS RETURNED BIASED TO PARG.

: INPUTS;
HIGH ORDER ADORESS BITS

LOW ORDER ADDRESS BITS

OFFSET INTO BLOCK WITH PAR6 BIAS (I.E.
SET IF SUCCESS
CLR IF ERROR
017406
017406
017412
017416
017420

017452
017456
017462
017464
017470
017474
017500
017502
017504
017506
017510

005737
001433
C10102

042701
020137
103011
010137
042702
062702
010200
000261
000401
000241
000207

$SAVE LOW ORDER BITS

sCONVERT WORD ADORESS TO 32W BLOCKS
$MAKE IT OOUBLE PRECISION

000177
003122

177,R1
R1,KTFLG

172354
160000
140000

R1,86IPAR6
0160000,
R2
#140000,R2
R2,.RO

;ALINE FOR LOWER 4K BOUNDARY
sHIGHER THAN EXISTING MEMORY?
:BR IF YES
1SETUP MAPPING REGISTER PAR6
:SETUP DISPLACEMENT IN PAGE

10¢

15¢:

2374
2375
2376
2377
2378
2379
2380

2381
2382
2383
2384
2385
2386
2387
2388 017512
2389 017512
2390 017516

sBR IF NO

10¢

R1,R2
6
RO
R1

104:

8R
CLC
RYS
.SBTTL

1ADD IN PAR6 BIAS

sRETURN IN RO
:SET SUCCESS

15¢
PC
FILLMEM

$1SAVE R1-R4 UNTIL NEXT RETURN
1SYSTEM MAVE ABOVE 28x?

KTFLG

003122

THE ADORESS)

:SET FAILURE
1RETURN

FILL MEMORY WITH BACKGROUND PATTERN

FILL MEMORY WITH A BACKGROUND PATTERN

H
H

= BACKGROUND PATTERN
= FIRST LOCATION AVAILABLE

FREE
KTFLG

TO DIAGNOSTIC

= SET TO HIGHEST MEMORY LOCATION IF

> 28K.

. OUTPUTS:
$

004737

017364

PC.KTOFF

1 SAVE R1-RS UNTIL
:DISABLE KT,

AT RETURN

TSV3 - GLOBAL AREAS

MACRO M1113

14-JUN-84 14:17

SEQ 0083

FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN

2391 017522
2392 017524
2393 017530
2394 017534
2395 017536
2396 017540
2397 017542

010003
013701
013702
010321
005302
003375
005737

003122

004737
005000
013701
000006

017346

2398 017546 001477

2399 017550
2400 017554
2401 017556
2402
2403

003114
003116

108:

MOV
MOV
MOV
MOV
DEC
8GT

RO,R3
FREE ,R1
FRESIZ,R2
R3, (R1).
R2
104

;COPY TEST PATTERN
tGET FIRST FREE LOCATION
1SIZE OF FREE SPACE BELOW 28K.
sSTORE A BACKGROUND WORD
;DONE ALL MEMORY IN FREE SPACE?
;BR IF NO

BEQ

5SS

: NO. GET OuUT.

;CLEAR C BIT
;CONVERT BLOCKS TO WORDS

JSR

PC, SETMAP

1SETUP PAR6 MAPPING REGISTER

cHP

RO, #160000

{END OF PAR6 MAPPING AREA?

TST

2404

JSR
CLR
MOV
.REPT
cLe
ROL

2406

.ENOR

003142

2405

ROL

2407 017626

004737

017406

2409 017634 020027

160000

2408 017632

010320

2410
2411
2412
2413

017640
017642
017646
017654

103774
162700
062737
023737

2415
2416
2417
2418

017664
017670
017672
017676

005737
001407
013704
042704

2420
2421
2422
2423
2424
2425
2426
2427
2428

017706
017710
017714
017716
017724
017726
017730
017736
017742

001415
005737
001410
023727
103001
000403
012737
000137
004737

2414 017662 001427

2419 017702 022704

2429 017746

000207

020000
000200
172354

308:

MOV

BLO
SUB
ADD
cHP

172354
003122

BEQ

003134

57
BEQ
MOV
BIC

177572
377761

000016

003136

35¢:

172354

007600

000020
017632
017364

172516

40$:
45s:
S0$:
5S$:

BEQ
1S7
BEQ
cHP
BHIS
BR
MOV
U
JSR
RTS

KTFLG

PC.KTON
RC
PST32W,R1
6
RO

R3,(RO)+

i GOT KT?

1 YES. ENABLE KT,
tHIGH ORDER ADDRESS START
1GET >28K START ADORESS (IN 32W BLOCKS

sMAKE

IT DOUBLE PRECISION

:STORE TEST PATTERN IN >28K ADDRESS

30$
922000, R0
0200, 90KIPAR6
SORIPARG,KTFLG

1BR IF NO
1BACKUP INTO PAR6 MAPPING BEGIN
;POINT TO NEXT 4K BLOCK >28K.
;END OF MEMORY?

T23A
35$
SRO, R4
#177761,R4

111/23A2
iNO KEEP GOING
1GET SRO CONTENTS
:CLEAR ALL BUT PAGE NUMBER

504

016,R4e

504
1238
458
SOKIPARG,0"600
408
aSs
#20,SR3
304
PC,KTOFF
PC

iBR IF YES

;SEE IF PAGE 7

EXIT IF THERE
11172387
iNO KEEP GOING
;REACHED 18 BITS?
i YES
iNO KEEP GOING
1SET 22 BIT RELOCATION
;KEEP GOING ON ETC.
; DISABLE KT,

TSVS

CrPrEM

GLOBAL AREAS

MACRO M1113

14 JUN-84

- COMPARE MEMORY TO BACKGROUNG PATTERN

14:)"
.SBTTL

243}
2432
2433
2434
2435
243¢
243’
2438
243%9

SEQ 00”4

CMPMEM

COMPARE MEMORY

TO BACKGROUMD PATTERN

HIR4

;

COMPARE MEMORY WITH A BACKGROUND PATTERN

(Yoo oo @ oe o @c @s s °: Se 40 vs wc @ w0 @e oo

INPUTS:

2440
244}

2442

2443
2444

2445

2446

2447

2448
2449

2450
2451
2452
2453
2454

010003
004737
013701
013702
020311
001411
010137
005037
010337
011137
000474
005721
005302
003362
005737
001472
004737

2455

2456
2457
2458

2459
2460

013701

020076
020102
020104
020106
020112
020114
020116
020120
020122
020124

042701
010046
010146
004737
010004
012601
012600
020314
001411
010037

017364
003114
003116

RO = BACKGROUND PATTERN

FREE
KTFLG

FIRST LOCATICN AVAILABLE

SET

SET IF NO ERROR
CLR IF ERROR

TO DIAGNOSTIC

TO HIGHEST MEMORY LOCATION IF

> 28K,

OoUTPUTS:

CARRY
CARRY

IMPLICIT OUTPUTS:

10¢:

002230
002226
002222

ERRHI
ERRLO
EXPOD
RECV

" SAVREG
MOV
JSR
MOV
MOV

cHP
8EQ

15¢:
003122
017346

003142

000177

01740¢

30¢:

ERROR HIGH ADORESS
ERROR LOW ADORESS

- EXPECTED DATA
- RECEIVED DATA

RO,R3
PC.{TOFF

FREE,R1

FRESIZ,R2
R3,(R1)

15¢

MOV

R1,ERRLO

MOV
MOV
B8R
TST

(R1),RECV
504
(R1).

CLR

002224

002226

0eC
867

ERRHI
R3 ,EXPD

1SAVE R1-RS UNTIL NEXT RETURN

;COPY TEST PATTERN

sOISABLE KT,

;GET FIRST FREE LOCATION
:SIZE OF FREE SPACE BELOW 28K,
1FREE SPACE LOCATION EQUAL TO EXPD?
;1BR IF YES
s SAVE ADORESS IN ERROR
tNO HIGH ADORESS
31SAVE EXPD FOR ERROR REPORT
;sSAVE RECV FOR ERROR REPORT
§

1POINT TO NEXT ADDRESS
sDONE ALL MEMORY IN FREE SPACE?

TST

KTFLG

8EQ
JSR
CLR
MOV
.REPT
ROL
ROL

1BR IF NO
s GOT KT?

PC,KTON
RO
PST32uW,R1
6
Rl
RO

1 CONVERT BLOCKS TO WORDS
{MAKE IT DOUBLE PRECISION

.ENDR
8IC
MOV
MOV
JSR
MOV
MOV
MOV
cHe
BEQ
MOV

10¢

554

0177 ,R1

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

(SP)+,R1
(SP)+,RO

R3,(R4)

324

RO ,ERRHI

s NO. GET 0QUT,
; YES. ENABLE KT,
sHIGH ORDER ADDRESS START
;1GET »>28K START ADDRESS (IN 32W BLOCKS)

sALINE 4K BOUNDARY
s SAVE HIGH ORDER
$1SAVE LOW ORDER

;SETUP PARG MAPPING REGISTER
;1COPY ADDRESS BIASED TO PAR6
tRESTORE LOW ORDER IN NON PAR6 FORMAT
;RESTORE HIGH ORDER IN NON PAR6 FORMAT
sABOVE 28K LOCATION EQUAL EXPD?
:18R IF YES
t SAVE HIGH ORDER IN ERROR

MACRO M1113
14 JUN-84
TSV3
GLOBAL AREAS
PATTERN
NC
BACKGROU
TO
CHMPMEM
COMPARE MEMORY

2488
2489
2490
2491
2492

020130
020134
020140

020144
020146
2493 020152
2494 020154
2495 020160
2496 020164
2497 020166
2498 020172
2499 020200
2500 020206
2501 020210
2502 020214
2503 020216
2504 020220
2505 020224
2506 020226

2507
2508
2509
2510
2511
2512
2513
2514
2515

010137
010337
011437
000421
062701
005500
062704
020427

103755
162704

062737
023737
101744
004737
000241
000403
004737
000261
000207

002230
002222
002224

MOV

32%:

000002

MOV
MOV
BR

ADD
ADC

000002
160000
020000
000200

172354

SEQ 008S
R1,ERRLO
R3,EXPD

1SAVE LOW ORDER IN ERROR
$SAVE EXPD FOR ERROR REPORT
tSAVE RECV FOR ERRCR REPORT

92,R1
RO
@2,.R4
R4, 2160000

tUPDATE NON PAR6 ADDRESS
tMAKE IT DOUBLE PRECISION ADD
sUPDATE PAR FORMAT ADDRESS

920000,R4
0200,
80K IPAR6

:BACKUP INTO PAR6 MAPPING BEGIN

(R4),RECV
S04

tEND OF PARG6 MAPPING AREA?

304

172354
003122

SOKIPARG ,KTFLG
304

017364

50%:

. KTOFF
PC

017364

S55¢:

PC.KTOFF

604
:

60»

.SBTTL

REGSAV

1BR IF NO
sPOINT

TO NEXT 4K BLOCK

sEND OF MEMORY?
:BR IF NO

>28K.

s TURN OFF MEMORY MAPPING
:SET FAILURE

:TURN OFF MEMORY MAPPING
:SET SUCCESS
-

SAVE R1-RS5 ON STACK

HAd

:ROUTINE TO

:SAVE R1 THROUGH RS ON THE STACK

:CALLING SEQUENCE:
JSR

2516

2517
2518
2519
2520
2521
2522
2523
2524
2525
2526
2527
2520
2529
2530
2531
2532
2533
2534
2535
2536
2537
2538
2539
2540

14:]1°

RS ,REGSAV

;THIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO

1 THE CALLING ROUTINE. AT THE END OF THE CALLING ROUTINE,
‘;gglg¥gngc RETURNS CONTROL TO THIS ROUTINE TO RESTORE
3

;THIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE
;:CALLED VIA A JUSR PC INSTRUCTION

020230
020230
020232
020234
020236
020240
020242
020246
020250
020252
020254
026256
020260
020262

REGSAV

010446
010346
010246
010146
010546
016605
004736
012601
012602
012603

012604

012605
000207

000012

(SP)+,Re
(SP).,R3
(SP).+,R4

(SP)+,RS

TSV3

GETPATY

GLOBAL AREAS

MACRO M1113

14 JUN-84 14:1°
.SBTTL

2542

2543
2544
2545

2546
2547
2548
2549
2550
2551
2552
2553
2554

5EQ 0086

GET 8 BIT PATTERN FROM OPERATOR

GETPAT

GET

8 BIT PATTERN FROM OPERATOR

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

NONE.

S OUTPUTS;
:

OCTAL NUMBER FROM THE OPERATOR

:CALLING SEQUENCE:
:

020264

GETPAT::

2555 020264
2556 02027
020270

104443

020274
020276
020300

020320
000022
020322

020304
020306
020310
020310
020310
020312
020316

000000
000377

JSR

PC.GETPAT

SAVREG
GMANID
TRAP

;SAVE THE GENERAL REGISTERS
DATASC.PATDAT,0,377.0.377.NO
CSGMAN

_WORD
"WORD
'WORD

PATDAT
T$COOE
DATASC

"WORD
"WORD

T$LOLIM
THHILIM

020272 000406

B8R

020302

'WORD

000377

103367
013700
000207

10000:
020320

100004

377

BNCOMPLETE
BCC
1
MOV
PATDAT,RO
RTS
PC

;RETRY

IF ERROR

:DATA PATTERN FROM OPERATOR
RETURN TO CALLER

:LOCAL DATA AREA
020320
020322

000000
105

116

124

PATDAT:
DATASC:

.WORD
.ASCIZ
"EVEN

O
; TEMPORARY STORAGE FOR DATA
'ENTER DATA PATTERN’

TSvS

GE TSEL

GLOBAL AREAS

MACRO M1113

14 JUN-84

- ISSUE MENU AND GET OPERATOR RESPONSE

14:1°
GE TSEL

.SBTTL

2569
2570

SEQ 0087
-

ISSUE

MENU AND GET

OPERATOR RESPONSE

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

2571
2572
2573

2574
2575
2576
2577
2578
2579
2580 020346
2581 020346
020352
020354
020356
020360
020362
020362
020364
020370

020374
020376

: INPUTS:

RO
R1

L 0UTPUTS
GETSEL
::

020400
2587 0204014
2588 020406
020406
020410
020412
020414
020416
020420
020422
020424
020426
2589 020426
020426
2590 020430
2591 020434
2592 020436
2593 020440
020440
020444
020450
020452
020454
2594 020460
020462
2596 020464
2597 020532
2598 020537

012746
012746
010600
104417
062706
000735
000207
045
045
105

2600 020566

000000

1$:

2$:

MOV

TRAP
ADD

000006

104443

000406

020566

000042
020537

1777717

000000

1777717

103352
013700
020001
101411

10001¢:

B8R

R2,.R3
(R3)
34
OSELASC,(R3).

:DISPLAY THE MENU

(R3)+,-(SP)
@SELASC, -(SP)

SP,RO

CIPNTF
@6, SF

er
.WORD
.WORD
.WORD
.WORD
.WORD
.MORD

100014
MENRES
T4COOE
MENASC
-1
TSLOLIM
THHILIM

TRAP

CS$GMAN

BNCOMPLETE

MOV

MENRES, RO

PRINTF

OMENERR

MOV

MOV
MOV

045
045
164

1 SAVE GENERAL REGISTERS
:SAVE THE MENU ADORESS
:START OF MENU STRING
:END OF ASCII ?
sBRANCH IF ALL LINES DISPLAYED

RO,R2

MENASC,MENRES,D,

cHP
8LOS

020464
000001

THE OPERATOR'S SELECTION

GMANID

8CC

020566

116
116
156

MOV
TST
8EQ
PRINTF

MOV
MOV

020532
000002

NUMBER OF

SAVREG

MOV

010002
010203
005713
001412

012346
012746
012746
010600
104417
062706
000764

ADDRESS OF ASCIZ STRING OF MENU
MAXIMUM ALLOWABLE OPERATOR RESPONSE

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

sRETRY

RO,R1
S¢

OMENERR, - (SP)

IF ERROR

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

01,-(SP)
SP,RO

CePNTF
04,5pP
1
PC
'#NEA

ses

;:RETRY
tRETURN TO CALLER

Selection

'wNuT’
'Enter Menu Selection:
.WORD

Too

Large

249

TSV3
GLOBAL AREAS
CHECK MANUAL
CHKMAN

MACRO M1113

14 UUN 84

INTERVENTION LEGALITY

.SBTTL

2602
2603
2604

5€Q 0088

CHKMAN

CHECK MANUAL

INTERVENTION | EGAL [T

:ROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY,
:INPUT:

2605

2606
2607
2608
2609
2610
2611
2612
2613
2614
2615
2616

NONE.

MANUAL
MANUAL

INTERVENTION NOT ALLOWED
INTERVENTION

IS OK

[

CARRY

:OUTPUT:

®e

;SIOE EFFECTS:

2617
2618

A MESSAGE

IS DISPLAYED WARNTIiG

THAT

TEST

NOT EXECUTED IF MANUAL INTERVENTION IS NOT
ALLOWED.

®:

2619
2620
2621
2622

2623

2624 020570
2625 020570
2626 020574
020574
2627 02057°
020576
2628 020600
020600
020604
020610
020612
020614
2629
020622
2631
2632 020624
2633

14:1°

CHKMAN:
:

SAVREG
MANUAL
TRAP

C$MANI

8Cs
PRINTF
MOV
MOV
MOV

1¢
ONOMAN
ONOMAN, (SP)
e1,-(SP)
SP.,FO

1%:

CLC
RTS

;CLEAR CARRY FOR ERROR
;RETURN

NOMAN:

.ASCIZ

'#N®A ses Manual

Intervention not Allowed

104450

BCOMPLETE 14

ic3411
012746

012746
0.2600

020624
0G0001

104417

TRAP
ADD

062706
000241
000207
045

116

045

.even

C4PNTF
04 ,SP

;:SAVE THE REGISTERS
;SEE IF MANUAL INTERVENTION 0K

;BRANCH IF ALLOWED
;PRINT

THE WARNING MESSAGE

Test Aborted sse

TSV3

ENVIRN

GLOBAL AREAS

SETUP FREE DIAGNOSTIC SPACE

263S
2636
2637
2638
2639 020720
020720
2640 020722
2641 020726
2642 020734
2643 020740
2644 020746
2645 020752
2646 020760
2647 020762
2648 020764
2649 020770
2650 020774
2651 021000
2652 021004
2653 021006
2654 021012
2655 021014
2656 021020
2657 021024
2658 021026
25659 021030
2660 021034
2661 021040
2662 021044
2663 021046
2664
2665
2666
2667
2668
2669
2670
2671
2672
2673
2674
2675

MACRO M1113

021052

021054

14:17
.SBTTL

SEQ 0089

ENVIRN

SETUP FREE DIAGNOSTIC SPACE

: SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAME TERS .
ENVIRN:

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

021056
021062

001006
005237
042737

021070
021072

000402
005237

021076
021076

14 JUN-84

000207

003114
000002
003116

002012
000007

003114

003116

10¢:

003114
003116

ADO
MOV
SUB
MOV
SuB
DeC
BNE
MOV

SuUB
MOV
NOP
MOV
MOV

177520

ADD

000002
016466

15%:

177520
177520
177520

003136

TRAP
MOV

ADD

003120

003134
170000

MEMORY

002120

:
:
20¢:

404:

JSR
BCC
BR
MOV
ADD
MOV
INC
MOV
cMP
BNE
INC
8I1C

cCeMEM

RO,FREE
#2,FREE

+ GET 1ST FREE ADORESS...

(RO),FRESIZ

i...AND WORD COUNT,

LSUNIT,R2

: GET NUMBER OF UNITS

o4 ,FRESIZ

#7,FRESIZ
R2
104
FREE ,RO
FRESIZ,RO
#2,RO
RO,FREENI

TAKE

AWAY

7 WORDS PER UNIT

;GET FIRST FREE ADDRESS
1POINT TO LAST FREE ADDRESS
1BACKUP 1 WORD
s STORF LAST FREE ADDRESS

[88800080888005040008088400800808080888080863

#80VPCR ,R1

R1,R2

#2,R2
PC . XNXM

154

404

BOYPCR,R1
#1.R1

#B0VPCR ,R2
(R2)
BOVPCR,R3

R1,R3
204
T23A
€170000,L $HIME

tGET BDOV11 PCR ADDRESS
1COPY TO R2
1SET THE RANGE
;1SEE IF WE HAVE ONE
;O TO SET FLAGS
sRETURN WITH FLAGS CLEAR
;sSAVE PCR CONTENTS
;ADD ONE TO IT
;:GET BOV11 PCR ADDRESS
;:TRY TO WRITE 10 IV
;GET RESWLTS
;0ID IT CHANGE?
M0,

MUST BE

11/238

B8R
INC

M8156
404
7238

PRINTF

#18189

1SET THE FLAG
s SUPERVISOR COULD BE WRONG
;BR 408 FOR RELEASE
s TELL THE SYSTEM TYPE
: RETURN
:SET THE FLAG
1BR 408 FOR RELEASE
sTELL THE SYSTEM TYPE

RTS

;sRETURN

NOP
PRINTF

NOP

M/
GLOBAL AREAS

MACRO M1113

14 JUN-84

.SBTTL

26#7

2678
2679

2706
2707
2708
2709
2710
2711

SETUP K711 TMMEMORY

MANAGEMENT

REGISTERS

:ROUTINE TO INIT KT 11
.

021224

010037

000004

021230

000207

TS7

172340

077406

CLR

177740

1¢:

00020C
002000

MOV
MOV
MOV

cHe
BNE
MOV
BR

177600

2s:

MOV

RTI

RO,(R1)»

9200,R0
RO, 02000
14

0177600, -(R1)

RTS

ggT

»>28K MEMORY FLAG
TEST >28K FLAG

ENOUGH MEMORY

(>28K)?

SAVE OLD ERR VEC PTR.
SET ERR VEC PTR,
GOT XT11?
(TRAP IF NO).
YES. SET KT FLAG.
RESTORE OLD ERR VEC PTR.
Q0 = AR DATA,
R1 = KI REGS PTR.

SET DESCRIPTOR REG.

SET KIPAR REG.
BUMP AR DATA BY

“&x",

NO.

YES.

SET

KTPAR7 FOR

1/C.

063 ,(SP)
RO,80ERRVEC

64:
9
:

0177 KTFLG
RO, 34ERRVEC
RO
#CIPARO,R1
977406, -40(R1)

000004

L$HIME ,CTFLG

MOV
8IC
MOV

003122
003122

002120
000177

177572

021224

94
SOERRVEC
RO
024 ,80ERAVE
805R0

LSHIME, #1577

012716

021132
021136

000004
021216

8LOS
MOV
MOV

INIT
INIT

000002

021120

021124

001577

KTFLG
KTENABLE

021216
021222

021110
021116

CLR
CLR

021146
021154
021160
021162
021166
021174
021176
021202
021206
021210
021214

021104

003122
003124
002120

KTINIT:

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

®¢

021100
021100

2693 021140

2694
2695
2696
2697
2698
2699
2700
2701
2702
2703
2704
2705

2684
2685
2686
2687
2688
2689
2690
2691
2692

KTINIT

2680
2681
2682

2683

5€Q 007%0

SETUP KT11 MEMORY MANAGEMENT REGISTERS

TSV3

KTINIT

14:17

SET UP RETURN

RTI

TO NEXT

LOCATION

RESTORE OLD ERR VEC PR

TSVS

KTINIY

GLOBAL AREAS

MACRO M1113

14 JUN-84

14:1°

—

S€Q 0091

SETUP XT11 MEMORY MANAGIMENT REGISTERS

2718

SUBROUTINE

2714
2715
2716

Requ:
' res

TO SET EXTENDED FEATURES SWITCe

that

SOFINIT

ano WRTCHR nave bDeen dorne prev ous to celi

2717

2718
2719

INPUTS

;
RS
CURRENT UNIT NMUMBER
;OUTPYTS
.
The Extended Festures Sw.tch

2720

2721
2722
2723

s set.

2724

2725

2726

2728 021232
2729 021236
2730 021240
2731 021246
2732 021254
2732 021262
2734 021270
2735 021274
2736 021300
2737

2738
2739
2740
2741
2742
2743
2744
2745
2746
2747

-.
INVERT

021232

27127

005737
001020

012737
012737
012737
012737
012704
004737
00020°

002216

100206
Ocl31a
000006
100010
021304
010752

021304
021306
021312
021314

187

EXTFEA

BNE
MOV

1
0100206 , CMOP% Y

SET?

;

INVERT

;

RETURN

; MSG BUF ADOR
; BYTE COUNT

MOV
JSR

#CMOPKT R4
PC.WRTCHR

; SET CMOPKXT INTO R4
: DO IV

RTS

100010, WSMBK

THE

«,+3>£177774

SWITCH

:MUST BE

ON MOD 4 BOUNDRY
.

O
-

:1ST WORD IS TSOS COMMAMND.
:2ND WORD IS THE BUFFER LOW ADDRESS.

;8TH WORD IS THE BYTE/RECORD/FILE COUNT,

;3RD WORD

SUB

SYSTEM MEMORY

THE BUFFER HIGH ADDRESS.

;

WRTITF

CHARACIERISTIC

BLOCK.

WSMBK::

O
0
0
.EVEN

;

SUBROUTINE TO CHECK WETHER OR NOT WE'LL TEST NXM

2748

2749 021314

2750 021316
2751 021320

2752
2753
2754
2755
2756
2757
2758
2759
2760
2761
2762
2763
2764
2765
2766
2767
2768
2769

+1ST WORD::
:2ND WORD::
:3RD WORD::

SEL O
SEL 2
SEL 4

: INPUTS:

s OUTPUTS
;
:

021322
001322
071326
021332

021336
021342

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

MEMCK:;:

005037
005037
005037
005737

003126
003130
003132
003136

the next

COMMAND PACKET
.,

CMOPKT::

021304

SWITCH

YES.EXIT STAGE RIGHT!'(or
WRT SUB SYS MEM CMD

MSMBK , CMDPK( T .2
06, CMDPKT .6

021306
021310
021312

:
;

2 01
MOV
MOV

SAVREG
CLR
CLR
CLR
TST

NXMFLG
NXMLO
NXMHI
7238

; SAVE THE REGISTERS
;{CLEAR THE FLAG
{CLEAR THE TEST ADDRESS LO
;CLEAR THE TEST ADDRESS HI
;IS

1172382

one Oute town'®
)

31
TSV3
- GLOBAL AREAS
SETUP
KTINIT

MACRO M1113

14 JUN-84 14:17

2770 021346
2171 021350
2772 021356
2773 021360
2774 021364
2775 021366
2776 021372

2777 021374

2778 021402
2779 021404
2780 021412
2781 021414
2782 021420
2783 021422
2784 021430
2785 021432
2786 021436
2787 021444
2788 021450
2789 021452
2790 021454
021454
021460
021464
021466
021470

2791 021474
2792
2793

001407

023727

002120

004737
000427
005737
001413
023727
101023
023727
103403
004737
000411
023727
103410
004737
062737
005237
000411
000410

021476

103406

012746
012746
010600
104417
062706
000207

007777

003134

1s:

002120

005777

002120

003777

2s:

021476

002120

021476

000077
003126

2608

8tQ
cHp
8LO

18
LIMIME 07777
24

JSK

001577
003132

13%:
148
;

005456
000001

1S7

T23A
48

PRINTF

TRAP

ADD

000004

PC,NXMTST

8€0Q
cre
)
ce
8LO
JSR
B8R
ce
8Lo
JSK
ADD
INC
BR
BR

MOV
MOV
MOV
RTS

LSHIME 05777
144

LSHIME 03777

48
PC

NXMTST

13¢
LSHIME 01577

14¢
PC,NXMTST
077 ,NXMH]
NXMFLG

15¢
15¢

ONCHMEM
ONOMENM, -(SP)

021530

2809
2810
2811 021560
2812 021564
2813 021570
2814
2815 021572

1SETUP THE ADORESS
t1SET THE FLAG AND EXI°
1IS IT A 1170342
;1NO
iGREATER THAN oK
sYES,23A/7238 WITH 128K MEMORY
sGREATER THAN 64K BUT LESS THAN 92v?
sNO, CHECK 24K
1SETUP THE ADORESS
1SET THE FLAG AND EXIT

sGREATER THAN 24K BUT LESS THAN 64K?

sNO, TELL THEM AND EXIT WITH FLAG CLEAR

sSETUP THE ADODRESS
sFOOL THE 11702 € 11703
1SET THE FLAG
1EXITY

sNOP FOR PRINTOUT
sTELL

THEM £ EXIT

eeeND PRINToecee

SP,RO
CSPNTF

o4 ,SP
PC

, NXMH]
UTS
: NXMLO
SOUTP
021476
021502
021506
021512

sNO
s GREATER THAN 128¢
s NO

s RETURN

SUBROUTINE TO SETUP THE NxM ADDRESS FOR TESTING

2794

2795
2796
2797
2798
2799
2800
2801
2802
2803
2804
2805
2806
2807

SEQ 0072

KT11 MEMORY MANAGEMENT REGISTERS

013701
062701
042701

010102
000006

002120
000200
000177

NXMTST

MOV
ADO

8IC
MOV
.REPTY
ASL

010137
000012

003130

042702
010237
000207

177700
003132

.ENDR
MOV
.REPT

LOMIME
R]

0200 ,R1
0177 R}
R1,R2
6
R1

;SETUP WITH NXM ADDRESS

:GET TOP OF MEMORY

;MAKE IT I/0 BLOCX OR OTHER NxM
{RESAVE RESWLTS

1PUT IN PLACE FOR XFER

R1,NXMLO

1SAVE TEST ADORESS LOW

ASR

1PUT IN PLACE FOR XFER

8IC
MOV

0177700,.R2
R2 ,NXMHI

1OON'T WANT ILA!

. ENDR

RTS

ENDMOO

10.

s SAVE TEST ADORESS MIGH

s RE TURN

TSva
MISCELLANEOUS SECTIONS
MACRO M1113
14 UUN B4 14:17
KTINITY
SETUP KT11 MEMORY MANAGEMENT REGISTERS
;

9 021572
021572

TSva::

LTITLE

TSva

BGNMOD

TSvae

SEQ 0093
MISCELLANEOUS SECTIONS

10
16
17

19
20 021572
021572

21 021572
22 021602

177777

L$PROT: :

.SBTTL PROTECTION TABLE
BGNPRO7T

. WORD

ENDPROT

-1,

tNO DEVICE PROTeCTION REQUIRED.

)T
MISCELLANEOUS SECTIONS

TSv4

INITIALIZE SECYION

MACRO M1113

25
26

021712

021716
021720
021720
021722
021722
021726
021730
021730
021732

021732
021736
021740
021740
021742
021742
021742

14:1/

.S8TTL

INITIALIZE

SECTION

i THE INITIALIZE SECTION CONTAINS THE COCING THAT IS PERFORMED

2?
29
30
31
32
33
34
35
36
37 021602
021602
38 021602
39 021606
40 021612
41 021620
42 021624
43 021630
a4 021634
021634
021640
45 021642
021642
46 021644
47 021652
48 021654
49 021660
S0 021662
S1 021666
32 021670
S3 021674
54 021676
55 021704
021706
021706
021710
021712

JUN 84

AT
:

1IF
s IF

THE BEGINNING OF

EACH PASS.

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

: INSERT TEMPORARY JUMP TO 007
LSINIT::

005037
005037
012737
005037
005037
005037

002216
003126
006356
003144
003124
002272

012700
104447

000036

103023
023737
103070
005737

100472

013701
006301
005761
001516
032761

001060

002172

404
:

MOV
TRAP

OEF .CONTINUE ,RO
CSREFG

BHIS
1ST

#EF . CONTINUE

1s:

DUFLG

8€EQ

SETU

817

003166

UNITN,LSUNIT

NXTU
UNITN,R1
R1

INIT

100 NOTHING IF

CSEXIT

TRAP

"CONTINUE'.

L10030-.
OEF NEW

#EF .NEW,RO

CSREFG

BNCOMPLETE NXTU
8cC
NXTU
#EF .START
READEF

MOV

;BR IF YES

:DROPPED?

TRAP

MOV

tUNIT IN RANGE?
t1BR IF NO.
;OROPPED UNIT?

#8IT14 ERTABL(R]1)

NXTU

.WORD
READEF

$SET UP PRIMARY MESSAGE FOR REPLACEMENT
sCLEAR "SOFT INIT” FLAG
1CLEAR TEST ABOVE 28K FLAG
;1CLEAR RAM SIZE FOR RAMERR ROUTINE

ERTABL(R1)

BNE

EXIT

000035

OEPRT] ,EPRTSW

BMI
MOV
ASL
TS7

003166

012700
104447

s TAKE

UNIT

NOT

#€EF .START RO

TRAP

CSREFG

MOV

®EF .RESTART RO

BCOMPLETE 2¢
8CS
24
READEF
#EF .RESTART

103404

104433

SIFLAG
KTENABLE
RAMSIZ

002012

103052

103031

CLR
CLR
CLR

BNCOMPLETE 14
8CC
1§

0ocz172

000416

012700
104447

FXTFEA
NXMFLG

READEF

104432

012700
104447

CLR
CLR

MOV

002170

003102

040000

BGNINIT

000037

24:

TRAP
CSREFG
BNCOMPLETE 31
8cC
314
BRESET
TRAP

CSRESET

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

NEW PASS.

x5
1Sva

- MISCELLANEOUS SECTIONS

MACRO M1113

JUUN 84

14:17

CLR
CLR
CLR
CLR

MOV

TSTCNT
FATFLG
T23A
1238

0.007

MOV
JSR
JSR
MOV
CLR
cHP
8LO

®-1,QvP
PC.ENVIRN
PC,KTINIT
S#ERTABL ,RO
(RO).
RO, #ERTABE
304

CLR

QvP

SEQ 0095

INITIALIZE SECTION
65
66
67
68
69

021744
021750
021754
021760

005037
005037
005037
005037

002204
002212

003134
003136

71
72 0217€4
73 021770
74 021770

75 021776
76 022002
77 022006

78 022012
79 022014

80
81
82

84
85
86

87
88
89

90
91
92
93
9%

95
9%

97
98
9
100
101

102

103
104

005037

003370

012737
004737
004737
012700
005020
020027
103774
000404
005037
000137

177777

31¢:

104422
005237
023737

002172
002172

002012

177777

003102

002172

104444
000240
023727
101752
005737
001747

104421
032700
001343

103342
005037
005237
012001
010137

MOV

NXTU:

BREAK
TRAP

000001

CLR

INC
cHP
8LO
MOV
BR
OOCLN
PASRPT:

TRAP

NOP

cve

i...QUICK VERIFY.
.,
.
;i SET ENVIRONMENT
t INITIALIZE KT MEMORY MANAGEMENT
;CLEAR TME ERROR TABLE

PASRPT

;GO REPORT THE STATUS

#-1,UNITN

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

SETU:

C$BRK

UNITN
UNITN,LSUNIT
SETU
€-1,0UFLG
114

C$0CLN

LSUNIT,
01

:...AND SET NEXT UNIT NUMBER.

;ABORT,

NO MORF UNITS.

s HOW MANY UNITS SELECTED?
sBR IF ONLY )
;BR IF NO

#ISR,RO
NEWPAS

;SHOULD WE PRINT STATISTICS

TRAP

10%:

DEVCNT

NEWPAS

DORPT

002176

1 : SFENTER THE DEBUGGER
1CLEAR THE SUBTEST ~“SKIPPER"

BEQ
BIT
BNE

000100

003102
002210

1RETURN TO DEBUGGER

NEWPAS

RFLAGS
TRAP

002172

SKIPT

1CLEAR 11/238 FLAG

B8LOS
TS7

002210

104424
000741

013700
104442

NEWPAS:

11¢:

002012

B8R

(SP)

002210

000401

105 022126
022126
106 022130
107 022132
108
109 022132
022132
022136
110 022140
022140
111 022142
112 022146
113 022152
114 022154

002174
022100

177777

20%:

304 :

003366

012737
005037

103423
012737

022074
022076
022.00
022100
022106
022110
022114
022116
022116
022120
022124

020720
021100
003166

002174

CLR

0340,

iNUMBER OF TESTS RUN IN PASS
tCLEAR FATAL ERROR COUNT
tCLEAR 11/23A FLAG

DEVCNT

RO
CIRFLA

;BR

ANY

STILL

RUNNING?

IF NO

CS$DRPT

B8R

NEWPAS

GPHARD
MOV

UNITN,RO
UNITN,RO

TRAP

;ARE

C¢GPHRD

BNCOMPLETE NXTU
8CC
NXTU
CLR
DUFLG
DEVCNT
INC
MOV
(RO).+,R1
MOV
R1,CSRADDR

tGET UNIT N P TABLE POINTER.
;B8R IF UNIT NOT AVAILABLE.

1+CLEAR "DROPPED"” FLAG.

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

e
TSva - MISCELLANEQUS SECTIONS
INITIALIZE SECTION
115

116 022160
117
118
119 022162
120 022166
121 022172
122

MACRO Mi113

14 JUN 84 14:17

MOV
s MOV
MOV
MOV
MOV
MOV

012001
010137
01272!
013721

002200
016306
002202

SEQ 009¢

tGET YECTOR ADDRESS.
sGET INTERRUPT PRIORITY
1SET INTERRUPT PRIORITY,
1SET INTERRUPT VECTOR POINTER.
.
t...VECTOR

(RO).,R1
(RO).R2

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

i...AND PRIORITY,

123 022176

1$:

126
127
128
129

;IST PASS, CHECK THAT DEVICE ADDRESSES ARE VALID, AND

124
125

; THAT

130

131
132
133
134
135
136
137

022176
022202
022204
022212
022216
022224
022226
022226
138 022230
1¥9 022234
140 022236
022236
022242

141
142
143
144
145
146

147
148
149
150
151
152
153
154

:
H

022246
022252
022254
022256

022262
022262
022266
022272
022274
022300

022304
022306
022312
022320

013701
006301
052761
005037
023727
101416
104421
032700
001412

002172
100000
005770
002012

THE DISPLAY

003166
000001

001000

013746
012746
012746
010600
104417
062706

002172
022330
00000¢

005037
013701
010102
062702
004737
103005
010137
012737

003104
002176

000006

10$:

000002
016466
003104
177777

003102

Qvp
S¢

24:

MOV
ASL
BIS
CLR
ce
8LOS
RFLAGS
TRAP
817
BEQ
PRINTF
MGV
MOV
MOV
MOV
TRAP
ADD
CLR
MOV
MOV
ADD
JSR
8ccC
MOV
MOV

$1ST PASS 2?
sNO, SKIP THE PASS 1 STFF,

STATUS IS PROPERLY

léNITN.Rl
1

INITIALIZED.

®IT1S,ERTABL(R])

1SAY DEVICE RUNNING

LSUNIT, 01

$ARE WE TESTING MLTIPLE UNITS?

EXTA

108

CSRFLA

;CLEAR ERROR EXTENSION FLAG.

$1BR IF NO.
$YES

-- GET OPERATOR FLAGS.

#PNT RO

sSHOULD WE PRINT UNIT o7

OPUNIT,UNITN

sPRINT THE UNIT o

104

tBR IF NOT.

OPUNIT, -(SP)
SP,RO

COPNTF
06 ,5P
NOOEV

CSRADOR . R1

; ADDRESS OF FIRST REGISTER

R1.R2
#TSSR,R2

3START OF REGISTERS
; ADDRESS OF TSSR REGISTER

i...AND BR IF ALL OK.

0-1,00FLG

1DROP THIS UNIT.

PC ., XNXM

R1,NODEV

; TEST BOTH CONTROLLER REGISTERS. ..

tFLAG DEVICE AS NON-EXISTENT

;FINAI.LY. SET CPU PRIORITY AND WE'RE DONE.

022320
022320

022324
155 022326
022326

012700
10444)

156 022326

104411

157 022330

045

158

TS1
BEQ

:
Ss:

000000

L10030:

116

045

PUNIT:

#PRIOO
SETPRI
OPRIOO,RO
MOV
TRAP
C$SPRI
ENDINIT

:ENABLE INTERRUPTS.

TRAP

CSINIT

LASCIZ
.EVEN

/%NsiNAsssss TESTING UNIT #D2SA sssse/

TSva - MISCELLANEOUS SECTIONS
ADD AND DROF UNITS SECTIONS

(&
MACRO M1113

14 UUN 84

.SBTTL

16¢C
161

162

14:17

“EQ 009/

ADD AND DROP UN1TS SECTIONS

:00

;
:
i

163

164
165
166

167 022376

LSAV::

022376
168 022376
169 022400
170 022402
171 022410

010001
006301
052761
042761

022430
022432
022434

012746
012746
010600
104417
062706

022440
022442

000026

000006

000167
045

116

04s

1%:

L10031:

RO,R1

;

GET UNIT

ASL

;

MAKE

8IC

#40000,ERTABL(R1)

CLEAR THE

#100000,ERTABL(R1)

PRINTF
MOV

@#1%.RO
RO, -(SP)

MOV
MOV
TRAP

02,-(SP)
SP,RO
CePNTF

ADD
EXIT
. WORD
. WORD
LASCIZ
.EVEN

TO BE ADDED (RO)

A WORD

INOEX

s SET THE "ACTIVE" BIT

“DROPPED” BIT

14, -(SP)

#6,5P
AV
JIWP
L10031 2-.
/#NsSA
UNIT #DsA ADDED/

ENDAU

TRAP

UNUSED.

CsAU

THE OROP-UNIT SECTION CONTAINS THE CODING
TO BE REMOVED FROM THE TEST LIST.

THAT

CAUSES

A DEVICE

104452

®s

187
188
189 022474
022474
190 C22474
191 022502
192 022504
193 022506
194 22514
195 022522
022522
022524
022530
022534
022536
022540
196 022544
022544
022546

MOV

022444
000002

174 022444
175
176
177 022472
022472
022472
178
179
180
181
182
183
184
185

BGNAU

B81S

003166
003166

173 022440

010046

100000
040000

172 022416
022416
022420
022424

THE ADD-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE
TO BE (A) ADDED TO THE TEST LIST FOR THE FIRST TIME,
OR (B) RE-INSERTED IF IT HAD BEEN PREVIOUSLY DROPPED.

012737
010001
006301
052761
000240
010046

012746
012746
010600
104417
062706
000167
000030

177777

003102

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

L$DU::

BGNOU
MOV
MOV
ASL

140000

000240

022550
000002

003166
000240

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

@01%.RO

MOV
MOV
MOV
MOV

RO, -(SP)
01¢,-(SP)
02,-(SP)
SP,RO

ADD
EXIT
WORD
.WORD

06, 5P
ov
JsuMP
L10032-2

TRAP

000006

0-1,DUFLG
RO,R1

C4PNTF

: SAY DROPPED
1NN

I $.
{

MISCELLANEOUS SECTIONS
TSva
ADD AND DROF UNITS SECTIONS
19° 022550

045

116

MACRO M1113

04S

1%:

198

199 02600
022600
022600

L10032:

104453

200
201
202

013705
012703
004737
103420

002176
000550
016340

012727

000372

013727
000000
005367
001375
005367
001367
005303
001357
004737

002116

000000

210
211
212
213

14:17

.ASCIZ
.EVEN
ENODU

/8NSA

TRAP

Cs0U

SEQ 0098
UNIT

#DsA

DROPPED/

HE
R

203
204
205
206
207
208

JUN

104461

AUTO-DROP CODE

L$AUTO::

10%:

SECTION.

BGNAUTO
MOV
MOV
JSR
B8CsS
DELAY

177772

CSRADOR ,R5

+POINT TO DEVICE REGISTER

PC,WAITF

tWAIT FOR

0360, ,R3

sENOUGH TIME FOR 2400’

;LEAVE WHEN SSR IS SET
{WAIT FOR .25 SECONDS

204
250.

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

-22(PC)
. 20

177756

;:8UMP COUNTER DOWN
;KEEP GOING

017272

SSR TO SET

20%:

L10033:

JSR

10%

PC,CKDROP

ENDAUTO
TRAP

:TRY

C$AUTO

UNUSED.

AND DROP UNIT

REEL

TO REWIND

MISCELLANEQUS SECTIONS

TSva

MACRO M1113

CLEAN UP AND REPORY CODING SECTIONS

14 JUN 84
.S8TTL

21s

[

14:17

SEQ 0099

CLEAN UP AND REPORT CODING SECTIONS

240
241
242
243
244

245
246
o847
248
249

251
252
253 023020
023020
023022

@
@s
®s

002176

012765
004737

000000
016340

TST
8MI

CSRADDR,RS
OWFLG
1

;POINT TO DEVICE REGISTER
: "OROPPED” FLAG IS SET ON...
$...AND GROSS CONTROLLER FAWLT...
i...00N'T TRY TO xCT CLEANUP CODE.

MOV
JSR

90, TSSR(RS)

;00 SOFT

PC.WAITF

MOV

003102

000002
1%:

2%:

L10034:

104412

INIT

ENOCLN
TRAP

CS$CLEAN

; THE REPORT CODING SECTION CONTAINS THE
: "PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS.
LSRPT
;.
012746
012746
010600
104416
062706
010246
010346
010446
012704

005003
011402

032702
001015
042702

010246
010346

012746
012746
010600

104416
062706
000446
020227
001012
010346
012746

PRINTS

MOV
MOV
MOV

023152
000001

TRAP

000004

#DEVSUM
QDEVSUM, -(SP)
o1,-(SP)
SP.RO
CSPNTS
64 ,5P

R4, -(SP)

R4
#ERTABL

003166

1¢:

001467

100066

BGNRPT

MOV

R3
(R4),R2
44

238
239

013705
005737
100405

237

022710
022710
022710
022714
022720
022722
022724
022730
022732
022734
022736
022742
022744
022746
022750
022752
022756
022760
022764
022764
022766
022770
022774
023000
023002
023004
023010
023012
023016

BGNCLN
LS$CLEAN::

232
233
234
235
236 022710

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

022706
022706

L X4

®s

217
218
219
220
221
222 022662
022662
223 022662
224 022666
225 022672
226
227
228 022674
229 022702
230 022706
231 022706

216

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

WAS UNIT

#1714 ,R2
2
1C7777,Re

040000

170000

DROPPED?

B8R IF YES
GET ERROR COUNT FIELD

SOEVONL
,R3 R2

R2.-(SP)

#OEVONL
, -(SP)

023207
000003

93, -(SP)
SP.RO

C#PNTS

€10,SP
44

000010

160000

023257

2s:

cMP
PRINTS
MOV
MOV

§2.0160000
4
SDEVNXR ,R3

R3,

(SP)

QDEVNXR, -(SP)

H
;

WAS UNIT NON EXISTENT?
BR [F NO

IT.

MISCELLANEOUS SECTIONS

TSva

MACRO M1113

CLEAN-UP AND REPORT CODING SECTIONS

254
255

257

258
259
260

023026
023032
<3034
023036
023042
023044
023050
023052
023052
023054
023060
023064
023066
023070
023074
023076
023102
023102

023104

023106
023112
023116
023120
023122
261 023126

023132
263 023134
023140
265 023142
023144
267 023146

269
270
271
272
273
274
275
276
277
278

012746
010600
104416
062706
000431
020227
001012
010346
012746
012746
010600
104416
062706
000414
042702

14:17

MOV
MOV
TRAP
ADOD

02,

000002

000006
3s:

160001

B8R
cMe
BNE

PRINTS

010346
012746
012746
€10600
104416
062706
062704
005203
020427
103701
012604
012603

023152
023207
023257
023341
023422

045
045
045
045
045

(SP)

SP,RO
CSPNTS
06,5P

R2,4160001
30¢

WAS UNIT NOT READY

: BR IF NC.

QDEVNRD ,R3

STARTULP?

R3, -(SP)
02, -(SP)

SP.RO
C$PNTS
#6,SP

0tC7777,.R2

30¢:

170000

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

@DEVDRO, -(SP)

023422
000003

@3, -(SP)

SP,RO
C$PNTS

000010
000002

#10,5P
02,R4
R3
R4, 0ERTABE

003366

18
(SP)+ R4

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

012602

104425

SEQ 0100

ODEVNRD,
- (SP)

023341
000002

010246

023150
023150
023150

023472

14 JUN 84

L1003S:

116
101
101
101
101

045
040

040
040
040

DEVSUM:
DEVONL
:
DEVNXR:
DEVNRD:
DEVORO:

UNUSED.

CSRFT

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.EVEN

ENOMOD

/SNSADEVICE STATUS SUMMARY: SN/
/8A
UNIT #D3sA
ERRORS = DN/
ONLINE,
/s8R
UNIT #D3#A
DROPPED, NON-EXISTENT REGISTERSN/
/#A
UNIT #03#A
DROPPED, NOT READY AT STARTUPSN/
/%A
UNIT #D3sA
DROPPED, ERRORS = #D®N/

l<?fi
TSV? - HARDWARE TESTS 1 8

MACRO M1113

CLEAN UP AND REPORT CODING SECTIONS

023472
023472

14-JUUN 84

14:17

.TITLE

TSV7

BGNMOD

TSV?

.SBTTL

TEST

TSV7::

SEQ 0101

- HARDWARE TESTS 18

INITIALIZE @4

TEST

;THIS TEST VERIFIES THAT WRITING INTO THE TSSR RETURNS THE

;:CONTROLLER TO ITS INITIALIZED STATE FROM VARIOUS CONDITIONS
:(I.E. LOOPBACK ENABLED, FORCING WRONG PARITY,
;EXTENDED FEATURES SWITCH, ETC.)
023472
023472
02347¢

BGNTST
012737

006356

002170

INVERTING SENSE OF

T1::

MOV

OEPRT1 ,EPRTSW

;SET P PRIMARY ERROR MESSAGE

JSR
MOV
JSR
MOV

PC,DSBINT
#7572110,R0O
PC.,TSTSETWLP
05 ,L00PCNT

;:DISABLE INTERRUPTS
+ASCIT MESSAGE TO IDENTIFY TEST
;00 INITIAL TEST SETUP

JSR
JSR

PC,T21REST
PC,.T21RT2

:SET COMMAND PACKET
+SET UP OTHER COMMAND PACKET

STEST 1

023500
023504
023510
023514
023522
023522
023526

004737
012700
004737
012737

016272
024434
016600
000005

004737
004737

024456
024546

002206

T21L00P:

;:PERFORM S5 ITERATIONS

1888808488880 8888080888888080808888000820800800028¢8008083880840042

;ISSUE CONTROLLER "SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR
]

1808804608668 0848888008388888808¢88088888802080808808002808055000008

023532
023540
023544
023546
023546
023552
023554

023560
023562

023566

023570
023574
023576
67 023602
68 023604
72 023610

012737
004737

816064

012727
000000
013727
000000
005367
001375
005367
001367
005337
001356
005237
010001

000250

103426

024112

11%:

MOV
JSR
8Cs
DELAY

065000.,T210LY
PC,SOF INIT
20¢
250

002116

177772
177756
024112

002212

DEC
BNE
INC

MOV

T210LY
114
FATFLG
RO,R1

1SET DELAY ROUTINE
;00 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
;:DELAY FOR A REWIND TO FINISH
MOV
. WORD
MOV
. WORD
DEC
BNE
0EC
BNE

;BUMP COUNTER DOWN
:BR, IF MORE TIME TO GO
;8UMP COUNT
.CONTENTS OF TSSR REGISTER

250,(PC).
0

LSOLY, (PC).
0

-6(PC)
.-4

222(PC)
.-20

TSv7
TEST

HARDWARE TESTS 1 8
INITIALIZE @4 TES?T

MACRO M1113

14 JUN 84 14:17

LK
SEQ 010¢

023612
023612
023614
023616
023620
74 023622
75 023622
73

ERROF

104455

000145
003650
012124

012704

208.

024070

7¢
77

110
111
112

113
114
115
116

117
121

TSSR

WAS NCT 0w
TRAP

. WORD
. WORD
. WORD

MOV

#T21PACKET
R4

CSEROF

101
SFIERR
SF IMSG

;1SUBROUTINE NEEDS PACKET ADORESS

1080808080080 80888002880080880880408300008080888000808800808006060800¢

83 023626
023634
85 023640
023642
023646
91 023650
023650
023652
023654
023656
023660
023660

107
108

ERROR

WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

39
81

106

tFATAL

1888880008088 0088080¢808808¢80800808008080088008¢80800080800400008009

78
79

101

SF IMSG
SF IERR, Q,
ERRN

023670
023676
023676
023702
023706
023712
023714
023716
023722
023722
023724
023726
023730
023732
023732
023734
023742
023746
023752
023754
023760
023764
023770
023772
023774
023776
024002
024002
024004
024006

013737
004737
103407
005237
010001

002172
010752

MOV
JSR
8cs
INC
MOV
ERRHRD

024110

002212

104456
000146

005054
012124

104406

234

112737
112737

000200
000010

012704
010465
004737
103407
010001
005237

024200

024210
024211

25¢-

016426

002212

-~y

v\
.

104406
012765
004737
016501
010102
042702
052702
032701
001012
020102
001406
005237

104456
000150
024313

000000
016340
000002

000002

176377
002200
000100
35¢:

002212

234

FATFLG
RO,R1

ERRNO , WRTMSG,
SF IMSG

$;SET UP DRIVE NUMBER
s ISSUE WRITE CHARACTERISTICS
18R, IF COMMAND ISSUED Ox
18UMP COUNT
$SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC FAILED
TRAP

CKLOOP

CSERHRD

. WORD
.WORD
.WORD

102
WRTMSG
SFIMSG

TRAP

CsCLP1

“ove
MOve

9200, 121850
#10,7218S1

sWRITE MISCELLANEQUS CONT/READ STATUS
stFUNCTION SELECTION BIT

MOV
MOV
JSR
8CsS
MOV

0T21PK2
, P4
R4 ,TSDBRS)
PC,CHKTSSR

;WRITE SUBSYS MEM PACKET

ERRHRD

104456
000147
024216
012136

UNITN, T21DSW
PC.WRTCHR

304

RO,R1
FATFLG

ERRNO, T21SSR,PKTSSR

tWAIT FOR SSR

iBR,

IF NO ERROR

;ERROR,

SAVE TSSR

;BUMP COUNT
; TSSH NOT CORRECT AFTER WRT. MISCELLANEOUS
TRAP

;1SCOPE LOOP

CKLOOP

MOV
JSR
MOV
MOV
8IC
8IS
8IT
BNE
CHP
BEQ
INC
ERRHRD

: ISSUE COMMAND

€0, TSSR(RS)

PC,WAITF
TSSR(RS5),R1

R1,R2
#+C<HIADOR>
,R2
OSSR !NBA ,R2
Q0FL ,R1
38%

R1,R2

374

FATFLG
ERRNO, T21AM3 ,EXPREC

;ISSUE A SOFT INITIALIZE

sWAIT FOR JUST

CS$ERHRD

. WORD
. WORD
.WORD

103
T21SSR
PKTSSR

TRAP

CsCLP]

THE SSR BIT

TQ SET

tREAD THE TSSK BACK
;sWORK REGISTER
t1CLEAR OUT OTHER BITS
1SOME OF THE BITS THAT SHOWD BE SET
;IS OFF LINE BIT SEY
;BR, IF DRIVE 1S OFF LINE
{EXPECTED (R2) = RECEIVED (R1)
;BR, IF THEY ARE EQUAL (0OK)
;BUMP COUNT
; "ERROR TRYING TO INIT AFTER WRITE MISC.
TRAP
. WORD
.WORD

C$ERMHRD
104
T21AM3

M
TSv7?

HARDWARE TESTS 1 8

TEST

INITIALIZE #4 TES!T

024010

015564

123 024014

000406

122 024012
024012

124 024016

128 024016
024016

104406

104455

129 024026

004737

017272

131 024034
132 024040
133 024042

106037
001316

024211

134 024044
135 024050

004737
103002

024042

015564

000241

104406

136 024052

000137

024056

104432

137 024056
138
139

024060

404 :

; TRY AND DROP UNIT

RORB
BNE
CxLOOP

121851
254

; TRY NEXT "LOWEST” BIT POSITION
;LO0P UNTIL ALL EIGHT BITS TESTED
; SCOPE LOOP

JSR
8cC

PC,TSTLOOP
634

;00 WE NEED TO ITERATE TEST
;BR, IF NO LOOP REQUIRED

EXIT

TST

;ALL OONE THIS TEST

CLC

50 :
016546

023522

PC,CKDROP

638

159

T210SW:
T210LY:

T21BFR:
;WRITE

165 024200
166
167
168
169
170
171

T21DATA:

;

160

162 024176
164 024200

024202
024204
024206

024210

172 024210
173 024211
174 024212
175 024214
176

SNEAK IN

100206

T21PK2:

024210
000000
000006

000
000

000000
000000

TRAP

CsCLP1

TRAP

CSEXIT

;EXECUTE AGAIN

T218S0:
T218S1:
T2152:
T21S3:

179-<.-TSV2ET>

100004
T21DATA

; COMMAND PACKET FOR TEST
;WRITE CHARACTERISTICS COMMAND, WITH, ACK
; ADDRESS OF CHARACTERISTICS BLOCK

.WORD

10.

;STARTING VALUE OF BLOCK SIZE

. WORD

T218FR

; ADDRESS OF MESSAGE BUFFER

.WORD
.WOKRD
.WORD
.WORD
.WORD

.BLKW

;CHARACTERISTICS DATA BLOCK

O
20.
O
O
O

;LENGTH OF MESSAGE BUFFER

;ORIVE SELECT WCRD
;DELAY COUNTER

25.

;MESSAGE BUFFER

SUBSYSTEM MEMORY COMMAND PACKET
.BLKB

.WORD

.MORD
LWMORD
.WORD

T218F2:

L10036

STORAGE FOR THMIS TEST

. WORD

12; Co4al:ra

T21L00P

;OON'T LET CARRY

.WORD

000012

EXPREC

105
T210FL

JSR

.BLKB

000000
000024
000000
OQ0OCO0
000000

.WORD

;:DRIVE IS OFF LINE

149 024076
024102
024104
024106
024110
024112

C$ERDF

ERRNO, T210FL ,EXPREC

100004
024100

152
153
154
155
156

TRAP

ERROF

T21PACKET :
. WORD
. WORD

O02«114

cscLP

;SKIP OVER OFF LINE STIFF

145 024070
146 024070
147 024072

151 024100

TRAP

000000

£ XPREC

B8R

141

143 024062

.WORD

.WORD
. WORD

O
;LOCAL

15C 024100

;LOOP IF SELECTED

000530

140

148 024074

SEQ 0103

Cr¥LO0P

000151
024413

130 024032

14 UUN B4 14:17

37%:

024020
024022
024024

MACRO M1113

10-<.

100206

T21BF2
O
6.

TSVeET>

;WRITE SUB SYS MEM COMMAND,
; ADDRESS OF
;SIZE

IE AND A(K

SELECT BLOCK DATA

DATA PACKE~”

.EVEN

.BYTE
.BYTE

.WORD
.WORD

O
0
O
O

;BSELO AREA
:6SEL1 AREA

;SEL 2 AREA
;:DATA AREA

“COMMAND' B TE

TSV?
TEST

MARDMARE
1:

TESTS

MACRO M1113

1 8

INITIALIZE o4 TES?

14 JUN-84 14:17

SEQ 0104

17?

178
179

180
181
182 024216
183 024313
164 024413
185 024434
186
187
188
189
190
191

:LOCAL TEXT MESSAGES FOR TEST
127
124
104
111

122

123
162
156

111

123
151
151

T21S5SR:
T21AMS:

:
T210FL
TST2110:

.ASCI2
.ASCIZ
.ASCIZ
.EVEN

‘WRITE MISCELLANEOUS CONTROL/READ STATUS Commenda Not Accepted

'TSSR

Orive
.ASCI2

Init.

Feiled After

WRITE

is OFFLINE
‘Initiel
zet on 04

MISCELLANEOUS

CONRTOL /READ STATUS

{ROUTINE TO RESTORE COMMAND PACKET TO START UP (DEFAULLT) VALUES
:WRITE

SUBSYSTEM MEMORY COMMAND

192

193
194
195
196
197

024456
024456
024462
024466
024472
02447¢
024500
024504
024510
024512
024516
024520
024522
024526
024534
024536
024542
024544

198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214 024546
215 024546
216 024552
217 02455€
218 024562
219 024566
220 024570
221 024574
222 024576
223 024602
224 024604
225 0246506
226 024610
024610
024610

227
228
229
230
231

T2IREST:
012701
012721
012721
005021
012721
012721
005021
012721
005021

005011

012702
012762
005742
020227
001371
000207

MOV
MOV

000010
024114

MOV
MOV

CLR

000024

000020
177777

024114

64%:

000000

CLR
MoV
CLR
CLR
MOV
MOV
1S1
cHP
BNE

RTS

T21RT¢g:

012701
012721
012721
005021
012721
205021
012701
005021
005011
000207

SAVREG

024070
100004
024100

024200

100206
024210

SAVREG

024210

#T21DATA,(RY1).
(R1).
#8.,.R1).

OTC1BFR,(PY).
(R1).

:SAVE THE REGISTERS
;START OF THE PATKET
;WRITE SUBSYSTEM MEM. WITH ACK,
1+ADORESS OF CHARAISTICS DATA BLOCK
;EXTENDED ADDRESS
:SIZF. OF DATA BLOCK IN BYTES
; ADDRESS OF MESSAGE BUFFER

020.,(R1).

:LENGTH OF MESSAGE BUFFER

#20,R2

;:NUMBER OF LOCATIONS TO BE CLEARED
sALL OheS TO MESSAGE BIFFER
sNEXT LOCATION
;CHECK R FOR ZERO
;BR, IF NOT AT ZERQ YET
;RETURN

(R1).
(R1)

0177777.T21BFR(R2)
-(R2)
R2,00

644
PC

MOV
MOV

0T21PK2,R1

CLR
MOV
CLR

(R1).
6. ,(R1).
(R1).

MOV

000006

#T21PACKET
R]
#1000C4,(R1).

0100206, (R1)+
81218F2,(R1).

:SAVE THE REGISTERS
1START OF THE PACKET
;WRITE SUBSYSTEM MEM, WITH ACK,
:ADDRESS OF DATA BLOCK
;EXTENDED ADDRESS
:SIZE OF DATA BLOCK IN BYTES

MOV

07218F2,R1

: ADDRESS OF

RTS
ENDTST

: RETURN

CLR
CLR

(R1)+
(R1)

DATA FOR WRT

L10036:

104401

.SB8TTL

TEST

OFF -LINE AND REJECT REWIND

;THIS TEST VERIFIES BASIC TAPE MOTION COMMAND DECODING AND BASTC

SUB

TRAP

SYS MEM

CSETST

S
TSV7? - MARDMWARE TESTS | 8
MACRO M1113
TEST 2: OFF LINE "0 REJVECT REWIND
232

14 JUN 84 14:1}17

SEQ N1NS

tOPERATION OF THE REWIND POSITIONING COMMAND.

233

IT DOES NOT

iNECESSARILY DEMONSTRATE THAT THE TRANSPORT CAN BE REWOUND FROM AN

234

1ARBITRARY POSITION ON THE TAPE. SUBSEQUENT TESTS IMPLICITLY

;SEQUENCES.

235
2%

;1CHECK THE OPERATION OF THE REWVIND COMMAND SINCE THEY MysST
tTYPICALLY REWIND THE TAPE IN THE NORMAL COURSE OF THEIR TES?

238

THE

TEST CONSISTS OF

THE FOLLOWING THREE SUBTESTS

239
240

:
:

241 024612
024612

242 024612
247 024620
248 024624
<19 024630
250 024634
251
252

012737
004737
012700
004737
012737

00635
016274
027077
016600
000005

BONTST

002170

002206

MOV
JSR
MOV
JSR
MOV

3
H

T2::

OEPRT] EPRTSW
PC.0SBINT
#71512210,R0O
PC,TSTSETUP
05, LO0PCNT

sSET UP PRIMARY ERROR MESSAGE
;DISABLE INTERRUPTS
sASCII MESSAGE TO IDENTIFY TEST
100 INITIAL TEST SETWP
tPERFORM S ITERATIONS

253

s TEST 2., SUBTEST 1

256
257
258

sMODE CODES) TERMINATE WITH FUNCTION REJECT AND

254
255

H
sVERIFIES THAT ALL TAPE-MOTION COMMANDS (WITH VALID

;OFF -LINE STATUS WHEN THE TAPE TRANSPORT IS OFF -LINE.
1 THE SUBTEST OPERATES BY PLACING “HE CONTROLLER INTO

259

tEXTENDED MODE, SELECTING UNIT 7, AND ISSUVING EACH

260

s TAPE-MOTION COMAND, CHECKING, AFTER EACH COMMAND,

2221

sTHAT

2
263

264 0246472

0246472

024642
266 024644
222; 024650

BGNSUB

104402
004737
004737

027132
027224

$§2>93535>5>v5> BEGIN SUBTEST

JSR
JSR

PC.T22REST
PC.T22RT2

;ISSUE CONTROLLER ~SOF T~ INITIALIZE

TRAP
:sSET COMMAND PACKET
1SET UP OTHER COMMAND PACKET

cs8suB

- CARRY BIT CLEAR IF ERROR

273

1060800000008 0000008000080000880000028000000068008080008000080000000000

024654
024660
024662
024666
024670

004737
103407
005237
010001

024672

000311

024676
283 024700

012124

024670

024674

2:; 024700

016064

JSR
8Cs
INC
g )]
ERROF

002212

104455

PC,SOF INIT
204
FATFLG
RO,R1
ERRNO, SFIERR , SF IMSG

100 INITIALIZE ON CONTROLLER
s8R IF INIT WAS 0K
18UrMP COUNT
;1CONTENTS OF TSSR REGISTER
1FATAL ERROR TSSR WAS NOT 0K

TRAP

003650

012704

201

. WORD

SF IMSG

.WORD

026160

208

MOV

OT22PACKET R4

1SUBROUTINE NFEDS PACKET ADDRESS

1000080800808 088080800868008080008008080008800000008008008000000080008000

287

tWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

CSEROF

LWORD

286

288

>>33353335>>

108000000000000000000000006000000000800000000000000600000000800800000
$

g;é

ACCOMPLISHED.

T2.1:

269
270

275
276
277
281
<R2

TERMINATION WAS

T1221L00P:

265 024642

274

FUNCTION REJECT

SFIERR

1Sv7?
TEST

HARDWARE

TESTS

MACRO M1113

2: OFF -LINE AND REJVECT REWINO
289
290
291
292
293
294

JUUN R4

14:]/

SEQ N10%

1006000002000 000400000000800000000000000000000000000000000800000000000

004737
103407
005237
010001

JSR
8CS
INC
MOV
ERRHRD

010752
002212

PC,WRICHR
234

FATFLG

RO,R1

FRANG, WRTMSG , SF IMSG

1 ISSUE WRITE CHARACTERISTICS

1BR, IF COMMAND ISSUED Ow
;8UMP COUNT
s SAVE CONTENTS OF TSSR
IWRITE

CHARACTERISTISC FAILED

104456
000312
005054
23s:

013701
032701

026210

005237

002212

001407

311
312

ERROF

313

314
315
316
317
318
319

324

325
326
327
328
329
330
331
332
333

025050
335 025054
336
340 925062
341 025064

001041

112737
112737

012704
010465
004737
103407
010001
005237

244

sPICK

244
FATFLG

sNO,PROCEED WITH TESTING
1BUMP COUNT
sTAPE IS WRITE LOCKED

ERRNO, T22W
K , SF IMSG

.MORD

SFIMSG

000010

026270

3NE
MOvV8
MOVe
MOV
MOV
JSR
8CS
MOV
INC
ERRHRD

026301
026300

01642¢

002212

000314
026320
012136

EXTFEA
504

0200, 122851
€10, 722850
072202 ,R4
R4, TSOB(RS
)

PC,CHXTSSR
30¢

FATFLG

ERRNO, T22SSR,PKTSSR

MOV

026160

CiCLPt

TRAP

CIERDF

TRAP

CH0CLN

s IS UNIT WRITE-LOCKED?

OT22PACKET R4

1ERROR, SAVE TSSR

18UMP COUNT
; TSSR NOT CORRECT AFTER WRT, MISCELLANEOUS
TRAP
CSERMRD
.WORD
LMORD
.MORD

sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
1080080880600 080800800800008280808048000000000000060804080800000088000

010001

010752
002212

JSR
3CS
INC

MOV
ERRHRD

PC.WRTCHR

S0+

FATFLG
RO,R1
ERRNO, WRTMSG, SF IMSG

204
T22SSR
PXTSSR

TRAP
CsCLPl
1 SUBROUTINE NEEDS PACKET ADORESS

1080088680608 0064800600000000080800800000880800000000080000008000000800

004737
103407
005237

203
T22MLK
SFIMSG

TRAP
CiCLP1
;CHECK FOR EXTENDED FEATURES SW SWITCH
1BR IF SWITCH IS ON
tWRITE MISCELLANEOUS CONT/READ STATUS
sFUNCTION SELECTION BIT (TURN ON EXTFEA MW SWITCH)
sWRITE SUBSYS MEM PACKET
s ISSUE COMMAND
sMAIT FOR SSR
s8R, IF NO ERROR

1LOOP IF SELECTED

C«LOOP

202
WRTMSG

TRAP
XTS0O

.WORD
LMORD
.MORD

CKLOOP
1S7

002216

104456

104406
012704

T228FR+6,R}

DOCLN

104444

104406
005737

CxL00oP
MOV
8IT
8EQ

104455
000313
027012
012124
310

CSERRD

. WORD
. WORD

012124

104406

TRAP

s ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED Ox
;8UMP COUNT
s SAVE CONTENTS OF TSSR
tWRITE

CHARACTERISTISC FAILED

TSv®
TEST

1HARDWARE

TESTS

MACRO M111%

2: OFF LINE AND REJECT REWIND
025064

025066
025070
025072
342 025074
025074

343 025076
025102
345 025106
346 025110
350 u25114
025114
025116
025120
025122
025124
025124
025126
025132
025136
025142
025146
025152
023156
025162
025164
025166
025172
025172
025174
025176

367

369

370
371
372

373
374
375
376
377
378
379
381
382
383

385
3186
387

14 JUUN %4

14:1°

SEQ 0197
TRAP

104456

000315
005054
012124
104406
016501
032701
001006
005237

S04 :

MOV

000002
000100

eIt

BNE
INC
ERROF

002212

104455
000316
026515
012124

104406
012703
011337
012704
010465
004737
016501
012702
v20102
001406
005237

608 :
026306
026270
026270

654 :

MOV

000002

CsCLP)

FATFLG

;8UMP COUNT

6014

ERRNO, T220F L , SF IMSG

tBR,

IF OFFLINE (GOOD)

;OFF LINE SHOUWLD HAVE BEEN SET (BAD)
TRAP
CHERDF
. WORD
206
sLOOP IF SELECTED

0T22RD ,R3

tPOINTER FOR COMMANDS

8722PK2 R4
R4, TSOB(RS)

;R4 =» POINTER TO PACKET
s ISSUE COMMAND

TSSR(RS),R1

tGET TSSR CONTENTS

(R3),T22PK2

. WORO
. WORD

T220FL
SF IMSG

TRAP

CsCLP}]

s TAPE MOTION COMMAND IN PLACE
tWAIT FOR SSR TO SET

OSSR!SC'OFL!BIT1!BIT2,.R2;SET UP EXPECTED

100306

R1.R2

;ARE THEY EQUAL

FATFLG

1BUMP COUNT

002212

ERRNO, T22TM EXPREC

t1BR, IF OK ESP. FUNCTION REJECT
1 TSSR INCORRECT AFTER TAPE MOTION CMD
TRAP

LWORD

. WORD

026570
015564

808 :

187

cHP
8EQ
BR

177777

sLOOP IF SELECTED

CKLOOP

(R3).

;POINT

904

;1BR,

0177777,(R3)

654

ENDSUB

104403
023727
103402
004737

TRAP

1GET TSSR CONTENTS
;CHECK FOR THE OFFLINE BIT SET

PC.MAITF

016340

205
WRTMSG
SF IMSG

TSSR(RS),R]
SO0FL R1

CxXLOOP

104456
000317

104406
005723
022713
001401
000746

1 SCOPE LOOP

CxLo0P

002212

017272

CsERRD

. WORD
. WORD
. WORD

000017

cre

9994 :

BLO
JSR

;:END OF

Ti#

COMMANDS

END

1 TEST 2,
:

TRAP

CsCLP1

YET

SUBTEST

L10040:

>>35353>>>>>

TRAP

FATFLG,#1S.

1IS ERROR COUNT

PC ,CXDROP

sTRY TO OROP THE UNIT

s8R,

IF LESS THAN 25

;

T22TH

EXPREC

;MORE COMMAND(S) 10 GO
$2>>3>>5>33>>

9994

207

.WORD

TC NEXT COMMAND

IF DONE

CIERMRD

SUBTEST 2

s VERIFIES THAT A REWIND COMMAND, WITH THE CLEAR VOLUME
sCHECK (CVC) BIT CLEAR, IS REJECTED IF THE VOLUME CHECK
s(VCK) FLAG IS SET.

CsESLB

TSV?
TEST

HARDMARE

1ESTS

MACRO Mi11%

2: OFF-LINE AND REJECT REWIND
388 025234
025234
025234
389 025236
390 025242

14 JUN 84

14:17
:2>%3555355>>

BGNSUB

104402

004737
004727

JSR
JSR

027132
027224

391
392

SEQ 0108
BEGIN

SUBTEST

12.2:
PC,T22REST
PC,T22RT2

1SET COMMAND PACKET

53355555950

TRAP

Cs65uUB

$SET UP OTHER COMMAND PACKET

1000000008080 000004880808¢0000000000000000080000008000000880000008800

393
394
395
396
397
398
399

;ISSLE CONTROL: ER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR
[

1688000060080 0¢8088600880000008000800008008800000008080004¢04600008880

004737
103407
005237
010001

400
404
405

JSR
8CS
INC
MOV
ERRDF

016064

002212

104455
000320
003650

406 025272
407 025272

ERR
SF IERR,
NO,
SF IMSG

100 INITIALIZE ON CONTROLLER
sBR IF INIT WAS Ox
;8UMP COUNT
sCONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT Ox

TRAP

CSERDF

. WORD
. WORD

SFIERR
SF IMSG

.WORD

012124

012704

PC,SOF INIT
204
FATFLG
RO.R1

20$:

026160

MOV

#T22PACKET R4

408

409
410

208

1 SUBROUTINE NEEDOS PACKET ADORESS

188888008 0840006008880083000008808280808008000080400880084800808¢0000

:WITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

A11
412

[

413
414
415 025276

416 025302

417 025304
421 025310
42?2 025312

025312
025314
025316
025320
025322
025326

025330

025336
025344
025350
025354
025360
025362
025364
025370
025370
025372
025374
025376
438 025400
025400

10680883088 0480840088880080088840280840800808200820480808080¢488080000000

004737

103407
005237
010001

104456
000321
005054
012124
005737

001041

112737
112737

012704
010465
004737

103407

010001
005237

104456
000322
026320
01213%6
104406

JSR
8CS
INC
MOV
ERRHRD

010752
002212

23s:

002216
00020C
000010
026270

026301
026300

002212

FATFLG

RO,R1
ERRNO, WRTMSG , SF IMSG

s ISSUE WRITE CHARACTERISTICS
tBR, IF COMMAND ISSUED Ox
;8UMP COUNT
1 SAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC FAILED
TRAP

.WORD
.MORD
.WORD

CS$ERHRO

209
WRTMSG
SFIMSG

EXTFEA
504

;CHECK FOR EXTENDED FEATURES SW SWITCH

MOVe
MOVe

9200, 722851
#10,7228S0
0T22PK2
R4
R4, TSDB(RS)
PC,CHKTSSR

tWRITE MISCELLANEOUS CONT/READ STATUS
t1FUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH)
1WRITE SUBSYS MEM PACKET

BNE

ERRHRD

30%:

TST

MOV
JSR
8Cs
MOV

016426

PC,WRTCHR

CKkLOOP

304
RO,.R1

FATFLG

ERRNO, T22SSR ,PKTSSR

1BR IF SWITCH IS ON

1 ISSUE COMMAND
tWAIT FOR SHR

18R, IF NO ERROR
sERROR, SAVE TSSR
:8UMP COUNT

: TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS
TRAP

1LOOP IF SELECTED

CS$ERMRD

.WORD
.WORD
.WORD

210
T22SSR
PKTSSR

TRAP

CsCLP1

[ 9
TSV? - HARDWARE TESTS 1 8

TEST

MACRO M1113

2: OFF LINE AND REUECT REWIND

439 025402

012704

UUN 84

MOV

(026160

14:17

0T22PACKET , R4

440

WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

443
444
445

1080000003888 0304085080¢4200080080040008000080800000400080008608208000¢

446

004737
103407
005237
010001

447

448
449

453

454

JSR
8Cs

010752
002212

104406
016501
032701
001006
005237

459
463

FATFLG

ERRHRD

ERRNO,WRTMSG, SFIMSG

RO,R1

504 :

467

469

470
471
472
473
477

020102
001406
005237

025532
478 025536

025536
025540
025540
025540
025542
025550
025552
025556

102210
026270

026270

ERRDF

ERRNOQ, T220FL , SFIMSG

CKLOOP

65%:

MOV

100306

.WORD

60$
FATFLG

;:LOOP IF SELECTED

102210, T22PK2

INC

FATFLG

ERRHRD

80¢

ERRNO, T22RWJ,EXPREC

804 :

002212

sARE

CsCLP1

.WORD
.WORD
.WORD

212
T220FL
SFIMSG

THEY EQUAL

:BR, IF OK ESP. FUNCTION REJECT
:BUMP COUNT
s TSSR INCORRECT AFTER TAPE MOTION CMD
TRAP
CS$ERHRD
213
.WORD

017272

CKLOOP

;L00P IF SELECTED

ENDSUB

$2253>3355>>>

cHe

000017
999¢ :

8Lo
JSP

9994
PC,CKDROP

END

s TEST 2, SUBTEST 3

EXPREC

TRAP

CsCLP1

TRAP

CsESUB

5>>553>33>>>>>>

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

TO DROP

THE

T22RWJ

.WORD
SUBTEST

L10041:

FATFLG, 01S.

SF IMSG

TRAP

.WORD

104406

21l
WRTMSG

TRAP
CsCLP,1
;POSITION COMMAND (REWIND MOODE)
;R4 = POINTER TO PACKET
: ISSUE COMMAND

0T22PK2,R4
R4, TSOB(RS
PC,WAITF
tMAIT FOR SSR TO SET
TSSR(RS),R1
;GET TSSR CONTENTS
#SSR!SC!OFL!BIT1!BIT2,R2;SET UP EXPECTED

R1,R2

CS$ERHRD

;:GET TSSR CONTENTS
sCHECK FOR THE OFFLINE BIT SET
1BR, IF OFFLINE (GOOD)
:BUMP COUNT
;OFF LINE SHOULD HAVE BEEN SET (BAD)
TRAP
CS$EROF

MOV
v
JSR
MOV
MOV
cHe

BEQ

002212

104456
000325
026664
015564

104403
023727
103402
004737

Q0FL ,R1

604 :

000000
016340
000002

TSSR(RS),R1

BIT

BNE
INC

002212

012124

465

tWRITE CHARACTERISTISC FAILED
TRAP

:SCOPE LOOP

CKLOooP

MOV

000002
000100

104455
000324
026515

104406
012737
012704
010465
004737
016501
012702

sISSUE WRITE CHARACTERISTICS
;1BR, IF COMMAND ISSUED OX
;BUMP COUNT
s SAVE CONTENTS OF TSSR

. WORD
. WORD

464

485
486
487

INC

MOV

000323
005054
012124

456
457

482
483

PC,WRTCHR
504

104456

455

480
481

1 SUBROUTINE NEEDS PACKET ADORESS,

1080800868888 8000084000000800020400080880000088000848000000840004808000

44]
442

479

SEQ 0109

UNIT

HARDWARE

TESTS

MACRO M1113

2: OFF LINE AND REJUECT REWIND
488
489
43¢
491
49¢
493
494

14 -UUN 84

TSV7

TEST

14:17

SEQ 0110

{VERIFIES THAT A REWINO COMMAND WITH CVCs1 CLEARS VCK
:AND RETURNS PROPER

025556
025556
025556
495 025560
496 025564

STATUS

IN THE

MESSAGE

BGNSUB
104402
004737
004737

JSR
JSR

027132
027224

BUFFER.

:>3>>>>5>>>>>

BEGIN

SUBTEST

12.3:

PC,T22REST

PC,T22RT2

TRAP

:SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET

49~
498
499

1000000884800 000088000080008880008208008080804200400800000804800080000000

500
501
502
503
504 025570

1080008888808 80088400802800088800002000808008080008008080008000000808000¢

S05
506
510
511

025574
025576

025602
025604
025604
025606
025610
025612
512 025614
513 025614
514
515
516
517
518
519

el
522
523
527
528

;ISSUE CONTROLLER "SOFT" INITIALIZE
004737
103407
005237
010001

JSR
BCS
INC

016064

002212

MOV
ERRDF

104455
000326
003650
012124
012704

:
204

026160

FATFLG

RO,R1

ERRNO, SFIERR, SF IMSG

CARRY BIT CLEAR IF ERROR
100 INITIALIZE ON CONTROLLER
18R IF INIT WAS OX
1BUMP COUNT
1CONTENTS OF TSSR REGISTER

sFATAL ERROR

TSSR WAS NOT 0K
TRAP

.WORD
.WORD
.WORD
MOV

R4
#T22PACKET

cs8suB

CSEROF

214
SFIERR
SFIMSG

:SUBROUTINE NEEDS PACKET ADORESS

1000888820088 08808488388808000%80000800880000008800088¢00800800000800002¢

{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
1088800408908 800080000008600800840000200808828200000000828300808000%08080¢

004737
103407
005237
010001

JSR

010752

104456
000327
005054

012124
005737
001041

112737
112737
012704
010465
004737
103407

010001
005237

PC,.WRTCHR

234

FATFLG
RO,R1

002212

ERRNO, WRTMSG, SF IMSG

’.J

025712

PC,SOFINIT
204

55>3>55>55>55>»

1 ISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED OK
:8UMP COUNT
sSAVE CONTENTS OF TSSR
+WhITE CHARACTERISTISC FAILED
TRAP

.WORD
.WORD
.WORD

234

002216

000200
000010
026270
000000
016426

002212

026301
026300

C$ERHRD

215
WRTMSG
SFIMSG

187
BNE

EXTFEA
S04

1CHECK FOR EXTENDED FEATURES SW SWITCH

MOVB
MOvVB
MOV
MOV
JSR
8CS
MOV
N
ERRHRD

0200, 722851
910, 722850
0T22PK2
R4
R4, TSOB(RS)
PC,CHKTSSR

sWRITE MISCELLANEOUS CONT/READ STATUS
sFUNCTION SELECTION B8IT (TURN ON EXTFEA MW SWITCH)

30¢

RO,R1
FATFLG
ERRNO, T22SSR,PKTSSR

;B8R IF SWITCH IS ON

sWRITE SUBSYS MEM PACKET

; ISSUE COMMAND

;WAIT FOR

SSR

tBR, IF NO SRROR
1ERROR, SAVE TSSR
1BUMP COUNT
; TSSR NOT CORRECT AFTER WRT, MISCELLANEQUS

TSv?
TEST

HARDWARE

TESTS

025712
025714
025716
025720
025722
025722
025724

104456
000330
026320
012136

MACRO M1113

2: OFF LINE AND REUECT REWIND

104406

012704

14 JUUN 84

14:17

SEQ 0111
TRAP

30¢:

CxLOOP
MOV

026160

1LOOP IF SELECTED
#T22PACKET
R4

CS$ERMHRD

.WORD
.WORD
.WORD

216
T22SSR
PKTSSR

TRAP

CsCLP1

1 SUBROUTINE NEEDS PACKET ADDRESS

10680080000 20080000080008200¢0400808002004000084000888080480040540000¢00¢

{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
16008800080 084832884884008040008¢03080882000024840080080004800¢48080002

562
563
565
569

570
571
S72

573
S74

575
576

577
578
579
583

585
587

589

025730
025734
025736
025742
025744
025744
025746
025750
025752
025754
025754
025756
025762
025766
025770
025774
025774
025776

004737
103407
005237

010001

JSR
8Cs

010752

INC
MOV
ERRHRD

002212

104456

001006
005237

S0s
:
000002
000100

ERRNO, WRTMSG, SF IMSG

CKLOOP
MOV
8I7
BNE
INC

002212

ERROF

sWRITE CHARACTERISTISC FAILED

:SCOPE LOOP
TSSR(RS),R1
o0FL ,R1
604
FATFLG
ERRNO, T220FL , SF IMSG

.WORD

TRAP

142010
026270
000000
016340
C00002
100306

026270

60¢:

CKLOOP

65%:

MOV
MOV
MOV
JSR
MOV
MOV
cHP
8€Q

002212

104456
000333
026664
015564

ERRHRD

80¢:

026202
000006
000020

;:LOOP IF SELECTED

MOV

8IC
o
oy

217
WRTMSG
SFIMSG

CSCLPL

.WORD
.WORD
.WORD

CS$ERDF

218
T220FL
SFIMSG

TRAP
CsCLP1
0142010, 722PK2
:POSITION COMMAND (REWIND MODE) CvC=1
0T22PK2,R4
;R4 = POINTER TO PACKETY
R4 ,TSOB(RS)
: ISSUE COMMAND
PC,WAITF
tWAIT FOR SSR TO SET
TSSR(RS),R1
:GET TSSR CONTENTS
OSSR!OFL !SC!'BIT1!BIT2,R2;SET UP EXPECTED
R1,R2
;ARE THEY EQUAL

804

FATFLG

ERRNO, T22RWJ ,EXPREC

CKLOOP

MOV
MOV

CS$ERHRD

;:GET TSSR CONTENTS
;CHECK FOR THE OFFLINE BIT SEV
;BR, IF OFFLINE (GOOD)
:8UMP COUNT
;OFF LINE SHOWLD HAVE BEEN SET (BAD)
TRAP

020332
026515
012124

104406
012703
016301
010102
042702
020102

FATFLG
RO,R1

1 ISSUE WRITE CHARACTERISTICS

s8R, IF COMMAND ISSUED O
18UMP COUNT
$SAVE CONTENTS OF TSSR

.WORD
.WORD

104455

104406
012737
0i2704
010465
004737
016501
012702
020102
00140
005237

S04

TRAP

000331
005054
012124

104406
016501
032701

PC,WRTCHR

1BR, IF OK ESP. FUNCTION REJECT
1BUMP COUNT
: TSSR INCORRECT AFTER TAPE MOTION CMO
TRAP

:LOOP IF SELECTED
0T228FR,R3
XSTO(R3),R1
R1,R2

#8174 ,R2

ki,R2

C$ERHRD

.MORD
WORD
.WORD

219
T22RWJ
EXPREC

TRAP

CsCLPL

tPOINTER TO MESSAGE BUFFER
iPICK UP XSTO FROM MESSAGE BUFFER
$SET UP EXPECTED
1 VCK SHOWD BE CLEAR

+ARE

THEY

EQUAL

TSV?7
TEST

HARDWARE

TESTS

MACRO M1113

2: OFF -LINE AND REJUECT REWIND

590 026102
591 026104
595 026110
026110

001406
00523~

026114
026116
596 026120
597 026120
026120
026120
598 026122
599 026130
600 026132
601 026136

026737
015564

026112

602 026136
603 026142

026144
605 026150
026150
026152
606
607

026160

623 026200
624 026202
625

104403
023727
103402
004737

004737
103002
000137

104432

;8R, IF O (GOOD)
;BUMP COUNT
;VCK WASN'T

CLEAR (BAD)

TRAP

. WORD

. WORD
.WORD

90$:
$2>>>>>>>3>>>

END

SUBTEST

L10042:

002212
017272

000017

FATFLG, @15.

JSR

PC,.CKDROP

JSR
8CC
JMP
ExIT

PC.TSTLOOP
163
T22L00P
TST

B8LO
9995.

016546
024642

cMP

1634

9994

TO DROP

TRAP

THE

220

T22VvCNH
EXPREC

55553533555

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

CSERHRD

CsESUB

UNIT

;00 WE MEED TO ITERATE TEST
:BR, IF NO LOOP REQUIRED
sEXECUTE AGAIN

sALL OONE

THIS

TEST

TRAP

CsEXIT

. WORD

L10037

:LOCAL STORAGE FOR THIS TEST
.BLKB

10-<.-TSVRE7>

100204
026170

.WORD
.MORD

100204
T220DATA

000012

.WORD

T22PACKET:

.WORD
T22DATA:

026202

000024
000007

T22BFR:

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

10.

T228FR
O
20.
O
7
25.

; COMMAND PACKET FOR TEST
tWRITE CHARACTERISTICS COMMAND,

WITH IE,

; ADDRESS OF CHARACTERISTICS BLOCK

s:STARTING VALUE OF BLOCK SIZE

s CHARACTERISTICS DATA BLOCK

;:ADDRESS OF MESSAGE BUFFER

sLENGTH OF MESSAGE BUFFER

+SELECT ORIVE 7

;MESSAGE BUFFER

{WRITE SUBSYSTEM MEMORY COMMAND PACKET

627

629 026264

644
645

SEQ 0112

001116

626

631 026270
026270
633 026272
634 02-.274
635 026276
636
637
638 026300
639 026300
640 026301
641 026302
642 026304
643

002212

904
FATFLG
ERRNQ, T22VCK,EXPREC

ENDSUB

609

026160
026162
026164
026166
026170
026170
620 026172
621 026174
622 026176

BEQ
INC
ERRHRD

14:17

104456
000334

611 026154

613
614
615
616
617
618
619

14 JUN 84

100206
026300

T22PK2:

.BLKB

10-<. -TSVRET>

.WORD
.WORD
.WORD
.WORD

100206
T228F2
O
6.

tWRITE SUB SYS MEM COMMAND, IE AND ACK
1 ADDRESS OF SELECT BLOCK DATA

;BSELO AREA
;BSEL1 AREA
;:SEL 2 AREA

+SIZE OF DATA PACKET

.EVEN

T228F2:
T722850:

.BYTE

7228S1:

.BYTE

T2252:

.MORD

T2253:

.WORD

.EVEN

;:DATA AREA

ACK

o
TSv?
TEST

HARDWARE

TESTS

MACRO M1113

2: OFF -LINE AND REJEC' REWINC
646

647 026306
648 026310

649
650
651
652
653
654
655
656
657
658
659
660
661
662

663
664

665

026312
026314
026316

14:17

SEQ 0113

: TARAPE MOTION PACKET COMMAND VALUES
T22RD:
.WORD
100201
T22WRT; . WORD
100205
T22P0S: .WORD
100210

100201
100205
100210
100211
177777

T22FOR:

.WORD
.WORD

100211
177777

;READ TAPE FORWARD
tWRITE TAPE FORWARD

sPOSITION TAPE
sFORMAT TAPE
1tEND OF DATA

:LOCAL TEXT MESSAGES FOR TEST
026320
026415
026515
026570
026664
C26737
027012
027077

666

127
124
104
124
124
103
052
117

122
123
162
123
123
126
052
146

111

123
151
123
123
103
052
146

667

668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694

14 UUN 84

T22SSR:
T22AMS:
T220FL:
T22TM:

T22RWJ:
T22VCK:
T22WLK;
TST221D:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.EVEN

'WRITE MISCELLANEOUS CONTROL/READ STATUS Command 4ot Accepted’
"TSSR Init. Failed After WRITE MISCELLANEOUS CONRTOL/READ STATUS
‘Orive 7 Select Failed To Set “OFL" In TSSR'
'TSSR Incorrect After Tape Motion Commend To OfF-L ine Device
' TSSR Not Correct After REWIND With VCK Set’
Buffer’
‘CVC Set, JDidn''t Reset VCK In Mess

‘assssTAPE

.ASCIZ

IS WRITE-LOCKED

AND

WILL

AUSE ERRORSsssss

'0Off-Line And Reject Rewind’

HE4

:ROUTINE TO RESTORE COMMAND ~ACKET TO START-UP (DEFAULT) VALUES
;WRITE SUBSYSTEM MEMORY COMMAND

T22REST;

027132

027132
027136

027142
027146
027152
027154
027160
027164
027166
027172
027174
027200
027204
027212
027214
027220
027222

027224
027224
027230
027234
027240

695
696
697
698
699 027244
700 027246
701 027252
702 027254

012701
012721
012721
005021
012721
012721
005021
012721
005021
012711
012702
012762
005742
020227
001371
000207

026160
100204
026170
000012
026202

MOV
CLR
MOV
CLR

000024
000007
000020

177777

026202

64%:

MOV
MOV
TS7

cMP

000000

BNE

RTS

T22RT2:

012701
012721
012721
005021
012721
005021
012701

SAVREG

MOV
MOV
MOV
CLR

026270
100206
026300
000006

026300

SAVREG
MOV
MOV
MOV
CLR
MOV
CLR
MOV

#T22PACKE
,R1
T
#100204,(R1)+
0T220ATA,(R1).

;SAVE THE REGISTERS
;START OF THE PACKET

tWRITE SUBSYSTEM MEM.

WITH ACK,

010.,(R1).
#T228FR,(R1)+

s ADDRESS OF CHARAISTICS DATA BLOCK
tEXTENDED ADDRESS
:+SIZE OF DATA BLOCK IN BYTES
; ADDRESS OF MESSAGE BUFFER

#20. ,(R1).

;:LENGTH OF MESSAGE BUFFER

07,(R1)
#20,R2
#177777,7228FR(R2)

;SELECT DRIVE SEVEN

(R1).
(R1).

(R1).

-(R2)
R2, 00

tNUMBER OF LOCATIONS TO BE CLEARED

sALL ONES TO MESSAGE BUFFER
;BUMP R2 DOWN
:+IS R2 AT ZERO YET
1KEEP GOING UNTIL DONE

644
PC

; RETURN

0722PK2
Rl

:SAVE THE REGISTERS
:START OF THE PACKET

#100206,(R1).

;WRITE SUBSYSTEM MEM,

WITH ACK,

(R1).
. .,(RY)

: ADDRESS OF DATA BLOCK
tEXTENDED ADDRESS
1SIZE OF DATA BLOCK IN BYTES

#12:8F2,.R1

+POINT TO DATA SEL AREA

#1228F2,(R1).

(R1).

|
TSv?

TFST

HARDMWARE TESTS 1 8

MACRO M1113

2: OFF LINE AND REJECT REWIND

70% 027260
704 027262
705 027264
706 027266
707 027270
02" 70
027270

708

14 JUUN B4 14:17
CLR
CLR
CLR
RTS

005021
005011
005011
000207

ENDTST

SEQ 0114

(R1).
(R1)
(R1)
PC

:LAST LOC 70 BE CLEARED
s RETURN
L10037:

104401

709

.SBTTL

TEST

i e
H

71%
714
715
716

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

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

717

718

;:THE TEST CONSISTS OF THE FOLLOWING 7 SUBTESTS

719
720
721
722

:
H
H
H

723 027272

027272

724 027272
725 027300
726 027304
731 027310
732 027314
733 027320
734 027324
735 027330
'713? 027334

012737
005037
004737
004737
012700
004737
004737
005037
012737

006356
003124
017364
016274
034066
016600
021322
003126
000005

002170

BGNTST

MOV
CLR
JSR
JSR
MOV
JSR
JSR
CLR
MOV

002206

OEPRT1 ,EPRTSW
KTENABLE
PC . KTOFF
PC.DSBINT
©7ST231D.,.R0O
PC,TSTSETULP
PC, MEMCK
NXMFLG
05 ,LOOPCNT

13::
;SET UP PRIMARY ERROR MESSAGE
i TURN OFF KT11
;TURN OFF KT11
;:DISABLE INTERRUPTS
;sASCIT MESSAGE TO IDENTIFY TEST
;00 INITIAL TEST SETLP
;CHECK FOR MEMORY
:SET FLAG
;PERFORM S ITERATIONS

738

741
742
743

sVERIFIES THAT A WRITE COMMAND (ANY VALID MODE COOE)
;WITH THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS
;REJECTED IF THE VOLUME CHECK (VCK) FLAG IS SET. ALL

:’,zg

;TEST 3, SUBTEST 1

744
745

sVALID MODE CODES ARE CHECKED (WRITE DATA,
;:RETRY).

746
747
748 027342

T23L00P:

749 027342

027342

750 027344

?’gé 027350

104402

(004737

004737

034102

BGNSUB

JSR

034174

JSR

WRITE

$2>5>335>>>3> BEGIN SUBTEST

T3.1:

PC,T23REST

PC,T23RT2

;SET COMMAND PACKET

;66888064884 888855455800000 0

;22

;ISSUE CONTROLLER "SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR

757

TRAP

;SET UP OT {ER COMMAND PACKET

753

754

C$ETST

3: BASIC WRITE DATA

;10
11

712

TRAP

S000R0AR400008840080800080080000000

;8088868408088 608088040808488840200888080808808000008008A000000004

>>>>>>35>5>>

csBsuB

L
TSv?
TEST

HARDWARE

TESTS

1 8

3: BASIC WRITE DATA
759 027354

760
761
765
766

027360
027362
027366
027370
027370

027372
027374
027376
767 027400
768 027400
769 027406

004737
103407
005237
010001

MACRO M1113

14 JUUN B4

JSR
8CS
INC
MOV
ERROF

016064

002212

14:17

PC,SOFINIT
204
FATFLG
a0,R1
ERRNQ, SFIERR, SF IMSG

SEQ 0115

;00 INITIALIZE ON CONTROLLER
:1BR IF INIT WAS Ok
;1BUMP COUNT
;CONTENTS OF TSSR REGISTER
;FATAL FRROR TSSR WAS NOT 0K

TRAP

104455
000455

003650
012124

012737
012704

.WORD
. WORD
. WORD

204
000007
032560

032600

MOV

07,7230Su

0T23PACKET ,R4

CSERDF

301
SFIERR
SF IMSG

;SET DRIVE NUMBER IN PACKET

1 SUBROUTINE NEEDS PACKET ADDRESS

770

771
172

10000800038 0888048008838400¢0803200000488000800888000000000080880004

773
774
775
776
777 027412
778 027416
779 027420
783 027424
784 027426

;WRITE CHARACTERISTICS COMMAND ( CALLL TO WRTCHR)
1008800000808 8008400888024048084880¢008340800808028808008040000008000802

004737
103407
005237

010001

027426
027430
027432
027434
785 027436
786 027442

104456
000456
005054
012124
005737
001044

027444
027452
027460
027464
027470
027474
027476
027500
027504
027504
027506
027510
027512
027514
027514
027516
027524

112737
112737

787
788
789
790
791
792
793

795
799

801
802
803

012704
010465
004737
103407
010001
005237

010752

PC,.WRTCHR
23

;ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED OK

MOV

RO,R1

;SAVE CONTENTS OF TSSR

INC

002212

ERRHRD

234

002216
000200
000010
032670

032723
032722

002212

000007
032560

032600

ERRNO,WRTMSG, SFIMSG

1BUMP COUNT

;WRITE CHARACTERISTISC FAILED
TRAP

. WORD
WORD
.WORD

807
808
809
810 027530
811 027534

HMOVB
MOvVB

0200, 723851
#10,7T238S0

sWRITE MISCELLANEOUS COMT/READ STATUS
sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH)

ERRNJ, T23SSR,PKTSSR

: TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS

oT23PK2,R4
R4,TSOB(RS)
PC,CHKTSSR
30¢
RO,R1
FATFLG

CKLOOP

MOV
MOV

;BR IF SWITCH IS ON

{WRITE SUBSYS MEM PACKET
; ISSUE COMMAND
;WAIT FOR SSR
:BR, IF NO ERROR
;:ERROR, SAVE TSSR
1BUMP COUNT

;LOOP IF SELECTED

87,7230SW
OT23PACKET R4

TRAP
.WORD
.WORD
.WORD

CS$ERHRD
303
T23SSR
PKTSSR

TRAP

CsCLP1

;SET DRIVE NUMBER IN PACKET
: SUBROUTINE NEEDS PACKET ADDRESS

{WRITE CHARACTERISTICS CCMMAND (CALL TO WRTCHR)
‘

;0688080488800 880088808¢80840808843880084800808800000840000800000008¢

004737
103407

010752

302
WRTMSG
SFIMSG

;CHECK FOR EXTENDED FEATURES SW SWITCH

50¢

100880884 880080888888888800888838480088848803488022308880008480004822

805

CS$ERHRD

EXTFEAR

ERRHRD

30¢:

FATFLG

TST

BNE

MOV
MOV
JSR
8CS
MOV
INC

016426

104456
000457
032744
012136

104406
012737
012704

JSR
8CSs

-SR
8CsS

PC,WRTCHR

50¢

1 ISSUE WRITE CHARACTERISTICS
iBR, IF COMMAND ISSUED OK

1Sv?
TEST

HARDWARE TEST~ 1 8
3 : BASIC WRITE DATA

812 027536
816 027542
817 027544

027544
027546
027550
027552
027554
027554
027556
027562
027566
027570
027574
027574
027576
027600

027602

827 027604

027604
828 027606
027612
830 027616
831 027622
027626

833
834
83s
836
837
841

842
843
845
846
847
848

849
850
851

852
853
854
855
856
857
858
859
860

027632
027636

027642
027644
027646
027652
027652
027654
027656
027660
027662
027662
027664
027666
027672
027674
027676
027676
027676
027676
027700
027706
027710
027714

005237
010001

MACRO M1113

14 JUN 84
INC
MOV
ERRHRD

002212

14:17
FATFLG
RO,R1
ERRNQ,WRTMSG,
SF IMSG

" SEQ 0116
;BUMP COUNT
s SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC FAILED
TRAP

104456

000460
005054
012124
104406
016501

50$:

032701

000002
000100

005237

002212

001006

60¢$:

@0FL ,R1
60
FATFLG

ERRNO, T230FL , SF IMSG

CKLOOP

TSSR

CONTENTS

;OFF

LINE

SHOUWD HAVE BEEN SET
TRAP
. WORD
.WORD
. WORD

;CHECK FOR THE OFFLINE BIT
;8R, IF OFFLINE (GOOD)
;8UMP COUNT

;LOOP IF SELECTED

016340
000002
100306

MOV
MOV

0123PK2 R4
R4, TSDB(RS)

;R4 = POINTER TO PACKET
; ISSUE COMMAND

MOV
MOV

TSSR(RS),R1
;GET TSSR CONTENTS
OSSR!SC'OFL'BIT1'BIT2,R2;SET UP EXPECTED

002212

8eqQ
INC

654 :

MOV

JSR

80s:

1777717

(R3),T123PK2

PC.MWAITF

sARE

ERRHRD

ERRNO,T23TM EXPREC

;TSSR INCORRECT

1S7
oy o
BEQ
BR
ENDSUB

THEY

017272

crep
B8LO

000017

AFTER

TAPE MOTION CMD
TRAP
CS$ERHRD
.WORD
306
T23TH
. WORD

SELECTED

;POINT TO NEXT COMMAND
;END OF THE COMMANDS YET
;:BR, IF DONE
+MORE COMMANO(S) T0 GO
$23333>:>>33>

999¢

JSR

FATFLG, @15,
9994

PC.CKDROP

CsCLP!

EQUAL

END

. WORD

EXPREC

TRAP

CsCLP1

SUBTEST

L10044:
002212

(BAD)
CSERDF
305
T230FL
SFIMSG

;BR, IF OK ESP. FUNCTION REJECT
;BUMP COUNT

;LOOP IF
(R3).
0177777.(R3)
904
654

CsCLP1

tWAIT FOR SSR TO SET

R1,R2

CxLOOP

304
WRTMSG
SFIMSG

; TAPE MOTION COMMAND IN PLACE

80%
FATFLG

CSERHRD

SET

TRAP

;POINTER FOR COMMANDS

904
:

104403
023727
103402
004737

8Iv
BNE
INC

:GET

0123WD ,R3

000462
033142
015564

001401
000746

TRAP
TSSR(RS) ,R1

MOV

032734
032670
032670

104456

10440¢€
005723
022713

: SCOPE LOOP

MOV

ERRDF

104455
000461
033406
012124
104406
012703
011337
012704
010465
004737
016501
012702
020102
001406
005237

cxKLOOP

.WORD
.WORD
.WORD

3553333335

TRAP

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

HE4

:TEST 3, SUBTEST 2
{VERIFIES THAT WRITE DATA COMMANDS WITH CVCel AND THE
:SWAP BYTES (SW8) BIT CLEAR OPERATES PROPERLY. THE
:BYTE COUNT (RECORD SIZE) VARIES FROM 20 THROUGH 64«

TO DROP

THE UNIT

CSESLB

TSv?

TEST

MARDWARE

TESTS

BASIC WRITE DATA

MACRO M1113

14 JUUN 84

N
14:17

SEQ 0117

; IN VARYING INCREMENTS (DEPENDING UPON WHETHER OR NOT
; THE DIAGNOSTIC IS RUNNING IN THE LONG VERIFICATION
;MOOE
). THE TAPE IS NOT REWOUND BETWEEN SUCCESSIVE
;RECORDS BUT IS REWOUND AFTER THE FINAL RECORD IS
;WRITTEN. AN INCREMENTING COUNT PATTERN IS SUPPLIED
;IN YHE DATA BUFFER. AFTER EACH BLOCK IS WRITTEN, THE
;TSSR AND TSBA REGISTERS, THE MESSAGE BUFFER, AND THE

86!
862

863
864
865
866
86’
868
869
870
871

;RAM CONTENTS

ARE CHECKED. (THE RAM CONTENTS ARE CHECKED
;USING THE WRITE SUBSYSTEM MEMORY COMMAND.

872

873
874 027714
027714
027714
8/S 027716
a76 027722
877 027724
878 027726
879 027732
880 027736
881 02774c
882
883
884
885
886
887
888
889 027746
890 027752
891 027754
89S 027760
896 027762
027762
027764
027766
027770
897 027772
898 027772
899 030000

BGNSUB

104407
013701
000241
006101
010137
004737
004737
004737

BEGIN

SUBTEST

55535355530

13.2:
TRAP

MOV
CLC

003116

ROL

MOV
JSR
JSR
JSR

032720
034102
034236
034174

;GET SIZE OF AVAILIABLE MEMORY
1CLEAR THE CARRY BIT

FRESIZ
K]
,

R1
R1,T23RSZ
PC,T23REST
PC,T23RT3
PC,T23RT2

s MAKE

csssus

INTO BYTES

;STORE IN TEST FOR USE LATER
: SET COMMAND PACKET
iRESTORE PACKET
;SET UP OTHER COMMAND PACKET

1008808088888 80088888880008880884880085080880080000008808088088080000

:ISSUE CONTROLLER “SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR
1808688808880 888880080880808200085088080888088808008880880300888880804s

004737
103407

005237
010001

JSR
8Cs
INC
MOV

016064

002212

ERRDF

104455
000463
003650

012124

013737
012704

002172
032560

901
902
903
904
90S

907 030004
030010
909 030012
913 030016
914 030020
030020
030022
030024

523323>>335>5>>>

032600

204:

PC,SOFINIT

20$

FATFLG

RO,R1
ERRNO,
SF IERR, SF IMSG

;D0 INITIALIZE ON CONTROLLER
;B8R IF INIT WAS 0K
:BUMP COUNT
1 CONTENTS OF TSSR REGISTER
:FATAL

ERROR

TSSR WAS NOT OK
TRAP

.WORD
.WORD
.WORD

MOV
MOV

307
SFIERR
SFIMSG

:LOAD UP SELECTED UNIT NUMBER
: SUBROUTINE NEEDS PACKET ADDRESS

UNITN, T23DSW

OT23PACKET
,R4

180088848588 8L850 048808880080 82

CS$ERDF

8888080850084 8088808808008808000840

{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
(858088485004 EE RS RANEEEELSEERELEASEAEES
LSS0 S40400580008008000000

004737

107407
005237

010001

104456
000464
005054

010752

V02212

JSR
8CS
INC

MOV
ERRHRD

PC,WRTCHR

234

FATFLG
RO,R1
ERRNO,WRTMSG,
SF IMSG

; ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK
;BUMP COUNT
: SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC FAILED
TRAP

CS$ERMHRD

.WORD
.WORD

308
WRTMSG

TSv?
TESY

MARDWARC TESTS 18
3 . BASIC WRITE DATA

030026
915 03003¢
030030

MACRD M1118

4
N
14 JUB

23s:

C¥LOO0P

012124

924 030036
925 030042
926
927
928

965

TRAP

CsCLP)

1000800000000 000000000028000008000000000000000000000008000000000000000

004737
012703
0137%7

011104
000024
003114

JSR

032712

65%:

MOV
MOV

PC,REWIND
FREE, T23w8

+CALL THE TAPE REWIND
1STARTING RECORD SIZE

1STARTING WRITE BUFFER ADDRESS

1000000800000 0800000000000080008000000000000806000000000000000080000000

{WRITE DATA,CVC=1.ACK COMMAND

104406
016501
012702
062702
005737
001402
062702
020102
001406
005237

963

SFIMSG

;ISSUE REWIND COMMAND T0 SELECTED TAPE DRIVE

012737
0127357
052737
012704
010300
004737
010337
010465
004737
016501
012702
020102
001402
004737

9%1

.MORD

1000008000000 000800000000800000000000000000000000050000000000000009

918
919
920
921
922

SEQ 0118

sLOOP IF SELECTED

104406

916
91~

923 030032

bl
14:17

140005
140005

004000
032710

032710
032732
032732

017512
032716
000000
016340
000002
000200

8€Q
JSR
CxLO0oP

034262

MOV
MOV
ADO

000000

032602
000016
002216

157

000002

85¢:

002212

104456
000465
033725
015564
104406
020327
002114
004737
012737
112737

MOV
MOV
8IS
MOV
MOV
JSR
MOV
MOV
JSR
MOV
MOV

8EQ
ADO
cre
8€Q
INC
ERRHRD

0140005, 723Px3
0140005, T23WRT
#4000, T23WRT
0T23Px
3 R4
R3,.RO
PC.FILLMEM
R3, 72352
R4, TSOB(RS)

|URITE DAT..CVC'I.ACK Cx"“"')

1SETUP FOR RETRY COMMAND
sMAXE IT A RETRY
1SET UP R4 WITH PACKET ADORESS

:SET PATTERN IN CORRECT REGISTER
tFILL MEMORY WITH RECORD SIZE

02,.R2
R1,R2
904

1SET UP RECORD SIZE IN PACKE?'
s ISSUE COMMAND
;WAIT FOR SSR TN SET
tGET TSSR CONTENTS
1SET UP EXPECTED
sARE THEY EQUAL
1BR, IF O«
1CHECK SPECIAL CONDITION
1LOOP IF SELECTED
TRAP
CsCLP1
1GET TSBA CONTENTS
:1SET UP EXPECTED
1SET TO END OF MESSAGE BUFFER
1CHECK FOR EXTENDED FEATURES Sw SET
18R, IF IV NOT SET
1L R2 FOR EXTRA DATA
tARE THEY EQUAL
1BR, IF TSBA IS CORRECY

ERRMO, T23BA ,EXPREC

1TSBA WAS NOT CORRECT AFTER WRITE DATA

PC.MAITF

TSSR(RS),R]
OSSR, R2

R1,R2
80¢

PC, 1230
YSBA(RS),R1
OT238FR,R2
016,Re

EXTFEA
85¢

FATFLG

18UMP COUNT

TRAP
.WORD
.MORD
.MORD

1LCOP IF SELECTED

007376

R3,07376

034174
000400
000000

PC,T23RT2

1154

032724
032722

0256.,72352
©0,7238S0

TRAP
sONLY CHECK RAM UNTIL ITS FUWL
11T WRAPS AROUND ETC.
tMAKE SURE PACKET

CSERHRO
309
T238A
EXPREC

CsCLPL

AND DATA ARE CLEAN

1STARTING RAM ADORESS

1STOP INTERNAL TSVOS DIAGNOSTICS

TSV?
TEST

HARDWARE

TESTS

030240
030246
030252
030256
030262
030264
030266
030272
030272

112737
012704

967
968
969
970
971
972
973
977

978
979

981
983
985
987
992

MACRO M1115

000000
032670

032723

BASIC WRITE DATA

030274
030276
030300

010465
004737
103407
010001
005237

84 14:17
14 AN

MOvB
MOV
MV
JSR
8cs
MOV
INC
ERRHRD

000000
016426
002212

#0, 123851

0T23PK2
R4
R4, TSDB(RS)
PC,CHKTSSR
924
RO,R1
FATFLG
ERRNO, T23WSS ,PKTSSR

104456

112737
112737

012704
010465
004737

103407

010001
005237

924
:

034174
000400
000001
032670

CxLOOP
JSR
MOV

032724
032722
032723

MOve
MOV
MOV
JSR
8CS
MOV
INC
ERRHRD

016426

002212

104456

;1LOOP
PC,T23RT2

0256.,123S2
01,723850
02,723851

0T23PK2,
R4

R4, TSOB(RS)
PC,CHKTSSR

1004

RO,R1
FATFLG

ERRNO, T23WSS,PKTSSR

000467
033777

012136

032622

1007
1008
1009
1010
1011
1012
1013
1014
1015
1016

1017

110¢:

032724
032724

TRAP

CIERMRy

.MORD

PXTSSR

TRAP

CsCLP

MOV

000400
032724

001750
032720
177776

030042

1 ISSUE WRITE SUB SYS MEM COMMAND
1CHECK TSSR AND WAIT FOR SSR TO SE7T
1BR, IF NO ERRORS IN TSSP
1 SAVE TSSR
18UMP COUNT
;TSSR BAD AFTER WRITE SUB SYS MEM
TRAP
CIERRD
.WORD
311

ADO
ce
cre
8EQ

SELECTED

954
91000, ,R3
R3S, T23RS2Z
1204

R3, 065534,

1204

65¢

T23WSS
PKTSSR

CsCLP1

18R, IF OK (EQUAL)
;:8UMP COUNT

CORRECT

1LOOP IF SELECTED

0256. ,R1

.MORD
.MORD

TRAP
sCLEAR REGISTER
1CLEAR REGISTER
iPICK UP BYTE READ FROM RAM
$SET UP EXPECTED

1RNC=RAM NOT

123S2,R1

115¢:

1SET R4 WITH PACKET ADORESS

FATFLG
ERRNO, T23RNC ,EXPREC

12352
12352
R3,R1

310
T23uSS

tMAKE SURE PACKET AND DATA ARE CLEAN
1STARTING RAM ADDRESS
iREAD RAM COMMAND FOR WRITE SUB SYS M,
1SIZE OF RAM READ

1 IS RAM DATA CORRECT

CrLOOP
INC
INC

SELECTED

R2
T238FR+20,R]
R3,R2
R1,R2

1108

002212

1005

;LOOP IF

100¢:
R1

1006

1SIZE OF RAM READ
1SET R4 WITH PACKET ADORESS
s ISSUE WRITE SUB SYS MEM COMMAND
;CHECK TSSR AND WAIT FOR SSR TC SET
tBR, IF NO ERRORS IN TSSR
1 SAVE TSSR
1BUMP COUNT
;1 TSSR BAD AFTER WRITE SUB SYS MEM
. WORD
. WORD

000466
033777
012136

104406
004737
012737

SEQ N119

TRAP

.WORD
.WORD
.WCRD

CSERHRD
312
T23RNC

EXPREC

TRAP
CsCLP)
1BUMP RAM ADORESS 'O BE CHECKED

1BUMP RAM ADDRESS TO BE CHECKED
1GET SIZE OF RECORD
1FIGURE OUT END RECORD ADDRESS
+AT END OF RAM CHECK YET

18R, IF MORE TO CHECK

tNEXT RECORD SIZE/DATA PATTERN
1IS R3S OVER MAX RECORD SIZE
1 IF RECORD SIZE IS TOO BIG QUIT
1END OF SUBTEST MAX RECORD SIZE
18R, IF COMPLETED

100 HMORE RECORDS

TSv?

TEST

HARDWARE TESTS 18
3 :+ BASIC WRITE DATA

1018
1019
1620
1021
1022
1023
1024

1025
1026

1027
1031

1032

030474

030474
030500
030504
030512

030516
030522
030526
030530
030532
030536
030536
030540
030542
030544
030546

004737
004737
012737
012704
010465
004737
103407

010001
005237

MACRO M1113

120¢:

034236

034174
102010
032670
000000
016426

0326 °C

030546

002212

14:)’

SEQ 012¢

MOV
MOV
MOV

PC,T23RT3S
PC,T23RT?
€102010,723PK?2
0T23PK2 ,R4
R4, TSDB(RS)

1RESTORE PACKET
1CLEAN UP PACKET
sREWIND (POSITION) COMMAND
sLOAD R4 WITH PACKET ADDRESS
1 ISSUE REWIND COMMAND

8CS
MOV
INC

130¢
RO,R1
FATFLG

18R, IF TSSR IS Ox (GOOD)
1SAVE TSSR CONTENTS
;8UMP COUNT

ERRHRD

104456
000471
033216
012136

104403
023727
103402
004737

JSR
JSR

JSR

PC,CHXTSSR

ERRNO, T23RWN,PKTSSR

tWAIT FOR SSR TO SET

s TSSR

INCORRECT

AFTER REWIND

TRAP
.WORD

CSERRD
313

.MORD

PXTSSR

. WORD

130¢:

1033 030546

030546
1034 030550
103%S 030556
1036 030560
1037 030564
1038
1039
1040

14 UUN A4

ENDSUB

$>>>>>>>>>3>>

END SUBTEST

L10045;
002212

000017

017272

9994:

cre
8.0
JSR

FATFLG,«!5.
9994
PC.,CXDROP

T23RUN

»>533353355>

TRAP

1 1S ERROR COUNT AT 25
1BR, IF LESS THAN 25
;TRY TO OROP THE UNIT

CSESUB

sTEST 3, SUBTEST 3

1041
1042
1043
1044
1045

tVERIFIES THAT WRITE DATA COMMANDS WITH CvCe=1 AND THE
sSWAP BYTES (SWB) BIT SET OPERATES PROPERLY. IME TEST
sSEQUENCE IS IDENTICAL TO TMAT USED IN SUBTEST 2.
;THE RESWLTS,

1047
1048
1049
1050
1051 030564
030564

1052 030566
1053 030572
1054
1055

EXCEPT FOR RAM CONTENTS,

SHOWD BE

THE

SAME.

BGNSUB

104402
004737
004737

JSR
JSR

034102
034174

1>25>3553>3>> BEGIN SUBTEST
73.3:

PC, T23REST
PC.T23RT2

>>>3>>>33>>>

TRAP

1SET COMMAND PA‘KET
1SET UP OTHER COMMAND PACKET

cs8SUB

1068000800000 00808000000008080000000088080000000000008088050008000000

1057
1058
1059
1060
1061 030576
030602

1063
1067 030610
1068 030612
030612
030614
030616
030620

;sISSUE CONTROLLER ~SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR
H
168088068300 0088808080008800800000000808000800800000080080008480000084000

004737
103407
005237
010001

104455

000472
003650
012124

016064
002212

JSR
8cs
INC
MOV

ERROF

PC,SOF INIT
204
FATFLG
RO,R1

ERRNO, SFIERR, SF IMSG

100 INITIALIZE ON CONTROLLER
iBR IF INIT WAS 0K
18UMP COUNT
sCONTENTS OF TSSR REGISTER
;tFATAL ERROR TSSR WAS NOT 0K

TRAP

CSERDF

.WORD

SFIERR

.WORD

. WORD

314

SF IMSG

TSV?

TEST

- HARDWARE TESTS 1 8
3:

BASIC WRITE DATA

1069 030622

1070 030622
1071 030630

{g-,g

013737
012704

002172
032560

MACRO M1113

032600

20%:

14 JUUN B4 14:17

MOV
MOV

UNITN, T230SK
OT23PACKET R4

SEQ 0121

;SET UP UNIT NUMBER
1tSUBROUTINE NEEDS PACKET ADDRESS

1900000006088 0000400004800008000000000000480000808000000600008008000808

1074

1075

sWRITE CHARACTERISTICS COMMAND (CALL

TO WRTCHK)

1879’

1080008000800 800800008000000008808000000080680000000000000008008000000¢

1078

1079 030634

004737

010752

1081 030642
1085 030646

005237
010001

002212

1080 030640
1086 030650
030650
030652
030654
030656
1087 030660

1088 030660
1?.0':)3 030664
1

103407

PC,WRTCHR

s ISSUE WRITE CHMARACTERISTICS

INC
MOV

FATFLG
RO.R1

1BUMP COUNT
sSAVE CONTENTS OF TSSR

ERRHMRD

104456
000473
005054
012124

012703
013737

JSR

8CS

000024
003114

23s:

032712

65%:

MOV
MOV

233

ERRNO,WRTMSG,
SF IMSG

€20. ,R3
FREE, T23w8

sBR, IF COMMAND ISSUED Ox

;WRITE CHARACTERISTISC FAILED
TRAP
. WORD
. WORD
. WORD

;STARTING RECORD SIZE
{STARTING WRITE BUFFER ADORESS

1091

180880800080 048080888008080848848080808000008000080880880000080040000400

1092

1095

1808680828808 08000808848800080888880284¢06200082808084800000088080400

1&3
1

:WRITE DATA,CVvC=1,ACK,SWB COMMAND
:

1096

1097 030672
1098 030700
1099 030706
1100 030714
1101
1102
1103
1104

CS$ERMRD
315
WRTMSG
SF IMSG

030720
030722
030726
030732

1105 030736

012737
012737
052737
012704

010300
004737
010337
010465
004737

150005
150005
004000
032710

032710
032732
032732

MOV
MOV
8IS
MOV

017512
032716
000000
016240

MOV
JSR
MOV
MOV

#150005, T123PK3
#150005, T23WRT
#4000, T23WRT
#T23PK3 R4
R3,RO
PC.FILLMEM
R3, 12382
R4 ,TSDB(RS)

sWRITE DATA,CVC=1,ACK,SWB COMMAND
;SETUP FOR RETRY COMMAND
tMAKE IT A RETRY
sSET UP R4 WITH PACKET ADDRESS

MOV
MOV
cHe

TSSR(RS),R1
OSSR ,R2
R1,R2

tGET TSSR CONTENTS
;SET UP EXPECTED
sARE THEY EQUAL

JSR
CKLOOP

PC,T23CHK

sCHECK SPECIAL CONDITION
;LOOP IF SELECTED

JSR

PC.WAITF

;WAIT FOR SSR TO SET

1106 030742
1107 030746
1108 030752

016501
0312702
020102

1110 030756
1111 030762
030762
1112 030764
1113 030770
1114 030774
1115 031000

004737

034262

104406
016501
012702
062702
005737

000000
032602
000016
002216

MoV
MOV
ADD
TSsT

TSBA(RS),R1
O0T238FR,R2
016 ,R2
EXTFEA

TRAP
CsCLPL
1GET TSBA CONTENTS
;SET UP EXPECTED
$SET TO END OF MESSAGE BUFFER
tCHECK FOR EXTENDED FEATURES SW SET

062702

000002

ADD

02,R2

;BUMP R2 FOR EXTRA DATA

1109 030754

1116 031004

1117 031006
1118 031012

1119 031014
1120 031016
1124 031022
031022
031024

001402

020102

001406
005237
104456
000474

000002
000200

;SET PATTERN IN CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE
:SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND

002212

BEQ

80¢:

BEQ

85¢:

BEQ
INC
ERRHRD

80¢

85¢

R1,R2

904
FATFLG
ERRNO, T23BA,EXPREC

1BR,

:BR,

IF 0K

IF IT NOY SET

sARE THEY EQUAL

:BR, IF TSBA 1S CORRECT
;1BUMP COUNT
1t TSBA WAS NOT CORRECT AFTER WRITE DATA
TRAP
. WORD

CS$ERHRD
316

TSV? - HARDWARE TESTS 1 8
3: BASIC WRITE DATA

MACRO M1113

16 -JUN 84

14:17

T10

StQ N12¢

TEST

031026
031030
1125 031032
031032
1126 031034
1127 031040
1128 031042
1129 031046
1130 031054
1131 031062
1132 031070
1133 031074
1134 031100
1135 031104
1136 031106
1137 031110
1141 031114
031114
031116
031120
031122
1142 031124
031124
1143 031126
1144 031132
1145 031140
1146 031146
1147 031154
1148 031160
1149 031164
1150 0311790
1151 031172
1152 031174
1156 031200
031200
031202
031204
03120¢
1157 031210
031210
1158 031212
1159 031214
1160 031216
1161 031222
1162 031224
1163 031226
1164 031230
1165 031232
1169 031236
031236
031240
031242
031244
1170 031246
031246
1171 031250
1172 031254

033725
015564

CKLOOP

104406
020327
002115
004737
0127%7
112737
112737
012704
010465
004737
103407
012001
005237

104406
004737
012737

112737
112737
012704
010465

004737
103407
010001
005237

928
:

034174
000400
000001
000002
032670
016426

032724
032722
032723
95¢

JSR

PC,T23RT2
#256.,723S2

tMAKE

104456

115¢

#T23PK2
R4
R4, TSDB(RS)

PC,CHKTSSR

9214
RO,R1
FATFLG

ERRNOQ, T23WSS,PKTSSR

CKLOOP
JSR
MOV
MOvV8
MOve
MOV

MOV
JSR

8Cs
MOV
INC
ERRHRD

002212

1 IT WRAPS AROUND ETC.

SURE PACKET AND DATA ARE

TRAP

;LOOP IF SELECTED
PC,T23RT2

0256.,723S2

01,123850
2,1238S1
#723PK2,R4
R4, TSDB(RS)
PC,CHKTSSR

1004
RO,R1

FATFLG

ERRNO, T23UWSS ,PKTSSR

:
1004

CLR
CLR
MOV

032622
020102
001406
005237

002212

104456
000477
033265
015564

104406
005237
005237

1104
032724
032724

CKLOOP

T238FR+20,.R1

MOV
SWAB
cHe
BEQ

R3,.R2
R2

ERRHRD

ERRNO, T23RNC ,EXPREC

R1,R2
1104

FATFLG

INC
INC

12352
T23S2

317
T23MWSS
PKTSSR

TRAP

CsCLPL

TRAP

CS$ERMRD

. WORD
. WORD
.WORD

318
T23WSS
PKTSSR

TRAP

CsCLP1

TRAP

CSERHRD

TRAP

CsCLP1

;CLEAR REGISTERS
sCLEAR REGISTERS
;:PICK UP BYTE READ FROM RAM
$SET UP EX"ECTED
1SWAP BYTES

;IS RAM DATA CORRECT
;8R, IF OK (EQUAL)
1BUMP COUNT
sRNC=RAM NOT

CORRECT

;LOOP IF SELECTED

CKLOOP

CS$ERMHRD

.WORD
. WORD
. WORD

+MAKE SURE PACKET AND DATA ARE CLEAN
1 STARTING RAM ADDRESS
:READ RAM COMMAND FOR WRITE SUB SYS M.
1SiZE OF RAM READ
:SET R4 WITH PACKET ADDRESS
;s ISSUE WRITE SUB SYS MEM CMD (READ RAM)
sCHECK TSSR AND WAIT FOR SSR TO SET
:BR, IF NO ERRORS IN TSSR
;s SAVE TSSR
;BUMP COUNT
;TSSR BAD AFTER WRITE SUB SYS MEM

;LOOP IF SELECTED
R1
R2

CLEAN

1STARTING RAM ADDRESS
1STOP INTERNAL TSVOS DIAGNOSTICS
1SIZE OF RAM READ
;SET RA WITH PACKET ADDRESS
;1ISSUE WRITE SUB SYS MEM COMMAND
;CHECK TSSR AND WAIT FOR SSR TO SET
:BR, IF NO ERRORS IN TSSR
s SAVE TSSR
;8UMP COUNT
s TSSR BAD AFTER WRITE SUB SYS MEM

000476
033777

012136

CICLP

JONLY CHECK RAM UNTIL ITS FULL

MOV
JSR
8CS
MV
INC
ERRHRD

000475
033777
012136

TRAP

R3,07376

MOV
MOV
MOV

104456

T23BA
EXPREC

cHe

8GE
032724
032722
032723

;LOOP IF SELECTED

. WORD
.WORD

. WORD
.WORD
.WORD

16UMP RAM ADDRESS TO BE CHECKED

;BUMP RAM ADDRESS TO BE CHECKED

319
T23RNC
EXPREC

(510
TSV7? - HARDMWARE TESTS 1 8

TEST

3: BASIC WRITE DATA

1173 031260

010301

1175 031266

023701

1174 031262

062701

1176 031272
1177 031274
1178 031300
1179 031304
1180 031306
1181 031312
1182 031314

00133¢
062703
020337
002005
020327
001402
000137

1184 031320

004737

1183 031320

1185 031324
1186 031332
1187 031336
1168 031342
1189 031346

1190 031350
1191 031352
1195 031356
031356
031360
031362
031364
1196 031366
1197 031366

031366
031366

1198 031370
1199 031376

1200 031400
1201 031404
1202
1203

012737
012704
010465
004737
103407
010001
005237

000400

001750
177776
030664

102010
032670
000000
016426

1219
1220

{ggé
1223

1224

1204:

032670

104456
000500
033216
012136

104403

023727
103402
004737

130¢:

002212
017272

000017

R3,R1

tGET SIZE OF RECORD

cMe

BNE
ADD
ce
BGE
ce
BEQ
JHP

123S82,.R1

954
€1000. ,R3
R3,T23RS2
120¢
R3, 065534
120¢
65

;AT END OF RAM CHECK YET

JSR

PC,T23RT2

;CLEAN UP PACKET

MOV
INC
ERRHMRD

RO,R1
FATFLG
ERRNO, T23RWN,PKTSSR

9256. ,R1

#102010, T23PK2
0T23PK2 R4
R4 ,TSDB(RS)
PC,CHKTSSR
1308

ENDSUB

cMP
B8LO
999¢:

SEQ 0123

MOV

MOV
MOV
MOV
ISR
8Cs

002212

JSR

;FIGURE OUT END RECORD ADORESS

$1BR, IF MORE TO CHECK
sNEXT RECORD SIZE/DATA PATTERN
3+ IS R3 OVER MAX RECORD SIZE
+IF RECORD SIZE IS TOO BIG QulT
sEND OF SUBTEST MAX RECORD SIZt
s8R, IF COMPLETED
;00 MORE RECORDS
;REWIND (POSITION) COMMAND
;LOAD R4 WITH PACKET ADDRESS
: ISSUE REWIND COMMAND
sWAIT FOR SSR TO SET
sBR, IF TSSR IS OX (GOOO)

s SAVE TSSR CONTENTS
;8UMP COUNT
:TSSR IS INCORRECT AFTER REWIND
TRAP
. WORD
. WORD
. WORD
$>>>>>>5>3>>>> END SUBTEST

L10046:

FATFLG, 015.
999¢
PC,CKDROP

>>3>5>33>>355>>

TRAP

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

CS$ERHRD
320
T23RWN
PKTSSR

CS$ESUB

TO DROP THE UNIT

:
;TEST 3, SUBTEST 4
:
;VERIFIES THAT A WRITE COMMAND WITH AN ILLEGAL MODE
sFIELD OR AN ILLEGAL BUFFER ADDRESS IS REJECTED WITH
; THE PROPER ERROR STATUS AND THAT TAPE DOES NOT MOVE
:

1211
1212
1213

1215 031406
1216 031412
{gi; 031416

115¢%:

032720

034174

14 _UN 84 14:17

ADD

032724

1204
1205
1206
1207
1208
igog
1

1214 031404
031404
031404

MACRU MI113

:
;-

BGNSUB

104402
004737
004737
004737

034102
034236
034174

JSR
JSR
JSR

PC,T23REST
PC,T23RT3
PC,T23RT2

$2>535>533>>> BEGIN SUBTEST »>>>>5>>>55>
73.4:
TRAP
csesuB

:SET COMMAND PACKEY

sRESTORE PACKET

;SET UP OTHER COMMAND PACKET

100868088488 08088080880888408008488880888008008400440002020002000000
;

;sISSUE CONTROLLER “SOFT~ INITIALIZE - CARRY BIT CLEAR IF ERROR
é

;“‘“‘.““‘.““““‘.“"....““‘.‘.“‘.““.““.“‘i“....‘.‘

TSV?
TEST

HARDWARE TESTS 1 8

3: BASIC WRITE DATA

1225 031422

004737

016064

1227 031430
1231 031434
1232 031436

005237
010001

002212

031440

000501

031444

012124

1226 031426
031436
031442

1233 031446

1234 031446
1235 0331454
123%6

103407

MACRO M1113

JSR

PC,SOF INIT

;00 INITIALIZE ON CONTROLLER

INC
MOV
ERROF

FATFLG
RO,R1
ERRNQ, SF IERR, SF IMSG

;8UMP COUNT
;CONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT 0K

BCS

104455

<Ea o126

14 JUN 84 14:17

2Gs

sBR IF INIT WAS Ow

TRAP

. WORD

003650

013737
012704

. WORD

002172
032560

032600

20¢:

. WORC

MOV
MOV

UNI TN, T230SuW
@T23PACKET R4

321

SFIERR

SF IMSG

;SET DRIVE NUMBER IN PACKET
s SUBROUTINE NEEDS PACKET ADDRESS

1237

1800888085508 08488808088888 0000008088000

1238
1239

:
;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

1241

;0002880008000 8084088008800888408888808800048840800844888880400008000

1240

CSERDF

2 0058800888000

000488840404

1242

1243 031460
1244 031464
1245 031466
1249 031472

004737
103407
005237
010001

031474
031476
031500
1251 031502

104456
000502
005054
012124

1250 031474

010752

JSR
B8CS
INC
MOV

002212

ERRHRD

1252

1225532

;WRITE DATA,

PC,WRTCHR
234
FATFLG
RO,R1

ERRNQ,WRTMSG, SFIMSG

;sISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED 0K
;BUMP COUNT
;SAVE CONTENTS OF TSSR

sWRITE CHARACTERISTISC FAILED

TRAP
. WORD
. WORD
. WORD

CS$ERHRD
322
WRTMSG
SF IMSG

1068800888288 88008000888800 0888400600000 080048800000008000804800¢

1253
1
1256

ACK,

ILLEGAL BITS

H
;8800084888840 8048808880880048080088828008048008200000080802084880008

1257

1258 031504
1259 031512

012737
013737

104405
003114

032710
032712

000400
032710
000000

032716

1260 031520

062737

000001

1264 031544

004737

016340

1261 031526
1262 031534
1263 031540
1265 071550
1266 031554
1267 031560
1268 031562
1269 031564
1273 031570
031570
031572

031574
031576

1274 031600
031600
1278 031602

031602

012737
012704
010465
016501
012702
020102
001406
005237

23%:

032712

104406

104403

#104405, T23PK3
“EE,T23uWB

;WRITE DATA, ACK, ILLEGAL BITS
;SET UP WRITE BUFFER ADDRESS

MOV
MOV
MOV

#256.,723S2
0T23PK3 R4
R4 ,TSDB(RS)

;SET UP BUFFER SIZE
;R4 = POINTER TO PACKET
s ISSUE COMMAND

MOV
MOV
cme
BEQ
INC
ERRHRD

TSSR(RS) ,R1
OSSR!SC!BIT1!B8IT2,R2
R1,R2
80¢
FATFLG
ERRNQ,T23TM,PKTSSR

ADD

JSR

000002
100206
002212

104456
000503

033142
012136

MOV
MOV

80¢:

01,7238

PC.WAITF

;MAKE ADORESS 000 (ILLEGAL)

;WAIT FOR SSR TO SET

tGET TSSR CONTENTS
$SET UP EXPECTED
;ARE THEY EQUAL
;BR, IF OK ESP. FUNCTION REJECT
sBUMP COUNT
s TSSR INCORRECT AFTER WRITE COMMAND
TRAP
CS$ERMRD
. WORD
323

. WORD
. WORD

T23THM
PKTSSR

TRAP

CsCLP]

TRAP

csesuB

CKLOP

;LOOP IF SELECTED

ENOSUB

$>>33>5335>>> END SUBTEST

L10047:

>>55333333>>

TSv7

TEST

HARDWARE TESTS 1 8

3: BASIC WRITE DATA

1276
1277
1278
1279
1280

031604
031612
031614
031620

023727

103402
004737

002212

MACRO Mi113

00001°

017272

999;

1281

031620
031620
1292 031622

1298
1299
1300
1301
1302
1303
1304
1305
1306
1307
1311
1312

031626
031630
031634
031640
031644

1 IS ERROR COUNT AT 25
:BR, IF LESS THAN 25
;:TRY TO DROP THE 'NI”

FATFLG, @15,
9994
PC,CKDROP

;TEST 3, SUBTEST S
:

tVERIFIES THAT A WRITE DATA COMMAND SPECIFYING A DATA
;BUFFER STARTING IN NONEXISTANT MEMORY TERMINATES WITH
; THE PROPER ERROR STATUS WITHOUT MOVING TAPE

$>>>>>>3>3>3>

BGNSUB
104402
005737
001002
000137
004737
004737
004737

TST

003126

032150
034102
034236
034174

10¢:

BNE
JP
JSR
JSR
JSR

BEGIN

SUBTEST

73.5:
NXMFLG

10
904
PC,T23REST
PC,T23RT3
PC,.T23RT2

»>55>55>5>>>>>

TRAP

;00 WE HAVE IT?
:BR, IF ENOUGH
:SKIP THIS TEST IF NOT
:SET COMMAND PACKET
;RTSTORE PACKET
;:SET UP OTHER COMMAND PACKET

cs8suB

1888800888888 88848888850088008888080840808008R000888200008080440080002¢

;ISSUE CONTROLLER "SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR
1088000808 088880¢0088080080888084880888084800008088882280828408008000¢

031650
031654
031656
021662
031664
031664
031666
031670
031672
1313 031674
1314 031674
1315 031702
1316
1317

1318
1319
1320
1321
1322
1323
1324
1325
1329
1330

cHe
8Lo
JSR

SEQ 012%

HAd

1282
1283
1284
1285
1286
1287
1288
1289
1290
1291 031620

1293
1294
1295
1296
1297

16 UUN 84 14:17

004737
103407
005237
010001

JSR
8CS
INC
MOV
ERRDF

016064

002212

104455
000504
003650
012124
013737
012704

PC,SOFINIT
204
FATFLG
RO,R1
ERRNO, SFIERR, SFIMSG

;00 INITIALIZE ON CONTROLLER
;:BR IF INIT WAS 0K
;BUMP COUNT
;CONTENTS OF TSSR REGISTER
;FATAL ERROR

TSSR WAS NOT Ow
TRAP

. WORD
. WORD
. WORD
002172
032560

032600

:
204

MOV
MOV

UNITN, T230SW
R4
#T23PACKET

CS$ERDF
324
SFIERR
SFIMSG

;1SET DRIVE NUMBER UP
s SUBROUTINE NEEDS PACKET ADDRESS

;0080880088808 088888488808060888808888800800804080048008808404808800000

:WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
;88888008883 8400808088884808888808048040400880088880482800040002008280800000

031706
031712
031714
031720
031722
031722
031724

004737
103407
005237
010001

104456

000505

010752
002212

JSR
8Cs
INC
MOV
FRRHRD

PC.WRTCHR
1234
FATFLG
RO,R1
ERRNO,WRTMSG, SFIMSG

:ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK
;BUMP COUNT
1 SAVE CONTENTS OF TSSR

1WRITE CHARACTERISTISC FAILED
TRAP

.WORD

CS$ERHRD
325

TSV? - HARDMWARE TES'S 1 8
3: BASIC WRITE DAlA
TESTY
031726
031730

1331
1332
1333
1334
1335
1336
1337
1338 031732
1339 031732
1340 031736
1341 031740
1342 031744
1343 031752
1344 031760
1345 031764
1346 031770
1347 031774
1348 031776
1349 032000
1353 032004
032004
032006
032010
032012
032014
032014

032016
032022
032026
032032
032034

14 JUN 84 14:17

SEG 0126

005054
012124

. WORD
. WORD
1220888000000

sWRITE DATA,

0ARRECS0

ACK,

WRTMSG

SF IMSG

08800 RAARS 0004808008000 00008080000808000

CVC=1

108888040888 000408880080004880480800000802008008088488004484008000800842

005737
001026
005237
112737
112737
012704
010465
004737
103407
010001
005237

123¢:
002216

002216
000200
000010
032670
000000
016426

TST
BNE
INC

MOVB

032723
032722

MOvV8
MOV
MOV
JSR
8Cs
MOV
INC
ERRHRD

002212

104456

EXTFEA
130¢
EXTFEA

#200,7238S1
#10,7238S0
0T23PK2
R4
R4,TSOB(RS)

PC.CHKTSSR
1304

RO,R1
FATFLG

ERRNO, T22SSR,PKTSSR

sCHECK FOR EXTENOED FEATURES SW SWITCH
1BR IF SWITCH IS ON
sONLY ONE TIME

tWRITE MISCELLANEOUS CONT/READ STATUS

sFUNCTION SELECTION BIT (TURN ON EXTFEA HMW SWITCH)
tWRITE SUBSYS MEM PACKET

+ ISSUE COMMAND
;:WAIT FOR SSR

;BR, IF NO ERROR
;ERROR, SAVE TSSR
;BUMP COUNT
;TSSR NOT CORRECT AFTER WRT.

TRAP

000506
026320

012136

130%:

104406

012701
012702
004737
103045

160000
177776
0164566

010137

003130

005037

032714

012737
013737
012737
012704
010465
004737
016501
012702
020102
001414
005237
023727
001345
005237

140005
003130
000100
032710
000000
016340
000002
104210

104456
000507

032144

MACRO M1113

J10

033142

012136

032714
032714

002212

CKLOOP
MOV
MOV
JSR
8CC
MOV

032710
032712
032716

:
244

;LOOP IF SELECTED
9160000,R1

177776,
,R2
PC , XNXM
80¢
R1,NXMLO

000004
25%:

ERRHRD

326
T225SR
PKTSSR

TRAP

CsCLP1

+NXM LOW ADODRESS START
;LIMIT CHECK FOR NXM (MHIGHEST)
;:LOOK FOR NXM ADDRESS
:BR, IF NON FOUND
:SET ADDRESS UP FOR TEST

;CLEAR OUT THE HIGH BITS AREA

#140005, T23PK3
NXMLO, T23uWB

:WRITE DATA,

0T23PK3
R4
R4 ,TSDB(RS)
PC.WAITF
TSSR(RS),R1
OSC!NXM!SSR!BIT3,
R2
R1.R2
80%
T23uWB+2
T23WB+2,
04
244

FATFLG

ERRNO, T23TM,PKTSSR

CSERMHRD

. WORD
. WORD
.WORD

T23WB+2

64, ,72352

MISCELLANEOUS

ACK,

CVC=1

;SET UP WRITE BUFFER ADDRESS
:SET UP BUFFER SIZE
1R4 = POINTER TO PACKET
: ISSUE COMMAND
tWAIT FOR SSR

TO SET

1GET TSSR CONTENTS
+SET UP EXPECTED
+ARE

THEY

EQUAL

iBR, IF OK ESP. FUNCTION REJECT
;BUMP TO NEXT ADDRESS BIT
;CHECK TO SEE IF OVERFLOM INTO 19 BIT
:BR, IF BITS 17 AND 18
;1BUMP COUNT
;:TSSR INCORRECT AFTER WRITE COMMAND
TRAP

. WORD
. WORD
. WORD

C+ERMRD

327
T23TM
PKTSSR

’

TSV?

TEST

- HARDWARE TESTS 1 8

3: BASIC WRITE DATA

1383 032146

032146
1384 032150
1385 032150
032150
032150
1386 032152
1387 032160
1388 032162
1389 032166
1390
1391
1392

MACRO M1113

14 UUN 84

a0s:

CKLOOP

104406

104403
023727
103402
004737

90%$:

002212

000017

017272

9994
.

1409
1410
1411
1412
1413
1414
1415
1416
1417
1418
1422
1423

032216
032222
032224
032230
032232
032232
032234
032236
032240
1424 032242
1425 032242
1426 032250
1427
1428
1429
1430
1431
1432
1433

14:17

SEQ 0127

;LOJP Ir

$,-,0,2>>355>>

ENDSUB

CMpP
BLO
JSR

SELECTED
END

TRAP
SUBTEST

L10050:

CsCLPl

555355.33>,>

TRAP

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

FATFLG,#15.
9994
PC,CKDROP

C$eS'B

HE4

:TEST 3, SUBTEST 6

1393
1394
1395
1396
1397

1398
1399
1400
1401
1402 032166
032166
032166
1403 032170
1404 032174
1405 032176
1406 032202
1407 032206
1408 032212

;VERIFIES THAT A WRITE DATA COMMAND
:BUFFER STARTING IN EXISTANT MEMORY
;NONEXISTENT MEMORY TERMINATES WITH
;:STATUS. A LARGE ENOUGH RECORD SIZE
; THAT TAPE

IS ACTUALLY MOVED AND WRITTEN.

:2>>>>5>>>3>>

BGNSUB
104402
005737
001002
000137
004737
004737
004737

SPECIFYING A DATA
BUT RUNNING INTO
THE PROPER ERROR
IS SPECIFIED SUCH

BEGIN

SUBTEST

>>5>3353>>>>

73.6:
TRAP

003126

032514
034236
034102
034174

10¢:

18T
BNE
JP
JSR

JSR
JSR

;00 WE HAVE IT?
:8R, IF ENOUGH

NXMFLG
104

csgsus

s SKIP THaS TEST IF NOT
;RESTORE PALKET
:SET COMMAND PACKET
:SET UP OTHER COMMANO PACKET

130%

PC, T23RT3

PC,T23REST

PC.T23RT2

1680668848528 0888440480000 88 0580088000800

00 0084000000000 000042

;ISSUE CONTROLLER “SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR
;0848888888584

004737
103407
005237
010001

JSR

016064

02000002208 E 4000200000000 00040000

PC,SOFINIT

204

FATFLG

002212

RO,R1

ERRNO, SFIERR, SFIMSG

104455
000510
003650

100 INITIALIZE ON CONTROLLER
1BR IF INIT WAS OK
:8UMP COUNT
1CONTENTS OF TSSKR REGISTER

:FATAL ERROR TSSR WAS NOT OK
TRAP

. WORD
. WORD
. WORD

012124

013737
012704

4 885000 REERE SR LSS0

002172
032560

032600

204:

MOV
MOV

UNITN, T230SW

,
#T23PACKETR4

:SET DRIVE NUMBER IN PACKET
1 SUBROUTINE NEEDS PACKET ADDRESS

16888884 8880448585888008800850880888008520052004560800¢8048800080408020

WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
)

10888088880 5888888008888888 8000808008800 828008 00508000428

AR%040404

CS$ERDF
328
SFIERR
SFIMSG

TSV7
TEST

HARDWARE

TESTS

BASIC WRITE DATA

1434 032254
1435 032260
1436 032262
1440 032266
1441 032270

032270
032272
03c274
032276

004737
103407

005237
010001

MACRO M1113

14 UUN 84

JSR
8CS
INC

010752
002212

MOV

ERRHRD

14:17

PC,WRTCHR

234

FATFLG
RO,R1

ERRNO, WRTMSG, SF IMSG

SEQ 0128

; ISSUE WRITE CHARACTERISTICS
;9R, TF COMMAND ISSUED O
;BUMP COUNT
1 SAVE CONTENTS OF TSSR

1WRITE

104456
000511

CHARACTERISTISC FAILED
TRAP

.MORD
.WORD
.WORD

005054
012124

CSERMRD

329
WRTMSG
SFIMSG

1442
1000880080888 88488808480880480080880008408408080080400400400400000080¢

1443
1444

{WRITE DATA, ACK,CVC=1

1445
1446

1447

1448
1449 032300
1450 032300
1451 032304
1452 032310
1453 032314
1454 032316
1455 032322
1456 032330
1457 032330
1458 032336
1459 032342
1460 032346
1461 032352
1462 032360
1463 032364
1464 032370
1465 032374
032400
1467 032404
1468 032406
1469 032410
1470 032414
1471 032422
1472 032424
1476 032430
032430
032432
032434
032436
1477 032440
032440
1478 032442
1479 032446
1480 032452
1481 032460
1482 032464
1483 032470
1484 032474
1485 032476
1486 032500
1490 032504

1880800880880 0000840000008000023008884882080402888000000000880200804080

012701
012702
004737

103051

010137
012737

012737
013701

162701
010137
012737
012704
010465
004737
016501
012702
020102
001414
005237
023727
001342
005237

23%:

160000
177776

016466

003130

000000

032714

140005
003130
000500
032712
000000
032710
000000
016340
000002
104210

032710

032714
032714

032716

000004

25%:

002212

MOV
MOV

JSR
8CcC
MOV
MOV
MOV
MOV

SuB
MOV
MOV
MOV
MOV
JSR
MOV
MOV
cMpe
8€EQ
INC
cHP
BNE
INC
ERRHRD

#0,T23WB.2

1NXM LOW ADORESS START
sLIMIT CHECK FOR NXM (HIGHEST)
;:LOOK FOR NXM ADORESS
s8R, IF NON FOUND
:SET ADORESS UP FOR TEST
:SET TO 16 BIT ADORESS

#140005, T23PK3
NXMLO,R1

{WRITE DATA, ACK,CV(C=1
sHIGHEST MEMORY ADORESS LOW BITS

R1,NXMLO

#500,R1

R1,T23W8
#0.,T2382
#T23PK3,R4
R4 ,TSDB(RS)
PC,WAITF
TSSR(RS) ,R1
®SC!NXM!SSR!BIT3,R2
R1,R2
80¢
T23WB
2
04
T23uB+2,
244
FATFLG
ERRNO, T23TM,PKTSSR

104456

1SET ADDRESS A LITTLE LOWER
;LOAD INTO THE PACKET
1SET UP BUFFER SIZE (64K BYTES)
+R4 = POINTER TO PACKET
: ISSUE COMMAND
sMAIT FOR SSR

TO SET

;GET TSSR CONTENTS
:SET UP EXPECTED
;ARE THEY EQUAL
1BR, IF OK ESP. FUNCTION REJECT
1BUMP TO NEXT ADODRESS RANGE
;CHECK TO SEE IF WE WENT TO MHIGH
:BR,

IF NO OVER FLOW

;8UMP COUNT

:TSSR INCORRECT AFTER WRITE COMMAND
TRAP

000512
033142

012136

80¢:

104406
004737
004737
012737
012704
010465
004737

034174
034236
102010
032670
000000
116426

010001
005237

002212

103407

032670

1LOOP IF SELECTED

CKLOOP

JSR
JSR
MOV
MOV
MOV
JSR
8CS
MOV
INC
ERRHRD

PC,T23RT2
PC,T23RT3
9102010, T23PK2
0T23PK2,R4
R4 ,TSDB(RS)
PC,CHKTSSR

1304

RO,R1
FATFLG

ERRNO, T23RWN,PKTSSR

:CLEAN UP PACKET

C$ERHRD

.WORD
.WORD
.MORD

330
T23TM
PKTSSR

TRAP

CsCLP1

tRESTORE PACKET

{REWIND (POSITION) COMMANO
;:LOAD R4 WITH PACKET ADDRESS
: ISSUE REWIND COMMAND

iWAIT FOR SSR TO SET
1BR, IF TSSR IS OK (GOOD>
1SAVE TSSR CONTENTS
18UMP COUNT
; TSSR IS INCORRECT AFTER REWIND

M1C
TSV? - HMARDWARE TESTS 1 8
TEST
3: BASIC WRITE DATA
032504
032506
032510
032512
1491 032514
1492 032514
032514
032514
1493 032516
1494 032524
1495 032526
1496 032532
1497 032532
1498 032536
1499 032540
1500 032544
1501 032544
032544
032546
1502
1503
1504
1505
1507 032550
1509 032560
1510 032560
1511 032562
1512 032564
1513 032566
1514 032570
1515 032570
1516 032572
1517 032574
1518 032576
1519 032600
1520 032602
1521
1522
1523
1525 032664
1527 032670
1528 032670
1529 032672
1530 032674
1531 032676
1532
1534 032700
1536 032710
1537 032710
1538 032712
1539 032714
1540 032716
1541
1542
1543 032720
1544
1545

MACRC M1113

104456
000513
033216
012136

104403
023727
103402
004737
004737
103002
000137

14 UUN B84

14:17

SEQ 0129
TRAP
. WORD

130%:

.WORD
. WORD

ENDSUB

52°>533333533>

END

SUBTEST

L10051:

002212
0172172

000017
9994
:

016546
027342

163$:

104432

TRAP

FATFLG,015.

JSR
8cC

PC,TSTLOOP

1634

;D0 WE NEED TO ITERATE TEST
;BR, IF NO LOOP REQUIRED

ExXIT

TS7

;sALL DONC THIS TEST

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

PC,CKDROP

T23L00P

;TRY

;EXFCUTE

TO OROP

THE

T23RWN
PKTSSR

55333333355

cMP
8LO
JSR

9994

C$ERMRD
331

CSESLR

UNIT

AGAIN

001702

TRAP

CS$EXIT

. WORD

L10043

:LOCAL STORAGE FOR THIS TEST
.BLKB

10-<.-TSVRET>

. WORD
. WORD
. WORD
. WORD

100004
T23DATA
0
8.

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

T238FR
0
10.
0
0

T23PACKET:

100004
032570

000000
000010

032602
000000
000012
000000
000000

T23DATA:

T2305U:
T23BFR:

;:COMMAND PACKET FOR TEST
;WRITE

CHARACTERISTICS COMMAND,

WITH ACK

: ADDRESS OF CHARACTERISTICS BLOCK

;STARTING VALUE OF BLOCK SIZE
; CHARACTERISTICS DATA BLOCK
: ADDORESS OF MESSAGE BUFFER
;:LENGTH OF MESSAGE BUFFER

;SELECT DRIVE O
:MESSAGE BUFFER

2s.

WRITE SUBSYSTEM MEMORY COMMAND PACKET
T23PK2:

T23PK3:

.BLKB

TSV2E?»

. WORD
. WORD
. WORD
. WORD

.8LKB

10 <, -TSVRET»

. WORD

T23WB:

.WORD

123SZ:

.WORD

. WORD
.EVEN

T23RSZ:

10 <.

.WORD

100006

1238F2

100005

0
0
0

{WRITE SUB SYS MEM COMMAND,

AND ACK

; ADDRESS OF SELECT BLOCK DATA

;SIZE OF DATA PACKET

AND ACK
;WRITE COMMANC.,
BUFFER
WRITE
OF
; ADDRESS
;SIZE OF BUFFER (EXTENT)
;LARGEST

TAPE RECORD

IN BYTES

T1Sv?

TEST

MACRO M1113

HARDWARE TESTS 1 8
3 : BASIC WRITE DATA

1546 032722
1547 032722
1548 032723
1549 032724
1550 032726
1551
1552
1553 032730
1554 032732
1555
1556
1557
1558
1559 032734
1560 032736
1561 032740
1562 032742
1563
1564
1565
1566
1567
1568 032744
1569 032777
1570 033064
1571 033142
1572 033216
1573 033265
1574 033340
1575 033406
1576 033461
1577 033550
157¢ 033652
1579 033725
1580 033777
1581 034066
1582
1583
1584

010
200
000000
000000

14 JUN 84

T238F2:
123850:

.BYTE

12362:
723S3:

.WORC
.WORD

O
O

:SEL 2 AREA
:DATA APEA

123TMP: .WORD

.BYTE

T23WRT:

.WORD

EVEN

200

177777

.WORD
.WORD
.WORD
JWORD

:BSEL1

AREA

. TEMPORARY REGISTER

:RETRY

MOTION PACKET

T23WD:
T23WOR:
T23CON:

102005

SEQ 0130

;BSELO AREA

;TAPE

100005
100405

14:17

T23851:

000000
000000

N1G

COMMAND

VALUES

100005
100405
102005
177777

;WRITE DATA (NEXT)
.WRITE DATA RETRY
JWRITE CONTINOUS
;END OF DATA

:LOCAL TEXT MESSAGES FOR TEST
127
105
127
124
122
122
124
104

124
124

103
124
127
102

12¢
117
122
123
145
101
123

162

123
123
126
123
122
141

111
124
111

123
167
115
123
151
123
123
103
102
111

163

T23SSR:
T23ET:
T23E0T:
T2ITNM:
T23RWN:
T23IRNC
:
T23AM3

T230FL
:
T23W00:
T23W0C:
T23VCK:
T238A:
T23WSS::
TST2310:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCI1Z
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.EVEN

'WRITE Commend Not Accepted’
‘EOT Not Found In 12000 4k Writes, (Use Shorter
'WRITE DATA OVER EOT GAVE NO TAPE STATUS ALERT
‘TSSR Not Correct After WRITE Command Re ject
‘Rewind (POSITION) Command Not Accepted’
‘RAM Error,

Correct

‘TSSR Init.

Failed After WRITE Command’

Deta Pattern Not

Tape)’

In Rem’

‘Orive 7 Select Feiled To Set "OFL” In TSSR
*TSSR Not Correct After WRITE DATA Command, SWB Bit Set’
'TSSR Not Correct Afte= WRITE DATA Command, Check For Tape Offline’
‘CVC Set, Didn’''t Reset VCK In Message Buffer’
'TSBA Not Correct After WRITE DATA Command’
'WRITE SUBSYSTEM MEMORY Command Not Accepted

.ASCIZ

'Bes.c Write'

(RAM Read)’

;ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT: VALUES
;WRITE SUBSYSTEM MEMORY COMMAND

1597
1598
1599
1600
1601
1602

034102
034102
034106
034112
034116
034122
034124
034130
034:.34
034136
034142
034144
034150

T23REST:

012701
012721
012721
005021
012721
012721
005021
012721
005021
012711
012702

032560
100004
032570

SAVREG

MOV

OT23PACKET ,R1

:SAVE THE REGISTERS
;START OF

THE PACKET

000012
032602

MOV

2100004, (R1).
#T23DATA,(R1).
(R1).
€10.,(R1).
?;23BFR.(R1)0

000024

MOV

?503.(91)‘

;LENGTH OF MESSAGE BUFFER

20,(R1)

;SELECT DRIVE ZERO

000000
000030

MOV

CLR

MOV

CLR
CLR

MOV
MOV

1)
1),

024 . ,R2

sWRITE SUBSYSTEM MEM, WITH ACK
; ADDRESS OF CHARAISTICS DATA BLOCK
;EXTENDED ADDRESS
;SIZE OF DOATA BLOCK IN BYTES
; ADDRESS OF MESSAGE BUFFER

+NUMBER OF

LOCATIONS

TO BE

CLEARED

TSV?

TEST

HARDMARE

TESTS

MACRO M1113

1 8

BASIC WRITE DATA

14 JUN 84

14:]17

fjl i
SEQ 0131

1603 034154
1604 034162
1605 034164
1606 034170
1607 034172

1608
1609
1610 034174
1611 034174
1612 (34200
1613 034204
1614 034210
1615 034214
1616 034216
1617 034222
1618 034226
1619 034230
1620 034232
1621 034234
1622 034236
1623 034236
1624 034242
1625 034246
1626 034252
1627 034254
1628 034256
1629 034260
1630
1631
163~
1633
1634
1635
1636
1637
1638
1639 034262
1640 034262
1641 034266
1642 034272
1643 034276
1644 034300
1645 034304
1646 034310
1647 034312
1648 034314
1649 034320
1650 034322
1651 034324
1652
1653 034326
1654 034326
1655 034332
1656 034340
1657 034346
1658 034352
1659 034354

012762
005742
020227
001371
000207

°
1777

032602

644

000000

032670
100006
032722

012701
012721
005021
005021
005011
000207

032710
100005

RTS

s RE TURN

0T23Px2,R1

1SAVE THE REGISTERS
1START OF THE PACKET

BNE

T23RT2:
012701
012721
012721
005021
012721
012701
005021
005021
005011
000207

@177777,1238FR(R2)
(R2)
R2, #0

MOV
TSY

SAVREG
MOV
MOV
MOV

s ADORESS OF DATA BLOCK

RTS

sRETURN

SAVREG
MOV
MOV

0T23PK3
R1
#100005,(R1).

CLR

CLR
CLR

T23RT3:

tR2 AT ZERO YE?
sKEEP GOING UNTIL DONE

#100006,(R1).
01238F2,(R1).

MOV
MOV
CLR

000006
032722

64t

sALL ONES TO MESSAGE BUFFER
1BUMP DOWN YO NEXT LOCATION

CLR
CLR
CLR

RTS

(R1).
6. ,(R1).
01238F2,R1
(R1).
(R1).
(R1)

(R1).
(R1).
(R1)
PC

+WRITE SUBSYSTEM MEM,

WITH ACK

1EXTENDED AODORESS
1SIZE OF DATA BLOCK IN BYTES
+POINT TO DATA SEL AREA

;1SAVE THE REGISTERS
1START OF THE PACKET

tWRITE

TAPE. WITH ACK

1 ADORESS OF DATA 8LOCK

sEXTENDED ADORESS

:SIZE OF DATA BLOCK

1RETURN

tROUTINE TO RETRY WRITE DATA IN CASE OF BAD TAPE FOR TES”
:3,SUBTEST 2 ¢ 3
:

;s INPUTS

R1=TSSR
SUBROUTINE SETS UP T2SWRT FOR RETRY

T23CHK;

005087
032701
001452
013702
032702
001401
032702
001002

123TMP

032730
100000

oSC.R}

FATAL
T238FR«10,.R2
X1 .UMC,R2

032612
000002

020000

000207

012703
013737
012737
012704
010300
004737

000024
003114
032732
032710
017512

032712
032710

14:

8IT

EXIT:

RTS

RETRY:
24:

MOV

1
RETRY
oX1.COR,R2
RETRY

FATAL
PC

€20. ,R3
FREE, T23W8
OT23WRT, T23PK3
0T23PK3
R4

R3.RO
PC.FILLMEM

;SAVE THE REGISTERS
sCLEAR LOCAL REGISTER

:1IS SC SET IN TSSR?
iNO, YOU GOT PROBLEMS!

sYES.GET XSTAT)

sIS UNC SET IN XSTATY1?

iNO, CHECX COR
1YES,DO WRITE DATA RETRY
1 IS COR SET IN XSTATY THEN?
; YES SO RETRY
tNO, YOU GOT PROBLEMS

1 RETURN

tSTARTING RECORD SIZE
1STARTING WRITE BUFFER ADDRESS

(WRITE DATA RETRY COMMAND SETUP BY SUBROUTINE
1SET UP R4 WITH PACKET ADORESS
1SET PATTERN IN CORRECT REGISTER
tFILL MEMORY WITH RECORD SIZE

TSv?
TEST

HARDMARE

TESTS

1 8

3: BASIC WRITE DATA

1660 034360
1661 034364
1662 0354370
1663 034374
1664 034400
1665 034404
1666 034406
1667 034410
1668 034414
1669 034422
1670 034424
1674 034430
1675 034434
034434
034436
034440

034442
1676 034444
1677 034450
034450
034450
1678
1679
1680
1681
1682

010337
010465
004737
016501
012702

020102
001746
005237

022737

001341
005237
013702

MACRO M1113

032716
000000
016340
000002
0002¢
032730
000005

032730
FATAL:

002212
032602

1709
1710
1711
1712
1713
1714
1715
1716

14:]7

MOV
MOV

R3,12357
R4, TSDB(RS)

MOV
MOV
o,
8EQ
INC
(o,J
BNE

TSSR(RS),R1
#SSR ,R?

INC

MOV
ERRHRD

SFQ N13%2

+SET UP RECORD SIZE
s ISSUE COMMAND

PC.WAITF

tWAIT FOR

SSR

R1,R2

sARE

THEY

EQUAL

T23TMP
05,1287
24

sOONE FIVE

FIVE

“TIMES

012200
004737

017272

JSR
ENDTST

IN PACKHE
TM

SET

sGET TSSR CONTENTS
1SET UP EXPECTED

ExIT

1BR,

s TRY

IF Ox

YET?

THEN EXIT

iNO GO AGAIN

;BUMP COUNT

FATFLG

T238FR,R2
ERRNC, SCHERR ,PKX TMES

;LOW ORDER MSGBUF

s TSSR INCORRECT AFTER WRITE DATA
TRAP

104456
000514
005276

tOROP THE INIT

PC . CKXDROP

L10043:

104401

.SBTTL

TEST

BASIC

READ

DATA

(FORWARD

. WORD

332
SCHERR
PR TMES

TRAP

CseT1S?

AND REVERSE)

sOF CUURSE, FURTHER VERIFIES THE WRITE DATA COMMAND BY ACTUALLY

sREADING AND VERIFYING WRITTEN DATA. ALSO TESTED ARE PROPER
1 TERMINATIONS ON EXCEPTIONAL OR ERROR CONDITIONS: RECORD LENGTH
sLONG, RECORD LENGTH SHORT, READ REVERSE AT BOT, ILLEGAL DATA
$1BUFFER ADDRESSES, ILLEGAL CODES IN THE MODE FIELD OF THE BASIC
;READ COMMAND, AND DATA BUFFERS IN NON-EXISTANT MEMORY, THE TEST
:

;THE TEST CONSISTS OF THE FOLLOWING 14 SUBTESTS

BGNIST

012737
005037
004737
012700
004737
004737
005037
012737

006356
003124
017364
046462
016600
021322
003126
000005

MOV
CLR
JSR
MOV
JSR
JSR
CLR

002170

002206

MOV
‘

OEPRT) ,EPRTSHK

KTENABLE
PC,KTOFF
#T1ST241ID,RO
PC.TSTSETLP
PC,MEMCK
NXMFLG
o5 ,LOOPCNT

;TEST 4, SUBTEST 1

T4::

1SET UP PRIMARY ERROR MESSAGE
sTURN OFF KT11

s TURN KT11 OFF

tASCIY MESSAGE TO IDENTIFY TEST
100 INITIAL TEST SETUP
;CHECKX FOR MEMORY
:SET FLAG
;PERFORM S ITERATIONS

CSERMRD

. WORD
. WORD

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

1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697
1698
1699

1707
1708

JUN 84

JSR

1683
1664
1685

1700
1701
1702

1€

TSV? - HARDWARZ TESTS 1 8

TEST

MACRO M11i3

&: BASIC READ DATA (FORWARD AND REVERSE

UUN 84

]4:)°

SEQ 2133

tVERIFIES THAT A READ DATA COMMAND WITH THE CLEAR
:VOLUME CHECK (CVC) BI7 CLEAR IS REJECTED IF T+
;VOLUME CHECK (VCx) IS SET. ALL .EGAL
1COMBINATIONS OF THE COMMAND MOOE FIELD ARE TESTED
;(I.E., IT IS VERIFIED THAT THE COMMAND IS REVECTED
;tOUE TO VCr BEING SET RATHER THAN ERRONEOUS ODECOOING

1717
1718
1719

1720

1721
1722
1723

:OF THE MODE FIELO.

1724

1725

1726

1727

1728 034516
1729 034516
034516

1730
1731
1732
1733
1734
1735
1736
1737
1738
1739
1740
1741
1742
1743

034516
034520
034524
034530
034534

1744
1745
1745
1750
1751

1752
1753

1754
1755
1756

T24L00P
;

$2>2>>>33333>

BEGIN SUBTEST

T4.1:

104402
004737
004737
004737
012737

046530
046622

176750

TRAP

JSR
JSR

PC,T24REST
PC.T24RT3S

1SET COMMAND PACKET
1SET UP OTHER COMMAND PACKET

MOV

#65000. ,T240L Y

1LOAD UP DELAY ROUTINE

JSR

044216

PC,T24RT?2

. 555533355

csgs'mB

;SET UP OTHER COMMAND PACKET

108008880808 8006004608000800088800002800008080000008080000800880000005000

:ISSUE CONTROLLER *SOFT~ INITIALIZE - CARRY BIT CLEAR IF ERROR
100080600808 00000080008008000000800004680000080000008000408048000040000

004737
103426

016064

012727
000000

000250

013727
000000
005367
001375
005367
001367
005337
001356
005237
010001

DELAY

PC,.SOFINIT
204
250

;00 INITIALIZE ON CONTROLLER
1BR IF INIT WAS (Ox
sDELAY AWMILE

177756

DEC
BNE

044216

INC

002212

MOV
ERRDF

T24DLY
S¢

FATFLG

RO,R1
ERRNO,SFIERR, SFIMSG

. WORD
MOV
. WORD
DEC
BNE
DEC
BNE

177772

104455

;:BUMP DELAY COUNTER
18R, IF MORE OELAY REQUIRED

000007
044040

044360

:
204

sCONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT 0Ox

TRAP

.WORD
.WORD
MOV
MOV

07, 7240SW
R4
#T24PACKET

1SET DRIVE NUMBER IN PACKET
1 SUBROUTINE NEEDS PACKET ADORESS

1088068688800 00808880008000804808004000040400480000080808800000400080080
:

1WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

1758
1759
1760

10088068888 888008804004800088080880800000880880800004080000800080400002

004737

010752

JSR

PC.WRTCHR

0250,(PC)-

0
LSOLY
, (PC)0
-6(PC)
.-4
-22(PC)
. 20

;1BUMP COUNT

.WORD

000621
003650
012124

012737
012704

JSR
8CsS

002116

1757

1761
1762 034636

BGNSUB

1 ISSUE WRITE CHARACTERISTICS

CSERDF

401

SFIERR
SFIMSG

MACRO M1113
14 JUUN 84 14,17
TSV? - HARDWARE TESTS 1 8
TEST
A: BASIC READ DATA (FORWARD AND REVERSE)

1763 034642

1764 034644

1768 034650
1769 034652
034652
034654
034656
034660
1770 034662
1771 034666
1772
1773 034670
1774 034676
1775 034704
1776 034710
1777 034714
1778 034720
1779 034722
1780 034724
1784 034730
034730
034732
034734
034736
1785 034740
034740
1786 034742
1787 03475C

1788
1789
1790
1791
1792
1793
1794
1795 034754
1796 034760
1797 034762
1801 034766
1802 034770
034770
034772
034774
034776
1803 035000
035000
1804 035002
1805 035006
1806 035012

1807 035014
1811 035020
035020
035022
035024
035026
1812 035030
035030

103407
005237

010001

BCS
INC
MOV
ERRHRD

002212

241

FATFLG

RO,R1
ERRNO , WRTMSG,
SF IMSG

SEQ 0134

;BR, IF COMMAND
18UMP COUNT

s SAVE CONTENTS OF

tWRITE

104456

000622
005054
012124
005737
001044

112737
112737
012704
010465
004737

103407
010001
005237

244

002216

000200
000010

044150

MOV

044201
044200

MOV8
MOV
MOV

016426

002212

104456

000623
044737
012136

104406
012737
012704

TS7T

BNE

TRAP

CSERHRD

.WORD
.WORD
.WORD

402
WRTMSG
SFIMSG

1CHECK FOR EXTENDED FEATURES SW SWITCH
1BR IF SWITCH IS ON

0200, 7248S1

tWRITE MISCELLANEOUS CONT/READ STATUS
sFUNCTION SELECTION BIT (TURN ON EXTFEA MW SWITCM)

#10,724850
R4
0T24PK2
R4, TSOB(RS)
PC.CHKTSSR

JSR
8CS
MOV

RO,R1

ERRHRD

ERRNO, T24SSR, PKTSSR

MOV
MOV

044060

TSSR

CHARACTERISTISC FAILED

EXTFEA
S04

304

FATFLG

tWRITE SUBSYS MEM PACKET
+ ISSUE COMMAND
sWAIT FOR SSR
1BR, IF NO ERROR
sERROR, SAVE TSSR
;:6UMP COUNT
: TSSR NOT CORRECT AFTER WRT,

TRAP

CKLOOP
000007
044040

ISSUED Ow

:LOOP IF
#7,T240SW
#T24PACKET
R4

SELECTED

MISCELLANEOUS
CS$ERHRD

.WORD
.WORD
.WORD

403
T24SSR
PKXTSSR

TRAP

CsCLPl

:SET DRIVE NUMBER IN PACKET
s SUBROUTINE NEEDS PACKET ADDRESS

1008868088020 80880080808800008080080¢08880808¢080804040040800000828000

:WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
’

1088880888008 08888808880880048800880880880884808800004802¢430888088800¢

004737
103407
005237
010001

002212

104456
000624
005054
012124
104406
016501
032701
001006
005237

JSR
8CS
INC

010752

MOV
ERRHRD

TSSR(RS),R1

000002
000100

Q0FL ,R1

604
FATFLG

002212

ERRNO, T240FL , SF IMSG

104406

604 :

s ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSiED Ox
;BUMP COUNT
; SAVE CNNTENTS OF TSSR
{WRITE CHARACTERISTISC FAILED

1 SCOPE LOOP

S0¢:

104455
000625
045515
012124

PC,WRTCHR
504
FATFLG
RO,R1
ERRNO, WRTMSG, SF IMSG

CKLOOP

TRAP

C$ERHRD

.WORD
.WORD
.WORD

404
WRTMSG
SFIMSG

TRAP

CsCLPL

;GET TSSR CONTENTS
;CHECK FOR THE JFFLINE BIT SET
;BR, IF OFFLINE (GOOD)
:BUMP COUNT
;:OFF LINE SHOULD HAVE BEEN SET (BAD)
TRAP

1LOOP IF SELECTED

CS$ERDF

.WORD
.WORD

405
T240FL

TRAP

CsCLP1

.WORD

SFIMSG

TSV7?

TEST

- HARDWARE TCSTS 1-8

MACRO M1113

14 JUN-84

4&: BASIC READ DATA (FORWARD AND REVERSE)

1812 035032

1814
1815
1816
1817
1818
1819
1820
1821 035036
1822 035042
1823 035046
1824 035052
1825 035056
1826 035062
1827 035066
1828 035070
1829 035072
1833 035076
035076
035100
035102
035104
1834 035106
035106
1835 035110
1836 035112
1837 035116
1838 035120
1839 035122
1840 035122
035122
025122
1841 035124
1842 035132
1843 035134
1844 035140
1845
1846
1847
1848
1849
1850
1851
1852
1853
1854
1855

012703

MOV

OT24RN,R3

SEQ 0139

sPOINTER FOR COMMANDS

100088400080 04300240808008020000800000000800800000008002082000400000

; TAPE READ COMMAND IN PLACE
1068008880883 000800000030040000¢08028800888808008808080800002088080080440¢

011337

012704
010465
004737
016501
012702
020102
001406
005237

65¢:

044170
044170
016340

100306

MOV
MOV
MOV
JSR
MOV
MOV
cHp
BEQ

(R3),T24PK3
1 TAPE READ COMMAND IN PLACE
0T24PK3 R4
;R4 = POINTER TO PACKET
R4, TSOB(RS)
; ISSUE COMMAND
PC.WAITF
sWAIT FOR SSR 10O SETY
TSSR(RS),R1
;GET TSSR CONTENTS
OSSR!SC!OFL'BIT1!BIT2,R2
sSET UP EXPECTED

R1,R2
80¢

sARE THEY EQUAL
sBR, IF OK ESP. FUNCTION REVECT

ERRHRD

ERRNO,T24TM,PKTSSR

s TSSR INCORRECT AFTER TAPE MOTION CMD

INC

002212

104456

FATFLG

;BUMP COUNT

TRAP

. WORD
. WORD
. WORD

000626

045253
012136

104406
005723
022713
00140
000746

80%:

177777
90$:

CKLOOP

187
cp
BEQ
BR

;LOOP IF SELECTED

{(R3)0177777.(R3)
90
654

ENDSUB

:8UMP TO NEXT COMMANO
;END OF THE COMMANDS TET
:BR, IF DONE
sMORE COMMAND(S) T0 GO
:22>535>35>>3>

END

104403
023727
103402
004737

002212
017272

000017

TRAP

FATFLG, 215.

:IS ERROR COUNT AT 25

JSR

PC,CKDROP

;TRY T0O DROP THE UNIT

9994

CSERMRD

406
T24TH
PKTSSR
CsCLP)

>35>35333333>

B8LO
9394
:

TRAP

SUBTEST

L10053:

CSESUB

;BR, IF LESS THAN 25

; TEST 4, SUBTEST 2

s VERIFIES THAT READ FORWARD COMMANDS WITH SWB=0
sOPERATES PROPERLY. THE TAPE IS FIRST REWOUND AND THEMN
sWRITTEN WITH A SERIES OF TEST RECORDS VARING IN
+LENGTH AND DATA CONTENT. THME TAPE IS THEN REWOUND
;AGAIN AND THE RECORD READ SEQUENTIALLY AND RESWLTS
;s(STATUS, DATA, ETC.) VERIFIED. THE BYTE COUNT ON
sEACH READ FORWARD COMMAND IS SET TO THE LENGTH OF THE

1856
1857
1858
1859

1860
1861
1862
1863 035140
035140
035140

044206

14:17

F11

;EXPECTED RECORD,

;OCCUR,

’
104402

BGNSUB

SO NO EXCEPTINNAL CONDITIONS SHOWD

$2>>>>>>3>>>>> BEGIN SUBTEST >>>>>>3>>3>>>)>
T4.2:

TRAP

csBsuB

TSv?

TEST

HARDWARE

TESTS

1 8

MACRO M1113

14 UUN 84

4&: BASIC READ DATA (FORWARD AND REVERSE

1864 035142
1865 035146
1866 035152
186~
1868
1869
1870

004737
004737
004737

JSR
JSR
JSR

046664

046530
04662¢

035156
035162
035164
035170
035172
035172
035174
035176
035200
1882 035202
1883 035202
1884 035210
1885
1886
1887
1888
1889
1890
1891
1892 035214
1893 035220
1894 035222
1898 035226
1899 035230
035230
035232
035234
035236
1900 035240
035240
1901
1902
1903
1904
1905
1906
1907
1908 035242
1909 035246
1910 035250
1911 035252
1915 035256
035256
035260
035262
035264
1916 035266

PC,T24RT3
PC,T24REST
PC.T24RT2

SEQ G136

1SET UP OTHER COMMAND PACKET

1SET COMMAND PACKETY
$1SET UP OTHER COMMAND PACKET

1068808000000 ¢08830060000800020000048000080008000000006000000000008800000¢

;ISSUE CONTROLLER “SOFT' INITIALIZE

1871
187¢

1873
1874
1875
1876
1880
1881

14:)17

CARRY BIT CLEAR IF ERROR

1000686080800 08840000000¢008080008300008080000088000008006008280000800

004737
103407
005237
010001

JSR
8Cs
INC
MOV
ERRDF

016064

002212

104455
000627
003650
012124
013737
012704

002172
044040

044060

20¢:

PC,SOFINIT
204
FATFL
RO,R1
ERRNO, SFIERR, SFIMSG

;00 INITIALIZE ON CONTROLLER
sBR IF INIT WAS 0Ox
1BUMP COUNT
sCONTENTS OF TSSR REGISTER
;FATAL

ERROR

TSSR WAS NOT 0O
TRAP

. WORD
. WORD
. WORD
MOV
MOV

UNITN, T240SW
R4
#T24PACKET

CSERDF

407

SF IERR
SF IMSG

sSET DRIVE NUMBER IN PaLKET
1 SUBROUTINE NEEDS PACKET ADORESS

1800860000088 808080080888808000008002880200008002808800008880000800800

WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
’

1008080008003 4¢0008088830008008080880808000008044808088880080040800082

004737
103407
005237
010001

JSR
8CsS

010752

INC
MOV
ERRHRD

002212

104456
000630
005054
012124

244
:

104406

PC.WRTCHR
244

FATFLG
RO,R1
ERRNO,WRTMSG, SFIMSG

;ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED Ox
;8UMP COUNT
$SAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC FAILED

;LOOP IF SELECTEC

CxLOOP

CSERHRD

TRAP
. WORD
. WORD

408
WRTMSG

. WORD

SF IMSG

TRAP

CsCLP1

1608880808800 88888000888000300200888880080046088080083800080088000040002

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
1608088000008 888808000848480800008000800000808080800028008080088040000

004737
103407
010001
005237
104456
000631
045326
012136

JSR
8Cs

011104

MOV
INC
ERRHRD

002212

304:

CxLooP

PC,REWIND
30¢
RO,R1
FATFLG

ERRNQ, T24RWN,PKTSSR

;CALL TAPE REWIND COMMAND
;BR, IF NO PROBLEM
;s SAVE TSSR
;BUMP COUNT
;REWIND NOT

ACCEPTED

:LOOP IF SELECTED

TRAP

. WORD
. WORD
. WORD

CSERHRD

409
T24RWN
PKTSSR

H1
TSV7? - HARDWARE TESTS 1-8

TEST

MACRO M1113

14 UUN 84 14:17

SEQ 01%7

&: BASIC READ DATA (FORWARD AND REVERSE)

035266

104406

TRAP

iqw

10000000000 00000000000008008800000800000000020000804000000048000060000

1920

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xST0)

CICLPl

1919
921

1922

1060000806008 00000000000000048000000000008480000000008006600686000080¢

1923

1924 035270
1925 035274
1926 035276
1927 035302

013701
010102
052702
020102

044070

1929 035306

005237

002212

1928 035304

1933 035312
035312

035314
035316

035320

1934 035322
035322
1935 035324
13% 035330
1

001406

000002

[ 0)")
MOV
BIS
o, o

T24BFR+6,R1
R1,R2
o81IT1,.R2
Fl1,R2

sPICK UP XSTO
;SET UP EXPECTED
;SET B80T BIT IN EXPECTED
;DOES EXP = REC'D

INC

FATFLG

;1BUIP COUNT

BEG

ERRHRD

104456

404

1BR, IF EQUAL (Ox)

ERRKRNO, T24B0T ,EXPREC

; TAPE NOT AT BOT AFTER REWINDO
TRAP

000632
045043

.WORD
.WORD

015564

104406
012703
013737

&0
000400
003114

CxLOOP
MOV
MOV

044172

. WORD

EXPREC

TRAP
;RECORD SIZE
;:STARTING WRITE BUFFER ADDRESS

CsCLP)

;LOOP IF SELECTED
0256. ,R3
FREE, T24RB

1938

(000880800808 88008000800680404080008486480000000080400068480004800004860

1939

1941

13‘40

CS$ERHRD

410
724807

;WRITE DATA,CvC=1,ACK COMMAND

1942

;8608000008008 08860000808848004004. 1.000880080808400848000400080040

1943

1944 035336
1945 035344

012737
012704

140005
044170

1947 035350
1948 035352
1949 035356
1950 035362

010300
004737
010337
010465

017512
044176
000000

1952 035372
1953 035376
1954 035402

016501
012702
020102

1946 035350

1951 035366

1955 035404

1956 035406
1960 035412

004737

001406

005237

035412
035414
035416
035420

104456
000633
005111
012136

035422

104406

1961 035422
1962 035424

1963 035426
1964 035432
1965 035434
03434
1966 035436
1967

005723

022703
001346
104406

044170
654:

016340

MOV
MOV

0140005, T24PK3
0T24PK3 ,R4

;WRITE DATA,CVC=1,ACK COMMAND
;SET UP R4 WITH PACKET ADDRESS

MOV
JSR
MOV
MoV

R3,RO
PC,FILLMEM
R3,T24S52
R4,TSOB(RS)

;SET PATTERN IN CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE
;SET UP RECORD SIZE IN PACKET
;sISSUE COMMAND

MOV
MOV
cMP

TSSR(RS) ,R1
OSSR ,R2
R1,.R2

;GET TSSR CONTENTS
sSET UP EXPECTED
sARE THEY EQUAL

JSR

000002
000200

BEQ

002212

INC
ERRHRD

754 :

80%:
1204:

75¢

cMP
BNE
CKLOOP

;WAIT FOR SSR T(Q SET

FATFLG
ERRNO,WRTERR,PKTSSR

cxKLOOP
TST

000414

PC.WAITF

i8R,

IF OK

:BUMP COUNT
; TSSR INCORRECT AFTER WRITE DATA

TRAP
. WORD
. WORD
. WORD

CSERMNRD
411
WRTERR
PKTSSR

TRAP

CsCLP1

:END OF RECORD YET
:BR, IF MORE RECORDS TO WRITE
;LOOP IF SELECTED
TRAP

CsCLP1

;LOOP IF SELECTED
(R3).

0268. ,R3
654

:8UMP RECORD SIZE

TSV?
TEST

SEQ 0138

MACRO M1113 14 UUN 84 14:17
HARDWARE TESTS 1 8
&: BASIC REFD DATA (FORWARD AND REVERSE)

1968

1000000080000 0008800000008000000008088080080000008080480600000480000004

1969

1971

1008088000000

1970

;:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
:

19;2
1973

1974 035436

004737

1976 035446
1977 035450
1978 035452
1982 035456

103407
010001
005237

035460

000634

1975 035442

035456

035462
035464

1983 035466
1984

0354€5

004737

011104

016426

104456

045326
012136

104406

sCALL TAPE REWIND COMMAND

8Cs
MOV
INC
ERRMRD

130¢
RO,R1
FATFLG
ERRNO, T24RWN,PKTSSR

1BR, IF NO PROBLEM
1 SAVE TSSR
;BUMP COUNT
;REWIND NOT ACCEPTED

PC,CHKTSSK

sSEE HMOMW TSSR 15

TRAP

CSERMHRD

.WORD
. WORD

T24RWN
PKTSSR

130¢:

CkLOOP

;LOOP IF SELECTED

TRAP

412

CsCLP1

;080000000088 84088000080880040080880880008080000088800008008080808008040¢
H

133;
1

;READ MESSAGE BUFFER EXTENDED
:

1989
1990

PC,.REWIND

.WORD

1985
1986

1991
1992
1993
1994

JSR

002212

0 8000000000000 800000000080800800080088004600600840

STATUS REGISTER ZERO (XST0)

1080066000008 8000088000808008080804828080008804800008088808000888400¢

035470
035474
035476
035502

013701
010102
052702
020102

044070

1996 035506

005237

002212

1995 035504

2000 035512
035512
035514
03,516
035520

2001 035522
035522
2002 035524
gggz 035530

001406

000002

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

INC

FATFLG

;BUMP COUNT

ERRHRD

140%
000400
003114

T24BFR+6,R1
R1,R2
#8IT1,R2
R1,R2

BEQ

104456
000635
045043
015564

104406
012703
013737

MOV
MOV
BIS
coe

ERRNQ, T24B0T ,EXPREC

CKLOOP
MOV
MOV

044172

140¢

;BR,

IF EQUAL

;s TAPE NOT

(Ox)

AT BOT

;LOOP IF SELECTED
0256. ,R3
FREE, T24RB

AFTER REWIND
TRAP
. WORD
.WORD
. WORD

TRAP
;RECORD SIZE
sSTARTING READ BUFFER ADDRESS

2005
2006
2007

(0860000006800 0006060008000000000080000088088000000800088880088080800¢
3
;READ DATA,CVCe=1,ACK COMMAND

2009

;ouuouuouuuuouuuoouuu-uuuouououuuouuunu.

2010

2011 035536

012737

2013 035550
2014 035554

010337
010465

2012 035544

2015 035560

2016 035564
2017 035570
2018 035574
2019 035576
2020 035600

140001

012704

044170

004737

016340

016501
012702
020102
001406
005237

044176
000000

000002
000200
00c212

044170

1654 :

MOV

#140001, T24PK3

sREAD DATA,CVC=1,ACK COMMAND

MOV
MOV

R3,T24S2
R4, TSOB(RS)

;SET UP RECORD SIZE IN PACKET
1 ISSUE COMMAND

MOV
MOV
cMe

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

MOV

JSR

BEQ
INC

0T24PK3 R4

PC.WAITF

170
FATFLG

;SET UP R4 WITH PACKET ADDRESS
;WAIT FOR SSR TO SET

tGET TSSR CONTENTS
:SET UP EXPECTED
tARE THEY EQUAL

t1BR, IF 0K
:BUMP COUNT

CS$ERHRD
413
724807
EXPREC

CsCLP1

TSvV?
TEST

TESTS 1 8
MACRO M1113
14-JUN 84 14:17
READ
DATA
(FORWARD
AND
REVERSE)
BASIC

2024 035604
035604
035606
035610
035612
2025 035614
035614
2026 035616
2027 035622
2028 035624

035630
2030 0355832
2031 035634
2032 035636
2033 035640
2034 035642
2038 035646

2039
2040
2041
2042
2043
2044
2045

2047
2048

J11

SEQ 0139

HARDWARE

035646
035650
035652
035654
035656
03565¢
035660
035662
035664
035666
035670
035672
035676
035700
035700
035702
035702
035702
035704
035712
035714
035720

2049
2050
2051
2052
2053
2054
2055
2056
2057
2058
2059
2060
2061
2062
2063
2064
2065
2066 035720
035720
035720
2067 035722
2068 035726

ERRHRD

ERRNO,RDFRR,PKTSSR

s TSSR

INCORRECT

104456
000636

005204
012136

104406

013702
010304
162704

060204
021403
001410

170%:

003114
000400

173¢:

011401

010302
005237

002212

001322

190%:

104406

104403

023727

103402
004737

:GET BUFFER ADDRESS
;CURRENT RECORD SIZE

ADD
cHe
BEQ

R2,R4
(R4),R3
180¢

;GET LOCATION IN BUFFER (ADDRESS)
;CHECK DATA READ (R3=DATA ALSO)
;BR, IF ALL IS WELL

MOV
INC

R3,R2
FATFLG

iEXPECTED DATA
1BUMP COUNT

su8

#256. ,R4

8NE

CKLOOP

:FIRST LOCATION IN BUFFER

(R4),R]

;RECD DATA

ERRNO, T24DTA,EXPREC

CKLOOP
TSY
SuB
ce
BNE
TS7
cHe

000412

:OATA READ NOT

WRITTEN

RAP
. WORD
. WORD
. WORD

;LOOP IF SELECTED

(R4).
R2,R4
R4,R3
173
(R3).
0266 . ,R3

165

ENDSUB

TRAP
:BUMP TO NEXT LOCATION
;GET BACK TO CORRECT SIZE
;END OF RECORD YET
:BR, IF NOT AT END OF RECORD
;8UMP RECORD SI1zZt
;END OF RECORD YET

;BR,

;LOOP

017272

000017

CcMe

SELECTED

$2>>23335555>>

99:

8LO
JSR

FATFLG,#15.
999
PC,CKDROP

C$ERHRD
415
T24DTA
EXPREC
CsCLP1

IF MORE RECORDS TO WRITE
END

TRAP

CsCLPl

TRAP

CS$ESUB

SUBTEST

L 10054:

002212

CsCLPI

FREE,R2
R3,R4

ERRHRD

180¢%:

sLOOP IF

CSERHRD
414
ROERR
PKTSSR

MOV
MOV

MOV

104456
000637
045110
015564
104406
005724
160204
020403
001360
005723
022703

CKLOOP

AFTER READ DATA
TRAP
.WORD
. WORD
. WORD
SELECIED
TRAP

>5>5>533>3>>>>

;IS ERROR COUNT AT 25
;BR,
;TRY

IF LESS THAN 25
TO DROP THE UNIT

HE4

:TEST 4, SUBTEST 3

:VERIFIES THAT READ DATA COMMANDS WITH CVC=1 AND THE

;:SWAP BYTES (SWB) BIT SET OPERATES PROPERLY. THE TEST
;:SEQUENCE IS IDENTICAL TO THAT USED IN SUBTEST 2.
; THE RESULTS, EXCEPT FOR RAM CONTENTS, SHOULD BE THE SAME.

8GNSUB

104402
004737
004737

046664
046530

JSR
JSR

;>>35>>>>55>>

BEGIN

SUBTEST

74.3:
PC,T24RT3
PC,T24REST

TRAP

:SET UP OTHER COMMAND PACKET
;SET COMMAND PACKET

5>>3>>33353>»

csBsSuB

TSV?

TFST

MARDWARE

TESTS

1-8

MACRO M1113

4&: BASIC READ DATA (FORWARD AND REVERSE)

2069 035732
070

5071

004737

046622

UUN 84

14:17

JSR

PC,TR24RT?

<1|

SEQ 0140

;SET P OTHER COMMAND PACKET

IR0 000000000RRSRRR0000000 000000000 ER0R0000000040000R0sRettsatntts

2072

2073

;ISSUE CONTRPOLLER "SOFT” INITIALIZE

2074

2075

CARRY BIT CLEAR IF ERROR

(0080480040020 0E000000R00RRARRACANL0R00000R00REeRCRSEt0Rttttatss

2076

2077 035736
2078 035742

2079 035744
2083 035750
2084 035752
035752
035754
035756
035760

2085 035762
2086 035762
2087 035770
2088

004737
103407

005237
010001

016064

JSR
B8CS

002212

104455
000640
003650
012124

013737
012704

002172
044040

044060

20%:

PC,.SOFINIT
204

INC
MOV
ERROF

FATFLG
RO,R1
EFRNO, SFIERR, SF IMSG

MOV
MOV

UNITN, T24DSW
#T24PACKET R4

;00 INITIALIZE ON CONTROLLER
:BR IF INIT WAS Ok
;BUMP COUNT
;CONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT 0K

TRAP
. WORD
. WORD
. WORD

;SET DRIVE NUMBER IN PACKET
; SUBROUTINE NEEDS PACKET ADORESS

2089

;0080800884080 8 8880004008080 88000040000088080080800888008008008840

2090
2091
2092

H
;WRITE CHARACTERISTICS COMMAND (CALL
H

2093

2094

2095
2096
2097
2101
2102

;02

035774
036000
036002
036006
036010

004737
103407
005237
010001

2104 036020

104406

036010
036012
036014
036016
2103 036020

010752

104456
000641
005054
012124

244 :

2i05

TO WRTCHR)

AS RS SARRAERERSSSEES040000C0ER0E0E00800080808020880000808828

JSR
BCS
INC
MOV
ERRHRD

002212

PC.WRTCHR
244
FATFLG
RO,R1
ERRNQ,WRTMSG, SFIMSG

CKLOOP

; ISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED 0K
;:8UMP COUNT
; SAVE CONTENTS OF TSSR
s WRITE CHARACTERISTISC FAILED

;LOOP IF

SELECTED

TRAP
. WORD
. WORD
. WORD

CSERMHRD
417
WRTMSG
SF IMSG

TRAP

CsCLP1

(806 RSRSE24004004000082REER00EERARECEERRRE0AEER0A40008004%480

2106

gigg

;s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

2109

;‘t“‘““tt“‘t‘t‘“t“‘““tt‘t“tt‘t‘t“.t‘t“t‘ttt‘t‘..‘tt“00‘

2110

2111 036022
2112
2113
2114
2118

036026
036030
036032
036036
036036
036040
036042
036044
2119 036046
035046
2120

CSERDF
416
SFIERR
SF IMSG

004737

103407
010001
005237
104456
000642
045326
012136

104406

011104

JSR

BCS
MOV
INC
ERRHRD

002212

304

CKLOOP

PC,.REWIND

304
RO,R1
FATFLG
ERRNO, T24RUN,PKTSSR

;CALL TAPE REWIND COMMAND

;8R, IF NO PROBLETM
i SAVE TSSR
1BUMP COUNT
;REWIND NOT ACCEPTED

;LD

SELECTED

TRAP
. WORD
. WORN
. WORD

CSERHRD
418
T24RWN
PKTSSR

TRAP

CsCLP1

TSV?

TEST

HARDWARE TESTS 1 -8

MACRD M1113

14 UUN 84 14:17

L11

SEQ N14)

&: BASIC READ DATA (FORWARD AND REVERSE)

2121

1008848000880 0808808000000008000040000800000¢800080008080000000080000

2122

124

212%

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO

glzs

10088080083 040880008080088888804608030880808800000080080080000800060808008

2126

2127 036050
2128 036054
2129 036056
2130 036062
2131 036064
2132 036066
2136 036072

013701
010102
052702
020102
001406
005237

036072
035074
036076
036100

104456
000643
045043
015564

036102

104406

2137 036102
2138 036104

2139 036110
2140

012703

013737

044070

MOV
MOV
BIS
ce
BEQ
INC
ERRHRD

000002
002212

404 ;
000400

003114

T24BFR+6,R1
R1,R2
#IT1,R2
R1,R2
404
FATFLG
ERRNO, T24B0T ,EXPREC

CKLOOP
MOV

044172

21‘1

MOvY

;PICK UP XSTO
sSET UP EXPECTED
;SET BOT BIT IN EXPECTED
;D0ES EXP = REC'D
;BR, IF EQUAL (Ox)
;BUMP COUNT
; TAPE NOT AT BOT AFTER REWIND

;LOOP IF SELECTED
0256. ,R3

;RECORD SIZE

FREE, T24R8B

TRAP
. WORD
.WORD
. WORD

C $ERMRD
419
124807
EXPREC

TRAP

CsCLP}

;STARTING WRITE BUFFER ADDRESS

1888804640008 888888883880800008808808088888000008880080088080808080809

2142

2143

;WRITE

;

2144
2145

DATA,ACK,SWB,CvC=1

COMMAND

;8984000808888 008088808800000808008848008000008000480808000008008080¢8

2146
2147
2148
2149
2150

036116
036124
036130
036130
2151 036132
2152 036136
2153 036142

2154 036146

2155
2156
2157
2158
2159
2163

(XxST0)

036152
036156
036162
036164
036166
036172
036172
036174

036176
036200

2164 036202
036202
2165 036204
2166 036206

2167 036212

2168 036214
036214
2169 036216
2170

012737
012704

150005
044170

010300
004737
010337
010465

017512
044176
000000

004737

016501
012702
020102
001406
005237

044170
654

016340

002212

104456
000644

104406
005723
022703

001346
104406

#150005, T24PK3
0T24PK3 R4

;WRITE DATA,ACK,SWB,CvC=1 COMMAND
sSET UP R4 WITH PACKET ADDRESS

MOV
JSR
MOV
MOV

R3,RO
PC.FILLMEM
R3,T24S2
R4, TSDB(®"*

;SET PATTERN IN CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE
1SET UP RECORD SIZE IN PACKET
1 ISSUE COMMAND

MOV
MOV
cMp
BEQ
INC
ERRHRD

TSSR(RS),R1
#SSR ,R2
R1,R2
754
FATFLG
ERRNO,WRTERR,PKTSSR

sGET TSSR CONTENTS
;SET UP EXPECTED
sARE THEY EQUAL
;BR, IF 0K
;8UMP COUNT
; TSSR INCORRECT AFTER WRITE DATA
TRAP
CS$ERMHRD
. WORD
420

JSR

000002
000200

005111
012136

MOV
MOV

75%:

CKLOOP

TS7
cHP

000414

80¢:
1204
:

PC,.HWAITF

BNE

CKLOOP

sWAIT FOR SSR Y0 SET

;LOOP

(R3).
0268, ,R3

654

IF SELECTED

;8UMP RECORD SIZE
;END O+ RECORD YET

;BR,

. WOROD
.WORD

WRTERR
PKTSSR

TRAP

CsCLP1

IF MORE RECORDS TO WRITE

sLOOP IF SELECTED

TRAP

2171

;8808008808 8888000000080080000800880880800008008080008000808408000000

2172

CsCLP]

TSV?
TEST

HARDWARE TESTS 1-8
MACRO M1113 14 JUUN 84 14:17
4: BASIC READ DATA (FORWARD AND REVERSE)

SEQ Olap

2173

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

gi75

;0RAA000000000400000400880800000008000000000000000808480480000880604

2176

2177 036216
2178 036222
2179 036224
2180 036226

004737
103407
010001
005237

2184 036232
036232
036234
036236
036240

104456
000645
045326
015564

036242

104406

2185 036242

011104

JSR
8CS
MOV
INC

002212

ERRHRD

130%:

2186

PC ,REWIND
130¢
RO,R1
FATFLG

ERRNQ, T24RWN ,EXPREC

CxLOOP

;CALL TAPE REWIND COMMAND
;BR, IF NO PROBLEM
s SAVE TSSR
;BUMP COUNT
sREWIND NOT

ACCEPTED

;LOOP IF SELECTED

TRAP
. WORD
.WORD
.WORD

CSERHRD
421
T24RWN
EXPREC

TRAP

CsCLP1

2187

180008808 088808888000080000040000080080080000000040080084880888¢08808000¢

2188

2190

2189

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XST0)

2191

;8080800800080 880040008000008800482880480008080480880880888880808808

2192

2193 036244

2194
2195
2196
2197
2198

036250
036252
036256
036260
036262

2202 036266
036266
036270
036272
036274
2203 036276
036276
2204 036300
gggz 036304

0137C1

010102
052702
020102
001406
005237

044070

MOV

MOV
8IS
ce
BEQ
INC

000002
002212

ERRHRD

104456
000646
045043
015564
104406
012703
013737

140¢:
000400
003114

2207

;PICK UP XSTO

ERRNO, T2480T ,FXPREC

;sTAPE NOT AT BOT

CKLOOP
MOV
MUV

044172

T248BFR+6 ,R1

R1,R2
#8IT1,R2
R1,R2
140¢
FATFLG

;SET UP EXPECTED
;SET B80T BIT IN EXPECTED
;00ES EXP = REC'D
;BR, IF EQUAL (Ox)
;BUMP COUNT

;LOOP IF
#256. ,R3
FREE,T24RB

SELECTED

AFTER REWIND
TRAP
.WORD
. WORD
.WORD

TRAP
;RECORD SIZE
;STARTING READ BUFFER ADDRESS

CS$ERHRD
422
124807
EXPREC
CsCLP)

;8088400008008 845808000808008800008088008480880000880008880800000808808

2208

;

gg?g

;:READ DATA,IE,ACK,SW8 COMMAND

2211

;060608080600 88080000880000888080800048808400008008008800040040080080880008

2212

2213 036312

012737

110001

2214 036320

012704

044170

2216
2217
2218
2219
2220
2221
2222
2226

010465
004737
016501
012702
020102
001406
005237

000000
016340
000002
000200

2215 036324

036330
036334
036340
036344
036350
036352
036354
036360
036360
036362

010337

104456
000647

044176

002212

044170

1654

MOV

#110001, T124PK3

sREAD DATA,I1E ,ACK,SWB COMMAND

MOV

R3,T24S52

;SET UP RECORD SIZE IN PACKET

MOV
MOV
JSR
MOV
MOV
cHp
BEQ
INC
ERRHRD

#T24PK3 R4

R4, TSOB(RS)
PC.WAITF
TSSR(RS) ,R1
OSSR, R2
R1,R2
1704
FATFLG
ERRNO,RDERR,PKTSSR

:SET UP R4 WITH PACKET ADDRESS
: ISSUE COMMAND
;WAIT FOR SSR TO SETY
;GET TSSR CONTENTS
;SET UP EXPECTED
;ARE THEY EQUAL
;BR, IF OK
;BUMP COUNT
;1 TSSR INCORRECT AFTER READ DATA
TRAP
CS$ERHRD
.WORD
123

TSv?

TEST

HARDWARE TESTS 1-8

MACRO M1113

14 UUN 84 14:17

th 1

SEQ 0143

&: BASIC READ DATA (FORWARD AND REVERSE)
036364
036366

005204
012136

036370

104406

2227 036370

2228 036372
2229 036376

013702
010304

2231 036404
2232 036406

060204
021403

2234
2235
2236
2240

011401
010302
005237

2230 036400
2233 036410
036412
036414
036416
036422

162704

104456
000650
045110
015564

036432

104406

2242 036434

005724

2244
2245
2246
2247
2248

020403
001360
005723
022703
001322

2243 036436

036440
036442
036444
036446
036452

2249 036454
036454

2250 036456

036456
036456
2251 036460

2252 030466
2253 036470

2254 036474
2255
2256
2257
2258
2259
2260
2261
2262
2263
2264
2265
2266
2267
2268 036474
036474
036474
2269 036476
2270 036502

22;1 073506
2272
2273

003114

000400

173%:

001410

036422
036424
036426
036430

2241 036432

1708.

002212

180¢:

190 :

103402
004737

SELECTED

TRAP

CsCLP]

;GET BUFFER ADDRESS
; CURRENT RECORD SIZt

ADD
ce

R2,R4
(R4),R3

:GET LOCATION IN BUFFER (ADDRESS)
;CHECK DATA READ (n3sDATA ALSO)

MOV
MOV
INC
ERRHRD

(R4),R)
R3,R2
FATFLG
ERRNO,T24DTA,EXPREC

suB

0256, R4
180

CKLOOP
1ST

104406

FREE ,R2
R3,Ra

SuB

000412

;LOOP

RDERR
PKTSSR

MOV
MOV

BEQG

160204

104403
023727

CKLOOP

. WORD
.WORD

CHp
BNE
TST
cHe
BNE

CKLOOP

;FIRST LOCATION IN BUFFER
;BR, IF ALL IS WELL

;RECD DATA
sEXPECTED DATA
;BUMP COUNT
;DATA READ NOT = WRITTEN

;LOOP IF SELECTED

TRAP
. WORD
.WORD
.WORD

CS$ERHRD
424
T24DTA
EXPREC

TRAP

CsCLP1

(R4).

;BUMP TO NEXT LOCATION

R4 ,R3
173
(R3).
#266. ,R3
165

;END OF RE_ORD YET
;BR, IF NOT AT END OF RECORD
;BUMP RECORD SIZE
;END OF RECORD YET
;BR, IF MORE ReCORDS TO WRITE

R2,.R4

ENDOSUB

;SET SIZE TC CORRECY

;LOOP

VALUE

SELECTED

:22>3>>>2>3>>
> END

TRAP

SUBTEST

L10055:

002212

017272

000017

cvp

999:

B8LO
JSR

FATFLG, #15.

9994
PC.,CKDROP

CsCLP1

>.5353>33>>5>>>

TRAP
;1S ERROR COUNT AT 25

CsESUB

;BR, IF LESS THAN 25
;TRY TO DROP THE UNIT

e
:
;TEST 4, SUBTEST 4
;
;VERIFIES THAT A READ FORWAR(: COMMAND READING A RECORD
;LONGER THAN THE SPECIFIED BYTE COUNT CAUSES THPE
;STATUS ALERT TERMINATION WITH THE RECORD LENGTH LONG
;(RLL) BIT SET.
:
:
:
BGNSUB
104402
004737
004737

004737

046664
046530

046622

JSR
JSR

JSR

PC.T24RT3
PC,T24REST

PC,T24RT?

$2>>3533,5>>> BEGIN SUBTEST 33533333 55>)>
T4 .4:
TRAP
csBsSuB
;SET UP OTHER COMMAND PACKET
;SET COMMAND PACKET

;SET UP OTHER COMMAND PACKET

;0858860824043 50804800880888858888888488438880280080400828%0080034s00s

TSV?
TEST

HARDWARE

TEST'S

MACRO M1113

14 JUN B84

4: BASIC READ DATA (+ORWARD AND REVERSE®

2274
2275
2276

14:)7

bic
SEQ N14a

s ISSUE CONTROLLER

"SOF T~ INITIALIZE

CARRY BIT CLFAR IF ERROR

227?

2278
2279
2280
2261
2285
2286

036512
036516
036520
036524
036526
036526
036530
036532
036534
2287 036536
2288 036536
2289 036544

004737
103407
005237
010001

0022172

104455

013737
012704

036556
2303 036562
2304 036564
036564
036566
036570
036572
2305 036574
036574
2306
2307
2308
2309
2310
2311
2312
2313

2314
231S
2316
2320

2321
2322
2323
2324
2325

PC.SOF INIT
208
FATFLG
RO,R]1
ERRNO , SF IERR, SF IMSG

3100 INITIALIZE ON CONTROLLER
1BR IF INIT WAS Ox
18U COUNT
sCONTENTS OF TSSR REGISTER
tFATAL ERROR TSSR WAS 'O; O
RAP

CSERDF

.WORD
. WORD

SF 1ERR
SF IMSG

. WORD

000651
003650
012124

002172

044060

208:

044040

2291
2292
2293
2294

2295
2296
2297 036550
2298 036554

JSR
8Cs
INC
MOV
ERRDF

016064

MOV
MOV

UNITN, T24DSW
OT24PACKET R4

1SET DRIVE NUMBER IN PACKET
s SUBROUTINE NEEDS PACKET ADORESS

10060000000000000000000000800000000800800000006000000008600800880080¢

;WITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
:oooooo.ooooooooooooooooooooooooooooooooooooooooooooooooooooo.ooo.o
004737
103407
005237

010752

JSR

PC.WRTCHR

INC
MOV

FATFLG
RO,R1

8Cs

002212

010001

ERRHMRD

104456
000652
005054

012124

244 :

104406

;sISSUE WRITE CHARACTERISTICS

241

18R,

ERRNO,WRTMSG,
SF IMSG

sWRITE CHARACTERISTISC F:gL”ED

CxL 00P

IF COMMAND ISSUED Ox

18UMP COUNTY
;1SAVE CONTENTS OF TSSR

;LOOP IF SELECTED

CIERRD

. WORD
. WORD
. WORD

426

TRAP

CsCLpPl

WRTMSG

SF INSG

100300008000 000000000800008000000000000000000000000000800000000000vs

1 ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

1000000000000 00000000000000080000000000800000008008080000808000000000

Go4737

103407
010001
005237

104456
000653
045326
012136
104406

JSR
8Cs
MOV
INC

011104

002212

ERRHRD

30s:

CxLOOP

PC.,REWIND
30¢
RO,R1
FATFLG

ERRNO, T24RWN,PHTSSR

sCALL TAPE REWIND COMMANC
1BR, IF NO PROBLEM
1 SAVE TSSR
18UMP COUNT
+REWIND NOT

ACCEPTED

1LOOP IF SELECTED

TRAP

427
T24RWN
PKTSSR

TRAP

CsCLP)

1008688000000 000800400800088008800008000000808000000000682008000002000000

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

CSERMRD

. WORD
.WORD
.WORD

TSV?

TEST

HARDWARE TESTS | 8

MACRD M1113

14 UUN 84 14:17

Cie
SEQ N14%

4&: BASIC READ DATA (FORWARD AND RFVERSE
:

3¢
282
2328

1000008000000 0000000000000006000000000000080000008000000000000000000

2329 036624
2330 036630
2331 036632
2332 036636

2333 036640
2334 036642
2338 036646
036650
036652
036654
2339 036656
036656
2340 036660
2341 036664
2342
2343
2344
2345

013701
010102
052702
020102
001406
005237

044070

000002

013737

2349
2350
2351
2352
2353
2354
2335
2356
2357
2358
2359
2363

036672
036700
036704
036704
036710
036714

036720
036724
036730
036732

036734
036740

2365 036752

404

ERRNO, T2480T,EXPREC

CxLOOP

1SET B8OT BIT IN EXPECTED
1DOES EXP » REC'D
18R, IF EQUAL (Ox)
18UMP COUNT

s TAPE NOT

AT BOT

AFVER RENWIND

:LOOP IF SELECTED

#512.,R3
FREE, T24R8

sRECORD SIZE

TRAP
.MORD
.WORO
.WORD

CSERMRO
428
124807
EXPREC

TRAP

CsCLP1

sSTARTING WRITE BUFFER ADORESS

1000806800000 00000808000000080000008000080000000860000080008000080000000

{WRITE DATA,ACK,CVC=1 COMMAND
:
012737
012704

140005
044170

010337
010465
004737
016501
012702
020102
001406
005237

044176
000000
016340
900002
000200

044170
65%.

104456
000655
005111
012136

#140005, T24PK3
0T24PK3 R4

tWR1TE DATA,ACK,CVC=1 COMMAND

MOV
MOV
JSR
MOV
MOV

R3,124S2
R4, TSDB(RS)
PC,MAITF
TSSR(RS),R1
OSSR ,R2

;SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
sWAIT FOR SSR 10O SET

8EQ
INC

754
FATFLG

ERRMRD

754
:

104406

MOV
MOV

002212

R1,.R2

ERRNO,WRTERR,PKTSSR

CxLOoP

$1SET UP R4 WITH PACKET ADORESS

3sGET TSSR CONTENTS

;SET UP EXPECTED
;ARE THEY EQUAL
1BR, IF Ox
;1BUMP COUNT
:TSSR INCORRECT AFTER WRITE DATA

1LOOP IF SELECTED

1208 :

2367

2373
2374
2375
2376
2380

FATFLG

#8IT1,.R2

sPICK UP xSTO
1SET UP EXPECTED

1008808080000 000008002800800000808450008080008000080000000080000000000°

036740
036742
036744
036746
2364 036750
036750

2368
2369
2370
2371
2372

INC

MOV
MOV

044172

2346

2347
2348

R1,R2

ERRHRD

40¢:
003114

cHpP
BEQ

00221¢

001000

T24BFR.6,R}
R1,R2

8IS

104456
000654
045043
015564
104406
012703

MOV
MOV

TRAP
.WORD
.WORD
.WMORD

CSERMRD
429
WRTERR
PXTSSR

TRAP

CsCLP}

1800800608000 0000060080800080000000000000004800000680000000800008000002

1 ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

$0000000080000000000000080000200000000080800080080000848000000000000000

036752
036756
036760
036762
036766
036766

004737
103407
010001
005237
104456

011104
002212

JSR

PC,REWIND

MOV
INC

RO,R1
FATFLG

8Cs

ERRHRD

130¢

1CALL TAPE REWIND COMMAND
18R, IF NO PROBLEM

ERRNO, T24RWN,PKTSSR

tREWIND NOT ACCEPTED

1SAVE TSSR

18UMP COUNT

TRAP

CSERMRC

TSv?
TEST

MACRO M1113
14
HARDMWARE TESTS 1 8
4&: BASIC READ DATA (FORWARD AND REVERSF

045326
012136

036776

104400

130%;

CxiLooP

iLOOP IF

T2ARWN
PKTSSRP

SELECTED
TRAP

CsCLpPt

100000600000 00000045804080000400000000030008000008000080080088008080000s

;REAO MESSAGE BUFFER FXTENDED STATUS REGISTER ZERO (XS'C)

2385
2386
2387

1080000000048 009000000088¢080800000800¢0000098008800804808000000008080¢

2389
2390
2391
2392
2393
2394
2398

037000
037004
037006
037012
037014
037016
037022
037022
037024
037026
037030
037032
2399
037032
2400 037034
2401 037040
2402
2403
2404
2405

013701
010102

052702
020102
001406
005237

044070
000002

000657
045043
015564

1404 :
000400
003114

T24BFR+6,R1
R1,R2
#BIT1,R2
R1,R2
1404

sPICK UP XSTO
$1SET UP EXPECTED
:SET BOT BIT1 IN EXPECTED
;D0ES EXP = REC'D
18R, IF EQUAL (0x)

ERRMRD

ERRNO, T2480T7,EXPREC

; TAPE NOT AT BOT AFTER R$;£§D

INC

002212

104456

104406
012703
013737

MOV
MOV
8IS
cHe
8tQ

CxLOOP
MOV
MOV

044172

FATFLG

18UMP COUNT

;LOOP IF SELECTED
#256. ,R3

FREE, T24R8

. WORD
. WORD
. WORD
AP

sRECORD SIZE

CS$ERMRD

431
724807

EXPREC
CsCLPl

tSTARTING READ BUFFER ADDRESS

1000804008008 0080088806088043080002080008000088008080208¢8800000804

READ DATA,ACK,CVC=1 COMMAND
4

180000080000 80804028000500000808080880000080809¢0890800¢850008000800200808v8¢

037046
037054
037060
037064

2413 037070
2414 037074
2415 037100
2416 037104
2417 037106
2418 037110
2422 037114
037114
037116
037120
037122
2423 037124
2424
2425
2426
2427
2428
2429

S¢Q N144

419

2382
2383
2384

2406
2407
2408
2409
2410
2411
2412

14:1°

00065¢

036770
036772
036774

2381 03¢77¢

JUN A4

037124

012737
012704
010337
010465
004737
016501
012702
020102
001406
005237

104456
000660
046374
012136
104406

14000
044170
044176

044170

165¢:

MOV
MOV
MOV

#140001, T24PK3
#T24PK3 R4
R3, 12452

;READ OATA,ACK,CVC=1 COMMAND
1SET UP R4 WITH PACKET ADORESS
1SET UP RECORD SIZE IN PACKET

JSR
MOV

PC,WAITF
TSSR(RS),R1

tWAIT FOR SSR TO SET
$GET TSSR CONTENTS

MOV

016340
000002

MOV

100204

1704

1SET UP EXPECTED

FATFLG

18UMP COUNT

R1,R2
1704

ERRHRD

ERRNO, T24TRL ,PKTSSR

CKLOOP

s ISSUE COMMAND

O#SSR!SC!BIT2,.R2

crp
8EQ

INC

002212

R4, TSDB(RS)

1ARE THEY EQUAL
1BR, IF OK

1 TSSR INCORRECT AFTER RE?gAgATA

:LOOP IF SELECTED

CS$ERHRD

. WORD
. WORD
. WORD

432
T2ATRL
PKTSSR

TRAP

CsCLP1

1906805608008 008080088000080808088000800000000880008000020808808000000402

{READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERQO (XSTO)
1800008060803 004880000000080400800000000808800000008000000085080000008000

TSV?
TEST

14
MACRO M1113
HARDWARE TESTS 18
4 : BASIC READ DATA (FORWARD AND REVERSF

2430
2431
2432
2433
2434
2435
2436
2440

2441
2442

2443
2445
2446
2447

037126
037132
037134
037140
037142
037144
037150
037150
037152
037154
037156
037160
037160
037160
037160
037162
037170
037172
037176

013701
010102
052702
020102
001406
005237

044070

010000

R1,R2
MBIT12,R2

ERRHRD

1804
:

002212

017272

tGET MESSAGE B'FFER
1SET UP EXPECTED

$;SET THE RLL BIT

IN EXPECTED

R1,R2

sARE

FATFLG

1BR, IF EQUAL (ALL IS WeELL)
1BUMP COUNT

1804

ERRNO, T24LON,EXPREC

;THE

THEY

RLL

EQUAL

BIT

WAS5

NOT

SET

999¢
.

CSERHRL

.WORD
.WORD
.WORD
ENDSUB

000017

XSTO

8LO
JSR

:>235>35353>>

END

SUBTEST

£ 10056
:
FATFLG,015.

>35535353555>

TRAP

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

9994

;TRY

PC.CKDROP

TO DROP

THE

4133
T24LON
EXPREC

CsESUB

'NI7

:TEST 4, SUBTEST S
;

;:VERIFIES THAT A READ FORWARD COMMAND READING A RECORD
;SHORTER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE
sSTATUS ALERT TERMINATION WITH THE RECORD LENGTH SHORT
s(RLS) BITS SET. IT IS VERIFIED THAT THE RESIDUAL BYTE
sCOUNT (RBPCR) IN THE MESSAGE BUFFER CONTAINS THE
:PROPER NONZERO VALUE (E.G. THE OIFFERENCE BETWEEN
:THE ORIGINAL BYTE COUNT AND THE ACTUAL RECORD
sLENGTH).

2452
2453
2454
2455
2456

2457
2458

2459

2478 037222
2482 037226
2483 037230
037230

MOV
MCvV
8IS

SEQ 0147

TRAP

2448
2449
2450
2451

2460
2461
2462
2463
2464
2465 037176
037176
037176
2466 037200
2467 037204
037210
2469
2470
2471
2472
2473
2474
2475
2476 037214
2477 037220

14:17

8EQ

104456
000661
046142
015564

104403
023727
103402
004737

JUUN 84

Ccre

002212

BGNSUB
104402
004737

004737
004737

046664
046530
046622

JSR
JSR
JSR

$22>>>>55>>>>

BEGIN

SUBTEST

74.5:
PC,T24RT3
PC, T24REST
PC.T24RT2

TRAP

1SET UP OTHER COMMAND PACKET

>>>>>3>5>3>>>>

csssus

$1SET COMMAND PACKET
tSET UP OTHER COMMAND PACKET

1008888080808 0080048848080883880238380888¢80828000008084800800880808880002¢

: ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR
1088808808828 0484080080808884808008880440808045088800808400008480¢80008283

004737
103407
005237
010001

104455

016064

002212

JSR
8CS
INC
MOV

ERRDF

PC,SOF INIT

204

FATFLG
RO,R1

ERRNO, SFIERR, SFIMSG

100 INITIALIZE ON CONTROLLER
1BR IF INIT WAS OK
1BUMP COUNT
1CONTENTS OF TSSR REGISTER
tFATAL

ERROR

TSSR

WAS NOT OK
TRAP

C$ERDF

TSv?
TEST

MACRO M1113
14 JUN 84
HARDWARE TESTS 1-8
REVERSE)
AND
(FORWARD
DATA
READ
BASIC

14:17

SEQ 0148

037232
037234
037236
2484 037240
2485 037240
2486 037246
2487
2488
2489
2490
2491
2492
2493
2494 037252
2495 037256
2496 037260
2500 037264
2501 037266

012124

013737
012704

002172

044060

208:

044040

MOV
MOV

UNITN, T24DSW
R4
OT24PACKET

1SET DRIVE NUMBER IN PACKET
1 SUBROUTINE NEEDS PACKET ADDRESS

{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
¢

1000006080080 888888308080800090000808400800884808084000000080808000800¢

004737
103407
005237
010001
104456
000663
005054
012124

037300
037304
037306
037310
037314
037314
037316
037320
037322
037324
037324
037326
037332

004737
103407
010001
005237

JSR
8Cs
INC

010752
002212

MOV

ERRHRD

10440¢

PC,WRTCHR

244

FATELG
RO, .

ERRNY, WRTMSG, SF TMSG

s JSSUE WRITE CHARACTERISTICS
;BR, IF COMMAND [SSUED Ox

;1BUMP COUNT
; SAVE CONTENTS OF TSSR
;sWRITE CHARACTERISTISC FAILED

:LOOP IF SELECTED

CKLOOP

TRAP
.WORD
.WORD
.WORD

CSERMRD
435
WRTMSG
SFIMSG

TRAP

CsCLP)

100088888888 04088080408008820 8200883082888 0800000¢80084008088000000000

: ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
(0080800828808 80888888880¢0408808088880088004008038048088080000008000

JSR
8Cs
MOV
INC
ERRHRD

011104

002212

104456
000664
045326
012136

104406

012703
013737

30%:
000400
003114

ERRNO, T24RWN,PKTSSR

;CALL TAPE REWIND COMMAND
;BR, IF NO PROBLEM
;sSAVE TSSR
;BUMP COUNT
sREWIND NOT

ACCEPTED

1LOOP IF SELECTED

CKLOOP

MOV
MOV

044172

PC,REWIND
304
RO,.R1
FATFLG

9256. ,R3

FREE, T24R8B

TRAP

436
T24RWN
PKTSSR

TRAP

CsCLP1

sRECORD SIZE
tSTARTING WRITE BUFFER ADDRESS

{WRITE DATA,ACK,CVC=1 COMMAND
(0808886886048 488888888804380804888488800408082808300420005000000000

012737
012704

140005
044170

010337
010465
004737

044176
016340

044170

634%:

MOV
MOV

€140005, T24PK3
0724PK3,R4

iWRITE DATA,ACK,CVC=1 COMMAND
1SET UP R4 WITH PACKET ADORESS

MOV
MOV
JSR

R3,72452
R4, TSDB(RS)
PC.WAITF

1SET UP RECORD SIZE IN PACKET

ISSUE COMMAND

tWAIT FOR SSR

TO SET

CS$ERMRD

.WORD
. WORD
. WORD

(9008886868888 888888888888883888880488880484880008008800088008800040003

037340
037346
037352
037352
037356
037362

434
SFIERR
SFIMSG

188808088880 00004882800000088300808008350480488800000800080084400008008000¢

037266
037270
037272
037274
2502 037276
037276
2503
2504
2505
2506
2507
2508

2509
2510
2511
2512
2513
2517

.WORD
.WORD
.WORD

000662
003650

TSV?
TEST

MACRO M1113 14 UUN-84 14:17
MARDWARE TESTS 1-8
AND REVERSE)
(FORWARD
DATA
READ
&: BASIZ

2534 037366

016501

2535 037372
2536 037376

012702
020102

2538 037402

005237

2537 037400
2542 037406
037406

001406

MOV

000200

000665
00S111
012136

037416
2544 037420

104406

2546
2547
2548
2549
2550

FATFLG

754

ERRNO,WRTERR,PKTSSR

CXLOOP

sGET TSSR CONTENTS

sSET UP EXFECTED
;ARE THEY EQUAL
18R, IF Ok

sBUMP COUNT

1 TSSR INCORRECT AFTER WRITE DATA
TRAP
C4ERHRD

;LOOP IF SELECTED

. WORD
. WORD
. WORD

437
WRTERR
PKTSSR

TRAP

CsCLP1

T
I
T
nnnmm
:
s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
H
100000000040 000008000000000000000000000480800080000460000008080880888404

2551

2552 037420
2553 037424
2554 037426
2555 037430

004737
103407
010001
005237

037434

104456

2559 037434

037436

000666

037442

012136

037440

2560 037444
037444

2561 037446
g% 037452

011104

JSR
8CS
MOV
INC

002212

EPRHRD

PC . REWIND
1304
RO,R1
FATFLG

ERRNO, T24RWN,PKTSSR

sCALL TAPE REWIND COMMAND
s8R, IF NO PROBLEM
:SAVE TSSR
;BUMP COUNT
;REWIND NOT ACCEPTED

045326

104406

012703
013737

TRAP

130¢:
001000
003114

CxLOOP
MOV
MOV

044172

;LOOP IF SELFCTED
9512. ,R3
FREE, T24RB

C$ERRD

. WORD

438

. WORD

PKTSSR

TRAP

CsCLP1

. WORD

;RECORD SIZE
sSTARTING READ BUFFER ADDRESS

T24RWN

1688488088050 848084080888¢080088880800008002808880888888¢4480088000020080

2565
gssgg

2570
2.1
257C
2573

INC

SEQ 0149

120¢:

2545

2568
2569

OSSR, R?2
R1,.R2

ERRHRD

754 :

TSSR(RS),R1

MOV
cHe

BEQ

002212

104456

037410
037412
037414

2543 037416

000002

Gle

;
:READ DATA,ACK,CVC=1 COMMAND
:

1088080888508 800880800840888008808800830008¢0088808080808880808480004¢840

037460
037466
037472
037476

012737
012704
010337
010465

140001
044179

2575 037506
2576 037512

016501
012702

000002
100204

2574 037502

2577 037516
2578 03752C

2579 037522

2583 037526
037526

037530

037532
037534

2584 037536
037536

004737

020102
001406

005237

044176
000000

044170

165%:

016340

MOV
MOV
MOV
MOV

104406

R1,.R2

INC

FATFLG

ERRHRD

170%:

$tGET FSSR CONTENTS
;SET UP EXPECTED

cHp

000667
046374
015564

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

PC.WAITF

BEQ

104456

sREAD DATA,ACK,CVC=1 COMMAND
$1SET UP R4 WITH PACKET ADDRESS
$SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND

JSR

MOV
MOV

002212

#140001, T24PK3
0T24PK3 R4
R3, 12452
R4, TSDB(RS)

CKLOOP

1704

ERRNO, T24TRL ,EXPREC

tWAIT FOR SSR TO SET

;ARE THEY EQUAL
:BR,

IF OK

;BUMP COUNT

; TSSR INCORRECT

AFTER READ DATA
TRAP
CS$ERHRD

;LOOP IF SELECTED

. WORD

439

TRAP

cscLP1

. WORD
. WORD

T24TRL
EXPREC

HT¢
TSV7?

TEST

- HARDWARE TESTS 18

MACRO M1113

14-UUN-84

4: BASIC READ DATA (FCRWARD AND REVERSE)

2585
2586
2587
2588
2589
2590
2591
2592
2593
2594
2595
2596
2597
2601

2602
2603

2605
2611

2612

2613

14:17

S€EQ 0150

1608800420004 0880008080088840¢4800000008080008008¢00000040040800000400¢

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERG (XSTO)
1060080000004 006080000000808088008088084¢880008008082000000008008000¢00

037540
037544
C37546
037552
037554
037556
037562
037562
037564
037566
037570
037572
037572
037576
037602
037604
037606
037612
037612
037614
037616
037620
037622
037622
037624
037624
037624
037626
037634
037636
037642

2614
261S
2616
2617
2618
2619
2620
2621
2622
2623
2624
2625
2626
2627
2628
2629
2630
2631
2632
2633
2634
2635
2636 037642

013701

044070

052702
020102
001406
005237

040000

010102

MOV
MOV
8IS
cHe
8EQ
INC
ERRHRD

002212

104456
000670

046224
015564

013701
012702
020102
001406
005237

1804

044066
000400

002212

000671
046306
015564

1904 :

104406

104403

023727
103402
004737

002212

017272

000017

9994:

1GET MESSAGE BUFFER
sSET UP EXPECTED
;SET THE RLS BIT IN EXPECTED

#8IT14,R2
R1,.R2
180¢

;ARE

ERRNO, T24LOP ,EXPREC

:THE RLL BIT WAS NOT SET IN XSTO

FATFLG

THEY EQUAL

:BR, IF EQUAL (ALL IS WELL)
181MP COUNT

TRAP
.WORD
.=O0RD

.WORD

MOV
MOV
cre
8tQ

ERRHRD

104456

T24BFR+6,R1

R1,R2

T24BFR.4,R1
0256. ,R2
R1,R2
190¢

FATFLG

ERRNO, 124P8P ,EXPREC

;PICK UP RESIDUAL BYTE COUNTER
: THIS SHOUWLD BE THE DIFFERENCE
+IS THE DIFFERENCE CORRECT
:BR, IF CORRECT
;:BUMP COUNT
:+RBPCR NOT CORRECT

CKLOOP

;LOOP IF SELECTED

ENDSUB

$233>>>>33>>>

cHpP
8LO
JSR

END

FATFLG, 015.

9994

PC,CKDROP

TRAP

CSERHRD

.WORD
.WORD
.WORD

44]
T24P8P
EXPREC

TRAP

CsCLP1

TRAP

CS$ESULB

SUBTEST

L10057:

55333333 >3>>

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

DROP

THE

CSERMRD
440
T24LOP
EXPREC

UNIT

:TEST 4, SUBTEST 6
:

;sVERIFIES THAT READ REVERSE COMMANDS WITH SWB=0
sOPERATES PROPERLY. THE TAPE IS FIRST REWOUND AND THEN
sWRITTEN WITH A SERIES OF TEST RECORDS VARING IN
sLENGTH AND DATA CONTENT., THE TAPE IS THEN READ IN REVERSE
s SEQUENTIALLY AND THE RESWLTS
s (STATUS, DATA, ETC.) VERIFIED. THE BYTE COUNT ON
;EACH READ REVERSE COMMAND IS SET TO THE LENGTH OF THE
;EXPECTED RECORD, SO NO EXCEPTIONAL CONDITIONS SHOW
D
;OCCUR.

BGNSUB

$2>>>335533>>

BEGIN

SUBTEST

»>>33>3>333>>

TSv?

TEST

HARDWARE

TESTS

MACRO M1113
|

14 JUN 84

14:17

&: BASIC READ DATA (FORWARD AND REVERSE)

037642
037642
2637 037644
2638 037650
2639 037654
2640
2641
2642
2643
2644

14.6:

104402
004737
004737
004737

JSR

046664

JSR

046530
046622

2647
2648
2649
2653
2654

037660
037664
037666
037672
037674
037674
037676
037700
037702
2655 037704
2656 037704
2657 037712
2658
2659

1008000 ES RS0 000

TRAP
$SET UP OTHER COMMAND PACKET

PC.T24RT?2

;SET UP OTHER COMMAND PACKET

csssuB

;SET COMMAND PACKET

ERERLEER A4 RASSSEERLRRRSRR0E000RES00000ASES08008000

;ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR
1060008024348 858088800088088088
8080480003588 54828088404048800¢80240¢8

004737
103407
005237
010001

JSR
8CS
INC

016064

002212

MOV

EPRDF

104455
000672
003650
012124
013737
012704

PC,SOF INIT
208
FATFLG
RO,R1

ERRNO,SFIERR, SFIMSG

;00 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
;8UMP COUNT
;CONTENTS OF

TSSR REGISTER

;FATAL ERROR TSSR WAS NOT 0w

TRAP

. WORD
. WORD
. WORD
20
:

002172
044040

044060

MOV
MOV

UNITN, T240SW
R4
ST24PACKET

CSERDF

442

SFIERR
SF IMSG

:SET DRIVE NUMBER IN PACKETY

: SUBROUTINE NEEDS PAC-ET ADORESS

1008880888848 008688808080888080083
2800828058800 808¢02000088208003

WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

2661
2662

2663

1008880888888 08880800080580020020038288808050824888008048408080088800228

2664
2665 037716
037722
2667 037724
2671 0%7730
2672 037732
037732
037734
037736
037740
2673 037742
037742

2674
2675

004737
103407
005237
010001

JSR

010752

8CS
INC
MOV
ERRHRD

002212

104456
000673
005054

012124

244

104406

PC,.WRTCHR

244
FATFLG
RO,R1
ERRNO,WRTMSG, SFIMSG

CxLOOP

; ISSUE WRITE CHARACTERISTICS

:BR, IF COMMAND ISSUED O
;8UMP COUNT
:SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC r¢£k§o

:LOOP IF SELECTED

CS$ERHRD

.WORD
. WORD
. WORD

443

TRAP

CsCLP1

WRTMSG
SFIMSG

;806888665888 88848080088808880088000888800080080880880008¢0040002802400

2676

2677
2678
2679
2680
2681
2682
2683
2684
2688

PC,T24RT3

PC,T24REST

JSR

2645

2646

SEQ 0151

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
1608886830048 84843800088880808880088080888088000888848000080008008042

037744
037750
037752
037754
037760
037760
037762
037764

004737

103407
010001
005237

104456

000674
045326

011104

002212

JSR
8CS
MOV
INC
ERRHRD

PC,REWIND
30¢
RO,R1
FATFLG
ERRNO, T24RWN,PKTSSR

;CALL TAPE REWIND COMMANO
:BR, IF NO PROBLEM
: SAVE TSSR
;BUMP COUNT
;REWIND NOT ACCEPTED
IRAP
.WORD
.WORD

CS$ERHRD

444
T24RWN

J1e

MACRO M1113 14 JUUN-84 14:17
TSV7? - HARDWARE TESTS 1 8
TEST &: BASIC READ DATA (FORWARD AND REVERSE)
037766
2689 037770

012136

2690 037772
2691 037776

012703
013737

037770

3293

104406

30%:

000400
003114

044172

2695

#256. ,R3
FREE, T24RB

(0000040000000 00000000000R0R00 el
{WRITE

5697

DATA,ACK,CVC=1

.WORD

PKTSSR

TRAP

CeCLPl

sRECORD SIZt
;STARTING WRITE BUFFER ADDRESS

tttttttdtttttttttntuciisntss

COMMAND

(00000000 AR000REAEERERREREARRRRRRRA00ARER0lttttttsttttdttdbtstnsse

2698

2699 040004
2700 040012
2701 040016

012737
012704

2703 040020
2704 040024
2705 040030
2706 040034
2707 040040
2708 040044

004737
010337
010465
004737
016501
012702

2702 040016

2709
2710
2711
2715

040050
040052
040054
040060
040060
040062
040064
040066
2716 040070

2721
gzg%

;LOOP IF SELECTED

696

2717
2718
2719
2720

CKLOOP

MOV
MOV

2694

SEQ 01S¢

040070
040072
040074
040100
040102
040102
040104
040106

010300

020102
001406
005237

140005
044170

044170
654:

017512
044176
000000
016340
000002
000200

104406
005743
013737

002212

;WRITE DATA,ACK,CVC=1 COMMAND
;SET UP R4 WITH PACKET ADDRESS

MOV

R3,.RO

;SET PATTERN IN CORRECT REGISTER

oy o
BEQ
INC
ERRHRD

R1,R2
754
FATFLG
ERRNO,WFTERR,PKTSSR

;ARE THEY EQUAL
;BR, IF 0K
;BUMP COUNT
;:TSSR INCORRECT AFTER WRITE DATA
TRAP
CS$ERHRD
.WORD
445
.WORD
WRTERR
.HWORD
PKTSSR
;LOOP IF SELECTED

PC.FILLMEM
R3,724SZ
R4, TSDB(RS)
PC,.WAITF
TSSR(RS),R1
@SSR ,R2

75$:

CKL.00P

8G$:

TST
cHe
BNE
CKLOOP

(R3).
#268. .R3
654

T87
MOV

-(R3)
FREE, T24R8

000414

003114

2140005, T24PK3
#724PK3 R4

JSR
MOV
MOV
JSR
MOV
MOV

104456
000675
005111
012136
104406
005723
022703
001346

MOV
MOV

044172

;FILL MEMORY WITH RECORD SIZE
;SET UP RECORD SIZE IN PACKET
; ISSUE COMMAND
;WAIT FOR SSR TO SET
;GET TSSR CONTENTS
;SET UP EXPECTED

TRAP
;BUMP RECORD SIZE
;END OF RECORD YET
;BR, IF MORE RECORDS TO WRITE
;LOOP IF SELECTED
TRAP
;SET BACK T0O S512.
;:STARTING READ BUFFER ADDRESS

2724

;0000000000000 EAREEEE000E0E00A0REN0R0RAREE0E000SI00000000000000s

2725
g;gg

H
;READ REVERSE DATA,ACK COMMAND

2728
2729

(SRS AARSEEREEEE0 0408000000 424080000840080008000800880008800080000080

2730
2731
2732
2733
2734
2735
2736
2737
2738
2739

040114
040122
040126
040132
040136
040142
040146
040152
040154
040156

2743 040162

012737
012704
010337
01046S
004737
016501
012702
020102
001406
005237

100401
044170
044176
000000
016340
000002
000200
002212

044170

165%:

MOV
MOV
MOV
MOV
JSR
MOV
MOY
cMe
8EQ
INC

ERRHRD

#100401, T24PK3
4T24PK3 R4
R3,72452
R4 ,TSDB(RS)
PC,WAITF
TSSR(RS),R1
OSSR, R2
R1,R2
170¢
FATFLG

ERRNGC, T24WDC,PKTSSR

;READ REVERSE DATA,ACK COMMAND
;SET UP R4 WITH PACKET ADDRESS
;SET UP RECORD SIZE IN PACKET
; ISSUE COMMAND
;WAIT FOR SSR TO SET
+GET TSSR CONTENTS
;SET UP EXPECTED
;ARE THEY EQUAL
;BR, IF 0K
1BUMP COUNT
; TSSR INCORRECT AFTER READ DATA

CsCLP1

csCLP1

TSV?
TEST

HARDWARE

TES'S

MACRO M1113

14 JUN 84

4: BASIC READ DATA (FORWARD AND REVERSE®
040162
040164
040166

2744
2745

2746

2747
2748
2749

040170
040172
040172
040174
040200
040202
040206
040217

2750 0402 2
2751 04C214
2752 040216
2753 040220
2757 740224
040224
040226
040230
2758

2759
2760
2761
2762
2763
2764
2765
2766

2767
2768
2769
2770
2771
2772
2773

SEQ 0153

104456

TRAP

000676
045656
012136

104406
013702
010304
162704
060204
221403
001410
011401
010302
005237

. WORD
. WORD
1704:

000400

173%:

002212

104456
000677
045110
015564
104406
005724
160204
020403
001360
005743
022703
001322

180%:

MOV
SuB
ADD

cMP
8EQ
MOV
MOV
INC
ERRHRD

cMP
BNE
TST

00040C

190¢:

;LCOP IF
FREE ,R2
R3,R4

. R4
0256

R2,R4
(R4).R3

180¢
(R4),R1

R3,R2
FATFLG
ERRNO, T24DTA ,EXPREC

CKLOOP
TST

104406

104403
023727
103402
004737

CKLOOF
MOV

003114

cHP
BNE
CKLOOP

SELECTED

1BR,

IF ALL

;RECD DATA

(R4 ).

R2.R4
R4 ,R3

173
-(R3)
#256. .R3
165¢

017272

000017
9994

CHP
8LO
JSR

T24uWDC
PKTSSR

TRAP

CsCLP]

TRAP

CS$ERHRD

IS WELL

;EXPECTED DATA

;:BUMP COUNT

;DATA READ NOT

WRITTEN

. WORD
. WORD
. WORD

EXPREC

TRAP

CsCLPl

;:8UMP TO NEXT LOCATION
;:GET RID OF BASE ADDRESS

1BR, IF NOT AT END OF RECORD
18UMP RECORD SIZE

;:END OF RECORD YET

:BR, IF MORE RECORDS TO WRITE
:LOOP IF SELECTED
TRAP

$2>>>>>>>>>>>

FATFLG,@15.

9994
PC.CKDROP

447
T24DTA

;END OF RECORD YET

END

SUBTEST

L10060:

002212

CSERMRD
446

. WORD

:GET BUFFER ADDRESS
s CURRENT RECORD SIZE
tFIRST LOCATION IN BUFFER
:SET POINTER TO FRAME (WORD)
;CHECK DATA READ (R3=DATA ALSO)

;LOOP IF SELECTED

ENDSUB

TRAP

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

TO DROP

THE

CsCLP1

»>>3>:5>53>>>

CseESuUB

UNIT

HE4

2774

:TEST 4, SUBTEST 7

2775
2776
2777
2778

;VERIFIES THAT READ DATA COMMANDS WITH CVCs=1 AND THE
sSWAP BYTES (SWB) BIT SET OPERATES PROPERLY. THE TEST

2779

;sSEQUENCE IS IDENTICAL TO THAT USED IN SUBTEST 2.
; THE RESULTS, EXCEPT FOR RAM CONTENTS, SHOULD BE THE SAME.

2780

2781
2782
2783
2784
2785 040276
040276
040276
2786 040300
2787 040304
2788 040310

14:17

$22>>>>>>>>>>

BGNSUB

104402
004737
004737
004737

046664
046530
046622

BEGIN

SUBTEST

TRAP

JSR
JSR

>5>33333>3>>>

T4
. 7.

PC,T24RT3
PC,T24REST
PC,T24RT?2

tSET UP OTHER COMMAND PACKET
;SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET

csssus

TSV7? - HARDWARE TESTS 1 8

TEST

MACRO M1113

14 UUN-84 14:17

L 1¢
C

SEQ 0154

4&: BASIC RERD DATA (FORWARD AND REVERSE)

789

5790

;0800860000680 0000000000080000000000000800000000¢80860008604040000088060

2792

; ISSUE CONTROLLER “SOFT” INIVIALIZE

2791

793

- CARRY BIT CLEAR IF ERROR

5794

1000000600080 000880000048004404004000000000000000086042088000008008004

2795

2796 040314

004737

016064

2798 040322
2802 040326
2803 040330

005237
010001

002212

040332

000700

2805 0407 '0
2806 0403 .6

013737
012704

2797 040320

040330

040334
040336
2604 040340
2807

103407

JSR

PC,SOFINIT

;100 INITIALIZE ON CONTROLLER

INC
MOV
ERRDF

FATFLG
RO,R1
ERRNO, SFIERR, SFIMSG

;BUMP COUNT
;CONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT 0K

8CS

104455

204

;BR IF INIT WAS Ox

TRAP

. WORD

003650
012124

002172
044040

044060

20%:

. WORD
. WORD

MOV
MOV

UNITN, T24D5SW
OT24PACKET R4

;008000000000 8000800800088000080400080006280008808008404088880088800884

2810
26811

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
H

2812

;00680080860 00680480000008888008000800000008080080008080000080488888002

2813

2814 040352

004737

010752

2816 040360
2820 040364

005237
010001

002212

040366

104456

2815 040356

2821 040366

103407

040370

000701

040374

012124

040372

2822 040376
2823
2824

040376

JSR

PC.WRTCHR

s ISSUE WRITE CHARACTERISTICS

INC
MOV

FATFLG
RO,.R1

;BUMP COUNT
;SAVE CONTENTS OF TSSR

8CS

ERRHRD

244

ERRNO,WRTMSG, SFIMSG

;BR,

IF COMMAND ISSUED Ox

;WRITE CHARACTERISTISC FAILED

TRAP

005054

449

.WORD

SFIMSG

. WORD

244 :

104406

CKLOOP

;LOOP IF SELECTED

C$ERMRD

.WORD

TRAP

WRTMSG
CsCLP1

;6000000600000 80008880008000000000080008808008080000880008080080080

2825

;

gggg

; ISSUE REWIND COMMAND TO SE'.ECTEC TAPE DRIVE

2828
2829

(0000000600000 0000060000000000000000000000000000000008008000080000000

2830
2831
2832
2833
2837

SFIERR
SFIMSG

;SET DRIVE NUMBER IN PACKET
s SUBROUTINE NEEDS PACKET ADDRESS

2808

2809

CSEROF

448

040400
040404
040406
040410
040414

O0G4737
103407
010001
005237

040414
040416
040420
040422

104456
000702
045326
012136

040424

104406

2838 040424

2839 040426
2840 040432

012703

013737

011104

JSR
8CS
MOV
INC
ERRHRD

002212

304 :
000400
003114

044172

PC,REWIND
30
RO,R1
FATFLG
ERRNO, T24RWN,PKTSSR

CKLOOP
MOV
MOV

sCALL TAPE REWIND COMMAND
;BR, [F NO PROBLEM
; SAVE TSSR
;1BUMP COUNT
sREWIND NOT ACCEPTED

;LOOP IF SELECTED
#256. .R3

FREE, T24R8

;RECORD SIZE

TRAP
.WORD
.WORD
.WORD

CS$ERHRD
450
T24RWN
PKTSSR

TRAP

CsCLP)

iSTARTING WRITE BUFFER ADDRESS

TSV?
TEST

HARDWARE

TESTS

MACRO M1113

14 JUUN 84

4: BASIC READ DATA {FORWARD AND REVERSE)

284l

2848
2649
2850
2851
2852

2853
2854
2855
2856
2857
2858
2859
2860
2864

SEQ 015%

1600820800480 80800884000008000¢0000008000008880080088000¢0440000885080

2842
2843
2844
2845
2846

2847

14:17

WRITE DATA,ACK,CVC=1,SW8 COMMAND
;0008088802000 0380000000008088808000008082808082088804080000084840840028

040440
040446
040452
040452
040454
040460
040464
0- 0470
040474
040500
040504
040506
040510
040514
040514
040516
040522
040524
040524
040526

040530

040534
040536
040536
040540
040542

012737
012704
010300
004737
010337
010465
004737
016501
012702
020102
001406
005237

150005
044170

044170

654:

017512
044176
000000

104406
005743
013737

#150005, T24PK3

sWRITE DATA,ACK,CVC=1,Sw3 COMMAND
;SET UP R4 WITH PACKET ADDRESS

MOV
JSR

R3,R0
PC.FILLMEM
R3, 72452
R4,TSDB(RS)
PC,WAITF
TSSR(RS),R1
#SSR ,R2
R1,R2
754
FATFLG

;S5ET PATTERN IN CORRECT REGISTER
sFILL MEMORY WITH RECURD SIZE
;SET UP RECORD SIZE IN PACKET

MOV

MOV
JSR
MOV
MOV
cMe
8EQ
INC
ERRHRD

016340
000002
000200

002212

104456
000703
005111
012136
104406
005723
022703
001346

MOV
MOV

7S¢

80¢%:

003114

(R3).

0#268. ,R3
654

TST

-(R3)

CkLOOP

;:ISSUE COMMAND
;WAIT FOR

SSR

T0Q SET

tGET TSSR CONTENTS
:SET UP EXPECTED

tARE

THEY EQUAL

;BR, IF 0K
;BUMP COUNT
sTSSR INCORRECT AFTER WRITE DATA

;LOOP IF SELECTED

oy
BNE

MOV

044172

ERRNO,WRTERR,PKTSSR

CKLOOP

TST

000414

0T24PK3
R4

FREE, T24R8

1800008850838 088¢8

TRAP
. WORC

.WORD
.WORD

CS$ERMRD
451
WRTERR
PKTSSR

TRAP

CsCLPL

TRAP

CsCLP1

;BUMP RECORD SIZE
;END OF RECORD YETM
;BR, IF MORE RECORDS TO WRITE
;LOOP IF SELECTED

:SET RECORD SIZE BACK T0O S1ic2.
;:STARTING READ BUFFER ADDRESS

2042808080080 8000088480888880438200¢0883080620000¢

:READ REVERSE DATA,ACK,SW8 COMMAND
;0808856080853 880880038880008803¢040838800888008200488002043850000020

040550
040556
040562
040566
040572
040576
040602
040606
040610
040612
040616
040616
040620
040622
040624
2893 040626

012737
012704
010337
010465
004737
016501
012702
020102
001406
005237

110402
044170
044176
000000
016340
000002
000200

044170

165¢:

002212

104456

000704
045656
015564

170%:

MOV
MOV

MOV
MOV
JSR
MOV
MOV
cHP
BEQ
INC
ERRHRD

CKLOOP

2110401, T24PK3

;READ REVERSE DATA,ACK,SWB COMMAND
;SET UP R4 WITH PACKET ADDRESS
;SET UP RECORD SIZE IN PACKET
+ ISSUE COMMAND

0724PK3
R4
R3,T24S2
R4, TSDB(RS)
PC, WAITF

;WAIT FOR SSR 10 SET

@SSR, R2
R1,R2

;ARE

TSSR(RS),R1

1704

FATFLG

ERRNO, T24WOC ,EXPREC

;GET TSSR CONTENTS
:SET UP EXPECTED
THEY

EQUAL

;BR, IF 0K
;BUMP COUNT
s TSSR INCORRECY

AFTER READ DATA

;:LOOP IF SELECTED

TRAP

.WORD
. WORD
.WORD

CS$ERHRD

452
T24uW0DC
EXPREC

TSv?
TEST

MACRO M1113

HARDWARE TESTS 1 8
4 : BASIC READ DATA (FORWARD AND REVERSE)

2894
2895
2896
2897
2898
2899
2900
2901
2902
2906

2907
2908
2910
2911
2912
2913
2914
291S
2916

040626

10440¢

14:17

SEQ 01%6

MOV
MOV

FREE ,R2
R3.R4

:GET BUFFER ADDRESS
;CURRENT RECORD SIZe

cMP
8eQ
MOV
MOV
INC

180¢
(R4),R1
R3,R2
FATFLG

;CHECK DATA READ (R3=DATA ALSO)
;BR, IF ALL IS WELL
;RECD DATA
;EXPECTED DATA
;BUMP COUNT

TRAP

CsCLP1

040630
040634
040636
040642

013702
010304

040646
040650
040652
040654
040660

001410
011401
010302
005237
104456

TRAP

CS$ERHRD

040662
040664
040666
040670
040670
040672
040674
040676
040700
040702
040704
040710
040712
040712
040714
040714
040714
040716
040724
040726
040732

000705
045110
015564

.WGRD
.WORD
. WORD

453
124DTA
EXPREC

TRAP

CsCLP1

040644

040660

2917
2918
2919
2920
2921
2922
2923
2924
2925
2926
2927
2928
2929
2930
2931
2932
2933 040732
040732

040732

2934 040734
2935 040740
2936 040744
2937
2938
2939
2940
2941
2942

162704
060204
021403

003114

NT¢

JUUN 84

000400

173¢:

002212

ERRHRD

180¢:

104406

005724
160204

Ccmp
000400
1904 .

104406

104403

ERRNO, T24DTA,EXPREC

BNE
TST
cMe
BNE
CKLOOP

;FIRST LOCATION IN BUFFER
;SET POINTER TO FRAME (WORD)

;DATA READ NOT

;LOOP

WRITTEN

SELECTED

(R4).
R2,R4

;BUMP TO NEYT LOCATION
sGET RID OF BASE ADDRESS

173¢
-(R3)
0256. ,R3
165%

:BR, IF NOT AT END OF RECORD
;BUMP RECORD SIZE
;END OF RECORD YET
;BR, IF MORE RECORDS TO WRITE
;LOOP IF SELECTED
TRAP

R4 ,R3

ENDSUB

;END OF RECORD YET

$22233>3>>>>>

END

SUBTEST

L10061:

023727

002212

004737

017272

103402

0256. ,R4
R2,R4
(R4),R3

CKLOOP

TST
SU8

020403

001360
005743
022703
001322

SuB
ADD

000017

cMP

FATFLG, 215,

;:I5 ERROR COUNT

JSR

PC.CKDROP

s TRY

B8LO
9994
:

; TEST 4,

999

;BR,

CsCLP1

>>55>333>>>>

TRAP

AT 2S

CS$ESUB

IF LESS THAN 25
TO DROP

THE UNIT

SUBTEST 8

;VERIFIES THAT A READ REVERSE COMMAND READING A RECORD
;LONGER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE
;STATUS ALERT TERMINATION WITH THE RECORD LENGTH LONG
;(RLL) BIT SET.

BGNSUB

104402

004737
004737
004737

$253>>>5>>>>>

BEGIN

SUBTEST

T4.8:

046664
046530
046622

JSR
JSR
JSR

PC.T24RT3
PC,T24REST
PC.T24RT2

TRAP

;SET UP OTHER COMMAND PACKET
;SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET

188088688540 8508888848808808080080
0403008088088 08824080000¢00kP0b0e

;ISSUE CONTROLLER “SOFT“ INITIALIZE - CARRY BIT CLEAR IF ERROR
1008888452088 888880888880882408880808008820880800880888080080850000s

>35>>>5>5>3>

cs8SuUB

TSv?
TEST

14 N 84
TESTS 1 8
MACRO Mi113
BASIC READ DATA (FORWARD AND RE VERSE

HARDMWARE

4 :

2943
2944
2945
2946
2950
2951

040750
040754
040756
040762
040764
040764
040766
040770
040772
040774
2953 040774
041002
2955

00473~
103407
005237
010001

0160¢€ *

000706
003650
012124

002172

044060

INC

FATFLG

208

RO,.R)
ERRND , SF IERR, SF IMSG

SEQ 01%7

100 INITIALTIZE ON CONTROLLER
1BR IF INIT WAS Ov
18UMP COUNT

1CONTENTS OF

1FATAL

ERROR

TSSR REGISTER

TSSR

WAS

NOT

TRAP

COERDF

. WORD
. WORD
. WORD

MOV
MOV

UNITN, T24DSW
OT24PALCKET R4

454

SF IERR
SF IMSG

$1SET ORIVE NUFMBER IN PACKE?
1 SUBROUTINE NEEDS PACKET ADORESS

1000000006080 00000004008000800000000000088008000000000000080080000080%0000

tWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
1000056000088 0080008000000008080000080800000008000000000000008000000000

¢e1006

2963 041012

041014
041020
2969 041022
041022
041024
041026
041030
2970 041032
041032
2971
2972

004737
103407
005237
010001

010752
002212

2989 041072

PC.WRTCHR

INC
MOV

FATFLG
RO,R1

ERRMRD

104456

000707
005054
012124

244

104406

244

ERRNO, WRTMSG, SF IMSG

CxLOO0P

1ISSUE MRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED Ox
COUNT
s
sSAVE CONTENTS OF TSSR
1URITE CHARACTERISTISC FAILED
TRAP

:LOOP IF SELECTED

CSERRD

. WORD
. WORD
. WORD

WRTMSG
SF IMSG

TRAP

CsCLP1

455

;080080800800 008088000008008000¢08200000000000000080000000000008¢0000

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

2974

2975
2976
2977
2978 041034
2979 041040
041044
2981 041046
041050
041054
041054
041056
041060
041062
2987 041064
041064
041066

JSR

8Cs

2973

2991
2992
2993

20%:

044040

2957

2959
2960
2961

PC,SOF INIY

MOV
ERROF

104455

013737
012704

JSR

8CS

00221¢

14:1"’

1000006000800 000080000088000800¢00000000000080000880000000800800000000

004737
004737
103407
010001
005237

JSR
JSR

011104
016426

104456
000710
045326
012136

104406
012703
013737

30¢:

001000
003114

8CS
MOV

30¢
RO,R1

ERRHRD

ERRNO, T24RWN,PKTSSR

INC

002212

044172

PC.REWIND
PC,CHKTSSR

FATFLG

TRAP

;LOOP IF

CKLOOP

MOV
MOV

1CALL TAPE REWIND COMMAND
1SEE HOW TSSR IS
18R, IF NO PROBLEM
: SAVE TSSR
1BUMP COUNT
;REWIND NOT ACCEPTED

0512. ,R3
FREE, T24R8

SELECTED

456
T24RWN
PXTSSR

TRAP

CsCLP1

;RECORD SIZE
1STARTING WRITE BUFFER ADDRESS

1908080008000 08000680808080000080008800080080080008080008000008000000000080

JWRITE DATA,ACK,CVCs1 COMMAND

CSERYRD

. WORD
. WORD
. WORD

TSV?

TEST

HARDMWARE

TESTS

MACRO M1113

UUN 84

4&: BASIC READ DATA (FORWARD AND REVERSE)

2995
2996

SEQ N19%8

100000000000 00002800000080800000088¢0000000008030008000000000000000000

012737
012704

140005
044170

041112
041116
041122
041126
041132

010337
010465
004737
016501

044176

012702

000002
000200

041140
041142
041146
041146
041150
041152
041154
3012 041156
041156
3013 041160
3014 041164
3015
3016
3017
3018
3019
3620
3021
041172
3023
3024 041204
041210
041214
3027 041220
3028 041224
041230
3030 041232
3031 041234
3035 041240
041240
041242
041244

001406
005237

002212

2997 041100
2998 041106
2999 041112
3000
3001
3002
3003
3004
3005
3006
3007
3011

14:17

Cl-

041136

041246

3036 041250
041250
3037
3038
3039
3040
3041
3042
3043
041252
3045 041256
041260
3047 041264

020102

044170

654
:

000000

016340

104456
000711
005111
012136
104406

012703
013737

75¢:

000400
003114

044172

MOV
MOV

140005, T24PK3
0T24PK3
R4

tWRITE DATA,ACK,CVC=1 COMMAND

MOV
MOV
JSR
MOV
MOV
crp
8EQ
INC
ERRHRD

R3, 72452
R4, TSDB(RS)
PC. WAITF
TSSR(RS),R1
OSSR, R2
R1,.R2
754
FATFLG
ERRNO,WRTERR,PKTSSR

1SET UP RECORD SIZE IN PACKET
1 ISSUE COMMAND

sWAIT FOR SSR TO SET

sGET TSSR CONTENTS
sSET UP EXPECTED

;ARE THEY EQUAL
1BR, IF Ox
1BUMP COUNT
1 TSSR INCORRECT AFTER WRITE DATA
TRAP

;LOOP IF SELECTED

CxLOOP

MOV

$SET UP R4 WITH PACKET ADORE
S

9256. ,R3
FREE, T24R8

CIERRD

.WORD
.WORD
.WORD

457
WRTERR
PXTSSR

TRAP

CsCLP:

+SIZE OF RECORD
1STARTING READ BUFFER ADORESS

100080000000 8000808088¢80000000¢6808008080000000080000080080000800000800

sREAD DATA,ACK COMMAND
1660000088008 0000080000000000000000000000082000068000800000800000000¢

012737
012704
010337
010465
004737

016501
012702
020102
001406
005237

100401

J44170
044176

(44170

0100401, T24PK3

165%:

s ISSUE COMMAND

1WAIT FOR SSR TO SET

OSSR!SC!BIT2,R2

100204

R1,R2

002212

1704 :

104406

1SET UP R4 WITH PACKET ADORESS

1SET UP RECORD SIZE IN PACKETY

016340

104456
000712
046274
015564

sREAD DATA ,ACK COPMAND

1GET TSSR CONTENTS
1SET UP EXPECTED
sARE THEY EQUAL
;BR, IF Ox
+BUMP COUNT
1 TSSR INCORRECT AFTER READ DATA

1LOOP IF SELECTED

CxLOOoP

TRAP
.WORD
MORD
.MORD

CSERRD
458
T24TRL
EXPREC

TRAP

CsCLP1

1800600060006 038080088008008080000000000080080080800008000800800080000000¢

tREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

1060008000600 08060088000086000808000080000880800008000000000080128000000

013701
010102
052702
020102

044070
010000

MOV
MoV
8IS
cHe

T248FR+6,R1

R1,R2
81112 ,R2
R1,R2

1GET MESSAGE BLFFER (XSTO)

1SET UP EXPECTED
1SET THE RLL BIT IN EXPECTED

1ARE

THEY

EQUAL

TSv?
TEST

HARDWARE

TESTS

001406
005237

041300
041302
041304
041301
041306
041306
041306
041310
041316
041320
041324

046142
015564

041276

3055
3056
3057
3058
3059
3060
3061
3062
3063

MACRO M1113

14-UUN 84

BASIC READ DATA (FORWARD AND REVERSE>

3048 041266
3049 041270
3053 041274
041274

3054

1 8

8EQ
INC
ERRMRD

002212

1808 :

104406

ERRNO, T24LON,EXPRE(C

104403
023727
103402

004737

SEQ 2159

18R,

EQUAL

(ALL

IS wWELL
4

;BUMP COUNT
:THE RLL BIT WAS NOT SET

CxLOOP
ENDSUB

1223535555333

END

002212

000017

017272

9994;
.
H

cp
8Lo
JSR

FATFLG, 015,

9994

PC.CKDROP

IN xST0

TRAP

459
T24LON
EXPREC

TRAP

CoCLP]

»»5535535355

TRAP

: IS ERROR COUNT AT 25

;BR,

s TRY

CSESUB

IF LESS THAN 25
TO DROP

THE

UNIT

:TEST &, SUBTEST 9
VERIFIES THAT A READ REVERSE COMMAND SPECIFYING A DATA
;BUFFER STARTING IN NONEXISTANT MEMORY TERMINATES WITHW
;. THE PROPER ERROR STATUS WITHOUT MOVING TAPE
H

BGNSUB

104402
005737

001002

000137
004737
0oNa73?
004737

003126
042C10

10¢:

046530
046622

TST
BNE
JP
JSR
JSR
JSR

12>3>>333>>>>

BEGIN

SUBTEST

T14.9:;

NXMFLG
104
1804
PC,.T24RT3
PC, T24REST

PC,T24RT2

>.,>3>33>5>> 22

TRAP

s00 WE MAVE 1IT?
sBR, IF ENOUGH
1SKIP THIS TEST IF NOT
;SET UP OTHER COMMAND PACKET
;1SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET

cs8suB

1908088808000 08008000880800888808888005900080008800800880000080080002000

;ISSUE CONTROLLER ~SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR

3081
3082
3083

1006380080880 0080080080828000020808800000088800088008082008808000008000

04737
103407
005237
010001

JSR
8CS
INC
MOV

016064

002212

ERROF

104455
000714
003650
012124

013737
012704

002172
044040

044060

204
:

PC,SOF INIT

204

FATFLG

RO,R1
ERRNO,
SF IEPR, SF IMSG

;00 INITIALIZE ON CONTROLLER
1BR IF INIT WAS OK

1BUMP COUNT
1CONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT 0K

TRAP
.WORD

.WORD
.WORD

MOV
MOV

UNITN, T240SW
O0T24PACKET
R4

:SET DRIVE NUMBER IN PACKET
1 SUBROUTINE NEEDS PACKET ADORESS

108000060408 68003400800848840088880200084028038082800008400080002008000040

3097

CSERRD

.WORD
.WMORD
.MORD

SUBTEST

L10062:

3067

041354
3085 041360
041362
041366
3091 041370
041370
041372
041374
041376
3092 041400
3093 041400
041406

180¢

FATFLG

104456
000713

3065

3069
3070 041324
041324
041324
3071 041326
3072 041332
3073 041334
3074 041340
041344
3076 041350
3077
3078
3079

14:17

CSEROF
460

SFIERR
SFIMSGC

TSVv?
TEST

14 UUN 84 14:17
MACRO M1113
HARDWARE TESTS 1 8
4: BASIC READ DATA (FORWARD AND REVERSE)

3098
3099
3100
3101
3102
3103
3104
3108
3109

tWRITE CHARACTERISTICS COMMAND (CALL

041412
041416

041420
041424
041426
041426

041436

3111
3112
3113
3114
3115
3116
3117

3123

3125
3126
3127
3128
3132

004737
103407
005237
010001

010752

JSR

PC,WRTCHR

INC
MOV
ERRHRD

FATFLG

8Cs

002212

244

1ISSUE WRITE CHARACTERISTICS
sBR, IF COMMAND ISSUED Ow

RO,R1
ERRNO , WRTMSG
, SF IMSG

s SAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED

104456

000715
005054
012124

244 :

1044066

CKLOOP

1BUMP COUNT

;LOOP IF

SELECTED

TRAP

CS$ERMRD

. WORD
. WORD
. WORD

461
WRTMSG
SF IMSG

TRAP

CsCLP]

1608080660080 80000800080000008088008803080848800000804208508000000008000¢

: ISSUE REWIND COMMANC TO SELECTED TAPE DRIVE
1080880890800 8004088000880082800000880800280080800000008¢8800000008880¢

3118
3119 041440

3124

TO WRTCHR)

1008846000800 0000680800808000800000000000000080000¢00000800000080000000

041430
041432
041434
3110 041436

3120
3121
3122

SEQ 01560

041444
041446
041454
041462
041466

041472
041476
041500
041502

041506
041506
041510
041512
041514
3133 041516
3134 041516
041516
3135
3136
3137
3138 041520
3139 041524
3140 041530
3141 041532
3142 041534
3146 041540
041540
041542
041544

041546
3147 041550
041550
3148 041552

005737
001024

112737
112737

012704
010465
004737
103407
010001
005237

000200
000010
044150
000000
016426

BNE
MOVB
HMOvVe
MOV
MOV
JSR
8CS

044201
044200

MOV
INC
ERRMRD

002212

104456
000716
026320
012136

274:

28¢4:

104406

04737
004737

011104
016426

010001
005237

002212

103407

TS7

002216

000717
045326
012136

104406
012703

30%:

000005

9200, 124851
410, 724850
0T24PK2
R4
R4, TSDB(RS)

PC.CHKTSSR

284
RO,R1

FATFLG
ERRNO, T22SSR,PKTSSR

;CHECK FOR EXTENDED FEATURES SW SWITCH
tBR IF SWITCH IS ON
sWRITE MISCELLANEOUS CONT/READ STATUS
sFUNCTION SELECTION BIT (TURN ON EXTFEA M4 SWITCH)
;WRITE SUBSYS MEM PACKET
; ISSUE COMMANS
sWAIT FOR SSR
sBR, IF NO ERROR

sERROR,

SAVE

TSSR

;8UMP COUNT
;TSSR NOT CURRECT AFTER WRT. MISCELLANEOUS
TRAP

CSERHRD

.WMORD

462

TRAP

csCLP?

. WORD
.WORD

CKLOOP

JSR
JSR
8CS
MOV
INC
ERRHRD

104456

EXTFEA
274

;LOOP IF

PC,REWIND

PC,CHKTSSR
30%
RO,R1

FATFLG

ERRNO, T24RWN,PKTSSR

SELECTED

sCALL TAPE REWIND COMMAND
;SEE HOM TSSR IS
;8R, IF NO PROBLEM
;1SAVE TSSR
:BUMP COUNT
;sREWIND NOT ACCEPTED

TRAP

CKL W°

;1LOOP IF SELEZTED

MOV

1NUMBER OF RECORDS

T22SSR
PKTSSR

CS$ERMRD

.WORD
. WORD
.WORD

463
T24RWN
PKTSSR

TRAF

csCLPl

-_—

——

F17
TSV?

TEST

- HARDWARE TESTS 1 8

MACRO M1113

14-UUN-84

4: BASIC READ DATA (FORWARD AND REVERSE)

3149 041556

3150
3151
3152
3153
3154
3155
3156
3157
3158
3159
3160
3161
3162
3163
3164
3165
3166
3170

3171
3172
3173
3174
3175
3176
3177
3178
3179
3180
3181
3182
3183
3184
3185
3186
3187
3188
3189
3190
3191
3192
3193

003114

044172

MOV

FREE, T24RB

SEQ@ 0161

1STARTING WRITE BUFFER ADDRESS

1008002080080 048088000000248000¢0408000
0808008420048 00802402¢008¢2840000¢

{WRITE DATA,ACK,CVC=1 COMMAND
180085208800 0¢0080880884800800800008803888400800088000000804080000008

041564
041572
041576
041576

041604
041610
041614
041620
041624
041626
041630
041634
041634
041636
041640
041642
041644
041644
041646
041650
041652
041656
041662
041666
041672
041674
041700
041706

012737
012704

012737
010465
004737
016501
012702
020102
001406
005237

140005

044170

000256

044176

044170

000000
016340
000002
000200

002212

012701
012702
004737

103046

010137
013737
005037

#140005, T24PK3
#T24PK3,
R4

sWRITE DATA,ACK,CVC=1 COMMAND
:SET UP R4 WITH PACKET ADORESS

MOV
MOV
JSR
MOV
MOV
o
oy
8EQ
INC
ERRHRD

0256, 124S2Z
R4, TSDB(RS)
PC. WAITF
TSSR(RS),R1
ASSR,R2

;SET UP RECORD SIZE IN PACKET

R1,Re

754
FATFLG

ERRNO,WRTERR ,PKTSSR

s ISSUE COMMAND

tWAIT FOR SSR T0O SET

tGET TSSR CONTENTS
;SET UP EXPECTED

;ARE
;BR,

THEY EQUAL
IF 0K

sBUMP COUNT

s TSSR INCORRECT AFTER WRITE DATA
TRAP

104456
000720
005111
012136

104406
005303
001352
012703

65¢:

MOV
MOV

7S¢
:

0eC
BNE
MOV
MOV
MOV
JSR
8CC
MOV
MOV
CLR

000400
160000

177776

016466

003130
003130
044174

CxLOOP

044172

;LOOP IF SELECTED
R3

654
9256, ,R3

#160000,R1
€177776
,R2
PC ., XNXM

180¢

R1.NXMLO
NXMLO, T24RB
T24RB +2

464
WRTERR
PKTSSR

TRAP

CsCLP1

;BUMP DOWN RECORD COUNTER
:BR, IF NOT AT S RECORDS YET
tRECORD SIZE
;NXM LOW ADORESS

CSERMRD

.WORD
. WORD
.WORD

START

sLIMIT CHECK FOR NXM (MIGHEST)
:LOOK FOR NXM ADDRESS
:BR, IF NON FOUMD
:SET ADDRESS UP FOR TEST
;STARTING READ BUFFER ADDRESS
:SET TO 16 BIT ADDRESSING

1608808000808 80808888880808880800888040800800083008048808080800¢0800008

:READ DATA,ACK COMMAND
1088088800880 88848008250008080580802808008880800084808808800004088000s2

041712
041720
041724
041732

041736

3194 041742

3195
3196
3197
3198
3199
3200
3201
3205

013737

14:17

041746
041752
041754
041756
041762
041770
041772
041776
041776

012737
012704
012737
010465
004737
016501
012702
020102
001414
005237
023727
001353
005237

104456

044170

044176

165%:

MOV
MOV
40V
MOV
JSR
MOV
MOV

cre
8EQ
INC
cHP
BNE

INC
ERRHRD

0100001, T24PK3
#T24PK5
R4
0256.,72452
R4, TSDB(RS)
PC.WAITF

TSSR(RS),R1
OSSRINXM!SC!'BIT3,
R
R1.R2

170¢

T24RB+2
T24RB .2, 04

165

FATFLG

ERRNO, T24NXM,PKTSSR

tREAD DATA,ACK. COMMAND
$SET UP RA WITH PACKET ADODRESS
$SET UP RECORD SI1ZE IN PACKET
1 ISSUE COMMAND
sWAIT FOR SSR T0O SET
$GET TSSR CONTENTS
:1SET UP EXPECTED
;ARE

tBR,

THEY EQUAL

IF OK

tSET TO NEXT HMIGHER ADODRESSING MODE
;:DID WE OVERFLOW INTO 19 BITS
sBR, IF STILL IN 16-18 BITS RANGE
1BUMP COUNT
1 TSSR INCORRECT AFTER READ DATA
TRAP

CS$ERMRD

TSV?
TEST

MACRO M1113
14 JUN 84 14:17
TESTS 1 8
REVERSF)
AND
(FORWARD
DATA
READ
BASIC

G179

HARDWARE

042000
042002
042004

042006
042006
3207 042010
3208 042010
042010

042010
042012
3210 042020
3211 042022
3212 042026
3213
3214
3215

000721
04443)
012136

170¢:

104406

104403

023727
103402
004737

:
1804

CKLOOP

SEQ 0162

;LOOP IF

ENDSUB

SELECTED

:2>>33>5553>>

END

000017

017272

9994
.
3

cMp
BLO
JSR

FATFLG, @15,
999
PC ., CXDROP

46%
T24NXM
PXTSSR

TRAP

CsCLPY

SUBTEST

L10063:
002212

.WORD
.WORD
.WORD

53353553535

TRAP

: IS ERROR COUNT AT 25

1BR,

;:TRY

CSESLB

IF LESS THAN 25
TO DROP

THE

UNIT

:TEST 4, SUBTEST 10

3216

3217
3218
3219

;VERIFIES THAT ILLEGAL MODE FIELD COCES IN THE READ

:COMMAND CAUSE A FUNCTION REJECT TERMINATION WITH THE
; ILLEGAL COMMAND (ILC) ERROR BIT SET.

3220
3221
3222
3223

3224

3225

3226 042026

042026
042026
3227 042030
3228 042034
042040
3230
3231
3232
3233
3234
3235
3236
3237

3239
3243
3244

3245
3246
3247
3248
3249

3251

3252
3253

BGNSUB
104402
004737
004737
004737

JSR
JSR
JSR

046664
046530
046622

:>2>35>53>>>>

BEGIN

SUBTEST

174.10:

PC,T24RT3
PC,T24REST
PC.T24RT2

>>>5>335>535»

TRAP

;SET COMMAND PACKET UP CLEAR

csasus

sSET COMMAND PACKET

;SET UP OTHER COMMAND PACKEY

18088808884 8088280488888008000080880000884808880800¢08040080080000080802

: ISSUE CONTROLLER “SOFT* INITIALIZE - CARRY 8IT CLEAR If ERROR
;6088808880008 4808008580040080888880084888808008880020008288000008082

004737
103407
005237
010001

JSR
BCS
INC
MOV
ERRDF

016064

002212

104455

000722
003650
012124

013737
012704

002172
044040

20%
044060

PC,SOFINIT
204
FATFLG
RO,R1
ERRNO, SFIERR, SFIMSG

;00 INTTIALIZE ON CONTROLLER
sBR IF INIT WAS 0K

;BUMP COUNT
s CONTENTS OF TSSR REGISTER

sFATAL

ERROR

TSSR WAS NOT 0K
TRAP

LWORD
. WORD
. WORD

MOV
MOV

UNITN, T240SW
OT24PACKET
R

:SET UP DRIVE NUMBER
: SUBROUTINE NEEDS PACKET ADORESS

1800808038882 8008480888080080880088800888000800208000480088000¢¢00800

iWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
108300858084 88880008280888A88808000548800880048388000880040080008000008

CS$ERDF

466
SFIERR
SF IMSG

TSV?
TEST

MACRO M1113 14 JUN 84 14:17
HARDWARE TESTS 1 8
4: BASIC READ DATA (FORWARD AND REVERSE)

3254

3255 042102

00473

010752

3257 042110
3261 042114

005237
010001

002212

3256 042106
3262 042116

042116

042120
042122

042124

3263 042126
042126

3264 042130
3265

103407

SEQ 0163

JSR

PC,WRTCHR

s ISSUE WRITE CHARACTERISTICS

INC
MOV

FATFLG
RO ,R1

;BUMP COUNT
$1SAVE CONTENTS OF TSSR

8CS

244

ERRHMRD

104456

-1

ERRNO,WRTMSG, SFIMSG

tBR, IF COMMAND ISSUED On

tWRITE CHARACTERISTISC FAILED

TRAP

000723
005054

.WORD
LMORD

012124

104406

013737

268

003114

044172

CKLOOP

;LOOP IF SELECTED

MOV

FREE, T24R8B

. WORD

SF IMSG

TRAP

CsCL®TM

sSTARTING WRITE BUFFER ADORESS

3266

10080880488 ¢0 8RS

3267

3270

;0000060880008 02800800000000804848000040040800048800000080400088080000

33323

CSERMRD

467
WRTMSL

L S 0200008080080 883840300008008088008408006000008008

s ILLEGAL MODE DATA,ACK COMMAND

3271

3272 042136
3273 042144
3274 042150
3275 042156
3276 042162
3277 042106
3278 042172
3279 042176

012737
012704
012737
010465
004737
016501
012702
020102

104001
044170
000400
000000
016340
000002
100206

3281 042202

005237

002212

3280 042200
3285 042206

001406

042206
042210

104456
000724

042214

012136

3287 042216

104406

042212

3286 042216

044170
0442176

MOV
MOV
MOV
MOV
JSR
MOV
MOV
cMP

#104001, T24PK3
#T24PK3 ,RA
0256 .,T2452
R4, TSDB(RS)
PC.WAITF
TSSR(RS) ,R1
@SSR!SC!'BIT1'BIT2,R2
R1,R2

s ILLEGALL MODE DATA,ACK COMMAND
t1SET UP R4 WITH PACKET ADORESS
:1SET UP RECORD SIZE IN PACKET
s ISSUE COMAND
;WAIT FOR SSR!BIT1'BIT2 TO SET
;:GET TSSR CONTENTS
:SET UP EXPECTED
sARE THEY EQUAL

INC

FATFLG

:BUMP COUNT

BEQ

ERRHRD

ERRNO, T24WDF ,PKTSSR

;BR,

IF 0K

; TSSR INCORRECT AFTER READ DATA

044515

TRAP
.WORD

CS$ERHRD
468

.WORD

PKTSSR

TRAP

CsCLPL

. WORD

75%:

CKLOOP

;LOOP IF SELECTED

7268

T
I
T
m

3292

100080866000 80088800880000800408000800800880008800000800080088080080¢

3289
ggg({

T24WOF

;
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XST0)

293

3294 042220
3295 042224

013701
010102

3298 042234
3299 042236

001406
005237

3296 042226
3297 042232
3303 042242

042242

052702
020102

000725

042250

015564

3304 042252
042252

MOV
MOV

001000

sGET MESSAGE BUFFER
;SET UP EXPECTED

1804
FATFLG

s8R, IF EQUAL (ALL IS WELL)
L8UMP COUNT

#MIT9,R2
R1,R2

ERRMRD

ERRNO, T24L0Q,EXPREC

;S9ET THE ILC BIT IN EXPECTED
1ARE THEY EQUAL
;THE

ILC BIT WAS NOT

SET

IN XSTO

TRAP

.MORD

044656
104406

T248FR+6 . R1
R1,R2

8IS
cHe

BEQ
INC

002212

104456

042244

042246

044070

. WORD
180% :

CKLOOP

CSERHRD
469

T24L0Q

.MORD

EXPREC

TRAP

CsCLP1

I
TSV?

TEST

- HARDWARE TESTS 1-8

MACRO M1113

14-UUN 84

4&: BASIC READ DATA (FORWARD AND REVERSE)

3305 042254
042254
042254
3306 042256
3307 042264
3308 042266
3309 042272

14:17

ENDSUB

104403
023727
103402
004737

SEQ 0164
$35535>5>3>53>

END

SUBTEST

110064:

002212

cHpe

000017

017272

9994.

3310
3311
3312
3313
3314
3315
3316
3317

8LO
JSR

FATFLG,#15.

555555553555

TRAP

;IS ERROR COUNT AT 2S5
;BR, IF LESL THAN 25

99914
PC,CKDROP

;:TRY

TO DROP

THE

C$ESUB

UNIT

HRd

:TEST &, SUBTEST 11
{VFRIFIES THAT ILLEGAL BUFFER ADDRESSES CAUSE A

{FUNCTION REJECT TERMINATION WITH ILLEGAL ADDRESS
:(ILA) ERROR BIT SET.

042272
042272
042272

042274
042300
042304

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

BGNSUB
104402
004737
004737
004737

JSR
JSR
JSR

046664

046530
046622

BEGIN

SUBTEST

T4.11:

PC,T24RT3
PC, T24REST
PC,T24RT?2

>5>535>33>55>>>

TRAP

:SET COMMAND PACKET UP CLEAR
:SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET

csesuB

1880880480888 4008044008200880800800808088038880080880808880000400080808

: ISSUE CONTROLLER "SOFT* INITIALIZE - CARRY BIT CLEAR IF ERROR
1680888808080 8008888088880880880084888048080008830808080008000088040s

042310
042314
042316
042322
042324
042324
042326
042330
042332
3342 042334
3343 042334
042342
3345
3346
3347
3348
3349
3350
3351
3352 042346
3353 042352
3354 042354
3358 042360
3359 042362

004737

016064

005237
010001

002212

103407

JSR
8Cs
INC
MOV
ERRDF

PC,SOFINIT
294
FATFLG
RO,R1
ERRNO, SFIERR, SFIMSG

;00 INITIALIZE ON CONTROLLER
:BR IF INIT WAS 0K
1BUMP COUNT
;:CONTENTS OF TSSR REGISTER
:FATAL ERROR TSSR WAS NOT

003650
012124

013737
012704

002172
044040

204

044060

0Ox

TRAP
.WORD

104455
000726

.WORD
.WORD

MOV
MOV

UNITN, T240SW
R4
OT24PACKET

:SET UP DRIVE NUMBER

1 SUBROUTINE NEEDS PACKET ADORESS

1000086068868 040088880408808888488048040830080400008000008408808808¢0400

;HRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
1004888808884 8888880888088004843830085888400430860000288000080000000s

004737
103407
005237
010001

010752
002212

JSR
8CS
INC
MOV
ERRHRD

PC,WRTCHR
244
FATFLG
RO,R1
ERRNO,WRTMSG, SFIMSG

s ISSUE WRITE CHARACTERISTICS
+BR, IF COMMAND ISSUED OKX
;:BUMP COUNT
s SAVE CONTENTS OF TSSR

;WRITE CHARACTERISTISC FAILED

CS$ERDF
470
SFIERR
SFIMSG

TSV7

TEST

- HARDWARE TESTS 1 8

MACRO M1113

14 UUN 84

4&: BASIC READ DATA (FORWARD AND REVERSE)
042362
042364
042366
042370

104456
00072°
005054
012124

042377

104406

3360 042372

3361 042374

3362 0424C2
3363

013737

012737

14:17

SEQ 0145

TRAP

244 :

003114

177700

044172

MOV

044174

3364

CKLOOP

MOV

:LOOP IF SELECTED

FREE, T24R8

2365

47}
WRTMSG
SFIMSG

TRAP

CsCLP1

; ILLEGAL STARTING READ BUFFER ADDRESS

0177700, T24RB .2

1080088000840 08480 0000800880088

;CREATE ILLEGAL ADORESS
0032 0000800000000

000000008 e

3366

;LEGAL MODE,ACK,CVC=1,READ COMMAND

3368

16084824204 8808888008808 8808880288800 0880600800 80¢88000008008080000

3367

3369

3370
3371
3372
3373
3374
3375

CS$ERHRD

.WORD
.WORD
.WORD

042410
042416
042422
042430
042434
042440

012737
012704
012737
010465
004737
016501

3376 042444

012702

3378 042452

001406

3377 042450

3379 042454
3383 042460
042460
042462
042464
042466
3384 042470
042470
3385
3386
3387

020102

005287

140001
044170
000400
000000
016340
000002

044170
044176

100206

;‘95 042504

5096 C42506
3397 042510
3401 042514
042514
042516
042520

042522
3402 042524
042524
3403 042526

042526
042526
3404 042530
3405 042536

2140001, T24PK3
0724PK3 R4
0256., 12457
R4, TSDB(RS)
PC.WAITF
TSSR(RS) ,R1

;LEGAL MODE ,ACK,CvC=1,READ COMMAND
;SET UP R4 WITH PACKE., ADDRESS
;SET UP RECORD SIZE IN PACKET
; ISSUE COMMAND
;WAIT FOR SSR!'BIT1¢'BIT2 TC SET
;GET TSSR CONTENTS

cHe

R1,R2

sARE

INC
ERRHRD

FATFLG
ERRNOQ, T24WDG,PKTSSR

;8UMP COUNT

MOV

BEQG

002212

104456
000730
044342
012136

75%:

104406

#SSR!SC!'BIT1'BIT2,R2
754

CKLOOP

(N800 0
;

gggg

3390
3391
3392 042472
3393 042476
3394 042500

MOV
MOV
MOV
MOV
JSR
MOV

:SET UP EXPECTED

;BR,

THEY EQUAL

IF 0K

; TSSR INCORRECT AFTER READ DATA

;LO0OP

SELFCTED

TRAP

CSERHRD

.WORD
.WORD
.WORD

472
TZ4HWDG
PKTSSR

TRAP

csCLPL

0000440400840 008838080004008880588880808408848030888880%

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XST0)
(8542846288888 88048884004 0200008508482 08808880800808808008808088848

013701
010102
052702
020102
001406
005237

044070

MOV
MOV
8IS
cHe
BEQ

000400
002212

INC
ERRHRD

104456
000731
044572
015564

180%:

104406
104403
023727
103402

T248FR+6,R1
R1,R2
o8IT8,R2

R1,R2

180%
FATFLG
ERRNO,T24ILA,EXPREC

;GET MESSAGE BUFFER
:SET UP EXPECTED
:SET THE ILA BIT IN EXPECTED
;ARE THEY EQUAL
;BR, IF EQUAL (ALL IS WELL)
;BUMP COUNT
;THE ILA BIT WAS NOT

SET

CKLOOP
ENDSUB

:>5>>>53>>>>>

END

000017

cHp
8LO

FATFLG, @15,
9994

TRAP

SUBTEST

L10065:

002212

IN XSTO
TRAP
C$ERMHRD
. WORD
473
.WORD
T24ILA
. WORD
EXPREC

CsCLPL

553>3>>>>>3>>

TRAP
: IS ERROR COUNT AT 25
;BR, IF LESS THAN 2S5

CsESLB

TEST

MACRO M1113

14 UUN 84

4: BASIC READ DATA (FORWARD AND REVERSE)

3406 042540
3407 042544

004737

017272

999.

3408
3409
3410

JSR

TSV? - HARDWARE TESTS 1-8

14:17

SEQ 0166

PC.,CKDROP

;TRY TO DROP THE UNIT

HE
H

3411
3412

; TEST 4, SUBTEST 12
H

3418
3415

sNONEXISTANT MEMORY CAUSES RECOVERABLE ERROR
s TERMINATION (TC=4), WITH THE NXM BIT SET IN THE

34.3

s VERIFIES THAT A DATA BUFFER ADDRESS REFERENCING

2416

:THAT

3417
3418
3419 042544

042544
042544

3420 042546
3421 042552
3422 042554

3423 042560
3424 042564
33:25 042570
2¢€
3427

THE

TAPE

IS ULTIMATELY POSITIONED PROPERLY.

TSSR,

AND

BGNSUB

1044072

005737
001002
000137
004737
004737
004737

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

T4.12:

003126
043012

046664
046530
046622

10¢:

ST
BNE
JMP
JSR
JSR
JSR

NXMFLG
10¢
80¢

PC,T24RT3
PC,T24REST
PC.T24RT?

;D0 WE HAVE IT?
:BR, IF ENOQUGH
s SKIP THIS TEST IF NC7T

55555535355

TRAP

csBsuB

sSET COMMAND PACKET ' (LEAR
:SET COMMAND PACKET
;SET UP OTHER COMMAND 'ACKET

1000000000040 80000A0R00ARAEESE0E40880080008820800888000040848888000

3428

g:gg

;ISSUE CONTROLLER “SOFT~ INITIALTZE - CARRY BIT CLEAR IF ERROR

343)
3432

;8048688808048 8888088880080800888005486080008484080808880888888800¢

3433 042574
3434 042600
3435 042602
3439 042606
3440 042610

004737
103407
005237
010001

042612

000732

042610

JSR

8Ccs
INC
MOV
ERRDF

002212

104455

042614
042616

003650
012124

3442 042620
33::3 042626

013737
012704

3441 042620

016064

PC,SOFINIT
204
FATFLG
RO,R1
ERRNQ, SFIERR, SFIMSG

;00 INITIALIZE ON CONTROLLER

;BR IF INIT WAS Ox
;BUMP COUNT
;sCONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT OK

TQAP

CS$ERDF

.WORD
.WORD

SFIERR

.WORD

002172
044040

33:45
46

044060

204
:

MOV
MOV

UNITN, T24DSW
OT24PACKET ,R4

474

SF IMSG

:SET UP DRIVE NUMBER
: SUBROUTINE NEEDS PACKET ADDRESS

;5888068808888 88288048080880800884400000084 80040000

RRS0R0000000000

;

33::;

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

33:49
50

;0588880840088 4 4288048080848 004080808434008284000008000000080044

3451 042632

004737

010752

3453 042640
3457 042644

005237
010001

002212

3452 042636

3458 042646

042646

042650

042652
042654

103407

104456

000733

005054
012124

JSR

PC.WRTCHR

;sISSLE WRITE CHARACTERISTICS

INC
MOV

FATFLG
RO,R1

;BUMP COUNT
;sSAVE CONTENTS OF TSSR

BCS

ERRHRD

244

ERRNO,WRTMSG, SFIMSG

;BR,

IF COMMAND ISSUED 0K

;WRITE CHARACTERISTISC FAILED

TRAP

. WORD

. WORD
. WORD

CSERHRD

475
WRTMSG

SF IMSG

TSv7?
TEST

MACRO M1113
14 JUUN 84
HARDWARE TESTS 1 8
BASIC READ DATA (FORWARD AND REVERSE)

14:17

SEQ 0167

3459 042656

3460
3461
3462
3463
3464

3465

3466

3467

042656
042660
042664
042670
042674
042676
042702
042710

PLEE
104406
012701
012702
004737
103046
010137
013737
o0sNy?

016466

044172

3468
3469
3470
3471
3472

3473
3474
3475
3476
3477

3478
3479
3480
3481
3482
3483
3484
3485
3486
3490

3491
3492
3493

3494
3495
3496
3497
3498

3499
3500
3501
3502
3503
3504
3505
3506
3507
3508
3509
3510

MOV
MOV
JSR
8cc
MOV
MOV
CLR

160000
177776

003130
003130
044174

CxLOOP

;LOOP IF
€160000,R1
0177776,
,R2
PC., XNXM
804
R1,NXMLO
NXMLO, T24R8
T24RB+2

SELECTED

TRAP

sNXM LOW ADDRESS START
sLIMIT CHECK FOR NXM (MIGHEST)
sLOOK FOR NXM ADDRESS
1BR, IF NON FOUND
1SET ADDRESS .~ FOR TEST
:SET TO NXM ME.»
Y ADDRESS
:SET "0 16 BITS ADDRESSING

CsCLPl

1800888008288 0888¢008008802800088088080882088008408440088804800088080080¢

:READ. ACK, CVCs=1. COMMAND
1 8808408802008 880080000000800080808880880008888880888008008080000488

042714
042722
042726
042734
042740
042744
042750
042754
042756
042760
042764
042772
042774
043000

043000
043002
043004
043006
043010
043010
043012
043012
043012
043012
043014
043022
043024
043030

012737
012704
012737
010465
004737
016501
012702
020102
001414
005237
023727
001350

005237

140001
044170

044170

30¢:

044176

016340
104210

044174
044174

002212

104456

75%:

104406

:
804

002212
017272

000017

R4
OT24PK3
#256.,12452
R4, TSDB(RS)
PC.WAITF
TSSR(RS) ,R1
O@SSR!SCI'NXM!BIT3,
R2

BEQ
INC
cHp
BNE
INC
ERRHRD

7S¢
T24RB .2
04
T24RB+2,
304
FATFLG
ERRNO, T24NXM,PKTSSR

R1,R2

tREAD,

ACK,

CVC=1,

COMMAND

:SET UP R4 WITH PACKET ADODRESS
:SET UP RECORD SIZE IN PACKET
: ISSUE COMMAND

;WAIT FOR SSR!BIT1!BIT2 TO SET
tGET TSSR CONTENTS
1SET UP EXPECTED

;ARE THEY EQUAL
i8R,

IF OX

:BUMP TO NEXT ADDRESSING RANGE
;CHECK FOR OVERFLOW
:BR, IF STILL IN 16-18 BIT RANGE
;BUMP COUNT
; TSSR INCORRECT AFTER READ DATA
TRAP

SELECTED

CKiL O0OP

:LOOP IF

ENDSUB

$2335>>33>>>>

END

FATFLG, 015,

JSR

PC,CKDROF

999¢

476
T24NXM
PKTSSR

TRAP

CsCLP1

5>>>33>>>33>>

TRAP

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

YO DROP

HR4

:TEST 4, SUBTEST 13

;VERIFIES THAT A REAC REVERSE COMMAND ISSUED WHILE THE

;TAPE IS AT BOT RESWULTS IN FUNCTION REJECT TERMINATION
;WITH THE NONEXECUTABLE FUNCTION (NEF) ERROR BIT SET

THE

CSERHRD

. WORC
. WORD
. WORD

SUBTEST

L10066:

cHp

B8LO
9994
:

#140001, T24PK3

MOV
MOV
MOV
JSR
MOV
MOV
cHp

000734
044431
012136

104403
023727
103402
004737

MOV

UNIT

C$ESLB

TSv7
TEST

MACRO M1113
14 JUN 84
- HARDWARE TESTS 1 8
4 : BASIC READ DATA (FORWARD AND REVERSE)

BGNSUB

3511 043030

043030
043030
3512 043032
3513 043036
3514 043042
3515
3516
3517
3518
3519
3520
3521
3522 043046
3523 043052
3524 043054
3528 043060
3529 043062
043062

043066
043070
3530 043072
3531 043072
3532 043100
3533
3534
3535
3536
3537
3538
3539
3540 043104
3541 043110
3542 043112
3546 043116
3547 043120
043120
043122
043124
043126
3548 043130
3549
3550
3551
3552
3553
3554
3555

043130

3556 043132
043136
043142
043144
043146
043152
043152

3557
3558
3559
3560
3564

14:17

104402

004737
008737
008737

SEQ 0168

:2>>35>5555>> BEGIN SUBTEST
74.13:;

046664
046530
046622

JSR
JSR
JSR

PC,T24RT3
PC. T24REST
PC.T24RT2

55555553355.

TRAP

{SET COMMAND PACKET UP CLEAR
{SET COMMAND PACKET
1SET UP OTHER COMMAND PACKET

C$BSUB

;.."..“.““‘..““..“.““‘.‘““.““‘“‘..“.“.‘0‘.““‘.‘t.

:ISSUE CONTROLLER “SOFT* INITIALIZE - CARRY BIT CLEAR IF ERROR
;““‘.‘.‘.‘..‘l““‘.“““.".“““.““““..“.“.‘.“..“‘...

004737 016064
103407
005237 002212

JSR
B8CS
INC

010001

MOV

ERROF

104455
000735
003650
012124

013737 002172 044060
012704 044040

PC.SOF INIT
204
FATFLG
RO,R1

ERRNO, SFIERR, SF IMSG

;00 INITIALIZE ON CONTROLLER
B8R IF INIT WAS OK
;BUMP COUNT
:CONTENTS OF TSSR REGISTER
:FATAL ERROR TSSR WAS NOT

TRAP
.WORD
'WORD

'WORD

MOV
MOV

UNITN, T240SW
#T24PACKET R4

C$ERDF
477
SFIERR

SFIMSG

;SET UP DRIVE NUMBER
: SUBROUTINE NEEDS PACKET ADDRESS

108688088888 8888808880808008008008804808808088884808888808000800008020s

:WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
;"‘“.‘“.‘“““..“.#".‘....““.‘..‘.““.“.“.“.‘.““.“.‘
004737

010752

103407
005237 002212
010001
104456
000736
005054
012124

2a8:

104406

JSR

PC.WRTCHR

ERRHRD

ERRNO,WRTMSG,
SF IMSG

B8CS
INC
MOV

244
FATFLG
RO,R1

CKLOOP

sISSUE WRITE CHARACTERISTICS

:BR, IF COMMAND ISSUED OK
:BUMP COUNT
:SAVE CONTENTS OF TSER
{WRITE CHARACTERISTISC FAILED
TRAP
.WORD
WORD
;LOOP IF SELECTED

"WORD

TRAP

C3ERHRD
478
WRTMSG
SFIMSG

CsCLP)

;‘““‘.““...‘...““‘.“‘.‘.““.“‘....‘.....“.“...‘..“““‘

: ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
;““.‘.“‘““““““““..““.““““““‘.“‘“.““..“..“.

004737 011104
004737 016426
103407

010001

005237

104456

002212

JSR
JSR
8CS
MOV

PC,REWIND
PC.CHKTSSR
304
RO,R1

;CALL TAPE REWIND COMMAND
:SEE HOW TSSR IS

ERRHRD

ERRNO, T24RWN, PKTSSR

:REWIND NOT ACCEPTED

INC

FATFLG

:BR, IF NO PROBLEM

:SAVE TSSR

;BUMP COUNT

TRAP

CS$ERHRD

TSv?
TEST

14:17

MACRO M1113
14 JUN 84
HARDWARE TESTS 1 8
REVERSE)
AND
(FORWARD
4 : BASIC READ DATA

043154
043156
043160
3565 043162
043162
3566 043164
3567 043170
3568
3569
3570
3571
3572
3573
3574
3575 043176
3576 043204
3577 043210
3578 043210
3579 043214
3580 043220
3581 043224
3582 043230
3583 043234
043236
3585 043240
3589 043244
043244
043246
043250
043252
3590 043254
043254
3591
3592
3593
3594
3595
3596
3597
3598 043256
3599 043262
043264
3601 043270
3602 043272
043274
3607 043300
043300
043302
043304
043306
3608 043310
043310
3609 043312
043312
043312
3610 043314
3611 043322

000737
045326
012136
104406
012703
013737

30¢:
000400

003114

CKLOOP

;LOOP IF SELECTED

MOV
MOV

044172

SEQ 0169

+RECORD SIZE

0256. ,R3

FREE, T24RB

. WORD
.WORD
.WORD

T24RUWN
P¥TSSR

TRAP

CsCLP1

479

:STARTING WRITE BUFFER ADDRESS

1600880820240 8

SRR N0 EERRAREEAE080208080808008840408888008888888808

:READ REVERSE

ATA,ACK COMMAND

;

;0825088888058 40808000

012737
012704
010337
010465
004737
016501
012702
0201C2
001406
005237

100401

044170

044170
65¢$:

044176

016340

2100401, T24PK3
#T24PK3
R4

MOV
MOV
JSR
MOV

R3,T72452
R4 ,TSDB(RS)
PC,WAITF
TSSR(RS),R1
#SSR!SC!BIT1!BIT2,R2
R1,R2
754
FATFLG
ERRNO, T24WDE ,PKTSSR

cHP
BEQ
INC

002212

ERRHRD

104456
000740
044771
012136

75%:

104406

;READ REVERSE DATA,ACK COMMAND

MOV

100206

RRAARREESEA0R 4000000002000 0 08000080880 asus

iSET UP R4 WITH PACKET

;SET UP RECORD SIZE IN PACKET

: ISSUE COMMAND
;WAIT FOR SSR TO SET

:GET TSSR CONTENTS
:SET UP EXPECTED

:ARE

;BR,

THEY EQUAL

IF 0K

;BUMP COUNT
: TSSR INCORRECT AFTER READ DATA
TRAP
. WORD

;LOOP IF SELECTED

CKLOOP

ADDRESS

YRR SRS

RS SRR R

YR YRR

SRR

SR YRS

C$ERHRD

480

.WORD
. WORD

PKTSSR

TRAP

CéCLP1

YRR

T24WDE

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
RIS III I

013701
010102
052702
020102
0V1406
005237

002000

002212

180%:

104406

103402

MOV
MOV
8IS
cHP
8EQ
INC
ERRHRD

044070

104456
000741
044220
015564

104403
023727

SRR

000017

YT SRS

T24BFR+6
,R1
R1,R2

#8IT10,R2

R1,R2

180%

FATFLG
ERRNO, T24NEF ,EXPREC

PRSP

RSP

ESR

PR PR 222

;GET MESSAGE BUFFER
;SET UP EXPECTED
:SET THE NEF BIT IN EXPECTED
;ARE

THEY EQUAL

;bR, IF EQUAL (ALL IS WELL)
:BUMP COUNT
: THE RLL BIT WAS NOT SET IN XSTO

CkLOOP
$3>3>>>>>53>>

ENDSUB

002212

CMP
BLO

END

FATFLG,®15.
9993

481
T2ANEF

.WORD

EXPREC

TRAP

CsCLPL

TRAP

csesuB

SUBTEST

L10067:

C$ERHRD

TRAP
. WORD
.WORD

>>3>3>35>3335>>

: IS ERROR COUNT AT 25
iBR, IF LESS THAN 25

i‘)l‘t
TSv?

TESYT

MARPDMARE

TESTS

MACRO M1113

14 JUN B84

&: BASIC READ DATA (FORWARD AND REVERSE)

3612 043324
3613 04333C
3614
3615
3616
3617

004°3"

017272

9993.

JSR

14:)°

SEQ 0170

PC ,CXDROP

sTRY

TO DROP THE 'NI°

TEST &, SUBTEST 14

3618
3619
3620

{VERIFIES THAT A READ REVERSE COMMAND ISSUED WMILE THE
:TAPE

IS POSITIONED BEFORE

THE

FIRST RECORD ON

TAPE

1 (BUT NOT AT BOT) RESWLTS IN TAPE STATUS ALERT,

3621
3622

3623

3624

3625

3626

AGNSUB

3627 043330

043330
043330
3628 043332
3629 043336
3630 043342
3631
3632
3633
3634
3635
3636
3637
3638 043346

3639 043352

3640 043354
3644 043360
3645 043362
043362
043364
043366
043370
043372
043372
043400

$>>>33>5>3>5>> BEGIN SUBTEST
T4 .14;

104402
004737
004737
004737

JSR
JSR
JSR

046530
046622

PC,T24RT3
PC,T24REST
PC.T24RT?2

»3555333535>

TRAP

1SET COMMAND PACKET UP CLEAR
sSET COMMAND PACKET
;SET UP OTHER COMMAND PACKET

CsB8SUB

1008800000088 0¢00080008000000890800000000¢8000¢8800000000800000008080

;ISS\E CONTROLLER “SOFT~ INITIALIZE - CARRY BIT CLEAR IF ERROR
¢

1060800000800 00000000000080000¢06080008000000080000080000008000080000800

CH4737

016064

005237

002212

103407

010001

JSR

8Cs
INC

MOV
ERROF

104455

PC,SOF INIT

204
FATFLG

RO,R1
ERRNO, SF IERR, SF IMSG

;00 INITIALIZE ON CONTROLLER

;BR IF INIT WAS Ow

s8UMP COUNT

+CONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR Wr/S NOT Ox

013737
012704

TRAP

CSERDF

.WMORD
.WORD

SFIERR
SFIMSG

. WORD

000742
003650
012124

002172
044040

MOV
MOV

044060

UNITN, T240SuW
#T24PACKET R4

482

:SET UP DRIVE NUMBER
1SUBROUTINE NEEDS PACKET ADORESS

1060000080080 000080809000008008008008080000000000008000000080080000¢09

sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
’

1000060080888 084080000000000888008000000000800800080000000080000800080000

043404
043410
043412
043416
043420
043420
043422
043424
043426
043430

004737
103407
005237
010001
104456
000743
005054
012124

010752

JSR

PC.WRTCHR

1 ISSUE WRITE CHARACTERISTICS

INC
MOV

FATFLG
RO,R1

18UMP COUNT
1SAVE CONTENTS OF TSSR

8CS

002212

ERRHRD

244

CxLOOP

244

ERRNO,WRTMSG,
SF IMSG

18R,

IF COMMAND ~,SUED Ox

tWRITE CHARACTERISTISC FAILED

TRAP

1LOOP IF SELECTED

.WORD
.WORD
.WORD

CSERHRD

483
WRTMSG
SFIMSG

TSV?
TEST

MACRO M1113
14 JUN-84 14:17
- MARDMWARE TESTS 1 8
4: BASIC READ DATA (FORWARD AND REVERSE)

3665
3666
3667
3668
3669
3670
3671
3672
3673
3674
3675
3676
3680

043430

C14

SEQ 0171
TRAP

10440¢

S In L)

1000000800000 00080000800000000000080800320300000000000800000800000000

;

1 ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
1000080000008 00008000000004800800800820802800808000000000000000000000000

004737
004737
103407
010001
005237

011104

JSR

002212

8cCs
MOV
INC

016426

104456
000744
045326
012136
104406
012703

013737

PC.REWIND

JSR

PC,CHKTSSR

ERRHRD

ERRNO, T24RWN,PKTSSR

30¢
RO,R}
FATFLG

CxLooP
000400
003114

MOV

044172

1CALL TAPE REWIND COMMAND
$SEE MOW TSSR IS
18R, IF NO PROBLEM
s SAVE TSSR
;BUMP COUNT
sREWIND NOT ACCEPTED

;LOOP IF SELECTED

#256.,R3

FREE . T24R8

sRECORD SIZE

TRAP
. WORD
. WORD

CIERRD

. WORD

484
T24RWN
PXTSSR

TRAP

CsCLP)

1STARTING WRITE BUFFER ADORESS

3108800004000 8000000000800800000000.00000000000008000000300000080000000

{WRITE DATA,ACK,CVCe=1 COMMAND
1000000600000 0¢0008080480000080000000000000000080000008000800800008

043476
043504
043510
043510
043514
043320
043524
043530
043534
043536

043540

043544
043544
043546
043550
043552
3706 043554
043554
3707 043556
3708 043562
3709

3710
3711
3712
3713
3714
3715
3716 043570

012737
012704
010337
010465
004737
016501
012702
020102
001406
005237

140005

044170

654:

044176
000000
016340
000002
000200

sWRITE DATA,ACK,CVC=1 COMMAND

MOV
MOV
JSR
MOV

R3, 12452
R4,TSOB(RS)
PC,WAITF
TSSR(RS?,R1

cHP

R1,R2

INC

FATFLG

1SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
tWAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED
1ARE THEY EQUAL
18R, IF Ox
1BUMP COUNT
sTSSR INCORRECT AFTER READ DATA

8EQ

002c12

ERRHRD

75¢%:

000400
003114

140005, T24Px3
#T24PK3 R4

104456
000745
005111
012136
104406
012703
013737

MOV
MOV

754

ERRNO,WRTERR,PKTSSR

TRAP

;LOOP IF SELECTED

CKLOOP

MOV
MOV

044172

OSSR ,R2

;SET UP R4 WITH PACKET ADORESS

#256. ,R3
FREE, T24R8

485
WRTERR

TRAP

CsCLPL

1RECORD SIZE
1STARTING REAC BUFFER ADORESS

1000080600680 008808028808000808000800000808000520800808008800508080800000

sREAD REVERSE DATA,ACK COMMAND
‘

1606886000480 800800880080080080080088800808088080048008080000000000800000

012737

100401

044170

MOV

#100401 , T24PK3

CS$ERMRD

. WORD
. WORD
. WORD

1READ REVERSE DATA,ACK COMMAND

PKTSSR

TSV?
TEST

HARDWARE TESTS 1 8
MACRO M1113 14-UUN 84 14:17
&: BASIC READ DATA (FORWARD AND REVERSE)

3717 043576
3718 043602
3719 043606
3720 043612
X721 043616
3722 043622
3723 043626
3724 043630

012704
010337
010465
004737
016501
012702
020102
001406

043642
043644

104456
000746
046374
012136

043646

104406

3725 043632
3729 043636
043636
043640

3730 043646

3731 043650
37%% 043654
37

005237

012703
013737

1654 :

044170
044176
000000
016340
000002
000200

INC
ERRHRD

002212

1704 :
000400
003114

MOV
MOV
MOV
JSR
MOV
MOV
cHp
BEQ

#T24PK3 R4
R3,T24S2
R4, TSOB(RS)
PC,WAITF
TSSR(RS),R1
OSSR R
R1.R2
170

FATFLG
ERRANO, T24TRL ,PKTSSR

CxLOOP
MOV
MOV

044172

D14

SEQ 0172

;SET UP RA WITH PACKET ADORESS
$SET UP RECORD SIZE TN PACKE”’
s ISSUE COMMAND
sWAIT FOR SSR T0O SET
tGET TSSR CONTENTS
$SET UP EXPECTED
;ARE THEY EQUAL
18, IF Ox

1 8UMP COUNT
;TSSR INCORRECT AFTER READ DATA
TRAP
CS$ERRD
. WORD
486

;LOOP IF SELECTED
0256. ,R3
FREE, T24R8

. WORD
. WORD

T24TRL
P
3SR

TRAP

sRECORD SIZE
sSTARTING READ BUFFER ADORESS

3734

1008000808800 00000000080000000800000802800800480800086008080004800000000

3735

3738

$188000000600800045008000084080000080600000000000¢00008000000008008080¢

g;gg

;READ REVERSE DATA,ACK COMMAND

3739

3740 043662
3741 043670
3742 043674
3743 043700
3744 043704
3745 043710
3746 043714
3747
3748
3749
3753

043720
043722
043724
043730

012727
012704
010337

010465
004737
016501
012702
020102
001406
005237

043730
043732
043734
043736

104456
000747
046374
012136

043740

104406

3754 043740

3755
3756
3757
3758
3759
3760
3764

.LP1

043742
043746
043750
043754
043756
043760
043764

013701
010102
052702
020192
001406
005237

043764
043766
043770
043772

104456
000750
044272

043774

104406

3765 043774

3766 043776
043776

015564

100401
044170
044176
000000
016340
000002
100204

044170

195¢:

MOV
MOV
MOV

MOV
JSR
MOV
MOV
cP
BEQ
INC
ERRHRD

002212

2004 :

044076

002212

2104

R4, TSDB(RS)
PC.WAITF
TSSR(RS),R1
#SSR!SC!BIT2.R2
R1,R2
20014
FATFLG
ERRNO, T24TRL ,PKTSSR

CKLOOP

MOV
MOV
BIS
cHP
BEQ
INC
EARHRD

000001

0100401, T24Px3
0T24PK3 R4
R3, 72452

CKLOOP
ENDSUB

sREAD REVERSE DATA,ACK COMMAND
;SET UP R4 WITH PACKET ADORESS
1SET UP RECORD SIZE IN PACKETY

1 ISSUE COMMAND
;WAIT FOR SSR TO SET
;GET TSSR CONTENTS
$1SET UP EXPECTED
;ARE THEY EQUAL
1BR, IF O«
;BUMP COUNT
;TSSR INCORRECT AFTER READ DATA

;LOOP IF SELECTEOD

T24BFR+14 ,R1
R1,R2
MIT0,R2
R1,Re
210¢
FATFLG
ERRNO, T24LOR,EXPREC

TRAP
. WORD
. WORD
. WORD

CSERMRD
487
T24TRL
PKTSSR

TRAP

CsCLP)

TRAP
. WORD
. WORD
. WORD

CSERMHRD
488
T24L0R

TRAP

CiCLPL

;1GET MESSAGE B'FFER (XST3)
$SET UP EXPECTED
1SET THE RIB BIT IN EXPECTED
sARE THEY EQUAL
;BR, IF EQUAL (ALL IS WELL)
;8UMP COUNT
; THE RIB BIT WAS NOT SET IN XSTO

$2>3335>3355>> END SUBTEST
L10070:

EXPREC

>>>33333>3>»

TSV?
TEST

14 JUUN 84
MACRO M1113
HARDWARE TESTS 1 8
4 : BASIC READ DATA (FORWARD AND REVERSE)

3767
3768
3769
377¢
3771
3772
3773
3774
3775
3776
3777
3778
3779

043776
044000
044006
044010
044014

104403
023727
103402
004737

044014
044020
044022
044026
044026

004737
103002
000137

044030

378C

3787 044040
3788 044042
3789 044044
3790
3791
3792
3793
3794
3795

100204
044050
000012

044062

3814

3815
3816

3817

3818
3819
3820
3821
3822
3823 044200
3824 044200
3825 044201
3826 044202

034516

'
163s:

JSR

FATFLG,015.

9994

PC.CKDROP

TRAP

;IS ERROR COUNT AT 2%
t1BR, IF LESS THAN 25
;TRY TO DROP THE UNIT

BCC

PC,TSTLOOP
163¢

;00 WE NEED TO ITERATE TEST

T24L00P

:BR, IF NO LOOP REQUIRED
sEXECUTE AGAIN

EXIT

TSY

sALL DONE TMIS TEST

TRAP

.WORD

.BLKB

10-<. -TSV2ET>

.WORD
. WORD
. WORD
. WORD

100204

T24PACKET
:

T24DATA:

000024
T240SW:
T24BFR:

CIESB

CIeEXIT

L100S2

.WORD
.WORD
. WORD
. WORD
.WORD
.BLXW

T24DATA
0
10.

; COMMAND PACKET FOR TEST
sWRITE CHARACTERISTICS COMMAND, WITH IE, ACK
s ADDORESS OF CHARACTERISTICS BLOCK
$STARTING VALUE OF BLOCK SIZE
s CHARACTERISTICS DATA BLOCK

T24BFR
0

s ADDRESS OF MESSAGE BUFFER

;sORIVE SELECTION BITS 2 O
:MESSAGE BUFFER

20.
0

2s.

;LENGTH OF MESSAGE BUFFER

{WRITE SUBSYSTEM MEMORY COMMAND PACKET

044144
044150
044150
044152
044154
044156
044160
044170
044170
044172
044172
044174
044176

016546

9994
.

cMe
8L0
JSR

SEQ 0173

:LOCAL STORAGE FOR THIS TEST

3796
3797 044062
3798
3799

3800
3802
3804
3805
3806
3807
3808
3809
3811
3813

nLr2r2

000017

104432
002664

3781

3782
35784 044032
3786 044040

002212

14:17

b 14

T24PK2:

100205
003114

T24PK3:

T24R8:
T24WB:
T245Z:

.BLKB

10-<.-TSVRET>

. WORD
.WORD
. WORD
. WORD

100206
T248F
2
0
6.

.BLKB

10-¢<,-TSVRET>

. WORD

100205

sREAD COMMAND,

.WORD

FREE

:ADDRESS OF WRITE BUFFER

.WORD

.EVEN

0
0

;WRITE SUB SYS MEM COMMAND, IE AND ACK
: ADORESS OF SELECT BLOCK DATA
:SIZE OF DATA PACKET

+SIZE OF BUFFER (EXTENT)

T24BF2:
T248S0:

T248S1:
T24S2:

.BYTE
.BYTE
.WORD

10
200

IE AND ACK

1BSELO AREA
1BSEL1 AREA
1SEL 2 AREA

TSV7?

TEST

- HARDWARE TESTS 1 8

MACRO M1113

14 JUN 84

4&: BASIC READ DATA (FORWARD AND REVERSE

382 044204
3828
3829

12452.

000000

3830
3831

: TAPE

044206
044210
044212
044214
044216

100005
100405
102005
177777

. WORD

.EVEN

14:17

SEQ 0174

MOTION PACKET

;DATA ARE
A

COMMAND

VALUES

T24RN:
T24WOR:

.WORD
.WORD

100005
100405

:READ DATA (NEXT)
;READ DATA RETRY

T24CON:

.WORD
.WORD
.WORD

102005
177777
O

s WRITE CONTINOUS
:END OF DATA
;OELAY STORAGE AREA

T240LY:

:LOCAL TEXT MESSAGES FOR TEST
044220
044272
044342
044431
044515
044572

044737
044771
045043
045110
045176
045253
045326
045375
045450
045515
045570
045656
045727
046002
046053
046142
046224

046306
046374
046462

116
122
124
124
124
111
111
122

124
124

122
124
122
122
124
104

124
124
103
124
127
122
122
122
122
102

105
111

123
123
123
154
154
105
123

141
141

105
123

145
101

123
162
123
123

123
122
145
145
145
145
141

106
102

123
123
123
154
101

123

160
164
101

123
167
115
123
151
123
123
103

102
111
141
141

163
141

163

T24NEF: _ASCIZ
T24LOR: .ASCIZ

‘NEF Not
'RI8 Not

T24NXM: .ASCIZ
T24MDF: .ASCIZ

'TSSR Not Correct After NXM Memory Address In Packet
'TSSR Not Correct After Illegel Mode Bits Set’

T24WDE:
T24B0T:

'TSSR Not Correct After WRITE DATA Commend’
'Tepe Not At BOT After REWIND “ommend’

T24WDG:

.ASCIZ

T24ILA:
T24L0Q:
T24SSR:

.ASCIZ
.ASCIZ
.ASCIZ

T29D0TA:

.ASCIZ

T24EQT:
T24TM:
T24RWN:
T24RNC:
T24AMS:
T240FL:
T24WDD:
T24WDC:
T24VCK:
T24BA:
T24USS:
T2ALON:
T24LOP:
T24P8P:

.ASCIZ
.ASCIZ

.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

T24TRL: .ASCIZ
TST2410:
.EVEN

Set After NON-EXECUTABLE FUNCTION
Set After READ REVERSE Into BOT'

'TSSR Not Correct After Illegel Buffer Address B:.ts Set

‘Illegel Address Bits, Feiled To Set ILABit
'Illegel Mode Bits, Failed To Set ILC Bit In
'READ COMMAND Not Accepted’

In XSTO
XSTO'

'Dete Written To Tape Not Equel To Dete Read From Tape

'READ DATA OVER EDQT GAVE NO TAPE STATUS ALERT
'TSSR Not Correct After READ COMMAND Re ject
'Rewind (POSITION) Command Not Accepted’
'RAM Error, Correct Detas Pettern Not In Ram
'TSSR Init. Feiled After READ COMMAND'
'Drive 7 Select Failed To Set "“OFL” In TSSR’
'TSSR Not Correct After READ DATA Command, SWE B t Set
'TSSR Not Correct After READ DATA Commend’
'CVC Set, Didn'‘'t Reset VCK In Message Buffer
'TSBA Not Correct After READ DATA Command’
'MWRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)
'Resding Long Record Failed To Set RLL Bit In XSTO
'Reeding Long Record Feiled To Set RLS Bit In XSTO
'Residual Byte Count Incorrect After Short Record Read

‘Reoding L
Record Ffailed To Give Tape Status Alert
.ASCIZ
'Besic Read Oste (Forward and Reverse)’

HE4

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

sWRITE SUBSYSTEM MEMORY COMMAND

046530
046530
046534
046540
046544

T24REST:

012701
012721
012721

044040
100004
044050

SAVREG
MoV
MOV
MOV

@T24PACKET,R1
9100004, (R1)+
#T24DATA,(R1)+

:SAVE THE REGISTERS

1START OF THE PACKET

tWRITE SUBSYSTEM MEM.

WITH ACK,

+ ADDRESS OF CHARA1STICS DATA BLOCK

TSv?
TEST

MACRO Mi113
14 UUN 84
HARDWARE TESTS 1 8
4&: BASIC READ DATA FORWARD AND REVERSE®

3884 046550
3885 046552
3886 046556
3887 046562
3888 046564
3889 046570
3890 046572
3891 046576
3892 046602
3893 046610
3894 046612
3895 046616
3896 046620
3897
3898
3899 046622
3900 046622
3901 046626
3902 046632
3903 046636
3904 046642
3685 046644
3906 046650
3907 046652
3908 046656
3709 046660
X0 046662
3vll 046664
3912 046664
3913 046670
3914 046674
3915 046700
3916 046704
3917 046706
3918 046712
3919 046714
046714
046714
3920
3921
3922
3923
3924
3925
3926
3927
3928
3929
3930

3931
3932
3933
3934
3935
3936
3937
3938

005021
012721
012721
005021
012721
005021
012711
012702
012762
005742
022702

000012
044062
000024

000000

000030
177777

044062

644 :

000000

001371
000207

012701
012721
012721
005021
012721
005021
012701
005021
005011
000207

012701
012721
012721
005021

044150
100206
044200

044200

(R1).
€10.,(R1).
OT248FR,(R1).
(R1).
020.,(R1)+
(R1).
#0,(R1)
24, ,R2
0177777, T124BFR(R2)

BNE

644

SAVREG
MOV
MOV
MOV
CLR
MOV
CLR
MOV
CLR
CLR

#T24PK2
,R1
#100206,(R1).
#T24BF2,(R1)»
(R1).
#6.,(R1).
(R1).
0T248F2,R1
(R1).
(R1)

TST
cMP

RTS

124R\3:

SAVREG

MOV
MOV
MOV
CLR
MOV

044170

012711
000207

SEQ 017S

CLR
MOV
MOV
CLR
MOV
CLR
MOV
MOV
MOV

RTS

T24RT2:

14:}17

RTS
ENDTST

-(R2)
00,R2

+EXTENDED ADORESS

:SIZE OF DATA BLOCK IN BYTES

s ADDRESS OF MESSAGE BUFFER
tLENGTHM OF MESSAGE BUFFER

s SELECT ORIVE ZERO
tNUMBER OF LOCATIONS TO BE CLEARED
sALL ONES TO MESSAGE BUFFER
sNEXT LOCATION
;CKECK FOR END OF LOOP
;KEEP GOING UNTIL DONE
s RETURN

1SAVE THE REGISTERS
1START OF THME °ACKET

sWRITE SUBSYSTEM MEM.

1 ADORESS OF DATA BLOCK

WITH ACK,

;EXTENDED ADORESS

1SIZE OF DATA BLOCK IN BYTES

;POINT TO DATA SEL AREA

;RETURN

0724PK3 ,R1
#0,(R1).
#0,(R1).
(R1).
#0,(R1)

;SAVE THE REGISTERS
;START OF THE PACKET
;CLEAR AREA OUT
s ADDRESS OF DATA BLOCK
;EXTENDED ADORESS
:SIZE OF DATA BLOCK IN BYTES
;RETURN

L10052:

104401

.SBTTL

TEST

TRAP

SPACE RECORDS

HE4

s THIS TEST VERIFIES THAT THE SPACE RECORDS FORWARD AND SPACE

{RECORDS REVERSE POSITION COMMANDS OPERATE PROPERLY WHEN SPACING

;OVER NORMAL DATA RECORDS. OPERATION WHEN SPACING OVER TAPE MARKS
;IS VERIFIED IN A SUBSEQUENT TEST., THE BASIC WRITE DATA TEST
;SHOULD MAVE BEEN RUN SUCCESSFULLY FOR THIS TEST TO PRODUCE MEANINGFUL
;RESULTS. THIS TEST CONSISTS OF A SERIES OF SUBTESTS. IN EACH
;OF THE SUBTESTS, THE TAPE IS ENTIRELY WRITTEN WITH RECORDS
sOF VARYING SIZES AND DATA CONTENT; THE FIRST 4 BYTES OF EACH
{RECORD INDICATE THAT RECORD'S RELATIVE POSITION ON TAPE. AFTER

;EACH SPACING OPERATION, THE TAPE POSITION IS VERIFIED BY READING
; THE NEXT OR PREVIOUS RECORD AND COMPARING THE POSITION DATA WITH
s THE EXPECTED RESWLT.
;

;THE TEST CONSISTS OF THE FOLLOWING 8 SUBTESTS

CSETST

=14
TSV?

TEST

HARDWARE

TESTS

SPACE RECORDS

3939
3940
3941
3942
3943 046716
046716
3944 046716
3949 046724
3950 046730

3951 046734
3952 046740
3953

MACRO M1113

14:17

SEQ 0176

BGNTS?Y

012737
004737
012700
004737
012737

006446

017364
055440
016600
000005

002170

MOV

002206

MOV
JSR
MOV

JSR

SEPRT2,FPRTSW

PC,KTOFF
#1S72510,R0
PC,TSTSETUP
#5,LO0PCNT

1S::

1 SECONDARY ERROR MESSAGE

sDOON'T NEED LOTS OF MEMORY
;ASCII MESSAGE TO IDENTIFY TEST
;D0 INITIAL TEST SETUP

;PERFORM S

ITERATIONS

3954
3955
3956
3957
3958

:TEST 5, SUBTEST 1

:VERIFIES THAT A SPACE RECORDS FORWARD COMMAND WITH

:THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS REJECTED IF
:THE VOLUME CHECK (VCK) FLAG IS SET.

3959

3960
3961
3962
3963
3964
3965 046746
3966 046746
046746
046746
3967
3968 046754
3969 046760
3970 046764
3971 046770
3972
3973
3974
3975
3976
3977
3978
3979 046776
3980 047002
3981 047004
047004
047010
047012
047016
047020
047024
047026
047032
3982 047034
3983 047040
3984 047042
398¢ 047046
3989 047052
047052
047054

14 UUN 84

T25L00P:

104402
004737
005037
004737
004737
012737

055456
054270
055550
055612
176750

JSR
CLR
JSR

JSR
MOV

054272

:2>>>>>>>>>>>

BGNSUB

BEGIN

SUBTEST

15.1:
PC,T25REST
T2SCNT
PC,T25RT2
PC,T25RT3

#65000.,T250LY

>>>>5>3333>3>

TRAP

sSET COMMAND PACKET
;CLEAR THE RECORD COUNTER AREA
;SET UP OTHER COMMAND PACKET
;SET UP OTHER COMMAND PACKET
$SET UP LOOP COUNTER

csBsuB

1808088808880 0088880888888800888800380805888480800008340840800000042

;ISSUE CONTROLLER "SOFT* INITIALIZE - CARRY BIT CLEAR IF ERRCR
¢

1885880888888 8488888880880820088
0808800082802 ESSE000 0008800808000 ¢

004737
103427

016064

012727
000000
013727
000000
005367
001375
005367
001367
005337
001356
005237
016501

000250

104455

000765

5%:

JSR
8CS
DELAY

PC,SOFINIT

104
250

100 INITIALIZE ON CONTROLLER
18R IF INIT WAS OK
:0ELAY IF REQUIRED

002116

177772
177756
054272
002212
000002

DEC
INC
MOV
ERROF

e300
v

;DEC DELAY COUNTER

FATFLG
TSSR(RS),R1

:8UMP COUNT

ERRNO, SFIERR , SF IMSG

MOV
.WORD
MOV
.WORD
otC
BNE
0eC
BNE

0250,(PC).
O

LSOLY,(PC).
O
6(PC)
.

-22(PC)
. 20

1BR, IF LOOP IS REQUIRED

i CONTENTS OF TSSR REGISTER
1FATAL ERROR

TSSR WAS NOT OK
TRAP

.WORD

CS$ERDF

501

TSv?
TEST

HARDWARE

TESTS

SPACE RECORDS

047056
047060
3990 047062
3991 047062
3992 047070
3993
3994
3995
399¢
3997
298
39

003650

012124

013737
012704

. WORD
| WORD

002172

054110

004737
103407
005237
010001

054130

010752

mov
MOV

JSR
8CS
INC
MOV
ERRHRD

002212

UNITN, T2505W

aT2SPACKET ,R4

SFIERR

SF IMSG

{SET UP DRIVE NUMBER

: SUBROUTINE NEEDS PACKET ADDRESS

PC.WRTCHR
15
FATFLG
RO.R1

ERANO, WRTMSG, SF IMSG

;ISSUE WRITE CHARACTERISTICS
{BR, IF COMMAND ISSUED OK
BUMP COUNT
:SAVE CONTENTS OF TSSR

{WRITE CHARACTERISTISC FAILED

104456
000766
005054
012124

TRAP

. WORD
- WORD
- WORD

CS$ERHRD
502

WRTMSG
SF IMSG

: ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
;‘.““.““‘.....““.‘..“..“‘““““.‘..“““‘..“.“....“.‘

4013

4025

SEQ 0177

(10088000488 00808080008008882088408008808880420000080820800000004004000

4014
4015 047120

4024

114

;‘““.“.“.“““..““““‘.‘.‘...‘..".“.“.“..“““...“..‘

4008
4009
4010
4011
4012

4018

14:17

{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

4007 047110
047110
047112
047114
047116

4019
4023

14 JUN-84

g‘.‘.‘.“.“““.“‘..“".“““‘..‘..“““““““...‘..".‘...0

4000 047074
4001 047100
4002 047102
4006 047106

4016
4017

MACRO M1113

047120
047122
047125
047130
047132
047136
047136
047140
047142
047144
047146
047146

104406
004737
103407

010001
005237

1S¢:
011104

JSR
8CS
MOV
INC
ERRHRD

002212

104456
000767
055245
012136

CKLOOP

TRAP

PC . REWIND
304
RO.R1
FATFLG
ERRNO, T2SRWN, PKTSSR

;CALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
:SAVE TSSR
;BUMP COUNT
REWIND NOT ACCEPTED
TRAP

308:

104406

4026
4027
4028
4029
4030

CKLOOP

;LOOP IF SELECTED

CsCLPL

CS$ERHRD

. WORD
- WORD
" WORD

503
T2SRWN
PKTSSR

TRAP

CsCiP1

1688204688880 88088800800088080005808080808088088008808088804008080080880008

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

4031
4032 047150
4033 047154

4034
4035
4036
4037

047156
047162
047164
047166
4041 047172
047172
047174

;““““‘“““““‘.‘..“.‘..““““‘.‘.“.“.‘....“‘.‘.....‘.‘
013701
010102

054140

052702

000002

005237

002212

020102
001406

10445¢€
000770

MOV
MOV

T2SBFR+6,R1
R1,R2

JPICK UP XSTO
iSET UP EXPECTCD

cHP

R1,R2

;DOES EXP

BEQ
INC

404
FATFLG

i8R, IF EQUAL
;BUMP COUNT

BIS

ERRHRD

eB8IT1,R2

ERRNO, T2580T , EXPREC

{SET BOT BIT IN EXPECTED
L TAPE NOT

REC

(OK)
80T

AFTER REWIND
TRAP

. WORD

CS$ERHRD
S04

J1d
TSVv?

TEST

HARDWARE TESTS 1
S : SPACE RECORDS

047176
047200
047202
047202
047204
047210

MACRO M1113

054435
015564

104406
012703
013737

40¢$ .
000400
003114

14 JUN 84

(00 A

SEQ 0178

CKLOOP

;LO0OP IF SELECTED
9256, ,R3
FREE, T2SRB

MOV
MOV

054242

14:17

AR08

. WORD
. WORD

125807
EXPREC

TRAP

cicLPl

tRECORD SIZE
sSTARTING WRITE BUFFER ADDRESS

008 6004008008000 0820088000000¢488088084808400000¢

{WRITE DATA,ACK,CVCe1 COMMAND
1080008000580 0 0808800080808 44008488400000088008040080888080080000000080¢

047216
047224
047230
047230
047234
047242
047250
047254
047260
047264
047270
047272
047274
047300
047302
047306
047306
047310
047312
047314
047316
047316
047320
047322
047326
047330
047332

012737
012704

140005
054240

010337

054246
054270
000001

013777
062737
010465
004737
016501
012702
020102
001411
032701
001014
005237

054240

65¢%:

133652

054270

016340

MOV
MOV

9140005, T25PK3
2T25PK3
R4

sWRITE DATA,ACK,CVC=1 COMMAND
;SET UP R4 WITH PACKET ADDRESS

MOV
MOV
ADD
MOV

R3,T25S52
T25CNT, 8FREE
91, T25CNT
R4,TSDB(RS)
PC,WAITF
TSSR(RS),R1
@SSR ,R2
R1,R2
754

;SET UP RECORD SIZE IN PACKET

000200

¥8IT2,R1
1204

FATFLG

002212

ERRNO,WRTERR,PKTSSR

104456
000771

;LOAD UP RECORD COUNTER IN WRT BUFFER

;GET READY FOR NEXT RECORD
; ISSUE COMMAND
sWAIT FOR SSR TO SET
;:GET TSSR CONTENTS
;SET UP EXPECTED
;ARE

THEY

:BR,

IF 0K

EQUAL

;CHECK FOR TAPE STATUS ALERT
:BR, IF TSA IS SET (SUSPECT IS €0T)
;:8UMP COUN~
; TSSR

INCORRECT

AFTER

005111

012136

104406
005203
022703
001340

75%:

;LOOP IF SELECTED
R3

0512. ,R3
654
1254

001000

000415

120%:
18888

WRITE DATA
TRAP
CS$ERHRD

. WORD
. WORD
. WORD

505
WRTERR
PKTSSR

TRAP

CsCLP1

;:8UMP RECORD SIZE
;END OF RECORD YET
;:BR, IF MORE RECORDS TO WRITE
:ENOUGH RECORDS

8888402068084 80E0000008308840000888883008308008480088804¢

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
»

(P88 286806208880 88048 8088088000208 0880808388088084488284020280420008

047332
047336
047340
047344
047346
047350
047354
047354
047356
047360

013701
010102
052702
020102
001406
005237

104455

000772
054571

054140
000001

0J2212

MOV
MOV
8IS
cHp
8EQ
INC
ERRDF

T258FR+6,R1
R1,R2

#8ITO,R2

R1,R2

125%

FATFLG

ERRNO, T2SNET ,EXPREC

sQUICK CHECK FOR EOT SET
;SET UP EXPECTED
;SET THE EOT BIT XSTC
;IS THE EOT BIT SET IN XSTO
;BR, IF SET (GOOD)
s8UMP COUNT
sDEVICE FATAL NOT EOT FOUND ETC.
TRAP

CS$ERDF

. WORD

506

. WORD

T2SKET

|7 |
TSV?

TFSY

- HARDWARE TESTS 1 8
S: SPACE RECORDS
047362

4094 047364
4095
4096
4097
4098
4099
4100
4101

047364
047370
047372
047374
047400
047400
047402
047404
047406
4110 047410
047410
4111 047412
4112 047420
4102
4103
4104
4105
4109

4113

MACRO M1113

015564

SEQ@ 0179

.WORC

EXPREC

1080808008048 03800840000300008080880088048¢84000000808000008803080000¢

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
1900808008808 888888088088¢0000020888482400808204000808048084800880888800¢

004737
103407
10001
005237

JSR
8cs
MOV
INC
ERRHRD

011104

002212

PC,REWIND

;CALL TAPE REWIND COMMANO
:BR, IF NO PROBLEM

130¢

: SAVE TSSR

RO,R1

FATFLG

ERRNQ, T2SRWN ,PKTSSR

;BUMP COUNT

;REWIND NOT

ACCEPTED

104456
000773

055245
012136

104406
012737
012704

130¢:
000007
054110

CKLOOP
MOV
MOV

054130

;:LOOP IF

SELECTED

TRAP

.WORD
.WORD
.WORD

507
T2SRWN
PKTSSR

TRAP

CsCLP)

:SET UP DRIVE NUMBER
: SUBROUTINE NEEDS PACKET ADDRESS

@7,7250SW
OT2SPACKET
R4

CS$ERHRD

1880808488480 0488888R 0804008008880 4800808004800880880808088080008008

;HRITE CHARACTERISTICS COMMAND (CALL TC WRTCHR)
1880458808888 8082408888804

047424
047430
047432
047436
047440
047440
047442
047444
047446
4128 047450
047450
4129 047452
4130 047456

004737
103407
005237
010001

047460
047466
047474
047500
047504
047510
047512
047514
047520
047520
047522
047524
047526
4144 047530

112737
112737
012704
010465
004737
103407
010001
005237

4131
4132
4133
4134
4135
4136
4137
4138
4139
4143

14:17

125¢:

4114

4115
4116
4117
4118
4119
4120
4121
4122
4126
4127

14-JUN-84

JSR

010752

104456
000775
054274
012136

1404

RO,R1
ERRNO,WRTMSG, SFIMSG

140%:
002216
000200
000010
054220

PC,WRTCHR
FATFLG

002212

104456
000774
005054
012124
104406
005737
001044

8 0080048088808 080420 0088020008088 0040¢

054251
054250

TRAP

CS$ERHRD

TRAP

CsCLP1

.WORD
.WORD
.WORD

EXTFEA
160¢

;:CHECK FOR EXTENDED FEATURES
:BR IF SWITCH IS ON

MOVB
MOV
MOV

#200, 725851
910,T7258S0
0T25PK2,R4
R4, TSDB(RS)

;WRITE MISCELLANEOUS CONT/READ STATUS
sFUNCTION SELECTION BIT (TURN ON EXTFEA MW SWITCH)
;WRITE SUBSYS MEM PACKET

: ISSUE COMMAND

MOV

RO,R1

;ERROR,

ERRNQ, T25SSR,PKTSSR

; TSSR NOT CORRECT AFTER WRT. MISCELLANEOQUS

INC
ERRHRD

PC,CHKTSSR
1504
FATFLG

;WAIT FOR SSR

;BR,

IF NO ERROR

SAVE TSSR

;BUMP COUNT

TRAP

.WORD
. WORD

150%:

508
WRTMSG
SFIMSG

TST
BNE

JSR
8CS

002212

; SCOPE LOOP

CKLOOP

MOV8

016426

: ISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED OK
:BUMP COUNT
:SAVE CONTENTS OF TSSR
+WRITE CHARACTERISTISC FAILED

CKLOOP

;LOOP IF SELECTED

.WOROD

C$ERMHRD

509
T255SR

PKTSSR

L 14
TSV7
TEST

HARDWARE TESTS 1 8

SPACE RECORDS

047530

4145 047532
4146 047540
414°

104406

012737
012704

000007
054110

MACRO M1113

14 JUUN 84 14:17

054130

4{48

MOV
MOV

SEQ 0180
TRAP

07,T1250SW
#T2SPACKET R4

sSET UP DRIVE NUMBER
;sSUBROUTINE NEEDS PACKET ADORESS

(0008000008080 000000000808000000000088¢0000000000000000080¢0806008084¢

4149
4150

:
;WRITE

4151

4152

CHARACTERISTICS COMMAND

(CALL

TO WRTCHR)

;8080800000000 0008800000000400000080804840004880000808800808088840800¢

4153

4154 047544
4155 047550
4156 047552
4160 047556
4161 047560

047560

047562
047564
047566

4162 047570
047570
4163 047572
4164 047576
4165 047602
4166 047604
4170 047610
047610
047612
047614
047616
4171 047620
047620

4172

004737
103407
005237
010001

010752
002212

JSR
B8CS
INC

PC,WRTCHR
160
FATFLG

; ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED Ox
1BUMP COUNT

ERRMRD

ERRNO,WRTMSG,
SF IMSG

iWRITE CHARACTERISTISC FAILED

MOV

104456

RO,R1

$ SAVE CONTENTS OF TSSR

000776
005054

CSERHRD

. WORD

SF IMSG

.WORD
. WORD

012124

104406
016501
032701
001006
005237

TRAP

1604 :
000002
000100

CxLOOP
MOV
8IT
BNE
INC
ERROF

002212

104455
000777
055314
012124

170$:

: SCOPE L 0P

TSSR(RS),R1
60FL ,R1
1704
FATFLG
ERRNO, T2SOFL , SFIMSG

CKLOOP

;LOOP IF

SELECTED

104406

. WORD
.WORD

T250FL
SF IMSG

TRAP

CsCLP1

;808088808 0080000048088000048008080480000000000080080886808800000800000808

4174

;

:1’7'5
176

; SPACE FORWARD COMMAND
H

4179
4180
4181
4182

510
WRTMSG

TRAP
CsCLP1
tGET TSSR CONTENTS
;CHECK FOR THE OFFLINE BIT SET
sBR, IF OFFLINE (GOOD)
;BUMP COUNT
;OFF LINE SHOULD HAVE BEEN SET (BAD)
TRAP
CSERDF
. WORD
S11

417%

4177
4178

CsCLP]

IN PLACE

;8008600800008 808088008000008080080808800808080080888008088008008808

047622
047630
047636
047642

012737
012737
012704
010465

140010
000001
054240
000000

4183 047646
4184 047652

004737
016501

4185
4186
4187
4188

012702
020102
001406
005237

047656
047662
047664
047666

054240
054242

180%:

MOV
MOV
MOV
MOV

2140010, T25PK3
01,T25R8
4T25PK3 R4
R4 ,TSDB(RS)

;: SPACE FORWARD COMMAND IN PLACE
tNUMBER OF RECORDS TO SPACE
;R4 = POINTER T0O PACKET
: ISSUE COMMAND

016340
000002

JSR
MOV

PC,UAITF
TSSR(RS) ,R1

tWAIT FOR SSR TO SET
:GET TSSR CONTENTS

100306

MOV
cHe
BEQ
INC

OSSR!SCIOFL!!'BIT1'BIT2,R2
;SET UP EXPECTED
R1,R2
;ARE THEY EQUAL
190¢
;BR, IF OK ESP. FUNCTION REJECT
FATFLG
;BUMP COUNT

ERRHRD

ERRNO,T25TM,PKTSSR

002212

4192 047672

047672

:TSSR

INCORRECT

AFTER

TAPE

MOTION CMD

104456

TRAP

047676

054502

. WORD

047702
4194 047704

104406

047674

047700
4193 047702

001000
012136

.WORD

1904

CKLOOP

:1LOOP IF SELECTED

ENDSUB

§22>53555>3>>

END

. WORD

CS$ERHRD

S12

T25TM

PKTSSR

TRAP
CS$CLP1
SUBTEST 5>333>335>>5>

TSv?
TEST

HARDWARE TESTS 1
S + SPACE RECORDS

4195
4196
4197
4198

4199
4200
4201
4202

047704
047704
047706
047714
047716
047722

MACRO M1113

14 JUUN R4

14:17

M14

SEQ 0181
L10072;

104403

023727

103402
004737

TRAP

002212

000017

017272

cMP

FATFLG, @15,

: IS ERROR COUNT AT 25

JSR

PC.CKDROP

sTRY

B8LO
999

999

:BR,

CIES 8

IF LESS THAN 25
TO DROP

THE

UNIT

:TEST 5, SUBTEST 2

4203
4204
4205

;VERIFIES THATM A SPACE RECORDS REVERSE COMMAND WITH

4206
4207
4208
4209
4210
4211 047722
047722

047722
4212 04772¢
4213
a~y”

;THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS REJECTED IF
; THE VOLUME CKECK

.
104402
004737
NO4 737

AT737

055456
055612
055550

(VCK) FLAG

1S SET,

$3>335>3>3>5>>> BEGIN SUBTEST 55555333555>

BGNSUB

715.2:

TRAP

JSR

PC,T25SREST

;SET COMMANC PACKET

JSR

PC,.T25RT?2

;SET UP OTHER COMMAND PACKET

JSR

PC,T2SRT3

£$8SuUB

;SET UP OTHER COMMAND PACKET

«r

(0068888000060 000808080880088880083008080008008888880000808880880040

[TN

4217
4218
4219
4220
4221
4222
4223
4224
4228
4229

;ISSUE CONTROLLER "SOFT* INITIALIZE

;t“t“‘t“...‘t‘.“‘t‘.‘.‘.t‘t“““““‘.‘0““‘.“0‘.“0“‘0‘0“
047740
047744

047746
047752
047754

047754
047756
047760
047762
4230 047764
4231

4232 047772
4233

4234
4235
4236
4237
4238
4239
4240
4241
4242
4246
4247

CARRY BIT CLEAR IF ERROR

004737
103407
005237

010001

016064

JSR

PC,SOFINIT

;00 INITIALIZE ON CONTROLLER

MOV
ERRDF

RO,R1
ERRNO, SFIERR, SFIMSG

;CONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT 0w

B8CS
INC

002212

10¢
FATFLG

;B8R IF INIT WAS 0K
;:BUMP COUNT

TRAP

104455

001001
003650
012124
012737

000007

012704

054110

054130

10$:

. WORD
.WORD
. WORD

MOV

07,1250SwW

;SET UP DRIVE NUMBER

MOV

O0T2SPACKET ,R4

; SUBROUTINE NEEDS PACKET ADDRESS

CS$EROF

S13
SFIERR
SFIMSG

(0008488808008 80000880880008000808000800000000800000
NtaRRttotnsatts

;URITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
;““‘t‘“ttt‘t‘“tttt‘tt“tttt“tttt‘t‘t“tt“‘t‘ttttt‘tt‘tt‘t‘.t‘
047776
050002
050004
050010
050012
050012
050014

004737
103407
005237
010001

104456

001002

010752
002212

JSR

PC,.WRTCHR

MOV

RO,R1

8CS
INC
ERRHRD

;ISSUE WRITE CHARACTERISTICS

1S
FATFLG

;:BR, IF COMMAND ISSUED OK
;BUMP COUNT

ERRNO,WRTMSC, SFIMSG

tWRITE CHARACTERISTISC FAILED

;SAVE CONTENTS OF

TSSR

TRAP

. WORD

CS$ERHRD

S14

TSv7

TEST

HARDWARE

TESTS

050016
050020

005054
012124

SPACE RECORDS

4248
4249
4250
4251
4252
4253
4254
4255 050022

4256
4257
4258
4259
4263

050022
050024
050030
050032
050034
050040
050040
050042
050044
050046
050050
050050
050052
050056

050060
050066
050074

050100

050104
050110
050112
050114
050120
050120
050122
050124
050126
4280 050130
050130
4281 050132
4282 050140
4283
4284
4285
4286
4287
4288
4289
4290 050144
4291 050150
4292 050152

4296 050156
4297 050160
050160
050162
050164

1 8

14 JUN 84

MACRO M1113

N14

14:17

SEQ 0182

L4O0RD
.WORD
165080048800 80 88000020 R

WRTMSG
SFIMSG

ARS8 R0RECR00EERC0008808008000088880s

; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
1R

R LSRR RS

JSR
8CS

011104

002212

104456
001003
055245
012136
104406
005737
001044

112737
112737
012704
010465
004737
103407
010001
005237

002216
000200
000010
054220
000000
016426

PC.REWIND
30$

CsCLP)

MOV

RO,R1

; SAVE

INC
ERRHRD

FATFLG
ERRNO, T25RWN,PKTSSR

;:BUMP COUNT
;REWIND NOT ACCEPTED
TRAP

C$ERHRD

TSSR

;:LOOP IF

515
T2SRUWN
PKTSSR

TRAP

C$CLP1

140¢:

TST
BNE

EXTFEA
160¢

;:CHECX FOR EXTENDED FEATURES SW SWITCH
;BR IF SWITCH IS ON

MOVB

9200, 725851

:WRITE MISCELLANEOUS CONT/READ STATUS

MOV
MOV
JSR
8LS

0T25PK2,R4
R4,TSDB(RS)
PC,CHKTSSR
150

;WRITE SUBSYS MEM PACKET
; ISSUE COMMAND
;WAIT FOR SSR
;BR, IF NO ERROR

INC
ERRHRD

FATFLG
ERRNO, T25SSR,PKTSSR

;BUMP COUNT
:TSSR NOT CORRECT

MOV8

10,T7258S0

MOV

1504 :

sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH)

RO,R1

;ERROR,

CkLOOoP
97,72505u
#T2SPACKET ,R4

RIII YT TSI

SAVE

TSSR

;:LOOP IF SELECTED

MOV
MOV

054130

SELECTED

.WORD
.WORD
.MOKD

CKLOOP

002212

000007
054110

TRAP

;CALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM

30%:

054251
054250

104456
001004
054274
012136
104406
012737
012704

AL RS LR AR L0 0L 0020 AR 0005000080000 000000 0080088800004 0

CKLOOP

15$:

104406
004737
103407
010001
005237

SIS

2SR PSS

AFTER WRT. MISCELLANEOUS
TRAP
CS$ERHRD
.WORD
516
T25SSR
.WORD
PKTSSR
.WORD

;SET UP DRIVE NUMBER
:SUBROUTINE NEEDS PACKET
TR PR

SRR S

RSP

SRS AS

VSV RS R YR SR

TRAP

CsCLP1

ADDRESS
2

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
BRI

004737

103407
005237
010001

104456
0019205
005054

010752
002212

JSR
BCS
INC

MOV
ERRHRD

TR T

PR PR

PC,WRTCHR
1694
FATFLG

YRS

YR PRV

RO,R1
ERRNO,WRTMSG, SFIMSG

RS PRSIV

208

; ISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED OK
;BUMP COUNT
; SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC

FAILED
TRAP

.WORD
.WORD

C$ERHRD

517
WRTMSG

TSV?

TEST

HARDWARE TES"S | A

SPACE RECORDS

050166

4298 050170

050170

4299 050172

012124

104406

9316501

4300 050176
4301 050202
4302 050204

032701
001006
005237

050210
050212

104455
001006

4306 050210
050214

055314

4307 050220
050220

104406

050216

4308

MACRO M1113

14 JUN A4 14:)7

1608:

000002

CrLOOP

MOV

000100

eI’
BNE
INC

002217

SEQ N183

ERROF

1 SCOPE L OOP

TSSR(RS ), R

1GET TSSR CONTENTS

o0FL R1
1708
FATFLG

ERANO, 1250F1 , SF IMSG

. WORD

SF IMSG

TRAP

CeCLPl

jCHECK FOR THE OFFLINE BIT SET
1BR, IF OFFLINE (GOOD)
10U COUNT

10FF LINE SHMOWLD HAVE BEEN SET (BAD)

TRAP
. MORD

CIERDF
518

. WORD

SF IMSG

TRAP

CsCLP!

.MORD

012124

1704 :

‘309

CxL ooP

;LOOP IF SELECTED

3“0."..‘0‘.‘...0‘00.0.‘.‘....0.0..0...0000.000..0.00.‘00‘0.000000

4310

4311

1SPACE REVESE COMMAND IN PLACE

‘313

1006000000000 080000800000000800000000000000000000000000000060000600000

4312

4314

431S 050222

012737

4317 050236

012704

4316 050230

4318 050242

000001

010465

000000

004737
016501
012702

4323 050264
4324 050266

001406
005237

4322 050262

4328 050272

050272

050274
050276
050300
4329 050%02
050302

4330 050304

050304

100410

012737

4319 050246
4320 050252
4321 050256

020102

054240

:;gg

0T2SPK3 R4

;R4 o POINTER T0 PACKE?T

INUMBER OF RECORDS TQO SPACE

R4, TSDB(RS)

1 ISSUE COMMAND

002212

ERRHRD

190¢

104406

017272

4336

MOV

01,725R8

190¢
FATFLG

004737

43%7

1SPACE REVERSE COMMAND IN PLACE

001007
054502
012136

03402

0100410, 725PK 3

MOV
MOV

104456

104403

MOV

BeaQ
INC

4333 050316

4334 050322

180¢:

PC.MAITF
JHAIT FOR SSR 10 SETY
TSSR(RS) . R}
sGET TSSR CONYENTS
OSSR!SC'OFL'BIT1'BIT2,R2
1SET UP EXPECTED

002212

4335

054242

JSR
MOV
g 01"

023727

4332 050314

054240

016340
000002
100306

4331 050306

000017

sARE

THMEY EQUAL

ERRND, T25TM P T3SR

1 TSSR

INCORRECT

1BR, IF O ESP. FUNCTION REECT
;8P COUNT

TRAP

CsCiLP]

TRAP

CIESUB

BLO

JSR

>335

FATFLG,®1S.

1 IS ERROR COUNT AT 25

PC .CKDROP

:TRY TO DROP THE UNIT

999¢

;BR,

5350

LESS THAN 25

;e
H

sTEST S,

SUBTEST 3

;

4346 050322

519
125
P TSSR

$22232>533335> END SUBTEST

L10073:

CSERMRD

. WORD
. WORD
. WORD

ENDSUB

4342

4343

TRAP

;LOOP IF SELECTED

sVERIFIES THAT SPACE RECORDS FORWARD CAN SPACE ONE

433:1

AFTER TAPE MOTION CrO

CxiLO0OP

cHp

9994

R1,R2

4340

4344
4345

T2S0FL

;RECORD OFF BOT AND CAUSES BOT

STATUS T0 BE CLEARED.

:
:

BGNSUB

§3>333333333> BEGIN SUBTEST

>>33>33333>>

TSv?
TEST

HARDWARE

TESTS

SPACE RECORDS

050322
050322
4347 050324
4348 050330
4349 050334

MACRO M1113

JUN 84

14:17

SEQ N18s

1S5.3:
104402
004737
004737
004737

JSR
JSR
JSR

055456
055550
055612

PC, T2SREST
PC.T25RT2
PC,T2S5RT3

TRAP

1SET COMMAND PACKET
1SET UP OTHER COMMAND PACKE
1SET UP OTHER COMMAND PACNHET

cs8suB

4350

4351

1060800000000 00000000000080000000000082000000000000000006000000008000900

4352
4353
4354
4355
4356

4357
4358
4359
4363
4364

s ISSUE CONTROLLER ~SOFT" INITIALIZE

1000600000000 000008080008000000000040000008000080004000000480000000000

050340
050344
050346
050352
050354
050354
050356
050362

4365 050364

4366
4367 050372

4369
4370
4371
4372
4373
4374
4375
4376
4377
4381
4382

4383
4384
4385

004737

103407
005237

010001

016064

JSR

PC.SOF INIT

100 INITIALIZE ON COKTROLLER

INC
MOV

FATFLG
RO,R1

18UMP COUNT
1CONTENTS OF TSSR REGISTER

8CS

002212

ERRDF

104455
001010
003650

104

ERRNO, SFIERR, SFIMSG

1BR IF INIT WAS O

sFATAL ERROR TSSR WAS NOi Ox

TRAP

.WORD
.WORD

012124
013737

002172

012704

054110

054130

104

MOV

UNITN, T 505w

1SET UP DRIVE NUMBER

MOV

OT2SPACKET R4

s SUBROUTINE NEEDS PACKET ADORESS

CSERDF

S20
SFIERR
SF IMSG

;

(WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
1088004580000 00060000000800000000000000000000000000000000000080800000

050376
050402
050410
050412
050412
050414
050416
050420

004737
103407
005237
010001

010752
002212

JSR
8Cs
INC

PC.WRTCHR
15¢
FATFLG

s ISSUE WRITE CHARACTERISTICS
s8R, IF COMMAND ISSUED Ox
18UMP COUNT

ERRMRD

ERRNO, WRTMSG , SF IMSG

tWRITE CHARACTERISTISC FAILED
TRAP
.WORD
.WMORD
.WORD

MOV

104456

RO,R1

001011
005054
012124

$SAVE CONTENTS OF TSSR

CSERYRD
521

WRTMSG
SFIMSG

1900088800080 08000000008080008080000000080000800000000000600800008000000

4387
4388
4389
4390 050422

4391
4392
4393
4394
4398

- CARRY SIT CLEAR IF ERROR

050422
050424
050430
050432
050434
050440
050440
050442
050444

; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
1600000000040 88008040006000060002808000800000000000000600000000000000

104406
004737
103407
010001
005237
104456
001012

055245

15¢:
011104

002212

CxLO0P

JSR

CsCLP)

TRAP

CSERHRD

PC.REWIND

sCALL TAPE REWIND COMMAND

FATFLG

18UMP COUNT

BCS
MOV

304
RO,R1

ERRHRL

ERRNO, T2SRWN,PKTSSR

INC

TRAP

i1BR, IF NO PROBLEM
1 SAVE TSSR

+REWIND NOT ACCEPTED

.MORD
.WORD

522
T2SRWN

15
TSV?

TEST

HARDWARE

TESTS

SPACt

RECORDY

050446

012136

4399 050450
050450

MACRO M1113

14 JUUN B84

30%:

CrLOOP

14:17

SEQ 018%

sLO0P IF SELECTED

104406

4400

440}

. WORD

P¥Y TSSR

TRAP

of109
)

1000000808088 00000000000¢8200048080008000000480000000004004006500000000¢

4402

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

4403
4404

4405
4406

1000048200000 0300008800800¢00000000800000000080080008000400008¢0000000¢

4407 050452
4408 050456
4409 050460

4410 050464

4411 050466

4412 050470
4416 050474

013701
010102
052702

054140

005237

002212

020102
001406

000002

#MIT1,R2
P1,R2

;PICK UP XSTO
sSET UP EXPECTED
sSET B0OT BIT IN EXPECTED
;D0ES EXP « REC'O

INC

FATFLG

18UMP COUNT

BEQ
ERRHMRD

104456
001013
054435
015564
104406
012737

MOV
MOV
8IS
cMe

40%:
000001

054242

1258FR+6,R1
R1.R2
404

sBR,

ERRNO, 725807 ,EXPREC

CxLOOP

MOV

IF EQUAL

s TAPE NOT AT BOT

;LOOP IF

6000001, 7125’8

100080600080 00000000060000

(Ox)

AFTER REWIND
TRAP

SELECTED

CIERMRD

. WORD
. WORD
. WORD

523
125807
EXPREC

TRAP

CsCLP1

sNUMBER OF RECORDS TO SPACE OVER

(0000000008000 6000800800000008006000060880¢

;SPACE FORWARD ,ACK,CVC=1 COMMAND
100008080808 80804808000008000000000080080¢4008080004008080008¢0080800000800

012737
012704

010465
004737
026501
012702
020102
001411
032701
001006
005237

140010
054240

054240

65¢:

4442 050574

050574

4443 050576
4444
4445
4446
4447

4448
4449

#140010, T125PK3
OT25PK3 R4

s SPACE FORWARD ,ACK,CVvC=1 COMMAND
;SET UP R4 WITH PACKET ADDRESS

MOV

R4, TSDB(RS)

: ISSUE COMMAND

R1.R2
754

tARE THEY EQUAL
1BR, IF Ox

00000

JSR
MOV
MOV

PC,.WAITF
TSSR(RS),R1
#SSR ,R2

002212

8IT
BNE
INC

#8172.R1
754
FATFLG

016340
000002

cHp
BEQ

ERRHRD

104456

001014
054355
015564

MOV
MOV

754 :

CxLOOP

ERRNO, T25W0DE ,EXPREC

sWAIT FOR SSR T0O SET
tGET TSSR CONTENTS
;SET UP EXPECTED
;CHECK FOR TAPE STATUS ALERT
;BR, IF TSA IS SET (SUSPECT IS EOT)
1BUMP COUNT

1 TSSR INCORRECT AFTER READ DATA
TRAP
CS$ERHRD

;LOOP IF SELECTED

104406

. WORD
. WORD
. WORD

524
T2SuW0E
EXPREC

TRAP

CICLP)

120¢:
18688080888 88880808008004808: 0880008000000 008888000080000800020000000
;

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERQ (XSTO)
1000868683804 08000084080005000088888880080080080805000800800000000008

TSv?

TEST

HARDWARE TESTS 1
S : SPACE RECORDS

4450
445] 050576
4452 050602

4453 050604
050610
050612
050614
050620
050620
050622
050624
050626

4454
4455
4456
4460

050630
050¢ 30
4462 050632
4463 050635
4461

4464

013701
010102
042702
020102

054140

005237

002212

001406

MACKO M1113

000002

125¢:

055612
000401

sQUICK CHECK FOR BOT SET
1SET UP EXPECTED
1CLEAR THE BOT BIT (xSTO)
1 IS THE EOT BIT SET IN XSTO

INC

FATFLG

18UMP COUNT

1254

ERRNO, T258NC,EXPREC

1BR,

IF SET (GOOD)

1BOT NOT CLEARED AFTER SPACE FROM 807

TRAP
.MORD
. WORD

CSERHRD
525
T258NC

TRAP

CsCLP1

.WMORD

CxLOoOP

JSR
MOV

054246

SEQ 0186

T258FR+.6,R1
R1,R2
MBIT]1,.R2
R1,R2

ERRHRD

015564

14:17

MOV
MOV
8IC
cre

8EQ

104456
001015
054730

104406
004737
012737

14 JUN 84

PC,T25RT3
0257, ,12552

sCLEAN UP PACKET
$1SET THE CORRECT SIZE WP

4465

(6880000800080 0288808080088888088004880088808840404000080060868000004¢

4466

;READ DATA COMMAND IN FLACE

4467
4468

4469

100888080008 0048000068000884008880880¢4884083088808000880080088888¢00

4470

aa71
4472
4473
aa74
4475
4477
4478 050704
4479 050706

4496

4497
4498

012737
013737
012704
010465

140001
003114
054240
000000

016501
012702
020102
001406
005237

000002
000200

004737

4476

4495

EXPREC

050710
050714
050714
050716
050720
050722
050724
050724
050726
050732
050736
050740
050742
050746
050746
050750
050752
050754
050756
050756
050760
050760
050760
050762
050770

054240
054242

MOV
MOV
MOV
MOV

016340

104456

tREAD DATA COMMAND IN PLACE
:READ BUFFER ADDRESS TO PACKET
;R4 = POINTER TO PACKET
: ISSUE COMMAND

TSSR(RS),R1
@SSR ,R2
R1,R2
190
FATFLG

:GET TSSR CONTENTS
:SET UP EXPECTED
;ARE THEY EQUAL
3BR, IF OK ESP. FUNCTION REJECT
;BUMP COUNT

JSR

PC,WAITF

ERRHRD

ERRNO,RDERR,PKTSSR

MOV
MOV
cwe
BEQ
INC

002212

#140001, T25PK3
FREE, T25RB
#T25PK3 R4
R4,TSDB(RS)

;WAIT FOR SSR T0O SET

;:TSSR INCORRECT

AFTER READ DATA CMD

001016

190s:
132162
000001

CKLOOP
MOV
MOV
cHe
B8EQ
INC

002212

ERRHRD

104456
001017
054645
015564

2008 :

104406

;LOOP IF SELECTED
SFREE,R1
#1.R2
R1,R2
2004
FATFLG

ERRNO, T2SWNG ,EXPREC

023727

103402

. WORD
.WORD

RDERR
PKTSSR

TRAP
:GET FIRST WORD FROM BUFFER
;SET UP EXPECTED
:WAS RECORD NUMBERED 1
18R, IF CORRECT RECORD
18BUMP COUNT

s SHOULD HAVE BEEN RECORD NUMBER

CKLOOP
ENDSUB

104403

CSERHRD

. WORD

005204
012136
104406
017701
012702
020102
001406
005237

TRAP

$>>>>>>>>>3>>

END

002212

000017

(ol o

8LO

FATFLG, 815,
999¢

CSERHRD
S27
T25WNG
EXPREC

TRAP

CsCLPL

5>533353>>3>>

TRAP

;IS ERROR COUNT AT 25
1BR,

CsCLP1

TRAP
.WORD
.WORD
.WORD

SUBTEST

L10074:

526

IF LESS THAN 25

CS$ESLB

I]f
TSV?

TEST

HMARDWARE TES'S | 8

SPACE RECORDS

4499 050772

450C 050776

00473

MACRO M1113

017272

14 UUN 84 14:17

JSR

999:

4501
4502
4503

SEQ N187

sTRY " DROP THE

PC,CKDROP

O
:

4504

sTEST

4505

;

SUBTEST

4506
4507

sVERIFIES THAT SPACE RECORDS REVERSE CAN SPACE BACK
;:OVER THE FIRST RECORD ON TAPE.

4508
4509
4510
4511

:
H
H

4512 050776
050776

050776

4513 051000
4514 051004
4215 051010

4516
4517

BGNSUB

104402

004737

004737
004737

055456

JSR

055550
0SS61°2

JSR
JSR

$>>>3>>>>>>>>

PC, T25SREST

BEGIN SUBTEST
75.4:

TRAP

sSET COMMAND PACKET

PC,T25RT?
PC,T25RT3

H
sISSUE CONTROLLER

$;SET UP CTHER COMMAND PACKET
sSET LP OTHER COMMAND PACKET

“SOFT"

INITIALIZE

CARRY BIT

CLEAR

ERROR

4521

106606800808 00800000000088480000000000840088888808828080088408080000¢

4522
4523 051014

004737

016064

4525 051022
4529 051026

005237
010001

002212

051030
051032
051034
051036

104455
001020
003650
012124

013737

002172

:ggz 051046

012704

054110

4524 051020
4530 051030

:ggé 051040

103407

JSR

PC,SOFINIT

:00

INC
MOV

FATFLG
RO,R1

;BUMP COUNT
;CONTENTS OF

8Cs

ERROF

4535
4536

054130

20s:

208

ERRNQ, SF IERR, SFIMSG

INITIALIZE

CON CONTROLLER

:BR IF INIT WAS Ox
;FATAL

ERROR

TSSR REGISTER
TSSR

WAS

NOT

MOV

UNITN, T25D0SwW

;SET UP DRIVE NUMBER

MOV

OT2SPACKET R4

;sSUBROUTINE NEEDS PACKET

TRAP
. WORD
. WORD
. WORD

CS$ERDF
528
SFIERR
SFIMSG

ADDRESS

;0080008060800 0000080008000008408400000880000000800000080400000840428

:gg;

sWHITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

4539
4540

;60800668080 006300060088008808000808000008040088000880880840080880808840¢

4541 051052

051056
051060
051064
051066

051066
051070
051072
051074
4549 051076
051076

4550

csesuB

;006000868500 82880008600008080800000080800000008820000808004800808488088008

4518
Cgég

4542
4543
4547
4548

55555535555

004737

103407
005237
010001

104456
001021
005054
012124
104406

010752

JSR

8Cs
INC
MOV
ERRHRD

002212

254 :

CKLOOP

PC,.WRTCHR

254
FATFLG
RO,R1
ERRNO,WRTMSG, SFIMSG

s ISSUE WRITE CHARACTERISTICS

;+BR, IF COMMAND ISSUED OK
;8UMP COUNT
; SAVE CONTENTS OF TSSR
+WRITE CHARACTERISTISC FAILEL

tLOOP IF

SELECTED

TRAP
. WORD
. WORD
. WORD

CS$ERMRD
529
WRTMSG
SF IMSG

TRAP

CsCLP1

TSv?

TEST

MARDWARE

1ESTS

SPACE RECORDS

455!
4552
4553

UUN A4

14:)7

SEQ 0188

1600080800000 00008004000080002800800020000040000000008000000000000000¢

;

: ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

4554
4555
4556
4557
4558
4559
4560

1000000800000 00000000028000008080880808000060000000008¢00080000008008009

051100
051104
051106
051110
4564 051114
051114
051116
051120
051122

4565 051124
051124
4566
4567

004737

103407

010001

005237

JSR
8cs

011104

MOV

INC
ERRHRD

002212

104456

0c1022
055245
012136

30¢:

PC,REWIND
30¢

RO,R1

FATFLG
ERRNO, T2SRWN,PKTSSR

CrLo0P

sCALL
1BR,

1 SAVE

NO PROBLEM

TSSR

;BUMP COUNT

;REWIND NOT

:LOOP

104406

TAPE REWIND COMMAND

ACCEPTED

IF SELECTED

TRAP

CSIERMRD

. WORD
. VIR0

530
T25SRWN

.» ORD

PKTSSR

TRAP

CsCLP)

1080600088880 2880008800800480880000408480800¢0088080000083008080¢000000¢

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

4569
4570
4571
4572
4573
4574
4575
4576

1808080880080 0088004880080004088000800080088000888400800000040e046800000¢

051126
051132
051134
051140
4577 051142
4578 051144
4582 051150
051150
051152
051154

013701
010102
052702
020102
001406
005237

051156

051169

104406

4589
4590
4591
4592 051162
4593 051166

4594 051172

4595 051174
4596 051200
4600 051204

051204
051206
051210
051212
4601 051214
051214

MOV
MOV
8IS
cHP
8€Q
INC
ERRHRD

054140
0G0002

002212

104456
001023
054435
015564

4583 051160

4584
4585
4586
4587

MACRO M1113

(]
%

404 :

T2SB8FR+6,R1
R1 R2
e8IT1,R2
R1,R2

sPICK UP

ERRNO, T.'S80T,EXPREC

s TAPE NOT

404
FATFLG

XSTO

;SET UP EXPECTED
sSET BOT BIT IN EXPECTED

;DOES EXP = REC D
;BR, IF EQUAL (Ox)
;:8UMP COUNT
AT

BOT

;:LOOP IF SELECTED

CKLOOP

AFTER REWIND
TRAP

C4ERHRD

.WORD
.WORD
.WORD

531
725807
EXPREC

TRAP

CsCLP1

1880008888888 8808880048803800000088800880480080880028080808000080%0¢0

s ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
1BIT 15 SETS DIRECTION - O=FORWARD

1=REVERSE

16088085880 088808805080000¢2880400000880488080088800838008000008000000s

012703
004737
103410
016501
005237

104456
001024
054355
02172
104406

MOV
JSR
8Cs
MOV
INC
ERRHRD

000001
010556
000002
002212

50 :

CKLOOP

#000001,R3
PC,SPACE
504
TSSR(RS) ,R1
FATFLG
ERRNO, T25WDE , SFFMSG

1NUMBER OF RECORDS TO SPACE FORWARD
s CAL). SPACE COMMAND
1CHECK FOR ERROR
tGET TSSR CONTENTS
:BUMP COUNT
: SPACE FORWARD FAILED

;LOOP IF SELECTED

TRAP

C$ERHRD

TRAP

CsCLP1

.WORD
.WORD
.WORD

532
T25WOE
SFFMSG

H1%
TSV?
TEST

HARDWARE

TESTS

SPACE RECORDS

4€02 051216
4603
4604

012737

MACRO M1113

00C¢001

054247

14 JUUN 84
MOV

14:17
#1,T725R8

1888000840008 008000040008¢C 00000000000

4605

SEQ 0189

sNUMBER OF RECORDS TO SPACE OVER
0¢0

R CECOCRRERECCSICEEOIECOISbGOLTS

:SPACE REVERSE,ACK,CVC=1 COMMAND

4606
4607
4608

[
108 uEe80880000088000888400800888380208000408008800¢800400080084480048

€609

4610 051224
4611 051232
4612 051236

4613 051236
4614 051242
4615 051246
4616 051252
4617 051256
4618 051260
4619 051262
4623 051266

051266
051270

051272
051274
4624 051276
051276
051300
4626 051300
4627 051304
4628

012737
012704

140410

054240

65¢:

010465
004737
016501
012702
020102
001406
005237

#140410, T25PK3
R4
8T25PK3

1 SPACE REVERSE ,ACK,CVC=1 COMMAND

MOV
JSR
MOV

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

s ISSUE COMMAND

cMe

R1,R2

INC

FATFLG

tARE
;BR,

MOV

B8EQ
ERRHRD

104456

#SSR,R2

754

ERRNO, T25WDE ,PKTSSR

;SET UP R4 WITH PACKET ADDRESS
sWAIT FOR SSR TO SET

sGET TSSR CONTENTS
;SET UP EXPECTED
THEY EQUAL
IF OK

;BUMP COUNT
s TSSR INCORRECT AFTER READ DATA
TRAP

001025
054355
012136

754 :

104406
012703
013737

MOV
MOV

000400

003114

1208:
054242

;LOOP IF SELECTED

CKLOOP

MOV
MOV

0256. ,R3
FREE, T25R8

C$ERHRD

. WORD
. WORD
. WORD

533
T2SWDE
PKTSSR

TRAP

CsCLP1

;RECORD SIZE
;STARTING READ BUFFER ADDRESS

0888088888888 0808808888404404048000850080404500280200008808048¢0008000028

4630

:READ DATA,ACK.CVC=1 COMMAND

4631

4632
4633
4634
4635 051312

4637
4638
4639
4641
4643

4648

4649

4650
4651
4652
4653

4654

051320
051324
051330
051334
051340
051344
051350
051352
051354
051360
051360
051362
051364
051366
051370
051370
051372
051376
051402
051404
051406

(0 CER 0008080800000 0008000800888840008008088080800880000804008800048

012737
012704
010337
010465
004737
016501
012702
020102
001406
005237

140001
054240
054246

054240

165%:

016340
000200

MOV
MOV
MOV
MOV
JSR
MOV
MOV
cMP

8EQ
INC
ERRHRD

002212

104456

0140001, T25PK3
R4
0T25PK3
R3,T725S52
R4, TSOB(RS)
PC,WAITF
TSSR(RS5),R1
OSSR, R2

;SET UP RA WITH PACKET ADORESS
;SET UP RECORD SIZE IN PACKET
; ISSUE _OMMAND
sWAIT FOR SSR TO SET
1GET TSSR CONTENTS
:SET UP EXPECTED

170¢
FATFLG
ERRNO,RDERR ,PKTSSR

;BUMP COUNT
; TSSR INCORRECT AFTER READ DATA

R1,R2

sREAD DATA,ACK,CVC=1

;ARE
i8R,

THEY EQUAL
IF 0K

TRAP

001026
C05204

012136

104406
017701
012702

020102
001406
005237

170%:
131516
000000
002212

CxLOOP

;LOOP 1IF

MOV

8FREE ,R1

cHe
8EQ
INC

R1,R2
2004
FATFLG

MOV

0 ,R2

COMMAND

SELECTED

CS$ERMRD

. WORD
. WORD
. WORD

534
ROERR
PKTSSR

TRAP

CsCLP:

tGET FIRST WORD FROM BUFFER
1SET UP EXSECTED
1WAS RECORD NUMBERED 1
t1BR. IF CORRECT RECORD
;:B8UMP COUNT

TSv?
TEST

- HARDWARE TESTS 1 8
S : SPACE RECORDS

4658 051412

051412
051414
051416
051420

051422
051422
051424
051424
051424
051426
051434
051436
051442

MACRO M1113

14-JUN 84
ERRHRD

14:17

I15

FRRNO, T2SWNG, E XPREC

104456

001027
054645
015564

200:

104406

104403
023727
103402
004737

SEQ 0190
;SHOUL D HAVE

BEEN RECORD NUMBER
TRAP

CxLOOP
ENOSUB

:22>33533553>>

END

CSERMHRD

. WORD
. WORD
. WORD

535
T 25WNG
EXPREC

TRAP

CsCLP1

SUBTEST

>53>5333355>

L10075:

002212

000017

017272

999.

CcHP
BLY
JSR

FATFLG, 015.

;1S ERROR COUNT

99914
PC,.CKDROP

TRAP

AT 25

CsESLB

i8R, IF LESS THAN 25
; TRY TO DROP THE UNITY

.
HEd

;TEST S, SUBTEST S
: VERIFIES THAT

SPACE RECORDS FORWARD CAN SPACE

sMULTIPLE NUMBER OF RECORDS (2 THROUGH 64K OR THE

sMAXIMUM NUMBER OF RECORDS WRITTEN ON

;WHICH EVER IS LESS.

051442
051442
051442
051444
051450
051454
051460
051466
051474

BGNSUB

104402
004737
004737
004737
013737
162737
013737

055456
055550
¢55612
054270
000002
054270

4687

JSR
JSR
JSR
MOV
suB
MOV

054266
054266
054272

TAPE,

:22>55>>33>>>>

BEGIN

SUBTEST

75.S:
PC, T25REST

PC,T25RT?2

PC,T25RT3
T2S5CNT, T25CN2
02, T25CN2
T25CNT, T2S0LY

;:SET COMMAND PACKET

5>53>33335>33>>

TRAP

csBsSuB

;SET UP OTHER COMMAND PACKET
sSET UP OTHER COMMAND PACKET
sHOLD NUMBER OF RECORDS
sACTUAL NUMBER OF RECORDS ON TAPE
;SET UP REWIND DELAY COUNTER

1088880888808 8880888088008830080808080004840088000808000000082880%0028

4688

;ISSUE CONTROLLER "SOFT“ INITIALIZE - CARRY BIT CLEAR IF ERROR

4689
4690

]

4691

1688005880888 308880004880308300080080000838080888888800040480080000083

4692

4693 051502
4694 051506
4695 051510
051510
051514
051516
051522
051524
051530
051532
051536
4696 051540
4697 051544

THE

004737
103427

016064

012727
000000
013727
000000
005367
001375
005367
001367
005337
001356

000250

104:

JSR
B8CS
DELAY

PC,SOF INIT
204

250

002116

sWAIT

ABOUT

.25 SECONDS

MCV
.WORD
MOV
.WORD

€250,(PC)O
LSOLY
., (PC)O

BNE
DEC
BNE

0€EC

177772

177756
054¢72

100 INITIALIZE ON CONTROLLER
1BR IF INIT WAS OK

DEC
BNE

Y
T250L
10¢

1DEC COUNTER
1BR, IF MORE LOOPS REQUIRED

-6(PC)
.

4
22(PC)
20

TSv7
TEST

HARDWARE

TESTS

4698 051546

4699 051552

4703 051556

051556
051560
051562
051564
4704 051566
4705 051566
4706 051574

016501
00523°

000002
002212

104455

013737
012704

002172
054110

4742
4743
4744
4745
4746
4747
4748
4749

TSSR(RS),R1
FATFLG
ERRNO, SFIERR, SF IMSG

:CONTENTS OF TSSR REGISTER
;BUMP COUNT
;FATAL ERROR TSSR WAS NOT 0K
.WORD
.MORD
.WORD

MOV

054130

MOV

UNITN, T250S54

OT2SPACKET R4

CSERDF

53¢
SFIERP
SFIMSG

$SET UP UNIT NUMBER
s SUBROUTINE NEEDS PACKET

ADORESS

(0000000000000 00800000000800008400000000080080000000404800800000800080¢

004737
103407
005237

010001

051614
051614
051616
051620
051622

104456
001031
005054

051624

104406

051624

4723
4724
4725
4726
4727
4728
4729
4730 051626

4739
4740
4741

MOV
iNC
ERRDF

SEQ 03191

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

4713
4714 051600
4715 051604
4716 051606
4720 051612

4738

14:17

(0008000000 000080000000000000000000000000000080000000008000080000284

4712

4731
4732
4753
4737

JUN 84

4711

4722

TRAP

001030
003650
012124

4707
4708
4709
4710

4721

MACRO M111%

SPACE RECORDS

051632
051634
051636
051642
051642
051644
051646
051650
051652
051652
051654
051660
051664
051666
051670
051672
051674
051676
051702

010752
002212

012124

JSR
8CS
INC

PC,WRTCHR
254
FATFLG

s ISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED O«
:8UMP COUNT

ERRHRDO

ERRNO,WRTMSG,
SF IMSG

;WRITE CHARACTERISTISC FAILED

MOV

25%:

RO,R1

CKLOOP

:SAVE CONTENTS OF

TSSR

TRAP

;:LOOP

SELECTED

CS$ERHRD

.WORD
.WORD
.WORD

S37
WRTMSG
SFIMSG

TRAP

CsCLPL

(8080400000000 0000000400000000080000000000040000000020000000008008000

: ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
(EAASEREES000000A0A0S040000800000000000000000000000000800000000000¢

004737

103407

010001
005237

011104
002212

104456
001032
055245
012136
104406
013701
012702
020201
003002
010103
000401
010203
162703
010337

JSn¢

PC,.REWIND

;:CALL TAPE REWIND COMMAND

MOV

RO,R1

: SAVE

INC
ERRHRD

FATFLG
ERRNO, T25RWN,PKTSSR

BCS

30%:
054266

177776

CKLOOP

000001
054242

:BR,

IF NO PROBLEM
TSSR

;:8UMP COUNT
;REWIND NOT ACCEPTED

.WORD
. WORD
.WORD

;LNOP IF SELECTED
:NUMBER OF

MOV
cHP
BGT

965534 . ,R2
R2,R1
464

+MAX IT CAN SP"CE OVER
iWHICH VALUE CAN WE USE
:BR, IF 0 WRITTEN > 64K

B8R

;MOVE ON

MOV
S8
MOV

1088888848808

R2,R3
@1,R3
R3,T2SRB

;® WRITTEN CAN BE

TRAP
TAPE

T25CN2,R1

R1,R3

RECOPDS

TRAP

MOV

MOV
464 :
474

8 0504084048000 0800880840808088084020828080808080082

S38
T2SRWN
PKTSSR
CsCLPL

USED

; USE MAX NUMBER
;OON'T GO ALL THE WAY YET
iNUMBER OF RECORDS TO SPACE

CSERHRD

OVER

TSV7
TEST

HARDWARE

4°5¢
4751
4752
475%
4754
4755
4756
4757
4758
4759
4760
4761
4762
4763
4764
4765

4766

4767
4768
4772

4773
4774
4775
4776
4777
4778
4779
4780
4781
4782
4783
4784
4785
4786

4787
4788

4789
4790
4791
4792
4793
4794
4798

TESTS

SPACE RECORDS

MACRO M1113

14 UUN 84

14:1’

SEQ 019¢

:SPACE FORWARD ,ACK,CVC=1 COMMAND
1080800808880 38008000808800204800048080000008000000000840088008¢000080080

051706
051714
051720
051720
051726
051732
051736
051742
051746
051750
051752
051752
051756
051760
051764
051766
051772
051774
052000
052002
052006
052010
052014
052014
052016
052020
052022
052024
052024
052026
052032

012737
012704
013737
010465
004737
016501
012702
020102
001425
012727
000000
013727
00000
005367
001375
005367
001367
005337
001351
005237

140010

054240

054266
000000
016340

054240
054272

654
:

67$:

000002
000200

000250

2140010, T25PK3

s SPACE FORWARD ,ACK,CvC=1 COMMAND

T25CN2, T250L ¥

:NUMBER OF RECORDS USED AS DELAY COUNTER
: ISSUE COMMAND

#T25PK3 ,R4

MOV
MOV

;SET UP R4 WITH PACKET ADDRESS

R4, TSDB(RS)
PC,.WAITF
TSSR(RS),R1
@SSR, R2

JSR

MOV
MOV

cMP
BEQ
DELAY

;WAIT FOR

SSR

TO SET

:ARE

EQUAL

;GET TSSR CONTENTS
:SET UP EXPECTED

R1,R2

THEY

;BR, IF 0K
sOELAY 25 SECONDS

754

250

MOV
. WORD

002116

MOV

. WORD
DEC
BNE
DEC
BNE

177772
177756
054272

DEC
BNE
INC
ERRHRD

002212

104456

001033
054355
012136

104406
012703
013737

MOV
MOV

75¢:

010000
003114

:BR,

RIS

2SR

NOT

END

ERRNO, T25WDE ,PKTSSR

;LOOP IF SELECTED

2SRRI SRR

SRR

RS PR

ERE

6(PC)
4
22(PC)
. 20

TRAP
. WORD
. WORD
. WORD

CS$ERHRD
5319
T25uW0E
PKTSSR

TRAP

CsCLP1

;RECORD SIZE
;STARTING READ BUFFER ADDRESS

@4096. ,R3
FREE, T25R8

L$OLY,(PC).

DELAY

;BUMP COUNT
; TSSR INCORRECT AFTER READ DATA

FATFLG

CKLOOP
MOV
MOV

054242

;BUMP DOWN COUNTER

T250L¥
67

9250,(PC)
0

:READ DATA,ACK COMMANG
1888808842880 00080 0800888002220

052040
052046
052052
052056
052062
052066
052072
052076
052100
052102
052106
052110
052114
052114

012737
012704
010337
010465
004737
016501
012702
020102
001411
032701
001006
005237

104456

100001
054240
054246
016340
000002
000200

054240

165¢:

MOV
MOV
MOV
MOV
JSR
MOV
MOV
cHP
BEQ

817

002212

BNE
INC
ERRHRD

2100001, T25PK3
AT25PK3,R4
R3, 12552
R4, TSDB(RS)
PC,WAITF
TSSR(RS),R1
OSSR ,R2
R1,R2

170%
e8IT2,R1
170%

FATFLG

ERRNO,RDERR ,PKTSSR

0 2808808808008 0R 0000000000800

;READ DATA,ACK COMMANC
+SET UP RA WITH PACKET ADDRESS
+SET UP RECORD SIZE IN PACKET
: T-SUE COMMAND
;WAIT FOR SSR

10 SET

tGET TSSR CONTENTS
;SET UP EXPECTED
;ARE THEY EQUAL
.BR,

IF 0K

;CHECK FOR TAPE STATUS ALERT
s IF SET ALL IS WELL
;BUMP CCUNT
: TSSR INCORRECT AFTER READ DATA
TRAP

CSERMHRC

TSV7?

TEST

MARDWARE TESTS 1 8
€. SPACE RECORDS
052116

052120
052122

4799 052124

052124
4800 052126

4801 052132
4802 052136

4803 052142
4804 052144
4805 052146
4809 052152

052152
052154

052156
052160
4810 052162
052162
4811 052164

052164
052104
4812 052166

4813 052174

4814 052176
4815 052202

MACRO M1113

001034
005204
012136
104406
017701
013702
1€2702
020102
001406
005237

1708:

130762

054266
000001

002212

2004 :

103402
004737

14:17

8FREE ,R1
T2S5CN2 ,R2

1,Re

R1.R2

2004

FATFLG

ERRNO, T25WNG , EXPREC

000017

017272

999;

ce
8LO
JSR

.WORD
.WORD
.MORD

540
RDERR
PKTSSR

TRAP

CsCLP1

1GET FIRST WORD FROM BUFFER
;:SET UP EXPECTED
:SHOULD BE LAST RECORD
;WAS RECORD NUMBERED R3
;BR, IF CORRECT RECORD
:BUMP COUNT
:SHOULD HAVE BEEN RECORD NUMBER 1

CKLOOP
$22>>>>5>3>>>

ENOSUB

002212

SEQ 0193

1LOOP IF SELECTED

CKLOOP

ERRHRD

104406

023727

JUUN 84

MOV
MOV
suB
cHe
8EQ

104456
001035
054645
015564

104403

END

TRAP

CS$ERHRO

.WORD
.WORD
.WORD

541
T2SWNG
EXFREC

TRAP

CsCLP1

SUBTEST

L10076:

>>>5>>>3>3>>

TRAP

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

FATFLG,015.
999

;:TRY

PC.CKDROP

TO DROP

THE

CseESuB

UNIT

4816

4817
4818
4819

HE4

:TEST S, SUBTEST 6

4820

;VERIFIES THAT SPACE RECORDS REVERSE CAN SPACE A
JRATIPLE NMUMBER OF RECORDS (2 THROUGH 64K OR THE
;MAXIMUM NUMBER OF RECORDS WRITTEN ON THE TAPE
;WHICH EVER IS LESS.

4821
4822
4823
4824
4825
4826

4827
4828
4829 052202

052202
052202
052204
052210
052216
052222
052226

4830
4831
4832
4833
4834
4835
4836
4837
4838
4839
4840
4841
4842 052234
4843 052240
4844 052242

052242

:>>5>>>>3>5>>>

BGNSUB
104402
004737
013737
004737
004737
013737

055456
054270
055550
055612
054270

JSR
MOV
JSR
JSR
MOV

054266

054272

BEGIN

SUBTEST

715.6:
PC,T25REST
T25CNT, T25CNe2

PC,T25RT2

PC,T25RT3
T25CNT, T250LY

:SET
:SET
:SET
:SET
:SET

TRAP

COMMAND PACKET
UP RECORD COUNTER
UP OTHER COMMAND PACKETY
UP OTHER COMMAND PACKET
UP REWIND DELAY COUNTER

>>>>3>>>>>3>>>

cs8suB

(8888888885888 880888888885808858888888300802808080040800000080800800

;ISSUE CONTROLLER "SOFT” INITIALIZE

CARRY BIT CLEAR IF ERROR

’

;0888488088380 05458888388888088800888088000820083008888000040008040

004737
103427

016064

012727

000250

10%:

JSR

8Cs
DELAY

PC,SOF INIT

204
250

100 INITIALIZE ON CONTROLLER

;B8R IF INIT WAS OK
;WAIT ABOUT .25 SECONDS MO

#250,(PC)»

TSV?

TEST

HARDWARE TESTS 1-8
S: SPACE RECORDS

4845
4846

4847

4848
4852

052246
052250
052254
052256
052262
052264
052270
052272
052276
052300
052304
052310

052310
052312
052314
052316
4853 052320

4854
4855 052326
4856
4857
4858
4859
4860
4861
4862

000000
C13727
000000
005367
001375
005367
001367

005337
001356
016501
005237

052332
052336
052340
052344
4870 052346
052346
052350
052352
052354
4871 052356
052356
4872

14:17

SEQ 0194

. WORD
MOV

002116

.WORD
DEC
BNE
DEC
BNE

177772

177756
DEC
BNE

054272
000002
002212

MOV

T250LY
104

TSSR(RS),R1

;:DEC COUNTER
;BR, IF MORE LOOPS REQUIRED

INC

FATFLG

;BUMP COUNT

ERRDF

ERRNO, SFIERR, SFIMSG

;CONTENTS

;FATAL

ERROR

TSSR

WAS

NOT

104455
001036
003650

012124
013737

002172

012704

054110

054130

204 :

MOV

UNITN, T2SDSW

iSET U Uil mUABCR

MOV

OT2SPACKET ,R4

; SUBRGUTINE

0
L$DLY,(PC
.

67PC)
4
22(PCH
. 20

TRAP

C$ERDF

. WORD
. WORD
. WORD

542
SF IERR
SF IMSG

NEEDS PACKET

ADORESS

1020088880088 088808080030800884000800808848080400880888858008808800¢

;WRITE CHARACTERISTICS COMMAND (CALL

004737

103407
005237

010752
002212

TO WRTCHR)

104456
001037
005054
012124

25%.

104406

JSR
BCS
INC

PC,WRTCHR
254
FATFLG

;JISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED 0K
;8UMP COUNT

ERRHRD

ERRNQ,WRTMSG, SFIMSG

;WRITE CHARACTERISTISC FAILED
TRAP
. WORD

MOV

0100C1

4873

RO,.R1

CKLOOP

:SAVE CONTENTS OF TSSR

;LOOP IF SELECTED

CS$ERMRD

. WORD
. WORD

543
WRTMSG
SF IMSG

TRAP

CSCLP]

1888088800448 838888888080002888880800080883880200400808000808800880088

4874
4875
4876
4877
4878
4879 052360

052364
052366
052370
052374
052374
052376
052400
052402

4887 052404
4888
4889

14 UUN 84

1600456008800 08888808030280003840038888888384800484¢80808080888008008

4863
4864
4865
4869

4880
4881
4882
4886

MACRO M1113

M15

052404

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
(1088806008254 088488880853808800888820808838880808808030083088800800%08

004737
103407
010001
005237

104456
001040
055245
012136
104406

011104

JSR

PC.REWIND

;CALL

MOV
INC

RO,R1
FATFLG

;sSAVE TSSR
;:BUMP COUNT

8CSs

052212

ERRHRD

30%:

CKLOOP

304

ERRNO, T2SRWN,PKTSSR

:BR,

TAPE REWIND COMMAND

IF NO PROBLEM

;REWIND NOT

;LOOP

ACCEPTED

SELECTED

TRAP

CS$ERHRD

. WORD
. WORD
.WORD

544
T2SRWN
PKTSSR

TRAP

CsCLP1

1868888888828 05888085408488840808008883080838380208880888
000000080

TSV7?

TEST

HARDWARE TESTS 1 8

SPACE RECORDS

MACRO M1113

14 JUN-84 14:17

SEQ 0195

4890

489

A T I S R IS 21T 2 R R R R A Y R R R A R TS PR S P P IV Y A P

4891

;READ MESSAGE BUFFER EXTENDED S1ATUS REGISTER ZERO (XST0)
:

Qggg

4894

4895 052406
4896 052412

013701
010102

4898
4899
4900
4904

052420
052422
052424
052430

020102
001406
005237

052440
052442
052446
052452
052454
052456

104406
013701
012702
020201
003002
010103

4912 052462
4913 052464
431; 052464

010203

4897 052414

052430
052432
052434
052436
4905 052440
4906

4907
4908
4909
4910

4911 052460

052702

054140

0000Ce

104456
001041
054435
015564

40$
177776

054242

;

4925 052506

013737

4929 052530

020102

052534
052540

4932
4933
4934
4938

052542
052546
052550
052554
052556
052562
052564
052570
052572
052576

052576

;:D0ES EXP = REC'D
:BR, IF EQUAL (0K)
;BUMP COUNT
; TAPE NOT AT BOT AFTER REWIND

MBIT1,.R2

;SET BOT BIT IN EXPECTED

Y Ty

TRAP
;NUMBER OF RECORDS ON TAPE

T25CN2,R1

MOV
cMP
BGT
MOV

#65534 . R2
R2,R1
464
R1,R3

MOV

R2,R3

;USE MAX NUMBER

R3,T25RB

;NUMBER OF RECORDS

Y Yy

Py Yy

P YT

012702

140010
054240
000000
054266

016340
000002
000200

001425

012727
000000
013727
000000
005367
001375
005367
001367
005337
001351
005237

104456

000250

054240

054272

MOV
MOV
MOV

484 :

MOV

;MOVE ON

Y Y P Y

ENRE RS

AR AR SEAR SRS RRERRS

;SET UP DELAY COUNTER

OSSR ,R2

;SET UP EXPECTED

R1,R2
S0
250

177772
177756

002212

YT YT RYTYYTTIY

T25CN2,7250LY

cHP

OEC
BNE
INC
ERRHRD

; SPACE FORWARD,ACK,CVC=1 COMMAND
;SET UP R4 WITH PACKET ADDRESS
; ISSUE COMMAND

002116

054272

PP Y Y

TO SPACE OVER

2140010, T25PK3
@T25PK3 R4
R4, TSDB(RS)

PC,.WAITF
TSSR(RS),.R1

BEQ
DELAY

CsCLP1

COMMAND

JSR
MOV
MOV

CS$ERHRD
545
125807
EXPREC

:MAX IT C+#:' SPACE OVER
;WHICH VALUE CAN WE USE
;BR, IF & WRITTEN > 64K
;0 WRITTEN CAN BE USED

474

MOV

TRAP
.WORD
.WORD
.WORD

;LOOP IF SELECTED

: SPACE FORWARD,ACK,CVvC=1

004737
016501

4930 052532
4931 052534

Ri.R2
404
FATFLG
ERRNO, T2SBOT,EXPREC

:
(SRR EEARARERRRRAEAREB RS RSB I KR AR AR SA NSRS

4926 052514
4927 052520
4928 052524

oy o
BEQ
INC
ERRHRD

B8R

464 :
47%:

4917

012737
012704
010465

;PICK UP XSTO
;SET UP EXPECTED

MOV

491
4916

4318
4919
4920
4921
4922 052470
4923 052476
4924 052502

T25BFR+6,R1
R1,R2

CKLOOP

054266

000401

010337

MOV
MOV

8IS

002212

P ISV PSP YY)

T250LY
484
FATFLG
ERRNO, T2SWDE ,EXPREC

;WAIT FOR SSR TO SET
;GEY TSSR CONTENTS
;ARE THEY EQUAL

;BR, IF 0K
;WAIT .25 SECONDS

MOV
.WORD

MOV
. WORD
DEC
BNE
DEC
BNE

@250,(PL
)«
0
L$DLY,7PC).
0
-6(PC)
.-4
22(PC)
. 20

TRAP

CS$ERHRC

;OEC THE DELAY COUNTER
;BR, IF COUNTER HASN'T EXPIRED
;BUMP COUNT
: TSSR INCORRECT AFTER READ DATA

TSv?
TEST

HARDWARE

S-

TESTS

MACRQ M1118

001042
054355
015564

052606
4940 052610
494} 052614

104406

4939 052606

052620
052622
052624
052626
052630
4947 052632
4948 052636

4829
496C

4961

4963
4964

4965

4966

4967
4968

4972

4973

4974
4975
4976

4977
4978
4979
4980

4981

JUN 84

14:)°

013701
012702

CxL00P
MOV
MOV

054266

177776

020201
003002

86T

010103

000401
010203

1627083
010337/

. WORG

S44

.WORD

EXPREC

TRAP

o Tl

. WORL

558:
608:

000001

054c42

4949
4950
4951

4953
4954
4955
4956
4957

SPACE RECORDS

052600
052602
052604

4942
4943
4944
4945
4946

MOV
B8R
MOV
SuB
MOV

T25CN2 ,R]
065534
. R2

tNUMBER OF RECORDS ON TAPF

R2,R1

sMAX IT CAN SPACE OVER
sWHICH VALUE CAN WE USE

R1,R3

10 MRITTEN CAN BE USED

5S¢

604

R2.R3

€1 ,R3

R3, T2SR8

1BR,

IF @ WRITTEN

1 25uDE

» 64N

1MOVE ON
sUSE MAX NUMBER
sOON‘T GO ALL THE WAY YETY

iNUMBER OF RECORDS TO SPACE

OveR

1 SPACE REVERSE ,ACK,CVC*1 COMMAND
1080000000480 00800800000008000000800800000000¢00820000868000000¢800000000

012737
012704
010465
013737
004737
016501
012702
020102
001425
012727
000000
013727
000000
005367
001375
005367
001367
005337
001351
005237

140410
054240

(54240

054266
016340
000002
000200

054272

0T25PK3
, R4
R4, TSDB(RS )
T2SCN2, T25CL ¥

PC,WAITF

708
:

TSSR(RS),R1
OSSR, R2

R1,.Re
754
250

000250

s SPACE REVERSE ,ACK,Cv(C-1 COMMAND
1SET UP R4 WYITH PACKET ADORESS
s ISSUE COMMAND
1SEY UP COUNTER
;WALY FOR SSR

1GET
1SET
;ARE
1BR,

(WATT

10O SE”

TSSR CONTENTS
UP EXPECTED
THEY EQUAL
IF Ox
ABOUT

SECONDS

002116
177772

177756

054272

0eC

002212

INC
ERRHRO

104456
001043
054355
015564
104406
012703
013737

0140410, T25PK3

75¢%:

010000
003114

054242

¥
T250L
708
FATFLG

ERRND , T25WDE ,EXPREC

MOV
MOV

#4096
. ,R3

FREE, T25R8

0250,(0C)(]
LSOL
Y, (PC).
O
6(PC:
. 4

TRAP
. WORD

CSERMRD
S47

TRAP

CsCLP]

18UMP COUNTER DOWN
1BR, IF COUNTER HASN'T EXPIRED
18UMP COUNT
;TSSR INCORRECT AFTER READ DATA

sLOOP IF SELECTED

CXLOOP

MOV
. WORD
a 0]
.WORD
OEC
aNE
DEC
BNE

+RECORD SIZE
:STARTING READ BUFFEF

. WORD
. WORD

ADDRESS

1000008860000 00808080088008000000000080030080000050800008000060000000000¢

{READ DATA,ACK COMMAND
1080060680806 0400040000088000008000003000000408800000800000004805880000000

22(PC)H
20

T25uW0E
EXPREC

TSv”
TEST

HMARDWARE TESTS 1
S : SPACE RECORDS

498°

4983 0Se7’74
4984

4985
4986

4987

4988
4989
4990
4991
4992

053002
053036
053012
053016
053022

4993
4994
4995

4996

5000

5001
5007

5010

5011
5012

5013
5014
5015
5016
5017
5018
5019
5020
5021
5022
5023
5024
5025
5026
5027
5028
5029 053142
053142
053142
5030 053144

01273~

012704

012700
004737
010337
010465

004737
016501
012702

020102

MACR)

100001

054240

054240
177177

JUN 84

1654:

€177777,R0

PC.FILLMEM

RS, 12582
R4, TSDB(RS)
PC.UALITF

TSSR(RS),R1
OSSR, R2

000200

000004

005237

002212

R1,R2

1704
M81I72,.R1
170

FATFLG

D
,EXPREC
RN
, ROERR
ER

104456

001044
005204
015564

170¢:

104406
017701
012702

000001

005237

002212

020102
001406

130016

055020
015564

200¢:

104406

MOV
MOV

SFREE Ri
o1,.R2

8€Q
INC
ERRMRD

FATTLG

004737

R1,R2
2008

ERRNO, T2SuWN , EXPREC

017272

000017

sREAD DATA, ACK COMMAND
1SET UP R4 WITH PACKET ADORESS
$1SET ALL ONES INTO CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE
1SET WP RECORD SIZE IN PACKET
+ ISSUE COMMAND
1WAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED

JARE

THEY EQUAL

18R, IF Ox
1CHECK FOR TAPE STATUS ALERT
18R, IF BIT SET
18UMP COUNT
;TSSR INCORRECT

AFTER READ DATA

BLO
JSR

PC . CKDROP

999

99914

TRAP

CiCLP1

:SET UP EXPECTED

:8UMP COUNT
: SHOULD HAVE BEEN RECORD NUMBER 1

END

TRAP
.WORD
WORD
.WORD

CIERRD
549
T25uN
EXPREC

TRAP

CsCLP!

SUBTEST

L10077:
FATFLG,015.

CSERRD
548
ROERR
EXPREC

:WAS RECORO NUMBERED R3
18R, IF CORRECT RECORD

:>>>3555533>>

cre

TRAP
.WORD
.WORD
.WORD

;GET FIRST WORD FROM BUFFER

CxLO0oP
ENDSUB

002212

SEQ 0197

;LOOP IF SELECTED

CxLOOP

104456
001045

104403
023727
103402

14:1°

0100001, 125PK 3
, Ra
0125Px3

017512
054246
000000
016340
000002

001411
032701

001006

M111%

»5533333333>

TRAP

: IS ERROR COUNT AT 25

iBR,

;:TRY

CsESLE

IF LESS THAN 25
TO DROP

THE

UNIT

‘0

;TEST S, SUBTEST 7
:VERIFIES Thaf SPACE RECORDS REVERSE ISSUED WHILE THE

s TAPE IS AT BOT RESULTS IN FUNCTION REJECT TERMINATION
sWITH THE NONEXECUTABLE FUNCTION (NEF) ERROR BIT SET.

104402
004737

055456

;2>335>33533>

BGNSUB

JSR

BEGIN

SUBTEST

15.7:

PC,T25REST

;SET CO~MAND PACKEY

TRAP

>35333335>>

csesus

TSv?
TESY

HAROWARE TES'S 1 8
S: SPACE RECORDS

5031 053150
5032 053154
5033
5034
5035

00473~
00473~

MACRO M1113

14 UUN 84

JSR

055550
05561<c

JSR

14:17

PC,T12SRT2

PC,T25RTY

100000000 000800004

€0 1198

sSET UP OTHER COMMAND PACKE'
(SET

UP OTHER TOMMAND PACKE "'

./ 8008000000000 00000000000000000000008000000800001

{ISSUE CONTROLLER "SOFT* INITIALIZE

5036

5037
5038
5039
5040 053160
So41 053164
5042 053166
5046 053172
5047 053174
053174
053176
053200
053202
5048 053204
5049
5050 053212
5051

D1r

CARRY BIT CLEAR IF ERROR

[

1900008088808 800000000004¢008000000400840000000000007000080800080000000¢

004737
103407
005237
010001

016064

JSR

PC.SOFINIT

100 INITIALIZE ON CONTROLLER

INC
MOV
ERRDF

FATFLG
RO,R1
ERRNO, SF IERR, 5F IMSG

:8UMP COUNT
1CONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT (Ox

8CS

002212

104455

208

iBR IF

INIT WA5 Ow

TRAP

001046

003650
012124
013737

002172

012704

054110

054130

20%:

. WORD
. WORD
. WORD

MOV

UNITN, T2505wW

:SET P UNIT NUMBER

MOV

@T25PACKET R4

1 SUBROUTINE NEEDS PACKET ADORESS

CSERDF
S50
SFIERR
SF IMSG

100080800080 80002804000008800000080000000000820000000000000000%0000008

5053

{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

5055

1900080800060 00000000000000800000800000000060000000N08080088¢8008088800ss

5057

053216
5059 053222
053224
053230
5065 053232
053232
053234
053236
053240
053242
053242
5067

004737
103407
005237
010001

JSR
8CS
INC

010752
002212

MOV

ERRHMRD

PC.WRTCHR
254
FATFLG
RO,R1

ERRNO,WRTMSG,
SF IMSG

:ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED Ox
:8UMP COUNT
sSAVE CONTENTS OF TSSR
sWRITE

CHARACTERISTISC F‘?‘I‘:SD

104456

001047
005054
012124

254:

104406

CxLOoP

;LOOP IF SELECTED

CSERRD

. WORD
. WORD
. WORD

551
WRTMSG
SF IMSG

TRAP

CsCLP1

1088800008888 000800000008028000080000000808000080000880000000080000080

5069
5070
5071
5072
5073

S074
5079
5076
5077
50681

5082

: ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
1080680800088 4000800080080800000080040000800000004000808008030800000080020

004 /37
103407
010001
005237

JSR
8Cs
MOV
INC
ERRHRD

011104

002212

104456

001050
055245
01°136

104406

30¢ -

CkLOOP

PC,REWIND
30¢
RO,R1
FATFLG
ERRNO, T2SRWN,PKTSSR

;CALL TAPE REWIND COFMMANC
18R, IF NO PROBLEM
i SAVE TSSR
1BUMP COUNT
;REWIND NOT ACCEPTED
QAP
T

1LOOP IF SELECTED

CSERMRD
552

. WORD
. WORD
. WORD

T25RWN
PKTSSR

TRAP

CsCLP1

TSV7
TEST

- HARDWARE TESTS 1
S: SPACE RECORDS

5082
5084
5085
5086
5087
S088
5089
5090
5091
5092
5093
5094

5095

5099

5100
5101
5102
5103
5104
5105
5106
5107
5108
5109
5110
S111
5112
5113
S51l1a
5115
5116
5117
5118
5122

MACRO M1113

JUN 84

14:17

5EQ 0199

1000000008008 N000000000800000000000000000000800000000000000000000000

;RFAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxST0,
1600820800008 00000800008800808000400000008000000000000060800080080000000

053272
053276
053300
053304
053306
053310
053314
053314
053316
053320
053322
053324
053324
053326

013701

010102
052702
020102
001406

005237

MOV
MOV
815
cHP
BEQ
INC
ERRHRD

054140
000002

002212

104456

001051
054435
015564

104406
012737

408 :

000001

t1PICK UP XST0

R1,R2
404
FATFLG

;D0ES EXP » REC D
sBR, IF EQUAL (Ox)

ERRNO, T2580T ,EXPREC

$;SET UP EXPECTED
1SET BOT BIT IN EXPECTED

:BUMP COUNT

; TAPE

NOT

AT BOT

AFTER REWIND
TRAF

sLOOP IF SELECTED

CKLOOP

MOV

054242

T2SB8FR+6,R1

R1,R2
#BIT1,R2

#1,T25R8

t{NUMBER OF RECORDS

CSERMRD
553

. WORD
. WORD
. WORD

125807
EXPREC

TRAP

CsCLP!

O SPACE OVER

1608028080088 R880884088808800880820000¢00¢0002880848¢00008488¢008800400s

1SPACE REVERSE ,ACK COMMAND
‘

(000808080888 800088080800¢0008080080500008808008080088088000800006000

012737
012704
010465
004737
016501
012702
020102
001406
005237

100410
054240

054240
654
:

016340

000002
100206

002212

104456
001052
054355
012136

5123
5124
5125
5126
5127
5128
5129
5130
5131
5132
5133
5134
5135

754

MOV
MoV

#100410, T25PK3
0T25PK3
R4

; SPACE REVERSE ,ACK COMMAND
;SET UP R4 WITH PACKET ADDRESS

MOV
JSR
MOV
MOV
cre
B8EQ
INC
ERRHRD

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

s ISSUE COMMAND

OSSR!SC!BIT1:BIT2,R2

R1,R2

754
FATFLG

ERRNO, T25>WDE ,PKTSSR

sWAIT FOR SSR TO SET
:GET TSSR CONTENTS
:SET UP EXPECTED
;ARE THEY EQUAL
iBR, IF 0K
;BUMP COUNT
;:TSSR INCORRECT

AFTER READ DATA

sL00OP IF SELECTED

CKLOOP

104406

TRAP

PKTSSR

TRAP

CsCLP1

180820000888 85048880880800808880880888088¢30380008000804000¢0008042¢

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxST0)
1668880808483 0888888808808084880888880804830483088088400848050080080000

053410
053414
053416
053422
053424

013701
010102
052702
020102
001406

054140
002000

MOV
MOV
8IS
cHe
8EQ

T258FR+6,R1
R1,R2
o81T710,R2

R1,R2

170¢

tGET
1SET
1SET
1ARE
18R,

XSTO STATUS WORD
UP EXPECTED
THE NEF BIT
THEY EQUAL
IF EQUAL (GOOD)

CSERHRD
554

. WORD
. WORD
. WORD

T25WO0E

TSV? - HMARDWARE TESTS | 8
S:

TEST

SPACE RECORDS

S136 053426

00523~

053432
053434
053436
053440

104456
001053
055103
015564

053442

104406

053444

104403

5140 053432

5141 0534472
5142 053444
053444

SEQ 9200

FATFLG

ERRNO, T2SNEF ,EXPRELC

;8UMP COUN?
sNFF

SHOLD BE St '

CxLooP
ENDSUB

002212

5145 053456

004737

017272

5146 053462

INC

ERRHRD

1708

023727
103402

14 UUN 84 14:17

002212

S143 053446
S144 053454

MACRO M1113

000017

TRAP

CseESUB

JSR

PC.,CKDROP

;:TRY TO DROP THE UNIT

99914

5151

5155

;TERMINATION AND SETS THE REVERSE

5152
5153
5154

CsCLP:

;IS ERROR COUNT AT 25

i
:

;TEST S,

TRAP

FATFLG, @15.

5148
5149

5150

CSERHRD
555
T2SNEF
EXPRECL

cMe

8LO
999:

5147

L10100:

TRAP
. WORD
. WORD
.WORD

;BR,

IF LESS THAN 25

SUBTEST 8

sVERIFIES THAT A SPACE RECORDS REVERSE COMMAND THAT
;CUASES THE TAPE TO RUN INTO BOT (WITH THE TAPE NOT
sINITIALLY AT BOT) CAUSES A TAPE STATUS ALERT

5156

;STATYS BIT

5157

INTO BOT

(RIB)

5158

5159

;

5160

S161 053462

053462
053462

5162 053464
5163 053470
glgg 053474
1

104402

004737
004737
004737

BGNSUB

$22>>>33>3>>> BEGLLN SUBTEST

15.8:
055456
055550
055612

JSR
JSR
JSR

PC, T2SREST
PC.T25RT2
PC,T25RT3

TRAP

;SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET
1SET UP OTHER COMMAND PACKET

S166
5167

8880000808000 00808800800088008008080880000888004888000400080884884840
H

5170
5171

1808880380400 600808080808880440008000500080004000080000880800800808040¢

gigg

; ISSUE CONTROLLER “SOFT” INITIALIZE

S172 053500

004737

016064

S174 053506
S178 053512

005237
010001

002212

5173 053504

5179 053514
053514
053516
053520
053522

gxgo 053524
181

glgg 053532
1
S184
5185

103407

104455
001054
003650
012124

PC,SOFINIT

s00 INITIALIZE ON CONTROLLER

INC
MOV

FATFLG
RO,R1

1BUMP COUNT
sCONTENTS OF TSSR REGISTER

ERRDF

013737

002172

012704

054110

054130

20%:

204

ERRNO, SFIERR, SFIMSG

MOV

UNITH, T2505W

MOV

0T2SPACKET , R4

csBsuB

- CARRY BIT CLEAR IF ERROR

JSR

8CS

>3>5355333335

18R IF INIT WAS OK

sFATAL ERROR TSSR WAS NOT 0K
TRAP
.MORD
.WORD
.MORD

;SET UP UNIT NUMBER

1 SUBROUTINE NEEDS PACKET ADDRESS

;8084058808800 808000088000808080040000800800000800088008000000008000000
:

CS$ERODF
556
SFIERR
SFIMSG

";'lf
TSv?

HARDWARE TESTS | 8

TEST

SPACE RECORDS

MACRO M1113

5186

SEQ 0201

(WRITE CHARACTERISTICS COMMAND (CALL TO WRTICHR)

518°

Siaa

10000000000060000000000008406000000000000000000088000600080000600000

5189

5190 053536

004737

010752

5192 053544
5196 053550

005237
010001

002212

5191 053542
5197 053552
053552

103407

001055

053560

0121024

5198 053562

053562

JSR

PC.MRTCHR

s ISSUE WRITE CHARACTERISTICS

INC
MOV

FATFLG
RO,R}

18UMP COUNT
1SAVE CONTENTS OF TSSR

8CS

ERARHRD

104456

053554

053556

5199
200

14 JUUN B4 14:17

254

ERRNO,WRTMSG, SFIMSG

1BR, IF COMMAND ISSUED Ow

IWRITE CHARACTERISTISC FAILED
TRAP

CSERMRD

.WORD

WRTMSG

LMORD

005054

25%:

104406

CxL00oP

.MORD

;LOOP IF SELECTED

TRAP

;0080800800 ¢00880080080C08000000086008000000¢000000000800080008008808080¢

5205

5206 053564
5207 053570
5208 053572
S209 053574

004737
10340°
010001
005237

053600
053602

104456
001056

S214 053610
5215 053610

104406

5213 053600
053604
053606

011104

JSR
B8CS

MOV
INC

002212

ERRHRD

055245
012136

304

PC,REWIND
304
RO,R1
FATFLG

ERRNQ, T2SRWN,PKTSSR

CKLOOP

;CALL TAPE REWIND COMMAND
;BR, IF NO PROBLEM
i SAVE TSSR
;BUMP COUNT
;REWIND NOT ACCEPTED

;LOOP IF SELECTED

TRAP
. WORD

T25RWN
PKTSSR

TRAP

CsCLPL

10800088888 0840000080088880000880000880080880800000008000308000000802¢
;
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxST9O:

5220

1088000088888 880808808000830804¢0880003002008000388388200488080800000038

CS$ERHRD
558

. WORD
.WORD

5216
5217
gglg

5221

5222 053612
5223 053616
5224 053620

013701
010102
052702

054140

5227 053630

005237

002212

5225 053624
5226 053626
5231 053634

053634
053636
053640

053642
5232 053644
053644

223"!» 053646

5236

CsCLP1

H
;ISSUE REWIND COMMAND YO SELECYED TAPE DRIVE
H

S204

SFIMSG

1900400800003 40800000400008800080080000000ut008000000008008000008808000¢

5201
5202
5203

5235

557

020102
001406

MOV
MOV
8IS

000002

ce
BEQ

INC

ERRHRD

104456
001057
054435

015564

104406

012737

404 :

000001

054242

T258FR+6,R1
R1,R2
#IT1,.R2
R1,R2
404

FATFLG

ERRNO, 725807 ,EXPREC

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

;BUMP COUNT

;:TAPE NOT AT BOT

AFTER REWIND

TRAP
. WORD
. WORD

CSERHRD
559
125807

TRAP

CsCLP)

. WORD

CKLOOP

MOV

sPICK UP XSTO
;SET UP EXPECTED
sSET 80T BIT IN EXPECTED

#1,T25R8

tNUMBER OF RECORDS TO SPACE OVER

;6888080000 8880408888808088880888008044088008880840088800002040000000

EXPREC

TSV?
TEST

MARDWARE

TESTS

SPACE RECORDS

| 8

MACRO M1113

5241
5242
5243
5244

5245

5246

5247

5248

S249

5253

COMMAND

1068080400000 000880200080008880300004008080340880060040400040000000000¢

053654
053662
053666
053672
053676
053702
053706
053710
053712
053716
053716
053720

012737
012704
010465
004737
016501
012702
020102
001406
005237

140210

054240
000000

054240

MOV

MOV
MOV
JSR

016340

MOV

000002

MOV
cHP
8eQ
INC
ERRHRD

000200

002212

0140210, T25PK3
R4
9T25PK3,
R4, TSDB(RS)

s SPACE FORWARD, IE,ACK,CVC=1 COMMAND

TSSR(RS),R1

;GET TSSR CONTENTS
sSET UP EXPECTED

PC,WAITF
OSSR, R

R1,R2
75%

FATFLG

ERRNO, T25WOE ,EXPREC

104456

§SET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND
sWAIT FOR SSR

sARE

TQ SET

THEY EQUAL

s8R, IF 0K
:BUMP COUNT
s TSSR INCORRECT AFTER READ DATA
TRAP

001060

054355
015564

104406

012737

75%
:

200020

tLOOP IF SELECTED

CKLOOP
MOV

054242

5257

020, T25R8

CSERMHRD

.WORD
. WORD
.WORD

560
T2SWDE
EXPREC

TRAP

CsCLP1

sNUMBER OF RECORDS TO SPACE OVER

0888068808880 8808442088080080806408808800488080080880800800808040¢02¢

5258
5259
5260

:SPACE REVERSE ., IE ,ACK COMMAND

5261

1000800000880 00880088008008888800808880000088080820000880800050803002000

5263 053736
S264 053744
5265 053750
053754

5267 053760

5276

SEQ 020¢

053722
053724
S254 053726
053726
5255 053730

5269
5270
5271
5275

14:17

1 SPACE FORWARD,IE,ACK,CVvC=1

5237
S238
5239

5240

14 JUN 84

053764
053770
053772
053774
054000
054000
054002
054004
054006
054010
054010
054012
054016
054020
054024

5277
S278
5279
5280
5281
5282 054030
5286 054034
054034
054036
054040
054042
5287 054044
054044

012737
012704
010465
004737
016501
012792
020102

100610
054240

005237

002212

001406

010102
052702
020102
001406

005237

104456
001062
055103
015564
104406

MOV
MOV
MOV
JSR
MOV
MOV
cHp
8tEQ
INC
ERRHRD

015340

100204

104456
00106!
054355
015564

104406
013701

054240

175¢:

8IS
cp

000001

8EQ
INC
ERRHRD

002212

180¢:

R4, TSDB(RS)
PC,WAITF
TSSR(RS),R1

#SSR!BIT2!SC,R2
R1,R2
175¢

FATFLG
ERRNO, T25WOE ,EXPREC

CKLCOP

: SPACE REVERSE,IE,ACK COMMAND

;SET

UP R4

WITH PACKET

; ISSUE COMMAND

R1,.R2

#8IT0.R2

R1,R2

1804

FATFLG

ERRNO, T2SNEF ,EXPREC

ADDRESS

sWATIT FOR SSR TQO SET

sGET TSSR CONTENTS
sSET UP EXPECTED
;ARE

:BR,

THEY EQUAL

;8UMP COUNT
;TSSR INCORRECT AFTER READ DATA

;LOOP IF SELECTED

CKLOOP
MOV
MOV

054146

#100610, T25PK3
#T25PK3
R4

TRAP

CSERMRD

TRAP

CsCLPl

. WORD
. WORD
. WORD

;GET XST3 STATUS WORD
;SET UP EXPECTED
1SET THE RIB BIT

{ARE

THEY

561
T25W0E
EXPREC

EQUAL

:BR, IF EQUAL (GOOD)
;BUMP COUNT
:NEF SHOULD BE SET

TRAP

CSERMRD

. WORD
. WORD
. WORD

562
T2SNEF
EXPREC

TRAP

CsCLP)

TSv?

TEST

HARDWARE

SPACE

5288 054046
054040
054046
5289 054050
5290 054056
S291 054060
5292 054064
5293
5294
5295
5296 054064
S297 054070
5298 054072
5299 054076
5300 054076
054076
054100

TESTS

RECORDS

MACRO M1113

14 JUN 34

14:17

SEQ 0293
:

ENOSUB

104403

023727

103402
004737

004737
103002
000137

R EEE)

SwTESY

{ 10101:;

002212
017272

00001~
999
:

016546
046746

193¢

104432
001542

XD IIIPIIDN
s e,

TRAP

cme

FATFLG, 015,

8LO
JSR

PC ., CKDROP

JSR
8CC

PC, 1STLOOP
193

;00 WE NEED TO ITERATE TEST
:BR, IF NO LOOP REQUIRED

ExIT

TSTY

;ALL DONE THIS TEST

: 1S ERROR ZOUNT AT 25
:BR, IF LESS THAN 2S5

9993

T25L00P

s TRY

:EXECUTE

DROP

THE

CSEB

UNIT

AGAIN

TRAP

. WORD

CSEXIT

L10071

:LOCAL STORAGE FOR THIS TEST
.

054102
054110
054110
054112

054114
054116
054120
054120
054122
054124
054126
054130
054132

100004
054120

000010

T2SDATA:

054132
000012
T2S0SK:
T2SBFR:

{WRITE

054214
054220
054220

054222
054224
054226

054230
054240
054240
054242
054242
054244
054246

054250
05425¢C

.BLKB

. WORD
. WORD
. WORD
. WORD

100004

T2SPACKET:

100006
054250

100005
003114

T25PK?2:

T25PK3:

T25RB:
T2SWB:

T25S2Z:

010

T25BF2:
125850:

. WORD
.WORD
. WORD
. WORD

.WORD
.BLKW

¢,

TSVeE?»

T2SDATA
0
8.

T2S8FR
0
10.
0
0
25.

; COMMAND PACKET FOR TEST
;WRITE CHARACTERISTICS COMMAND, WITH
:ADDRESS OF CHARACTERISTICS BLOCKX
;STARTING VALUE OF BLOCK SIZE
; CHARACTERISTICS DATA BLOCK
; ADDRESS OF MESSAGE BLFFER
;LENGTH OF MESSAGE BUFFER

:SELECT DRIVE ZERO
;MESSAGE BUFFER

SUBSYSTEM MEMORY COMMAND PACKET
.BLKB

10 <, -TSV2ET>

. WORD
. WORD
. WORD
. WORD

T258F2
0
6.

.BLKB

10-<,

. WORD

100005

;READ COMMAND,

.WORD
. WORD
.WORD
.EVEN

FREE

0
0

:ADDRESS OF WRITE BUFFER
;:SIZE OF BUFFER (EXTENT)

.BYTE

;BSELO AREA

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

100006

:SIZE OF DATA PACKEY
TSVeE?>

AND ACK

ACK

TSv?
TEST

1 8
HARDWARE TESY
S : SPACE RECORDS

5347
5348
5349
5350
5351
5352
5353
5354
5355
535€

054251
054252
054254

054256
054260
5357 054262
5358 054264
5359
5360 054266
5361 054270
5362 054272
5363
5364
5365
5366
5367
5368 054274
5369 054355
5370 054435
537 054502
5372 054571
5373 054645
5374 054730
5375 055020
5376 055103
5377 055163
5378 055245
5379 055314
5380 055367
5381 055440
5382
5383
5384
5385
5386
5387
5388
5389
5390 055456
5391 055456
5392 055462
5393 055466
5394 055472
5395 055476
5396 055500
5397 US55504
5398 055510
5399 055512
5400 055516
5401 055520
5402 055524
5403 055530

MACRO M1113

14 UUN 84

1258S1:
12552:
725S3:

200
000000
000000

.BYTE
.WORD
. WORD

:4:)1°

SEQ 0204

200
O
0

.EVEN

; TAPE MOTION PACKET

;BSEL1 AREA
;SEL 2 AREA
;DATA AREA

COMMAND

VALUES

100005
100405
102005
177777

T2SRN:
T25WOR:
T2SCON:

. WORD
.WORD
.WORD

100005
100405
102005

;READ DATA (NEXT)
;:READ DATA RETRY
sWRITE CONTINOQUS

000000
000000
000000

T2SCN2:

.WORD

sCOUNTER FOR RECORDS

T2SCNT:
T2S0LY:

:LOCAL

127
124
124
124
127
123
123
123
123
123
122
104
124
123

.WORD

122
123
141
123
162
160
160
160

111
123
160
123
151
141
141
141

T25SSR:
T2SWOE:
T2S580T:
T25TM:
T2SNET:
T2S5WNG:
T2SBNC:
T2SWNH:

141

T2SRIB:

160

141

145

167

160

162
123
160

151
123
141

.WORD
.WORD

177777

;END OF DATA

0
0

sCOUNTER FOR RECORDS
;COUNTER FOR RECORDS

TEXT MESSAGES FOR TEST

T2SNEF:
T2SRWN:

T2S0FL:
T25WDC:
TST2SID:

.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.EVEN

'WRITE SUBSYSTEM Miscellaneous Reed Status Failed
'TSSR Not Correct After POSITTON (SPACE) Commend
'Tape Not At BOT After REWIND Command’
'TSSR Not Correct After POSITION (Spece Command) Re ject
'urite Tape, Status Alert, But No EQOT Sensed’
‘'Spece Forward Failed To Position On Correct Record’
'Spece Forwerd, from BOT, Feiled To Clear BOT Indicat
on
'Spece Reverse Failed To Position On Cor~ect Record

'Spece Reverse, At BOT, Failed To Set NEF (XSTQ)
'Spece Reverse,

Into BOT, Failed To Set RIB (XST3)

'Rewind (POSITION) Command Not Accepted

'Orive 7 Select Failed To Set "OFL"” In TSSR
'TSSR Not Correct After READ DATA Command
.ASCIZ
'Spece Records’

;ROUTINE TO RESTORE COMMAND PACKET TO START UP (DEFAULT) VALUES
;WRITE SUBSYSTEM MEMORY COMMAND

T2SREST:

012701
012721
012721
005021
012721
012721
005021
012721
005021
012711
012702
012762

054110

100004
054120
000012
654132

000000

64%:

1 SAVE THE REGISTERS

;:START OF THE PACKE?Y

0100004 ,(R1) .
OT2SDATA,(R1)
(R1).
€10.,(R1).
:;2§era.(nl)o

MOV
CLR

020.,(R1).
(R1).

;LENGTH OF MESSAGE BUFFER

MOV
MOV

024, .R2
0177777, T25BFR(R2"

sNUMBER OF LOCATIONS TO BE CLEARED
sALL ONES TO MESSAGE BUFFER

MOV

054132

O0T2SPACKET,R1

MOV
MOV
CLR
MOV
20;
L

000024

000030
177777

SAVREG

MOV

(WRITE SUBSYSTEM MEM, WITH ACK
;:ADDRESS OF CHARAISTICS DATA BLOCK
sEXTENDED ADORESS
+SIZE OF DATA BLOCK IN 8YTES
;ADDRESS OF MESSAGE BUFFER

{1SELECT DRIVE ZERO

TSV7 - HARDWARE TESTS 1 8
test S: SPACE RECORDS

5430
5431
5432
533
54 34
5435
5436
5437
5438
5439
5440
5441
5442
5443
5444
5445
5446
5447
5448
5449 055644
055644
5450 055644
5451 055652
5456 055656
5457 055662
5458 055666
5459 055674
5460 055700
5461 055704

012701
012721
012721
005021
012721
005021
012701
005021
005011
000207

054220
100006
054250

012701
012721
012721
005021
012721
000207

054240

054250

T2SRT3:

(R2)

" At

00 .R2

BNE

644

SAVREG
MOV
MOV
MOV
CLR
MOV
CLR
MOV
CLR
CLR

8T25PK2 R
€100006,(R1).
0T25BF2,(R1).
(R1).
06.,(R1).
(R1).
0T258F2 .R1
(R1).
(R1)

RTS
T25RT12:

SEQ 020%

LUCATION
AT

ZERQ

vE7

‘“TCEP GOING 'UNTIL DONe

.~ TURN

RTS

SAVREG
MOV
MOV
MOV
CLR
MOV

0T25PK3 ,R1
®0,(R1).
#0,(R1).
(R1).
#0,(R1).

RTS
ENDTST

s SAVE THE REGISTERS
;START OF TME PACKET
sWRITE SUBSYSTEM MEM, WITH ACK,
; ADDRESS OF DATA BLOCK
;EXTENDED ADORESS
:SIZE OF OATA BLOCK IN BYTES
;sPOINT

TO DATA SEL

AREA

;RETURN

;sSAVE THE REGISTERS
1START OF THE PACKET
;WRITE SUBSYSTEM MEM, WITH
; ADDRESS OF DATA BLOCK

;EXTENDED ADORESS
;SIZE OF DATA BLOCK IN BYTES

;sRETURN

L10071:

104401

.SB8TTL

TESI

ACk,

TRAP

REREADS

HE4

; THIS TEST VERIFIES THAT THE REREAD PREVIOUS AND REREAD NEXT

:COMMANDS OPERATE PROPERLY.

VARIOUS COMBINATIONS OF ODD AND EVEN

;:DATA BUFFER BOUNDRIES, RFCO\D SIZES (UP TO 64K BYTES IF MEMORY

;SPACE IS AVAILIABLE), AND BYTE-SWAP (SWP) AND OPPOSITE (0OPP)
;CONRTOL ARE USED. ALSO TESTED ARE PROPER TERMINATIONS ON

;EXCEPTIONAL OR ERROR CONDITIONS: RECORD LENGTH LONG, RECORD
iLENGTH SHORT, READ RFVERSE AT B80T,

ILLEGAL DATA BUFFER ADDRESSES,

;AND DATA BUFFERS IN NONEXISTENT MEMCRY.

"THE TEST CONSISTS OF THE FOLLOWING 15 SUBTESTS
@

055642
055642

187

cHe

000000

14:17

055550
055550
055554
055560
055564
055570
055572
055576
5417 055600
5418 055604
5419 055606
5420 055610
5421 055612
5422 055612
5423 055616
5424 055622
5425 055626
5426 055632
S427 055634
5428 055640
5429 055642

005742
022702
001371
000207

JUN 84

055536
055540
055544
055546

5404
5405
5406
5407
5408
5409
5410
5411
5412
5413
S414
5415
5416

MACRO M1113

BGNTST
012737
004737
012700
004737
012737
004737
005037
005037

006446

017364
075027
016600
000005
021322
003126
072276

002170

002206

MOV
JSR
MOV
JSR

OEPRT2,EPRTSW
PC.KTOFF
#TST261D0,R0
PC.TSTSETLP

; SECONDARY ERROR MESSAGE
;OON'T NFED KT11
;ASCII MESSAGE TC IDENTIFY
;00 INITIAL TEST SETUP

JSR
CLR
CLR

PC,MEMCK
NXMFLG
T26CNT

1CHECK FOR MEMORY
:SET FLAG
;:CLEAR TAPE RECORD COUNTER

MOV

#5,LO00PCNT

;PERFORM S ITERATIONS

TEST

CS$ETST

TSv7

TEST

HARDWARE

TESYS

MACRO M1113

14 JUUN 84

14:17

L 1¢

SEQ 0206

REREADS

5462

5463

:TEST 6, SUBTEST 1

5464
5465
S466
5467
5468
5469
5470
5471

:VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=0
:AND SWB=0 OPERATES PROPERLY. THE TAPE IS FIRSTY
{REWOUND AND THEN WRIVTEN WITH A SERIES OF TEST
;RECORDS VARYING IN LENGTH AND DATA CONTENT. THE TAPE
;IS THEN REWOUND AGAIN. FOR EACH TEST RECORD, THE
: TAPE IS SPACED FORWARD ONE RECORD AND A REREAD
;PREVIOUS COMMAND ISSUED. RESULTS (STATUS, DATA,

S472

S473

;ETC.) ARt VERIFIED. THE BYTE COUNT ON EACH REREAD
;PREVIOUS COMMAND IS SET TO THE LENGTH OF THE EXPECTED
;RECORD, SO NO EXCEPTIONAL CONDITIONS SHOUWD OCCUR.

5474
S475
5476
5477
S478

5479
5480
5481 055710
5482
5483 055710
055710
055710
5484 055712
5485 055716
5486 055722
5487 055726
5488
5489
5490
5491
5492
5493
5494
5495 055734
5496 055740
5497 055742
055742
055746
055750
055754
055756
055762
055764
055770
055772
055776
056000
056004
056006
056006
056010
056012
056014
056016
5506
5507 056016

T26L00P:

BGNSUB
104402
004737
004737
004737
012737

075040
075132
075174
176750

76.1:

JSR
JSR

PC,T26REST
PC,T26RT2

MOV

865000, ,T260LY

JSR

072304

$22>>>>5>>>3> BEGIN SUBTEST

PC,.T26RT3

>5>>>>333>55)»

TRAP

;:SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET

csssuB

;SET UP OTHER COMMAND PACKET

:SET UP DELAY COUNTER

1008888880480 8886888088800003058228800058082020480080008080000808080028

:TSSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR
1858868805442 04808080880 0888088084008 000888000002002004808008048480002

004737

103426

012727
000000
013727
000000
005367
001375
005367
001367
005337
001356
005237
010001

10¢:

016064

000250

PC,SOF INIT

;00 INITIALIZE ON CONTROLLER

DELAY

250

;DELAY FOR A REWIND TO FINISH
MOV
.WMORD
MOV
.WORD
DEC
BNE
DEC
BNE

208

002116

177772
177756

DEC

072304

BNE

INC
MOV
ERRDF

002212

104455
001131
003650
012124

013737

JSR

B8CS

002172

072140

204:

MOV

T260DLY

10¢

FATFLG
RO,R1
ERRNO, SFIERR, SF IMSG

UNITN, r260Sw

;BR IF INIT WAS 0K

;DEC COUNTER

18R,

L$OLY,(PC).
0

-6(PC)
.

-22(PCH

IF DELAY NOT READY

:BUMP COUNT
;CONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT 0K

:SET

€250,(PC).

UP UNIT

NUMBER

TRAP

CS$ERDF

.WORD
. WORD
.WORD

601
SFIERR
SF IMSG

TSV?

TEST

HARDWARE TESTS 1 8

REREADS

5508 056024

2510

S09

012704

072120

MACRO M1113

MOV

5513

; SUBROUTINE NEEDS PACKET ADORESS

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

551‘

10830040

5515

5516 056030

SS17 056034
5518 056036

5522 056042
5523 056044

004737

103407
005237

010001

056044
056046
056050
056052

104456
001132
005054
012124

056054

104406

5524 056054
5525

OT26PACKET R4

SEQ 0207

;““‘0‘0“‘.0‘0“.‘.“‘0““‘0‘00‘0..‘000.00.0‘0..‘0‘000..0‘0.000.

SS11

5512

14 JUUN 84 14:17

M1 ¢

JSR

010752

BCS
INC
MOV
ERRHRD

002212

26%:

5526

VESEL504800080082084500880808008808000000808004800008008088000

PC,.WRTCHR

;:ISSUF WRITE CHARACTERISTICS

RO,.R1

;sSAVE CONTENTS OF TSSR

264
FATFLG

ERRNO,WRTMSG,
SF IMSG

CKLOOP

;:BR, IF COMMAND IS3UED 0K
;BUMP COUNT

s WRITE CHARACTERISTISC FAILED

;LOOP IF

SELECTED

TRAP
.WORD
.WORD
.WORD

C$ERMHRD
602
WRTMSG
SF IMSG

TRAP

CsCLP1

;“.‘.“‘t‘.““““““.tt““0“‘.‘00..“t.t““““.““t.“““

5527

ggee

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

5530

;“.t.““““‘t““‘.“‘0““.ttt‘“‘““““.““““t.‘0.‘.‘.0‘t

5531

5532 056056

5533 056062
5S34 056064
5S35
5536
5537
5541

056070
056074
056076
056102
056102
056104
056106
056110

5542 056112
5543

056112

004737

103413
016501
012702
010004
005237

011104

000002

000200
002212

104456
001133
073604
012136

308 :

104406

JSR

PC,REWIND

;CALL TAPE REWIND COMMAND

MOV
MOV
INC
ERRHRD

#SSR,R2
RO,R4
FATFLG
ERRNO, T26RWN,PKTSSR

;SET UP EXPECTED TSSR
;PACKET ADORESS SET WP
;BUMP COUNT
;REWIND NOT ACCEPTED

8CsS
MOV

30¢
TSSR(RS),R1

CKLOOP

;8R, IF NO PROBLEM
;GET TSSR

;LOOP IF

SELECTED

TRAP
. WORD
. WORD
. WORD

CSERMRD
603
T26RWN
PKTSSR

TRAP

CsCLP1

5544

;‘tt“““s“““‘.“'s‘t“.0t‘t"t0““‘“““t‘.“t““tt“‘t‘t00

5545

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XS570)

55‘8
5549
5550 056114

;““tt‘t‘tt‘tt‘““t“t‘tt“‘t““““tt““.t“.“t““‘o““‘t“

gg:g

5551 056120

5552 056122
5553
5554
5555
5559

056126
056130
056132
056136

056136

056140

056142
056144

013701
010102

052702

020102
001406
005237

104456

001134

073315
015564

072150

000002
002212

MOV
MOV

T268FR+6,R1
R1.R2

+PICK UP XSTO
;SET UP EXPECTED

cMP
BEQ
INC
ERRHRD

R1,R2
404
FATFLG
ERRNQ,T26B0T,EXPREC

;D0ES EXP = REC'D
:BR, IF EQUAL (0K}
;BUMP COUNT
; TAPE NOT AT BOT AFTER REWIND

8IS

08IT1,.R2

;SET B80T BIT IN EXPECTED

TRAP

CS$ERMHRD

.WORD
.WORD

126807
EXPREC

.WORD

604

1Sv?

fCST

HARDMARE

6: REREADS

5560 056146
056146
056150
056154

TESTS

104406
012703

013737

1 8

000400
003114

MACRO M1113

14 JUN 84

40%:

CxLOooP

MOV
MOv

072252

14:17

Bl
SEQ 0208

sLOOP 1IF SELECTED
9256. ,R3

FREE, T26R8

TRAP

CsCLPy

sRECORD SIZE
1STARTING WRITE BUFFER ADDRESS

1000806008000 000000000080000006000080080080000000008800000000800008000¢

{WRITE DATA,ACK,CVCel COMMAND
1000000820008 0000080000800004000000080000000000000000800000008000000¢

012737
012704

010300
004737
010337
010465
004737
016501
012702
020102
001406
005237

5587
5588
5589
5590
5591

$592
5593
5594

140005
072250

754

5601

5603

80
:

sWMRITE DATA,ACK,CVC=1 COMMAND

MOV
JSR
MOV
MOV
JSR
MOV
MOV

R3,.RO

1SET PATTERN IN CORRECT REGISTER

PC.FILLMEM

R3,T26S2
R4, TSDB(RS)
PC.WAITF

TSSR(RS),R1
OSSR, R2

R1,Re
754

FATFLG

ERRAND, WRTERR , EXPREC

CxL O0P

CxLooP

1SET UP R4 WITH PACKET ADDRESS

sFILL MEMORY WITH RECORD SIZE
sSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
tWAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED
iAPE THEY EQUAL
18R, IF O«
18UMP COUNT

sTSSR INCORRECT AFTER WRITE DATA
TRAP
CSERMRD

sLOOP IF SELECTED
(R3).
. ,R3
0268
65¢

.WORD
.WMORD
.MORD

605
WRTERR
EXPREC

TRAP

CsCLPY

TRAP

CsCLP)

1BUrP RECORD SIZE
sEND OF RECORO YE?
1BR, IF MORE RECORDS TO WRITE
1LOOP IF SELECTED

120¢:
1060008860080 0000000000000060008000008000800000000000000080000000006098

s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
1088808008880 000500800600080808080080000000000080808000020000800000000

004737

103413
016501
012702
010004
005237

JSR
8CS
MOV
MOV
MOV
INC
ERRHRD

011104
000002
000200

002212

104456
001136

5610

€1400035, T26PK3
0T26PK3
R4

151

000414

104406

MOV
MOV

ce
8€qQ
INC
ERRHRD

002212

5595
5596

5597
5596
S599

654
:

017512
072256
000000
016340
000002
000200

104456
001135
005111
015564
104406
005723
022703
001346

072250

073604
012136

104406

130¢:

CKLOOP

PC.REWIND

1304

TSSR(RS),R1
#SSR,R2
RO, R4
FATFLG

ERRNO, T26RWN, PKTSSR

;CALL TAPE REWIND COMMAND
1BR, IF NO PROBLEM
1GET TSSR
1SET UP EXPECTED TSSR

t1PACKEY ADDRESS SET P
;8UMP COUNT
{REWIND NOT ACCEPTED

1LOOP IF SELECTED

TRAP
.MORD

.WORD
.WORD

CSERMRD
606
T26RWN
PKTSSR

TRAP

CsCLP}

TSV?

TEST

MARDMARE

TESTS

MACRO M1113

JUN

14:17

SEQ

REREADS

%ié

. 2000080000008 000000002000000000000000000080000000000000000000800000

5613
S614

:
{READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERCU (XST0)

%{6S

;
1060008000000
080000000000800400000800000000200000000000000000080000

S617

S618 056320

013701

072150

MOV

052702

000002

B1S

S619 056324

010102

5621 056332

020102

S620 056326

S622 056334

5623 056336

S627 056342
0%2%2
056344

056346
056350

5628 056352
056352

56233 0S6354
S6

001406

005237

cre

R1,R2

;D0ES EXP = REC'D

INC

FATFLG

s1BUMP COUNT

ERRHRD

104456

®IT1.R2

140¢

ERRNO, T26B0T,PKTSSR

00113%7

073315
012136

104406

012737

140¢:
000400

072302

sPICK UP XSTO

R1,Re2

8€Q

002212

T268FR+6,R1

MOV

CxLOOP
MOV

1SET UP EXPECTED

$;SET BOT BIT IN EXPECTED

tBR,

IF EQUAL (Ox)

;TAPE NOT AT BOT AFTER REWIND
TRAP

;LOOP IF SELECTED
9256.,T126RS2

;SET RECORD SIZE

607

TRAP

ciCLP)

. WORD
.WORD

%31

1008000000088 88088000800000000020000000000000008000000000000000000¢

5632

%“

;‘.‘.‘.‘.‘.....‘.‘..“‘..‘..‘......".....‘....“““‘0....‘...‘..‘

5633
Ssggg
5637

5€38
5639
5640
S641
5642
5643

CSERMRD

.WORD

126807
PXTSSR

1 ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NMMBER OF RECORDS
;8IT 1S SETS DIRECTION - O=FORWARD
1=REVERSE

056362
056366
0%372
056374
056400
056404

012703
004737
103412
016501
012702
005237

056410
05641

104456
001140

056420
5649 056422

104406
013703

5647 056410

056414
056416
5648 056420

:g? 056426

000001
010556

145¢

000002
000200

002212

ERRHRD

072717
015564

013737

150¢%:

072302
003114

MOV
JSR
8Cs
MOV
MOV
INC

%52

ERRNO, T26SC,EXPREC

sSPACE ONE RECORD PARAMETER
;CALL SPACE ROUTINE
tBR, IF NO PROBLEM WITH SPACE COMMAND
1GET TSSR
;SET UP EXPECTED TSSR
;BUMP COUNT
;POSITION (SPACE RECORDS) FAILED

(XL OOP

MOV

072252

#1,R3
PC.SPACE
1504
TSSR(RS ) ,R1
OSSR, R2
FATFLG

MOV

T26RSZ ,R3

FREE, T26R0

t1RECORD SIZE

TRAP
.MORD

. WORD
.MORD

CSERMRD
608
T26SC
EXPREC

TRAP

CsCLP1

1STARTING READ BUFFER ADDRESS

1000800000000 08808008600000008008000008000080000000004800080000000006080800¢

5653

:‘...“.‘...“.‘.‘.‘.‘.O“.‘.‘.‘.‘.0““‘.‘“.““..C...‘..“‘.““

5522;

5657
5658 056434
5659 056442
5660 056446

5661 056452
5662 056456
5663 056462

sREREREAD DATA,CVvC=1,ACK COMMAND

012737
012704
010337
010465

004737
016501

141001
072250
072256
000000

016340
000002

072250

1654

MOV
MOV
MOV

MOV
JSR
MOV

0141001, 726PK3
0T26PK3 R4
R3, 12652

R4, TSOB(RS)
PC.WAITF
TSSR(RS),R1

1REREREAD DATA,CVCe=1,ACKX COMMAND
;SET UP RA WITH PACKET ADODRESS
1SET UP RECORD SIZE IN PACKEY

1 ISSUE COMMAND
1WAIT FOR SSR TO SET
tGET TSSR CONTENTS

0209

HARDWARE

TSv?

TEST

TESTS

1 8

MACRO M111%

14 UUN 84

14:1°

SEQ 0210

REREADS

S664 056466

5665 056472
5666 056474
5667 056476
S67. 056502
056502
056504
055506
056510
5672 056512
056512
5673 056514
S674 056520
5675 056522
5676 056526
5677 056530
S678 056532
5679 056534
0t ,536
5681
5685

012702
020102
001406
005237

MOV

000200

104456
001141
074140
012136
104406

013702
010304
162704
060204

170%:
003114
000400

1733

021403
001410
011401

010302
005237

R1,R?
1704

ERRHRD

ERRNO, T26WOC ,PKTSSR

INC

002212

1SET UP EXPECTED
tARE THEY EQUAI
18R, IF O
;BUMP COUNT

1 TSSR INCORRECT AFTER REREAD DATA
TRAP
CSERMRD
.MORD
609
.WORD
T26WDC
.WMORD
PKXTSSR

;LOOP IF SELECTED

MOV
MOV
SUB
ADD
cHp

FREE ,R2
R3,.R4
0256. R4
R2,.R4
(R4 ),R3

MOV
MOV
INC

(R4),R1
R3.R2
FATFLG

ERRHRD

104456

FATFLG

CxLO0F

BEQ

002212

OSSR Re

o
8EQ

180¢

ERRNO, T26DTA ,EXPREC

sDATA READ NOT = WRITTEN

001142

073362
015564

180¢:

187

5687

5689
5690
5691
5692
5693
5694

CxLOOP

SuUB
cee
BNE
187

072302
000412

190¢:

BNE
CKLOOP

145

ENDSUB

5697
5698

cre

5700
5701
5702
5703
5704
5705
5706
S707
S708
5709
5710
5711
S712
S713

017272

000017

9994
:

(R3).

R3,T26RSZ

5696

002212

R4 ,R3
173

MOV

5695

R2.R4

8Lo
JSR

0266. ,R3

.MORD

610

TRAP

CsCLPY

END

CsCLP1

TRAP

CsesuB

>5>3>>33>3>>>

1BR, IF LESS THAN 25
;:TRY

:TEST 6, SUBTEST 2
:

s VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=0
sAND SWB=1 OPERATES PROPERLY. THE TEST SEQUENCE IS

;THE SAME AS THAT USED IN SUBTEST 1, BUT IT IS
s VERIFIED THAT DATA STORED BY THE COMMAND CONTAINS

YO DROP

T26DTA
EXPREC

TRAP

SUBTEST

1 IS ERROR COUNT AT 25

1 SWAPPED BYTES.

CS$ERRD

:END OF RECORD YET
1BR, IF MORE RECORDS TO READ
;LOOP IF SELECTED
L10103:

9994
PC ,CXDROP

TRAP

1BUMP TO NEXT LOCATION
;CORRECT RECORDS SIZE VALUE
1END OF RECORD YET
;BR, IF NOT AT END OF RECORD
;BUMP RECORD SIZE
;RESET RECORD SIZE

:>>5>>3353>3>3

FATFLG, @15,

CsCLP)

.MORD
.MORD

;LOOP IF SELECTED
(R4).

TRAP

;CURRENT BUFFER ADDRESS TO R2
1 CURRENT RECORD SIZE
sFIRST LOCATION IN BUFFER
sSET UP POINTER
1CHECK DATA READ (R3=DATA ALSO)
sBR, IF ALL IS WELL
1RECD DATA
tEXPECTED DATA
;8UMP COUNT

THE UNIT

|
:

TSV? - HARDWARE TESTS 1-8

TEST

MACRC M1113

14 JUUN-84

14:17

SEQ 0211

6: REREADS

5714
S715 056622
056622
056622
5716 05664
S717 056630
5718 056634
5719

104402
004737
004737
004737

JSR
JSR
JSR

075040
075132
075174

BEGIN

SUBTEST

16.2:

PC,T26REST
PC,T26RT2
PC,T26RT3

»>553355555
>

TRAP

$sSET COMMAND PACKET
1SET UP OTHER COMMAND PACKET
1SET UP OTHER COMMAND PACKE?

csssuB

106008000808 800800048800002800080808084048800085000808888400800808048000

5720

5721
£722
5723
5724

1 ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR
1668888600008 080080800080088804000808008004000088000808008000880¢0000¢

5725

004737
103407
005237
010001

5726

5727
5728
5732
5733

JSR

016064

8rs
INC
MOV
ERROF

002212

104455
001143
003650

S734
5735
5736
5737
5738
5739
5740
S741
5742
S743
S744
5745
5746
5750
5751

012124
013737

002172

012704

072120

072140

20%:

PC.SOFINIY

204
FATFLG
RO,R1
ERRNO, SFIERR, SFIMSG

100 INITIALIZE ON CONTROLLER
$BR IF INIT WAS OK

18UMP COUNT
sCONTENTS OF TSSR REGISTER

1tFATAL ERROR TSSR WAS NOT 0K
TRAP
. WORD

.WORD
. WORD

MOV

UNITN, T260SW

$SET UP UNIT NUMBER

MOV

R4
#T26PACKET

: SUBROUTINE NEEDS PACKET ADDRESS

CSERDF

611
SFIERR
SF IMSG

180088208888 8808088888808880384000880088¢8400800880004000882400800088

{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
.

1000880808880 8880000088888820808880800888008080083000080808000000000

056676
056702
056704
056710
056712
56712
056714
056716
056720
5752 056722
056722
5753

004737
103407
005237

010001

JSR
8CS
INC
MOV
ERRHRD

010752
002212

104456

001144
005054
012124

:
268

104406

5754

S75S
5756
5757
5758
5759
5760
5761
5762
5763
S764
5765

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

8GNSUB

PC,WRTCHR
264
FATFLG

RO,R1
ERRNO,WRTMSG,
SF IMSG

: ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED O
:8UMP COUNT

: SAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED
TRAP

:LOOP IF SELECTED

CxLOOP

612
WRTMSG

TRAP

CsCLP1

1868680080480 0085044808888888888848088000888048480080020800008080004800200

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
1086888803608 0883080088888308888828804848802884888008080008828880008000400

056724
056730
056732
056736
056742
056744

004737

011104

016501
012702
010004
005237

000002
000200

103413

002212

JSR
8Cs
MOV

PC,REWIND
304
TSSR(RS),R1

MOV
INC

RO,R4
FATFLG

MOV

@SSR ,R2

;{CALL TAPE REWIND COMMAND
;1BR, IF NO PROBLEM
;1GET TSSR
1SET UP EXPECTED TSSR
;PACKET ADODRESS SET

;BUMP COUNT

ULP

CS$ERMRD

. WORD
. WORD
. WORD

SF IMSG

TSv?

TEST

HARDWARE TES'S
6: REREADS

5769 056750

256750
056752
056754
056756
S770 056760
056760
s771

MACRO M1113

ERRHRD

104456
001145
073604
012136

304

057042
057042
057044

057050

5816

CKLOWP

;REWIND NOT ACCEPTED

1LOOP IF SELECTED

TRAP

CSERMRD

.WORD
. WORD
.WMORD

613
T26RWN
PKTSSR

TRAP

CsCLP1

{READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
.

1888300800808 0480808880880888840800088800600880808080088000080008804

013701
010102
052702
020102
001406
005237

MOV
MOV
8IS
cHe
6eaq
INC
ERRHRD

072150
0000N2

002212

T26BFR+6,R1

tPICK UP XSTO

R1,R2

1SET UP EXPECTED

R1,R2

s1DOES EXP = REC'D

08IT1,R2

404
FATFLG

ERRNO, T2680T ,EXPREC

104456

1SET B80T BIT IN EXPECTED
s8R, IF EQUAL (0K)
;8UMP COUNT
;TAPE NOT AT B80T AFTER REWIND
TRAP

001146

073315
015564

104406
012703
013737

40%:

000400
003114

MOV
MOV

072252

sLOOP IF SELECTED

CKLOOP

0256. ,R3

FREE, T26RB

CSERMRD

.WORD
.WORD
.WORD

614
126807
EXPREC

TRAP

CsCLP)

sRECORD S[ZE
;STARTING WRITE BUFFER ADDRESS

(688888460 00084858808888808800020800838888030004800808800885080808488042

5795
5796
5797
5798 057030
5799 057036

5815

ERRNO, T26RWN ,PKTSSR

SEQ 0212

188800080800 088088040882880000884080400000004808008808800080¢80000008000

5792
5793
5794

5810
S814

14:17

104406

S772

S772
S774
S775
5776
5777
5778 056762
5779 056766
5780 056770
5781 056774
5782 056776
5763 057000
5787 057004
057004
057006
057010
057012
5788 057014
057014
5789 057016
5790 057022
S791

14 JUN 84

057054
057060
057064
057070
057074
057076
057100
057104
057104
057106
057110
057112
057114
057114
057116

{WRITE DATA,ACK,SWB COMMAND
[

;6808880888848 04888380880082008280828082480002008830000888008000484008

012737
012704
010300
004737
010327
010465
004737
016501
012702
020102
001406
005237

104456
001147
005111
012136
104406
005723

110005

072250

072250
654:

MOV
MOV

110005, T26PK3
0T26PK3
R4

sWRITE DOATA,ACK,SWB COMMAND
;SET UP R4 WITH PACKET ADDRESS

MOV

R3,RO
PC,FILLMEM
R3, 12652
R4,TSDB(RS)
PC,WAITF
TSSR(RS),R1
#SSR,R2
R1,R2
754
FATFLG

sSET PATTERN IN CORRECTY REGISTER
;FILL MEMORY WITH RECORD SIZE
sSET UP RECORD SIZE IN PACKETY
s ISSUE COMMAND

JSR

017512
072256
000000
016340
000002
000200

MOV
MOV

JSR
MOV
MOV
cre
8EQ
INC
ERRHRD

002212

75¢:

ERRNO,WRTERR ,PKTSSR

tGET TSSR CONTENTS
;SET UP EXPECTED
;ARE

1BR,

THEY EQUAL

IF Ox

;BUMP COUNT

; TSSR INCORRECT

AFTER WRITE DATA
TRAP
CSERMRD

1LOOP IF SELECTED

CKLOOP

TST

sWAIT FOR SSR TO SET

(R3).

iBUMP RECORD SIZE

.WORD
.WORD
.MORD

615
WRTERR
PKTSSR

TRAP

CsCLP)

TSV?

TEST

MARDWARE TESTS 1 8

6&: REREADS

5817 057120
5818 057124
5819 057126

057126
5820 0571%0

022703

00134¢

MACRO M1113

14 UUN %4 14:17

cMP

000414
80$:

10440¢

BNE
CKLOOP

0268, ,R3

654

SEQ G213

;END OF RECORD YE1T

s8R, IF MORE RECORDS TO WRITE
;LO0P IF SELECTED
TRAP

120%:

Ssggé

;“.t“..“‘....“.“““‘.““..‘00“.t.0‘..“‘..‘.‘....‘.“‘.‘..‘

5823
5824

H
;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

5825

5826

;““0..“‘t“‘..‘.‘.‘..“‘...“““..‘.“‘.‘.‘.“““.“‘.“‘.“‘.

5827

5828 057130
5829 057134
S830 057136
S831 057142
5832 057146

S833 057150
S837 057154

057154

005237

057162

012136

057164

011104

JSR
B8CS
MOV
MOV
MOV
INC

000002
000200
002212

ERRMRD

104456

001150

5838 057164
9

004737
103413
016501
012702
010004

057156

057160

sa3

PC ,REWIND
130
TSSR(RS),R1
#SSR,R2
RO,R4

FATFLG
ERRNO, T26RWN,PKTSSR

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

073604

TRAP

616

.WORD

PKTSSR

TRAP

CsCLPL

.WORD

130%:

104406

CKLOOP

sLOOP IF SELECTED

;0088840680080 00800060088480000808800088080888088048488004048008008880400
H
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERCO (XSTO)

5“4

;‘.““‘0.‘.““.‘.‘.“...“"...“".““‘t....‘.‘.“.““."t.‘.‘

5845

5846 057166

013701

072150

MOV

052702

000002

5847 057172

010102

5849 057200

020102

S848 057174

5850 057202
5851 057204

5855 057210

057210
057212
057214
057216

5856 057220
057220
%g; 057222

001406
005237

002212

BIS

#MIT1,.R2

$SET B80T BIT IN EXPECTED

B8EQ
INC

140¢
FATFLG

ERRHRD

140¢:
000400

sPICK UP XSTO

104456
001151
073315
015564
104406
012737

T26BFR+6,R1

MoV

072302

R1,R2

ERRNO,T2680T ,EXPREC

CKLOOP
MOV

sDOES EXP = REC'D

B8R, IF EQUAL (0K)
;BUMP COUNT

t TAPE NOT AT BOT AFTER REWIND

sSET UP RECORD SIZE

TRAP
. WORD
. WORD
.WORD

CS$ERHRD
617
726807
EXPREC

TRAP

CsCLP]

5859

;.“"0".“t“‘t.“..“““‘.‘.““‘“““00“‘.“‘.““0““““0

5861
&g

s ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
sBIT 1S SETS DIRECTION - O=FORWARD
1=REVERSE

S860

5864

5866 057230
S867 057234
5868 057240

T26RWN

1SET UP EXPECTED

;LOOP IF SELECTED
9256., T26RS2

CSERHRD

.WORD

5840
5841
&g

5865

CsCLP)

;‘.‘.‘“‘t“‘.“““.‘.‘.‘...‘.‘t.‘.“‘t“““.‘““‘.““.“‘tt‘t‘
012703
004737
103412

000001
010556

1454

MOV
JSR
8CS

01,R3

PC,SPACE

150¢

s SFACE ONE RECORD PARAMETER
;1CALL SPACE ROUTINE
1BR, IF NO PROBLEM WITH SPACE COMMAND

TSV?
TEST

- MARDMWARE TESTS 1 8
6: REREADS

5869 057242
5870 057246
5871 057252

016501
012702
005237

057256
057260
057262
057264
057266
057266
057270
057274

104456
001152

5875 057256

MACRO M1113

MOV
MOV

000002
000200
002212

INC
ERRHRD

072717
015564

104406
013703
013737

150¢:
072302
003114

14 UUN 84

TSSR(RS),R1
OSSR ,R2

FATFLG

ERRNO, T26SC, EXPREC

SEQ 0214

sGET TSSR
1SET UP EXPECTED TSSR
1BUMP COUNT
sPOSITION (SPACE RECORDS) FAILED
TRAP

CKLOOP
MOV
MOV

072252

14:17

T26RSZ,R3

FREE, T26R8

sRECORD SIZE

CS$ERMRD

.WORD
.WORD
.WORD

618
T26SC
EXPREC

TRAP

CsCLP1

$STARTING READ BUFFER ADDRESS

(6088800888040 84200004808888488480880088844400000408082848858888040848

;REREAD DATA,CVC=1,ACK.SW8 COMMAND
H

1680080444588 884388080848048888048440088828480800080888008080800004¢

057302
057310
057314
057320
057324
057330
057334
057340
057342
057344
057350
057350
057352
057354
057356
057360
057360
057362
057366
057370
057374
057376
057400
057402
057404
057406
057412
057412
057414

057416
057420
5914 057422
057422
5915 057424
5916 057426
5917 057430
5918 057432
5919 057434

012737
012704
010337
010465
004737
016501
012702
020102
001406
005237

151001
072250

072256

072250

165%:

MOV
MOV

016340
00020C

FATFLG

002212

ERRNO, T26WDC, PKTSSR

104456
001153

074140
012136
104406
013702
010304
162704

021403
001410
011401
010302

005237
104456
001154
073362
015564

104406

005724
160204
020403
001360
005723

170¢:

CKLOOP

173¢:

MOV
MOV
SUB
ADD

003114
000400

151001, T26PK3
#T26PK3,R4
R3,T26S2
R4 ,TSOB(RS)
PC,WAITF
TSSR(RS),R1
OSSR, R2
R1,R2
1704

002212

180%:

cHe
BEQ
MOV
MOV
INC
ERRHRD

$SET UP R4 WITH PACKET ADDRESS

1SET UP RECORD SIZE IN PACKET
: ISSUE COMMAND
sWAIT FOR SSR TO SET
$GET TSSR CONTENTS
:SET UP EXPECTED
;ARE THEY EQUAL
:BR,

IF 0K

;8UMP COUNT
; TSSR INCORRECT AFTER REREAD DATA
TRAP

;LOOP IF SELECTED
FREE ,R2
R3,R4

9256. ,R4

R2.R4
(R4),R3

180¢
R3,R2
FATFLG

ERRNO, T26DTA ,EXPREC

(R4).

TST
suB

R2,R4

TST

173
(R3).

R4 ,R3

. WORD
.WORD
. WORD

TRAP

CsCLP1

TRAP
.WORD

CS$ERHRD
620

TRAP

CsCLP1

.WORD
.WORD

1BUMP TO NEXT LOCATIUN
1 CORRECT RECORDS SIZE VALUE

tEND OF RECORD YEY

CSERMHRD

619
T26W0C
PKTSSR

sCURRENT BUFFER ADDRESS TO R?2
;CURRENT RECORD SIZE
sFIRST LOCATION IN BUFFER
;SET UP POINTER
;CHECK DATA READ (R3=DATA ALSQO)
18R, IF ALL IS WELL
;RECD DATA
tEXPECTED DATA
sBUMP COUNT
sDATA READ NOT = WRITTEN

;LOOP IF SELECTED

CvLOO0P

cHe
BNE

tREREAD DATA,CVC=1,ACK,SWB COMMAND

1BR, IF NOT AT END OF RECORD
1BUMP RECORD SIZE

T26DTA
EXPREC

TSv?

TEST

HARDWARE TESTS ' 8

RERFADS

5920 057436
S921 057442
5922 057446
5923 057450

010337
022703
001270

057450

104406

057452
057452

104403

5924 057452

5925 057454
5926 057462
5927 0S7464

5928 057470

023727
103402
004737

MACRO TMM1113

072302
000417
190$:

14 JUUN 84 14:17

MOV
cHP
BNE
CxLOOP

R3,T26RS?
0266, ,R3Y
145

ENDSUB

SEQ 0215

:STORE RECORD SIZE
sEND OF RECORD YET
:BR, IF MORE RECORDS TO READ
+LOOP IF SELECTED
$22>>>>33>>>:

L10104:

002212
017272

5929

000017
999.

ce
BLO
JSR

FATFLG, @#15.
9994
PC.CKDROP

5932

:TEST 6, SUBTEST 3

5934
5935
5936
5937
5938
5939
5940
5941

;VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=]
; (READ REVERSE, SPACE FORWARD) AND SWB=0 OPERATES
{PROPERLY. THE TAPE IS FIRST REWOUND AND THEN WRITTEN
;WITH A SERIES OF TEST RECORDS VARYING IN LENGTH AND
;DATA CONTENT; THE FIRST FOUR BYTES OF EACH RECORD
;CONTAIN ITS RECORD NUMBER (INDICATING POSITION ON
;TAPE)., THE TAPE IS THEN REWOUND AGAIN. FOR EACH
;TEST RECORD, THE FOLLOMWING SEQUENCE IS EXECUTED.

5943
294;

s1.
:

THE REREAD PREVIOUS COMMAND WITH OPP=1 IS ISSUED
AND THE RESULTS CHECKED

A READ FORWARD COMMAND IS THEN ISSUED AND THE
DATA IS CHECKED TO VERIFY THAT THE TAPE WAS
POSITIONED PROPERLY AFTER THE REREAD PREVIOUS
COMMAND (E.G. THE TAPE SHOULD MAVE BEEN LEFT
POSITIONED AT THE START OF THE TEST RECORD). THE
READ FORWARD COMMAND LEAVES THE TAPE POSITIONED
PROPERLY AT THE STARYT OF THE NEXT TEST RECORD.

:
;2.
H
:
:
:
H

5946
5947
5948
5949
5950
5951
2952
953

5954
5955

;THE BYTE COUNT ON EACH REREAD PREVIOUS COMMAND IS SET
;TO THE LENGTH OF THE EXPECTED RECORD, SO NO

gggg

;EXCEPTIONAL CONDITIONS SHOWLD OCCUR.

5958
5959
5960
5961

:
:
:
s -

5962

S963 057470

057470

968

S970

5971

CSsESLB

5942

5969

TRAP

5933

5964
5965
5966
2967

CsCLP1

>>.5553535>>»

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

5930

5931

TRAP

END SUBTEST

057470

057472
057476
057502
057506

BGNSUB

104402

004737
005037
004737
004737

075040
072276
075132
075174

JSR
CLR
JSR
JSR

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

716.3:

PC,T26REST
T26CNT
PC,T26RT2
PC.T26RT3

TRAP

;SET COMMAND PACKET
1CLEAR TAPE RECORD COUNTER
:SET UP OTHER COMMAND PACKET
;SET UP OTHER COMMAND PACKET

;‘.“".“““‘..‘..“.“"“‘.‘.‘..““‘..‘...“.‘.“.“.“‘..“.‘

;ISStE CONTROLLER "SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR

>>3>53>>>>>>>

csBsuB

TSv?

TEST

HARDWARF

.. S
RERE

TESTS

MACRO M1113

5972

14 UUN 84

14:17

SEQ@ 2216

1008000808800 88280008000800088380000000040008088¢880000300000000000889

5973
5974
5975 057512
5976 057516
5977 057520
5981 057524
5982 05752¢
057526
057530
057532
057534
5983 057536

104455
001155
003€<.
012124
013737

002172

5985 057544

012704

072120

004737
103407
005237
010001

JSR
BCS
INC
MOV
ERRDF

016064

002212

5986

072140

204 :

PC.SOFINIT
204

FATFLG

RO,R1
ERRNO,
SF IERR, SFIMSG

1D0 INITIALIZE ON CONTROLLER
{BR IF INIT WAS O«
sBUMP COUNT
sCONTENTS OF TSSR REGISTER

sFATAL

ERROR

TSSR WAS NOT 0Ox
TRAP

. WORD
. WORD
. WORD

MOV

UNITN, T260SW

;SET P UNIT NUMBER

MOV

#T26PACKET
R4

:SUBROUTINE NEEDS PACKET ADORESS

5987
5988

18880088 086848888888080888888804880000280000888084880880280400880000800¢

5991
5992
5993
5994
5995
5999

1888080888088 88088088088080808884808884088080008880088008880808808808802

{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

5989

057550
057554
057556
057562
057564
057564
057566
057570

057572
6001 C57574
057574
6002
6003
6004
6005
6007
6008

CS$ERDF

621
SFIERR
SF IMSG

004737

103407
005237

JSR
8CS
INC
MOV
ERRHRD

010752

002212

010001

PC,WRTCHR

264

FATFLG
RO,R1

ERRND ,WRTMSG, SF IMSG

sISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED 0K
;BUMP COUNT
;SAVE CONTENTS OF TSSR

;WRITE CHARACTERISTISC FAILED
TRAP

104456
001156
005054
012124

264 :

104406

CKLOOP

:LOOP IF SELECTED

.WORD
.WORD
. WORD
TRAP

C$ERHRD
622
WRTMSG

SF IMSG

CsCLP1

1086850880888 040808008080888008400808802808000088800088080000040380808003

: ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
108000088588 0888888880088088082088880080888800000008408358008088008008¢s

057576

6010 057602
6011 057604
6012 057610
6013 057614
6014 057616
6018 057622
057622

057624
057626
057630
6019 057632
057632
6020
6021
6022
6023

004737

103413
016501
012702

000002
000200

005237

002212

010004

104456
001157
073604
012136

JSR
8CS
MOV
MOV
MOV
INC
ERRHRD

011104

30%:

CKLOOP

PC,REWIND

30¢

TSSR(RS),R1

#SSR ,R2

RO,R4
FATFLG

ERRNO, T26RWN,PKTSSR

;CALL TAPE REWIND COMMAND
;BR, IF NO PROBLEM
;GET TSSR
+SET UP EXPECTED TSSR
sPACKET ADDRESS SET P
;BUMP COUNT
sREWIND NOT

ACCEPTED

;:LOOP IF SELECTED

104406

TRAP

. WORD
. WORD
. WORD
TRAP

;0880888688068 08480084808880880800888080888008000808000808000800800088000

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTC)

CSERMRD
623
T26RWN

PHTSSR

CsCLP1

|
TSV7? - HARDWARE TESTS 1 8

TFST

MACRO M1113

14 JUN-84

14:17

SEQ 0217

REREADS

6024
6025
6026
6027
6028
6029
6030
6031
6032
6036

100080888800 8020000000000080008080800000000800000008000008000000000800800

057634
057640
057642
057646
057650
057652
057656
057656
057660
057662
057664
6037 057666
057666
6038 057670
639 057674

€N

000002

001406
005237

0C221e

020102

MOV
MOV
BIS
ce
BEG
INC

072150

013701
010102
052702

ERRHRD

104456
001160
073315
015564
104406
012703
013737

404 :

000400
003114

#BIT1,R2

R1,R2

404
FATFLG

ERRNO, T2680T ,EXPREC

;PICK UP XSTO

:SET UP EXPECTED
;SET BOT BIT IN EXPECTED
sDOES EXP » REC'D
sBR, IF EQUAL (Om)
;8UMP COUNT

;TAPE NOT AT BOT AFTER REWIND

;_00P IF SELECTED

CxLOOP

MOV
MOV

072252

T26BFR
6 ,R1

R1,R2

9256
. ,R3

FRE
, T26R8
E

TRAP

CSERRD

.MORD
. WORD
. WORC

624
126807
EXPREC

TRAP

CsCLP]

;RECORD SIZE

;STARTING WRITE BUFFER ADDRESS

6041
6012

160838800808 0088080008080088808000080280808800080000828000800088080008000000

604

{WRITE DATA,CVC=1,ACK COMMAND

6045

1888880800000 08088008880800080080460080¢08000008000080080800000080800¢

6047 057702
057710
6049 057714

057714

6051 057716
057722
6053 057726
057734
6055 057742
057746
6057 057752
057756
6059 057762
057764
6061 057766
6065 057772
057772
057774
057776

6067

060002
060002

6069 060012
6070 060014
6071 060016
6972 060016
6073
6074
6075
6076

012737
012704

010300
004737
010337
013777
062737
010465
004737
016501
012702
020102
001406
095237

140005
072250
017512
072256
072276

000001
000000
016340
000002
000200

072250

.
654

MOV
MOV

€140005, T26PK3

;WRITE DATA,CVC+1,ACK COMMAND
;:SET UP R4 WITH PACKET ADORESS

MOV
JSR

R3.RO
PC.FILLMEM
R3,T26S2
T26CNT
,8F REE
01, T25CNT
R4, TSDB(RS)
PC.WAITF
TSSR(RS)
,R1

;SET PATTERN IN CORRECY REGISTER

MOV
MOV
ADD
MOV
JSR
MOV
MOV
crpP
BEQ
INC
ERRHRD

123160
072276

002212

#T26PK3
R4

#S5SR ,R2
R1,R2

754
FATFLG

FRARANO,WRTERR ,PKTSSR

104456

001161
005111
012136

754

104406
005723
022703

000414

005037

072276

001401
000737

;TSSR INCORRECT AFTER WRITE DATA
TRAP

;LOOP IF SELECTED

CXLOOP

1BUMP THE RECORD SIZE
;MAXIMUM SIZE YEY

625
WRTERR
PXTSSR

TRAP

CsCLP]

cHp
BEQ
B8R

1BR, IF AT END OF WRITE SEQUENCE
1 WRITE MORE RECORDS

CLR

T26CNT

:SET RECORD COUNTER BACK TO ZERO

(9888888408808 080008888808000888808000800800800800088000000800080000000000

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

CSERHRD

.WORD
. WORD
.WORD

(R3).
#208. ,R3
1208
654

TST

:
1204

sFILL MEMORY WITH RECORD SIZE
;SET UP RECORD SIZE IN PACKET
;MOVE TAPE RECORD NUMBER TO BUFFER
;NUMBER READY FOR NEXT RECORD
; ISSUE COMMAND
;WAIT FOR SSR 10 SE7
;GET TSSR CONTENTS
;SET UP EXPECTED
;ARE THEY EQUAL
;BR, IF Ox
;BUMP TOULNT

TSV?
TEST

MARDWARE TESTS 1 8
6:

MACRO M1113

14 UUN 84 14:)17

SEQG 0218

REREARDS

2878

;0000000000000 0800800000000000000000000000800000000000800000000008000

6079

6080 060022

004737

011104

6082 060030
6083 060034
6084 060040
6085 060042

016501
012702
010004
005237

000002
000200

060046

104456

6081 060026

6089 060046

060050
060052
060054
6090 060056
6091

060056

103413

JSR

PC.REWIND

MOV
MOV
MOV
INC

TSSR(RS) ,R1
#SSR ,R2
RO,R4
FATFLG

8Cs

002212

EQRHRD

001162
073604
012136

130%:

104406

130

ERRNO, T26RWN,PKTSSR

CxXLOOF

;CALL TAPE REWIND COMMAND
sGET TSSR
;SET UP EXPECTED TSSR
{1PACKET ADORESS SET P
;8P COUNT
;:BR, IF NO PROBLEMTM

;REWIND NOT ACCEPTED

;LOOP IF SELECTED

TRAP

626
T26RWN
P TSSR

TRAP

cscLPl

6092

190000060 00880008080006000000800000800008008000000000800600000000000000¢

6093
6094

H
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO)

6096

;008080000080808000008088800080080000000008000000000000000000008080000

6095

6097

6098 060060
6099 060064
6100 060066
6101 060072

013701
010102
052702
020102

072150

6103 060076

005237

0C2212

6102 060074

6107 060102

060102
060104

001406

MOV
MOV
B1IS
o,

000002

BEQ

INC

ERRHRD

104456
001163

060106
060110

073315
015564

060112

104406

6108 060112
6109

140¢:

6110

;86U COUNT

;TAPE NOT AT BOT AFTER REWIND

;LOOP IF SELECTED

;B8IT 1S SETS DIRECTION - O=FORWARD

6115

gig? 060130

CxLOOP

1BR, IF EQUAL (O)

TRAP
. WORO
. ORD
. MO0

CSERYRC
627
126807
EXPREC

TRAP

CsCLP)

;ISSUE SPACE RECOROS COMMAND - VALUE IN R3 SETS MMRER OF RECORODS

gil.’»

6117 060114
6118 060120
6119 060124

ERRNO, T26B0T ,EXPREC

sPICK UP XSTO
sSET UP EXPECTED
;SEY B80T BIT IN EXPECTED
;00ES ExXP = REC O

6112

6116

T26BFR.6,R]1
R1.R2
M8IT]1 . R
R1,R2
1409
FATFLG

;96088080888508086800000000000008000800000000000000000000000008080000

6111

1-REVERSE

1008008008000 0008882300800000600000000800808000008000000080600000800000800¢

012703
004737
012703

013737

000001
010556
000400

003114

072252

6122

150¢:

MOV
JSR
MOV

MOV

01 .R3
PC,SPACE
0256, .R3

FREE, T26R8

;SPACE 1 RECORD FORWARD
;SPACE CALL
;RECORD SIZE

;STARTING READ BRFFER ADORESS

;0008060000008 0000800000800000080800000000008000000000060000000808080000

6123

6125

6124

;REREAD DATA,CvCe=1,ACK,

6126

;8808800000804 80000800000008000000000000000000000000000000800000008

6127

CSERRD

. WORD
. WORD
. WORO

6128 060136
6129 060144

012737
(12794

161001
072250

072250

165¢:

MOV
MOV

OPP COMMAND

2161001, 126PK3
0T26PK3 , RA

:REQEAD DATA Cv(e: ACK, OPP COMWND
;SEYT UP R4 WITw PACKETY ADORESS

TSV7
TEST

- HARDWARE TESTS 1-8
6: REREADS

6130
6131
6132
6133
6134
6135
6136
6137

060150
060154
060160
060164
060170
060174
060176
060200

6141 060204

060204

060206
060210
060212
6142 060214
060214
6143 060216
6144 060220
6145
6146
6147
6148
6149
6150
€151
6152
6153
6154
6155
6156

6157
€158
6159

6160
6164

6165
6166

6167
6168
6169
6170
€174

6175

6176
6177
6178
6179
6180

010337
010465
004737

016501
012702
020102
001406
005237

MACRO M1113

14 UUN B4

MOV
MOV

072256
000000
01634C
000002
000200

JSR
MOV
MOV
cHP
8EGQ
INC
ERRHRD

002212

14:17
R3,726S2
R4, TSOB(RS)
PC,WAITF

TSSP(RS),R1

#SSR ,R2

R1,R2

1704
FATFLG

ERRNO, T26RR(G , PXTSSR

SEQ 0219

;SET UP RECORD SIZE IN PACKE®
; ISSUE COrMMAND
sMAIT FOR SSR Y0 SET
;GET TSSR CONTENTS

;SET UP EXPECTED
JARE THEY EQUAL
;OR, IF Ox
;8UMP COUNT

;TSSR INCORRECTY AFTER REREAD DATA
TRap

104456

001164
072622
012136

104406
005723
062737

170¢.

000001

072276

;LO0P IF SELECTED

CxLOOP
TST
ADO

WORO
WORO
WORD

(R3).

€1, T26CNT

TRAP
;8UMP RECORD SIZE
;BUMP TAPE RECORD COUNTER

CeeRr@RC
628
T 26RR(
PwTSSA

CsC.P:

1086868880808 000080000008800000080808¢0000000000000000000800000088000000

READ DATA, CVC=1, ACK COMMAND
160828808088 0088008000800050208008000080020080000000080000000000000

012737
010337
010465
004737
016501
012702
020102
001406
005237

140001
072256

JSR
MOV
MOV
CHF
8€EQ
INC
ERRHRD

002212

€140001, T26PK3
RS, 12652
R4 ,TSOB(RS)
PC, MAITF
TSSR(RS),R1
#SSR,R2
R1,R2

1954

FATFLG

,PKTSSR
NO,
RDERR
ERR

;READ DATA, CVvCe=1, ACK COMMAND
;SET SIZE INTO PACKET
;ISSUE READ DATA COMPWND
;MAIT FOR SSR

PICK UP THE TSSR

;SET UP EXPECTED
;IS THE TSSR Om
;BR, IF TSSR Ox (GOOD)
;B8UMP COUNT
;READ DATA COMMAND FAILED

TRAP

WwORD

195%:
122606
072276

;LOOP

CKLOOP
MOV
MOV
cre
BEQ

002212

104456
001166
072306
015564
104406
022703
001401
000672

MOV

016340
V00002
000200

104456
001165
005204
012136
104406
017701
013702
020102
001406
005237

MOV
MOV

072250

ERRHRD

8FREE ,R]

T26CNT ,R2

R1,R2

1974

FATFLG

ERRNO, T26WNG , EXPREC

SELECTED

WORC
. WORC

RDE RN
Px
T SSk

TRAP

CsCiLP;

;FIRST WORD FROM READ BUFFER
;SET UP EXPECTED
;IS TAPE POSITION CORREC”
;KEEP GOING POSITION O
;:BUMP COUNY
;TAPE

POSITION

INCORRE(CT

TRAP
.WORD
. WORD

CIERRC
63
T 26uNL

TRAP

CsCLP.

.WORD

1974:
000412

200%$
:

CKLOGP

cHP
8EQ
BR
ENOSUB

9266
. ,R3
2004
150%

CSER®RC

629

EXPREC

;BR, IF AT END OF THE SUBTES?Y
;KEE? GOING MORE RECORDS
;222>

»3333>

END

SUBTEST

>>>333333>

TSV7 - HARDWARE TESTS 1 8

TEST

6: REREADS
060344

060344

€181 060346

6182 060354
6183 060356
6184 060362

104403

023727

103402
004737

MACRO M1113

14 UUN 848 14:17

SEQ 0220
L1010S:

002212

0000:7

017272

cMP

8LO
JSR

999¢:

6185
6186
6187

O
H
;TEST 6,

6188

€189

SUBTEST

FATFLG, @15,

999¢
PC,CKDROP

;VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=1

6191
6192
6193

sAND SWB=1 OPERATES PROPERLY. THE TEST SEQUENCE IS
;:THE SAME THATY IS USED IN SUBTEST 3, BUT IT 1S
;VERIFIED THAT DATA STORED BY THE COMMAND CONTAINS

6195

6194

; SWAPPED BYTES.

6196

6197
6198
6199
6200
6201 060362

060362
060362

060364
060370
060374
060400

H
H
H
BGNSUB

104402

004737
005037
004737
0047%7

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

76.4:
075040
072276
075132
075174

JSR
CLR
JSR
JSR

6207

(SRR

6208
gggg

PC,T26REST
T26CNT
PC,T26RT2
PC,T26RT3

E SR SR RE R EEE AR

L8888

A RN AL AR LSRN E AL 200K

6212

6213 060404
6214 G60410
6215 060412
6219 060416
6220 060420
060420

004737
103407
205237

010001

016064

013737

002172

6523 260436

012704

072120

6224
€225

MOV
ERRDF

104455

001167
003650
(12124

22255 060430

JSR
B8CS
INC

002212

D60422
060424
060426

072140

20s:

TRAP

- CARRY BIT CLEAR IF ERROR

LS R AR ISR RSS2 EE 02450008

PC,SOFINIT
20$
FATFLG

RO,R1
ERRNO, SFIERR,SFI1SG

;

6228

622

S 00

AbEsE

;D0 INITIALIZE ON CONTRNLLER
:BR IF INIT WAS OK
;BUMP COUNT

;CONTENTS OF TSSR PEGISTER
;FATAL ERROR TSSR WAS NOT OK
TRAP

.WORD
. WORD
.WORD

MCV

UNITN, T26DSW

;SET UP UNIT NUMBER

MOV

O0T26PACKET R4

: SUBROUTINE NEEDS PACKET ADDRESS

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

6229

,080006808080888808888808808808088888
0088858888808 88880000088888080004%0

004737
((34C”

010752

JSR

8CS

PC.WRTCHR
c6$

Cs8SuUB

REES 2624058020400 42

0888884005800 8488804888000080A888800
004000020880 008030408800000448

6226

6231 060442
6232 06044¢

4ERRERREX R LR LS LA AR

5>>>5>>>>55>>>

;SET COMMAND PACKET
;CLEAR TAPE RECORD COUNTER
;SET UP OTHER COMMAND PACKET
;SET UP OTHER COMMAND PACKET

:
;ISSUE CONTROLLER ”"SOFT” INITIALIZE

6211

62%

CsESUB

;BR, IF LESS THMAN 25
;TRY TO DROP THE UNIT

6190

6202
6203
6204
22282

TRAP

;IS ERROR COUNT AT 25

:ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK

CS$EROF

631
SFIERR
SF IMSG

REREADS

6233 060450
6237 060454
6238 060456
060456
060460
060462
060464
6239 060466
060466

6240
6241
6242
6243
6244
6245
6246

14-UUN 84 j4:17

INC
MOV

002212

ERRMRD

104456

001170
005054
012124

264 :

104406

FATFLG
RO,R1

ERRNO,WRTMSG, SF IMSG

CKLOOP

SEQ 0221

1BUMP COUNT
s SAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED

1LOOP IF SELECTED

TRAP
.WORD

COERMRD
632

. WORD

SF IMSG

TRAP

CsCLPI

1000808000000 00060000800000820000000000000000086000000800008008000088¢

1ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
108000000080 8000040000880080000000808088000000%00080000000000088000000

6247 060470

060474
6249 060476

6251

005237
010001

MACRO M1113

060510
060514
060514
060516

004737

103413
016501

012702
016004
005237

060522

104456
001171
073604
012136

060524

104406

6257 060524

011104

JSR

PC,REWIND

MOV
MOV
MOV
INC

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

8cs

000002
000200
002212

ERRHRD

304

FATFLG

ERRNO, T26RWN,PKTSSR

1CALL TAPE REWIND COMMAND
1BR, IF NO PROBLEM
$GET TSSR
1SET UP EXPECTED TSSR
1PACKET ADDRESS SE' WP
1BUMP COUNT
sREWIND NOT ACCEPTED

TRAP

558

TSV7

TEST

- MARDMARE TESTS 1 &

30 :

CxLOOP

:LOOP IF SELECTED

TRAP

6259
6260
6261

10080000000 0000800808080080800000008000080¢20008000000000¢2¢000800000

6263

1000000808000 80800888000808000000000008080000000088008000000000800000000

6265

6267
6269
6270
6274

6275
6276
6277
6278
6279
6280
6281
6282
6283

CSERRD
633
T26RWN
PKTSSR

CsCLPL

READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERQO (XSTO)
013701
010102
052702
020102
001406
005237

072150

T26BFR
.6 ,R1
R1,R2

cre

R1,R2

INC

FATFLG

8IS

8EQ

002212

ERRRD

104456
001172
073315
015564
104406
012703
013737

MOV
MOV

404 :

000400
003114

404

ERRNO, T26B0T ,EXPREC

;SET UP EXPECTED

1SET BOT BIT IN EXPECTED
;1D0ES EXP = REC'D
1BR, IF EQUAL (OO
1BLL®P COUNT
sTAPE NOT

AT BOT

1LOOP IF SELECTED

CKLOOP

MOV
MOV

(72252

#B1IT71.R2

PICK UP XSTO

0256. ,R3
FREE, T26RB

AFTER REWIND

TRAP
.WORD
.MORD
.WORD

TRAP
tRECORD SIZE
1STARTING WRITE BUFFER ADDRESS

1060800000808 000008080800800800800008080003080308080008800500808000%000000

}

;WRITE DATA,CVCe=1,ACK COMMAND
:
1000080080280 800805000000003080080000000800800008200000000500808800000008

CSERMRD
634
T26807
EXPREC

CsCLP)

TSv?
TEST

HARDWARE

TESTS

MACRO TMM1113

140005
072250

072250

6: REREADS

6284

6285 060574
6286 060602

012737
012704

060606
060610
060614
060620
060626

010300
004737
010337
013777
062737
010465
004737
016501
012702
020102
001406
005237

6287 060606

6288
6269
6290
6291
6292
6293
6294
6295
6296

6297

050634

060640
060644
060650

6298
6299
6303

6304

6305
6306
6307
6308
6309
6310
6311
6312

017512
072256
072276

001173
005111
012136

104406
005723

000412

005037

072276

001401
000737

MOV

R3,RO
PC.FILLMEM

ADD

MOV
JSR
MOV
MOV
ce
8eQ
INC
ERRHRD

75%:

022703

140005, T26PK3
R4
0T26PK3

MOV
MOV

122266
072276

120¢:

14:17

MOV
MOV

JSR

104456

R3, 12652

T26CM
T, 8FREE
@1, T26CNT
R4, TSDB(RS)
PC.WAITF
TSSR(RS),R1
#SSR,Re

R1,R2

754
FATFLG

ERRNO,WRTERR ,PKTSSR

SEQ 0222

1SET UP R4 WITH PACKET ADORESS

1SET PATTERN IN CORRECT REGISTEP

tFILL MEMORY WITH RECORD SIZE
1SET UP RECORTM SIZE IN PACKET
1MOVE TAPE RELURD NUMBER TO BIFFER
iNUMBER READY FOR NEXT RECORD
1 ISSUE COMMAND
1WAIT FOR SSR TN SET
1GET TSSR CONTENTS
1SET UP EXPECTED

;1ARE THEY EQUAL

18R, IF Ox
1BUMP COUNT
sTSSR INCORRECT AFTER REREAD DATA
TRAP
CSERRD

;LOOP IF SELECTED

CKLOOP

.WORD
.MORD
.MORD

635
WRTERR
PXTSSR

TRAP

CcsCLP1

187
crp
8EQ
BR

(R3).
026
. ,R3
6
1208
654

;8UMP THE RECORD SIZE

CLR

T26CNT

1SET RECORD COUNTER BACK T0 ZERO

sMAXIMUM SIZE YET

sBR, IF AT END OF WRITE SEQUENCE
tWRITE MORE RECORDS

160000000000 00080000080000000000000000000800000000000000000000800000

6313

6314
6315
6316
6317
6318 060714
6319 060720
060722
6321 060726
6322 060732
6323 060734
6327 060740
060740
060742
060744
060746
6328 060750
060750
6329
6330
6331
6332
6333
6334
6335
6336 060752

654:

14 UUN 84

;

1 ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
106080006000 000800008000000080800000046080080000800000000800000800¢0000000

004737

011104

016501
012702
010004
005237

000002
000200

103413

JSR
8cs
MOV
MOV
MOV
INC

002212

104456
001174
073604
012136

ERRHRD

130¢:

104406

PC ,REWIND
130¢

TSSR(RS),R1

OSSR, R2

RO,R4

FATFLG

ERRNO, T26RWN,PKTSSR

1CALL TAPE REWIND COMMAND
;BR, IF NO PROBLEM
tGET TSSR
1SET UP EXPECTED TSSR
1PACKET ADDRESS SET WP
;8P COUNT
sREWIND NOT ACCEPTED

;LOOP IF SELECTED

CxLooP

TRAP
LWORD
. WORD

CSERMRD
636
T26RWN

TRAP

CsCLP1

.WORD

1008806080008 0000808000000000000680008808200400500000080000080000800008000
:

1READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
1000000860868 080008000000008080000000000000000000800000008008000400800080

013701

072150

MOV

T26BFR+6,R]

PICK UP XSTO

PXTSSR

——

TSv?
TEST

HARDWARE

TEST<

060756
060760
060764
060766
060770

0101G¢
052702
020102
001405
005237

060774

104456

6: REREADS

633~
6338
6339
6340
6341
6345

MACRO M1113

001175

061004

104406

061000
061002
061004

14:)7

MOV

R1,Re

$SET UP EXPECTED

INC

FATFLG

18UMP COUNT

8IS
cHe
8EQ

00000

002212

ERRHRD

060774

060776

14 UUN 84

073315
015564

140¢:

BIT1,R2
R1,R2
1404
ERRNO, T26B0T,EXPREC

CKLOOP

SEQ 0223

;SET BOT BIT IN EXPECTED
sD0ES EXP = REC'D
18R, IF EQUAL (0x)
1 TAPE NOT AT BOT AFTER REWIND

TRAP

:LOOP IF SELECTED

CIERMRD

.WORD
.WORD
.WORD

637
126807
EXPREC

TRAP

CsCLP)

1008006000000 0000000000000060000000000000000000080000000000000000000

;1 ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS

;8IT 15 SETS DIRECTION - O=FORWARD

1-REVERSE

10668000000806000000600000000000000000000000303000020800080000000¢0

061006
061012
061016
061022

012703
004737
012703

013737

000001
010556
000400
003114

072252

150¢:

MOV
JSR
MOV
MOV

#1,R3
PC,SPACE
#256. ,R3
FREE , T26R8

1SET UP SPACE FORWARD 1
1 ISSUE SPACE COMMAND
sRECORD SIZE
1STARTING READ BUFFER ADORESS

10060000000000006080000800006000000000000800000008800000008600000009
:

1REREAD DATA,CVC=1,ACK, OPP COMMAND
100600000000000000000000000080000000000006000080000000006000000808008

6380

6381
6382
6383
6384
6385

6390

061030
061036
061042
061046
061052
061056
061062
061066
061070
061072
061076
061076
061100
061102
061104
061106
061106
061110
061114
061120
061122
061124
061126
061132
061132
061134

012737
012704

010337
010465
004737

016501
012702
020102
001406
005237

171001
072250
072256

104456
001177

165¢:

016340
000200

002212

104456
001176
072525
012136
104406
017701
013702
000302
020102
001406
005237

072250

MOV

MOV
MOV
MOV
JSR
MOV
MOV
cre
BEQ
INC

ERRHRD

#171001, T26PK3
0T26PK3 R4
R3, 72652
R4, TSDB(RS)
PC,MAITF
TSSR(RS) ,R1
OSSR, R2
R1,R2
170%
FATFLG

ERRNO, T26RRF ,PKTSSR

sREREAD DATA,CVC=1,ACK, OPP COMMAND

;SET UP R4 WITH PACKET ADORESS
1SET UP RECORD SIZE IN PACKETY
1 ISSUE COMMAND
tWAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED
1ARE THEY EQUAL
1BR, IF Ox
1BUMP COUNT

; TSSR INCORRECT AFTER REREAD DATA
TRAP
.WORD

CSERHRD
638

.WORD

PXTSSR

. WORD

170s:
122000
072276

002212

CKLOOP

MOV
MOV
SWAB
cHe
8EQ
INC
ERRHMRD

;LOOP IF SELECTED

SFREE,R1
T26(CNT ,R2
R2
R1,R2
1904
FATFLG
ERRNO, T26WNG , EXPREC

TRAP
tFIRST WORD FROM READ BUFFER
1SET UP EXPECTED
1SWAP BYTES IN EXPECTED
1IS TAPE POSITION CORRECT
1KEEP GOING POSITION O
;BUMP COUNT
1 TAPE POSITION INCORRECT

TRAP
.WORD

T26RRF

CsCLP1

CSERHRD
639

TSV?

TEST

HARDWARE TESTS 1 8
6: REREADS

061136

061140
6391 061142
061142
6392 061144
6393 061146
6394
639S
6396
6397
6398
6399
6400
6401
6402

6403
6404

6405

6406

6407
6408
6409
6413

MACRO M1113

072306
015564

104406
005723
062737

1904 :

14 JUN-84

ADD

072276

(R3),

#1,T26CNT

6415

6416
6417
6418
6419
6423

6424

6425

6427
6428
6429
6430
6431
6433
6434
6435
6436
6437
6438

. WORD
. WORD

T26WNG
EXPREC

TRAP

CsCLP1

s§NEXT RECORD SIZE

1BUMP TAPE RECORD COUNTER

1000000000 0800040000080880¢2004800800¢8808880044¢¢8008888080408808480

;READ DATA, CvC=1, ACK COMMAND
1800008008 080880488000800880800808444400400000808402800000040084000008002

012737

010337
010465

004737
016501
012702
020102
001406
005237

140001
072256
000000

072250

MOV
MOV
MOV

€140001, T26PK3
RS, 72652
R4, TSOB(RS)

s1READ DATA, CVC-1, ACK COMMAND
1SET SIZE INTO PACKET
s ISSUE READ DATA COMMAND

MOV
MOV
cHp
B8EQ
INC

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

sPICK UP THE TSSR
$sSET UP EXPECTED
1IS THE TSSR 0K
sBR, IF TSSR OK (GOOD)
1BUMP COUNT

JSR

016340
000002
000200
002212

ERRHRD

104456

PC . WAITF

ERRNO, T26RDF ,PKTSSR

001200

6414

SEQ 0224

CKLOOP
TS7

000001

14:17

072456
012136

104406
017701
013702
020102
001406
005237

215¢:
072276

MOV
MOV

002212

B8EQ
INC

121660

104456

001206,
072306
015564

104406
022703
001401
000654

CxLOoOP

217%:

2204:

;1READ DATA COMMAND FAILED
TRAP
.WORD
LHORD
LWORD

sLOOP IF SELECTED

s+FIRST WORD FROM READ BUFFER
:SET UP EXPECTED

217%
FATFLG

sKEEP GOING POSITION OK
;BUMP COUNT

R1,R2

ERRHMRD

ERRNO, T26WNG , EXPREC

0264 . ,R3
220%

1504

ENDSUB

;TAPE POSITION INCORRECT

TRAP

104403

002212
017272

cre

000017

8LO
JSR

TRAP

CsCLP1

:KEEP GOING MORE RECORDS

END SUBTEST

>>>3>3>5>3>>>

FATFLG,®#15.

TRAP
1 IS ERROR COUNT AT 25

PC,CHDROP

;:YRY TO DROP THE UNIT

9994
:
HAJ

:TEST 6, SUBTEST S

CS$ERMHRD

641
T26WNG
EXPREC

sAT MAX SIZE YET
1BR, IF AT END OF THE SUBTEST
§2>>33333>3>>>

9994

CsCLP1

. WORD
. WORD
.WORD

1.10106:

023727
103402
004737

CSERHRD

640
T26ROF
PKTSSR

:1IS TAPE POSITION CORRECT

CKLOOP

B8R

TRAP

§FREE, R}
T26CNT ,R2

cHe
BEQ

000410

;WAIT FOR SSR

s1BR, IF LESS THAN 25

CsESUB

| e
TSV? - MARDMWARE TESTS 1 8
TEST
6: REREADS

MACRO M1113

14 UUN-84

14:17

SEQ 022%

tVERIFIES THAT A REREAD PREVIOUS COMMAND READING A
tRECORD LONGER THAN THE SPECIFIED BYTE COUNT CAUSES
1 TAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH
tLONG (RLL) BIT SET, RESWLTS ARE VERIFIED FOR BOTH
1STATES OF OPP (0O AND 1).

6439

6440
6441

6442
6443
6444
6445

6446

6447
6448
6449
6450 061310
061310

061310
6451 061312
6452 061316
6453 061322
6454
6455
6456
6457
6458
6459
6460
6461 061326
6462 061332
6463 061334

6467 061340
6468 061342
061342
061344
061346
061350
6469 061352
6470
6471 061360
6472
6473
6474
6475
6476
6477
6478

6479 061364
061370
6481 061372
6485 061376
6486 061400
061400
061402
061404
061406
6487 061410
061410
6488
6489
6490

$22>>33>>>>>>

BGNSUB
104402
004737
004737
004737

JSR
JSR
JSR

075040
075132
075174

BEGIN

SUBTEST

716.5:

PC. T26REST
PC,T26RT2
PC,T26RT3

5553333535,

TRAP

s SET COMMAND PACKET
1SET UP OTHER COMMAND PACKET
1SET UP OTHER COMMAND PACKET

csBsuB

160888888084 08888088008880808088048888808888088080000000882480080440

;ISSLE CONTROLLER *“SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR
‘

168840084680 88888888802088808888080888000488808888088080880888888004082042

004737
103407
005237
010001

016064

JSR

PC,SOFINIT

INC
MOV

FATFLC
RO,R1

8CS

002212

ERRDF

104455

001202
003650
012124
013737

002172

012704

072120

072140

204 :

204

ERRNO, SFIERR, SFIMSG

:D0 INITIALIZE ON CONTROLLER
$B8R IF INIT WAS 0K
:8UMP COUNT
sCONTENTS OF TSSR REGISTER
tFATAL ERROR

TSSR WAS NOT 0K
TRAP

. WORD
.WORO
. WORD

MOV

UNITN, T260SW

$SET UP UNIT NUMBER

MOV

#T26PACKET R4

: SUBROUTINE NEEDS PACKET ADORESS

CS$ERDF

642

SFIERR
SF IMSG

;0888808088888 88808880848000400800000080080804000088000080200800¢0800004¢

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
(108008008850 800080489080000008000000082800002008880880808880000808080¢80008

004737
103407
005237
010001

104456
001203
005054
012124
104406

010752

JSR

PC,WRTCHR

INC
MOV

FATFLG
RO,R1

8CS

002212

ERRHRD

264 :

CKLOOP

264

ERRNO,WRTMSG, SF I11SG

1 ISSUE WRITE CHARACTERISTICS
18R, IF COMMAND ISSUED OK
;8UMP COUNT
1 SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC nrngkso

1LOOP IF SELECTED

TRAP

;008080088088 4844800880838060888883088804888880008808880008000004000080

CS$ERHRD
643
WRTMSG
SFIMSG
CsCLP1

TSV?
TEST

HARDWARE

6: REREADS

TESTS

1 8

MACRO M1113

6o
SEQ 0226

1200008208000 0888840840000848008000020800400088480840008ut
bS04

061412
061416

061420
061424
061430
061432
061436
061436
061440

061442
061444
6505 061446
061446

6506
6507
6508

6510
6511
6512
6513
6514
6515
6516
6517
6518
6522

14:17

; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

6491

6492
6493
6494
6495
6496
6497
6498
6499
6500
€504

14 JUN-84

061450
061454
061456
061462
061464
061466
061472
061472
061474
061476
061500
6523 061502
061502
6524 061504
6525 061510
6526
6527
6528
6529
6530
6531
6532
6533 061516
6534 061524
6535 061530
6536 061530
6537 061534
6538 061540
6539 061544
6540 061550
6541 061554
6542 061556
6543 061560

004737
103413
016501
012702
010004

005237

011104

JSR

PC,REWIND

MOV
MOV

TSSR(RS),R1
#SSR,R2

8CSs

000002

000200

MOV
INC
ERRHRD

002212

304

RO,R4
FATFLG
ERRNO, T26RWN,PKTSSR

104456

001204
073604
012136

30%:

s1CALL TAPE REWIND COMMAND
tBR, IF NO PROBLEM
sGET TSSR
1SET UP EXPECTED TSSR
sPACKET ADDRESS SET WP
sBUMP COUNT
tREWIND NOT ACCEPTED

TRAP

;LNOP IF SELECTED

CKLOOP

104406

CS$ERHRD

.WORD
. WORD
.WORD

644
T26RWN
PKXTSSR

TRAP

CsCLP1

1000800088880 80088804088800¢0800088080008088008800000800080000408008000¢

iREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
1006808624 80088888008008808¢8880848002000808408808000044808084840000¢0¢

013701
010102
052702
020102
001406
005237

MOV

072150

104456

001205
073315
015564

104406

012703
013737

404
:

001000
003114

FATFLG
ERRNO, T26BOT ,EXPREC

; TAPE NOT

8€EQ

40¢

;BR, IF EQUAL (Ox)
1BUMP COUNT
AT BOT

AFTER REWIND

;LOOP IF SELECTED

CKLOOP

MOV
MOV

072252

:SET UP EXPECTED
$1SET B80T BIT IN EXPECTED
sDOES EXP = REC'D

R1,R2

INC
ERRHMRD

002212

sPICK UP XSTO

#8IT1,R2
R1,R2

MOV

8IS
cHP

000002

T26BFR+6,R1

0512. ,R2
FREE, T26RB

TRAP
.WORD

CS$ERMRD
645

TRAP

CsCLP1

.WORD
.WORD

;RECORD SIZE
:STARTING WRITE BUFFER ADDRESS

(0080088408888 884808880808848000800000004000800080804200208888004008
:

{WRITE DATA,CVC=1,ACK COMMAND
[

1088888888888 0088488808808808088800588880008802880083888300088000003040

012737
012704

140005
072250

010337
010465
004737
016501
012702
020102
0014006
005237

072256
016340
000200

002212

072250

:
654

MOV
MOV

#140005, T26PK3
9T26PK3 ,R4

MOV
MOV
JSR
MOV
MOV
cHe
8EQ

R3,T26S2
R4 ,TSDB(RS)
PC.WAITF
TSSR(RS)
,R1
#SSR,R2
R1,.R2
754

INC

FATFLG

;SET UP R4 WITH PACKET ADDRESS

tSET UP RECORD SIZE IN PACKET

: ISSUE COMMAND

{WAIT FOR SSR TO SET

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

1BR, IF Ox
;BUMP COUNT

726807
EXPREC

He
TSV?

TEST

HARDWARE

6: REREADS

6547 061564
061564
061566
061570
061572
061574
061574
061576
061600

TEST5 1 8

MACRO M1113

14-JUN-84
ERRHRD

104456
001206
005111
012136
104406
005303
013737

75%:

003114

ERRNO,WRTERR,PKTSSR

MOV

SEQ 0227
; TSSR

INCORRECT

AFTER WRITE DATA
TRAP
CS$ERHRD

sLOOP IF SELECTED

CKLOoOP

OEC

072252

14:17

R3
FREE, T26RB

.WORD
.WORD
.WORD

646
WRTERR
PKTSSR

TRAP

CsCLPL

$SET RECORD SIZE TO S511.
1STARTING READ BUFFER ADDRESS

1000088880848 080808%20 0088080080888 800088880808280400800828048000820¢

;REREAD DATA,CVC+1,ACK,0PP=1 COMMAND
1860348888840 88888000084800888488004880008820888000080880840004008800%

061606
061614
061620
061624

061630
061634
061640
061644
061646

061650
061654
061654
061656

061660
061662
6572 061664
061664
6573
6574
6575
6576
6577
6578
6579
061666
6581 061672
6582 061674
6583 061700
6584 061702
6585 061704
6589 061710

061710
061712
061714
061716
6590 061720
061720
6591 061722
6592 061726
6593
6594

012737
012704
010337
010465
004737
016501
012702
020102
001406

005237

161001

072250
072256
000000
016340

072250

165¢:

000002

100204

002212

104456
001207
074662
012136

170¢:

104406

MOV
MOV
MOV
MOV
JSR
MOV
MOV
cHP
BEQ
INC
ERRHRD

#161001, T26PK3
R4
0T26PK3
R3,T126S2
R4 ,TSDB(RS)
PC,WAITF
TSSR(RS),R1
#SSR!SC!BIT2,R2

R1,Re
170%

FATFLG

ERRNO, T26TRL ,PKTSSR

s{REREAD DATA,CVC=1,ACK,0PP=1 COMMAND

$1SET UP R4 WITH PACKET ADORESS
$SET UP RECORD SIZE IN PACKET
; ISSUE COMMAND
sWAIT FOR SSR TO SET
$1GET TSSR CONTENTS
;SET UP EXPECTED
$ARE THEY EQUAL
;:BR,

IF 0K

;BUMP COUNT
s TSSR INCORRECT AFTER REREAD DATA

;LOOP IF SELECTED

CKLOOP

TRAP
.WORD

CS$ERHRD
647

TRAP

CsCLPL

. WORD
.WMORD

T26 TRL
PKTSSR

166888488880 8400848888088008888040888000008000808000508888080000000808

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
186888888880 888888848888850888000888044088405000008808400080088002303

013701

072150

052702
020102
001406
005237

010000

010102

MOV
MOV

8IS
cHP
BEQ
INC
ERRHRD

002212

104456

001210
074430
015564

104406

012703
013737

:
1804
000777
003114

072252

T26BFR+6,R1
R1,R2

0BIT12,R2

R1,R2

1804

FRTFLG

ERRNO, T26LON, EXPREC

;tGET MESSAGE BUFFER
sSET UP EXPECTED
:SET THE RLL BIT IN EXPECTED
;sARE THEY EQUAL

t1BR, IF EQUAL (ALL IS WELL)
sBUMP COUNT
;THE RLL BIT WAS NOT SET IN XSTO

CkLOOP

;LOOP IF SELECTED

MOV
MOV

1SET RECORD SIZE

#511.,R3

FREE, T26RB

TRAP
.WORD

CSERHRD
648

TRAP

CS$CLP,

. WORD
. WORD

1STARTING READ BUFFER ADDRESS

1080888508888 80400843888888808¢08820480482308088800020000800200800000

T26LON
EXPREC

[c)
TSV?

HARDMWARE TESTS 1 8

6: REREADS

TEST

MACRO M1113

6595

14 JUUN 84 14:17

SEQ 0228

{REREAD DATA,CVC=1,ACK COMMAND

659

2298

1000088808000 0000000080080008000000008060000088808060064806088068080¢

6599

6600 061734
6601 061742
6602 061746
6603 061752
6604 061756
6605 061762
6606 061766
6607 061772

012737
012704
010337
01046S
004737
016501
012702

020102

6608 061774
6609 061776
6613 062002

001406
005237

6615 062012

104406

062002
062004
062006
062010
6614 062012
1

141001
072250
0/2256
000000
016340
000002
100204

072250

365¢:

MOV
MOV
MOV
MOV
JSR
MOV
MOV

#141001,T26PK3
#T26PK3,RA
R3,T2652
R4 ,TSDB(RS)
PC.WAITF
TSSR(RS),R1
#SSR!SC!BIT2,R2

sREREAD DATA,CvC=1,ACK COMMAND
1SET UP R4 WITH PACKET ADORESS
$1SET UP RECORD SIZE IN PACKET
: ISSUE COMMAND
sWAIT FOR SSR TO SET
;GET TSSR CONTENTS
;SET UP EXPECTED

BEQ
INC
ERRHRD

370%
FATFLG
ERRNO,T26TRL ,PKTSSR

;8R, IF O
;8UMP COUNT
; TSSR INCORRECT AFTER REREAD DATA

(ol

002212

104456
001211
074662
012136

370%:

R1,R2

CKLOOP

1ARE THEY EQUAL

;LOOP IF SELECTED

TRAP
.MORD
LWORD
.WORD

CSERMRD
649
T26TRL
PKTSSR

TRAP

CsCLPIL

6616

[808008808088888888808808800000804080400008080000000080800840080804000

6618

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTOQ)

6620

1800880000860 80088008080000080080888800008880040000800080000400000¢

6617

;

661

6621

6622 062014
6623 062020

013701
010102

6625 062026

020102

6624 062022

6626 062030

6627 062032
6631 062036

062036

062040
062042

062044
6632 062046
062046

6633 062050

062050

6634 062052
6635 062060

6636 062062

6637 062066
6638
6639

6640
gg:é

6643
6644
6645

052702

001406
005237

072150

010000

MOV
MOV

T26BFR+6,R1
R1,R2

;GET MESSAGE BUFFER
:SET UP EXPECTED

cMP

R1,R2

sARE THEY EQUAL

INC
ERRHRD

FATFLG
ERRNO, T26LON,EXPREC

8IS

BEQ

002212

104456

#8IT12,.R2
380

;SET THE RLL BIT IN EXPECTED
:BR, IF EQUAL (ALL IS MWELL)

;BUMP COUNT
;THE RLL BIT WAS NOT SET IN XSTO

001212
074430

3804 :

104406

023727
103402

004737

CS$ERMRD

. WORD

EXPREC

.WORD
.WORD

015564

104403

TRAP

CKLOOP

017272

000017

cHP
8LO
9994:

JSR

L10107;

FATFLG, @15,
9994

s TEST 6,
H

C4CLP1

TRAP

CsESUB

PC.CKDROP

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

:TRY TO DROP THE UNIT

TRAP

$33>3>33>3>3>>>3> END SUBTEST >>>3>3333>>>

ENDOSUB
002212

650
T26LON

SUBTEST 6

;VERIFIES THAT A REREAD PREVIOUS COMMAND READING A
;RECORD SHORTER THAN THE SPECIFIED BYTE COUNT CAUSES
; TAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH

TSV?

TEST

HARDWARE

6: REREADS

TESTS

MACRO M1113

664~
6648
6649
6650
6651
6652
6653
6654
665
6656 062066
062066

6657 062070
6658 062074
6659 062100
6660

SEQ 0229

IT IS VERIFIED THAT

THE

;{RESIDUAL BYTE COUNTER (RBPCR) IN THE MESSAGE BUFFER
+CONTAINS THE PROPER NONZERO VALLUE (E.G., THE
;:OIFFERENCE BETWEEN THE ORIGINAL BYTE COUNT AND THE
:ACTUAL RECORD LENGTH), RESULTS ARE VERIFIED FOR BOTH
:STATES OF OPP (0 AND 1).

'
104402
004737
004737
004737

075040
075132
075174

BGNSUB

53232>3235355>> BEGIN SUBTEST >5>35>33535»5>>>
76.6:

TRAP

JSR

PC,T26REST

;:SET COMMAND PACKET

JSR

PC,T26RT3

$SET UP OTHER COMMAND PACKET

JSR

PC,T26RT?2

csBsuB

:SET UP OTHER COMMAND PACKET

1900008000000 088080088808882848808080000808888080800680088¢08488880480

6661
6662

;ISSUE CONTROLLER "SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR

6663
6664

;co‘o.oo‘t““‘tto‘.‘ttooo.otooo"o‘toto“oo‘oo‘oo.oo¢oo.“‘oooocoo
062104
062110
062112
062116

004737
103407
005237
010001

062120
062122
062124
062126

104455
001213
003650
012124
013737

002172

012704

072120

062120

6675 062130
6676
6677 062136
6678
6679
6680
668.
6682
6683

6685 062142
062146
6687 062150
6691 062154
6692 062156
062156
062160
062162
062164

6693 Co2166
062166
6694
6695
6696
6697

14:17

;SHORT (RLS) BIT SET,

664¢€

6665
6666
6667
6668
6669
6673
6674

14 JUUN 84

JSR
BCS

016064

INC

002212

MOV
ERRDF

072140

20¢:

PC,SOFINIT
204

D00 INITIALIZE ON CONTROLLER
:BR IF INIT WAS 2«

RO,R1
ERRNQ, SFIERR, SFIMSG

s CONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT (X

FATFLG

;BUMP COUNT

TRAP
. WORD

. WORD
. WORD

MOV

UNITN, T26DSW

sSET UP UNIT NUMBER

MOV

0T26PACKET R4

; SUBROUTINE NEEDS PACKET ADDRESS

CSEROF
651
SFIERR
SF IMSG

;0080000000000 04000850000004008280080080008080888000088008088880¢0048%

;URITE CHARACTERISTICS COMMANL (CALL TO WRTCHR)
;‘ttooctt.to‘cottoott‘otoototaccaooosoo‘oto.tt.ootoo‘tcao‘ooooo‘ooo
004737
103407
005237

010001

JSR

010752

8Cs
INC
MOV
ERRHRD

002212

104456

001214
005054
012124
104406

266%:

CKLOOP

PC,.WRTCHR

264
FATFLG
RO,R1
ERRNO,WRTMSG, SFIMSG

:ISSUE WRITE CHARACTERISTICS

{BR, IF COMMAND ISSUED 0K
;BUMP COUNT
;1SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC FAILED
TRAP

;LOOP IF SELECTED

65¢
WRTMSG
SFIMSG

TRAP

CsCLP1

;088080808 888480888888800883488888888088800803880050508000¢%058040

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

CSERHRD

.WORD
. WORD
. WORD

TSV?

HARDMWARE TESTS 1 8

TEST

REREADS

MACRO M1113

14 UUN 84 14:17

SEQ@ 0230

ggg

;“".“‘t““““““““‘.".‘..‘0.“.“““.‘.“.“‘"..‘.‘.0‘0.

6700

6701 062170
€702 062174

6703 062176
6704 062202
6705 062206

6706 062210

6710 062214
062214
062216

062220

062222
6711 062224
062224
6712

004737
103413
016501
01270c
010004
005237

011104

JSR
B8CsS

000002
000200
002212

MOV
MOV
MOV

PC,REWIND
30¢
TSSR(RS),R1
OSSR, R2
RO,R4

:GET TSSR
1SET UP EXPECTED TSSR
:PACKET ADDRESS SET WP

ERRHRD

ERRNO, T26RWN,PKTSSR

;REWIND NOT ACCEPTED

INC

104456
001215

FATFLG

sCALL TAPE REWIND COMMAND
;1BR, IF NO PROBLEM

:8UMP COUNT

073604

TRAP
. WORD

CSERMRD
653

. WORD

Pw TSSR

TRAP

CsCLP1

. WORD

012136

30¢:

104406

CxLOooP

;LOOP IF SELECTED

6713

;.‘“‘.‘.““‘..‘..““‘.‘““‘.‘.‘.‘.‘.“.‘..““..“.“..‘.““‘.

6714

6716

6715

;sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

6717

(8866084806068 008888,00808803048800040800000000888000000008688080800¢

6718

6719 N62226
67
062232
6721 062234
6722
6723
6724
6728

T26RWN

062240
062242
062244
062250

013701
010102
052702
020102
0C1406
005237

062250
062252
062254
062256

104456
001216
073315
015564

062260

104406

6729 062260
6730 062262

g;gé 062266

012703

013737

072150

MOV
MOV
8IS

000002

ce
8EQ
INC
ERRHRD

002212

404 :
000400

003114

ERRNQO,T26B0OT,EXPREC

CxLOOP
MOV

072252

T26BFR+6,R1
R1,R2
#MIT1,R
R1,R2
408
FATFLG

MOV

sPICK UP XSTO
;SET UP EXPECTED
:SET BOT BIT IN EXPECTED

;sDOES EXP = REC'D
s8R, IF EQUAL (0x)
;BUMP COUNT
; TAPE NOT AT BOT AFTER REWIND

;LOOP IF SELECTED
#256.,.R3

FREE, T26RB

;RECORD SIZE

TRAP
. WORD
. WORD
. WORD

CSERMHRD
654
126807
EXPREC

TRAP

CsCLP]

:STARTING WRITE BUFFER ADDRESS

6733

;0000800000000 00088800800800080000004808008080000000880040000288000¢

g;gz

sWRITE DATA,CVC=1,ACK COMMAND

6737

;8060000080608 0080008480000808688468008880485348080084808800488000800008080008

6734

6738

6739 062274
6740 062302

012737
012704

140005
072250

6742 062306
6743 062312
6744 062316
674S 062322
6746 062326
6747 062332
6748 062334
6749 062336

010337
010465
004737
016501
012702
020102
001406
005237

072256
000000
01€340
000002
000200

6741 062306

6753 062342

002212

072250
654:

MOV
MOV

€140005, T26PK3
#126PK3 R4

sWHRITE DATA,CVC=1,ACK COMMAND
;SET UP R4 WITH PACKET ADDRESS

MoV
MOV
JSR
MOV
MOV
cre
BEQ
INC

R3, 12682
R4 ,1SDB(RS)
PC.WAITF
TSSR(RS).R1
#SSR ,R2
R1,R2
754
FATFLG

;SET UP RECORC SIZE IN PACKET
+ ISSUE COMMAND
;WAIT FOR SSR TO SET
;GET TSSR CONTENTS
:SET UP EXPECTED
;ARE THEY EQUAL
;1BR, IF 0K
;1BUMP COUNT

ERRHRD

ERRNO,WRTERR,PKTSSR

;sTSSR INCORRECT AFTER WRITE DATA

TSvTM

TEST

HARDWARE

MACRY M111%

JUN 84

14:1°
TRAP

104456

00121°
005111

10) P

7S%:

104406

012703
c137%”

001000
003114

;:LOOP IF SELECTED

CxLOOP
MOV
MOV

072252

#512. ,R3%
FREE, T26RB

6704 062 366
6765 062374
6766 062400
6767
6768 062410
6769 062414
6770 062420
6771 062424
6772 062426
6773 062430

0624 34
0624 34
0624 36

062440
062442
6778 062444
062444
6 79
6780
6781
6782
6783
6784
6785
6786
6787
6788
6789
6790
6791
6795

012737
012704

010337
010465
004737

016501

012702

(20102
001406
005237

161001
072250
072256

072250

165¢:

MOV
JSR

016340

MOV
MOV
Cre
8eQ

100204

INC
ERRHRD

002212

104456

001220
074662
012136

MOV
MOV
MOV

170%:

0161001, T26PK3
R4
0T26PK3
RS, 12652
R4, TSOB(RS)

PC,.MAITF

TSSR(RS),R1

OSSR!SC!BIT2,.R2
R1,R2
1704
FATFLG

ERRNO, T26TRL .PKTSSR

CsCLP1

:STARTING READ BUFFER ADDRESS

tREREAD PREVIOUS,ACK,CvC=1,0PP=]
;SET UP RA WITH PACKET ADODRESS
sSET UP RECORD SIZE IN PACKETY

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

;ARE THEY EQUAL
iBR, IF Ox
;:8UMP COUNT
:TSSR INCORRECT AFTER READ DATA
TRAP

;LO0P IF SELECTED

Cx._00P

104406

. WORD
. WORD
. WORD

CSERMRD
656
T26TRL
PKTSSR

TRAP

CsCLP)

1000800000800 08008080000800800080800080000080008000000000000000000000%00

.READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
;1000080000008 000008808008000000000008080000000000080008000000000008000¢

013701
010102
052702
020102
001406
005237

MOV
MOV

072150

8IS
cre
8EG
INC
ERAMRD

040000

002212

104456

R}
T26BFR.6
MBITi4
. R2
R1l,R2
180¢
FATFLG

ERRND,
T26L 0P, EXPREC

001221

6801

TRAP

1060000880000 0000888080008000080808800000088000800000800880880080080000

6763

6799

PKTSSR

;REREAD PREVIOUS,ACK,CVCe1,0PPs1

6761
6762

6 97
6798

:RECORD SIZE

CSERHRD
655
WRTERR

. WORD
. WORD
.WORD

1000080800880 080008000008000008080000000000080508800080008008800008080200

€759
6760

6796

SEQ@ 0231

REREAD>

062342
062344
062346
062350
6754 062352
062352
675S 062354
6756 062360
675"
6758

6777

074512
015564

1044006
013701
012702
020102
001406
005237

:
1804
072146

00ccle

T26BFR.4
R)

0256
. .R2

R].R2
1904

(G
FATF(

sGEY MESSAGE BUFFER
;SET UP EXPECTED
sSET THE RLS BIT IN EXPECTED
;ARE THEY EQUAL
sOR, IF EQUAL "ALL IS WELL)
;BUMP COUNT
;THE RLL BIT WAS NOT SET IN XSTO
TRAP

CSERRD

. WORD
. WORD
. WORD

657

TRAP

CsCLP:

PICk UP RESIDUAL BYTE COUNTER
; THIS SHMOLD BE THE OIFFERENCE
1 IS THE OIFFERENCE CORRECY
i8R, IF CORREC"
18U COUNT

1264 OP

EXPREC

M
TSy
”?

TES?

HARDUARE

QEREADS

TESTC

MACRC TM1113

16 AN-854 14:}17
ERRD

SEQ D23%¢

ERAND, T26FPDP . EXPREC

sABPCR NO°

TORRKE-

10845¢
00122¢
074574

015504

6807

104406
012703

0137%?

1908
001000
00S114

"oV
MOV

07225

€810
6811
612

Cxy OOP

:LO00P IF SELECTED

0312
. RS
FREE
, T26R8

TRAP

C e R0

WwORD
WOR0
oSt

658
126P0P

TRAP

oeCLP]

ExXPREC

;RECORD SIZE
;STARTING READ BWFFER ADORESS

{REREAD PREVION .. ACK.CVCel,0PP<C

68183

6814e

6815
6816

6817

6818
6819
6821

012737
012704
010337
010465
00e7%?
0163501

6823

141001

072230
07225

2 1]

072250

MOV
OV
MOV
JSR
MOV
g 0]
18 J
. 3¢
InC

016340
100204
002212

2708

6830
6831
683
6833
6834
6835
68 3¢
683%°
6838
6839
684]
6842
5843
684"

6851
6852 0626 74

0126P%3
Ra
R3, 12652
R, T1SOB(AS
PC.WAITF
TSSR(RS R
OSSR 'SL'B1%2 R,
" R
270
EATF

ERANC . "26 '@ Pw"S5A

;REREAD PREVIOUS
ACK . CvCe]l OPP<0
;SET UP Re MITw PACKEY ADDRESS
;SEY P RECORD SIZE IN PACKE”
CISSUE Corowd
;AT FOR SSR YO SET
GEY TSSR CONTENTS
.SEY UP EXPECTED
LARE TvEY EQUAL
.BR, IF Om
0P COUN’
LTSSR OINCORRE.Z"

.O0P

w209

013701
010102

"0V
"Ov
| 343
ow
L 1]

072150

032702
020102

0C1406
003237

002212

134456

104400

013701
012702
020102
001405

126050
.6 .01
"1.R2
[JISRUN
>
[y R
20094

InC

FATFLG

EAAD

ERRND. "26L0P EXPRE(C

M TER READ DATA

SELECTEC

:MEAD MESSAGE BUFFER EXTENDEC STATUS REGISTER ZERT

TRAP

2006

659
Yoo TRL
Pw TSSR

RAP

csCLP:

15°C

1GEY "ESSAGE BFFER
sSEY UP EXPECTELC
;SEY T MLS 817 In EXPECTEC
;ARE TEY EQUAL
OR, IF EQUAL (AL IS5 oLl
P COm’

E B B1T wAS MDY SET IN 2ST0
ST
TAAP
CoEa0

072186

«ORO
WORO

Gy 20P
"0V
Ov

o, 4
L _3”]

T260F 0.4 B

025

Rl R
«9CH

.82

CitPaD

WORD
wORO
WORO

0RO

001224
074312
015564

6849
685¢C

ERAARC

3
014100:,726P%

TRAP
LPICx P BESIDVA. B877E COUNTER
.TTMIS SHMOAD BE '€ CIFFERENCE
.oS Y& DIFFERENCE
C”
.BR, IF Wt

CORRETT

660

1264 0P
ExPREC
CsCL?)

TSV "

TESY

MAROWARE

“E<":

MACR.

M1118

Je-!7

S€Q 0233

REREAD>

685¢ 062700

062700
062702

001274

062706

015564

062710

10440¢

062704

6857 062710
6858 062712

062712
062712

6859 062714
6860 062722
6861 062724

6862 062730
6863

ERYRD

10445¢

ERAND, T26PBP EXPREC

;RBPCR NCT CORRE.”

0745°4

104403

023727
103402
Q04737

TRAP

660

. WORO

EXPREC

TRAP

CiCLP}

TRAV

CIESUB

. WORD

2908 -

CrL 00P

iLOOP IF SELECTED

ENDSUB

:22>3533533>> END SUBTESY

L10110-

002212
(!7272

6804

000017
999¢-

6865

6867
6868

:
:

6866

;TEST 6,

6869

o,
8L
JSR

FATFLG, 015
9994
PC , CKDROP

CSERRD

. WORD

126P8P

5333333335

;IS ERROR COUNT AT 2%
:BR, IF LESS THAN 25
;TRY 7O DROP THME UNIT

SUBTEST 7

;VERIFIES THAT THE REREAD NEXT COMMAND WITH OPP<0

6870

;AND SWB=0 OPERATES PROPERLY.

6671

THE

TAPE

IS FIRST

;REWOUND AND THEN WRITTEN WITH A SERIES OF TEST

6872

;RECORDS VARYING IN LENGTH AND DATA CONTENT.

6873

IS THEN REWOUND AGAIN. FOR EACH TEST RECORD,

6875

;NEXT COMMAND ISSUED. RESWUL TS (STATUS, DATA,

gg;g

;RECORD,

6874

THE

TAPE

;TAPE IS SPACED FORWARD ONE RECORD AND A REREAD

6876
6877

;ETC.) ARE VERIFIED. THE BYTE COUNT ON EACH REREAD
;NEXT COMMAND IS SET TO THE LENGTHM OF THE EXPECTED

6880

SO NO EXCEPTIONAL CONDITIONS SHOWLD OCCUR.

6881
6882
6883

6884 062730

062730

062730
688S 06732
6886 062736

ggg; 062742

BGNSUB
104402
004737
004737

004737

075040
075i32

075174

6889
6890

JSR
JSR

JSR

$22535333>>>> BEGIN SUBTEST

16.7:

PC,T26REST
PC.T26RT2

PC,T26RT3

>35>3>3>3>>>>

TRAP
;SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET

£$85UB

;SET UP OTHER COMMAND PACKET

1000088000088 8848888088888880000400888008808040888880400808888808002
:

2335

+ISSUE CONTROLLER "SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR

6893
6894
6895
6896
6897
6901

;00000000 SESEEERSSEREREEESLI0RRAENREA0LERR0RESR0ERSEERCRR000RR
062746
062752
062754
062760

004737
103407
005237
010001

062762
062764
062766
062770

104455
001225
003650
012124

6902 062762

016064
002212

JSR
BCS
INC
MOV

ERRDF

PC,SOFINIT
204
FATFLG
RO,R1

ERRNO, SFIERR, SF IMSG

;00 IMITIALIZE ON CONTROLLER
;BR IF INIT WAS OK
;BUMP COUNT
;CONTENTS OF TSSR REGISTER

{FATAL ERROR TSSR WAS NOT 0K

TRAP
.WORD
. WORD
.WORD

CS$EROF
661
SFIERR
SFIMSG

TSv?

TEST

MACRC M1113

013737

002172

072140

012704

072120

HARDWARE TESTS
6: REREADS

6903 062772

6904
6905 063000
6906
6907
6908
6909
6910
€911
6912
6913
6914
6915
6919
6920

20%:

14-UUN-84 14:17

SEQ 0234

MOV

UNITN, T260SW

1SET UP UNIT NUMBER

MOV

R4
OT26PACKET

$SUBROUTINE NEEDS PACKET ADORESS

1000008020000 000000000000000000008000000800008005000000000000008000

:WITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

1080000080080 00000000000000000000800800000000000080002000802800806000009

004737
1034G?
005237
010001

JSR
8Cs
INC
MOV

010752

002212

ERRHRD

104456

PC,.WRTCHR
263
FATFLG
RO, R1

ERRNO, WRTMSG, SF IMSG

1 ISSUE WRITE CHARACTERISTICS
18R, IF COMMAND ISSUED Ox
18UMP COUNT
1SAVE CONTENTS OF TSSR

tWRITE CHARACTERISTISC F?g%b

001226

6921
6922
6923
63824
6925
6926
6327
6928
6929
6930
6931
6932
6933
6934
6938

005054
012124

264 :

104406

CxLOooP

1LOOP IF SELECTED

063070
063074
063076
063102
063104
063106
6956 063112
063112
063114

69547
6948
6949
6950
6951

TRAP

CsCLP:

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
1000600608008 80008009804000080¢008000080080000000600008008008280000000000

004737
103413
016501
012702
010004
005237

JSR
8CS
MOV
MOV
MOV
INC

011104
000002
000200

002212

ERRHRD

PC . REWIND
304
TSSR(RS),R1
#SSR,R2
RO,R4
FATFLG

ERRNO, T26RWN, PXTSSR

1CALL TAPE REWIND COMMAND
18N, IF NO PROBLEM
1GET TSSR
1SET UP EXPECTED TSSR
1tPACYET ADORESS SET WP
18UM’ COUNT
tREMIND NOT ACCEPTED

001227
073604

6940
6941
6942
6942
6944
6945

662
WRTMSG
SF IMSG

100008000080 0080082000008000080000003008¢020000040008¢8000000840000¢40

104456

6939

CSERHRD

. WORD
. WOROD
. WORD

012136

304 :

104406

CxLooP

sLOOP IF SELECTED

TRAP

. WORD
. WORD
. WOROD
TRAP

C4ERHRO
663
T26RWN

PKXTSSR

CsCiP1

160800008088 0008000800008005000808000000000800¢0800000000828004080000000°

1READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
:
10008840008 0008008¢080000800803000000000000080808080008808800000804888008

013701
010102
052702
020102
001406
005237

104456

001230

072150
000002

002212

MOV
MOV

T26BFR+6,R1
R1,R2

tPICK UP XSTO
1SET UP EXPECTED

6eEQ
INC

404
FATFLG

1BR, IF EQUAL (0K)
18UMP COUNT

8IS
ce
ERRHRD

#IT1,Re
R1,R2

ERRNO, 126807 ,EXPREC

1SET BOT BIT IN EXPECTED
1DOES EXP = REC'D
1 TAPE NOT AT BOT AFTER as:gpno

. WORD

CSERHRD
664

TSv?

TEST

HARDMARE TESTS
6: REREADS

063116
063120
6957 063122
063122
6958 063124
6959 063130
6960
6961
6962
6963
6964
6965
69%6

6967

6969
6970
6971
6972
6973
6974
6975
6976
6977
6978
3979
6963

6964

6985
6966
6987
6968
6969
6990
6991
6992
6993
6994
6995
6996
6997 063236
6998 063242
€999 063244
7000
7001 063254
7002 063256

7006 063262
063262
063264
063266
063270

MACRO M1113

073315
0.5564

104406
012703
013737

40¢:

000400

003114

14 JUUN B84

CKLOOP

MOV
MOV

072252

14:17

SEQ 023%

sLODP IF SELECTED
0256. ,R3

FREE, T26RB

tRECORD SI1ZE

. WORD
. WORD

126807
EXPREC

TRAP

CoCLPl

1STARTING WRITE BUFFER ADORESS

1000800808880 008080000000000800808048000000800000080000000608008000000800

tWRITE DATA,CvCe1,ACK COMMAND
1008000000008 0000088000800080000000000020000¢0080¢80800000000000880080600

012737
012704
010300
004737
010337
010465
004737
016501
012702
020102
001406
005237

140005

072250

654
:

017512
072256
016340
000200

002212

104456

001231
005111
012136

104406
005723
022703
001346

75%:

MOV
JSR
MOV
MOV
JSR
MOV
MOV
ce
8EQ
INC
ERRHRD

804
:

#140005, T26PK3
#T26PK3
R4

sSET UP R4 WITH PACKET ADORESS

R3,RO

1SET PATTERN IN CORRECT REGISTER

PC.FILLMEM

R3, 12652
R4, TSDB(RS)
PC.WAITF
TSSR(RS) ,R1
OSSR, R2

R1.R2
754

FATFLG

ERRNO, WRTERR,PKTSSR

CxLOOP
TST

000414

104406

MOV
MOV

Ccve
BNE
CxLOOP

sFILL MEMORY WITH RECORD SIZE
$1SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
tWAIT FOR SSR TO SET
1GEY TSSR CONTENTS
1SET UP EXPECTED
sARE THEY EQUAL
1BR, IF Ox
18UMP COUNT
s TSSR INCORRECT AFTER WRITE DATA
TRAP

(R3).

0268. ,R3

665

TRAP

CsCLPi

TRAP

CsCLP1

.WORD
.WORD

sLOOP IF SELECTED

18P RECORD SIZE
tEND OF RECORD YET
18R, IF MORE RECORDS TO WRITE
;LOOP IF SELECTED

120¢:

CIERMRO

.WORD

WRTERR
PKXTSSR

0068080008000 00000008000000008080808080808¢0080000008008080000000¢¢00

1 ISSUE REWIND COMMANC TO SELECTED TAPE DRIVE

186000066000 880800000080000800008080000088200000000000008080000000000000

004737
103413
016501
0127¢2
010004
005237

104456
001232
073604

012136

011104

000002
000200
002212

JSR
8Cs
MOV
MOV
MOV
INC
ERRHRD

PC .REWING

sCALL TAPE REWIND COMMAND

TSSR(RS),R1

1GET TSSR
1SET UP EXPECTED TSSR

1304

OSSR, R2
RO,R4
FATFLG

ERRNO, T26RWN,PKTSSR

18R,

NO PROBLEM

sPACKET ADORESS SET

1BUMP COUNT
sREWIND NOT ACCEPTED

TRAP

. WORD
. WORD
. WORD

CSERMRD

666
T26RWN
PKTSSR

TSV?

TESYT

HARDWARE

REREADS

700" 063272
7008

063272

TESTS

1 &

MACRO M1113

130%:

10440¢

14 UUN 84 14:17

SEQ D236

CKLOOP

sLOOP IF SELECTED

TRAP

7009

100000000000080000000000000040000000000000066800000000000000080006000¢

7010
7011

H
tREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERQO (XxSTo)

7012

7013

1000000000000008800000486400000¢00¢00000008080080008086000008860000v600

7014

7015 063274
7016 063300
7017 063302

7018 063306
7019 063310

7020 063312
7024

063316

013701
010102
052702

072150

005237

002212

020102
001406

063316
063320
063322
063324

104456
001233
073315
015564

063326

104406

7025 063326

7026 063330
;85; 063336

012737
000420

000002

T26BFR«6,R1
R1,R2
#MIT1.R2

INC

FATFLG

cP
BEQ

ERRHRD

140 :
000400

MOV
MOV
8IS

072302

sPICK UP XSTO
1SET UP EXPECTED
$SET 80T BIT IN EXPECTED

R1,R2
140¢

sDOES EXP = REC'D
sBR, IF EQUAL (Ox)

ERRNO, T26B0T ,EXPREC

CKLOOP
MOV
B8R

;1BUMP COUNT

sTAPE

NOT

BOT

AFTER REWIND

sLOOP IF SELECTED
9256 . ,T26RSZ
150¢

TRAP
. WORD
. WORO
. WORD

CSERPRD
667
726807
EXPREC

TRAP

CsCLP1

1STORE START RECORD SIZE
sSKIP THE SAPCE THIS TIME

7029
7030

100008800000 00000000800000000088000000000000000008880000808000800806¢
:

;ggg

;81T 1S SETS DIRECTION - O=FNRWARD

7031

;ISSUE SPACE RECORDS COMMAND

VALUE

IN R3S SETS NUMBER OF RECORDS

1=REVERSE

7034

100008000600 08000¢0080000008800000°000000000000008800000808468008088008

7035

7036 063340
7037 063344

7038 063350
7039 063352
7040 063356
7041 063362
7042 063364

012703
004737

103413
016501
012702
010004
005237

000001
010556

1454

063370
063372
063374
063376

104456
001234
072717
015564

063400

104406

7047 063400

7048 063402

;8.5(9) 063406

013703

002212

013737

1504 :

072302

003114

01,R3
PC,SPACE

1SPACE ONE RECORD PARAMETER
1CALL SPACE ROUTINE

MOV
INC

RO,R4
FATFLG

s1PACKET ADDRESS SET WP
18UMP COUNT

ERRHRD

ERRNO, T26SC,EXPREC

1504
TSSR(RS),R}
OSSR, R2

18R, IF NO PROBLEM WITH SPACE COMMAND
tGET TSSR
sSET UP EXPECTED TSSR
tPOSITION

(SPACE

CKXLOOP

MOV

072252

7051
7052

MOV

T26RSZ ,R3

FREE, T26R8

;RECORD SIZE

RECORDS)

FAILED

TRAP
. WORD
. WORD
. WORD

CSERMRD
668
T265C
EXPREC

TRAP

CsCLP]

1STARTING READ BUFFER ADDRESS

10008680000 00600000080000400804800000000800000404080800868000000882800¢
H

sREREREAD DATA,CVCe=1,ACK COMMAND
H

7058
7057 063414
7058 063422

MOV
JSR

8cCs
MOV
MoV

000002
000200

7046 063370

7056

CsCLPl

10800000660 00008080003880808000088086808080000680800800000880808080000800038¢
012737
012704

141401
072250

072250

165¢:

MOV
MOV

0141401, T26PK3
0T26PK3 R4

1REREREAD DATA,CVC=1,ACK COMMAND
1SET UP R4 WITH PACKET ADDRESS

E
TSVT

TEST

HARDWARE TESTS 1 8

MACRO M1i113

14 JUN-84

14:17

SEQ 0237

6: REREADS

063426
063432
063436
063442
063446
063452
7065 063454
7066 063456

7059
7060
7061
7062
7063
7064

707C

010337
010465
004737
016501
012702
020102
001406
005237

072256
000000

MOV
MOV

000002
000200

MOV
MOV
cHp
BEQ
INC
ERRMRD

JSR

016340

002212

7077
7078
7079
7080

7084

7085

7086
7087
7088
7089
7090
7091 063550
7092 063554
7093
7094
7095

7096
7097 063574
7098 063576
7099 063602
7100
7101
7102
7103

7104
7105
7106
7107
7108

FATFLG

1BUMP COUNT

1704

18R,

ERRNO, T26WDC ,PKTSSR

IF 0K

1 TSSR INCORRECT AFTER REREAD DATA
TRAP

104406
013702
010304
162704
060204
021403
001410

;LOOP IF SELECTEO

170¢:
FREE,R2
R3,R4
0256. R4

003114

000400

R2,R4
(R4) ,R3

173s:

(R4),R1

R3,R2
FATFLG

002212

ERRNO, T26DTA ,EXPREC

104456
001236

073362
015564

104406
005724
160204
020403
0013690
005723
010337
022703
001267

180¢:

SUB

BNE

TS7
MOV

072302

000410

190¢:

023727
103402
004737

cHP
BNE
CXLOOP

(R4 ).

R2,.R4
R4,R3

173¢
(R3).

R3,T26RSZ

#264
. ,R3
145¢

002212
017272

000017

999:

cHe
BLO
JSR

1RECD DATA

tEXPECTED DATA
18UMP COUNT

1DATA READ NOT = WRITTEN

TRAP

PC,CKDROP

CS$ERHRD
670
T260TA

EXPREC
CsCLP1

:END OF RECORD YET

1BR, IF NOT AT END OF RECORD
18UMP RECORD SIZE
1STORE PRESENT RECORD SIZE

;END OF RECORD YET
18R, IF MORE RECORDS TO READ
;LOOP IF SELECTED
END

TRAP

CsCLP1

TRAP

CS$ESUB

SUBTEST

:>>>>>>>>>>>

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

sTEST 6, SUBTEST 8
;

TRAP

;BUMP TO NEXT LOCATION
sCORRECT RECORDS SIZE VALWE

L10111:
FATFLG,@15.
9994

CsCLP1

1BR, IF ALL IS WELL

:>33>>333>>>>>

ENOSUB

CS$ERHRD

669
T26WDC
PKTSSR

$1SET UP POINTER
1CHECK DATA READ (R3=DATA ALSO)

;LOOP IF SELECTED

CKLOOP
TS7

104406

104403

TRAP
1 CURRENT BUFFER ADDRESS TO R2
1 CURRENT RECORD SIZE
sFIRST LOCATION IN BUFFER

1804

011401

010302
005237

.WORD
.WORD
.WMORD

558

7072
7073
7074
7075
7076

:SET UP RECORD SIZE TN PACKET
: ISSUE COMMANO
tWAIT FOR SSR TO SET
$GET TSSR] CONTENTS
1SET UP EXPECTED
1tARE THEY EQUAL

104456
001235

074140
012136
7071

R3,12652
R4 ,TSDB(RS)
PC,WAITF
TSSR(RS),R1
#SSR,R2
R1,Re

sVERIFIES THAT THE REREAD NEXT COMMAND WITH OPP=0
sAND SWB=1 OPERATES PROPERLY. THE TEST SEQUENCE IS
s THE SAME AS THAT USED IN SUBTEST 1, BUT IT IS
s VERIFIED THAT DATA STORED BY THE COMMAND CONTAINS

TO DROP

THE UNIT

—

TSV?
TEST

- HARDWARE TESTS
6: REREADS

1 8

MACRO M1113

BGNSUB

104402
004737
004737
00473~

SEQ 0238

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

BEGIN

SUBTEST

>5>>>3535555>

76.8:

JSR
JSR
JSR

075040
075132
075174

7118

7119

7120
7121
7122
7123
7124
7125
7126
7127
7131
7132

: SWAPPED BYTES.

7109
7110
7111
7112
7113
7114 063602

063602
063602
7115 063604
7116 063610
7117 063614

14 JUN-84 14:17

——

PC,T26REST
PC,T26RT2
PC,T26RT3

TRAP
1SET COMMAND PACKETY
;SET UP OTHER COMMAND PACKET
;SET UP OTHER COMMAND PACKET

CsBSLB

100088804040 8888888880080488080000000¢083008000000800000408888088800

;ISSUE CONTROLLER “SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR
;oooooo“oooocooo‘oooaocoooooto‘totoaoottaooo0.0..00...0..0000.00oo
063620
063624
063632
063634
063634
063636
063642

7133 063644

7134

7135 063652
7136

004737
103407
005237

010001

002212

MOV
ERROF

104455

001237
003650
012124
013737

002172

012704

072120

7137

7138
7139
7140
714]1
7142
7143
7144
7145
7149
7150

JSR
8CS
INC

016064

072140

20%:

7152
7153
7154

FATFLG
RO,R1

sBUMP COUNT
sCONTENTS OF

ERRNO, SF IERR, SFIMSG

$1BR IF INIT WAS 0K

TSSR REGISTER

:FATAL ERROR TSSR WAS NOT Ox

TRAP

MOV

UNITN, T260SwW

:SET UP UNIT NUMBER

MOV

#T26PACKET R4

1 SUBROUTINE NEEDS PACKET

. WORD
.WORD
.WORD

CSERDF

671
SFIERR
SFIMSG

ADODRESS

{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
108880080808 0080000800808888000000820888008¢0830088008000000808480820¢

004737

103407
005237

010001

010752

JSR
8CS
INC
MOV
ERRHRD

002212

012124

264 :

104406

PC,WRTCHR

;ISSUE WRITE CHARACTERISTICS

FATFLG
RO,R1

;8UMP COUNT
1SAVE CONTENTS OF

264

ERRNO , WRTMSG , SF IMSG

CKLOOP

18R,

IF COMMAND ISSUED 0K
TSSR

;WRITE CHARACTERISTISC r¢gkgo

:LOOP IF SELECTED

. WORD
. WORD
. WORD

C¢"RMRD
672
WRTMSG
SF IMSG

TRAP

CsCLP1

160888880500 00000800008080880888000882008003080080888888003800800%4804

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

7155

7156
7157
7158
7159 063704
7160 063710

t100 INITIALIZE ON CONTROLLER

204

1888038808808 200800000888802088002008888800280808088230088008008088808088

104456
001240
005054

7151

PC,SOF INIT

:
18588000880 8000088083088808808088008008088888408808808888880008%00000

004737
103413

011104

JSR
8CS

PC.REWIND

304

tCALL

1BR,

TAPE REWIND COMMAND

IF NO PROBLEM

TSV? - HARDWARE TESTS 1 8

TEST

REREADS

7161 063712

7162 063716
7163 063722
7164 063724

016501

012702
010004
005237

7168 063730
063730
063732
063734
003736

104456
001241
073604
012136

063740

104406

7169 063740
7170

MACRO M1113

000002

14 JUUN 84 14:17
MOV

000200

MOV
MOV
INC

002212

ERRHRD

30¢:

TSSR(RS),R1

#SSR,R2
RO,R4
FATFLG

ERRNQ, T26RWN,PKTSSR

CxLOOP

SEQ 0239
tGET TSSR

1SET UP EXPECTED TSSR
tPACKET ADDRESS SET @
1BUMP COUNT
sREWIND NOT ACCEPTED

;LOOP IF SELECTED

TRAP
. WORD
. WORD
.WORD

CSERMHRD
673
T26RWN
PKTSSR

TRAP

CsCLPI

7171

1000800088000 008280808008008008000080008000002800800004800400000880084¢

7172

7174

7178

1028040008004 98800808080880008480000084088000000060800088800¢08088800¢

7173

:REAC MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

7176

7177 063742
7178 063746

013701
010102

7180 063754

020102

7182 063760

005237

7179 063750
7181 063756
7186 063764

063764
063766
063770
063772
7187 063774
063774
7188 063776

;ig‘g 064C02

052702
001406

072150
000002

002212

013737

003114

sPICK UP XSTO
;SET UP EXPECTED

R1,R2

t1DOES EXP = REC'C

FATFLG

1BUMP COUNT

ERRHRD

ERRNO, T2680T ,EXPREC

7191
7192

CxLooP
MOV

072252

#IT1,R2

8EQ

INC

40%:
000400

T268FR+6,R1
R1,R2

8IS

104456
001242
073315
015564
104406
012703

MOV
MOV

MOV

$1SET B80T BIT
1BR,

; TAPE

;LOOP
#256. .R3

FREE, T26R8

EQUAL

NOT

IN EXPECTED
(0x)

B80T

SELECTED

sRECORD SIZE

AFTER REWIND

TRAP
.WORD
.WORD
.WORD

CSERHRD
674
126807
EXPREC

TRAP

CsCLP1

;STARTING WRITE BUFFER ADORESS

1088808880 08804800080808888008800080888080888008038008088000400004800¢8
:

;%gz

;WRITE DATA,CVC=1,ACK,SWB COMMAND

7195

1800800880004 80888800000080888480800000040880888800808008¢000088002008

7196
7197 064010

(12737

7198 064016
7199 064022
7200 064022

010300

7202
7203
7204
7205
7206

010337
010465
004737
016501
012702

7201 064024

06403C
064034
064040
064044
064050

7207 064054

7208 064056

7209 064060

7213 064064
064064
064066
064070

012704

004737

020102

001406

005237

104456
001243
005111

150005

072250

MOV

654
:
017512

072256
000000
016340
000002
000200

002212

MOV

#T26PK3 R4

9150005, T26PK3

tWRITE DATA,CVC=1,ACK,SWB COMMAND

MOV

R3,.RO

$SET PATTERN IN CORRECT REGISTER

MOV
MOV
JSR
MOV
MOV

R3, 12652
R4 ,TSDB(RS)
PC.WAITF
TSSR(RS) ,R1
OSSR, R2

$SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
tWAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED

BEQ

754

18R,

ERRNO,WRTERR,PKTSSR

1 TSSR INCORRECT AFTER WRITE DATA
TRAP
CS$ERHRD
.MORD
675
. WORD
WRTERR

JSR

INC

ERRHRD

PC,FILLMEM

R1,R2

FATFLG

$;SET UP R4 WITH PACKET ADORESS
sFILL MEMORY WITH RECORD SIZE

;ARE

THEY EQUAL

IF 0K

18UMP COUNT

TSV? - HARDWARE TESTS 1 8
TEST

REREADS

064072

7214 064074
064074

7215 064076

012136

022703
001346

064106

104406

7219 064110

758 :

104406

005723

7216 064100
7217 064104

7218 064106

MACRO M1113

14 JUUN 84 14:17

CxLOOP
TST

000414

80%:

cHe
BNE

CxLOOP

SEQ 0240

;LOOP IF SELECTED
(R3).

0268. ,R3
654

:1BUMP RECORD SIZE

PKTSSR

TRAP

CsCLP]

tEND OF RECORD YET
1BR, IF MORE RECORDS TO WRITE

sLOOP IF SELECTED

TRAP

120¢:

7220

. WORD

7221

1080880088888 88200000408808880048000002000000003000000888088008002800

7222

7223
7224

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
:

722%

168080000000 00808888880888400888880888000000000000800000000000000¢84

7226

7227 064110
7228 064114
7229 064116
7230 064122
7231 064126
7232 064130

004737
103413
016501
012702
010004
005237

064134

104456

7236 064134

064136
064140
064142
7237 064144

1238 064144

011104

JSR
8Ccs
MOV
MOV
MOV
INC

000002
000200
002212

ERRHRD

001244
073604
012136

130¢:

104406

7239
7240

PC ,REWIND
1304
TSSR(RS) ,R1
#SSR,R2
RO,R4
FATFLG

ERRNO, T26RWN,PKTSSR

CKLOOP

sCALL TAPE REWIND COMMAND
;1BR, IF NO PROBLEM
sGET TSSR
$1SET UP EXPECTED TSSR
sPACKET ADDRESS SET UP
1BUMP COUNT
sREWIND NOT ACCEPTED

;LOOP IF SELECTED

TRAP

CSERMRD

.WORD
. WORD
LWORD

676
T26RWN
PKTSSR

TRAP

CsCLP)

;0880840868000 84088048086808888800080088888888800088080000000080080084048
:

;g:;

;READ MESSKGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
H

7243

;0008808000 808480088080404880488000808400080800008808080808888088008484

7244
7245 064146

013701

072150

MOV

052702

000002

8IS

7246 064152

010102

7248 064160

020102

7247 064154

7249 064162

7250 064164

7254 064170

064170

001406

005237

001245
073315
015564

064200

104406

7256 064202

;2223 064210

012737

000420

140%:
000400

072302

T26BFR+6,R1

1PICK UP

8IT1,R2

$;SET BOT BIT

MOV

R1,R2

cHe

R1,R2

BEQ

002212

104456

064172
064174
064176

7255 064200

7259
7260
7261
7262
7263

CsCLP:

FATFLG

1404

s8R,

ERRMRD

ERRNO, T26B0T ,EXPREC

sTAPE NOT

MOV

B8R

IN EXPECTED

;1DOES EXP = REC'D

INC

CKLOOP

XSTO

;SET UP EXPECTED
IF EQUAL

;BUMP COUNT

(OK)

AT BOT

AFTER REWIND

;LOOP IF SELECTED
0256.,T26RSZ

1504

;START RECORD SIZE

TRAP

CS$ERHRD

.MORD
. WORD
.WORD

677
126807
EXPREC

TRAP

CsCLP1

;:SKIP SAPCE THIS TIME

;9880068800008 4080008000408020080400008800080000400800080008000808¢
3
;ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
;8IT 1S SETS OIRECTION - O=FORWARD
1=REVERSE
:

TSv?
TEST

HARDWARE

REREADS

TESTS

MACRO M1113

7264

7265
7266
7267
7268
7269
7270
7271
1272
7276

7290

7291
7292
7293
7294
7295
7296
7300

064212
064216
064222
064224
064230
064234
064236
064242

012703
004737
103413
016501
012702

010004
005237

145%:

000001
010556

002212

104456

001246
072717
015564

104406
013703
013737

150$:
072302
003114

7302
7303
7304
7305
7306

7307

7308
7309

7310
7314

SEQ 0241

072252

1SPACE ONE RECORD PARAME TER
sCALL SPACE ROUTINE

e1,R3

PC,SPACE

1504

1BR,

TSSR(RS5),R1
#SSR,R2
RO, R4
FATFLG

IF NO PROBLEM WITH SPACE COMMAND

1GET TSSR
1SET UP EXPECTED TSSR

1PACKET

ERRNO,
T265C , EXPREC

ADDRESS SET WP

sBUMP COUNT
;POSITION (SPACE RECORDS%R:;ILEO

CKLOOP
MOV
MOV

.MORD
.WMORD
.WORD

CS$ERMRD
678
T26SC
EXPREC

TRAP

CsCLPL

sRECORD SIZE
:STARTING READ BUFFER ADDRESS

T26RSZ ,R3
FREE, T26RB

(0088048088888 0884808800 8002408004884 800808848080¢08¢0808800080080¢0

;REREAD DATA,ACK,CVC=1,SW8 COMMAND
1]

1808802020308 080000 8880880000480 004408000000008080808808008008000

012737
012704
010337
010465
004737
016501
012702
020102
001406
005237

151401
072250
072256
000000
016340
000002
000200

072250

165¢:

MOV
MOV

cHP
8EQ
INC
ERRHRD

002212

001247
074140
012136

104406
013702
010304
162704
060204
021403
001410
011401
010302
005237

170¢:

CKLOOP

173¢:

MOV
MOV
SuB
ADD

003114
000400

001250
073362
015564

MOV
MOV
MOV

MOV
JSR

002212

cHP
8EQ
MOV
MOV
ERRHRD

104456

7315

MOV
JSR

8Cs
MOV
MOV
MOV
INC
ERRHRD

000002
000200

104456

7301

14:17

1080080028200 28000000400008020¢00000000808¢08000000080800000800000000000200

064242
064244
064246
064250
7277 064252
064252
7278 064254
7279 064260

7280
7281
7282
7283
7284
7285
7286
7287
7288
7289

14 UUN 84

180¢:

CKLOCY

#151401, T26PK3
#T26PK3,R4
R3,T2652
R4, TSDB(RS)
PC,WAITF
TSSR(RS),R1
@SSR ,R2
R1,R2

1REREAD DATA,ATK,CVC=1,5w8 COMMAND
1SET UP R4 WITH PACKET ADDRESS

1SET UP RECORD SIZE IN PACKET
: ISSUE COMMAND
sWAIT FOR SSR TO SET
$GET TSSR CONTENTS
sSET UP EXPECTED
sARE THEY EQUAL

1704

t1BR,

FATFLG

ERRNO, T26WDC ,PKTSSR

IF 0K

;BUMP COUNT
s TSSR INCORRECY AFTER REREAD DATA
TRAP
. WORD

;LOOP IF SELECTED
FREE,R2
R3,R4

9256. ,R4
R2,.R4
(R4),R3
1804

R3,R2
FATFLG

. WORD
. WORD

sOATA READ NOT

= WRITTEN

;LOOP IF SELECTED

PKTSSR

TRAP

CsCLP]

TRAP
. WORD

CS$ERHRD
680
T26DTA
EXPREC

sCURRENT BUFFER ADDRESS TO R2
1CURRENT RECORD SIZE
;tFIRST LOCATION IN BUFFER
1SET UP POINTER
;CHECK DATA READ (R3=DATA ALSO)
18R, IF ALL IS WELL
sRECD DATA
;EXPECTED DATA
:BUMP COUNT

ERRNO, T26DTA ,EXPREC

CS$ERHRD
679
T26M0C

. WORD
. WORD

TSv?

TEST

HARDWARE TESTS 1 8

REREADS

064406
7316 064410
7317 064412
7318 064414

104406
005724
160204
020403

7320 064420
7321 064422
7322 064426

005723
010337
022703

7319 064416

7323 064432
7524 064434
064434

7325 064436
064436
064436

7326 064440
7327 064446
7328 064450
7329 064454

MACRO M1113

14 JUUN B84 14:17

001360

001267

190¢:

104406
104403

023727
103402
004737

ST
SuUB
cMP

(R4).
R2,R4
R4 R3

TRAP
;BUMP TD NEXT LOCATION
;CORRECT RECORDS SIZE VALE
sEND OF RECORD YET

197
MOV
cMe

(R3Y).
R3, T26RSZ
8264 . ,R3

;BUMP RECORD SIZE
;STORE RECORD SIZE
{END OF RECORD YET

BNE

072302
000410

BNE
CKLOOP

1738

145%

ENDSUB
002212
017272

7330
7331

000017
999:

SEQ 0242

cmp
BLO
JSR

CsCLPI

:BR, IF NOT AT END OF RECORD

;BR, IF MORE RECORDS 10 WRITE
;LOOP IF SELECTED
TRAP

CsCLP1

:>>>3>>33>>3>>> END SUBTEST »>53>53>335>5>>
L10112:

FATFLG, 015,
9994
PC ,CKDROP

1RAP

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

CsESUB

7332

7333

;TEST 6,

7335
7336
7337
7338
7339
7340
7341
;g:?

sVERIFIES THAT THE REREAD NEXT COMMAND WITH OPP=1
;:(READ FORWARD, SPACE REVERSE) AND SWB=0 OPERATES
;PROPERLY. THE TAPE IS FIRST REWOUND AND THEN WRITTEN
;WIiH A SERIES OF TEST RECORDS VARYING IN LENGTH AND
sDATA CONTENT; THE FIRST FOUR BYTES OF EACH RECORD
;CONTAIN ITS RECORD NUMBER (INDICATING POSITION ON
;:TAPE)., THE TAPE IS THEN REWOUND AGAIN. FOR EACH
;TEST RECORD, THE FOLLOWING SEQUENCE IS EXECUTED.

7334

7344

;1.

;33:5
6
7347
7348
7349
7350
7351
7352

:
H
2.
:
;
:
;
:

;ggz

SUBTEST 9

THE REREAD NEXT COMMAND WITH OPP=1

AND THE RESULTS CHECKED

IS ISSUED

A READ FORWARD COMMAND IS THEN ISSUED AND THE

DATA IS CHECKED TO VERIFY THAT THE TAPE WAS
POSITIONED PROPERLY AFTER THE REREAD NEXT
COMMAND (E.G. THE TAPE SHOULD HAVE BEEN LEFT
POSITIONED AT THE START OF THE TEST RECORD). THE
READ FORWARD COMMAND LEAVES THE TAPE POSITIONED
PROPERLY AT THE START OF THE NEXT TEST RECORD.

7355
7356

;THE BYTE COUNT ON EACH REREAD NEXT COMMAND IS SET
sTO THE LENGTH OF THE EXPECTED RECORD, SO NO

7359
7360
7361
7362
7363

:
:
;

;gg;

;sEXCEPTIONAL CONDITIONS SHOWD OCCUR,

7364 (64454

064454

7365 064456
7366 064462

BGNSUB

104402

004737
005037

075040
072276

JSR
CLR

$2>>3>33>35>>

PC,T26REST
T26CNT

BEGIN SUBTEST

76.9:

TRAP

:SET COMMAND PACKET
:CLEAR TAPE RECORD COUNTER

>>>>5>3>>3>>>>>

csBsuB

TS5v?

TEST

HARDWARE

TESTS

064466

004737
004 /3~

6: REREARDS

1367

7368 064472
7369
7370

1 8

MACRO M1113

JSR
JSR

075132
075174

7371

7374
7375
7376 064476

064502
064504
064510
064512
064512
064514
064516

064522

7386 064530
7387
7388
7389
7390
7391
7392
7393

7394
7395
7396
7400
7401

064534

064540
064542
064546
064550
064550
064552
064554
064556
7402 064560
064560

7403
7404

1088800888800 0880880880880 0004000008008 0488008080480 800808408804

004737
103407
005237

010001

JSR
8Cs
INC
MOV
ERRDF

016064

002212

PC,SOFINIT
204
FATFLG
RO,R1
ERRNO,SFIERR, SFIMSG

;00 INITIALIZE ON CONTROLLER
;BR IF INIT WAS 0K
1BUMP COUNT

s CONTENTS OF TSSR REGISTER
;FATAL ERROR

1044355

00. 251
003550
Olc i24
013737

002172

012704

072120

072140

20$:

TSSR WAS NOT 0K
TRAP

. WORD
. WORD
. WORD

MOV

UNITN, T260DSW

:SET UP UNIT NUMBER

MOV

R4
0T26PACKET

: SUBROUTINE NEEDS PACKET ADORESS

CS$ERDF
SFIERR
SF IMSG

1888008003888 88888808884808080888¢08445088008880808008000200844080880200¢

:WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
188888888880 84088880808008888080808208888888088088888004008800008808000

004737
103407
005237

JSR

010752

BCS
INC
MOV
ERRHRD

002212

010001

104456

001252
005054
012124

26%:

104406

PC,WRTCHR

264
FATFLG
RO,R1
ERRNO,WRTMSG, SFIMSG

;ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED Ox
;:8UMP COUNT
;sSAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED
TRAP

;:LOOP IF SELECTED

CKLOOP

CS$ERHRD

. WORD
. WORD
. WORD

682
WRTMSG
SF IMSG

TRAP

CsCLP1

1086086888388 888088808088088288°
8088080888080 8008080848088008008800400¢

7405
7406

7407
7408
7409
7410
7411
7412
7413
7414
7415
7419

;SET UP OTHER COMMAND PACKETM
1SET UP OTHER COMMAND PACKET

: ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR

7373

7384
7385

PC,T26RT?2
PC,T26RT3

SEQ 0743

1068084848000 48880800488800800800000868080888088804808004040080804b04ss

7372

7377
7378
7382
7383

14 JUUN 84 14:17

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
[

1088808880888 488888888888080888008885808080808808¢080082088800080040

064562

064570
064574
064602
064606
064610
064612
064614

004737
103413
016501
012702
010004
005237

104456
001253
073604
012136

011104
000002
000200

002212

JSR
8CS

MOV
MOV
MOV
INC
ERRHRU

PC,REWIND
304
TSSR(RS5),R1
#SSR ,R2
RO,R4
FATFLG
ERRNO, T26RWN,PKTSSR

sCALL TAPE REWIND COMMAND
;18R, IF NO PROBLEM
;GET TSSR
1SET UP EXPECTED TSSR
:+PACKET

ADDRESS

SET

;BUMP COUNT
J+REWIND NOT ACCEPTED

TRAP

.WORD
.WORD
. WORD

CS$ERHRD
683
T26RWN
PK3SSR

TSv?
TEST

HARDWARE

TESTS

064616
064616

10440¢

7420

MACRO M1113

JUUN 84

14:17

SEQ 0244

REREADS
30¢%:

7421

;LOOP IF

CKLOOP

SELECTED

TRAP

CeCLP]

1000808808080 0080080000088000008000008380¢08008000000000000460000000000s0

7422
7423

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XST0,

7424

7425
7426
7427
7428
7429
7430
7431
7432
7433
7437

1000000624808 00008880008000200080000000080000080008000000098008080000¢

013701

072150

052702

000002

005237

002212

010102
020102
001406

MOV
MOV
8IS
cHP
8eQ
INC
ERRHRD

104456
001254
C73315
015564

7438

104406
012703
01373~

7439
7440
744}

40%:

000400
003114

7442
7443
7444

R1.R2

404
FATFLG

ERRNO, T2680T , EXPREC

;PICK UP XSTO

;SET UP EXPECTED

;SET BOT BIT IN EXPECTED
+DOES EXP « REC D
sBR, IF EQUAL (Ox)
;BUMP COUNT

;s TAPE

NOT

AT 80T

AFTER REMIND
TRAP

;LOOP IF SELECTED

CxLOOP
MOV
MOV

072252

T26BFR+6,R1

R1,R2
#8IT1,R2

9256
. ,R3
FREE, T26R8

CSERMRD

.WORD
. WORD
.WORD

684
726807
EXPREC

TRAP

CsCLP)

;RECORD SIZE
;STARTING WRITE BUFFER ADORESS

1088000008 8688808808080808000808008008808008088820080000880880080000008009

:WMRITE DATA,CVC=1,ACK COMMAND

7445

1008800008888 0808080080000880800600008080080000000008000508800800008¢08

7447
7448
7449
7450
7451
7452

7453
7454
7455
7456
7457
7458

064666
064674
064700
064 700
064 704
064712
064720
064724
064730

064734

064740

7459 064742
7460 064744

7464 064 750
064750
064752
064 754
064 756
064 760
064 760
7466 064762
7467 064 764
7468 064770
7469 064772
7470

064774

7471

064774

012737
012704
010337
013777
062737
010465
004737
016501
012702
020102
001406
005237

140005

072250

072256
072276

000001
000000
016340
000002
000200

072250
65¢:

116202
072276

002212

104456
001255
05111
012136

5%
:

104406
005723
022703
001401
000742

000414

005037

072276

MOV
MOV

#140005, T26PK3
R4
0T26PX3

tWRITE DATA CvC=1,ACK COMMAND

MOV
MOV
ADD
MOV
JSR
MOV
MOV
crP
8EGQ
INC
ERRHRD

R3, 12657
T2oCNT
, §FREE
01, T26CNT

1SET UP RECORD SIZE IN PACKET
;MOVE TAPE RECORD NUMBER TO BUFFER
iNUMBER READY FOR NEXT RECORD
: ISSUE COMMAND
;WAIT FOR SSR TO SET
;GET TSSR CONTENTS
1SET UP EXPECTED
sARE THEY EQUAL
;BR, IF 0Ox
;BUMP COUNT

PC.WAITF

1SSR(RS),R1

OSSR, R2

R1,.R2
754
FATFLG

, PKTSSR
ERANGC , WRTERR

;sTSSR INCORRECT AFTER REREAD DATA

;LOOP IF SELECTED

CXLOOP
TS7

:
1204

R4, TSOB(RS)

;SET UP R4 WITH PACKET ADORESS

(R3).

;8UMP THE RECORD SIZE

0268
. ,R3

8EQ
BR

1204
654

sMAXIMUM SIZE YET

CLR

T26CNT

1SET RECORD COUNTER BACK

TRAP
. WORD

. WORD
. WORD

CSERHRD
685
WRTERR
PXTSSR

TRAP

CsCLP)

iBR, IF AT END OF WRITE SEQUENCE
iWRITE MORE RECORDS
TO ZERO

TSv?

TEST

HARDWARE

6: REREADS

TESTS

MACRO M1113

14 UUN 84

14:]1°

SEQ V245

472
74°%

7474

:ISSUE REWIND COMMANC TO SELECTED TAPE DRIVE

747S

147¢

;0008000080000 00800000000800000082000800080080000800008000008088000009

477
7471

065000
065004
065006
v‘ez
065012
7483 065014
7487 065020
065020

1479

7480
7481

065022
065024
065026
7488 0650%0

065030

004°3”

011104

016501
010004
0052%”

002212

103411

JIR

PC.REWIND

:CALL TAPE REWIND COMMAND

ERRHRD

ERANG, T26RWN, PX TSSR

:REWIND NOT ACCEPTED

8CS
MOV
MOV
INC

104456
001256
073604
01213%

1308:

1308
TSSR(RS),R1
RO.R4
FATFLG

CKLOOP

;BR, IF NO PROBLEM
:GET TSSR
;PACKET ADORESS SET P
:BUMP COUN"

RAP

. WORD
- WORD
WORD

:LOOP IF SELECTED

TRAP

1044080

CSERRD
686
T 26RWN

PHTSSR

CsCLP1

7489
;.“..“'...........‘........‘.................‘............‘......

7491

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XST0)

7492

7493

;‘.................“................‘.................".‘....'...

7494
7495

065032
065036
7498 065040
7499 065044
065046
7501 065050
065054
065054
063056
063060
1496

7497

0635064
065064
065066

065074

012701
010102

MOV
"oV
8IS
ow
BEQ
INC

072150

05270¢

020192
001406
005237

002212

ERRIMRD

104456

001257
07331
015564

135¢

106406
0127%7
000420

510

ERAND, T26807 . E XPREC

;PICK UP XSTO
;SET UP EXPECTED
:SET BOT BIT IN EXPECTED
.DOES EXP » REC D
:8R. IF EQUAL (Ox
{BU® COUNT
;TAPE NOT

CxLOOP

MOV
R

072302

T268FR-6.R]
R1,.R2
8IT1.R2
R1.R2
1338
FATFLG

AT BO°

:LOOP IF

0256 . . 126RS27
1408

AFTER REWIND
TRAP

. WORC
WORD
WORC

SELECTED

;STARTING RECORD SIZE
;SKIP OVER THE SAPCE THIS "IME

;.‘...........................‘........‘....‘OO...O..0......‘O.....

{ISSUE SPACE RECORDS COPPVAMD
:B8I7

1S SETS DIRECTION

VALUE IN RS SETS MUABER OF RECORDS

OeFORMARD

1| -REVERSE

:...........‘.............‘.....‘........‘.........‘...............
065076
065102
065106
065110
065114
065120
065122
065126

012703
004737

1034183

016501
012702
010004
00523

O0v001
010556

00020C
00221¢

1328

"0V
JSR
8cs
"0V
"0V
"Ov
INC

EQM@AC

€000001 . RS
PC . SPACE
1404
TSSR(RS . R
0SSR A2
RC . R4
FATE_,

ERANC
. " 2650 .Pw " 53R

LSET UP SPACE COMWND (1 FORWARC
:CAL. SPACE ROUTINE
:8R. IF NO TROUBLE
.GET TSSR
.SET UP EXPECTED TSSR
:PACKEY ADORESS SET WP
8P COuNT
"SPACE

(FORWARC) FAI_ED

CIERRD
687

126807
EXPREC
CsCLP:

TSv?

TESY

HARDWARE

REREADS

065126
065130
065132
065134
7528 065136
065136
065140
7529
7530 065144
7531
7532
7533
7534
7”3,
7537
7538
7539
7540

7541

7542

7543

7545
7546
7547
7551

7552
7553

7554 ¢
7555

7556
7357
7561

ESYS

1 8

MACRT =1118

)

JUN

SEQ

10445¢
001260
cr271°

01213

1408-

Cwi OOF

1508

MOV
OV

104406

013703
0137%?

072302
003114

072252

:LOOP

R3
T26RSZ

FREE, T26RE

SELECTED

TRAP
.WORQ
. WORO
.WORD

688
1265C
PXTSSR

TRAP

CeCLP)

;RECORD SIZE

CIERRD

:STARTING READ BUFFER ADORESS

:REREAD DATA.CVCe1.ACK, OPP COMMAND
012737
012704
010337
010465
004757
016501
012702
020102
001406
005237

161401
072250
072256
000000
016340
000002
000200

072250

001406
005237

8EQ
INC
ERRMRD

002212

104403
023727
103402
004737

0161401, T26P%3

R4
0726PK3
R3,T2652
R4, TSOB(RS)
Pr WAITF

TSSR(RS ),R1
R1,.R2

170¢

FATFLG

ERRNO, T26RRF ,PKTSSR

sREREAD DATA,CvCe1,ACK, OPP COMMAND
:SET UP R4 WITH PACKET ADORESS
:SET JP RECORD SIZE IN PACKET
: ISSUE COMMAND
;WALIT FOR SSR TO SET
:GET TSSR CONTENTS
:SET UP EXPECTED

;ARE THEY EQUAL
i8R, IF O
;:8UrP COUNT
; TSSR INCORRECT AFTER REREAD DATA
TRAP
CIERMRD
.WORD

689

.WMORD

PKTSSR

TRAP

CsCLP1

.WORD

170%:

115656

CxLOOP
MOV
MOV
cHP
8EQ
INC
ERRHRD

072276

002212

104456
001262
072306
015564
104406
062737
005723
010337
022703
001402
000137

MOv
MOV
MOV
MmOV
JSR
MOV
MOV
(g

104456
001261
072525
01213~

1044 )6
017771
013702
020102

1654:

;LOOP IF
8FREE ,R1

T26CNT ,R2

R1,R2
1904

FATFLG

ERRNO, T26WNG , EXPREC

SELFCTED

;:FIRST WORD FROM READ BUFFER
:SET WP EXPECTED
;IS TAPE POSITION CORRECT
;KEEP GOING POSITION OK
;BUMP COUNT
;:TAPE POSITION INCORRECT
TRAP
.WORD

190¢:
000001

157
MOV

072302
00041

cHpe

065076

200¢%:

.WORD
.WORD

CKLOOP
ADD

072276

8EQ
JMP

01, T26CNT
(R3).

R3,T26RS2Z
0266
. ,R3
2004

132

ENOSUB

TRAP

;:BUMP TAPE RECORD COUNTER
:NEXT RECORD SIZE
;:STORE RECORD SIZE

;AT

MAX

SIZE

017272

000017

CcHP
8LO
JSR

$22333>3>>>>>

FATFLG, 015.
9994

PC.CKDROP

CS$ERHRD
690
T26WNG

EXPREC
CsCLP]

YET

:BR, IF AT ENC OF THE SUBTEST
;KEEP GOING MORE RECORDS
END

SUBTEST

L10113:
002212

T26RRF

>5>>>55>>3>3>>>

TRAP

;IS ERROR COUNT AT 25
iBR, IF LESS vAAN 25
;:TRY

TO DROP

THE

UNIT

csEsuB

J2ee

TSv?

TEST

HARDWARE TESTS
6: REREADS

MACRO M1113

14 JUUN-84

14:17

SEQ 0247

9994
;

7574 065330
7575
7576

7578

s TEST 6, SUBTEST 10

7877

7579
7580
7581
7582

tVERIFIES THAT THE REREAD NEXT COMMAND WITH OPP«]
tAND 5WB=1 OPERATES PROPERLY. THE TEST SEQUENCE IS
tTHE SAME THAT IS USED IN SUBTEST 3, BUT IT IS
s VERIFIED THAT DATA STORED BY THE COMMAND CONTAINS

7583
7584

1 SWAPPED BYTES.

7585

7586
7587

7588
7589
7590
7591 065330

7592
7593

7594
7595

7596
7597

065330
065330
065332
065336
065342
065346

BGNSUB

104402
004737
005037
004737
004737

075040
072276
075132

JSR
CLR
JSR
JSR

075174

$12>>>3555>>>>

BEGIN

SUBTEST

16.10:

PC,T26REST
V2EENT
PC.T26RT2
PC,T26RTX

>>33333,55>5>

TRAP

$SET COMMAND PACKET
sCLEAR TAPE RECORD COUNTER
1SET UP OTHER COMMAND PACXET
$1SET UP OTHER COMMAND PACKET

cs8SUB

1000880000800 008002000080080000000008000000800000608080000508000088009

;

s ISSUE CONTROLLER ~SOFT* INITIALIZE

- CARRY BIT CLEAR IF ERROR

1000000006000 0000800008800000805000000000000¢00000000000020000000800000

065352
065356
065360
065364
065366
065366
065370
065372
065374
7611 065376
7612
7613 065404

7614

7615
7616
7617
7618
7619
7620

7621
7622
7623
7627
7628

004737
103407
005237

010001

JSR
8CS
INC
MOV
ERRDF

016064

002212

104455

001263
003650
012124
013737

002172

012704

072120

072140

204 :

PC,SOFINIY
208
FATFLG
RO,R1
ERRNO, SFIERR, SF IMSG

;100 INITIALIZE ON CONTROLLER
18R IF INIT WAS Ox
1BUMP COUNT
sCONTENTS OF TSSR REGISTER

sFATAL

ERROR

TSSR WAS NOT Ox
TRAP

. WORD
. WORD
. WORD

MOV

UNITN, T2605wW

1SET UF UNIT NUMBER

MOV

R4
OT26PACKET

1 SUBROUTINE NEEDS PACKET ADORESS

CSEROF

691

SF IERR
SF IMSG

1888060600808 008080008088800300800800000000000300008¢00000008¢200000000806

;

tWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
‘

1000000000008 000¢000800400808008000080008080000800006000000080800880000¢

065410
065414
065416
065422
065424
065424
065426

004737
103407
005237
010001

104456

001264

010752
002212

JSR
8CS
INC
MOV
ERRHRD

PC.WRTCHR
264
FATFLG
RO,R1
ERRNO,WRTMSG, SFIMSG

1 ISSUE WRITE CHARACTERISTICS
18R, IF COMMAND ISSUED O
18UMP COUNT

1 SAVE CONTENTS OF TSSR
IWRITE CHARACTERISTISC FAILED
TRAP

. WORD

CS$ERNRD

692

]

L4
TSV?
TEST

HARDMWARE TESTS
6: REREADS
065430
065432

005054
012124

065434

104406

7629 065434
7630

1 &

MACRO M1113

268 :

14 JUN 84 14:17

CKLOOP

SEQ D248

sLOOP IF SELECTED

. WORD
. WORD

WR TMSG
SF IMSG

TRAP

CsCLP1

7631

1000000000820 40040608000003000080080080008000000000000000000020000000

7632

7633

;sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

7634

7635

1000800808008 008080040000000000080000800000000000000¢00080000080000000

7636

7637 065436
7638 065442
7639 065446
7640 065452

7641 065454
7642 065456

7646 065462
065462
065464
065466
065470
7647 065472
065472

7648

004737
016501
012702
103407

010004
005237

011104
000002
000200

JSR
MoV
MOV
BCS

PC . REWIND
TSSR(RS),R1
OSSR, R2
304

ERRHRD

ERRNO, T26RWN,PKTSSR

MOV
INC

002212

104456
001265
073604
012136

30¢%:

104406

RO,R4
FATFLG

CKXLOOP

1CALL TAPE REWIND COMMAND
tGET TSSR
;1SET UP EXPECTED TSSR
tBR, IF NO PROBLEM

sPACKET ADORESS SET WP
18UMP COUNT
sREWIND NOT ACCEPTED

;LOOP IF SELECTED

TRAP
.WMORD
. WORD
. WORD

CSERRD
693
T26RWN
PXTSSR

TRAP

CsCLPL

76‘9

;.“....“‘....“.....“.“.‘O‘.‘."..‘..‘.O....‘.......“‘....‘...

7650
;ggé

H
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

7653

;ooooooooocoooooooooooooooooooooooooooooooooaoooooooooooooooooooooo

7654

7655
7656
7657
7658

065474
065500
065502
065506

7659 065510
7660 065512
7664 065516

0137¢:
0101ue
052702
020102
001406
005237

065516
065520
065522
065524

104456
001266
073315
015564

065526

104406

7665 065526

7666 065530

;z; 065534

012703

013737

072150

MOV
MOV
BIS
cw

000002

BEQ
INC
ERRHMRD

002212

404 :
000400

03114

7669

9256. ,R3

sRECORD SIZE

FREE , T26RB

TRAP

$STARTING WRITE BUFFER ADDRESS

;2;5

MRITE DATA,CVC=1,ACK COMMAND
:

7673
7674

;6;’3 osggg‘o
6
06
7678 065554

18R, IF EQUAL (Ox)
;BUMP COUNT
;TAPE NOT AT 30T AFTER REWIND
TRAP
. WORD
. WORD
. WORD
;LOOP IF SELECTED

1800000060600600000000008080000000000080880808000080000888480808000808

7670

T767S 065542

mMov

iPICK UP XSTO
1SET UP EXPECTED
1SET BOT BIT IN EXPECTED
1D0ES EXP = REC'D

40¢
FATFLG
ERRNO, 126807 ,EXPREC

CxXLOOP
MoV

072252

T268FR-6 ,R1
R1,R2
MBIT1 . R2
R1,R2

;0860080000008 6000080000008000000000000006600008880800880080088080080¢

012737

140005

012704

072250

010337

072256

072250

s
65¢:

MOV

#14000S, T26PK2

tWRITE DATA,CVC=1,ACK COMMAND

MOV

R3,T26S52

1SET UP RECORD SIZE

MOV

0T26PK3 R4

$1SET UP R4 WITH PACKET ADDRESS
IN PACKET

CSERMRO
694
126807
EXPREC

CsCLP1

TSv?
TEST

HARDWARE

REREADS

7679 065560

7680
7681
7682
7683
7684

065566

065574
065600
065604

065610

7685 065614

7686 065616

7687 065620
065624

7691

7692
7693

7694
7695
7696

7697

7698
7699

065624
065626
065630
065632
065634
065634
065636
065640
065644
065646
065650
065650

7700
7701
7702
7703
7704
7705
7706
7707
7708
7709
7710
7714

TESTS
013777
062737
010465
004737
016501
012702
020102
001406
005237

1 8
072276
000001
000000
016340
000002
000200

MACRO M111?

115326

MOV

ADD

072276

MOV

JSR

MOV
MOV
CHe
8€EQ
INC
ERRHRD

002212

104456

7716
7717
7718
7719
7720
7721
7722
7723
7724
7725
7726

065706
065712
065714
065720
7727 065722
7728 065724
7732 065730
065730
065732

14:17/

T26CNT
, 8F REE
01,T26CNT
R4, TSDB(RS)
PC,WAITF

TSSR(RS),R1
OSSR, R2

R1,R2

754
FATLG

ERRNO,WRTERR,PKTSSR

SEQ 0249

;MOVE TAPE RECORD NUMBER TO BUFFER
tNUMBER NEADY FOR NEXT RECORD

1+ ISSUE COMMAND
tWAIT FOR SSR 70 SE?
1GET TSSR CONTENTS
1SET UP EXPECTED
;tARE

THEY EQUAL

1BR, IF 0Ox
sBUMP COUNT
s TSSR INCORRECTY AFTER WRITE DATA
TRAP

001267
00S111

012136

75¢:

104406
005723
022703
001401
000742

000414

005C37

072276

120¢:

;LOOP IF SELECTED

CKLOOP

TS7

(R3).

18BUMP THE RECORD SIZE
sMAXIMUM SIZE YET

695
WRTERR
PXTSSR

TRAP

CsCLPL

cHe
8EQ
B8R

1204
654

1BR,

CLR

T26CNT

1SET RECORD COUNTER BACK T0 ZERO

0268
. ,R3

CSERMRO

.MORD
. WORD
LWORD

IF AT END OF WRITE SEQUENCE

tWRITE MORE RECOROS

10800000080 00080800800800000000800800848008000080000800008080800000000009

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
1000006884088 0008408080800880048000000000088800000800000000000000000¢

004737
103411
016501
010004
005237

011104

JSR
8CS
MOV
MOV
INC
ERRHRD

000002
002212

104456
001270
073604
7715

14 JUN 84

012136

130¢:

104406

PC ,REWIND

1308

TSSR(RS)
,R1
RO,R4

FATFLG

ERRNO, T26RWN,PKTSSR

cxLoor

;CALL TAPE REWIND COMMAND
tBR, IF NO PROBLEM
1GET TSSR
sPACKEY ADDRESS SET P
;BUMP COUNT
tREWIND NOT ACCEPTED

TRAP

696

TRAP

CsCLP)

. WORD
. WORD

;LOOP IF SELECTED

CSERMRD

.WORD

T26RWN
PKTSSR

1000088000500 0000000000800080800000800000800806000000080088800008000

iREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
100860080000 8880008008080008000000000208000000080080008800000888508000808¢008¢

013701
010102

052702

020102
001406
005237

104456
001271

072150
000002

002212

MOV
MOV
81S
cHP
8EQ
INC
ERRMRD

R1,R2

#MIT1,R2

R1,R2

135¢

FATFLG

ERRNO, 126807 ,EXPREC

1PICK UP XSTO
1SET UP EXPECTED
1SET BOT BIT IN EXPECTED
1DCES EXP = REC'D
1BR, IF EQUAL (Ox)
;BUMP COUNT

s TAPE NOT

AT BOT

AFTER REWIND
TRAP

.WORD

CSERHRD

697

TSV? - HARDWARE TESTS 1-8
6: REREADS
TEST

7733

065734
0657356

073315
015564

065740

104406
01275°
000420

0657an

7734 0565742
7735 065750
7736
77%”
7738
7739
7740
7741
7742

7743
7744
7745
7746
7747
7748
7749
7750
71754

065752
065756
065762
065764
065770
065774
065776
066002

066010

7755 066012

066012
7756 066014
7757 066020

7758
7759
7760
7761
7762
7763
7764
7765
7766

7767
7768
7769
7770
77171
7772
7773
7774
7778

7779

7780
7781 066112
7782 066116

MACRO M1113

135¢:
000400

14-JUN 84 14:17

SEQ 0250

CKLOOP
MOV

072302

B8R

sLOOP IF
0256
. , T26RSZ

140

.WORD
. WORD

126807
EXPREC

TRAP

CsCLP1

SELECTED

1START RECORD SIZE

1SKIP OVER SPACE

180088880830 088808000408282000 0080000208880 004008000300300084888048004
:

1 ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
1=REVERSE
1BIT 15 SETS OIRECTION - O=FORWARD
i
10808880008 480888888880880880880000008808008800080008888008004080800
4

012703
004737

103413
016501
012762
010004
005237

136¢:

000001
010556

8CS
MOV
MOV
MOV
INC
ERRHRD

000002
000200
002212

104456
001272
072717
012136
104406
013703

013737

072302
003114

MOV
JSR

072252

140¢.

CKLOOP

150¢:

MOV
MOV

4000001 ,R3
PC.SPACE
1404
TSSR(RS) ,R1
#SSR ,R2
RO,R4
FATFLG
ERRNO, T265C,PKTSSR

1SET UP SPACE COMMAND (1 FORWARD)
sCALL SPACE ROUTINE
31BR, IF NO TROUBLE
tGET TSSR
$SET UP EXPECTED TSSR
$tPACKET ADORESS SET uP
;1BUMP COUNT
s SPACE (FORWARD) FAILED
TRAP

sLOOP IF SELECTED
T26RSZ ,R3
FREE, T26R8

CSERHRD

.WORD
.WORD
LWORD

698
T26SC
PKTSSR

TRAP

CsCLP1

;RECORD SIZE
sSTARTING READ BUFFER ADDRFSS

(1850808080840 08000080008888880088¢0800000080808002080488000R84080080082

;REREAD OATA,CVC=1,ACK, OPP COMMAND
1808080886800 8088000888888880803008808000000080000880¢0400¢40000880820840000

012737
012704
010337
010465
004737
016501
012702
020102
001406
005237

161401
072250
072256

072250

165¢:

016340
000002
000200

R1,R2

ERRHRD

170%:
115002
072276

8EQ
INC

104456

104406
017701
013702
020102

#161401, T26PK3
3
R4
#T26PK
R3, 12652
R4, TSDB(RS)
PC,WAITF

MOV
MOV

002212

001273
072525
012136

MOV
MOV
MOV
MOV
JSR

TSSR(R3),R1
#SSR,R2

170¢
FATFLG

ERRNO, T26RRF ,PKTSSR

;WAIT FOR SSR TO SET

sGET TSSR CONTENTS
1SET UP EXPECTED
tARE THEY EQUAL
1BR,

IF 0K

1BUMP COUNT

;1TSSR INCORRECT AFTER REREAD DATA
TRAP
.MORD

sLOOP IF SELECTED

CKLOOP
MOV
MOV
cHe

1REREAD DATA,CVC=1,ACK, OPP COMMAND
1SET UP R4 WITH PACKET ADDRESS
$1SET UP RECORD SIZE IN PACKETY
s ISSUE COMMAND

8FREE ,R1
T26CNT ,R2
R1,.R2

CSERMHRD
699
T26RRF

.WORD
.WORD

PKTSSR

TRAP

CsCLP1

{FIRST WORD FROM READ BUFFER
1SET UP EXPECTED
1IS TAPE POSITION CORRECT

[ 4
TSV?
TEST

- HARDWARE TESTS 1-8
6: REREADS

7783 066120
7784 066122
7788 066126

066126
066130

066132
066134
7789 066136
066136

7790
7791
7792
7793
7794
7795
7796
7797

7798
7799
7800
7801
7802
7803
7804
7805
7806
7807
7808

066140
066146
066150

066154

066160
066162
066166
066166
066166
066166
066170
066176
066200
066204

001406
00523~

7820

7821
7822
7823
7824
7825
7826
7827
7828

7829 066222
7830 066226
7831 066230
7835 066234
7836 066236

INC
ERRMRD

104456
001274
072306
015564
104406
062737
005723
010337
022703
001402
000137

104403
023727
103402
004737

190¢:
000001

14 UUN-84

8€EQ

002212

TST
MOV

8eQ

06575~

220¢:

14:17
190¢

FATFLG

ERRNO, T26WNG, EXPREC

SEQ 0251

tKEEP GOING POSITION Ov
1BUMP COUNT
s TAPE

POSITION

INCORRECT

CxL.00P
ADD

072276

072302
000412

#1,T26CNT

(R3).

R3, T26RS2Z
0266. ,R3

2204
1364

ENDSUB

002212

000017

017272

999
:

cHp
BLO
JSR

TRAP

CSERHRD

. WORD
. WORD
.WORD

EXPREC

TRAP

CsCLP1

:BUMP TAPE RECORD COUNTER

700

T26WNG

¢NEXT RECORD SIZE
sSTORE RECORC SIZE
sAT

MAX

SIZE

YET

tBR, IF AT END OF THE SUBTEST
:KEEP GOING MORE RECORDS
$§2>5>>>3>33>>

END

SUBTEST

L10114:
FATFLG,#1S5.

555>>33>>>>>

TRAP

1 IS ERROR COUNT AT 25
s8R, IF LESS THAN 25

9994

PC .CXDROP

:TRY

TO DROP

CseEsuB

THE UNIT

HE4

;TEST 6. SUBTEST 11
:

+VERIFIES TMAT A REREAD NEXT COMMAND READING A
sRECORD LONGER THAN THE SPECIFIED BYTE COUNT CAUSES
1 TAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH
iLONG (RLL) BIT SET. RESWLTS ARE VERIFIED FOR BOTH

7810
7811
7812
7813
7814
7815
7816
7817
7818

7819

MACRO M1113

sSTATES OF OPP (0 AND 1).

BGNSUB

104402
004737
004737
004737

075040
075132
075174

JSR
JSR
JSR

$22>>>>>5>>>>

BEGIN

SUBTEST

T6.11:
PC,T26REST
PC,T26RT2
PC,T26RTY

TRAP

;:SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET
1SET UP OTHER COMMAND PACKET

1808884608308 8000888808488¢838048480084008000080808000008¢8800008002020¢

;ISSUE CONTROLLER "SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR
1888804088880 448280888880850884008484400000888880808080400800¢0080880s

004737
103407
005237
010001

016064

002212

JSR
8CS
INC
MOV
ERROF

PC,SOFINIT

204

FATFLG
RO,R1

ERRNO,
SF IERR, SF IMSG

100 INITIALIZE ON CONTROLLER
1BR IF INIT WAS OK

18UMP COUNT
s CONTENTS OF TSSR REGISTER

tFATAL

ERROR

TSSR WAS NOT

»5>>3>>>,33>>>

csBsuB

(144
MR

TEST

HARDWARE TESTS 1 8

REREADS

066236

MACRO M1113

14 UUN 84 14:17

SEQ 0252

104455

TRAP

CS$ERDF

066242
066244

003650
012124

013737

002172

. WORD
.WORD

SFIERR
SF IMSG

7839 066254

012704

(72120

066240

7837 066246

7838

7840

001275

.WORD

072140

20%:

MOV

UNITN, T26DSW

$SET UP UNIT NUMBER

MOV

OT26PACKET R4

s SUBROUTINE NEEDS PACKET ADDRESS

78‘1

;““““““...‘...“‘.0.‘0“0.“0“““.“..t‘..t“0““0000000.‘

7842

7844

7843

;WRITE CHARACTERISTICS COMMAND (CALL

7845

TO WRTCHR)

;0008400800880 888880004884408440084000804040008008080008804608804000000

7846

7847 066260

7848 066264
7849 066266
7853 066272
7854 066274
066274
066276
066300
066302
7855 066304
2856 066304

004737

103407
005237
010001

010752

JSR

8CS
INC
MOV
ERRHMRD

002212

104456
001276
005054
012124

26%:

104406

PC.WRTCHR

264
FATFLG
RO,R1
ERRNQO, WRTMSG, SFIMSG

CKLOOP

s ISSUE WRITE CHARACTERISTICS

s8R, IF COMMAND ISSUED Ox
;8UMP COUNT
$ SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC FAILED
TRAP
. WORD
. WORD
. WORD
;LOOP IF SELECTED
T1RAP

7897

;08888848088888880808888800800008008880004888400000008048884080080808

‘71328

; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

7858

CSERMRD
702
WRTMSG
SFIMSG

CsCLP1

7861

;uouuouooooo.“‘ooooooooo‘oooo‘ouoooonouo.ouu“uuuuuo

7862

7863 066306
7864 066312
7865 066316
7866 066322
7867 066324
7868 066326

004737
016501
012702
103407
010004
005237

066332
066334
066336
066340

104456
001277
073604
012136

1874 066342

104406

7872 066332

7873 066342

011104
000002
000200

JSR
MOV
MOV
B8CS
MOV
INC

002212

ERRHRD

304 :

7875
7876

PC.REWIND
TSSR(RS),R1
#SSR,R2
30¢
RO,R4
FATFLG

ERRNO, T26RWN ,PKTSSR

CKLOOP

sCALL TAPE REWIND COMMAND
sGET TSSR
1SET UP EXPECTED TSSR
1BR, IF NO PROBLEM
sPACKET ADDRESS SET WP
;BUMP COUNT
sREWIND NOT ACCEPTED

sLOOP IF SELECTEOD

TRAP
.WORD
. WORD
. WORD

CS$ERHRD
703
T26RWN
PKTSSR

TRAP

CsCLPL

;0600000808 888880488800888080888088080884084408008008848800880008440480200
:

;g;g

sREAD MESSAGE BUFFER EXTENDED STATUS REGISVYER ZERO (XSTO)

7879

:uuuu“ouuuotto.oauoonoonoouo‘uu‘uunouououuuu

7880

701

7881 066344
7882 066350
7883 066352
7884 066356
7885 066360

013701
010102
052702
020102
001406

072150

000002

MOV
MOV
8IS
CMP
8EQ

T268FR+6,R1
R1,R2

#BIT1,R2
R1,R2
40¢

1PICK UP XSTO
$1SET UP EXPECTED
1SET B80T BIT IN EXPECTED
;1DOES EXP = REC'D
1BR, IF EQUAL (O0K)

H4
TSv?
TEST

HARDWARE

REREADS

7886 066362
7890 066366
066366
066370

066372
066374
7891 066376
066376
7892 066400
7893 066404

TESTS

005237

1-8

MACRO M1113

INC

002212

ERRMRD

104456
001300
073315
015564
104406
012703
013737

404 :
001000
003114

14 JUUN 84

FRATFLG

ERRNO, 726B0T,EXPREC

CKLOOP

MOV
MOV

072252

14:17

SEQ 0253

1BUMP COUNT
;TAPE NOT AT BOT

AFTER REWIND
TRAP

704
726807
EXPREC

TRAP
tRECORD SIZE
1STARTING WRITE BUFFER ADDRESS

CsCLP!

sLOOP IF SELECTED

0512.,R3
FREE , T26R8B

CS$ERMRD

. WORD
. WORD
. WORD

(1000020802300 00000080600804800800080008284000¢800406480808000000088080¢0¢

;WRITE DATA,CVC=1,ACK COMMAND
;6008880000088 080000800880808008000082800008800482808408048048480008480040084¢

7916 066470

140005
072250

010337
010465
004737
016501
012702
020102
001406
005237

072256

072250

65%¢:

016340

€14000S5, T26PK3
#T26PK3 R4

sWRITE DATA,CVC=1,ACK COMMAND
;SET UP RA WiTH PACKET ADDRESS

MOV
MOV

R3,T26S2
R4, TSOB(RS)

$SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND

MOV
MOV

TSSR(RS),R1
#SSR,R2

tGET TSSR CONTENTS
$SET UP EXPECTED

75%:

PC,WAITF

sWAIT FOR SSR TO SET

ce
BEQ

R1,R2
754

sARE THEY EQUAL
18R, IF 0K

ERRHRD

ERRNO,WRTERR,PKTSSR

:TSSR INCORRECT AFTER WRITE DATA

INC

002212

104456
001301
005111
012136

MOV
MOV

JSR

000002
000200

104406

7917
7918
7919
7920
7921
7922
7923
7924
7925
7926
7927

FATFLG

CKLOOP

;1BUMP COUNT

TRAP
.WORD
. WORD

;LOOP IF SELECTED

CS$ERHRD
705
WRTERR

.MORD

PKTSSR

TRAP

CsCLP]

;600808080888 008888888008848088080828800800808800088880800000880802000¢

s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
H
168880088808000008000808044804680000000600048080808000880800880088008082

066472
066476
066502
066506
7928 066510
7929 066512
7933 066516

004737
016501
012702

000200

010004
005237

002212

103407

066516
066520
066522
066524

104456
001302
073604
012136

066526

104406

7934 066526
7935
7936

012737
012704

JSR
MOV
MoV
8CS
MOV
INC

011104

ERRHRD

1304:

CKLOOP

PC,REWIND
TSSR(RS) ,R1
#SSR ,R2
1304
RO.R4
FATFLG

ERRNO, T26RWN,PKTSSR

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

;LOOP IF SELECTED

TRAP
.WORD
.WORD
. WORD

CS$ERHRD
706
T26RWN
PKTSSR

TRAP

CsCLP1

;080508888045 0000800808088008800000088008000838800804008000004880000808

TSV?

TEST

HARDWARE TESTS
6: REREADC

1 8

MACRO M1113

79%”
7938
7939
7940
7941

7942

7943
7944
7945
7946
7947
7951

14 UUN 84

14:17

SEQ 0254

1READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xS10)
1688008880808 0080300000800002840008800408808880080800044800800080080009

066530
066534
066536
066542

066546
066552
066552
066554
066556
066560
7952 066562

7953 066564
7954 066566
7955
7956
7957
7958
7959
7960
7961
7962 066574
7963

7965
7966
7967

7969
7970
7971
7975

7976

7977
7978
7979
7980
7981
7982
7983
7984 066654
7985
7986
7987
7988 066670
7989 066672

013701
010102
052702

020102
001406
005237

MOV
MOV
81S
cHe
8EQ
INC
ERRHRD

072150
000002

002212

104456
001303
073315
015564

104406
005303
013737

140%:
003114

#8IT1,Re
R1,R2
1404

FATFLG

ERRNO, T26BOT ,EXPREC

sPICK UP XSTO
$SET UP EXPECTED

;SET BOT BIT IN EXPECTED
;D0ES F~ =« REC'D
sBR. 1F EQUAL (0K)
;18 P COUNT

.APE NOT AT BOT AFTER REWIND
TRAP

;LOOP IF SELECTED

CKLOOP
0€C
MOV

072252

T26BFR+6,R1
R1,R2

FREE, T26R8

CSERHRD

.WORD
.WORD
.WORD

707
T26807
EXPREC

TRAP

CsCLP1

$SET RECORD SIZE TO 511.
:STARTING READ BUFFER ADDRESS

10884586888 88088808828880888808888
8488808500880 0808082858048408000802

:REREAD DATA,CVC=1,ACK,0PPs1 COMMAND
18884008048 888808888888888008020888208808488088208888088042008480080004

012737
012704
010337
010465
004737
016501
012702
020102
001406
005237

161401
072250
072256
000000
016340
000002
100204

072250

1658:

170¢:

104406

MOV
MOV
JSR
MOV
MOV
cre

8EQ
INC
ERRHRD

002212

104456
001304
074662
012136

MOV
MOV

0161401, T26PK3
#T26PK3
R4
R3,71265Z
R4, TSDB(RS)
PC,WAITF
TSSR(RS),R1

#SSR!SC!BIT2,R2
R1.R2
1704
FATFLG

ERRNO, T26TRL ,PKTSSR

sREREAD DATA,CVC=1,ACK,0PP=1 COMMAND

;SET UP R4 WITH PACKET ADDRESS
:SET UP RECORD SIZE IN PACKET

s ISSUE COMMAND

sWAIT FOR SSR TO SET

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

IF 0K

sBUMP COUNT
;:TSSR INCORRECT AFTER REREAD DATA

;LOOP IF SELECTED

CKLOOP

TRAP
.WORD

CS$ERHRD
708

TRAP

CsCLP1

.WORD
. WORD

106888808888 8888888888888488080888028
08880028000 800080040400404800%4

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
10588580888 888888888888808880
4848080040004 088800200004000000800400

013701
010102
052702
020102
001406
005237

072150
010000

002212

MOV
MOV
8IS
cHP
8EQ
INC

T26BFR+6,R1
R1,R2
BIT12,Re

1GET MESSAGE BUFFER
1SET UP EXPECTED
1SET THE RLL BIT IN EXPECTED

FATFLG

iBR, IF EQUAL (ALL IS WELL)
;BUMP COUNT

R1,R2
1804

tARE

THEY EQUAL

T26 TRL
PKTSSR

TSV?

TEST

HARDWARE TESTS
6: REREADS

7993 066676

066676
066700
066702
066704
7994 066706
066706
7995 066710
7996 066714

1 8

MACRO M1113

ERRHRD

104456
001305
074430
015564

104406
012703
013737

8010
8011

8012

8013
8017

8018
8019
8020
8021
8022
8023
8024
8025

14:17

ERRNO, T26LON,EXPREC

SEQ 0255
;THE

RLL

BIT

WAS NOT

SET

IN XxSTO
TRAP

. WORD

.WORD
1804 :
000777

003114

CKLOOP

MOV
MOV

072252

7997
7998
7999

8000
8001
8002
8003

14 UUN 84

0511. .R3
FREE, T26R8

CSERHRD

709

T26LON

. WORD

EXPREC

TRAP

CsCLPL

;SET UP SIZE OF RECORD
:STARTING READ BUFFER ADDRESS

(100480000 R00SR0RACERAES0000R0EREES0E24820000840480008005840840000

{REREAD DATA,CVC=1,ACK COMMAND
;0800080088848 00080808088888A880048884808808288848848008800848004000838

066722
066730
066734
066740
066744
066750
066754
066760
066762
066764
066770
066770
066772
066774
066776
067000
067000

067002
8027 067006
8028 067010
8029 067014
8030 067016
8031 067020
8035 067024
067024
067026
067030
067032
8036 067034
067034
8037 067036
067036
067036
8038 067040

012737
012704
010337
010465
004737
016501
012702
020102
001406
005237

141401

072250
072256
000000
016340
000002
100204

072250

365¢:

MOV
MOV
MOV

MOV

0141401, T26PK3
0T26PK3 R4
R3, 12652
R4, TSOB(RS)

$REREAD DATA,CvC=1,ACK COMMAND
$sSET UP R4 WITH PACKET ADDRESS
1SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND

MOV
MOV
cMP

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

sGET TSSR CONTENTS
;SET UP EXPECTED
sARE THEY EQUAL

JSR

8EQ

INC

002212

ERRHRD

104456
001306

074662
012136

370¢:

104406

PC.WAITF

3704

FATSLG

ERRNQ,T26TRL ,PKTSSR

CKLOOP

sWAIT FOR SSR TO SET

:BR,

IF 0K

;8UMP COUNT

s TSSR INCORRECT AFTER REREAD DATA
TRAP
CS$ERHRD
.MORD
710

;LOOP IF SELECTED

. WORD
. WORD

T26TRL
PKTSSR

TRAP

CsCLP1

;08000044480 804888808008088800088040808888888082808048884000000080000

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XST0)
;6088848088088 080888880824024800084484248400840050008%88008008080d00

013701
010102
052702
020102
001406
005237

MOV
MOV
8IS
cMP
BEQ
INC
ERRHRD

072150
010000

002212

104456

001307
074430
015564

3804 :

104406

T26BFR+«6,R1
R1,R2
#8IT12,R2
R1,R2
3804
FATFLG
ERRNO, T26LON,EXPREC

sGET MESSAGE BUFFER
;SET UP EXPECTED
;SET THE RLL BIT IN EXPECTED
tARE THEY EQUAL
1BR, IF EQUAL (ALL IS WELL)
;BUMP COUNT
;THE RLL BIT WAS NOT SET IN XSTO

CKLOOP
ENDSUB

002212

000017

cHP

CS$ERHRD

TRAP

CsCLP1

TRAP

C$ESUB

.WORD
.WORD
.WORD

$3>>33>>33>>>

END SUBTEST

L1011S:

104403
023727

TRAP

FATFLG,®#15.

711
T26LON
EXPREC

>5>3>3>>>>>>>>>

;IS ERROR COUNT AT 25

14
TSV? - HARDWARE T1FSTMS 1 8
6: REREADS

MACRO M1113

14 UUN 84

14:17

SEQ 0256

TEST

8039 067046
8040 067050
8041 067054

1035402
00473~

B8LO

017272

999
:

8042
8043
8044
8045
8046

IF LESS THAN 25

TO DROP

THE

UNIT

:VERIFIES THAT A REREAD NEXT COMMAND READING A

‘RECORD SHORTER THAN THE SPECIFIED BYTE COUNT CAUSES

;TAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH
T IS VERIFIED THAT THE
sSHORT (RLS) BIT SET.
+RESIDUAL BYTE COUNTER (RBPCR) IN THE MESSAGE BUFFER
;CONTAINS THE PROPER NONZERO VALUE (E.G., THE
;OIFFERENCE BETWEEN THE ORIGINAL BYTE COUNT AND THE
;ACTUAL RECORD LENGTH). RESULTS ARE VERIFIED FOR BOTH
:STATES OF OPP (O AND 1).

8053
8054
8055
8056
8057
8058
8059

067134
8091 067136
067142

:BR,

:TRY

:TEST 6. SUBTEST 12

8049
8050
8051
8052

8089 067130

9993

PC ,CKDROP

8047
8048

8060 067054
067054
067054
8061 067056
8062 067062
8063 067066
8064
8065
8066
8067
8068
8069
8070
8071 067072
8072 067076
8073 067100
8077 067104
8078 067106
067106
067110
067112
067114
8079 067116
8080
8081 067124
8082
8083
8084
8085
8086
8087

JSR

BGNSUB
104402
004737
004737
004737

JSR

075040
075132
075174

JSR
JSR

$22>>3>>>33>>

BEGIN

SUBTEST

76.12:

PC,T26REST

PC,T26RT2
PC,T26RT3

>>5>>>3>33>>

TRAP

:SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET
;SET UP OTHER COMMAND PACKET

csssus

18888088088 888888000880808080080888080000888088888080800888828080800

:ISSUE CONTROLLER "SOFT* INITIALIZE - CARRY BIT CLEAR IF ERROR
;1608808888800 0080880004088080088884848080808804008808000840000480848002

004737
103407
005237
010001

JSR

016064

8CS

INC

002212

MOV
ERRDF

104455

001310
003650
012124
013737

002172

012704

072120

072140

204 :

PC.,SOFINIT
204

FATFLG

RO,R1
ERRNO, SFIERR, SFIMSG

;00 INITIALIZE ON CONTROLLER
;B8R IF INIT WAS 0K
;BUMP COUNT
;CONTENTS OF TSSR REGISTER
;FATAL

ERROR

TSSR WAS NOT 0Ox
TRAP

. WORD
. WORD
.WORD

MOV

UNITN, T2605SW

;SET UP UNIT NUMBER

MOV

0T26PACKET R4

i SUBROUTINE NEEDS PACKET ADDRESS

1088688508800 880083008000800880800800038300%85230880458880080800808004

{WRITE CHARACTERISTICS COMMAND (CALL TQ WRTCHR)
’

1688680808808 8808028800880088808808008888808888038888808¢
004480800000

004737
103407
005237
010001

010752
00c212

JSR
8CS

INC

MOV

PC , WRTCHR
264

FATFLG
RO,R1

;ISSUE WRITE CHARACTERISTICS

;1BR, IF COMMAND ISCUED OK
1BUMP COUNT
;sSAVE CONTENTS OF TSSR

CSEROF
712
SFIERR
SF IMSG

L4
- MARDWARE TESTS | 8
6:

MACRO M11:3

JUUN 84

(4:]17

ERRHRD

ERRNQO,WRTMSG, SFIMSG

SEQ 0257

REREADS

809¢ 067144
067144
067146
067150
067152
8097 067154
067154
8098
8099
8100
g101
8102
8103
8104
8105 067156
8106 067162
8107 067166
8108 067172
8109 067174
8110 067176
8114 067202
067202
067204
067206
067210
8115 067212
067,12
8116
8117
8118
8119
8120
8121
8122
8123 067214
8124 067220
8125 067222
8126 067226
8127 067230
8128 067232
8132 067236
067236
067240
067242
067244
8133 067246
067246
8134 067250
8135 067254
8136
8137
8138
8139
8140
8141
8142
8143 067262

;WRITE CHARACTERISTISC FAILED
TRAP

104456
001311

. WORD
. WORD
. WORD

005054

012124

264
:

CKLOOP

:LOOP IF SELECTED

TRAP

104406

CIERHRD
713%
WRTMSG

SF IMSG

CsCLP1

1000880808088 0020000280048088000080000000000808000008000880200004880000009

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
100600808800 088808028008080800080004000030808808080080000000000000¢0009

004737
016501
012702
103407
010004
005237

JSR
MOV
MOV
8Cs
MOV
INC
ERRHRD

011104
000002
000200

002212

104456
001312
073604
012136

30¢:

104406

PC,REWIND

30¢

;CALL TAPE REWIND COMMAND
;1GET TSSR
$1SET UP EXPECTED TSSR
;BR, IF NO PROBLEM

ERRNO, T26RWN, PKTSSR

;BUMP COUMT
;tREWIND NOT ACCEPTED

TSSR(RS),R1

OSSR ,R2
RO,R4
FATFLG

sPACKET

ADORESS SE'r

;:LOOP IF SELECTED

CxLOOP

TRAP

CSERHRD

558

TSV?

TEST

714
T26RWN
PXTSSR

TRAP

CsCLP1

1008088600848 80888800080888380000808000808080080806484840000002000002
:

{READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
1888000808 8883880800800000058808088808008000000080880028080008008088800¢9

013701
0.0)02
052702
020102
001406
005237

MOV
MOV
8IS
cre
8EQ
INC
ERRHRD

072150

002212

104456
001313
073315
015564
104406
012703
013737

408
:

000400
003114

072252

T26BFR«6,R1
R1,R2

#8IT1.R2

R1,R2
408

FATFLG
ERRNO, 726807, EXPREC

;: TAPE NOT

BOT

;LOOP IF SELECTEOD

CxLOOP
MOV
MOV

PO UP XSTO
:SET UP EXPECTED
;SET BOT BIT IN EXPECTED
;:D0ES EXP = REC'D
18R, IF EQUAL (0x)
:8UMP COUNT

#256. ,R3

FREE, T26R8

AFTER REWIND
TRAP

TRAP

CsCLP1

+RECORD SIZE
1STARTING WRITE BUFFER ADDRESS

{WRITE DATA,CVC=1,ACK COMMAND
;000088008800 0000008008008000800888000080000800080080080000000000000
800

140005

072250

MOV

0140005, T26PK3

715

126807
EXPREC

1008880008888 84808888008088808800008080088008000800080880800800000080000

012737

C$ERMRD

. wORD
. WORD
. WORD

{WRITE DATA,CVC=1,ACK COMMAND

HARDWAR:

Tqv?

TEST

REREADC

8144 067270
8145 067274
8146 067274
8147 067300
8148 067304
8149 067310
8150 067314
8151 067320
8152 067322
8153 067324
8157 067330
067330
067332
067334
067336
8158 067340
067340
8159 067342
8160

1 300

012704

072¢50

010337
010465
004737
016501
012702

072256
000000
016340
000002
000200

020102
001406
005237

8178
8179
8180
818)1
8182
8183
8184
8185
81%6
8187
8188
8189
8190
8194

JUN 84

14:]’

MOV

R4
#T26PX3

;SET UP R4 WITH PACKET ADORESS

R3,726S2

1SET UP RECORD SIZE
: ISSUE COMMAND

MOV

R4, TSDB(RS)

MOV
MOV

TSSR(RS),R1
OSSR, R2

JSR

ce
BEQ

INC
ERRHRD

PC.WAITF

R1,R2
754

FATFLG
ERRNO,WRTERR,PKTSSR

SEQ 0258

IN PACKET

tWAIT FOR SSR TO SET

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

18R, IF Ox
;BUMP COUNT
;TSSR INCORRECTY AFTER WRITE DATA

104456

001314
005111
012136

75%:

104406

;LOOP IF SELECTED

CxLOOP

TRAP
. WOROD
. WORD
. WORD

PKTSSR

TRAP

CsCLP!

1204

CSERMRC
716

WRTERR

: ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
.

1000800806000 8080000000008000000000000800000008088000008088000000000800

067342
067346
067352

067356
067360
067362
067366
06 7366

067370
067372

8177

65%:

00221¢

8161
8162

8163
8164
8165
8166
8167
8168
8169
8170
8171
8172
8176

MACRO M1113

067374
067376
067376

004737
016501
012702
1034C?
010004
005237

JSR
MoV
MOV
8CS
MOV
INC
ERRHRD

011104
000002
000200

002212

PC.REWIND
TSSR(RS),R1
OSSR, R2

1304

RO, R4
FATFLG
ERRND, T26RWN, PXTSSR

104456

sCALL TAPE REWIND COMMAND
sGET TSSR
;SET UP EXPECTED TSSR
;BR, IF NO PROBLEM
;PACKET ADORESS SET WP
;BUMP COUNT
;REWMIND NOT ACCEPTED

TRAP

. WORD

001315
073604
012136

. WORD

130s:

;LOOP IF SELECTED

CxL00P

104406

Cstwrel0
717

T26RWN

. WORD

PHTSSR

TRAP

CsCLPl

;0000000000000 000800000000008000%000080000000080000000000000008000000

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XS'O)
;1000800000000 0000000000000080000880000000000000000000000000000000000

06 7400
067404
06 7406
067412

013701
010102

067416
067422
067422

005237

0b7414

067424

067426
067430
8195 067432

072150

MmOV

[+ APV

INC

032702
020102
001406

‘0840
ou. 516
073815
015564

T260FR«6.R)

MOV
8IS
e
8€Q

R1,.R2
0BIT1
. R2
R1,R2
135s

ERAMRD

ERAND. 126807 .EXPREC

FATFLG

;PICK UP XSTO
;SET UP EXPECTED
;SEY BOY BIT IN EXPECTED
;:D0ES EXP « REC O
:BR, IF EQUAL (O
;8P COUNT
;TAPE

NOT

AT 80T

AFTER REWIND
TRAP

WORO
. WORO
wOR0O

1354

CxL 00+

;LOOP IF SELECTED

CIERRD
718
126807

€ XPREC

VE&'(

TSv”?

HARDUARE

TEST

6 REREADS

819
8197
8198
8199
8200
8201
8202
8203
8204
8205
8206
8207
8208
8209
8210
8211
8212

067432

067434

067440

TMACRC TM1113

104406

012703
013737

JUN 84

SEQG 02%9
TRAP

001000

003114

a0}
MOV

072252

#512. .R3
FREE
. TcERB

;RECORD SIZE
;STARTING

-y

. I

)

| AC BUFFER ADDRE

1000000800000 000000000000000000008000000000000000000000000000000000

:REPEAD NEXT ACK,CVCes1,0PP:1
067446

067454

067460
067464
067470
067474
06 7500
067504
e213 06 7506
8214 067510
8218 067514
067514
067516
067520
067522
067524
067524

012737
012704
010337
010465
004737
916501
012702
020102
001406
005237

161401
072250
072256
000000
016340
000002
100204

072250

165¢-

01"
2
2 01
MOV
OV
JSR
MOV
MOV
cHP

BEQ
INC

002212

ERRHRD

104456
001317

0161401, T26PK3
0T26PX3
R4

R3, 72652

R4, TSOB(RS)
PC.WAITF
TSSR(R
) ,R1
S

OSSR!SCBIT2
. R2

R1,.R2
170

FATFLG

O,
T26 TRL ,PXTSSR
ERRN

.REREAD NEXT ACK ,CVC=]1,0PP=]
:SET UP R4 WITH PACKET ADDRESS
;SET UP RECORD SIZE IN PACKE?Y
; ISSUE COrAND

;WAIT FOR SSR TQ SETY
;GET TSSR CONTENTS
;SET UP EXPECTED

sARE

THEY

EQUAL

:BR, IF Ox
;BUMP COUNT
;TSSR INCORRECT AFTER READ DATA
TRAP

074662
012136

170s:

104406

CKLOOP

;LOOP IF SELECTED

CSERRD
719

. WORD
. WORD
. WORD

T26TRL
PKTSSR

TRAP

CsCLPl

180 80 08 80 8008000800808880880808048080080228080880080800800002080200089

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
L)

1880000088808 0888088800( 8888008888800 8008800000808088080888800000800004088

8237
8238
8239
8240
8241
8245

8246

067526
067532
067534
067540
067542
067544
06755¢C
067550
067552
067554
067556
067560
067560
067562
067566
067572
067574
067600
067600
067602
067604
067606
067610

013701

072150

052702
020102

040000

005237

002212

010102

MOV
MOV
8IS
cHe
8EQ
INC
ERRHRD

001406

104456

020102

180%:
072146
000400

180¢

FATFLG

ERRNO,
T26L 0P ,EXPREC

CKLOOP
MOV
MOV

cMP
B8EQ
ERRHRD

001405

104456
001320
074574
015564

#BIT14 ,R2

R1,R2

;GET MESSAGE BUFFER
;SET UP EXPECTED
;SET THE RLS BIT IN ExPECTED
;ARE THEY EQUAL
;BR, IF EQUAL (ALL IS JELL)
;8UMP COUNT
;THE RLL BIT WAS NOT SET IN XSTO
TRAP
. WORD

001320
074512
015564

104406
013701
012702

T26BFR+6
,R1
R1,R2

190¢:

CKLOOP

T26BFR+4
,R1
0256. ,R2
R1,R2

190¢

ERRNO, T26PBP ,EXPREC

720
[26L0P

. WORD
. WORD

EXPREC

TRAP

CsCLP1

TRAP

C$ERHRD

iPICK UP RESIDUAL BYTE COUNTER
: THIS SHOWD BE THE DIFFERENCE
;IS THE DIFFERENCE CORRECT
;:BR, IF CORRECT
:RBPCR NOT CORRECT

;LOOP IF SEILECTED

CSERHRD

.WORD
.WORD
. WORD

720
T26PBP

EXPREC

TSV?
TEST

HARDMARE

6: RCREADS

067610
8247 067612
8248 067616

8249
8250
8251
8252
8253
8254

8255
8256
8257
8258
8259
8260

TESTS
104406

012703
013737

1 8

0)1000
0J)3114

MACRO M1113

14- JUN-84

MOV
MOV

072252

14:17

#512.,R3
FREE, T26RB

SEQ 0260
TRAP

sRECORD SIZE
s1STARTING READ BUFFER ADDRESS

CsCLP]

1008800000000 0004040808000080800000800008000000000008000000000000000

tREREAD NEXT ,ACK,CVC=1,0PP<0
1006808400808 80000420088080048800000800085006000800080000080900080080000¢0

067624
067632

067636
067642
067646
8261 067652
8262 067656
8263 067662

8264 067664
8265 06 7666
8269 067672
067672
067674
067676
067700
8270 067702
067702
8271

012737
012704
010337
010455
004737
016501
012702
020102
001406
005237

141401
072250
072256
000000
016340
000002
100204

MOV
MOV
MOV
MOV
JSR
MOV
MOV
ce
8tQ
INC
ERRHRD

072250

002212

104456

0141401, T26PK3
0T26PX
3 R4
R3,T26S2
R4, TSOB(RS)

PC.WAITF

TSSR(RS),R1

OSSR!SC!BIT2,R2

R1,R2
2704

FATFLG

. PKTSSR
NO,
T26 TRL
ERR

;1REREAD NEXT ,ACK,CVC=1,0PPs0
1SET UP R& WITH PACKET ADORESS

$SET UP RECORD SIZE IN PACKET
1 ISSUE COMMAND
sWAIT FOR SSR TO SET
$1GET TSSR CONTENTS
1SET UP EXPECTED

sARE THEY EQUAL

t1BR, IF Ox
1BUMP COUNT
1TSSR INCORRECT AFTER READ DATA
TRAP

CIERRD

.MORD

PXTSSR

TRAP

CsCLP]

. WORD
. WORD

001321
074662
012136

270¢:

104406

8272

;LOOP IF SELECTED

CxLOoP

721
126 TRL

100880008000 880008008008000000808000080080008800000000088¢000000800080002

8273

8275
827¢

1000608008800 08000000880000808008004800000080000800000000000000080000000

tREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XST0)

8274

8277

8278
8279
8280
8281
8282
8283

8287

8288

8289
8291
8296

8297

067704
067710
067712
067716
067720
067722
067726
067726
067730
067732
067734
067736
067736
067740
067744
067750
067752
067756
067756
067760
067762
067764
067766

013701
010102
052702
020102
001406
005237

072150

002212

104456
001322
074512
015564
104406
013701
012702
020102
001405

MOV
MOV
8IS
cre
8EQ
INC
ERRHRD

280¢:

104456

001322
074574
015564

2904 :

#B8IT14,R2
R1,R2
2804

FATFLG

ERRNO, T26L
0P ,EXPREC

CKLOOP
MOV
MOV
cHe
B8EQ
ERRHRO

072146
000400

R1,R2

CKLOOP

T26BFR+4
,R]

0256. ,R2
R1,R2

2904
ERRNO, T26PBP ,EXPREC

1GET MESSAGE BUFFER
1SET UP EXPECTED
1SET THE RLS BIT IN EXPECTED
:ARE THEY EQUAL
B8R, IF EQUAL (ALL IS WELL)
18UMP COUNT
;THE RLL BIT WAS NOT SET IN XSTO
TRAP
CSERMRD
.WORD
LWORD
.MORD

722
T26L0P
EXPREC

TRAP
COUNTER
BYTE
1PICK UP RESIDUAL
; THIS SHOLD BE THE DIFFERENCE
+IS THE DIFFERENCE CORRECY
18R, IF CORRECT

CsCLPL

1RBPCR NOT CORRECT

1LOOP IF SELECTED

TRAP

.WORD
.WORD
.WORD

CSERHRD
722
T26PBP
EXPREC

TSV?

TEST

HARDWARE

REREADS

TES'S 1 8

067766

104406

8299 067772
8300 070000

023727
103402

8298 067770
06777
067770

8301 070002
8302 070006

104403

004737

MACRO M1113

14 UUN 84 14:]17
TRAP

ENDSUB

002212

000017

017272

cHp
8LQ
JSR

9994:

8303

8304
8305

I
:

sssgg

s TEST

SEQ 026])

FATFLG, #15.
9994
PC,CKDROP

SUBTEST

CesCLPI

$22>3535>>>5>> END SUBTEST >>555333333>»
L10116:
TRAP
CS$ESLB

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

8308
8309
8310
8311

iVERIFIES THAT A DATA BUFFER ADDRESS REFERENCING
sNONEXISTENT MEMORY CAUSES RECOVERABLE ERROR
sTERMINATION (TC=4 OR S) WITH NXM=1 AND THAT THE TAPE
$1IS W TYIMATELY POSITIONED PROPERLY. ALL COMBINATIONS

:ifi

;10F REREAD PREVIOUS/NEXT AND OPP=0/1 ARE TESTED.
:-

8314

8315 070006

070006
8316
8317
8318
8319
8320
8321
ggg

070006

070010
070014
070016
070022
070026
070032
070036

BGNSUB

104402

005737
001002
000137
004737
005037
004737
004737

$2>>335>5>>>>> BEGIN SUBTEST

76.13:
003126

071020
075040
072276
075132
075174

10¢:

TSt
BNE
JP
JSR
CLR
JSR
JSR

NXMFLG
10¢
2004
PC.T26REST
T26CNT
PC,T26RT2
PC.T26RT3

TRAP

s00 WE MAVE IT?
1BR, IF
ENOUGH
s SKIP THIS TESTY IF NOT
1SET COMMAND PACKET
1CLEAR TAPE RECORD COUNTER
$sSET UP OTHER COMMAND PACKET
$1SET UP OTHER COMMAND PACKET

gssgg

19008006008800000008088000000000000800800000000000000000000600000000

:gg‘;

sISSUE CONTROLLER ~SOFT“ INITIALIZE

:3353

06060046000 0008000008000880006000000000068000000000000000080008080080008

8330
8331
8332
8336
8337

070042z
070046
070050
070054
070056

O0C4737
103407
005237
010001

016064
002212

070056
070060
070062
070064

:g;:g 070066

104455
001323
003650
0312124
013737

002172

333:? 070074

012704

072120

333:.;3

JSR
B8CS
INC
MOV
ERROF

PC.SOFINIT
204
FATFLG
RO,R1
ERRNO, SFIERR, SF IMSG

100 INITIALIZE ON CONTROLLER
18R IF INIT WAS Ox
;8UMP COUNT
sCONTENTS OF TSSR REGISTER
tFATAL ERROR TSSR WAS NOT 0Ox

MOV

UNITN, T26DSW

;SET UP UNIT NUMBER

MOV

#T26PACKET R4

t SUBROUTINE NEEDS PACKET ADDRESS

TRAP
. WORD
. WORD
. WORD

tWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

833:6

8348 070100

20s:

106800800000 0000000800008004808000000800800000808080806000008800080080¢

004737

010752

JSR

PC,WRTCHR

csesuB

- CARRY BIT CLEAR IF ERROR

160000006000 0000000464080000808800860080080400000000800808080008008808000

:;g
8347

072140

>>533533355>

t1ISSUE WRITE CHARACTERISTICS

CSERDF
72%
SF IERR
SF IMSG

HARDWARE TESTS
6: REREADS

8349
8350
8354
8355

070104
070106
070112
070114
070114
070116
070120
070122
8356 070124
070124
8357
8358

8359
8360
8361
8362
8363
8364 070126
8365 070132
070136
8367 070140
8368 070144
8369 070146
8373 070152
0701352
070154
070156
070160
070162
070162

103407

00523”
010001

MACRO M1113

14 UUN 84

8Cs
INC
MOV
ERRHRD

002212

104456
0013¢4
005054

14:17

OAF

264
FATFLG

RO,R1
ERRNO, WRTMSG, SF IMSG

SEQ 026¢

1BR, IF COMMAND ISSUED Ow
18UMP COUNT
sSAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED
TRAP

012124

268 :

104406

CxXL00P

1LOOP IF SELECTED

.WORD
.WORD
.WORD

TRAP

CSERMRD

724
WRTMSG
SFIMSG

CsCLP)

100000000080 88000000000000088000000000080820004808000000800000088006¢

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
1080800800000 0800880080003800902800080808800000080000000008000090000080000

004737
004737
103411
016501
010004
005237

021232
011104

JSR
JSR

000002

8Cs
MOV
MOV

30¢
TSSR(RS),R1
RO,.R4

EPRHRD

ERRNO, T26RWN, PKTSSR

INC

002212

104456
001325
073604
012136

304%:

104406

PC, INVERT
PC,REWIND

FATFLG

CxXLOOP

sINVERT THE EXTENDED FEATURES SWITCM
tCALL TAPE REWIND COMMAND
1BR, IF NO PROBLEM
1GET TSSR
t1PACKET ADDRESS SET WP
;BUMP COUNT
sREWIND NOT ACCEPTED
TRAP

;LOOP IF SELECTED

CSERRD

558

15¢7

TEST

[

725
T26RWN
PXTSSR

TRAP

CsCLP)

1006008888200 0800080088080800080800000000¢00¢00088000804008008000800000¢

iREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
‘

1066008888088 800880000080808000002800800000000880600800008280800008000¢

070164
070170
070172
070176
070200
070202
070206
070206
070210
070212
070214
8392 070216
070216
8393 070220
8394
8395
8396
8397
8398
8399

013701
010102
052702
020102
001406
005237

072150

MOV
MOV
8IS
ce

BEQ
INC
ERRHRN

002212

104456
001326
073315
015564
104406
013737

T26BFR+6,R1
R1,R2
#8IT1,R2

R1,R2

404
FATFLG
ERRNO, T2680T ,EXPREC

sPICK UP XSTO
1SET UP EXPECTED
:SET B80T BIT IN EXPECTED
;1DOES EXP = REC'D
s8R, IF EQUAL ()
;BUMP COUNT
s TAPE NOT AT B80T AFTER REWIND
TRAP

CSERMRD

. WOR0D

EXPREC

TRAP

CsCLPI

. WORD
. WORD

404 :
003114

CXLOOP
MOV

072252

1LOOP IF SELECTED
FREE, T26R8

1STARTING WRITE BUFFER ADORESS

108008806080 0800800088080000080088800008000000008808000800080¢000000000¢

:HIITE DATA,CVC=1,ACX COMMAND
)

1006008088000 0008000000080008008058000808040008088008886000080000000000

726
726807

TSV?
TEST

- HARDWARE TESTS 1-8
6: REREADS

8400
8401
8402
8403
8404
8405
8406
8407
8408
8409
8410
8411
8412
8416

8417
8418
8421

070226

070234

070240
070246
070254
070262
070266
070272
070276
070302
070304
070306
070312
070312
070314
070316
070320
070322
070322
070324
070332
070334
070336
070336
070342
070342

012737
012704
012737
013777
062737
010465
004737
016501
012702
020102

140005
072250

MACRO M1113

072250

072256
112640
072276

65¢:

005037

UUN

c00013

sWRITE DATA,CVCe=1,ACK COMMAND
$1SET UP R4 WITH PACKET ADDRESS
$SET UP RECORD SIZE IN PACKET
t1MOVE TAPE RECORD NUMBER TO BUFFER
sNUMBER READY FOR NEXT RECORD
s ISSUE COMMAND
sWAIT FOR SSR TO SET

MOV
cHe

OSSR, R2
R1,R2

sSET UP EXPECTED
sARE THEY EQUAL

INC

FATFLG

003132
072276

TSSR(RS) ,R1

$BR,

ERRNO,WRTERR,PKTSSR

s TSSR INCORRECT AFTER WRITE DATA

#11.,T26CNT

B8EQ
B8R

1204
654

CLR

NXMHI

CLR

T26CNT

125

IF OK

;BUMP COUNT

TRAP
. WORD
. WORD

sLOOP IF S&' “~TED

1204

sGET TSSR CONTENTS

754

CKXLOOP

cHe

072276

SEQ 0263

€140005, T126PK3
0T26PK3 R4
0256.,T2652
T26CNT ,8FREE
01, T26CNT
R4, TSDB(RS)
PC,.UWAITF

ERRHRD

75%:

14:17

MOV
MOV
MOV
MOV
ADD
MOV
JSR

BEQ

104456
001327
005111
012136

005037

001406
005237

104406
022737
001401
000741

sCHEC!

CS$ERMRD
727
WRTERR

. WORD

PKTSSR

TRAP

CsCLP!

.t OF RECORDS WRITTEN

iBR, 1r AT END OF WRITE SEQUENCE
;WRITE MORE RECORDS
;SET TO 16 BIT ADORESS

1SET RECORD COUNTER BACK TO ZERO

180008800 0808800800880800000000000008000004080046000846004000088480800808

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
;068088008 0888006000000400600080008080A0000600000800080808000808000480

070346
070352
070354
070360
070362
070366
070366
070.70
070372
070374
8441 070376
070376
8442
8443

8444
8445
8446
8447
8448
8449 070400
070404
8451 070406
8452 070412

004737
103411
016501
010004
005237

JSR
8Cs
MOV
MOV
INC

011104

002212

ERRHRD

104456

PC,.REWIND
1304
TSSR(RS),R1
RO,R4
FATFLG

ERRNO, T26RWN,PKTSSR

1CALL TAPE REWIND COMMAND
18R, IF NO PROBLEM
;GET TSSR
;tPACKET ADDRESS SET uP
;BUMP COUNT
sREWIND NOT ACCEPTED

001330
073604

012136

1304:

104406

CxLOOP

;LOOP IF SELECTED

TRAP

728
T26RWN
OXTSSR

TRAP

CsCLPL

188088804038 8080480800¢0808880808080000480808800000080808804080800000

1READ MESSAGE BUFFER EXTENDEDO STATUS REGISTER ZERO (XSTO)
10880858080 000884830800888408808088888880808888800000¢600000800080820080¢

013701
010102
052702
020102

072150
000002

MOV
MOV

T26BFR+6,R1
R1,R2

cHe

R1,R2

8IS

#BIT1,.R2

sPICK UP XSTO

1SET UP EXPECTED
1SET BOT BIT IN EXPECTED
1D0ES EXP = REC'D

CSERHRD

. WORD
. WORD
.WORD

TSV7? - WARDWARE TESTS 1 8
TEST
6: REREADS
8453 070414
8454 070416
8458 070422
070422
070424
070426
070430
8459 070432
070432
8460 070434
8461 070440
8462 070446
8463
8464
8465

001406

005237

MACRO M1113

8tQ

INC

002212

ERRHRD

104456
001331
073315
015564
104406
012703
013737
013737

14-JUN 84

140%:
72266

003130
003132

072252
072254

150¢:

)

14:17

1404

18R,

ERRNO, T26B0T ,EXPREC

s TAPE NOT

FATFLG

CKLOOP

MOV
MOV

MOV

SEQ 264

IF EQUAL

1BUMP COUNT

(0w,

AT BOT

AFTER REWIND
TRAP

;LOOP IF SELECTED

#T26RN,R3

NXMLO, T26R8

NXMHI, T26R8 .2

CSERHROD

. WORD
. WORD
. WORD

729
126807
EXPREC

TRAP

CsCLP1

;COMMAND BUFFER ADDRESS
1STARTING READ BUFFER ADDRESS
3SET UP MIGH ORDER ADDRESS BITS

10800880200 04888003880408883080004008000200040288480000000088088004000¢34

;:REREAD DATA,IE,ACK, OPP COMMAND
1888080050008 8088580080002840808800804008848080808008008008820460880084¢

8469

070454
070460
070464
070472
070476

070502
070506
070512
070514
070516
070522
0705c4
070530
070532
070532
070536

070544
070546
070552
070552
070554
070556
070560
070562
070562

011337
012704
012737
010465
004737
016501
012702
020102
001422
031327
001403
030127
001014
005237
023727
001276
005237

072250
072250
000400

072256

165%:

MOV
MOV
MOV
MOV

JSR

016340
000002
104210

MOV
MOV
cre
B8€Q

001000

817
BEQ
8I7

168$:

003132
003132

BNE

INC
(o,
BNE
INC

002212

ERRHRD

104456
001332
072525
012136

170%:

104406

(R3),T26PK3
0T26PK3 R4
9256.,72652
R4, TSOB(RS)

sREREAD DATA,IE ,ACK, OPP COMMAND
sSET UP R4 WITH PACKET ADDRESS
1SET UP RECORD SIZE IN PACKET
; ISSUE COMMAND

TSSR(RS),R1
S#SSRINXM!SC!B8ITI
R
R1,.R2
1704

1GET TSSR CONTENTS
1SET UP EXPECTED
;ARE THEY EQUAL
18R, IF 0K
;CHECK FOR A READ COMMAND

PC.WAITF

(R3),88179
1684
R1,081T1

1704

NXMH]I
NXMH] , 04
1254

FATFLG

ERRNO, T26RRF ,PKTSSR

CxLOOP

sWAIT FOR SSR TO SET

1BR, IF IT WAS A READ COMMAND
sWAS BITY SET
1BR, IF REREAD AND BIT}i SET

1BUMP TO NEXT ADDRESS RANGE
sCHECK FOR OVERFLOM
:BR, IF MORE BITS T0 GO
;BUMP COUNT
;TSSR INCORRECT AFTER REREAD DATA
TRAP

sLOOP IF SELECTED

730
T26RRF
PKTSSR

TRAP

CsCLP1

(0688880088888 0880080048000800808880808000858088080800080000088880400

:READ DATA, ACK,CVC=1 COMMAND
1608888880803 48088080000800880848808488838000804005800800000088008880

070564
070572
070600
070604
070612
070616

012737
012737
005037
013737

010465
004737

140001

000400
072254
003114
000000
016340

072250
072256

MOV
MOV

#140001, T26PK3
9256.,12652

072252

MOV
MOV

FREE, T26R8
R4, TSDB(RS)

CLR

JSR

T26RB+2

PC,WAITF

sREAD DATA,

ACK,CVC=1 COMMAND

$SET SIZE INTO PACKET
tCLEAR OUT HIGH ADDRESS BITS
1GIVE READ A GOOD BUFFER
1 ISSUE READ DATA COMMAND
1 WAIT FOR SSR

CSERHRD

. WORD
. WORD
.WORD

(.0
TSJV7

TEST

- HARDWARE YESTS 1 8
6: REREADS

8506
8507
8508
8509
8510
8514

070622
070626
070632

070634
070636

070642
070642
070644
07C6546
070650
8515 070652
070652
8516 070654
8517 070660
8518 070664
8519 070666
8520 070670
8524 070674
070674
070676
070700
070702
8525 070704
070704
8526
8527
8528

016501
012702
020102
001406
005237

MOV

000002

MOV

002212

8EQ
INC
ERRHRD

cHe

14:17

SEQ 0265

TSSR(RS),R1
OSSR ,R2
R1,R2

1SET UP EXPECTED
+1IS THE TSSR OK

FATFLG

sBUMP COUNT

180¢

O,
RDERR ,PKTSSR
ERRN

1PICK UP

$BR,

THE

TSSR

IF TSSR Ok (GOOD)

$READ DATA COMMAND FAILED

TRAP

104456

001333
005204
012136

104406
017701
012702
020102
001406
005237

180$:

112234

000001

002212

CKLOOP

;LOOP IF SELECTED

MOV
MOV
cre
8eQ
INC
ERRHRD

sFIRST

SFREE.R1

e1,.R2

R1,R2

1904

FATFLG

ERRNO, T26WNG , EXPREC

TRAP
WORD FRCM READ BUFFER

190%:

C4ERMRD

731
ROERR
PKTSSR

CsCLP]

:SET UP EXPECTED
+ IS TAPE POSITION CORRECT
tKEEP GOING POSITION OX
;8UMP COUNT
s TAPE POSITION INCORRECT

104456

001334
072306
015564

.WORD
. WORD
. WORD

CKLOOP

104406

TRAP

CSERMRD
732
T26WNG

. WORD
. WORD
. WORD

EXPREC

TRAP

CsCLP1

10088858608 88080808800800888880004880¢50820000808080808000008000880008

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
;0080880688888 008888008884800882008030888480880888008004804000000800080000

070706
070712
070714
070720
070722
070726
070726
070730
070732
070734
8542 070736
070736
8543
8544
8545

8547
8548
8549
8550
8551
8552
8553
8554
8555
8559

14 UUN 84

000200

8530

8531
8532
&533
8534
8535
8536
8537
8541

MACRO M1113

004737
103411
016501
010004
005237

JSR
8Cs
MOV
MOV
INC
ERRHRD

011104
000002
002212

104456

001335
073604
012136

194%:

104406

PC.REWIND
1944
TSSR(RS),R1
RO,R4
FATFLG

ERRNO, T26RWN, PKTSSR

sCALL TAPE REWIND COMMAND
;BR, IF NO PROBLEM
;GET TSSR

sPACKET ADDRESS SET WP

;8UMP COUNT
;REWIND NOT ACCEPTED

:LOOP IF SELECTED

CKLOOP

TRAP

. WORD
.WORD
. WORD

T26RWN
PXTSSR

TRAP

CsCLP1

1080880083808 8808888885048800888008888088880888800043885888008000800
:

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
14

1680088880588 88850888088888888888888088808080808808800080800800880000

070740
070744
070746
070752
070754
070756
070762

013701
010102
052702
020102
001406

005237

072150
000002

002212

MOV
MOV
8IS
cHP
8EQ
INC
ERRHRD

T26BFR+6,R1
R1,R2

MB8IT1,.R2
R1,R2
1964

FATFLG

ERRNO, T26B0T, EXPREC

tPICK UP XSTO
1SET UP EXPECTED
+SET BOT BIT IN EXPECTED
+DOES EXP = REC'D
1BR, IF EQUAL (0K)
1BUMP COUNT

CS$ERMRD

i TAPE NOT AT BOT AFTER REWIND

733

TSV7 - HARDWARE TESTS 1-8

TEST

6: REREADS

070762
070764
070766
070770

8560 070772
070772
8561 070774
8562

MACRO M1113

14 UUN 84 14:17

SEQ 0266

TRAP

104456
001336
073315
015564

1964 :

104406

010302

CXLOOP

MOV

8563

;LOOP IF SELECTED

R3,R2

734
T26807
EXPREC

TRAP

CsCLPL

sSAVE R3 FOR A MOMENT

100000008000 08008808040400408000800008840804040000040000808800800080200

8564
8565

:
1 ISSUE SPACE RECORDS COMMANO

8567
8568

H
;0060006860408 00600000048088200800880808800880008380000800088088080000¢

VALUE IN R3 SETS NMAMBER OF RECORDS
:1BIT 1S SETS DIRECTION - O=FORWARD
1=REVERSE

8566
8569

8570 070776
8571 071002
8572 071006
8573 071010
8574 071012
857S 071016
8576 071020

012703
004737
010203
005723
021327
001210

000001
010556
1777177
200%

8577 071020

071020
071020

8578 071022
8579 071030
8580 071032
8581 071036

104403

023727
103402
004737

002212
017272

8582

8583
8584

000017
999:

MOV
JSR
MOV
TST
cHP
BNE

41,R3
PC,SPACE
R2,R3
(R3).
(R3), 0177777
150¢

ENDSUB
cHP
8LO
JSR

;1SPACE ONE RECORD
sCALL SPACE ROUTINE
sRESTORE R3
1BUMP COUNTER
;END OF COMMAND BUFFER YET
sMORE COMMANDS KEEP GOING
$2>32>3>>3>>> END SUBTEST >>53>33>3>>>>
L10117:

FATFLG, @15.
999¢
PC ,CKDROP

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

;TEST 6, SUBTEST 14

8587
8588
8589
8590

sVERIFIES THAT REREAD PREVIOUS WITH OPP=0 (SPACE
;REVERSE, READ FORWARD) AND REREAD PREVIOUS WITH OPP=]
s (READ REVERSE, SPACE FORWARD) ISSUED WHEN THE TAPE
;POSITIONED AT BOT CAUSE FUNCTION REJECT TERMINATION

8593

gggé

tWITH THE NONEXECUTABLE FUNCTION (NEF) ERROR BIT SET.

8594
8595
8596 071036
071036

071036

8597 071040

8598 071042
8599 071046
ggg 071052

:
: -

104402

005003

004737
004737
004737

075040
075132
075174

B8GNSUB

CLR

JSR
JSR
JSR

$3>>>3>55>53>>> BEGIN SUBTEST
T6.14;

PC,T26REST
PC,T26RT2
PC.T26RT3

;CLEAR TEST COUNTER

TRAP

sSET COMMAND PACKET
1SET UP OTHER COMMAND PACKET
;SET UP OTHER COMMAND PACKET

8602
8603

§6606000000000000808000048888448808880488840800040800804880480008¢008000
;

8606

§006N06088080808004848088848000808800008808480004008088400400048088004808

8607

CS$ESUB

HE
H

gggz

g“és

CS$ERMHRD

.WORD
.WORD
.WORD

;ISSUE CONTROLLER “SOFT* INITIALIZE - CARRY BIT CLEAR IF ERROR

>>3>5>33>>>3>>>)>

csB8suUB

TSv?
TEST

HARDWARE

TESTS

071056
071062
071064
071070
071072

004737
103407
005237
010001

MACRO M1113

14 UUN 84

14:17

JSR
8CS
INC

204

o
SEQ 0267

6: REREADS

8608
8609
8610
8614
8615

071072

071074
071076
071100
8616 071102
8617
8618 071110
8619

016064

002212

MOV

ERRDF

PC,SOF INIT

FATFLG

RO,R1
ERRNO,
SF IERR, SF IMSG

ER
;00 INITIALIZE ON CONTROLL
:BR IF INITM WAS Ow
1BUMP COUN
;CONTENTS Or TSSR REGISTER
sFATAL

104455
001337
003650

012124
013737

002172

012704

072120

072140

20%:

FRROR

TSSR WAS NOT OK
TRAP

. WORD
. WORD
.WORD

MOV

UNITN, T26DSW

;SET UP UNIT NUMBER

MOV

OT26PACKET
,R4

1 SUBROUTINE NEEDS PACKET ADDRESS

CSERDF
735

SFIERR
SF IMSG

;0808808208888 8848080844408880ASREE0
0088400800880 804808804008008008

;URITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
1082880080000 8280008204404

071114
071120
071122
071126
8633 071130
071130
071132
071134
071136
071140
071140

004737
103407
005237
010001

JSR
8CS
INC

010752
002212

MOV

ERRHRD

104456
001340
005054
012124

088 S0 8E000000280000008004008080808802

PC,WRTCHR

F+1

FATFLG
RO,R1

ERRNO,WRTMSG, SFIMSG

1ISSUE WRITE CHARACTERISTICS
:8R, IF COMMAND ISSUED Ox
18UMP COUNT
:SAVE CONTENTS OF TSSR
{WRITE CHARACTERISTISC FAILED
TRAP

. WORD

25%:

104406

;:LOOP IF SELECTED

CKLOOP

CS$ERHRD
736

.WORD

WRTMSG
SF IMSG

TRAP

CsCLP1

(6008888888888 808888808880 8402000080800 0080088880800C00880840000282088

;ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE
1880880888888 88088888888888 8888808420850 00000808042¢04800008000004022

071142
071146
071152
071156
071160
071162
071166
071166
071170
071172
071174
8652 071176
071176
8653
8654
8655

8655
8657
8658
8659

004737
016501
012702
103407
010004
005237

011104

264
:

000200
002212

ERRHRD

104456

001341
073604
012136

104406

JSR
MOV
MOV
8CS
MOV
INC

30%:

CKLOOP

PC,REWIND

TSSR(RS),R1

OSSR, R2

30¢

RO,.Ra
FATFLG

ERRNO, T26RWN,PKTSSR

;CALL TAPE REWIND COMMAND
;GET TSSR
1SET UP EXPECTED TSSR
1BR, IF NO PROBLEM
{PACKET ADDRESS SET uP
;BUMP COUNT
;REWIND NOT ACCEPTED

TRAP

:LOOP IF SELECTED

CS$ERHRD

. WORD
.WORD
.WORD

737
T26RWN
PKTSSR

TRAP

CsCLP1

108808800080 0808888804888088088828888880083800800008000040448800000002
:

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
§08000068688808888888880088080880080040080008000088004045000240000000s

TSV7?

TEST

HARDWARE TESTS
6: REREADS

8660
8661
8662
8663
8664
8665
8669

8670
8671
8672
8673

8674
8675
8676
8677

071200
071204
071206
071212
071214
071216
071222
071222
071224
071226
071230
071232
071232
071234
071242
071250
071252

0°:701
010102
052702
020102
001406
005237

1 8

MACRO M1113

072150

002212

40¢:

000400
003114

14:17

MOV
MOV

R1,R2

8IS
cMP
8€EQ
INC
ERRHRD

000002

104456
001342
073315
015564

104406
012737
013737
005703
001404

14 UUN 84

072256
072252

T26BFR.6,R]

08IT1,R2

R1,R2

404
FATFLG

ERRNO, 726807 ,EXPREC

sPICK UP XSTO
$SET UP EXPECTED
:SET BOT BIT IN EXPECTED
:DOES EXP « REC D
iBR, IF EQUAL (Ox)
;:8BUMP COUNT
: TAPE

NOT

AT BOT

AFTER REWIND
TRAP

;LOOP IF SELECTED

CKLOOP

MOV
MOV
TS7
8EQ

SEQ 0268

0256.,72652
FREE, T26R8B
R3

50¢

. WORD
. WORD
. WORD

TRAP

1SET UP RECGRD SIZE IN PACKET

CS$ERHRD
738

126807

EXPREC

CsCLP1

; ADDRESS OF READ BUFFER

;CHECK NUMBER OF TIMES THROUGH HERE
18R, IF FIRST TIME THROUGH HERE

1008838284080 08888880008848884084808888888088480888880008088888404840

:REREAD,CVC=1,ACK COMMAND

8678
8679

1880808240080 0808850880800008800080880488080088080808880808000800808048

8681

071254
8683 071262

012737
000403

161001

MOV
BR

072250

#161001, T26PK3

55¢

; REREAD,CVC=).,ACK COMMAND
:SKIP NEXT COMMAND

8685

188080805008 888888080080808008808804008808088080000008008808800804¢

8687

:REREAD,
ACK COMMAND

8689
8690
8691 071264
8692 071272
8693 071272
071276
8695 071276
8696 071302
8697 071306
8698 071312
8699 071316
8700 071320
8701 071322
8705 071326
071326
071330
071332
071334
8706 071336
071336
8707
8708
8709
8710
8711
8712

1088800888808 880888808880¢88480820880808888008888880880808808008800

012737

141001

012704

072250

010465
004737
016501
012702
020102
001406
005237
104456
001343
073243
012136

072250

50%:
55¢:
654
:

016340
100206
002212

754 :

104406

MOV

#141001, T26PK3

;s REREAD ,ACK COMMAND

MOV

#T26PK3
R4

:SET UP R4 WITH PACKET ADDRESS

MOV
JSR
MOV
MOV
cmp
BEQ
INC
ERRHRD

R4 ,TSOB(RS)
PC,WAITF
TSSR(RS),R1
@SSR!SC!BIT1!BIT2,R2
R1,R2
754
FATFLG

: ISSUE COMMAND

CKLOOP

ERRNO, T26WDE ,PKTSSR

sWAIT FOR SSR TO SET

sGET TSSR CONTENTS
1SET UP EXPECTED
1ARE THEY EQUAL
:1BR,

IF OK

;BUMP COUNT
s TSSR INCORRECT AFTER READ DATA
TRAP

;LOOP IF SELECTED

CS$ERHRD

. WORD
.WORD
.WORD

739
T26WDE
PKTSSR

TRAP

CsCLP1

150886568808 88880888858888858800888808880803804844084080808808082002

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
*

165830845 8800480480588084808280808883084088850038008508808888008080800008

I<E,
TSV7?
TEST

HARDWARE

6: REREADS

8713
8714
8715
8716
8717
8718
8719
8723

071340
071344
071346
071352
071354
071356
071362
071362
071364
071366
071370
8724 071372
071372
8725 071374
8726 071376
8727 071400
8728

071400
071400
071402
071410
071412
071416

8729
8730
8731
8732
8733
8734
8735
8736
8737
8738
8739
8740
8731
8742
8743
8744
8745
8746
8747 071416
071416
07i416
8748 071420
8749 071424
8750 071430
8751 071434
8752
8753
8754
8755
8756
8757
8758
8759 071440
8760 071444
8761 071446
8765 071452
8766 071454

TESTS

MACRO M1113

14 UUN 84

07215C

010102
052702

MOV
MOV

002000

005237

8IS
CMe
8EQ

002212

013701

020102
001406

ERPHRD

14:17

T26BFR+6,R1

R1,R2

8IT10,R2
R1,R2

170¢

FATFLG

ERRNO, T26NEF ,EXPREC

104456
001344

SEQ 0269

sGET XSTO STATUS WORD
$SET UP EXPECTED
;SET THE NEF BIT7
sARE THEY EQUAL
s8R, IF EQUAL (GOOD)
sBUMP COUNT
{NEF SHOL".D BE SET

TRAP
. WORD

072374

015564

170%:

104406

005103
001261

104403
023727
103402
004737

002212
017272

000017
9994
:

CxLOOP
com
BNE
ENDSUB

cMP
8LO
JSR

FATFLG,®15.
9994

264

;RESET THE SWITCH

1BR,

IF FIRST

TIME

EXPREC

TRAP

CsCLP1

TRAP

;IS ERROR COUNT AT 25
sBR, IF LESS THAN 25
:RY

740
T26NEF

. WORD
. WORD

THROUGH HERE

L10120:

PC.CKDROP

C$ERHRD

TO DROP

CseESUB

THE UNIT

HEd

:TEST 6., SUBTEST 15
;VERIFIES THAT REREAD PREVIOUS WITH OPP=1 (SPACE
;REVERSE, READ FORWARD) AND REREAD PREVIOUS WITH OPP=]
;(READ REVERSF, SPACE FORWARD) ISSUED WHEN THE TAPE
;POSITIONED JUST BEFORE THE FIRST RECORD ON TAPE (BUT
:NOT AT BOT) CAUSES TAPE STATUS ALERT TERMINATION WITH
: THE REVERSE INTO 80T (RIB) STATUS BIT SET.

:25>>>>3>3>>>

BGNSUB
104402
005037
004737
004737
004737

072300
075040
075132
075174

CLR
JSR
JSR
JSR

BEGIN

SUBTEST

716.15:

T26CNU
PC,T26REST
PC,T26RT2
PC,T26RT3

;:CLEAR OUT COUNTER
;SET COMMAND PACKETY

TRAP

1SET UP OTHER COMMAND PACKET
1SET UP OTHER COMMAND PACKET

18868680880 848826808880808888808848880000540000000000804888080008003

;ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR
1565006880000 488808040888808058044888808848888048888048088300080004008

004737
103407
005237
010001

016064

002212

JSR
8CS
INC

MOV
ERROF

PC,SOFINIT

204

FATFLG

RO,R1

ERRNOQ,
SF IERR, SF IMSG

;00 INITIALIZE ON CONTROLLER
:+BR IF INIT WAS 0K
;8UMP COUNT
sCONTENTS OF TSSR REGISTER
;FATAL

ERROR

TSSR

WAS NOT

>>>333>>>>>>

C48SuUB

TSV?

TEST

MARDWARE

TESTS

MACRO M1113

UUN-84

14:17

L‘r'

SEQ 0270

6: REREADS

071454

104455

TRAP

071456
071460
071462
8767 071464

00,345
003650
012124
013737

002172

8769 071472

012704

072120

8768

8770

8771

072140

20%:

.WORD
.WORD
. WORD

MOV

UNITN, T26DSW

sSET UP UNIT NUMBER

MOV

#T26PACKET R4

;SUBROUTINE NEEDS PACKET ADDRESS

8772

;WRITYE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

6775

1600800808880 04008000080880000888¢200028828000000008008080090088000800000

8774

8776

8777 071476

004737

010752

8779 071504
8783 071510

005237
010001

002212

071512
071514

104456
001346

071520
8785 071522

012124

8778 071502
8784 071S12
071516

741
SFIERR
SFIMSG

;“..‘...“‘.‘..‘."““.“0“‘.‘..‘..“‘..‘..‘.“‘..‘..“““..‘.‘

arrsy

CIERDF

071522

103407

JSR

PC.WRTCHR

1 ISSUE WRITE CHARACTERISTICS

INC
MOV

FATFLG
RO,R1

sBUMP COUNT
s SAVE CONTENTS OF TSSR

BCS

ERRHMRD

ERRNO,WRTMSG, SFIMSG

+BR, IF COMMAND ISSUED Ox

{WRITE CHARACTERISTISC FAILED

005054

TRAP
. WORD

CS$ERMRD
742

.WORD

SF IMSG

TRAP

CsCLP1

.MORD

254 :

104406

6787
8788
3;89
90

CXLOOP

;LOOP IF SELECTED

WRTMSG

;‘..““‘0“.‘.““‘...‘......“.“‘““..‘.“““.‘.“‘.‘...“.“.
;
;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
H

8791

;““‘..0‘....“‘.“‘.‘.‘.“‘.“.““...‘...““‘.“‘..‘..“‘..“‘.

8792

8793 071524

8794 071530
8795 071534
8796 071540
8797 071542
8798 071544

8802 071550

071550
071552

071554
071556
8803 071560
071560
8804

004737

011104

010004
005237

002212

01¢501
012702
103407

000002
000200

264 :

MOV
INC

ERRHRD

104456
001347

073604
012136

30¢:

104406

JSR
MOV
MOV
8CS

PC . REWIND

sCALL TAPE REWIND COMMAND

RO ,R4
FATFLG

;PACKET ADDRESS SET uP
;BUMP COUNT

TSSR(RS),R1
OSSR, R2
304

ERRNO, T26RWN,PKTSSR

CKt 00OP

;GET TSSR
;:SET UP EXPECTED TSSR
;BR, IF NO PROBLEM
;REWIND NOT ACCEPTED

;LOOP IF SELECTED

TRAP
.WORD

. WORD
.WORD

TRAP

8805

;“‘.““““““.““‘.“".‘..‘0.“““.‘““..“...““‘....‘...

8807

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XS70)

8806

6609

8810

8811 071562
8812 071566
8813 071570
8814 071574
8815 071576

;..“‘.““““.‘.0‘.‘0‘.“.““.“‘.‘.".“‘.‘....““‘..‘..‘...‘.
013701
010102
052702
020102
001406

072150
000002

MOV
MOV
8IS
cHe
8EQ

T268BFR+6,R1
R1,R2
#BIT1,R2
R1,R2
404

;PICK UP XSTO
;SET UP EXPECTED
;SET BOT BIT IN EXPECTED
1DOES EXP = REC'D
iBR,

IF EQUAL (0x)

CSERHRD
743
T26RWN

PKTSSR
CsCLP1

TSV?
TEST

HARDWARE

6: REREADS

8816 071600
8820 071604
071604
071606
071610
071612
8821 071614
071614
8822
8823
8824
8825
8826
8827
8828
8830 071616
8831 071622
8832 071626
6833 071630
071634
8835 071636
8839 071642
071642
071644
071646
071650
8840 071652
071652
8841

TES'S

005237

1 8

MACRO M1113

14 UUN 84

INC
ERRHMRD

002212

14:17

SEQ 0271

FATFLG

ERRNO, 126807 EXPREC

;BUMP COUNT
; TAPE

NOT

BOY

404
:

REWIND

TRAP

104456
001350
073315
015564

AFTER

CxLOOP

104406

CSERMRD

. WORD
. WORD
.WORD

EXPREC

TRAP

CeCLP:

744
126807

1000888888880 0880080000000086080080880808000880888808000080880000800¢

: ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
;8IT 1S5 SETS DIRECTION - O=FORWARD

1=REVERSE

1680880080888 08803880808000880488830888808088800080800000808088080080¢

012703
004737

103411

016501
010004
005237

MOV
JSR
8CS
MOV
MOV
INC
ERRHRD

000001
010556

002212

104456
001351
073243
012136

75%.

:SET UP SPACE FORWMARD 1 RECORD
1 ISSUE SPACE COMMAND

#000001 ,R3

PC,SPACE
7S¢
TSSR(FS),R1
Ry, R4
FATFLG

;BR,

ERRNO,
T2 5WDE ,PKTSSR

IF OK

:GET STATUS DATA
1GET PACKET ADORESS
:BUMP COUNT
; TSSR INCORRECT AFTER READ DATA
TRAP

;LOOP IF

<KL OOoP

SELECTED

104406

8842
8843
8844
8845

1600800800008 0000080000600088088.

CSERHRO

. WORD
. WORD
. WORD

745
T26W0E
PKTSSR

TRAP

CsCLF1

0008000000080 0000000020000080000080000¢0

:ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
;BIT

15 SETS DIRECTION - O=FORWARD

1=REVERSE

8847
6848
8849
8850
8851
8852
8853
8854
8858

1000008000000 0000008080000000080000800800808000000080800000000000008000

071654
071660
071664
071666
071672
071574
071700

071700

071702
071704
C71706
8859 071710
071710
071712
8861 071720
8862 071724
8863

012703
004737
103411

016501
010004
005237

MOV
JSR
8CSs
MOV
MOV
INC
ERRHRD

100001
010556

002212

104456
001352
073243
012136

104406
013737
005737
001404

17Ss.
003114
072300

072252

€100001 ,R3

PC, SPACE
175¢

TSSR(RS
) .R}
RO .R4
FATFLG

ERRND , T26WDE
. PXTSSR

157

BEQ

:SET UP EXPECTED (PACKET CONTENTS)
:8UP COUNT
1 TSSR INCORRECT AFTER READ DATA
TRAP

:LOOP IF SELECTED

CxLOoP
MOV

;:SET SPACE REVERSE 1 RECORD
: ISSUE COMMAND
160 ON IF ALL IS WELL
sGET TSSR CONTENTS

FREE
. T26R8
T26CNL
176¢

RFREAD (PREVIOUS).IE.ACK,0PP=1 2MD

746
T26u0DE

PXTSSR

TRAP

CsCLPl

; ADORESS OF BUFFER
;CHECK FOR TIMES THROUGH HERE
;BR, IF FIRST TIME THROUGM

;0000000000000 8080008008000000805008000000000080000080680000000800000080000

8865

C SERMRD

. WORD
. WORD
. WORD

TSy”
TESY

HARDWARE
AD 6 QERE

886"
8868
8869

8870 071726
887, ~717%4

’E(.(

MACRC »11183

0127387
000403

161001

072250

887¢
887t

AN %4

14:1°

MOV

0161001, T26Px 2
178¢

B8R

SEQ 0272

;REREAD (PREVIOUS),IE, ACK,0PP«]
:SKIP NEXT COMMAND

;1000008000000 00000080000600084000000000000000000000000000000000808000

8874

:REREAD ,ATK,0PPe1 COMMAND

8875

3876

887?
8878

1008000800080 0080008000880800020000000020000808000800008000000008000098

8879 071736
84880 071744

8881
asae
8883
8884
8885
8886

071744
071750
071754
071760
071764
071770

8887 071772

8888 07i774
8892 072000
072000
072002
072004
072006
8893 072010

072010

8894 072012
8895 072016
072020
8897 072024
8898 072026
072030
8903 072034
072034
072036
072040
072042
8904 072044
072044
8905 072046
072052
8907 072054
072054
072054
8908 072056
072064
8910 072066
8911 072072
8912
8913

8914
8915 072072
8916 072076
8917 072100

012737

141001

012704
010465
004737
016501
012702
020102
001406
005237

072250
000000
016340
000002
100204

072250

013701
010102
052702
020102
001406
005237

178

MOV

0141001, T26PK3

;REREAD

MOV
MOV
JSR
MOV
MOV

0T26PK3
R4
R4, TSOB(RS)

;SET UP RA WITH PACKET ADDRESS
: ISSUE COMMAND
+WAIT FOR SSR TQ SET

BEQ
v

002212

ERRHRD

104456
001353
073243
012136
104406

1764

1808:
072156

002212

ERRHRD

104456
001354
072374

TSSR(RS),R1

OSSR!SC!BIT2,R2
R1,R2
180%

FATFLG

ERRNO, T26WDE ,PKTSSR

;GET TSSR CONTENTS

:3ET UP EXPECTED
;ARE THEY EQUAL
;BR, IF Ox
;:BUMP COUNT
; TSSR INCORRECTY AFTER READ DATA
TRAP

CxL 00P
MOV
MOV
bIS
cHP
8EQ

000001

PC.WAITF

,ACK,0PP=1 COMMAND

;LOOP

SELECTED

T263FR+14
,R1

;GET

XST3 STATUS WORD

;ARE

1903

THEY

;BR, IF EQUAL (GOOD)
;BUMP COUNT
:NEF SHOWLD BE SETM

R1,R2
#8IT0,R2
R1,R2
FATFLG

ERRNO, T26NEF , EXPREC

104406

005137
001224

072300

002212

004737

017272

004737
103002
000137

016546

103402

055710

000017

999:

CHP
8LO
JSR

JSR
8CC
JMP

CsCLP1

TRAP

CSERHRD

.WORD
. WORD
. WORD
T26CNU

264

TRAP

:SET SWITCH THE CIHER WAY
iBR, IF FIRST TIME THROUGHM
$2>>5>>>>>>>>

END

SUBTEST

L10121:

104403
023727

1RAP

EQUAL

CKLOOP
com
BNE
ENOSUB

747
T26W0E
PKTSSR

;SET UP EXPECTED
;SET THE NEF BI7

015564

190%:

FATFLG,@15.
999

PC,CKDROP

PC,TSTLOOP

1634

T26L00P

CSERMRD

. WORD
. WORD
. WORD

TO OROP

THE

TRAP

UNIT

;00 WE NEED TO ITERATE TEST
iBR, IF NO LOOP REQUIRED

;EXECUTE AGAIN

EXPREC
CsCLP1

>3>>>>3>>3>>>

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

;:TRY

748
T26NEF

CsESULB

S
HARDWAKRE TESTS
REREADS

MACRO M1113

14-JUN-84 14:17

SEQ 0273

8918 072104
8919 072104
072104
072106
8920
8921
8922
8923
8925 072110
8927 072120
8928 072120
8929 072122
8930 072124
8931 072126
8932 072130
8933 072130
8934 072132
8935 072134
8936 072136
8937 072140
8938 072142
8939
8940
8941
8943 072224
8945 072230
8946 072230
8947 072232
072234
072236

163¢:

EXIY

TS?

1ALL

DONE

THIS

TEST
TRAP

104432
003116

. WORD

1LOCAL STORAGE FOR THIS TEST
.BLKB

10-¢<, -TSV2ET>

. WORD
.WORD
.WORD

14004

T26PACKET
:

014004
072130
000000
000012

072142
000000
000024
000000
000000

T26DATA;

T260SW:
T26BFR:

. WORD

. WORD
. WORD
. WORD
. WORD

.WORD
.BLKW

T26DATA
0
10.

T268FR
0
20.
0
0

1COMMAND PACKET FOR TEST
sWRITE CHARACTERISTICS COMMAND, WITH CVC»1, ACK
1 ADORESS OF CHARACTERISTICS BLOCK

1STARTING VALUE OF BLOCK SIZE
1CHARACTERISTICS DATA BLOCK
s ADDRESS OF MESSAGE BUFFER
tLENGTH OF MESSAGE BUFFER

s SELECT DRIVE O

tMESSAGE BUFFER

sWRITE SUBSYSTEM MEMORY COMMAND PACKET
T26PK2:

.BLKB

1C-<.-TSV2ET>

.WORD
. WORD
. WORD

T268F
2
0

.BLKB

10-¢<.-TSV2E?>

. WORD

140005

tREREAD COMMAND,

.WORD

FREE

: ADDRESS OF WRITE BUFFER

. WORD

072240
072250
072250
072252
072252
072254
072256

T26PK3:

T26R8:
T26WB:

T26SZ:

. WORD

.WORD

.EVEN

100006

sWRITE SUB SYS MEM COMMAND,

;SIZE OF DATA PACKE!?

CvC=1 AND ACK

0
0

:SIZE OF BLFFER (EXTENT)

1BSELO AREA
1BSEL1 AREA

072260
072260
072261
072262
072264

T26BF
2:
T268S0:
T268S1:

.BYTE
.BYTE

(26S3:

.WORD

T26S2:

.WORD

1SEL 2 AREA
;DATA AREA

.EVEN

s TAPE MOTION PACKET COMMAND VALUES

140001
141401
161401
177777

T26RN:

. WORD
. WORD
. WORD
. WORD

140001
141401
161401

177717

AND ACK

s ADDRESS OF SELECT BLOCK DATA

072266
072270
072272
072274

CsexIY

L10102

OON»

TSV?
TEST

;READ DATA
tREREAD NEXT OPP=0Q
(REREAD NEXT OPP«1}
{END OF DATA

Ce,
TSv?

TEST

HARDWARE TES'S
6: RERELADS

8979

8980
8981
8982
8983
8984
8985
8986
8987
8988
8989
8990
8991

MACRO M1113

14 JUN 54

072276
072300

000000

072302

000000

14:17

SEQ 274

T26CNT:

.WORD

. WORD

0
0

1 TAPE RECORD COUNTER STORAGE
s TAPE RECORD COUNTER STORAGE

T26RSZ:

.WORD

{RECORD STORAGE

T260LY:

.WORD

sDELAY COUNTER AREA

T26CNU:

072304

SIZE

AREA
AREA

AREA

tLOCAL TEXT MESSAGES FOR TEST

8992

8993 072306
8994 072374
8995 072456
8996 072525
8997 072622
8998 072717
8999 073001
9000 073051
9001 073126
9002 073207
9003 073243
9004 073315
9005 073362
9006 073450
9007 073527
9008 073604
9009 072°<3
9010 07375
9011 073775
9012 074050
9013 074140
9014 074213
9015 074266
9016 074341
9017 074430
2018 074512
9019 074574
9020 074660

9021
9022
9023
9024
9025
9026
9027
9028
9029
9030
9031
9032
9033

074750
075027

075040
CT7S040
075044
9034 075050
9035 075054

124
122
124
122
122

141

122
124
111
122
124
124

111
123
154

122
124
122

124

104
124
124
103

124
127

122
122
122
122
122

105
123
105
105
117

:
:

.ASCIZ
.ASCI2
.ASC1Z
ASCIZ
.ASCIZ
.ASC1Z
.ASCIZ

105
123

145
101
123
162

123
123

122
145
145
145
145
141
145

At BOT, Feiled Tu Set NEF (XSTO)’

*TSSR Incorrect After READ DATA Command’
‘REREAD Previous (Spece Reverse, Reed Forwerd) Commend Failed’

‘REREAD Previous (Resd Reverse, Spece Forwerd) Commend Feiied’
‘POSITION (Spece Commend) Feiled, TSSR Not Correct’

‘RIB NOT SET AFTER READ REVERSE INTO BOT’
*T3SR Not Correct After Illegel Mode Bits Set’

‘Il1
1 Mode Bits, Feiled To Set ILC Bit In XSTO’
'RE
COMMAND Not Accepted’
'TSSR Not Correct After WRITE DATA Commend’

‘Tape Not At BOT After REWIND Commend’
‘Dete Written To Tepe Not Equel To Dete Resd From Taepe
‘REREAD DATA OVER E0T GAVE NO TAPE STATUS ALERT'
*TSSR Not Correct After REREAD COMMAND Re ject’
‘Rewind (PCSITION) Commend Not Accepted’
‘RAM Error, Correct Date Pattern Not In Rem
'TSSR Init. Failed After REREAD COMMAND'
‘Orive 7 Select Feiled To Set "OFL” In TSSR'
'*TSSR Not Correct After REREAD DATA Commend, SWB Bit Set
*TSSR Not Correct After REREAD DATA Commend’

141
141

123

‘Tape Position Incorrect After REREAD Previous (OPPs})

*REREAD PREVIOUS,

‘CVC Set, Didn’' 't Reset VCX In Mess

T26BA ;
T26MSS::
T26LON:
T26L0P;
T26P8P
:
T26TRL:

Buffer’

*TSBA Not Correct After RERCAD DATA
(ommend’
‘WRITE SUBSYSTEM MEMORY Commend Not Accepted (RAM Reed)

.
T26NEQ: .
TST2610:

‘Resding Long Record Failed To Set RLL Bit In XSTO'
‘Resding Long Record Feiled To Set RLS Bit In XSTO’
‘Residual Byte Count Incorrect After Short Record Reasd'
'Ro.diag Long Record

‘Data
.ASCIZ

Failed To Give Tape Stetus Alert

REREAD From Tape Not Correct,
'Rereeads’

After SWB-l

{ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES
{WRITE SUBSYSTEM MEMORY COMMAND

T26REST
:

012701
012721
012721

072120
140004
072130

SAVREG
MOV
MOV
MOV

#T26PACKET ,R1
€140004,(R1).

#T26DATA,(R1)

1SAVE THE REGISTERS

1START OF THE PACKETY
tWRITE SUBSYSTEM MEM,

WITH ACK,

CVC-1

t RDDRESS OF CHARAISTICS DATA BLOCK

TSV?
TEST

HARDWARE

TESTS

075060
075062
075066
075072
075074
075100
075102
075106
075112

005021
012721
012721
005021
012721
005021
012711
012702
012762
005742
020227
001371
000207

6: REREADS

9036
9037
9038
9039
9040
9041
9042
9043
9044
9045
9046
9047
9048
9049
9050
9051
9052
9053
9054
9055
2056
9057
9058
9059
9060
9061
9062
9063
9064
9065
9066
9067
9068
9069
2070
9071

075120
075122
075126
075130
075132
075132
075136
075142
075146
075152
075154
075160
075162
375166
075170
075172
075174
075174

9072
9073

MACRO M1113

CLR

MOV
MOV
CLR
MOV

000024

000000
1777717

072142

64%:

CLR
MOV
MOV
MOV
187

cHP
BNE

000000

RTS

S5€Q 027%

012701
012721
012721

#T268FR,(R).
1

(R1).
#20.,(R1).
(R1).
#0,(R1)

-(R2)
R2, 80
64t

(R1).
#6.,(R1).
(R1).

012701
012721
012721
005021
012711
000207

072250

tWRITE SUBSYSTEM MEM.

s ADDRESS OF DATA BLOCK
sEXTENDED ADORESS

WITH ACK,CVC=1,

#T268F2,R1

1POINT TO DATA SEL AREA

1RETURN

0T26PK3 ,R1

1START OF THE PACKETY
sWMRITE SUBSYSTEM MEM., WITH ACK,

#C,(R1).

1SAVE THE REGISTERS

s ADDRESS OF DATA BLOCK
tEXTENDED ADORESS
:SIZE OF OATA BLOCK IN BYTES
sRETURN

(R1).

#0,.(R1)

ENDTST

1SAVE THE REGISTERS

tSTART OF THE PACKET

1SIZE OF DATA BLOCX IN BYTES

(R1).
(R1)

T26RT3:

;SELECT DRIVE ZERO (0)
sNUMBER OF LOCATIONS TO BE CLEARED
tALL ONES TO MESSAGE BUFFER
sNEXT LOCATION
;1CHECK FOR END OF LOOP
sKEEP GOING UNTIL DONE
s RE TURN

#7268F2,(R1).

072260

ILENGTH OF MESSAGE BUFFER

024
. ,R2
0177777, 1268FR(R2)

0T26PK2,R1
#140006,(R1).

072230
140006
072260

sEXTENDED ADORESS
$SIZE OF DATA BLOCK 1IN BYTES
s ADDRESS OF MESSAGE BUFFER

(R1).
€10.,.(R1).

T26RT2:

L10102:

TRAP

104401

.SBTTL

9074
9075

TEST

WRITE ODATA RETRY

t34

:THIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY

9076
9077
9078

9079
9080
9081
9082
9083
9084
9085 075226
075226
9086 075226
9087 075234
9088 075240
9093 075244

14 UUN 84 14:17

000012
072142

000030

sCOMMAND (SPACE REVERSE, ERASE, WRITE DATA)
‘

; THE TEST CONSISTS OF THE FOLLOMING S SUBTESTS

BGNTST

012737
005037
004737
012700

006446

003124
017364
105063

002170

MOV

CLR
JSR
MOV

T7::

#EPRT2,EPRTSW

KTENABLE
PC.KTOFF
#TST271D,RO

s SECONDARY ERROR MESSAGE

s TURN OFF KT11

;TURN KT11 BACK OFF

THERE

tASCITI MESSAGE TO IDENTIFY TEST

CS$ETSY

TSV?

HARDMARE

TEST

TESTS

MACRO M1113

016600
000005
102126

002206

WRITE DATA RETRY

9094 075250
9095 075254
9096 075262
9097

004737
012737
005037

9098
9099
9100

:
s TOST 7,
H

9101

UUN 84

14:17

JSR
MOV
CLR

PC,T1STSETUP
#5,L00PCNT
T27CNTY

SEQ 2276

;00 INITIAL TEST SETWP
tPERFORM S ITERATIONS
;CLEAR TAPE RECORD COUNTER

SUBTEST )

9102

;VERIFIES THAT A WRITE DATA RETRY COMMAND ISSUED WHILE

9103

sTHE TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJUECT

9104
9105
9106

1 TERMINATION, WITH THE NON-EXECUTABLE FUNCTION (NEF)
;ERROR BIT SET.
H

9108

9107

9109
9110 075266

T27L00P:

9111 075266

075266

9112
9113
9114
9115

075266

075270
075274
075300
075304

311? 075312

11
9116
9119

104402

004737
004737
004737
012737

005037

105104
105176
105240
176750

102126

9126 075324
075324
075330
075332
075336
075340
075344
075346
075352
9127 075354
9128 075360
9129 075362
9133 075366
9134 075370
075370
075372
075374

075376
9135 075400

glgg 075406
1

9138

9139

PC,T27TREST
PC.T27RT2
PC.T27RT3
#65000.,T270LY

T2T7CNT

1 ISSUE CONTROLLER

9122

9125 075322

CLR

322>>3>35333>>

sSET
1SET
$1SET
1SET

BEGIN SUBTEST

17.1:

>3>33335355>

TRAP

COMMAND PACKET
UP OTHER COMMAND PACKET
UP OTHER COMMAND PACKET
UP DELAY COUNTER

csesuB

;CLEAR COUNTER

108080880880 2008008080¢48¢0004280080080800000000800000002800000080088¢

121

9124 075316

JSR
JSR
JSR
MOV

102132

3150
9123

BGNSUB

“SOFT~ INITIALIZE

- CARRY BIT CLEAR IF ERROR

100088008008 08008480880080808880880802800880080080800000008000000000008

004737

103426

012727
000000
013727
000000
005367
001375
005367
001367
005337
001356
005237
010001
104455
001275
003650
012124
013737

012704

016064

10¢:

000250

JSR

PC.SOFINIT

100 INITIALIZE ON CONTROLLER

DELAY

250

;DELAY ABOUT

BCS

204

002116
177772
177756
102132
002212

002172

101750

101770

20%:

DEC
BNE
INC
MOV
ERROF

T270LY
10¢
FATFLG
RO,R}
ERRNO, SFIERR, SF IMSG

MOV

UNITN, T270SuW

MOV

#T27PACKET R4

sBR IF

INIT WAS Ox

.25 SEC

MOV
. WORD
MOV
. WORD
DEC
BNE
OEC
BNE

1BUMP COUNTER
1BR, IF COUNTER NOT DONE
;1BUMP COUNT
sCONTENTS OF TSSR REGISTER
tFATAL ERROR TSSR WAS NOT 0K
TRAP
. WORD
. WORD
. WORD
1SET UP DRIVE NUMBER

s SUBROUTINE NEEDS PACKET ADDRESS

1008080684084 8840408888080000080000000000008000005800000008208000200¢

#250,(PC)0
L$DLY, (PC).
o
-6(PC)
. 4
22(PC)
. 20

CSERODF
701
SF IERR
SFIMSG

[f
TSV7 - HARDWARE TESTS | 8
7: WRITE DATA RETRY
TEST

14:17

SEQ 0277

1008803000008 0800880¢00088808000008008000004880020008200000080088000400

075412
075416
075420
075424
075426
075426
075430
075432
075434
9152 075436
075436
9153
9154
9155
9156
9157
9158
9159
9160 075440
9161
9162 075446
9163 075450
9167 075454
075454
075456
075460
075462
9168 075464
075464

004737
103407
005237

010001

010752

JSR
8cs

PC,WRTCHR
254

1 ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED Ox

MOV
ERRHRD

RO,R1
ERRNO,WRTMSG, SFIMSG

1 SAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC F?gkgo

INC

002212

104456
001276
005054
012124

25¢:

FATFLG

CxLOOP

18UMP COUNT

;:LOOP IF SELECTED

104406

CS$ERMRD

.WORD
. WORD
. WORD

702
WRTMSG
SF IMSG

TRAP

CsCLP1

160080208088 000888008088808808880800808808880083088084000080¢80040008

: ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
Ll

1860008000000 880048000804088002004800208080800000088000804880808¢408000

004737
103407
010004
005237

011104

JSR

PC.REWIND

INC

FATFLG

8CS
MOV

002212

ERRHRD

104456
001277
103305
012136

30¢:

104406

1CALL TAPE REWIND COMMAND

304
RO,R4

$8R, IF NO PROBLEM
$1SET UP REWIND PACKET ADORESS

ERRNO, T27RWN,PKTSSR

;REWIND NOT ACCEPTED

CKLOOP

s8UMP COUNT

:LOOP IF SELECTED

TRAP

CSERMRD

. WORD
. WORD
.WORD

703
T27RWN
PKTSSR

TRAP

CsCLP1

18608860880 0880000088808848060080804088048800800000045008420400400000000009

;QEAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
.

168888808808 0888880008800¢80880804088800608008000808080080288020¢000000400

075466
075472
075474
075500
075502
075504
075510
075510

075512
075514
075516
9186 075520
075520
9187 075522
9188 075530
9189
9190

14 UUN 84

{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

9140
9141
9142
9143
9144
9145
9146
9150
9151

9169
9170
9171
9172
9173
9174
9175
9176
9177
9178
9179
9180
9181
9185

MACRO M1113

013701
010102
052702
020102
001406
005237

102000

MOV
MOV

T27BFR«6,R1
R1,R2

cHP

R1,Re

8IS

BEQ
INC
ERRHRD

002212

104456

#8IT71,R2

404
FATFLG
ERRNO, T2780T ,EXPREC

tPICK UP XSTO
:SET UP EXPECTED

1SET BOT BIT IN EXPECTED
1DOES EXP = REC'D

iBR, IF EQUAL (0X)
18UMP COUNT
; TAPE NOT AT BOT AFTER R;:igb

001300

103001

015564

104406
012737
013737

404 :
000400
003114

102106
102102

CKLOOP

MOV
MOV

;LOOP IF SELECTED

#256.,12752
FREE, T2748

1SET UP RECORD SIZE
1ADDRESS OF WRITE BUFFER

. WORD
.WORD
.WORD
TRAP

(8000088688408 0808080808088808880088888088¢80848888408080000000500000

CS$ERHRD
704

1727807

EXPREC
CsCLPl

TSV? - HARDWARE TESTS 1 &
:

TEST

WRITE DATA RETR)

MACRO M1113

9191

sWRITE

9193

DATA

RETRY, ACK,CVC+=1

COMMAND

10800000600 6000008000000080000000880¢800000800488008000008080040080068000¢

9195

9196 075536
9197 075544
9198 075550
9199 075554

012737
012704
010465
004737

141005
102100
000000
016340

9201 075564
9202 075570

012702
020102

100206

9204 075574

005237

9200 075560

9203 075572

016501

001406

9208 075600
075600
075602
075604
075606

104456
001301
102712
012136

9210 075610

104406

9209 075610

102100

000002

MOV
MOV
MOV
JSR

9141005, T27PK3
#T27PK3 R4
R4, TSDB(RS)
PC.WAITF

tWRITE DATA RETRY,ACK,CVC=1 COMMAND
$1SET UP R4 WITH PACKET ADDRESS
1 ISSUE COMMAND
sWAIT FOR SSR TO SET

MOV
cHe

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

;SET UP EXPECTED
$ARE THEY EQUAL

INC

FATFLG

sBUMP COUNT

MOV

BEQ

002212

ERRHRD

75%:

9211

TSSR(RS),R1
754

ERRNQ, T27WDE ,PKTSSR

CKLOOP

;GET TSSR CONTENTS

i8R,

IF 0K

s TSSR INCORRECT AFTER READ DATA
TRAP
. WORD
. WORD
. WORD

;LOOP IF SELECTED

TRAP

CS$ERHRD
705
T2 TWDE
PXTSSR
CsCLP1

(0808808060000 880008880080488008604080208808088000000000084000000000008

921c<

9213
9214

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
H

9215%

108800004808 00000300000048¢0800¢488080628808800000800800004800880800008

9216

9217 075612
9218 075616
9219 075620

013701
010102
052702

9221 075626

001406

9220 075624

9222 075630
9226 075634

075634
075636
075640
075642
9227 075644
075644

9228 075646

075646

075646
9229 075650
9230 075656

9231 075660
9232 075664
9233

9238
9239
9240
9241

€0 0278

9{9.

9234

919>

9235
ggg?

14 JUN-84 14:17

020102
005237

102000

MOV
MOV
B81S

002000
002212

FATFLG

ERRMRD

170%:;

104406

004737

INC

BEQ

104456
001302
104451
015564

104403
023727
103402

cHe

T278FR+«6,R1
R:.R2
#8IT10,R2
R1,R2

;GET
sSET
sSET
;ARE

170

;BR,

ERRNO, T27NEF ,EXPREC

sNEF

XSTO STATUS WORD
UP EXPECTED
THE NEF BIT
THEY EQUAL
IF EQUAL

(GOOO.,

SHOWLD BE

SET

;BUMP COUNT

CKLOOP
ENDSUB

002212

017272

000017

cHp
BLO
JSR

999¢

L10123:

FATFLG, 015.
9994
PC,CKDROP

CS$ERHRD
706
T27NEF
EXPREC

TRAP

CsCLP1

TRAP
IS ERROR COUNT AT 25
tBR, IF LESS THAN 25
:TRY TO DROP THE UNIT

;e
H
;TEST

TRAP
. WORD
. WORD
. WORD

SUBTEST 2

sVERIFIES THAT WRITE DATA RETRY COMMAND ISSUED WHILE
sTHE TAPE IS POSITIONED BEFORE Tt FIRSYT RECORD ON
sTAPE (BUT NOT AT BOT) RESULTS IN TAPE STATUS ALERT
; TERMINATION, WITH THE REVERSE INTO BOT (RIB) STATUS

CsESUB

TSV7?
TEST

- HARDWARFE TESTS i 8
7: WRITE DATA RETRY

MACRO M1113

14 UUN 084

14:17

SEQ 0279

;:ERROR BIT 3ET,

9242
9243
9244

9245
9246

075664
075664
075664
9248 075666
9249 075672
9250 075676
9251
9252
9253
9254
9255
9256
9257
9258 075702
9259 075706
9260 075710
9264 075714
9265 075716
075716
075720
075722
075724
9266 075726
9267 075734
9268
9269
9270
9271
9272
9273
9274
9275 075740
9276 075744
9277 075746
9281 075752
9282 075754
075754

9247

075756
075760
075762

9283 075764
075764
9284
9285
9286
9287
9288
9289
9291 075766
9292 075772
9293 075774

104402
004737
004737
004737

BGNSUB

$§25>5>5533>3>> BEGIN SUBTEST 5>3>>3>535355>
T17.2:

JSR
JSR

105104
105176
105240

JSR

PC,T27REST
PC.T27RT2
PC.T27RT3

TRAP

$SET COMMAND PACKET
1SET UP OTHER COMMAND PACKET

cs8SUB

;SET UP OTHER COMMAND PACKET

1808880088888 0404008000d8000088080088800800080000880000888000080008¢

;ISSUE CONTROLLER “SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR
;o‘ooo‘ooooo.tctoocotto‘o‘o‘oto‘tootttoat‘ooto.aoototoooootoooooooo
004737
103407
005237
010001

104455
001303
003650
012124
13737
012704

016064

002212

002172

101750

JSR

PC,.SOFINIT

100 INITIALIZE ON CONTROLLER

INC

FATFLG

sBUMP COUNT

BCS

MOV
ERRDF

101770

204 :

MOV
MOV

204

RO,R1
ERRNO, SFIERR, SFIMSG

UNITN, T270Su
S#T2TPACKET R4

s8R IF INIT WAS OX

sCONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT 0K
TRAP

. WORD
. WORD
. WORD

1SET UP DRIVE NUMBER
s SUBROUTINE NEEDS PACKET ADDRESS

CSERDF

707
SFIERR
SF IMSG

18888808088 084088800088854840080880808808804880800000003488¢008800888

;HRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
H

188880880888 888008880884880004408860088880848880808088
4058004000820 s

004737
103407
005237
010001

010752
002212

104456
001304
005054
012124

254

104406

JSR

PC.WRTCHR

s ISSUE WRITE CHARACTERISTICS

MOV
ERRHRD

RO,R1
ERRNO,WRTMSG, SFIMSG

$SAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC FAILED

B8CS
INC

25¢
FATFLG

CKLOOP

;BR, IF COMMAND ISSUED OK
;BUMP COUNT

;LOOP IF SELECTED

TRAP

CS$ERMRD

TRAP

CsCLP1

. WORD
. WORD
. WORD

1806888888002 88886888480888384808848883088888588888588840500¢0000082

: ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
(16808846080 0804454000008080808808883080884008088804888808882080¢00¢8800

004737
03411
010004

011104

JSR

8CS
MOV

PC,REWIND
264
RO,R4

;CALL TAPE REWIND COMMANO

18R, IF NO PROBLEM
1SET UP REWIND PACKET ADDRESS

708
WRTMSG
SFIMSG

TSV?
TEST

HARDWARE TESTS 1 8
7: WRITE DATA RETRY

9294 075776

9295 076002

9299 076006
076006
076010
076012
076014
9300 076016
076C16
9301 076020
9302 076024
9303
9304
9305
9306

016501
005237

MACRO M1113

MOV

000002
002212

INC
ERRHRD

076032
076040
076044
076050
076054
076060
076064
076070
076072
076074
076100
076100
076102
076104
076106
9324 076110
076110
9325

14:17
TSSR(RS),R1

FATFLG
ERRNO, T27RWN,PKTSSR

104456

104406
012703
013737

SEQ 0280

:GET TSSR CONTENTS
;BUMP COUNT
;REWIND NOT ACCEPTED

TRAP

CSERMRD

. WORD

001305
103305
012136

. WORD
264 :
000400
003114

;LOOP IF SELECTED

CKLOOP

MOV
MOV

102102

#256. ,R3
FREE,T27W8

709

T2 7TRUWN

. WORD

PKTSSR

TRAP

CsCLPL

sSTARTING RECORD SIZE
;STARTING WRITE BUFFER ADDRESS

16880888480 08008808888884848884
8880808088000 888800004204800884008000

{WRITE DATA,CVC=1,ACK COMMAND

9307

9308
9309
9310
9311
9312
9313
9314
9315
9316
9317
9318
9319
9323

14 UUN 84

1688000088888 8884888888888888888808880400880880400048080088088088000

012737
012704
010337
010465
004737
016501
012702
020102
00140€
005237

140005
102100
102106
000000
016340

MOV
MOV
MOV
MOV
JSR
MOV
MOV

102100

000200

cHP

BEQ
INC
ERRHRO

002212

104456
001306

#140005, T27PK3
#727PK3,R4
R3, 12782
R4 ,TSDB(RS)
PC,WAITF
TSSR(RS5),R1
#SSR,R2

R1,R2

28%
FATFLG
ERRNO,WRTERR,PKTSSR

sMRITE DATA,CVC=1,ACK COMMAND

;SET UP R4 WITH PACKET ADORESS
1SET UP RECORD SIZE IN PACKET
1 ISSUE COMMAND
sWAIT FOR SSR TO SET

;GET VSSR CONTENTS
;SET UP EXPECTED

sARE THEY EQUAL
;BR, IF 0K

;BUMP COUNT
; TSSR INCORRECT AFTER WRITE DATA
TRAP
.WORD

005111

012136

2c8¢:

104406

CKLOOP

;LOOP IF SELECTED

CS$ERHRD
710

. WORD
.WORD

WRTERR
PKTSSR

TRAP

CsCLPL

1808388884 888808888488584840088888088400808080008800880002300888888042

9327
9328
9329
9330
9331
9332
9333
9334
9335
9336
9340

076112
076116
076120
076124
076126
076132
076132
076134
076136
076140
9341 076142
076142
9342
9343
9344

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
’

16882

004737
103411
016501
010004
005237

JSR
8CS
MOV
MOV
INC
ERRHRD

011104
000002
002212

104456

001307
103305
012136

104406

8808888885588 80888000 4088083408880 20008080088080888050080800048

30¢:

CKLOOP

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

1CALL TAPE REWIND COMMAND
18R, IF NO PROBLEM
$1GET TSSR CONTENTS
$SET UP REWIND PACKET ADURESS
18UMP COUNT
;REWIND NOT ACCEPTED

:LOOP IF SELECTED

TRAP

CS$ERHRD

TRAP

CsCLPl

.WORD
.MORD
.WORD

;0088306808000 8C¢8008088088085000080008800008008880000004080002080080008

711
T27RWN
PKTSSR

JJf
TSV?

TEST

HARDWARE TESTS 1 8

WRITE DATA RETRY

934%

14 UUN 84 14:17

SEQ 0281

+READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XS5T0)

333:3

108820800000 0000888 0000000000008 0000080080080 0E000008000¢0400

9348

9349 076144
9350 076150
9351 076152
9352 076156
9353 076160
9354 076162

013701
010102
052702
020102
001406
005237

9358 076166
076166
076170
076172
076174

104456
001310
103001
015564

076176

104406

9359 076176
9360

MACRO M1113

102000

MOV
MOV
8IS
cHe
BEQ
INC

000002
002212

ERRHRD

408 :

T27BFR+6,R1
R1,R2
#BIT1,R?
R1,R2
404
FATFLG

ERRNO,T2780T,EXPREC

CKLOOP

;sTAPE NOT AT BOT AFTER REWIND
TRAP
. WORD
. WORD
. WORD

;LOOP IF SELECTED

9361

1008000000000 080000RE0IE0

9362
9363

:
sISSUE SPACE RECORDS COMMANL

936

TRAP

CS$ERHRD
712
127807
EXPREC
CsCLP1

000008 AE00800R00vuSEstEERE0etettotes

- VALUE IN R3 SETS NUMBER OF RECORDS
:BIT 1S SETS DIRECTION - O=F(RWARD
1=REVERSE

936;

9366

;0088008040000 04000000080000000000000000080008000000008880880864804

9367

9368 076200

012703

9370 076210

103413

9369 076204
9371
9372
9373
9374
9378

076212
076216
076222
076224
076230
076230
076232
076234
076236
9379 076240
076240
9380
9381
9382
9383

004737

016501
012702
010004
005237

000001

9386
9z87
9388 076242
9389 076246

9390 07625¢

076254
076260
076264
076266
076272
076272
076274

MOV

010556

002212

104456
001311
104547
012136

S0$:

104406

€1,R3

;PARAMETER SPACE FORWARD 1 RECORD

S50¢

:BR, IF NO ERRORS

JSR

PC,SPACE

MOV
MOV
MOV
INC
ERRHRD

TSSR(RS),R1
OSSR, R2
RO,R4
FATFLG
ERRNO,T27SLF ,PKTSSR

8Cs

000002
000200

sCALL SPACE RECORDS ROUTINE

CKLOOP

;GET TSSR CONTENTS
sSET UP EXPECTED
:SET UP REWIND PACKET ADDRESS
sBUMP COUNT
; SPACE RECORDS COMMAND FAILED
TRAP
. WORD
. WORD
. WORD
;LOOF IF SELECTED
TRAP

CSERMRD
713
T27SCF
PKTSSR

CsCLP1

190088000008 000008600880080000800880080008080084000868008048808083800

H
;ISSUE SPACE RECORDS COMMAND

ggg;

9391
9392
9393
9394
9398

sPICK UP XSTO
$SET UP EXPECTED
1SET B80T BIT IN EXPECTED
1+DOES EXP = REC'D
;BR, IF EQUAL (0K)
;BUMP COUNT

VALUE IN R3 SETS NUMBER OF RECORDS

:8IT 1S SETS DIRECTION - O=FORWARD

1=REVERSE

;0008680600000 8008088080800800006000808000800800088000858888888088008028
012703
004737

100001
010556

016501
012702
010004
005237

000002
000200

103413

104456
001312

002212

MOV
JSR

100001 ,R3
PC,SPACE

s PARAMETER SPACE REVERSE 1 RECORD
sCALL SPACE RECORDS ROUTINE

MOV
MOV
MOV
INC
ERRHRD

TSSR(RS).R1
OSSR, R2
RO,R4
FATFLG
ERRNQ, T27SCF ,PKTSSR

;:GET TSSR CONTENTS
:SET UP EXPECTED
;SET UP REWIND PACKET ADDRESS
;BUMP COUNT
{SPACE RECORDS COMMAND FAILED
TRAP
.WORD

B8CS

604

;BR,

IF NO ERRORS

CS$ERMRD
714

<6
TSV? - HARDWARE TESTS 1 8
7: WRITE DATA RETRY

MACRO M1113

UUN 84

14:17

SEQ 0282

TEST

076276
076300
9399 076302
076302

9400 076304

104547
012136
104406
013737

€28:
003114

102102

9401
9402

CKLOOP

MOV

sLOOP IF SELECTED

FREE,T27RB

1 ADDRESS OF BUFFER

.WORD
.WORD

T27SCF
PKTSSKR

TRAP

CsCLPL

1080888080800 0488088048808088008080808088808080888¢048808804880¢8080%s

9403

9404

tWRITE DATA RETRY,ACK,CVvC=1 COMMAND

9406

1080888888868 8088888800084808008884808040848808040840480808088200844

9405

9407
9408 076312

9409
9410
9411
9412
9413
9414

9415
9416
9417
9421

076320
076326
076332
076336
076342
076346

076352
076354
076356
076362
076362
076364
076366
076370
9422 076372
9423
9424
9425
9426
9427
9428
9432

076372
076374
076400
076402
076406
076410
076412
076416
076416
076420

076422

076424
9433 076426
076426
9434 076430

9435
9436
9437
9438
9439
9440
9441
9442
9443
9444
9445
9446

076430
076430

076432
076440
076442
076446

012737
012737
012704
010465
004737
016501
012702
020102
001406
005237

141005

000400
102100

102100
102106

016340
000002
100204

013701
010102
052702
020102
001406
005237

tWRITE DATA RETRY,ACK,CVC=1 COMMAND
:SET UP THE SIZE OF RECORD
;1SET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND
sWAIT FOR SSR TO SET
$tGET TSSR CONTENTS
1SET UP EXPECTED TAPE STATUS ALERT

BEQ

180%

iBR,

ERRNO,T27TSA,PKTSSR

s TSSR INCORRECT AFTER READ DATA
TRAP
CS$ERHRD
.WORD
715

INC

002212

ERRHRD

R1,R2

FATFLG

;ARE THEY EQUAL
IF 0K

:BUMP COUNT

.WORD

180¢:
102006

CKLOOP

002212

T278FR+14,R1
R1,R2

;GET XST3 STATUS WORD
;SET UP EXPECTED

cre
B8EQ
INC

R1,.R2
1904
FATFLG

;ARE THEY EQUAL
;BR, IF EQUAL (GOOD)
;BUMP COUNTY

ERRHRD

104456

;LOOP IF SELECTED

MOV
MOV
BIS

000001

#IT0,R2

ERRNO, T27NEF ,EXPREC

;SET

THE RIB BIT

sNEF

SHOULD BE

SE~

190¢:

104406

CKLOOP

PKTSSR

TRAP

CsCLP1

TRAP

CS$ERHRD

.WORD

EXPREC

TRAP

CsCLP1

TRAP

CsESUB

3223>>>>3>>>> END SUBTEST

ENDSUB
002212

017272

000017

cre

8LO
JSR

L10124:

FATFLG,#15.
999
PC,CKDROP

9994:
HE4

:TEST 7. SUBTEST 3
;VERIFIES THAT A WRITE DATA RETRY COMMAND WITH SWB=0
: TERMINATES PROPERLY AND WRITES CORRECT DATA ON TAPE
;(THE WRITTEN RECORD IS READ AND CHECKED). VARIOUS

716
T2 INEF

>
>>5>33>3>>>>

;IS ERROR COUNT AT 25
;BR,
;TRY

T27TSA

.WORD

. WORD
. WORD

001314
104451
015564

104403
023727
103402
004737

#141005,T27PK3
#256.,727S2
#T27PK3 R4
R4, TSDB(RS)
PC,.WAITF
TSSR(RS),R1
#SSRISC!BIT2,R2

cMe

104456
001313
104624
012136
104406

MOV
MOV
MOV
MOV
JSR
MOV
MOV

IF LESS THAN 25
TO DROP THE UNIT

L6
TSV?
TEST

HARDWARE TESTS . 8

7: WRIT: DATA RETRY

MACRO M13i13

14 JUUN 84 14:17

944"

:BYTE COUNTS AND DATA PATTERNS ARE USED.

9449

9448

SEQ 0283

9450
945}

H
:

9452 076446

076446

076446
9458 076450

3454 076454
9455 076460
9456

104402
004737
004737
004737

105104

BGNSUB

JSR

105176
105240

JSR
JSR

$2>>>5>3535>5>> BEGIN SUBTEST >5>35555555>
77.3:;

PC,.T27REST
PC.T27RT2
PC,T27RT3

sSET COMMAND PACKET

TRAP

;SET UP OTHER COMMAND PACKET
;SET UP OTHER COMMAND PACKET

9‘57

1008080088808 08880000008880200080080800028¢0800028808000800¢20000080808080

3458

;

9460

9459

s ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR

9461

;0084000600800 00000000080000000000003088080008000088080000008880888804

9462

9463 076464

004737

016064

9465 076472
9469 076476
9470 076500

005237
010001

002212

076506
9471 076510
:;'g 076516

012124

9464 076470

076500
076502
076504

103407

104455
001315
003650
013737
012704

002172
101750

JSR

PC,.SOF INIT

;100 INITIALIZE ON CONTROLLER

INC
MOV
ERROF

FATFLG
RO, R1
ERRNO, SF TERR, SF IMSG

sBUMP COUNT
sCONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT 0K

MOV
MOV

UNITN, T270Su
ST27PACKET R4

BCS

101770

20%:

204

sBR IF INIT WAS 0K

TRAP
. WORD
. WORD

;9008806608008 0088008800800000806008808000080000088000800088084000484848

z;g

sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

9475

;

9‘78

;‘...‘..‘..‘....‘.‘..‘.0.“..“.‘.....‘.‘“.‘..‘.““‘...‘....“Q..

9479

9480 076522

004737

010752

9482 076530
9486 076534

005237
010001

002212

076536
076540
076542

104456
001316
005054

9481 076526

9487 076536

076544

9488 076546

076546

103407

012124

23s:

104406

PC.WRTCHR

sISSUE WRITE CHARACTERISTICS

INC
MOV

FATFLO
RO,R1

;8UMP COUNT
;SAVE CONTENTS OF TSSR

234

ERRNO,WRTMSG, SFIMSG

CKLOOP

iBR,

IF COMMAND ISSUED 0K

;WRITE CHARACTERISTISC FAILED

;LOOP IF SELECTED

TRAP
. WORD
. WORD

CSERHRD
718
WRTMSG

TRAP

CsCLP1

. WORD

;O.“.“.."“.t‘“".‘.“‘.‘“‘..0““‘.“.“..“‘.““““‘..“‘0

::3%

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

9‘9‘

9496 076550
9497 076554
9498 076556

JSR

8CS

ERRHRD

9491

9495

CSEROF
717
SFIERR

. WORD
SF IMSG
;SET UP UNIT NUMBER IN PACKET
;1SUBROUTINE NEEDS PACKET ADORESS

9474

9489
9‘%

cs8SUR

;“““‘.0“.“‘.“...“.““.““.“‘“‘“““““‘.“...“““‘..
004737
103407
010004

011104

JSR
B8CS
MOV

PC.REWIND
304
RO,R4

tCALL TAPE REWIND COMMANO
1BR, IF NO PROBLEM
:SET UP REWIND PACKET ADDRESS

SF IMSG

¢
TSv?
TEST

HARDWARE "ESTS 1 8
7. WRITE CATA RETRY

9499 076569
9503 076564
076564
076566

076570
076572
9504 076574
076574
9505

005237

MACRO M1113

14 JUUN 84
INC
ERRHRD

002212

14:17

SEQ 0284

FATFLG
ERRNO, T27RWN,PKTSSR

;8UMP COUNT
;REWIND NOT

ACCEPTED
TRAP

104456
001317
103305
o12:%

304 :

104406

CxXLOOP

;LOOP IF SELECTED

C$ERMRD

. WORD
. WORD
.WORD

719
T2 7RWN
PKTSSR

TRAP

CsCLP!

1000000880888 088¢88200000002838880880008080808300008888080008088800080882020

9507

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XST0O)

9510
9511

186080600000 08800888088042384888084040000808884080080080080000608800000

9512 076576
9513 076602
9514 076604
9515 076610
9516 076612
9517 076614
9521 076620
076620
076622
076624
076626
9522 076630
076630
076632
076636

013701

010102
052702
020102
001406

005237

MOV
MOV
BIS
oy o
BEQ
INC

102000
000002

002212

ERRMRD

104456
00132C
103001
015564
104406
012703
0137%?

404 :

000024
003114

ERRNQO,T27BOT,EXPREC

CxL 0OP

MOV
MOV

102102

T278FR+6,R1
R1,R2
oBIT1,R2
R1,R2
408
FATFLG

;PICK UP XSTO
;SET UP EXPECTED
1SET BOT BIT IN EXPECTED
;D0ES EXP = REC‘'D
;BR, IF EQUAL (0x)
;BUMP COUNT
;:TARPE

;LOOP

020. ,R3
FREE,T27w8

NOT

B80T

AFTER REWIND
TRAP

SELECTED

CIERHRD

.WORD
.WORD
.WORD

720
127807
EXPREC

TRAP

CsCLP,1

;STARTING RECORD SIZE
;STARTING WRITE BUFFER ADDRESS

1000000800000 08000000000800008000000008000008088008830000008000000000800

;WRITE

DATA, CVC=1,ACK

COMMAND

1086000800000 008800000008000000000008080000000808820000000000080008002000°

9531

076644
076652
076656
076660
076664
G76670
076674
9539 076700
076704
9541 076710
9542 076712
9543 076714
9547 076720
076720
076722

012737
012704
010300
004737
010337
010465
004737
016301
012702
020102
001406
005237

076726
9548 0767%
076730
9549

012136

9533
9534
9535
9536
9537
9538

076724

140005
102100

102100

65¢%-

0140005, T27Px 3

;WRITE DATA,CVC=1,
ACK COMMAND

2 01"

R3,.RO

;SEY PATTERN IN CORRECT REGISTER

0T27PK3 R4

;SET UP R4 WITH PACKET ADORESS

JSR
MOV

PC.FILLMEM
R3, 12752

;FILL MEMORY WITH RECORD SIZE
;SET UP RECORD SIZE IN PACKEY

000002
000200

MOV
MOV

TSSR(RS ). R}
#SSR , R2

;GET TSSR CONTENTS
:SET UP EXPECTED

002212

BEQ
INC
ERRHRD

804
FATFLG
ERRNO,WRTERR
P¥ TSSR

:BR, IF Ox
;BUMP COUNT
;TSSR INCORRECY

017512
102106
000000
016340

MOV
JSR

oy o

104456
001321
005111

1044Cé

MOV

804 :

CxLO00P

R4, TSOB(RS)
PC.MAITF
R1.R2

; ISSUE COMMAND
;WAIT FOR SSR 10 SE7Y
;ARE THEY EQUAL

AFTER WRITE DATA

;LO0P IF SELECTED

TRAP

CSERMRD

. WORD
.WMORD
WORD

721
WRTERR
PKTSSR

TRAP

CsCLey

TSv?

TeEST

MARDWARE

TESTS

1-8

MRITE DATA RETRY

MACRO M11)18

955¢C
9551
9552
9553

9554
9555
9556
9557
9558
9559
9560

9569
9570
9571
9572
9573

076732

076740

076744

076770
0767172
076774
076776
077000
077000
077002
077004
077010

012737

010465
004737
016501
012702
020102

141005

000000
016340
002002
000200

SEQ 028%

005237

MOV
MOV
JSR
MOV
MOV
ce

0141005,727Px3
R4, TSDB(RS)
PC.WAITF
TSSR(RS).R1
OSSR ,R2
R1,R2

INC

FATFLG

ERRHMRD

ERRNO, T27WRF ,PKTSSR

atq@

002212

904

104456

001322
104706
012136

CKLOOP

104406

005723
020327
001315

TST

000050

oy o
BNE

;WRITE DATA RETRY CvC=1,ACH COMMAND
; ISSUE COMMAND
{WAIT FOR SSR 10 SE7T
;GET TSSR CONTENTS
;SET UP EXPECTED
;ARE THEY EQUAL
;BR, IF Ox
:8UMP COUNT
;TSSR INCORRECT AFTER WRITE DATA RETRY
TRAP
CSERMRD

;LOOP IF SELECTED
(R3).

R3,040.
654

. WORD
. WORD
.WORD

722
T2 TURF
PXTSSR

TRAP

CsCLP)

;BUMP RECORD SIZE COUNTER
;AT 40 SIZE YET
;BR, IF MORE RECORDS TO WRITE

100800868080 08000803088880800868028800008408008080880080000080008008000800

9575
9576
9577
9578
9579 077012
077016
9581 077020
077022
077026
077026
077030
077032
077034
9587 077036

077036

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
1800800880880 0880828082880038800004800828838884080000808080000000008088808

004737
103407
010001
005237

JSR
8Cs
MOV
INC

011104

002212

104456
001323
103305
015564

ERRHRD

230%:

104406

9589
9590
9591
9592

9595
9596
9597
9598
9599

102100

001406

9574

9593
9594

14.0°

:WMRITE DATA RETRY CVCe1,ACK COMMANC

076750
076754
9561 076760
9562 076762
9563 076764
9567 076770

9568

14 JUN 84

PC.REWIND
230¢
RO,R1
FATFLG

ERRNO, T27RWN,EXPREC

CKLOOP

;CALL TAPE REWIND COMMAND

;BR, IF NO PROBLEM
;1SAVE TSER
;BUMP COUNT
;REWIND NOT ACCEPTED

;LOOP IF SELECTED

TRAP

CS$ERHRD

. WORD
.WORD
.WORD

723
T27RWN
EXPREC

TRAP

CsCLP1

1088888888008 8888808888880800808808888080880808880888808855800808¢88008

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
1858008248200

077040
077044
077046
077052
077054
077056
077062
077062

013701
010102
052702
020102
001406
005237

104456

102000
000002

002212

MOV
MOV
8IS

cHe
BEQ
INC

ERRHRD

8 8RR

0 8880888800844 0 0000820820840 0600s00000000

T278FR+6,R1
R1,.R2
o8IT1,R2
R1,R2
2404
FATFLG
ERRNO, T2780T7,EXPREC

;PICK UP XSTO

;SET UP EXPECTED
;SET 80T BIT IN EXPECTED
;DOES EXP = REC'D
;BR, IF EQUAL (OK)
;BUMP COUNT

: TAPE NOT AT BOT AFTER REWIND
TRAP

CS$ERHRD

TSv7

TEST

MARDUWARE TESTS 1 8
7: WRITE DATA RETRY
077064
077066
077070

GO1324
103001
015564

077072
9606 077074

104406
012703
013737

9605 077072

9607 077170

9608
9609
9210
%11
%12
913
9614

9615
9616
9617
9618
919

9620
9621
9622
9623
9624
9628

9629

9%30
9%31
9632
9633
9634
2635
9%36
9637
9%38

MACRO M1113

2408;

000024
003114

14 JUN 84

SEQ 0286

1LOOP IF SELECTED

CxLOow
MOV
MOV

102102

14:17

020. ,R3
FREE,T27R6

724

. WORD
. WORD
. WORD

EXPREC

TRAP

CsCLP1

1STARTING RECORD SIZE

1278017

1STARTING READ BUFFER ADORESS

1000600480000 0800008800400000500008008000000000000000000000000000080000¢0

tREAD DATA ,ACK COMMAND
1000888000000 280000008000008200000000000000000808000000000800006000080¢

077106
077114
077120
077124
077130

077134
077140
077144
077146
077150
077154
077154
077156
077160
077162
077164
077164
077166
077172
077174
077200
077202
077204
077206
077210
077212

2642 077216
077216
077220
077222

077224
9643 077226
077226
9644 077230
9645 077252
9646 077234
9647 077236
9648 077240
9649 077242
9650 077246
9651 077250
077250
9652 077252

012737
012704
010337
010465
004737
016501
012702
020102
001406
005237

100001
102100
102106

102100

2654:

016340
000200

ceP
8EQ
INC

002212

ERRMRD

104456

001325
005204
012136

104406
013702
010304
162704
060204
021403
001410
011401
010302
005237

104456
001326
104766
015564
104406
005724
160204
020403
001360
005723
020327
001317
104406

28084:
003114
000024

MOV
MOV
MOV
MOV
JSR
MOV
MOV

8EQ
MoV

INC
ERRHRD

oy4
TST

3304

ERRNO
, RDERR , PXTSSR

cP
BNE
CxLOOP

sREAD DATA,ACK COMMAND
1SET UP R4 WITH PACKET ADORESS

1SET UP RECORD SIZE IN PACKET
1 ISSUE COMMAND
sWAIT FOR SSR TO SET
;1GET TSSR CONTENTS
sSET UP EXPECTED
sARE THEY EQUAL
;BR, IF O«
1BUMP COUNT
1 TSSR INCORRECT AFTER READ DATA
TRAP

sLOOP IF SELECTED
FREE ,R2
R3,R4
#20. R4

2904
(R4),R1

R3,R2
FATFLG

ERRNO, T270TA ,EXPREC

(R4).

R2,R4
R4 RS

2854
(R3).
265¢

CSERMRD

.WORD
. WORD
.WORD

PKTSSR

TRAP

CsCLP1

1GET BUFFER ADDRESS

725

RDERR

1GET RECORD SIZE
+POINT BACKX TO 1ST RECORD
sPOINT TO 1ST LOC IN BUFFER
sOATA WRITTEN = READ

18R, IF DATA Ox (GOOOD)
tPICK UP BAD DATA
1SET UP EXPECTED
] 8UMP COUNT
tDATA IN BUFFER NOT CORRECT

TRAP

1LOOP IF SELECTED

CxLOO0P
187

3004
:

2804

FATFLG

R2.R4
(R4),R3

2854:

2904:

OSSR, R2
R1,R2

CxLOOoP
MOV
MOV

002212

0100001, T127Px3
#T27PK3
R4
R3, 12752
R4, TSOB(RS)
PC, MAITF
TSSR(RS),R1

CIERRD
726
T270TA

. WOROD
. WORD
. WORD

EXPREC

TRAP

CsCLP1

18UMP TO NEXT ADORESS
+BACK TO RECORD SIZE
1AT END OF RECORD YET
18R, IF MORE OATA TO CHECKX
;8UMP RECORD SIZE
1DONE YET

1BR, IF NOT DONE YET (MORE READS)
1LOOP IF SELECTED
TRAP

csCLPl

TSV? - MARDWARE TESTS 1 8
TEST

9653

WRITE DATA RETRY

MACRO M1113

077252

077252
077252

9654 077254
9655 077262
9656 077264

9657 077270

104403

023727
103402
004737

002212

00001~

017272

9662

9670

9661

sTEST

9663
9664
9665
9606
9667
9668
9669

END

SUBTEST

FATFLG, 015,
9994
PC . CKOROP

55555555353

TRAP

1 IS ERROR COUNT AT 28
1BR, IF LESS THAN 25
sTRY TO DROP THE UNIT

CSESLB

SUBTEST 4

sVERIFIES THAT A WRITE DATA RETRY COMMAND WITH S\B=1
s TERMINATES PROPERLY AND MRITES CORRECT DATA ON TAPE
1(THE WRITTEN RECORD IS READ AND CHECKED). VARIOUS
tBYTE COUNTS AND DATA PATTERNS ARE USED.
$
H
H

9671 077270
077270

077270

077272
077276
077302
077306

104402

004737
004737
004737
012737

BGNSUB

$12>>>>>33353> BEGIN SUBTEST
17.4;

105104
105176
107240
176750

JSR
JSR
JSR
MoV

102.%2

977

PC,T2TREST
PC,.T27RT?
PC,T27RT3
#65000. ,T270LY

1SET
;SET
;SET
$;SET

5>3553>>>33>>

TRAP

COMMAND PACKET
UP OTHER COMMAND PACKETY
UP OTHER COMMAND PACKET
UP DELAY COUNTER

cs8SuUB

;00000800600 00000000008000800080008800000080008¢0000000000000008380000¢

978

9680

9679

s ISSUE CONTROLLER ~SOFT* INITIALIZE

9681

- CARRY BIT CLEAR IF ERROR

10000088000 08008046030000000060000¢00000000000000000628000040008080000

9682

9683 077314

9684 077320

9685 077322
077322
077326
077330
077334
077336

077342
077344

077350

077352
077356
077360
077364
077366
077366
077370
077372
077374

9694 077376
9695 077404
9696

ce
8Lo
JSR

999:
B
H

9686
9687
9688
9692
9693

$>>>55>5355>

L10125:

9659
9660

SEQ D287

ENDSUB

9658

9672
9673
9674
:;S

14 JUUN 84 14:17

004737

103426

012727

000000
013727
000000
005367

001375
005367
001367

005337
001356
005237
010001
104455
001327
003650
012124

013737
012704

016064

10¢:

JSR

8Cs

DELAY

000250

PC.SOF INIT

100 INITIALIZE ON CONTROLLER

250

;OELAY ABOUT

204

’

002116
177772

177756

102132
0022312

002172
101750

101770

20%:

DEC
BNE
INC
MOV
ERRDF

T270LY
10¢
FATFLG
RO,R1
ERRNO, SF IERR, SF IMSG

MOV
MOV

UNITN, T27DSW
#T27PACKET R4

;B8R IF

INIT WAS 0K

.25 SEC

MOV

. WORD
MOV
. WORD
OEC

BNE
DEC
BNE

1BUMP COUNTER
tBR, IF COUNTER NOT DOONE
18UMP COUNT
sCONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT 0Ox
TRAP
. WORD
. WORD
. WORD

1SET UP UNIT (DRIVE) NUMBER
1 SUBROUTINE NEEDS PACKET ADDRESS

0250,(PC).

0]
LSDLY (PC).
0
-6(PC)

4
22(PC)
. 20

CSERDF
727
SFIERR
SF IMSG

TEST

HARDWARE

TESTS

7: WRITE DATA RETRY

969°
9698
9699

9700
9701
9702

9703 077410

9704 077414

9705 07741¢€
9709 077422
9710 077424

077424
077426
077430
077432
9711 077434
077434
9712
9713
9714
9715
9716
9717
9718
9719 077436
9720 077442
9721 077444
9722 077450
9723 077452
9727 077456
077456
077460
077462
077464
9728 077466
077466

9729
9730
9731
9732
9733
9734
9735
9736 077470
9737 077474
9738 077476

9739 077502

9740 077504

9741 077506
9745 077512
077512
077514
077516
077520
9746 077522
077522
9747 077524

14 -UUN 84

14:17

D/
SEQ 0288

1080008000000 00080000040800000000000800080000000000008000800080000000

{WRITE CMARACTERISTICS COMMAND (CALL TO WRTCHR)
1000000000800 008000000080000002000800000800000000000000008000080000000

004737
103407
005237
010001

JSR
acs
INC
MOV
ERRMRD

010752
002212

104456
001330
005054
012124

23¢:

104406

PC,WRTCHR
234
FATFLG
RO,R1
ERRNO,WRTMSG, SFIMSG

CxLOOP

1ISSUE WRITE CHARACTERISTICS
18R, IF COMMAND ISSUED O
1BUMP COUNT
1SAVE CONTENTS OF TSSR

sWRITE CHARACTERISTISC FAILED
TRAP
. WORD
.WORD

. WORD

sLOOP IF SELECTED

TRAP

CIERMRD
128

WRTMSG

SF IMSG

CsCLP)

1663080080000 888888888000880000488000¢0000000¢0000800000800000000000¢

; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
H
100888488088 80888080880880800004004800000000000000000800008000808080080

004737
103411
016501
010004
005237

JSR
8Cs
MOV
MOV
INC
ERRMRD

011104

000002
002212

104456
001331
103305
012136

30¢:

104406

PC.REWIND
304
TSSR(RS),R1
RO,R4
FATFLG
ERRNO, T27RWN,PKTSSR

CKLOOP

1CALL TAPE REWIND COMMAND
;8R, IF NO PROBLEM
;GET TSSR CONTENTS
1GET PACKET ADORESS
;8UMP COUNT
;REWIND NOT ACCEPTED

TRAP

:LOOP IF SELECTED

CSERRD

358

TSV?

MACRO M1113

729
T2TRWN
PKTSSR

TRAP

CsCLP1

100888688880 848880808800084008208800080802800082888380000¢00000000¢800¢

$READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
18000888808000806830008000800888808080800800008000000008800000000¢20009

013701
010102
052702
020102
001406
005237

102000

T278FR+6,R1
R1,R2
#BIT1,R2

BEQ
INC
ERRHMRD

404
FATFLG
ERRNO, 727807 ,EXPREC

cHP
002212

104456
001332
103001
015564
104406
012703

MOV
MOV
8IS

R1,R2

404
:

000024

1PICK UP XSTO
1SET UP EXPECTED
1SET BOT BIT IN EXPECTED
+DOES EXP = REC'D
18R, IF EQUAL (0K)
18UMP COUNT
;:TAPE NOT

AT BOT

AFTER REWIND

1LOOP IF SELECTED
MOV

1STARTING RECORD SIZE

TRAP
. WORD

CS4ERHRO
730
127807

.WORD
. WORD

EXPREC

TRAP

CsCLP1

TSV? - HARDMWARE TESTS 1 8

TEST

WRITE DATA RETRY

9748 077530

9749

013737

003114

MACRO M1113
102102

9750

14-UUN-84 14:17
MOV

FREE,T27w8

SEQ 0289
iSTARTING WRITE BUFFER ADDRESS

1000008000000 0060000008600000000000020000000000800480000000080000040¢

9751

9752

;WRITE DATA,CvCe=1,ACK COMMAND

9754

190000800008 000000008000064000008000220804040000¢80000080000004000808080880¢

9753

9755

9756 077536
9757 077544
9758 077550
9759 077552
9760 077556
9761 077562
9762 077566

9763
9764
9765
9766
9767

077572
077576
077602
077604
077606

9771 077612
077612
077614
077616
077620

9772 077622
9773 077622

012737
012704
010300
004737
010337
010465
O0CA737
016501
012702
020102

001406
005237

140005
102100

102100

65%:

017512
102106
000000
016340
000002
000200

MOV
MOV
MOV
JSR
MOV
MOV
JSR
MOV

MOV
cMP
BEQ
INC

002212

ERRHRD

104456
001333
005111
012136

80¢:

104406

#140005,T27PK3
#T27PK3 RA
R3,RO
PC,FILLMEM
R, 12782
R4, TSDB(RS)
PC.UWAITF

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

ERRNQO,WRTERR,PKTSSR

CKLOOP

tWRITE DATA,CVC=1,ACKX COMMAND
$SET UP R4 WITH PACKET ADDRESS
1SET PATTERN IN CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE
1SET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
sWAIT FOR SSR TO SET
;1GEYT TSSR CONTENTS
1SET UP EXPECTED
sARE THEY EQUAL
tBR, IF Ox
;BUMP COUNT

s TSSR INCORRECT AFTER WRITE DATA
TRAP
CSERHRD
. WORD
731
. WORD
WRTERR
.WORD
PKTSSR

;LOOP IF SELECTED

TRAP

9774

c 00008800068 0008008808000888480000¢20448080888008888885848000800288880

977S

3336

sWRITE DATA RETRY,ACK,SWB=1 COMMAND

9778

9779
9780 077624

9781 077632
9782 077636

9783
9784
9785
9786
9787
9791

077642
077646
077652
077654
077656
077662
077662
077664
077666
077670
9792 077672
077672
9793 077674

9794 077676

g;g 077702
9797

9798

9799
9800

CsCLP1

(8800888040804 0080888800888888840088800080800000408004808800000888888828

012737
010485
004737
016501
012702
020102
001406
005237

111005
000000
016340

020327

001315

MOV
MOV
JSR
MOV
MOV
cHP
8EQ
INC

000002
00020vV

002212

104456
001334
104706
015564

104406
005723

102100

ERRHRD

904 :

TSSR(RS),R1
OSSR ,R2
R1,.R2
904
FATFLG

ERRNQ, T27WRF ,EXPREC

CKLOOP
TS7

000050

#111005,T27PK3
R4 ,TSDB(RS)
PC.WAITF

BNE

1WMRITE DATA RETRY,ACK,SWB=1 COMMAND
s ISSUE COMMAND
sWAIT FOR SSR TO SETY
sGET TSSR CONTENTS
1SET UP EXPECTED
sARE THEY EQUAL
s8R, IF 0K
;18UMP COUNT
$ TSSR

INCORRECT

AFTER WRITE DATA RETRY
TRAP
C4ERHRD
. WORD
732
.WORD
T27WRF

;LOOP IF SELECTED

. WOROD

(R3).

TRAP
;:BUMP RECORD SIZE COUNTER

654

1BR,

R3,#40.

;AT 40 SIZE YET

IF MORE RECORDS TO WRITE

;180088884488888888488888888800080088888088880000800888000008880408008¢

;

s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
:

EXPREC
CsCLP1

F7
TSV? - HARDWARE TESTS 1 8

TEST

7: WRITE DATA RETRY

MACRO M1113

9801

SEQ 0290

1908006800600 0008000080000000000006000480000000000004600500880060844

9802

9803 077704

004737

011104

980S 077712
9806 077716

016501
010004

000002

9804 077710
9807 077720
9811 077724
077724
077726
077730
077732

9812 077734
9813

14-JUN-84 14:17

077734

103411

005237

JSR

PC,REWIND

MOV
MOV

TSSR(RS) ,R1
RO,R4

8cs

002212

INC
ERRMRD

104456
001335
103305

sCALL TAPE REWIND COMMAND

2304

1BR, IF NO PROBLEM

FATFLG
ERRNO, T27RWN,PKTSSR

18UMP COUNT
sREWIND NOT ACCEPTED

1GET TSSR CONTENTS
$GET PACKET ADDRESS

TRAP
. WORD

CS$ERMRD
733

.WORD

PKTSSR

TRAP

CsCLP1

. WORD

012136

230¢:

104406

9814
9815
98.1?
981
9818

CKLOOP

sLOOP IF SELECTED

T2 TRUWN

(6060888600860 80040000000028080808004000080008000080008800608004608045
H
;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XST0)
:
(90020000000 0000000008800000880000000000080800008060080088800080000

9819

9820 077736
9821 077742
9822 077744
9823 077750
9824 0777152
9825 077754

013701
010102
052702
020102
001406
005237

077760
077762
077764

104456
001336
103001

9829 077760

077766
9830 077770
077770
9831 077772
ggg 077776

102000

MOV
MOV
8IS
ce
8EQ
INC

000002
002212

ERRHRD

015564

104406
012703
013737

2404 :
000024
003114

983‘

ERRNO, T2780T ,.EXPREC

CXLOOP
MOV
MOV

102102

T2T8FR+6,R1
Ri,R2
#BIT1,R2
R1,R2
2404%
FATFLG

sPICK UP XSTO
sSET UP EXPECTED
sSET BOT BIT IN EXPECTED
sDOES EXP = REC'D
:BR, IF EQUAL (Ox)
:BUMP COUNT

s TAPE NOT AT BOT AFTER REWIND

TRAP
. WORD
. WORD
.WORD

EXPREC

TRAP
;STARTING RECORD SIZE
;STARTING READ BUFFER ADDRESS

CsCLP]

;LOOP IF SELECTED

620. ,R3
FREE,T27R8

CS$ERHRD
734
127807

;...‘..““.““..“‘.‘.“‘.““"““.‘“‘0‘.‘.““‘..‘.“‘.‘..".

9835
33;{;

:
;READ DATA,ACK COMMAND

9838

(008066000 0000808600060000888000008800000400808000004000880000808008000

9839

9840 100004
9841 100012

012737
012704

9845 100032
9846 100036
9847 100042

016501
012702
020102

9842 100016
9843 100022
9844 100026

9848 100044

9849 100046
9853 100052
100052

100054

100056

010337
010465
004737

001406

005237

104456

001337

005204

100001

102100

102106
000000
016340

000002
000200
002212

102100

265%:

MOV

#100001,T27PK3

sREAD DATA,ACK COMMAND

MOV
MOV
JSR

R3,T27S2
R4, TSDB(RS)
PC,.WAITF

1SET UP RECORD SIZE IN PACKET
; ISSUE COMMAND
sWAIT FOR SSR TO SET

MOV

MOV
MOV
cHp

BEQ

INC
ERRHRD

#T27PK3 R4

TSSR(RS),R1
OSSR ,R2
R1,R2
2804
FATFLG
ERRNO,RDERR,PKTSSR

1SET UP RA WITH PACKET ADDRESS

tGET TSSR CONTENTS
sSET UP EXPECTED
{ARE THEY EQUAL
:BR,

IF 0K

BUMP COUNT
; TSSR INCORRECT AFTLCR READ DATA
TRAP
CS$ERHRD

. WORD
.WORD

73S

RDERR

TSV?
TEST

- HARDWARE TESTS
7:

100060

012136

100070
100072
100076
100100
100102
100104
100106
100110
100112

104406
013702
010304
162704
060204
000303
021403
001410
011401
010302
005237

9854 100062
100062
9855 100064

9856
9857
9858
9859
9860
9861
9862
9863
9864

9868 100116
100116
100120
100122
100124
9869 100126
100126
9870 100130
9871 100132
9872 100134
9873 100136
9874 100140
9875 100142
9876 100144
9877 100150
9878 100152
100152
9879 100154

9880
9881
9882
9883

1 8

WRITE DATA RETRY

100154
100154

100156
100164
100166
100172

MACRO M1113

280$:
003114

000024

285¢%:

14 JUN 84

MOV
MOV
SUB
ADD
SWAB
CHP
8EQ
MOV
MOV

104456

001340
104766
015564

2904:

104406
005724
160204
000303
020403
001356
005723
020327
001315

cHP
BNE
TST
cHP
300¢$:

104406

104403
023727
103402
004737

FREE ,R2
R3,R4

@20. ,R4

R2,.R4

BNE
CKLOOP

ERRNO, T27DTA,EXPREC

017272

cHe
8LoO

000017
999¢
:

JSR

:DATA IN BUFFER NOT CORRECT

TRAP

(R4 ).

R2.R4
R3

R4 ,R3

2854
(R3).

R3,#38.

2654

:3>33>>>3>>>>>

FATFLG, #i5.
9994
PC,CKDROP

9889
9890
9891

sPERFORMING THE “ERASE” PART OF THE OPERATION BY
sPERFORMING THE FOLLOWING SERIES OF STEPS.

;TRY

B0
W

TRAP

CsCLP1

TRAP

CsCLP1

SUBTEST

TO DROP

THE TAPE IS REWOUND AND A SERIES OF RECORDS ARE
WRITTEN WITH THE NORMAL WRITE DATA COMMANC. THIS
SHOULD RESULT IN RECORDS SEPARATED BY THE
STANDARD INTERRECORD GAP.

B¢
e
We
We
®s

9901
9902
9903

9898

9899

9897

T27DTA
EXPREC

736

>>3>335>5>>>>

TRAP

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

:VERIFIES THAT A WRITE DATA RETRY COMMAND IS

9896

END

L10126:

;TEST 7, SUBTEST S

CSERHRD

. WORD
. WORD
. WORD

sBUMP TO NEXT ADDRESS
1BACK TO RECORD SIZE
1PUT R3 BACK INTO SHAPE
;AT END OF RECORD YET
tBR, IF MORE DATA TO CHECK
1BUMP RECORD SIZE
;DONE YET
;BR, IF NOT DONE YET (MORE READS)
;LOOP IF SELECTED

9887

;1.

CHCLPL

1BR, TF DATA OK (GOOO)
iPICK UP BAD DATA
$1SET UP EXPECTED
;BUMP COUNT

TRAP

sPOINT BACK TO 1ST RECORD
sPOINT TO 1ST LOC IN BUFFER
1SWAP BYTES SWB=1 ETC.

9885

9892
9893
9894
9895

PKTSSR

$GET RECORD SIZE

1LCOP IF SELECTED

ENDSUB

002212

;GET BUFFER ADDRESS

. WORD

1DATA WRITTEN = READ

CKLOOP
TST
suB
SWAB

SEQ 0291

1LOOP IF SELECTED

CeLOOP

INC
ERRHRD

002212

14:17

A PROGRAM TIMING VALUE IS CALIBRATED BY REWINDING
THE TAPE AND THEN CONUTING THE NUMBER OF CYCLES
THROUGH A PROGRAMMED LOOP REQUIRED TO SPACE OVER
THE SERIES OF RECORDS WRITTEN IN PREVIOUS
STEP

THE

UN1T

CsESUB

TEST

HARDWARE TESTS 1 8
7: WRITE DATA RETRY

TSV?

MACRO M1113

9904
9905
9906

14 JUUN 84

14:17

SEQ 0292

THE TAPE IS AGAIN REWOUND AND THE SAME
RECORDS WRITTEN AGAIN, THIS TIME USING

OATA RETRY COMMAND.

SERIES OF
THE WRITE

THIS SHOULD RESWT IN

RECORDS SEPARATED BY A LONG INTERRECORD GAP,
o

9913
9914
9915

THE TAPE IS AGAIN REWOUND, THE SPACING COMMAND
ISSUED, AND THE NUMBER OF TIMMING LOOP CYCLES
COUNTED TO COMPLETE THE OPERATION.

9907

9908
9909
9910
9911
9912

THE TWO LOOP COUNTS ARE COMPARED, CHECKING
THAT THEY DIFFER BY A SIGNIFICANT AMOUNT.

TO SEE

9916

9917
9918
9919

9920
9921 100172

100172
100172
100174
100200
100204
100210
100214
100220
100224

9922
9923
9924
9925
9926
9927
9928
9929
9930
9931
9932
9933
9934
9935
9936 100232
9937 160236
9938 100240
100240

100244

9939
9941
9945

9947
9948
9949

100246
~00252
100254
100260
100262
100266
100270
100274
100276
100302
100304
100304
100306
100310
100312
100314

100322

BGNSUB
104402
005037
005037
005037
004737
004737
004737
012737

002214
102126
102130
105104
105176
105240
176750

CLR
CLR
CLR

JSR

JSR
JSR
MOV

102132

1008000808085

§%>>33>3>35>> BEGIN SUBTEST
17.5:

5>5>553555335>

TRAP

csBSUB

INTRECV
T27CNT
T2TCNY

tINTERRUPT INDICATOR
sTIMER FOR WRITE DATA SPACING
;TIMER FOR WRITE DATA RETRY SPACING

PC.T27RT2
PC,T27RT3
#65000. , T270LY

sSET UP OTHER COMMAND PACKET
;SET UP OTHER COMMAND PACKET
$1SET UP DELAY COUNTER

PC.T27TREST

1SET COMMAND PACKET

880 0000880080002 8880080842 4000808880056 080040dses00s

s ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR
L)

1888808008800 80888884408080888880880880004500884888088080804880048808

004737
103426

016064

012727
000000
013727
000000

000250

005367
001375
005367
001367
005337
001356
005237

010001

10¢:

JSR
8CS
DELAY

PC,SOF INIT
204
250

100 INITIALIZE ON CONTROLLER
t8R IF INIT WAS OK
;:DELAY ABOUT .25 SEC

MOV

.WORD

002116

#250,(PC).

MOV

LSDLY,(PC)

177772

0eC

-6(PC)

177756

DEC
BNE

.MORD

BNE

102132

OEC
BNE
INC
MOV
ERROF

002212

104455
001341
003650
012124
013737

002172

012704

101750

101770

20¢%:

T270LY
104
FATFLG
RO,R1
ERRNO, SFIERR, SFIMSG

;BUMP COUNTER
;BR, IF COUNTER NOT DONE
;8UMP COUNT
s CONTENTS OF TSSR REGISTER
iFATAL ERROR TSSR WAS NOT OK
TRAP

.WORD
.WORD
.WORD

MOV

UNITN, T2705W

1SET UP UNIT NUMBER

MOV

0T27PACKET ,R4

1 SUBROUTINE NEEDS PACKET ADDRESS

.-4

-22(PC)
.-20

CS$EROF

737
SFIERR
SFIMSG

TSv?

TEST

HARDWARE TESTS 1 8
7: WRITE DATA RETRY

995¢
9951
9952
9953
99%4
9955
9956

9957 100326
100332
100334
100340
100342
100342
100344
100346
100350
9965 100352
100352
9958
9959
9963
9964

9977

14:17

SEQ 0293

WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
180888800000 8508888088888¢¢ 0084002880880 80840400808082040004880000084

004737

103407
005237

010001

JSR
8CS
INC
MOV
ERRHRD

010752
002212

104456
001342
005054
012124

23s:

104406

PLC,WRTCHR
234

FATFLG
RO,R1
ERRNO,WRTMSG, SFIMSG

s ISSUE WRITE CHARACTERISTICS

s8R, IF COMMAND ISSUED Ox
:8UMP COUNT
;SAVE CONTENTS OF TSSR

sWRITE CHARACTERISTISC FAILED
TRAP
. WORD
. WORD
. WORD

;LOOP IF SELECTED

CKLOOP

TRAP

CSERHRD
738

WR TMSG
SF IMSG

CsCLP1

6288888828884 8888808808 8882438000084 0050040880000880000008088080408

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

9969
9970

9973 100354
9974
9975
9976

14 JUN 84

1608000 RC00E00ARARERARARARRREAAACAR00040000002000000800000800000000

9967

9971
9972

MACRO M1113

(8880864888808 888880082040888¢08280430808080880808000080000888800080

0C4737

011104

016501
010004

000002

103411

005237

JSR
8CS
MOV
MOV
INC
ERRHRD

002212

104456
001343
103305
012136

PC.REWIND
304
TSSR(RS5) ,R1
RO,R4
FATFLG
ERRNO, T27RWN,PKTSSR

;:CALL TAPE REWIND COMMAND
18R, IF NO PROBLEM
1GET TSSR CONTENTS
:GET PACKET ADORESS

1BUMP COUNT

:REWIND NOT ACCEPTED

CS$ERHRD

739
T27RWN
PKTSSR

304:

104406

;LOOP IF SELECTED

CKLOOP

CsCLP1

186088888808 88808088208488880808038088308000888808803000088800088080008

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
[

(6888808885888 38888838008088¢0080802088088088808800088838030800800040

100406
100412
100414
100420
100422
100424
100430
100430
100432
100434
100436
10000 100440
100440

013701
010102
052702
020102
001406
005237

MOV

102000

MOV

8IS
cre
8EQ
INC
ERRHRD

000002
002212

104456
001344
103001

015564

104406

40¢:

CKLOOP

T278FR+6,R1

R1,R2

#8IT1.,R2
R1,R2
404
FATFLG
ERRNO, T27B0T,EXPREC

1PICK UP XSTO
1SET UP EXPECTED
+SET BOT BIT IN EXPECTED
;DOES EXP = REC'D
1BR, IF EQUAL (0K)
;BUMP COUNT
; TAPE NOT

BOT

;LOOP IF SELECTED

AFTER REWIND
TRAF

-$ERHRD

740
127807

. WORD
. WORD
. WORD

EXPREC

TRAP

CsCLP1

TSV7? - MARDWARE TESTS 1 8
7: WRITE DATA RETRY
TEST
10001 100442
10002 100446

10003

012703
013737

000144

003114

MACRO M1113

JUUN 84

MOV

102102

MOV

14:17

SEQ 0294

T REE, T27W8

;NUMBER OF

RECORDS

TO BE WRITTEN

:STARTING WRITE BUFFER ADDRESS

1008004808804 04 4804000000808 RRAS LS00 0CREASA0S000042408020000800000

10004
10005
10006

10007
10008
10009
10010
10011
10012
10013
10014
10015
10016
10017
10018
10019
10023

"WRITE DATA,ACK,CVC=1 COMMAND
'
15880048000 RARARES

100454
100462
100466
100474
100500
100504
100510
100514
100516
100520
100524
100524
100526

100530
100532
100534
100534
100536
100540

012737
012704
012737
010465
004737
016501
012702
020102
001406
005237

140005
102100

000024

102100

65%:

102106

016340

000200

012136

70%:

104406
005303
001345

0400004002000 0000s

9140005, T27PK3

;WRITE DATA,ACK,CvC=1 COMMAND

MOV
MOV
JSR
MOV
MOV
crMe

#20.,T275Z
R4,TSOB(RS)
PC,.WAITF
TSSR(RS),R1
#SSR ,R2
R1.R2

1SET UP RECORD SIZE IN PACKET
: ISSUE COMMAND
tMAIT FOR SSR TO SET
sGET TSSR CONTENTS
$SET UP EXPECTED
1ARE THEY EQUAL

INC

FATFLG

ERRHRD

104456
001345
005111

0EE00424800VSE

MOV

8EQ

002212

R0 RESRA0ER 000

#T27PK3,R4

704

ERRNO,WRTERR,PKTSSR

CKLOOP

DEC
BNE

;SET UP R4 WITH PACKET ADORESS

1BR,

IF 0K

:8UMP COUNT

; TSSR INCORRECT AFTER WRITE DATA
TRAP

;LOOP IF SELECTED

R3
654

CS$ERMRD

.WORD
.WORD
.WORD

741
WRTERR
PKTSSR

TRAP

CsCLP1

;DEC RECORD COUNTER
18R, IF MORE RECORDS TO WRITE

1860480480808 0480888488888¢084838888
800008880430 048800304000000040s

: ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
H

186558484880 88888040 808888888808 84 0008288088800 0 0880080800000 04 R0

10035

100542

100550
10037 100554
10038 100556
10042 100562
100562

100566
100570
10043 100572
100572
10044
10045
10046
10047
10048
10049
10050
10051 100574
10052 100600
10053 100602

004737
103411
016501
010004
005237

JSR
8CS
MOV

011104
000002

MOV
INC
ERRHRD

002212

104456
001346
103305
012136

130¢:

104406

PC,REWING
1304
TSSR(RS),R1

RO,R4
FATFLG
ERRNO, T27RWN,PKTSSR

CxLOOP

;:CALL TAPE REWIND COMMAND
1BR, IF NO PROBLEM
;:GET TSSR CONTENTS
tGET PACKET ADORESS
:BUMP COUNT
;REWIND NOT ACCEPTED

;LOOP IF SELECTED

TRAP

C$ERHRD

.WMORD
.WORD

.WORD

742
T27RWN
PKTSSR

TRAP

CsCLPL

(868888085050 8888088883848888880808848888888883442804030848080808040000

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
:

(080008080 4888808008808888488888888883A08808808085888308880048008048

013701
010102
052702

102000

MOV

000002

8IS

MOV

T27BFR+6,R1

+PICK UP XSTO

#8IT1,R2

:SET BOT BIT IN EXPECTED

R1,R2

:SET UP EXPECTED

TSV7?7
TEST

- HARDWARE TESTS 1-8
7: WRITE DATA RETRY

100606
100610
100612
100616
100616
100620
100622
100624
10061 100626
100626
100630
10062

10054
10055
10056
10060

10063 100634

020102
001406
005237

MACRO M1113

14 UUN 84
cMe
BEQ
INC
ERRHRD

002212

104456
001347
103001

015564

104406
012704
012737

1404
:

102100
000010

R1,R2

1404

FATFLG

ERRNO, T2780T ,EXPREC

CxLooP
MOV
MOV

102102

14:17

0T27PK3
R4
#10,T27R8B

TRAP

CsCLP1

:SET UP PACKET ADDRESS
:SET UP RECORDS TO SPACE OVER

100672
100674
100700
100702
100706
100710
100714
100720
100722
100726
100732
100734
100736
100742
100742
100744
100746
100750
100752
100752

102100

MOV
MOV
INC
DELAY

012737
010465
005237

140010
000000
102126

012727

000001

013727
000000
005367
001375
005367
001367
016501
032701
001755
016501

002116

EODLY.(PC)o

177772

-6(PC)

177756

-22(PC)

000000

012702
020201
001406
005237

150%:
:
1524

0140010, T27PK3
R4,TSOB(RS)
T27CNT
1

sACK,CVC=1,SPACE FORWARD COMMAND
s ISSUE COMMAND
1BUMP TIMER
;DELAY ABOUT 100US

81.(PC)0

-4

00000¢
000200

MOV

8IT

8EQ
MOV
MOV
cre
8EQ
INC
ERRHRD

000002
000200

002212

104456
001350
104547

TSSR(RS),R1
08IT7,R1

1524

TSSR(RS),R1
OSSR ,R2
R2,R1
1604
FATFLG

ERRNQ, T27SCF ,PKTSSR

;GET TSSR
;sCHECK FOR TSSR'S SSR SET
sKEEP COUNTING UNTIL SET
:GET STATUS FROM TSSR
:SET UP EXPECTED

012136

160¢:

104406

CKLOOP

:BR, IF ALL IS WELL
1BUMP COUNT
1 SPACE FORWARD DIDN T WORK OUT

:LOOP IF SELECTED

TA4
T27SCF
PKTSSR

TRAP

CsCLP1

: ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
1800600880808 80800038000888300880085830008880880480888488838208¢0884480¢

004737
004737

103407

010001

011104
016426

JSR
JSR
8CS
MOV

PC,REWIND
PC,CHKTSSR

170%

RO,R1

C$ERMHRD

.WORD
. WORD
. WORD

1388088002888 08088880808000508800808088800880008888800840080480008040

100754
100760
100764
100766

.-20

:WAS EVERYTHING 0K

TRAP

10091
10092

10095
10096
10097
10098

127807
EXPREC

743

1008080800808 08088200808008880800080840088088800808880888888088440834

10090

10093
10094

CS$ERHRD

. WORD
. WORD
. WORD

10071 100642
10072 100650
10073 100654
10074
100660
100664

10088
10089

AFTER REWIND
TRAP

:ACK,CVC=1,SPACE FORWARD COMMAND

10070

10087

; TAPE NIT AT B80T

1080840802800 008482580000888088044008808880004088800¢08008008808¢084%¢4

10066
10007
10068
10069

10075
10076
10077
10078
10079
10080
10081
10082
10086

;DOES EXP = REC'D
18R, IF EQUAL (0)
;BUMP COUNT

;sLOOP IF SELECTED

10064

10065

SEQ 0295

:CALL TAPE REWIND COMMAND
+SEE HOMW TSSR IS
;BR, IF NO PROBLEM
» SAVE TSSR

TSV?

TEST

- HARDWARE TESTS 1 8
7:

WRITE DATA RETRY

10099 100770
10103 100774
100774
100776
101000
101002
10104 101004
101004
10105
10106
10107
10108
10109
10110
10111
10112 101006
10113 101012
10114 101014
10115 101020
10116 101022
10117 101024
10121 101030
101030
101032
101034
101036
10122 101040
101040
10123 101042
10124 101046
10125

10126
10127
10128
10129
10130
10131
10132 101054
10133 101062
10134 101066

10135
10136
10137
10138
10139
10140

101074
101100
101104
101110

101114
1C1116
10141 101120
10145 101124
101124
101126

101130
101132
10146 101134
101134
10147 101136
10148 101140
10149

005237

MACRO M1113

14 UUN 84

INC
ERRHRD

002212

14:17

FATFLG
ERRNO, T27RWN,PKTSSR

SEQ 0296

:BUMP COUNT
;REWIND NOT ACCEPTED
TRAP

104456

001351
103305
012136

170¢:

104406

CKLOOP

:LOOP IF SELECTED

C$ERMRD

.MORD
.WORD
.WORD

745
T27RWN
PKTSSR

TRAP

CsCLPI

10600080000 000000000000000800000000000000000000000000808008004808088000

{READ MESSAGE BUFFER EXTENDED STATUS REGTSTER ZERO (XSTO)
;
(0080000800 0000000040000000000000800000808800080040000048800408080004

013701
010102
052702
020102
001406
005237

102000

MOV

000002

8IS

001352
103001
015564
104406
012703
013737

000144

003114

102102

#B8IT1,.Re

1SET BOT BIT IN EXPECTED

cMP
BEQ

R1,R2
1754

CRRHRD

104456

sPICK UP XSTO

R1,.R2

INC

002212

T278FR+6,R1

MOV

175¢:

CKLOOP

177¢:

MOV
MOV

FATFLG

ERRNO.T27BOT,EXPREC

#100.,R3
FREE, T27uB

1SET UP EXPECTED

1D0ES EXP = REC'D
18R, IF EQUAL (0K)

18UMP COUNT

: TAPE NOT AT BOT AFTER REWIND
TRAP
.WORD
.WORD
.WORD
;LOOP IF SELECTED
TR

s STARTING RECORD SIZE
:STARTING WRITE BUFFER ADDRESS

CS$ERHRD
746

727807
EXPREC

CsCLPL

;0080006000880 0000080000800008088000888080808088830040884480688880080¢

:WRITE DATA,CVCe1,ACK COMMAND
1000600000000000008400080088040000088000000088000050008880808800040480

012737
012704
012737
010465
004737
016501
012702
020102
001406
005237

104456
001353
005111
012136
104406
005303
001342

140005
102100

000024
000000

102100

MOV
MOV
MOV

102106

000002
000200

180s:

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

tWAIT FOR SSR TO SET
1GET TSSR CONTENTS
:SET UP EXPECTED

R4, TSDB(RS)

cHe

R1,R2

BEQ
INC
ERRHRD

002212

;WRIYE DATA,CVC=1,ACK COMMAND
$1SET UP R4 WITH PACKET ADORESS
$1SET UP RECORD SIZE IN PACKET

MoV

JSR
MOV
MOV

016340

€140005, T27PK3
OT27PK3,R4
020.,127S2

1804
FATFLG
ERRNO,WRTERR,PKTSSR

CxLOOP
DEC

BNE

: ISSUE COMMAND

;ARE THEY EQUAL

:BR, IF OK
18UMP COUNT
; TSSR INCORRECT AFTER WRITE DATA
TRAP
CSERHRD
747
.WORD

;LOOP IF SELECTED
R3

1773

1COUNT NUMBER OF RECORDS
iBR,

.WORD
.WORD

WRTERR
PKTSSR

TRAP

CsCLP1

IF MORE RECORDS TO WRITE

MTSv7?
TEST

HARDWARE TES'S 18
7: WRITE DATA RETRY

10150
10151
10152
10153
10154
10155
10156
10157
10158
10159
10160
10164

10165
10166
10167
10168
10169
10170
10171
10172
10173
10174
10175
10176
10177
10178
10179
10183

MACRO M1113

14 UUN 84

14:17

SEQ 0297

108800086006 ¢0000000080028820¢000008088004000¢40800080800000080880000800¢

:TSSUE REWIND COMMAND TO SELECTED TAPE DRIVE
1008088808084 8088000880888088080880808800008080080080000888000000000¢

101142
101146

101150
101152
101156
101162
101162
101164
101166
101170
1C1172
101172

004737
103411

010004
016501
005237

JSR
8Cs

011104

MOV
MCV

000002
002212

INC
ERRHRD

PC.REWIND

1824

RO, R4
TSSR(RS)
,R;
FATFLG

ERRNO, T27RWN,PKTSSR

;sISSUE REWIND
;BR, IF ALL IS WELL
:GET PACKET ADORESS
tGET TSSR CONTENTS
;BUMP COUNT
sREWIND FAILED

104456

001354

103305
012136

182¢4:

104406

CxLOOP

;:SELECT LOOP MAYBE

TRAP

C $ERHRD

. WORD
.WORD
. WORD

748
T2 7RWN
PKTSSR

TRAP

CsCLP}

1000000888088 230880808008028808800580488083¢08008800008388800840888840800

:ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
;8IT 15 SETS OIRECTION - O=FORWARD

1=REVERSE

1000080685008 5808830080080088800¢00888200888008800000600808¢8008000880s

101174
101200
101204
101206
101210
101214
101220

101220
101222
101224
101226
10184 101230
101230
10185 101232
10186 101236
10187
10188
10189
10190
10191
10192
10193
10194 101244
10195 101252
10196 101256
10197 101264
10198 101270
10199 101274
10200 101300
10201 101304
10202 101306

012703
004737
103411
010004
016501
005237

MOV

000001
010556

JSR

8Cs
MOV
MOV
INC
ERRHRD

000002
002212

104456
001355

104547
012136

104406
012703
013737

185¢:
000144
003114

RO.R4
TSSR(RS),R1

FATFLG

ERRNO, T27SCF ,PKTSSR

:SPACE 1 RECORD FORWARD
+ ISSUE SPACE COMMAND

;BR, IF COMMAND OK
:GET PACKET ADDRESS
;:GET TSSR STATUS
:BUMP COUNT

:SPACE FORWARD COMMAND FAILED
TRAP

CxKLOOP
MOV
MOV

102102

a1.,R3

PC,SPACE
185¢

:LOOP IF SELECTED
0100. ,R3

FREE.T27uB

749
T27SCF
PKTSSR

TRAP

CsCLP1

tNUMBER OF RECORDS TO BE WRITTEN
;STARTING WRITE BUFFER ADDRESS

10000000060 00000050000800000800808000080000088800000000008080000800008000

{WRITE DATA RETRY,ACK COMMAND
;100800806080 88000800000800808080080080008008000088800008000080000080080004800

012737
012704
012737
010465
004737
016501
012702
020102
001406

101005
102100

000024

016340
000002
000200

102100
102106

190$.

MOV
MOV
MOV
MOV
JSR
MOV
MOV
Crp
13)

0101005, T27Px3

0T27PX3
R4
020.,727S2
R4, TSOB(RS)

{WRITE DATA RETRY, ACK COMMAND
;SET UP R4 WITH PACKET ADDRESS
:SET UP RECORD SIZE
; ISSUE COMMAND
SSR

TO SET

PC.WALITF

;WAIT FOR

TSSR(RS),R1

iGET

TSSR CONTENTS

;ARE

THEY

iBR,

IF O

OSSR ,R2
R1,R2
200s

;SET UP EXPECTED
EQUAL

CSERHRO

.WORD
.WORD
.WORD

IN PACKET

TSV?

MARDWARE

TEST

TES'S

MACRO M1113

AN 854

14:17

INC

FATFLG

SEQ 0296

MRITE DATA RETRY

10203 101310

005237

101314

104456

102C7 101314

101316
101320
101322

001356
103%64)
012136

101324

104406

10208 101324

10209 101326
0210

iozll

013737

002212

ERRMRD

200s8:

003114

102102

10212

ERAND, T27WDC . PXTSSR

CKLOOP

MOV

;0P COUNT

;TSSR INCORRECY AF TER WRITE DATA
TRAP

;LOOP IF SELECTED

FREE.T27wB

S0
T2 7WDC
PHTSSR

TRAP

CsCLP!

sSTARTING WRITE BUFFER ADDRESS

;100080005000 008000800000800000800800000088000080000000¢000080600080000
:

10213

;MRITE DATA CvCe]l, ACK COMMAND

10214

10215

100000008000 0880880088000088¢00080800090800000800008080000008000008000

10216

10217 101334
10218 101342
10219 101346

012737
012704
012737

140005
102100
000024

10221 101360
10222 101364
1022% 101370

004737
016501
012702

016340
000002
000200

10220 101354

10224 101374
10225 101376

10226 101400
10230 101404
101404
101406
101410
101412
10231 101414

101414
10232 101416
iggg} 101420

010465

020102
001406

005237

000000

102100

MOV
MOV
MOV

102106

104456
001357
005111
012136

;WAIT FOR SSR 1O SET
1GET TSSR CONTENTS
;SET UP EXPECTED

FATFLG

;8UMP COUNT

R3
190

TRAP
CsCLPL
;:BUMP DOWN RECORD COUNTER
:BR, IF MORE RECORDS TO WRITE RETRY

cp
8EQ

R1.R2
210¢

INC

ERRNO,.WRTZRR,PKTSSR

<KLOOP

DEC
BNE

10235

PC.MAITF
TSSR(RS),R1
#5SR R

R4, TSDB(RS)

ERRHRD

210%:

104406
005303
001311

;WRITE OATA,CvCe=1,ACK COMMAND
;SET UP R4 WITH PACKET ADDRESS
:SET UP RECORC SIZE IN PACKETY

MCV

JSR
MOV
MGV

002212

#140005, T127PK3
oT27PK3 R4
020.,127S2

: ISSUE COMMAND

;ARE
:BR,

THEY EQUAL
IF 0K

; TSSR INCORRECT AFTER WRITE DATA
TRAP
CS$ERHRD
. WORD
751
.WORD
WRTERR
. WORD
PKTSSR
;LOOP IF SELECTED

;0808808088088 8008880888808388003388883084008080808880080080000008S

10«36
igggz

H
;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

18239
10240
10241
10242
10243
10244
10245
10249

0808848880088 8088888380285820888840888888088880084083000880088828808
101422
101426
101430
101434
101436
101442
101442
101444
101446

101450
10250 101452
101452
10251
10252

10253

CIERRD

. WORO
. WORD
. WORD

004737
103411
018501
010004
005237

104456
001360
103305
012136

104406

011104

JSR
8CS
MOV
MOV
INC
ERRHRD

000002
002212

2304 :

CKLOOP

PC.REWIND
2304
TSSR(RS5),R1
RO,R4
FATFLG
ERRNO, T27RWN,PKTSSR

;CALL TAPE REWIND COMMAND
;BR, IF NO PROBLEM
;GET TSSR CONTENTS
1GET PACKET ADDRESS
;BUMP COUNT
;REWIND NOT ACCEPTED
TRAP
. WORD
.WORD

;LOOP IF SELECTED

.WORD

CS$ERHRD
752
T27RUWN
PKTSSR

TRAP

CsCLP1

(088885405548 805800 5200004088808 08888 0050880088880 08008082000000588

TSv?
TEST

HARDMARE TESTS 1-8
7: WURITE DATA RETRY

10254
10255
10256
10257
10258 101454
10259 101460
10260 101462
10261 101466
10262 101470
10263 101472
10267 101476
101476
101500
101502
101504
10268 101506
101506
10269 101510
10270 101514
10271
10272
10273

MACRO M1113

101622

10294

10295
10296
10297
10298

101624
101626
101630
101632
101632
101634
101640
101644
101646

SEQ 0299

1READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxS70)
1000000008080 0900000¢80880800008400800000008088000000000¢0000000006008000¢

013701

010102
052702
020102
001406
005237

MOV

102000

MOV
8IS

000002

8EQ

INC

002212

ER-HRC

104456
001361

T278FR«6,R1

sPICK UP XSTO
1SET UP EXPECTED

R1,R2

;O0ES EXP = REC'D
18P, IF EQUAL (Ox)
;1BUMP COUNT

R1,R2
#BIT1.R?
2404

FATFLG

ERRNO, 127807 ,EXPREC

1SET BOY BIT IN EXPECTED

s TAPE NOT AT B80T

AFTER REWIND

015564

104406
012704
012737

TRAP

CS$ERHRD

. WORD
. WORD

127807
EXPREC

TRAP

CsCLP)

.MORD

103001

2404 :
102100
000010

sLOOP IF SELECTED

CxLOoP

MOV

102102

0T27PK3 R4

010,T27R8

$;SET UP PACKET ADORESS

753

;1SET UP RECORDS TO SPACE OVER

1000000080000 0880808800000800008080800000808000000008080088400000000000

ACK,CVC=1.SPACE FORMARD COMMAND

10274

10275
10276
10277
10278 101522
10279 101530
10280 101534
10281 101540
101540
101544
101546
101552
101554
101560
101562
101566
10282 101570
10283 101574
101600
10285 101602
10286 101606
10287 101612
10288 101614
10289 101616
10293 101622

14 AN-84 14:17

H
1000000600808 0000800000000002080080008000800800000800000000000500000

012737
010465
005237

140010
000000

012727
000000
013727
000000
005367
001375
005367
001367
016501
032701
001755
016501
012702
020201
001406
005237

000001

102130

102100

2504
2524 :

€140010,727PK3
R4, TSOB(RS)
T27CNY
1

sACK,CVC=1,SPACE FORWARD COMMAND
1 ISSUE COMMAND
;:8UMP TIMER
;OELAY ABOUT 100US

MOV

.MORO

MOV

177772

DEC
BNE
0EC
BNE

177756

MOV

000002
000200

BIv

BEQ
MOV
MOV
ce
B8EQ
INC

000002
000200

002212

ERRHRD

001362
104547
012136

2604 :
102126
102130

TSSR(RS
), R}

#MIT7,R]1

2524
TSSR{RS),R1
OSSR, R2
R2,R1
2604
FATFLG

ERRNO, T27SCF ,PKTSSR

CxL00P
MOV

MOV
SuUB
suB

sGET TSSR
sCHECK FOR TSSR'S SSR SET
tXKEEP COUNTING UNTIL SET

T27CNU,R2
R1,R2
R1,R2

LIOLY (PC).

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

t1GET STATUS FROM TSSR

1SET UP EXPECTED

sWAS EVERYTHING Ox

tBR, IF ALL IS WELL
1BUMP COUNT
;1SPACE FORWARD DIDN'T WORX OUT
TRAP

;LOOP IF

T27CNT R

o,(PC).

.MORD

002116

104456

104406
013701
013702
16010¢
160102

MOV
MOV
INC
DELAY

SELECTED

CSERMRD

. WORD
. WORD
. WOROD

754
12750
P TSSR

TRAP

CsCLP)

1 TIME FOR WRITE SPACING
1 TIME FOR WRITE RETRY SPACING
1GET'EM PRETTY CLOSE
1GET EM PRETTY CLOSE

HARDMWARE
7

WRITE

10299
10300
10301
10302
10303
10304
10308

101650
101652
101656
101662
101664

10313

10314
10315
10316
10317
10318
10319
10320
10321
10322
10323
10324
10325
10326
10328
10330
10331
10332
10333
10334
10335
10336
10337
10338
10339
10340
10341
10342
10343
10344
10346
10348
10349
10350
10351
10352
10353

101722

101726
101730

101734
101734
101734
101736

MACRO M1113

160102
042702
042701
020102
002006
005237

SuB
8IC

000077
00077

8IC
cHe
8GE
INC
ERRMRD

002212

104456
001363
103074
015564

004737
103002
000137

14:17
R]l,R2
e77,R2

0000777,R1

R1.R2

3008

FATFLG

ERRNO, T27TIM, EXPREC

SEQ 2300

tGET'ETMM PRETTY CLOSE

;CLEAR LOW 6 BITS
$tSETTING UP CONSTANTS
;1CHECK FOR DIFFERENCE
1BR, IF GOOD 868686 CHECKX 2088
1BUMP COUNT
1 TIME WAS NOT DIFFERENT ENOUGH
TRAP

300 :

104406

104403
023727
103402
004737

14 JUN 84

CxL 00P

sLOOP IF SELECTED

ENDSUB

scccecceccccccc

END

002212
017272

000017
9994
:

016546

075266

cp
8Lo
JSR

FATFLG,015.

JSR

PC,TSTLOOP

999

PC.CKDROP

1634

104432
003324

755
12717IM
EXPREC

TRAP

csCLPY

TRAP

CsESLB

»>>5>3>355>>>

1 IS ERROR COUNT AT 25
tBR, IF LESS THAN 25

sTRY TO DROP THE UNIT

163

T27L00P

100 WE NEED TO ITERATE TEST
18R, IF NO LOOP REQUIRED
1EXECUTE AGAIN

EXIT

TS7

tALL DONE THIS TESTY

8CC

CIERYRD

.WORD
. WORD
.MORD
SUBTEST

L10127:

TRAP

. WORD

CSEXIT

L10122-.

‘0

sLOCAL STORAGE FOR THIS TEST
101740
101750
101730
101752
101754
101756
101760
101760
101762
101764
101766
101770
101772

100004
101760
000000
000012

101772

000000
020024
000000
000000

.BLKB

10-<. -TSVRET»

55885 5388

10311
10312

100004

T27PACKET
:

T270ATA:

T270Su:
T278FR:

.BLKW

T27DATA
0
10.
T278FR
0

20.
0
0

2s5.

1COMMAND PACKET FOR TEST

IWRITE CHARACTERISTICS COMMAND,

WITH

1AODRESS OF CHARACTERISTICS BLOCK

1STARTING VALUE OF BLOCK SIZE
s CHARACTERISTICS DATA BLOCK
1 ADORESS OF MESSAGE BUFFER

tLENGTH OF MESSAGE BUFFER

1 SELECT DRIVE O

1MESSAGE BUFFER

sMRITE SUBSYSTEM MEMORY COMMAND PACKET
102054
102060
102060
102062
102064
102066

100006
102110

127PK2:

10310

101672
101€72
101674
101676
101700
101702
101702
101704
101704
101704
101706
101714
101716

5588

10309

101666

TESTS

DATA RETRY

TSVv?
TEST

10-<.-TSV2ET>

100006

T278F2

0
6.

1WRITE SUB SYS MEM COMMAND,
AND ACK
1 ADORESS OF SELECTY BLOCK DATA
1SIZE OF DATA PACKET

ACK

()&
TSv?
TEST

MARDWARE TESTS 1 8
7: WRITE DATA RETR)

10355
10357
10358
10359
10360
10361
10362
10363
10364
10365

10366
10367
10368
10369
10370
10371
10372

102070
102100
102100
102102
102102
102104
102106

MACRO M1113

14 JUN 84

. WORD

100005

sREREAD COMMAND,

.WORD

SREE

1 ADDRESS OF

.WORD

:SIZE OF BUFFER (EXTENT)

T278F2:
T278S0:
1278S1:

.BYTE
.BYTE

1BSELO AREA
s1BSEL1 AREA

T27S3:

. WORD

10
200
0
0

.WORD

T27S2:

000000

.EVEN

102110
102110
102111
102112
102114

T2752:

10373

10374

10375
10376
10377 102116
10378 102120
10379 102122

10380 102124
10781
10%82
102126
10384 102130
10385 102132
10386
10387
10388

10389
10390
10391
10392
10393 102134
10394 102222
10395 102271
10396 102366
10397 102450
10398 102520
10399 102575
10400 102656
10401 102712
10402 103001
10403 103074
10404 103151

103230

103305
103354

103427
103476
103551
103641
103714

TSV2&7>

10 <,

T27RB:
T27W8:

003114
00006

SEG 0301

.BLKB

T27PK3:

100005

14:17

.WORD

AND ACK

WRITE BUFFER

$sSEL 2 AREA
1DATA AREA

.EVEN

s TAPE MOTION PACKET COMMAND VALUES
100205
100605
102205
177777

T2TRN:
T27TWOR;
T27CON:

000000
000000
000000

T27CNT
T2TCNU:
T270LY:

100205
100605
102205

{REREAD DATA (NEXT)
{REREAD DATA RETRY
sWRITE CONTINOUS

177777

1END OF DATA

1 TAPE

;TAPE TIMER COUNTER STORAGE AREA

TIMER

COUNTER

STORAGE

AREA

1OELAY COUNTER

tLOCAL TEXT MESSAGES FOR TEST

124
124
122
120
122
124
111
124
124
127

122
124
122
122
124
104
124

124
103

160

123
122
123
102
123
154
122
123
160
111
122

123
167
115
123
151
123
123
103

T2TWNG:
T27TROF:
T27RRF
;
T27SC:
T2TLOR:
T2TOF;

.ASCIZ

'Tape Position Incorrect After REREAD Previous (OPP=1)
'TSSR Incorrect After READ DATA Commend’

‘REREAD Previous (Spece Reverse, Resd Forward) Commend Failed’
'POSITION (Spece Commerd) Feiled, TSSR Not Correct’
‘RIB NOT SET AFTER READ REVERSE INTO BOT'
*TSSR Not Correct After Illegel Mode Bits Set’
‘Illegal Mode Bits, Failed To Set ILC Bit In XSTO'
'REREAD COMMAND Not Accepted’
'TSSR Not Correct After WRITE DATA RETRY Commend,At BOT’
‘Tape Not At BOT After REWIND Commend (BOT Not Set In XSTO)
'MRITE DATA RETRY''S Ersese Tape Not Long E
'
'‘REREAD DATA OVFER EOT GAVE NO TAPE STATUS ALERT'

*TSSR Not Correct After REREAD COMMAND Re ject'
'‘Remind (POSZTION) Command Not Accepted’

'‘RAM Error, Correct Deta Pattern Not In Rem’

.ASCIZ
.ASCIZ
ASCIZ
.ASCIZ

‘TSSR Init.

Failed After REREAD COMMAND'

‘Orive 7 Select Feiled To Set “OFL” In TSSR’

'TSSR Not Correct After REREAD DATA Command, SWB B8it Set’
'TSSR Not Correct After REREAD DATA Commend’
'CVC Set, Didn''t Reset VCK In Messege Buffer’

MACRO M1113

TSV? - HARDWARE TESTS 1 &
TEST
7: WRITE DATA RETRY
10413 103767
10414 104042
10415 104131
10416 104213
10417 104275
10418 104363
10419 104451
10420 104547
10421 104624
10422 104706
10423 104766
10424 105063
10425
10426
10427
10428
10429
10430
10431
10432
10433 105104
10434 105104
10435 10511C
10436 105114
10437 105120
10438 105124
10439 105126
10440 105132
10441 105136
10442 105140
10443 105144
10444 105146
10445 103152
10446 1C5156
10447 105164
10448 105166
10449 105172
10450 105174
10451

10452
10453 105176
10454 105176

10455
10456
10457
10458
10459
10460
10461
10462

10463
10464
10465
10466
10467
10468
10469

105202
105212
405216

105224
105226
105232
105234
105236
105240
105240
105244
105250
105252

124
127
122
122
122
122
127
124
124
124

123
122
145
145
145
145
122
123
123
123

127

162

104

141

102
111

141
141

163

141
111

123
123
123
164
151

1a JUN 84

T278A:
.ASCIZ
T27MSS: .ASCIZ
T2TLON: .ASCIZ
T27LOP:; .ASCI2Z
T27PBP: .ASCIZ
T27TRL: .ASCIZ
T2 TNEF : .ASCIZ
T27SCF
: .ASCIZ
T27TSA: .ASCIZ
T2TWRF; .ASCIZ
T27DTA: .ASCIZ
TST2710:
.EVEN

14:17

E&
SEQ 0302

'TSBA Not Correct After REREAD DATA Commend’
'WRITE SUBSYSTEM MEMORY Commaend Not Accepted (RAM Reed)’
‘Reeding Long Record Feiled To Set RLL Bit In XSTO'
‘Reading Long Record Feiled To Set RLS Bit In XSTO'
‘Residusl Byte Count Incorrect After Short Record Read’
'‘Readi
Record
Failed To Give Tepe Stetus Alert
L
'WRITE
DATA
TRY, At Firet Record, Feiled To Set RIB Bit ¥ST3
'TSSR Not Correct After SPACE RECORDS Commend’
*TSSR Not Correct After WRITE DATA RETRY, Into BOT’
*TSSR Not Correct After WRITE DATA RETRY Commend
‘Date Compare Error, Date Reead From Tepe Not Equal To Written
.ASCIZ
'Write Dete Retry’

HRJ

;ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAWLT) VALUES
tWRITE SUBSYSTEM MEMORY COMMAND

T27REST:

012701
012721
012721
005021
012721
012721
005021
012721
005021
012711
012702
0312762
005742
022702
001371

101750
100004
101760

#T27PACKE
,R1
T
#100004,(R1).
#T270ATA,(R1).

000012
101772

010.,(R1).
#T278FR,(R1).

(R1).

(R1).
#20.,.(R1).
(R1).

000024
000000
000030
177777

#0,(R1)
101772

024. ,R2
0177777, T27TBFR(R2)

644
:

-(R2)

#0,R2
644

000000

000207

T27RT2:

012701
012721
012721
005021
012721
005021
012701
005021
005011
000207
012701
005021
005021

102060
100006
102110
000006
102110

T27RT3;

102100

SAVREG
MOV
MOV
MOV
CLR
MOV
CLR
MOV
CLR
CLR

RTS

SAVREG
MOV
CLR
CLR

0T27PK2,R1

#100006,(R1).
01276F2,(R1).
(R1).
#6.,(R1).
(R1)»

1SAVE THE REGISTERS
1START OF THE PACKET

tWRITE SUBSYSTEM MEM.

WITH ACK,

1 ADDRESS OF CHARAISTICS DATA BLOCK
sEXTENDED ADORESS
;SIZE OF DATA BLOCK IN BYTES
1 ADDRESS OF MESSAGE BUFFER

sLENGTH OF MESSAGE BUFFER
$SELECT DRIVE ZERO
sNUMBER OF LOCATIONS 10 BE CLEARED

sALL ONES TO MESSAGE BUFFER
sNEXT LOCATION

sAT END OF LOOP YET
tKEEP GOING UNTIL OONE
: RETURN

1SAVE THE REGISTERS
tSTART OF THE PACKET
tWRITE SUBSYSTEM MEM. WITH ACK,
s ADDRESS OF DATA BLOCK
1EXTENDED ADORESS
+SIZE OF DATA BLOCK IN BYTES

#T278F2,R1

:POINT TO DATA SEL AREA

1 RETURN

(R1).
(R1)

#727PK3,R1

(R1).
(R1).

$SAVE REGISTERS
$tSET UP POINTER ADORESS
1 COMMAND SPACE
1 ADDRESS OF DATA BLOCK

I8
TSV? - HARDWARE TESTS 1-8

TEST

7: WRITE DATA RETRY

10470 105254
10471 105256
10472 105260
10473 105262
10474

105262
105262

MACRO M1113

14-UUN 84 14:17

CLR
CLR
RTS
ENDTST

005021
005011
000207

SEQ 0303

sEXTENDED ADORESS
;SIZE OF DATA TRANSFER BLOCK
sRETURN

(R1).
(R1)
PC

L10122:

104401

10475

.SBTTL

TEST

TRAP

8: WRITE/READ TAPE MARK

10476

10478
10479

;1THIS TEST VERIFIES THAT THE WRITE TAPE MARK COMMAND OPERATES
;PROPERLY. IT IS VERIFIED THAT THE TAPE MARK IS WRITTEN ONTO TAPE

10483

;THAT THE CLEAR VOLUME CHECK (CVC) BIT OPERATES PROPERLY AND THAT

10477

10480
10481
10482

1BY CHECKING THAT THE READ AND SPACE RECORDS COMMANDS DETECT THE
;TAPE MARK, IN ADDITION, SINCE WRITE TAPE MARK IS THE FIRST
1SUBCOMMAND UNDER THE FORMAT COMMAND BEING TESTED, IT IS VERIFIED

10462

;FORMAT COMMANDS WITH ILLEGAL MODE CODES ARE REJECTED.

1048
10486

H
H

10487

s THE TEST CONSISTS OF THE FOLLOWING 3 SUBTESTS

10448
10489

H
H

10490

10491

10492 105264
105264
10493 105264
10494 105272
10495 105276

012737
005037
004737

006446
003124
017364

10501 105306
{gggg 105312

004737
012737

016600
000005

10500 105302

012700

002170

112521

002206
:

10506
10507

H
;

10505

;TEST 8,

10508
10509
10510
10511

BGNTST
MOV
CLR
JSR

#EPRT2 ,EPRTSW
KTENABLE
PC . KTOFF

18::
s SECONDARY ERROR MESSAGE
;TURN KT11 OFF
s TURN KT11 BACK OFF IF THERE

JSR
MOV

PC,TSTSETUP
€5,L00PCNT

;00 INITIAL TEST SETUP
tPERFORM S ITERATIONS

MOV

19504

#TST2810,.R0O

;ASCII MESSAGE TO IDENTIFY TESY

SUBTEST 1

;VERIFIES THAT A FORMAT COMMAND (WITH ANY LEGAL MOOE
;CODE) WITH THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS
;REJECTED IF THE VOLUME CHECK (VCK) FLAG IS SET, ALL
;sVALID MODE CODES ARE “HECKED.

10512

10513

; -

10514
10515
10516 105320

10517 105320
105320

105320

10518 105322

10519
10520
10521
10522
10523
10527
10528

CSETST

105326
105332
105336
105342
105344
105350
105352

T28L00P:

104402

004737

004737
004737
004737
103407
005237
010001

112546

112640
112702
016064
002212

BGNSUB

JSR

JSR
JSR
JSR
8CS
INC
MOV
ERRDF

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

PC,T28REST

PC,.T28RT?
PC,T28RT3
PC.SOFINIT
204
FATFLG
RO,R1
ERRNO, SFIERR, SFIMSG

1SET COMMAND PACKET

TRAP

;SET UP OTHER COMMAND PACKET
;SET UP OTHER COMMAND PACKXET
100 INITIALIZE ON CONTROLLER
t1BR IF INIT WAS 0K
;18UMP COUNT
;CONTENTS OF TSSR REGISTER
iFATAL ERROR TSSR WAS NOT 0K

5>>>35>>>3>>>>

csesuB

TSv?

TEST

HARDWARE

TESTS

1-8

8: WRITE/READ TAPE MARK

105352
105354
105356
105360
10529 105362
10530 105370
10531 105374
10532 105400
10533 105402
10537 105406
10538 105410
105410
105412
105414
105416
10539 105420

105420
10540 105422

10541 105426

10542

10543 105430
10544 105436
10545 105444
105450
10547 105454
10548 105460
10549 105462
10550 105464
10554 105470
105470
105472
105474
105476
105500
105500
105502
105506
105514
105520
105522
105526
105530
105530
105532
105534

105536
10566 105540
105540
10567 105542
105546
10569 105552
10570 105554
10574 105560
105560
105562
105564
105566

MACRO M1113

14 JUN B4

14:17

Cls
SEQ 0304

104455

001441
003650
012124
012737
012704
004737

103407
005237
010001

TRAP

000007
110460
010752

110500

112737
112737
012704
010465
004737
103407
010001

005237

JSR

002212

ERRHRD

244:

ERRNO,WRTMSG, SFIMSG

;WRITE CHMARACTERISTISC FAILED

TRAP
. WORD

CKLOOP

CSERHRD
802

. WORD
. WORD

WRTMSG
SF IMSG

TRAP

CsCLP1

S0t

016426

MOV8
MOV8
MOV
MOV
JSR

9200, 728851
#10,7288S0
#T28PK2 ,R4
R4, TSDB(RS)
PC,CHKTSSR

tWRITE MISCELLANEOUS CONT/READ STATUS
1FUNCTION SELECTION BIT (TURN ON EXTFEA MW SWITCH)
tWRITE SUBSYS MEM PACKET
+ ISSUE COMMAND

002212

MOV
INC

RO,R1
FATFLG

t1ERROR,

000200
000010

110570

BNE
110621
110620

8CS

ERRHRD

304

ERRNQ, 728S5SR,PKTSSR

CKLOOP
110460
000007
010752

MOV

110500

JSR

B8CS
INC

002212

MOV

ERRHRD

001444
005054
012124

104455

244
FATFLG
RO,R1

;CHECK FOR EXTENDED FEATURES SW SWITCH
1BR IF SWITCH IS ON

104456

001445
111650
012124

PC.WRTCHR

sSET UP DRIVE NUMBER
1SUBROUTINE NEEDS PACKET ADDRESS
$ ISSUE WRITE CHARACTERISTICS
13R, IF COMMAND ISSUED Ox
;BUMP COUNT
s SAVE CONTENTS OF TSSR

EXTFEA

001443
111315
012136

104406
016501
032701
001006
005237

07,T280SW
OT28PACKE
T ,R4

CSERDF

801
SFIERR
SF IMSG

797

002216

104456

104406
012704
012737
004737
103407
005237
010001

MOV
MOV

8CSs
INC
MOV

104456
0Nn1442
005054
012124
104406
005737
001044

20$:

. WORD
. WORD
. WORD

S0$:
000002
000100

002212

817

BNE
INC
ERRDF

;1BR, IF NO ERROR

SAVE TSSR

:BUMP COUNT
: TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS
TRAP
CSERMRD

;LOOP IF SELECTED

€T28PACKET R4

#7,72805W

PC.WRTCHR

S0»
FATFLG
RO,R1

EPRRNO,WRTMSG, SFIMSG

TSSR(RS)
,R1

O0FL ,R1

604
FATFLG
ERRNO, T280FL , SF IMSG

.WORD
.MORD
.WORD

803
T28SSR
PKTSSR

TRAP

CSCLP}

.WORD
MORD
.WORD

CS$ERMRD
804
WRTMSG
SFIMSG

TRAP

CsCLP1

TRAP

CSEROF

1 SUBROUTINE NEEDS PACKET ADDRESS
1 SELECT DRIVE 7
;s ISSUE WRITE CHARACTERISTICS
18R, IF COMMAND ISSUED OK
18UMP COUNT
$SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC F?"I‘I‘.‘SD

1 SCOPE LOOP

CxLOOP

MOV

sWAIT FOR SSR

tGET TSSR CONTENTS
;CHECK FOR THE OFFLINE BIT SET
:BR, IF OFFLINE (GOOOD)
:8UMP COUNT
;OFF LINE SHOULD HAVE BEEN SET (BAD)
.WORD
.WORD
.WORD

805
T280FL
SFIMSG

TSV? - HARDWARE TESTS 1-8
TEST

8: WRITE/READ TAPE MARK

10575 105570
105570

10576 105572
10577 105576

10578 105602
10579 105606
10580 105612
10581 105616
10582 10562¢
10583
10584
10585
10589

104406

110636

012704
010465
004737
016501
012702

110610
000000
016340
000002
100306

105626
105630
105632
105636

020102
001406
005237

105640
105642
105644
10590 105646

001446
111524
012136

105636

110610

654 :

104406
005723

10593 105656
10594 105660
10595 105662

001401
000746

022713

002212

80%:

177777

105662

10597 105664
10598 105672

10599 105674

10600 105700

104403

023727
103402

004737

002212

017272

10601

000017

sPOINTER FOR COMMANDS

AT28RN,R3

MOV
MOV
JSR
MOV
MOV

;R4 = POINTER TO PACKET
#T28PK3 R4
s ISSUE COMMAND
R4, TSDB(RS)
sWAIT FOR SSR TO SET
PC,.WAITF
TSSR(RS),R1
sGET TSSR CONTENTS
#SSR!SCIOFL'BIT1!8IT2,R2
sSET UP EXPECTED

MOV

(R3),T28PK3

R1,R2
804
FATFLG
ERRNO,T28TM,PKTSSR

8EQ
BR

TRAP

#177777,.(R3)

sPOINT TO NEXT COMMAND

90
654

ENDSUB

JSR

tARE THEY EQUAL
+BR, IF OK ESP. FUNCTION REJECT
sBUMP COUNT
s TSSR INCORRECT AFTER FORMAT CMO

sLOOP IF SELECTED
(R3).

CsCLPl

806
T28THM
PKTSSR

TRAP

CsCLPl

;BR, IF DONE
tMORE COMMAND(S) T0 GO

53>3>>>5>33>>> END SUBTEST

L10131:

FATFLG,@15.
9994

PC.CKDROP

CS$ERMHRD

. WORD
. WORD
. WORD

;END OF THE COMMANDS YET

5>5>3>33333535>>

TRAP

:IS ERROR COUNT AT 2S5
s8R, IF LESS THAN 25

C$ESUB

:TRY TO DROP THE UNIY

10602
10603
10604
10605
10606

x
H
;TEST 8, SUBTEST 2
s
$VERIFIES THAT A FORMAT COMMAND WITH AN ILLEGAL MODE

10608
10609
10610
10611
10612
10613

sILLEGAL COMMAND (ILC) ERROR BIT SET.
;sMODE CODES ARE CHECKED.
:
H
H
HE

10607

TRAP

;s TAPE READ COMMAND IN PLACE

CKLOOP

cP
8LO
999%

;LOOP IF SELECTED

MOV

90%:

SEQ 0305

CKLOOP

TST

10596 105662

105662

14 JUUN 84 14:17

ce
BEQ
INC
ERRHRD

104456

105646
10591 105650

10592 105652

60¢:

012703

011337

MACRO M1113

- ¢4

;1CODE CAUSES FUNCTION REJVECT TERMINATION WITH THE

10614 105700
105700
1057C0
10615 105702
10616 105706
10617 105712
10618 105716
10619 105722
10620 105724
10624 105730
10625 105732

105732
105734

BGNSUB

104402

004737
004737

10X407
005237
010001
104455
001447

112546
112640

112702
016064

002212

JSR
JSR

BCS

INC
MOV
ERRODF

PC, T28REST
PC,T28RT2

PC,T28RT3
PC,SOF INIT

204
FATFLG
RO,R1
ERRNO, SF IERR , SF IMSG

ALL ILLEGAL

$2>>>>>3>>>>> BEGIN SUBTEST >>>>>>>>>>>>
18.2:
TRAP
csasuB
;:SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET
tSET UP OTHER COMMAND PACKET
;00 INITIALIZE ON CONTROLLER
:BR IF INIT WAS 0K
;BUMP COUNT
sCONTENTS OF TSSR REGISTER
stFATAL ERROR TSSR WAS NOT 0K
TRAP

.WORD

CS$EROF

807

TSv?
TEST

HARDWARE

TESTS

105736
105740
105742
105750
105754
105760
105762
105766
105770
105770
105772
105774
105776
106000

003650
012124
013737
012704
004737
103407
005237
010001

1 &

8: WRITE/READ TAPE MARK

10626
10627
10628
10629

10630
10634
10635

10636

10637
10638
10639
10640

10641
10642

10643
10644
10645
10646
10647
10652

10653

10654
10655
10656
10657
10658
10659
10663

10664

10665
10667
10668
10669

10670
10671

002172
110460
0107S2

MACRO M1113

110500

002212

104456
001450
005054
012124

104406
012703
011337
013737
012704
012737
010465
004737
016501
012702
020102

001406

005237

20¢%:

14 JUN 84

MOV
MOV
JSR
8Cs
INC
MOV
ERRHRD

110626
110610
003114
110610
000400

110612

UNITN, T280SW

1SET UP DRI'E NUMBER

OT28PACKET ,R4

PC,WRTCHR
244

1BR,

FATFLG
RO,R1

ERRNO, WRTMSG, SF1MSG

FREE, T28R8B
0T28PK3, R4

1STARTING WRITE BUFFER ADDRESS
;1SET UP R4 WITH PACKET ADORESS

9256.,72852
R4, TSOB(RS)

;SET UP RECORD SIZE IN PACKETY
;s ISSUE COMMAND

TSSR(RS) ,R1
#SSR!SC!'BIT1!BITR,.R2
R1,.R2

tGET TSSR CONTENTS
$1SET UP EXPECTED
tARE THEY EQUAL

TRAP
.WMORD

:ARE

cHP
8LO

T28WDF
PKTSSR

TRAP

CsCLP1

THEY EQUAL

tBR, IF EQUAL (ALL IS WELL)
;:8UMP COUNT

tTHE ILC BIT WAS NOT SET IN XSTO

CKLOOP

cHP
BNE
CKLOOP

.WORD
.WORD

:SET THE ILC BIT IN EXPECTED

ERRNO, T28L0Q,EXPREC

TS7

(R3).

(R3),0177777
30¢

1BUMP TO NEXT ADDRESS (COMMAND)

TRAP
.WORD
.WORD
.WORD

CS$ERMRD
810
T28LO0Q
EXPREC

TRAP

CsCLP1

;CHECK FOR END OF COMMAND BUFFER
+BR, IF MORE COMMANDS TQ TRY

;LOOP IF SELECTED

$22>>>3>>3>>>

END

TRAP

CsCLPl

TRAP

CSESUB

SUBTEST

L10132:
FATFLG,#15.
9994

CSERMRD
809

sSEY UP EXPECTED

180¢

000017

;sTSSR INCORRECT AFTER READ DATA

#IT9,R2

ENDSUB
002212

18R, IF 0K
18UMP COUNT

:GET MESSAGE BUFFER

FATFLG

CsCLP1

1MAIT FOR SSR!BIT1!BIT2 TO SET

T288FR+6,P1

R1,R2

002212

CSERMRD

808
WRTMSG
SFIMSG

s5ET UP NEXT COMMAND

R1,R2

001000

190¢:

.WORD
.WORD
.WORD

;LOOP IF SELECTED

110510

104406

TSSR

tWRITE CHARACTERISTISC FAILED
TRAP

TRAP
$SET POINTER FOR COMMANDS

75%:

177777

:SAVE CONTENTS OF

0T281IMV ,R3

ERRNO, T28WOF ,PKTSSR

180¢:

IF CJOMMAND ISSUED Ox

;BUMP COUNT

754
FATFLG

002212

ADORESS

s ISSUE WRTTE CHARACTERISTICS

PC.WAITF

100206

SFIERR
SFIMSG

.WORD
.MORD

1 SUBROUTINF. NEEDS PACKET

(R3),T28PK3

304:

016340

104456
001452
111234
015564

104403
023727
103402

SEQ 0306

;LOOP IF SELECTED

110616

012136

104406
005723
021327
001323

244

104456
001451
111157

104406
013701
010102
052702
020102
001406
005237

14:17

>5>3>3>3>33553>

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

\J}‘)
PC,CKDROP

;TRY

TO DROP

s VERIFIES THAT WRITE TAPE MARK COMMANDS OPERAITE
:PROPERLY,

AND THAT READ COMMANDS SUBSEQUENTLY ISSUED

;7O DETECT THE WRITTEN TAPE MARKS TERMINATE WITH TAPE
:STATUS ALERT WITH THE TAPE MARK DETECTED (TMK) STATUS
;8IT SET. THE FOLLOWING SEQUENCE IS EXECUTED.

i1,

THE CONTROLLER IS INITIALIZED AND TAPE REWOUND.
THIS SETS THE VOLUME CHECK (VCK) STATUS BIT.

A WRITE TAPE MARK COMMAND WITH CvC=1
AND PROPER TERMINATION AND STATUS

VCK=0 AND TMK=1).

(I.E.

IS ISSUED

IS VERIFIED

SEVERAL MORE WRITE TAPE MARK COMMANDS,

THESE WITH

CvC=0 ARE ISSUED AND PROPER TERMINATION (NORMAL
)

A READ REVERSE COMMAND IS ISSUED AND PROPER
TERMINATION (TAPE STATUS ALERT) AND STATUS (TMK)
VERIFIED. IT IS ALSO VERIFIED THAT NO DATA IS
TRANSFERRED INTO MEMORY.

A SPACE RECORDS REVERSE COMMAND IS ISSUED AND
PROPER TERMINATION (TAPE STATUS ALERT) AND STATUS

AND STATUS (TMX) VERIFIED.

B¢

(TMX) VERIFIED.

THE TAPE 15 REWOUND AND A READ FORWARD COMMAND IS
ISSUED AND PROPER TERMINATION (TAPE STATUS ALERT)

AND STATUS (TMKX) VERIFIED. IT IS ALSO VERIFIED
THAT NO DATA IS TRANSFERRED INTO MEMORY.

A SPACE RECORDS REVERSE COMMAND THAT CONTAINS A

RECORD COUNT GREATER THAN 1 IS 1SSUED AND IT IS
VERIFIED THAT TAPE STATUS ALERT TERMINATION
OCCURED, TMX=1 AND THAT RBPCR (RESIDUAL
BYTE/RECORD COUNTER) CONTAINS THE PROPER NONZERO
VALUE. THIS OPERATION VERIFIES THAT DETECTION OF

THE TAPE MARK CAUSES THE SPACE RECORDS OPERATION
T0 BE PREMATURELY TERMINATED. THIS SHOULD LEAVE
}:EEPOSITION JUST BEFORE THE FIRST RECORD ON

10718
10719
10720
10721
10722
10723
10724
10725
10726
10727
10728

SEG 0307

:TEST 8, SUBTEST 3

10704
10705
10706
10707
10708
10709
10710
10711
10712
10713
10714
10715
10716
10717

JSR

14:17

10680
10681
10682
10683
10684
10685
10686
10687
10688
10689
10690
10691
10692
10693
10694
10695
10696
10697
10698
10699
10700
10701
10702
10703

.
H

TAPE POSITION IS VERIFIED BY ISSUING ANOTHER

SPACE RECORDS REVERSE COMMAND AND VERIFYING THAT

TAPE STATUS ALERT TERMINATION OCCURS, WITH THE
REVERSE INTO BOT (RIB) STATUS ERROR BIT SET.

10678
10679

9995.

10676
10677

017272

14-UUN-84

10675

004737

10672 106154

10673 106160
10674

MACRO M1113

®Be

HARDWARE TESTS 1 8
8: WRITE/READ TAPE MARK

®e

TSV?
TEST

A SPACE RECORDS FORWARD COMMAND THAT CONTAINC A
RECORD COUNT GREATER THAN 1 IS ISSUED AND If IS
VERIFIED THAT TAPE STATUS ALERT TERMINATION

THE

UNIT

e
TSV? - HARDWARE TESTS 1-8

TEST

8: WRITE/READ TAPE MARK

MACRO M1113

106216

10749
10750
10751
10755
10756

10757
10758
10759
10760
10761
10765
10766

10767

10768
10769
10770
10771
10772

14:17

SEQ 0308

OCCURED, TMK=1, AND THAT RBPCR (RESIDUAL
BYTE/RECORD COUNTER) CCNTAINS THE PROPER NONZERC
VALUE. THIS OPERATION VERIFIES THAT DETECTION OF

10729

10730
10731
10732
10733
10734
10735
10736
10737
10738
10739
10740
10741 106160
106160
106160
10742 106162
10743 106166
10744 106172
10745 106176
10746
10747 106210
10748 106212
106212

14 UUN 84

THE TAPE MARK CAUSES THE SPACE RECORDS OPERATION
TO BE PREMATURELY TERMINATED.

§>>>>>>>>>>>>

BGNSUB

104402
004737
004737
004737
012737
004737

103426

012727
000000
013727
000000
005367
001375
005367

001367
005337

001356
005237
010001

112546
112640
112702

023420
016064

110652

10¢:

000250

JSR
JSR
JSR
MOV
JSR
8CS
DELAY

013737
012704
004737
103407
005237
010001

204
250

DEC
BNE
INC
MOV
ERRDF

002212

002172
110460
010752

110500

000002

002212

FATFLG
RO,R1

ERRNO, SFIERR, SF IMSG

T
R4
#T28PACKE
PC . WRTCHR

234

FATFLG

RO,R1
ERRNO , WRTMSG
, SF IMSG

234
011104

104

UNITN, T280SW

20%:

002212

001454
005054
012124

T280LY

JSR
8Cs
MOV
MOV
INC

PC.REWIND
30¢
TSSR(RS) ,R1
RO,R4
FATFLG

TRAP

csssus

MOV
. WORD
MOV
. WORD
DEC
BNE
DEC
BNE

8250.(PC)‘

:BUMP DELAY RCUTINE DOWN
;BR, IF MORE DELAY TIME LEFT
sBUMP COUNT
;CONTENTS OF TSSR REGISTER
sFATAL ERROR

TSSR WAS NOT 0K
TRAP

. WORD
.WORD
. WORD

1SET UP DRIVE NUMBER
1 SUBROUTINE NEEOS PACKET ADORESS
; ISSUE WRITE CHARACTERISTICS
i8R, IF COMMAND ISSUED O
1BUMP COUNT
1 SAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC r?gkgo

:LOGP IF SELECTED

CKLOOP

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

sSET COMMAND PACKET
;SET UP OTHER COMMAND PACKET
;SET UP OTHER COMMAND PACKETY
;SET UP DELAY ROUTINE
;00 INITIALIZE ON CONTROLLER
;BR IF INIT WAS OK
sDELAY ABOUT .25 SECONDS

177756

104456

104406
004737
103411
016501
010004
005237

PC,T28REST
PC,T28RT?2
PC,T28RT3
910000.,7280LY
PC,SOFINIT

177772

110652

SUBTEST

718.3:

002116

104455
001453
003650

012124

BEGIN

{1SAVE PACKET ADDRESS
;BUMP COUNT

-6(PC)
.

-22(PC)
. 20

CSERDF

811

SFIERR
SF IMSG

CS$ERHRD
812
WRTMSG
SFIMSG

TRAP

;CALL TAPE REWINC COMMAND
:1BR, IF NO PROBLEM

;GET TSSR

JH0LY, (PC).

CsCLP1

| *
TSV7

TEST

- HARDMWARE TESTS 1-8

8: WRITE/READ TAPE MARK

10776 106346
106346
106350
106352
106354
10777 106356
106356
10778 106360
10779 106364
10780 106366
10781 106372
10782 106374
10783 106376
10787 106402
106402
106404
106406
106410
10788 106412
106412
10789 106414
10790 106420
10791 106422
10792 106430
10793 106436
10794
10795
10796
10797
10798
10802

MACRO M1113

14 JUN 84

ERRHRD

30s:

001024

112737
112737
012704
010465
004737
103407

010001
005237

;REWIND NOT

ACCEPTED

110510
000002

BIS
cHP
8eQ

002212

ERRHRD

002216
000200
000010

110570

404
:

CkLOOP

424
:

TST
BNE
MOVE
MOVE
MOV
MOV
JSR
8Cs
MOV

110621
110620

016426

INC

002212

ERRHRD

104456

1LOOP IF SELECTED

CKLOOP
MOV

104456
001456
111457
015564
104406
005737

ERRNO, T28RWN,PKTSSR

SEQ 0309

TRAP

104456
001455
111601
012136
104406
013701
010102
052702
020102
001406
005237

14:17

T28BFR+6,R1
R1,R2
#8IT1,R2

R1,R2
404
FATFLG

ERRNO, T28B0T ,EXPREC

tPICK UP XSTO
$1SET UP EXPECTED
:SET B80T BIT IN EXPECTED
1DOES EXP = REC'D
1BR, IF EQUAL (0K)
;:BUMP COUNT

;:TAPE NOT AT BOT

;LOOP IF SELECTED
EXTFEA
S04
#200, 728851
10, 728850
#728PK2,R4
R4, TSOB(RS)
PC.CHKTSSR
S50¢
RO,R1
FATFLG
ERRNO, T28SSR , PKTSSR

sCHECK
1BR IF
sWRITE
sFUNC.
tWRITE
; ISSUE

104406
012737
012704
004737
103407
005237
010001

000007
110460
010752

MOV
MOV
'oR
8Cs
INC
MOV
ERRHRD

110500

1BR, IF NO ERROR
;ERROR, SAVE TSSR
;:BUMP COUNT
s TSTR NOT CORRECT

002212

104456

10814

10815
10816
10817
10818
10822

001460
005054
012124

104406
016501
032701
001006
005237
104455
001461

;LOOP IF SELECTED

60¢:

000002
000100
002212

07,72805W
#T28PACKET
R4
PC,WRTCHR

604

FATFLG

RO,R1

ERRNO, WRTMSG, SF IMSG

MOV
8I7
BNE
ERROF

TSSR(RS),R1

00FL ,R1
654

FATFLG

ERRNO, T280FL , SF IMSG

CsCLP1

AFTER REWIND
TRAP

CSERHRD
814

. WORD
. WORD
. WORD

EXPREC

TRAP

C$CLP1

728807

AFTER #:;fi MISCELLANEOUS

. WORD
. WORD
.WORD
TRAP

:SET UP DRIVE NUMBER
1 SUBROUTINE NEEDS PACKET ADDRESS
1 ISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED OK
;BUMP COUNT
sSAVE CONTENTS OF TSSR
tWRITE CHARACTERISTISC FAILED
TRAP

: SCOPE LOOP

CKLOOP

TRAP

sMAIT FOR SSR

111315
CKLOOP

813
T28RWN
PKTSSR

FOR EXTENDFD FEATURES SW SWIT(M
SWITCH IS ON
MISCELLANEOUS CONT/READ STATUS
SEL. BIT (TURN ON EXTFEA SWITCH)
SUBSYS MEM PACKET
COMMAND

001457

012136

CS$ERMRD

.WORD
. WORD
. WORD

CS$ERMRD
815
T28SSR
PKTSSR

CsCLP)

C$ERHRD

.WORD
. WORD
.WORD

816
WRTMSG
SF IMSG

TRAP

CsCLP1

TRAP

CSERDF
817

:GET TSSR CONTENTS
1CHECK FOR THE OFFLINE BIT SET
1BR, IF OFFLINE (GOOD)
;BUMP COUNT
1OFF LINE SHOU.D HAVE BEEN SET (BAD)
. WORD

TSv?

TEST

HARDWARE

TESTS

| 8

8: WRITE/READ TAPE MARV

10823
10824
10825
10826

10827

10828
10832
10833

10834

10835
10836
10837
10838
10839
10840
10841
10842
10843
10847

10848
10849
10850
106851

10852
10853
106854
10858

10859

10860
10861
10862
10863
10864
10865
10869

106556
106560
106562
106562
106564
106572
106576
106602
106604
106610
106612
106612
106614
106616
106620
106622
106622
106624
106632
106636
106642
106646
106652
106656
106660
106662
106666
106666
106670
106672
106674
106676
106676
106700
106704
106706
106712
106714
106716
106722
10¢ 722
106724
106726
106730
106732
106732
106734
106740
106742
106746
106750
106752
106756
106756
106750
106762
106764

MACRO M1113

14 UUN

14:17

SEQ 0310

111650

012124

104406
013737
012704
004737
103407
005237
010001

654
:

002172
110460
010752

CxLOooP
MOV

110500

MOV
JSR
8CS
INC

00221¢

MOV

ERRHRD

;LOOP IF

UNITN, T280SW

OT28PACKET,R4
PC.WRTCHR
684
FATFLG
RO,R1

IMSG
, SFSG
ERRNO , WRTM

104456
001462
005054
012124

104506
012737
012704
010465
004737
016501
012702
020102
001406
005237

68$:

140011
110610

016340
000002
000200

002212

104456
001463
111723
012136
104406
013701
010102
042702
020102
001406
005237

104456
001465
112055
015564

ERRHRD

70¢:

000020

002212

ERRHRD

80%:

110510
100000

002212

0140011, T28PK3
R4
0T28PK3

R4, TSDB(RS)

PC.WAITF
TSSR(RS),R1
#SSR,R2

R1,R2

704
FATFLG

ERRNO, T28WOC , PKTSSR

T28BFR+6,R1
R1,R2

4
#BITR2

R1,.R2
804

FATFLG

ERRNO, T28VCK ,EXPRE"

TRAP

CsCLP1

sSET UP DRIVE NUMBER
;sSUBROUTINE NEEDS PACKET ADDRESS
:ISSUE WRITE CMARACTERISTICS
:BR, IF COMMAND ISSUED 0K
;BUMP COUNT
; SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC FAILED
TRAP
. WORD
.WORD
. WORD
TRAP

;ARE
18R,

THEY EQUAL
IF 0K

;TSSR

INCORRECT

;BUMP COUNT

AFTER

WRITE TAPE MARK
TRAP
CS$ERHRD

. WORD
. WORD

819
T28W0C

TRAP

CsCLP1

.WORD

;PICK UP XSTO (vCK CHECX)
;SET UP EXPECTED
D BE O
;VCK SHOUL
;IS VCK SET CORREZTLY
;:BR, IF vCx IS CLEAR
;8UMP COUNT
; VCX

WAS NCT

CLEAR

PKTSSR

Cv(C=1
TRAP

CSERMHRD

. WORD
. WORD
. WORD

820
T28VCK
EXPREC

TRAP

CsCLP)

PICK UP XSTO (CHECK TMK)
.SET UP EXPECTED

T SHOULD BE SET
JWAS TM SET

904

;BR,

ERRANO,
T28 T ,EXPREC

;THMK

FATFLG

SELECTED

AFTER

MOV
MOV
8IS
ce
8eqQ
INC
ERRHRD

R1,R2

CsCLP1

sGET TSSR CONTENTS
;SET UP EXPECTED

.LOOP IF

#8IT15,R2

818
WRTMSG
SF IMSG

;WAIT FOR SSR TO SeT

CxLOOP
R1,.Re2

CS$ERMRD

;WRITE TAPE MARK,ACK,CVC=1 COMMAND
;SET UP R4 WITH PACKET ADDRESS
;s ISSUE COMMAND

;LOOP IF SELECTED

CKLOOP

MOV
MOV
8IC
o,
8€Q
INC

110510

104456
001464
112002
015564

104406
013701
010102
052702
020102
001406
005237

MCV
MOV
MOV
JSR
OV
MOV
cre
8EQ

110610

T280FL
SF IMSG

SELECTED

;LOOP IF SELECTED

CKLOOP

. WORD
. WORD

TM(

;BUMP COUNT

WAS NOT

WAS

SET

AFTER WRT

TAPE

TRAP

. WORD

. WORD
. WORD

MARK
CSERHRD

821

T28TMK
EXPREC

TSv?

TEST

HARDWARE

1087,

10871
10872
10873
10874
10875

10879

10891
10892
10893
10894
10895
10896
10897
10698
10899

10901
10905

10906

10907
10908
10910
10911
10912
10916

10917

TESTS

)

MRITE/READ TAPt

106 700

106 766
106770

106774

106776

107000
107004

107010
107010
107012
107014
107016
107020
107020
107022
107026
107030
107034
107036
107040
107044
107044
107046
107050
107052
167054
107054
107056
107062
107070
107074
107100
107104
107110
107114
107116
107120
107124
107124
107126
107130
107132
107134
107134
107136
107142
107144
107150
107152
107154
107160
107160
107162
107164
107166
107170
107170

TMAR~

MACRC TM1113

908 .

10440¢

004737

4N 84

000002

00221¢

104456
001466

SEQ 0311

CxL QoP

JSR
8Cs
MOV
MOV
INC
ERRMRD

011104

103411

010004
016501
005237

;L00P IF
PC.REWIND

1308

RO,R4
TSSR(RS),R1
FATFLG

ERRNO, T28RWN , PKTSSR

SELECTED

TRAP

;CALL TAPE REWIND COMMAND
;BR, IF NO PROBLEM
; SAVE PACKET ADDRESS
1GET TSSR STATUS
;8UMP COUNT
;REWIND NOT ACCEPTED

TRAP

111601

012:36

104406
013701
010102
0S2170¢
020102
001406
005237

130%:

110510

MOV
MOV
BIS
cHP
8eEQ

000002

002212

ERRHRD

104456
001467
111457
015564
104406
012703
012737
012704
010465
004737
016501
012702
020102
001406
005237

000012

140011
110610

016340

110610

140¢.

CKLOooOP

150¢:

MOV

155¢:

000002

000200

002212

104406
013701
010102
052702
020102
001406

005237
104456
001471
112055
015564
104406

MOV
MOV
JSR
MOV
MOV
cHP
8EQ
ERRHRD

104456

001470
111723
012136

CKLOOP
T1288FR+6,R1

R1,R2
08IT1
K2
R1.R2
140

FATFLG

ERRNQO, T28B0T ,EXPREC

;LOOP IF

SELECTED

;PICK UP

XSTO

4140011, T26PK3
0728PK3 ,R4
R4,TSDB(RS)
PC.WAITF
TSSR(RS),R1
#SSR,R2
R1,R2

822
T28RWN
PKTSSR

TRAP

CsCLPL

;DOES EXP = REC'D
;BR, IF EQUAL (0K)
;8UMP COUNT

; TAPE

NOT

B80T

AFTER REWIND

TRAP

. WORD
. WORD
. WORD

TRAP

110510

100000

8IS
cr
BEQ

002212

INC
ERRHRD

180%$

CkLOOP

823
728807
EXPREC
CsCLP1

;SET UP R4 WITH PACKET ADORESS

; ISSUE COMMAND

sWAIT FOR

SSR

TO SET

tPICK UP TSSR
sSET UP EXPECTED (SSR ONLY)

165¢

sWAS STATUS GOOD
;BR, IF TERMINATION WAS GOOOD

ERRNO, T28WDC ,PKTSSR

; TSSR NOT CORRECT AFTER WRT TAPE M.

FATFLG

CKLOOP
MOV
MOV

CS$ERMRD

;NUMBER OF RECORDS TO WRITE TM
;WRITE TAPE MARK,ACK,CVC=1 COMMAND

;BLMP COUNT

TRAP
. WORD

CS$ERHRD
824

. WORD

PKTSSR

TRAP

CsCLP)

.WORD

165%:

CSERHRD

. WORD
. WORD
. WORD

:SET UP EXPECTED
;SET B80T BIT IN EXPECTED

;LOOP IF SELECTED
010.,R3

CsC.P]

;LOOP IF SELECTED
T28BFR+6,R1
R1,R2

#8IT15,R2

R1,R2

1804

FATFLG

ERRNO, T28TMK ,EXPREC

;PICK UP XSTO
;SET UP EXPECTED
;SET TMK BIT IN EXPECTED
+DOES EXP = REC'D
:BR, IF EQUAL (O0K)
;BUMP COUNT
;:TMKK

NOT

SET

AFTER

WRT

TAPE MARK

TRAP

;:LOOP IF

SELECTED

T28W0C

CS$ERHRD

. WORD
.WORD
.WORD

825
T28TMK
EXPREC

TRAP

CsCLPL

TSv?
TEST

HARDWARE TESTS 1 8

8: WRITE/READ TAPE MARKX

10918 107172
10919 107174

10920 107176
10921 107202
10922 107206
10923 107214
10924 107222
10925 107226
10926 107234
10927 107240
10928 107244
10929 107250
10930 107254
10931 107256
10932 107260
10936 107264
107264
107266
107270
107272
10937 107274
107274
10938 107276
10939 107302
10940 107304
10941 107310
10942 107312
10943 107314
10947 107320
107320
107322
107324
107326
10948 107330
107330
10949 107332
10950 107336
10951 107342
107344
10953 107346
10957 107352
107352
107354
107356
107360
10958 107362
107362
10959 107364
10960 107372
10961 107400
10962 107404
10963 107410
107414
10965 107420
10966 107424
10967 107426
10968 107430

005303
001337
012700
004737
013737
012737
012704
013737
010465
004737
016501
012702

MACRO M1113

172777

017512
003114
140401
110610

110612
110610
110616

0eC
BNE
MOV
JSR
MOV
MOV
MOV
MOV
MOV
JSR
MOV
MOV

8tQ
INC
ERRHRD

104456

001472
111014
012136

2004
:

MOV

101500

8IS
8€Q

002212

ERRHRD

001473
112127
015564

2108:

073556
177777

PC.WAITF
TSSR(RS),R1

tWAIT FOR SSR TO SETY
1GET TSSR CONTENTS

#140401, T28PK3
0T28PK3
R4

R4, TSOB(RS)
O#SSR!SC!BIT2,R2

sSET UP EXPECTED

2004

18R, IF Ox
1BUMP COUNT
s TSSR INCORRECT AFTER WRITE DATA

R1,R2

FATFLG

ERRNO, T28RDF ,PKTSSR

T268FR.6,R}

R1,Re

#8IT15,Re

R1,R2

210¢

FATFLG

ERRNO, T28RRM , EXPREC

001406
005237

2206;

100410

000001

110610
110612

SFREE ,R1
0177777 ,.R2

R1l,R2
2204

FATFLG

ERRNO, T280TR ,EXPREC

CIERYRD
826
T2BROF
PXTSSR

TRAP

CsCLP}

tPICK UP XSTO
1SET UP EXPECTED
;T SHOWLD BE SET
sIS TMC SE”
tBR, IF TMK MAS SET (GOOD)
;BUMP COUNT
sTMX NOT

SET

AFTER READ REV

TRAP

MOV

002212

8EQ
INC

€100410, T28Px3
#1,T26R8
0T728PK3,R4
R4, TSOB(RS)
PC,MAITF
TSSR(RS),R1

OSSR!SC!BIT2,R2
R1,R2
2224

FATFLG

L SERRD

.MORD
. WORD
.MORD

827
T28RRM
EXPREC

TRAP

CiCLP)

1OATA TRANSFERRED ON READ TAPE MARK
TRAP
CSERRD
828
. WORD
T2807TR
.MORD
EXPREC
.MORD

;LOOP IF SELECTED

CxLOOP

000002
100204

016340

TRAP
.WORD
.MHORD
.WORD

MOV
MOV

MOV
MOV
JSR
MOV
MOV

110610

THEY EQUAL

sFIRST LOC IN READ BUFFER
sEXPECTED IF NO DATA TRANS.
sDID ANY DATA GET TRANSFERRED
1BR, IF NO DATA TRANS (GOOD)
1BUMP COUNT

112342

104406
012737
012737
012704
010465
004737
016501
012702
020102

tARE

;LOOP IF SELECTED

001474
015564

1 ISSUE COMMAND

;LOOP IF SELECTED

ERRHRD

104456

20.,72852

#177777,R0

PC,FILLMEM
FREE, T28uWB

CxL 00P

8EQ

002212

SEQ 0312

1BUMP COUNTER DOWN
1BR, IF LESS THAN 10 TAPE MARKS
tVALUE TO WRITTEN TO MEMORY
sFILL MEM WITH ALL ONES
;STARTING READ BUFFER ADORESS
tREAD REVERSE ,ACK, COMMAND
1SET UP R4 WITH PACKET ADORESS
1SET UP RECORD SIZE IN PACKETY

1554

CxLOOP

110510

104456

104406
017701
012702
020102
001406
005237

14:17

cHe

020102
001406
005237

104406
013701
010102
052702
020102
001406
005237

14 JUN-84

TRAP

s SPACE REVERSE ,ACK, COMMAND

iNUMBER OF RECORDS TO SPACE BACK
1SET UP R4 WITH PACKET ADORESS
1 ISSUE COMMAND
1WAIT FOR SSR 10 SET

$1GET TSSR CONTENTS
1SET UP EXPECTED
1ARE THEY EQUAL
1BR, IF Ox
1BUMP COUNT

CsCLP1

TEST

HARDWARE TESTS 1 8
8: WRITE/READ TAPE MARNX

10972 107434
107434
107436
107440
107442
10973 107444
107444
10974 107446
10975 107452

10976 107454
10977 107460
10978 107462
10979 107464
10983 107470
107470
107472
107474
107476
107500
107500
107502
107506

107510
107512
107516

107522
107522
107524

MACRO M1113

84
14 JUN

ZRRHRO

222%:

104406
013701
010102
052702

100000

001406
005237

002212

020102

CKLOOP
MOV
MOV
8IS
cHP
8eQ

110510

ERRHRD

104456

CIERRD

T28R0G
PKTSSR

1LOOP IF SELECTED
T28BFR+6,R1

R1,R2

#8IT15,R2

R1,R2

tPICK UP XSTO
1SET UP EXPECTED
s TMK SHOULD BE SET
IS TMK SET

2264

1BR,

ERRNO, T28RRN, EXPREC

s TMXC NOT

FATFLG

TMX WAS SET

18UMP COUNT

CsCLP]

(GOOD)

SET AFTER SPACE REV

001476

CSERRD
830

015564

EXPREC

112205

104406
004737
103411
010004
016501
005237

T28RRN

2264
:

CKLOOP
JSR
8CS
MOV
MOV

011104

000002
002212

ERRHRD

104456
001477
111601

003237

001406

PC,REWIND

2304
RO,R4

TSSR(RS),R1
FATFLG

ERRNO, T28RWN, PXTSSR

sCALL TAPE REWIND COMMAND
18R, IF NO PROBLEM

T28B8FR+6,R1

R1,Re

#8IT1,R2

R1,R2

2404

FATFLG

002212

ERRNOD, T2680T ,EXPREC

2404 :

1777717
017512
003114
100001
110610
000024

000000
016340
000002

100204

110612
110610
110616

CxLOOP
MOV
JSR
MOV
MOV

;1GET TSSR
;18UMP COUNT
;REWIND NOT ACCEPTED

MOV
MOV
JSR
MOV
MOV

8EQ

PC,FILLMEM

FREE, T26R8

#100001
, T28PK3
0T28PK3
R4

20.,7268S2

R4, TSOB(RS)

PC,MAITF

1 TAPE NOT AT BOT AFTER REWIND
TRAP

TSSR(R3),R1
OSSR!ISC!BIT2,R2

R1,R2

2454

tVALUE TO WRITTEN TO MEMORY
sFILL MEM WITH ALL ONES

1STARTING READ BUFFER ADORESS
tREAD FORWARD ,ACK, COMMAND
1SET UP R4 WITH PACKET ADDRESS
1SET UP RECORD SIZE IN PACKETY
1 ISSUE COMMAND
1WAIT FOR SSR TO SET
1GET TSSR CONTENTS
1SET UP EXPECTED

1ARE THEY EQUAL
1BR, IF O«

CSERRD
831
T28RWN
PR TSSR

CsCLP1

sPICK UP XSTO
1SET UP EXPECTED
$SET BOT BIT IN EXPECTED
;:D0ES EXP = REC'D
18R, IF EQUAL (0x)
;1BUMP COUNT

1LOOP IF SELECTED
0177777,R0

CsCLPL

s SAVE PACKET ADORESS

1LOOP IF SELECTED

110510

001500
111457
015564
104406
012700
004737
013737
012737
012704
013737
010465
004737
016501
012702
020102

1LOOP IF SELECTED

230%:

104456

11016
11017

1 TSSR INCORRECT AFTER SPACE CMD.

111075

001406

11015

SEQ 0313

829

012136

104406
013701
010102
052702
020102

11006
11007
11008
11009
11010
11011
11012
11013
11014

ERRNO, T28RDG,PKTSSR

104456
001475

012136

11005

14:17

558

TSV?

CSERRD
832
128807
EXPREC
CsCLP)

TSv?
TEST

HARDWARE

TESTS

8: WRITE/READ TAPE MARNY

11018 107652
11022 107656
107656
107660
107662
107664
11023 107666
107666
11024 107670

11025 107674

11026 107676

11027
11028
11029
11033

107702
107704
107706
107712
107712

107714
107716
107720
11034 107722
107722
11035 107724
11036 107730
11037 107734
11038 107736
11039 107740
11043 107744
107744
107746
107750
107752
11044 107754
107754
11045 107756
11046 107764
11047 107772
11048 107776
11049 110002
11050 110006
11051 110012
11052 110016
11053 110020
11054 110022
11058 110026
110026
110030
110032
110034
11059 110036
110036
11060 110040
11061 110044
11062 110046
11063 110052
11064 110054
11065 110036
11069 110062

005237

MACRO M1113

INC
E RRHRD

002212

104456
001501

111366
012136
104406
013701
010102
052702
020102

001406
005237

245¢:

110510
100000

BEQ

002212

ERRHRD

247s:
073164
177777

8€EQ

ER]IHRD

104456
001503
112342

ERRNO, T28WDE ,PKTSSR

SEQ 2314

1BUMP COUNT
s TSSR INCORRECY AFTER WRITE DATA
TRAP
CSERMRD

sLOOP IF SELECTED
T28BFR+6,R1

R1,R2

#BIT15,R2

R1,R2

2474

FATFLG

ERRNO, T28RRP , EXPREC

sPICK UP XSTO
1SET UP EXPECTED

s TMK SHOWLD BE

177777 ,R
R1,R2

2504

FATFLG

ERRNO, T28DTR,EXPREC

TRAP

CsCLP:

SET

;TMK NOT SET AFTER READ REV
TRAP

sFIRST LOC

.WORD
.WORD
.WORD

:
2504
100410

110610

CKLOOP

MOV
MOV
MOV
MOV
JSR
MOV
MOV

110610
110612

tEXPECTED IF NO DATA TRANS,
;OID ANY DATA GET TRANSFERRED
:BR, IF NO DATA TRAKS (GOOD)
18UMP COUNT
sOATA TRANSFERRED ON READ TAPE MARK
TRAP

016340
100204

8EQ

002212

ERRHRD

sLOOP IF SELECTED
0100410, T28PK3

#5,728R8

#T26PK3,R4
R4, TSDB(RS)

PC,WAITF
TSSR(RS),R1
OSSR!SC!BIT2,R2
R1,R2
2604

FATFLG

ERRNO, T28ROG ,PKTSSR

110510
100000
002212

CxLOOP
MOV
MOV
8IS

BEQ
ERRHRD

sLOOP IF SELECTED

R1,R2

;PICK UP XSTO
1SET UP EXPECTED
s TMK SHOULD BE SET
1 IS TMK SET

FATFLG

1BUMP COUNT

T288FR+6,R1
R1,R2

#81IT15,R2

2704

ERRNO, T28RRN, EXPREC

835

T28DTR

.WORD

EXPREC

TRAP

CsCLP!

TRAP

111075
2604:

CSERMRD

s SPACE REVERSE ,ACK, COMMAND
sNUMBER OF RECORDS TO SPACE BACK
1SET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND
sWAIT FOR SSR TO SET
$GET TSSR CONTENTS
$SET UP EXPECTED
tARE THEY EQUAL
1BR, IF 0K
;1BUMP COUNT
1 TSSR INCORRECT AFTER SPACE REV CMD.

001504

012136

CSERMRD

834
T2BRRP
EXPREC

TRAP
CsCLPI
IN READ BUFFER

.MORD

104456

104406
013701
010102
052702
020102
001406
005237

833
128WDE
PKTSSR

sIS TMX SET
18R, IF TMX WAS SET (GOOD)
;BUMP COUNT

;LOOP IF SELECTED
SFREE ,R1

.WORD
. WORD
LMORD

.WORD

015564

104406
012737
012737
012704
010465
004737
016501
012702
020102
001406
005237

FATFLG

CxLOOP
MOV
MOV

002212

14:17

CKLOOP
MOV
MOV
8IS

104456
001502
112264
015564
104406
017701
012702
020102
001406
005237

14 JUN 34

t1BR,

836
T28RDG
PKTSSR

TRAP

CsCLPL

IF TMX WAS SET (GOOD)

1 TMK NOT

SET

CSERHRD

WORD
LHORD
.WMCRD

AFTER READ REV

TSV? - HARDWARE TESTS 1-8

TEST

8: WRITE/READ TAPE MARK

11070

11071
11072
11073
11074
11075
11079

11080
11081
11082
11083
11084

11085

110062
110064
110066
110070
110072
110072
110074
110100
110104
110106
110110
110114
110114
110116
110120
110122
110124
110124
110126
110134
110142
110146
110152
110156
110162
110166

11086
11087
11088
11089 110170
11090 110172
11094 110176
110176
110200
110202
110204
11095 110206
110206
11096 110210
11097 110214
11098 110216
11099 110222
11100 110224
11101 110226
11105 110232
110232
110234
110236
110240
11106 110242
110242
11107 110244
11108 110252
11109 110260
11110 110264
11111 110270
11112 110274
11113 110300
11114 110304
11115 110306

MACRO M1113

14-UUN-84

14:17

SEQ 0315

TRAP

104456
001505

112205

015564

104406
013701
012702
020102
001406

005237

270%:

MOV
MOV
cHe
8EQ

110506

002212

ERRHRD

104456
001506
110731
015564

104406
012737
012737
012704
010465
004737
016501
012702
020102
001406
005237

280¢%:

100410
110610
016340
100204
002212

ERRHRD

104456

001507
111075
012136
104406
013701
010102
052702
020102
001406
005237

:
2904

002212

ERRHRD

104456
001510
110654
015564

104406
012737
012737
012704
010465
004737
016501
012702
020102
001406

300%:

100010

110610
016340

100204

110610
110612

4, R2

R1,R2

280¢

FATFLG

ERRNO, T28PBP ,EXPREC

#100410, T268PK3

#1,T26R8
#T26PK3,R4
R4, TSOB(RS)
PC.WAITF
TSSR(RS),R1

#SSR!SC!BIT2,R2

R1.R2

2904

FATFLG

ERRNO, T28RDG ,PKTSSR

R1,R2
#8IT0,R2

R1,R2

3004

FATFLG

ERRNO, T28RIB,EXPREC

MOV
MOV
MOV
MOV
JSR
MOV
MOV
cre
BEQ

€100010, T28PK3

#5,T28R8

0T28PK3 ,R4
R4, TSOB(RS)
PC,WAITF
TSSR(RS),R1
#SSR!SC!BIT2,R2
R1,R2
3104

CsCLPL

TRAP

CSERHRD

.WORD
. WORD
.WORD

038
T128PBP
EXPREC

TRAP

CsCLP)

iNUMBER OF RECORDS TO SPACE BACK
1SET UP R4 WITH PACKET ADORESS
s ISSUE COMMAND
tWAIT FOR SSR 10O SET

$1GET TSSR CONTENTS
;SET UP EXPECTED
$ARE THEY EQUAL

s1BR,

IF OK

1BUMP COUNT
;TSSR INCORRECT AFTER SPACE CMD.
TRAP
.WORD
.WORD
.WORD

CSERHRD
839
T28RDG
PKXTSSR

TRAP

CsCLP1

;PICK UP XST3
;SET UP EXPECTED
;RIB SHOULD BE SET
1IS RIB SET
1BR, IF RIB WAS SET (GODOD)
1BUMP COUNT
1RIB NOT SET AFTER READ REV

TRAP

;LOOP IF SELECTED

CKLOOP

TRAP

1 SPACE REVERSE ,ACK, COMMAND

1LOOP IF SELECTED
T288FR+14
,R1

837
T2B8RRN
EXPREC

sPICK UP RESIDUAL BYTE COUNTER
1SHOULD BE THE OIFFERENCE
+IS COUNTER CORRECT
1BR, IF COUNTER CORRECT
;BUMP COUNT
tRESIDUAL BYTE COUNTER NOT CORRECT

;LOOP IF SELECTED

CKLNOP
MOV
MOV
8IS
cre
8€EQ

110516

,R1
T28BFR.4

CKLOOP
MOV
MOV
MOV
MOV
JSR
MOV
MOV
cre
8EQ

110610
110612

1LOOP IF SELECTED

CKLOOP

CIERHRD

.WORD
.WORD
.WORD

CSERMRD

.WORD

840

TRAP

CsCLP1

.WORD
.WORD

T28RIB
EXPREC

t SPACE FORWARD,ACK, COMMAND
sNUMBER OF RECORDS TO SPACE FORW.
$SET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND
tWAIT FOR SSR TO SET
$1GET TSSR CONTENTS
tSET UP EXPECTED
1ARE THEY EQUAL
1BR,

IF 0K

[9
TSV? - HARDWARE TESTS 1-8
TEST 8: WRITE/READ TAPE MARK
11116 110310

11120

11121

11122

11123
11124

11125
11126
11127
11131

11132
11133
11134
11135
11136
11137
11141

110314
110314
110316
110320
110322
110324
110324
110326
110332
110334
110340
110342
110344
110350
110350
110352
110354
110356
110360
110360
110362
110366
110372
110374
110376
110402
110402
110404
110406
110410

11142 110412
110412
11143 110414
110414
110414
11144 110416
11145 110424
11146 110426

11147
11148
11149
11150
11151
11152
11153
11154
11155

110432

110432
110436
110440
110444
110444
110444
110446

11156
11157
11158
11159
11161 110450
11163 110460
11164 110460

005237

MACRO M1113

INC
ERRHRD

002212

104456
001511
111014
015564
104406
013701
010102
052702
020102
001406
005237

310%:

100000
002212

ERRHRD

3204
:

110506

ERRHRD

104456
001513

FATFLG

ERRNO, T28RDF ,EXPREC

SEQ 0316

1BUMP COUNT
; TSSR INCORRECT AFTER SPACE CMOD.
TRAP

.WORD
.WORD
.WMORD

;tLOOP IF SELECTED
T28BFR+6,R1
R1,R2
08IT15,R2
R1,R2
3204
FATFLG

ERRNO, T28RRP ,EXPREC

TRAP

tPICK UP XSTO
sSET UP EXPECTED
: TMK

SHOULD BE

tBR,

IF TMK WAS SET (GOOD)

s IS TMC SET

1BUMP COUNT
; TMK NOT

SET

T288FR.4
,R1
04, R

R1,R2
330¢

FATFLG

ERRNO, T28P8BP ,EXPREC

AFTER READ REV
TRAP

3304:

104406

104403

023727
103402
004737

002212

004737

016546

000137

105320

103002

017272

000017

9994
:

163¢:

104432

CSERMRD

842
T2BRRP
EXPREC

TRAP

CsCLP1

TRAP

;LOOP IF SELECTED

ENDSUB

sccccccccccc

.WORD
.WORD
.WORD

END

TRAP
SUBTEST

L10133:

TRAP

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

FATFLG,@15.

JSR
8CC

PC,TSTLOOP

T28L00P

1634

;D0 WE NEED TO ITERATE TEST
;BR, IF NO LOOP REQUIRED
1EXECUTE AGAIN

EXIT

TST

sALL DONE THIS TEST

;TRY

TO DROP

THE

843
T28P8BP
EXPREC
CsCLP1

C$ESUB

UNIT

TRAP

.WMORD

002256

CSERHRD

>>>333>3>>>

cHP
8LO
JSR

PC.,CKDROP

CsCLP!

;SHOULD BE THE OIFFERENCE
;IS COUNTER CORRECT
:BR, IF COUNTER CORRECT
1BUMP COUNT
sRESIDUAL BYTE COUNTER NOT CORRECT

CKLOOP

9994

841
T28ROF
EXPREC

.WORD
LMHORD
.WORD

iPICK UP RESIDUAL BYTE COUNTER

110731

015564

CSIERHRD

SET

;LOOP IF SELECTED

CKLOOP
MOV
MOV
cHpP
8EQ

002212

14:17

CKLOOP
MOV
MOV
8IS
cHe
8EQ

110510

104456
001512
112264
015564
104406
013701
012702
020102
001406
005237

14-JUN-84

CSsEXIT

L10130

;LOCAL STORAGE FOR TMIS TEST

100004

.BLKB

10-<,-TSV2E7>

. WORD

100004

T28PACKET:

1COMMAND PACKET FOR TEST

tWRITE CHARACTERISTICS COMMAND, WITH IE. ACK

TSv?

TEST

HARDWARE TESTS 1 8

8: WRITE/READ TAPE MARK

11165
11166
11167
11168
11169
11170
11171
11172
11173
11174
11175
11176
11177
11179
11181
11182
11183
11184

110462
110464
110466
110470
110470
110472
110474
110476
110500
110502

11215
11216
11217
11218

14 UUN-84

110470

000000
000012

110502
000000
000024
000000
000000

T28DATA:

T280SW:
T28BFR:

14:17

.WORD
.WORD
.WORD

T2BDATA
O
10,

.WORD
.WORD
.WORD
.WMORD
.WORD
.BLKW

T28BFR
O
20.
O
O
25.

SEQ 0317
s ADDRESS OF

CHARACTERISTICS BLOCK

$STARTING VALUE OF BLOCK SIZE
1 CHARACTERISTICS DATA BLOCK
s ADDRESS OF MESSAGE BUFFER
sLENGTH OF MESSAGE BUFFER

s SELECT DRIVE O
tMESSAGE BUFFER

{WRITE SUBSYSTEM MEMORY COMMAND PACKET

110564
110570
110570
110572
110574
11185 110576
11186
11188 110600
11190 110610
11191 110610
11192 110612
11193 110612
11194 110614
11195 110616
11196
11197
11198

11199
11200
11201
11202
11203
11204
11205
11206
11207
11208
11209
11210
11211
11212
11213
11214

MACRO M1113

(59

.BLKB

10-<.-TSV2E7>

. WORD
.WORD
MORD
.MORD

100006
T288F
2
O
6.

.BLKB

10-¢,-TSVRET>

. WORD

100005

;REREAD COMMAND,

.WORD
.MORD
WORD
EVEN

FREE
O
0

: ADDRESS OF WRITE BUFFER

T288F2:
728850:
72688S51:
728S2:
T28S3:

.BYTE
.BYTE
.WORD
.WORD

10
200
O
O

+BSELC AREA
:8SEL1 AREA
:SEL 2 AREA

.EVEN

T28PK2:

100006
110620

100005
003114

T28PK3:

T28RB:
T28WB:

128S2Z:

110620
110620
110621
110622
110624

sWRITE SUB SYS MEM COMMAND,

1 ADDRESS OF SELECT BLOCK DATA

AND ACK

;SIZE OF DATA PACKET

AND ACK

:SIZE OF BUFFER (EXTENT)

;OATA AREA

;TAPE MOTION PACKET COMMAND VALUES
110626
110626

110630
110632
110634
110636
110640
110642
110644

11219
11220
11221 110646

11222 110650
11223 110652
11224
11225

T28IMV:

101411
102011
103411
1777177
100011
100411

101011
177777

000000
000000
000000

T28RN:

T26WOR:
T28CON:

]

T28CNT:
T28CNU:
T280LY:

.
.WORD
.WORD
.WORD

101411
102011
103411
177777

.WORD
.WORD

100411
101011

.WORD

.WORD
.WORD
.WORD
.WORD
EVEN

100011

177777

O
O
O

: ILLEGAL MODE BITS TEST DATA

tWRITE TAPE MARK COMMAND
tERASE COMMAND
tWRITE TAPE MARK RETRY

;END OF DATA

1 TAPE TIMER COUNTER STORAGE AREA
i TAPE TIMER COUNTER STORAGE AREA

tDELAY COUNTER

H9
TSV?

TEST

- HARDWARE TESTS 1-8

8: WRITE/READ TAPE MARK

MACRO M1113

11226
11227
11228
11229

14 UUN-84

14:17

SEQ 0318

{LOCAL TEXT MESSAGES FOR TEST

11230
11231 110654
11232 110731
11233 111014
11234 111075
11235 111157
11236 111234
11237 111315
11238 111366
11239 111457
11240 111524
11241 111601
11242 111650
11243 111723
11244 112002
11245 112055
11246 112127
11247 12205
11245 112264
11249 112342
11250 112424
11251 112521
11252
11253
11254
11255
11256
11257
112546
112546
112552
112556
112562
112566
112570
112574
11270
112602

112610
112614
112626
112630
112634
112636

112640
112640
112644

124
122
124
124
124
111

141
145

123
123
123

160
163
123
123
123

122
123

111

123
145
162
123
126
115
115
115
115

123
167
151
123
103
113
113
113
113

162

151

141

141
141

123

164

T28RIB: .ASCI1Z
T28P8P: .ASCIZ
T28RDF
: .ASCIZ
T28R0G: .ASCIZ
T28WOF
; .ASCIZ
T28L0Q: .ASCIZ
T28SSR: .ASCIZ
T28WOE: .ASCIZ
T28807: .ASCIZ
T28TM:
.ASCIZ
T28RWN: .ASCIZ
T280FL
: .ASCIZ
T28W0C: .ASCIZ
T28VCK: .ASCIZ
T28TMK; .ASCIZ
T28RRM; .ASCIZ
T28RRN: .ASCIZ
T2BRRP: .ASCIZ
T28DTR: .ASC1Z
T28D7TA: .ASCIZ
TST2810D:
.EVEN

‘'Tepe Position Not Correct, RIB Should Be Set’

'Residual Byte Counter Register (RBPCR) Not Correct’
*TSSR Incorrect After RE
REVERSE Into TAPE MARK'

'TSSR Incorrect After SPACE Commend Into TAPE MARK'
*TSSR Not Correct After Illegasl Mode Bits Set’
‘Ill;g.l Mode Bite, Feiled To Set ILC Bit In XSTO'

MISCELLANEOUS Commend Not Accepted’
‘WR1
*TSSR Not Correct After READ DATA Command, Into TAPE MARK
‘Tepe Not At BOT After REWIND Commend’
*TSSR Not Correct After FORMAT Commend Re ject’
'‘Rewind (POSITION) Command Not Accepted’

‘Orive 7 Select Failed To Set "OFL" In TSSR’
*TSSR Not Correct After WRITE TAPE MARK Command'
‘'CVC Set, Didn’' 't Reset VCX In Message Buffer’

*‘TMK Not Set After WRITE TAPE MARK Commend’
'TMK Not Set After READ REVERSE Into TAPE MARK'
'TMK Not Set After SPACE REVERSE Into TAPE MARK'
‘TMK Not Set After READ FORWARD Into TAPE MARK'
‘Data Trensferred On READ REVERSE Into A TAPE MARK’
‘Date Compare Error, Dete Read From Tape Not Equal To Written
‘Write/Read Tape Mark'’
.ASCIZ

HE4

;ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAWLT) VALUES
sWRITE SUBSYSTEM MEMORY COMMAND

T28REST:

012701
012721
012721
005021
012721
012721
005021
012721
005021
012711
012702
012762
005742
020227
001371
000207

110460
100004
110470

#T28DATA,(R1).

(R1).
#10.,(R1).

#T288FR,(R1).

220502

(R1).
#20. ,(R1).
(R1).

000024

1777717

#T28PACKET,R1

9100004, (R1)+

310012

000000
000030

SAVREG

#0,(R1)

110502

024, ,R2

644

000000

0177777,7288FR(R2)

-(R2)
R2,#0
644

T28RT2:

012701

110570

0T28PK2,R1

$1SAVE THE REGISTERS

1START OF THE PACKET

;WRITE SUBSYSTEM MEM.

WITH ACK,

s ADDRESS OF CHARAISTICS DATA BLOCK
1EXTENDED ADORESS

1SIZE OF DATA BLOCK IN BYTES
1 ADDRESS OF MESSAGE BUFFER

sLENGTH OF MESSAGE BUFFER
$ SELECT DRIVE ZERO

tNUMBER OF LOCATIONS TO BE CLEARED
t1ALL ONES TO MESSAGE BUFFER
sNEXT LOCATION

;CHECK FOR END

sKEEP GOING UNTIL DONE
;sRETURN

1SAVE THE REGISTERS

;START OF THE PACKET

TSV? - HARDWARE TESTS 1-8

TEST

8: WRITE/READ TAPE MARNM

11283
11284
11285
11286
11287
11288
11289
11290
11291
11292
11293
11294
11295
11296
11297
11298
11299
11300

112650
112654
112660
112662
112666
112670
112674
112676
112700
112702
112702

112706
112712
112714
112716
112720
112722
112724
112724
112724
11301 112726

012721
012721
005021
012721
005021
012701
005021
005011
000207
012701
005021
065021
005021
005011
000207

104401

MACRO M1113

14 JUUN 84 14:17

100006
110620

MOV
MOY

000006

MOV
CLR
MOV
CLR
CLR

CLR

110620

RTS

T28RT3:

110610

SAVREG
MOV
CLR
CLR
CLR

CLR

RTS

ENDTST

ENOMOD

#100006,(R1)+

SEQ 0319
sWRITE

SUBSYSTEM MEM,

WITH ACK,

#T288F2,(R1).

s ADDRESS OF DATA BLOCK
sEXTENDED ADORESS
$1SIZE OF DATA BLOCK IN BYTES

#7288F2,R1

sPOINT TO DATA SEL AREA

1RETURN

#T728PK3,R1

sGET PACKET ADDRESS

(R1).
06.,(R1).
(R1).

(R1).
(R1)

(R1).
(R1).
(R1)»
(R1)

1CLEAR COMMAND AREA
1CLEAR ADDRESS AREA
;CLEAR EXTENDED ADDRESS AREA

1SIZE OF DATA TRANSFER
;RETURN

L10130:

TRAP

CSETST

PARAMETEQ CODING MACRO M1113
: WRITE/READ TAPE MARK

TSV6
TEST

14 JUN-84 14:17

112726
112726

TSV6:
:

SEQ 0320

LTITLE

TSV6

BGNMOD

TSvé

.SBTTL

HARDWARE PARAMETER CODING SECTION

PARAMETER

CODING

HEAR

i
:
i

THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS
THAT ARE USED 8Y THE SUPERVISOR TO BUILD P-TABLES.
THE
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE

; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.
MACROS ALLOW THE SUPERVISOR
WITH THE OPERATOR.

112726
112730

112730
112730
112732
112734
112736
112740
112740
112742
122744
112746

000010

L$HARD:;

GPRMA
.WORD
.WORD

000031
112750
160010
177776
001031
113004
000000
000776

104
111
111

HPM1,0,0,160010,177776,
YES
T$CO0E
HPM1
TS$LOLIM
TSHILIM
HPM2,2,0,0,776,
YES
T4CO0E

;GET TSBA/TSDB REGISTER ADDRESS.

:GET VECTOR ADODRESS.

HPM2

TSLOLIM

TSHILIM
HPM3,4,0,340,0,7,YES

112750

112750
37 112750
38 113004
39 113030

BGNHROD
.WORD L10134-L$HARD/2

§33888 1

112726

THE

TO ESTABLISH COMMUNICATIONS

105
116
116

126
124
124

L10134:;

HPMY :
HPM2:
HPMS:

.EVEN

.ASCI1Z

.ASCIZ
.ASCIZ

‘ODEVICE ADDRESS (TSBA/TSDB)
* INTERRUPT VECTOR
'
* INTERRUPT PRIORITY

;:GET INTERRUPT PRIORITY.

[}
PARAMETER CODI*

TSvé

MACRO M1113

SOF TWARE PARAMETER CODING SECTION

14 JUN-84

14:17
.SBTTL

47
43
44

S5EQ 0321
SOF TWARE PARAMETER COOING SECTION

THE SOF TWARE PARAMETER COOING SECTION CONTAINS MACROS

;

WITH THE OPERATOR.

+ THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES.

THE
; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE
i INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.
THE
; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS

47
48
49

50
51
Se 11306C

113060
113062

53
54 113062
113062
113064
113066

T
BGNSF
.WORD L10135-L$SOFT/2

000003

001130
113120
177777

L$SOFT::
:
GPRML
GPRML
. WORD
.WORD
. WORD

SPM1,0,-1,YES
SPM4 ,2,-1,YES
T4CO0E
SPMA
1

SPM?7,6,0,.7777,0,7777,YES

113070
L1013S:

113070
113070
113120
113150
113200

105

111
120
120

116
116
105
105

101
110
122
122

SPM1 ;
SPM4 :
SPM6 :
SPM7:

GPRMD

ENDSFT
.EVEN

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.SBTTL

SPM6,.4,0,7777,0,7777.YES

:
;

GET TRANSPORY TEST FLAG.
GET ITERATION CONTROL
.

GET LOCAL ERROR LIMIT

;: GET GLOBAL ERROR LIMIT

'ENABLE TRANSPORT TESTS
'INHIBIT ITERATIONS
'PER TEST ERROR LIMIT
'PER UNIT ERROR LTMIT
PATCH AREA

: FINALLY A GENEROUS PATCH AREA.
: AND AN ADJUSTMENT TO ACCOUNT FOR THE "LASTAD BIT7" HACK
. DESCRIBED IN “SUPPRG.MEM” (FOR REV C).
PATCH:
:

113230

113400
113400
113402
113404
113404

BLKW

113400

LSLAST::
000001

.=, 1377.1
LASTAD
.EVEN
. WORD
0
. WORD
0
ENOMOD
.END

;SET LAST USED ADDRESS.

L9
TSV6 - PARAMETER CODING MACRO M1113

SYMBOL TABLE

ADDSSR

012216 G

C$AU

14-JUN-84 14:17

= 000052

ODEVDRO

SEQ 0322

023422

FREE

ADR
= 000020 G
AMBTSS 006725

C$AUTO= 000061
C$BRK = 000022

OEVNRD
DEVNXR

023341
023257

FREEMI
FRESIZ

A1716 = 000003

cs8SUB= 000002

DEVSUM

023152

F$AU

BITO
81700
B8IT01
81702
81703
81704
8ITO0S
8IT06
8ITO07

C$CVEC=
CSOCLN=
C$DODU=
C$ORPT=
C$OVU =
C$EDIT=
C$EROF=
C$ERHR=
C$ERRO=

ASSEMB= 000010

BADDAT 003146 G
BADSSR 015770 G
BDVPCR= 177520 G
BENBSM 002220 G
BIE
= 040000

8IT08
81709
8IT1
8IT10
81711

=
=
=
=
=
=
=
=
=

=
=
=
=
=

000001 G
000001 G
000002 G
000004 G
000010 G
000020 G
000040 G
000100 G
Q00200 G
000400
001000
000002
002000
004000

G
G
G
G
G

8IT12 = 010000 G

8IT13 = 020000 G

8IT14 = 040000 G
8IT1S
8IT2
8IT3
8IT4
8ITS

=
=
=
=
=

B8IT7
8IT8

= 000200 G
= 000400 G

8IT6

8IT9
B0E

BRINIT

100000
000004
000010
000020
000040

G
G
G
G
G

= 000100 G
= 001000 G
= 000400 G

004455

BSELO =
BSEL1 =
CHKAMB
CHKMAN

000000
000001
016134
020570 G

CKDROP
CKEMAX
CKMSG
CKMSG2
CKRAM
CKRAM2
CMOPKT

017272
017172
011450
011570
011204
011314
021304

CHKTSS

CMPMEM
CONFIG
COUNT
CSRADD

CTA8

CTABE
CTABH

016426

017750

G
G
G
G
G

C$BSEG= 000004

C$CEFG= 000045
C$CLCK= 000062
C$CLEAR= 000012
C$CLOS= 000035
C$CLP1= 000006

C$ERSF=
CS$ERSO=
C$ESCA=
CSESEG=
C$ESUB=

000036
000044
000051
000024
000053
000003
000055
000056
000060

000054
000057
000010
000005
000003

CS$ETST= 000001

C$EXIT= 000032

C$GETB= 000026

C4GETW=
CSGMAN=
C$GPHR=
C$GPLO=
CS$GPRI=

000027
000043
000042
000030
000040

ENAINT
ENVIRN
EPRTSW
EPRT1
EPRT2

F4SEG =
F$SOFT=
F4SRV =
FISUB =
F$SW =

OUFLG
oUMMY
EF .CON=
EF .NEWe
EF .PWR=
EF .RES=
EF.STA=
EMAXOU
EN
=

003102 G
003052
000036 G
000935 G
000034 G
000037 G
000040 G
017067
000000

ERCM

012023

ERRHI

ERRK

ERRLO
ERRNO =
ERRVEC=
ERTABE
ERTABL

016242
020720
002170 G
006356
006446
002226 G

017046

002230 G
001513
000004 G
003366
003166

C$MEM = 000031

EXIT

034324

EXPD

002222 G

C$OPEN= 000034

EVL
= 000004 G
EXBCNT=» 000010
EXPBRE

015572 G

C$PNTB=
C4PNTF=
C4PNTS=
C$PNTX=

000014
000017
000016
000015

EXPGOT
EXPGT2
EXPMSG
EXPREC

004531
004565
002312 G
0135564 G

C$ROBU=
CSREFG=
CSRESE=
CS$REVI=
C4RFLA=
C4RPT =
C4SEFG=

000007
000047
000033
000003
000021
000025
000046

EXTEND
EXTFEA
ESEND =
& $LOAD=
FATAL
FATERR=
FATFLG

005766
002216 G
002100
000035
034424
000060
002212 G

DATA

002302 G

FIFeMS

DEBUGM
DEVCNT

011722
002210 G

C4QI0 = 000377

003154 G

DATASC

020322

004115

= CO001C

F$AUTO= 000020
F$BGN = 000040
F$CLEA= 0000C7
F$0U = 000016
FSEND = 000041

017050

C#MSG = 000023

FUSI

OFPTBL 002146 G
OIAGMC+= 000000
OICEC = 000001
DSBINT 016274
DUAD12 004641

ESUM

CS$INLP= 000020
C$MANI= 000050

C$SPRI= 000041
C$SVEC= 000037
C$TPRI= 000013

003166 G
003154 G

023207

C$INIT= 000011

017340
002300 G
002176 G

DEVONL

003114 G

003120
003116 G

EXTA

FERCM
FIFEXP
FIFIMS
FILLME

FNOINT
FORCER

005770

F $HARD=
FéHW =
F$INIT=
F$JMP =
F$MOO =
F$MSG =
F$PROT=
F$PWR =
FSRPT =

016240
016235

INTR

016306 G

INTMAS

016234

INTREC 002214 G
INTVEC 016236
INTX
004276
INVERT 021232 G
IOKCKI= 000200

IOKSTP=
IPRI
ISR
=
IVEC
IXE
=
ISAU =
ISAUTO=
ISCLN =
I$0U =

000001
002202 G
000100 G
002200 G
004000 G
000041
000041
000041
000041

I$HRD =
I$INIT=
I$M00 =
I$MSG =
I$PROT=

GODAT

003150 G

I$PWR = 000041

GETPAT
GETSEL
GSCNTO=
GS$DELM=
G$0ISP=

020264 G
020346 G
000200
000372
000003

FS$TEST= 000001
GERRMA

002164 G

GS$EXCP= 000400

000041
000041
000041
000041
000040

I$PTAB= 000041
ISRPT = 000041
I$SEG =
I$SETU=
I$SFT =
I$SRV =
I$SUB =

000041
000041
000041
000041
000041

IS$TST = 000041

G¢HILI= 000002
GSLOLI= 000001

JIJMP = 000167
KIPARO= 172340

GS$OFFS= 000400

KIPAR2=

172344

KIPARA=
KIPARS=
KIPARG6=
KIPAR7=

172350
172352
172354
172356

KIPDR1=
KIPOR2=
KIPDR3=
KIPDR4=
KIPDRS=
KIPDR6=
KIPOR7=

1723G2
172304
172306
172310
172312
172314
172316

G$NO

= 000000

G$OFSI= 000376
GS$PRMA=
G$PRMD=
GS$PRML=
G$RADA=

000001
000002
000000
000140

G$RADO=
GS$RADL=
G$RADO=
G$XFER=
GS$YES =
HIADDR=
HOE
=

000040
000120
000020
000004
000010
001400
100000 G

G$RADB= 000000

HPM]
HPM2
HPM3

(.7512

IDVU

004213
002166 G

017134

000003
000005
000010
000002
000014

012012
012260 G
012332
012401

000004
000013
000006
000050
000000
000011
00002,
000017
000012

INCERK

INTCPC
INTFLA

IBE

112750
113004
113030

= 010000 G

= 000040 G

IER
= 020000 G
IFALT
004254

KIPARL1= 172342
KIPAR3= 172346

KIPDRO= 172300

KTENAB
KTFLG
KTINIT

003124 G
003122 G
021100

KTON

017346

KTOFF

017364

LERRMA
002162 G
LISTAL= 000001

M9
TSV6

SYMBOL

PARAMETER CODING MACRO M1113
TABLE

14-JUN 84 14:17

SEQ 0323

LOE
= 040000 G
LOOPCN 002206 G
LOOPCO 013216
LOOPFL 003152 o
LOT
= 000010 G
LSACP
002110 G
LSAPT
002036 G
L$AV
022376 G
LSAUT
002070 G
LSAUTO 022602 G

LSUNIT
L10000
L10001
L10002
L10003
L10004
L10005
L10006
L10007
L10010

002012 G
002154
002166
005764
012134
012152
012170
012176
012214
012232

L10071
L10072
L10073
L10074
L1007S
L10C76
L10077
L10100
L10101
L10102

055642
047704
050304
050760
051424
052164
053124
053444
054046
075224

M8189
005643
NBA
= 002000
NEWPAS 022034
NOOEV
003104 G
NOINIT 004333
NOINTR 004217
NOITS
002160 G
NOMAN
020624
NOMEM
005456
NP.IR = 000200

PRBEXP 015560
PRBMSG 015426
PRBREC 015562
PRBTOT 015513
PRBYTE 015212 G
PRI
= 002000 G
PRIADD 010250
PRIAO
010320
PRIBXO 007702 G
PRIEQU 010150

L$DEPO

L10014

013214

L10106

061272

NSI

004150

PRITSS

062712

NUL

004525

067770

NXMTST

021476

LSCCP
LSCLEA
L$CO

002106 G
022662 G
002032 G

L$DESC

003400 G

LSOESP

002011 G

002076 G

L10011
L10012
L10013

L10015S

L10016

012256
012330
012500

014042

014064

LSDEVP
LSOISP
LSOLY
L$DOTP
L$OTYP

002060 G
002124 G
002116 G
002040 G
002034 G

L10017
L10020
L10021
L10022
L10023

015570
015576
015604
015616
015640

LSDUT

002072 G

L10025

016026

LSOV

022474 G

L$OVTY

003372 G

LSETP
LSEXP1
LSEXP4
LSEXPS
LSHARD
LSHIME

002102 G
002046 G
002064 G
002066 G
112730 G
002120 G

L $EF
LSENVI

LSHPCP
LSHPTP

LerMd

LSICP
LSINIT
LSLADP
LSLAST
LSLOAD
LSLUN
L$MREV
LSNAME

L$PRIO
LSPROT
L$PRT
LSREPP
LSREV
LSRPT
L$SOFT
L$SPC

L$SPCP
LSSPTP
L$STA
(T
LSTEST
L$TIM

L10024

L10026

015666
016336

002052 G
002044 G

L10030
L10031

022326
022472

002016 G
00L2022 G

L10040
L10041

025216
025540

002146 G

002104
02°'602
002026
113404
002100
002074
002050
002000

002042
021572
002112
002062
002010
022710
113062
002056

G
G
G
G
G
G
G
G

002020 G
002024 G
002030 G
002156 G
002114 G
002014 G

L10032
L10033
L10034
L10035
L10036
L10037

L10042

L10043
L10044
L10045
L10046
L10047
L100S50
L10051
L10052

L10053
L10054
L10055
L1006
L10057
L10060
L10061
L10082

L10063
L10064
L10065
Li0066
L10067
L10070

022600
022660
022706
023150
024610
027270
026120

034450
027676
030546
031366
031602
032150
032514
046714

033122
035702
036456
037160
037624
040260
040714
041306

042010
042254
042526
043012
043312
043776

L10103
L10104
L10105

L10107

L10110

L10111
L10112
L10113
L10114
L10115

L10116

110117

L10120

L10121
L10122

L10123
L10124
L10125
L10126
L10127
L10130
L10131
L10132

L1C133

L10134
L10135
MEMADD
MEMCK
MENASC
MENERR
MENRES
MMVEC =

MSA
. FRe
MSA
. NO=
MSA _.NR+=
MSA. V0=
MSGEXP
MSGLOO
MSGSTA
MSGSUB

MS.ATT=
MS.EXTe
h>.RS0=
MS.RSF=
MS.RST=
8186

056604
057452
060344

NP.LOO= 000040
NP, OUT= 000100
NP
. WRP= 000020

062050

NSINIT

063564
064436
065312
066166
067036

NULCR
NXM
=
NXMFLG
NXMHI
NXMLO

071020

NXR

071400

NXRERR

072054
105262

NXRX
NXTU

075646
076430
077252
100154
101704
112724

OFL
=
ONEFIL=
0$APTS=
O$AU =
04BGNR=
048BGNS=

105662
106142

112750
113070
014044 G
021322 G
020537
020464
020566
000250

000006
000200
000001
000020
000010
005552

004526
004000
003126 G
003132 G
003130 G

003736

005734 G

003775
022046

000100
000000
000000
000001
000001
000001

osoU
= 000001
O$ERRT= 000000

110414

000006
000000
000004
000002
012234
013154
012440
014032

004405

G
G
G

007460 G
010156
010364

PRITO

010446

PRIT1

PRIXOR
PRIOO =
PRIO1 =
PRIO2 =
PRIO% =

C$POIN=
04SETU=PASRPT
PATCH
PATDAT
PC.ERA=
PC.IER=
PC.NOO=

000001
000000
022100
113230 G
020320
002400
002000
001000

PKTMES
PKTRAM
PKTSSR
PNT
=
PRAMPK
PRASC

0122C0
004743
012136
001000
014066
014613

000000
000400
000006
000CO4
000002
007644
007606
012154 G

G
G
G
G

006022
010511

010032 G
000000 G
000040 G
000100 G
000140 G

PRIOA = 00020¢ G

PRIOS = 000240 G
PRIO6 = 000300 G

PRIO7 = 000340 G
PRMESS 014332
PRMNO
PRMSGE
PRMSGO
PRMSG1
PRMSG2
PROASC

002310 G
014642 G
015022
015067
015125
014510

PUNIT

022330

PR1ASC
PST32W

O3GNSW= 000001

PC.REL=
PC.REW=
PKBCNT=
PKHI
=
PKLOM =
PKTADD
PKTFRM
PKTGET

PRIPKT
PRIRAM
PRITAD

PW.D11=
PW.D13=
PW.D22=
PW.NOP=
PW.NO1=
PW.RDE=
PW.RDR=
PW.ROS=

PW.RFI=
PW
. WCT=
PuW.WFI=
Pu . WFM=
PW.WMI=
PW . WNP=
PuW.WTR=
P.ACK =

P.CMD =
P.CONT=
P.CvC =
P.FAT =
P.FORM=
P.GETS=

014555
003142 G
000021
000022
000020
000000
000023
000024
000001
000005

000003
000006
000004
000007
000010
000011
0GO00¢
100000

000037
000012
040000
000140
000011
000017

TSV6
PARAMETER CODING MACRO M1113
SYMBOL TABLE

P.IE
= 000200
P_INIT= 000013
P MODE= 007400
P OPP

SPM6
SPM7
SRO

14 JUN 84

14:]1°

SEQ 0324

113150
113200
177572

TSREJ = 000006
TSSDEF
006676
TSSR
= 000002 G
TSSRBI

003500

177576

TSSRFO

006505

020000

SR1

P POSI=

000010

SR2

P READ=

000001

SRY

172516

TSSRH

P SWB

010000

SSR

000200

TSSX

004016

STATCO
012502
SVCGBL= 000000
SVCINS= 000000

TSTBLK
TSTCNT
TSTEND

002742
002204
017010
002304
016546

P.WRIT= 000005
P_WRTC= 000004
P_WRTS= 000006

002174 G

177574

SVCSUB= 000001

TSTFLA

000003

RAMASC
RAMDAT
RAMERR
RAMEXP
RAMFOR

014236
002232 G
015600 G
015620 G
010206

SVCTAG*
SYCTST=
S.,LSYM=
SO IDB=
S0.IFB=

00C000
000001
010000
000010
000002

TSTLOO
TSTPTR
TSTSET
TST21I
TST221

RCVHIA

002274 G

SO.ION= 000040

TST251

055440

RDERR

005204

TST271

105063

RAMSIZ
RAMTAD

RCVLOA

002272 G
015606 G

002276 G

RECMSG
RECV
REGSAV
RETERR
RETRY
REWIND
RMCHBE=
RMCHEN=

002456 G
002228 G
020230
005370
034326
011104 G
000167
000200

RMMSGE=
RMPKTB=
RMPX1E=
RMR
=
RWPACK
€C_
=
SCE
=
SIERR

RMMSGB=

SO%
SOELAY
SELASC
SELDAT=
SEL2
=
SETMAP
SETU
SFFMSG
SFHERR
SFIERR
SFIMSG
SFPTBL
SIFLAG
SIMSG
SKIPT
SOFINI
SPACE
SPHL
SPM4

50.IFP= 000001
S0.ILD= 000020

TST231
TST241

S0.IRD= 000100

TST261

SO.IRW= 000004

000215

S0.ISP=
S1.ICE=
S1.IEO=
S1.IF.1=
S1.IHE=
S1.IID=
S1.I1R=
S1.I2R=

S1.PAR=

000200
002000
010000
001000
000490
004000
020000
040000

000234
700201
000210
010000
011200
100000
020000
005276

S2.ATI=
S2.BTI=
S2.DIM=
S2.ILW=
S2.INR=
S2.0UT=
S2.UND=
TBLEND=

000010
000004
000200
000100
000020
000040
000003
003052 G

005011
010750
020532
000004
000002
017406
022132
012172
003703
003650
012124
002156
003144
012056
003370
016064
010556
113070
113120

G
G
G

TCOASC
TCOCOD
TEMPL
TEMP2
TERCLS*
TESTNO=
TEXASC
TFCASC
TIMEXP
TIMSGO
TINERR
TMPBFR
TNAM
TRANST
TSBA
=
TSBAH =
TSDB
=
TSDBH =
TSFCOD

100000

006566
006766
003106
003110
000016
000010
006525
006627
015642
015670
012111
002622
016774
002156
000000
000001
000000
000001
007326

G
G

G
002306 G
016600 G
024434
027077

G
G

G
G
G
G
G

010000

1238

003136

010030

T238A

033725

T4$MSG=

010025

T238FR

032602

T$$PRO=

010027

T238F2

032722

T$SRPT= 010035
T48$SOF= 010135
T$$SRVe 010026

123850
123851
T23CHK

T$$SW =
T$$TES=
T1
T2
T2.1

010001
010130
023472 G
024612 G
024642

T230AT
7230SW
T23E0T
T23ET
T25L00
T230FL

032722
032723
034262
032740
032570

032600
033064
032777
027342
033406

T21AM3

024313

T23PK2

032670

T$$SUB= 010133

T21BFR

TSARGC=
T4CODE=
TSERRN=
TSEXCP=
T4FLAGe
TSGMAN=
TSHILI=
TSLAST=

000003
001130
001513
000000
000040
000000
000776
000001

T21BF2
G
G
G
G
G
G
G

000000
010000
000010
177777
000000
000005
000002
000000
177777
177777
000003
177777
010136
000000
000010
177777
000001
010031
010033

026310
003134 o
033340

075027

112521
002000
002166
021572
112726
023472
177562
177560

T22WRT
123A
T23AM3

T$$INI=

T2.2
12.3

VTIVEC= 000060 G

G
G

TS$Hd

034066
046462

TST281
ISV2
TSV3
TSV
TSV6
TSV?
TTIBFR=
TTICSRe

TSLOL I+
TSLSYM=
TSLTNO=
TENEST=
TENSO =
TENS1 =
TENSZ =
T$PTIU=
T$SAVL=
T$SEGL=
T4SUBN=
T4TAGL=
TSTAGN=
T4TEMP=
T4TEST=
T4TSTMe
T$TSTS=
T4$AU =
T$$AUT=

T$$CLE= 010034
T$SDU = 010032
T$$HAR+ 010134

T218SO
T218S1
T21DAT
T2IDLY
T210SW
T21L00
T210FL
T21PAC
T21PK2

T21RES
T21RT2
T21SSR
T21S2
T21S3
T22AM3
T22BFR
T228F2

122850
T228S1
T220AT
T22FOR
T22L00
T220FL
T22PAC
T22PK2
T22P0S
T22RD
T22RES
T22RT2
T22RWJ
T22SSR
72252
72253
T22TM
T22VCK
T22W.K

025234
025556
024114

024210
024210
024211
024100
024112
024110
023522
024413
024070

024200

024456
024546
024216
024212
024214
026415
026202
026300

026300
026301
026170
026314
024642
026515
026160
026270
026312
026306
027132
027224
026664
026320
026302
026304
026570
026737
027012

T23CON

T23PAC

T23PK3

T23RES

T23RANC
T23RSZ
T23RT2
T23RT3
T23RWN
T23SSR
T23SZ
12352
72353

T23TM
T23TMP
T23VCK
T2348
T23WD
T23WDC
T23W00
T23WDR

T23WRT
T23WSS
T24AM3
T24BA
T24BFR
T24BF2
T24B0T
T24BSO
T248S1
T24CON
T24DAT
T24DLY
T24DSW
T24DTA
T24EOT
T24ILA
T24LON
T24L00
T24LOP

032560

032710

034102

033265
032720
034174
034236
033216
032744
032716
032724
032726

033142
032730
033652
032712
032734

033550
033461
032736
032732
033777
045450
046002
044062
044200
045043
044200
044201
044212
044050
044216

044060
045110
045176
044572
046142
034516
046224

TSV6

SYMBOL
T24L0Q
T24LOR
T24NEF
T24NXM

T240FL
T24PAC
T24POP
T24PX2
T124PK3
T24R8
T24RES
T24RN
T24RNC
T24RT2
T24RT3
T24RWN
T24SSR
T24S2
12452
12453
T24TM
T24TRL
T24VCX
72448
T24u0C

1724400
T24uDE
T24WDF
124406
T24W0R
T24uSS

PARAMETER CODING MACRO M1113

B10O

14-JUN-84 14:17

SEQ 0325

TAB.
E

044656
044272
044220
044431
045515
044040
046306
044150
044170
044172
046530
044206

045375
046622

045326

T25SSR
12552

12552
12553
125TH

054274
054246

074140
074050
073243
073051
072306
074341

054252
054254
054502
034242
055367
054355
054260
054645
055020
073726

103427
103767
101772
102110
103001
102110
102111
102126
102130
102122
101760
102132
101770
104766

074266
072142
072260
073315
072260
072261
072276
072300
072130
072304
072140
073362
073450
074430

055710
074512
073126
073001
072374
074750
073775
072120
074574
072230
072230
0722352
072456
075040
072266
073653
0723525
072622
072302
075132
075174
073604
072717
073207
072256
072262
072264
073527
074662
074213
072252

103151

104131

073266
104213

T27PK3

T27RES

T2TRT2
T27TRT3
T27RWN
127SC
T27SCF
T27SSR
12752
12752
T27S3
127TIM
T27TH
T2TTRL
T27TSA
T27vCK
T27wB
T27W0C
T27W00
T27WDE
T2TWDF

102575
102450
104451
103476
101750
104275
102060
102100
102102
102222

105104
102116
103334
102271
105176
103240
103303
102366
104347
102656
102106
102112
102114
103074
103230
104363
104624
103714
102102
103641
103331
102712
102520

T27WOR
T2 TWNG
T27TWRF
T27uSS
T288FR
1288F2
128807
128850
128851
T28CNT
T28CNV
T28CON
T260AT
T280LY
T1280SM
T2807TA
T280TR
T128IMV
728L00
726L0Q
T260FL
T28PAC
T28P0P
T26PK2
T28PK3
T26R8
T28ROF
T28R0G
T28RES
T28RIB
T28RN
T26RRM
T26RRN
T2IRRP
T26RT2
T26RT3
T28RWN
T28SSR
12852
12852
120853
T26TH
128 THK
T26VCX
72048
T26u0C
T728uDE
T28u0F
T28WOR
T38FLG

13.1
13.2
13.3
13.4
13.5
13.6

102120
102134
104706
104042
110302
110620
111457
110620
110621
110646
110650
110642
110470
110652
110500
112424

112342
110626
103320
111234
111650

110460

110731
110570
110610
110612
111014
111075

112546
110654
117636

112127
112205
112264
112640
112702
111601
111315
110616
110622
110624
111524
112055
112002
110612
111728
111366
111157
110640

027272 G

003140 G
027342
027714

030364
031404
031620
032166

14,1

74,10

034452 G
034516

042026

14,11
T4.12
74,13

042272
042544
043030

74.3

035720

T4.14
14.2

T4 .4

043330
035140

036474

14.5
14.6

037176
037642

14.8
14.9

040732
041324

15.1
15.2
75.3
15.4
15.5
15.6
15.7
15.8
16
16.1
16.10
16.11
76.12
16.13
16.14

046746
047722
050322
050776
051442
052202
053142
053462
055644 G
055710
065330
066204
067054
070006
071036

14.7

16.15
16.2
16.3
76.4
16.5

16.6

040276

046716 G

071416
056622
057470
060362
061310

062066

16.7
16.8
16.9
17
7.1
17.2
17.3
17.4
17.5

062730
063602
064454
075226 G
075266
075664
076446
077270
100172

UAM
=
UNITN
UNREC =
USI
WAITF
wWC.IFA=
WC.IFE=

000200 G
002172 G
000006
004121
016340 G
000200
000002

T8
18.1
18.2
18.3

105264 G
105320
105700
106160

C10
TSV6

PARAMETER CODING MACRO M1113

SYMBOL TABLE

WC.1G0= 000001
WC.IRE= 000010
WC
. IRW= 000004
WC.IO0T=

000100

WC.I1T= 000040

WRTCHR
.

ABS.

ABS

005111
005054
021314 G

XNXM

016466

XORBFO
XORFOR
XSTO =
XST1 =
XST2 =
XSTS =
XST4 =
X$080T=
XSOEQT=

010752 G

X$FALS* 000040
X$0FFSe 000400
X$TRUE* 000020

XSONEF= 002000

X1.0LT+ 100000

X$ALWA= 000000

X2.SPA. 035400

XSOMOT= 000200

007764
010102
000006 G
000010 G
000012 G
000014 G
000016 G
000002
000001

XSOONL= 000100
XSOPED= 000010
XSORLL* 010000
XSORLSe 040000
XSOTMX= 100000
XSOVCKe 000020
XSOMLE= 004000
XSOMLK= 000004
XXCOMM 003112 G

000
001

ERRORS DETECTED:

002

VIRTUAL MEMORY USED:
31592 WORDS
( 124 PAGES)
OYNAMIC MEMORY:
20614 WORDS
( 79 PAGES)
ELAPSED TIME:

00:58:44

CVTSCB,CVTSCB/ -SP=SvVC/ML, VSV1C, TSV_22C, TSV3B, TSve, TSV7A, TSVE
4

5€Q 0326

XSOILAe 000400
XSOILC= 001000
XSOLET= 020000

016030

XSOIE = 000040

113404
000000

000000

WRTERR
WRTMSG
WSMBK
XFERAS

WC.ISR= 000020
WF .IED= 000010
WF
. IER= 000004
WF _INI= 000200
W _IRE= 0V0040
W _IWF= 000020
W _IWR= 000100
WF _I3R= 000002
\WF .I4R= 000001

14 JUN 84 14:1°

X1.CORs

020000

X1.MBZ«
X1.R8P=
X1.SPA=
X1.UNCe
X2.8UF«
X2.EXT«
X2.0PM«
X2.RCE=
X2 .REVs

017375
000400
040000
000002
000100
000200
100000
040000
000077

X2 .UNI* 000007
X2 WCF e 002000
X3.0CK= 000010
X3.M8Z+ 000006

X3.MDE* 177400

X3.0PI+ 000100
X3.REVe 000040
X3.RIB* 000001
X3.SPAe 000200
x3.TRF= 000020
X4 .HSP+ 100000
X4 .M82+ 017400
X4 .RCE= 040000
X4
. TSMe 020000
X4
. WRC+ 000377