Digital PDFs

AH-T096D-MC

January 1986

258 pages

Original

12MB

view download

OCR Version

10MB

view download

Document:	CVTSBD0 TSV05 TSV05 CONTROL PART 2 JAN 1986 bw
Order Number:	AH-T096D-MC
Revision:	000
Pages:	258
Original Filename:	CVTSBD0__TSV05__TSV05_CONTROL_PART_2__AH-T096D-MC__JAN_1986_bw.pdf

OCR Text

TSV05 CONTROL PART 2

CVTSBDO

AH-T096D-MC

10F2 JAN 1986

Hnflflfln
MADE IN USA

b3oet

A
COPYRIGHT® 1982-85

dlifg]it[a]t

MADE IN USA

? o

SEQ 000

USER DOCUMENTATION

MACRO Y05.02

Mondey 16-Sep-85 10:39

Page 2

.REM_
IDENTIFICATION
PRODUCT

1ID:

AC-TO950-MC

PRODUCT

TITLE:

CVTSBDO TSVOS CTRL PART 2

DEPARTMENT :

COMPUTER SPECIAL SYSTEMS/PGG

DOATE:

AUGUST 23,

1985

THE INFORMATION IN THIS DOCUMENT IS
SUBJECT
TO_
CHANGE WITHOUT
NOTICE
AND
SHOWD
NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
NO RESPONSIBILITY IS ASSUMED
FOR
SOFTWARE ON EQUIPMENT THAT IS NOT
AFFILIATED

COMPANIES.

THE
USE
SUPPLIED

OR
BY

RELIABILITY
OF
DIGITAL
OR ITS

1985 8Y DIGITAL EQUIPMENT CORPORATION

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION:

OIGITAL
DEC

PDP
DECUS

UNIBUS
DECTAPE

MASSBUS

MACRO Y05.02

Monday 16-Sep-85 10:39

WVMbUWNLFO

GENERAL INFORMATION

~NOUVMBULINFO

OPERATING INSTRUCTIONS
COMMANDS
SWITCHES

PROGRAM

Page 3

CONTENTS

ABSTRACT

SYSTEM REQUIREMENTS
RELATED ODOCUMENTS AND STANDARDS
OIAGNOSTIC HIERARCHY PREREQUISITES
ASSUMPTIONS

FLAGS

HARDWARE QUESTIONS

SOF TWARE QUESTIONS

EXTENDED P-TABLE

DIALOGUE

ERROR INFORMATION

PERFORMANCE

DEVICE INFORMATION TABLES

QUICK STARTUP PROCEDURE

TEST SUMMARIES

NNV

e
e e e

TABLE OF

USER DOCUMENTATION

MAINTENANCE HISTORY

AND PROGRESS REPORTS

SEQ 0002

USER DOCUMENTATICN

MACRO

Y05.02

Monday

16-Sep-85

1.0

GENERAL INFORMATION

1.1

PROGRAM ABSTRACT

10:39

Page 4

SEQ 0003

THIS IS A PDP-11,23 RESIDENT DIAGNOSTIC WHICH CHECKS THE

FUNCTIONALITY

OF
A
TSVOS
MAGTAPE
SUBSYSTEM WHILE CONNECTED TO A PDP-11//23 SYSTEM
(Q-BUS).
THE PROGRAM PROVIDES ERROR
MESSAGES
WHICH
IDENTIFY
FAILING

FUNCTIONS THAT AID IN THE REPAIR OF THE DEVICE.
THIS DIAGNOSTIC CONSIST OF
TWELVE TEST. TEST 1-9 ARE EXECUTED IN SEQUENCE. TEST 10-12 ARE STAND ALONE TEST
WHICH ALLOW THE OPERATOR TO PERFORM SPECIFIC FUNCTIONAL TEST ON SCOPE LOOPS
ON CERTAIN FUNCTIONS.

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 XXDPe+, ACT, APT, SLIDE AND PAPER
TAPE.
FOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES, REFER
TO THE XXDPe+ USER’'S MANUAL.
THERE IS A BRIEF DESCRIPTION OF
THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT.

1.2

SYSTEM REQUIREMENTS

POP-11/23 PROCESSOR AND MEMORY

CAUTION:DIAGNOSTIC REQUIRES 32K WORDS OF MEMORY
(28K USEABLE AND 4K RESERVED FOR I/0 PAGE)
TSVOS MAGTAPE SUBSYSTEM (DRIVE AND CONTROLLER)
CONSOLE TERMINAL

PDP-11 DIAGNOSTIC SUPERVISOR (HSAAA.SYS VERSION 34
PDP-11 DIAGNOSTIC LOADER/MONITOR {XXDPe)

1.3

OR LATER)

RELATED DOCUMENTS AND STANDARDS

DIGITAL EQUIPMENT CORPORATION DOCUMENTS:
1.

2.
3.
4,

CHQUS XXDPe+
USERS GUIDE;
DATE: 14 JULY 1980.

DOCUMENT

NUMBER AC-F348E-MC

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

DOCUMENT NUMBER EK-TSV0S5-UG-001

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

DATE:

AUGUST

1982

TSVOS TRANSPORT SUBSYSTEM INSTALLATION MANUAL;
DATE: AUGUST 1982

DOCUMENT NUMBER EK-TSV05-IN-001

USER DOCUMENTATION

MACRO Y05.02

1.4

16-Sep-85 10:39

Page 5

SEQ 0004

DIAGNOSTIC HIERARCY PREREQUISITES

FUNCTIONAL
FUNCTIONAL
FUNCTIONAL
FUNCTIONAL

1.5

Monday

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

ASSUMPTIONS

ALL HARDWARE EXCEPT THE HARDWARE UNDER TEST
PROPERLY OR FALSE ERRORS CAN BE REPORTED.

IS ASSUMED TO WORK

SPETISEE BEING USED ON THE TS0S TRANSPORT IS A KNOWN GOOD REEL

CVTSAA HAS RUN SUCESSFULLY.
2.0

OPERATING INSTRUCTIONS

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

COMMANOS

THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES
(SUPERVISOR).
THIS SECTION LISTS THE COMMANDS AND GIVES A VERY
BRIEF DESCRIPTION OF THEM.
THE XXDPe USER'S MANUAL HAS MORE DETAILS.
COMMAND

EFFECT

START
RESTART

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

CONTINUE

PROCEED

tC)

EXIT

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

DROP

DEACTIVATE A UNIT

ADD

DISPLAY
FLAGS

ZFLAGS

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

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

TYPE A LIST OF ALL DEVICE INFORMATION

TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3)

CLEAR ALL FLAGS (SEE SECTION 2.3)

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

USER DOCUMENTATICN

MACRO Y05.02

2.1.1

Monday

16-Sep-85

10:39

Page 6

SEQ 000S

OFERATOR COMMANDS

THE TSVOS DIAGNOSTIC IS A PDP-11/23
DIAGNOSTIC
PROGRAM.
ALL LOADING AND RUNTIME INSTRUCTIONS

CHQUS XXDP+

USERS GUIDE,DOCUMENT

SUPERVISOR
COMPATIBLE
CAN BE REFERENCED IN THE

NUMBER AC-F348E-MC.

THE USER ENTRY IS IN QUOTES.

800T THE DIAGNOSTIC MEDIA
.R VISB??
DIAG. RUN-TIME SERVICES REV D.
CVTISB-A-0
4688TSVOS

LOGIC

Uggt IS TSVOS

APR 79

DIAGNOSTICssse

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 8Y “DDDDD".
SWITCH

EFFECT

/TESTS:LIST

/PASS : DDOOD
/FLAGS :FLGS

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
BE RUN.
ALL OTHER TESTS WILL NOT BE RUN.
EXECUTE DDDDD PASSES (DDDDD = 1 TO 64000)
SET SPECIFIED FLAGS.
FLAGS ARE DESCRIBED

/EOP :DDODD

REPORT END OF PASS MESSAGE

/UNITS:LIST

TEST/ADD/DROP ONLY

IN SECTION 2.3.

DDDDO PASSES ONLY.

AFTER EVERY

(DDDOD =

1 TO 64000)

THOSE UNITS

SPECIFIED

IN THE LIST.,
LIST EXAMPLE - /UNITS:0:5:10-12
USE UNITS 0,5,10,11,12 (UNIT NUMBERS = 0-63)

EXAMPLE OF SWITCH USAGE:

START/TESTS:1-5/PASS:1000/E0P
:100
THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH S 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.

SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS.

FOR EXAMPLE,

TYPE

"/TES:1-5"

INSTEAD OF

“/TESTS:1-5".

YOU MAY,

USER DOCUMENTATION

MACRO Y05.02

Monday

16-Sep-85

10:39

Page

SEQ 0006

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

TESIZ

PASS

FLAGS

EOP

........

UNITS

PR,

X
X

2.3

FLAGS

FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS "UCH AS
LOOPING ON ERROR.
ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN

CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH.

FLAGS

ARE ALSO CLEAPED 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
LOOP ON ERROR

LOE

IERs
IBRs

IXEs
PRI
PNT

B0OE

INHIBIT ALL ERROR REPORTS

INHISIT ALL ERROR REPORTS EXCEPT

FIRST LEVEL

ERROR TYPE,

(FIRST

NUMBER,

LEVEL

PC,

CONTAINS

TEST AND UNIT)

INHI.IT EXTENDED ERROR REPORTS (THOSE
CALLED BY PRINTX MACRO'S)
DIRECT MESSAGES TO LINE PRINTER
PRINT TEST NUMBER AS TEST EXECUTES

“BELL” ON ERROR

UAM
ISR

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

IDR

INHIBIT PROGRAM LROPPING OF UNITS

ADR
LoT

APPLY TO OIAGNOSTICS WHICH DO NOT
STATISTICAL REPORTING)

SUPPORT

EXECUTE AUTOORNP CODE
LOOP ON TEST

#ERROR MESSAGES ARE DESCRIBED IN

SECTION 3.1

USER DOCUMENTATICN

MACRO Y05.02

Mondey

16-Sep-85

10:39

Page 8

SEQ 0007

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

2.4

HARDWARE QUESTIONS

WHEN A OIAGNOSTIC IS5 STARTED, THE RUNTIME SERVICES WILL PROMPT
THE USER FOR HARDWARE INFORMATION BY TYPING “CHANGE HW (L) ?*
YOU MUST ANSUER *Y* AFTER A START COMMAND UNLESS THE HARDWARE
INFORMATION HAS BEEN “PRELOADED” USING THE SETUP ULTILITY (SEE

CHAPTER 14 OF THE XXDPe+ USER'S MANUAL).
WHEN YOU ANSWER THIS
QUESTION WITH A "Y*, THE RUNTIME SERVICES WILL ASK FOR THE NUMBER
OF UNITS (IN DECIMAL).
QFTER INITIAL STARTING OF

SUPERVISOR),

THE PROGRAM (START COMMAND TO

THE PROGRAM WILL ISSUE THE

THE HARDWARE PARAMETERS ARE TO BE CHANGED (BY

ON A

“N” (NO) RESPONSE TO THE

RUN USIN-

THE DEFAULT

TSBA/TSDB

172520,

ALL

VECTOR

DIAGNOSTIC

THE OPERATOR).

“CHANGE HW?" QUESTION,

VALUES FOR

THE

“CHANGE HW?” QUESTION TO ASK IF

QUESTIONS.

THE DIAGNOSTIC WILL

THE DEFAULT

ADDRESS AND 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

THE

QUESTION

MARK

THE

DEFAULT VALUE THAT WILL BE TAKEN IF ONLY A CARRIAGE RETURN IS TYPED AS A

RESPONSE.
A "(D)” IN A QUESTION INDICATES
THAT
A
DECIMAL
NUMBER
IS
REQUIRED
AS
A
RESPONSE.
AN “(0)” INDICATES AN OCTAL NUMBER IS BEING
SOLICITED.
AN “(L)” INDICATES THAT A LOGICAL RESPONSE IS
TO
BE
MADE:
*Y" FOR YES, "“N* FOR NO.

# UNITS (D)

<ENTER THE NUMBER OF M7196 CONTROLLERS
PRESENT

TO BE

TESTED>

UNIT O

DEVICE ADDRESS
VECTOR (0) 224

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

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 4 TSVOS5 CONTROLLERS PER 11/23 AND UP TO 2 DRIVES PER CONTROLLER

ARE:

USER DOCUMENTATION

MACRO Y05.02

2.5

Monday

16-Sep-85

10:39

Page 9

SEQ 0008

SOFTWARE QUESTIONS

AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART
OR CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOFTWARE
PARAMETERS.
THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC
OPERATION MODES.
YOU WILL BE PROMPTED BY "CHANGE SW (L) ?”
IF YOU WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING
"Yr,
THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED
IN THE NEXT PARAGRAPH(S).
THE FOLLOVING QUESTIONS ARE ASKED ON
THEY ALLOW FLEXIBILITY IN THE WAY

CHANGE SW (L)

START,

RESTART,

THE PROGRAM BEHAVES.

CONTINUE.

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

INHISIT ITERATIONS (L) N ?

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

RUN AS QUICKLY

AS POSSIBLE.

ONLY QUICK-RUNNING LOGIC
TESTS USE MULTIPLE
ITERATIONS.
>

2.6

EXTENDED P-TABLE DIALOGUE

WHEN YOU ANSWER THE HARDWARE QUESTIONS,

YOU ARE BUILDING ENTRIES

IN A TABLE THAT DESCRIBES THE DEVICES UNDER TEST.

THE SIMPLEST

WAY TO BUILD THIS TABLE IS TO ANSWER ALL QUESTIONS FOR EACH

UNIT TO BE TESTED.

IF YOU HAVE A MULTIPLEXED DEVICE SUCH AS

A MASS STORAGE CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION
DEVICE WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST OF
THE ANSWERS ARE REPETITIOUS.

USER DOCUMENTATION

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 10

70 ILLUSTRATE A MORE EFFICIENT METHOD, SUPPOSE YQU ARE TESTING
A
DEVICE, THE XY11i.
SUPPQOSE THIS DEVICE CONSISTS OF
A CONTROL MODULE WITH EIGHT UNITS (SUB-DEVICES) ATTACHED TO IT.

THESE UNITS ARE DESCRIBED BY THE OCTAL NUMBERS O THROUGH 7.
THERE
IS ONE HARDWARE PARAMETER THAT CAN VARY AMONG UNITS CALLED THE
Q-FACTOR.
THIS Q-FACTOR MAY BE O OR 1.
BELOW IS A SIMPLE WAY
TO BUILD A TABLE FOR ONE XY11 WITH EIGHT UNITS.
@ UNITS (D)

8<CR>

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

UNIT 2
160000<CR>
CSR ADORESS (0) ?
SUB-DEVICE ¢ (O ) 2
1<«CR>
O«<CR>
Q-FACTOR (0) 1 ?
UNIT 3
160000<CR>
CSR ADORESS (0) ?
2<CR>
SUB-DEVICE ¢ (O ) 7?7
<«CR>
Q-FACTOR (0) O ?2

UNIT 4
160000<CR»>
CSR ADDRESS (0) ?
3<CR>
SUB-DEVICE ¢ (O ) ?
<CR>
Q@Q-FACTOR (0) O 7
UNIT 5

160000<CR>
CSR ADDRESS (0) ?
4<«CR»>
SUB-DEVICE ¢ (O ) ?
<«CR>
€ FACTOR (0) O ?
UNIT 6
160000<CR»>
CSR ADORESS ( 0) ?
S<CR>
SUB-DEVICE # (0) ?

Q-FACTOR (0) 0 ?
UNIT 7

CSR ADDRESS (0) ?

<CR»

160000<CR>

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

160000<CR>
7<CR>
SUB-DEVICE @ (0) ?
<CR>
Q-FACTOR (0) 1 ?
NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A
NON-DEFAULT RESPONSE IS GIVEN.
BE CAREFUL WHEN SPECIFYING

MULTIPLE UNITS!

AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS
DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT.
THE PROCEDURE SHOWN IS
NOT VERY EFFICIENT.

SEQ 0009

USER DOCUMENTATION

MACRO Y05.02

Monday 16-Sep-85 10:39

Pege 10-1

SEQ 0010

THE RUNTIME SERVICES CAM TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER.
%EI}&REUILD THE SAME TABLLC USING THE MULTIPLE SPECIFICATION
€@ UNITS (D)

8<CR>

UNIT 1
160000<CR>
CSR ADDRESS ( 0) ?
SUB-DEVICE ¢ (0) ?
O0,1<CR>
1,0<CR>
Q-FACTOR (0) 0 ?
UNIT 3
160000<CR>
CSR ADDRESS ( 0) 2
SUB-DEVICE # (0) ?
2-5<CR>
Q-FACTOR (0) 0 ?
O<CR>

UNIT 7
CSR ADORESS (0) ?
160000<CR»>
6,7<CR>
SUB-DEVICE # (0) ?
1<CR>
Q-FACTOR (0) 0 ?

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.

BUILT.,

1IN THE SECOND PASS,

FOUR ENTRIES WERE

THIS IS BECAUSE FOUR SUB-DEVICES WERE SPECIFIED.

THE

#-» CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA

FROM THE FIRST NUMBER TO THE SECOND.

IN THIS CASE,

SUB-DEVICES

2. 3, 4 AND S WERE SPECIFIED.
(IF THE SUB-DEVICE WERE SPECIFIED
BY ADDRESSES, THE INCREMENT WOULD BE BY 2 SINCE ADDRESSES MUST
BE ON AN EVEN BOUNDARY.)
THE CSR ADDRESSES AND Q-FACTORS FOR
THE FOUR ENTRIES ARE ASSUMED TO BE 160000 AND O RESPECTIVELY
SINCE THEY WERE ONLY SPFCIFIED ONCE.
THE LAST TWO UNITS ARE
SPECIFIED IN THE THIRD PASS.

THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS
SHOWN BELOM.
& UNITS (D)

8<CR>

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

Q-FACTOR (0) O 2?2

0,1,0,,,.1,1<CR>

AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING
A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY.

MACRO Y05.02

Monday 16-Sep-85 10:39

2.7 QUICK START-UP PROCEDURE
TO START-UP

Page 11

SEQ 0011

(XXDP+)

THIS PROGRAM:

800T XXDPe«

GIVE THE DATE AND ANSWER 1HE LSI AND S50HZ (IF THERE

TYPE

"START*

ANSWER

“R NAME”,

IS A CLOCK) QUESTIONS

TYPE

USER DOCUMENTATION

FILE FOR

THIS

THE

WHERE NAME IS THE NAME OF THE BIN OR BIC

PROGRAM

"CHANGE

HW"

QUESTION WITH

ANSWER ALL

THE HARDWARE QUESTIONS

ANSWER THE

~"CHANGE SW*

QUESTION WITH

"Y*

"N*

WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY

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

THE

THESE DEFAULTS

3.0 ERROR INFORMATION
3.1 TYPES OF ERROR MESSAGES

THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY
A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED.
GENERAL ERROR MESSAGES
ARE ALWAYS PRINTED UNLESS THE "IER" FLAG IS SET (SECTION 2.33.
THE GENERAL ERROR MESSAGE IS OF THE FORM:
NAME
TYPE
NUMBER
ERROR MESSAGE

ON UNIT NUMBEP

TST NUMBER PC:XXXXXX

WHERE; NAME = DIAGNOSTIC NAME

TYPE = ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT)
NUMBER = ERROR NUMBER
UNIT NUMBER = O - N (N IS LAST UNIT IN PTABLE)D
TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED
PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL

BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL
INFORMATION ABOUT THE ERROR.
THESE ARE ALWAYS PRINTED UNLESS
THE "IER” OR “IBR” FLAGS ARE SET (SECTION 2.3).
THESE MESSAGES
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE.
EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION
SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA.
THESE ARE ALMAYS

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.

USER DOCUMENTATION

MACRO Y05.02

Monday

16-Sep-85 10:39

Page 12

SEQ 0012

3.2 SPECIFIC ERROR MESSAGES

BELOW ARE SAMPLE ERROR MESSAGES. EACH ERROR MESSAGE

OF ERRORS DETECTED 8Y THIS OIAGNOSTIC

REPRESENTS DIFFERENT TYPES

ERROR MESSAGE EXAMPLE 1

THIS ERROR IS INDICATIVE OF AN INCORRECT REGISTER OR STATUS WORD RETURNED
70 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

ISE%RECT REGISTER OR STATUS WORDS.

THE THIRD PART IS THE EXPECTED AND RECEIVED

TST: 016 FIFO EXERCISER TEST
CVTISB HRD ERR 01610 ON UNIT 00 TST 016 SUB 002 PC: 040624
FIFO STATUS (IN WORD
9) INCORRECT AFTER WRITE FIFO
TAPE BUS SIGNALS IN WORD #8:
PARERR<1S>
IJEOT
«<12>
IFMK

JRESV2<14>
IRESV1<13>

TIDENT<11>
ICER
<10>

- DESIGNATOR
«9>
IRDY<6>

JIHER
«<8>
ISPEED<7>

TAPE B8JS SIGINALS IN WORD #9:

JIONL<S>
ILDP<4>

IFBY<l>
IFPT<O»

DATMIS<7>
ILMW<6>
OUTRDY<S>
INRDY<4>
MESSAGE BUFFER ADORESS = 047352
HESSAGE BUFFER CONTENTS:
WORD #0 EXPD: 100020
RECV: 100020
WORD €1 EXPD: 000012
RECV: 000012
WORD #2 EXPD: 000000
RECV: 000000
WORD &3 EXPD: 000010
RECV: 000010
WORD &4 EXPD: 000000
RECV: 000000
WORD #5 EXPD: 000000
RECV: 000000
WORD #6 EXPD: 000000
RECV: 000000
WORD #7 EXPD: 000000
RECV: 000000
WORD #8 EXPD: 070217
RECV: 070217
WORD #9 EXPD: 000074
RECV: 000034

‘

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

000000
000000
000000
000000
000000
000000
000000
000000
000000
000040

ERROR MESSAGE EXAMPLE 2

THIS ERROR SHOWS A FATAL FUNCTION ERROR FROM THE TAPE ODRIVE,IN THIS
fl?TSQCEDEF%%sgVERABLE ERROR OCCURED WHICH INDICATES THAT THE CONTROLLER

CVTSB HRD ERR 00159 ON UNIT 00 TST 001 SUB 005 PC:
TSSR NOT CMRECT AFTER SPACE RECORDS COMMAND
TSSR

100214

TSSR BITS SET: SC,SSR
IERMINATION CLASS CODE = UNRECOVERABLE ERROR

PACKET
PACKET
PACKEY
PACKET
PACKET

ADDRESS
WORD ¢
WORD @
WORD ¢
WORD @

=
=
=
=
=

026420
140010
000010
000000
000024

026202

USER DOCUMENTATION

MACRO Y05.02

Monday 16-Sep-85 10:39

Pege 13

ERROR MESSA.€ EXAMPLE 3

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

CVTSB HRD ERR 00121 ON UNIT 00 TST 001 SUB 002 PC: 023306
MOT BIT (XSTO) NOT SET DURING REWIND (EXTENDEQ FEATURES MODE)
EXPD: 000312 RECV: 000112 XOR: 000200
4.0 PERFORMANCE AND PROGRESS REPORTS

AT THE END OF EACH PASS,

THE PASS COUNT IS GIVEN ALONG WITH THE

TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED.

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

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

UNIT O

OEVICE ADORESS
VECTOR (0) 224

CHANGE SW (L)

(0) 172520 ?
?

<CR>

? N<CR>

THE ABOVE COMMAND WILL
START
THE
OIAGNOSTIC.
THE
COMMAND
HAS THREE
SWITCHES
ON
WHICH
ARE
~PRINT EACH TEST NBR AS EXECUTED” , *MALT ON
ERROR” AND "RUN IN UNATTENDED MODE”~.

NOTE:THE UAM FLAG SHOULD BE USED TO PREVENT TEST 10-12 FROM BEING
EXECUTED UNLESS THE OPERATOR WANTS THESE SPECIFIC TEST.
TST:
TIST:
TST:
TST:
IST:
TST:
TST:
TST:
TST:
T5T:
TST:
TST:

001
002
003
004
005
006
007
008
009
010
011
012

0 ERRORS

INITIALIZE &3 TESY
BASIC WRITE SUBSYSTEM MEMORY TEST
DMA MEMORY ADODRESSING TEST
RAM EXERCISER TEST
FIFO EXERCISER TESTY
STATIC TRANSPORT BUS CHECK
TRANSPORT BUS INTERFACE CHECK VIA LOOPBACK. TEST
READ/WRITE DATA PARITY CHECK TEST
MISCELLANCOUS LOGIC CHECKS TEST
STAND-ALONE MANUAL INTERVENTION NOT EXECUTED TEST
STAND-ALONE CONFIGURATION TYPEOUT NOT EXECUTED TEST
STAND-ALONE SCOPE LOOPS NOT EXECUTED TEST

SEQ 0013

USER DOCUMENTATIGON

MACRO Y05.02

NOTE:

Monday

16-Sep-85

10:39

Page

SEQ 0014

THE DIAGNOSTIC WILL RUN CONTINUOUSLY UNLESS A PASS 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

ARE

PROCESSOR WITH A LA-34 CONSOLE.

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 REPSATED BY THE NUMBER OF TIMES
INDICATED
BY
THE
ITERATION
COUNT.
NO 1TERATIONS MODE IS SELECTED BY ANSWERING THE
INHIBIT ITERATIONS QUESTION WITH A “Y* (YES).
TEST
NUMBER

1
2

3
4
S

6
7

8
9

N/I
SECS.

15
1

1
110
1
10
1
15
17

ITER
SECS
50
6
1

DEF
SECS.

35
5

540
10

0
430
9

12¢
15
17

110

12
13

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

Q.v.
OEFAULT

2 MINS 19 SECONDS
11 MINS 35 SECONDS

USER DOCUMENTATICN

MACRO Y05.02

5.0 DEVICE

Monday

16-Sep-85

10:39

Page

SEQ 0015

TINFORMATION TABLES

WHENEVER THE PROGRAM IS STARTED, VIA THE STA(RT) COMMAND,
E:ENSESERVISOR REQUESTS THE FOLLOWING P-TABLES PARAMETER

CHANGE MWW (L)
@ UNITS

(D)

<ENTER THE NUMBER OF M7196 CONTROLLERS
PRESENT TO BE TESTED»

UNIT O
DEVICE ADORESS
VECTOR (0)

(0)

224

172520

<ENTER THE AODRESS OF

TSBA/TSDB

THE ADDRESS AND VECTOR QUESTIONS WILL BE

UNITS

(CONTROLLERS) SPECIFIED IN THE

NUMBERS ARE ASSIGNED IN ORDER,
SELECTED FOR TESTING.

INTERRUPT

ASKED FOR EACH OF

"# UNITS?” QUESTION.

BEGINNING AT O.

CHANGE SW (L)

THE NUMBER OF

LOGICAL UNIT

TO FOUR UNITS CAN BE

IN ANDDITION, ON A START, RESTART OR CONTINUE THE SUPERVISOR
ggougags CHANGES TO THE SOFTWARE OPERATING PARAMETERS, AS
LL

THE

MACRO Y05.02

USER DOCUMENTATIGN

6.0
TEST

TEST

Monday

16-Sep-85

10:39

Page

SUMMARIES

INITIALIZE AFTER WRITE CHARACTERISTICS
TEST DESCRIPTION:

This test verifies thet & Hardware Initialize commend
invoked after a Write Characteristics command sets up
the Command, Message and Characteristic image blocks
in the controller ram correctly.
TEST 2:

BASIC WRITE SUBSYSTEM MEMORY COMMANO

THIS TEST VERIFIES THAT THE WRITE SUBSYSTEM MEMORY COMMAND WITH A
BSELO SELECT CODE OF O (NO-OP) EXECUTES CORRECTLY. IT ALSO
VERIFIES THAT A WRITE SUBSYSTEM MEMORY COMMAND WITH A NON-ZERO
MODE FIELD IS REJECTED., THE TEST FURTHER VERIFIES MICROPROGRAM
COMMAND DECODING AND HANDLING SEQUENCES.
TEST

DMA MEMORY ADDRESSING
This test verifies that the controller cen properly address and

access all available CPU memory (other than that occupied by the

diegnostic and diagnostic supervisor code) for both reading (DATI)
ond writing (DATO). Verified are the LSI-11 Bus drivers for all
available address lines.
used for DMA transfers.

Up to this point only 16 bits have been

2808008048008 04400000408804885048888880888888884884080888880880084802

CAUTION
The LSI BUS drivers for all availeble address lines

are only checked when running on a 11/238 system with more then
128K words of memory!
$008840000888000880880008008480888080008808048000080000864008000084

TEST

4&4:

RAM EXERCISER TEST

THIS TEST USES THE READ AND WRITE RAM (B0TH SINGLE AND 256
LOCATIONS) SELECT CODES OF THE WRITE SUBSYSTEM MEMORY COMMAND
TO EXERCISE THE CONTROLLER'S RAM MEMORY AND DMA LOGIC
TEST

EXTENDED FEATURES SWITCH AND TIMERS A,8
TeST DESCRIPTION:

This test verifies the Invert Extended Features function
cen logically invert the Extended features switch and
that the internal timers A and B operate correctly.

SEQ 0016

MACRO Y05.02

USER DOCUMENTATION

TEST

Monday

16-Sep-85 10:39

Page

SEQ 0017

FIFO EXERCISER

TEST DESCRIPTION:
This

test uses the Write

Subsystem Memory

command to

verify the controller's FIFO and associated stetus and
control logic.
TEST

STATIC TRANSPORT BUS INTERFACE TEST
TEST DESCRIPTION:

Write to TSSR register to soft

initialize the controller

Do WRITE CHARACTERISTICS to check for Extended Features Switch
If Extended Features Hardware Switch Clear then:

Do Write Subsystem Write Miscelleneous to Set Extended Features.
Do WRITE CHARACTERISTICS to select reserved unit 7
Do & Write Subsystem READ STATUS
If eny transport
interface signals are asserted then Print Error

TEST

TRANSPORT BUS INTERFACE LOOPBACK TEST
TEST DESCRIPTION:
This test verifies the controller's Transport Bus

drivers, receivers, and .ignol loopback logic. Note
that the Static Transport
Bus test must have run
correctly for this test to provide mesningful results.
TEST

READ/WRITE DATA PARITY TEST

TEST DESCRIPTION:

This test verifies that the Write Data Parity generator

end the Read Date Parity checker operate properly.
Transport Bus signal loopback mode

is enabled end o

The

Set Wrong
perity function is executed. Then verious
Write Subsystem Memory functions are performed to
write dete to and from the FIFO

The progrem then checks to

error occurred.

A Reset FIFO

error bit

in loopback mode.

insure & Read Data parity

is done and the Read Data parity

is again tested to

Finally a Clear wrong parity

insure

it cleared.

function

is done

end it is verified the data word can pess in loopback
mode without setting Read Data parity error.

USER DOCUMENTATION

TEST

MACRO Y05.02

10:

MANUAL

Mondey

16-Sep-85

10:39

Page

SEQ 0018

INTERVENTION

THE MANUAL INTERVENTION TEST IS A STANDALONE ROUTINE (NOT REALLY A

“TEST")

THAT ALLOWS THE OPERATOR TO CHECK OUT VARIOUS ELEMENTS AND FUNCTIONS OF
THE SUBSYSTEM THAT CANNOT BE MANIPULATED 8Y THE PROGRAM ALONE. WHEN
THIS ROUTINE IS STARTED, IT FIRST PRINTS OUT A MENU OF SELECTABLE
SUBTESTS AND THEN WAITS FOR THE OPERATOR TO TYPE IN A SELECTION CODE.

THE ONLY WAYS TO EXIT THIS ROUTINE AND RETURN TO THE DIAGNOSTIC SUPERVISOR
ARE BY

TYPING

<CTRL-C>

SELECTING CODE 6.

SELECTION CODES AND SUBROUTINES ARE:

CVNBWNF-O

COOE

TEST

11:

ROUTINE
HELP. PRINTS THIS MENU.
TURN ON ALL M7196 LED INDICATORS
TURN OFF ALL M7196 LED INDICATORS
OFFLINE/ONLINE ATTENTION TEST
WRITE-PROTECT TESTY
PRINT EXTENDED TRANSPORT

EXIT

STATUS

(RETURN TO SUPERVISOR)

CONFIGURATION TYPEOUT
THIS IS A STANDALONE ROUTINE THAT PRINTS OUT ON THE CONSOLE TERMINAL
THE CONFIGURATION OF THE M7196 MOOULE AND TSVO5 SUBSYSTEM. SPECIFICALLY,
THE FOLLOWING INFORMATION IS PRESENTED:

1.0 STATE OF THE EXTENDED FEATURES SWITCH ON THE M7196:
FEATURES ENABLED)

OR OFF

ON (EXTENDED

(EXTENDED FEATURES DISABLED),

2.0 STATE OF THE BUFFERING ENABLE SWITCH ON THE M7196:
(BUFFERING ENABLED) OR OFF (BUFFERING DISABLED),

3.0 MICROCODE REVSION LEVEL OF THE M7196,
4.0 NUMBER OF TAPE

TRANSPORTS CONNECTED TO THE CONTROLLER,

S.0 UNIT SELECT CODE AND STATE (ONLINE/OFFLINE, WRITE ENABLED/PROTECTED)
OF EACH CONNECTED TRANSPORT. IN ADOITION, THE PROGRAM WILL INDICATE,
FOR EACH ON-LINE

TRANSPORT,

WHETHER

OR NOT

EXTENDED TAPE STATUS READOUT FEATURE.

IS EQUIPPED WITH

THE

—

MACRO Y05.02

USER DOCUMENTATION

TEST

12:

Monday

16-Sep-85

10:39

Page

SEQ 0019

SCOPE LOOPS
THIS IS A STANDALONE ROUTINE PROVIDING A NUMBER OF TIGHT “SCOPE
LOOPS” USEFUL FOR DEBUGGING BASIC REGISTER ACCESS PROBLEMS WITH
THE M7196 MOOULE.
THESE SCOPE LOOPS CAN BE USED WHEN THE NORMAL
“LOOP ON ERROR” OR “LOOP ON TEST (SUBTEST)” FACILITIES DON'T
SEEM TO ALLOW THE OPERATOR TO ZERO IN A PROBLEM IN THE EARLY
TESTS (I.E, THE HARDWARE MAY NOT BE RESPONDING TO A REGISTER
ACCESS, CAUSING A BUS ERROR TRAP, EVEN THOUGH THE DEVICE ADDRESS
SELECTED BY THE PROGRAM MATCHES THE CONFIGURATION SET UP IN THE
:c:gE:gEEDIP SWITCHES).
THE FOLLOWING MENU OF SCOPE LOOPS ARE

~NoOONa U0

CODE

SCOPE LOOP
HELP. PRINT THIS MENU,
TSBA READ ACCESS
TSSR_READ ACCESS
INITIALIZE (TSSR WRITE ACCESS)

TS08 HIGH BYTE WRITE ACCESS
TSDB LOW BYTE WRITE ACCESS
TS08 MAINTENANCE -MODE WORD WRITE ACCESS
TSOBX (TSSR HIGH BYTE) WRITE ACCESS

(EXTENDED FEATURES SWITCH MUST BE ON

TO USE SELECTION CODE 7)
EXIT (RETURN TO SUPERVISOR)

FOR SCOPE LOOPS THAT WRITE INTO REGISTERS, THE PROGRAM PROMPTS
THE OPERATOR FOR THE DATA TO BE WRITTEN,LIMITS ON THE DATA PATTENS
ARE 0-377,
TYPING <RETURN> CAUSES AN EXIT FROM THE SCOPE LOOP BACK

TO MENU LEVEL.
P

7.0 MAINTENANCE HISTORY
REVISION A

MARCH

1982

REVISION 8

APRIL

1983

MODIFIED THE DIAGNOSTIC TO HANDLE 11/23A'S
WITH MORE THAN 256KB OF MEMORY. CHANGED
TEST 3 SUBTEST 3 SO IT WON'T TRY TO CREATE

NON-EXISTANT MEMORY ADDRESS (NXM).
REVISION C

JUNE 1984
MINOR CHANGES FOR “ORION” CPU
ELIMINATED CPU TYPE IDENTIFICATION MESSAGE.

REVISION D - JULY

1985

CHANGES MADE TO BECOME COMPATIBLE WITH THE

XXDPe+ V2.1 XM (EXTENDED MONITOR), AND TO
ALLOW THE EXTENDED FEATURES YO WORK IN
EITHER THE ON OR OFF POSITION.

TSV2

- PROGRAM HEADER

930
931
932
938
939 000000
940
941
947
948
949 002000
002000

MACRO Y05.02

Monday

16-Sep-85

002000
TSve::

10:39

Pege 20

SEQ 0020

LTITLE
.SBTTL

TSV2 - PROGRAM HEADER
PROGRAM HEADER

LMCALL
SVC
.ENABLE
.NLIST
.ENABL

SVC

LC
BEX,CND
ABS,AMA

BGNMOD

TSV2

INITIALIZE SUPERVISOR MACROS

THE PROGRAM HEADER IS

L¢NAME::

LS$REV::

060
000000

001217
101242

101374
002156

002166
102004

000000
000000

000000
000000
002124

THE INTERFACE BETWEEN

THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR.

L$DEPO:
:

LSUNIT:L$TIML::
LeHPCP:
:
L$SPCP:
:
L$HPTP:
:
L$SPTP::

L$LADP::
L$STA::
L$CO::

L$OTYP::
L$APT::
L$OTP:
:

L$PRIO::

POINTER BGNSW,BGNSFT,BGNAU,BGNDU,BGNRPT
HEADER
(CvT1S8,0,0
55..0

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.BYTE
.BYTE
.BYTE

/C/
/sv/
71/
/S/
/8/
0
0
4]

.ASCI1I

/0O/

.ASCII

/0/

.WORD

655.

. WORD

L $HARD

.WORD

L$SOFT

.WORD

L$HW

.WORD

L$SW

.WORD

LS$LAST

.WORD

sDIkGNOSTIC NAME

;REVISION LEVEL

;0
;NUMBER OF UNITS
;LONGEST TEST TIME

+POINTER TO H.W.

QUES.

+POINTER TO S.W.

QUES.

iPTR.

TO DEF. M.W. PTABLE

;PTR.

TO S.W.

;DIAG.

PTABLE

END ADDRESS

sRESERVED FOR APT STATS

:DIAGNOSTIC TYPE
:APT EXPANSION

PTR.
LODISPATC

TO DISPATCH TABLE

sDIAGNOSTIC RUN PRIORITY

TSV2 - PROGRAM HEADER

MACRO Y05.02

Mondey 16-Sep-85 10:39

Page 20-1

PROGRAM HEADER

002042
002044
002044

000000
000000

000000
003
003

000000
000000
000500

003402
022214
€00000

000000

'021702
022000
000000
003410

104035
000000
021106
022166

022106

021076
000000
000000
000000

LSENVI::

LS$EXPL::
LEMREYV:
:
LS$EF::

L$SPC::
LS$DEVP:
:
LSREPP::
LSEXPS::
LS$EXPS::
L$AUT::
L$OVUT::
LSLUN::

LSDESP::

L$LOAD::
LSETP::
L$ICP::
L$CCP:
LSACP::

L$PRT::

L$TEST::
L$DLY::
LS$HIME::

.WORD
.WORD
.WORD

.BYTE
BYTE

s+FLAGS DESCRIBE HOW IT WAS SETUP

1EXPANSION WORD

;SVC REV AND EDIT ¢

CSREVISION
CSEDIT

.WORD
.WORD

.WORD

L$OVTYP

.WORD

LSRPT

.WORD

L$AV

.WORD

Ls$DU

+PTR.

TO DROP UNIT COOE

tLUN FOR EXERCISERS TO FILL

EMT

E$LOAD
o

.WORD

L$INIT

.WORD

LS$CLEAN

.WORD

L$AUTO

.WORD

L$PROT

.WORD
.WORD

tPTR. TO REPORT CODE

TO ADD UNIT CODE

L$DESC

. WORD

s+ POINTER TO DEVICE TYPE LIST

tPTR.

.WORD

1DIAG. EVENT FLAGS

$POINTER TO DIAG. DESCRIPTION
s GENERATE SPECIAL AUTOLOAD EMT
1POINTER TO ERRTBL
t+PTR.

TO INIT CODE

$12TR.

TO CLEAN-UP (CODE

t+PTR.

TO AUTO CODE

1PTR.

TO PROTECT TABLE

s TEST NUMBER

sDELAY COUNT

sPTR.

TO HIGH MEM

SEQ 0021

TSV2 - PROGRAM HEADER

MACRO Y05.02

Monday

16-Sep-85 10:39

Page 21

OISPATCH TABLE
.SBTTL

DISPATCH TABLE

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

000014

022776
023756
025750
344

DISPATCH 12
. WORD
12

LSOISPATCH:
.WORD
.WORD
.WORD
.WORD
WORD
WORD

WORD
WORD

.WORD
WORD

077564

WORD
WORD

T1
T2
73
T4
75
T6
T7
T8

79
T10
T11
Ti12

SEQ 0022

TSV2 - PROGRAM HEADER

MACRO Y05.02

Monday

16-Sep-85

10:39

Page 22

SEQ 2023

DEFAULT HARDWARE P-TABLE
.SBTTL

DEFAUWLT HARDWARE P-TABLE

:
+
+

THE DEFAULT HARDWATr- P-TABLE CONTAINS DEFAULT VALUES OF
THE TEST-DEVICE PARAMETERS.
THE STRUCTURE OF THIS TABLE
IS IDENTICAL TO THF "“TRUCTURE OF THE RUN-TIME P-TABLE.

'--

000003

LEHW:
OFPTBL:
:

172520

000224
000200
L10000:

BGNHW
.WORD

.WORD
- WORD
.WORD
ENOHW

OFPTBL

+DEFAULT HARD-P-TABLE

172520
224

:
3+

L10000-L $HW/2

PRIO4

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

TSV2

- PROGRAM HEADER

MACRO Y05.02

Monday

16-Sep-85 10:39

Page 23

SEQ 0024

SOF TWARE P-TABLE
.SBTTL

SOFTWARE P-TABLE

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

i PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR.

LERRMAX::
GERRMAX::
ENDSW
L10001:

.WORD
.WORD

ENDMOD

15,

200.

000017
0007°0

TRANSTST:
:
NOITS::

SFPTBL
L10001-L#SuW/2

LESW::
::
SFPTBL

BGNSW
.WORD

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

TSVS

- GLOBAL AREAS

MACRO Y05.02

Mondey

16- Sep-85 10:39

Page 24

SEQ 0025

SOF TWARE P-TABLE
.TITLE

.SBTTL

1021 002176

- GLOBAL AREAS

TSV3

TSVS::

002176

T7TSV3

GLOBAL EQUATES SECTION

.SBTTL

GLOBAL EQUATES SECTION

: THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT
[ X

s ARE US ED IN MORE THAN ONE TEST.

1029
1033 02176

EQUALS

GET STANDARD EQUATES.

: BIT DI FINITIONS
BIT1Se= 163000
B8IT14== 4
8IT13e8IT12==
8IT1]ls=»
81710=~
81T109==
BIT708==
81I707e=
BIT06==
BITQ0S=»
81704==
81703==
81702=»
B8IT01e==
B8ITO0==
]

BIT9=»

8I78==

BIT7e=
BIT6==
B8171S=»
BIT4s==
BIT3=e
8IT2e=
B8IT1=»
BITO==

8IT00

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

000040
000037
000035
000034

éF.START s

EF .RESTART ==
EF .CONTI NUE==
EF .NEW=s=

EF .PURs==

32.

31.
30.
29.
28.

: PRIORI TY LEVEL DEFINITIONS

START COMMAND WAS ISSUED
RESTART COMMAND WAS ISSUED

CONTINUE COMMAND WAS ISSUED

A NEW PASS HAS BEEN STARTED
A POWER-FAIL/POMER-UP OCCURRED

TSVS

- GLOBAL AREAS

MACRO Y05.02

Mondey 16-Sep-85 10:39

Pege 24-1

SEQ 0026

GLOBAL EQUATES SECTION
000340
000300
000240
000200
000140

000100

huw-- 340
PRIO6+= 300

PRIOS==
PRIO4==
PRIOS==
PRIO2==
PRIO1==
PRIOO==

240
200
140
100
40
0

1OPERATOR FLAG BITS
3

EViee

LOTe=

ADRs=e
IDyY==
ISR==
UAMse=

80E=»
PNT==

PR]es=
IXE=»
IBE==
IER==

LOEe=
HOE ==

1034
1035 002176

.SBTTL

20
40
100

200

400
1000

2000

4000
10000
20000

40000
100000
KT11

MEMORY MANAGEMENT DEFINITIONS

1oKT11 VECTOR ADDRESS

1771572
177574
177576
172516

MMVEC=

250

SRO
SRiSR2+=
SR3.

177572
177574
177576
172516

18KT11 STATUS REGISTER ADDRESSES

OF NB

s 6USER “I” PAGE DESCRIPTOR REGISTERS

UIPORO=
UVIPOR1=
UVIPDR2=
UIPORS=
UIPOR4=
UVIPOR3=
UIPOR6=
U%:Oflg'

177600
177602
177604
177606
177610
177612
177614

177616

1¢USER "0 PAGE DESCRIPTOR REGISTORS

UDPDRO=
UDPOR1=
UDPDR2=
UDPORS=
=
VDPOR4
UDPOR3+
UDPOR6=
UDPDR7=
.ENDC

177620
177622
177624
177626

177632
177634
177636

sDEFINE MEMORY MANAGEMENT REGISTERS

TSV3

- GLOBAL AREAS

MACRO Y05.02

Monday

16-Sep-85

10:39

Page 24-2

MEMORY MANAGEMENT DEFINITIONS
808§ER “I” PAGE ADDRESS REGISTERS

UIPARO= 177640
UIPAR1ls 177642
UIPAR2= 177644
UIPAR3= 177646
UIPAR4= 177650
UIPARS= 177652
UIPARG6= 177654
UIPAR7= 177656
.IF N8B

1#USER “D” PAGE ADDRESS REGISTERS

UDPARO=
UDPARL1=
UDPAR2=
UDPAR3=
UDPAR4=
UODPARS=
UOPARG6=
UOPAR7=
.ENOC
.ENOC
.IF NB

177660
177662
177664
177666
177670
177672
177674
177676

SIPORO=
SIPOR1=
SIPOR2=
SIPDR3=
SIPDR4=
SIPDRS=
SIPOR6=
S%gbfig-

172200
172202
172204
172206
172210
172212
172214
172216

1 8SUPERVISOR “I” PAGE DESCRIPTOR REGISTERS

; «SUPERVISOR “D" PAGE DESCPIPTOR REGISTERS

SOPDRO=
SOPDR1=
SOPDR2=
SOPDR3=
SOPDR4=
SOPDRS=

172220
172222
172224
172226
172230
172232
SOPDR6= 172234
SOPDR7= 172236
.ENOC

;sSUPERVISOR “I“ PAGE ADDRESS REGISTERS

SIPARO=
SIPAR1=
SIPAR2=
SIPAR3=
SIPAR4=
SIPARS=
SIPARG6=
SIPAR7=
IF N8B

172240
172242
172244
172246
172250
172252
172254
172256

1 #SUPERVISOR “D* PAGE ADDRESS REGISTERS

SOPARO=
SOPAR1=
SDPAR2=
SOPAR3=

172260
172262
172264
172266

SEQ 0027

TSV3 - GLOBAL AREAS

MACRO Y05.02

Monday

16-Sep-85

10:39

Page 24-3

MEMORY MANAGEMENT DEFINITIONS
SOPAR4= 172270
SOPARS= 172272
SOPARG6= 172274
SOPAR7= 172276
.ENDC
.ENOC

172300
172302
172304
172306
172310
172312
172314
172316

1#KERNEL “I* PAGE
KIPORO= 172300

DESCRIPTOR

REGISTERS

KIPOR1= 172302
KIPDR2= 172304
KIPOR3= 172306
KIPORA= 172310
KIPDRS= 172312
KIPOR6= 172314
KIPOR7= 172316
.IF N8B
1 ¢KERNEL

"D* PAGE

DESCRIPTOR REGISTERS

KOPDRO=
KOPOR1=
KOPDR2=
KOPDR3=
KDPDR4=
KDPDRS=
KDPDR6=
KDPOR7=

.ENOC

172340
172342
172344
172346
172350
172352
172354
172356

172320
172322
172324
172326
172330
172332
172334
172336

1#KERNEL “I* PAGE ADDRESS REGISTERS

KIPARO=
KIPARl=
KIPAR2=
KIPAR3=
KIPAR4=
KIPARS=
KIPARG6=
KIPAR7=
.IF N8

172340
172342
172344
172346
172350
172352
172354
172356

1sKERNEL *D" PAGE ADDRESS REGISTERS

KDPARO= 172360
KDPAR1= 172362
KDPAR2= 172364
KDPAR3= 172366
KOPAR4= 172370
KDPARS= 172372
KDPARG6= 172374
KDOPAR7= 172376
.ENDC

SEQ 0028

TSV3

- GLOBAL AREAS

MACRO Y05.02

Monday

16-Sep-85

10:39

Page 25

SEQ 0029

TSVOS REGISTER AND PACKET DEFINITIONS
.SBTTL

1040
1041
1042

1043
1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1035
1056
1037
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083

1084
1085
1086
1087
1088
1089
1090

}

000004
000060
177560
177562
177520

TSVOS REGISTER AND PACKET DEFINITIONS

SOME GENERAL EQUATES.

ERRVEC==

BOVPCR==

177562
177520

TTIVEC=s
TTICSR==
TTIBFR==

POINTER TO ERROR VECTOR FOR BUS TIME QUT.
INTERRUPT VECTOR FOR CONSOLE INPUT
BUS ADDRESS OF CONSOLE INPUT
CONSOLE INPUT DATA BUFFER
B8DV11 PAGE CONTROL REGISTER

60
177560

1BIT DEFINITIONS FOR TSSR REGISTER
100000
040000
€20000
010000
004000
002000
001400
000200
000100
000060
000016

SC=
8It=
SCE»

BIT1S
81T14
8IT13
RMR=
8IT12
NXM=
8IT11
NBA=
8IT10
HIADDR= BIT9!8BITS
SSR=
8177
OFL=
8IT6
FATERR= 8IT4!BITS
TERCLS= BIT3!BIT2!81IT1

1+SPECIAL CONDITION
1BUS INTERFACE ERROR
1 SANITY CHECK ERROR
sMODIFICATION REFUSED
tNONEXISTANT MEMORY ERROR
sNEED BUFFER ADDRESS
;EXTENDED ADDRESS BITS
1SUB SYSTEM READY
:OFF LINE BI7

;FATAL TERMINATION ERROR CODES
s TERMINATION CODES

1817 gEFINITIONS FOR EXTENDED STATUS REGISTER 0
1 (XST0)
H
8-

100000
040000
220000
010000
004000
002000
001000
000400
000200
000100
000040
000020
000010
000002
000001

XSOTMK= B1T1S
XSORLS= BIT14

XSOLET= BIT13

XSORLL
= B8IT12
XSOMLE= 81711
= 8IT10
XSONEF

XSOILC=
XSOILA=
XSOMOT=
XSOONL
=
XSOIE=
XSOVCK=
XSOPED=

8179
8178
81717
BIT6
8IT5
8174
8IT3
XSOWLKe BIT2
XS50807= 8IT1
XSOEQT= 8170

; TAPE MARK

DETECTED

;RECORD LENGTH SHORT
:LOGICAL END OF TAPE
;+RECORD LENGTH LONG
;WRITE

LOCK

ERROR

iNON EXECUTABLE FUNCTION
+ ILLEGAL COMMAND
s ILLEGAL ADDRESS

; TAPE IN MOTION
1 TRANSPORT ON LINE

s+ INTERRUPT ENABLE
;1 VOLUME CHECK BIT

;PHASE ENCODED DRIVE
tWRITE LOCKED

:BEGINNING OF TAPE
1END OF TAPE

TSV3 - GLOBAL AREAS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 26

SEQ 0030

TSVOS REGISTER AND PACKET DEFINITIONS
1092

3 e

1093
1094

1095
1096
1097
1098
1099
1100
iigg

+BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 1
s (XST1)

100000
040000
020000
017375
000400
000002

1103
1104

§X1.0LT
=
X1.SPARE=
X1.COR
=
X1.M82
=
X1.RBP
=
V1. UNC

BIT1S
sDATA LATE
BIT14
1+NOT USED
BIT
CORRECTABLE OATA ERROR
BITIZoBITlloBITlOOBIT9oBIT706176oBITSoBITA.BITSoBITzoBITO
BITS
sREAD BUS PARITY ERROR

= BIT1

s ALWAYS O

sUNCORRECTABLE DATA OR HARD ERROR

e
:18IT DEFINITIONS FOR EXTENDED STATUS REGISTER 2

{igz

1 (XST2)

1107
1108

100000
040000

X2.0PM
X2.RCE

= BIT15
= BIT14

1OPERATION IN PROGRESS (TAPE MOVING)
1RAM CHECKSUM ERROR

1110
1111
1112
1113

€02000
000200
000100
000077

X2.WCF
X2.EXTF
X2.BUFE
X2.REV

=
=
=
=

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

1109

{ii;

035400

000007

1116

X2 .SPAREs= BITISoBITlZoBITlloBIT9oBITO

X2.UNIT

BIT10
BIT7
BIT6
000077

= BIT2+BIT1+BITO

sNOT USED BY TSVOS (ALWAYS=0)

;IF GET STATUS THEN

CURRENTLY SELECTED UNIT NO.

1117
ii%g

;8IT DEFINITIONS FOR EXTENDED STATUS REGISTER 3
s (XST3)
8-

1120
1121
1122
1123
1124
1125
1126
{ig;

177400
000200
000100
000040
000020
000010
000006
000001

1129

1135
1136
{{g;

X3.RIB

= BITO

sMICRO-DIAGNOSTIC ERROR CODE
:NOT USED BY TSVOS
;OPERATION INCOMPLETE
+REVERSE
: TRANSPORT RESPONSE FAILURE
sDENSITY CHECK
sNOT USED ALWAYS O
;REVERSE INTO 80T

1130
1131
1132
1133
1134

X3.MDE
= 177400
X3.SPARE= BIT?
X3.0PI
= BIT6
X3.REV
= BITS
X3.TRF
= BIT4
X3.0CK
= BIT3
X3.M82Z
=8IT2.BIT1

100000
040000
020000
017400
000377

:8IT DEFINITIONS FOR EXTENDED STATUS REGISTER 4
s(XST4)
3 X4
. HSP
= BIT1S
sHIGH SPEED
X4 .RCE
= BIT14
tRETRY COUNT EXCEEDED
X4.TSM
= BIT13
;s TRANSPORT SPECIAL MOOE
X4 .M8Z
= BITIZoBITlloBITlOoBIT9oBIT8
sNOT USED ALWAYS 0
X4
. WRC

;WRITE RETRY COUNT FIELD

1139

i e

1141

s TSSR TERMINATION CODES (BIT 0-2)

1143
1144
1145
1146

1140

1142

000006
000006

TSREJ=
UNREC=

32
6

;sCOMMAND REJECTED
1 UNRECOVERABLE ERROR

TSV3

- GLOBAL AREAS

MACRO Y05.02

Mondey 16-Sep-85 10:39

Page 27

SEQ 0031

TSVOS REGISTER AND PACKET DEFINITIONS
1148
1149

1e
3

1151
1152
1153
1154
1155

3
:-

1150

1156
1157
1158

iigg

;1OEVICE REGISTER OFFSETS

000000
000000
000001
000001
000002
000003

1161

TSBA==
750B==
TSBAH==
TSOBH==
TSSR==

0
O
|
1
2

1 TSOB/TSBA REGISTER
;1TSDB/TSBA REGISTER HIGH BYTE
;:TSSR REGISTER

TSSRH== 3

s TSSR REGISTER HIGH BYTE

i{gg

s+ TSDB ADDRESS BIT DEFINITIONS
'-

iigg

000003

1166

A1716

= BIT1.81ITO

;sADDRESS BITS

17:16 ARE IN 1:0

i{gz

: COMMAND DEFINITIONS
;-

1169
1170
1171
1172
1173
1174
1178
1176
1177
1178
1179

000017
000013
000012
000011
000010
000006
000005
000004
000001

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

%%gg

;

= 17
= 13
= 12
= 11
= 10
= 6
=5
= 4
= 1

:GET STATUS
s INITIALIZE
s CONTROL COMMANDS
:FORMAT
sPOSITION
;SUBSYSTEM WRITE
tWRITE
;WRITE CHARACTERISTICS
sREAD

COMMAND PACKET HEADER WOPD BIT DEFINITIONS

1182
1183
1184
1185

100000
040000
020000
010000

P.ACK
P.CVC
p.oPP
P.SW8

1187
1188

000200
000140

P.IE
BIT
P.FMT= BIT6'BITS

11686

i{gg

007400

P.MODE

000037

P.CMD

=
=
.
=

BIT1S
BIT14
BITIS
BIT12

tBUFFER AVAIL FOR CONTROLLER
;CLEAR VOLUME CHECK
;REVERSE SEQUENCE OF DATA BITS
1SWAP BYTES IN MEMORY

= BITll'BITIO'BIT9'BIT8 ;EXTENDED COMMAND MODE FIELD
s INTERRUPT ENABLE
sPACKET HEADER TYPE (ALWAYS=0)

s 37

tMAJOR COMMAND FIELD

HE4

{%gg
1193
1194
1195
1196
1197

; CONTROL COMMAND MODE CODES
000000
000400

001000
002000
002400

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

=
=
s
=
s

08256.
18256.
20256,
44256,
S2256.

;:RELEASE BUFFER
s REWIND

:NO-0P
sREWIND IMMEDIATE INTERRUPT
:SECURITY ERASE

TSV3

- GLOBAL AREAS

MACRO Y05.02

Mondey

16-Sep-85 10:39

Page 28

SEQ 0032

TSVOS REGISTER AND PACKET DEFINITIONS
1199
1200

: CONTROLLER RAM DEFINITIONS

000167
000201
000210

000215
000234

AMCHBEG = 167

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

RMCHEND = 200
RMPKTBEG= 201
RMPKTEND= 210
RMMSGBEG
= 215
RMMSGEND
= 234
R4

:REGISTER DEFINITIONS IN THE MESSAGE BUFFER
'

000006
000010
C00014
000016

XST0==

XST2==
XST3==
XST4==

10.
12,
14,

XSTl==

;EXTENDED
1EXTENDED
;EXTENDED
tEXTENDED
{EXTENDED

STATUS
STATUS
STATUS
STATUS
STATUS

O
1
2
3
4

(WORD 4)
(
S)
(WORD 6)
(
7)
(WORD 8)

:OFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS
000002
000004
000006

PK LOW
PK HI
PKBCNT

000010

EXBCNT=10

;LOW ORDER CHARACTERISTIC OATA POINTER

:NUMBER OF BYTES IN DATA PACKET

+HIGH ORDER CHARACTERISTIC DATA POINTER

tNUMBER OF BYTES IN EXTENDED DATA PACKET

:DATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND
*

‘-

8S ELO
8s EL1
SE L2
SELOATA

0
1
2
4

:BYTE
:BYTE
sWORD
sWORD

O
1
2
3

TSV3

- GLOBAL AREAS

MACRO Y05.02

Mondey

16-Sep-85

10:39

Page 29

SEQ 0033

TSVOS REGISTER AND PACKET DEFINITIONS

1243
1244
1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259

1260
1261
1262
1263
264
1265
1266
1267
1268
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281
1282
1283
1284
1285
1286
1287
1288
1289
1290

:BSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND
000000
000001
000002
000003
000004
000005
000006
000007
000010
000011
000020
000021
000022
000023
000024

W.NOP
PW.RORAM
PW . WTRAM
PW.RFIFO

=0
=1
= 2
=3

PU.RDSTAT
PW.WCTL
PW . WFHT
PW.WMISC
PW.WNPR
PW.D22
PW.011
PW.D13
PW.NO1311
PW.ROEXT

=5
= 6
= 7
= 10
= 11
= 20
=21
= 22
= 23
= 24

PUW.WFIFO

= 4

1NO-0P
sREAD RAM

tWRITE RAM

+READ FIFO

tWRITE FIFO

1READ _STATUS
tWRITE TAPE CONTROL

tWRITE TAPE FORMAT
tWRITE MISCELLANEOUS
tWRITE NPR CONTROL

100 MICROTEST 22
+D0 MICROTEST 11
100 MICROTEST 13
1DISABLE MICROTESY 11 AND 13
tREAD EXT. TAPE STATUS (NOT SUPPORTED BY ALL TRANSPORTS

;BSEL1 CODES FOR WRITE TAPE CONTROL

000200
000100
000040
000020
000010
000004
000002
000001

WC.IFAD
WC.IOTAD
WC.I1TAD
WC.ISRESV
WC . IREM
WC.IRWU
WC.IFEN
WC.IGO

=
=
=
=
=
=
=
=

BIT7
BIT6
BITS
BIT4
BIT3
BIT2
8IT1
BITO

sIFAD sITADO
sITAD1
s IRESVS

FORMATTER ADDRESS
- TRANSPORT ADDRESS BIT O
- TRANSPORT ADDRESS BIT 1
- RESERVED #S

s IRWY
: IFEN
:1GO

- REWIND AND UNLOAD
- FORMATTER ENABLE

sIHISP

- HIGH SPEED

s IREV

- REVERSE

: JIREW

- REWIND

1240
1241
1242

SEL1 CODES FOR WRITE FORMAT

000200
000100
000040
000020
000010
000004
000002
000001

WF . IHISP
WF . IWRT
WF . IREV
WF . IWFM
WF .IEDIT
WF . IERASE
WF . I3RESV
WF . I4RESV

=
=
=
~
=
=
=
=

BIT?
BIT6
BITS
BIT4
BIT3
B8IT2
BIT1
BITO

;s IWRT

s IWFM
sIEDIT
1JERASE
s JRESV3
;IRESV4A

- WRITE

WRITE FILE MARK
EDOIT
ERASE
RESERVED @3
RESERVED #4

+BSEL1 CODES FOR WRITE MISCELLANEOUS SUBCOMMAND
000200
000020

000010
000006
000001

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

=
=
=
=
=

8I7T7
BIT4
BIT3
BIT2!8IT1
8IT0

1 INVERT SENSE OF EXTENDED FEATURES SWITCH
tRESET FIFO AND INPUT PARITY ERRORR
sRESET TAPE STATUS IN 2 FLIP-FLOPS
+ATTENTION TRIGGER FIELD
sRESET TIMER A,.B THEN DELAY TIMES IN SEL2

TSV3

- GLOBAL AREAS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 30

SEQ 0034

TSVOS REGISTER AND PACKET DEFINITIONS
1292

iggz

1 MS.ATTN SUBCODES
‘-

1295
1296
1297

iggg

000000
000002
000004

MSA
. NOP = 0s2
MSA.VOL = 12
MSA.NRAM= 242

000006

MSA.FRAM= 3s2

iNO-OP (NOTHING TRIGGERED)
i STMULATE ON-LINE/OFF-LINE TRANSISTION
1FORCE NON-FATAL RAM ERROR (FORCES ERRCODE 54)

+FORCE FATAL RAM ERROR (CAUSES SCE TO SET)

iggg

+ WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS
‘-

1302
1303
1304

iggz

000200
000100
000040

000020

NP.IR
NP . OUT
NP . LOOP
NP . WRP

= BIT?
= BIT6
= BITS
= BIT4

s INTERRUPT REQUEST (0-1 TRANSITION)
s TAPE DATA DIRECTION OUT (0= IN)
$ENABLE TRANSPORT LOOPBACK
+WRITE CORRECT PARITY

(SET=0 TO WRITE WRONG)

3¢

iggz

1 READ STATUS MESSAGE BUFFER BIT DEFINITIONS
;-

1309
1310
1311
1312
1313
1314
1315
1316
1317
1318
1319

€00200
000100
000040
000020
000010
000004
000003
100000
040000
020000

S2.0IM
Se.ILW
S2.0UTRDY
S2.INRDY
S2.ATIMR
S2.8TIMR
S2.
F
S1.PARIN
S1.I2RESV
S1.I1RESV

=
»
=
=
=
=
=
=
=
=

BIT?
BIT6
8IT5
8174
BIT3
BIT2
8IT1.BIT0
BIT15
B8IT14
BIT13

:WORD 9 BYTE 2 DATA IN MISS
3
ILW H
s
QUT RDY H
3
IN RDY H
:
TIMER A FLAG H
:
TIMER B FLAG H
s CUNDEFINED)
sWORD #8 BYTE 1 PARIN H
H
IRESV2
3
IRESV1

1321
1322
1323
1324
1325
1326
1327
1328

004000
002000
001000
00
000200
000100
000040
000020

S1.IIDENT
S1.ICER
S1.IFMK
S1.1
SO.ISPEED
S0.IROY
SO.IONL
S0.ILOP

=
=
=
=
=
=
=
=

BIT11
BIT10
BIT9
BITS
8177
BI16
BITS
BIT4

:
IIDENT H
3
ICER H
:
IFMK H
:
IHER H
1WORD 48 BYTE O ISPEED H
3
IRDY L
3
IONL L
3
ILOP L

1330
1331
1332

000004
000002
000001

SO.IRWD
SO.IFBY
SO.IFPT

= BIT2
= BIT1
= BITO

1320

1329

010000

000010

S1.IEOT7

S0O.ID8Y

= 8IT12

= BIT3

JEOT L

ID8Y L

:
:
]

IRWO L
IFBY L
IFPT L

TSV3

GLOBAL

AREAS

MACRO Y05.02

Mondeay

16-Sep-85

10:39

Page 31

SEQ 0035

SPECIAL MACROS AND OPDEFS.
1334
1335
1336
1337
1338
1339
1340

.SBTTL

SPECIAL MACROS AND OPDEFS.

:SAVE GENERAL REGS 1 TO S
:

.MACRO
JSR
. ENDM

SAVREG
R5,REGSAV

3¢

MACRO TO FORCE AN ERROR

| Bl

.n&ncao

FORCERROR

:E§§NOF LISTALL, .NLIST
.IF B NOTSSR
ENoC

TAG,NOTSSR

MOV

TSSR(RS).R1

;READ TSSR

MOV

FORCER,FORCER

;IS FORCER SET? (LEAVE C BIT ALONE)

BNE

TAG

NLIST
.IIF NOF LISTALL.,
LIST
- ENDM

;BR IF

YES

.LIST

3¢

MACRO TO FORCE AN EXIT TO AVOID SECTION ITERATIONS

i
H

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.

:
H
;-

.MACRO
FORCEXIT
.NLIST
.E§§TNDF LISTALL,
MOV

BMI

TAG

.NLIST

FORCER,FORCER

TAG

.NLIST
.IIF NDF LISTALL,
.LIST
. ENDM

+IS FORCER NEGATIVE?

sBR IF

.LIST

: "MACRO TO INCREMENT ERROR COUNTS
.MACRO
.NLIST

NEXT.ERRNO

$33.IIF NOF LISTALL,

.NLIST

.IIF NDF LISTALL,
sci

.LIST

ERRNO=ERRNO+1

ENDH

YES

TSV3 - GLOBAL AREAS

MACRO Y05.02

Mondey 16-Sep-85 10:39

Page 32

SPECIAL MACROS AND OPDEFS.
1389

1391
1392

1390

tMACRO TO PERFORM XOR

1393
1394
1395
1396
1397
1398

1399

1400
1401

.MACRO
MOV
8IC
8IC
8IS
.ENDM
000000

1402
1403

1408 002176
1409
1410

FORCER

; INITIALIZE ERROR NUMBER
- FORCE ERROR FLAG

1404
i:gz

1407

EN=0
.SBTTL

XOR
A.B
A,-(SP)
8.(SP)
A,B
(SP).,B

1 THE FOLLOWING LOCATIONS MAY BE PATCHED BY THE USER
;s TO OBTAIN THE RESULTS DESCRIBED FOR EACH.
3

000000

FORCER: :

0
;
i

+ FORCE TYPE ALL HARD ERRORS (THE ONES CALLED -

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

SEQ 0036

TSVS

- GLOBAL AREAS

MACRO Y05.02

Monday

16-Sep-85 10:39

Pege 33

SEQ 0037

GLOBAL DATA SECTION

1423
1424
1423
1426 002
1427
1428 002
1429
1430
1431 002220

.SBTTL

GLOBAL DATA SECTION

:T:fi GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED
sIN MORE THAN ONE TEST

:T'f FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIME.

sSI'GLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P-TABLE.
EPRTSH

aunsxz-fz

RCVHIADO:
RCVLOADD

0
0
0
0
224
RIO4

OOOOOOOO;OOOOOOOOOOO‘U

1412
1413
1414
1415
1416
1417
1418
1419
1420
1421
1422

3PRIN7 SWITCH

UNIT @ UNDER TEST.

IQUICK VERIFY FLAG.

1ADDRESS OF CSR FOR CURRENT DEVICE

IINTERRWT VECTOR
1 INTERRUPT PRIORITY.

tNUMBER OF TESTS RUN IN THIS PASS

1 REMAINING

RATION COUNT FOR TEST

tNUMBER OF DevICE UNDER TEST
1SET IF FATAL ERROR IS DETECTED IN TEST
$SET _IF TAPE INTERRUPT WAS RECEIVED
1EXTENDED FEATURES SOFTWARE SW O0=0FF ;1-ON
1BUFFER ENABLE SWITCH SW O=0FF ;1=ON

sEXPECTED RAM DATA FOR PRAMPKT ROUTINE
sRECEIVED RAM DATA FOR PRAMPKT ROUTINE
+HIGH ADORESS MEMORY ERROR
1LOW ADDRESS MEMORY ERROR
10ATA READ FROM RAM PACKET OR MESSAGE BUF AREA
s1RAM DATA SIZE FOR PRAMPKT ROUTINE
1RECEIVED BUFFER HIGH ADORESS
;RECEIVED BUFFER LOW ADDRESS

$TEST COUNT PATTERN
s TEST DATA
s TEST FLAG WORD
1 TSTOLK POINTER
tPRINT ROUTINE TEMP
1EXPECTED MESSAGE BUFFER DATA
tRECEIVED MESSAGE BUFFER DATA
1 TEMPORARY STORAGE FOR PRINT

TSVS

- GLOBAL AREAS

TSTBLK

MACRO Y05.02

Monday

16-Sep-85 10:39

Pege 34

SEQ 0038

TEST DATA TABLE

.SBTTL

1433
1454

TSTBLK

- TEST DATA TABLE

[ R4

:THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS
:IN SEQUENCE THE DATA IS:
ALL ZEROS

ALL ONES
WALKING ONES
WALKING ZEROS

ALTERNATING ONES AND ZEROS

TSTBLK: :

WORD
WORD

17717177
8IT0

WORD

8117

WORD
WORD
WORD
WORD
WORD
WORD
WORD

WORD

8IT9

8IT10
8IT11
8IT12
BIT13

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

BIT1S
tCB8ITO
tC8IT1
+CBIT2
tCB8IT3
+CBITA

. WORD

003062

8IT8

WORD
WORD
WORD
WORD

. WORD

077777
125232
0525235

8IT1
B8IT2
8IT3
8IT4
8ITS
BIT6

. WORD
.WORD
. WORD
. WORD
.WORD
. WORD
. WORD
. WORD
.WORD
. WORD
. WORD
. WORD
TBLEND = ,

sALL ZEROS
sALL ONES
sOATA FOR WALKING ONES

8IT14

:DATA FOR WALKING ZEROS

tCBITS

tCBITE
tCBIT?
tC8IT8
tCBITY
+CBIT10
tC8IT11
tC8IT12
tCBIT13
tC8IT14
tCBIT1S
125252
052525

sALTERNATING ONES,
sALTERNATING ONES,

ZEROS
ZERO OPPOSITE FROM ABOVE

TSVS

- GLOBAL AREAS

MACRO Y05.02

Mondey 16-Sep-85 10:39

Pege 35

SEQ 0039

GLOBAL ENVIRONMENT STORAGE
%&

.SBTTL

GLOBAL ENVIRONMENT STORAGE

igig

1STORAGE FOR DEVICE REGISTERS
000000
000000

1316 003112
1317
igig 003114

000000

OUFLG: :

.MORD

000000

NODEV: :

WORD

1320 003116
1321 003120

000000
000000

TEMPL: :
TEMP2: :

.WORD
LMORD

O
O

1323
1324
1325
1326

003124
003126
003130
003132

000000
000000
000000
(C€00000

FREE: :
FRESIZ: :
FREEMI: .WORD
KTFLG: :

.MORD
LMORD
O
.MORD

O
O

1329 003134
1330 003136

000000
000000

KTENABLE : :
NXMFLG: :

.WORD
.MORD

O
O

000000

T23A::

1322 003122

1327
1328

1331 003140
1332 003142
1333 003144

1334 003146
1333 003150
1336 003152
1337 003154
1338
003136
1339 003160
1340 003162
1341 003164
1342 003164
1343 003166
1344 003170
1343 003172
1346 003174
1347 003176
ig::

000000

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

100000
000000

000000
000000

]

1512 003062
1513 003072
{g{;

OuUMMY:

0,100000,0,0
0,0,0,0,0,0,0

XXComm: .

NXMLO: :
NXMMI : :

.MORD
.HMORD

$...FOR MULTI-UNIT CHECKOUT.

1 “OROPPED UNIT” FLAG.
s INHIBITS CODE IN “CLEAN-UP”.
tFLAG TO SAY NO DEVICE.

:SOME TEMP LOCATIONS.
1 XXOP+ COMM BLOCK POINTER.

sIST FREE MEMORY ADORESS.
.AND SIZE (IN WOROS).
sLAST HCRO IN FREE SPACE
$1KT11, MEM AVAIL FLAG -

1- .WORD
0 = <24K OR NO KT $- NZ = >24K AND KT.

1SET BY TEST ROUTINES TO FLAG >28K UNDER TEST
1SET IF WE CAN TEST CLEARED OTMERWISE

O
O

tNXM LO ADORESS BITS
sNXM HI ADORESS BITS FOR DAL'S 16-21

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

O
O
2000
O
O
O
O

1117238 FLAG
sTEST 38 FLAG t0
1324 BLOCK ADDRESS FOR 32K START
]
1ACTUAL DATA
1EXPECTED DATA

.HORD
LMURD
.MORD
LMORD
.MORD

O
O
O
O
-1

.WORD

7238::
T38FLG
PST32W
SIFLAG::
BADDAT: :
GODAT: :
LOOPFL :
CTA8::
CTABM:

111/23A FLAG

xCWIGlRATIM TABLES.
sCONFIG WORK

:END OF MEM TABLE.

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

1330

1332

10XXXX

1331

]

1333

1354
iggz
1337 003176

.MORD

sOUMMY DEVICE REGISTERS...

:
:

{ggg 003376

000000

1560 003400

000000

100000

160000

160001
14XXXX

ERTABL :
ERTABE :

SKIPT:

UNIT NOT TESTED

UNIT ONLINE,

NO ERRORS

ENCOUNTERED XXXX ERRORS

UNIT DROPPED, NON-EXISTENT DEVICE REGISTER

=
=

UNIT OROPPED, NOT IDLE AT START
UNIT DROPPED, ENCOUNTERED XXXX ERRORS

BLFY

64,

.MORO

.WORD

UNIT OMLINE,

11=SKIP SUBTEST O=NO SKIP OF SUBTEST

TSV3S - GLOBAL AREAS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 36

GLOBAL TEXT MESSAGES

iggg

.SBTTL

GLOBAL TEXT MESSAGES

1564
1565

s+ THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS,
+ MESSAGES, AND ASCII INFORMATION THAT ARE USED IN

1567
1568

$-3o

1566

:+ MORE THAN ONE TEST.

iggg

tNAMES OF DEVICES SUPPORTED
‘-

DEVTYP

1571 003402
003402
003402

124

123

126

1572
1580

/TSV0S/

1 TEST OESCRIPTION
,-

1563 833:{8
003410

L$DESC
052

052

1584
1598
1599

DESCRIPT csase TSVOS LOGIC DIAGNOSTIC - REPLACE M7196 IF ERROR ssss>
.23552

/esss TSVOS LOGIC DIAGNOSTIC - REPLACE M7196 IF ERROR ssss/

$ e

iggg

3sB8IT TO ASCII CONVERSION FOR TSSR REGISTER
;-

1602 003502
1603 003522
1604 003542
160S 00354S
1606 003551
1607 0035S5S
1608 003561
1609 003565
1610 003571
1611 003576
1612 003603
1613 003607
1614 003613
1615 003620
1616 003625
1617 003632
1618 003637
ig%g 003644

1626
1627
1628
1629
1630
1631
1632

<TSVOS»>

iggg

1621
1622
1623
1624
1625

LSOVTYP::
.ASCIZ
.EVEN

003652
003705
003740
003777
004020
004060
004117
004123
004152
004215
004221
004256

003542
003603
123
102
123
122
116
116
102
102
123
117
102
102
102
102
102

003545
003607
103
111
103
115
130
102
111
111
123
106
111
111
111
111
111

003551
003613
000
105
105
122
115
101
124
124
122
114
124
124
124
124
124

124
124
040
045
045

123
123
040
101
101

123
123
116
040
040

102

045
045
040
040
045
040
040

111

101
116
040
040
116
040
040

124

040
04S
125
111
04S
116
111

TSSRBIT::
1$:
2%:
3%:
4s:
S%:
6%:
7¢:
8¢:
9%:
10¢:
11%:
12%:
13¢:
149
15%:

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

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

.WORD
.WORD
'SC’
'BIE’
'SCE’
'RMR’
'NXM'
'NBA’
'BITY’
'BITS’
'SSR’
'OFL'
'BITS’
'BIT4
'BITY
'BIT2’
'BITY’

SFIERR:
SFHERR:
NXR:
NXRX:
TSSX:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCII

'TSSR ERROR AFTER SOFT INIT*
'TSSR ERROR AFTER BUS RESET'
/ NON-EXISTANT DEVICE REGISTER/
/#A
ADDRESS: %06/
/#A TSBA,TSSR EXP'D: #06%A,%06%N/

16¢:

.232£Z

.ASCIZ
FUSI:
.ASCII
USI:
LASCIZ
NSI:
.ASC1Z
FNOINTR:
NOINTR: .ASCIZ
IFAULT: .ASCIZ

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

'8IT0’

/#A
TSBA,TSSR REC'D: #06%A,%06/
/#%NwA/
/7
UNEXPECTED INTERRUPT/
7
INTERRUPT EXPECTED, NOT RECEIVED/
LASCII
/¥NsA/
/
NO INTERRUPT WAS GENERATED’
/
INTERRUPT FAULT/

SEQ 0040

TSV3

- GLOBAL AREAS

MACRO Y05.02

Monday

16-Sep-85

10:39

Page 36-1

SEQ 0041

GLOBAL TEXT MESSAGES
1633 004300
1634 0043335
004407
004457

101
040
040
040

040
042

042

INTX:
NOINIT:
NSINIT:
BRINIT:
NUL
:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCI2Z
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

NULCR:
EXPGOT:
EXPGT2:
DUAD12:
PKTRAM:
:
SCME:
.ASCIZ
WRTMSG: .ASCIZ
WRTERR: .ASCIZ
ROERR:
.ASCIZ
SCHERR: .ASCIZ
RETERR: .ASCIZ
NOMEM:
.ASCIZ
M8186:
.ASCIZ
M8189:
.ASCIZ
.EVEN
.SBTTL

/%p

/
/
;/

CPU PC:

#06%A

TSBA:

%06/

*BUS-INIT* DIDN'T INITIALIZE CONTROLLER/
“SOFT-INIT” DION'T INITIALIZE THE DPU/
“BUS-RESET” DION‘'T INITIALIZE THE DPU/

/9N/

/8A EXP'D: #068A, REC'D: %06/
/uNSA EXP'D: #06%A, SO6SNSA REC'D: #0sA, %06/
/78A REG(W) WRITTEN TO: #06%A REG(R) READ; EXP'D:

.ASCIZ

'RAM Contents Do Not Metch Packet Sent'’

)

005736

.
‘TSSR Incorrect After WRITE Commend, More Bits Set Than SSR’
*TSSR Incorrect After READ Commend, More Bits Set Than SSR’
‘FATAL ERROR IN SUBTEST - CHECK TAPE,CABLES, TRANSPORT etc.’
‘ERROR IN SUBTEST - WRITE DATA RETRY FIVE TIMES FAILED'
‘UNSA
‘UNSA
'UNSA

sesee NO NXM ADDRESS--CANNOT TEST NXM TIMEOUT., ssesssN’
ssesssssssssessss 11/723A SYSTEM sssseesscssssecssnN’

se0s0es00ssossessss

GLOBAL ERROR REPORT

11/238

SYSTEM

sssssssssssssssssyN’

SECTION

005742

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

NXRERR:
:

013746
012746
012746
010600

003114

104415

062706
004737

005770
L10002:

104423

1673

BGNMSG

NXRERR

tNON-EXISTANT DEVICE REGISTER.

PRINTX

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

:NODEV

MOV
TRAP
ADD

SP,RO
CIPNTX
#6,5P

003777

000002

1/7770

012746
012746

004530
000001

EXTA:

000004

JSR
ENDMSG

PC.EXTEND

TRAP

C#MSG

NEXM ADDRESS.

EXTENSION

REQUIRED.

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

EXTEND:

005727
000000
001402
004777

1¢:

TST

PEC'D:

/7
CONFIG DOESN'T MATCH MFG. MASTER/
'WRITE CHARACTERISTICS Failed’

jee

:+
+
s+

#06%A,

(PC).

:+ O = NO EXTENSION.

PC.OEXTA
ONULCR
ONULCR, -(SP)

s+
:

01,-(5P)
SP,RO

COPNTX

o4 ,SP
PC

APPEND EXTENSION TEXT.
PRINT A BLANK LINE

206/

TSVS

GLOBAL

PRITSSR

AREAS

MACRO Y05.02

Mondey

.SBTTL

SEQ 0042

PRITSSR

TSSR CONTENTS

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

s INPUTS:

1685
1686
1687

CONTENTS OF TSSR

1 SUBORDINATE ROUTINES:

1688
1689
1690
1691
1692

1700

Page 37

1681
1682
1683
1684

1697
1698
1699

10:39

TSSR CONTENTS

1675
1676
1677
1678
1679
1680

1693
1694
1695
1696

16-Sep-85

CHKAMB CHECK FOR AMBIGUOLS CONTENTS

PRITSSR:

010104
010446
012746
012746
010600
104414
062706
010400
004737
103410

012746
012746

006415
000002

016044

006635
000001

Ss:

001476

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

002632
003502

104

11:
000054

1777717

138
15¢:

002632
006606

;sSAVE GENERAL REGISTERS
1SAVE THE TSSR CONTENTS

MOV
PRINTB

R1,R4
@#TSSRFOR.R4

MOV

#TSSRFOR, -(SP)

MOV
TRAP
ADD
MOV
JSR
8CS
PRINTX

SP.RO
CSPNTB
06, 5P
R4 ,RO
PC,.CHKAMB
St
@AMBTSSR

MOV
81C

R4 ,R3
s CONTENTS OF TSSR
+CLEAR ALL MULTIPLE BIT FIELDS
MHIADDR'!'FATERR!T ERCLS,.R3
204
iNO BITS ARE SET

MOV
MOV
MOV
TRAP
ADD

BEQ
MOV
MOV

TS7

BEQ
CLC
ROL
8CC
MOV

MOVB

®AMBTSSR, -(SP)
o1,-(SP)
SP.RO
CSPNTX
o4 ,SP

OTMPBFR,R2
#TSSRBIT,.R1

15¢

13
(R1),RO

(RO)+,(R2).

BNE
MOVB

11
®,,-1(RY

B8R

10¢

TST

CLRB

PRINTX
MOV
MOV

(R1)+

-(R2)

@TSSDEF,eTMPBFR
OTMPBFR, -(SP)
#TSSDEF, -(SP)

sPRINT

THE CONTENTS OF

TSSR

3GET TSSR BACK FOR CHKAMB
+ARE CONTENTS AMBIGUOUS ?
:BRANCH IF NOT
1 SHOW CONTENTS ARE AMBIGUOUS

s TEMPORARY

ASCII

BU-FER

sASCII EQUIVALENTY OF BITS
sREMAINING BITS TO CONVERT
1BRANCH WHEN ALL ARE DONE
;CLEAR CARRY FOR SHIFT
sSHIFT NEXT BIT TO CARRY
1BRANCH IF BIT NOT SF7Y
tPOINTER TO BIT DPCr INITION
+MOVE ASCIZ TO BUFFER
+MOVE ALL BITS
:INSERT

A COMMA TO TERMINATE

sPOINT TO NEXT DESCRIPTION
;iGET THE REMAINING BITS
s TERMINATE THE LINE
sPRINT THE BIT DEFINITIONS

TSV3

- GLOBAL AREAS

PRITSSR

006170
006174
006176
006200

012746
010600
104415
062706

006204
006206
006212
006216

010403
042703
016303
010346
012746
010600

1727
1728
1729
1730
1731

1732
1733
1734

Monday

16-Sep-85

10:39

Page 37-1

104415
062706

010403
042703
001416
€06203
006203
006203
016303

010346
012746
012746
010600
104415
062706
042704
001411

000002
000006

177761
006676

204 :

MOV
MOV
TRAP
ADD

02,-(SP)
SP.RO
CS$PNTX
#6,SP

MOV
BIC
MOV

R4 ,R3
o+CTERCLS,R3S
TCOCOD(R3).R3

MOV
MOV

R3,-(SP)
#TCOASC, -(SP)

PRINTX

006476

000002

MOV

000006

TRAP
ADD

MOV

MOV
BIC
BEG
ASR
ASR
ASR
MOV

177717

007236

PRINTX

006537
000002
000006
176377

254

@TCOASC,R3

R4 .R3
0tCFATERR.R3
254
R3
R3
R3
TSFCOD(R3).R3
OTFCASC,R3

R3,-(SP)
#TFCASC, -(SP)
02,-(5P)
SP
. RO
C4PNTX
06, 5P
#1CHIADOR
, R4
304
@TEXASC,R4

006435
000002

MOV
MOV
MOV
MOV

R4, -(SP)
#TEXASC, -(SP)
02.-(SP)
SP .RO

1735

062706
013703

000006
062200

ADD
MOV

06, 5P
EPRTSW.R3

1737

010346
012746
010600
104415
062706
000207

MOV
MOV
MOV
TRAP
ADD
RTS

R3, -(SP)
e1.-(SP)
SP.RO
C$PNTX
04SP
PC

104415

000001
000004

TRAP

304

PRINTX

1PRINT

THE TERMINATION CODE

SP.RO

CHPNTX
6, 5P

MOV
MOV
MOV
MOV
TRAP
ADD
BIC
BEQ

PRINTX

tGET THE TSSR _CONTENTS
1CLEAR ALL BUT TERMINATION
3GET THE TERMINATION CODE MEANING

02.-(SP)

010446
012746
012746
010600

1736

SEQ 0043

- PRINT TSSR CONTENTS

012746
1724
1725

MACRO Y05.02

s TSSR_CONTENTS AGAIN
sCLEAR ALL BUT FATAL TERMINATION
;DON’'T PRINT IF ZERO
;ALINE TERMINATION CODE FOR INDEX
;GET THE FATAL TERMINATION CODE
:PRINT

THE FATAL

TERMINATION CODE

:CLEAR ALL BUT EXTENDED ADDRESS

;DON'T PRINT IF ZERO
+PRINT THE EXTENDED ADDRESS BITS

CPNTX

;PRINT MEAASGE BUFFER ADDRESS

;:PRINT PROPER MESSAGE

;RETURN TO CALLER

PRITSSR

GLOBAL AREAS

MACRO Y05.02

Monday

16-Sep-85S

10:39

Page 38

SEQ 0044

- PRINT TSSR CONTENTS
006360
006360

EPRT2:
EPRTL:

006415
006435
006476
006537
006606
006635

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

006676
006716
006741
006767
007011
007031
007113
007162
007206

TCOCOD:
14:

007236
007246
007302
007313
007357

PR
R R

BNOUVE
WN

TSV3

163

.ASCIZ

.EVEN
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASC12Z
.ASCI2Z
.EVEN
. WORD
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.EVEN

'SNSA ¢2200REPLACE M71960880s’

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

'#N#A
'sNsA
'#NuA
'#N¥A
‘'#NwA
'#N#A

TSSR = %06’
Extended Address Bits = %06’
Termination Cless Code = #T’
Fatal Termination Cless Code = sT'
TSSR Bits Set: sT’
TSSR Contents Are Ambiguous’

14,24,38,44,5¢4,64,74,08¢
‘Normal Termination’
‘Tarmination Condition’
‘Teape Status Alert’

‘Function Reject'’

‘Recoverable Error - Tepe Position One Record Down’
‘Recoverable Error - Tape Was Not Moved’
‘Unrecoverable Error’
‘Fatal

Controller

Error’

14,24,38,4¢
‘Internal Disgrostic Failure'’
‘Reserved’

‘Bus Interfece or
‘Revsrved’

Senity Check Error’

TSV3

- GLOBAL AREAS

PRIPKT

MACRO Y05.02

Mond

16-Sep-85

10:39

Page 39

SEQ 0045

- PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET
.S8TTL

PRIPKT

- PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET

1 THIS ROUTINE PRINTS THE ADORESS AND CONTENTS OF A COMMAND PACKET.

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

s INPUT;
!

:
:
:
3

RO
R3
R4

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

NOTE:

R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR.

MOV

RO,RS5
KTENABLE
104
R3
R3,R1
R4 ,RO
RO
Rl
OPKTADD,R1,.R4

PRIPKT::

003134
10¢:

1SAVE NO.

OF WORDS IN PACKET

1+ABOVE 28K UNDER TEST?
+BR_IF YES
:SET HIGH ORDER ADORESS 70 O
1COPY HIGH ORDER ADDRESS
1GET LOWER ADDRESS
sSHIFT BIT 15 INTO C BIT
$AND INTO HIGH ORDER.
:PRINT PACKET ADDRESS

R1,-(SP)
#PKTADD, -(SP)
#3,-(SP)

007554
000003
000010

15¢:

MOV

017316
208
25¢:

012402

CLR
MOV

.R1
PC.SETMAP
RO.R4
R1
(R4)+,R2
#PKTFRM,R1,R2

R2,-(SP)

010246

:GET_MIGH ORDER ADDRESS
1BR _IF NOT ABOVE 28K,
:GET LOW ORDER ADDRESS
sSETUP PAR6 MAPPING FOR 18 BIT ADDRESS
1GET RETURNED PARG6 ADDRESS BIAS
s SAVE WORD NUMBER
$tGET PACKET CONTENTS
;PRINT THE DATA

R1,-(SP)
*PKTFRM -(SP)

007516
000003

03, -(SP}

SP.RO
C$PNTB

0v0010

BLY

116
116

1SAVE THE REGISTERS

045
045

PKTFRM:
PKTADD:

#10,SP
R1
R1,RS

254

tNEXT WORD NUMBER
;OONE ALL PACKET WORDS?

sLOOP TILL ALL DONE
sRETURN

RTS

.ASCIZ
.ASCIZ
.EVEN

'dN¥A Packet Word O%D1SA = #06°
‘MNSA Packet Address = %01%05°'

TSVS

- GLOBAL AREAS

PRIBXOR

- PRINT EXPD,

MACRO Y05.02

Monday

16-Sep-85

10:39

Page 40

SEQ 0046

RECV AND XOR BYTE

.SBTTL

PRIBXOR

- PRINT EXPD,

RECV AND XOR BYTE

$®

tPRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE DATA BYTE
1 THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES.
H

s INPUTS::
3

]
3

R1
R2

RECEIVED DATA
EXPECTED DATA

XOR OF EXPECTED/RECEIVED DATA

s OUTPUT
:

‘-

PRIBXOR:
:

SAVREG

010203
177400

R2.R3
R1,R3
0'C<377> RO
RO,R1

PRINTB
MOV
MOV
MOV

OXORBFOR R2.R1, RS
R3,-(SP)
Rl.-(SP)
R2,-(SP)

MOV

R3,.RO

8IC
BIC

MOV
MOV
MOV
TRAP
ADD

007674
000004

000012

RTS

116

045

XORBFOR:

;s SAVE THE REGISTERS

MOV
XOR
MOV
8IC

.EVEN
.SBTTL

RO,R2
RO,R3

OXO0RBFOR, -(SP)
o4, -(SP)
SP,RO
CS$PNTB
#12,5P

sEXPECTED DATA
+FORM THE EXCLUSIVE OR
sBYTE MASK
1SAVE LOW BYTE RECV

:1SAVE LOW BYTE EXPD
$SAVE LOW BYTE XOR
;PRINT

THE MESSAGE

;RO HAS XOR ON RETURN
;:RETURN TO CALLER

.ASCIZ

'#N#A EXPD:

#03%A RECV:

PRIXOR

- PRINT EXPD,

#03%A XOR:

RECV AND XOR

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

1 INPUTS;

;

:OUTPUT:
:
RO
i

007742
007742
007746
007750
007760

PRIXOR:
:

010203

RECEIVED DATA

EXPECTED DATA

XOR OF EXPECTED/RECEIVED DATA

SAVREG
MOV

R2.R3

PRINTB

@XORFOR,R2,R1,R3

XO0R

R1,.R3

1SAVE THE REGISTERS
1EXPECTED DATA

;FORM THE EXCLUSIVE OR
;PRINT

THE MESSAGE

%03’

TSV3

MACRO Y05.02

- GLOBAL AREAS

PRIXOR

16-Sep-85 10:39

Page 40-1

SEQ 0047

RECV AND XOR

- PRINT EXPD,

007760
007762
007764
007766
007772
007776
010000
010002
1873 010006
1874 010010
1875
1876 010012
1877

Mondey

010346
010146
010246
012746
012746

MOV
MOV
MOV
MOV
MOV

010012
000004

RS, -(SP)

062706

000012

045

116

R3,RO
PC
045

XORFOR:

.ASCIZ2
.EVEN

'¥NsA EXPD:

1RO _HAS XOR ON RETURN
tRETURN TO CALLER
#06%A RECV:

#06%A XOR:

%06’

TSV3

- GLOBAL AREAS

PRIEQU

MACRO Y05.02

Monday

16-Sep-85

10:39

Page 41

SEQ 0048

- PRINT BIT NUMBERS AS ASCII EQUIVALENT

.SBTTL

PRIEQU

- PRINT BIT NUMBERS AS ASCII EQUIVALENT

[ 4

:ROUTINE TO CONVERT BIT VALUES TO ASCII AND PRINT THE STRING
1 THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE
3

s INPUTS:
i

:
i

RO
R1

OCTAL VALUE TO CONVERT
TABLE OF POINTERS TO ASCII EQUIVALENT

3
‘-

010060
010060
010064

PRIEQU:

000207

SAVREG

RTS

.SBTTL

PRIRAM

sSAVE THE REGISTERS
tRETURN TO CALLER

PRINT RAM ADDRESS

+PRINT CONTROLLER RAM ADODRESS.

1 THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.
3

s INPUTS:

RAM ADDRESS

H
'-

PRIRAM:

010066

010072
010072
010074
010100

1911 010114
2
1913 010116
1914

010446
012746

000006
045

RAMFOR ;

:SAVE R1-R5 UNTIL NEXT RETURN

ORAMFOR,R4
R4, -(SP)

MOV
MoV
TRAP
ADD
RTS

02,-(SP)
SP,RO
C$PNTB
06, SP
PC

:RETURN

.23252

'¥N#A CONTROLLER

RAM ADDRESS

MOV

010116
000002

116

SAVREG

PRINTB
MOV

sPRINT RAM ADDRESS

ORAMFOR, -(SP)

%06'

IN ERROR

TSV3

- GLOBAL AREAS

PRIADD

MACRO Y05.02

Monday

16-Sep-85

10:39

Page 42

SEQ 0049

- PRINT MEMORY ERROR ADDRESS

.SBTTL

1916
1917

PRIADD

PRINT MEMORY ERROR ADDRESS

1PRINT MEMORY ADDRESS
s THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.

: IMPLICIT INPUTS
ERRHI
ERRLO

PRIADD:
002236
002240

SAVREG

116

1SAVE R1-RS UNTIL NEXT RETURN
1GET HIGH ADDRESSS

sGET LOW ADDRESS
:COPY LOW ADDRESS
$SHIFT BIT 15 T0 C BIY
s SHIFT INTO HIGH ORDER
;PRINT MEMORY ADDRESS IN ERROR

RO, -(SP)
#PRIAQ, -(SP)
93, -(SP)

SP,RO
C4PNTB

910,SP
PC

000010

010230

ERRHI,RO

ERRLO,R1
R1,R2
R1
RO
#PRIAO,RO,R2

010230
000003

010226

- HIGH ORDER ADDRESS
- LOW ORDER ADORESS

045

PRIAO:

:RETURN

.ASCIZ
.EVEN

‘#SN#A MEMORY ERROR ADDRESS

.SB8TTL

PRITADD

= s01%05’

- PRINT MEMORY TEST ADDRESS

{PRINT MEMORY ADDRESS
IMPLICIT INPUTS
ERRHI
ERRLO

HIGH ORDER ADDRESS

- LOW ORDER ADDRESS

*¢

®e

s THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.

010274
954 010274
010300
010304

010310
010310
010312
010316
010322
010324

PRITADD:
013702
013701

010146
012746

002236

0v2240

010356
000002

ERRHI,R2
ERRLO,R1
R1,R2
R1
RO
#PRITO,R1
R1,-(SP)
#PRITO, -(SP)
o
P)

SP,RO
CSPNTB

1SAVE R1-RS UNTIL NEXT RETURN
sGET HIGH ADDRESSS
sGET LOW ADDRESS
:COPY LOW ADDRESS
sSHIFT BIT 1S 70 C BIT
$SHIFT INTO HIGH ORDER

sPRINT MEMORY ADORESS LOW IN ERROR

TSV3

- GLOBAL AREAS

PRITADD

MACRO Y05.02

Monday

16-Sep-85 10:39

Page 42-1

SEQ 0050

- PRINTY MEMORY TEST ADDRESS

010326
1961 010332
010332
010334

062706
010246

06, SP

000006

:gnxgg ga

;PRINT MEMORY ADDRESS HIGH IN ERROR

#PRIT1, -(SP)

010421
000002

1RETURN
116
116

045
045

PRITO:
PRIT1:

.ASCIZ
.ASCIZ
.EVEN

'WNSA MEMORY TEST ADORESS LOW = #06'
‘MNA MEMORY TEST ADDRESS MIGH = #06’

TSVS

- GLOBAL AREAS

SPACE

MACRO Y05.02

Monday

16-Sep-85 10:39

Page 43

SEQ 0051

- SPACE RECORDS (FORWARD AND REVERSE) COMMAND
.SBTTL

1968
1969
1970

SPACE

- SPACE RECORDS (FORWARD AND REVERSE) COMMAND

]

tROUTINE TO ISSUE A SPACE RECCRDS
sCOMMAND (FORWARD OR REVERSE)
'

s INPUT :

FIRST DEVICE UNIBUS ADORESS

NUMBER OF RECORDS TO BE SPACED OVER

8IT15 CONTR&SOgIREgTIm
8IT15 = O IS
F
8IT1S = 1 IS REVERSE

OUTPUT:

CARRY

SET
CLR

- SPACE RECORDS COMMAND 0K
- SPACE RECORDS FAILED

THE

CONTENTS OF R4

IS MOVED TO RO

IMPLICIT OUTPUT:

V¢

REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY

SIDE EFFECTS:

TAPE HAS BEEN MOVED

SPACE::
012737
012737
005703

000764
140010

010337
000407
042703
010337

010652

100403

010570
010574

012727
000000
013727
000000
005367
0013735

100000
010652
000400
010650
0v0000
016250
000250
002116

177772

010650
010650

S$:
010650

108:
154

SAVREG
MOV
MOV
TST
8MI
MOV
BR
8IC
MOV
8IS

#500.
, SOELAY
#140010.80%
R3
Ss
ns 904
10
oextxs R3
R3,908
e8iTs, 80

MOV
JSR
BCS
DELAY
MOV
MORD
MOV
LMORD
DEC
BNE

R4
. TSDB(RS)
PC,WAITF
204
250
#250.(PC)+
O
LSDLY,(PC)s
O
-6(PC)
.-4

MOV

0804 R4

1 SAVE THE GE&RAL REGISTERS
1SET UP conwo SPACE FORWARD
1CHECK FOR DIRECTION
1BR, IF REVERSE INDICATED
iLOAD UP NUMBER OF RECORDS TO SPACE
' GO

00 COMMAND

sCLEAR DIRECTION BI17
sLOAD UP NUMBER OF RECORDS TO SPACE
$SET REVERSE BIT IN COMMAND PACKeT
1SET UP R4 WITH PACKET ADODRESS
1SEND OUT COMMAND
slMI" FOR SSR

1 DELAY Asouf .25 SECONDS

IF SSR IS SET AND OK

TSV3
SPACE

- GLOBAL AREAS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 43-1

SEQ 0052

- SPACE RECORDS (FORWARD AND REVERSE) COMMAND

010576

005367

001367
005337
001356
000411
016301
012702

020201
001401
000402
000261
000401
000241

177756

DEC

010660

000002

000200

204 :

F+1 H
404 :
gg: :

010400
000207

BNE
DEC
BNE
BR
MoV

MOV

-22(PC)

. -20
SOELAY
1354

18U OELAY CMTER DOMWN
sBR, IF MORE DELA

TSSR(RS),.R1

aREAD SSR

609

OSSR, R2

ce
8EQ
B8R
SEC
B8R
CcLC

R2,R1
404
604

MOV
RTS

R4 RO
PC

18R IF TROUBLE CARRY = CLEAR
1SET UP EXPECTED
sARE THE
sgITCMY NO TROUBLE

708

:CMRY CLEAR = ERROR
sPASS PACKET ADORESS

1RETURN

:
'
'

1PACKET FOR SPACE COMMAND

010650
000000
000000
000000
000000

000000

.2¢ +10>E177770

aconwo WORD

80¢
. WORD
sWR OF RECORDS TO BE SPACED OVER WORD
904 :
. WCRD
. WORD
. WORD
SDELAY: .WORD
O
:DELAY COUNTER
.EVEN
.SBTTL

WRTCHR

- WRITE CHARACTERISTICS COMMAND

TSVS

WRTCHR

GLOBAL
-

AREAS

MACRO Y05.02

Monday

16-Sep-85

10:39

Page 44
SEQ 0053

WRITE CHARACTERISTICS COMMAND
4

tROUTINE TO ISSUE A WRITE CHARACTERISTICS
tCOMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED
i

s INPUT
:
:
:

R4
ADDRESS OF PACKET FROM TEST
RS
IRST DEVICE UNIBUS ADDRES
REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY

1OUTPUT
:

3
:

CARRY

TSSR CONTENTS

SET - WRITE CHARACTERISTICS COMMAND OK
CLR - WRITE CHARACTERISTICS FAILED

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

+SIDE EFFECTS:
;-

010662

WRTCHR:
:

002230
002226
000000
016336

10¢:

011012

20¢:

000100

254:
408%:

000010
000200

005237

002226

032763
001402
005237

000100

0V2230

000002

BENBSW
EXTFEA
R4,TSDB(RS)
PC,CHKTSSR

BR
MOV
MOV
8IT
BEQ
81S

604
TSSR(RS),R1
#SSR,R2
®0FL ,R1
254
&0FL R2

B8EQ
B8R

404
604

MOV

(R4),R3

B8CS

000002
000200
000100
020201
001401
000421
062704
011403
032763
001402

SAVREG
CLR
CLR
MOV
JSR

000012

454
:

cHP

ADD

604 :
70¢:

R2.R1

08..R4

817
8EQ
INC

axe. EXTF XST2(R3)
4S54
EXTFEA

BIT

X2 .BUFE ,XST2(R3)

INC

BENBSW

B8EQ
S0¢:

204

i SAVE THE GENERAL REGISTERS
:CLEAR BUFFER ENABLE SWITCH
sCLEAR EXTENDED FEATURES SW SWITCH
$SEND OUT COMMAND
sWAIT FOR SSR
1BR, IF SSR IS SET AND OK
18R IF TROUBLE CARRY = CLEAR
+READ TSSR
$1SET UP EXPECTED

SEC

B8R

CLC
MOV
RTS

S50¢

704
TSSR(RS),RO
PC

tWAS OFF LINE

:BR,

sMAKE

SET

IF NO OFL SETY
THEM LOOK

tARE THEY 0K
18R, IF EQUAL

s TROUBLE EXIT

IN TSSR

ALIKE

= OK

sPOINT TO WRT CHARA DATA PACKET
1GET ADDRESS OF MESSAGE BUFFER
snggNDEg FEATURES BIT SET?
:SET EXTENDED FEATURES SW SWITCH

sBUFFER ENABLE SWITCH SET
t1BR, IF SWITCH NOT SET
1SET SOFTWARE SWITCH FOR ENABLED

sSEITCARRY NO TROUBLE
s CARRY CLEAR = ERROR

sRETURN TSSR CONTENTS

sRETURN

TSVS

REMIND

GLOBAL

AREAS

- POSITION TAPE

MACRO Y05.02

Mondey

16-Sep-85

10:39

Page 45

SEQ 0054

(REWIND) COMMAND

.SBTTL

REWIND

- POSITION TAPE (REWIND) COMMAND

:THIS ROUTINE WILL REWIND THE SELECTED TAPE.
3

CAUTION:

THE ROUTINE DOES NOT WAIT FOR BOT
TO ARRIVE. ALSO THE CALLER MUST CHECK FOR
SSR TO SET IN THE TSSR

]
H
[}
H

H CALLING

]
H
3

SEQUENCE:

00 A SOFT INIT
DO A WRITE CHARACTERISTICS

JSR

PC,REWIND

FIRST DEVICE UNIBUS ADDRESS

THE CONTENTS OF R4 IS PASSED TO RO

SAVREG
MOV
MOV

SRUWPACK , R4
R4 ,TSDOB(RS)

s INPUT
H

3
3

sOUTPUT
3

H
H

011014
011014

011020
011024

011030
011034
011040
011042
011042
011046

[ B

REWIND:

012704
010465
012703
004737
103417

011110

012727

000372

013727
000000
003367
001373
005367

002116

000000

000207

011110

102010

000000

000550
016250

10¢:

MOV
JSR

8Cs
DELAY

4360, ,R3
PC.WAITF
208
250.

MOV

LS$OLTY,(PC)e

MOV
. WORD

.WORD

DEC
BNE
0EC
BNE
DEC
BNE

177772
177756

204 :

RWPACK:

CcLC
201"}
RTYS

#250.,(PC)»
]

.~AVE R1-RS UNTIL NEXT RETURN
GET PACKET ADDRESS
:SEND PACKET ADORESS TO EXECUTE

sENOUGH TIME FOR 2400°' REEL
sWAIT FOR SSR TO SET
sLEAVE WHEN SSR IS SET
;WAIT FOR .25 SECONDS

-6(PC)
-4
-ZZ(PC)

RS
104

R4 ,RO
PC

;18UMP COUNTER DOWN
sKEEP GOING

;CLEAR CARRY TO SET ERROR
;PASS THE PACKET ADDRESS
tRETLRN

.9¢,+10>E177770
.WORD
.WORD

102010
O

+POSTION COMMAND (REWIND)
stNOT USED

TO REWIND

TSV3

- GLOBAL

CXRAM

AREAS

MACRO Y05.02

Monday

16-Sep-85

10:39

Page 46

SEQ 0055

- COMPARE RAM TO I/O PACKET
.S8TTL

2155
2156
2157
2158
2159

CKRAM

- COMPARE RAM TO I/0 PACKET

:ROUTINE TO READ THE FIRST 8 BYTES FROM RAM

1 MEMORY AND COMPARE THIS DATA TO A COMMAND PACKET.

2160

s INPUT:
R4
RS

ADDRESS OF THE COMMAND PACKET
FIRST DEVICE UNIBUS ADDRESS

CARRY

SET
CLR

tOUTPUT
:
$
i

- RAM MATCHES PACKET
- RAM DOES NOT MATCH PACKET

s IMPLICIT OUTPUT:
THE TABLE RAMDATA IS FILLED WITH THE
DATA HELD IN RAM,
RAMSIZ

SET

TO 8.

FOR PRAMPKT

ROUTINE

SIDE EFFECTS:
THE

CKRAM:
:

O11114

011114
011120
011124
011130
011132
011136

011144

011150
011154
011160
011164
011166
011170
011172
011174
011200
011202
011204
01120€

011210

011212
011214
011222

SUBSYSTEM IS LEFT

012701
012702
005003
004737
112763
004737
010263
004737
116511
122124
001401
003203
0035202
020227
003761

ORAMDATA
,R]
:gHPKYBEG.R2

002242
000201

016336
000000
016336
000000
016336
000000

000000

PC.CHXKTSSR

10%:

(R1)+,(R4).

20%

:
208

000210

000010

R3
R2
R2 , #RMPKTEND

104
R3
30¢

005703
001402
000241

000401
000261
012737
001207

#0,TSDB(RS)

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

002302

30¢:
SO$:

504
#8. ,RAMSIZ
PC

IN MAINTENANCE MOOE

s SAVE THE GENERAL REGISTERS
;ADDRESS TO SAVE THE RAM DATA
;BYTE ADDRESS OF FIRST RAM DATA
iCLEAR THE ERROR FLAG
iWAIT FOR SSR
1SET MAINTENANCE MOOE
tWAIT

FOR

SSR

SET

{SELECT NEXT RAM ADDRESS
sWAIT FOR SSR TO SET
sREAC THE RAM DATA

;COMPARE TO EXPECTED
;BRANCH IF 0K
:SET ERROR FLAG
; ADDRESS OF NEXT RAM LOCATION
iREACHED END YET ?
+BRANCH TILL ALL READ
;WAS

AN ERROR FOUND

;BRANCI1+ IF NOT
sCLEAR CARRY TO SHOW ERROR
;AND EXIT
1 SHOW GOOD COMPARE
;SETUP RAMSIZ FOR PRAMPKT ROUTINE
;RETURN

TSV

- GLOBAL AREAS

CKRAM2

MACRO Y05.02

Mondey

16-Sep-85

10:39

Page 47

SEQ 0056

- COMPARE RAM TO I/O CHARACTERISTICS DATA
.SBTTL

CKRAM2

- COMPARE RAM TO I/0 CHARACTERISTICS DATA

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

iMEMORY AND COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK.
3

1 INPUT:
H

R4
RS

|
:

ADDRESS OF THE CHARACTERISTICS DATA

FIRST

DEVICE UNIBUS

ADDRESS

sOUTPUT
CARRY

SET
CLR

- RAM MATCHES PACKET
- RAM DOES NOT MATCH PACKET

)

;IMPLICIT OUTPUT:
THE TABLE RAMDATA IS FILLED WITH THE
DATA HELD IN RAM,

i
:

RAMSIZ

3 SIDE

SET

7O 8.

10.

FOR PRAMPKT ROUTINE

EFFECTS:

:
:

THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE

CKRAM2:
:

011224
012701

#RAMDATA
,R1
;gHCHBEG.RZ

002242
000167

016336
000000
016336
000000
016336
000000

000000

000010
002226

002302

000012
000200

002302

000176

PC.CHKTSSR

10%:

20¢:

000207

#0,TSOB(RS5?
PC,CHKTSSR
R2,TSDB(RS)
PC,CHKTSSR
TSBA(RS), (R1)

(R1)+,(R4).
204
R3
R2
08. ,RAMSIZ
EXTFEA

254

25%:

274

011356

308
S0¢:

#10. ,RAMSIZ
R2, #RMCHEND
104
274
R2, @RMCHEND
-2
104
R3
304

504
P,

;SAVE THE GENERAL REGISTERS
;ADDRESS TO SAVE THE RAM DATA
:BYTE AUORESS OF FIRST RAM DATA
sCLEAR THE ERROR FLAG
sWAIT FOR

SSR

1 SET MAINTENANCE MOOE
sWAIT FOR SSR TO SET
s SELECT NEXT RAM ADORESS
:WAIT FOR SSR TO SET
;READ THE RAM DATA
:COMPARE TO EXPECTED
;BRANCH IF 0K
;SET ERROR FLAG
s ADDRESS OF NEXT RAM LOCATION
sASSUME EXTFEA NOT SET

:IS THE SOFTWARE EXTENOED FEATURES SET
:8R, IF NOT SET
:SET RAMSIZ FOR EXTEND FEATURES
;AT END OF EXTENDED BUFFER
:BR, IF NOT AT END YET
AT END BRANCH
sREACHED END

YET

;BRANCH TILL ALL READ
:WAS AN ERROR FOUND ?
:BRANCH IF NOT
;CLEAR CARRY TO SHOW ERROR
:AND EXIT
: SHOW GOOD COMPARE
; RETURN

TSV3

CKMSG

GLOBAL

AREAS

MACRO Y05.02

Mondey

16-Sep-85

10:39

Page 48

SEQ 0057

- COMPARE WRITE CHAR. MESSAGE BUFFERS
.SBTTL

2255

2266
2267

CKMSG

- COMPARE WRITE CHAR. MESSAGE BUFFERS

tROUTINE 7O COMPARE A WRITE CHARACTERISTICS EXPD AND RECV

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

1 INPUT:
]
:

RO
R1

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

CARRY

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

R2
H
s OUTPUT

:IHPLICIT QUTPUT :
:
:

:
'
:

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

EXPMSG

RECMSG
RCVMIADD
RCVLOADD

SET

TO LOW ORDER ADDRESS OF

RECV

3
3 -

CKMSG:

10¢:

002322
002466

15¢:

:
254

000002
000014

000016

RO, RCVHIADD
R1,RCVLOAD
KTENABLE

104

017316

000200

SAVREG

MOV

002304
002306
003134

000012

PC,SETMAP
RO,R1
R4
R3
.
R2,.RS

(R2).EXPMSG(RAS)
(R1),RECMSG(R4)
(R2)+,(R1).
254

R3
92,.R4
R4, 014

1BR IF

YES

;:SET ERROR SEEN FLAG
sPOINT TO NEXT WORD ADDRESS

sDONE FIRST
7 WORDS?
15
18R IF NO
;xaEXTF,XST?(RS)éISIEX;gNDED FEATURES SET IN EXPO?

0¢
R4 ,#16

154

554
604

011476

;SAVE R1-RS UNTIL NEXT RETURN
: SAVE RECV HIGH ADDRESS
: SAVE RECV LOW ADDRESS
s TESTING ABOVE 28K?
;B8R IF NO
;:RETURN ADDRESS BIASED TO PARS6 IN RO
1GET RETURNED ADDRESS BIASED TO PAR6
sWORD IN BUFFER
sCLEAR ERROR SEEN FLAG
sGET EXPD BUFFER ADDRESS
1SAVE EXPD FOR ERROR REPORT
:SAVE RECV FOR ERROR REPORT
1EXPD EQUAL RECV?

;OONE EXTENDED FEATURES WORD?
IF NO
tBR
s ANY ERRORS SEEN?

tBR IF NO
:SET FAILURE
3

:+SET SUCCESS
;RETURN

- GLOBAL AREAS

Monday

16-Sep-85

10:39

Page 49

SEQ 0058

- COMPARE EXPD RECV MESSAGE BUFFERS
.SBTTL

CKMSG2

- COMPARE EXPD RECV MESSAGE BUFFERS

:ROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE

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

INPUT

0 G G2 e B0 00

CKMSG2

MACRO Y05.02

OUTPUT:

€)oe @ @0 00 o0 o0 %0 @0 w0

TSV3

R1
R2
R3

CARRY

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

SET
CLR

- MESSAGE BUFFERS MATCH
- MESSAGE BUFFERS DON'T MATCH

IMPLICIT OQUTPUT:
EXPMSG

KMSG2:
:

020327
003412
012703

000144

012746
012746
010600
104417
062706
010037
010137
005737
001403
004737

011632
000001

S¢:

017316

10s:

:SAVE R1-RS UNTIL NEXT RETURN

MOV
PRINTF
MOV
MOV
MOV
TRAP
ADD

ORECHSG EXPMSG, RS:BOD
@DEBUGMSG
1 9
#0EBUGMSG, -(SP)
#1,-(SP)
SP,RO
COPNTF
&4 ,SP

800 BR IF NO

MOV

RO ,RCVHIADD

sSAVE RECV MIGH ADDRESS

BEQ
JSR

10¢
PC,SETMAP

:BR IF NO
tRETURN ADDRESS BIASED TO PAR6 IN RO

MOV
TST

MOV

CLR

15%:

CLR
MOVB

000001

25%:

CMPB
BEQ
INC
ADD

55%:
60$:

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

R3,0RECMSG- EXPHSG 880 IS COUNT ABOVE MAX ALLOWED?

002322
002466

50%:

011626
011630

SAVREG

BUFFER IS SET TO EXPD DATA

cHpP

BLE

000144

000004
002304
002306
003134

RECMSG
RCVHIADD
RCVLOADD

MOVe

cHP

BGE
BR
TST
8EQ
CLC
BR
SEC
RTS

R1,RCVLOAD
KTENABLE
RO,R1

$SAVE RECV LOW ADDRESS
;TESTING ABOVE 28K?

:1GET RETURNED ADDRESS BIASED TO PAR6

sWORD IN BUFFER

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

tCLEAR ERROR SEEN FLAG
;SAVE EXPD FOR ERROR REPORT

R4 ,R3

sOONE ALL BYTES?

#1,R4

S04
15¢
RS
554

60¢
PC

;SAVE RECV FOR ERROR REPORT

;:EXPD EQUAL RECV?
:BR IF YES
:SET ERROR SEEN FLAG
sPOINT TO NEXT BYTE
:BR IF YES
;00 NEXT BYTE
sANY ERRQORS SEEN?
:1BR IF NO
s SET FAILURE
H
:SET SUCCESS
sRETURN

TSVS

- GLOBAL AREAS

CKMSG2
2372
2373
2374
2375
2376
2377
2378
2379

MACRO Y05.02

Monday

16-Sep-85 10:39

Page S0

SEQ 0059

- COMPARE EXPD RECV MESSAGE BUFFERS
122
116
040
056
105

011632
011722

011733
011766
012021

117
045
124
056
123

DEBUGMSG:
FERCM:

ERCM:
SIMSG:
TINERR:

.ASCIZ

.ASCII

.ASCIZ
.ASCIZ
.23252

'PROGRAM INTERNAL ERROR

/%N¥A

ess/

-CKMSG2 MESSAGE BUFFER EXCEEODED-' ;880

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

} ¢

+PRINT ROUTINE

TO FATAL

SOFT

INIT ERRORS

s INPUT:
H

CONTENTS OF TSSR AT ERROR

:+SIOE EFFECTS:
H

EXECUTES DROP UNIT TO CEASE TESTING

'
‘-

012034
012034
012034
012040
012044
012044
012044

004737
004737

006024
017202

SFIMSG:
:

L10003:

104423

BGNMSG

SFIMSG

JSR
JSR
ENDMSG

PC.PRITSSR
PC,CKDROP

TRAP

C$MSG

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

;PRINT ROUTINE TO PRINT THE CONTENTS OF
;:TSSR

AND A COMMAND PACKET

OTHER

THAN GET

STATUS COMMAND PACKET,

s INPUTS
H

TSSR CONTENTS

ADDRESS OF COMMAND PACKET

BGNMSG

PKTSSR

JSR

PC,PRITSSR

;:PRINT THE CONTENTS OF TSSR REGISTER

JSR

PC,.PRIPKT

;PRINT THE CONTENTS OF COMMAND PACKET

TRAP

C4$MSG

H
P

012046
012046
012046
012052

012056

012062
012062
012062

004737
012700
004737
104423

006024
000004
007370

PKTSSR:
:

MOV

:
110004

ENDMSG

&4 RO

;NO.

OF WORDS

IN PACKET

TSV3

- GLOBAL AREAS

CKXMSG2

MACRO Y05.02

Monday

16-Sep-85 10:39

Page 51

SEQ 0060

- COMPARE EXPD RECV MESSAGE BUFFERS
te

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

1 INPUTS:
i
'
i

R1
R4

TSSR CONTENTS
ADDRESS OF COMMAND PACKET

BGNMSG

PKTGETS

JSR

PC.PRITSSR

PKTGETS:
:

004737
012700
004737

MOV

L10005:

104423

JSR
ENDMSG

TRAP

;PRINT

#2,R0O
PC.PRIPKTY

THE CONTENTS OF TSSR REGISTER

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

C#MSG

[R4

$PRINT TSSR ERRORS FOR INITIALIZATION TESTS
:

s INPUTS:

012102
012102
012102
012106
012106
012106

004737

006024

:
SFFMSG:
L10006:

104423

R1
R4

TSSR CONTENTS
ADORESS OF COMMAND PACKET

BGNMSG

SFFMSG

JSR
ENDMSG

PC,PRITSSR

TRAP

C$MSG
PKTMES

.SBTTL

;PRINT

CONTENTS

TSSR REGISTER

TSSR AND MESSAGE BUFFER

$PRINT ROUTINE

TO PRINT

THE CONTENTS OF

:BUFFER FOR ERROR REPORTS

TSSR

AND MESSAGE

s INPUTS::
H
3
$
H

R1
R2
R3
NOTE:

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

012110
012110
012110
012114
012116
012120
012124
012124
012124

004737
010200
010301
004737

104423

006024

PKTMES:
:

014242

L10007:

BGNMSG

PKTMES

MOV
MOV

JSR

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

TRAP

C¢MSG

JSR
ENDMSG

sPRINT CONTENTS OF TSSR
;LOW ORDER ADDRESS
;HIGH ORDER ADDRESS
;PRINT THE MESSAGE BUFFER

TSV3

- GLOBAL AREAS

ADDSSR

MACRO Y05.02

Monday 16-Sep-8S 10:39

Page 52

SEQ 0061

- PRINT TEST ADDRESS AND TSSR

.SBTTL

ADDSSR

- PRINT TEST ADDRESS AN

TSSR

:PRINT ROUTINE TO PRINT THE CONTENTS OF
s TSSR AND A MEMORY TEST ADDRESS

:INPUTS:
)

'
:
s

RS
ERRHI

FIRST DEVICE UNIBUS ADDRESS
HIGH ORDER MEMORY TEST ADDRESS

BGNMSG

ADDSSR

JSR
MOV
JSR
ENDMSG

PC,PRITADD
TSSR(R3),R1
PC,PRITSSR

TRAP

C#MSG

.SBTTL

MSGEXP

ERRLO

LOW NRDER MEMORY TEST ADDRESS

‘-

012126

004737

016501
004737
012142
012142

010274
000002
006024

ADDSSR:
:

L10010:

104423

;PRINT MEMORY TEST ADDRESS

$GET CURRENT TSSR
;PRINT THE CONTENTS OF TSSR REGISTER

- PRINT WRITE CHAR.

EXPD-RECYV MESSAGE BUFFERS

s ¢

;PRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER
3

;IMPLICIT INPUTS:
EXPMSG

- EXPECTED MESSAGE BUFFER

BGNMSG

MSGEXP

MOV
TST
8EQ
MOV
JSR
ENDMSG

47,R0
EXTFEA
54
#8..RO
PC.PRMSGEXP

TRAP

C$MSG

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

012144
012144

012166

012700
005737
001402
012700
004737

104423

000007
002226
000010
014552

Ss:
L10011:

sASSUME NO EXT FEATURES
;EXT FEATURES SET?

:BR_IF NO
$EXT FEATURE BUFFER IS 8 WORDS
sPRINT EXPD/RECV MESSAGE BUFFERS

TSV3

- GLOBAL AREAS

FIFEXP

MACRO Y05.02

Monday

16-Sep-85 10:39

Page

SEQ 0062

- PRINT FIFQO EXP/RECV DATA

.SBTTL

2495

2496

FIFEXP

- PRINT FIFO EXP/RECV DATA

2497
2498
2499
2500
2501
2502
2503
2504
2505
2506
2507 012170
012170
2508 012170
012170
012172

:PRINT ROUTINE TO PRINT FIFO EXP/RECV DATA
$
3

i
FIFEXP::

010146

- EXPECTED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY

RECMSG

- RECEIVED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY)

BGNMSG

FIFEXP

PRINTX

OFIFIMSG,.R1

;PRINT BYTES TRANSFERRED

MOV
TRAP
ADD
PRINTX

SP,RO
COPNTX
#6,SP
#FIF2MSG

sPRINT HEADER MSG

MOV
MOV
MOV

012242
000002

012311
000001

MOV
MOV

MOV
TRAP

000004

ADD

MOV

015122
L10012:

012311

EXPMSG

012746
012746

012242

- BYTE COUNT

sIMPLICIT INPUTS:

000006

2509

116
116

045
04S

FIF1MSG:
FIF2MSG:

R1,-(SP)
S IFLIMSG, -(SP)
02,-(SP)

SFIF2MSG, -(SP)
#1,-(SP)
SP,.RO
C$PNTX

#4,SP

R1,.RO

JSR
ENDMSG

PC.PRBYTEXP

TRAP

C4MSG

.EVEN

.ASCIZ
.ASCIZ

:GET BYTE COUNT
sPRINT FIFO BYTES IN ERROR

'«wN«A NUMBER OF BYTES TRANSFERRED = D2’
's#NsA FIFO DATA BYTES IN ERROR:'

TSV - GLOBAL AREAS
MSGSTAT

MACRO Y05.02

Monday 16-Sep-835 10:39

Page 54

SEQ 0063

- PRINT STATUS HEADEP AND MESSAGE BUFFERS

ggi;

2519

.SBTTL

MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS

gggg

1PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV
}

2522

gggi

sIMPLICIT INPUTS:

2525
2526

:
1l

gggg

2527

2530 012350

012350

2531 012350
2532 012354
2533 012336

012701
012100
001410

012360
012362

010046
012746

012370

104415

2534 012360

012366

012372
2535 012376
2536 012400
2537 012404
2538 012410
012410

010600

062706
000766
012700
004737

012412

108

000001

MOV
MOV
B8EQ

#STATCOD,R1
(R1)+,R0O
20%

MOV
MOV

RO, -(SP)
€1,-(SP)

TRAP

000004
000012

204 :

014552

L10013:

012430

012472

012563

2542 012472
2543 012563
2544 012654
25435 012745

045
045
045
045

116
116
116
116

045
04S
O4S
04S

045

MSGSTAT

MoV

2540 012412

gsszg 013007

BGNMSG

PRINTX

104423
04S

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS

MSGSTAT: :

2539 012410
2541 012430

EXPMSG
- EXPECTED MESSAGE BUFFER
RECMSG
- RECEIVED MESSAGE BUFFER
RCVKIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADORESS

116

04S

CSPNTX

4,SP
100
#10. ,RO

TRAP

C#MSG

STATCOD:

14:.ASCIZ

2¢:.ASCIZ
348:.ASCIZ
44:.ASCIZ
S54:.ASCIZ

sPRINT STATUS BIT NAMES

SP,RO

ADD
B8R
MOV

JSR
ENDMSG

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

PC, PRHSGEXP

.MORD

;00 ANOTFER M5G LINE
sNUMBER
OF WORDS IN A READ STATUS BUFFER
sPRINT EXPD/RECV MESSAGE BUFFERS

14,2¢4,38,44,54,64,0

'w#NsSA Tape Bus Signels in Word #8:°

'#NsA
PARERR<1S5>
JEOT
«12>
'wNsA
JRESVZ2<14> TIDENT<11>
'#N=A
IRESV1<13> ICER «<10>
'#NsA Tape Bus Signals in Word #9:'

64: .ASCIleveleA

DATMIS<T>

ILW<6>

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

OUTRDY<S>

IRDY<6>
IONL<S>
ILDP<4>

INRDY<4>'

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

TSVS

- GLOBAL AREAS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 55

SEQ 0064

MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS

.SBTTL

2550

MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS

1PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV

1 IMPLICIT INPUTS:
EXPMSG

RECHMSG

'
'

0136135

013714

C10046
012746

MOV
MOV
BEQ
PRINTX
MOV
MOV
MOV
TRAP
ADD

#_00PCOD,R1
(R1)+,RO
204
RO
RO, -(SP)
o1,-(SP)
SP.RO
CIPNTX
#4,5P

sASCII ADDRESS TABLE
sOONE ALL MSG LINES?
18R IF YES
sPRINT STATUS BIT NAMES

MOV

€10.,R0

sNUMBER OF WORDS IN A READ STATUS BUFFER

JSR

L10014:

013320

ENDMSG
TRAP

LOOPCOD:
14:.ASCIZ
24: .ASCIZ
:.ASCIZ
.

»
]
0O
~

013221

MSGLOOP

208 :

000012
014552

~NOVNS
W

013126

013146
013221
013320
013417
013516

10¢:

coocee

013102
013104
013106
013112
2568 013114
013120
013124
013124
013124

BGNMSG

MSGLOOP:
:

013126

RECEIVED MESSAGE BUFFER

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

012701
012100
001410

- EXPECTED MESSAGE BUFFER

.
:.ASCIZ

104

s00 ANOTHER MSG LINE

PC .PRMSGEXP

zPRINT EXPO/RECV MESSAGE BUFFERS

CeMSG

. WORD
14.24,.34.44,5¢4,64,74.,0
'#NsuA Tepe Bus Loopbock Su gnals in Word #8:'
'sNsA
PARERR<15»
JRESV2<14>
‘'wNsA IMISP=>IEOQOT<12>
IWRT=>IIDENT 11>
'UNsA TWFM =>IFMK<09>
JIEDIT=>IHER <08>
‘#NsA ITADO=>IRDY<06>

'dNsSA IREW =>IDBY<03>
'#NsA IGO
=>IFPT<00>'

ITAD1=>IONL

<0S>

IRWU =>IRWD <02>

IREV
IFAD

IRESV1<13>’
=>JICER
<10>'
=>ISPEED<«Q7>'

IFEN

s=>IFBY

JERASE=>ILDP

<04>’

<O01>'

TSV

- GLOBAL AREAS

MSGSUB

MACRO Y05.02

Mondey

16-Sep-85 10:39

Page 56

SEQ 0065

- PRINT WRITE SUBSYSTEM MESSAGE BUFFER

2382

2584

258s
2587
2388
2590
2591
2592
2398

.SBTTL MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER

'PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECY
:
1 IMPLICIT INPUTS:
:
EXPMSG - EXPECTED MESSAGE BUFFER
:
RECMSG - RECEIVED MESSAGE BUFFER
:
RCVHIADD- RECEIVED MESSAGE BUFFER MIGM ORDER ADORESS
"
RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADORESS
3

2395 013742

013742

2596 017742 012700 000012
2397 013746 004737 014552

2598 013752

013752

s5gq 013732

104423

2600

MSGSUB
: :

L10015:
i e

2602

2603
2603
3607
2608
2609
2610

013754
2613 013754 004737
010160
2614 013760 013701 002232
2615 013764 013702 002234
2616 013770 004737 007742
2617 013774
013774

MSGSUB

MOV
JSR

010. R0
PC , PRMSGEXP

TRAP

COMSG

ENOMSG

'SIZE OF WRITE SUBSYSTEM BUFFER
iPRINT EXPD/RECV MESSAGE BUFFERS

.SBTTL MEMADD - PRINT MEMORY ADORESS DATA ERROR

iPRINT ROUTINE TO PRINT MEMORY ADORESS DATA COMPARE ERROR
L IMPLICIT INPUTS:
:
ERARHI - MEMORY ERROR MIGH ORDER ADORESS
:
ERRLO - MEMORY ERROR LOW ORDER ADORESS
:
EXP
- EXPECTED DATA
:
RECY
- RECEIVED DATA

2612 013754

013774

BGNMSG

104423

MEMADD
::

L10016:

BGNMSG MEMADD

HOV
oty
JSR

JSR

PC.PRIADD

TRAP

CeMSG

ENOMSG

EXPD.R1
RECV.R2
PC.PRIXOR

;PRINT MEMORY ADORESS IN ERROR

1GET EXPD DATA
1GET RECEIVED DATA
IPRINT EXPD/RECV

TSV3

PRAMPKT

GLOBAL

AREAS

MACRO Y05.02

Monday

16-Sep-85

10:39

Page S7

SEQ 0066

PRINT RAM AND PACKET DATA

2619
2620
2621
2622
2623
2624
2625

.SBTTL

PRAMPKT

PRINT RAM AND PACKET DATA

+PRINT ROUTINE TO DISPLAY RAM/PACKET DATA
{WHEN THE RAM DATA DOES NOT MATCH.
3

1 INPUTS:
:

POINTER TO COMMAND PACKET

sIHPLICIT INPUTS:
AMDATA

DATA AS READ FROM THE RAM

RAHSIZ

NUMBER OF BYTES IN PACKET
IF RAMSIZ=0 THEN DEFAULT TO 8.

$IMPLICIT OUTPUTS:

013776
013776
014002

PRAMPKT
:

€12701

002242

Ss:

177777
111777

042703
116137
116437

177400
177777
1777717

7¢:

002232
002234

000014

104:

002302

014140

56 014142
014146
014150
014154
014156

SAVREG
MOV
CLR

ORAHDATA R1

CHPB
BNE

(Rl)o (R4)»
74

B8R

104

002302

000010

15¢:

208
:
25%:

002302

116

045

RAMASC:

74 ,NOTSSR

1 SAVE R1-RS UNTIL NEXT RETURN
:DATA FROM THE RAM
+INIT BYTE NUMBER
:COMPARE EXPECTED, RECEIVED
;B8R IF NO MATCH

: 880

MOVB
MOvB
XOR

-1(R1),RS
-1(R4),R3
RS,R3

1GET RECV RAM DATA
$1GET EXPD PACKET DATA
: XOR EXPD/RECV

MOV8
Move
PRINTB
MOV
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD

-1(R1),RECV
-1(R4) ,EXPD
@RAMASC,R2,RECV,EXPD,R3
R3,-(SP)
EXPD, -(SP)
RECV, -(SP)
R2, -(SP)
#RAMASC, -(SP)
95,-(SP)
P,RO
C¢PNTB
214,5P

1GET RECEIVED RAM DATA
:GET EXPECTED RAM DATA

B8IC

002234
002232

014156
000005

014132

SET 70 0

FORCERROR

000436
116105
116403

010346
013746

RAMSIZ

INC
TS7
8EQ
CMP
BLE

€177400,R3

2
RAMSIZ
15¢
R2,RAMSIZ
S4

B8R

254

RTS

.232%2

‘#NSA

cMP
eLY
CLR

sLOW BYTE ONLY

s UPDATE BYTE COUNT
sDEFAULT TO 8.
:BR IF YES
:DONE ALL BYTES?
1BR IF NO

R2.06

sDONE DEFAULT NUMBER OF BYTES?
:BR_IF NO
:SET DEFAULT RAMSIZ

RAHSIZ

:RETURN

BYTE:

#D2%A RAM:

%03%A Packet:

#03%A XOR:%03’

TSVS

PRMESS

GLOBAL
-

MACRO Y05.02

AREAS

CONTENTS

MESSAGE

Mondey

16-Sep-85

10:39

Pege S8

SEQ 0067

BUFFER

2664

.SBTTL

2665

PRMESS

CONTENTS

MESSAGE

BUFFER

1 THIS ROUTINE PRINTS THE CONTENTS OF
1THE 7 OR 8 WORD MESSAGE BUFFER RETURNED BY THE TSV-0S.

2666
2667

1 INPUT
3
3

R1
NOTE:

LOW ORDER ADDRESS OF MESSAGE BUFFER
R1

HIGH ORDER ADORESS OF MESSAGE BUFFER
IS IGNORED IF KTENABLE FLAG IS CLEAR

1 THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE
'

014242
014246
0142350
014254
014256
014260
014262
014264
014266
014266
014270
014272
014276
014302
014304
014306
2684 014312
014312
014316
014322
014324
014326
014332
014334
014336
014340
014342
014346
014350
014350
014352
014354
014360
014364
014366
014370
014374
014376
014402
014404
014406
014414
014416
014420

014465
014523

PRMESS:

003134

TS7

10¢:

014420
000003

062706

000010

012746
012746
010600

014465

104415

062706
003004
010501
010300
001403
004737
010005
012546
010446
012746
012746
010600

104415
062706
005204

020427
003005
002761
032763
001333
000207
045
043
045

SAVREG
MOV

BNE
CLR

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

RO.RS5
KTENABLE

104

R1
R1,.R3
RO
R1
OPROASCSRI.RS

TRAP
ADD

000004

CLR

MOV
MOV

B8EQ
JSR

017316

20%¢:
014523
000003

MOV

PRINTX

MOV
MOV

sPRINT MESSAGE GUFFER ADDRESS

;PRINT HEADER FOR CONTENTS

MOV
MOV
MOV

000001

1SAVE THE REGISTERS
sSAVE LOW ORDER ADDRESS
+ADDRESS ABOVE 28K?
:BR _IF YES
1SET HIGH ORDER ADDRESS TO O
:SAVE HMIGH ORDER ADDRESS
sSHIFT BIT1S5S 70 C BIT
sSHIFT TO HIGH ORPZR FOR PRINTOUT

PC SETMAP
RO,RS
#PR
R4,
ASC
(RS)+

(R5).,-(SP)

+NUMBER OF THE NEXT WORD
sCOPY LOW ORDER ADDRESS
:COPY HIGH ORDER ADDRESS
18R _IF NOT ABOVE 28K
;SETUP PAR ADDRESS IN RO
:GET PAR FORI'AT

ADDRESS

ABOVE 28K

tPRINT THE CONTENTS OF MEMORY BUFFER

MOV
MOV

MOV

TRAP

000010

tNUMBER OF THE NEXT
:O0ONE ALL YET ?

000007
000200

000012

116
116
116

045
045

045

1BRANCH IF ALL DONE

S0 :

PROASC:
PR1ASC:
PRASC :

RTS

.ASCIZ
.ASCIZ
.ASCIZ

tPRINT FIRST 7 WORDS
0X2 EXTF, XST?(RS);EXTENDED FEATUTES ON ?
tPRINT EXTENDED STATUS WORD
204
PC
;sRETURN
‘SN%A Messege Buffer Address = 101105'
'fiNiA Mess
Buffer Contents:
WordsD1wA: #0'

' NSA

TSV3S

PRMESS

GLOBAL

MACRO Y05.02

AREAS

Monday

16-Sep-85

10:29

Page 59

SEQ 0068

PRINT CONTENTS OF MESSAGE BUFFER
.EVEN
.SBTTL

2703

2704

2705

PRMSGEXP

- PRINT EXPD/RECV MESSAGE BUFFERS

sROUTINE TO PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS
- NUMBER OF WORDS IN BUFFER
RO
1
sIMPLICIT INPUTS:

2706
2707
2708
2709
2710
2711
2712
2713
2714 014332
2715 014552
2716
2717
2718
2719
2720
2721
2722

3
:
i

002306

002304

012746
012746

011100
011203

015035

104415
062706
005204
0204035
002001
000752
000207
043
045
o4

MOV

R4, -(SP)

MOV

014777
000001

208 :

015035
000005

000014

ORECMSG,R2

116
116

045

50¢:

(R1),RO

HEADER

;NUMBER OF

FOR

THE

:GET

RECV

:GET EXPD

R4, -(SP)
#PRMSG2, -(SP)
#5,-(SP)
SP,RO
CSPNTX
414 ,5P

tNUMBER OF

;DOONE ALL YET?

B8R

204

100 ANOTHER

.ASCIZ
.ASCIZ
.ASCIZ

‘#NSA Message Buffer
'dNSA Messa
Buffer
‘ NSA
WOR
0u8D2dA

RTS

:1BR

ADDRESS

THE NEXT

R4 ,R5
508

CURRENT WORD

BUFFER

MOV
MOV
MOV
MOV
TRAP
ADD

CONTENTS

;:GET EXPD BUFFER ADDRESS

(R2),R3
;iGET RECV
RO,R3
: XOR EXPD/RECV
#PRMSG2,R4,(R1)+,(R2)+,R3
R3,-(SP)
(R2)+,-(SP)

BGE

PRMSGO:
PRMSG1:
PRMSG2:

S#EXPMSG, R

;PRINT

MOV
XOR
PRINTX
MOV
MOV

INC

045

+SHIFT BIT15 7O C BIT
;SHIFT TO HIGH ORDER FOR PRINTOUT
;PRINT MESSAGE BUFFER ADDRESS

#3,-(SP)

MOV

1SAVE R1-RS UNTIL NEXT RETURN
1 SAVE _NUMBER OF WORD3
sGET RECV LOMW ADORESS
:COPY LOW ADORESS
$1GET RECV HIGH ADORESS

R1, -(SP)
#PRMSGO, -(SP)
SP,RO
C$PNTX
#10,5P
#PRMSG1
#PRMSGL, -(SP)
€1,-(SP)
SP,RO
C$PNTX
04, SP
R4

crHe

116

RO
R1
@#PRMSGO,R1,R4

MOV
TRAP
ADD
PRINTX
MOV
MOV
MOV
TRAP
ADD
CLR

MOV

002322
002466

010346

012246
012146
010446
012746
012746
010600

RO,RS
RCVLOADD,RO
RO,R4
RCVHIADD,R1

MOV
MOV

000004

2724
2725

2730

RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS

SAVREG
MOV
MOV
MOV
MOV
ROL
ROL
PRINTX

200010

2727
2728

RCVLOADD-

PRMSGEXP
;:

01~ /32
000003

2723

EXPMSG
- EXPECTED MESSAGE BUFFER
RECMSG
- RECEIVED MESSAGE BUFFER
RCVHIADC- RECEIVED MESSAGE BUFFER MIGH ORDER ADDPRESS

YES

; RETURN

Address

Contents:’
EXPD:

u01s05’

#06#A

RECV:

%06%A

XOR:

%06’

TSV3

- GLOBAL AREAS

PRMSGEXP

MACRO Y05.02

Monday

16-Sep-85

10:39

Page 60

SEQ 0069

- PRINT EXPD/RECV MESSAGE BUFFERS

2740
2741
2742
2743
2744
2745
2746
2747
2748
2749
2750
2751
2752
2753
2754 015122
275% 015122
2756 015126
015130
015134

.EVEN
.SBTTL

PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER

:ROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS

ONLY THE FIRST 8 ERRORS ENCOUNTERED ARE PRINTED OUE 10 SCREEN SPACE

NUMBER OF BYTES IN BUFFER

1 IMPLICIT INPUTS:

]
'

EXPMSG
RECMSG

- EXPECTED MESSAGE BUFFER
-

RECEIVED MESSAGE BUFFER

PRBYTEXP:
:
SAVREG
MOV

002320

CLR
CLR

002322
002466

204 :

177400
015470

110337
122122
001431
005237
023727
101023

010346
013746
013746

8IC

MOVB
MOve

PRMNO
R4

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

otC<377>,RO

RO ,PRBEXP
(R2),R3

8IC
MOove

@1C<377>,R3
R3,PRBREC

002320
002320

cmPB
BEQ
INC
CHP

(R1)+,(R2)+
304
PRMNO
PRHN0.0B.
30

XOR

000010

274:
015472
015470
015336
000005

062706

000014

000404

30¢:

35%:

013746
012746
012746
010600

MOV
MOV
MOve

RO,RS

177400
015472

010446
012746
012746
010600

104415

013320
015324

PRBYTEXP

002320
015423
000002

S0¢:

BHI

PRINTX

RO,R3

354

FORCERROR

INC
CHP

B8GE
B8R

PRINTX

MOV
MOV
MOV
MOV

;FOR ERROR REPORT

1 XOR EXPD/RECY
:EXPD = RECV?
;B8R IF YES
sUPDATE ERROR COUNT

;:PRINTED 8?
;B8R IF YES

OPRBHSG R4, PRBEXP PRBREC,R3

R3,
-(SP)
MOV
MOV
PRBREC -(SP)
MOV
PRBEXP, -(SP)
MOV
R‘.-(SP)
MOV
#PRBMSG, -(SP)
MOV
#5,-(SP)
MOV
SP,RO
TRAP
CSPNTX
ADD
€14 ,5P
FORCEXIT
S0

$1SAVE R1-RS5 UNTIL NEXT RETURN
: SAVE NUMBER OF BYTES
sINIT ERROR COUNT
tNUMBER OF THE CURRENT BYTE
;GET EXPDO BUFFER ADDRESS
1GET RECV BUFFER ADDRESS
1GET EXPD BYTE
sCLEAR UPPER BYTE
$+SAVE FOR ERROR REPORT
1GET RECV BYTC
;CLEAR UPPER BYTE

27¢,NOTSSR

R4
R4 ,RS

S0t
208

@PRBTOT,PRMNO

PRMNQO, -(SP)
#PRBTOT, -(SP)
@2,-(SP)
SP.RO

; 880

; 830

;880
; 980
tNUMBER OF THE NEXT
sOONE ALL YET?
:BR IF YES
;00 ANOTHER
;PRINT TOTAL ERROR COUNT

TSVS - GLOBAL AREAS

MACRO Y05.02

Mondey 16-Sep-85 10:39

Paege 60-1

SEQ 0070

PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER
015326
015330
2784 015334
27835
2786 015336
2787 015423
2768
2789 015470
015472

TRAP

ADD
RTS

000006

116
116

045
045

PRBMSG:
PRBTOT:
PRBEXP:
PRBREC:

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

C$PNTX

+RETURN

)

'SN$A
BYTE OWD2#A
EXPD: %O3SA
RECV:
' %N#A NUMBER OF BYTES IN ERROR = %02’
0
0
EXPREC

1EXPD
s RECV
- PRINT EXPD/RECV WORD DATA

IX:

sPRINT ROUTINE

TO DISPLAY EXPD/RECV DATA

s INPUTS:
H

H
3

R1
R2

RECEIVED DATA
EXPECTED DATA

BGNMSG

EXPREC

JSR
ENDMSG

PC,.PRIXOR

TRAP

C$MSG
EXPBREC

H
;-

015474
015474
015474
15500
300
015500

004737

007742

EXPREC:
:
L10017:

104423

.SBTTL

:PRINT THE DATA

- PRINT EXPD/RECV BYTE DATA

3 ¢

:PRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA
:

:INPUTS:
H

:
:

R1
R2

RECEIVED DATA BYTE

EXPECTED DATA BYTE

H
;

004737

104423

007612

BGNMSG
:
EXPBREC:
JSR
ENDMSG
L10020:
TRAP

.SBTTL
[

EXPBREC

PC,.PRIBXOR

:PRINT THE DATA

C$MSG
RAMERR

PRINT RAM AND PACKET DATA

:PRINT ROUTINE TO DISPLAY RAM/PACKET DATA
H

1 INPUTS:
H

POINTER

TO COMMAND PACKET

®O3%A

XOR:

%03

TSV3 - GLOBAL AREAS
RAMERR

MACRO Y05.02

Mondey

16-Sep-85

10:39

Page 60-2

SEQ 0071

- PRINT RAM AND PACKET DATA

2831

: IMPLICIT
!

INPUTS:

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

RAMDATA
RAMSIZ

}
H
i

; IMPLICIT
i

3
:

015510
015510
0153510
015514
015514
015514

004737

013776

RAMSIZ

SET 10 O

BGNMSG

RAMERR

JSR
ENDMSG

PC,PRAMPKT

TRAP

C$MSG

.SBTTL

RAMTADD

RAMERR:
:

L10021:

104423

OUTPUTS:

i1PRINT RAM/PACKET DATA

TEST ADDRESS.,

RAM AND PACKET DATA

HE4

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

POINTER TO COMMAND PACKET

:IHPLICIT INPUTS:
DATA AS READ FROM THE RAM
NUMBER OF BYTES IN PACKET
IF RAMSIZ=0 THEN DEFAULT TO 8.

RAMDATA
RAMSIZ

HIGH ORDER _TEST ADDRESS
LOW ORDER TEST ADDRESS

ERRHI
ERRLO

IMPLICIT QUTPUTS:

015516
015516
015516
015522
015526
015526
015526

004737
004737

104423

010274
013776

RAMS1Z

SET TO0 O

BGNMSG

RAMTADD

JSR
JSR
ENDMSG

PC,.PRITADD

TRAP

C$MSG

.S8TTL

RAMEXP

RAMTADD:
:

110022:

;PRINT TEST ADDRESS

PC.PRAMPKT

sPRINT

RAM/PACKET DATA

PRINT RAM EXPD/RECV DATA

1R4

:PRINT ROUTINE TO DISPLAY EXPD/RECV DATA
:INPUTS:
H

s
3

R1
R2

RECEIVED DATA
EXPECTED DATA

TSV3

- GLOBAL AREAS

RAMEXP

MACRO Y05.02

Monday

16-Sep-85

10:39

Page 60-3

SEQ 0072

- PRINT RAM EXPD/RECV DATA

2884
2885
2886
2887 015530
015530
2888 015530
2889 015534
2890 015540
2891 0153544
2892 015550
015550
015550

042701
042702
004737
004737

RAMEXP::

177400
177400

010066
007742

L10023:

104423

CONTROLLER RAM ADDRESS

BGNMSG

RAMEXP

8IC
BIC
JSR
JSR
ENDMSG

#tC<377>,R1
2tCc377>,R2
PC,PRIRAM
PC.PRIXOR

TRAP

C$MSG

.SBTTL

TIMEXP

;SAVE EXPD
sSAVE EXPD
sPRINT THE
tPRINT THE

RAM DATA BYTE
RAM DATA BYTE
RAM ADDRESS
DATA

TIMER A,B AND EXP/REC

1¢

:PRINT ROUTINE TO DISPLAY EXPD/RECV DATA
:AND TIMER A.B HEADER MESSAGE
3

s INPUTS::
s

H
H
3

015552
015552
015552
015552
015556
015562
015564
015566
015572
015576
015576
015576

RECEIVED DATA
EXPECTED DATA

BGNMSG

TIMEXP

PRINTX

#TIMSGO
#TIMSGO, -(SP)
21,-(SP)

TIMEXP::
012746

R1
R2

015600
000001

SP,RO

04 ,SP
PC,.PRIXOR

000004
007742

L10024:

015600

116

:PRINT HEADER

045

TIMSGO:
.EVEN

:PRINT THE DATA

C$MSG

.ASCIZ

'dNs#A

.SBTTL

BADSSR

TIMER

STATUS

IN BIT

3#NeA

TIMER B STATUS

- PRINT TSSR ERRORS ON DATA TRANSFERS

HA4

iPRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS

L INPUTS;

015700
015700
015700
015702

010246
042702

BADSSR:
:

177400

R1
R2

CONTENTS OF TSSR
DATA WRITTEN (8 BITS)

BGNMSG

BADSSR

MOV

R2,-(SP)
2177400,R2

81C

;SAVE DATA TRANSFERRED
:GET JUST ONE BYTE

IN BIT

2’

MACRO Y05.02

TSV3 - GLOBAL AREAS

Mondey

16-Sep-85S 10:39

Page 60-4

SEQ 0073

BADSSR - PRINTY TSSR ERRORS ON DATA TRANSFERS

012782

2929 0137

2930
2931
2932
2933

015710
015714
015720
015722
015724
015730
015732
015736
015736
015736
015740

010246
012746
012746
010600
104414
062706
012602
004737

104423
045

PRINTSB

MOV

#XFERASC, -(SP)

015740
000002

@2,-(SP)

SP,RO
C$PNTB
#6,5P
(SP)+,R2

000006
006024

PC.PRITSSR

L1002S:
116

0XFERA§9.R2

045

XFERASC:

C#MSG
.ASCIZ

{RESTORE R2

;DECODE TSSR CONTENTS

'wN#A Date Transferred = %03’

TSV3 - GLOBAL AREAS

MACRO Y05.02

Monday

16-Sep-85 10:39

Page 61

SEQ 0074

GLOBAL SUBROUTINES SECTION
.SBTTL

2935
2936

GLOBAL SUBROUTINES SECTION

THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES

THAT ARE USED IN MORE

.SBTTL

SOFINIT

THAN ONE TEST.

- SOFT INITIALIZE OF CONTROLLER

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

s INPUTS:
H

ADDRESS OF FIRST REGISTER

:
sOUTPUTS
RO

CARRY

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

CALLING SEQUENCE:
QADDRESS
RS
PC,SOFINIT

CONTINUE

SOFINIT::

015774
015774
016000
016006
016012

012765
004737
016500

000000
016250
000002

2975 016020
2976 016024

042704
0352704

176277
002200

2969
2970
2971
2972
2973

90, TSSR(RS)

000002

:REPOR7T FATAL ERROR

+ SAVE THE REGISTERS
:+ DO THE INIT.
: WAIT FOR SSR
:GET THE TSSR REGISTER

PC,WAITF
TSSR(RS),RO
RO,R4
&ISSR CONTENTS
#tC<HIADDR!OF>,
L
;R4 HAS EXPECTED CONTENTS
OSSR!NBA
R4
R4 ,RO
sONLY EXPECTED BITS SET ?

S$:
10¢:

104
PC

:BRANCH IF OKAY
:CLEAR THE CARRY FOR ERROR

GO TO EXIT
sSET THE CARRY BIT

;RETURN TO CALLER

TSV3 - GLOBAL AREAS
CHKAMB

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 62

SEQ 0075

- CHECK TSSR FOR AMBIGUITY

ggg;

.SBTTL

2986

2988

1 THIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER

2990

2987

:FOR AMBIGUITY

2991

1 INPUT

2992

2993

2994

2998
2999
3000
3001
3002
3004 016044
3005 016044
3006 016050

010004

3009 016060

032700

3012 016070

3013 016074
3014 016076
301S 016102
3016 016104

3017 016110
3018 016114

032700
001004
001023

000424

032700

001011
032700
001414
042704

000200

3025 016136
3026 016140

000401
000261

000241

000207

S¢:

10¢:

000006
40%:

454 :

504:

SET - NO AMBIGUITY
CLR - AMBIGUOUS CONTENTS

RO,R4

#SC,.RO
St

;SAVE THE GENERAL REGISTERS
sCONTENTS OF TSSR

:+IS BIT 1S SET ?
sBRANCH IF YES

0*C<NBA'OFL'SSR'HIADOR> RO

;sANY OTHER BITS SET ?

BNE

s MUST B8E AN ERROR

8IT

#SSR RO

+IS READY BIT SET ?

B8R

450

BNE
8IT

104
#8ITS,.RO

cHP
BNE

R4, 916
404

8EQ
8IC

177761

000040

000410

SAVREG
MOV
BIT

000040

032700
001405
032700
001002

CARRY

BIT
BNE

174077

3020 016120
3021 016124
3022 016126
3023 016132
3027 016142

CONTENTS OF TSSR

100000

000016

3024 016134

1 OUTPUT:
:
3
RO

CHKAMB:

020427
001007

3019 016116

CONTENTS OF TSSR

:
$
3
3
3

3003

3011 016066

2995
2996
2997

3010 016064

- CHECK TSSR FOR AMBIGUITY

2989

3007 016052
3008 016056

CHKAMB

;ERROR IF NOT
xCLEAR ALL BUT TERMINATION CODE

454

;0K IF ALL ARE SET

#8I75,R0
4S4$
#BIT2!8IT1,RO
45%

B8R
SEC

S04

RTS

;BRANCH IF READY BIT IS SET
+IS FATAL ERROR BIT SET

404
#tCTERCLS,R4

817
8EQ
8IT
BNE
CLC

sRETURN WITH SUCCESS

tALL THREE 8ITS MUST BE SET
;ERROR IF NOT SET

sIS FATAL ERROR BIY SET ?
;ERROR IF BIT IS SET WITH SSR
xIS THIS A FUNCTION REJECT
iBR, IF TSSR IS 0K
s AMBIGUOUS CONTENTS

:SHOW SUCCESS - NO AMBIGUITY
sRETURN TO CALLER

TSV3

- GLOBAL AREAS

MACRO Y05.02

Monday

16-Sep-85

10:39

Page 63

SEQ 0076

ENAINT ,DSBINT - ENABLE/DISABLE INTERRUPTS
.SBTTL

3029
3030
3031
3032
3033
3034
30335
36

ENAINT,DSBINT

- ENABLE/DISABLE INTERRUPTS

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

+ BIT DEFINITIONS FOR "INTMASK” AND “INTFLAG* BYTES:

000200
000001

JOKCKIN=BIT7
IOKSTP=BITO

i£¥TEgRUPT MASK

016144

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

EXPECT

“STOP* INTERRUPT.

-EYSEYS
EXPECTING INTERRUPTS

1 INTERRUPT FLAG -- SAYS UE GOT ONE (IF POSITIVE)

016145

INTFLAG:

.8YT7

016146

INTVEC:

.WORD

016150

INTCPC:

.WORD

52 016132
016134

ENAINT:

s SAVED INTERRUPT VECTOR:
1 SAVE CPU PC

31SUBRQUTINE TO ENABLE INTERRUPTS:

002210
016216
000340

MOV
MOV
MOV

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

MOV
MOV

(SP),-(SP)
€0,2(SP)

MOV
MOV

000002

RTI

®PRIOT7,(RO)
(SP)+,RO

1 SAVE RO
:GET POINTER TO VECTORS
1SET UP INTERRUPT VECTOR
;RESTORE RO
;SET CPU TO LEVEL O

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

000340

016214

DSBINT:

.SBTTL

INTR

BGNSRV

INTR

1DEFINE INTERRUPT ENTRY

mov

@1, INTRECV

1SET FLAG TO SHOW INTERRUPT RECEIVED

016144

8l18

016145

8Is8

QIOKSTP,INTMASK ;EXPECTING STOP INTERRUPT?
1%
18R IF YES
QIOKSTP ,INTFLAG ;NO. SET THE ERROR FLAG.

INTR

152737

(SP), -(SP)

#PRIO7,2(SP)

016216
000001
016145
000001

MOV

29;

000002

002224

CLR8

i%AVE REGISTERS,

L10026:

ENOSRV
RTI

- INTERRUPT HANOLERS

INTFLAG

MSG BUFFER,

1CLEAR FLAG TO SAY WE GOT INTERRUPT

ETC.

TSVS

- GLOBAL AREAS

WAITF

MACRO Y05.02

Mondey

16-Sep-85

10:39

Pege 64

SEQ 0077

- WAIT FOR SUBSYSTEM READY
.SBTTL

3078
3079
3080
3081
3082

WAITF

- WAIT FOR SUBSYSTEM READY

+ SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG
'

s INPUTS :
RS

3083

ADORESS OF FIRST DEVICE REGISTER

}

1OUTPUTS:

3086

3087

358

RO
CARRY

3089

3091
3092
3093

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

125-APRIL-83 REV 8

000001

3
1
81.(PC)0

s
3

002116

I600LY(PC)e»

177772

-6(PC)

177756

-ZS(PC)

(sP)
24
"»n

005367

TSSR(RS),RO
RO

012727

:+ DO A SUPVSR BREAK FIRST.

911000, -(SP)

011000
000002

000000
013727
000000
005367
001375

1NOP WHEN SUPER FIXED

4%
ggP)o

- 1100 MSEC TIMER

+READ THE TSSR REGISTER
:TEST FOR REAODY BIT SET

EXIT ON STOP FLAG.
WAIT 100 USEC

tREOQUCE DELAY COUNT
sRETRY UNTIL TIMER EXPIRES
3 C = 0, CONTROLLER STILL RUNNING...
;

.OR MUNG-UP AFTER 300 MSEC.
C = 1, CONTROLLER IS STOPPED.
;RESTORE STACK WITHOUT CHANGING CARRY BIT

TSV3

- GLOBAL AREAS

MACRO Y05.02

Mondey 16-Sep-85 10:39

Pege 65

SEQ 0078

- CHECK TSSR FOR READY
.SBTTL

CHXTSSR

- CHECK TSSR FOR READY

:THIS ROUTINE WAITS FOR READY IN THE TSSR

tAND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR.
$

s INPUT

ADDRESS OF CSR REGISTERS

CONTENTS OF

1OUTPUT

CARRY

3
i

016250

CLR

TSSR

- NOT READY AMBIGUOUS,

OR SC SET

CHKTSSR:;

016044

JSR

PC.WAITF

204
PC.,CrHKAMB

8IT

oSC.RO

81T
B8EQ

#«SCE'8IE ‘RMR!'NXM> RO
15¢

;ANY Em BITS SET?
18R IF NO

B8R
SEC
RTS

20¢

1l
sSET SUCCESS
sRETURN TO CALLER

BEQ

074000
10¢:

15¢:
208 :

sWAIT FOR READY

8CC
JSR

8cc

100000

016372
016374

SET - OKAY

CLC

.SBTTL

tBRANCH IF TIME OUT
1 TSSR AMBIGOUS?

10¢

:8R IF YES

15¢

i8R IF

XNXM

aSPECIlL CONDITION SET?

sSEY FAILURE

- CHECK FOR MXISYENT MEMORY

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

ON RETURN,

;CALL:
:
:

016376

016404
016412
016414

016430

000200

XNXM:
14:

016416
016420

016440

2¢:
3

IF “C~ = 1,
*C~

= 0.

(R1) = NEXM ADDRESS.

ALL ADDRESSES OK.

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

RE TURN
;TEST *C* AND PROCEED.
MOV
024,004
:+ SET BUSERR VECTOR.
MoV
oPRIO04
., 206
CLR
R3
{FLAG.
TST

cow
8EQ

ADD
B8R
con
MOV

RTI
CLRVEC

MOV

TRAP

181
8EQ
ggts:

(R1)

.rssr flt nooaessces>

JIF ANY

coumu: AT 2.

R1,R2
3¢

.oncnuxs:éou
HERE
ndsofo (no NEXM'$).

i...AND DISMISS INTERRUPT...
i...AND GIVE BACK THME VECTOR.

#2.R1
14
R3
#34,(SP)
&4 ,.RO

coévec
..4
oc

;ser 'cxr ADORESS
...
.AND CONTINUE.
1GOT ONE, SET FLAG...

;010 WE CATCH ONE 77
iNO, *C~ = 0, SKIP NEXT.
IYES, "C* = 1. (R1) » NEXM ADOR.

- GLOBAL AREAS

Mondey

16-Sep-85

10:39

Page 66

SEQ 0079

- CHECK ITERATION COUNT
.SBTTL
' *
'

TSTLOOP

SUBROUTINE TO EXECUTE

- CHECK ITERATION COUNT
TEST ITERATIONS.

EXIT WITH “C” SET IF LOOPS ALLOWED AND LOOP COUNT NON-ZERO.

LOOP COUNTER IS SET 8Y

:
3

1 CALL: LOOPTO

"BEGIN.TEST” MACRO.

ARG

005737
001006

002170

T STLNOP:
:

TST
BNE

NOITS
14

B8MI

TST

002204

002216

2¢:

ITERATIONS INHIBITED?
YES.

Qve

NO.

gsg

EQOPCNT

;

BUMP LOOP COUNTER.

gkc

SEC

.SBTTL

TSTSETUP

1LOOP DISALLOWED,

OR DONE.

1LOOP ENABLED.
- PRINT TEST MAME AND INIT ERROR COUNTS

RTS

;:LOOPS DISALLOWED IN QUICK PASS.

PRINT THE NUMBER AND NAME OQF 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.
INPUT:
RO

POINTER

TEST

ID ASCIZ

STRING

ADDRESS OF FIRST DEVICE REGISTER

OUTPUT:

IMPLICIT QUTPUTS:
TSTCNT

UPDATED TO COUNT

TESTS PERFORMED SINCE

START OR RESTART

SIDE EFFECTS:

B¢

34:

s+
+

INTERRUPT LEVEL IS RASIED TO LEVEL OF
THE DEVICE UNDER TEST

TSTLOOP

MACRO Y05.02

TSV3

016510
016510
016512
0163516

010046
005037
005037
005037
105037
013700
006
005737
001430
100010

003154
016756
005772

016144
002202

003114

TSTSETUP:
:
MOV
CLR

RO, -(SP)

1SAVE

INTHMASK

+ CLEAR INTERRUPT MASK (CHECK ERROR)

CLR
CLR

SIFLAG
ERRK
EXTA

MOV
ASL
TST
BEQ

UNITN,RO
RO
NODEV
44

CLRB

8PL

THE

TEST

ID MESSAGE

3
¢+
i+

CLEAR "SOFT INIT" FLAG
CLEAR LOCAL ERROR COUNTER.
CLEAR ERROR EXTENSION FLAG.

:
t
;
:

GET THE UNIT NUMBER,
... AND MAKE IT A WORD OFFSET.
OID STARTUP FIND THE DEVICE?
BR IF YES

;

BR IF NOT IDLE

TSVS

- GLOBAL AREAS

MACRO Y05.02

Monday

16-Sep-85

10.39

Page 66-1

SEQ 0080

TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS
3219 016550
3220 01656
016556
016560
016562
016364
016566
016570

016576
016576

052760

016626

003176

160001

003176

104421
032700
001412
011600

177777

003112

2%:

001000

000006
002214

002212

045

OO0V
MOV
TRAP
DOCLN
TRAP
8R

UNITN
UNITN,RO
C$D00V

RFLAGS
TRAP

RO
CS$RFLA

PRINTF
MOV

@TNAM,RO
RO, -(SP)

MOV
TRAP

SP,RO
CSPNTF
#6,SP

MOV

016756
016760
000002

#-1,0UFLG

C$DOCLN

OPNT RO
14
(SP).RO

DEVICE NOT IDLE

DROP THE UNIT

;

ABORT

GET

THE PASS

THE OPERATOR FLAGS.

;DISPLAY

THE

TEST

TSTCNT
IPRI

; BUMP TEST COUNTER.
;PRIORITY THAT OF DEVICE

IPRI,RO

TNAM:

.eegzz

'#SHTHA Test'

SBTTL

TSTEND

(SP).
gganoon.as

EACH TEST,

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

- PRINT ERRORS RECEIVED
PRINT

THE

NUMBER OF

ERRORS RECEIVED

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

RFLAGS
TRAP

8IT

8€EQ

PRINTF

MOV
MOV
MOV

MOV
TRAP

OTNAM, -(SP)
2, -(SP)

TST
29!

END OF

; FLAG ERROR IN THE ERROR TABLE

;

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

-- PRINT IT

C$SPRI

STEND:

020000

C$ERDF

TRAP

—for
e e we

013746
012746
012746
010600
104417

2
NOINIT
O

ADD
NC
SETPRI

1%:

NO DEVICE HERE

#160001 ,ERTABL(RO)

LWORD
.WORD
.WORD

MOV
MOV

1
NXR
gfnean

2,NOINIT

BIT
8EQ
MOV

016704
000002

1,NXR,NXRERR

ERRDF

MOV

£oee02

123

061412

CSERDF

TRAP

002206

104421
030027

TRAP

8IS

104444
000423

010046
012746
01274

016720
016720
016722
016726
016730
016730
016734
016740
016744
016746

3%:

104455

000002
004335
000200
012737

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

.WORD
.WORD
é:ono

000001

003740
005736
000407
052760

8IS

ERRDF

104455

013700
av8°51
016624

160000

RO
CSRFLA
RO, #IER

#ESUM, ERRK

ERRK, -(SP)
#ESUN, -(SP)
e2,-(SP)
SP,RO
CSPNTF

BR IF

"IER" NOT SET.

ERROR

COUNT.

TSV

- GLOBAL AREAS

TSTEND

MACRO Y05.02

HMondey

16-Sep-85 10:39

Page 66-2

PRINT ERRORS RECEIVED

016750
gggg 016754

062706
000207

3252 016756
3253 016760
3254 016777
3255

000000
045
105

000006

101
122

18:

040
122

ERRK ;
ESUM:
EMAXDU:

~J0
RTS

6, SP
PC

0
.ASCIZ
.ASCIZ
.EVEN

:+ LOCAL ERROR COUNT.
/wA wDsA ERRORS/
/ERROR LIMIT REACHED
DROPPING UNIT/

SEQ 0081

TSV3

GLOBAL

INCERK

AREAS

MACRO Y05.02

Monday

16-Sep-85

10:39

Page 67

SEQ 0082

- INCREMENT LOCAL ERROR COUNT
- INCREMENT LOCAL ERROR COUNT

.S8TTL

INCERK

INC
MOV

ERRK
RO, -(SP)
gNITN.RO
0
QERTABL ,RO
(RO)
€7777,(RO)
1s
(RO)
(SP)+,RO

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

5287
3288

3289
3290

1¢:

CKEMAX:

RTS

MOV
MOV
ASL

UNITN,RO
RO
ERTABL(RO),RO
4170000,R0O

?2.GERRHAX
103417
104421
032700
001013
012737

016756

002172

1%:

RFLAGS

€IDV,RO

000040

177777

ERRK ,LERRMAX
29
RO
CSRFLA

003112

¢-1,0UFLG
4,EMAXDU

104455

S‘ERDF

013700
104451

EMAXDU
0
UNITN
UNITN,RO
csooov

000004
016777
000000

104444
012600
000207

002202

2%:

MOV

C40CLN
(SP)+,RO

@
e
Be
Be
We
W
B

INC
BIT
BNE
DEC
MOV

007777

003176

MOV
ASL
ADD

002202

017072
017074
017076
017100
017102
017104
017110
017112
017116
017122
017126
017130
017136
017140
017140
017142
017146
017150
017156
017156
017160
017162
017164
017166
017166
017172
017174
017174
017176
017200

INCERK:

016756

017044
017030
017032
017056
017060
017064
017066

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?
BR IF NO.
YES -- BACK IT UP
RESTORE RO
RETURN TO CALLER.

TO 7777.

SAVE RO
GET UNIT NUMBER
... AND MAKE IT A WORD OFFSET
GET ERROR TABLE ENTRY
EXTRACT ERROR COUNT FIELD
IS GLOBAL LIMIT EXCEEDED FOR THIS UNIT?
BR IF YES
IS LOCAL LIMIT EXCEEDED FOR THIS TEST?
BR IF NO
GET OPERATOR FLAGS
IS DROPPING INHIBITED?
BR IF YES.
NO -- DROP THE UNIT

RESTORE RO
RETURN TO CALLER

TSVS

- GLOBAL AREAS

CKOROP

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 68

SEQ 0083

- CHECK IF UNIT SHOULD BE DROPPED

gggg

.SRTTL

CKDROP

- CHECK IF UNIT SHOULD BE DROPPED

ggg;

+ CHECK IF UNIT SHOULD BE DROPPED
;-

3296 017202
3297 017204
3298 017214

017214
017216
017222
017224
017226
017234
017234
017240
3304 017242
017242
3305 017244
3306 017246
3307
3308

3299
3300
3301
3302
3303

010046
104421
032700
001010
011600
012737
013700
104451

CKOROP: MOV
RO, -(SP)
FORCERROR
14¢,NOTSSR
RFLAGS
RO
000040
177777

003112

002202

104444
012600
C00207

1%:

gggg

CONFIG

sABORT THE PASS

- DETERMINE CONFIGURATION OF SYSTEM

004737
000207

CONFIG:

015774

ggig

:
017256
017262
017264
017272

005737
001403
012737
000207

003132
000001

KTON:
177572

1¢:
:

i
017274
017300
017302
017304
017306
017314

005737
001405
000240
000240
012737
000207

000000

KTOFF:

177572

PC,SOFINIT
PC
KTON,KTOFF

- ENABLE/DISABLE MEMORY MANAGEMENT

TST
BEQ
MOV
RTS

KTFLG
14
@1,SRO
PC

:
i
i

50T KT?
NO.
YES. ENABLE KTi1l.

SUBROUTINE - DISABLE MEM MGT.

003132

JSR
RTS
.SBTTL

SUBROUTINE - ENABLE MEM MGT.

gggg

3328
3329
3330
3331
3332
3333

.SBTTL

CS$OCLN
(SP)+,RO
PC

3 SUBROUTINE - DETERMINE CONFIGURATION OF TSVOS SYSTEM.

3313 017250
3314 017250
3315 017254
ggig

3324
3325

CSRFLA
€IDV,RO
14
(SP),RO
@-1,0UFLG
UNITN
UNITN,RO
csooov

g;{é

3320
3321
3322
3323

TRAP
817
BNE
MOV
MOV
OO0V
MOV
TRAP
DOCLN
TRAP
MOV
RTS

1%:

TST
BEQ
NOP
NOP
MOV
RTS

KTFLG
1

+ GOT KT11?
: NO.

90, SRO
PC

DISABLE KT,

TSVS - GLOBAL AREAS
SETMAP

MACRO Y05.02

Monday

16-Sep-85

10:39

Page 69

SEQ 0084

- SETUP PAR6 MAPPING
.SBTTL

SETMAP

SETUP PAR6 MAPPING

1 ¢

:THIS ROUTINE SETS UP KERNEL PAR6 TP HANDLE

1AN 18 BIT ADDRESS. THE OFFSET INTO THE PAGE
+IS RETURNED BIASED TO PAR6.
3

s INPUTS:

HIGH ORDER ADDRESS BITS

LOW ORDER ADDRESS BITS

s OUTPUTS:

:
H

OFFSET INTO BLOCK WITH PAR6 BIAS (I.E.

SAVREG
TS7T

KTFLG

10
21.R2

i8R IF NO
;SAVE LOW ORDER BITS

ASR
Rg%DR

RO
R1

;:CONVERT WORD ADDRESS TO 32W BLOCKS
:MAKE IT DOUBLE PRECISION

8IC
cMP
BHIS

€177 .R1
R1,KTFLG
10¢

;ALIGN FOR LOWER 4K BOUNDARY
sHIGHER THAN EXISTING MEMORY?
;BR IF YES

€160000,R2

sSETUP DISPLACEMENT IN PAGE

R2,.RO

;RETURN IN RO
;s SET SUCCESS

CARRY

SET IF SUCCESS
CLR IF ERROR

THE ADDRESS)

017316
017316
017322
017326
017330

SETMAP:

005737
001433

BEQ
"ggPT

010102
000006

042701
020137

103011
010137

017410
017412
017414
017416
017420

003132

042702
062702
010200
000261
000241
000207

000177
003132

MOV

172352
160000
120000

8IC

ADD

MOV
SEC

108
15¢:

cLC
RTS
.SBTTL

:SAVE R1-R4 UNTIL NEXT RETURN
:SYSTEM HAVE ABOVE 28K?

R1,80KIPARS
€120000,R2

154

PC
REGSAV

;:SETUP MAPPING REGISTER PARS
;:ADD IN PARS BIAS

:SET FAILURE
;sRETURN
- SAVE R1-RS ON STACK

3 ¢

;ROUTINE TO
$;SAVE R1 THROUGH RS ON THE STACK

:CALLING SEQUENCE:
JSR

R5,REGSAV

:THIS IS A COORQUTINE WHICH TRANSFER CONTROL BACK TO
+ THE CALLING ROUTINE.

AT THE END OF THE CALLING ROUTINE,

;;Eglg}éngc RETURNS CONTROL TO THIS ROUTINE TO RESTORE
H

;THIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE

;:CALLED VIA A JUSR PC INSTRUCTION
3

TSV3 - GLOBAL AREAS
REGSAV

MACRO Y05.02

Mondey

16-Sep-85

- SAVE R1-R5 ON STACK
‘-

REGSAV:

017422
017422

000012

MOV
MOV
MOV
MOV
MOV
MOV

JSR

MOV
MOV
MOV
MOV
MOV
RTS

10:39

Page 69-1

SEQ 0085

TSV3

- GLOBAL AREAS

GETPAT

MACRO Y05.02

Monday

16-Sep-85

10:39

Page 70

SEQ 0086

- GET 8 BIT PATTERN FROM OPERATOR
.SBTTL

3409
3410
3411

GETPAT

- GET 8 BIT PATTERN FROM OPERATOR

1R
4

tROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR
i

s INPUTS:

NONE.

s OUTPUTS:

OCTAL NUMBER FROM THE OPERATOR

stCALLING SEQUENCE:
PC.GETPAT
JSR
3
‘-

GETPAT::

1$:

017502
017502
017504
017510

10000:

103367

013700
000207

SAVREG
GMANID
TRAP
BR
.WORD
.WORD
.WORD
.WORD
.WMORD
.WORD

CS$GMAN
100004
PATDAT

T$CODE
DATASC
377
TSLOLIM
THHILIM

SEEOHPLEls
MOV
RTS

017512

;:SAVE THE GENERAL REGISTERS
OATASC,PATDAT,0,377,0,377,NO

:RETRY IF ERROR

PATDAT RO
PC

;DATA PATTERN FROM OPERATOR
;RETURN TO CALLER

; TEMPORARY

;sLOCAL DATA AREA
:

017512
017514

000000
105

116

124

PATDAT:

DATASC:

.WORD

.23252

'ENTER DATA PATTERN'

STORAGE FOR DATA

TSV3

- GLOBAL AREAS

GETSEL

MACRO Y05.02

Mondey

16-Sep-85

10:39

Page 71

SEQ 0087

- ISSUE MENU AND GET OPERATOR RESPONSE
.SBTTL

GETSEL

- ISSUE MENU AND GET OPERATOR RESPONSE

$ ¢

tROUTINE TO ISSUE A MENU AND GET THE OPERATOR'S RESPONSE.
I

i INPUTS:;

i
:

RO
R1

ADDRESS OF ASCIZ STRING OF MENU
MAXIMUM ALLOWABLE OPERATOR RESPONSE

1OUTPUTS:

NUMBER OF THE OPERATOR'S SELECTION

SAVREG
MOV
MOV
TST
BEQ

RO,R2
R2,R3
(R3)
34

‘-

GETSEL
::

1¢:
24:

PRINTF
MOV
MOV
MOV
MOV
TRAP
ADD

017724

000002
000006

3454
3455

34:

017731
177717

000000

177777

012746
012746
010600
104417
062706

017731
017760

100014:
017760

000004
116
116
156

045

164

S4:

MENERR:
SELASC:
MENASC:

MENRES :

THE MENU

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

.WORD
.WMORD
.WORD
.WORD
.WORD
WORD

MENRES
T$CODE
MENASC
-1
TSLOLIM
TS$HILIM

100014

ggEOHPLETE

MOV

1
MENRES, RO

PRINTF

OMENERR

CHP
8LOS

017656
000001

sDISPLAY

GMANID
TRAP

B8R

06
017760
000042

103352
013700
020001
101411

B8R

OSELASC,(R3)e«
(R3)+,-(SP)
#SELASC, -(SP)
e, )
SP,RO
C$PNTF
#6,SP

1 SAVE GENERAL REGISTERS
$1SAVE THE MENU ADDRESS
1START OF MENU STRING
;END OF ASCII ?
:BRANCH IF ALL LINES DISPLAYED

MOV
MOV
MOV
TRAP
ADD
BR

RTS

.ASCIZ
.ASCIZ
.25252

.EV

;:RETRY IF ERROR
sGET

THE

OPERATOR'S

RO,R1
S4

;COMPARF TO MAXIMUM ALLOWED
;BRANCH IF 0K

MMENERR, -(SP)
e1,-(SP)
SP,RO
CS$PNTF
04 ,5P
1

:RETRY

;DISPLAY

ERROR MESSAGE

;RETURN TO CALLER

'#NsA sas Menu Selection Too Large sss!’
'#NwT'
‘Enter Menu Selection: '

.MORD

TSV3

MACRO Y05.02

- GLOBAL AREAS

CHKMAN

Monday

16-Sep-85 10:39

Page 72

SEQ 0088

- CHECK MANUAL INTERVENTION LEGALITY
.SBTTL

CHKMAN

- CHECK MANUAL INTERVENTION LEGALITY

[ R 4

}

;ROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY.
H

sINPUT:
3

NONE.

sOUTPUT
3

)

CARRY

0
1

MANUAL INTERVENTION NOT AIt OWED
MANUAL INTERVENTION IS OK

1SIDE EFFECTS:
i

A MESSAGE IS DISPLAYED WARNING THAT TEST IS

NOT EXECUTED IF MANUAL INTERVENTION IS NOT

ALLOWED.

H
‘-

017762

CHKMAN::

017762
017766
017766
017770
017770
017772
017772
017776
020002
020004
020006
020012
020014

012746
012746
010600
104417
062706
000241
000207

020016
000001

020016

045

116

104450
103411

; SAVE THE REGISTERS
:SEE IF MANUAL INTERVENTION OK
;BRANCH IF ALLOWED
;PRINT THE WARNING MESSAGE

1s:

MOV
MOV
TRAP
ADD
cLC
RTS

NOMAN:

.ASCIZ

'#NsA s++ Manual Intervention not Allowed - Test Aborted sas’

000004

045

SAVREG
MANUAL
TRAP
C$MANI
BCOMPLETE 1%
8CS
1
PRINTF
#NOMAN
MOV
ONOMAN, -(SP)

.even

e1,-(SP)
SP,RO
C4PNTF
#4,SP

1CLEAR CARRY FOR ERROR
sRETURN

TSVS

- GLOBAL AREAS

ENVIRN

MACRO Y05.02

Mondey

16-Sep-85

10:39

Page 73

SEQ 0089

- SETUP FREE DIAGNOSTIC SPACE
.SBTTL

3502
3503
3504
3503
3506 020112

SETUP FREE OIAGNOSTIC SPACE

éNVIRN: MEMORY RO

002012
000007

003124

003126

10¢:

C4MEM
RO,FREE
#2 ,FREE
(RO),FRESIZ

MOV

LSUNIT,R2

i GET NUMBER OF UNITS
3 TAKE AWAY 7 WORDS PER UNIT

MOV
ADD

FREE,RO
FRESIZ,RO

MOV

RO,FREENI

:GET FIRST FREE ADDRESS
+POINT TO LAST FREE ADDRESS
1BACKUP 1 WORD
;STORE LAST FREE ADORESS

SuB
DEC
BNE
SUB

NOP
MOV
MOV
ADD
JSR

177520
000002
016376

15%:

000001

177520
177520

#2,R0

160886888 848800888008884880884808808800840000

#BOVPCR,R1

R1,R2
02,R2

;GET BOV1i1 PCR ADDRESS
;COPY TO R2
$SET THE RANGE

404
1238

PRINTF

oM8189

RTS

:RETURN

BNE
INC
8IC
NOP

PRINTF

003146

87 ,FRESIZ
R2
104

i...AND WORD COUNT.

8R
INC
NOP

BR
MOV
ADD
MOV
INC
MOV

cHe

002120

#4 ,FRESIZ

+ GET 1ST FREE ADDRESS...

1SEE IF WE HAVE ONE
;0K TO SET FLAGS
;{RETURN WITH FLAGS CLEAR
s SAVE PCR CONTENTS
sADD ONE TO IT
:1GET 80V11 PCR ADDRESS
sTRY TO WRITE TO IT
;GET RESWLTS
;1010 IT CHANGE?
sNO, MUST BE 11/238
1SET THE FLAG
s SUPERVISOR COULD BE WRONG
:BR 408 FOR RELEASE
sTELL THE SYSTEM TYPE
;RETURN
sSET THE FLAG
;B8R 408 FOR RELEASE
sTELL THE SYSTEM TYPE

8ccC

177520

003144
170000

TRAP
MOV
ADD
MOV

suUB

003126

003124
003126
000002
003130

020270

i SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS.

003124
000002
003126
000004

020270

ENVIRN

]

PC, XNXM

154

404
B0VPCR,R1
#1,R1
#B80OVPCR,R2
(R2)
BDVPCR,R3

R1,R3

20%
T23A
#170000,L $HIME
#M8186

TSVS

- GLOBAL AREAS

KTINIT

MACRO Y05.02

Monday

16-Sep-85 10:39

Page 74

SEQ 0090

- SETUP KT11 MEMORY MANAGEMENT REGISTERS
.SBTTL

KTINIT

- SETUP KT11 MEMORY MANAGEMENT REGISTERS

[ K4

tROUTINE TO INIT KT-11
!
;-

KTINIT:

001577
020430
177572

000004

002120
010000

003132
003132

003777

003132

000177
000004

003132

172340

077406

177740

CLR
CLR
e

8LOS
MOV
MOV
TST
NOP
MOV
cHP
8MI
BIC
8R
8IC

1s:

CLR
MOV
MOV

S :

MOV

; INIT >28K MEMORY FLAG
: INIT TEST >28K FLAG
: GOT ENOUGH MEMORY (>28K)?

LSHIME ,KTFLG
#10000,KTFLG
4t
#3777 ,KTFLG
St
2177 .XTFLG

:
1
:
:
i
i
:
;i
;
;
:

NO.
SAVE OLD ERR VEC PTR.
SET ERR VEC PTR.
GOT KT11?
CTRAP IF NO).
YES. SET KT FLAG.
MORE THAN 18 BITS?
NO

o«xpaao R1
077406, -40(R1)

:
;
;

RO = AR DAT
Rl = KI aes "PIR.
SET DESCRIPTOR REG.

#200.R0

;

BUMP AR DATA BY

NO.

Ro SSERRVEC
RO,(R1)

cHP

RO, #2000

BNE

177600

94
S#ERRVEC , RO
024, BOERRVEC
80SRO

MOV

ADD

000200
002000

KTFLG
KTENABLE
LSHIME, #1577

MOV
BR

#177600,-(R1)
9

;1 RESTORE OLD enn VEC PTR.

: SET KIPAR REG.

: AT »1/0"7
;

YES.

~4K~.

SET KTPAR? FOR I/0.

012716
000002

020436

2¢:

MOV

64 ,(SP)

;
:

RTI TO NEXT LOCATION

010037

000004

64:

MOV

RO, SPERRVEC

RESTORE OLD ERR VEC PTR.

RTS

000207

RTI

SET UP RETURN

TSVS

- GLOBAL AREAS

KTINIT

MACRO Y05.02

Monday 16-Sep-8S5 10:39

3584

1
3

SUBROUTINE TO SET EXTENDED FEATURES SWITCH

gggz

Requires that SOFINIT and WRTCHR have been done previous to cesll.

3589
3590

3
s INPUTS

3594
3595

'
$-

3591
3592
3593

'
RS
CURRENT UNIT NUMBER
sOUTPUTS;
$
The Extended Features Switch

020444
020444
0204350
020454
020456
020460

0137085
O004737
103406
010001

020462
020464
020466
3603 020470

002261
0036352
012034
104458

020460

3604 020472
3608
3606
3607
3608
3609
3610

SEQ 0091

SETUP KT11 MEMORY MANAGEMENT REGISTERS

gggz

3596
33597
3598
3599
3600
3601
3602

Page 75

020472

104453

104406

020474
020502
020506
020312
020314
020516

013737
012704
004737
103406
01000%

020520
020522
020324

002261
005056
012034

020316

3611 020%26

3613
3616

001020
012737

3610 020360
3619 020566

012737
012737

3617 020352

3620 020574
3621 020600
azzg 020604

254:
002202
076260
010662

076300

012737
012704
004737
000207

3624

ceraddr,rS
pc.sofinit
2514

LHORD
. WORD
.MORD

1201
esfierr
ofimeg

ckloop

TRAP

S04 :
07%610
000200

100206

020620

000006
100010

020610
010662

020612

104:

CIERDF

trep clerdf

CsCLP)

unitn, t39dew
#t39%k2,re
g‘c).-rtchr
$
rO,.r1
errno,wrtmeg.sfimsg

.WORD
.WORD
.MORD

1201
wrtmeg
efimeg

ck lnop
TRAP

CsCLP)

bne
MOV

14
€100206 , CHDPK T

oV
bit

020610

r0,.r1
errno,sfierr,sfimeg

|0V
®ov
or
)
®ov
arrhrd

TRAP

104456

013701
032701

®ov
jor
s
|ov
errd?

TRAP

104456

3612 0205.3%0
020330 -104406

3613 020732
3614 0203536

INVERT: ;

002206
015774

ie set.

CSERMRD

trap clerhrd

t39%fre12,r1
®it?,r}

; WRT SUB-SYS MEM CMD

MOV

OHSHBK , CMOPKT + 2

;s MSG BUF ADOR

16:

MOV
JSR
RTS

oCMOPKT R4
PC.MRTCHR
PC

s SET CMDPXT INTO R4
s 00 IV
+ RETURN

COMMAND PACKET.
a

020616
020620

MOV
MoV

020610

3628 020610
3629 020612
3630 020614

000000
000000
000000

CMDPKT::

86 ,CrDPKT +6
€100010, WSMBX

<. +3>8177774
O
]
]

s+
i

BYTE COUNT
INVERT THE SWITCH

1MUST BE ON MOD 4 BOUNDRY.
11S7 WORD IS T7SO0S COMMAND.
_
12ND WORD IS THE BUFFER LOM ADDRESS.
13RD WORD IS THE BUFFER HIGM ADODRESS.

TSV3

- GLOBAL AREAS

KTINIY

MACRO Y05.02

Mondey

16-Sep-85

10:39

Page

75-1

SEQ 0092

- SETUP KT11 MEMORY MANAGEMENT REGISTERS
020616

020620
020622
020624

000000

000000
000000
000000

;4TH WORD IS THE BYTE/RECORD/FILE COUNT.

WRITE SUB-SYSTEM MEMORY CHARACTERISTIC BLOCK.

WSMBK::

O
0
0
.EVEN

+1ST WORD::
;2ND WORD::
:+3R0 WORD::

SEL O
SEL 2
SEL 4

SUBROUTINE TO CHECK WETHER OR NOT WE'LL TEST NXM
s INPUTS:

sOUTPUTS:

s
:

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

MEMCK:
:

0035037
005037
005037
005737
001407
023727
103406
004737
000427
005737
001413
023727
101023
023727
103403
004737
000411
023727

103410
004737
062737
005237
000411
000410

012746
012746
010600
104417
062706
000207

003136
003140
003142
003146
002120

NXMFLG
NXMLO

:SAVE THE REGISTERS
tCLEAR THE FLAG
;:CLEAR THE TEST ADDRESS LO

TST
BEQ
gng

T238
1
50HIH€.07777

;IS IT
A 11/238?
:NO
: GREATER THAN 128K

CLR

0077717

021002

1%:

003144

002120

005777

002120

003777

24:

021002

002120

001577

021002
000077
003136

003142

4% :

13%:

14¢:
005460
0v0001
000004

SAVREG
CLR
CLR

15¢:
]

3
i

NXMHI

;s CLEAR THE TEST ADDORESS HI

JSR
BR
TST
8EQ

PC,NXMTST
13¢
T23A
4%

SETUP THE ADDRESS
.SET THE FLAG AND EXIT
;IS IT A 11/23A?
;:NO

BHI

14¢

;YES,23A/238 WITH 128K MEMORY

CMHP

LSHIME 05777,

sGREATER THAN 96K

CcMHP
8LO

LSHIHE 03777

cMP

LS$HIME, 01577

;GREATER THAN 24K BUT LESS THAN 64K?

077 ,NXMHI

sFOOL

JSR
BR

PC NXMTST
134

8LO
JSR

144
PC NXMTST

INC

NXMFLG

PRINTF
MOV

ONOMEM
ONOMEM, -(SP)

MOV
TRAP
ADD

SP,RO
CSPNTF
04 ,SP

ADD

B8R
B8R

RTS

15¢
15¢

;GREATER THAN 64K BUT LESS THAN 92K?
:NO, CHECK 24K
;SETUP THE ADDRESS
;SET THE FLAG AND EXIT

;NO, TELL THEM AND EXIT WITH FLAG CLEAR
:SETUP THE ADDRESS
THE

11,02

:SET THE FLAG

LEXIY
:NOP FOR PRINTOUT
sTELL

THEM

& EXIT

;RETURN

SUBROUTINE TO SETUP THE NXM ADDRESS FOR TESTING

;OUTPUTS
: NXMLO , NXMHI

:SETUP WITH NXM ADDRESS

11703

#8#NO

PRINT#ssses

TSVS

- GLOBAL

KTINIT

AREAS

MACRO Y05.02

Mondey

16-Sep-85

10:39

Page 75-2

SEQ 0093

SEYUP KT11 MEMORY MANAGEMENT REGISTERS

3683

021016

021034

021064
021070
021074

013701
062701
042701
010102
000006

002120

010137

003140

000012

042702
010237
000207

NXMTST:

000200
000177

MOV
.REPT
AEhDR

MOV

.REPT
Agzoa

8IC

177700
003142

MOV
RTS

ENDMOD

021076
021076
021076

021076
021076
021076
021106

MOV
ADD
8IC

TSva:
:

1777177

177777

177717

LS$PROT::

LSHIME ,R]
0200,R1
0177.R1

;GET TOP OF MEMORY
:MAKE IT I/0 BLOCK

OR OTHER NXM

R1,R2
6
R1

{RESAVE RESWULTS

R1.NXMLO

;SAVE TEST ADDRESS LOW

;PUT

10,
R2

;PUT

0177700,R2

TSv4

BGNMOD

TSv4

IN PLACE FOR XFER

;O0ON’T WANT ILA!

R2 ,NXMHI
PC

.TITLE

IN PLACE FOR XFER

;SAVE TEST
: RETURN

ADORESS MIGH

- MISCELLANEOUS SECTIONS

.SBTTL
PROTECTION TABLE
BGNPROT
. WORD
ENDPROT

-1,

-1.

-1,

+NO DEVICE PROTECTION REQUIRED.

TSV4

MISCELLANEQUS

INITIALIZE

SECTIONS

MACRO

Y05.02

Monday

16-Sep-85

10:39

Pege

SEQ 0094

SECTION

3727
3728
3729
3730
3731
3732
3733
3734
3733
373
3737
3738
3739
3740

3741
3742
3743
3744
3745
3746
3747

.S8TTL

1 THE _INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED
THE BEGINNING OF EACH PASS.

AT
'

+IF “START" OR "RESTART~, SET QUICK-PASS FLAG ANC BUS-INIT.
s IF "CONTINUE”, NOTHING IS REQUIRED.
:
;-

s INSERT TEMPORARY JuMP TO 207
:

003037
005037
012737
€05037
003037
0,5037

002226
003136
006360
003154
003134
002302

012700

000036

103023
023737
103070
005737
100472
013701
006301
005761
001516
032761
001060

002202

3763
3764

021242
376S 021244
021244
3766 021246
3767 021246
021246

012700
104447

LS$INIT::

404
:

002200

002012

003176

1¢:

000040

103404
012700

104447
103031

104433

CLR
CLR
CLR

SIFLAG
KTENABLE
RAMSIZ

8cc
cHe
8HIS

14
UNITN,LSUNIT
44

ASL
TST

103052
012700
104447

EXTFEA
NXMFLG

TST
BMI
MOV

003176

000035

CLR
CLR

OEPRT],EPRTSW

READEF
#EF .CONTINUE
MOV
#EF .CONTINUE.RO
TRAP
CSREFG
BNCOMPLETE 14

002202

040000

BGNINIT

MOV

003112

104432
000416

3762

SECTION

104447

3761

INITIALIZE

000037

28:

DUFLG
NXTU
UNITN,R1
R1
ERTABL(R1)

BEQ
BIT
BNE
EXIT

SETU
081714 ERTABL(R1)
NXTY
INIT

8CC

NXTU

TRAP
CSEXITY
.WORD
L10030-.
READEF
#EF NEMW
MOV
OEF .NEW,RO
TRAP
CS$REFG
BNCOMPLETE NXTUV

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

;UNIT IN RANGE?
:BR IF NO.
;:ORCPPED UNTT?
:BR IF YES

;OROPPED?
;00 NOTHING IF

“CONTINUE".

s TAKE NEXT UNIT

IF NOT NEW PASS.

READEF
#EF START
MOV
#EF .START
,RO
TRAP
CS$REFG
BCOMPLETE 23
8CS
29
READEF
#EF _RESTART
MOV
OEF .RESTART
RO
TRAP
CS$REFG
BNCOMPLETE 31
8cc
31

BRESET
TRAP

CS$RESET

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

TSvVA

- MISCELLANEOUS SECTIONS

MACRO

Y05.02

Mondey

16-Sep-85

10:39

Page

76-1

SEQ 0095

INITIALIZE SECTION
3768
3769
3770
3771
3772

3773
3774
3775
3776
3777
3778
3779
3780
3781
3782
3783
3784
3785
3786

3787
3788

021250
021254
021260
021264

005037
005037
005037
005037

021270

005037

003400

021302
021306
021312
021316
021320
021324
021326
021330
021334

012737
004737
(04737
012700
005020
020027
103774
000404
005037
C00137

177777

021274
021274

012737
005037

104422
005237
023737
103423
012737
000401

CLR
CLR
CLR
CLR

002214
002222
003144
003146

020112
020272
003176

002204

30¢:

003376

002204
021404

177171717

002220

002202

002202
002202

002012

003112

021424
021430
021432
021432
021434
021436
021436
021436
021442
021444
021444
021446
021452
021456
021460

002012

103342
005037
005237

012001
010137

000001

MOV

PASRPT:

CLR
CHe
8LO

(RO)«
RO, 0ERTABE
304

MOV

B8R

CLR
JMP

MOV

003112
002220
002206

SETU:

QvpP
PASRPT
#-1,UNITN

INC
cre
8LO
MOV

UNITN
UNITN,L $UNITY
SETU
#-1,DUFLG

OOCLN
TRAP
NOP

C$DCLN

cMP
8LOS
TST
BEQ

| SUNIT,
01
NEWPAS
DEVCNT
NEWPAS

TRAP

C$BRK

CS$RFLA
#ISR,RO
NEWPAS

TRAP
BR

C4DRPT
NEWPAS

GPHARD

UNITN,RO

MOV
TRAP

UNITN,RO
C$GPHRD

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

;NUMBER OF TESTS RUN IN PASS

sCLEAR FATAL ERROR COUNT
;CLEAR 11/23A FLAG
iCLEAR 11/238 FLAG

;RETURN 7O DEBUGGER

1 ;@@ENTER THE DEBUGGER
iCLEAR THE SUBTEST “SKIPPER"
3...QUICK VERIFY.
..
:SET _ENVIRONMENT.

:INITIALIZE KT MEMORY MANAGEMENT

;CLEAR THE ERROR TABLE

DEVCNT

DORPT

002202

#ERTABL ,RO

CLR
BREAK

TRAP
8IT
BNE

10¢:

#-1,QVP

PC.ENVIRN
PC,KTINIY

RFLAGS

000100

0204, -(SP)
0.007
SKIPT

JSR
JSR

B8R

002220

104424
000741

013700
104442

NEWPAS:

114%:

000240

104421
032700
001343

4%:

NXTU:

104444

023727
101752
005737
001747

:
204

MOV
MOV
JMP
CLR

TSTCNT
FATFLG
T23A
1238
0340, -(SP)

R1,CSRADDOR

;GO REPORT THE STATUS
:INIT UNIT NUMBER...
;CLEAR COUNT OF DEVICES RUNNING
i...AND SET NEXT UNIT NUMBER.

;ABORT,

NO MORE UNITS.

;HOW MANY

UNITS

SELECTED?

:BR IF ONLY 1
:ARE ANY STILL RUNNING?
:BR IF NO

:SHOULD WE PRINT STATISTICS
:BR IF NO

:GET UNIT N P-TABLE POINTER.
:BR IF UNIT NOT AVAILABLE.

;:CLEAR

"DROPPED” FLAG.

;GET 1ST REGISTER ADORESS.

; ADDRESS OF REGISTERS OF UNIT UNDER TEST

TSva

- MISCELLANEOUS SECTIONS

MACRO

Y05.02

Monday

16-Sep-85

10:39

Page

76-2

SEQ 0096

INITIALIZE SECTION
8

K4 021464

012001

021466
021472
021476

010137
012721
013721

MOV

021502

1%:

'
:

+GET VECTOR ADORESS.

(RO),R2
R2,IPRI

s1GET INTERRUPT PRIORITY
;SET INTERRUPT PRIORITY.

MOV
MOV

OINTR,(R1).
IPRI,(R1)-

:...VECTOR.
..
:...AND PRIORITY.

MOV

002210
016216
002212

(RO)+,R1

MOV
; MOV

ST
BEQ

R1,IVEC

QvP
St

:SET INTERRUPT VECTOR POINTER...

;1ST PASS ??
i1NO, SKIP THE PASS 1 STUFF,

:IST PASS, CHECK THAT DEVICE ADDRESSES ARE VALID, AND
: THAT THE DISPLAY STATUS IS PROPERLY INITIALIZED.
021502

013701

100000
005772
002012

021330

101416

021532
021534
021540

104421
032700
001412

021542
021546
021352
021556

013746
012746
012746
010600

002202
021634
000002

021562

062706

000006

021566

005037

003114
002206

021600
021604
021610
021612
021616
021624

062702
004737
103005
010137
012737

000002
016376

021560

021572
021576

104417

013701
010102

002202

:gx

gTITN.Rl

003176

8IS

48IT1S,.ERTABL(R1)

:sSAY DEVICE RUNNING

000001

cHpP

LSUNIT, 21

;ARE WE TESTING MULTIPLE UNITS?

CLR

BLOS
RFLAGS
TRAP

817
BEQ

001000

003114

177777

10¢:

NODEV

8CC
MOV
MOV

;sFINALLY,
021624
021624

021630

3859
3861

021632
021632
021632
021634

012700
104441

St:

0v0000

L10030:

104411
045

116

045

PUNIT:

OPNT ,RO
10¢

CLR

ADD

CSRFLA

OPUNIT,UNITN
UNITN, -(SP)
OPUNIT, -(SP)
02,-(SP)
SP,RO
C4PNTF
#6,5P

JSR

10
RO

PRINTF
MOV
MOV
MOV
MOV
TRAP
ADD
MOV
MOV

003112

EXTA

;CLEAR ERROR EXTENSION FLAG.
;BR IF NO.
;:YES -- GE1

OPERATOR FLAGS.

;SHOULD WE PRINT UNIT &?
;BR IF NOT.
;PRINT

THE

UNIT

CSRADDR,R1
R1.R2

; ADDRESS OF FIRST REGISTER
+START OF REGISTERS

PC ., XNXM

;TEST BOTH CONTROLLER REGISTERS...

Q0TSSR ,R2

23
R1,NODEV
#-1,0UFLG

; ADDRESS OF TSSR REGISTER

;...AND BR IF ALL OK,.
;:FLAG DEVICE AS NON-EXISTENT
;:DROP

THIS

UNIT.

SET CPU PRIORITY AND WE'RE DONE.

SETPRI

#&PRIOO

MO
TRAP

PRIOO,RO
C$SPRI

TRAP

CS$INIT

.esgzz
EV

/%NgNSAsssss

ENDINIT

;ENABLE INTERRUPTS,

TESTING UNIT #D2SA

sssss/

TSv4

MISCELLANEOUS SECTIONS

MACRO

Y05.02

Monday

16-Sep-85

10:39

Page

SEQ 0097

ADD AND DROP UNITS SECTIONS

3863
3864

.SBTTL

ADD AND DROP UNITS SECTIONS

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

TO BE (A) ADDED TO THE TEST LIST FOR THE FIRST TIME,
OR (B) RE-INSERTED IF IT HAD BEEN PREVIOUSLY DROPPED.

021702
021702
021702
021704
021706
021714
021722
021722
021724
021730
021734
021736
021740
021744
021744
021746
021750
021776
021776
021776

L$AU:
100000
040000

003176
003176

PRINTF
MOV
MOV

000006

045

1%:

L10031:

104452

MOV
ASL

8IS
8IC

021750
000002

116

BGNAU

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

RO,R1
R1
€100000,ERTABL(R1)
€40000,ERTABL(R1)
@#1%.RO
RO, -(SP)
o1%,-(SP)

GET UNIT TO BE ADDED (RO)
MAKE IT A WORD INDEX
SET THE “ACTIVE"” BIT
CLEAR THE "DROPPED" BIT

SP,RO
CS4PNTF
06, 5P
AU
JEJIMP
L10031-2-.
/%NsA
UNIT #DsA ADDED/

ENDAV
TRAP

;
;
:
;

UNUSED.

CsAv

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

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

012737

11717

003112

140000
000240

003176
000240

022054
000002

3899

000006
022050
022052

$0V::

BGNDU
MOV
€-1,0UFLG
MOV
RO,R1
ASL
R1
8IS
©140000,ERTABL(R1)
240,240,240
PRINTF
@1¢.RO
MOV
RO, -(SP)
MOV
o1%,-(SP)
MOV
02,-(SP)
MOV
SP,RO
TRAP
CS$PNTF
ADD
96, 5P
EXIT
oV
.WORD
JSJMP
.WORD
L10032-2-.

;s
;

SAY DROPPED
222?722

TSV4 - MISCELLANEQUS SECTIONS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 77-1

SEQ 0098

ADD AND DROP UNITS SECTIONS

3900 022054

3901
3902 022104
022104
022104
3903
3904
390S
3906 022106
022106

045

116

013705

002206

3909 022116
3910 022122
3911 022124
022124

004737
103420

016250

022130
022132
022136
022140
022144

022146
022152

3912 022154
3913 022156
3914 022160
3915 022164
3916 022164
022164
022164

012703

012727

000000
013727
(C€00000
005367
001375

005367
001367
005303
001357
004737

104461

1:
L10032:

104453

3907 022106

3908 022112

04S

000550

/#N#A

UNIT %DsA DROPPED/

TRAP

csOU

MOV

CSRADDR,RS

sPOINT TO DEVICE REGISTER

JSR
8CS
DELAY
MOV

PC,WAITF
204
250.
9250.,(PC).

;:WAIT FOR SSR TO SET
;LEAVE WHEN SSR IS SET
sWAIT FOR .25 SECONDS

DEC
RNE
JSR

-22(PC)
.-20
oz
10¢
PC,CKDROP

1o
s AUTO-DROP CODE SECTION.
$-B8GNAUTO
L$AUTO:
:

10%:

000372

MIV

.WORD
MOV
.WORD
DEC
BNE
DEC
BNE

002116
177772

177756

017202

.ASCIZ

.EVEN
ENODU

20¢:
L10033:

0360, ,R3

o}
LS$OLY,(PC)
0
-6(PC)
.-4

ENDAUTO
TRAP

;ENOUGH TIME FOR 2400’ REEL TO REWIND

;BUMP COUNTER DOWN
sKEEP GOING
;sTRY AND DROP UNIT
s

C$AUTO

UNUSED.

TSV4 - MISCELLANEOUS SECTIONS

MACRO

Y05.02

Monday

16-Sep-85

10:39

Page

CLEAN-UP AND REPORT CODING SECTIONS
.SBTTL

3918
3919
3920
3921
3922
3923

CLEAN-UP AND REPORT CODING SECTIONS

* e

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

022166
022166
022166
022172
022176

022212

013705
005737
100405

002206
003112

012765
004737

000000

016250

BGNCLN
L$CLEAN:
:
MOV
TST

000002

MOV
JSR

'8
2%:
L10034:

104412

CSRADDR,RS
DUFLG

sPOINT TO DEVICE REGISTER
s "DROPPED” FLAG IS SET ON...

€0, TSSR(RS)
PC,WAITF

;00 SOFT INIT

:...AND GROSS CONTROLLER FAWULT...
..DON'T TRY TO XCT CLEANUP CODE.

ENDCLN
TRAP

CS$CLEAN

: THE REPORT COOING SECTION CONTAINS THE
i
022214
022214
022214

"PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS.

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

005003

022456
000001
000004

003176
1s:

011402

001467
100066
032702
001015
042702

040000
170000

010246

3955
3956

000010

160000
022324
022326

010346
012746

022563

PRINTS

2%:

#DEVSUM

MOV
MOV
MOV
TRAP
ADD
MOV
MOV
MOV
MOV
CLR
MOV

ODEVSUH -(SP)
.-(SP)
SP.RO
C$PNTS
94,SP
R2,-(SP)
R3,-(SP)
R4, -(SP)
SERTABL ,R4
R3
(R4),R2

BIT
BNE
81C
PRINTS

981714 ,R2
28
0tC7777,R2
OOEVONL ,R3,R2

gse

MOV
MOV

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

MOV
TRAP
ADD
BR

SP,RO
CSPNTS
210,5P
44

MOV

022513
0v0003

3953

BGNRPT

cHP
BNE
PRINTS
MOV
MOV

GET START OF ERROR TABLE.

ZERO IF UNIT NOT RUN

3
:

CLEAR UNIT NUMBER
GET ERROR TABLE ENTRY & TEST IT.

:+
+
;
3

WAS UNIT DROPPED?
BR_IF YES
GET ERROR COUNT FIELD
PRINT

;
:

WAS UNIT NON-EXISTENT?
BR IF NO

QDEVONL
, -(SP)

R2,#160000
34

ODEVNXR,R3
R3,-(SP)
QDEVNXR, -(SP)

SEQ 0099

TSV4 - MISCELLANEOUS SECTIONS

MACRO Y05.02

Monday

16-Sep-85

10:39

Pege

78-1

CLEAN-UP AND REPORT CODING SECTIONS
022332
022336

012746
010600

000002

022342

062706

000006

3958 022350

020227

160001

022360
022364

022374

012746
012746

022645
000002

062706

000006

3961 022400
3962 022402
3963 022406

000414
042702

022410
022412
022416

C10346
012746
012746

022726
000003

022426
3964 022432

062706
062704

000010
000002

966 022440

020427

003376

3969 02245C
3970 022452
3971 022454

012603
012602

022454

104425

022456
022513
022563
022645
022726

045
045
045
045
045

022454

3972
3973
3974
3975
3976
3977
3978
3979
3980
3981

022776

MOV
MOV
TRAP

304

4 :

:?.sp

cHP

R2, 0160001

PRINTS
MOV
MOV

304
ODEVNRD,R3
R3, -(SP
#DEVNRD, -(SP)

MOV
TRAP
ADD
BR
BIC
PRINTS
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
ADD
INC

SP,RO
CSPNTS
06,SP
44
#tC7777.R2
ODEVDRO.R3,.R2
R2,-(SP)
R3,-(SP)
@DEVORO, -(SP)
@3, -(SP)
SP,RO
CSPNTS
€10,.SP
02.R4
R3

MOV
MOV
MOV
ENDRPT

(SP)+.R4
(SP)+.R3
(SP)+.R2

cHP
BLO

L10035:

116
101
101
101
101

ggo

MOV

170000

045
040
040
040
040

DEVSUM:
DEVONL:
DEVNXR:
DEVNRD:
DEVDRO:

02, -(SP)
SP .RO
CPNTS

;

WAS UNIT NOT READY AT STARTUP?

BR IF NO.

02, -(sP)

R4, 9ERTABE
1

;

UNUSED.

TRAP

CSRPT

_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.235£Z

/#NsADEVICE STATUS SUMMARY :®N/
/#A
UNIT #D3#A
ONLINE,
ERRORS = %D¥N/
/#A
UNIT #D3#A
DROPPED, NON-EXISTENT REGISTERSN/
/#A
UNIT #D3%A
ODROPPED, NCT READY AT STARTUPSN/
/#A
UNIT #D3#A
DROPPED, ERRORS = %Dw%N/

ENDMOO

SEQ 0100

TSVS - HARDWARE TESTS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 79

CLEAN-UP AND REPORT CODING SECTIONS
3985

3986
3993

3994 022776
0221776

4000
4008

TSVS::

.TITLE

7TSVS - HARDWARE TESTS

BGNMOD

TSVS

SEQ 0101

TSVS

- HARDWARE TESTS

TEST

MACRO Y05.02

Monday

16-Sep-85

10:39

Pege 80

SEQ 0102

INITIALIZE AFTER WRITE CHARACTERISTICS

.SBTTL

4010
4011
4012

TEST

INITIALIZE AFTER WRITE CHARACTERISTICS

TEST OESCRIPTION:

4013

This test verifies that 8 Hardware Initislize commend
invoked after 8 Write Characteristics command sets up

4014

4015

the Commend,

4016
4017
4018

Message and Characteristic

in the controller

ram correctly.

image blocks

TEST STEPS:

4019

4020

REPEAT FOR LOOPCNT
BEGIN

END

022776
022776
022776
023002
023006
023014
023014

Do WRITE CHARACTERISTICS commaend.
If the NBA bit in the TSSR re ister is NOT=0 then Print Error.
Write to TSSR re ister to sof
initialize the controller
If controller RAM
310-377 NOT=0 then Print Error

BGNTST

012737

023432
016510
000012

004737

023706

012703
012704
012764

002764
023370
000010

004737

015774

103405

002216

000006

T13L00P:

JSR

PC,TSTSETUP

JSR

PC.T13REST

;SET PACKET TO START-UP VALUES

MOV

#TSTBLK+10.
.R3

MOV

#8. ,PKBCNT(R4)

:START OF TEST DATA
:GET THE ADDRESS OF COMMAND PACKET
+START WITH MINIMUM ALLOWABLE VALUE

MOV

HOV

)

JSR

BCS

MOV

010001

ERRDF

104455

0TST13ID,RO

OT13PACKET.R4

PC,SOFINIT
104

RO,R1

ERRNO, SFIERR, SFIMSG

000144
0036352

012034

005037
010465
004737

002222
000000
016336

;00 WRITE CHARACTERISTICS commend.

104::

CLR

MOV

JSR

FATFLG

R4,TSDB(RS)

PC.CHKTSSR

FORCERROR

103407

010001

12%:

Ti::

tASCII MESSAGE TO IDENTIFY TEST
;DO INITIAL TEST SETUP
sPERFORM 10 ITERATIONS

MOV

124

8cs
15¢
MOV
RO,R1
NEXT.ERRNO
ERRDOF
ERRNO,T13SSR,PKTSSR

tWRITE TO TSSR TO SOFT INITIALIZE
1BR IF SOFT INIT OKAY
s SAVE CONTENTS OF TSSR
:DEVICE FATAL DURING INITY
TRAP
.WORD
.WORD
.HWORD

1CLEAR FATAL ERROR FLAG
:SET _THE PACKET ADDRESS TO EXECUTE
tWAIT FOR SSR TO SETY
; 880F ORCE ERROR IF FORCER=1
1BR IF CARRY SEV (GOOD RETURN)
1 SAVE CONTENTS OF TSSR

sDEVICE FATAL SSR FAILED TO SET
TRAP
.WORD

CS$EROF
101

.MORD

PKTSSA

.WORD

023122
023126

002222

15%¢:

INC

CKLOOP

FATFLG

CSERDF
100
SFIERR
SFIMSG

:SET FATAL ERROR FLAG
;:LOOP ON ERROR, IF FLAG SET

T13SSR

TSVS

- HARDWARE TESTS

TEST

MACRO Y05.02

Mondey

16-Sep-85

10:39

Page 80-1

SEQ 0103

INITIALIZE AFTER WRITE CHARACTERISTICS

023126
4063 023130
4064 023134
4065 023140
4066 023144
4067 023146
4068
4069
4070 023152
4071 023132
4072 023166
4073 023170
4074 023172
4075 023172
023172
023174
023176
023200
023202
023202
023204
023204
023210
023224
023226

104406
016501
012702
032701
001402
052702

000002
000200
000100

MOV
MOV
8IT
BEQ
BIS

000100

é%: the NBA bit

crHp

104456

000146
023544
012046

104406

R2,R1

304:

CKLOOP

015774

424

104455
000147

;1D0ES EXPECTED MATCH RECEIVED ?
;OKAY IF MATCH

;NBA NOT ZERO

4100

4102

TRAP

csCLP

PC,SOFINIT

sWRITE TO TSSR TO SOFT INITIALIZE

BCS

S50

;B8R IF SOFT INIT OKAY

424

RO,R1

NEXT
. ERRNO
ERRDF
ERRNO,SFIERR,SFIMSG

; 880

1SAVE CONTENTS OF TSSR
sDEVICE FATAL DURING INIY
TRAP

.WORD
.MORD
.MORD

000000
016336
000000
016336
000000

608 :

002222

CSEROF

103
SFIERR
SFIMSG

:If controller RAM 310-377 NOT=0 then Print Error

000310

MOV

CLR
CLRB
JSR
MOV
JSR
MOV

#310,.R4

R2
TSOB(RS)
PC,CHKTSSR
R4, TSDB(RS)
PC,CHKTSSR
TSBA(RS),R1

FORCERROR

624 :

4101

CSERMRD
102
T13NBA
PKTSSR

initialize the controller

0036352
012034

012704

TRAP
.WORD
.WMORD
.WORD

JSR

MOV

010001

is NOT=0 then Print Error.

;LOOP ON ERROR

FORCERROR

103405

csCLPY

; 880

BEQ
304
NEXT
. ERRNO
ERRHRD
ERRNO,T13NBA,PKTSSR

ig;it. to TSSR register to soft

004737

;GET THE CONTENTS OF TSSR
tEXPECTED CONTENTS OF TSSR
:IS OFF -LINE BIT SET ?
sBRANCH IF NOT OFF -LINE
$SET OFF -LINE IN EXPECTED DATA

in the TSSR register

FORCERROR

020201
001404

TRAP

TSSR(RS),R1
#SSR,R2
S0FL ,R1
254
o0FL .R2

708 :

628 ,NOTSSR

cHPB
R1,R2
8EQ
704
NEXT.ERRNO
ERRDF ERRNO, T13MEM,RAMEXP

;START WITH LOC 310

stMEMORY EXPECTED SHOULD BE 000000
1SET MAINTENANCE MODE
sWAIT FOR SSR READY
1SELECY RAM ADORESS
tWAIT FOR SSR READY
sREAD LOC CONTENTS
: 880

sCHECK MEMORY FOR 000000
:BRANCH IF DATA OKAY

sMEMORY NOT ZERO AFTER INIT.

TRAP
.WORD

INC

FATFLG

.WORD
.
:SET THE FATAL ERROR FLAG

ESCAPE

TST

:EXIT ON FATAL ERROR

CxLOOP

CSERDF
104

T13MEM
RAME XP

TRAP

csCcLP)

TRAP

CSESCAPE

.WORD

L10036-.

TSVS

- HARDWARE TESTS

TEST

MACRO Y05.02

Monday 16-5ep-85 10:39

Page 80-2

SEQ 0104

INITIALIZE AFTER WRITE CHARACTERISTICS

023330
023332
023336

000400

824:

017202
023014

R4, #400
60¢

1LOOK AT NEXT RAM LOC.
1AT TOP OF RAM ADDRESS SPACE
sBRANCH TILL ALL MEMORY TESTED

TST

FATFLG

tANY FATAL ERRORS

crpP
BNE

002222
016456

INC

8EQ
JSR
JSR
8cC

1604 :
165¢:

EXIT

1604
PC,CXDROP
PC,TSTLOOP
165¢

sBRANCH IF NOT

1TRY

TO DROP THE UNIT

1OONE ALL ITERATIONS?
1BR IF YES
1LOOP UNTIL ITERATION COUNT DONE

T13L00P

TRAP

.WORD

CeEXIT

L10036-.

1LOCAL STORAGE FOR THIS TEST
023370
023370

T13PACKET:
.HORD
.WMORD
.WORD
.MORD

100004
023400

000000
000010

T13DATA:

023412
000016

T138FR:

.WORD
.WORD
.MORD
.WORD

s COMMAND PACKET FOR TEST

100004
T13DATA
O
8.

HRITE CHARACTERISTICS COMMAND, WITH ACK
sADDRESS OF CMARACTERISTICS BLOCK

sSTARTING VALUE OF BLOCKX SIZE
1CHARACTERISTICS DATA 8LOCK
s ADDRESS OF MESSAGE BUFFER

T138FR
O
14.
0.0

iLENGTH OF MESSAGE BUFFER

. BLKW

{MESSAGE BUFFER

iLOCAL TEXT !ESSAGES FOR TEST

023432
023505

111
111

156
156

TST1310:
TISMEM: .ASCIZ

023344
023617

127
103

122
157

T13SSR:

TI3NBA: .ASCIZ

.ASCIZ

.ASCIZ
‘'Initislizetion After WRITE CHARACIERISTICS'
‘Incorrect RAM Dete After 1nit’

‘WRITE CHMARACTERISTICS Commend Not Accep

‘Contents of TSSR Incorrect After lflITE CNMACTERISY'CS'

1ROUTINE TO RESTORE COMMAND PACKEY

TO START-UP (DEFAULT) VALUES

.EVEN
T13REST:

012701
012721

023370
100004

SAVREG

MoV
MoV

OT13PACKET ,R1
#100004,(R1).

;SAVE THE REGISTERS
sSTART OF

THE PACKETY

tMRITE CHARACTERISTICS WITH ACK

TSVS

TEST

MARDWARE

TESTS

Monday

16-Sep-85

10:39

Page 80-3

SEQ 0105

INITIALIZE AFTER WRITE CHARACTERISTICS

4161 023722
4162 023726
4163 023730

012721
005021
012721

4165 023740

005021

4164 023734

4166 023742
4167
4168
4169
4170

MACRO Y05.02

023746
023750
023752
023754

023754
an 023754
1

012721
012721

005021
005011
000207

023400
s
000010

023412

MOV
CLR
MOV

OT13DATA,(R1)+
(R1).
#8.,(R1).

CLR

(R1).

MOV

000016

MOV

CLR
CLR
RTS
ENDTST

oTi3BFR.(R1).
e14.,(R1).
(R1).
(R1)
PC

;ADDRESS OF CHAR DATA BLOCK
1EXTENDED ADDRESS
1SIZE OF DATA BLOCK IN BYTES

1 ADDRESS OF MESSAGE BUFFER
tLENGTH OF MESSAGE BUFFER
stRETURN

L10036:

104401

:i;g

.SBTTL

TRAP

CSETST

TEST 2: BASIC WRITE SUBSYSTEM MEMORY COMMAND

4174

:i;g

; COMMAND DECODING AND HANDLING SEQUENCES.

4175
4176
4177
4178

;1THIS TEST VERIFIES THAT THE WRITE SUBSYSTEM MEMORY COMMAND WITH A
1BSELO SELECT CODE OF O (NO-0OP) EXECUTES CORRECTLY. IT ALSO
;VERIFIES THAT A WRITE SUBSYSTEM MEMORY COMMAND WITH A NON-ZERO
sMODE FIELD IS REJECTED. THE TEST FURTHER VERIFIES MICROPROGRAM
3

4181

4182 023756
023756

4187 023756

4188 023762
4189 023766
4190 023774

: -

012700
004737
012737

025571

016510
000024

4191 023774

023774
023774
4192 023776
4193 024002
4194 024006
024006
024012
4195 024014
4196 024014

104402
004737
004737
012700
104441

024014
024016
024022
024024
024026
024026
024030
024032
024034

104404
004737
103405
010001

4205 024036

012704

4207 024046
4211 024050
4212 024052

103405
010001

4197
4198
4202
4203

4204 024036

4206 024042

0240352

024054

024056

004737

104456

000312

005056

MOV
002216

T14LO0O0P:

025636
025674

St:

015774

025130

010662

JSR
MOV

PC,TSTSETUP
#20. ,LOOPCNT

MOV

JSR

8Cs
MOV
ERRHRD

T2::

s+ASCII MESSAGE TO IDENTIFY TEST
;00 INITIAL TEST SETUP
;:PERFORM 20 ITERATIONS

s//////7/7777/7 BEGIN SUBTEST ////7/77/777/77
T2.1:

PC,T14REST
PC,T14RST
@PRIOO

BGNSEG
JSR
8CS
MOV
ERROF

10s:

07ST141I0,RO

BGNSULUB
JSR
JSR
SETPRI

000000

104455
000311
003652
012034

BGNTST

PC,SOFINIT
10
RO,R1
ERRNO, SFIERR, SFIMSG

OT14PK2,R4

PC,.WRTCHR

114
RO,R1
ERRNO,WRTMSG, SFIMSG

TRAP
csasus
;SET PACKET TO INITIAL VALUES
sSET PACKET TO INITIAL VALUES
;LOWER PRIORITY TO ALLOW INTERRUPTS
MOV
#PRIOO,RO
TRAP
C$SPRI
$2>>.>>>>>53>> BEGIN SEGMENT >>3>>>>>3>>>>
TRAP
C$BSEG
;00 SOFT INIT OF CONTROLLER
:BR IF SOFT INIT = OK
: SAVE CONTENTS OF TSSR
;sDEVICE FATAL ERROR DURING INIT

TRAP
.WORD
.WORD
.WORD

CSEROF
201
SFIERR
SF IMSG

:SUBROUTINE NEEDS PACKET ADORCSS

:ISSUE WRITE CHARACTERISTICS

:8R, IF COMMAND ISSUED OK
:SAVE CONTENTS OF TSSR
{WRITE CHARACTERISTISC FAILED

TRAP

. WORD

.WORD

CSERHRD

202

WRTMSG

TSVS

TEST

HARDWARE

4213
4214
4215
4216
4217
4218
4219
4220
4224

4225
4226

4227
4228
4229
4233

4245
4246

4247
4251

4252
4233

TESTS

MACRO

Y05.02

Monday

16-Sep-85

10:39

Page

80-4

SEQ 0106

BASIC WRITE SUBSYSTEM MEMORY COMMAND
024060
024062
024062
024066

024072

024076
024102
024106
024110
024112
024112
024114
024116
024120
024122
024126
024126
024130
024130
024132
J24134
024140
024142
024142
024144
024146
024150
0241352
024156
024162
024166
024170
024174
024176
024200
024200
024202
024204
024206
024210
024210
024214
024216
024216
024220
024222
024224
024226
024226
024226

.WORD

012034
005037
005037
012704
010463
004737

103407

002222
002224
024510
000000
016336

4256
4257 024232

FATFLG

INTRECV

R4
#T14PACKET

R4, TSDB(RS)

PC,CHKTSSR
15%

RO,R1

010001

ERRNO, T14SSR,PKTSSR

002222

15%:
ESCAPE
TST

002224

016501
012702
032701
001402
052702

020201

000002
000200
000100
000100

001404

BNE
ERRHRD

22%:

004737
103405

011114

30%:
35%:

TRAP

.WORD
.WORD
.WORD

TRAP

. WORD

;:DID AN INTERRUPT OCCUR ?

INTRECV
228
ERRNO, T14NINT ,PKTSSR

;:BRANCH IF

I1SSR(RS) ,R1

1GET THE CONTENTS OF TSSR

JSR

PC,CKRAM

59
ERRNO,PKTRAM,RAMERR

TRAP
.WORD
.WORD
. WORD

;EXPECTED CONTENTS OF TSSR
;IS OFF -LINE BIT SET ?
;BRANCH IF NOT OFF -LINE
:SET OFF-LINE IN EXPECTED DATA
;:D0ES EXPECTED MATCH RECEIVED ?
;OKAY IF MATCH
:NBA NOT ZERO
TRAP

;THEY

DON'T

MATCH

s MANNNAANANANAANN

104403
002222

TST

TRAP

. WORD
. WORD
. WORD

END

SEGMENT

10000:

1044035

005737

FATFLG

T14SSR
PKTSSR

cscLP)

CS$ESCAPE
-.
10000%

CS$ERMRD
204
T14NINT

PKTSSR

CSERHRD
205

T14NBA
PKTSSR

;CHECK RAM TO MEMORY
;RAM OK GO ON

j<cccccccccccce

ENDSUB

CSERDF
203

YES

.WORD
. WOROD
.WORD

ENOSEG

:
594

TO SET

:BY-PASS SUBTEST IF FATAL ERROR

308
ERRNO, T14%BA ,PKTSSR

ERRHRD

104456
000316
004745
015510

SSR

1BR IF CARRY SET (GOOD RETURN)
;SAVE CONTENTS OF TSSR
;DEVICE FATAL SSR FAILED TO SET

SEG

R2,R1

254
:

;WAIT FOR

;SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG ?EIP

20FL .R1
258
#0FL ,R2

SFIMSG

;CLEAR FATAL ERROR FLAG
;CLEAR INTERRUPT RECEIVED FLAG
1SET UP NEW WRT. SUBSYS MEM. COMMAND
;SET _THE PACKET ADODRESS

FATFLG

@SSR ,R2

104456

000315
025152
012046

4255 024230

024230
024230

;ANY

FATAL

END

ERRORS

PKTRAM
RAMERR

ccccccecccccc

TRAP

SUBTEST

L10040:

CIERHRD
206

CSESEG

TRAP

CsESUB

TSVS

TEST 2:
4258
4259
4260
4261
4262
4263
4264
4265
4266
4267
4268
4269
4270

MARDWARE

4274
4275
4276

4277
4278
4279
4283
4284

MACRO Y05.02

Mondey

16-Sep-85

10:39

Pege 80 S

SEQ 0107

BASIC WRITE SUBSYSTEM MEMORY COMMAND
024236

024240
024244

001402
004737

017202

608:

BEQ
JSR

604

PC.CKDROP

:BRANCH IF
; TRY

NOT

DROP

THE

UNIT

i e

sTEST 2,

SUBTEST 2

1tCHECK THAT NON-ZERO MODE BITS BEING SET CAUSES
tWMRITE SUBSYSTEM MEMORY COMMAND TO BE REJECTED

024244
024244
024244

4271
4272 024246
024246

4273

TESTS

024252
024254
024260
024264
024270
024270

024272
024276
024300
024302
024302
024304
024306

024310

4285 024312
024312
4287 024316
4291 024320
4292

BGNSULB

/77777777777

BEGIN

104402
012700
104441
012704
004737
004737

SETPRI

000000

025130

025636

Ss:

025674

104404
004737

103405

#PRIOO

9T14PK2
R4

PC,T14REST
PC,T14RST

;LOWER PRIORITY

;:GET

015774

JSR
8CS

MOV

ERROF

104455
000317
003652
012034
010662

10%:

JSR
8Cs

ERRHRD

002224
024510
007000
000000

MOV
TRAP

#PRIOO,RO
CS$SPRI

PACXET

TO STARTING VALUES

;RESTORE PACKET TO STARTING VALUES
2233353533335

BEGIN

SEGMENT

>5>3>333>533>)>

PC,SOFINIT

10¢

RO,R1

ERRNO, SFIERR, SFIMSG

;00 SOFT INIT OF CONTROLLER
:BR IF SOFT INIT = 0K
:SAVE CONTENTS OF TSSR
;DEVICE FATAL ERROR DURING INIT

PC,.WRTCHR
114
RO,R1
ERRNO, WRTMSG, SFIMSG

CLR

BIS

MOV

016250

JSR
8cCs
MOV

ERRDF

INTRECV

OT14PACKET
R4
4007000, (R4)
R4, TSDB(RS)
PC . WAITF

RO,R1

ERRNO, T14SSR,PKTSSR

;WRITE

SUBSYSTEM MEMORY

FAILED
TRAP

CxLooP

CSERDF

207
SF IERR
SFINSG

CSERMHRD

208
WRTMSG
SF IMSG

:CLEAR INTERRUPT RECEIVED FLAG
;SET-UP WITH WRT SUBSYS MEM PACKET
;NON-ZERO COMMAND MODE BITS
;SET _THE PACKET ADDRESS
;WAIT FOR SSR TQ SET
;B8R IF CARRY SET (GOOD RETURN)
;SAVE CONTENTS OF TSSR
;:DEVICE FATAL SSR FAILEDTTO SETY
RAP

15¢:

C$8SEG

:ISSUE WRITE CHARACTERISTICS
;:8R, IF COMMAND ISSUED OK
;SAVE CONTENTS OF TSSR

.WORD
.WORD
.WORD

MOV

104455

104406

TO ALLOW INTERRUPTS

.MORD
.WORD
. WORD

MOV

012034

024366
024370
4305 024372
024372

csasus

THE ADDORESS OF COMMAND PACKET

;RESTORE

000320
005056

000321
025323
012046

TRAP

104456

0035037
012704
052714
010465
004737
103405
010001

777777777777

TRAP

010001

004737
103405
010001

MOV
JSR
JSR
BGNSEG

SUBTEST

T2.2:

:LOOP ON ERROR,

CSERDF

.WORD
.WORD
.WORD

209
T145SR
PKTSSR

TRAP

CsCLP)

IF FLAG SETY

- HARDWARE TESTS

Mondey

16-Sep-85

10:39

Page 80-6

SEQ 0108

BASIC WRITE SUBSYSTEM MEMORY COMMAND

4306 024374

024374
024376
024400
024304
024406
024406
024410
024412
024414
024416
024422
024426

104410
000074
005737

001004

ESCAPE

000002
100206
000100
000100

024460
024462
024462
024464
024466

024470

024472

024472
024472

024474
024474
024474
024476
024476
024500

004737
103405

TST
BNE
ERRHRO

002224

228:

254

MOV
MOV

8IT
BEQ
8IS
cMe
8EQ
ERRHRD

JSR
8CS
ERRHRD

011114

104456

000324
004745
015510

SEG

INTRECV
228
ERRNO, T14NINT ,PKTSSR

TSSR(RS),R1
#SC!SSR!TSREJ,R2
00FL ,R1

254

90FL ,R2
R2,R1
30%
ERRNO, T142REJ,PKTSSR

PC,CKRAM
594

ERRNO,PKTRAM,RAMERR

;BY-PASS CHECKS IF FATAL _ERROR
TRAP

. WORD

;:0ID AN INTERRUPT OCCUR ?
+BRANCH IF YES

TRAP
.MORD

.WORD
.WMORD

1GET THE CONTENTS OF TSSR
sEXPECTED CONTENTS OF TSSR

:BRANCH IF NOT OFF -LINE
:SET OFF -LINE IN EXPECTED DATA
:DOES EXPECTED MATCH RECEIVED ?
;OKAY IF MATCH
;:COMMAND NOT REJECTED
TRAP

;RAM OK

104403

EXIT

104432

s ANNNNANANNANANNY

TST

CS$ERHRD
210

T14NINT
PKTSSR

CSERHRD

.WORD
.WORD
.WORD

211
T142REY
PKTSSR

TRAP

CSERMHRD

; THEY DON'T MATCH

END

.WORD
.WORD
.WORD

SEGMENT

10000%:

ENDSUB

-.
10000¢

;CHECK RAM TO MEMORY

104405
59%:

CS$ESCAPE

:1S OFF-LINE BIT SET ?

s<cccccccccc<ce

ENDSEG

END
L

;ALL DONE THIS TEST

001246

212
PKTRAM
RAMERR

c¢cccccccccccc

TRAP

CS$ESEG

SUBTEST NN
:
TRAP
CSESLB

TRAP
.WORD

CSEXIT
L10037-.

:LOCAL STORAGE FOR THIS TEST
*

024510
024510
024512
0243514
024516
024520
024520
024521
024522
024524
024526

024510
100206
024520

=¢.+10>E177770

T14PACKET:

.WORD
.WORD
.WORD
.WORD

T14DATA:
714850: .BYTE
7148S1: .BYTE
T148S2: .WORD
.WORD
T14BFR: .BLKW

100206

T14DATA

OO0

TEST 2:

MACRO Y05.02

0000

TSVS

;COMMAND PACKET FOR TEST
;WRITE SUBSYSTEM MEM. COMMAND, WITH IE,
;sADDRESS OF CHARACTERISTICS B8LOCK
sSTARTING VALUE OF BLOCK SIZE
1 CHARACTERISTICS DATA BLOCK
:BSELO BYTE
:BSEL1 BYTE
:BSEL1 WORD
;sDATA
;MESSAGE

BUFFER

ACK

TSVS - HARDWARE TESTS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 80-7

SEQ 0109

TEST 2: BASIC WRITE SUBSYSTEM MEMORY COMMAND
4354
4355

4357

4359 025130
4360 025130
4361 025132
4362 025134

:ggz 025136

025130

100204
025140

000000

4367 025140

024526

4369 025144
:g;g 025146

000400
000000

4368 025142

T14DTA:

000000

4377
4378
4379
4380
4381
4382
4383

025152
025226
025323
025413
025505
025571

127
127
103
105
111
102

122
122
157
170
156
141

4384
4385
4386
4387

4393
4394
4395
4396

256.
0,0

s SELECT DATA BLOCK

; ADDRESS OF MESSAGE BUFFER
sLENGTH OF MESSAGE BUFFER

TEXT MESSAGES FOR TEST

T14NBA: .ASCIZ
T142REJ:
T14SSR: .ASCIZ
T14NINT:
T14TSBA:
TST141I0D:
.EVEN

'WRITE SUBSYSTEM MEMORY Command Not Accepted’
.ASCIZ
'WRITE SUBSYSTEM MEMORY Not Re jected With Non-Zero Mode Field’
'Contents of TSSR Incorrect After WRITE
SUBSYSTEM MEMORY'
.ASCIZ
'Expected Interrupt Not Received On WRITE SUBSYSTEM MEMORY’
.ASCIZ
'Incorrect TSBA Address After WRITE SUBSYSTEM MEMORY'
.ASCIZ
‘Basic WRITE SUBSYSTEM MEMORY Command’

H
i-

012701
012721

4398 025656

005021

4397 025652

4404
4405
4406
4407
4408
4409
4410
4411

T148FR

;ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES
;WRITE SUBSYSTEM MEMORY COMMAND

025636
025636
025642
025646

4399
4400
4401
4402
4403

;STARTING VALUE OF BLOCK SIZE

i e
:

4388
4389

4390
4391
4392

111
111
156
160
143
163

.WORD

.WORD
.WORD
;e
sLOCAL

; COMMAND PACKET F 'R TEST
;{WRITE CHARA. MEm, CMND., WITH IE, ACK
; ADDRESS OF SELECT DATA BLOCK

.WORD

000000

100204
T14DTA

.WORD

4372
4373
4374

.WORD
.WORD

000010

4365

4366 025140

.2<_+10>E177770

T14PK2:

025660
025664
025666
025670
025672
025674
025674
025700
025704
025710
025714

4412 025716

T14REST:

012721

012721
005021
005021
005011
000207

024510
100206

024520

SAVREG
MOV
MOV

MOV

CLR

000006

T14RST:

#T14PACKET R}
€100206,(R1)-

;SAVE THE REGISTERS
;START OF THE PACKET
sWRITE SUBSYSTEM MEM.

(R1).

sEXTENDED ADDRESS

OT14D0ATA,(R1)»

MOV
CLR
CLR
CLR
RTS

#6.,(R1).
(R1).
(R1).
(R1)
PC

;ADDRESS OF DATA BLOCK

WITH ACK,

:SIZE OF DATA BLOCK IN BYTES
;CLEAR BSELO AND BSEL1
;:CLEAR SEL2
;CLEAR DATA AREA
{RETURN

012701
012721
012721

025130
100204
025140

SAVREG
MOV
MOV
MOV

0T14PK2 R
€100204,(R1).
0T14DTA,(R1).

:SAVE THE REGISTERS
:START OF THE PACKET
;WRITE CHARA. WITH ACK, IE
;sAUDRESS OF CHARAISTICS DATA BLOCK

012721

000019

MOV

08.,(R1).

:SIZE OF DATA BLOCK IN BYTES

005021

CLR

(R1)»

;EXTENDED ADDRESS

TSVS

TEST 2:

HARDWARE

TESTS

MACRO Y05.02

Monday

16-Sep-85

10:39

Page 80-8

SEQ 0110

BASIC WRITE SUBSYSTEM MEMORY COMMAND

4413 025722
4414 025726
4415 025730
4416 025734
4417 025736
4418 025740
4419 025744
4420 025746
025746
025746

012721
005021
012721
005021
005011
005037
000207

104401

024526

MOV

#T14BFR,(R1).

:MESSAGE BUFFER ADDRESS

000400

MOV

9256.,(R1).

tLENGTH OF MESSAGE BUFFER

024526

CLR

CLR
CLR
CLR

RTS
ENDTST

(R1).

;CLEAR 1ST LOC IN MESSAGE BUFFER
TURN

L10037:

TRAP

CSETST

TSVS

- HARDWARE TESTS

MACRO Y05.02

Monday

16-Sep-85

10:39

.SBTTL

TEST

Page 81

SEQ 0111

TEST 2: BASIC WRITE SUBSYSTEM MEMORY COMMAND
4422
4423
4424

4425

DMA MEMORY ADODRESSING

;

TEST 3
TEST

DESCRIPTION

4426
4427
4428
4429
4430
4431
4432
4433
4434
4435
4436
4437
4438
4439
4440
4441
4442
4443
4444

This test verifies that the controller cen properly sddress end
access all available CPU memory (other than that occupied by the

diagnostic and diagnostic supervisor code) for both reading (DATI)
and writing (DATO). Verified are the LSI-11 Bus drivers for sll
Up to this point only 16 bits have been

TEST

STEPS

aveilable address lines.
used for DMA transfers.

REPEAT FROM 1
BEGIN

Do
Do
Do
ENDDo

Subtest
Subtest
Subtest
Subtest

1
2
3
4

Verify
Verify
Verify
Verify

GET STATUS selected locations
message packets selected locations
Characteristic data selected locations
NXM to selected invalid addresses

4445

TO LOOPCNT

4446
4447
4448

MOV

030020

#7S7T1210,R0

JSR
MOV
INC
JSR

002216
020626

:ASCII MESSAGE TO IDENTIFY TEST

PC,TSTSETUP
910. ,LOOPCNT
T3BFLG
PC.MEMCK

;D0 INITIAL TEST SETUP
;PERFORM 10 ITERATIONS
;SET TEST FLAG
; CHECK MEMORY

+LOOP ON TEST LABEL

T12L00P:

.SBTTL

TEST 3:

SUBTEST 1:

GET STATUS SELECTED LOCATIONS

SUBTEST DESCRIPTION:
This subtest verifies the controller can fetch a get status
command from all available memory
locations.
Two word blocks are

tested one

& time by

first setting

all aveileble memory to a background pattern of 125252.

A Get Status command is then executed to various addresses in
each available memory 4k word block. The various addresses
are determined by floating a 1 then a 0 through the address bits.

TEST STEPS:

G¢

B¢

; TEST 3: SUBTEST 1:

012700

B¢

025776

BGNTST

4449 025750
025750
025750
025754
025760
025766
025772

BEGIN

Write

TSSR to soft

initialize

Do & WRITE CHARACTERISTICS to setup a message buffer

TSVS - HARDWARE TESTS

TEST 3:

MACRO Y05.02

Monday

16-Sep-85 10:39

RESEAT FOR SELECTED VALID ADDRESSES IN DIAGNOSTIC FREE SPACE AND ABOVE 32K
GIN

END

4485

4486

Get a valid modulo-4 test address
Do a GET STATUS command from the test address

END

4487

025776
025776
025776

104402
iWrite to TSSR to soft initialize
PC,SOFINIT
JSR

015774

8Ccs

026066

026070
026072

ERRDF

104455
000435
003652
012034

ERRNO,SFIERR, SFIMSG

TIRAP

C$8SUB

;00 SOFT INIT OF CONTROLLER

:BR IF SOFT INIT = OK

: SAVE CONTENTS OF TSSR

;DEVICE FATAL ERROR DURING INIT
1RAP

.WORD
.WORD
.WORD

CSEROF

301
SFIERR
SFIMSG

ig? a WRITE CHARACTERISTICS to setup a message buffer

026020
026020
026024

026030
026034
026040
026044
026060
026062
026064
026064
026064

154

NEXT
. ERRNO
MOV
RO,R1

010001

026016

1 /77777777777 BE?%NISUBTEST /777777777

BGNSUB

004737
103405

4524
4325
4526
4527
4528

SEQ 0112

SUBTEST 1: GET STATUS SELECTED LOCATIONS

4482
4483
4484

4512
4513
4514
4515
4316
4317
4518
4319
4520
4521

Page 81-1

004737

MOV

027610
031170
003134
000000
016336

#T12PACKET R4

JSR
CLR
MOV
JSR

PC.T12SWRT
KTENABLE
R4,TSOB(RS)
PC,CHKTSSR

8cs
MOV

204
RO,R1

ERRDOF

ERRNO,T12WRTSSR,PKTSSR

FORCERROR

103405

010001

17%;

104455

17¢

NEXT.ERRNO

$+GET

_THE

AODRESS OF COMMAND PACKET

;RESTORE PACKET TO STARTING VALUES
;sTURN OFF KT-11
:SET _THE PACKET ADDRESS
;WAIT FOR SSR TO SET

:BR IF SSR SET IN CHKTSSR
;SAVE CONTENTS OF TSSR
;DEVICE FATAL SSR FAILED TO SET
TRAP
.WORD

000456
030122
012046

.WORD
.WORD

CS$ERDF
302

T12WRTSSR
PKTSSR

;Verify a Get Stetus can be fetched from each address

026074
026100
026104
026110
026110
026114
026120
026124
026126
026132
026136
026144

005037
005037
012702

002222
027660
027664

005037

003134

;Get a valid modulo-4 test address
:00 a GET STATUS command from the test address

20%:

MOV
T121LO0O0P:
CLR
MOV
CLR
TST
BEQ

027660

177776
177774

000001
030666

CLR
CLR

003134

MOV
B8IC

25%:

MOV

JSR

FATFLG
T12KT

;CLEAR FATAL ERROR FLAG
:TEST ABOVE 28K SWITCH

KTENABLE
{R2)+,R1
RO
T12KT
254

s TURN OFF ABOVE 28K TEST FLAG
;:GET TEST PATTERN ADDRESS
+ASSUME NO TEST ABOVE 28K
:TEST ABOVE 28K THIS TIME?
18R _IF NO

21 ,KTENABLE

;TURN ON ABOVE 28K

0T12BLK,R2

-2(R2),R0O
@tC<A1716>,R0O

PC,T12CONVERT

;POINT

TO TEST PATTERN TABLE

;GET _TEST PATTERN AGAIN
sSAVE 18 BIT ADDRESS ONLY

TEST FLAG

;CONVERT TEST PATTERN TO TEST ADORESS

TSVS

- HARDWARE TESTS

MACRO Y05.02

Monday

16-Sep-85

10:39

Page 81-2

SEQ 0113

SUBTEST 1: GET STATUS SELECTED LOCATIONS
026150

103034

010465
004737

8CC
MOV

027654
027652
031236
177774
017274

016336

R4, TSDB(RS)

1SET THE PACKET ADDRESS TO EXECUTE

8Cs
324%:

000457
030046
012064

40¢:

104406

65%:

030016

027660

704%:

003132

027664

026110
017274

80$:

;BR IF SSR SET IN CHKTSSR

ERRDF

ERRNO, T12GETSSR,.PKTGETS

s SAVE CONTENTS OF TSSR

CKLOOP
FORCEXIT

BHIS
JMP

TST

;DEVICE FATAL SSR FAILED TO SET

sLOOP ON ERROR,
804

TRAP
.MORD
.WORD
.WORD
IF FLAG SET
TRAP

R2,0T12TBE

sDONE ALL 1STBLK TEST PATTERNS?

T12KT

:OONE ABOVE 28K TESTING T00?

704
T121LOOP

804
KTFLG

:BR IF YES
s ANY MEMORY ABOVE 28K ON SYSTEM?

MOV

01, T12KT

:SET SWITCH

JMP
JSR

ENDSUB

80¢

CSERDF
303
T12GETSSR
PKTGETS
cscLP]

:BR IF YES
;00 ANOTHER MODULO- 4 ADDRESS

8GT
18T

TST

100

(0] ]

sWAIT FOR SSR TO SET

324

NEXT .ERRNO

MOV

002222
017202

PC,CHKTSSR
RO R1

B8EQ

027660

sTURN OFF KT-11

MOV

CcHP

026110

000001

PC.KTOFF

FORCERROR

104455

026332
026336

HOV

JSR

000000

103405
010001

020227
103002
000137
005737

8IC
8IS

T12HIADD,R3
PC,T12SETGET
0tC<A1716>,R3
R3,.R4

:BR IF INVALID PACKET ADDRESS
sCOPY CURRENT PACKET LOW ADDRESS
;COPY CURRENT PACKET HIGH ADDRESS
s SETUP CURRENT PACKET TO GET STATUS
s+SAVE ADDRESS BITS 17+16
;SETUP 18 BIT PACKET ADORESS

MOV
JSR

6S4
T12L0ADD,R4

:BR IF NO

0T12B8LK,R2
T121L00P
PC.KTOFF

sRESET TEST PATTERN TABLE
;00 ABOVE 28K TESTING
;TURN OFF KT11

s MNANNNANNNANNNN END SUBTEST NNANNNANNNLWWL
L10043.

FATFLG

BEQ
JSR

1004
PC,CKDROP

.SBTTL

TEST 3:

SUBTEST 2:

;sANY FATAL ERRORS ?

TRAP

CS$ESUB

:BRANCH IF NOT
;TRY TO DROP THE UNIT

MESSAGE PACKETS TO SELECTED LOCATIONS

; TEST 3: SUBTEST 2:
SUBTEST DESCRIPTION:
This subtest verifies the controller can deposit message packets
to all available memory locations.
Write Cheracteristics commands are executed with -cosogc

buffer addresses set to various addresses
memory locetion.
The verious addresses asre determined by

through the address bits.

in each available

floating a

then a 0

TEST STEPS:

—

TSVS

- HARDWARE TESTS

TEST 3:

SUBTEST 2:

MACRO Y05.02

Monday

16-Sep-85

10:39

Page 81-3

SEQ 0114

MESSAGE PACKETS TO SELECTED LOCATIONS
BEGIN
Write to TSSR to soft

initialize

Do & WRITE CHARACTERISTICS to setup a message buffer to compeare

4579
4380
4581
4582

RESES}NFOR SELECTED ADDRESSES IN DIAGNOSTIC FREE SPACE AND ABOVE 32K

B¢

4583
4584
4585
4386
4587
4588
4589
4390
4391
4392
4593

Get & valid modulo-4 test address
Restore

the test message buffer to background pattern

END

S+

END

Set the
packet mess
buffer to the TEST ADDRESS
Do & WRITE CHARACTERISTICS

BGNSUB

$//7/7/17/7/7/7777 BE(T;§N25LBTEST /1777777777

104402

004737

103405

015774

;Write

tSSTSSR

8CS

to soft initialize
PC,SOFINIT

154

NEXT.ERRNO
MOV
RO,R1

010001

ERRDF

104455
000460
003652
012034

ERRNO,SFIERR, SFIMSG

+00 SOFT

TRAP

C48SUB

INIT OF CONTROLLER

;BR IF SOFT INIT = OK

1 SAVE CONTENTS OF TSSR
;DEVICE FATAL ERROR DURING INIT
TRAP
.W(RD
.WORD
.W(RD

CSERDF
304

SFIERR
SFIMSG

;D0 a WRITE CHARACTERISTICS to setup a message buffer to compare

027610
031170
017274
000000
016336

15¢:

MOV

OT12PACKET R4

;GET

THE ADORESS OF COMMAND PACKET

R4 ,TSDB(RS)

1SET

THE PACKET ADDRESS

JSR
JSR

PC,T12SWRT
PC.KTOFF

JSR

PC,CHKTSSR

MOV

FORCERROR

8Cs

17%¢:

204

17¢

MOV

RO,R1

ERRDF

ERRNO, T12WRTSSR,PKTSSR

NEXT
. ERRNO

:SET PACKET TO WRITE CHARACTERISTICS
sTURN OFF KT-11
:WAIT FOR SSR TO SET

;B8R IF SSR SET IN CHKTSSR
;sSAVE CONTENTS OF

TSSR

;DEVICE FATAL SSR FAILED TO SET
Tssso

.MORD
.WORD

;:Get @ valid modulo-4 test address
;:Set the
packet messea
buffer to the test address
005037
012703

012301
010100

002222
027664

177774
000003

;00 a WRITE CHARACTER STICS

20%:

CLR

MOV
T122L00P:
MOV
MOV
8IC

8IC

ATFLG

0T128LK R3
(RS)o R1
R1,RO
0177774,RO

#3,R1

;CLEAR FATAL ERROR FLAG
;POINT

TO TEST PATTERN TABLE

:GET TEST PATTERN ADDRESS
;:GET ADDRESS ALL ~18 BITS”
;LEAVE ONLY A17 AND Al6

:GET RID OF Al17 AND Al6

CCERDF
305
T12WRTSSR
PKTSSR

TSVS

- HARDWARE TESTS

TEST 3:

SUBTEST 2:

4626
4627

MACRO Y05.02

Mondey

16-Sep-85

Pege 81-4

SEQ 0115

MESSAGE PACKETS TO SELECTED LOCATIONS

004737

030666

000137
012704
004737
013737
013737
004737
010465
004737

026564
027610
031170
027654
027652
017274
000000
016336

103402

25%:
027620
027622

000462
030122
C12046

020327
103002
000137
004737
104403

005737

001402
004737

1SET _THE PACKET ADDRESS TO EXECUTE
1WAIT FOR SSR TO SET

8CS
MOV

SO¢
RO,R1

1BR IF SSR SET IN CHKTSSR
: SAVE CONTENTS OF TSSR

ERRDF

ERRANOD, T12WRTSSR,PKTSSR

FORCEXIT

030016

cMP
8HIS
JMP
JSR

160¢:

ENOSUB

002222
017202

1504
OT12PACKET
R4
PC.T12SuRTY
T12LOADD, T12DATA
T12HIADD,T12DATA+2
PC.KTOFF
R4, TSDB(RS)
PC,CHKTSSR

i TURN OFF KT-11

324

160¢

.SBTTL

TEST

TRAP

CsCLP1

;TURN OFF KT11

S NNANNAANNNANAYN END SUBTEST NN

;ANY FATAL ERRORS

TRAP

C$ESUB

:BRANCH IF NOT
s TRY TO DROP THE UNIT

1804
PC,CKDROP

CSERODF
306
T12WRTSSR
PKTSSR

IF FLAG SET

L10044:

FATFLG

TRAP
. WORD
.WORD
.WORD

;DONE ALL TST128LK TEST PATTER!
57
:BR IF YES
:00 ANOTHER MODULO- 4 ADDRESS

R3,#T127TBE
1604
7122L00P
PC.KTOFF

TST

BEQ
JSR

1803

;:DEVICE FATAL SSR FAILED TO SET

;LOOP ON ERROR,

CKLOOP

150¢:

026444
017274

JHP
MOV
JSR
MOV
MOV
JSR
MOV
JSR

254

NEXT
. ERRNO

S04 :

104406

PC, T12CONVERT

FORCERROR

32¢%:

104455

;CONVERT TEST PATTERN TO TEST ADDRESS
;B8R IF VALID MESSAGE BUFFER ADORESS
tGET ANOTHER TEST PATTERN TO TRY
:SET THE COMMAND PACKET ADORESS
iSETUP T12PACKET TO WRITE CHAR.
:SETUP LOW ORDER MESSAGE BUFFER ADD.
:SETUP HIGH ORDER MESSAGE BUFFER ADD.

JSR

8CSs

103405
010001

026614
026620
026622
026626

10:39

SUBTEST 3:

CHARACTERISTIC DATA SELECTED LOCATIONS

: TEST 3: SUBTEST 3:
: SUBTEST DESCRIPTION:
*e

This subtest verifies the controller can fetch a
Write Characteristics dete block from all available

3
H

memory locstiors.
Write Charecteristics commands are executed with
cheracteristic date blocks at verious memory addresses.

H
:

The

:
:

H
:
:
H
:

verious memory

sddresses are determined by

e 1 then a 0 through the eddress bits.
TEST

floating

STEPS:

BEGIN
Write to TSSR to soft

initislize

REPEAT FOR SELECTED VALID ADDRESSES IN DIAGNOSTIC FREE SPACE AND ABOVE 32K

TSVS

- HARDWARE TESTS

TEST 3:

SUBTEST 3:

MACRO Y05.02

Mondey

16-Sep-85 10:39

Page 81-5

SEQ 0116

CHARACTERISTIC OATA SELECIED LOCATIONS
BEGIN

4676
4677

Get @ valid test address

Set the test packet characteristics dats pointer to the

4678
4679
4680
4681
4682
4683
4604
4685
46086

test

eddress.

Store oxgoctod cheracteristic dete

END

Do & WRITE CHARACTERISTIC commend

in test address block

s /77777777777 BE?%NSSWYEST 177777777/

BGNSUB

4687
4688
4689
4690
4691
4692
4693
4694

iWrite t3
TSSR to soft initialize
PC,SOFINIT

015774

BCS

20¢

ERROF

ERRNO, SFIERR, SFIMSG

NEXT .ERRNO
MOV
RO,.R1

IRAP

;00 SOFT IHIT OF CONTROLLER

18R IF SOFY INIT = OK

1 SAVE CONTENTS OF TSSR

s1DEVICE FATAL ERROR DURI#EAENIT
.WORD
.WORD
.WORD

012703

002222
027660
027664

005037

003134

i1Get o velid toongddrooo

204 :

CiLR
CLR
MOV
T123L00P:
CLR
MOV
MOV

BIC

177774
000003
027660
177776
177774

000001
030666

026736

027040

026742
026746
026732
026760
026766

027610

026772
026776
027002
027006
027022
027024

031170
027654
027632
031300
017274
000000
016336

81C

1ST

BEQ
"oV

003134

81IC
254 :

MOV
JSR

8CSs

TFLG
Ti2KT
#T128LK,R3

;CLEAR FATAL ERROR FLAG
;TEST ABOVE 28K SWITCH
sPOINT TO TEST PATTERN TABLE

KTENABLE
(R3)+,R1
R1,RO

1 TURN OFF ABOVE 28K TEST FLAG
1GET TEST PATTERN ADDRESS
sGET ADDRESS ALL ~18 BITS”~

o3,R1

31GET RID OF AL¥7 AND Al6

€177774,R0
T12KT

000002

CSEROF
307
SFIERR
SFIMSG

1LEAVE ONLY A17 AND A16

;TEST ABOVE 28K THIS TIME?

254
-2(R3),R0

1BR IF NO
sGET TEST PATTERN AGAIN

#1 ,KTENABLE
PC, T12CONVERT

;TURN ON ABOVE 28K TEST FLAG
1CONVERT TEST PATTERN TO TEST ADDRESS

#tC<A1716>,R0

30¢

1SAVE 18 BIT ADORESS ONLY

:1BR IF VALID TEST ADORESS

JMP

604

:GET NEXT TEST PATTERN

MOV
JSR

#T12PACKET ,R4
PC,T12SWRT

T THE ADORESS OF COMMAND PACKET
zRESTORE PACKET TO STARTING VALUES

MoV
JSR

Tl2HIADO PKHI(RS)
PC, T12CHAR

;STORE CHAR. DATA PTR MIGHM ADDRESS
1STORE EXPECTED DATA IN DATA BLOCK

JSR
MOV

PC.KTOFF
R4, TSDB(RS)

;Set the test packet characteristics dntn

304:

C$85SUB

MOV

T12L 0ADO , PKLOW(R4 )

100 @ WRITE CHARACTERISTIC command
JSR
PC.CHKTSSR
FORCERROR
324
BCS
404
MOV
RO,R1

-ntor to the teet eddrese

1STORE CHAR. DATA PTR LOW ADDRESS

1TURN OFF KT-31
1SET THE PACKET ADORESS TO EXECUTE
sWAIT FOR SSR TO SET

:BR IF SSR SET IN CHXTSSR
:SAVE CONTENTS OF TSSR

TSVS

- HARDWARE TESTS

TEST 3:

SUBTEST 3:

4727 027026
4728 027026

027026
027030

027032
027034
4729 027036
027036
4730 027040
4731 027040

4732
4733
4734
4733
4736
4737
4738
4739
4740
4741
4742

027044
027046
027052
027056
027060
027064
027066
027074
027100
027104
027110
027110
027110
4743 027112
4744 027116
4743 027120

:;:g 027124

MACRO Y05.02

Mondey

16-Sep-85S 10:39

4750
:;g‘;’

4754

4733

47356
4787

4738

104435
000464

030122
012046

404:

104406
020327
103002
000137
003737

003012
005737
001407
012737
012703

CO0137
004737
104403
005737
001402
004737

NEXT
. ERRNO
ERRDF
ERRNO,T12WRTSSR,PKTSSR

32¢:

CKLOOP

604
:

030016
026664
027660

crp
BMIS
JHP
187
8GY
TST
BEQ
MOV
MOV
JP
JSR
ENDSUB

654 :

003132

000001
027664
026664
017274

027660

708 :

002222
017202

758 :

4766

‘767

4768

4769
4770

47171
an

4717

:;;g
4776

.MORD
.WORD
IF FLAG SET
TRAP

.SBTTL

TEST

CsCcLP]

;OONE ALL TSTBLK TEST PATTERNS?
sOONE ABOVE 28K TESTING T00?
:BR IF YES
s ANY MEMORY ABOVE 28X ON SYSTEM?
s8R IF NO
LFT SHITCH
1RESEY TEST PATTERN TABLE
100 ABOVE 28X TESTING
sTURN OFF KT11
s NAANANANAANANANANY END SUBTEST

T123L00P
PC.KTOFF

FATFLG
754
PC.CKXDROP

T12WRTSSR
PKTSSR

18R IF YES
100 ANOTHER MOOWLO- 4 ADDRESS

704
KTFLG
70
1, T12KT
oT128LK,R3

ST
B8EQ
JSR

C4EROF
308

sANY FATAL ERRORS ?
1BRANCH IF NOT
sTRY TO OROP THE UNIT

SUBTEST 4:

NANNNNANNNNL

TRAP

CSESUB

NXM TO SELECTED INVALID ADORESSES

SUBTEST DESCRIPTION:

This subtest verifies the NXM error bit

rogiote-

in the TSSR

is set when attempting to fetch dete (e cherecteristic

deta block) from selected nonexietent locet ~ne.

feiling to sssert
an eddress line.

4768

RS, #T12TBE
654
T7123L00F
T12KY

TRAP
.WORD

;s TEST 3: SUBTEST 4:

‘761

4764

SSR FAILED TO SET

:LOOP ON ERROR,

joe

:;g

;DEVICE FATAL

L10045;

473y

4760

SEQ 0117

CHARACTERISTIC DATA SELECTED LOCATIONS

:;:g

4781

Page 81-6

If NXM faile to set

Addresses tested

is likely

that en LS

i1 Bus drivar

include ell combinaetions of high-order adéress

bite (i.e bits 16-21).

8888080000008 0088000800000000800000080000800001000000000000008800000

CAUTION

The LSI BUS drivers for all svailkable edérese lines(16-21)

ere only checked when runnirg on ¢ 117238 systes with asre than

0880800000880 00800000800000000000000000000000000000000000000000000000

:
:

:
3

128K worde of semory!

TEST

STEPS:

SEGIN

Write to TSSR to esoft

initislize

Do & write charecteristic commend

Invert the extendes festures switch

REPEAT FOR SELECTED NON-EXISTENT MEMORY ADORESSES

- HARDWARE TESTS

027126
027132
027134
027142
027144
027150
027150
027154
027156

BEGIN

027172

027174
027176
027200

Pege 81-7

SEQ 0118

Get

invalid test

sddress

B0
s

test

address

®s

Do a WRITE CHARACTERISTIC command
ENO

END

If TSSR register NXM bit not set then print error message

1 /77777777777 BE?%NqSUBTEST

BGNSUB

104402

005737

003144

023727
103402
000137

002120

005737

003136

001406

001002
000137

027536

007777
S$:

027536

004737
103405

015774

104:

T23A
Ss
L$HIME 87777
St
NOEXTF

:126-APR-83
:26-APR-83
126-APR-83
:26-APR-83

TST
BNE
JMP

NXMFLG
104
NOEXTF

:+GOT ENOUGH MEMORY?
+IF SET STAY
;:LEAVE IF NOT SET

JMP

TSSR

to soft

104455
000465
0036352

REV g
REV
REV 8
REV B

BR,
CHK
BR,
JMP

11¢:

PC.SOFINIT
118

;00 SOFT INIT OF CONTROLLER
:BR IF SOFT INIT = OK

ERROF

ERRNO, SFIERR, SFIMSG

:SAVE CONTENTS OF TSSR
;DEVICE FATAL ERROR DURING INIT

1034035

000466
030122
012046

104406

0T12PA CKET,R4

MOV

17%:

RO ,R1

NEXT.ERRNO
ERRNO, T12WRTSSR,PKTSSR
ERROF

CxLOOoP

TRAP
.WORD
.MORD
.WORD

CS$ERDF
309
SFIERR
SFIMSG

TRAP

CsCLP)

invert switch
;LOOP IF SELECTED

PC,T12 SWRT
KTENAB LE
MOV
R4,7S0 B(RS)
PC,CHK TSSR
JSR
FORCERROR
15%
17¢
8CS
JSR
CLR

010001

104455

CkLooP
MOV

027610
031170
003134
000000
016336

c485UB

IF NOT 23A
FOR > 256KB
IF < 256K8B
OVER 256KB

JSR
8Cs

012034

104406
012704
004737
005037
010463
004737

TRAP

initialize

NEXT.ERRNO
MOV
RO,R1

010001

/777777777

3126-APR-83 REV B - CHK FOR 23A CPU

TST
BEQ
cMP
BLO

;00 & WRITE CHARACTERISTIC command so to
027202
027202
027204
027210
027214
027220
027224
027230
027244
027246
027230
027250
027250
027252
027254
027256
4821 027260
027260

Set the test packet characteristics data pointer to the

;Write

027162
027166
027170
027170
027172

10:39

NXM TO SELECTED INVALID ADDRESSES

8¢

4777
4778
4779
4780
4781
4782
4783
4784
4785
4786
4787 027124
027124
027124

16-Sep-85

SUBTEST 4:

Monday

TEST 3:

MACRO Y05.02

TSVS

;GET THE ADDRESS OF COMMAND PACKET
;RESTORE PACKET TO STARTING VALUES
;TURN OFF XT-11
;SET _THE PACKET ADDRESS
;WAIT FOR

SSR

TO SET

:BR IF SSR SET IN CHKTSSR
:SAVE CONTENTS OF TSSR
:DEVICE FATAL

SSR FAILED TO SET

;:LOOP IF SELECTED

TRAP

CSEROF

.WORD
.MORD
.MORD

310
T12WRTSSR
PKTSSR

TRAP

CsCLP1

TSVS

TEST

HARDMWARE

TESTS

SUBTEST 4:

NXM

004737

MACRO
TO

SELECTED

027262

4835
4836
4837
4838

027306
027312
027316
027324

012704
004737
013764
013764

027610
031170
027654
027652

027332
027336
027342
027346
027362
027364
027366
027366
027366
027370
027372

004737
010465
004737

017274
000000
016250

4834

4839
4840

4841
4842

4843
4844

48435
4846

4847
4848

Mondey

INVALID

16-Sep-85

005037

002222

013737
013737

003142
003140

10:39

JSR

027652
027654

Page 81-8

SEQ 0119

ADDRESSES

020444

4822
4823
4824
4825
4826
4827
4828
4829
4830
4831
4832
4833

027266
027272
027272
027300
027306

Y05.02

1Get an

invalid test ac iress

20%:
254
:

CLR

MOV
MOV
T124L00P:

;sINVERT THE SWITCH

PC.INVERT

FATFLG

+CLEAR FATAL ERROR FLAG

NXMHI, T12HIADD
NXMLO, T12L0ADD

sSAVE TEST ADORESS HIGH
1 SAVE TEST ADORESS LOW

;Set the test packet characteristics deta pointer to the
i

027374

027376
027402
027402
027404

027414
027414
027416

027420

027420
027424
027440

027444
027446
027446
027454

027470

4863
4864 027472
027472
4865 027474
4866 027504

test

304

MoV
JSR

MOV
MOV

000002
000004

T12LQADD ,PKLOW(R4)
T12HIADO ,PKHI(R4)

JSR

PC.KTOFF

B8CS
MOV

328:

104455

002222

408 :

104406

404

RO.R1

NEXT
. ERRNO
ERRDF
ERRNO, T12WRTSSR,PKTSSR

INC
CxKLOOP

FATFLG

FORCERROR

ESCAPE

104410
000124

If TSSR

000002

032701
001012

004000

013737
013737

027654

027652

453

FORCER

002240
002236

S2:

104456
000470
030557

KT-11

;WAIT FOR

SSR

;B8R IF SSR SET IN CHXTSSR
;:SAVE CONTENTS OF TSSR
:DEVICE FATAL

SSR FAILED 10O SET

SuUB

,BY PASS
set

SUBTEST

TSSR(RS) R1

524

;GET

311
T12WRTSSR
PKTSSR

TRAP

CsCLP1

TRAP

. WORD

ERRHRD

;REPORT

ERRNO, T12NXM, K ADDSSR

;MEMORY TEST ADDRESS LOW
;MEMORY TEST ADDRESS MIGM
ADDRESS

AND

TS5SR

ERROR
TRAP

.WORD
. WORD
. WORD

604 :

104406
003144

;LOOP ON ERROR,

CKLOOP
FORCEXIT
TST
T23A

C3ESCAPE

L10046-.

TSSR CONTENTS

sNXM SET?
:BR IF YES

T12HIADOD ,ERRHI

CSEROF

. WORD
. WORD
. WORD

IF FATAL ERROR

then print error messege

012126

005737

TRAP

458 ,NOTSSR

8IT
ONXH R1
BNE
608
NEXY _ERRNO
MOV
T12LO0ADD ,ERRLO
MOV

TO SET

;SET FATAL ERROR FLAG
;:LOOP ON ERROR, IF FLAG SET

sTURN OFF

:SET THE PACKET ADORESS TO EXECUTE

MOV
R4, TSDB(RS)
JSR
PC.MWAITF
FORCERROR
324

103407

016501

:GET THE AODORESS OF COMMAND PACKET
sRESTORE PACKET TO STARTING VALUES
;STORE CHAR. DATA PTR LOW ADORESS
sSTORE CHAR. DATA PTR HIGH ADORESS

#T12PACKET
, R4
PC,T12SWRT

;00 @ WRITE CHARACTERISTIC command

010001

000467
030122
012046
005237

eddress.

IS IT A 11/723A?

IF FLAG SET

TRAP

CSERMRD

312
T12NXM
ADOSSR
CsCLP]

TSVS

- HARDWARE TESTS

TEST

3§

Mondey

16-Sep-85 10:39

Pege 81-9

SEQ 0120

SUBTEST 4: NXM TO SELECTED INVALID ADORESSES

4867 02751¢
4868 027512
4869 027516
4870
4871
4872
4873

001012

027652
000077
027652
027306

4874
487S
4876
4877

4878
4879
4880
4881
4882
4883
4884
4885
4886
4887

MACRO Y05.02

017274

104403

103002

027600
027602

654:

7S¢
904
:

NOEXTF:

017202
016456

C00137

025776

004737
005037

017274
003150

904

I
cMe
8HI
MOV
JMP

RO
RO, 077
908
RO, T12HIADD
T124L00P

JSR

PC.KTOFF

TS7T

FATFLG

;sANY FATAL ERRORS

JSR
JSR

PC.CXOROP
PC.TSTLOOP

;TRY

JMP

T12L00P

;LOOP UNTIL ITERATION COUNT DONE

JSR
CLR

PC.KTOFF
T38FLG

MOV

ENCSUB

002222

BEQ

100¢:
105¢:

8CC

EXIT

104432
001540

;YES WERE DONE
sGET CURRENT HIGH ADDRESS
sGET NEXT ADDRESS
1DONE A21-A167?
:BR IF YES

BNE

T12HIADD,.RO

:SETUP NEW HIGH ORDEHR ADDRESS
;00 ANOTHER NON-EXISTENT AODRESS
; TURN OFF KT11

S NANANANNANAAN END SUBTEST
L10046:

1008

105s

;BRANCH IF NOT

TRAP

CsESUB

TO DROP THE UNITY

;SHOULD WE DO ITERATIONS?
;B8R IF NO

; TURN OFF MEMORY MANAGEMENT

:CLEAR TEST FLAG

;ALL DONE T1HIS TEST

1S7

TRAP
.WORD

CS$EXIT
L10042-.

‘.

;sLOCAL STORAGE FOR THIS TEST
‘-

027610
027610
027612
027614
027616
027620
027620
027622
027624
027626

.%¢ _ +10>E177770
T12PACKET:
100004
.WORD
T12DATA
. WORD
0
.WORD
.WORD
8.

027610

100004

027620
000000
000010

T12DATA:

027632
000000

000016
000000

000000

. WORD
.WORD
.WORD
.WORD

T12BFR
]
14,
0.0

.BLKW

027632

T128FR:

027652
027654
027656
027660
027662

T12HIADD:
T12LOADD:
T12PAR6:
T12KT:

000000
000000

T1247TST:

.WORD
.WORD
.WORD
. WORD

.WORD

'YABLE OF ADORESSES
H
'-

027664

000001

T128LK:

.WORD

000001

; COMMAND PACKET FOR TESTY

;WRITE CHARACTERISTICS COMMAND,

WITH ACK

; ADDRESS OF CHARA(TERISTICS BLOCK
;STARTING VALUE OF BLOCK SIZE
s CHARACTERISTICS DATA BLOCK

;:LOW ADORESS OF MESSAGE BUFFER
;HIGH ORDER OF MESSAGE BUFFER
:LENGTH OF MESSAGE BUFFER
s{MESSAGE BUFFER
0
0
0
0

;hIGH ADDRESS

:LOW ADDRESS
; ARDDRESS IN PAR FORMATY
; TEST

ABOVE

28K

SWITCH

+ ADDRESS TEST BIT

TSVS

- HARDWARE TESTS

TEST 3:

MACRO

Y05.02

Mondey

16-Sep-8S

10:39

Pege 81-10

SEQ 0121

SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES
. WORD
.WORD

4922 027666

4923 027670
4924 027672
4925 027674
4926 027676
4927 027700
4928 027702
4929 027704
4930 027706
4931 027710

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

027712
027714
027716
027720
027722
027724
027726
027730
027732
027734
027736
027740
027742
027744
027746
027750
027752
027754
027756
027760
027762
027764
027766
027770
027772
027774
027776

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

T12TBE:

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

000002
000003
000005
000006
000007
000011
000012
000013
000021
000022
000023
000041
000042
000043
000101
000102
000103

010001
010002
010003
020001
020002
020003
040001
040002
040003
100001
100002

100003

177777

;LOCAL TEXT MESSAGES FOR TEST
;-

030020
030046
030122
030211
030307
030375
030466
030557

101

156
163
143
160
123

TST12I0:
T12GETSSR:
T12WRTSSR:
T12MSGBUF
:
T12BKGND:
T12NINT:
T120PR:
T12NXM:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCI2Z
.ASCI12
.ASCIZ
.ASCIZ
.ASCIZ

‘DMA Memory Addressing'’
‘Contents of TSSR Incorrect
‘Contents of TSSR Incorrect

After GET STATUS®
After WRITE CHARACTERISTICS'

‘Write

‘Message Buffer Contents Incorrect After WRITE CHARACTERISTICS'
‘Background Pattern Disturbed By WRITE CHARACTERISTICS'
‘Expected Interrupt Not Received On WRITE CHARACTERISTICS'
Characteristic

'TSSR NXM bit

data

ram does

not

match expected’

failed to set when non-existent memory address specifi

TSVS

- HARDWARE TESTS

TEST 3:

SUBTEST 4:

MACRO Y05.02

Monday

16-Sep-85

10:39

Page 81-11

SEQ 0122

NXM TO SELECTED INVALID ADDRESSES

.EVEN

4979
4980
4981
4982
4983
4984
4985
4986
4987
4988
4989
4990
4991
4992
4993
4994

3ROUTINE TO CONVERT
A TEST PATTERN TO
A VALID ADDRESS IN DIAGNOSTIC FREE SPACE
DIAGNOSTIC FREE SPACE IS BETWEEN THE END OF THE DIAGNOSTIC AND THE
BEGINNING OF THE SUPERVISOR. THIS IS ALWAYS BELOW 24K,
IF MEMORY ABOVE 28K SPECIFIED (VIA R1) THEN PAR 6 IS SET

;

:
i

TO THE RELOCATION BASE.

:
]

INPUTS:

RO
R1

i
;
:
'

4995

4996

;

4997
4998
4999

;

HIGH ORDER ADDRESS BITS
LOW ORDER ADDRESS BITS

OUPTUTS:
T12PAR6 = ADDRESS BIASED TO PAR6 IF >28K UNDER TEST
T12HIADD = HIGH ORDER ADORESS IN NON PAR6 FORMAT
T12LOADD = LOW ORDER ADDRESS IN NON PAR6 FORMAT

C BIT = 1 IF GOOD ADDRESS RETURNED
C BIT

= O IF TEST PATTERN DID NOT YIE.D A VALID ADDRESS

i -

T1 2CONVERT:

SAVREG
CLR
CLR
CLR
81C

027654
027652
027656
170000

25%:

003134
003132
017256
027652

017316

PC,KTOFF
FREE ,R2
916. ,R2
R1,R2

s SHUTOFF MEMORY MANAGEMENT
;:GET FIRST FREE ADDRESS
:IN CASE TEST PATTERN=0
+ADD _IN TEST PATTERN

MOV
SUB

FREEHI,R3
016. ,R3

1GET LAST FREE ADDRESS
:SAVE AT LEAST 8 WORDS (IN CASE MESSAGE BUFFER)

MOV
CHP

R2,T12PAR6
.

1SAVE IT IN PAR6 BIASED T00
;IS THIS ADDRESS ABOVE FREE SPACE?

cMP
BHIS

R2,FREE
504

+IS IT IN FREE SPACE?
:BR IF YES- ITS GOOD

B8R

904

B8IC

8MHI
TST
BNE

003134

031006
031012
031014
031020
031022
031026
031030
031034
031036

JSR
MOV
ADD
ADD

MOV

003124

000020

1SAVE R1-RS UNTIL NEXT RETURN
sCLEAR LOW ADDRESS
;:CLEAR MIGH ADDRESS
:CLEAR PAR6 BIASED ADDRESS
:FORCE TO LOWER 12 BITS OF ADDRESS

MOV

017274
003124
000020

000003
003130
000020
027654
027656

T12L0ADD
T12HIADD
T12PAR6
1C<7777>,R1

35¢:
S08

suB
BR

RO,RS5

23,R2

R2, T12LOADD
35¢

KTENABLE
S04

016. .R2
25¢

TST

KTENABLE

TST

KTFLG

MOV

RS5.RO

BEQ
8EQ
JSR

MOV
MOV

JSR

$:SAVE HIGH ORDER ADODRESS BITS

:MAKE IT MOOULO-4

1SAVE POSSIBLE LOW ADORESS

iBR IF YES

;:TESTING ABOVE 28K?
i8R IF YES

;B8R _IF NOT IN FREE SPACE

sFORCE FIT THE TEST PATTERN
s+ TRY THIS TEST PATTERN ADDRESS
: TESTING ABOVE 28K?

1004

;B8R IF NO

904
PC.KTON

:BR_IF NO
s TURN ON MEMORY MANAGEMENT

RO, T12HIADD
R2.R1

s SAVE POSSIBLE HIGH ADDRESS
+GET COMPUTED LOW ORDER ADDRESS

PC,SETMAP

: ANY MEMORY

ABOVE

28K?

$1GET _HIGH ORDER ADORESS

:RETURN PAR6 BIASED ADDRESS IN RO

TSVS

- HARDWARE TESTS

TEST 3:
5036
S037
5038
5039
5040
SO041

SUBTEST 4:
031042
031046
031050
031052
031054
031056

MACRO Y05.02

Monday

16-Sep-85

10:39

Page 81-12

SEQ 0123

NXM TO SELECTED INVALID ADDRESSES

010037
103403

MOV

027656

8CS
CLC
B8R
SEC

904
:

000241
000401
000261

1004
:

000207

RTS

1054

RO, T12PAR6

105%

1054

;:COPY PAR6 BIASED ADDRESS
1BR_IF VALID ADDRESS
;CLR C BIT FOR FAILURE
3

:SET SUCCESS

:RETURN

5043
[

sROUTINE TO READ THE FIRST 2 BYTES FROM RAM
1MEMORY AND COMPARE THIS DATA TO A COMMAND PACKET.
3

s INPUT;
:
'
$

R4
R5

ADDRESS OF THE COMMAND PACKET
FIRST DEVICE UNIBUS ADDRESS

CARRY

SET
CLR

sOUTPUT
i
;
H

- RAM MATCHES PACKET
- RAM DOES NOT MATCH PACKET

{IMPLICIT OUTPUT:
:
i
i

i SIDE
H
:

THE TABLE RAMDATA IS FILLED WITH THE
OATA HELD IN RAM,
RAMSIZ
SET TO 2 FCR PRAMPKT ROUTINE

EFFECTS:
THE SUBSYSTEM IS LEFT

IN MAINTENANCE MODE

:
‘-

5070
S071
5072
5073
5074
5075
5076
5077
S078
5079
5080
5081
5082
5083
5084
5085
5086
5087
5088
5089
5090
5091

031060
031060
031064
031070
031074
031076
031102
031110
031114
031120
031124
031130
031132
031134
031136
031140
031144
031146
031150
031152
031154
031156

5092 031160

012701

T 12CKRAM:
;
SAVREG
MOV

002242
000201

016336
000000
016336
000000
016336
000000

000000

000002

PC,CHKTSSR

10¢:

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

(R1)+,(R4).
204

20¢:

000203
001402
000241
000401
000261
012737

#RAMDATA
,R1
ggHPKTBEG.RZ

002302

304$:
S04

R3
R2
R2, 0RMPKTBEG+2
104
R3
304

504
#2 .RAMSIZ

;SAVE THE GENERAL REGISTERS
;ADDRESS TO SAVE THE RAM DATA
:BYTE ADDRESS OF FIRST RAM DATA
:CLEAR _THE ERROR FLAG
;WAIT FOR SSR
$SET _MAINTENANCE MODE
:WAIT FOR SSR TO SETY
;SELECT NEXT RAM ADDRESS
sWAIT FOR

SSR

TO SET

;READ THE RAM DATA
;COMPARE TO EXPECTED
;BRANCH IF OK
+SET_ERROR FLAG
s ADDRESS OF NEXT RAM LOCATION
;:DONE 2 BYTES?
:+BR IF NO

:WAS AN ERROR FOUND

1BRANCH IF NOT
;:CLEAR CARRY TO SHOW ERROR
sAND EXIT
:SHOW GOOO COMPARE
s SETUP RAMSIZ

TSVS

- HARDWARE TESTS

TEST 3:
5093
5094
5095
5096
5097
5098
5099
5100
3101
5102
Si03
5104
3105
5106
5107
5108
5109

SUBTEST 4:
031166

MACRO Y05.02

Monday

16-Sep-85 10:39

Page 81-13

SEQ 0124

NXM TO SELECTED INVALID ADDRESSES

RTS

000207

:RETURN

:ROUTINE TO SETUP PACKET TO WRITE CHARACTERISTICS

031170
031170
031174
031200
031204
031210
031212
031216
031222
031224
5110 031230
031232
031234

T12SWRT:

012701
012721
012721
005021
012721
012721
005021
012721
005021

027610
100004
027620

S AVREG
MOV
MOV
MOV

CLR
MOV
MOV
CLR
MOV
CLR
CLR
RTS

000010
027632
000016

C05011

000207

#T12PACKET,R1
#100004,(R1)+»
0T12DATA,(R1)+.

98.,(R1)e

:SAVE THE REGISTERS

1START OF THE PACKET
;WRITE CHARACTERISTICS WITH ACK
;ADDRESS OF CHAR DATA BLOCK
;EXTENDED ADDRESS
:SIZE OF DATA BLOCK IN BYTES
1 ADDRESS OF MESSAGE BUFFER
:LENGTH OF MESSAGE BUFFER
:RETURN

R3
R4
NOTE:

HIGH ORDER PACKET

ADORESS

LOW ORDER PACKET ADDRESS
R3 IS IGNORED IF KTENABLE FLAG CLEAR

:ROUTINE TO SETUP A GET STATUS COMMAND PACKET AT CURRENT PACKET ADDRESS

010401

031276

005737
001404
010300
004737
010001
012700
052700
010021
005021
000207

003134

T12SETGET:
SAVREG
MOV
TST
BEQ
MOV

JSR

017316

000017
100000

104:

MOV

MOV
8IS

MOV

CLR

RTS

$1SAVE THE REGISTERS
:GET LOW ORDER ADDRESS
: TESTING ABOVE 28K?
104
:BR_IF NO
R3,RO
:GET HIGH ORDER ADDRESS
PC,SETMAP
sRETURN ADDRESS BIASED TO PAR6 IN RO
RO,R1
:GET ADDRESS
oP .GETSTATUS,RO 1GET STATUS COMMAND CODE NO IE
oP .ACK,RO
1SET ACK
RO,(R1).
:STORE GET STATUS IN PACKET
(R1)«
$CLEAR UNUSED WORD
PC
sRETURN
R4,R1
KTENABLE

3¢

:ROUTINE TO SETUP A CHARACTERISTIC DATA BLOCK AT A TEST ADDRESS
031300
031300
031304
031310
031314
031320
031322

T12CHAR:
012700
013701
005737
001402
013701

027620
027654
003134
027656

S AVREG
MOV
MOV
TSY
8€EQ

MOV

#T120ATA,RO
T12L0ADD,R1
KTENABLE
104
T12PAR6,R1

:SAVE R1-R5 UNTIL NEXT RETURN
;:GET T12PACKET OATA POINTER
;ASSUME NOT ABOVE 28K
s TESTING ABOVE 28K?
;B8R _IF NO
:SET TEST ADDRESS ABOVE 28K

TSVS - HARDWARE TESTS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 81-14

SEQ 0125

TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADORESSES

S150 031326

012021

g{gz 031340

000207

5151
5152
S153
5154

031330
031332
031334
031336

S157 031342
031342

031342

012021
012021
012021
012021

10%:

MOV

(RO)+,(R1).

1STORE DATA WORD 1

RTS

:RETURN

MOV
MOV
MOV
MOV

ENDTST

104401

(RO)+,(R1)~
(RO)+,(R1)e
(RO)+,(R1)+
(RO)+,(R1)e

1STORE
1STORE
1STORE
i STORE

DATA
DATA
DATA
DATA

WORD
WORD
WORD
WORD

2
3
4
S

L10042:

TRAP

CS$ETST

TSVS

- HARDWARE TESTS

TEST 3:

SUBTEST 4:

MACRO Y05.02

Monday

16-Sep-85

10:39

Page 82

SEQ 0126

NXM TO SELECTED INVALID ADDRESSES

5159
5160
S161
3162
5163
5164

.SBTTL

TEST

RAM EXERCISER TEST

IR4

:THIS TEST USES THE READ AND WRITE RAM (BOTH SINGLE AND 256

:LOCATIONS) SELECT CODES OF THE WRITE SUBSYSTEM MEMORY COMMAND
:TO EXERCISE THE CONTROLLER'S RAM MEMORY AND DMA LOGIC
BGNTST

031344
031344
031344
031350
031352
031356
031362
031366
031374

005737
001402
005237
012700
004737
C12737

002214
003400
034003
016510
000005

10¢:
002216

T15L00P:
:

s TEST 4,

BEQ
INC
MOV
JSR

MOV

SUBTEST

T4::
TSTCNT

104
SKIPT
#TST15ID,RO
PC,TSTSETUP
95,LO0PCNT

;CHECK FOR RUN MODE
;BR, IF NOT ONLY PROGRAM RUN
$:SET SKIP SW

;ASCII MESSAGE TO IDENTIFY TEST

;00 INITIAL TEST SETUP
;PERFORM S ITERATIONS

THIS SUBTEST WRITES THE ADDRESS (8 BITS) INTO THE

RAM MEMORY SINGLE WORD (8 BITS) MODE

031374
031374
031376
031376
031402
031404

031410
031412
031416
031422
031426
031432
031434
031436
031436

104402
012700
104441
005737
001402
000137
004737
004737
004737
10340S
010001

000000

003400
031674
034022
034074
015774

10¢:

104455

012704
004737
103405
010001

104456
005056
012034

TRAP

cs85uB

MOV
TRAP

#PRI0O,.RO
C$SPRI

TRAP
.WORD

CSEROF
401

.WORD

SFIMSG

SETPRI

@PRIOO

;:LOWER PRIORITY TO ALLOW INTERRUPTS

TST
8EQ
JMP
JSR
JSR
JSR
8CS
MOV
ERRDF

SKIPT
10¢
504
PC,T15REST
PC.T15RT2
PC,SOFINIT
20%
RO,R1
ERRNO, SFIERR, SF IMSG

:SHOULD WE SKIP THIS SUBTEST
;BR, IF NOW SKIP REQUIRED
;SKIP SUBTEST
1 SET COMMAND PACKET
;SET UP OTHER COMMAND PACKEY
;00 INITIALIZE ON CONTROLLER
:1BR IF INIT WAS OK
:CONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NOT OK

.WORD

003652
012034

031470

/177177777777 8E$£N15UBTEST 117777777777

BGNSUB

031374

032720
010662

:
208

MOV
JSR

8Cs

MOV

ERRHRD

OT1SPACKET,
R4
PC,WRTCHR
23
RO,R1
ERRNO, WRTMSG, SFIMSG

SFIERR

: SUBROUTINE NEEDS PACKET ADDRESS
: ISSUE WRITE CHARACTERISTICS

s8R, IF COMMAND ISSUED 0K
:SAVE CONTENTS OF TSSR

iWRITE CHARACTERISTISC FAILED

RAP
UORO

.WORD
.WORD

CSERHRD
402

WRTMSG
SFIMSG

TSVS

- HARDWARE TESTS

TEST

4&:

MACRO Y05.02

Monday

16-Sep-85 10:39

Page 82-1

031472

012703

000400
000001
000002

010337
012704
110337
0104635
004737
103407
010001

033432
033420
033434
000000
016336

112737
112737

033431
033430

23%:
25%:

104456
000623
033436
012046

30¢:

104406
005203

MOV
MOVB
MOve

9256, ,R3
#1,7158S1
92,T15850

;STARTING ADDRESS FOR RAM WRITE

MOV
MOV

R3,T15S2
#T15PK2,R4
R3,T15S3
R4,TSDB(RS)
PC,CHKTSSR
304
RO,R1
ERRNQO, T15SSR,PKTSSR

;sADDRESS FOR RAM
sWRITE SUBSYS MEM PACKET
:DATA FOR WRITE (ADDRESS)

s ISSUE _COMMAND
sWAIT FOR SSR

SuB

;DON’T CONTINUE IF ERROR ON WRITE

ESCAPE

104410
C00122

R3
R3,210000

000000

25%
R2
R3
P5.T15S3

404
:

Rr3,715S82

21,715850
R1,TSDB(RS)
PC,CHKTSSR
434

033430

016336

RO,R1

ERRNO, T15SSR,PKTSSR

5249

T158FR+20,.R1
R3,R2
R1,.R2
454
ERRNO, T1SAM4 ,EXPBREC

032762

3231
3252
5256

031672
S261 031674

000377
50%:

IF NO
ERROR

T
;ERROR, SAVE
;TSSR NOT CORRECT AFTER WRITE SUB MEM
TRAP
.WORD
.WORD
WORD

8
CkLOOP

R3
R3, 0255.
40¢

CSERHRD
403
T135SSR
~ PKTSSR

TRAP
.WORD

CSESCAPE
L10050-.

TRAP

CsCLPL

sNEXT ADDRESS
;END OF RAM MEMORY CHECK
;LOOP TILL ALL RAM WRITTEN
;CLEAR OUT R2 HIGH BITS
:SET BACK TO 7777
:GET DATA PATTERN BACK IN SHAPE
; ADDRESS FOR RAM READ

;READ RAM COMMAND

:SEND OUT PACKET ADDRESS TO CONTR.
;WAIT FOR READY,

NON-AMBIGUOUS

:BR, IF NO PROBLEM
;SAVE TSSR
1 TSSR NOT CORRECT

TRAP
.WORD
.WORD

CS$EROF
404
T15SSR

.WORD

PKTSSR

TRAP

csCLP1

TRAP
.WORD
.WORD
.WORD

CS$ERHRD
405
T15AM4
EXPBREC

TRAP

CsCLPL

;:GET RAM READ DATA
:SET UP FOR COMPARE
sCHECK WITH DATA WRITTEN
+BR IF OK, DATA IN = DATA OUT
:WRITTEN DATA NOT = TO READ

;SCOPE LOOP

458

5257

:BR,

:SCOPE LOOP

43%:

5248

:SIZE OF TRANSFER
tWRITE RAM “COMMAND*

; SCOPE LOOP

CckLOOP

010000

033434
033432
000001

5258
5259

SEQ 0127

RAM EXERCISER TEST

:DROP DATA COUNTER (PATTERN)
;AT BOTTOM YET
:BR, IF MORE TO CHECK
:SCOPE LOOP

TSVS

- HARDWARE TESTS

TEST

MACRO Y05.02

Monday

16-Sep-85

10:39

Page 82-2

SEQ 0128

RAM EXERCISER TEST

031674
5262 031676
031676
031676
031700
031700
031700

104406

TRAP
CsCLP1
S ANAAANANANNANNNN END SUBTEST NN
L10050:
" TRAP
CSESUB

ENOSUB

104403

8777777777777 BE$£N25U8TEST

BGNSUB

1//777/7777777

TRAP

104402

cs8suB

PK4

1 TEST 4,

SUBTEST 2
THIS SUBTEST WRITES RAM WITH ALL ZEROS
THEN WALKS AN ALL ONES WORD DOWN THROUGH MEMORY

031702
031706
031712
031716
031720
031722
031722
031724

034022
034074
015774

PC,T15REST
PC,T1SRT2
PC,SOFINIT

20¢

RO,R1

ERRNO, SFIERR, SFIMSG

.WORD
.WORD
.WORD

204
:

032720
010662

ERRNO ,WRTHSG, SFIMSG

:SUBROUTINE NEEDS PACKET ADORESS
1 ISSUE WRITE CHARACTERISTICS
18R, IF COMMAND ISSUED 0K
s SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC FAILED

#1,7T15851
0715PK2,R4

1SET SIZE OF TRANSFER 1 BYTE
$sSET NEW PACKET AODRESS

#T15PACKET
R4

PC,WRTCHR
254

RO,R1

000001
033420

033431

00000
033434
033432
000000
016336

033430

25¢:

#256. ,R3
#2,715850

30¢:

RO,R1

ERRNO, T15SSR,PKTSSR

33%:
5309

tRESTORE PACKET FOR WRITE CHARA
iRESTORE PACKET FOR WRT SUB SYS MEM
100 INITIALIZE ON CONTROLLER
1BR IF INIT WAS OK
:CONTENTS OF TSSR REGISTER
;FATAL ERROR TSSR WAS NO;Rgg

CxLooP

TRAP
. WOROD
.WORD
.WORD

CS$ERDF

406

SFIERR
SFIMSG

CSERMRD
407
WRTMSG
SFINSG

:STARTING ADORESS IN RAM

sWRITE RAM COMMAND
$+SET DATA TO 000
1ADDRESS TC PACKET DATA AREA
1SEND QUY PACKET ADDRESS
sWAIT FOR SSR
:BR, TF NO PROBLEM

s SAVE TSSR
;sTSSR NOT CORRECT

: SCOPE LOOP

C4ERHRD

TRAP
. WORD
. WORD
. WORD

408
T155Sk

TRAP

CsCLP}

PXTSSR

MACRO Y05.02

TSVS

- MARDWARE TESTS

TEST

4&: RAM EXERCISER TEST

Monday

010000
35¢:

00000
033432
000000
016336

033430

404
:

032762

MOV

JSR
BCS
MOV
ERRHRD

43%:

000001
000000
016336

032762

033430

RS
R3, #10000
304
R3
R2
#1.T158S0

R3.T1552
R4, TSDB(RS)
PC.CHKTSSR
414
RO,R1
ERRNO, T15SSR,PKTSSR

T158FR+20,R1
R1,R2
424
ERRNO, T1SAM3, EXPBREC

MOV
CP8
8EQ
ERRHRD

{NEXT ADORESS
;Euo OF RAM MEMORY CHECK

BACK TO 7777
.sei
1SET TO ALL ZEROS

MORE RAM T0 GO

READ RAM COMMAND

ADDRESS TO BE READ TO PACKET DATA
1SEND OUT PACKET ADDRESS
;WAIT FOR SSR TO SET

1BR, IF ALL IS WELL
;SAVE TSSR
;TSSR NOT CORRECT

#000377,.R2
#2,T158$0
€000377,T15S3

R4, TSDB(RS?

PC.CHKTSSR
a3}
RO,.R}
ERRNO, T15SSR,PKTSSR

T158FR+20.R1
R1,.R2
454
ERRNO, T15AM2,EXPBREC

.WORD
.WORD

CSERMRD
409
T135SSR
PKTSSR

TRAP

CsCLP1

HORD

410

TRAP

CsCLPL

.WORD
.WORD

1SET _ALL ONES WORD

C4ERHRD
T1SAM3
EXPBREC

{WRITE RAM CWM

tALL ONES PATTER

3PASS PACKET ADDRESS TO CONTR.
sWAIT FOR SSR
1BR, IF OK (NO ERROR)
;SAVE TSSR
s TSSR NOT CORRECT

1SCOPE LOOP
#1.T158S0
R4 . TSDB(RS)
PC .CHKTSSR
ast
RO,R1
ERRNO, T15SSR,PKTSSR

TRAP
.WORD

sPICK UP READ DATA
1B0TH _SHOWD BE 00000000 BINARY
;BR, IF DATA IS GOOD
: CHARACTER1STICS DATA NOT CORRECT

1SCOPE LOOPER

CKLOOP
MOVE
MOV
JSR
8CS
MOV
ERROF

SEQ@ 0129

1+SCOPE LOOP

CKLOOP
MOV
MOVE
MOV

033430
033434

Pege 82-3

CKLOOP
MOV
CP8
BEQ
ERKHRD

424

000377
000000
016336

INC
ce
BNE
DEC
CLR
MOVE

MOV
MOV
JSR
8CS
MOV
ERRHRD

414

000377

16-Sep-85 10:39

1SET UP FOR RAM READ
: ISSUE RAM READ
sWAIT FOR

SSR

TRAP
.WORD
.WORD
.MORD

CSERHRD
411
T1S5SSR
PKTSSR

RAP

cscLPl

TRAP
.WORD

CSERDF
412
T15SSR
PKTSSR

TO SET

s1BR, IF OK (NO ERROR)
1SAVE TSSR
s TSSR NOT CORRECT

.WORD
.MORD

tPICK UP REC’'D DATA
sCHECK WITH DATA WRITTEN
;B8R IF OK, DATA IN = DATA OUT
sWRITTEN DATA NOT = TO READ

TSVS

- MARDWARE TESTS

TEST

4&:

MACRO Y05.02

Monday 16-Sep-85 10:39

Pege 82-4

SEQ 0130

RAM EXERCISER TEST

104456
000635
033312
013502

459

104406

005303
020327
001271

CxLOOP
DEC
cHp
BNE

000377

1 SCOPE LOOP
R3
R3, #255.
404

ENDSUB

TRAP
.MORD
.HWORD
.WORD

CSERHRD
413
T15AM2
EXPBREC

TRAP

CsCLPL

1OROP RAM ADDRESS POINTER

sAT

18R,

START

YET

IF MORE RAM TO CHECK

SANMAANANANNANANN END

SUBTEST

L10051:

104403
8GNSUB

8 /77777777777

BE?INSSUUYEST

4.3:

104402
K 4

CSESUB
1177772777777

TRAP

cesssus

:TEST 4, SUBTEST 3
THIS SUBTEST WRITES RAM WITH ALL ONES
THEN WALKS AN ALL ZEROS WORD DOWN THROUGH MEMORY

1 CHECX RUN MODE

IF NO SKIP

.SKiP SUBTEST

10¢:

;RESTORE PACKET FOR MRITE CHARA

JRESTORE PACKET FOR WRT SUB SYS MEM
100 INITIALIZE ON CONTROLLER

015774

RO,

ERRNO,
SF IERR, SFIMNSG

;comms oF tssa uesxsteau
sFATAL ERROR TSSR WAS NOT

TRAP
.MORD
.MORD

032720
010662

JSR
8Cs
MoV
ERRHRO

OT1SPACKET
R4

1 SUSROUTINE NEEDS PACKET ADORESS

PC . URTCHR
25¢

aISSUE MRITE CHARACTERISTICS
18R, IF COMMAND ISSUED OX

ERRNOD , WRTHSG
, SF IMNSG

tMRITE CHARACTERISTISC rggkso

RO,R1

:SAVE CONTENTS OF

TSSR

000400
000002
000377
033432
000000
016336

033431
033430
033434

30¢:

ELITLLD

00000

033420

01,7158S1
oTiSPKI2 RS

02%6. R3

:SEY SIZE 10 1 BYTE
1SET NEW PACKET ADORESS
1STARTING ADORESS IN RAM

0377.718s3
RS, T15S2
R4 . TSDB(RS)

1SEND OUT PACKET ADDRESS

02, uéoso

PC.CHXTSSR

a1S

. WORO

SF INSG

1ADORESS TO PACKEY DATA AREA

IWAIT FOR SSR

CIEMIRD

. WORD

LWNCRD

sEESEERES

CSEROF
414
SFIERR
SFINMSG

.MORO

3391
3392
3393
33
33%

sOR IF INIT MWAS OX

WRTNSG

TSVS

- HARDWARE TESTS

TEST

MACRO Y05.02

Mondey

16-Sep-85

10:39

Page 82-5

SEQ 0131

RAM EXERCISER TEST

5409 032430
5410 032432
5414 032434
032434
032436
032440
032442
032444
032444

032446

8CS

103405

010001

MOV

ERRHRD

104456

000640
033436
012046

33s:

104406
005203
020327
001357
005303

ERRNO, T15SSR,PKTSSR

ERRHRD

43
:

000001

016336

033430

MORE RAM TO GO

;WAIT FOR

SSR TO SET

;BR, IF ALL IS WELL
s SAVE TSSR
:TSSR NOT CORRECT

TRAP

JSR
8cs

MOV

ERRHRD

417
T15SSR
PKTSSR

TRAP

CsCLP)

ERRNO, T15ATM3 ,EXPBREC

; CHARACTERISTICS DATA NOT CORRECT

9000377 ,R2
42,715850
9000377, T15S3
R4 ,TSDB(RS)
PC,CHKTSSR
434
RO,R1
ERRNO, T1SSSR,PKTSSR

;8R,

DATA

GOOD

TRAP
.WORD

#1,7158S0
R4 ,TSDB(RS)
PC,CHKTSSR

444

RO,R1
ERRNO, T15SSR,PKTSSR

.WORD
.WORD

;SET ALL ONES MWORD
:WRITE

RAM

CSERMRD
418
T15AM3
EXPBREC

COMMAND

;ALL ONES PATTERN
:PASS PACKET

ADORESS

;sWAIT FOR SSR
;8R, IF OK (NO ERROR)
:SAVE TSSR
: TSSR NOT CORRECT

:SCOPE LOOP

CxLOoP
MOvB
MOV

CSERHRD

.WORD
.WORD
.WORD

R1,R2

4213

000000

:BR,

;PICK UP READ DATA
:80TH SHOULD BE 11111111 BINARY

T158FR«20,R1

016336

CsCLPL

:END OF RAM MEMORY CHECK

: SCOPE LOOP

41s:

424
:

TRAP

+SET BACK 10 7777
$1SET TO ALL ONES
;READ RAM_COMMAND
:ADDRESS TO BE READ TO PACKET DATA
:SEND OUT PACKET ADDRESS

RO,R1

033430
033434

.WORD

C$ERHRD
416
T15SSR
PKTSSR

R3
#377,R2
#1,7158S0
R3,715S52

R4,TSDB(RS)
PC,CHKTSSR
414

032762

TRAP
.WORD
.WORD

sNEXT ADDRESS

ERRNO, T15SSR,PKTSSR

000377
000002
000377

1 SAVE TSSR
: TSSR NOT CORRECT

R3
R3,#10000

304

033430

;BR, IF NO PROBLEM

1 SCOPE LOOP

CKLoQP

010000

000377
000001
033432
000000
016336

334

RO,R1

;SET UP FOR RAM READ
; ISSUE RAM READ

;WAIT FOR SSR TO SET
;BR, IF OK (NO ERROR)
;SAVE TSSR
; TSSR NOT CORRECT

CONTR.

TRAP
.WMORD

.WORD
.MORD

LSERHRD
419
T1555R
PKTSSR

TRAP

CsCLP}

TSVS

TEST

HARDWARE

4&:

TESTS

104456
000644
033436
012046
013701
120102
001404

032664
S470 032666
S471 032670
g:;g 032674

104406
005303
020327
001271

S469 032664

032762

104456
000645
033512
015502

16-Sep-85

S477 032700

004737

016456

S479 032706

000137

031374

032712
ses1 032714

104432
001216

$478 032704

5480 032712

448 ;

10:39

Peage 82-6

SEQ 0132

5482

JSR
JMP

ExXIT

TRAP
.WORD
.WORD
. WORO

;PICK UP REC'D DATA
;CHECK WITH DATA WRITTEN
;BR IF Or, DATA IN = DATA OUT
;WRITTEN DATA NOT = T0O READ
TRAP
. WORD
.WORD
. WORD

; SCOPE LOOP
R3

R3,025S.
408

ENDSUB

8CcC

638¢:

T158FR.20,R1
R1.R2
454
ERRNO, T1SAM2 ,EXPBREC

CxLOooP
cHP
BNE

SO$:

103002

MOV
cres
BEQ
ERRHRD

DEC

000377

104403

TRAP
;OROP RAM ADORESS POINTER

CSERMRD
420
T15SSR
PKTSSR

C $ERMRD
421
T1SAn?
EXPBREC
CsCLPY

;AT START YET
;BR, IF MORE RAM T0 CHECK

s WNANNAAANANNY END SUBTEST NNAMNNNN
L100S2:
TRAP
CsESUB
PC.TSTLOOP

;00 WE NEED TO ITERATE TEST

T1SLOOP

;EXECUTE AGAIN

638

Ts7

;BRANCH IF NOT

;ALL DONE THIS TEST

TRAP
. WORD

CSEXIT
L10047-.

;LOCAL STORAGE FOR THIS TEST

5483
S484

032720
032720
032722
032724
032726
032730
032730
032732
032734
032736
032742

032720
100204
032730
000000
000010
032742
000000
000400
000000

000000

.m¢ +10>€£177770
T1SPACKET:
. WORD
100204
. WORD
1 1SDATA
. WORD
0
. WORD
8.
T150ATA:
. WORD
T15BFR
.WORD
0
. WORD
256 .
.WORD
0.0
T1SBFR: .BLKW
150.

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

;STARTING VALUE OF BLOCK SIZE
;CHARACTERISTICS DATA 8LOCK
; ADDRESS OF MESSAGE BUFFER
;LENGTH OF MESSAGE BUFFER
;MESSAGE BUFFER

;WRITE SUBSYSTEM MEMORY COMMAND PACKET

gggg
5503
5505
5506
$S507
$508
gggg

Mondey

45¢ :

S474 032676
S47S 032676
032676
476 032676

$486
5488
5489
5490
S491
5492
$493
S494
5495
$S496
5497
g:gg

Y05.02

RAM EXERCISER TEST

032634
032636
032640
032642
032044
032650
032652
032654
032654
032656
032660
032662

5462
5463
S464
S468

MACRO

033420
033420
033422
033424
033426

5511
5512 033430

033420
100206
033430
000000
000006

T1SPK2:

T158F2:

.o¢_+10>E177770
.WORD
. WORD
.WORD
.WORD
.EVEN

100206
T158F2
0
6.

;WRITE SUB SYS MEM COMMAND, IE
:ADDRESS OF SELECT BLOCK DATA
:SI1Z2€E OF DATA PACKET

AND ACK

ACX

TSVS

TEST

HAROWARE

$S513
5514
3515
5516
53517
5518
5519

TESTS

MACRO

Y05.02

Mondey

Sep 85

10:39

BYTE
.BYTE
.WORD
.WORD

O
O
O

Page

82-7

SEQ 0133

RAM EXERCISER TEST
033430
033431
033432
033434

7158S0:
715851
T1552:

000
000
000000
000000

T1553:

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

;LOCAL TEXT MESSAGES fOR TEST
‘-

033436
033512
033613
033713
034003

127
127
127
122

122
122
122
122
101

111
111
111
111
115

Ti5SSR: .ASCIZ
T1SAM2: .ASCIZ
T1SAM3: _ASCIZ
T1SAMA: _ASCIZ
TST15I0D:
.EVEN

[

'WRITE
'WRITE
‘WRITE
‘'WRITE
.ASCIZ

SUBSYSTEM MEMORY
SUBSYSTEM MEMORY
SUBSYSTEM MEMORY
SUBSYSTEM MEFMORY
'RAM Exerciser’

Command Not

Accepted’

COMMAND Failed On All Ones Word Reed Back’
COMMAND Failed On All Zeros Word Reed Beck’
COMMAND Failed On Address Test’

sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES
;WRITE SUBSYSTEM MENORY COMMAND
:
;-

T1SREST:

012701
012721

012721
005021
012721

012721
005021
012721
0035021
005011
005037
000207

032720
100204
032730
000010

032742

000400

032742

033420
100206
033430
0V0006

,R2
OT15PACKET
#100204,(R1)-~
OT1SDATA,(R1).
(R1).
08.,(R1).

CLR
MOV
CLR
CLR
CLR

(R1).
0256.,.(R1Y.
(R1)e.
(R1)
T158FR

MOV

RTS
T1SRT2:

012701
012721

SAVREG

MOV
MOV
MOV
CLR
MOV

SAVREG

MOV
MOV
MOV

#T158FR,(RL).

T15PK2
. R1
#100206.(R1).
#T158F2,(R1).

CLR
MOV
CLR
CLR

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

RTS

CLR

ENDTST

(R1)

:SAVE THE REGISTERS
:START OF THE PACKET
;WRITE

SUBSYSTEM MEM.

WITH ACK,

;ADDRESS OF CHARAISTICS DATA BLOCK
;EXTENDED ADORESS
:SIZE OF DATA BLOCK IN BYTES
;ADDRESS OF MESSAGE BUFFER
;LENGTH OF MESSAGE BUFFER
;CLEAR 1ST LOC IN MESSAGE BUFFER

sRETURN

:SAVE THE REGISTERS
;START OF THE PACKET
sWRITE

SUBSYSTEM MEM.

WITH ACK,

sADDRESS OF DATA 8LOCK
:EXTENDED ADDRESS
:SIZE OF DATA BLOCK IN BYTES

;:RETURN
L10047:

TRAP

CSETST

MARDWARE

MACRO

EXTENDED FEATURES

Y05.02

SWITCH AND

5567
5568

Mondey

16-Sep 85

TIMERS

A.B

10:39

Pege 83

SEQ 0134

.SBTTL

TEST

EXTENDED FEATURES SWITCH AND TIMERS A.8

‘.0

TEST DESCRIPTION:

This

con

that

H
:

i+
3

END

the

internsl

the

invert

Invert

Extended Festures

the Extended

timers

and B

operate

correctly.

Do Subtest
Do Subtest

1
2

Verify Extended Features Switch
Verify Timers A,8

MOV
JSR

T16L00P

MOV

SBTTL

#7S7161D,R0O

;ASCII MESSAGE TO IDENTIFY TEST

€10. ,LOOPCNT

;00 INITIAL

TEST

;PERFORM

ITERATIONS

PC,TSTSETUP

TEST

SUBTEST

SETLP

VERIFY EXTENDED FEATURES

TEST

:
i

SUBTEST

SUBTEST DESCRIPTION:

Ve G4 B

;

TEST

BE Bs GE S6

This subtest verif.es that the Invert Sense of Extended features
Switch function (Write Subsystem Memory.Write Misc command)
operates properly.

First the state of the Extended Festures switch is read in the
message packet supplied by the write cheracteristics command.
Then, the sense of the switch is logicelly inverted.
A Write charecteristics command is erxecuted and it is verified
that the Extended status register (XS5T4) is returned when
in Extended mode, and not returned if not in extended mode.
The subtest also verifies thet specifying a Message Buffer

002216

036212
016510
000012

sddress with any of bits 21-19
be rejected.

BT Ge Vs

012700
004737
012737

function

features switch and

BGNTSY

Ve Ve B

034134
034134
034134
034140
034144
034152

verifi.es

REPEAT FOR LOOPCNT
BEGIN

3
3
i

test

logicelly

TEST STEPS:

6 @8

TESTS

B¢ Ve TI Te

TEST

Be B2 B

TSVS

TEST

BEGIN

,set will ceuse the commend to

STEPS:

Write to TSSR rogiotor to soft

initialize the controller

Do WRITE CHARACTERISTICS to check

for Extended Feastures Switch

%;EExtondod Features Hardware Switch CLEAR

(s Verify Extended Features switch cen be Inverted to SET o)
Do Write Suboxstcn Write Miscellaneous to SET Extended Features.
DO @ WRITE CHARACTERISTICS with an extended characteristic word
Compare the controller ram to the extended characteristic word

TSVS

- MARDWARE TESTS

TEST

SUBTEST 1:

MACRO Y05.02

Munday

16-Sep-85

10:39

Page 83-1

SEQ 0135

VERIFY EXTENDED FEATURES TEST

5627
5628
5629

If Data word in controller ram NOT» to word sent
Then Print Error
EL%E Message Buffer Data Length NOT= 12.
Then Print Error

5631
5632
5633

Do Write Subsystem Write Miscelleneous to CLEAR Extended Features.
Do @ WRITE CHARACTERISTICS without an extended charecteristic word

(e Verify Extended Features switch cen be Inverted to CLEAR &)

5630

€ gf
Message Buffer Date Length NOT=
ND

10.

Then Print Error

(s v.rofy Function Reject when Message Buffer 21-19 are non-zero )

Write to TSSR roguoter to soft initialize the controller
REPEAT FOR MESSAGE BUFFER ADDRESS bits <21:19> FROM 0 TO 7

' m

00 @ WRITE CHARACTERISTICS with a messa
address bit<21:19> non-zero
Efig ;égga¥crmination code NOT= Function
Reject
Then Print Error

BGNSUB

/17777777777 BE?%NISWTEST /1777777777

104402

004737

103405

Write to TSSR register to soft
JSR
PC,SOFINIT

015774

8CS

MOV
ERRDF

010001

104455

104

RO,R1
ERRNO, SFIERR, SFIMSG

initialize the controller
;WRITE TO TSSR TO SOFT INITIALIZE

;BR IF SOFT INIT OKAY

:SAVE CONTENTS OF TSSR
;DEVICE FATAL DURING INIT
TRAP

.WORD

012034

iOS:

037360
002222
037540
010662

Do WRITE CHARACTERISTICS to check for Extended Features Switch
JSR
PC,T16REST
;RESTORE PACKET DEFAWLTS

CLR

MOV
JSR

FATFLG

#T16PACKET
PC,.WRTCHR

FORCERROR

103407
010001
124:

104455

000765
036262
012046
005237

002222

1S5¢:

104406

124

B8CS

154

ERRDF

ERRNO,T16SSR,PKTSSR

MOV
RO R1
NEXT.ERRNO

INC
CKLOOP

FATFLG

034256
034264
034266
034272

012701
032761
001402
000137
012703

037562
000200
034636
002764

REPEAT FOR TEST PATTERNS
MOV
#T16BFR,R1

000012

:
208

817
8EQ
JMP
MOV

OX2.EXTF ,XST2(R1)
20%
2004
€7STBLK+10. ,R3

CSERDF

500
SFIERR

SFIMSG

:CLEAR FATAL ERROR FLAG

:GET THE AODRESS OF COMMAND PACKET
:00 WRITE CHARACTERISTICS COMMAND
;380FORCE

ERROR

FORCER=1

:BR IF CARRY SET (GOOD RETURN)
;sSAVE

CONTENTS

TSSR

;DEVICE FATAL SSR FAILED 7O SET
TRAP

CSEROF

$SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SEY
TRAP

csCLP)

.WORD
.MORD
.WORD

If Extended Features Hardware Switch Clear then:
(s Verify
Extended Features switch can be Inverted to SET

034252

C$8SUB

.WORD
.WORD

000764
003652

004737
005037
012704
004737

TRAP

IN TSTBLK TABLE
tMESSAGE BUFFER

ADORESS

»)

;EXTENDED FEATURES SWITCH CLEAR?
:BR IF YES
i
;:START

TEST DATA

501
T16SSR
PKTSSR

TSVS

TEST

HARDWARE

TESTS

SUBTEST 1:

MACRO Y05.02

Mondey

16-Sep-85

10:39

Page 83-2

SEQ 0136

VERIFY EXTENDED FEATURES TEST

5673

Do Write Subsystem Write Miscellaneous to SET Extended Features.
034276
034302
034306
034312

004737
012704
010465
004737

037520
037610
000000
016336

010001

002222

40%¢:

104406
125252
037540
000020
002312
010662

002222

104406
000000
037562
000020

8Cs

404

:BR IF CARRY SET _(GOOD RETURN)

INC
CKLOOP

JSR

50¢:

62%:

80¢:

037550

011224

RO,R1

FATFLG

WRITE SUBSYSTEM COMMAND PACKET
_THE PACKET ADDRESS TO EXECUTE
1380FORCE ERROR

$SAVE

CONTENTS

:DEVICE FATAL

FORCER=1

TSSR

SSR FAILED

TO SET
TRAP
.HORD
.WORD
.WORD

;SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET
RAP

#T16PACKET,R4

#16. ,PKBCNT(R4)
DATA,T16DATA+10

PC.WRTCHR

FORCERROR

72%:

104406

324

NEXT.ERRNO
ERRDF
ERRNO,T162SSR,PKTSSR

424

8Cs
504
MOV
RO,R1
NEXT.ERRNO
ERROF
ERRNO,T16SSR,PKTSSR

CS$ERDF
502
T162SSR
PKTSSR
csCLPl

sGET THE ADDRESS OF COMMAND PACKET

1 STORE MESSAGE PACKET SIZE
:STORE TEST DATA IN EXTENDED WORD

;00 WRITE CHARACTERISTICS COMMAND
; 980FORCE ERROR

IF FORCER=1

;B8R IF CARRY SET (GOOD RETURN)
; SAVE CONTENTS OF TSSR

;OEVICE FATAL SSR FAILED TO SETY
TRAP
.WORD
.WORD
.MORD
INC
FATFLG
;:SET FATAL ERROR FLAG
CKLOOP
:LOOP ON ERROR, IF FLAG SET
TRAP
If the TSBA Address Register NOT= Expected
Then Print Error
MOV
TSBA(RS),R1
:GET TSBA REGISTER CONTENTS
MOV
#T16BFR,R2
:START OF THE DATA BUFFER
ADD
916. ,RC
;EXPECTED CONTENTS OF TSBA

FORCERROR

CcHP

104456
000770
036430
015474

012704
004737

:WAIT FOR SSR TO SET

MOV
MOV

020102
001404

0343506
034512
034516

PC,CHKTSSR

MOV

000006
037560

424
:

016501
012702
062702

JSR

:GET
1SET

00 a WRITE CHARACTERISTICS with an extended characteristic word
MOV
9125252,DATA
sSETUP TEST DATA FOR EXTENDED WORD

002312

103407
010001

005237

1SETUP PACKET FOR WRITE MISC INVERT

0T16PK2,R4
R4,TSDB(RS)

MOV

324:

012737
012704
012764
013737
004737

PC,T16SEXT

FORCERROR

103407

012046
005237

JSR

MOV
MOV

724 ,NOTSSR

R1,R2

BEQ
80¢
NEXT.ERRNO
ERRHRD
ERRNO,T16TSBA,EXPREC

C4EROF

503

T16SSR

PKTSSR
CsCLP)

;38D0FORCE ERROR IF FORCER=1

:COMPARE EXPECTED TO RECEIVED
:ERROR IF NOT EQUAL

:PRINT THE ERROR & EXPD/RECV
TRAP
CS$ERHRD
.WORD
504
.WMORD
T16TSBA
.WORD
EXPREC
CKLooP
:LOOP ON ERROR, IF FLAG SET
TRAP
CsCLP1
Compare the controller rem to the extended characteristic word

MOV
JSR

ata word

in controller

#T160DATA

PC, CKRAHZ

FORCERROR

924

ram NOT=

to word sent

Then Print

Error

sGET CHARACTERISTIC DATA ADDRESS
;:DOES RAM DATA EQUAL DATA SENT?
;880FORCE ERROR

IF FORCER=1

TSVS - HARDWARE TESTS
TEST

SUBTEST 1:

S71S 034532
5716 034534
S717 034534

MACRO Y05.02

Mondey

16-Sep-85 10:39

Page 83-3

SEQ 0137

VERIFY EXTENDED FEATURES TEST

8CSs

103404
104456

000771
004745
015510

104406
012702
016201
012702

924:

1004
:

CKLOOP

037562
000002
000014

;REPORT THE RAM ERROR(S)

CMP
R1,
BEQ
1204
NEXT .ERRNO
ERRHRD
ERRNO, T16LEN,EXPREC

JSR
8CS

015774

MOV
ERRDF

125%:

JMP
3

2008
:

037520
037610
000000
016336

PC,SOFINIT
1254

RO,R1
ERRNO, SFIERR,SFIMSG

232$:

:
2404

;PRINT THE ERROR & EXPD/RECV
.WMORD
.MORD
.WORD

C4$ERHRD
506
T16LEN
EXPREC

TRAP

ciCLPL

TRAP

IF FLAG SET

:WRITE TO TSSR TO SOFT INITIALIZE
:BR IF SOFT INIT OKAY
s SAVE CONTENTS OF TSSR
sDEVICE FATAL DURING INIT

3004

TRAP

CSERDF

TRAP

CsCLP1

.WORD
.WORD
.WORD

506
SFIERR
SFIMSG

Do Write Subsystem Write Miscellaneous to CLEAR Extended Features.
JSR
PC,T16SEXT
1SETUP PACKET FOR WRITE MISC INVERT
OT16PK2,R4
R4,TSDB(RS)

JSR

PC,CHKTSSR

B8CS

240%

FORCERROR

103407

csCLP1

Verify Extended Features switch can be Inverted to CLEAR 2)

MOV
MOV

010001

CSERMRD
505
PKTRAM
RAMERR

;:GET MESSAGE BUFFER ADORESS
;GET RECV DATA FIELD LENGTH
;:GET EXPD DATA FIELD LENGTH
;1S8DFORCE ERROR IF FORCER=1
s COMPARE EXPECTED TO RECEIVED
;ERROR IF NOT EQUAL

;LOOP IF SELECTED

CKLOOP

035016

TRAP
Then Print Error

;:LOOP ON ERROR,

CKLOOP

:
1204

TRAP
.WORD
.WORD
.WORD

;LOOP ON ERROR, IF FLAG SET

MOV
@T16BFR,R2
MOV
2(R2),R1
MOV
812. ,R2
FORCERROR
1124 ,NOTSSR

112%:

002222

+1BR IF YES

If Message Buffer Data Length NOT= 12,

020102
001404

004737

1004

NEXT.ERRNO
ERRHRD
ERRNO,PKTRAM,RAMERR

232¢

MOV
RO,R1
NEXT .ERRNO
ERRDF
ERRNO,T1625SR,PKTSSR

INC
CKLOOP

FATFLG

;GET WRITE SUBSYSTEM COMMAND PACKET
;SET THE PACKEY AODRESS TO EXECUTE
sWAIT FOR

SSR

TO SET

;: 880FORCE ERROR IF FORCER=1
;B8R IF CARRY SET (GOOD RETURN)
;SAVE CONTENTS OF TSSR

;+DEVICE FATAL SSR FAILED TO SET
.WORD
.MORD

CSERDF
507
T162SSR
PKTSSR

TRAP

csCLP)

TRAP
.WORD

:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET

TSVS - HARDWARE TESTS
TEST

5752
$7S3
S754
5755
5756
$757
5758

SUBTEST 1:

034714
034720
034726
034732
034746
034750

S759 034752

5760 034752
034752
034754
034756
034760

5761 034762
5762 034766
034766
S763
5764 034770
5765 034774

5766 035000
$767 035002
5768 035004

5769 035004
035004

035006
035010
035012
$770 035014
035014
S771
5772

MACRO Y05.02

$775
5776
S777
5778
S779
S780
5781
5782
5783

012704
012764
004737

037540
000016
010662

H
000006

103407

010001
104455
000774
036262
012046
005237

2424 :

002222

250%:

104406
013701
C12702

020102

037564
000012

001404

035024
035024
035030
035036

5784

2624 :

104456
000775
036532
015474

270¢:

104406

012737

000001

002312

012704
012764
013700
000003

037540
000016
002312

000006

5785
5786
5787
S788
S789
5790

035050 010037
035054
010465
035060 004737
035064
035100
103407
$791 035102
010001
5792
1
-~
¥

5793

035104

035106
035110
035112
5794 035114

SEQ 0138

NEXT .ERRNO

ERRDF

ERRNO,T16SSR,PKTSSR

INC
CKLOOP

FATFLG

CMP

R1,R2

300%:
;
320%:
i
325%¢:

3424 :

rflass,
002222

2704

NEXT .ERRNO

ERRHRD

ERRNO, T16LEN,EXPREC

CKLOOP

CSERDF
508
T16SSR
PKTSSR
CsCLP1

:COMPARE EXPECTED TO RECEIVED
;ERROR IF NOT EQUAL

;PRINT THE ERROR & EXPD/RECYV
TRAP

;LOOP ON ERROR,

.WORD
HORD
WORD
IF FLAG SET
TRAP

CS$ERHRD
S09
T16LEN
EXPREC
CsCLP1

(» Verify Function Reject when Message Buffer 21-19 are non-zero )

Write to TSSR regicter to soft

initialize the controller

REPEAT FOR MESSAGE BUFFER ADDRESS bits <21:19> FROM 0 T0 7
MOV
#1,DATA
;START AT BITS<21:19>=001
DO a WRITE CHARACTERISTICS with a message address bit<21:19> non-zero
MOV
MOV
MOV
.REPT

OT16PACKET,R4
214, ,PKBCNT(R4)
DATA,RO
3
RO

.ENDR
MOV
RO, T16DATA+2
MOV
R4 ,TSDB(RS)
JSR
PC,WAITF
FORCERROR
3424
8CS
3504

037552
000000
016250

;:DEVICE FATAL SSR FAILED TO SEY
TRAP
.WORD
.WORD
.WORD

:SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SEY
TRAP
If Messa
Buffer Data Length NOT= 10.
Then Print Error
MOV
T16BFR+2,R
sGET RECV DATA FIELD LENGTH
MOV
€10. ,R2
;GET EXPD DATA FIELD LENGTH

ASL

fad

000776
036262
012046
005237

00 @ WRITE CHARACTERISTICS without an extended charscteristic word
MOV
OT16PACKET,R
:GET THE ADORESS OF COMMAND PACKET
MOV
ola, PKBCNT(RQ)
:STORE MESSAGE PACKET SIZE
JSR
PC,WRTCHR
;D0 WRITE CHARACTERISTICS COMMAND
FORCERROR
2424
;880FORCE ERROR IF FORCER=1
BCS
2504
:1BR IF CARRY SET (GOOD RETURN)
MOV
RO,R1
zSAVE CONTENTS OF TSSR

BEQ

035016

Page 83-4

VERIFY EXTENDED FEATURES TEST

57173
S774

Monday 16-Sep-85 10:39

MOV
RO,R1
NEXT
. ERRNO

ERRDF

INC

ERRNO,T16SSR,PKTSSR

FATFLG

;:GET THE ADDRESS OF COMMAND PACKET
:STORE MESSAGE PACKET SIZE
;GET TEST DATA
;SHIFT

INTO BITS 21:19

;STORE BUFFER ADDRESS BITS 21:19
;SET THE PACKET ADDRESS TO EXECUIE
;WAIT FOR SSR
; 880FORCE ERROR IF FORCER=1
:BR IF CARRY SET (GOOD RETURN)
sSAVE CONTENTS OF TSSR

;:DEVICE FATAL SSR FAILED TO SET

TRAP

:SET FATAL ERROR FLAG

.WORD
.WORD
.WORD

C$ERDF

510
T16SSR
PKTSSR

’

TSVS

- HARDWARE TESTS

TEST

SUBTEST L:

5795 035120

Monday

16-Sep-85

350%:

035120

104406

035122
035126

016501

000002

052702

000016
000006

352%:

104406

005237
023727
101002
000137

002312
002312

;LOOP ON ERROR,

CKLooP

BIS

#TSREJ,R2

cMP
BEQ

R1,R2
3604

ERRHRD

ERRNO, T16REJ,PKTSSR

FORCERROR

104456
000777
036644
012046

;:LOOP ON ERROR,

FORCEXIT
3704
INC
DATA
DATA, &7
CMP
BHI
3704
JMP
3254
END -REPEAT

000007

035024

;DEVICE FATAL SSR FAILED TO SET

4604
:

;ANY FATAL ERRORS ?
;:BRANCH IF NOT

FATFLG
4604

PC,CKDROP

.SBTTL

TEST

;TRY

SUBTEST 2:

TO DROP

THE

UNIT

VERIFY TIMERS A,B

SUBTEST 2:

SUBTEST DESCRIPTION:

This subtest

verifies that timers A,.B can be

and thet Timer A

reset

is twice the fregquency of Timer B.

STEPS:

B¢

Timer A has a period of 25 microseconds and Timer B
has a period of 50 microseconds. The timers are
checked at 1, 28, 53, and 78 micoseconds.
TEST

Write

TRAP

CsCLPL

$/////////777 END SUBTESTY /777777777
L10054:
TRAP
CSsESULB

JSR

TEST 5:

C4ERHRD
511
T16REJ
PKTSSR

IF FLAG SET

jee

TRAP
.WORD
.WORD
. WORD

;D0 ANOTHER TEST PATTERN

ENDSUB

TST
8EQ

002222
017202

csCLPy

sGET NEXT TST PATTERN
sDONE ALL DATA?
:BR IF YES

104403
001402
004737

TRAP

1 89DFORCE ERROR IF FORCEP=1
;EXPD _EQUAL RECV?
1BR IF YES

NEXT
. ERRNO

CcKLOOP

370%:

005737

IF FLAG SET

;SET EXPD TC<2:0>= FUNCTION REJECT

3524 ,NOTSSR

3604:

035220
035224
035226
035232

SEQ 0139

If TSSR termination code NOT= Function Reject
Then Print Error
TSSR(RS).R1
:GET RECV TSSR
R1,R2
;:COPY RECV TSSR
8IC
#TERCLS,R2
;CLEAR TC<2:0> EXPD

001404

035216
035216
035216
035216

Page 83-5

MOV
MOV

020102

035212

10:39

VERIFY EXTENDED FEATURES TEST

€

5796

MACRO Y05.02

to TSSR

rcgistcr to soft

initialize the controller

Do WRITE CHARACT RISTICS to setup a Message Buffer

TSVS

TEST

HARDWARE TESTS

SUBTEST 2:

MACRO Y05.02

HMondey

16-Sep-85

10:39

Page 83-6

SEQ 0140

VERIFY TIMERS A,.8

(s Verify

5844

Timers A.B after RESET TIMER with 0 microsecond delay s)

Do o Hrilc Control RESET TIMER with 1 microsecond delay
Do @ Write Subsystem READ STATUS
If Timer A NOT= O
Then Print Error
If Timer B NOT= O
Then Print Error

(s Verify

Timers A.B after RESET TIMER with 28 microsecond delay s)

Do a Hri{c Control RESET TIMER with 28 microsecond deleasy
If Timer A NOT= 1
If Timer B NOT= 1

Then Print Error
Then Print Error

If Timer A NOT* O

Then Print Error

Do @ HWrite Control RESET TIMER with S3 microsecond delay
If
Do
If
If

NOT= 1
Control
NOT= 1
NOT= 0O

Then Print Error
RESET TIMER with 78 microsecond delay
Then Print Error
Then Print Error

BGNSUB

860 035232
035232
035232

5862 033234

Timer B
a Write
Timer A
Timer B

$////777/77777 BE?%NZSWTEST 17777777777

Write to TSSR

JSR
8Cs

015774

MOV
ERRDF

10¢:

037360

002222
037540
000010
010662

PC,SOFINIT
104

RO,R}
ERRNO,SFIERR, SFIMSG

TRAP

tWRITE TO TSSR TO SOFT INITIALIZE
;BR IF SOF1 INIT OKAY

5889 035370

000001
036202
037472
037610
000000
016336

15%:

CSEROF
€11
SFIERR
SFINSG

PC,T16REST
FATFLG

;RESTORE
KET DEFAWLTS
;CLEAR FATAL ERROR FLAG

JSR

PC,WRTCHR

;00 WRITE CHARACTERISTICS COMMAND

8CS

154

#T16PACKET ,R4
#8. ,PKBCNT(R4)
124

MOV
RO,R1
NEXT
. ERRNO

ERRDF

:GET THE ADORESS OF COMMAND PACKET
;MESSAGE PACKET SIZE NO EXTEND
; 890F ORCE

;SAVE CONTENTS OF

ERRNO, T16SSR,PKTSSR

ERROR

IF FORCER=1

:BR IF CARRY SET (GOOD RETURN)
TSSR

;:DEVICE FATAL SSR FAILED TO SET
TRAP
C SERDF

.MORD

002222

csBSLB

JSR
CLR

FORCERROR

12¢:

initialize the controller

;SAVE CONTENTS OF TSSR
;DEVICE FATAL DURING INIY
TRAP
.WORD
.WORD
.WORD
Do WRITE CHARACTERISTICS to setup a Hosooa:cfluffor
MOV
MOV

000006

INC
CKLOOP

.MORD
.MORD

FATFLG

:SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET
TRAP

712

T16SSR
PKTSSR
CsCLPL

(s Verify Timers A,B after RESET TIMER with 1 microsecond delay =)
Do @ Urite Control RESET TIMER with 1 microsecond delay
MOV
#1S .RSD,RO
;RESET TIMER COMMAND
MOV

T16001.R1

:+1 MICROSECOND DELAY

#T16PK2,R4
R4, TSDB(R3)

;GET WRITE SUBSYSTEM COMMAND PACKET
sSET _THE PACKEY ADORESS TO EXECUTE

JSR

PC,T16WHMISC

JSR

PC,.CHKTSSR

MOV
MOV

FORCERROR

:SETUP T16PK2 COMMAND PACKET

sWAIT FOR SSR TO SET

: 880F ORCE ERROR IF FORCER=1

TSVS

- HAROWARE TESTS

TEST

SUBTEST 2:

5890 035404
035406
035410
035410
035410
035412
035414

MACRO Y05.02

Mondey

10:39

Page 83-7

SEQ 0141

VERIFY TIMERS A,B8

103407

8CS
MOV

010001

324

002222

C42701

404
:

000010
000004
037602
000002

012700

000002

TRAP
. WORD
.WORD
.WORD

1SET FATAL ERROR FLAG
;:LOOP ON ERROR, IF FLAG ?gIP

FATFLG

#T16BFSTA
RO
2(RO),R1
O+C<S2 ATIM!S2.BTIM> ,R1
724 ,NOTSSR

804
8EQ
NEXT
. ERRNO
ERRHRD
ERRNO,T16701, TIMEXP

sREPORT ERROR

TRAP
.WORD
. WORD

;LOCP ON ERROR, IF FLAG SET

CxLooP

CSERDF
513
T162SSR
PKTSSR

csCLP1

:GET RECV READ STATUS
;GET RECV BYTE 2
sSAVE TIMER A:B RECV ONLY
; 880
sEXPD EQUAL RECV?
;B8R IF YES

WORD

TRAP

FORCERROR

112¢:

037602

:DEVICE FATAL SSR FAILED TO SET

CS$ERMRO
3514
716701
TIMEXP

cscLP2

Do @ Write Control RESET TIMER with 28 microsecond delay
#MS _RSD,RO
MOV
;RESET TIMER COMMAND
MOV
716028 ,R1
s28 MICROSECOND DELAY
JSR
PC,T16WMISC
:SETUP T16PK2 COMMAND PACKET
#T16PK2,R4
MOV
$1GET WRITE SUBSYSTEM COMMAND PACKET
MOV
R4, TSOB(RS5)
:SET THE PACKET ADORESS TO EXECUTE
:WAIT FOR SSR TO SET
PC,CHKTSSR
JSR

000001
036204
037472
037610
000000
016336

000010
000004

INC
CKLOOP

ERRNO, T162SSR,PKTSSR

FORCERROR
cHe
R2,.R1

80¢:

ov2222

ERRDF

8IC

72%:

104406

:SAVE CONTENTS OF TSSR

NEXT .ERRNO

MCV
MOV

177763

036761
015552

;B8R IF CARRY SET (GOOD RETURN)

408
RO,R1

Then Print Error
If Timer A NOT= O
Then Print Error
If Timer B NOT+ O
CLR
R2
sINIT EXPD
8IC
#52.ATINM,R2
;:TIMER A EXPO=0
8IC
#52.8TIM,R2
sTIMER B EXPD=0

020201
001404

0lss70
0!3572

16-Sep-85

120¢:

112¢

8Cs

1204

ERROF

ERRNO,T162SSR,PKTSSR

MOV
RO,.R1
NEXT.ER RNO

INC
CKLOOP

FATFLG

1 88DFORCE ERROR IF FORCER=1
:BR IF CARRY SET (GOOD RETURN)
: SAVE CONTENTS OF TSSR
;:DEVICE FATAL SSh FAILED TO SET
TRAP

:SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG ;gIP

Then Print Error
If Timer A NOT= 1
Then Print Error
If Timer B NOT= 1
CLR
R2
1 INIT EXPD
8IS
#52.ATIN
R2
;TIMER A EXPD=1
8IS
#52.87IM,R2
sTIMER 8 EXPD=1
MOV
OT16BFSTA
RO
:GET RECV READ STATUS
MoV
2(RO).R}
:GET RECV BYTE 2

CSEROF
515

1 162SSR
PKTSSR

CsCLPL

TSVS

- HARDWARE TESTS

TEST

SUBTEST 2:

5932 033612
5933
5934
5933
5936
5937

MACRO Y05.02

Monday

16-Sep-85

10:39

Pege 83-8

SEQ 0142

VERIFY TIMERS A,B

042701

177763

8IC

#tC<S2 ATIM!S2 BTIM>,R1

;SAVE TIMER A:B RECV ONLY

cHP

R2,

sEXPD EQUAL RECV?

FORCERROR

020201
001404

8EQ
172%:

104456

001004
037060
015552

180¢:

104406

ERRHRD

MOV

2204:

TRAP
. WORD
.WORD
. WOROD

CSERHRD
516
716728
TIMEXP

TRAP

csCLPL

IF FLAG SET

716053, R1

JSR

PC.CHKTSSR

sWAIT FOR SSR TQ SET

2204

;B8R IF CARRY SET (GOOD RETURN)

ERRDF

INC
CKLOOP

1SET THE PACKET ADODRESS TO EXECUTE

212¢

RO,R1

;1SAVE CONTENTS OF TSSR

ERRNO, T162SSR,PKTSSR

FATFLG

0S2.ATIN, R2

s 880FORCE ERROR IF FORCER=1

;:DEVICE FATAL SSR FAILEDT;RPSEY
.WORD
.WORD
.HORD

;SET FATAL ERROR FLAG
1LOOP ON ERROR, IF FLAG ?SIP
Then Print Error
Then Print Error
s INIT EXPO

CKLOOP

CsCLPL

:TIMER A EXPD=0

0S2.BTIM,.R2
1+ TIMER B EXPO-1
#T16BFSTA,RO
1GET RECV READ STATUS
2(RO),R1
1GET RECV BYTE 2
#tC<S52.ATIM!S2.8TIM>
R lgng TIMER A:B RECV ONLY
FORCERROR
2724 ,NOTSSR
]
cHe
R2,
1EXPO _EQUAL RECV?
2804
B8EQ
1BR IF YES
NEXT. ERRNO
ERRHRD
ERRNO,T16753, TIMEXP
sREPORT ERROR
8IS
MOV
MOV
8IC

:
2804

;SETUP T16PK2 COMMAND PACKET
:GET WRITE SUBSYSTEM COMMAND PACKET

R4, TSDB(RS)

NEXT
. ERRNO

8IC

272%:

153 MICROSECOND DELAY

PC.T16WMISC
#T16PK2,R4

I? Timer A NOT= O
I Timer 8 NOT= 1
CLR
R2

177763

000001
036210
037472
037610
000000

;LOOP ON ERROR,

FORCERROR

000010
000004
037602
000002

012700
013701
004737
012704
010465

sREPORT ERROR

JSR
MOV

MOV

212%:

104406

ERRNO,T16728, TIMEXP

CKLOOP

MOV

001006
037160
0135352

;:BR IF YES

NEXT .ERRNO

8cCs

104436

1804

; 880

Do @ Write Control RESET TIMCER with S3 microsecond delay
MOV
S. RSO, RO
sRESET TIMER COMMAND

000001
036206
037472
037610
000000
016336

002222

1724 ,NOTSSR

;LOOP ON ERROR,

IF FLAG se‘rw

L SERHRD
518
716753
TIMEXP

CtCLP1
Do @ Write Control RESET TIMER with 78 microsecond deley
MOV
S .RSD,RO
tRESET TIMER COMMAND
716078,
R1
MOV
178 HICROSECOND DELAY
PC, T16WMISC
JSR
1SETUP T16PK2 COMMAND PACKET
#T16PK2,RA
MOV
sGET WRITE SUBSYSTEM COMMAND PACKET
R4 ,TSDB(RS)
MOV
$SET THE PACKET ADORESS TO EXECUTE

TSVS

- MARDWARE TESTS

TEST

SUBTEST 2:

MACRO Y05.02

Monday 16-Sep-85 10:39

Pege 83-9

SEQ 0143

VERIFY TIMERS A,.B

004737

016336

JSR

PC,.CHKTSSR

sWAIT FOR SSR T0O SET

ecs

320

:BR IF CARRY SET (GOOD RETURN)

FORCERROR

103407

MOV

010001

312%:

3124

RC,R1

s SAVE CONTENTS OF TSSR

NEXT.ERRNO

ERRDF

1 880FORCE ERROR IF FORCER=1

ERRNO, T162SSR,PKTSSR

;1OEVICE FATAL SSR FAILED 7O SET
TRAP
CSERDF

. WORD
. WORD

002222

INC

FATFLG

CKLOOP

3
3

I? Timer A NOT= 1
If Timer B NOT= 0
CLR
R2

000010
000004
037602
000002

177763

sLOOP ON ERROR,

8IS
8IC
MOV
nov

0S2.ATIN, R2
#52.87IM,R2
OT16BFSTA RO
2(RO),R1

B8€Q

380¢

1BR IF YES

ERRNO,T16T78.TIMEXP

;REPORT ERROR

3804 :

NEXT .E
ERRHRD

R2.R

TRAP

;SAVE TIMER A:8 RECV ONLY
: 880
;EXPD EQUAL RECV?

TRAP

§ 588 838
-0

034152

520
T16778
TIMEXP

TRAP

cicLP)

;LOOP ON ERROR, IF FLAG SET

ENDSUB

$//7///77/7/777 END SUBTESTY /777777777

FATFLG

TRAP

6EQ
JSR
JSR
ecC
P

46094
PC . CKDROP
PC,TSTLOOP
4654
T16L00P

sANY FATAL ERRORS

;BRANCH IF NOY
sTRY TO OROP THE UNIT
.snou.o |£ 00 ITERATIONS?
18R
I
:LO@ WTIL ITERATIONS DONE

EXIT

TS7

7777777777 XYY

YESY

CSESUB

/7777772777

TRAP

.MORO

6012
6013
6014
6013
6016

4604 :

CSERHRO

. WORD
. WORD
. WORD

CKLOOP

017202
016436

CsCLP)

s:TIMER A EXPD=1
s:TIMER 8 EXPD=0
;GET RECVY READ STATUS
:1GET RECV BYTE 2

L1005S:

002222

PKTSSR

IF FLAG SET

Then Print Error
Then Print Error
sINIT EXPO

81C
O1C<S2.ATIN!S2
BTIM> Rl
FORCERROR
3724 .NOTSSR

372%:

WORD

:SET FATAL ERROR FLAG

3204

519
T162SSR

CIEXIT

L10053-.

|K4

tLOCAL STORAGE FOR THIS TEST
'-

000076

716001 :
716026 :
7160353:

.MORO
.WORD
.MORD

1
40
76

11 NICROSECOND OELAY (ACTUALLY

.8 MIC)

128 MICROSECOND DELAY (.8 MICROS PER)
153 MICROSECOND

TSVS

- MARDWARE TESTS

TEST

SUBTEST 2:

6017 036210
6018

MACRO Y05.02

16-Sep-85 10:39

T16078:
1+

000142

.WORD

105

170

164

TST16I0:

6025 036363
6026 036430

127
102

122
165

111
163

T163S5SR:.ASCIZ
T16TSBA:.ASCIZ

6027 036532

Py 6028 036644
6029
6030
6031
gggg

036761
037060
037160

037260

127
127

104

122
122

141

124

123

124
124
124

151
151
151

124

151

111
111

164

123

155
155
155
155

T16701:.ASCIZ
T16728:.ASCI1Z
T16753:.ASCIZ

T16T78:.A25é5

012700
012720
012720
005020
012720

6045 037406
6046 037410
6047 037414

005020
012720
005020

6049 037420
6050 037424

005037
000207

6051
6052

012720

005010

037540
100004
037550

'WRITE SUBSYSTEM (Read Status) Failed’
'Bus Address Register (TSBA) Incorrect after Write Characteristics’

*TSSR Function

Reject Not Returned When Non-Existent Buffer Address Specifi

‘Timer A,B Incorrect after Reset Timer with 1 microsecond Delay'’
‘Timer A,B Incorrect after Reset Timer with 28 microsecond Delay’
‘Timer A,B Incorrect after Reset Timer with 53 microsecond Delay’

‘Timer A,B Incorrect after Reset Timer with 78 microsecond Delay’

SET DEFAULT PACKET

000012

037562

MOV
MOV
MOV
CLR
MOV

#T16PACKET,RO
#100004,(RO)»
#T16DATA,(RO).
(RO).
#10.,(RO).

;sPACKET AODRESS
sWRITE CHARACTERISTICS WITH ACK
;ADDRESS OF CHAR DATA BLOCK
;EXTENDED ADORESS
;SIZE OF MESSAGE PACKET

CLR
MOV
CLR

(RO)#20.,(RO).
(RO).

;CLEAR EXTENDED BUFFER ADDRESS
;LENCTH OF MESSAGE BUFFER
;1CLEAR ESS,.ENB,EAI,ERI

T168FR
PC

;CLEAR 1ST LOCATION IN MESSAGE BUFFER
H

MOV

000024

CLR

037562

CLR
RTS

#T168BFR,(RO) (RO)

;sMESSAGE BUFFER ADDRESS

;CLEAR EXTENDED FEATURES WORD

28%2

; CLEAR MESSAGE BUFFER

6055 037426

6056
6057
6058
6059
6060

‘'Extended Features Switch and Timers A,B'

‘Data Field Length in Message Buffer Incorrect after Write Characteristics’
|

T16REJ:.ASCIZ

i T16REST:

037360
037364
037370
037374
037376

.ASCIZ

T16LEN:.ASCIZ

6037
6038 037360

6048 037416

: 78 MICROSECOND

'WRITE CHARACTERISTICS Failed’
'WRITE SUBSYSTEM (Write Misc) Failed’

)

6036

6044 037402

142

T16SSR: .ASCIZ
T162SSR:.ASCIZ

6034
6035

6039
6040
6041
6042
6043

SEQ 0144

tLOCAL TEXT MESSAGES FOR TEST

6022 036212

6023 036262
6024 036317

Page 83-10

VERIFY TIMERS A.8

6019

6033

Monday

037426
037432
037436
037442
037444

6061 037446
6062 037450
6063

T16CLRBUF ;
012701
012702
105021
005302

037562
000026

003375
000207

8GT
RTS

6064

6065

6067 037452
6068 037452
6069 037456

004737
012700

6071 037466
6072 037470

105010
000207

6070 037462

104:

112720

SAVREG
MOV
MOV
CLRB
DEC

037426
037620

000005

H
OT168FR,R1
#T16BEND-T16BFR,R2
(R1).
R2

10¢
PC

;SAVE R1-RS UNTIL NEXT RETURN
:GET MESSAGE BUFFER ADORESS
:SIZE OF MESSAGE BUFFER IN BYTES
;CLEAR A BYTE
;DONE?

:BR IF NO
;RETURN

SETUP T16PK2 PACKET FOR READ STATUS

T16SRD:

JSR
MOV

PC.T16CLRBUF
#716072,R0

sCLEAR MESSAGE BUFFER
sWRITE SUBSYSTETMM DATA BUFFER

CLRB
RTS

(RO)
PC

;CLEAR BSEL1
;REY

MOve

#PUW . ROSTATUS,(RO) .

;STORE READ STATUS COMMAND IN BSELO

HARDWARE

TEST

TESTS

SUBTEST 2:

MACRO

VERIFY

v05.02

Monday

16 Sep 85

10:39

Pege 83-11

SEQ 0145

TIMERS A.8

SETUP

T16PK2 PACKET FOR WRITE MISC.

INPUT
.

®ws

@¢

6074
6075
6076
6077
6078
6079

CONTAINS WRITE MISC FUNCTION CODE (BSEL1)
CONTAINS DELAY (TIMES 800 NS) FOR BSELZ

T16WHMISC

RO
R1

037472
037472
037476
037502

037514
037516

004737
012702
112722
110022
110112
000207

037426
037620
000010

SAVREG
JSR
MOV
MOve
MOve
HOve

RTS

PC,T16CLRBUF
#T16072,R2
OPW . WMISC, (R2).

RO,(R2).

R1,(R2)
PC

i SETUP T16PK2 PACKET FOR WRITE MISC.

;SAVE R1-RS UNITL NEXT RETURN

;CLEAR MESSAGE BUFFER
sWRITE SUBSYSTEM DATA BUFFER
;STORE WRITE MISCELLANEQUS IN BSELO
;STORE WRITE MISC CODE IN BSEL]
:STORE DELAY (RESET TIMER) IN BSELZ2
;RETURN
INVERT

EXTENDED FEATURES

SWITCH

037520
037520
037524
037530
037534

012700
112720
112710
000207

037620
000010

T16SEXT:

MOV
MOvB
MOV8
RTS

000200

#716072,R0
®PW WMISC,(RO).

:gS.EXY.(RO)

;WRITE SUBSYSTEM DATA BUFFER
;STORE WRITE MISCELLANEQUS IN BSELO
:EE?SSNINVERT EXTENDED FEATURES IN BSEL1

L=<, +10>€177770

037540

:URITE CHARACTERISTICS COMMAND PACKET

037540
037540
037542
037544
037546
037550
037350
037352
037554
037556
037560

100004

116PACKE T:

. WORD
.WORD

037550
000000
000012

037562

.WORD
. WORD

T16DATA:

.WORD

. WORD
. WORD

000000
000024

. WORD
. WORD

100004
5160!7!
10.
T16BFR
0

20.
0
0

; COMMAND PACKET FCk TEST
;WRITE CHARACTERISTICS COMMAND,

WITH ACK
; ADDRESS OF CHARACTERISTICS BLOCK

;MESSAGE PACKET <

; CHARACTERISTICS wATA BLOCK
;ADDRESS OF MESSAGE BUFFER
;LENGTH OF MESSAGE BUFFER
;ESS,ENB,EAI
ERI

;EXTENDED FEATURES WORD

s MESSAGE BUFFER

037562
037562
037564
037566
037570
037572
037574
037576
037600

T16BFR:

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

00000000

TSVS

;BEGIN MESSAGE BUFFER
;MESSAGE TYPE
sDATA FIELD LENGTH
;:RBPCR

:XSTO
:XST1

s XST2
:XST3

1 XST4 (ALWAYS PRESENT FOR WRITE

SUBSYSTEM

TEST

HARDWARE

6133
6134
6135
6136
6137
6141
6142
6143

TESTS

SUBTEST 2:

16-Sep-85

T16BFSTA;
T16BEND
:

10.39

Page

83-12

SEQ 0146

.BLKB 6.

;READ STATUS AND WRITE

;END OF MESSAGE BUFFER

FIFO BUFFER

;WRITE SUBSYSTEM READ STATUS COMMAND PACKET
H

100006
037620

Ti6PK2:

000012
T16072:

6153

6154 037724
037724
037724

Moncey

VERIFY TIMERS A.8

037602
037610

037610
037610
037612
6144 037614
6145 037616
6146
6147 037620
6148 037620
6149 037621
6150 037622
6151 037624
6152

MACRO Y05.02

.WORD
. WORC
.WORD
. WORD

.BYTE
.BYTE
.WORD
.BLK8
ENDTST

104401

P.WRTSUB!P
ACK
116072

0
10.

RrOOO

TSVS

tWRITE SUBSYSTEM WITH ACK
;LOW ADDRESS OF DATA BLOCK
;HIGH ADORESS OF DATA BLOCK
;MINIMUM MESSAGE PACKET SIZE
:DATA BLOCK
;BSELO
;B8SELL
;SEL2

;WRITE FIFO DATA OQUTPUT BUFFER

L10053:

TRAP

CSETSY

MARDWARE

MACRO

Y05.02

Mondey

16-Sep-85

10:39

Page

SEQ 0147

FIFO EXERCISER

6156
6157
6158
6139
6160

.SBTTL
:
:

This

:
:

FIFO EXERCISER

test

uses

the

Write

verify the controller
control logic.

6164

DESCRIPTION:

6162
6163

Subsystem Memory

command

;3
:
:
:
H
H
:
:

REPEAT FOR LOOPCNT
BEGIN
Do Subtest 1
Do Subtest 2
Do Subtest 3
Do Subtest 4
Do Subtest 5
ENODo Subtest 6

FIFO
FIFO
FIFO
FIFO
FIFO
FIFO

Initislize status test
Write Singlc Byte test
Write Multiple Bytes test
Verify ILW Status test
Input Ready test
Verify Reset FIFO test

BGNTST

MOV

JSR
T17L00P CL

.SBTTL

#TST171I0,R0

;ASCII MESSAGE TO IDENTIFY TEST

€10. ,LOOPCNT

;00 INITIAL

TEST

;PERFORM

ITERATIONS

PC,TSTSETUP

PC,KTOFF
KTENABLE

TEST

SETUP

:SHUT OFF MEMORY MANAGEMENT
;REALLY SHUT DOWN KT-11

SUBTEST

FIFO INITIALIZE

STATUS

TEST

SUBTEST

SUBTEST DESCRIPTION:

This test verifies, by uoing the Read Status select code.
thet the FIFO stetus 18 in
the correct initial state after
the controller is initiaslized (Input Ready TRUE,

Output Ready and Date In Miss FALSE). These status
signals sre checked by the controller's self-test

sequence, 80 this subtest is actually more of a partisl
check of the Resd Status function than ‘he FIFQ status.

TEST STEPS:

B
W

002216

JSR

BEGIN

Write

Be G0

046156
016510
000012
017274
003134

012700
004737
012737
004737
005037

s FIFO and essocisted status end

TEST STEPS:

6165
6166
6167
6168
6169
6170
6171
6172
6173
6174
6175
6176
6177
6178 037726
037726
6183 037726
6154 037732
6185 037736
6186 037744
6187 037750
6188 037754
6189
6190
6191
6192
6193
6194
6195
6196
6197
6198
6199
6200
6201
6202
6203
6204
6205
6206
6207
6208
6209

TEST

6161

TEST

* 0

TESTS

TEST

TSVS

END

Do
Do
If
If
If

to TSSR

to soft

initislize

@ WRITE CHARACTERISTICS to setup @ message buffer
& WRITE SUBSYSTEM Read Status
Input R:ady
NOT=1
Then Print Error
Output Ready NOT=0
Then Print Error
Date In Miss NOT=0
Then Print Error

TSVS

TEST

MARDWARE TESTS

SUBTEST 1:

MACRO Y05.02

Mondey

Page 84-1

SEQ 01438

BGNSUB

6217 037754
037754
037754

3 /77777777777 BE(%%NISWTEST /71777777777

T
Write to TSSR register

015774

002222
047550
010662

10¢:

PC,SOFINIT
104

ERRDF

ERRNO,SFIERR,SFIMSG

FORCERROR
MOV

RO,R1

S04
:

INC
CkLooP

C$8SUB

initielize the controiler

;WRITE TO TSSR TO SOFT INITIALIZE
1BR IF SOFT INIT OKAY

s SAVE

CONTENTS OF

TSSR

FATFLG

; 39DFORCE

ERROR IF FORCER=1

;B8R IF CARRY SET (GOOD RETURN)
:SAVE

CONTENTS

OFf

TSSR

;:DEVICE FATAL

SSR FAILED TO SET
TRAP
CS$ERDF
.WORD
601
.MORD
T17SSR
.WORD
PKTSSR
:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET
TRAP

CsCLP1

Do & Write Subsystam READ STATUS
JSR
PC,.T17SRD
:SETUP PACKET FOR READ STATUS
MOV
OT17PK2,R4
;GET WRITE SUBSYSTEM COMMAND PACKET
MOV
R4 ,TSDB(RS)
;:SET THE PACKET ADDRESS TO EXECUTE
JSR
PC,CHKTSSR
;WAIT FOR SSR TO SET

FORCERROR

624:

000020
000040

424

B8CS

047516
045752
047612

504

NEXT.ERRNO
ERRDF
ERRNO,T17SSR,PKTSSR

047334
047720
000000
016336

002222

RO,R1

IRAP

sDEVICE FATAL DURING INITY
TRAP
CSERDF
.
600
SFIERR
.WORD
.WORD
SFIMSG
Do a WRITE CHARACTERISTICS to setup e message buffer
CLR
FATFLG
;:CLEAR FATAL ERROR FLAG
MOV
OT17PACKET R4
;GET THE ADORESS OF COMMAND PACKET
JSR
PC,WRTCHR
:+00 WRITE CHARACTERISTICS COMMAND
8CS

002222

to soft

JSR
BCS
MOV

037774
037776

10:39

FIFO INITIALIZE STATUS TEST

6216

037756
037756
037762

16-Sep-85

704
:

704

624

MOV
RO,R1
NEXT.ERRNO
ERRDF
ERRNO,T173SSR,PKTSSR

; 390FORCE ERROR

IF FORCER=1

;BR 1IF CARRY SET (GOOD RETURN)
;SAVE CONTENTS OF

:DEVICE FATAL

TSSR

SSR FAILED TO SET

Tss:o

.WORD
.WORD

INC
CKLOOP

FATFLG

MOV
MOV

#T17EXSTA,R1
#T17BFSTA,R2

:GET EXPECTED READ STATUS
:GET RECY READ STATUS

8IC

€52 .0UTRDY, (R1)

:SET EXP OUTPUT READY= FALSE

CS$ERDF

602

T173SSR
PKTSSR

:SET FATAL ERROR FLAG
;:LOOP ON ERROR, IF FLAG SET
TRAP
CsCLP1
Set WORDS 0-7
of expd message buffer = to recv since not testing
JSR
PC,T17SETEXP
:SET WORDS 0-7 EXPD=RECV

MOV
MOV
8IS

(R2)+,(R1)e
(R2),(R1)
#S2.INRDY,(R1)

:SET EXPD WORD #8 = RECV TEMP
;:SET EXPD WORD #9 = RECV TEMP
SET EXP INPUT READY= TRUE

MARDWARE TESTS

TEST

SUBTEST 1:

Monday

16-Sep-85

10:39

Page 84-2

SEQ 0149

FIFO INITIALIZE STATUS TEST

6257 040156
6258

042711

040162
040164
040170
040174
040200
040204
040214
040216
040216
040216
040220

005000
012701

6259

MACRQ Y05.02

012702
012703
004737

B8IC

000200

MOV
MOV
MOV

82¢:

904
:

104406

#T178FR,R1
eT17EXP,R2
#20..R3

JSR

PC,CKMSG2

8Cs

904

FORCERROR

103404

001133
046515
012350

{1SET EXP DATA IN MISS = FALSE

1LOW "ECV ADDRESS FOR CKMSG2
+EXPL _ADDRESS
1NUMBER OF BYTES TO COMPARE

824 ,NOTSSR

NEXT.ERRNO
ERRHRD
ERRNO,T171CMP,MSGSTAT

+EXPD EQUAL RECV?
880

1BR IF YES
;REPORT ERROR

001402
004737

002222
017202

603
T171CMP
MSGSTAT

TRAP

cscLPl

IF FLAG SET

ENDSUB

$//////7//7777 END SUBTEST /777777777
L10057:

TST

FATFLG

;:ANY FATAL ERRORS

JSR

PC,CKDROP

;TRY TO DROP THE UNIT

.SBTTL

TEST

1604

:BRANCH IF NOT

SUBTEST 2:

TRAP

FIFO WRITE SINGLE BYTE TEST

TEST 6:

SUBTEST 2:

i SUBTEST DESCRIPTION:
This subtest verifies the ability of the FIFO to correctly
pass a single data byte from ingut to output. For each

of 256 data values (0-377 octal)
.

BEGIN

the following

is done:

Initial FIFO stetus is checked
The Write FIFQO function, specifying a count of
one byte to be written is executed.
Read
Status is executed and FIFO status is checked.
BcathIEOGis executed and the data and final status
is

TEST

CSERHRD

.MORD
.WORD
.WORD

;LOOP ON ERROR,

B8EQ
:
1604

TRAP

ckLoopP

104403
005737

If Output Ready NOT=0 or Data in Miss NOT=0 Then Print Error
CLR
RO
+HIGH RECV ADDRESS FOR CKMSG2

047572
045732
000024
011500

104456

052.0IM,(R1)

If Input Ready NOT=1 then Print Error

TSVS

checked.

STEPS:

Write to TSSR to soft

Do
Do
If
If
if

initialize

@ WRITE CHARACTERISTICS to setup @ message buffer
a Write Subsystem READ STATUS
Input Ready
NOT=}
Then Print Error
Output Ready NOT=0
Then Print Error
Data In Miss NOT=0
Then Print Error

REPEAT FOR DATA FROM O TO 377 OCTAL
BEGIN

C4ESLB

TSVS

- HARDWARE TESTS

TEST

MACRO Y05.02

Monday

16-Sep-85 10:39

Page 84-3

SEQ 0150

SUBTEST 2: FIFO WRITE SINGLE BYTE TEST
Do a Hrite Subsystem WRITE NPR to set tape direction out
Do a Write Subsystem WRITE FIFO with byte count equal to 1

END
END

Do
If
If
If
Do
If
Do
If
If
If

a Write Subsystem READ STATUS
Input Ready
NOT=1
Then Print Error
Output Ready NOT=}
Then Print Error
Data In Miss NOT=0
Then Print Error
Write Subsxoton READ FIFO with byte count equal to 1
Data read
from FIFO NOT= to Deta sent Then Print Error
a Write Subsystem READ STATUS
Input Ready
NOT=1
Then Print Error
Output Ready NQT=0
Then Print Error
Data In Miss NOT=0
Then Print Error

BGNSUB

3 /77777777777 BE(%%NZSUBTEST /1777777777

104402
Write to TSSR

004737
103405

015774

003652
012034

002222
047550
010662

10¢:

002222

S0¢:

+WRITE TO TSSR TO SOFT INITIALIZE

;BR IF SOF1

INIT OKAY

ERRNO,SFIERR,SFIMSG

;:DEVICE FATAL DURING INIY

:SAVE CONTENTS OF TSSR

TRAP

Do a WRITE CHARACTERISTICS to setup o nosoafoebuf¢cr
CLR
FATFLG
;CLEAR FATA
RROR FLAG

MOV

O@T17PACKET ,R4
PC,WRTCHR

SO0

424

MOV
RO,R1
NEXT .ERRNO
ERROF
ERRNO,T17SSR,PKTSSR

INC
CKLOOP

.WORD
.WORD
.WORD

MOV

; 880FORCE EPROR IF FORCER=1

;B8R IF CARRY SET (GOOD RETURN)
: SAVE CONTENTS OF

TSSR

sDEVICE FATAL SSR FAILED TO SET
TRAP
CS$EROF

;SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET
TRAP

0T17PK2 R4

WRITE

CscLPl

SUBSYSTEM COMMAND PACKET

R4, TSDB(RS)
PC,CHKTSSR

;SET THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SSR 10 SET

8CS

704

:BR IF CARRY SET (GOOD RETURN)

MOV

62%:

tGET

604
T17SSR
PKTSSR

MOV
JSR

FORCERROR

103407
010001

603
SFIERR
SFIMSG

;00 WRITE CHARACTERISTICS COMMAND

Do a Write Subsxstcm READ STATUS
JSR
PC,T17SRD
:SETUP PACKET FOR READ STATUS

047334
047720
000000
016336

CSERDF

;GET THE ADDRESS OF COMMAND PACKET

.WORD
.WORD
.WORD

FATFLG

C$8SUB

initialize the controller

104

FORCERROR

424
:

104406

104455
001135

RO,.R1

8Cs

104455
001134

004737
012704
010465
004737

MOV

JSR

103407
010001

046175
012046
005237

PC,SOFINIT

ERRDF

104455
001133

005037
012704
004737

JSR

8CSs

010001

TIRAP

RO,R1

624

NEXT .ERRNO
ERROF
ERRNO, T173SSR,PKTSSR

:980FORCE ERROR IF FORCER=~1

:SAVE

CONTENTS OF

TSSR

sDEVICE FATAL SSR FAILED TO SET
CS$ERDF
TRAP
.WORD
605

TSVS - HARDWARE TESTS
TEST

SUBTEST 2:
040404

6351
6352

6353
6354

MACRO Y05.02

Mondsy

16-Sep-85

10:39

Page 84-4

SEQ 0151

FIFO WRITE SINGLE BYTE TEST

046276
012046
005237

002222

704:

104406

004737
012701
012702
012221
011211
052711
042711
042711
005000
012701
C12702
012703
004737

047516
045752
047612

1GET
+GET
+SET
:SET

8IC

©#52.0UTRDY, (R1)

;:SET EXP OUTPUT REAODY= FALSE

052.INRDY,(R1)
#52.0IM,(R1)

If Output Ready NOT=0 or Data
CLR
RO
MOV
OT178FR,.R1
MOV
MOV

JSR

011500

OT17EXP ,R2
920.,R3

PC,CKMSG2

FORCERROR

824%:

104456

001136
0463515
012350

904
:

104406
002312

824 ,NOTSSR

8CS

90¢

ERRHRD

ERRNO,T171CMP,MSGSTAT

NEXT
. ERRNO

CKLOOP

CsCLPL

EXPECTED READ STATUS
RECV READ STATUS
EXPD WORD #8 = RECV TEMP
EXPD WORD #9 = RECV TEMP

1SET EXP INPUT READY= TRUE

;SET EXP DATA IN MISS = FALSE

Repeat for DATA from 0 to 377
MOV
#0,DATA
1004:
:

;:EXPD ADORESS
sNUMBER OF BYTES TO COMPARE

:EXPD EQUAL RECV?
1 880

+BR IF YES
:REPORT ERROR

TRAP

.WORD
.WMORD
.WORD
IF FLAG SET
TRAP

CSERHRD

606
T171CMP
MSGSTAT
CsCLP1

;GET FIRST DATA

sREPEAT LABEL
Do a Write Subsystem WRITE NPR to set t
direction out
MOV

ONP . OUT RO

;SET

TAPE

DIRECTION OUT

JSR
MOV
MOV
JSR

PC,T17SNPR
#T17PK2,R4
R4,TSDB(RS)
PC,CHKTSSR

:SETUP T17PK2 FOR WRITE NPR
;:GET WRITE SUBSYSTEM COMMAND PACKET
+SET THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SSR TO SET

8CS

1054

:BR IF CARRY SET (GOOD RETURN)

FORCERROR

105%:

in Miss NOT=0 Then Print Error
sHIGH RECV ADORESS FOR CKMSG2
;LOW RECV ADDRESS FOR CKMSG2

;LOOP ON ERROR,

102%:

000001
002312
047422

TRAP

If Input Ready NOT=1 then Print Error

000024

002222

;LOOP ON ERROR, IF FLAG SETY

OT17EXSTA,RL
OT176FSTA,R2
(R2)+,(R1)»
(R2),(R1)

8IC

047572
045732

000100
047376
047720
000000
016336

;SET FATAL ERROR FLAG

MOV
MOV
MOV
MOV

8IS

000020
000040
000200

000000

FATFLG

Set WORDS 0-7 of cxgd message buffer = to recv since not testing
JSR
PC,T17SETEX
;SET WORDS 0-7 EXPD=RECV

103404

012737

INC

CKLOOP

T173SSR
PKTSSR

.WORD
.WORD

1024

MOV
RO,R1
NEXT.ERRNO

ERRDF

; 380FORCE ERROR IF FORCER=1

:SAVE

CONTENTS OF

TSSR

ERRNO, T174SSt. ,PKTSSR

;DEVICE FATAL SSR FAILED 7O SET
TRAP
.MORD
.WORD
.WORD
INC
FATFLG
sSET FATAL ERROR FLAG
CKLOOP
;LOOP ON ERROR, IF FLAG SET
TRAP
Do a Write Subsystem WRITE FIFO with byte count equsl to 1

MOV

1,R0

;WRITE

JSR

PC.T17WFIF

:SETUP T17PK2 FOR WRITE FIFO

MOV

ODATA,R]1

1 BYTE

;FIFO WRITE DATA ADDRESS

CSERDF
607
T174SSR
PKTSSR
cscLPL

TSVS - HARDWARE

TEST

SUBTESTY 2:

6395 040624

040630
040634
040640
040634
040636
040660
040660
040660
040662
040664
040666
6403 040670
6404 040674
040674

6396
6397
6398
6399
6400
6401
6402

'_STS

MACRO Y05.02

Monday

16-Sep-85 10:39

Page 84-5

SEQ 0152

FIFO WRITE SINGLE BYTE TEST

012704
010465
004737

047720
000000
016336

107¢:

104455

002222

104406
047334
047720
000000
016336

002222

104406

005000
012701
012702
012703
004737

047516
045752
047612

000020
000040
000200

001142

046673
012350

1074

RO,R1

NEXT
. ERRNO
ERRDF
ERRNO, T175SSR,PKTSSR

1 880FORCE ERROR IF FORCER=1

1 SAVE CONTENTS OF TSSR

:DEVICE FATAL SSR FAILED TO SET
TRAP
.MORD

Do a Write Subo‘.tcn READ STATUS
JSR
MOV
MOV
JSR

PC.T
oT17PK2,R4
R4, TSDB(RS)
PC,CHKTSSR
FORCERROR
1123
8CS
120¢
RO,R

:SET_THE PACKET ADDRESS TO EXECUTE
tWAIT FOR SSR TO SET
: 880FORCE ERROR IF FORCER=1
:BR IF CARRY SET _(GOOD RETURN)
:SAVE CONTENTS OF TSSR

120¢:

CKLOOP

Set WORDS 0-7 of expd message bufggr

:
:

047572
045732
0v0024
011500

FATFLG

;:DEVICE FATAL SSR FAILED 7O SET

:SET FATAL ERROR FLAG
:LOOP ON ERROR,

JSR
MOV
MOV
MOV

PC,T17SETEX
oT17EXSTA,R1
0T1768FSTA,R2

8IS
8IS
BIC

#52.INRDY,(R1)
0S2.0UTRDY,(R1)
#52.0IM,(R1)

MOV
MOV
JSR

eT17EXP,R2
420.,R3
PC,CKMSG2

B8CS

140%

ERRHRD

ERRNO,T173CMP ,MSGSTAT

(R2)+,(R1)»
(R2),(R1)

TRAP
.HORD
.WORD
.MORD

CSERDF
609
T173SSR
PKTSSR

IF FLAG SETY

TRAP
CsCLP1
to rocv since not testing

T WORDS
0-7 EXPO=RECV

:GETY EXPECTED READ STATUS

:GET
;SET
:SET
1SET
1SET
;SET

RECV READ STATUS
EXPD WORD #8 = RECV TEMP
EXPD WORD #9 = RECV TEMP
EXP INPUT READY= 1
EXP QUTPUT READY= 1
EXP DATA IN MISS = O

If Input Ready NOT-I then Print Error
If Outpusofloody NOT=1 or Data in Miss NOT=0 Then Print Error
CLR
s+HIGH RECV ADDRESS FOR CKMSG2
MOV
#T178FR,R1
:LOW RECV ADDRESS FOR CKMSG2

FORCERROR

1324:

csCLP1

;GET WRITE SUBSYSTEM COMMAND PACKET

112%:

MOV

TRAP

;SETUP PACKET FOR READ STATUS

NEXT .ERRNO
ERRDF
ERRNO, T173SSR,PKTSSR

INC

.WMORD
.WORD

C$EROF
608
T175SSR
PKTSSR

:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SETY

FATFLG

103404
104456

;B8R IF CARRY SET _(GOOD RETURN)

MOV

104455

004737
012701
012702
012221
011211
052711
052711
042711

11C4

INC
CkLooP

103407

005237

8CS

110%:

010001

001141
046276
012046

;GET WRITE SUBSYSTEM COMMAND PACKET
;SET THE PACKET ADDRESS TO EXECUTE
tWAIT FOR SSR TO SET

MCY

010001

004737
C12704
010465
004737

oT17PK2,R4
R4 ,TSDB(RS)
PC,CHKTSSR

FORCERROR

103407

001140
046406
012046
005237

MOV
MOV
JSR

NEXT .ERRNO

1324 ,NOTSSR

sEXPD ADORESS
tNUMBER OF BYTES TO COMPARE
sEXPD EQUAL RECV?
; 980
:BR IF YES
sREPORT ERROR

TRAP
.WORD
.WORD
.WORD

CSERHRD
610
T173CMP
MSGSTAT

TSVS - HARDWARE TESTS

TEST

SUBTEST 2:
041054
041054

041056

041062
041066

041072
041076
041102
041116
041120
041122

MACRO Y05.02

Mondey

16- Sep-85

FIFO WRITE SINGLE BYTE TEST
140¢:

104406

012700
004737
012704
010465
004737

JSR

004737
012701
012702
013721
011211
005000
012701
012702
012703
004737

;:LOOP ON ERROR, IF FLAG SEY

TRAP

CsCLP1

READ BYTE COUNT

PC,T17RFIF

150%:

;SETUP T17PK2 FOR READ FIFO

;GET WRITE SUBSYSTEM COMMAND PACKET
;SET THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSR TO SET
; 980FORCE ERROR IF FORCER=1
sBR IF CARRY SET (GOOD RETURN)
; SAVE CONTENTS OF TSSR

;DOEVICE FATAL SSR FAILED TO SEY
TRAP
.WORD
.WORD

.WORD
;SET FATAL ERROR FLAG
sLOOP ON ERROR, IF FLAG SET

FATFLG

CSEROF
611
T176SSR

PKTSSR

CSCLPL

Set WORDS 0-7 of cxgd message buffer = to rocv since not tootung
JSR
PC,T17SETEX
sSET WORDS
0-7 EXPD=RECV

047516
045752

MOV
MOV
MOV
MOV

047612

002312

OT17EXSTA,RL
OT178FSTA,R2
DATA,(R1).
(R2),(R1)

:GET
:GET
;SET
;SET

EXPECTED READ STATUS
RECV READ STATUS
EXPD WORD #8 = COUNT DATA
EXPD WORD #9 = RECV (NOT TESTING)

If Data read from FIFO NOT= to Data sent Then Print Error
The data

045732

011500

001144
046577
013742

104406

in WORD 08 of

CLR

MOV
JSR

#18.,R3
PC,CKMSGR

MOV
MOV

047572

104456

the mess

#T178FR,.R1
OT17€XP,.R2

FORCERROR

1528 ,NOTSSR

152%:

8Cs
160¢
NEXT.ERRNO
ERRHRD
ERRNO,T172CHMP, MSGSUB

160¢:

CKLOOP

sHI

buffer

RECV ADDRESS FOR CKMSG2

;:LOW RECV ADDRESS FOR CKMSG2
;EXPD ADDRESS

siNUMBER OF BYTES TO COMPARE
:EXPD EQUAL. RECV?
;: 880

:BR IF YES
;REPORT ERROR

;LOOP ON ERROR,

TRAP
.WORD
.WORD
.WORD
IF FLAG SET
TRAP

CSERHRD
612
T172CMP
MSGSUB

CsCLP1

Do a Write Subs‘ston READ STATUS
JSR
PC.T
;SETUP PACKET FOR READ STATUS

047334
047720

MOV
MOV

000000
016336

0T17PK2 R4
RC.TSDB(RS)

JSR

PC.CHKTSSR

8cs

170

ERRDF

ERRNO, T173SSR,PKTSSR

FORCERROR

103407
010001

104455
001145

SEQ 0153

INC
CKLOOP

103404

004737
012704
010465
004737

84-6

1428

103407

104406

soc

MOV
oT17PK2,RA
MOV
R4 ,TSDB(RS)
JSR
PC,CHKTSSR
FORCERROR
142¢
BCS
1504
MOV
RO,R1
NEXT .ERRNO
ERRDF
ERRNO,T176SSR,PKTSSR

016336

002222

Do Write Sussyoton READ FIFO uuthsb te count
equeal to 1

010001

012046
C05237

10:39

CKLOoOP

MOV

000001
047456
047720
000000

104455
001143
046452

*°

:
1624

MOV
RO,R1
NEXT .ERRNO

1624

:GET WRITE SUBSYSTEM COMMAND PACKET
;SET THE PACKET ADDRESS TO EXECUTE

sWAIT FOR SSR T0 SET

880FORCE ERROR

IF FORCER=1

;BR IF CARRY SET (GOOD RETURN)
;SAVE CONTENTS OF

TSSR

;DEVICE FATAL SSR FAILED TO SET
TRAP

.WORD

CSERDF
613

TSVS

- HARDWARE TESTS

TEST

SUBTEST 2:
041274
041276
041300
041304

041304

MACRO Y05.02

Mondey

16-Sep-85

10:39

Page 84-7

SEQ 0154

FIFO WRITE SINGLE BYTE TEST

046276
012046
005237

002222

170¢:

104406
004737
012701
012702
012221

MOV

:SET FATAL ERROR FLAG
;:LOOP ON ERROR, IF FLAG SE;P

#T17EXSTA,R1

MOV

1GET EXPECTED READ STATUS

#T17BFSTA,R2

MOV
MOV

047572
045732
000024
011500

1GET RECV READ STATUS

#T178FR,R1
#T17EXP ,R2

MOV
JSR

sLOW RECV ADDRESS FOR CKMSG2
1EXPD ADDRESS

920. ,R3
PC,CKMSG2

FORCERROR

tNUMBER OF BYTES TO COMPARE
zEXPD EQUAL RECV?

1724 ,NOTSSR

172%:

BCS
180¢
NEXT
. ERRNQ
ERRHRD
ERRNO, T174CMP ,MSGSTAT

180¢:

ckLOoOP
FORCEXIT

INC

000377
2054
:

cHe
BHI
JHP

: 880

sBR If YES
;:REPORT ERROR

;LOOP ON ERROR,
205%

DATA

TST

002222
017202

260%¢:

CS$ERHRD
614
T174CMP
MSGSTAT

TRAP

CsCLP1

sGET NEXT TEST DATA

OATA, 8377
2054
1004

;:OONE
O TO 377
:BR IF YES
;00 ANOTHER TEST PATTERN

$///7/5////77//7/7 ENO SUBTEST /777777777
L10060:

104403
005737

TRAP
.WORD
.HWORD
.WORD

IF FLAG SET

; 880

ENDSUB

001402
004737

CsCLP

MOV
(R2)+.(R1).
:SET EXPD WORD #8 = RECV TEMP
MOV
(R2),(R1)
;SET EXPD WORD #9 = RECV TEMP
BIS
#S2.INRDY,(R1)
:SET EXP INPUT READY= 1}
81C
#S2.0UTRDY, (R1)
:SET EXP QUTPUT READY= O
BIC
#52.0IM, (R1)
;SET EXP DATA IN MISS = O
If Input Ready NOT=1 then Print Error
If Output Ready NOT=0 or Data in Miss NOT=0 Then Print Error
CLR
RO
s1HIGH RECV ADORESS FOR CKMSG2

000020
000040
000200

040526

FATFLG

Set WORDS 0-7 of .xgd message buffer = to rccv since not testing
JSR
PC,TL17SETEX
1SET WORDS
0-7 EXPD=RECV

047516
043752
047612

002312
002312

INC
CkLOOP

T173SSR
PKTSSR

.WORD
.WORD

FATFLG

8EQ
JSR

2604
PC.CKDROP

.SBTTL

TEST

sANY FATAL

ERRORS

TRAP

:BRANCH IF NOT
s TRY TO DROP THE UNIT
SUBTEST 3:

FIFO WRITE MULTIPLE BYTES TEST

TEST 6:

SUBTEST 3:

; SUBTEST DESCRIPTION:
This

subtest

verifies

the

?oo. @ multiple dets bytes
he

following sequence

ability

from

is done

input

with

the FIFO to correctly

to output.

verious

dats patterns

CS$ESUB

TSVS - HARDWARE TESTS

16-Sep-85 10:39

Page 84-8

SEQ 0155

SUBTEST 3: FIFO WRITE MUTIPLE BYTES TEST
G*

and byte counts from 2 to 64.
1. Initiel FIFO etatus

is checked
The MHrite FIFO function.
Read Status is executed and FIFO status is checked.
Read FIFO is executed and the data and final status
is checked.

TEST STEPS:

BEGIN

2.
3.
4.

V6
G2

If Input Ready NOTIf Output Reedy NQT=0
If Oot. In H-.o NOT=0
L
Ir

BC
VO

initielize

t Word

NOT=0

Then Print Error
Then Print Error
Then Print Error
Then Print Error

REPEAT FOR DATA O TO 377, 377 10 O, FLOATING 1'S.0'S AMD ALL
RE:ESINFOR BYTE COUNT 2 TO 64 DECIMAL

1'S/70'S

V¢

Write to TSSR to soft

Do a WRITE CHARACTERISTICS to setup s message buffer
Do e lrite Subsystem READ STATUS

Ve
WO
B¢

Monday

TEST

MACRO v05.02

ENO
END

Do
Do
Do
If
If
If
If
Do
If
Do
If
If
If
If

@ Write Subsystem WRITE NPR to set tape direction out
a Hrite Subsystem WRITE FIFOQ
a MHrite Suboyoto- READ STATUS
Input Ready
NQTe}
Then Print Error
Output Reedy NOT=1
Then Print Error
Deta In Miss NOT=0
Then Print Error
Last Word
NOT=0
Then Print Error
Write Subo;otc- READ FIFO
Date read
Prom FIFO NOT= to Deta sent Then Print Error
& Write Subsystem READ STATUS
Input Ready
NOT=}
Then Print Error
Output Ready NOT=0
Then Print Error
Deta In Miss NOT=0
Then Print Error
Last Word
NOT=0
Then Print Error

BGNSUB

1777777777777 BE?%NSSWTEST 17777777777

T
Write to TSSR

015774

002222
047550
010662

JSR
ecs
MOV
ERRDF

to so’t

PC,SOFINIT
10¢
RO,R1
ERRNO,SFIERR,SFIMSG

FATFLG

C48SUB

inicislize the controller

sWRITE TO TSSR TO SOFT INITIALIZE
1BR IF SOFT INIT OKAY
1 SAVE CONTENTS OF TSSR
:OEVICE FATAL DURING INIT

0o & WRITE CHARACTERISTICS to oct

CLR

TIRAP

o ...:En buffer

AR FAT

TRAP
.MORD
.WORD
.MORD

CSERDF
614
SFIERR
SFIMNSG

ERROR FLAG

MOV
JSR

OT17PACKET. R4
PC,WRTCHR

sGE THE ADORESS OF COMMAND PACKET
100 WRITE CHARACTERISTICS COMMAND

8cs

S0¢

18R IF CARRY SET (GOOD RETURN)

FORCERROR

424

1 88DFORCE ERROR IF FORCER=1

TSVS

TEST

MARDWARE

6380
6581
63582

TESTS

SUBTEST 3:

MACRO Y05.02

Mondey

16-Sep-85 10:39

Pege 84-9

SEQ 0156

FIFO WRITE MATIPLE BYTES TEST

MOV

010001
424

104453
001147
046173

012046
003237

002222

104406

004737

S04
:

RO,R1

NEXT .ERRNO
ERRDF
ERRNO,T17SSR,PKTSSR

INC

CKLOOP

FATFLG

JSR

704
:

PC.T17SRD

615
T17SSR
PXTSSR

IF FLAG SETY

TRAP

CsCLP1

oT17PK2
R4
R4 ,TSOB(RS)

1SETUP PACKET FOR READ STATUS
1GET WRITE SUBSYSTEM COMMAND PACKET
sSET THE PACKET ADORESS TO EXECVUTE
sWAIT FOR SSR TO SEY

8CSs
MOV

70
RO,.R}1

tBR IF CARRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR

1 880FORCE ERROR IF FORCER=1

NEXT.ERRNO
ERRDF
ERRNO.T173SSR,PKTSSR

INC

CxLooP

FATFLG

PC,T17SETE

MoV

(R2)+,(R1).

sDEVICE FATAL SSR FAILED TO SETV
TRAP
.WORD
.MORD
.

616
T173SSR
PKTSSR

TRAP

CiCLP]

B’

OTi7EXSTA, R
OTLTBFSTA, R2

sessage buffer = to mv since not testi
T WORDS 0-7 EXPO-RECV

(R2),(R1)

1 SE

lGET
1GET
1SEY
1SET
1SFT
:SET
sSET

EXPECTED READ STATUS
RECV READ STATUS
EXPD WORD #8 = RECV TEMP
EXPD WORD #9 = RECV TEMP
EXP INPUT READY=
)
EXP QUTPUT READYe
O
EXP DATA IN MISS = O

8IS
052. INRDY, (R1)
8IC
osz OUTROY, (R1)
81C
052.01IM, (R1)
81C
€52.ILu. (R1)
3SET EXP LAST WORD (ILW)=0
If Input Ready NOT=1 then Print E-m
I? Output Ready NOT=0 or Dete in Nios NOT=0 Then Print Error
17 Lest bNord
NOT=0
Then Print Error
CLR
RO
sHIGH RECY ADORESS FOR CXMSG2
MoV
OT178F
. R1
R
sLOM RECV ADORESS FOR CXMSG2
Hov
OT17EXP ,R2
sEXPO ADORESS
MoV
020. .R3
IWR OF BYTES TO COMPARE
CxnsGe
$EXPO EQUAL RECV?
F ORCERROR
824 .NOTSSR
: 880
:'fl IF YES
ERRMRD

CxXLOOP

CSERDF

1SET FATAL ERROR FLAG
1LOOP ON ERROR, IF FLAG SET

JSR

nov
MoV

011500

.WORD
.MORD
.WORD

MoV
MOV

Set WORDS 0-7 of ¢

047572
0435732

1LOOP ON ERROR,

PC.CHKXTSSR
FORCERROR
624

624:

1tOEVICE FATAL SSR FAILED TO SET
TRAP
CSERDF

1SET FATAL ERROR FLAG

Do & WHrite Sc.b;‘oto- READ STATUS

047334
047720
000000
016336

1 SAVE CONTENTS OF TSSR

ERAND, T171CMP ,MSGSTAT

tREPORT ERROR

:LOOP ON ERROR,

TRAP

.MORO
LMORD
.MORD
IF FLAG SET

TRAP

‘"o

.
;

CSERRD

617
Ti1710W
NMSGSTAY

CiCLP)

TSVS

TEST

HARDWARE

TESTS

SUBTEST 3:

MACRO Y05.02

Monday

16-Sep-85

10:39

Page 84-10

SEQ 0157

FIFO WRITE MULTIPLE BYTES TEST

6622
6623
6624
6625

012737

000001

002314

012737

000002

002310

REPEAT FOR
TSTFLAG =1
=2
=3
MOV
95%:
MOV
100%:

002222

105%:

046054
047422
047720

10S$

ERRDF

ERRNO, T174SSR,PKTSSR

;DEVICE FATAL SSR FAILED TO SET

MOV
RO,R1
NEXT.ERRNO

INC
CKLOOP
JSR
MOV
MOV

002314

000377

002310

8CS

:SET TAPE DIRECTION OQUT
1SETUP T17PK2 FOR WRITE NPR
:GET WRITE SUBSYSTEM COMMAND PACKET
1SET_THE PACKET ADDRESS TO EXECUTE
+WAIT FOR SSR TO SEY
; 880FORCE ERROR IF FORCER=1
;BR IF CARRY SET (GOOD RETURN)

ONP,OUT ,RO

FATFLG

Do a Write Subsystem WRITE FIFO

110¢:

0uv2752

PC,T17SNPR

MOV
OT17PK2 ,R4
MOV
R4 ,TSDB(RS)
JSR
PC,CHKTSSR
FORCERROR
1024

102%:

000003

;GET FIRST BYTE COUNT

JSR

MOV

016336

000002

@2 ,COUNT

Do a Write Subsystem WRITE NPR to set tepe direction out

000100
047376
047720
000000

047476
046054
002310
000001

BYTE COUNT 2 TO 64 DECIMAL
FOR INCREMENT TEST PATTERN
FOR DECREMENT TEST PATTERN
FOR TSTBLK TABLE PATTERN
01,TSTFLAG
: TEST PATTERN FLAG

115¢:
120%:

002314

125%:

130s:

135s:

cHe
BNE
CLR

MOVB
INC

DEC
8GT
cmp
BNE
MOV
MOVS
DEC
DEC
8GT
cHP
BNE

PC,T17CLEXP
@T17WFDATA,R]
COUNT ,R2
21,TSTFLAG

115
RO

RO,(R1).
RO

R2
1104
82 ,T1STFLAG
125%
4377.R0
RO,(R1)»
RO
R2
120¢
03 ,TSTFLAG
135

;SAVE CONTENTS OF TSSR

.WORD
.WORD
.MORD

CS$ERDF
618
T174SSR
PKTSSR

TRAP

CsCLP1

TRAP

;SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET

;:CLEAR EXPD BIFFER
;EXPD WRITE FIFO DATA BUFFER
;sTEST PATTERN SIZE
s INCREMENT PATTERN THIS TIME THRY?
;B8R IF NO
; INCREMENT TEST PATTERN
;STORE INCREMENT TEST PYTE
;SET NEXT PATTERN
?
;sDONE
;B8R

IF NO

;:DECREMENT PATTERN THIS TIME THRU?

;B8R IF NO
;sDECREMENT

TEST PATTERN

;STORE DECREMENT TEST BYTE
;sSET NEXT PATTERN
?
;DONE

:BR IF NO
;TSTBLK PATTERNS THIS TIME
;BR

IF NO

THRU?

DEC
8GT

&TSTBLK
RO
(RO)+,(R1).

R2
130%

sFLOAT 1'S/0°'S ETC. TEST TABLE
:STORE A TSTBLK BYTE
?
:DONE
;:BR IF NO

MOV

COUNT RO

JSR
MOV
MOV

PC,.T17WFIF
. R4
oT17PK2
R4, TSDB(RS)

;FIFO BYTE COUNT
;FIFO WRITE DATA ADDRESS
;SETUP T17PK2 FOR WRITE FIFO
;GET WRITE SUBSYSTEM COMMAND PACKET
:SET THE PACKET ADDRESS TO EXECUTE

MOV
HOV8

MOV

OT17WFDATA
R]

TSVS

- MARDWARE

TEST

6674
6675
6676
6677
6670

6679

SUBTEST

TESTS
3:

MACRO

Y05.02

Mondey

Sep-85

1 0:39

Page 84

SEQ 0158

FIFO WRITE MULTIPLE BYTES TEST

004737

016336

JSR
PC,CHXTSSK
FORCERROR
1424
8CS
1504

103407

010001

1424 :

104455
001133

046406
012046

005237

002222

104406
004737
012704
010465
CO4737

047334

005237

ERRDF

ERRNQO, T173SSR,PKTSSR

sDEVICE FATAL

INC

FATFLG

;SET FATAL ERROR FLAG

000020
000040

8IS
8IS

012703
004737

H
047572
045732
0v0024

011500

104456
012350

1624 :

SUBSYSTEM COMMAND PACKET

157¢

;@S0FORCE

ERROR

IF FORCER=}

:BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

SSR FAILED TO SET

;LOOP ON ERROR,

TRAP
.WORD
. WORD
.WORD

TRAP

;SET WORDS
O0-7 EXPD=RECV
;GET EXPECTED READ STATUS

MOV
MOV

(R2)+,(R1).
(R2),(R1)

;SET
;SET

#52.0IM,(R1)
0S2.ILW,(R1)

;SET EXP DATA IN MISS = O
;SET EXP LAST WORD (ILM)=0

8IC
81C
If

;:GET RECV READ STATUS

852 . INRDY , (R1)
952 .0UTRDY,(RY)

Input

Ready

NOT=1

then

CLR
MOV
oV
MOV

RO
#T178FR,R1

OT17EXP ,R2
420. .R3

PC.CKMSG2

EXPD WORD #8
EXPD WORD €9

=
=

RECVY
RECV

;SET EXP INPUT READY- 1
sSET EXP OUTPUT READY= 1

If Output Ready NOT=1 or Date

FORCERROR
16248 ,NOTSSR
8Cs
170¢
NEXT
. ERRNO
ERRHRD
ERRNO,T173CHMP MSGSTAT

CsCLPL

* to rccv since not testing

PC.T17SETEX
0T17EXSTA Rl

07178FSTA.R2

CSERDF
620
T173SSR
PKTSSR

IF FLAG SET

JSR
HOV

JSR

103404

WRITE

;SET THE PACKET ADORESS TO EXECUTE
;WAIT FOR SSR TO SET

Set WORDS O 7 of
e
gd messege buffer

052711
052711
042711
042711

CsCLP1

;SETUP PACKET FOR READ STATUS

sGET

NEX
T, ERRNO

MOV

T175SSR
PKTSSR

.WORD
.WORD

TRAP

1604
RO.R1

CKLOOP

CSERDF
619

IF FLAG SET

8CS
MOV

#T17PK2 R4

FORCERROR

:LOOP ON ERROR,

R4 ,TSDB(RS)
PC.CHXTSSR

047612

005000
012701
012702

;:SET FATAL ERROR FLAG

MOV
JSR

047516
045752

000200
000100

FATFLG

PC,T17SRO

004737
012701
012702
012221
o11211

TRAP
. WORD

JSR

MOV

16048

TSSR

;DEVICE FATAL SSR FALLED 1O SET

Do & Hrite Subc;oton READ STATUS

157

104406

INC

ERRNO, T175SSR,PKTSSR

000000
016336

002222

ERROF

;SAVE CONTENTS OF

CxLOOP

103407
010001

001134
046276
012046

MOV
RO.R1
NEXT
. ERRNO

1508 :

047720

104455

;WAIT FOR SSR TO SET
@80FORCE ERROR IF FORCER=1
:BR IF CARRY SET (GOOD RETURN)

TEMP
TEMP

Error

in Migss NOT=0 Then Print Error

sHIGH RECV ADDRESS FOR CKMSG2
;LOW RECV ADDRESS FOR CKXMSGe

sEXPD ADDRESS

;NUMBER OF BYTES TO COMPARE

;EXPD EQUAL RECV?

; 880
:BR IF

YES

;REPORT ERROR

TRAP

.WORD

. WORD
.WORD

CSERHRD
621
T173CrP

MSGSTAT

TSVS

TEST

MARDWARE

TESTS

SUBTEST

6717 042406
042406
6718
6719
6720 042410
6721 042414
6722 042420
6723 042424
6724 042430
6725 042434
6726 042450
67127 042432
6728
6729

MACRO

Y05.02

Mondey

16-Sep 85

10:39

Page

84-12

SEQ 0159

FIFO WRITE MULTIPLE BYTES TEST

170s:

104406

013700
004737
012704
010465
004737

MOV

104406
005000
012702
012701
013703
004737

002310

1804

;B8R IF CARRY

CxLOOP

JSR

192¢:

RO,.R1

FATFLG

MOV

ERRHRD

; 838DFORCE

SET

;:DEVICE FATAL

1924 ,NOTSSR

COUNT ,R1

ERRNO, T175CMP FIFEXP

CKLOOP

FORCER=1

(GOOD RETURN)

FATAL

SSR FAILED TO SET

ERROR

:LOOP ON ERROR,

PLC,CKMSG2

ERROR

TO EXECUTE

:SAVE CONTENTS OF TSSR

;:SET

#T17WFDATA,R2
eT17BFSTA,R1
COUNT ,R3

8cs
2004
NEXT.ERRNO

T17PK2 FOR REARD FIFO

;GET WRITE SUBSYSTEM COMMAND PACKET

FLAG

TRAP
.MORD
.WMORD
.MORD

MOV
MOV

000000

016336

103407

IF FLAG SET
TRAP

CsCLP1

to Dete sent Then Print Error
;HIGH RECV ADDRESS FOR CKMSG2
:GET CXPECTED ADDRESS FOR CKMSG2
:GET RECEIVED ADORESS FOR CKMSG2
;NUMBER OF BYTES TO COMPARE

;EXPD EQUAL RECV?

; 880

:BR IF

;:GET

YES

BYTE

COUNT

;REPORT ERROR

:LOOP ON ERROR,

IF FLAG

TRAP
.WORD
.WORD
.WORD
SET
TRAP

CSERHRD
623
T175CMP
FIFEXP
CsCLrPl

212%:

8T17PK2 R4
R4 ,TSDB(RS)

:GET
;SET

WRITE SUBSYSTEM COMMAND PACKET
THE PACKET ADDRESS TO EXECUTE

JSR
PC,CHXTSSR
FORCERROR
2128

sWAIT FOR SSR TO SET
;@8DFORCE ERROR IF FORCEM=1

MOV
RO,R1
NEXT.ERRNO
ERRDF
ERRNO, T173SSR,PKTSSR

;SAVE

B8CS

2208

:BR IF CARRY SET (GOOD RETURN)
CONTENTS

;DEVICE

FATAL

TSSR

SSR FAILED

TO
TRAP

002222

CSEROF
622
T176SSR
PXTSSR

Do @ Hrite Subslotcn READ STATUS
JSR
PC,T17SRD
;SETUP PACKET FOR READ STATUS

047334
047720

104455
001160
046276

1724

NEXT.ERRNO
ERRDF
ERRNO.T176SSR,PKTSSR

FORCERROR

010001

104406

8Cs

MOV
MOV
MOV

200¢
:

104406

012046
005237

;SET THE PACKET ADORESS
;WAIT FOR SSR TO SET

If Date read from FIFQO NOT=
CLR
RO

046054
047612
002310
011500

104456
001157
047042
012170

004737
012704
010465
004737

R4 ,TSDB(RS)
PC,.CHKTSSR

INC

180s:

103406
013701

MOV
JSR

oT17PK2,R4

CsCLPy

;SET READ BYTE COUNT

(SETUP

FORCERROR

172¢:

TRAP

4 Tl?RFIF

MOV

002222

COUN

IF FLAG SET

JSR

MOV

010001

104455
001156

;:LOOP ON ERROR,

Do Wr.te SubCyotco READ FIFO

002310
047456
047720
000000
016336

103407

046452
012046
C05237

cxLooP

220%:

INC

CcxLOooP

FATFLG

;SET

FATAL

ERROR FLAG

;LOOP ON ERROR,

SET

.WMORD
. WORD
.WORD

CSERDF

624
T173SSR
PKTSSR

IF FLAG SETY
TRAP

CsCLP]

003900
012701
012702
012703
004737

16-Sep-85

10:39

Page 84-13

SEQ 0160

MU TIPLE BYTES TEST
Set WORDS 0-7 of cxgd message bufggr = to recv since not testing
T WORDS 0-7 EXPD=RECV
JSR
PC,T17SETEX

047516
045752
047612

MOV
MOV
MOV
MOV

iGET
:GET
:SET
;SET

#T17EXSTA,RL
#T17BFSTA,R2
(R2)+,(R1)+
(R2),(R1)

8IS
8IC
8IC

000020
000040
000200
000100

952.INRDY, (R1)
€S2 .0UTROY,(R1)
952.0IM,(R1)

8I1C

#52.ILW,(R1)

If Outpu;oflc.dy NOT=0 or Dates
CLR

047572
045732
000024
011500

MOV
MOV
MOV

PC,CKMSG2

B8CS

2404

FORCERROR

103404
23248

104456

EXP INPUT READY=

EXP LAST WORD (ILW)=0

in Miss NOT=0 Then Print Error

#T178FR,R1
OT17€XP ,R2
#20.,R3

JSR

EXPECTED READ STATUS
RECV READ STATUS
EXPD WORD #8 = RECV TEMP
EXPD WORD #9 = RECV TEMP

;SET EXP OUTPUT READY= O
sSET EXP DATA IN MISS = O

If Input Ready NOT=1 then Print Error

;HIGH RECV ADDRESS FOR CKMSG2
;LCW RECV ADDRESS FOR CKMSG2
;€ -PD ADORESS

;NUMBER OF BYTES TO COMPARE
;EXPD EQUAL RECV?

; 880

2324 ,NOTSSR

NEXT.ERRNO
ERRMHRD
ERRNO, T174CMP ,MSGSTAT

:BR IF YES

;REPORT ERROR

00..161
046757

012350

2408:

104406

005237
023727

002310
002310
041750
002314
002314

041742

INC

000003

:
2508

255¢:

250

COUNT

2504
1004
TSTFLAG
TSTFLAG,
#3
2554
954

8HI
JMP
INC
cMP
BHI
JMP

T174CMP
MSGSTAT

TRAP

CsCLP1

;D0 ANOTHER BYTE COUNT
:GET _NEXT TEST PATTERN CODE
:OONE INC,OEC,TSTBLK PATTERNS?
:BR IF YES
;00 ANOTHER TEST PATTERN
§///////77/7//

ENOSUB

END

SUBTEST

L10061:

/777777777

" TRAP

TS7

002222
017202

:
260%

FATFLG

8EQ
JSR

2608
PC,CKDROP

.SBTTL

TEST

:ANY FATAL ERRORS
;:BRANCH IF NOT
;TRY

SUBTEST 4:

TO DROP

FIFO Verify

THE

?
UNIT

ILMW Status

* e

TEST 6:

SUBTEST 4:

SUBTEST DESCRIPTION:
This

subtest

verifies

empty ceuses the Last

CSERHRD
625

TRAP
.WORD
.WORD
.WORD

IF FLAG SET

;880
:GET NEXT BYTE COUNT
sDONE O TO 77
;BR IF YES

COUNT, 077

crHpP

000077

;LOOP ON ERROR,

ckLooP

FORCEXITY

6767
6768
6769
6770
6771
6772
6773
6774
677S
6776
6777
6778

004737
012701
012702
012221
011211
052711
042711
042711
042711

Mondey

6766

FIFO WRITE

Y05.02

6758
6759
6760
6761
6762
6763
6764
67635

SUBTEST 3:

MACRO

TESTS

HARDWARE

®s

TEST

TSVS

that

reading

Word (ILW)

the

status

FIFO when

to assert.

C$ESUB

TSVS

TEST

HARDWARE

TESTS

SUBTEST 4:

MACRO Y05.02

Monday

16-Sep-85

10:39

Pege 84-14

SEQ 0161

FIFO Verify ILW Status

6808
6809
6810
6811
6812

TEST STEPS:

BEGIN

Write

TSSR

to soft

initislize

Do Write Subsystem READ FIFO with byte count equal to 1

6813
6814
6815

Do @ Write Su‘oyoton READ STATUS

If
If
If
ENDI'

Input Ready
NOT=1
Then Print Error
Output Ready NOT=0
Then Print Error
Data In Miss NOT=0
Then Print Error
Last Word (ILW) NOT=1 Then Print Error

BGNSUB

s /77777777777 BE$IN‘SWTEST /177777777
6.4:

104402
Write
004737

103405

015774

104455

001161
0036352
012034

005037
012704
004737

to soft

PC,SOFINIT
104

;WRITE TO TSSR 7O SOFT INITIALIZE
;BR IF SOFT INIT OKAY

ERRDF

ERRNO,SFIERR,SFIMSG

;DEVICE FATAL OURING INIT

MOV

RO,R1

OT17PACKET R4

JSR
PC.WRTCHR
F ORCERROR
424
8Cs
504

103407
010001
424

MOV
RO,R1
NEXT.ERRNO
ERRDF
ERRNO,T17S5SR,PKTSSR

001162

046175
012046
005237

002222

104406
012700

004737
012704
010463
004737

50¢%:

s SAVE

CONTENTS OF

TSSR

INC

CcKLOOP

FATFLG

:GET

THE

ADDRESS OF

JSR
MOV
MOV

CSERDF
625
SFIERR
SFIMSG

COMMAND PACKET

:SAVE

CONTENTS OF

TSSR

;:DEVICE FATAL SSR FAILED TO SET
TRAP
.WORD
.MORD
.WMORD
:SET FATAL ERROR FLAG

;LOOP ON ERROR,

IF FLAG SET

TRAP

CSERDF

626
T17SSR
PKTSSR
csCLP1

JSR

PC,T17RFIF
oT17PK2 R4
R4,TSDB(RS)
PC.CHKTSSR

;SETUP T17PK2 FOR READ FIFO
;GET WRITE SUBSYSTEM COMMAND PACKET
sSET _THE PACKET ADDRESS TO EXECUTE
:WAIT FOR SSR TO SETY

8CSs

1503

:BR IF CARRY SET (GOOD RETURN)

FORCERROR

MOV

142%:

TRAP
.WORD
.WORD
.WORD

;00 WRITE CHARACTERISTICS COMMAND
; 880FORCE ERROR IF FORCER=»1
;B8R IF CARRY SET (GOOD RETURN)

Do Write Subsystem READ FIFO with b¥t¢ count equal to
MOV
91,R0O
;SET
READ BYTE COUNT

000001
047456
047720
000000
016336

10: .07
010001
104455
001163

initislize the controller

0o a WRITE CHARACTERISTICS to setup a message buffer
CLR
FATFLG
;CLEAR FATAL ERROR FLAG

002222
047550
010662

104455

csssuB

JSR
8CS

MOV

010001

to TSSR

TRAP

RO,R1

1424

NEXT.ERRNO
ERRDF
ERRNO,T176SSR,PKTSSR

; 380FORCE ERROR

:SAVE CONTENTS OF

;:DEVICE FATAL

IF FORCER=1

TSSR

SSR FAILED TO SET
TRAP
CS$ERDF
.WORD
627

TSVS - MARDWARE TESTS

TEST

SUBTEST 4:

MACRO Y05.02

Monday

046452
012046
005237

043172

004737
012704
010465
004737

002222

104406

150¢:

162%:

002222

104406
004737
012701
012702

047516
045752
047612

052711
042711
042711
052711

000020

012221
011211

005000
012701
012702
012703
004737

170%:

INC
CKLOOP

FATFLG

TRAP

C$CLPL

:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET

MOV

0T178FSTA.R2

8IC
BIC
BIS

852 .0UTROY,(R1)
052.DIM,(R1)
#52.1ILMW,(RY)

MOV

0T178FR R1

:GET WRITE SURSYSTEM COMMAND PACKET
+SET _THE PACKET ADDRESS TO EXECUTE
+WAIT FOR SSR TO SET
; 880FORCE ERROR IF FORCER=1
;B8R IF CARRY SET (GOOD RETURN)
; SAVE CONTENTS OF TSSR
;DEVICE FATAL SSR FAILEDO_TO SET
TRAP
.MORD

.WORD
.WMORD

;SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET

(R2)+,(R1).
(R2),(R1)
052.INROY,(R1)

;GET
$SET
:SET
:SET
$SET
:SET
$SET

172%:

180¢:

OT17EXP.R2
920, R3
PC,CKMSG
FORCERROR
172$.NOTSSR
1804
8CS
NEXT
. ERRNO

ERRHRD

ERRNO,T176CMP ,MSGSTAT

:HIGH RECV ADORESS FOR CKMSG2
sLOW RECV ADDRESS FOR CKMSG2
sEXPC ADDRESS
;sNUMBER
OF BYTES TO COMPARE
:E:SD EQUAL RECV?
:BR IF

YES

+REPORT ERROR

TRAP
.WORD

CKLoOP

;LOOP ON ERROR,

ENDSULB

/77777777777

.WORD
. WORD

L $ERHRD
629
T176CMP
MSGSTAT

TRAP

csCLPY

IF FLAG SET

END SUBTESTY
L10062:

/777777777

TRAP

002222

CSERDF
628
T173SSR
PKTSSR

RECV READ STATUS
EXPD WORD 48 = RECV TEMP
EXPD WORD #9 = RECV TEMP
EXP INPUT READY= 1
EXP OUTPUT READY= 0
EXP DATA IN MISS = O
EXP LAST WORD (ILW)=1

104403
005737

T176SSR
PKTSSR

TRAP
CsCLP1
Set WORDS 0-7 of cxgd message bu ffer = to rocv since not testing
JSR
PC,TL7SETEX
0-7 EXPO=RECV
$SET WORDS
HOV
OTi7EXSTA,R1
;GET EXPECTED READ STATUS

MOV
HOV

103404

104406

.MORD
.WORD

If Input Ready NOT=1 then Print Error
If Output RcodiLNOT-O
or Data in Miss NOT=0 Then Print Error
Then Print Error
éc Last Hord (ILW) NOT=

047572
045732
000024
011500

001165
047116
012350

RO,R1

NEXT .ERRNO
ERRDF
ERRNO, T173SSR,PKTSSR

MOV
MOV
BIS

000200
000100

104456

FATFLG

0T17PK2 R4
RA.TSDB(RS)
JSR
PC,CHKTSSR
FORCERROR
162
8Cs
1708
MOV

104455

001164
C46276
012046
005237

INC
CKLOOP

MOV
MOV

103407

6892
6893

SEQ 0162

Do & Write Subs‘ston READ STATUS
JSR
PC.7T
;SETUP PACKET FOR READ STATUS

047334
047720
000000
016336

010001

6890
6891

Page 84-15

FIFO Verify ILW Status

043160
043162
6852 043164
6853 043170
043170

6889

16-Sep-85 10:39

TST

FATFLG

;sANY FATAL

ERRORS

CsESUB

TSVS - HAROWARE TESTS

16-Sep-85 10:39

Page 84-16

SEQ 0163

SUBTEST 4: FIFO Verify ILW Status
004737

017202

260%¢:

8EQ
JSR

2604
PC,CKDROP

.SBTTL

TEST

;BRANCH IF NOT
1 TRY TO DROP THE UNIT

SUBTEST 5:

FIFO Verify Input Ready

TEST 6:

SUBTEST 5:

SUBTEST DESCRIPTION:

V¢

S¢

This subtest verifies that writing 64. bytes into the FIFO
without reading any out causes the Input Ready status to
negate. The Subtest then verfiies that uriting a 65th byte
into the FIFO causes the Data In Miss status
to assert.
Next it is verified that the original 64 bytes can be read
out correctly and that the data
has not been corrupted.
TEST

STEPS:

G
o
Vs
B2
TGO
W
Vo
G5
Gt
Ve
We
Ve
Ve
We
Gc
Bs
BE
Be
W

6896 043372
6897
6898
6899
6900

001402

6895 043366

B¢

6894 043364

B8EGIN

Write to TSSR to soft

Do
Do
Do
Do
If
If
If
Do
Do
If
If
If
Do
If
Do
If
If
If

initialize

a WRITE CHARACTERISTICS to setup a message buffer
& Write Subsystem WRITE NPR to set tape direction out
a Write Subsystem WRITE F1FQ 64. bytes incrementing pattern
& Write Subsystem READ STATUS
Input Ready
NQOT=0
Then Print Error
Output Ready NOT=1
Then Print Error
Data In Miss NOT=0
Then Print Error
& Write Subsystem WRITE FIFO 1 byte for a total of 65. written
a Write Subsystem READ STATUS
Input Ready
NQOT=0
Then Print Error
Output Ready NQT=1
Then Print Error
Date In Miss NOT=1
Then Print Error
Write Subo;otcn READ FIFO
Date read
from FIFQ NOT= to Date sent Then Print Error
a Write Subsystem READ STATUS
Input Ready
NQT=1
Then Print Error
Qutput Ready NOT=0
Then Print Error
Data In Miss NOT=1
Then Print Error

Monday

TEST

MACRO Y05.02

BGNSUB

s///7/777777/7 BE(T%NSSWTEST /1777777777

104402
Write to TSSR

004737
103405
010001

104455
001165
003652
012034

015774

JSR
8CS
MOV

ERRDF

PC,SOFINIT
104

RO,R1

ERRNO, SFIERR,SFIMSG

TRAP

L$BSUB

initialize the controller

;WRITE TO TSSR TO SOFT INITIALIZE
:BR IF SOFT INIT OKAY
:SAVE

CONTENTS OF

TSSR

;DEVICE FATAL DURING INIT
TRAP
.WORD
.MORD
.WORD

CS$ERDF
629
SFIERR
SFIMSG

TSVS

- HARDWARE TESTS

TEST

MACRO Y05.02

Mondey

16-Sep-85 10:39

Page 84-17

SEQ 0164

SUBTEST S: FIFO Verify Input Ready

6945

005037
012704
004737

3
10¢:

002222
047550
010662

103407

010001

6953 043450

6955 043464

424:

104455

001166
046175
012046
005237

002222

504
:

104406
C12700
004737
012704
010463
004737

]

000100
047376
047720
000000
016336

100¢:

102¢:

002222

10Ss:

104406

000100
046054
000100

110%:

ERRDF

ERRNO, T17SSR,PKTSSR

:DEVICE FATAL SSR FAILED TO SET

INC
CKLOOP

FATFLG

:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET

OT17PK2,R4
R4,TSDB(RS)

JSR

PC,CHKTSSR

BCS

1054

ERROF

ERRNO,T174SSR,PKTSSR

1024

MOV
RO,R1
NEXT
. ERRNQO

INC
CKLOOP

CS$EROF
630
T17SSR
PKTSSR

TRAP

CsCLP1

FATFLG

:GET WRITE SUBSYSTEM COMMAND PACKET
;SET THE PACKET ADORESS TO EXECUTE
;WAIT FOR SSR

TO SET

;O80FORCE ERROR IF FORCER=1
:BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR
;:DEVICE FATAL SSR FAILED TO SET
TRAP

.WORD
.WORD
.WORD

CSERDF
631
T174SSR
PKTSSR

TRAP

CsCLPL

:SET FATAL ERROR FLAG
;:LOOP ON ERROR, IF FLAG SET

Do a Hrito Subsystem WRITE FIFO 64 . bétcs incrementing pattern
64 BYTES
;WRITE
MOV
0T17HFDATA R1
sEXPC WRITE FIFO DATA BUFFER
MOV
264. .R2
s TEST PATTERN SIZE
RO
CLR
s INCREMENT TEST PATTERN
MOVB
RO,(R1)
;STORE INCREMENT TEST BYTE
INC
RO
;:SET NEXT PATTERN
DEC
R2
?
;DONE
B8GTY
1104
:BR IF NO
;FIFO BYTE COUNT
COUNT ,RO
MOV

COUNT

OT17WFDATA,R1
PC,T1TWFIF
#T17PK2,.R4
R4, TSDBCRS)
PC,CHKTSSR

FORCERROR

B8CS

MOV

142%:

TRAP
.WMORD
.MORD
.WMORD

direction out
Do a Write Subsystem WRITE NPR to set t
MOV
ONP. OUT,
DIRECTION OUT
:SET TAP
JSR
PC, T17SNPR
sSETUP T17PK2 FOR WRITE NPR

MOV
JSR
MOV
HOV

000
016336

;00 WRITE CHARACTERISTICS COMMAND
1 980FORCE ERROR IF FORCER=1
:BR IF CARRY SET (GOOD RETURN)
1 SAVE CONTENTS OF TSSR

S0¢

MOV

002310

:1GET THE ADDRESS OF COMMAND PACKET

8CS

MOV
RO,R1
NEXT
. ERRNO

FORCERROR

104455
001167
046343

012737

MOV
OT17PACKET,R4
JSR
PC,WRTCHR
FORCERROR
424

MOV
MOV

103407
010001

012046
005237

a noosnfc buffer
Do e URITETCHeRACTERISTICS to set
ERROR FLAG
CLR
;CLEAR FATAL

150

RO,R1

1424

NEXT .ERRNO
ERRDF ERRNO, T175SSR,.PKTSSR

sFIFO WRITE

DATA ADDRESS

:SETUP T17PK2 FOR WRITE FIFO
;GET WRITE SUBSYSTEM COMMAND PACKET
;SET THE PACKET ADDRESS TO EXECUTE
tWAIT FOR SSR TO SET
;1880FNRCE ERROR IF FORCER=1
;BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

;+DEVICE FATAL SSR FAILED TO SET
TRAP

CS$ERDF

TSV5

TEST

HARDWARE TESTS

SUBTEST S:

MACRO Y05.02

Monday

002222

150%:

004737
012704
010465
004737

047334
047720
000000
016336

104406
004737
012701
012702
012221
011211
042711
052711
042711
005000
012701
012702
012703
004737

1604:

047516
045752
047612

RO,.R1

632

T175SSR
PKTSSR

CsCLPL

162%:

170¢:

:GET WRITE SUBSYSTEM COMMAND PACKET
:SET _THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSR TO SET
s B80FORCE ERROR

IF FORCER=1

+BR IF CARRY SET (GOOD RETURN)

1 SAVE CONTENTS OF TSSR

:DEVICE FATAL SSR FAILED TO SET
TRAP
CSERDF
.WORD
633
T173SSR
.WMORD
WORD
PKTSSR
INC
FATFLG
:SET FATAL ERROR FLAG
CKLOOP
:LOOP ON ERROR, IF FLAG SET
TRAP
csCLPL
Se; WORDS 0-7 of oxgd message bufggr = to rccv since not testing

MOV

PC.T17SETEX
#T17€XSTA,RL

MOV

(R2)+,(R1)»

:SET EXPD WORD #8 = RECV TEMP

#T178FSTA,R2
(R2),(R1)

#52.INRDY,(R1)
#52.0UTROY,(R1)
#52.0IM,(R1)
RO
OT178FR,R1

#TL7EXP,R2
#20. ,R3
PC.CKMSG2
FORCERROR
1624 ,NOTSSR

011500

000001
046054
047: 22

157¢

NEXT.ERRNO
ERRDF ERRNO, T173SSR,PKTSSR

MOV
HOV

103404

012700
012701
004737

1604

8IC
8IS
BIC
CLR
MOV

047572
045732

104406

#T17PK2,R4

8CS

MOV

000200

012350

sSET FATAL ERROR FLAG
;:LOOP ON ERROR, IF FLAG ?SIP

R4, TSDB(RS)
PC,CHKTSSR

MOV

000020

104456

FATFLG

FORCERROR

157%:

002222

.WORD
.WORD
.WORD

MOV
JSR

MOV

104455

001171
046276
012046
005237

INC
CKLOOP

MOV

103407
010001

7031 044046
7032 044052
7033 044056

SEQ 0165

Do a Hrite Subsystem READ STATUS
If Input Reedy
NOT=0
Then Print Error
If OQutput Ready NOT-1
Then Print Error
If Date In Miss NOT=0
Then Print Error
JSR
PC,T17SRO
1SETUP PACKET FOR READ STATUS

o
°
°
wn

6992 043664
043664

7028
7029

Page 84-18

FIFO Verify Input Ready

043652
043654
043656
6991 043660

7027 044044

16-Sep-85 10:39

8CS
170¢
NEXT . ERRNO
ERRHRD
ERRNO, T173CMP ,MSGSTAT

CkLooP

T WORDS
0-7 EXPD=RECV
:GET EXPECTED READ STATUS

:GET RECV READ STATUS
:SET EXPD WORD #9

= RECV

TEMP

:SET EXP INPUT READY= O
;SET EXP OUTPUT READY=
1
:SET EXP DATA IN MISS =
:HIGH RECV ADDRESS FOR CKHSG2
:LOW RECV ADDRESS FOR CKMSGR2

:EXPC_ADDORESS
:NUMBER OF BYTES TO COMPARE
:EXPD EQUAL RECV?
; 880

;BR IF YES

;REPORT ERROR

:LOOP ON ERROR,

TRAP

.WORD
. WORD
. WORD
IF FLAG SEY
TRAP

Do & Write Subsystem WRITE FIFOQ 1 bzte for & total of 65.
MOV

Mov

JSR

#1.RO

oT17WFDATA,R1

PC.TLTIWFIF

IFO BYTE

COUNT

;FIFO WRITE DATA ADDRESS

LSERHRD
634
T173CHP
MSGSTAT
csCLPL

written

:SETUP T17PK2 FOR WRITE FIFO

TSVS - HARDWARE TESTS

TEST

MACRO Y05.02

Mondey

16-Sep-85

10:39

Pege 84-19

SEQ 0166

SUBTEST S: FIFO Verify Input Ready

7034 044062
7035
7036

012704
010465

004737

MOV
MOV
JSR

oT17PK2,R4
R4, TSDB(RS)
PC,CHKTSSR

;GET WRITE SUBSYSTEM COMMAND PACKET
:SET _THE PACKET ADORESS TO EXECUTE

B8CS

180¢

:BR IF CARRY SET (GOOD RETURN)
; SAVE CONTENTS OF TSSR

ERRDF

ERRNO,T175SSR,PKTSSR

;DEVICE FATAL SSR FAILEDTTO SET

180%:

INC
CKLOOP

FATFLG

;SET FATAL ERROR FLAG
:+LOOP ON ERROR, IF FLAG SET

H
H

Do & Write Subsystem READ STATUS
Then Print Error
If Input Ready
NOT=0

If Dete In Miss NOT-I

047720
000000
016336

FORCERROR

103407

010001

172%:

104455
001173

046406
012046
005237

002222

104406

]
047334
047720
000000
016336

002222

047516

If Output Ro.dy NOT=1

8cs

1904

ERRDOF

ERRNO,T173SSR,PKTSSR

8IS
BIS

CLR

047572
045732
0000, ¢
01150)

MOV
MOV
HOV

FATFLG

PC, Tl?SEYEXBd
#T17EXSTA,R1
®T17BFSTA,R2
(R2)+,(R1)»
(R2),(R1)

192¢:

#52.0UTRDY, (R1)
#52.0IM,(R1)

OT178FR,R1
OT17EXP ,R2
420. ,R3
PC.CAMSG2

1924 .NOTSSR

8CS

2004

ERRHRD

ERRNO, T173CMP ,MSGSTAT

NEXT
. ERRNO

7O SET

TSSR

;DEVICE FATAL S35R FAILED TO SET

message bu ffer = to rccv since not testing
;SET WORDS
0-7 EXPD=RECY
;GET EXPECTED READ STATUS

#52. INRDY, (R1)

FORCERROR

SSR

;SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SEIP

Set WORDS 0-7 of expd

B8IC

CsCLP1

S880FORCE ERROR IF FORCER=1
:BR IF CARRY SET (GOOD RETURN)
;SAVE CONTENTS OF

000040
000200

sWAIT FOR

187¢

INC
CKXLOOP

000020

TRAP

;GET WRITE SUBSYSTEM COMMAND PACKEY
:SET_THE PACKET ADDRESS TO EXECUTE

MOV
RO,R1
NEXT
. ERRNO

JSR

C$ERDF
635
T175SSR
PKTSSR

sSETUP PACKET FOR READ STATUS

PC,.T17SRD
oT17PK2,R4
R4 ,TSDB(RS)
PC.CHKTSSR

MOV
MoV
MoV
MOV

RAP
.MORD
.MORD
.WORD

Then Print Error
Then Print Error

JSR
MOV
MOV
JSR

190¢:

045752
047612

1 880FORCE ERROR IF FORCER=1

MOV
RO,R1
NEXT .ERRNO

FORCERROR

187¢:

;WAIT FOR SSR TO SET

172¢

CSEROF
636

T173SSR
PKTSSR

cscLrPl

RECV READ STATUS

;SET EXPD WORD #8 = RECV TEMP
;SET EXPD WORD #9 = RECV TEMP
;:SET EXP INPUT READY= O
$SET EXP OUTPUT READY= 1
:SET EXP DATA IN MISS = 1
sHIGH RECV ADDRESS FOR CKMSG2
sLOW RECV ADDRESS FOR CKMSGZ
sEXPD ADDRESS
sNUMBER OF BYTES TO COMPARE
sEXPD EQUAL RECV?
; 8980
:BR IF YES
;REPORT ERROR

TRAP

. WORD
.WORD

CSERMRD
637
T173CrP

TSVS

- HARDWARE TESTS

TEST

SUBTEST S:

7079

012350

044312

104406

7080 044314

013700

002310

7081 044320

004737

047456

7084 044334

004737

016336

7082 044324
7083 044330

7085 044340
7086 044354

012704
010465

010001

044360
044362
044364
044366

104455
001176
046452
012046

7090 044370
7091 044374
044374
7092

7093

CO0S237

005000

7097 044410

013703

7098 044414

7099 044420

012702
012701
004737

7100 044430

103406

7102 044432

013701

044442
044444

104456
001177
047042
012170

044446

104406

7101 044432

7103 044436
044436
044440

7104 044446
7105
7106
7107

004737

7112 044460

010465

T113 044464

7114 044470
7115 044504

7116 044506

7117 044510
7118 044510
044510
044512
044514
044516

012704

004737

CsCLP1

JSR

PC.CHKTSSR

#T17PK2,R4
R4, TSDB(RS)
2124

RO,R1

NEXT
. ERRNO
ERRDF
ERRNO,T176SSR,PKTSSR

1SET READ BYTE COUNT
:SETUP T17PK2 FOR READ FIFO
;GET WRITE SUBSYSTEM COMMAND PACKET
1SET_THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SSR TO SET
; 880FORCE ERROR IF FORCER=1
iBR IF CARRY SET (GOOD RETURN)
sSAVE CONTENTS OF TSSR
;:DEVICE FATAL SSR FAILED TO SET
.WORD
.WORD

PKTSSR

1SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SEY
TRAP

FATFLG

If Deate 5.“ from FIFO NOT= tc Date sent Then Print Error
CLR
0
:HIGH RECV _ADDRESS FOR CKMSG2
MOV
#T17WFDATA
RS
1GET EXPECTED ADORESS FOR CKMSG2

MOV

002310

MOV

011500

#T17BFSTA
R

COUNT ,R3

JSR

PC.CKMSG2

8CS

FORCERROR
2324 :

2328 ,NOTSSR

NEXT .ERRNO

MOV

ERRHRD

COUNT ,R1

ERRNO,T17SCMP,FIFEXP

:BR IF YES

sGET BYTE COUNT
:REPCRT ERROR

TRAP

.WORD

24048 :

CKLOOP

H
s

Do & Write Subsystem READ STATUS
Then Print Error
If Input Ready
NOT=l

;

If Deta In Miss NOT=1

;LOOP ON ERROR,

If Output Reedy NOT=0
JSR

PC,T17SRD

047720

MOV

016336

JSR

PC.CHKTSSR

8CS

2608

000000

MOV

R4 ,TSDB(RS)

252%:

RO.R1

.WORD
IF FLAG SET

TRAP

CS$ERNRD

639

T175CHP

FIFEXP

CsCLP1

Then Print Error
Then Print Error

oT17PK2
R4

FORCERROR

CsCLP1

:GET RECEIVED ADORESS FOR CKMSG2
tNUMBER OF BYTES TO COMPARE
sEXPD EQUAL RECV?
; 980

.WORD

047334

CSEROF
638
T176SSR

TRAP
.WORD

010001

046276
012046

TRAP

CxLOOP

046054
047612

002310

MSGSTAT

2204 :

103407

104455
001200

PC.T17RFIF

FORCERROR
8Cs
2208

212¢:

002222

COUNT RO

JSR

MOV
MOV

7110 044450

7111 044454

Do Write Subsystem READ FIFO

MOV

. WORD

;LOOP ON ERROR, IF FLAG SET

MOV

7108

7109

SEQ 0167

CKLOOP

047720

104406

7094 044376

7095 044400
7096 044404

Page 84-20

2004 :

103407

7087 044356

7088 044360
7089 044360

HMonday 16-Sep-85 10:39

FIFO Verify Input Ready

044310

7078 044312

MACRO Y05.02

2524

NEXT
. ERRNO
ERRDF
ERRNO,T173SSR,PKTSSR

1SETUP PACKET FOR READ STATUS
$tGET WRITE SUBSYSTEM COMMAND PACKET
1SET _THE PACKET ADODRESS TO EXECUTE
:WAIT FOR SSR TO SET
; 88DFORCE ERROR IF FORCER=1
:BR IF CARRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR

:DEVICE FATAL SSR FAILED TO SET
TRAP

.WORD
.WORD
.MORD

CSERDF
640
T173SSR
PXTSSR

TSVS

- HARDWARE TESTS

TEST

MACRO Y05.02

Mondey

16-Sep-85

10:39

Page 84-21

SEQ 0168

SUBTEST S: FIFO Verify Input Reeady

7119 044520
7120 044524

044524

005237

002222

104406

004737
012701
012702
012221
011211
052711
042711
032711
005000
012701
012702
012703
004737

047516
045752
047612

2604 :

OTI7EXSTA R1
OT178FSTA R2
(R2) (Rl)o

1GET EXPECTED READ STATUS
t1GET RECV READ STATUS
sSET EXPD WORD #8 = RECV TEMP

8IS
8IC

#S2. INRDY (R1)
#S2. OUTRDY (R1)

;SET EXP INPUT READY= 1
1SET EXP QUTPUT READY= O

CLR
MOV

RO
#T178FR,R1

sHIGN RECV ADODRESS FOR CKXMSG2
sLOW RECV ADDRESS FOR CKXMSG2

MOV

920. ,R3

tNUMBER OF BYTES TO COMPARE

81S
MoV

(R2),(R1)

:SET EXP DATA IN MISS = 1

OT17EXP .R2

JSR

PC,CKMSG2

8CSs

2808

1EXPD_ADORESS

sEXPD EQUAL RECV?

2724 ,NOTSSR

18R IF YES

272%:

NEXT. ERRNO
ERRHRD
ERRNO, T174CHMP MSGSTAT

2804 :

CxLOOP

:LOOP ON ERROR,

ENDSUB

$/////7/7/7/7/7 END SUBTESTY /777777777

;REPORT ERROR

002222
017202

300%:

TSY

FATFLG

.SBTTL

TEST

8EQ
JSR

;ANY FATAL ERRORS

300¢
PC,CKDROP

TRAP
.WORD
L.WORD
.WORD

CS$ERHRD
641
T174CMP
MSGSTAT

TRAP

CiCLP1

IF FLAG SET

L10063:

104403
005737
001402
004737

csCLP1

:SET EXPD WORD #9 = RECV TEMP

#52.0IM,(R1)

FORCERROR

103404

104406

$SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SSIP

MOV
MOV
MoV

MOV

047372
043732
000024
011500

001201
046737
012350

FATFLG

Set WORDS 0-7 of cxgd message buffer = to recv since not testing
JSR
PC.T17SETEX
;SET WORDS 0-7 EXPD=RECY

000020
000040
000200

104456

INC
CKLOOP

TRAP

:BRANCH IF NOT
:TRY TO DROP THE UNIT

SUBTEST 6:

FIFO Verify Reset FIFO Test

gee

; TEST 6: SUBTEST 6:
SUBTEST DESCRIPTION:
This subtest verifies that the Reset FIFO function mithin
the Write Miscellaneous Control 1 function initislizes
the FIFO to correct intial status. The following steps
are performed:

Reset an slready

zropor status.

initislized FIFO and check for

rutc v.ryong nusber of bytes (1-65.) into the
voruf; thet efter each block of bytes is

-:.:ton the FIFO cen be be reset
stete

it's

initial

CS$ESUB

TEST

HARDMARE
6:

TESTS

SUBTESYT 6:

MACRO Y05.02

Monday

16-Sep-85 10:39

Page 84-22

SEQ 0169

FIFO Verify Reset FIFO Test

TEST STEPS:

BEGIN

Write to TSSR to soft

initislize

Do @ WRITE CHARACTERISTICS to setup & mes
buffer
Do a Write Subeystem Write flnoc to Reset FIFO
Do a Write Subsystea READ
STATUS

If ell Tepe St.‘uo 2 (ICER IFN( IMER) flip-flop
signele NOT=0 Then Print Error

Do & Write Subsystem WRITE NPR to set tape direction out
REPEAT FOR BYTE COUNT 1 TO 6S.
BEGIN
Do a Write Subsystea WRITE FIFO mith the current byte count

S’S’

TSVS

e Write S«bcyoto- Write H oc to Reset FIFO
a Write
stem READ STATUS

If all Tepe Sto‘uo 2 (ICER IFN( IMER) flip-flop

END

signale NOT=0 Then Print Error

BGNSUB

Write

015774

.algg

MOV

ERRDF

002222
047550
010662

10%:

3///////7/7777 BEGIN SBTEST /777777777

TSSR

to soft

:giSG’INIT

RO,R1

ERRNO, SFIERR, SFINSG

:gl}f_ ;&_;S;:I }OG(SWT INITIALIZE

sSAVE CONTENTS
OF TSSR

iDEVICE FATAL DURING INIT

TRAP

047354
047720
016336

CSEROF

641}
SFIERR
SFINMSG

Do e MRITE CHARACTERISTICS to ut\t e
buffer
CLR
FATF
CLEAR FAT
ERROR FLAG
oV
OTIWACKET R4
:GET THE ADORESS OF COMMAND PACKET

JSR

PC.WRTCHR

;00 WRITE CHARACTERISTICS COMMAND

8cs
MoV

S0
RO,R1

iBR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSPR

429

NEXT
. ERRNO
ERROF ERRNO, T17SSR,PKTSSR

; S80FORCE ERROR IF FORCER=})

;DEVICE FATAL SSR FAILED TO SET

TRAP

.MORD

Oou2222

cs8sus

initislize the controller

.WORD
"WMORD
.WORD

FORCERROR

424
:

INC
CxLO00P

. MOROD
. WORO

FATFLG

sSET FATAL ERROR FLAG
1LOOP ON ERROR, IF FLAG SEY
TRAP

Oo @ Mrite St.bo!;to. Write Misc to Reset FIFO

JSR

MoV
MOV

oTiTPx2 . Re
R4, TSDB(RS)

cscLP)

s1GET MRITE SUBS/STENM COMWMMND PACKET
1SET THE PACKET ADORESS TO EXECUTE

PC CHXTSSR

sHAIT FOR SSR T0 SET

8CS

704

1OR IF CARRY SET (GOOD RETURN)

624

117SSR
PXTSSR

1SETUP PT FOR VAITE MISC RESET FIFO

JSR

F ORCERROR

CSEROF

642

1880FORCE ERROR IF FORCER-1

TSVS - HARDWARE TESTS

TEST

7214
72135
7216

SUBTEST 6:

MACRO Y05.02

Mondey

16 Sep-85 10:39

Page 84-23

SEQ 0170

FIFO Verify Reset FIFO Test

010001

005237

RO,R1

1 SAVE CONTENTS OF TSSR’

ERRDF

ERRNO,T172SSR,PKTSSR

;:DEVICE FATAL SSR FAILEDngpSET

NEXT.ERRNO

104455
001203
046232

012046

MOV

INC

002222

CKLoOP

104406

FATFLG

$1SET FATAL ERROR FLAG

. WORD
.WORD
.WORD

:LOOP ON ERROR, IF FLAG SET

CSERDF
643
T172SSR
PKTSSR
CsCLPL

TRAP

Do a Write Subsystem READ STATUS

I1r .11 Tepe Status 2 (ICER,IFMK,IHER) flip-flop

004737
012704
010465
004737

JSR

047334
047720

MOV

000000
016336

77¢:

104455

104406
004737
012701
012702
011211
042711
042711
042711
016261
00 5000
012701
012702
012703

004737

002222

80¢:

047516
045752
047612

002000
001000
00
000002

;SETUP PACKET FOR READ STATUS

R4, TSDB(RS)

;SET THE PACKET ADDRESS TO EXECUTE

#Ti7PK2,R4

000002

PC,CHKTSSR

8CS

ERRDOF

ERRNQ,T173SuR,PKTSSR

3 SAVE CONTENTS OF

;:DEVICE FATAL SSR FAILED TO SET
TRAP

7252
7253

7255

012350

012700
004737

000100
047376

644
T173SSR
PKTSSR

TRAP

CsCLP1

JSR

PC.T17SETEXP

;SET WORDS
0-7 EXPD=RECV (NOT TESTING)

#T17EXSTA,RL
#T178FSTA 22
(R2),(R1)
#51.1CER,(R1)
#S1.IFM, (R1)
#S1.IHER,(R1)
2(R2),2(R1)
RO

;GET EXPECTED READ STATUS
;:GET RECV READ STATUS
+SET EXPD WORD #8 = RECV TEMP
;SET EXPD ICER
=0
:SET EXPD IFMK
=0
;SET EXPO IMER
=0
;SET EXPD WORD #9 = RECV (NOT
:HIGH RECV ADORESS FOR CKMSG2

OT17EXP,R2
920. ,R3

:EXPD ADDRESS
;:NUMBER OF BYTES

#T17BFR,.R1

;EXPD EQUAL RECV?

92$ ,NOTSSR

CKLOOP

:BR IF

YES

;REPORT ERROR

;:LOOP ON ERROR,

Do @ Write Subsystem WRITE

JSR

ONP
. OUT RO
PC,T17SNPR

TO COMPARE

;980

8Cs
100¢
NEXT
. ERRNO
ERRHRD
ERRNO,T177CMP MSGSTAT

MOV

TESTING)

:LOW RECV ADDRESS FOR CKMSG2

PC.CKMSG2

FORCERROR

:
1008

104406

CSERDF

.WORD
.WORD
.WORD

;SET FATAL ERROR FLAG
;LOCP ON ERROR, IF FLAG SET

047224
7251

TSSR

FATFLG

JSR

92%:

; 880FORCE ERROR IF FORCER=1

;BR IF CARRY SET (GOOD RETURN)

INC
cxLooP

MOV
MOV

103404

:WAIT FOR SSR TO SET

MOV
RO,R1
NEXT .ERRNO

MOV

011500

;GET WRITE SUBSYSTEM COMMAND PACKET

JSR

MOV
MOV
MOV
8IC
81C
8IC
MOV
CLR

047572
045732

104456
001205

PC,T17SRD

FORCERROR

103407
010001

001204
046276
012046
005237

gnalw NOT=0 Then Print Error

NPR

to set

TRAP

.MORD
.WORD
.WMORD
IF FLAG SE7
TRAP

direction out

DIRECTION OUT
;SET TAPE
sSETUP T17PK2 FOR WRITE NPR

CSERHRD

645
T177CwP
MSGSTAT
CsCLP1

TSVS

TEST

MARDWARE

TESTS

MACRO Y05.02

HMondey 16-Sep-85 10:39

Page 84-24

SEQ 0171

6: SUBTEST 6: FIFO Verify Reset FIFO Test

7256 045212

012704
010465
004737

103407

010001

112%:

10445S

001206
046343
012046
005237

002222

:
1208

104406
012701
C12702
005000
110021
005200
005302
003374

045752

012737

000001

013700
012701
004737
012704
010465
004737

002310
045752
047422
047720
000000
016336

130s:

002310

;

7293
7295

296

7297
7298
7299
7301
7302

103407
010001

CLR
MOV8
INC
DEC

iSOS:

047354
047720

016336

;SET FATAL ERROR FLAG

.WORD
.WORD

TRAP

incrementing pattern
@T17EXSTA .R1
4. R2
RO
RO,(R1).
RO
R2

CSERDF
646
T174SSR
PKTSSR
CsCLP]

in FIFO dete buffer
;EXPD WRITE FIFO DATA BUFFER
;TEST PATTERN SIZE
;sINCREMENT TEST PATTERN
;STORE INCREMENT TEST BYTE
;SET NEXT PATTERN

1308

;DONE?

;BR IF NO
1

TO 65.

;GET FIRST BYTE COUNT

sREPEAT

COUNT RO

JSR

PC.TL7WFIF

MOV

OT17€EXSTA,RL
#T17PK2
R4

MOV
R4, TSOB(RS)
PC.CHKTSSP
JSR
1528
FORCERROR
1608
8CS

:
1604

TRAP
.WORD

;LOOP ON ERROR, IF FLAG SET

MOV

:
1528

002222

FATFLG

;DEVICE FATAL SSR FAILED TO SET

Do @ Write Subsystem WRITE FIFO with the current byte count

MOV

104406
004737
012704
010465
004737

INC

cxLooP

ERRNO, T174SSR,PKTSSR

REPEAT FOR BYTE COUNT
MOV
#1,COUNT

103407

7291
7292

ERRDF

B8GTY

010001

046406
012046
005237

NEXT .ERRNO

Setup
MOV
MOV

000100

104453
001207

;GET WRITE SUBSYSTEM COMMAND PACKET
;SET THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSR TO SEY
;880F "RCE ERROR 1IF FORCER=1
;+BR IF CARRY SET (GOOD RETURN)
;SAVE CONTENTS OF TSSR

#T17PK2 R4
MOV
MOV
R4 ,TSDB(RS)
PC,CHXTSSR
JSR
FORCERROR
1128
1204
B8CS
RO,R1
MOV

047720
000000
016336

RO,R1

NEXT.ERRNO
ERRNO, T175SSR,PKXTSSR
ERRDF

INC
CxLOOP

LOOP LABEL

;FIFO BYTE COUNT
;FIFO WRITE DATA ADDRESS
;SETUP T17PK2 FOR WRITE FIFO
;GET WRITE SUBSYSTEM COMMAND PACKET
:SET THE PACKET ADORESS TO EXECUTE
;WAIT

FOR

SSR

TO SET

; 880FORCE ERROR IF FORCER=1
;BR IF CARRY SET (GOOD RETURN)
; SAVE CONTENTS OF TSSR

;DEVICE FATAL SSR FAILED TO SET
.WORD
.MORD

CSERODF
647
T175SSR
PKTSSR

TRAP

CsCLP1

TRAP
.WORD

:SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SEY

FATFLG

Do @ Write Subsystem UWrite Misc to Reset FIFO
PC.T17RSFIF
;:SETUP PKT FOR WRITE MISC RESET FIFO
JSR
MOV

MOV
JSR

#T17PX2.R4

R4 ,TSDB(RS)
PC,CHKTSSR

FORCERROR

170¢
8Cs
MOV
RO,R1
NE XT . ERRNO

1624

;GET WRITE SUBSYSTEM COMMAND PACKET
;SET THE PACKET ADODRESS 10O EXECUTE
:WAIT FOR SSR TO SET
; 880FORCE ERROR IF FORCER=1
;B8R IF CARRY SET (GOOD RETURN)
;s SAVE CONTENTS OF TSSR

TSVS

TEST

HARDWARE

TESTS

MACRO

Y05.02

Mondey

045442

045444
045446
045430
045452
045436
045456

162¢%:

104455

001210
046232
012046
005237

002222

170%:

104406

004737
012704
010463
004737

047334
047720
000000
016336

005237

104406
004737
012701
012702
011211
042711
042711
042711
016261
00 5000
012701
012702
012703
004737

INC
CkLOOP

SEQ 0172

ecs

MOV

177%:

002222

180¢:

047516
045752
047612
002000
001000
000400
000002

R4, TSDB(RS)

PC,CHKTSSR

RO,.R1

TRAP
.WORD

.MORD
.WORD

CS$ERDF
648
T172SSR
PKTSSR

TRAP

CsCLPL

JSR

PC,T17SETEXP

MOV
BIC

(R2),(R1)
#S1.ICER,(P1)

OT17EXSTA,R1
#T178FSTA,R2

#S1 . IFMK,(R1)

81C
MOV
CLR
MOV

#S1.IMER, (R1)
2(R2),2(R1)
RO
#T17BFR.R1

JSR

PC,CKMSG2

OT17EXP ,R2
920. ,R3

FORCERROR

BCS

104456

001212
047224
012350

104406

192% ,NOTSSR

1924

NEXT.ERRNO
ERRHRD
ERRNO,T177CMP ,MSGSTAT

:
20048

CKLOOP

250%:
000101

2004

FORCEXIT

INC
cHP

sWAIT

FOR

SSR

TO SETY

; 880FORCE ERROR IF FORCER=1
;:BR IF CARRY SET (GOOD RETURN)
; SAVE CONTENTS OF TSSR
;:DEVICE FATAL SSR FAILEDT;O SET
AP

:SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET

FATFLG

MOV
MOV

;SET _THE PACKET ADDRESS TO EXECUTE

.MORD
.WORD
.WORD

INC
CKLOOP

B8IC

000002

1804

1774

NEXT .ERRNO
ERRDF
ERRNO,T173SSR,PKTSSR

MOV
MOV

047572
045732
000024
011500

002310
002310

;DEVICE FATAL SSR FAILED TO SETY

;SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET

FATFLG

FORCERROR

103404

005237
023727

ERRNO, T172SSR,PKTSSR

JSR

104455

001211
046276
012046

ERRDF

MOV

103407

7341
7342
7343
7344

Page 84-25

Do @ Write Subsystem READ STATUS
If .11 Tepe Status 2 (ICER,IFMX,IHER) flip-flop
gnals NOT=0 Then Print Error
JSR
PC,T17SRD
;:SETUP PACKET FOR READ STATUS
oT17PK2, R4
MOV
;GET WRITE SUBSYSTEM COMMAND PACKET

€10001

7339

10:39

SUBTEST 6: FIFO Verify Reset FIFO Test

7303 045442

7338

16-Sep-85

CsCLPL
;SET WORDS
0-7 EXPO-RECV (NOT TESTING)
;+GET EXPECTED READ STATUS
RECV READ STATUS

EXPD WORD 8 = RECV TEMP
EXPD
EXPD
EXPD
EXPD

ICER
=0
IFMK
=0
IMER
=0
WORD €9 = RECV (NOT

xHIGH RECV ADDRESS FOR CKMSG2

2604

TESTING)

;LOW RECV ADDRESS FOR CKMSG2
;:EXPC ADDRESS
iNUMBER OF BYTES TO COMPARE
;:EXPD EQUAL RECV?

: 880
:BR IF YES

;:REPORT ERROR

;:LOOP ON ERROR,

COUNT
COUNT, #65.

CS$ERDF

649
T173SSR
PKTSSR

LSERHRD
650
T177CMP

IF FLAG SET

;:GET NEXT BYTE COUNT
;:OONE ALL BYTES?

TRAP

MSGSTAT

CsCLP1

TSVS

- HARDWARE TESTS

TEST

MACRO Y05.02

101002
000137

045314

260$:

7348

7349 045674
045674

045674

7350
7351 045676
7352 045702
7353 045704

7354 045710

Page 84-26

005737
001402
004737

004737

045722
045724

104432
(CO02112

7358
7359 045722

BHI
JMP

002222
017202

016456

300%:

037754

305%:

$////////77/77/7 END SUBTEST /777777777
L10064:
TRAP
C$ESLB

sANY FATAL ERRORS ?
;BRANCH IF NOT

TST
BEQ
JSR

FATFLG
3004
PC,CKDROP

8cC
JMP

3054
T17L00P

;00 ITERATIONS?
:BR IF NO
;LOOP UNTIL ITERATIONS DONE

57777777777 €EXIT

JSR

PC,TSTLOOP

EXIT

:TRY

TO DROP

THE UNIT

TE€ST

/777777777

TRAP
.MORD

CS$EXIT
L10056-.

7363
7364
7365

;LOCAL STORAGE FOR THIS TELT
;-

7366
7367 045726
7368
7369 045726

7370 045727
7371 045730
7372 045731

045732
045732
045734
045736
045740
045742
045744
045746
045750
045752
046054

sMASK OF UNTESTED BITS IN READ STATUS BYTES
sUNTESTED BITS ARE SET T0 1
:BYTE O MASK

T17TMSK:
377
037
360
000

.BYTE
.BYTE
.BYTE
.BYTE

T17€XP:

000000
000000
000000
000000
000000
000000
000000
000000

.WORD
. WORD
.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
T17EXSTA: .BLKB
T17EXEND:

tC<000>
tC<340>
tC<017>

1 MASK

;MAKE

IT EVEN

(PARERR,IRESVZ2,IRESV]1)

;BEGIN EXPECTED DATA BUFFER
sMESSAGE TYPE

0
0
0
0
0
v}
0
0
66.

;DATA FIELD LENGTH

:RBPCR

)

;EXPECTED READ STATUS AND WRITE FIFO DATA
;END EXPECTED DATA BUFFER

:WRITE FIFO EXPECTED DATA BUFFER

T17WFDATA:

7389

;LOCAL TEXT MESSAGES FOR TEST

7388

;BYTE

;BYTE 2 (TIMER A,TIMER B,UNDEFINED<1:0>)

7386 046054
7387
7390
7391
7392
7393
7394
7395
7396
7397

SEQ 0173

;BR IF YES
;D0 ANOTHER BYTE COUNT

2604
1504

104403

1039002
000137

7374
737S
7376
7377
7378
7379
7380
7381
7382
7383
;g:g

10:39

ENDSUB

735S 045714
7356 045716
7357 045722

7373

16-Sep-85

SUBTEST 6: FIFO Verify Reset FIFO Test

7345 045666
7346 045670
7347 045674

7360
7361
7362

Mondey

.BLKB 66.

3 e

046156
046175
046232

106
127
127

111
122
122

106
111
111

TST171D:
T17SSR: .ASCIZ
T172SSR:.ASCIZ

046343
046406

127
127

122
122

111
111

T174SSR:.ASCIZ
T175SSR:.ASCIZ

046276

127

122

111

T173SSR:.ASCIZ

.ASCIZ

‘WRITE
'WRITE
‘WRITE
‘WRITE
‘WRITE

'FIFO Exerciser’

CHARACTERISTICS Failed’
SUBSYSTEM (Write Misc) Failed’
SUBSYSTEM (Read Status) Failed'
r) Failed’
SUBSYSTEM (Write
SUBSYSTEM (Write FIFO) Failed’

TSVS - HARDWARE TESTS
TEST

SUBTEST 6:

7398 046452
7399 046515
7400 046577

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-27

SEQ 0174

FIFO Verify Reset FIFO Test

7401 046673
7402 046757

127
106
122
106
106

122
111
145
111
111

111
106
141
106
106

T176SSR:.ASCIZ
T171CMP:.ASCIZ
T172CHMP:.ASCIZ
T173CMP:.ASCIZ
T174CMP:.ASCIZ

‘'WRITE SUBSYSTEM (Reed FIFO) Failed’
'FIFO Status in WORD #9 Incorrect after Initielize’
'Read FIFO Data not equal to Write FIFO , Data is in WORD 48’
'FIFO Status (In WORD #9) Incorrect after WRITE FIFO'
'FIFO Status (In WORD 09) Incorrect after READ FIFO'

7404 047116
;:82 047224

106
106

111
111

106
106

T176CMP: .ASCIZ
T177CHP:.23252

'FIFO Stetus (In WORD 99) Incorrect after READ FIFO from an Empty FIFQ'
'FIFO Status (In WORD #9) Incorrect after RESET FIFO’

7403 047042

122

145

7407
7408

141

T175CMP:.ASCIZ

;:23

‘Read FIFO Data not equal to Write FIFO Deata’

CLEAR MESSAGE BUFFER

7411 047310

7412 047310
7413 047314
7414 047320
7415
7416
7417
7418
7419
7420

047324
047326
047330
047332

T17CLRBUF ;
012701
012702

105021
C€05302
003375
000207

047572
000120

10¢:

;:gé

s
:

7423 047334

7424 047334

7425
7426
7427
7428
1429
7430

047340
047344
047350
047352

004737

012700
112720
105010
000207

047310

047310
047730

7437 047370
7438 047374

112710
000207

000030

7436 047364
7439
7440

112720

000010

MOVB
MOVB
RTS

#T17DT2,RO
OPW . RDSTATUS,(RO)»
(RO)
PC

sWRITE SUBSYSTEM DATA BUFFER
;STORE READ STATUS COMMAND IN BSELO
;CLEAR BSEL1
sRETURN

OMS .RSFIF!MS
. RSTAP,(RO)
PC

;STORE BSEL1 CL
;sRETURN

oPUW . WMISC,(RO).

INPUT:

;CLEAR MESSAGE BUFFER

sCLEAR MESSAGE BUFFER
sWRITE SUBSYSTEM DATA BUFFER

;

;::;

;:CLEAR A BYTE
;sDONE?
;1BR IF NO
:RETURN

PC,T17CLRBUF
#T17072,R0

SETUP T17PK2 PACKET FOR WRITE NPR

;::g

PC,.T17CLRBUF

;

7442

7443

(R1)+
R2
10%
PC

:SAVE R1-RS UNTIL NEXT RETURN
:GET MESSAGE BUFFER ADDRESS
:SIZE OF MESSAGE BUFFER IN BYTES

SETUP T17PK2 PACKET FOR WRITE MISC RESET FIFO

T17RSFIF:
JSR
MOV

7441

JSR

MOV
MOVB
CLRB
RTS

;

004737
012700

OT178FR,R1
OT17BEND-T178FR,R2

SETUP T17PK2 PACKET FOR READ STATUS

T17SRD:

7433 047354
7434 047354
7435 047360

CLRB
DEC
8GT
RTS

047730
000005

;:gé

SAVREG
MOV
MOV

;STORE WRITE MISCELLANEOUS IN BSELO
AR FIFQO CODES

RO CONTAINS BSEL1 NPR DATA
SETS NP.WRP SINCE IF O IT WRITES WRONG PARITY.

7448 047376
7449 047376
7450 047402

004737
012701

047310
047730

7452 047412
7453 047416
7454 047420

052700
110011
000207

000020

7451 047406

112721

000011

T17SNPR:

JSR
MOV

PC,T17CLRBUF
8717072 ,R1

;CLEAR MESSAGE BUFFER
;WRITE SUBSYSTEM DATA BUFFER

8IS
MOvB
RTS

ONP . WRP ,RO
RO,(R1)
PC

;OON'T WRITE WRONG PARITY
:STORE NPR DATA IN BSEL1L
+RETURN

MOVB

OPW._WNPR,(R1)

;STORE WRITE NPR IN BSELO

TSVS

- HARDWARE TESTS

TEST

MACRO Y05.02

Monday

16-Sep-85

10:39

Page 84-28

SEQ 0175

SUBTEST 6: FIFO Verify Reset FIFO Test
3

SETUP T17PK2 PACKET FOR WRITE FIFO

3
$

INPUT:

3
'

RO CONTAINS BYTE COUNT
R1 CONTAINS DATA PATTERN BLOCK ADDRESS

‘-

T17WFIF:

SAVREG

JSR

047310
047730
000004

10¢:

MOV
MOve
MOVB
CLR
MOVe
JEC
8GT
RTS

PC,.T17CLRBUF

#T17072,R2
OPUW . WFIFO,(R2).
RO,(R2)+
(R2)+
(R1)+,(R2)+
RO
104
PC

;SAVE R1-RS UNTIL NEXT RETURN

;CLEAR MESSAGE BUFFER

sWRITE SUBSYSTEM DATA BUFFER
;:STORE WRITE FIFO IN BSELO
:STORE BYTE COUNT IN BSEL1
;CLEAR SEL2 (UNUSED)
;STORE DATA PATTERN BYTE
;OONE ALL BYTES?
1BR_IF NO
s RETURN

: SETUP T17PK2 PACKET FOR READ FIFO
:

:
:

INPUT:

RO TONTAINS SEL2 BYTE COUNT

004737
012701
112721
110021
000207

047310
047730
000003

T17RFIF:

JSR

PC.T17CLRBUF

;CLEAR MESSAGE BUFFER

MOVB

RO,(R1).

:STORE BYTE COUNT IN BSEL1

MOV
MOovB
RTS

eT1707T2.R1
OPUW_RFIFO,(R1)»
PC

;WRITE SUBSYSTEM DATA BUFFER
:STORE READ FIFO IN BSELO
sRETURN

CLEAR EXPECTED DATA MESSAGE BUFFER

012701

045732
000122

TL7CLEXP:

10¢:

MOV

oT17€EXP,R1

;:GET EXPD ADDRESS

CLRB
CEC
8GT

(R1).
RO
10¢

;CLEAR A BYTE
;DONE?
sBR IF NO

MOV

RTS

OT17EXEND-T17EXP,RO

:GET EXPD SIZE

;RETURN

:1Set WORDS 0-7 of expd message buffer = to recv since not testing
;-

012702
012703
012700
012322
005300
003375
000207
047550

045732
047572
000010

T17SETEXP:
MOV
MOV
MOV

5¢:

MoV
DEC
8GT

RTS

OT17EXP,R2
#T17BFR,R3
8. .RO

:GET EXPD
:GET READ STATUS RECV BUFFER
;SET WORDS 0-7 EXP=RECV

;:RETURN

(R3)+,(R2)+
RO
54

.=<.+10>E177770

:SET EXPD=RECV
:DONE _WORDS 0-7 WORDS?
+BR _IF NO

TSVS - MARDWARE TESTS

SUBTEST 6:

16-Sep-85

10:39

Page 84-29

SEQ 0176

FIFO Verify Reset FIFO Test

tWRITE CHARACTERISTICS COMMAND PACKET

7514

7515

Mondey

047550
047550

100004
047560

%17PACKET:

.WORD
.WORD
.WORD
.WORD

000012
047572
000000
000024

T170ATA:

. WORD
.WORD
.WORD
.WORD
.WORD

;sCOMMAND PACKET FOR TEST

;WRITE CHARACTERISTICS COMMAND, WITH ACK
;ADDRESS OF CHARACTERISTICS BLOCK

100004
T17DATA

;MINIMUM MESSAGE PACKET SIZE

10.

1 CHARACTERISTICS DATA BLOCK
1ADDRESS OF MESSAGE BUFFER

T17BFR
0
20.
0
0

1LENGTH OF MESSAGE BUFFER

:ESS,ENB,EAI,ERI
;EXTENDED FEATURES UNIT NO.

ETC.

sMESSAGE BUFFER FOR ALL TEST 6 COMMANDS
T178FR:

T178FSTA:
T178BEND:
H

;WRITE
H

r17pPK2:

T17072:

;BEGIN MESSAGE BUFFER
+MESSAGE TYPE
:DATA FIELD LENGTH
:RBPCR
: XSTO
$XST1

0
0
0
0
0
0
0
0
.BLKSB 64.

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

:XST4 (ALWAYS PRESENT FOR WRITE SUBSYSTEM
;READ STATUS AND WRITE FIFO BUFFER

+END OF MESSAGE BUFFER

SUBSYSTEM READ STATUS COMMAND PACKET
.=<,+10>E177770

.WORD
.WORD
. WORD
.WORD

.BYTE
.BYTE
.WORD
.BLKB

P.WRTSUB!P.ACK

T170T2

10.

ENOTST

L10056:

104401
.SBTTL
H
$

TEST

TEST DESCRIPTION:

: TEST STEPS:
3
:

sWRITE SUBSYSTEM WITH ACK
;LOW ADDRESS OF DATA BLOCK
sHIGH ADDRESS OF DATA BLOCK
;MINIMUM MESSAGE PACKET SIZE

;OATA BLOCK
;BSELO
:BSEL1
s SEL2
;:WRITE FIFO DATA OUTPUT BUFFER

rOOO

TEST

MACRO Y05.02

REPEAT FOR LOOPCNT

STATIC TRANSPORT BUS INTERFACE TEST

TRAP

CS$ETST

TSVS - HARDWARE TESTS

TEST

MACRO Y05.02

Mondey 16-Sep-85 10:39

Page 84-30

SEQ 0177

7: STATIC TRANSPORT BUS INTERFACE TEST
BEGIN

7571
7572
7573
7574
7575

Write to TSSR rogintcr to soft

initialize the controller

Do WRITE CHARACTERISTICS to check for Extended Features Switch
If Extended Features Hardwere Switch Clear then:
Do Write Subsystem Write Miscellaneous to Set Extended Festures.
Do WRITE CHARACTERISTICS to select reserved unit 7
Do a Write Subsystem READ STATUS

g;oony transport

012737

050546
016510
000012

002216

8GNTST
MOV
JSR
T18LOOP:
3

004737

103405

Ss:

015774

104455
001274
003652
012034

012704
004737

10%:

002222
051230
010662

103407

010004

104455
001275
050603
012046
005237

12%:

002222

15¢:

104406

050204
050220

012701
032761
001026
004737
012704
010465
004737

103407

051252

000200

051076
051300
020000
016336

0TST18ID,.RO

PC,TSTSETUP

Write to TSSR register to soft

JSR
B8CS

MOV
ERRDF

010001

005037

MOV

)

interface signals are aseerted then Print Error

PC,SOFINIT
10¢

RO,R1
ERRNO,SFIERR,SFIMSG

T
;ASCII MESSAGE TO IDENTIFY TEST
100 INITIAL TEST SETUP
{PERFORM 10 ITERATIONS

initislize the controller

;WRITE TO TSSR TO SOFT INITIALIZE
:BR IF SOFT INIT OKAY
:SAVE CONTENTS OF TSSR
;DEVICE FATAL DURING INITY
TRAP
.WMORD
.WORD
.WMORD

CSEROF
700
SFIERR
SFIMSG

Do WRITE CHARACTERISTICS to check for Extended Features Switch
CLR
FATFLG
:CLEAR FATAL ERROR FLAG
MOV
OT18PACKET R4
:GET THE ADDRESS OF COMMAND PACKEY
JSR
PC.WRTCHR
FORCERROR
12%

:00 WRITE CHARACTERISTICS COMMAND
; 880FORCE ERROR IF FORCER=1

MOV
RO,R1
NEXT .ERRNO

;SAVE CONTENTS OF TSSR

8CS

154

;B8R IF CARRY SET (GOOD RETURN)

ERRDF

ERRNO,T18SSR,PKTSSR

+DEVICE FATAL SSR FAILED TO SET

INC
CKLOOP

FATFLG

:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET

TRAP
.WORD
.WORD
.MORD

CSEROF
701
T18SSR
PKTSSR

TRAP

CsCLP1

If Extended Features Hardware Switch Clear then:
Do Write Subsystem Write Miscelleneous to Set Extended Features.

000012

MOV

OT188FR,R1

JSR

PC.TlOSHISC

8cs

304

817
BNE

oX2 .EXTF,XST2(R1)
30¢

MOV
#T18PK2,R4
MOV
R4, TSDB(RS)
JSR
PC,CHKTSSR
FORCERROR
224

tMESSAGE BUFFER ADDRESS

;EXTENDED FEATURES SWITCH SET?
1BR_IF YES

:SETUP PACKET FOR WRITE MISCELLANEOUS
+GET WRITE SUBSYSTEM COMMAND PACKET
:SET _THE PACKET ADDRESS TO EXECUTE
:WAIT FOR SSR TO SET
;: S80F ORCE ERROR IF FORCER=1

;B8R IF CARRY SET (GOOD RETURN)

TSVS

- HARDWARE TESTS

TEST

MACRO Y05.02

HMondey

16-Sep-85

10:39

Page 84-31

SEQ 0178

STATIC TRANSPORT BUS INTERFACE TEST

7622 050222
7623 050224
7624 050224

050224

010001

’
22%:

104455

001276
050642
012046
005237

002222

104406

005037
012704
004737

30¢:

104406

012701
105021

7659
7660
7661
7662
7663 050410

004737

051120

TRAP

CSERDF
702
T182SSR
PKTSSR
CsCLPL

424%

ORCE ERROR IF FORCER=1

50¢:

INC
CKLOOP

;SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET

604
:

FATFLG

Clear messe
buffer
MOV
#T18BFR, R}
MOV
T18DATA+4,RO

CLRB
DEC

(R1).

;DEVICE FATAL SSR FAILED TO SET
TRAP
.WORD
.WORD
.WORD

CSEROF
703
T18SSR
PKTSSR

TRAP

CsCLP1

:GET MESSAGE BUFFER ADDRESS

:SIZE OF MESSAGE BUFFER IN BYTES
:CLEAR A BYTE
;DONE?
;8 R IF NO

BGT
604
Do @ Write Sublxoton READ STATUS
JSR
PC.T18SRO
:SETUP PACKET FOR READ STATUS
MOV
0T18PK2,RA
sGET WRITE SUBSYSTEM COMMAND PACKET
MOV
R4 ,TSDB(RS)
;SET THE PACKET ADORESS TO EXECUTE
JSR
PC,CHKTSSR
tWAIT FOR SSR TO SETY
FORCERROR

8CSs

002222

IF FLAG SET

424

051056
051300
000000
016336

7657
7658

1LOOP ON ERROR,

.WMORD
.WMORD

iBR IF CARRY SET _(GOOD RETURN)
:SAVE CONTENTS OF TSSR

051252

051244

TRAP
.WORD

8Cs
S0
MOV
RO,R}
NEXT .ERRNO
ERROF
ERRNO, T18SSR,PKTSSR

C10001

002222

1DEVICE FATAL SSR FAILED TO SET

:SET FATAL ERROR FLAG

FATFLG

FORCERROR

103407

001277
050605
012046
005237

INC
CKLOOP

s SAVE CONTENTS OF TSSR

Do WRITE CHARACTERISTICS to select reserved unit
7
CLR
FATFLG
;CLEAR FATAL ERROR FLAG
MOV
#T18PACKET, R4
iGET THE ADDRESS OF COMMAND PACKET
PC,.WRTCHR
JSR
;D0 HRITE CHARACTERISTICS COMMAND

002222
051230
010662

104455

MOV
RO.R1
NEXT
. ERRNO
ERRDF ERRNO, T182SSR,PKTSSR

704

624

; 880FORCE ERROR IF FORCER=1

:BR IF CARRY SET (GOOD RETURN)

;SAVE CONTENTS OF

624:

MOV
RO.R1
NEXT .ERRNO
ERROF
ERRNO,T183SSR,PKTSSR

70%:

INC
CKLOOP

;SET FATAL ERROR FLAG
;:LOOP ON ERROR, IF FLAG SET

FATFLG

TSSR

;:DEVICE FATAL SSR FAILED TO SET
TRAP
.WORD
.WORD
.WORD

LS$EROF
704
T183SSR
PKTSSR

TRAP

cscLPL

Set first 8 words of expd message buffer = to recv since not
Set unused bits in Read Status expd equal rcvd
PC,.T18SETEXP
JSR
:SET SOME EXPD TO RECV

testing

TSVS

- HARDWARE TESTS

TEST

7664

MACRO Y05.02

Mondey

16-Sep-85

10:39

Page 84-32

SEQ 0179

STATIC TRANSPORT BUS INTERFACE TEST
003000
012701
012702
012703
004737

If any transport
CLR
RO

051252
050516

011500

#T188BFR,R1

sLOW RECV ADORESS FOR CKMSG2

MOV
JSR

#10. ,R3
PC,CKMSG2

sNUMBER OF WORDS TO COMPARE
;EXPD EQUAL RECV?

8CS

90¢

;:BR IF YES

ERRHRD

ERRNO, T18CMP,MSGSTAT

#T18EXP,R2

FORCERROR

103404

82%:

104456

MOV
MOV

000012

interface signels are asserted then Print Error
+HIGH RECV ADORESS FOR CKMSG2

828 ,NOTSSR

NEXT .ERRNO

;EXPD ADDRESS

; 880

;sREPORT ERROR

001301

050753
012350

904 :

104406
005737
C01402
004737
004737

103002
000137

002222

017202
016456

160¢:

050056

1654

104432

CKLOOP

:LOOP ON ERROR,

TRAP
.WORD
.WORD
.WORD
IF FLAG SET
TRAP

TST

FATFLG

s ANY FATAL ERRORS

JSR

PC,.TSTLOOP

.DO ITERATIONS?

BEQ
JSR

eccC

1604
PC.CKDROP

1654

JHP

Ti8L00P

EXIT

CSERMRD
705
Ti8CP
MSGSTAT
CsCLP1

sBRANCH IF NOT
sTRY TO DROP THE UNIT

R IF NO

:LOOP UNTIL ITERATIONS DONE
TRAP

.WORD

000606

CSEXIT

L10065-.

:LOCAL STORAGE FOR THIS TEST
:

T18MSK:

377

T18EXP:

020

T18XS:

.WORD
.WORD
.WMORD
.WORD
.MORD
.WORD
.WORD
LWORD
.WORD
.WORD

O
O
O
O
O
O
O
O
O
O

;EXPECTED DATA BUFFER
:MESSAGE TYPE
;OATA FIELD LENGTH
sRBPCR
1 XSTO
1 XST1
s XST2
;1XST3
;XST4 (ALMAYS PRESENT FOR WRITE
;READ STATUS BYTE 1/0
;READ STATUS BYTE 2

.BYTE
.WMORD

377.020
O

;:READ STATUS BYTE 071 EXPECTED BASE
;READ STATUS BYTE 2 EXPECTED BASE

;LOCAL TEXT MESSAGES FOR TEST

;BYTE
:BYTE
;:BYTE
tMAKE

O MASK
1
2
IT EVEN

IN READ STATUS BYTES

tC<000>
tC<340>
tC<277>
0

‘-

;:MASK OF UNUSED BITS

.BYTE
.BYTE
.BYTE
.BYTE

SuB)

TSVS

- HARDWARE TESTS

TEST

7714
7715
7716
7717

MACRO Y05.02

Monday

16-Sep-85 10:39

Page 84-33

SEQ 0180

STATIC TRANSPORT B8US INTERFACE TEST
141
111
111
111

050706
050753

143

TST1810:
T18SSR: .ASCIZ
T182SSR: .ASCI2
T183SSR: .ASCIZ
T18CHMP: .ASCIZ
.EVEN

.ASCIZ
‘'Static Trenspo rt Bus Interface’
‘WRITE CHARACTERISTICS Feiled'
'WRITE SUBSYSTEM (Write Misc) Feiled’
‘WRITE SUBSYSTEM (Read Status) Feiled’

‘Transport Bus Interface Signals NOT Negated After Unit 7 Selected’

: SETUP T18PK2 PACKET FOR READ STATUS
.

051056
051056
051062
0351066
031072
051074

t18sR0:
012700

112720
105010

051310

SAVREG
MOV8
CLRB
RTS

000005

000207

#71807T2,R0
#PU.RDSTATUS,(RO).
£g°)

;SAVE R1-RS UNTIL NEXT RETURN
tWRITE SUBSYSTEM DATA BUFFER
:STORE READ STATUS COMMAND IN BSELO
s CLEAR BSEL1

sRETURN

: SETUP T18PK2 PACKET FOR WRITE MISC.

T18SMISC:

0351076
012700
112720
112710
000207

SAVREG
MOV
MOVE
MOve
RTS

051310
000010
000200

:SAVE R1-R5 UNTIL NEXT RETURN
sWRITE SUBSYSTEM DATA BUFFER
;STORE WRITE MISCELLANEQUS IN BSELO
:gé?fiSNINVERT EXTENDED FEATURES IN BSEL1

#7168072,R0
oPW . WMISC,(RO).

ggS.EXT.(RO)

iSet first 8 words of expd aosoogc buffer = to recv since not testing
H
012702
012703
012700
012322
003300
003373
012701
013712

Set unused bits

T18SETEXP:
Ss:

000002

MOV

in Read

te tus expd equal

#T18EXP,R2
#T18BFR,R3
#8..RO

(R3)+,(R2).

RO
Ss
#T18MSK,R1
718XxS,(R2)
TIGXSéZ.Z(RZ)

.=<.+10>E177770

:HRITE CHARARTERISTICS COMMAND PACKET

rcvd

1GET EXPD
1GET READ STATUS RECV BUFFER
1SET FIRST 8 WORDS EXP=RECV
1 SET _EXPD=RECV
1OONE FIRST 8 WORDS?
1BR_IF NO
1GET UNUSED BIT MASK
;1SETUP BASE EXPECTED BYTE 1/0
sSETUP BASE EXPECTED BYTE 2
sGET RECV BYTE 1 AND BYTE O
1CLEAR ALL BUT UNUSED
1CLEAR UNUSED IN EXP
$SET UNUSED EXPD=RECV FOR COMPAR:
sGET RECV BYTE 2
sCLEAR ALL BUT UNUSED
sCLEAR UNUSED IN EXPD
$1SET UNUSED EXPD=RECV FOR COMPARE
+CLEAR EXPO BYTE 3 (UNUSED)
tCLEAR RECYV BYTE 3 (UNUSED)
s RETURN

TSVS - MARDMARE TESTS
7:

Monday

16-Sep-85 10:39

Page 84-34

SEQ 0181

STATIC TRANSPORT BUS INTERFACE TEST

051230
051230

100004
051240

$18PACKET:

000000
000012

051240
031240
051242
031244

051274

031252
0000600
000024
000000
000007

000000
000000
C00000
000000
000000
000000
000000
000000
000000
000000

T18DATA:

T188FR:

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

.MORD
"WORD
'WORD
WORD

100004
T18DATA
O
10.

.HORD
‘WORD
WORD
'WORD
'WORC

T18BFR
O
20.
O
7

sLENGTH OF MESSAGE BUFFER

LHORD
‘WORD
WORD
'WORD
‘WORD
‘WORD
'WORD
'WORD
[uoRD

O
0O
O
0
0
0
O
O
0

tMESSAGE BUFFER
tMESSAGE TYPE
sDATA FIELD LENGTH
1RBPCR
1XSTO
1XST}
1 XST2
; XST3
1 XST4 (ALWAYS PRESENT FOR WRITE SUBSYSTEM
sREAD STATUS BYTE 1/0 RETURNED
sREAD STATUS BYTE 2

sMESSAGE PACKET MINIMUM SIZE
1CHARACTERISTICS DATA BLOCK

1 ADDRESS UF MESSAGE BUFFER

1ESS,ENB ,EAI,ERI
; SELECT RESERVED UNIT 7

:HRITE SUBSYSTEM READ STATUS COMMAND PACKET
051300
0351300
031302
031304
051306
031310
031310
051311
051312
051314
051316
051316
0351316

051300
100006
051310

T18PK2:

000000
000010

000
000
000000
000000

T18072:

.=<,+10>E177770
.WORD
.MORD
.WORD
.WORD
.BYTE
.BYTE
. WORD
. WORD

P.WRTSUB!P.ACK
T180T2
O
8.

tWRITE SUBSYSTEM WITH ACK
:LOW ADORESS OF DATA BLOCK
tHIGH ADODRESS OF DATA BLOCK
1BUFFER EXTENT

0000

TEST

MACRO Y05.02

sOATA BLOCK
:BSELO
;:8SELL
1 SEL2
;:DATA

ENDTST
104401

.SBTTL

L1006S:
TEST

TRANSPORT BUS INTERFACE LOOPBACK TEST

: TEST DESCRIPTION:
* e

This test verifies the controller's Transport Buse
drivers, receivers, and si
al loopbeck logic. Note
that the Static Trensport
s test must have run
correctly for this test to provide meaningful results.
TEST STEPS:

TRAP

LSETSTY

TSVS

- HARDWARE TESTS

TEST

MACRO Y05.02

HMondey 16-Sep-85 10:39

Page 84-35

SEQ 0182

TRANSPORT BUS INTERFACE LOOPBACK TEST

REPEAT FOR LOOPCNT
BEGIN

'
i

1
$
:
]

Do
Do
Do
Ewoo

Subtest
Subtest
Subtest
Subtest

1
2
3
4

Loopback
Loopbeck
Loopback
Loopback

Control signals test
Read/Mrits signals test
Write Strobe
test
Read Strobe test

3
F--

BGNTST
012700
004737
012737

057532
016510
000012

MOV

002216

JSR
T19L00P MOV

.SBTTL

#7ST191ID,RO

1ASCII MESSAGE TO IDENTIFY TEST

PC,TSTSETUP
€10. ,LOOPCNT
TEST

SUBTEST

;100 INITIAL TEST SETUP
tPERFORM 10 ITERATIONS
1:

LOOPBACK CONTROL SIGNAL

TEST

jee

TEST 8:

SUBTEST 1:

SUBTEST DESCRIPTION:
This subtest verifies the Transport Control

path can trensait and receive corroctlx.

loopbeck

control signals ere all loopback signals other
then the read/write date (IN<7:0> and IR7:0>).

TEST STEPS:
The loopbeck signals IFAD,ITADO,ITADL are the tepe unit select

lines. Since reserved unit 7 must remain selected these signels
ere aluways set low. This further maans the signals they drive

(ISPEED,.IRDY,.IONL) are only tested

BEGIN

Write to TSSR

ister to soft

in the low state.

initialize the controller

Do WRITE CHARACTERISTICS to check for Extended Features Switch
If Extended Features Hardwere Switch Clesr then:
Do Write S«bo¥oto- Write Miscellaneous to Set Extended Features.
Do WRITE CHARACTERISTICS to select reserved unit 7 end setup BUFFER
a Write Subsystea WRITE NPR to set tzo direction out and L

88 ~¥8¥

0351320
051320
051320
051324
031330
051336

Write Subeystem Write Control to CLE

Mrite S\bozot- Write Formet to CLEAR 1

m& signals group 1.

k signals ’roup 2.

the loopbeck
signals have to be cleared here due to the
Plip-fiope
that are set on & 1 to O transition (IMER,IFMX, ICER))
8 Write Subsystem lrite Misc to Reset Tepe Status F-FLOPS
® lrite Subsystesm READ STATUS
ell Tepe Status 2 (ICER,IFMK, IMER) flip-flop

signales NOT=0 Then Print Error

aege}nroa ALL TEST PATTERNS IN TSTBLK TABLE
Do Write Subsystea lrite Control to Drive

Do Write Subeystes Write Format

Do @ Write Sfl.zoyoto- READ STATUS

to Drive

om:ck signale grouwp 1.
&

signals group 2.

}

TSVS

- HARDWARE TESTS

TEST

SUBTEST 1:

MACRO Y05.02

16-Sep-85

10:39

we
W
we
@e
®s

loopback deta NOT= date sent Then Print Error
@ Write Subsystem Write Misc to Reset Tape Status F-FLOPS
a UWrite Subsystem READ STATUS
all Tepe Status 2 (ICER,IFMK,IHER) flip-flop

signals NOT=0 Then Print Error

BGNSUB

1 /77777777777 BE?%N SUBTESTY /777777777
.1

104402

004737
103405
010001

015774

005037
012704
004737

002222
061660
010662

10¢:

104455
001441
057573
012046
005237

12%:

RO R1

initialize

TRAP

002222

15¢:

061702
000200

iWRITE TO TSSR TO SOFT INITIALIZE
:BR IF SOFT INIT OKAY
:SAVE

CONTENTS

TSSR

;:DEVICE FATAL DURING INIT
TRAP
CS$ERDF
.WMORD
800
SFIERR
.WORD
. WORD
SFIMSG
Do WRITE CHARACTERISTICS to check for Extended Features Switch
CLR
FATFL
;CLEAR FATAL ERROR FLAG
MOV
0T19PACKET R4
;GET THE ADDRESS OF COMMAND PACKET
JSR
PC,WRTCHR
:00 WRITE CHARACTERISTICS COMMAND
154

124

RO.R1

NEXT.ERRNO
ERRDF
ERRNO,T19SSR,PKTSSR

;B8R

:SAVE

; 880FORCE

CARRY

SET

CONTENTS

;:DEVICE FATAL

ERROR

FORCER=1

(GOOD RETURN)
TSSR

SSR FAILED TO SET
TRAP
CS$ERDF
.WORD
801

061532
062030
000000
016336

FATFLG

MOV

0T198FR,R1

JSR
MOV
MOV

PC,T19SEXT
OT19PK2,R4
R4, TSDB(RS)

JSR

8Cs

MOV

002222

T19SSR

PKTSSR

:SET FATAL ERROR FLAG
;:LOOP ON ERROR, IF FLAG SET
TRAP
CsCLP1
I1f Extended Features Hardware Switch Clear then:
Do Write Subsystem Write Miscellancous to Set Extended Features.
:MESSAGE

BUFFER

ADDORESS

X2 .EXTF ,XST2(R1)
30¢

;EXTENDED FEATURES SWITCH SET?
;BR IF YES

PC,CHKTSSR

;WAIT FOR SSR TO SET

FORCERROR

010001

.WORD

INC
CKLooP

817
BNE

000012

csBSuUB

the controller

.WMORD

103407

104455
001442
057630
012046
005237

ERRNO,SFIERR, SFIMSG

MOV

104406
012701
032761
001026
004737
012704
010465
004737

ERROF

8CS

+10001

to soft

PC.SOrINIT

FORCERROR

103407

reg.ster

JSR
8CS
MOV

104455
C01440
003652
012034

051522

SEQ 0183

®e

If
Do
Do
If

Write to TSSR

051456

Page 84-36

LOOPBACK CONTROL SIGNAL TESTY

7890
7891
7892
7893
7894
7895
7896
7897 051336

051336
051336

Monday

304

RO,R1

221

22%:

NEXT .ERRNO
ERRDF ERRNO, T192SSR,PKTSSR

30%:

INC
CKLOOP

FATFLG

;SETUP PACKET FOR WRITE MISC INVERT
:GET WRITE SUBSYSTEM COMMAND PACKET
;SET _THE PACKET ADDRESS TO EXECUTE

;BR

; B80FORCE

IF CARRY SET

:SAVE

CONTENTS

;:DEVICE FATAL

ERROR

FORCER=1

(GOOD RETURN)
TSSR

SSR FAILED TO SET
TRAP
.WORD
.WORD
.WORD
;:SET FATAL ERROR FLAG
;:LOOP ON ERROR, If FLAG SET

CSERDF
802
T192SSR
PKTSSR

TSVS

- HARDWARE TESTS

TEST

SUBTEST

051522

7932
7933 051524

7934
7935
7936
7937

051530
051534
051540
051554

7938 051556

7959 051560

7940 051560

051560
051562
051564
051566

7941 051570
7942 051574

051574

7943
7944 051576

7945 051602

7946
7947
7948
7949
7950
7951
7952
7953
7954

051606
051612
051616
051622
051626
051642
051644
051646
051646

051646
051650
051652
051654

7955 051656
7956 051662

MACRO Y05.02

Mondey

16-Sep-85

10:39

Page 84-37

104406
005037
012704
004737

002222
061660
010662

MOV
0T19PACKET R4
JSR
PC.WRTCHR
FORCERROR
424
8CSs
504

103407

010001

MOV
424

104455

001443
057573
012046
005237

002222

104406
C12700

000100

004737
012704
010465
004737

061372
062030
000000
016336

052700

S0s:

000040

005237

002222

104406

RO,R1

NEXT .ERRNO

ERRDF

INC
CKLOOP

ERRNO, T19SSR,PKTSSR

FATFLG

ONP .LOOP ,RO

:IFAD HUST

#WC.I1TAD,RO

;ITAD1 MUST ALMWAYS

B8CS

304

ERRDF

ERRNO,T197SSR,PKTSSR

010001

051742
051744
051746
051750

104455
001445
060113
012046

7973 051742

;SET LOOPBACK ENABLE

&WC.IFAD,RO

PC,.TI9WCTL

7971 051740
7972 051742

CsCLP1

direct.on out and Loopback
DIRECTION ouT

BIC

JSR

7970 051736

TRAP

803
T19SSR
PKTSSR

;SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET

061472

012704
010465
004737

;SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET

CSERDF

FATFLG

004737

051706
051712
051716
051722

.WORD
.WORD
.WORD

INC
CKLOOP

B8IC

7966
7967
7968
7969

TRAP

708 :

000100

042700

;DEVICE FATAL SSR FAILED TO SET

62¢:

042700

7964 051676

sSAVE CONTENTS OF TSSR

:SETUP T19PK2 FOR WRITE NPR
;GET WRITE SUBSYSTEM COMMAND PACKET
;SET THE PACKET ADORESS TO EXECUTE
;WAIT FOR SSR 1O SET
; S39DFORCE ERROR IF FORCER»s1
;BR IF CARRY SET (GOOD RETURN)
;:SAVE CONTENTS OF TSSR

7963 051672
7965 051702

CsCLP1

JSR
PC, T19SNPR
MOV
OT19PK2 ,R4
MOV
R4 ,TSDB(RS)
JSR
PC.CHKTSSR
CORCERROR
624
8CS
704
MOV
RO,R1
NEXT.ERRNO
ERRDF
ERRNO,T1945SR,PKTSSR

005000

042700

TRAP

;GET THE ADDRESS OF COMMAND PACKET
:00 WRITE CHARACTERISTICS COMMANO
; 390FORCE ERROR IF FORCER=1
;B8R IF CARRY SET (GOOD RETURN)

Do @ Write Subsystem WRITE NPR to set t
MOV
ONP ,OUT,RO
;SET TAP

BIS

103407
010001

104455
001444
057741
012046

Do WRITE CHARACTERISTICS to select reserved unit
CLR
FATFL
:1CLEAR FATAL ERROR FLAG

051662
7987
7958
7959
7960
7961 051664

7962 051666

SEQ 0184

LOOPBACK CONTROL SIGNAL TEST

H
:
H
:

000200

000040

103407
82s3:

SSR FAILED TO SET

TRAP
.WORD
. WORD
.WORD

CS$ERDF
804
T194SSR
PKTSSR

TRAP
cscLPL
Do Write Subsystem Write Control to CLEAR loopbasck signals group 1.
Do Write Subsystem Write Format to CLEAR loopbeck signals
group 2.
(the loopback
signals have to be cleared here due to the
flip-flops
that sre set on a 1 to O transition (IHER IFMK,ICER))
CLR
RO
;sWRITE O
8IC

062030
000000
016336

;sDEVICE FATAL

ouUC.IOTAD,RO

ALWAYS =0

;ITADO MUST ALMAYS =0

;SETUP PACKET FOR WRITE CONTROL

MOV
OT19PK2 R4
MOV
R4 ,TSDB(RS)
JSR
PC.CHKTSSR
FORCERROR
824

;GET WRITE SUBSYSTEM COMMAND PACKET
:SET THE PACKEYT ADDRESS TO EXECUTE
:WAIT FOR SSR TO SET
; 880FORCE ERROR IF FORCER=1

MOV
RO,R1
NEXT
. ERRNQ

: SAVE CONTENTS OF TSSR

;BR IF CARRY SET (GOOD RETURN)

;DEVICE FATAL SSR FAILED TO SET
TRAP
.MORD
.WORD
.MORD

CIERDF
805
T197SSR

PKTSSR

TSVS

TEST

HARDWARE

SUBTEST 1:

7974 051732
7975 051756
7976
7977
7978
7979
7980
7981
7982
7983
7984
7985

TESTS

0351756
051760
051762

051766
051772

MACRO Y05.02

Monday

005237
104406
005000
004737
012704
010465
004737

002222

904
:

061512
062030

000000
016336

103407
102%:

104455

001446
060162
012046
005237

002222

104406

004737
012704
010465
004737

052116
052122

110¢:

SEQ 0185

061350
062030
000000
016336

;SET FATAL ERROR FLAG
;:LOOP ON ERROR, IF FLAG SET

CLR
JSR

RO
PC,T19WFHT

;SET FORMAT DRIVE DATA=0
:SETUP PACKET FOR WRITE FORMAT
:GET WRITE SUBSYSTEM COMMAND PACKETY
:SET _THE PACKET ADDRESS TO EXECUTE
:WAIT FOR SSR TO SET
; 380FORCE ERROR IF FORCEP=1
;BR IF CARRY SET (GOOD RETURN)
; SAVE CONTENTS OF TSSR

MOV
0T19PK2,R4
MOV
R4 ,TSDB(RS)
JSR
PC,CHKTSSR
FORCERROR
1024
8Cs
1104
MOV
RO,R1
NEXT.ERRNO
ERRDF
ERRNO,T198SSR,PKTSSR

INC
CKLOOP

8Cs

122%:

104455

;:DEVICE FATAL SSR FAILED TO SET
TRAP
.WORD
.WORD
.WORD

FATFLG

130§

TRAP

:SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET

1224

MOV
RO,R1
NEXT .ERRNO
ERRDF
ERRNO, T192SSR,PKTSSR

to Reset

TRAP
TeFo Status F-FLOPS

130%:

;:DEVICE FATAL SSR FAILED TO SET

000000

016336

FORCERROR

132%:

002222

104406
004737

061570

.WORD
.WORD

FATFLG

PKTSSR

CsCLP1
Status F-FLOPS

:SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET

CSERDF
807
T192SSR

PKTSSR

TRAP
csCLP1
Do & Write Subsystem READ STATUS
If 011 Tape Status 2 (ICER,IFMK, IHER? flip-flop
gnals NOT=0 Then Print Error
JSR
PC,T19SRD
;SETUP PACKET FOR READ STATUS
MOV
oT19PK2, R4
iGET WRITE SUBSYSTEM COMMAND PACKET
MOV
R4, TSDB(RS)
:SET _THE PACKET ADDRESS TO EXECUTE
JSR
PC,.CHKTSSR
;WAIT FOR SSR TO SET

061330
062030

104455
001450
057674
012046
005237

INC
CKLOOP

CS$ERDF
806
T198SSR

;WAIT FOR SSR TO SET
; 390FORCE ERROR IF FORCER=1
;B8R IF CARRY SET (GOOD RETURN)
;SAVE CONTENTS OF TSSR

. WORD

002222

CsCLP1

:SETUP PKT
FOR WRITE MISC Reset T
sGET WRITE SUBSYSTEM COMMAND PACKE
:SET THE PACKET ADDRESS TO EXECUTE

TRAP

104406

004737
012704
010465
004737

FATFLG

FORCERROR

103407
010001

001447
057630
012046
005237

INC
CkLOOP

Do a Write Subsystem Write Misc
JSR
PC.T19RSFIF
MOV
eT19PK2
R4
MOV
R4 ,TSOB(RS)
JSR
PC.CHKTSSR

103407
010001

052162
052164
8012 052166
8013 052172
052172
8014 052174

Page 84-38

LOOPBACK CONTROL SIGNAL TEST

010001

052074
052076
052100
052100
052100
052102
052104
052106
052110
052114
052114

16-Sep-85 10:39

140%:

1324

8Cs
140%
MOV
RO,R1
NEXT.ERRNO
ERRDF
ERRNO,T193SSR,PKTSSR

INC

FATFLG

JSR

PC,T19SETEXP

CKLoOOP

; 390FORCE ERROR IF FORCER=1

:BR_IF CARRY SET (GOOD RETURN)

:SAVE CONTENTS OF TSSR

;:DEVICE FATAL SSR FAILED TO SET
TRAP
.WORD
. WORD
.WORD

;SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET

CSERDF

808
T193SSR
PKTSSR

CsCLPL
:SET WOROS 0-7 EXPD-RECV (NOT TESTING)

TSVS - HARDWARE TESTS

TEST

8015
8016
8017
8018
8019

8020
8021
8022
8023
8024
8025
8026
8027
8028
8029
8030

MACRO Y05.02

Mondey 16-Sep-85 10:39

Page 84-39

SEQ 0186

SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST

052200
052204
052210
052212
052216

0352222
052226
052234
052236
0352242
052246
052252
0352236
032266
032270
052270

012701
012702
011211
042711
042711

042711
016261
005000
012701
012702
012703
004737

057432
061722
002000
001000
000400
000002

103404
1524%:

013064

005037
012703

057344
002752

8036
8037
8038
8039
8040
8041
8042
8043
8044
8045
8046
8047
8048
8049
8050
8051
8052
8053

052314
052320
052324
052330
052334

010337
042700
042700
042700
010037

002316
000200
000100
000040
002312

052340
052344

013700
004737

002312
061614

052350
052354
052360
052364
052370
052404
052406
052410

004737
012704
010465
004737

061472
062030
000000
016336

052410
052412
052414
052416
805S 052420
8056 052424
8057 052424

104455
001452
060113
012046
005237

8054 052410

8058
8059
8060 052426
8061 052432

000002

061702
057412
000024
011500

052276
8031 052300
052300
8032
8033 052302
8034 052306

8035 052312

MOV
MOV
MOV
8IC
BIC

160¢:

104406

012300

2004 :

:
1880

212%:

104406

013700
004737

002312
061614

8IC
9S1.IHER,(R1)
MOV
2(R2),2(R1)
CLR
RO
MOV
#7198FR,R1
MOV
4T19€eXP,R2
MOV
920. ,R3
JSR
PC,CKMSG2
FORCERROR
1524 ,NOTSSR
8CS
160¢
R ERRNO
NEXT
.
ERRHRD

ERRNO, T197CHMP,MSGLOOP

CKLOOP

:GET EXPECTED READ STATUS
;GET RECV READ STATUS
;:SET EXPD WORD 48 = RECV TEMP

=0
=0
=0
1SET EXPD WORD #9 = RECV (NOT TESTING)
;HIGH RECV ADDRESS FOR CKMSG2
;:LOW RECV ADDRESS FOR CKMSG2
;EXPD ADORESS
sNUMBER OF BYTES TO COMPARE
+EXPD EQUAL RECV?
:SET EXPD ICER
1SET EXPD IFMK
1SET EXPD IHER

; 980
;tBR IF YES

;REPORT ERROR

;LOOP ON ERROR,

TRAP

.WORD
.WORD
.MORD
IF FLAG SET

TRAP

REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE
CLR
T19PREV
;INIT 1-0 TRANSITION FLAG
MOV
OTSTBLK,R3
;GET F'IRST PATTERN ADDRESS

103407
010001

002222

OT19EXSTA,R1
OT198FSTA,R2
(R2),(R1)
0S1.ICER,(R1)
0S1.IFMK,(R1)

2204 :
:
;880

MOV

(R3)+,R0O

;GET A TEST PATTERN

ERRDF

ERRNO,T197SSR,.PKTSSR

;:DEVICE FATAL SSR FAILED TO SET

INC
CKLOOP

FATFLG

:SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET
TRAP

CS$ERHRD

809
T197CMP
MSGLOOP

CsCLPL

MOV
R3,TSTPTR
s SAVE POINTER INTQ TSTBLK
BIC
ouC.IFAD,RO
:IFAD MUST
ALWAYS =0
BIC
OWC.IOTAD,RO
sITADO MUST ALWAYS =0
8IC
OWC.I1TAD,RO
;ITAD1 MUST ALMWAYS =0
MOV
RO,DATA
;SET DATA PATTERN
Do MWrite Subsystem Write Control to Drive loopback signals group 1.
CALL T19CNVT
TO SETUP WRITE CONTROL PATTERN
MOV
DATA,RO
;GET TEST PATTERN
JSR
PC.T19CNVT
;CONVERT PATTERN TO CONTROL DRIVE MASK
;RO CONTAINS WRITE CONTROL DATA HERE
JSR
PC,TI9WCTL
;SETUP PACKET FOR WRITE CONTROL
MOV
oT19PK2,R4
;GET WRITE SUBSYSTEM COMMAND PACKET
MOV
R4 ,TSDB(RS)
;SET THE PACKET ADDRESS TO EXECUTE
JSR
PC,CHKTSSR
;WAIT FOR SSR TO SET
FORCERROR
2124
;88DFORCE ERROR IF FORCER=1
8Cs
2204
;B8R IF CARRY SET (GOOD RETURN)
MOV
RO,R1
;SAVE CONTENTS OF TSSR
NEXT .ERRNO
TRAP
.WORD
.WORD
.MORD

LSERDF
810
T197SSR
PKTSSR

CsCLP1

Do Write Subsystem Write Format to Drive loopback signals group 2.
CALL T19CNVT
TO SETUP WRITE CONTROL PATTERN
MOV
DATA,RO
;GET TEST PATTERN
JSR
PC,T19CNVT
;CONVERT PATTERN TO FORMAT DRIVE MASK

TSVS

- HARDWARE TESTS

TEST

SUBTEST 1:
052436
052440
0352444
052450
052454
052460
052474

MACRO Y05.02

Monday

000300
004737
012704
010465
004737

061512
062030
000000
016336

Paege 84-40

010001

2324 :

052514

104406

052516
052522

co4737
012704
010465
004737

002222

061330
062030
000000
016336

061570
057432
061722
002312
057344
002312
000400

001000

8CsS

2404

ERRDF

ERRNO T198SSR,PKTSSR

SEQ 0187

:WRITE FORMAT DATA RETURNED IN HIGH BYTE
;SETUP PACKET FOR WRITE FORMAT
;GET WRITE SUBSYSTEM COMMAND PACKET
:SET THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSR TO SET

; B80FORCE ERROR IF FORCER=}
iBR IF CARRY SET (GOOD RETURN)

; SAVE CONTENTS OF TSSR

MOV
RO R1
NEXT .ERRN

;:DEVICE FATAL SSR FAILED TO SET

Do & Write Subsystem READ STATUS

FATFLG

TRAP

CsCLPL

+SETUP PACKET FOR READ STATUS
:GET WRITE SUBSYSTEM COMMAND PACKET
;SET _THE PACKET ADDRESS TO EXECUTE

PC,T19SRD
0T19PK2,R4
R4,TSDB(RS)
PC,CHKTSSR

8CS

260

ERROF

ERRNO, T193SSR,PKTSSR

;DEVICE FATAL SSR FAILED TO SET

INC

FATFLG

;SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET

2528

MOV
RO,R1
NEXT .ERRNO

:WAIT FOR

SSR TO SET

; 380FORCE ERROR IF FORCER=1
:BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

2604% :

CKLOOP

If loopback data NOT= data sent Then Print Error

280¢:

CHEROF
811
T198SSR
PKTSSR

JSR
MOV
MOV
JSR

FORCERROR

275%:

.WORD
.WORD
.WORD

TRAP

;SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET

JSR
HOV
MOV
MOV
MOV
MOV
MOV
BIC
8IT

PC,T19SETEXP
OTI9EXSTA R1
0T196FSTA.R2
DATA,(R1)
T19PREV,RO
DATA,R3
#51.1IHER,RS
R4,(R1)
R4 ,RO

MOV
8IC

OSl IFMK,R4
R4, (R1)

BEQ
34
BNE
8IS

2754
R4 ,R3
2754
R4, (R1)

81T
BEQ

RQ.RO
2808

BNE
8IS

2804
R4,(R1)
#S1.ICER,R4
R4,(R1)

B8IT

002000

2324

INC
CKLOOP

252%:

052572

RO
PC,.TI19WFMT
oT19PK2,RA
R4, TSDB(RS)
PC,CHKTSSR

2404

103407
010001

002222

SWAB
JSR
MOV
MOV
JSR

FORCERROR

103407

001453
060162
012046
005237

052670

10:39

LOOPBACK CONTROL SIGNAL TEST

1044535

052574
052600

16-Sep-85

MOV
8IC

TRAP
.WORD
.WORD
.WORD

CS$ERDF
812
T193SSR
PKTSSR

TRAP

CsCLP1

:SET WORDS
0-7 EXPD=RECV (NOT TESTING)
GET EXPECTED READ STATUS

:GET RECV READ STATUS
:SET EXPD WORD #8 TO TEST DATA FIRST
sGET PREVIOUS DATA PATTERN
:GET CURRENT PATTERN
:SETUP IHER EXPECTED
:SET EXPD IMER
=0
sPREVIOUS =1?
:BR IF NO
=07
sCURRENT
;B8R IF NO
;SET EXPD IHER
=1
1SETUP IFMK EXPECTED
=0
sSET EXPD IFMK
sPREVIOUS =17

R4 ,R3

$SET EXPD IFMK
=1
;:SETUP ICER EXPECTED
:SET EXPD ICER
=0

TSVS - HARDWARE TESTS
TEST

|
|

SUBTEST 1:

Monday 16-Sep-85 10:39

Page 84-41

SEQ 0188

LOOPBACK CONTROL SIGNAL TEST

8109 052672
8110 052674

030400
001403

81T
BEQ

R4,RO
2854

;PREVIOUS =17
:+BR IF NO

8112 052700

001001

BNE

2854

:BR IF NO

8111 052676

8113 052702

8114 052704

8115%

8116
8117
8118
8119
8120

030403
011100

012704
050400
030437
001403
030403

8122 052726

040400

8124 052734

052700

8123 052730

8IT

050411

052706
052712
052714
052720
052722

8121 052724

MACRO Y05.02

28Ss:

057344

001401

040000

8125 052740 042700

100000

032712
(€01402
052700

8130 052760

016261

000002

012701

061702

8131 052766

8132 052770
8133
8134
8135
8136
8137
8138
8139

052774
053000
053004
053010
053020
053022
053022
053022

053024
053026
053030

8140 053032
053032
8141

8142 053034
8143 053040

8144 053044

8145 0S3050
8146 053054

8147 053070

005000
012702
012703
004737

000002

2904 :

302%:

310¢:

104406

004737
012704
010465
004737

061350
062030
000000
016336

103407

0S3074
053076
053100
053102
8151 053104

104455
001456
057630
012046
005237

053110
8153
8154 053112
8155 053116

104406
004737
012704

322%:

002222

061330
062030

330%:
3

=07

$:SET EXPD ICER

:1GET EXPD WORD

MOV
8IS
BIT
BEQ
eIT

051 IIDENT R4
R4
R4.T19PREV
288¢
R4 ,R3

s IIDENT
sASSUME EXPD=1
;PREVIOUS IIDENT=1?
:1BR IF NO
$+IS CURRENT IIDENT=1?

8IC

R4 ,RO

;SET EXPD=0

8IS

951 .I1RES,RO

sIRESV1 EXPD ALWAYS=1

#S1.PARERR, (R2)
2904
051 .PARERR,RO

+IS PARERR SET IN RECV?
;B8R IF NO
;SET IN EXPD

If previous IIDENT=1 and current

81S
8IT
BEQ
81s

20684

osi. I2RES,RO

051 .PARERR. RO

MOV

RO,(R1)

CLR

MOV

057412
000024
011500

104456
001455
060721
013064

010001

8152 053110

100000

R4,(R1)

sCURRENT

(R1),R0O

8IC

100000

103404

8148 053072
8149 053074

8150 053074

2884 :

020000

8126 052744
8127 052750
8128 052752

010011

MOV

BEQ

052700

8129 052756

004000

8IS

R4 ,R3

2(R2),2(R1)

#T1968FR,R1

MOV
OT19EXP,R2
MOV
#20. ,R3
JSR
PC,CKMSG2
FORCERROR
3028 .NOTSSR
8CS
3108
NEXT .ERRN
ERRHRD
ERRNO T198CMP ,MSGLOOP

is IIDENT=1 then EXPD= O else 1

:BR IF NO

+JRESV2 EXPD ALWAYS=1

;sIGNORE PARERR

:SETUP FINAL EXPD IN WORD o8

:SET EXPD WORD €9 = RECV (NOT TESTING)
;HIGH RECV ADDRESS FOR CKMSG2

;LOW RECV ADDRESS FOR CKMSG2
;EXPD ADDRESS
;NUMBER OF BYTES TO COMPARE
:EXPD EQUAL RECV?
; 880
:BR IF YES

:REPORT ERROR

TRAP
.WORD
.WORD
.WORD
CKLOOP
;:LOOP ON ERROR, IF FLAG SET
TRAP
Do a Write Subaystem Write Misc to Reset Tngo Status F-FLOPS

JSR
MOV

PC.T19RSFIF
OT19PK2,R4
MOV
R4,TSDB(RS)
JSR
PC,CHKTSSR
FORCERROR
3224

3304

:BR IF CARRY SET (GOOD RETURN)

ERRDF

ERRNO, T192SSR,PKTSSR

;DEVICE FATAL SSR FAILED TO SET

INC

FATFLG

CKLOooP

CsCLPL

;SETUP PKT
FOR WRITE MISC Reset STATUS
;GET WRITE SUBSYSTEM COMMAND PACKET
;:SET THE PACKET ADDRESS TO EXECUTE
;:WAIT FOR SSR TO SET
; 380FORCE ERROR IF FORCER=1

8CSs

MOV
RU,R1
NEXT.ERRNO

C$ERHRD
813
T198CMP
MSGLOOP

:SAVE CONTENTS OF TSSR

;:SET FATAL ERROR FLAG

TRAP
LHWORD
LHORD
.WORD

;LOOP ON ERROR, IF FLAG SET

CSERDF
814
T192SSR
PKTSSR

TRAP
CsCLP1
Do @ Write Sub.‘sten READ STATUS
JSR
PC.7
;SETUP PACKET FOR READ STATUS
MOV
0T19PK2 R4
:GET WRITE SUBSYSTEM COMMAND PACKET

TSVS - HARDWARE TESTS
TEST

SUBTEST 1:

010465
004737

8159 053146

103407

8160 0353150
8161 0531352

8162 053152

104455
001457
057674
012046
005237

053166
816S 053170
8166 053174
8167 053200
8168 053204
8169 053206
8170 053212
8171 053216
8172 053222
8173 053230
8174 053232

104406
004737
012701
012702
0O1l211
C42711
042711
042711
016261
S
012701

8175
8176
8177
8178
8179
8180

053236
053242
053246
053252
053262
053264

8181 053264

012702
012703
004737

104456
001460
060633
012350

8183 053274

104406

8184
8185
8186
8187
8188

013737
013703
020327
103002
000137

053276
053304
053310
053314
053316

g{gg 053322

HOV
8Cs
MOV

3424 :

002222

350¢%:

061570
057432
061722

SEQ 0189

002000
001000
000400
000002

052312

350

1BR IF CARRY SET (GOOD RETURN)

3424

RO,R1

NEXT.ERRNO

ERRDF

ERRNO, T193SSR,PKTSSR

104403

8193 053324
8194 053330
8195 053332

005737
001402
004737

002222
017202

4604
:

TRAP
.WORD
.WORD
.MORD

CS$EROF
815
T193SSR
PKTSSR

JSR
MOV

PC,T19SETEXP
OT19EXSTA,R1

TRAP
CsCLPL
+SET WORDS 0-7 EXPD=RECV (NOT TESTING)
1GET EXPECTED READ STATUS

MOV
MOV
cMP
BHIS
JMP

TST
BEQ
JSR

:LOOP ON ERROR, IF FLAG SET

:GET RECV READ STATUS
1SET EXPD WORD #8 = RECV TEMP
:SET EXPD ICER
=0
:SET EXPD IFMK
=0
1SET EXPD INER
=0
$SET EXPD WORD €9 = RECV (NOT TESTING)
HIGH RECV ADDRESS FOR CKMSG2
.LOW RECV ADDRESS FOR CKMSG2
:EXPD_ADDRESS
sNUMBER OF BYTES TO COMPARE
:EXPD EQUAL RECV?
;830
:BR IF YES

;REPORT ERROR

;:LOOP ON ERROR,
DATA, T19PREV
TSTPTR,R3
R3,4TBLEND
4004
2004

ENDSUB

053322
8192 053322

+DEVICE FATAL SSR FAILED TO SET

1SET FATAL ERROR FLAG

CKLOOP

4004 :

:SAVE CONTENTS OF TSSR

FATFLG

370¢:
057344

; 8890FORCE ERROR IF FORCER=1

INC

CKLOOP

3624:

000002

061702
057412
000024
011500

002312
002316
003062

:SET THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SSR TO
SET

MOV
ATL98FSTA,R2
MOV
(R2),(R1)
8IC
#51.ICER,(R1)
8IC
0S1.IFM,(R1)
8IC
9S1.IHER,(R1)
MOV
2(R2),2(R1)
CLR
RO
MOV
#T198FR,R1
MOV
#T19EXP,R2
MOV
920.,R3
JSR
PC,CKMSG2
FORCERROR
3624 ,NOTSSR
8CS
370¢
NEXT.ERRNO
ERRHRD ERRNO, T197CMP,MSGSTAT

8191 053322

8196 053336
8197
8198
8199
8200

Page 84-42

R4, TSDB(RS)
PC,CHKTSSR

FORCER OR

103404

053264
0353266
053270
053272

8182 033274

000000
016336

010001

053152
053154
053156
053160
8163 053162

8164 053166

Monday 16-Sep-85 10:39

LOOPBACK CONTROL SIGNAL TEST

8156 053122
8157 053126

8158 053132

MACRO Y05.02

TRAP
.HORD
.WORD
.MORD

CS$ERHRD
816
T197CMP
MSGSTAT

TRAP

CsCLP]

IF FLAG SET

:SETUP PREVIOUS DATA FOR EXPD CALC.
sRESTORE CURRENT TSTBLK POINTER
:END OF TSTBLK?
:BR IF YES
;00 NEXT TSTBLK PATTERN

$///////77/7//7 END SUBTEST /777777777
L10067:

FATFLG
4604
PC,CKDROP

;ANY FATAL ERRORS ?
;BRANCH IF NOT
;TRY TO DROP THE UNIT

TRAP

Csesus

TSVS - HARDWARE TESTS

TEST

MACRO Y05.02

Monday

16-Sep-85

10:39

Page 84-43

SEQ 0190

SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST
.SBTT L

TEST

SUBTEST 2: LOOPBACK READ/WRITE SIGNALS TEST

TEST 8:

SUBTEST 2:

SUBTEST DESCRIPTION:

V¢

TEST STEPS:

RESEGINFOR ALL

TEST PATTERNS IN TSTBLK TABLE

This subtest verifies the Read/Urite date loopback path.
The Read/UWrite data signals are IR<7:0> and IW<¢7:0>
respectively.

Write to TSSR register to soft

Ve
G¢
B¢

XX XN NN N

]

G¢

Do Hrite Subo¥stcm Write Miscellaneous to Set Extended Features.
Do WRITE CHARAC ERISTICS to select reserved unit 7 and setup BUFFER
Write Subsystem WRITE NPR to set tepe direction out and Loopbeck
WRITE NPR
to set loopback and tepe direction OUT
WRITE FIFO with byte count equal to 1 end Tape direction QUT
READ FIFO with t.Y.
direction QUT to load tape out write latch
WRITE NPR to set
ack and tape direction IN
WRITE FIFO with bytc count equal to 1 and Tepe direction IN
t
strobe loopback deate into FIFO.

Ve
B4
e

8245
8246
8247
8248
8249
8250
8251

053336
053336
053336

104402

053340
053344
053346

004737
103405
010001

053350
0353332
053354
053356

104455
001460
003652
012034

5037
05;521"E0
053364
“012704
053370

053374
053410
053412

004737

103407
010001

END

If
Do
If
If
If

BGNSUB

MOV

002222
061660
010662

10s:

to soft

PC,SOFINIT
10¢
RO,R1

ERRNO, SFIERR, SFIMSG

initialize

CLR

FATFL

0T19PACKET R4
PC,WRTCHR
FORCERROR
124

B8CS

MOV

15¢

RO,R1

the controller

TRAP

csBsuB

;WRITE 70 TSSR TO SOFT INITIALIZE
:BR IF SOFT INIT OKAY
:SAVE CONTENTS OF

TSSR

;DEVICE FATAL DURING INIT
TRAP
.WORD
.WORD

Do WRITE CHARACTERISTICS to check
HOV

IN to read dete

/77777777777 BE(%%NzSLBTEST /1777777777

Write to TSSR

ERRDF

READ FIFO with tape direction

Dates read from FIFO NOT* to Date sent Then Print Error
e Write Subsystcn READ STATUS
Input Ready
NQT=1
Then Print Error
Output Ready NOT=0
Then Print Error
Data In Miss NOT=0
Then Print Error

JSR
BCS

015774

initialize the controller

Do WRITE CHARACTERISTICS to check for Extended Festures Switch
If Extended Features Hardware Switch Clear then:

.WORD

for Extended Features Switch

sCLEAR FATAL ERROR FLAG

CSEROF
816
SFIERR
SFIMSG

1GET THE ADDRESS
OF COMMAND PACKET
;00 WRITE CHARACTERISTICS COMMAND
;88DFORCE ERROR IF FORCER=1

:BR IF CARRY SET (GOOD RETURN)

:SAVE CONTENTS OF

TSSR

TSVS - HARDWARE TESTS
TEST

SUBTEST 2:

8252 053414
8253 053414
053414
053416
053420

MACRO Y05.02

Monday

124

104455

057573
012046
005237

002222

15%:

SEQ 0191

NEXT
. ERRNO

ERROF

ERRNO,T19SSR,PKTSSR

;:DEVICE FATAL SSR FAILED TO SET

INC
CKLOOP

FATFLG

$SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET

012701
032761

061702
000200

004737

061532
062030
000000
016336

000012

001462
057630
012046
005237

(LB EXTF XST2(R1)

JSR
MOV

PC.T19SEXT
OT19PK2,R4

BNE

:SET THE PACKET ADDRESS TO EXECUTE

PC,CHKTSSR

sWAIT FOR

224

:SAVE CONTENTS

30¢:

INC
CKLOOP

FATFLG

424

002752
002312
177400
002316

504

ERRDF

ERRNO, T195SR,PKTSSR

012700

000100
000040
061372
062030

INC
CKLOOP

FATFLG

002312

;:DEVICE FATAL SSR FAILED TO SET
TRAP
.WORD
.WORD
.WORD

CS$ERDF
818
T192SSR
PKTSSR

O0TSTBLK,R3

8IC

1C<377>,.DATA

(R3)+,DATA

MOV

R3,TSTPIR

MOV

ONP . QUT,RO

Do a WRITE NPR to set

8IS
JSR
MOV

; SAVE

CONTENTS OF

TSSR

;:DEVICE FATAL SSR FAILED TO SET
TRAP
.WORD
.WORD
. WORD
:SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET

CSERDF

819
T19SSR

PKTSSR

CcsCLP1

TEST PATTERNS IN TSTBLK TABLE

MOV

IF FORCER=1

:BR IF CARRY SET (GOOD RETURN)

TRAP

REPEAT FOR ALL

100¢:

TSSR

;1880FORCE ERROR

8Cs

:2¥T
ERR g.R1

012703
012337
042737
010337

;SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET
TRAP
CsCLP1
Do WRITE CHARACTERISTICS to select reserved unit 7
MOV
OT19PACKET ,R4
:GET THE ADDRESS OF COMMAND PACKET
JSR
PC,WRTCHR
;00 WRITE CHARACTERISTICS COMMAND
FORCERROR

S04:

SSR TO SET

; 880FORCE ERROR IF FORCER=1
:BR IF CARRY SET (GOOD RETURN)

ERRNO, T192SSR,PKTSSR

424
:

;EXTENOED FEATURES SWITCH SET?

R4, TSDB(RS)

ERRDF

103407
010001

053570

CsCLP1

;SETUP PACKET FOR WRITE MISC INVERT
;GET WRITE SUBSYSTEM COMMAND PACKET

22%:

061660
010662

002222

TRAP

18R IF YES

nng
ERR g.R1

002222

CSERDF
817
T19SSR
PKTSSR

304

FORCERROR
8Cs
304

104406
012704
004737

817

HOV

104455

TRAP
.WORD
.WORD
.WORD

If Extended Features Hardware Switch Clear then:
Do Write Subsystem Write Miscellaneous to Set Extended Features.
MOV
OT198FR,R1
s MESSAGE BUFFER ADDRESS

103407

053572
033576

Page 84-44

001461

010001

033524
053530
053534
053550
053552
053554
0353554
053554
053556
053560
053362
053564
053570

10:39

LOOPBACK READ/WRITE SIGNALS TEST

104406

053522
053522

16-Sep-8S

ONP . LOOP RO
PC.T19SNPR
4T19PK2,.R4

;:GET FIRST PATTERN ADDRESS
;GET A TEST PATTERN

;:DATA IS BYTE

;SETUP CURRENT

loopback and t
;SET

TSTBLK POINTER

direction OUT

TAPE DIRECTION OUT

:1SET LOOPBACK
sSETUP T19PK2 FOR WRITE NPR
:GET WRITE SUBSYSTEM COMMAND PACKET

TSVS - HARDWARE TESTS

TEST

MACRO Y05.02

Mondey 16-Sep-85 10:39

Page 84-45

SEQ 0192

8: SUBTEST 2: LOOPBACK READ/WRITE SIGNALS TESTY

8294 053634
8295 053640

010465
004737

053660
053662
053664
033664

103407
010001

8296 053644

8297
8298
8299
8300

000000
016336

053700

104406

8304 053702

012700

000001
002312
061436
062030
000000
016336

053760

8316 033766
053766

8318 053770

012046

005237

002222

104406

012700

000001
061416
062030

1nSs$

:BR IF CARRY SET (GOOD RETURN)

1024

MOV
RO R1
NEXT.ERR NO
ERRNO, T194SSR,PKTSSR
ERROF

INC

1 890FORCE ERROR IF FORCER=1

1 SAVE CONTENTS OF TSSR

;:DEVICE FATAL SSR FAILED TO SET
TRAP
.WORD

.WMORD
.MORD

PKTSSR

TRAP

CsCLP1

1SET FATAL ERROR FLAG
;:LOOP ON ERROR, IF FLAG SET

FATFLG

CSERDF
820
T194SSR

Do @ WRITE FIFO with byte count equal to
1 and Tepe direction OUT
1 BYTE
MOV
01,RO
sWRITE
MOV
O0ATA,R1
;FIFO WRITE DATA ADDRESS
PC,T19WFIF
JSR
;SETUP T19PK2 FOR WRITE FIFO
;GET WRITE SUBSYSTEM COMMAND PACKET
MOV
0T19PK2
R4
;SET THE PACKET ADDRESS TO EXECVUTE
MOV
R4 ,TSDB(RS)
JSR

PC,CHKTSSR

FORCERROR

1104:

130%:
3

1074

8CS
1104
MOV
RO,R1
NEXT.ERRNO
ERRDF
ERRNO, T195SSR,PKTSSR

INC

CKLOOP

:WAIT FOR SSR TO SET

; 880FORCE ERROR IF FORCER=1
;BR IF CARRY SET (GOOD RETURN)
; SAVE CONTENTS OF TSSR

;:DEVICE FATAL SSR FAILED TO SET
TRAP
.WORD
.WMORD
. WORD

;SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET

FATFLG

Do @ READ FIFO with tape direction OUT to load t
MOV
JSR
MOV

MOV
JSR

#1,.RO
PC,T19RFIF
oT19PK2,R4
R4 ,TSOB(RS)
PC,CHKTSSR

8Cs

130¢

ERRDF

ERRNO, T196SSR,PKTSSR

FORCERROR

122%:

000040
061372
062030
000000

8CS

CKLOOP

000000
016336

002222

:SET THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSR TO SET

105%:

1074:

8315 053762

R4,TSDB(RS)
PC,CHKTSSR

FORCERROR

102%:

002222

MOV
JSR

1224

MOV
RO,R1
NEXT .ERRNO

INC

CKLOOP

FATFLG

CLR

ONP LOOP,RO
PC, TI9SNPR
#T19PK2,R4
R4,TSDB(RS)

TRAP
csCLPl
out write latch

:SET READ BYTE CO
sSETUP T19PK2 FOR READ FIFO
:GET WRITE SUBSYSTEM COMMAND PACKET
;SET THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SSR TO SET
;@80FORCE ERROR IF FORCER=1
s8R IF CARRY SET (GOOD RETURN)
s SAVE CONTENTS OF TSSR
:DEVICE FATAL SSR FAILED TO SET
TR
.

;CLR

direction IN

CS$EROF
-r

.MORD
.WMORD

T196SSR
PKTSSR

TRAP

CsCLP1

:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET

Do @ HRITE NPR to set loopback and t

8IS
JSR
MoV
MOV

CSERDF
8 21
T195SSR
PKTSSR

.OUT TO SET TAPE DIRECTION IN

:SET LOOPBACK
s5cTUP T19PK2 FOR WRITE NPR

:GET NRITE SUBSYSTEM COMMAND PACKET
:SET TME PACKET ADDRESS TO EXECUTE

TSVS - HARDWARE TESTS

TEST

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-46

SEQ 0193

8: SUBTEST 2: LOOPBACK READ/WRITE SIGNALS TEST

8336
8337
8338
8339
8340
8341

004737

016336

103407

010001

1424

002222

150¢:

000001

002312
061436
062030
000000
016336

002222

000001
061416
062030
000000
016336

sWAIT FOR SSR TO SET

8CS

1504

iBR IF CARRY SET (GOOD RETURN)

MOV

RO,R1

ERRDF

ERRNO, T194SSR,PKTSSR

INC
CKLOOP

)

;:DEVICE FATAL SSR FAILED TO SET
TRAP

.WORD
.WORD
.MORD

FATFLG

;1SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET

CS$EROF

823
T194SSR
PKTSSR

COcLPL

Do @ WRITE FIFO with byte count equal to 1 and Tepe dnroctnon IN

MOV

#1,RO

MOV
JSR
MOV
MOV
JSR

#0ATA,RL
PC.TI9WFIF
#T19PK2 R4
R4 ,TSDB(RS)
PC.CHKTSSR

8cCs

1704

1624

;HRITE 1 BYTE

sFIFO WRITE DATA ADDRESS
;SETUP T19PK2 FOR WRITE FIFO
:1GET WRITE SUBSYSTEM COMMAND PACKET
;SET THE PACKET ADDRESS T0 EXECUTE
sWAIT FOR SSR TO SET

1 880FORCE ERROR IF FORCER=1

:BR IF CARRY SET (GOOD RETURN)

MOV

RO,R

:SAVE CONTENTS OF TSSR

ERROF

ERRNO, T195SSR,PKTSSR

;DEVICE FATAL SSR FAILED TO SET

INC

FATFLG

:SET FATAL ERROR FLAG

NEXT .ERRNO

TRAP
.WORD
.WORD

;LOOP ON ERROR,

.WORD

CKLOOP

:
P

Do @ READ FIFQ with tape direction IN to resd date
If Date read from FIFO NOT= to Data sent Then Print Error

1904 :

000002

;1880FORCE ERROR IF FORCER=1

1 SAVE CONTENTS OF TSSR

NEXT .ERRNO

IF FLAG SET

TRAP

CSEROF
824
T195SSR
PKTSSR

CsCLP]

MOV
JSR
MOV
MOV
JSR

#1,R0
PC,TI9RFIF
oT19PK2,R4
R4 ,TSDB(RS)
PC.CHKTSSR

;SET READ BYTE COUNT
:SETUP T19PK2 FOR READ FIFO
:GET WRITE SUBSYSTEM COMMAND PACKET
1SET THE PACKET ADORESS TO EXECUTE
sWAIT FOR SSR TO SET

8Cs
MOV

1904
RO,R1

:BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

ERRDF

ERRNO, T196SSR,PKTSSR

;OEVICE FATAL SSR FAILED TO SET

INC

FATFLG

1SET FATAL ERROR FLAG

JSR
MOV
MOV
MOV

PC.T19SETEXP
OT19EXSTA,RL
OT198FSTA,R2
DATA,(R1)

:SET
1GET
:+GET
:SET

;HIGH RECV ADDRESS FOR CKMSG2

FORCERROR

002222

1424

170¢:

1824:

000002

PC.CHKTSSR

FORCERROR

1624:

061<70
057432
061722
002312

JSR

FORCERROR

1824

NEXT .ERRNO

CKLOOP

MOV

CLR

2(R25.2(R1)

1 880FORCE ERROR IF FORCER=1

;LOOP ON ERROR,

TRAP
. WORD
.WORD
.WORD

IF FLAG SET

CSEROF
825
T196SSR
PKTSSR

CSCLPL

WORDS
0-7 EXPD=RECV (NOT TESTING)
EXPECTED READ STATUS
RECV READ STATUS
EXPD WORD #8 = DATA

:SET EXPO WORD #9 = RECV (NOT TESTING)

TSVS - HMARDWARE TESTS

TEST

MACRO Y05.02

Monday 16-Sep-8S 10:39

Page 84-47

SEQ 0194

8: SUBTEST 2: LOOPBACK READ/WRITE SIGNALS TEST

8378
8379
8380

012701
012702
012703
004737

8383
8384
8383

103404

8381
8382

061702
057412
000022
011500

104456

001472
061010
013742

104406

MOV
MOV
MOV
JSR

FORCERROR

Ssisases Bf
13331 sress
=0 ot 4ot o
ko
[. ENT
YV ]

2024 ,NOTSSR

2024
:

:
2104

CKLOOP

iNUMBER OF BYTES TO COMPARE
IEXPD EQUAL RECV?

s 980

:+BR IF YES

;REPORT ERROR

TRAP
.WORD
.WORD
WORD

;LOOP ON ERROR, IF FLAG SET

TRAP

Do
» Write Suboyotou READ STATUS
Then Print Error
T=1
Ir Input Ready
Then Print Error
If Output Ready NOT-O

002222

If Data
JSR
MoV
MoV
JSR

In Miss NOT=0
PC,T19SRD
oT19PK2,
R4
R4, TSDB(RS)
PC,CHKTSSR

8cs
MOV
NEXT.E
ERRDF

220
RO.RI

FORCERROR

212¢:

:EXPD_ADDRESS

2104
8CS
NEXT .ERR NO
ERRHRD
ERRNO, T199CMP ,MSGSUB

061330
062030
000000
016336

1LOW RECV ADDRESS FOR CKMSGe2

#T198FR,R1
#T19€EXP ,R2
#18. ,R3
PC,CKMSG2

2204

CKLOOP
JSR
MOV
MOV
MoV
MOV

v61570
057432
061722

8IS
8IC
8IC

000020
000200

CLR
MOV
MOV
MOV

061702
057412
000024

011500

2324:

2408:

cKLOOP

2124

1SETUP PACKET FOR READ STATUS
1GET WRITE SUBSYSTEM COMMAND PACKET
$SET_THE PACKET ADORESS TO EXECVUTE
+MAIT FOR SSR TO SET

1 880FORCE ERROR IF FORCER=1

:BR IF CARRY SET (GOOD RETURN)
1 SAVE CONTENTS OF TSSR

ERRNO.T19SSSR.PKTSSR

:OEVICE FATAL SSR FAILED TO SEY
TRAP
.WORD

.WORD
.WORD

FATFLG

1SET F~TAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET

PC,T19SETEXP
#T19EXSTA,R1
#T198FSTA,R2
(R2)+,(R1)»
(R2),(R1)

:SET
:GET
1GET
sSET
:SET
$:SET
$1SET

#52.INRDY,(R1)
#S2.0UTRDY, (R1)
ggZ.DIH.(Rl)
#T1968FR,.R1
#T19EXP ,R2
#20. ,R

PC
FORCERROR
8CSs
NEXT. ERRNO

ERRHRD

Then Print Error

S$G2
2328 ,NOTSSR

ERRNO, T196CHP ,MSGSTAT

CSEROF
827
T193SSR

PKTSSR

CsCLPL

0-7 EXPD-RECV (NOT TESTING)
WORDS
EXPECTED READ STATUS
RECV READ STATUS
EXPD WORD #8 = RECV TEMP
EXPO WORD #9 = RECV TEMP
EXP INPUT READY- 1
O
EXP OUTPUT READY=

:SET EXP DATA IN MISS =

sHIGN RECV ADODRESS FOR cxnsca
1LOW RECV ADDRESS FOR CKMSG2
1EXPD ADDRESS
sNUMBER OF BYTES TO COMPARE
;EXPD EQUAL RECV?
1880
tBR IF YES

1REPORT ERROR

:LOOP ON ERROR,

TRAP
. WORD

. WORD
. WORD
IF FLAG SET
TRAP

CSERHRD
T196CrP

MSGSTAT

cicLPL

TSVS

- HARDWARE TESTS

TEST

SUBTEST 2:

MACRO Y05.02

Mondey 16-Sep-85 10:39

Page 84-48

SEQ 0195

LOOPBACK READ/WRITE SIGNALS TEST

FORCEXIT

002316
003062

053576

MOV

1 880

;RESTORE CURRENT TSTBLK POINTER

255

18R IF YES

cHP

RS, 0TBLEND

1004

BHIS
2554

2554

TSTPTR,RS

1END OF TSTBLK?

100 ANOTHER TSTBLK PATTERN

ENDSUB

¢//7//7/7/77/777/7/ END SUBTESTY /7777 7.2/
L10070:

104403
002222

TST

FATFLG

sANY FATAL ERRORS ?

JSR

PC.CKDROP

;TRY TO DROP THE UNIT

.SBTTL

TEST

BEQ

2608

2604

CSESUB

;BRANCH IF NGT

SUBTEST 3:

LOOPBACK WRITE STROBE TEST

TEST 8:

G0 G0 O

;oo

SUBTEST DE SCRIPTION:

This subtest verifies the Nrite Strobe 1

strobe data from the FIFO to the Data

ack path

lines.

The signal IRESV3 drives INSTR (write strobe) to write
deta from the FIFO to the tape dete out latch.

G5 G

TEST STEPS:

RE:E(A;}NFM ALL TEST PATTERNS IN TSTBLK TABLE

Writ e to TSSR
ister to soft initislize the controller
WRITE CHARACTERISTICS to check for Extended Festures Switch
It
Extended Features Mardware Switch Clear then:

Do Write Subo¥oto- Write Miscellaneous to Set Extended Features.

R12 1221117

WRITE CHARAC ERISTICS to select reserved unit 7 and setup BUFFER
a lrite S«bo¥.to- WRITE NPR to set tepe direction out and Loopbeck
e WRITE NPR
to set 1
end t
direction OUT
e WRITE FORMAT to set
IRESV3I==>INSTR = }
'y WRITE FIFO with byte count equal to 1 end Tepe direction OU:
e WRITE FORMAT to eet IRESV3I==>JUWSTR = 0 to load write dete latch
e MRITE FORMAT to set IRESV3Ies>IWSTR = )}
e WRITE NPR to set loopback end tape direction IN
' WRITE FIFO with byte count o?nl to 1 end Tape direction IN
° strobe_locpbeck dete
into FIFO.
[ READ FIFQ with tape direction IN to read deate
I
0ate read froa FIFO NOT= to Dete sent Then Print Errer

END

G0 G0 S
L TP o G6 O

SUBTEST 3:

con

TP T4 B0

017202

B2 00 00 S0 B0 00 TP TP TP Te G0 Ve G

005737
001402
004737

TRAP

8717071777777/ “?IN’”'(S' 241004740447
D2

TSVS

- HARDWARE TESTS

TEST

SUBTEST 3:

054624
8474
8475 054626
8476 054626

8477
8478

8479

MACRO Y05.02

Mondey

16-Sep-85

10:39

Page 84-49

SEQ 0196

LOOPBACK WRITE STROBE TEST

104402
}

004737
103405
010001

Ss:

015774

104455
001474
003632
012034
005037

012704
004737

002222
061660
010642

10¢:

002222

104406

004737

061702
000200

; 88DFORCE ERROR IF FORCER=1

;B8R IF CARRY SET (GOOD RETURN)

MOV

6T19BFR,R1

;sMESSAGE BUFFER

JSR

oT19PK2 R4
R4 ,TSDB(RS)
PC,CHKTSSR

;:GET WRITE SUBSYSTEM COMMAND PACKET
;:SET THE PACKET ADORESS TO EXECUTE

8Cs

304

ERROF

ERRNO, T192SSR,PKTSSR

INC
CKLOOP

FATFLG

MOV
MOV

ox2. EXTF XST2(R1)
304
PC,T19SEXT

FORCERROR

30s:

;DEVICE FATAL SSR FAILED 7O SET
TRAP
.MORD
.WORD
.WORD
;SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET

CS$ERDF
829
T19SSR
PKTSSR

ADDRESS

;EXTENDED FEATURES SWITCH SET?
:BR IF YES
:SETUP PACKET FOR WRITE MISC INVERT
;WAIT FOR SSR TO SET
; 880FORCE

ERROR

IF FORCER=1

:BR IF CARRY SET (GOOD RETURN)
;SAVE

CONTENTS OF

TSSR

;:DEVICE FATAL SSR FAILED TO SET
TRAP
CS$EROF
.WORD
830
.WORD
T192SSR

.HWORD

;SET FATAL ERROR FLAG
;LCOP ON ERROR, IF FLAG SET
TRAP
Do WRITE CHARACTERISTICS to select reserved unit 7
OT19PACKET R4

;:GET

PKTSSR
CsCLPl

THE ADDRESS OF COMMAND PACKET

JSR

PC.WRTCHR

;00 WRITE CHARACTERISTICS COMMAND

B8CS

;BR IF CARRY SET (GOOD RETURN)

FORCERROR

424

223

MOV
RO,R1
NEXT ,.ERRNO

MOV

061660
010662

;SAVE CONTENTS OF TSSR

TRAP
csCLP1
If Extended Features Hardware Switch Clear then:
Do Write Subsystem Write Miscellaneous to Set Extended Festures.

8IT
BNE
JSR

000012

103407
010001

104455

123

FATFLG

22%:

104406

INC
CKLooP

000000
016336

002222

828
SFIERR
SFIMSG

15¢:

061532
062030

104455
001476
057630

CSERDF

12%:

010001

012704
004737

TRAP

MOV
RO,R1
NEXT.ERRNO
ERRDF
ERRNO,T19SSR,PKTSSR

103407

012046
005237

R2,R1
ERRNO,SFIERR,SFIMSG

Do WRITE CHARACTERISTICS to check for Extended Features Switch
CLR
FATFLG
;CLEAR FATAL ERROR FLAG
MOV
@T19PACKET,R4
1GET THE ADDRESS OF COMMAND PACKET
JSR
PC.WRTCHR
;00 WRITE CHARACTERISTICS COMMANO
8CS

104455
001475
057573

012704
010465
004737

;WRITE TO TSSR TO SOFT INITIALIZE
:BR IF SOFT INIT OKAY
i SAVE CONTENTS OF TSSR
;DEVICE FATAL DURING INIT

PC,SOFINIT
10¢

FORCERROR

010001

012701
032761
001026

JSR
8CS
MOV
ERRDF

. WORD

cs8SLUB

initialize the controller

.WORD
.WORD

103407

012046
005237

TRAP

Write to TSSR register to soft

424

MOV
RO,R1
NEXT .ERRNO
ERRDF
ERRNO, T19SSR,PKTSSR

;880FORCE

ERROR

IF FORCER=1

;:SAVE CONTENTS OF TSSR

;:DEVICE FATAL SSR FAILED TO SET
CS$ERDF
TRAP

TSVS

TEST

HARDWARE

TESTS

SUBTEST 3:
055044
055046
055030
055052
0335956
055056

MACRO Y05.02

Monday

001477
057573
012046
005237

002222

50¢:

104406

012703
012337
042737
010337

002752
002312
177400
002316

012700
052700
004737
012704
010465
Co4737

000100
000040
061372
062030
000000
016336

:+
002312

INC
CckLooP

FATFLG

SEQ 0197

002222

053170
055174

000002
061512
062030

TRAP

CsCLP1

OTSTBLK,R3

8IC
MOV

0tC<377>,DATA
R3,TSTPTR

8IS
JSR
MOV
MOV

ONP . LOOP RO
PC. T19SNPR
0T19PK2,R4
R4 ,TSDB(RS)

SET LOOPBACK
zSETUP T19PK? FOR WRITE NPR
;:GET WRITE SUBSYSTEM COMMAND PACKET
:SET THE PACKET ADORESS TO EXECUTE

B8Cs

105¢

:BR IF CARRY SET (GOOD RETURN)

1024 :

ERRDF

ERRNO T194SSR,PKTSSR

;0eVICE FATAL SSR FAILED TO SET

105¢:

INC
CKLOOP

FATFLG

;SET FATAL ERROR FLAG
;:LOOP ON ERROR, IF FLAG SET

Do & WRITE FORMAT to set IRESVI==>IWSTR =

(R3)+,DATA

;GET FIRST PATTERN ADDRESS

MOV

Do & WRITE NPR to set loopback and
togc direction QUT
MOV
ONP. OUT RO
T
TAPE DIRECTION OUT

JSR
PC,CHKTSSR
FORCERROR
102

MOV

112%:

120¢:
;

;WAIT FOR SSR TO SET
;:330FORCE ERROR IF FORCER=1
CONTENTS

#T19PK2 R4
R4 ,TSDB(RS)

;GET
;SET

PC,CHKTSSR

8CSsS

1208

ERROF

ERRNO, T198SSR,PKTSSR

112¢

MOV
RO,R1
NEXT.ERRNO

TSSR

;IRESV3a=>IWSTR=1

JSR

INC
CKLOOP

;DATA IS BYTE
1SETUP CURRENT TSTBLK POINTER

OWF . I3RES,PO

PC,T19WFMT

FORCERROR

010001

:GET A TEST PATTERN

:SAVE

JSR

MOV
MOV

103407

000001
002312
061436
062030
000000
016336

831
T19SSR
PKTSSR

MOV

1004 :

0000¢0
016336

002222

.WORD
.WORD
.WORD

;SET FATAL ERROR FLAG
:LOOP ON ERROR. IF FLAG SET

SE;T ERRR O R1

055162
055166
055166

055302

Page 84-50

REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE

103407

055252

10:39

LOOPBACK WRITE STROBE TEST

010001

055240
055242
055244
055250
055250

16-Sep-85

TRAP
.WORD
.WORD
.WORD

CSEROF
832
T194SSR
PKTSSR

TRAP

CsCLP1

sSETUP TOPK2 FOR WRITE FORMAT

WRITE SUBSYSTEM COMMAND PACKET
THE PACKET ADDRESS TO EXECUTE

;WAIT FOR SSR TO SET

; 890FORCE ERROR

IF FORCER=1

:BR IF CARRY SET (GOOD RETURN)

:SAVE

CONTENTS

TSSR

;DEVICE FATAL SSR FAILED TO SET
TRAP

.WORD
.WORD
. WORD

;SET FATAL ERROR FLAG
;:LOOP ON ERROR, IF FLAG SET
TRAP
CsCLPL
Do & WRITE FIFO with byte court equal to 1 and Tepe direction OUT

MOV

FATFLG

CSERDF

833
T198SSR
PKTSSR

#1,RO

QDATA,.R1

JSR
PC,TI9WFIF
MOV
OT19PK2 ,R4
MOV
R4 ,TSDB(RS)
JSR
PC.CHKTSSR
FORCERROR
1324

;WRITE

1 BYTE

;FIFO WRITE DATA ADDRESS

;SETUP T19PK2 FOR WRITE FIFO
;GET WRITE SUBSYSTEM COMMAND PACKET
;SET THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSR TO SET
;8390FORCE

ERROR

FORCER=1

TSVS

- MARDWARE TESTS

TEST

8558
8559
8560
8561

SUBTEST 3:
055316
055320
055322
053322
055322
035324
055326
055330
055332

MACRO Y05.02

Mondey

16-Sep-85

10:39

Page 84-51

SEQ 0198

LOOPBACK WRITE STROBE TEST

103407

8Cs

MOV

010001

132%:

104455

001502
060004
012046
005237

002222

104406
005200
004737
012704
010465
004737

140¢:

061512
062030
000000
016336

104406

012700
004737
012704
010465
004737

103407

oT19PK2,R4

MOV
JSR

R4,TSDB(RS)
PC,CHKTSSR

8CS

1604

160¢$:

INC
CcKLooP

FATFLG

000000
016336

MOV

R4 ,TSDB(RS)

JSR

000040
061372
062030
000000
016336

TO SET

;:DEVICE FATAL SSR FAILED TO SET

TRAP
.WORD
.WORD
.MORD

IF FLAG SET

TRAP

s WAIT

FOR

SSR

TO SET

;SAVE

CONTENTS OF

880FORCE ERROR IF FORCER=1
;:BR IF CARRY SET (GOOD RETURN)

172¢

8Cs
MOV

1804
RO,R1

172¢:

ERRDF

ERRNO, T198SSR,PKTSSR

;:DEVICE FATAL SSR FAILED TO SET

180¢:

INC
CKLooP

FATFLG

;SET FATAL ERROR FLAG
;:LOOP ON ERROR, IF FLAG SETY
TRAP

NEXY .ERRNO

MOV
MOV

wSR

#T19PK2,R4
R4 ,TSDB(RS)

PC,CHKTSSR

FORCERROR

8Cs

1904

1824

CsCLPL

:SETUP TI9PK2 FOR WRITE FORMAT
;GET WRITE SUBSYSTEM COMMAND PACKET
:SET _THE PACKET ADDRESS TO EXECUTE

PC,CHKTSSP

Do a HRI;E NPR to set
CLR
ONP .LOOP,RO
BIS
JSR
PC, TI9SNPR

CS$EROF
835
T198SSR
PKTSSR

s IRESV3=a>TWSTR=1

PC, T19WFMT
#T19PK2,R4

FORCERROR

SSR

;880FORCE ERROR IF FORCER=1
;BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

;SET FATAL ERROR FLAG

OWF .I3RES,RO

csCLPL

;GET WRITE SUBSYSTEM COMMAND PACKET
;SET THE PACKET ADDRESS TO EXECUTE

:LOOP ON ERROR,

MoV

CSERDF

834
T195SSR
PKTSSR

;SET IRESV3I==>IWSTR=0
;SETUP TOPK2 FOR WRITE FORMAT

Do & WRITE FORMAT to set IRESV3==>IWSTR

JSR
MOV

.WORD
.WORD
.MORD

TRAP

= O

;WAIT FOR

1524

152%:

103407

005000
052700
004737
012704
010465
004737

TRAP

IRESV3==>IWSTR

MOV
RO,.R1
NEXT .ERRNO
ERRDF
ERRNO, T198SSR,PKTSSR

061512
062030

104406

;DEVICE FATAL SSR FAILED TO SET

;LOOP ON ERROR, IF FLAG SET

000002

002222

:BR IF CARRY SET (GOOD RETURN)
;SAVE CONTENTS OF TSSR

;SET FATAL ERROR FLAG

FATFLG

FORCERROR

010001

104455
001504
060162
012046
005237

INC
CcKLooP

MOV

103407

002222

NEXT .ERRNO
ERRNO, T195SSR,PKTSSR
ERRDF

Do e HRITE FORMAT to set
CLR
PC T19WFMT
JSR

010001

104455
001503
060162
012046
005237

1404

RO,R1

loopback

TSSR

TRAP
.WORD
.WORD
.WORD

CSERDF
836
T198SSR
PKTSSR
cscLPl

and
tanp direction IN
OUT TO SET TAPE DIRECTION IN

SET LOOPBACK

;SETUP T19PK2 FOR WRITE NPR

:GET WRITE SUBSYSTEM COMMAND PACKET
:SET _THE PACKET ADDRESS TO EXECUTE
;WALIT FOR SSR TO SET
; 980FORCE ERROR IF FORCER=1
:BR IF CARRY SET (GOOD RETURN)

TSVS

- HARDWARE TESTS

TEST

MACRO Y05.02

Monday

16-Sep-85

10:39

Page 84-5S2

SEQ 0199

SUBTEST 3: LOOPBACK WRITE STROBE TEST

8600 0355546
8601 0553530
8602 055550

010001

182%:

002222

190¢:
3

000001
002312
061436
062030
000000
016336

002222

104406
012700

000001

0104635
004737

000000
016336

004737
012704

FATFLG

:SET FATAL ERROR FLAG

cKLOOP

002222

.WORD

IF FLAG SET

TRAP

Do a WRITE FIFO with byte count equal to 1 end Tepe direction IN
MOV
MOV

#1,R0
#DATA,R1

CiCLPY

;WRITE 1 BYTE
;FIFO URITE DATA ADDRESS

2024 :

ERROF

ERRNO, T195SSR,PKTSSR

;DEVICE FATAL SSR FAILED TO SET

2104 :

INC
CKLOOP

FATFLG

;SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET

2304
:

000002

;LOOP ON ERROR,

CS$ERDF
837
T194SSR
PKTSSR

:BR IF CARRY SET (GOOD RETURN)
;SAVE CONTENTS OF TSSR

222%:

061702
057412
000022

INC

TRAP
.WORD
.WORD

210
RO,.R1

104406

035772
055776

sDEVICE FATAL SSR FAILED TO SET

8cs
MOV

061416
062030

061570
057432
061722
002312
000002

ERRNO, T194SSR,PKTSSR

;SETUP T19PK2 FOR WRITE FIFO
;GET WRITE SUBSYSTEM COMMAND PACKET
:SET THE PACKET ADDRESS TO EXECUTE

010001

004737
012701
012702
013711
016261
005000
012701
012702
012703

ERRDF

PC,TISWFIF
oT19PK2 R4
R4,TSOB(RS)

103407

104455
001507
060050
012046
005237

:SAVE CONTENTS OF TSSR

JSR
PC,CHKTSSR
FORCERROR
2023

104455
001506
005237

RO,.R1

NEXT.ERRNO

JSR
MOV
MOV

103407
010001

060004
012046

MOV

NEXT .ERRNO

;WAIT FOR SSR TO SET
;380FORCE ERROR IF FORCER=1

Oo a READ FIFO with tape direction IN to read data
MOV
#1.RO
;SET READ BYTE COUNT

TRAP
.WORD
.WORD
.WORD

CS$ERDF
838
T195SSR
PKTSSR

TRAP

CsCLP1

JSR
PC,T19RFIF
MOV
0T19PK2,R4
MOV
R4,TSDB(RS)
JSR
PC,CHKTSSR
FORCERROR
22243

;SETUP T19PK2 FOR READ FIFO
;GET WRITE SUBSYSTEM COMMAND PACKET

MOV
RO.R1
NEXT.ERRNO

: SAVE

:SET THE PACKET ADDRESS TO EXECUTE
:WAIT FOR SSR TO SET

;380FORCE ERROR IF FORCER=1

BCS

2304

:BR IF CARRY SET (GOOD RETURN)

ERRDF

ERRNO, T196SSR,PKTSSR

sDEVICE FATAL SSR FAILED TO SET

INC

CKLOOP

FATFLG

If Data read

JSR
MOV
MOV
MOV
MOV
CLR
MOV
MOV
MOV

from FIFO NOT=

CONTENTS OF

TSSR

TRAP

;SET FATAL ERROR FLAG

.WORD
.WORD
. WORD

:LOOP ON ERROR,

IF FLAG SET
TRAP
to Data sent Then Print Error

CS$ERDF

839
T196SSR
PKTSSR
CsCLP]

;SET WORDS 0-7 EXPD=RECV (NOT TESTING)
:GET EXPECTED READ STATUS
;GET RECV READ STATUS
;:SET EXPD WORD @8 = DATA
;SET EXPD WORD €9 = RECV (NOT TESTING)
;HIGH RECV ADDRESS FOR CKMSG2
;LOW RECV ADDRESS FOR CKMSG2
;EXPD ADDRESS
sNUMBER OF BYTES TO COMPARE

TSVS - HARDWARE TESTS

TEST

8642
8643
8644
8645
8646

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-53

SEQ 0200

SUBTEST 3: LOOPBACK WRITE STROBE TEST
056002
056006
056016
056020
056020
056020

004737

JSR
PC,CKMSG2
FORCERROR
2424 ,NOTCSSR
B8CS
2504

011500

103404
104456
001510
061073
013742
104406

013703
020327
103002
000137

055064

NEXT.ERRNO

242¢:

ERRHRD

250¢:

CKLOOP

FORCEXIT

002316
003062

255¢:

:EXPD EQUAL RECV?
;880
;18R IF YES

MOV
cMpP
BHIS
JMP

;REPORT ERROR

ERRNO, T19WSTR,MSGSUB

2554

017202

260%:

TRAP

CsCLP1

: 880

TSTPTR,R3
R3,0TBLEND
255¢
1004

;RESTORE CURRENT TSTBLK POINTER
:END OF TSTBLK?
:8R IF YES
;00 ANOTHER TSTBLK PATTERN

s//////7///7/77 END SUBTEST //////7777
L10071:

104403
002222

CSERHRD
840
T19WSTR
MSGSUB

;:LOOP ON ERROR, IF FLAG SET

ENDSUB

005737
001402
004737

TRAP
.WORD
.MORD
.WORD

TST
BEQ
JSR

FATFLG
2604
PC.CKDROP

.SBTTL

TEST

TRAP

C$ESUB

;ANY FATAL ERRORS ?
:BRANCH IF NOT
;TRY TO DROP THE UNIT

SUBTEST 4 LOOPBACK READ STROBE TEST

TEST 8:

SUBTEST 4:

SUBTEST DESCRIPTION:
This subtest verifies the Read Strobe loopback

path

can strobe the data from the Data lines to the
FIFO.
The signal IRESV4A drives IRSTR (read strobe) to write
from the data lines to the FIFO.

TEST STEPS:

REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE
BEGIN
Write to TSSR register to soft

initialize the controller

Do WRITE CHARACTERISTICS to check for Extended Features Switch
If Extended Features Hardware Switch Clear then:
Do Write Subs¥stcm Write Miscellaneous to Set Extended Features.
Do WRITE CHARACTERISTICS to select reserved unit 7 and setup BUFFER
Do a Write Subsystem WRITE NPR to set tape direction out and Loopback
Do a WRITE NPR
to set loopback and ta
direction OUT
Do & WRITE FORMAT to set
IRESVA=s>JRSTR = 1

Do a WRITE FIFO with byte count equal to 1 and Tape direction OUT

Do a READ FIFO with tage direction OUT to load tape out write latch
Do a WRITE NPR to set
loopback and ta?e direction IN
Do a WRITE FORMAT to set IRESV4==>IRSTR = 0 to write loop data to FIFO

TSVS - HARDWARE TESTS

TEST

MACRO Y05.02

Monday

16-Sep-85

10:39

Page 84-54

SEQ 0201

SUBTEST 4 LOOPBACK READ STROBE TEST
Do & WRITE FORMAT to set IRESV4==>IRSTR = ]
(to_strobe loopback data into FIFOQ.)
Do & READ FIFO with teape direction IN to read data
If Data read from FIFO NOT= to Data sent Then Print Error

8692
8693
8694
8695
8696
8697

8698 056074
056074
056074
8699
8700 056076
8701 056076
8702 056102
8703 056104
8704 056106

B8GNSUB
104402

004737
103405

3
Ss:

015774

104455
001510

003652
C12034

005037
012704
004737

002222

104:

061660
010662

8715 056166

104455
001511
057573
012046
005237

124%:

002222

15%:

104406
012701
032761
001026
004737
012704
010465
004737

061702

000200

010001

8731 056260

22%:

104455
001512

057630
012046
005237
104406

ERRNO, SFIERR,SFIMSG

;DEVICE FATAL DURING INIT

002222

RO,R1

30%:

;SAVE CONTENTS OF TSSR

TRAP
.WORD
. WORD
.WORD
for Extended Features Suutch

Do WRITE CHARACTERISTICS to check
CLR
FATFLG
;CLEAR FATAL ERROR FLAG

MOV

OT19PACKET R4

;GET

CS$ERDF
840
SFIERR

SFIMSG

THE ADDRESS OF COMMAND PACKET

JSR

PC,WRTCHR

;D0 WRITE CHARACTERISTICS COMMAND

8CsS

154

:BR IF CARRY SET (GOOD RETURN)

ERRDF

ERRNO, T19SSR,PKTSSR

124

MOV
RO,R1
NEXT.ERRNO

; 380FORCE ERROR IF FORCER=1

;s SAVE CONTENTS OF

TSSR

:DEVICE FATAL SSR FAILED TO SET
TRAP
.WORD
.WORD

CS$ERDF
841
T19SSR

PKTSSR
.WORD
sSET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET
TRAP
CsCLPL
If Extended Features Hardware Switch Clear then:
Do UWrite Subsystem Write Miscellaneous to Set Extended Features.

INC
CKLOOP

FATFLG

#T198FR,R1

stMESSAGE BUFFER

304

:BR IF YES

817

oX2.EXTF ,XST2(R1)

JSR

PC,T19SEXT

JSR

PC,CHKTSSR

2T19PK2,R4
R4,TSDB(R5)

FORCERROR

103407

8729 056244

ERROF

MOV
MOV

000000
016336

csB8SUB

;WRITE TO TSSR TO SOFT INITIALIZE
:BR IF SOFT INIT OKAY

B8NE

061532
062030

TRAP

PC,.SOFINIT
10¢

MOV

000012

initialize the controller

JSR
8cCs

FORCERROR

103407
010001
8713 056152

Write to TSSR register to soft

MOV

010001

/77777777777 BE?gN‘SUBTEST 11777777777

224

BCS
304
MOV
RO,R1
NEXT.ERRNO
ERROF ERRNO, T192SSR,PKTSSR

ADDRESS

;EXTENDED FEATURES SWITCH SET?
1SETUP PACKET FOR WRITE MISC INVERT
:GET WRITE SUBSYSTEM COMMAND PACKET
;:SET_THE PACKET ADDRESS TO EXECUTE

s WAIT FOR SSR TO SET

88DFORCE ERROR

FORCER=1

i8R IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

;:DEVICE FATAL SSR FAILED TO SET
TRAP
.WORD
.WORD
.WMORD
INC
FATFLG
:SET FATAL ERROR FLAG
CKLOOP
:LOOP ON ERROR, IF FLAG SET
TRAP
Do WRITE CHARACTERISTICS to select reserved unit 7

CS$ERDF
842

T192SSR
PKTSSR
cscLPl

TSVS - HARDWARE TESTS
TEST

8733
8734
8735
8736
8737

MACRO Y05.02

Page 84-55

SEQ 0202

SUBTEST 4 LOOPBACK READ STROBE TEST

056262
056266
056272
056306
056310

8738 056312

8739 056312
056312
056314
056316
056320
8740 056322
8741 056326
8742 056326

012704
004737

061660
010662

103407

010001

104455
001513
057573
012046
005237

424 :

002222

012703
012337

002752
002312

8747 056346

010337

002316

8749 056352
8750 056356

012700
052700

000100
000040

8754 056376
8755 056402

004737

016336

8746 056340
8748

8751 056362
8752 056366
8753 056372

8756 056416

C42737

004737
012704
010465

010001

056436

104406

056440
056444
056450
056454
056460
056464

012700
004737
012704
010465
004737

056500
056502
056504
056504
056504
056506
056510

056512
8773 056514
8774 056520
056520

177400

104455
001514
057741
012046
005237

104406

;GET THE ADDRESS OF COMMAND PACKET
s00 WRITE CHARACTERISTICS COMMAND
; 890FORCE ERROR IF FORCER=1
18R IF CARRY SET (GOOD RETURN)
1 SAVE CONTENTS OF TSSR

ERROF

ERRNO,T19SSR,PKTSSR

INC
CKLOOP

FATFLG

;sDEVICE FATAL SSR FAILED TO SET
TRAP
.WORD
.WORD
.WORD
;:SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET
TRAP

NEXT .ERRNO

002312

8IC

061372
062030
000000

000001
061512
062030
000000
016336

R3,TSTPTR

CsCLPY

MOV
8IS

ONP . OUT,RO
ONP . LOOP ,RO

Do a WRITE NPR to set

;DATA IS BYTE

loopback

JSR
PC,T19SNPR
MOV
OT19PK2 ,R4
MOV
R4 ,TSDB(RS)
JSR
PC,CHKTSSR
FORCERROR
1024

105

102¢:

MOV
RO,R1
NEXT.ERRNO
ERRDF
ERRNO, T194SSR,PKTSSR

105¢:

CcKLOOP

112¢:

002222

@1tC<377> ,DATA

MOV

8cCs

002222

CS$ERDF
843
T19SSR
PKTSSR

REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE
MOV
OTSTBLK,R3
;:GET FIRST PATTERN ADORESS
100¢:
MOV
(R3)+,DATA
:GET A TEST PATTERN

103407
010001
104455
001515
060162
012046
005237

MOV
OT19PACKET R4
JSR
PC,.WRTCHR
FORCERROR
424%
ecCs
SO
MOV
RO,R1

103407

8757 056420
8758 056422
8759 056422
056422
056424
056426
056430
8760 056432

8761 056436

S0¢:

104406

8743
8744 056330
8745 056334

8762
8763
8764
8765
8766
8767
8768
8769
8770
8771
8772

Mondsy 16-Sep-85 10:39

1204

INC

FATFLG

;SETUP CURRENT TSTBLK POINTER

and t

direction OUT

;SET
TAPE DIRECTION OUT
;SET LOOPBACK

:SETUP T19PK2 FOR WRITE NPR
;GET WRITE SUBSYSTEM COMMAND PACKET
:SET THE PACKET ADDRESS TO EXECUTE

;:WAIT FOR SSR TO SET
;380FORCE ERROR IF FORCER=1

:BR IF CARRY SET (GOOD RETURN)
: SAVE CONTENTS OF TSSR

;:DEVICE FATAL SSR FAILED 7O SET

sSET FATAL ERROR FLAG

TRAP
.WORD
.WORD
L.WORD

CS$ERDF
844
T194SSR
PKTSSR

;LOOP ON ERROR, IF FLAG SET

TRAP
CsCLP1
Do a WRITE FORMAT to set IRESVA==>IRSTR = 1
MOV
OWF . I4RES RO
;IRESV4=2>TRSTR=]1
JSR
PC, T19WFMT
sSETUP TOPK2 FOR WRITE FORMAT
MOV
#T19PK2 ,R4
sGET WRITE SUBSYSTEM COMMAND PACKET
MOV
R4 ,TSDB(RS)
:SET THE PACKET ADDRESS TO EXECUTE
JSR
PC,CHKTSSR
;WAIT FOR SSR TO SET
FORCERROR
1124
; 380FORCE ERROR IF FORCEwW=1
8CS
1204
:BR IF CARRY SET (GOOD RETURN)
MOV
RO,R1
:SAVE CONTENTS OF TSSR
NEXT.ERRNO
ERRDF
ERRNO, T198SSR,PKTSSR
;DEVICE FATAL SSR FAILED TO SET
TRAP
CS$EROF
.WORD
845
.WORD
T198SSR
INC
CKLOOP

FATFLG

.WORD
;SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET
TRAP

PKTSSR
CsCLP1

TSVS - HARDMWARE TESTS
TEST

Monday

16-Sep-85

10:39

Page 84-56

SEQ 0203

SUBTEST 4 LOOPBACK READ STROBE TEST

87175

8776 056522

8777
8778
8779
8780

MACRO Y05.02

056526
056532
056536
056542

012700

012701
004737
012704
010465
004737

000001

002312
061436
062030

002222

140%:

000001
061416
062030
000000
016336

002222

104406

160¢:

1324

: 830FORCE ERROR IF FORCER=1

;BR IF CARRY SET (GOJD RETURN)

INC
CKLOOP

: SAVE CONTENTS OF TSSR

ERRNO, T195SSR,PKTSSR

FATFLG

;:DEVICE FATAL SSR FAILED TO SET
TRAP

CS$ERDF

.MORD
.WORD
.MORD

846
T195SSR
PKTSSR

TRAP

CsCLPL

;SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SETY

R4, TSDB(RS)

190%:

ORCE ERROR IF FORCER=1

160

;BR IF CARRY SET (GOOD RETURN)

ERRDF

ERRNO, T196SSR,PKTSSR

INC
CKLOOP

FATFLG

MOV
RO,R1
NEXT.ERRNO

;sSAVE CONTENTS OF

loopback

OT19PK2 R4
R4 ,TSDB(RS)

TSSR

;DEVICE FATAL SSR FAILED TO SET
TRAP
CS$ERDF
.WORD
847
.WORD
T196SSR
PKTSSR
.WORD
;SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET
TRAP
csCLP1
and t
direction IN
;CLR
.OUT TO SET TAPE DIRECTION IN
:SET LOOPBACK
;SETUP T19PK2 FOR WRITE NPR
;GET WRITE SUBSYSTEM COMMAND PACKET
;SET THE PACKEY ADODRESS TO EXECUTE

JSR

PC,.CHKTSSR

;WAIT FOR SSR TO SET

MOV

RO,R1

; SAVE

FORCERROR
8Cs
190

182¢:

s WAIT FOR SSR 70 SET

1523

8Cs

MOV
MOV

010001

:SET THE PACKET ADDRESS TO EXECUTE

PC,CHKTSSR

Do a WRITE NPR to set
CLR
RO
BIS
ONP .LOOP,RO
JSR
PC.T19SNPR

103407

002222

ERRDF

FORCERROR

000040
061372
062030
000000
016336

104455
001520
057741

1404

:SET_THE PACKET ADDRESS TO EXECUTE

MOV
RO,R1
NEXT.ERRNO

JSR

152%:

104455

104406

+WAIT FOR SSR TO SET

MOV

010001

012046
005237

PC,CHKTSSR

R4, TSDB(RS)

Do @ READ FIFO with tape direction QUT to load taG;Tout write latch
21.RO
MOV
:SET READ BYTE C
PC,T19RFIF
JSR
sSETUP T19PK2 FOR READ FIFO
MOV
OT19PK2,R4
;GET WRITE SUBSYSTEM COMMAND PACKET

103407

005000
052700
004737
012704
010465
004737

JSR

FORCERROR

132%:

104406

001517
060050
012046
005237

lepe direction OUT
tWRITE 1 BYTE
:FIFO WRITE DATA ADORESS
;SETUP T19PK2 FOR WRITE FIFO
;GET WRITE SUBSYSTEM COMMAND PACKET

B8CS

104455
001516

012700
004737
012704
0104635
004737

#1,R0O
9DATA,R1
PC,T19WFIF
OT19PK2,R4

MOV

000000
016336

103407
010001

060004
012046
005237

MOV
MOV
JSR
MOV

Do a WRITE FIFO with byte count equal to
1 and

1824

NEXT.ERRNO
ERRDF
ERRNO, T194SSR,PKTSSR

INC
CKLOOP

FATFLG

;380FORCE ERROR IF FORCER=1
;:BR IF CARRY SET (GOOD RETURN)
CONTENTS

;OEVICE FATAL

TSSR

SSR FAILED TO SET
TRAP
CS$EROF
.WORD
848

.WORD
.WORD

;SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET
TRAP
Do a WRITE FORMAT to set IRESV4==>IRSTR = O

T194SSR
PKTSSR
CsCLP)

TSVS

- HARDWARE TESTS

TEST

MACRO Y05.02

Mondey

10:39

Page 84-57

SEQ 0204

SUBTEST 4 LOOPBACK READ STROBE TEST

8817 056756

005000
004737
012704
010465
004737

CLR
JSR
MOV
HOV

061512
062030
000000
016336

B8CS

010001

202%:

104455

001521
060162
012046
005237

002222

104406

€12700
004737
012704
010465
004737

210¢:

000001
061512
062030
000000
016336

010001

057116

104406

057120

012700
004737
012704
0104635
004737

222%:

002222

230¢:

057202
8857 057206
8858 057212

002222

061570
057432
061722

1 88DFORCE ERROR IF FORCER=1

:SAVE CONTENTS OF TSSR

ERRNO, T198SSR,PKTSSR

;DEVICE FATAL SSR FAILED TO SET
TRAP

.HMORD
.WORD
.WORD

FATFLG

:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET

JSR

PC,CHKTSSR

;:WAIT FOR SSR TO SET

8CS

230%

;B8R IF CARRY SET (GOOD RETURN)

ERRDF

ERRNO,T198SSR,PKTSSR

CSERDF

849
T198SSR
PKTSSR

TRAP
CsCLP1
Do & WRITE FORMAT to set IRESV4A==>TRSTR = }
MOV
QWF . TARES,R
;JIRESVA==>TRSTR=1
JSR
PC, T19WFMY
;SETUP T9PK2 FCR WRITE FORMAT
MOV
#T19PK2,R4
;:GET WRITE SUBSYSTEM COMMAND PACKET
MOV
R4, TSDB(RS)
;SET _THE PACKET ADDRESS TO EXECUTE
2224

MOV
RO.R1
NEXT.ERRNO

INC
CKLOOP

; 880FORCE ERROR IF FORCER=1

:SAVE CONTENTS OF TSSR

;DEVICE FATAL SSR FAILED TO SET
TRAP

.WORD
.WORD
WORD

FATFLG

;SET FATAL ERROR FLAG
iLOOP ON ERROR, IF FLAG SET
TRAP
Do @ READ FIFO with tape direction IN to read data
¢1,RO

:+SET READ BYTE COUNT

OT19PK2,R4

;GET

CS$EROF

850
T198SSR
PKTSSR
cscLP

PC,T19RFIF

MOV
JSR

R4,TSDB(RS)
PC,CHKTSSR

:SET THE PACKET ADDRESS TO EXECUTE
:WAIT FOR SSR T0 SET

8CSs

290%

:BR IF CARRY SET (GOOD RETURN)

282¢:

ERRDF

ERRNO T196SSR,PKTSSR

:
2904

INC
CKLOOP

MOV

FORCERROR

2824

zng
ERR RO R1

104406
004737
012701
012702

:BR IF CARRY SET_(GOOD RETURN)

JSR

010001

057166
¢37170
057172
8853 0357174
8854 057200
057200

2104

INC
CKLOOP

MOV

000001
061416
062030
000000
016336

103407

104455
001523
060050
012046
005237

{WAIT FOR SSR TO SET

2024

MOV
RO,R1
NEXT.ERRNO

ERROF

;:SET IRESVA==>IRSTR=0
;SETUP TOPK2 FOR WRITE FORMAT
tGET WRITE SUBSYSTEM COMMAND PACKET
;:SET THE PACKET ADDRESS TO EXECUTE

PC,CHKTSSR

FORCERROR

103407

104455
001522
060162
012046
005237

RO
PC,TI9WFMT
OT19PK2 ,R4
R4, TSDB(RS)

FORCERROR

103407

8855

16-Sep-85

:SETUP 119PK2 FOR READ FIFO
WRITE

SUBSYSTEM COMMAND PACKET

ORCE ERROR

:SAVE CONTENTS OF

FORCER=1

TSSR

;DEVICE FATAL SSR FAILED TO SET
TRAP
.WORD
.WMORD

CSERDF
851
T196SSR

.MORD
PKTSSR
:SET FATAL ERROR FLAG
;:LOOP ON ERROR, IF FLAG SET
RAP
CsCLP1
If Data reed from FIFO NOT= to D.tn sent Then Print Erro
JSR
PC,T19SETEXP
T WORDS
O -7 EXPD-RECV (NOT TESTING)

20}

MOV

FATFLG

0T19EXSTA.R1

O0T198FSTA,.R2

GET EXPECTED READ STATUS

:GET RECV READ STATUS

TSVS - HARDWARE TESTS
TEST

8859
8860
8861
8862
8863
8864
8865
8866
8867
86868

MACRO Y05.02

Monday

16-Sep-85

10:39

Page 84-58

SEQ 0205

SUBTEST 4 LOOPBACK READ STROBE TEST
057216
057222
057230
057232
057236
057242
057246
057252
057262
057264

013711
016261

005000
012701
012702
012703
004737

002312
000002

8873 057276

8878 057324
8880 057324
057324
057324

8882 057326
8883 057312

MOV

061702
057412
000022
011500

103404
302¢:

310¢:

104406

013703
020327
103002
000137

056334

;:SET EXPD WORD #8 = DATA
;SET EXPD WORD #9 = RECV (NOT TESTING)
:HIGH RECV ADDRESS FOR CKMSG2

NEXT .ERRNO
ERRHRD
ERRNO, T19RSTR,MSGSUB

;:REPORT ERROR

3104

CMHP

BHIS
JMP

:LOW RECV ADDRESS FOR CKMSG2
1 EXPO ADDRESS
iNUMBER OF BYTES TO COMPARE
;EXPD EQUAL RECV?
;:BR IF YES

TRAP

3554

TSTPTR,R3

R3,0TBLEND
3554
100¢

002222
017202

360%:

104432

TRAP

CsCLP1

; 980

;RESTORE CURRENT TSTBLK POINTER

;END OF TSTBLK?
:BR IF YES

$/////7/7//7/7/77/7

END

104403
005737

T19RSTR
MSGSUB

;D0 ANOTHER TSTBLK PATTERN

ENDSUB

001402
004737

CSERHRD
852

.WORD
.WORD
WORD

;LOOP ON ERROR, IF FLAG SET

CKLOOP

MOV

35Ss:

2(R2).2(R1)

; 880

FORCEXIT

002316
003062

DATA,(R1)

RO
CLR
MOV
#T198FR,R1
MOV
OT19EXP .R2
MOV
018. .R3
JSR
PC.,CKMSG2
FORCERROR
3024 ,NOTSSR

8CS

104456
001524
061200
013742
057274

MOV

000002

SUBTESTY

L10072:

1S7
BEQ
JSR

FATFLG
3604
PC,CKDROP

;ANY FATAL

ERRORS

EXIT

TSY

$ /777777777

EXIY

TESY

/7777777777

TRAP

CseESUB

:BRANCH IF NOT
;TRY TO DROP THE UNIT
/777777777
TRAP
CS$EXIT

.WORD

002602

L10066-.

;LOCAL STORAGE FOR THIS TEST

8894 057344

000000

T19PREV:

.WORD

;DRIVE SIGNAL 1-0 TRANSITION FLAG

1R
4

i
3
:
]
:

LOOPBACK DRIVE SIGNAL TABLE
THIS TABLE IS USED B8Y T19CNVT TO SETWP
A DRIVE PATTERN FROM THE TEST DATA INPUT PATTERN.
WRITE CONTROL SIGNALS ARE OF FORM WC.XXX

i WRITE FORMAT SIGNALS ARE OF FORM WF XXXX

000001

8906 057352

T 198FCTL:

WC.IGO
WC.IFEN
WC.IRWU

;WRITE CONTROL ORIVE SIGNALS
1 1GO==>IFPT
DATA<O>
sIFEN==>IFBY
DATA<1>
; IRWU==>IRWD

DATA<2>

TSVS - HARDWARE TESTS
TEST

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-59

8907 057354

000010

WC . IREMW

8910 057362

000100

WC.JIOTAD

8908 057356
8909 057360

8911 057364
8912 057366
8913 057370
8914 057372
8915 057374
8916 057376
8917 057400
8918 057402
gggg 057404
8921
8922
8923
8924
8925

002000
000040

WF . JERASE«256.
WC.I1TAD

000200
004000
010000
020000
040000
100000
000000
000000
000000

057406
057406

057407
057410

gggg 057411

8928 057412
8929 057412
8930 057414

8931
8932
8933
8934
893S

SEQ 0206

SUBTEST 4 LOOPBACK READ STROBE TEST

057416
057420
057422
057424
057426

8936 057430
8937 057432
gggs 057532

+C<000>

000

.BYTE

T19EXP:

.MORD
LMORD
.WORD
.MORD
.WORD
.MORD
.MORD
.WORD
T19EXSTA: .BLKB
T19EXEND :

DATA<6>

sMASK OF UNTESTED BITS IN READ STATUS BYTES
{UNTESTED BITS ARE SET 10 1
;BYTE O MASK
;:BYTE 1 MASK (PARERR,IRESVZ,IRESV1)
:BYTE 2 (TIMER A,TIMER B,UNDEFINED<1:0>)

.BYTE

000000
000000
000000
000000
000000
000600
000000
000000

sITADO==>IRDY

DATA<4>
DATA<S>

sIERASE==>ISPEED DATA<7>
sIEDIT==>IHER
ODATA<S>
s IWFMa=>TFMK
DATA<9>
s JREV=s>ICER
DATA<10>
sIWRTe=s>IIDENT
DATAcil>
s INISP-«>IEQOT
DATA<12>
1 IRESV2 JUNUSED)DATA<13>
s IRESVY ( INUSED)DATA<14>
;PARERR (UNTESTED)DATA<15>

377

.BYTE
.BYTE

DATA<3>

sIFAD==>ILDP
sITAD1==>JONL

WC.IFAD
WF .IEDIT#256.
WF . TWFMe256.
WF . IREV#256.
WF .IWRT»256.
WF IHISP#256.
.WHORD
O
.MORD
O
.WORD
O
T19MSK:

037
360

;IREW==>IDBY

tC<340>
tC<017>

O
O
O
O
O
O

O
64.

tMAKE IT EVEN

;BEGIN EXPECTED DATA BUFFER
sMESSAGE TYPE
sDATA FIELD LENGTH
sRBPCR
: XSTO
;1XST1
$XST2
s XST3

:XST4 (ALWAYS PRESENT FOR WRITE SUB.)
;EXPECTED READ STATUS AND WRITE FIFO DATA
;:END EXPECTED DATA BUFFER

HEJ

8940

8943
8944
8945
8946
8947
8948
8949
8950
8951
8952
8953
8954
8955
8956
8957
89358
8959
8960
8961
8963

sLOCAL TEXT MESSAGES FOR TEST

057532
057573
057630
057674
057741
060004
060050
060113
060162
060230
060312
060406
060474
060550
060633
060721
061010
061073
061200

124
127
127
127
127
127
127
127
127
106
122
124
122
106
124
103
122
114
114

162
122
122
122
122
122
122
122
122
111
145
141
145
111
141
157
145
157
157

141
111
111
111
111
111
111
111
111
106
141
160
141
106
160

156
141
157
157

TST19ID:
T19SSR: .ASCIZ
T192SS5R:.ASCIZ
T193SSR:.ASCIZ
T194SSR:.ASCIZ
T195SSR:.ASCIZ
T196SSR:.ASCIZ
T197SSR:.ASCIZ
T198SSR:.ASCIZ
T191CHP:.ASCIZ
T192CMP:.ASCIZ
T193CMP:.ASCIZ
T195CMP: .ASCIZ
T196CMP:.ASCIZ
T197CMP: .ASCIZ
T198CMP:.ASCIZ
T199CMP:
. ASCIZ
T19WSTR:.ASCIZ
T19RSTR:.ASCIZ
.EVEN

ASCIZ
‘Tran
rt Bus Interface Loopback’
'WRITE CHARACTERISTICS Feiled’
'WRITE SUBSYSTEM (Mrite Misc) Failed’
'WRITE SUBSYSTEM (Read Status) Failed’
‘WRITE SUBSYSTEM (Write
Npr) Failed'
*WRITE SUBSYSTEM (Mrite FIFQ) Failed’
‘WRITE SUBSYSTEM (Read FIFO) Failed'
‘'WRITE SUBSYSTEM (Write Control) Failed’
‘WRITE SUBSYSTEM (Write Format) Failed'
'FIFO Status in WORD #9 Incorrect after Initialize’
‘'Read FIFO Data not equal to Write FIFO , Date is in WORD #8'
'Tepe Status 2 (in WORD #8) Incorrect sfter RESET TAPE'
'Read FIFO Data not equal to Write FIFO Date’
'FIFO Status (in WORD #9) Incorrect after READ FIFO'
'Tepe Status 2 (in WORD #8) Incorrect after RESET TAPE'
‘Control Signel L
‘Read/MWrite L
'Loopback Data
Error
'Loopback Dats Error

eck Dates Error, Date is in WORD #8'
Data Error, Date is in WORD @8
when strobed by Write strobe, Data is in WORD #8’
when strobed by Read Strobe, Date is in WORD #8'

TSVS - HARDWARE TESTS
TEST

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-60

SEQ 0207

SUBTEST 4 LOOPBACK READ STROBE TEST

8964

8963
g;gg

3o
+ CLEAR MESSAGE BUFFER

8968 061304

T19CLRBUF ;

;—

8969 061304

8970 061310
8971 061314
8972
8973
8974
8975
8976

061320
061322
061324
061326

012701
012702

105021
005302
003375
000207

061702
000120

SAVREG

104:

8977

gg;g

MOV
MOV

CLRB
DEC
8GT
RTS

OT198FR,R1
€T198END-T198FR,R2
(R1).
R2
10¢
PC

1SAVE R1-RS UNTIL NEXT RETURN

:GET MESSAGE BUFFER ADDRESS
:1SIZE OF MESSAGE BUFFER IN BYTES
sCLEAR A BYTE
1OONE
?
;:BR IF NO
s RETURN

SETUP T19PK2 PACKET FOR READ STATUS

8980 061330
8981 061330

004737

8984 061344
898S 061346

105010
000207

8982 061334
8983 061340
8986

C12700
112720

061304

T19SRO:

062040
000005

8987

3¢

g:gg

JSR

PC.T19CLRBUF

sCLEAR MESSAGE BUFFER

CLRB
RTS

(RO)
PC

;CLEAR BSEL1
s RETURN

MOV
MOVB

#T19072,R0O
OPW.RDSTATUS,(RO)

tWRITE SUBSYSTEM DATA BUFFER
sSTORE READ STATUS COMMAND IN BSELO

SETUP T19PK2 PACKET FOR WRITE MISC Reset Tape Status F-FLOPS

‘-

8990 061350

8991 061350
8992 061354
8993 061360
8994 061364
8995 061370
8996

(04737
012700
112720
112710
000207

061304
062040
000010

T19RSFIF:

JSR
MOV
MOVB

000030

8997

MOVB
RTS

3¢

PC,.T19CLRBUF
#719072,R0O
OPW . WMISC,(RO)

OMS . RSFIF!MS.RSTAP,(RO)
PC

SETUP T19PK2 PACKET FOR WRITE NPR

: INPUT:
H
RO CONTAINS BSEL1 NPR DATA

9003

9005 061372
9006 061372

004737

9011 061414

000207

9012

;STORE BSEL1 CLEAR FIFO CODES
;RETURN

9000
gggé

9007 061376
9008 061402
9009 061406
9010 061412

;CLEAR MESSAGE BUFFER
tWRITE SUBSYSTEM DATA BUFFER
;STORE WRITE MISCELLANEOUS IN BSELO

012701
112721
052700
110011

061304

T19SNPR:

062040
000011
000020

SETS NP.WRP SINCE IF O IT WRITES WRONG PARITY.
JSR

MOV
MOVB
8IS
MOVB
RTS

9013
ggi.;

PC.,T19CLRBUF

oT190T2,R1
#PW.WNPR, (R1)
#NP . WRP ,RO
RO,.(R1)
PC

:CLEAR MESSAGE BUFFER

sWRITE
;STORE
;OON’'T
:STORE

;RETURN

SUBSYSTETMM DATA BUFFER
WRITE NPR IN BSELO
WRITE WRONG PARITY
NPR DATA IN BSEL1L

3o
1 SETUP T19PK2 PACKET FOR READ FIFO
:

9016

: INPUT:

38%;

RO CONTAINS SEL2 BYTE COUNT

‘-

9019 061416

9020 061416

004737

061304

T19RFIF:

JSR

PC,.T19CLRBUF

:CLEAR MESSAGE BUFFER

TSVS

- HARDWARE TESTS

TEST

MACRO Y05.02

Mondey

16- Sep-85S 10:39

Page 84-61

SEQ 0208

SUBTEST 4 LOOPBACK READ STROBE TEST
061422

061426
061432

061434

012701

112721

110021

MOV
MOV8
MOV8

062040

000003

RTS

000207

0719072.R1
#PW.RFIFO,(R1)»
RO,(R1)+

:WRITE SUBSYSTEM DATA BUFFER
:STORE READ FIFO IN BSELO
:STORE BYTE COUNT IN BSEL1

+RETURN

i1
i

INPUT:

[

SETUP T19PK2 PACKET FOR WRITE FIFO

F19WFIF
061304
062040
000004

RO CONTAINS BYTE COUNT
R1 CONTAINS DATA PATTERN BLOCK ADDRESS

SAVREG
JSR

PC,T19CLRBUF

:SAVE R1-RS UNTIL NEXT RETURN
i CLEAR MESSAGE BUFFER

MOVB

OPW.WFIFO,(R2).

1STORE WRITE FIFO IN BSELO

MOV

10¢:

#7190T72,R2

MOVB

RO, (R2)+

MOVB
DEC
8GT
RTS

(R1)+,(R2)+
RO
10$

CLR

iWRITE SUBSYSTEM DATA BUFFER
;STORE BYTE COUNT IN BSEL1

(R2)+

;CLEAR SEL2 (UNUSED)

:STORE DATA PATTERN BYTE
sDONE ALL BYTES?
;8P IF NO
sRETURN

IA4

SETUP T19PK2 FOR WRITE CONTROL

: INPUT:
3

RO CONTAINS DRIVING DATA PATTERN

004737
012701
112721
110021
000207

061304
06040

TI9WCTL:

JSR

PC, T19CLRBUF

:CLEAR MESSAGE BUFFER

MOVE
RTS

RO, (R1)+
PC

;STORE DATA WORD IN BSEL1
;RETURN

MOV
MOovVB

000006

07T19072,R1
OPW, WCTL,(R1).

:WRITE SUBSYSTEM DATA BUFFER
;STORE WRITE C'NTROL IN BSELO

i e

sETUP T19PK2 FOR WRITE FORMAT TRANSPORT REGISTER

: INPUT:
H

061512

061512
061516
061522
061526
061530

004737

012701

112721
110021
000207

061304

F19WFHT:

RO CONTAINS DRIVING DATA PATTERN

JSR

MOV
MOVB
MOvB
RTS

062040
000007

PC,T19CLRBUF

4719072,R1
OPU WFMT,(R1)
RO, (R1).
PC

:CLEAR MESSAGE BUFFER

+WRITE SUBSYSTEM DATA BUFFER
sSTORE WRITE FORMAT IN BSELO
sSTORE DATA WORD IN BSEL1
1 RETURN

‘0

; SETUP T19PK2 PACKET FOR WRITE MISC.

INVERT EXTENDED FEATURES SWITCH

’-

061532

061532
061536
061542
061546

012700
112720
112710
000207

062040
000010
000200

T19SEXT:

MOV

MOVB
MOVB
RTS

#7T19D072,RO

;WRITE SUBSYSTEM DATA BUFFER

sRETURN

OPW WMISC, (RO«
MS . EXT, (RO)

1R4

:+
;-

CLEAR EXPECTED DATA MESSAGE BUFFER

;STORE WRITE MISCELLANEOUS IN BSELO
;:STORE INVERT EXTENDED FEATURES IN BSEL1

TSVS

- HARDWARE TESTS

TEST

MACRO Y05.02

Mondey

16-Sep-U5S 10:39

Page 84-62

SEQ 0209

SUBTEST 4 LOOPBACK READ STROBE TEST
061550

012701
012700
105021
005300
003373
000207

057412
000120

T19CLEXP:

10¢:

MOV
MOV
CLRB
DEC

OT19EXP,R1
OT19EXEND-T19EXP RO
(R1).
RO

RTS

B8GT

104

1GET EXPD ADDRESS
;1GET EXPD SIZE
;CLEAR A BYTE
?
s1DONE
;B8R IF NO
s RETURN

;1Set WORDS 0-7 of expd message BUFFER = to recv since not testing
‘-

012702
012703

057412
061702
000010

T19SETEXP:
MOV
MOV
MOV

Ss:

MOV
DEC
8GT
RTS

;GET EXPO

@T19EXP,R2
0T1968FR,R3
#8.,RO
(R3)+,(R2)
RO
Ss
PC

iGET READ STATUS RECV BUFFER
;SET WORDS 0-7 EXF=RECY
:SET _EXPD=RECV
;DONE _WORDS 0-7 WORDS?
1BR_IF NO
s RETURN

i CONVERT A TEST PATTERN DATA WORD TO LOOPBACK DRIVE SIGNALS
3

INPUTS:

TEST PATTERN

;

IMPLICIT INPUTS:

T198BFCTL

- CONTAINS WRITE CONTROL s/ WRITE FORMAT CONVERSION BITS

s OUTPUTS:

- LOW BYTE CONTAINS WRITE CONTROL DATA
-

HIGH BYTE CONTAINS WRITE FORMAT

DATA

T19CNVT:
012701
005002
012703
006000

103001

051102
005721
005303
003372
010200
000207

061660

SAVREG

057346

MOV

000020

MOV
ROR

CLR

10¢:
20¢:

8CC
8IS
ST
DEC
8GT
MOV
RTS

OT1968FCTL
,R1

016. ,R3
RO
208
(R1).R2
(R1).
R3
104
R2,RO
PC

$SAVE R1-RS UNTIL NEXT RETURN
;CONVERSION TABLE ADDRESS
;INIT RESULT OF CONVERSION
;BIT COUNT
;IS THIS BIT EQUAL TO 1?
:BR IF NO
+SET CONVERTED BIT
;POINT TO NEXT BIT IN CONVERSION TABLE
;OONE?
;BR IF NO
;:COPY RESWLT
;RETURN

.2¢.+10>8177770

:URITE CHARACTERISTICS COMMAND PACKET

061660

T19PACKET :

:COMMAND PACKET FOR TEST

TSVS

- HARDWARE TESTS

TEST

Mondey

16-Sep-85

10:39

Page 84-63

SEQ 0210

SUBTEST 4 LOOPBACK READ STROBE TEST
061660
061662
061664
061666
061670
061670
061672
061674
061676
061700

100004
061670
000000
000012

061702

T19DATA:

.WORD
.WORD
.WMORD
.WORD

100004
T19DATA
O
10.

.WORD
.WORD
.WORD
.MORD
.WORD

T198FR
O
20.
O
7

;WRITE CHARACTERISTICS COMMAND,

WITH ACK

sADDRESS OF CHARACTERISTICS BLOCK
sMINIMUM MESSAGE PACKET SIZE
1 CHARACTERISTICS DATA BLOCK
:ADDRESS OF MESSAGE BUFFER
sLENGTH OF MESSAGE BUFFER

ERI
:ESS,.ENB,EAI,
;EXTENDED FEATURES UNIT NO.

;MESSAGE BUFFER FOR ALL TEST 8 COMMANDS
T198FR:

.WORD
.MORD
.MORD
.MORD
.MORD
.WORD
.WORD
.WMORD
T198FSTA: .BLKB
T198END:

sBEGIN MESSAGE BUFFER
:MESSAGE TYPE
;:DATA FIELD LENGTH

O
O
O
O
O
O
O
O
64.

;:RBPCR

;1 XST0
:XST1
: XST2
: XST3

;1XST4 (ALWAYS PRESENT FOR WRITE SUBSYSTEM
sREAD STATUS AND WRITE FIFO BUFFER
:END OF MESSAGE BUFFER

:URITE SUBSYSTEM READ STATUS COMMAND PACKET
062030

100006

T19PK2:

062040
000012
Ti90T72:
000
000000

.=<,+10>E8177770

.WORD
.WORD
.WORD
.WORD
.BYTE
.BYTE
.WORD
.BLK8

P.WRTSUB!P.ACK
T19DT2
0
10.

sWRITE SUBSYSTEM WITH ACK
;LOW ADODRESS OF DATA BLOCK

sHIGH ADDRESS OF DATA BLOCK
sMINIMUM MESSAGE PACKET SIZE

:DATA BLOCK
:BSELO
;BSELL
;SEL2
;WRITE FIFO DATA OUTPUT BUFFER

RQROOO

9137
9138
9139
9140
9141
9142
9143
9144
91435
9146
9147
9148
9149
9150
91351

MACRO Y05.02

ENDTST
104401

.SBTTL

L10066:

TEST

READ/WRITE DATA PARITY TEST

TEST DESCRIPTION:
This test

verifies

that

the Write Data Parity generator

roperly. The
and the Read Data Parity checker operate
Transport Bus signal loopback mode is en
led and a
Set MWrong parity function is executed. Then various

Write Subsystem Memory functions are performed to
write data to and from the FIFO in loopback mode.
The program then checks to insure a Read Data parity

TRAP

CSETST

TSVS

- HARDWARE TESTS

TEST

MACRO Y05.02

Monday

16-Sep-85

10:39

Page 84-64

SEQ 0211

READ/WRITE DATA PARITY TEST
error occurred.

Gv Ve

9194
9195
9196
9197
9198
9199
9200

A Reset FIFO

error bit

Finally

)

is done and the Read Data parity

is again tested to

a Clear wrong parity

insure

it cleared.

function

is done

TEST

S TEPS:

REPEA T FOR LOOPCNT
BEG IN

Write to TSSR rcgistcr to soft

end it is verified the data word can pass in loopback
mode without setting Read Data parity error.

Co
Ve

If Extended Features Hardware Switch Clear then:

Do Hrite Subs¥ston Write Miscellaneous to Set Extended Features.
Do WRITE CHARACTERISTICS to select reserved unit 7 end setup BUFFER

RE:EEINFOR ALL

TEST PATTERNS IN TSTBLK TABLE

(s Verify Write Wrong
Do a WRITE NPR to set

Ve V¢

initislize the controller

Do WRITE CHARACTERISTICS to check for Extended Features Switch

Parity Sets Parity Error »)
loopback end tape direction OUT

end SET Write Hrong Parity.

1 (sets read strobe high)
and Tape direction QUT
a READ FIFO with tape direction QUT to load tape out write latch
(this is when wrong parity
(IWP) is set)
0o a WRITE FORMAT* to set IRESVA=s>IRSTR = O (sets read strobe low)
(‘Read Strobe sets PAR IN H (Parity Error]))
o WRITE FORMAT
to set IRESVA==>IRSTR = 1 (sets read strobe high)

B¢

G¢

o
[+

Do s WRITE FORMAT
to set IRESV4==>IRSTR =
Do e WRITE FIFO with byte count equal to 1

a Write Subsystem READ STATUS
Then Print Error
If Read Data parity error NOT=1

Do a Write Misc to RESET FIFO
Do a Write Subsystem READ STATUS

Then Print Error

If Read Date parity error NOT=0

END

B¢

(e Vcrif¥ Dats can be trensferred without a Parity Error s)
Do a WRITE FORMAT
to set IRESVA==>IRSTR = 1 (sets read strobe high)
Do a WRITE NPR to set 1
ack and tape direction QUT
and CLEAR UWrite
Wrong Parity.
Do @ WRITE FIFO with byte count equai to 1 and Tape direction QUT
Do @ READ FIFO with tepe direction OUT to load tape out write latch
Do @ WRITE FORMAT
to set IRESVA==>IRSTR = 0 (sets read strobe low)
(Read Strobe should NOT set PAR IN H [Parity Error] here)
Do a WRITE FORMAT
to set IRESVA==>IRSTR = 1 (sets read strobe high)
Do a Write Subsystem RREAD STATUS
If Read Data parity error NOT=0
Then Print Error

062146
062146
062146
062152
062156
062164

BGNTST
012700
004737
012737

064532
016510
000012

MOV
002216

T20L00P:

JSR
MOV

#TS72010,R0O

PC,TSTSETUP
€10. ,LOOPCNT

$+ASCII MESSAGE TO IDENTIFY TEST
;D0 INITIAL TEST SETUP
:+PERFORM 10 ITERATIONS

TSVS

TEST

HARDWARE TESTS

MACRO Y05.02

Monday

16-Sep-85

10:39

Page 84-65

SEQ 0212

READ/WRITE DATA PARITY TEST

9254 062164
062164
062164
9255
9256 062166
9257 062166
9258 062172
9259 062174
9260

104402
004737

103405

BGNSUB

/71777777777 BE$5N1$UBTEST 1777777777

Mrite to TSSR register to soft

initislize the controller

JSR

015774

8CS
MOV
ERRDF

010001

PC,SOFINIT

104
RO,.R1
ERRNO,SFIERR, SFIMSG

TRAP

:WRITE TO TSSR TO SOFT INITIALIZE
:BR IF SOFT INIT OKAY
:SAVE CONTENTS OF TSSR
;DEVICE FATAL DURING INIT

TRAP
WORD

CSERDF
900

.WORD

SFIMSG

.MORD

002222
065730
010662

10¢:

002222

032761

065752
000200

15¢:

103407

010001

CLR
HOV

FATFLG
OT20PACKET R4

;CLEAR FATAL ERROR FLAG
:GET THE ADDRESS OF COMMAND PACKET

BCS

15¢

;B8R IF CARRY SET (GOOD RETURN)

MOV
RO,R1
NEXT.ERRNO

ERRDF

INC
CKLOOP

MOV

000012

;D0 WRITE CHARACTERISTICS COMMANO
; 880FORCE ERROR IF FORCER=1
sSAVE CONTENTS OF TSSR

ERRNO, T20SSR,PKTSSR

FATFLG

;DEVICE FATAL SSR FAILED TO SET
TRAP
.WORD

.WMORD
.WORD

CSERDF
901
T20SSR
PKTSSR

TRAP

CsCLP1

:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET

0T208FR,R1

8IT
BNE
JSR

oxe. EXTF XET2(R1)
304
PC,T20SEXT

MOV

R4, TSDB(RS)

MOV

JSR

30¢:

;MESSAGE BUFFER ADDRESS

O0T20PK2 ,R4

;EXTENDED FEATURES SWITCH SET?
;B8R IF YES
;:SETUP PACKET FOR WRITE MISC INVERT
;GET WRITE SUBSYSTEM COMMAND PACKET

PC,CHKTSSR

;WAIT FOR SSR TO SET

FORCERROR

22%:

065730
010662

SFIERR

If Extended Features Hardware Switch Clesr then:
Do Write Subsystem Write Miscellaneous to Set Extended Festures.

065646
066100
000000
016336

0v2e222

Do WRITE CHARACTERISTICS to check for Extended Features Switch
PC,WRTCHR
FORCERROR
124

12%:

csBSUB

2248

:SET THE PACKET ADDRESS TO EXECUTE

; S80FORCE ERROR IF FORCER=1

8Cs

30¢

ERRODF

ERRNO, T202SSR,PKTSSR

;DEVICE FATAL SSR FAILED TO SET

INC
CKLOOP

FATFLG

.WORD
:SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET

JSR

PC,.WRTCHR

;00 WRITE CHARACTERISTICS COMMAND

8CS

S04

;BR IF CARRY SET (GOOD RETURN)

MOV
RO,R1
NEXT .ERRNO

;BR IF CARRY SET (GOOD RETURN)
: SAVE CONTENTS OF

TSSR

TRAP
.WORD
. WORD

CS$ERDF
902
1202SSR

PKTSSR

TRAP
CsCLP)
Do WRITE CHARACTERISTICS to select reserved unit
7
MOV
OT20PACKET R4
:GET THE ADDRESS OF COMMAND PACKET

FORCERROR

MOV
RO,R1
NEXT .ERRNO

4243

1 880FORCE ERROR IF FORCER=}

;:SAVE

CONTENTS OF

TSSR

TSVS

- HARDWARE TESTS

TEST

Monday 16-Sep-85 10:39

Page 84-66

SEQ 0213

READ/WRITE DATA PARITY TEST

9295 062402
062402

001607

9296 062412
9297 062416
062416
9298
9299
9300
9301 062420
9302 062424
9303 062430
9304 062436
930S
9306
9307 062442
9308 062446

005237

062406
062410

9309 062452

9310 062456
9311 062462
9312 062466

9313 062472

062476
062512
062514
062516
062516

062516

062520
062522
062524
9319 062526
9320 062532
062532
9321
9322 062534
9323 062540
9324 062544
9325 062550
9326 062554
9327 062560

9328 062574

064561
012046

002752
002312
177400
002316

012700
(CS52700

000100
000040

004737
012704
010465

065516
066100
000000

004737

S0¢:

000020

002312

002222

000001
065612
066100
000000
016336

JSR
MOV
MOV

JSR

105¢:

103407

062600
062602
062604
062606
9332 062610

104455
001611
065101
012046
005237

112%:

002222

104406
012700
012701

000001
002312

INC
CKLOOP

8IC

1024

104406
012700
004737
012704
010465
004737

;DEVICE FATAL SSR FAILED TO SET
TRAP

CSERDF

.WORD
.WORD

T20SSR
PKTSSR

FATFLG

sSET FATAL ERROR FLAG
;1LOOP ON ERROR, IF FLAG SET
TRAP

903

csCLP1

REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE
MOV
#TSTBLK,R3
;GET FIRST PATTERN ADODRESS
100¢:
MOV
(R3).,DATA
;:GET A TEST PATTERN
8IC
91C<377>,DATA
:DATA IS BYTE
MOV
R3,TSTPTR
;SETUP CURRENT TSTBLK POINTER
:
Do & WRITE NPR to set loopback and tepe direction OUT and
3
and SET Write Wrong Parit
E
MOV
ONP. OUT,RO
:SET TAPE DIRECTION OUT
8IS
ONP .LOOP, RO
;SET LOOPBACK

016336

104455

001610
064727
012046
005237

ERRNO, T20SSR,PKTSSR

103407
010001

010001

9333 062614
062614
9334
9335 062616
9336 062622

002222

012703
012337
042737
010337

042700

ERRDF

.WORD

104406

9329 062576
9330 062600

9331 062600

424 :

104455

062404

9314
9315
$316
9317
9318

MACRO Y05.02

120¢:

ONP . WRP , RO

1SET WRITE WRONG PARITY (INVERTED)

PC,CHKTSSR

;:WAIT FOR SSR TO SET

PC, T20WNTR
OT20PK2, R4
R4 ,TSDB(RS)

FORCERROR
1024
BCS
105¢
MOV
RO,R1
NEXT .ERRNO
ERRDF
ERRNO, T204SSR,PKTSSR

;SETUP T20PK2 FOR WRITE
NP
$;GET WRITE SUBSYSTEM COHHAND PACKET
:SET THE PACKET ADDRESS TO EXECUTE
;880FORCE ERROR IF FORCER=1
:BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

:DEVICE FATAL SSR FAILED TO SET

TRAP

.WORD
.WORD
.WORD

INC
CKLOOP

FATFLG

;SET FATAL ERROR FLAG
;' 0O0P ON ERROR, IF FLAG SET

8CSs

1204

;BR IF CARRY SET (GOOD RETURN)

ERRDF

ERRNO, T208SSR,PKTSSR

;DEVICE FATAL SSR FAILED TO SET

INC
CKLOOP

FATFLG

CSERDF

904
T204SSR
PKTSSR

TRAP
COCLPI
Do a WRITE FORMAT
to set IRESV4A==>JRSTR = 1 (sets read strobe high)
MOV
OWF . TARES,RO
zIRESVQ-->IRSTR s 1
JSR
PC,T20WFMT
;SETUP T20PK2 FOR WRITE FORMAT
MOV
aT20PK2,R4
;GET WRITE SUBSYSTEM COMMAND PACKET
MOV
R4 ,TSDB(RS)
;SET THE PACKET ADDRESS TO EXECUTE
JSR
PC,CHKTSSR
;WAIT FOR SSR TO SET
FORCERROR
1124
;880FORCE ERROR IF FORCER»1

MOV
RO,R1
NEXT.ERRNO

;SAVE CONTENTS OF

TSSR

TRAP
.WORD
.MORD
.MORD

CSERDF
905
T208SSR
PKTSSR

:SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET
TRAP
CsCLP1
Do & WRITE FIFO with byte count equal to 1 and Tepe direction OUT
MOV
01,R0
;WRITE 1 BY TE
MOV
#0ATA ,R1
:+FIFO WRITE DATA ADDRESS

MACRO Y05.02

TSVS

- HARDWARE TESTS

TEST

9: READ/WRITE DATA PARITY TEST

9337

004737
012704
010465
004737

Monday

16-Sep-85

JSR
MOV
HOV

065556

066100
000000
016336

Page 84-67

PC, T20WF IF
9T20PK2,R4
R4, TSDB(RS)

MOV

010001

152%:

152%

RO,R1

;WAIT FOR SSR TO SET

; 880FORCE ERROR IF FORCER=1
1BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

NEXT .ERRNO

ERROF

SEQ 0214

;SETUP T20PK2 FOR WRITE FIFO
;:GET WRITE SUBSYSTEM COMMAND PACKET
:SET_THE PACKET ADDRESS TO EXECUTE

PC,CHKTSSR

FORCERROR
8cs
1604

103407

104455

10:39

ERRNO, T205SSR,PKTSSR

:DEVICE FATAL SSR FAILED TO SET
TRAP
.WORD
.WORD

001612

064772
012046
005237

002222

104406
€12700
004737
012704
010465
004737

1604
:

000001

066100
000000
016336

172%:

002222

104406
005000
004737
012704
010465
004737

180%:

065612
066100
000000
016336

010001

001614
065101
012046

005237

192%:

002222

104406
012700
004737

000001
065612

.WORD

;:LOOP ON ERROR, IF FLAG SET

PKTSSR
CsCLP1

MOV
JSR
MOV
MOV
JSR

RO
PC.TZORFIF
#T120PK2,R4

PC,CHKTSSR

:SET READ BYTE COUNT
;SETUP T20PK2 FOR READ FIFO
;GET WRITE SUBSYSTEM COMMAND PACKET
;SET _THE PACKET ADORESS TO EXECUTE
;WAIT FOR SSR TO SET

8CS

180¢

:BR IF CARRY SET (GOOD RETURN)

R4 ,TSDB(RS)

2004:

1724

MOV
RO,R1
NEXT .ERRNO
ERRDF ERRNO, T206SSR,PKTSSR

;88DFORCE ERROR IF FORCER=1

;SAVE CONTENTS OF TSSR

;DEVICE FATAL SSR FAILED TO SET
TRAP

.WORD
.WORD
.WORD

INC
CKLOOP

FATFLG

JSR

PC,.CHKTSSR

sWAIT FOR SSR TO SET

8CSs

200¢

;B8R IF CARRY SET (GOOD RETURN)

ERRDF

ERRNO, T208SSR,PKTSSR

g&;RDF

T206SSR
PKTSSR

;:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET
TRAP
CsCLPL
Do a WRITE FORMAT
to set IRESV4==>IRSTR = 0O (sets read strobe low)
(Read Strobe sets PAR IN H (Parity Errorl)
CLR
RO
;IRESV4==>IRSTR =
JSR
PC, T2OWFMT
;SETUP T20PK2 FOR HRITE FORMAT
MOV
0T20PK2,R4
:GET WRITE SUBSYSTEM COMMAND PACKET
MOV
R4 ,TSOB(RS)
:SET THE PACKET ADDRESS TO EXECUTE
FORCERROR

103407

104455

;SET FATAL ERROR FLAG

TRAP

FORCERROR

103407
010001

012046
005237

CKLOooP

FATFLG

Do & READ FIFO with tape direction OUT to load tape out write lateh
(this no when wrong parity (IWP) is set)

065536

104455
001613
065036

INC

CS$EROF
906
T205SSR

1924

MOV
RO,R1
NEXT.ERRNO

INC
CKLOOP
MOV

JSR

:SAVE CONTENTS OF

FATFLG

Do a WRITE FORMAT

TSSR

;OEVICE FATAL SSR FAILED TO SET
TRAP
.WORD
.WORD
.WORD
;SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET
TRAP

to set IRESVA==>IRSTR =

OWF . I4RES RO

PC, T20WFMT

S880FORCE ERROR IF FORCER=1

CSERDF

908
T208SSR
PKTSSR
CsCLP1

1 (sets read strobe high)

;JIRESVA==>IRSTR

;SETUP T20PK2 FOR WRITE FORMAT

TSVS

- HARDWARE TESTS

TEST

MACRO Y05.02

Mondey

16-Sep-85 10:39

Page 84-68

SEQ 0215

READ/WRITE OATA PARITY TEST

012704
010465
004737

066100
000000
016336

MOV

103407

010001

212¢:

104455
001615
065101
012046
005237

002222

220%:

104406

004737
012704
C10465
004737

065476
066100
000000
016336

002222

104406

000002
100000

R4,TSDB(RS)

JSR

PC,.CHKTSSR

8CS

240

2324

240%:

INC
CKLOOP

FATFLG

MOV
MOV

MOV
MOV
8IS
CLR

MOV
MOV
MOV

000024

JSR

011500

0T20€XSTA R1
#T20BFSTA,R2

(R2),(R1)
2(R2),2(R1)
#S1. PARERR (R1)

0T208FR,R1
OT20EXP ,R2
020 R3

FORCERROR

252¢:

CSERDF

909
T208SSR
PXTSSR

:SET _THE PACKET ADORESS TO EXECUTE
;WAIT FOR SSR TO SET
; 8390FORCE ERROR IF FORCER=1

:BR IF CARRY SET (GOOD RETURN)

;:SAVE CONTENTS OF TSSR

:DEVICE FATAL SSR FAILEDT;0 SET
AP
.WORD
.WORD
.MORD

CS$EROF
910
T203SSR
PKXTSSR

TRAP

CsCLPL

:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET

If Read Date
p
nrat; error NOT=1
JSR
PC,T20SETEXP

065752
064412

TRAP
csCLPL
Do a UWrite Subsystem READ STATUS
JSR
PC,T20SRD
;SETUP PACKET FOR READ STATUS
MOV
4T20PK2,R4
;:GET WRITE SUBSYSTEM COMMAND PACKET

2324:

000002

s+DEVICE FATAL SSR FAILEDT;O SET

;SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET

MOV
RO R1
NEXT .ERRNO
ERROF
ERRNO, T203SSR,PKTSSR

065704
064432
065772

;GET WRITE SUBSYSTEM COMMAND PACKET
1SET _THE PACKET ADDRESS TO EXECUTE
iWAIT FOR SSR TO SET
1 880FORCE ERROR IF FORCER=1
+BR IF CARRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR

.WORD
.WORD
.WORD

FATFLG

FORCERROR

104455

004737
012701
012702

INC
CKLOOP

MOV

103407
010001

001616
064662
012046
005237

4T20PK2,
R4

MOV
R4 ,TSDOB(RS)
JSR
PC,CHKTSSR
FORCERROR
2124
8CS
2204
MOV
RO,R1
NEXT .ERRNO
ERRDF
ERRNO, T208SSR,PKTSSR

.CKMSG2

252% ,NOTSSR

8Cs

2608

ERRHRD

ERRNO, T20SWP ,MSGSTAT

NEXT.ERRNO

Then Print Error

:SET WORDS 0-7 EXPD=RECV (NOT TESTING)

;:GET EXPECTED READ STATUS
:GET RECV READ STATUS
:SET EXPD WORD #8 = RECV TEMP
;SET EXPD WORD #9 = RECV (NOT TESTED)
:SET EXP PAR ERR
=}
;HIGH RECV ADDRESS FOR CKMSGZ2
;LOW RECV ADDRESS FOR CKMSGZ2
;:EXPD ADDRESS
;sNUMBER OF BYTES TO COMPARE
1EXPD EQUAL RECV?

;880

:BR IF YES
;:REPORT ERROR
M

012350

:
2604

104406
012700
004737

000020
065632

£
WoRD # MGSTAT
;LOOP ON ERROR, IF ga&e
s,

CKLooP
Do a Write Misc to RESET FIFO

MOV

JSR

OMS
. RSFIF,RO
PC, T20WMISC

TRAP

:SET RESET FIFO COMMAND
;SETUP T20PK2 FOR WRITE MISC

C$CLP1

TSVS - HARDWARE TESTS

TEST

MACRO Y05.02

Monday

16-Sep-85 10:39

Page 84-69

SEQ 0216

9: READ/WRITE DATA PARITY TEST
063314
063320

012704
010465

004737

066100
000000
016336

104455

002222

104406

016261
042711
0035000
012701
012702

012703
004737

18R IF CARRY SET (GOOD RETURN)

2904 :

065772

2024

RO,R1

; 880FORCE ERROR IF FORCER=1

;SAVE CONTENTS OF TSSR

NEXT.ERRNO

INC
cxLooP

1
:

065704

ERRNO, T202SSR,PKTSSR

;DEVICE FATAL SSR FAILED TO SET
TRAP
LHORD
.WORD

.WORD

FATFLG

;:SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET

TRAP

CSERDF
912
T202SSR

PKTSSR
CsCLP1

Do & krite Subsystem READ STATUS
If Read Date pornt; error NOT=0
Then Print Err
JSR
PC, T20SETEXP
:SET WORDS
O EXPD-RECV (NOT TESTING)
MOV
#T20EX3TA,R1
1GET EXPECTEO READ STATUS

MOV

0T20BFSTA,R2

:GET RECV READ STATUS

065752

MOV
8IC
CLR
MOV

2(R2),2(R1)
0S1.PARERR, (R1)
RO
€T208FR,R1

;SET EXPD WORD #9 = RECV (NOT TESTED)
;SET EXP PAR ERR
=0
sHIGH RECV ADODRESS FOR CKMSG2
;:LOW RECV ADDRESS FOR CKMSG2

000024

MOV

920. ,R3

000002
100000

MOV

000002

064412

MOV

011500

104406

000001

JSR

PC,.CKMSG2

B8CSs

3204

ERRHRD

ERRNO, T20RSF ,MSGSTAT

3024 ,.NOTSSR

NEXT .ERRNO

;:EXPD ADDRESS

;NUMBER
OF BYTES TO COMPARE

:EXPD EQUAL RECV?
880

.BR IF YES
;REPORT ERROR

CKLOOP

:
H

(o Vcrif¥ Data can be transferred wiithout
Do s WRI E FORMAT
to set IRESVA==>JRSTR =

MOV

JSR

066100
000000
016336

;:LOOP ON ERROR,

WF
. I4RES,RO

PC, T20WFHT

MOV
0T20PK2 ,RA
MOV
R4 ,TSDB(RS)
JSR
PC,CHKTSSR
FORCERROR
3324

TRAP
.WORD

.WORD
.MORD

IF FLAG SET
TRAP
a Parity Error =)

T20RSF
MSGSTAT
CsCLPL

:SETUP T20PK2 FOR HRITE FORMAT

;:GET WRITE SUBSYSTEM COMMAND PACKET
;SET THE PACKET ADDRESS TO EXECUTE
;WAIT FOR SSR TQ SET
; 88DFORCE ERROR IF FORCEk=1

;BR IF CARRY SET (GOOD RETURN)
; SAVE CONTENTS OF TSSR

332%:

340¢:

INC
CKLOOP

s SET FATAL ERROR FLAG
sLOOP ON ERROR, IF FLAG SET

FATFLG

CS$ERMRD
913

(ooto read strobe high)
IRESVJ-->IRSTR =

8Cs
3408
MOV
RO,
NEXT.ERRNO
ERRDF
ERRNO,T208SSR,PKTSSR

103407

010001

002222

OT20EXP ,R2

;SET EXPD WORD #8 = RECV TEMP

3204 :

065612

104455

(R2),(R1)

FORCERROR

3024 :

001621
063256
012350

104406

2904

ERRDF

064432

104456

005237

B8CS
2824 :

103404

012700
004737
012704
010465
004737

;:GET WRITE SUBSYSTEM COMMAND PACKEY
;SET THE PACKET ADDRESS TO EXECUTE
sWAIT FOR SSR TO SEY

MOV

010001

004737
C12701
012702
011211

4T20PK2 ,RA
R4 ,TSDB(RS)
PC,CHKTSSR

FORCERROR

103407

001620
064616
012046
005237

MOV
MOV
JSR

+ODEVICE FATAL SSR FAILED TO SEY
TRAP
.MORD
.WORD
.HWORD
TRAP

CS$ERDF
914
T208SSR
PKTSSR

CsCLPL

MACRO Y05.02

TSVS

- HARDWARE TESTS

TEST

9: READ/WRITE DATA PARITY TEST

012700
052700
052700
004737
012704
010465
004737

Monday

MOV
8IS

000100
000040
000020
065516
066100
000000
016336

8IS
JSR
MOV
MOV
JSR

05237

8CSs

352%:

002222

104406
012700
012701
004737
012704
010465
004737

3604
:

380¢:

065536
066100
000000
016336

103407

010001

012046

005237

392%:

002222

3524

FATFLG

;SET LOOPBACK

:CLEAR WRITE WRONG PARITY (INVERTED)
sSETUP T20PK2 FOR WRITE NPR
;:GET WRITE SUBSYSTEM COMMAND PACKET
:SET_THE PACKET ADORESS TO EXECUTE

tWAIT FOR

SSR TO SET

1 880FORCE ERROR IF FORCER=1

:BR IF CARRY SET (GOOD RETURN)
: SAVE CONTENTS OF TSSR

:DEVICE FATAL SSR FAILED TO SET
.WORD
.HMORD
.WORD

CS$ERDF
915
T204SSR
PKTSSR

TRAP

CsCLP1

TRAP

:1SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET

#1,RO

;WRITE 1 BYTE

JSR
MOV

PC,T20WFIF
0T20PK2,R4

;SETUP T20PK2 FOR WRITE FIFO
;GET WRITE SUBSYSTEM COMMAND PACKET

JSR

PC.,CHKTSSR

0DATA,R1

R4 ,TSDB(RS)

380%

372¢

MOV
RO.R1
NEXT .ERRNO
ERRDF
ERRNO, T205SSR,PKTSSR

INC
CKLOOP

FATFLG

:FIFO WRITE DATA ADDRESS

sSET THE PACKET ADDRESS TO EXECUTE

sWAIT FOR SSR TO SET

;880FORCE ERROR IF FORCER=1

:BR IF CARRY SET (GOOD RETURN)

;SAVE CONTENTS OF TSSR

;:DEVICE FATAL SSR FAILED TO SET
.WORD
.WORD

CS$ERDF
916
T205SSR
PKTSSR

TRAP

CsCLP1

TRAP
.HORD

:SET FATAL ERROR FLAG
:LOOF ON ERROR, IF FLAG SET

Do @ READ FIFO with tepe direction QUT to load ¢t
out write letch
MOV
#1,R0
T
;SET READ BYTE C
PC,T20RFIF
JSR
;SETUP T20PK2 FOR READ FIFO
OT20PK2 ,R4
MOV
:GET WRITE SUBSYSTEM COMMAND PACKET
MOV
R4, TSOB(RS)
:SET THE PACKET ADDRESS TO EXECUTE
JSR
PC,.CHKTSSR
;WAIT FOR SSR T0O SET
FORCERROR
3924
; 880FORCE ERROR IF FORCER=1
4004
ecs
:BR IF CARRY SET (GOOD RETURN)
MOV
RO,R1
:SAVE CONTENTS OF TSSR

000001

1044535
001625
065036

3604

FORCERROR

3724

104406

#NP
. WRP ,RO
PC, T2OWNPR
#T20PK2 ,R4
R4, TSOB(RS)
PC.CHKTSSR

:SET TAPE DIRECTION OUT

MOV

010001

012700
004737
012704
010463
004737

INC
CKLOOP

BCS

002222

NP _OUT
R
ONP.LOOP.RO

MOV
RO,R1
NEXT.E
.ERRNOQ
ERRDF ERRNO, T204SSR,PKTSSR

MOV

103407

012046
005237

SEQ 0217

Do a WRITE FIFO with byte count equal to and Tepe direction OUT

000001
002312
065556
066100
000000
016336

104435

Page 84-70

FORCERROR

103407

104455
001623

10:39

Do @ WRITE NPR to set loofibcck and t.po direction OUT and
Parit
end CLEAR Writ

010001

064727
012046

16-Sep-85

4004
:

NEXT.ERRNO

ERRDF

INC
CKLOOP

ERRNO, T206SSR,PKTSSR

FATFLG

:DEVICE FATAL SSR FAILED TO SET
TRAP

.WORD
.WORD
.WORD

;:SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET

CSERDF
917
T206SSR
PKTSSR

TSVS

- HARDWARE TESTS

TEST

9506

MACRO Y05.02

Monday

16-Sep-85

10:39

Page 84-71

SEQ 0218

READ/WRITE OATA PARITY TEST
064006

TRAP

104406
005000
004737
012704
010465
004737

065612

066100

016336

FORCERROR

8CS

103407

MOV

010001

002222

ERRDF

420%:

ckLOOP

INC

MOV

RO,R1

4404
:

FATFLG

1SET FATAL ERROR FLAG

8Cs

4404

000000

016336

4324

MOV
RO,R1
NEXT
. ERRNO
ERRDF
ERRNO,T208SSR,PKTSSR

:IRESVd-->IRSTR =

CsCLPL

;SETUP T20PK2 FOR WRITE FORMATY
:GET WRITE SUBSYSTEM COMMAND PACHET
sSET _THE PACKET ADORESS TO EXECUTE
sWAIT FOR SSR TO SET
1 880FORCE ERROR IF FORCER=1

18R IF CARRY SET _(GOOD RETURN)
:SAVE COMTENTS OF TSSR

;DEVICE FATAL SSR FAILED TO SET
TRAP
.HORD

:SET FATAL ERROR FL AG
:LOOP ON ERROR, IF FLAG SET
TRAP

4604

4524

4524
:

MOV
RO,R1
NEXT .ERRNO
ERRDF ERRNO, T203SSR,PKTSSR

460¢:

INC
cxLooP

001630

104406

TRAP

.MORD
.MORD

FATFLG

FORCERROR

8Cs

002222

IF FLAG SEY

CSEROF
918
T208SSR
PKTSSR

to set IRESVA==>IRSTR = 1 (sets reecd strobe high)

#WF . TARES ,RO

PC, T20WFNT
#T20PK2,R4
R4,TSDB(RS)
PC,CHKTSSR

TRAP
.WORD
.WORD
.MORD

CSEROF
919

T208SSR
PKTSSR
CsCLPL

Do a Write Subsystem READ STATUS
JSR
PC,T20SRD
;SETUP PACKET FOR READ STATUS
MOV
#T20PK2,R4
1GET WRITE SUBSYSTEM COMMAND PACKET
MOV
R4 ,TSDB(RS)
:SET THE PACKET ADDRESS TO EXECUTE
JSR
PC,CHKTSSR
sWAIT FOR SSR TO SET

103407
010001

012046
005237

;:DEVICE FATAL SSR FAILED TO SET

11 00P ON ERROR,

JSR
MOV
MOV
JSR

INC
CKLOOP

1 880FORCE ERROR IF FORCEP=1

1BR IF CARRY SET_(GOOD RETURN)
1 SAVE CONTENTS OF TSSR

ERRNO, T208SSR,PKTSSR

FORCERROR

065476
066100

104435

4124

Do @ WRITE FORMAT

4324
:

004737
012704
010463
004737

4204

NEXT .ERRNO

412%:

000001
065612
066100
000000
016336

002222

CsCLP1

Do a WRITE FORMAT
to set IRESVA==>JRSTR = O (sets read strobe low)
(Read Strobe sets PAR IN H ([Parity Error])
CLR
RO
;IRESVA=ss>IRSTR =
JSR
PC, T20WFMT
1 SETUP_T20PK2 FOR URITE FORMAT
MOV
0T20PK2 R4
;GET WRITE SUBSYSTEM COMMAND PACKEY
MOV
R4 ,TSDB(RS)
1SET THE PACKET ADDRESS TO EXECUTE
JSR
PC,CHKTSSR
;WAIT FOR SSR TO SET

FATFLG

If Read Date parity error NOT=0

; 880FORCE ERROR

IF FORCER-

1BR IF CARRY SET (GOOD RETURN
$SAVE CONTENTS OF TSSR

;:DEVICE FATAL SSR FAILED TO SET
TRAP
CSERDF
920
.WORD
T203SSR
.WORD

.WORD
$;SET FATAL ERROR FLAG
sLOOP ON ERROR, IF FLAG SET
Then Print Error

TRAP

PKTSSR
CsCLP1

MACRO Y0S5.02

TSVS

- MARDWARE TESTS

TEST

9: READ/MRITE DATA PARITY TEST
064230
064234
064240
064244
064246
064234
064260
064262
266

004737
012701
012702

Mondey

16-Sep-8S 10:39

065704
064432
065772

Page 84-72

JSR
MOV
MOV
MOV

PC,T20SETEXP
#T20EXSTA,R1
#T208FSTA
R2
(R2),(R1)

BIC
CLR
MOV
MOV
MOV
JSR

#S1.PARERR
. (R1)
RO
#T208FR,R1
#T20EXP .R2
€20. .R3
C.CKMSG2

MOV

2(R2),2(R1)

FORCERROR

472¢:

8CS
4804
NEXT. ERRNO
ERRHRD

4724 ,NOTSSR

ERRNO,T20CWP,MSGSTAT

SEQ 0219

1SET
1GET
1GET
1SET
1SET

WORDS 0-7 EXPO=RECV (NOT TESTING)
EXPECTED READ STATUS
RECV READ STATUS
EXPD WORD #8 = RECV TEMP
EXPD WORD #9 = RECV (NOT TESTED)
=0

1SET EXP PAR ERR

tHIGH RECV ADORESS FOR CKMSG2

1LOW RECV ADDRESS FOR CKXMSG2
1EXPD _ADORESS
1NUMBER OF BYTES 70 COMPARE

aEXPD EQUAL RECV?

1 980

;1BR IF YES

sREPORT ERROR

013703
020327
103002
000137

FORCEXIT

002316
003062
062424

5554
:

+LOOP ON ERROR,

CKLOOP

MOV
cHP
BHIS
P

5554

1STPTR,R3
R3, #TBLEND
555
1004

002222

004737
103002
000137

016456

017202

050056

:
S604

:
5654

104432
021610

TRAP

CsCLP)

T20CWP

; 880

1END OF TSTBLK?

:BR IF YES
;100 ANOTHER TSTBLK PATTERN
SUBTESTY

L10074:

FATFLG

MSGSTAT

sRESTORE CURRENT TSTBLK POINTER

104403
005737
001402
004737

.WORD

IF FLAG SET

$///7/7/7//7777/7/7 END

ENOSUB

CSERMRD
921

.WORD

.
4808:

TRAP
.MORD

sANY FATAL ERRORS

7777777777

TRAP

C4ESUB

8EQ
JSR

$60%
PC.CKDROP

1BRANCH IF NOT
sTRY TO DROP THE UNIT

JSR
8cC
P

PC, TSTLOOP
S65
T18L00P

EXIT

TST

87777777777

ng
ITERATIONS?
:LOOP UNTIL ITERATIONS DONE
EXIT

TYESTY

2//77/77777

TRAP

. WORD

CSEXIY
L10073-.

sLOCAL STORAGE FOR THIS TEST
'-

T20MSK:

064407
064410
064411

377
037

.BYTE
.BYTE
.BYTE
.BYTE

+C<000>
tC<340>
tC<017>
O

tMASK OF UNTESTED BITS IN READ STATUS
sUNTESTED BITS ARE SET TO 1
1BYTE 0 MASK
1 MASK (PARERR,IRESVZ,IRESV1)

;BYTE 2 (TIMER A, TIMER B,UNDEFINED<1:0>)

stMAKE IT EVEN

TSVS

- HARDWARE TESTS

TEST

MACRO Y05.02

READ/MWRITE DATA PARITY

9597 064412
9596 064414
9399 064416

9600

9601 064422
064424
9603 064426
9604 064430
9605 064432

000000

LMORD
WORD
.WORD
.WMORD
T20EXSTA: .BLKB

T2O0EXEND :

O
O
O
O
64.

1BEGIN EXPECTED DATA BUFFER
1MESSAGE TYPE
1DATA FIELD LENGTH
1RBPCR

1 XSTO

1 XST1
1 XST2
1 XST3
s XST4 (ALWAYS PRESENT FOR WRITE SUB.)
$EXPECTED READ STATUS AND WRITE FIFO DATA

1END EXPECTED DATA BUFFER

sLOCAL TEXT MESSAGES FOR TEST
064532
064561
064616
064662
064727
064772
065036
065101
065147
065256

122
127
127
127
127
127
127
127
122
122

122

148
122
122
122
122
122
122
122
145
145

145

9623

9%24

141
111
111
111
111
111
111
111
141
141

141

TST20]10:
7T20SSR: .ASCIZ
T202SSR:.ASCIZ
T203SSR:.ASCIZ
T204SSR: .ASCIZ
7TV205SSR:.ASCIZ
7T206SSR: .ASCIZ
7T208SSR:.ASCIZ
T20SWP: .ASCIZ
T20RSF: .ASCIZ

T20CWP:

’626“25

9627 065452
9628 0565452

9633

O
O
O

%g 065357

9629
9630
2%31
9632
9633
%34

.MORD
.MORD
.MORD

.WORD

000000
000000
000000
000000

9608
911
912
913
914
913
9616
9617
918
9619
9640

Page 84-73

SEQ 0220

T20EXP ;

000000
000000
000000

:g"i 064532

9610

16-Sep-85 10:39

TEST

9593

9596 064412

Mondey

063456
0635462
065466
065470
065472
065474

232'1‘2

.ASCIZ
’'Reed/Mrite Date Parity’
'WRITE CHARACTERISTICS Feiled’
'WRITE SUBSYSTEM (Mrite Misc) Failed’
'WRITE SUBSYSTEM (Reed Status) Failed’
‘WRITE SUBSYSTEM (lrite
Npr) Feiled’
'WRITE SUBSYSTEM (Write FIFQ) Failed’
‘'WRITE SUBSYSTEM (Reed FIFO) Feiled’
'MRITE SUBSYSTEM (Write Formaet) Failed’
'Reead Date Parity Error (PARERR) Failed to Set after UWrite W
Parity’
‘Reed Date Parity Error (PARERR) Failed to Clesr after RESET FIFO'

‘Reed Dets Parity Error (PARERR) occurred in Dete Loopbeck’

CLEAR MESSAGE BUFFER

T20CLRBUF :
012701
012702
105021
005302
003375
000207

065752
000120

936

SAVREG

10¢:

:esgz

MOV
MOV
CLR8
DEC
8GT
RTS

:
#T208FR,R1
OT20BEND -T208FR , P2
(R1).
R2
104
PC

sSAVE R1-RS UNTIL NEXT RETURN

1GET MESSAGE BUFFER ADDRESS
1SIZE OF MESSAGE BUFFER IN BYTES
sCLEAR A BYTE
sDONE
?
:BR IF NO
1RETURN

SETUP T20PK2 PACKET FOR PEAD STATUS

‘-

9639 065476
9640 065476
9641 063502

004737
012700

9643 065512

105010

9642 063506
9644 065514
9643
9646

%47
w

950
%31

112720

065452
066110

T20SRD:

000008

JSR
MOV

1CLEAR MESSAGE BUFFER
sWRITE SUBSYSTEM DATA BUFFER

(RO)

1CLEAR BSEL1

]

OPUW.RDSTATUS,(RO) .

RTS

CLR8

000207

PC, T20CLRBUF
#7200T2,R0

ge
3 SETUP T20PK2 PACKET FOR WRITE NPR
'

1 INPUT:

RO CONTAINS BSEL1 NPR DATA

1STORE READ STATUS COMMAND IN BSELO
sRETURN

MACRO Y05.02

TSVS

- HARDWARE TESTS

TEST

9: READ/MWRITE DATA PARITY TEST

9652
9653
9654
9655
9656
9657
9658

Monday

16-

Page

84-74

Sep-85 1

10:39

JSR

PC, T20CLRBUF

;CLEAR MESSAGE BUFFER

RTS

$RETURN

-85

eoe

SEQ 0221

:
‘-

004737
012701
112721
110011
000207

9659

065452
066110
000011

T20MWNPR:

MOV
MOVB
MOvVB

2720072,R1
oPUW WNPR,(R1)+
RO, (R1)

;WRITE SUBSYSTEM DATA BUFFER
:STORE WRITE NPR _IN BSELO
1STORE NPR DATA IN BSEL1

T20PK2 PACKET FOR READ FIFO

=R0 CONTAINS SEL2 BYTE COUNT
004737
012701

112721
110021

065452
066110
000003

:JSR

PC, T20CLRBUF

MOve
RTS

RO,(R1)+
PC

MOV
MOvVe

000207

;:CLEAR MESSAGE BUFFER

472007T2,R1
QPW.RFIFO,(R1)+

sWRITE SUBSYSTEM DATA BUFFER
;STORE READ FIFO IN BSELO
:STORE BYTE COUNT IN BSEL1
+RETURN

T20PK2 PACKET FOR WRITE FIFO

"RO CONTAINS BYTE COUNT
R1

CONTAINS DATA PATTERN BLOCK

SAVREG
JSR
MOV

065452
066110
000004

10¢$:

MOVB
MOve
CLR
MOVB
DEC
8GT
RTS

ADORESS

PC, T20CLRBUF
#720072,R2

OPW WFIFO,(R2)+
RO,(R2)+
(R2)«
(R1)+,(R2)+
RO
104
PC

:SAVE R1-RS UNTIL NEXT RETURN
1+CLEAR MESSAGE BUFFER
tWRITE SUBSYSTEM DATA BUFFER

;STORE WRITE FIFO IN BSELO
:STORE BYTE COUNT IN BSEL1
;CLEAR SEL2 (UNUSED)
:STORE DATA PATTERN BYTE
sDONE _ALL BYTES?
:BR_IF NO
:RETURN

&
<

SETUP T20PK2 FOR WRITE FORMAT TRANSPORT REGISTER
INPUT:

9697

065612

004737
012701
112721
110021
000207

005452
066110
000007

T20WFMT:

RO CONTAINS DRIVING DATA PATTERN

JSR
MOV
MOVB
MOv8
RTS

PC, T20CLRBUF
#720072,R1
OPW WFMT,(R1).
RO,(R1)e
PC

SETUP T20PK2 PACKET FOR WRITE MISC.
RO CONTAINS WRITE MISC DATA

;CLEAR MESSAGE BUFFER
sWRITE SUBSYSTEM DATM. BUFFER
:STORE WRITE FORMAT IN BSELO
:STORE DATA WORD IN BSEL1
:RETURN

TSVS - HARDWARE TESTS

TEST

MACRO Y05.02

Mondey 16-Sep-85 10:39

Page 84-75

SEQ 0222

9: READ/WRITE DATA PARITY TEST

9709
9710
9711
9712
9713
9714
9715
9716
9717

065632
065632
065636
065642
065644

012701
112721
110011
000207

066110
000010

T20WMISC:
MOV
MOVB
MOVE
RTS

4720072,R1
QPW, WHMISC,(R1)«
RO, (R1)
PC

sWRITE SUBSYSTEM DATA BUFFER

+STORE WRITE MISCELLANEOUS IN BSELO
’SE?SSNINVERT EXTENDED FEATURES IN BSEL1
:

i SETUP T20PK2 PACKET FOR WRITE MISC. INVERT EXTENDED FEATURES SWITCH
3-

065646
065646
065632
065656
065662

012700
112720

112710

000207

066110
000010
000200

T20SEXT:

MOV
MOVB
MOvB
RTS

#71200T2,RO
@PW . WMISC,(RO)
#MS . EXT, (RO)
PC

+WRITE SUBSYSTEM DATA BUFFER
1STORE WRITE MISCELLANEOUS IN BSELO
:SE?SENINVERT EXTENDED FEATURES IN BSEL1
H

[ 4

3+ CLEAR EXPECTED DATA MESSAGE BUFFER
;-

065664
065664
065670
065674

012701

064412
000120

T20CLEXP:
MOV
MOV

104:

CLR8
DEC

8GT
RTS

#T20€EXP,R1
OT20EXEND
- T20EXP,RO

(R1).
RO
104
PC

;+GET EXPD ADDRESS
;GET EXPD SIZE
sCLEAR A BYTE
?
sOONE
;BR IF NO
; RETURN

HE4

;Set WORDS 0-7 of expd message BUFFER = to recv since not testing
‘—

012702
012703
012700
012322
005300
003375
000207

064412
065752

000010

T20SETEXP:
MOV
MOV
MOV

S$:

MOV
DEC
8GT
RTS

#T20EXP ,R2
0T20BFR,R3
@8.,RO

(R3)+,(R2)+
RO
5S4
PC

:GET EXPD
+GET READ STATUS RECV BUFFER
;SET WORDS 0-7 EXP=RECYV
;sSET EXPD=RECV
;OONE WORDS O0-7 WORDS?
:BR IF NO
;:RETURN

WRITE CHARACTERISTICS COMMAND PACKET

100004
065740

T20PACKET:

WORD

000012

065752
000000
000024

000007

T20DATA:

100004

.WORD
.WORD
.WORD

T20DATA
O
10.

.WORD
.WORD
.WORD
.MORD
.WORD

T208FR
O
20.
O
7

sMESSAGE BUFFER FOR ALL TEST 17 COMMANDS

:COMMAND PACKET FUR TEST
;WRITE CHARACTERISTICS COMMAND,

WITH ACK

s ADDRESS OF CHARACTERISTICS BLOCK
sMINIMUM MESSAGE PACKET SIZE

;:CHARACTERISTICS DATA BLOCK
: ADDRESS OF MESSAGE BUFFER
:LENGTH OF MESSAGE BUFFER
;:ESS,ENB,EAI,ER]I

:EXTENDED FEATURES UNIT NO.

MACRO Y05.02

TSVS

- HARDWARE TESTS

TEST

9: READ/MRITE DATA PARITY TEST

Monday

16-Sep-85 10:39

T208FR:

9769
9770
9771
9772
9773

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

T20BFSTA:
T20BEND:
i

sWRITE

Page 84-76

:BEGIN MESSAGE BUFFER
1 MESSAGE TYPE
1DATA FIELD LENGTH
1RBPCR
1 XSTO
1 XST1
1 XST2
1 XST3

:XST4 (ALWAYS PRESENT FOR WRITE SUBSYSTEM

.BLKB 64.

tREAD STATUS AND WRITE FIFO BUFFER
:END OF MESSAGE BUFFER

SUBSYSTEM READ STATUS

T20PK2:

T20072:

SEQ 0223

COMMAND PACKET

.=¢,+10>£177770

.MORD
.WORD
.MORD
.WORD

P.WRTSUB!P.ACK
720072
O
10.

.BYTE
.BYTE
.MORD
.BLKB

sWRITE SUBSYSTEM WITH ACK
;LOW ADDRESS OF DATA BLOCK
;+HIGH ADDRESS OF DATA BLOCK
+MINIMUM MESSAGE PACKET SIZE
;DATA BLOCK

:BSELO
:8SEL1
;SEL2
;WRITE FIFO DATA OUTPUT BUFFER

ENDTST

104401

L10073:

.SBTTL

TEST

10:

MANUAL

INTERVENTION

TRAP

CSETST

: THE MANUAL INTERVENTION TEST IS A STANDALONE ROUTINE (NOT REALLY A “TEST")

; THAT

ALLOWS

THE

OPERATOR

TO CHECK

OUT

VARIOUS

PRINTS QUT

ELEMENTS

AND FUNCTIONS OF

: THE SUBSYSTEM THAT CANNOT BE MANIPULATED BY THE PROGRAM ALONE.
: THIS ROUTINE

IS STARTED,

FIRST

A MENU OF

WHEN

SELECTABLE

1SUBTESTS AND THEN WAITS FOR THE OPERATOR TO TYPE IN A SELECTION CODE.
;THE

ONLY

WAYS

7O EXIT

THIS ROUTINE

AND RETURN

;ARE BY TYPING <CTRL-C> OR SELECTING CODE 7.
;SELECTION CODES AND SUBROUTINES ARE:

THE DIAGNOSTIC

NOVB WO

CoDE

ROUTINE
HELP.

PRINTS THIS MENU.

TURN ON ALL M719€ LED INDICATORS
TURN OFF ALL M7196 LED INDICATORS

OFFLINE/ONLINE ATTENTION TEST
WwRITE-PROTECT

TEST

INITIATE TRANSPORT SERVO EXERCISER

PRINT EXTENDED TRANSPORT STATUS
EXIT (RETURN TO SUPERVISOR)

EACH MENU ITEM CORRESPONDS

TO A SUBTEST,

AS FOLLOWS:

SUPERVISOR

TSVS - MHARDWARE TESTS
TEST 10:

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-77

SEQ 0224

MANUAL INTERVENTION

9826

9827
9828
9829
9830

1PRINTS OUT THE MENU ON THE CONSOLE TERMINAL.
i

1CAUSES ALL THREE LED INDICATORS ON THE M7196 MODWLE
:TO BE ILLUMINATED. AFTER INITIATING THIS ROUTINE, THE OPERATOR

:SHOULD OBSERVE THE LED'S AND VERIFY THAT THEY ARE INDEED ALL LIT.
1 THIS ROUTINE FIRST USES THE WRITE SUBSYSTEM MEMORY COMMAND TO
tSET THE FORCE WRONG PARITY FLIP-FLOP, WHICH SERVES TO DRIVE THE
+ "PROCESSOR NOT OK” LED. THEN IT ENTERS A LOOP THAT CONTINUALLY
(WRITES THE LOW BYTE OF TSDB AND READS THE TSSR. THESE LATTER_TWO
1OPERATIONS WILL CAUSE THE "NOT SSR” AND “DRIVING BUS* LED'S TO
:GLOMW -- THEY ARE NOT REALLY LIT AT ALL TIMES BUT SHOULD APPEAR
+REASONABLY VISIBLE.
3

:INITIALIZES THE CONTROLLER TO CAUSE ALL LED'S TO

tEXTINGUISH.
:
i
'

;THIS ROUTINE INITIALIZES THE CONTROLLER, ISSUES A
;WRITE CHARACTERISTICS COMMAND TO ENABLE ATTENTION INTERRUPTS,
:ISSUES A MESSAGE BUFFER RELEASE COMMAND, PRINTS A MESSAGE ON THE
;CONSOLE TERMINAL INSTRUCTING THE OPERATOR TO TOGGLE THE ON-LINE
1SWITCH ON THE TRANSPORT, THEN WAITS FOR AN ATTENTION INTERRUPT.

tEACH TIME THE TRANSPORT TRANSITIONS FROM ON-LINE TO OFF-LINE OR
;VICE-VERSA,

AN ATTENTION INTERRUPT SHOULD BE GENERATED.

THE PROGRAM

:WILL REPORT THE INTERRUPT AND THE CURRENT STATE OF THE TRANSPORT.
;:THE OPERATOR SHOULD VERIFY THAT THE REPORTED STATE MATCHES THE
:STATE INDICATED 8Y THE LED ON THE FRONT PANEL OF THE TRANSPORT.
sIN ADDITION, WHEN THE TRANSPORT IS PLACED OFF-LINE, THE PROGRAM
:ISSUES A SEQUENCE OF TAPE-MOTION COMMANDS (READ, WRITE, POSITION, ETC.
sAND VERIFIES THAT,

ng?ULTS.

FOR EACH COMMAND,

FUNCTION REJECT TERMINATION

ALONG WITH THE NON-EXECUTABLE FUNCTION (NEF) ERROR BIT BEING

i
]

1 THIS ROUTINE INSTRUCTS THE OPERATOR TO MOUNT A SCRATCH
;sTAPE REEL THAT DOES NOT HAVE A WRITE-ENABLE RING INSTALLED, THEN
sWAITS FOR THE OPERATOR TO RESPOND THAT THIS HAS BEEN ACCOMPL ISHED.
;UPON THE RESPONSE, THE PROGRAM VERIFIES THAT THE TRANSPORT SHOWS
;A WRITE-PROTECTED STATUS, THEN ATTEMPTS TO WRITE DATA ON THE

: TAPE AND EXPECTS THE APPROPRIATE ERROR TERMINATION INOICATING THAT

:THE WRITE FUNCTION COULD NOT BE PERFORMED BECAUSE THE REEL IS

;WRITE-PROTECTED.

IF THE APPROPRIATE TERMINATION IS NOT RECEIVED,

;AN ERROR IS REPORTED.

s
:
:

;:INSTRUCTS THE OPERATOR TO PLACE THE TAPE TRANSPORT(S)
;ON-LINE (IF ANY ARE OFF-LINE) THEN ATTEMPTS TO PERFORM AN EXTENDED
1STATUS READOUT.
FOR EACH TRANSPORT EQUIPPED WITH THIS FEATURE,
;:THE PROGRAM FORMATS AND PRINTS OUT THE RESULTING STATUS. IF THE
:;RezsggRIS§8ESOT EQUIPPED WITH THIS FEATURE, A MESSAGE INDICATING
s

TSVS

HARDWARE TESTS

TEST

10:

MACRO

Y05.02

Mondey

16-Sep-85

10:39

Page 84-78

SEQ@ 0225

MANUAL INTERVENTION

®e

9883

BGNTST

104421
001403
012700
000402

071570

012700
004737
004737
103402
000137

072705

C05037
012737
004737

002222
176750
015774

21%:

016510
017762

3¢:

070772

224

071004

2%:
S4:

012727
000000
013727
000000

:GET OPERATOR FLAGS

BEQ
MOV
8R

218
9T38NE ,RO
3¢

;BR, IF OK TO RUN
: "TEST NOT EXECUTED”
;JUMP IF NOT FIRST TEST

PC,TSTSETUP
PC,CHKMAN
224
644

#738I0,R0

;TEST ID MESSAGE
;00 THE COMMON SETUP
:IS MANUAL INTERVENTION ALLOWED?
;BR, IF MANUAL INTER ALLOWED
;JUMP IF NOT ALLOWED

CLR
MOV
JSR
8Cs

FATFLG
965000.,T380LY
PC,SOFINIT
234

8IT
BNE
DELAY

#SSR,R1
234
250

;CLEAR THE FATAL ERROR FLAG
:SET UP DELAY COUNTER
;00 A SOFT INIT
:BRANCH IF 0K
;CONTENTS OF TSSR REGISTER
;sCHECK FOR TSSR SET

RO,.R1

;KEEP GOING IF NOT SET
sCALL DELAY ROUTINE

002116

MOV
.WORD
MOV

17771172

DEC

000250

177756
071004

9914
9915
9916

072732
000005
017540

066374

067560
070514
012746
012746
010600

TRAP

JSR
JSR
8CS
JMP

MOV

000200

T10::

RFLAGS

072601
000001

OEC
BNE
ERRDF

23%:

MOV
MOV
JSR
MOV
ASL

64:

10%:

JMP
.WORD

.WORD
.WORD
.WORD
.WORD
.WORD
PRINTF

T380LY
54
ERRNO, SFIERR, SFIMSG

OMIMENU,
RO
#5,R1
PC,.GETSEL

RO,R4
R4

864(R4)
2%
10
15¢
20
25%
35%
#7T38MS2

;BUMP COUNTER DOWN
;:BR, IF MORE TIME LEFT
sREPORT FATAL ERROR

CS$RFLA

.WORD

9250,(PC)+
0
L$OLY,(PC).
)

BNE
DEC
BNE

.-4
-22(PC)
.-20

TRAP

CSERDF

.WORD
.WORD
.WORD

-6(PC)

1001
SFIERR
SFIMSG

;MENU OF MANUAL INTERVENTIONS
sMAXIMUM ALLOWED SELECTION
:+GO GET THE OPERATORS SELECTION
:GET NUMBER FROM ROUTINE
;CONVERT TO WORD OFFSET
iJUMP TO PROPER LOOP
;RETYPE THE MENV
: 1 TURN ON LED'S
: 2 TURN OFF LED'S
: 3 ONLINE ATTENTION
: 4 WRITE PROTECT
: S EXTENDED TRANSPORT STATUS
;TELL OPERATOR TO CNTRL-C FOR EXIT
MOV
#T38MS2, -(SP)
MOV
MOV

€1,-(SP)
SP.RO

TSVS

- HARDWARE TESTS

TEST 10:

MACRO Y05.02

Mondey

16-Sep-85

10:39

Page 84-79

SEQ 0226

MANUAL INTERVENTION
066422
066424

9930
9931 066434
9932
9936
9937

103405

000004
073342
015774

PC, T38REST
PC,SOFINIT
1004
RO,R1
ERRNO, SFIERR, SFIMSG

010001

104435

001752
003652
012034
013737

002202

071530

100%4:

071510
010662

112737
112737

012704

000000
000011
071010

071021

071020
3

tNOTE:

010465
004737
103405
010001

HMOVB
MOVB
MOV

JSR

016336

104455

001754
072206
012046

:
1504

104406
012700

070776
000100

070776

012711

012700
104441
012701

0v0100
000060
071000
070276
071002
000340

000000

1771777

177560

701%:

CSEROF
1002
SFIERR
SFIMSG

1SET PACKET TO INITIAL VALUES
;00 SOFT INIT OF CONTROLLER
tBR IF SOFT INIT = OK
;SAVE CONTENTS OF TSSR
:DEVICE FATAL ERROR DURI?gAgNIT

$SET UNIT NUMBER

AT738PK2,.R4
PC,WRTCHR
1104
RO,R1

;SUBROUTINE NEEDS PACKET ADORESS

00,7388S1
€11,738850
OT38PACKET
R4

R4, TSDB(RS)
PC,CHKTSSR
1504
RO,R1
ERRNO, T38S55R,PKTSSR

CkLooP

SETPRI

000340

.WORD
.WORD
.WORD

CS$PNTF

:ISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED OK
:SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC FAILED

TRAP
.WORD
.WORD
.WORD

;:CLEAR B1T o4
;WRITE MISC COMMAND
:SET UP NEW WRT. SUBSYS MEM.

CSERHRD
1003

WRTMSG

SFIMSG

COMMAND

THIS COMMAND TURNS ON THE PROCESSOR FAIL LED
MOV

000000

04,5P

UNITN, T380SHW

ERRNO,WRTMSG, SFIMSG

110¢:

TRAP
ADD

CLR
8IT
BNE
INC
8IS

MOV
MOV
MOV
MOV
MOV

:SET THE PACKET ADORESS

sWAIT FOR SSR TO SET
:BR IF CARRY SET (GOOD RETURN)

:SAVE CONTENTS OF TSSR
;DEVICE FATAL SSR FAILEDT;gpSET

:LOOP ON ERROR,
OPRIO?

TTION2
2100,84TTICSR
7014
TTION2
€100,80TTICSR
OTTIVEC,R1

(R1),TVSAV2

059048, ,(R1).

(R1),TPSAV2

SETPRI

#PRIO7,(R1)
#PRIOO

MOV

#-1.R1

;RAISE

.WORD
.WORD
. WORD

IF FLAG SET

THE PRIORITY

CS$ERDF
1004

T38SSR
PKTSSR

TRAP

CsCLPL

MOV
TRAP

C$SPRI

sASSUME INTERRUPTS ARE ENABLED
;ARE TTI INTERRUPTS ON ?
+BRANCH IF YES
:FLAG SET IF INTERRUPTS OFF
;ENABLE INTERRUPTS
$:START OF TTI VECTORS
:SAVE THE CURRENT TTI VECTOR

OPRIO7,RO

:SET _NEW INTERRUPT ROUTINE
$+SAVE THE VECTOR PRIORITY
sUSE PRIORTITY SEVEN
:LOWER INTERRUPT BR LEVEL

:DATA TO WRITE 1O TSDB

MOV
TRAP

#PRI00,RO
C$SPRI

TSVS - HARDMWARE TESTS

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-80

SEQ 0227

TEST 10: MANUAL INTERVENTION
066646
066650
066654
066660
066664
066666
066670
066672

000240
012702

110165
016500
005302
001372
000766

012746
012746
010600
104417
062706
004737
103405
010001

001750
000000
000002

NOP

144

MOVB

R1,TSDB(RS)

DEC
BNE

R2
14

124

sALLOW OPERATOR TO TYPE tC
LOOP
1SET-UP INNER
sHRITE ODATA TO TSOB
1READ TSSR
1REODUCE INNER COUNT
1LOOP TILL EXPIRES
1LOOP UNTIL HALTED

PRINTF

0T38MS2

:TYPE CNTL C TO EXIT

MOV

B8R
154:

072601
000001
000004
015774

JSR
BCS
MOV
ERRDF

104455
001755
003652
012034
013737

12¢:

002202
071510

071530

2004:

010662

01000.

,R2

TSSRCRS)
., RO

PC,SOFINIT
2004
RO,R1
ERRNO, SFIERR, SFIMSG

MOV
MOV
MOV
TRAP
ADO

;00 SOFT INIT OF CONTROLLER
;BR IF SOFT INIT = OK
;1 SAVE CONTENTS OF TSSR
1DEVICE FATAL ERROR DURING INIT
HORD
.WORD
.WORD

MOV
MOV

JSR
BCS

UNITN, T380SW
0T38PK2.R4
PC,WRTCHR
2104

ERRHRD

ERRNO,WRTMSG, SFIMSG

MOV

RO,.R1

CS4EROF

1005
SFIERR
SFIMSG

:SET UNIT NUMBER

1 SUBROUTINE NEEDS PACKET ADORESS
1 ISSUE WRITE CHARACTERISTICS
;8R,

IF COMMAND ISSUED OK

1 SAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC r*gkgo

CS$ERHRD
1006
WRTMSG
SFIMSG

.WORD
.WMORD
.WORD

012034

OTSGHSZ -(SP)
01,-(SP)
SP,.RO
COPNTF
#4,SP

1884888808488 8888888888888888888
888885048808 88888838020005080000088

THIS WRITE

SUB-SYSTEM MEMORY COMMAND JUST HOLDS THE LEDS OFF

i
(1088888488280 0885880888888808885884884888
5888488048800 00088800800000

112737
112737

012704
010465
004737
103405
010001

000000
000025
071010
000000
016336

071021
071020

2104

01}

ERRDF

104455
001757
072206
012046

2504 :

104406
012700
104441
005037

MOV8
MOVB
MOV
MOV
JSR
8Cs

000340
070776

€0,T388S1
025,7138BS0
OT38PACKET
R4
R4 ,TSDB(RS)
PC,CHKTSSR
2504

RO,R1

ERRNO, T38SSR,PKTSSR

CLR

+WAIT FOR

SSR

oPRIO?7
TTIONZ

COMMAND

TO SET

:BR IF CARRY SET (GOOD RETURN)
$SAVE CONTENTS OF TSSR
;DEVICE FATAL SSR FAILEDT;2PSET

;:LOOP ON ERROR,

CKLOOP

SETPRI

;CLEAR BIT o4
:STOP DRIVE TEST 22
1SET UP NEW WRT. SUBSYS MEM.
;SET _THE PACKET ADDRESS

.MORD
.WORD
.WORD
IF FLAG SET
TRAP

;:RAISE THE PRIORITY

MOV

TRAP

;ASSUME INTERRUPTS ARE ENABLED

CS$ERDF
1007
T38SSR
PKTSSR
csCLP1

#PRIO7,.RO
C$SPRI

TSVS

- HARDWARE TESTS

TEST 10:

10023
10024
10025
10026
10027
10028
10029

MACRO Y05.02

Monday

16-Sep-85 10:39

Page 84-81

SEQ 0228

MANUAL INTERVENTION

067044
067052
067054
067060
067066
067072
067076

032737
001005
005237
052737
012701
011137
012721
011137
012711

000100
070776
000108
00006
071000
070276
071002
000340

012700
104441
000240
000776

000000

012746
C12746

072601
000001

9100,80TTICSR
7104
TTION2
9100,80TTICSR
#TTIVEC,R1
(R1),TVSAV2
@5904,(R1).

177560
177560

1ARE TTI INTERRUPTS ON ?
$BRANCH IF YES

iFLAG SET IF INTERRUPTS OFF
1ENABLE INTERRUPTS
sSTART OF TTI VECTORS
1SAVE THE CURRENT TTI VECTOR

SETPRI

OPRIO7,(R1)
OPRIOO

$SET NEW INTERRUPT ROUTINE
1SAVE THE VECTOR PRIORITY
sUSE _PRIORITY SEVEN
;LOWER INTERRUPT BR LEVEL

:
2604

NOP
BR

260%

;ALLOW CNTL C
;LOOP UNTIL STOPPED

20¢:

PRINTF

9T38MS2

;TELL'EM WHAT TO TYPE

MOV

000004

SETPRI

000000

(R1),TPSAV2

#PRIOO

INTRECV

002224
015774

PC,SOFINIT
300¢
RO,R1
ERRNO, SFIERR, SFIMSG

MOV
TRAP

#T38MS2, -(SP)
MOV
TRAP
ADD

SP,.RO
CSPNTF
#4,SP

MOV

#PRIOO,RO

;:LOWER PRIORITY TO ALLOW INTERRUPTS
TRAP

;CLEAR INTERRUPT RECEIVED FLAG

;D0 SOFT INIT OF CONTROLLER
:+BR IF SOFT INIT = OK
:SAVE CONTENTS OF TSSR
;:DEVICE FATAL ERROR DURING INIT

013737
012737

002202
000040
071510
010662

0/1540
000000
016250

032701
001402
052702
052702
020201

071530
071526

0T38PK2,R4
PC,WRTCHR
3104
RO,R1
ERRNO,WRTMSG, SFIMSG

310¢:

000002
000100
000100
000200

UNITN, T38DSW
98175, T38EAI

:
3204

#T38PK3,R4
R4 ,TSDB(RS)
PC.WAITF
R2
TSSR(RS),R1
R1

C$SPRI

TRAP
.MORD

CSERDF
1008

.WORD

SFIMSG

.WORD

3004
:

#PRIOO,RO
C$SPRI

;SET UNIT NUMBER IN PACKET
sENABLE ATTENTION INTERRUPTS
1 SUBROUTINE NEEDS PACKET ADORESS
s ISSUE WRITE CHARACTERISTICS
:1BR, IF COMMAND ISSUED OK
:SAVE CONTENTS OF TSSR
sWRITE CHARACTERISTISC FAILED
TRAP
.WORD
.MORD
.WORD

SFIERR

CSERHRD
1009
WRTMSG
SFIMSG

:SET UP NEW PACKET FOR MESS 8UF REL

tMESSAGE BUFFER RELEASE,ACK,CVC=1 CMD
+WAIT FOR SSR TO SET
tMAKE SURE ALL IS CLEAR
$1GET TSSR STATUS

+IS OFL SET
1BR, IF OFL IS NOT SET
$:SET OFL _IN EXPECTED
:SET UP EXPECTED
+IS EVERYTHING OK

TSVS - HARDWARE TESTS

MACRC Y05.02

TEST 10:

MANUAL INTERVENTION

10069
10073

001404

012746
012746
010600

104417
062706

10076

000004

072601
000001

012700
10444)

000340

012700
104441
000240
005737
001001
000773

012746

000004

070776
000100
070776
000100
000060
071000
070276
071002
000340

177560
177560

002224

072276

360¢:

3704:

067506

012746
012746
010600
104417
062706
000410

Page 84-82

3504
ERRNO, T38SST,PKTSSR

SEQ 0229

;BR, IF ALL IS MWELL
;DEVICE FATAL SSR FAILEDY;2PSET
. WORD
.WORD
. WORD

;LOOP ON ERROR, IF FLAG ?EIP

PRINTF

#T38MS1

; TELL OPERATOR TO TOGGLE SeITCH

PRINTF

9138MS2

; TELL OPERATOR TO DO tC T0 EXIT

SETPRI

#PRIO7

sRAISE THE PRIORITY

CLR
8IT
BNE
INC
81S

TTION2
2100,80TTICSR
7204
TTION2
€100,80TTICSR
OTTIVEC,R1

SETPRI

000000

10:39

CKLOOP

MOV
MOV
MOV
MOV
MOV

NOP
TS7T
BNE
BR
PRINTF

(R1),TVSAV2

€590%,(R1)+
(R1),TPSAV2

#PRIO7,(R1?
OPRIOO

INTRECV
3708
3604

OT3BINT

MOV

817
BNE

TSSR(RS),R1
#0FL ,R1

PRINTF

072326
000001

PKTSSR

csCLP1
#T38MS1, -(SP)
P)

MOV
MoV
MOV
TRAP
ADD

#T38MS2, -(SP)

MOV
TRAP

#PRIO7,RO
C$SPRI

;ASSUME INTERRUPTS ARE ENABLED

$ARE TTI INTERRUPTS ON

:BRANCH IF YES
tFLAG SET IF INTERRUPTS OFF
sENABLE INTERRUPTS
;START OF TTI VECTORS
sSAVE THE CURRENT TTI VECTOR
:SET_NEW INTERRUPT ROUTINE
$SAVE THE VECTOR PRIORITY
tUSE PRIORITY SEVEN
;LOWER INTERRUPT BR LEVEL

MOV
TRAP

;ALLOW CONTROL C
:DID AN INTERRUPT OCCUR ?
sBRANCH IF YES
;WAIT SOME MORE FOR INTERRUPT
: “INTERRUPT RECEIVED"

000001

000004
000002
000100

10094
10095

10098
10099

072506
000001

012746
012746
010600
104417
062706

012711

10097

350¢:

104406

10075

16-Sep-85

BEQ
ERRHRD

104456
001762
072416
012046

10074

Monday

#PRIOO,RO

C$SPRI

#T38INT, -(SP)
P)

;READ TSSR STATUS

sCHECK THE OFF-LINE BIT
:BR, IF DRIVE IS OFF-LINE
: "DRIVE IS NOW ON-LINE*

#T3BONL, -(SP)

SP,.RO
CSPNTF

000004

3804
:

B8R

PRINTF

3904
0T380FL

s ALMOST DONE

s “DRIVE IS NOW OFF -LINE*

84 ,5P

TSVS - HARDWARE TESTS
TEST 10:

MACRO Y05.02

Mondey

16-Sep-85 10:39

Page 84-83

SEQ 0230

MANUAL INTERVENTION
067530

012746
012746

MOV
MOV

072362

000001

000004
002224
067176

10100
10101
10102

3904:

254

CLR
JMP
GMANIL

INTRECV
300
TSBHSG T38DAT, -1,NO

;CLEAR INTERRUPT FLAG

073340

004737
103405

015774

066252

27%:

010001

10115
10116
10117
10118
10119

10123
10124

104455
001763
003652
012034
104406
013737
012704
004737
103405
010001

4004
:
002202
071510
010662

;:DID OPERATOR SAY 'YES'
$+BRANCH IF YES
;RETURN TO MAIN MENV

BNE
JMP
JSR
8Cs
MOV
ERRDF

000004

4304:

274
24

PC,SOFINIT
400%
RO,R1
ERRNO, SFIERR, SFIMSG

CKLOOP
UNITN, 7380SW
#T38PK2,R4
PC,WRTCHR
410¢
RO,R1
ERRNO, WRTMSG, SFIMSG

T38DAT
T$COOE
T38MSG

8cc

254

.WORD

CS$GMAN
100004

-1

: SAVE CONTENTS
OF TSSR

:DEVICE FATAL ERROR DURING INIT
TRAP
.WORD
.WORD
.WORD

CSERDF
1011
SFIERR
SFIMSG

TRAP

CsCLP1

TRAP
.WORD
.WORD
.WORD

CSERHRD

TRAP

CsCLP)

1SET UNIT NUMBER
1 SUBROUTINE NEEDS PACKET ADDRESS
s ISSUE WRITE CHARACTERISTICS
:8R, IF COMMAND ISSUED OK
:SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC FAILED

;:LOOP IF SELECTED
T388FR06 R1
R2
OBITZ R2
R1,R2
430
ERRNO, T38WRL ,EXPREC

TRAP
BR
.WORD
.WORD
.WORD

;00 SOFT INIT OF CONTROLLER
:BR IF SOF1 INIT = 0K

;LOOP IF SELECTED

CcKLOoOP
MOV
MOV
81S
cHP
BEQ
ERRHRD

071034

002222

sRETRY IF ERROR

MOV
MOV
JSR
8cs
MOV
ERRHRD

071530

410¢:

002222

BNCOMPLETE 25%
T380AT

SP,RO
C4PNTF
04,5P

:WAIT FOR OPERATOR TO MOUNT TAPE

005737
€01002
000137

MOV
TRAP
ADD

1 TRY AGAIN

1777717

103371

OT380FL, -(SP)
1, -(SP)

:PTCK UP XSTO CONTENTS

SFIMSG

:SE” UP EXPECTED
sSET UP THE WRITE LOCKED BITY
+ARE THEY CORRECT
:BR, IF ALL IS WELL (OK)
: “WRITE LOCKED BIT IS NO}RigT EYC.”~

INC
cKkLooP

FATFLG

$SET FATAL FLAG
:LOOP IF SELECTED

18T

FATFLG

sWAS

. WORD
.WORD
.WORD

EXPREC

TRAP
CsCLPL
THE ORIVE NOT WRITE LOCKED

TSVS

- HARDWARE TESTS

TEST

10:

10138
10139
10140
10141
10142
10143
10144
10145
10146
10147
10151

MACRO Y05.02

Monday

16-Sep-85

10:39

Page 84-84

BEQ

4354

B8R, IF FLAG NOT SET

#T38PK4 R4

1GET PACKET ADORESS

SEQ 0231

MANUAL INTERVENTION

067726
067730
067734
067742
067746
067752

066252
113164
071560
000000
016250
000002
100206

071562

435$:

P
MOV

MOV

R4, TSDB(RS)

MOV
MOV
cHP

TSSRCRS),R1
#SC!SSRIBIT1!BIT2.R2
1.R2

1GET TSSR
1SET UP EXPECTED
1ARE THEY EQUAL (CORRECT)

Tsaara.s R1
R2
oenu R2

1014
uoao
T38WRT
'MCRD
'WORD
PKTSSR
;LOOP ON ERROR, IF FLAG SET
TRAP
CSCLP1
tREAD XSTO CONTENTS
1SET UPR EXPECTED
;SET THE WRITE LOCK ERROR BIT (XSTO)

4504
ERRNO, T38WLE , EXPREC

18R, IF IT WAS (GOOD)
; "WRITE LOCK ERROR BIT NOT SET”

BEQ
ERRHRD

004000

cHP

BEQ
ERRHRD

4508:

066252

PC.WAITF

4404
ERRNO, T38WRT,PKTSSR

CKLOOP
MOV
MOV
BIS

071034

RE-WRITE MENU
1SET UP WRITE BUFFER ADDRESS

MOV
JSR

4408:

28
SFREE, T38WR

R1,R2

CKLOOP

:SET THE PACKET ADDRESS
sWAIT FOR SSR TO SET

1BR, IF CCRRECT STATUS
1 “TSSR INCORRECT AFTER mne
coo%weo

;WAS THE BIT SET

TRAP

;LOOP IF SELECTED

2¢

;GO BACK TO MENU

CS$ERHRD

.WORD
'WORD
_MORD

1015
T3SWLE
EXPREC

TRAP

CSCLP1

1888648880548 88888884888088888888848880088804088880408008038080008808

;

SERVO EXERCISER NO LONGER USED

1088808846888 08888880808840088808880888800888880808808644808008484800

30%:

071645

PRINTB

#T38MST

JSR

PC.T3BREST

000001

000004
073342
015774

JSR
B8CS
MOV

ERRDF

070100
070102
070104
070112
070116

070122
070124
070126
070126

002202
071510
010662

071530

S00$:

PC.SOFINIT
5004
RO,R1

ERRNO, SFIERR. SFIMSG

MOV

UNITN, T380SW

ERRHRD

ERRNO WRTMSG.SFIMSG

MOV
JSR
BCS
HOV

#T38PK2. R4
PC,MWRTCHR
5104
RO,R1

; "EXE ANY OTHER MENU SELECTION TO STOP

MOV
MOV
MOV
TRAP
ADD
;SET PACKET TO INITIAL VALUES
:D0 SOFT INIT OF CONTROLLER
:BR IF SOFT INIT = OK
;SAVE CONTENTS OF TSSR

:DEVICE FATAL ERROR DURING INIT
TRAP
.MORD
'MORD
'MORD

;SET UNIT NUMBER

eT38MS3, -(SP)
o1,-(SP)
SP.RO
CSPNTB
#4,SP

CSEROF
1016
SFIERR
SFIMSG

1 SUBROUTINE NEEDS PACKET ADODRESS
;ISSUE MRITE CHARACTERISTICS
18R, IF COMMAND ISSUED OK
:SAVE CONTENTS OF TSSR

:WRITE CHARACTERISTISC FAILED
TRAP

CSERHRD

TSVS - HARDWARE TESTS

MACRO Y05.02

Mondey 16-Sep-85 10:39

Page 84-85

SEQ 0232

TEST 10: MANUAL INTERVENTION

070130
070132
070134

001771
005056
012034

10188 070136
10189 070144
10190 070132
10191 070156
10192 070162
10193 070166
10194 070170
10198 070172
070172

112737
112737
012704
010463
004737
103403
010001

070202

104406

070204
070210
10201 070212
10202 070216
10203 070224
10204 070226
10205 070232
10206 070240

012700
104441
005037
032737
001005
003237
052737
012701

000340

10208 070250
10209 070254
10210 070260

012721
011137
012711

070276
071002
000340

10187 070136

070174
070176
070200
10199 070202

10200 070204

10207 070244

10211 070264
070264

070270

10212 070272

iggii 070274

000000
000020
071010
000000
016336

071021
071020

104435
001772
072206
012046

011137

012700
104441

5504 :

070776
000100

177560

070776
000100
000060

177560

071000

10218 070276

10219 070300
10220 070304
10221 070310
10222 070314
10223 070316
10224 070324
10225 070330
10226 070336
10227 070344
10228 070352
10229 070360
10230 070364

MOV8
MOve
MOV
MOV
JSR
8CS
MOV
ERROF

5604:

000776

#0,7388S51
420,738850
#T38PACKET R4
R4, TSOB(RS)
PC.CHKTSSR
550¢
RO,R1
ERRNO, T38SSR,PKTSSR

#PRIO?7

CLR
817
BNE
INC
8IS
HOV

TTION2
#100,80TTICSR
5554
TTION2
€100, 80TTICSR

#TTIVEC,.R1

MOV
TRAP
1ASSUME INTERRUPTS ARE ENABLED
tARE TTI INTERRUPTS ON
?
1BRANCH IF YES
;FLAG SET IF INTERRUPTS OFF
sENABLE INTERRUPTS
1START OF TTI VECTORS

MOV
MOV
MOV

#5908,(R1)»
(R1),TPSAV2
#PRIO7,(R1)

1 SET _NEW INTERRUPT ROUTINE
;SAVE THE VECTOR PRIORITY
:USE PRIORITY SEVEN

NOP

(R1),TVSAVZ

#PRIOO

560¢

;RAISE THE PRIORITY

TRAP

SETPRI

MOV

1017
WRTMSG
SFIMSG

1CLEAR BIT #4
1EXECUTE DRIVE TEST 22
sSET UP NEW WRT. SUBSYS MEM. COMMAND
1SET_THE PACKET ADORESS
tWAIT FOR SSR TO SET
18R IF CARRY SETY (cooo RETURN)
1SAVE CONTENTS OF TSSR
1DEVICE FATAL SSR FAILED TO SET
CSERDF
uono
.MORD
.WORD
:LOOP ON ERROR, IF FLAG SET

CKLOOP

SETPRI

000240

1018
T38SSR
PKTSSR

CsCLPL
#PRIOT7,RO
C$SPRI

$1SAVE THE CURRENT TTI VECTOR

sLOWER INTERRUPT BR LEVEL
MOV
;LOOP AWHILE

TRAP

#PRIOO.RO

CS$SPRI

$1STAY IN “TIGHT" LOOP

1PROCESS CONSOLE INTERRUPTS

010046

113700
042700
122700
0010735
012766
005066
013737
013737
112737
112737
012704

590¢:

1773562
000200
000015
(66252
(000004
0/1000
071002
000623
0000¢0
071019

010465

00000

004737
016301
032701

016230
000002
000200

10231 070370 012737
10232 070376
10233 070402
10234 070406

555¢:

000000

10213

10217

S510¢:

.HORD
.WORD
.WORD

000002
000060
000062
071020
071021

176730 071004

MOV

MOove
8IC
cHMP8
BNE
MOV
CLR
MOV
MOV
Move
nOove
MOV
MOV

S592¢:

MOV

JSR
MOV
81T

RO, -(SP)

1 SAVE WORK REGISTER

R4, TSOB(RS)

sSET THE PACKET ADCRESS

PC.WAITF
TSSR(RS) .R1
OSSR ,R1

:00 A WAIT FOR SSR
sCONTENTS OF TSSR REGISTER
+CHECK FOR TSSR SET

SO#TTIBFR,RO
1GET THE OPERATOR INPUT
#200,R0
:STRIP OFF PARITY BIT
#15,R0
1IS IT A CARRIAGE RETURN ?
591¢
s JUST EXIT IF NOT
024,2(SP)
sRETURN TO MASTER MENU
4(SP)
sFORCE PRIORTY O
TVSAV2 ,@OTTIVEC ;RESTORE VECTOR
TPSAV2,80TTIVEC.2
sRESTORE SUPER PRIORTY
#25,7388S0
:STOP DRIVE TEST 22
#0,738851
$1CLEAR BS1
OT3IBPACKET,R4
;SET UP NEW WRT. SLBSYS MEM. COMMAND

#65000. , T380LY

1SET UP DELAY COUNTER

TSVS

- MARDUWARE TESTS

MACRO Y05.02

l TEST 10: MANUAL INTERVENTION
10233 070412
10236 070414

Mondey 16-Sep-85S 10:39

001017
012727
000000
013727
000000

BNE
DELAY

000250

Page 84-86

595
250

SEQ 0233

1KEEP GOING IF NOT SET
1CALL DELAY ROUTINE

0250,(PC).

§00LY.(PC)°

002116

177772

177756
071004
016336

T380LY
5924

595¢:

PC,CHKTSSR

5804

RO,R1

ERRNO, T38SSR,PKTSSR

S804:

000100

177560

IF MORE TIME LEFT

3HAIT FOR SSR TO SE
1BR IF CARRY SET (6000 RETURN)
1SAVE CONTENTS OF TSSR
1DEVICE FATAL SSR FAILED YO SET

5914

TRAP
. WORD
. WORD
. WORD

IF FLAG ;EIP

TTION2

tARE SUPER INTERRUPTS ENABLED

€100,80TTICSR

(SP)+.RO

iRESTORE REGISTER
tRESTORE REGISTER
$RETURN

PC.T38REST
PC,SOFINIT
600¢
RO,.R1
ERRNO, SFIEPR, SFIMSG

sSET PACKET TO INITVIAL VALUES
100 SOFT INIT OF CONTROLLER
:8R IF SOFT INIT = 0K
sSAVE CONTENTS OF TSSR
1DEVICE FATAL ERROR DURING INIT

5914

35¢:

073342
015774

18UMP COUNTER DOMWN

1BR,

:1LOOP ON ERROR,

070776

-22(PC)
20

+tBR,

IF
YES

TRAP

. WORD
. WORO

6004
:

sLOOP IF SELECTED

071026
125252

6014:

071502
002202
0/1310
010662

071530

MO
ERRHRO

10278

6104
:

CKLOOP

TRAP

#T388FR,R1
0125232,R2

1 ADORESS OF MESSAGE BUFFER
sALTERNATING 1'S AND O0°'S

R2.(R1)e
TS‘E‘ R1

605

1CLEAR OUT THE MESSAGE BUFFER
1END OF BUFFER YETY
:
IF AT END OF BUFFER

PC,URTCHR

: SUBROUT INE NEEDS PACKET ADORESS
sggsu%_ MRITE CHARACTERISTICS

ERANOD
, MRTMSG , SFIMSG

{MRITE CHARACTERISTISC FAILED

6014
UNITN, T380SUW
#T38PK2,.R4

605¢:

WORD

6104
RO,R1

:NOt AT END KEEP GOING
1SET UNIT NUMBER

ISAVE CONTENTS OF TSSR

:LOOP IF SELECTED

CIERIRD
1021

SF INSG

TSVS - HARDWARE TESTS
TEST 10:

MACRO Y05.02

Mondey

16-Sep-85

10:39

Page 84-87

SEQ 0234

MANUAL INTERVENTION
070616

10279 070620
10280

10289
10290
10291
10292
10293 070734
10297 070736
070736
070740
070742
070744
10298 070746
070746
10299 070750
10300 070754
10301 070756
10302 070762
10303 070766
10304
10305
10306
10307 070772
070772
070774
10308
10309
10310
10311
10312
10313
10314
10315
10316
10317
10318
10319 070776
10320 071000
10321 071002
10322

104406
112737
112737
012704
010465
012737
004737
016501
032701
001017

012727
000000
013727
000000
005367
001373
005367
C01367
005337
001352
004737
103405

000000
000024

071010
000000
000144
016250
000002
000200

071021
071020

071004

6204
:

;SET UP NEW WRT. SUBSYS MEM. COMMAND

OSSR ,R1

000250
002116
177772

071004

DEC
630%:

JSR
8CS
MOV

ERROF

104455
001776
072206
012046

650%:

104406
012700

071046

005037
004737
000137

003134
073400
066252

MOV
.WORD
MOV
.WORD
DEC
BNE

9250,(PC)»
O
LSOLY,(PC).
O
-6(PC)
.-4

8NE

.-20

DEC

177756

016336

CsCLPL

$SET THE PACKET ADDRESS
:+SET _UP DELAY ROUTINE
1WAIT AWHILE FOR SSR TO SET
$sSEE _IF IT REALLY DID
1 JUST CHECK THAT BIY
:BR, IF SSR IS SET
;DELAY ABOUT .25 SEC

6304
250

010001

005001

TRAP

1CLEAR BIT 04
+READ EXTENDED DRIVE STATUS

00,7388S1
024 ,738850
OT38PACKET,R4
R4,TSDB(RS)
€100.,T380LY
PC,WAITF
TSSR(RS).R1

CKLOOP
MOV
CLR
CLR
JSR
JMP

:
;638

104432
003056

T38DLY
6204
PC,CHKTSSR
650%
RO,R1
ERRNO, T38SSR,PKTSSR

JMP
EXIT

sSTART DELAY COUNT DOWN
:BR, IF COUNTER IS NOT AT DONE
;WAIT FOR SSR TO SET
;+BR IF CARRY SET (GOOD RETURN)
;:SAVE CONTENTS OF TSSR
;:DEVICE FATAL SSR FAILED TO SET

;LOOP ON ERROR,

TRAP
.WORD
.WORD
.WORD
IF FLAG SET
TRAP

-22(PC)

CS$EROF
1022
T38SSR
PKTSSR
CsCLP1

#T388FR+20,R0
R1
KTENABLE

sMESSAGE BUFFER ADDRESS
sNO HIGH ORDER ADDRESS BITS
;NO KT11 STUFF EITHER
;GO PRINT MESSAGE BUFFER CONTENTS
;GO BACK TO MENU

200
TST

:TYPE tC TO RETURN TO THE SUPERVISOR
sLEAVE TEST

SE.TSGHBP

TRAP
.WORD

CS$EXIT
L10075-.

;sLOCAL TEXT MESSAGES FOR TEST

s LOCAL STORAGE FOR

THIS TEST

s LOCAL STORAGE FOR THIS TEST
'

000000
000000
000000

TTIONZ:
TVSAV2:
TPSAVZ:

.WORD
.WORD

.WORD
0
0

:SAVE
sSAVE

;WORD SET IF
TTI VECTOR
TTI PRIORITY

SUPERVISOR TTI

INTER OFF

TSVS

- MARDWARE TESTS

TEST

10:

10323
10325
10327
10328
10329
10330
10331
10332
10333
10334
10335
10336
10337
10338

MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-88

SEQ 0235

MANUAL INTERVENTION

071004
071010
071010
071012

071014
071016
071020

071020
071021
071022
071024
071026
071502

071510
071510
071512
071514
071516

071520

071522

071524
071526
071530

071540
071542
071544
071546
071550

000000
071010

T38DLY:

T38PACKET:
.WORD
.WORD
LMORD
.WORD
T38TAD:
7388S0: .BYTE
7388S1: .BYTE
T38BS2: .WORD
.MORD
T38BFR: .BLKW
T38EB:
.WORD

140006
071020
000000
000012
000
000
000000
000000

000000

071510

T38PK2:

140004
071520

000000
000012
T38DTA:

T38EAI:
T380SW:

140212

T38PK3:

000000
000000
000000

000000

140006
T38TAD
0
10.
O
O
O
O
150,

1 COMMAND PACKET FOR TEST
tWRITE SUBSYSTEM MEM.

.WORD
.WORD

.MORD
.WMORD
.WORD

.MORD

ACK,CvCel

1 STARTINC VALUE OF BLOCK SIZE
; CHARACTERISTICS DATA BLOCK

140004
T38DTA

O
10.

.WORD
T38BFR
.MORD
O
.MORD
256.
.WORD
0
.WORD
O
.=<,.+10>E177770

.WORD

CMD,

s ADDRESS OF CHARACTERISTICS BLOCK

.3¢,¢10>E177770

.WORD
.WORD

071026
000000
000400
000000
000000
071540

;DELAY COUNTER FOR TEST

.WMORD
O
.®¢,+10>£177770

140212

O
O
©

+BSELO BYTE
:BSEL1 BYTE
;BSEL1 WORD
:DATA
;MESSAGE BUFFER
:END OF BUFFER ADDRESS

;s COMMAND PACKET FOR TEST
:WRITE CHARA.

MEM.

CMND.,

ACK,CVC=l1

; ADDRESS OF SELECT DATA BLOCK
1 STARTING VALUE OF BLOCK SIZE

:+SELECTY DATA 8LOCK
1 ADDRESS OF MESSAGE BUFFER
;LENGTH OF MESSAGE BUFFER
;EAI BIT WORD
;:DRIVE SELECT WORD ETC
sMESSAGE BUFFER RELEASE COMMAND
:NOT USED
sNOT USED
:NOT USED

:NOT USED

sWRITE TAPE PACKET
071560
071562
071564
071566

071560

140005
000000

T38PK4:
T38WR:

000000
000400

T38SIZ:

.%¢_ +10>E177770

.WORD
.WORD
.WORD
.WORD

140005
O
0
256.

;WRITE,

ACK,

CVC=1

COMMAND

:ADDRESS OF WRITE BUFFER
;MORE ADDRESS OF WRITE BUFFER
+SIZE OF RECORD

;LOCAL TEXT MESSAGES FOR TEST
;-

071570

123

164

141

T38NE:

.ASCIZ

'‘Stand-alone Manual

Intervention Not Executed'

- HARDWARE TESTS

Monday

16-Sep-85

10:39

Page 84-89

SEQ 0236

MANUAL INTERVENTION

MIMENU:

.WORD
.WORD

14,24,34,48,54,6¢4
84,94,104.0

1%
24
34

.ASCIZ
.ASCIZ
.ASCIZ

<12>'SELECT OPERATION FROM FOLLOWING OPTIONS:'
<12>'
Display This Menu’

.EVEN

.ASCIZ

104 :

.ASC1Z

54
64:
84:
94 :

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

‘Contents of TSSR Incorrect After WRITE SUBSYSTEH MEMORY'
‘dNSA Interrupt Received’
'%NSA Drive Is Now
ON-LINE'
'¥NsA Drive Is Now
OFF-LINE'

‘Contents Of TSSR Incorrect After MESSAGE BUFFER RELEASE’

‘dNsAToggle ON-LINE Switch to Generate ATTENTION Interrupts'’
'#N#AType RETURN To Return To MenusN’

‘Is Write-Protected Tape Mounted'’
‘Manual

Intervention'’

SUNBUWUNN-O

072756
073030
073056
073110
073143
073177
073225
073270
073337

073056
073337

Return To Menu’

‘WRITE LOCKED Bit Not Set In XSTO'

073030
073270

Servo Exerciser,

‘WRITE LOCK ERROR Bit Not Set In XSTO'
'WRITE SUBSYSTEM MEMORY Command Not Accept

072756
073225

To Stop

*TSSR Not Correct After WRITE, With WRITE PROTECT On'

072732
072746

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

156

072705

'WNSA Type

T38MS3:
T38WRT:
T38WRL:
T38WLE:
T38NBA:
T38SSR:
T38INT:
T380ONL:
T380FL:
T38SST:
T38MS1:
T38MS2:
T38MSG:
T3810:

045
123

10388 071645
071740

TEST 10:

MACRO Y05.02

TSVS

Turn On All M7196 LED''s’
Turn Off All M7196 LED''s’
O0ffline/Online Attention’
Write Protect Test'’
Print Extended Transport Status’
To Return to Diagnostic Supervisor'

.EVEN

sLOCAL STORAGE FOR THIS TEST
;-

073340
073342
073342
073346
073352
073356
073362
073364
073370
073372
073374
073376

000000
012701
012721
012721
005021
012721
005021
005021
005011
000207

T380AT: .WORD
T38REST:
SAVREG

140206
071020

MOV
MOV
MOV

000006

MOV

071010

CLR

CLR
CLR
CLR

RTS

;LOGICAL RESPONSE

OT38PACKET ,R1
0140206,(R1).
OT38TAD,(R1)+

(R1).
06.,(R1).
(R1)(R1).
(R1)

TO QUESTION

:SAVE THE REGISTERS

:START OF THE PACKET
;WRITE SUBSYSTEM MEM. WITH ACK,CVC=1
; ADDRESS OF DATA BLOCK

+EXTENDED ADDRESS
:SIZE OF DATA BLOCK IN BYTES
;CLEAR BSELO AND BSEL1
;CLEAR SEL2
sCLEAR DATA AREA
;RETURN

HEd

: THIS ROUTINE PRINTS THE

CONTENTS OF

;THE 256 BYTE MESSAGE BUFFER RETURNED BY THE
;1TSV-05.
H

;s INPUT:
3

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

TSVS

- HARDWARE TESTS

TEST

10:

MANUAL

MACRO Y05.02

Mondey

16-Sep-85

10:39

Peage 84-90

SEQ 0237

INTERVENTION

NOTE:

10445
10446

R1 IS IGNORED IF KTENABLE FLAG IS CLEAR

10447

10448
10449

104350

SAVREG

MOV

003134

910¢:

TST
BNE
CLR
MOV
ROL
ROL
PRINTX

RO,R5
KTENABLE
9104
R1
R1.R3
RO
R1
#T38AS0,R1.R5

1 SAVE THE REGISTERS
1SAVE LOW ORDER ADDRESS
1 ADDRESS ABOVE 28K?

:1BR _IF YES
1SET HIGH ORDER ADDRESS TO O
1SAVE HIGH ORDER ADORESS
1 SHIFT BIT1S5 70 C BIT
:SHIFT TO HIGH ORDER FOR PRINTOUT
MOV
;FRINT MESSAGE BUFFER ADDRESS

073702
000003
000010

10460

PRINTX

073747
000001
000004

RS.R1
R3,RO

9134

PC,SETMAP
RO,.R5
RS, T38CNT

017316

074050
125252

913¢:
911%:

(RS),R4

0125252,R4
9124
R4 ,R3
€170377.R4

170377

0/1502

073602

074024
000003

;PRINT HEADER FOR CONTENTS

RS, -(SP)
R1,-(SP)

oT38A50 -(SP)
03,-(5P)

MOV
MOV
MOV

TRAP
ADD

;COPY LOW ORDER ADDRESS
;COPY HIGH ORDER ADDRESS
:BR IF NOT ABOVE aax
I
SETUP PAR ADDRESS
{GET PAR FORMAT AODRESS ABOVE 28K
;HOLD ADDRESS
{GET BUFFER ENTRY
;CHECK FOR NO LOAD CONDITION
:1BR, IF BUFFER WASN'T LOADED
iMAKE

COPY

;ONLY BITS 1i.,10,9 AND 8 ARE SAVED
;CLEAR CARRY
;11 T0 10 BIT POSITION
:10 TO 9 BIT POSITION
19 TO 8 BIT POSITON
:8 TO 7 BIT Posxrxon
;ONLY BITS
3
AND 0 ARE SAVED

R4
R4
R4
R4
#177760,R3
R4 ,R3
R3,(RS).
iPUT BACK IN eurren
RS,#T38EB
;END OF BUFFER YET
9118
:BR, IF NOT AT END YET
T38CNT RS
;PUT ADDRESS BACK
o1 .R4
:START BYTE NUMBER AT ONE
;PRT MEM BUFFER W/NEWLINE
OT3BASN.R4,(RS).
MOV
MOV
MOV
MOV
MOV

: “OR' EM Tocei

177760

074050
000001

#T38AS1

MOV
MOV
MOV
MOV
TRAP
ADD

9124%:

915%:

MOV

PRINTX

(R5)e, -(SP)

R4, -(SP)
@T38ASN, -(SP)
03,-(SP)
SP,RO

TSVS - MARDWARE TESTS
TEST

10:

073606

10485 073612

10486 073616

10487 073620
073620

073622
073624
073630
073634

073636
073640

10488 073644
10489 073650

104415

062706

005037

000412

Page 84-91

SEQ 0238

010446
012746
012746
010600

104415
062706

073652
073656
073660
073666
073670
073672
073676

10499 073702
10500 073747
10501 074005

045
045
045

10504 074050
10505 074052
074052
074052

000000

{g:g; 073700

igggg 074024

TRAP

000010

074050

CLR

PRINTX

ADD

000010

074050

9214:

INC
INC

074050

@T38ASC,R4,(RS).

:PRINT THE CONTENTS OF MEMORY BUFFER

9214

:SKIP OTHER PRINT

MOV

cMP
8GT
CMP
BEQ
BR
CLR
BR

T38AS0:
T38AS1:
T38ASC:

.ASCIZ
.ASCIZ
.ASCIZ

'%#N#A Message Buffer Address = %01%05'
'#NsA Message Buffer Contents.’
'#A
#DASA: %03’

T38CNT:

.WORD
ENDTST

000004

074050

9254 :
S04 :

116
116
101

116

045
045
040
045

RTS

T38ASN:

104401

.esgsl

.SBTTL

210,5f

sCLEAR COUNTER

T38CNT
R4
R4,0128.
S0
T38CNT, 04
9254
9204
T38CNT
9154

000200

CSPNTX

T38CNT

074005
000003

000207

045

B8R

9204 :

012546

005237
005204
020427
003010
023727
001401
COO753
005037
000733

igggg

Monday 16-Sep-85 10:39

MANUAL INTERVENTION

073604

10490
10491
10492
10493
10494
10495
10496

MACRO Y05.02

;BUMP COUNTER
:NUMBER OF THE NEXT
;:DONE ALL YET ?
;:BRANCH IF ALL DONE
;OONE FOUR YET
;:BR, IF THREE DONE
;KEEP GOING
1CLEAR COUNTER
tPRINT WITH NEW LINE

(RS)s+,-(SP)

MOV
MOV
MOV
MOV

R4, -(SP)
#T38ASC, -(SP)
#3,-(SP)
SP,RO

TRAP

CS$ETST

TRAP
ADD

CSPNTX
910,5P

;RETURN

'WNSA BytewDA%A:

%03’

:COUNTER FOR PRINT
L10075:
TEST

11:

CONFIGURATION TYPEOUT

10508
10509
10510

:THIS IS A STANDALONE ROUTINE THAT PRINTS OUT ON THE CONSOLE TERMINAL
: THE CONFIGURATION OF THE M7196 MODULE AND TSVOS SUBSYSTEM. SPECIFICALLY,
; THE FOLLOWING INFORMATION IS PRESENTED:

10513

;

10511
10512

%ggig

:
H
f
:

10516
iggi;

;
:

iggég

%gg%%
10523
10524
10525
10526

10338

10529
10530

1.0 STATE OF THE EXTENDED FEATURES SWITCH ON THE M7196:
FEATURES ENABLED) OR OFF

ON (EXTENOED

(EXTENDED FEATURES DISABLED),

2.0 STATE OF THE BUFFERING ENABLE SWITCH ON THE M7196:
(BUFFERING ENABLED) OR OFF (BUFFERING DISABLED),

3.0 MICROCODE REVSION LEVEL OF THE M7196,

: 4.0 NUMBER OF TAPE TRANSPORTS CONNECTED TO THE CONTROLLER,
:

:
1
:

5.0 UNIT SELECT CODE AND STATE (ONLINE/OFFLINE, WRITZ ENABLED/PROTECTED)
OF EACH CONNECTED TRANSPORT. IN ADDITION, THE PROGRAM WILL INOICATE,
FOR EACH ON-LINE TRANSPORT, WHETHER OR NOT IT IS EQUIPPED WITH THE
EXTENDED TAPE STATUS READOUT FEATURE.

; THE OPERATOR IS EXPECTED TO READ THE PRINTOUT AND VERIFY THAT IT MATCHES
1 THE ACTUAL CONFIGURATION AT HAND.
1IF, FOR EXAMPLE, THE PROGRAMN INDICATES

TSVS - HARDWARE TESTS
TEST 11:

MACRO Y05.02

Monday

16-Sep-85

10:39

Page 84-92

SEQ 0239

CONFIGURATION TYPEOUT
1 THAT IT “SEES” TWO TRANSPORTS CONNECTED WHEN IN FACT ONLY ONE IS PRESENT,

1 THE OPERATOR MUST INTERPRET THIS AS AN ERROR AND ATTEMPT TO FIND THE

1CAUSE (BAD CABLE, FAULTY UNIT-SELECT DECODING IN THE TRANSPORT, ETC.).

1 [SINCE THE CONTROLLER CAN ONLY ACCESS UNIT O IF IT IS IN “STANDARD*
{MODE, THE PROGRAM WILL FORCE THE MOOULE INTO EXTENDED MODE VIA THE

tWRITE SUBSYSTEM MEMORY COMMAND IN ORDER TO SCAN FOR CONNECTED TRANSPORTS.)
i

1 THIS ROUTINE, WHEN ITS ACTIONS ARE COMPLETED, WILL EXIT BACK TO THE
:DIAGNOSTIC SUPERVISOR SO THAT IF ADDITIONAL UNITS (CONTROLLERS) ARE
:SELECTED (E.G., FROM THE INITIAL STARTUP DIALOG), THE ROUTINE WILL BE
1REENTERED SO THAT THEIR CONFIGURATIONS CAN BE PRINTED.
BGNTST

074054
074054
074054
074054
074056
074060

6324

076333

074064
074066

074072
074076
074102
074104
074110
074110
074114
074116
074120
074120
074122
074124
074126
074130
074130
074132
074140
074144
074150
074152
074154
074154
074156
074160
074162
074164
074164
074166
074172
074172
074176
074202
074204
074206
074212
074216

077534
016510
017762

10¢:
11¢:

20$:

015774

25%:
002202
076260
010662

1GET OPERATOR FLAGS

BEQ

104

1BR, IF OK TO RUN
1 "TEST NOT EXECUTED*

076300

MOV
JSR
JSR

€7ST391D0,RO
PC,TSTSETUP
PC,CHKMAN

JMP

644

;JUMP QUT OF TEST IF NOT
1 TEST ID MESSAGE
;D0 THE COMMON SETULP
;IS MANUAL INTERVENTION ALLOWED?
:BR, IF MANUAL INTERVENTION ALLOWED
;JUMP TO OUT IF NOT

JSR
8CS
MOV
ERRDF

PC.SOFINIT
254
RO,R1
ERRNO,SFIERR,SFIMSG

:00 SOFT INIT OF CONTROLLER
;B8R IF SOFT INIT = OK
;SAVE CONTENTS OF TSSR
:DEVICE FATAL ERROR DURING INITY

075610

012746
012746

077252
000001
000004
000200

114

204

MOV
MOV
JSR

UNITN, T390SW
4T3I9PK2,R4
PC,.WRTCHR

MOV

RO,R1

S0$

ERRNO,WRTMSG, SFIMSG

cKLooP
MOV
PRINTX

BIT
BNE

TRAP
.WORD
.WORD
.WORD

CS$ERDF
1101
SFIERR
SFIMSG

TRAP

CsCLP1

.WORD
.HORD
.WORD

CS$ERHRD
1102
WRTMSG
SFIMSG

TRAP

C4CLP1

MOV
MOV
TRAP
ADD

SP,RO
CSPNTX
04,5P

;LOOP IF SELECTED

cKLOooP

8CS

S04$:

CSRFLA

@T3IONE RO

B8R

ERRHRD

104406
013701

TRAP

MOV

8CSs

075336

T11::

RFLAGS

$1SET UNIT NUMBER
1 SUBROUTINE NEEDS PACKET ADDRESS
; ISSUE WRITE CHARACTERISTICS
:8R, IF COMMAND ISSUED OK
1 SAVE _CONTENTS OF TSSR
sWRITE CHARACTERISTISC r?gkgo

;LOOP IF SELECTED
T398FR+12,R1
#T39SFS

#8IT7,R1
100¢

;GET XST2 STATUS FROM MESSAGE BUFFER
: "STATE OF EXTENDED FEATURES SW =*
MOV
#T39SFS, -(SP)

:CHECK STATE OF E.F.S.
;BR, IF EXT. FEA. SW. IS ON

TSVS

- MARDWARE TESTS

TEST

11:

MACRO Y05.02

Mondey

16-Sep-85 10:39

Page 84-93

SEQ 0240

CONFIGURATION TYPEOUT

10581 074220
074220
074224
074230

10582
10583

012746
012746
010600
104415
062706
000410
012746
012746
010600

104415
062706

10584

10590
10591
10592

000004

012746
012746
010600
104415
062706
000410

077376
000001

012746
012746

077405
000001

042701
010137

000004
177700
077472

B8R

PRINTX

110%:

3 [

1104

s SKIP OTHER PRINT STATEMENT

0T390N

PRINTX

B8IT
BNE

PRINTX

000004

120¢:

130%:

077472
077414
000002

0739S8S

PRINTX

81C

MOV
PRINTX

#81IT6,R1
1204
OT390FF

130¢

2T390N

#177700,.R1
R1,T39RL
9T39MCL, TI9RL

PC,SOFINIT

140¢

RO,R1

ERRNO, SFIERR, SFIMSG

MOV

#T390N, -(SP)
01, -(SP)

”"

a0
TRAP
ADD

; "STATE OF BUFFERING SHI;SV a”

SP,RO
CSPNTX
#4,5P

#T3958S

076300

UNITN, T390SuW
OT3I9PK2,R4
PC,WRTCHR
150¢

-CSP)

;CHECK STATE OF BUFFERING SW
:BR, IF BUFFERING IS ON

: [

OFF [

MOV
MOV

MOV
TRAP
ADD

1SKIP OTHER PRINT 3TATEMENT

MOV

MOV
MOV
TRAP
ADD

sONLY LEAVE MICROCODE REV LEVEL
:LOAD UP REV LEVEL
: "MICROCODE REVISION LEvsbv-OOOX XX~
MoV
MOV
TRAP
ADO

OTIMCL, -(SP)

100 SOFT INIT OF CONTROLLER
sBR IF SOFT INIT = OK
s SAVE CONTENTS OF TSSR

:DEVICE FATAL ERROR DURING INIT
TRAP
.WORD

.WORD
. WORD

SFIMSG

TRAP

CsCLPL

1LOOP IF SELECTED

1404:

103405

OT390FF, -(SP)
P)

MOV

000006
015774

074442
074446

‘ [

MOV
MOV
MOV
TRAP
ADD

-(SP
e1,-(SP)

000004
000100

002202
076260
010662

OFF [

@T390FF

MOV

000004
077324
000001

013746

100%¢:

077405
000001

012746
012746
010600
104415
€62706
032701
001011

PRINTX

077376
000001

$SET UNIT NUMBER
s SUBROUTINE NEEDS PACKET ADDRESS
;sISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK

TSVS - HARDWARE TESTS
TEST

11:

MACRO Y05.02

Monday

16-Sep-85 10:39

Page 84-94

SEQ 0241

CONFIGURATION TYPEOQUT

10608 074450
10609 074452
074452
074454
074456
074460

010001

MOV

ERRHRD

104436

1504 :

000200
000010
075560
000000
016336

BNE

075371
075570

MOVe
MOVB
MOV
MOV

JSR
8Cs

MOV

ERRHRD

1604 :

076260

EXTFEA
1744

0200, 739851
€10,739850
OT39PACKET
R4
R4,TSDB(RS)
PC,CHKTSSR
1608
RO,R1
ERRNO, T39NBA ,PKTSSR

CKLOOP
MOV

:SAVE _CONTENTS OF TSSR
;WRITE CHARACTERISTISC F?gkgb

;LOOP IF SELECTED

CKLOOP
1S7T

002226

RO,R1
ERRNO,WRTMSG, SFIMSG

1104
WRTMSG
SFIMSG

TRAP

CsCLP1

;CHECK FOR EXTENDED FEATURES SW SWITCH
1BR IF SWITCH IS ON

sWRITE MISCELLANEQUS CONT/READ STATUS
;FUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH)
;WRITE SUBSYS MEM PACKET
s ISSUE COMMAND
tWAIT FOR SSR
:BR, IF NG ERROR
;ERROR, SAVE TSSR

;TSSR NOT CORRECT AFTER #gxp MISCELLANEOUS
C4$ERHRD
.WORD
1105
T3INBA
.WORD
PKTSSR
.WORD

:LOOP IF SELECTED
0T39PK2,R4

CSERHRD

.WORD
.WORD
.WORD

TRAP

;s SUBROUTINE NEEDS PACKET ADDRESS

csCLPl

1600000000488 0800400008040000400048444044000004404088008804848828204888

}

tWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR)
3
1884688508883 88488848888088888085848888888884084480408880080004300000

010662

002202
002202
076260
010662

076300

170¢:

CKLOOP

174%:
175¢:

CLR

016501
032701

MOV
MOV

JSR
8CS
MOV

ERRHRD

104406
000002
000100

; ISSUE WRITE CHARACTERISTICS

RO,R1
ERRNO,WRTHMSG, SFIMSG

:SAVE CONTENTS OF TSSR
;WRITE CHARACTERISTISC r?gkgo

170$

010001

104456
002123
005056
012034

PC,WRTCHR

180¢:

CKLOOP

190¢:

MOV
8IT

:BR,

IF COMMAND ISSUED OK

:SCOPE LOOP

.WORD
.WORD
.WORD

TRAP

1804

:SET TO DRIVE O
:SET UNIT NUMBER
1 SUBROUTINE NEEDS PACKET ADDRESS
;ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK

ERRNO,WRTMSG, SFIMSG

:URITE CHARACTERISTISC F?gkso

UNITN
UNITN, T390SW
#T39PK2,R4

PC,WRTCHR

RO,R1

1106
WRTMSG

SFIMSG

CsCLP

:SAVE _CONTENTS OF TSSR

sLOOP IF SELECTED
TSSR(R5),R1
#0FL ,R1

CS4ERHRD

:GET TSSR STATUS
+CHECK FOR OFF -LINE

CS$ERHRD
1107

. WORD
. WORD
.WORD

WRTHSG

TRAP

CsCLPL

SFIMSG

TSVS - HARDMWARE TESTS
TEST 11:

MACRO Y05.02

Monday

16-Sep-8S5S 10:39

Page 84-95

SEQ 0242

CONFIGURATION TYPEOUT

10654 074636
10655 074640

013746
012746
012746

0660
10661

002202
076574
000002
000006
075220

10656
10657

10658
10639

BEQ
PRINTX

001414

200¢:

002202
076640
000002
000006

01013
013746

075604
000004

MOV
817
BNE

PRINTX

002202
076756
000002
000006

10662
10663

2104:

002202
076703
000002
000006

125252
000000
000024

0735560

000000
000144
016230
000002
000200
012727
000000
013727
000000

JHP
PRINTX

075676
075571
075570
075552

220%:

222%:

000250

B8R
PRINTX

MOV
MOVB
MOVB
MOV

MOV
MOV
JSR
MOV
BIT
BNE
DELAY

2004
#T390F2,UNITN

2504

OT390N2,UNITN

T398FR+6,R1

#8IT2,R1
210¢
#T39WPN,UNITN

2204
OT3I9URT ,UNITN

#125252,T398FR+100
€0,7398S1
#24,7398S0
OT39PACKET
R4
R4, TSDB(RS)
9100.,T390LY
PC.WAITF
TSSR(RS),R1
OSSR, R1

2254
250

0v2116

177772
177756

10675
10676
10677
10678 075120

075552
016336

225¢:

DEC
BNE
JSR
8cCs

T390LY
2224
PC,CHKTSSR
230

;BR, IF DRIVE IS ON-LINE
: "DRIVE NUMBER ¥X IS OFF-LINE"
MOV
MOV

UNITN, -(SP)
#7390F2, -(SP)

MOV
TRAP
ADD

SP,RO
CSPNTX
#6,SP

MOV
MoV
MOV
MOV

UNITN, -(SP)
#T390N2, -(SP)
2,-(SP)
SP,RO

300 NOT TRY TO GET ANYMORE INFO.
: "DRIVE NUMBER XX IS ON-LINE”

TRAP
ADD

;READ EXTENDED STATUS (XSTO)
;1S ORIVE MTITE PROTECTED
;BR, IF WRITE PROTECTED
; "DRIVE NUMBER IS NOT WRT PRO”
MOV
MOV
MOV

MOV
TRAP
ADD

; SKIP OVER
; "DRIVE NUMBER XX IS WRT PRO*

CSPNTX
#6,5P

UNITN, -(SP)
#T39WPN, -(SP)
#2,-(SP)
SP,PO
CSPNTX

#6,5P

MOV
MOV

UNITN, -(SP)
#T39WRT, -(SP)

MOV

SP,RO

TRAP
ADD

;SET 1 LOC TO KNOWN VALUE
:EXTENDED TAPE STATUS

CSPNTX
#6,5P

:EXTENDED TAPE STATUS

tWRITE SUBSYS MEM PACKETY
: ISSUE COMMAND
$SET _UP DELAY ROUTINE
+MAIT AWHIL: *OR SSR TO SET
$;SEE _1F IT REALLY DID

;JUST CHECK THAT BIT
;BR, IF SSR IS SET
;DELAY ABOUT .25 SEC

MoV
.WMORD
MOV
.WORD
DEC
BNE
DEC
BNE

:START DELAY COUNT DOWN
;BR, IF COUNTER IS NOT AT DONE
;WAIT FOR SSR
iBR, IF NO ERROR

9250,(PC)+»
O
L$DLY,(PC)e
O
-6(PC)
.-4

-22(PC)
.-20

TSVS - HARDWARE TESTS
TEST 11:

104456

Page 84-96

SEQ 0243

RO,R1
ERRNO, T39NBA,PKTSSR

+ERROR, SAVE TSSR
1 TSSR NOT CORRECT AFTER #:T. MISCELLANEOUS
AP

077035

012046

104406
023727
001013

2304:

075676

013746
012746
012746
010600

002202
076501
000002

062706
000412

000006

013746

002202
076412
000002

074572
0735342
000001
017540
006

10706
10707

10:39

002124

000006
002202
002202

10705

16-Sep-85

MOV
ERRHRD

010001

104415

10704

Monday

CONFIGURATION TYPEOUT

10679 075122
10683 075124
075124
075126
075130
075132
10684 075134
075134
10685 075136
075144
10687 075146
075146
075152
075156

10688
10689

MACRO Y05.02

000174
075240
074054

075264

012700
104441

000000

012746
012746
010600
104417
062706

072601
000001

012746
012746

0/6330
000001

125252

2404:

cMe
BNE
PRINTX

T398FR0100 9125252
240
0T39ETN UNITN

:DID LOC GET OVER WRITTEN
1BR, IF IT DIDN T GET ETC.

2504

: SKIP OVER
1 "DRIVE HAS EXT TAPE STATUS”

PRINTX

&T39ETS,UNITN

000003

:
2504

INC
cHe
8EQ

UNITN
UNITN,
&3
6314

631%¢:

MOV
MOV

ONUMENU,
RO
01,R1

JHMP

JSR
MOV
ASL

64:

JHP
.WORD

634:

SETPRI

644

.WORD

1754

PC,GETSEL
RO,.R4
R4
86$(R4)
6313

632%

OPRIOO

sRERUN THE

CsCLP1

UNITN, -(SP)
OTIETN, -(5P)
02,-(sSP)
SP.RO
COPNTX
#6,5P

MOV
MOV
MOV

UNITN, -(SP)
OT39ETS, -(SP)
SP,RO

ADD

#6,5P

CSPNTX

TEST

MOV

o0T38MS2

PRINTX

©OT3ONFL

;NEW LINE

EXIT

TST

sEXIT THIS SECTION

#PRIOO.RO

TRAP

C$SPRI

MOV
MOV
TRAP
ADD
MOV
MOV
MOV
TRAP
ADD

oT38MS2, -(SP)
SP.RO
CSPNTF
4, 5P
OTIONFL , -(SP)
01, -(sP)
SP.RO
CSPNTX
e4,SP

TRAP

.MORD

;:LOCAL TEXT MESSAGES FOR TEST

1108
T39NBA
PKTSSR

MOV
MOV
MOV
MOV
TRAP
ADD

;BUMP DRIVE NUMBER
;AT ENO OF DRIVES YET
:BR, IF NO MORE DRIVES
100 NEXT DRIVE
:MENU OF MANUAL INTERVENTIONS
sMAXIMUM ALLOWED SELECTION
1GO GET THE OPERATORS SELECTION
:GET NUMBER FROM ROUTINE
s CONVERT TO WORD OFFSET
:JUMP TO PROPER LOOP
sRETYPE THE MENV

printf

3 ¢

CS$ERHRD

1 "DRIVE DOESN'T HAVE EXT TAPE STATUS

TRAP

000004

;LOOP IF SELECTED

CKLOOP

.MORD
'MORD
'WORD

CSEXIT

L10076-.

TSVS - HARDWARE TESTS

MACRO Y05.02

Mondey 16-Sep-85 10:39

Page 84-97

SEQ 0244

TEST 11: CONFIGURATION TYPEQUT
10708
10709

ig;ig

stLOCAL STORAGE FOR THIS TEST
‘-

10712 075342

075356

075430

075456

10714 075430
10715 075456

012
011

011
061

060
011

10717 075550
ig;ig

000

10713 075356
10716 075501

012

011

123

136

105

103

NUMENU:

.WORD

14,24,34,48,54.0

2%:
3%:

.ASCIZ
.ASCIZ

<12>'

.ASCIZ
.EVEN

‘'

1¢:

S¢:

LASCIZ

.ASCIZ

.MORD

10720 075552

000900

T39D0LY:

10724 075560
10725 075560
10726 075562

140006
075570

T39PACKET:
.MORD
.WORD

(€00012

.WMORD

10722

10727 075564

10728 075566

10729 075570

075560

000000

.2¢<, +10>E177770

.WORD

T39TAD:

«<12>'SELECT OPERATION FROM FOLLOWING OPTIONS:'

140006
T39TAD

10,

10730 075570

000

139850:

.BYTE

10732 075572
10733 075574
ig;gg 075576

000000
000000

T39852:

.WORD
.MORD
.BLKW

O
O
150.

10731 075571

10736

000

10738
10740 076260
10741 076260

076260

10743 076264
{g;:; 076266

000000
000012

10742 076262

140004
076270

10746

10747 076270
10748 076270

075576

10749 076272
10750 076274

000000
000400

10754
10756 076310

076310
140012
000000

10751 076276
10752 076300
igzgz 076312
10759
10760

10762
10764 076320
10765 076322
10766 076324
%g;g; 076326
10769
10770
10771

000000
000000

T398S1:
T398FR:

T39PK2:

T3I90DTA:
T39€AI:
T390SW:
T39PK3:

.BYTE

.=¢_ +10>E177770

.HORD
.WPRD

140004
T39DTA

.WMORD
.WORD

O
10.

.WORD

T398FR

.MORD
.WORD

.MORD
.MORD

O
256.

O
O

.=¢. +10>E177770
.WORD
140012
.MORD
O

0
1

Ditplaz This Menu'’
Rerun this test’

To Return to Disgnostic Supervisor'

;DELAY COUNTER FOR TEST
;COMMAND PACKET FOR TEST
sWRITE SUBSYSTEM MEM. CMD,
AC
VC=1
; ADDRESS OF CHARACTERISTICS BLOCK

;STARTING VALUE OF BLOCK SIZE

s CHARACTERISTICS DATA BLOCK
sBSELO BYTE

:1BSEL1 BYTE

:8SEL1 WORD
;:DATA
sMESSAGE BUFFER

;COMMAND PACKET FOR TEST
sWRITE CHARA, MEM. CMND.,

ACK,CVC=1
tADDRESS OF SELECT DATA BLOCK
:STARTING VALUE OF BLOCK SIZE

;SELECT DATA BLOCK

;ADDRESS OF MESSAGE BUFFER
;LENGTH OF MESSAGE BUFFER

;EAI BIT WORD
sORIVE SELECT WORD ETC

;MESSAGE BUFFER RELEASE COMMAND
sNOT USED

076320
140005
000000
000000

000400

tWRITE TAPE PACKET
:

T39PK4:
T39WR:
T39SIZ:

.2¢, +10>E177770
.WORD
140005
.WORD
O
.MORD
O
.WORD

256.

sWRITE, ACK, CVC=1 COMMAND
s ADDRESS OF WRITE BUFFER
+MORE ADDRESS OF WRITE BUFFER
:SIZE OF RECORD

TSVS - MARDWARE TESTS

MACRO Y05.02

Monday 16-Sep-85 10:39

Peage 84-98

SEQ 0245

TEST 11: CONFIGURATION TYPEOUT

1LOCAL TEXT MESSAGES FOR TEST

Oml

'Stend-alone Configuretion Typeout Not Executed’
'#NsA Extended Tepe Stetus Availisble, Drive Number %02’
'dNSA Extended Tepe Status NOT Availisble, Drive Number %02’
‘dNA Drive Number #D24¥A I Off-Line’
‘oNSA Orive Number #0D28A Is On-Line'
‘UNsA Drive Number #02%A Is Write Protected’
‘dNSA Drive Number %D2¥A Is NOT Write Protected’
'WRITE SUBSYSTEM MEMORY Commend Not Accepted’

‘Contente of TSSR Incorrect After WRITE SUBSYSTEM MEMORY'

077405
077414

T390N:
TIOMCL:

.ASCIZ
.ASCIZ

077472

TI9RL:

.WORD
.EVEN
.EVEN

.EVEN

‘uNsSA Type 'C to Return to the Supervisor’
‘dNsA Stete Of Extended Features Switch
='
‘dNSA State Of Buffering Switch
‘A OFF'

‘dUNSA M7196 Microcode Revision Level

=902’

:LOCAL STORAGE FOR THIS TEST
‘

077474
077476

077476

T390AT: .WORD
T39REST:

000000

012701

;LOGICAL RESPONSE TO QUESTION

075560
140006
075570

OT39PACKET ,R1
#140006,(R1)-

sSAVE THE REGISTERS
sSTART OF THE PACKET
tWRITE SUBSYSTEM MEM. WITH ACK,CVC=1

000006

(R1).

#6.,(R1).

sEXTENDED ADORESS

#T39TAD,(R1)-

:SIZE OF DATA BLOCK IN BYTES

(R1).
(R1).
(R1)

sCLEAR BSELO AND BSEL1
sCLEAR SELZ2
sCLEAR DATA AREA

077532

s ADDRESS OF DATA BLOCK

s RETURN

:LOCAL TEXT MESSAGES FOR TEST
*

‘

077534

103

077562
077562
077562

104401

157

156

TST39ID:

,EVE
ENDOTST

.SBTTL

.ASCIZ

'Configuration Typeout’
L10076:

TEST

12:

SCOPE LOOPS

TRAP

CSETSY

- MARDWARE TESTS

TEST 12:

MACRO Y05.02

Monday 16-Sep-85 10:39

Pege 84-99

SEQ 0246

SCOPE LOOPS
*

TSVS

THIS IS
A STANDALONE ROUTINE PROVIDING A NUMBER OF TIGHT

~<COPE

LOOPS* USEFWL FOR DEBLBGI'G BASIC REGISTER ACCESS PROBLEMS WITH

THE M7196 MODWLE.
THESE SCOPE LOOPS CAN BE USED WHEN THE
“LOOP ON ERROR” OR "LO(P ON_TEST (SWTEST)" FACILITIES OON'T
SEEM TO ALLOW THE OPERATOR TO ZERO IN
A PROBLEM IN THE EARLY
TESTS (I.E, THE HARDWARE MAY NOT BE RESPONDING TO A REGISTER
ACCESS, CAUSING A BUS ERROR TRAP,
EVEN THOUGH THE DEVICE ADORESS

SELECTED BY THE PROGRAM MATCHES THE CONFIGURATION SET UP IN THE

mgrgsEOIP SWITCHES).

CODE
~NONAUWNO

THE FOLLOWING MENU OF SCOPE LOOPS ARE

SCOPE LOOP
HELP. PRINT THIS MENU.
TSBA READ ACCESS
TSSR READ ACCESS
INITIALIZE (TSSR WRITE ACCESS)
TS08 HMIGH BYTE WRITE ACCESS
TSOB LOW BYTE WRITE ACCESS
TSD8 MAINTENANCE -MODE WORD WRITE ACCESS
TSDBX (TSSR MIGH BYTE) WRITE ACCESS

(EXTENDED FEATURES SWITCH MUST BE ON

T0 USE SELECTION COOE 7)
EXIT (RETURN TO SUPERVISOR)

FOR SCOPE LOOPS THAT WRITE INTO REGISTERS, THE PROGRAM PROMPTS
THE OPERATOR FOR THE DATA TO BE WRITTEN.
TYPING <RETURN> CAUSES
AN EXIT FROM THE SCOPE LOOP BACK TO MENU LEVEL.

BGNTST

10870 077366
10874 077370
10872 077374
10873 077376
10874 077602
10873 077606
10876 077612
10877 077614
10878 077620
10879 077624

101155

101222
016510
017762

100276
013774

112

RFLAGS

1GET OPERATOR FLAGS

BEQ

1BR,

1004
#7S1401I0,RO

s ST EXIT IF NT
1 TEST ID MESSAGE
100 THE COMMON 3ETUP
1SCE IF MANUAL INTERVENTION ALLOWED

MOV

B8R
MoV

#TAONE ,RO

JSR
JSR

PC,TSTSETUP
PC . CHKMAN

JHP
JSR
8CSs
MOV

644
PC.SOFINIT
3¢
RO, R1

8cs

ERROF

ERRNV, SFIERR, SFIMSG

IF OK TO |RUN

TRAP

s "TEST NOT EXECUTED”

tCARRY SET IF INTERVENTION ALLOWED

$EXIT IF NO MANUAL INTERVENTION
100 A SOFT INIT
1BRANCH IF OX
sCONTENTS OF TSSR REGISTER
sREPURT FATAL ERROR

TRAP

. WORD
D

100310

"oV

OSCHENU, RO

CSRFLA

. MOROD

tMENU OF SCOPE LOOM SELECTIONS

COERDF
SFIERR

TSVS

HARDWARE TESTS

TEST

12:

MACRO Y05.02

Monday

16-Sep-85

10:39

Page 84-100

SEQ 0247

SCOPE LOOPS
077644
077650
077654
077656
077660
077664
077666
077672
077674

077674
077700
077704
077706
077710
077714
077720
077722
077722
077726
077730
077734
077742
077744
077750
077756

012701

001760
020027
001015
005737
001012
012746
012746
0600

000007
017540

TST

8EQ
cHP
BNE
TST
BNE

000007
002226

PRINTF

101077
000001

34:

000340

100302
000100
100302
000100
000060

012711

100304
100210
100306
000340

012700
104441
006304
000174
077620
100036
100046
100060
100100
100124
100150
100170

000000

105065
011500
000776

000000

000002

100056

012703
060503
011300
000776

100060
100064

004737
010001

017456

100016

97.,R1
PC.GETSEL

24
RO, &7
34
EXTFEA
3¢

OEXFMSG

iMAXIMUM ALLOWED SELECTION

1GO GET THE OPERATORS SELECTION
+WAS ZERQO SPECIFIE
;REPEAT MENU IF YES

tEXTENDED TSSR ?
1BRANCH IF NOT
tBR,

lCHECK FOR EXTENDED FEATURES SET

O
IF IT IS

1 WARN OPERATOR EXTENOED FSATURES CLEAR
MOV
MOV

000004
077620

077762

100046

MOV
JSR

177560
177560

4% :

JMP
MOV
SETPRI

104:
12%:

;GO BACK TO BASIC MENU
;SAVE THE MENU SELECTION
MOV
;RAISE THE PRIORITY

TRAP

TTION
:%OO.BOTTICSR

1ASSUME INTERRUPTS ARE ENABLED
?
tARE TTI INTERRUPTS ON

INC
8IS
MOV

TTION
#100,84TTICSR
OTTIVEC,.R1

sFLAG SET 1F INTERRUPTS OFF
:ENABLE INTERRUPTS
sSTART OF TTI VECTORS
:SAVE THE CURRENT TT1 VECTOR
$SET _NEW INTERRUPT ROUTINE
:SAVE _THE VECTOR PRIORITY
sUSE PRIORITY SEVEN
:LOWER INTERRUPT BR LEVEL

MOV
MOV
MOV
MOV

(R1),TVECSAV
2604 ,(R1).
(R1),TPRISAV
#PRIO7,(R1)
#&PRIOO

MOV

:CONVERT TO WORD OFFSET
;JUMP TO PROPER LOOP
tRETYPE THE MENU
:TSBA READ ACCESS
: TSSR READ ACCESS

TRAP

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

2%
10%
15%
20%
25%
30%
35%
40%

CLRB
MOV

TSDB(RS)
(R5),RO

;ENTER _MAINTENANCE MODE
+READ TSBA REGISTER
;LOOP UNTIL HALTED

#TSSR,R3

s ADDRESS OF TSSR REGISTER
sPOINT _TO TSVOS'S REGISTERS
;READ TSSR REGISTER
:LOOP UNTIL STOPPED

JMP

B8R

MOV

184:

MOV
8R

ADD

JSR

MOV

864(R4)

12¢

R5,R3

(R3),RO
184

PC.GETPAT

RO.R1

#PRIO7,RO

C$SPRI

1BRANCH IF YES

ASL

15%:

204 :

TRAP
ADO

CLR
gag

SETPRI

6$:

24
RO,.R4
@4PRIO?

QEXFMSG, -(SP)

:TSSR WRITE

ACCESS

:TSDB HIGH BYTE WRITE ACCESS
;7SDB LOW BYTE WRITE ACCESS
: 7SDB MAINTENANCE MODE
:TSDBX WRITE ACCESS
sLEAVE THE TEST

;READ THE DATA PATTERN
;OATA PATTERN FOR LOOP

OPRIOO,RO

C$SPRI

TSVS

- HARDWARE TESTS

TEST

12:

MACRO Y05.02

Monday

16-Sep-85

10:39

Pege 84-101

SEQ 0248

SCOPE LOOPS

10934 100066
109335 100072
10936 100074
10007¢

012703
060503
010113
000776

000002

22%:

000000
017456

25¢:

004737
010001

012703
060503
010113

000000
017456

304:

000000
324:

017456

35%:

000000
37¢:

000776

004737

010001
012703
060503

T
; ADDRESS OF
s+POINT 1O TSVOS REGISTERS
sWRITE DATA TO TSSR
;1LOOP

CLRB
JSR

TSDB(RS)
PC,GETPAT

;ENTER MAINTENANCE MOODE
;READ THE DATA PATTERN
sDATA PATTERN FOR LOOP
+ADDRESS OF HIGH BYTE OF TSDB
sPOINT TO TSVOS'S REGISTERS
tWRITE THE DATA TO TSDB, HIGH BYTE

MOV
BR

MOV

27%:

060503
110113
000776

OTSSR R3
RS,R3

MOV

000001

010001
C12703

MOV
ADD

017456

404 :

000003
42%:

110113

RO,R1

#TSDBH,R3

ADD

R5.R3

B8R

274

MOVB

R1,(R3)

;LOOP UNTIL STOPPED

1ENTER MAINTENANCE MODE

CLRB
JSR
MOV
MOV

TSDB(RS)
PC,GETPAT
RO,R1
4TS98,R3

iREAD THE DATA PATTERN
;OATA PATTERN FOR LOOP

324

;LOOP UNTIL HALTED BY OPERATOR

JSR

PC,GETPAT

;READ THE DATA PATTERN

MOV

#7508 ,R3

ADD
MOVB

MOV

R5,R3
R1,(R3)

RO,RL

s ADDRESS OF TSSR
+POINT TO TSVOS'S REGISTERS
s+WRITE DATA

TSSR,

LOW BYTE

:DATA PATTERN FOR LOOP

ADD

R5,R3

R1,(R3)

: SELECT TS08
+POINT TO TSVOS'S REGISTERS
;WRITE THE DATA PATTERN

374

;1LOOP UNTIL HALTED

PC,GETPAT

;READ

MOV

JSR

MOV

RO,R1

ADD
MOve
BR

R5,R3
R1,(R3)
424

MOV

000776

R1,(R3)
224

@TSSRH,R3

THE DATA PATTERN

:SAVE THE DATA PATTERN
:BYTE ADODRESS OF TSSR, HIGH BYTE
;POINT TO TSVOS‘'S REGISTERS
;WRITE THE DATA TO REGISTER
;LOOP UNTIL HALTED

3¢

;PROCESS CONSOLE INTERRUPTS
:-

604 :

177562

000200

000015

077620
000004
100304
100306
100302
000100

MOV

RO, -(SP)

81C

€200,R0

MOvVe
crMP8

000002

177560

614:

®15,R0

BNE

614

B8EQ

618

MOV
CLR
MOV
MOV
TSY

000060
000062

SOTTIBFR,RO

8IC
:?}

024 ,2(SP)
4(SP)
TVECSAV ,STTIVEC
TPRISAV,80TTIVEC.2
TTION

#100,80TTICSR
(SP)+,RO

1 SAVE WORK REGISTER
:GET THE OPERATOR INPUT
:STRIP OFF PARITY BIT
;IS IT A CARRIAGE RETURN ?
s JUST EXIT IF NOT
;RETURN TO MASTER MENU
;FORCE PRIORITY ZERO
sRESTORE SUPERVISOR VECTOR
;RESTORE SUPERVISOR PRIORITY
;ARE SUPERVISOR INTERRUPTS ENABLED
:BRANCH IF YES
;TURN OFF TTI INTERRUPTS
;RESTORE REGISTER
;RETURN FROM INTERUPT

TSVS

- HARDWARE TESTS

TEST

12:

MACRO Y05.02

Monday

16-Sep-85

10:39

EXIT

Page 84-102

SEQ 0249

SCOPE LOOPS

10991
10992 100276
10993 100276

100276
100300

10994
10993
10996
10997
10998
10999
11000 100302
11001 100304
11002 100306
11003

644

63%:

104432
000736

1658

JMP
200
j06sesasssasssesJUMP

sEXIT THE TEST

TO 200

IS NOT

TRAP
.WORD

;RETURN TO SUPERVISOR

SUPPORTED ON XXOP+

CSsEXIT
L10077-.

VERSION 2.X.

tLOCAL STORAGE FOR THIS TEST
;-

TTION:

000000
000900
000000

.WORD

TVECSAV:
TPRISAV:

.WORD
.WORD

tWORD SET IF SUPERVISOR TTI INTER OFF

O
O

;SAVE TTI VECTOR
;SAVE TTI PRIORITY

:HENU FOR OPERATOR INPUT FOR SCOPE LOOPS
¢

101236
101236
101236
101240

101240
101240

SCMENU:

»
B
B

012
012
011
011
o11
011
011
011
011
011
000
124
045
123
123

100443
100720

100342
100415
100443
100467
100513
100555
100614
100652
100720
100767
101036
101037
101077
101155
101222

100415
100652

:
64:
74:
8s:
9¢:
10¢:
11
124
EXFMSG:
9%

100342
100614

(V.2
X7 1,V o)

100310
100324

.EVEN
.WORD
.WORD

1%,
7%,

.ASCIZ

«12>'SELECT SCOPE LOOP FROM FOLLOWING OPTIONS:*

LASCIZ
.ASCI2
.ASCIZ
.ASCIZ
.ASC1z
.ASCIZ2
.ASCIZ2
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ

TAONE:
.ASCIZ
TST401D:
.EVEN
ENDTST

104401

TSV6::

«<12>’

0
1
2
3
4
S
6
7
tC

'
'
'
'

Display This Menu'
TSBA Read Access’
TSSR Read Access’
Initialize (TSSR Write Access)’
TSOB High Byte Write Access’
TS0B Low Byte Write Accesus'’
TSOB Maintenance Mode Write Access’
TISDOBX (TSSR High Byte) Write Access’
To Return to Diagnostic Supervisor’

'Type RETURN To Stog Scope Loops’
‘#NsA ses Extended
Features Switch Not On sss
'Stand-slone Scope Loops Not Executed’
.ASCIZ
'Scope Loops’

L10077:

ENDMOD
.TITLE

TSVé6

BGNMOD

TSV6

.SBTTL

HARDWARE PARAMETER CODING SECTION

PARAMETER CODING

s+
;

THE HARDWARE PARAMETER COODING SECTION CONTAINS MACROS
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES.
THE

TRAP

CS$ETST

TSV6 - PARAMETER CODING MACRO Y05.02

Monday 16-Sep-85 10:39

Page 84-103

SEQ 0250

HARDWARE PARAMETER CODING SECTION
11058
11059
11060
11061
11062
11063 101240
101240
101242
11064
11065 101242
101242
101244
101246
101250
11066 101252
101232
101254

101256
101260

11067
11068 101262
101262
11069 101262
11070 101316
11071 101342
11072

MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT _ARE

INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.

THE

MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS
WITH THE OPERATOR.

000010

L$HARD::

GPRMA
.WORD
.WORD
.WORD
.WORD
GPRMA
.WORD
.WORD
.WORD
.WORD

000031
101262
160010
1777176

001031
101316
000000
C00776

104
111
111

BGNHRD
.WORD L10100-L$HARD/2

s GPRMD

105
116
116

126
124
124

L10100:

HPM1
:
HPM2:
HPM3:

ENOHRD
.EVEN

.ASCIZ
.ASCIZ
.ASCIZ2
.EVEN

HPM1,0,0,160010,177776,YES
T4CODE

HPM1
TSLOLIM
TSHILIM
HPM2,2,0,0,776,YES
T$COOE
HPM2
TSLOLIM
TSHILIM
HWPM3,4,0,340,0,7,YES

'DEVICE ADDRESS (TSBA/TSDB.
* INTERRUPT VECTOR
!
!
* INTERRUPT PRIORITY

:GET TSBA/TSDB REGISTER ADDRESS.

+GET VECTOR ADDRESS.

;GET INTERRUPT PRIORITY.

TSV6 - PARAMETER CODING MACRO Y05.02

Monday 16-Sep-85 10:39

Page 85

SEQ 0251

SOF TWARE PARAMETER CODING SECTION
11074
11075
11076
11077
11078
11079
11080
11081
11082
11083
11084 101372
101372
101374
11085
11086 101374
101374
101376
101400

.SBTTL

SOFTWARE PARAMETER CODING SECTION

THE SOF TWARE PARAMETER CODING SECTION CONTAINS MACROS
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES.
THE

MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE

INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.

THE

MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS
WITH THE

000003

L$SOFT:

001130
101432
17717717

L10101:

101402
101
110

101402
101432
101462
101512

GPRML

SPM1,0,-1,YES
SPM4,2,-1,YES
T4CODE
Sqfld

i GET TRANSPORT TEST FLAG.
;+ GET ITERATION CONTROL.

GPRMD

SPM6,4,0,7777,0,7777,YES
SPM7,6,0,7777,0,7777,YES

+
;

SPM1:
SPMA ;
SPM6 :
SPM7:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.SBTTL

*ENABLE TRANSPORT TESTS
*INHIBIT ITERATIONS

GPRMD
ENDSFT
.EVEN

GET LOCAL ERROR LIMIT
GET GLOBAL ERROR LIMIT

'PER TEST ERROR LIMIY
'PER UNIT ERROR LIMIT
PATCH AREA

FINALLY A GENEROUS PATCH AREA.

AND AN ADJUSTMENT

TO ACCOUNT FOR

THE

“LASTAD BIT7" HACK

DESCRIBED IN "SUPPRG.MEM” (FOR REV C).

B¢

122

BGNSFT
.WORD L10101-L$SOFT/2
GPRML
.WORD
.WORD
. WORD

101402

OPERATOR.

PATCH:
:

.BLKW

102000
000000
000000
000001

LSLAST::

32.

.=, 13771
LASTAD
.EVEN
0
.WORD
0
.WORD
ENDMOD
.END

:1SET LAST USED ADDRESS.

Monday 16-Sep-85 10:39

TSV6 - PARAMETER COCING MACRO Y05.02

Page 85-1

SEQ 0252

(212121

OO0

000024
000053
000003
000055
000056
000060
000054
000057
000010
000005
000003
000001
000032
000026
000027
000043
000042

(217

[217]

$GPLO= 000030

C4QI0 = 000377

(2121~

000013
002312
017514
011632
002220
022726

(217

OOOOO

C$TPRI=
DATA
DATASC
DEBUGM
DEVCNT
DEVORO

FREEHI
FRESIZ

INTFLA

016150
016145

[
N

[

S$ORPT=
S0V
=
$EDIT=
$ERDF
=
$ERHR=
$ERRO=
SERSF=
$ERSO=
$ESCA=
$ESEG=
$ESUB=
$ETST=
S$EXIT=
$GETB=
$GETW=
$GMAN=
$GPHR=
-

QOONOONOOOOOOOONONOONOONOOOOOHOS

000045
000062
000012
000035
000006
$CVEC= 000036
000044

016144
INTMAS
INTR
INTREC
INTVEC
INTX
INVERY
IOKCKI=
IOKSTP=
IPRI
=
ISR
IVEC
=
IXE
=
ISAU
I$AUTO=

022645
022563
022513
022456
002156

OOOOO

$CEFG=
$CLCK=
SCLEA=
$CLOS=
[n}
HL
v

015700
177520
002230
040000
000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
000002
002000
004000
010000
020000
040000
100000
000004
000010
000020
000040
000100
000200
000400
001000
000400
004457
000000
000001
016044
017762
016336
017202
017102
011360
011500
011114
011224
020610
017250
002310
002206
003164
003176
003164
000052

003156

DEVNRD

$8SEG= 000004

-»

BADSSR
BDVPCR=
BENBSW
=
BIE
8ITO
=
BITOO =
8ITO01 =
B8IT02 =
8IT03 =
BITO04 =
8ITOS =
81706 =
B8ITO7 =
8ITO8 «
81T09 =
=
B8ITL
8IT10 =
B8IT11 =
8IT12 =
8IT13 =
8IT14 =
8IT1S =
=
8IT2
8IT3
=
=
8ITa
=
BITS
=
B8IT6
=
BIT?
=
8IT8
«
8IT9
=
BOE
BRINIT
BSELO =
8SEL1 =
CHKAMB
CHKMAN
CHKTSS
CKDROP
CKEMAX
CKMSG
CxMSG2
CKRAM
CKRAM2
CMDPKT
CONFIG
COUNT
CSRADD
CTAB
CTABE
CTABM
C$AU
=

BADDAT

$AUTO= 000061

OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO

012126 G
000020 G
006635
000010
000003

OO0

ADDSSR
ADR
=
AMBTSS
ASSEMB=
A1716 =

[

Symbol table

TSV6

- PARAMETER COOING MACRO Y05.02

Monday 16-Sep-85 10:39

Page 85-2

SEQ 0253

Symbol teble
PRMSGE
PRMSGO
PRMSGL
PRMSG2
PROASC
PR1ASC
PST32uW
PUNIT
PW.D11=
PW.013=
PW.D22=

L10101

MEMADD
MEMCK

(217

L10073
L10074
L10075
L10076
L10077
L10100

QAOOOOOOOOOOOOOONOOOOOOOOOOONOOOOOONONOOOOOHOOOOOOOOONOOOOOCOHD

MENASC
MENERR

014552 G
014732
014777
015035
014420

014465

]

PW .NOP= 000000

(217

(21212121~

(2121~ 1~)

MENRES

MIMENU
MMVEC =
MSA.FR=
MSA.NQ=
MSA.NR=
MSA.VQe
MSGEXP
MSGLOO
MSGSTA
MSGSUB
MS.ATT= 000006
MS.EXT=
MS.RSD=
MS.RSF=
MS.RSTs=
M8186
M8189
=
NBA
NEWPAS

PW.NO1=
PW.ROE=
PW.RDR=
PW.RDS=
PW.RF1=
PW.WCT=
PW.WF]=
PW
. WFM=
PuW. WM]=
PU.WNP=
Pu_ WTR=
P.ACK =
P.CMO =
P.CONT=
P.CVC =
P.FMT =
P.FORM=
P.GETS=
P.IE
=
P.INIT»
P .MODE=
P.OPP =
P.POSI=
P.READ=
P.SWB =
[]

[

OO0
O

REWIND
011014
RMCHBE
= 000167

B
B
RN

014242
002320

(Y B ~2121~2121212]12121]

057324

NXRERR
NXRX
NXTU
021352
OFL
= 000100

NXMTST

h-]
0

NXMFLG

]

(2121

013126
LOOPCO
003162
LOOPFL
= 000010
LOT
002110
LSACP
002036
LSAPT
021702

TSV6 - PARAMETER CODING MACRO Y05.02

Monday 16-Sep-85 10:39

Page 85-3

SEQ 0254

Symbol table

RMCHEN=
RMMSCBe
RMMSGE=
RMPKTB=
RMPKTE=
RMR
=

000200
000215
000234
000201
000210
010000

S$1.I1R=
S1.I2R=
S1.PAR=
S2.ATI=
S2.87I=
S2.0IM=

SC
=
SCE
=
SCHERR
SCHE
SCMENU
SDELAY
SELASC
SELOAT=
SEL2 =
SETMAP

100000
020000
005300
005013
100310
010660
017724
000004
000002
017316

S2.INR= 000020
$2.0UT= 000040
S2.UND= 000003
TBLEND= 003062 G
TCOASC 006476
TCOCOD 006676
TEMPL
003116 G
TEMP2
003120 G
TERCLS= 000016
TESTNO= 000014

RWPACK

TV
SFFMSG
SFHERR

011110

021436
012102 G
003705
SFIERR 003652
SFIMSG 012034 G
SFPTBL 002166 G
SIFLAG 003154 G
SIMSG
011766
SKIPT
003400
SOFINI 015774 G
SPACE
010466 G
SPM1
101402
SPM4
101432
SPM6
101462
SPH7
101512
SRO
= 177572
SR1
= 177574
SR2
= 177576
SR
= 172516
SSR__
= 000200
STATCO 012412
SVCGBL= 000000
SVCINS= 000000
SVCSUB= 000001
SVCTAG= 000000
SVCTST= 000001
S6LSYM= 010000
$0.1ID08= 000010
$0.IF8= 000002
S0.IFP= 000001
SO.ILD=
=
S0.IRD=
S0.IRW=
S$0.ISP=
S1.ICE=
S$1.IEO0=
S1.IFM=
S1.IHE=
$1.II0=

000020
000040
000100
000004
000200
002000
010000
001000
000400
004000

020000
040000
100000
000010
000004
000200

S2.ILW= 000100

TEXASC
TFCASC
TIMEXP
TIMSGO
TINERR
TMPBFR
TNAM
TPRISA
TPSAVZ2
TRANST
TSBA
=
TSBAH =
7508
=
TSDBH =
TSFCOD
TSREJ =
TSSDEF
TSSR =
TSSRBI
TSSRFO
TSSRH =
TSSX
TSTBLK
TSTCNT
TSTEND
TSTFLA
TSTLOO
TSTPTR
TSTSET
TST12I
TSTISI
TST141
TST1SI
TST161
TST171
TST18I
TST19I
TST20I
TST3I9I
TST40I

006435
006537
015552 G
015600
012021
002632 G
016704
100306
071002
002166 G
000000 G
000001 G
000000 G
000001 G
007236
000006
006606
000002 G
003502 G
006415
000003 G
004020
002752 G
002214 G
016720
002314 G
016456 G
002316 G
0163510 G
030020
023432
025571
O
3
036212
046156
050546
057532
064532
077534
101222

TSV
TSV3
TSvae
TSVS
TSV6
TTIBFR=

002000 G
002176 G
021076 G
022776 G
101240 G
177562 G

T11
T12
T12B8FR
T128KG
T12BLK
T12CHA

074054 G
077564 G
027632
030307
027664
031300

T158F2
715850
715851
T1SDAT
T1SLOO
T1SPAC

033430
033430
033431
032730
031374
032720

TTION
TTION2
TTIVEC=
TVECSA
TVSAVZ
TSARGC=
T4CODE=
TSERRN=
T4EXCP=
T4FLAG=

100302
070776
000060 G
100304
071000
000001
001130
002261
000000
000040

T12CON
T12DAT
T120PR
T12GET
T12HIA
T12KT
T12L0OA
T12L00
T12MSG
T12NIN

030666
027620
030466
030046
027652
027660
027654
025776
030211
030375

T1SRES
TISRT2
T15SSR
71552
T1SS3
T16BEN
T16BFR
T168FS
T16CLR
T16DAT

034022
034074
033436
033432
033434
037610
037562
037602
037426
037550

T$4PRO=
T$$RPT=
T44SEG=
T$$SO0F=
T$$SRV=
T44SUB=
T$8SW =
TS$$TES=
T1
T10

010027
010035
010000
010101
010026
010074
010001
010077
022776 G
066216 G

T14PK2
T14RES
T14RST
T14SS5R
T14TS8
T142RE
T15AM2
T15AM3
T15AM4
T1SBFR

025130
025636
025674
025323
025505
023226
033512
033613
033715
032742

T17EXP
T17EXS
T17L00
T17THSK
TA7TPAC
T17PK2
TI7RFI
T17RSF
T17SET
T17SNP

045732
045752
037754
045726
047550
047720
047456
047354
047516
047376

TTICSR= 177560 G

T$GMAN=
T$HILI=
TSLAST=
TSLOLI=
TSLSYM=
TSLTNO=
TENEST=
TENSO =
T4NS1 =
TEINS2 =
TENS3 =
T$PTNU=
TESAVL=
T4SEGL=
T4SEKO=
T4SUBN=
T$TAGL=
T4TAGN=
T$TEMP=
T¢TEST=
T4TSTH=
T47STS=
T$$AU =
T48AUT=
T$$CLE=
T440U =
T$8HAR=
T4¢HW =
T4$INI=
T44MSG=

000000
000776
000001
000000
010000
000014
177777
000000
000005
000002
000003
000000
177777
177777
010000
000000
177777
010102
000000
000014
177777
000001
010031
010033
010034
010032
010100
010000
010030
010025

T12CKR

T12NXM
T12PAC
T12PAR
T12SET
T12SWR
T1278E
T12WRT
T121L0
7122L0
T7123L0
T7124L0
T124TS
T138FR
T13DAT
T13L0OO
T13MEM
T13NBA
T13PAC
T13RES
T13SSR
T14BFR
714850
7148S1
7148S2
T140AT
T140TA
T14L00
T14NBA
T14NIN
T14PAC

031060 G

030557
027610
027656
031236
031170
030016
030122
026110
026444
026664
027306
027662
023412
023400
023014
023505
023544
02337C
023706
023617
024526
024520
024521
024522
024520
025140
023774
025152
025413
024510

T1SPK2

716072
716001
716028
716053
716078
T16LEN
T16L00
T16PAC
Ti6PK2
T16REJ
T16RES
T16SEX
T16SRD
T16SSR
T7167SB
T16701
716728
716753
716778
T16WMI
71625S
7163SS
T17BEN
T17BFR
T178FS
T17CLE
T17CLR
T170AT
T170T2
T17EXE

033420

037620
036202
036204
036206
036210
036532
034152
037540
037610
036644
037360
037520
037452
036262
036430
036761
037060
037160
037260
037472
036317
036363
047712
047572
047612
047476
047310
047560
047730
046054

TSv6 - PARAMETER CODING MACRO Y05.02

Monday 16-Sep-85 10:39

Page 85-4

SEQ 0255

Sysbol teble
T17SRO
TJ17SSR
T17WF0
T17WF1
T171CH
T172CH
T7172SS

047334

T19uWCTY
TI19WF1
M
T19WF
T19WST
T191CH
T7192CH
7192SS
T193CH
T193SS
T194SS

061472
061436
061512
061073

T38FLG
13.1

003150 G
0235776
026336
026626
027124
074005
074024

076333
076330
077376
076574
077405
076640
077201
075560

076260
076310
076320
077476

&GNy

(112}

OVNBGINE

TJ19RST
T19SET
T19SEX
T19SNP
T19SRD
T19SSR

061330
057573

.107=
025750 G

077035

.IS5R=

XST4
XS080T=
XSOEQT=
XSOIE =
XSOILA=
XSOILC»
XSOLET=
XSOMOT»
=
XSONEF
XSOONL
=
XSOPED=
XSORLL
=
XSORLS=
XSOTMK=
XSOVCK=
XSOWLE=
XSOWLK=
XXCOoMM
XS$ALWA=
X$FALS=
X$OFFS=
X$TRUE=
X1.COR=
X1.0LT= 100000
X1.M82X1.RBP=
X1.SPAs=
X1.UNC=
X2.8UF
=
X2.EXT=
X2 .0PMe
X2 .RCE=
X2.REVe
X2.SPA=
X2.UNI=
X2 .WCF =
X3.0CK=

(21212121

077472

077324
077252
076326
077111
075570
076756
076322
076703
031344
031374
031700
032272
101155
034134
034152
035232
037726

TSV6 - PARAMETER CODING MACRO Y05.02

Mondey 16-Sep-85 10:39

Page 85-5

SEQ 0256

Symbol table
X3 .REV= 000040
X3.RI8= 000001
X3.SPA= 000200

X3.M8Z2= 000006
X3.MDE= 177400
X3.0PI= 000100

102004
000000
Errors detected:
.

ABS.

sss

Work

000
001
0

X3.TRF= 000020
X4 .HSP= 100000

(RW,I,GBL,ABS,0VR)
(RW,I,LCL,REL,.CON)

Assembler statistics

file

reads:

file writes:

Size of work file:
Size of core pool:
Operating
system:

396
36 1
32288 Words
( 127 Peges)
19714 dords
( 7S P
)
RSX-11M/PLUS (Under

Elapsed time: 00:12:41.72
cvt
+CVTS8D,=SVC/ML. ,CVTSBD

.exX/VHS)

X4 .M8Z= 017400
X4 .RCE= 040000

X4 .TSH= 020000
. WRC= 000377
X4