Digital PDFs

AH-T098A-MC

September 1982

382 pages

Original

17MB

view download

OCR Version

16MB

view download

Document:	CVTSCA0 TSV05 TSV05 CTRL LT3 SEP 1982 bw
Order Number:	AH-T098A-MC
Revision:	000
Pages:	382
Original Filename:	CVTSCA0__TSV05__TSV05_CTRL_LT3__AH-T098A-MC__SEP_1982_bw.pdf

OCR Text

T5V03

TSYRyfitho "

of 2 arie= HIEHIED
1 ne
Pic

USER DOCUMENTATIOW

MACRO M1113

25-MAY-82 09:19

PAGE 2

SEQ 0001

REM_

IDENTIFICATION
PRODUCT

1D:

AC=T097A-M(

PRODUCT

TITLE:

CVTSCAO TSVOS CTRL LT3

AUTHOR:

DICK GORDON

MAINTAINER:

SCOTT SNOWDON

DATE:

MARCH 08,

1982

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

EQUIPMENT CORPORATION.

DIGITAL EQUIPMENT CORPORATION ASSUMES NO

RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR

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

DIGITAL
OEC

THE
USE
SUPPLIED

IN THIS DOCUMENT.

OR
BY

RELIABILITY
OF
DIGITAL
OR [TS

1982,1982 BY DIGITAL EQUIPMENT CORPORATION

TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION:

PDP
DECUS

UNIBUS
DECTAPE

MASSBUS

MACRO M1113

25-MAY-82 09:19

PAGE 3

SEQ 0002

CONTENTS

GENERAL INFORMATION

PROGRAM ABSTRACT

NN
W

[
O

ERROR INFORMATION

L]
O

PERFORMANCE AND PROGRESS REPORTS

(¥, ]

[]
O

DEVICE

vEST SUMMARIES
MAINTENANCE HISTORY

[ ] [] [] . . [) [] []
NOoOWVSWN=SO

QUICK STARTUP PROCEDURE

[]
O

SYSTEM REQUIREMENTS
RELATED DOCUMENTS AND STANDARDS
DIAGNOSTIC HIERARCHY PREREQUIS.TES
ASSUMPT IONS

—d ed e e b

] [ [] [ ] . [ )
VS WND-=O

TABLE OF

[)
O

USER DOCUMENTATION

OPERATING INSTRUCTIONS
COMMANDS
SWITCHES

FLAGS
HARDWARE QUESTIONS
SOF TWARE QUESTIONS

EXTENDED P-TABLE DIALOGUE

INFORMATION TABLES

USER DOCUMENTATION

MACRO M1113

25-MAY-82 09:19

PAGE 4

SEQ 0003

1.0

GENERAL

INFORMATION

1.1

PROGRAM ABSTRACT

THIS IS A PDP=11/23 RESIDENT DIAGNOSTIC WHICH CHECKS THE

TSVO5

(Q-BUS).

MAGTAPE

THE PROGRAM PROVIDES ERROR

FUNCTIONS THAT AID

FUNCTIONALITY

SUBSYSTEM WHILE CONNECTED TO A PDP=11//23 SYSTEM

IN THE REPAIR OF

MESSAGES

THE DEVICE.

WHICH

EIGHT TEST WHICH ARE EXECUTED IN SEQUENCE.

[DENTIFY

FAILING

THIS DIAGNOSTIC CONSIST OF

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

1.2

SYSTEM REQUIREMENTS

PDP=11/23 PROCESSOR AND MEMORY

CAUTION:DIAGNOSTIC REQUIRES 32K WORDS OF MEMORY

(28K USEABLE I1.E. 4K FOR 1/0 PAGE)
TSVOS5 MAGTAPE SUBSYSTEM (DRIVE AND CONTROLLER)

CONSOLE TERMINAL
PDP=11 DIAGNOSTIC SUPERVISOR (HSAAA.SYS VERSION 34 OR LATER)
PDP=11

1.3

DIAGNOSTIC LOADER/MONITOR

(XXDP+)

RELATED DOCUMENTS AND STANDARDS

DIGITAL EQUIPMENT CORPORATION DOCUMENTS:

2.
3.
4.

1.4

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

DOCUMENT

NUMBER A(C~F348E-MC

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

DATE: AUGUST 1982

TSVO5 TRANSPORT SUBSYSTEM TECHNICAL MANUAL: DOCUMENT NUMBER EK=TSV0S5~TM-001

DATE: AUGUST 1982

TSVO5 TRANSPORT SUBSYSTEM INSTALLATION MANUAL: DOCUMENT NUMBER EK-TSV0S5~-IN-001
DATE: AUGUST 1982

DIAGNOSTIC HIERARCY PREREQUISITES

FUNCTIONAL
FUNCTIONAL
FUNCTIONAL
FUNCTIONAL

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

USER DOCUMENTATION

MACRO M1113

25-MAY-82 09:19

PAGE 4-1

SEQ 0004
1.5

ASSUMPTIONS

ALL HARDWARE EXCEPT THE HARDWARE UNDER TEST IS ASSUMED TO WORK
PROPERLY OR FALSE

ERRORS CAN BE

REPORTED.

(TJ;#ETI'A,EE BEING USED ON THE TSOS TRANSPORT IS A KNOWN GOOD REEL

CVISAA AND CVTSBA HAVE SUCESSFULLY RUN.
2.0

OPERATING INSTRUCTJIONS

THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES.
FOR DETAILED INFORMATION, REFER TO TnE XXDP+ USER'S MANUAL (CHQUS).

2.1

COMMANDS

THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES
(SUPERVISOR).
THIS SECTION LISTS THE COMMANDS AND GIVES A VERY

BRIEF DESCRIPTION OF

THEM.

COMMAND

THE XXDP+ USER'S MANUAL HAS MORE DETAILS.

EFFECT

START

START THE DIAGNOSTIC FROM AN INITIAL STATE

RESTARY

START THE DIAGNOSTIC WITHOUT INITIALIZING

PROCEED

CONTINUE FROM AN ERROR HALT

CONT INUE

EXIT

CONTINUE AT TEST THAT WAS INTERRUPTED

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

ADD

ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE

DROP
PRINT

DEACTIVATE A UNIT
PRINT STATISTICAL INFORMATION (IF

CONSIDERED TO BE ACTIVE AT START TIME

IMPLEMENTED

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

DISPLAY
FLAGS
ZFLAGS

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

2.1.1

(AFTER “()

OPERATOR COMMANDS

THE TSVOS DIAGNOSTIC IS A PDP-11/23

PROGRAM.

ALL

LOADING AND RUNTIME

DIAGNOSTIC

SUPERVISOR

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

BOOT THE DIAGNOSTIC MEDIA
R VTSC??
DIAG. RUN-TIME SERVICES REV D. APR 79
CVTSC-A=0
**22TSV05 LOGIC DIAGNOSTIC%<xe

UNIT IS TSVOS

COMPATIBLE

INSTRUCTIONS CAN BE REFERENCED

IN THE

THE USER ENTRY IS IN QUOTES.

—

USER DOCUMENTATION

MACRO M1113

25-MAY-82 09:19

PAGE 4<2

SEQ 0005

>DR

2.2

SWITCHES

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

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

EFFECT

/TESTS:LIST

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

/PASS :DDDDD
/FLAGS:FLGS

/EOP:DDDDD

J/UNITS:LIST

BE RUN.

ALL OTHER TESTS WILL NOT BE RUN.

EXECUTE DDDDD PASSES
SET SPECIFIED FLAGS.

IN SECTION 2.3.

(DDDDD = 1 TO 64000)
FLAGS ARE DESCRIBED

REPORT END OF PASS MESSAGE AFTER EVERY
DDDDD PASSES ONLY.
(DDDDD = 1 TO 64000)

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

EXAMPLE OF SWITCH USAGE:

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

TESTS 1

THROUGH S5 WILL BE

EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE END OF

PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY.
A
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS.
YOU MAY,
FOR EXAMPLE, TYPE '‘/TES:1-5'' INSTEAD OF '‘/TESTS:1=5'".

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

START

RESTART

CONT INUL

PASS

FLAGS

PROCEED
DROP
ADD
PRINT
DISPLAY
FLAGS

EOP

UNITS

X
X

ZFLAGS
EXIT

2.3

FLAGS

FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS

LOOPING ON ERROR.

ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN

USER DOCUMENTATION

MACRO M1113

25-MAY-82 09:19

PAGE 4-3

SEQ 0006

CLEARED UNTIL EXPLICITLY SET USINC THE FLAGS SWITCH.,

FLAGS

AR ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE
FLAG SWITCH.
THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR
ALL FLAGS.
WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS,
NO COMMANDS AFFECT THE STATE OF THE FLAGS;
THEY REMAIN SET OR
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH.
FLAG

EFFECT

HOE

HALT ON ERROR - CONTROL IS RETURNED TO
RUNTIME SERVICES COMMAND MODE

LOE
IER~
IBR*

LOOP ON ERROR
INHIBIT ALL ERROR REPORTS
INHIBIT ALL ERROR REPORTS EXCEPT
FIRST LEVEL

(FIRST LEVEL CONTAINS

IXE*

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

CALLED BY PRINTX MACRO'S)

80E

‘BELL'' ON ERROR

ISR

(NO MANUAL

INTERVENTION)

INHIBIT STATISTICAL REPORTS (DOES NOT

APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT
STATISTICAL REPORTING)

IDR

INHIBIT PROGRAM DROPPING OF UNITS

ADR

EXECUTE AUTODROP CODE

Lov

LOOP ON TEST

*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1
SEE THE XXDP+ USER'S MANUAL FOR
SPECIFY MORE THAN ONE FLAG WITH
TO CAUSE THE PROGRAM TO LOOP ON
AND TYPE A "BELL'' ON ERROR, YOU

MORE DETAILS ON FLAGS.
YOU MAY
THE FLAG SWITCH.
FOR EXAMPLE,
ERROR,

INHIBIT ERROR REPORTS

MAY USE THE FOLLOWING STRING:

/FLAGS:LOE
: IER:BOE

2.4

HARDWARE QUESTIONS

WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPTY
THE USER FOR HARDWARE INFORMATION BY TYPING ‘‘CHANGE HW (L) ?*
YOU MUST ANSWER '‘v'' 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
THE
DJAGNOSTIC
SUPERVISOR),
THE PROGRAM WILL ISSUE THE ''CHANGE HW?'' QUESTION TO ASK IF
THE HARDWARE PARAMETERS ARE TO BE CHANGED (BY THE OPERATOR).

ON A "N’ (NO) RESPONSE TO THE °‘‘CHANGE HW?'' QUESTION, THE DIAGNOSTIC WILL

USER DOCUMENTATION

MACRO M1113

25-MAY-82 09:19

PAGE 4-4
SEQ 0007

RUN USING THE DEFAULT VALUES FOR ALL QUESTIONS.

THE DEFAULT ADDRESS AND VECTOR ARE:

TSBA/TSDB = 172520, VECTOR = 224
ON A '‘Y** (YES) RESPONSE TO THE QUESTION, THE

FOLLOWING

QUESTIONS

WILL

THEN BE ASKED TO ALLOW THE OPERATOR TO SELECT THE UNITS TO BE TESTED.
A
VALUE, IF PRESENT, LOCATED TO THE LEFT
OF
THE
QUESTION MARK
IS
THE
DEFAULT VALUE THAT WILL BE TAKEN IF ONLY A CARRIAGE RETURN IS TYPED AS A
RESPONSE.
A "'(D)'' IN A QUESTION INDICATES
THAT
A
DECIMAL
NUMBER
IS
REQUIRED
AS
A
RESPONSE.
AN *'(0)'' INDICATES AN OCTAL NUMBER IS BEING

SOLICITED.

AN '*(L)'" INDICATES THAT A LOGICAL RESPONSE IS

"Y' FOR YES, 'N'' FOR NO.
# UNITS

(D)

MADE:

UNIT 0
T DEVICE ADDRESS

(0)

172520 ? <ENTER THE ADDRESS OF THE

VECTOR (0) 224 ?

TSBA/TSDB REGISTER>

INTERRUPT

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

UP TO & TSVO5 CONTROLLERS PER 11/23 AND UP TO 2 DRIVES PER CONTROLLER

2.5

SOFTWARE QUESTIONS

AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART
OR CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOF TWARE
PARAMETERS.
THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC
OPERATION MODES.
YOU WILL BE PROMPTED BY ‘'CHANGE SW (L) ?*'

IF YOU WISH T° CHANGE ANY PARAMETERS, ANSWER BY TYPING
"'v*'.
THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED
IN THE NEXT PARAGRAPH(S).
THE FOLLOWING QUESTIONS ARE ASKED ON
A
START,
RESTART,
THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHAVES.

CHANGE SW (L)

CONTINUE.

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

INHIBIT ITERATIONS (L) N ?

<TYPE *'Y'* TO PREVENT MULTIPLE
ITERATIONS OF CtRTAIN TESTS,

THIS CAUSES EACH TEST PASS TO
RUN AS QUICKLY AS POSSIBLE.
ONLY QUICK=RUNNING LOGIC
TESTS USE MULTIPLE

ITERATIONS.>

2.6

EXTENDED P-TABLE DIALOGUE

USER DOCUMENTATION

MACRO M1113

25-MAY-82 09:19

PAGE 4=5
SEQ 0008

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

UNIT TO BE TESTED.

IF YOU HAVE A MULTIPLEXED DEVICE SUCH AS

A MASS STORAGE CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION
DEVICE WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST OF
THE ANSWERS ARE REPETITIOUS.
TO ILLUSTRATE A MORE EFFICIENT METHOD, SUPPOSE YOU ARE TESTING
A
DEVICE, THE XY11.
SUPPOSE THIS DEVICE CONSISTS OF
A CONTROL MODULE WITH EIGHT UNITS (SUB-DEVICES) ATTACHED TO IT.
THESE UNITS ARE DESCRIBED BY THE OCTAL NUMBERS 0 THROUGH 7.
THERE

IS ONE HARDWARE PARAMETER THAT CAN VARY AMONG UNITS CALLED THE

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

# UNITS

(D)

8<(R>

UNIT 1
CSR ADDRESS (0) ?

160000<CR>

SUB-DEVICE # (0) ?
O<CR>
Q-FACTOR (0) 0 ?
1<(CR>

UNIT 2

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

UNIT 3

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

UNIT 4

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

UNIT §

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

UNIT 6

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

UNIT 7
CSR ADDRESS (0) ?

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

UNIT 8

CSR ADDRESS (0)
SUB-DEVICE # (0)

Q@=-FACTOR (0)

160000<CR>
?
7<CR>
<(CR>

USER DOCUMENTATION

MACRO M1113

25-MAY-82 09:19

PAGE 4~6

SEQ 0009

NOTICE THAT THE DEFAULT VALUE FOR THE Q=FACTOR CHANGES WHEN A

NON-DEFAULT RESPONSE
MULTIPLE UNITS!

IS GIVEN.

BE CAREFUL WHEN SPECIFYING

AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS
DO_NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT.
THE PROCEDURE SHOWN IS
NOT VERY EFFICIENT,
THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER.

LET'S BUILD THE SAME TABLE USING THE MULTIPLE SPECIFICATION

FEATURE.

# UNITS (D) ? B8<(R>

UNIT 1

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

UNIT 3

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

UNIT 7

CSR ADDRESS (0) ?
160000<CR>
SUB-DEVICE # (0) ?
6,7<CR>
Q-FACTOR (0) 0 ?
1<CR>
AS YOU CAN SEE

IN THE ABOVE DIALOGUE,

THE RUNTIME SERVICES WILL

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

THE

SERVICES ASSUME THAT THE CSR ADDRESS IS 160000 FOR BOTH SINCE IT
WAS SPECIFIED ONLY ONCE.
IN THE SECOND PASS, FOUR ENTRIES WERE
BUILT.
THIS IS BECAUSE FOUR SUB~DEVICES WERE SPECIFIED.
THE

="' CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA

FROM THE FIRST NUMBER TO THE SECOND.

2, 3, 4 AND 5 WERE SPECIFIED.

IN THIS CASE, SUB-DEVICES

(IF THE SUB-DEVICE WERE SPECIFIED

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

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

THE LAST TWO UNITS ARE

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

(D)

8<(R>

UNIT 1

CSR ADDRESS (0) ?
160000<CR>
SUB-DEVICE # (0) ?
0-7<(R>
Q-FACTOR (0) 0 ?
0,1,0,...1,1<CR>
AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES

(COMMAS ENCLOSING

MACRO M1113

25-MAY-82 09:19

PAGE 4-7
SEQ 0010

A NULL FIELD)

TELL

THE RUNTIME SERVICES TO REPEAT THE LAST REPLY.

2.7 QUICK START-UP PROCEDURE

(XXDP+)

TO START=UP THIS PROGRAM:

1. B0OT XXDP+

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

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

TYPE '‘START''
ANSWER THE ‘'CHANGE HW'' QUESTION WITH ‘'v*’
. ANSWER ALL THE HARDWARE QUESTIONS

USER DOCUMENTATION

. ANSWER THE ‘'CHANGE SW'' QUESTION WITH ‘W'’

WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE

DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS.
ARE DESCRIBED IN SECTIONS 2.3 AND 2.>.

THESE DEFAULTS

3.0 ERROR INFORMATION
3.1 TYPES OF ERROR MESSAGES
THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ]SSUED BY
A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED.
GENERAL ERROR MESSAGES
ARE ALWAYS PRINTED UNLESS THE ''IER’’ FLAG IS SET (SECTION 2.3).
THE GENERAL ERROR MESSAGE

IS OF

NAME
TYPE
NUMBER
ERROR MESSAGE

ON UNIT NUMBER

LWHERE; NAME = DJAGNOSTIC NAME
TYPE = ERROR

TYPE

THE FORM:

(SYS FATAL,

NUMBER = ERROR NUMBER

TST NUMBER PC:XXXXXX

DEV FATAL,

HARD OR SOFT)

UNIT NUMBER = 0 = N (N IS LAST UNIT IN PTABLE)

TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED
PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL

BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL
INFORMATION ABOUT THE ERROR.
THESE ARE ALWAYS PRINTED UNLESS
THE “‘IER'' OR "'IBR'' FLAGS ARE SET (SECTION 2.3).
THESE MESSAGES
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE.

EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMAT]ION
SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA.
THESE ARE ALWAYS
PRINTED UNLESS THE ''IER'’, "'IBR'' OR ''IXR'' FLAGS ARE SET (SECTION 2.3).

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

3.2 SPECIFIC ERROR MESSAGES

USER DOCUMENTATION

MACRO M1113

25-MAY-82 09:19

PAGE 4-8

SEQ 0011
BELOW ARE SAMPLE ERROR MESSAGES. EACH ERROR MESSAGE
OF ERRORS DETECTED BY THIS DIAGNOSTIC.

REPRESENTS DIFFERENT TYPES

ERROR MESSAGE EXAMPLE 1
THIS ERROR IS INDICATIVE OF AN INCORRECT REGISTER OR 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

Igg?fiRECT REGISTER OR STATUS WORDS.

TST:

THE THIRD PART IS THE EXPECTED AND RECEIVED

016 FIFO EXERCISER TEST

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

FIFO STATUS

(IN WORD

INCORRECT AFTER WRITE FIFO

TAPE BUS SIGNALS IN WORD #8:
PARERR<1S5>
JEOT
<12>
IFMK

IRESV2<14>
IRESVIK13>

1IDENT<11>
ICER <10>

JHER <8>
ISPEED<?>

TAPE BUS SIGINALS IN WORD #9:

DATMIS<?>

JLW<6>

- DESIGNATOR <BIT #>
<9>
IRDY<H6>
[RWD<2>

OUTRDY<S5>

IONL<S>
[ILDP<4>

[FBY<1>
[FPT<O>

INRDY<4>

MESSAGE BUFFER ADDRESS = 047352
MESSAGE BUFFER CONTENTS:
WORD #0 EXPD: 100020
RECV: 100020
WORD #1 EXPD: 000012
RECV: 000012

XxOR: 000000
XOR: 000000

WORD
WORD
WORD
WORD
WORD
WORD

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

WORD #2 EXPD: 000000
WORD #3 ExPD: 000010
#4
#5
#6
#7
#8
#9

EXPD:
EXPD:
EXPD:
EXPD:
EXPD:
EXPD:

000000
000000
000000
000000
070217
000074

RECV: 000000
RECV: 000010

RECV:
RECV:
RECV:
RECV:
RECV:
RECV:

000000
000000
000000
000000
070217
000034

XOR: 000000
XOR: 000000
000000
000000
000000
000000
000000
000040

ERROR MESSAGE EXAMPLE 2

‘.

THIS ERROR SHOWS A FATAL FUNCTION ERROR FROM THE TAPE DRIVE,IN THIS'

#:3132(50?Fg??§5gVERABLE ERROR OCCJURED WHICH

INDICATES

THAT

CVISC HRD ERR 00159 ON UNIT 00 TST 001 SUB 005 PC: 026202
TSSR NOT CORRECT AFTER SPACE RECORDS COMMAND

TSSR = 100214

iSSR BITS SET: SC,SSR
TERMINAT ION CLASSOSODEO= UNRECOVERABLE ERROR
PACKET ADDRESS =
02642

PACKET
PACKET
PACKET
PACKET

WORD
WORD
WORD
WORD

#
#
#
#

= 140010
= 000010
= 000000
000024

THE

CONTROLLER

USER DOCUMENTATION

MACRO M1713

25-MAY-82 09:19

PAGE 4-9

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

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

EXPD: 000312 RECV: 000112 XOR: 000200

4.0 PERFORMANCE AND PROGRESS REPORTS
AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE
TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED.

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

SUCCESSFUL RUN EXAMPLE

(PDP-11/23)

DR>STA/FLA:PNT:HOE

UNITS

(D)

2?2

UNIT 0
DEVICE ADDRESS

(0)

172520 ? <(CR>

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

? N<CR>

THE ABOVE COMMAND WILL

é:ésgflfis
TST:
TST:
TST:
TST:
TST:
TST:
TST:
TST:

007
002
003
004
005
006
007
008

WHICH

ARE

START

THE

DIAGNOSTIC.

THE

COMMAND

HAS

TWO

‘'PRINT EACH TEST NBR AS EXECUTED'' AND ‘'‘HALT ON

INITIALIZE #4 TEST
OFF=LINE REJECT AND REWIND TEST
BASIC WRITE DATA TEST
BASIC READ DATA TEST
SPACE RECORDS TEST
REREADS TEST
WRITE DATA RETRY TEST
WRITE TAPE MARK TEST

0 ERRORS
NOTE:

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

PROGRAM RUN TIMES

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

ARE

USER DOCUMENTATION

MACRO M1113

25-MAY-82 09:19

PAGE 4-10

SEQ 0013

THE PROGRAM RUNS IN TWO MODES;
NO ITERATIONS AND DEFAULT MODE.
IN
THE
NO
ITERATIONS
MODE, EACH TEST IS RUN ONCE, WITH NO ITERATIONS.
IN THE
DEFAULT MODE EACH TEST IS REPEATED BY THE NUMBER OF TIMES
INDICATED
BY
THE
ITERATION
COUNT. ~ NO ITERATIONS MODE IS SELECTED EY ANSWERING THE

INHIBIT ITERATIONS QUESTION WITH A °'v*' (YES).
TEST
NUM?ER

5
6

I4
8

THE

N/1
SECS.

NUMBER
ITER

3
3
38

DEF
SE;S.

10
8
250

60
120

5
212

300

240

600

4«80

300
360

120
22

240
240

TIMES REQUIRED TO RUN TESTS

Q.v.

DEFAULT

(HROUGH 8

IN ONE

COMMAND:

7 MINUTES

31 MINUTES

5.0 DEVICE INFORMATION TABLES
WHENEVER THE PROGRAM IS STARTED, VIA THE STA(RT) COMMAND,
THE SUPERVISOR REQUESTS THE FOLLOWING P-TABLES PARAMETER
CHANGES::

CHANGE HW (L)
# UNITS

(D)

[4
.

UNIT 0
DEVICE ADDRESS
VECTOR (0) 224 ?

(0)

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

INTERRUPT

THE ADDRESS AND VE{TOR QUESTIONS WILL BE ASKED FOR EACH OF

UNITS

(CONTROL!L.eRS) SPECIFIED IN THE '# UNITS?'' QUESTION.

NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0.
SELECTED FOR TESTING.

THE NUMBER OFf

LOGICAL UNIT

UP TO FOUR UNITS CAN BE

IN ADDITION, ON A START, RESTART OR CONTINUE THE SUPE"VISOR
?gEESS;S (HANGES TO THE SOF TWARE OPERATING PARAMETERS, AS

MACRO M1113

USER DOCUMENTATION

25-MAY-82 09:19

CHANGE SW (L)

PAGE 4-17

SEQ 0014

INHIBIT ITERATIONS (L) N ?

6.0

TEST

TEST SUMMARIES

INITIALIZE #4 TEST
THIS TEST VERIFIES THAT WRITING INTO THE TSSR RETURNS THE

COMTROLLER TO ITS INITIALIZED STATE FROM VARIOUS CONDITIONS

(1.E. LOOPBACK ENABLED, FORCING WRONG PARITY,
EXTENDED FEATURES SWITCH, ETC.)

TEST

INVERTING SENSE OF

2: 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.

;EZ&EQ%%; REWIND THE

IN THE NORMAL COURSE OF

CHECK THE OPERATION OF

TEST

SUBSEQUENT TESTS

IMPLICITLY

THE REWIND COMMAND SINCE THEY MUST

TAPE

THEIR TEST

3: 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.
e

eIy

CAUTION
THE LSI BUS DRIVERS FOR ALL AVAILABLE ADDRESS LINES(16-21)
ARE ONLY CHECKED WHEN RUNNING ON A 11/23B SYSTEM WITH MORE THAN
128K WORDS OF MEMORY!
RERARAREAANRNPAAAANRAANR
RN ARANNAANNANNAANEN R NN A N AR AN R NANRARARNNANER

TEST

&: BASIC READ DATA

(FORWARD AND REVERSE)

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

LONG, RECORD LENGTH SHORT, READ REVERSE AT BOT,

ILLEGAL DATA

MACRO M1113

USER DCCUMENTATION

25-MAY=-B2 09:19

BUFFER ADDRESSES,

PAGE 4-12

ILLEGAL CODES IN THE MODE FIELD OF

READ COMMAND, AND DATA BUFFERS
AR

RN AR

SEQ 0015

RN AR

THE BASIC

IN NON-EXISTANT MEMORY.

R AN RN A NPT N

T AN NN AN NN ANARNNRARON

CAUTION
THE LSI BUS DRIVERS FOR ALL AVAILABLE ADDRESS LINES(16-21)
ARE ONLY CHECKED WHEN RUNNING ON A 11/23B SYSTEM WITH MORE THAN
128K WORDS OF MEMORY!
(2SR

TEST

AR22220

2202

0202202

2Rt

2222222202022 2% ]

SPACE RECORDS
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 HAVE 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
OF VARYING SIZES AND DATA CUNTENT; 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 RESULT.

TEST

6: REREADS
THIS TEST VERIFIES THAT THE REREAD PREVIOUS AND REREAD NEXT
COMMANDS OPERATE PROPERLY. VARIOUS COMBINATiONS OF ODD AND EVEN
DATA BUFFER BOUNDRIES, RECORD SIZES (UP TO 64K BYTES IF MEMORY
SPACE IS AVAILIABLE), AND BYTE-SWAP (SWP) AND OPPOSITE (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.
e

IL T

CAUTION

THE LSI BUS DRIVERS FOR ALL AVAILABLE ADDRESS LINES(16-21)
ARE ONLY CHECKED WHEN RUNNING ON A 11/23B SYSTEM WITH MORE THAN
128K WORDS OF MEMORY!
AARARARAEANRATAANAAARARAANRNRNRARANRAANRRNNIANNARRANARANANRAANENRNEREREN

TEST

7: WRITE DATA RETRY
THIS TEST VERIFIES PROPER OPERATION OF

THE WRITE DATA RETRY

COMMAND (SPACE REVERSE, ERASE, WRITE DATA)

TEST

8: WRITE/READ TAPE MARK
THIS TEST VERIFIES THAT THE WRITE
PROPERLY. IT IS VERIFIED THAT THE

TAPE MARK COMMAND OPERATES
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 IS THE FIRST

SUBCOMMAND UNDER THE FORMAT COMMAND BEING TESTED,
THAT THE CLEAR VOLUME

CHECK

(CVv()

IV IS VERIFIED

BIT OPERATES PROPERLY AND THAT

USER DOCUMENTATION

MACRO M1113

25-MAY-82 09:19

PAGE 4-13

SEQ 0016
FORMAT COMMANDS WITH

ILLEGAL MODE

7.0 MAINTENANCE HISTORY

REVISION A - MARCH 1982

CODES ARE REJECTED.

TSV2 = PROGRAM HEADER

MACRO M1113

25-MAY-82 09:19

PAGE 7

SEQ 0077

2
z

LTITLE
.SBTTL

TSV2 - PROGRAM HEADER
PROGRAM HEALER

10
11 000000

MCALL
Sv(
.ENABLE
NLIST
.ENABL
.=2000
BGNMOD

SVC

12
13

19 000000

20
21 002000
002000
22
23
24

002000
TSV2::

002011
002012
002012
002014
002014
002016
002016

002020
002020
002022
002022

002024

002024
002026
002026
002030
002030
002032
002032
002034
002034
002036
002036
002040
002040

ABS,AMA

TSV?2

: THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR.

002011

INITIALIZE SUPERVISOR MACROS

s+
: THE PROGRAM HEADER IS THE INTERFACE BETWEEN

29 002000
30 002000
002000
002000
002001
002002
002003
002004
002005
002006
002007
002010
002010

;

LC
BEX.CND

103
126
124
123
103
000
000
000
101
060
000000

001217
112340
112472

002146
002156

113004
000000

000000
000000

000000
002124

POINTER BGNSW,BGNSFT,BGNAU,BGNDU,BGNRPT
HEADER
CvTSC,A,0,655..0
LSNAME : :
:DIAGNOSTIC NAME
LASCII /C/
LASCIT 7v/
LASCII 71/
LASCII 7S/
LASCIT 7C/
.BYTE
0
BYTE
O
.BYTE
O
LSREV::
;REVISION LEVEL
LASCII
/A/

LSDEPO: :

LSUNIT::

LSTIML::
LSHPCP: :

LS$SPCP: :
LSHPTP: :

LSSPTP: :
LSLADP::

LSSTA::
L$CO::
LSDTYP::

LSAPT::
LSDTP::

LASCIT

70/

WORD

655.

.WORD

LSHARD

.WORD

LSSOFT

.WORD

LSHW

.WORD

LS$SW

.WORD

LSLAST

.WORD

WORD

.WORD

;NUMBER OF U'ITS

:LONGEST TEST TIME
:POINTER TO H.W. QUES.

:POINTER TO S.W. QUES.
:PTR. TO DEF. H.W. PTABLE

;PTR. TO S.W. PTABLE
:DIAG. END ADDRESS

:RESERVED FOR APT STATS

:DIAGNOSTIC TYPE

;APT EXPANSION

;PTR. TO DISPATCH TABLE
LSDISPATCH

TSV2 = PROGRAM HEADER

PROGRAM HEADER

002042
002042
002044
002044
002046
002046
002050
002050
002051

25-MAY-82 09:19

PAGE 7-1
SEQ 0018

000000

000000
000000

003
003
000000
000000

000000
003372
022754
000000

000000

022442

022540
000000

003400
104035

000000
021646

022726
022646

021636
000000
000000

002120

MACRO M1113

000000

LSPRIO:

LSENVI:
LSEXP:
LSMREV:

" .WORD

" .WORD
" .WORD
".BYTE

LSEF::
LS$SPC::
LSDEVP:

.WORD
-WORD

.WORD

:.UORD
LSREPP:
:.UORD
LSEXP4:
:.UORD
LSEXPS:
:.UORD

LSAUT::

LSDUT::

LSLUN::
LSDESP::
:
LS$LOAD:

LSETP::
LSICP::
L$CCP::

LSACP::
LSPRT::
LSTEST::
LSDLY::

LSHIME::

;FLAGS DESCRIBE HOW IT WAS SETUP

sEXPANSION WORD

sSVC REV AND EDIT #
CSREVISI TM
CSEDIT

0
LSDVTYP

LSRPT

.WORD

LSOU

-WORD

LSDESC

EMT

ESLOAD

.WORD

LSINIT

.WORD

LSCLEAN

.WORD

LSAUTO

-WORD

LSPROT

-WORD

.WORD
.WORD

EVENT FLAGS

; POINTER TO DEVICE TYPE LIST

;PTR. TO REPORT CODE

LSAU

.WORD

+IAG.

-WORD

.WORD

;DIAGNOSTIC RUN PRIORINY

0
0

sPTR,

TO ADD UNIT CODE

;PTR. TO DROP UNIT CODE
sLUN FOR EXERCISERS TO FILL

;POINTER TO DIAG. DESCRIPTION
sGENERATE SPECIAL AUTOLOAD EMT

;POINTER TO ERRTBL
;PTR.

TO INIT CODE

sPTR. TO CLEAN-UP CODE
;PTR.

TO AUTO CODE

+PTR.

TO PROTECT

s TEST NUMBER

sDELAY COUNT

:PTR.

TO HIGH MEM

TABLE

—

TSV2 = PROGRAM HEADER

DISPATCH TABLE

MACRO M1113

25-MAY-82 09:19

.SBTTL

PAGE 8

DISPATCH TABLE

: THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST.
¢ IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST.
8
39 002122
002122
002124
002124
002126
002130
002132
002134
002136
002140
002142

000010

023536
024652
027332
034322
046436
055354
074676
104714

DISPATCH 8
.WORD
8
LSDISPAT(H::
T1
LWORD
.WORD
T2
WORD
T3
.WORD
T4
WORD
TS
WORD

.WORD
.WORD

T7
T8

SEQ 0019

TSV2 -~ PROGRAM HEADER
MACRO M1113
DEFAULT HARDWARE P-TABLE

25-MAY-82 09:19

PAGE 9

SEQ 0020
DEFAULT HARDWARE P-TABLE

+
+

.SBTTL

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

IS IDENTICAL TO THE STRUCTURE OF

49 002144
002144

002146
0 002146

S
51 002146
52 002150
53 002152
54 002154
002154

000003

LSHW::

THE RUN-TIME P-TABLE.

BGNHW
.WORD

DFPTBL
L10000~LSHW/?2

sDEFAULT HARD-P-TABLE

LWORD
.WORD

172520
224

; 1ST (OF 2) REGISTERS.
;. INTERRUPT VECTIR

DFPTBL::
172520

000224
000200

é:gzz

L10000:

PR104

INTERRUPT PRIORITY.

—

TSV2 = PROGRAM HEADER

SOF TWARE P-TABLE

MACRO M1113

25-MAY-82 09:19
.SBTTL

PAGE 10

SEQ 0021

SOFTWARE P-TABLE

s
;

62 002154
002154
002156
3 002156

6
64 002156
65 002160
66
67

68 002162
69 002164

70 002166

- 00216¢€
72 002166

THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM
PARAMETERS THAT (AN BE CHANGED BY THE OPERATOR.

‘-

000004

BONSW

LESW::

LWORD

SFPTBL

L10001-LSSW/?2

SFPTBL::

000000
000000

000017
000310

TRANSTST::

NOITS::

LERRMAX: :

GERRMAX : :
L10001:

ENDSW

ENDMOD

.WORD

WORD

.WORD

LWORD

O
15.

200.

ENABLE

TEST OF

TRANSPORT(S)

INHIBIT ITERATION OPTION.

IfF

$ ... 0 = ITERATE.
; ...NZ = INHIBIT ITERATE.
;

LOCAL

(PER TEST) ERROR LIM]T

; GLOBAL (PER UNIT) ERROR LIMIT

TSV3 = GLOBAL AREAS

SOF TWARE P-TABLE

002166
002166

MACRO M1113

25-MAY-82 09:19

TSV3::

PAGE 13

SEQ 0022

TSV3 ~ GLOBAL AREAS

.TITLE
LSBTTL

GLOBAL EQUATES SECTION

BGNMOD

TSV3

.SBTTL

GLOBAL EQUATES SECTION

i4e

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

EQUALS

GET STANDARD EQUATES.

: BIT DIFINITIONS
100000
040000
020000
010000
004000
002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

BIT15==
BIT14==
BIT13==
BIT12==
BIT11==
BIT10==
B81709==
B81T08==
B8IT07==
BIT06==
BIT05==
BIT04==
BIT03==
BIT02==
BIT01==
81T00==

100000
40000
20000
10000
4000
2000
1000
400
200
100
40
20
10
4
2
1

001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

BIT9==
BIT8==
BIT7==
BITé==
BIT5==
BIT4==
BIT3==
8IT2==
BIT1==
BITO==

BIT09
BITO8
BIT07
BIT06
BITO05
BITO04
BITO03
8IT102
BIT01
B8IT00

s EVENT FLAG_DEFINITIONS
¢
EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION
000040
000037
000036
000035
000034

EF.START==

EF .RESTART==
EF.CONTINUE==
EF .NEW==
EF .PUR==

32.

¢ START COMMAND WAS ISSUED

28.

s A POWER-FAIL/POWER-UP OCCURRED

31.
30.
29.

¢ RESTART COMMAND WAS ISSUED
: CONTINUE CCMMAND WAS ISSUED
; A NEW PASS HAS BEEN STARTED

—

TSV3 - GLOBAL AREAS

GLOBAL EQUATES SECTION

MACRO M1113

25-MAY-82 09:19

PAGE 13-1

SEQ 0023

: PRIORITY LEVEL DEFINITIONS
000340
000300
000240
000200
000140
000100
000040
000000

PRIO7==
PRI06==
PRIOS==
PRI04==
PRIO3==
PRI02==
PRIO1==
PRI00==

340
300
240
200
140
100
40
0

sOPERATOR FLAG BITS

000004
000010
000020
000040
000100
000200
000400
001000
002000
004000
010000
020000
040000
100000

35 002166

EVL==
LOT==
ADR==
IDU==
ISR==
UAM==
B0E==
PNT==
PR]==
IXE==
18E==
IER==
LOE==
HOE==

.SBTTL

000250
177572
177574
177576
172516

4
10
20
40
100
200
400
1000
2000
4000
10000
20000
40000

100000

KT11

MEMORY MANAGEMENT DEF INITIONS

sDEFINE MEMORY MANAGEMENT REGISTERS

s*KT11 VECTOR ADDRESS

MMVEC=
s*KT11
SRO=

SR1=
SR2=
S??=N8

250

STATUS REGISTER ADDRESSES
177572

177574
177576
172516

;*USER '°I'' PAGE DESCRIPTOR REGISTERS

UIPDRO=
UIPDR1=
UIPDR2=
UIPDR3=
UIPDR4=
UIPDRS=
UIPDRé=

177600
177602
177604
177606
177610
177612
177614

UIPDR7= 177616
.IF NB

s*USER 'D’' PAGE DESCRIPTOR REGISTORS

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

177620
177622
177624
177626
177630
177632
177634
177636

TSV3 = GLOBAL AREAS

MACRO M1113

MEMORY MANAGEMENT DEF INITIONS

25-MAY-82 09:19

PAGE 13-2

.ENDC

s *USER ''I''_PAGE ADDRESS REGISTERS

UIPARO=
UIPAR1=
UIPARZ2=
UIPAR3=
UIPAR4=
UIPARS=
UIPARG=
UIPAR?=
.IF NB

177640
177642
177644
177646
177650
177652
177654
177656

;s *USER 'D"PAGE ADDRESS REGISTERS
UDPARD= 177660
UDPAR1= 177662
UDPAR2= 177664
UDPAR3= 177666

UDPAR4=
UDPARS=
UDPARG=
UDPAR?=
<ENDC

177670
177672
177674
177676

ENDC

s *SUPERVISOR ''I'* PAGE DESCRIPTOR REGISTERS
SIPDRO= 172200
SIPDR1= 172202
SIPDR2= 172204
SIPDR3= 172206
SIPDR4= 172210
SIPDRS= 172212
SIPDR6= 172214
S{?ng= 172216

:*SUPERVISOR 'D‘* PAGE DESCRIPTOR REGISTERS

SDPDRO=
SDPDR1=
SDPDR2=
SDPDR3=
SDPDR4=
SDPDRS=
SDPDR6=
SDPDR7=

172220
172222
172224
172226
172230
172232
172234
172236

ENDC
: *SUPERVISOR *'I’* PAGE ADDRESS REGISTERS

SIPARO= 172240
SIPAR1= 172242
SIPAR2= 172244

SIPAR3= 172246
172250
172252
172254
172256

SIPARG=
SIPARS=
SIPARG=
S}?Az;=

: *SUPERVISOR 'D*' PAGE ADDRESS REGISTERS

SDPARO= 172260
SDPAR1= 172262
SDPAR2= 172264

SEQ 0024

TSV3 = GLOBAL AREAS

MACRO M1113

MEMORY MANAGEMENT DEF INITIONS

25-MAY-82 09:19

SDPAR3=
SDPAR4=
SDPARS=
SDPARG=
SDPAR7=

PAGE 13-3

172266
172270
172272
172274
172276

.ENDC

172300
172302
172304
172306
172310
172312
172314
172316

;*KERNEL ''1'' PAGE DESCRIPTOR REGISTERS

KIPDRO= 172300
KIPDR1= 172302
KIPDR2= 172304
KIPDR3= 172306
KIPDR4= 172310
KIPDRS5= 172312
KIPDR6= 172314
KIPDR?= 172316
.IF NB
s *KERNEL 'D*' PAGE

DESCRIPTOR REGISTERS

KDPDRO=
KDPDR1=
KDPPR2=
KDPDR3=
KDPDR4=
KDPDR5=
KDPDR6=
KDPDR7=
+ENDC

172340
172342
172344
172346
172350
172352
172354
172356

172320
172322
172324
172326
172330
172332
172334
172336

s *KERNEL *'I'' PAGE ADDRESS REGISTERS

KIPARO=
KIPAR1=
KIPAR2=
KIPAR3=
KIPAR4=
KIPARS=
KIPARG=
K}:Azg=

172340
172342
172344
172346
172350
172352
172354
172356

s *KERNEL D' PAGE ADDRESS REGISTERS
KDPARO= 172360
KDPAR1= 172362
KDPAR2= 172364
KDPAR3= 172366
KDPAR4= 172370
KDPARS= 172372
KDPARG= 172374
KDPAR7= 172376
-ENDC

SEQ 0025

—

TSV3 - GLOBAL AREAS
MACRO M1113 25-MAY-82 09:19
TSVOS REGISTER AND PACKET DEFINITIONS

PAGE 14

SEQ 0026

.SBTTL

TSVO5 REGISTER AND PACKET DEFINITIONS

* SOME GENERAL EQUATES.
000004
000060
177560
177562
177520

ERRVE(C==

TTIVEC==
TTICSR==
TTIBFR==

60
177560
177562

BDVP(CR==

¢
s
s
;

177520

POINTER TO ERROR VECTOR FOR BUS TIME OUT.

INTERRUPT VECTOR FOR CONSOLE INPUT
BUS ADDRESS OF CONSOLE INPUT
CONSOLE INPUT DATA BUFFER
BDV11 PAGE CONTROL REGISTER

4§
o
o

G
Dot B

NSO
NO =P ad ed e b b
O =N

TERCLS=

Ot S

OFL=
FATERR=

g e = o

SSR=

—f

RMR=
NXM=
NBA=
HIADDR=

ot B

SC=
BlE=
SCE=

roJordeodo
Qoo os eodoodoLouJool

100000
040000
020000
010000
004000
002000
001400
000200
000100
000060
000016

Gumg By Bumg

:BIT DEFINITIONS FOR TSSR REGISTER

8178

'BITS
'81T2!BITY

;SPECIAL CONDITION
+BUS INTERFACE ERROR
sSANITY CHECK ERROR
sMODIFICATION REFUSED
¢NONEXISTANT MEMORY ERROR
sNEED " _FFER ADDRESS
;EXTENDED ADDRESS BITS
:SUB SYSTEM READY
;OFF LINE BIT

sFATAL TERMINATION ERROR CODES
s TERMINATION CODES

¢BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 0

= =3 =3 =2 —d b
O =N

g P

f =
ot

o o

O = NIN S VNON

g o

0D O

® TM O

g By
g
Bong

Pumeg g S
Pemeg B
P
=g Gt $ump B

]

XSOONL=
XSO0IE=
XSOV(CK=
XSOPED=
XSOWLK=
XS0B0T=
XSOEQT=

000 o mdDo® 00 0o o B @

X
2
2
3¢ 2

oyMmre
X
niwwownnnn

j=leloleolelela]

nunnunununwm

3C 2

100000

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

—2E DD
—merrme
s

(XST0)

s TAPE MARK DETECTED
sRECORD LENGTH SHORT
sLOGICAL END OF TAPE
sRECORD LENGTH LONG
;WRITE LOCK ERROR

sNON _EXECUTABLE FUNCTION
s ILLEGAL COMMAND
s ILLEGAL ADDRESS
¢ TAPE IN MOTION

s TRANSPORT ON LINE

¢ INTERRUPT ENABLE
:VOLUME CHECK BIT

sPHASE ENCODED DRIVE

;WRITE LOCKED
cBEGINNING OF TAPE
;END OF

TAPE

. 4

;8 1T ?gFINITIONS FOR EXTENDED STATUS REGISTER 1
( XST

(TSV3 ~ GLOBAL AREAS

MACRO M1113 25-MAY-82 09:19 PAGE 14-1

TSVOS REGISTER AND PACKET DEFINITIONS

SEQ 0027

97
98
99
100

100000
040000
020000

;X1.0LT
= BIT1S
X1.SPARE= BIT14
X1.COR = BIT13

;DATA LATE
;JNOT USED
+CORRECTABLE DATA ERROR

102

000400

X1.RBP

JREAD BUS PARITY ERROR

101

}82

017375

000002

105

100000

040000
035400
002000
000200
000100
000077
000007

X2.0PM

= BITIS

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

;JOPERATION IN PROGRESS

177400

000200
000100
000040
000020
000010
000006
000001

131

X3 MDE

= 177400

X3.SPARE= BIT?7
X3.0P1
= BIT6
X3.REV
= BITS
X3.TRF
= BITé4
X3.0C(k
= BIT3
X3.MBZ
=BIT2+BIT1
X3.RIB8 = BITO

JMICRO-DIAGNOSTIC ERROR CODE

sNOT USED BY TSVO0S
;OPERATION INCOMPLETE
;REVERSE
:TRANSPORT RESPONSE FAILURE
JDENSITY CHICK
sNOT USED ALWAYS 0
JREVERSE INTO B8OT

BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 4
(XST4)
100000
040000
020000
017400
000377

141

xa.usp
X4.RCE
X6.TSM
X4.MBZ
X4.WRC

=
=
=
=
=

BIT1S
JHIGH SPEED
BIT14
sRETRY COUNT EXCEEDED
BIT13
TRANSPORT SPECIAL MODE
BIT12+BIT11+BIT10+BIT9+BIT8
.NOT USED ALWAYS 0
000377
JWRITE RETRY COUNT FIELD

X
.

162
143

}zg

;TSSR TERMINATION CODES (BIT 0<2)

146

147
148
}ég
151
152

153

(TAPE MOVING)

BIT14
sRAM CHECKSUM ERROR
BIT13+BIT12+BIT11+BIT9+4BIT8
;NOT USED BY TSVOS (ALWAYS=0)
BIT10
JWRITE CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT)
BIT17
JIF WRITE CHAR CMD THEN = EXTENDED FEATURES ENABLED
BIT6
sIF WRITE CHAR CMD THEN = BUFFERING ENABLED
000077
JIF WRITE CHAR CMD THEN = MICROCODE REVISION LEVEL
BIT2+BIT1+BITO ;IF GET STATUS THEN = CURRENTLY SELECTED UNIT NO.

.(xs 3

132
}gz
135
136
137
138
}28

:UNCORRECTABLE DATA OR HARD ERROR

o+
;BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3

}g?
123
124
125
126
127
128
}%g

= BIT1

= BIT8

;(XST2)

118
119

122

X1.UNC

;BIT DEFINJTIONS FOR EXTENDED STATUS REGISTER 2

}8;
110
1M
112
113
114
115
}}9

= 81712*81711+BIT10+BII9+BIT7¢81T6¢BITS*BIT4¢BII3*BIT2+BITO JALWAYS 0O

106

109

X1.MB2

000006
000006

TSREJ=
UNREC=

o+
.

3«2
6

JDEVICE REGISTER OFFSETS

;s COMMAND REJECTED
JUNRECOVERABLE ERROR

T5V3 -~ GLOBAL AREAS

MACRO M1113

TSVO5 REGISTER AND PACKET DEFINITIONS

25-MAY-82 09:19

PAGE 14~2

SEQ 0028

TSBA==

TSDB==
TSBAH== ,
TSDBH== 1

s TSDB/YSBA REGISTER

;TSDB/7SBA REGISTER HIGH BYTE

TSSR== 2
TSSRH== 3

+TSSR REGISTER

sTSSR REGISTER HIGH BYTE

; TSDB ADDRESS BIT DEFINITIONS
000003

A1716

= BIT1+BITO

;ADDRESS BITS 17:16 ARE IN 1:0

b PAANON
=b b and amd b
O =MW

003017
000013
000012
000011
000010
000006
000005
000004
000001

LX)

. COMMAND DEFINITIONS

P.GETSTAT

JANIT
.CONTROL
.FORMAT
.POSITION
.WRTSUB
.WRITE
.WRTCHAR
.READ

:GET STATUS
JINITIALIZE
;CONTROL COMMANDS
JFORMAT

:POSITION
;SUBSYSTEM WRITE

JWRITE
:WRITE CHARACTERISTICS

JREAD

; COMMAND PACKET HEADER WORD BIT DEFINITIONS
100000
040000
020000
010000
007400
000200
000140
000037

BIT15
sBUFFER AVAIL FOR CONTROLLER
BIT14
sCLEAR VOLUME CHECK
BIT13
sREVERSE SEQUENCE OF DATA BITS
BIT1?
:SWAP BYTES IN MEMORY
P.MODE
= 8{7;1'BIT10‘BIT9'BIT8 :EXTENDED COMMAND MODE FIELD
P.IE
= 8IT
INTERRUPT ENABLE
sPACKET HEADER TYPE (ALWAYS=0)
P.FMT= BIT6!BITS
P.CMD
= 37
:MAJOR COMMAND FIELD
P.ACK
P.CVC
P.OPP
P.SWB

=
=
=
=

; CONTROL COMMAND MODE CODES
* -

000000
000400
001000
002000
002400

[

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

= 0*256.

SRELEASE BUFFER

= 2%256.

:NO-QP

= 1+256.

= 4+256.

= 5+256.

sREWIND

cREWIND IMMEDIATE

sSECURITY ERASE

INTERRUPT

s CONTROLLER RAM DEFINITIONS
RMCHBEG
RMCHEND
RMPKTBEG=
RMPKTEND=
RMMSGBE
G=
RMMSGEND=

000167
000200
000201
000210
000215
000234

~N
(=4
o

180

000000
000000
000001
000001
000002
000003

VOVUVVOVOVOO

b —
b
b
d
b
d
D
d
b
b
b e
b e
b
d
b
d
b
d
D

SNINNSNSNSNNSNNVNSNoOocOOOONOONO
NNV wn
VOO NN
WN = OOV NIV
WO O~ W

154

b and

20
21

21
23

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

:MESSAGE BUFFER BEGIN RAM ADDRESS

sMESSAGE BUFFER END RAM ADDRESS

—

TSV3 = GLOBAL APEAS

MACRO M1113

TSVO 5R EGISTER AND PACKET DEFINITIONS

PAGE 14~3

SEQ 0029

*REGISTER DEFINITIONS IN THE MESSAGE BUFFER
——
000"
SNV

000006
000010
000012
000014
000016

[]

sEXTENDED
;EXTENDED
sEXTENDED
sEXTENDED
;EXTENDED

STATUS
STATUS
STATUS
STATUS
STATUS

(WORD 4)
(WORD 5)
(WORD 6)
(WORD 7)
(WORD 8)

o8N

:OFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS
000002
000004
000006

PKLOW
PKH]
PKBCNT

000010

EXBCNT=10

sLOW ORDER CHARACTERISTIC DATA POINTER
sHIGH ORDER CHARACTERISTIC DATA POINTER
sNUMBER OF BYTES IN DATA PACKET

sNUMBER OF BYTES IN EXTENDED DATA PACKET

000000
000001
000002
000004

m
-

BSELO
SELDATA

nunn

:DATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND
@

JBYTE O

JWORD 2

JBYTE 1

:WORD 3

cBSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND
000000
000001
000002
000003
000004
000005

000024

PW. NOP
PW. RDRAM
PW. WTRAM
PW. RFIFO
PW. WFIFO
PW. RDSTA T
PW. WCTL
PW. WFMT
PW. WMISC
PW.
PW.
PW.
PW.
PW.
PW.

PONNIMNIN
= = NONWN SN NN = O
SN
=O=O

b and =d ed ed od e e

211
212
213
214
215
216
217
218
219
220
221

25-MAY-82 09:19

;NO-0P

JREAD RAM

JWRITE RAM
JREAD FIFO

JWRITE FIFO

;READ STATUS

:WRITE
JWRITE
JWRITE
JWRITE

TAPE CONTROL
TAPE FORMAT
MISCELLANEOQUS
NPR CONTROL

;00 MICROTEST 22
;D0 MICROTEST 11
;D0 MICROTEST 13
;DISABLE MICROTEST 11 AND 13
JREAD EXT. TAPE STATUS (NOT SUPPORTED BY ALL TRANSPORTS

JBSELY CODES FOR WRITE TAPE CONTROL
000200
000100

wC. IFAD

WC. 10TAD

BIT?
BIT6

sIFAD - FORMATTER ADDRESS
:ITADO
- TRANSPORT ADDRESS BIT 0

—_—

g Bt By Pumg Py

WC.ISRESV

w(.IREW
WC. IRWU
WC.IFEN
wC.160

O =PI &N

WC.IT1TAD

OO mO@®Do

000040
000020
000010
000004
000002
000001

PAGE 14-4
g
=g g g =t

TSV3 = GLOBAL AREAS
1113
MACRO M11
25-MAY=-82 09:19
TSVOS REGISTER AND PACKET DEFIN ITIONS

SEQ 0030

sITAD1 = TRANSPORT ADDRESS BIT 1
s IRESVS - RESERVED #5
= REWIND
sIREW
;IRWU
- REWIND AND UNLOAD
sIFEN
= FORMATTER ENABLE
H

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

WF.IHISP
WF . JWRT
WF.IREV
WF.IWFM
WF.IEDIT
WF . IERASE

BIT?
BIT6
BITS
BIT4

cIHISP
JIWRT
¢sIREV
sIWFM
SIEDIT
s JERASE
:IRESV3
s IRESV4

BIT3

BIT?
BIT1
BITO

WF . I13RESV
WF . I4RESV

=
=
=
=
=~
~

HIGH SPEED
WRITE
REVERSE
WRITE FILE MARK
EDIT
ERASE
RESERVED #3
RESERVED #4

;BSEL1 CODES FOR WRITE MISCELLANEOUS SUBCOMMAND
000200
000020
000010
000006
000001

MS.EXT

MS.RSFIFO
MS.RSTAPE
MS.ATIN
MS.RSD
o+

= BIT?

=
=
=
=

BIT4
BIT3
BIT2! BIT
BIT0

:INVERT SENSE OF EXTENDED FEATURES SWITCH
JRESET FIFO AND INPUT PARITY ERRORR
sRESET TAPE STATUS IN 2 FLIP-FLOPS
sATTENTION TRIGGER FIELD
sRESET TIMER A,B THEN DELAY TIMES IN SEL?2

¢ MS.ATTN SUBCODES
000000
000002
000004
000006

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

0«2
1%2
2+¢2
3«2

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

sFORCE FATAL RAM ERROR

(CAUSES SCE

TO SET)

: WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS
= BIT?

NP.OUT
NP.LOOP

s INTERRUPT REQUEST (0-1 TRANSITION)
sTAPE DATA DIRECTION OUT (0= IN)
cENABLE TRANSPORT LOOPBACK

= BITé
= BITS

NP .WRP

= BIT4

sWRITE CORRECT PARITY

(SET=0 TO WRITE WRONG)

B
— el ) b = (N L
NoWwsHwn
e

e B
e

O W
G

Y
Ll

Qo Co 0o G

010000

—

S2.DIM
S2.1LW
$2.0UTRDY
@®

000200
000100
000040

)

; READ STATUS MESSAGE BUFFER BIT DEFINITIONS
B

324

NP.IR

NN e b b e aand b b kb
W
—=O Uels RNTe RV P JVIT N

NN NN NN AN AN N N NANWN

000200
000100
000040
000020

BITO

;WORD #9 BYTE 2 DATA IN M]SS
ILW H
OUT RDY H
IN RDY H
TIMER A FLAG H
TIMER B FLAG H

s (UNDEF INED)

¢WORD #8 BYTE 1

PARIN H

IRESV?
IRESV1
IEOT L

——

SEQ 0031
g $ug et Gumg Bueg Bumg

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

PAGE 14=~5

G0 D

TSV3 ~ GLOBAL AREAS
MACRO M1113
25-MAY-B2 09:19
TSVOS REGISTER AND PACKET DEF INITIONS

WORD #8 BYTE 0

—

TSV3 - GLOBAL AREAS

MACRO M1113

SPECIAL MACROS AND OPDEFS.

25-MAY-82 09:19

PAGE 15

SEQ 0032
.SBTTL

SPECIAL MACROS AND OPDEFS.

s SAVE GENERAL REGS 1 TO 5
+.MACRO

JSR

.ENDM

SAVREG

R5 ,REGSAV

HACRO TO FORCE AN ERROR

.nfggo

FORCERROR

TAG,NOTSSR

+11F NDF LISTALL, .NLIST
LIST
.IF B NOTSSR
ENDC
MOV
TSSR(RS) ,R1
MOV

BNE

FORCER,FORCER

TAG

.NLIST
IIF NDFf LISTALL,
LIST
.ENDM

+READ TSSR
;IS FORCER SET?

sBR IF YLS

(LEAVE C BIT ALONE)

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

HACRO

FORCEXIT

«NLIST
.{}ZTNDF LISTALL,
MOV

BMI

TAG

.NLIST

FORCER,FORCER

TAG

.NLIST
<IIF NDF LISTALL,

LLIST

;IS FORCER NEGATIVE?

sBR IF

.LIST

.ENDM
I

; MACRO TO INCREMENT ERROR COUNTS

.MACRO
«NLIST

NEXT.ERRNO

ssso11F NDF LISTALL,

ERRNO=ERRNO+1

.NLIST

sso.11F NDF LISTALL, .LIST
LIST
M 4

YES

—

153 ~ GLOBAL AREAS

MACRO M1113

SPECIAL MACROS AND OPDEFS.

397
398
399

25-MAY-82 09:19

.MACRO
MOV

BIC
BIC

BIS

.ENDM

407
283

000000

410
611

’

XOR
A3
A,=(SP)

B, (SP)
A,B

(SP)+,B

FORCER

; INITIALIZE ERROR NUMBER
=~ FORCE ERROR FLAG

THE FOLLOWING LOCATIONS MAY BE PATCHED BY THE USER

: TO OBTAIN THE RESULTS DESCRIBED FOR EACH.

414

415 002166

419

EN=0
.SBTTL

:
:

2}%

2};

:MACRO TO PERFORM XOR
e

400
401
402
403
404
282

416

PAGE 15-1

000000

FORCER: :

0
:

: FORCE TYPE ALL HARD ERRORS (THE ONES CALLED =

= BY THE MACRO ‘'IFERROR'').

AN ERROR NEED NOT -

; = EXIST, JUST ASSUME AND TYPE THE MESSAGE.

SEQ 0033

TSV3 - GLOBAL AREAS

GLOBAL DATA SECTION

MACRO M1113

25-MAY-82 09:19
.SBTTL

PAGE 16

SEQ 0034

GLOBAL DATA SECTION

s bt

sTHE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED
¢ IN MORE THAN ONE TEST.

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

455
456
457
458
459
460
461

002230
002232
002272
002274
002276
002300

002302
002304
002306
002310
002312
002456
002622

000000
000000
000000
000000
000000

000000

000000
000000
000000
000000
000000
000000
000000
000000

UNITN::

QvP::

:
CSRADDR:
IVEC::
IPR]::
TSTCNT::
::
LOOPCNT
DEVCNT::
FATFLG::
INTRECV::
EXTFEA::
:
BENBSW:
EXPD::
RECV::
ERRH:]:
:
ERRLO:
RAMDATA:
:
RAMS]I2::
RCVHIADD::

.WORD
.WORD
-WORD
-WORD
-WORD
+WORD
.WORD
.WORD
.WORD
-WORD
-WORD
.WORD
.WORD
.WORD
.WORD
.WORD

+WORD

TSTFLAG::
TSTPTR::
:
PRMNO:

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

:
RECMSG:
TMPBFR::

.BLKB
.BLKB

:
RCVLOADD:

COUNT::
DATA::

EXPMSG::

104

449
450
451
452
453
454

002210
002212
002214
002216
002220
002222
002224
002226

EPRTSU::

441
442
443
444
445
446
447
448

000000
000000
000000

433 002170
434 002172
435 002174
436 002176
437 002200
438 002202
439 002204
440 002206

0 &»
[=lele
Ghfl-‘CDCNDCDCNDCDCn;CDCNDCDC"DCDCNDCDCTVFUCDCNDC)
¢ OO

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

SUNIT # UNDER TEST.
sQUICK VERIFY FLAG.

sADDRESS OF CSR FOR CURRENT DEVICE

¢ INTERRUPT VECTOR
;INTERRUPT PRIORITY,
sNUMBER OF TESTS RUN IN THIS PASS

cREMAINING ITERATION COUNT FOR TEST

sNUMBER OF DEVICE UNDER TEST
cSET IF FATAL ERROR IS DETECTED IN TEST
sSET IF TAPE INTERRUPT WAS RECEIVED
cEXTENDED FEATURES SOFTWARE SW 0=0FF;1=0N
sBUFFER ENABLE SWITCH SW 0=0FF;1=0N
cEXPECTED RAM DATA FOR PRAMPKT ROUTINE
cRECEIVED RAM DATA FOR PRAMPKT ROUTINE
sHIGH ADDRESS MEMORY ERROR
sLOW ADDRESS MEMORY ERROR
sDATA READ FROM RAM PACKET OR MESSAGE BUF AREA
cRAM DATA SIZE FOR PRAMPKT ROUTINE
sRECEIVED BUFFER HIGH ADDRESS
sRECEIVED BUFFER LOW ADDRESS
sTEST COUNT PATTERN
STEST DATA
sTEST FLAG WORD
s TSTBLK POINTER
sPRINT ROUTINE TEMP

sEXPECTED MESSAGE BUFFER DATA
sRECEIVED MESSAGE BUFFER DATA
: TEMPORARY STORAGE FOR PRINT

TSV3 = GLOBAL AREAS

TSTBLK

MACRO M1113

= TEST DATA TABLE

25~MAY-82 09:19

222

.SBTTL

PAGE 17

TSTBLK

SEQ 0035

= TEST DATA TABLE

22;

:THIS TABLE (ONTAINS TEST DATA USED IN SEVERAL TESTS

298

:IN SEQUENCE THE DATA IS:

&7
472
473
474
2;2

:
:
:
:
:

477
478
479 002742

480 002742
481 002744
482 002746
483 002750
484 002752
485 002754
486 002756
(87 002760
488 002762
489 002764
490 002766
491 002770
492 002772
493 002774
494 002776
495 003000
496 003002
497 003004
498 003006
499 003010
500 003012
501 003014
502 003016
503 003020

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

000000
177777
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
002000
004000
010000
020000
040000
100000
177776
177775
177773
177767
177757
177737

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

TSTBLK::

ALL 2EROS
ALL ONES
WALKING ONES
WALKING ZEROS
ALTERNATING ONES AND ZEROS

WORD
LWORD
.WORD
WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
LWORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
WORD
.WORD
.WORD

.WORD
.WORD
.WORD
.WORD
.WORD
LWORD
WORD
LWORD
.WORD
.WORD
{WORD
LWORD
TBLEND==,

O
177777
BITO
BITI
BIT?2
BIT3
BITé4
BITS
BIT6
BIT?
BITS8
BIT9
BIT10
BITI
BIT12
BIT13
BIT14
BIT1S
~(8IT0
~(BIT1
“(BITZ2
“(BIT3
“(BIT4
~(BITS

~(BIT6
AC8IT7
~(BIT8
“c8IT9
“~(BIT10
~CBITI1
“(BIT12
~(BIT13
“(8IT14
A(8IT1S
125252
052525

sALL ZEROS
JALL ONES
;DATA FOR WALKING ONES

;DATA FOR WALKING ZEROS

“ e

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

TSV3 - GLOBAL AREAS

MACRO M1113

25-MAY-82 09:19

PAGE 18

SEQ@ 0036
.SBTTL

GLOBAL ENVIRONMENT STORAGE

"STORAGE FOR DEVICE REGISTERS

549 003146

550 003150
551 003152
552 003154
553 003154
554 003156
555 003160
556 003162
557 003164
SSg 003166

:DUMMY DEVICE REGISTERS...
¢e..FOR MULTI-UNIT CHECKOUT.

000000

DUFLG::

.WORD

:''DROPPED UNIT'® FLAG.

000000

NODEV::

.WORD

sFLAG TO SAY NO DEVICE.

000000
000000
000000
000000
000000
000000
000000

TEMPY::
TEMP?: :

.WORD
.WORD

sSOME TEMP LOCATIONS.

FREE::
FRESIZ::
FREEHI: .WORD
KTFLG::

.WORD
. WORD
O
.WORD

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

.WORD
.WORD
.WORD
.WORD

000000
000000
000000
000000
000000
000000
000000
002000
000000
000000
000000
000000
000000
000000
000000
000000
177777

XXCOMM: :

T23A::

1238::

.WORD

.WORD
.WORD

SIFLAG::

BADDAT: :

.WORD

CTABM: :

.WORD

GDDAT::
LOOPFL::
CTAB::

.WORD
.WORD

.WORD
.WORD
.WORD
.WORD

sINHIBITS CODE IN ‘'CLEAN=-UP‘’,

JXXDP+ COMM BLOCK POINTER.

;1ST FREE MEMORY ADDRESS...
J...AND SIZE (IN WORDS).
sLAST WORD IN FREE SPACE
:KT11, MEM AVAIL FLAG ;= .WORD
0 = <24K OR NO KT ;= NZ = >24K AND KT,
sSET BY TEST ROUTINES TO FLAG >28K UNDER TEST
JSET IF WE CAN TEST CLEARED OTHERWISE
JNXM LO ADDRESS BITS

JNXM HI ADDRESS BITS FOR DAL'S 16-21

:11/723A FLAG
;117238 FLAG

JTEST 38 FLAG *0
232W BLOCK ADDRESS FOR 32K START

*ACTUAL DATA

*EXPECTED DATA
s CONF IGURATION TABLES.
sCONFIG WORK.

1
cEND OF MEM TABLE.
CTABE::
JERROR STATJISTICS TABLE (1 WORD PER UNIT), 64 UNITS MAX:
:
:
:
:
N

.WORD

.WORD
.WORD

T3BFLG::
PST32W::

568 003166
599 003366
570
571 003370

0,100000,0,0

0.0.0,0,0.0,0.,0

DUMMY:

000000
000000

O0O00O

100000
000000

526
527 003102
528
529 003104
530
531 003106
532 003110
533 003112
534 003114
535 003116
536 003120
537 003122
538
539
540 003124
541 003126
542 003130
543 003132
544 003134
545 003136
546 003140
547 003142
548 003144

000000
000000

OOOONOOOOOOO

003052
003062

1 OO0O0

N (U IV IV, IV, IV, IV IV, ]
~nN NIPNONININ)
— -—b

(¥, NNV
—=20 O

GLOBAL ENVIRONMENT STORAGE

000000

ERTABL :
ERTABE :

000000

SKIPT:

100000
10XXXX
160000
160001
TeXXXX

.WORD

UNIT
UNIT
UNIT
UNIT
UNIT
UNIT

.BLAW
.WORD

64.

=
=
=
=
=

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

;1=SKIP SUBTEST 0=NO SKIP OF SUBTEST

TSV3 - GLOBAL AREAS
GLOBAL TEXT MESSAGES

MACRO M1113

25-MAY-82 09:19

2;2
cte

575
576
577

.SBTTL

PAGE 19

SEQ 0037

GLOBAL TEXT MESSAGES

s THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS,
s MESSAGES, AND ASCI] INFORMATION THAT ARE USED IN
s MORE THAN ONE TEST.

578
579

i==

580
581
582
ggz

.
JNAMES OF DEVICES SUPPORTED

585
586 003372
003372
003372

DEVTYP
LSDVTYP::
LASCIZ

124

123

126

587
602

/TSV0S/

sTEST DESCRIPTION
A

282

6051383288
003400

LS$DESC
052

0s2

052

613
614
615
616

DESCRIPT <rxxx TSVOS LOGIC DIAGNOSTIC = CHK CABLES -TRANSPORT IF ERR wwee)>
.esgfil

/ewnx TSVOS LOGIC DIAGNOSTIC = CHK CABLLS~-TRANSPORT IF ERR wewe/

g}g

;BIT TO ASCII CONVERSION FOR TSSR REGISTER

619
620 003500
621 003520
622 003540
623 003543
624 003547
625 003553
626 003557
627 003563
628 003567
629 003574
630 003601
631 003605
632 003611
633 003616

634 00362.
635 003630
636 003635
ggg 003642
639
640
641
642
643
644

.EVEN

<TSVOS>

003650
003703
003736
003775
004016
004056

003540
003601
123
102
123
122
116
116
102
102
123
117
102
102

003543
003605
103
111
103
115
130
102
1M1
mm
123
106
M
1R

003547
003611
000
105
105
122
115
101
126
126
122
114
126
126

124
124

123
123
040
101
101
101

123
123
116
040
040
040

102
102
102
102

040
045
045
045

111
1M
1M
m

126
126
126
126

TSSRBIT::

13$:
148:
15%:
16%:

.ASCIZ
LASCIZ2
LASCIZ
.eeg#l

WORD
.WORD
°SC!
°'BIE’
°SCE’
°‘RMR®
°NXM’
°'NBA'’
°'BI'9’
'BiT8’
°*SSR'
‘OFL’
°‘BITS®
‘BITS!
‘BIT3’
‘'BIT?’
‘BITYV
'8ITO*

SFIERR:
SFHERR:

.ASCIZ
.ASCIZ
LASCIZ
.ASCIZ
LASCII
LASCIZ

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

1$:
28%:
3%:
4$:
S$:
6$:
78:
88$:
9%:
10$:
118:
12%:

NXR:
NXRX:
TSSX:

LASCIZ
.ASCIZ
LASCIZ
.ASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
.ASCIZ
LASCIZ

1$,2%,3%,48,5%,6%8,7%.8%
9%,108,118,128,13%,148,15%,16$%

TSV3 = GLOBAL AREAS

GLOBAL TEXT MESSAGES

645 004115
646 004121
647 004150
648 0046213
649 004217
650 004254
651 004276
652 004333
653 004405
ggg 004455

045
040
040
045
040
040
045
040
040
040

“SA 004525
65 oo 226
658 204531

000
045
045

660 004641
661 04743

09
122

659 004565

60 005011
663 005054
664 005111
665 005204
666 005276
667 005370
668 005456
669 005552
670 005643
671
672
673
674

V4S5

040
127
124
124
106
105
045
045
045

MACRO M1113
116
040
040
116
040
040
101
040
040
040

25-MAY-82 09:19

SEQ 0038

045
125
111
045
116
111
040
042
042
042

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

.ASCIZ
.ASCIZ
LASCIZ
.ASCIZ
_ASCIZ
,ASCIZ

/aNXA/
/ UNEXPECTED INTERRUPT/
/
INTERRUPT EXPECTED, NOT RECEIVED/
LASCII
/XNXA/
/ NO INTERRUPT WAS GENERATED/
/
INTERRUPT FAULT/
/XA CPU PC: }062A TSBA: %06/
/
:BUS-INIT' pIDN'T INITIALIZE CONTROLLER/
/
'SOFT-INITfl DIDN'T INITIALIZE THE DPU/
/
‘'BUS-RESET'' DIDN'T INITIALIZE THE DPU/

116
101

000
040

NUL:
NULCR:
EXPGOT:

ASLie
L.ASCIZ
.ASCIZ

//
/IN/
/XA EXP'D: X06XA,

101
101

040
115

DUAD12: .ASCIZ
PKTRAM::

/%A REG(W) WRITTEN TO: 206XA REG(R) READ: EXP°'D: X06%A, REC'D: %06/
.ASCIZ
'RAM Contents Do Not Match Packet Sent’

MB189:

‘INZA tressvasannananns 11/238 SYSTEM teenannannnnnnnnsN’

116

040
122
123
123
101
122
116
116
116

045

103
111
123
123
126
122
045
045
045

JASCI1
ASCIZ
.ASCIZ

PAGE 19-1

EXPGT2: .ASCIZ

SCME:
<ASCIZ
WRTMSG: .ASCIZ
WRTERR: .ASCIZ
RDERR:
.ASCIZ
SCHERR: .ASCIZ
RETERR: .ASCIZ
NOMEM:
_ASCIZ
MB186:
.ASCIZ
.ASCIZ

REC'D: %06/

/XNXA EXP'D: 206fA. X06INXA REC'D: XOXA, 206/

/
CONFIG DOESN'T MATCH MFG. MASTER/
°'WRITE CHARACTERISTICS Failed®
'TSSR Incorrect After WRITE Command, More Bits Set Than SSR®
'TSSR Incorrect After READ Commard, More Bits Set Than SSR'
'FATAL ERROR IN SUBTEST = CHECK TAPE,CABLES, TRANSPORT etc.'
'ERROR IN SUBTEST = WRITE DATA RETRY FIVE TIMES FAILED'
°'INXA tevxe NO NXM ADDRESS==CANNOT TEST NXM TIMEOUT. saeneiN®
‘'INXA tensnannannannans 11/23A SYSTEM sansnannnnennnaenN®

TSV3 = GLOBAL AREAS
MACRO M1113
GLOBAL ERROR REPORT SECTION

25-MAY-82 09:19

2;9

.SBTTL

PAGE 20

SEQ 0039

GLOBAL ERROR REPORT SECTION

678
679
680

14¢
; THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX
; CALLS THAT ARE USED IN MORE THAN ONE TEST.

683

’

gg}

684 005734
005734
685 005734
005734
005740
005744
005750
005752
005754
686 005760
687 005764
005764
005764
688

: ASCI] TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION.

NXKERR::

013746
012746
012746
010600
104415
062706
004737

003104
003775
000002
000006
005766
L10002:

104423

689
690
691
gg%

694
695
696
697
698

005766
005770
005772
005774
006000
006000
006004
006010
006012
006014
699 006020

:
:
:

005727
020000
001402
004777
012746
(12746
010500
104415
062706
001207

177770
004526
000001
000004

BGNMSG

NXRERR

JNON-EXISTANT DEVICE REGISTER.

PRINTX
MOV
MOV
MOV
MOV
TRAP
ADD
JSR
ENDMSG

#NXRX,NODEV
NODEV,=(SP)
#NXRX ,~(SP)
#2,-(SP)
SP,RO
CSPNTX
#6,SF
PC,EXTEND

JNODEV = NEXM ADDRESS.

TRAP

CSMSG

; PRINT EXTENSION IF REQUIRED.

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

EXTEND: TST
EXTA:
0
8EQ
JSR
18:
PRINTX
MOV
MOV
MOV
TRAP
ADD
RTS

(PC)+
18
PC,aEXTA
#NULCR
#NULCR,=(SP)
#1,-(SP)
SP.RO
CSPNTX
#,SP
PC

2 0 = NO EXTENSION.
; APPEND EXTENSION TEXT.
. PRINT A BLANK LINE

TSV3 =~ GLOBAL AREAS

PRITSSR = PRINT

MACRO M1113

TSSR CONTENTS

25-MAY-82 09:19

.SBTTL

PAGE 22

SEQ 0040

PRITSSR = PRINT TSSR CONTENTS

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

LINPUTS:
R1

;

CONTENTS OF

TSSR

*SUBORDINATE ROUTINES:

:
719
720 006022
721 006022

722 006026
723 006030
006030
006032
006036
006042
006044
006046
006052
006054
006060
006062
006062
006066
006072
006074
006076
728 006102
729 006104
730 006110
731 006112
732 006116
733 006122
734 006124
735 006126
736 006130
737 006132
738 006134
739 006136
740 006140
741 006142
742 006150
743 006152
744 006154
745 006156

006156
006162

PRITSSR:

010104
010446
012746
012746
010600
104414

062706
010400
004737
103410

006505
000002

016134
006725
000001

062706
010403
042703
001434
012702
012701

000004

104415

005703
001413

CHECK FOR AMBIGUOUS CONTENTS

SAVREG
MOV

R1,R4

PRINTB
MoV
MOV

#TSSRFOR,R&
R&4,=(SP)
#TSSRFOR,=(SP)

MOV
TRAP
ADD
MOV
JSR

SP,RO
CSPNTB
#6,SP
R4 ,RO
PC,CHKAMB

PRINTX
MOV

#AMBTSSR
N#AMBTSSR,=(SP)

MOV

000006

012746
012746
010600

CHKAMB

BCS

001476

8iC

#HIADDR!FATERR!T ERCLS,R3

108:

MOV
MOV
TST

#TMPBFR ,R2
#TSSRBIT,R1
R3

CLC
ROL

138.
15%:

002622
006676

sARE CONTENTS AMBIGUOUS ?
sBRANCH IF NOT
sSHOW CONTENTS ARE AMBIGUOUS

MoV

8tQ

MOV

Move

BNE

R4 ,R3

sGET TSSR BACK FOR CHKAMB

5$:

118:

177777

#1,-(SP)
SP,RO
CSPNTX
#4,SP

8C(C

000054

#2,=(SP)

Mov
MOV
TRAP
ADD

BEQ

002622
003500

sSAVE GENERAL REGISTERS
sSAVE THE TSSR CONTENTS
sPRINT THE CONTENTS OF TSSR

20$

158

138

(R1) ,RO

(RO)+,(R2)+

118

Move

#,,-1(R2)

B8R

108

TST

CLRB

PRINTX
MOV

MOV

(R1)+

=(R2)

;CONTENTS OF TSSR
sCLEAR ALL MULTIPLE BIT FIELDS
¢NO BITS ARE SET
s TEMPORARY ASCII BUFFER

cASCII EQUIVALENT OF BITS
sREMAINING BITS TO CONVERT

¢BRANCH WHEN ALL ARE DONE

¢CLEAR CARRY FOR SHIFT
sSHIFT NEXT BIT TO CARRY
sBRANCH IF BIT NOT SET
sPOINTER TO BIT DEFINITION
sMOVE ASCIZ TO BUFFER
sMUVE ALL BITS
s INSERT A COMMA TO TERMINATE
sPOINT TO NEXT DESCRIPTION
sGET THE REMAINING BITS

sTERMINATE THE LINE
THE BIT DEFINITIONS

#TSSDEF ,#TMPBFR sPRINT
#TMPBFR,~(SP)

#TSSDEF ,~(SP)

TSV3 =~ GLOBAL AREAS

PRITSSR = PRINT

006166
006172
006174
6 006176

74
747 006202
748 006204
749 006210
750 006214
006214
006216
006222
006226

006230
006232

751 006236
752 006240
753 006244
754 006246
755 006250
756 006252
757 006254
758 006260

006260
006262
006266
006272
006274
006276
759 006302
760 006306
761 006310
006310
006312
006316
006322
006324
006326
762 006332
763 006336
006336
006340
006344
006346
006350
764 006354

765
776 006356
777 006446
783 006505
784 006525
785 006566
786 006627
787 006676
788 006725
789
790 006766

MACRO M1113

TSSR CONTENTS

012746

000002

062706

000006

010600
104415

010403
042703
016303
010346

012746
012746
010600
104415
062706
010403
062703
001416
006203
006203
006203
016303

010346
012746

012746
010600
104415
062706
042706
001411
010446

112746

012746
010600
104415
062706
013703

010346
012746
010600
104415

25-MAY-82 09:19

MoV

MOV
TRAP

ADD
208:

177761
006766

MOV
BIC
MOV

PRINTX

MOV

006566
000002

MOV
MOV
MOV
TRAP
ADD
MOV
BIC
BEQ
ASR
ASR
ASR
MOV

000006
177717

007326

PRINTX

MOV
MOV

006627
000002

000006
176377

25s:

MOV
MOV
TRAP
ADD
BIC
BEQ

PRINTX

MOV

006525

MOV

000002

000006
002170

308:

MOV
MOV
TRAP
ADD
MOV

PRINTX

MOV
MOV
MOV
TRAP

000001

062706
000207

000004

ADD
RTS

045
045
045
045
045
045
045
045

116
116
116
116
116
116
116
6

045
045
045
045
045
045
045
045

007006

007031

007057

PA ot 22-1

SEQ 0041

#2,-(SP)

SP,RO
CSPNTX
#6,5P
R4 ,R3

#*CTERCLS,R3

TCOCOD(R3) ,R3

#TCOASC ,R3’

R3,-(SP)

sGET THE TSSR CONTENTS
JCLEAR ALL BUT TERMINATION
sGET THE TERMINATION CODE MEANING

sPRINT THE

TERMINATION CODE

#TCOASC,-(SP)

#2.-(SP)
SP,RO

CSPNTX

#~CFATERR,R3

25%
R3
R3
R3

TSFCOD(R3) ,R3

#TFCASC ,R3’

R3,=(SP)

s TSSR CONTENTS AGAIN

sCLEAR ALL BUT FATAL TERMINATION
sDON'T PRINT IF ZERO

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

#TFCASC,-SP)

#2,-(SP}
SP,RO
CSPNTX

#6,SP
#*CHIADDR,
R4

308

#TEXASC
R4

R4 ,~(SP)

;CLEAR ALL BUT EXTENDED ADDRESS
sDON'T PRINT IF ZERO

:PRINT THE EXTENDED ADDRESS BITS

#TEXASC,=(SP)

#2,-(SP)

EPRTSU R3

sPRINT MEAASGE BUFFER ADDRESS
¢PRINT PROPER MESSAGE

R3 =(SP)

#1,~(SP)

SP,RO
CSPNTX

#6,SP

cRETURN TO CALLER

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

'INIA eeeeeCHECK CABLES BETWEEN M7196 AND TRANSPORTw#sses’
'ANZA teeae(CHECK TRANSPORTeanes’
LASCIZ
*INXA TSSR = X06°'
.
4
'INXA Extended Address Bits = 206°'
*INXZA Termination Class Code = X’
*INZA Fatal Termtnat1on Class Code = i
*YINXA TSSR Bits Set:
*INXZA TSSR Contents Are Ambiguous’

TCOCOD:

18,2%,38,48,5%,63,7%.8%

.WORD

TSV3 ~ GLOBAL AREAS

PRITSSR = PRINT

MACRO M1113

TSSR CONTENTS

25-MAY-82 09:19

SEQ 0042

791
792
793
794
795
796
797
798

007006
007031
007057
007101
007121
007203
007252
007276

116
124
124
106
122
122
125
106

157
145
141
165
145
145
156
141

162
162
160
156
143
143
162
164

801
802
803
804
805
806

007326
007336
007372
007403
007447

007336
11
122
102
122

007372
156
145
165
145

007403
164
163
163
163

ggg

PAGE 22-2

18:
2%:
38:
4$:
S§$:
63:
7%:
8%:

TSFCOD:
1$:
2§%:
3$%:
4$:

.ASCIZ
.ASCIZ2
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

‘'Normal Termination'
'Termination Condition'
'Tape Status Alert'
‘Function Reject’
.
‘'Recoverable Error - Tape Position One Record Down'
‘'Recoverable Error - Tape Was Not Moved'
‘'Unrecoverable Error’
‘Fatal Controller Error'

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

1$,28,38,48
.
)
‘Internal Diagnostic failure'
'Reserved'
]
‘'Bus Interface or Sanity Check Error'
'Reserved'’

.EVEN

TSV3 -~ GLOBAL AREAS

PRIPKT

= PRINT

MACRO M1113

25-MAY-82 09:19

THE ADDRESS/CONTENTS OF

COMMAND PACKET

ggg

.SBTTL

PAGE 23

PRIPKT

SEQ 0043

=~ PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET

810
8N

glg

¢
;THIS ROUTINE PRINTS THE ADDRESS AND CONTENTS OF A COMMAND PACKET.
;THIS ROUTINE 1S NORMALLY ONLY CALLED FROM A PRINT ROUTINE.

S}é

:INPUT:

816
817

:
:

g}g

g%?

822
823 007460
824 007460
825 007464
826 007466
827 007472
828 007474
829 007476
830 007500
831 007502
832 007504
833 007506
007506
007510
007512
007516
007522
007524
007526
834 007532
835 007534
836 007536
837 007540
838 007544
839 007546
840 007550
841 007552
007552
007554
007556
007562
007566
007570
007572
842 007576
843 007600

010246
010146
012746
012746
010600
104414
062706
005201
020105

322 007604

000207

844 007602

847 007606
848 007644
ggg

PRIPKT::

010005
005737
001001
005003
010301
010400
006100
006101
010446
010146
012746
012746
010600
104414
062706
010300
001404
010401
004737
010004
005001
012402

003124

108:

007644
000003
000010

15%:

017406
208:
25$:

007606
000003

000010

002762
045
045

RO
R3

NUMBER OF WORDS IN PACKET
HIGH ORDER COMMAND PACKET ADDRESS

NOTE:

R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR.

SAVREG
MOV
TST
BNE
CLR
MOV
MOV
ROL
ROL
PRINTB
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
MOV
BEQ
MoV
JSR
MOV
CLR
MOV
PRINTB
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
INC
CMP

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

:NEXT WORD NUMBER
:DONE ALL PACKET WORDS?

:RETURN

045
045

PKTFRM:
PKTADD:

:SAVE THE REGISTERS
JSAVE NO. OF WORDS IN PACKET
;ABOVE 28K UNDER TEST?
:BR IF YES
:SET HIGH ORDER ADDRESS TO 0
:COPY HIGH ORDER ADDRESS
:GET LOWER ADDRESS
JSHIFT BIT 15 INTO C BIT
;AND INTO HIGH ORDER.
:PRINT PACKET ADDRESS

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

BLT

25$

.ASCIZ
.ASCIZ
.EVEN

‘'INXA Packet Word #XD1YA = X06°
‘*INXA Packet Address = X01X05'

RTS

116
116

ADDRESS OF COMMAND PACKET

;LOOP TILL ALL DONE

TSV3 - GLOBAL AREAS

PRIBXOR = PRINT EXPD,

MACRO M1113

RECV AND

25-MAY-82 09:19

PAGE 24

XOR BYTE

SEQ 0044
.SBTTL

PRIBXOR = PRINT EXPD, RECV AND XOR BYTE

MR4

PRINT EXPECTED DATA,

THIS ROUTINE

RECEIVED DATA,

AND XOR OF

THE DATA BYTE

IS NORMALLY CALLED ONLY FOR PRINT ROUTINES.

e Ve 0o Wy e Ve e B B,

:INPUTS:

870 007702
871 007702
872 007706
873 007710
874 007720
875 007724
876 007726
877 007730
878 007732
007732
007734

007736
007740
007744
007750
007752
007756

R1
R2

EXPECTED DATA

XOR OF

RECEIVED DATA

OUTPUT:
EXPECTED/RECEIVED DATA

PRIBXOR::

SAVREG

010203
012700
040001
040002
040003
010346
010146
010246

879 007760
880 007762

012746
012746
010600
106414
062706
010300
000207

88% 007764

045

MOV
XOR
MOV

177400

BIC
8IC
8IC
PRINTB

MOV
MOV
MoV
MOV
MOV
MOV
TRAP
ADD
MOV
RTS

007764
000004
000012

116

045

XORBFOR:

.EVEN

sSAVE THE REGISTERS
SEXPECTED DATA

R2,R3
R1.R3

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

RO.R3

:FORM
JBYTE
*SAVE
*SAVE

THE EXCLUSIVE OR
MASK
LOW BYTE RECV
LOW BYTE EXPD

SAVE LOW BYTE XOR

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

R1,~(SP)

R2.~(SP)

#XORBFOR,
- (SP)
#4,-(SP)

SP RO

CSPNTB

#12,5P

R3,RO
PC

.ASCIZ

;RO HAS XOR ON RETURN

*RETURN TO CALLER

"INXA EXPD: XO3%A RECV: X03%A XOR: %03’

—

TSV3 = GLOBAL AREAS

PRIXOR

= PRINT EXPD,

MACRO M1113

RECV AND XOR

25-MAY-82 09:19 \PAGE 25

SEQ 0045
.SBTTL

PRIXOR

= PRINT EXPD, RECV AND XOR

bRJ

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

:THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES.

IS
)

L INPUTS:
R1

RECEIVED DATA

XOR OF EXPECTED/RECEIVED DATA

EXPECTED DATA

OUTPUT:

904 010032
905 010032
906 010036
907 010040

PRIXOR::

908 010050
010050
010052
010054

010102
000004

010072

909 010076
910 010100
911
912 010102
913

000012

000207

045

116

SAVREG

MOV
XOR
PRINTB
MOV
MOV
MOV
MOV
MOV
MoV
TRAP
ADD
MOV
RTS

045

XORFOR:

.ASCI2
.EVEN

R2,R3
R1,R3

:SAVE THE REGISTERS
SEXPECTED DATA
sFORM THE EXCLUSIVE OR

#XORFOR,R2 ,R1,R3 ;PRINT THE MESSAGE

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

R2,-(SP)

#XORFOR,~(SP)

#4,-(SP)

SP,RO
CSPNTB

#12,SP

R3.RO
PC

;RO _HAS XOR ON RETURN
cRETURN TO CALLER

*INXA EXPD: X06XA RECV: X06XA XOF: %06'

TSV3 <~ GLOBAL AREAS

PRIEQU

MACRO M1113

= PRINT BIT NUMBERS AS ASCII

25-MAY-82 09:19

EQUIVALENT

915

.SBTTL

PAGE 26
PRIEQU

SEQ 0046
=~ PRINT BIT NUMBERS AS ASCII

EQUIVALENT

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

IS NORMALLY CALLED FROM A PRINT ROUTINE

L INPUTS:
OCTAL VALUE TO CONVERT

TAB!¢ OF POINTERS TO ASCII

EQUIVALENT

RO
R1

PRIEQU:

SAVREG

RTS

.SBTTL

PRIRAM

sSAVE THE REGISTERS
csRETURN TO CALLER

=~ PRINT RAM ADDRESS

:PRINT CONTROLLER RAM ADORESS.

sTHIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.

LINPUTS:
R4

946
947 010156
948 010156
949 010162

010162
010164
010170
010174
010176
010200
950 010204
951
952 010206
953
954
955

PRIRAM:

010446
012746
012746
010620
104414

010206
000002

062706
000207

000006

045

116

SAVREG

PRINTB
MOV
MOV
MoV
MOV
TRAP
ADD
RTS

045

RAMFOR:

RAM ADDRESS

#RAMFOR R4
R4 ,=(SP)

sSAVE R1-R5 UNTIL NEXT RETURN
sPRINT RAM ADDRESS

#RAMFOR,=(SP)

#2,-(SP)
SP,RO
CSPNTB
#6,SP
PC

JRETURN

.ASCIZ

*INXA CONTROLLER RAM ADDRESS = X06°'

.SBTTL

PRIADD

.EVEN

IN ERROR

=~ PRINT MEMORY ERROR ADDRESS

‘PRINT MEMORY ADDRESS

;THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.

. IMPLICIT INPUTS
ERRH]
ERRLO

= HIGH ORDER ADDRESS
= LOW ORDER ADDRESS

—

TSV3 ~ GLOBAL AREAS

PRIADD

MACRO M1113

= PRINT MEMORY ERROR ADDRESS

966
967
968 010250
969 010250

970 010256
971 010260
972 010264

973 010266
974 010270
975 010272

010272

010274

010276
010302
010306
010310
010312
976 010316
977
973 010320

25-MAY-82 09:19

SEQ 0047

P R]ADD:
013700
013701
010102
006101
006100
010246
010046
012746
012746
010600
104414

002226
002230

000010

045

116

SAVREG

MOV
MOV
MOv
ROL
ROL
PRINTB
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
RTS

010320
000003

062706
000207

045

PAGE 26-1

P RIAQ:

ERRH] ,RO
ERRLO,R1
R1,R2
R1
RO

#PRIAQ,RO,R2

R2,=(SP)
RO,=(SP)

sSAVE R1=R5 UNTIL NEXT RETURN
sGET HIGH ADDRESSS
sGET LOW ADDRESS
< COPY LOW ADDRESS
JSHIFT BIT 15 T0 C BiT
sSHIFT INTO HIGH ORDER

sPRINT MEMORY ADDRESS

IN ERROR

#PRIAQ,=(SP)

#3,-(SP)
SP,RO
CSPNTB

#10,SP
PC

sRETURN

.ASCIZ
.EVEN

'XNXA MEMORY ERROR ADDRESS = X01%05°

.SBTTL

PRITADD = PRINT MEMORY TEST ADDRESS

*PRINT MEMORY ADDRESS

:THIS ROUTINE

IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.

IMPLICIT INPUTS
ERRH]
ERRLO
994
995
996
997
998
999
1000
1001

010364
010364
010370
010374

P RITADD:

013702
013701

002226

002230

010400

010446
000002
000006

1002

010511
000002

1003 0104644

000006

SAVREG

MOV
MOV

sMov
sROL
<ROL

PRINTB
MOV
MOV
MOV
MOV
TRAP
ADD
PRINT8B
MOV
MOV
MOV
MOV
TRAP
ADD
RTS

= HIGH ORDER ADDRESS

= LOW ORDER ADDRESS

ERRHI ,R2
ERRLO,R1
R1.R2

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

sSAVE R1-R5 UNTIL NEXT RETURN

sGET HIGH ADDRESSS
sGET LOW ADDRESS
<COPY LOW ADDRESS

sSHIFT BIT 15 10 C BIT
cSHIFT INTO HIGH ORDER

sPRINT MEMORY ADDRESS LOW IN ERROR

SP,R0
CSPNTB

#6,SP
#PRIT1,R2

R2,=(SP)

sPRINT MEMORY ADDRESS HIGH IN ERROR

#PRIT1,-(SP)

#2,=(SP)
SP,R0
CSPNTB
#6,SP

sRETURN

[

TSV3 = GLOBAL AREAS

PRITADD ~ PRINT MEMORY

1004
1005 010446
1006 010511
1007
1008

1009
1010

045
045

MACRO M1113

TEST ADDRESS

}}g

25-MAY-82 09:19

045
045

PRITO:
PRIT1:

.ASCIZ
LASCIZ
.EVEN

PAGE 26-2

‘'INXA MEMORY TEST ADDRESS LOW = %06’
“INYA MEMORY TEST ADDRESS HIGH = %06'

SEQ 0048

| TSV3 = GLOBAL AREAS
SPACE

MACRO M1113

25-MAY-82 09:19

-~ SPACE RECORDS (FORWARD AND REVERSE)

COMMAND

}8}§

.SBTTL

1014
1015
1016

PAGE 27

SPACE

SEQ 0049

= SPACE RECORDS (FORWARD AND REVERSE) COMMAND

e
:
sROUTINE TO ISSUE A SPACE RECORDS

}8};

;COMMAND (FORWARD OR REVERSE)

1039
1020
102}
1022
1023
1024
}832

:INPUT:
.
:
R3

:
:

}83;

REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY

1029
1030
1031
1032
1033
1034

:OUTPUT:
:
:
CARRY
:
.
.

:
:

NUMBER OF RECORDS TO BE SPACED OVER
BIT1S CONTROLS DIRECTION
BIT1S = 0 IS FORWARD

BIT1S = 1 IS REVERSE
FIRST DEVICE UNIBUS ADDRESS

SET = SPACE RECORDS COMMAND OK

CLR = SPACE RECORDS FAILED

}ng

1037
1038
1039

:
JIMPLICIT OUTPUT:
:

}82?

1042
1043
1044
1045
1046
1047 010556
1048 010556
1049 010562
1050 010570
1051 010576
1052 010600
1053 010602
1054 010606
1055 010610
1056 010614
1057 010620
1058 010626
1059 010632
1060 010636
1061 010642
1062 010644

:SIDE EFFECTS:
.
:
-

010644
010650
010652
010656
010660
010664

SPACE::

012737
012737
005703
100403
010337
000407
042703
010337
052737
012704
010465
004737
103420

012727
000000
013727
000000
005367
001375

000764
140010

010750
010740

010742
100000
010742
000400
010740
000000
016340

000250

002116
177772

5%:
010740

108:
15%:

THE CONTENTS OF R4 IS MOVED TO RO

TAPE HAS BEEN MOVED

SAVREG
MOV
MOV
ST
BMI
MOV
BR
BIC
MOV
BIS
MOV
MOV
JSR
BCS
DELAY

MOV
WORD
MOV
.WORD
DEC
BNE

#500.,SDELAY
#140010,80%
R3
53
R3,90$
108
#BIT15,R3
R3,90%
#8]178,808
#808 R4
R4, TSDB(RS)
PC.WAITF
208
250

#250,(PC)+
O
LSDLY,(PC)+
O
=6(PC)
A

;SAVE THE GENERAL REGISTERS
:SET UP DELAY
sSET UP COMMAND, SPACE FORWARD
sCHECK FOR DIRECTION
:BR, IF REVERSE INDICATED
:LOAD UP NUMBER OF RECORDS TO SPACE
;G0 DO COMMAND
sCLEAR DIRECTION BIT
sLOAD UP NUMBER OF RECORDS TO SPACE
sSET REVERSE BIT IN COMMAND PACKET
:SET UP R4 WITH PACKET ADDRESS
2SEND OUT COMMAND
:WAIT FOR SSR
:BR, IF SSR IS SET AND 0K
;DELAY ABOUT .25 SECONDS

———
TSV3 ~ GLOBAL AREAS

SPACE

010700
010702
010704
010710

1068 010714

1069 010716
1070 010720
1071 010722

1072
1073
1074
1075
1076

MACRO M1113

25-MAY=-82 09:19

- SPACE RECORDS (FORWARD AND REVERSE)

010666
010672
1063 010674
1064
1065
1066
1067

_—

010724
010726
010730
010730
010732

005367
001367
005337
001356
000411
016501
012702

020201

001401
000402
000261

000401
000241

010400
000207

177756

DEC
BNE
DEC

010750
000002
000200

COMMAND

208:

258$:
40$:

60%:
70$:

PAGE 27-1

=22(PC)
.=20
SDELAY

sBUMP DELAY COUNTER DOWN

R2,R1

cARE THEY 0K

BNE
BR
MoV
MoV

158
608
TSSR(RS) ,R1
#SSR,R2

BEQ
BR
SEC

408
60%

BR
cLC

70%

MoV
RTS

R4 ,RO
PC

cCMP

SEQ 0050

:BR, IF MORE DELAY
¢BR IF TROUBLE CARRY = (LEAR
sREAD TSSR
sSET UP EXPECTED

;BR, IF EQUAL = 0K
s TROUBLE EXIT
sSET CARRY NO TROUBLE
JEXIT
sCARRY CLEAR = ERROR

sPASS PACKET ADDRESS
;RETURN

TSV3 ~ GLOBAL AREAS
MACRO M1113 25-MAY-82 09:19 PAGE 28
SPACE
- SPACE RECORDS (FORWARD AND REVERSE) COMMAND

1078
1079
1080
}835

}832

;
M
:
SPACKET FOR SPACE COMMAND

010740

’

1088 010740

000000

808 :

.WORD

1090 010742

000000

90$ :

.WORD

000000

SDELAY:

.WORD

1087

1089

1091 010744
1092 010746

1093 010750
1094

SEQ 0051

000000
000000

.=<. +10>8177770

- COMMAND WORD

:NUMBER OF RECORDS TO BE SPACED OVER WORD
-WORD
-WORD

.EVEN

:DELAY COUNTER

TSV3 = GLOBAL AREAS

WRTCHR

MACRO M1113

25-MAY-82 09:19

= WRITE CHARACTERISTICS COMMAND

.SBTTL

WRTCHR

SEQ 0052
= WRITE CHARACTERISTICS COMMAND

;ROUTINE TO ISSUE A WRITE CHARACTERISTICS

:COMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED
v,

*INPUT:
R4

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

OUTPUT:

TSSR CONTENTS

SET = WRITE CHARACTERISTICS COMMAND OK
CLR = WRITE CHARACTERISTICS FAILED

IMPLICIT OUTPUT:

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

e
e
%600 Bs

VsV

VeV

RO
CARRY

SIDE EFFECTS:

b e

b o

)

b nd

d md

b e

=lel=lelelelelelelelelalaloelelelelelelelelelele
)

VIVAWVIES BN S B BB B8 B D WWWWIWWWWWWNDI NN NN NNNININ) = b 2 ed b e et 2 b 2 O OO O OO0 000
N= O VRNV
WNI=O VNN
NN =O VNV
WN SOV
NS W
=000 NV
WA O

PAGE 29

WRTCHR::

005037
005037
010465
004737
103401
000435
016501
012702
032701
001402
052702
020201
001401
000421
062704

011403
032763
001402
005237
032763
001402
005237

002220
002216
000000
016426

10$:

20$:

000010
000012

002216

002220

MoV
MOV

BENBSW
EXTFEA
R4 ,TSDB(RS)
PC,CHKTSSR

sSAVE THE GENERAL REGISTERS
sCLEAR BUFFER ENABLE SWITCH
cCLEAR EXTENDED FEATURES SW SWITCH
+SEND OUT COMMAND

208
60$
TSSR(R;)R1

8IT
BEQ

000100

MOV
JSR

8CS

000002
000200
000100

000200

SAVREG
CLR
CLR

000012

25$:

CMP
BEQ

408:

ADD
MOV

sWAIT FOR SSR

sBR, IF SSR IS SET AND OK
sBR IF TROUBLE CARRY = CLEAR
sREAD TSSR
sSET UP EXPECTED
sWAS OFF

LINE SET

sBR, IF NO OFL SET

IN TSSR

sMAKE THEM LOOK ALIKE
sARE THEY 0K

= OK
:BR, IF EQUAL

; TROUBLE EXIT
sPOINT TO WRT CHARA DATA PACKET

cGET ADDRESS OF MESSAGE BUFFER

BIT
BEQ
INC

l§2LEXTF,XST2(R3)

EXTFEA

sSET EXTENDED FEATURES SW SWITCH

BIT
BEQ
INC

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

sBUFFER ENABLE SWITTH SET
:BR, IF SWITCH NOT SET
sSET SOFTWARE SWITCH FOR ENABLED

ggT?#DED FEATURES BIT SET?

TSV3 = GLOBAL AREAS

WRTCHR

1153 011070

1154 011070
1155 011072
1156 011074
1157 011076
}}gg 011102
1160

MACRO M1113

25-MAY=82 09:19

=~ WRITE CHARACTERISTICS COMMAND

000261
000401
000241
016500
000207

508:

000002

60$:
70$:

SEC
BR
CLC
MOV
RTS

PAGE 29-1

708
TSSR(RS5) R0
PC

SEQ 0053

sSET CARRY NO TROUBLE
JEXIT
sCARRY CLEAR = ERROR
¢RETURN TSSR CONTENTS
cRETURN

TSV3 = GLOBAL AREAS

=~ POSITION TAPE

MACRO M1113
(REWIND)

PAGE 30
REWIND

SEQ 0054
=~ POSITION TAPE

(REWIND)

(OMMAND

M 4

d D d D
d d d D o

STHIS ROUTINE WILL REWIND THE SELECTED TAPE.
CAUTION:

THE ROUTINE DOES NOT WAIT FOR BOT
TO ARRIVE. ALSO THE CALLER MUST CHECK FOR

SSR TO SET IN THE TSSR

b od D Eh D ) cnd d D e D e
D e D i e e D d D ad D e

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

LINPUT:
RS

FIRST DEVICE UNIBUS ADDRESS

THE CONTENTS OF R4

R EWIND::

b amd =
b
b
b
b cnd
b emd
b
b

b cnd

b wod wmd

b wnd wud

e
b
b e

b cd cud

b
b

b
bl

b wd wnd
wd cnd

b e
—b

-l e

b cnd ad @b nd

NNOORO OIS BDWWWNWWUWNIN
= =00
NOOASTNOIT
NS OORNILINO OO

OUTPUT

(=lelelalelelelelalelalelalelelalalelatlal)

— ed cnd cnd amd ad b cnd e b ) wd e e
—d b b e ) e b ah b wd ) = D )

25-MAY-82 09:19

COMMAND

.SBTTL

D b d o
D o D o

ooooooogmmmmmmaamwNwwwwwwwwwoooooooo
NOWNS
W VOO NO VNN = O 000 NNV WA = O O 00 O NS i)

REWIND

SAVREG

IS PASSED TO RO

sSAVE R1-R5 UNTIL NEXT RETURN

012704
010465
012703
004737
103417

011200
000000
000550
016340

012727
000000
013727
000000
005367
001375

000372

208
250.
6250..(PC)+

002116

bSDLY.(PC)f

177772

=-6(PC)

177756

=22(PC)
.=20
R3
108

;BUMP COUNTER DOWN
;KEEP GOING

R4 RO
PC

JPASS THE PACKET ADDRESS
;RETURN

005367
001367
005303
001357
000241
010400
000207
011200
102010
000000

108:

MOV
MOV
MOV

#RWPACK R4
R4 ,TSDB(RS)

JGET PACKET ADDRESS
JSEND PACKET ADDRESS TO EXECUTE

PC,WAITF

;WAIT FOR SSR TO SET

#360. ,R3

JENOUGH TIME FOR 2400° REEL TO REWIND

JLEAVE WHEN SSR IS SET

JWAIT FOR .25 SECONDS

20$:

RWPA(K:

RTS

JCLEAR CARRY YO SET ERROR

.=<.+10>8177770
-WORD
.WORD

102010
0

sPOSTION COMMAND (REWIND)
sNOT USED

TSV3 = GLOBAL AREAS

—

21
21
21

<~ POSITION TAPE

REWIND

MACRO M1113
(REWIND)

25-MAY-82 09:19

COMMAND

PAGE 30-1

SEQ 0055

—

J—

TSV3 = GLOBAL AREAS

CKRAM

MACRO M1113

-~ COMPARE RAM TO 1/0 PACKET

25-MAY-82 09:19

}g}g

.SBTTL

1219

PAGE 31

CKRAM

SEQ 0056

- COMPARE RAM TO 1/0 PACKET

1220
1221

;
;ROUTINE TO READ THE FIRST 8 BYTES FROM RAM

1224

s INPUT:

}%5%

sMEMORY AND COMPARE THIS DATA TO A COMMAND PACKET.

1225
1226

;
:

}Sgg

1229

:OUTPUT:

A
RS

ADDRESS OF THE COMMAND PACKLT
FIRST DEVICE UNIBUS ADDRESS

1230
1231

;
:

}S%é

JIMPLICIT OUTPUT:

1236
1237

:
:

}Sgg

CARRY

THE TABLE RAMDATA IS FILLED WITH THE

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

}sgg

}52?

;SIDE EFFECTS:

152%

1244

1246 011204
1247 011204

CKRAM::

1245

1248
1249
1250
1251
1252

011210
011214
011220
011222
011226

1253 011234
1254 011240
1255 011244
1256 011250
1257 011254
1258 011256
1259 011260
1260 011262
1261 011264
1262 011270
1263 011272
1264 011274
1265 011276
1266 011300
1267 011302
1268 011304
;ggg 011312

012701
012702
005003
004737
112765

004737
010265
004737
116511
122124
001401
005203
005202
020227
003761
005703
001402
000241
000401
000261
012737
000207

002232
000201

016426
000000
016426

000000

000000
016426
000000

20$:

000210

000010

10$:

002272

308:
50%:

SET = RAM MATCHES PACKET

CLR = RAM DOES NOT MATCH PACKET

THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE

SAVREG
MOV
MoV
CLR
JSR
MOVB

JSR
MOV
JSR
MOVB
CMPB
BEQ
INC
INC
CMP
BLE
ST
BEQ
CLC
B8R
SEC
MOV
RTS

#RAMDATA,R1
#RMPKTBEG,R2
R3
PC.CHKTSSR
#0,TSDB(RS)

PC.CHKTSSR
R2.,TSDB(RS)
PC.CHKTSSR
TSBA(RS), (R1)
(R1)+,(R4)+
208
R3
R2
R2 ,#RMPKTEND
108
R3
308
508
#8. ,RAMS12

:SAVE THE GENERAL REGISTERS
;ADDRESS TO SAVE THE RAM DATA
;BYTE ADDRESS OF FIRS: RAM DATA
sCLEAR THE ERROR FLAG
:WAIT FOR SSR
sSET MAINTENANCE MODE

JWAIT FOR SSR TO SET
:SELECT NEXT RAM ADDRESS
JWAIT FOR SSR TO SET
sREAD THE RAM DATA
;COMPARE TO EXPECTED
:BRANCH IF 0K
;SET ERROR FLAG
;ADDRESS OF NEXT RAM LOCATION
JREACHED END YET ?
:BRANCH TILL ALL READ
:WAS AN ERROR FOUND ?
;BRANCH IF NOT
:CLEAR CARRY TO SHOW ERROR
JAND EXIT
;SHOW GOOD COMPARE
JSETUP RAMS]IZ FOR PRAMPKT ROUTINE
;RETURN

TSV3 - GLOBAL AREAS
MACRO M1113 25-MAY-82 09:19
CKRAM2 - COMPARE RAM TO 1/0 CHARACTERISTICS DATA

}S;%

.SBTTL

PAGE 32

CKRAM2

SEQ 0057

= COMPARE RAM TO I/0 CHARACTERISTICS DATA

1274
1275

:
JROUTINE TO READ THE FIRST 8 OR 10 BYTES FROM RAM

1278
1279
1280
}gg;

JINPUT:
:
N
R4
H
RS

1283
1284

1285

:0UTPUT:
H
:
CARRY

}ggg

JIMPLICIT QUTPUT:

1290
1291

;
:

}S;g

sMEMORY AND COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK.

}ggg

ADDRESS OF

THE CHARACTERISTICS DATA

FIRST DEVICE UNIBUS ADDRESS

SET = RAM MATCHES PACKET

CLR = RAM DOES NOT MATCH PACKET

THE TABLE RAMDATA IS FILLED WITH THE
DATA HELD IN RAM.

}%g%

RAMSIZ IS SET TO 8. OR 10. FOR PRAMPKT ROUTINE

}ggg

;SIDE EFFECTS:

;%39

1298
1299
1300 011314
1301 011314
1302 011320
1303 011324
1304 011330
1305 011332
1306 011336
1307 011344
1308 011350
1309 011354
1310 011360
1311 011364
1312 011366
1313 011370
1314 011372
1315 011374
1316 011402
1317 011406
1318 011410
1319 011416
1320 011422
1321 011424
1322 011426
1323 011432
1324 011434
1325 011436
1326 011440
1327 011442
1328 011444

THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE

CKRAM?:
:

012701
012702
005003
004737
112765
004737
010265

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

SAVREG

002232
000167

016426
000000
016426
000000
016426
000000

000010
002216
000012
000200
000176

000000

_
002272

10$:

208:

002272

25$:

27$:

308

MOV
MOV
CLR
JSR
MOVB
JSR
MOV

JSR
MOvB
CMPB
BEQ
INC
INC
MOV
TST
BEQ
MOV
CMP
BLE
BR
CMP
BLE
TST
BEQ
CLC
B8R
SEC

#RAMDATA R1
#RMCHBEG,RZ2
R3
PC,CHKTSSR
#0,TSDB(RS)
PC,CHKTSSR
R2.TSDB(RS)

PC,CHKTSSR
TSBA(RS) ,(R1)
(R1)+,(R4)+
208
R3
R2
#8. ,RAMS12
EXTFEA
25$
#10.,RAMSI2Z
R2 ,#RMCHEND
10$
27%
R2,#RMCHEND=-2
108
R3
308
50%

;SAVE THE GENERAL REGISTERS

;ADDRESS TO SAVE
BYTE ADDRESS OF
sCLEAR THE ERROR
JWAIT FOR SSR
JSET MAINTENANCE
JWAIT FOR SSR TO
JSELECT NEXT RAM

THE RAM DATA
FIRST RAM DATA
FLAG

MODE
SET
ADDRESS
JWAIT FOR SSR TO SET
JREAD THE RAM DATA
;COMPARE TO EXPECTED
JBRANCH IF 0K
:SET ERROR FLAG
JADDRESS OF NEXT RAM LOCATION
sASSUME EXTFEA NOT SET
J1S THE SOFTWARE EXTENDED FEATURES SET
;BR, IF NOT SET
sSET RAMSIZ FOR EXTEND FEATURES
;AT END OF EXTENDED BUFFER
:BR, IF NOT AT END YET
;AT END BRANCH
JREACHED END YET ?
JBRANCH TILL ALL READ
JWAS AN ERROR FOUND ?
JBRANCH IF NOT
JCLEAR CARRY TO SHOW ERROR
JAND EXIT
;SHOW G3OGD COMPARE

TSV3 <~ GLOBAL AREAS
MACRO M1113
25-MAY-82 09:19
CKRAM?
=~ COMPARE RAM TO 1/0 CHARACTERISTICS DATA

}%%8 011446

060207

508:

RTS

PAGE 32-1

SEQ 0058

¢RETURN

——

TSV3 - GLOBAL AREAS
MACRO M1113
25-MAY-82 09:19
CKMSG
=~ COMPARE WRITE CHAR. MESSAGE BUFFERS

}%é%

PAGE 33

.SBTTL

(KMSG

SEQ 0059

= COMPARE WRITE CHAR. MESSAGE BUFFERS

1334
1335
1336
1337
1338
}gzg

:
JROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPD AND RECV
;BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR
;ERROR PRINT ROUTINES.
:
:INPUT:

1341
1342
1343

:
:
:

RO
R1
R2

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

1346

CARRY

SET = MESSAGE BUFFERS MATCH

}gég

IMPLICIT OUTPUT:

1351
1352
1353

:
:
;

1356
1357 011450
1358 011450
1359 011454
1360 011460
1361 011464
1362 011470
1363 011472
1364 011476
1365 011500
1366 011502
1367 011504

.=
CKMSG::

}gzg

:OUTPUT:

}gzg

}ggg

1368 011506

010037
010137
005737
001403
004737
010001
005004
005003
010205

011264

1369 011512
1370 011516
1371 011520
1372 011522
1373 011524

011164
022221
001401
005203
0627046

1375 011534

003764

1374 011530

020427

1376 011536
1377 011544
1378 011546
1379 011552
1380 011554
1381 011556
1382 011560
1383 011562

032765
001403
020427
003755
005703
001402
000241
000401

;ggg 011566

000207

1384 011564

000261

002274
002276
003124

017406
108:

002312

15$:

000002
000014

25$:

002456

000200

000012

000016
50$:

55%:

608$:

CLR =MESSAGE BUFFERS DON'T MAT(CH

EXPMSG
RECMSG
RCVHIADD

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

RCVLOADD

SET TO LOW ORDER ADDRESS OF RECV

SAVREG
MOV
MOV
ST
BEQ
JSR
MOV
CLR
CLR
MOV

RO,RCVHIADD
R1,RCVLOAD
KTENABLE
108
PC,SETMAP
RO,R1
Ré
R3
R2,RS

;SAVE R1-RS UNTIL NEXT RETURN
2SAVE RECV HIGH ADDRESS
JSAVE RECV LOW ADDRESS
;TESTING ABOVE 28K?
:BR IF NO
JRETURN ADDRESS BIASED TO PAR6 IN RO
;GET RETURNED ADDRESS BIASED /0 PAR6
;WORD IN BUFFER
;CLEAR ERROR SEEN FLAG
;GET EXPD BUFFER ADDRESS

MOV
CMP
BEQ
INC
ADD

(R1) ,RECMSG(R4)
(R2)+,(R1)+
25$
R3
#2.Ré

;SAVE RECV FOR ERROR REPORT
;EXPD EQUAL RECV?
;BR IF YES
:SET ERROR SEEN FLAG
sPOINT TO NEXT WORD ADDRESS

BLE

15§

MOV

CMP

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

RG #14

;DONE FIRST 7 WORDS?

‘B8R IF NO

8IT
BEQ
cMP
BLE
TST
BEQ
cLC
B8R

#X2.EXTF ,XST2(RS) ;IS EXTENDED FEATURES SET IN EXPD?
50$
;BR IF NO
R4, M16
;DONE EXTENDED FEATURES WORD?
15%
:BR IF NO
R3
;ANY ERRORS SEEN?
55%
;B8R IF NO
JSET FAILURE
608
:

RTS

SEC

JSET SUCCESS
JRETURN

—

TSV3 = GLOBAL AREAS
MACRO M1113 25-MAY-82 09:19
(KMSG2 =~ COMPARE EXPD RECV MESSAGE BUFFERS

}ggg

PAGE 34

.SBTTL

(KMSG2

.
JROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE
JBUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR
:ERROR PRINT ROUTINES.
H

}ggg

JINPUT:

1397

RECV MESSAGE BUFFER MIGH ORDER ADDRESS

1398
1399

:
:

1402
1403
1604

:0UTPUT:
:
:
CARRY

}28;

JIMPLICIT OUTPUT:

1409
1410
1411

N
:
H

1414
1415 011570
1416 011570

;CKMSG2::

}28?

R1
R2

}282

RECY MESSAGE BUFFER LOW ORDER ADDRESS
EXPD MESSAGE BUFFER ADDRESS

NUMBER OF BYTES TO COMPARE

SET ~ MESSAGE BUFFERS MATCH

}2}%

1418 011600

<~ COMPARE EXPD RECV MESSAGE BUFFERS

1390
1391
1392
1393
1394

1417 011574

SEQ 0060

EXPMSG
RECMSG
RCVHIADD

020327

003412

000144

CLR = MESSAGE BUFFERS DON'T MATCH

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

RCVLOADD

SAVREG

CMP

SET TO LOW ORDER ADDRESS OF RECV

SAVE R1=RS UNTIL NEXT RETURN

R3 #RECHSG-ExPnSG 88D IS COUNT ABOVE MAX ALLOWED?

1419 011602 012703 000144

BLE

MoV

#RECMSG-EXPMSG, R3;88D

011606
011612
011616
01162C
011622
1421 011626
1422 011632
1423 011636
14264 011642
1425 011644
1426 011650
1427 011652
1428 011654

012746
012746
010600
104417
062706
010037
010137
005737
001403
004737
010001
005004
005005

MoV
MOV
MOV
TRAP
ADD
MoV
MoV
ST
BEQ
JSR
MOV
CLR
CLR

#DEBUGMSG,-(SP)
M ,-(SP)
SP_RO
CSPNTF
#,SP
RO,RCVHIADD
R1,RCVLOAD
K TENABLE
108
PC,SETMAP
RO.R1
R4
RS

1430 011662
1431 011666
1432 011670
1433 011672
1634 011674
1435 011700
1436 011702
1437 011704
1438 011706
1439 011710

111164
122221
001401
005205
062704
020403
002001
000764
005705
001402

1420 011606

1429 011656

111264

PRINTF

011722
000001

000004

002274
002276
003124

1 &

017406

108 :
002312

15%:

000001

25%:

002456

50%:

MOove

MOVB
CMPB
B8EQ
INC
ADD
CMP
BGE
BR
ST
BEQ

880 BR IF NO

#DEBUGMSG

.iiD

JSAVE RECV HIGH ADDRESS
JSAVE RECV LOW ADDRESS
sTESTING ABOVE 28K?
:BR IF NO
sRETURN ADDRESS BIASED TO PARS IN RO
JGET RETURNED ADDRESS BIASED TO PARG
;WORD IN BUFFER
sCLEAR ERROR SEEN FLAG
(R2) ,EXPMSG(R4) :SAVE EXPD FOR ERROR REPORT
(R1) ,RECMSG(R4) :SAVE RECV FOR ERROR REPORT
(R2)+,(R1)+
EXPD EQUAL RECV?
25%
BR IF YES
RS
JSET ERROR SEEN FLAG
#1,R4
*POINT TO NEXT BYTE
R4 ,R3
:DONE ALL BYTES?
S0$
:BR IF YES
15%
;D0 NEXT BYTE
RS
;ANY ERRORS SEEN?
55%
JBR IF NO

—

—————

—_————

——

TSV3 = GLOBAL AREAS
MACRO M1113 25-MAY-82 09:19
CKMSG2 -~ COMPARE EXPD RECV MESSAGE BUFFERS
1440 011712
1441 011714
1442 011716

060241
000401
000261

1445 011722
1446 012012
1447 012023
1448 012056

120
045
040
056

}222 011720

}228 0121

558:

000207

124

60$:
122
116
040
056

105

117
045
126
056

123

CLC
BR
SEC

RTS

DEBUGMSG:
FERCM:
.ASCII
ERCM:
.ASCIZ
SIMSG:
.ASCIZ

TINERR:

.eegal

PAGE 34-1

SEQ 0061
sSET FAILURE
:
sSET SUCCESS

60%

cRETURN

<ASCIZ
"PROGRAM INTERNAL ERROR -(KMSG2 MESSAGE BUFFER EXCEEDED~-';a3aD
/INXA
e/
/
TSSR ERROR CODE REC'D = /
/.... AFTER DOING SOFT INIT/

/VEST:

.../

TSV3 - GLOBAL AREAS
MACRO M1113
25-MAY-82 09:19
CKMSG2 -~ COMPARE EXPD RECV MESSAGE BUFFERS
1452
1453
1454
1455
1656

PAGE 35

SEQ 0062

bR 4

*PRINT ROUTINE TO FATAL SOFT INIT ERRORS
LINPUT:

1457
1458
1459
1460
1461
1462

CONTENTS OF

TSSR AT ERROR

SSIDE EFFECTS:

1463

EXECUTES DROP UNIT TO CEASE TESTING

SF IMSG

004737
004737

BONMSG

"USR

006022
017272

L10003:

104423

SFIMSG

PC,PRITSSR

gngSG

PC,CKDROP

TRAP

CSMSG

sPRINT CONTENTS OF TSSR REGISTER

;DROP UNIT,

IF ALLOWED

*PRINT ROUTINE TO PRINT THE CONTENTS OF

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

LINPUTS:

004737
012700
004737
104423

006022
000004
007460

PKTSSR::

L10004:

R1
Ré

TSSR_CONTENTS
ADDRESS OF COMMAND PACKET

BGNMSG

PKTSSR

JSR
Mov
JSR
ENDMSG

PC,PRITSSR
#4 RO
PC,PRIPKT

TRAP

CSMSG

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

*PRINT ROUTINE

TO PRINT

THE

CONTENTS OF

*TSSR AND A GET STATUS COMMAND PACKET.

LINPUTS:
R1
Ré

TSSR_CONTENTS
ADDRESS OF COMMAND PACKET

BGNMSG

PKTGETS

PKTGETS::

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

JSR
MOV
JSR

ENDMSG

L10005:

TRAP

PC,PRITSSR
#2,R0O

sPRINT THE CONTENTS OF TSSR REGISTER

sNO. OF WORDS IN GET STATUS PACKET
sPRINT THE CONTENTS OF COMMAND PACKET

PC.PRIPKT
CSMSG

¢PRINT TSSR ERRORS FOR INITIALIZATION TESTS

L INPUTS:

;
b
d
d
d
b

N~ NNNN
O~ O

(=lalelalels

;

OOVBNO

006022
000002
007460

SEQ 0063

VB WN=OOVR
VOV WN=O

iai T T TV T T T A
LA VAW
WNWWWWANININ
NN NN

-t ad b md b e ad b wd cad D ad d D b b

ViTIAL
HWUWWWNN

sl wud b b =

1541

004737
012700
004737
104423

—b
b —n—._.-._o_n_n_oooog
WO
NOWVMS WOV~

b
b
b
b
b ad
b cad
b
b
-d

VIV

VATV VIV

1502 012154
1503 012160

PAGE 35-1

004737

104423

006022

SFFMSG::

L10006:

TSSR CONTENTS

ADDRESS OF COMMAND PACKET

BGNMSG

SFFMSG

JSR

PC.PRITSSR

TRAP

CSMSG

.SBTTL

PKTMES

ENDMSG

;PRINT CONTENTS OF TSSR REGISTER

<~ PRINT TSSR AND MESSAGE BUFFER

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

JINPUTS:
:

H
.
.
012200

004737
010200
010301
004737
104423

006022

PKTMES::

014332
L10007:

CONTENTS OF

BGNMSG

PKTMES

JSR
MOV
MOV
JSR
ENDMSG

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

TRAP

CSMSG

TSSR

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

sPRINT CONTENTS OF TSSR
;LOW ORDER ADDRESS
sHIGH ORDER ADDRESS
JPRINT THE MESSAGE BUFFER

TSV3 - GLOBAL AREAS

ADDSSR

MACRO M1113

= PRINT TEST ADDRESS AND TSSR

25-MAY-82 09:19
.SBTTL

PAGE 36
ADDSSR

SEQ 0064
= PRINT TEST ADDRESS AND TSSR

sPRINT ROUTINE TO PRINT THE CONTENTS OF

sTSSR AND A MEMORY TEST ADDRESS

oo
-0

=l{>lalelelele]le)

VNS WO
WVOONO

b
D oD md e
ed
—d o
b

[V, IV, V1V IR IV, IV IV [V, ]V, ]
VIVAIWAWVE
i

L INPUTS:

004737
016501
004737

010364

ADDSSR::

000002
006022
L10010:

104423

RS
ERRH]
ERRLO

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

BGNMSG

ADDSSR

JSR
MOV
JSR

PC,PRITADD

cPRINT MEMORY TEST ADDRESS

PC,PRITSSR

sPRINT THE CONTENTS OF

TRAP

C$MSG

.SBTTL

MSGEXP = PRINT WRITE CHAR.

ENDMSG

TSSR(RS) ,R1

¢GET CURRENT TSSR

TSSR REGISTER

EXPD~RECV MESSAGE BUFFERS

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

012700
005737
001402
012700
004737
104423

000007
002216
000010
014642

MSGEXP::

EXPMSG

RECMSG

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

BGNMSG

MSGEXP

MOV
TST

#7 R0

sASSUME NO EXT FEATURES

PC ,PRMSGEXP

SPRINT EXPD/RECV MESSAGE BUFFERS

BEQ

5%:

L10011:

EXPECTED MESSAGE BUFFER

MOV

JSR

ENDMSG
TRAP

EXTFEA
5%
#8. R0

C$MSG

JEXT FEATURES SET?
;B8R IF NO
JEXT FEATURE BUFFER IS 8 WORDS

| TSV3 = GLOBAL AREAS
FIFEXP

MACRO M1113 25-MAY-82 09:19 PAGE 37
s
:

1589

}ggg

FIFEXP

= PRINT FIFO EXP/RECV DATA

- BYTE COUNT

H
sIMPLICIT INPUTS:

1593

}ggg

1596 012260

012260

1597 012260

FIFEXP::

012260
012262
012266
012272
012274
012276

010146
012746
012746
010600
104415
062706

012302
012306
012312
012314

012746
012746
010600
104415

1599 012322

010100

1598 012302

012316

1600 012324
1601 012330
012330
012330
1602 012332
}282 012401
1605

.SBTTL

SEQ 0065

sPRINT ROUTINE TO PRINT FIFO EXP/RECV DATA

1590
1591
-

=~ PRINT FIFO EXP/RECV DATA

1584
1585
1586

000006

004737

015212

104423
045
045

FIFEXP

PRINTX

#FIF1MSG,R1

;PRINT BYTES TRANSFERRED

#FIF2MSG

;PRINT HEADER MSG

MOV
MOV
MoV
TRAP

ADD

MoV

L10012:

116
116

BGNMSG

PRINTX

012401
000001

000004

= EXPECTED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY

RECMSG

MOV
MOV
MOV
MOV
TRAP
ADD

012332
000002

062706

EXPMSG

045
045

JSR
ENDMSG

TRAP
FIFIMSG:
FIF2MSG: EVEN

= RECEIVED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY)

R1,=-(SP)
#FIFIMSG,~(SP)
#2,-(SP)
SP,RO
CSPNTX
#6,SP

#FIF2MSG,~(SP)
#1,~(SP)
SP.RO
CS$PNTX

#4,SP

R1,R0

PC,PRBYTEXP

CSMSG
CASCIZ
LASCIZ

;GET BYTE COUNT

;PRINT FIFO BYTES IN ERROR

'YNYA NUMBER OF BYTES TRANSFERRED = %v2°'
°'XNXA FIFO DATA BYTES IN ERROR:'

TSV3 = GLOBAL AREAS

MACRO M1113

25-MAY-82 09:19

MSGSTAT = PRINT STATUS HEADER AND MESSAGE BUFFERS

+SBTTL

MSGSTAT = PRINT STATUS HEADER AND MESSAGE BUFFERS

N WY

IMPLICIT INPUTS:

N WAL
TN
XN
I
LY

012701
012100
001410

010046
012746
010600
104415
062706

000766
012700
004737

012500
012500

104423

1630 012502
1631 012520
1632 012562
1633 012653
1634 012744
1635 013035

012520
045
045
045
045
045

1636 013077
1637
1638
1639
1640
1641
1642
1643
1644
1645
1646
1647
1648
1649
1650
1651

1652
1653 013154
013154
1654 013154

045

MSGSTAT:

012502

108 :

BGNMSG

MSGSTAT

MOV
MOV
BEQ

#STATCOD,R1
(R1)+,RO
208

000012
014642

20%:

L10013:
012653
045
0645
0645
045
045
045

;ASCII ADDRESS TABLE
JDONE ALL MSG LINES?
:BR IF YES

RO
RO,~(SP)

JPRINT STATUS BIT NAMES

MOV

#,-(SP)

ADD
8R
MOV
gagHSG

#,SP
108
#10.,RO
PC,PRMSGEXP

TRAP

CSMSG

MoV
TRAP

000004

116
116
116
116
116
116

=~ EXPECTED MESSAGE BUFFER

PRINTX
MOV

000001

012562

EXPMSG

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

STATCOD:

SP,RO
CSPNTX

.WORD

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

1%,2%,3$,48,5$,68,0

1$:.ASCIZ
'INXA Tape Bus Signals in Word #8:°
28:.ASCIZ
'INXA
PARERR<1IS>
JEOT
<12>
IFMK
<9>
[RDY<6>
38:.ASCIZ
'INIA
IRESV2<14>
[IDENT<11>
[IHER
<8>
[IONL<S>
48:.ASCIZ
'INXA
IRESV1<13> ICER
<10>
[ISPEED<?>
ILDP<4>
5%:.ASCIZ
'INXA Tape Bus Signals in Word #9:°
65:.ASCIZEvézNZA
DATMIS<?>
[JLW<6>
OUTRDY<SS>
INRDY<4>!®

.SBTTL

MSGLOOP =~ PRINT LOOPBACK HEADER AND MESSAGE BUFFERS

‘PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV

YIMPLICIT INPUTS:

EXPMSG

RECMSG

= EXPEC TE
= RECE] VE

BGNMSG

MSGLOOP

MOV

#LOOPCOD,R1

RCVHIADD- RECEIVE
RCVLOALDO- RECEIVE

012701

013216

MSGLOOP:
:

COO0O

b ek
d e e
N

SUWN—=

NIPOMNOND

012440
012440
012440
012444
012646
012450
012450
012452
012456
012460
012462

1625 012466
1626 012470
1627 012476
1628 012500
1629

SEQ 0066

:PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV

b b cd od e

OV NOWVNESWN=0O

b
-

b md

oooorO60

d o

b e

OcOOFOONOONONONOON

PAGE 38

MESSAGE BUFFER

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

JASCII ADDRESS TABLE

[IRWD<2>'
IFBY<1I>"®
JFPT<O0>’

—

TSV3 ~ GLOBAL AREAS

MACRO M1113

25-MAY-82 (09:19

MSGLOOP ~ PRINT LOOPBACK HEADER AND MESSAGE BUFFERS

1655 013160

1656 013162
1657 013164

013164
013166
013172
013174
013176

012100

010046
012746
010600
104415
062706

1658 013202

000766

013214
1662 013214

104423

1663 013216
1664 013236
1665 013311
1666 013410
1667 013507
1668 013606
1669 013705
;g;? 014004

013236
045
045
045
045
045
045
045

1659 013204
1660 013210
1661 013214

108:

001410

012700
004737

000001
000004
000012
014642

208:

L10014:
013311
116
116
116
116
116
116
116

013410
045
045
045
045
045
045
045

MOV

BEQ
PRINTX

PAGE 38-1

SEQ 0067
(R1)+,R0

;BR IF YES
JPRINT STATUS BIT NAMES

10$

:D0 ANOTHER MSG LINE

MOV
MOV
MOV
TRAP
ADD

RO,=-(SP)
#1,-(SP)
SP,R0O
CSPNTX
#4 SP

MOV
JSR
ENDMSG

#10.,R0
PC,PRMSGEXP

TRAP

CS$MSG

JDONE ALL MSG LINES?

208
RO

JNUMBER NF WORDS IN A READ STATUS BUFFER
JPRINT EXPD/RECV MESSAGE BUFFERS

LOOPCOD:
LWORD
1%,2%.,3%,48,5%,6%.,7%.0
18:.ASCIZ
°‘XINXA Tape Bus Loopback Signals in Word #8:°
2%:.ASCIZ
‘'INXA
PARERR<1S5>
IRESVZ2<14>
38:.ASCIZ
°'INXA IHISP=>IEQT<12>
IWRT=>]1DENT<11>
48:.ASCIZ
°'INXA IWFM =>IFMK<09>
IEDIT=>IHER <08>
58:.ASCIZ
°*INXA ITADO=>IRDY<06>
ITADI=>IONL <05>
6$:.ASCIZ2
'INXA IREW =>IDBY<03>
IRWU =>]RWD <02>
?S:.ASCIZEvézN!A 1GO =>IFPT<00>"

IRESVICI3>*
IREV
=>ICER
<10>°
IFAD
=>ISPEED<07>"
IERASE=>ILDP <04>°
IFEN =>IFBY <01>'

TSV3 - GLOBAL AREAS

MSGSUB = PRINT WRITE

MACRO M1113

25-MAY-§2 09:19

SUBSYSTEM MESSAGE BUFFER

}g;g

LSBTTL

PAGE 39

SEQ 0068

MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER

1676
}g;;

:
*PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV

1679

1682

;

EXPMSG

}ggg

;

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS

}gg?

JIMPLICIT INPUTS:

1683
1684

;
:

1687 014032
014032

1688 014032
1689 014036
1690 014042
1691

014042
014042

’

012700
004737

000012
014642

MSGSUB::

110015

104423

1692
1693
1694
1695

1239

=~ EXPECTED MESSAGE BUFFER

RECMSG =~ RECEIVED MESSAGE BUFFER
RCVHIADD~ RECEIVED MESSAGE BUFFER HIGH ORDER A"DRESS

BGNMSSG

MSGSUB

OV
JSR
ENDMSG

#10. R0
PC,PRMSGEXP

TRAP

CSMSG

.SBTTL

MEMADD - PRINT MEMORY ADDRESS DATA ERROR

;SIZE OF WRITE SUBSYSTEM BUFFER
*PRINT EXPD/RECV MESSAGE BUFFERS

1698
}933

:
*PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR

};85

CIMPLICIT INPUTS:

1703

;

ERRHI

};89

;

RECY

1704
1705

:
;

1708 014044
1709
1710
1711
1712
1713

014044

014044
014050
014054
014060
014064

014064
‘ 014064

’

004737
013701
013702
004737

104423

010250
002222
002224
010032

MEMADD
:.

L10016:

= MEMORY ERROR HIGH ORDER ADDRESS

ERRLO
EXP

- MEMORY ERROR LOW ORDER ADDRESS
- EXPECTED DATA

BGNMSG

MEMADD

JSR
MOV
MOV
JSR
ENDMSG

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

TRAP

CSMSG

= RECEIVED DATA

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

—

TSV3 = GLOBAL AREAS

MACRO M1113

25-MAY-82 09:19

1746
1747
1748
1749
1750
1751

014122
014126
014136
014142
014150
014156

PRAMPKT =~ PRINT RAM AND PACKET DATA

‘WHEN THE RAM DATA DOES NOT MATCH.

ALIS T I IR TN TIPS Y

LINPUTS:
Ré

012701
005002
122124
001005

000436
116105
116403

RAMDATA
RAMS 12

5%:

177777
177777

78:

002224
002222

RAMSIZ

SET 10 0

SAVREG
MOV

#RAMDATA,R1

CLR

CMPB

(R1)+,(R4)+

BNE

B8R

108

7$,NOTSSR

10$:

002272

#177400,R3

PRINTB

#RAMASC , RZ RECV,EXPD ,R3

MOV
MOV
MOV
MOV

EXPD,~(SP)
RECV.~(SP)
R2.~(SP)
#RAMAS(C ,=(SP)

000010

208:
25

002272

045

RAMASC:

-1(R1),RECV
-1(R4).EXPD

(31

RAMS
2

B8R

CMP
BLT

;aaD

sGET RECV RAM DATA
sGET EXPD PACKET DATA

sXOR EXPD/RECV
;LOW BYTE ONIY
sGET RECEIVED RAM DATA
sGET EXPECTED RAM DATA

#5,~(SP)
SP.RO

C$PNTB
214,SP

INC

sSAVE R1-R5 UNTIL NEXT RETURN
;DATA FROM THE RAM
¢INIT BYTE NUMBER
sCOMPARE EXPECTED, RECEIVED
sBR IF NO MATCH

R3,~(SP)

MOV
MOV
TRAP
ADD

BEQ
CMP
BLE

002272

=1(R1),RS
~1(R4).R3
RS,R3

BIC

MOV

000014

116

MOVB
MOVB
XOR

MOVB
MOVB

014246
000005

045

IF RAMS[Z=0 THEN DEFAULT TO 8.

FORCERROR

002222
002224

000207

DATA AS READ FROM THE RAM
NUMBER OF BYTES IN PACKET

IMPLICIT OUTPUTS:

002232

177400
177777
177777

1755 014222

POINTER TO COMMAND PACKET

IMPLICIT INPUTS:

PRAMPKT:

014156
014160
014164
014170
016172
014176
014202
014204
014206
1752 014212
1753 014214
1754 014220
1756 014226
1757 014230
1758 014232
1759 014236
1760 014240
1761 014244
1762
1763 014246

SEQ 0069

*PRINT ROUTINE TO DISPLAY RAM/PACKET DATA

NAS

1745 014116

PAGE 40

.SBTTL

1717
1718
1719
1720
1721
1722
1723
1724
1725
1726
1727
1728
1729
1730
1731
1732
1733
1734
1735
1736
1737 014066
1738 014066
1739 014072
1740 014076
1741 014100
1742 014102
1743 014104
1244 0146114

LN FI NI

PRAMPKT = PRINT RAM AND PACKET DATA

cUPDATE BYTE COUNT

158
R2,RAMSIZ
5

¢DEFAULT TO 8.?
sBR IF YES
sDONE ALL BYTES?
B IF NO

R2,48.
5$

ggNEFDEFAULT NUMBER OF BYTES?

25$

CLR
RTS

RAMS ]2
PC

LASCIZ

"INIA

+SET DEFAULT RAMS 12

:RETURN

BYTE: ID2XZA RAM: X03%A Packet: X03%A XOR:203°

TSV3 ~ GLOBAL AREAS

MACRO M1113

PRAMPKT = PRINT RAM AND PACKET DATA

1764
1765
1766

25-MAY-82 09:19

PAGE 40-1
SEQ 0070

.EVEN

TSV3 = GLOBAL AREAS

PRMESS

MACRO M1113

= PRINT CONTENTS OF

25-MAY-82 09:19

MESSAGE BUFFER

PAGE 41

SEQ 0071
.SBTTL

PRMESS

= PRINT CONTENTS OF MESSAGE BUFFER

*THIS ROUTINE PRINTS THE CONTENTS OF

“THE 7 OR 8 WORD MESSAGE BUFFER RETURNED BY THE

:TSV=05.

:INPUT:
RO
LOW ORDER ADDRESS OF MESSAGE BUFFER
R1
HIGH ORDER ADDRESS OF MESSAGE BUFFER
NOTE: R1 IS IGNORED IF KTENABLE FLAG IS CLEAR
THIS ROUTINE

1785 014332
1786 014332
1787 014336
1788 014340
1789 014344
1790 014346
1791 014350
1792 014352
1793 014354
1794 014356

014356
014360

PRMESS:

010005
005737
001001
005001
010103
006100
006101
010546
010146

062706

000010

012746
012746
010600

014555
000001

062706
005004
010501
010300
001403
004737
010005

000004

COOONNOONSN

b
h
b
b
b
d
d
d

BB
Al
bt X o o
B WWWNINON

104415

oo W
sO00

VS
N

b b

e e

1801
1802

o =lelelelelelaleleleleleleleTe

1796
1797
1798
1799
1800

—b

1803
1804 014466
1805 014472

108:

014510
000003

104415

1795 014402

003124

012746
012746
010600

012546
010446
012746
012746
010600
104415
062706
005204
020427
003005

SAVREG

MOV
TST

BNE
CLR
MOV

ROL
ROL
PRINTX
MOV
MOV
MOV
MoV
MOV
TRAP
ADD
PRINTX
MOV
MOV
MOV
TRAP
ADD

CLR

MOV
MOV

BEQ
JSR

017406
208:
014613
000003

000010

000007

IS NORMALLY CALLED FROM A PRINT ROUTINE

RO,R5
KTENABLE
108
R1
R1,R3
RO

R1
#PROASC ,R1,R5

R5,=(SP)

SP.RO
CSPNTX

#10,SP

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

sPRINT HEADER FOR CONTENTS

SP,RO
CSPNTX

#4,SP
Ré
R5.R1

R3,RO
208

PC,SETMAP

MoV
MOV
MOV
Mov
MOV
TRAP
ADD

(R5)+,-(SP)
R4 ,=(SP)

BGT

sPRINT MESSAGE BUFFER ADDRESS

#3,-(SP)

RO,.RS
0,

INC
CMP

¢BR IF YES

cSET HIGH ORDER ADDRESS T0 0
sSAVE HIGH ORDER ADDRESS
cSHIFT BIT15 TO C BIT
cSHIFT TO HIGH ORDER FOR PRINTOUT

R1,=(SP)
#PROASC, = (SP)

MOV

PRINTX

¢SAVE THE REGISTERS
sSAVE LOW ORDER ADDRESS
sADDRESS ABOVE 28k?

csNUMBER OF THE NEXT WORD
sCOPY LOW ORDER ADDRESS
:COPY HIGH ORDER ADDRESS
s8R _IF NOT ABOVE 28K
sSETUP PAR ADDRESS IN RO
;GET PAR FORMAT ADDRESS ABOVE 28k

#PRASC
R4, (R5) + sPRINT THE CONTENTS OF MEMORY BUFFER

#PRASC,=-(SP)

#3,-(SP)
SP,RO
CSPNTX
#10,SP
R4
R& 47

508

sNUMBER OF THE NEXT
sDONE ALL YET ?
¢BRANCH IF ALL DONE

TSV3 = GLOBAL AREAS

PRMESS

MACRO M1113

25-MAY=-82 09:19

- PRINT CONTENTS OF MESSAGE BUFFER

1806 014474

1807 014476

1808 014504
}g?g 014506
1811 014510
1812 014555

}g}z 014613

002761

032763
001355
000207
045
045

045

000200

116
116

116

045
045

045

SEQ 0072

BLT

000012

PAGE 41-1
208

:PRINT FIRST 7 WORDS

208
PC

:PRINT EXTENDED STATUS WORD
JRETURN

BIT

508:

BNE
RTS

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

PROASC:
PRIASC:

.ASCIZ
.ASCIZ

°'INXA Message Buffer Address = 201205'
°'XINXA Message Buffer Contents

PRASC:

.eegéz

*XNXA

WordID1XA: %0°

TSV3 = GLOBAL AREAS

MACRO M1113

25-MAY-82 09:19

ooouanoncnong
WHNWWANN NININININININININY
= = s
ISR W= O OO NS W =O 000 N o

.SBTTL

PAGE 42

SEQ 0073

PRMSGEXP = PRINT EXPD/RECV MESSAGE BUFFERS

—

PRMSGEXP = PRINT EXPD/RECV MESSAGE BUFFERS

EXPMSG

) e

—d o

b e

PRMSGEXP:
:

1840
1841
1842
1843
1844
1845
1846

010446
010146
012746
012746
010600
104415

SAVREG

000004

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

002312
002456

MOV
MOV

002276
002274

015022
000003

062706

000010

012746
012746
010600
104415

015067
000001

014732
014734
014740
014744
014746
014750
014760

CLR

208 :

014760

015125
000005

000014

000207

IN BUFFER

50$%:

- EXPECTED MESSAGE BUFFER

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

014642
014642
014646
014650
014654
014656
014662
014664
014666
014666
014670
014672
014676
014702
014704
014706
1839 014712
014712
014716
014722
014724
014726

010005
013700
010004
013701
006100
006101

= NUMBER OF WORDS

IMPLICIT INPUTS:

D e

[0 Te To To Yo Yo To Yo To -To Yo To To To To Yo ]

mid o)

00 000,059,
%e

D o

:ROUTINE TO PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS

MoV

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

INC
CMP
BGE
B8R

RTS

RO,R5
RCVLOADD
RO
RO,R4

RCVHIADD,R1
RO
R1

#PRMSGO,R1,Ré

R4, =(SP)
R1.=(SP)
#PRMSGO,
- (SP)
#3,-(SP)
SP,RO

sSAVE R1=R5 UNTIL NEXT RETURN
sSAVE NUMBER OF WORDS
sGET RECV LOW ADDRESS
:COPY LOW ADDRESS
sGET RECV HIGH ADDRESS
sSHIFT BIT15 TO C BIT

sSHIFT TO HIGH ORDER FOR PRINTOUT

sPRINT MESSAGE BUFFER ADDRESS

CSPNTX

#10.SP

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

sPRINT HEADER FOR CONTENTS

SP_RO
CSANTX

#4,SP
R4

#EXPMSG,R1
#RECMSG
. R2

(R1) RO
(R2) ,R3

JNUMBER OF THE CURRENT WORD
JGET EXPD BUFFER ADDRESS
JGET RECV BUFFER ADDRESS
JGET EXPD
JGET RECVY

RO,RS
JXOR EXPD/RECYV
#PRMSG2
R4, (R1) + .(R2)+,R3
R3,-(SP)

(R2)+,=~(SP)

(R1)+,~(SP)
R4 ,=(SP)
#PRMSG2,-(SP)
#5,~(SP)

SP.RO
CSPNTX

cz4,sp
R

R4 RS
50%

208

JNUMBER OF THE NEXT
sDONE ALL YET?
sBR IF YES
;D0 ANOTHER
:RETURN

TSV3 - GLOBAL AREAS

b
b
—

045
045
045

ooon

015022
015067
015125

MACRO M1113

25-MAY-82 09:19

EXPD/RECV MESSAGE BUFFERS

—

PRMSGEXP = PRINT

045
045
045

PRMSGO:

PRMSG1:
PRMSGZ2:

.ASCIZ

.ASCIZ
'?3%#2

PAGE 42-1

°*XINXA Message Buffer Address = 201205°
°*INXA Message Buffer (ontents:'
"XNXA
WORD #XD2XA EXPD: Z06%A RECV: Z06ZA

SEQ 0074

XOR: %06°

TSV3 ~ GLOBAL AREAS

MACRO M1113

PRBYTEXP - PRINT ERROR BYTES

25-MAY-82 09:19

IN EXP/REC MESSAGE BUFFER

1859
+

PAGE 43

.SBTTL

SEQ@ 0075

PRBYTEXP = PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER

ROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS

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

= NUMBER OF BYTES IN BUFFER

IMPLICIT INPUTS:

b
b b

[« XS 1,8}

VIV WY

EXPMSG
RECMSG
SRBYTEXP::

010005
005037
005004

1878 015232
1879 015236
1880 015240
1881 015244
1882 015250
1883 015252
1884 015256
1885 015262

002310
002310

015426
000005

015340
015342
000404

154

(=]

b
—t

SEXPMSG,R1
#RECMSG.R2

BIC

#4c<$77>.R0

MOVB
BIC

(R2),R3
#+C<877> R3

MOVB

MOVB
XOR
(MPB
BEQ
INC
CMP
BHI

PRINTX

MOV
MOV
MOV
M./
MOV

000014

(R1),RO

RO,PRBEXP

R3,PRBREC
RO.R3
(RT)+,(R2)+
308
PRMNO
PRMNO, #8.
308

MOV
MOV
TRAP
ADD

#5,-(SP)
SP.R0

358

FORCEXIT

35%:

005204
020405
002001
000717
002310
015513
000002

50$:

INC
CMP

B8GE
B8R

CSPNTX
#14,SP

508

R4
R4 RS

50$
208

PRINTX

#PRBTOT,PRMNO

MOV
MOV
TRAP

#2,-(SP}
SP.RO

MOV
MOV

;SAVE R1=RS UNTIL NEXT RETURN
;SAVE NUMBER OF BYTES
JINIT ERROR COUNT
;NUMBER OF THE CURRENT BYTE
JGET EXPD BUFFER ADDRESS
sGET RECV BUFFER ADDRESS
JGET EXPD BYTE
;CLEAR UPPER BYTE
:SAVE FOR ERROR REPORT
sGET RECV BYTE
;CLEAR UPPER BYTE
sFOR ERROR REPORT
:XOR EXPD/RECV
:EXPD = RECV?

;BR IF YES

sUPDATE ERROR COUNT

sPRINTED 8?
:BR IF YES
#PRBHSG R4 ,PRBEXP,PRBREC,R3
R3.-(SP}
PRBREC, = (SP)
PRBEXP
. ~(SP)
R4 ,=(SP)
#PRBMSG,
= (SP)

308: LORCERROR 27$.NOTS
LNOTSSR

1895 015360

1899 015374

000010

RO, RS
PRMNO
R4

MOV
MOV

MOVB

015562
015560

5326
5332
15336

1896 015370
1897 015370
1898 015372

208:

27$%:

0NN

002312
002456

015562

W
N
o~

b
b wnd cmd
b end and

WR
IV 1V, ]

=lelelelelelele

002310

177400

1888 015276
1889 015302
1890 015310
1891
312

1894 015360

SAVREG
MOV
CLR
CLR

177400
015560

1886 015272
1887 015274

1892 015346
1893 015356

=~ EXPECTED MESSAGE BUFFER

=~ RECEIVED MESSAGE BUFFER

PRMNO, - (SP)
#PRBTOT,=(SP)

CSPNTX

;93D
;aaD
saaD
saaD

¢NUMBER OF

THE NEXT

sDONE ALL YET?

¢BR IF

YES

<D0 ANOTHER

sPRINT TOTAL ERROR COUNT

TSV3 = GLOBAL AREAS

MACRO M1113

PRBYTEXP = PRINT ERROR BYTES

015420
}gg% 015424

062706
000207

000006

1904 015426
1905 015513
1906
1907 015560

045
045

116
116

}ggg 015562

000000

25-MAY-82 09:19

IN EXP/REC MESSAGE BUFFER

045

PRBMSG:

PRBTOT:
PRBEXP:

PRBREC:

PAGE 43-1

ADD
RTS

#6,SP
PC

,ASCIZ

°INXA

.EVEN
.WORD

,ASCIZ
.WORD

SEQ 0076

cRETURN

BYTE #XD2XA EXPD: X03X%A RECV: X03%A
'XNXA NUMBER OF BYTES IN ERROR = XD2'
O

JEXPD

JRECV

XOR: %03’

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

}g};

4
:

1913

}3}?

1916
1917
1918
1919
1920
1921
1922
1923 015564
015564
1924 015564
1925 015570
015570
1926 015570
1927

25-MAY-82 09:19

.SBTTL

PAGE 44

EXPREC

SEQ 0077

=~ PRINT EXPD/RECV WORD DATA
’

;PRINT ROUTINE TO DISPLAY EXPD/RECV DATA

:INPUTS:
:
:
R1
;
R2
N
.=

004737
104423

010032

EXPREC::
£10017:

RECEIVED DATA
EXPECTED DATA

BGNMSG

EXPREC

JSR
ENDMSG

PC,PRIXOR

TRAP

CSMSG

:PRINT THE DATA

—

TSV3 =~ GLOBAL AREAS
MACRO M1113
EXPBREC - PRINT EXPD/RE(CV BYTE DATA

25-MAY-82 09:19

PAGE 45

SEQ 0078
.SBTTL

MRg

EXPBREC = PRINT EXPD/RECV BYTE DATA

:PRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA

L INPUTS:
R1
R2

1942 015572

015572
1943 015572
1944 015576
015576
015576

004737

007702

BGNMSG
EXPBREC::
JSR
ENDMSG

L10020:

104423

RECEIVED DATA BYTE
EXPECTED DATA BYTE

EXPBREC
PC.PRIBXOR

TRAP

CSMSG

.SBTTL

RAMERR

JPRINT THE DATA

= PRINT RAM AND PACKET DATA

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

:
R4
POINTER TO COMMAND PACKET
IMPLICIT INPUTS:
RAMDATA
RAMS 12

DATA AS READ FROM THE RAM
NUMBER OF BYTES IN PACKET

IF RAMSIZ=0 THEN DEFAULT TO 8.

;IMPLICIT OUTPUTS:

1972

015600
015600
015600
015604
015604
015604

004737
104423

014066

RAMERR::

L10021:

RAMSIZ

SET 10 0

BGNMSG

RAMERR

JSR
ENDMSG

PC,PRAMPKT

TRAP

CSMSG

.SBTTL

RAMTADD - PRINT TEST ADDRESS, RAM AND PACKET DATA

JPRINT RAM/PACKET DATA

*PRINT ROUTINE TO DISPLAY RAM/PACKET DATA
1979

L INPUTS:

TSV3 = GLOBAL AREAS

RAMTADD = PRINT

MACRO M1113

25-MAY-82 09:19

TEST ADDRESS, RAM AND PACKET DATA

PAGE 45-1
SEQ 0079

1980
}33}

:
:

}ggz

JIMPLICIT

1985
1986

:
;

RAMDATA
RAMSIZ

DATA AS READ FROM THE RAM
NUMBER OF BYTES IN PACKET

ERRH]

HIGH ORDER TEST ADDRESS

1987

1988

POINTER TO COMMAND PACKET
INPUTS:

IF RAMSIZ=0 THEN DEFAULT TO 8.

}338

1991
1992

JIMPLICIT QUTPUTS:
:

1994
1995
1996 015606
015606
1997 015606
1998 015612
1999 015616

1993

2000
2001
2002
2003
2004

015616
015616

004737
004737

010354
014066

104423

ERRLO

RAMSIZ

BGNMSG
RAMTADD
::
JSR
JSR
ENDMSG
L10022:
TRAP

o+
:

.SBTTL

%882

JPRINT ROUTINE

2007
2008

: INPUTS:
:

N
o
N
0

2021
2022
2023
2024
2025
2026
2027
2028

2030

:
:
.
:-

042701
042702
004737
004737
104423

177400
177400
010156
010032

RAMEXP::

L10023:

SET T0 O

RAMTADD
PC,PRITADD
PC,PRAMPKT

JPRINT TEST ADDRESS
JPRINT RAM/PACKET DATA

C$MSG
RAMEXP

= PRINT RAM EXPD/RECV DATA

TO DISPLAY EXPD/RECV DATA

R1
R2
R4

RECEIVED DATA
EXPECTED DATA
CONTROLLER RAM ADDRESS

BGNMSG

RAMEXP

BIC
B8IC
JSR
JSR
ENDMSG

#°C<377>.R1
NC<37?7>,R2
PC,PRIRAM
PC,PRIXOR

TRAP

C($MSG

LSBTTL

TIMEXP

;

JSAVE EXPD
JSAVE EXPD
JPRINT THE
sPRINT THE

RAM DATA BYTE
RAM DATA BYTE
RAM ADDRESS
DATA

= PRINT TIMER A,B AND EXP/REC

:
sPRINT ROUTINE TO DISPLAY EXPD/RECV DATA
JAND TIMER A,B HEADER MESSAGE
H
JINPUTS:
:
-

2009
2010
2011
2012
2013
2014 015620
15620
2015 015620
2016 015624
2017 015630
2018 015634
2019 015640
015640
2020 015640

LOW ORDER TEST ADDRESS

RECEIVED DATA

EXPECTED DATA

TSV3 < GLOBAL AREAS

TIMEXP

=~ PRINT

2031
2032
2033 015642
015642
2034 015642
015642
015646
015652
0156564

015656
2035 015662
2036 015666
015666
015666
2037
2038
%%23 015670

MACRO M1113

TIMER A,B AND EXP/REC

25-MAY=-82 09:19

PAGE 45-2
SEQ 0080

;TIMEXP::
012746
012746
010600
104415
062706
004737

015670
000001
000004
010032

L10024:

104423

045

116

045

récggo:

BGNMSG

TIMEXP

PRINTX
MOV
MOV
MOV
TRAP
ADD
JSR
ENDMSG

#TIMSGO
#TIMSGO,=-(SP)
#,-(SP)
SP,R0
CSPNTX
#6,SP
PC,PRIXOR

TRAP

(S$MSG

JASCIZ

°"XNXA TIMER A STATUS IS IN BIT 3XNXYA TIMER B STATUS IS IN BIT 2°

JPRINT HEADER

JPRINT THE DATA

TSV3 = GLOBAL AREAS

MACRO M1113

25-MAY-82 09:19

BADSSR = PRINT TSSR ERRORS ON DATA TRANSFERS

ggz%

.SBTTL

PAGE 46

SEQ 0081

BADSSR = PRINT TSSR ERRORS ON DATA TRANSFERS

2044
2045
%829

X
:
JPRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS

2048
2049
2050
2051
2052
2053
2054
2055 015770
015770
2056 015770
2057 015772
2058 015776
015776
016000
016004
016010
016012
0160146
2059 016020
2060 016022
2061 016026
016026
016026
Sgg% 016030

INPUTS:
:
:
R1
:
R2
:
;-

010246
042702
010246
012746
012746
010600
104414
062706
012602
004737

104423
045

BADSSR::

177400
016030
000002
000006

006022
L10025:

116

045

XFERASC:

CONTENTS OF TSSR
DATA WRITTEN (8 BITS)

BGNMSG

BADSSR

MOV
8IC
PRINTB
MOV
MOV
MOV
MOV
TRAP
ADD
MOV
JSR
ENDMSG

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

TRAP

CSMSG
ASCIZ

JSAVE DATA TRANSFERRED
JGET JUST ONE BYTE

:RESTORE R2
JDECODE TSSR CONTENTS

'XNXA Data Transferred = %03'

TSV3 = GLOBAL AREAS

MACRO M1113

GLOBAL SUBROUTINES SECTION

25-MAY-82 09:19

PAGE 47

.SBTTL

SEQ 0082

GLOBAL SUBROUTINES SECTION

; THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES
s

THAT ARE USED

IN MORE

THAN ONE

TEST.

TSV3 = GLOBAL AREAS

MACRO M1113

SOFINIT - SOFT INITIALIZE OF

25-MAY-82 09:19

CONTROLLER

PAGE 48

SEQ 0083

LSBTTL SOFINIT = SOFT INITIALIZE OF CONTROLLER

58;2

2075
2076
2077
2078
2079

i
:
JROUTINE TO DO A SOFT INITIALIZE OF THE CONTROLLER
:BY WRITING INTO THE TSSR REGISTER. AFTER THE INIT,
sTHE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS

2082
2083
%8g§

:INPUTS::
:
H
RS

ADDRESS OF FIRST REGISTER

2086
2087
2088
2089

:OUTPUTS:
:
:
RO
.
CARRY

CONTENTS OF TSSR, IF ERROR
SET IF INIT WAS CKAY

2092
2093
2094
2095
2096
2097
2098
2099
2100
2101 016064
2102 016064
2103 016070
2104 016076
2105 016102
2106 016106
2107 016110
2108 016114
2109 016120
2110 016122
2111 016124
2112 016126
2113 016130

sCALLING SEQUENCE:
:
.
Mov
#ADDRESS
RS
:
JSR
PC,SOFINIT
:
8CS
CONT INUE
h
ERRDF
:
;-

ggg?

sDETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS.

%83?

2114 016132

012765
004737
016500
010004
042704
052704
020400
001402
000241
000401
000261

000207

000000
016340
000002
176277
002200

000002

SOFINIT::
SAVREG
MOV
JSR
[ [1]"
MOV
BIC
8IS
CMP
BEQ
CLC
B8R
5¢:
SEC
108:

RTS

CLEAR IF FATAL ERROR

JREPORT FATAL ERROR

: SAVE THE REGISTERS
#0,TSSR(RS)
: DO THE INIT.
PC.WAITF
: WAIT FOR SSR
TSSR(RS) .RO
sGET THE TSSR REGISTER
RO,.Ré
;TSSR CONTENTS
#~C<HIADDR!'OFL>,R4
#SSR!NBA,R4
sR& HAS EXPECTED CONTENTS
R4 ,RO
JONLY EXPECTED BITS SET ?
S$
JBRANCH IF OKAY
JCLEAR THE CARRY FOR ERROR
108
;60 TO EXIT
JSET THE CARRY BI7
PC

cRETURN TO CALLER

—

TSV3 = GLOBAL AREAS
NOWVNEWN—=2O VD NO VNN =0 000 O

MACRO M1113
= CHECK TSSR FOR AMBIGUITY

SEQ 0084
(HKAMB

=~ (HECK TSSR FOR AMBIGUITY

:THIS ROUTINE TESTS "HE CONTENTS OF THE TSSR REGISTER
sFOR AMBIGUITY

*INPUT:

CONTENTS OF TSSR

CONTENTS OF

CARRY

SET = NO AMBIGUITY
CLR = AMBIGUOUS CONTENTS

OUTPUT:

TSSR

puifui

o
N
=
o

W
H

urd

A
NI RN

)

]

OOOOOOOOOOSOOOOOOOOOOO

WA =O OV
VNV

b
b emb
b
b e
e
b

OCOVBXDNOWNEBWNI=O

PAGE 49

MR4

b
i
b o
b
e
D e
b
d e
D
d
d e
D d

b wod b

b end

SN BB 0 8 8 8 8 B WWIWWNHW W W W

d
e
b o et
b cd o

b e

25-MAY-82 09:19
.SBTTL

W WHIANIN NI NI PO NI POPO NI PO N = =t s

SIS USTNTS NSNS ONLNT NN LNT NS LNT NSNS LN NT NN LS TN LNT N TN N TN LS NN NN NTNT,NT N1 ST .NT.NT NT S

b e md md

CHKAMB

CHKAMB:

010004
032700
001004
032700
001023
000424
032700
001011
032700
001414
042704
020427
001007
000410
032700
001405
032700
001002
000241
000401
000261
000207

100000

SAVREG
MOV

RO,R4

;SAVE THE GENERAL REGISTERS
;CONTENTS OF TSSR

458

JRETURN WITH SUCCESS

BIT
BNE
BIT
BNE

#SC,RO
JI1S BIT 15 SET ?
5%
JBRANCH IF YES
#*C<NBA'OFL !SSR!HIADDR> RO
JANY OTHER BJITS SET ?
408
JMUST BE AN ERROR

177761
000016

BIT
BNE
BIT
BEQ
8IC
CMP

#SSR,R0
108
#81T5,R0
408
#°CTERCLS,.RS
R4, #16

000040

108:

B8R
8IT

40$:
45%:
50%:

174077

000200

5¢:

000040

B8R

408

1S READY BIT SET ?
;BRANCH IF READY BIT IS SET.
JIS FATAL ERROR BIT SET ?
JERROR IF NOT
JCLEAR ALL BUT TERMINATION COUE
sALL THREE BITS MUST BE SET
JERROR IF NOT SET

gkc

#BITS.RO
45%
#BIT2!BITI,R0O
458
508

;IS FATAL ERROR BIT SET ?
SERROR IF BIT IS SET WITH SSR
;IS THIS A FUNCTION REJECT
JBR, IF TSSR IS 0K
;AMBIGUOUS CONTENTS

SEC
RTS

SHOW SUCCESS - NO AMBIGUITY
JRETURN TO CALLER

BNE

000006

BEQ
8IT
BNE

(5%

;0K IF ALL ARE SET

TSV3 = GLOBAL AREAS

MACRO M1113

ENAINT,DSBINT - ENABLE/DISABLE

25-MAY-82 09:19

INTERRUPTS

2162
2163
2164
2165
g}gg
2168

2174

; BIT DEFINITIONS FOR ‘'INTMASK'® AND ''INTFLAG'' BYTES:
000200
000001

2175 016234

000

5};; 016235

000

2176

2179
2180 016236
2181
g}gg 016240

SEQ 0085

.SBTTL ENAINT,DSBINT - ENABLE/DISABLE INTERRUPTS
:
; DEFAULT DISPLAY INTERRUPT HANDLERS.
s IF DISPLAY TIME-QUT, REPORT DEV FATAL, AND ABORT PASS.
: OTHERWISE. SAVE DPU REGISTERS AND DISMISS.

%}9(9)
2171
g};g

PAGE 50

10KCKIN=BIT?
10KSTP=BITO

; DON'T CHECK FOR BAD INTERRUPTS -- TEST WILL.
EXPECT *'STOP'* INTERRUPT.

1~reanupr MASK == SAYS EXPECTING INTERRUPTS

INTMASK :

.BYTE

INTFLAG:

.BYTE

JINTERRUPT FLAG == SAYS WE GOT ONE (IF POSITIVE)

000000

:SAVED INTERRUPT VECTOR:
INTVEC: .WORD
O
;SAVE CPU PC
INTCPC: .WORD
0

2184
2185 016242
2186 016244
2187 016250

010046
013700
012720

:SUBROUTINE TO ENABLE 1~rsaauprs
ENAINT: MOV
RO,=(SP)
:SAVE RO
MOV
IVEC.RO
2GET POINTER TO VECTORS
MOV
#INTR (RO)+
:SET UP INTERRUPT VECTOR

2189 016260
2190 016262

012600
011646

2188 016254

2191 016264

000000

012720

g}gg 016272

012766
000002

2194
2195 016274
2196 016276
g}gg 016304

011646
012766
000002

002200
016306

000340

000000

000340

000002

MOV

#PRIO7, (RO)+

MOV
RTI

#0,2(SP)

MOV
MOV

(SP)+,R0
(SP) ,=(SP)

;RESTORE RO

:SET CPU TO LEVEL 0

:SUBROUTINE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 7)
DSBINT: MOV
(SP) ,=(SP)
MOV
#PR107,2(SP)
RT]

TSV3 = GLOBAL AREAS
INTR

MACRO M1113

= INTERRUPT HANDLERS

25-MAY-82 09:19

358?
2202 8}2%82

2203 016306

2204 016314
2205 016320
2206 016326
5585 016330

2209
2210 016336
2211 016336
016336
016336

INTR

012737

105037
132737
001003
152737

000002

000001

016235
000001

000001

002214
016234

016235

PAGE 51

SEQ 0086

.SBTTL

INIR

BGNSRV

INTR

sDEFINE INTERRUPT ENTRY

mov

#1,INTRECV

sSET FLAG TO SHOW INTERRUPT RECEIVED

CLR8
BITB
BNE
8l1s8

= INTERRUPT HANDLERS

INTFLAG
#I10KSTP,INTMASK
1$
#10KSTP,INTFLAG

sCLEAR FLAG TO SAY WE GOT INTERRUPT
;EXPECTING STOP INTERRUPT?
sBR IF YES
;NO. SET THE ERROR FLAG.

:SAVE REGISTERS, MSG BUFFER, ETC.
18:
ENDSRV
L10026:
RTI

TSV3 = GLOBAL AREAS

MACRO M1113

= WAIT FOR SUBSYSTEM READY

~N NININONI PN
~no NONINCNININUMY)
~N PNONIN)
= s b
(V] =0V ~NO WV

WAITF

25-MAY=-82 09:19
.SBTTL

2235 016356
2236 016360
016360
016364
016366
016372
016374
016400
016402
016406
2237 016410
2238 016412
2239 016414
2240 016416
2241 016420
2242 016422
2243 016424

WAITF

SEQ 0087
= WAIT FOR SUBSYSTEM READY

SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG

INPUTS:
RS

ADDRESS OF

FIRST DEVICE REGISTER

OUTPUTS:
RO
CARRY

2
2229 016340
2230 016342
016342
016344
2232 016350
2233 016354

PAGE 52

000401
104422
012746
016500
105700

003000
000002

WAITF:: BR
BREAK
TRAP
MOV
MOV
TST8

100420

012727
000000
013727
000000
005367
001375
005367
001367
005316
001356
000241
000401
000207

BM!

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

C$BRK

sREAD THE TSSR REGISTER

s EXIT ON STOP FLAG.

000001

002116

ESDLY.(PC)O

177272

°6(PC)

177756

‘ZZ(PC)
20
(SP)

2%
3s:

2300 MSEC TIMER

#3000,=(SP)
TSSR(RS) ,RO
RO
1
81.(PC)0

'A ¥

sNOP WHEN SUPER FIXED
s DO A SUPVSR BREAK FIRST.

sTEST FOR READY BIT SET

; WAIT 100 USEC

sREDUCE DELAY COUNT

SRETRY UNTIL TIMER EXPIRES

: C =0, CONTROLLER STILL RUNNING...
....OR HUNG=UP AFTER 300 MSEC.

(SP)+

RESTORE STACK WITHOUT CHANGING CARRY BIT

C = 1, CONTROLLER IS STOPPED.

TSV3 - GLOBAL AREAS
MACRO M1113
CHKTSSR = CHECK TSSR FOR READY

25-MAY-82 09:19

gszg

.SBTTL

PAGE 53

SEQ 0088

C(HKTSSR = CHECK TSSR FOR READY

2247
2248
2249

%gg?

XS
;
sTHIS ROUTINE WAITS FOR READY IN THE TSSR
sAND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR.

2252
2253
%%gg

JINPUT:
:
:
RS

ADDRESS OF CSR REGISTERS

2256
2257
2258
2259

;OUTPUT:
:
:
RO
:
CARRY

CONTENTS OF TSSR
SET = OKAY

2262
2263
2264 016426
2265 016426
2266 016432
2267 016434
2268 016440
2269 016442
2270 016446
2271 016450
2272 016454
2273 016456

%sg?

2274 0164660
2275 016462
2276 016464

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

016340

CHKTSSR:

016134
100000
074000

108:

15$:
20$:

JSR
BCC
JSR
BCC
8IT
BEQ
BIT
8EQ
cLC

BR
SEC
RTS

CLR = NOT READY AMBIGUOUS, OR SC SET

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

208
PC

;WAIT FOR READY
:BRANCH IF TIME OUT
:TSSR AMBIGOUS?
;8R IF YES
;SPECIAL CONDITION SET?
:BR IF NO
;ANY ERROR BITS SET?
:BR ]JF NO
:SET FAILURE
H
:SET SUCCESS
¢RETURN TO CALLER

—

TSV3 < GLOBAL AREAS
MACRO M1113 25-MAY-82 09:19
XNXM
- CHECK FOR NONEXISTENT MEMORY

gggg

.SBTTL

PAGE 54

SEQ 0089

XNXM

= CHECK FOR NONEXISTENT MEMORY

2280
2281

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

2284
2285
2286

sCALL:
:
:

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

XNXM:

MOV
MOV
CLR
TST

28, ané
#PRI0G ,a#6
R3
(R1)

cMP
BEQ
ADD
BR

R1,R2
3$
#2.R1
18

COM
MOV
RTI
CLRVEC
MOV
TRAP
TST
BEQ
SEC
RTS

R3
#38,(SP)

gggg

%%g;

2289 016466
2290 016474
2291 016502
2292 016504
2293
2294 016506
2295 016510
2296 016512
gggg 016516

020102
001407
062701
000772

2299 016520

005103

2300 016522
2301 016526
2302 016530
016530
016534
2303 016536
2304 016540
2305 016542
2306 016544
2307
2308
2309
2310
%g;}

012737
012737
005003
005711

016520
000200

000004
000006

1$:

000002

012716
000002

016530

012700
104436
005703

000004

2s:

3s:

001401
000261
000207

= 0. ALL ADDRESSES OK.

RETURN

.SBTTL

#4
#4,R0
CSCVEC
R3
RYA
PC

:TEST ‘‘C'* AND PROCEED.
: SET BUSERR VECTOR.
;FLAG.
JTEST THE ADDRESS(ES).
s1F ANY TRAP, CONTINUE AT 2%.
;OTHERWISE, CONTINUE HERE.
sBR JF FINISHED (NO NEXM'S).
;SET NEXT ADDRESS...
2...AND CONTINUE.
sGOT ONE, SET FLAG...

2...AND DISMISS INTERRUPT...
s...AND GIVE BACK THE VECTOR.
;DID WE CATCH ONE ??

:NO, *°C' = o SKIP NEXT.
JYES, "¢’ 1. (R1) = NEXM ADDR.

TSTLOOP - CHECK ITERATION COUNT

2313
2314

; SUBROUTINE TO EXECUTE TEST ITERATIONS.
s EXIT WITH *°C** SET IF LOOPS ALLOWED AND LOOP COUNT NON-ZERO.

2317
2318
2319 016546

: CALL: LOOPTO
.
TSTLOOP::

§§}2

2320 016546

2321 016552
2322 016554
2323 016560
2324 016562
2325 016566
2326 016570
2327 016572
2328 016574
2329 016576

; LOOP COUNTER IS SET BY 'BEGIN.TEST'' MACRO.

005737

001006
005737
100403
005337
001002
000241
000401
000261
000207

002160

002174
002206
1$:
2%:
3s:

BNE
TST
BM]
DEC
BNE
cLC
BR
SEC
RTS

ARG

NOITS

18
QVP
1$
LOOPCNT
2%
3s

; ITERATIONS INHIBITED?

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

e
—

TSV3 ~ GLOBAL AREAS

MACRO M1113

TSTLOOP = CHECK ITERATION COUNT

25-MAY-82 09:19

PAGE 55
SEQ 0090

2331
2332
%ggz

.SBTTL

TSTSETUP ~ PRINT TEST NAME AND INIT ERROR COUNTS

2335
2336
2337
%ggg

: PRINT THE NUMBER AND NAME OF EACH TEST AS WE GO ALONG.
INCREMENT '‘TESTK'® TO INDICATE THE NUMBER OF TESTS
IN THE CURRENT RUN SEQUENCE.
: CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS.

2340
2341
%gzg

JINPUT:
:
;
RO

2344
2345

SOUTPUT:
:

5gzg

SIMPLICIT OUTPUTS:

3%%?

gggg

*SIDE EFFECTS:

2354
2355
2356
2357
2358
2359 016600
2360 016600
2361 016602
2362 016606
2363 016612
2364 016616
2365 016622
2366 016626
2367 016630

:
:
;
H

:
:

ggzg

;

2368 016634

010046
005037
005037
005037
105037
013700
006300
005737

001430

2369 016636
2370 016640
2371 016646

100010
052760

016650
016652
016656
2372 016656
2373 016660
2374 016666
016666
016670
016672
016674
2375 016676
2376 016704
016704
016710

000001
003736
005734
000407
052760

016646

2377 016712

003104
003166

104455
000002
004333
000000
012737

013700
104451

177777

002172

003166

003102

3$:

2%:

ADDRESS OF FIRST DEVICE REGISTER

UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART

INTERRUPT LEVEL IS RASIED TO LEVEL OF
THE DEVICE UNDER TEST

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

BEQ

/X3

TRAP

CSERDF

8PL
8IS
ERRDF

104455

160001

TSTCNT

TSTSETUP::
MOV
CLR
CLR
CLR
CLRB
MOV
ASL
ST

003144
017046
005770
016234
002172

160000

POINTER TO TEST ID ASCIZ STRING

WORD
.WORD
-WORD
BR
8IS
ERRDF
TRAP
WORD
.WORD
WORD
MOV
DODU
MOV
TRAP

DOCLN

sSAVE THE TEST ID MESSAGE
s CLEAR "*SOFT INIT'' FLAG
¢ CLEAR LOCAL ERROR COUNTER.
: CLEAR ERROR EXTENSION FLAG.
: CLEAR INTERRUPT MASK (CHECK ERROR)
: GET THE UNIT NUMBER,
J ..o AND MAKE IT A WORD OFFSET.
: DID STARTUP FIND THE DEVICE?

: BR IF YES

38
* BR IF NOT IDLE
#160000,ERTABL(RO) ; FLAG ERROR IN THE ERROR TABLE
1,NXR,_NXRERR
; NO DEVICE HERE -- PRINT IT

1
NXR
NXRERR
2
#160001,ERTABL (R0)
: FLAG ERROR IN THE ERROR TABLE
2,.NOINIT
; DEVICE NOT IDLE

C$ERDF
2
NOINIT
O
#<1,DUFLG
UNITN
UNITN,RO
($DODU

: DROP THE UNIT

: ABORT THE PASS

MACRO M1113

016712
%g;g 016714

2380 016716
016716
2381 016720
2382 016724
2383 016726
2384 016730
016730
016732
016736
016742
016744
016746
2385 016752
2386 016756
016756
016762
2387 016764
2388 016766
2389 016772
2390 016774
2391

25-MAY-82 09:19

PAGE 55-1

TRAP
BR

CSDCLN
5$

RFLAGS
TRAP
BIT
BEQ
MOV
PRINTF
MoV
MoV
MOV
MoV
TRAP
ADD
INC
SETPRI
MoV
TRAP
TST
MOV
RTS
_ASCIZ
.EVEN

RO
CSRFLA
#PNT RO
1%
(SP) ,RO
#TNAM, RO
RO,=(SP)
#TNAM,
= (SP)
#2,~(SP)
SP,R0
CSPNTF
#6,SP
TSTCNT
IPRI
IPRI,RO
CSSPR]
(SP)+
CSRADDR,RS
PC
‘'XSXTXA Test'

INIT ERROR COUNTS

104444
000423
104421

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

001000

016774
000002
000006
002204

18:

002202

5$:

002176
123

0645

TNAM:

SEQ 0091

; GET THE OPERATOR FLAGS.

s PRINT THE TEST NUMBERS?
: BR IF NO
sGET THE 1D MESSAGE
;DISPLAY THE TEST ID

; BUMP TEST COUNTER.
sPRIORITY THAT OF DEVICE
SFIX UP THE STACK
; ADDRESS OF TSV REGISTERS ON UNIBUS

~
!

TSV3 - GLOBAL AREAS

TSTSETUP - PRINT TEST NAME AND

—

TSV3 = GLOBAL AREAS

TSTEND

MACRO M1113

< PRINT ERRORS RECEIVED

25-MAY-82 09:19

SEQ 0092

gggz

.SBTTL

2395

2404 017046
2405 017050
2406 017067
gzgg

TSTEND

<~ PRINT ERRORS RECEIVED

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

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

gggg

2398 017010
017010
2399 017012
2400 017016
2401 017020
017020
017026
017030
017034
017036
017040
gzg% 017044

PAGE 56

104421

030027
001412

020000

013746
012746
012746
010600
104417
062706
000207

017046
017050
000002

000000
045
105

TSTEND: RFLAGS RO
TRAP
CSRFLA
BIT
RO,#IER
8EQ
18
PRINTF #ESUM, ERRK
MoV
ERRK,=(SP)
MOov
#ESUM,=-(5P)
MOV
#2,=(SP)
MOV
SP,RO
TRAP
CSPNTF
ADD
#6,SP
18:
RTS
PC

000006

101
122

040
122

ERRK:
0
ESUM:
_ASCIZ
EMAXDU: .ASCIZ
.EVEN

Sfi?g

.SBTTL

,
: RR_IF "IER'* NOT SET.
;
INT ERROR COUNT.

s LOCAL ERROR COUNT,
/XA XDXA ERRORS/
/ERROR LIMIT REACHED =~ DROPPING UNIT/
INCERK

= INCREMENT LOCAL ERROR COUNT

Sfi}}

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

26413 017134
2414 017140
2615 017142
2416 017146
2617 017150
2418 017154

005237
010046
013700
006300
062700
005210

26420 017162
26421 017164
26422 017166
gzsz 017170

001001
005310
012600
000207

2425 017172
2426 017174
2427 017200
2428 017202
2629 017206
2630 017212
2431 017216
24632 017220
2433 017226
2434 017230
017230
26435 017232
2436 017236
2637 017240
2438 017246
017246
017250
017252

010046
013700
006300
016000
042700
020037
103004
023737
103417

26419 017156

032710

104421
032700
001013
012737
104455
000004
017067

017046

INCERK: INC
MOV
MOV
ASL
ADD
INC

002172

003166
007777

BIT

18:

002172
003166
170000
002164

017046

002162

000040
177777

003102

BNE
DEC
MOV
RTS

CKEMAX: MOV
Mov
ASL
MOV
8IC
cMP
BHIS
CMP
8LO
1$:
RFLAGS
TRAP
8IT
BNE
MOV
ERRDF
TRAP
.WORD
.WORD

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

;
:
s
¢
:
:

18
(RO)
(SP)+,RO
PC

:
:
s
;

BR _IF NO.
YES == BACK IT uUP T0 7777.
RESTORE RO
RETURN TO CALLER.

RO,=(SP)
UNITN,RO
RO
ERTABL(RO)
,RO0
#170000,R0
RO, GERRMAX
18
ERRK , LERRMAX
23
RO
CSRFLA
#1DU,RO
2%
#-1,0UFLG
&4 ,EMAXDU
(SERDF
4
EMAXDU

;
:
¢
;
;
s
;
;
:
¢

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?
BR_IF NO
GET OPERATOR FLAGS

#7777, (RO)

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

: 1S DROPPING INHIBITED?
. BR IF YES.
s NO -- DROP THE UNIT

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

pury

017254
2439 017256
7256

017262
2640 017264
017264
2441 017266
2442 017270
2643

060000

013700
104451

104444

012600
000207

002172

2$:

.WORD
DODU
MOV
TRAP
DOCLN
TRAP

MOV
RTS

PAGE 56-1

SEQ 0093

0
UNITN
INITN,RO
C$00DU
CSDCLN

(SP)+ RO

;
;

RESTORE RO
RETURN TO CALLER

TSV3 - GLOBAL AREAS
MACRO M1113
25-MAY-82 09:19
CKDROP
=~ CMECK IF UNIT SHOULD BE DROPPED
5222

.SBTTL

PAGE

CKDROP

SEQ 0094
= CHECK

UNIT SHOULD BE DROPPED

5225
26449 017272
2450 017274
26451 017504
017304
26452 017306
2453 017312
2454 017314
2455 017316
2456 017324
0173264
017330
2457 017332
017332
2458 017334
2459 017336
2460
2461
!
2462
2663
%22?
)

: CHECK IF UNIT SHOULD BE DROPPED
010046
104421
032700
001010
011600
012737
013700
104451

000040
177777
002172

1064444
012600
000207

.SBTTL

%229
2468 017340
2669 017340
2470 017344
247
2472
2473

003102

CKDROP: MOV
RO,=(SP)
FORCERROR
1$.NOTSSR
RFLAGS RO
TRAP
CSRFLA
BIT
#I1DU,RO
BNE
18
MOV
(SP) ,RO
MOV
#-1,DUFLG
bobu
UNITN
MOV
UNITN,RO
TRAP
C$D0DU
DOCLN
:ABORT THE PASS
TRAP
CS$DCLN
18:
MOV
(SP)+ R0
RTS
PC

CONFIG

- DETERMINE CONFIGURATION OF SYSTEM

: SUBROUTINE =~ DETERMINE CONFIGURATION OF TSVOS SYSTEM.
004737
000207

016064

CONFIG:

JSR
RTS

PC,SOFINIT
PC

—

TSV3 = GLOBAL AREAS
MACRO M1113
25-MAY-82 09:19
= ENABLE/DISABLE MEMORY MANAGEMENT

KTON,KTOFF

2475
2476
2477
2478

.SBTTL

PAGE 58
KTON,KTOFF

SEQ 0095
ENABLE/DISABLE MEMORY MANAGEMENT

: SUBROUTINE =~ ENABLE MEM MGT.
005737
001403
012737
000207

003122
000001

KTON:

177572

18:

TST

8EQ

MOV

RTS

KTFLG
18
#1,5n0
PC

6OT KT?

NO.
YES.

ENABLE KT11.

: SUBROUTINE = DISABLE MEM MGT.
005737
001405
000240
000240
012737
000207

003122

000000

KTOFF:

177572

18:

TST
BEQ
NOP
NOP

MOV
RTS

KTFLG
18

NO.

#0,SRO

DISABLE KT.

60T KT11?

TSV3 = GLOBAL AREAS

SETMAP

MACRO M1113

= SETUP PARG MAPPING

2498
2499

25-MAY-82 09:19

SEQ 0096

.SBTTL

2200

PAGE 59

SETMAP

- SETUP PAR6 MAPPING

2502

STHIS ROUTINE SETS UP KERNEL PAR6 TP HANDLE

gggg

;1S RETURNED BIASED TO PARG.

2503

:AN 18 BIT ADDRESS.

o
~

LINPUTS:
.

2506
2508

5293

%2}3

:OUTPUTS:

2513
2514
2515
2516
2517 017406
2518 017406
2519 017412
2520 017416
2521 017420
2522
2523
gggé

:
RO
:
CARRY
:
e
SETMAP:
SAVREG
ST
B8EQ
MOV
.REPT
ASR
Rgzon

2526 017452
2527 017456
2528 017462
2529 017464
2530 017470
2531 017474
2532 017500
2533 017502
2534 017504
2535 017506
2536 017510
2537

THE OFFSET INTO THE PAGE

005737
001433
010102
000006

042701
020137
103011
010137
042702
062702
010200
000261
000401
000241
000207

003122

000177
003122
172354
160000

140000

108:
15%:

BIC
CMP
BHIS
MOV
B8IC
ADD
MOV
SEC
BR
CLC
RTS

HIGH ORDER ADDRESS BITS

LOW ORDER ADDRESS BITS

OFFSET INTO BLOCK WITH PAR6 BIAS (I.E.
SET 'F SUCCESS
CLR IF ERROR

KTFLG
108
R1,R2
6
RO
R1
#177.R1
R1,KTFLG
108
R1,3#K1PARG
#160000,R2
#140000,R2
R2.RO
15%

THE ADDRESS)

:SAVE R1-R4 UNTIL NEXT RETURN
;SYSTEM HAVE ABOVE 28K?
:BR IF NO
;SAVE LOW ORDER BITS

;CONVERT WORD ADDRESS TO 32w BLOCKS

sMAKE IT DOUBLE PRECISION

;ALINE FOR LOWER 4K BOUNDARY
sHIGHER THAN EXISTING MEMORY?
;BR IF YES
:SETUP MAPPING REGISTER PARG6
JSETUP DISPLACEMENT IN PAGE
JACD IN PAR6 BIAS
JRETURN IN RO
JSET SUCCESS
:
!SET FAILURE
:RETURN

TSV3 = GLOBAL AREAS

MACRO M1113

25-MAY-82 09:19

FILLMEM ~ FILL MEMORY WITH BACKGROUND PATTERN

2539
2540
2541
2542
2543
2544
2545

SBTTL

PAGE 60

SEQ 0097

FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN

FILL MEMORY WITH A BACKGROUND PATTERN

;

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

* OUTPUTS:
NONE

f ILLMEM:
004737
010003
013701
013702
010321
005302
003375
005737
001477
004737
005000
013701
000006

2572
2573 017626
2574 017632
2575 017634
2576 017640
2577 017642
2578 017646
2579 017654
2580 017662
2581 017664
2582 017670
2583 017672
2584 017676
2585 017702
2586 017706
2587 017710
2588 017714
2589 017716
2590 017724
2591 017726
2592 017730

2593 017736
2594 017742
2595 017746

004737
010320
020027
103774
162700
062737
023737
001427
005737
001407
013704
042704
022704
001415
005737
001410
023727
103001
000403
012737
000137
004737
000207

017364

108:

FREE ,R1
FRESIZ,R2

003142

017406

30$:

160000
172354

003122

R3,(R1)¢+
R2

TST

KTFLG

JSR
CLR

"ggPT

PC,KTON
RO

ZST3ZU.R1

s YES. ENABLE KT,
JHIGH ORDER ADDRESS START

cLC
ROL
RghDR

R1
RO

sCLEAR C BIT
;CONVERT BLOCKS TO WORDS
JMAKE IT DOUBLE PRECISION

JSR

MOV
CMP
8LO
sus

172354

007600

000020

172516

408:
45%:

508:
55%:

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

;SETUP PARG6 MAPPING REGISTER

SSTORE TEST PATTERN IN >28K ADDRESS
JEND OF PAR6 MAPPING AREA?
:BR IF NO
;BACKUP [NTO PARG6 MAPPING BEGIN

T23A

:11/723A?

SRO, R4

sGET SRO CONTENTS

#16.R4
508

sSEE _IF PAGE 7
cEXIT_IF THERE

458
a#KIPARG, #7600
408

sNO KEEP GOING
;REACHED 18 BITS?
cYES

8IC

358%:

PC,SETMAP

R3,(RO)+
RO,#160000
308
#20000,R0

GOT KT?

; NO. GET OQur.

TST

MOV

003136

55¢%

;BR IF NO

#200,3#KIPAR6
SNKIPARG KTFLG

BEQ

177572
177761
000016

108

JSTORE A BACKGROUND WORD
sDONE ALL MEMORY [N FREE SPACE?

ADD
CMP

BEQ

003134

RO,R3

sSAVE R1=RS UNTIL NEXT RETURN
;DISABLE KT,
;COPY TEST PATTERN
JGET FIRST FREE LOCATION
;SIZE OF FREE SPACE BELOW 28K.

MOV
DEC

BEQ

017346

017632
017364

MOV
MOV

B8GT

003122

172354

PC.KTOFF

MOV

003114
003116

020000
000200

SAVREG
JSR

CMP
BEQ

TST

8EQ
CMP
BHIS

508

35%

#177761,R4
1238

459%

JSR
RTS

PC,KTOFF
PC

Mov
JMP

#20,SR3
30%

;POINT TO NEXT 4K BLOCK >28K.
;END OF MEMORY?

sBR IF YES

sNO KEEP GOING

sCLEAR ALL BUT PAGE NUMBER

21172382

sNO _KEEP GOING

sSET 22 BIT RELOCATION
sKEEP GOING ON ETC.

. DISABLE KT,

[

—_———

TSV3 = GLOBAL AREAS

MACRO M1113

25-MAY-82 (09:19

FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN

2596
2597

PAGE 60-1
SEQ 0098

TSV3 ~ GLOBAL AREAS

CMPMEM

- COMPARE MEMORY

MACRO M1113

25-MAY~82 09:19

T0O BACKGROUND PATTERN

5288

.SBTTL

PAGE 61

(MPMEM

SEQ 0099

<~ COMPARE MEMORY TO BACKGROUND PATTERN

528}

: COMPARE MEMORY WITH A BACKGROUND PATTERN

2603
2604
2605
2606

;
:
:
:

2609
2610
2611

: OUTPUTS:
:
:
CARRY

5g}§

: IMPLICIT QUTPUTS:

2616
2617
2618
2619
2620
2621 017750
2622 017750
2623 017754
2624 017756
2625 017762
2626 017766
2627 017772

:
:
:
:
.=
CMPMEM:

528;

gg}§

2628 017774

2629 017776
2630 020002
2631 020006
2632 020012
2633 020016
2634 020020
2635 020022
2636 020024
2637 020026

2638 020032
2639 020034
2640 020040
2641 020042

2642
2643

5222

2646 020076
2647 020102
2648 020104
2649 020106
2650 020112
2651 020114

2652 020116
2653 020120
2654 020122
2655 020124

INPUTS:

010003
004737
013701
013702
020311

001411

010137
005037
010337
011137
000474
005721
005302
003362
005737

001472
004737
005000
013701
000006

042701
010046
010146
004737
010004
012601

012600
020314
001411
010037

017364
003114
003116

108:

002230
002226
002222
002224

15$:
003122
017346
003142

KTFLG

CARRY

ERRHI
ERRLO
EXPD
RECV
SAVREG
MOV
JSR
MOV
MOV
cMP

BEQ
MOV
CLR
MOV
MOV
BR
TST
DEC
86T
TST
BEQ
JSR
CLR

= SET TO HIGHEST MEMORY LOCATION IF > 28k.

= SET IF NO ERROR

= CLR IF ERROR

=
-~
~
-

ERROR HIGH ADDRESS
ERROR LOW ADDRESS
EXPECTED DATA
RECEIVED DATA

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

15¢%

R1,ERRLO
ERRH]
R3,EXPD
(R1) ,RECV
508
(R1)+
R2
108
KTFLG

55¢%

308 :

:BR IF YES
:SAVE ADDRESS IN ERROR
JNO HIGH ADDRESS
:SAVE EXPD FOR ERROR REPORT
:SAVE RECV FOR ERROR REPORT
:
sPOINT TO NEXT ADDRESS
;DONE ALL MEMORY [N FREE SPACE?
;BR IF NO
'
; GOT KT?
"
: NO. GET OUT.
: YES. ENABLE KT,
JHIGH ORDER ADDRESS START

.REPT
ROL

;CONVERT BLOCKS TO WORDS

BIC
MOV
MOV
JSR
MOV
MoV

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

:ALINE 4K BOUNDARY
:SAVE HIGH ORDER
;SAVE LOW ORDER
:SETUP PARG6 MAPPING REGISTER
;COPY ADDRESS BIASED TO PAR6
RESTORE LOW ORDER IN NON PARG6 FORMAT

R?kon RO

017406

:SAVE R1-RS UNTIL NEXT RETURN
;COPY TEST PATTERN
:DISABLE KT,
JGET FIRST FREE LOCATION
:SI2E OF FREE SPACE BELOW 28K.
JFREE SPACE LOCATION EQUAL TO EXPD?

PC,.KTON
RO
PST32W,R1
6
R1

MOV

000177

002226

RO = BACKGROUND PATTERN
FREE
= FIRST LOCATION AVAILABLE TO DIAGNOSTIC

MoV
cMP
BEQ
MOV

(SP)+ RO
R3, (R&)
32%
RO,ERRHI]

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

sMAKE IT DOUBLE PRECISION

SRESTORE HIGH ORDER IN NON PARG FORMAT
sABOVE 28K LOCATION EQUAL EXPD?
:BR IF YES
JSAVE HIGH ORDER IN ERROR

[
——

TSV3 = GLOBAL AREAS
MACRO M1113
25-MAY-82 09:19
CMPMEM
~ (OMPARE MEMORY TO BACKGROUND PATTERN

2656 020130
2657 020134
2658 020140
2659 020144
2660 020146
2661 020152
2662 020154
2663 020160
2664 020164
2665 020166
2666 020172
2667 020200
2668 020206
2669 020210
2670 020214
2671 020216
2672 020220
2673 020224
2674 020226
2675

010137
010337
011437
000421
062701
005500
062704
020427
103755
162704
062737
023737
101744
004737
000241
000403
004737
(000261
000207

002230
002222
0022264
000002

328:

000002
1€9000
020000
000200
172354

172354
003122

017364

508:

017364

558:
608:

MOV
MOV
MOV
BR
ADD
ADC
ADD
cMP
BLO
suB
ADD
CMP
BLOS
JSR
cLC
BR
JSR
SEC
RTS

PAGE 61-1

R1,.ERRLO
R3,EXPD
(RG) ,RECV
508
#2,R1
RO
#2,R4
R4 ,#160000
308
#20000,R4
#200,3#KIPAR6
ANKIPARG KTFLG
308
PC.KTOFF
60%
PC.KTOFF

“€Q 0100

sSAVE LOW ORDER IN ERROR
sSAVE EXPD FOR ERROR REPORT
sSAVE RECV FOR ERROR REPORT
;
sUPDATE NON PAR6 ADDRESS
+MAKE IT DOUBLE PRECISION ADD
sUPDATE PAR FORMAT ADDRESS
sEND OF PAR6 MAPPING AREA?
:BR IF NO
sBACKUP INTO PARG6 MAPPING BEGIN
;POINT TO NEXT 4K BLOCK >28K.
END OF MEMORY?
sBR IF NO
sTURN OFF MEMORY MAPPING
;SET FAILURE
:
sTURN OFF MEMORY MAPPING
sSET SUCCESS

—

TSV3 ~ GLOBAL AREAS

REGSAV

MACRO M1113

=~ SAVE R1=RS5 ON STA(CK

25-MAY-82 09:19

PAGE 62

2677
2678
2679
2680
%gg}

.SBTTL
REGSAV = SAVE R1=RS ON STACK
ot
:
JROUTINE T0
sSAVE R1 THROUGH RS ON THE STACK

2683
2684

sCALLING SEQUENCE:
:

2687
2688
2689

sTHIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO
sTHE CALLING ROUTINE. AT THE END OF THE CALLING ROUTINE,
sTHE RTS PC RETURNS CONTROL TO THIS ROUTINE TO RESTORE

%ggg

JSR

RS ,REGSAV

ggg?

JREGISTERS.

2692
2693
2694
2695
2696
2697 020230
2698 020230
2699 020232
2700 020234
2701 020236
2702 020240
2703 020242
2704 020246
2705 020250
2706 020252
2707 020254
2708 020256
2709 020260
2710 020262
271

sTHIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE
JCALLED VIA A JSR PC INSTRUCTION
:
010446
010346
010246
010146
010546
016605
004736
012601
012602
012603
012604
012605
000207

REGSAV:

000012

MOV
MOV
MOV
MOV
MOV
MOV
JSR
MOV
MOV
MOV
MOV
MOV
RTS

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

(SP)+,R2
(SP)+,R3
(SP)+ R4
(SP)+ RS
PC

SEQ 0101

—

PO S LSUSUSTNT
V1, NT.N ~n
NN~ NNNNNNN~N ~
NN NI = d od b end ol —
SN = O000 YOV W

TSV3 = GLOBAL AREAS
MACRO M1113
25-MAY-82 09:19
GETPAY
=~ GET 8 BIT PATTERN FROM OPERATOR
o+

PAGE 63

.SBTTL

<~ GET 8 BIT PATTERN FROM OPERATOR

*ROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR
L INPUTS:
NONE.
LOUTPUTS:
:

RO
OCTAL NUMBER FROM THE OPERATOR
*CALLING SEQUENCE:

2725

JSR

2
2732 020264
2733 020264
2734 020270
020270
020272
020274
020276
020300
020302
020304
020306
020310
2735 020310
020310
2736 020312
2737 020316
2738
2739
2740
2741
2742
2743 020320
2744 020322
2745

GETPAT

SEQ 0102

:
GETPAT:

1$:

104443
000406

000377
103367

013700
000207

100008:

020320

SAVREG

PC.GETPAT

-SAVE THE GENERAL REGISTERS

GMANID

DATASC.PFTDAT,0,377.0,377.N0

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

100008
PATDAT
TSCODE
DATAS(C

TRAP

CSGMAN

377
TSLOLIM
TSHILIM

BNCOMPLE{E
18
8CC
MOV
PATDAT ,RO
RTS

sRETRY IF ERROR

sDATA PATTERN FROM OPERATOR
cRETURN TO CALLER

: TEMPORARY STORAGE FOR DATA

;LOCAL DATA AREA
000000
105

116

1264

PATDAT:

DATASC:

.WORD

.?3552

'ENTER DATA PATTERN'

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

g;zg

.SBTTL

PAGE 64

GETSEL

SEQ 0103

=~ ISSUE MENU AND GET OPERATOR RESPONSE

2749
2750
5;35

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

2753

:INPUTS:

2755
5;29

;
:

2758
2759

SOUTPUTS:
;

2762
2763
2764 020346
2765 020346
2766 020352
2767 020354

2754

%;g?

020412
020414
020416
020420
020422
020426
020426

2773 020426
020426
2774 020430
2775 020434
2776 020436
2777 020440
020440
020444
020450
020452
020454
2778 020460
2779 020462
2780 020464
2781 020532
2782 020537

28:

001412

012346
012746
012746
010600
104417
062706
000764

020532
000002
000006
3$:

104443

000406

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

10001$:

020566

020464
000001

000004

n
N
15

ADDRESS OF ASCIZ STRING OF MENU

MAXIMUM ALLOWABLE OPERATOR RESPONSE

NUMBER OF THE OPERATOR'S SELECTION

SAVREG
MOV
MOV

RO,R2
R2 ,R3

BEQ
PRINTF
MOV
MOV
MOV
MOV
TRAP
ADD
BR
GMANID
TRAP

38
:BRANCH IF ALL LINES DISPLAYED
#SELASC,(R3)+
:DISPLAY THE MENU
(R3)+,~(SP)
#SELASC,=(SP)
#2.-(SP)
SP.RO
CSPNTF
#6,SF
28
MENASC,MENRES.D,-1,0,-1.NO
CSGMAN

.WORD
.WORD
.WORD
WORD
"WORD
WORD

MENRES
TSCODE
MENASC
-1
TSLOLIM
TSHILIM

TST

B8R

020566
000042
020537
177777
000000
177777

HSuoun

020410

1%:

005713

-0
oK~

2769 020360
2770 020362
020362
020364
020370
020374
020376
020400
2771 020404
2772 020406
020406

010002
010203

oo O~

2768 020356

GETSEL::

RO
R1

(R3)

;SAVE GENERAL REGISTERS
*SAVE THE MENU ADDRESS
;START OF MENU STRING

“END OF ASCII ?

100018

BNCOMPLETE
18
;RETRY IF ERROR
BCC
1$
MOV
MENRES, RO
:GET THE OPERATOR'S REPLY
CMP
RO.R1
JCOMPARE TO MAXIMUM ALLOWED
BLOS
S$
*BRANCH IF OK
PRINTF #MENERR
SDISPLAY ERROR MESSAGE
MOV
#MENERR,
- (SP)
MOV
#1,-(SP)
MOV
SP.RO
TRAP
CSPNTF
ADD
#6,SP
BR
18
:RETRY
5¢:
nrs
PC
*RETURN TO CALLER
MENERR:
:%zi? «s+ Menu Selection Too Large wee’
.ASCIZ
SELASC:
MENASC:

ASCIZ
.ASCIZ

'Enter Menu Selection:

TSV3 - GLOBAL AREAS

GETSEL

MACRO M1113

25-MAY-82 09:19

<~ ISSUE MENU AND GET OPERATOR RESPONSE

2783
2784 020566

000000

MENRES::

.EVEN

PAGE 64-1

.WORD

SEQ 0104

TSV3 < GLOBAL AREAS
CHKMAN
= (HECK MANUAL

MACRO M1113
25-MAY-82 09:19
INTERVENTION LEGALITY

%;39

.’0

LSBTTL CHKMAN = (CHECK MANUAL INTERVENTION LEGALITY

2788

2791
2792
2793

:INPUT:
;
:
NONE.

2795
2796
2797

:0UTPUT:
:
.
CARRY

3;%8

PAGE 65

JROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY.

2794

%;gg

Sgg?

:SIDE EFFECTS:

2802
2803
2804
2805
2806
2807
2808 020570
2809 020570
2810 020574
020574
2811 020576
020576
2812 020600

:
.
:
;
.=

020600

CHKMAN::

104450
103411

012746

0206264

020604
020610
020612
020614
2813 020620
gg}g 020622

012746
010600
104417
062706
000241
000207

000001

%%}9 020624

045

116

MANUAL INTERVENTION NOT ALLOWED
MANUAL INTERVENTION IS 0K

A MESSAGE S DISPLAYED WARNING THAT TEST IS
NOT EXECUTED ]F MANUAL INTERVENTION IS NOT
ALLOWED.

SAVREG
MANUAL
TRAP
CSMAN]
BCOMPLETE 1$
BCS
1%
PRINTF
#NOMAN

MOV

#NOMAN,
- (SP)
#1,-(SP)

:SAVE THE REGISTERS
JSEE IF MANUAL INTERVENTION 0K

;BRANCH IF ALLOWED
JPRINT THE WARNING MESSAGE

CSPNTF
#6,SP

1$:

MoV
MOV
TRAP
ADD
cLc
RTS

NOMAN:

_ASCIZ

‘*INXIA *++ Manual Intervention not Allowed = Test Aborted weee*

000004

045

.even

SP.RO

:CLEAR CARRY FOR ERROR
;RETURN

SEQ 0105

TSV3 = GLOBAL AREAS
MACRO M1113
25-MAY=-82 09:19
ENVIRN ~ SETUP FREE DIAGNOSTIC SPACE

2819
2820
2821
2822
2823 020720
020720
2824 020722
2825 020726

2826
2827
2828
2829
§8§0

020734
020740
020746
020752
020760

.SBTTL

S WNWWNNONON

ENVIRN

SEQ 0106
= SETUP FREE DIAGNOSTIC SPACE

: SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS.
104431
010037
062737
011037
162737
013702
162737
005302
001373
013700
063700
162700
010037
000240
012701
010102
062702
004737
103001
000445
013701
062701
012702
005212
013703
020103
001017
005237
042737
000240

ENVIRN: MEMORY
003114
000002
003116
2
000007

TRAP
MOV
ADD
MOV

003114
003116

003116

108:

SuB

MOV
NOP
MOV
MOV
ADD
JSR

000002
016466
15%:

177520

170000

sus
DEC
BNE

8CC
B8R

MoV
ADD
MOV
INC
MOV

002120

; GET NUMBER OF UNITS
:
FREE ,RO
FRES1Z,RO
#2,R0
RO,FREEH:

R1,R2

#2,R2

PC,XNXM

158
40$
BDVPCR,R1

#1,R1
#8DVPCR,R2

(R2)

BDVPCR,R3
R1,R3
20%
T23A

#170000,L$HIME
#M8186
#MB186,~(SP)
#1,-(SP)

062706
000413
005237
000240

000004

#6,SP

012746
012746
010600

005643
000001

062706
000207

000004

104417

TAKE AWAY 7 WORDS PER UNIT

sGET FIRST FREE ADDRESS

cPOINT TO LAST FREE ADDRESS

:BACKUP 1 WORD
¢STORE LAST FREE ADDRESS

.'...t.'...'....'.".".t.""""'"'.Q't..

#8DVPIr ,R1

005552
000001

003136

; GET 1ST FREE ADDRESS...
s++.AND WORD COUNT,

MOV

MOV
ADD

177520

003134

CSMEM

RO,FREE

suB

003114
003116
000002
003120

177520
000001
177520

012746
012746
010600

104417

2854 021112
2855 021114
2856 0211
2857 021

PAGE 66

:GET BDV11 PCR ADDRESS
:COPY T0 R2
:SET THE RANGE
sSEE _IF WE HAVE ONE
;0K TO SET FLAGS

sRETURN WITH FLAGS CLEAR

sSAVE PCR CONTENTS
sADD ONE TO IT
sGET BDV11 PCR ADDRESS
sTRY

TO WRITE

TO IT

sGET RESULTS
;DID 1T CHANGE?
sNO, MUST BE 11/238
:SET THE FLAG
sSUPERVISOR COULD BE WRONG
sBR 40$ FOR RELEASE
sTELL THE SYSTEM TYPE

SP,RO

CSPNTF

40%
1238

20$:

#M8189
#MB189,-(SP)
#1,-(SP)
TRAP

40%:

RTS

JRETURN

JSET THE FLAG

sBR 408 FOR RELEASE
JTELL THE SYSTEM TYPE

SP,RO
CSPNTF

6 ,SP
PC

SRETURN

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

KTINIT

MRJ

.SBTTL

PAGE 67

SEQ 0107
KTINIT

- SETUP KT11 MEMORY MANAGEMENT REGISTERS

*ROUTINE TO INIT KT-11

003122
003124
002120

001577

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

000004
021262

000004

101444

2879 021220
2880 021224
2881 021226
2882 021232
2883 021240
2884 021242
2885 021246

2886 021252
2887 021254

3828 021260

2890 021262
2891 021266
2892
2893 021270
2 894
2895 021274
2896

KTINIT:

005037
005037
023727

177572

002120
000177
000004

172340
077406

MOV
MOV
TST
NOP
MOV

003122
003122

8IC

MOV

CLR

177740

1%:

010037

000004

MOV
MOV
MOV
ADD
CMP

BNE

177600

021270

000207

BLOS

000200
002000

012716
000002

CLR
CLR

MOV

B8R

KTFLG
KTENABLE
5:Hlflf.l1577

I¥ERRVEC,RO
#2$ ,aNERRVEC
a#SRO

LSHIME ,KTFLG

77 ,KTFLG
RO,3#ERRVEC
RO

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

GgT ENOUGH MEMORY

(>28k)?

SAVE OLD ERR VEC PTR,
SET ERR VEC PTR.

60T KT11?

(TRAP_IF NO).
YES. SET KT FLAG.

RESTORE OLD ERR VEC PTR.

RO
= AR DATA,

#KIPARO
R

#200,R0

BUMP AR DATA BY ’'‘4K‘‘,

18
#177600,-(R1)
9%

~0.

#77406,-40(R1)
RO, (R1)0

ao #2000

2$:

MOV
RTI

#6$, (SP)

6$:

MOV

RO,3NERRVEC

:
9%

RTS

= KI REGS PTR.

SET DESCRIPTOR REG.
SET KIPAR REG.

AT '1/0""?

YES.

SET KTPAR7 FOR 1/0.

SET UP RETURN

RTI

TO NEXT LOCATION

RESTORE OLD ERR VEC PTR.

TSV3 ~ GLOBAL AREAS

KTINIT

=~ SETUP KT11

MACRO M1113

25-MAY-82 (09:19

MEMORY MANAGEMENT REGISTERS

2898

2901

2903

;

PAGE 68
SEQ 0108

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

2905
2906
2907
2908
2909

INPUTS:
:
RS
CURRENT UNIT NUMBER
:0UTPUTS:
)
]
:
The Extended Features Switch is set.
:
i=

2911 021276

INVERT::

2913 021276
2914 021302
2915 021304
2916 021312
2917 021320
2918 021326
2919 021334
2920 021340
2921 021344
2922
2923

005737
001020
012737
012737
012737
012737
012704
004737
000207

18:

TST
BNE
MOV
MOV
MOV
MOV
MOV
JSR
RTS

COMMAND PACKET.

%g%g

021350

2928 021350
2929 021352
2930 021354
ggg; 021356

000000
000000
000000
000000

CMDPKT:: 0
0
0
0

Sgsg

2933

gggg

2936 021360
2937 021362
2938 021364
2939

002216

100206
021360
000006
100010
021350
010752

021350
021352
021356
021360

000000
000000
000000

EXTFEA
18
#100206,CMDPKT
#JUSMBK ,CMDPKT+?2
#6,CMDPKT+6
#100010,wSMBK
#CMDPKT R4
PC,WRTCHR
PC

<. +3>8177774

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

sMUST BE ON MOD 4 BOUNDRY.

J1ST
;2ND
s3RD
J4TH

WORD
WORD
WORD
WORD

IS
IS
IS
IS

TSOS COMMAND.
THE BUFFER LOW ADDRESS.
THE BUFFER HIGH »DDRESS.
THE BYTE/RECORD/FILE COUNT.

WRITE SUB~SYSTEM MEMORY CHARACTERISTIC BLOCK.

WSMBK:: 0
0
0
.EVEN

21ST WORD:: SEL O
;2ND WORD:: SEL 2
:3RD WORD:: SEL &

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

KTINIT

2942
2943
29446
2945
2946
2947
2948
2949
2950
2951
2952 021366
2953
2954 021366
2955 021372
2956 021376
2957 021402
2958 021406
2959 021412
2960 021414
2961 021422
2962 021424
2963 021430
2964 021432
2965 021436
2966 021440
2967 021446
2968 021450
2969 021456
2970 021460
2971 021464
2972 021466
2973 021474

PAGE 69

SEQ 0109

SUBROUTINE TO CHECK WETHER OR NOT WE'LL

TEST NXM

INPUTS
OUTPUTS

:
:

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

MEM(CK::

005037
005037
005037
005737
001407

003126
003130
003132
003136
002120

007777

005777

002120

003777

004737
000411
023727
103410
004737
062737
005237
000411
000410

021542

012746
012746
010600

005456
000001

062706
000207

000004

104417

18:

002120

001577

021542
000077
003126

003132

NXMFL G
NXML .
NXMH]
1238
18

;SAVE THE REGISTERS
JCLEAR THt FLAG
cCLEAR THE TEST ADDRESS LO
;CLEAR THE TEST ADDRESS HI
xs IT A 11/238?
:NO

JSR

PC NXMTST

SETUP THE ADDRESS

ST
BEQ

T23A
43

lS IT A 11/723A?
;NO

8MI

148

cMpP
8LO

021542
003134

SAVREG
CLR
(LR
CLR
TST
8EQ

2s:

cCMP

CMP
BLO
A ¥

14%:

15¢%:

13$

LSHIME , #5777
LSHIME , #3777
43

GREATER THAN 128K
NO

:SET THE FLAG AND EXIT
GREATER THAN 96K

JYES,23A/238 WITH 128K MEMORY

:GREATER THAN 64K BUT LESS THAN 92k?
:NO, CHECK 24K

JSR

PC NXMTST

;SETUP THE ADDRESS

cMpP
8LO

LSHIME #1577
148

JGREATER THAN 24K BUT LESS THAN 64K?
sNO, TELL THEM AND EXIT WITH FLAG CLEAR

ADD
INC

277 NXMH]
NXMFLG

;FOOL THE 11/02 & 11/03
:SET THE FLAG

PRINTF
MOV
MOV
MoV
TRAP
ADD

#NOMEM
#NOMEM,-(SP)

JTELL

JRETURN

B8R

JSR

13%:

LSHIME #7777
2%

8R
B8R

RTS

138

PC NXMTST

15¢
15%

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

JSET THE FLAG AND EXIT

;SETUP THE ADDRESS

JEXIT
;NOP FOR PRINTOUT
THEM & EXIT

*+eNO PRINTeetee

SOUTPUTS :NXMLO, NXMH]

2987
L408

2989
2990 021542
2991 021546
2992 021552
2993 021556

SUBROUTINE TP 5SeTUP 1HE NxM ADDRESS FOR TESTING

013701
010102

002120
000200
000177

NXMTST: MOV
ADD

BIC

MOV

LSHIME ,R1

sSETUP WITH NXM ADDRESS

#200, R1

sGET TOP OF MEMORY
JMAKE IT 1/0 BLOCK OR OTHER NXM

R1.R3

sRESAVE RESULTS

N77°R

TSV3 - GLOBAL AREAS

KTINIT

= SETUP KT11

2994
2995
2996
2997 0215764
2998
2999
3000
3001 021626
3002 021630
3003 021634
3004
3005
3006
3007
3008 021636

MACRO M1113

25-MAY=-82 (09:19

PAGE 69-1

MEMORY MANAGEMENT REGISTERS

060006
010137
000012

003130

042702
010237
000207

177700
003132

SEQ 0110

REPT
ASL
.ENDR
MOV
.REPT
ASR
.ENDR
BIC
MoV
RTS

ENDMOD

6
R1

sPUT IN PLACE FOR XFER

R1,NXMLO
10.
R2

sSAVE TEST ADDRESS LOW

#177700,R2
R2 ,NXMH]
PC

cDON'T WANT ILA!
sSAVE TZST ADDRESS HIGH
sRETURN

sPUT IN PLACE FOR XFER

oo~

b
—b

Voo~
b
—

(el

TSV4 - MISCELLANEOUS SECTIONS
MACRO M1113
25-MAY-82 09:19
KTINIT
=~ SETUP KT11 MEMORY MANAGEMENT REGISTERS

TSvé

H
9
PAGE 71

LTITLE

TSv4 - MISCELLANEOUS SECTIONS

BGNMOD

TSV4

SEQ 011

—

TSV ~ MISCELLANEOUS SECTIONS

PROTECTION TABLE

MACRO M1113

25-MAY-82 09:19

SEQ 0112

.SBTTL

19 021636

021636
20 021636
21 021446
22

1.9

PAGE

177777

1727777

LSPROT::

BGNPROT

PROTECTION TABLE

LMORD
=1, =1, =1, =1
ENDPROT

JNO DEVICE PROTECTION REQUIRED.

—

TSV4 = MISCELLANEOUS SECTIONS

INITIALIZE SECTION

MACRO M1113

25-MAY-82 09:19

.SBTTL

PAGE 73

SEQ 0113

INITIALIZE SECTION

27
53

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

30
g;

sIF "'START'® OR ''RESTART'’, SET QUICK-PASS FLAG AND BUS~INIT.
s1F "'CONTINUE'', NOTHING IS REQUIRED.

33
34

o=
I

:INSERT TEMPORARY JUMP TO ODT

37 021646
021646
38 021646
39 021652

40
41
42
43
44

021656
021664
021670
021674
021700

021700
021704
45 021706
C21706

46 021710
47 021716
48 021720

49 021724
50 021726
51 021732
52 021734
53 021740
5S4 021742
55 021750
56 021752
021752
021754
57 021756
021756
021762
58 021764
021764
59 021766
021766
021772
60 021774
021774
61 021776

021776
022002
62 022004
022004
63 022006
64 022006
022006

005037
005C>7

.
002216
003126

012737
005037
005037
005037

006356
003144
003124
002272

012700
104447

000036

103023

023737
103070
005737

100472
013701
006301
005761
001516
032761
001060

002172

002012

002172
003166

040000

000035

003166

1$:

103052

012700
104447

000040

103404

012700
104447
103031
104433

MOV
(LR
CLR
CLR
READEF

#EPRT1,EPRTSW
SIFLAG
KTENABLE
RAMS 12
#EF.CONTINUE

JSET UP PRIMARY MESSAGE FOR REPLACEMENT
JCLEAR ''SOFT INIT'® FLAG
sCLEAR TEST ABOVE 28K FLAG
sCLEAR RAM SIZE FOR RAMERR ROUTINE

CMP
BHIS
TST

UNITN,LSUNIT
3 3
DUFLG

JUNIT IN RANGE?
:BR IF NO.
;DROPPED UNIT?

MOV
#EF.CONTINUE
RO
TRAP
CSREFG
BNCOMPLETE 18
B8CC
18

003102

104432
000416

012700
104447

002170

BGNINIT
LSINIT::
408 :
CLR
EXTFEA
CLR
NXMFLG

000037

2$:

BMI]
NXTU
MOV
UNITN,R1
ASL
R1
TST
ERTABL(R1)
8EQ
SETU
8IT
#BIT14,ERTABL(R1)
BNE
NXTU
EXIT
INIT
TRAP
CSEXIT
LWORD
L10030-.
READEF
#EF.NEW
MOV
#EF .NEW RO
TRAP
CSREFG
BNCOMPLETE NXTU
BCC
NXTU
READEF
#EF.START
MOV
#EF . START
RO
TRAP
CSREFG
BCOMPLETE 2%
BCS
2%
READEF
#EF.RESTART

MOV
#EF .RESTART
RO
TRAP
CSREFG
BNCOMPLETE 31$%
BCC
31¢
BRESET
TRAP

CSRESE!

;BR IF YES

;DROPPED?
;DO NOTHING IF '‘CONTINUE''.

sTAKE NEXT UNIT IF NOT NEW PASS.

21ST PASS, BUS-INIT...
;BUS RESET.

—

TSV4 = MISCELLANEOUS SECTIONS

INITIALIZE SECTION

65 022010

66 022014
67 022020
68 022024

70
7
72 022030
73 022034
74 022034
75 022042
76 022046
77 022052
78 022056
79 022060

80
81
82
gz

022064
022066
022070
022074

85 022100
86 022100
87 022106
88 022112
022112
89 022114

90 022120
91 022126
92 02213¢C

93 022136
94 022140
022140
95 022142
96 022144
97 022144
98 022152
99 022154

100 022160
101 022162

022162

102 022164
103 022170

104

U5 022172
022172
106 022174
107 022176

005037
005037
005037
005037

012737
004737
004737
012700
005020
020027

177777
020720
021144
003166

104422
005237
023737
103423

012737

000401

002174

002174
022144
127777

002210

31s:

002172

002172
002172

002012

177777

003102

104444

000240

023727
101752
005737
001747
104421
032700
001343

20$:

308:

003366

002012

000001

002210

000100

000741

013700
104442

108:

103342

005037
005237
012001
010137

002172

003102
002210

002176

MOV
JSR
JSR
MOV

#-1,QvP
PC.ENVIRN
PC,KTINIT
#ERTABL ,RO

JMP
CLR

CLR

CMP

BLO
BR

CLR
JMP

SETU:

0.0DT7
SKIPT

(RO)+
RO, #ERTABE
308
43

JCLEAR 11/23A FLAG
;CLEAR 11/23B FLAG

:RETURN TO DEBUGGER

s .Q3ENTER THE DEBUGGER
sCLEAR THE SUBTEST ''SKIPPER'’

s...QUICK VERIFY,..
sSET ENVIRUNMENT.
sINITIALIZE KT MEMORY MANAGEMENT
sCLEAR THE ERROR TABLE

#=1,UNITN
DEVCNT

cINIT UNIT NUMBER...
sCLEAR COUNT OF DEVICES RUNNING

DOCLN
TRAP

CSDCLN

CMP

¢NUMBER OF TESTS RUN IN PASS
sCLEAR FATAL ERROR COUNT

;GO REPORT THE STATUS

CMP
8LO
MOV

NOP

SEQ 0114

QvP
PASRPT

C$BRK
UNITN
UNITN,LSUNIT
SETU
#-1,DUFLG

118

.M
LSUNIT

8LOS
TST
BEQ
RFLAGS
TRAP
8IT

NEWPAS
DEVCNT
NEWPAS
RO
CSRFLA
#1SR,RO

DORPT
TRAP
BR

CSDRPT
NEWPAS

GPHARD

UNITN,RO

8cC
CLR
INC
MOV
MOV

NXTU
DUFLG
DEVCNT
(RO)+
R
R1,CSRADDR

BNE

104424

TSTCNT
FATFLG

T23A
1238
#340,-(SP)
#208,-(SP)

PASRPT:

K 9
PAGE 73-1

CLR
CLR
MOV
MOV

3 ¥
: MOV
NEWPAS
CLR
NXTU:
BREAK
TRAP
INC

11$8:

108

109 022176
022176
022202

CLR
CLR

003136

003370

012737
005037

25-MAY-82 09:19

002204

005037

103774
000404
005037
000137

MACRO M1113

NEWPAS

MOV
UNITN,RO
TRAP
CSGPHRD
BNCOMPLETE NXTU

s.+.AND SET NEXT UNIT NUMBER.

sABORT, NO MORE UNITS.

sHOW MANY UNITS SELECTED?

:BR IF ONLY 1

JARE ANY STILL RUNNING?
;BR IfF NO

sSHOULD WE PRINT STATISTICS
;BR IF NO

cGET UNIT N P-TABLE POINTER.
¢BR IF UNIT NOT AVAILABLE.

:CLEAR ‘DROPPED’’ FLAG.
:GET 1ST REGISTER ADDRESS.
:ADDRESS OF REGISTERS OF UNIT UNDER TEST

(=4

L
Lo

P )
WIWWWWWWWN
NN PNOPNINININININ)
= b b b s

NOWNSWN=O
VNS WNI=O Y0 ~NOWN

CE
)

MACRO M1113

1$8:

PBUWNV=O
VNI NS WN =

b
b i

b e

b =

VIVAVIVAIVASS DN

(RO)+ ,R1
(RO) ,R2

MOV
MOV
Mov

R1,1IVEC
#INTR,(R1)+

TST
BEQ

QvP

SEQ 0115

:GET VECTOR ADDRESS.
sGET INTERRUPT PRIORITY
sSET INTERRUPT PRIORITY,
sSET INTERRUPT VECTOR POINTER...
s...VECTOR...
¢...AND PRIORITY,

R2,1PRI

IPRI, (R1)+

s1ST PASS 27

:NO, SKIP THE PASS 1 STUFF,

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

022242
022246
022250

013701
006301
052761
005037
023727
101416

001412

b ad el emd cd cnd

PAGE 73-2

MoV

sMov
MOV

002200
016306
002202

104421
032700

013746
012746
012746
010600
104417
062706

022344
022350
022352
022356

022364

022364
022364
022370
155 022372
022372
022372
156
157 022374
158

25-MAY-82 09:19

005037
013701
010102
062702
004737
103005
010137
012737

002172
100000
005770
002012

MoV
ASL

003166

8IS
CLR
CMP
8LOS

000001

RFLAGS
TRAP

001000

BIT
BEQ

002172
022374
000002
000006

108:

003104
002176

000002
016466

003104

177777

003102

2%:

PRINTF
MOV
MOV
MOV
MOV
TRAP
ADD

CLR
MoV
MOV
ADD
JSR
8CC
MOV
MOV

UNITN,R1

R1
#BIT15,ERTABL(R1)

EXTA
.M
LSUNIT
108
RO
CSRFLA

#PNT ,RO

108

#PUNIT ,UNITN

UNITN,=(SP)

sSAY DEVICE RUNNING
sCLEAR ERROR EXTENSION FLAG.
sARE WE TESTING MULTIPLE UNITS?
¢BR IF NO.

sYES == GET OPERATOR FLAGS.

+SHOULD WE PRINT UNIT #?
:BR _IF NOT.
:PRINT THE UNIT #

#PUNIT,=(SP)

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

NODEV
CSRADDR,R1

R1,R2

#TSSR,R2
PC . XNXM

R1,NODEV
#-1,DUFLG

cADDRESS OF FIRST REGISTER
¢START OF REGISTERS

sADDRESS OF TSSR REGISTER
sTEST BOTH CONTROLLER REGISTERS...
c...AND BR IF ALL OK.
sFLAG DEVICE AS MON-EXISTENT
sDROP THIS UNIT,

SFINALLY, SET CPU PRIORITY AND WE'RE DONE.
012700
104441

5s:

000000

L10030:

104411

045

116

045

PUNIT:

SETPRI

MOV
TRAP

ENDINIT

#PRI0O
#PR]00,RO

<ENABLE INTERRUPTS.

CSSPR!

TRAP

CSINIT

cASCIZ
.EVEN

/XNXINZA*vsee TESTING UNIT XD2XA wewan/

—

TSV4 -~ MISCELLANEOUS SECTIONS
ADD AND DROP UNITS SECTIONS

MACRO M1113

25-MAY-82 09:19

L
PAGE 74

SEQ 0116

160

.SBTTL

ADD AND DROP UNITS SECTIONS

14e

163

}gg

167 022442
022442
168 022442

LSAU::

164

169 022444

170 022446
171 022454
172 022462

022462

022464

022470
022474
022476
022500
173 022504
022504
022506
174 022510
};2

010001
006301
052761
042761

010046

012746

100000
040000

TO BE

000006

000167
000026
045

116

BGNAU
MOV
ASL

BIS
BIC
PRINTF

MOV

022510

012746
010600
104417
062706

(A) ADDED TO THE TEST LIST FOR THE FIRST TIME,

OR (B) RE-INSERTED IF IT HAD BEEN PREVIOUSLY DROPPED.

003166
003166

MOV

000002

045

177 022536

022536
178 022536

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

1$:

L10031:

104452

144

179

RO,R1
R1
#100000,ERTABL (R1)
#40000, ERTABL (R1)
#1$.RO

2 SET THE "ACTIVE'' BIT
: CLEAR THE ‘DROPPED'’ BIT

RO,~(SP)

#$,-(SP)

MOV
MOV
TRAP
ADD
EXIT
JWORD
-WORD
LASCIZ
"EVEN

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

ENDAU

; UNUSED.

TRAP

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

CSAU

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

}g?

182
183

; SUPVSR DOES THE 'DROPPING''.
THIS IS JUST TO TELL THE MAN.
; ‘'DROPPED'' UNITS ARE RE-SELECTED ON OPERATOR ‘‘STA'' OR '‘ADD'’

}gg

: UPON ENTRY, RO CONTAINS THE UNIT TO BE DROPPED.

184
185
186

c COMMAND, OTHERWISE REMAIN INACTIVE.
THE 'DISPLAY'' COMMAND
: WILL PRiNT ALL DROPPED UNITS, AND THE P~TABLES OF THOSE
: WHICH ARE STILL ACTIVE.

189 022540

190
191
192
193
194
195

TO BE REMOVED FROM THE TEST LIST.

022540
022540
022546
022550
022552
022560
022566
022566

022570

022574
022600
022602
022604
196 022610
022610
022612

012737
010001
006301
052761
000240

010046

012746

012746
010600
104417
062706
000167
000030

177777

003102

140000
000240

003166
000240

022614

000002

000006

LSDU:.

BGNDU

MOV
#-1,DUFLG
MOV
RO,R1
ASL
R1
BIS
#140000,ERTABL (R1)
240,240,240
PRINTF
#1$.RO

MOV

RO,~(SP)

MOV
MOV
TRAP
ADD
EXIT
.WORD
.WORD

#2,<(SP)
SP_RO
CSPNTF
#6,SP
DU
JSJMP
L10032-2-.

MOV

#$,-(5P)

: SAY DROPPED
399227777

TSV4 = MISCELLANEOUS SECTIONS

ADD AND DROP UNITS SECTIONS

}gg U22614
199 022644
022644
0226644
200

045

116

205 022652

206 022656
207 022662
208 022664
022664
022670
022672
022676
022700
022704
022706
022712
209 022714
210 022716
211 022720
212 022724
213 022724
022724
022724

045

25-MAY-82 09:19

18:
L10032:

104453

%85

203 022646
022646
204 022646

MACRO M1113

.éegél

/XNXA

PAGE

74-1

SEQ 0117

UNIT XDXA DROPPED/

ENDDU

TRAP

csouy

: AUTO-DROP CODE SECTION.

013705

002176

004737
103420

016340

012703

012727
000000
013727
000000
005367
001375
005367
001367
005303
001357
004737

104461

000550

LSAUTO::
108:

000372

002116
177772
177756

017272

208:
L10033:

BGNAUTO
MOV

MOV

JSR
8(Cs
DELAY
MOV
.WORD
MOV
LWORD
DEC
BNE
DEC
BNE
DEC
BNE
JSR

CSRADDR,RS

sPOINT TO DEVICE REGISTER

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

JWAIT FOR SSR TO SET
sLEAVE WHEN SSR IS SET
JWAIT FOR .25 SECONDS

#360. RS

ENDAUTO
TRAP

sENOUGH TIME FOR 2400°' REEL TO REWIND

sBUMP COUNTER DOWN
;KEEP GOING
:TRY AND DROP UNIT
; UNUSED.

CSAUTO

25-MAY-82 09:19

- O W00 NN

PN PONINI NN

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

.SBTTL

8 10
PAG E 75

SEQ 0118

CLEAN=-UP AND REPORT CODING SECTIONS

= =

THE CLEANUP CODING SECTION CONTAINS

THE CODING THAT [S

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

222 022726
022726
223 022726
226 022732

S 022736

228 022740
229 022746
230 022752
231 022752
022752
022752

BGNCLN

013705
005737
100405

012765
004737

LSCLEAN::

0
0

000000
016340

MOV
TST

BM]

000002

MoV

JSR

28:

L10034:

104412

CSRADDR,R5

DUFLG

#0,TSSR(R5)
PC.WAITF

:POINT TO DEVICE REGISTER

;"DROPPED’’ FLAG IS SET ON...

s...AND GROSS CONTROLLER FAULT...

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

ENDCLN
TRAP

CSCLEAN

THE REPORT CODING SECTION CONTAINS

THE

: "PRINTS'' CALLS THAT GENERATE STATISTICAL REPORTS.

236 022754
022754
237 022754
022754
022760
022764
022766
022770
238 022774
239 022776
2460 023000
2641 023002
242 023006
243 023010
264 023012
245 023014
2646 023016
247 023022
248 023024

012746
012746
010600
104416
062706
010246
010346
010446
012704
005003
011402
001467
100066
032702
001015
042702

023030
023032
023034
023040
023044
023046
023056
250 023054
251 023056
Sg% 023062

010246
010346
012746
012746
010600
104416
062706
000446
020227
001012

023064
023066

010346
012746

LSRPT::

023216
000001

003166
18:

040000
170000

#DEVSUM
#DEVSUM,
- (SP)
#1,-(SP)

TRAP
ADD
Mov
MOV
MOV
MOV

CSPNTS
¥4 ,SP
R2.,=(SP)
R3,-(SP)
R4 ,=(SP)
#ERTABL ,R4

;

GET START OF

MoV

(R&) ,R2

;

GET ERROR TABLE ENTRY & TEST

CLR

MOV

R3,-(SP)

MOV
MOV

#3,-(SP)
SP,RO

TRAP
ADD

2%:

43
31
#8IT14,R2
2%
#~C7777 ,R2

MOV

000010

$°,R0

GEQ
8PL
BIT
BNE
BIC

PRINTS
MOV

023253
000003

023323

PRINTS
MOV
MOV

MOV

000004

160000

SNRPT

BR
CMP
BNE

PRINTS
MOV
MOV

#DEVONL ,R3,R2
R2,=(SP)

ERROR TABLE.

; CLEAR UNIT NUMBER
:

ZERO IF UNIT NOT RUN

; WAS UNIT DROPPED?
: BR IF YES
; GET ERROR COUNT FJELD
;

#DEVONL ,-(SP)

CSPNTS
#10,SP

48
R2,#160000
38

#DEVNXR
R3
,
R3,=(SP)
#DEVNXR,=-(SP)

; WAS UNIT NON-EX:STENT?
: BR IF NO

IT.

TSV4 ~ MISCELLANEOUS SECTIONS

~ MACRO M1113

CLEAN-UP AND REPORT CODING SECTIONS

012746
010600

000002

062706
000431
020227
001012

000006

278 023536
279
280

010246
010346
012746
012746
010600
104416

062706
062704
005203
020427
103701
012604
012603
012602

170000

30$:

023466
000003
000010
000002

#2,-(SP)

BR
CMP
BNE

PRINTS
MOV
MOV
MOV
MOV
TRAP
ADD

000006

4$:

003366

BR
8IcC

PRINTS
MoV
MOV
MOV
MOV
MOV
TRAP
ADD
ADD

INC
CMP
BLO

MOV
MOV
MOV

L10035:

104425

271 023216
272 023253
273 023323
274 023405
275 023466

062706
000414
042702

023214

104416

3s:

DEVSUM:
:
DEVONL
DEVNXR:
DEVNRD:
DEVDRO:

ENDRPT

c1 0

PAGE

Mov
Mov
TRAP
ADD

023405
000002

—

258
259 023142
260 023146
023146
023150
023152
023156
023162
023164
023166
261 023172
262 023176
263 023200
264 023204
265 023206
266 023210

010346
012746
012746
010600

160001

(olelele
Ll
—b b b =d ON

HSNNOS~SO0ONS0O0

WWWNIN)
= =
= O

jelelelelololelololole]
NN

106416

25-MAY-82 09:19

7 S~ 1

R2,#160001

30$

#DEVNRD
,R3

SEQ 0119

WAS UNJT NOT READY AT STARTUP?

. BR [F NO.

R3,=(SP)

#DEVNRD
, - (SP)

#2.-(SP)

SP.RO
CSPNTS
86,SP
43
#AC7777.R2

#DEVDRO.R3,R2

R2,~(SP)
R3,~-(SP)

#DEVDRO,~(SP)

#3,-(SP)

CSPNTS

#10,SP
#2.R4
R3
R4, #ERTABE
18
(SP)+ R4

(SP)+,R3
(SP)+ R2

s UNUSED.

TRAP

CSRPT

-ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
ASCIZ
.EVEN

/INTADEVICE STATUS SUMMARY
: XN/
/XA UNIT 2D3XA
ONLINE,
ERRORS = XDIN/
/ZA
UNIT XD3XA
DROPPED, NON-EXISTENT REGISTERIN/
/ZA
UNIT XD3XA
DROPPED, NOT READY AT STARTUPIN/
/%A
UNIT ZD3ZA
DROPPED, ERRORS = ZDIN/

ENDMOD

TSV? = HARDWARE TESTS 1-8

MACRO M1113

CLEAN-UP AND REPORT CODING SECTIONS

25-MAY-82 09:19

5
9
10 023536
16

023536

TSV7::

D 10

PAGE E 7 77

LTITLE

TSV? = HARDWARE TESTS 1-8

BGNMOD

TSV7

SEQ 0120

TSV7 ~ HARDWARE TESTS 1-8
TEST
1: INITIALIZE #6 TEST

MACRO M1113

25-MAY-82 09:19
.SBTTL

.'0

TEST

E 10

PAGE 78
1:

SEQ 0121

INITIALIZE #4 TEST

STHIS TEST VERIFIES THAT WRITING INTO THE TSSR RETURNS THE

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

023536
023536
023536

BONTST

012737

006356

002170

MOV

#EPRT1,EPRTSW

;SET UP PRIMARY ERROR MESSAGE

JSR
MOV
JSR
MOV

PC,DSBINT
#TST2110,R0
PC,TSTSETUP
#5.LOOPCNT

;DISABLE INTERRUPTS
*ASCII MESSAGE TO IDENTIFY TEST
:D0 INITIAL TEST SETUP
*PERFORM 5 [TERATIONS

JSR
JSR

PC,T21REST
PC.T21RT2

:SET COMMAND PACKET
SSET UP OTHER COMMAND PACKET

STEST 1

023544
023550
51 023554
023560
023566
023566
023572

004737
012700
004737
012737

016274
024474
016600
000005

004737
004737

024516
024606

002206

T21L00P:

"'t.'..tfi..'..'.'....t""'.tt.....'tt".tt't'..."...Q.t'fi..".."

:ISSUE CONTROLLER *'SOFT'* INITIALIZE - CARRY BIT CLEAR IF ERROR
62
63 023576
64 023604
65 023610
66 023612
023612
023616
023620

023624
023626
023632
023634
023640
023642
023646
023650
023654
023656
023656
023660
023662
023664

75 023666
76 023666

:‘.""t..t.".i.".t""'."".'tt..fi'.t.t".fii..'t'!"t.'.'.I'Q..Q
012737
004737
103426

012727
000000
013727
000000

000250

005367
001375

024152

118:

;SET DELAY ROUTINE

8CS
DELAY

20$
250

‘BR IF INIT WAS OK
:DELAY FOR A REWIND TO FINISH

PC,SOF INIT

177772
177756

DEC
BNE
INC
MOV
ERRDF

002212

104455

000145
003650
012124
012704

#65000.,7210LY

JSR

002116

024152

010001

MOV

T210LY
118
FATFLG
RO,R1
ERRNO, SFIERR, SF IMSG

:D0 INITIALIZE ON CONTROLLER

MOV
.WORD
MOV
.WORD
DEC
BNE
DEC

#250. (PC)+
0
LSDLY, (PC)+
O
-6(PC)
.~4
222(PC)

TRAP

CSERDF

.WORD

SFIERR

BNE
:BUMP COUNTER DOWN
‘BR, IF MORE TIME TO GO
‘BUMP COUNT
*CONTENTS OF TSSR REGISTER
*FATAL ERROR TSSR WAS NOT OK

.WORD

024130

208

mov

#T21PACKET R4

.WORD

;SUBROUTINE NEEDS PACKET ADDRESS

.~20

101

SFIMSG

—

TSV7 ~ HARDWARE TESTS 1-8
1: INITIALIZE #4 TEST

MACRO M1113

F 10
PAGE 78-1

25-MAY-82 09:19

AAAAALALAALAA MR SRS

ARAR

AR AR AR

SEQ@ 0122
AR

a1l

]2 )

{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
.

MAAAAAAAS

84 023672
85 023700
86 023704
87 023706
91 023712
92 023714
023714
023716

013737
004737

002172
010752

005237
010001

002212

103407

024150

012704
010465
004737

024240
000000
016426

024250
024251

(=]
N
H

§§

—
NIOO NOC VI ESS NN

b
b
b

b wmbd ond
b b

wud
d
b

b
b

b b cud

005237

024046

002212

000150
024353
015564

024056

104406

123 024056
124 024060
125 024062
129 024062

024062

000406
104455

UNITN,T21DSW

222212222222

:SET UP DRIVE NUMBER
sISSUE WRITE CHARACTERISTICS
sBR, IF COMMAND ISSUED OK
<BUMP COUNT
sSAVE CONTENTS OF TSSR

PC,WRTCHR

238$

sWRITE CHARACTERISTISC FAILED
TRAP

000000
016340
000002

000002

002212

37%:

38%:

TRAP

CSCLP

MOV
MOV

#T21PK2
R4
R4 ,TSOB(RS)

SWRITE SUBSYS MEM PACKET
¢ ISSUE COMMAND

308

:BR, IF NO ERROR
JERROR, SAVE TSSR
;BUMP COUNT
sTSSR NOT CORRECT AFTER WRT. MISCELLANEOUS

PC,CHKTSSR

sWAIT FOR SSR

RO,R1

FATFLG

ERRNO,T21SSR,PKTSSR

BIC
BIS
BIT
BNE
CMP
BEQ
INC
ERRHRD

#0,TSSR(RS)

PC,WAITF

TSSR(RS)
,R1
R1,R2
#-C<HIADDR>
,R2
#SSR!NBA,R?

TRAP

CSERHRD

.WORD

PKTSSR

TRAP

cSCLPY

.WORD
.WORD

. SCOPE LoOOP

(KLOOP
MOV
JSR
MoV
MOV

35¢:

WRTMSG
SFIMSG

sWRITE MISCELLANEOUS CONT/READ STATUS
sFUNCTION SELECTION BIT

308:

CSERHRD
102

.WORD
.WORD
.WORD

#200,721BS0
#10,7218S1

INC
ERRHRD

1046456

024050
024052
024054

Movs
Mov8s

MOV

b cnd

25$:

176377
002200
000100
001406

CKLOOP

JSR
BCS

104456
000147
024256
012136
104406
012765
004737
016501

JSR
BCS
INC

23%:

112737

010001
005237

MOV

ERRHRD

000200
000010

103407

A AARA

MOV

106456
000146
005054
012124
104406
112737

103
T21SSR

cISSUE A SOFT INITIALIZE
¢WAIT FOR JUST THE SSR BIT TO SET

READ THE TSSR BA(K

R1,.R2

sWORK REGISTER
sCLEAR OUT OTHER BITS
sSOME OF THE BITS THAT SHOULD BE SET
;1S OFF LINE BIT SET
sBR, IF DRIVE IS OFF LINE
SEXPECTED (R2) = RECEIVED (R1)

FATFLG

:BUMP COUNT

#OFL R

38%

373

ERRNO, T21AM3,EXPRE(C

(kLooP

;BR,

THEY ARE EQUAL

(OK)

" ERROR TRYING TO INIT AFTER WRI TE MISC.

cLOOP IF SELECTED

TRAP

+WORD
-WORD
-WORD

CSERHRD
104
T21AM3
EXPREC

TRAP

cscLPl

TRAP

CSERDF

408

sSKIP OVER OFF-LINE STUFF

ERRDF

ERRNO, T210FL ,EXPREC

sDRIVE IS OFF LINE

TSV7 = HARDWARE TESTS 1-8

TEST

INITIALIZE #4 TEST

024064
026066
024070
130 024072
131 024G76
132 0264100
133 024106
134 024106
024106
135 024110

136 0264114
137 024116
138 024122

024122
024124

0G0151
024453
015564
004737
000241
106037
001316
104406
004737

103002
000137

104432
000524

017272
024251

MACRO M1113

6 10

PAGE

PC,CKDROP

508:

JSR
CLC
RORB
BNE
CKLOOP
JSR

PC,TSTLOOP

63$:

8CC
JMP
EXIT

40$:

016546
023566

25-MAY-82 09:19

721851
258

638
T21L00P
TST

78-2

SEQ 0123

.WORD
.WORD
.WORD

105
T210FL
EXPREC

TRAP
.WORD

CSEXIT
L10036~.

:TRY AND DROP UNIT
sDON'T LET CARRY SNEAK IN
sTRY NEXT 'LOWEST'" BIT POSITION
sLOOP UNTIL ALL EIGHT BITS TESTED
:SCOPE LOCP
TRAP
cscLP
;D0 WE NEED TO ITERATE TEST
s8R, IF NO LOOP REQUIRED
JEXECUTE AGAIN
;ALL DONE THIS TEST

TSV7 ~ HARDWARE TESTS 1-8
1:

INITIALIZE #4 TEST

25-MAY-82 09:19

H 10
PAGE 79

SEQ 0124
;0

sLOCAL STORAGE FOR THIS TEST

H
&

[=]
n

[ aloal > QAL IV IV IV IV IV IV IV IV ¥ W

100004
0246140
000000
000012

0264152
024154

024154
000000
000024
000000
000000
000000

T21DATA:

T21DSW:
T21DLY:
T218FR:

100004

521DATA

.WORD

10.

.'"WORD
.WORD
-WORD
.WORD
.WORD
.WORD
.BLKW

T218FR
0

20.
0
0
0
5.

s COMMAND PACKET FOR TEST

sWRITE CHARACTERISTICS COMMAND, WITH,

sADDRESS OF CHARACTERISTICS BLOCK

sSTARTING VALUE OF BLOCK SIZE
sCHARACTERISTICS DATA BLOCK
sADDRESS OF MESSAGE BUFFER

sLENGTH OF MESSAGE BUFFER
;DRIVE SELECT WORD
sDELAY COUNTER
sMESSAGE BUFFER

JWRITE SUBSYSTEM MEMORY COMMAND PACKET

024240
100206

9 024246

NNNNY NNNNW o
~W
-0

.=<.+10>8177770

T21PACKET:
.WORD
.WORD
.WORD

- o

W Lo

oo
N[
£3
N ~N

2 024250

5 024252
6 024254

T21PK2:

024250
000000
000006

000
000
000000
000000

T218F2:

1218S0:
T21BS1:

T21S2:
T21S3:

=<, +10>8177770
.WORD
.WORD
.WORD
.WORD

100206

T218F2
0
6.

SWRITE SUB SYS MEM COMMAND, IE AND A(CK
sADDRESS OF SELECT BLOCK DATA
;SIZE OF DATA PACKET

.EVEN

.BYTE

.BYTE
.WORD
.WORD

OOO0O

W=O VNN
WNI—=O VO~

024130

Voo~

TEST

MACRO M1113

;BSELO AREA --- '‘COMMAND'' BYTE

sBSEL1 AREA
sSEL 2 AREA
sDATA AREA

ACK

TSV7 - HARDWARE TESTS 1-8

TEST

INITIALIZE #4

MACRO M1113

TEST

181
182

25-MAY-82 09:19

I 10

PAGE 80

SEQ 0125

}gz

sLOCAL TEXT MESSAGES FOR TEST

185
186 024256
187 024353
188 024453
189 024474
190

127
124
104
MM

122
123
162
156

111
123
151
151

192

T21SSR: .ASCIZ
T21AM3: _ASCIZ
T210FL: .ASCIZ
TST211D:
.EVEN

°'WRITE MISCELLANEOUS CONTROL/READ STATUS Command Not Accepted’
‘TSSR Init. Failed After WRITE MISCELLANEOUS CONRTOL/READ STATUS'
'Drive is OFFLINE®
LASCIZ
'Initialization #4°

*
JROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES

193
}gg

JWRITE SUBSYSTEM MEMORY COMMAND

196
197
198 024516
199 024516

JT21REST:

200 024522
201 024526
202 024532
203 024536
204 024540
205 024544
206 024550
207 024552
208 024556
209 024560
210 024562

012701
012721
012721
005021
012721
012721
005021
012721
005021
005011
012702

212
213
214
g}g

005742
020227
001371
000207

211 024566
024574
024576
024602
024604

217
218 024606
219 024606
220 024612
221 024616
222 024622
223 024626
224 024630
225 024634
226 024636
227 024642
228 024644
229 024646
230 024650
024650
024650

012762

024130
100004
024140
000010
024154

000024

000020

177777

024154

64$:

000000

T21RTZ:
012701
012721
012721
005021
012721
005021
012701
005021
005011
000207
106401

024240
100206
024250

000006
024250

SAVREG

;SAVE THE REGISTERS

MOV
MOV
MOV
CLR
MOV
MOV
CLR
MOV
CLR
CLR
MOV

#T21PACKET R1
#100004,(R1)+
#T21DATA,(R1)+
(R1)+
#8.,(R1)+
#T21BFR,(R1)+
(R1)+
#20.,(R1)+
(R1)+
(R1)
#20,R2

JNUMBER OF LOCATIONS TO BE CLEARED

TST
CMP
BNE
RTS

=(R2)
R2,#0
648
PC

JNEXT LOCATION
;CHECK R2 FOR ZERO
;BR, IF NOT AT ZERO YET
JRETURN

MOV

SAVREG
MOV
MOV
MOV
CLR
MOV
CLR
MOV
CLR
CLR
RTS
ENDTST

0177777.T218FR(R2)

#T21PK2 ,R1
#100206, (R1)+
#T218F2,(R1)+
(R1)+
#6.,(R1)+
(R1)+
#T218F2 ,R1
(R1)+
(R1)
PC

;START OF THE PACKET
JWRITE SUBSYSTEM MEM. WITH ACK,
;ADDRESS OF CHARAISTICS DATA BLOCK
SEXTENDED ADDRESS
;SIZE OF DATA BLOCK IN BYTES
;ADDRESS OF MESSAGE BUFFER
JLENGTH OF MESSAGE BUFFER

sALL ONES TO MESSAGE BUFFER

sSAVE THE REGISTERS
JSTART OF THE PACKET
JWRITE SUBSYSTEM MEM, WITH ACK, IE
:ADDRESS OF DATA BLOCK
JEXTENDED ADDRESS
:SIZE OF DATA BLOCK IN BYTES

;sADDRESS OF DATA FOR WRT S8 >YS MEM
JRETURN
L10036:

TRAP

CSETST

p——e

TSV? - HARDWARE TESTS 1-8

TEST

232

INITIALIZE #4 TEST

MACRO M1113

25-MAY-82 09:19

J 10

PAGE 81

SEQ 0126

TSV? - HARDWARE TESTS 1-8
MACRO M1113
TEST
2: OFF=LINE AND REJECT REWIND

25-MAY-82 09:19

.SBTTL

TEST

K 1 10
PAGE 8 2

SEQ 0127

2: OFF-LINE AND REJECT REW'ND

sTHIS TEST VERIFIES BASIC TAPE-MOTION COMMAND DECODING AND BASIC
sOPERATION OF THE REWIND POSITIONING COMMAND. IT DOES NOT
sNECESSARILY DEMONSTRATE THAT THE TRANSPORT CAN BE REWOUND FROM AN
sARBITRARY POSITION ON THE TAPE. SUBSEQUENT TESTS IMPLICITLY
sCHECK THE OPERATION OF THE REWIND COMMAND SINCE THEY MUST
sTYPICALLY REWIND THE TAPE IN THE NORMAL COURSE OF THEIR TEST
sSEQUENCES. THE TEST CONSISTS OF THE FOLLOWING “HREE SUBTESTS

247 024652
024652
248 024652
253 024660
254 024664
255 024670
259 024674

BGNTST

012737
004737
012700
004737
012737

006356
016274
027137
016600
000005

002170

MOV
JSR
MoV
JSR
MOV

002206
b

12
#EPRT1 ,EPRTSW
PC,DSBINT
#1ST2210,R0
PC,TSTSETUP
#5,LO0PCNT

sSET UP PRIMARY ERROR MESSAGE
sDISABLE INTERRUPTS
sASCI1 MESSAGE TO IDENTIFY TEST
sDO INITIAL TEST SETUP
;PERFORM 5 ITERATIONS

ITEST 2, SUBTEST 1
sVERIFIES THAT ALL TAPE-MOTION COMMANDS (WITH VALID
sMODE CODES) TERMINATE WITH FUNCTION REJECT AND
sOFF=LINE STATUS WHEN THE TAPE TRANSPORT IS OFF-LINE.
;THE SUBTEST OPERATES BY PLACING THE CONTROLLER INTO
sEXTENDED MODE, SELECTING UNIT 7, AND ISSUING EACH
sTAPE~MOTION COMMAND, CHECKING, AFTER EACH COMMAND,
sTHAT FUNCTION REJECT TERMINATION WAS ACCOMPLISHED.
*

270 024702
024702
024702
024702
272 024704
273 024710

T22L00P:
104402

004737
004737

027172
027264

BGNSUB
JSR
JSR

$22355353555>> BEGIN SUBTEST >>>>5>5>>>>>
PC,T22REST
PC,T22RT?

IRAP

JSET COMMAND PACKET
JSET UP OTHER COMMAND PACKET

($BSUB

;'tttttttt.ttttttttt't't'ttttt.tttt.tt't.tttttttttttt.tttt'ittttttt

EISSUE CONTROLLER °''SOFT'* INITIALIZE = CARRY BIT CLEAR IF ERROR
Ett'ttt...t.tttttttttt't'tt'lttttttttlQtt.titttlt.tttttt'ttttt.ttt'
281 024714
282 024720
283 024722
287 024726
288 024730
024730
024732
024734
024736
289 024740
290 024740

004737
103407
005237
010001

016064
002212

104455
000311
003650
012124

012704

JSR

PC,SOFINIT

;D0 INITIALIZE ON CONTROLLER

MOV
ERRDF

RO,R1
ERRNO,SFIERR,SFIMSG

JCONTENTS OF TSSR REGISTER
JFATAL ERROR TSSR WAS NOT OK
TRAP
WORD
.WORD

8CS
INC

208
FATFLG

208

026220

sBR IF INIT WAS 0K
:BUMP COUNT

.WORD

MOV

#T22PACKET R4

s SUBROUTINE NEEDS PACKET ADDRESS

CSERDF

201
SFIERR

SFIMSG

TSV7 =~ HARDWARE TESTS 1-8
MACRO M1113
TEST
2: OFF~LINE AND REJECT REWIND

L 10
PAGE 82-1

25-MAY-82 09:19

SEQ 0128

SNANEARAAAARAAR AN NARN

AN NN CIARR RN A RNV NARRRAANNNNANNNNAGANNANANNORE
D

‘WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
[4

AR AR AN AR A AN AN N RN AANA

298 024744
299 024750
300 024752
304 024756
305 024760
024760
024762
024764
024766
306 024770
024770
307 024772
308 024776
309 025002
310 025004
314 025010
025010
025012
025014
025016
315 025020
025020
316 025022
025022
317 025024
318 025030
319 025032
320 025040
321 025046
322 025052
323 025056
324 025062
325 025064
326 025066
330 025072
025072
025074
025076
025100
331 025102
025102
332 025104

004737
103407
005237
010001

010752

JSR
8CS
INC

002212

104406

013701
032701
001407

005237

026250
000004

MOV

BIT
BEQ
INC
ERRDF

002212

027052
012124

112737
112737

012704
010465
004737
103407
010001
005237

24$:

012704

TRAP

T?ZBFR#6.R1

#4 R1

;PICK UP XTSO

000200
000010

026330

TST
BNE
MOv8
MOv8
MOV
MoV
JSR
8CS
MOV
INC
ERRHRD

026341
026340

000000
016426

002212

202

TRAP

CSCLPT

sNO,PROCEED WITH TESTING

ERRNO, T22WLK, SFIMSG

sTAPE

:BUMP COUNT

IS WRITE LOCKED

TRAP

#T25PK2 R4

R4, TSDB(RS)
PC.CHKTSSR

30%

203
T22WLK

TRAP

CSDCLN

TRAP

cscLPt

FATFLG

sBR IF SWITCH IS ON
SWRITE MISTELLANEOUS CONT/READ STATUS
sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH)
SWRITE SUBSYS MEM PACKET

s ISSUE _COMMAND

:WAIT FOR SSR
IF

NO ERROR

sERROR, SAVE TSSR
:BUMP COUNT
s TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS
TRAP

30s:

CkLOOP

026220
AN

AN RN

cLOOP IF SELETED
#T22PACKE
R4
T

Mov

204
T22SSR
PKTSSR

TRAP

cscLP

s SUBROUTINE NEEDS PACKET ADDRESS

AN AN N AN AN AN RO RN RN RN AR A AN AN R AR AN AN AN RANNNEARARNNNINGRNANNS

340 025110

004737

010752

AR NN

JSR

NN R

R RO RN R RN NN AN RN NN AN RN RN AR AR AR R AN AN AN AR RORRAN

PC,WRTCHR

CSERHRD

WORD
.WORD
.WORD

‘WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
NN AR AR

SFIMSG

¢CHECK “OR EXTENDED FEATURES SW SWITCH

¢BR,

ERRNG, T22SSR,PKTSSR

CSERDF

JWORD
.WORD

.WORD

EXTFEA
508
#200,1228S1
#10, 722850

WRTMSG
SFIMSG

;IS UNIT WRITE-LOCKED?

24$

FATFLG

CSERHRD

.WORD

.WORD
.WORD

ckLoor

002216

104456
000314
026360
012136
104406

:BR, IF COMMAND ISSUED OK
cBUMP COUNT
sSAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED

DOCLN

104444
104406

ERRNO, WRTMSG, SFIMSG

sISSUE WRITE CHARACTERISTICS

(kLooP

23%:

104455
000313

005737
001041

23$

ERRHRD

012124

AN AN ANRANNARANANAANANNANANR
NARANCN
ONE NN ORS

PC,WRTCHR

MOV

104456
000312
005054

sISSUE WRITE CHARACTERISTICS

—

J—

TSV? ~ HARDWARE TESTS 1-8

TEST

OFF~LINE AND REJECT REWIND

341
342
346
347

025114
025116
025122
025124
025126
025126
025130
025132
348 025134
025134
349 025136
350 025142
351 025146
352 025150
356 025154
025154
025156
025160
025162
357 025164
025166
358 025166

359 025172
360 025176

103407
005237
010001

104406
016501
032701
001006
005237

011337
012704

010465
004737
016501

365 025222

020102

366 025224

367 025226
371 025232
025232
025234
025236
025240
372 025242
025242
373 025244
374 025246
375 025252
376 025254
377 025256
378 025256
025256
025256

379 025260

380 025266
381 025270
382 025274

50%:
000002
000100
002212

012702

001406

005237

60$%:
026346

026330
026330

65$:

000000
016340
000002

80$:
177777

908:

104403

023727

103402
004737

002212
017272

000017

BR,

IF COMMAND [SSUED OK

*BUMP COUNT

*SAVE CONTENTS OF TSSR

*WRITE CHARACTERISTISC FAILED
TRAP

;SCOPE LOOP
TSSR(RS) ,R1
#OFL,R1
608
FATFLG
ERRNO, T220FL ,SFIMSG

#T22RD,R3

MOV

#SSR!SC!OFL!BIT1!8IT2,R2:SET UP EXPECTED

BEQ

80§

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

TRAP

CS$CLPI

JTAPE MOTION COMMAND IN PLACE
‘R4 = POINTER TO PACKET
:ISSUE COMMAND
SWAIT FOR SSR TO SET
;GET TSSR CONTENTS

SARE THEY EQUAL

FATFLG
ERRNO,T22TM, EXPRE(C

:BUMP COUNT
JTSSR INCORRECT AFTER TAPE MOTION CMD
TRAP
CSERHRD
.WORD
207
"WORD
T22TM
-WORD
EXPREC
;LOOP IF SELECTED
TRAP
CS$CLP1
;POINT TO NEXT COMMAND
SEND OF THE COMMANDS YET
‘BR, IF DONE
JMORE COMMAND(S) TO GO

(R3)
+
#177777.(R3)
90$
65$

ENDSUB

BLO
JSR

205
WRTMSG
SFIMSG

R1,R2

CKLOOP
ST
CMP
BEQ
B8R

CSERHRD

.WORD
WORD
.WORD

:GET TSSR CONTENTS
:CHECK FOR THE OFFLINE BIT SET
:BR, IF OFFLINE (GOOD)
*BUMP COUNT
;OFF LINE SHOULD HAVE BEEN SET (BAD)
TRAP
CSERDF
.WORD
206
"WORD
T220FL
"WORD
SFIMSG
;LOOP IF SELECTED
TRAP
CS$CLP1
;POINTER FOR COMMANDS

(R3), TéZPKZ
#T22PK2,Rb

CMP

999§:

SEQ 0129

MOV
MOV

INC
ERRHRD

104456
000317
026630
015564

104406
005723
022713
001401
000746

MOV

CMP

002212

508
FATFLG
RO,R1
ERRNO,WRTMSG,SF
IMSG

CkLOOP

MOV
JSR
MOV

100306

M0
PAGE 82-2

CKLOOP
MOV
BIT
BNE
INC
ERRDF

104455
000316
026555
012124
104406
012703

25-MAY-82 09:19

BCS
INC
MoV
ERRHRD

002212

104456
000315
005054
012124

361 025202
362 025206
363 025212

364 025216

MACRO M1113

FATFLG,#15.

999§
PC,CKDROP

:BR, IF OK ESP. FUNCTION REJECT

$O35555333>>> END SUBTEST >333>333>>>>>
L10040:
TRAP
CSESUB

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

TSV? - HARDWARE TESTS 1-8

TEST

MACRO M1113

2: OFF-LINE AND REJELT REWIND

384

N 10

25-MAY-82 09:19

PAGE 83

SEQ 0130

385

388

:VERIFIES THAT A REWIND COMMAND, WITH THE CLEAR VOLUME

sTEST 2, SUBTEST 2

%gg
389

sCHECK (CVC) BIT CLEAR, IS REJECTED IF THE VOLUME CHECK
s (VCK) FLAG IS SET.
:

390
39

395

394 025274

025274
025274
395 025276
%g? 025302

’
104402
004737
004737

027172
027264

JSR
JSR

398

:>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>>
T2.2:

TRAP
sSET COMMAND PACKET
:SET UP OTHER COMMAND PACKET

PC,T22REST
PC,T22RT2

238

L L L L Ty

erupr

éISSUE CONTROLLER °''SOFT'' IMITIALIZE -~ CARRY BIT CLEAR IF ERROR

28;

403
404
405
406
410
411

BGNSUB

csssus

étttttttt'tttttttttttttttfittttttttfifii*ttttttttttitttttttttitttttttt

025306
025312
025314
025320
025322

025322
025326
025326
025330
612 025332
2}2 025332

004737
103407
005237
010001

016064
002212

104455
000320
003650
012124
012704

208:

026220

JSR
8CS
INC
MOV
ERRDF

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

sDO INITIALIZE ON CONTROLLER
sBR IF INIT WAS 0K
;BUMP COUNT
:CONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT 0K

MOV

#T22PACKET R4

s SUBROUTINE NEEDS PACKET ADDRESS

TRAP
.WORD
.WORD
.WORD

415
416
2};

RN A A AN AN AR RN R R AR R R AR R AR AN AN ANANNANRNRRNANANR NN ES
:
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

419
420
421
422
423
427
428

A
025336
025342
025344
025350
025352

004737
103407
005237
010001

025352
025354
025356
025360
429 025362
2%? 025366

104456
000321
005054
012124
005737
001041

432 025370
433 025376

112737
112737

434 025404

435 025410
436 025414

012704

010465
004737

010752

002216

026330

000C00
016426

JSR
B(CS
INC
MOV
ERRHRD

002212

000200
000010

23$:
026341
026340

AR RN R

R AR AN A RN

PC,WRTCHR
238
FATFLG
RO,R1
ERRNO,WRTMSG,SF
IMSG

CSERDF
208
SFIERR
SFIMSG

AR RN N RS

cJSSUE WRITE CHARACTERISTICS
cBR, IF COMMAND ]SSUED 0K
sBUMP COUNT
:SAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED

TST
BNE

EXTFEA
508

TRAP
(SERHRD
.WORD
209
.WORD
WRTMSG
.WORD
SFIMSG
sCHECK FOR EXTENDED FEATURES SW SWITCH
¢BR IF SWITCH IS ON

MOVB
Mov8e

#200,122BS1
#10,17228S0

¢WRITE MISCELLANEOUS CONT/READ STATUS
sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH)

MOV
MOV
JSR

NT20PK2,R4

R4, TSDB(RS)
PC,CHKTSSR

WRITE SUBSYS MEM PACKET

s ISSUE COMMAND
;WAIT FOR SSR

TSV? -~ HARDWARE TESTS 1-8
MACRO M1113
TEST
2: OFF-LINE AND REJECT REWIND

6437
438
639
443

025620
025422
025424
025430

103407
010001
005237

025430
025432
02564346
025436

104456
000322
026360
012136

025440
222 025442

104406
012704

444 025440

25-MAY-82 09:19

SEQ 0131

B(CS
MOV
INC
ERRHRD

002212

308 :

026220

308
RO,R1
FATFLG
ERRNO,T22SSR,PKTSSR

CkLOOP

MOV

4‘7

1
PAGE 83-1

JBR, IF NO ERROR
sERROR, SAVE TSSR
JBUMP CUUNT
JTSSR NOT CORRECT AFTER WRT. MISCELLANEOUS

TRAP
LWORD
.WORD
.WORD

;LOOP IF SELECTED

TRAP
CSCLP
;SUBROUTINE NEEDS PACKET ADDRESS

#T22PACKET R4

;tt.ttt'ttttttttttttt"tt"ttttttttttttt't."tQ'tttttt.tt"t"t.ttt

448
228

:
SWRITE CHARACTERISTICS COMMAND

451
452
453 025446

:-'ttttttt!ttttt'tttt.ttttt.ttt't'tt.tttt.t.ttt.t"t'ttttttt't'tt'tt

454
455
459
460

025452
025454
025460
025462

004737
103407
005237
010001

025462
025464
025466
025470

104456
000323
005054
012124

025472
025474
025500
025504
025506

104406
016501
032701
001006
005237

025512
025514
025516
025520
470 025522
025522

104455
000324
026555
012124

461 025472

462
463
464
465

CS$SERHRD
210
T22SSR
PKTSSR

469 025512

471 025524
472 025532
473 025536
474 025542
475 025546
476 025552
477 025556
478 025560
479 025562
483 025566

104406

012737
012704
010465
004737
0165017
012702
020102
001406
005237

025566
025570
025572
0255764

104456
000325
026724
015564

025576

104406

484 025576

485 025600

010752

JSR
BCS
INC
MOV
ERRHRD

002212

50$:

000002
000100

102210
026330
000000
016340
000002
100306

ERRDF

026330

60s$:

(kLooOP

65%:

MOV
MOV
MOV
JSR
MOV
MOV
CMpP
BEQ
INC
ERRHRD

002212

80$:

PC,WRTCHR
508
FATFLG
RO,R1
ERRNO,WRTMSG,SFIMSG

CkLOOP

MOV
8IT
BNE
INC

002212

(CALL

TO WRTCHR)

;ISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND [SSUED OK
;BUMP COUNT
;SAVE CONTENTS OF TSSR
JWRITE CHARACTERISTISC FAILED
TRAP

;SCOPE LOOP

TSSR(RS) ,R1
#OFL R
608
FATFLG

ERRNO, T220FL,SFIMSG

WORD
.WORD
.WORD

TRAP
JGET TSSR CONTENTS
JCHECK FOR THE OFFLINE BIT SET
;BR, IF OFFLINE (GOOD)
;BUMP COUNT

;sOFF LINE SHOULD HAVE BEEN SET

;LOOP IF SELECTED

TRAP
.WORD
.WORD
WORD

CSERHRD
211
WRTMSG
SFIMSG
CSCLPY

(BAD)

CSERDF

212
T220FL
SFIMSG

TRAP

cscLPt

TRAP
.WORD
.WORD
.WORD

(SERHRD
213
T22RWJ
EXPREC

TRAP

cscLp

#102210,122PK2
;POSITION COMMAND (REWIND MODE)
#T122PK2 R4
;R4 = POINTER TO PACKET
R4,TSDB(RS)
; I1SSUE COMMAND
PC,WAITF
JWAIT FOR SSR TO SET
TSSR(RS) ,R1
JGET TSSR CONTENTS
#SSR!SC'OFL'BIT1!BIT2,R2;SET UP EXPECTED
R1,R2
JARE THEY EQUAL
803
JBR, IF OK ESP. FUNCTION REJECT
FATFLG
JBUMP COUNT
ERRNO,T22RWJ ,EXPREC
sTSSR INCORRECT AFTER TAPE MOTION CMD

ckLoopP

;LOOP ]F

ENDSUB

JO2253353355> END SUBTEST >>>>>>>>>>>>

SELECTED

TSV7 ~ HARDWARE TESTS 1-8
MACRO M1113
TEST
2: OFF~LINE AND REJECT REWIND

486
487
488
489

025600
025600

025602
025670
025612
025616

104403

023727
103402
004737

25-MAY-82 09:19

PAGE 83-2
SEQ 0132

L10041:
002212
017272

000017

999$:

cMp
8LO
JSR

FATFLG,#15.
999%
PC,CKDROP

TRAP

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

($ESLB

[—

TSV7 - HARDWARE TESTS 1-8
MACRO M1113
TEST
2: OFF-LINE AND REJECT REWIND

691
492
493
694
495
496
497
498

500 025616
025616
025616
025620
025624

0 1"
PAGE 84

25-MAY=~82 09:19

SEQ 0133

*TEST 2, SUBTEST 3
*VERIFIES THAT A REWIND COMMAND WITH CVC=1 CLEARS VCK
*AND RETURNS PROPER STATUS

IN THE MESSAGE BUFFER.

BGNSUB

104402

004737
004737

027172
027264

JSR
JSR

3233333353355 8EG£N3$UBTESI DEIIIID2O>>>
12.5:
TRAP
cs8suB

PC,T22REST
PC,T22RT?

JSET COMMAND PACKET
JSET UP OTHER COMMAND PACKET

:tttt.'t.tt'tt't.tt"t"t'"ttttQQtit'ttttttlttttt'tt"t'tttttttttt

EISSUE CONTROLLER ''SOFT'* INITIALIZE - CARRY BIT CLEAR If ERROR
Ettttttttttttt'tt.ttttt"'tt.tt'ttttttttttt.t'tttt'.'t'tttttt.ttt.t
004737
103407
005237
010001

016064

JSR
BCS

002212

INC
MOV
ERRDF

104455
000326
003650
012124

012704

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

208

026220

ALA

Moy
AR

.WORD

NT22PACKET R4
2

;D0 INITIALIZE ON CONTROLLER
sBR IF INIT WAS 0K
;BUMP COUNT
;CONTENTS OF TSSR REGISTER
JFATAL ERROR TSSR WAS NOT 0K
TRAP
.WORD
.WORD

CSERDF

214

SFIERR

SFIMSG

; SUBROUTINE NEEDS PACKET ADDRESS

22222222222

:WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
[

MAAALAAA S

527 025660
528 025664
529 025666
533 025672
534 025674
025674
025676
025700
025702

535 02574
5; 025710
538 025712
539 025720
540 025726
541 025732
542 025736
543 025742

004737
103407
005237
010001
104456
000327
005054
012124
005737
001041

010752

22222222222 )

JSR

PC,WRTCHR

sISSUE WRITE CHARACTERISTICS

INC
MOV
ERRHRD

FATFLG
RO,R1
ERRNO,WRTM
SFSG,
IMSG

*BUMP COUNT
*SAVE CONTENTS OF TSSR
‘WRITE CHARACTERISTISC FAILED

BCS

002212

23$

*BR, IF COMMAND ISSUED OK

TRAP

.WORD

002216

000200
000010
026330
000000
016426

238:
026341
026340

.uono
WORD

CSERHRD

215

WRTMSG
SFIMSG

TST
BNE

EXTFEA
508

;CHECK FOR EXTENDED FEATURES SW SWITCH
‘BR IF SWITCH IS ON

MOVB
MOVB

#200,722851
#10,7228S0

;WRITE MISCELLANEOUS CONT/READ STATUS
sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH)

MOV

R4, TSDB(RS)

S ISSUE COMMAND

MOV

JSR

BCS

#T25PK2.R4

PC.CHKTSSR
308

SWRITE SUBSYS MEM PACKET

‘WAIT FOR SSR

:BR,

IF NO ERROR

—

TSV? ~ HARDWARE TESTS 1-8

TEST

MACRO M1113

2: OFF=LINE AND REJECT REWIND

544 025744
545 025746
549 025752
025752
025754
025756
025760
550 025762
025762
gg; 025764

010001
005237

MOV
INC
ERRHRD

308:
026220

RO,R1
FATFLG
ERRNO T22SSR,PKTSSR

CKLOOP
MOV

553

E 1

PAGE 84-1
SEQ 0134

002212

104456
000330
026360
012136
104406
012704

25-MAY=82 09:19

#T22PACKET R4

;ERROR, SAVE TSSR
:BUMP COUNT
JTSSR NOT CORRECT AFTER WRT. MISCELLANEOUS
TRAP
CSERHRD
LWORD
216
.WORD
T22SSR
.WORD
PKTSSR
;LOOP 1F SELECTED
TRAP
CS$CLP
;SUBROUTINE NEEDS PACKET +DDRESS

."tttttttttQttttt"tttttt"tttttttttt.tt'tttttltlti.'tttt.ttt.tl!tt

554
ggg

.
sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

SS?
558
559
560
561
565
566

:-t't'ttttttttttttt'tt't"'tttt.tttt.tttt.tttlttt.l't'.!t.tt"'t'ttt

025770
025774
025776
026002
026004
026004
026006
026010
026012
567 026014
026014
568 026016
569 026022
570 026026
571 026030
575 026034
026034
026036
026040
026042
576 026044
026044
577 026046
578 026054
579 026060
580 026064
581 026070
582 026074
583 026100
584 026102
585 026104
589 026110
026110
026112
026114
026116
590 026120

026120
591 026122

592 026126

004737
103407
005237
010001

010752

JSR
8CS
INC
MOV
ERRHRD

104406
016501
032701
001006
005237

016301

CKLOOP

65S:

MOV
MOV
MOV
JSR
MOV
MOV
cMpP
B8EQ
INC
ERRHRD

808$:

CKLOOP

MOV

#T22BFR,R3

000002
000100

142010
026330
000000
016340
000002
100306

026330

002212

026242

000006

CKLOOP

MoV
BIT
BNE
INC
ERRDF

002212

104456
000333
026724
015564

104406
012703

60%:

50%:

104455
000332
026555
012124
104406
012737
012704
010465
004737
016501
012702
020102
001406
005237

JISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ]SSUED 0K
;BUMP COUNT
;SAVE CONTENTS OF TSSR
JWRITE CHARACTERISTISC FAILED
TRAP
CSERHRD
.WORD
217
.WORD
WRTMSG
.WORD
SFIMSG
;SCOPE LOOP
TRAP
cscLP
TSSR(RS) ,R1
JGET TSSR CONTENTS
#OFL ,R1
JCHECK FOR THE OFFLINE BIT SET
60$
:BR, IF OFFLINE (GOOD)
FATFLG
;BUMP COUNT
ERRNO, T220FL,SFIMSG
;OFF LINE SHOULD HAVE BEEN SET (BAD)
TRAP
CSERDF
.WORD
218
LMWORD
T220FL
.WORD
SFIMSG
JLOOP [fF SELECTED
TRAP
cscLP
#1462010,122PK2
;POSITION COMMAND (REWIND MODE) CVv(C=1
#T22PK?2 R4
;R4 = POINTER TO PACKET
R4 ,TSDB(RS)
;ISSUE COMMAND
PC.WAITF
:WAIT FOR SSR TO SET
TSSR(RS) ,R1
:GET TSSR CONTENTS
#SSR!'OFL!SC'BIT1!BIT2,R2:SET UP EXPECTED
R1.R2
-ARE THEY EQUAL
80$
IF OK ESP. FUNCTION REJECT
FATFLG
BUHP COUNT
ERRNO,T22RWJ,EXPREC
JTSSR INCORRECT AFTER TAPE MOTION CMD
TRAP
CSERHRD
.WORD
219
.WORD
T22RWJ
.WORD
EXPREC
JLOOP IF SELECTED

002212

104456
000331
005054
012124

PC,URTCHR
50¢
FATFLG
RO,R1
ERRNO,WRTMSG,SFIMSG

MOV

XSIO(R3) R1

TRAP
JPOINTER TO MESSAGE BUFFER

cscLP

JPICK UP XSTO FROM MESSAGE BUFFER

TSV7 ~ HARDWARE TESTS 1-8

TEST

OFF=LINE AND REJECT REWIND

593 026132

594
595
596
597
601

MACRO M1113

026134
026140
026142
026144
026150

010102

042702
020102
001406
005237

017272

004737

016546

610 026204

000137

024702

611 026210
026210
026212

BIC
CMP
BEQ
INC
ERRHRD

002212

104403
023727
103402
004737

609 026202

MOV

000020

026150
026152
026154
026156
602 026160
603 026160
026160
026160
604 026162
60S 026170
606 026172
607 026176
608 026176

104456
000334
026777
015564

103002

104432
001116

90$:

002212

25-MAY-82 09:19

000017
999%:

R1,R2

#B]T4 ,R2
R1,.R2
90$%
FATFLG
ERRNO,T22V(CK,EXPREC

ENDSUB

SEQ 0135

JSET UP EXPECTED

V(K SHOULD BE CLEAR
JARE THEY EQUAL
:BR, IF 0K (GOOD)
;BUMP COUNT

JVCK WASN'T CLEAR (BAD)

TRAP
.WORD
.WORD
.WORD

CSERHRD
220
T22V(K
EXPRE(C

cMP
BLO
JSR

FATFLG,#15.
999$
PC,CKDROP

325335535>5>>> END SUBTEST >>>>3>>>>>>>
L10042:
TRAP
CSESLB
;1S ERROR COUNT AT 25
JBR, IF LESS THAN 25
JTRY TO DROP THE UNIT

JSR

PC, TSTLOOP

;D0 WE NEED TO ITERATE TEST

JMP

T22L00P

8CC
163%:

F 11
PAGE 84-2

EXIT

1633

;BR, IF NO LOOP REQUIRED

TST

;JALL DONE THIS TEST

JEXECUTE AGAIN

TRAP
.WORD

CSEXIT

L10037-.

TSV7 = HARDWARE TESTS 1-8
2:

OFF~LINE AND REJECT REWIND

613

614
615

617
619 026220
620 026220
621 026222
622 026224
623 026226
624 026230
625 026230
426 026232
627 026234
628 026236
629 026240
630 026242
631
632
633
635
637 026330
638 026330
639 026332
640 026334
641 026336
642
643
644 026340
645 026340
646 026341
647 026342
648 026344
649
650
651
652
653 026346
654 026350
655 026352
656 026356
657 026356
658
659

25-MAY-82 09:19

61 1
PAG E 85

SEQ 0136

;LOCAL STORAGE FOR THIS TEST

026220
100204

026230
000000
000012
026242
000000
000024
000000
000007

=<, +10>8177770
T22PACKET:
100204
.WORD
T22DATA
-WORD
.WORD
0
10.
T22DATA:
°
T22BFR
.WORD
-WORD
0
.WORD
20.
-WORD
0
7
.WORD

T22BFR:

.BLKW

25.

cCOMMAND PACKET FOR TEST

sWRITE CHARACTERISTICS COMMAND, WITH IE, ACK

sADDRESS OF CHARACTERISTICS BLOCK

sSTARTING VALUE OF BLOCK SIZE

sCHARACTERISTICS DATA BLOCK
sADDRESS OF MESSAGE BUFFER
sLENGTH OF MESSAGE BUFFER
sSELECT DRIVE 7
sMESSAGE BUFFER

‘WRITE SUBSYSTEM MEMORY COMMAND PACKET
026330
100206

T22PK2:

026340
000000
000006

000
000
000000
000000

T228F2:
1228S0:
7228S1:
72252:
T22<3:

.=<.+10>8177770
.WORD
.WORD
-WORD
.WORD

100206

;WRITE

;SIZE OF DATA PACKET

(olelele)

TEST

MACRO M1113

;BSELO AREA
;BSEL1 AREA
;SEL 2 AREA
;DATA AREA

6228F2

SUB SYS MEM COMMAND,

.EVEN
.BYTE
.BYTE
.WORD
.WORD

-EVEN

100201
100205
100210
100211
177777

sTAPE MOTION PACKET COMMAND VALUES
122 RD:
100201
-WORD

T22WRT:
T22P0S:
T22FOR:

.WORD
.WORD
.WORD

100205
100210
100211
127777

[E AND A(K

sADDRESS OF SELECT BLOCK DATA

sREAD TAPE FORWARD
sWRITE TAPE FORWARD

sPOSITION TAPE

cFORMAT

TAPE

cEND OF DATA

—

TSV7 ~ HARDWARE TESTS 1-8

TEST

MACRO M1113

2: OFF~LINE AND REJECT REWIND

25-MAY-82 09:19

H 1N
PAGE 86

SEQ 0137

;¢

b md
d

SO NNIWNIN —
OO N NN =2 (N =

— D) b b e

—t ) b cmd md b wcd
b
SNNNONONNON
NNV ON NN
NN

666 026360
667 026455
658 026555

b ) b b b d md b
=2 \NONNO
NN
NN
NN

sLOCAL TEXT MESSAGES FOR TEST
T22SSR: .
T22AM3:
T220FL:
T22TM:
T22RWJ: .
T22V(CK: .
T22uWLK:
TS1221D:

"WRITE MISCELLANEOUS CONTROL/READ STATUS Command Not Accepted'’
'TSSR Init. Failed After WRITE MISCELLANEOUS CONRTOL/READ STATUS®

‘Drive 7 Select Failed To Set ‘OFL’’ In TSSR'

'TSSR Incorrect After Tape Motion Command To Off-Line Device’
'TSSR Not Correct After REWIND With V(K Set'
‘CvC Set, Didn''t Reset VCK In Hessag: Buffer’
‘essaaTAPE IS WRITE-LOCKED AND WILL
U SE ERRORStwaee’
ASCI2
'‘Off-Line And Reject Rewind'

:ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES
:WRITE SUBSYSTEM MEMORY COMMAND

682 027172
683 027172
684 027176
685 027202
686 027206
687 027212
688 027214
689 027220
690 027224
691 027226
692 027232
693 027234
694 027240
695 027244
696 027252
697 027254
698 027260
699 027262
700
701
702
703
706
705
706
707
708

027264
027264
027270
027274
027300
027304
027306

709 027312
710 027314
711 027320
712 027322
713 027324
714 027326
715 027330

027330
027330

T22REST:

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

026220
100204

026230

CLR

000012

026242

MOV
MOV

000024

MOV

000007
000020
177777

MOV
MOV
MOV
TST

CLR

026242

648

000000

CMP
BNE
RTS

T22RT2:

012701
012721
012721
005021
012721
005021
012701
005021
005011
005011
000207
104401

SAVREG

MOV
MOV
MOV

026330
100206
026340
000006

026340

SAVREG

MOV
MOV
MOV

CLR
MOV

CLR

MOV
CLR

CLR
CLR

RTS

ENDTST

#T22PACKE
,R1
T
#100204,(R1)+
#T22DATA,(R1)+
(R1)+
#10.,.(R1)¢
#T22BFR, (R1)+
(R1)+
#20..(R1)+
(R1)+
#7,(R1)
#20,R2

#177777.122BFR(R2)

-(R2)
R2,#0
64$

#122PK2,R1
#100206,(R1)+
#T228F2,(R1)+
(R1)+
#6.,(R1)+
(R1)+

#T228F2
. .R1
(R1)+
(R1)
(R1)

sSAVE THE REGISTERS
sSTART OF

THE PACKET

sWRITE SUBSYSTEM MEM., WITH ACK, IE
sADDRESS OF CHARAISTICS DATA BLOCK
sEXTENDED ADDRESS
sSIZE OF DATA BLOCK IN BYTES
sADDRESS OF MESSAGE BUFFER
sLENGTH OF ME_SAGE BUFFER

sSELECT DRIVE SEVEN
¢NUMBER OF LOCATIONS TO BE CLEARED
sALL ONES TO MESSAGE BUFFER
;BUMP R2 DOWN
¢IS R2 AT ZERO YET
cKEEP GOING UNTIL DONE

sRETURN

sSAVE THE REGISTERS
sSTART OF THE PACKET

cWRITE SUBSYSTEM MEM. WITH ACK,

sADDRESS OF DATA BLOCK
SEXTENDED ADDRESS

;SIZE OF DATA BLOCK IN BYTES
sPOINT TO DATA SEL AREA
sLAST LOC TO BE CLEARED
:RETURN

L10037:

TRAP

CSETST

—

TSV7 -~ HARDWARE TESTS 1-8
MACRO M1113
TEST
2: OFF~LINE AND REJECT REWIND
b

716

25-MAY-82 09:19

I 1

PAGE 86-1
SEQ 0138

TSV7 - HARDWARE TESTS 1-8

TEST

3: BASIC WRITE DATA

MACRO M1113

25-MAY-82 09:19

J 1

PAGE 87

SEQ 0139
.SBTTL

TEST

3: 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.

STHE TEST CONSISTS OF THE FOLLOWING 7 SUBTESTS

)

732 027332

027332
733 027332
734 027340
735 027344
740 027350

741
742
743
744

027354
027360
027364
027370

012737
005037
004737
004737
012700
004737
004737
012737

006356
003124
017364
016274
033736
016600
021366
000005

BGNTST

MOV

002170

#EPRT1,EPRTSW

CLR
JSR
JSR
MOV
JSR
JSR

002206

MOV

;SET UP PRIMARY ERROR MESSAGE

KTENABLE
PC.KTOFF
PC.DSBINT
#TST231D,RO
PC,TSTSETUP
PC . MEMCK

:TURN OFF KT11
*TURN OFF KT11
:DISABLE INTERRUPTS
SASCII MESSAGE TO IDENTIFY TEST
:DO INITIAL TEST SETUP
*CHECK FOR MEMORY
*PERFORM S [TERATIONS

#5_LOOPCNT

:TEST 3, SUBTEST 1
SVERIFIES THAT A WRITE COMMAND (ANY VALID MODE CODE)

:WITH THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS

:REJECTED IF THE VOLUME CHECK (VCK) FLAG IS SET. ALL
:VALID MODE CODES ARE CHECKED (WRITE DATA, WRjTE

JRETRY).

756 027376
757 027376

027376
027376

758 027400
759 027404

T23L00P:
104402

0064737
004737

033752
034044

BGNSUB

$2>333>>>>>>> BEGIN SUBTEST >>>>>>>>>>>>

JSR
JSR
R

PC,T23REST
PC.TI3RTZ

R RN NN N AN AN

AR NN

IRAP

:SET COMMAND PACKET
SSET UP OTHER COMMAND PACKET

($BSUB

NN AR AR NN AR A NN NN GO R NN NN R NANARNRNNNRRNRO NS

:ISSUE CONTROLLER ‘'SOFT'* INITIALIZE - CARRY BIT CLEAR IF ERROR
.

767
768
769
773
774

027410
027414
027416
027422
0274624

027424
027426
027430
027432

004737

016064

005237
010001

002212

103407

104455
000455
003650
012124

JSR
8(s
INC
MOV
ERRDF

PC,SOFINIT
20%
FATFLG
RO,.R1
ERRNO,SFIERR,SFIMSG

222222222

:DO INITIALIZE ON CONTROLLER
;BR IF INIT WAS OK
:BUMP _COUNT
cCONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT OK
TRAP

CSERDF

.WORD
.WORD

SFIERR
SFIMSG

TSV7 ~ HARDWARE TESTS 1-8
TEST
3: BASIC WRITE DATA
775 027434
776 027434
777 027442

012737
012704

000007
032440

MACRO M1113

K 11
PAGE 87-1

25-MAY-82 09:19

SEQ 0140

032460

208:

MOV

27,1230

MOV
RN

sSET DRIVE NUMBER IN PACKET
sSUBROUTINE NEEDS PACKET ADDRESS

#TO3PACKET,
R4

ARAAN AN NRN NN A AN AR N AT AR

RN EN RN NANANNNNANANNRNN RN NRNENNRNNO

WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
.

AR AR AN NN R AR AN AR AN NN NN

027446
786 027452
787 027454

004737

010752

005237
010001

002212

103407

:ISSUE WRITE CHARACTERISTICS

INC
MOV
ERRHRD

FATFLG
RO,R1
ERRNO,WRTM
SFSG,
IMSG

‘BUMP COUNT
“SAVE CONTENTS OF TSSR
SWRITE CHARACTERISTISC FAILED

005737
001044

002216

796 027500
797 027506
798 027514
799 027520

112737
112737
012704
010465

000200
000010
032550
000000
016426

MOV
JSR

002212

MOV
INC

803 027534
807 027540
027540
027542
027544
027546
808 027550

b ad

OO
NS NN =

00 G 00 0o 00 0o 00 0o

810 027560

:BR, IF COMMAND ISSUED OK

TRAP

CSERHRD

.WORD
-WORD

WRTMSG
SFIMSG

238:

302

BNE

TST

EXTFEA
508

;CHECK FOR EXTENDED FEATURES SW SWITCH
:BR IF SWITCH IS ON

MOV

#200,T123BS1

;WRITE MISCELLANEOUS CONT/READ STATUS

MOV

#123PK2 R4

SWRITE SUBSYS MEM PACKET

MOVB

#10,723850

BCS

SFUNCTION SELECTION BIT

Ré,TSDB(RS)
PC.CHKTSSR

:ISSUE COMMAND
‘WAIT FOR SSR

RO,R1
FATFLG

:ERROR, SAVE
:BUMP COUNT

30§

ERRHRD

(TURN ON EXTFEA HW SWITCH)

‘BR, IF NO ERROR

ERRNO, T23SSR,PKTSSR

TSSR

:TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS
TRAP

CSERHRD

.WORD

PKTSSR

TRAP

CSCLP1

.WORD
-WORD

308:
000007
032440

CKLOOP

032460

MOV

b e

;LOOP IF SELECTED
#7,1230SW

MOV
IR AAA AR

;SET DRIVE NUMBER IN PACKET

#TO3PACKET, R4
2

303
T23SSR

:SUBROUTINE NEEDS PACKET ADDRESS
It

I 2322222222212

and

SWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
.

o
—b e

23§

.WORD

106456
000457
032614
012136
104406
012737
012704

EN I NN NANRN RN AN

PC,WRTCHR

104456
000456
005054
012124

004737
103407
010001
005237

RN AN NN AN AN

JSR

BCS

027460
027462
027462
027464
027466
027470
027472
027476

800 027524
027530
802 027532

NN R A RAN

027564

004737
103407

005237
010001

027606
826 027610
027610

104456
000460
005054
012124
104406

010752

ARAR

A a2
I
T
T
22222222222

JSR
BCS
INC

002212

MOV

ERRHRD

508 :

ckLoop

PC,WRTCHR
508
FATFLG

RO,R1

ERRNO,WRTMSG, SFIMSG

sISSUE WRITE CHARACTERISTICS
s8R, IF COMMAND [SSUED Ok
<BUMP COUNT

sSAVE CONTENTS OF

TSSR

sWRITE CHARACTERISTISC F?ékgb

:SCOPE LOOP

CSERHRD

304

.WORD
.WORD
.WORD

WRTMSG
SFIMSG

TRAP

CSCLPY

TSV7 = HARDWARE TESTS 1-8
TEST
3: BASIC WRITE DATA

827
828
829
830
834

027612
027616
027622
0276246
027630

016501
032701
001006
005237

000002
000100

104406
012703

032604

839 027656
840 027662
841 027666

010465
004737
016501

000000
016340
000002

843 027676

020102

842 027672

844 027700

845 027702
849 027706
027706
027710
027712
027714
850 027716
027716
851 027720
852 027722
853 027726
854 027730
855 027732
856 027732
027732
027732
857 027734
858 027742
859 027744
860 027750

104455
000461
033256
012124

011337
012704

012702

001406

005237

60$:

032550
032550

ASS:

100306

104403
023727
103402
004737

90$:

017272

000017
9998:

#T23wWD ,R3

;GET TSSR CONTENTS
JCHECK FOR THE OFFLINE BIT SET
:BR, IF OFFLINE (GOOD)
*BUMP COUNT
sOFF LINE SHOULD HAVE BEEN SET (BAD)
TRAP
CSERDF
.WORD
305
.WORD
T230FL
.WORD
SFIMSG
;LOOP IF SELECTED
TRAP
cscLP
sPOINTER FOR COMMANDS
:

R4, TSDB(RS)
PC,WAITF
TSSR(RS) R1

:1SSUE COMMAND
JWAIT FOR SSR TO SET
sGET TSSR CONTENTS

(R3), TéSPKZ
#T23PK2.R4

MOV

ISSR‘SC'OFL'BIT1'BITZ R2 SET UP EXPECTED

INC
ERRHRD

177777

TSSR(RS) ,R1
#0FL ,R1
608
FATFLG
ERRNO, T230FL,SFIMSG

SEQ 0141

MOV
MoV

BEQ

80S$:

002212

MOV

CMP

002212

L N

PAGE 87-2

CkLOOP

MOV
JSR
MOV

104456
000462
033012
015564

104406
005723
022713
001401
000746

25-MAY-82 09:19

MOV
8IT
BNE
INC
ERRDF

002212

027630
027632
027634
027636
835 027640
027640
836 027642

837 027646
838 027652

MACRO M1113

R1,R2

SARE THEY EQUAL

FATFLG
ERRNO,T23TM, EXPREC

;BUMP COUNT
sTSSR INCORRECT AFTER TAPE MOTION CMD
TRAP
CSERHRD
.WORD
306
.WORD
T23TM
.WORD
EXPREC
;LOOP 1F SELECTED
TRAP
CSCLP1
sPOINT TO NEXT COMMAND
sEND OF THE COMMANDS YET
;BR, IF DONE
sMORE COMMAND(S) TO GO

80$

CKLOOP
TST
CMP
BEQ
B8R

(R3)+
#177777,(R3)
90$
653

ENDSUB

CMP
8LO
JSR

;TAPE MOTION COMMAND IN PLACE
;R4 = POINTER TO PACKET

:BR, IF OK ESP. FUNCTION REJECT

J35535>>53>>> END SUBTEST >>>>3>>>>>>>>

L10044:

FATFLG,#15.
999%
PC,CKDROP

TRAP
s 1S ERROR COUNT AT 25
:BR, IF LESS THAN 2§
;TRY TO DROP THE UNIN

CSESUB

[

TSV7 - HARDWARE TESTS 1-8
TEST
3: BASIC WRITE DATA

MACRO M1113

862
863

25-MAY-82 09:19

MmN
PAGE 88

SEQ 0142

o+
:

ggg

JTEST 3, SUBTEST 2

866
867
868
869
870

JVERIFIES THAT WRITE DATA COMMANDS WITH CVC=1 AND THE
sSWAP BYTES (SWB) BIT CLEAR OPERATES PROPERLY. THE
sBYTE COUNT (RECORD SIZE) VARIES FROM 20 THROUGH 64K
s IN VARYING INCREMENTS (DEPENDING UPON WHETHER OR NOT
sTHE DIAGNOSTIC IS RUNNING IN THE LONG VERIFICATION

871

sMODE).

THE TAPE IS NOT REWOUND BETWEEN SUCCESSIVE

872
873
874
875
876

JRECORDS BUT IS REWOUND AFTER THE FINAL RECORD IS
cWRITTEN. AN INCREMENTING COUNT PATTERN IS SUPPLIED
sIN THE DATA BUFFER. AFTER EACH BLOCK IS WRITTEN, THE
sTSSR AND TSBA REGISTERS, THE MESSAGE BUFFER, AND THE
RAM CONTENTS ARE CHECKED (THE RAM CONTENTS ARE CHECKED

879

g;g

882 027750
027750
027750
883 027752
884 027756
885 027760
886 027762
887 027766
888 027772
ggg 027776

JUSING THE WRITE SUBSYSTEM MEMORY COMMAND.

BGNSUB
104402
013701
000241
006101
010137
004737
004737
004737

003116

MOV
cLC
ROL
MOV
JSR
JSR
JSR

032570
033752
034106

034044

891

899 030010

030024
905 030026
906 030026
ggg 030034

R1
R1,T23RS2
PC,T23REST
PC,T23RT3

PC,T23RT2

s ISSUE CONTROLLER °*'SOFT'* INITIALIZE - CARRY BIT CLEAR IF ERROR

ggz
895

903 030014
904 030016
030016
030020
030022

FRESIZ ,R1

.'ttttttttttttttttttttttttttttttt.tfifltQtttttttlt'ttttt'ttttttttt'ttt

892

896
897 030002
898 030006

J2353333>>3>>> BEGIN SUBTEST >>>>>3>>>>>>
13.2:
TRAP
c$BSLB
JGET SIZE OF AVAILIABLE MEMORY
JCLEAR THE CARRY BIT
JMAKE INTO BYTES
:STORE IN TEST FOR USE LATER
JSET COMMAND PACKET
JRESTORE PACKET
JSET UP OTHER COMMAND PACKET

:'ttt.tttttttttttttttt'ttt't'ttfittttttlttttttttt'tttttttttttt't'tttt

004737
103407
005237
010001

016064

JSR
8CS
INC
MOV

002212

ERRDF

104455
000463
003650
012124
013737
012704

002172
032440

909

032460

208:

MOV
MOV

PC,SOFINIT
208
FATFLG
RO.R1

ERRNO SFIERR,SFIMSG

JFATAL ERROR TSSR WAS NOT 0K

UNITN,T23DSV
NT23PACKET R4

sLOAD UP SELECTED UNIT NUMBER
sSUBROUTINE NEEDS PACKET ADDRESS

:ttttttttttttttt’: (A2 A2l

910

;DO INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
SBUMP COUNT
:CONTENTS OF TSSR REGISTER

TRAP
.WMORD
.WORD
.WORD

2222222222222

g}}

¢cWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

913
914
915 030040

:'ttttttttttttfitttttttttttttttttt!tttttttttttttttttlttt'tttt'ttttttt
004737

010752

JSR

PC,WRTCHR

sISSUE WRITE CHARACTERISTICS

CSERDF
307
SFIERR
SFIMSG

TSV7 ~ HARDWARE TESTS 1-8
TEST
3: BASIC WRITE DATA

916 030044
917 030046
921 030052

922 030054
030054
030056
030060
030062
923 030064
030064

103407
005237
010001

MACRO M1113

N1
PAGE 88-1

25-MAY-82 09:19

SEQ 0143
8CS
INC

002212

MOV

ERRHRD

104456
000464
005054
012124

sBR, IF COMMAND ISSUED OK
cBUMP COUNT
sSAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED

RO,R1

ERRNO,WRTMSG,
SF IMSG

AAEE

CSERHRD

TRAP
.WORD

ckLoop

238:

104406

23$

FATFLG

cLOOP IF SELECTED

308

.WORD
.WORD

WRTMSG
SFIMSG

TRAP

C$CLPY

AR a2
2222222228

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
LJ

931 030066
932 030u7e
932 030076

004737
012703
013737

011104
000024

003114

AN RN

A ARN RN AR NN AT AR E R RARE AR AN ANNRNARANRANANANNNRARNNRIANANRARNS

JSR

032562

MOV

65%:

MOV

RN AR AN RN

PC.REWIND

;CALL THE TAPE REWIND
sSTARTING RECORD SIZE
sSTARTING WRITE BUFFER ADDRESS

#20. ,R3
FREE,T23wB
A AR RN

AR I R AR R RN RN AANNNR AN R AR RN AN RN RN AR AR

NN AN RN

SWRITE DATA,CVC=1,ACK COMMAND
.

941
942
943
944
945
946

030104
030112
030120
030126
030132
030134

947 030140

948 030144
949 030150
950 030154
951 030160
952 030164

953 030166
954 030170
955 030174
030174
956 030176
957 030202

012737
012737
052737
012704
010300
0064737
010337
010465
004737
016501
012702
020102
001402
004737
104406

016501

958 030206
959 030212

960 030216
961 030220
962 030224
963 030226
964 030230
968 030234

030242

005237
104456

000465
033575
015564

140005
140005

004000
032560

AAA

032560

AR A

ARl

MOV

032602
032602

MoV

8IS

017512
032566
000000
016340
000002
000200

ddddd

ittt

#140005, T23PK3
#1460005 - T23WRT

#4000, T23WRT

T2 2220222222

sWRITE DATA, .V(C=1,ACK COMMAND

sSETUP FOR RETRY COMMAN)

PC.WAITF

sMAKE IT A RETRY
sSET UP R4 WITH PACKET ADDRESS
sSET PATTERN IN CORRECT REGISTER
sFILL MEMORY WITH RECCRD SIZE
sSET UP RECORD SIZE IM PACKET
s ISSUE COMMAND
sWAIT FOR SSR TO SET

R1.R3

sARE THEY EQUAL

MOV
MOV
JSR
MOV
MOV

#T23PK3.R4
R3.R0

MOV
MOV

TSSR(RS)
,R1
#SSR,R2

JSR

PC.FILLMEM

R3.T23SZ

R&.TSDB(RS)

sGET TSSR CONTENTS
sSET UP EXPECTED

CMP
BEQ
JSR
CKLOOP

80$
PC,T23CHK

;BR, IF 0K
sCHECK SPECIAL COND!TION
sLOOP ]F SELECTED

000000
032462
000016
002216

MOV
MOV
ADD
TST

TSBA(RS)
,R1
#T23BFR,R2
#16,R2
EXTFEA

000002

ADD
CMP

#2,R2

sGET TSBA CONTENTS
sSET UP EXPECTED
sSET 70 END OF MESSAGE BUFFER
:CHECK FOR EXTENDED FEATURES Sw SET
¢BR, IF IT NOT SETM
;BUMP R2 FOR EXTRA DATA
JARE THEY EQUAL
sBR, IF TSBA IS CORRECT
sBUMP COUNT
;TSBA WAS NOT CORRECT AFTER WRITE DATA

034132

002212

80$:

BEQ

85¢$:

8taQ
INC
ERRHRD

85$

908

FATFLG

ERRNO, T23BA,EXPREC

TRAP

cscLP

TRAP
-WORD
.WORD
.WORD

CSERHRD
309
T23BA

EXPREC

TSV? = HARDWARE TESTS 1-8
TEST
3: BASIC WRITE DATA

969 030244
030244
970 030246

104406
020327

007376

972 030254

004737

034044

112737

000000

010465
004737
103407
010001
005237

000000
016426

971 030252

002114

973 030260
974 030266

012737
112737

976 030302

012704

975 030274

977
978
979
980
981
985

030306
030312
030316
030320
030322
030326

030326
030330
030332
03033¢
986 030336
030336
987 030340

988 030344
989 030352

990 030360

991 030366

000002

012704

004737

030412
030414
030416
030420

104456
000467
033647
012136

030422
1002 030424

104406
005001

030426
030430
030434
030436
030440
030442
030446

005002
013701
010302
020102
001406
005237

032550

000000
016426

032574
032574

062701

000400

030470

030476

010301
023701

958:

TRAP
;ONLY CHECK RAM UNTIL ITS FULL

($CLP1

1188

*IT WRAPS AROUND ETC.

MOV
move

#256. 12352
#0,T23%8S0

*STARTING RAM ADDRESS
:STOP INTERNAL TSVOS DIAGNOSTICS

MOV

#TO3PK2 R4

:SI2E OF RAM READ

R4, TSDB(RS)
PC,CHKTSSR
92%
RO,R1
FATFLG
ERRNO, T23WSS.,PKTSSR

$1SSUE WRITE SUB SYS MEM COMMAND
JCHECK TSSR AND WAIT FOR SSR TO SET
‘BR, IF NO ERRORS IN TSSR
‘SAVE TSSR
S8UMP COUNT
*TSSR BAD AFTER WRITE SUB SYS MEM

PC,T23RT?

#256. 12352
#1.72%850

MOV

#T23PK2.R4

JSR

PC,CHKTSSR

#2 123851

ADD

cmp

CSERHRD
310
T23wSS
PKTSSR

TRAP
CS$CLP1
JMAKE SURE PACKET AND DATA ARE CLEAN

*STARTING RAM ADDRESS
*READ RAM COMMAND FOR WRITE SUB SYS M.
:SIZE OF RAM READ

SSET R4 WITH PACKET ADDRESS

:ISSUE WRITE SUB SYS MEM COMMAND

1008
RO,R1
FATFLG
ERRNO, T23WSS,PKTSSR

:BR, IF NO ERRORS IN TSSR
SSAVE TSSR
‘BUMP COUNT
JTSSR BAD AFTER WRITE SUB SYS MEM

JCHECK TSSR AND WAIT FOR SSR TO SET

:LOOP IF SELECTED

R1
R2
T238FR+20,R1
R3.R2
R1.RZ2
1108
FATFLG
ERRNO, T23RNC,EXPREC

CKLOOP

MOV

TRAP
.WORD
‘WORD
.WORD

R4, TSDB(RS)

CKLOOP

INC
INC

SSET R4 WITH PACKET ADDRESS

;LOOP IF SELECTED

MOV
move

MOV

‘MAKE SURE PACKET AND DATA ARE CLEAN

#0.7238B51

CKLOOP

CLR
CLR
MOV
MOV
4,4
BEQ
INC
ERRHRD

1108:

032574

PC,T23RT2

BCS
MOV
INC
ERRHRD

002212

005237
005237

JSR

MOV

032502

1014 030460
1015 030464

104406

R3, #7376

JSR

032573

SEQ 0144

:LOOP IF SELECTED

CMP

MOV
JSR
BCS
MOV
INC
ERRHRD

032574
032572

8 12

PAGE 88-2

CKLOOP

MOVB

1008:

104456
000470
033135
075564

030472

032573

002212

030446
030450
030452
030456
1013 030456

030456

032574
032572

92%:

0004L0
000001

25-MAY-82 09:19

BGE

002212

112737

012737
112737

103407
010001
005237

1003
1004
1005
1006
1007
1008
1012

032550

034044

994
995
996
1000

1001 030422

000400
000000

104406
004737

010465

030402
030404
030406
030412

908:

104456
000466
033647
012136

992 030372

993 030376

MACRO M1113

TRAP
.WORD
.WORD
"WORD

CS$ERHRD
317
T23wSS
PKTSSR

TRAP

C$CLP1

:CLEAR REGISTER
*CLEAR REGISTER
JPICK UP BYTE READ FROM RAM
:SET UP EXPECTED
;1S RAM DATA CORRECY
JBR, IF OK (EQUAL)
‘BUMP COUNT
JRNC=RAM NOT CORRECT
TRAP

;LOOP IF SELECTED

WORD
.WORD
.WORD

CSERHRD
312
T23RNC
EXPREC

TRAP

CSCLP1

12352
12352

;BUMP RAM ADDRESS TO BE CHECKED
:BUMP RAM ADDRESS TO BE CHECKED

#256. R

;FIGURE OUT END RECORD ADDRESS

R3 . R1

12352 ,R1

:GET SIZE OF RECORD

;AT END OF RAM CHECK YET

)

TSV? ~ HARDWARE TESTS 1-8
TEST
3: BASIC WRITE DATA

1019 030502
1020 030504
1021 030510

001333
062703
020337

001750
032570

1023 030516

020327

177776

1022 030514

1024 030522
1025 030524

1026 030530

1027
1028
1029
1030
1031
1032
1033
1034

030530
030534
030540
030546
030552
030556
030562
030564

1035 030566

1039 030572

030572
030574
030576
030600

1040 030602

1047

1042
1043
1064
1045

002005

001402
000137

004737
004737
012737
012704
010465
004737
103407
010001

005237

MACRO M1113

115%:

1208:
032550

130%:

030602

030602
030602

030604
030612
030614
030620

104403

023727
103402
004737

002212
017272

JBR, IF MORE TO CHECK
JNEXT RECORD SIZE/DATA PATTERN
;1S RY OVER MAX RECORD SIZE

(MP

R3,#65534.

JEND OF SUBTEST MAX RECORD SIZE

JSR
JSR
MOV

PC,T23RT3
PC,T23RT?
#102010,123PK2

JRESTORE PACKET
JCLEAN UP PACKET
JREWIND (POSITION) COMMAND
:LOAD R4 WITH PACKET ADDRESS
s ISSUE REWIND COMMAND
JWAIT FOR SSR TO SET
:BR, IF T_35R IS 0K (GOOD)
JSAVE TSSR CONTENTS

BEQ
JMP

ERRHRD

104456
000471
033066
012136

000017

999s:

SEQ 0145

95s
#1000. ,R3
R3,T23RSZ

MOV
MOV
JSR
BCS
MOV
INC

002212

€12

PAGE 88-3

BNE
ADD
(mp

BGE

030076

034106
034044
102010
032550
000000
016426

25-MAY-82 09:19

1268

1208
65%

AT23PK2.,RG
R4, TSDB(RS)
PC,CHKTSSR
130%
RO,R1
FATFLG

ERRNO,T23RWN,PKTSSR

ENDSUB

tMP
8LO
JSR

:IF RECORD SIZE IS 100 BIG QuIT

;BR, IF COMPLETED
;DO MORE RECORDS

;BUMP COUNT

JTSSR IS INCORRECT AFTER REWIND

TRAP
.WORD
.WORD
.WORD

CSERYRD
313
T23RWN
PKTSSR

J2235335553>> END SUBTEST >>>>>5>>>>>>

L10045:

FATFLG,#,5.
999¢
PC,CKDROP

TRAP

;1S ERROR COUNT AT 25
;BR, IF LESS THAN 25
JTRY TO DROP THE UNIT

CSESUB

TSV? = HARDWARE TESTS 1-8
TEST
3: BASIC WRITE DATA

MACRO M1113

25-MAY-82 09:19

D 12

PAGE 89
SEQ 0146

1047
1048
}8§8

o
:
sTEST 3, SUBTEST 3

1051

:VERIFIES THAT WRITE DATA COMMANDS WITH CVC=1 AND THE

1056

1052
1053
}8§§

;SWAP BYTES (SWB) BIT SET OPERATES PROPERLY. THE TEST
sSEQUENCE 1S IDENTICAL TO THAT USED IN SUBTEST 2.
sTHE RESULTS, EXCEPT FOR RAM CONTENTS, SHOULD BE THE SAME.

108

‘’

1059 030620

030620
030620

1060 030622

}825 030626

104402

004737

033752

BGNSUB
JSR

034044

JSR

1063

225553>>>>>>> BEGIN SUBTEST >>>>>>>>>>>>
13.3:

PC,T23REST

PC,T23RT2

:SET COMMAND PACKET

TRAP

JSET UP OTHER COMMAND PACKET

;'tttttttttt'tt..ttt'tt'QQ"'tt'ttttt..t'ttlt.tlt.tt't"t.tt'!'t'tt

1064

1067
1068
1069 030632
1070 030636

;ttttt'tttt't'tttttltt't't".tt't'.ttttttt.tttt.tltt'ttt'Qt't"tttt

}ggg

;ISSUE CONTROLLER °‘'SOFT'' INITIALIZE - CARRY BIT CLEAR IF ERROR

1071 030640
1075 030644
1076 030646

030646
030650
030652
030654

1077 030656
1078 030656

}8;8 030664

004737
103407
005237
010001

016064
002212

104455
000472
003650
012124
013737

012706

002172

032440

032460

1081

20%:

JSR
BCS
INC
MOV
ERRDF

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

;D0 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
;BUMP COUNT
;CONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT OK

MOV

UNJTN,T23DSW

JSET UP UNIT NUMBER

MOV

#T23PACKET R4

TRAP
.WORD
.WORD
.WORD

:SUBROUTINE NEEDS PACKET ADDRESS

}852

WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

1085
1086

Etttt.tittttttttttttt't't'tttt.ttttttt.fitttttttt.ttt.tttt'ttt.tttt.

1087 030670
1088 030674
1089 030676
1093 030702
1094 030704

030704
030706
030716
030712
1095 030714
1096 030714
}885 030720

CSERDF
314
SFIERR
SFIMSG

;t't".tttttt'tttttttttt.tt!ttt'tttttttfit.t'tt.ttttttt'tfltttt'tt.tt

1082

1099

cs8sSuUB

004737

103407
005237
010001

010752

JSR

BCS
INC
MoV
ERRHRD

002212

104456
000473
005054
012124
012703
013737

000024
003114

PC,.WRTCHR

s ISSUE WRITE CHARACTERISTICS

238
FATFLG
RO,.R1
ERRNO,WRTMSG,SFIMSG

sWRITE CHARACTERISTISC FAILED

#20..R3
FREE,T23wB

;STARTING RECORD SIZE
sSTARTING WRITE BUFFER ADDRESS

:BR, IF COMMAND [SSUED OK
;BUMP COUNT
sSAVE CONTENTS OF TSSR

TRAP
WORD
.WORD
.WORD

23%:

032562

65$:
AR AN

MOV
MOV

RN N AR RN AN N R

TN R AN R RN AN NS NN N AR AR NN RN

NN AR R ENNRAONNRARNY

CSERHRD
315
WRTMSG
SFIMSG

TSV7 ~ HARDWARE TESTS 1-8

TEST

3: BASIC WRITE DATA

MACRO M1113

E 12

PAGE 89-1

SEQ 0147

1100

SWRITE DATA,CVC=1,ACK,SWB COMMAND

1101

1102
1103

1104
1105 030726
1106 030734
1107 030742
1108 030750
1109 030754
1110 030756
1111 030762
1112 030766
1113 030772
1114 030776
1115 031002
1116 031006
1117 031010
1118 031012
1119 031016

031016

1120 031020
1121 031024

1122
1123
1126
1125
1126
1127
1128
1132

25-MAY-82 09:19

031030
031034
031040
031042
031046
031050
031052
031056

031056
031060
031062
031064
1133 031066
031066
1134 031070
1135 031074
1136 031076
1137 031102
1138 031110
1139 031116
1140 031124
1141 031130
1142 031134
1143 031140
1144 031142
1145 031144
1149 031150
031150

031152
031154
031156
1150 031160
031160

1151 031162

AAAALAR AL

016501

001406

005237

#123PK3,Ré4

8IS

JSR
MoV
MOV
JSR

MOV
MOV

CMP

BEQ

034132

80s:

R3,R0

PC.FILLMEM

R3.T12382
R4 . TSDB(RS)

PC.WAITF

TSSR(RS)
,R1

#SSR,R2

R1,R2

80$
PC,T23CHK

MoV
MOV
ADD
TST

TSBA(RS)
,R1
#T23BFR,R2
#16,R2
EXTFEA

000002

ADD

#2,R2
R1,R2
90$

BEQ

85$:

002212

90$:

007376

CMP
8EQ
INC
ERRHRD

JSR

032574
032572
032573

85%

FATFLG

ERRNO, T23BA,EXPRE(

(xLoopP
CMP
BGE
Moy
mMov8e
MOv8
MoV
MOV
JSR

8(s

MOV
INC

002212

000475
033647
012136
104406

JSR
(KLOOP

#4000, TO3WRT

000000
032462
000016
002216

ERRHRD

1046456

004737

A2l

MOV
MOV

034044
000400
000000
000000
032550
000000
016426
010001
005237

032560

104456

020327

#150005,123PK3
#150005 ; T23wRT

000474
033575
015564

106406

AR A

Mov
MOV

017512
032566
000000
016340
000002
000200

104406

150005

150005
004000

004737

;WRITE DATA,CVC=1,ACK,SWB COMMAND
;SETUP FOR RETRY COMMAND
¢MAKE IT A RETRY
sSET UP R4 WITH PACKET ADDRESS
sSET PATTERN IN CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE

sSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
sSET UP EXPECTED

sARE THEY EQUAL

:BR, IF 0K

sCHECK SPECIAL CONDITION
sLOOP IF SELECTED
TRAP

#256. 12382
#0,123850
#0,7238S51

#TO3PK2
R4

R4, TSDB(RS)
PC.CHKTSSR

92%
RO,R1

FATFLG

ERRNO, T23WSS,PKTSSR

.WORD
.WORD

0340644

(kLoopP

JSR

:BR,

IF NO ERRORS IN TSSR

sSAVE TSSR
;BUMP COUNT
sTSSR BAD AFTER WRITE SUB SYS MEM

:LOOP IF SELECTED
PC,T23RT2

T23BA
EXPREC

TRAP
cscLP
sONLY CHECK RAM UNTIL ITS FuLL
c1T WRAPS AROUND ETC.
sMAKE SURE PACKET AND DATA ARE CLEAN
sSTARTING RAM ADDRESS
cSTOP INTERNAL TSVO5 DIAGNOSTICS
:SIZE OF RAM READ
sSET R4 WITH PACKET ADDRESS
sISSUE WRITE SUB SYS MEM COMMAND
sCHECK TSSR AND WAIT FOR SSR TO SET

TRAP

CSERHRD

LWORD

PKTSSR

TRAP

CSCLP

.WORD
LWORD

92%:

cscLet

sGET TSBA CONTENTS
sSET UP EXPECTED
sSET TO END OF MESSAGE BUFFER
sCHECK FOR EXTENDED FEATURES SW SET
sBR, IF IT NOT SET
;BUMP R2 FOR EXTRA DATA
sARE THEY EQUAL
sBR, IF TSBA IS CORRECT
sBUMP COUNT
sTSBA WAS NOT CORRECT AFTER WRITE DATA
TRAP
CSERHRD
316
-WORD
cLOOP IF SELECTED

R3,47376
1158
PC,T23RT?2

317
T23WSS

sMAKE SURE PACKET AND DATA ARE CLEAN

—

TSV7 ~ HARDWARE TESTS 1-8
TEST
3: BASIC WRITE DATA

WNININ)
= =2 O
OQONSOS-ON

000400
000001
000002
032550
000000
016426

MACRO M1113 25-° \v-82 09:19

032574
032572
032573

MOv
Mov8
MOVSB

95%:

002212

ERRHRD

-t

b puty

WW W

NN N
oW 1Y)
oo N

putt

0O o

(=]
~N

o
w

N—.—A—l—ig
OO
NN

0
0
031360
0
0 31372
0
0
0
0
0
0
0
0
0
PR X

O
O O O O O
W

0 31314
0
0
0
0
0
0
0
0
0

NN
NN N NN

b
b
b
o
e
e
D e
b wnd i
e
b
b

NNNNNOO
NWN
= OO o

9 031304

b
b

000476
033647
012136

100$:

104406

005001
005002
013701
010302
000302
020102
001406
005237

032502

MOV
MOV

SWAB
CMP
8EQ
INC
ERRHRD

002212

033135
015564

1046406

005237
005237
010301
062701
023701
001332
062703
020337
002005
020327
001402
000137

004737
012737
012704
010465
004737
103407
010001
005237
104456

012136

110$:

032574
032574
000400
032574

ADD

CMP

001750
032570

115$:

177776

030720
034044
102010
032550
000000
016426

002212

:
1208

032550

¢ STARTING RAM ADDRESS

#2°123851

sSIZE OF RAM READ
sSET R4 WITH PACKET ADORESS

#T83PK2
R4

R, TSDB(RS)

PC.CHKTSSR

1008

RO,R1
FATFLG
ERRNO, T23WSS.PKTSSR

BNE

ADD

CMP
8GE
cMP
BEQ
JMP
JSR

MOV
Mov
MOV

JSR
8(CS

MOV

INC
ERRHRD

sREAD RAM COMMAND FOR WRITE SUB SYS M.

s1SSUE WRITE SUB SYS MEM (CMD (READ RAM)
sCHECK TSSR AND WAIT FOR SSR TO SET
sBR, IF NO ERRORS IN TSSR
sSAVE TSSR
;BUMP COUNT

sTSSR BAD AFTER WRITE SUB SYS ME M
TRAP
CSERHRD
318
.WORD
T23WSS
.WORD
PKTSSR
.WORD

:LOOP IF SELECTED
R1

R2
T238FR+20,R1
R3,R2
R2
R1,R2
1108
FATFLG

ERRNO, T23RNC ,EXPREC

ckLoOP
INC
INC
MOV

SEQ 0148

#256.,12352

#1,12%850

C(KLOOP

CLR
CLR

104456
000477

1
1

00 00 00 00 ~J
W
=O

1
1
1
1

031244
1166 031246
1 67 031250

JSR
BCS

MOV
INC

104456

1165 031244

MOV
MOV

F 12
PAGE 89-2

#256. .R1

12352.R1
95%
#1000. ,R3
R3,T23RS2
1208
R3,#65534.
1208

CSCLP

TRAP
.WORD
.WORD
-WORD

CSERHRD
T23RNC
EXPREC

TRAP

CSCLP

sRNC=RAM NOT CORRECT

sLOOP IF SELECTED
123S2
12352
R3,.R1

TRAP

sCLEAR REGISTERS
sCLEAR REGISTERS
sPICK UP BYTE READ FROM RAM
sSET UP EXPECTED
:SWAP BYTES
:1S RAM DATA CORRECT
;BR, IF OK (EQUAL)
;BUMP COUNT

;BUMP RAM ADDRESS TO BE CHECKED
;8UMP RAM ADDRESS TO BE CHECKED
;GET SIZE OF RECORD
sFIGURE OUT END RECORD ADDRESS

cAT END OF RAM CHECK YET

65%

;BR, IF MORE TO CHECK
sNEXT _RECORD SIZE/DATA PATTERN
;1S R3 OVER MAX RECORD SIZE
s1F RECORD SIZE 1S TOO BIG QUIT
SEND OF SUBTEST MAX RECORD SIZE
¢BR, IF COMPLETED
;D0 MORE RECORDS

PC,T23RT?

sCLEAN UP PRCKET

PC.CHKTSSR

sWAIT FOR SSR TO SET

#102010, T23PK2
#T23PK2
R4
R4, TSDB(RS)

1308

RO.R1
FATFLG

ERRNO, T23RWN,PKTSSR

319

sREWIND (POSITION) COMMAND
sLOAD R4 WITH PACKET ADDRESS
s ISSUE REWIND COMMAND
sBR, IF TSSR IS Ok (GOOD)
sSAVE TSSR CONTENTS
:BUMP COUNT

sTSSR IS INCORRECT AFTER REWIND
TRAP
CSERHRD
.WORD
320

.WORD

T23RWN

PKTSSR

TSV7 - HARDWARE TESTS 1-8

TEST

3: BASIC WRITE DATA

MACRO M1113

1204 031422
1205 031422

031422
031422
1206 031424
1207 031432

1208 031434
1209 031440

130$:

104403
023727

002212

004737

017272

103402

000017

25-MAY-82 09:19

ENDSUB

cMP

BLO

999%:

6 12

PAGE 89-3

JSR

SEQ 0149

JO5>5>>5>3>>> END SUBTEST >>>>>>>>>>>>

L10046:

FATFLG,#1S.

TRAP
;1S ERROR COUNT AT 25

PC,CKDROP

sTRY TO DROP THE UNIT

999%

:BR,

IF LESS THAN 25

(SESLB

—

MACRO M1113

D e
d i
d
cd add
e

b
NINIA) =P cod cod d

rwwwWNNNNNNN
WA=
O V00NN W

SEQ 0150

STEST 3, SUBTEST 4
:VERIFIES THAT A WRITE COMMAND WITH AN ILLEGAL MODE

sFIELD OR AN ILLEGAL BUFFER ADDRESS IS REJECTED WITH

sTHE PROPER ERROR STATUS AND THAT TAPE DOES NOT MOVE

031440
031440
031440
031442
031446
031452

BGNSUB
104402

004737
004737
004737

033752
034106
034044

JSR
JSR
JSR

3333333333533 BEG§N45UBTEST 3PIITIFTIIS)
75.4:

PC,T23REST
PC,T23RT3
PC,T23RT2

TRAP

csssus

JSET COMMAND PACKET
JRESTORE PACKET
;SET UP OTHER COMMANC PACKET

:tttttttttttt...'t..t"t'tt't.Qttt'.tt.!t.t'ttt.t't'tt'ttt"t.ttt'.

EISSUE CONTROLLER °‘°SOFT'* INITIALIZE = CARRY BIT CLEAR IF ERROR
E'tttttt'tt't'tttt't'ttttt'tttt.ttQt.tt"tt.tttt.t..tt.t'.Qt".t'tt

031456
031462
031464
031470
0 031472

S WNWW
Ow

—d

d e

b e

NST ST ST N1 ST N ST N1 ST S S NT ST NT N}

N 12
PAG E 90

25-MAY-82 09:19

o ccd

N=O000NV
WN -

NINININIPLNI
PN NN NI

TSV7 - HARDWARE TESTS 1-8
TEST
3: BASIC WRITE DATA

031472
031474
031476
031500
031502
031502
031510

004737

103407

005237
010001

016064

JSR

002212

013737
012704

DO INITIALIZE ON CONTROLLER

208

ERRDF

ERRNO,SFIERR,SFIMSG

INC
MOV

104455
000501
003650
012124

PC,SOFINIT

BCS

;BR IF INIT WAS 0K

FATFLG
RO,R1

;B8UMP COUNT
;CONTENTS OF TSSR REGISTER
JFATAL ERROR TSSR WAS NOT 0K
TRAP

CSERDF

.WORD

002172
032440

032460

208

321

.WORD

mov

MOV

UNITN, T23DSW

;SET DRIVE NUMBER IN PACKET

#T23PACKET R4

FMAAAAAAALR AR A2

SFIERR

SFIMSG

.WORD

s SUBROUTINE NEEDS PACKET ADDRESS

2222222

:WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
.

BN NN AN R NN NN AN

004737

010752

005237
010001

002212

103407

AR TR RN NN R AN RN

JSR

PC,WRTCHR

INC
MOV
ERRHRD

FATFLG
RO.R1
ERRANO,WRTMSG,
SF IMSG

BCS

104456

RN AN

NN AR

238

000502
005054
012124

N NN

AR N RN RN

AN ARNANRNN RS

;ISSUE WRITE CHARACTERISTICS

*BR, IF COMMAND ISSUED OK

*BUMP COUNT
:SAVE CONTENTS OF TSSR
SWRITE CHARACTERISTISC F?Akso
.WORD
-WORD
-WORD

AN NN

R RN RN R

NN PO RN E R RN AR N AN R RN A N AN

:WRITE DATA, ACK, ILLEGAL BITS

AN AR NN RN RN AR RN AGRERORORNS

CSERHRD
322

WRTMSG

SF IMSG

TSV7 - HARDWARE TESTS 1-8
TEST
3: BASIC WRITE DATA

MACRO M71113

1265
1266 031540

1267 031546
1268 031554

1269 031562

013737
062737

012737

104405

003114
000001

000400

031570
031574
031600
031604
031610
0316146

012704
010465
004737
016501
012702
020102

032560
000000
016340
000002
100206

1277 031620
1281 031624

005237

002212

1276 031616

031624
031626
031630
031632
1282 031634
031634
1283 031636
031636
031636

1284
1285
1286
1287

031640
031646
031650
031654

001406

032560

032562
032562

017272

MOV

MOV
ADD

MOV

MOV
MOV
JSR
MOV
MOV
cmpP

INC
ERRHRD

80$:

002212

AR AN

8EQ

104406

104403

23$:

032566

104456
000503
033012
012136

023727
103402
0064737

112

PAGE 90-1

SEQ 0151

1264

1270
1271
1272
1273
1274
1275

25-MAY-82 09:19

000017

999%:

NN AN R C NI AN

AR AN AN AN R AR AR ARG EANANRNNROINONR ORGSR

#106405,T23PK3

FREE,12%w8
#1,T03uB

#286.,123512

SWRITE DATA, ACK,

ILLEGAL BITS

JSET UP WRITE BUFFER ADDRESS
sMAKE ADDRESS CDD (ILLEGAL)

sSET UP BUFFER SIZE

#T23PK3, R4
R4, TSDB(RS)
PC.WAITF
TSSR(RS) ,R1
#SSR!SC'BIT1'8IT2,R2
R1,R2

;JR& = POINTER TO PACKETY
; ISSUE COMMAND
JWAIT FOR SSR TO SET
JGET TSSR CONTENTS
SSET UP EXPECTED
;ARE THEY EQUAL

FATFLG
ERRNO,T23TM,PXTSSR

:BUMP COUNT
JTSSR 1
"RRECT AFTER WRITE COMMAND

80$

;BR, IF OK ESP. FUNCTION REJECT
TRAP
.WORD
LWORD
.WORD

CSERHRD
323
T23TM
PKTSSR

TRAP

cscLPt

TRAP

CSESUB

CkLOOP

;LOOP ]F SELECTED

ENDSUB

2253355>>>3>> END SUBTEST >>>>>>>>>>>>

CMP
8LO
JSR

L10047:

FATFLG,#15.
999%
PC.CKDROP

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

TSV? ~ HARDWARE TESTS 1-8
TEST
3: BASIC WRITE DATA

MACRO M1113

J 12

25-MAY-82 09:19

PAGE 9

SEQ 0152

1289
1290
}%g}

H s
:
sTEST 3, SUBTEST §

1293

:VERIFIES THAT A WRITE DATA COMMAND SPECIFYING A DATA

1294
}%gg

¢BUFFER STARTING IN NONEXISTANT MEMORY TERMINATES WITH
:THE PROPER ERROR STATUS WITHOUT MOVING TAPE

1297

}583

AR A A

R AR

I R I

CAUTION

Y S X F

Y R X X 2 222X X2 222222

1300

;

:
:

are only checked when running on a 11/238 system with more than
128K words of memory!

130‘

LA AR R 2R A d

1301
}%8%

1307 031654
031654

031656
1308 031656
1309
1310
1311
1312

031662
031664
031670
031674

}g}z 031700

The LSI BUS drivers for all available address Lines(16=21)

A A Al e

BGNSUB

104402
005737

001012
000137
004737
004737

004737

003126

TST

032070
033752
034106

108:

034044

BNE
JMP
JSR
JSR

JSR

1315

R T

R 2222222222221

$23>3>>3>>>>> BEGIN SUBTEST >>>>>>>>>>>>
13.5:

NXMFLG

;DO WE HAVE IT?

108
90s
PC,T23REST
PC,T23RT3

TRAP

:BR, IF
ENOUGH
sSKIP THIS TEST IF NOT
sSET COMMAND PACKET
JRESTORE PACKET

PC.T23RT2

sSET UP OTHER COMMAND PACKET

".tt..tt.".t'tt.'.tt.t".'..l't'..ltttt.'.’.tt'ttt.t'i..tt"'t't't

1316

}%}g

sISSUE CONTROLLER °'SOFT'' INITIALIZE - CARRY 3iT CLEAR IF ERROR

1319
1320
1321 031704
1322 031710
1323 031712
1327 031716
1328 031720

:'Q..'tt'.ttt.tt.ttttt'.t".Q.!.Q't.tt.'.."ttt.l"t.".'it't.-tt.t'

031720
031722
031724
031726
1329 031730
1330 031730
}%%} 031736

004737
103407
005237
010001

016064

002212

104455
000504
003650
012124
013737

012704

002172

032440

032460

208:

JSR
8(s
INC
MOV
ERRDF

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

:DO INITIALIZE ON CONTROLLER
:BR IF INIT WAS 0K
JBUMP COUNT
;CONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT OK

MOV
MOV

UNITN,T23DSW
#T23PACKET R4

;SET DRIVE NUMBER UP

TRAP
.WORD
LWORD
.WORD

s SUBROUTINE NEEDS PACKET ADDRESS

1333

}ggg

sWRITE CHARACTERISTICS COMMAND

1337
1338
1339 031742

:°tttltt.t'.tttttttt.tttt"t".tt'ltttttttt'.ttitll'ttttttlttttttttt
004737

010752

1341 031750
1345 031754

005237
010001

002212

1334

1340 031746

csBsuB

NN AR R AN RN AN AN N R

103407

RN AN AN R AR A NN AR NN AR AR

AR RN N RN NN RNRNRERRAANRR

(CALL TO WRTCHR)

JSR

PC ,WRTCHR

sISSUE WRITE CHARACTERISTICS

INC
MOV

FATFLG
RO.R1

;BUMP COUNT
:SAVE CONTENTS OF TSSR

8(s

238

:BR, IF COMMAND ]SSUED Ok

CSERDF
324
SFIERR
SFIMSG

TSV? = HARDWARE TESTS 1-8
TEST
3: BASIC WRITE DATA

1346 031756
031756

031760
031762
1307 031764

MACRO M1113

25-MAY-82 09:19

K 12
PAGE 91-1
SEQ 0153

ERRHRD

104456
000505
005054
012124

ERRNO,WRTMSG,SFIMSG

;WRITE CHARACTERISTISC FAILED
TRAP

WORD
.WORD
.WORD

1348

(SERHRD
325
WRTMSG
SFIMSG

:ttttttttttt'.!ttttttttttttttttttt'tttttt'Di.t.tttt.tt.tt.ttttttttt

1349

}%g?

sWRITE DATA, ACK, CV(C=1

1352
1353
1354 031766

:'tt'tttttttt.ttttttttttttttttttttttt.ttttttttt.'t..tttt't'tt'ttttt'

1355 031766
1356 031772

004737
012737

021276
140005

1358
1359
1360
1361
1362
1363
1364
1365
1366
1367
1371

013737
012737
012704
010465
004737
016501
012702
020102
001406
005237

003132
000100
032560
000000
016340
000002
1046210

1357 032000

032006
032014
032022
032026
032032
032036
032042
032046
032050
032052
032056
032056
032060

032062
032064

1372 032066

032066
1373 032070
1374 032070
032070
032070
1375 032072
1376 032100

1377 032102
1378 032106

013737

003130

238:
032560

032562

004737

MoV
MOV
MOV
MOV
JSR
MOV
MoV
CMP
BEQ
INC
ERRHRD

002212

808$:

104406

104403
023727
103402

MOV

032564
032566

104456
000506
033012
012136

90$:

002212

017272

JSR
MOV

000017

NXMLO, T23wB

NXMHI, T23wB+2
#64.,12352
#T23PK3,R4
R4, TSDB(RS)
PC.WAITF
TSSR(RS) ,R1
#SC'NXM!SSR'BIT3,R2
R1,R2
80$
FATFLG
ERRNO,T23TM,PKTSSR

:INVERT THE EXTENDED FEATURES SWITCH
;WRITE DATA, ACK, CVC=1

;SET UP WRTTz BUFFER ADDRESS

;HIGH ORDER ADDRESS BITS
;SET UP BUFFER SIZE
;R4 = POINTER TO PACKET
:ISSUE COMMAND
;WAIT FOR SSR TO SET
:GET TSSR T INTENTS
;SET UP EXPECTED
;ARE THEY EQUAL
:BR, IF OK ESP. FUNCTION REJECT
:BUMP COUNT
;TSSR INCORRECT AFTER WRITE COMMAND
TRAP
CSERHRD
.WORD
326

WORD
.WORD

T23TM
PKTSSR

TRAP

(CSCLP?

CKLOOP

:LOOP IF SELECTED

ENDSUB

$2235335335>> END SUBTEST >>>>3>3>>>>>>
110050
TRAP
CSESUB
;1S ERROR COUNT AT 25
;BR, IF LESS THAN 25

CMP
8LO
9998
:

PC, INVERT
#140005, 123PK3

JSR

FATFLG,#15.
999%

PC.,CKDROP

;TRY TO DROP THE UNIT

TSV? = HARDWARE TESTS 1-8

| TEST

3: BASIC WRITE DATA

MACRO M1113

25-MAY-82 09:19

L 12
PAGE 92

SEQ 0154

1380
1381
}gg%

e
.
sTEST 3, SUBTEST 6

1364

VERIFIES THAT A WRITE DATA COMMAND SPECIFYING A DATA

1389

gg?

1392

1395

1385
1386
1387
1388

BUFFER STARTING IN EXISTANT MEMORY BUT RUNNING INTO
JNONEXISTENT MEMORY TERMINATES WITH THE PROPER ERROR
sSTATUS. A LARGE ENOUGH RECORD SIZE 1S SPECIFIED SUCH
sTHAT TAPE IS ACTUALLY MOVED AND WRITTEN.

1393
1394

:
:

1396
1397
1398 8%%}82

032106

1399 032110

1400
1401
16402
1603
}282

032114
032116
032122
032126
032132

tttttt.tttttttttttttlt.tttt.tt.tt.titlttttQttttttttt'ttt.ttti"ttt

CAUTION

The LS1 BUS drivers for all available address lines(16-21)

are only checked uhen running on a 11/238 system with more than
128K words of memory!

ttttttttttt.tttttttfitttttttttttttttttttttttttittt!ttttfit.ttttt.t"t

Hiad
BGNSUB

104402

005737

001002
000137
004737
004737
004737

003126

TST

032402
034106
033752
0340644

108:

1606

BNE
JMP
JSR
JSR
JSR

$253533>>>>>> BEGIN SUBTEST >>>>>>>>>>>>

NXMFLG

108
1308
PC,T23RT3
PC,T23REST
PC,T23RT2

:D0 WE HAVE IT?

IRAP

:BR, IF
ENOUGH
JSKIP THIS TEST IF NOT
JRESTORE PACKET
JSET COMMAND PACKET
JSET UP OTHER COMMAND PACKET

:tttt'tttttttttt't'tttttttti'tttttttttfi.ttttttttttittttttt'tltt'ttt

1407

}283

s ISSUE CONTROLLER ‘‘SOFT'' INITIALIZE - CARRY BIT CLEAR IF ERROR

1410

;ttttttttttttttttttttttttttttfitt'tlttttttttttlttttttttttttttt-ttttt

1411

1412
1413
1414
16418
1419

($BSUB

032136
032142
032144
032150
032152

032152
032154
032156
032160
1420 032162
1421 032162
}2%% 032170

004737
103407
005237
010001

016064
002212

104455
000507
003650
012124
013737

012704

002172

032440

1424

032460

20$:

JSR
8CS
INC
MOV
ERRDF

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

;D0 INITIALIZE ON CONTROLLER
BR IF INIT WAS OK
‘BUMP COUNT
:CONTENTS OF TSSR REGISTER
JFATAL ERROR TSSR WAS NOT 0K

MOV

UNITN,T23DSW
#T23PACKET R4

sSET DRIVE NUMBER IN PACKET

MOV

TRAP
.WORD
LWORD
-WORD

:SUBROUTINE NEEDS PACKET ADDRESS

:tQttttfittttttttttttttttttt'ttitttfittttfit'ttt'tttttttttt'tttt'tttt.

1425

}259

JWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

1428

;ttttt’ttt'ttttttttttt"ttQtt.ittttttt.ttttttttttlt.t'lt!tfitt!tl.t'

1429

1430 032174

004737

010752

1632 032202
1436 032206

005237
010001

002212

1431 032200

103407

JSR

BCS

INC
MOV

PC ,WRTCHR

;ISSUE WRITE CHARACTERISTICS

FATFLG
RO,R1

sBUMP COUNT
JSAVE CONTENTS OF TSSR

23§

:BR, IF COMMAND ISSUED OK

CSERDF
327
SFIERR
SFIMSG

—

TSV7 -~ HARDWARE TESTS 1-8

TEST

3: BASIC WRITE DATA

1437 032210

MACRO M1113

25-MAY-82 09:19

n 12
PAGE 92-1
SEQ 0155

ERRHRD

104456
000510
005054
012124

ERRNO,WRTMSG, SFIMSG

sWRITE CHARACTERISTISC FAILED
TRAP

CSERHRD

.WORD

328

.WORD
.WORD
AR

AN RN AR AN AN AN AN RN R AR A N

AR AN A AN R NAN AN RN AN NN NN NN

NNNNE

WRTMSG
SFIMSG

*WRITE DATA, ACK,CVC=1
.

RN AR AN N RN AN R AN AN AN R

1445
1446
1447
1448
1449

032220
032220
032224
032232
032236

14
1454 032266
1455 032272
}4

1460 032312
1464 032316

032324
1465 032326
032326
1466 032330
1467 032334
1468 032340
1469 032346
1470 032352
1471 032356

1472 032362
1473 032364

1474 032366
1478 032372

032372
032374
032376
032400

1479 032402
1480 032402

032402
032402
1481 032404

1482 032412
1483 032414
1484 032420

004737
012737
013701
162701

010137
013737
012737
012704
010465
004737
016501
012702
020102
001406
005237

021276
140005

003130
001000
032562
003132
000000
032560
000000
016340
000002
104210

23$:
032560

032566

002212

808:

034044
034106
102010
032550
000000
016426

103402
004737

#0.,10352
#T12%PK3
R4

R4, TSDB(RS)
PC.WAITF
TSSR(RS)
,R1
#SC!NXM!SSR!BIT3,R2

R1,R2
80$
FATFLG

ERRNO,T23TM,PKTSSR

CKLOOP

JSR
JSR
MOV
MOV

032550

MOV
JSR

B8CS

MOV
INC

002212

ERRHRD

;R4 = POINTER TG PACKET

s ISSUE COMMAND

sWAIT FOR SSR TO SET

sGET TSSR CONTENTS
sSET UP EXPECTED

sARE THEY EQUAL

sBR, IF OK ESP. FUNCTION REJECT
¢BUMP COUNT
sTSSR INCORRECT AFTER WRITE COMMAND
TRAP

CSERHRD

;LOOP JF SELECTED

.WORD

PKTSSR

PC,T23RT2
PC.T23RT3
#102010,T23PK2
#T23PK2
R4

TRAP

cscLP

R4, TSDB(RS)
PC.CHKTSSR

1308

RO,R1
FATFLG

ERRNO, T23RWN,PKTSSR

TRAP

CSERHRD

.WORD

PKTSSR

JCLEAN UP PACKET
JRESTORE PACKET
cREWIND (POSITION) COMMAND
JLOAD R4 WITH PACKET ADDRESS
sISSUE REWIND COMMAND
JWAIT FOR SSR TO SET
:BR, IF TSSR IS OK (GOOD)
JSAVE TSSR CONTENTS
;BUMP COUNT
sTSSR IS INCORRECT AFTER REWIND
.WORD
.WORD

012136

104403

R1,T235wB

;WRITE DATA, ACK,CV(C=1

.WORD
.WORD

104456
000512
033066

023727

NXMHI, T23wB+2

ERRHRD

000511
033012
012136

sHIGHEST MEMORY ADDRESS LOW BITS
cSET ADDRESS A LITTLE LOWER
cLOAD INTO THE PACKET
sHIGHEST MEM ADDRESS HI BITS
sSET UP BUFFER SIZE (64K BYTES)

MOV

CMP
BEQ
INC

N N AR NAR NN

NXMLO,R1

#1000 .R1

MOV
JSR
MOV
MOV

ANN NN A AN

s INVERT EXT'D FEATURES

SUB

MOV
MOV

PC, INVERT

#160005, T23PK3

MOV

032564

RN RN AR

MOV

104456

104406
004737
004737
012737
012704
010465
004737
103407
010001
005237

JSR

TN R

130$:

002212

017272

000017
:
9998

ENDSUB

CMP
BLO
JSR

329
T23TM

330
T23RWN

SOO355555555> END SUBTEST >35>>3>>>>>>
L10051:
FATFLG,#15.
999%
PC.CKDROP

TRAP

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

sTRY TO DROP THE UNIT

CSESUB

TSV? -~ HARDWARE TESTS 1-8
TEST
3: BASIC WRITE DATA
1485 032420
1486 032424
1487 032426
1488 032432
1489 032432

032432
032434

004737
103002
000137
104432
001664

MACRO M1113

016546
027376

163$:

25-MAY-82 09:19

N 12
PAGE 92-2

SEQ 0156

JSR
8CC
JMP

PC,TSTLOOP

1638

123L00P

;DO WE NEED TO ITERATE TEST
s8R, IF NO LOOP REQUIRED
sEXECUTE AGAIN

EXIT

TST

sALL DONE THIS TEST

TRAP

.WORD

CSEXIT

L10043-.

TSV7 ~ HARDWARE TESTS 1-8
TEST
3: BASIC WRITE DATA
1491
1492

07 03.460
08 03.462

NIPVNINININ)
=P b ad =b ad b ek = O
VR NOVNSOOVRNOWNW=SOY

d ad wod
) =D md and D and

o
W

é\mv\wm

D ed wd wmd
d ad D e

02 032450
03 032450
046 032452
05 032454

AV AWVTVVWAVAVAVIAWV

813

PAGE 93

SEQ 0157

sLOCAL STORAGE FOR THIS TEST

1495
1497 032440
1498 032440
1499 032442
1500 0324446
501 032446

25-MAY-82 09:19

1493

b d ) ad wd D el e d e wd —d d ol wd e b wd b b ol D D el D d e
WAVAWWA
AWM
WVWA WAV VIV AWV
AWM AWMV

MACRO M1113

032440
100004

032450
000000
000010

032462
000000
000012
000000
000000

=<, +10>8177770

T23PACKET:
.WORD
.WORD
.WORD
T23DATA:

T23DSW:
T23BFR:

sCOMMAND PACKET FOR TEST

100004

sWRITE CHARACTERISTICS COMMAND,

.WORD

.WORD
.WORD
-WORD
.WORD
.WORD
.BLKW

T238FR
0

;STARTING VALUE OF BLOCK SIZE
sCHARACTERISTICS DATA BLOCK
sADDRESS OF MESSAGE BUFFER

523DATA

10.

0
0
25.

WITH ACK

sADDRESS OF CHARACTERISTICS BLOCK

;LENGTH OF MESSAGE BUFFER
sSELECT DRIVE 0
;MESSAGE BUFFER

*WRITE SUBSYSTEM MEMORY COMMAND PACKET
032550
100006

T23PK2:

032572
000000
000006
100005

.=<. +10>8177770
.WORD
.WORD
.WORD
.WORD

100006
1238F2
0
6.

.WORD
.WORD
.WORD
.EVEN

0
0
0

sSIZE OF BUFFER (EXTENT)

sLARGEST TAPE RECORD [N BYTES

T23PK3:

000000
000000
000000

12382:

000000

T23RSZ:

.WORD

T238F2:
1238S0:
1238S1:

.BYTE
.BYTE

T123S3:

.WORD

010
200
000000
000000

000000
000000

T23w8:

123S2:

100005

sSIZE OF DATA PACKET
sWRITE COMMAND,
AND ACK
;ADDRESS OF WRITE BUFFER

;BSELO AREA
;BSEL1 AREA
;SEL 2 AREA
;DATA AREA

.WORD

123TMP: .WORD
T23WRT:

;WRITE SUB SYS MEM COMMAND, AND A(K
sADDRESS OF SELECT BLOCK DATA

;s TEMPORARY REGISTER

.WORD

cRETRY COMMAND

.EVEN

;TAPE MOTION PACKET COMMAND VALUES

T23WD:
T23WDR:
T23CON:

.WORD
.WORD
.WORD
.WORD

100005

cWRITE DATA (NEXT)

cWRITE DATA RETRY

;WRITE CONTINOUS
cEND OF DATA

TSV? ~ HARDWARE TESTS 1-8
TEST
3: BASIC WRITE DATA

MACRO M1113

1554
1555
1556

25-MAY-82 09:19

’

SEQ 0158

X
sLOCAL TEXT MESSAGES FOR TEST

1338

1559 032614
1560 032647
1561 032734

127
105
127

122
117
122

111
1264
111

T23SSR:
T23ET:
T23EOT:

.ASCIZ
_ASCIZ
.ASCIZ

1564 033135
1565 033210
1566 033256

122
124
104

101
123
162

115
123
151

T23RNC:
T23AM3:
T230FL:

.ASCIZ
_ASCIZ

103
124
127
102

126
123
122
141

103
102
111
163

1562 033012
1563 033066

1567 033331
1568 033420

1569
1570
1571
1572
1573

c 13

PAGE 94

033522
033575
033647
033736

1264
122

1264
124

123
145

123
123

123
167

123
123

T123TM:
T23RWN:

Tc3uDD:
T23WDC:

‘'WRITE Command Not Accepted’
‘EOT Nct Found In 12000 4k Writes, (Use Shorter Tape)'
°'WRITE DATA OVER EOT GAVE NO TAPE STATUS ALERT®

_ASCIZ
.ASCI2

°'TSSR Not Correct After WRITE Command Reject’
‘Rewind (POSITION) Command Not Accepted'

.ASCIZ
.ASCIZ
.ASCIZ

‘Drive 7 Select Failed To Set ‘OFL'* In TSSR’
)
'TSSR Not Correct After WRITE DATA Command, SwWB Bit Set'
.
°'TSSR Not Correct After WRITE DATA Command, Check For Tape Offline’

T23v(K:
.ASCIZ
T23BA:
_ASCIZ
T23wWSS: .ASCIZ
T1ST1231D:
.EVEN

‘'RAM Error, Correct Data Pattern Not In Ram'
'TSSR Init. Failed After WRITE Command’

°CVC Set, Didn'‘t Reset V(K In Message Buffer’
°'TSBA Not Correct After WRITE DATA Command’
°'WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)'
.ASCIZ
'Basic Write'

1576
}g;g

sROUTINE TO RESTORE COMMAND PACKET TO START=UP (SCFAULT)
SWRITE SUBSYSTEM MEMORY COMMAND

1579
1580
1581 033752
1582 033752

1583 033756

T23REST:

012701

1584 033762
1585 033766
1586 033772
1587 033774
1588 034000
1589 034004
1590 034006
1591 034012
1592 034014
1593 034020

012721
012721
005021
012721
012721
005021
012721
005021
012711
012702

1595 034032
1596 034034

005742
020227

1594 0364024

1597 034040
1598 034042
1599
1600
1601 034044

012762

001371
000207

SAVREG

032440

MOV

100004
032450

000012
032462
000024

000000
000030

177777

032462

64$:

000000

MOV
MOV
CLR
MOV
MOV
CLR
MOV
CLR
MOV
MoV

Mov

TST
(MP

#T23PACKET R1

:SAVE THE REGISTERS

;START OF THE PACKET

#100004, (R1)+
#T23DATA, (R1)+
(R1)+
#10.,(R1)+
#T23BFR,(R1)+
(R1)+
#20.,(R1)+
(R1)+
#0, (R1)
#264. ,R2

sSELECT DRIVE ZERO
sNUMBER OF LOCATIONS TO BE CLEARED

=(R2)
R2,#0

;BUMP DOWN TO NEXT LOCATION
;R2 AT ZERO YET

#177777,123BFR(R2)

;WRITE SUBSYSTEM MEM. WITH ACK
sADDRESS OF CHARAISTICS DATA BLOCK
sEXTENDED ADDRESS
;SIZE OF DATA BLOCK IN BYTES
:ADDRESS OF MESSAGE BUFFER
.
;LENGTH OF MESSAGE BUFFER

JALL ONES TO MESSAGE BUFFER

BNE
RTS

64$
PC

cKEEP GOING UNTIL DONE
;RETURN

SAVREG
MOov
MOV
MOV
CLR
MOV

#T23PK2,R1
#100006,(R1)+
#7238F2,(R1)+
(R1)+
#6. . (R1)+

sSAVE THE REGISTERS
cSTART OF THE PACKET
SWRITE SUBSYSTEM MEM. WITH A(K
;ADDRESS OF DATA BLOCK
sEXTENDED ADDRESS
;SIZE OF DATA BLOCK IN BYTES

CLR
CLR

(R1)+
(R1)+

T23RT2:

1602 034044
1603 034050
1604 034054
1605 034060
1606 034064
1607 034066

012701
012721
012721
005021
012721

1609 034076
1610 034100

005021
005021

1608 034072

VALUES

012701

032550
100006
032572
000006

032572

mov

#1238F2,R1

:POINT TO DATA SEL AREA

———

TSV7 = HARDWARE TESTS 1-8

—b

b cad wd ad

ooooocooso
RRRRQRRARY

b b ond

3: BASIC WRITE DATA

WNINN)
= 200
oSN

TEST

MACRO M1113

D13

PAGE 94-1
SEQ 0159

005C11
000207
012701
012721
005021
005021
005011
000207

25-MAY-82 09:19
(R1)

CLR

T23RT3:

032560

RTS

SAVREG

#100005,(R1)+
(R1)+
(R1)+
(R1)

CLR
CLR
CLR

RTS
b

[

JSAVE THE REGISTERS

#T23PKk3,R1

Mov
MOV

100005

JRETURN

JSTART OF THE PACKET
JWRITE
TAPE. WITH ACK

;ADDRESS OF DATA BLOCK

JEXTENDED ADDRESS
;SIZE OF DATA BLOCK
:RETURN

*ROUTINE TO RETRY WRITE DATA IN CASE OF BAD TAPE FOR TEST
:3,5UBTEST 2 ¢ 3

L INPUTS:
1630 034132
1631 034132
1632 034136
1633 034142
1634 034146
1635 034150
1636 034154
1637 034160
1638 034162
1639 034164
1640 034170
1641 034172
1642 034174
1643
1644 034176
1645 034176
1646 034202
1647 034210
1648 034216
1649 034222
1650 034224
1651 034230
1652 034234
1653 034240
1654 034244

1655 034250
1656 034254
1657 034256
1658 034260
1659 034264
1660 034272
1661 034274
1665 034300
1666 034304

T23CHK:

005037
032701
001452
013702
032702
001401

032600

100000

032472
000002
1%:

EXIT:

013702
104456

000513
005276
012200

002212
032462

BIT
BEQ
B8R
8IT

BNE
B8R
RTS

RETRY:

032562
032560

FATAL:

T23TMP

#SC.R1
FATAL

T238FR+10,R2

1%1.UNC.R2
RETRY
#X1.COR,R2
RETRY
FATAL
PC

;SAVE THE REGISTERS
;CLEAR LOCAL REGISTER
;IS SC SET IN TSSR?
;NO, YOU GOT PROBLEMS'
JYES,GET XSTAT
cIS UNC SET IN XSTAT1?
;NO, CHECK COR
JYES,DO WRITE DATA RETRY
;IS COR SET IN XSTAT1 THEN?
JYES SO RETRY
;NO, YOU GOT PROBLEMS

;RETURN

;STARTING WRITE BUFFER ADDRESS
sWRITE DATA RETRY COMMAND SETUP BY SUBROUTINE
cSET UP R4 WITH PACKET ADDRESS

JSR

PC.FILLMEM

sFILL MEMORY WITH RECORD SIZE

JSR
MOV
Mov

PC.WAITF

SWAIT FOR SSR TO SET

MOV
MOV

032600

SETS UP T23WwRT FOR RETRY

#20. .R3
FRE
. T23w8
E
#TI3URT.T23PK3
#T23PK3
R4

MoV

MOV
MOV
MOV
MOV

017512
032566
000000
016340
000002
000200
032600
000005

SAVREG
CLR
BIT
BEQ

MoV

020000

000024
003114
032602
032560

R1=TSSR
SUBROUTINE

cMpP
B8EQ
INC
CMP
BNE
INC
MOV

ERRHRD

R3.T23S2
R&.TSDB(RS)

TSSR(RS)
,R1

#SSR,R2

R1,R2

ExiT
123TMP
#5.T23TMP

FATFLG

T238FR,R2
ERRNO, SCHERR ,PKTME S

sSTARTING RECORD SIZE

sSET PATTERN IN CORRECT REGISTER

sSET UP RECORD SIZE IN PACKET
s ISSUF COMMAND

sGET TSSR CONTENTS
sSET UP EXPECTED

sARE THEY EQUAL

:BR, IF 0K

sTRY FIVE TIMES THEN EXIT

;DONE FIVE YET?
sNO GO AGAIN
sBUMP COUNT
:LOW ORDER MSGBUF
sTSSR INCORRECT AFTER WRITE DATA
TRAP

CSERHRD

.WORD
.WORD

SCHERR
PKTMES

.WORD

331

TSV7? - HARDWARE TESTS 1-8
TEST
3: BASIC WRITE DATA

1667 034314
1668 834%20

34320
034320

004737

106401

017272

MACRO M1113

25-MAY-82 09:19
JSR
ENDTST

E 13

PAGE 94-2

PC,CKDROP

SEQ 0160
sDROP THE UNIT

L10043:

TRAP

CSETST

—

TSV? = HARDWARE

TEST

4&:

TESTS 1-8

BASIC READ DATA

MACRO M1113

25-MAY-82 09:19

(FORWARD AND REVERSE)

}2;9

F 13

PAGE 95

SEQ 0161

LSBTTL

TEST

&: BASIC READ DATA (FORWARD AND REVERSE)

1672
1673
1674
1675
1676
1677
1678
1679
1680
1681

H
sTHIS TEST VERIFIES THAT THE READ FORWARD AND READ REVERSE
;COMMANDS OPERATE PROPERLY. VARIOUS COMBINATIONS OF ODD AND EVEN
:DATA BUFFER BOUNDARIES, RECORD SIZES (UP TO 64K BYTES IF MEMORY
sSPACE IS AVAILIABLE), AND BYTE-SWAP CONTROL ARE USED. THIS TEST
;OF COURSE, FURTHER VERIFIES THE WRITE DATA COMMAND BY ACTUALLY
sREADING AND VERIFYING WRITTEN DATA. ALSO TESTED ARE PROPER
;TERMINATIONS ON EXCEPTIONAL OR ERROR CONDITIONS: RECORD LENGTH
:LONG, RECORD LENGTH SHORT, READ REVERSE AT BOT, ILLEGAL DATA
;BUFFER ADDRESSES, ILLEGAL CCDES IN THE MODE FIELD OF THE BASIC

1684
}ggg

:
:THE TEST CONSISTS OF

1687

1689

}ggg

JREAD COMMAND, AND DATA BUFFERS IN NON-EX]STANT MEMORY. THE TEST

1688

1690 034322
034322

1691 034322
1692 034330
1693 034334
1698 034340
1699 034344
1700 034350

};85 034354

012737
005037
004737
012700
004737
004737

012737

006356
003124
017364
046202
016600
021366

000005

002170

MOV

N
JTEST &4,

17058
1706

.
:

1707
1708
1709
1710
1711
1712
1713
1714
1715
1716
1717
1718 034362
1719 034362

034362

034362
1720 034364
1721 034370
1722 034374

};Sz 034400
1726
1727

BGNTST
MOV
CLR
JSR
MOV
JSR
JSR

002206

1703
1704

1725

THE FOLLOWING 14 SUBTESTS

#EPRT1,EPRTSW
KTENABLE
PC.KTOFF
#TST241D,RO
PC,TSTSETUP
PC.MEMCK

#5,L00PCNT

Té::
;SET UP PRIMARY ERROR MESSAGE
JTURN OFF KT11
;TURN KT11 OFF
sASCI] MESSAGE TO IDENTIFY TEST
;DO INITIAL TEST SETUP
:CHECK FOR MEMORY

;PERFORM S ITERATIONS

SUBTEST 1

JVERIFIES THAT A READ DATA COMMAND WITH THE CLEAR
;VOLUME CHECK (CVC) BIT CLEAR IS REJECTED IF THE
;VOLUME CHECK (VCK) IS SET. ALL LEGAL
:COMBINATIONS OF THE COMMAND MODE FIELD ARE TESTED
JC1.E., IT IS VERIFIED THAT THE COMMAND IS REJECTED
;DUE TO VCK BEING SET RATHER THAN ERRONEOUS DECODING
;OF THE MODE FIELD.
:
:
;T24L00P:

BGNSUB

106402
004737
004737
004737

012737

046250
046404
046342

176750

043736

JSR
JSR
JSR

MmOV

JOO555555>>> BEGIN SUBTEST >>33>>>>>>>>

T4.1:

PC,T24REST
PC,T24RT3
PC,T24RT?2

065000..1240Lv

TRAP
;SET COMMAND PACKET
sSET UP OTHER COMMAND PACKET
sSET UP OTHER COMMAND PACKET

sLOAD UP DELAY ROUTINE

.'tttttt'ltttttttttttt'tttt'tttttttttttttt'tttttttt'ttttlttttttttttt

N
;ISSUE CONTROLLER °*'SOFT'* INITIALIZE - CARRY BIT CLEAR IF ERROR

cs8sSuUB

—

TSV7 =~ HARDWARE TESTS 1-8

TEST

MACRC M1113

G 13

25-MAY-82 09:19

PAGE 95-1

&: BASIC READ DATA (FORWARD AND REVERSE)

1728
1729
1730
1731 034406

1732 034412
1733 034414

SEQ 0162

MAAAAAARALAAAL

004737
103426

016064

012727
000000
013727
000000

000250

5$:

AR A

JSR
BCS

PC,SOFINIT

1734 034444

002116
177772

1741 034460

ERELE

002212

000621
003650
012124

012737
012704

000007
043570

6250.(PC)0

063610

:
208

b‘DLV.(PC)*
=-6(PC)
=4

BNE
DEC
BNE

T24DLY
$

DEC
BNE
INC
MOV
ERRDF

104455

=22(PC)

;BUMP DELAY COUNTER
;BR, IF MORE DELAY REQUIRED
¢BUMP COUNT
cCONTENTS OF TSSR REGISTER

sFATAL

ERROR

TSSR WAS NOT Ok

CSERDF
401

TRAP
.WORD
.WORD
.WORD

#7,T24DSW

MOv
MOV

SFIERR
SFIMSG

sSET DRIVE NUMBER IN PACKET
sSUBROUTINE NEEDS PACKET ADDRESS

#TO4PACKET
R4

AR AR AR RN AN AR AN NN R RN RN N NN R AN AN N RN AR AN RN NN NN R NANARNARARNNNARNN

WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
.

AR AARAL RS

004737
103407
005237
010001

010752

001044
112737
112737
012704

010001
005237
1046456

000623
044457

JSR
BCS
INC

002212

PC,WRTCHR

248

MoV

ERRHRD

104456

FRERRER WP

35% 2BAXER2S

b e
b
b cnd o
el
b
—d el el

NNNNN
~ NON
[

034466
1742 034470
1743 034470
1744 034476
1745
1746
1747
1748
1749
1750
1751
1752 034502
1753 034506
1754 034510
17
17

063736
010001

)

MoV
. WORD
MoV
. WORD
DEC

177756
1735 034450
1736 034452
1740 034456

;DO INITIALIZE ON CONTROLLER
;BR IF INIT WAS OK
sDELAY AWHILE

208
250

DELAY

002216
000200
000010
043700
000000
016426
002212

248:

063721
043720

22222222

s ISSUE WRITE CHARACTERISTICS
sBR, IF COMMAND ISSUED Ok
:BUMP COUNT
;SAVE CONTENTS OF TSSR

SWRITE

CHARACTERISTISC

FAILED
TRAP

.WORD
.WORD
. WORD

CSERHRD

402

WRTMSG
SFINSG
SWITCH

TST
BNE

EXTFEA
508

sCHECK FOR EXTENDED FEATURES SW
;B8R IF SWITCH IS ON

MOv8
MOv8
MOV
MoV

#10, 724850
#T24PK2
R4
R4, TSDB(RS)

#200, 724851

cWRITE MISCELLANEOUS CONT/READ STATUS
sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH)
SWRITE SUBSYS MEM PACKET
s ISSUE COMMAND

JSR
BCS
Mov
INC
ERRHRD

PC.CHKTSSR

30§

RO,R1
FATFLG

ERRNO,T24SSR,PKTSSR

sWAIT FOR SSR

:BR, IF NO ERROR
sERROR, SAVE TSSR
<BUMP COUNT

sTSSR NOT CORRECT AFTER WRT. MISCELLANEOUS
TRAP
CSERHRD
403
-WORD
T24SSR
.WORD

TSV7 ~ HARDWARE TESTS 1-8

TEST

&: BASIC READ DATA

MACRO M1113

(FORWARD AND REVERSE)

012136

1775
1776
1777 034614
1778
1779
1780
1781
1782
1783
1784
1785 034620
1786
1787
1791
1792

104406

012737
012704

30$:
000007
043570

043610

034674

1803 034676

#TOLPACKET
R4

.WORD

PKTSSR

TRAP

cscLePt

;SET DRIVE NUMBER [N PACKET
; SUBROUTINE NEEDS PACKET ADDRESS

004737
103407
005237
010001

010752

002212

104406

PC,WRTCHR

508

FATFLG
RO,R1
ERRNO,WRTMSG,
SF IMSG

222222

sISSUE WRITE CHARACTERISTICS
sBR, IF COMMAND [SSUED OK
;BUMP COUNT
sSAVE CONTENTS OF TSSR

SWRITE CHARACTERISTISC FAILED
TRAP

.WORD

50$:

000002
000100

(KLOOP

MOV
BIT

BNE
INC
ERRDF

002212

000625
045235
012124

012703

JSR
8CS
INC
MOV
ERRHRD

104455

034672

#7,124DSW

MOV

MALAASA AR AR

016501
032701
001006
005237

1802 034674

;LOOP IF SELECTED

:WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

104406

179?
1801

SEQ 0163

:ttfi"."t"'..l.'."".'Q..Q'....t.'..'tt..".'..'..t.'t.""'t"t

000624
005054
012124

1794
1795

H 13

PAGE 95-2

(kLOoP

MOV

104456

1793

25-MAY-82 09:19

60$:

043726

:SCOPE LOOP
TSSR(RS)
,R1
#OFL ,R1

608
FATFLG
ERRNO,T240FL,
SF IMSG

c(kLooP

MOV

.WORD
.WORD

WRTMSG
SFIMSG

TRAP

cscLPl

sGET TSSR CONTENTS
sCHECK FOR THE OFFLINE BIT SET
sBR, IF OFFLINE (GOOD)
;BUMP COUNT
;OFF LINE SHOULD HAVE BEEN SET (BAD)
TRAP

sPOINTER FOR COMMANDS

CSERDF

WORD
.WORD

405
T240FL

TRAP

CscLP

.WORD

sLOOP IFf SELECTED
#T24RN,R3

CSERHRD

404

SFIMSG

;...Q't..'...t.ti"!."""...t.....'..t......'..ltt".'...."...'.

STAPE READ COMMAND IN PLACE
L4

:t'.'."..Q.'.'...'Q."""tti....t....t.........tt't'.i'.fi.""."

011337

012704

010465
004737
016501
012702
020102
001406
005237

043710
043710

65$%:

MOV
JSR
MOV

MOV

100306

(MP
8EQ
INC
ERRHRD

002212

1046456

1824

000626
044773
012136

MOV
Mov

(R3),T24PK3
#T24PK3
RS
R4 ,TSDB(RS)
PC,WAITF
TSSR(RS)
,R1

s TAPE READ COMMAND

IN PLACE

;R4 = POINTER TO PACKET
s ISSUE COMMAND
sWAIT FOR SSR TO SET
;GET TSSR CONTENTS

#SSR!SC'OFL'BIT1'8IT2,R2’
R1,.R2
80%
FATFLG
ERANO,T24TM,PKTSSR

sSET UP EXPECTED
cARE THEY EQUAL
:BR, IF OK ESP. FUNCTION REJECT
sBUMP COUNT
sTSSR INCORRECT AFTER TAPE MOTION CMD
TRAP

.WORD
WORD

80$:

kLoop

sLOOP IF SELECTED

.WORD

CSERHRD

406
T24TM

PKTSSR

TSV7 = HARDWARE TESTS 1-8

TEST

1825
1826
1827
1828
1829
1830

BASIC READ DATA

034752

104406

005723
022713
001401
000746

1831 034770

023727

002212

1833 035000

004737

017272

1832 034776

1834 035004

104403

103402

25-MAY-82 09:19

(FORWARD AND REVERSE)

034754
034756
034762
034764
034766
034766
034766

034766

MACRO M1113

177777

90$:

000017

SEQ 0164

TST
CMP
8€EQ
BR

(R3)+
#177777,(R3)
90$
65%

ENDSUB

CMP

8LO

999
:

I 13

PAGE 95-3

JSR

JBUMP TO NEXT COMMAND
JEND OF THE COMMANDS YET
;BR, IF DONE
JMORE COMMAND(S) TO GO

TRAP

cscLPt

J3353553>>3>> END SUBTEST >>>5>>>>>>>>
L10053:

FATFLG,#15.

999%

PC.CKDROP

TRAP

;1S ERROR COUNT AT 25

;BR,

IF LESS THAN 25

:TRY TO DROP THE UNIT

C$ESULB

—_——

TSV? - HARDWARE TESTS
1 -8

TEST

MACRO M1113

25-MAY-82 09:19

PAGE 96

4&: BASIC READ DATA (FORWARD AND REVERSE)

1836
1837
1838
1839
1840
1841
1842
1843
1844
1845
1846
1847
1848
1849
1850
1851
1852

SEQ 0165

1 é

STEST &, SUBTEST 2
sVERIFIES THAT READ FORWARD COMMANDS WITH Sw8=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 REWOUND

:AGAIN AND THE RECORD READ SEQUENTIALLY AND RESULTS

s (STATUS, DATA, ETC.) VERIFIED. THE BYTE COUNT ON
:EACH READ FORWARD COMMAND IS SET TO THE LENGTH OF THE
;EXPECTED RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD
sOCCUR.

1853 035004
035004
035004
1854 035006
1855 035012
1856 035016

BGNSUB
104402

004737
004737
004737

046404
066250
046342

JSR
JSR
JSR
MLAAAAA

$O33335555>>>

SUBTEST

T6.2:

PC,T24RT3
PC,T24REST
PC,T24RT2
A

BEGIN

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

cs8suB

TRAP

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

22222222

:ISSUE CONTROLLER ‘'SOFT** INITIALIZE - CARRY BIT CLEAR ]F ERROR
.

004737
103407
005237
010001

016064

002212

002172

043570

Al A2

JSR
BCS
INC
MOV
ERRDF

104455
000627
003650
012124

013737
012704

AR A

043610

208:

MAAAAAAAA

PC,SOFINIT

208

FATFLG
RO,R1
ERRNO, SFIERR,SF IMSG

MOV
MOV
LA

UNITN,T24DSW
#T24PACKET
R4
A

2232222221222

sDO INITIALIZE ON CONTROLLER
sBR IF INIT WAS OK
;BUMP COUNT
sCONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT OK

CSERDF
407
SFIERR

TRAP
.WORD
.WORD
.WORD

SFIMSG

sSET DRIVE NUMBER IN PACKET
sSUBROUTINE NEEDS PACKET ADDRESS

22222222222

WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
o

FAAAAAAAA

1882 035060
1883 035064
1884 035066
1888 035072
1889 035074

035074
035076
035100

004737

010752

005237
010101

002212

103407

106456

000630
005054

JSR

PC,WRTCHR

INC
MOV
ERRHRD

FATFLG
RO,R1
ERRNO,WRTMSG, SF IMSG

BCS

248

2223222222

)

s ISSUE WRITE CHARACTERISTICS
s8R, IF COMMAND [SSUED OK
;BUMP COUNT
sSAVE CONTENTS OF TSSR

sWRITE CHARACTERISTISC FAILED
TRAP

-WORD
.WORD

CSERHRD

408
WRTMSG

TSV? ~ HARDWARE TESTS 1-8

TEST

4&:

BASIC READ DATA

035102

1890 035104

1891 035104

MACRO M1113

25-MAY-82 09:19

(FORWARD AND REVERSE)

012124
104406

1892

1893

K 13

PAGE 96-1
SEQ 0166

248:

CKLOOP

A R R R AN A AR R A NN NN RN AN R RN RN

sLOOP ]F SELECTED
AN

AR AN EN N AN

.WORD

SFIMSG

TRAP

cscLP

AN NANAAN D

}ggg

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

1896
1897
1898 035106
1899 035112
1900 035114
1901 035116
1905 035122

Ettttttttltttt't.ttt"t'ttttttt.t.ttttttttt..tt.tttttttttttt.ttt'tt

035122
035124
035126
035130
1906 035132
1907 035132

004737
103407
010001
005237

011104

JSR
BCS
MOV
INC
ERRHRD

002212

104456
000631
045046
012136

30$:

104406

1908

1909

PC,REWIND
308
RO,R1
FATFLG
ERRNO,T24RWN,PKTSSR

CkLOOP
R AA

cCALL TAPE REWIND COMMAND
;BR, IF NO PROBLEM
;SAVE TSSR
;BUMP COUNT
JREWIND NOT ACCEPTED

;LOOP IF SELECTED

N NN A AN R

A R RN R AN A A RN RN AR NN R AN

AN AN N RO AN NN S RN AR RN

TRAP
.WORD
.WORD
.WORD

CSERHRD
409
T24RWN
PKTSSR

TRAP

CSCLPY

NNS

}g}?

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERQ (XSTO)

1912
1913
1914 035134
1915 035140
1916 035142
1917 035146
1918 035150
1919 035152
1923 035156

;ttt.ttt'ttt'tfitttttttttt'ttttlttt'lttttttttttt'tttttttttttttt.t'tt

035156
035160
035162
035164
1924 035166
035166
1925 035170
}ggg 035174

013701

010102
052702
020102

001406
005237

043620

MoV

Mov
8IS
CMP

000002

BEQ
INC
ERRHRD

002212

104456
000632
044563
015564
104406
012703
013737

40$:

000400
003114

1928

403
FATFLG
ERRNO,T24BOT,EXPREC

CkLOOP

MOV
MOV

043712

T24BFR+6,R1

R1,R¢
#8IT1,R2
R1,R2

;PICK UP XSTO

JSET UP EXPECTED
sSET B80T BIT IN EXPECTED
;DOES EXP = REC'D

:BR, IF EQUAL (0OK)
;BUMP COUNT
;TAPE NOT AT BOT AFTER REWIND

;LOOP ]F SELECTED

#256. ,R3
FREE,T24RB

TRAP
.WORD
.WORD
.WORD

TRAP
;RECORD SIZE
sSTARTING WRITE BUFFER ADDRESS

AR AN AR AN AN R AR AN AR A AN AR AN AR AN R AR R NN RN R R AN RN

AN NN AN ANN RN R Y

1929
}gg?

:
JWRITE DATA,CV(=1,ACK COMMAND

1932
1933
1934 035202
1935 035210
1936 035214
1937 035214
1938 035216
1939 035222

Ettttttttttttttttt'ttttttttttttitttttttttttttttttttttttttttlttttttt

1940 035226

012737
012704

140005
043710

010300
004737
010337

017512
043716

010465

000000

043710
65%:

MOV
MOV

#160005,724PK3
#T24PK3 R4

sWRITE DATA,CVC=1,ACK COMMAND
sSET UP R4 WITH PACKET ADDRESS

MOV
JSR
MOV

R3.RO
PC,FILLMEM
R3,T24S2

sSET PATTERN IN CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE
JSET UP RECORD SIZE IN PACKET

MOV

R4, TSDB(RS)

s ISSUE COMMAND

CSERHRD
410
T24B0OT
EXPREC
CSCLP1

TSV? - HARDWARE TESTS 1-8

TEST

4&:

BASIC READ DATA

1941 035232
1942 035236
1943 035242

1944 035246
1945 035250
1946 035252
1950 035256

004737
016501

012702

020102
001406

005237

035256
035260

104456
000633

035264
1951 035266
035266
1952 035270

012136

035262

1953 035272
1954 035276
1955 035300

035300

;ggg 035302

MACRO M1113

25-MAY-82 09:19

(FORWARD AND REVERSE)

016340
000002

JSR
MOV
MOV

000200

SEQ 0167

PC,WAITF
TSSR(RS) R1

JWAIT FOR SSR TO SET
JGET TSSR CONTENTS
JSET UP EXPECTED

#SSR,R2

CMP
BEQ

002212

L 13

PAGE 96-2

R1,R2
75§

INC
ERRHRD

FATFLG
ERRNO,WRTERR,PKTSSR

:ARE THEY EQUAL
:BR, IF OK

:BUMP COUNT
sTSSR INCORRECT AFTER WRITE DATA

005111

001346

CSERHRD
411

.WORD

PKTSSR

-WORD

75$:

104406

005723
022703

TRAP
WORD

;LOOP IF SELECTED

TST
CMP

000414
80$:

104406

CKLOOP
(R3)+
#268. ,R3

BNE
CKLOOP

NN R R RN

65%

:BR, IF MORE RECORDS TO WRITE
;LOOP IF SELECTED

TRAP

RN A AR

R AR A T A A A AR AN AN R R A R AR R AN RN RN NN NN RN

1962
1963

:'ttt.ttttttttttttttttttttttttttttttt.ttttttttttttttttt'ttttttttittt

1964
1965
1966
1967
1968
1972

cscLP

AR RN NRANAR

1959

}gg?

cscLPt

;BUMP RECORD SIZE
JEND OF RECORD YET

120$:

1958

TRAP

URTERR

sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

035302
035306
035312
035314
035316
035322

004737
004737
103407
010001
005237

035324

000634

035322

035326
035330
1973 035332
1974 035332

011104
016426

JSR
JSR
8(s
MoV
INC
ERRHRD

002212

104456

045046
012136

1308 :

1064406

PC,.REWIND
PC,CHKTSSR
130%
RO,R1
FATFLG
ERRNO, T24RWN,PKTSSR

CKLOOP

sCALL TAPE REWIND COMMAND
;SEE HOW TSSR IS
s8R, IF NO PROBLEM
;SAVE TSSR
;JBUMP COUNT
JREWIND NOT ACCEPTED

;LOOP JF SELECTED
N AR RN AN AR R AR NN R

AR R R R AR NN IR

412

TRAP

Cs$CLP

1975
1976

JER RN
:

1979

:°ttttttt.tttttt'ttttttttttttttttttttttttttttttttttttttttttttttt.ttt

;g;g

R A AR AR AN AR AR AR

TRAP
MWORD
LWORD
.WORD

CSERHRD

T24RWN
PKTSSR

AARRAARNNNNS

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

1980
1981 035334
1982 035340
1983 035342

1984 035346

013701
010102
052702

020102

1985 035350 001406
1986 035352
1990 035356

035356
035360
035362
035364

1991 035366

005237

104456
000635
044563
015564

043620

MOV
MOV
8IS

000002

CMP

BEQ

002212

INC
ERRHRD

1408:

(KLOOP

T24BFR+6,R1
R1,R2
#8171 R2

R2°

146:

FATFLG
ERRNO, T24BOT ,EXPREC

:PICK UP XSTO
sSET UP EXPECTED
cSET B0. BIT IN EXPECTED

;DOES EXP = REC'D

:BR, IF EQUAL (OK)

*BUMP COUNT
sTAPE NOT AT BOT AFTER REWIND

sLOOP IF SELECTED

TRAP
.WORD
LWORD
.WORD

CSERHRD
413
T24BOT
EXPREC

L 4

TSV?7 = HARDWARE TESTS 1-8

TEST

MACRO M1113

25-MAY-82 09:19

PAGE 96-3

4: BASIC READ DATA (FORWARD AND REVERSE)

035366

1992 035370
1993 035374
1994
1995
1996
1997
19¢8
199y

2000
2001 035402
2002 035410
2003 035414
2004 035420
2005 035424
2006 035430
2007 035434
2008 035440
2009 035442
2010 035444
2014 035450
035450
035452
035454
035456
2015 035460
035460
2016 035462
2017 035466
2018 035470
2019 035474
2020 035476
2021 035500
2022 035502
2023 0355064
2024 035506
2028 035512
035512
035514
035516
035520
2029 035522
035522
2030 035524
2031 035526
2032 035530
2033 035532
2034 035536
2035 035536
2036 035542
2037 035544
035544
2038 035546
035546
035546
2039 035550
2040 035556

104406

012703
013737

000400
003114

SEQ 0168

043712
MAAARAA

TRAP

#256. ,R3
FREE, T24RB

Mov
MOV
R

sRECORD SIZE
sSTARTING READ BUFFER ADDRESS
A

csCLP1

2222222222}

*READ DATA,CVC=1,ACK COMMAND
’

140001
063710
043716
000000
016340
000002
000200

001406
005237

043710

RN R AR AN RN A AN AR TN RN NI NN R AN N RN N AN AN NN N AN ARN AR RN AN ARANANRANRS

165$:

:
1708

003114
000400

173$:

002212

TSSR(RS)
,R1

TRAP
.WORD
.WORD
.WORD

PKTSSR

TRAP

cscLPl

TRAP
.WORD

£¥§RHRD

.WORD

EXPREC

TRAP

cscLP

104406

:GET BUFFER ADDRESS
s CURRENT RECORD SIZE
sFIRST LOCATION IN BUFFER
sGET LOCATION IN BUFFER (ADDRESS)
sCHECK DATA READ (R3=DATA ALSO)
sBR, IF ALL IS WELL
SRECD DATA
sEXPECTED DATA
;BUMP COUNT
sDATA READ NOT = WRITTEN

sus

ADD
CMP
BEQ
MOV
MOV
INC

ERRNO,T24DTA,EXPREC

CkLOOP

:
1908

TST
SuB
CMP
BNE
TST
CMP
BNE
CKLOOP

sLOOP IF SELECTED
(RG)+

R4 ,R3

175$

(R3)+

#266. ,R3
165%

ENDSUB

002212

000017

RDERR

MOV
MoV

1808$:

000412

CSERHRD
414

<LOOP IF SELECTED

WORD

104406

104403
023727
103402

PC,WAITF

CKLOOP

ERRHRD

000637
044630
015564

001322

sSET UP R4 WITH PACKET ADDRESS
sSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
sWAIT FOR SSR TO SET
cGET TSSR CONTENTS
sSET UP EXPECTED
sARE THEY EQUAL
:BR, IF 0K
:BUMP COUNT
sTSSR INCORRECT AFTER READ DATA

INC

104456

005724
160204
020403
001360
005723
022703

sREAD DATA,CV(=1,ACK COMMAND

ERRHRD

104456

013702
010304
162704
060204
021403
001410
011401
010302
005237

#1640001,T24PK3
#T24PK3
R4
R3,724S2
R4, TSDB(RS)

8EQ

002212

000636
005204
012136
104406

MOV
MOV
MOV
MOV
JSR
MOV
MOV
CMP

CMP
8LO

;BUMP TO NEXT LOCATION
sGET BACK TO CORRECT SIZE
sEND OF RECORD YET
:BR, IF NOT AT END OF RECORD
;BUMP RECORD SIZE
cEND OF RECORD YET
¢BR,

T24DTA

IF MORE RECORDS TO WRITE

<LOOP IF SELECTED

TRAP

CSCLPY

TRAP

CSESUB

$22355535555>> END SUBTEST >>355>5>>>>>
L10054:
FATFLG,#15.
999$

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

TSV7 = HARDWARE TESTS 1-8
TEST

&: BASIC READ DATA

2041 035560
2042 035564

004737

MACRO M1113

25-MAY-82 09:19

(FORWARD AND REVERSE)

017272

999%:

N 13

PAGE 96-4
SEQ 0169

JSR

PC,CKDROP

sTRY TO DROP THE UNIT

TSV? - HARDWARE TESTS 1-8

TEST

BASIC READ DATA

MACRO M1113

25-MAY-82 09:19

(FORWARD AND REVERSE)

2044

B 14
PAG E 97

SEQ 0170

204

:TEST &, SUBTEST 3
:VERIFIES THAT READ DATA COMMANDS WITH CVC=1 AND THE

:SWAP BYTES (SwB) BIT SET OPERATES PROPERLY. THE TEST
:SEQUENCE 1S IDENTICAL TO THAT USED IN SUBTEST 2.

:THE RESULTS, EXCEPT FOR RAM CONTENTS,

035564
035564
035564
2057 035566
2058 035572
035576

°
104402

004737
004737
004737

BGNSUB

046404
066250
046342

JSR
JSR
JSR

SHOULD BE THE SAME.

IOOO335555>>> EEG£NSSUBTEST >33>>>>>>>>>
14.3:

PC.T24RT3
PC.T24REST
PC.T24RT2

TRAP

($BSUB

:SET UP OTHER COMMAND PACKET
*SET COMMAND PACKET
SET UP OTHER COMMAND PACKET

:'.'.".'"'."'Q.Q'.'."""....'...'..."'.'.'.Q'....Q'.'.'.'..t.

:ISSUE CONTROLLER ''SOFT'* INITIALIZE - CARRY BIT CLEAR IF ERROR
;'""""""".".'t"'.'tt'V..."'..'Q.l..'...""'.'.'..".'..'
035602

004737

01€064

005237
010001

002212

103407

JSR

BCS

INC
MOV

ERRDF

104455
000640
003650

FATELG
RO,RI

ERRNO,SFIERR,SFIMSG

:DO INITIALIZE ON CONTROLLER

:BR IF

INIT WAS OK

:BUMP COUNT
:CONTENTS OF

TSSR REGISTER

:FATAL ERROR TSSR WAS NOT OK
TRAP

012126

013737
012704

PC,SOFINIT

208

002172
043570

043610

208

CSERDF

.WORD
.WORD

mov

MOV

UNITN, T240SW

AT24PACKET,Ré

416
SFIERR

SFIMSG

.WORD

:SET DRIVE NUMBER IN PACKET

:SUBROUTINE NEEDS PACKET ADDRESS

:'."'.'.""...'...."."'.'....'Q...'l""'..."'"'Q...""t.'.'

WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
;".".....'..'Q..'....Q"".'....Q....'...'..l...".."'".Q"..Q'
035640
36 035644
035646
035652
035654
035654
035656
035660
035662
035664
035664

004737

010752

005237
010001

002212

103407

JSR
BCS
INC
MOV

ERRHRD

1046456

000641
005054
012124

104406

24$:

CKLOOP

PC,WRTCHR
248
FATFLG
RO,RI

ERANO,WRTMSG,SFIMSG

:ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK
:BUMP COUNT
:SAVE CONTENTS OF TSSR
:WRITE CHARACTERISTISC FAILED
TRAP

:LOOP IF SELECTED

CSERHRD

.WORD
.WORD
.WORD

417
WRTMSG
SFIMSG

TRAP

(sCLP

:t".".".'."'.'Q.""""'.".."'...'.'l"l'.'l"""'t""t"'

e
—

TSV7 -~ HARDWARE TESTS 1-8

TEST

BASIC READ DATA

MACRO M1113

25-MAY=82 09:19

C 14

PAGE 97-1

(FORWARD AND REVERSE)

SEQ 0171

2096
gggg

:
;1SSUE REWIND COMMAND TO SELECTED TAPE DRIVE

2099

:°'tt"".t'tt't'tttttt"ttt'Qt'.ttt"t'ttt'ttt.ttt'tt..'t't't"t'..

2100
2101 035666
2102 035672
2103 035674
2104 035676
2108 035702
035702
035704
035706
035710
2109 035712
2110 035712

004737
103407
010001
005237

011104

JSR
8(CS
MOV
INC
ERRHRD

002212

104456
000642
045046
012136

308:

104406

2111

JCALL TAPE REWIND COMMAND
JBR, IF NO PROBLEM
;SAVE TSSR
JBUMP COUNT
JREWIND NOT ACCEPTED
TRAP
LWORD
.WORD
LWORD
;LOOP IF SELECTED
TRAP

CkLOOP

2112

PC,REWIND
308
RO ,R1
FATFLG
ERRNO,T24RWN,PKTSSR

R I

R R R

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

21158
2116

:-'tttttttttttttttt'ttttt't'tttttt.tttt.'t"ttttt'tttttttttttttt'tt'

013701
010102
052702
020102
001406
005237

043620

MOV
MOV
BIS
cMP
8EQ
INC

000002
002212

104406
012703
013737

40%:

000400
003114

T24BFR+6,R1
R1,R2
#8IT1,.R2
R1,R2
408
FATFLG

;PICK UP XSTO
JSET UP EXPECTED
;SET BOT BIT IN EXPECTED
;DOES EXP = REC'D
;BR, IF EQUAL (OK)
;BUMP COUNT

MOV
MOV

#254. R3
FRZE,T24RB

;TAPE NOT AT BOT AFTER REWIND
TRAP
LWORD
.WORD
.WORD
;LOOP IF SELECTED
TRAP
JRECORD SIZE
;STARTING WRITE BUFFER ADDRESS

R AN AN AN

AN RN NN IR

ERRHRD

104456
000643
064563
01556h4

2132

ERRNO,T24BOT ,EXPREC

CKLOOP

043712

2131

R R AR NN A RN AR AR AR AR NN R AN

AN RN RN

WRITE DATA,ACK,SWB,CV(=1 COMMAND

2135

:-tt-ttttnmttttnt.ttttttt.'t-ttt-tn-ttt.cat-tn.t-ttttan-wttt---t..t

2136
2137 035762
2138 035770
2139 035774
2140 035774
2141 035776
2142 036002
2143 036006

012737
012704

150005
043710

010300
004737
010337
010465

2145 036016
2146 036022

016501
012702

2147 036026
2148 036030

004737

020102
001406

043710

CSERMRD
419
T24BOT
EXPREC

Cs$CLP

AR ERNNERN Y

5}%2

2144 036012

CSCLPT

%}}2

2117 035714
2118 035720
2119 035722
2120 035726
2121 035730
2122 035732
2126 035736
035736
035740
035742
035744
2127 035746
035746
2128 035750
5}58 035754

CSERHRD
418
TZ24RWN
PKTSSR

MOV
MOV

#150005,T24PK3
#T24PK3 R4

JWRITE DATA,ACK,SWB,CVC=1 COMMAND
JSET UP R4 WITH PACKET ADDRESS

017512
043716
000000

MOV
JSR
MOV
MOV

R3.R0
PC,FILLMEM
R3,T24S2
R4, TSDB(KS)

;sSET PATTERN IN CORRECT REGISTER
JFILL MEMORY WITH RECORD SIZE
sSET UP RECORD SIZE IN PACKET
: ISSUE COMMAND

000002
000200

MOV
MoV

016340

65%:

JSR

CMP
BEQ

PC,WAITF

JWAIT FOR SSR TO SET

R1,RS
75$

:ARE THEY EQUAL
:BR, IF OK

TSSR(RS) ,R1
#SSR _R2

;GET TSSR CONTENTS
JSET UP EXPECTED

TSV? = HARDWARE TESTS 1-8

TEST

4&:

BASIC READ DATA

2149 036032

2153 036036
036036
036040
036042
036044
2154 (36046
036046
2155 036050
2156 036052
2157 036056

2158 036060

036060
5}28 036062

005237

MACRO M1113

PAGE 97-2

(FORWARD AND REVERSE)

002212

SEQ 0172

INC

ERRHRD

104456
200644
005111
012136
104406
005723
022703
001346

D 14

25-MAY-82 09:19

75%:
000614

808$:

104406

FATFLG

CKLOOP

TST
Cmp
BNE

CKLOOP

:8UMP COUNT

ERRNO,WRTERR,PKTSSR

(R3)+
#268. ,R3
65%

:TSSR INCORRECT AFTER WRITE DATA
TRAP
CSERHRD
.WORD
420
.WORD
WRTERR
.WORD
PKTSSR
;LOOP IF SELECTED
TRAP
C$CLPY
;BUMP RECORD SI2E
JEND OF RECORD YET
;BR, IF MORE RECORDS TO WRITE

;LOOP IF SELECTED

1208 :

2161

%}gz

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

2165
2166
2167 036062
2168 036066
2169 036070
2170 036072
2174 036076
036076
036100
036102
036104

: LAASA SRR

2176 036106

004737
103407
010001
005237

011104

Rl Rd

JSR
BCS
MOV
INC
ERRHRD

002212

104456
000645
045046
015564

1308:

104406

RS 2 R

PC,REWIND
1308
RO,R1
FATFLG
ERRNO,T24RWN,EXPREC

CKLOOP

2222222222222z

;CALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
:SAVE TSSR
JBUMP COUNT
:REWIND NOT ACCEPTED
TRAP
WORD
WORD
.WORD

:LOOP IF SELECTED

TRAP

2177

2181
2182
2183 036110

:'Q'Qttttttttttttttttt't!'ttttQttntttttttttttttttttttt.'!".'tittt't

%}gg

2186 036122

2187 036124
2188 036125
2192 036132
036132
036134
036136
036140
2193 036142
036142
2194 036144
5}32 036150
2197

2198

CSERHRD
421
T24RWN
EXPREC
CSCLPY

.'Qlt't..tt'ttttttttttt"'tttttttttttttttttttQ'Qttt.t'.ttt'ttttt'ttt

2178

2184 036114
2185 036116

CSCLPT

:!'ttt"t'.t'ttttttttt"'t'tttt'ttttt'Qt'.t'.tt't'ttttt'.tttttttttt

2162

2175 036106

TRAP

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

013701
010102
052702

020102

001406
005237

043620
000002
002212

1408:

000400
003114

T24BFR+6,R1
R1,.R2
#8]T1,R2

;PICK UP XSTO
;SET UP EXPECTED
2SET BOT BIT IN EXPECTED

BEQ
INC
ERRHRD

1408
FATFLG
ERRNO, T24BOT,EXPREC

:BR, IF EQUAL (OK)
;BUMP COUNT
:TAPE NOT AT BOT AFTER REWIND
TRAP
LWORD
.WORD
.WORD
:LOOP IF SELECTED
TRAP
;RECORD SIZE
;STARTING READ BUFFER ADDRESS

cCMP

104456
000646
044563
015564

104406
012703
013737

MOV
MOV
BIS

CKLOOP

MOV
MOV

043712

R1,R2

#256. ,R3
FREE ,T24RB

:DOES EXP = REC'D

.'ttttttttttttttttttttttt'ttttt."t!'t'ttttttttttttt'tttttt'tttlt'Qt

CSERHRD
422
T24BOT
EXPREC

CSCLPY

—

TSV? - HARDWARE TESTS 1-8

TEST

&: BASIC READ DATA

MACRO M1113

25-MAY-82 09:19

(FORWARD AND REVERSE)

E 14

PAGE 97-3
SEQ 0173

g;gg

;READ DATA,I1E,ACK,SWB COMMAND

2201

Ett't.tt.'tt't....'t't"""'ttt.'Q.tt..t.t.t.t..'..tt"t'Qttt"".

2202
2203 036156
2204 036164
2205 036170
2206 036174
2207 036200
2208 036204
2209 036210

2210 036214

2211 036216
2212 036220
2216 036224
036224
036226
036230
036232
2217 036234
036234
2218 036236
2219 036262
2220 036244
2221 036250
2222 036252
2223 036256
2224 036256
2225 036260
2226 036262
2230 036266
036266
036270
036272
0362764
2231 036276
036276
2232 036300
2233 036302

2234 036304

2235 036306

2236 036310
2237 036312
2238 036316
2239 036320
036320
2240 036322
036322
036322
2241 036324
22642 036332

2243 03633¢

2244 036340

012737
012704
010337
010465
004737
016501
012702

020102

001406
005237

110001
043710
043716
000000
016340
000002
000200

043710

002212

1708:

003114
000400

1738:

002212

104456
000650
044630
015564

1808:

104406
005724
160204
020403
000412

1908:

104406

104403
023727
103402

004737

#110001, T24PK3
#T24PK3 RS
R3,T24S2
R4, TSDB(RS)
PC.WAITF
TSSR(RS) ,R1
#SSR,R2

;READ DATA,IE,ACK,SW8 COMMAND
SSET UP R4 WITH PACKET ADDRESS
:SET UP RECORD SIZE IN PACKET
:ISSUE COMMAND
:WAIT FOR SSR TO SET
:GET TSSR CONTENTS
$SET UP EXPECTED

BEQ
INC
ERRHRD

1708
FATFLG
ERRNO,RDERR,PKTSSR

*BR, IF OK
:BUMP COUNT
STSSR INCORRECT AFTER READ DATA
TRAP
(SERHRD
LWORD
423
.WORD
RDERR
.WORD
PKTSSR
:LOOP IF SELECTED
TRAP
CSCLP1
:GET BUFFER ADDRESS
:CURRENT RECORD SIZE
;FIRST LOCATION IN SBUFFER
;GET LOCATION IN BUFFER (ADDRESS)
:CHECK DATA READ (R3=DATA ALSO)
:BR, IF ALL IS WELL
*RECD DATA
SEXPECTED DATA
:BUMP COUNT
:DATA READ NOT = WRITTEN
TRAP
CSERMRD
MORD
424
.WORD
T24DTA
.WORD
EXPRE(
;LOOP IF SELECTED
TRAP
CSCLP1
;BUMP TO NEXT LOCATION
:SET SIZE TO CORRECT VALUE

R1,R2

CKLOOP

MOV
MOV
SUB
ADD
CMP
BEQ
MOV
MOV
INC
ERRHRD

FREE.R2
R3,R4
#256. R4
R2.R4
(R4) ,R3
180%
(R4) ,R1
R3.R2
FATFLG
ERRNO, T24DTA,EXPREC

CKLOOP
ST
sUB

(R4)+
R2.R4

BNE

175s

cMP

001360

005723
022703
001322

MOV
MOV
MOV
MOV
JSR
MOV
MOV

CMP

104456
000647
005204
012136
104406
013702
010304
162704
060204
021403
091410
011401
010302
005237

1658:

ST
cMp
BNE
CKLOOP

R4 .R3

(R3) +
#266..R3
165$

ENDSUB

002212

017272

000017

cMP
BLO
999$:

JSR

FATFLC 115.
999%

PC.,CKDROP

*ARE THEY EQUAL

SEND OF RECORD YET

:BR, IF NOT AT END OF RECORD

;BUMP RECORD SIZE
;END OF RECORD YET
:BR, IF MORE RECORDS TO WRITE
*LOOP IF SELECTED
TRAP
(CSCLP1
SO3555333>3>> END SUBTEST >>>>>>>>>>>>
L10055:
TRAP
CSESUB
;1S ERROR COUNT AT 25
:BR, IF LESS THAN 25

STRY TO DROP THE UNIT

TSV7 - HARDWARE TESTS 1-8

TEST

BASIC

READ DATA

MACRO M1113

F 14
PAGE 98

25-MAY-82 09:19

(FORWARD AND REVERSE)

2246
2247

SEQ 0174

STEST 4, SUBTEST &

:VERIFIES THAT A READ FORWARD COMMAND READING A RECORD
:LONGER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE
:?;:E?SB?%EQETTERHINATION WITH THE RECORD LENGTH LONG
[4
[

® [4

036340
036340

036352

BGNSUB

104402

004737
004737
004737

046404
066250
066342

J223555535>>> BEGIN
SUBTEST >>>>>5>>>>>>
T4.4:

JSR
JSR
JSR
AAAAAAAS AL

TRAP
JSET UP OTHER COMMAND PACKET
JSET COMMAND PACKET
JSET UP OTHER COMMAND PACKET

PC,T24RT3
PC,T24REST
PC,T24RT?
A

Al Al

Y2222

c$8sSuUB

222

:ISSUE CONTROLLER “'SOFT'* INITIALIZE - CARRY BIT CLEAR IF ERROR
]

NN RN R R R R AR A RN RN AN NN N

004737

016064

005237
010001

002212

103407

JSR

8(CS

INC
MOV
ERRDF

104455

000651
003650
012124
013737
012704

002172
043570

043610

208

RN PN RN N AN AR AN R AN RN AR AR A NN RN R RN NI NN

PC,SOF INIT

RN NN NNEY

;DO INITIALIZE ON CONTROLLER

208

¢BR IF INIT WAS 0K

FATFLG
RO,R1
ERRNO,SFIERR,SFIMSG

cBUMP COUNT
;CONTENTS OF TSSR REGISTER
cFATAL ERROR TSSR WAS NOT 0K
TRAP

CSERDF

LMORD

425

.WORD

SFIMSG

JWORD

MOV

UNITN, T24DSW

SFIERR

sSET DRIVE NUMBER [N PACKET

#T2LPACKET R4

s SUBROUTINE NEEDS PACKET ADDRESS

SWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
86

2287 036414
2288 036420
2289 036422
2293 036426
2294 036430
036430
036432
036434
036436
2295 036440
036440

NN NN
004737
103407
005237
010001

010752

JSR

PC,WRTCHR

INC
MOV

FATFLG
RO,R1

8(CS

002212

ERRHRD

104456

NN R RN R TN AR

248

ERRNO,WRTMSG,SFIMSG

N T ENNN TR NN

s ISSUE WRITE CHARACTERISTICS

sBR, IF COMMAND ISSUED OK
sBUMP COUNT
sSAVE CONTENTS OF

TSSR

sWRITE CHARACTERISTISC FAILED
TRAP

LMORD

012124
1046406

26$:

CKLOOP

;LOOP IF SELECTED

CSERHRD

426

.WORD
.WORD

WRTMSG
SFIMSG

TRAP

cscLp

;'.'."'"'....'.".""'Q"'."'.t'.".t'!.t'."".tlt"ttt"'t'.'

—

TSV7 - HARDWARE

TEST

TESTS 1-8

BASIC READ DATA

MACRO M1113

G 14

25-MAY~82 09:19

PAGE 98-1

(FORWARD AND REVERSE)

SEQ 0175

*ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
0

02
2303 036442
2304 036446
2305 036450
2306 036452
2310 036456
036456
036460
036462
036464
2311 036466
036466

:t'tt.'.'.'.fi'..".t..t"t"ttt'.'t.t.t..."'t..Q"...Q."'..Qt""

004737

011104

010001
005237

002212

103407

JSR
8CS

PC,REWIND

MOv

INC

ERRHRD

104456

000653
045046
012136

:
308

104406

sCALL TAPE REWIND COMMAND
sBR, [F NO PROBLEM
;SAVE TSSR
;BUMP COUNT

308

RO,R1
FATFLG

ERRNO, T24RWN,PKTSSR

JREWIND NOT ACCEPTED

CKLOOP

TRAP

;LOOP [F SELECTED

CSERHRD
427
T24RWN

.WORD
.WORD
.WORD

PKTSSR

TRAP

cscLet

:t'fi'Q."'t!tt.'t"t""".t'."'."."'..'ttt'tt.'..'.tt't"t.".'

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERQ (XSTO)
[

MAAAAAA

013701
010102
052702
020102
001406
005237

043620
000002

40%:

AAEAAAL A

FATFLG

ERRNO,T24BOT ,EXPREC

YIS

222222

;TAPE NOT AT BOT AFTER REWIND
TRAP

;LOOP IF SELECTED
#512. ,R3
FREE, T24RB

:PICK UP XSTO
:SET UP EXPECTED
:SET BOT BIT IN EXPECTED
:DOES EXP = REC’D
:BR, IF_EQUAL (OK)
;BUMP COUNT

CkLOOP
MoV
MOV

043712

#8171,R2
R1,R2
408

ERRHRD

044563
015564

T24BFR+6,R1

8IS
CMP
BEQ
INC

002212

001000
003114

MOV
MOV

104456
000654

20
2329 036522
036522
2330 036524
2331 036530

AL AR

sRECORD SIZE

.WORD
.WORD
.WORD

CSERHRD
428
724807
EXPREC

TRAP

CSCLPI

sSTARTING WRITE BUFFER ADDRESS

2222222222

‘WRITE DATA,ACK,CVC=1 COMMAND
.

MAAAASAAAA

140005

043710

043716
000000
016340
000002
000200
002212

043710
65$:

MOV
MoV

#160005,724PK3
#T124PK3
R4

Mov
MoV

R3,T24S2

MOV
MOV

TSSR(RS)
,R1
#SSR,R2

JSR

CMP
BEQ
INC

ERRHRD

R4 .TSDB(RS)

22222222228

SWRITE DATA,ACK,CVC=1

COMMAND

sSET UP R4 WITH PACKET ADDRESS

JSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND

PC.WAITF

JWAIT FOR SSR TO SET

R1.R3

JSET UP EXPECTED
JARE THEY EQUAL

FATFLG
ERRNO,WRTERR,PKTSSR

sTSSR INCORRECT AFTER WRITE DATA

758

JGET TSSR CONTENTS

:BR, IF OK
;BUMP COUNT

TSV? - HARDWARE TESTS 1-8
TEST

BASIC READ DATA

036604
036606
036610
036612

2354 036614
036614
2355 036616

MACRO M1113

H 14
PAGE 98-2

25-MAY-82 09:19

(FORWARD AND REVERSE)

£r2 0176

10445¢€

TRAP

000655
005111
012136

75$%:

104406

(KLoOP

sLOOP IF SELECTED

1208
:
MAAAAA AR

CSERHRD

429

.WORD
.WORD
.WORD

WRTERR
PKTSS5R

TRAP

cscLP1

S R Y2X222222

*ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
.

MLAALAA

2363 036616
2364 036622
2365 036626
2366 036626
2370 036632
036632
036634
036636
036640
2371 036642
036642

004737

011104

010001
005237

062212

103407

AR AR AR

JSR
BCS

:BUMP COUNT
cREWIND NOT ACCEPTED

ERRNO, T24RWN,PKTSSR

;LOOP IF SELECTED
A

2222202

:SAVE TSSR

FATFLG

C(KLOOP

MLAAAAS

sCALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM

RO,R1

ERRHRD

104406

1308

INC

:
1308

PC,REWIND

MoV

104456
000656
045046
012136

add

TRAP
-WORD
-WORD
.WORD

CSERHRD
430
T24RWN

TRAP

cscLe

PKTSSR

22222222222

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
.

013701
010102
052702
020102
001406
005237

AALA

063620
000002

T24BFR+6,R1

cMP
8tQ
INC
ERRHRD

002212

Y12

22222222222

;PICK UP_XSTO
:SET UP_EXPECTED
:SET BOT BIT IN EXPECTED
:DOES EXP = REC'D
:BR, IF_EQUAL (OK)
:BUMP COUNT
sTAPE NOT AT BOT AFTER REWIND

8IS

104456

012703
013737

MOV
MOV

000657
0464563
015564
104406

FATFLG

ERRNO, T24BOT,EXPREC

TRAP

.WORD

:
1408

000400
003114

(KLoOP

#256. ,R3
FREE,T24RB

MoV
MoV

043712
AL E

AR AR

cLOOP IF SELECTED

LAl

.WORD
-WORD

124807
EXPREC

TRAP

cscLP

sRECORD SIZE
;STARTING READ BUFFER ADDRESS
I

2222222222%)

2222222220

:READ DATA,ACK,CVC=1 COMMAND
.

AL AREAAA

2398

2399 036712
26400 036720
2401 036724

140001

043710
043716

043710

165$:

Mov
Mov
Mov

#140001,T24PK3
#T24PK3
RS

R3,T24S2

CSERHRD
431

sREAD DATA ACK,CVC=1 COMMAND
sSET UP R4 WITH PACKET ADDRESS
sSET UP RECORD SIZc IN PACKEY

TSV7 = HARDWARE TESTS 1-8

TEST

BASIC READ DATA

010465
004737
016501
012702
020102

000000
016340
000002
100204

2408 036754
2612 036760
036760
036762
036764
036766
2413 036770
2414 036770

005237

002212

001406

25-MAY-82 09:19

(FORWARD AND REVERSE)

2602 036730
2403 036734
2404 036740
2405 036744
26406 036750

2407 036752

MACRO M1113

SEQ 0177

MOV
JSR
MOV
MOV
(MP

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

; ISSUE COMMAND
JWAIT FOR SSR TO SET
JGET TSSR CONTENTS
;JSET UP EXPECTED
cARE THEY EQUAL

INC
ERRHRD

FATFLG
ERRNO,T24TRL,PKTSSR

JBUMP COUNT
sTSSR INCORRECT AFTER READ DATA
TRAP
LWORD
LWORD
.WORD
;LOOP IF SELECTED
TRAP

BEQ

104456
000660
046114
012136

1708:

104406

2615

1708

(kLOOP

2416

[ 14

PAGE 98-3

‘BR, IF OK

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER 2ERO (XSTOQ)

2419
2620
2621 036772
2622 036776
2423 037000
24264 037006
24625 037006
2426 037010
2630 037014
037014
037016
037020
037022
2431 037024
2632 037024
03704
037024
24633 037026
26434 037034
2435 037036
2436 037042

:'t.ttttt.ttttttttt'tttt"lQQtttQttt.ttttttttttttttttttttttttttttttt
043620

MOV
MOV
8IS
CMP
BEQ
INC
ERRHRD

010000
002212

104456
000661
045662
015564

104403
023727
103402
004737

180$:

002212
017272

000017
999s$:

T24BFR+6,R1
R1,R2
#81T12,R2
k1,R2
180%
FATFLG
ERRNO, T24LON,EXPREC

ENDSUB

CMP
8LO
JSR

FATFLG,#15.
999¢
PC.CKDROP

Cs$CLP

%2};

013701
010102
052702
020102
001406
005237

CSERHRD
432
T24TRL
PKTSSR

;GET MESSAGE BUFFER
JSET UP EXPECTED
cSET THE RLL BIT IN EXPECTED
JARE THEY EQUAL
cBR, IF EQUAL (ALL IS WELL)
;BUMP COUNT
sTHE RLL BIT WAS NOT SET IN XSTO
TRAP
CSERHRD
.WORD
433
.WORD
TZ24LON
.WORD
EXPREC
JO5535>355>>>> END SUBTEST >>>3>>>>>>>>
L10056:
TRAP
CSESUB
;1S ERROR COUNT AT 25
sBR, IF LESS THAN 25
sTRY TO DROP THE UNIT

TSV7 - HARDWARE TESTS 1-8

TEST

MACRO M1113

25-MAY-87 09:19

&: BASIC READ DATA (FORWARD AND REVERSE)

J 14

PAGE 99

SEQ 0178

2438
2439

;X
:
JTEST &, SUBTEST §

2442
2443
2444
2445
2446
2447
2448
2449
2450
2451
2452
2453
2454
2455 037042
037042
037042
2656 037044
2457 037050

JVERIFIES THAT A READ FORWARD COMMAND PEADING A RECORD
;SHORTER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE
sSTATUS ALERT TERMINATION WITh THE RECORD LENGTH SHORT
s(RLS) B, TS SET., IT IS VERIFIED THAT THE RESIDUAL BYTE
sCQUnT (RBPCR) IN THE MESSAGE BUFSFR CONTAINS THE
sPRIPER NONZERO VALUE (E.G. THE DIFFERENCE BETWEEN
JTHE ORIGINAL BYTE COUNT AND THE ACTUAL RECORD
JLIENGTH).
:
:
:
.=

522?

5223 037054

BGNSUB
104402
004737
004737

004737

0464604
046250

JSR
JSR

046342

JSR

PC,T24RT3
PC,T24REST

PC,T24RT2

JO53>>>>>>>>> BEGIN SUBTEST >O>>>>>>>>>>>
14.5:
TRAP
(s8suB
JSET UP OTHER COMMAND PACKET
;SET COMMAND PACKET

;SET UP OTHER COMMAND PACKET

2460
2461

.‘tt!t'.'tttttttttt.tttt"t'ttttt.tQt.ttttttttt..ttttttt.ttt'tttt'.t
H

2464

;tttttttt't..tt'ttttt"t'tttttt.lQtltt'tt.t'.tttttttttttt.t'ttt't't

%22%
2465
2666 037060
2467 037064
2468 037066
2472 037072
2473 037074
037076
037076
037100
037102
2474 037104
2475 037104
52;9 037112

sISSUE CONTROLLER ‘'SOFT'* INITIALIZE -~ CARRY BIT CLEAR IF ERROR

004737
103407
005237
010001

016064

JSR
BCS
INC
MOV
ERRDF

002212

104455
000662
003650
012124

013737
012704

002172
043570

2(.78

043610

20%:

MOV
MOV

PC,.SOFINIT
208
FATFLG
RO.R1
ERRNO,SFIERR,SF IMSG

UNJTN,T24DSW
#T24PACKET R4

;00 INITIALIZE ON CONTROLLER
;BR IF INIT WAS 0K
;BUMP COUNT
:CONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT 0K
TRAP
LMWORD
.WORD
.WORD

SFIMSG

JSET DRIVE NUMBER IN PACKET
: SUBROUTINE NEEDS PACAET ADDRESS

:tttttt.ttttttttttt'tt't'ttQttttttttttttttttt.'ttt.tttttttt.'lttttt

2479

szg?

JWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

2482

:'tttt'ttttttttttttt'tttttttt'llt'tfittttttttttttttttttt'titttt.'tttt

2483
2484 037116
2485 037122
2486 037124
2490 037130
2491 037132
037132
037134
037136

CSERDF
434
SFIERR

004737
103407
005237
010001

104456
000663
005C54

010752
002212

JSR
8CS
INC
Mov
ERRHRD

PC.WRTCHR
248
FATFLG
RO,R1
ERRNO,WRTMSG,SFIMSG

JISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND [SSUED 0K
;BUMP COUNT
JSAVE CONTENTS OF TSSR
JWRITE CHARACTERISTISC FAILED
TRAP
.WORD
.WORD

CSERMHRD
435
WRTMSG

TSV7 - HARDWARE TESTS i-8

TEST

BASIC READ DATA

037140
2692 037142
2493 037142

MACRO M1113

25-MAY-82 09:19

(FORWARD AND REVERSE)

012124

248:

104406

2‘9[.

K 14

PAGE 99-1

SEQ 0179

CKLOOP

:LOOP IF SELECTED

.WORD

SFIMSG

TRAP

cscLPt

;ttttt.QQ"t"tttt'ttt't'ttttttt.ttt.ttttQtt.tfittlfitttttttttttttttt

2495

%23?

cISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

2‘98
2499
2500 037144
2501 037150
2502 037152
2503 037154
2507 037160
037160
037162
037164
037166
2508 037170
037170
2509 037172
%g}? 037176

Ettt"'ttt'ttttttttttt'ttt.tttltt!ttt.ttttt.tttttttttttflttttt'tt'tt
004737
103407
010001
005237

011104

JSR
8CS
MOV
INC
ERRHRD

002212

104456
000664
045046
012136
104406
012703
013737

303%:
000400
003116

2512

JCALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
JSAVE TSSR
;BUMP COUNT
JREWIND NOT ACCEPTED
TRAP
WORD
.WORD
.WORD
;LOOP IF SELECTED
TRAP
sRECORD SIZE
JSTARTING WRITE BUFFER ADDRESS

CkLOOP
MOV
MOV

043712

PC ,REWIND
308
RO.R1
FATFLG
ERRNO, T24RWN,PKTSSR

#256. ,R3
FREE,T24RB

2513

SWRITE DATA,ACK,CVC=1

2516
2517
2518 037204
%g}g 8;;5}%

:'tlttttttttttttt!tttt'tttttttlttt'ttttfitt.tttttttttt.tttttttttttttl
012737
012704

140005
043710

2521 037216

010337

043716

010465
004737
016501
012702
020102
001406
005237

043710

658

)

000000
016340
000002
000200
002212

104456
000665
005111
012136

758:

104406

#160005,T24PK3
#T24PK3 RS

MOV

R3,T24S2

MOV
JSR
MOV
MOV
CMP
8EQ
INC
ERRHRD

JWRITE DATA,ACK,CVC=1 COMMAND
JSET UP R4 WITH PACKET ADDRESS

sSET UP RECORD SIZE IN PACKET

R4, TSDB(RS)
PC.WAITF
TSSR(RS) ,R1
#SSR,R2
R1,.R2
75¢%
FATFLG
ERRNO,WRTERR,PKTSSR

;1SSUE COMMAND
JWAIT FOR SSR TO SET
:GET TSSR CONTENTS
JSET UP EXPECTED
JARE THEY EQUAL
:BR, [F 0K
JBUMP COUNT
JTSSR INCORRECT AFTER WRITE DATA
TRAP
CSERHRD
.WORD
437
.WORD
WRTERR
.MWORD
PKTSSR
:LOOP IF SELECTED
TRAP
CSCLP

ckLOOP

120$:
SRRR RN AN AR

2537

AR RN AR AR

R AN RN RN R AN

NN RN DA AR AN NN

RRENNRAAARORD

JISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

Sggg
25[,0

2542 037264

COMMAND

MOV
MOV

2536

254 1

CscLP

;ttt.tttttttttttttttt'tt'tttttt.!tttt.tt'ittttt.tttttttfit'ttttttttt

gg}é

2522 037222
2523 037226
2524 037232
2525 037236
2526 037242
2527 037244
2528 037246
2532 037252
037252
037254
037256
037260
2533 037262
037262
gggg 037264

CSERHRD
436
T24RWN
PKTSSR

:"tttttttttttttttttttttt't'ttt.t'ttlfitt'.t.ttt.ttettt.'ttt!tt.t't'.
004737

011104

JSR

PC,REWIND

sCALL TAPE REWIND COMMAND

~—

TSV7 - HARDWARE TESTS 1-8

TEST

BASIC READ DATA

2543 037270
2544 037272
2545 037274
2549 037300
037300
037302
037304
037306
2550 037310
037310
2551 037312
%gg% 037316

1063407
010001
005237

MACRO M1113

(FORWARD AND REVERSE)

002212

130$:
001000
003114

TRAP
sRECORD SIZE
;STARTING READ BUFFER ADDRESS

CSERMRD
438
T24RWN
PKTSSR
cscLP

AN A AR AR R R IR R A AR AR AR R AN NN RN C AN AR AN R A NN ORARARNONRAY

:-\nttt-tttttttttttttttttttttttttttttttn.tttttt-tattntnttttt.ttttttt

012757
012704
010337
010465
004737
016501
012702
020102
001406
005237

140001
043710
043716
000000
016340
000002
100204

043710

MOV
MOV’
MOV
MOV
JSR
MOV
MOV
CMP
8EQ
INC
ERRHRD

1658$:

002212

104456
000667
046114
015564

1708 :

104406

2577

%g;g

2582 037404
2583 037410
2584 037412
2585 037416
2586 037620
2587 037422
2591 037426
037426
037430
037432
037434
2592 037436
2593 037436
2594 037442

;LOOP IF SELECTED

#512.,R3
FREE,T24RB

AN AN

TRAP
.WORD
.WORD
.WORD

SREAD DATA,ACK,CVC=1 COMMAND

2576

2580
2581

R R

JBR, IF NO PROBLEM
JSAVE TSSR
;BUMP COUNT
JREWIND NOT ACCEPTED

5229
2558

2559
2560 0373246
2561 037332
2562 037336
2563 037342
2564 037346
2565 037352
2566 037356
2567 037362
2568 037364
2569 037366
2573 037372
037372
037374
037376
037400
2574 037402
2575 037402

MOV
MOV
RN RN

2555

1308
RO,R1
FATFLG
ERRNO,T24RWN,PKTSSR

CKLOOP

043712

2554

L 14

PAGE 99-2
SEQ 0180

8(Cs
MOV
INC
ERRHRD

104456
000666
045046
012136
104406
012703
013737

25-MAY-82 09:19

#160001,T724PK3
#T24PK3 R4
R3,T24S2
R4, TSDB(RS)
PC,WAITF
TSSR(RS) ,R1
#SSR!SC!BIT2,.R2
R1,R2
1708
FATFLG
ERRNO,T24TRL ,EXPREC

CKLOOP
A

sREAD DATA,ACK,CVC=1 COMMAND
JSET UP R4 WITH PACKET ADDRESS
sSET UP RECORD SIZE IN PACKET
: ISSUE COMMAND
JWAIT FOR SSR TO SET
:GET TSSR CONTENTS
JSET UP EXPECTED
JARE THEY EQUAL
:BR, IF 0K
;BUMP COUNT
sTSSR INCORRECT AFTER READ DATA
TRAP
CSERHRD
.WORD
439
LWORD
T24TRL
.WORD
EXPREC
;LOOP IF SELECTED
TRAP
cscLeP
R

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
:'t.tttttttttttttt.ttttttt'tttttttt.ttttttttttfittQtttttttttttttttttt

013701
010102
052702
020102
001406
005237

043620
040000

002212

104456
000670
045744
015564

013701
012702

043616
000400

1808:

MOV
MOV
8IS
cMP
BEQ
INC
ERRHRD

T24BFR+6,R1
R1,R2
#BIT14,R2
R1,R2
1808
FATFLG
ERRNO,T24LOP,EXPREC

:GET MESSAGE BUFFER
JSET UP EXPECTED
sSET THE RLS BIT IN EXPECTED
sARE THEY EQUAL
¢BR, IF EQUAL (ALL IS WELL)
;BUMP COUNT
sTHE RLL BIT WAS NOT SET IN XSTO
TRAP
CSERHRD
LMORD
440
.WORD
T24LOP
.WORD
EXPREC

MOV
MOV

T24BFR+4 ,R1
#256. ,R2

sPICK UP RESIDUAL BYTE COUNTER
cTHIS SHOULD BE THE DIFFERENCE

TSV7 - HARDWARE TESTS 1-8

TEST

&: BASIC READ DATA

2595 037446
2596 037450
2597 037452
2601 037456
037456
037460
037462
037464
2602 037466
037466
2603 037470
037470
037470
2604 037472
2605 037500
2606 037502
2607 037506

020102
001406
005237

MACRO M1113

(FORWARD AND REVERSE)

CMP
BEQ
INC
ERRHRD

002212

104456
000671
046026
015564

190$:

104406

104403
023727
103402
004737

25-MAY-82 09:19

M 14

PAGE 99-3

R1,R2
190%
FATFLG
ERRNO,T24PBP,EXPREC

CKLOOP
ENDSUB

002212
017272

000017
9998:

CMP
BLO
JSR

FATFLG,#15.
999%
PC,CKDROP

SEQ 0181

J1S THE DIFFERENCE CORRECT
:BR, IF CORRECT
:BUMP COUNT
JRBPCR NOT CORRECT
TRAP
CSERHRD
LWORD
441
.WORD
T24PBP
.WORD
EXPREC
JLOOP IF SELECTED
TRAP
CSCLP
253353>>55>>>> END SUBTEST >>>>>>>>>>>>
L10057:
TRAP
CSESUB
:1¢ ERROR COUNT AT 25
sBR, IF LESS THAN 25
JTRY TO DROP THE UNIT

TSV7 -~ HARDWARE TESTS 1-8

TEST

BASIC

READ DATA

MACRO M1113

25-MAY-82 09:19

(FORWARD AND REVERSE)

N 14
PAG E 101

SEQ 0182

MRJ

: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

2627 037506
037506
037506
2628 037510
2629 037514
2630 037520

BGNSUB
104402

004737
004737
004737

046404
046250
046342

JSR
JSR
JSR
AR

[, T3

sLENGTH AND DATA CONTENT. THE TAPE IS THEN READ IN REVERSE
sSEQUENTIALLY AND THE RESULTS
s (STATUS, DATA, ETC.) VERIFIED. THE BYTE COUNT ON
sEACH READ REVERSE COMMAND IS SET TO THE LENGTH OF THE
sEXPECTED RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD
sOCCUR.

JO333355>>>>> BEGIN SUBTEST >>>>>>>>>>>>
T4.6:

PC,T24RT3
PC,T24REST
PC,T24RT2

RAR RN RN R

AN AN

TRAP

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

A AN AN RN AANARANRARAAANARAN RN NN N

RN AN NARNN

csBsuB

:ISSUE CONTROLLER “'SOFT'* INITIALIZE ~ CARRY BIT CLEAR IF ERROR
[

SRR

2638 037524
2639 037530
2640 037532
2644 037536
2645 037540
037540
037542
037544
037546
2646 037550
2647 037550
2648 037556

004737
103407
005237
010001

JSR
8CS

016064

002212

INC
MOV
ERRDF

104455
000672
J03650
012124

013737
012704

002172
043570

RARA NN RN R AN

043610

ANAR A AR

R AANNARNARNRAN AN

PC,.SOFINIT
208

FATFLG
RO,R1
ERRNO,SF1ERR,SFIMSG

ANRA A AN RAARNANARNANERONSY

;D0 INITIALIZE ON CONTROLLER
;B8R IF INIT WAS 0K

;BUMP COUNT
JCONTENTS OF TSSR REGISTER
JFATAL ERROR TSSR WAS NO}RO:
A

.WORD
.WORD
.WORD

20$:

MOV

MOV
NN EAN

AR AR

UNJTN,T24DSW

#T24LPACKET R4
AN AN AN

CSERDF

442
SFIERR
SFIMSG

sSET DRIVE NUMBER [N PACKET

;SUBROUTINE NEEDS PACKET ADDRESS

AN RN RN R R AN RN A NN RN AANRNAANRARANRANERARRARY

:WRITE CHARACTERISTICS COMMAND (CALL TC WRTCHR)
.

2656 037562
2657 037566
2658 037570
2662 037574
2663 037576
037576
037600
037602

004737
103407
005237
010001
104456
000673
005054

010752
002212

AN AR AR AN R AR AN AN AN AT AR AN AN AN AN A RAANAN R AN NA

AR RN AN RN

RARARNR Y

JSR

PC,WRTCHR

sISSUE WRITE CHARACTERISTICS

INC
MOV
ERRHRD

FATFLG
RO,R1
ERRNO,WRTMSG,
SF IMSG

:BUMP COUNT
sSAVE CONTENTS OF

BCS

243

;BR, IF COMMAND [SSUED OK
TSSR

sWRITE CHARACTERISTISC FAILED
TRAP

.WORD
.WORD

CSERHRD
443

WRTMSG

TSV? - WARDWARE TESTS 1-8

TEST

BASIC READ DATA

0376046
2664 037606
2665 037606

MACRO M1113

25-MAY-82 09:19

(FORWARD AND REVERSE)

012124

248:

104406

8 15
PAGE 101-1
SEQ 0183

CKLOOP

;LOOP IF SELECTED

.WORD

SFIMSG

TRAP

(C$CLP1

2666

:t'..t"t't't".t"'!t't't".t.'t't.t.tt"."t"tt'tt'.'..""".tt

2667
%223

:
;ISCUE REWIND COMMAND TO SELECTED TAPE DRIVE

2670
2671

Et"t'Q'.tt.t.".".Q"""t"tttt'.t.Qt"...Q.Qt"'tl't""t't'."

2672 037610
2673 037614
26764 037616
2675 037620

004737
103407
010001
005237

037624
037626
037630
037632
2680 037634
037634
2681 037636
sggg 037642

104456
000674
045046
012136

2679 037624

104406
012703
013737

211104

JSR
BCS
MOV
INC

002212

ERRHRD

30$:

000400
003114

268‘

:CALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
:SAVE TSSR
:BUMP COUNT
*REWIND NOT ACCEPTED

:LOOP IF SELECTED

#256. ,R3
FREE,T24RB

TRAP
.WORD
.WORD
.WORD

(CSERHRD
444
T24RWN
PKTSSR

TRAP

CSCLPI

;RECORD SIZE
:STARTING WRITE BUFFER ADDRESS

.'.'.."Qt.."t'.t.'.'QQ"'tt...tt.t.ll'.tt..'.tt't.t.'t"".'fi.t"'

2685

;WRITE DATA,ACK.CVC=1 COMMAND

5239
2688

:°tttt't'tt"tt."'tt"'t""..tt.ttttttt.tt.ttttt'."t."t.t.tt't"

2689

2690 037650
2691 037656
2692 037662
2693 037662
2694 037664

2695 037670

2696
2697
2698
2699

ERRNO, T24RWN,PKTSSR

CKLOOP

MoV
MOV

043712

PC,REWIND
308
RO,R1
FATFLG

037674
037700
037704
037710

2700 037714
2701 037716

2702 037720
2706 037724
037724
037726
037730
037732

2707 037734
037734
2708 037736
2709 037740

2710 037744

2711 037746
037746

2712 037750

2713 037752

012737
012704

140005

0643710

043710

MOV

#140005, T124PK3

;WRITE DATA,ACK,CVC=1 COMMAND

MOV

#T24PK3 RS

;SET UP R4 WITH PACKET ADDRESS

017512

MOV
JSR

R3,R0
PC.FILLMEM

;SET PATTERN IN CORRECT REGISTER
:FILL MEMORY WITH RECORD SIZE

010465
004737
016501
012702

000000
016340
000002
000200

MOV
JSR
MOV
HOV

R4, TSDB(RS)
PC.WAITF
TSSR(RS) ,R1
#SSR,R2

;ISSUE COMMAND
:WAIT FOR SSR TO SET
:GET TSSR CONTENTS
:SET UP EXPECTED

005237

002212

010300
004737

010337

020102
001406

65$:

043716

MOV

CMP
BEC

INC
ERRHRD

104456
0060675
005111
012136
104406
005723
022703

001346

758

808:

104406

005743

013737

003114

043712

R1,R2
75$

FATFLG
ERRNO,WRTERR,PKTSSR

CKLOOP
ST
cMP

000414

R3.T724S2

SET UP RECORD SIZE IN PACKET

*ARE THEY EQUAL
;BR, IF 0K

:BUMP COUNT
:TSSR INCORRECT AFTER WRITE DATA
TRAP
(S$ERHRD
JWORD
445
.WORD
WRTERR
.WORD
PKTSSR

:LOOP IF SELECTED
(R3)+
#268..R3

;:BUMP RECORD SIZE
;END OF RECORD YET

TRAP

BNE

(313

;BR, IF MORE RECORDS TO WRITE

-(R3)

;SET BACK T0 512.

CKLOOP

MOV

FREE ., T24RB

:LOCP IF SELECTED

TRAP

;STARTING READ BUFFE? ADDRESS

(S$CLP1

(C$CLPY

TSV7 - HARDWARE TESTS 1-8

TEST

4: BASIC READ DATA

2714
2715
271t
277
2718
2719
2720
2721 037760
2722 037766
2723 037772
2724 037776
2725 040002
2726 040006
2727 040012
2728 040016
2729 040020
2730 040022
2734 040026
040026

2737 040044
2738 040046
2739 040052
2740 040054
2741 040056
2742 040060
2743 040062
2744 040064
2748 040070

040076
2749 040100
040109
2750 040102

40122

2758 040124
040124
040124
2759 040126
2760 (40134
2761 040136
2762 040142

MACRO M1113

c 15

25-MAY-82 09:19

PAGE 101-2

(FORWARD AND REVERSE)

SEQ 0184

:."'Q."...'.'.'.."Q"'...'Q"Q.'Q.'.'.Q'l.'t.."".'."'..'t't..

SREAD REVERSE DATA,ACK COMMAND
[

AL AALA

100401

043710
063716
000000
016340
000002
000200
001406

005237

063710

MOV
Mov
MoV
MOV

JSR
MOV
MOV

cMP
8EQ
INC
ERRHRD

002212

104456
000676
045376
012136

104406
013702
010304

165$:

Al Al A

#100401,724Pk3
#T24PK3
RS

R3,T24S2
R4,TSDB(RS)

PC,WAITF

TSSR(RS)
,R1

FATFLG

170¢;

003114
000400

173%:

002212

JREAD REVERSE DATA_ACK COMMAND
JSET UP R4 WITH PACKET ADDRESS
SSET UP RECORD SIZE IN PACKET
; I1SSUE COMMAND

JWAIT FOR SSR

TO SET

JGET TSSR CONTENTS
JSET UP EXPECTED
JARE THEY EQUAL
:BR, IF 0K
;BUMP COUNT
JTSSR INCORRECT AFTER READ DATA

446
T24WDC(
PKTSSR

TRAP

cscLP

MOV
MOV
Sus
ADD
cMp

:GET BUFFER ADDRESS
s CURRENT RECORD SIZE
cFIRST LOCATION [N BUFFER
;SET POINTER TO FRAME (WORD)
;CHECK DATA READ (R3=DATA ALSO)
sBR, IF ALL IS WELL
SRECD DATA

6
ERRNO, T24DTA EXPREC

180$:

(KLooP

190$:

TST
Su8
(MP
BNE
TST
CMP
BNE
(KLOOP

SEXPECTED DATA

;BUMP COUNT
sDATA READ NOT = WRITTEN

000400

;LOOP [F SELECTED
(R4)+
R2.R4
R4 R3

173$

-(R3)
#256..R3
165$

ENDSUB

TRAP

$335555535>>

EMD

002212

004737

017272

000017

cMP

999%:

BLO
JSR

FATFLG,#15.

999$

PC,CKDROP

EXPRE(

TRAP

c(scLm

TRAP

(scLP

SUBTEST

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

TRAF

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

:TRY

CSERMRD

447
T24DTA

.WORD

sBUMP TO NEXT LOCATION
sGET RID O° BASE ADDRESS
cEND OF RECORD YET
:BR, IF NOT AT FND OF RECORD
;BUMP RECORD SIZE
JEND OF RECORD YET
sBR, IF MORE RECORDS TO WRITE
;LOOP [F SELECTED
L10060:

023727

czennno

LMWORD
.WORD
.WORD

LWORD
.WORD

104406

103402

;LOOP ]F SELECTED

ERRHRD

104456

104403

(kLOOP

MOV
MoV
INC

000677
044630
015564
104406
005724
160204
020403
001360
005743
022703
001322

TRAP

BEQ

010302
005237

TO DROP THE UNIT

CSESLB

—_—

TSV? = HARDWARE TESTS 1-8

TEST

4&:

BASIC READ DATA

MACRO M1113

25-MAY-82 09:19

(FORWARD AND REVERSE)

2765
2766

D 15
PAGE 103
SEQ 0185

g
:

%;gg

sTEST &, SUBTEST 7

2769

:VERIFIES THAT READ DATA COMMANDS WITH CVC=1 AND THE

%;;%

:THE RESULTS, EXCEPT FOR RAM CONTENTS, SHOULD BE THE SAME.

2770
27N

sSWAP BYTES (SwB) BIT SET OPERATES PROPERLY. THE TEST
sSEQUENCE IS IDENTJCAL TO THAT USED IN SUBTEST 2.

277

;

2775
2776

:
.-

2777 040142

040142
040142
2778 0401446
2779 040150
g;g? 0640156

104402
004737
004737
004737

046404
046250
046342

BGNSUB

JSR
JSR
JSR

2782

JOO335>5>>>>> BEGIN SUBTEST >>>>>>>>>>>>

14.7:

TRAP
JSET UP OTHER CCMMAND PA_KET
<SET COMMAND PACKET
JSET UP OTHER COMMAND PACKET

PC,T24RT3
PC,T24REST
PC,T24RT2

.'tt'tttttQtttttttttttttt'tttttttt'ttttQt"ttttt.t!"tt'ttt't't"tQ'

2783

%;glg

s ISSUE CONTROLLER ‘''SOFT'' INITIALIZE - CARRY BIT CLEAR IF ERROR

2786

:'tttt'tttttttt'ttQ'tt't'ttt'lttttt'.ttttt.tttttt't't.tt'ttt'tt.t'tt

2787
2788 040160
2789 040164
2790 040166
2794 040172

004737
103407
005237
010001

040174
040176
040200
0640202

104455
000700
003650
012124

2795 040174

2796 040204
2797 040204
5;33 040212

013737
012704

016064

JSR
B8CS
INC
MOV
ERRDF

002212

002172
0643570

2800

043610

208:

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

MOV
MOV

UNITN,T24D0SW
#T24PACKET RS

;DO INITIALIZE ON CONTROLLER
cBR IF INIT WAS 0K
;BUMP COUNT
JCONTENTS OF TSSR REGISTER
JFATAL ERROR TSSR WAS NOT 0K
TRAP
.WORD
.WORD
.WORD

448
Si[ERR

SFIMSG

JSET DRIVE NUMBER IN PACKET
;SUBROUTINE NEEDS PACKET ADDRESS

%gg%

JWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

280‘

:°t'.tttt'tttttt'tt.t'ttt"t.tttttt.tttt'tttt'tttttt't"tttt.tttt't'

2805
2806 040216
2807 040222
2808 040224
2812 040230
2813 040232
040232
040234
040236
040240
2814 040242
2815 060242

CSERDF

;t.tt'.t.tt"tttttttt't"tt'Q'ttttttttQfittttttttttttt..'t.t'ttt"tt

2801

2816

c$8suB

004737
103407
005237
010001
104456
000701
005054
012124
104406

010752

JSR
8CS
INC
MOV
ERRHRD

002212

24%:
A

PC,WRTCHR
248
FATFLG
RO,R1
ERRNO WRTMSG, SFIMSG

(xLOOP
A

JISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED OK
;JBUMP COUNT
;SAVE CONTENTS OF TSSR
JWRITE CHARACTERISTISC FAILED
TRAP
.WORD
.WORD
. WORD
;LOOP !F SELECTED
TRAP
I

R S X

R R

CSERHRD
449
WRTMSG
SF IMSG
CsCLP?

—

TSV? - HARDWARE TESTS 1-8

TEST

BASIC READ DATA

MACRO M1113

25-MAY-82 09:19

(FORWARD AND REVERSE)

2817
2818

E 15

PAGE 103-1

SEQ 0186

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

E...'..'."....".tl.'""'"Q'.'...Q".'.".'Q'..'.'.Q..'..'..""
2822 040244
2823 0460250

004737
103407
010001
005237

011104

JSR
8CS

MOV
INC
ERRHRD

002212

104456
000702
045046
104406

ERRNO, T24RWN,PKTSSR

;CALL TAPE REWIND COMMAND
“BR, IF NO PROBLEM
SSAVE TSSR
sBUMP COUNT

*REWIND NOT ACCEPTED

TRAP

CSERHRD

.WORD
"WORD

012136

012703
013737

PC,REWIND
308
RO,R1
FATFLG

308:
000400
003114

CKLOOP
MOV

043712

MOV

;LOOP IF SELECTED
#256. .R3

FREE.T24RB

;RECORD SIZE

450
T24RWN

.WORD

PKTSSR

TRAP

C$CLP1

SSTARTING WRITE BUFFER ADDRESS

:t.t.t..Q..."Q...'.."""'t...t'.QtQ'.'...Q....".Q"".'t"'.'t.

SWRITE DATA,ACK,CVC=1,SWw8 COMMAND

E.Q..'..'.'Qtt.".'t."""'t.l...."'....tQ'.'tt't.'..'.'."fi'."'
2840 040304
2841 040312
2842 040316
2843 040316
2844 040320
2845 040324
2846 040330
2847 040334
2848 040340
2849 040344
2850 040350
2851 040352
2852 040354
2856 040360
040360
04
2857 040370
040370
2858 040372
2859 040374
2860 040400
2861 040402
040402

2862 040404
2863 040406

012737
012704
010300
004737
010337
010465
004737
016501
012702
020102
001406
005237

043710

017512
043716
000000
016340
000002
000200
002212

#150005, T24°K3

;WRITE DATA,ACK,CVC=1,SwB COMMAND

MOV

#T24PK3 R

SSET UP R4 WITH FACKET ADDRESS

MOV

R3,R0

;SET PATTERN IN CORRECT REGISTER

JSR

PC.FILLMEM

SFILL MEMORY WITH RECORD SIZE

MOV
JSR
MOV
MOV

R&.TSDB(RS)
PC.WAITF
TSSR(RS) ,R1
#SSR,R2

:1SSUE COMMAND
*WAIT FOR SSR TO SET
:GET TSSR CONTENTS
SSET UP EXPECTED

CMP
BEQ

INC
ERRHRD

R3.T24S2

R1,R2
75§

FATFLG
ERRNO,WRTERR,PKTSSR

:SET UP RECORD SIZE IN PACKET

SARE THEY EQUAL
‘BR, IF OK

SBUMP COUNT
STSSR INCORRECT AFTER WRITE DATA
TRAP

.WORD

758:

104406

000414

808:

c03114

CKLOOP

1134

104406

005743
013737

MOV

104456
000703
005111
012136

005723
022703
001346

043712

;LOOP [F

(R3)+

CMP
BNE

#268.,R3
658

-(R3)

CKLOOP

MOV

FREE,T24RB

SELECTED

:BUMP RECORD SIZE

.WORD
'WORD

WRTERR
PKTSSR

TRAP

CS$CLP1

*END OF RECORD YET
:BR, IF MORE RECORDS TO WRITE

SLOOP IF SELECTED

TRAP

;SET RECORD SIZE BACK TO 512.

:STARTING READ BUFFER ADDRESS

:""".t.""'.t'...."".."..'.'...l'i.t"..'ti'..t.fi!""'.'.'Q

*READ REVERSE DATA,ACK.SWB COMMAND

CSERHRD

451

(C$CLPI

TSV? ~ HARDWARE TESTS 1-8

TEST

BASIC READ DATA

MACRO M1113

(FORWARD AND REVERSE)

2869

012737
012704

2875 040436
2876 040442
2877 040446

004737
016501
012702

2878 040452
2879 040454

2880 040456
2884 0460462
040462
060464

040466
040470

2885 040472
040672
2886 040476
2887 040500
2888 040502
2889 040506
2890 0460510
2891 040512
2892 040514
2893 040516
2894 060520
2898 040524
0405246
040S2§
040530
040532
2899 040534
040534
2900 040536
2901 040540
2902 040542

2903 040544

010337

010465

020102
001406

005237

104406
013702
010304
162704
060204
021403
001410
011401
010302
005237

2912 040576

1658:

000000

SEQ 0187

MOV
MOV

MOV

#110401,T24PK3
#T24PK3 R4
R3, 12451

JSR
MOV
MOV

PC.WAITF
TSSR(RS) ,R1
#SSR R2

INC
ERRHRD

FATFLG
ERRNO, T24WDC, EXPREC

MOV

016340
000002
000200

CMP
BEQ

002212

1708:
003114
000400

1738:

002212

1808:

104406
005724
160204
020403

001360

022703

004737

:SET UP RECORD SIZE IN PACKET

R4, TSDB(RS)

:ISSUE COMMAND

R1,R2
1708

*ARE THEY EQUAL
:BR, IF O

CKLOOP
MOV
MOV
su8
ADD
CMpP
BEQ
MOV
MOV
INC
ERRHRD

:WAIT FOR SSR TO SET
:GET TSSR CONTENTS
$SET UP EXPECTED

:BUMP COUNT
:TSSR INCORRECT AFTER READ DATA
TRAP
CSERHRD

000400

FREE.R2
R3,R4
#256. R4
R2.R4
(R4) ,R3
1808
(R4) ,R1
R3,R2
FATFLG
ERRNO, T24DTA,EXPRE(

017272

000017

-(R3)

:BUMP RECORD SIZE

1658

:BR, IF MORE RECORDS TO WRITE
:LOOP IF SELECTED
TRAP

BNE
CKLOOP

CMP
BLO
9998:

TRAP
;GET BUFFER ADDRESS
*CURRENT RECORD SIZE
SFIRST LOCATION IN BUFFER
*SET POINTER TO FRAME (WORD)
sCHECK DATA READ (R3=DATA ALSO)
:BR, IF ALL IS WELL
SRECD DATA
:EXPECTED DATA
SBUMP COUNT
;DATA READ NOT = WRITTEN
TRAP
LWORD
JWORD
.WORD
;LOOP IF SELECTED
TRAP
;BUMP TO NEXT LOCATION
:GET RID OF BASE ADDRESS
:END OF RECORD YET

(R4)+
R2.R&
R4 .R3

175s

#256. .R3

ENDSUB

002212

JWORD
.WORD

ST
SUB
CMP

CMP

1908:

:LOOP IF SELECTED

CKLOOP

BNE

104406

104403
023727
103402

;READ REVERSE DATA,ACK,SW8 COMMAND
SSET UP R4 WITH PACKET ADDRESS

.WORD

104456
000708
0644630
015564

001322

2911 040572

043710

045376
015564

2906 040554
2907 040556
040556
040560
040560
2909 040562
2910 040570

110401
043710
043716

104456

005743

2908 040560

103-2

000704

2904 040546

2905 040550

F 15

PAGE

;".tt'.t.t"".t"t."Qt't't"t.tt".'t.'..t'..t.'tt..tt'ttt..t't"'

2870
2871 040414
2872 060422
2873 040426

2874 040432

25-MAY-82 09:19

JSR

452

T24WDC
EXPREC

CSCLP1

CSERHRD
453
T24DTA
EXPREC
CSCLP1

*BR, IF NOT AT END OF RECORD

*END OF RECORD YET

CSCLP1

$2>33533>53>> END SUBTEST >>>>>>>>>>>>

L10061:

FATFLG.#15.
9998
PC,CKDROP

TRAP
;IS ERROR COUNT AT 2§
:BR, IF LESS THAN 25
STRY TO DROP THE UNIT

(SESUB

TSV? - HARDWARE TESTS 1-8

TEST

2914

BASIC READ DATA

MACRO M1113

25-MAY=-82 09:19

(FORWARD AND REVERSE)

615

PAGE 104
SEQ 0188

TSV? = HARDWARE TESTS 1-8

TEST

MACRO M1113

25-MAY-82 09:19

4&: BASIC READ DATA (FORWARD AND REVERSE)

H 15
PAGE 105

2916
2917

o
:

2920
2921
2922
2923
2924
2925
2926
2927
2928 040576
040576
040576
2929 040600
2930 040604
%3%; 040610

;VERIFIES THAT A READ REVERSE COMMAND READING A RECORD
sLONGER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE
sSTATUS ALERT TERMINATION WITH THE RECORD LENGTH LONG
s(RLL) BIT SET.
:
:
i=

%g}g

sTEST &, SUBTEST 8

BGNSUB
104402
004737
004737
004737

046404
046250
046342

JSR
JSR
JSR

2933

2934

$2>333>>5>>>> BEGIN SUBTEST >>>3>>>>>>>>
74.8:
TRAP
cs8sus
JSET UP OTHER COMMAND PACKET
sSET COMMAND PACKET
;SET UP OTHER COMMAND PACKET

PC,T24RT3
PC,T24REST
PC,T24RT2

A R A AN AR A A NN AR RN

NN A R AN

AR AN AN R RN IR NN AN ANRAANRNANE ARSI TN

Sggg

s ISSUE CONTROLLER ‘'SOFT'’ INITIALIZE - CARRY BIT CLEAR IF ERROR

2937

Ett.ttttttt"'tttttt'ttttt.ttt.t'tt.tttt.ttt"tttt.ttttttttt'ttt'tt

<938
2939 040614
2940 0460620
2941 060622
2945 040626
2946 040630
0460630
060632
060634
060636
2947 040640
2948 040640
gggg 060646

004737
103407
005237
010001

016064
002212

104455
000706
003650
012124
013737
012704

002172
043570

2951

043610

20$:

AR RN

2952

JSR
B8CS
INC
MOV
EPRDF

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

:DO INITIALIZE ON CONTROLLER
;BR iF INIT WAS 0K
;BUMP COUNT
sCONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT 0K
TRAP
WORD
.WORD
.WORD

MOV
MoV

UNITN, T24DSW
#T24PACKET RS

cSET DRIVE NUMBER IN PACKET
s SUBROUTINE NEEDS PACKET ADDRESS

AR AR R

A A AR RN AN

AN AN AR AN RN RN A AR AN R AR AN NN

NAONRRARIRNIRENS

gggz

JWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

2955

;tttttttt'ttttt'tt.tttttt'tttttttttttttttfittttttt'tt'ttttttt.ttt.'.

2956
2957 040652
2958 040656
2959 040660
2963 040664
2964 040666
040666
040670
060672
0400674
2965 040676
2066 040676
2967

004737
103407
005237
010001
104456
000707
005054
012124
104406

010752

JSR
8CS
INC
MOV
ERRHRD

002212

24%:

PC,WRTCHR
248
FATFLG
RO,R1
ERRNO,WRTMSG,SFIMSG

CKLOOP

R R

CSERDF
454
SFIERR
SFIMSG

sISSUE WRITE CHARACTERISTICS
cBR, IF COMMAND ISSUED OK
;BUMP COUNT
sSAVE CONTENTS OF TSSR
JWRITE CHARACTERISTISC FAILED
TRAP
LWORD
.WORD
.WORD
sLOOP IF SELECTED
TRAP
T T T T

IOY S

CSERHRD
455
WRTMSG
SF IMSG
CSCLP

SEQ 0189

TSV7 - HARDWARE TESTS
1

TEST

MACRO M1113

I 15

25-MAY-82 09:19

PAGE

4: BASIC READ DATA (FORWARL AND REVERSE)

2968

105-1

SEQ 0190

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
3

;t"t"."tt'.t""t'."'t'ttt...tt..t'.tt'.t.'l.tt.'..t.'.".'ti"

2973 040700
2974 040704
2975 040710
2976 040712
2977 040714
2981 040720
040720
040722
040724
040726
2982 040730
040730
2983 040732
2984 040736
2985
2986
2987
2988
2989

004737
004737
103407
010001
005237

011104
016426

JSR

BCS

002212

WORD
JWORD

308:
001000
003114

¢kLoop

;LOOP IF SELECTED

MOV
MOV

043712
I

#512. ,R3
FREE,T24RB

AAARR AR

cRECORD SIZE

CSERHRD

456
T24RWN

.WORD

PKTSSR

TRAP

csCLP1

;STARTING WRITE BUFFER ADDRESS

22222222222

2222222222

SWRITE DATA,ACK,CVC=1 COMMAND
L4

012737
012704
010337
010465
004737
016501
012702
020102
001406
005237

140005

062773

AAAAA

SR AA

043710
65$:

043716
000000
016340
000002
000200
002212

012703
013737

MOV
MOV

#1460005,T24PK3
#T24PK3
RS

sWRITE DATA,ACK,CVC=1

MOV

R3,T24S2

sSET UP RECORD SIZE IN PACKET
: ISSUE COMMAND

MOV
JSR
MOV
MOV

R4 . TSDB(RS)
PC.WAITF
TSSR(RS) ,R1
#SSR,R2

8EQ

75$

INC
ERRHRD

104456

104406

ARl

CMP

COMMAND

sSET UP R4 WITH PACKET ADDRESS

sWAIT FOR SSR TO SET

sGET TSSR CONTENTS
sSET UP EXPECTED

R1,R2

sARE THEY EQUAL

FATFLG
ERRNO,WRTERR,PKTSSR

sBUMP COUNT
sTSSR INCORRECT AFTER WRITE DATA

;BR,

IF 0K

TRAP

000711
005111
012136

.WORD

75%:

000400
003114

CKLOOP

MoV
MOV

043712
P

3012
3013
3014
3015
3016
3017 041036
3018 041044
3019 041050
3020 041054

FATFLG
ERRNO,T24RWN,PKTSSR

TRAP

2990

2991
2992 040744
2993 040752
2994 040756
2995 040756
2996 040762
2997 040766

30§

PO,R1

INC
ERRHRD

012136
104406

sCALL TAPE REWIND COMMAND
sSEE HOW TSSR IS
s8R, IF NO PROBLEM
s SAVE TSSR
+BUMP COUNT
sREWIND NOT ACCEPTED

PC.CHKTSSR

MOV

104456
000710
045046

012703
013737

PC,REWIND

JSR

Al a

.LOOP IF SELECTED
#256. ,R3
FREE, T24RB

.WORD
.WORD

WRTERR
PKTSSR

TRAP

CSCLP

sSIZE OF RECORD
sSTARTING READ BUFFER ADDRESS
i

2222222222222

*READ DATA,ACK COMMAND
.

SRR

100401

043710
063716
000000

043710

165%:

AR RN R A N AN NN AN AN RN R TR R E AR A RN R AR RN RN R AN R

Mov
Mov

MOV

#100401, TZLPKS
#T24PK3,

R3, 72482

R4, TSDB(RS)

NN RN AR NN RN R

RN N

CSERHRD

457

RO RN

sREAD DATA,ACK COMMAND

sSET UP R4 WITH PACKET ADDRESS

sSET UP RECORD SIZE IN PACKST
¢ ISSUE COMMAND

TSV7 - HARDWARE TESTS 1-8

TEST

BASIC READ DATA

3021 041060
3022 041066

3023 041070

064737
016501

012702

3024 061074

020102

3026 041100
3030 0641104
041106
041106
0641110
041112

005237
104456
000712
046114
015564

3032 041114

104406

3025 041076

3031 041114

001406

MACRO M1113

25-MAY-82 09:19

(FORWARD AND REVERSE)

016340
000002

JSR
MOV

10004

MOV
cMP

BEQ

002212

INC
ERRHRD

1708:

J 15

PAGE

105-2

PC,WAITF
TSSR(RS) ,R1

#SSR'SC!'BIT2,R2

SEQ 0191

;WAIT FOR SSR TO SET
SGET TSSR CONTENTS

:SET UP EXPECTED

R1,R2

;ARE THEY EQUAL

FATFLG
ERRNO, T24TRL ,EXPREC

:BUMP COUNT
:TSSR INCORRECT AFTER READ DATA
TRAP
CSERHRD
.WORD
458
T24TRL
.WORD
.WORD
EXPREC

1708

CXLOOP

‘BR, IF OK

:LOOP IF SELECt‘b

TRAP

3033

.'tttttt.tt'ttttt'ttt.tttttt'tttttttttt.tt.'ttttttttt..tt"t.tt".tt

3034

%ggg

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

3037
3038
3039 041116
3040 041122

:'Qtttt'ttttttttt't.l'tt"t'ttttQtttttttttttQfitt.tttttfittttti'ttttt'

3041
3042
3043
3044
3048

cscLPt

041124
0641130
041132
041134
041140
041140
041142
061144

041146
3049 041150
041150
3050 041152
041152
041152

3051 0641156
3052 041162
3053 041164
3054 041170

013701
010102
052702
020102
001406
005237

043620

MOV
MOV
BIS
CMP
BEQ
INC
ERRHRD

010000
002212

104456
000713

T24BFR+6,R1
R1.R2
#8IT12.R2
R1,R2
1808
FATFLG
ERRNO, T24LON, EXPREC

045662

015564

1808:

104406
104403
023727
103402
004737

CKLOOP
ENDSUB

002212
017272

000017
9998:

cMP
BLO
JSR

FATFLG,#15.
999%
PC.CKDROP

;GET MESSAGE BUFFER (XSTO)
:SET UP EXPECTED
;SET THE RLL BIT IN EXPECTED
:ARE THEY EQUAL
;BR, IF EQUAL (ALL IS WELL)
:BUMP COUNT
;THE RLL BIT WAS NOT SET IN XSTO
TRAP
CSERHRD
459
.WORD
T24LON
.WORD
.WORD
EXPREC
TRAP
CSCLPY
J233333>>>>>> END SUBTEST >>>>>> >>>>>>
L10062:
TRAP
C$ESUB
:1S ERROR COUNT AT 25
:BR, IF LESS THAN 25
;TRY TO DROP THE UNIT

1SV7 = HARDWARE TESTS 1-8

TEST

&: BASIC READ DATA

MACRO M1113

25-MAY-82 09:19

(FORWARD AND REVERSE)

K 15

PAGE 106

SEQ 0192

3056
3057

:¢
:

3060

EVERIFIES THAT A READ REVERSE COMMAND SPECIFYING A DATA

§8§g

sTEST &, SUBTEST 9

3061
306¢

sBUFFER STARTING IN NONEXISTANT MEMORY TERMINATES WITH
:THE PROPER ERROR STATUS WITHOUT MOVING TAPE

3064
3065
3066
3067
3068

:
:
;
:
:

3063

3069

3070
3071
3072 041170
041170
061170
3073 041172
3074 041176
3075 041200
3076 041204
3077 041210
%8;3 06412146

A2 A2 A Rl 2223222222222 222

104402

004737

003126
108:

3080

AR A A

3081

§83§

ttt'tttt..'.."tttt'.'l'.'fi.ttt.!Q.'t.ttfi..!Q..tt.tl't'.!'t'ttt.'t'

TST

041566
046404
046250
046342

2222222

The LSI BUS drivers for all available address lines(16-21)
are only checked when running on a 11/238 system with more than
128K words of memory!

BGNSUB

005737
001002
000137
004737
004737

CAUTION

$223533>>>>>> BEGIN SUBTEST >>>>>>>>>>>>
14.9:
TRAP
csssus

NXMFLG
108
180%
PC,T24RT3
PC,T24REST

BNE
JMP
JSR
JSR
JSR

PC,T24RT?2

A Al

;D0 WE HAVE IT?

:BR, IF
ENOUGH
JSKIP THIS TEST IF NOT
;JSET UP OTHER COMMAND PACKET
JSET COMMAND PACKET
;SET UP OTHER COMMAND PACKET
Y

S 2222222222 L

sISSUE CONTROLLER ‘*SOFT'* INITIALIZE = CARRY BIT CLEAR IF ERROK

308‘

3085
3086 041220
3087 041224
3088 041226
3092 041232
3093 041234
0612346
061236
061240
061242
3094 041244
3095 041244
%839 061252

:"'ti"ti.ti.tttt"t't'."t't.tttfi't.tl.Qt..'l.t.ttt.t..t"".'t'tt

004737
103407
005237
010001

016064

JSR
8(S$
INC
MOV
ERRDF

002212

104455
0006714
003650
012124
013737
012704

002172
043570

3098
3099

043610

20$:

MOV
MOV

PC,SOFINIT
20$
FATFLG
RO,.R1
ERRNO, SFIERR, SF IMSG

UNJTN, T24DSW
#T24LPACKET R4

;DO INITIALIZE ON CONVROLLER
sBR IF INIT WAS 0K
;BUMP COUNT
;CONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT 0K
TRAP
WORD
.WORD
.WORD

CSERDF
460
SFIERR
SFIMSG

;SET DRIVE NUMBER IN PACKET
s SUBROUTINE NEEDS PACKET ADDRESS

:tt'tt.tQt'ttt't...t"'t't"it..tltt.i'.'!"tt't!.t'tt'ttttt'.'tttfi
:

%}8?

SWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

3102
3103
3106 0641256
3105 041262
3106 041264
3110 041270

:‘Qttttt't'ttt'ttttttl'tttt'ttttttttlt!ttt'ttttt'ttttttttt!t"t'ttt.
004737
103407
005237
016001

041272

104456

3111 041272

010752

JSR
B(CS
INC
MOV

002212

ERRHRD

PC,WRTCHR
24$
FATFLG
RO,R1

ERRNO,WRTMSG, SFIMSG

sISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED 0K
;BUMP COUNT
sSAVE CONTENTS OF TSSR
JWRITE CHARACTERISTISC FAILED

TRAP

CSERHRD

—

TSV7 - HARDWARE TESTS 1-8

TEST

BASIC READ DATA

YO NS W

041274
041276
041300
2 061302
041302

OB NN =200

—d and el wmd

)

D cad

D el

D e

AN NN NN NN W

-—

MACRO M1113

25-MAY-82 09:19

(FORWARD AND REVERSE)

060715
005054
012124

248:

104406

L 15

PAGE 106-1

SEQ 0193

CKLOOP

:LOOP IF SELECTED

LWORD

461

TRAP

CS$CLP1

"WORD
"WORD

WRTMSG
SFIMSG

:Qfit.t’i"'t.t't.t'.'t't't"t‘tttfi.'.'i'fifi.tt'..'.'..t.fiit.t't"."

SISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

Etfitttt..tittt"ttttt"tt""tttt.ttitttl.t..Q..ttttttt.t'tfi'.tt"'
041304

004737
004737
004737
103407
010001
005237

021276
011104
016426

041342
041346

002212

104406

30$:
000400
003114

MOV

RO,R1

ERRHRD

ERRNO, T24RWN,PKTSSR

INC

000716
045046
012136

012703
013737

PC, INVERT
PC.REWIND
PC.CHKTSSR

BCS

104456

061336
041340
041340

JSR
JSR
JSR

04371 2

30$

:BR, IF NO PROBLEM

FATFLG

*BUMP COUNT

SSAVE TSSR

CKLOOP
MOV
MOV

;INVERT THE EXTENDED FEATURES SWITCH
:CALL TAPE REWIND COMMAND
SSEE HOW TSSR IS

*REWIND NOT ACCEPTED

;LOOP IF SELECTED
#256. .R3
FREE, T24R8

TRAP

CSERHRD

.WORD
JWORD

462
T24LRWN

TRAP

CSCLP1

-WORD

:RECORD SIZE
:STARTING WRITE BUFFER ADDRESS

PKTSoR

:ttt"'ttt.tt.'ttt..tt'tt"t.."t'.lttit.tt.Qt'.ttt.t.ttttt..t!lttt

SWRITE DATA,ACK,CVC=1

COMMAND

;tt't.ttt.tttt...ttt.t"t'tifil'tfiti.i"'tt.Ql...ttttt.l.ttt.t'.t.'t
012737
012704
010337
010465
004737
016501
012702
020102
001406
005237

140005

043710

04371 0

043716
000000
016340
000002
000200

MOV
MOV

MOV

104456

R3,T24S2

MOV
JSR
MOV
MOV

R4 .TSDB(RS)
PC.WAITF
TSSR(RS) ,R1
#SSR,R2

INC
ERRHRD

FATFLG
ERRNO,WRTERR,PKTSSR

CMP
BEQ

002212

#140005, T24PK3
#T24PK3 R

R1,R2
758

;WRITE DATA,ACK,CVC=1 COMMAND
:SET UP R4 WITH PACKET ADDRESS

;SET UP RECORD SIZE IN PACKET

:ISSUE COMMAND
SWAIT FOR SSR TO SET
:GET TSSR CONTENTS
:SET UP EXPECTED

*ARE THEY EQUAL
‘BR, JF OK

*BUMP COUNT
$TSSR INCORRECT AFTER WRITE DATA
TRAP

000717

041430
3154 041432
041432
3155 041434
3156 041440
3157 041446
3158
3159
3160

.WORD

75%:

000400
003130
003132

04371 2
04371 4

CKLOOP
MOV
MOV
MOV

:LOOP IF SELECTED
#256. ,R3
NXMLO, T24RB
NXMH] . T24RB+2

SRR AR A RA AN AR AN RN AN RN

R O RN RN NN NANRR RN

463

.WORD
"WORD

WRTERR
PKTSSR

TRAP

CS$CLP1

;RECORD SIZE
:STARTING READ BUFFER ADDRESS
:SET ADDRESS BITS 16=17
ANNR

CSERHRD

A RN RNRRARAEAARARANB AR

—

TSV? - HARDWARE TESTS 1-8

TEST

MACRO M1113

25-MAY-82 09:19

&: BASIC READ DATA (FORWARD AND REVERSE)

M5
PAGE 106-2
SEQ 0194

g;g%

JREAD DATA,ACK COMMAND

3163

:'t'tt.tt"ttttt!t.ttt'tt"ttttlttt'tttttitti.'tt'.'Qt.t.tttt."'tt'

3164
3165 041454
3166 041462
3167 041466
3168 041472
3169 041476
3170 041502
3171 041506
3172 041512
3173 041514
3174 041516
3178 041522
041522
041524
041526
041530
3179 041532
3180 041532

012737
012704
010337
010465
004737
016501
012702
020102
001406
005237

100001
043710
043716
000000
016340
000002
104210

043710

1658 :

002212

104456
000720
046114
012136

1708:

104406

3181

MOV
MOV
MOV
MOV
JSR
MOV
MOV
CMP
BEQ
INC
ERRHRD

#100001,124PK3
#T24PK3 R4
R3,T24S2
R4, TSDB(RS)
PC,WAITF
TSSR(RS) ,R1
#SSRINXM!SC'BIT3,R?
R1,R2
1708
FATFLG
ERRNO,T24TRL,PKTSSR

CKLOOP

JREAD DATA,ACK COMMAND
JSET UP R4 WITH PACKET ADDRESS
JSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
JWAIT FOR SSR TO SET
JGET TSSR CONTENTS
JSET UP EXPECTED
JARE THEY EQUAL
;BR, IF 0K
JBUMP COUNT
JTSSR INCORRECT AFTER READ DATA
TRAP
.WORD
LWORD
.WORD
JLOOP IF SELECTED
TRAP

:
JREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

3185
3186
3187 041534
3188 041540
3189 041542
3190 041546
3191 041550
3192 041552
3196 041556
041556
041560
041562
041564

:'t.ttQt't.t.tttttttfitt'ttttttttttttttttitt'ttitttttt.tttttt"Qt'ttt

3198 041570

041570
041570
3199 041572
3200 041600
3201 041602
3202 041606

CSCLP

.'ttttt'tt.ttt'ttt'tttttt".'t.i'tttt.t.tttttttt't"tttttfi.tttt'tttt

3182
%}gz

3197 041566
041566

CSERHRD
464
T24TRL
PKTSSR
-

013701
010102
052702
020102
001406
005237

043620

MOV
MOV
BIS
CMP
BEQ
INC
ERRHRD

040000

002212

104456
000721
045744
015564

1808:

104406

104403
023727
103402
004737

T24BFR+6,R1
R1,R2
#BIT14,R2
R1,R2
1808
FATFLG
ERRNO,T24LOP,EXPREC

CKkLOOP

017272

000017

9998:

CMP
8LO
JSR

:GET MESSAGE BUFFER
” 3
JSET UP EXPECTED
sSET THE RLS BIT IN EXPECTED
JARE THEY EQUAL
.3R, IF EQUAL (ALL IS WELL)
:BUMP COUNT
cTHE RLL BIT WAS NOT SET IN XSTO
TRAP
CSERHRD
.WORD
465
.WORD
T24L0P
.WORD
EXPREC
TRAP
CSCLP
JO355555535>> END SUBTEST >>>>>>>>>>>>

ENDSUB

002212

2
s

L10063:

FATFLG,M1S.
999%
PC.,.CKDROP

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

(SESLB

TSV7 = HARDWARE TESTS 1-8

TEST

MACRO M1113

25-MAY-82 09:19

BASIC READ DATA (FORWARD AND REVERSE)

3205
3206

N 15
PAGE 108

SEQ 0195

.t
:

g%gg

;TEST 4, SUBTEST 10

3209

3210

EVERIFIES THAT JLLEGAL MODE-FIELD CODES IN THE READ

s COMMAND CAUSE A FUNCTION REJECT TERMINATION WITH THE

%g};

JILLEGAL COMMAND (ILC) ERROR BIT SET.

3213

358

3214

3217 041606
041606
0461606
3218 041610
3219 0416146
355? 041620

104402
004737
004737
004737

046404
046250
046342

BGNSUB
JSR
JSR
JSR

3222

PC,T24RT3
PC,T24REST
PC,T24RT?

2O335333353>>> BEGIN SUBTEST >>>>>>>>>>>>
T4.10:
TRAP
($BSUB
JSET COMMAND PACKET UP CLEAR
JSET COMMAND PACKET
JSET UP OTHER COMMAND PACKET

.'tttttttttttttttt.ttt"t'.'tttttttltttttttt'tttttit.ttt't.ttttttttt

3223

%%52

;ISSUE CONTROLLER ‘'SOFT'' INITIALIZE - CARRY BIT CLEAR IF ERROR

3226
27
32<8 041624
3229 041630
3230 041632
3234 041636
3235 041640
041640
0641642
041644
041646
3236 041650
3237 041650
gggg 041656

:otttttt-ntt.t'tttttatttttnttcttttttttnttttttttttntttatfitntt-'ttttt004737
103407
005237
010001

016064
002212

104455
000722
003650
012124

013737
012704

002172
043570

043610

208
:

JSR
8CS
INC
MOV
ERRDF

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

;D0 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
:BUMP COUNT
;CONTENTS OF TSSR REGISTER
JFATAL ERROR TSSR WAS NOT 0K
TRAP
LWORD
.WORD
.WORD

MOV
MoV

UN]ITN,T24DSW
NT24PACKET R4

JSET 7 U VE NUMBER
JSUBRui:»
.5t NEEDS PACKET ADDRESS

3240

:ttttttl"'tt.tttttttttt.t.t'tfitttttttttttit!ttttttittttttt'ttttt!t

3241

3244
3245
3246 041662
3247 041666
3248 041670
3252 041674
3253 041676

:‘i'.'lttttt.tttfitt.ttt!t'ti'tttttttttttttfitttttilt'ttt!t.'tttt't'tt

%%2%

CSERDF
466
SFIERR
SFIMSG

sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

041676

041706
041702
0417046
3254 0461706
0461706
3255 041710
3256

004737
103407
005237
010001

010752

JSR
8(CS
INC
MOV
ERRHRD

002212

104456
000723
005054
012124

104406
013737

24%:
003114

043712

PC,WRTCHR
248
FATFLG
RO,R1
ERRNO,WRTMSG,SFIMSG

CKLOOP
MOV

FREE,T24RB

JISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED OK
;BUMP COUNT
;SAVE CONTENTS OF TSSR
JWRITE CHARACTERISTISC FAILED
TRAP
.WORD
.WORD
.WORD
;LOOP IF SELECTED
TRAP
JSTARTING WRITE BUFFER ADDRESS

CSERHRD
467
WRTMSG
SFIMSG

cscLP

8 16
108-1

TSV7 = HARDWARE TESTS 1-8
MACRO M1113
25-mav-82 09:19
TEST
&: BASIC READ DATA (FORWARD AND REVERSE)

PAGE

SEQ 0196

:""'Q..'.'Q'."""'""".'.."'l'..".'..."""Q..'Q".".'..'

SILLEGAL MODE DATA,ACK COMMAND
.

MAALAAAAS

3363 041716

3264 0461724
3265 041730
041736
0417462
041746
0461752
041756
041760
041762
041766
061766
041770
0461772
0461774
041776
361776

104001

063710
000400
000000
016340
000002

043710

MOV

100206

2104001, T24PK3

75$:

104406

X222

MOV
JSR
MOV
MOV

RG,TSDB(RS}
PC.WAITF
TSSR(RS) ,R1
#SSR!SC'BIT1'BIT2,R2

:1SSUE COMMAND
SWAIT FOR SSR'BIT1!BIT2 TO SET
SGET TSSR CONTENTS
:SET UP EXPECTED

#256.,10452

SSET UP RECORD SIZE IN PACKET

R1,R2
75%
FATFLG

sARE THEY EQUAL
:BR, IF 0K
;BUMP COUNT

ERRNO, T24WDF ,PKTSSR

cTSSR

CKLOOP

AL AAAAA

s TLLEGAL MODE DATA,ACK COMMAND

000724
044235

012136

SSET UP R4 WITH PACKET ADDRESS

ERRHRD

104456

#T24LPK3 RS

CmMP
BEQ
INC

002212

MOV

063716

SRR

INCORRECT AFTER REAg gATA
1A
CSERHRD
468
.WORD

cLOOP IF SELECTED
2

T24WDF

PKTSSR

TRAP

cscLP1

2222222213

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XST0)
L4

FLAAAARA LA

013701
010102

043620

005237

002212

MOV
MOV
8IS
CMP

001000

BEQ
INC
ERRHRD

104456

T24BFR+6,R1
R1,R2
#8JT9 ,R2
R1,R2

1803
FATFLG
ERRNO,T24L0Q,EXPREC

2222

sGET
sSET
sSET
sARE

YIRS

MESSAGE BUFFER
UP EXPECTED
THE ILC BIT IN EXPECTED
THEY EQUAL

:BR, IF EQUAL (ALL IS WELL)
;JBUMP COUNT
sTHE ILC BIT WAS NOT SET IN XSTO
-

3295

180%:

3296

TRAP

C(KLOOP
ENDSUB

$233333>>3>>> END

092212
017272

000017
:
9998

(Mo
8LO
JSR

FATFLG,#15.
999%
PC,CKDROP

CSERHRLD

MWORD
.WORD
.WORD

469
T24L0Q
EXPREC

TRAP

cscLm

TRAP

(SESUB

SUBTEST

L10064:

3297 042036
3298 0420446
3299 062046
3300 0462052

2222

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

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

TSV7 - HARDWARE
TEST

BASIC

TESTS 1-8

READ DATA

MACRO M1113

25-MAY-82 09:19

(FORWARD AND REVERSE)

3302
3303

cC 16
10 9

PAG E

SEQ 0197

R
:

g%gg

JTEST &, SUBTEST 11

3306
3307
3308
3309
3310
3311
3312
3313

SVERIFIES THAT JLLEGAL BUFFER ADDRESSES CAUSE A
JFUNCTION REJECT TERMINATION WITH ILLEGAL ADDRESS
sCILA) ERROR BIT SET.
:
:
:
;=

3314 042052

04205¢
042052
3315 0420546
3316 042060
%%}; 062064

BGNSUB

104402

004737
004737
004737

066404
046250
0466342

JSR
JSR
JSR

3319

$23>>>>3>5>>> BEGIN SUBTEST >>>>>>>>>>>>

16.11:

TRAP
JSET COMMAND PACKET UP CLEAR
JSET COMMAND PACKET
;SET UP OTHER COMMAND PACKET

PC,T24RT3
PC,T24REST
PC,T24RT?
A N NI NN NN R

RN AR AR RO AN AR RN N AN RN

ANR OV LN RO RN AN IO ORS

3320

%gg}

:
s ISSUE CONTROLLER °'SUFT'' INITIALIZE = CARRY BIT CLEAR IF ERROR

3323

:'Qtt"""'.tt'tt.ttt'tt't'"Qtttttt't'ttttttt..'t.t"tttt.t'ttt"t

3324
3325 042070
3326 042074
3327 0462076
3331 042102
3332 042104
0462104
042106
062110
062112
3333 042114
3334 042114
%g%z 062122

0064737
103407
005237
010001

016064
002212

104455
000726
063650
012124

013737
012704

002172
047570

043610

3337

208:

3338

JSR
8CS
INC
mMov
ERRDF

PC,SOFINIT
208
FATFLG
RO,R1
ERRNO,SF IERR, SFIMSG

DO INITIALIZE ON CONTROLLER
:BR [F INIT WAS OK
;BUMP COUNT
s CONTENTS OF TSSR REGISTER
JFATAL ERROR TSSR WAS NOT 0Ok
TRAP
WORD
.WORC
.WORD

MOV
MOV

UNJITN, T24DSW
#T24PACKET R4

;SET UP DRIVE NUMBER
:SUBROUTINE NEFDS PACKET ADDRESS

R R R

N N AN R N

A N

R I N R N AR N R R RN

AR NN AN RN

N ENA

SWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

3341

Eo'-tttn'--ttntn.n-tttna'tt-t'tt-n.-ntnt--ttt'-.'t--ttt.-tt-t.taa-

3353 042162

004737
103407
005237
010001

010752

JSR
B8CS
INC
Mov
ERRHRD

002212

104456
000727
005054
012124
104406
013737

012737

248%:

003114

177700

(043712

043714

PC,WRTCHR
248
FATFLG
RO,R1
ERRNO,WRTMSG,SFIMSG

C(KLOO®

MOV

MoV

FREE,T24RB

#177700, T24RB+2

CSERDF
470
SFIERR
SFIM3G

AN NN OR NS

ggzg

3342
3343 042126
3344 042132
3345 042134
3349 042140
3350 042142
042142
0421446
062146
042150
3351 042152
062152
3352 042154

(s8suUB

JISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED Ok
;BUMP COUNT
;SAVE CONTENTS OF TSSR
JWRITE CHARACTERISTISC FAILED
TRAP
CSERHRD
LMWORD
4N
.WORD
WRTMSG
.WORD
SFIMSG
;LOOP IF SELECTED
TRAP
csCLP
JILLEGAL STARTING READ BUFFER ADDRESS

;CREATE ILLEGAL ADDRESS

—

TSV7 -~ HARDWARE TESTS 1-8

TEST

BASIC READ DATA

MACRO M1113

25-MAY-82 09:19

(FORWARD AND REVERSE)

3354

3355

3356

D 16

PAGE 109-1
SEQ 0198

Al A

A R

R R R

X X R R

)

§§§§

sLEGAL MODE ,ACK,CVC=1,READ COMMAND

3359

:'tt'tt."Q't."."..""""'..tt't."'tl.".t'..t'.t't."t"..'.'t

3360
3361 042170
3362 042176

3363 062202

3364 042210
3365 042214
3366 042220
3367 042224
3368 042<30
3369 042232
3370 042234
3374 042240
042260
0642242
042244
042246
3375 042250
3376 042250

012757
012704

160001
043710

010465
004737
016501
012702
020102
001406
005237

000000
016340
000002
100206

012737

043710

000400

MOV
MoV

043716

MOV

MOV
JSR
MOV
MoV
CMP
BEQ
INC
ERNHRD

002212

104456
000730
044062
012136

75%:

104406

3377

#140001,T124PK3
#T24PKT R

#256.,78452

R4, TSDB(RS)
PC.WAITH
TSSR(RS) ,R1
#SSR!SC!BIT1!8IT2,R2
R1,R2
75¢%
FATFLG
ERRNC ,T24WDG,PKTSSR

CKLOOP

sLEGAL MODE ,ACK,CVC=1,READ COMMAND
SSET UP R4 WITH PACKET ADDRESS

:SET UP RECORD SIZE IN PACKET

; ISSUE COMMAND
JWAIT FOR SSR!'BIT1!BIT2 TO SET
JGET TSSR CONTEANTS
JSET UP EXPECTED
;ARE THEY EQUAL
:BR, IF CXK
;BUMP COUNT
JTSSR INCORRECT AFTER READ DATA
TRAP
LWORD
LWORD
.WORD
;LOOP IF SELECTED
TRAP

CSCLPT

:t'tt't'tt.'Q"'Qtt.""""t..t't..t.t.'!'Q.'t""ttt't'.tt."'.tl

3378

3381
3382
3383 042252
3384 042256
3385 042260
3386 042264
3387 042266
3388 042270
3392 042274
04622746
042276
042300
062302
3393 042304
0462304

:'t"QtQQQQtttttttlttttttt'ttt.ttttttttttttttt.t.l..'ttt'tt Y2211 0K

%%23

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

3394 042306

3395
3396
3397
3398

CSERHRD
472
T24WDG
PKTSSR

042306
042306
042310
042316
042320
042324

013701
010102
052702
020102
001406
005237

043620

MOV
MOV
8IS
(P
BEQ
INC
ERRHRD

000400
002212

104456
(000731
044312
015564

180%:

104406

104403
023727
103402
004737

T24BFR+6,R1
R1,R2
#8IT8,R2
R1,R2
1808
FATFLG
ERRNO,T24ILA EXPREC

(kLOOP

i RAP

ENDSUB

(02212

000017

017272

999%:

CMP
8LO
JSR

JGET MESSAGE BUFFER
JSET UP EXPECTED
:SET THE ILA BIT IN EXPECTED
JARE THEY EQUAL
JBR, IF EQUAL (ALL IS WELL)
:BUMP COUNT
cTHE ILA BIT WAS NOT SET IN XSTO
TRAP
CSERHRD
WORD
473
WORD
T24iLA
.WORD
EXPREC
CSCLPT

SO5553555553>> END SUBTEST >>3>>3>>>>>>

L10065:

FATFLG,#15.
999¢
PC,CKDROP

TRAP
;IS ERROR COUNT AT 2§
;BR, IF LESS THAN 25
JTRY TO DROP THE UNIT

CSESUB

TSV? = HARDWARE

TEST

BASIC

TESTS 1-8

READ DATA

MACRO M1113

25-MAY-82 09:19

(FORWARD AND REVERSE)

3400
3401

E 16

PAG EN 0

SEQ 0199

.
:

gzg%

JTEST &4, SUBTEST 12

3404

:VERIFIES THAT A DATA BUFFER ADDRESS REFERENCING

3406
3407

sTERMINATION (TC=4), WITH THE NXM BIT SET IN THE TSSR, AND
;THAT THE TAPE 1S ULTIMATELY POSITIONED PROPERLY.

3405

:NONEXISTANT MEMORY CAUSES RECOVERABLE ERROR

3‘08

gzgg

341

3612

34613

3415

042324
062324
3418 042326
3419 042332
3420 042334
3421 042340
3622 042344
%2%2 062350

The LSI BUS drivers for all available address Lines(16-21}

are only checked when running on a 11/238 system with more than

'Qtt'.t'...'tttt'"'QQQ.Q'.QtQ'Q'.'Q"tttttt't.t""'t'""'.'."QQ

3416
3417 042324

CAUTION

3‘1‘

.'tttttt't."""'Qt.t'tttttt".tt.t.tt."t't"t't.t"'ttt.'ttt"'

128k words of memory!

BGNSUB

106402
005737
001002
000137
004737
004737
004737

003126
042542
066404
046250
046342

10$:

3‘25

TST
BNE
JMP
JSR
JSR
JSR

$2>33>5>>>>>> BEGIN SUBTEST >>>>>>>>>>>>

T6.12:

NXMFLG
108
80$
PC,T24RT3
PC,T24REST
PC,T24RT2

TRAP

;D0 WE HAVE IT?
:RR, IF
ENOUGH
:SKiP THIS TEST IF NOT
JSET COMMAND PACKET UP CLEAR
;SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET

:'."t't'.ttt'.t..'tt'"t't'tt.....t'.t'.tl.'t...t..'.'tt..'tt't.'.

3426

3429

E'ttttt..t't..t"..t".""tt'ttt..tt."t...'...Q.lt.'.'..t..."t"

%253

3430
3431 042354
3432 042360
3433 042362
3437 042366
3438 042370
042370
042372
042374
042376
3439 042400
3440 042400
gz:; 042406

;ISSUE CONTROLLER ‘''SOFT'* INITIALIZE - CARRY BIT CLEAR IF ERROR

004737
103407
005237
010001

016064
002212

104455
000732
003650
012124
013737
012704

002172
043570

043610

208:

JSR
BCS
INC
MOV
ERRDF

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

;D0 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
;8UMP COUNT
:CONTENTS OF TSSR REGISTER
:FATAL ERROR TSSR WAS NOT OK
TRAP
WORD
.WORD
.WORD

MOV
MOV

UNITN,T24DSW
#T24PACKET RS

;SET UP DRIVE NUMBER
;SUBROUTINE NEEDS PACKET ADDRESS

3443

;'t't.ttttttt'ttt"'t't"t't"ttt"ttt.t't'tt'.ttt."'ttttt"tt.'!t

3‘47
3448
3449 042412

3ttt"tttttttt.'tttt"t""tt.ttt'tttt't't'tt..tttttt't't'tt"tt't'

3444
%222

3450 042416
3451 042420
3455 042424
3456 042426

C$85UB

;
JWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

004737
103407
005237
010001

010752

002212

JSR
BCS
INC
MOV
ERRHRD

PC.WRTCHR
248
FATFLG
RO,R1
ERRNO,WRTM
SFSG,
IMSG

;ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK
JBUMP COUNT
:SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC FAILED

CSERDF
474
SFIERR
SFIMSG

TSV? - HARDWARE TESTS 1-8

TEST

BASIC READ DATA

042426
062430
042432
042434
3457 042436
062436

3458 042440
3459 042444
%260 062452

MACRO M1113

25-MAY=-82 09:19

(FORWARD AND REVERSE)

F 16
PAGE 110-1

SEQ 0200

104456

TRAP

000733
005054
012124
104406

004737
013737
013737

¥
{3
021276
003130
003132

CKLOOP

JSR

063712
043714

PC,INVERT

MAAALALAAAAR

AR ARl

iRt

TRAP

cscLpPt

WRTMSG
SFIMSG

JINVERT THE EXTENDED FEATURES SWITCH
;SET TO NXM MEMORY ADDRESS
sSET HIGH BITS

NXMLO, T24RB
NXMH], T24RB+?2

Mov
MoV

475

.WORD
.WORD

JLOOP IF SELECTED

CSERHRD

WORD

221222

IR 2

)

*READ, ACK, CVC=1, COMMAND
.

3468 0462460
3469 042466
3470 042472
3471 042500
3472 042504
3473 042510
3476 042514
3475 042520
3476 042522
3477 042524
3481 042530

3482 042540
042540
3483 042542
3484 042542
042542
042542
3485 042544
3486 042552
3487 042554
3488 042560

140001

043710
000400
000000
016340
000002

043710
043716

104456
000734

044151
01213¢

75%:

104406

104403

80s$:

002212

004737

017272

103402

000017

ANAANANNARNNNNN RN RANRARE NS

#140001,T24PK3
#T24PK3 R4

R4 ,TSDB(RS)

;READ, ACK, CVvC=1, COMMAND
JSET UP R4 WITH PACKET ADDRESS
SET UP RECORD SIZE IN PACKET
;s ISSUE COMMAND

MOV
MOV
CMP

TSSR(RS)
,R1
#SSR!SC!NXM!BIT3,R2

JGET TSSR CONTENTS
;SET UP EXPECTED

#256.,12452
PC.HA!TF

75$

FATFLG

ERRNO, T24NXM, PKTSSR

ckLoopP

JSR

cWAIT FOR SSR!BIT1!BIT2 TO SET

sARE THEY EQUAL

:BR,

IF OK

;BUMP COUNT
;TSSR INCORRECT AFTER READ DATA
TRAP

;LOOP ]F SELECTED

ENDSUB
cMP
BLO

9998:

TN NN ARARAAN AR

MOV
MoV
MOV
MoV

BEQ
INC
ERRHRD

002212

023727

AN NAR AN AAN AN

JSR

104210

005237

AR AN

CSERMHRD

LWORD
WORD

476
T24NXM

TRAP

CscLP

.WORD

PKTSSR

$2333533555>> END SUBTEST >>>>>5>>>>>>
L10066:
FATFLG,#15.

999$

PC,CKDROP

TRAP

;1S ERROR COUNT AT 2§
;BR, IF LESS THAN 2§
;TRY

TO DROP THE UNIT

(SESUB

—_—

TSV7 ~ HARDWARE TESTS 1-8

TEST

BASIC

READ DATA

MACRO M1113

25-MAY-82 09:19

(FORWARD AND REVERSE)

G 16
PAG £ 1

SEQ 0201

ot4

STEST 4, SUBTEST 13
SVERIFIES THAT A READ REVERSE COMMAND ISSUED WHILE THE

STAPE IS AT BOT RESULTS IN FUNCTION REJECT TERMINATION

JWITH THE NONEXECUTABLE FUNCTION (NEF)

042560

BGNSUB

104402

062572

004737
004737
004737

ERROR BIT SET

(3333353333555 BEG£N1§UBTESI

T6.135:

046404

JSR
JSR
JSR

066250
066342

PC,T24RT3
PC,T24REST
PC,T24RT?

DIOOD2322>>>

TRAP

($8suB

JSET COMMAND PACKET UP CLEAR
JSET COMMAND PACKET
sSET UP OTHER COMMAND PACKET

:t'tt't.tt'ttttttttt"t'ttttt't'.ttt'tttfi.t.t'tttttt!t'tttt'tttttt'

EISSUE CONTROLLER *'SOFT'' INITIALIZE - CARRY BIT CLEAR IF ERROR
Ettt'ttt.ttttttttt'tttt"tt'ttttttttt.'tt.'.ttttttt..ttt'tt't.'.'tt
004737

016064

005237
0100061

002212

103407

3520 042612
0462612
042614
062616
042620
3521 042622
3522 042622
3523 042630

104455
000735
003650
012124

013737
012704

JSR

PC,SOFINIT

INC
MOV
ERRDF

FATFLG
RO,R1
ERRNO,SFIERR,SFIMSG

B(CS

208

;D0 INITIALIZE ON CONTROLLER

JBR IF INIT WAS 0K

;BUMP COUNT
;CONTENTS OF TSSR REGISTER
JFATAL ERROR TSSR WAS NOT 0Ok
TRAP

002172
043570

043610

208

CSERDF

.WORD

477

.WORD

SFIM3G

.WORD

Moy

MOV

UNITN, T24DSW

#TO4PACKET RS

:SET UP DRIVE NUMBER

SFIERR

s SUBROUTINE NEEDS PACKET ADDRESS

:ttt'tl.'tt.tt'tttttttttttttttttttitttttttttttt%'ttttt't'ttt.t"ttt

;HRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
35
3531 042634
3532 042640
3533 042642
3537 042646
3538 042650
0462650

Ettttttttt'ttttttt'ttttt'tQ'ttttttt't!tttQtt'tlt't!'tt't"tttt't'tt
004737
103407
005237
010001

010752

104406

PC,WRTCHR

sISSUE WRITE CHARACTERISTICS

INC
MOV

FATFLG
RO,R1

sBUMP COUNT
;SAVE CONTENTS OF

8cCs

002212

ERRHRD

104456
000736
005054

012124

JSR

248

ERRNO,WRTMSG,SFIMSG

sBR, IF COMMAND [SSUED 0K
TSSR

JWRITE CHARACTERISTISC FAILED
TRAP

.WORD

248:

CKLOOP

;LOOP JF SELECTED

CSERHRD

478

.WORD
.WORD

WRTMSG
SFIMSG

TRAP

(sCLP

:'.'.'..""....tQt.."""".'t.""t'l..t...'."t".'t""t"t"?

TSV? - HARDWARE TESTS 1-8

TEST

BASIC REAC DATA

MACRO M1113

25-MAY=-82 09:19

(FORWARD AND REVCRSE)

H 16
PAGE111=1

SEQ 0202

3542

35(,5
3546
3547 042662
3548 042666

:-tt't'tttltttttttt'ttt't'ttltttttlt.tt.tttt.ttt'-o’...t"t"'t"'tt
s
JSR
PC.REWIND
;CALL TAPE REWIND COMMAND
JSR
PC,CHKTSSR
:SEE HOW TSSR 1S

ggzz

;1SSUE REWIND COMMAND TO SELECTED TAPE DRIVE

3549 042672

3550 042674
3551 042676
3555 042702
042702
042704
042706
042710

3556 042712
042712
3557 042714
gggg 042720

004737
004737

103407

010001
005237

011104
016426

B(CS

MOV
INC
EPRHRD

002212

104456
000737
045046
012136

104406
012703
013737

308 :
000400
003114

3560

CKLOOP
MOV
MOV

043712

308

RO,R1
FATFLG
ERRNO,T24RWN,PKTSSR

‘BR, IF NO PROBLETM

SSAVE TSSR
SBUMP COUNT
.
*REWIND NOT ACCEPTED

:LOOP IF SELECTED
#256. ,R3
FREE,T24RB

TAP
CSERMRD
WORD
479
WORD
T24RWN
.WORD- PKTSSR

TRAP
;RECORD SIZE
:STARTING WRITE BUFFER ADDRESS

.'tttttt't'tt.t"t.t.tlt"'tt'ttttttQt't.ttttt.'tt't.t"tt't."'t"'

3561

gggg

;READ REVERSE DATA,ACK COMMAND

356‘

;tt""t'ttt.tt.t.'tl'.tttt"ttt..QtQQtt."t.'ttttt't.t'.tttttt'ttt

3565
3566 042726
3567 042734

3568 042740
3569 042740
3570 042744
3571 042750

012704

100401
043710

010337
010465
004737

043716
000000
016340

3573 042760

012702

100206

3572 042754

3574
3825
3576
3580

cErLP?
.
-,\5

012737

016501

942764
062?66
04277C
042774
042776
042776
043000
043002

020102
001406
005237

3582 0430046

104406

3581 043004

043710

65$:

000002

;READ REVERSE DATA,ACK COMMAND

MOV
MOV
JSR

R3,T24S2
R4, TSDB(RS)
PC,WAITF

;SET UP RECORD SIZE IN PACKET
:ISSUE COMMAND
:WAIT FOR SSR TO SET

MOV

#SSR!SC!'BIT1'BIT2.R2

CMP
BEQ
INC
ERRHRD

75%:

3583

#100401,T24PK3

MOV

002212

104456
000740
044511
012136

MoV

#T24PK3,RG

TSSR(RS),R1

R1,R2
758
FATFLG
ERRNO, T24WDE ,PKTSSR

CKLOOP

;SET UP R4 WITH PACKET ADDRESS

:GET TSSR CONTENTS
:SET UP EXPECTED

;ARE THEY, EQUAL
:BR, IF OK .
:BUMP COUNT
;TSSR INCORRECT AFTER READ DATA
TRAP
CSERHRD
.WORD
480
WORD
T24WDE
.WORD
PKTSSR

:LOOP IF SELECTED

TRAP

:tt"ttt'ttttt.tttttt.tt'tttt.tt'tt'.ttttt.filtttt't..'tttlt.tttt'tfl

3584

gggg

JREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XST9)

3587
3588
3589 043006
3590 043012
3591 043014
3592 043020

:’t'tttttt'tt'ttttttttttttt"ttttt.tt'tttt't't.t‘t!tt.ttttl'ttttttt.

013701
010102
052702
020102

043620

3594 043024

005237

002272

3593 043022

001406

002000

MOV
MOV
BIS
CMP

T2LBFR+6,R1
R1,R2
#8IT10,R2
R1,R2

:GET
;SET
sSET
:ARE

INC

FATFLG

<BUMP COUNT

BEQ

180$

MESSAGE BUFFER
UP EXPECTED
THE NEF BIT IN EXPECTED
THEY EQUAL

:BR, IF EQUAL (ALL IS WELL)

CSCLPY

—

TSV? ~ HARDWARE TESTS 1-8
MACRO M1113 25-MAY-82 09:19
TEST 4&: BASIC READ DATA (FORWARD AND REVERSE)

3598 043030
043030
043032
043034
063036
3599 043040
043040
3600 043042
043042
3601
3602
3603
3604

043042
043044
043052
043054
043060

ERRHRD

104456
000741

043740
015564

1808$:

104406
104403

ERRNO, T24NEF ,EXPREC

002212

004737

017272

000017
999%:

St. 0203
sTHE RLL BIT WAS NOT SET [N XSTO
TRAP

CMP
8LO
JSR

2255333353>>>

FAT;LG.O1S.
999
PC.,CKDROP

END

481
T24NEF

TRAP

cscLP1

TRAP

CSESUB

SUBTEST

L10067:

TO DROP

EXPREC

>>>3>>>>>>>>

;1S ERROR COUNT AT 2§
;BR, [F LESS THAN 2§
JTRY

CSERMRD

.WORD
.WORD
.WORD

CKLOOP
ENDSUB

023727
103402

116
PAGE 111-2

THE UNIT

TSV? = HARDWARE TESTS 1-8

TEST

MACRO M1113

25-MAY=-82 09:19

&: BASIC READ DATA (FORWARD AND REVERSE)

J 16

PAGE

112

SEQ 0204

3606
3607

ot
:

3610
3611

JVERIFIES THAT A READ REVERSE COMMAND ISSUED WHILE THE
sTAPE 1S POSITIONED BEFORE THE FIRST RECORD ON TAPt

gggg

JTEST &, SUBTEST 14

%g}%

2 (BUT NOT AT BOT) RESULTS IN TAPE STATUS ALERT.

3614
3615
3616
3617
3618 043060
043060
043080
3619 043062
3620 043066
gg%; 043072

:
:
‘BGNSUB

104402
004737
004737
004737

046404
046250
046342

JSR
JSR
JSR

PC,T24RT3
PC,T24REST
PC,T24RT?

J25353>>>>>>> BEGIN SUBTEST >>>>>>>>>>>
T4.14:
TRAP
($B8SL8
JSET COMMAND PACKET UP CLEAR
JSET COMMAND PACKET
sSET UP OTHER COMMAND PACKET

3623

;tttttt't'tttt'tt'tttt'fi'tt'tt...tt.tttttQtt't't'.ttt.t'...fi.'.'.t.

3624
%g%g

:
;s ISSUE CONTROLLER ‘'SOFT'' INITIALIZE = CARRY BIT CLEAR If ERROR

3627
3628
3629 043076
3630 43102
3631 043106
3635 043110

Etttttt'ttt.'tt'tttt'tt'ttt!tt'ltttt..'ttt!.'ttt"t.t'tt'tl".t.'.t

3636 043112
043112
043114
043116
043120
3637 043122
3638 043122
ggzg 043130

004737
103407
005237
010001

016064
002212

104455
000742
003650
012124
013737
012704

002172
043570

043610

208:

JSR
BCS
INC
MOV
ERRDF

PC,SOFINIT
20$
FATFLG
RO,R1
ERRNO,SFIERR,SFIMSG

;DO INITIALIZE ON CONTROLLER
JBR IF INIT WAS 0K
;BUMP COUNT
JCONTENTS OF TSSR REGISTER
JFATAL ERROR TSSR WAS NOT 0K
TRAP
.WORD
.WORD
.WORD

MOV
MOV

UNITN,T24DSW
#T24PACKET R4

;SET UP DRIVE NUMBER
sSUBROUTINE NEEDS PACKET ADDRESS

3641

;ttttt.'t'tttttttttt't't"tQttt'tt.ttitt't.'tttlt'tt.'t..t.'l.'.'t.

3642
;gzz

:
JWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

3645
3646
3647 0431346
3648 043140

;"tttttt'tttttttt.tttt't'tQt.i'.t!tttQtt.tttlt.'t.t.tttt.tt't.ttl'

3649 043142
3653 043146
3654 043150
043150
043152
043154
043156
3655 043160
3656 043160

3657

004737
103407
005237
010001
104456
000743
005054
012124

104406

010752

JSR
8CSs
INC
MOV
ERRHRD

002212

248:

(KLOOP

PC,WRTCHR
248
FATFLG
RO,R1
ERRNO,WRTMSG,SFIMSG

sISSUE WRITE,CHARACTERISTICS
;sBR, IF COMMAND [SSUED OK
;BUMP COUNT
vey
sSAVE CONTENTS OF TSSR
JWRITE CHARACTERISTISC FAILED
TRAP
LWORD
.WORD
.WORD
;LOOP IF SELECTED
TRAP

:'t....'.'..'t.'.".."t"'".ltfifi'"'..'t'.‘ttt""'ttt'.'."Q".Q

CSERDF
482
SFIERR
SFIMSG

CSERHRD
483
WRIMSG
SFIMSG

CscLP

TSV? - HARDWARE TESTS 1-8
TEST

MACRO M1113

25-MAY-82 09:19

&: BASIC READ DATA (FORWARD AND REVERSE)

3658
3659
3660

SEQ 0205

SISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
.

MAALAA AL

3663 043162
3664 063166
3665 043172
3666 043174
3667 043176
3671 043202
063202
043204
043206
043210
3672 043212
0643212
3673 043214
3674 043220

K 16
112-1
PAG EN

0064737
004737
103407
010001
005237

11104
16426

104406

JSR

RO,R1

ERRHRD

222222222221

sCALL TAPE REWIND COMMAND
¢SEE HOW TSSR IS
;BR, IF NO PROBLEM
sSAVE TSSR
:BUMP COUNT
sREWIND NOT ACCEPTED

30%

BCS

MOV
INC

002212

PC,REWIND
PC,CHKTSSR

JSR

104456
000744
045046
012136

012703
013737

FATFLG

ERRNO,T24RWN,PKTSSR

TRAP

30s8:
000400
003114

(KLOOP
#256.,R3

MOV

043712

MOV

sLOOP IF SELECTED
sRECORD SIZE

FREE,T24RB

CSERHRD

484
T24RWN

.WCRD
.WORD
-WORD

PKTSSR

TRAP

cscLPl

;STARTING WRITE BUFFER ADDRESS

AR RN AN AR AR AN RN AR NI AR AN R AN R RN AR AN RN RNR NN AN NN RANNIAAN

ARG

‘WRITE DATA,ACK,CVC=1 COMMAND
]

3682 043226
3683 043234

012737
012704

010337
010465
004737
016501
012702
020102
001406
005237

140005

043710

EARA

043710

65$:

043716
000000
016340
000002
000200

012703
013737

002212

22222222221

Mov

#140005,7T24PK3
#T24PK3,R4

sWRITE DATA,ACK,CVC=1 COMMAND

MOV
MOV

R3,T24S2
R&4.TSDB(RS)

sSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND

MOV

AR AR AR RN NI AN

sSET UP R4 WITH PACKET ADDRESS

PC.WAITF

sWAIT FOR SSR TO SET

TSSR(RS)
,R1
#SSR,R2

sGET TSSR CONTENTS
sSET UP EXPECTED

R1,R2
75$

sARE THEY EQUAL

FATFLG
ERRNO,WRTERR,PKTSSR

CKLOOP
MOV

043712

ALt

MOV

ERRHRD

758%:
000400
003114

CMP
8EQ
INC

000745
005111
012136
3698 043306
3699 043312

JSR
MOV
MOV

104456

104406

:BR, IF OK
:BUMP COUNT

¢ TSSR INCORRECT AFTER READ DATA
TRAP
.WORD
.WORD
.WORD

.LOOP IF SELECTED
#256.,R3

FREE,T24RB
AR AR R RN E RN RN A RN

sRECORD SIZE

TRAP

sSTARTING READ BUFFER ADDRESS

NN AN AR RN NN RN NN

A RN AR

ANARARANRRNNY

‘READ REVERSE DATA,ACK COMMAND
[

AR RN AN AR AN

3707 0643320
3708 043326
3709 043332
3710 043336

100401

043710
043716
000000

043710

1658:

MOV

mov

MOV

NN N RN R R

R RN RN R A RN RN AR AN R ANARAN RN N RN AN RO

#100401,724PK3
#T24PK3,
R4
R3,724S7
R4, TSDB(RS)

NN ARREY

sREAD REVERSE DATA,ACK COMMAND
sSET UP R4 WITH PACKET ADDRESS
sSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND

CSERHRD
485

WRTERR
PKTSSR

cscLP

TSV? - HARDWARE TESTS 1-8

TEST

BASIC READ DATA

3711
3712
3713
3714
3715
3716
3720

043342
063346
043352
043356
043360
043362
043366
043366
043370
043372
063374
3721 043376
0643376
3722 043400
3723 043404
3724
3725
3726
3727
3728
3729
3730
3731 043412
3732 043420
3733 043424
3734 043430
3735 043434
3736 043440
3737 043444
3738 043450
3739 043452
3740 043454
3744 043460
043460
043462
043464
043466
3745 043470
043470
3746 043472
3747 043476
3748 043500
3749 043504
3750 043506
3751 043510
3755 043514
043514
043516
043520
043522
3756 043524
043524
3757 043526
063526
043526
3758 043530

3759 043536

004737

016501

012702

020102
001406
005237

MACRO M1113

(FORWARD AND REVERSE)

016340

104406

L 16
PAGE 112-2

JSR

PC,WAITF

CMP
BEQ

R1.R3
1708

000002
000200

MOV
MOV

002212

INC
ERRHRD

104456
000746
066114
012136

012703
013737

25-MAY-82 09:19

SEQ 0206

JWAIT FOR SSR TO SET
sGET TSSR CONTENTS
SET UP EXPECTED

;ARE THEY EQUAL
:BR, IF 0K

FATFLG

ERRNO, T24TRL ,PKTSSR

JBUMP COUNT
JTSSR INCORRECT AFTER READ DATA
TRAP

LWORD
.WORD

1708:

000400
003114

(KLOOP
MOV
MOV

043712
AN AR AN

;LOOP IF SELECTED
#256. ,R3
FREE ,T24RB

JRECORD SIZE

CSERHRD

486
T24TRL

.WORD

PKTSSR

TRAP

(scLpPt

¢STARTING READ BUFFER ADDRESS

N AN EAN AN AN AN RN AR ENRARNANANAANARAN AR

AANA

AN RNRS

*READ REVERSE DATA,ACK COMMAND
0

SRR AR R

012737
012704
010337
010465
004737
016501

012702
020102
001406
005237

100401

043710
043716
000000
016340
000002
100204

043710

195$:

BEQ
INC
ERRHRD

002212

000747
046114
012136
104406

200$:

043626
000001

BIS
CMP
8tQ
INC
ERRHRD

002212

000750
044012
015564

N RN A NN

E RN A NARN AR NAANRAANR AN NANANAARNNRANNRRAANAC
RS

#100401,724PK3
#T24PK3
R4
R3,724S2
R4, TSDB(RS)

sREAD REVERSE DATA,ACK COMMAND
JSET UP R4 WITH PACKET ADDRESS
sSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND

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

JGET TSSR CONTENTS
sSET UP EXPECTED
sARE THEY EQUAL
sBR, IF OK
:BUMP COUNT

PC,WAITF

2008

FATFLG

ERRNO, T24TRL ,PKTSSR

sWAIT FOR SSR TO SET

;TSSR INCORRECT AFTER READ DATA
TRAP
CSERHRD

;LOOP ]F SELECTED

{KLOOP
MOV
MOV

104456

T24BFR+14
R
R’oRz

#8170,R2

R1,R2

2108

FATFLG

ERRNO, T24LOR,EXPREC

.WORD
.WORD
.WORD

487
T24TRL
PKTSSR

TRAP

cscLe

JGET MESSAGE BUFFER (XST3)
sSET UP EXPECTED
sSET THE RIB BIT IN EXPECTED
cARE THEY EQUAL
cBR, IF EQUAL (ALL IS WELL)
;BUMP COUNT

csTHE RIB BIT WAS NOT SET

IN XSTO
TRAP
(SERHRD

.WORD

488

.WORD

EXPREC

TRAP

cscLP

TRAP

CSESLB

.WORD

2108:

104406

104403
023727
103402

MOV
MOV
MOV
MOV

JSR
MOV
MOV
CMP

104456

013701
010102
052702
020102
001406
005237

AR AR RN

(KLOOP
ENDSUB

002212

000017

CMP
8LO0

$O35355335>>> END

SUBTEST >>>>>3>>>>>>>

L10070:

FATFLG,#15.
999%

T24LOR

¢ 1S TRROR COUNT AT 25
:BR, IF LESS THAN ¢5

TSV7 - HARDWARE TESTS 1-8
TEST

4&: BASIC READ DATA

25-MAY-82 09:19

(FORWARD AND REVERSE)

60 043540
3761 043544
3762

004737

017272

3765 043544
3766 043550
2767 043552
3768 )43556
3769 v43556
043556
043560

004737
103002
000137

016546

104432
002654

MACRO M1113

034362

999%:

163%:

PAGE 112-3

SEQ 0207

JSR

PC.CKDROP

JSR
BCC
JMP

PC,TSTLOOP

163

T24L00P

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

EXIT

TST

sALL DONE THIS TEST

+TRY

TO DROP THE UNIT

TRAP

.WORD

CSEXIT

L10052-.

TSV? - HARDWARE TESTS 1-8

TEST

BASIC READ DATA

MACRO M1113

25-MAY-82 09:19

PAGE 113

(FORWARD AND REVERSE)

SEQ 0208

:LOCAL STORAGE FOR THIS TEST
3
3777 043570
3778 043570
3779 0463572
3780 043574
3781 043576
3782 043600
3783 043600
3784 043602
3785 043604

5786 043606
3787 043610

3788 043612
3789
3790
3791
3793
3795 043700
3796 043700
3797 043702
3798 043704
3799 043706
3 800
3804 043710
3805 043710
3806 043712
3807 043712
3808 043714
3809 043716

813
3814 043720
3815 043720
3816 043721
3817 043722
3818 043724

043570
100204
063600
000000
000012

063612
000000
000024
000000
000000

.=<. +10>8177770

T24LPACKET

WORD

.WORD
.WORD
WORD

.WORD
.WORD
.WORD
.WORD
.WORD
.8LKW

T24BFR
0
20.
0
0
25.

T24DATA:

T24DSW:
T24BFR:

100204
T24DATA

10.

sSTARTING VALUE OF BLOCK SIZE
sCHARACTERISTICS DATA BLOCK
sADDRESS OF MESSAGE BUFFER

;LENGTH OF MESSAGE BUFFER

;DRIVE SELECTION BITS 2-0
sMESSAGE BUFFER

EURITE SUBSYSTEM MEMORY COMMAND PACKET
043700
100206
043720
000000
000006

100205

003114
000000
000000

010

200
000000
000000

[

T24PK2:

T24PK3:

T24RB:
T24WB:
T24S2:

T24BF2:
1248S0:
T24BS1:
T24S2:
T24S3:

.=<,.10>8177770
.WORD
.WORD
+WCRD
.WORD

100206
T24BF2
0
6.

sWRITE SUB SYS MEM COMMAND, ]E AND ACK

.WORD

100205

sREAD COMMAND, IE AND ACK

.WORD
.WORD
.WORD
.EVEN

FREE

sADDRESS OF WRITE BUFFER

100005
100405
102005
172777
000000

T24RN:
T24WDR:
T24CON:

.WORD

T24DLY:

.WORD
.WORD
.WORD
.WORD
.WORD

SELECT BLOCK DATA

2SIZE OF DATA PACKET

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

.BYTE
.BYTE
.WORD

.EVEN

sADDRESS OF

:SIZE OF BUFFER (EXTENT)

;TAPE MOTION PACKET

3824 043726
3825 043730
3826 043732
3827 043734
3828 043736

s COMMAND PACKET FOR TEST
sWRITE CHARACTERISTICS COMMAND, WITH IE, ACK
sADDRESS OF CHARACTERISTICS BLOCK

COMMAND VALUES

100005

sREAD DATA (NEXT)
cREAD DATA RETRY
;WRITE CONTINOUS

sEND OF DATA
sDELAY STORAGE AREA

TSV7 - HARDWARE TESTS 1-8
TEST

BASIC READ DATA

MACRO M1113

(FORWARD AND REVERSE)

3832
3833
3834
3837 043740
3838 044012
3839 044062
3840 044151
3841 044235
3842 044312
3843 044376

3844 044457

3845 044511
3846 044563
3847 044630
3848 044716
3849 044773
3850 045046
3851 045115
3852 045170
3853 045235
3854 045310
3855 045376
3856 045447
3857 045522

3858 045573

3859 045662
3840 045744
3861 046026
3862 046114
3863 046202
3864

25-MAY-82 09:19

1
0
PAGE 114

SEQ 0209

i+
+LOCAL TEXT MESSAGES FOR TEST
116
122
124
124
124
m
11

105
111
123
123
123
154
154

106
102
123
123
123
154
156

124
124
103
124

123
141
141
105
123
145
101
123
162
23
123
120
123

123
160
164
101
123
167
115
123
151
123
123
103
102

12¢
122
122
122
*02

145
145
145
145
141

141
1641
163
1641
163

122
124
124
104
122
124
122
122
124
104

127

105

122

101

111

3866

T24NEF:
T24LOR:
T24WDG:
T24NXM:
T24WDF:
T24ILA:
T264L00:

.ASCIZ
.ASCIZ
.ASCIZ
ASCIZ
,ASCIZ
.ASCIZ
.ASCIZ

T24WDD:
T24WDC:
T24v(K:
T24BA:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
,ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

T24SSR:
T24WDE:
T24B0T:
T24DTA:
T24EOT:
T24TM:
T24RWN:
T24RNC:
T24AM3:
T240FL:

.ASCIZ

T24WSS: .ASCIZ

T24LON: .ASCIZ
T24LOP: .ASCIZ
T24PBP: .ASCIZ
T24TRL: .ASCIZ
TST241D:
.EVEN

°'NEF Not Set After NON-EXECUTABLE FUNCTION'
°'RIB Not Set After READ REVERSE Into BOT'
)
°'TSSR Not Correct After lllegal Buffer Address Bits Set'
'TSSR Not Correct After NXM Memory Address In Packet'
'TSSR Not Correct After Illegal Mode Bits Set’
‘Illegal Address Bits, Failed To Set ILA Bit In XSTO'
‘'Illegal Mode Bits, Failed To Set ILC Bit In XSTO'

°'READ COMMAND Not Accepted’
°‘TSSR Not Correct After WRITE DATA Command'
‘Tape Not At BOT After REWIND Command’
‘Data Written To Tape Not Equal To Data Read From Tape'
‘'READ DATA OVER EOT GAVE NO TAPE STATUS ALERT'
'TSSR Not Correct After READ COMMAND Reject’
‘Rewind (POSITION) Command Not Accepted
'RAM Error, Correct Data Pattern Not In Ram'
‘TSSR Init. Failed After READ COMMAND'
‘'Drive 7 Select Failed To Set 'OFL'* In TSSR'
)

‘TSSR Not
'TSSR Not
°'CVC Set,
'TSBA Not

Correct
Correct
Didn''t
Correct

After
After
Reset
After

READ DATA Command, SWB Bit Set’
READ DATA Command’
V(K In Message Buffer®
READ DATA Command’

‘'WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)'

‘Reading Long Record Failed To Set RLL Bit In XSTQ'
'Reading Long Record Failed To Set RLS Bit In XSTO'
‘Residual Byte Count Incorrect After Short Record Read'
‘Reading Long Record Failed To Give Tape Status Alert’
.ASCIZ
'Basic Read Data (Forward and Reverse)'

)

3867

sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES

3870
3871
3872 046250
3873 046250
3874 046254
3875 046260
3876 046264
3877 046270
3878 046272
3879 046276
3880 046302
3881 046304
3882 046310
3883 046312
3884 046316

012701
012721
012721
005021
012721
012721
005021
012721
005021
012711
012702

3886 046330

005742

%ggg

3885 046322

3887 046332
3888 046336

¢WRITE SUBSYSTEM MEMORY COMMAND

T24REST:

012762

022702
001371

043570
100004
043600

000012
0436.2

000024
000000
000030

177777

000000

043612

64S$:

SAVREG
MOV
Mov
MoV
CLR
MGV
MOV
CIR
ROV
CLR
MoV
MOV

#T24LPACKET R
#100004, (R1) +
#T24DATA, (R1)+
(R1)+
#10.,(R1)+
#T24BFR,(R1)+
(R1)+
#20.,(R1)+
(R1)+
#0,(R1)
#24. ,R2

TST

-(R2)

MOV

CMP
BNE

#177777 ,T24BFR(R2)

#0,R2
643

cSAVE THE REGISTERS
¢START OF THE PACKET
JWRITE SUBSYSTEM MEM. WITH ACK,
sADDRESS OF CHARAISTICS DATA BLOCK
sEXTENDED ADDRESS
;SIZE OF DATA BLOCK IN BYTES
sADDRESS OF MESSAGE BUFFER

sLENGTH OF MESSAGE BUFFER
sSELECT DRIVE ZERO
sNUMBER OF LOCATIONS TO BE CLEARED

sALL ONES TO MESSAGE BUFFER

sNEXT LOCATION
sCKECK FOR END OF LOOP
:KEEP GOING UNTIL DONE

TSV7 =~ HARDWARE TESTS 1-8
MACRO M1113 25-MAY-82 09:19
TEST
&: BASIC READ DATA (FORWARD AND REVERSE)

3887 046340

3890
3891
3892 046342
3893 046342
3894 046346
3895 046352
3896 046356
3897 046362
3898 046364
3899 046370
3900 046372
3901 046376
3902 046400
3903 046402
3904 046404
3905 046406
3906 046410
3907 046414
3908 046420
3909 046424
3910 046426
3911 046432
3912 046434
046434
046434

060207

RTS

T24RT2:
100206
043720

MoV
MOV
MoV

000006

MOV

CLR

CLR
MOV

043720

CLR
CLR

T24RT3:

043710
000000
000000
000000

104401

SAVREG

043700

1
E
PAGE 114~1

#T124PK2
,R1
#100206,(R1)+
#T24BF2,(R1)+
(R1)+
#6.,(R1)+
(R1)+
#T24BF2
,R1
(R1)+
(R1)

RTS

SAVREG
MOV
MOV
MOV

#T24PK3,R1
#0,(R1)+
#0,(R1)+

CLR

MOV
RTS
ENDTST

(R1)+
#0,(R1)

SEQ 0210
sRETURN

sSAVE THE REGISTERS
¢START OF THE PACKET
;WRITE SUBSYSTEM MEM. WITH ACK, IE
;ADDRESS OF DATA BLOCK
sEXTENDED ADDRESS
;SIZE OF DATA BLOCK IN BYTES
;POINT TO DATA SEL AREA
JRETURN

:SAVE THE REGISTERS
sSTART OF THE PACKET

¢CLEAR AREA OUT
sADDRESS OF DATA BLOCK

sEXTENDED ADDRESS
:SIZE OF DATA BLOCK IN BYTES

JRETURN

L10052:

TRAP

CSETST

TSV7 =~ HARDWARE TESTS 1-8

TEST

SPACE RECORDS

MACRO M1113

3914
3915
3916
3917
3918
3919

25-MAY-82 09:19
.SBTTL

TEST

F
1
PAGE 115

SEQ 0211

5: SPACE RECORDS

sTHIS TEST VERIFIES THAT THE SPACE RECORDS FORWARD AND SPACE

;RECORDS REVERSE POSITION COMMANDS OPERATE PROPERLY WHEN SPACING
sOVER NORMAL DATA RECORDS. OPERATION WHEN SPACING OVER TAPE MARKS
:1S VPRIFIED IN A SUBSEQUENT TEST. THE BASIC WRITE DATA TEST
sSHOULD HAVE BEEN RUN SUCCESSFULLY FOR THIS TEST TO PRODUCE MEANINGFUL
sRESULTS. 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 & BYTES OF EACH
sRECORD INDICATE THAT RECORD'S RELATIVE POSITION ON TAPE. AFTER
sEACH SPACING OPERATION, THE TAPE POSITION IS VERIFIED BY READING
sTHE NEXT OR PREVIOUS RECORD AND COMPARING THE POSITION DATA WITH
+THE EXPF"TED RESULT.

046436
046436
046436
046444
046450
046454
046460

LR
TR TN )

“THE TEST CONSISTS OF THE FOLLOWING 8 SUBTESTS

BGNTST

012737
004737
012700
004737
012737

006446
0173664
055150
016600

000005

002170

MOV
JSR
MOV
JSR
MoV

002206

#EPRT2 ,EPRTSW
PC,KTOFF
#TST2510,R0
PC,TSTSETUP
#5,L00PCNT

MR 4

; SECONDARY ERROR MESSAGE
sDON'T NEED LOTS OF MEMORY
sASCII MESSAGE TO IDENTIFY TEST
;D0 INITIAL TEST SETUP
;PERFORM S ITERATIONS

;TEST S, SUBTEST 1

:VERIFIES THAT A SPACE RECORDS FORWARD COMMAND WITH

;THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS REJECTED IF
sTHE VOLUME CHECK (VCK) FLAG IS SET.

046466
046466
046466
046466
046470
046474
046500

046504
046510

T25L00P:
104402

004737
005037
004737
004737
012737

055166
054000
055260
055322
176750

B86NSUB

715.1:

TRAP

JSR

PC,T25REST

;SET COMMAND PACKET

JSR
JSR

PC,T2SRT2
PC.T25RT3

$SET UP OTHER COMMAND PACKET
SSET UP OTHER COMMAND PACKET

CLR

MOV

054002

JOOIDIDX555>> BEG§N1SUBTESI DIDDIDIDD3>>

T25CNT

#65000.,T250LY

:CLEAR THE RECORD COUNTER AREA

$SET UP LOOP COUNTER

SERARERRRRAN
AN RN AN A RN AN NARNANAANRNINRIARN
ANAAN
RNE

' RAANNNANRRARANRRR
NN

;ISSUE CONTROLLER ''SOFT'* INITIALIZE - CARRY BIT CLEAR IF ERROR
[

MAARARASAAAS

AR a2
T
IR

($BSUB

TSV7 - HARDWARE TESTS 1-8

TEST

S: SPACE RECORDS

3972 046516
3973 046522
3974 046524
0646524
046530
046532
066536
046540
046544
046546
0646552
3975 046554
3976 046560
3977 046562
3981 046566
3982 046572
046572
046574
046576
046600
3983 046602
3984 046602
3985 046610

004737
103427

016064

054002

v05237
016501

002212
000002

5%:

000250

PAGE

115-1

JSR
8CS
DELAY

PC,SOFINIT

108

200 INITIALIZE ON CONTROLLER

sBR IF

250

INIT WAS CK

sDELAY IF REQUIRED

002116
177772

DEC
BNE
INC
MOV
ERRDF

000765
003650
012124
002172
053630

053650

:
108

125DLY
5%

FATFLG

TSSR(RS)
,R1
ERRNO,SFIERR,SFIMSG

UNITN,T25DSW

MOV
MOV

g?SO,(PC)*

MOV
. WORD
MOV
.WORD

tSDLY,(PC)#
=6(PC)
=4

DEC
BNE
DEC
BNE

177756

104455

013737
012704

25-MAY-82 09:19

SEQ 0212

012727
000000
013727
000000
005367
001375
005367
001367
005337

001356

MACRO M1113

#T25PACKET,Ré

sDEC DELAY COUNTER
;BR, IF LOOP IS REQUIRED
sBUMP COUNT
cCONTENTS OF TSSR REGISTER

cFATAL

ERROR

TSSR WAS NOT OK

=22(PC)
.=20

CSERDF
501
SFIERR
SFIMSG

TRAP
.WORD
.WORD
-WORD

sSET UP DRIVE NUMBER
sSUBROUTINE NEEDS PACKET ADDRESS

:tfitt"tttttttt'ttttfi."ttt"l'ttttfi'.tttt't..fittttt"ttt'ttt'tt't.

:WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
[4

SRR

3992
3993
3994
3995
3999

0¢4614
546620
046622
046626

004737

010752

005237
010001

002212

046630
066632
046634
046636

104456
000766
005054
01212¢

4000 046630

4001
4002
4003
4004
4005
4006
4007
4008 0466640
4009
4010
4011
4012
4016

046640

046642
046646
046650
046652
046656

046656
046660
046662
046664

103407

RN AR

RN RN AN

JSR
8(Cs
INC
MOV

ERRHRD

RN AN RN

AN NN AN RN RN NN

PC,WRTCHR

15%

FATFLG

ERRNO,WRTMSG,
SF IMSG

NAN SN

AR RN

A AR AN

AR A OO

NR S

s ISSUE WRITE CHARACTERISTICS
sBR, IF COMMAND [SSUED OK
;BUMP COUNT
sSAVE CONTENTS OF TSSR
SWRITE CHARACTERISTISC FAILED

TRAP
.WORD
.WORD

VAR AR AN AR AN AR AN AR

CSERHRD
502

WRTMSG

SFIMSG

TR ORI NN NN N AN RN RN RN R AR AR ANNNNANN AR NN

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
[

AR AR AN

104406

004737
103407
010001
005237
104456

000767
054755
012136

158:

011104

002212

AR AN A RN RN AR

AN TN AR AR AR AR AN RN AR I RAARA NN AN RANN

AN RANRANERNS

ckLoop

JSR
BCS
MOV
INC

ERRHRD

PC,REWIND

308

RO,R1

FATFLG

ERRNO, T25RWN,PKTSSR

TRAP

CSCLPT

TRAP
-WORD

CSERHRD
503
T25RWN

sCALL TAPE REWIND COMMAND
sBR, IF NO PROBLEM
¢SAVE TSSR
sBUMP COUNT
sREWIND NOT ACCEPTED

.WORD
.WORD

PKTSSR

TSV7 = HARDWARE TESTS 1-8

TEST

SPACE RECORDS

4017 046666
‘018 066666

MACRO M1113

30%:

104406

25-MAY-82 09:19

PAGE 115-2

CKLOOP

SEQ 0213

;LOOP IF SELECTED

TRAP

‘019
4020

.'t"tttttt'ttttttt*tttt"ttttt*tttttit'.ttttttttttt'tttt.t.tt'ttttt
:

4023

:-ttttttttttttttttttttttttttt'tttttttttttittttttttflttttt!tt'tttttttt

2855

4024
4025
4026
4027
4028
4029
4030
4034

C$CLP1

*READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

046670
046674
046676
046702
046704
046706
046712

046712
046714
0646716
046720
4035 046722
046722
4036 046724
28§§ 046730

013701
010102
052702
020102
001406
005237

053660

MOV
MOV
BIS
CMP
BEQ
INC
ERRHRD

000002

002212

104456
000770
054145
015564
104406
012703
013737

408:
000400
003114

CKLOOP
MOV
MOV

053752

T25BFR+6,R1
R1,R2
#21T1,R2
R1,R2
408
FATFLG
ERRNO,T25BOT,EXPREC

;PICK UP XSTO
SSET UP EXPECTED
*SET BOT BIT IN EXPECTED
:DOES EXP = REC'D
*BR, IF EQUAL (OK)
*BUMP COUNT
JTAPE NOT AT BOT AFTER REWIND

;LOOP IF SELECTED
#256. ,R3
FREE,T25RB

TRAP
.WORD
.WORD
.WORD

CSERHRD
504
125807
EXPREC

TRAP

CS$CLP1

;RECORD SIZE
:STARTING WRITE BUFFER ADDRESS

‘039

.'ttttttttt!ttt*tt*tttttttttttttttfittttttttttfittttt.tttttttt..'ttttt

4040

;

40(.3

:'tttitttttttttttttittttttt'ittttttttttt&t*tt'ttttttitttttt'ttt.tttt

2825

4044
4045 046736
4046 046744
4047 046750
4048 046750
4049 046754
4050 046762
4051 046770

JWRITE DATA,ACK,CVC=1 COMMAND

012737
012704

140005
053750

4052 046774
4053 047000
4054 047004

010337
013777
062737
010465
004737
016501
012702

053756
054000
000001
000000
016340
000002
000200

4056 047012
4057 047014
4058 047020
4059 047022

001411
032701
001014
005237

4055 047010

4063 047026
047026
047030
047032
04703¢
4064 047036
047036
4065 047040
4066 067042
4067 047046

4068 047050

020102

000415

658
:

134132
054000

002212

#140005, T25PK3
#T25PK3 R

;WRITE DATA,ACK,CVC=1 COMMAND
SSET UP R4 WITH PACKE; ADDRESS

MOV
MOV
ADD
MOV
JSR
MOV
80!

R3,T25S2
T25CNT,aFREE
#1,T25CNT
R4 . TSDB(RS)
PC.WAITF
TSSR(RS) ,R1
435R,R2

;SET UP RECORD SIZE IN PACKET
:LOAD UP RECORD COUNTER IN WRT BUFFER
:GET READY FOR NEXT RECORD
+ISSUE COMMAND
*WAIT FOR SSR TO SET
:GET TSSR CONTENTS
*SET UP EXPECTED

BEQ
BIT
BNE
INC

75§
#BIT2.R1
1208
FATFLG

:BR, IF OK
:CHECK FOR TAPE STATUS ALERT
:BR, IF TSA IS SET (SUSPECT IS EOT)
*BLMP COUNT

ERRHRD

758:
001000

MOV
MOV

CMP

000004

104456
000771
005111
012136
104406
005203
022703
001340

053750

R1,R2

ERRNO,WRTERR,PKTSSR

CKLOOP
INC
CMP
BNE

B8R

*ARE THEY EQUAL

STSSR INCORRECT AFTER WRITE DATA

:LOOP IF SELECTED
R3
#512. .R3
65$

125$

TRAP
.WORD
-WORD
.WORD

CSERHRD
505
WRTERR
PKTSSR

TRAP

CSCLP1

;BUMP RECORD SIZE
*END OF RECORD YET
:BR, IF MORE RECORDS TO WRITE

*ENOUGH RECORDS

TSV7 - HARDWARE TESTS 1-8
TEST
S: SPACE RECORDS

MACRO M1113

4069 047052
4070
40N
4072
4073
4074
4075

6076
4077
4078
4079
4080
4081
4082
4086

047052
047056
047060
047064
047066
047070
047074
047074
047076
047100
047102
4087 047104

4088
4089
4090
4091
4092
4093
4094
4095
4096
4097
4098
4102

25-MAY-82 09:19

PAGE 115-3

SEQ 0214

1208:
AR

AR AR AR AN AR AN NN RN RN

N AN

A AN AN NN

NN RN R AN AN RN N RN

NANNANNARACRS

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
.

013701
010102
052702
020102
001406
005237

R AR AR N AN AR AN AN AT AN AN AN AN R AN

053660

Mov

T258FR+6
,R1

R1, R2

MOV

000001

8IS
CMP
BEQ
INC
ERRDF

002212

104455
000772
054301
015564

#81T0,R2
R1,R2
1258
FATFLG
ERRNO,T25NET,EXPREC

N I RINAANANNANANARCANAR
AN ARNNS

sQUICK CHECK FOR EOT SET
¢SET.UP EXPECTED
sSET _THE EOT BIT XSTO
:1S THE EOT BIT SET IN XSTO
;BR, IF SET (GOOD)
:BUMP COUNT
;DEVICE FATAL NOT EOT FOUND ETC.
TRAP
-WORD

.WORD
.WORD

125%:
MLAALASA

SRR

Al sl

CSERDF
506
T25NET

EXPREC

ITITISIY

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
[

047104
047110
047112
047114
047120
047120
047122
0467124
047126
047130
047130
047132
047140

004737
103407
010001

005237

011104

104406

AN AR AN N AR

002212

AN AN AN R RN AR RN RRARN RN RN RANRANANARA RN T NANNRNNNNSY

JSR

PC,REWIND

MOV
INC

RO,R1
FATFLG

BCS

1308

ERRHRD

104456
000773
054755
012136

012737
012704

AR A AR

ERRNO,T25RWN,PKTSSR

sCALL TAPE REWIND COMMAND
;BR, IF NO PROBLEM
s SAVE TSSR
sBUMP COUNT
sREWIND NOT ACCEPTED

CSERHRD
507
T25RWN

TRAP
.WORD

1308:

000007
053630

053650

+KLOOP

MOV

MOV
NN

AR AN AR AN

sLOOP IF SELECTED
#7.7250SW

#T2SPACKET,R4
AN AR AN AN

.WORD
.WORD

PKTSSR

TRAP

cscLPl

¢SET UP DRIVE NUMBER
s SUBROUTINE NEEDS PACKET ADDRESS

NN RN AN RN R NN NANRARANARARNRANRNI
AR AR NS Y

IWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
0

AR AR AN A AN RN AN AR AN AN

004737
103407
005237
010001

010752

L 047170

PC,WRTCHR

INC
MOV

FATFLG
RO,R1

ERRHRD

104456

000774
005054
012124

JSR

8CS

002212

140%:

RN RN

(KLOOP

R A RN AN RA R AN A NANANARN RN NN N RN RAANNRNRNAR

1408

ERRNO,WRTMSG,
SF IMSG

sISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED OK
:BUMP COUNT
sSAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED
TRAP

:SCOPE LOOP

.WORD
.WORD
.WORD

CSERHRD
508

WRTMSG
SFIMSG

TSV7 = HARDWARE TESTS 1-8

TEST

SPACE RECORDS

047170

6122 047172
6123 047176
6124
6125 047200
6126 047206
6127 047214
4128 047220
4129 047224
4130 047230
3 047232
6132 047234
6136 047240

047240
047242
047244
047246
4137 047250
047250
4138 047252
6139 047260

4140
6146
6142
4143

104406

002216

112737
112737
012704
010465

000200
000010
053740
000000
016426

103407

010001
005237

4147 047264
4148 047270
4149 047272
4153 047276
6154 047300
047300
047302
047304
047306
6155 047310
047310

047312
047316
047322
047324
047330
047330
047332
047334
047336
4164 047340
047340

6156
4157
4158
4159
4163

4165

4166

6167
4168
4169
4170
QN

#200,T258S1
#10,7258S0

SWRITE MISCELLANEOUS CONT/READ STATUS
sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH)

MOV
JSR

R4, TSDB(RS)
PC.CHKTSSR

#125PK2
R4

1508

RO,R1
FATFLG

ERRHRD

ERRNO, T25SSR,PKTSSR

CkLOOP

053650

#7,1250SW

MOV
AAAS

#TOSPACKET,
R4

AL AR

sWRITE SUBSYS MEM PACKET

s ISSUE COMMAND
sWAIT FOR SSR

:BR, IF NO ERROR
<ERROR, SAVE TSSR
;BUMP COUNT
;TSSR NOT CORRECT

ARTER WRT. MISCELLANEOUS

CSERHRD
509
T25SSR

TRAP

cLOOP IF SELECTED

MOV

.WORD
.WORD
.WORD

PKTSSR

TRAP

cscLP1

sSET UP DRIVE NUMBER
:SUBROUTINE NEEDS PACKET ADDRESS

ittt

22222222

WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

4144

6145
4146

MOVB
MOVB

MOV
INC

150%:

000007
053630

1608

sCHECK FOR EXTENDED FEATURES
sBR IF SWITCH IS ON

BCS

002212

CS$CLP1

TRAP

EXTFEA

MOV

000775
054004
012136
104406

PAGE 1154

TST

BNE

104456

012737
012704

25-MAY-82 09:19

SEQ 0215

005737
001044

004737

MACRO M1113

004737

103407
005237
010001

AR AN AR

010752

104456

104406

016501
032701
001006
005237

1608 :

104406

JSR

PC,WRTCHR

INC
MoV
ERRHRD

FATFLG
RO,R1
ERRNO,WRTMSG, SFIMSG

1608

CKLOOP

000002
000100

MOV
8IT
BNE
INC

002212

ERRDF

104455

000777
055024
012124

RN AN AN AR AN AR AN A AN RN RN AR I RANRN R NN

8(CS

002212

000776
005054
012124

ANNNRAANANRNRRY

sISSUE WRITE CHARACTERISTICS
sBR, IF COMMAND ISSUED OK

;BUMP COUNT
sSAVE CONTENTS OF TSSR

sWRITE CHARACTERISTISC FAILED
TRAP
.WORD

+SCOPE LOOP

TSSR(R5)
,R1
#0FL ,R1
1708
FATFLG

ERRNO,T2SOFL,SFIMSG

-WORD
.WORD

CKLOOP

P AN

AN AN

sLOOP IF SELECTED
A NN AN NN

RAP

CSERDF

.WORD

SFIMSG

TRAP

cscLPt

RN R AN RN AN NN AN AN RN R

R AR R ANANRARARNRNRNANRRY

$SPACE FORWARD COMMAND IN PLACE
4

SRR

AN NN AN

A AN RN RN

WRTMSG
SFIMSG

TRAP
CS$CLP
sGET TSSR CONTENTS
sCHECK FOR THE OFFLINE BIT SET
sBR, IF OFFLINE (GOOD)
:BUMP COUNT
;OFF LINE SHOULD HAVE BE?N SET (BAD)

.WORD
.WORD

1708:

CSERHRD
510

NN NN RN AR R AR R A S AN N A AN NN RN R R AN

AN NN NARRNY

511
T250FL

TSV7 = HARDWARE TESTS 1-8
TEST
S: SPACE RECORDS

4172
4173
4174
4175
4176
4177
4178
4179
4180
4181
4185

067342
067350
067356
067362
067366
0467372
047376
047402
047604
047606
047612

054212
012136

067422

104406

4187 047624
047424

047424

047426
047634
047436
047642

140010

000001

053750
000000
016340
000002

053750
053752

180$:

104403

023727
103402
004737

25-MAY-82 09:19
MOV
MOV
MOV
MOV

JSR

MOV
MOV

100306

CMP
8EQ
INC
ERRHRD

002212

104456
001000

047412
047414
047616
047420

4186 047422

4188
4189
4190
4191

012737
012737
012704
010465
004737
016501
012702
020192
001406
005237

MACRO M1113

K
1
PAGE 115-5

#140010,725PK3
#1,T25R8

#TS5PK3R4
,

R4, TSDB(RS)

SEQ 0216

sSPACE FORWARD COMMAND IN PLACE
sNUMBER OF RECORDS TO SPACE
;R4 = POINTER TO PACKET

: ISSUE COMMAND
¢WAIT FOR SSR TO SET
TSSR(RS)
,R1
¢GET TSSR CONTENTS
#SSR!SC!OFL'!BIT1!BIT2,R2
sSET UP EXPECTED
R1,R2
sARE THEY EQUAL
190%
sBR, IF OK ESP. FUNCTION REJECT
FAT LG
<BUMP COUNT
ERRNO, T25TM,PKTSSR
sTSSR INCORRECT AFTER TAPE MOTION CMD
PC.WAITF

TRAP

CSERHRD

.WORD

PKTSSR

TRAP

csCLP1

TRAP

($ESUB

WORD
.WORD

190%:

002212
017272

000017
9998:

CKLOOP

sLOOP IF SELECTED

ENDSUB

$O33535>55>5>

cmp
BLO
JSR

FATFLG,#15.
999%
PC.CKDROP

END

SUBTEST

L10072:

>>>>>5>3>>>>>>

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

cTRY

TO DROP

512
T25TM

THE UNIT

TSV7 = HARDWARE TESTS 1-8
TEST
S5: SPACE RECORDS

MACRO M1113

4193

4194
4195
4196
4197
4198
4199
4200
4201
4202
4203
4204 067442

047442
047642

4205 067644
4206 047450
4207 067454
4208
4209
4210
4211
4212
4213
4214
4215 047460
4216 067464
4217 067666
4221 067472

25-MAY-82 09:19

PAGE 116

SEQ 0217

:TEST 5, SUBTEST 2
:VERIFIES THAT A SPACE RECORDS REVERSE COMMAND W]TH

:THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS REJECTED
s THE VOLUME CKECK (VCK) FLAG IS SET.

BGNSUB

33333333333 BEG%NZSUBTEST 33333
I PP
15.2:

104402
004737
004737
004737

JSR
JSR
JSR
MAAASALRA

PC,T2SREST
PC,T2SRT3
PC,T25RT?

TRAP

($8suUB

;SET COMMAND PACKET
JSET UP OTHER COMMAND PACKET
JSEV UP OTHER COMMAND PACKET

22222232222

:ISSUE CONTROLLER ''SOFT'* INITIALIZE - CARRY BIT CLEAR [F ERROR
.

004737

016064

005237
010001

002212

103407

4222 047474
0467474
047476
047500
047502
4223 047504

012737

000097

4225 047512

012704

053630

104455
001001
003650
012124

AALARAS

AR AR

JSR

PC,SOFINIT

INC
MOV
ERRDF

FATFLG
RO,R1
ERRNO,SFIERR,SFIMSG

B(CS

2222222222

;DO INITIALIZE ON CONTROLLER

108

sBR IF INIT WAS 0K

sBUMP COUNT
¢CONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT 0K

TRAP

CSERDF

.WORD
.WORD

SFIERR
SFIMSG

.WORD

053650

108:

MAARAAA A

513

MOV

#7,72505W

cSET UP DRIVE NUMBER

MOV

#T25PACKET R4

s SUBROUTINE NEEDS PACKET ADDRESS

222221

:WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
.

2
4233 047516
4234
4235
4239
6240

42641

047522
047524
047530
047532

047532
047534
047536
047540

004737

010752

005237
010001

002212

103407

4245

PC,WRTCHR

sISSUE WRITE CHARACTERISTICS

INC
MOV

FATFLG
RO,R1

:BUMP COUNT
sSAVE CONTENTS OF

ERRHRD

104456
001002
005054
012124

N RN TR AN R AN RN RA N AN N AN R AN AR RN NANENRANNNNNRON RN

JSR

B(CS

15%

ERRNO,WRTMSG, SFIMSG

sBR, IF COMMAND ISSUED OK

7SSR
JWRITE CHARACTERISTISC FAILED
TRAP

.WORD
.WORD
WORD

L2464

AR AR AR AN A AR

AR RN AR NN RN NN RN R RN RN RN RN AR N AR AR R AR NN RN RN RN AN RN RNNENNDARS

$ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

CSERHRD

514
WRTMSG
SFIMSG

TSV? = HARDWARE TESTS 1-8

TEST

S: SPACE RECORDS

6246
6247
4248 047542

047542

4249 047544
4250 047550
4251 047552
4252 047554
4256 047560
047560
047562

047564
047566

4257 047570
047570
4258 047572
4259 047576
4260
4261 047600
4262 047606
4263 047614
4264 047620
4265 047624
4266 047630
6267 047632
4268 047634
4272 047640
047640

047642
047644
047646

4273 047650
047650
6274 047652
4275 047660
4276
6277
4278
4279
4280
4281
4282
4283 047664
4284 047670
4285 047672
4289 047676
4290 047700
047700

104406

004737

103407
010001
005237

112737
112737
012704
010465
004737
103407
010001

000200

104406
012737
012704

Al A

PC,REWIND

MOV
INC
ERRHRD

YIS

TRAP

cscLP1

TRAP

CSERHRD

sCALL TAPE REWIND COMMAND
¢8R, IF NO PROBLEM
s SAVE TSSR
sBUMP COUNT

30§

RO,R1

FATFLG

ERRNO, T25RWN,PKTSSR

REWIND NOT ACCEPTED

.WORD
.WORD
.WORD

515
T25RWN
PKTSSR

TRAP

“SCLPY

30s:

CKLOOP

1408:

TST
BNE

EXTFEA
1608

;CHECK FOR EXTENDED FEATURES SW SWITCH
sBR IF SWITCH IS ON

MOv8
Movs
MOV
MOV
JSR

#200, 125851
#10,7258S0

;WRITE MISCELLANEOUS CONT/READ STATUS

016426

sFUNCTION SELECTION BIT (TURN ON FXTFEA HW SWITCH)
;WRITE SUBSYS MEM PACKET
s ISSUE COMMAND

R4, TSDB(RS)

MOV

002212

sLOOP IF SELECTCD

#125PK2
R4

B(CS

INC
ERRHRD

104456
001004
054004
012136

PC.CHKTSSR

SWAIT FOR SSR

FATFLG

:BUMP COUNT
:TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS

1508
RO,R1

sBR, IF NO ERROR
;ERROR, SAVE TSSR

ERRNO, T25S5SR,PKTSSR

TRAP

CSERHRD

.WORD

PKTSSR

TRAP

cscLP

WORD
.WORD

1508:

000007
053630

CKLOOP

053550

sLOOP IF SELECTED
#7,125DSW
#T2S5PACKET
R4

MOV
MOV
PR AARAAAL

516
T25SSR

:SET UP DRIVE NUMBER
s SUBROUTINE NEEDS PACKET ADDRESS

2222222222222

2222222222221

;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
0

FAAAAAL AR

004737
103407
005237
010001

010752

104406

4293 047716

005237

JSR
8(S
INC

002212

MOV

ERRHRD

106456

047710

4294 047722
4295 047724

JSR
8(CS

002212

002216

AA AR AR

CKLOOP

011104

005737
001044

001005
005054
012124

4292 047712

15$:

054755
012136

005237

PAGE 116-1

SEQ 0218

104456
001003

104406

25-MAY-82 09:19

MLAAALA

047702
047704
047706

4291 047710

MACRO M1113

PC,WRTCHR

160%

FATFLG

RO,R1

ERRNO,WRTMSG,
SF IMSG

sISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK
sBUMP COUNT
sSAVE CONTENTS OF TSSR
SWRITE CHARACTERISTISC FAILED
TRAP

1608:

000002
000100
002212

CKLOOP
MOV

BIT
BNE
INC

:SCOPE LOOP
TSSR(RS)
,R1

#OFL ,R1

1708

FATFLG

517
WRTMSG
SFIMSG

TRAP

cscLPl

sGET TSSR CONTENTS
sCHECK FOR THE OFFLINE BIT SET

:BR,

OFFLINE

:BUMP COUNT

(GOOD)

CSERHRD

.WORD
.WORD
.WORD

TSV7? = HARDWARE TESTS 1-8
TEST
S: SPACE RECORDS
4299 047730

047730
047732
047734
047736
4300 047740
047740
4301
4302
4303
4204

4305
6306
4307
4308 047742
4309 047750

4310 047756
4311 047762
6312 0477606
4313 047772
6314 047776
4315 050002
4316 050004
6317 050006
4321 050012
050012
050014
050016
050020

4322 050022
050022
4323 050024

4324
4325
4325
4327

50024
050024
050026
050034
050036
050042

MACRO M1113

25-MAY-82 09:19
ERRDF

104455

001006
055024
012124

1
N
PAGE 116-2

SEQ 0219

ERRNO, T250FL, SF IMSG

sOFF LINE SHOULD HAVE BEEN SET (BAD)
TRAP

CSERDF

.WORD

SFIMSG

TRAP

cs$cLP

.WORD
.WORD

170%:

104406

kLoop

sLOCP IF

SELECTED

518
T250FL

:t.'t"..""t.l.’.'..""'.t'.'.".'.ttfi'Qt..'.'.t't't'..tt.'lt".

*SPACE REVERSE COMMAND IN PLACE
.

MAAASAAAL

012737

012737
012704
010465
004737
016501
012702
020102
001406
005237

100410

000001
053750
000000

053750
053752

1808%:

016340

000002
100306

MoV
MOV
MOV
MOV
MOV
MoV

CMP
BEQ
INC
ERRHRD

002212

104456

0100410 T25PK3

T25R8

créspxs R4

R4, TSDB(RS)

PC.WAITF

TSSR(RS) ,R1

2222222222211

sSPACE REVERSE COMMAND

[N PLACE

sNUMBER OF RECORDS TO SPACE
sR4 = POINTER TO PACKET

s ISSUE COMMAND

SWAIT

FOR SSR

TO SET

sGET TSSR CONTENTS
cssa'sc'orL'exr1'exrz R2
JSET UP EXPECTED
R1,R2
sARE THEY EQUAL
1908
JBR, IF OK ESP. FUNCTION REJECT
FATFLG
:BUMP COUNT
ERRNO, T25TM,PKTSSR
sTSSR INCORRECT AFTER TAPE MOTION (MD
TRAP

CSERHRD

.WORD

PKTSSR

TRAP

CSCLPT

TRAP

CSESUB

.WORD
.WORD

190$:

104406

CKLOOP

sLOOP [F SELECTED

ENDSUB

$233333>>>>>>

END

SUBTEST

L100735:

023727

002212

004737

017272

103402

AR A

JSR

001007
054212
012136

104403

000017
999%:

cMP
8LO
JSR

FATFLG,#15.

999%

PC,CKDROP

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

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

JTRY

TO DROP

THE

519
T25TM

UNIT

]
TSV7 - HARDWARE TESTS 1-8

TEST

SPACE RECORDS

MACRO M1113

25-MAY-82 09:19

PAGE 117

SEQ 0220

STEST 5, SUBTEST 3
*VERIFIES THAT SPACE RECORDS FORWARD CAN SPACE ONE

*RECORD OFF BOT AND CAUSES BOT STATUS TO BE CLEARED.

050042
050042
050042
050044
050050
050054

”

BGNSUB

104402

004737
004737
004737

JSR
JSR
JSR

222233333235 BEGIN SUBTEST 333333333
75.3:

TRAP
;SET COMMAND PACKET
*SET UP OTHER COMMAND PACKET
*SET UP OTHER COMMAND PACKET

PC,T2SREST
PC.T25RT2
PC.T25RTS

($BSUB

:Q."".'Q.'.Qfi...fi.'i*'."".fi.fi.‘tfi*.fi.fifi.t."'fi..'.fi.".fit".".

*ISSUE CONTROLLER *'SOFT'* INITIALIZE - CARRY BIT CLEAR IF ERROR
E..".".'.‘.'t"'.t*fi.""fi'fi"..".".'fi'fififi.".fi..fi.".'.."....
050060
050064
050066
050072
050074
050074
050076
050100
050102
4358 050104
6359
4360 050112

4361
4362

016064

JSR

002212

002172

012704

053630

050132
050134
050136
050146

;D0 INITIALIZE ON CONTROLLER

10§
FATFLG

MOV
ERRDF

104455

001010
003650
012124
013737

PC,SOFINIT

BCS
INC

RO.R1
ERRNO, SFIERR, SF IMSG

*BR IF INIT WAS OK
*BUMP COUNT

*CONTENTS OF TSSR REGISTER
*FATAL ERROR TSSR WAS NOT OK
TRAP

(SERDF

"WORD
'WORD

SFIERR
SFIMSG

.WORD

053650

10$:

520

MOV

UNITN, T25DSW

+SET UP DRIVE NUMBER

MOV

#T25PACKET,
R4

sSUBROUTINE NEEDS PACKET ADDRESS

R AR AR ARANARA AR AN N N AN AR

4363
4364
4365
4366
4367
4368 050116
4369 050122
4370 050124
6374 050130
4375 050132

4376
6377
4378
4379
4380
4381

004737
103407
005237
010001

RN A RN AR R R AR NANANRNRNNR R RANANAANANRANARCO

AR NS

:WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
.

S AN

004737

010752

005237
010001

002212

103407

R AR AR AN

N A N AN RAARNRNNANARARNN RN

RO RN AARRANNRNARORRAS

JSR

PC,WRTCHR

s ISSUE WRITE CHARACTERISTICS

INC
MOV
ERRHRD

FATFLG
RO,R1
ERRNO,WRTMSG,SF
IMSG

+BUMP COUNT
;SAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC F?Aksb

8(S

104456

AR AN AN AR AN

15$

:BR,

IF COMMAND [SSUED OK

001011
005054
012124

.WORD
.WORD
.WORD
AR AR RN AN AR AN AR AN RN AN AT RN RN RN AN

RN N AR R RPN RARNNARN

AR RN

ARRANES

;1SSUE REWIND COMMAND TO SELECTED TAPE DRIVE
.

AR A AR AR R AN AR AR

N T RN RN AR AN

N RN AR AR NN N AN N

RN ARNNRAREY

CSERHRD
521

WRTMSG

SFIMSG

TSV? - HARDWARE TESTS 1-8
TEST
S: SPACE RECORDS

(382
4383 050142
050142
4384 050144
4385 050150
4386 050152
4387 050154
4391 050160
050160
050162
050164
050166
4392 050170
050170
6393
4394
4395
4396

4397
4398
4399
4400
4401
4402
4403
44604
4405
4409

004737
103407
010001
005237

15$:

011104

25-MAY-82 09:19

JSR
BCS

PC ,REWIND

104456
001012

054755
012136

30%:

104406

117-1

INC
ERRHRD

FATFLG

30$

MOV

002212

PAGE

SEQ 0221

CKLOOP

RO,R1

ERRNG, T25RWN,PKTSSR

CKLOOP

TRAP

cscLP

TRAP
.WORD

CSERHRD
522
T25RWN

s CALL TAPE REWIND COMMAND
¢BR, IF NO PROBLEM
¢ SAVE TSSR
+BUMP COUNT

sREWIND NOT ACCEPTED

;LOOP IF SELECTED

.WORD
-WORD

PKTSSR

TRAP

cscLP

AR AR AR AR AR A AN AR AN AN NN N AR A ANAARANARRRANARARNRNARNANAAN
T CARAANRANS

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
’

AR AR RN AN

050172
050176
050200
050204
050206
050210
050214
050214
050216
050220
050222
44610 050224
050224
4611 050226
4412

44613
44614
4415
44616
64617
4418
44619
4420
4421
4422
44623
4424
4425
4426

104406

MACRO M1113

013701
010102
052702
020102
001406
005237

053660

012737

000002

ERRHRD

ERRNO,T25B0T,EXPREC

8IS
CMP

002212

INC

:
408
000001

BEQ

T258FR+6,R1
R1,R2
#8IT1,R2
R1,R2
40$

MoV
MOV

104456
001013
056145
015564
104406

AR NN AN NN AR AN NN RN RAAN NN RN RANANA RN RN NN RO

053752

FATFLG

ckLoopP
MoV

AN R AR RA NN AR AR

ANRNANNANAN RSN

;PICK UP XSTO
sSET UP EXPECTED
sSET B80T BIT IN EXPECTED
¢DOES EXP = REC'D
:BR, IF EQUAL (0OK)
:BUMP COUNT
;TAPE NOT AT BOT AFTER REWIND

sLOOP IF SELECTED
#000001,T25R8B
NN RN E RN

125807
EXPREC

TRAP

cscLP1

sNUMBER OF RECORDS TO SPACE OVER

N RAANRARARNRNANNAN AN NN RANRNRANNN

CSERHRD
523

TRAP
-WORD
.WORD
.WORD

*SPACE FORWARD,ACK,CVC=1 COMMAND
.

050234
050242
050246
050246

6427
4428
4429
4430
4434

050306

012737
012704
010465
004737
016501
012702
020102
001411
032701
001006
005237
104456

001014

140010

053750
000000
016340
000002
000200

053750

65¢%:

A RARNN AN NN R A AR NN RN AR N O VNN A NANRRANANNANANARA NN A AN

RERANS

Mov
MoV

#160010,T25PK3
#T25PK3
R4

s SPACE FORWARD ,ACK,CV(=1 COMMAND
sSET UP R4 WITH PACKET ADDRESS

MOV
JSR
MOV
MOV
CMP

R&,TSDB(RS)

s ISSUE _COMMAND
sWAIT FOR SSR TO SET

000004
002212

RAR A AN RN

PC.WAITF

TSSR(RS)
,R1
#SSR,R2

R1.R3
7s$

#8]T2.R1
75
ERRHRD

FATFLG

ERRNO, T25WDE ,EXPREC

sGET TSSR CONTENTS
sSET UP EXPECTED

sARE THEY EQUAL

:Bk, IF 0K
sCHECK FOR TAPE STATUS ALERT
s8R, IF TSA IS SET (SUSPECT IS EOT)
sBUMP COUNT
sTSSR INCORRECT AFTER READ DATA
TRAP
CSERHRD
.WORD
524

TSV7 -~ HARDWARE TESTS 1-8
TEST
S: SPACE RECORDS

050310
050312
435 050314
050314
4436 050316
4437
4438
4439

4440
44641
44642
4443
4444
4445
4446
4447
4448
4449
4453

MACRO M1113

054065
015564

75$%:

104406

CKLOOP

SEQ 0222

sLOOP IF SELECTED

:
1208
R AR RN

AR R AR A R AN AR AR

N AN RAN RN AN NN

NRNR NI RANR NN

.WORD
.WORD

T25WDE
EXPREC

TRAP

csCLP1

ANANNNRARANARNCREN

READ MESSAGE BUFFER EXTENDED STATUS REGISTER 2ERO (XSTO)
SRR AN AR

4456 050356
4457
4458
4459
4460

013701

010102
042702
020102
001406
005237

053660
000002

8IC
CMP
BEQ
INC
ERRHRD

002212

104456
001015
054440
015564
104406

004737
012737

"25%:
055322
000401

AR AR RN A AN A RN

MOV
MoV

T258FR+6,R1
R1,R2

FATFLG

ERRNO, T25BNC,EXPREC

PC,T25RT3

sQUICK CHECK FOR BOT SET
sSET UP EXPECTED
sCLEAR THE BOT BIT (XSTO)
;1S THE EOT BIT SET IN XSTO
;BR, IF SET (GOOD)
;BUMP COUNT
;80T NOT CLEARED AFTER SPACE FROM BOT
TRAP
CSERHRD
. WORD
525

AR AN AR AN

sCLEAN UP PACKET
sSET THE CORRECT SIZE uP

#257.,12552

MoV
N

AC NN A AN AN A RANRNRRARANANNRANNRNNAIANNRNANNANASADN

ckLoop

JSR

053756

AN NN AN NN AN ARNARA AR AR AN AR RN ANNNANNNRAAANN

.WORD
.WORD

T258N(
EXPREC

TRAP

cscLPt

N AARANANRONRS

*READ DATA COMMAND IN PLACE

4461

4464
4465
4466
4467
4468
4469
4470
467

PAGE 117-2

050316
050322
050324
050330
050332
050334
050340
050340
050342
050344
050346
4454 050350
050350
4455 050352

4462
4463

25-MAY-82 09:19

050364
050372
050400
050404

050410
050414
050420

050424
4472 050626
4473 050430
4477 050434

050434
050436
050440
050442
4478 050444
050444
4479 050446
4480 050452
4481 050456
4482 050460
4483 050462
4487 050466

012737
013737
012704
010465
004737
016501
012792
020102
001406
005237

140001

003114
053750
000000
016340
000002
000200

053750
053752

MOV
MoV
MOV
MOV
JSR
MOV
MOV

CMP
8EQ
INC
ERRHRD

002212

104456

001016
005204
012136
104406

017701
012702
020102
001406
005237

190%:

132442

000001

002212

R AN A AR AN AR A AN NN

AAR AN AN RN AR AR NN NN A RN AR AN AN N NN AN AN

#140001,T25PK3

FREE,T25RB

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

TSSR(RS)
,R1

BEQ
INC
ERRHRD

sREAD DATA COMMAND IN PLACE

sREAD BUFFER ADDRESS TO PACKET
cR4 = POINTER TO PACKET

s ISSUE COMMAND
sWAIT FOR SSR TO SET
;JGET TSSR CONTENTS
sSET UP EXPECTED

sARE THEY EQUAL

FATFLG

ERRNO,RDERR,PKTSSR

(kLoopP
MOV
MoV
CMP

:BR, IF OK ESP. FUNCTION REJECT
:BUMP COUNT
s TSSR INCORRECT AFTER READ DATA CMD
TRAP
CSERHRD
526
.WORD

+LOOP IF SELECTED
aFREE ,R1
#1,R2

2008

FATFLG

ERRNO, T25WNG,EXPREC

.WORD
-WORD

RDERR
PKTSSR

T RAP

cscLpPt

;GET FIRST WORD FROM BUFFER
sSET UP EXPECTED
¢WAS RECORD NUMBERED 1
s8R, IF CORRECT RECORD
:BUMP COUNT
s SHOULD HAVE BEEN RECORD NUMBER 1

[
TSV? =~ HARDWARE TESTS 1-8
TEST
S: SPACE RECORDS

050466

050470
050472
050474
4488 050476
050476
4489 050500
050500
050500
4490 050502
4491 050510
4692 050512
4493 050516

MACRO M1113

164456
001017
054355
015564

023727
103402
004737

E 2
PAGE 117-3

SEQ 0223
TRAP

CSERHRD

.WORD

EXPREC

TRAP

CSCLP

TRAP

C($ESUB

.WORD
.WORD

200$:

104406
104403

25-MAY-82 09:19

ckLooP

ENDSUB

002212
017272

000017
999%:

CMP
BLO
JSR

$O33533>35>3>>

FATFLG,#15.
999%
PC,CKDROP

END

SUBTEST

L10074:

>>33>>>>>>>>

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

TO DROP

527
T25WNG

THE UNIT

[
—

TSV? - HARDWARE TESTS 1-8
TEST
S: SPACE RECORDS

MACRO M1113

4495

SEQ 0224

451
4512
6513
4514
4515
4516
6517
4518
4522
4523

:TEST S, SUBTEST 4

EVERIFIES THAT SPACE RECORDS REVERSE CAN SPACE BA(CK
;OVER THE FIRST RECORD ON TAPE.

1355553355355 3 BEG§N4SUBTEST PP IIPIII I

004737
004737
004737

JSR
JSR
JSR

ViV
VIV

104402

WhY
—
OO
OO

BGNSUB
=d=l=]

4497
4498
4499
4500
4501
4502
4503
4504
4505 050516
050516
050516
4506 050520
4507 050524
4508 050530
4509
4510

15.4:

PC,T25REST
PC,T25RT?
PC,T25R12

TRAP

JSET COMMAND PACKET
JSET UP OTHER COMMAND PACKET
JSET UP OTHER COMMAND PACKET

($B8SUB

:'fi'*t".t"'.l'..i.t't*"tt't'lfi't.'Q'tfitt't'.'.t'i.tttitttfi'.'ttt

EISSUE CONTROLLER ''SOFT'* INITIALIZE - CARRY BIT CLEAR IF ERROR
Etfii.ttt.'itttifi.t'.."".'fit'ttiti"....Qttt...'t.'..tt'ttittiti't

050534
050540
050542
050546
050550
050550
050552
050554
050556
4524 050560
4525
4526 050566

004737
103407
005237
010001

016064

002212

104455

001020
003650
012124
013737

002172

012704

053630

JSR

PC,SOFINIT

;D0 INITIALIZE ON CONTROLLER

INC
MOV
ERRDF

FATFLG
RO.R1
ERRNO,SFIERR,SFIMSG

;BUMP COUNT
JCONTENTS OF TSSR REGISTER
JFATAL ERROR TSSR WAS NOT Ok
TRAP

8CS

208

;BR IF INIT WAS 0K

.WORD

053650

20%:

.WORD
.WORD

MOV

UNITN,T25DSW

*SET UP DRIVE NUMBER

MoV

#T25PACKET,R4

sSUBROUTINE NEEDS PACKET ADDRESS

AN AN AARN AN

RN AN AANARAANRARA AR RN AN RN

CSERDF

528

SFIERR
SFIMSG

ANRAARAANEARARRY

:WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
.

SRR NN AN

050572
050576
050600
050604
050606
050606
050610
050612

050614
4542 050616
050616
4543

4544
4545
4546

F
2
2AGE 118

.'0

4496

4527
4528
4529
4530
4531
4532
4533
4534
4535
4536
4540
4561

25-MAY-82 09:19

004737
103407
005237
010001

010752
002212

104406

AN AR RN

AR NN

JSR

PC,WRTCHR

INC
MOV
ERRHRD

FATFLG
RO,R1
ERRNO,WRTMSG,
SF IMSG

B(CS

104456
001021
005054

012124

A ARAR AR ANN AN AN NN

25%

AAANNNRAARARARS AN

NRAATRRNS

s ISSUE WRITE CHARACTERISTICS

:BR, IF COMMAND ISSUED OK

:BUMP COUNT
sSAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED
TRAP

CSERHRD

.WORD
.WORD

WRTMSG
SFIMSG

TRAP

CSCLP

WORD

25%:

CKLOOP

sLOOP IF SELECTED

:ttttttttttt'tttttt!tt'tt"'ttttltt."tt"t'tt.fi'tttttt.'t"ttttlt'

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

529

TSV7 = HARDWARE TESTS 1-8
TEST
S: SPACE RECORDS

4547
4548
4549
6550 050620
4551 050624
4552 050626
4553 050630
4557 050634

050634
050636

050640

050642

4558 050644
050644
4559
4560
4561

MACRO M1113

25-MAY-82 09:19

PAGE 118-1

SEQ 0225

FMAALAAALAAS

004737
103407
010001
005237

011104

AARARA

104456
001022
054755

012136

30$:

104406

ARl

PC ,REW(ND

;CALL TAPE REWIND COMMAND

MOV
INC
ERRHRD

RO,R1
FATFLG
ERRNO, T2SRWN,PKTSSR

SSAVE TSSR
*BUMP COUNT
SREWIND NOT ACCEPTED

30$

CKLOOP
AR

sttt

JSR

BCS

002212

SRRl

‘BR, IF NO PROBLEM

oap

;LOOP IF SELECTED

AR AN AN N RN AN AN RN AR AR AR AN AR AN R

RN RRNN RN RN ANRAANNRNAAN

CSERHRD
530
T25RWN

.WORD
-WORD
-WORD

PKTSSR

TRAP

cscLPl

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
.

AR AR AR A AN R AN RN

4566
4567
4568
4569
4570
4571
4575

050646
050652
050654
050660
050662
050664
050670

050670
050672
050674
050676
4576 050700
050700
4577
4578
4579
4580

013701
010102
052702
020102
001406
005237

053660

MOV
MOV
BI¢
CMP
8EQ
INC
ERRHRD

006002
002212

104456
001023
054145
015564

40$:

104406

4596

4597

#8171,R2
R1,R2
40%
FATFLG
ERRNO,T25R0T,EXPREC

ckLoopP

ANANCN

;P1CK UP XSTO
sSET UP EXPECTED

;SET BOT BIT IN EXPECTED
:DOES EXP = REC'D
s8R, IF EQUAL (0K)
:BUMP COUNT
:TAPE NOT AT BOT AFTER R;:{gb

;LOOP IF SELECTED
T A N A RN AN AN N R RARNRNRNARNANNA N RN

CSERHRD
531
125807

.WORD
.WORD
-WORD

EXPREC

TRAP

cscLP

N RARAANANRINRS

:ISSUE_SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
;BIT 15 SETS DIRECTION - 0=FORWJARD

1=REVERSE

S ANANA R

050726
050730
050732
4594 050734
050734
4595 050736

AN AR RN AN R RA R AN RN RN R NRN N ANNA

T25BFR+6,R1
R1,R2

SRR AN AR AR R A AR AR AN AR

4581
4582

4585 050702
4586 050706
4587 050712
4588 050714
4589 050720
4593 050724
050724

AN AR

AR AR

RN TR AN AN RANANRANNAANNNNR
A CANR RN NN ANNA
ARCRRNE

012703
004737

000001
010556

MOV

#000001,R3

sNUMBER OF RECORDS TO SIACE FORWARD

016501
005237

000002
002212

8CS

MOV

508

sCHECK FOR ERROR

103410

JSR

INC

sCALL SPACE COMMAND

TSSR(RS) ,R1

cGET TSSR CONTENTS

ERRNO, T25WDFE ,SFFMSG

sSPACE FORWARD FAILED

FATFLG

ERRHRD

104456
001024

sBUMP COUNT

IRAP
.WORD
.WORD

054065
012172

104406
012737

PC,SPACE

508:

000001

053752

CKLOOP

sLOCP IF SELECTED

MoV
MAAAAL

#1,T25RB
A2

TRAP

sNUMBER OF RECORDS TO SPACE OVER
A

CSERHRD
532
T25WDE
SFFMSG

cscLP

—

TSV7 < HARDWARE TESTS 1-8
TEST
S: SPACE RECORDS

MACRO M1113

4598
4599
4600

25-MAY-82 09:19

H 2
PAGE 118-2

SEQ 0226

*SPACE REVERSE,ALK,CVC=1 COMMAND
]

AN AR AR A AR A AR AR A AN AN RN NIRRT N RN RN RN AR I RN N

4603 050744
4604 050752

b wnd
—b e

)

PONIA)
= d cd ek b

[elelelalaleleTe)

=iel=lelelelate]

Ssooo0o00

050756
050756
050762
050766
050772
050776
051000
051002
051006
Viviviviviwvaiaw

4605
4606
4607
4608
4609
4610
4611
4612
4616

012737
012704
010465
004737
016501

005237

140410

053750

MOV

65$:

000000
016340
000002
000200

#T25PK3.R4

#160410,T25PK3

sSPACE REVERSE,ACK,CVC<1 COMMAND
sSET UP R4 WITH PACKET ADDRESS

MOV
JSR
MOV
MOV

R4, TSDB(RS)
PC.WAITF
TSSR(RS)
,R1
#SSR,R2

s ISSUE COMMAND
¢WAIT FOR SSR TO SET
sGET TSSR CONTENTS
sSET UP EXPECTED

INC
ERRHRD

104456
001025
054065

R1,R2
758

FATFLG
ERRNO, T2SWDE ,PKTSSR

¢ARE THEY EQUAL

;BR, IF OK
sBUMP COUNT
sTSSR INCORRECT AFTER READ DATA
TRAP

CSERHRD

WNRD

PKTSSR

TRA?

cscLP

.WORD
.WORD

012136

75%:

104406

012703
013737

MOV

CMP
BEQ

002212

NN N NN NANNANAN NN NN AN RANRS

000400
003114

120$:

053752

CKLOOP

MOV
MOV

SRR AN RN A AN

;LOOP IF SELECTED
#256. .R3
FREE,T25R8

AN RN RN AN N AR

533
T25WDE

sRECORD SIZE
sSTARTING READ BUFFER ADDRESS

R AR ARARRRARNENANRNANANNRAAANRNNANRNOANAENNES

*READ DATA,ACK.CVC=1 COMMAND
0

SRR

012737
012704
010337
010465
004737
016501
012702
020102
001406
005237

WWWNINN
S 22200
SRR
RNONOOG &

b b
b and
b cnd
b ed
el cud
—l

b
b
) S
)
b
b
—d el mmh el wnl)

COO00OO0O0OOOOO

4651

(VL LV RV LV LV, LV, [V, 1V, [V IV IV 1V, ]

S SN
~NONWNA
S

051102

140001
053750
053756
000000
016340
000002
000200

053750

165$:

002212

012702

020102
001406
005237
104456
001027

MoV
MOV

#140001,725PK3
#T25PK3,R4

MOV
JSR
MOV
MOV

R4, 7SDB(RS)
PC,WAITF
TSSR(RS)
,R1
#SSR,R2

sSET UP EXPECTED

ERRNO,RDERR,PKTSSR

;BUMP COUNT
sTSSR INCORRECT AFTER READ DATA

MOV

ERRHRD

R3,7125S2

R1,R2
1708
FATFLG

sREAD DATA,ACK,CVC=1 COMMAND

sSET UP R4 WITH PACKET ADDRESS

sSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
¢WAIT FOR SSR TO SET
cGET TSSR CONTENTS
sARE THEY EQUAL
s8R,

TRAP

JWORD

012136

017701

AN AN AN A AA N RN R T AR N AAN RN RN N AANRNRRARNNRARRARN NN SN RRNNRANRNR

CMP
ocd
INC

104456
001026
005204
104406

AR AN

170$:

131776
000000

002212

(kLooOP
MOV
MOV

CMP
8EQ
INC
ERRHRD

;LOOP IF SELECTED
aFREE ,R1
#0,R2

R1,R2
200%
FATFLG
ERRNO, T25WNG,EXPREC

CSERHRD

534

.WORD
.WORD

RDERR
PKTSSR

TRAP

csCLP1

sGET FIRST WORD FROM BUFFER
sSET UP EXPECTED
sWAS RECORD NUMBERED 1
sBR, IF CORRECT RECORD
:BUMP COUNT
sSHOULD HAVE BEEN RECORDnggflfiR 1
CSERHRD
.WORD
535

TSV7 = HARDWARE TESTS 1-8
TEST
S: SPACE RECORDS

051136
051140
4652 051142
51142
4653 051144
051144
051144

4654
4655
4656
4657

051146
051154
051156
051162

MACRO M1113

054355
015564

2008:

1064406
104403

023727
103402
004737

25-MAY-82 09-19

PAGE

017272

000017

(CkLOOP

999%:

CMP
BLO
JSR

SEQ 0227

.WORD
.WORD

ENDSUB
002212

118-3

FATFLG,#15.
999%
PC,CKDROP

T25WNG
EXPREC

TRAP
CSCLP1
$23333>>>>>>> END SUBTEST >>>>>>>>>>>>
L10075:
TRAP
CSESUB
;1S ERROR COUNT AT 25
:BR, IF LESS THAN 25
sTRY TO DROP THE UNIT

TSV7 - HARDWARE TESTS 1-8
TEST
S: SPACE RECORDS

MACRO M1113

25-MAY-82 09:19

PAGE

119

SEQ 0228

4659
4660
zgg%

ot
:
;TEST 5, SUBTEST 5

4663
4664
4665
4666

;VERIFIES THAT SPACE RECORDS FORWARD CAN SPACE A
sMULTIPLE NUMBER OF RECORDS (2 THROUGH 64K OR THE
sMAXIMUM NUMBER OF RECORDS WRITTEN ON THE TAPE,
sWHICH EVER IS LESS.

4667
4668

H
;
:
-

4669
4670
4671

4672 051162
051162

051162
4673 0511646

BGNSUB

104402
004737

055166

013737

054000

4674 051170
4675 0511764

004737
004737

4677 051206
22;8 051214

162737
013737

4676 051200

055260
055322

000002
054000

JSR

JSR
JSR

053776

MOV

053776
054002

SuB
MoV

4680

4681

:>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>>
15.5:

PC,T25REST

sSET COMMAND PACKET

TRAP

PC,T25RT2
PC,T25RT3

;SET UP OTHER COMMAND PACKET
sSET UP OTHER COMMAND PACKET

#2,T25CN2
T25CNT,T250LY

sACTUAL NUMBER OF RECORDS ON TAPE
sSET UP REWIND DELAY COUNTER

T25CNT, T25CN2

AN AR AN

AT AR AR NN A AN

sHOLD NUMBER OF RECORDS

AN RANANNRNNANINNANRARANNANARS

‘

22%%

s ISSUE CONTROLLER ''SOFT'' INITIALIZE - CARRY BIT CLEAR If ERROR

L6864

;tttittttttttt’ AN NN TR AT AN AR NN AN AR RN AN AN AN RN RAANANNNANRRASANNNASY

4685
4686 051222
4687 051226
4688 051230
051230
051234
051236
051242
051244
051250
051252
051256
4689 051260
4690 051264
4691 051266
4692 051272
4696 051276

051276
051300
051302
051304
4697 051306
4698 051306
2938 051314

004737
103427

016064

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

000250

10$:

013737

012704

JSR
BCS
DELAY

PC,SOFINIT
20%
250

DEC
BNE
MOV
INC
ERRDF

T25DLY
108
TSSR(RS) ,R1
FATFLG
ERRNO,SFIERR,SFIMSG

;D0 INITIALIZE ON CONTROLLER
;BR IF INIT WAS OK
JWAIT ABOUT .25 SECONDS
MoV
#250, (PC)+
-WORD
0
MOV
LSOLY, (PC)+
.WORD
O
DEC
-6(PC)
BNE
o=b
DEC
=22(PC)
BNE
.~20
sDEC COUNTER
;BR, IF MORE LOOPS REQUIRED
;CONTENTS OF TSSR REGISTER
;BUMP COUNT
sFATAL ERROR TSSR WAS NOT 0K

MOV

UNITN,T25DSW

sSET UP UNIT NUMBER

002116

177772
177756
054002
000002
002212

104455
001030
003650
012124
002172

053630

053650

20%:

MOV

A AN AN R AR AN I AN RN R AR AR ERN

s SUBROUTINE NEEDS PACKET ADDRESS

JENA AR

4702
4703

:
JWRITE CHARACTERISTICS COMMAND (CALL TO WRT(CHR)
:

#T25PACKET R4

TRAP
LWORD
.WORD
.WORD

4701

4704

(sBsuB

AN N RARA RN

AN RN TR ANRANNONNRO
RS

CSERDF
536
SFIERR
SFIMSG

TSV7 ~ HARDWARE TESTS 1-8
TEST
S5: SPACE RECORDS

MACRO M1113

l.?os

25-MAY-82 07:19

PAGE 119-1

SEQ 0229

:ttttittttttttttttttttttttttttttttttttttttttttttttttttttttttttttttt

4706
4707 051320

004737

010752

4709 051326
4713 051332

005237
010001

002212

051334
051336
051340
051342
4715 051344
6 051344

104456
001031
005054
012124

4708 051324

4714 051334

103407

JSR

PC,WRTCHR

;ISSUE WRITE CHARACTERISTICS

INC
MOV

FATFLG
RO,R1

*BUMP COUNT
:SAVE CONTENTS OF TSSR

BCS

ERRHRD

25¢:

104406

4717

25¢

ERRNO,WRTM
SFSG,
IMSG

CKLOOP

*WRITE CHARACTERISTISC FAILED

;LOOP IF SELECTED

NN AN AN R AR AR RN R AR R A AN

4718

‘BR, IF COMMAND ISSUED OK

A AR A AR A AR A NN NN AR RN RANNR AN

TRAP
.WORD
"WORD
.WORD

CSERHRD
537
WRTMSG
SFIMSG

TRAP

CSCLP1

INRNNRR AN N RS

2;%8

:ISSUE REWIND CCMMAND TO SELECTED TAPE DRIVE

4721
4722
4723 051346

:-ttttttttttttttttttttttttttttttttttttttttttfittttttttttttttttttttitt

4724
4725
4726
4730

051352
051354
051356
051362

051362
051364
051366
051370

4731 051372

004737
103407
010001
005237

104406
013701
012702
020201
003002
010103

4738 051414

010203

4737 051412

4739 051416
2;2? 051422

JSR
BCS
MOV
INC
ERRHRD

002212

104456
001032
054755
012136

051372
051374
051400
051404
051406
051410

4732
4733
4734
4735
4736

011104

308:

053776
177776

162703
010337

468:

000001
053752

478:

B8R

MOV

SUB
MOV

:CALL TAPE REWIND COMMAND
*BR, IF NO PROBLEM
*SAVE TSSR
*BUMP COUNT
JREWIND NOT ACCEPTED
TRAP
.WORD
"WORD

"WORD

CKLOOP

MOV
MOV
CMP
86T
MOV

000401

PC,REWIND
30$
RO,R1
FATFLG
ERRNO,T25RWN,PKTSSR

;LOOP IF SELECTED

T25CN2,R1
#65534. ,R2
R2,R1
46$
R1,R3

TRAP
;NUMBER OF RECORDS ON TAPE
*MAX IT CAN SPACE OVER
SWHICH VALUE CAN WE USE
SBR, IF # WRITTEN > 64K
:# WRITTEN CAN BE USED

R2.R3

SUSE MAX NUMBER

47%

#1.R3
R3.T25R8

:DON'T GO ALL THE WAY YET
*NUMBER OF RECORDS TO SPACE OVER

.'tttttttttQttttttQttttt"t*tttttttttttttttttttttttttt.ttttttttttttt

4743
2;2§

:
:SPACE FORWARD,ACK,CVC=1 COMMAND

4746
4747
4748 051426
2;28 82%223

:‘ttttttttttttttttttttttttttttttttttttttttttt!ttttttttttt'tttttttttt
012737
012704

140010
053750

053750

4751
4752
4753
4754
4755

051440
051446
051452
051456
051462

013737
010465
004737
016501
012702

053776
000000
016340
000002
000200

054002

4757 051470

001425

4756 051466

020102

678:

CSCLP1

‘MOVE ON

1.71.2

CSERHRD
538
T2SRWN
PKTSSR

MOV
MOV

#140010,T25PK3
#T25PK3.R4

;SPACE FORWARD,ACK,CVC=1 COMMAND
SSET UP R4 WITH PACKET ADDRESS

MOV
MOV
JSR
MOV
MOV

T25CN2, T25DLY
R4, TSDB(RS)
PC.WAITF
TSSR(RS) .R1
#SSR,R2

;NUMBER OF RECORDS USED AS DELAY COUNTER
:ISSUE COMMAND
*WAIT FOR SSR TO SET
*GET TSSR CONTENTS
SSET UP EXPECTED

75%

:BR,

CMP

BEQ

R1,R2

:ARE THEY EQUAL
IF OK

TSV? = HARDWARE TESTS 1-8
TEST
S: SPACE RECORDS

4758 051472
051472
051476

4759
4760
4761
4765

051500
051504
051506
051512
0515164
051520

051522
051526
051530
051534

051534
051536
051540
051542
4766 051544
051544
4767 051546
2;23 051552

012727
000000
013727
000000
005367
001375
005367
001367

005337
001351
005237

MACRO M1113

000250

PAGE

119-2

DELAY

250

DEC
BNE
INC
ERRHRD

T25DLY
67$%
FATFLG
ERRNO, T2SWDE ,PKTSSR

SEQ 0230

:DELAY .25 SECONDS

002116
177772
177756
054002

002212

104456
001033
054065
012136
104406
012703
013737

25-MAY-82 09:19

75$:

010000
003114

(.770

CKLOOP

MOV
MOV

053752

#250, (PC) +
0
LSDLY, (PC)+
0
-6(PC)
=4
222(PC)
.=20

TRAP
.WORD
"WORD
‘WORD

CSERHRD
539
T25WDE
PKTSSR

TRAP

C$CLP1

:BUMP DOWN COUNTER
;BR, IF NOT AT END OF DELAY
*BUMP COUNT
STSSR INCORRECT AFTER READ DATA

:LOOP IF SELECTED

#4096. ,R3
FREE, T2SRB

MOV
.WORD
MOV
.WORD
DEC
BNE
DEC
BNE

:RECORD SIZE
:STARTING READ BUFFER ADDRESS

:ttttttttttttttttttttt'tttttttttttttttttttttttttttttttttttttttttttt

4771

2;;%

SREAD DATA,ACK COMMAND

4774

:'ttttttttttttttttttt.tttttttttttttttttt*tt'ttttttttttttt.ttt'ttttQt

4775

4776
4777
4778
4779

051560
051566
051572
051576

012737
012704
010337
010465

4781 051606
4782 051612

016501
012702

4784
4785
4786
4787
4791

001411
032701
001006
005237

4780 051602

4783 051616

051620
051622
051626
051630
051634

051634
051636
051640
0516462
4792 051644
051644
4793 051646

4794 051652

4795 051656
4796 051662
4797 051664
4798 051666
4802 051672
051672
051674

051676

004737

020102

100001
053750
053756
000000
016340
000002
000200

013702
162702
020102
001406
005237

104456
001035
054355

1658:

MOV
MOV
MOV
MOV

#100001, T25PK3
#125PK3 R4
R3,72557
R% . TSDB(RS)

;READ DATA,ACK COMMAND
:SET UP R4 WITH PACKET ADDRESS
*SET UP RECORD SIZE IN PACKET
*ISSUE COMMAND

MOV
MOV

TSSR(RS) ,R1
#SSR,R2

SGET TSSR CONTENTS
*SET UP EXPECTED

170s
#BIT2,R1
1708
FATFLG
ERRNO,RDERR,PKTSSR

:BR, IF OK
:CHECK FOR TAPE STATUS ALERT
SIF SET ALL IS WELL
‘BUMP COUNT
JTSSR INCORRECT AFTER READ DATA

JSR

CMP

BEQ
BIT
BNE
INC
ERRHRD

000004

002212

104456
001034
005204
012136
104406
017701

053750

1708:

PC.WAITF

R1,R2

CKLOOP
MoV

ofFREE ,R1

000001

SUB
CMP
BEQ
INC
ERRHRD

#1,R2
R1.R2
2008
FATFLG
ERRNO, T25WNG, EXPRE(

002212

MOV

SARE THEY EQUAL

TRAP
.WORD
.WORD
"WORD

CSERHRD
540
RDERR
PKTSSR

:LOOP IF SELECTED

131242

053776

JWAIT FOR SSR TO SET

T25CNS,R2

TRAP
CS$CLP1
JGET 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
TRAP
CSERHRD
JWORD
541

.WORD

T25WNG

—

TSV7 =~ HARDWARE TESTS 1-8
TEST
S: SPACE RECORDS

051700

015564

051702

104406

4803 051702
4804 051704

4805
4806
4807
4808

051704
051704

051706
051714
051716
051722

104403

023727
103402
004737

MACRO M1113

2008:

25-MAY-82 09:19

M2
PAGE 119-3

CKLOOP

017272

000017
999$:

CMP
8LO
JSR

.WORD

EXPREC

TRAP

(sCLP

TRAP

C$ESUB

$23353555>>>> END SUBTEST >>>>>>>>>>>>
L10076:

ENDSUB

002212

SEQ 0231

FATFLG,#15.
999¢
PC,CKDROP

;1S ERROR COUNT AT 25

;B6R, IF LESS THAN 25

sTRY

TO DROP THE UNIT

TSV7 = WARDWARE TESTS 1-8
TEST
S: SPACE RECORDS
4811
4812
4813
6814
4815
4816
4817
4818
4819
4820
4821
4822
4823 051722
051722

051722
051724
051730
051736
051742
051746

4824
4825
/826
4827
4828
4829
4830
4831
(832
4833
4834
4835
4836 051754
4837 051760
4838 051762

051762
051766
051770
051774
051776
052002
052004
052010
4839 052012
4840 052016
4841 052020
4842 052024
4846 052030
052030
052032
052034
052036
4847 052040

4848
4849 052046
4850
4851
4852

4853

4854
4855
4856

MACRO M1113

N 2
PAGE 121

25-MAY-82 09:19

SEQ 0232

STEST S, SUBTEST 6
sVERIFJES THAT SPACE RECORDS REVERSE CAN SPACE A
;MULTIPLE NUMBER OF RECORDS (2 THROUGH 64K OR THE
sMAXIMUM NUMBER OF RECORDS WRITTEN ON THE
;WHICH EVER IS LESS.

IDD335555555> BEG%NéSUBTEST D33333>>3>>>

BGNSUB
104402

004737
013737
004737
004737
013737

055166
054000

053776

MOV

055322
054000

054002

Mov

055260

TAPE

15.6:

JSR

PC,T2SREST

JSR
JSR

PC,T2SRT?
PC.T25RT3

sSET
sSET
¢SET
sSET
sSET

T25CNT, T25CN2

T5CNT, T250LY

TRAP

COMMAND PACKET
UP RECORD COUNTER
UP OTHER COMMAND PACKET
UP OTHER COMMAND PACKET
UP REWIND DELAY COUNTER

csssus

MALALAASASLAAAARSAARAAAA
AR
ARl
Rl
iRttt dld)

:ISSUE CONTROLLER 'SOFT'* INITIALIZE - CARRY BIT CLEAR IF ERROR
[

SRARNARAAAARANNNPARARAN
AN AARNANAARNRARAARAANNARRAAANRARANAROAANROAAOARS

004737

016064

012727
00000
013727
000000
005367
001375
005367
001367
005337
001356
016501
005237

000250

103427

108:

;DO INITIALIZE ON CONTROLLER
;BR IF INIT WAS 0K
JWAIT ABOUT .25 SECONDS

JSR
.
8Cs
DELAY

PC,SOF INIT

DEC
BNE

T25DLY
108

INC
ERRDF

FATFLG
ERRN
SF IERR,O,
SF IMSG

c0$
250

MOV
.WORD
MOV
.WORD
DEC
BNE
DEC
BNE

002116
177772
177756

054002
000002
002212

MoV

104455
001036
003650

TSSR(RS)
,R1

sDEC COUNTER
:BR, IF MCRE LOOPS REQUIRED
:CONTENTS OF TSSR REGISTER
;BUMP COUNT
sFATAL ERROR TSSR WAS NOT OK
TRAP

LWORD

012124
013737

002172

012704

053630

053650

208:

FAAAAS

.WORD
.WORD

MoV

UNITN, T25DSW

¢SET UP UNIT NUMBER

Mov

#T25PACKET
R4

sSUBROUTINE NEEDS PACKET ADDRESS

AR AR

ARl

#250,(PC)+
0
LSOLY, (PC)+
O
~6(PC)
.~4
=22(PC)
.=20

ittt

dtRdlRilddd)

:WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
.

SRR RAN AR P R AN A AR AN AN IR R AR RN A RAANNRRANRNARAN AN

RN AN

RRARRY

CSERDF

542

SFIERR
SFIMSG

TSV7 = HARDWARE TESTS 1-8
TEST
S: SPACE RECORDS

4857 052052
4858 052056
4859 052060

4863 052064
4864 052066
052066
052070
052072
052076
4865 052076
(86 052076

004?37
103497
005237

010001

MACRO M1113

010752

JSR
BCS
INC

002212

104456
001037
005054
012124

MOV
ERRHRD

258:

104406

4867

25-MAY=-82 09:19

PAGE

121-1

PC,WRTCHR
25$
FATFLG

RO,R1
ERRNO,WRTMSG, SF IMSG

CKLOOP

SEQ 0233

;1SSUE WRITE CHARACTERISTICS
‘BR, IF COMMAND ISSUED OK
*BUMP COUNT

:SAVE CONTENTS OF TSSR
‘WRITE CHARACTERISTISC FAILED
TRAP
JWORD
.WORD
-WORD
;LOOP IF SELECTED
TRAP

CSCLPI

:ttttttttttttfit'tttit'tttttttttfittttfitttttttfittttttttttt'tttttttttt

4868

2393

$1SSUE REWIND COMMAND TO SELECTED TAPE DRIVE

4871
4872
4873 052100

:'ttttttt'ttttttt.tttt'ttttttttttt.ttittfittttttttt.ttttttttittttt.tt

4874
4875
4876
4880

CSERHRD
543
WRTMSG
SFIMSG

052104
052106
052110
052114

052114
052116
052120
052122

4881 052124
(882 052124

004737
103407
010001
005237

011104

JSR
8¢S
MOV
INC
ERRHRD

002212

104456
001040
054755
012136

30$:

104406

PC,REWIND
30$
RO,R1
FATFLG
ERRNO, T2SRWN, FKTSSR

CKLOOP

;CALL TAPE REWIND COMMAND
*BR, IF NO PROBLEM
SSAVE TSeR
:BUMP COUNT
*REWIND NOT ACCEPTED

:LOOP IF SELECTED

TRAP
.WORD
"WORD
.WORD

CSERHRD
544
T25RWN
PKTSSR

TRAP

C$CLP1

4883

:ttttttttttttttttttttttttt'ttt.ttttt'ttttttttttttttttfittttttttt'ttt

4884

4887

:'tttt't."!tttttttttttt't'ttttttttttttt'ttttt.ttt.ttttfit'tt't.t.tt'

2332

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

4,888
4889 052126
4890 052132
4891 052134
4892 052140

4893 052142

4894 052144
4898 057150

052150
052152
052156
052156

4899 052160

052160

013701
010102
052702
020102

053660

005237

002212

001406

104456
001041
054145
015564

104406

4900 052162

013701

4902 052172

020201

4901 052166

4903 052174

012702
010103

4906 052202
4907 052204

010203

000401

TZSBFR+6 R1
R1.R2
#8iT1,R2
R1,R2

INC
ERRHRD

FATFLG
ERRNO, T25BOT,EXPREC

BEQ

408:
053776

177776

‘BUMP COUNT
sTAPE NOT AT HOT AFTER REWIND

TRAP
.WORD
.WORD
.WORD

EXPREC

TRAP

CSCLP1

;NUMBER OF RECORDS ON TAPE

R2,R1

:WHICH VALUE CAN WE USE

86T

468

B8R

47%

MOV

*BR, IF EQUAL (OK)

T25CN2.R1

c65534.,a2

MOV

;PICK UP XSTO
SSET UP EXPECTED
SSET BOT BIT IN EXPECTED
:DOES EXP = REC'D

;LOOP IF SELECTED

MOV

CMP

468:
478:

408

CKLOOP
MOV

003002

4904 052176

4905 052200

000002

MOV
MOV
8IS
CMP

n1 R3

R2,R3

‘MAX IT CAN SPACE OVER

:BR, IF # WRITTEN > 64K

:# WRITTEN CAN BE USED

*MOVE ON

TUSE MAX NUMBER

CSERHRD
545
T2580T

TSV? - HARDWARE TESTS 1-8
TEST
S: SPACE RECORDS
4908 052204
4909
4910
6911
4912
4913
4914
4915
4916 052210
4917 052216
4918 052222
4919 052226
4920 052234
4921 052240
4922 052244
4923 052250
4924 052252
4925 052254

4926
4927
4928
4932

052304
052310
052312
052316

4933 052326
4934 052330
4935 052334
4936 052340

4938 052344
4939 052346
4940 052350
4941 052352
4942 052356
4943
4944
4945
4946
4947
4948
4949
4950 052362
4951 052370
4952 052374
4953 052400
4954 052406

010337

MACRO M1113

25-MAY-82 09:19

053752

SEQ 0234

R3,T25R8B

MOV
AL AAARAAA

PAGE 121-2

¢NUMBER OF RECORDS TO SPACE OVER
A

S]]

*SPACE FORWARD,ACK,CVC=1 COMMAND
»

AN AAR

140010

053750
000000
053776
016340
000002
000200

053750

054002

48%:

000250

013701

T25CN2, T25DLY

s SPACE FORWARD ,ACK,CVC=1 COMMAND
sSET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND
sSET _UP DELAY COUNTER

MOV
MOV

TSSRYRS)
,F 1
#SSR,R2

JGET TSSR CONTENTS
JSET UP EXPECTED

DELAY

50§
250

JSR

PC.WAITF

R1,R3

JWAIT FOR SSR TO SET

JARE THEY EQUAL
;BR, IF 0K
JWAIT .25 SECONDS

002116

Mov

6250.(PC)0

MOV

SSDLY.(PC)O

.WORD
DEC
BNE
DEC
BNE

177772
177756

054002

DEC
BNE

002212

INC
ERRHRD

50%:

053776
177776

MoV
MoV
CMP
MOV

55%:
60$:

000001
053752

NN R

T25DLY
4«8$

FATFLG

ERRNO, T25WDE , EXPREC

sDEC THE DELAY COUNTER
sBR, IF COUNTER HASN'T EXPIRED
sBUMP COUNT
;TSSR INCORRECT AFTER READ DATA

cxLooOP

8GT

010337

#160010,T25PK3

#T25PK3
R4
R, TSDB(RS)

. WORD

104456
001042
054065
015564
104406

AN AN RO RNANRAARRAAINRRAANANAROANNANAANNANRNRNARNNE

MOV
MOV
MOV
MOV

CMP
B8EQ

001425

012727
000000
013727
000000
005367
001375
005367
001367
005337
001351
005237

AN AN AN AR NN AN AN R

MOV
sus

T25CN2,R1
#65534
. ,R2
R2,R1
55$
R1,R3
60$

MOV

TRAP

cscLP1

sMAX IT CAN SPACE OVER

sWHICH VALLC CAN WE USE

;BR, IF # WRITTEN > 64K
:# WRITTEN CAN BE USED

-MOVE ON
sUSE MAX NUMBER
;DON'T GO ALL THE WAY YET
sNUMBER OF RECORDS TO SPACE OVER
R AN RN RARNE RS

140410
053750
000000
053776
016340

053750

054002

70%:

AR AR

MOV
MOV
Mov
MOV

JSR

AR AN

RN A N ARR RN AN NN

#1460410,125PK3
#T25PK3,R4
R4, TSDB(RS)

T25CN2, 1250LY

PC.WAITF

RARRANRARAN

CSERHRD

546
T2SWDE
EXPREC

*SPACE REVERSE,ACK,CVC=1 COMMAND
NP AR AR AN

=22(PC)
~20

TRAP
.WORD
.WORD
-WORD

sNUMBER OF RECORDS ON TAPE

RN AR AN R AN AN AR AN NN AN AR R RAARRA N AR NANNRARNNRA NN

=-6(PC)
.=4

RN RAANNRANNRENANNRS

s SPACE REVERSE ,ACK,CVC=1 COMMAND
sSET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND
+SET UP COUNTER
¢WAIT FOR SSR TO SET

-—

TSV7 ~ HARDWARE TESTS 1-8

TEST

SPACE RECORDS

4955 052412
4956 052416

4957 052422
4958 052404

016501
012702

020102
001425

000002
000200

052426
052432
052434
052440
052442
052446
052450
052454

012727
000000
013727
000000
005367
001375
005367
001367

000250

4959 052426

4960 052456
4961 052462
4962 052464

005337
001351
005237

052470
052472
052474
052476

104456
001043
054065
015564

4966 052470

4967 052500
052500
4968 052502

2393 052506

104406
012703

013737

MACRO M1113

25-MAY-82 09:19

PAGE 121-3

SEQ 0235

MOV
MOV

TSSR(RS) ,R1
#SSR_R?2

DELAY

250

DEC
B8NE
INC

T25DLY
708
FATFLG

;BUMP COUNTER DOWN
sBR, IF COUNTER HASN'T EXPIRED
;BUMP COUNT

ERRHRD

ERRNO, T25WDE ,EXPREC

sTSSR INCORRECT AFTER READ DATA

CMP
BEQ

JGET TSSR CONTENTS
JSET UP EXPECTED

R1,RS
75$

$ARE THEY EQUAL
‘BR, IF OK

JWAIT ABOUT .25 SECONDS

002116

177772
177756
054002
002212

75%:

010000

003114

MOV

053752

4971
4972

CkLOOP

MOV

;LOOP IF SELECTED

#4096. ,R3

TRAP
.WORD
.WORD
.WORD

CSERHRD
§47
T2SWDE
EXPREC

TRAP

cscLP

;STARTING READ BUFFER ADDRESS

I LTI

23;2

sREAD DATA,ACK COMMAND

4975

;tttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttt

4976
4977
4978
4979
4980
4981
4982
4983
4984
4985

052514
052522
052526
052532
052536
052542
052546
052552
052556

4986 052562

4987
4988
4989
4990
4994

052564
052566
052572
052574
052600
052600

052602
052604
052606
4995 052610
052610

4996
4997
4998
4999

052612
052616
052622
052624

012737
012704
012700
004737
010337
010465
004737
016501
012702

020102
001411
032701
001006
005237

100001
053750
177777
017512
053756
000000
016340
000002
000200

017701
012702
020102
001406

165$:

002212

170$:
130276
000001

MOV
MOV
MOV
JSR
MOV
MOV
JSR
MOV
MOV

#100001,725Pk3
#T25PK3 R4
8177777 ,R0
PC,FILLMEM
R3,T25S2
R4,TSDB(RS)
PC,WAITF
TSSR(RS) ,R1
#SSR,R2

BEQ
BIT
BNE
INC
ERRHRD

1708
#BIT2.R1
1708
FATFLG
ERRNO,RDERR,EXPREC

CMP

000004

104456
001044
005204
015564

104406

053750

R1,R2

(KLOOP
MOV
MOV
CMP
BEQ

:READ DATA,ACK COMMANV
JSET UP R4 WITH PACKET ADDRESS
JSET ALL ONES INTO CORRECT REGISTER
SFILL MEMORY WITH RECORD SIZE
JSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
JWAIT FOR SSR TO SET
sGET TSSR CUNTENTS
JSET UP EXPECTED

:ARE THEY FQUAL

:BR, IF OK
JCHECK FOR TAPE STATUS ALERT
;BR, IF BIT SET
;BUMP COUNT
;TSSR INCORRECT AFTER READ DATA
TRAP
CSERHRD

;LOOP IF SELECTED
oFREE R
#1,R2
R1,R2
200$

#250,(PC)+
O
LSDLY,(PC)+
O
-6(PC)
A
=22(PC)
.=20

JRECORD SIZE

FREE.TéSRB

I
:

MOV
WORD
MOV
.WORD
DEC
BNE
DEC
BNE

-WORD
.WORD
MWORD

548
RDERR
EXPREC

TRAP

CsCLP

sGET FIRST WORD FROM BUFFER
JSET UP EXPECTED
;sWAS RECORD NUMBERED R3
sBR, IF CORRECT RECORD

TSV7 = HARDWARE TESTS 1-8

TEST

SPACE RECORDS

5000 052626
5004 052632

052632
052636
052636
052640
5005 052642
052642
5006 052644
052644
052644
5007 052646

5008 052654
5009 052656
5010 052662

005237

MACRO M1113

002212

INC
ERRHRD

104456
001045
054530
015564

2008:

104406
104403
023727
103402
004737

25-MAY-82 09:19

017272

000017

;BUMP COUNT
s SHOULD HAVE BEEN RECORD NUMBER 1

FATFLG,#15.
999%
PC.,CKDROP

J253333>>>5>> END SUBTEST >>>>>>>>>>>>
L10077:
1RAP
CSESUB
;1S ERROR COUNT AT 25
;BR, IF LESS THAN 25
;TRY TO DROP THE UNIT

(CKLOOP

999§
:

(MP
BLO
JSR

SEQ 0236

FATFLG
ERRNO, T25WNH,EXPREC

ENDSUB
002212

PAGE 121-4

TRAP
.WORD
.WORD
.WORD

CSERHRD
549
T2S5WNH
EXPREC

TRAP

CSCLP

TSV7 ~ HARDWARE TESTS 1-8
TEST
S: SPACE RECORDS

MACRO M1113

5012

25-MAY-82 09:19

F
3
PAGE 122

SEQ 0237

5013

gg}g

sTEST 5,

5016

EVERIFIES THAT SPACE RECORDS REVERSE ISSUED WHILE THE

gg}g

;WiTH THE NONEXECUTABLE FUNCTION (NEF) ERROR BIT SET.

5017

JTAPE IS AT BOT RESULTS IN FUNCTION REJECT TERMINATION

5020

5021
5022
5023 052662
052662

052662
5024 052664

5025 052670
2859 052674

SUBTEST 7

:
:=

104402
004737

055166

JSR

PC,T25REST

2O5555553>>>> BEGIN SUBTEST >>>>>>>>>>>>
15.7:
TRAP
cs8sus
;SET COMMAND PACKET

004737

055322

JSR

PC,T25RT3

JSET UP OTHER COMMAND PACKET

004737

BGNSUB

055260

JSR

5028

5029

PC,T25RT?2

JSET UP OTHER COMMAND PACKET

gggq

s ISSUE CONTROLLER ‘'SOFT'' INITIALIZE - CARRY BIT CLEAR IF ERROR

5032

:'t'ttttttttttttttttttttt'ttt'tttttttttttttttQtttttttttttttttttttttt

5033
5034 052700
5035 052704
5036 052706
5040 052712
5041 052714
052714
052716
052720
052722
ggz% 052724

2822 052732

004737
103407
005237
010001

016064
002212

104455
Cl1046
003650
012124
013737

002172

012704

053630

053650

20%:

JSR
8CS
INC
MOV
ERRDF

PC,SOFINIT
20$
FATFLG
RO,R1
ERRNO,SFIERR,SFIMSG

MOV

UNITN,T250SW

;DO INITIALIZE ON CONTROLLER
sBR IF INIT WAS OK
JBUMP COUNT
;CONTENTS OF TSSR REGISTER
JFATAL ERROR TSSR WAS NOT 0K
TRAP
.WORD
.WORD
.WORD
JSET UP UNIT NUMBER

MOV

#T2SPACKET R4

sSUBROUTINE NEEDS PACKET ADDRESS

5046

5047
ggzg

:
SWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

5050

:-ttttttttttt-ttttttt-ttttttttntntttttt-tttttttntttnt'tttttttttttttt

5051
5052 052736
5053 052742
5054 052744
5058 052750
5059 052752
052752
052754
052756
052760
5060 052762
5061 052762

004737
103407
005237
010001
104456
001047
005054
012124
104406

010752

AR A A AN

JSR
B8CS
INC
MOV
ERRHRD

002212

25$:

CSERDF
550
SFIERR
SFIMSG

AR AN AN AT A AN AN AN NN R NNA AN RANANNENNANNR RN NAN RN

PC,WRTCHR
25%
FATFLG
RO,R1
ERRNO,WRTMSG,SFIMSG

CKLOOP

5062

(NN AR AR AN R RN AN NN NN

5063

AR N AN

JISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED OK
;BUMP COUNT
sSAVE CONTENTS OF TSSR
JWRITE CHARACTERISTISC FAILED
TRAP
LWORD
.WORD
.WORD
:LOOP IF SELECTED
TRAP

R AR AN R RN AR AR AR IR AN NN C I EARNRNERY

CSERHRD
551
WRTMSG
SFIMSG
CSCLPY

TSV7 -~ HARDWARE TESTS 1-8
TEST
5: SPACE RECORDS

5064
5065
5066
5067
5068 052764
5069 052772
5070 052772
5071 052774
5075 053000
053000
053002
053004
053006
5076 053010
053010

MACRO M1113

25-MAY-82 09:19

G 3
PAGE 122-1

SEQ 0238

s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
.

LALLM AALA

004737
103407
010001
005237

011104

JSR
8(s

002212

308:

104406

ARl

PC,REWIND

MOV

RO,R1

ERRHRD

ERRNO,T25RWN,PKTSSR

FATFLG

cLOOP IF SELECTED

AN AN AN R NN NN

CSERHRD
552
T25RWN

TRAP

CKLOOP

ARA R AR AR

sCALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
sSAVE TSSR
+BUMP COUNT
sREWIND NOT ACCEPTED

30§

INC

104456
001050
054755
012136

AR Rl

.WORD
.WORD
.WORD

PKTSSR

TRAP

cscLePt

AN RANANRRAIN RN NANANANNARANNRNARNNN
NN
NN D

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
[

5084 053012
5085 053016
5086 053020
5087 053024
5088 053026
5089 053030
5093 053034
053034
053036
053040
053042
5094 053044
053044
5095 053046

013701
010102
052702
020102
001406
005237

012737

5097
5098
5099
5100
5101
5102
5103 053054
5104 053062
5105 053066
5106 053066
5107 053072
5108 053076

5109 053102
5110 053106
5111 053110
5112 053112
5116 053116
053116
053120
053122

053660
000002
002212

053752

T258FR+6,R1
R1,R2

BIS
CMP
BEQ

#8IT1,R2
R1,R2

ERRHRD

ERRNO, T25B0T ,EXPREC

408

INC

408:

000001

MoV
MOV

104456
001051
054145
015564
104406

ALALASRL

FATFLG

ckLoorP
Mov

TSI

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

<LOOP IF SELECTED
#1,T25R8

CSERHRD
553

TRAP

.WORD
-WORD
-WORD

125807
EXPREC

TRAP

csCLP1

sNUMBER OF RECORDS TO SPACE OVER

NN AN RN R AN N AR AN NI NN AN

NN R AR AR NN N R AN N NN AN

NARN AN AR

NN NRARR

:SPACE REVERSE,ACK COMMAND
[

RN AR R

100410

053750
000000

016340
000002
100206

002212
104456

001052
054065

053750

65%:

MOV
MoV
MOV

JSR

MOV
MOV

A AR AN RN AR NI

AN AR AR AN A RAN AT AN N AR NN

AN AN NN

RN RANNRARN I RN

#100611,7125Pk3
#T25Ph,
R4

sSPACE REVERSE ,ACK COMMAND
sSET UP R4 WITH PACKET ADDRESS

R4 ,TSDB(RS)

s ISSUE COMMAND
JWAIT FOR SSR TO SET
:GET TSSR CONTENTS
JSET UP EXPECTED

PC,WAITF

TSSR(RS)
,R1
#SSR!SC!BIT1!BITZ2,R2
R1,R2

CMP
75$
8EQ
FATFLG
INC
ERRHRD ERRNO, T25WDE ,PKTSSR

JARE

THEY EQUAL

:BR, IF 0K
;BUMP COUNT
sTSSR INCORRECT AFTER READ DATA
TRAP

-WORD

CSERHRD
554

T25WDE

TSV7 = HARDWARE TESTS 1-8
SPACE RECORDS

053124
053126
053126

012136

758:

104406

SRR

25-MAY-82 09:19

H 3
PAGE 122-2

SEQ 0239

CkLOOP

cLOOP [F SELECTED

AR AR RN RN RN A AN AN C RN AN N

RN NN

.WORD

PKTSSR

TRAP

cscLPl

RAAN RN RANARANANARNNANAANNNRANATROR
AN

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
.

b
)
b
b
and cd
b
b ovd
- e

graunvnncnbt~uu~uu
ONSPRONONSNONSO

VIV
VIALW
WW WWWWNNWNWWWNW

-~
S OVONOWVESWN—OO®

WWNINIMNINININONIPOININ)
= 2

ad od

D o

D e

AV LV IV IV [V TV AN JV LV, IV [V, [V [V, IV ]

lelelelelelolelelalals

TEST

MACRO M1113

5135 053162
053162

5136 053164

013701
010102
052702
020102
001406
005237

AAAAALAAAARA

053660

MOV
MoV
8IS
CMP

002000

8EQ

002212

INC
ERRHRD

104456
001053

0564613
015564

1708:

104406

104403
023727
103402

004737

T25BFR+6,R1
R1,R2

#81T10,R2
R1,R2
1708
FATFLG
ERRNO, T25NEF ,EXPREC

sGET XSTO STATUS WORD
sSET UP EXPECTED

sSET THE NEF BIT
sARE THEY EQUAL
:BR, IF EQUAL (GOOD)
:BUMP COUNT
sNEF SHOULD BE SET

CkKLOOP
ENDSUB

002212

017272

000017

CMP

9998

222D

BLO
JSR

L10100:

IRAP

EXPREC

TRAP

CSCLPI

TRAP

(SESUB

FATFLG,#15.

;1S ERROR COUNT AT 25

PC,CKDROP

sTRY TO DROP THE UNIT

999%

:BR,

CSERHRD
555
T2SNEF

-WORD
+WORD
.WORD

IF LESS THAN 25

TSV7? - HARDWARE

TEST

SPACE

TESTS 1-8

RECORDS

MACRO M1113

25-MAY-82 09:19

PACE

123

SEQ 0240

51462

g}zé

JTEST S, SUBTEST 8

5146
5147
5148
5149
5150
5151
5152
5153
5154
5155 053202
053202
053202
5156 053204
5157 053210
g}gg 053214

JVERIFIES THAT A SPACE RECORDS REVERSE COMMAND THAT
sCUASES THE TAPE TO RUN INTO BOT (WITH THE TAPE NOT
JINITIALLY AT BOT) CAUSES A TAPE STATUS ALERT
;TERMINATION AND SETS THE REVERSE INTO B80T (RIB)
;sSTATUS 8IT
:
:
:
BGNSUB
O5555>5>>3>> BEGIN SUBTEST >>>>>>>>>>>>
15.8:
TRAP
(s8suB
JSR
PC,T25REST
;JSET COMMAND PACKET
JSR
PC,T25RT2
JSET UP OTHER COMMAND PACKET
JSR
PC,T25RT3
JSET UP OTHER COMMAND PACKET

5143

104402
004737
004737
004737

055166
055260
055322

5160

5161

5164

;tttttt-tntttt-tttttt't-tt-----t--.nq-ttntnn-t--tnt--tt'tn-tatt-tt.

g}gg
5165
5166 053220

5167
5168
5172
5173

053224
053226
053232
053234
053234
053236
053240
053242
g};g 053244

g%;{; 053252

AN AN A NN NN AN AR

NN P AN AN AN AN AN

AN AN ANARARANAR R AN RN NN AN

;ISSUE CONTROLLER °‘SOFT'* INITIALIZE - CARRY BIT CLEAR IF ERROR

004737
103407
005237
010001

016064

002212

104455
001054
003650
012124
013737

002172

012704

053630

053650

208:

5178

AR AR

5179

JSR
8CS
INC
MOV
ERRDF

PC,SOFINIT
20%
FATFLG
RO,R1
ERRNO,SFIERR,SF IMSG

MOV

UNITN,T250SW

;D0 INITIALIZE ON CONTROLLER
:BR IF INIT WAS 0K
;BUMP COUNT
JCONTENTS OF TSSR REGISTER
JFATAL ERROR TSSR WAS NOT 0K
TRAP
.WORD
.WORD
.WORD
JSET UP UNIT NUMBER

MOV

#T25PACKET R4

: SUBROUTINE NEEDS PACKET ADDRESS

AN R

AN AR AN AN AN T AR RN AN AR RN NN AN AN A RN AN RN NI NN NAATANANRNR

2}2‘1’

SWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

5182

:-tttttt.tttttttttttttttt'ttttttttttttttttt.tttttlttt'tntttttttttttt

5183
5184 053256
5185 053262
5186 053264
5190 053270
5191 053272
053272
053274
053276
053300

5192 053302
053302
5193

004737
103407
005237
010001
104456
001055
005054
012124
104406

010752

JSR
8Cs
INC
MOV
ERRHRD

002212

25%:

(SERDF
556
SFIERR
SFIMSG

(kLOOP

PC,WRTCHR
25%
FATFLG
RO,R1
ERRNO,WRTMSG,SFIMSG

;ISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED OK
;BUMP COUNT
;SAVE CONTENTS OF TSSR
JWRITE CHARACTERISTISC FAILED
TRAP
WOPD
.WORD
.WORD
;LOOP [F SELECTED
TRAP

CSERHRD
557
WRTMSG
SHIMSG
CSCLP

—

TSV7 = HARDWARE 1{STS 1-8

TEST

S5:

SPACE RECORDS

MACRO M1113

5194

5195

25-MAY-82 09:19
A

PAGE 123-1

SEQ 0241
I

P e

L P

ST I

I LY

g}gg

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

5198
5199
5200 053304
5201 053310
5202 053312
5203 053314
5207 053320
053320
053322
053324
053326
5208 053330
5209 053330

:--attt---ntt--t--n-t-nttntutt.-t.tttttta.tt.tt.ttttttaatnntttt
004737
103407
010001
005237

011104

JSR
8CS
MOV
INC
ERRHRD

002212

104456
001056
054755
012136

308:

104406

5210
5211

PC,REWIND
308
RO,R1
FATFLG
ERRNO,T2SRWN,PKTSSR

(K 00P

sCALL TAPE REWIND COMMAND
s8R, IF NO PROBLEM
:SAVE TSSR
sBUMP COUNT
SREWIND NOT ACCEPTED
TRAP
.WORD
.WORD
.WORD
sLOOP [F SELECTED
TRAP

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

5214
5215
5216 053332
5217 053336
5218 053340
5219 053344
5220 053346
5221 053350
5225 053354
0533564
053356
053360
053362
5226 053364
053364
gsgg 053366

:'tttttttttttt.tttttttttttttttttttttttttttttt.ttttt'ttttt.tttttttttt
013701
010102
052702
020102

001406
005237

053660

Mov
MoV
81§
CMP

000002
002212

104456
001057
054145
015564
104406
012737

40$:
000001

T258FR+6,R1
R1,R2
#8171,R2

BEQ
INC
ERRHRD

053752

5229

CKLOOP
MOV

NN AN RN RN R

5230

R1,R2
40$
FATFLG
ERRNO,T25B0T,EXPREC

#1,T25RB

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

:BR, IF EQUAL (0K)

sBUMP COUNT
sTAPE NOT AT BOT AFTER REWIND
TRAP
.WORD
.WORD
.WORD

RN R RN AR NI NN AR N AN NN AN AR AR AR AR AN NN N

I NI ENNNNARS

;

sSPACE FORWARD,1E,ACK,CVC=1 COMMAND

5233

:--tt-nnuunnnn.nnnnnt--utt.n--"nnnnunn"nnn

5241 053426

CSERHRD
559
T25B0T
EXPREC

TRAP
CSCLPT
¢NUMBER OF RECORDS TO SPACE OVER

§5§5

5242 053430
5243 053432
5247 053436
053436
053440

cscLPl

.'ittttttttttttttttttt'ttttttttttittt.tttttttttttttttttttttttttttttt
H

§S}§

5234
5235 053374
5236 053402
5237 053406
5238 053412
5239 053416
5240 053422

CSERMRD
558
T25RWN
PKTSSR

012737
012704
010465
004737
016501
012702

020102

001406
005237

106456
001060

140210
053750
000000
016340
000002
000200
002212

053750

MOV
MOV
MOV
JSR
Mov
MoV

(MP

#1640210,725PK3
#T125PK3,Ré
R4, TSDB(RS)
PC,WAITF
TSSR(RS5) ,R1
#SSR,R2

R1,RS

BEQ
75%
INC
FATFLG
ERRHRD ERRNO, T25WDE ,EXPREC

sSPACE FORWARD,IE ,ACK,CVC=1 COMMAND
sSET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND
cWAIT FOR SSR TO SET
¢GET TSSR CONTENTS
sSET UP EXPECTED

:ARE THEY EQUAL

sBR, IF 0K
;BUMP COUNT
¢TSSR INCORRECT AFTER &eAD DATA
TRAP
CSERHRD
.WORD
560

—

TSV? - HARDWARE TESTS 1-8

TEST

SPACE RECORDS

053442
053444

054065
015564

053446
gggg 053450

104406
012737

5248 053446

MACRO M1113

25-MAY-82 09:19

PAGE 123-2
SEQ 0242

75$:
000020

053752

5251
5252

CKLOOP
MOV

:LOOP IF SELECTED
#20,T2SRB

.WORD
.WORD

TRAP
(CSCLP1
:NUMBER OF RECORDS TO SPACE OVER

;'."ttt.t'tttt.tttttt"'t"Qtttttttttttttttt'tttttttttttt'tttt't"
;

3522

:SPACE REVERSE,IE,ACK COMMAND

5255
5256
§257 053456
5258 053464
5259 053470
5260 053474
5261 053500

Ettttttttttttittttttt'ttt'tttttttttttttttttttt.ttttttt'tttttttttttt
012737
012704
010465
004737
016501

5262 053504
5263 053510

012702
020102

5265 053514
5269 053520
053520
053522
053524
053526
5270 053530
053530
5271 053532
5272 053536
5273 053540
5274 053544
5275 053546
5276 053550
5280 053554
053554
053556
053560
053562
5281 053564
053564
5282 053566
053566
053566

005237

5264 053512

5283 053570

5284 053576
5285 053600
5286 053604
5287

001406

100610
053750
000000
016340
000002
100204

053750

MOV
CMP

BEQ

INC
ERRHRD

104456
001061
054065
015564
104406

013701
010102
052702
020102
001406
005237

175%:

053666
000001
002212

1808:

104406
104403

103402
004737

002212
017272

016546

5292 053612
5293 053616
5294 053616
053616

000137

046466

104432

000017

SSET UP EXPECTED
*ARE THEY EQUAL

FATFLG
ERRNO, T2SWDE,. XPRE"

SBUMP COUNT
JTSSR INCORRECT AFTER READ DATA
TRAP
(SERHRD
.WORD
561
.WORD
T2SWDE
.WORD
EXPREC
:LOOP IF SELECTED
TRAP
CS$CLP1
:GET XST3 STATUS WORD
SSET UP EXPECTED
*SET THE RIB BIT
SARE THEY EQUAL
*BR, IF EQUAL (GOOD)
:BUMP COUNT
:NEF SHOULD BE SET
TRAP
CSERHRD
.WORD
562
.WORD
T2SNEF
.WORD
‘EXPREC

178s

T258FR+14,R1
R1,R2
#81T0,R2
R1,R2
1808
FATFLG
ERRNO, T2SNEF ,EXPREC

CKLOOP

CMP

9998:
:

193$:

FATFLG.#15.

BLO
JSR

9998
PC,CKDROP

JSR

PC,TSTLOOP

JMP

125L00P

BCC

EXIT

;SPACE REVERSE,IE,ACK COMMAND
sSET UP R4 WITH PACKET ADDRESS
:ISSUE COMMAND
SWAIT FOR SSR TO SET
:GET TSSR CONTENTS

#SSR'BIT2!SC,R2
R1,R2

ENDSUB

004737

103002

#100610,T25PK3
#T25PK3 R
R4, TSDB(RS)
PC.WAITF
TSSR(RS) ,R1

CKLOOP

MOV
MOV
BIS
CMP
BEQ
INC
ERRHRD

104456
001062
054613
015564

023727

MOV
MOV
MOV
JSR
MOV

002212

5290 053604

5291 053610

T2SWDE
EXPREC

‘BR, IF OK

TRAP
CSCLP1
JO355333>35>> END SUBTEST >>3>33>>>>>>
L10101:
TRAP
(SESUB

;1S ERROR COUNT AT 25

:BR, IF LESS THAN 2§
;TRY TO DROP THE UNIT

;D0 WE NEED TO ITERATE TEST

193¢

:BR, IF NO LOOP REQUIRED

TST

:ALL DONE THIS TEST

SEXECUTE AGAIN

TRAP

CSEXIT

—

TSV7 = HARDWARE TESTS 1-8
TEST
S: SPACE RECORDS

053620

061532

MACRO M1113

25-MAY-82 09:19

PAGE

123-3

SEQ 0243

.WORD

L10071-.

TSV7 = HARDWARE TESTS 1-8

TEST

SPACE RECORDS

5296
5297
5298
5300
5302 053630
5303 053630
5304 053632
5305 053634
5306 053636

AN LVA LV LV TV IV LW LV LV IV VLIV VLV IV [V, ]

5339
5340
5341
5342
5343
5344

053760
053760
053761
053762
053764

25-MAY-82 09:19

M3
PAGE 124

SEQ 0244

;LOCAL STORAGE FOR THIS TEST
053630
100004

053640
000000
000010

053652

3
3
3
3
3
3
3
3
3
3
3
3
3 9 053750
3 30 053750
5331 053752
5332 053752
5333 053754
5334 053756
5335

MACRO M1113

000000
000012
000000
000000

.=<. +10>8177770
T2SPACKET:

T25DATA:

T250SW:

T25BFR:

.WORD
.WORD
.WORD
+WORD
-WORD
-WORD
.WORD
.WORD

.WORD

.BLKW

s COMMAND PACKET FOR TEST

100004

JWRITE CHARACTERISTICS COMMAND, WITH

BZSBFR

sSTARTING VALUE OF BLOCK SIZE
sCHARACTERISTICS DATA BLOCK
sADDRESS OF MESSAGE BUFFER

60.

sLENGTH OF MESSAGE BUFFER

0
25,

. SELECT DRIVE ZERO
;ML SSAGE BUFFER

5250ATA

sADDRESS OF CHARACTERISTICS BLOCK

EURITE SJBSYSTCM MEMORY COMMAND PACKET
053740
100006

125°K2:

053760
000000
000006
100005

003114
000000
000000

010
200
000000,
000050

T25PK3:
T25RB:
T25w8:
T25S2:

T258F2:
125850:
1258S1:
12582:
T2583:

.~<.+10>817777C
.WORD
-WORD
.WORD
.WORD

100006

sWRITE SUB SYS MEM (OMMAND,

:SIZE OF DATA PACKET

.WORD

100005

sREAD COMMAND, AND A(CK

.WORD

SREE

¢ADDRESS OF

:SIZE OF BUFFER (EXTENT)

10
200
0
0

sBSELO AREA
;BSEL1 AREA
sSEL 2 AREA
:DATA AREA

.WORD
.WORD
.EVEN

.BYTE
.BYTE
.WORD
.WORD

5258F2

sADDRESS OF SELECT BLOCK DATA

WRITE BUFFER

sTAPE MOTION PACKET COMMAND VALUES
T25RN:
T25WDR:
T25CON:

.WORD
.WORD
.WORD
.WORD

100005

100405
102005
177777

sREAD DATA (NEXT)

sREAD DATA RETRY
¢WRITE CONTINOUS
cEND OF DATA

AND A(CK

ACK

5356 053776
5357 054000
g%gg 054002

MACRO M1113

060000
000000
000000

25-MAY-82 09:19

TZ5CN2:
T2S5CNT:
T250LY:

5360
5361

.WORD
WORD
.WORD

0
O
O

SEQ 0245

JCOUNTER FORP RECORDS
JCOUNTER FUR RECORDS
;COUNTER FOR RECORDS

.
JLOCAL TEXT MESSAGES FOR TEST

2363

5364 054004

127

122

111

T25SSR:

.ASCIZ

5369
5370
5371
5372
5373

123
123
123
123
123

160
160
160
160
160

141
141
141
141
141

T2S5WNG:
T25BNC:
T2SWNH:
T25NEF:
T25RIB:

.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ

5365
5366
5367
5368

PAGE 125

054065
054145
054212
054301

054355
054440
054530
054613
054673

124
124
124
127

5374 054755
5375 055024
5376 055077
5377 055150
5378
5379
5380
5381
5382
5383
5384
5385
5386 055166
5387 055166
5388 055172
5389 055176
5390 055202
5391 055206
5392 055210
5393 055214
5394 055220
5395 055222
5396 055226
5397 055230
5398 055234

012701
012721
012721
005021
012721
012721
005021
012721
005021
012711
012702

5400 055246
5401 055250

005742
022702

5399 055240

5402 055254
gzgz 055256

5405 055260
5406 055260
5407 055264
5408 055270
5409 055274
5410 055300
5411 055302
5412 055306

122
104
124
123

123
141
123
162

145
162
123
160

123
160
123
151

167
151
123
141

T25WDE:
T12580T:
T125TM:
T2SNET:

012762

001371
000207

053630
100004
053640

000012
053652
000024

177777

053652

64$:

000000

053740
100006
053760
000006

'TSSR Not Correct After POSITION (SPACE) Command'’
‘Tape Not At BOT After REWIND Command’
'TSSR Not Correct After POSITION (Space Command) Reject’
‘Write Tape, Status Alert, But No EOT Sensed’

‘Space Forward Failed To Position On Correct Record’
‘Space Forward, From BOT, Failed To Clear BOT Indication’
'Space Reverse failed To Position On Correct Record'
‘Space Reverse, At BOT, Failed To Set NEF (XST0)®
‘'Space Reverse, Into BOT, Failed To Set RIB (XST3)'
‘Rewind (POSITION) Command Not Accepted’
‘'Drive 7 Select Failed To Set ‘OFL'" In TSSR'
°'TSSR Not Correct After READ DATA Command'
.ASCIZ
'Space Records'

SAVREG
MOV
MOV
MOV
CLR
MOV
MOV
CLR
MOV
CLR
MOV
MOV

#T2SPACKET ,R1
#100004,(R1)+
#T25DATA,(R1)+
(R1)+
#10.,(R1)+
#T25BFR,(R1)+
(R1)+
#20.,(R1)+
(R1)+
#0, (R1)
n24, R2

:SELECT DRIVE ZERO
;NUMBER OF LOCATIONS TO BE CLEARED

TST
CMP

=-(R2)
#0,R2

sNEXT LOCATION
:1S R2 AT ZERO YET

SAVREG
MOV
MoV
MOV
(LR
MOV
CLR

#T25PK2 . R1
#100006, (R1)+
#1258F2,(R1)+
(R1)+
#6.,(R1)+
(R1)+

MOV
BNE
RTS

T2SRT2:

012701
012721
012721
005021
012721
005021

'WRITE SUBSYSTEM Miscellaneous Read Status Failed'

T25RWN: .ASCIZ
T250FL: .ASCIZ
T25WDC: .ASCIZ
TST2SID:
.EVEN
;4
H
ROUTINE TO RESTORE COMMAND PACKET TQ START-UP (DEFAULT) VALUES
JWRITE SUBSYSTEM MEMORY COMMAND
:
;T2SREST:

000000
000030

.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ

#177?77,T258FR(R2)
648
PC

;SAVE THE REGISTERS
:START OF THE PACKET
JWRITE SUBSYSTEM MEM. WITH ACK
;ADDRESS OF CHARAISTICS DATA BLOCK
JEXTENDED ADDRESS
:SIZE OF DATA BLOCK IN BYTES
;ADDRESS OF MESSAGE BUFFER
JLENGTH OF MESSAGE BUFFER

JALL ONES TO MESSAGE BUFFER

JKEEP GOING UNTIL DONE
:RETURN

:SAVE THE REGISTERS
JSTART OF THE PACKET
JWRITE SUBSYSTEM MEM. WITH ACK,
;ADDRESS OF DATA BLOCK
JEXTENDED ADDRESS
:SIZE OF DATA BLOCK IN BYTES

—

TSV7 ~ HARDWARE TESTS 1-8
TEST
S: SPACE RECORDS

[

TSV7 = HARDWARE TESTS 1-8
TEST
S: SPACE RECORDS

5413 055310
5414 055314
5415 055316

5416
5417
5418
5419
5420
5421

5422
5423
5424
5425

055320
055322
055322
055326
055332
055336

055342
055344
055350
055352
055352
055352

012701
005021
005011
000207

053760

012701
012721
012721
005021
012721
000207

053750
000000
000000

104401

MACRO M1113

25-MAY-82 09:19

¢4

SEQ 0246

T25RT3:

000000

PAGE 125-1

MOV
CLR
CLR
RTS

#T25BF2,R1
(R1)+
(R1)
PC

sRETURN

SAVREG
MOV
MoV
MoV
CLR
MoV
RTS
ENDTST

#T125PK3,R1
#0,(R1)+
#0,(R1)+
(R1)+
#0,(R1) ¢+
PC

sSAVE THE REGISTERS
sSTART OF THE PACKET
sWRITE SUBSYSTEM MEM. WITH ACK,
sADDRESS OF DATA BLOCK
;EXTENDED ADDRESS
:SIZE OF DATA BLOCK IN BYTES
sRETURN

sPOINT TO DATA SEL AREA

L10071:

TRAP

CSETST

TEST

REREADS

MACRO M1113

25-MAY-82 09:19
.SBTTL

TEST

C 4
PAGE 126

SEQ 0247

6: REREADS

sTHIS TEST VERIFIES THAT THE REREAD PREVIOUS AND REREAD NEXT

: COMMANDS OPERATE PROPERLY. VARIOUS COMBINATIONS OF 0DD AND EVEN
:DATA BUFFER BOUNDRIES, RECORD SIZES (UP TO 64K BYTES IF MEMORY
sSPACE IS AVAILIABLE), AND BYTE-SWAP (SWP) AND OPPOSITE (OPP)
sCONRTOL ARE USED. ALSO TESTED ARE PROPER TERMINATIONS ON
¢EXCEPTIONAL OR ERROR CONDITIONS: RECORD LENGTH LONG, RECORD
sLENGTH SHORT, READ REVERSE AT BOT, ILLEGAL DATA BUFFER ADDRESSES,
:AND DATA BUFFERS IN NONEXISTENT MEMORY.

:THE TEST CONSISTS OF THE FOLLOWING 15 SUBTESTS

BGNTST

5456 055410

012737
004737
012700
004737
012737
004737
005037

006446
017364
074477
016600
000005
021366
071746

MOV
JSR
MOV
JSR
MOV
JSR

002170

002206
* ¢

CLR

16
#EPRT2 ,EPRTSW
PC,KTOFF
#TST2610,R0
PC,TSTSETUP
#5,LOOPCNT
P( ,MEMCK

T26(NT

s SECONDARY ERROR MESSAGE
cDON'T NEED KT11
sASCII MESSAGE TO IDENTIFY TEST
sDO INITIAL TEST SETUP
sPERFORM 5 [TERATIONS
sCHECK FOR MEMORY

sCLEAR TAPE RECORD COUNTER

STEST 6, SUBTEST 1
sVERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=0
sAND SWB=0 OPERATES PROPERLY. THE TAPE [S FIRST
SREWOUND AND THEN WRITTEN WITH A SERIES OF TEST
¢RECORDS VARYING IN LENGTH AND DATA CONTENT. THE TAPE
+1S THEN REWOUND AGAIN. FOR EACH TEST RECORD, THE

sTAPE IS SPACED FORWARD ONE RECORD AND A REREAD
sPREVIOUS COMMAND ISSUED. RESULTS (STATUS, DATA,

sETC.) ARE VERIFIED. THE BYTE COUNT ON EACH REREAD
¢PREVIOUS COMMAND IS SET TO THE LENGTH OF THE EXPECTED
cRECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR.

5475
5476 055414
5477
5478 0556414
055414
055414
5479 055416
5480 055422
5481 055426

5482 055432

T26L00P:

BGNSUB
104402
004737
04737
004737
012737

074510
074602
074644
176750

071754

JOIIIIIID5D>> BE?gN‘SUBTEST 3PIIPIIPI
PN

JSR

PC.,T26REST

MOV

#65000.,726DLY

JSR
JSR

PC.T26RT?
PC,T26RT3

"
;SET COMMAND PACKET

IRAP

<SET UP OTHER COMMAND PACKET
:SET UP OTHER COMMAND PACKET

;SET UP DELAY COUNTER

:'tt'fiit"!t.'l.'ttt!tt't'tttt'tttfltt't.Qtlt.'t"t.lt.ttt"'t'.t'lt

($BSUB

—

TSV? - HARDWARE TESTS 1-8

TSV7 ~ HARDWARE TESTS 1-8

TEST

REREADS

MACRO M1113

5485

PAGE

126-1

SEQ 0248

sISSUE CONTROLLER °''SOFT'' INITIALIZE - CARRY BIT CLEAR IF ERROR

2239
5488

:'tttt'ttttttttttttttttttttttQttttttttttttt.ttttttttttttt'tttttttttt

5489

5490 055440

5491 055444
5492 055446
055446
055452
0556454
055460
055462

055466
055470

055474
5493 055476

5494
95495
5499
5500

25-MAY-82 09:19

055502
055504
055510
055512

055512
055514
055516
055520
5501 055522
5502 055522
gggz 055530

004737

016064

012727
000000
013727
000000
005367

000250

103426

001375
005367

001367
005337

001356
005237
010001

10$:

JSR

B8CS
DELAY

208
250

002116
177772
177756

071754

DEC

BNE
INC
MOV
ERRDF

002212

104455
001131
003650

012124

013737
012704

PC,SOFINIT

002172
071600

5505

071620

20$:

5506

MOV
MOV

T26DLY

108
FATFLG
RO.R1
ERRNO, SFIERR,SF IMSG

UNITN,T26DSW
#T26PACKET R4

;DO INITIALIZE ON CONTROLLER

JBR [F INIT WAS OK
sDELAY FOR A REWIND TO FINISH
MOV
WORD
MOV
LWORD
DEC
BNE
DEC
BNE

#250,(PC)+
O
LSDLY,(PC)+
O
-6(PC)
.~4
=22(PC)
.=20

sDEC COUNTER

;BR, IF DELAY NOT READY
;JBUMP COUNT
JCONTENTS OF TSSR REGISTER
JFATAL ERROR TSSR WAS NOT Ok

TRAP
.WORD
.WORD
.WORD

CSERDF
601
SFIERR

SFIMSG

JSET UP UNIT NUMBER
s SUBROUTINE NEEDS PACKET ADDRESS

AR AN AR RN AR RN AR A RN AN AN R A AN AN AR NN AR AN AR R NN RN NN CA NN N

RN NNGARNNND

gggg

SWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

5509

:°ttttttttttttttttlttttttttttfitttttttttnttttttfitttt.ttttttfittfitttttt

5510
5511 055534
5512 055540

5513 055542
5517 055546
5518 055550
055550
055552
055554
055556
5519 055560
5520 055560

004737
103407
005237
010001

010752

JSR
BCS
INC
MOV
ERRHRD

002212

104456
001132
005054
012124

26$:

104406

5521

PC,WRTCHR
26$
FATFLG
RO,R1
ERRNO,WRTMSG, SFIMSG

CxLOOP
AR AN AR R R R AR AR RN R

sISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ]SSUED OK
;BUMP COUNT
;SAVE CONTENTS OF TSSR
cWRITE CHARACTERISTISC FAILED
TRAP
WORD
.WORD
.WORD
;LOOP IF SELECTED
TRAP

AR AN AN AR AN NI RN NN RN RN AR AN

AR NN IR

ERNNONS

5522

:
sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

5525
5526
5527
5528
5529
5530

:-tttnttttt-t-tntttttttt'ttttt-ttnttnttttt-ttttttttttnttttttnttt-ttt

gggz

055562
055566
055570
055574

004737
103413
016501
012702

011104
000002
000200

JSR
8(S
MOV
MOV

PC,REWIND
308
TSSR(RS) ,R1
#SSR,R?2

cCALL TAPE REWIND COMMAND
JBR, IF NO PROBLEM
JGET TSSR
JSET UP EXPECTED TSSR

CSERHRD
602
WRTMSG
SFIMSG
cscLPl

—

TEST

REREADS

5531 055600
5532 055602
5536 055606

010004
005237

002212

104456

5554 055642

055642
055644
055646
055650
5555 055652
055652
5556 055654
5557 055660
5558
5559

308:

104406

E 4
PAGE 126-2

SEQ 0249

MOV

RO,R&

sPACKET ADDRESS SET UP

ERRHRD

ERRNO, T26RWN,PKTSSR

cREWIND NOT ACCEPTED

INC

001133
073254
012136
5538
5539
5540
5541
5542
5543
5544
5545 055620
5546 055624
5547 055626
5548 055632
5549 055634
5550 055636

25-MAY-82 09:19

MACRO M1113

FATFLG

CKLOOP

sBUMP COUNT

.WORD
.WORD

;LOOP IF SELECTED

NN RN AR AN AN AR AR A AR NN RN AN

CSERHRD
603
T26RWN

TRAP
.WORD

PKTSSR

cscLP1

TRAP

RN NARAN A ARARNANANAANNARONANAARANNNOY

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
.

TR AR R AN AN RN

013701
010102
052702
020102
001406
005237

071630

MOV
MOV

000002

8IS

cMP
BEQ
INC
ERRHRD

002212

104456
001134
072765
015564
104406
012703
013737

40$:

000400
003114

AN NN AN

SRR

AN R R AN AR

NANARNRAANARARN NN ANANANCRNNARNAERND

T26BFR+6,R1
R1,R
#BIT1,R2
R1,R2
408
FATFLG

ERRNO, T2680T ,EXPREC

CKLOOP
MOV
MoV

071722

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

;TAPE NOT AT BOT AFTER REWIND
TRAP

cLOOP IF SELECTED
#256. ,R3
FREE,T26RB

sRECORD SIZE

CSERHRD
604
726807

. WORD
-WORD
.WORD

EXPREC

TRAP

CS$CLP

sSTARTING WRITE BUFFER ADDRESS

R A AN AR AN AR AN R AN RPN AN AR R R NN RN

AR AN

RN A

RN RN NN AN NN AN SN

SWRITE DATA,ACK,CVC=1 COMMAND
.

5565 055666
5566 055674
5567 055700

5568 055700

ViAW
WVIVAIWVZVAW

5569 055702
5570 055706
5571 055712
5572 055716
573 055722
74 055726

5 055732

012737
012704

010300
004737
010337
010465
004737
016501
012702
020102
001406
005237

140005

071720

65$:

017512
071726
000000
016340
000002
000200

055750
5582 055752

MOV
MOV

MOV
/SR
MOV
MOV
JSR
MOV
MOV

002212

75%:

N N AR RARA R RN NN NN N NN

NNNS

sWRITE DATA,ACK,CVC=1 COMMAND
sSET UP R4 WITH PACKET ADDRESS

R3.RO

sSET PATTERN IN CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE
sSET UP RECORD SIZE IN PACKET
s ISSUE _COMMAND
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
¢SET UP EXPECTED
sARE THEY EQUAL
;BR, [F OK
sBUMP COUNT
sTSSR INCORRECT AFTER WRITE DATA

PC.FILLMEM

R3.T26S2
R&4.TSDB(RS)

PC.WAITF

TSSR(RS)
,R1
#SSR,R2

R1,RS
75$

ERRHRD

ERRNO, WRTERR , EXPRE(

ckLoop

NANAR AN AANCR RN RN

#1640005,T26PK3
#T26PK3,R4

CMP
BEQ
INC

104456

001135
005111
015564

AR AR R AN AR N AN AN N AN

FATFLG

TRAP

sLOOP IF

SELECTED

.WORD
.WORD
.WORD

CSERHRD
605

WRTERR
EXPREC

—r

TSV7 ~ HARDWARE TESTS 1-8

——

TEST

REREADS

055752
5583 055754
5584 055756
5585 055762
5586 055764
085764

5587 055766
5588
5589
5590
5591
5592
5593
5594
5595 055766
5596 055772
5597 055774
5598 056000
5599 056004
5600 056006
<704 056012
056012
056014
056016
056020
5605 056022
056022

1064406
005723
022703
001346

TST
(mp

000414

PAGE 126-3

SEQ 0250

(R3)+
#268. ,R3

BNE
(kLOOP

80s:

104406

25-MAY-82 09:19

—f

MACRO M1113

TRAP

;BUMP RECORD SIZE
sEND OF RECORD YET

65%

;BR, IF MORE RECORDS TO WRITE
;LOOP IF SELECTED
TRAP

1208:
IR AAAAAAAAAAAA

AR A

Al A

cscLP1

C$CLP1

I ISz

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
]

FAAAAALAAAS

004737
103413
016501
012702
010004
005237

011104

SRR

104456
001136
073254
012136

1308:

104406

PC,REWIND

MOV

TSSR(RS) ,R1

1308

MOV
MOV
INC
ERRHRD

002212

JSR

8CS

000002
000200

#SSR,R2
RO,R4
FATFLG
ERRNO, T26RWN,PKTSSR

CkLOOP

sCALL TAPE REWIND COMMAND

;BR, IF NO PROBLEM
¢GET TSSR

+SET UP EXPECTED TSSR
sPACKET ADDRESS SET UP
:BUMP COUNT
REWIND NOT ACCEPTED

TRAP
A

.WORD
-WORD
.WORD

;LOOP IF SELECTED

TRAP

CSERHRD
606
T26RWN
PKTSSR

cscLP

R RN AN R AN RN A AN AN AN NI AR AN AR RN NNRANRANRANNRRRNRNRN
NN
AAREERS
RA

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
4

NN AR

5613
5614
5615
5616
5617
5618

056024
056030
056032
056036
056040
056042

013701
010102
052702
020102
001406
005237

056046
056050
056052
056056

104456
001137
072765
012136

056056
5624 056060

104406
012737

AN AR AN AN AR RN AN

071630

MOV
MOV

000002

002212

R P AN RN AN R AN N R AR AR AN N NN

T26BFR+6,R1
R1,R2

R NN RN NN NN

;PICK UP XSTO
sSET UP EXPECTED

BIS
CMP
BEQ

#8IT1,R2
R1,R2
1408

cSET BOT BIT IN EXPECTED
:DOES EXP = REC'D
;BR, IF EQUAL (OK)

ERRHRD

ERRNO,T26BOT,PKTSSR

sTAPE NOT AT BOT AFTER R;:Igb

INC

FATFLG

sBUMP COUNT

.WORD

1408:

000400

071752

CkLOOP

MOV
MAAAAAAAA

sLOOP IF

#256.,T26RSZ
AR

SELECTED

sSET RECORD SIZE
eI

.WORD
TRAP

ISR

:ISSUE_SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
sBIT 15 SETS DIRECTION ~ 0=FORWARD

1=REVERSE

:.t..'.!.'.t.".'tt'ttt"."'.t.'tt.'t.i.tl."t!ll'.ttt!.'.'.!tttt.

5633 056066

012703

000001

1458:

MOV

#1,R3

;SPACE ONE RECORD PARAMETER

CSERHRD
607
126807
PKTSSR

cscLPt

—

TSV7 =~ HARDWARE TESTS 1-8

TEST

REREADS

5634 056072
5635 056076
5636 056100
5637 056104
5638 056110
5642 056114
056114
056116
056120
056122
5643 056124
056124
5644 056126
5645 056132

MACRO M1113

25-MAY~82 09:19

PAGE 126-4

SEQ 0251

004737
103412
016501
012702
005237

010556

JSR
BCS

000002
000200
002212

104406

1508:

071752
003114

MOV

TSSR(RS),R1
#SSR,R2

ERRHRD

ERRNO,
T26SC . EXPREC

JGET TSSR
JSET UP EXPECTED TSSR
;BUMP COUNT
sPOSITION (SPACE RECORDS) FAILED

FATFLG

CKLOOP

T26RS2 ,R3

MoV
MOV

071722
IR AAR AL

s CALL SPACE ROUTINE
¢BR, IF NO PROBLEM WITH SPACE COMMAND

1508

MOV
INC

104456
001140
072367
015564

013703
013737

PC,SPACE

ARl

A2t

EXPREC

TRAP

CSCLP

sRECORD SIZE
sSTARTING READ BUFFER ADDRESS

FREE, TO6RB
A

CSERHRD
608
T26SC

TRAP
.WORD
.WORD
.WORD

*REREREAD DATA,CVC=1,ACK COMMAND
.

AN ARAR RN R AN RN RN AR AN

056140
056146
056152
056156
056162
056166
056172

012737
012704
010337
010465
004737
016501
012702
020102
001406
005237

141001

071720
071726
000000
016340
000002
000200

071720

165$:

JSR

MOV
MoV

CMP
8EQ
INC
ERRHRD

002212

104456

5667 056216
5668 056220
5669 056224
5670 056226
5671 056232
5672 056234
5673 056236
5674 056240
5675 056242
5676 056244
5680 056250

0
5681 056260

5682 056262
5683 056264
5684 056266

001141
073610
012136
104406

013702
010304
162704

060204
021403
001410
011401
010302
005237

170$:

003114
000400

173s:

104406

005724
160204
020403

#141001,126PK3
#T26PK3
R4

R3,T265]

R4 . TSDB (RS)
PC.WAITF

TSSR(RS)
,R1
#SSR_R2

R1,R2
170s

FATFLG

ERRNO, T26WDC,PKTSSR

INCORRECT AFTER REREAD DATA
TRAP
CSERHRD
PKTSSR

TRAP

cscLP

sCURRENT BUFFER ADDRESS TO R?2
s CURRENT RECORD SIZE

6
ERRNO, T26DTA ,EXPREC

ckLoop
TST
sus
CMP

sFIRST LOCATION IN BUFFER
sSET UP POINTER
sCHECK DATA READ (R3=DATA ALSO)
sBR, IF ALL IS WELL
sRECD DATA
sEXPECTED DATA
;BUMP COUNT
;DATA READ NOT = WRITTEN

sLOOP IF SELECTED
(R4)+

609
T26W0(C

.WORD
.WORD
.WORD

MOv
MOV
su8
ADD
CMP

ERRHRD

1808%:

JTSSR

JLOOP IF SELECTED

BEQ

002212

sREREREAD DATA,CV(C=1,ACK COMMAND
¢sSET UP R4 WITH PACKET ADDRESS
sSET UP RECORD SIZE IN PACKET
s ISSUE_COMMAND
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
sSET UP EXPECTED
sARE THEY EQUAL
;BR, IF 0K
;BUMP COUNT

kLnoP

MOV
MOV
INC

104456

001142
073032
015564

MOV
MOV
MOV
MOV

NN R AN AR RN AN RA RN AN ANN NN AN ANRN NN N RNNRNRNRRORRNRAS

TRAP
.WORD
.WORD
.WORD

CSERHRD
610
T26DTA
EXPREC

TRAP

CSCLPY

;BUMP TO NEXT LOCATION
:CORRECT RECORDS SIZE VALUE
sEND OF RECORD YET

—

TSV7 = HARDWARE TESTS 1-8

TEST

REREADS

5685 056270

5686 056272
5687 056274
S688 056300

5689 056304
5690 056306
056306

5691

5692
5693
5694
5695

056310

056310
056310
056312
056320
056322
056326

MACRO M1113

25-MAY-82 09:19

H
4
PAGE 126-5
SEQ 0252

001360

005723
010337
022703

001270

071752
000412
190$:

104406
104403
023727
103402
004737

BNE
TST
MOV
CMP
BNE
CKLOOP

173$
(R3) ¢+
R3,T26RSZ
#266. ,R3
145%

ENDSUB

002212

017272

000017
9998:

(mMe
gLo
JSR

sBR, IF NOT AT END OF RECORD
;BUMP RECORD SIZE
JRESET RECORD SIZE
JEND OF RECORD YET
;JBR, IF MORE RECORDS TO READ
JLOOP IF SELECTED
TRAP

cs$CLP

2O33553535>> END SUBTEST >>>>>>>>>>>>

L10103:

FATFLG,#15.
999%
PC,CKDROP

TRAP

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

(SESUB

TSV7? - HARDWARE TESTS 1-8

TSV? - HARDWARE TESTS 1-8
TEST
6: REREADS

MACRO M1113

25-MAY-82 09:19

PAGE

127

SEQ 0253

5697
5698

;e
:

5701
5702
703
5704

:VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=0
;AND SWB=1 OPERATES PROPERLY. THE TEST SEQUENCE IS
:THE SAME AS THAT USED IN SUBTEST 1, BUT [T IS
JVERIFIED THAT DATA STORED BY THE COMMAND CONTAINS

5706
5707
5708
5709

.
:
:
Ml

gggg

sTEST 6, SUBTEST 2

57058

:SWAPPED BYTES.

5710 056326
056326
056326
5711 056330
5712 056334
g;}z 056340

104402
004737
004737
004737

074510
074602
074644

BGNSUB
JSR
JSR
JSR

PC,T26REST
PC,T26RT?
PC,T26RT3

J2555>353>3>>> BEGIN SUBTEST >>>>>>>>>>>>
16.2:
TRAP
csBsuBs
:SET COMMAND PACKET
JSET UP OTHER COMMAND PACKET
JSET UP OTHER COMMAND PACKET

5715

;tt.tttitttfi'ttt't'tt'tt.t'ttttt.tt'tlfit'fitfittttt'itt"‘tttfi't.t'tt

5716
g;}g

§719

:-tttttttt-ntttttttttttttttttttttt-t-tttttttttttttnt-twtttatt.ttt.tt

;ISSUE CONTROLLER ‘'SOFT'* INITIALIZE = CARRY BIT CLEAR IF ERROR

5720
§721 056344
5722 056350
5723 056352
5727 056356
5728 056360
056360
056362
056364
056366
g;%g 056370
g;%} 056376

004737
103407
005237
010001

016064

002212

104455
001143
003650
012124
013737

002172

012704

071600

5733

071620

20$:

JSR
8CS
INC
MOV
ERRDF

PC,SOFINIT
208
FATFLG
RO,R1
ERRNOQ,SFIERR,SFIMSG

MOV

UNITN,T26DSW

;00 INITIALIZE ON CONTROLLER
JBR IF INIT WAS 0K
:BUMP COUNT
:CONTENTS OF TSSR REGISTER
JFATAL ERROR TSSR WAS NOT 0K
TRAP
LWORD
.WORD
.WORD
:SET UP UNIT NUMBER

MOV

#T26PACKET R4

:SUBROUTINE NEEDS PACKET ADDRESS

:t'ttttttt..tttt.ttttt"""fi..ttt.tt'fi.ittt.'t.'t.tt't'..tt.!t.tit

5734

g;%g

JWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

5737

:"t"ttttt.t'tt.ttt.tlt"'tttttitt‘ 1222232233223 3232323322323332223X23221X

5738
5739 056402
5740 056406
5741 056410
§745 056414

004737
103407
005237
010001

056416
056420
056422
056424

104456
001144
005054
012124

056426

104406

5746 056416

5747 056426
5748

CSERDF
611
SFIERR
SFIMSG

010752

JSR
8CS

002212

INC
MOV

ERRHRD

26$%:

CkLOOP

PC.WRTCHR
26$%
FATFLG
RO,.R1

ERRNO,WRTMSG,SFIMSG

;ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED Ok
:BUMP COUNT
JSAVE CONTENTS OF TSSR

JWRITE CHARACTERISTISC FAILED

:LOOP IF SELECTED

TRAP
MWORD
.WORD
.WORD

CSERHRD
612
WRIMSG
SFIMSG

TRAP

CSCLPT

—

TEST

REREADS

§749

25-MAY-82 09:19

5750

PAGE 127-1

MACRO M1113

SEQ 0254

R AR R AR A AN AR AR NN AN NN NN AN N AN AR AN AN

AN RN

AT E NIRRT AN

g;g}

JISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

§753

E'ttttttttttttttttt'ttttttttlttttttttttttttttttttttttttttt.ttttt"t

5754
5755 056430
5756 056434
5757 056436
5758 056442
5759 056446
5760 056450
5764 056454
056454
056456
056460
056462
5765 056464
5766 056464

004737
103413
016501
012702
010004
005237

011104

JSR
8(s
MOV
MOV
MOV
INC
ERRHRD

000002
000200
002212

104456
001145
073254
012136

30$:

104406

5767

PC,REWIND
308
TSSR(RS) ,R1
#SSR,R2
RO,Ré
FATFLG
ERRNO, T26RWN,PKTSSR

CKLOOP
AR AR

A N R AN

;CALL TAPE REWIND COMMAND
;BR, IF NO PROBLEM
JGET TSSR
JSET UP EXPECTED TSSR
JPACKET ADDRESS SET UP
;BUMP COUNT
JREWIND NOT ACCEPTED
TRAP
.WORD
.WORD
.WORD
JLOOP IF SELECTED
TRAP

§771
5772
5773
5774
5775
5776
5777
5778
5782

Ettttttttttttttttttttttttt'ttttfitttttttttttttttt'ttt'tttttt'ttttttt

056466
056472
056474
056500
056502
056504
056510
056510
056512
056514
056516
5783 056520
056520
5784 056522
g;gg 056526

cscLP

AR AR RN AN NN NN AR NARRAR AR AR NN NN NN AR AAN R AR RN NN RNRS

5768

g;gg

CSERHRD
613
TZ26RWN
PKTSSR

JREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

013701
010102
052702
020102
001406
005237

071630

MOV
MOV
8IS
cMP
BEQ
INC
ERRHRD

000002
002212

104456
001146
072765
015564
104406
012703
013737

40$:

000400
003114

5787

5788

CKLOOP

MOV
MOV

071722

T268FR+6,R1
R1,R2
#8IT1,R2
R1,R2
408
FATFLG
ERRNO,T26BOT ,EXPREC

#256. ,R3
FREE,T26RB
I

;PICK UP XSTO
JSET UP EXPECTED
:SET BOT BIT IN EXPECTED
;DOES EXP = REC'D
:BR, IF EQUAL (OK)
;BUMP COUNT
sTAPE NOT AT BOT AFTER REWIND
TRAP
.WORD
.WORD
.WORD
;LOOP IF SELECTED
TRAP
sRECORD SIZE
JSTARTING WRITE BUFFER ADDRESS
R

LTI

g;gg

JWRITE DATA,ACK,SWB COMMAND

5791
5792
5793 056534
5794 056542
5795 056546
5796 056546
5797 056550
5798 056554
5799 056560
5830 056564
5801 056570

Etttttltttttttttttttt'tt'ttttttttttttttttttt'tttt'ttt'tttttttt'tt't

012737
012704

110005
071720

010300
004737
010337
010465
076737
016501

017512
071726
000000
016340
000002

071720
65$:

MOV
MOV

110005, T26PK3
#T26PK3 R4

cWRITE DATA,ACK,SW8 COMMAND
JSET UP R4 WITH PACKET ADDRESS

MOV
JSR
MOV
MOV
JSR
MOV

R3.RO
PC,FILLMEM
R3,126S52
R4, TSDB(RS)
PC,WAITF
TSSR(RS) ,R1

sSET PATTERN IN CORRECT REGISTER
JFILL MEMORY WITH RECORD SIZE
sSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
JWAIT FOR SSR TO SET
JGET TSSR CONTENTS

CSERHRD
614
T26B0T
EXPREC
CSCLP

—

TSV7 = HARDWARE TESTS 1-8

TEST

5802
5803
5804
5805
5809

REREADS

056574
056600
056602
056604
056610
056610
056612

012702
020102
001406
005237

MACRO M1113

000200

8EQ
INC
ERRHRD

104456

104406
005723
022703
001346

75$:

(kLOOP

80$:

TST
CMP
BNE
CKLOOP

000414

104406

PAGE 127-2

SEQ 0255

#SSR R2

MOV
CMP

002212

001147
005111
012136

25-MAY-82 09:19

JSET UP EXPECTED

R1,RS
75§

JARE

;BR,

FATFLG

ERRNO,WRTERR,PKTSSR

THEY EQUAL

IF 0K

;BUMP COUNT
¢TSSR INCORRECT AFTER WRITE DATA
TRAP

sLOOP IF SELECTED
(R3)+

WRTERR

TRAP

cscLP

;BUMP RECORD SIZE
cEND OF RECORD YET
:BR, IF MORE RECORDS TO WRITE
sLOOP IF SELECTED
TRAP

#268. ,R3
65$

1208:
SRR AR AN AA N AN AN AN A AR

A NI N AN RN NN NARARAAN AN AANAR N AN RN

CSERHRD
615

.WORD
-WORD
.WORD

RN NI AN

PKTSSR

CSCLP

NSY

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
o

MAAALEAAA

5824
5825
5826
5827
5828
5832

056640
056642
056646
056652
056654
056660
056660
056662
056664
056666
5833 056670
056670

004737

011104

016501
012702
010004
005237

000002
000200

103413

JSR
8CS
MOV
MOV
Mov
INC

002212

ERRHRD

104456

001150
073254
012136

1308:

104406

AN A

PC,REWIND

I T

IYT22322212

sCALL TAPE REWIND COMMAND
sBR, IF NO PROBLEM
cGET TSSR

1308
TSSR(RS)
,R1

#SSR,R2

+SET UP EXPECTED TSSR

sPACKET ADDRESS SET UP

FATFLG

ERRNO,T26RWN,PKTSSR

ckLoopP

;BUMP COUNT
sREWIND NOT ACCEPTED

;LOOP IF SELECTED

AN RN N R AR AN AN A AN AN

TRAP
.WORD
.WORD
-WORD

CSERHRD
616
T26RWN

TRAP

cscLpPt

PKTSSR

A RN N AN AANRRARA RN ANANA RN NN ANAARNIANCRRANNS

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
0

5841 056672

5842 056676

5843 056700
5844 056704
5845 056706
5846 056710
5850 056714
056714
056716
056720
056722
5851 056724
056724

013701
010102
052702
020102
001406
005237
104456
001151
072765
015564
104406

AR R AR NN AR R AN RN AN RN

071630

MOV
Mov

000002

8IS
CMP
BEQ
INC
ERRHRD

002212

1408
:

(KLoOP

TN AN AN AR

R AN AN AN AN RN NN NN

T268FR+6,R1

R1,R2
#81T71,R2
R1,R2
1408
FATFLG

ERRNO,T26BOT,EXPREC

NN NN NARNERARNNNS

:PICK UP XSTO
:SET UP_EXPECTED
:SET BOT BIT IN EXPECTED
:DOES EXP = REC'D
:BR, IF EQUAL (OK)
<BUMP COUNT
;TAPE NOT AT BOT AFTER REWIND

.LOOP IF SELECTED

TRAP
-WORD
.WORD
-WORD

CSERHRD
617
126807
EXPREC

TRAP

CSCLPY

—

TSV? = HARDWARE TESTS 1-8

TEST

REREADS

gggg 056726

25-MAY-82 09:19

PAGE 127-3

MACRO M1113

SEQ 0256

012737

000400

071752

MOV

#256.,T26RS2Z

;SET UP RECORD SIZE

S(’S‘

:tttttttttttttttttttttt'ttttttlttttttt't.tttttttfitttttttttttttttttt

S85S
5856

:
:1SSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS

5859
5860
5861 056734
5862 056740

:'ltttttttt'ttttttttttttt"'ttttttttt'ttttt'ttttttlt'ttt.t.ttttt.ttt

gggg

5863 056744

5864 056746

5865 056752
5866 056756
5870 056762

056762
056764
056766
056770
5871 056772
056772
5872 056774

gg;z 057000

:BIT 15 SETS DIRECTION = O=FORWARD

012703
004737
103412

000001
010556

012702
005237

000200
002212

016501

1458:

000002

104406
013703

013737

1508:

071752

003114

MOV
JSR
BCS

#1,R3
PC.SPACE
1508

;SPACE ONE RECORD PARAMETER
SCALL SPACE ROUTINE
:BR, IF NO PROBLEM WITH SPACE COMMAND

MOV
INC
ERRHRD

#SSR,R2
FATFLG
ERRNO, T26SC, EXPREC

*SET UP EXPECTED TSSR
‘BUMP COUNT
*POSITION (SPACE RECORDS) FAILED
TRAP
CSERHRD
.WORD
618
JWORD
T26SC
-WORD
EXPREC

MOV

104456
001152
072367
015564

5875

TSSR(RS) ,R1

CKLOOP

MOV

071722

1=REVERSE

MOV

T26RSZ,R3

FREE, T26RB

‘GET TSSR

TRAP

sRECORD SIZE

:STARTING READ BUFFER ADDRESS

;ttQttttttlQttt'ttttttittitttt.ttttt.ttttttfitttttt'ttttttttt'tttt't

5876

;

gg;g

SREREAD DATA,CVC=1,ACK,SWB COMMAND

5879
5880
5881 057006
5882 057014
5883 057020
5884 057024
5885 057030
5886 057034
5887 057040

:'ttttl'ttt.tttt'tttttfi'tt'tt'ttQttttttfitQttt.ttt.itt.'tt'ttt.ttt.ttt

5888 057044

012737
012704
010337
010465
004737
016501
012702

020102

5889 057046
5890 057050
5894 057054
057054
057056
057060
057062
5895 057064
057064
5896 C-7066
5897 057072

104406
013702
010304

5899 057100
5900 057102
5901 057104
5902 057106

060204
021403
001410
011401

5904 057112

005237

5898 057074

5903 057110

CSCLP1

001406
005237

151001
071720
071726
000000
016340
000002
000200

010302

1658:

CMP

1708:

003114

000400

002212

MOV
MOV
MOV
MOV
JSR
MOV
MOV

BEQ
INC
ERRHRD

002212

104456
001153
073610
012136

162704

071720

sREREAD DATA,CVC=1,ACK,SW8 COMMAND
SSET UP R4 WITH PACKE: ADDRESS
:SET UP RECORD SIZE IN PACKET
S1SSUE COMMAND
SWAIT FOR SSR TO SET
SGET TSSR CONTENTS
*SET UP EXPECTED

1708
FATFLG
ERRNO,T26WDC ,PKTSSR

:BR, IF OK
*BUMP COUNT
;TSSR INCORRECT AFTER REREAD DATA
TRAP
CSERHRD
.WORD
619
JWORD
T26WDC
.WORD
PKTSSR
;LOOP IF SELECTED
TRAP
CS$CLP1
;CURRENT BUFFER ADDRESS TO R2
*CURRENT RECORD SIZE

R1,R2

CKLOOP

MOV
MOV
1738:

#151001,126PK3
#T26PK3 R4
R3,T2652
R4 . TSDB(RS)
PC.WAITF
TSSR(RS) ,R1
#SSR,R2

FREE,R2
R3,Ré

sUB

#256. R4

MOV

R3,R2

ADD
CMP
BEQ
MOV
INC

sARE THEY EQUAL

*FIRST LOCATION IN BUFFER

R2,R4
(R4) ,R3
1808
(R4) ,R1

*SET UP POINTER
JCHECK DATA READ (R3=DATA ALSO)
*BR, IF ALL IS WELL
*RECD DATA

FATFLG

*BUMP COUNT

:EXPECTED DATA

—

TSV7 - HARDWARE TESTS 1-8

—

TSV? = HARDWARE TESTS 1-8

TEST

REREADS

5908 057116
057116
057120
057122
057124
5909 057126
057126
5910 057130
5911 057132
5912 057134

5913 057136

5914
5915
5916
5917
5918

5919
5920
5921
5922
5923

057140
057142
057146
057152
057154
057154
057156
057156
057156
057160
057166
057170
057174

MACRO M1113

ERRHRD

104456
001154
073032
015564

180%:

104406
005724
160204
020403

001360

005723
010337
022703
001270

071752
000412
190%:

M
4
PAGE 127-4

ERRNO,T26DTA,EXPREC

CKLOOP
(RG)+
R2.R4
R4 R3

TST
MOV
CMP
BNE
CKLOOP

(R3)+
R3,T26RS2
#266. ,R3
145$

1738

ENDSUB
002212
017272

000017
999%:

CMP
8LO
JSR

SEQ 0257

;DATA READ NOT = WRITTEN

;LOOP IF SELECTED

TST
SuB
CMP

BNE

104406

104403
023727
103402
004737

25-MAY=82 09:19

FATFLG,#15.
999%
PC.,CKDROP

TRAP
.WORD
.WORD
.WORD

TRAP
;BUMP TO NEXT LOCATION
JCORRECT RECORDS SIZE VALUE
JEND OF RECORD YET

:BR, IF NOT AT END OF RECORD

CSERHRD
620
TZ26DTA
EXPREC
C$CLP

;BUMP RECORD SIZE
JSTORE RECORD SIZE
JEND OF RECORD YET
;JBR, IF MORE RECORDS TO READ
:LOOP IF SELECTED
TRAP
CSCLP
22235553>5>>> END SUBTEST >>>>>>>>>>>>
L10104:
TRAP
CSESUB
.
;1S ERROR COUNT AT 25
;BR, IF LESS THAN 25
;TRY TO DROP THE UNIT

TSV? - HARDWARE TESTS 1-8

TEST

REREADS

MACRO M1113

5925

25-MAY-82 09:19

N 4
PAGE 128

SEQ 0258

5926

5929
5930
5931
5932
5933
5934
5935

:VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=1
: (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

5938

AND THE RESULTS CHECKED

5941

;2.

A READ FORWARD COMMAND IS THEN ISSUED AND THE

5944
5945
5946
ggzg

:
:
:
:

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

5949
5950

;THE BYTE COUNT ON EACH REREAD PREVIOUS COMMAND 1S SET
270 THE LENGTH OF THE EXPECTED RECORD, SO NO

5953
5954
5955
5956
5957

.
:
:
:-

gg%g

sTEST 6,

gggg

;TEST RECORD, THE FOLLOWING SEQUENCE IS EXECUTED.

ggzg
5942
5943

:
:

ggg;

5958 057174
057174
057174
5959 057176
5960 057202
5961 057206
ggg% 057212

SUBTEST 3

THE REREAD PREVIOUS COMMANL WITH OPP=1

IS ISSUED

DATA IS CHECKED TO VERIFY THAT THE TAPE WAS
POSITIONED PROPERLY AFTER THE REREAD PREVIOUS

PROPERLY AT THE START OF

THE NEXT TEST RECORD.

sEXCEPTIONAL CONDITIONS SHOULD OCCUR.

BGNSUB
104402
004737
005037
004737
004737

074510
071746
074602
074644

JSR
CLR
JSR
JSR

PC,T26REST
T26CNT
PC,T26RT2
PC,T26RT3

J255553>>>>>> BEGIN SURTEST >>>>>>>>>>>>
16.3:
TRAP
cs8suB
:SET COMMAND PACKET
;CLEAR TAPE RECORD COUNTER
:SET UP OTHER COMMAND PACKET
:SET UP OTHER COMMAND PACKET

5964

:ttttttttttttttttttttttt'tt"tt!ttttttttttttttttttttt'ttt.'t'ttt'tt

5965

5968

:'ttt.ttttttttttttttttttttttttttttt.!.tttttttttttitttfitt'ttttttttttt

gggg
5969
5970 057216
5971 057222
5972 057224
5976 05723G
5977 057232
057232
057234
057236
057240

5978 057242

‘

;ISSUE CONTROLLER ‘'SOFT'* INITIALIZE = CARRY BIT CLEAR IF ERROR

004737
103407
005237
010001

104455
001155
003650
012124
§12?37

016064
002212

002172

,
071620

20$:

JSR
BCS
INC
MOV
ERRDF

PC,SOFINIT
208
FATFLG
RO,R1
ERRNZ_STIERR,SFIMSG

MOV

UNITN, T26DSW

;D0 INITIALIZE ON CONTROLLER
;BR IF INIT WAS OK
;BUMP COUNT
;CONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT OK
TRAP
.WORD
.WORD
.WORD

;SET UP UNIT NUMBER

CSERDF
621
SFIERR
SFIMSG

TSV7 - HARDWARE TESTS 1-8

TEST

REREADS

5979
5980 057250
5981
5982
5983
5984
5985
5986
5987
5988 057254
5989 057260
5990 057262
5994 057266
5995 057270
057270
057272
057274
057276
5996 057300
057300
5997

012704

057302
057306
057310
0573°4
057320
057322
057326
057326
057330
057332
057334
6014 057336
057336

Mov
AL

25-MAY~82 09:19

071600

PAGE 128-1

SEQ 0259

#T26PACKET
R4

ALALAALAS AR

s SUBROUTINE NEEDS PACKET ADDRESS

ARl

]

WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
0

AARAAAASAARA

004737
103407
005237
010001

010752

104456
001156
005054

012124

JSR

PC,WRTCHR

INC
MoV
ERRHRD

FATFLG
RO,R1

26%

ERRNO, WRTMSG, SF IMSG

ckLOOP

26$:

104406

SRS

BCS

002212

5998
5999
6000
6001

6002
6003
6004
6005
6006
6007
6008
6009
6013

MACRO M1113

cRANNT

sISSUE WRITE CHARACTERISTICS
¢BR, IF COMMAND ]SSUED 0K
:BUMP COUNT
sSAVE CONTENTS OF TSSR

sWRITE CHARACTERISTISC FAILED
TRAP
.WORD
.WORD
.WORD

cLOOP IF SELECTED

TRAP

CSERHRD
622

WRTMSG

SFIMSG

CS$CLP1

ANANAANARANNNNE RN NN NAANENARNANANN
AN ANARA RN NI RANN
AR
IANEN

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
’

v
3
J165u1
012702
010004
005237

011104

002212

ERRHRD

308:

104406

AN NN AR AN RN AR NN

JSR
8(s
MOV
MOV
MOV
INC

000002
000200

104456
001157
073254
012136

R AR

SRR

R AN RN A RARANARARNARNANAANANAN
NN NNNOCRNRARY
RAN

PC,REWIND

sCALL TAPE REWIND COMMAND
s8R, IF NO PROBLEM
SGET TSSR

308

TSSR(RS)
,R1
#SSR,R2
RO,Ré

sSET UP EXPECTED TSSR

FATFLG
ERRNO, T26RWN,PKTSSR

c(kLoorP

sPACKEY ADDRESS SET UP

<BUMP COUNT
RCWIND NOT ACCEPTED

TRAP
.WORD
.WORD

sLOOP IF SELECTED

RAANNAAANANA A A AANN

AN NN AN

A NANAREANNRRRAANNANAR NN RN

CSERHRD
623
T26RWN

-WORD

PKTSSR

TRAP

CSCLP

R NN RARANRERR S

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
.

6022 057340
6023 057344
6024 057346
6025 057352
6026 057354
6027 057356
6031 057362
057362
057364
057366

013701
010102
052702
020102
001406
005237
104456
001160

072765

071630
000002

002212

AR NN

RANAR O N AN N AN R AN RN A AN AR AR A ANNRNANRARAANNRN NN AR R AN

MOV

81S
CMP
BEQ
INC
ERRHRD

T26BFR+6,R1

R1,R2

#8IT1,R2
R1,R2
40%
FATFLG
ERRNO, T26BOT ,EXPREC

NRANRRS

:PICK UP XSTO

:SET UP EXPECTED

:SET BOT BIT IN EXPECTED
:DOES EXP = REC'D

:BR,

IF EQUAL

¢BUMP COUNT

(OK)

sTAPE NOT AT BOT AFTER REWIND
TRAP
.WORD
.WORD

CSERHRD
624
126807

—

TSV? = HARDWARE TESTS 1-8

TEST

REREADS

057370
6032 057372
057372
6033 057374
6034 057400

MACRO M1113

015564
104406
012703
013737

25-MAY-82 09:19

40$:

000400
003114

PAGE 128-2

CKLOOP

<L00° [F SELECTED
#256. ,R3

MoV
MOV

071722
AR RN

SEQ 0260
EXPREC

TRAP

CSCLP

+RECORD SIZE
sSTARTING WRITE BUFFER ADURESS

FREE, T26RB

RN AN A AN N

.WORD

AN AN RN AN N R AR N

RRARRN RN IR RAANNI NN AN AR RN NN ARARANANNS

‘WRITE DATA,CVC=1,ACK COMMAND
.

6042 057406
6043 057414
6044 057420
6045 057420
6046 057422
6047 057426
6048 057432
6049 057440
6050 057446
6051 057452
6052 057456
6053 057462
6054 057466
6055 057470
6056 057472
6060 057476
057476
057500
057502
057504
6061 057506
057506
6062 057510
6063 057512
6064 057516
6065 057520
6066 057522
6067 057522
6068
6069
6070
6071
6072
6073
6074
6075 057526
6076 057532
6077 057534
6078 057540
6079 057544
6080 057546
6084 057552
057552
057554
057556

012737
012704
010300
004737
010337
013777
062737
010465
004737
016501
012702
020102
001406
005237

140005

071720
017512
071726
071746
000001
000000
016340
000002
000200

123454

071746

MOV
MOV

MOV
JSR
MOV
MOV
AvD
MOV
JSR
MOV
MOV
CMP
8EQ
INC
ERRHRD

R AN RN AN NN NN AN AR NN AR R AR A AN AANANAANNANNNRANRNNERANNSY

#140005.T26PK3
#T26PK3
R4

sWRITE DATA,CVC=1,ACK COMMAND

¢SET UP R4 WITH PACKET ADDRESS
JSET PATTERN IN CORRECT REGISTER
JFILL MEMORY WITH RECORD SIZE
;SET UP RECORD SIZE IN PACKET
sMOVE TAPE RECORD NUMBER TO BUFFER
;NUMBER READY FOR NEXT RECORD
s ISSUE COMMAND
JWAIT FOR SSR TO SET
JGET TSSR CONTENTS
;JSET UP EXPECTED

PC.FILLMEM

R3.T2657
T26CNT,aFREE

#1,T26(NT
R4 . TSDB(RS)
PC.WAITF

TSSR(RS)
,R1
#SSR.R2

R1,R2

sARE THEY EQUAL

FATFLG

ERRNO, WRTERR,PKTSSR

:BR, IF OK
:BUMP COUNT
;TSSR INCORRECT AFTER WRITE DATA
TRAP

.WORD

75%:

104406

005037

65$:

002212

104456
001161
005111
012136

005723
022703
001401
000737

071720

RN AN AN AN AN

TST

000414

071746

CkLOOP

120¢:

cLOOP IF SELECTED
(R3)+

.WORD
.WORD

WRTERR
PKTSSR

TRAP

cscLP1

sBUMP THE RECORD SIZE
sMAXIMUM SIZE YET
:BR, IF AT END OF WRITE SEQUENCE

cMP
BEQ
BR

#268. ,R3
1208

65$%

sWRITE MORE RECORDS

CLR

T26CNT

sSET RECORD COUNTER BACK TO ZERO

AR A AR

AN AR AR AR AR AT ANE AR AR RN RN R AR RN RARNN R I A RAR

N RARN

CSERHRD

625

NAR RS

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
.

AR R AR RN A AR RN AR A AN NN R AN AR AR

004737
103413
016501
012702
010004
005237
104456
001162
073254

011104
000002
000200

002212

JSR
8Cs

MOV
MoV
MOV

INC

ERRHRD

NN RARAARANARNNARANAARARN
AR ARRRNENNR
IRNAR

PC ,REWIND

1308

TSSR(RS)
,R1
#SSR,R2
RO,R4
FATFLG

ERRNC,T26RWN,PKTSSR

sCALL TAPE REWIND COMMAND
;BR, IF NO PROBLEM
sGET TSSR
sSET UP EXPECTED TSSR

sPACKET ADDRESS SET UP

:BUMP COUNT
sREWIND NOT ACCEPTED

TRAP

.WORD
.WORD

CSERHRD

626
T26RuWN

TSV7 =~ HARDWARE TESTS 1-8

TEST

REREADS

057560
6085 057562
057562
6086
6087
6088
6089
6090

012136

6093 057564
6094 057570
6095 057572
6096 057576
6097 057600
6098 057602
6102 057606
057606
057610
057612

013701
010102
052702
020102
001406
005237

057614
6103 057616
057676

MACRO M1113

1308:

106406

25-MAY-82 09:19

PAGE 128-3

CKLOOP

SEQ 0261
;LOOP IF SELECTED

.WORD

PKTSSR

TRAP

C$CLP1

:Qt.'ttttttttQ'Qtt."t'"t.'ttt't...tt"...tt.'.fit.fi't't"t'fil'.t'l

:READ MESSAGE BUF *ER EXTENDED STATUS REGISTER ZERO (XSTO)
Etttfitttt.tt't..'.tt""'t"".tfi..t..'.t'...t'.t'tfit.'tt.t'tt"'fii
071630
000002

MOV
MOV
BIS
CMP

rzeern*e R
R1,R2
48iT1,R2
F1,R2

;PICK UP XSTO
:SET UP EXPECTED
:SET BOT BIT IN EXPECTED
*DOES EXP = REC'D

INC

FATFLG

*BUMP COUNT

BEQ

002212

ERRHRD

104456
001163
072765
015564

1408

ERRNO, T26B0T ,EXPREC

:BR, IF EQUAL (OK)

STAPE NOT AT BOT AFTER REWIND
TRAP

1408:

104406

CKLOOP

:LOOP IF SELECTED

CSERHRD

JWORD
.WORD

627
126807

TRAP

(CS$CLP1

-WORD

EXPREC

tt'tt.ttt...Qtttt.tt'tt't'.ttfit'tt'tt'tt.tttittt't.t.ltttttttt.ttt

"ISSUE SPACE RECIRDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
O
NO VNS WN

000001
010556
000400
003114

071722

6123 057642
6124 057650
6125 057654
6126 057660
6127 057664
6128 057670
6129 057674
6130 057700
6131 057702
6132 057704
6136 057710
057710
057712
057714
057716

1508:

MOV
JSR

#1,R3
PC.SPACE

MOV

FREE.T26RB

MOV

#256. ,R3

:SPACE 1 RECORD FORWARD
*SPACE CALL

*RECORD SIZE

:STARTING READ BUFFER ADDRESS

:tt.tt'ttttttttttttttt'tttt.'QtttQ.tt.ttit't.ttttt..tt.fitt..ttt't't

*REREAD DATA,CVC=1,ACK, OPP COMMAND

—b

P g )

D
eond
b

e g
e
T

d wd
i

012703
004737
012703
013737

057620
057624
057630
057634

e
—

1=REVERSE

.tt.ttttttttlttt.ttttttt't"ttt...ifit!t'.'t.'tifitttt'ttttttfitttttt'

o R

Yo T e Yo Yo Yo No Yo Yo

BIT 15 SETS DIRECTION - O=FORWARD

EtQt.tfitttttttttl'ttttt"'tt.tt..ttt'ttQtt"tttt.fitt'tttttt.titt't'
161001

071720
071726
000000
016340
000002
000200

002212
106456

001164
072272
012136

071720

1658:

MOV

9161001, T26PK3

R3,T2651

MOV

MOV
JSR
MCV
MOV

CMP
8EQ

INC
ERRHRD

;REREAD DATA,CVC=1,ACK, OPP COMMAND

¥T26PK3 R4

“SET UP R4 WITH PACKET ADDRESS

R%. TSDB (RS)
PC.WAITF
1SSR(RS) ,R1
ASSR,R2

SISSUE CC.AMAND
SWAIT FOR SSR TO SET
:GET TSSR CONTENTS
:SET UP EXPECTED

FATFLG
EIRNO, T26RRG,PKTSSR

eunp COUN
*TSSR xuconnscr AFTER REREAD DATA

R1,R2
17bs

:SET UP RECORD SIZE IN PACKET

:ARE THEY EQUAL
IF ox

TRAP

.WORD
.WORD
.WORD

CSERHRD

628
TJ6RRG
PKTSSR

TSV?7 = HARDWARE TESTS 1-8

TEST

REREADS

6137 057720
057720
6138 057722
6139 057724
6140
6141
61462
6143
6144
6145
6146
6147 057732
6148 057740
6149 057744
6150 057750
6151 057754
6152 057760
6153 057764
6154 057766
6155 057770
6159 057774
057774
057776
060000
060002
6160 060004
060004
6161 060006
6162 060012
6163 060016
6164 060020
6165 060022
6169 060026
060026
060030
060032
060034
6170 060036
060036
6171 060040
6172 060044
6173 060046
6174 060050
6175 060050
060050
060050
6176 060052
6177 060060
6178 060062
6179 060066

MACRO M1113

25-MAY-82 09:19

PAGE 128-4

SEQ@ 0262
104406
005723

062737

1708:
000001

CkLOOP
TST
ADD

071746

sLOOP [F SELECTED
(R3)+
#1,T26CNT

TRAP

;BUMP RECORD SIZE
:BUMP TAPE RECORD COUNTER

cscLP

;'tttt'.t't't'.'fi'.'tt"fit"t'.tttfiti.Qt.'ittt'ttttt.."t.ttt't't!t

‘READ DATA, CvC=1, ACK COMMAND
0

;ttfit'tttt.ttt.tt..ttt""v't.tfit.ttt.ttttt't.ttt't't"t'tttt".ttt

012737
010337
010465
004737
016501
012702
020102
001406
005237

140001

071726
000000
016340
000002
000200

071720

MoV
MOV
MOV

JSR

MOV
MOV

CMP
BEQ
INC
ERRHRD

002212

104456

017701
013702
020102
001406
005237

195%:
123102

071746

CMP
BEQ
INC
ERRHRD

002212

104403

023727

103402
004737

TSSR(RS) ,R1

FATFLG

ERRNO,RDERR,PKTSSR

CV(C=1,

ACK COMMAND

sSET SIZE INTO PACKET
s ISSUE READ DATA (OMMAND
cWAIT FOR SSR

sPICK UP THE TSSR
sSET UP EXPECTED
sIS THE TSSR 0K
sBR, IF TSSR OK (GOOD)
sBUMP COUNT
sREAD DATA COMMAND FAILED

-WORD

sLOOP IF SELECTED

aFREE ,R1

T26CNT,R2
R1,R2

197

FATFLG

ERRNO, T26WNG, EXPREC

TRAP
sFIRST WORD FROM READ BUFFER

197$:

000412

TRAP

:
2008

002212
017272

000017
:
9998

(kLooP
CMP
BEQ
B8R

#266. ,R3
200$
1508

ENDSUB

CMP
8LO
JSR

;AT MAX SIZE YET

999%

CsCLP

CSERHRD
630

.WORD

T26WNG
EXPREC

TRAP

cscLP1

;KEEP GOING MORE RECORDS
END

SUBTEST

L10105

PC,CKDROP

RDERR
PKTSSR

sBR, IF AT END OF THE SUBTEST
$2233535>33>>>

FATFLG,#15.

CSERHRD
629

;SET UP EXPECTED

s1S TAPE POSITION CORRECT
sKEEP GOING POSITION OK
:BUMP COUNT
sTAPE POSITION INCORRECT

.WORD
.WORD

015564

022703
001401
000672

PC,WAITF

cKLoop
MOV
MOV

104456
001166
071756
104406

R4, TSDB(RS)

sREAD DATA,

TRAP
.WORD
-WORD

001165
005204
012136

104406

#140001,T26PK3

R3,T26S2

>3>3>>>>>>>>>

TRAP

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

sTRY TO DROP THE UNIT

C$ESUB

TSV7 = HARDWARE TESTS 1-8

TEST

REREADS

6181
6182
6183
6184
6185
6186
6187
6188
6189
6190
6191
6192
6193
6194
6195
6196 060066
060066
060066
6197 060070
6198 060074
6199 060100
6200 060104
6201
6202
6203
6204
6205
6206
6207
6208 060110
6209 060114
6210 060116
6214 060122
6215 060124
060124
060126
060130
060132
: 060134
9

060142

MACRO M1113
M

F
5
PAGE 129

25-MAY-82 09:19

SEQ 0263

STEST 6, SUBTEST &
;VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP=1
sAND SWB=1 OPERATES PROPERLY. THE TEST SEQUENCE IS

;THE SAME THAT IS USED IN SUBTEST 3, BUT IT IS

sVERIFIED THAT DATA STORED BY THE COMMAND CONTAINS
:SWAPPED BYTES.

BGNSUB
104402

004737
005037
004737
004737

2333335335 BEGéN SUBTEST >>>>>>>>>>>>
T6.4:

074510
071746
074602
076644

TRAP

JSR
CLR

PC,T26REST
T26CNT

:SET COMMAND PACKET
sCLEAR TAPE RECORD COUNTER

JSR

PC,T26RT3

JSET UP OTHER COMMAND PACKET

JSR

PC,T26RT?2

c$BSuUB

JSET UP OTHER COMMAND PACKET

;tt.ttttttttttttttttttttt'tttittttttttttttitttttttttttttttttt'ttt!t

EISSUE CONTROLLER ‘'SOFT'' INITIALIZE - CARRY BIT CLEAR IF ERROR
Etttttfittttttttttttttt'tttt'tttttttttttttttfitttttttttttttitttttfittt
004737
103407
005237
010001

016064

JSR

BCS

002212

INC

MOV

ERRDF

104455

PC,SOFINIT

;DO INITIALIZE ON CONTROLLER

208

;BR IF INIT WAS 0K

RO,.R1

JCONTENTS OF TSSR REGISTER

FATFLG

;BUMP COUNT

ERRNO,SFIERR,SFIMSG

JFATAL ERROR TSSR W~> NOT OK
TRAP

001167
003650
012124
013737

002172

012704

071600

CSERDF

WORD

071620

20$:

631

.WORD
.WORD

SFIERR
SFIMSG

MOV

UNITN,T26DSW

;SET UP UNIT NUMBER

MoV

#T26PACKET RS

;SUBROUTINE NEEDS PACKET ADDRESS

R AR AN RN RN RN AN AN AR RN C R

A NAR AN RN AR AN RN AN N NN RN R AN A ARARNRANNNNRNAS

SWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
.

6226 060146
6227 060152
6228 060154
6232 060160
6233 060162
060162
060164
060166
060170

004737
103407
005237
010001
104456

001170
005054
012124

010752
002212

AR R AR R R AR AN AN AR

NN RN NN AN A NN RAR AN

R AN RN AN AN N ANN RN

AARERNRNNS

JSR

PC,WRTCHR

;ISSUE WRITE CHARACTERISTICS

INC
MOV
ERRHRD

FATFLG
RO,R1
ERRNO,WRTMSG,
SF IMSG

*BUMP COUNT
:SAVE CONTENTS OF TSSR
‘WRITE CHARACTERISTISC FAILED

BCS

268

:BR, IF COMMAND ISSUED OK

TRAP

.WORD

.WORD
-WORD

CSERHRD

632

WRTMSG
SFIMSG

TSV7 = HARDWARE

TEST

REREADS

6234 060172
060172

TESTS 1-8

MACRO M1113

25-MAY-82 09:19

268:

104406

PAGE 129-1

CKLOOP

SEQ 0264

;LOOP IF SELECTED

TRAP

C$CLPI

:Qttttt.t't'.t""t.'t.t.t"ittiQQ.'Q.'.Q.QQ'lt"...'.'..'.""'...

*ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
6241
6242
6243
6244
6245
6246
6247
6251

060174
060200
060202
060206
060212
060214
060220
060220
060222
060224
060226
6252 060230
060230

Ettit't'.'.'.t....".'t't"..tttt".'."...'......'.Q...'..Q'.....'
004737
103413
016501
012702
010004
005237

011104

JSR

PC,REWIND

;CALL TAPE REWIND COMMAND

MOV
MOV

TSSR(RS) ,R1
#SSR,R2

‘GET TSSR
*SET UP EXPECTED TSSR

BCS

000002
000200

MOV
INC
ERRHRD

002212

104456

00117
073254
012136

308:

104406

30§

RO.Ré
FATFLG
ERRNO, T26RWN,PKTSSR

CKLOOP

*BR, IF NO PROBLEM

*PACKET ADDRESS SET UP
‘BUMP COUNT
*REWIND NOT ACCEPTED

;LOOP IF SELECTED

TRAP

CSERHRD

.WORD
"WORD

433
T26RWN

TRAP

CS$CLP1

‘WORD

PKTSSR

:'..ttt.Q".tt."'ttfi't"".t'tfi..tt..tt"....Q'...i.....'fi'.""..

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
Ett.tt.t".tttt....tt"ttt'.ttt.'.Qfi'ttt.Q'.QtQt.t'fi.t'i't.t't't.'t
071630

MOV

000002

8IS

002212

104456
001172
07765
01564
104406

012703
013737

T268FR+6,R1

:PICK UP XSTO

#81iT1,R2

*SET BOT BIT IN EXPECTED

MOV

R1.R2

CMP
BEQ
INC
ERRHRD

R1,R2
408
FATFLG
ERRNO, T26BOT ,EXPREC

*SET UP EXPECTED

*DOES EXP = REC'D
‘BR, IF EQUAL (OK)
*BUMP COUNT
*TAPE NOT AT BOT AFTER REWIND
TRAP

WORD
"WORD

40$:

000400
003114

CKLOOP
MOV

071722

MOV

:LOOP IF SELECTED
#256. .R3

FREE, T26RB

;RECORD SIZE

TRAP

C$CLPI

:STARTING WRITE BUFFER ADDRESS

— b

;'.Qt..."itt'.'ti'tt"t'tit't..fi.fi.tttlfi.'tiit.tt'fi.."'fi't.t.'.fi'

oNroC

300
737
337

140005

071720

MOV

#140005, T26PK3

:WRITE DATA,CVC=1,ACK COMMAND

MOV

#T26PK3 R4

*SET UP R4 WITH PACKET ADDRESS

MoV

R3.RO0

:SET PATTERN IN CORRECT REGISTER

JSR
MOV

PC.FILLMEM
R3. 12652

634
T26BOT

EXPREC

SWRITE DATA,CVC=1,ACK COMMAND
737
704

C$SERHRD

‘WORD

:t..t.t.t‘ltt...'tttt""'tt'ttit.Qitfit'..ttQ'fi'ttt.fi."".fit"it"

—_ O =

6283 060312
6284 060314
6285 060320

013701
010102
052702
020102
001406
005237

OO0

6260 060232
060236
6262 060240
6263 060244
6264 060246
6265 060250
6269 060254
060254
060256
060260
060262
6270 060264
060264
6271 060266
6272 060272
6273
6274
6275
6276
6277
6278
6279
6280 060300
6281 060306
6282 060312

*FILL MEMORY WITH RECORD SIZE
*SET UP RECORD SIZE IN PACKET

TSV? - HARDWARE

TEST

REREADS

6286 060324
6287 060332
6288 060340
89 060344

6290 060350
060354
6292 060360
6293 060362
6294 060364
6298 060370
060370
060372
060374
060376
6299 060400
060400
6300 060402
6301 060404
6202 060410
6303 060412
6304 060414
6305 060414
6306
6307
6308
6309
6310
6311
6312
6313 060420
6314 060424
6315 060426
6316 060432
6317 060436
6318 060440
6322 060444
060444
060446
060450
060452
6323 060454
060454

TESTS 1-8

013777
062737
010465
004737
016501
012702
020102
001406
005237

071746
000001
000000
016340
000002
000200

MACRO M1113

22562
0 71746

MOV
ADD

75$:

104406

005137

TSSR(RS) ,R1
#SSR,R2

INC

FATFLG

s ISSUE COMMAND

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

R1,R2
75§

1031

ERRNO,WRTERR,PKTSSR

120%:

CLR

AAAAALLEA

SRR

sTSSR

INCORRECT AFTER REREAD DATA
TRAP
CSERHRD

.WORD
-WORD

635
WRTERR

TRAP

cscLP1

PKTSSR

.WORD

sBUMP THE RECORD SIZE
sMAXIMUM SIZE YET
;BR, IF AT END OF WRITE SEQUENCE

#266. ,R3

BEQ
BR

:BR, IF 0K
:BUMP COUNT

.LOOP IF SELECTED

(R3)+

CMP

SEQ 0265

sMOVE TAPE RECORD NUMBER TO BUFFER
¢NUMBER READY FOR NEXT RECORD

CKLOOP

000412

071746

MOV
JSR
MOV
MOV

ERRHRD

104456

005723
022703
001401
Ccno737

T26CNT,aF
REE
#1,T26CNT
R4 . TSDB(RS)
PC.WAITF

CMP
BEQ

002212

001173
005111
012136

H 5
PAGE 129-2

25-MAY-82 09:19

1208
65$

sWRITE MORE RECORDS

T26CNT

sSET RECORD COUNTER BACK TO ZERO

ARl

YIS

222

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
3

004737

011104

016501
012702
010004
005237

000002
000200

103413

AN AN AN AN NN N AN N AN N

JSR

PC,REWIND

MOV
MOV
MOV
INC

TSSR(RS)
,R1
#5SR,R2
RO,R4
FATFLG
ERRNO,T26RWN,PKTSSR

8(S

002212

1308

ERRHRD

104456

TN T AN R AN RN A RAN A NN AN N AR AN ANRARA NN

ANANANON

;CALL TAPE REWIND COMMAND
;BR, IF NO PROBLEM
:GET TSSR
JSET UP EXPECTED TSSR
JPACKET ADDRESS SET uP
:BUMP COUNT
JREWIND NOT ACCEPTED

TRAP

001174
073254
012136

1308:

104406

CKLOOP
A R

sLOOP IF SELECTED

AN AR AN AN AN N TR AN NN TN RN AAN RN RAN N AR

AN N A AN NN

CSERHRD

.WORD
.WORD

636
T26RWN

TRAP

cscLPl

.WORD

PKTSSR

NN NANNNRRRNARES

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
.

SRR

6331 060456
6332 060462
6333 060464
6334 060470
6335 060472
6336 060474
6340 060500
060500

071630
000002
€02212
104456

AR AR AR

N AN

AN AN

NN A

AR N AN AN RN A RN AN RN AN G N AN AR NN

MOV
MOV
BIS
CMP

T268FR+6,R1
R1,R2
#81T1,R2
R1,R2

INC

FATFLG

BEQ

ERRHRD

1408

ERRNO, T26B0T,EXPRE(

NARN RN RRANARERNSN

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

;TAPE NOT AT BOT AFTER REWIND
TRAP

CSERHRD

TEST

REREADS

060502
060504
060506
6341 060510
060510

TESTS 1-8

MACRO M1113

25-MAY-82 09:19

PAGE 129-3

SEQ 0266
001175
072765
015564

1408:

104406

(KLOOP

AALAAALA

cLOOP IF

RAA

A2l

SELECTED

637

.WORD
.WORD
.WORD

726807
EXPREC

TRAP

CSCLP

ISR

:1SSUE_SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
;BIT 15 SETS DIRECTION ~ 0=FORWARD

1=REVERSE

[

6350
6351
6352
6353

060512
060516
060522
060526

012703
004737
012703
013737

000001
010556
000400
003114

A NN RRAAREANAA R AN A RN A RN A NAANNANANAR

MOV

#1,R3

sSET UP SPACE FORWARD 1

MOV

#256. ,R3

:RECORD SIZE

JSR

071722

1508:

RN ANNARN NN NANANAONOARNNNANENS

PC.SPACE

MOV

:1SSUE SPACE COMMAND

FREE, T26RB

IAAAAALASALE

:STARTING READ BUFFER ADDRESS

*REREAD DATA,CVC=1,ACK, OPP COMMAND
]

MAALAAAS A

6361 060534
6362 060542
6363 060546
6364 050552

6365 060556
6366 060562
6367 060566
6368 060572
6369 060574
6370 060576
6374 060602

0
6375 860612

6376 060614
6377 060620
6378 060624
6379 060626
6380 060630
6381 060632
6385 060636

0
6386 060646
060646
6387 060650
6388 060652
6389

171001

004737
016501
012702
020102
001406
005237

071720
071726
000000

071720

1658:

Rl At

MOV
MOV

002212

BEQ
INC

1708
FATFLG

CMP

ERRHRD

#171001,726PK3
#T26PK3,R4
R3,126S2

000002
000200

R1,R2

ERRNO, T26RRF ,PKTSSR

IITI

sREREAD DATA,CV(=1,ACK, OPP COMMAND
¢SET UP R4 WITH PACKET ADDRESS
sSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
sSET UP EXPECTED

SARE THEY EQUAL

‘BR, IF OK
*BUMP COUNT

STSSR INCORRECT AFTER REREAD DATA
TRAP
CSERHRD

.WORD
-WORD

1708:

122274
071746

CKLOOP
MOV

MOV
SWAB
CMP

BEQ
INC
ERRHRD

002212

104456
001177
071756
015564

1046406
005723
062737

R4, TSDB(RS)
PC,WAITF
TSSR(RS)
,R1
#SSR _R2

072175
012136
104406

MOV
MOV
MoV

MOV
JSR

016340

104456
001176

017701
013702
000302
020102
001406
005237

;LOOP IF

aFREE R

T26CNT,R2
R2
R1,R2
1908
FATFLG
ERRNO, T26WNG , EXPREC

SELECTED

"WORD

TRAP
;FIRST WORD FROM READ BUFFER

000001

071746

ST
ADD

(R3)+
#1,T26CNT

CSCLP1

‘KEEP GOING POSITION OK
*BUMP COUNT
:TAPE POSITION INCORRECT

.WORD
‘WORD

CKLOOP

PKTSSR

SSET UP EXPECTED
*SWAP BYTES IN EXPECTED
:1S TAPE POSITION CORRECT

TRAP

1908:

638
T26RRF

CSERHRD

639
T26WNG

.WORD

EXPREC

TRAP

C$CLPY

;NEXT RECORD SIZE
sBUMP TAPE RECORD COUNTER

—

TSV? - HARDWARE

TSV7 ~ HARDWARE TESTS 1-8

TEST

REREADS

MACRO M1113

6390
6391

25-MAY-82 09:19

PAGE 129-4

SEQ 0267

"tttt't'tt't"ttt"tttt'ttttt'.tttt!tfi'ttttt.tt'tt'tittttt'tt.ttttt
:

2%3%

;READ DATA, CVC=1, ACK COMMAND

6394
6395
6396 060660

:'t'ttttttttt'ttttttt"'tt'ttt'ttttttt.tt..tttt'tttttitt.t.tttttt.tt
012737

6398 060672
6399 060676
6400 060702
6401 060706

010465
004737
016501
012702

6397 060666

6402 060712

6403 060714
6404 060716
6408 060722
060722
060724
060726
060730
6409 060732
060732
6410 060734
6411 060740
6412 060744

010337

020102

001406
005237

6428 061014

000000
016340
000002
000200

MOV
JSR
MOV
MOV

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

002212

BEQ
INC
ERRHRD

2158
FATFLG
ERRNO, T26RDF ,PKTSSR

002212

104406
022703
001401

CMP

2178:

000410

004737

002212

017272

000017

SFREE ,R1
T26CNT,R2
R1,R2

INC
ERRHRD

FATFLG
ERRNO, T26WNG, EXPREC

2178

B8R

#264. ,R3
2°08

>08

ENDSUB

JSR

JREAD DATA, CVC=1, ACK COMMAND

JSET SIZE INTO PACKET

;ISSUE READ DATA COMMAND
;WAIT FOR SSR
:PICK UP THE TSSR
JSET UP EXPECTED

SIS THE TSSR OK

:BR, IF TSSR 0K (GOOD)
:BUMP COUNT
;READ DATA COMMAND FAILED
TRAP
LWORD
.WORD
.WORD
:LOOP IF SELECTED
TRAP
;FIRST WORD FROM READ BUFFER
:SET UP EXPECTED
;1S TAPE POSITION CORRECT

FATFLG,#1S5.
999%

PC.,CKDROP

CSERHRD
640
T26RDF
PKTSSR
CSCLP1

;KEEP GOING POSITION OK

;BUMP COUNT
;TAPE POSITION INCORRECT

TRAP
.WORD
.WORD
.WORD

CKLOOP

cMP
8LO
999%:

R1,R2

MOV
MoV
CMP

CMP
BEQ

220%:

R3,T726S2

(CKLOOP

BEQ

000654

104403
023727
103402

MOV

2158:

005237

104456
001201
071756
015564

6427 061010

#140001,726PK3

122154
071746

060754
060756
060760
060762
6419 060764
060764
6420 060766
6421 060772

6423 060776
6424 060776
060776
060776
6425 061000
64626 061006

MOV

104406
017701
013702
020102

001406

6422 0607764

071720

104456
001200
072126
012136

6413 060746

6414 060750
6418 060754

140001

071725

TRAP
JAT MAX SIZE YET
;BR, IF AT END OF THE SUBTEST

CSERHRD
641
T26WNG
EXPREC
CSCLP1

;KEEP GOING MORE RECORDS

O3333>535>35> END SUBTEST >>>>>>>>>>>>
L10106:
TRAP
CSESUB
;1S ERROR COUNT AT 2§
:BR, IF LESS THAN 2§

:TRY TO DROP THE UNIT

T1EST

REREADS

25-MAY-82 09:19

K
5
PAGE 130

—

MACRO M1113

SEQ 0268

6430

643

gz%g

JTEST 6, SUBTEST §

6434
6435
6436
6437
6438
6439
6440

JVERIFIES THAT A REREAD PREVIOUS COMMAND READING A
JRECORD LONGER THAN THE SPECIFIED BYTE COUNT CAUSES
sTAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH
cLONG (RLL) BIT SET. RESULTS ARE VERIFIED FOR BOTH
JSTATES OF OPP (0 AND 1).
:
:

6441
6442

:
i-

6443

6444
6445 061014
061014
061014
6446 061016
6447 061022
gzzg 061026

BGNSUB
104402
004737
004737
004737

074510
074602
074644

JSR
JSR
JSR

6450

PC,T26REST
PC,T26RT?
PC,T26RT3

JO555535>>>>> BEGIN SUBTEST >>>>>>>>>>>>
16.5:
TRAP
cs8suB
JSET COMMAND PACKET
JSET UP OTHER COMMAND PACKET
JSET UP OTHER COMMAND PACKET

:.'t..!tt.tt'ttttttfittt."ttt!.!tttfitt.tfitttttttt.t‘ 1 2223322222232

6451

gzg%

s ISSUE CONTROLLER ''SOFT'* INITIALIZE = CARRY BIT CLEAR IF ERROR

645‘
6455
64656 061032
6457 061036
6458 061040
6462 061044
6463 061046
061046
061050
061052
061054
222? 061056

:'ttfit.ttt'..tttt.tt..tttttttittfi'ttQt.ttfittttttttt.tt.t.i'tfitt.ittt

104455
001202
003650
012124
013737

002172

2229 0610646

012704

071600

004737
103407
005237
010001

016064
002212

6468

20%:

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

MOV

UNITN,T26DSW

;D0 INITIALIZE ON CONTROLLER
:BR IF INIT WAS 0K
;BUMP COUNT
;CONTENTS OF TSSR REGISTER
JFATAL ERROR TSSR WAS NOT 0K
TRAP
.WORD
.WORD
.WORD
JSET UP UNIT NUMBER

MOV

#T26PACKET R4

s SUBROUTINE NEEDS PACKET ADDRESS

CSERDF
642
SFIERR
SFIMSG

.'tQ.tt.tt.ttt'.t.ttt"'ttt\ AANARENRNARNRANARARARAANRARN RN RANN RGN NNANNNGN

6469

22;?

6472
6473
6474 061070
6475 0610746
6476 061076
6480 061102
6481 061104
061104
061106
061110
061112
6482 061114

071620

JSR
8CS
INC
MOV
ERRDF

JWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
:‘"tt'tt't...t!'ttttttt".ttttt'tfiQ'.tt.i.t"tt.ttt.ttt'tttttltt"t

004737
103407
005237
010001

104456
001203
005054
012124

010752

JSR
8CS
INC
MOV
ERRHRD

002212

26%:

CkLOOP

PC,WRTCHR
26$
FATFLG
RO,R1
ERRNO,WRTMSG,SFIMSG

JISSUE WRITE CHARACTERISTICS
JBR, IF COMMAND ISSUED OK
;BUMP COUNT
sSAVE CONTENTS OF TSSR
JWRITE CHARACTERISTISC FAILED
TRAP
.WORD
WORD
.WORD
:LOOP IF SELECTED

CSERHRD
643
WRTMSG
SFIMSG

TSV7 = HARDWARE TESTS 1-8

r—

TSV? = HARDWARE TESTS 1-8

TEST

REREADS

3 061114

MACRO M1113

25-MAY-82 09:19

PAGE 130-1

SEQ 0269

104406

TRAP

648‘
6485

.‘tttttttttttttttt'ttttittttttttttttttttQQtttt.'tttt.tt.t't..t..t.tt
:

6488
6489
6490 061116
6491 061122
6492 061124
6493 061130
6494 061134
6495 061136
6499 061142
061142
061144
061146
061150
6500 061152
6501 061152

:'tttttttttttttttttttttttttt'tttttttttttttttttt'ttttttt.tttttttttttt

gzgg

JISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

004737
103413
016501
012702
010004
005237

011104

JSR
BCS
MOV
MOV
MOV
INC
ERRHRD

000002
000200
002212

104456

001204
073254
012136

308 :

104406

6502

PC,REWIND
30$
TSSR(RS) ,R1
#SSR,R2
RO,R4
FATFLG
ERRNO,T26RWN,PKTSSR

CKLOOP

JCALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
GET TSSR
JSET UP EXPECTED TSSR
JPACKET ADDRESS SET uP
;BUMP COUNT
JREWIND NOT ACCEPTED
TRAP
.WORD
LWORD
.WORD
cLOOP IF SELECTED
TRAP

CSERHRD

644
T26RWN
PKTSSR

C$CLP

:ttQtttt&ttttttttttttttttt'ttttttittttttttttttttttttttttttttttttttfi

6503

gggg

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

6506
6507
6508 061154
6509 061160
6510 061162
6511 061166
6512 061170
6513 061172
6517 061176
061176
061200
061202
061204
5518 061206
061206
6519 061210
ggse 061214

:'tttttt.ttt.ttt.ttttttttttttttttttttttttttttt'ttttttttt.tttttttttt.
013701
010102
052702
020102
001406
005237

071630

MoV
MOV
8IS
CMP
BEQ
INC
ERRHRD

000002

0022i2

104456
001205
072765
015564
104406
012703
013737

40$:

001000
003114

T26BFR+6,R1
R1,R2
#81T1,R2
R1,R2
408
FATFLG
ERRNO,T26B0T ,EXPREC

CKLOOP

MOV
MOV

071722

6522

#512. ,R3
FREE,T26RB

JPICK UP XSTO
JSET UP EXPECTED
JSET BOT BIT IN EXPECTED
:DOES EXP = REC'D
sBR, IF EQUAL (OK)
:BUMP COUNT
;TAPE NOT AT BOT AFTER REWIND
TRAP
.WORD
JWORD
.WORD
;LOOP ]F SELECTED
TRAP
JRECORD SIZE
JSTARTING WRITE BUFFER ADDRESS

;t."tt't't'.'ttt'..t't'ttttt.t"tttt.ttttttttttttttttttttttttttttt

6523

ggsg

JWRITE DATA,CV(C=1,ACK COMMAND

6526

:'.'t'..'t..t!t'ttt..ltttttttttttttttttttttt'ttt!ttttttttt'tttttttt'

6527
6528 061222
gg%g 82}5%2

012737
012704

140005
071720

6531 061234

010337

071726

6532 061240
6533 061244
6534 061250

CSCLP

010465
004737
016501

000000
016340
000002

071720

658

)

MOV
MOV

#160005,726PK3
#T26PK3 R4

JWRITE DATA,CVC=1,ACK COMMAND
JSET UP R4 WITH PACKET ADDRESS

Moy

R3,T126S2

JSET UP RECORD SIZE IN PACKET

MOV
JSR
MOV

R4, TSDB(RS)
PC,WAITF
TSSR(RS) ,R1

;ISSUE COMMAND
JWAIT FOR SSR TO SET
:GET TSSR CONTENTS

CSERHRD
645
T26BOT
EXPREC
CSCLP1

TEST

REREADS

6535 061254
6536 061260
6537 061252
6538 061264
6542 061270
061270
061272
061274
061276
6543 061300
061300
6544 061302
6545 061304
6546
6547
6548
6549
6550
6551
6552
6553 061312
6554 061320
6555 061324
6556 061330
6557 061334
6558 061340
6559 061344
6560 061350
6561 061352
6562 061354
6566 061360
061360
061362
061364
061366
6567 061370
061370
6568
6569
6570
6571
6572
6573
6574
6575 061372
6576 061376
6577 061400
6578 061404

012702
020102
001406
005237

000200

MOV

BEQ

002212

ERRHRD

SARE THEY EQUAL

FATFLG

*BUMP COUNT

‘B8R,

ERRNO,WRTERR,PKTSSR

IF OK

STSSR INCORRECT AFTER WRITE DATA
TRAP
CSERHRD

.WORD

75%:

104406

005303
013737

sSET UP EXPECTED

R1,R2
75¢

INC

104456

SEQ 0270

#SSR _R2

CMP

001206
005111
012136

mS
PAGE 130-2

25-MAY-82 09:19

—y

MACRO M1113

003114

CKLOOP

DEC
MOV

071722
AN

AR AR AN

;LOOP IF SELECTED

R3
FREE, T26RB

646

.WORD
"WORD

WRTERR
PKTSSR

TRAP

C$CLP1

:SET RECORD SIZE TO 511.
*STARTING READ BUFFER ADDRESS

AN AR AN AN RN AR AN RN AR ARRANRARRRIRARANNRRANNRNANAERARNRRARY

*REREAD DATA,CVC=1,ACK,OPP=1 COMMAND
0

NN R AR R AR AN A AN

012737
012704
010337
010465
004737
016501
012702
020102
001406
005237

161001
071720
071726
000000
016340
000002

071720

MOV

165%:

100204

104456

001207
074332
012136

1708:

104406

#161001,T26PK3

sREREAD DATA,CV(C=1,ACK,OPP=1 COMMAND
sSET UP R4 WITH PACKET ADDRESS
sSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
+SET UP EXPECTED

MOV
Mov
MOV
JSR
MOV
MOV
cMP

#T26PK3,R4
R3,T126S2
R4 ,TSDB(RS)
PC,WAITF
TSSR(RS)
,R1
#SSR!SC!BITZ,R2
R1,R2

INC
ERRHRD

FATFLG
ERRNO,T26TRL ,PKTSSR

BEQ

002212

AN R AR AN TN RN N RN R AN RN R AN AN RRNARNANNNNRRNANANRA
TN ERNS

JARE THEY EQUAL

1708

;BR,

sTSSR

CKLOOP
AR

AR ARl

IF 0K

sBUMP COUNT

INCORRECT AFTER REREAD DATA
TRAP
CSERHRD

sLOOP IF SELECTED
e

WORD
.WORD

647
T26TRL

TRAP

cscLPl

.WORD

PKTSSR

2222222222222

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
0

013701
010102
052702
020102
001406
005237
104456
001210
074100
015564
104406

071630

A AR AR AN AT AN N R RN

MOV
MOV

BIS

010000

RN AN AN AN RN RN AR AR AN

T26BFR+6,R1
R1,R2

#81T12.R2

CMP
R1,R2
BEQ
1808
INC
FATFLG
ERRHRD ERRNO, T26LON,EXPREC

002212

1808:

CKLOOP

N AR NN N AN AN RN R ATNARARRN

sGET MESSAGE BUFFER
sSET UP EXPECTED

:SET THE RLL BIT IN EXPECTED

SARE THEY EQUAL
:BR, IF EQUAL (ALL IS WELL)

+BUMP COUNT

:THE RLL BIT WAS NOT SET

sLOOP IF SELECTED

IN XSTO
TRAP
CSERHRD

WORD
WORD
.WORD

648
T26LON
EXPREC

TRAP

Cs$CLP

—

TSV7 = HARDWARE TESTS 1-8

TSV? = HARDWARE TESTS 1-8

TEST

6: REREADS

6586 061426
6587 061432
6588
6589
6590
6591
6592
6593
6594
6595 061440
6596 061446
6597 061452
6598 061456
6599 061462
6600 061466
6601 061472
6602 061476
6603 061500
6604 061502
6608 061506

012703
013737

00777
003114

MACRO M1113

6613
6614
6615
6616
6617 061520
6618 061524
6619 061526
6620 061532
6621 061534
6622 061536
6626 0615642
061542
061544
061546
061550
6627 061552
061552
6628 061554
061554
061554
6629 061556
6630 06156¢
6631 061566
6632 061572

MOV
MOV

071722

SEQ 0271

#511. ,R3
FREE,T26RB

sSET RECORD SIZE
sSTARTING READ BUFFER ADDRESS

:Qttttt..tttt'tttttt"t'it.t't.fitttitt.t'fit'tt.fittttttt"ttt.t"tti

'REREAD DATA,CVC=1,ACK COMMAND
14

:ttttttttt'tttttttt't't'iti'itttttt'tlttttttt*t!tfitttt.ttt.titlt.tt

012737
012704
010337
010465
004737
016501
012702
020102
001406
005237

141001

071720
071726
000000
016340
000002

071720

3658:

100204

002212

MOV

#141001,T26PK3

MOV
JSR
MOV
MOV
CMP

R4 ,7SDB(RS)
PC,WAITF

MOV
MOV

104456
001211

3708:

104406

;REREAD DATA,CVC=1,ACK COMMAND

#T26PK3,
R4
R3,7126S2

sSET UP R4 WITH PACKET ADDRESS
sSET UP RECORD SIZE IN PACKETY
s ISSUE COMMAND
cWAIT FOR SSR TO SET
sGET TSSR CONTENTS
:SET UP EXPECTED

BEQ

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

ERRHRD

ERRNO,T26TRL,PKTSSR

INC

074332
012136
6610
6611
6612

N 5
PAGE 130-3

25-MAY-82 09:19

cARE THEY EQUAL
;BR, IF 0K

FATFLG

CxLOOP

:BUMP COUNT

s TSSR INCORRECT AFTER RE?SAg DAT A
A
CSERHRD

.LOOP IF SELECTED

-WORD
.WORD
.WORD

649
T26TRL

TRAP

Cs$CLP1

PKTSSR

;ittttt.fitfittttttttitt'tttt'tttlitttfilfiittfitttttttttt.tttttttt"ttt

READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
.

FAAAAAR

013701
010102
052702
020102
001406
005237

071630

MOV
MOV

010000
002212

001212
074100
015564

380%:

104406

iRl

002212

004737

017272

000017
9998

ARl

ittt

sGET MESSAGE BUFFER
JSET UP EXPECTED

FATFLG

;BUMP COUNT

#BIT12,R2
R1,R2
3808

ERRHRD

ERRNO,T26LON,EXPREC

JSR

itlddd)

JSET THE RLL BIT IN EXPECTED
JARE THEY EOQUAL
JBR, IF EQUAL (ALL IS WELL)
;THE RLL BIT WAS NOT SETT£=PXSTO
.WORD
.WORD
.WORD

(kLoOP

CMP
BLO

T26BFR+6,R1
R1.R2

ENDSUB

023727
103402

BIS
CMP
BEQ
INC

104456

104403

SRR

CSERHRD
650
T26LON
EXPREC

TRAP

CS$CLP

TRAP

(SESUB

23355553555
>> END SUBTEST >>>>>> >>>>>>
L10107:
FATFLG,MS.
999¢
PC,CKDROP

;1S ERROR COUNT AT 25
;sBR, IF LESS THAN 25
JTRY

TO DROP THE UNIT

———

TSV? = HARDWARE TESTS 1-8

TEST

6: REREADS

MACRO M1113

25-MAY-82 09:19

PAGE 131

SEQ 0272
:0

:TEST 6, SUBTEST 6

EVERIFIES THAT A REREAD PREVIOUS COMMAND READING A

sRECORD SHORTER THAN THE SPECIFIED BYTE COUNT CAUSES
sTAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH
sSHORT (RLS) BIT SET. IT IS VERIFIED THAT THE
JRESIDUAL BYTE COUNTER (RBPCR) IN THE MESSAGE BUFFER
;CONTAINS THE PROPER NONZERO VALUE (E.G., THE
sDIFFERENCE BETWEEN THE ORIGINAL BYTE COUNT AND THE
cACTUAL RECORD LENGTH). RESULTS ARE VERIFIED FOR BOTH
sSTATES OF OPP (0 AND 1).

6651 061572
061572
061572
6652 061574

6653 061600
665g 061604

4
104402

004737
004737
004737

074510
074602
074644

BGNSUB
JSR
JSR
JSR

(922222002220 BEGéNéSUBTEST DI3O33533>>>
16.6:

PC,T26REST
PC,T26RT2
PC,T26RT3

TRAP

csBsuB

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

.'tttttttttttttttttttt'ttttttittttttttttttttttttfitttt'tt'ttttl'i! L2 8]

EISSUE CONTROLLER ‘‘'SOFT’' INITIALIZE =~ CARRY BIT CLEAR IF ERROR
;tttttttttt!fitttttttttt'ttt'tttttttttttttttttttttttttttttt.tttt'ttt
6662
6663
6664
GAER
6669

061610
061614
061616
061622
061624
061624
061626
061630
061632
6670 061634
6671
6672 061642
6673
6674
6675
6676
6677
6678
6679
6680 061646
6681 061652
6682 061654
6686 061660

6687 061667
06166¢
061664
061666

004737
103407
005237
010001

016064

JSR

8CS

002212

104455
001213
003650
012124
013737

002172

012704

071600

INC
MOV
ERRDF

PC,SOFINIT

20%

FATFLG
RO,R1
ERRNO,SFIERR,SF IMSG

sDO INITIALIZE ON CONTROLLER

;JBR IF

INIT WAS 0K

:BUMP COUNT
JCONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT 0K
TRAP

CSERDF

.WORD

071620

20s:

651

.WORD
.WORD

SFIERR
SFIMSG

MOV

UNITN,T26DSW

JSET UP UNIT NUMBER

MOV

#T26PACKET R4

s SUBROUTINE NEEDS PACKET ADDRESS

.'t't'tttttttttttttttt'tQtt't'tttttttt.tttttttt.ttttttttt.t'tttttt't

EURITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
:'tttttttt.i'tttttttttttttt'tttttt.Qttttt.t'tt.tt.Qt'tttt.itt'tttt't
004737
103407
005237
010001
104456

001214
005054

010752

002212

JSR

PC,WRTCHR

sISSUE WRITE CHARACTERISTICS

INC
MOV
ERRHRD

FATFLG
RO,R1
ERRNO,WRTMSG, SFIMSG

;BUMP COUNT
sSAVE CONTENTS OF TSSR
JWRITE CHARACTERISTISC FAILED

8(Cs

269

;BR, IF COMMAND ISSUED 0K

TRAP

.WORD

CSERHRD

652

WRTMSG

TSV7 = HARDWARE TESTS 1-8

TEST

REREADS

061670
6688 061672
6689 061672

MACRO M1113

012124

25-MAY-82 09:19

26$:

104406

6690
6691

PAGE 131-1

ckLooP

SEQ 0273

;LOOP IF SELECTED

.WORD

SFIMSG

TRAP

cscLPt

".."...'.'..'..‘.'...".'.."..Qfi.'."....'Q..".'.".'.'..'."Q"
:

ggg%

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

669‘
6695
6696 061674
6697 061700
6698 061702
6699 061706
6700 061712
6701 061714
6705 061720
061720
061722
061724
061726
6706 061730
6707 061730

:‘"...‘"".'..'.'."""".'..Q.‘.'.'...".'."........'.."....'.
004737
103413
016501
012702
010004
005237

011104

JSR
B(S
Mov
MoV
Mov
INC
ERRHRD

000002
000200

002212

104456
001215
073254
012136

308:

104406

6708

PC,REWIND
308
TSSR(RS) ,R1
#SSR,R2
RO,R4
FATFLG
ERRNO, T26RWN,PKTSSR

CKLOOP

NN RN R NN

6709

sCALL TAPE REWIND COMMAND
;BR, IF NO PROBLEM
JGET TSSR
sSET UP EXPECTED TSSR
sPACKET ADDRESS SET UP
:BUMP COUNT
REWIND NOT ACCEPTED
TRAP
.WORD
.WORD
.WORD
;LOOP [F SELECTED
TRAP

AR R R R RN RN RN AN AN RN RN AN AN AN AN RN AN RN

RN R AR RN

CSCLPT

N NS

g;}?

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

6712
6713
6714 061732
6715 061736
6716 061740
6717 061744
6718 061746
6719 061750
6723 061754
061754
061756
061760
061762
6724 061764
061764
6725 061766
g;gg 061772

AR
013701
010102
052702
020102
001406
005237

071630
000692
002212

40$:
000400
003114

AR AR TN RN RN AR AR

mMov
MoV
BIS
cMP
BEQ
INC
ERRHRD

104456
001216
072765
015564
104406
012703
013.
"7

CKLOOP
MoV
MOV

071722

T26BFR+6,R1
R1,R2
#8IT1,R2
R1,R2
408
FATFLG
ERRNO,T26BOT,EXPREC

AN RN RN AR AR AN AT RS
sPICK UP XSTO
sSET UP EXPECTED
:SET BOT BIT IN EXPEC/ED
;DOES EXP = REC'D
:BR, IF EQUAL (OK)
;BUMP COUNT
s TAPE NOT AT BOT AFTER REWIND
TRAP
WORD
.WORD
.WORD

;LOOP IF SELECTED

#256. ,R3
FREE,T26RB

TRAP
¢RECORD SIZE
¢STARTING WRITE BUFFER ADDRESS

6728
6729

T
T
Y R T
LTI
:

6732
6733
6734 062000
g;gg 8258?3

A
E AR AR AR
T
RN AN AR AR E TR TN RN AR
012737
012704

140005
071720

6737 062012

010337

071726

g;g?

6738 062016

CSERHRD
653
T26RWN
PKTSSR

SWRITE DATA,CV(=1,ACK COMMAND

010465

000000

071720

658

MOV
MOV

#140005,T26PK3
#T26PK3 R4

sWRITE DATA,CVC=1,ACK COMMAND
sSET UP R4 WITH PACKET ADDRESS

MOV

R3.726S2

sSET UP RECORD SIZE IN PACKET

MoV

R4, TSDB(RS)

s ISSUE COMMAND

CSERHRD
654
126807
EXPREC
cscLPY

TSV7? = HARDWARE TESTS 1-8
TEST
6: REREADS

6739 062022
6740 062026
6741 062032
6742 062036
6743 062040
6744 062042
6748 062046
062046
062050
062052
062054
6749 062056
062056
6750 062060
6751 062064
6752
6753
6754
6755
6756
6757
6758
6759 062072
6760 062100
6761 062104
6762 062110
6763 062114
6764 062120
6765 062124
6766 062130
6767 062132
6768 062134
6772 062140
062140
062142
062144
062146
6773 062150
062150
6774
6775
6776
6777
6778
6779
6780
6781 062152
6782 062156

6783 062160
6784 062164
6785 062166
6786 062170
6790 062174
062174
062176
062200
062202

004737
016501
012702
020102
001406
005237

MACRO M1113

016340

JSR
MOV
MOV

000002
000200

002212

001217
005111
012136
012703
013737

PAGE 131-2

PC,WAITF
TSSR(RS) ,R1
#SSR,R2

CMP
BEQ

R1,R2
75$

ERRHRD

ERRNO,WRTERR,PKTSSR

INC

104456

104406

25-MAY-82 09:19

FATFLG

SEQ 0274
;WAIT FOR SSR TO SET
SGET TSSR CONTENTS
*SET UP EXPECTED

:ARE THEY EQUAL
:BR, IF OK

*BUMP COUNT
*TSSR

INCORRECT AFTER WRITE DATA
TRAP
CS$ERHRD

.WORD

758:
001000
003114

CKLOOP
MOV

071722

MOV

;LOOP IF SELECTED
#512..R3

FREE, T26R8

;RECORD SIZE

655

.WORD
'WORD

WRTERR
PKTSSR

TRAP

CSCLP

*STARTING READ BUFFER ADDRESS

:t.ttttttttt.tttt.ttttttttt'.ttfittfi.'tt'f«t".t't.ttt.t..tt'.l"ttt'

:REREAD PREVIOUS,ACK,CVC=1,0PP=1

:'ttQitlt.ttttQtt.i'ti'it'tt"t.t%tttttt..t.ttt."'.ttt.tttt.tti.tt.
161001

071720
071726
000000
016340
000002
100204

005237

071720

1658:

#161001,T26FK3

;REREAD PREVIOUS,ACK,CVC=1,0PP=1

#T26PK3 R4
R3,T2652

SSET UP R4 WITH PACKET ADDRESS
*5ET UP RECORD SIZE IN PACKET

JSR
MOV
MOV

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

*WAIT FOR SSR TO SET
*GET TSSR CONTENTS
:SET UP EXPECTED

MOV

CMP
BEQ

002212

104456
001220
074332
012136

MOV

MOV
MOV

INC

ERRHRD

R&4 . TSDB(RS)

R1,R2
170s
FATFLG
ERRNO, T26TRL ,PKTSSR

:ISSUE COMMAND

*ARE THEY EQUAL
:BR, IF OK
:BUMP COUNT
STSSR INCORRECT AFTER READ DATA
TRAP

.WORD
WORD

1708:

104406

CKLOOP

:LOOP IF

SELECTED

CSERHRD

656
T26TRL

.WORD

PKTSSR

TRAP

CSCLP1

;'t'tttttt.t..tttt.t't."t..ttltttttfiti.fitttt'tt.t..t.t'.ttt.tttt.'

SREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

:°tt.ttttttttt'.tttttt'tt"ttttfi!ttt.tttltttt'ltttt.t.ttttt'ttttt.tt
013701
010102
052702
020102
001406
005237
104456
001221
074162
015564

071630
040000

002212

MOV
MOV

BIS
CMP
BEQ
INC
ERRHRD

T26BFR+6,R1
R1,R2

#8iT14,R2
R1,R2
1808
FATFLG
ERRNO, T26LOP, EXPREC

;GET MESSAGE BUFFER
:SET UP EXPECTED

SSET THE RLS BIT IN EXPECTED
*ARE THEY EQUAL
:BR, IF EQUAL (ALL IS WELL)
SBUMP COUNT
STHE RLL BIT WAS NOT SET IN XSTO
TRAP

.WORD
"WORD

-WORD

CSERHRD

657
T26LOP

EXPREC

TSV7 = HARDWARE TESTS 1-8

TEST

REREADS

MACRO M1113

6791 062204
6792
6793
6794
6795
6796
6800

E
6
PAGE 131-3

25-MAY-82 09:19

180$:

071626
000400

CKLOOP
MOV
MOV
CMP
8EQ
INC

002212

ERRHRD

104456
001222

SEQ 0275
TRAP

T26BFR+4 ,R1
#256.,R2
R1,R2
1908
FATFLG

ERRNO,T26PBP,EXPREC

¢RBPCR NOT CORRECT

TRAP

JLOOP IF SELECTED

.WORD
-WORD
.WORD
TRAP

074244

015564

6801

6802 062240
062244

104406

012703
013737

1908 :

001000
003114

CKLOOP

MOV
MOV

071722

#512. ,R3
FREE,T26RB

csCLP1

sPICK UP RESIDUAL BYTE COUNTER
JTHIS SHOULD BE THE DIFFERENCE
21S THE DIFFERENCE CORRECT
:BR, IF CORRECT
;BUMP COUNT

CSERHRD
658
T26PBP
EXPRFC

cscLPl

JRECORD SIZE
;STARTING READ BUFFER ADDRESS

AR AR AR A AR A AR AR A AR RN N A R AN AN AR AR AAN NI AN RANRAANRAAA RN AN

ANNARAINNRENS

:REREAD PREVIOUS,ACK,CVC=1,0PP=0
.

062252
062260
6815

6820
6824

012737
012704
010337
010465
004737
016501
012702
020102
001406
005237

141001

071720
071726
000000
016340
000002

AR AN AN R AN RA NN RN RN

071720

MOV
MoV
MOV
MOV
JSR
MOV
MOV

100204

INC

ERRHRD

104456

AR AR RANNRNANRN RN RANRNAANRN RN NRNANNAREENY

#141001,726PK3
#T26PK3,R4
R3,126S2
R4 ,TSDB(RS)
PC,WAITF
TSSR(RS) ,R1
#SSR!SC!BIT2,R2

CMP
BEQ

002212

sREREAD PREVIOUS,ACK,CVC=1,0PP=0
sSET UP R4 WITH PACKET ADDRESS
sSET UP RECORD SIZE IN PACKET
: ISSUE _COMMAND
SWAIT FOR SSR TO SET
sGET TSSR CONTENTS
sSET UP EXPECTED

R1,R2
2708

sARE THEY EQUAL
sBR, IF 0K

ERRNO,T26TRL,PKTSSR

sTSSR INCORRECT AFTER READ DATA

FATFLG

:BUMP COUNT

TRAP

001223
074332
012136

2708:

104406

AR AR

(KLOOP

sLOOP IF SELECTED

NI AR A AN AR AN AN

AN TN R NRRNANN RN RANANANARNRA

CSERHRD

.WORD
.WORD

659
T26TRL

TRAP

cscLPl

.WORD

PKTSSR

ARNNNANRR NN RO NS

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
0

2
6833 062332
6834 062336
6835 062340
6836 062344
6837 062346
6838 062350
6842 062354
062354
062356
062360

013701
010102
052702
020102
001406
005237
104456
001224
074162

071630
040000

002212

AR AR

MOV

8IS
CMP
BEQ
INC
ERRHRD

T2625P‘6.R1

R1,

#81T14,R2
R1,R2
280%
FATFLG
ERRNO, T26L0OP,EXPREC

222222222

sGET MESSAGE BUFFER

sSET UP EXPECTED

sSET THE RLS BIT IN EXPECTED
sARE THEY EQUAL
sBR, IF EQUAL (ALL IS WELL)
+BUMP COUNT
sTHE RLL BIT WAS NOT SETTANPXSTO
A

.WORD
.WORD

CSERHRD
660
T26L0P

TSV7 =~ HARDWARE TESTS 1-8

TEST

REREADS

062362
6843 062364
062364
6844 062366
6845 062372
6846 062376
6847 062400
6851 062404
062404
062406
062410
062412
6852 062414
062414
6853 062416
062416
0626416
6854 062420
6855 062426
6856 062430
6857 062434

MACRO M1113

25-MAY-82 09:19

F
PAGE

6
1314
SEQ 0276

015564

104406
013701
012702
020102
001405

280%:
071626
000400

MOV
MOV
CMP
BEQ
ERRHRD

104456
001224
074244
015564

290%:

104406
104403
023727
103402
004737

.WORD

CKLOOP
T26BFR+4 R
#256. ,R2
R1,R2
290$
ERRNO,T26PBP,EXPREC

CKLOOP

ENDSUB
002212
017272

000017
999%¢:

CMP
8LO
JSR

FATFLG,#15.
999%
PC,CKDROP

EXPREC

TRAP
csCLP
JPICK UP RESIDUAL BYTE COUNTER
sTHIS SHOULD BE THE DIFFERENCE
;1S THE DIFFERENCE CORRECT
:BR, IF CORRECT
<RBPCR NOT CORRECT
TRAP
CSERHRD
.WORD
660
.WORD
T26PBP
.WORD
EXPREC
;LOOP IF SELECTED
TRAP
cscLPY
JO3535555>>>> END SUBTEST >>>>>>>>>>>>
L10110:
TRAP
CSESUB
;1S ERROR COUNT AT 25
;BR, IF LESS THAN 25
cTRY TO DROP THE UNIT

TSV? - HARDWARE TESTS 1-8

TEST

REREADS

MACRO M1113

6859
6860
6861
6862

G 6
PAGE 132

SEQ 0277

:TEST 6, SUBTEST 7

6863
6864
6865
6866
6867
6868

6869
6870
6871
6872
6873
6874
6875
6876
6877
6878
6879 062434
062434
062434
6880 062436
6881 062442
688% 062446

25-MAY-82 09:19

:VERIFIES THAT THE REREAD NEXT COMMAND WITH OPP=0
TAND 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 TAPE
1S THEN REWOUND AGAIN. FOR EACH TEST RECORD, THE
STAPE [S SPACED FORWARD ONE RECORD AND A REREAD
*NEXT COMMAND ISSUED. RESULTS (STATUS, DATA,
*ETC.) ARE VERIFIED. THE BYTE COUNT ON EACH REREAD
*NEXT COMMAND IS SET TO THE LENGTH OF THE EXPECTED
*RECORD, SO NO EXCEPTIONAI CONDITIONS SHOULD OCCUR.

BGNSUB
104402

004737
004737
004737

074510
074602
074644

J2553>3>>>>>> BEGIN SUBTEST >5>>>>>>>>>>
16.7:

JSR
JSR
JSR

PC,T26REST
PC.T26RT?
PC.T26RT3

TRAP

:SET COMMAND PACKET
*SET UP OTHER COMMAND PACKET
*SET UP OTHER COMMAND PACKET

($BSUB

:t.t'tt't‘ttttt..'.'fi'ttt'.fi'.ttfifi't.fitti'!fi'.titfi.fi'.'itt'!".t't'

$1SSUE CUNTROLLER ‘'SOFT'' INITIALIZE - CARRY BIT CLEAR IF ERROR
Efi.fi'fi't.*fit'.".'t.ti""ittttfi'iit.fi"t'fi't..tfififitQ.Qt'tttfi.'tt'i
6890 062452
6891 062456
6892 062460
6896 062464
6897 062466
062466
062470
062472
062474
6898 062476
6899
6900 062504
6901
6902

6903
6904
6905
6906
6907
6908 062510
6909 062514
6910 062516
6914 062522
6915 062524

004737

016064

005237
010001

002212

103407

JSR

BCS

INC
MOV
ERRDF

104455
001225
003650

012124
013737

002172

012704

071600

071620

208:

PC.SOFINIT

208§

FATFLG
RO,RT
ERRNO, SFIERR, SF IMSG

;DO INITIALIZE ON CONTROLLER

*BR IF INIT WAS OK

*BUMP COUNT
*CONTENTS OF TSSR REGISTER
*FATAL ERROR TSSR WAS NOT OK
TRAP
.WORD

"WORD
"WORD

MOV

UNITN, T26DSW

:SET UP UNIT NUMBER

MOV

#T26PACKET,R4

s SUBROUTINE NEEDS PACKET ADDRESS

A R AR AN AN R AR AR AN

C N AN N RN RAR AR NANA N AR AR AN N NARARN

ERRN NN

WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
.

004737
103407
005237
010001

010752
002212

AR AN AR RN AR

JSR
8CS
INC

MOV

ERRHRD

AN R

PC,WRTCHR
263
FATFLG
RO,R1

RN RN AN R AR RN RAANRNARNANANNIONRNRANANARNO
NS

ERRNO,WRTMSG,
SF IMSG

sISSUE WRITE CHARACTERISTICS
«BR, IF COMMAND ISSUED OK
+8UMP COUNT
sSAVE CONTENTS OF TSSR

;WRITE CHARACTERISTISC FAILED

CSERDF
661

SFIERR
SFIMSG

TSV7 = HARDWARE TESTS 1-8

TEST

REREADS

062524
062526
062530
062532
062534
062534

MACRO M1113

164456
001226
005054
012124

25~MAY-82 09:19

H 6
PAGE 132-1

SEQ@ 0278
TRAP

26$:

104406

(kLOoOP
AR

;LOOP IF SELECTED

RN RN AN A AN AR AR N AN

N NN NN A NN

N AN N NAN RO NN N NN

NN NN AR NI

CSERHRD
6 62

.WORD
-WORD
.WORD

WRTMSG
SFIMSG

TRAP

CS$CLPY

AN OAO TR

*ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
[

062536
062542
062544
062550
062554
062556
062562
062562
062564
062566
062570
6934 062572
062572
6935
6936

004737
103413
016501

012702
010004
005237

011104

062624
6952 062626
062626
6953 062630
6954 062634
6955
6956
6957
6958
6959
6960
6961
6962 062642
6963 062650

JSR

PC ,REWIND

;CALL TAPE REWIND COMMAND

MOV

TSSR(RS) ,R1

‘GET TSSR

BCS

000002
000200

MOV

MOV
INC
ERRHRD

002212

104456

001227
073254
012136

308 :

104406

308

#SSR,R2

RO, R4
FATFLG
ERRNO, T26RWN,PKTSSR

CKLOOP

*BR, IF NO PROBLEM

SSET UP EXPECTED TSSR

SPACKET ADDRESS SET UP
:BUMP COUNT
SREWIND NOT ACCEPTED

:LOOP IF SELECTED

CSERHRD
663
TZ6RWN

.WORD
-WORD
-WORD

PKTSSR

TRAP

CSCLP

;t'.tttt"t!.t.tttttttt"t'ttt.lttttttfit!tlttfittlttt.tttti't!ttttti

6937

6938
6939
6940
6941
6942 062574
6943 062600
6944 062602
6945 062606
6946 062610
o947 062612
6951 062616
062616
062620
062622

RN TN R RN AN RN A N AR NI AR R AN AR AR AN RN RRNANANRNNNRANNANARNENARNICANNS

*READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
E.tfittttt'tttt'ttttttttt.'t'ttt't.titt‘ttltttliit.itttttt.ttfitt'tt.
013701
010102
052702
020102
001406
005237

071630

MOV
MOV
BIS
CMP
BEQ
INC
ERRHRD

000002
002212

104456
001230
072765
015564
104406

012703
013737

408:

000400
003114

071722

T268FR+6,R1
R1,R2
#81T1.R2
R1,R2
408
FATFLG
ERRNO, T26BOT, EXPRE(

CKLOOP
MOV

MOV

;PICK UP XSTO
SSET UP EXPECTED
$SET BOT BIT IN EXPECTED
:DOES EXP = REC'D
:BR, IF EQUAL (OK)
:BUMP COUNT
STAPE NOT AT BOT AFTER R;:{go

;LOOP IF SELECTED
#256. ,R3

FREE.T26RB

.WORD
-WORD
-WORD
TRAp

:RECORD SIZE

:STARTING WRITE BUFFER ADDRESS

;'tttttttt'ttttttt.'tt'ttttt'tttfitttfitttttQ.t'ttt'tt'tt'.ttittt't't

:WRITE DATA,CVC=1,ACK COMMAND
Ettttttttt.'ttttlt'tt!t"tttttl'ttt'ttttQt.ttttt'tt.tt.ttttt...tttt
140005

071720

MOV

#140005, T26PK3

#T26PK3 RS

;WRITE DATA,CVC=1,ACK COMMAND

:SET UP R4 WITH PACKET ADDRESS

CSERHRD
664
126807
EXPREC

CSCLP

TSV7 = HARDWARE TESTS 1-8

TEST

REREADS

6964 062654
6965 062654
6966 062656
6967 062662
6968 062666
6969 062672
6970 062676
6971 062702
6972 062706
6973 062710
6974 062712
6978 062716
062716
062720
062722
062724
6979 062726
062726
6980 062730
6981 062732
6982 062736
6983 062740
062740
6984 062742
6985
6986
6987
6988
6989
6990
6991
6992 062742
6993 062746
6994 062750
6995 062754
6996 062760
6997 062762

004737
103413
016501
012702
010004
005237

062766
062770
062772
062774

104456
001232
073254
012136

7001 062766

7002 062776

062776
7003
7004
7005
7006
7007
7008
7009
7010 063000
7011 063004
7012 063006
7013 063012
7014 063014
7015 063016

010300
004737
010337
010465
004737
016501
012702
020102
001406
005237

022703
001346

25-MAY-82 09:19

65%:
017512
071726
000000
016340
000002
000200

PAGE 132-2

MOV

R3,R0

MOV
MOV
JSR
MOV

R3.T26S2
R&.TSDB(RS)

JSR

SEQ 0279

sSET PATTERN IN CORRECT REGISTER
sFILL MEMORY WITH RECORD SIZE
sSET UP RECORD SIZE IN PACKET
; 1SSUE COMMAND
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
sSET UP EXPECTED

PC.FILLMEM

PC.WAITF

MOV

CMP
8EQ
INC
ERRHRD

002212

104456
001231
00511
(12136
174406
005723

MACRO M1113

TSSR(RS)
,R1
#SSR,R2

R1,RQ

sARE THEY EQUAL

75§

FATFLG

ERRNO,WRTERR,PKTSSR

:BR, IF 0K
:BUMP COUNT
sTSSR INCORRECT AFTER WRITE DATA
TRAP

WORD

75%:

c(kLOoOP
TST

000414

CMP
BNE

CKLOOP

80$:

104406

.LOOP IF SELECTED
(R3)+
#268. ,R3
65%

T RA AR R AR AN NI R AN AN AN AR

NN AN RN

665

.WORD
.WORD

WRTERR
PKTSSR

TRAP

cscLPt

TRAP

cscLP

;BUMP RECORD SIZE
sEND OF RECORD YET
;BR, IF MORE RECORDS TO WRITE
sLOOP IF SELECTED

120$:

CSERHRD

NN A AN RNRARAARANRANRNRNNN
RN
NRANY

*ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
0

SRR EAR A AR

011104

AR N AR AR RN AN NN AN R I RN RAANAR

JSR
BCS

000002
000200

PC ,REWIND

002212

ERRHRD

#SSR,R2
RO,R4
FATFLG

AN RN NNRNRARAS

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

1308
TSSR(RS)
,R1

MOV
MOV
MOV
INC

AN RN NANNRNRANANNR

;PACKET ADDRESS SET UP

ERRNO,T26RWN,PKTSSR

;BUMP COUNT
JREWIND NOT ACCEPTLD

TRAP

.WORD
.WORD

1308:

104406

SRR

(KLooP
RN AN N AR RN

;LOOP ]F SELECTED
AN A AN AN

AN AN

RN A RN RN AN AR NN N AN N RANRANRANNR

.WORD

PKTSSR

TRAP

cscLP

RN NNERR

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
3

SRR AR

071630
000002

002212

AN AR

MOV
MOv

BIS
CMP
BEQ
INC

AN RN AN AN

RN AN AN AN AR AR AN R AN R AN NN AN AR NN RN RN RANANRO RS

T26BFR+6,R1
R1,R2

#BIT1,R2
R1,R2

1408

FATFLG

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

CSERHRD

666
T26RWN

TSV7 - HARDWARE TESTS 1-8
" TEST
6: REREADS

MACRO M1113

25-MAY-82 09:19

ERRHRD

063030
7020 063032

1408:

063032

000400

SEQ 0280

7079 063022

7021 063034
7022 063042

PAGE 132-3

071752

ERRNO,T26B0T,EXPREC

CKLOOP

MOV

;TAPE NOT AT BOT AFTER REWIND
TRAP

1508

667
T26BOT

TRAP

(S$CLP1

.WORD

:LOOP IF SELECTED

#256.,T26RSZ

CSERHRD

.WORD
-WORD

;STORE START RECORD SIZE

EXPREC

SSKIP THE SAPCE THIS TIME

.'Qttttttttttttttfittttttt't"tttttfittttttitttttt.tt'ttttttittfitt'ttt

:ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
:BIT 15 SETS DIRECTION - 0=FORWARD
1=REVERSE

Ettt.fittttttttttttt.tt'tt'ttt.ttttt.t.tttttt.t.tt.ttfittttttttt.t'tt
7031 063044
7032 063050
7033 063054

7034
7035
7036
7037
7041

063056
063062
063066
063070
063074

063074
063076
063100
063102
7042 063104
063104
7043 063106

7044 063112
7045
7046
7047
7048
7049
7050
7051
7052 063120
7053 063126
7054 063132

7055 063136
7056 063142
7057 063146
7058 063152
7059 063156
7060 063160
7061 063162
7065 063166

063166
063170
063172
063174
7066 063176
063176

012703
004737
103413
016501
012702
010004
005237

000001
010556

1458:

000002
000200

002212

104456

001234
072367
015564
104406

013703
013737

1508:

071752
003114

MOV
JSR
BCS
MOV
MOV
MOV
INC
ERRHRD

;SPACE ONE RECORD PARAMETER
:CALL SPACE ROUTINE
:BR, IF NO PROBLEM WITH SPACE COMMAND
SGET TSSR
:SET UP EXPECTED TSSR
*PACKET ADDRESS SET UP
:BUMP COUNT
*POSITION (SPACE RECORDS) FAILED
TRAP

CKLOOP
MOV

071722

#1,R3
PC.SPACE
1508
TSSR(RS) ,R1
#SSR,R2
RO,RG
FATFLG
ERRNO
T26SC ., EXPREC
,

MOV

T26RSZ,R3

FREE, TO6RB

;RECORD SIZE

CSERHRD

.WORD
"WORD
.WORD

668
T26SC
EXPREC

TRAP

CSCLP1

:STARTING READ BUFFER ADDRESS

:Qttttt'ttttt..ttt.ttttt'ttttttt.fitttttttttttitt!tttttfittttttttttt'

;REREREAD DATA,CVC=1,ACK COMMAND

:°tttttt'tttttttttfittt.tQttttttttttt!ttttttttttfittttt'fitttttttt't.fit
012737
012704
010337
010465
004737
016501
012702
020102
001406
005237
104456
001235
073610
012136
104406

141401

071720
071726
000000
016340
000002
000200

071720

1658:

MOV

MOV
MOV

MOV
JSR
MOV
MOV

CMP

BEQ
INC
ERRHRD

002212

#161401,T26PK3

#T26PK3.R4
R3,T2652

R&.TSDB(RS)
PC.WAITF
TSSR(RS) ,R1
#SSR,R2

R1.R2

1708
FATFLG
ERRNO, T26WDC,PKTSSR

:REREREAD DATA,CVC=1,ACK COMMAND

SSET UP R4 WITH PACKET ADDRESS
$SET UP RECORD SIZE IN PACKET

sISSUE COMMAND
:WAIT FOR SSR TO SET
SGET TSSR CONTENTS
SSET UP EXPECTED

*ARE THEY EQUAL

:BR, IF OK
*BUMP COUNT
:TSSR INCORRECT AFTER REREAD DATA
TRAP

669

.WORD

PKTSSR

TRAP

CSCLPY

WORD

1708:

CKLOOP

:LOOP IF SELECTED

CSERHRD

.WORD

T26WDC

TSV7 ~ HARDWARE TESTS 1-8

TEST

REREADS

7067 063200
7068 063204

013702
010304

7070
7071
7072
7073

060204
021403
001410
011401

7069 063206

063212
063214
063216
063220

7076 063222
7075 063224
7079 063230

063230
063232
063234
063236

7080 063240
7081
7082
7083
7084
7085
7086
7087
7088
7089

063240

063242
063244
063246
063250
063252
063254
063260
063264
063266

162704

010302
005237

7091
7092
7093
7094

023727
103402
004737

104403

25-MAY-82 09:19

K 6
PAGE 132-4

MOV
MOV

000400

1738:

SEQ 0281

s CURRENT BUFFER ADDRESS TO R?2
s CURRENT RECORD SIZE
sFIRST LOCATION IN BUFFER
sSET UP POINTER

suB

ADD
CMP
BEQ
MOV

MoV
INC
ERRHRD

002212

ERRNO,T26DTA,EXPREC

sCHECK DATA READ (R3=DATA ALSO)
¢BR, IF ALL IS WELL
¢RECD DATA
sEXPECTED DATA
sBUMP COUNT
sDATA READ NOT = WRITTEN

TRAP

.WORD
.WORD

104406

005724
160204
020403
001360
005723
010337
022703
001267

104406

063272
063300
063302
063306

003114

104456
001236
073032
015564

063266
7090 063270
063270

063270

MACRO M1113

1808:

CkLOOP

1908:

TST
sus
CMP
BNE
TST
MoV
CMP
BNE
C(KiLOOP

071752
000410

sLOOP IF SELECTED
(RG)+
R2.R4
R4 R3

173$

(R3)+
R3,T26RS2
#264. ,R3
1458

ENDSUB

017272

000017
999$:

CMP
BLO
JSR

.WORD

EXPREC

TRAP

csCLP1

TRAP

cscLPl

TRAP

C$ESUB

sBUMP TO NEXT LOCATION
sCORRECT RECORDS SIZE VALUE
sEND OF RECORD YET
sBR, IF NOT AT END OF RECORD
;BUMP RECORD SIZE
sSTORE PRESENT RECORD SIZE
;END OF RECORD YET
:BR, IF MORE RECORDS TO READ
:LOOP IF SELECTED

JOIIIIIIDD3>> END18?B{EST IE3DDIDIID>D
L

002212

CSERHRD

670
T26DTA

FATFLG,#15.

999%

PC,CKDROP

11:

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

—

TSV7 - HARDWARE TESTS 1-8

TEST

REREADS

MACRO M1113

25-MAY-82 09:19

PAGE 133
SEQ 0282

7096

o¢

7097
;838

:
:TEST 6, SUBTEST 8

7100
7101
7102
7103
7104
7105
7106
7107
7108
7109 063306

SVERIFIES THAT THE REREAD NEXT COMMAND WITH OPP=0
sAND SWB=1 OPERATES PROPERLY. THE TEST SEQUENCE IS
sTHE SAME AS THAT USED IN SUBTEST 1, BUT IT IS
JVERIFIED THAT DATA STORED BY THE COMMAND CONTAINS
;SWAPPED BYTES.
H
.
:
.=
BGNSUB
JO35333>55>>> BEGIN SUBTEST >>>>>>>>>>>>

063306
063306

7110 063310
7111 063314

;}}% 063320

104402

004737
004737

004737

T6.8:

074510
074602

JSR
JSR

074644

JSR

71 1‘

PC,T26REST
PC,T26RT?

PC,T26RT3

TRAP

JSET UP OTHER COMMAND PACKET

.'tQttttttttttttttttttttttttttttttttfifitttttfitttttttttttttttttttttttt

7115

;}}9

s ISSUE CONTROLLER °'SOFT’' INITIALIZE - CARRY BIT CLEAR IF ERROR

71 18

:'tttttfitttttttttfitttttttttitttttttttttittttitt.tttttttttt 122 32 X222 2]

7119
7120 0633246
7121 063330
7122 063332

7126 063336
7127 063340
063340
063342
063344
063346
;}gg 063350

;}g? 063356

004737
103407
005237

010001

016064

002212

104455
001237
003650
012124
013737

002172

012704

071600

71 32

071620

20%:

JSR
B(CS
INC
MOV
ERRDF

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

;DO INITIALIZE ON CONTROLLER
;BR IF INIT WAS 0K
;JBUMP COUNT
JCONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT 0K

MoV

UNITN,T26DSW

:sSET UP UNIT NUMBER

MOV

#T26PACKET R4

s SUBROUTINE NEEDS PACKET ADDRESS

TRAP
.WORD
.WORD
.WORD

:
SWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

71 36
7137

:°tttttfitttttttttttttt'tttttttttttttttt- ARRARRANANRARNRANRARAANANANNARG Y
063362
063366
063370
063374

7145 063376
063376
063400
063402
063404

7146 063406

7147

CSERDF
671
SFIERR
SFIMSG

;tttttttttttfittttttttttt'ttttttfittttttttittttfitttttttttttttfi! ARRER N

7133
;}gg

7138
7139
7140
7144

csssus

JSET COMMAND PACKET
JSET UP OTHER COMMAND PACKET

063406

004737
103407
005237
010001

104456
001240
005054
012124
104406

010752

JSR
8CS
INC
MOV

002212

ERRHRD

268:

ckLOOP

PC,WRTCHR
268
FATFLG
RO,R1

ERRNO,WRTMSG, SFIMSG

JISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED OK
;BUMP COUNT
JSAVE CONTENTS OF TSSR

JWRITE CHARACTERISTISC FAILED
TRAP
MORD
.WORD
.WORD

:LOOP ]F SELECTED

TRAP

CSERHRD
672
WRTMSG
SFIMSG
CSCLP

TSV7 - HARDWARE TESTS 1-8

TEST

REREADS

MACRO M1113

71‘8

25-MAY-82 09:19

PAGE 133-1

SEQ 0283

:ttttttttttt.ttttttttttttttttttt.tttttttttttt.tt't'tttttttttttttttt

7149

;}g?

s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

7152
7153
7154 063410
7155 063414

Ettttttt.tttttttttttttttttttttttt.ttttttttttttttttt'ttttt.ttttttttt

7156
7157
7158
7159
7163

063416
063422
063426
063430
063434

063434
063436
063449
063442
7164 063444
2165 063444

004737
103413
016501
012702
010004
005237

011104

JSR
BCS

000002
000200

MOV
MOV
MOV
INC
ERRHRD

002212

104456
001241
073254
012136

30$:

104406

7166

PC,REWIND
308
TSSR(RS) ,R1
#SSR,R2
RO,R4
FATFLG
ERRNO, T26RWN,PKTSSR

CKLOOP

;CALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM

;GET TSSR
SET UP EXPECTED TSSR
;JPACKET ADDRESS SET uP
;BUMP COUNT
REWIND NOT ACCEPTED

;LOOP IF SELECTED

TRAP
LWORD
.WORD
.WORD

CSERHRD
673
T26RWN
PKTSSR

TRAP

csCLP

;tttttttttttttttttttttttttttttttttttttttttttttttfittttttttfiitttttttt

7167

;}gg

JREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

7170
77
7172
7173
7174
7175

;ttttttttttttttttttttttttttttttttttttttttfittttttttttttttttttttttttt
063446
063452
063454
063460

013701
010102
052702
020102

071630

7177 063464
7181 063470
063470

005237

002212

7176 063462

063472
063474
063476
7182 063500
063500
7183 063502
;}gg 063506

001406

MOV
MOV
BIS
cMP

000002

BEQ

INC
ERRHRD

104456
001242
(072765
015564

104406
012703
013737

408:
000400
003114

7186

408

FATFLG
ERRNO,T26BOT ,EXPREC

CKLOOP
MOV
MOV

071722

T268FR+6,R1
R1,R2
#8IT1,R2
R1,R2

:PICK UP XSTO
JSET UP EXPECTED
:SET BOT BIT IN EXPECTED
;DOES EXP = REC'D

;BR,

IF EQUAL

(0K)

:BUMP COUNT
;TAPE NOT AT BOT AFTER REWIND
TRAP

:LOOP IF SELECTED
#256.,R3
FREE.,T26RB

WORD
.WORD
.WORD

CSERHRD
674
T26B0T
EXPREC

TRAP

cscLPt

JRECORD SIZE
sSTARTING WRITE BUFFER ADDRESS

;tttttttttttttfittttttttttttthttltttttttttttttttfit'ttttttttttttfitttt

7187
;}gg

:
:WRITE DATA,CVC=1,ACK,SWB COMMAND

7190
7191
7192 063514
7193 063522
7194 063526
7195 063526
7196 063530
7197 063534
7198 063540
7199 063544
7200 063550

;tttttttfitttttttttttttttttttttttttttttttttfittttttttttttttttttttttit
012737
012704

150005
071720

010300
004737
010337
010465
004737

017512
071726
000000
016340

016501

000002

071720
65%:

MOV
MOV

#150005, 126PK3
#T26PK3,R4

sWRITE DATA,CV(C=1,ACK,SW8 COMMAND
:SET UP R4 WITH PACKET ADDRESS

MOV
JSR
MOV
MoV
JSR

R3,R0
PC.FILLMEM
R3,T26S2
R4, TSDB(RS)
PC,WAITF

;SET PATTERN IN CORRECT REGISTER
JFILL MEMORY WITH RECORD SIZE
JSET UP RECORD SIZE IN PACKET
;s ISSUE COMMAND
sWAIT FOR SSR TO SET

MOV

TSSR(RS) ,R1

JGET TSSR CONTENTS

TSV? -~ HARDWARE TESTS 1-8

TEST

7201
7202
7203
7204
7208

REREADS

063554
063560
063562
063564
063570
063570

063572
063574
063576
7209 063600
063600
7210 063602
7211 063604
7212 063610

7213 063612
063612

7214 063614
7215
7216
7217
7218
7219

012702
020102

MACRO M1113

25-MAY-82 09:19

000200

MOV

CMP

BEQ

002212

001346

INC

ERRHRD

75%:

CKLOOP

80$:

ST
CMP
BNE
CKLOOP

000414

104406

7223
7224
7225
7226
7227
7231

063620
063622
063626
063632
063634
063640
063640
063642
063644
063646
7232 063650

#SSR,R2

SEQ 0284

cSET UP EXPECTED

R1.R2
75$

sARE
:BR,

ERRNO,WRTERR,PKTSSR

:TSSR

FATFLG

THEY EQUAL
IF 0K

:BUMP COUNT

INCORRECT AFTER WRITE DATA
TRAP
CSERHRD
.WORD
675
WRTERR
-WORD
PKTSSR
.WORD

sLOOP IF SELECTED
(R3)+
#268. ,R3
65$

TRAP

CS$CLP

TRAP

csCLP1

sBUMP RECORD SIZE
JEND OF RECORD YET
:BR, IF MORE RECORDS TO WRITE
sLOOP IF SELECTED

:
1208

:tttfitfitttttttfi*tttttttttttttfitt'tifititfittttitttit!fi'tfitttitt"ttti

*ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
.

7222 063614

N 6
PAGE 133-2

004737
103413
016501
012702
010004
005237

011104

JSR
BCS
MOV
MOV
MOV
INC

000002
000200

002212

ERRHRD

104456

001244
073254
012136

1308:

104406

AR AR AR AR AN RN N AR

REN RN AR R AN N RANANR AR NANRNANANANNRANRA RN

PC,REWIND

130%

TSSR(RS)
,R1
#SSR,R2
RO,R4
FATFLG

ERRNO,T26RWN,PKTSSR

(KLoop

sCALL TAPE REWIND COMMAND
;BR, IF NO PROBLEM
¢GET TSSR
sSET UP EXPECTED TSSR
;PACKET ADDRESS SET UP
¢BUMP COUNT
sREWIND NOT ACCEPTED

sLOOP IF SELECTED

AR AN AR AR AN AR AT AN R AR AR

AR A RN NARNARNAN R R R AN RN R ARARARNARARNR

TRAP
.WORD
.WORD
.WORD

CSERHRD
676
T26RWN

TRAP

rS$CLPT

PKTSSR

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XST0)
»

7239
7240
7241
7242
7243
7244
7245
7249

AN AR AR AN NN AN A A AR AR AR AN

063652
063656
063650
063664
063666
063670
063674

013701
010102
052702
020102
001406
005237

063674
063676
063700
063702

001245
072765
015564

063704

104406

7250 063704

071630

MoV
MOV

000002

BIS
CMP
BEQ
INC
ERRHRD

002212

104456

1408
:

CkLOOP

AR RN AR AR AR AN RN RN N RN AN RN

T26BFR+6,R1
R1,R2

#8IT1,R2
R1,R2
1408
FATFLG
ERRNO, T26BOT ,EXPREC

AN RN NANNRRARNRRAS

:PICK UP XSTO
:SET UP EXPECTED
:SET BOT BIT IN EXPECTED
:DOES EXP = REC'D
IF EQUAL
:BUMP COUNT

(0K)

:TAPE NOT AT BOT AFTER REWIND
TRAP
.WORD

<LOOP IF SELECTED

-WORD
-WORD

CSERHRD
677
126807
EXPREC

TRAP

cscLP

TSV7? = WARDWARE TESTS 1-8

TEST

REREADS

7251 063706
;gg% 063714

012737
000420

000400

MACRO M1113

25-MAY-82 09:19

071752

MOV
BR

PAGE 133-3

#256.,T26RS2
1508

sSTART RECORD SIZE
sSKIP SAPCE THIS TIME

7254

7255
7256

;
¢ 1SSUE _SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS

7259
7260
7261 063716
7262 063722

:-ttnt-t-ttttttn'tttttt-tt-'tt--tt.n-ttttttttttta\uttt-tttttntcttttt

;ggg

AP AN S AN AR AR AR AN NN

;BIT 15 SETS DIRECTION -~ 0=FORWARD

7263 063726

7266
7265
7266
7267
7271

NN AR R N AR

SEQ 0285

063730
063734
063740
063742
063746

063746
063750
063752
063754

7272 063756

063756

7273 063760

;5;§ 063764

012703
004737

000001
010556

016501
012702
010004
005237

000002
000200

103413

1458:

104456
001246
072367
015564
104406

013703

013737

1508:

071752

003114

#1,R3
PC,SPACE

sCALL SPACE ROUTINE

MoV
MoV
MOV
INC
ERRHRD

TSSR(RS) ,R1
#SSR,R2
RO,R4
FATFLG
ERRNO,T26SC,EXPREC

sGET TSSR
sSET UP EXPECTED TSSR
sPACKET ADDRESS SET UP
;BUMP COUNT
sPOSITION (SPACE RECORDS) FAILED

7276

T26RSZ,R3

sRECORD SIZE

Mov

7277

sSPACE ONE RECORD PARAMETER

1508

:BR, IF NO PROBLEM WITH SPACE COMMAND

CKLOOP

MoV

071722

1=REVERSE

MOV
JSR

8CS

002212

A AN N AR AN NI AN AR AN RN AN NN ANRR NS

FREE, T26RB

NN R AR AR AR N AR RN E AR AR AN

TRAP
.WORD
.WORD
.WORD

CSERHRD
678
T26SC
EXPREC

TRAP

csCLP1

sSTARTING READ BUFFER ADDRESS

RN N AR NN RN R NN

AR A RN SRR I NN NN

AR RN RS

;g;g

sREREAD DATA,ACK,CVC=1,SWB COMMAND

7280

:-ntt-ttttttt--ttt-.tttttttttttttqtttttt-tttatutttn-tttttqnttttttttt

7281
7282
7283
7284
7285
7286
7287
7288

063772
064000
064004
064010
064014
064020
064024

012737
012704
010337
010465
004737
016501
012702

7290 064032
7291 064034
7295 064040

001406
005237

7289 064030

020102

064040
064042
064044
064046

104456
001247
073610
012136

064050
7297 064052
7298 064056

104406
013702
010304

7300 064064
7301 064066
7302 064070

060204
021403
001410

7296 064050

7299 064060

7303 064072

162704

011401

151401
071720
071726
000000
016340
000002
000200

071720

165%:

(MP

BEQ
INC
ERRHRD

002212

1708:

003114

000400

MoV
MOV
MoV
MoV
JSR
MoV
Mov

R1,R2

:ARE THEY EQUAL

:BR, [F OK
sBUMP COUNT
sTSSR INCORRECT AFTER REREAD DATA
TRAP
CSERHRD

sLOOP IF SELECTED

FREE,R2
R3 R4

sus

#256. R4

MOV

(RG) ,R1

ADD
(MP
8EQ

sREREAD DATA,ACK,CVC=1,SWB COMMAND
sSET UP R4 WITH PACKET ADDRESS
sSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
sWAIT FOR SSR TO SET
;GET TSSR CONTENTS
sSET UP EXPECTED

1708
FATFLG
ERRNO, T26WDC,PKTSSR

CKLOOP

MoV
MoV
1738:

#151401,T26PK3
#T26PK3,R4
R3,72652
R4,TSDB(RS)
PC,WAITF
TSSR(RS) ,R1
#SSR,R2

R2,Ré
(R4) ,R3
180%

s CURRENT BUFFER ADDRESS TO R2
s CURRENT RECORD SIZE

.WORD
WORD
.WORD

679
T26WDC
PKTSSR

TRAP

cscLe

sFIRST LOCATION IN BUFFER

sSET UP POINTER
sCHECK DATA READ (R3=DATA ALSO)
sBR, IF ALL IS WELL
JRECD DATA

TSV7 - HARDWARE TESTS 1-8

TEST

REREADS

7304 064074
7305 064076
7309 064102

7310 0641
7311
7312 064116

7313
7314
7315
7316
7317
7318
7319

064120
064122
064124
066126
064132
0664136
064140
064140

7320 064142
0646142
064142

7321
7322
7323
7324

064144
064152
064154
064160

010302
005237

MACRO M1113

Mov

002212

INC
ERRHRD

104456

001250
073032
015564

R3,R2

FATFLG

ERRNO, T26DTA ,EXPREC

(kLOOP

SEQ 0286

JEXPECTED DATA
sBUMP COUNT
sDATA READ NOT = WRITTEN

190$%:

TST
sus
CMP
BNE
TST
MOV
(MP
BNE
ckLoopP

;LOOP IF SELECTED
(R4)+

R2,R4
R4 ,R3

173s

(R3)+
R3,T26RSZ

#264. ,R3
145%

TRAP

002212

004737

01727¢

000017
999%:

cMP
BLO
JSR

CSERHRD

680
T26DTA

.WORD

EXPREC

TRAP

CSCLP

;BUMP TO NEXT LOCATION
sCORRECT RECORDS SIZE VALUE
sEND OF RECORD YET
+BR, IF NOT AT END OF RECORD
;BUMP RECORD SIZE
sSTORE RECORD SIZE
sEND OF RECORD YET
;BR, IF MORE RECORDS TO WRITE
sLOOP IF SELECTED

TRAP
CS$CLP1
JOO5553355>>> END SUBTEST >>>>>>>>>>>>

ENDSUB

023727
103402

180%:

071752
000410

104406

104403

PAGE 133-4

.WORD
.WORD

104406

005724
160204
020403
001360
005723
010337
022703
001267

25-MAY-82 09:19

L10112:

FATFLG,#15.

999$

PC,CKDROP

TRAP

s IS ERROR COUNT AT 25
sBR, IF LESS THAN 25
sTRY TO DROP THE UNIT

C$ESUB

TSV? - HARDWARE TESTS 1-8
TEST
6: REREADS

MACRO M1113

25-MAY-82 09:19

PAGE

134
SEQ 0287

7326

.¢

7327

;%SS

sTEST 6, SUBTEST 9

7330
7331
7332
7333
7334
7335
7336
;ggg

;VERIFIES THAT THE REREAD NEXT COMMAND WITH OPP=1
;(READ FORWARD, SPACE REVERSE) AND SwB8=0 OPERATES
;PROPERLY. THE TAPE IS FIRST REWOUND AND THEN WRITTEN
;WITH A SERIES OF TEST RECORDS VARYING IN LENGTH AND
JDATA 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 1S EXECUTED.

7339
;gz?

1.
:

THE REREAD NEXT COMMAND WITH OPP=1
AND THE RESULTS CHECKED

7342
7343
7344
7345
7346
7347
;gzg

;2.
:
:
:
:
:
:

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.

7350
7351

;THE BYTE COUNT ON EACH REREAD NEXT COMMAND IS SET
;70 THE LENGTH OF THE EXPECTED RECORD, SO NO

7354

;gg%

sEXCEPTIONAL CONDITIONS SHOULD OCCUR.

7355
7356

:
:

7357
7358
7359 064160

064160
064160
7360 064162

7361 064166
7362 064172

;ggz 064176

IS 1SSUED

B8GNSUB

104402
004737

005037
004737

004737

074510
071746
074602
074644

JSR
CLR
JSR
JSR

7365

s2253555555>> BEGIN SURTEST >>>>>>5>>>>>

T6.9:

PC,T26REST
T26CNT
PC,T26RT2
PC,T26RT3

TRAP
:SET COMMAND PACKET
;CLEAR TAPE RECORD COUNTER
JSET UP OTHER COMMAND PACKET
;SET UP OTHER COMMAND PACKET

;tttttttttttttttttttttttttt'tttttttttntttttttttttttttt.tttttttttttt

7366

;%gg

s ISSUE CONTROLLER ''SOFT'* INITIALIZE - CARRY BIT CLEAR IF ERROR

7369
7370
7371 064202
7372 064206
7373 066210
7377 064214
7378 064216

:'t'tttttttttttttttttttttt'tttttttfittttttlttttttttttttttttttt'tttttt

064216
064220
064222
064224
7379 064226

csssus

004737
103407
005237
010001

104455
001251
003650
012124
013737

016064

JSR
BCS
INC
MOV
ERRDF

002212

002172

071620

20$:

Mov

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

;D0 INITIALIZE ON CONTROLLER
;BR IF INIT WAS OK
:BUMP COUNT
:CONTENTS OF TSSR REGISTER
JFATAL ERROR TSSR WAS NOT OK

UNITN, T26DSW

;SET UP UNIT NUMBER

TRAP
.WORD
.WORD
.WORD

CSERDF
681
SFIERR
SFIMSG

TSV7 =~ HARDWARE

TEST

REREADS

7380
;%g} 064234

TESTS 1-8

MACRO M1113

25-MAY-82 09:19

PAGE

134-1
SEQ 0288

012704

071600

MOV
NN

7384
;ggg

;
JWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

7387
7388
7389 064240

Enntt-ttttttttttttttttttttt..tttttt-tttttttttttttattntttttttttntttn

064244
066246
064252
064254
0662546

064256
0646260
064262
7397 064264
2398 064264

004737
103407
005237
010001

010752

JSR
BCS
INC
MOV
ERRHRD

002212

104456
001252
005054
012124

26$:

104406

7399

7400

RN A NN AN

s SUBROUTINE NEEDS PACKET ADDRESS

7383

7390
7391
7395
7396

R R

#T26PACKET R4

RN NN AR NN A RAN N RN RINR AR

PC,WRTCHR
268
FATFLG
RO,R1
ERRNO,WRTMSG, SFIMSG

CKLOOP
R

R A RN

RN N

NR AN RANRS

JISSUE WRITE CHARACTERISTICS
s8R, IF COMMAND ]SSUED OK
;BUMP COUNT
;SAVE CONTENTS OF TSSR
JWRITE CHARACTERISTISC FAILED
TRAP

;LOOP IF SELECTED
NN AN A NI R NN A N AR NN A AN AN

RN AR AR

.WORD
.WORD
.WORD

682
WRTMSG
SFIMSG

TRAP

CSCLPT

AN NN ANARNANRAANER

;28}

JISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

7403

Etttttttttttttttttt“tttitttttttttttttitttttttttt't'tttt'tttttttttt

7604
76405
7606
76407
7408
7409
7610
7614

CS$ERHRD

0664266
064272
064274
064300
06464304
064306
0646312

066312
064314
064316
064320
76415 0646322
2616 066322

004737
103413
016501
012702
010004
005237

011104

JSR
8Cs
MOV
MOV
MOV
INC
ERRHRD

000002
000200
002212

104456
001253
073254
012136

30$:

104406

76417

CxLOOP

RN AR AN

7418

PC,REWIND
308
TSSR(RS) ,R1
#SSR,R2
RO,R4
FATFLG
ERRNO,T26RWN,PKTSSR

cCALL TAPE REWIND COMMAND
;BR, IF NO PROBLEM
:GET TSSR
JSET UP EXPECTED TSSR
sPACKET ADDRESS SET uP
;BUMP COUNT

JREWIND NOT ACCEPTED

;LOOP IF SELECTED

A AN N A A NN NN

R AN

AN NN A RN NN AR NN AR A NN RN NN

TRAP
.WORD
.WORD
.WORD

CSERHRD
683
T26RWN
PKTSSR

TRAP

CSCLP

NNRONNANROR RS

;2}8

cREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XST0)

7421
7622
7423 064324
7424 064330
7425 064332
7426 064336

Etttttttt'tttttttttttttttttttttttttttttttttt'ttt..tttttttttttt't'tt

7427 064340

76428 064342
7432 064346

064346
064350
064352

013701
010102
052702
020102

071630

005237

002212

001406

104456
001254
072765

000002

MOV
MOV
8IS
CMP

T26BFR+6,R1
R1,R2
#BIT1,R2
R1,R2

;PICK UP XSTO
JSET UP EXPECTED
sSET BOT BIT IN EXPECTED
;sDOES EXP = REC'D

INC
ERRHRD

FATFLG
ERRNO,T26B0T ,EXPREC

;BUMP COUNT
sTAPE NOT AT BOT AFTER REWIND

BEQ

408

:BR, IF EQUAL (OK)

TRAP
.WORD
.WORD

CSERHRD
684
T26B0T

TSV7 = HARDWARE TESTS 1-8
TEST
6: REREADS

064354

7433 064356

064356

7436 066360

;2;2 066364

MACRO M1113

015564
104406

012703

013737

408:
000400

003114

134-2

SEQ 0289

:LOOP IF SELECTED
#256. .R3

MOV
IR RN

7438

PAGE

CKLOOP
MOV

071722

7437

25-MAY-82 09:19

FREE,T26R8

A NN R R AN RN

AN R A AN AN R AN I AN NN

;RECORD SIZE

.WORD

EXPREC

TRAP

cscLP

*STARTING WRITE BUFFER ADDRESS
AN A AN RN NN AN RA NN AAACRORRNNS

;

;228

:WRITE DATA,CVC=1,ACK COMMAND

74‘1

:'tttttt'.'tttt't..tt"tt't'ttt.t.tt..t.ttt.ltt'tt.ttt.t."'ttt.fit"

7442
7643
7644
7645
7646

064372
064400
064404
064404

012737
0127046

140005
071720

010337

071726

7448 064416

062737

000001

7450 064430
7451 064434
76452 0646440

004737
016501
012702

7647 064410

7649 0646426

7453 064444

7654 064446
7455 064450
7459 064454
064454

013777

010465

020102

001406
005237

064456
064460
0646462

104456
001255
005111
012136

064464

104406

7460 064464

76461 064466
76462 066470
7463 064474

7464 064476

7465 064500
;229 064500

005723
022703
001401

MOV
MOV

#140005, T26PK3
#T26PK3, R4

;WRITE DATA,CVC=1,ACK COMMAND
JSET UP R4 WITH PACKET ADDRESS

MOV

R3,T26S7

;SET UP RECORD SIZE

ADD

#1.T26CNT

*NUMBER READY FOR NEXT RECORD

016340
000002
000200

JSR
MOV
MOV

PC.WAITF
TSSR(RS) ,R1
#SSR,R2

SWAIT FOR SSR TO SET
JGET TSSR CONTENTS
*SET UP EXPECTED

002212

BEQ
INC
ERRHRD

75$
FATFLG
ERRNO,WRTERR,PKTSSR

‘BR, IF OK
*BUMP COUNT
JTSSR INCORRECT AFTER REREAD DATA
TRAP
CSERHRD

071746

000000

658
:

116476

MOV

071746

MOV
CMP

758:

071746

7‘68

1208
:

T26CNT ., aFREE

R4 135DB(RS)

R1,R2

CKLOOP
ST
CMP
BEQ

000414

000742
005037

071720

IN PACKET

:MOVE TAPE RECORD NUMBER TO BUFFER

:ISSUE COMMAND

SARE THEY EQUAL

;LOOP IF SELECTED
(R3)+
#268. .R3
1208

.WORD
.WORD
‘WORD

685
WRTERR
PKTSSR

TRAP

CS$CLP1

:BUMP THE RECORD SIZE
SMAXIMUM SIZE YET
‘BR, IF AT END OF WRITE SEQUENCE

B8R

658

*WRITE MORE RECORDS

CLR

T26CNT

;SET RECORD COUNTER BACK TO ZERO

.'tt'ttttt.t'tttt't'ttttttttttt.tttt.tt'tttttt.'.ttt"fi't.ttttt"'tt

7469

;2;g

$ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

7472

:‘Q"Qt"t"t'ttt..tt.itt"tti.tt!tQttlttt'.Qttt.tt'ttttttttt.tttttt

7473
76474 064504

7475
7476
7477
7478
7482

064510
064512
064516
0646520
064524

064524
064526
064530
064532
7483 064534
066534

004737

103411
016501
010004
005237

104456
001256
073254
012136
104406

011104

JSR

BCS
MOV
MOV
INC
ERRHRD

000002

002212

1308:

CKLOOP

PC.REWIND

1308
TSSR(RS) ,R1
RO,R&
FATFLG
ERRNO, T26RWN,PKTSSR

;CALL TAPE REWIND COMMAND

:BR, IF NO PROBLEM
SGET TSSR
sPACKET ADDRESS SET UP
:BUMP COUNT
*REWIND NOT ACCEPTED

;LOOP IF SELECTED

TRAP
.WORD
WORD
WORD

CSERHRD
686
T26RWN
PKTSSR

TRAP

cscLPl

TSV? -~ HARDWARE TESTS 1-8

TEST

REREADS

MACRO M1113

25-MAY-82 09:19

PAGE 134-3

SEQ 0290

7484
7485

MLAAAAAR ARl

7486
7487
7488

READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

7489
7490
7691 064536
7492 064542

7493
7694
7495
7696
7500

064544
064550
064552
064554
264560
J64560
064562
064564
064566
7501 064575
06¢>70
7502 064572
7503 064600

7504
7505
7506
7507
7508
7509
7510
7511
7512 064602
7513 064606
7514 064612
7515 064614
7516 064620
7517 064624
7518 064626
7522 064632

064632
064634
064636
064640
064642

064642
0646644
064650

AN AR NN AR AN NN AR AN

013701
010102
052702
020102
001406
005237

071630

CMP
8EQ
INC

AN AN

A NN ENAARNANNANNRNOINARNON
R

:PICK UP XSTO
"SET UP EXPECTED

*SET BOT BIT IN EXPECTED

R1,R2

:DOES EXP = REC'D

FATFLG

:BUMP COUNT

135s

:BR, IF EQUAL (0K)

ERRNO, T26B0T ,EXPRE(

ERRHRD

104456
001257

AN RN

#81T1,R2

8IS

002212

AN NI NN R AN

T268FR+6,R1
R1,R2

MOV
MOV

000002

sTAPE NOT AT BOT AFTER REWIND
TRAP

.WORD
.WORD

072765

N15564

104406

012737
000420

1358:

000400

071752

(KLOOP

.WORD

EXPREC

TRAP

cscLP

cLOOP IF SELECTED
#256.,T26RSZ
1408

MOV

AN AR AN AR R A AR AR A RR RN N

+STARTING RECORD SIZE
sSKIP OVER THE SAPCE THIS TIME

AN AR RN N RN AN N RN RN RNNANNRANAANN RN

AN N RN

CSERHRD

687
126807

:ISSUE PACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
:BIT 15 SETS DIRECTION - O=FORWARD

1=REVERSE

AR RN AR

012703
004737
103413
016501
012702
010004
005237

000001
010556

1328:

000002
000200

002212

001260
072367
012136

013703
013737

1408:

071752
003114

MoV

JSR
BCS

MOV
MOV
MOV
INC
ERRHRD

104456

104406

AN AN

071722

1508:
MAAAAAS

R AN RN TN N N AN AN RN RN N AN R AR AN AN RAN AR AR

#000001,R3

sSET UP SPACE COMMAND

1408
TSSR(RS) ,R1

:BR, IF NO TROUBLE
;GET TSSR

PC,SPACE

MoV

sSET UP EXPECTED TSSR

ERRNO, T26SC,PKTSSR

sSPACE (FORWARD) FAILED

RO,R4
FATFLG

sPACKET ADDRESS SET UP
+BUMP COUNT

cLOOP IF SELECTED

T26RSZ,R3

;RECORD SIZE

FREE, T26RB
a2l

FORWARD)

sCALL SPACE ROUTINE

#SSR,R2

CkLOOP
MOV

RN RSN ONRN TN

TRAP

CSERHRD

.WORD
WORD
JWORD

688
T26SC
PKTSSR

TRAP

(SCLP1

:STARTING READ BUFFER ADDRESS
i

122222222

AN NN NN

O RRRRANANRRES

*REREAD DATA,CVC=1,ACK, OPP COMMAND
’

2
7533 064656
7534 064664
7535 064670
7536 064674

161401

071720
071726
000000

071720

AR AR AR A AN R

1658:

MOV

MOV
MOV

A IR RN NI NN T RN R AARR NN RN RN NANAN AN

#161401,126PK3
#T26PK3 R4

sREREAD DATA,CVC=1,ACK, OPP COMMAND
sSET UP R4 WITH PACKET ADDRESS

R4, TSDB(RS)

s ISSUE COMMAND

R3,72652

sSET UP RECORD SIZE IN PACKET

TSV7 <~ HARDWARE TESTS 1-8

TEST

REREADS

7537 064700
7538 064706
7539 064710
7540 064714
7561 064716
7542 064720
7546 064724

064724
064726
064730
064732
7547 064734
064734

7548
7549
7550
7551
7552
7556

064736
064742
064746
064750
064752
064756

064756
064760
064762
064764
7557 064766
064766

7558 064770
7559 064776
7560 065000
7561 065004
7562 065010
7563 065012
7564 065016
7565 065016
7566
7567
7568
7569

065016
065016

065020
065026
065030
065034

004737
016501
012702
020102
001406
005237

MACRO M1113

016340

JSR

000002
000200

MOV
MOv
CMP

BEQ

002212

INC

ERRHRD

104456

001261
072175
012136
104406

017701
013702
020102
001406
005237

170s8:
116152
071746

023727
103402
004737

PC,WAITF
TSSR(RS)
,R1

FATFLG

ERRNO, T26RRF ,PKTSSR

CkLooP
MoV
MOV

CMP
BEQ
INC
ERRHRD

002212

104456

104403

H
7
PAGE 134-4

SEQ 0291

JWAIT FOR SSR TO SET
JGET TSSR CONTENTS
JSET UP EXPECTED
JARE THEY EQUAL

;BR,

IF 0K

:BUMP COUNT
;TSSR INCORRECT AFTER REREAD DATA
TRAP

.WORD
.WORD

001262
071756
015564

104406
062737
005723
010337
022703
001402
000137

25-MAY-82 09:19

.WORD

;LOOP IF SELECTED
aFREE ,R1
T26CNT ,R2
R1,R2
1908
FATFLG

ERRNO, T26WNG, EXPREC

000001

071746

sSET UP EXPECTED
;1S TAPE POSITION CORRECT
;KEEP GOING POSITION OK
:BUMP COUNT
sTAPE POSITION INCORRECT

TRAP

071752
000412
064602

002212
017272

(kLoopP
ADD
TST
MOV

2008:

000017
999%:

CMP
BEQ
JMP

#1,T26CNT

(R$)+

R3, T26RS2Z

CSERHRD

690
T26WNG

WORD

EXPREC

TRAP

cscLP

;BUMP TAPE RECORD COUNTER
sNEXT RECORD SIZE
:STORE RECORD SIZE

sAT MAX SIZE YET

:BR, IF AT END OF THE SUBTEST
sKEEP GOING MORE RECORDS

ENDSUB

CMP
8LO
JSR

PKTSSR

TRAP
cscLP1
;FIRST WORD FROM READ BUFFER

WORD
.WORD

190%:

CSERHRD

689
T26RRF

$22355555335> END

SUBIEST

L10113:

FATFLG,#15.
999%
PC,CKDROP

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

TRAP

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

CSESUB

TSV7 = HARDWARE TESTS 1-8

TEST

REREADS

MACRO M1113
e
:

25-MAY-82 09:19

PAGE 135

SEQ 0292

77
7572
;g;z

JTEST 6,

7575
7576
7577
7578
7579
7580
7581

JVERIFIES THAT THE REREAD NEXT COMMAND WITH OPP=1
JAND SWB=1 OPERATES PROPERLY. THE TEST SEQUENCE IS
sTHE SAME THAT IS USED IN SUBTEST 3, BUT IT IS
JVERIFIED THAT DATA STORED BY THE COMMAND CONTAINS
;s SWAPPED BYTES.
:
H

7582
7583
7584
7585
7586 065034

:
:
.-

BGNSUB

065034
065036
7587 065036

104402
004737

7589 065046

004737

7588 065042

;gg? 065052

SUBTEST 10

2255535>>>>>> BEGIN SUBTEST >>>>>>>>>>>>

16.10:

TRAP

074510

JSR

PC,T26REST

;SET COMMAND PACKET

074602

JSR

PC,T26RT?2

JSET UP OTHER COMMAND PACKET

005037

071746

004737

074644

(LR

JSR

7592

T26CNT

JCLEAR TAPE RECORD COUNTER

PC,T26RT3

JSET UP OTHER COMMAND PACKET

:ttttttttttttttttfittt'ttltt.tttttttttfiitttittfitttttt'tt'ttttt.ttttt

7593

;ggg

JISSUE CONTROLLER ‘‘SOFT'' INITIALIZE - CARRY BIT CLEAR IF ERROR

7596
7597

:'tttttttttttttttttttttttti!'ttttttfitttttttttttttt'tttttttttttt.tttt

7598
7599
7600
7604
760S

cs8sus

065056
065062
065064
065070
065072

004737
103407
005237
010001

016064

002212

065072
065074
065076
065100
;289 065102

104455
001263
003650
012124
013737

002172

;283 065110

012704

071600

071620

20%:

JSR
8CS
INC
MOV
ERRDF

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

;DO INITIALIZE ON CONTROLLER
;JBR IF INIT WAS OK
:BUMP COUNT
:CONTENTS OF TSSR REGiSTER
JFATAL ERROR TSSR WAS NOT 0K

MOV

UNITN, T26DSW

JSET UP UNIT NUMBER

MOV

#T26PACKET RS

;SUBROUTINE NEEDS PACKET ADDRESS

TRAP
.WORD
.WORD
.WORD

7610

:ttttttttttttttttttttttttttttttt'tttti.tttttttfittttttttttttttttt.t'

7611
;g}%

:
JWRITE CHARACTERISTICS COMMAND

761‘0

:'tittt'ttttttttt.ttt'ttt'tt'tttttttttttttttQtttttfittttttttttttttttt

7615
7616 065114
7617 065120
7618 065122
7622 065126
7623 065130

065130
065132
065134
065136

004737
103407
005237
010001

104456
001264
(005054
012124

010752

002212

JSR
BCS
INC
MOV
ERRHRD

CSERDF
691
SFIERR
SFIMSG

(CALL TO WRTCHR)

PC,WRTCHR
26%
FATFLG
RO,R1
ERRNO,WRTMSG,
SF IMSG

JISSUE WRITE CHARACTERISTICS
JBR, IF COMMAND ISSUED OK
;BUMP COUNT
JSAVE CONTENTS OF TSSR
JWRITE CHARACTERISTISC FAILED

TRAP
.WORD
.WORD
.WORD

CS$ERKRD
692
WRIMSG
SFIMSG

TSV7 < HARDWARE

TEST

REREADS

7624 065140
2625 065140

TESTS 1-8

MACRO M1113

25-MAY-82 09:19

PAGE 135-1
SEQ 0293

268:

104406

CKLOOP

;LOOP IF SELECTED

TRAP

7626

:ttttttttttttttttttttttttttttttttttttttt.tttttttttttttttttttttttt't

7627

7630

;tttttttttttttttttttttttttt'tQtttttt.tittttt.tttt‘ttttt'ttt'tt.'ttt

;233

7631
7632
7633
7634
7635
7636
7637
7641

s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

065142
065146
065152
065156
065160
065162
065166
065166

065170
065172
065174

7642 065176
7643 065176

004737
016501
012702
103407
010004
005237

011104
000002
000200

JSR
MoV
MOV
B8CS
MOV
INC
ERRHRD

002212

104456
001265
073254
012136

30$:

104406

7644

PC,REWIND
TSSR(RS) ,R1
#SSR,R2
308
RO,R4
FATFLG
ERRNO,T26RWN,PKTSSR

CKLOOP

;CALL TAPE REWIND COMMAND
:GET TSSR
:SET UP EXPECTED TSSR
JBR, IF NO PROBLEM
sPACKET ADDRESS SET UP
:BUMP COUNT
JREWIND NOT ACCEPTED
TRAP

:LOOP IF SELECTED

.WORD
LWORD
.WORD

CSERHRD
693
T26RWN
PKTSSR

TRAP

CSCLP1

:tttttt.tttttttttttttttttttttfittnttttttQtttttttttttttttttttt.ttt'tt

7645

7648

Ettttttttttttttttttttttttttttttttttittttttttttttttttttttttttttttitt

;gzg
7649

7650
7651
7652
7653

CSCLPY

JREAD MESSAGE BUFFER EXTENDED STATUS REGISTER 2ERO (XSTO)

065200
065204
065206
065212

013701
010102
052702
020102

071630

7655 065216

005237

002212

065222
0652246
065226
065230
7660 065232
065232
7661 065234
;gg% 065240

104456
001266
072765
015564

7654 065214

7659 065222

001406

104406
012703
013737

000002

40$:
000400

003114

T26BFR+6,R1
R1,R?
#8IT1,R2

INC

FATFLG

R1,R2

BEQ

408

ERRHRD

ERRNO, T26BOT ,EXPREC

CKLOOP
MOV

071722

7664

MoV
MOV
BIS
CMP

MOV

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

;BR,

IF EQUAL

;BUMP COUNT

(OK)

;TAPE NOT AT BOT AFTER REWIND

:LOOP IF SELECTED
#256.,R3

FREE,T26R8

TRAP
.WORD
.WORD
LWORD

CSERHRD
694
T26B07
EXPREC

TRAP

csCLP

;RECORD SIZE

;STARTING WRITE BUFFER ADDRESS

:tttttttttttttt'tttttttttitttttttlttttttttttttttttttttttttttttttttt

7665

;ggg

JWRITE DATA,CVC=1,ACK COMMAND

7668
7669

Ettttttttttttttttttttttttttttt.tttttttttttttttttttttfit...tt.tttt!tt

7670 065246

;2;5 822523

7673 065260

7674 065264
7675 065272

012737

140005

012704

071720

010337

071726

013777
062737

071746
000001

071720

115622
071746

655

MOV

#140005,126PK3

sWRITE DATA,CVC=1,ACK COMMAND

MOV

R3,T26S2

;SET UP RECORD SIZE IN PACKETY

MOV

)

MOV
ADD

#T26PK3,R4

T26CNT ,aFREE
#1,T26(NT

JSET UP R4 WITH PACKET ADDRESS

;MOVE TAPE RECORD NUMBER TO BUFFER
;NUMBER READY FOR NEXT RECORD

—

TSV7 = HARDWARE TESTS 1-8

TEST

REREADS

7676 065300
7677 065304
7678 065310
7679 065314
7680 065320
7681 065322
7682 065324
7686 065330

065330

065336
7687 065340
065340
7688 065342
7689 065344
7690 065350
7691 065352

7692 065354
7693 065354
7694
7695
7696

010465
004737
016501
012702
020102
001406
005237

MACRO M1113

000000
016340
000002
000200

¢WAIT FOR SSR TO SET

TSSR(RS) ,R1
#SSR,R2

¢GET TSSR CONTENTS
sSET UP EXPECTED

R1.R3
75§

CMP
BEQ
INC

ERRHRD

sARE THEY EQUAL

FATFLG

ERRNO,WRTERR,PKTSSR

;BR, IF OK
;BUMP COUNT
sTSSR INCORRECT AFTER WRITE DATA
TRAP

001267
005111
012136

75%:

104406

005037

; ISSUE COMMAND

PC.WAITF

MOV

002212

SEQ 0294

R4, TSDB(RS)

MOV
JSR
MOV

104456

005723
022703
001401
000742

7
K
PAGE 135-2

25-MAY-82 09:19

CKLOOP

071746

1208:
AR

;LOOP IF SELECTED

C$CLP

TRAP

CMP
BEQ
BR

sWRITE MORE RECORDS

CLR

T26CNT

sSET RECORD COUNTER BACK TO ZERO

RN AR A AN

AR AR AR

;BUMP THE RECORD SIZE
sMAXIMUM SIZE

CSERHRD
695
WRTERR
PKTSSR

+
(R3)
#268. ,R3
1208
65$%

TST

000414

.WORD
.WORD
.WORD

YET

sBR, IF AT END OF WRITE SEQUENCE

AR NI RN RN AR NN

A RN N AN RAANNARANAN

RN NN

ANNNRNANN

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
.

SRR AR AR

7701
7702
7703
7704
7705
7709

065360
065364
065366
065372
065374
065400

065400
065402
065404
065406
7710 065410
065410

7n
7712
7713
7714
7715

004737
103411
016501
010004
005237

011104

002212

104406

NRAN

PC,REWIND

sCALL TAPE REWIND COMMAND

MOV
MOV
INC

TSSR(RS)
,R1
RO,R4

sGET TSSR

sPACKET ADDRESS SET UP

ERRNO, T26RWN,PKTSSR

SREWIND NOT ACCEPTED

1308

BR,

FATFLG

ERRHRD

1308:

RANNNARCARANNA RN

JSR

BCS

000002

104456
001270
073254
012136

AR A RARNAN N AN AN RN AT TR R ANARRANARN AN AR NN

CkLOOP

MAALAAAE A2

IF NO PROBLEM

;BUMP COUNT

cLOOP IF SELECTED
Al

CSERHRD
696
T26RWN

TRAP
+WORD
-WORD
-WORD

PKTSSR

TRAP

CSCLPT

22 222222

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
.

MAAAAA AR

7718 065412
7719 065416

7720 065420
7721 065424

7722 065426
7723 065430
7727 065434

065434
065436
065440
065442

013701
010102
052702
020102
001406

005237
104456
001271

072765
015564

071630
000002

002212

MOV
MOV

8IS
CMP
BEQ
INC

ERRHRD

T26BFR+6,R1

R1,R2
#8iT1,R2
R1,R2

13§$

FATFLG

ERRNO, T26B0T ,EXPREC

2232222222

:PICK UP XSTO

:SET UP EXPECTED
:SET BOT BIT IN EXPECTED
:DOES EXP = REC'D
:BR, IF EQUAL (OK)
:BUMP COUNT

:TAPE NOT AT BOT AFTER REWIND
TRAP
.WORD

.WORD
-WORD

CSERHRD
697
126807

EXPREC

—

TSV7 = HARDWARE TESTS 1~8
TEST

REREADS

7 28 065444
065444
7729 065446

;;gg 065454

104406
012737
000420

MACRO M1113

1358:
000400

071752

7732

25-MAY=82 09:19

PAGE 135-3

CKLOOP
MOV

#256.,T26RS2

1408

SEQ 0295

;LOOP IF SELECTED
TRAP
:START RECORD SIZE

:SKIP OVER SPACE

:ttttttttntttttttttttttttttttfitttttttitttttttttttfittttfit.ttttt'ttt'

7733

7734

;ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS

7737

Etttttttt.tttfitttttttttttttttttttttfitttttttttttttttttttt.tttttttt't

;;gg

7738
7739
7740
7741
7742
7743
7744
7745
7749

:BIT 15 SETS DIRECTION - O=FORWARD

065456
065462
065466
065470
065474
065500
065502
065506

012703
004737
103413
016501
012702
010004
005237

065506
065510
065512
065514

104456
001272
072367
012136

065516
7751 065520
;;gg 0655264

104406
013703
013737

7750 065516

000001
010556

1368:

000002

000200
002212

1408:

071752

003114

071722

7754

1508:

MOV
JSR
BCS
MOV
MOV
MOV
INC
ERRHRD

#000001,R3
PC,SPACE
1408
TSSR(RS) ,R1
#SSR,R2
RO,R%
FATFLG
ERRNO, T26SC,PKTSSR

CKLOOP

MOV

1=REVERSE

;SET UP SPACE COMMAND (1

:CALL SPACE ROUTINE
*BR, IF NO TROUBLE
SGET TSSR
SSET UP EXPECTED TSSR
*PACKET ADDRESS SET UP
*BUMP COUNT
*SPACE (FORWARD) FAILED

:LOOP IF SELECTED

T26RSZ,R3

FREE, T26RB

FORWARD)

TRAP
.WORD
"WORD
.WORD

CSERHRD
698
T26SC
PKTSSR

TRAP

CS$CLP1

;RECORD SIZE

*STARTING READ BUFFER ADDRESS

:tttttttttttttttttttttt'tt't'tttttttttt'.ltt.ttttttttlttttltittttt'

7755

;;gg

SREREAD DATA,CVC=1,ACK, OPP COMMAND

7758
7759

:'tttttttfitittttttttittttt.tttttfitttttfittttttttttttttttttttttttttttt

7760
7761
7762
7763
7764
7765
7766

($CLP!?

065532
065540
065544
065550
065554
065560
065564

7767 065570
7768 065572
7769 065574

7773 065600
065600
065602
065604
065606
7774 065610
065610
7775 065612
7776 065616
7777 065622

7778 065624

7779 065626

012737
012704
010337
010465
004737
016501
012702

020102

001406
005237

161401
071720
071726
000000
016340
000002
000200

MOV
MOV
MOV
MOV
JSR
MOV
MOV

002212

BEQ
INC

104456
001273
072175
012136

1658:

1708:

104406
017701
013702
020102

115276
071746

005237

002212

001406

071720

#161401,T26PK3
#T26PK3.R4
R3,T2652
R4 . TSDB(RS)
PC.WAITF
TSSR(RS) ,R1

;REREAD DATA,CVC=1,ACK, OPP COMMAND
SSET UP R4 WITH PACKET ADDRESS
:SET UP RECORD SIZE IN PACKET
:1SSUE COMMAND
SWAIT FOR SSR TO SET
:GET TSSR CONTENTS

cMP

R1,k%

SARE THEY EQUAL

ERRHRD

ERRNO,T26RRF ,PKTSSR

JTSSR INCORRECT AFTER REREAD DATA
TRAP
CSERHRD
.WORD
699
-WORD
T26RRF
-WORD
PKTSSR
;LOOP IF SELECTED
TRAP
CS$CLP1
;FIRST WORD FROM READ BUFFER
;SET UP EXPECTED
:1S TAPE POSITION CORRECT

#SSR,R2

170~
FATFLG

CKLOOP
MOV
MOV
CMP

aFREE ,R1
T26CNT,R2
R1,R2

INC

FATFLG

BEQ

1908

SSET UP EXPECTED

:BR, IF OK
:BUMP COUNT

*KEEP GOING POSITION OK
:BUMP COUNT

TSV7 = HARDWARE TESTS 1-8

TEST

REREADS

7783 065632

065632
065634
065636
065640
7784 065642
065642
7785 065644

7786 065652

7787
7788
7789
7790
7791
7792
7793
7794
7795
7796

065654
065660
065664
065666
065672
065672

065672
065672

065674
065702
065704
065710

MACRO M1113

25-MAY-82 09:19

PAGE

135-4
SEQ 0296

ERRHRD

104456
001274
071756
015564
104406

1908:

062737

000001

010337
022703
001402
000137

071752
000412

005723

104403

023727
103402
004737

071746

065456

002212
017272

ERRNO, T26WNG,EXPREC

JTAPE POSITION INCORRECT

ADD

#1,T26CNT

;BUMP TAPE RECORD COUNTER

MOV
cMP
BEQ
JMP

R3,T26RSZ
#266.,R3
220%
1368

CKLOOP

TST

2208$:

000017

999:

(R$) +

ENDSUB

CMP
BLO
JSR

TRAP
.WORD
LWORD
.WORD

CSERHRD
700
TZ26WNG
EXPREC

TRAP

cSCLP1

:NEXT RECORD SIZE

;STORE RECORD SIZE
;AT MAX SIZE YET
:BR, IF AT END OF THE SUBTEST
JKEEP GOING MORE RECORDS
J253355553>>> END SUBTEST >>>>>>>>>>>>

L10114:

FATFLG,#15.
999%
PC,CKDROP

TRAP

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

C$ESUB

—

TSV? ~ HARDWARE TESTS 1-8
TEST
6: REREADS

MACRO M1113

25-MAY-82 09:19

N 7
PAGE 136

SEQ 0297

STEST 6, SUBTEST 11

*VERIFIES THAT A REREAD NEXT COMMAND READING A

*RECORD LONGER THAN THE SPECIFIED BYTE COUNT CAUSES

*TAPE STATUS ALERT TERMIMATION WITH THE RECORD LENGTH

*LONG (RLL) BIT SET. RESULTS ARE VERIFIED FOR BOTH
*STATES OF OPP (0 AND 1).

7813 065710
065710
065710
7814 065712
7815 065716
7819 065722

BGNSUB
104402

004737
004737
004737

074510
074602
074644

JSR
JSR
JSR
S RARA AR

JIIIIIII535>> BE?IN ?UBTEST 3333333333

PC,T26REST
PC.T26RT?
PC.T26RT3
RARAANAN

RN R AR

TRAP

;SET COMMAND PACKET
*SET UP OTHER COMMAND PACKET
*SET UP OTHER COMMAND PACKET
A ANAAARARAR RN R AN

NRAAAAAARRAARAN

($BSUB

A NC RS

:1SSUE CONTROLLER "'SOFT'* INITIALIZE - CARRY BIT CLEAR IF ERROR
.

SNERRAARRRAARRARARAN
AR AT A RANRAAAARARANRNRNNRAARNRARANRARARRANRNAR

7824
7825
7826
7830
7831

065726
065732
065734
065740
065742
065742
065744
065746

065750

7832 065752
7833
7834 065760
7835
7836
7837
7838
7839
7840
7841
7842 065764
7843 065770
7844 065772
7848 065776
7849 066000

066000
066002
066004
066006
7850 066010

004737
103407
005237
010001

016064

JSR
BCS

002212

INC
MOV
ERRDF

104455

001275
003650
012124
013737

002172

012704

071600

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

;DO INITIALIZE ON CONTROLLER
sBR IF INIT WAS OK
:BUMP COUNT
;CONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT OK
TRAP

.WORD

071620

208 :

.WORD
WORD

MOV

UNITN, T26DSW

sSET UP UNIT NUMBER

MOV

#T26PACKET R4

+SUBROUTINE NEEDS PACKET ADDRESS

AR EARA R AN

RN RN A AR NN R AN RRE AR

R ARA N AR

AN NANARNAAN AR

A RANR AR

CSERDF

701

SFIERR
SFIMSG

NNENERRS

:WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
[

:tttttttt.tttttt'.*tttttittttttttttttfitttttwtitttttttt'fit'!tt"t"t

004737
103407
005237
010001

010752

JSR
BCS
INC

002212

MOV
ERRHRD

104456
001276
005054

012124

PC,WRTCHR
26%
FATFLG
RO,R1
ERRNO,WRTMSG, SFIMSG

sISSJUE WRITE CHARACTERISTICS
sBR, IF COMMAND ISSUED OK
+BUMP COUNT
sSAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED
TRAP

CSERHRD

.WORD
WORD

WRTMSG
SFIMSG

.WORD

26%:

(KLOOP

;LOOP IF SELECTED

702

TSV7 =~ HARDWARE

TEST

REREADS

851 066010

TESTS 1-8

MACRO M1113

25-MAY-82 09:19

PAGE

136-1

SEQ 0298

104406

TRAP

7852

:ttttttttttttttittttttttt'ttttttttt.tttttttttttttttt.tttfitttttttttt

7853

;ggg

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

7856

;ttt'ttttttttttttfitttttttttttt.Qttttttttttt'ttttttttttttttttttttttt

7857
7858 066012

7859 066016

7860
7861
7862
7833
7867

066022
066026
066030
066032
066036

066036
066040
066042
066044
7868 066046
2869 066046

004737

011104

012702
103407
010004
005237

000200

016501

000002

JSR

PC,REWIND

;CALL TAPE REWIND COMMAND

MOV
BCS
MOV
INC
ERRHRD

#SSR,R?
308
RO,R&
FATFLG
ERRNO, T26RWN,PXTSSR

JSET UP EXPECTED TSSR
;BR, IF NO PROBLEM
JPACKET ADDRESS SET UP

MOV

002212

104456
001277
073254
012136

308 :

104406

7870

TSSR(RS) ,R1

CKLOOP

:GET TSSR

:BUMP COUNT

;REWIND NOT ACCEPTED

:LOOP IF SELECTED

TRAP
.WORD
.WORD
.WORD

CSERHRD
703
TZ26RWN
PKTSSR

TRAP

CSCLPT

:ttQtttt'tt'tttttttttttt'ttttttttttfittttttttttttttttttt'tttt'tt'ttt

7871

;g;%

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

7874
7875

Ettttttttttttttttttttt'ttt't.tttttttttfittt'ttttttt.tttt'ttt'tQ'tt.t

7876 066050

7877 066054
7878 066056
7879
7880
7881
7885

CS$CLPT

066062
066064
066066
066072

066072
0660746
066076
066100
7886 066102
066102
7887 066104
;ggg 066110

013701

010102
052702

020102
001406
005237

071630

MOV

MOV
BIS

000002

CMP
BEQ
INC
ERRHRD

002212

104456
001300
072765
015564

104406
012703
013737

408:

001000
003114

7890

R1,.R2
#8IT1,R2

R1,R2
40$
FATFLG
ERRNO, T26BOT ,EXPREC

CKLOOP

MOV
MOV

071722

T268FR+6,R1

:PICK UP XSTO

:SET UP EXPECTED
;SET BOT BIT IN EXPECTED

:DOES EXP = REC'D
;BR, IF EQUAL (OK)
;BUMP COUNT
;TAPE NOT AT BOT AFTER REWIND

;LOOP IF SELECTED

#512. ,R3
FREE,T26RB

TRAP
.WORD
.WORD
.WORD

EXPREC

TRAP

CSCLP

:RECORD SIZE
;STARTING WRITE BUFFER ADDRESS

;ttttttlQQQtQtttttQtttttttttttttttttfitt.tttttttttttttfittt.ttfihttttt

7891

7894
7895
7896 066116
;ggg 322%%8

E'tttt..ttttttt.ttt't'ttttttttfittQtQttttttttfittttttttt'tttttttttfitt

;gg%

7899 066130

7900 066134
7901 066140
7902 066144

;WRITE DATA,CVC=1,ACK COMMAND

012737

012704

140005
071720

010337

071726

010465
004737
016501

000000
016340
000002

071720

655

MOV
MOV

#160005,T26PK3
#T26PK3,RG

;WRITE DATA,CVC=1,ACK COMMAND
JSET UP R4 WITH PACKET ADDRESS

MOV

R3,726S2

sSET UP RECORD SIZE IN PACKET

MOV
JSR
MOV

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

s 1SSUE COMMAND
;WAIT FOR SSR TO SET
JGET TSSR CONTENTS

CSERHRD
704
T26B0T

TSV7 = HARDWARE TESTS 1-8

TEST

REREADS

(=
o
o
N
o
o

7903 066150
7904 066154
7905 066156
7906 066160
7910 066164
066764
066166
066170
066172
7911 066174
066174
7912
7913
7914
7915
7916
7917
7918
7919 066176
7920 066202
792
7922 066212
7923 066214
7924 066216
7928 066222

7929 066232
7930

012702
020102
001406
005237

MACRO M1113

000200

MOV
INC

75%:

106406

066234
066240
066242
066246
066250
7942 066252
7946 066256

066256
066260
066262
066264
7947 066266
066266
7948 066270
7949 066272
7950

7951
7952

7953

FATFLG

ERRNO,WRTERR,PKTSSR

THEY EQUAL

:BR, IF 0K
sBUMF COUNT
sTSSR INCORRECT AFTER WRITE DATA
TRAP
.WORD
.WORD
.WORD

sLOOP IF SELECTED
ARl

TRAP

CSERHRD

705

WRTERR
PKTSSR

CsCLP

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
0

AR AR

004737
016501
012702
103407
010004
005237

A AR

AN NI A A

AN RN RN

N AN AR AR A ANAN TR AN RANNANNAARARN

011104
000002
000200

JSR
MOV
MoV

PC,REWIND
TSSR(RS)
,R1
#SSR,R2

002212

MoV
INC

RO,R4
FATFLG

BCS

ERRHRD

104456

001302
073254
012136

1308:

104406

7931

7932
7933
7934
7935
7936
7937
7938
7939
7940
7941

sARE

CKLOOP

[AAAALASARAARA

SEQ 0299

sSET UP EXPECTED

R1,R2
75$

ERRHRD

104456
001301
005111
012136

PAGE 136-2

#SSR,R2

CMP
BEQ

002212

25-MAY-82 09:19

NN NANIERS

1308

sCALL TAPE REWIND COMMAND
sGET TSSR
sSET UP EXPECTED TSSR
;BR, IF NO PROBLEM

ERRNO, T26RWN,PKTSSR

REWIND NOT ACCEPTED

sPACKET ADDRESS SET UP

CkLoOOP

;BUMP COUNT

;LOOP IF SELECTED

RA RN AN AN AR N RN R AN

AN I A RN RRARANNNRANANARN RN AANARNARNANNNR

CSERHRD
706
T26RWN

TRAP
.WORD
-WORD
.WORD

PKTSSR

TRAP

cscLe

AANNR

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
.

AN EA

013701

071630

005237

002212

AN AN

T C AN RN RN AR NN R RAR AN AN RANARNANR AN NN NN AREAND

T26BFR+6,R1

MOV

R1,R2

CMP
BEQ
INC
ERRHRD

R1,R2
1408
FATFLG
ERRNO, T26B0T,EXPREC

8IS

104456
001303
072765
015564

#8iT1,R2

;PICK UP XSTO
sSET UP EXPECTED
;SET BOT BIT IN EXPECTED
<DOES EXP = REC'D
;BR, IF EQUAL (OK)
:BUMP COUNT
sTAPE NOT AT BOT AFTER REWIND
TRAP
-WORD
.WORD

1408:

104406

005303
013737

AN AR AR

MOV

000002
001406

RN AR

003114

071722

CkLOOP

DEC

MOV

<LOOP IF SELECTED
R3

FREE,T26RB

.WORD

726807
EXPREC

TRAP

C$CLPY

sSET RECORD SIZE TO 511,
sSTARTING READ BUFFER ADDRESS

;i.'...t.t.tfi.tt'tttt""'"tttitti'ttttttli"!'tt.lQ.'t't'ttt.'..'

:REREAD DATA,(CVC=1,ACK,0PP=1 COMMAND

CSERHRD
707

TSV7 ~ HARDWARE TESTS 1-8

TEST

REREADS

MACRO M1113

25-MAY=-82 09:19

7954

;tt'tttttt'.ttltttkttttlt"t'ttt'tttt.ttt.t.tttttttttttttttt..tttlt

7956
7957 066300

161401

071720
071726
000000
016340
000002

071720

#T26PK3 R4

#1614601,T26PK3

sSET UP R4 WITH PACKET ADDRESS

MOV
JSR
MOV
MOV

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

s ISSUE COMMAND
JWAIT FOR SSR TO SET
sGET TSSR CONTENTS
sSET UP EXPECTED

ERRHRD

104456

001304
074332
012136

sREREAD DATA,CV(C=1,ACK,0PP=1 COMMAND

R3,T726S2

cMP
8EQ
INC

002212

¢SET UP RECORD SIZE IN PACKET

R1,R2
1708
FATFLG

sARE THEY EQUAL
;BR, IF OK
:BUMP COUNT

ERRNO,T26TRL ,PKTSSR

sTSSR INCORRECT AFTER REREAD DATA
TRAP
CSERHRD

.WORD
.WORD

1708:

104406

(KLOOP

cLOOP IF

SELECTED

708
T26TRL

.WORD

PKTSSR

TRAP

cscLet

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

7977

7979
7980
7981
7982
7983
7984
7988

MOV
MOV

MOV

100204

7972
7973
7974
7975
7976

136-3

SEQ 0300

7955

7971 066356

PAGE

066360
066364
066366
066372
066374
066376
066402

066402
066404
066406
066410

7989 066412

066412

7990 066414
7991 066420
7992
7993
7994
7995
7996
7997
7998
7999 066426

8000 066434
8001 066440
8002 066444
8003 066450
8004 066454
8005 066460
8006 066464

013701
010102
052702
020102
001406
005237

071630

MOV
MOV

8IS

010000

CMP
BEQ

002212

INC

ERRHRD

106456
001305
074100
015564
104406

012703
013737

R RN R TR TN R AR RN AR AN AR AR AN RN AR

AN R TN R RS

T26BFR+6,R1
R1,R2

sGET MESSAGE BUFFER
sSET UP EXPECTED

R1,R2
180$

¢cARE THEY EQUAL
sBR, IF EQUAL (ALL IS WELL)

ERRNO, T26LON,EXPRE(

¢THE RLL BIT WAS NOT SET IN XSTO

#B8I1T12,R2

sSET THE RLL BIT IN EXPECTED

FATFLG

:BUMP COUNT

TRAP

CSERHRD

.WORD

EXPREC

TRAP
;SET UP SIZE OF RECORD
;STARTING READ BUFFER ADDRESS

cscLel

.WORD
.WORD

1808:

000777
003114

(CkLOOP

MOV
MOV

071722
AN AR

#511. ,R3
FREE,T26RB

AN AN N AN NN RN AN

TR AN R AR RANNRNNANRRAARNNANNAAANRNNRANINNNANNARANY

*REREAD DATA,CVC=1,ACK COMMAND
.

AR AN R AR

141401
071720
071726
000000
016340
000002
100204

071720

3658:

AR AR NN

RN AR

R AR

RANAN R NN

MoV

#1616401,T26PK3

Mov
JSR
MOV
MOV
cMp

R4, TSDB(RS)
PC,WAITF
TSSR(RS) ,R1
#SSR!SC!BITZ,R2
R1,R2

MoV
Mov

#T26PK3,R4
R3,726S2

AR AR NN AN RN

ARRANAANARRONS

;REREAD DATA,CVC=1,ACK COMMAND

sSET UP R4 WITH PACKET ADDRESS
sSET UP RECORD SIZE IN PACKET

s ISSUE COMMAND
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
+SET UP EXPECTED
JARE THEY EQUAL

709
T26LON

TSV7 - HARDWARE TESTS 1-8

TEST

REREADS

8007 066466
8008 066470
8012 066474
066474
066476
066500
066502

8013 066504
066504
8014
8015
8016
8017
8018
8019
8020
8021 066506
8022 066512
8023 066514
8024 066520
8025 066522
8026 066524
8030 066530
066530
066532
066534
066536
8031 066540
066540
8032 066542
066542
066542
8033 066544
8034 066552
8035 066554
8036 066560

001406
005237

MACRO M1113

25-MAY-82 09:19

BEQ

002212

INC

ERRHRD

104456

001306
074332
012136

PAGE 136~6

SEQ 0301

3708

;BR,

ERRNO,T26TRL ,PKTSSR

;TSSR INCORRECT AFTER REREAD DATA

FATFLG

IF OK

JBUMP COUNT

TRAP

CSERHRD

.WORD

PKTSSR

TRAP

C$CLP1

.WORD
.WORD

370%:

104406

CKLOOP

JLOOP IF SELECTED
.

710
T26TRL

.'tttttttttttttttttttttttt'tttttttttttttttt.fittttttttttttttfittt.tt't

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER 2ERQO (XSTO)

;tttQtttttttttttttttttttttttttttttttttttttttt'ttttttttttt'ttttttt't
013701
010102
052702
020102
001406
005237

071630

MOV

MoV

010000

BIS
CMP
BEQ

002212

INC

ERRHRD

104456

001307
074100
015564

T26BFR+6,R1

R1,R2

#BIT12,R2
R1,R2
3808
FATFLG

ERRNO,T26LON,EXPREC

380%:

CKLOOP
ENDSUB

IOO353553>>>>

TRAP

CSERHRD

WORD

EXPREC

TRAP

cscLP

002212

004737

017272

000017

CMP

999¢:

8LO
JSR

FATFLG,#15.

TRAP

CSESUB

999%
PC.,CKDROP

711
T26LON

END 3??;557 DE333333>33>>

023727
103402

JSET THE RLL BIT IN EXPECTED

sARE THEY EQUAL
sBR, IF EQUAL (ALL IS WELL)
;BUMP COUNT
JTHE RLL BIT WAS NOT SET IN XSTO
.WORD
.WORD

104406

104403

sGET MESSAGE BUFFER

JSET UP EXPECTED

;1S ERROR COUNT AT 25

;BR, IF LESS THAN 25
sTRY TO DROP THE UNIT

TSV? = HARDWARE

TEST

REREADS

TESTS 1-8

MACRO M1113

25-MAY-82 09:19

PAGE

137
SEQ 0302

8038
8039

14
:

ggz?

JTEST 6,

8042
8043

JVERIFIES THAT A REREAD NEXT COMMAND READING A
sRECORD SHORTER THAN THE SPECIFIED BYTE COUNT CAUSES

80446
8045
8046
8047

8048
8049
8050
8051
8052
8053
8054
8055 066560
066560
066560
8056 066562
8057 066566
gggg 066572

SUBTEST 12

sTAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH
¢SHORT (RLS) BIT SET. IT IS VERIFIED THAT THE
JRESIDUAL BYTE COUNTER (RBPCR) IN THE MESSAGE BUFFER
;CONTAINS THE PROPER NONZERO VALUE (E.G., THE

104402
004737
004737
004737

sDIFFERENCE BETWEEN THE ORIGINAL BYTE COUNT AND THE
sACTUAL RECORD LENGTH). RESULTS ARE VERIFIED FOR BOTH
JSTATES OF OPP (0 AND 1).
:
:
:
:=
BGNSUB
JO35555>5>3>> BEGIN SUBTEST >>>>>>>>>>>>
T6.12:
TRAP
cs8sus
JSR
PC,T26REST
;sSET COMMAND PACKET
JSR
PC,T26RT2
JSET UP OTHER COMMAND PACKET
JSR
PC,T26RT3
;SET UP OTHER COMMAND PACKET

074510
074602
0746644

8060

8061

AR AR R A AR

A A A R AR

AN AR AR AN AN NN NN AR R AN N AR AR RN RN AN RN AN

ggg%

s ISSUE CONTROLLER ‘'SOFT'* INITIALIZE -~ CARRY BIT CLEAR IF ERROR

8064
8065
8066 066576
8067 066602
8068 066604
8072 066610
8073 066612
066612
066614
066616
066620
gg;g 066622

:-Qttttttttttttttttttfittttttt'ttttttt.ttttt.ttttfittttttttttttttttttt

104455
001310
003650
012124
013737

002172

gg;g 066630

012704

071600

004737
103407
005237
010001

016064

002212

8078

20$:

8079

ggg?

8082
8083
8084 066634
8085 066640
8086 066642
8090 066646
8091 066650
066650
066652
066654

071620

R R

JSR
8CS
INC
MOV
ERRDF

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

MOV

UNITN,T26DSW

;DO INITIALIZE ON CONTROLLER
JBR IF INIT WAS 0K
;JBUMP COUNT
;CONTENTS OF TSSR REGISTER
JFATAL ERROR TSSR WAS NOT OK
TRAP
.WORD
.WORD
.WORD
;SET UP UNIT NUMBER

MOV

#T26PACKET R4

s SUBROUTINE NEEDS PACKET ADDRESS

A AN AR R A AN AN AN

AN NN AN AN R AR RN AR RN NN AN

CSERDF
712
SFIERR

SFIMSG

NN NN RANNRRARNRARY

JWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
:'tttttttttttttttttttttttttttttttttttttttttttttttttttttttttt.ttttttt

004737
103407
005237
010001
104456
001311
005054

010752
002212

JSR
B8(CS
INC
MOV
ERRHRD

PC,WRTCHR
268%
FATFLG
RO,R1
ERRNO,WRTM
SFSG,
IMSG

sISSUE WRITE CHARACTERISTICS
;JBR, IF COMMAND [SSUED 0K
;BUMP COUNT
;SAVE CONTENTS OF TSSR
JWRITE CHARACTERISTISC FAILED
TRAP
WORD
.WORD

CSERHRD
713
WRTMSG

TSV? -~ HARDWARE TESTS 1-8

TEST

REREADS

066656
8092 066660
066660

MACRO M1113

012124

PAGE 137-1

SEQ 0303

ckLooP

26$:

104406

25-MAY-82 09:19

sLOOP IF SELECTED

AASALAAAALAAAMS

ARl

.WORD

SFIMSG

TRAP

csCLP1

2 22222222

*ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
]

NN AR R AN RN R AR AN N AN RN

NYON NN
=

N =2 OOV

cd wd

b wd

PNOMNIRNININ) = b e cd d od ok b ol

00 00 00 G0 Oo 0o 08 Co 00 0o 0O 0o 00 0o

8100 066662
8101 066666
8102 066672
8103 066676
8104 066700
8105 066702
8109 066706
066706
066710
066712
066714
0 066716
066716

004737
016501
012702
103407
010004
005237

011104
000002
000200

PC,REWIND
TSSR(RS)
,R1
#SSR,R2

MOV
INC

RO,R4
FATFLG

001312
0732564
012136

JCALL TAPE REWIND COMMAND
:GET TSSR
:SET UP EXPECTED TSSR
:BR, IF NO PROBLEM
JPACKET ADDRESS SET uP
;BUMP COUNT

ERRNO,T26RWN,PKTSSR

JREWIND NOT ACCEPTED

(kLOOP

308:

104406

AN AN RN RANANNANRAANRAANNRNNRNAD

308

ERRHRD

104456

NN R E NN A RA IR

JSR
MOV
MOV

8CS

002212

AN RN R

;LOOP IF SELECTED

RN NN RN A N AN

RN TN A AR R RN AN NANN RN RN ANNANNNANNRARRN

TRAP
.WORD

CSERHRD
714
T26RWN

.WORD
.WORD

PKTSSR

TRAP

CSCLP

ENR

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
.

S ANANEARRANR

066720

066724
066726
066732
066734
3 066736

7 066742

066742
066744
066746
066750
8128 066752
066752
8129 066754
8130 066760
8131
8132
81 3
81 4
81 5
81 6
81 7
81 8 066766
81 9 066774
81 ? 067000
81
067000
81 2 067004

013701
010102
052702
020102
001406
005237

071630

MOV
MOV

000002

002212

001313
072765
015564

012703
013737

40$:

000400
003114

T26BFR+6,R1
R1,R2

BIS

#81T1,R2

BEQ
INC
ERRHRD

408
FATFLG
ERRNO,T26B0T,EXPREC

CMP

104456

104406

AN AR AANA IOV ANI RN AANRARNRRNANRNANNANANRANANNANENNNNRANS

R1,R2

s TAPE NOT AT BOT AFTER REWIND
TRAP
.WORD
.WORD
.WORD

CKLOOP

<LOOP IF SELECTED

MoV
Mov

071722

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

#256. ,R3
FREE, T26RB

AN AN RN A RAN RN RN AN RN

¢RECORD SIZE

TRAP

;STARTING WRITE BUFFER ADDRESS

RN R AN AN

NN RN NAN RN RO NRANN

AN AR RARAN NN

RES

*WRITE DATA,CVC=1,ACK COMMAND
0

IR AALAAA AR

140005

071720

071726
000000

071720
65%:

R 222222 )

MOV
MOV

#140005,T26PKk3
#T26PK3,R4

sWRITE DATA,CVC=1,ACK COMMAND

MOV

R3,T26S2

sSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND

[ [0]"

R4 ,TSDB(RS)

sSET UP R4 WITH PACKET ADDRESS

CSERHRD

715
126807
EXPREC
CSCLPY

TSV7 - HARDWARE TESTS 1-8

TEST

8143
8144
8145
8146
8147

REREADS

067010
067014
067020
067024
067026

004737
016501
012702
020102
001406
005237

067034
067036
067040
067042
8153 067044
067044
8154 067046
8155
8156
8157
8158
8159
8160
8161
8162 067046
8163 067052
8164 067056
8165 067062

104456

8148 067030
8152 067034

H 8
PAGE 137-2

25-MAY-82 09:19

016340

000002
000200

JSR
MOV
MOV

PC,WAITF
TSSR(RS)
,R1
#SSR,R2

002212

INC

FATFLG

CMP
BEQ

SEQ 0304

SWAIT FOR SSR 10 SET
JGET TSSR CONTENTS
JSET UP EXPECTED

R1,R2
75§

ERRHRD

001314
005111
012136

JARE THEY EQUAL

ERRNO,WRTERR,PKTSSR

:BR, IF 0K
;BUMP COUNT
JTSSR INCORRECT AFTER WRITE DATA
TRAP

CSERHRD

.WORD
.WORD

WRTERR
PKTSSR

TRAP

cscLP1

.WORD

75%:

104406

(KLOOP

JLOOP IF SELECTED

:
1208
NN AN

R AR N RN RN NN N NN AN NN N

N R A NN N A R RN RN RN RN AN ANNANN RN AN NN RN

716

NIRARES

*ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
3

R AR

004737
016501
012702
103407

8166 067064

010004
005237

067072
067074
067076
067100
8172 067102
067102

104456
001315
073254
012136

8167 067066
8171 067072

MACRO M1113

RN R

011104
000002
000200

AN AN AN

JSR

N AR AN AN N R AN AR

PC,REWIND

MoV
MOV

TSSR(RS)
,R1
#SSR,R2

MoV
INC
ERRHRD

RO,R4
FATFLG
ERRNO, T26RWN,PKTSSR

8(s

002212

RN NN AN

1308

AA NN NN NN NANANRNANNNARAARANES

sCALL TAPE REWIND COMMAND
JGET TSSR
JSET UP EXPECTED TSSR
;BR, IF NO PROBLEM
JPACKET ADDRESS SET uP
;BUMP COUNT
JREWIND NOT ACCEPTED

TRAP

CSERHRD

.WORD

PKTSSR

TRAP

cscLP

.WORD
.WORD

1308:

104406

T AR

CkLOOP
A

;LOOP IF SELECTED

AR NN AN AN AN AN

RN NN

RN R AN AN AR R R AN NN AN NN AR N AN AN

RN RN

717
T26RWN

CARNES

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
.

013701
010102
052702
020102
001406
005237

AR AR

071630

Mov
MOV
81§
cMP

000002

8EQ
INC
ERRHRD

002212

104456

T26BFR+6,R1
R1,R2
#8171,R2
R1‘R2

1328

FATFLG
ERRNO, T26B0T ,EXPREC

2222322221

JPICK UP XSTO

JSET UP EXPECTED

JSET BOT BIT IN EXPECTED
:DOES EXP = REC'D
sBR, IF EQUAL (0K)
;JBUMP COUNT
;TAPE NOT AT BOT AFTER REWIND
TRAP

CSERHRD

.WORD

EXPREC

TRAP

CSCLPY

.WORD
.WORD

8190 067136
067136
8191 067140
8192 067144
8193

1358:
001000
003114

071722

CKLOOP
MOV

Mov

;LOOP 1F SELECTED
#512.,R3

FREE,T26RB

cRECORD SIZE
sSTARTING READ BUFFER ADDRESS

718
126807

TSV7 ~ HARDWARE TESTS 1-8

TEST

REREADS

8194
8195
819
8197
8198
8199
8200 067152
8201 067160
8202 067164
8203 067170
8204 067174
8205 067200
8206 067204
8207 067210
8208 067212
8209 067214
8213 067220
067220
067222
067224
067226
8214 067230
067230

MACRO M1113

MALALAAAA RS AR

25-MAY-82 09:19

PAGE 137-3

AR AR

SEQ 0305
A

*REREAD NEXT,ACK,CVC=1,0PP=1
3

c R

161401
071720
071726
000000
016340
000002
100204

0ns237

071720

RRAR AR

165%:

AR AN RN N AARA RN AN NN RN NN

MoV
MOV
MOV
MOV

JSR

MOV
MOV

CMP
8EQ
INC

002212

ERRHRD

104456

001317
074332
012136

170$:

104406

AANARNANE

#161401,T26PK3
#T126PK3
RS
R3,726S2
R4, TSDB(RS)

RN AANANERNRNNNNDNANCRANN
D

sREREAD NEXT,ACK,CVC=1,0PP=1
SSET UP R4 WITH PACKET ADDRESS
sSET UP RECORD SIZE IN PACKET
;s 1SSUE COMMAND

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

JWAIT FOR SSR TO SET

JGET TSSR CONTENTS
JSET UP EXPECTED

R1,R?
170$

JARE

ERRNO,T26TRL,PKTSSR

sTSSR INCORRECT AFTER READ DATA
TRAP
.WORD
.WORD
.WORD

FATFLG

ckLooP

THEY EQUAL

:BR, IF OK
;BUMP COUNT

;LOOP IF SELECTED

SRR AR AR RN AR AR NN RN AN NN

RN RN RA N

AR RANANAAN NN R AN RN RN O RN AN

CSERHRD
719
T26TRL

PKTSSR

TRAP

C$CLP

RANNERNRRD

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
[

S HERNRANNRAANRARNA RN

8222 067232
8223 067236
8224 067240

8225 067244
8226 067246
8227 067250

013701
010102

052702
020102
001406
005237

071630

MOV
MOV

040000

8lS
CMP
BEQ
INC
ERRHRD

002212

104456

001320
074162
015564
104406

013701
012702
020102
001405

1808%:

071626
000400

CMP
BEQ
ERRHRD

8241 067314
067314
8242 067316
8243 067322
8244

001320
0746244
015564
104406

012703
013737

190$:

001000

003114

071722

T26BFR+6,R1
R1,R2

#BI1T14 ,R2

180%

FATFLG

ERRNO, T26LOP ,EXPREC

AANEN AN NN RN

CRRANNORAD

:GET MESSAGE BUFFER
sSET UP EXPECTED
;SET THE RLS BIT IN EAPECTED

sARE THEY EQUAL

sBR, IF EQUAL (ALL IS WELL)
:BUMP COUNT
sTHE RLL BIT WAS NOT SET IN XSTO
TRAP

CkLOOP
MOV
MOV

104456

RNV AT O N RN R AANRRANRANNARNAN RO

T26BFR+4
,R1
#256. ,R2
R1,R2
190$

ERRNO, T26PBP ,EXPREC

CkLOOP
MOV
Mov

FREE,T26RB

720
T26L0P
EXPREC

TRAP

cscLP

sPICK UP RESIDUAL BYTE COUNTER
sTHIS SHOULD BE THE DIFFERENCE
:1S THE DIFFERENCE CORRECT
:BR, IF CORRECT
sRBPCR NOT CORRECT

TRAP

:LOOP IF SELECTED
'512¢9R3

CSERHRD

.WORD
-WORD
-WORD

+RECORD SIZE

CSERHRD

.WORD
.WORD

720
T26PBP
EXPREC

TRAP

cscLPt

sSTARTING READ BUFFER ADDRESS

TSV7 - HARDWARE TESTS 1-8

TEST

REREADS

8245
8246
8247
8248
8249
8250
8251 067330
8252 067336
8253 067342
8254 067346
8255 067352
8256 067356
8257 067362
8258 067366
8259 067370
8260 067372
8264 067376
067376
067400
067402
067404
8265 067406
067406
8266
8267
8268
8269
8270

MACRO M1113

067470
8292 067472
067472
8293 067474
067474
067474

PAGE 137-4

SEQ 0306
MUAAAALAAA R

ISR

REREAD NEXT,ACK,CVC=1,0PP=0
»

012737
01704
010337
010465
004737
016501
012702
020102
001406
005237

141401

071720
071726
000000
016340
000002

071720

JSR

MOV
MOV

100204

CMP
8EQ
INC
ERRHRD

002212

104456

001321
074332
012136

2708:

104406

RAANNR AN

MOV
MOV
MOV
MOV

RN A

AAAN RN RN N

AR NANARRARNARANNARANANNENANANNARNANONNRNN
S

#161401,T26PK3
#T26PK3R4
,
R3,726S52

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

sREREAD NEXT,ACK,CVC=1,0PP=0

sSET UP R4 WITH PACKET ADDRESS
sSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
sSET UP EXPECTED

R1,R2

sARE

FATFLG

JBUMP COUNT
JTSSR INCORRECT AFTER READ DATA

2708

THEY EQUAL

:BR, IF 0K

ERRNO, T26TRL ,PKTSSR

(KLOOP

TRAP

JLOOP IF SELECTED

CSERHRD
721
T26TRL

.WORD
.WORD
.WORD

PKTSSR

TRAP

CSCLPY

AR AR RN AN AN NANAN RN NN E NI NAR N RARRANNNARNANPARNNAN
N ARANC AN
NRA
NRD

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
L

AR AR

8273 067410
8274 067414
8275 067416
8276 067422
8277 067424
8278 067426
8282 067432
067432
067434
067436
067440
8283 067442
067442
8284 067444
8285 067450
8286 067454
8287 067456
067462
067462
067464
067466

25-MAY-82 09:19

013701
010102
052702
020102
001406
005237

071630

MOV
MOV

040000

8IS
CMP
8EQ
INC
ERRHRD

002212

104456

001322
074162
015564
104406

013701
012702
020102
001405

280$:

071626
000400

104406

104403

N RN R RRAANANAANRNANARNRAARNARARAANS
NN AR R

T26BFR+6,R1

R‘oRZ

#B8IT14,R2

R1,R2

280$

FATFLG

ERRNO, T26LOP ,EXPREC

8EQ
ERRHRD

290%:

;GET MESSAGE BUFFER
sSET UP EXPECTED
sSET THE RLS BIT IN EXPECTED

sARE THEY EQUAL

:BR, IF EQUAL (ALL IS WELL)
sBUMP COUNT

sTHE RLL BIT WAS NOT SET

ckLOoP

IN XSTO
TRAP
CSERHRD
722
.WORD
T26L0P
.WORD
.WORD
EXPREC

TRAP

MOV
MOV
CMP

104456

001322
074244
015564

AN ANA AR AR AR RN AR A RN

:PICK UP RESIDUAL BYTE COUNTER

cscLP

sTHIS SHOULD BE THE DIFFERENCE

ERRNO, T26PBP ,EXPREC

sIS THE DIFFERENCE CORRELT
:BR, IF CORRECT
+RBPCR NOT CORRECT

TRAP
-WORD
.WORD

cKLooP

<LOOP IF SELECTED

ENDSUB

$2333353555>>

END

.WORD

TRAP

CSCLPY

TRAP

(SESUB

SUBTEST

L10116:

CSERHRD

722
T26PBP
EXPREC

>>5>3>>>>>>>>>

TSV7 -~ HARDWARE

TEST

8294
8295
8296
8297

REREADS

067476
0675064
067506
067512

TESTS 1-8

0c3727
103402
004737

002212
017272

MACRO M1113

000017
9998:

25-MAY-82 09:19

CMP
BLO
JSR

PAGE

FATFLG,#15.
999¢
PC.CKDROP

137-5

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

TSV7 = HARDWARE TESTS 1-8

TEST

REREADS

MACRO M1113

25-MAY-82 09:19

PAGE

138
SEQ 0308

8299
8300

A
:

g%g}

sTEST 6, SUBTEST 13

8303

SVERIFIES THAT A DATA BUFFER ADDRESS REFERENCING

8308

8304
8305
8306
8307

¢NONEXISTENT MEMORY CAUSES RECOVERABLE ERROR
sTERMINATION (TC=4 OR 5) WITH NXM=1 AND THAT THE TAPE
:1S ULTIMATELY POSITIONED PROPERLY. ALL COMBINAT]ONS
sOF REREAD PREVIOUS/NEXT AND OPP=0/1 ARE TESTED.

3%?8

8311

8314

;

8315
8316
8317 067512
067512
067512
8318 067514
8319 067520
8320 067522
8321 067526
8322 067532
8323 067536
gggg 067542

8312
8313

:
:

LA R AR a

ARl

003126
070504
074510
071746
074602
074644

108:

8326

I Y 1222222222221

The LSI BUS drivers for all available address lines(16-21)

WAA A AR A

g A

TST
BNE
JMP
JSR
CLR
JSR
JSR

NXMFLG
108
2008
PC,T26REST
T26CNT
PC,T26RT?2
PC,T26RT3

I I

Y Y

2222228

$233>5>>>>5>> BEGIN SUBTEST >>>>>>>>>>>>
16.13:
TRAP
(s8sus
;DO WE HAVE IT?
;BR, IF
ENOUGH
sSKIP THIS TEST IF NOT
sSET COMMAND PACKET
sCLEAR TAPE RECORD COUNTER
sSET UP OTHER COMMAND PACKET
¢cSET UP OTHER COMMAND PACKET

:ttttttttttttttttttttttttttttttttttQttttttttttttttttttttttttttttt.t

8327

ggsg

:ISSUE CONTROLLER ''SOFT'' INITIALIZE - CARRY BiT CLEAR IF ERROR

8330
8331
8332 067546
8333 067552
8334 067554
8338 067560
8339 067562
067562
067564
067566
067570
ggz? 067572

EttttttttttttttttttttttttttQttttttt.tttttt'ltttttttt'tttttttttttttt

104455
001323
003650
012124
013737

002172

ggzg 067600

012704

071600

004737
103407
005237
010001

016064

002212

8344

071620

20$%:

JSR
8(CS
INC
MOV
ERRDF

PC,SOFINIT
208
FATFLG
RO,R1
ERRNO,SFIERR,SF
IMSG

MoV

UNITN,T26DSW

cDO INITIALIZE ON CONTROLLER
sBR IF INIT WAS 0K
:BUMP COUNT
JCONTENTS OF TSSR REGISTER
cFATAL ERROR TSSR WAS NOT 0K
TRAP
LWORD
.WORD
.WORD
sSET UP UNIT NUMBER

MOV

#T26PACKET R4

¢ SUBROUTINE NEEDS PACKET ADDRESS

:tttt.ttt..tttttttt'tt't't't'ttttttt.ttt.ttttttttt'ttt'tttt't'fitt't

8345

sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

§§29
8348

8349
8350 067604
8351 067610
8352 067612

)

are only checked when running on a 11/238 system with more than
128K words of memory!

BGNSUB
104402
005737
001002
000137
004737
005037
004737
004737

CAUTION

:'ttttttttttttttttt'tttt'ttttttt"tttttQtttttttttt!ttttttttttt.'tn't
004737
103407

005237

010752

002212

JSR
8(S
INC

PC,WRTCHR
26$

FATFLG

sISSUE WRITE CHARACTERISTICS
sBR, IF COMMAND [SSUED Ok

:BUMP COUNT

CSERDF
723
SFIERR

SFIMSG

—

—_—

TSY7 = HARDWARE TESTS 1-8

TEST

REREADS

8356 067616
8357 067620
067620
067622
067624
067626
8358 067630
8359 067630

MACRO M1113

010001

MOV
ERRHRD

104456
001324
005054
012124

26%:

104406

8360

PAGE

138-1

RO,R1
ERRNO,WRTMSG, SFIMSG

CkLOOP

AR A L R

8361

25-MAY-82 09:19

SEQ 0309

;SAVE CONTENTS OF TSSR
JWRITE CHARACTERISTISC FAILED

;LOOP IF SELECTED

R R

TRAP
LWORD
.WORD
.WORD

CSERHRD
724
WRTMSG
SFIMSG

TRAP

CSCLP

R 12222221

g%g%

;1SSUE REWIND COMMAND TO SELECTED TAPE DRIVE

8364
8365
8366 067632
8367 067636
8368 067642
8369 067644
8370 067650
8371 067652

;tttttttttttttttttttttt't'ttttt'ttttttQttttttttttttttt'tttfitttttttt

8375 067656

067656
067660
067662
067664
8376 067666
8377 067666

004737
004737
103411
016501
010004
005237

021276
011104

JSR
JSR
BCS
MOV
MOV
INC

000002
002212

ERRHRD

104456
001325
073254
012136

30$:

1064406

PC,INVERT
PC,REWIND
308
TSSR(RS) ,R1
RO,R4
FATFLG

JINVERT THE EXTENDED FEATURES SWITCH
sCALL TAPE REWIND COMMAND
sBR, IF NO PROBLEM
:GET TSSR
sPACKET ADDRESS SET UP
;BUMP COUNT

ERRNO, T26RWN,PKTSSR

JREWIND NOT ACCEPTED

CKLOOP

CSERHRD
725
TZ26RWN
PKTSSR

TRAP

CSCLP

8378
8379

A
:

8382
8383
8384 067670
8385 067674
8386 067676
8387 067702
8388 067704
8389 067706
8393 067712
067712
067714
067716
067720
8394 067722
067722
g%gg 067724

;ttttttttttttttttttttttttttttttttttttttttttttttfilttt'tttttttttttttt

gggg

R AN N R

;LOOP IF SELECTED

TRAP
.WORD
.WORD
.WORD

R R R R AR AN NN NN RN R RN A AR R AR A AN NN AN R AR AN N NN R R SRR S RN RN

JREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

013701

010102
052702
020102
001406
005237

071630

MOV

MOV
BIS
CMP
8EQ
INC
ERRHRD

000002

002212

104456
001326
072765
015564
104406
013737

408$:

003114

071722

8397

CkLOOP

MOV
NN AN R

8398

T268FR+6,R1
R1,R2
#IT1,RZ
R1,R2
408
FATFLG
ERRNO,T26BOT,EXPREC

AR AN R

FREE,T26RB

sPICK UP XSTO

JSET UP EXPECTED
JSET BOT BIT IN EXPECTED
;DOES EXP = REC'D
;BR, IF EQUAL (OK)
;BUMP COUNT
sTAPE NOT AT BOT AFTER REWIND
TRAP
WORD
.WORD
.WORD
;LOOP IF SELECTED
TRAP
sSTARTING WRITE BUFFER ADDRESS

RN R R AR AR A AR R AN N A NANRA NN AN

AN AN RO AR R RN AN AN

ANNAA NS

gzgg

;WRITE DATA,CVC=1,ACK COMMAND

8401
8402
8403 067732

;tttttttttttttttttttt.tttt'tttit.ttttttlttttttttttttt'ttttt!ttttfitt
012737

140005

071720

MOV

#160005,T26PK3

JWRITE DATA,CV(=1,ACK COMMAND

CSCRMKD
726
T26BOT
EXPREC
CSCLP

_—

—

TSV? < HARDWARE TESTS 1-8

TEST

REREADS

8404 067740

8405 067744

8406 067752
8407 067750
8408 067766
8409 067772
8410 067776
8611 070002

8412 070006

8413 070010
8414 070012
8418 070016
070016
070020
070022
070024
8419 070026
070026
8420 070030
8421 070036
8422 070040
8423 070042
gfi%g 070042

012704

012737

013777
062737
010465
004737
016501
012702

020102

001406
005237

071720

000400

071746
000001
000000
016340
000002
000200

MACRO M1113

071726

113134
071746

104406
022737
001401
000741
005037

MoV

65$:

MOV

MOV
ADD
MOV
JSR
MOV
MOV

CMP

BEQ
INC
ERRHRD

002212

104456
001327
005111
012136

25-MAY-82 09:19

PAGE 138-2

SEQ 0310

#T26PK3 R4

JSET UP R4 WITH PACKET ADDRESS
¢SET UP RECORD SIZE IN PACKET
sMOVE TAPE RECORD NUMBER TO BU: FER
¢NUMBER READY FOR NEXT RECORD
s ISSUE COMMAND
cWAIT FOR SSR TO SET
sGET TSSR CONTENTS
sSET UP EXPECTED

#256. 72652

T26CNT ,aFREE
#1.T26ENT
R4 . TSDB(RS)
PC.WAITF
TSSR(RS)
,R1
#SSR,R2

R1,R2

sARE THEY EQUAL

75%
FATFLG
ERRNO,WRTERR,PKTSSR

:BR,

IF 0K

sBUMP COUNT
sTSSR INCORRECT AFTER WRITE DATA
TRAP

000013

071746

ckLooP

071746
1208
:

#11. ,T26CNT
1208
65$

TRAP
CSCLPT
sCHECK NUMBER OF RECORDS WRITTEN
;BR, IF AT END OF WRITE SEQUENCE
sWRITE MORE RECORDS

CLR

T26CNT

;SET RECORD COUNTER BACK TO ZERO

8427

8630
8431
8432 070046
8433 070052
8434 070054
8435 070060
8436 070062
8440 070066
070066
070070
070072
070074
8441 070076
8442 070076

:-tttttt-tttttttttttttttttttttttttttttttttttttttttttttttttttttttt.tt

s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

011104

JSR
BCS
MoV
MOV
INC
ERRHRD

000002
002212

104456
001330
073254
012136

PC,REWIND
1308
TSSR(R5) ,R1
RO,R4
FATFLG
ERRNO,T26RWN,PKTSSR

2222222222

sCALL TAPE REWIND COMMAND
;BR, IF NO PROBLEM
JGET TSSR
sPACKET ADDRESS SET UP
;BUMP COUNT
sREWIND NOT ACCEPTED

TRAP

JWORD
.WORD

130$:

104406

8(.1.3

CKLOOP

;LOOP IF SELECTED

CSERHRD

/28
T26RWN

WORD

PKTSSR

TRAP

csCLP

"tttttt'tttttttttfittttttttttttfittttt'tttltt.tt'ttttttit‘tttt'tttt.t

8444

gzzg

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

8447
8448
8449 070100

:'"tttttttttt'ttttttt'tt'tt'tt't.ttttttttttttttttttttttt'tt'ttttttl

8450 070104
8451 070106
8452 070112
8453 070114
8454 070116
8458 070122
070122

WRTERR
PKTSSR

CMP
BEQ
BR

gzgg

cLOOP IF SELECTED

.WORD
.WORD

8426

004737
103411
016501
010004
005237

727

.WORD

75$:

CSERHRD

013701
010102
052702
020102
001406
005237
104456

071630
000002

002212

MOV
MOV
8IS
CMP
BEQ
INC
ERRHRD

T26BFR+6,R1
R1,R2
#8IT1,R2
R1,R2
1408
FATFLG
ERRNO,T26B0T,EXPREC

JPICK UP XSTO
SET UP EXPECTED
JSET BOT BIT IN EXPECTED
:DOES EXP = REC'D
;BR, IF EQUAL (0OK)
;BUMP COUNT
cTAPE NOT AT BOT AFTER REWIND
TRAP

CSERHRD

TSV? -~ HARDWARE

TEST

REREADS

070124
070126
070130
8459 070132
070132
8460 070134
8461 070140
8462 070146
8463
8464
8465
8466
8467
8468
8469
8470 070154
8471 070160
8472 070164
8473 070172
8474 070176
8475 070202
8476 070206
8477 070212
8478 070214
8479 070216
8480 070222
8481 070224
8482 070230
8483 070232
8484 070232
8488 070236
070236
070240
070242
070244
8489 070246
070246
8490

8491
8492
8493
8494
8495
8496
8497 070250
8498 070256
8499 070264
8500 070270
8501 070276
8502 070302
8503 070306
8504 070312
8505 070316
8506 070320
8507 070322
8511 070326
070326

TESTS 1-8

MACRO M1113

25-MAY-82 09:19

PAGE 138-3

SEQ 0311

001331

729
T26B0T

.WORD
.WORD
1408:

071736
003130
003132

071722
071724

1508:

CkLOOP

MOV

#T26RN,R3

MOV
MOV

SN AR AR AN

;LOOP IF SELECTED
NXMLO, T26RB
NXMHI,T26RB+2

AR RN AN A AN AN N C AN

: COMMAND BUFFER ADDRESS

.WORD

EXPREC

TRAP

cscLP1

sSTARTING READ BUFFER ADDRESS

¢SET UP HIGH ORDER ADDRESS BITS

R RN RN AR AR AN RN NN NN AN INRRRN NN AARARAANRERAD

*REREAD DATA,IE,ACK, OPP COMMAND
.

WA R AN AR A RN R AN NN AN AR RN AN RARN RN NI ARNANN N AR NANANA

071720
071720
000400

071726

1658:

000002
1046210

000002

005237

002212

(R3),T26PK3
#T26PK3, R4

MOV

#256. ,72652

MOV
JSR
MOV
MOV
CMP

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

#SSRINXMISC!BIT3,R2
R1,R2

168%:

104456

001332
072175
012136

NN ARRROENN

JREREAD DATA,IE,ACK, OPP COMMAND
sSET UP R4 WITH PACKET ADDRESS
sSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
sWAIT FOR SSR TO SET

8IT
BNE

170$
(R3) ,#BIT9
1688

R1,#B81T1
170s

JGET TSSR CONTENTS
sSET UP EXPECTED
sARE THEY EQUAL
:BR, IF 0K
sCHECK FOR A READ COMMAND
s8R, IF IT WAS A READ COMMAND
sWAS BIT1 SET
;BR, IF REREAD AND BIT1 SET

INC
ERRHRD

FATFLG
ERRNO, T26RRF ,PKTSSR

:BUMP COUNT
sTSSR INCORRECT AFTER REREAD DATA

BEQ
BIT
BEQ

001000

001403
030127
001006

MOV
MOV

TRAP

CSERHRD

.WORD

PKTSSR

TRAP

CsCLP

.WORD
.WORD

1708 :

104406

CKLOOP

RN R AR

AR AN

sLOOP JF SELECTED
RN AN AN RN

RN RN A ANAN AR AANAN RN ARANANRARRAR N AR AN NANA

730
T26RRF

*READ DATA, ACK,CVC=1 COMMAND
.

SRR RAN AR AR

012737
012737
005037
013737
010465

004737
016501
012702
020102
001406
005237
1046456

140001

000400
071724
003114
000000
016340
000002
000200

002212

071720

MOV

071722

CLR
MOV

071726

NN G RANA NG AN

T NN R RANANNRENANAN AR N R ANAN

#140001, T26PK3

MOV

#256. 10652

MOV
JSR
MOV
MOV

R&, TSDB(RS)
PC.WAITF
TSSR(RS)
,R?
#SSR,R2

INC
ERRHRD

FATFLG
ERRNO,RDERR,PKTSSR

CMP
BEQ

TO6RB42
FREE, T26RB

R1,R2
1808

NN AN NN ANNARN NN RGN

sREAD DATA, ACK,CVC=1 COMMAND
sSET SIZE INTO PACKET
sCLEAR OUT HIGH ADDRESS BITS
sGIVE READ A GOOD BUFFER
s ISSUE READ DATA COMMAND
cWAIT FOR SSR

:PICK UP THE TSSR
sSET _UP EXPECTED
:1S THE TSSR 0K
:BR, IF TSSR OK (GOOD)
;BUMP COUNT

sREAD DATA COMMAND FAILED
TRAP

CSERHRD

TSV7? - HARDWARE TESTS 1-8

TEST

REREADS

070330
070332
070334
8512 070336
070336
8513 070340
8514 070344
8515 070350
8516 070352
8517 070354
8521 070360
070360
070362
070364
070366
8522 070370
070370

MACRO M1113

25-MAY-82 09:19

PAGE

138-4

SEG 0312

001333
005204
012136
104406

0172701
012702
020102
001406
005237

180$:
112550

MOV
MOV
CMp

000001

BEQ
INC
ERRHRD

002212

104456

001334
071756
015564

1908 :

104406

(KLOOP

.WORD
.WORD
.WORD

cLOOP [F SELECTED

TRAP
sFIRST WORD FROM READ BUFFER

oFREE ,R1
#,R2
R1,R2

;IS TAPE POSITION CORRECT
sKEEP GOING POSITION Ok
:BUMP COUNT
sTAPE POSITION

INCORRECT

CKLOOP
e

cscLPl

sSET UP EXPECTED

190$%
FATFLG
ERRNO, T26WNG,EXPREC

AR AAAL AR ARl

RDERR
PKTSSR

XYY

TRAP
.WORD

.WORD
.WORD

CSERHRD
732
T26WNG
EXPREC

TRAP

cscLPt

2222222;

*ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
.

RN RN AN AR A AR NN AN R R A AN IR RN N AR AR AN NN RN RN AR NANR NN N AN AN

070372
070376
070400
070404
070406
070412
070412
070414
070416
070420
8539 070422
070422
8540
8541
8542
8543
8544
8545
8546
8547 070424
8548 070430
8549 070432
8550 070436
8551 070440
8552 070442
8556 070446
070446
070450
070452
070454

8557 070456
070456
8558 070460

004737

011104

016501
010004
005237

000002

103411

001335
073254
012136

1948:

104406

PC,REWIND

sCALL TAPE REWIND COMMAND

MoV
MOV
INC

TSSR(RS)
,R1
RO,R4
FATFLG

JGET TSSR
JPACKET ADDRESS SET UP
;BUMP COUNT
sREWIND NOT ACCEPTED

1948

ERRHRD

104456

RN NN

JSR

B(S

002212

ERRNO,T26RWN,PKTSSR

CKLOOP

:BR,

IF NO PROBLEM

;LOOP IF SELECTED

RN R AR RANAN RN NN AR N

AR NN RN AR AN A NN N AN NN ANNNAANINANARN R RN

NN A NN

TRAP

CSERHRD
733
T26RWN

.WORD
.WORD
.WORD

PKTSSR

TRAP

C$CLPY

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
.

SRR

013701
010102
6
005237

104456
001336
072765
015564
104406

010302

071630

AR AN AR

NN AN AN N TR

MOV
Mov

000002

8IS
CMP
BEQ

002212

INC

ERRHRD

1968:

T26BFR+6,R1
R1,R2
#81T1,R2
R1,R2
1968
FATFLG
ERRNO, T26BOT,EXPREC

CkLOOP

Mov

NN NN NN AR AN AN R ARAAN RN AR AR AN RNRNAIARAANANEANRY

:PICK UP XSTO
:SET UP EXPECTED
:SET BOT BIT IN EXPECTED
:DOES EXP = REC'D
:BR, IF EQUAL (OK)
:BUMP COUNT
:TAPE NOT AT BOT AFTER REWIND

sLOOP IF SELECTED
R3,R2

TRAP
.WORD
.WORD

CSERHRD
734
126807
EXPREC

TRAP

cscLPl

;SAVE R3 FOR A MOMENT

TSV7 < HARDWARE

TEST

REREADS

TESTS 1-8

MACRO M1113

8559

25-MAY-82 09:19

PAGE

138-5

8560

AR A L

8561
8562

:
s ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS

8565
8566
8567 070462
8568 070466
8569 070472

Etttttttflntttttt-tttttfi'tnt-t--t'tnt-tttttttn-.tttttttnttottnttt.n

gggz

;BIT 15 SETS DIRECTION - 0=FORWARD

8570 070474

8571 070476
8572 070502
8573 070504
070504
070504
070506
070514
070516
070522

R R

R R X

X X 2y

1=REVERSE

012703
004737
010203

000001
010556

MOV
JSR
MOV

#1,R3
PC.,SPACE
R2,R3

sSPACE ONE RECORD
sCALL SPACE ROUTINE
sJRESTORE R3

021327
001216

177777

CMP
BNE

(R3) ,.m77777
1508

JEND OF COMMAND BUFFER YET
;MORE COMMANDS KEEP GOING

005723

TST

200$:

8574 070504

8575
8576
8577
8578

SEQ 0313

104403
023727
103402
004737

002212
017272

000017
9998:

(R$)+

ENDSUB

(MP
8L0
JSR

:BUMP COUNTER

$233355555>>> END SUBTEST >>>>>>>>>>>>

L10117:

FATFLG,#15.
999%
PC,CKDROP

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

(SESUB

TSV7 -~ HARDWARE TESTS 1-8
TEST

REREADS

MACRO M1113

8580

25-MAY-82 09:19

PAGE

139

SEQ 0314

8581
ggg%

:
sTEST 6, SUBTEST 14

8584

EVERIFIES THAT REREAD PREVIOUS WITH OPP=Q (SPACE

8590

8585
8586
8587
gggg

8591
8592
8593 070522
070522
070522
8594 070526
8595 070526
8596 070532
gggg 070536

sREVERSE, READ FORWARD) AND REREAD PREVIOUS WITH OPP=1
s (READ REVERSE, SPACE FORWARD) ]SSUED WHEN THE TAPE
sPOSITIONED AT BOT CAUSE FUNCTION REJECT TERMINATION
JWITH THE NONEXECUTABLE FUNCTION (NEF) ERROR BIT SET.

:
;=

104402
005003
004737
004737
004737

BGNSUB
CLR
JSR
JSR
JSR

074510
074602
074644

8599

R3
PC,T26REST
PC,T26RT?2
PC,T26RT3

SOX>555>>>5>> BEGIN SUBTEST >>>>>>>>>>>>
16.14:
TRAP
(s8suB
;sCLEAR TEST COUNTER
;SET COMMAND PACKET
;SET UP OTHER COMMAND PACKET
;SET UP OTHER COMMAND PACKET

.'tttttttt'tttttttttltt'tttttttttttttQtttttfitttttttitttttttttttttttt

8600
ggg}

:
sISSUE CONTROLLER °'SOFT'' INITIALIZE - CARRY BIT CLEAR ]F ERROR

8603
8604
8605 070542
8606 070546
8607 070550
8611 070554
8612 070556
070556
070560
070562
070564
gg}z 070566

:'tttt'ttttttt.ltttt.tttttttttfittttttttttttttfitttttttttttttttt'ttttt

104455
001337
003650
012124
013737

002172

gg}g 070574

012706

071600

004737
103407

005237
010001

016064

JSR
BCS

002212

8617

071620

20$:

PC,SOF INIT
208

;DO INITIALIZE ON CONTROLLER
;BR IF INIT WAS 0K

INC
MOV
ERRDF

FATFLG
RO,R1
ERRNO,SFIERR,SF IMSG

MOV

UNITN,T26DSW

;BUMP COUNT
sCONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT 0K
TRAP
.WORD
.WORD
.WORD
:SET UP UNIT NUMBER

MOV

#T26PACKET R4

s SUBROUTINE NEEDS PACKET ADDRESS

.'.ttttt.'tttt.t'tt.tttttttt'ttt!Qt.l'ttttQtttttttttttttt.ttttttt.tt

8618

gg}g

SWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

8621
8622

:-ttttttt.'tttttt.t.ltt"tttt.ttttttttttttttttt'fi'Itfitttttttl'.tt'.t

8623 070600
8624 070604
8625 070606
8629 070612
8630 070614
070614
070616
070620
070622
8631 070624
070624

CSERDF
735
SFIERR
SFIMSG

004737
103407
005237
010001
104456
001340
005054
012124
104406

010752

JSR
8(sS
INC
MOV
ERRHRD

002212

25%:

ckLOOP

PC,WRTCHR
25$
FATFLG
RO,R1
ERRNO,WRTMSG, SFIMSG

sISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED 0K
:BUMP COUNT
;SAVE CONTENTS OF TSSR
JWRITE CHARACTERISTISC FAILED
TRAP
.WORD
.WORD
.WORD
;LOOP IF SELECTED
TRAP

CSERHRD
736
WRTMSG
SFIMSG
csCLP

—

TSV7? - HARDWARE TESTS 1-8

TEST

REREADS

MACRO M1113

8632
8633
8634
gg%g

25-MAY-82 09:19

F
9
PAGE 139-1

SEQ 0315

:ttttttttttttttt.ttttttt'!tttt.ttttttt.t.ttttt"tttttt".tttt"tt't
:
sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

8637
8638
8639 070626
8640 070632
8641 070636
8642 070642
8643 070644
8644 070646
8648 070652
070652
070654
070656
070660
8649 070662
8650 070662

Etttttttttttttttttttttttttttt'ittttttttt.tttttt"ttttt't.t'tttttttt

004737
016501
012702
103407
010004
005237

011104
000002
000200

26%:

002212

104456
001341
073254
012136

30$:

104406

8651

JSR

MOV
MOV
BCS
MOV
INC
ERRHRD

PC.REWIND
TSSR(RS) ,R1
#SSR,R2
308
RO,R4
FATFLG
ERRNO, T26RWN,PKTSSR

CKLOOP

JCALL TAPE REWIND COMMAND
JGET TSSR
JSET UP EXPECTED TSSR
;BR, IF NO PROBLEM
PACKET ADDRESS SET UP
;BUMP COUNT
REWIND NOT ACCEPTED
TRAP
.WORD
.WORD
.WORD
;LOOP IF SELECTED
TRAP

gggz

JREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

8655
8656
8657 070664
8658 070670
8659 070672
8660 070676
8661 070700
8662 070702
8666 070706
070706
070710
070712
070714

Ettttt'tttt'tttttttttttttttt.ttttt't!tt.tttttt'ttttt'ttQtttttt'tttt

104456
001342
072765
015544

070716
070720
070726
070734
070736

104406
012737
013737
005703
001404

8667 070716

013701
010102
052702
020102
001406
005237

071630

MOV
MOV
BIS
cMpP
8EQ
INC
ERRHRD

000002
002212

408$:
000400
003114

071726
071722

8673

8674

#81T1,R2
R1,R2
408
FATFLG
ERRNO, T26BOT ,EXPREC

CKLOOP
MOV
MOV
ST
BEQ

AN AR

T26BFR+6,R1
R1,R2

JPICK UP XSTO
;SET UP EXPECTED

;SET BOT BIT IN EXPECTED

;DOES EXP = REC'D
;BR, IF EQUAL (0K)
;BUMP COUNT
sTAPE NOT AT BOT AFTER REWIND
TRAP
WORD
.WORD
.WORD

:LOOP IF SELECTED

#256.,126S2
FREE,T26RB
R3
50%

RN AR AN AN NN AN RN AR AR NN N R AN RN

N AANR AR A RNARR AR RN RANNEANONES

JREREAD,CVC=1,ACK COMMAND

8677
8678
8679 070740
ggg? 070746

Etttt.tttttttttttttttttttt'tttttt.tttfittttttttttttttfit.tt'tt'tttttt
012737
000403

161001

071720

MOV
BR

#161001,126PK3
55¢

CSERHRD
738
T26B0T
EXPREC

TRAP
CSCLPY
;SET UP RECORD SIZE IN PACKET
;ADDRESS OF READ BUFFER
sCHECK NUMBER OF TIMES THROUGH HERE
;BR, IF FIRST TIME THROUGH HERE

gg;g

8682
8683
8684

cscLP

:ttfitttttttttttt.ttttttt'tttttttfittttttttttttttttttttt'ttttt'tttttt

8652

8668
8669
8670
gg;}

CSERHRD
737
T26RWN
PKTSSR

sREREAD,CVC=1,ACK COMMAND
JSKIP NEXT COMMAND

;t'tttt'ttt'tttt.t.ttttttttttttQttt'ltl'ttttttlttttt.t.ttttttt.t.tt
H
REREAD,ACK COMMAND

TSV7 -~ HARDWARE TESTS 1-8

TEST

REREADS

MACRO M1113

8685

8697 071004

8698 071006
8702 071012
071012
071014
071016
071020
8703 071022
8704 071022

PAGE

139-2
SEQ 0316

8686

8687
8688 070750
8689 070756
8690 070756
8691 070762
8692 070762
8693 070766
8694 070772
8695 070776
8696 071002

25-MAY-82 09:19

A A R A A

012737

141001

012704

071720

010465
004737
016501
012702
020102

000000
016340
000002
100206

005237

002212

001406

071720

5S0S$:
55%:

65$%:

Y R

T e Y R R R R

R XX X222

MOV

#161001,T126PK3

JREREAD ,ACK COMMAND

MOV

#T26PK3 R4

JSET UP R4 WITH PACKET ADDRESS

MOV
JSR
MOV
MOV
CMP

R4, TSDB(RS)
PC,WAITF
TSSR(RS) ,R1
#SSR!SC.BIT1!BIT2,R2
R1,.R2

s ISSUE COMMAND
JWAIT FOR SSR TO SET
JOET TSSR CONTENTS
JSET UP EXPECTED
sARE THEY EQUAL

INC
ERRHRD

FATFLG
ERRNO, T26WDE ,PKTSSR

;BUMP COUNT
sTSSR INCORRECT AFTER READ DATA
TRAP
WORD
.WORD
.WORD
;LOOP IF SELECTED
TRAP

BEQ

104456
001343
072713
012136

75§

:BR, IF OK

75%:

CKLOOP

8705
8706

(RN
:

R A AR A AN AN

8709
8710
8711 071024
8712 071030
8713 071032
8714 071036
8715 071040
8716 071042
8720 071046
071046
071050
071052
071056
8721 071056
071056
8722 071060

:t'thttttttttttttttttt'tttttttttttttttttfittttttttt'tttttttttttttttt

104406

g;gg

8723 071062
8724 071064
071064
071064
8725 071066
8726 071074
8727 071076
3728 071102

AN AR

NN AT RN R RN RN AR RN NN AR NN AR IR N A NN NNARN NN

A NN

CSERHRD
739
TZ26WDE
PKTSSR
cscLP

RNS

¢READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTOQ)

013701
010102
052702
020102
001406
005237

071630

MOV
MOV
8IS
CMP
8EQ
INC
ERRHRD

002000
002212

104456
001344
072044
015564

1708 :

104406
005103
001261

104403
023727
103402
004737

002212
017272

000017
9998:

T268FR+6,R1
R1,R2
#8IT10,R2
R1,R2
1708
FATFLG
ERRNO, T26NEF ,EXPREC

JGET XSTO STATUS WORD
JSET UP EXPECTED
;SET THE NEF BIT
;ARE THEY EQUAL
;BR, IF EQUAL (GOOD)
;JBUMP COUNT
JNEF SHOULD BE SET

COM
BNE
ENDSUB

R3
26%

TRAP
Cs$CLP
JRESET THE SWITCH
;BR, IF FIRST TIME THROUGH HERE

CMP
8LO
JSR

FATFLG,#15.
999%¢
PC.,CKDROP

CKLOOP

TRAP
.WORD
.WORD
.WORD

CSERHRD
740
TZ26NEF
EXPREC

L10120:

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

C$SESULB

TSV7 = HARDWARE TESTS 1-8

TEST

REREADS

MACRO M1113

8730
8731

25-MAY-82 09:19

PAGE

140

SEQ 0317

;4
.

g;%%

sTEST 6, SUBTEST 15

8734

:VERIFIES THAT REREAD PREVIOUS WITH OPP=1 (SPACE

8735
8736
8737
8738
g;zg

JREVERSE, READ FORWARD) AND REREAD PREVIOUS WITH OPP=1
s (READ REVERSE, SPACE FORWARD) ISSUED WHEN THE TAPE
sPOSITIONED JUST BEFORE THE FIRST RECORD ON TAPE (BUT
sNOT AT BOT) CAUSES TAPE STATUS ALERT TERMINATION WITH
s THE REVERSE INTO BOT (RIB) STATUS BIT SET.

8741

8742
8743

8744 071102
071102
071102

8745
8746
8747
g;zg

071104
071110
071114
071120

H
:104402
005037
004737
004737
004737

071750
074510
074602
074644

BGNSUB

CLR
JSR
JSR
JSR

8750
8751

T26CNU
PC,T26REST
PC,T26RT?
PC,T26RT3

3O3355555355>> BEGIN SUBTEST >>>>>>>>>>>>
T6.15:
TRAP
c$BSUB

sCLEAR OUT COUNTER
JSET COMMAND PACKET
sSET UP OTHER COMMAND PACKET
JSET UP OTHER COMMAND PACKET

.'ttttttttttttttttttttttt'tt'ttttlttttttttttttttttttt.tttttttt'ttt.t
:

g;g%

;ISSUE CONTROLLER °‘'SOFT'* INITIALIZE - CARRY BIT CLEAR IF ERROR

8754
8755
8756 071124
8757 071130
8758 071132
8762 071136
8763 071140
071140
071142
071144
0711466
g;gg 071150

:-ntt-ttttttttttttt.ttttott'ttt-t'ttttttttnttn.tttttttttttttt'.tttat

104455
001345
003650
012124
013737

002172

g;gg 071156

012704

071600

004737
103407
005237
010001

016064
002212

071620

20%:

JSR
8CS
INC
MOV
ERRDF

PC,SOFINIT
208
FATFLG
RO,R1
ERRNO,SFIERR,SF IMSG

MOV

UNITN,T26DSW

;D0 INITIALIZE ON CONTROLLER
;BR IF INIT WAS 0K
;BUMP COUNT
JCONTENTS OF TSSR REGISTER
JFATAL ERROR TSSR WAS NOT 0K
TRAP
.WORD
.WORD
.WORD
JSET UP UNIT NUMBER

MOV

#T26PACKET R4

s SUBROUTINE NEEDS PACKET ADDRESS

8768

NN AR AR R AN N RN R R R AR A AR RN AN R AN AR AN RN RN AN AN NA NI AR AN

g;??

JWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)

8772

:'.ti".'tt.tttttttttttt'ttttttttttttttttttttttttttlt'tttttttttt'ttt

87459

8773
8774 071162
8775 071166
8776 071170
8780 071174
8781 071176
0721176
071200
071202
071204
8782 071206

004737
103407
005237
010001
104456
001346
005054
012124

010752

JSR
B(CS
INC
MOV
ERRHRD

002212

25$:

c(kLoop

PC,WRTCHR
25¢
FATFLG
RO,R1
ERRNO,WRTMSG,SFIMSG

CSERDF
741
SFIERR
SFIMSG

AN AR ARE NS

JISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED Ok
;BUMP COUNT
;SAVE CONTENTS OF TSSR
JWRITE CHARACTERISTISC FAILED
TRAP
.WORD
WORD
.WORD
;LOOP IF SELECTED

CSERHRD
742
WRTMSG
SFIMSG

TSV7 = HARDWARE TESTS 1-8

TEST

REREADS

071206
8783
8784
8785
8786
8787
8788
8789
8790 071210
8791 071214
8792 071220
8793 071224
8794 071226
8795 071230
8799 071234
071234
071236
071240

071242
8800 071244
071244
8801
8802
8803
8804
8805

MACRO M1113

25-MAY-82 09:19

PAGE 140-1

SEQ 0318

104406

TRAP
AL AAAAALA

AR A

2T S

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
.

AL A

004737
016501
012702
103407
010004
005237

011104
000002
000200

26$:

JSR

104456

30$:

104406

Al A

PC,REWIND

TSSR(RS) ,R1
#SSR,R2

JGET TSSR
sSET UP EXPECTED TSSR

MOV
INC
ERRHRD

RO, R4
FATFLG
ERRNO, T26RWN,PKTSSR

sPACKET ADDRESS StT UP
;BUMP COUNT
sREWIND NOT ACCEPTED

308

(kLoopP

AN AR RN AN AN RN AR

sCALL TAPE REWIND COMMAND

MOV
MOV

8(S

002212

001347
073254
012136

AL AR LA

:BR,

IF NO PRuu.’M

TRAP
A

sLOOP IF SELECTED
AN RN R AN AN AR

ARNAR

CSERHRD
743
T26RWN

.WORD
.WORD
.WORD

PKTSSR

TRAP

CS$CLP

AN R RN AANRANRARNANRANENRANRARANRNIAO
NS

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
.

AR NN AR AN AN AN N AN AN AN RN IR AN NARARN

8808 071246
8809 071252
8810 071254
8811 071260
8812 071262
8813 071264
8817 071270
071270
071272
071274
071276
8818 071300
071300
8819
8820
8821

CS$CLPI

013701
010102
052702
020102
001406
005237

071630

MOov

000002

BIS
CMP

MOV

8EQ
INC
ERRHRD

002212

104456
001350
072765
015564

40$:

104406

TZ625R*6.R1

R1,

#B8IT1,R2
R1,R2

40$
FATFLG
ERRNO, T26BOT,EXPREC

ANNARNRNARARN NN N

AN RO

sPICK UP XSTO

sSET UP EXPECTED

sSET BOT BIT IN EXPECTED

;DOES EXP = REC'D
sBR, IF EQUAL (0OK)

sBUMP COUNT
:TAPE NOT AT BOT AFTER REWIND

(kLooP

R AR AN R AR A AN RN AR

NRED

A AN AR A RN RA RN R AN R A AN N AA NN A AN

N RN

CSERHRD

TRAP
.WORD
-WORD
.WORD

744
126807
EXPREC

TRAP

CSCLPY

NANRARNRNNANESD

:ISSUE_SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS
:BIT 15 SETS DIRECTION - 0=FORWARD

1=REVERSE

SRR

8827
8828
8829
8830
8831
8832
8836

071302
071306
071312
071314
071320
071322
071326
071326

012703
004737
103411
016501
010004

005237
104456

AR AN AN

AN AN AT NN AR AP AR AARARN

000001
010556

MOV
JSR

#000001,R3
PC,SPACE

000002

MOV
MOV
INC
ERRHRD

TSSR(RS) ,R1
RO,R4
FATFLG
ERRNO, T26WDE ,PKTSSR

002212

8CS

75$

R NN RN RN ARN

AR NN ERARRRNANNN O

sSET UP SPACE FORWARD 1 RECORD
s ISSUE SPACE COMMAND
:BR, IF 0K

sGET STATUS DATA
sGET PACKET ADDRESS
;BUMP COUNT
:TSSR

INCORRECT AFTER READ DATA
TRAP
CSERHRD

TSV7 - HARDWARE TESTS 1-8

TEST

REREADS

071330
071332
071334
8837 071336
8838 071336

MACRO M1113

0G1351
072713
012136

25-MAY-82 09:19

75%:

104406

PAGE

140-2

SEQ 0319

(KLOOP

;LOOP IF SELECTED

.WORD
.WORD
.WORD

745
T26WDE
PKTSSR

TRAP

cscLePt

8839

Qttttttttt.ttttfiit'ttt'tttt'tttt.Qtttt'tttQttttti'tttttttttt.'t.tt

8840
8841

ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS

8844

.t.tttt'ttttt.ttt.lttt't't'tt.tQtttt.tttttlttt'ttttttttttttttttt.t.

ggz%

BIT 15 SETS DIRECTION = 0=FORWARD

8845
8846 071340
8847 071346

8848 071350
8849
8850
8851
8855

071352
071356
071360
071364
071364

071366
071370
071372
8856 071374
071376
8857 071376
8858 0714064
gggg 071410

012703
004737

100001
010556

016501
010004
005237

000002

103411

104456
001352
072713
012136
104406
013737
005737
001404

175%:
003114
071750

#100001,R3
PC,SPACE

+SET SPACE REVERSE 1 RECORD
s ISSUE COMMAND

MOV
MOV
INC
ERRHRD

TSSR(RS) ,R1
RO,R4
FATFLG
ERRNO, T26WDE ,PKTSSR

sGET TSSR CONTENTS
JSET UP EXPECTED (PACKET CONTENTS)
;BUMP COUNT
sTSSR INCORRECT AFTER READ DATA
TRAP
CSERHRD

8861

1758

:GO ON IF ALL IS WELL

CKLOOP

071722

MOV
TST
BEQ
SRR

8862
gggz
8865
8866
8867 071412
gggg 071420

MOV
JSR

BCS

002212

1=REVERSE

WORD
.WORD
.WORD

746
T26WDE
PKTSSR

TRAP
;ADDRESS OF BUFFER
sCHECK FOR TIMES THROUGH HERE
:BR, IF FIRST TIME THROUGH

cscLP

;LOOP IF SELECTED

FREE,T26RB
T26CNU
176$

AR NN AR AN

AR N

RN AN N RN R R AN AR

:
sREREAD (PREVIOUS),IE,ACK,OPP=1 CMD.

AN AR AR NN AN

R AN NN NANNTER N

Etttttt.tttttttttttttttt'tttttttttttttttttttltttttttttttttttttttttt
012737
000403

161001

071720

8870

MOV
BR
A

8871

#161001,T26PK3
178$
Rt

sREREAD (PREVIOUS),IE, ACK,OPP=1
sSKIP NEXT COMMAND
I

gg;%

sREREAD ,ACK,0PP=1 COMMAND

8874
8875
8876 0716422
8877 071430
8878 071430

Etttttttttt'ttttttttttttt'tttttttttfitttttttt.t'ttttittttttttttttttt

8879 0714346

8880 071440
8881 071444
8882 071450

012737

141001

0127046

071720

010465

004737
016501
012702

8883 071454

020102

8885 071460
8889 071464
071464

005237

8884 071456

001406
104456

000000

016340
000002
100204

002212

071720

176%:
178$%:

MOV

#141001,T26PK3

MOV

#T26PK3,R4

JSR
MOV
MOV

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

MOV

JREREAD ,ACK,0PP=1

(CMD.

(COMMAND

SSET UP R4 WITH PACKET ADDRESS

R4 ,TSDB(RS)

;s ISSUE COMMAND

(MP

R1,R2

sARE THEY EQUAL

INC
ERRHRD

FATFLG
ERRNO, T26WDE ,PKTSSR

;BUMP COUNT
sTSSR INCORRECT AFTER READ DATA
TRAP
CSERHRD

BEQ

1808

JWAIT FOR SSR TO SET
JGET TSSR CONTENTS
JSET UP EXPECTED

:BR, IF 0K

TSV7 = HARDWARE TESTS 1-8

TEST

REREADS

25-M’v~82 09:19

K 9
PAGE 140-3
SEQ 0320

071466
071470
071472
8890 071474
071474
8891 071476
8892 071502
8893 071504
8894 071510
8895 071512
8896 071514
8900 071520

071526
8901 071530
071530
8902 071532
8903 071536
8904 071540
071540
071540
8905 071542
8906 071550
8907 071552
8908 071556
8909
8910
8911
8912 071556
8913 071562
8914 071564
8915 071570
8916 071570
071570
071572

MACRO M1113

1808:

071636

MOV
MOV
81S
cMP

000001

BEQ
INC
ERRHRD

002212

072044
015564
104406

005137
001224
104403
023727
103402
004737

004737
103002
000137
104432

003102

190$:

071750

002212
017272

000017
999%:

163$:

sLOOP IF SELECTED
T26BFR+14
,R1

R1,R2

JGET XST3 STATUS WORD

PKTSSR

TRAP

CS$CLPT

TRAP
.WORD
.WORD
.WORD

CSERHRD
748
T26NEF
EXPREC

TRAP

CSCLPT

ERRNO, T26NEF ,EXPREC

sSET UP EXPECTED
sSET THE NEF BIT
sARE THEY EQUAL
;BR, IF EQUAL (GOOD)
sBUMP COUNT
sNEF SHOULD BE SET

T26(NU

sSET SWITCH THE OTHER WAY

#81T0,R2
R1,R2
190$
FATFLG

(KLOOP

COM
BNE
ENDSUB

016546

055414

ckLoop

26$

IF FIRST TIME THROUGH

$O23333353553>> END

SUBTEST

L10121:

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

TRAP

CMP
BLO
JSR

FATFLG,#15.
999%

JSR
8C(
JMP

PC,TSTLOOP

1638

;DO WE NEED TO ITERATE TEST
;BR, iF NO LOOP REQUIRED

EXIT

TST

sALL DONE THIS TEST

PC,CKDROP

T26L00P

s1S ERROR COUNT AT 25
sBR, IF LESS THAN 25
cTRY

TO DROP

747
T26WDE

.WORD
.WORD
.WORD

THE UNIT

JEXECUTE AGAIN

TRAP
.WORD

CSESUB

TSV? = HARDWARE TESTS 1-8

TEST

REREADS

MACRO M1113

25-MAY-82 09:19

PAGE 141

SEQ 0321

;LOCAL STORAGE FOR THIS TEST
071600
014004
071610
000000
000012

071622
000000
000024
000000
000000

.=<. +10>8177770

T26PACKET:
.WORD

T26DATA:

T26DSW:
T26BFR:

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

s COMMAND PACKET FOR TEST
JWRITE CHARACTERISTICS COMMAND, WITH Cv(C=1, ACK
+ADDRESS OF CHARACTERISTICS BLOCK
sSTARTING VALUE OF BLOCK SIZE

T268FR

sCHARACTERISTICS DATA BLOCK
sADDRESS OF MESSAGE BUFFER

20.

sLENGTH OF MESSAGE BUFFER

sSELECT DRIVE 0
sMESSAGE BUFFER

*WRITE SUBSYSTEM MEMORY COMMAND PACKET
071710
100006
071730
000000
000006
140005

T26PK2:

T26PK3:

T26RB:

003114
000000
000000

T26S2:

010
200
000000
000000

T268F2:
T26BS0:
1268S1:
126S2:
T26S3:

T26WB:

8958

8959
8960
8961 071730
8962 071730
8963 071731
8964 071732
8965 071734
8966
8967
8968
8969
8970
8971 071736
8972 071740
8973 071742
8974 071744
8975
8976
8977 071746
8978 071750
8979
8980 071752
8981

.WORD
-WORD
.WORD

14004
T26DATA
0
10.
NOONO

8924 071600
8925 071600
8926 071602
8927 071604
8928 071606
8929 071610
8930 071610
8931 071612
8932 071614
8933 071616
8934 071620
8935 071622
8936
8937
8938
8940
8942 071710
8943 071710
8944 071712
8945 071714
8946 071716
8947
8951 071720
8952 071720
8953 071722
8954 071722
8955 071724
8956 071726
8957

;T*

.=<.+1058177770
.WORD
.WORD
.WORD
.WORD

526BF2

100006

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

:SIZE OF DATA PACKET

.WORD

140005

JREREAD COMMAND, Cv(C=1 AND ACK

.WORD
.WORD
.WORD
.EVEN

FREE

sADDRESS OF WRITE BUFFER

.BYTE
.BYTE
.WORD
WORD

¢SIZE OF BUFFER (EXTENT)

<BSELO AREA
sBSEL1 AREA

sSEL 2 AREA
:DATA AREA

EVEN

MOTION PACKET COMMAND VALUES

Tc bRN:

.WORD

.WORD
.WORD

cREAD DATA
sREREAD NEXT OPP=0
sREREAD NEXT OPP=1
<END OF DATA

000000
000000

T26CNT: .WORD
T26CNU:

.WORD

sTAPE RECORD COUNTER STORAGE AREA
s TAPE RECORD COUNTER STORAGE AREA

000000

T26RSZ:

.WORD

sRECORD STORAGE SIZE

AREA

TSV7 - HARDWARE TESTS 1-8

TEST

REREADS

ggg% 071754

MACRO M1113

25-MAY-82 09:19

PAGE 141-1
SEQ 0322

060000

T26DLY:

.WORD

sDELAY COUNTER AREA

TSV7 - HARDWARE TESTS 1-8

TEST

MACRO M1113

REREADS

8985
8986
8987
8988

25-MAY-82 09:19

SEQ 0323

A
sLOCAL TEXT MESSAGES FOR TEST
H

8990

8991 071756
8992 072044
8993 072126
8994 072175
8995 072272
8996 072367
8997 072451
8998 072521
8999 072576
9000 072657
9001 072713
9002 072765
9003 073032
9004 073120
9005 073177
9006 073254
9007 073323
9008 073376
9009 073445

124
122
124
122
122
120
122
124
1
122
124
124
104
122
124
122
122
124
104

141
105
123
105
105
134
1M
123
154
105
123
141
141
105
123
145
101
123
162

160
122
123
122
122
123
102
123
154
122
123
160
166
122
123
167
115
123
151

T26WNG:
T26NEF:
T26RDF:
T26RRF:
T26RRG:
T126SC:
T26LOR:
T26WDF:
T26L0Q:
T26SSR:
T26WDE:
T26B0T:
T26DTA:
T26EQT:
T26TM:
T26RWN:
T26RNC:
T26AM3:
T260FL:

9011
9012
9013
9014
9015
9016
9017
9018
9019
9020

124
103
124
127
122
122
122
122
104
122

123
126
123
122
145
145
145
145
141
145

123
103
102
111
141
141
163
1641
164
162

T26WDC: .ASCIZ
T26V(K: .ASCIZ
T26BA:
.ASCIZ
T26WSS: .ASCIZ
T26LON: .ASCIZ
T26LOP: .ASCIZ
T26PBP: .ASCIZ
T26TRL: .ASCIZ
T26NEQ: .ASCIZ
TST26ID:

9010 073520

9021

PAGE 142

073610
073663
073736
074011
074100
074162
074244
074332
074420
074477

9024
9025
9026
9027
9028
9029 074510
9030 074510
9031 074514
9032 074520
9033 074524

9034 074530
9035 074532
9036 074536
9037 074542
9038 074544
9039 074550
9040 074552
9041 074556

124

123

T26WDD:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCI2
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.EVEN

‘'Tape Position Incorrect After REREAD Previous (OPP=1)’
'REREAD PREVIOUS, At BOT, Failed To Set NEF (XST0)'
'TSSR Incorrect After READ DATA Command'
)
‘'REREAD Previous (Space Reverse, Read Forward) Command Failed’
°'REREAD Previous (Read Reverse, Space Forward) Command failed’
‘POSITION (Space Command) Failed, TSSR Not Correct'’
'RIB NOT SET AFTER READ REVERSE INTO Bor’
'TSSR Not Correct After Illegal Mode Bits Set’
'Illegal Mode Bits, Failed To Set ILC Bit In XSTO'
‘'REREAD COMMAND Not Accepted’
°'TSSR Not Correct After WRITE DATA Command’
“‘Tape Not At BOT After REWIND Command’
‘Data Written To Tape Not Equal To Data Read From Tape'
°'REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT'®
°'TSSR Not Correct After REREAD COMMAND Reject’
‘Rewind (POSITION) Command Not Accepted'’
'RAM Error, Correct Data Pattern Not In Ram’
°TSSR Init. Failed After REREAD CCMMAND'
‘Drive 7 Select Failed To Set ‘OFL'’ In TSSR’
)
°'TSSR Not Correct After REREAD DATA Command,

SW8 Bit Set’

°TSSR Not Correct After REREAD DATA Command'
°CVC Set, Didn'’'t Reset V(K In Message Buffer’
'TSBA Not Correct After REREAD DATA (ommand’
‘'WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)'
‘'Reading Long Record Failed To Set RLL Bit In XSTO'
‘'Reading Long Record fFailed To Set RLS Bit In XSTO'
‘'Residual Byte Count Incorrect After Short Record Read'
'Readin? Long Record
Failed To Give Tape Status Alert’
‘'Data REREAD From Tape Not Correct, After SWB=1'
.ASCIZ
'Rereads’

JROUTINE TO RESTORE COMMAND PACKET TO START=-UP (DEFAULT) VALUES
JWRITE SUBSYSTEM MEMORY COMMAND
:
:=

T26REST:
012 701
012 721
721

071600
140004
071610

012721
012721
005021
012721
005021
012711
012702

000012
071622

003021

000024
000000
000030

SAVREG

MoV
MOV
MoV

CLR
MoV
MOV
CLR
MOV
CLR
MOV
MoV

#T26PACKET ,R1
#140004,(R1)+
#T26DATA, (R1)+

(R1)+
#10.,(R1)+
#T26BFR,(R1)+
(R1)+
#20.,(R1)+
(R1)+
#0, (R1)
#24. ,R2

;SAVE THE REGISTERS

sSTART OF THE PACKET
sWRITE SUBSYSTEM MEM. WITH ACK, (V(=1
sADDRESS CF CHARAISTICS DATA BLOCK

sEXTENDED ADDRESS
:SIZE OF DATA BLOCK IN BYTES
sADDRESS OF MESSAGE BUFFER
sLENGTH OF MESSAGE BUFFER

sSELECT DRIVE ZERO (0)
sNUMBER OF LOCATIONS TO BE CLEARED

TSV? = H/xDWARE TESTS 1-8

TEST

REREADS

9042 074562
9043 074570
9044 074572
9045 074576
9046 074600
9047
9048
9049 074602
9050 074602
9051 074606
9052 074612
9053 074616
9054 074622
9055 074624
9056 074630
9057 074632
9058 074636
9059 074640
9060 074642
9061 074644
9062 074644
9063 074650
9064 074654
9065 074660
9066 074664
9067 074666
9068 074672
9069 074674
074674

074674

012762
005742
020227
001371
000207

177777

MACRO M1113

071622

64$:

000000

T26RT2:

012701
012721
012721
005021
012721
005021
012701
005021
005011
000207
012701
012721
012721
005021
012711
000207

1064401

071710
140006
071730
000006

071730

T26RT3:

071720
000000
000000
000000

B 10
PAGE 142-1

25-MAY-8?2 09:19

MoV
TS7
CMP
BNE
RTS

SAVREG
MoV
Mov
MoV
CLR
MoV
CLR
Mov
CLR
CLR
RTS
SAVREG
MoV
MoV
MoV
CLR
Mov
RTS
ENDTST

SEQ 0324

#77777,126BFR(R2)
=(R2)
R2,40

sNEXT LOCATION
*CHECK FOR END OF LOOP

*RETURN

#T26PK2,R1

;SAVE THE REGISTERS
‘START OF THE PACKET

64$

#140006. (R1) +
#T26BF2. (R1)+
(R1)+
fgis(n1>+
+

7£§99r2.n1
+

(R1)

#T26PK3,R1
#0, (R1)+
#0.(R1)+
(Ri)+
#0, (R1)
PC

sALL ONES TO MESSAGE BUFFER

SKEEP GOING UNTIL DONE

‘WRITE SUBSYSTEM MEM. WITH ACK,CVC=1,
*ADDRESS OF DATA BLOCK
*EXTENDED ADDRESS
:SIZE OF DATA BLOCK IN BYTES

:POINT TO DATA SEL AREA
;RETURN

:SAVE THE REGISTERS

*START OF THE PACKET
‘WRITE SUBSYSTEM MEM. WITH ACK,
:ADDRESS OF DATA BLOCK
SEXTENDED ADDRESS
:SIZE OF DATA BLOCK IN BYTES
:RETURN

L10102:

TRAP

CSETST

TSV7 = HARDWARE TESTS 1-8
TEST
7: WRITE DATA RETRY

MACRO M1113

9071
9072
9073
9074
9075
9076
9077
9078
9079

25-MAY-82 09:19
TEST

.SBTTL

c 10
PAGE 143
7:

SEQ 0325

WRITE DATA RETRY

MR4

:THIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY
s COMMAND (SPACE REVERSE, ERASE, WRITE DATA)
[4

074676
074676
074676
074704
074710
074714
074720
074724
074732

:THE TEST CONSISTS OF THE FOLLOWING S SUBTESTS

BGNTST

012737
005037
004737
012700
004737
012737
005037

006446
003124
017364
104513
016600
000005
101556

002170

MOV

002206

#EPRT2 ,EPRTSW

KTENABLE
PC.KTOFF
#TST271D.RO
PC,TSTSETUP

:TURN OFF KT11
STURN KT11 BACK OFF IF THERE
SASCII MESSAGE TO IDENTIFY TEST
:DO INITIAL TEST SETUP

CLR

T27CNT

:CLEAR TAPE RECORD COUNTER

MOV
"4

; SECONDARY ERROR MESSAGE

CLR
JSR
MOV
JSR

#5° LOOPCNT

:PERFORM 5 ITERATIONS

*TEST 7, SUBTEST 1
SVERIFIES THAT A WRITE DATA RETRY COMMAND ISSUED WHILE
STHE TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT
STERMINATiON,

9104
9105
9106
9107
9108 074736
9109 074736

T27L00P:
104402

004737
004737
004737
012737
005037

b and ol cnd wud

VOOV
O OVOOVOOVOOO

NN-._._.—.—I—A—.—A—I—A
Py =2V.1. . ENT. XU ¥ XV NP Y

074736

WITH THE NON-EXECUTABLE

*ERROR BIT SET.

BGNSUB

JSR
JSR
JSR

101562

MOV
CLR

FUNCTION (NEF)

JOO2I355555>> 8EG;N1SUBTEST b33
PP PPN
17.1:
TRAP
($BSUB

PC,T27REST
PC.T27RT2
PC TI7RT3

:SET COMMAND PACKET
:SET UP OTHER COMMAND PACKET
SSET UP OTHER COMMAND PACKET

T27CNT

:CLEAR COUNTER

#65000.,7270LY

:SET UP DELAY COUNTER

:."t.tt.tttttt.tfifi.tit"ttttitt.tttQtt"'.iQ".ttti.ittt.'!.'t't"

el e

;I1SSUE CONTROLLER *'SOFT** INITIALIZE - CARRY BIT CLEAR IF ERROR

—

Et.t.t't'.tttttt't't""""tttttt.Qt.tt.'tttttl'.."tfifii'tti..tttt

9122 074766
9123 074772
9124 074774
074774
075000
075002

075006

004737
103426

016064

012727
000000
013727
000000

000250

002116

108:

JSR
B(5
DELAY

PC,SOFINIT
20$
250

;D0 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
:DELAY ABOUT .25 SEC

MOV
.WORD

8250, (PC)+
0

.WORD

MOV

LSDLY, (PC)+

TSV? -~ HARDWARE TESTS 1-8
TEST
7: WRITE DATA RETRY

075010
075014
075016
075022
9125 075024
9126 075030
9127 075032
9131 075036
9132 075040
075040
075042
075044
075046
9133 075050
9134 075056
9135
9136
9137

9138
9139
9140
9141
9142
9143
9144
9148
9149

D 10

PAG E 1431

25-MAY-82 09:19

SEQ 0326

177772
177756
101562

DEC
BNE
INC

002212

104455
001275
003650
012124
013737
012704

DEC

=6(PC)

BNE

-22(PC)
.=20

BNE
DEC

127DLY
1 0$
FATFLG

MOV
ERRDF

101430

208:

MOV

MAALAAAA

sBUMP COUNTER
s8R, IF COUNTER NOT DONE

RO,R1
ERRNO,SFIERR,SFIMSG

UNITN, T27DSW

Mov

#T27PACKET R4

;BUMP COUNT
sCONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NO;RE:

CSERDF
701
SFIERR
SFIMSG

.WORD
.WORD
.WORD

sSET UP DRIVE NUMBER

sSUBROUTINE NEEDS PACKET ADDRESS

AR a2
I
I

WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
.

RN AR N

075062
075066
075070
075074
075076
075076
075100
675102
075104
9150 075106
075106
9151
9152
$153

9154
9155
9156
9157
9158 075110
9159 075114
9160 075116

9161 075120
9165 075124
075124
075126
075130
075132
9166 075134

9167
9168
9169
9170
9171
9172

005367
001375
005367
001367
005337
001356
005237
010001

MACRO M1113

075134

004737

010752

005237
010001

002212

103407

JSR

104406

253

INC
MOV
ERRHRD

25$%:

N RN R R AN RN ANNARANARANNRANRARANNRAIAANNNRNANRNNRS

PC,WRTCHR

8(CS

104456
001276

005054
012124

AN AR AR R AN AR R AN

FATFLG
RO,R1
ERRNO,WRTMSG,SFIMSG

(kLooP

AN AR

AR RN

s ISSUE WRITE CHARACTERISTICS

sBR, IF COMMAND ISSUED 0K

;8UMP COUNT
:SAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC F?ékgb

;LOOP ]F SELECTED

AN AN

RN NI A AN AR RN RN IR RN AN AT ARAANNA NN RN

AN RN EN

CSERHRD
702

.WORD
.WORD
.WORD

WRTMSG

TRAP

CS$CLP

SFIMSG

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
]

MLAAAA

004737
103407
010004
005237

SRRl

011104

001277
102735
012136
104406

308:

Y22

22222

sCALL TAPE REWIND COMMAND

MOV

RO,Ré

sSET UP REWIND PACKET ADDRESS

308

FATFLG
ERRNO,T27RWN,PKTSSR

CkLooP

PC,REWIND

INC
ERRHRD

106456

JSR

BCS

002212

AR RN

:BR,

IF NO PROBLEM

;BUMP COUNT

sREWIND NOT ACCEPTED

;LOOP IF SELECTED
AR NN

NN RN A R AN RN AN RN AN R A NN

AN AR AR RN IR AN

NN R

TRAP

PKTSSR

TRAP

CscLP

ANRRNS

:READ MESCAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
.

R AN

RN RA NN

AR RN

RN A N RN AR NN AN N R AN RN A NN AN AR I RRARRNEN AR

CSERHRD

703
’
T27RWN

-WORD
-WORD
.WORD

ARONRSY

—

TSV7 ~ HARDWARE TESTS 1-8

TEST

7: WRITE DATA RETRY

9173
9174 075136
9175 075142
9176 075144
9177 075150
9178 075152
9179 075154
9183 075160

075160
075162
075164
075166
9184 075170
075170
9185 075172
9186 075200

9187
9188
9189
9190
9191

9194
9195
9196
9197
9198
9199

9200
9201
9202
9206

013701

MACRO M1113

101440

MOV
MOV
8IS
CMP
BEQ
INC

000002
005237

002212

ERRHRD

1046456
001300
102431
015564
104406

012737
013737

25-MAY-82 09:19

E 10

PAGE 143-2

T278FR+6,R1
R1,R2
#8iT1,R2
R1,R2
40$
FATFLG

ERRNO, T27BOT,EXPREC

SEQ 0327
;PICK UP XSTO
*SET UP EXPECTED
SSET BOT BIT IN EXPECTED
:DOES EXP = REC'D
*BR, IF EQUAL (OK)
*BUMP COUNT

:TAPE NOT AT BOT AFTER REWIND
TRAP

CSERHRD

.WORD

EXPREC

TRAP

CSCLP1

.WORD
.WORD

408:

000400

003114

101536
101532

CKLOOP

MOV
MOV

;LOOP IF SELECTED

#256.,12751
FREE.T27WB

;SET UP RECORD SIZE
*ADDRESS OF WRITE BUFFER

704
T2780T

:tttfitt'ttt'tfittttttt't'i'ttttt'ttfittttQttttt.'ttttt'.fi.ttttttt..'t

:WRITE DATA RETRY,ACK,CVC=1

COMMAND

;ttttt.t'ttt'ti'itfittttttt"t".ttfittttttl't.tt'tt..'t.tt"tt."".
075206
075214
075220
075224
075230
075234

075240
075242
075244
075250
075250
075252
075254
075256
9207 075260
075260

012737
012704
010465
004737
016501
012702

020102

001406

005237

141005
101530

101530

MOV

#1461005,T27PK3

MOV
JSR
MOV
MOV

R4, TSDB(RS)
PC.WAITF
TSSR(RS) ,R1
#SSR!SC!BIT1'BIT2.R2

MOV

000000
016340
000002

100206

CMP
BEQ

002212

INC
ERRHRD

10445¢€

#T27PK3 R4

R1,R2
75$

FATFLG
ERRNO, T27WDE ,PKTSSR

;WRITE DATA RETRY,ACK,CVC=1 COMMAND

SSET UP R4 WITH PACKET ADDRESS

s ISSUE COMMAND
SWAIT FOR SSR TO SET
:GET TSSR CONTENTS
:SET UP EXPECTED

*ARE THEY EQUAL
‘BR, IF OK

‘BUMP COUNT
STSSR INCORRECT AFTER READ DATA

00130

TRAP

CSERHRD

-WORD

PKTSSR

TRAP

CSCLP1

.WORD
.WORD

102342

012136

758:

104406

CKLOOP

;LOOP IF SELECTED

705
T27wDE

:ttttttt'tttttttttt.'t't"..Qfi'it.tlttttfiitttttttt't'tt'..tttt't.t.

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

;ttttttt..ttt'..ttttttit"ttt'ittt'ttfittt.ttttit."tt.lttt'tttt.t't
9215 075262
9216 075266
9217 075270
9218 075274
9219 075276

9220 075300
9224 075304
075304
075306
075310
075312

013701
010102
052702
020102
001406
005237
104456

001302
104101

015564

101440

002000

002212

MOV
MOV
8IS
CMP

T27BFR+6.R1
R1,R2
#81T10,R2
R1,R2

;GET
SSET
SSET
:ARE

INC
ERRHRD

FATFLG
ERRNO, T27NEF ,EXPREC

*BUMP COUNT
INEF SHOULD BE SET

BEQ

170$

XSTO STATUS WORD
UP EXPECTED
THE NEF BIT
THEY EQUAL

*BR, IF EQUAL (GOOD)

TRAP

CSERHRD

.WORD

EXPREC

.WORD
-WORD

706
T27NEF

TSV? ~ HARDWARE TESTS 1-8
TEST
7: WRITE DATA RETRY

9225 075314

075314
9226 075316
075316
075316

9227
9228
9229
9230

075320
075326
075330
075334

MACRO M1113

F 10
PAGE 143-3
SEQ 0328

1708:

104406

104403
023727
103402
004737

25-MAY-82 09:19
(kLOOP

ENDSUB
002212

017272

000017

cMP

BLO
999$:

JSR

L10123:
FATFLG,#15.

999$

PC.CKDROP

TRAP

CSCLPI

TRAP

CS$ESUB

;1S ERROR COUNT AT 2§
JBR, IF LESS THAN 25
JTRY

TO DROP

THE UNIT

TSV7 ~ HARDWARE TESTS 1-8
TEST
7: WRITE DATA RETRY

MACRO M1113

610

25-MAY-82 09:19

PAGE 144

SEQ 0329
:0

STEST 7, SUBTEST 2
*VERIFIES THAT WRITE DATA RETRY COMMAND ISSUED WHILE

STHE

TAPE

IS POSITIONED BEFORE

STAPE (BUT NOT AT BOT) RESULTS
STERMINATION, WITH THE REVERSE

*ERROR BIT SET.

9245 075334

075334
075334
9246 075336
9247 075342
9248 075346
9249

104402
004737
004737

004737

THE FIRST RECORD ON

IN TAPE STATUS ALERT
INTO BOT (RIB) STATUS

BGNSUB

104534
104626
1046670

IODIOODO505>> SEG;NZSUBTEST DEDIIIIIIODD>
17.2:

JSR
JSR
JSR

PC,T27REST
PC.T27RT2
PC.T27RT3

AR AR AN AR AN AN RN AN A AN

TRAP

($BSUB

:SET COMMAND PACKET
*SET UP OTHER COMMAND PACKET
*SET UP OTHER COMMAND PACKET

N TN AR IR AN AN R R AR AR AN NN R

AN T NN RNNAN NN RN RN ENER

:ISSUE CONTROLLER 'SOFT'* INITIALIZE = CARRY BIT CLEAR IF ERROR
L4

AN AR AR

9256 075352
9257 075356

9258 075360
9262 075364
9263 075366
075366
075370
075372
075374
9264 075376

9265 075404

004737
103407
005237
010001
104455
001303
003650
012124
013737
012704

A A AN E AR AN AN NN TR AR TN ARAARAN RN NN RN A RANN AR AR

016064

JSR
8(S
INC

002212

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

MOV
ERRDF

NRANRNNRARE N AANES

;D0 INITIALIZE ON CONTROLLER
;BR IF INIT WAS OK
.BUMP COUNT
sCONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT 0K
TRAP

CSERDF

707

.WORD

002172

101410

101430

20$:

MOV

UNITN,T27DSW

Mov

FAAALAS

sSET UP DRIVE NUMBER

#T27PACKET R4

AR AR

SRl

.WORD
.WORD

SFIERR
SFIMSG

sSUBROUTINE NEEDS PACKET ADDRESS

TSI

*WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
3

FAAAAARAA

9273
9274
9275
9279
9280

075410
075414
075416
075422
075424
075424
075426

075430
075432
9281 075434
075434

004737
103407
005237
010001

010752

104406

AR d

JSR

002212

PC,WRTCHR

8Cs
INC
MOV

ERRHRD

106456

001304
005054
012124

R 22221

sISSUE WRITE CHARACTERISTICS

25%
FATFLG
RO,R1

ERRNO,WRTMSG,SFIMSG

;BR, IF COMMAND [SSUED OK
;BUMP COUNT
sSAVE CONTENTS OF TSSR

JWRITE CHARACTERISTISC FAILED
TRAP

.WORD

25%:
AL

(kLoop
AARAAAA

sLOOP IF SELECTED
Al

CSERHRD

708

.WORD
.WORD

WRTMSG
SF IMSG

TRAP

CsCLP

22222

TSV7 = HARDW'
RE TESTS 1-8
TEST
7: WRITE DATA RETRY

MACRO M1113

25-MAY-82 09:19

H 10

PAGE

144-1
SEQ 0330

9284

g%gz

sISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

9287
9288
9289 075436
9290 075442
9291 075444
9292 075446
9293 075452
9297 075450
075456
075460
075462
075464
9298 075466
075466
9299 075470

:-tttt't't.t.t"'ttt"ttttt'QttttttttttQ.t.'ttttttttttttt'tttt'ttttt

ggg? 075474

004737
103411
010004
016501
005237

011104

JSR
8CS
MOV
MOV
INC
ERRHRD

000002
002212

104456
001305
102735
012136
104406
012703
013737

26$:
000400

003114

CKLOOP
MOV

101532

9302

PC ,REWIND
26$
RO,R4
TSSR(RS) ,R1
FATFLG
ERRNO,T27RWN,PKTSSR

ARt

FREE,T27wB

TRAP
.WORD
.WORD
.WORD

TRAP
;STARTING RECORD SIZE

:
JWRITE DATA,CVC=1,ACK COMMAND

9306
9307
9308 075502
9309 075510
9310 075514
9311 075520
9312 075526
9313 075530
9314 075534

:-tttttt'ttttttt.tttttttt'tttt.ttttttttt.ttttttttttt.ttttttttttttt't

9315 075540

9316 075542
9317 075544
9321 075550
075550
075552
075554
075556
9322 075560
9323 075560

010337
010465
004737
016501
012702

020102

001406
005237

140005
101530

101530

MOV
MOV

101536

000000
016340
000002
000200

104456
001306
005111
012136

28$%:

104406

MOV
MOV
JSR
MOV
MOV

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

8EQ
INC
ERRHRD

28$
FATFLG
ERRNO,WRTERR,PKTSSR

CMP

002212

#140005,T127pPK3
#T27PK3 R4

R3,127S2

R1,R2

(kLOOP

JWRITE DATA,CVC=1,ACK COMMAND
JSET UP R4 WITH PACKET ADDRESS

sSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
JWAIT FOR SSR TO SET
JGET TSSR CONTENTS
sSET UP EXPECTED

:ARE THEY EQUAL

:BR, IF 0K
;BUMP COUNT
sTSSR INCORRECT AFTER WRITE DATA

;LOOP IF SELECTED

N A RN N AR A RN N RN AR R A R AN NN AR RN AR RN AN I NN R AN

AN NN

TRAP
MWORD
.WORD
.WORD

CSERHRD
710
WRTERR
PKTSSR

TRAP

CS$CLP

9324

SRR

9325

9328
9329
9330 075562
9331 075566
9332 075570
9333 075574
9334 075576
9338 075602
075602

:'tttttttttttttttttttttttttttttttttttttttttt'ttttttttttttttttttttttt

3%59

CS$CLP

JSTARTING WRITE BUFFER ADDRESS

9303
gggg

012737
012704

CSERHRD
709
T27RWN
PKTSSR

;LOOP IF SELECTED
#256. ,R3

MOV

sCALL TAPE REWIND COMMAND
s8R, IF NO PROBLEM
JSET UP REWIND PACKET ADDRESS
JGET TSSR CONTENTS
;JBUMP COUNT
JREWIND NOT ACCEPTED

RNNARS

;ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

004737
103411
016501
010004
005237

104456

011104
000002
002212

JSR
8(S
MOV
MOV
INC
ERRHRD

PC,REWIND
308
TSSR(RS) ,R1
RO,R4
FATFLG
ERRNO,T27RWN,PKTSSR

;sCALL TAPE REWIND COMMAND
;BR, IF NO PROBLEM
JGET TSSR CONTENTS
;SET UP REWIND PACKET ADDRESS
;BUMP COUNT
JREWIND NOT ACCEPTED
TRAP

CSERHRD

TSV7 = HARDWARE TESTS 1-8
TEST
7: WRITE DATA RETRY

075604
075606
075610
9339 075612
9340 075612

001307
102735
012136

MACRO M1113

25-MAY-82 09:19

308:

104406

I 10

PAGE 144-2

SEQ 0331

CxLOOP

;LOOP IF SELECTED
Y

R R R R R R R R R R

TRAP

cscLP

A A A A A
:

9345

;tt-t'ttt-nttnt-.tntttttt.tttttt.tt--tn--ttt.-tttatttn-.ttntt-atttt

9346
9347
9348
9349
9350
9351
9352
9356

711
TZ27RWN
PKTSSR

9341
9342

g%zz

.WORD
.WORD
.WORD

IIT

JREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

075614
075620
075622
075626
075630
075632
075636

013701
010102
052702
020102
001406
005237

075640
075642
075644
9357 075646
9358 075646

001310
102431
015564

075636

101440

MOV
MOV
8IS
CMP
B8EQ
INC
ERRHRD

000002

002212

104456

40$:

104406

T27BFR+6,R1
R1,R2
#31T1,R2
R1,R2
408
FATFLG
ERRNO,T27B0T ,EXPREC

CKLOOP

JPICK UP XSTO
JSET UP EXPECTED
JSET BOT BIT IN EXPECTED
;DOES EXP = REC'D
;BR, IF EQUAL (OK)
;BUMP COUNT
;TAPE NOT AT COT AFTER REWIND

;LOOP ]F SELECTED

TRAP
.WORD
.WORD
.WORD

CSERHRD
712
T278BOT
EXPREC

TRAP

cscLePt

9359

9360
9361

:
s ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS

9364
9365
9366
9367
9368
9369
9370
9371
9372
9376

Etttttttttttttttttlttt't'tttttt.ttttttttttttt.ttttttttttttttt!ttttt

8%2%

RN A AN R AR AN A A I N AR A RN R AR AN R AR N AR NN

;BIT 15 SETS DIRECTION - 0=FORWARD

075650
0756546
075660
075662
075666
075672
075674
075700

075700
075702
075706
075706
9377 075710
9378 075710

012703
004737
103413
016501
012702
010004
005237

000001
010556

MOV
JSR
BCS
MOV
MOV
MOV
INC
ERRHRD

000002
000200
002212

104456
001311
104177
012136

50$:

104406

9379

#1,R3
PC,SPACE
508
TSSR(RS) ,R1
#SSR,R2
RO,R4
FATFLG
ERRNO,T27SCF,PKTSSR

CKLOOP
AN

A AN NS ANRN NN RN ANANNA RN NAD

1=REVERSE

;PARAMETER SPACE FORWARD 1 RECORD
sCALL SPACE RECORDS ROUTINE
:BR, IF NO ERRORS
sGET TSSR CONTENTS
JSET UP EXPECTED
sSET UP REWIND PACKET ADDRESS
;BUMP COUNT
sSPACE RECORDS COMMAND FAILED

;LOOP IF SELECTED

AR AN R RN N R RN N RN N RO T AR R R AN RN AN

AN R NN A NN AR

RN ANR TN AR

TRAP
LMWORD
.WORD
.WORD

CSERHRD
713
T27SCF
PKTSSR

TRAP

CSCLP

NORNR

9380
9381

:
¢ ISSUE _SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS

9384
9385
9386 075712
9387 075716

EQttttttttt'ttttttttttttttttttttttttttttttttttttttltt'tttttlttttttt

gggg

;BIT 15 SETS DIRECTION = 0=FORWARD

012703
004737

100001
010556

MOV
JSR

#100001 ,R3
PC,SPACE

1=REVERSE

;PARAMETER SPACE REVERSE 1 RECORD
sCALL SPACE RECORDS ROUTINE

TSV7 = HARDWARE TESTS 1-8
TEST
7: WRITE DATA RETRY

9388
9389
9390
9391
9392
9396

075722
075724
075730
075734
075736
075742

075742
075744
075746
075750
9397 075752
075752
gggg 075754

103413
016501
012702
010004
005237

MACRO M1113

BCS
MOV
MoV
MOV
INC
ERRHRD

000002
000200

002212

60s$:

003114

J 10

PAGE 144-3
SEQ 0332

104456
001312
104177
012136
104406
013737

25-MAY-82 09:19

101532

9‘00

608
TSSR(RS) ,R1
#SSR,R2
RO,R4
FATFLG
ERRNO,T27S(C¢,PKTSSR

CKLOOP

MOV

FREE,T27RB

;BR, IF NO ERRORS
JGET TSSR CONTENTS
JSET UP EXPECTED
JSET UP REWIND PACKET ADDRESS
:BUMP COUNT
sSPACE RECORDS COMMAND FAILED
TRAP
.WORD
. WORD
.WORD
:LOOP IF SELECTED
TRAP
;ADDRESS OF BUFFER

.
;WRITE DATA RETRY,ACK,CVvC=1

9(,04
9405
9406 075762

:'ttttttttttttttttttttttti'tttit'tttttQ.'Qtttfittt.tt.ttttlt.t't.ttt'

9408 075776
9409 076002
9410 076006
9411 076012
9412 076016
9413 076022
9414 076024
9415 076026
9419 076032

076032
076034
076036
076040
9420 076042
076042
9421 076044
9422 076050
9423 076052
9424 076056
9425 076060
9426 076062
9430 076066
076066
076070
076072
076074
9431 076076
076076
9432 076100
076100
076100
9433 076102
9434 076110
9435 076112
9436 076116

cscLPt

"ttttt'ttttlt.t'tt.ttttt'tQ't.ttttttt'tQttttlt"tttltttt.ttt'tttttt

9401
gzg%

9407 075770

CSERHRD
714
T27SCF
PKTSSR

012737

012704
010465
004737
016501
012702
020102
001406
005237

141005

000400
101530
000000
016340
000002
100204

101530

101446
000001
002212

1908:

#1461005,127PK3

JWRITE DATA RETRY,ACK,CVC=1

#T27PK3,R4
R&,TSDB(RS)
PC,WAITF
TSSR(RS) ,R1
#SSR!SC'BIT2,R2
R1,R2

JSET UP R4 WITH PACKET ADDRESS
; ISSUE COMMAND
JWAIT FOR SSR TO SET

#256. 72751

1808
FATFLG
ERRNO,T27TSA,PKTSSR

CKLOOP
MOV
MOV
8IS
cMP
BEQ
INC
ERRHRD

104406

104403

MOV
MOV
JSR
MOV
MOV
CMP
BEQ
INC
ERRHRD

180%:

104456
001314
104101
015564

023727
103402
004737

MOV

002212

104456
001313
104254
012136
104406
013701
010102
052702
020102
001406
005237

MOV

101536

017272

000017

T278BFR+14 ,R1
R1,R2
#81T0,R2
R1,R2
1908
FATFLG
ERRNO,T27NEF ,EXPREC

(CKLOOP

9998:

CMP
BLO
JSR

JSET UP THE SIZE OF RECORD

COMMAND

:GET TSSR CONTENTS
SSET UP EXPECTED TAPE STATUS ALERT
JARE THEY EQUAL
;BR, IF 0K
;BUMP COUNT
JTSSR INCORRECT AFTER READ DATA

JLOOP IF SELECTED
JGET XST3 STATUS WORD
:SET UP EXPECTED
:SET THE RIB BIT
JARE THEY EQUAL
:BR, IF EQUAL (GOOD)
;BUMP COUNT
sNEF SHOULD BE SET

TRAP
.WORD
.WORD
.WORD

CSERHRD
715
T271SA
PKTSSR

TRAP

cscLP

TRAP
.WORD
.WORD
.WORD

CSERHRD
716
T27NEF
EXPREC

TRAP
cscLP
2O355555553>>> END SUBTEST >>>>>>>>>>>>
L10124:

ENDSUB
002212

COMMAND

FATFLG,#15.
999%
PC,CKDROP

TRAP

;1S ERROR COUNT AT 25
:BR, IF LESS THAN 25
JTRY TO DROP THE UNITY

CSESULB

TSV7 -~ HARDWARE TESTS 1-8
TEST
7: WRITE DATA RETRY

MACRO M1113

9438
9439

25-MAY-82 09:19

K 10
PAG E 145

SEQ 0333

STEST 7, SUBTEST 3

9440

9441
9442
9443
9444
9445
9446

*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).

*BYTE COUNTS AND DATA PATTERNS ARE USED.

VARIOUS

9447

9448
9449
9450 076116

076116
076116
9451 076120
9452 076124
9453 076130

9454
9455
9456
9457
9458
9459
9460
9461 076134
9462 076140
9463 076142
9467 076146
9468 076150
076150
076152
076154
076156
9469 076160
9470 076166
9471
9472
9473
9474
9475
9476
9477
9478 076172
9479 076176
9480 076200
9484 076204
9485 076206

076206
076210
076212
076214
9486 076216
076216
9487
9488
9489

"
104402

004737
004737
004737

BGNSUB

104534
104626
104670

JSR
JSR
JSR
AR RN R

I3335533553>> BEG;NSSUBTEST 33533>5333>>
17.3:

PC,T27REST
PC.T27RT2
PC.TO7RT3

TRAP

C$BSUB

:SET COMMAND PACKET
*SET UP OTHER COMMAND PACKET
*SET UP OTHER COMMAND PACKET

AR AN NN RN RN AN RN AP N TR AR NARARAAN N AN AN AR NN NARRANR

AN O NANRAN AR

:ISSUE CONTROLLER ‘‘SOFT'* INITIALIZE - CARRY 8IT CLEAR IF ERROR
.

RN RN AANRN AN R AN AN N AR AN NN NN NN NN AR R AR A NARNAANN NN NANNNANN AR RN ARANNRARES

004737
103407
005237
010001

016064

JSR
8(S

002212

INC
MOV
ERRDF

104455

001315
003650
012124
013737
012704

PC,SOFINIT
20%

FATFLG
RO,R1
ERRNO,SFIERR,SFIMSG

;D0 INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK

sBUMP COUNT
sCONTENTS OF TSSR REGISTER
sFATAL ERROR TSSR WAS NOT 0K

TRAP

CSERDF

717

.WORD

72
10

101430

208 :
AN

MOV
MOV
R A NN

UNITN,T27DSW
W#T27PACKET R4

A AN

.WORD
.WORD

sSET UP UNIT NUMBER IN PACKET
sSUBROUTINE NEEDS PACKET ADDRESS

SFIERR
SFIMSG

N A AR AN AN A A AR RN NN RN N ARN AN RANARNR AN RN NNNRANENRANENNORANR

WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
.

004737
103407
005237
010001

AR AR R

010752
002212

104406

NN NN N C

A RN N AN RN RAN AN RN

JSR

PC,WRTCHR

INC
MOV
ERRHRD

FATFLG
RO,R1
ERRNO,WRTMSG, SFIMSG

BCS

104456

001316
005054
012124

R A AR AR

23$

AR RAN RN N AN AR OANNR

s ISSUE WRITE CHARACTERISTICS

sBR, IF COMMAND ISSUED OK

sBUMP COUNT
sSAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC FAILED
TRAP

.WORD

23%:
FAAAL AL

(kLOOP

;LOOP IF SELECTED

CSERHRD

718

LWORD
.WORD

WRTMSG
SFIMSG

TRAP

cscLm

RA AR
I
S
I
S
I
22222222222

TSV7 - HARDWARE TESTS 1-8
TEST
7: WRITE DATA RETRY

9490
9491
9492
9493
9494 076220
9495 076224
9496 076226
9497 076230
9501 076234

076234
076236
076240
076242
9502 076244
076244

MACRO M1113

L 10
PAGE 145-1

25-MAY-82 09:19

SEQ 0334

: ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
.

004737
103407
010004
005237

AR AR A AN AN AN AN NN

011104

JSR
BCS

PC ,REWIND

ERRHRD

ERRNO,T27RWN,PKTSSR

30$

RO,R4

MoV
INC

002212

104456
001317
102735
012136

TN R ARN N AR AR AN NANARAANNAANNONANANNNAENERNAAND

FATFLG

;CALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
sSET UP REWIND PACKET ADDRESS
sBUMP COUNT
cREWIND NOT ACCEPTED
TRAP

CSERHRD

.WORD

PKTSSR

TRAP

cscLP1

.WORD
LWORD

30$:

104406

ckLoop

MAALAAAAASAALAS

sLOOP IF SELECTED

A2 2

etz

719
T27RWN

ISR

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XST0)
»

SRR

9510 076246

076252
9512 076254
9513 076260
9514 076262
9515 076264
9519 076270

076270
076272
076274
076276
9520 076300
076300
9521 076302
9522 076306

013701
010102
052702
020102
001406
005237

101440

AN AN AN R

MOV
MOV

000002

8IS
CMP
8EQ
INC
ERRHRD

002212

104456

A AR NPT

RN AN R A AR AN RNAN KNSR N AN AN

T278FR+6,R1
R1, R2

#81T1,R2

R1,R2
408

FATFLG

ERRNO, T27B0T,EXPREC

AN ARN R ARV RANNY

sPICK UP XSTO
sSET UP EXPECTED
sSET BOT BIT IN EXPECTED
sDOES EXP = REC'D
:BR, IF EQUAL (0K)
;BUMP COUNT
sTAPE NOT AT BOT AFTER REWIND

001320
015564
012703
013737

CSERHRD

.WORD

EXPREC

TRAP

cscLP1

.WORD
.WORD

102431

104406

TRAP

408:

000024
003114

CKLOOP

MOV
MoV

101532
RN R

AN AN RN AN

sLOOP IF SELECTED
#20. ,R3
FREE,T27wB
AN AR NN AR

sSTARTING RECORD SIZE
;STARTING WRITE BUFFER ADDRESS
NN NAARR A RN AR RAAN RN RN N RANRANRARONANNORANEY

*WRITE DATA,CVC=1,ACK COMMAND
.

9529
9530 076314
9531 076322
9532 076326
9533 076330
9534 076334
9535 076340
9536 076344
9537 076350
9538 076354
9539 076360
9540 076362
9541 076364
9545 076370

AR RAN RN RN AN AR AR O R AN AN E N AN RN NARANRANAANANRNRRA
RN NARARNANERNS
ARNNN

012737
012704
010300
004737
010337
010465
004737
010501

005237

101530

65$:

MOV
MOV
MOV

#1460005, 127PK3
#T27PK3
R4

MOV
MoV

R3,T27S2
R&4.TSDB(RS)

PC.FILLMEM

JSR

PC.WAITF

Mov
MOV
CMP

002212

R3,R0

JSR

BEQ
INC
ERRHRD

TSSR(RS)
,R1
#SSR,R2

R1,R2
80§

FATFLG

ERRNO, WRTERR,PKTSSR

sWRITE DATA,CVC=1,ACK COMMAND
sSET UP R4 WITH PACKET ADDRESS

sSET PATTERN IN CORRECT REGISTER

sFILL MEMORY WITH RECORD SIZE
sSET UP RECORD SIZE IN PACKET
+ ISSUE COMMAND

;WAIT FOR SSR TO SET

cGET TSSR CONTENTS
sSET UP EXPECTED
sARE THEY EQUAL
:BR, IF OK
+BUMP COUNT
s TSSR INCORRECT AFTER WRITE DATA

720
T2780T

TSV? ~ HARDWARE TESTS 1-8
TEST
7: WRITE DATA RETRY

076370
076372
076374
076376

9546 076400
9547 076400

MACRO M1113

25-MAY-82 09:19

PAGE 145-2

SEQ 0335

1064456

001321
005111
012136

80$:

104406

9548

ckLooP

(AR

9549

;LOOP IF SELECTED

AN AR AR R AR N N A A RN AN AR RN AN N AR AR NN R AR

AN TN AN R AN AR NS R NN

TRAP
.WORD
.WORD
.WORD

CSERHRD
721
WRTERR
PKTSSR

TRAP

cscLpP

ANNS

322?

;WRITE DATA RETRY,CVC=1,ACK COMMAND

9552
9553
9554 076402
9555 076410
9556 076414
9557 076420
9558 076424

;ttttttttttttttttttttttttttttttttttt.ttltttttttttttttttttttttt'tttt

9559 076430

9560 076432
9561 076434
9565 076440
076440
076442
0764446
076446
9566 076450
076450

9567 076452

9568 076454
gggg 076460

012737
010465
004737
016501
012702

020102

001406
005237

141005
000000
016340
000002
000200

Mov
MOV
JSR
MOV
mov

(MP

BEQ
INC
ERRHRD

002212

1064456
007322
104336
012136
104406
005723
020327
001315

101530

90¢%:

TST

CMP
BNE
SRR
H

sWRITE DATA RETRY,CV(C=1,ACK COMMAND
s ISSUE COMMAND
cWAIT FOR SSR TO SET
sGET TSSR CONTENTS
sSET UP EXPECTED

90$
FATFLG
ERRNO, T27WRF ,PKTSSR

sBR, IF 0K
;BUMP COUNT
s TSSR INCORRECT AFTER WRITE DATA RETRY
TRAP
CSERHRD
.WORD
722
.WORD
T27WRF
.WORD
PKTSSR
;LOOP IF SELECTED
TRAP
cscLP

RI,Ré

CKLOOP

000050

9571
9572

#141005,127PK3
R4, TSDB(RS)
PC,WAITF
TSSR(R5) ,R1
#SSR,R2

(R3)+

¢BUMP RECORD SIZE COUNTER

R3,440.
65%

AR A R A AR AN A A A RN R AN

:ARE THEY EQUAL

SAT 40 SIZE YET
sBR, IF MORE RECORDS TO WRITE
R TN R AN N R AR AN R R A NN AR NN

R AN AR AN RN RN N R A AR

32;2

¢ ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

957§
9576
9577
9578
9579
9580
9584

Etttttttttttttttttttttitttttttttttttttttttittttttttttttit!tttttt'tt
076462
076466
076470
076472
076476

076476
076500
076502
076504
9585 076506
9586 076506

004737
103407
010001
005237

011104

JSR
BCS
MoV
INC
ERRHRD

002212

104456
001323
102735
015564

2308:

104406

9587

PC,REWIND
2308
RO,R1
FATFLG
ERRNO,T27RWN,EXPREC

CKLOOP

sCALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
s SAVE TSSR
:BUMP COUNT
cREWIND NOT ACCEPTED

;LOOP IF SELECTED

AR RN AR R

TRAP
.WORD
.WORD
.WORD

CSERHRD
723
T27RWN
EXPREC

TRAP

cscLP

AR NN RN AT AN AR AN R AR AN RN AN AR R AR A RN NNAANNSARTNONS

9588

9591
9592
9593 076510

EttttttttttPtttttttttttt'tttttttt'tttttttttlttttttttttttttttltttttt

8233

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

013701

101440

MOV

T278FR+6,R1

;PICK UP XSTO

TSV7 ~ HARDWARE TESTS 1-8
TEST
7: WRITE DATA RETRY

9594 076514
9595 076516
9596 076522
9597 076524
9598 076526
9602 076532

076532
076534
076536
076540
9603 076542
076542
9604 076544
9605 076550

010102
052702
020102
001406
005237

MACRO M1113

Mov
BIS
CMP
BEQ
INC
ERRHRD

000002
002212

104456

001324
102431
015564

104406

012703
013737

:
2408
000024
003114

25-MAY-82 09:19
R1.R2

SRR AAR P AN

SEQ 0336

sSET UP EXPECTED
;SET 80T BIT IN EXPECTED

#BIT1,R2

RI,RZ

;DOES EXP = REC'D

240%

FATFLG

ERRNO, T27B0T,EXPREC

;BR, IF EQUAL (0K)
:BUMP COUNT

s TAPE NOT AT BOT AFTER REWIND
TRAP
+WORD

;LOOP IF SELECTED

(KLOOP

#20.,R3
FREE,T27RB

MOV
MOV

101532

N 10
PAGE 145-3

AR AN NN AR TR AN

:STARTING RECORD SIZE

-WORD
.WORD

CSERHRD
724
127807
EXPREC

TRAP

cscLP

sSTARTING READ BUFFER ADDRESS
RARARA RN A AR

AN AARARNANRA RN

NRA NN

ARARRY

‘READ DATA,ACK COMMAND
.

AR R AR AR AL AR AR RN AN RN RN

9613
9614
9615
9616
9617
9618
9619
9620
9621
9622
9626

076556
076564
076570
076574
076600
076604
076610
076614
076616
076620
076624

076624
076626
076630
076632
9627 076634
076634
9628 076636
9629 076642

9630 076644
076650
9632 076652
9633 076654
9634 076656
9635 076660
9636 076662
9640 076666
076666

076670
076672
076674
9641 076676
076676

9642 076700
9643 076702

9644 076704

012737
012704
010337
010465
004737
016501
012702
020102
001406
005237

100001
101530
101536
000000
016340
000002
000200

101530

265$:

013702
010304
162704
060204
021403

001410
011401
010302

005237

280$:

003114
000024

#100001,T27PK3
#T127PK3,R4

MoV
MOV

TSSR(RS)
,R1

ARAANNANRAAN AN RANRA AR

R3,7275¢
R4, TSDB(RS)
PC,WAITF

CMP
BEQ
INC
ERRHRD

104456

104406

MOV
MOV
MOV
MOV

JSR

002212

001325
005204
012136

285$:

sREAD DATA,ACK COMMAND

;SET UP R4 WITH PACKET ADDRESS
sSET UP RECORD SIZE IN PACKET
: ISSUE COMMAND
sWAIT FOR SSR TO SET
sGET TSSR CONTENTS
sSET UP EXPECTED

sARE THEY EQUAL
sBR, IF 0K

sBUMP COUNT
¢ TSSR

INCORRECT AFTER READ DATA
TRAP
CSERHRD

020403

290$:

725

TRAP

cscLet

¢GET BUFFER ADDRESS
:GET RECCRD SIZE
sPOINT BACK TO 1ST RECORD
sPOINT TO 1ST LOC In BUFFER

sus

ADD

CMP
BEQ

ERRNO, T27DTA,EXPREC

ckLoop
ST

sus
cMP

RDERR
PKTSSR

;DATA WRITTEN = READ

:BR, ]F DATA 0K (GOOD)
¢PICK UP BAD DATA
cSET UP EXPECTED
;BUMP COUNT
sDATA IN BUFFER NOT CORRECT

104416

104406
005724
160204

.WORD
.WORD
-WORD

MOV
MOV

001326

015564

AANS

<LOOP IF SELECTED

ERRHRD

104456

RN AR

CKLOOP

MOV
MOV
INC

002212

cLOOP [F SELECTED
+
(R4)
R2,R¢
R4 ,R3

sBUMP TO NEXT ADDRESS
;BACK TO RECORD SIZE
sAT END OF

RECORD YET

TRAP
.WORD

.WORD
.WORD

CSERHRD
726
T27DTA
EXPREC

TRAP

CSCLPl

TSV7 =~ HARDWARE TESTS 1-8
TEST
7: WRITE DATA RETRY

9645
9646
9647
9648
9649

076706
076710
076712
076716
076720

076720
9650 076722
9651 076722
076722
076722
9652 076724
9653 076732
9654 076734
9655 076740

001360
005723
020327
001317

MACRO M1113

000050
300%:

104406

104403

023727
103402
004737

330%:

002212
017272

000017
999%:

25-MAY-82 09:19

BNE
TST
CMP
BNE
CKLOOP

B 11

PAGE

285%
(R3)+
R3,#40.
265%

SEG 0337

;BR, IF MORE DATA TO CHECK
;BUMP RECORD SIZE
;DONE YET
;JBR, IF NOT DONE YET (MORE READS)
;LOOP IF SELECTED

TRAP

ENDSUB

CMP
BLO
JSR

145-4

CSCLP

JOO55355355>> END SUBTEST >>>>>>>>>>>>
L10125:

FATFLG,#1S.
999%¢
PC,CKDROP

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

CSESLB

TSV? = HARDWARE TESTS 1-8
TEST
7: WRITE DATA RETRY

MACRO M1113

9657
9658
9659
9660

25-MAY-82 09:19

cNn
146

PAGE

SEQ 0338

STEST 7, SUBTEST &

9661
9662
9663

;VERIFIES THAT A WRITE DATA RETRY COMMAND WITH SwB=1

sTERMINATES PROPERLY AND WRITES CORRECT DATA ON TAPE

s (THE WRITTEN RECORD IS READ AND CHECKED).

9664

;BYTE COUNTS AND DATA PATTERNS ARE USED.

9665

[

9666
9667
9668
9669 076740

076740
076740
076742
076746
076752
076756

VARIOUS

4
[

* [

104402

004737
004737
004737
012737

BGNSUB
JSR
JSR
JSR

T7.4:

PC,T27REST
PC.TI7RT2
PC.TO7RT3

MOV

101562

IOOOODD3D5>>> BEG;N SUBTEST >>>>>>>>>>>>

#65000. ,T270LY

AR AR AN AR AR RN AR AN AN R AN

TN TN

TRAP

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

($BSUB

sSET UP DELAY COUNTER

AR AR NN AR A AN AN AR AANAN RN AR NN

N NN NN RN NN

:ISSUE CONTROLLER ‘'SOFT'’ INITIALIZE - CARRY BIT CLEAR IF ERROR
[

AR AN AN AR AR

076764
076770
076772
076772
076776
077000
077004
077006
077012
077014
077020
9684 077022
9685 077026
9686 077030
077034
9691 077036
077036
077040
077042
077044
077046
077054

004737

016064

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

000250

103426

108:

JSR

BCS
DELAY

AN NN A AR TR AR AR A AAARNNAN TN RARANN RN NN NN NN NN ANNNNR RO

PC,SOFINIT

208
250

;DO INITIALIZE ON CONTROLLER

;BR IF INIT WAS OK
;DELAY ABOUT .25 SEC

002116
1727772

DEC
BNE
INC
MOV

002212

ERRDF

104455

MOV
.WORD
mMov
.WORD

DEC
BNE
DEC
BNE

177756
101562

T27DLY
108
FATFLG
RO,R1

ERRNO,SFIERR,SFIMSG

sBUMP COUNTER
¢BR, IF COUNTER NOT DONE
sBUMP COUNT
sCONTENTS OF TSSR REGISTER

sFATAL ERROR TSSR WAS NOT 0K
TRAP

.WORD

012704

002172

101410

101430

208 :

MOV

UNITN, T27DSW

#T27PACKET R4

SRR AN NN A AN RN AN NN

.WORD
LWORD

sSET UP UNIT (DRIVE) NUMBER
s SUBROUTINE NEEDS PACKET ADDRESS

I NN AN RN ARN RN AN A RN ARARANNE NN NN R

ERRNNR

WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
.

9701 077060
9702 077064

004737
103407

010752

JSR

BCS

NN AN AN AN AN AR RN AARAE R RN R AR NN AN ARAANANR

PC,WRTCHR

23$

N NAN AR AR NANAROR N

;1SSUE WRITE CHARACTERISTICS

:BR, IF COMMAND ISSUED OK

#250, (PC)+
0
LSOLY,(PC)+
0

~6(PC)
.4
=22(PC)
.~20

CSERDF

727

SFIERR
SFIMSG

TSV7 - HARDWARE TESTS 1-8
TEST
7: WRITE DATA RETRY

9703 077066

005237
010001

077074
077076
077100
077102
9709 077104
077104
9710
9711
9712
9713

104456

9707 077072
9708 077074

9714
9715
9716
9717 077106

9718 077112

9719 077114
9720 077120

9721 077122
9725 077126
077126
077130
077132
077134
9726 077136
077136
9727
9728
9729
9730
9731
9732
9733
9734 077140
9735 077144
9736 077146
9737 07715¢
9738 077154
9739 077156
9743 077162

077162
077164
077166
077170
9744 077172
077172
9745 077174
9746 077200
9747
9748
9749
9750
9751
9752
9753

MACRO M1113

002212

INC

FATFLG

ERRHRD

23$:

104406

AR AN RN

SEQ 0339

sBUMP COUNT
sSAVE CONTENTS OF TSSR

RO,R1
ERRNO,WRTMSG, SFIMSG

MOV

001330
005054
012124

o 1"
PAGE 146-1

25-MAY-82 09:19

sWRITE CHARACTERISTISC FAILED
TRAP

ckLOOP

;LOOP IF SELECTED

AR NN NN R AN IR E VRN R

RN AN RN

A AN AN A NN AN AR

CSERHRD
728

.WORD
.WORD
.WORD

WRTMSG

TRAP

CSCLP

SFIMSG

N O NN OIARTANRNANIAO NN

*ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
.

IR AASALE

004737
103411
016501
010004
005237

011104

LSRR

JSR
8(s
MOV
MOV
INC

000002
002212

ERRHRD

104456

ARl

PC REWIND

308

TSSR(RS)
,R1
RO,.R4
FATFLG

ERRNO, T27RWN,PKTSSR

sCALL TAPE REWIND COMMAND
s8R, IF NO PROBLEM
;GET TSSR CONTENTS
sGET PACKET ADDRESS
sBUMP COUNT

cREWIND NOT ACCEPTED

001331

102735

012136

308:

104406

CKLOOP

:LOOP IF SELECTED

TRAP

CSERHRD
729
T27RWN

.WORD
.WORD
.WORD

PKTSSR

TRAP

cscLP

;Q"itt..tt'ttt..t."'tt"fi'.'.tt.ttt.'t.fittt.'t'ttt..t.tt"...""

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
Ll

AR AR A AN RN RN AN AN

013701
010102
052702
020102
001406
005237

101440

MOV
MOV

000002

8ISs
CMP
8EQ
INC

002212

ERRHRD

104456

001332
102431
015564
104406

012703
013737

40$:

000024
003114

T27BFR+6,R1
R1,R2

#8IT1,R2
R‘oRZ
408
FATFLG

ERRNO, T27BOT,EXPREC

ckLOoP
MOV
MOV

101532

AN AN NI NN IR R R AN RN AN N RN ANN SR ANA NN AN

AN RGN RRNNRS

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

s TAPE NOT AT BOT AFTER REWIND
TRAP

sLOOP IF SELECTED
#20. ,R3

FREE,T27WB

-WORD
.WORD
.WORD

CSERHRD
730
127807
EXPREC

TRAP

cscLP

sSTARTING RECORD SIZE
;STARTING WRITE BUFFER ADDRESS

;'Qtt".t.'t.tt.ttttt't"'i.'ttt't.'tt!t'ttttt'ttt!'t'tt.'t.t'.t.t.

SWRITE DATA,CVC=1,ACK COMMAND
)

;"'.".'ttt.'t"ttl.tt"tt't.tt"tt!Qtt!t'!'tl"ttt.t.ttit.."t"'

—

TSV7 - HARDWARE TESTS 1-8
TEST
7: WRITE DATA RETRY

9754 077206
9755 077214
9756 077220
9757 077222
9758 077226
9759 077232
9760 077236
9761 077242
9762 077246
9763 077252
9764 077254
9765 077256
9769 077262

077262
077264
077266
077270
9770 077272
077272
9771

9772
9773
9774
9775
9776
9777
9778 077274
9779 077302
9780 077306
9781 077312
9782 077316
9783 077322
9784 077324
9785 077326
9789 077332

077332
077334
077336
077340
9790 077342
077342
9791 077344
9792 077346
9793 077352
9794
9795
9796
9797
9798
9799
9800
9801 077354
9802 077360
9803 077362
9804 077366
9805 077370
9809 077374

012737
012704
010300
004737
010337
010465
004737
016501
012702
020102
001406
005237

140005

101530

MACRO M1113
101530

658:

25-MAY-82 09:19

#140005,127PK3
#T27PK3 R4

;WRITE DATA,CVC=1,ACK COMMAND
*SET UP R4 WITH PACKET ADDRESS

JSR
MOV
MOV
JSR
MOV
MOV

PC.FILLMEM
R3 12752
R&.TSDB(RS)
PC.WAITF
TSSR(RS) ,R1
#SSR,R2

SFILL MEMORY WITH RECORD SIZE
*SET UP RECORD SIZE IN PACKET
SISSUE COMMAND
*WAIT FOR SSR TO SET

104456
001333
005111
012136

R3,R0O

:SET PATTERN IN CORRECT REGISTER

*GET TSSR CONTENTS
*SET UP EXPECTED

CMP

R1,R2

*ARE THEY EQUAL

INC
ERRHRD

FATFLG
ERRNO,WRTERR,PKTSSR

*BUMP COUNT
STSSR INCORRECT AFTER WRITE DATA
TRAP
(SERHRD

BEQ

002212

SEQ 0340

MOV
MOV

MOV

017512
101536
000000
016340
000002
000200

E 1N
PAGE 146-2

80$

:BR,

IF OK

JWORD

80$:

104406

CKLOOP

;LOOP IF SELECTED

731

"WORD
"WORD

WRTERR
PKTSSR

TRAP

C$CLP1

"i't".t"'t.'ttfifit'ttttt'i'tttttt't't.tttt't.tttt.'t'ttfi.ttt"fi"t

;WRITE DATA RETRY,ACK,SWB=1 COMMAND

:'t'..t'ttttfifi'.t.'tt""'tQ'Qfi'fit.t..'tit.l"tttttt'..'t.ttit.'tttt
012737
010465
004737
016501
012702
020102
001406
005237

111005

000000
016340
000002
000200

MOV
MOV
JSR

MOV
MOV

CMP
BEQ
INC
ERRHRD

002212

104456
001334
104336
015564

#111005,127PK3
R4, TSDB(RS)
PC.WAITF

;WRITE DATA RETRY,ACK,SWB=1
*ISSUE COMMAND
‘WAIT FOR SSR TO SET

TSSR(RS) ,R1
#SSR,R2

:GET TSSR CONTENTS
*SET UP EXPECTED

FATFLG
ERRNO, T27WRF ,EXPREC

*BUMP COUNT
:TSSR INCORRECT AFTER WRITE DATA RETRY

R1,R2
90$

*ARE THEY EQUAL
‘B8R, IF OK

908:

000050

CKLOOP
ST

CMP

BNE

:LOOP IF SELECTED

LWORD
.WORD
.WORD

(R3)+

TRAP
:BUMP RECORD SIZE COUNTER

65%

:BR, IF MORE RECORDS TO WRITE

R3.#40.

SAT 40 SI2E YET

.'.t'tt"Qt.t"'t"ttt"""t.tt..t.'t'..t.tt.tt.t.l'fit"'t't."'t.'

$ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

:'""""'Q.ttQtt't.t.tt't"'...'t"ttlttl.t.t.tt'ltt..t't'.'l...t'
004737

011104

016501
010004
005237

000002

103411

COMMAND

TRAP

106406

005723
020327
001315

101530

002212

JSR

PC,REWIND

MOV
INC

RO,R4
FATFLG

BCS
MOV
ERRHRD

2308
TSSR(RS) ,R1

ERRNO, T27RWN,PKTSSR

;CALL TAPE REWIND COMMAND

‘BR, IF NO PROBLEM
‘GET TSSR CONTENTS

:GET PACKET ADDRESS
*BUMP COUNT

¢REWIND NOT ACCEPTED

CSERHRD

732
T27WRF
EXPREC
CS$CLP1

———r

TSV7 ~ HARDWARE TESTS 1-8
TEST
7: WRITE DATA RETRY

077374
077376
077400
077402

9810 077404
9811 077604

MACRO M1113

104456
001335
102735
012136

2308:

104406

9812

9813

F 1
PAGE 146-3

25-MAY-82 09:19

SEQ 0341

(KLOOP
A

;LOOP IF SELECTED

AR N AN R

TN AN N NN A NN R AN RN

O R AR

R N AN A RN AN

TRAP
.WORD
.WORD
.WORD

CSERHRD
733
TZ27RWN
PKTSSR

TRAP

cscLP

NN EANRAR D

gg}g

sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO0)

9816
9817
9818 077406
9819 077412
9820 077414
9821 077420
9822 077422
9823 077424
9827 077430
077430

:-t'ttt'n-t-tt-ttt-tnt-ttttttttttttt--tntttatttt-.tntttttt'tantttttt
013701
010102
052702
020102
001406

005237

0776432
077434
077436

104456
001336
102431
015564

077440

104406

9828 077440

9829 077442

gg%? 077446

012703

013737

101440

000002

002212

003114

T278FR+6,R1
R1,R2
#8IT1,R2
R1,R2
2408

;JPICK UP XSTO
JSET UP EXPECTED
;SET BOT BIT IN EXPECTED
;DOES EXP = REC'D
sBR, IF EQUAL (OK)

ERRHRD

ERRNO, T27BOT ,EXPREC

;TAPE NOT AT BOT AFTER REWIND
TRAP

INC

2408:

000024

MOV
MOV
BIS
CMP
BEQ

98372

A AN

JBUMP COUNT

JLOOP IF SELECTED

#20. ,R3

MOV
IR

9833

CKLOOP

MOV

101532

FATFLG

FREE.,T27RB

AN R A AN NN IR A N AR AR AN RN

734
T27BOT
EXPREC

TRAP

CSCLP

JSTARTING RECORD SIZE

;sSTARTING READ BUFFER ADDRESS
RN AR AR RN RN AANNN A IR RNARANNAND

gggg

sREAD DATA,ACK COMMAND

9836
9837
9838 077456
9839 077462
9840 077466
9841 077472
9842 077476
9843 077502
9844 077506

:'ttttnttttttttttttttQttt"ttfittttttttttttttt.ttttttttttttt'ttt'tttt

9845 077512

9846 077514
9847 077516
9851 077522
077522
077524

012737
012704
010337
010465
004737
016501
012702

020102

001406
005237

104406
013702
010304

9856 077546
9857 077550

060204
000303

162704

101530

265%:

CMP

280%:
003114

000024

Mov
MOV
MOV
MOV
JSR
MOV
MOV
8EQ
INC
ERRHRD

002212

104456
001337
005204
012136

077526
077530
9852 077532
077532
9853 077534
9854 077540

9855 077542

100001
101530
101536
000000
016340
000002
000200

R1,RO

280%
FATFLG
ERRNO,RDERR,PKTSSR

CKLOOP
MOV
MOV

285%:

#100001,127PK3
#T27PK3,R4
R3,T27S2
R4, TSDB(RS)
PC,WAITF
TSSR(RS) ,R1
#SSR _R2

SuB

ADD
SWAB

;READ DATA_ACK COMMAND
JSET UP R4 WITH PACKET ADDRESS
sSET UP RECORD SIZE IN PACKETY
; ISSUE COMMAND
JWAIT FOR SSR TO SET
JGET TSSR CONTENT
JSET UP EXPECTED

:ARE THEY EQUAL

;BR, IF 0K
;BUMP COUNT
JTSSR INCORRECT AFTER READ DATA
TRAP
CSERHRD
.WORD
735

JLOOP IF SELECTED
FREE ,R2
R3.R4

026..R4
R2.R4
R3

CSERHRD

MORD
.WORD
.WORD

.WORD
.WORD

RDERR
PKTSSR

TRAP

cscLP

JGET BUFFER ADDRESS
;GET RECORD SIZE

;POINT BACK TO 1ST RECORD

JPOINT TO 1ST LOC IN BUFFER
;SWAP BYTES SwB=1 ET(.

TSV7 = HARDWARE TESTS 1-8
TEST
7: WRITE DATA RETRY

9858 077552
9859 077554
9860 077556
9861 077560
9862 077562
9866 077566

077566
077570
077572
077524
9867 077576
077576
9868 077600
9869 077602
9870 077604
9871 077606
9872 077610
9873 077612
9874 077614

9875 077620
9876 077622

077622
9877 077624
077624
077624
9878 077626
9879 077634
9880 077636
9881 077642

021403
001410
011401
010302
005237

MACRO M1113

001315

CMP
BEQ
MOV
MOV
INC
ERRHRD

002212

2908$:

CKLOOP

3008 :

TST
sus
SWAB
CMP
BNE
TST
(MP
BNE
CkKLOOP

000046

104406
104403
023727
103402
004737

PAGE

(R4) ,R3
2908
(R4) ,R1
R3.R?
FATFLG
ERRNO,T27DTA,EXPREC

017272

000017
999s:

CMP
BLO
JSR

:DATA WRITTEN = READ
;JBR, IF DATA 0K (GOOD)
<PICK UP BAD DATA
JSET UP EXPECTED
JBUMP COUNT
JDATA N BUFFER NOT CORRECT

;LOOP IF SELECTED
(R§)+
R2.R4
R3
R4 ,R3
2858
(R3)+
R3,#38.
265%

TRAP
.WORD
.WORD
.WORD

CSERHRD
736
T27DTA
EXPREC

TRAP

cscLP

;BUMP TO NEXT ADDRESS
JBACK TO RECORD SIZE
JPUT R3 BACK INTO SHAPE
;AT END OF RECOR. YET
;BR, IF MORE DATA TO CHECK
;BUMP RECORD SIZE
;DONE YET
:BR, IF NOT DONE YET (MORE READS)
;LOOP IF SELECTED

TRAP

ENDSUB

002212

146-~4
SEQ 0342

104456
001340
104416
015564
104406
005724
160204
000303
020403
001356
005723
020327

25-MAY-82 09:19

FATFLG,#5.
999%
PC,CKDROP

CSCLP1

JO33553535>>> END SUBTEST >>>5>>>>>>5>>>
L10126:
TRAP
CSESUB
;IS ERROR COUNT AT 2§
;JBR, IF LESS THAN 25
JTRY TO DROP THE UNIT

TSV7 ~ HARDWARE TESTS 1-8

TEST

7: WRITE DATA RETRY

MACRO M1113

9883
9884

25-MAY-82 09:19

H 1N
PAG E 147

SEQ 0343

STEST 7, SUBTEST 5
;VERIFIES THAT A WRITE DATA RETRY COMMAND IS
;PERFORMING THE °‘‘ERASE'' PART OF THE OPERATION BY

;PERFORMING THE FOLLOWING SERIES OF

STEPS.

THE TAPE IS REWOUND AND A SERIES OF RECORDS ARE

WRITTEN WITH THE NORMAL WRITE DATA COMMAND.

.
[}

THE TAPE 1S AGAIN REWOUND, THE SPACING COMMAND
ISSUED, AND THE NUMBER OF TIMMING LOOP CYCLES
COUNTED TO COMPLETE THE OPERATION.

o
(¥,1

THE TAPE IS AGAIN REWOUND AND THE SAME SERIES OF
RECORDS WRITTEN AGAIN, THIS TIME USING THE WRITE
DATA RETRY COMMAND. THIS SHOULD RESULT IN
RECORDS SEPARATED BY A LONG INTERRECORD GAP.

THE TWO LOOP COUNTS ARE COMPARED, CHECKING TO SEE
THAT

9919 077642

077642
077642
9920 077644
9921 077650
9922 077654
9923 077660
9924 077664
9925 077670
9929 077674

THEY DIFFER BY A SIGNIFICANT AMOUNT.

BONSUB

104402
005037
005037
005037
004737
004737
004737
012737

CLR

T27CNT
T27CNU
PC,T27REST
PC.TI7RT2
PC,T27RTY3

MOV

101562
SRR

333333535534 BEG§NSSUBTEST b3 3333 PP
17.5:
TRAP
($BSUB
JINTERRUPT INDICATOR

INTRECV

CLR
CLR
JSR
JSR
JSR

THIS

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
g?EPSERIES OF RECORDS WRITTEN IN PREVIOUS

SHOULD RESULT IN RECORDS SEPARATED BY THE
STANDARD INTERRECORD GAP.

STIMER FOR WRITE DATA
JTIMER FOR WRITE DATA
JSET COMMAND PACKET
:SET UP OTHER COMMAND
JSET UP OTHER COMMAND

#65000.,7270LY

AR AR

:SET UP DELAY COUNTER
e

SPACING
RETRY SPACING
PACKET
PACKET

2222222

:ISSUE CONTROLLER *'SOFT'* INITIALIZE - CARRY BIT CLEAR IF ERROR
.

FAAARA

3
9934 77702
9935 077706
9936 077710
077710

004737
103426

016064

012727

000250

108:

JSR

BCS
DELAY

PC,SOF INIT

208
250

2222222222)

;DO INITIALIZE ON CONTROLLER

sBR IF INIT WAS OK
sDELAY ABOUT .25 SEC

MOV

#250, (PC)

—_——

TSV7 = HARDWARE TESTS 1-8
TEST
7: WRITE DATA RETRY

077714
077716
077722
077726
077730
077732
077736
9937 077740
9938 077744
9939 077746
9943 077752
9944 077754
077754
077756
077760
077762
9945 077764

9946
9947 077772

000000
013727
000000
005367
001375
005367
001367
005337
001356
005237
010001

MACRO M1113

25-MAY-82 09:19

IN
PAGE 147-1

SEQ 0344
.WORD

002116

177756

DEC

101562

T270DLY

BNE
INC
MOV

002212

104455

012704

101410

O
=6(PC)
.~

=22(P()
.=

DEC
BNE

sBUMP COUNTER

108
FATFLG
RO,R1

ERRDF

002172

LSOLY,(PC)+

.WORD
DEC
BNE

177772

001341
003650
012124
013737

MoV

¢BR, IF COUNTER NOT DONE

ERRNO,SFIERR,SFIMSG

cBUMP COUNT
+CONTENTS OF

TSSR REGISTER

sFATAL ERROR TSSR WAS NOT 0K
TRAP

CSERDF

737

.WORD

101430

208 :

.WORD
.WORD

SFIERR
SFIMSG

MOV

UNITN,T270SW

JSET UP UNIT NUMBER

MOV

#T27PACKET RS

s SUBROUTINE NEEDS PACKET ADDRESS

sWRITE CHARACTERISTICS COMMAND

R
9955
9956
9957
9961

077776
100002
100004
100010
9962 100012
100012

100022

004737

010752

005237
010001

002212

103407

RN R

JSR

PC,WRTCHR

INC

FATFLG

8(CS

TO WRTCHR)

AR E RN AR RN AR AN A R AN RN A AR TN NREE
cISSUE WRITE CHARACTERISTICS

238

MOV
ERRHRD

104456

001342
005054
012124

(CALL

¢BR, IF COMMAND ISSUED Ok

RO,R1
ERRNO,WRTMSG, SFIMSG

;BUMP COUNT

:SAVE CONTENTS OF TSSR
SWRITE CHARACTERISTISC FAILED
TRAP

CSERHRD

LWORD
.WORD

WRTMSG
SFIMSG

TRAP

cscLP

.WORD

23$:

104406

CKLOOP

;LOOP IF SELECTED
I

738

s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

N
100024
100030
100032
100036
100040
100044

100044
100046
100050
100052

100054
100054

004737
103411
016501
010004
005237

011104

002212

PC,REWIND

¢CALL

MOV
MLV

TSSR(RS) ,R1
RO,R4
FATFLG

JGET TSSR CONTENTS
sGET PACKET ADDRESS
cBUMP COUNT

INC
ERRHRD

106456

R AN AR R RN AR A NN AR ARSI R NAOR TN RO NS

ISR

BCS

000002

AR Rt
308

ERRNO,T27RWN,PKTSSR

:BR,

TAPE REWIND COMMAND

IF NO PROBLEM

sREWIND NOT ACCEPTED

001343

102735
012136

104406

TRAP

CSERHRD

.WORD

PKTSSR

TRAP

CSCLPY

LWORD
.WORD

308 :

(k.00P

;LOOP IF SELECTED

739
T27RWN

TSV7 =~ HARDWARE TESTS 1-8
TEST
7: WRITE DATA RETRY

MACRO M1113

MAASASAAA

9983

J N

25-MAY-82 09:19
LA

PAGE 147-2

AR Al Al

SEQ 0345

RIS

READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
[4

MALAALAASASAA

100056
100062
100064
100070

013701
010102
052702
020102
001406

005237

323
283

012703
013737

BIS

#8IT1,R2

BEQ

4«08

ERRHRD

ERRNO,T27BOT ,EXPREC

002212

JPICK UP XSTO

¢SET UP EXPECTED

sSET BOT BIT IN EXPECTED

R1,R2

INC

sDOES EXP = REC'D

¢BR, IF EQUAL (0K)

FATFLG

sBUMP COUNT

s TAPE NOT AT BOT AFTER REWIND

TRAP

CSERHRD

.WORD

EXPREC

TRAP

CSCLPY

LWORD
.WORD

40$:
000144
003114

ckLoop

;LOOP IF SELECTED

MoV

101532

#100. ,R3

MoV

740
T27B0T

sNUMBER OF RECORDS TO BE WRITTEN

FREE,T27WwB

S RANARAAARRAARNN A AN AN AR

sSTARTING WRITE BUFFER ADDRESS

N AN R ARAN RN NAR NN RARANANRANN RN NN AR

AREN

*WRITE DATA,ACK,CVC=1 COMMAND
.

VOO~V
b NN
NN = O

R I

R1,R2

CMP

SHW

—th; ’—:l—l

(=]
23888888
N b b b b b mdd b 8838 138

—y
g
S
S
A

000002

17005

ARl

T278FR+6,R1

MOV

10002

[

MOV

001344
102431
015564

104406

101440

104456

9998

174
174

100210

012737
012704
012737
010465
004737
016501
012702
020102
001406
005237

140005
101530
000024

101530

AN R AR AN AAN AN AN

AR AN

658:

MoV
MOV

#140005,T27PK3
#T27PK3 R4

:WRITE DATA,ACK,CVC=1 COMMAND
:SET UP R4 WITH PACKET ADDRESS

MOV
JSR
MOV
MOV

R4, TSDB(RS)
PC.WAITF
rssn<a5) R1
#SSR,R2

:1SSUE COMMAND
SWAIT FOR SSR TO SET
:GET TSSR CONTENTS
SSET UP EXPECTED

101536

MOV

000002
000200

002212

001345
005111
012136

#20.,127s2

:SET UP RECORD SIZE IN PACKET

CMP
8EQ

R1,R2
70$

ERRHRD

ERRNO,WRTERR,PKTSSR

INC

104456

E TR R AN AARA RN R NANN NN AN NN AN RARNAARARCRNNCNNEN

*ARE THEY EQUAL
:BR, IF OK

FATFLG

*BUMP COUNT

sTSSR INCORRECT AFTER WRITE DATA
TRAP
CSERHRD

.WORD

708:

104406
005303

CkLOOP

sLOOP IF SELECTED

DEC
BNE

001345

AL AR

SRR

R3
65%
A

WRTERR
PKTSSR

TRAP

cscLPl

sDEC RECORD COUNTER
:BR, IF MORE RECORDS TO WRITE

3222222

SISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
.

FAAAA A

100212
100216
100220

004737

011104

016501

000002

103411

AR AR AR

RSl

2222222222

JSR

PC,REWIND

;CALL TAPE REWIND COMMAND

MOV

rssn<ns>,n1

SGET TSSR CONTENTS

BCS

1308

:BR, IF NO PROBLEM

741

.WORD
.WORD

TSV? = HARDWARE TESTS 1-8
TEST
7: WRITE DATA RETRY

10035 100226
10036 100226
10040 100232
100232
100234
100236
100240
10041 100242

10042 100242

010004
005237

MACRO M1113

v 11

25-MAY-82 09:19

PAGE

147-3
SEQ 0346

MOV
INC
ERRHRD

002212

104456
001346
102735
012136

1308$:

104406

RO,R4
FATFLG
ERRNO, T27RWN,PKTSSR

;JGET PACKET ADDRESS
;BUMP COUNT
JREWIND NOT ACCEPTED

CKLOOP

;LOOP IF

SELECTED

TRAP
.WORD
.WORD
.WORD

CSERHRD
742
TZ27RuWN
PKTSSR

TRAP

CSCLP

10043

10044

10047
10048

:-ttttttttttttttttttttttttttttttt.tttttttttt'ttttttttttt'ttttttttttt

%8822

Y S I

222222222

JREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)

10049
10050
10051
10052
10053
10054
10058

100244
100250
100252
100256
100260
100262
100266
100266
100270
100272
100274
10059 100276

100276
10060 100300
}882} 100304

013701
010102
052702
020102
001406
005237

101440

MOV
MOV
8IS
CMP
8EQ
INC
ERRHRD

000002
002212

104456
001347
102431
015564

104406
012704

012737

1408 :

101530
000010

T27BFR+6,R1
R1,R2
#BIT1,R2
R1,R2
1408
FATFLG
ERRNO,T27BOT,EXPREC

CKLOOP

MOV
MOV

101532

10063

#T27PK3 R4
#10,T27RB

10064

}8822

JPICK UP XSTO
JSET UP EXPECTED
;SET BOT BIT IN EXPECTED
;DOES EXP = REC'D
;BR, IF EQUAL (0K)
;BUMP COUNT
:TAPE NOT AT BOT AFTER REWIND
TRAP
WORD
.WORD
.WORD
;LOOP IF SELECTED

TRAP
JSET UP PACKET ADDRESS
sSET UP RECORDS TO SPACE OVER
Y Y

AR R

CSERHRD
743
T27BOT
EXPREC

cscLe

JACK,CVC=1,SPACE FORWARD COMMAND

10067
10068
10069 100312
10070 100320

10071 100324

10072 100330

10073
10074
10075
10076
10077
10078

100330
100334
100336
100342
100344
100350
100352
100356
100360
100364
100370
100372
100376
1006402

10079 100404

:-tntttntnntn.tttttttttttttttt-tntttuttt-ntntun'ntttt\ntttt-t.tntt
012737
010465

005237
012727
000000
013727
000000
005367
001375
005367
001367
016501
032701
001755
016501
012702
020201

001406

140010
000000

101556

000001

101530

1508:

1528:

MOV
Mov

#1640010,T27PK3
R4 ,TSDB(RS)

DELAY

;DELAY ABOUT 100US

TSSR(RS) ,R1
#RIT7.R1
152%
TSSR(RS) ,R1
#SSR,R2
R2,.R1

sGET TSSR
sCHECK FOR TSSR'S SSR SET
JKEEP COUNTING UNTIL SET
;GET STATUS FROM TSSR
;SET UP EXPECTED
JWAS EVERYTHING OK

INC

T27CNT

sACK,CV(=1,SPACE FORWARD COMMAND
; ISSUE COMMAND

:BUMP TIMER

002116
177772
177756
000002
000200
000002
000200

MOV
8IT
BEQ
MOV
MOV
CMpP

BEQ

1608

;BR, IF ALL IS WELL

MOV
.WORD
MOV
WORD
DEC
BNE
DEC
BNE

#,(PC)+
O
LSOLY,(PC)+
O
-6(PC)
.~4
=22(PC)
.~20

TSV7 - HARDWARE TESTS 1-8
TEST

7: WRITE DATA RETRY

10080 100406
10084 100412

100412
100414
100416
100420

10085 100422

100422

005237

MACRO M1113

25-MAY-82 09:19

002212

INC
ERRHRD

104456
001350
104177
012136

L 11
PAGE 147-4

SEQ 0347

FATFLG
ERRNO,T27SCF,PKTSSR

JBUMP COUNT
+SPACE FORWARD DIDN'T WORK OUT
TRAP

160%:

104406

CKLOOP

;LOOP IF SELECTED

AN AN RN AN NN AR AN AN AN NN AR

AN AN NN A RAN RN RN AR N AN RN NANRINANAAN RN NN

CSERHRD
744
T27SCF

.WORD
-WORD
.WORD

PKTSSR

TRAP

cscLPl

AERS

*ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
4

10093
10094
10095
10096
10097
10101

100424
100430
100434
100436
100440
100444

004737
004737
103407
010001
005237

100446
100450
100452
10102 100454
100454

001351

100444

01
01

AR AR A

AN A AN

AN RN NN RN AN NN RN A AN

JSR
JSR

PC.REWIND
PC.CHKTSSR

MOV
INC
ERRHRD

RO,R1
FATFLG
ERRNO, T27RWN,PKTSSR

BCS

104456

170$

AANN RN RN ANANIR

sCALL TAPE REWIND COMMAND
;SEE HOW TSSR IS
sBR, IF NO PROBLEM
s SAVE TSSR
;BUMP COUNT
SREWIND NOT ACCEPTED

TRAP
.WORD

102735

012136

1708:

104406

CKLOOP

sLOOP IF SELECTED

CSERHRD

745
T27RWN

-WORD
.WORD

PKTSSR

TRAP

CSCLP

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTD)
.

b =d OO
=0 O

»H

b=
(=]

NN RR NN AN

b d e b b
VWV
W

Qe
Qhnr Ghur Gour PG
ey

b
b
d
b
b
i
e
d ed
b

COO0O0O0O00O0O

SRR AR RN AN AN AN AR NN NN R AR AR AR AN AN RN N RN R AN AN AN A AR AN R AR NN RN RARNARNRER Y

510
510
512
516

013701
010102
052702
020102
001406
005237

101440

MoV
MoV
81$
CMP

000002

BEQ
INC
ERRHRD

002212

104456
001352
102431
015564

104406

012703
013737

RN AN R AR NANA AT

R AR AR NN ARANRA N RN RN RN ANRARN AN

T278FR+6,R1
R1,R2
#81T1,R2
R1,R?

175%

FATFLG
ERRNO,T27B0T,EXPREC

;PICK UP_XSTO
:SET UP_EXPECTED
:SET BOT BIT IN EXPECTED
:DOES EXP = REC'D
:BR. IF EQUAL (OK)
;BUMP COUNT
:TAPE NOT AT BOT AFTER REWIND
-WORD
.WORD

CSERHRD
746
127807
EXPREC

TRAP

CsCLP

TRAP
-WORD

000144
003114

101532

1758:

CKLOOP

1778:

MOV
MOV

sLOOP IF SELECTED
#100. .R3
FREE.T27w8

SRR AR N RN AR RN RN AN RN NN NN R

:STARTING RECORD SIZE
sSTARTING WRITE BUFFER ADDRESS
R RN A RARA NN A RN R A RN ANANNR RN

TR AR RRNANRENRS

*WRITE DATA,CVC=1,ACK COMMAND
.

30 100524

012737

140005

101530

RN RN RN

MOV

AN A NN NN NN A R R RN RN

#140005, 127PK3

AR AN RN E AR AN RN RN R AN

AR AR

AR RACANNNY

SWRITE DATA,CVC=1,ACK COMMAND

TSV7 = HARDWARE TESTS 1-8
TEST
7: WRITE DATA RETRY

b
b
b —D
b o
d

39
43

012704
012737
010465
004737
016501
012702
020102
001406
005237

101530
000024
000000
016340
000002
000200

#127PK3,Ré4

MOV
JSR
MOV
MOV

RG, TSDB(RS)
PC.WAITF
TSSR(RS) ,R1
#SSR,R2

BEQ

1808

INC

ERRHRD

104456

M1
PAGE 147-5

MOV

CMP

002212

001353
005111
012136

25-MAY-82 09:19

MOV

101536

md
d
b
e
b
d
e
b

eleleleleleleloTe]

10131 100532
132 100536
33 100544
34 100550
35 100554
36 100560
37 100564
38 100566

MACRO M1113

#20.,12752

SEQ 0348
;SET UP R4 WITH PACKET ADDRESS

*SET UP RECORD SIZE IN PACKET

:ISSUE COMMAND
‘WAIT FOR SSR TO SET
*GET TSSR CONTENTS
SSET UP EXPECTED

R1,R2

*ARE THEY EQUAL

FATFLG

*BUMP COUNT

ERRNO,WRTERR,PKTSSR

{BR,

IF OK

STSSR INCORRECT AFTER WRITE DATA
TRAP
CSERHRD

JWORD

1808:

1046406

005303
001342

CKLOOP

DEC
BNE

;LOOP IF SELECTED

R3
177%

747

WORD
.WORD

WRTERR
PKTSSR

TRAP

CSCLPT

:COUNT NUMBER OF RECORDS
:BR, IF MORE RECORDS TO WRITE

NN
=

b
nd

:ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE

VIiwnaW

;ttttttttttttttttttttttt'ttttt.ttttttttti.tttt'ttt'tttttttttttltttt

;ttttttttttttttttttttttttttttttttttttttttttitttttttt"tttt'ttt'fit't

—

100612
100616
100620
> 100622
100626
100632
100632
100634
100636
100640
10163 100642
100642
10164
10165
10166
10167
10168
10169
10170
10171
10172
10173
10174
10175
10176
10177
10181

004737
103411
010004
016501

005237

011104

000002
002212

PC ,REWIND

MOV
MOV
INC

RO, R4
TSSR(RS),R1
FATFLG
ERRNO, T27RWN,PKTSSR

ERRHRD

104456

001354
102735
012136

JSR

BCS

182$

;1SSUE REWIND

‘BR, IF ALL IS WELL

*GET PACKET ADDRESS
:GET TSSR CONTENTS
*BUMP COUNT

SREWIND FAILED

CSERHRD

"WORD

PKTSSR

TRAP

CSCLP1

.WORD
"WORD

1828:

104406

CKLOOP

;SELECT LOOP MAYBE

748
T27RWN

:'tttttttttttttttttttt'ittt'tttttttttttfitt'tt.itfiit.tttittttttttt't

:ISSUE _SPACE RECORDS COMFAND = VALUE IN R3 SETS NUMBER OF RECORDS

:BIT 15 SETS DIRECTION = O=FORWARD

1=REVERSE

Etttt.ttttttttQtttttttt'ttttttttttttttttttttfittttttttttttttttttt't'
012703
004737

000001
010556

MOV
JSR

M. .R3
PC.SPACE

;SPACE 1 RECORD FORWARD
SISSUE SPACE COMMAND

000002
002212

MOV
MOV
INC

RO, R4
TSSR(RS) ,R1
FATFLG

‘GET PACKET ADDRESS
SGET TSSR STATUS
*BUMP CGv o

BCS

ERRHRD

1858

ERRNO, T27SCF,PKTSSR

‘BR, IF COMMAND OK

*SPACE FORWA%U COMMAND FAILED
TRAP

CSERHRD

‘WORD

PKTSSR

.WORD
WORD

10182 100700

TRAP

1858:

CKLOOP

;LOOP IF

SELECTED

749
T27SCF

| TSV7 - HARDWARE TESTS 1-8
7: WRITE DATA RETRY

~0 0 00 00 0o OO 0O Qo 0D
=000
~NYO N~

e uerd

;NUMBER OF RECORDS TO BE WRITTEN
SSTARTING WRITE BUFFER ADDRESS

101005
101530

000024
000000
016340
000002
000200

—

100714
100722
100726
100734
196 100740
100744
100750
100754
100756
100760

CSCLP

Ettttt.t.tttt'ttttttfi't'tt'ttttttttttttttttttitt.ttttttt.tttt.ttt.t

d
D
D

101532

TRAP

#100.,R3
FREE,T27wB

d
D

MOV
MOV

SEQ 0349

Qoo Qo S

003114

d o

000144

N 11
PAGE 147-6

:WRITE DATA RETRY,ACK COMMAND

) ol

100706

104406

012703
013737

25-MAY-82 09:19

:t'Qttttttttttt.tttt.t'ttt'Q'tt'tttttt'tttttttttt't't'tttttttt'tttfi

b cod and and
—d

100700
3 100702

[olelelelelelelolelolololels]

TEST

MACRO M1113

100764
100764
100766
100770
100772
100774

100774
100776

005237

101530

1908:

101536

;WRITE DATA RETRY,ACK COMMAND
SSET UP R4 WITH PACKET ADDRESS

MOV
JSR
MOV
MOV

RG, TSDB(RS)
PC.WAITF
TSSR(RS) ,R1
#SSR,R2

s 1SSUE COMMAND
:WAIT FOR SSR TO SET
*GET TSSR CONTENTS
SSET UP EXPECTED

BEQ

2008

MOV

002212

INC
ERRHRD

104456

013737

#101005, T27PK3
AT27PK3 R4

CMP

#20.,12752

SSET UP RECORD SIZE IN PACKET

R1,R2

SARE THEY EQUAL

FATFLG
ERRNO, T27WDC,PKTSSR

SBUMP COUNT
:TSSR INCORRECT AFTER WRITE DATA

:BR,

IF OK

TRAP

001356
103271
012136

104406

MOV
MOV

2008:
003114

101532

CKLOOP
MOV

:LOOP IF SELECTED
FREE,T27WB

CSERHRD

.WORD
"WORD
"WORD

750
T27wDC
PKTSSR

TRAP

CSCLP1

;STARTING WRITE BUFFER ADDR:SS

‘WRITE DATA,CVC=1,ACK COMMAND

rur Ghoergurd

140005
101530

MOV
MOV

101536

000002
000200

1046

10229 101064
101064
10230 101066
10231 101070
10232
10233
10234

001406
005237
104456
001357
005111
012136
104406

:WRITE DATA,CVC=1,ACK COMMAND
SSET UP R4 WITH PACKET ADDRESS

R4, TSDB(RS)

s 1SSUE COMMAND

#20.,12752

JSR
MOV
MOV

PC.WAITF
TSSR(RS) ,R1
#SSR,R2

CMP

BEQ
INC
ERRHRD

002212

#140005,T27PK3
#T27PK3 R4

MOV

016340

(=]

GurPuer Gy

000024
000000

101530

b o

b md e

Ettttt*'ttttttttttttttt."ttttttttttttttttttt'ttttltfittt'tittttt"t
=lelolelolalelele]

b
b md
D cmd
b
b
b

VOO NV
NN =

—t

—a—hu-az;_nSE;E;

[e]elelolela
NINNINININLNINOND

:tittttttttttttttttttt'ttttt'tttttttttfi'*tttttittttttfittttttttttttt

:SET UP RECORD SIZE IN PACKET

sWAIT FOR SSR TO SET
:GET TSSR CONTENTS
*SET UP EXPECTED

R1,R2

2108
FATFLG
ERRNO,WRTERR,PKTSSR

SARE THEY EQUAL

:BR, IF OK
‘BUMP COUNT
STSSR INCORRECT AFTER WRITE DATA
TRAP

.WORD

2108:

005303
001311

CKLOOP
DEC
BNE

AL
»

ARAA AR

:LOOP IF SELECTED
R3
1908
RSl

(SERHRD

751

-WORD
"WORD

WRTERR
PKTSSR

TRAP

CS$CLP1

;BUMP DOWN RECORD COUNTER
:BR, IF MORE RECORDS TO WRITE RETRY
el

222

TSV7 ~ HARDWARE TESTS 1-8
7: WRITE DATA RETRY

10239 101072
10240
10261
10242
10243
10247

101076
101100
101104
101106
101112
101112
101114
101116
101120
10248 101122
101122
10249
10250
10251
10252
10253
10254
10255
10256 101126
10257 101130
10258 101132
10259 101136
10260 101140
10261 101142
10265 101146
101146
101150
101152
101154
10266 101156
101156
10267 101160
10268 101164
10269
10270
10271
10272
10273
10274
10275
10276 101172
10277 101200
10278 101204
10279 101210
101210
101214
101216
101222
101226
101230
101232
101236

B 12
147-7

PAGE

SEQ 0350

10235

10236
10237
10238

25-MAY-82 09:19

s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE
.

:t'ttttt.'t*Qtttttt.Q'tt""t.'tttQttttfit..'.t't'.fi.tt.tt't"..'t"

004737

103411
016501
010004
005237

011104

JSR

PC,REWIND

sCALL TAPE REWIND COMMAND

MOV
MOV
INC
ERRHRD

TSSR(RS) ,R1
RO,R4
FATFLG
ERRNO, T27RWN,PKTSSR

sGET TSSR CONTENTS
sGET PACKET ADDRESS

BCS

000002
002212

104456
001360
102735
012136

2308:

104406

2308

(CKLOOP
RN AR

:BR, IF NO PROBLEM

sBUMP COUNT

sREWIND NOT ACCEPTED

sLOOP IF SELECTED

AR AN NN AN AN RN N AN AARNR NN A NAN N RN NN ANA NN

TRAP
.WORD
.WORD
-WORD

PKTSSR

TRAP

cscLP

CSERHRD
752
T27RWN

AR RN RNANRCR TR

:READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO)
.

013701
010102
052702
020102
001406
005237

101440

MOV
MOV
BIS
CMP
BEQ
INC
ERRHRD

000002

002212

104456
001361
102431
015564
104406

012704
012737

AR AN AAANAA AN AR N RN RO

AN NN RARNN NN A RN ANN N NN AR ANAANNAR NN

T27BFR+6,R1
R1,R2

#81T1,R2
R1,R2
2408
FATFLG
ERRNO, T27BOT,EXPREC

;PICK UP XSTO
SSET UP EXPECTED
:SET BOT BIT IN EXPECTED
:DOES EXP = REC'D
:BR, IF EQUAL (OK)
*BUMP COUNT
*TAPE NOT AT BOT AFTER a;:xgo
A

.WORD
-WCRD

2408:
101530
000010

CKLOOP
MOV
MOV

101532

:LOOP IF SELECTED
#T27PK3, R4
#10,127R8

;SET UP PACKET ADDRESS
:SET UP RECORDS TO SPACE OVER

CSERHRD
753
727807
EXPREC
CSCLPY

:tt'i.'Q.'QQ.Q.'Q'..""'.t"'..t..tt..fitt".'.'.Qt...tt't'."fi..‘.

$ACK,CVC=1,SPACE FORWARD COMMAND

E't"...'tt't"t..tt’.."'t....ttt.Qfi.Qt'.Q.Q.Qi...!.tt""t"'.'Q'
012737
010465
005237
012727
000000

013727

000000
005367
001375
005367
001367

140010
000000
101560
000001
002116

177772

177756

101530

2508:

252%:

MOV

MoV

INC

DELAY

#160010, T27PK3

R4, TSDB(RS)

:ACK,CVC=1,SPACE FORWARD COMMAND
+1SSUE COMMAND

:DELAY ABOUT 100US

T27CNU

:BUMP TIMER

MOV

.WORD
MOV
.WORD
DEC
BNE
DEC
BNE

#1,(PC)+
o

TEST

MACRO M1113

b‘DLV.(PC)‘

=6(PC)
=4

=22(P()
.=20

—

TSV? -~ HARDWARE TESTS 1-8
TEST
7: WRITE DATA RETRY
ololele

MOV

000002
000200

MOV
MOV

BIT
BEQ

CMP
8EQ
INC
ERRHRD

002212

104456

TSSR(RS)
,R1
#8i17,R1

2528

TSSR(RS)
,R1

SEQ 0351

;GET TSSR

sCHECK FOR TSSR'S SSR SET

JKEEP COUNTING UNTIL SET
JGET STATUS FROM TSSR
JSET UP EXPECTED

;WAS EVERYTHING 0K

FATFLG

ERRNO, T27SCF ,PKTSSR

JBR, If ALL IS WELL
;BUMP COUNT
sSPACE FORWARD DIDN'T WORK OUT
TRAP

CSERHRD

.WORD

PKTSSR

TRAP
JTIME FOR WRITE SPACING
JTIME FOR WRITE RETRY SPACING

CsCLPY

.WORD
.WORD

104177

012136

—t
—

:
2608
—

104406

013701

sus
su8
suB
8IC
8IC
CMP
BEQ
INC
ERRHRD

b e
b
b

002212

cKLOOP
MOV
MOV

000077
000777

b
e
b o
d
b
D d
b md and cnd
b

¢ 12

PAGE 167-8

001362

104456

JLOOP IF SELECTED

T27CNT,R1
T27CNU.R2
R1,R2
R1.R2

#77 ,R2

#000777
,R1
FATFLG

ERRNO, T27TIM,EXPREC

001363

;GET'EM PRETTY CLOSE
JGET'EM PRETTY CLOSE
JCLEAR LOW 6 BITS
JSETTING UP CONSTANTS
JCHECK FOR DIFFERENCE
s8R, IF GOOD ada® CHECK @aaa
;BUMP COUNT

sTIME WAS NOT DIFFERENT ENOUGH
TRAP

102524

015564

3008:

104406

104403
023727
103402
004737

004737
103002
000137
104432

003304

002212
017272

000017
999%:

016546
074736

163$:

ckLoopP

;LOOP IF SELECTED

ENDSUB

s €L

CMP
8LO
JSR

FATFLG,#15.

999

PC.,CKDROP

754
T27SCF

JGET'EM PRETTY (CLOSE

.WORD
.WORD

b e
e
b o
b md
i
b cd o
b
b wnd cnd
b

OOV
NOWVISHWN=O 0

W W W AN AN N N N NN NN
N b cnd d b b od b cnd b b o

b md cnd wd

b o

cd wd e

j=lelelaleleloelelalelole)

b cnd

10308

10307

25-MAY-82 09:19

000002
000200

nd
o
o
o
o
o
b i
D
D
b od
D
D
D

016501
32701
01755
16501
12702
020201
001406
005237

b
D
b

b e

b e e

=leleleldle]lolelelelolelelalelelelelaldlalelelalelelololelalelelolalalolata]

10280 101240
10281

MACRO M1113

END

EXPREC

TRAP

cscLP

TRAP

CSESUB

>5355555>5>>

;IS ERROR COUNT AT 25
sBR, IF LESS THAN 2§

;TRY

755
T27TIM

LWORD
SUBTEST

L10127:

CSERHRD

TO DROP THE UNIT

JSR
BC(C
JMP

PC,TSTLOOP

1638

127L00P

;D0 WE NEED TO ITERATE TEST
;BR, IF NO LOOP REQUIRED
SEXECUTE AGAIN

EXIT

TST

JALL DONE THIS TEST

TRAP

LWORD

CSEX]T

L10122~.

TSV7? = HARDWARE TESTS 1-8
TEST
7: WRITE DATA RETRY

10322

101412
101414
101416
01420
101420
101422
1014246
101426
101430
101432

100004
101420
000000
000012
101432
000000
000024
000000
000000

}8%2}

SEQ 0352

T27PACKET:
.WORD

T27DATA:

T27DSW:
T78FR:

.WORD
WORD
.WORD

100004
T27DATA
O
10.

.WORD
WORD
.WORD
.WORD
.WORD
.BLKW

T27BFR
O
20.
0
O
25.

;COMMAND PACKET FOR TEST
JWRITE CHARACTERISTICS COMMAND, WITH , ACK

;ADDRESS OF CHARACTERISTICS BLOCK

;STARTING VALUE OF BLOCK SIZE
;CHARACTERISTICS DATA BLOCK
:ADDRESS OF MESSAGE BUFFER
;LENGTH OF MESSAGE BUFFER

sSELECT DRIVE 0
JMESSAGE BUFFER

JWRITE SUBSYSTEM MEMORY COMMAND PACKET
101520
101520
101522
101524
101526

10355 101530

10356 101530
10357 101532

10358 101532
10359 101534
10360 101536

10361

10362
10363
10364
10365 101540
10366 101540
10367 101541

10368 101542

10369 101544

10370
10371
10372
}8352

10375
10376
10377
10378

D 12
14 8

PAG E

;LOCAL STORAGE FOR THIS TEST

10328 101410
10329 101410

10344
10346
10347
10348
10349
}8§§?

25-MAY-82 09:19

}ggsz

10330
10331
10332
10333
10334
10335
10336
10337
10338
}8528

MACRO M1113

101520

100006
101540
000000
000006
100005

003114
000000
000000

010
200
000000
000000

T27PK2:

T27PK3:
T27RB:
T27wB:
T27SZ:

:
:
:
T278F2:
127850:
1278S1:

127S2:

72753:

.=<.+10>8177770

.WORD
.WORD
WORD
.WORD

100006
T278BF2
O
6.

JWRITE SUB SYS MEM COMMAND,
AND ACK
sADDRESS OF SELECT BLOCK DATA

.WORD

100005

JREREAD COMMAND, AND ACK

.WORD
WORD
.WORD

FREE
0
O

;ADDRESS OF WRITE BUFFER
:SIZE OF BUFFER (EXTENT)

.BYTE
.BYTE
.WORD
.WORD

10
200
0
O

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

.EVEN

:SI2E OF DATA PACKET

:
:

.EVEN
;TAPE MOTION PACKET COMMAND VALUES
101546
101550
101552
101554

100205
100605
102205
177777

T27RN:
T27WDR:
T27CON:

.WORD
.WORD
.WORD
WORD

100205
100605
102205
177777

sREREAD DATA (NEXT)
:REREAD DATA RETRY
JWRITE CONTINOUS
:END OF DATA

10381 101556
10382 101560
10383 101562

000000
000000
000000

T27CNT:
T27CNU:
T27DLY:

WORD
.WORD
.WORD

O
O
0

JTAPE TIMER COUNTER STORAGE AREA
sTAPE TIMER COUNTER STORAGE ~REA
JDELAY COUNTER

TSV7 - HARDWARE TESTS 1-8
TEST
7: WRITE DATA RETRY

MACRO M1113

10386
10387
10388
10389

25-MAY-82 09:19

E 12

PAG E 14 9

SEQ 0353

X
sLOCAL TEXT MESSAGES FOR TEST
:=

10392 101564
10393
10394
10395
10396
10397
10398
10399
106400
10401
10602
10403
10404
10405
104C5
10407
10408
10409
10410
104611
10412
10413
10414

101652
101721
102016
102100
102150
102225
102306
102342
102431
102524
102601
102660
102735
103004
103057
103126
103201
103271
103344
103417
103472
103561

10416
10417
10418
10419
10420
104621
10422
10423
10424
10425
10426
10427
10428
10429

103725
104013
104101
104177
104256
104336
104416
104513

10415 103643

10430
10431
10432 104534
10433 104534
10434 104540
10435 1045446
10436 104550
10437 104554
10438 104556
10439 104562
10440 104566
10441 104570
10442 104574

1264

124
122
120
122
124
1
122
124
124
127
122
124
122
122
124
104
124
124
103
124
127
122

122

122
122
127
124
124
124
104
127

141

160

T27WNG:

.ASCIZ

‘Tape Position Incorrect After REREAD Previous (OPP=1)*

123
105
117
m
123
154
105
123
141
122
105
123
145
101
123
162
123
123
126
123
122
145

123
122
123
102
123
154
122
123
160
111
122
123
167
115
123
151
123
123
103
102
111
141

T27RDF:
T27RRF:
1275C:
T27LOR:
T27WDF:
T27L0Q:
T27SSR:
T27WDE:
712780T:
T27TIM:
T27€E0T:
727TM:
T27RWN:
T27RNC:
T27AM3:
T270FL:
T127uDD:
T27WDC:
T27VCK:
T27BA:
T27wSS:
T27LON:

145
145
122
123
123
123
141
162

163
141
111
123
123
123
164
151

T127PBP: .ASCIZ
‘Residual Byte Count Incorrect After Short Record Read'
T27TRL: .ASCIZ
'Readtng Long Record
Failed To Give Tape Status Alert’
T27NEF: .ASCIZ
‘'WRITE
DATA RETRY, At First Record, Failed To Set RIB Bit XST3'
T27SCF: .ASCIZ
'TSSR Not Correct After SPACE RECORDS Command'
T27TSA: .ASCIZ
°‘TSSR Not Correct After WRITE DATA RETRY, Into BOT'
T27WRF: ,ASCIZ
'TSSR Not Correct After WRITE DATA RETRY Command'
T27DTA: .ASCIZ
‘Data Compare Error, Data Read From Tape Not Equal Tn Written'
TST271D:
.ASCIZ
‘Write Data Retry'
.EVEN
;¢
:
cROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES
JWRITE SUBSYSTEM MEMORY COMMAND
:

145

1641

T27LOP:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
ASCIZ
.ASCIZ
,ASCIZ
.ASCIZ
.ASCIZ
._ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCI2Z
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

°'TSSR Incorrect After READ DATA Command’
.
‘'REREAD Previous (Space Reverse, Read Forward) Command Failed'
‘'POSITION (Space Command) Failed, TSSR Not Correct’
‘'RIB NOT SET AFTER READ REVERSE INTO BOT'
‘'TSSR Not Correct After Illegal Mode Bits Set’
'lllegal Mode Bits, Failed To Set ILC Bit In XSTO'
°'REREAD COMMAND Not Accepted’
°'TSSR Not Correct After WRITE DATA RETRY Command,At BOT'
‘Tape Not At BOT After REWIND Command (BOT Not Set In XSTO)®
‘WRITE DATA RETRY''S Erase Tape Not Long Enough’
°REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT’
°'TSSR Not Correct After REREAD COMMAND Reject’
'Rewind (POSITION) Command Not Accepted®
°'RAM Error, Correct Data Pattern Not In Ram'
"TSSR Init. Failed After REREAD COMMAND'®
'Drive 7 Select Failed To Set ‘OFL'' In TSSR*
‘TSSR Not Correct After REREAD DATA Command, SWB Bit Set'
°'TSSR Not Correct After REREAD DATA Command’
‘'CV(C Set, Didn'‘t Reset V(K In Message Buffer®
'TSBA Not Correct After REREAD DATA {ommand’
‘'WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)’
‘Reading Long Record Failed To Set RLL Bit In XSTOQ'

.ASCIZ

‘Reading Long Record Failed To Set RLS Bit In XSTO®

SAVREG
MOV
MOV
MOV
CLR
MoV
MOV
CLR
MOV
CLR

#T27PACKET ,R1
#100004, (R1) +
#T27DATA, (R1)+
(R1)+
#10.,(R1)+
#T27BFR,(R1)+
(R1)+
#20.,(R1)+
(R1)+

‘-

T27REST:

012701
012721
012721
005021
012721
012721
005021
012721
005021

101410
100004
101420

000012
101432
000024

JSAVE THE REGISTERS
;START OF THE PACKET
JWRITE SUBSYSTEM MEM, WITH ACK,
:ADDRESS OF CHARAISTICS DATA BLOCK
cEXTENDED ADDRESS
sSIZE OF DATA BLOCK IN BYTES
;ADDRESS OF MESSAGE BUFFER
sLENGTH OF MESSAGE BUFFER

———

TSV? -~ HARDWARE TESTS 1-8
TEST
7: WRITE DATA RETRY

10443 104576

10444 1064602
10445 104606

10446
10447
10448
10449
10450
10451
10452
10453
10454
10455
10456
10457
10458
10459
10460
10461
10462
10463
10464
10465
10466
10467
10468
10469
10470
10471
10472

1046614
104616
104622
104626

012711
012702
012762
005742
022702

101432

25-MAY-82 09:19

648$:

000000

MOV
MOV
Mov
TST

cMP
BNE
RTS

106626
1064626
104632
106636
104642

T27RT2:

104646
104650

104654
104656
104662
104664
104666
104670
104670
104674
104700
104702
104704
104706
104710
104712
104712
104712

000000
000030
177777

MACRO M1113

101520
100006
101540

SAVREG
MOov
MOV
MOV

000006

MOV

101540

CLR

012701
005021
005021
005021
005011
000207
104401

101530

#0.(R1)
02, R2

#177077 ,1278FR(R2)

~(R2)
#0,R2

64$

#T127PK2
,R1
#100006,(R1)+
#T1278F2,(R1)+
(R1)+

SEQ 0354
sSELECT DRIVE Z2ERO
sNUMBER OF LOCATIONS TO BE CLEARED
sALL ONES TO MESSAGE BUFFER
sNEXT LOCATION
sAT END OF LOOP YET
;KEEP GOING UNTIL DONE
JRETI RN

cSAVE THE REGISTERS
sSTART OF THE PACKET

sWRITE SUBSYSTEM MEM.

sADDRESS OF DATA BLOCK
sEXTENDED ADDRESS

WITH ACK,

sSIZE OF DATA BLOCK IN BYTES

MOv

#6.,(R1)¢+
(R1)+
#T1278F2
R

RTS

JRETURN

#T127PK3
,R1
(R1)+
(R1)+
(R1)+
(R1)

;SAVE REGISTERS
sSET UP POINTER ADDRESS
s COMMAND SPACE
sADDRESS OF DATA BLOCK
SEXTENDED ADDRESS
:SIZE OF DATA TRANSFER BLOCK

CLR

CLR
CLR

T27RT3:

F 12
PAGE 149-1

SAVREG

MOV

CLR
CLR
CLR
CLR

RTS

ENDTST

(R1)+
(R1)

;POINT TO DATA SEL AREA

JRETURN

L10122:

TRAP

CSETST

TSV7 - HARDWARE TESTS 1-8
TEST

WR'TE/READ TAPE MARK

10474
10475
10476
10477
10478
10479
10480
10481
10482
10483
10484
10485
10486
10487
10488
10489
10490
10491 104714
104714
10492 104714
10493 104722
10494 104726
10499 104732
10500 104736
10501 104742
10502

MACRO M1113

25-MAY-82 09:19

LSBTTL

TEST

6 12

PAG E 15 0

SEQ 0355

8: WRITE/READ TAPE MARK

sTHIS TEST VERIFIES THAT THE WRITE
sPROPERLY.,

IS VERIFIED THAT

THE

TAPE MARK COMMAND OPERATES
TAPE MARK

]S WRITTEN ONTO TAPE

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

IN ADDJTION,

SINCE WRITE

TAPE MARK

IS THE FIRST

;SUBCOMMAND UNDER THE FORMAT COMMAND BEING TESTED, IT IS VERIFIED

sTHAT THE CLEAR VOLUME CHECK (CVC) BIT OPERATES PROPERLY AND THAT
sFORMAT COMMANDS WITH ILLEGAL MODE CODES ARE REJECTED.

JTHE TEST CONSISTS OF THE FOLLOWING 3 SUBTESTS

BGNTST

012737
005037
004737
012700
004737
012737

006446
003124
017364
112131
016600
000005

002170

#EPRT2 ,EPRTSW

MOV

#TST281D,R0O

MOV

#5,L00PCNT

JSR

10503
10504
10505

MOV
CLR
JSR

002206

18
KTENABLE
PC.KTOFF

PC,TSTSETUP

;SECONDARY ERROR MESSAGE

;TURN KT11 OFF
;TURN KT11 BACK OFF

THERE

JASCII MESSAGE TO IDENTIFY TEST
;DO INITIAL

TEST SETUP

sPERFORM S JTERATIONS

sJTEST 8, SUBTEST 1
SVERIFIES THAT A FORMAT COMMAND (WITH ANY LEGAL MODE
;CODE) WITH THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS
JREJECTED IF THE VOLUME CHECK (VCK) FLAG IS SET. ALL
sVALID MODE CODES ARE CHECKED.

104750
104750
104750
104750
104752
104756
104762
104766
104772
104774
105000
105002
105002
105004
105006
105010
105012
105020

105024

T28LOOP:

BGNSUB

33333353339 BEG%N1SUBTEST SI2323332>>>
78.1:

104402

004737
004737
004737
004737
103407

JSR
JSR
JSR
JSR

B8CS

INC
MOV
ERRDF

PC,T28REST
PC,T28RT?
PC,T28RT3
PC,SOFINIT

208

FATFLG
RO,R1
ERRNO,SFIERR,SFIMSG

TRAP

JSFT COMMAND PACKET
:5.T UP OTHER COMMAND PACKET
sSET UP OTHER COMMAND PACKET
;DO INITIALIZE ON CONTROLLER

;BR IF INIT WAS 0K

;BUMP COUNT
;CONTENTS OF TSSR REGISTER
JFATAL ERROR TSSR WAS NOT 0K
TRAP

WORD

110120

20%:

MOV

MOV
JSR

#7,128D0SW

#TOBPACKET,R
PC,WRTCHR

cs8suBs

JSET UP DRIVE NUMBER

.wJRD
.WORD

:SUBROUTINE NEEDS PACKET ADDRESS

*1SSUE WRITE CHARACTERISTICS

CSERDF

801

SFIERR
SFIMSG

TSV7 =~ HARDWARE TESTS 1-8
TEST
8: WRITE/READ TAPE MARK

1053
10532
10536
10537

105030
105032
105036
105040
105040

105042

10566

b
e
b
b
b
b

b b
b
b o
e
i

OV
WWW WNININININ)
= b = O
oo SMONNLO OO NOOMNNVO
SN

b o
b
b
i
b cnd
d wnd
b

10565

b e

10555
10556
10557
10558
10559
10563
10564

b wd

iclelelelelelelelalelelcl=lclelelelolalelolalele)

10554

VIV i

105044
105046
10538 105050
105050
10579 105052
10540 105056
10541
10542 105060
10543
10544
10545 105100
10546
10547
10548
10549
10553

5170

10569
10573

163407

005237
010001

MACRO M1113

8Cs
INC

002212

MOV

ERRHRD

104456

001442
005054
012124

104406

25-MAY-82 09:19

24$:

005737
001044

002216

112737
112737
012704
010465
004737
103407
010001
005237

000200

BNE

MOvVS8
Movs
MOV
MOV

000000
016426

JSR
8(CSs

MOV

002212

INC
ERRHRD

104456

249

FATFLG

RO,R1
ERRNO,WRTMSG,
SF IMSG

SEQ 0356

s8R, ]F COMMAND ISSUED Ok
:BUMP COUNT
sSAVE CONTENTS OF TSSR

sWRITE

CHARACTERISTISC FAILED
TRAP

10575

10576
10577 105232
10578 105236
10579 105242

WRTMSG
SFIMSG

CSCLPY
sCHECK FOR EXTENDED FEATURES SW SWITCH
:BR IF SWITCH IS ON
TRAP

EXTFEA
508
#200,71288S1

¢WRITE MISCELLANEOUS CONT/READ STATUS
sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH)
sWRITE SUBSYS MEM PACKET
s ISSUE COMAAND

#10, 728850

#T28PK2
R4

R4, TSDB(RS)
PC.CHKTSSR

WAIT FOR SSR

308

RO,R1
FATFLG

ERRNO, T28SSR,PKTSSR

sBR, IF NO ERROR
sERROR, SAVE TSSR
+BUMP COUNT
sTSSR NOT CORRECT AFTER ?:;fi MISCELLANEOUS

001443

.WORD

CSERHRD
803

012136

.WORD

PKTSSR

TRAP

CSCLP

TRAP
.WORD
.WORD
.WORD

CSERHRD
804

110725

104406

30s:

012704
012737
004737

110100
000007
010752

005237
010001

002212

103407

016501
032701
001006

005237

MOV
MOV

110120

JSR
8(s
INC

MOV

ERRHRD

104456
001444
005054
012124
104406

C(kKLOOP

50%:

000002
000100

NT28PACKET,R4
#7,7280SW
PC,WRTCHR

508

FATFLG

RO.R1
ERRNO,WRTMSG,
SF IMSG

:LOOP IF SELECTED

TSSR(RS)
R

#OFL ,R1

ERRDF

ERRNO,
T280F L, SF IMSG

60%

FATFLG

012124

60$:

65%:

(kLOOP
MOV
MOV
MOV
MOV

JSR

(R3),T28PK3

#T28PK3,
R4
R4, TSDB(RS)
PC.WALTF

WRTMSG

SFIMSG

TRAP
cscLP1
sGET TSSR CONTENTS
sCHECK FOR THE OFFLINE BIT SET
:BR, IF OFFLINE (GOOD)
sBUMP COUNT
;OFF LINE SHOULD HAVE BEEN SET (BAD)

TRAP

;LOOP IF SELECTED
#T28RN,R3

T28SSR

sSUBROUTINE NEEDS PACKET ADDRESS
sSELECT DRIVE 7
sISSUE WRITE CHARACTERISTICS
¢BR, IF COMMAND ]SSUED Ok
sBUMP COUNT
sSAVE CONTENTS OF TSSR
SWRITE CHARACTERISTISC FAILED

:SCOPE LOOP

BIT

BNE
INC

104455
001445

(KLooP
MOV

002212

111260

10574

CSERHRD
802

.WORD
.WORD
.WORD

ckLOOP
TST

000010
110210

H 12
PAGE 150-1

;POINTER FOR COMMANDS

.WORD
WORD

805
T28B0OFL

TRAP

cscLe

WORD

sTAPE READ COMMAND IN PLACE
;R4 = POINTER TO PACKET

: ISSUE COMMAND

;WAIT FOR SSR TO SET

CSERDF

SFIMSG

V7 =~ HARDWARE TESTS 1-8
TEST
B8: WRITE/READ TAPE MARK

10580 105246
10581 105252
10582 105256

10583 105260

10584 105262
10588 105266
105266
105270
105272
105274
10589 105276
105276
10590 105300
10591 105302
10592 105306
10593 105310
10594 105312
10595 105312
105312
105312
10596 105314
10597 105322
10598 105324
10599 105330

016501
012702
020102

000002
100306

005237

002212

001406

MACRO M1113

80$:

104406

104403
023727
103402
004737

177777
90$:

002212
017272

000017
999%:

I 12

PAGE

150-2

SEQ 0357

MOV
MOV
CMP

TSSR(RS) ,R1
JGET TSSR CONTENTS
#SSR!SC!OFL'BIT1!BIT2,R2
JSET UP EXPECTED
R1,R2
;ARE THEY EQUAL

INC
ERRHRD

FATFLG
ERRNUD,T28TM, PKTSSR

BEQ

104456
001446
111134
012136
005723
022713
001401
000746

25-MAY-82 09:19

80$

CKLOOP
ST
cmp
BEQ
BR

;BUMP COUNT
sTSSR INCORRECT AFTER FORMAT (MD
TRAP
CSERHRD

:LOOP IF SELECTED
(R3)+
8177777 ,(R3)
90$
65%

ENDSUB
CMP
BLO
JSR

:BR, IF OK ESP. FUNCTION REJECT

FATFLG,#15.
999%
PC,CKDROP

.WORD
.WORD
. WORD

806
T28TMTM
PKTSSR

TRAP

CSCLPY

sPOINT TO NEXT COMMAND
JEND OF THE COMMANDS YET

;BR, IF DONE
;MORE COMMAND(S)

TO GO

JO53533>3>>> END SUBTEST >>>>>>>>>>>>
L10131:
TRAP
CSESULB
;1S ERROR COUNT AT 25
;BR, IF LESS THAN 25
;TRY TO DROP THE UN]T

TSV? =~ HARDWARE TESTS 1-8
TEST

WRITE/READ TAPE MARK

MACRO M1113

25-MAY-82 09:19

J 12

PAGE

151

SEQ 0358

10601
10602

}8282

L4
:
STEST 8, SUBTEST 2

10605
10606
10607
10608
10609

SVERIFIES THAT A FORMAT COMMAND WITH AN ILLEGAL MODE
<CODE CAUSES FUNCTION REJECT TERMINATION WITH THE
SILLEGAL COMMAND (ILC) ERROR BIT SET. ALL ILLEGAL
*MODE CODES ARE CHECKED.
.

10610
10611

10612
10613 105330
105330
105330
10614 105332
10615 105336
10616 105342
10617 105346
10618
10619
10623
10624

105352
105354
105360
105362
105362

105364

;
;

104402
004737
004737
004737
004737
103407
005237
010001

003650
012124
013737
012704
004737
103407
005237

105422
105424
105426
10635 105430

001450
005054
012124

10633 105416
10634 105420
105420

002212

010001

002172
110100
010752

20$:

002212

248:

10636
10637
10638
10639

104406
012703
011337
013737
012704

10641
10642
10643
10664
10645

105462
105466
105472
1056476
105502

010465
004737
016501
012702
020102

000000
016340
000002
100206

10647 105506
10651 105512
105512
105514
105516
105520

005237

002212

10646 105506

110120

104456

012737

001406

104456
001451
110567
012136

PC,T28REST
PC.T28RT?
PC.T28RT3
PC.SOFINIT
208
FATFLG
RO,R1
ERRNO,SFIERR,SFIMSG

IOO555555>>> BEGIN SUBTEST >>>>5>3>>>>>
18.2:
TRAP
($8SUB
:SET COMMAND PACKET
SSET UP OTHER COMMAND PACKET
SSET UP OTHER COMMAND PACKET
DO INITIALIZE ON CONTROLLER
SBR IF INIT WAS OK
*BUMP COUNT
SCONTENTS OF TSSR REISTER
“FATAL ERROR TSSR WA} NOT OK
TRAP

.WORD

105430
105432
105436
105442
105450

10640 105454

JSR
JSR
JSR
JSR
BCS
INC
MOV
ERRDF

104455
001447

105366
105370
105372
105400
105404
105410
105412

10625
10626
10627
10628
10629

112156
112250
112312
016064

BGNSUB

110236
110220
003114
110220

000400

110222

110226

308:

MOV
MOV
JSR
BCS
INC
MOV
ERRHRD

UNITN, T280SW
#T28PACKET R
PC.WRTCHR
248
FATFLG
RO,R1
ERRNO,WRTMSG, SFIMSG

CKLOOP

.WORD
.WORD

;SET UP DRIVE NUMBER
*SUBROUTINE NEEDS PACKET ADDRESS
SISSUE WRITE CHARACTERISTICS
*BR, IF COMMAND ISSUED OK
*BUMP COUNT

*SAVE CONTENTS OF TSSR
SWRITE CHARACTERISTISC FAILED
TRAP

:LOOP IF SELECTED

.WORD
.WOKD
.WORD

MOV
MOV
MOV
MOV

#T281MV ,R3
(R3), T28PK3
FREE . T28RB
#T28PK3, R4

TRAP
:SET POINTER FOR COMMANDS
SSET UP NEXT COMMAND
SSTARTING WRITE BUFFER ADDRESS
SSET UP R4 WITH PACKET ADDRESS

MOV
JSR
MOV
MOV
CMP

R4, TSDB(RS)
PC.WAITF
TSSR(RS) ,R1
#SSR!SC'BIT1!BIT2,R2
R1,R2

:ISSUE COMMAND
*WAIT FOR SSR'BIT1!8IT2 TO SET
SGET TSSR CONTENTS
:SET UP EXPECTED
*ARE THEY EQUAL

FATFLG
ERRNO, T28WDF ,PKTSSR

*BUMP COUNT
STSSR INCORRECT AFTER READ DATA
TRAP
.WORD
"WORD
"WORD

MOV

BEQ

INC
ERRHRD

#256. 12852

75$

CSERDF
807

SFIERR
SFIMSG

CSERHRD

808
WRTMSG
SFIMSG

CS$CLPI

SSET UP RECORD SIZE IN PACKET

:BR, IF OK

CSERMRD
809
T2BWDF
PKTSSR

TSV7 = HARDWARE TESTS 1-8
TEST
8: WRITE/READ TAPE MARK

10652 105522
105522
10653 105524
10654 105530
10655 105532
10656 105536

10657 105540

10658 105542

10662 105546

105546
105550
105552
105554
10663 105556
105556

10664 105560
10665 105562
10666 105566

10667 105570
105570
10668 105572
105572
105572
10669 105574
10670 105602
10671 105604
10672 105610

104406
013701
010102
052702
020102
001406
005237

MACRO M1113

758 :
110130

001000
002212

ERRHRD

180$:

104406

177777

1908 :

104406
104403
023727
103402
004737

K 12

PAG E 15 1-1

JLOOP IF SELECTED
T28BFR+6,R1
R1,R2
#BIT9,R2
R1,R2
180%
FATFLG

017272

000017

999$:

sGET
JSET
JSET
JARE
;sBR,

ERRNO,T28LOC,EXPREC

IF EQUAL

;BUMP COUNT
JTHE

TST
c(mMp
BNE

CkLOOP

{R3)+
(R3) 177777
308

CMP
B8L0
JSR

TRAP

CS$CLP

MESSAGE BUFFER
UP EXPECTED
THE ILC BIT IN EXPECTED
THEY EQUAL
(ALL

IS WELL)

ILC BIT WAS NOT SET

IN XSTO

TRAP

CSERHRD

.WORD
.WORD
.WORD

810
T28L0Q
EXPREC

TRAP

csC: P

TRAP

cscLP

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

CSESUB

CKLOOP

;BUMP TO NEXT ADDRESS (COMMAND)
;CHECK FOR END OF COMMAND BUFFER
;BR, IF MORE COMMANDS TO TRY

JLOOP IF SELECTED

ENDSUB

002212

SEQ 0359

CkKLOOP
MOV
MoV
BIS
CMP
BEQ
INC

104456
001452
110644
015564
005723
021327
001323

25-MAY=-82 09:19

$23255555>>>> END SUBTEST >>>>>>>>>>>>
L10132:

FATFLG,#15.
999%
PC.CKDROP

;PROPERLY, AND THAT READ COMMANDS SUBSEQUENTLY ISSUED

sTO DETECT THE WRITTEN TAPE MARKS TERMINATE WITH TAPE
sSTATUS ALERT WITH THE TAPE MARK DETECTED

(TMK)

THE FOLLOWING SEQUENCE IS EXECUTED.

STATUS

THE CONTROLLER IS INITIALIZED AND TAPE REWOUND.
THIS SETS THE VOLUME CHECK (VCK) STATUS BIT.
A WRITE TAPE MARK COMMAND WITH CV(C=1 IS ISSUED
AND PROPER TERMINATION AND STATUS IS VERIFIED

[

1.
Y TR YA YA S I S
P SV S
&»H
W
~nN

;8IT SET.

WA I

[

(1.E.

10702
10703
10704
10705
10706
10707
10708
10709
10710
10711
10712
10713
10714
10715
10716

SEQ@ 0360

sVERIFIES THAT WRITE TAPE MARK COMMANDS OPERATE

I PR PN TN PO T T TICTAE PR T YA
19,
~
o

10683
10684
10685
10686
10687
10688
10689
10690
10691
10692
10693
10694
10695
10696
10697
10698
10699
10700
10701

L 12

PAG E 152

STEST 8. SUBTEST 3

10682

25-MAY-82 09:19

MR4

V(K=0 AND TMK=1),

SEVERAL MORE WRITE TAPE MARK COMMANDS, THESE WITH
CV(=0 ARE ISSUED AND PROPER TERMINATION (NORMAL)

AND STATUS

(TMK) VERIFIED.

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

(TMK)

VERIFIED.

THE TAPE IS REWOUND AND A READ FORWARD 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 THAT CONTAINS A
RECORD COUNT GREATER THAN 1 IS ISSUED AND IT IS
VERIFIED THAT TAPE STATUS ALERT TERMINATION
OCCURED, TMK=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
TO BE PREMATURELY TERMINATED. THIS SHOULD LEAVE
{:EEPOSITION JUST BEFORE THE FIRST RECORD ON

10674
10675
10676
10677
10678
10679
10680
10681

R A N FENEFE TR FE PI PR PR FE PR
oo

8: WRITE/READ TAPE MARK

TEST

MACRO M1113

MR ERIAELERIETE

TSV7? -~ HARDWARE TESTS 1-8

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.

A SPACE RECORDS FORWARD COMMAND THAT CONTAINS A
RECORD COUNT GREATER THAN 1 1S ISSUED AND IT IS
VERIFIED THAT TAPE STATUS ALERT TERMINATION
OCCURED, TMk=1, AND THAT RBPCR (RESIDUAL

BYTE/RECORD COUNTER) CONTAINS THE PROPER NONZEROQ
VALUE.

THIS OPERATION VERIFIES THAT DETECTION OF

TSV?7 = HARDWARE TESTS 1-8
TEST
8: WRITE/READ TAPE MARK

MACRO M1113

THE TAPE MARK CAUSES THE SPACE RECORDS OPERATION
TO BE PREMATURELY TERMINATED.

JOIIIOIDIDII>> efgéNSSUBTEST DIDDID33>>>>

105640
105642

000250

013727
000000
005367
001375
005367
001367
005337
001356
005237
010001

002116

25
N

2 42
1 06

HONOON

012727

1
1

105616
105622
105626
105634

106402
004737
004737
004737
012737
004737
103426

OO
b b d

BGNSUB

000000

110262

108:

002212

001453
003650
012124
013737
012704
004737
103407
005237
010001

1
10766 105754

105756
105762
105764
1
1
}
1

004737
103411
016501
010004
005237
104456
001455

Mov
.WORD
MOV
.WORD
DEC
BNE
DEC

#250,(PC)+
0
LSDLY, (PC)+
0
=6(PC)
.4
=22(P()

+SET COMMAND PACKET
sSET UP OTHER COMMAND PACKET
sSET UP OTHER COMMAND PACKET
sSET UP DELAY ROUTINE
:DO INITIALIZE ON CONTROLLER
:BR IF INIT WAS OK
sDELAY ABOUT .25 SECONDS

DEC
BNE
INC
MOV

T28DLY
10$

cBUMP DELAY ROUTINE DOWN
:BR, IF MORE DELAY TIME LEFT
sBUMP COUNT
sCONTENTS OF TSSR REGISTER

ERRDF

FATFLG
RO.R1

ERRNO,SFIERR,SFIMSG

sFATAL

ERROR TSSR WAS NOT OK
TRAP

CSERDF

.WORD

002172
110100
010752

110120

20$:

MOV
MOV
JSR

UNITN,T28DSW
#T28PACKET,R4
PC,WRTCHR

INC
MOV
ERRHRD

FATFLG
RO,R1
ERRNO,WRTMSG,
SF IMSG

BCS

002212

104456
001454
005054
012124
104406

csasus

PC,T28REST
PC,T28RT2
PC,T28RT3
#10000.,7280LY
PC,SOFINIT
208
250

177756
110262

TRAP

JSR
JSR
JSR
MOV
JSR
8CS
DELAY

177772

104455

10767
10768
10769
10770
10771
10775

M 12
PAGE 152-1

SEQ 0361

10731
10732
10733
10734
10735
10736
10737
1v738
10739
10740
10741
10742
10743
10744
10745
10746
10747

25-MAY-82 09:19

23§

.WORD
.WORD

sSET UP DRIVE NUMBER
sSUBROUTINE NEEDS PACKET ADDRESS
sISSUE WRITE CHARACTERISTICS
sBR, IF COMMAND ISSUED OK
+BUMP COUNT
sSAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED
TRAP

.WORD

23$:
011104
000002

002212

CKLOOP

<LOOP IF SELECTED

JSR

PC ,REWIND

MOV
MOV

TSSR(RS)
,R1
ROR4

ERRHRD

ERRNO, T2BRWN,PKTSSR

BCS

INC

30$

FATFLG

811

CSERHRD

812

.WORD
.WORD

WRTMSG
SFIMSG

TRAP

cscLP

TRAP

CSERHRD
813

sCALL TAPE REWIND COMMAND

;BR,

SFIERR
SFIMSG

NO PROBLEM

JGET TSSR
sSAVE PACKET ADDRESS
sBUMP COUNT
sREWIND NOT ACCEPTED

.WORD

—

TSV?7 = HARDWARE TESTS 1-8
TEST
8: WRITE/READ TAPE MARK
106002
106004

10776 106006
106006
10777 106010
10778 106014

10779
10780
10781
10782
10786

MACRO M1113

25-MAY-82 09:19

N 12
PAG E 152-2

111211

012136
104406

013701
010102
052702
020102
001406

005237

30$:
110130

000002

BIS
CMP
BEQ
INC
ERRHRD

002212

;LOOP IF SELECTED

CkLOOP
MOv
MOV

104456
001456

T28BFR+6,R1
R1,R2
#8171,R2
R1,R2
40$
FATFLG

ERRNO, T28BOT,EXPREC

111067

015564

10787

e
b
b e
b

10814
10815
10816
10817
10821

b b o

10813

b aad

10803
10804
10805
10806
10807
10811
10812

10802

ANV ES SSNWWNND N PNON)
b ek b = O
NO
NN S OO
SSNONON

104406

[elelelololelolelelelolol]olelolole
e
oo ONONMOMONONMONMOCOMONOCONONOONONON

10788
10789
10790
10791
10792
10793
10794
10795
10796
10797
10801

6174
6176

10822 106212

SEQ 0362

005737
001024
112737
112737
012704
010465
004737
103407
010001

005237

TST
BNE
Mov8
MOv8
MOV
MOV
JSR
8cs
MOV

000200
000010

110210
000000

016426
002212

INC
ERRHRD

104456
001457
110725
012136
104406

50%:

012737
012704
004737

000007
110100
010752

005237
010001

002212

103407

032701
001006
005237
104455
001461
111260
012124

MOV
MOV

JSR
BCS
INC

MOV

60s$:

MOV

002212

INC

65%:

; ISSUE COMMAND

PC.CHKTSSR

50$

RO,R1
FATFLG

ERRNO, T28SSR, PKTSSR

PC,WRTCHR

60$

FATFLG
RO,R1
ERRNO,WRTMSG,
SF IMSG

SEL. BIT

(TURN ON EXTFEA SWITCH)

cWAIT FOR SSR

;BR, IF NO ERROR

sERROR, SAVE TSSR

;BUMP COUNT
sTSSR NOT

CORRECT AFTER WRT. MISCELLANEOUS
TRAP
CSERHRD

#0FL ,R1

ERRDF

ERRNO, 1280FL, SFIMSG

65$

FATFLG

.WORD
.WORD
.WORD

815

TRAP

cscLPl

sSET UP DRIVE NUMBER
sSUBROUTINE NEEDS PACKET ADDRESS
s ISSUE WRITE CHARACTERISTICS
sBR, IF COMMAND ISSUED OK
:BUMP COUNT
sSAVE CONTENTS OF

T28SSR

PKTSSR

TSSR

sWRITE CHARACTERISTISC FAILED
TRAP
-WORD
.WORD
.WORD

:SCOPE LOOP

TSSR(R5)
,R?

EXPREC

sWRITE SUBSYS MEM PACKET

;LOOP IF SELECTED
#7,728DSW
#T28PACKET,R4

CSERHRD
814
728807

TRAP
cSCLPT
FOR EXTENDED FEATURES SW SWITCH
SWITCH IS ON
MISCELLANEQUS CONT/READ STATUS

R4, TSDB(RS)

#T28PK2
R4

BIT
BNE

(KLOOP

cscLP

:TAPE NOT AT BOT AFTER REWIND
TRAP
.WORD
.WORD
.WORD

sCHECK
sBR IF
sWRITE
sFUNC.

cKLooP

000002
000100

TRAP

sSET UP EXPECTED
;SET BOT BIT IN EXPECTED
;DOES EXP = REC'D
;BR, IF EQUAL (0K)
cBUMP COUNT

EXTFEA
508
#200, 128851
#10,7288S0

ckLoop

ERRHRD

104456
001460
005054
012124
104406
016501

110120

PKTSSR

;LOOP IF SELECTED

CKLOOP

002216

;PICK UP XSTO

T28RWN

.WORD
.WORD

TRAP

CSERHRD
816

WRTMSG
SFIMSG

CS$CLPY

sGET TSSR CONTENTS
sCHECK FOR THE OFFLINE BIT SET
;BR, IF OFFLINE (GOOD)
:BUMP COUNT
sOFF LINE SHOULD HAVE BEEN SET (BAD)
TRAP

.WORD
.WORD
.WORD

<LOOP IF SELECTED

CSERDF

817
T280OFL

SFIMSG

—

TSV7 =~ HARDWARE TESTS 1-8
TEST
8: WRITE/READ TAPE MARK

106212
10823 106214
10824
10825
10826
10827
10831
10832

10833
10834
10835
10836
10837
10838
10839
10840
10841
10842
10846

10847
10848
10849
10850
10851
10852
10853
10857

10858
10859
10860
10861
10862

10863

10864
10868

10869
10870 106420

104406

013737
012704
004737

103407
005237
010001

002172
110100

MACRO M1113

110120

MOV
MOV
JSR

010752

8CS
INC
MOV
ERRHRD

002212

104456

001462
005054
012124

104406

012737
012704
010465
004737
016501
012702
020102
001406
005237

68$:
140011
110220
000000

110220

016340
000002
000200

708
:

110130

FATFLG

RO,R1
ERRNO,WRTMSG,
SF IMSG

TRAP

sSET UP DRIVE NUMBER
+SUBROUTINE NEEDS PACKET ADDRESS
s ISSUE WRITE CHARACTERISTICS
¢BR, IF COMMAND [SSUED 0K
:BUMP COUNT
sSAVE CONTENTS OF TSSR

sWRITE CHARACTERISTISC FAILED
TRAP

sLOOP IF SELECTED
#140011,728PK3
#T28PK3
R4
R4, TSDB(RS)

MOV
MOV

TSSR(RS)
,R1
#SSR,R2

PC.WAITF

R1,R2
70$

FATFLG

ERRNO, T28WDC ,PKTSSR

(KLOOP
MoV
Mov

000020

8iC
CMP
BEQ
INC
ERRHRD

002212

.WORD

#8174 ,R2
R1.R2

80%

FATFLG

ERRNO, T28V(K,EXPREC

:
808
110130

CkLooP
MOV
MOV

100000

8IS

CMP
BEQ
INC
ERRHRD

002212

#8IT15,R2

R1,.R2
90%

FATFLG

ERRNO, T28TMK ,EXPREC

sGET TSSR CONTENTS
sSET UP EXPECTED

cARE THEY EQUAL

sBR, IF 0K
:BUMP COUNT
sTSSR INCORRECT AFTER WRITE TAPE MARK
TRAP

PKTSSR

TRAP

csCLP1

sPICK UP XSTO (VCK CHECK)
sSET UP EXPECTED
sVCK SHOULD BE 0
¢IS VCK SET CORRECTLY
sBR, IF VCK IS CLEAR
sBUMP COUNT
;V(K WAS NOT CLEAR AFTER CV(C=1
TRAP

011104

(kLooP

JSR

EXPREC

TRAP

cscLP1

SET

;BR, IF TMK WAS SET
sBUMP COUNT
sTMK WAS NOT SET AFTER WRT TAPE MARK
TRAP

sLOOP IF SELECTED
PC,REWIND

CSERMRD

820
T28V(K

.WORD

sPICK UP XSTO (CHECK TMK)
sSET UP EXPECTED

sTMK SHOULD BE
cWAS TMK SET

CSERHRD

819
T2B8WD(

WORD

.WORD
WORD

90%:

SFIMSG

sWAIT FOR SSR TO SET

cLOOP IF SELECTED
T28BFR+6,R1
R1,R2

CSERHRD

818
WRTMSG

¢SET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND

;LOOP IF SELECTED
T28BFR+6,R1
R1,R2

CSCLPT

cscLpt
TRAP
;WRITE TAPE MARK,ACK,CVC=1 COMMAND

.WORD
.WORD

001465
111465
015564

106406

PC,WRTCHR

68$

MOV
MOV
MOV

CMP
BEQ
INC
ERRHRD

104456

004737

#T28PACKET,R4

SEQ 0363

.WORD
.WORD

104456
001464
1114612
015564
104406

UNITN, T28DSW

ckLooP

JSR

002212

001463
111333
012136

013701
010102
052702
020102
001406
005237

B 13

PAGE 152-3

.WORD
.WORD

104456

104406
013701
010102
042702
020102
001406
005237

25-MAY-82 09:19

CSERHRD

821
T28TMK

.WORD

EXPREC

TRAP

cscLe

sCALL TAPE REWIND COMMAND

TSV7? - HARDWARE TESTS 1-8
TEST
8: WRITE/READ TAPE MARK

10871
10872
10873
10874
10878

106424

106426
1064630
106434
106440
106440

106442

106444
106446
10879 106450

10880
10881
10882
10883
10884
10885
10889

103411
010004
016501
005237

MACRO M1113

BCS

Mov
MOV

000002
002212

INC
ERRHRD

001466
11121
012136
104406

c 13

PAGE

152-4

SEQ 0364

104456

013701
010102
052702
020102
001406
005237

25-MAY-B2 09:19

1308:

110130

8IS
CMP
8EQ
INC
ERRHRD

002212

104456

FATFLG

ERRNO, T28RWN,PKTSSR

ckLOooP
MOV
MOV

000002

1308

RO,Ré
TSSR(RS)
,R1

s8R, IF NO PROBLEM
sSAVE PACKET ADDRESS
sGET TSSR STATUS
sBUMP COUNT
sREWIND NOT ACCEPTED

T28BFR+6,R1
R1,R2

#8IT1,R2

R1,R2
1408

FATFLG

ERRNO, T28B0T,EXPREC

sPICK UP XSTO
cSET UP EXPECTED
cSET BOT BIT IN EXPECTED
:DOES EXP = REC'D
sBR, IF EQUAL (0K)
:BUMP COUNT

016501
012702
020102
001406
005237

000012

140011
110220
000000

016340
000002
000200

110220

1408:

(xkLoorP

1508:

MOV
MOV
MoV
MOV
JSR
MOV
MOV

155¢:

CMP
BEQ
INC
ERRHRD

002212

104456

10905
10906
10907
10908
10909
10910
10911
10915

10916

10917
10918
10919

001470
111333
012136
104406

013701

1658:

110130
100000

001406

005237

BIS
CMP
8tQ
INC

002212

ERRHRD

104456

001471
111465
015564

1808%:

104406

005303
001337
012700

177777

sLOOP IF SELECTED

+NUMBER OF RECORDS TO WRITE TM

;WRITE TAPE MARK,ACK,CVC=1

ERRNO, T28TMK ,EXPREC

COMMAND

sSET UP R4 WITH PACKET ADDRESS
s ISSUE COMMAND

JWAIT FOR SSR TO SET

;WAS STATUS GOOD

sTSSR NOT CORRECT AFTER WRT TAPE M,
TRAP
CSERHRD
.WORD
824

;LOOP IF SELECTED

FATFLG

T28WD(

.WORD
.WORD

PKTSSR

TRAP

CSCLPT

TRAP
.WORD

.WORD
.WORD

CSERHRD
825
T28TMK
EXPREC

TRAP

Cs$CLP

sPICK UP XSTO
sSET UP EXPECTED
sSET TMK BIT IN EXPECTED
:DOES EXP = REC'D
;BR, IF EQUAL (0OK)
sBUMP COUNT
sTMK NOT SET AFTER WRT TAPE MARK

CKLOOP

sLOOP [F SELECTED

DEC
BNE

;BUMP COUNTER DOWN
:BR, IF LESS THAN 10 TAPE MARKS
sVALUE TO WRITTEN TO MEMORY

MOV

CSERHRD
823

cscLe

;BR, IF TERMINATION WaS GOOD
sBUMP COUNT

T28BFR+6,R1
R1,R2
#8IT15,R2
R1,R2
180%

cscLP

TRAP

FATFLG

ERRNO, T28WDC,PKTSSR

PKTSSR

728807
EXPREC

:PICK UP TSSR
sSET UP EXPECTED (SSR ONLY)

R1,.R3
1658

CSERHRD
822
T28RWN

.WORD
-WORD
.WORD

'100.R3
#160011,728PK3
#T28PK3
R4
R4, TSDB(RS)
PC.WAITF
TSSR(RS)
,R1
#SSR,R2

ckLOoP
MOV
MOV

TRAP

sTAPE NOT AT BOT AFTER REWIND
TRAP

111067

104406
012703
012737
012704
010465
004737

.WORD
-WORD
.WORD

;LOOP [F SELECTED

001467
015564

TRAP

TSV7 = HARDWARE TESTS 1-8

TEST

10920
10921
10922
10923
10924
10925
10926
10927
10928
10929
10930
10931
10935

10936

10937
10938
10939
10940
10941
10942
10946

10947
10948

10949
10950
10951
10952
10956

10957

10958
10959
10960
10961
10962
10963

10964

10965
10966
10967
10971

WRITE/READ TAPE MARK

106632
106636
106644
106652
106656
106664
106670
106674
106700
106704
106706
106710
106714
106716
106720
106722
106724
106726
106726
106732
106734
106740
106742
106744
106750
106750
106752
106754
106756
106760
106760
106762
106766
106772
106774
106776
107002
107002
1070064
107006
107010
107012
107012
107014
107022
107030
107034
107040
107044
10705C
107054
107056
107060
107064
107064
107066

004737
013737
012737
012704
013737
010465
004737
016501
012702
020102
001406
005237

017512
003114
140401
110220
000024
000000
016340
000002
100204

MACRO M1113

110222
110220

110226

020102
001406
005237

002212

ERRHRD

104456
001475

R1,R2
2008

FATFLG

ERRNO, T28RDF ,PKTSSR

CKLOOP

200$:
110130

MOV
MOV
BIS
cMP
BEQ
INC
ERRHRD

100000

002212

JREAD REVERSE ,ACK, COMMAND
JSET UP R4 WITH PACKET ADDRESS
JSET UP RECORD SIZE IN PACKET
s ISSUE COMMAND
JWAIT FOR SSR TO SET
JGET TSSR CONTENTS
JSET UP EXPECTED

JARE

;BR,

THEY EQUAL

IF 0K

;B8UMP COUNY
sTSSR INCORRECT AFTER WRITE DATA
TRAP

;LOOP IF SELECTED
T28BFR+6,R1
R1,R2
#8IT1S,R2
R1,R2
2108
FATFLG
ERRNO, T28RRM, EXPRE(

JPICK UP XSTO
JSET UP EXPECTED
s TMK SHOULD BE

CKLOOP

2108:
076126

PKTSSR

TRAP

CS$CLP1

SET

;IS TMK SET
:BR, IF TMK WAS SET (GOOD)
;BUMP COUNT

JTMK NOT SET AFTER READ REV
TRAP

aFREE,R1

CMP
BEQ
INC
ERRHRD

R1,R2
2208
FATFLG
ERRNO, T28DTR,EXPREC

MOV

172777

002212

JLOOP IF SELECTED

MOV

#177777.R2

EXPREC

TRAP

CS$CLPI

JFIRST LOC IN READ BUrFER
JEXPECTED IF NO DATA TRANS.
;DID ANY DATA GET TRANSFERRED
;BR, IF NO DATA TRANS (GOOD)
;BUMP COUNT
;DATA TRANSFERRED ON READ TAPE MARK
.WORD
.WORD

CKLOOP

110220
110222

MOV
MOV
.

000002
100204

002212

MOV

;LOOP IF SELECTED
#100410,T28PK3
#1,T28R8

#T28PK3.R4

MOV
JSR
MOV
MOV

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

BEQ

2228

CMP

INC
ERRHRD

R1,R2

FATFLG
ERRNO, T28RDG,PKTSSR

CSERHRD

827
T28RRM

.WORD

TRAP

2208:

CSERHRD

826
T28RDF

.WORD

.WORD
.WORD

104406

020102
001406
005237

R4 ,TSDB(RS)

JFILL MEM WITH ALL ONES

sSTARTING READ BUFFER ADDRESS

.WORD
.WORD

015564

012702

JSR
MOV
MOV

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

INC

104456
001474
111752

012737
012737
012704
010465
004737
016501

PC,FILLMEM
FREE,T28wB
#1460401,128Pk3
#T28PK3,
R4
20.,128S2

CMP
BEQ

001473
111537
015564
104406

152-5

JSR
Mov
Mov
MOV
Mov

MOV

104456

017701
012702

D 13

PAGE

SEQ 0365

104456
001472
110424
012136
104406
013701
010102
052702
020102
001406
005237

25-MAY-82 09:19

CSERHRD

828
T28DTR

WORD

EXPREC

TRAP

cscLP

sSPACE REVERSE ,ACK, COMMAND
;NUMBER OF RECORDS TO SPACE BALK

JSET UP R4 WITH PACKET ADDRESS

: I1SSUE COMMAND
JWAIT FOR SSR TO SET
JGET TSSR CONTENTS
JSET UP EXPECTED

;ARE

THEY EQUAL

;BR, [F 0K
JBUMP COUNT

sTSSR INCORRECT AFTER SPACE CMD.
TRAP
CSERMHRD

.WORD

829

—

TSV? -~ HARDWARE TESTS 1-8

TEST

WRITE/READ TAPE MARK

b e b oed b b
b =]
=S NOWVMB WO 0

leleleleleleleleleTe]

md
b

o
A
N
O
N

b cd
b

ar g

107070
107072
10972 107074
107074
10973 107076
10974 107102
10975 107104
10976 107110
10977 107112
10978 107114
10982 107120
107120
107122
107124
107126
10983 107130
107130
10984 107132
10985 107136
10986 107140
10987 107142
10988 107146
10992 107152
107152
107154
107156
107160
10993 107162
107162
10994 107164
10995 107170
107172
10997 107176
10998 10720C
10999 107202
11003 107206
107206
107210
107212
107214
107216
107216
107220
107224
107230
107236
107244
107250
107256
107262
107266
107272
107276
107300
107302
107306
107306

MACRO M1113

25-MAY-8¢ 09:19

E 13

PAGE 152-6

SEQ 0366

110505

012136
104406

013701
010102
052702
020102
001406
005237

222%:
110130

MOV
MOV

100000

BIS
CMP
8EQ
INC
ERRHRD

002212

104456
001476
111615
015564
104406

004737
103411

010004
016501
005237

226$:
011104

MOV
MOV

000002
002212

INC
ERRHRD

230$:
110130

BEQ
INC
ERRHRD

002212

104456

T28BFR+6,R1
R1.R2
#8IT15,R2
R’.RZ

2263

FATFLG

ERRNO, T28RRN, EXPREC

sPICK UP XSTO

PC,REWIND

2308

RO,R4
TSSR(RS)
,R1
FATFLG

ERRNO, T28RWN,PKTSSR

#8IT1,R2
R’.RZ

2408

FATFLG

ERRNO, T28BOT ,EXPREC

:TMK SHOULD BE

;TMK NOT SET AFTER SPACE REV
TRAP
.WORD
.WORD
.WORD

cREWIND NOT ACCEPTED

;PICK UP XSTO
sSET UP EXPECTED
sSET BOT BIT IN EXPECTED
sDOES EXP = REC'D
sBR, IF EQUAL (0K)
sBUMP COUNT

012700
004737
013737
012737
012704
013737
010465
004737
016501
012702
020102
001406
005237
104456

2408:

177777
017512

003114

100001
110220

000024
000000

016340

000002
100204

002212

CKLOOP
MOV

110222
110220
110226

JSR
MOV
MOV
MOV
MOV
MOV
JSR
MOV
MOV

CMP
BEQ
INC
ERRHRD

TRAP

CSERHRD

PKTSSR

TRAP

CSCLPY

728807
EXPREC

TRAP

cscLP

FREE, T28RB
#100001,128PK3
#T28PK3
R4

sSTARTING READ BUFFER ADDRESS

20. 12852

PC.WAITF

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

R1,R2

2458

FATFLG

ERRNO, T28WDE ,PKTSSR

CSERHRD
832

TRAP
.WORD
.WORD
.WORD

;VALUE TO WRITTEN TO MEMORY

R, TSDB(RS)

831
T28RWN

.WORD
.WORD
.WORD

#177777.R0
PC.FILLMEM

T28RRN
EXPREC

CSCLP

;TAPE NOT AT BOT AFTER REWIND

:LOOP ]F SELECTED

CSERHRD
830

TRAP

sCALL TAPE REWIND COMMAND
:BR, IF NO PROBLEM
s SAVE PACKET ADDRESS
JGET TSSR
;BUMP COUNT

111067

104406

CSCLPT

SET

001500

015564

TRAP

1S TMK SET
¢BR, IF TMK WAS SET (GOOD)
+BUMP COUNT

sLOOP IF SELECTED
T28BFR+6,R1
R1.R2

PKTSSR

sSET UP EXPECTED

;LOOP IF SELECTED

C(kLOOP
MoV
MOV
8IS
CMP

000002

sLOOP IF SELECTED

ckLooP

JSR
8(s

104456
001477
111211
012136
104406
013701
010102
052702
020102
001406
005237

CkLooP

T28RDG

.WORD
.WORD

sFILL MEM WITH ALL ONES

SREAD FORWARD ,ACK,

COMMAND

sSET UP R4 WITH PACKET ADDRESS
sSET UP RECORD SIZE IN PACKET
;s ISSUE COMMAND
JWAIT FOR SSR TO SET

JGET TSSR CONTENTS
JSET JUP EXPECTED
sARE THEY EQUAL

;BR,

IF OK

;BUMP COUNT
sTSSR INCORRECT AFTER WRITE DATA
TRAP

CSERHRD

—

TSV7 - HARDWARE TESTS 1-8

TEST

WRITE/READ TAPE MARK

107310
107312
107314
107316
107316
107320
107324
107326
107332
107334
107336

107342
107342
107344
107346
107350
107352
107352

107354
107360
107364
107366
107370
107374
107374
107376
107400
107402
107404
107404
107406
107414
107622
107426
107432
107436

107442
107446
107450
107452
107456
107456
107460
107462
107464
107466
107466
107470
107474
107476
107502
107504
107506
107512
107512
107514
107516

001501
110776
012136
104406

013701
010102
052702
020102
001406

005237

MACRO M1113

25-MAY-82 09:19

F 13
PAGE 152-7

SEQ 0367
.WORD
.WORD

:
2458
110130

C(KLOOP
MOV
MOV

100000

BIS
CMP
BEQ
INC
ERRHRD

002212

104456

;LOOP [F SELECTED
T28BFR+6,R1
R‘.RZ

#8IT15,R2
R1,R2

2478

FATEN
G
ERRNO, T28RRP ,EXPRE(

JPICK UP XSTO
JSET UP EXPECTED
;TMK SHOULD BE

;1S TMK SET

;BR,

TMK WAS SET

JBUMP COUNT

104406

247%:

073534
177777

(kLoorP
MOV
MOV

cMP
BEQ
INC
ERRHRD

002212

001503
111752
015564
106406

aFREE ,R1

8177777 .R2
R1,R2
2508

FATFLG

ERRNO,
T28D TR, EXPREC

100410

001505
111615

.WORD

EXPREC

TRAP

cscLPl

TRAP

000005
110220
000000
016340
000002
100204

#100410,728PK3
#5,T28R8

MoV
MOV

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

JSR

CMP
BEQ
INC
ERRHRD

002212

JLOOP JF SELECTED

MoV
MoV
MOV
MOV

#T28PK3R4
,

R4, TSDB(RS)
PC.WAITF

R1,R2
2608

FATFLG

ERRNO, T28RDG, PKTSSR

110130
100000

002212

CKLOOP
MOV
MOV
BIS
CMP

E.PREC

TRAP

csCLPY

;SPACE REVERSE,ACK, COMMAND
+NUMBER OF RECORDS TO SPACE BACK
sSET UP R4 WITH PACKE: ADDRESS
s 1SSUE COMMAND
JWAIT FOR SSR TO SET
JGET TSSR CONTENTS
JSET UP EXPECTED
JARE THEY EQUAL
:BR, IF 0K
;BUMP COUNT
JTSSR INCORRECT AFTER SPACE REV CMD.
TRAP

BEQ

INC
ERRHRD

;LOOP IF SELECTED
T28BFR+6.R1
R1,R2

;PICK UP XSTO
JSET UP EXPECTED

R1,R2

;IS TMK SET

#81T15,R2

2708

FATFLG

ERRNO, T28RRN, EXPREC

CSERHRD

835
128DTR

.WORD

.WORD
.WORD

260$:

CSERHRD

834
TZ28RRP

sFIRST LOC IN READ BUFFER
JEXPECTED IF NO DATA TRANS.
;DID ANY DATA GET TRANSFERRED
;BR, IF NO DATA TRANS (GOOD)
;BUMP COUNT
;DATA TRANSFERRED ON READ TAPE MiRK

110505

104456

(GOOD)

TRAP

;LOOP IF SELECTED

CKLOOP

012136
104406

Cs$CLP1

.WORD
. WORD

104456
001504

013701
010102
052702
020102
001406
005237

TRAP

.WORD
.WORD

104456

012737
012737
012704
010465
004737
016501
012702
020102
001406
005237

PKTSSR

;TMK NOT SET AFTER READ REV

111674

017701
012702
020102
001406
005237

.WORD

SET

001502
015564

833
T28WDE

;TMK SHOULD BE

;BR,

.WGRD

PKTSSR

TRAP

cscLP

SET

TMK WAS SET

;BUMP COUNT

CSERHRD

836
T28RDG

(GOOD)

;TMK NOT SET AFTER READ REV

TRAP

.WORD
.WORD

CSERHRD

837
T28RRN

TSV7 = HARDWARE TESTS 1-8
TEST
8: WRITE/READ TAPE MARK

107520
11069 107522
107522
11070 107524
11071 107530
11072 107534

11073 107536

11074 107540
11078 107544
107544
107546
107550
107552
11079 107554
107554
11080 107556
11081 107564

11082 107572

11083
11084
11085
11086
11087
11088
11089
11093

107576
107602
107606
107612
107616
107620
107622
107626
107626
107630

107632
107634

11094 107636
107636
11095 107640
11096 107644
11097 107646
11098 107652
11099 107654
11100 107656
11104 107662
107662
107664
107666

107670
1105 107672
107672
11106 107676
11107 107702

11108 107710

11109
11110
11111
11112
11113

107714
107720
107726
107730
107734

11114 107736

11115 107740
11119 107744
107744

MACRO M1113

2708:

110126
000004

005237

002212

001406

012704

010465
004737
016501
012702
020102
001406
005237

2808:
100410
000001

110220

110220
110222

110505
012136

2908:
110136

052702

000001

010102

020102
001406
005237

104456
001510
110264

015564

104406
012737
012737

0127046

3008:
100010
000005

110220

010465
004737
016501
012702
020102

000000
016340
000002
100204

005237

002212

001406
104456

110220
110222

EXPREC

TRAP

csCLPI

INC
ERRHRD

FATFLG
ERRNO, T28PBP,EXPREC

‘BUMP COUNT
JRESIDUAL BYTE COUNTER NOT CORRECT
TRAP
CSERHRD
.WORD
838
.WORD
T28PBP

2808

CKLOOP

*BR, IF COUNTER CORRECT

:LOOP IF SELECTED
#100410, T28PK3
#1,T28R8

#TO8PK3 R4

R4, TSDB(RS)
PC.WAITF
TSSR(RS) .R1
#SSR!SC!BIT2,R2
R1,R2
2908
FATFLG
ERRNO,T28RDG,PKTSSR

CKLOOP
MOV
MOV
8IS
CMP
BEQ
INC
ERRHRD

002212

.WORD

;PICK UP RESIDUAL BYTE COUNTER
:SHOULD BE THE DIFFERENCE
;1S COUNTER CORRECT

MOV

104456
001507

SELECTED

T28BFR+4,R1
#6. .R2
R1.R2

MOV
JSR
MOV
MOV
CMP
BEQ
INC
ERRHRD

002212

;LOOP IF

MOV
MOV
CMP

MOV
MOV

000000
016340
000002
100204

104406
013701

152-8

CKLOOP

BEQ

104456
001506
110341
015564
104406
012737
012737

6 13

PAGE

SEQ 0368

015564
104406
013701
012702
020102

25-MAY-82 09:19

-WORD

EXPREC

TRAP

CSCLP1

;SPACE REVERSE,ACK, COMMAND
INUMBER OF RECORDS TO SPACE BACK

:SET UP R4 WITH PACKET ADDRESS

*I1SSUE COMMAND
*WAIT FOR SSR TO SET
‘GET TSSR CONTENTS
SSET UP EXPECTED
*ARE THEY EQUAL
:BR, IF OK
;BUMP COUNT
JTSSR INCORRECT AFTER SPACE CM..
TRAP
CSERHRD
.WORD
839

.WORD
"WORD

T28RDG
PKTSSR

TRAP
:PICK UP XST3
*SET UP EXPECTED
*RIB SHOULD BE SET
11S RIB SET
*BR, IF RIB WAS SET (GOOD)
*BUMP COUNT
*RIB NOT SET AFTER READ REV
TRAP
.WORD
"WORD

CSCLP1

;LOOP IF SELECTED

T288FR+14.R1
R1.R2
#81T0,R2
R1,R2
3008
FATFLG
ERRNO, T28RIB.EXPREC

CKLOOP

:LOOP IF SELECTED

CSERHRD
840
T28RIB

.WORD

EXPREC

TRAP

C$CLPI

MOV
MOV

#100010, T28PK3
#5,T28RB

MOV
JSR
MOV
MOV
CMP

R4, TSDB(RS)
PC,WUALITF
TSSR(RS) .R1
#SSR!SC'BIT2,R2
R1,R2

S 1SSUE COMMAND
JWAIT FOR SSR TQ SET
*GET TSSR CONTENTS
“SET UP EXPECTED
JARE THEY EQUAL

INC
ERRHRD

FATFLG
ERRNO,T28RDF ,EXPREC

*BUMP COUNT
JTSSR INCORRECT AFTER SPACE CMD.
TRAP
CSERHRD

MOV

BEQ

l!éBPK3.R4

3108

;SPACE FORWARD,ACK, COMMAND
JNUMBER OF RELORDS TO SPACE FORW.

JSET UP R4 WITH PACKET ADDRESS

:BR, IF OK

TSV? - HARDWARE TESTS 1-8
TEST
8: WRITE/READ TAPE MARK

MACRO M1113

25-MAY-82 09:19

H 13
PAGE 152-9

SEQ 0369

0G151
o

104406

013701

001406

It
S

b
d
b cd wd cud wd
i b ) b d
b cnd b cud wd
b cnd) wh

NSO

W
S WNN=O VNIV

d b e cod ad wd b
—b el md wd d cud ed ad

& NN
OOV

VAWV
SN
NN

b
b
b

b
b

b
b
d

b o
b md

b
b cd

b
b

o e e cmd
b md b b

b
b

11142

b b
b e

b b oD wad
D cnd cd )

b
b

1" 0000

b
b

-t

W
WN

-d
-ub

d ek
b

—d and cd b b o—d
b cd wmd wnd cmd ad

1116

310s8:
110130

005237

81S
CMP
BEQ
INC
ERRHRD

002212

104456

001512
111674
015564

104406

013701
012702
020102
001406
005237

320%:
110126

000004

BEQ
INC
ERRHRD

002212

330$:

023727
103402
004737

002212

004737

016546

000137

104750

104432

002236

T28BFR+6,R1
#BIT15,R2
R1,R?2

3208

FATFLG

ERRNO, Y28RRP ,EXPREC

017272

(kLoopP
MOV
MOV
cMP

104406

103002

;LOOP IF SELECTED

;PICK UP XSTO
sSET UP EXPECTED
sTMK SHOULD BE

.WORD
.WORD
.WORD

841
T28RDF
EXPRE(C

TRAP

csCLP

SET

:1S TMK SET
;BR, IF TMK WAS SET (GOOD)
;BUMP COUNT

:TMK NOT SET AFTER READ REV
TRAP

.WORD
.WORD

104456
001513
110341
015564

104403

CKLOOP
MOV
MOV

100000

(==

015564

WO
OOV
NN =

d
b
d
b

d
d
d
d
b
d

b o
b

b
b nd B b b

110424

000017
999%:

163$:

<LOOP IF SELECTED

T28LFR+4
R

R10R2

3308

FATF_
G

ERRNO, T28PBP ,EXPRE(

TRAP
CSCLP
sPICK UP RESIDUAL BYTE COUNTER
;SHOULD BE THE DIFFERENCE
s1S COUNTER CORRECT
:BR, IF COUNTER CORRECT
sBUMP COUNT
;RESIDUAL BYTE COUNTER NOT CORRECT
TRAP
CSERHRD
.WORD
843

CKLOOP

sLOOP IF SELECTED

ENDSUB

2 €< END

CMP
8LO
JSR

FATFLG,#15.

999%

PC,CKDROP

SUBTEST

L10133:

.WORD
.WORD

128PBP
EXPREC

TRAP

CSCLPY

TRAP

CSESUB

>>55>>>>>>>

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

sTRY TO DROP THE UNIT

JSR
BCC
JMP

PC,TSTLOOP

128L00P

SEXECUTE AGAIN

EXIT

TST

sALL DONE THIS TEST

163$

CSERHRD
842
T28RRP
EXPREC

;DO WE NEED TO ITERATE TEST
s8R, IF NO LOOP REQUIRED

TRAP
.WORD

TSV7 = HARDWARE TESTS 1-8
TEST
8: WRITE/READ TAPE MARK
11156

110100
110100
110102
110104
110106
110110
110110

11171 110116
11172 110120
}}};z 110122

T28PACKET:
LWORD
JWORD
.WORD
.WORD
T28DATA:
.WORD

100004

110110
000000
000012
110122
000000
000024

WORD
.WORD

000000
000000

T28DSW:
T28BFR:

}}};2

110210
100006
110230
000000
000006

11189 110220
11190 110220

100005

11192 110222

003114

11191

110222

11193
11194
11195
11196
11197
11198
11199
11200
11201
11202
11203
11204
11205
11206
}}sgg

110224
110226

T28PK2:

SEQ 0370

WORD
.WORD
.BLKW

100004

T28DATA
0
10,
TZ28BFR
O
20.
0
O
25.

;COMMAND PACKET FOR TEST
SWRITE CHARACTERISTICS COMMAND, WITH IE, ACK
sADDRESS OF CHARACTERISTICS BLOCK
sSTARTING VALUE OF BLOCK SIZE
sCHARACTERISTICS DATA BLOCK
sADDRESS OF MESSAGE BUFFER
;LENGTH OF MESSAGE BUFFER

JSELECT DRIVE O
JMESSAGE BUFFER

T28RB:

T28Ww8:
T28SZ:

110230
110230
110231
110232
110234

010
200
000000
000000

.=<.+10>8177770
.WORD
.WORD
WORD
.WORD

100006
T?28BF2
O
6.

;SIZE OF DATA PACKET

.WORD

100005

JREREAD COMMAND,

JWRITE SUB SYS MEM COMMAND, IE AND ACK
;ADDRESS OF SELECT BLOCK DATA

T28PK3:

000000
000000

:
:
.
T28B8F2:
1288S0:
1288S1:
T28S2:
T28S3:
:
.

.WORD

AND ACK

.WORD
.WORD
.EVEN

FREE

;ADDRESS OF WRITE BUFFER

O
O

:SI2ZE OF BUFFER (EXTENT)

.BYTE
.BYTE
.WORD
.WORD

10
200
O
O

;BSELO AREA
;BSEL1 AREA
JSEL 2 AREA
;DATA AREA

.EVEN
sTAPE MOTION PACKET COMMAND VALUES

110236
110236
110240
110242
1102446
110246
110250
110252
110254

101411
102011
103411
177777
100011
100411
101011
177777

11220 110256

000000

1515

153

JWRITE SUBSYSTEM MEMORY COMMAND PACKET
110210
110210
110212
110214
110216

11209
11210
11211
11212
11213
11214
11215
11216
11217

113

PAGE

sLOCAL STORAGE FOR THIS TEST

11169 110112
11170 110114

11178
11180
11181
11182
11183
}}}gg

25-MAY=-82 09:19

}}}g;

11162
11163
11164
11165
11166
11167
11168

MACRO M1113

T28IMy:

T28RN:
T28WDR:
T28CON:

T28CNT:

WORD
.WORD
MWORD
.WORD
.WORD
.WORD
.WORD
WORD

101411
102011
103411
177777
100011
100411
101011
177777

JWRITE TAPE MARK COMMAND
JERASE COMMAND
JWRITE TAPE MARK RETRY
JEND OF DATA

WORD

JTAPE TIMER COUNTER STORAGE AREA

sILLEGAL MODE BITS TEST DATA

TSV7 - HARDWARE

TEST

1" 22

}} 22

N 22

NN
-

TESTS 1-8

WRITE/READ TAPE MARK

110260

110262

060000

000000

MACRO M1113

25-MAY-82 09:19

J 13

PAGE

153-1

SEQ 037
T28(NU:
T28DLY:

.WORD
.WORD
.EVEN

0
O

sTAPE

TIMER COUNTER STORAGE

sDELAY COUNTER

AREA

TSV? - HARDWARE TESTS 1-8

TEST

WRITE/READ TAPE MARK

MACRO M1113

25-MAY-82 09:19

K 13

PAGE

154
SEQ 0372

11226

11227
11228
11229

11531
{

11232
11233
11234
11235
11236
11237
11238
11239
11240
11261
11262
112643
112446
11245
112646
11247
11248

o
sLOCAL TEXT MESSAGES FOR TEST
i=
110264
110341
110424
110505
110567
110644
110725
110776
111067
111134
11121
111260
111333
111412
111465
111537
111615

124
122
126
124
124
m
127
124
124
124
122
104
124
103
124
124
124

141
145
123
123
123
154
122
123
161
123
145
162
123
126
115§
115
115

160
163
123
123
123
154
111
123
160
123
167
151
123
103
113
113
113

T28RIB:
T28PBP:
T28RDF:
T128RDG:
T28WDF:
T28LOQ:
T28SSR:
T28WDE:
7T128B0T:
T28TM:
T28RWN:
T280FL:
T28WDC:
T28vCK:
T28TMK:
T28RRM:
T28RRN:

11250 111752
11251 112034
11252 112131

104
104
127

144
141
162

164
164
151

T28DTR: .ASCIZ
T28DTA: .ASCIZ
TST281D:

11249 111674

11253

1264

115

113

11555

11256
11257
11258
11259
11260
11261 112156
11262 112156
11263 112162
11264 112166
11265 112172
11266 112176
11267 112200
11268 112204
11269 112210
11270 112212
11271 112216
11272 112220
11273 112226

11274 112230

11275
11276
11277
11278
11279
11280
11281
11282

112236
112240
112244
112246

112250
112250

T28RRP:

.ASCIZ
,ASCIZ
.ASCIZ
.ASCIZ
.ASCil
.ASCI2
.ASCIZ
.ASCIZ
.ASCIZ
ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ

.EVEN

‘'Tape Position Not Correct, RIB Should Be Set’
'Residual Byte Counter Register (RBPCR) Not Correct’
'TSSR Incorrect After READ
REVERSE Into TAPE MARK'
'TSSR Incorrect After SPACE Command Into TAPE MARK'
'TSSR Not Correct After Illegal Mode Bits Set’
'Ille?al Mode Bits, Failed To Set ILC Bit In XSTO'
'WRITE
MISCELLANEOUS Command Not Accepted’
'TSSR Not Correct After READ DATA Command, Into TAPE MARK®
‘'Tape Not At BOT After REWIND Command'®
.
‘TSSR Not Correct After FORMAT Command Reject’
‘'Rewind_(POSITION) Command Not Accepted'
‘'Drive 7 Select Failed To Set 'OFL'‘ In TSSR®
°TSSR Not Correct After WRITE TAPE MARK Command'
°*CV(C Set, Didn'‘'t Reset V(K In Message Buffer’
'TMK Not Set After WRITE TAPE MARK Command’
°'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 Transferred On READ REVERSE Into A TAPE MARK'®
‘Data Compare Error, Data Read from Tape Not Equal To Written'
ASCIZ
‘Write/Read Tape Mark'

JROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES
SWRITE SUBSYSTEM MEMORY COMMAND
:
:=
T28REST:

012701
012721
012721
005021
012721
012721
005021
012721
005021

012711
012702

012762

005742
020227
001371
000207

110100
100004
110110
000012
110122

000024
000000
000030

177777

110122

64$:

000000

SAVREG
MOV
MOV
MOV
CLR
MOV
MOV
CLR
MOV
CLR

#T28PACKET ,R1
#100004, (R1) +
#T28DATA,(R1)+
(R1)+
#10.,(R1)+
#T28BFR,(R1)+
(R1)+
#20.,(R1)+
(R1)+

MOV
MOV

#0,(R1)
826, R2

JSELECT DRIVE ZERO
sNUMBER OF LOCATIONS TO BE CLEARED

-(R2)
R2,#0
648
PC

JNEXT LOCATION
sCHECK FOR END
;KEEP GOING UNTIL DONE
sRETURN

MOV

TST
CMP
BNE
RTS

#177777,7288FR(R2)

:SAVE THE REGISTERS
;START OF THE PACKET
SWRITE SUBSYSTEM MEM. WITH ACK,
cADDRESS OF CHARAISTICS DATA BLOCK
JEXTENDED ADDRESS
sSIZE OF DATA BLOCK IN BYTES
sADDRESS OF MESSAGE BUFFER
;sLENGTH OF MESSAGE BUFFER

sALL ONES TO MESSAGE BUFFER

T28RT2:
SAVREG

;SAVE THE REGISTERS

TSV? = HARDWARE TESTS 1-8
TEST
8: WRITE/READ TAPE MARK

11283
11284
11285
11286
11287
11288
11289
1129C
11291
11292

112254
112260
112266
112270
112272
112276
112300
112304
112306
112310

11293 112312

11296
11295
11296
11297
11298
11299
11300
11301

112312
112316
112322
112324
112326
112330
112332
112334
112334
112334
11302 112336

012701
012721
012721
005021
012721
005021
012701
005021
005011
000207
012701
005021
005021
005021
005011
000207

MACRO M1113

25-MAY-82 09:19

110210
100006
110230
000006

110230

T28RT3:
110220

L 13

PAGE 154-1

SEQ 0373

MoV
MoV
MOV
CLR
MOV
(LR
MoV
CLR
CLR
RTS

#728PK2 ,R1
#100006,(R1)+
#T28BF2,(R1)+
(R1)+
#6.,(R1)¢
(R1)+
#T28BF2,R1
(R1)+
(R1)
PC

sRETURN

SAVREG
MoV
CLR
CLR
CLR
CLR
RTS
ENDTST

#728PK3,R1
(R1)+
(R1)+
(R1)+
(R1)
PC

sGET PACKET ADDRESS
sCLEAR COMMAND AREA
sCLEAR ADDRESS AREA
:CLEAR EXTENDED ADDRESS AREA
sSIZE OF DATA TRANSFER
:RETURN

104401

ENDMOD

sSTART OF THE PACKET
SWRITE SUBSYSTEM MEM. WITH A(K,
sADDRESS OF DATA BLOCK
sEXTENDED ADDRESS
sSIZE OF DATA BLOCK IN BYTES
sPOINT TO DATA SEL AREA

L10130:

TRAP

CSETST

—_—

TSV6 ~ PARAMETER

CODING MACRO M1113

25-MAY-82 09:19

PAGE

155

SEQ 0374

W
WW
oo~

—

b
-

VN~
=

8: WRITE/READ TAPE MARK

TSvé::

VIS
WN =20

NONVNINNVNIN)

LTITLE

TSV6 ~ PARAMETER CODING

BGNMOD

TSVé

.SBTTL

HARDWARE PARAMETER CODING SECTION

MR X J

THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES.
THE
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE

INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.

THE

D o
b b
d od e
b b md
ed
b

346
350

BGNHRD

000010

LSHARD::

000031
112360
160010

177776

001031

112614

000000
000776

— - O
[ Yo
XV]

—t

b P
—

b
b
-

-t
O

ol
ad

ONNORONNNNIAON

D od e =D
b b d =

md wnd
b
b ed

MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS
Wl 4 THE OPERATOR.

-k
md b
b d md b

TEST

126

L10134:

.WORD L10134~-L$HARD/2

GPRMA
.WORD
.WORD
.WORD
.WORD
GPRMA
.WORD
.WORD
-WORD
-WORD
; GPRMD
ENDHRD
.EVEN

HPM1:

.ASCI2

HPM3:

.ASCI2Z

HPM?2 :

.ASCI2Z

HPM1,0,0,160010,177776,YES
T$CODE

;GET TSBA/TSDB REGISTER ADDRESS.

HPM2,2,0,0,776,YES

+GET VECTOR ADDRESS.

HPM1
TSLOLIM
TSHILIM
T$CODE

HPM2

TSLOLIM
TSHILIM
HPM3,4,0,340,0,7.YES

'DEVICE ADDRESS (TSBA/TSDB)
*INTERRUPT VECTOR
°
*INTERRUPT PRIORITY
'

sGET INTERRUP{ PRIORITY.

TSV6 =~ PARAMETER CODING MACRO M1113
SOF TWARE PARAMETER CODING SECTION

25-MAY-82 09:19

2§

.SBTTL

PAGE

156

SOFTWARE

SEQ 0375
PARAMETER

CODING

SECTION

47
48
49

: THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS
: THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES.
THE
: MACROS ARE NOT EXECUTED AS MACHIME INSTRUCTIONS BUT ARE

: MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS

g%
112470

112472

56 112472

112472
112474
112476

57
58
59 112500

THE

* WITH THE OPERATOR.

54 112470
5S

INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.

’

000093

GPRML

001130
112530
177777

;
;

64 112560
65 112610
66

L10135:

105
11

120
120

.WORD L10135-L$SOFT/2

LSSOFT::
;
GPRML

112500

62 112500
63 112530

BGNSFT

116
116

105
105

101
110

122
122

SPM1:
SPM4:

SPMé:
SPM7:

.WORD
-WORD
JWORD
GPRMD
GPRMD

ENDSFT

SPM1,0.-1,YES

: GET TRANSPORT TEST FLAG.

TSCODE
SPM4
=1
SPM6,4.D,7777.0,7777.YES
SPM7.6.D,7777.0.7777.YES

: GET LOCAL ERROR LIMIT
: GET GLOBAL ERROR LIMIT

SPM4.2.-1.YES

. GET ITERATION CONTROL.

.EVEN

.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.SBTTL

'ENABLE TRANSPORT TESTS °
*INHIBIT ITERATIONS
'

°PER TEST ERROR LIMIT
°‘PER UNIT ERROR LIMIT

PATCH AREA

'
°

* FINALLY A GENEROUS PATCH AREA.

: AND AN ADJUSTMENT TO ACCOUNT FOR THE ''LASTAD BIT7'* HACK

74
;2 112640

’
PATCH: :

: DESCRIBED IN ''SUPPRG.MEM'' (FOR REV ().

;g 112640

.BLKW

32.

80
82 113000

113000

.= 137741
Lesgfio

113000

000000

"WORD

113002
113004

83 113004
84

000000

000001

LSLAST::

.WORD

ENDMOD
.END

:SET LAST USED ADDRESS.

TSV6 = PARAMETER CODING MACRO M1113
SYMBOL TABLE

ADDSSR
012216 G
ADR
= 000020 G
AMBTSS
006725

ASSEMB=
A1716 =
BADDAT
BADSSR
BOVPCR=
BENBSW
BIE
=
BITO =
81700 =
BIT01 =
81102 =

81703
81704
BITOS
8IT06
81707
8IT08
81709
BIT1
BIT10

=
=
=
=
=
=
=
=
=

000010
000003
003146
015770
177520
002220
040000
000001
000001
000002
000004

000019
000020
000040
000100
000200
000400
001000
000002
002000

G
G
G
G

G
G
G
G
G
G
G
G
G
G
G
G
G

BIT11 = 004000 G

8IT12 = 010000 G
BIT13 = 020000 6
BIT14 = 040000 G
BIT15 = 100000 G
BIT2 = 0000064 G
BIT3 = 000010 G
BIT¢
= 000020 G
BITS
= 000040 G
8IT6 = 000100 G
BIT7 = 000200 G
BIT8 = 000400 6
8119 = 001000 G
BOE
= 000400 G
BRINIT 004455
BSELO = 000000
BSEL1 = 000001
CHKAMB 016134
CHKMAN 020570 6
CHKTSS 016426
CKDROP 017272
CKEMAX 017172
CKMSG_
011450 6
CKMSG2 011570 6
CKRAM
011204 G
CKRAM2 011314 G
CMDPKT 021350 6
CMPMEM 017750
CONFIG 017340
COUNT
002300 G
CSRADD 002176 G
CTAB
003154 G
CTABE
003166 6
CTABM
003154 G

25-MAY-82 09:19

($AU_
= 000052
($AUTO= 000061
C$BRK = 000022

C$BSEG=
€$8suB=
CSCEFG=
C$CLCK=
CSCLEA=
C$CLOS=
CS$CLP1=
CS$CVEC=
CSDCLN=
C$D0DU=
CSDRPT=

C$0U =
CSEDIT=
CSERDF=
CSERHR=
CSERRO=
CSERSF=
CSERSO=
C$ESCA=
CSESEG=

000004
000002
000045
000062
000012
000035
000006
000036
000044
000051
000024

000053
000003
000055
000056
000060
000054
000057
000010
000005

C$ESUB= 000003

C$ETST= 000001
CSEXIT= 000032
C$GETB= 000026
CS$GETW= 000027
CSGMAN= 000043
CSGPHR= 000042
CS$GPLO= 000030
CS$GPRI= 000040
C$INIT= 000011
C$INLP= 000020
CSMANI= 000050
CSMEM = 000031
C$MSG = 000023
CSOPEN= 000034
CS$PNTB= 000014
CSPNTF= 000017
CSPNTS= 000016
CS$PNTX= 000015
C$Q10 = 000377
C$RDBU= 000007
CSREFG= 000047
CSRESE= 000033
CSREVI= 000003
CSRFLA= 000021
CSRPT = 000025
C$SEFG= 000046
C$SPRI= 000041
CS$SVEC= 000037
C$TPRI= 000013
DATA
002302 G
DATASC 020322
DEBUGM 011722
DEVCNT 002210 G

DEVDRO
DEVNRD
DEVNXR

PAGE

DEVONL
DEVSUM
DFPTBL
DIAGMC=
DICEC =
DSBINT
DUADT2
DUFLG
DUMMY
EF.CON=
EF .NEW=

156~1

023466
023405
023323

023253
023216
002146
000000
000001
076274
004641
003102
003052
000036
000035

8 14
SEQ 0376

FREE
FREEHI
FRESIZ

FUSI
FSAU_ =
F$SAUTO=
FS$BGN =
FSCLEA=
FSOU =
FSEND =
F$HARD=
FSHW =
FSINIT=
F$JMP =

G
G
EF .PWR= 000034 G
EF.RES= 000037 G
EF.STA= 000040 G
EMAXDU 017067
EN
= 000000
ENAINT
016242
ENVIRN 020720
EPRTSW 002170 G
EPRT1
006356

FSMOD =
FSMSG =
FSPROT=
F$PWR =
FSRPT =
FS$SEG =
F$SOFT=
F$SRV =
F$su8 =

EPRT2

F$SW

006446

ERCM
012023
ERRHI
002226 G
ERRK
017046
ERRLO
002230 6
ERRNO = 001513
ERRVEC= 000004 G
ERTABE
003366
ERTABL 003166
ESUM
017050
EVL
= 000004 G
EXBCNT= 000010
EXIT
034174
EXPBRE
015572 G
EXPD
002222 6
EXPGOT
004531
EXPGT2 004565
EXPMSG 002312 6
EXPREC 015564 G
EXTA
005770
EXTeND 005766
EXTFEA 002216 6
ESEND = 002100
ESLOAD= 000035
FATAL
034274
FATERR= 000060
FATFLG 00221¢ G
FERCM
012012
FIFEXP 012260 6
FIFIMS 012332
FIF2MS 012401
FILLME
017512
FNOINT 004213
FORCER 002166 G

003114 G

INCERK

017134

003120
003116 G

INTCPC
INTFLA

016240
016235

004115
000015
000020
000040
000007
(00016
000041
000004
000013
000006
000050

INTMAS
INTR
INTREC
INTVEC
INTX
INVERT
J0KCKI=
J10KSTP=
IPR]
ISR
IVEC

016234
016306
002214
016236
004276
021276
000200
000001
002202
000100
002200

000000
000011
000021
000017
000012
000003
000005
000010
000002

iXE
=
I$SAU_ =
ISAUTO=
ISCLN =
ISOU =
I$SHRD =
ISINIT=
I$MOD =
I$MSG =

004000 6
000041
000041
000041
000041
000041
000041
000041
000041

= 000014

FSTEST= 000001
GDDAT
003150 G
GERRMA 002164 G
GETPAT 020264 G
GETSEL 020346 6
GSCNTO= 000200
GSDELM= 001372
G$DISP= 000003
GSEXCP= 000400
GSHILI= 000002
Gs$LOLI= 000001
GSNO = 000000
GSOFFS= 000400
GSOFSI= 000376
GSPRMA= 000001
GSPRMD= 000002
GSPRML= 000000
GSRADA= 000140
GSRADB= 000000
GSRADD= 000040
GSRADL= 000120
GSRADO= 000020
GSXFER= 000004
GSYES = 000010
HIADDR= 001400
HOE
= 100000 G
HPM1
112360
HPM2
112414
HPM3
112440
IBE
= 010000 6
IDU
= 000040 6
IER
= 020000 G
IFAULT
004254

ISPROT= 000040

G
G

G
G
G
G

I$SPTAB= 000041
ISPWR = 000041
ISRPT = 000041
I$SEG = 000041
I$SETU= 000041
I$SFT = 000041
I$SRV = 000041
I$SUB = 000041
ISTST = 000041
JSJMP = 000147
KIPARO= 172340
KIPAR1= 172342
KIPAR2= 172344
KIPAR3= 172346
KIPAR4= 172350
KIPARS= 172352
KIPARG= 172354
KIPAR?= 172356
KIPDRO= 172300
KIPDR1= 172302
KIPDR2= 172304
KIPDR3= 172306
KIPDR4= 172310
KIPDRS= 172312
KIPDR6= 172314
KIPDR?= 172316
KTENAB 003124 G
KTFLG
003122 G
KTINIT 021144
KTOFF
017364
KTON
017346
LcRRMA 002162 6
LISTAL= 000001

TSV6 =~ PARAMETER
SYMBOL TABLE

LOE

= 040000 G

LOOPCN
LOOPCO
LOOPFL
LOT
=
LSACP

LSAPT
LSAU
LSAUT
LSAUTO
LSCCP
LSCLEA
L$CO
LSDEPO
LSDESC

LSDESP
LSDEVP

L$DISP
LEOLY
LSDOTP
LSOTYP
LSDU
L$OUT
LSOVTY
LSEF
LSENVI
LSETP
LSEXP1
LSEXP4

LSEXPS
LSHARD

LSHIME
LSHPCP
LSHPTP
LSHW
LSICP
LSINIT
LSLADP
LSLAST

LSLOAD

LSLUN
LSMREV
LSNAME
LSPRIO
LSPROT

LSPRT
LSREPP
LSREV
LSRPT
LSSOFT
LSSPC
LSSPCP
LSSPTP
LSSTA
LSSW
LSTEST
LSTIML

002206
013216
003152
000010
002110

G
G
G
002036 G
022442 G
002070 G
022646 6
002106 G
022726 G
002032 G
002011 G
003400 6
002076 G
002060 6
002124 G
002116 G
002040 G
002034 G
022540 G
002072 G
003372 G
002052 6
002044 G
002102 G
002046 G
002064 G

002066 G
112340 6

002120
002016
002022
002146
002104
021646
002026
113004

6
G
G
G
G
G
G
G

(002100 6
002074 G
002050 G
002000 6
002042 G
021636 G
002112 6
002062 G
002010 G
022754 G
112472 G
002056 6
002020 6
002024 G
002030 G
002156 G
002114 6
002014 G

CODING MACRO M1113

LSUNIT

L10000
L10001
L10002
L10003
L10004

L10005
L10006
L10007
L10010
L10011
L10012
L10013
L10014
L10015

L10016
L10017

L10020
L10021
L10022
L10023
L10024
L10025
L10026
L10030
L10031
L10032
L10033
L10034

L10035
L10036

L10037
L10040
L10041
L10042
L10043
L10044
L10045
L10046

L10047
L10050
L10051
L10052
L10053
L10054
L10055
L10056
L10057
L10060
L10061
L10062
L10063
L10064
L10065
L10066
L10067
L10070

25-MAY-82 09:19

002012 G

PAGE

L10071

156-2

055352

C 14
SEQ 0377

M8189

005643

PRBEXP

015560

NBA
=
NEWPAS
NODEV_
NOINIT
NOINTR

PRBMSG
PRBREC
PRBTOT
PRBYTE

015426
015562
015513
015212 6

PRI
=
PRIADD
PRIAO
PRIBXO
PRIEQU
PRIPKT
PRIRAM
PRITAD

002000 6
010250
010320
007702 G
010150
007460 G
010156
010364

PRITSS
PRITO

006022
010446

PRIXOR

010032 G

002154
002166
005764
012134
012152
012170
012176
012214
012232
012256
012330
012500
013214
014042
014064
015570
015576
015604
015616
015640
015666
016026
016336
022372
022536
022644
022724
022752

L10112
L10113
L10114
L10115
L10116
L10117
L10120
L10121
L10122
L10123
L10124
L10125

064142
065016
065672
066542
067474
070504
071064
071540
104712
075316
076100
076722

NXM
=
NXMFLG
NXMHI
NXMLO
NXMTST
NXR
NXRERR
NXRX
NXTU
OFL
=
ONEFIL=
0$APTS=

002000
022100
003104 6
004333
004217
002160 G
020624
005456
000200
000040
000100
000020
004150
0064405
004525
004526
004000
003126 6
003132 6
003130 6
021542
003736
005734 G
003775
022112
000100
000000
000000

024650
027330
025256
025600
026160
034320
027732
030602
031422
031636
032070
032402
046434
034766
035546
036322
037024
037470
040124
040560
041152
041570

L10130
L10131
L10132
L10i33
L10134
L10135
MEMADD
MEMCK
MENASC
MENERR
MENRES
MMVEC =
MSA.FR=
MSA.NO=
MSA.NR=
MSA.vV0=
MSGEXP
MSGLOO
MSGSTA
MSGSUB
MS.ATT=

112334
105312
105572
110044
112360
112500
014044 G
021366 G

0$BGNS=
0osOU =
OSERRT=
0$GNSW=
0$POIN=
0$SETU=
PASRPT
PATCH

000001
000001
000000
000001
000001
000000
022144
112640 G

023214

062034
062306
042542
043042
043526

L10072
L10073
L10074
L10075
L10076

L10077
L10100
L10101
L10102
L10103
L10106
L10105
L10106
L10107

L10110
L10111

L10126
L10127

MS.EXT=
MS.RSD=
MS.RSF=
MS.RST=
M8186

047424
0500264
050500
051144
051704

052644
053164
053566
074674
056310
057156
060050
060776
061554

NOITS
NOMAN
NOMEM
NP.IR =
NP.L00=
NP.OUT=
NP.WRP=
NSI
NSINIT

062416
063270

NUL
NULCR

077624
101354

020537

020464
020566
000250
000006
000000

000004
000002
012234
013154
012440
014032
000006
000200
000001
000020
000010
005552

G
6
6
6

0$AU = 000001
0$BGNR= 000001

PATDAT 020320
PC.ERA= 002400
PC.IER= 002000
PC.NOO= 001000
PC.REL= 000000
PC.REW= 000400
PKBCNT= 000006
PKHI
= 000004
PKLOW = 000002
PKTADD 007644
PKTFRM 007606
PKTGET 012154 6
PKTMES 012200 6
PKTRAM 004743 6
PKTSSR 012136 6
PNT
= 001000 6
PRAMPK 014066
PRASC
014613

PRIT1

010511

PRIOO = 000000
PRIO1 = 0()040
PRIO2 = 000100
PRIO3 = 000140
PRIO4 = 000200
PRIOS = 000240
PRIO6 = 000300
PRIO7 = 000340
PRMESS 014332
PRMNO
002310
PRMSGE
014642
PRMSGO 015022

PRMSG1
PRMSG?2

G
G

G
G
G
G
G
G
6
6

015067
015125

PROASC 014510
PR1ASC 014555
PST32W 003142 G
PUNIT
022374
PW.D11= 000021
PW.D13= 000022
PW.D22= 000020
PW.NOP= 000000
PW.NO1= 000023
PW.RDE= 000024
PW.RDR= 000001
PW.RDS= 000005
PW.RFI= 000003
PW.WCT= 000006
PW.WFI= 000004
PW.WFM= 000007
PW.WwMI= 000010
PW.WNP= 000011
PW.WTR= 000002
P.ACK = 100000
P.CMD = 000037

P.CONT=
P.CVC =
P.FMT =
P.FORM=
P.GETS=

000012
040000
000140
000011
000017

—

SO.IFP=
SO.ILD=
SO.ION=
SO.IRD=
SO. IRW=
SO0.1SP=
S1.ICE=
S1.1E0=
S1.1FM=
S1.1HE= 000400
S1.11D= 004000
S1.11R=

TSv?

S1.12R=
S1.PAR=
S2.AT]=
S2.8T]=
S2.DIM=
S2.1Lw=
S2.INR=
$2.0UT=
S2.UND=

TEMP2

oo
O
OO
OO

003500
006505
000003
004016
002742
002204
017010
002304
016546
002306
016600
024474
027137
033736
046202
055150
074477
104513
112131
002000

T22WRT
T23A
T23AM3
1238
T23BA
T23BFR
T238F2
123850
723851
T23CHK
T23CON
T23DAT
723DSW
T23EOT
T23ET

123L00
T230FL
T23PAC

T23PK2

T23PK3
T23RES
T23RN(
T23RSZ
T23RT?
T23RT3
T23RWN
T23SSR
72352

[AYAYAYAYAYAYAYA)

TST211
TST221
157231
TST241
TST251
TST261
TS1271
TST281
TSV?
TSV3
TSVé
TSV6

SO.IfFB8=

SEQ 0378

003110

TERCLS= 000016
TESTNO=
TEXASC

TFCASC

TIMEXP

TIMSGO

TINERR
TMPBFR
TNAM
TRANST
TSBA
TSBAH
1SD8B
TSDBH
TSFCOD

015642
015670
012111
002622
016774
002156
000000
000001
000000
000001
007326

o
oo
OO0

SSR
STAT(CO
Sv(GBL=
SVCINS=
sv(sSuB=
SVCTAG=
SVCTST=
SSLSYM=
S0.10B=

TBLEND=
TCOASC
TCOCOD
TEMP1

156-3

= 000006

TSSRBI
TSSRFO
TSSRH =
TSSX
TSTBLK
TSTCNT
TSTEND
TSTFLA
TSTLOO
TSTPTR
TSTSET

SR?2
SR3

—t
-

D20

PAGE

TSSDEF
006676
TSSR
= 000002

020000
005276
005011
010750
020532
000004
000002
017406
022176
012172

TSREJ

SRO
SR1

100000

25-MAY-82 09:19

SPM6
SPM?7

Z2m
s-—-——

000200
000013
007400
020000
000010
000001
010000
000005
000004
009006
002174
014246
002232
015600
015620
010206
002272
015606
002274
002276
005204
002456
002224
020230
005370
034176
011104
000167
000200
000215
000234
= 000201
000210
010000
011200

2%
Ve

CcC LnNOVDOVO

v VOVVOVOVLVOO

TSV6 ~ PARAMETER CODING MACRO M1113
SYMBOL TABLE

T$SAU =
T$SAUT=

T22WLK

026777
027052

T24L00
T24L0P

032550
032560
033752
033135
032570
034044
034106
033066
032614
032566
032574
032576
033012
032600
033522
032562
032604
033420
033331
032606
032602
033647
045170
045522
063612
043720
044563
0643720
043721
063732
043600
043736
043610
044630
044716
044312
045662
034362
045744

TSV6 ~ PARAMETER CODING MACRO M1113

SYMBOL TABLE

T24L0Q

T241 OR
T24NEF
T24NXM
T240FL
T24PAC
T24PBP
T24Pk2
T24PK3
T24RB
T24RES
T24RN
T24RNC
T24RT2
T24RT3
T24RWN
T24SSR
T24S7
12452
T24S3
T264TM
T2GTRL
T24VCK
T24wB
T24WDC
T24WDD
T24WDE
T24WDF
T24WDG
T24WDR
T24WSS
T258FR
T258F2
T25BNC
125807
125850
125851
T25CNT
T25CK2
T25CON
T25DAT
T250LY
T25DSW
T25L00
T2SNEF
T2SNET
T250FL
T25PAC
T25PK2

T25PKk3
T25RB
T25RES
T25RIB
T25RN_
T25RT2
T25RT3
T25RWN

044376

044012
043740
044151
045235
043570
066026
043700
043710
043712
046250
063726
065115
046342
046404
045046
044457
043716
043722
063724
0464773
046114
045447
043712
045376
045310
044511
044235
044062
043730
045573
053652
053760
054440
054145
053760
053761
054000
053776
053772
053640
054002
053650
046466
054613
054301
055024
053630
053740

053750
053752
055166
054673
053766
055260
055322
(054755

T25SSR

72552
12552
72583
T25TM
T25wB
T25WDC
T25WDE
T25WDR
T25WNG
T25WNH
T26AM3
T26BA
T26BFR
T268F2
126807
726850
726851
T26CNT
T26(NU
T26DAT
T26DLY
T260SW
T26DTA
T26E0T
T26LON
T26L00
T26LOP
T26L0Q
T26LOR
T26NEF
T26NEQ
T260FL
T26PAC
T26PBP
T26PK2
T26PK3
T26RB
T26RDF
T26RES
T26RN
T26RNC
T26RRF
T26RRG
T26RSZ
T26RT2
T26RT3
T26RWN
T26SC

T26SSR
T26SZ
72652
12653
T26TM
T26TRL
T26V(K
T26WB

25-MAY-82 09:19

054004

053756
053762
053764
054212
053752
055077
054065
053770
054355
054530
073376
073736
071622
071730
072765
071730
071731
071746
071750
071610
071754
071620
073032
073120
074100
055414
074162
072576
072451
072044
074420
073445
071600
(74244
071710
071720
071722
072126
074510
071736
073323
072175
072272
071752
074602
074644
073254
072367

072657
071726
071732
071734
073177
074332
073663
071722

T26WDC

T26WDD
T26WDE
T26WDF
T26WNG
T26WSS
T27AM3
T27BA
T27BFR
T278F2
T27B0T
727850
1278581
T27CNT
T27(NU
T27CON
T27DAT
T270LY
T27DSW
T27DTA
T27E0T
T27LON
T27L00
T27L0P
T27L0Q
T27LOR
T27NEF
T270FL
T27PAC
T27PBP
T27PK2
T27PK3
T27RB
T27RDF
T27RES
T27RN
T27RNC
T27RRF
T27RT2
T27RT3
T27RWN
T27SC
T27SCF
T27SSR
12752
12752
72783
T27TIM
T27TM

T27TRL
T27TSA
T27V(K
T27w8
T27uwDC
T27WDD
T27WDE
T27WDF

PAGE

156~4

073610

073520
072713
072521
071756
074011
103057
103417
101432
101540
102431
101540
101541
101556
101560
101552
101420
101562
101430
104416
102601
103561
074736
103643
102225
102100
104101
103126
101410
103725
101520
101530
101532
101652
104534
101546
103004
101721
104626
104670
102735
102016
104177
102306
101536
101542
101544
102524
102660

104013
104254
103344
101532
103271
103201
102342
102150

E 14
SEQ 0379

T27WDR

T27WNG
T27WRF
T27WSS
T28BFR
T28BF2
728807
7288S0
7288S1
T28CNT
T28CNU
T28CON
T28DAT
T28DLY
T280SWw
T28DTA
T28DTR
T28IMV
T28L00
T28L0Q
T280FL
T28PAC
T28PBP
T28PK2
T28PK3
T28RB
T28RDF
T28RDG
T28RES
T28RIB
T28RN
T28RRM
T2BRRN
T28RRP
T28RT2
T28RT3
T28RWN
T28SSR
72852
72852
72853
T28TM
T28TMK
T28VCK
T28wB
T28WDC
T28WDE
T28WDF
T28WDR

T3
T38FLG
13.1
13.2
13.3
13.4
13.5
13.6

101550

034322 6

101564
104336
103472
110122
110230
111067
110230
110231
110256
110260
110252
110110
110262
110120

T4.1
T4.10
T4.11
T4.12
T4.13
T4.164
14.2
74.3
T4.4
T4.5
14.6
14.7
74.8
14.9

034362
041606
042052
042324
042560
043060
035004
035564
036340
037042
037506
040142
040576
041170

112034
111752
110236
104750
110644
111260
110100
110341
110210
110220
110222
110424
110505
112156
110264
110246
111537
111615
111674
112250
112312
111211
110725
110226
110232
110234
111134
111465
111412
110.22
111333
110776
110567
110250

TS5
15.1
15.2
15.3
15.4
15.5
15.6
15.7
15.8
16
76.1
16.10
16.11

046436 6
046466
047442
050042
050516
051162
051722
052662
053202
055354 6
055414
065034
065710

027332 6
003140 6
027376
027750
030620
031440
031654
032106

16.12
16.13
16.14
16.15
16.2
16.3
16.4
16.5
16.6
16.7
76.8
16.9
17
17.1
17.2
17.3
17.4
17.5
T8
8.1
18.2
78.3
UAM
=
UNITN
UNREC =
USI
WAITF
WC.IFA=
WwC.IFE=

066560
067512
070522
071102
056326
057174

060066
061014
061572
062434
063306
064160
074676 G
074736
075334
076116
076740
077642
104714 6
104750
105330

105610
000200 G
002172 G
000006
004121
016340 G
000200
000002

———

TSV6 - PARAMETER CODING MACRO M1113
SYMBOL TABLE

wC.I1G0= 000001

WRTERR

wC.IRE= 000010
WC.IRW= 000004

wC.I10T=
WC.I11T=
wC.ISR=
wF.IED=
WwF.1ER=
WF.IHI=

WRTMSG
WSMBK

000100
000040
000020
000010
000004
000200

XFERAS
XNXM
XORBFO
XORFOR
XST0
=
XST1
=

WF . IRF= 000040

XST?2

WF.IWF= 000020

XST3

WF.IWR= 000100
WF.I3R= 000002

113004
000000

ERRORS DETECTED:

156-5

14
SEQ 0380

X$FALS= 000040

X2.UNI= 000007

016030
016466
007764
010102
000006 G
000010 G

XS0ILC=
XSOLET=
XSOMOT=
XSONEF=
XSOONL=
XSOPED=
XSORLL=
XSORLS=

X$0FFS=
X$TRUE=
X1.COR=
X1.0LT=
X1.mM82=
X1.RBP=
X1.SPA=

X2.WCF=
x3.0Ck=
x3.m82=
X3.MDE=
x3.0PI=
X3.REV=
x3.RI18=

= 000012 G

= 000014 G

XSOTMK=

001000
020000
000200
002000
000100
000010
010000
040000
100000

XSOvCk= 000025

XSOWLE= 004000
XSOwWLK= 000004

XXCOMM
003112 G
X$SALWA= 000000

000
001

VIRTUAL MEMORY USED:

XSOILA= 000400

XSOEOT= 000001
XSOIE = 000040

PAGE

005111

005054
021360 G

XST4
= 000016 G
xs080T= 000002

WF.14R= 000001
WRTCHR
010752 G

. ABS.

25-MAY-82 09:19

31544 WORDS

(

124 PAGES)

DYNAMIC MEMORY:
20346 WORDS
( 78 PAGES)
ELAPSED TIME:
00:49:06
CVTSCAQ,CVTSCAQ/=SP=SVC/ML,TSVIC,TSV22C,TSV3B,TSV4,TSV7A,
TSV

000400
000020

020000
100000
017375
000400
040000

X1.UNC= 000002

002000
000010

000006
177400
000100
000040
000001

X3.SPA= 000200

X2.8Uf= 000100

K3.TRF= 000020

X2.0PM= 100000
X2.RCE= 040000

X4.m82= 017400
X4 .RCE= 040000

X2.EXT= 000200

X2.REV= 000077
X2.S5PA= 035400

X4 .HSP= 100000

X4.TSM= 020000
X4 .WRC= 000377