Digital PDFs

AH-T094B-MC

April 1985

181 pages

Original

8.3MB

view download

OCR Version

7.2MB

view download

Document:	CVTSAB0 TSV05 TSV05 CTRL LT1 APR 1985 bw
Order Number:	AH-T094B-MC
Revision:	000
Pages:	181
Original Filename:	CVTSAB0__TSV05__TSV05_CTRL_LT1__AH-T094B-MC__APR_1985_bw.pdf

OCR Text

FICHE 01 OF 01

sB!
USER DOCUMENTATION

MACRO M1113

14 JUUN-84 15:15

CEQ 0001

.REM

IDENTIFICATION
PRODUCT

ID:

AC-T0938-MC

PRODUCT TITLE:

CVYSABO TSVOS CTRL LT}

DECO/DEPO:

1.0

DEPARTMENT ;

COMPUTER SPECIAL SYSTEMS/PPG

DATE:

JUNE 4,

1984

THE INFORMATION IN THIS DOCUMENT IS

SUBJECT

CHANGE WITHOUT

NOTICE AND SHMOULD NOT BE CONSTRUED AS A COMMITMENT 8Y DIGITAL
EQUIPMENT CORPORATION.
OIGITAL EQUIPMENT CORPORATION ASSUMES NO
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
NO RESPONSIBILITY IS ASSUMED FOR
SOF TWARE ON EQUIPMENT THAT IS NOT
AFFILIATED COMPANIES.

THE USE
SUPPLIED

OR
BY

RELIABILITY
OF
OIGITAL
OR ITS

1984 BY DIGITAL EQUIPHMENT CORPORATION

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION:

OIGITAL
0€eC

POP
DECUS

UNIBUS
DECTAPE

MASSBUS

MACRO M1113

SEQ 0002

VBWNELO
~NOWVBWNFDO

NNNVNNNNONIN

ASSUMP TIONS

OPERATING INSTRUC IONS
COMMANDS
SWITCHES

FLAGS

HARDWARE QUESTIONS

SOF TWARE QUESTIONS
EXTENDED P-TABLE DIALOGUE
QUICK STARTUP PROCEDURE

SYSTEM REQUIREMENTS
RELATED DOCUMENTS AND STANDARDS
OIAGNOSTIC MIERARCHY PREREQUISITES

ERROR INFORMATION

GENERAL INFORMATION

PROGRAM ABSTRACT

PERFORMANCE AND PROGHESS REPORTS

0w
O
~

CONTENTS

DEVICE INFORMATION TABLES

e e s et o pe

TABLE OF

TEST SUMMARIES

USER DOCUMENTATION

14-AN-84 15:15

MAINTENANCE HISTORY

D1
USER DGCUMENTATION

MACRO M1113

14-JUN-84

15:15

1.0

GENERAL INFORMATION

1.1

PROGRAM ABSTRACT

SEQ 0003

THLS IS A LSI-11 RESIDENT DIAGNOSTIC WHICH CHECKS THE FUNCTIONALITY
07
A TSVOS MAGTAPE SUBSYSTEM WMILE CONNECTED TO A LSI-11/23 SYSTEM

(QBUS).

THE PROGRAM PROVIDES ERROR

MESSAGES

FUNCTIONS THAT AID IN THE REPAIR OF THE DEVICE.

ELEVEN TEST WHICH ARE EXECUTED IN SEQUENCE.

WMICH

IDENTIFY

FAILING

TMIS DIAGNOSTIC CONSIST OF

THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC

RUNTIME SERVICES SOFTWARE (SUPERVISOR).

THESE SERVICES PROVIDE

THE INTERFACE TO THE OPERATOR AND TO THE SOF TWARE ENVIRONMENT.
THIS PROGRAM CAN BE USED WITH XXDP+., ACT, APT, SLIDE AND PAPER
TAPE.
FOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES, REFER

TO THE XXDP. USER'S MANUAL.

THERE IS A BRIEF DESCRIPTION OF

THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT.

1.2

SYSTEM REQUIREMENTS

LSI-11 PROCESSOR AND MEMORY

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

CONSOLE TERMINAL

POP-11 DIAGNOSTIC SUPERVISOR (HSAAA.SYS VERSION 34 OR LATER)
PUP-11 DIAGNOSTIC LOADER/MONITOR (XXDP.)
1.3

RELATED DOCUMENTS AND STANDAROS

DIGITAL EQUIPMENT CORPORATION DOCUMENTS:

1.
2.

CHQUS XXDP+

OATE:

USERS GUIDE:

14 ALY 1980.

DOCUMENT

NUMBER AC-F348E-MC

TSVOS TRANSPORT SUBSYSTEM USER'S GUIDE: OOCUMENT NUMBER EK-TSVO05-UG-001

OATE:

AUGUST 1983

TSVOS5S TRANSPORT SUBSYSTEM TECHNICAL MANUAL; DOCUMENT NUMBER EK-TSV0S5-TM-001
DATE: AUGUST 1983

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

1.4

DIAGNOSTIC HIERARCY PREREQUISITES

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

FUNCTIONAL DIAGNOSTIC LOADER/MONITOR (XXDP«)

USER DOCUMENTATION

MACRO M1113

1.5

14-JUN 84

15:15

SEQ 0004

ASSUMPTIONS

ALL HARDWARE EXCEPT THE HARDWARE UNDER TEST IS ASSUMED TO WOPK

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

2.0

IS A KNOWN GOOD REEL

OPERATING INSTRUCTIONS

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

2.1

COMMANDS

THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES

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

COMMAND

EFFECT

START
RESTART
CONTINUE

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

PROCEED
EXIT

ADD

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

ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE

CONSIDERED TO BE ACTIVE AT START TIME

DROP

DEACTIVATE A UNIT

DISPLAY

TYPE A LIST OF ALL DEVICE INFORMATION

PRINT
FLAGS

ZFLAGS

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

CLEAR ALL FLAGS (SEE SECTION 2.3)

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

2.1.1

OPERATOR COMMANDS

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

CHQUS XXDP.+ USERS GUIDE,DOCUMENT

NUMBER AC-F348E-MC.

BOOT THE DIAGNOSTIC MEDIA
.R VISA??

DIAG. RUN-TIME SERVICES REV 0.
CVTSA-A-0

s28sTSVOS LOGIC DIAGNOSTICesss
ug‘I!T IS TSvOS
>

APR 79

THE USER ENTRY IS IN QUOTES.

USER DOCUMENTATION

MACRO M1113

e.2

14-JUN-84

15:15

SEQ 0005

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 "DODOO' .
SWITCH

EFFECT

/TESTS:LIST

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

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

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

/PASS : D000
/FLAGS :FLGS

/€0P : 0DD0DO
/UNITS:LIST

BE RUN.
ALL OTHER TESTS WILL NOT BE RUN,
EXECUTE ODDDO PASSES (DDODO = 1 TO 64000)
SET SPECIFIED FLAGS.

FLAGS ARE DESCRIBED

IN SECTION 2.3.
REPORT END OF PASS MESSAGE AFTER EVERY
DDODD PASSES ONLY.
(DDODD = 1 TO 640C0)
TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED
IN THE LIST.,
LIST EXAMPLE - /UNITS:0:5:10-12
USE UNITS 0,5,10,11,12 (UNIT NUMBERS = 0-63)

EXAMPLE OF SWITCH USAGE
:

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

1) TESTS 1 THROUGH 5 WILL 8E

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,

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

TESTS

PASS

FLAGS

EOP

UNITS

G1
USER DOCUMENTATION

MACRG M1113

2.3

14-JUN-84

15:15

SEQ 0006

FLAGS

FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS

LOOPING ON ERROR.
ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH.
FLAGS

ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE
FLAG SWITCH.
THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR
ALL FLAGS.
WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS,

NO COMMANDS AFFECT THE STATE OF THE FLAGS;
THEY REMAIN SET OR
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH.
FLAG

EFFECT

HOE

HALT ON ERROR - CONTROL IS RETURNED 70

LOE
TERe

LOOP ON ERROR
INHIBIT ALL ERROR REPORTS

IBR»

IXEs
PRI
PNT

80¢€
UAM
ISR
IDR

ADR
Lov

RUNTIME SERVICES COMMAND MOOE

INHIBIT ALL ERROR REPORTS EXCEPT

FIRST LEVEL

(FIRST LEVEL CONTAINS

ERROR TYPE, NUMBER, PC, TEST AND UNIT)
INHIBIT EXTENDED ERROR REPORTS ( THOSE
CALLED BY PRINTX MACRO'S)
DIRECT MESSAGES TO LINE PRINTER
PRINT TEST NUMBER AS TEST EXECUTES

“BELL” ON ERROR
UNATTENDED MODE (NO MANUAL INTERVENTION)
INHIBIT STATISTICAL REPORTS (DOES NOT

APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT
STATISTICAL REPORTING)

I*4IBIT PROGRAM DROPPING OF UNITS

EXECUTE AUTODROP COOE

LOOP ON TEST

sERROR MESSAGES ARt DESCRIBED

IN SECTION

3.1

SEE THE XXDPe+ 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, INHIBIT ERROR REPORTS
AND TYPE A “BELL” ON ERROR, YOU MAY USE THE FOLLOWING STRING:
/FLAGS :LOE : IER:BOE

USER DOCUMENTATION

MACRO M1113

2.4

14-JUN-84

15:15

SE@ 0007

HARDWARE QUESTIONS

WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT
THE USER FOR HARDWARE INFORMATION B8Y TYPING "CHANGE MM (L) 7"
YOU MUST ANSWER “Y~ AFTER A START COMMAND UNLESS THE HARDWARE

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

AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO
THE
DIAGNOSTIC
SUPERVISOR),
THE PROGRAM WILL ISSUE THE “CHANGE HW?“ QUESTION TO ASK IF
THE HARDWARE PARAMETERS ARE TU BE CHANGED (BY

ON A

“N” (NO) RESPONSE TN THE

THE OPERATOR).

“CHANGE HW?" QUESTION,

RUN USING THE DEFAULT VALUES FOR ALL QUESTIONS.
TSBA/TSDB

172520,

VECTOR

THE DIAGNOSTIC WILL

THE DEFAULT

ADDRESS AND VECTOR ARE:

= 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 PRESFNT, LOCATED TO THE LEFT
OF
THE
QUESTION
HMARK
IS
THE

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

YES.

"N"

(D)

UNIT O

DEVICE ADDRESS
VECTOR (0) 224

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

<ENTER ADDRESS OF
VECTOR>»

THE ADDRESS AND VECTOR QUESTIONS WILL BE
UNITS
(CONTROLLERS) SPECIFIED IN THE “0
NUMBERS ARE ASSIGNED IN ORDER, BEGINNING
SELECTED FOR TESTING AS FOLLOWS:
UP TO 4 TSVOS CONTROLLERS PER LSI-11 AND

INTERRUPT

ASKED FOR EACH OF THE NUMBER OF
UNITS?" QUESTION.
LOGICAL UNIT
AT O.
UP TO FOUR UNITS CAN BE

UP TO 2 DRIVES PER CONTROLLER

MACRO M1113

2.5

—

USER DOCUMENTATION

14 JUN-84 15:15

SEQ 0008

SOFTWARE QUESTIONS

AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART

OR CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOF TWARE

PARAMETERS.

THESE PARAMETERS WILL GOVERN SOME OIAGNOSTIC SPECIFIC
OPERATION MODES.
YOU WILL BE PROMPTED BY "CHANGE SW (L) ?*
IF YOU WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING
“y*,

THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED

IN THE NEXT PARAGRAPH(S).

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

0OR

CONTINUE.

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

<TYPE “Y” TO PREVENT MATIPLE
JTERATIONS OF CERTAIN TESTS.

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

ONLY QUICK-RUNNING LOGIC
TESTS USE MALTIPLE

ITERATIONS. >

2.6

EXTENDED P-TABLE DIALUGUE

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 7O BE TESTED.

IF YOU HAVE A MULTIPLEXED DEVICE SUCH AS

A MASS STORAGE CONTROLLER WITH SEVERAL ODRIVES OR A COMMUNICATION

DEVICE WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST OF
THE ANSWERS ARE REPETITIOUS.

J1
USER DOCUMENTATION

TmLN0 MI113

14-JUN-84 15:15

SEQ@ 0009

T0O ILLUSTRATE A MORE EFFICIENT METHOD, SUPPOSE YQU ARE TESTING
A DEVICE, THE XY1l.
SUPPJSE THIS DEVICE CONSISTS OF
A CONTROL MOOULE WITH EIGHT UNITS (SUB-DEVICES) ATTACHED TO IT.
THESE UNITS ARE DESCRIBED BY THE OCTAL NUMBERS O THROUGH 7.
THERE

IS ONE MHARDWARE PARAMETER THAT CAN VARY AMONG UNITS CALLED THE
BELOW IS A SIMPLE WAY
THIS Q-FACTOR MAY BE O OR 1.
Q-FACTOR.
f0O BUILD A TABLE FOR ONE XY11 WITH EIGHT UNITS.
@ UNITS (D)
UNIT

8<CR>

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

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

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

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

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

UNIT 6

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

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

1<CR>

UNIT 8
CSR ADDRESS (0)

160000<CR>
7<«CR>
SUB-DEVICE @ (0) 2
<«CR>»
Q@-FACTCR (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 NOY VARY SIGNIFICANTLY FROM UNIT TO UNIT.
NOT VERY EFFICIENT,

THE PROCEDURE SHOWN IS

USER DOCUMENTATION

MACRO M1113

14 JUN 84

15:15

5€Q 0010

THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWE VER.
LET'S BUILD THE SAME TABLE USING THE MU TIPLE SPECIFICATION
FEATURE.

@ UNITS (D)

UNIT

8<CR>

160000<CR~
CSR ADDRESS (0) ?
SUB-DEVICE @ (0) ?
O0,1<«CR>
1,0<CR>
Q-FACTOR (0) 0 7
CSR ADDRESS (0) ?
1600M0<(CR>
SUB-DEVICE & (0) ?
2-5<CR>
0<«CR>
Q@-FACTOR (0) 0 ?
UNIT 7
CSR ADORESS (0)

160000<CR>
?
6,7<CR>
SUB-DEVICE @ (0) ?
Q-FACTOR (0) 0 72
1<CR>
AS YOU CAN SEE IN THE ABOVE DJALOGUE,

THE RUNTIME SERVICES WILL

FROM THE FIRST NUMBER TO THE SECOND.

1IN THIS CASE,

BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY
ONE PASS THROUGH THE QUESTIONS.
IN THE FIRST PASS, TWO ENTRIES
ARE BUILT SINCE TWO SUB-DEVICES AND Q-FACTORS WERE SPECIFIED.
THE
SERVICES ASSUME THAT THE CSR ADORESS IS 160000 FOR BOTH SINCE IT
WAS SPECIFIED ONLY ONCE.
IN THE SECOND PASS, FOUR ENTRIES WERE
BJILT.
THIS IS BECAUSE FOUR SUB-DEVICES WERE SPECIFIED.
THE
v-% CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA
SUB-DEVICES

2. 3, 4 AND 5 WERE SPECIFIED.
(IF THE SUB-DEVICE WERE SPECIFIED
BY ADORESSES, THE INCREMENT WOULD BE 8Y 2 SINCE ADORESSES MUST
BE ON AN EVEN BOUNDARY.) THE CSR ADDRESSES AND Q-FACYURS FOR
THE FOUR ENTRIES ARE ASSUMED TO BE 160000 AND O RESPECTIVELY

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

THE LAST TWO UNITS ARE

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

8<CR>

UNIT 1

160000<CR>
CSR ADDRESS (0) ?
O0-7<CR>
SUB-DEVICE # (0) ?
AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING
A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY.

USER DOCUMENTATION

MACRO M1113

14 JUUN 84

15:15

SEQ 0011

(XXDP.)

2.7 QUICK START-uUP PROCEDURE
TO START-UP

THIS PROGRAM:

BOOT XXDP.

TYPE

"R NAME", WHERE NAME IS THE NAME OF THE BIN OR BIC

TYPE

“START'

ANSWER

ANSMER ALL

THE HARDWARE QUESTIONS

ANSMER THE

“CHANGE SW“ QUESTION WITH “N”

FILE FOR THIS PROGRAM

THE

~“CHANGE tW* QUESTION WITH

"Y'

WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY

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

THE

THESE DEFAWTS

3 O ERROR INFORMATION
3

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

ALMAYS PRINTED UNLESS THE

THE GENERAL ERROR MESSAGE

“IER* FLAG IS SET (SECTION 2.3).

IS OF

NAMF
TYPE
NUMBER
ERROR MESSAGE

THE FORM:

ON UNIT NUMBER

LMHERE; NAME = DIAGNOSTIC NAME

TYPE = ERROR TYPE (SYS FATAL,
NUMBER = ERROR NUMBER

TST NUMBER PC:XXXXXX

DEV FATAL,

WARD OR SOFT)

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

TST NMUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED

PC:XXXXXX = ADORESS OF ERROR MESSAGE CALL

BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADO.TIONAL
INFORMATION ABOUT THE ERROR.

THESE ARE ALMWAYS PRINTEPR UNLESS

THE ~IER” OR “IBR" FLAGS ARE SET (SECTION 2.3)
T+IsE 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 ALWAYS
PRINTED UMLESS THE

"IER~,

~IBR” OR

“IXE“ FLAGS ARE SET (SECTION 2.3).

THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR

MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES.

'Ml‘

14 JUN 84 15:15

MACRC TM1113

SEQ 0012

3.2 SPECIFIC ERROR MESSAGES

BELOW ARE SAMPLE ERROR MESSAGES. EACH ERROR MESSAGE
OF ERRORS DETECTED BY THIS OIAGNOSTIC.
ERROR MESSAGE EXAMPLE

REPRESENTS DIFFERENT TYPES

THIS ERROR IS INDICATIVE OF AN INCORRECT REGISTER OR STATUS WORD RETURNED

T0 THE DIAGNOSTIC.

THME FIRST PART DEFINES THE TEST FUNCTION AND UNIT THAT FAILED.

THE SE-OND PARY PRIOVIDES THE REGISTER BITS AND THEIR MNEMONICS FOR THE
INCORRECT REGISTER OR STATUS WORDS. THE THIRD PART IS THE EXPECTED AND RECEIVED
DATA

1ST: 016 FIFO EXERCISER TES?
CVISA MRD ERR 01610 ON UNIT 00 TST 016 SUB 002 PC: 040624
FIFO STATUS (IN WORD 9) INCORRECT AFTER WRITE FIFO
TAPE BUS SIGNALS IN WORD 68:

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

IEOT
«<12>
IIDENT<11>
ICER
«10>

- DESIGNATOR

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

IROY<6>
JIOML<5>
ILOP<4>

<«BIT

o3 EXPO:

EXPO:
€xXPO:
:
EXPD:
EXPD:
EXPD:

000010

RECY:

000000
000000

000010

RECY: 000000
RECV: 000000
RECY: 000000
RECVYV: 000000
RECVYV: 070217
WECV: 000034

TAPE BUS SIGINALS IN WORD #9:
INROY<4>
OUTROY<5>
JLW<6>
DATMIS<7>
MESSAGF BUFFER ADDRESS = 047352
MESSAGE BUFFER CONTENTS:
00 EXPD: 100020 RECVY: 100020
XOR:
01 EXPD: 000012
RECV: 000012
XOR:
02 EXPD: 000000
RECV: 020000
XOR:

000000
070217
000074

IRWD<2>
J%Bv«1>
IFPT<O>

XOR:

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

ERROR MESSAGE EXAMPLE 2
THIS ERROR SMOWS A FATAL FUNCTION ERROR FROM THE

TAPE DRIVE,IN THIS

INSTANCE A UNRECOVERABLE ERROR OCCURED WHICH INDICATES THAT THE
CONTROLLER MAY BE
DEFECTIVE
VISA HRD ERR 00159 ON UNIT 00 TST 001 SUB 005 PC:

(]

USER DOCUMENTATION

TZSR NMOT CORRECY AFTER SPACE RECORDS COMMAND
TSSR = 100214
TSSR BITS SET:

SC,SSR

PACKET

TERMINATION CLASS CODE
ADORESS

PACKEY WORD ¢
PACKEY WORC ¢
PACKEY WORD ¢
PACKET WORC ¢

026420

- 140010
- 000010
= 00000C
- 0000c4

UNRECOVERABLE

ERKOR

026202

JOER DOC JMENTAR® 7TM

MACRC 1518

16 AMN-84 15:15

SEQ 001°?

ERROR MESSAGE EXArPLE

TH1S ERROR SMOWS THAT Te€ MOTION BIT DID NOT GETM SET WMILE DOING A
REWIND WITH EXTENDED FEAURES MODE ENABLED.
Cv1S w0 ERR 00121 ON UNIT OO YST 001 SUB 002 P°: 023306
0T BIY (XSTO) NOT SET DURING REWIND (EXTENDED FEATURES TMODE)
ExPD

O0L0312 RECY

000112

XOR

000200

8 O »CRFORMANCE ANL PROGRESS REPORTS

AT THE EMD OF EACH PASS, TeE PASS COUNT IS GIVEN ALONG WITH THE
TOTAL NSOER OF ERRORS REPORTED SINCE THE DIAGMOSTIC wAS STARTED.
THE ~EOP- SWITOM CAN BE USED TC CONTROL 0w OF TEN THE END
OF PASS MESSAGE IS PRINTED
SECTION 2 2 DESCWIBES SWITCHES
SUCCESSFUL RUN EXA®PLE
DR>STA/FLA-PNT

UNITS
UNIT

(D)

(LSI

i1,

~OE

DEVICE ADDRESS
VECTOR (0) 224

CHANGE SW (L)

(0)
?

172520 ? <«(CR»

<«(CPR>

? N<CR>

THE ABOVE COMMAND WILL
START
THE
OIAGNOSTIC.
THE
COMMAND
HAS
TWC
SWITCHES
ON
WHICH ARE
“PRINT EACH TEST NBR AS EXCCUTED
AND “MALT ON
TST:
TST:
TST:
TST:
TST:
TST:
TST:
TST:
TST:
TST:
TST:

001
002
003
004
005
006
007
008
009
010
011

INITIALIZE ¢l
WRAP DATA HILH BYTE TEST
WRAP DATA LOW BYTE TEST
RAM TEST
INITIALIZE
2 TEST
COMMAND R€ JECT TESTY
WRITE CHARACTREISTICS TEST
VOLUME CHECK
COMPLETION INTERRUPT TEST
BASIC PACKET PROTOLOL TEST
NON-TAPE-MOTION COMMANOS TEST

O ERRORS

NOTE:

THE DIAGNOSTIC WILL RUN CONTINUOSLY UNLESS R PASS NUMBER LIMIT HAS BEEN
SPECIFIED WITH THE

' /PASS:" SWITCH

USER DOCUMENTATION

MACRO M1113

14 JUN-84

15:15

SEU 0014

PROGRAM RUN TIMES

THE AVERAGE RUN TIMES OF THE PROGRAM ARE LISTED BELOW.THESE FIGURES
T0 BE USED AS A GUIDE.
THME
TIMING WAS DONE ON A LSI-11

ARE

THE PROGRAM RUNS IN TWO MODES;

THE

PROCESSOR WITH A LAS4 CONSCLE.

NO ITERATIONS AND DEFAULT MODE.

NO ITERATIONS MODE, EACH TEST IS RUN ONCE, WITH NO ITERATIONS.
IN THE
DEFAMALT MODE EACH TEST IS REPEATED 8Y THE NUMBER OF TIMES INDICATED BY
THME

JITERATION

COUNT.

NO ITERATIONS MODE IS SELECTED B8Y ANSWERING THE

INHIBIT ITERATIONS QUESTION WITH A Y~ (YES).
TEST

N/1

NUMBER

SECS.

4
3

1
1

ITER

OEF

SECS

SECS.

10
8

9
7

120

475

450

S
7
8

20
1
1

140

20
10
2

135

0
9
1

THE TIMES REQUIRED TO QUN TESTS 1 THROUGH 12 IN ONE COMMAND:

Q.v.
OEFALT

1 hIN S7 SECONDS
12 MINS

USER DOCUMENTATION

MACRO M1113

JUUN 84

15:15

SEQ 0015

5.0 DEVICE INFORMATION TABLES
WHENEVER THE PROGRAM IS STARTED, VIA THE STA(RT) COMMAND,
THE SUPERVISOR REQUESTS THE FOLLOWING P-TABLES PARAMETER
S:
CHANGE
CHANGE
MW (L)
® UNITHS

UNIT

(D)

<ENTER

THE MABER OF

PRESENT

M7196 CONTROLLERS

TO BE TESTED»

OEVICE ADORESS
VECTOR

(0)

(Q) 224

172520

? <ENTER THE ADORESS OF
TSBA/TSDB REGISTER>

<ENTER ADORESS OF

VECTOR>

THE

INTERRUPT

THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF

THE NUMBER OF

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

IN ADDITION, ON A START, RESTART OR CONTINUE THE SUPERVISOR
FF?E&GEQS‘;S CHANGES TO THE SOF TWARE OPERATING PARAMETERS, AS
L

CHANGE SW (L)
INHIBIT

ITERATIONS (L) N ?

MACRO M1113

USER DOCUMENTATION

6.0
TEST

14-UUN-84

15:15

SEQ 0016

TEST SUMMARIES

BUS RESET TEST

THIS TEST VERIFIES THAT THE M7196 MOOWE'S DEVICE REGISTERS ARE

ACCESSIBLE ON THE BUS (SUBTEST 1) AND THEN CHECKS THAT THE
BUILT-IN INITIALIZATION SELF-TEST MICRODIAGNOSTIC DID NOT FINO
ANY BASIC PROBLEMS IN THE MOODULE.
AREAS OF LOGIC TESTED BY .HE
SELF-TEST SEQUENCE ARE AS FOLLOWS:
ROM AND PIPELINE REGISTER,
SEQUENCER, INTERNAL BUSES, 2901 MICROPROCESSOR, AND, RAM.
TMIS
TEST INITIALIZES THE CONTROLLER B8Y ISSUING THE BUS INIT SIGNAL

VIA A RESET INSTRUCTION, OR BY WRITING INTO THE TSSR REGISTER,
WAITS A PERIOD OF TIME (TO ALLOW THE CONTROLLER’S INITIALIZATION

MICRODIAGNOSTIC SEQUENCE TO BE COMPLETED), AND THEN CHECKS THE

CONTENTS OF THE TSSR REGISTER,
SUCCESSFUL INITIALIZATION IS
INDICATED BY SUBSYSTEM READY (SSR) AND NEED BUFFER ADDRESS (NBA)
BITS BEING SET (1) AND ALL OTHER BITS (EXCEPT A17 AND A16 AND
OFL, WHICH ARE IGNORED FOR THIS TEST) BEING CLEAR (0).
IF THE
CONTENTS OF TSSR ARE NOT AS EXPECTED, AN ERROR REPORT IS ISSUED
LISTING THE EXPECTED DATA, ACTUAL DATA, AND THE DISCREPANCIES.
THE ERROR REPORT ANALYZES THE TSSR CONTENTS AND OISCERNS AND
REPORTS ONE OF THREE POSSIBILITIES:

TSSR CONTENTS ARE AMBIGUOUS (ANY OF BITS 11-14 ARE SET,
OR STATES OF SSR AND SC B8ITS DO NOT CORRESPOND TO THE
APPARENT ERROR CODE IN BITS 0-5):
INDICATES THAT THE
TSSR CONTENT CANNOT BE TRUSTED.
INDICATES A

CATASTROPHIC CONTROLLER MALFUNCTION.

THIS IS A FATAL

ERROR (EXECUTION IS ABORTED).
FIELDO ACTION WOWLD BE TO
REPLACE THE M7196.
IF THE M7196 ITSELF IS BEING

OEBUGGED, THE PROGRAM SHOWLD BE RESTARTED WITH LOOP ON

ERROR ENABLED IN ORDER TO PROBE FOR THE PROBLEM.

SSR
= 0, SC = O AND THE ERROR CODE IN BITS 0-S5 IS IN

THE RANGE 17-13:
THIS IS A FATAL ERROR.
THE ERROR
CODE IS DECODED AND THE APPROPRIATE DESCRIPTION GIVEN,
INDICATES THAT A SERIOUS PROBLEM EXISTS.

MACRO M1113

USER DOCUMENTATION
TEST

WRAP DATA

14-JUN-84 15:15
- HIGH BYTE

THIS TEST VERIFIES OPERATION OF
:

PART OF THE LSI-11 BUS INTERFACE SECTION OF THE M7196
PART OF THE INPUT FILE (TSDB HIGHM BYTE), PART
MOOULE:
OF THE OUTPUT FILE (TSSR HIGH RYTE AND TSBA, 80TM

BYTES), PART OF THE DCOOS TRANSCEIVER CIRCUITS (ADDRESS

DECODER, BDAL DRIVERS, HIGH BYTE OF INTERNAL DAL BUS
%VE&S;%E AND BASIC PROGRAMMED I/0 CONTROL SEQUENCES
L

PART OF 2901 MICROPROCESSOR ELEMENTS (Q-REGISTER,

Y AND SOURCE BUSES;

BASIC MICROPROGRAM SEQUENCES.

THE PROGRAM WRITES A TEST DATA BYTE INTO THE HIGH BYTE OF TSD8,
WAITS FOR THE SSR BIT IN TSSR TO SET, THEN CHECKS THE CONTENTS

OF BOTH TSBA AND TSSR.
THE MODWLE IS FUNCTIONING CORRECTLY IF
DATA WRITTEN APPEARS IN BOTH BYTES OF TSBA AND THE FINAL CONTENT
OF TSSR IS CORRECT (SAME AS AFTER INITIALIZATION EXCEPT FOR BITS
8 AND 9, WHICH SHOULD CONTAIN BITS 8 AND 9 OF THE DATA PATTERN
WRITTEN.
AN ERROR IS REPORTED AND A DESCRIPTIVE ANALYSIS GIVEN
IF A DISCREPANCY IN TSBA OR TSSR IS DETECTED.
THE ANALYSIS
LISTS LIKELY FALTY CANDIDATES FROM THE LOGIC ELEMENTS LISTED
THE TEST IS REPEATED FOR ALL COMBINATIONS OF TEST DATA
ABOVE.
BYTES (0-377 OCTAL).

SEQ 0017

e
MACRO M1113

USER DOCUMENTATION
TEST

WRAP DATA

14-UUN-84

15:15

- LOW BYTE

THIS TEST FURTHER VERIFIES OPERATION OF MANY OF THE SAME

ELEMENTS TESTED IN TEST 2, AND ADOITIONALLY VERIFIES:
1.

LOW BYTE OF THE TSDB INPUT FILE REGISTER,

LOW BYTE OF INTERNAL DAL BUS DRIVERS ON THE DCOO5

BASIC FUNCTIONING OF PARTS OF THE RAM,

TRANSCEIVER CIRCVITS,

THE PROGRAM WRITES A TEST DATA BYTE INTO THE LOW BYTE OF TSO8,
WAITS FOR THE SSR BIT IN TSSR TO SET, THEN CHECKS THE CONTENTS

OF BOTH TSBA AND TSSR.
THE MODULE IS FUNCTIONING CORRECTLY IF
DATA MRITTEN APPEARS IN BOTH BYTES OF TSBA AND THE FINAL CONTENT
OF TSSR IS CORRECT (SAME AS AFTER INITIALIZATION EXCEPT FOR BITS
8 AND 9, WMIC SHOULD CONTAIN BITS 8 AND 9 OF THE DATA PATTERN
WRITTEN.

AN ERROR IS REPORTED AND A DESCRIPTIVE ANALYSIS GIVEN

I¢ A DISCREPANCY IN TSBA OR TSSR IS DETECTED.
THE ANALYSIS
LISTS LIKELY FAULTY CANDIDATES FROM THE LOGIC ELEMENTS LISTED
ABOVE.
THE TEST IS REPEATED FOR ALL COMBINATIONS OF TEST DATA

BYTES (0-377 OCTAL).
TEST

4&:

RAM TEST

THIS TEST VERIFIES THAT ALL LOCATIONS OF THE RAM ON THE M7196

CAN PROPERLY STORE AND READ BACK ALL DATA PATTERNS, AND THAT
EACH RAM LOCATION IS UNIQUELY ADORESSED (I.E., THAT ONE AND ONLY
ONE LOCATION IS ACCESSED B8Y ANY PARTICULAR ADORESS). THE
BYPRODUCT OF THESE TESTS IS A VERIFICATION OF TWO REGISTERS IN
;Bio 2901 AND THE CAPABLITY OF THE 2901 TO CORRECTLY PERFORM AN

SEQ 0018

MACRO M1113

USER DOCUMENTATION

TEST

14-JUN-84 15:15

Ge
SEQ 0019

SECOND INITIALIZATION TEST

THIS TEST VERIFIES THE SAME ELEMENTS AS DIO INITIALIZATION TEST
#1 AND ALSO CHECKS THAT CERTAIN PARTS OF RAM IS CLEARED TO ZERO
AND THAT 2901 REGISTERS 10 AND 11 ARE ALSO CLEARED TO ZERO.
THIS IS A CONFIDENCE CHECK OF A PART OF THE SELF-TEST SEQUENCE

(I.E., THAT IT IS REALLY BEING EXECUTED).
FOR EACH OF TwO
SUBTESTS (ONE FOR IMITIALIZING VIA A BUS INIT, THE OTHER FOR
IgI;égLFIZIMS 8Y WRITING INTO THE TSSR), THE FOLLOWING SEQUENCE
I

ORMED

EACH RAM LOCATION AND 2901 REGISTERS 10 AND 11 ARE SET

TO ALL 1'S BY USING WRITES INTO THE TSD8 REGISTER (LOW

BYTE AND MAINTENANCE MOOE WORD WRITES).
2.

THE CONTROLLER IS INITIALIZED AND THE VARIOUS CHECKS ON
;EPERFTSSRDDESCRIBED IN INITIALIZATION TEST @1 ARE

#1'S (377 OCTAL) ARE WRITTEN INTO THE LOW BYTE OF TSD8,
WHICH SHOULD CAUSE RAM LOCATION O TO BE WRITTEN TO ALL
1'S SINCE 2901 REGISTERS 10 AND 11i, SPECIFYING THE RAM
ADDRESS, SHOULD BE O.
RAM LOCATION O IS VERIFIED BY
WRITING A WORD OF ZEROS INTO THE 1S08.
THE RESWLTING
LOW BYTE OF TSBA SHOULD CONTAIN ALL !'S.

THE ENTIRE RAM IS SCANNED.

LOCATION O SHOULD CONTAIN

ALL 1'S AND THE REMAINING LOCATIONS, EXLSPT FOR THE
MESSAGE BUFFER IMAGE AREA, SHOULD CONTAIi: O,
OISCREPANCIES ARE REPORTED.
AN ERROR AT THIS POINT IS
MOST LIKELY DUE TO A ROM, PIPELINE OR SEQUENCER PROBLEM
OR A TIMING PROBLEM.

MACRO M1113

USER DOCUMENTATION
TEST

14- UN-84

15:15

SEQ 0020

COMMAND REJECT
THIS TEST VERIFIES THAT ALL COMMANDS OTHER THAN WRITE

CHARACTERISTILS ARE REJZCTED OUE TO THE NEED BUFFER ADDRESS
(NBA) BIT BEING SET IN TSSR, AND THAT THE TSBA AND TSSR
REGISTERS ARE LEFT Iis THE PROPER STATE AFTER EACH COMMAND IS
REJECTED.
THIS TEST CHECXS MICROPROCESSOR SEQUENCING, BASIC
COMMAND DECODING AND DATI DMA HANDLING.
THIS TEST CONTAINS TWO
SUBTEST 1 SEQUENCES THROUGH ALL COMMAND WORLS (OTHER
SUBTESTS:
THAN WRITE CHARACTERISTICS) WITH THE INTERRUPT ENABLE (IE) BIT

CLEAR AND VERIFIES THAT AN INTERRUPT IS NOT GENERATED BY THE
REJECTED COMMAND;
SUBTEST 2 PERFORMS SIMILARLY TO SUBTEST 1 BUT
SEYS THE IE BIT IN EACH COMMAND WORD AND VERIFIES THAT AN
INTERRUPT IS GENERATED WHEN THE COMMAND IS REJECTED.
TEST

WRITE CHARACTERISTICS

THIS TEST VERIFIES BASIC OPERATION OF THE WRITE CHARACTERISTICS

COMMAND.
IT VERIFIES THAT THE COMMAND BLOCK AND CHARACTERISTICS
DATA BLOCK ARE FETCHED PROPERLY FROM CPU MEMORY, THE NEED BUFFER
ADDRESS (NBA) BIT IN TSSR IS HANDLED PROPERLY, AND THAT A PROPER
MESSAGE PACKETY IS STORED, WHERE APPROPRIATE.
THIS TEST DOES NOT
CHECK THAT THE VARIOUS FUNCTIONS ENABLED BY CHARACTERISTIC MODE
DATA BITS OPERATE PROPERLY;
THE FUNCTIONING OF THESE BITS IS
VERIFIED IN SUBSEQUENT TESTS.
ALL COMMANDS EXECUTED IN THIS
TEST HAVE THE INTERRUPT ENABLE (IE) BIT CLEARED TO ZERQO,

SO NO

INTERRUPTS SHOULD BE GENERATED.
HOMEVER, THE PROGRAM RUNS AT
PROCESSOR PRIORITY O, WITH THE INTERRUPT SERVICE ROUTINE SET WP

TO FLAG UNEXPECTED INTERRUPTS.
IF AN INTERRUPT OCCURS, A
PROBLEM EXISTS IN EITHER THE LSI-11 BUS INTERFACE SECTION OR IN
THE ROM OR PIPELINE.

TEST

VOLUME CHECK

THIS TEST VERIFIES THAT THE VOLUME CHECK (VCK) BIT, A FLAG HELD
WITHIN THE M7196 AND APPEARING IN XSTO, IS SET BY INITIALIZE AND

CLEARED BY EXECUTING A WRITE CHARACTERISTICS COMMAND WITH THE
CVvC BIT SET.
IT IS ALSO VERIFIED THAT A WRITE CHARACTERISTICS
COMMAND WITH THE CVC BIT CLEAR DOES NOT AFFECT THE STATE OF THE
VOLUME CHECK BIT.
THE ACTUAL FUNCTION OF VOLUME CHECK, THAT OF
PREVENTING OR ALLOWING A TAPE MOTION COMMAND DEPENDING UPON
WHETHER VOLUME CHECK IS SET OR CLEAR, IS NOT CHECKED BY THIS
TEST;
THIS FUNCTIONALITY IS CHECKED IN THE INDIVIOUAL TESTS OF
TAPE MOTION COMMANDS.

MACRO M1113

USER DOCUMENTATION
TEST

14-JUN-84

15:15

SEQ 0021

COMPLETION INTERRUPT

THIS TEST VERIFIES THAT AN INTERRUPT IS GENERATED AT

THE

COMPLETION OF THE WRITE CHARACTERISTICS COMMAND IF THE INTERRUPT
ENABLE (IE) BIT IN THE COMMAND HEADER WORD IS SET.
THIS TEST
CHECKS THE FUNCTIONING OF THE INTERRUPT LOGIC AND BASIC

PROCESSING OF

THE IE BIT.

THE SEQUENCES OF TEST 7 ARE REPEATED,

EXCEPT THAT THE INTERRUPT

SERVICE ROUTINE IS SET UP TO EXPECT INTERRUPTS AND EACH WRITE
CHARACTERISTICS COMMAND IS ISSUED WITH THE IE BIT SET (1).
IT
IS VERIFIED, WHERE APPROPRIATE, THAT THE IE STATUS BIT IN XSTO
OF ANY MESSAGE PACKET IS SET AND THAT -~ _UMPLETION INTERRUPT IS
GENERATED.
FINALLY, A SEQUENCE OF TW' CU*MANDS ARE ISSUED, THE
FIRST WITH IE=1 AND THE SECOND WITH If=0.

IT IS VERIFIED THAT

NO INTERRUPT IS GENERATED AFTER THE S.COND COMMAND AND THAT
1€ BIT IN XSTO IS O.
TEST

10: BASIC PACKET PROTOCOL
THIS TEST VERIFIES BASIC OPERATION

COMMAND,

THE FUNCTION OF THE ACK B.ii

THE MESSAGE BUFFER RELEASE

IN THE COMMAND HEADER WORD,

AND THE REGISTER MODIFICATION REFUSED (RMR) LOGIC.

TEST

THE

11:

NON-TAPE MOTION COMMANDS

THIS TEST VERIFIES PROPER OPERATION OF THE

COMMAND.

TWO SUBTESTS ARE USED.

INITVIALIZE

THE FIRST VERIFIES THAT

THE COMMAND RUNS TO COMPLETION AND STORES A VALID

MESSAGE PACKET. THE SECOND VERIFIES THAT NON-ZERO
VALUES IN THE COMMAND MOOE FIELD CAUSES COMMAND REJECT.
7.0 MAINTENANCE HISTORY

REVISION A

- MARCH 1982

REVISION B - JUNE 1984
MINOR CHANGES FOR THE ORION CPU (11/2?2).

ELIMINATED THE MESSAGE DESCRIBING THE CPU TYPE.

TSVe

- PROGRAM HEADER

MACRO M1113

14 JUUN-84 15:15

000000

002000

002000
002000

TSV!

SEQ 0022

LTITLE
.SBTTL
.PSECT

TSve
PROGRAM HEADER
PROGRAM HEADER
ABS

JMCALL
SvC
.ENABLE
LNLIST
.ENABL
. #2000
BGNMOD

SvC

LC
BEX,CND
S
, AMA
AB

INITIALIZE SUPERVISOR MACROS

TSve

THE PROGRAM HEADER IS THE INTERFACE BETWEEN

THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR.

002000
002000
002000
002000
002001
002002
002003
002004

002005

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

103
126
124
123
101

002006
002007

002010

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

002030
002030
002032
002032
002034
002034
002036
002036
002040

LSNAME:
:

LSREV::
102

060

001217
045624

045756

002154
002164

046404

L$DEPO::
LSUNIT::

LeTIML::
LSHPCF::

L$SPCP::
LSHPTP::
L$SPTP:;
LS$LADP::

L$STA:

L$CO::
L$DTYP:;
L$APT::

LSDTP:

HEADER

CVTSA,8,0,655.,0
;tDIAGNOSTIC NAME

.ASCII
.ASCII
.ASCI1
.ASCII
.ASCII

/7C/

.BYTE
.BYTE

0
0

/N/

/17
/S/
/A/

.ASCII

/87

.ASCII

70/

65S.
L $HARD

L$SOFT
LMW

L$SW

LSLAST
0
0]

o
0

tREVISION LEVEL
30

tNUMBER OF UNITS
;tLONGEST TEST TIME

;POINTER TO H.W. QUES.
;POINTER TO S.W. QUES.
sPTR.

TO DEF.

H.W.

PTABLE

tPTR.

TO S.W.

PTABLE

;DIAG. END ADDRESS

;sRESERVED FOR APT STATS

sOIAGNISTIC TYPE
sAPT EXPANSION
iPTR,

TO DISPATCH TABLE

TSve - PROGRAM HEADER

MACRO M1113

14 JUN-84

15:15

SEQ 0023

PROGRAM HEADER

002040
002042
002042
002044
002044
002046
002046
002050
002050
002051
002052
002052
002054
002056
002056
002060
002060
002062
002062
002064
002064
002066
002066
002070
002070
002072
002072
002074
002074
002076
002076
002100
002100
002102
002102
002104
002104

002106
002106
002110
002110
002112
002112
002114
002114
002116
002116
002120

32
33

002120

002124

000000

000000
000C00

003
003
00C000
000000
000000

003400
022620
000000
000000

022306
022404
000000
003406

104035
000000

021512
022572
022512

021502
000000

000000
000000

L$PRIO::
L$ENVI::

L$EXP]::
LSMREV::

LS$EF::

L$SPC::

LS$DEVP::

L4REPF
; ;

LSEXPA::
LS$EXPS::

L$AUT::
L$OUT::
LS$LUN::

L$DESP::
LS$LOAD:
:

LS$ETP::
L$ICP::

LS$CCP::
L$ACP:
:

LS$PRT::
L$TESY::
L$OLY::

LOHIME::

. WORD

LS$OISPATCH

. WORD

.WORD

. WORD

.BYTE
.BYTE

CSREVISION
CSEDIT
0
o
0

LS$OVTYP
L$RPT

;DIAGNOSTIC RUN PRIORITY

:FLAGS DESCRIBE HOW IT WAS SETUP
s EXPANSION WORD

:SVC REY AND EDIT o
:OIAG. EVENT FLAGS

: POINTER TO DEVICE TYPE LIST
iPTR.

TO REPORT

:PTR.

TO ADD UNIT

;:PTR.

TO DROP UNIT

CORC

L$AU

L40U
0

L $DESC
ES$LOAD
0

L$INIT
L$CLEAN

L$AUTO
L$PROT
0

0
0

COOt

COOE

tLUN FOR EXERCISERS TO FILL

:POINTER TO DIAG. DESCRIPTION

:GENERATE SPECIAL AUTOLOAD EMT
;POINTER YT ERRTBL
.IT CUOE

:PTR,

;PTR.,

TO CLEAN-UP COOE

:PTR.

TO AUTO CODE

iPTR,

TO PROTECT

1 TEST NUMBER

1 DELAY COUNT
iPTR.,

TO HIGH MEM

TABLE

- PROGRAM HEADER
PROGRAM HEADER
TSve

MACRO M1113

14-JUN-84 15:15

.SBTTL

36
37
38
39

42
43 002122

S1
52
53

DISPATCH TABLE

; THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST,

40
41

44
45
46
47
48
49

SEQ 0024

002122
002124
002124
002126
002130
002132
002134
002136
002140
002142
002144
002146
002150

000013
023402
023622
024320
025012
026746
027452
030724
034312
035216
040342
043454

IT IS USED BY THe SUPERVISOR TO DISPATCH TO EACH TEST.

DISPATCH 11
. WORD
11
L$DISPATCH::
. WORD
T1
. WORD
T2
T3
. WORD
T4
. WORD
. WORD
15
. WORD
T6
17
.WORD
T8
. WORD
19
. WORD
.WORD
T10
. WORD
T11

.SBTTL

DEFAWLT HARDWARE P-TABLE

: THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VAILUES OF

: THE TEST-DEVICE PARAMETERS.
THE STRUCTURE OF THIS TABLE
: IS IOENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE.
0Cc2152
002152
002154
002154

002154
57 002156
002160
59 002162
002162

000003

LéHM::

BGNHM

DFPTBL

sDEFALT HARD-P-TABLE

.WORD
.WORD
.WORD

172520
224
PRIO4

;
i
+

.WORD

L10000-L$MM/2

::
OFPTBL
172520

000224
000200

L10000:

ENDHW

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

M2
PROGRAM HE ADER

TSve

SOF TWARE P TABLE

MACRO M1113

14-JUN-84 15:15
.SBTTL

62
63
64

;

THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM

PARAMETERS

74 00217¢C
75 002172
76 002174

002174

17
78 002174

THAT

BGNSW

68 002162
002162
002164
002164
69
70 002164
71 002166

L$SW::
SFPTBL: :

.WORD

CAN BE

CMANGED BY

THE

OPERATOR.

SFPTBL

L10001 L$SW/2

TRANSTST : :

. WORD

: ENABLE TEST OF TRANSPORT(S) IF

LERRMAX: :
GERRMAX : :

. WORD
. WORD

15.
200,

;: LOCAL (PER TEST) ERROR LIMIT
: GLOBAL (PER UNIT) ERRUR LIMIT

NOITS::
000017
000310

SOFTWARE P TABLE

SEQ 002¢

L10001:

ENDSK

ENDMOD

. WORD

s
i
:

INHIBIT ITERATION OPTION.
... 0 » ITERATE,
...NZ = INMIBIT ITERATE.

TSVS - GLOBAL AREAS
SOF TUARE P -TABLE

MACRO M111S

16-AN-84 15:15

’
a

13
19

20 002174
002174

TSvS: .

CTITLE
.SBTTL

TSV
GLOBAL

8GMMOD

TSVY

SBTYL

2‘

REX]

GLOBAL

SEQ 0026

GLOBAL AREAS
EQUATES SECTION

EQUATES

SECTION

THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT
ARE USED IN MORE THMAN ONE TEST.

28
32 002174

EQUALS
.

100000

040000

020000

8IT15=+

STANDARD EQUATES.

100000

8ITi14-+- 40000

81713« 20000

81712+ 10000
BIT11== 4000

00100C
00040C
00020C

817C9=+ 1000
B1°78s« 400
81707+ 200

8IT10++ 2000

000100
000040

8I706-= 100
81705=« 40

00001y
000004
000002
000001

81703+«
8I1702-=
B8I101es
8iT00+=

10
&
2
)

001000
000400
000200

8l179==
8178+
8I1Y7-«

BITO9
BITO8
81707

000040
000020
000010
000004
000002
000001

BITS==
BlITa=«
8I73s=
BIT2==
8ITi=»
8I70=s

BITOS
BITO4
@BITO3
B1702
BIT01
BITO00

000100

GET

BIT DIFINIYIONS

01000C
GO400C

00200C

BIT6==

RITO6

: EVENT FLAG DEFINITIONS
.

000040
000037
000036
000035

000034

EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION

EF STARTs=
EF .RESTART=»
EF .CONTINUE ==
EF .NEW==

EF .PUR==

32.
31.
30.
29.
28.

: PRIORITY LEVEL DEFINITIONS

;
;
:
;

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

TSV3

GLOBAL AREAS

GILOBAL EQUATES SECTION

MACRO M1113

14-JUN-84 15:15

000340
000300
000240
000200
000140
000100
000040

PRIO7=+

PRIO6-=
PRIOS=+
PRIO4==
PRIO3==
PRIO2=PRIO1=+
PRI0O==

5EQ 0027

340

300
240
200
140
100
40
O

1OPERATOR FLAG BITS
3

EVLa=

LOTe.

ADR ==
IDU=ISR=-

34 002174

20
40
100

UAM=»

200

BOE="PNTs=e
PR] ==
IXE=»
IB€ =IER=e
LOEe=
HOE=»

400
1000
2000
4000
10000

.SBTTL

20000
40000
100000

K711

MEMORY MANAGEMENT OEF INITIONS

1oXT11 VECTOR ADORESS

MMVECe
250
1oKT11 STATUS REGISTER ADDRESSES

177572
177574
177576
172516

SROSR1e
SR2=
SR3«

IF N8

177372
177374
177576
172316

sOUSER “I” PAGE DESCRIPTOR REGISTERS

UIPORO=
UVIPOR1=
UIPOR2e
UIPOR3=
UIPOR4s
UVIPORS=
UIPORG~
UIPOR7.
.IF N8

177600
177602
177604
177606
177610
177612
177614
177616

sOUSER “D” PAGE DESCRIPTOR REGISTORS
177620

UDPORO=
UDPOR1e
UOPOR2+
UDPDRSe
UDPOR4=
UDPORSe
UDPDR6=
VDOPDR7=
.ENDC

177622
177624
177626
177630
177632
177634
177636

1DEFINE MEMORY MANAGEMENT REGISTERS

MACRO M1113
GLOBAL AREAS
TSV
MEMORY MANAGEMENT OEF INITIONS

14-JUN-84 15:15

toUSER "I~ PAGE ADDRESS REGISTERS

UIPARQUIPAR]=
VIPAR2UVIPARS.
VIPARA»
UIPARS
UIPARG»
UVIPART7.

177640
177642
177644
177646
177650
177652
177654
177656

1 oUSER "D* PAGE ADORESS REGISTERS

UDPARO=
UDPAR]=
UDPAR2e
UDPARS>
UDPAR4«
UDPARS=
UDPARG=
=
UDPAR7
.ENDC
.ENDC
IF N8

177660
177662
177664
177666
177670
177672
177674
177676

SIPOROSIPOR1=
SIPOR2SIPORS3=
SIPOR4
SIPORSSIPORG=
SIPOR?=
.IF N8

172200
172202
172204
172206
172210
172212
172214
172216

SOPDR]1
»
SOPOR2e
SOPOR3«
SOPOR4=
SOPORS»
SOPORG=
SOPOR7+
.ENDC

1722¢2
172224
172226
172230
172232
172234
172236

SIPARO»
SIPAR]=
SIPAR2+
SIPAR3
SIPARASIPARS=
SIPARG*
SIPAR7s

172240
172242
172244
172246
172250
172232
172234
172236

1*SUFERVISOR ~I* PAGE DESCRIPTOR REGISTERS

1 sSUPERVISOR “D* PAGE DESCRIPTOR REGISTERS
SOPORO= 172220

1 SSUPERVISOR “I~ PAGE ADDRESS REGISTERS

s $SUPERVISOR “D* PAGE ADORESS REGISTERS
172260

SoP
SOPAR]=
SOPAR2.
=
SOPARS

172262
172264
172266

56Q 0028

TSVS

- GLOBAL AREAS

MACRO M1113

MEMORY MANAGEMENT DEF INITIONS

14-JUUN-84

SOPAR4=
SOPARS=
SOPARG=
SDPAR7=
.ENOC

15:15

172270
172272
172274
172276

.ENOC

172300
172302
172304
172306
172310
172312
172314
172316

1oKERNEL "I” PAGE DESCRIPTOR REGISTERS

KIPDRO=
KIPDR1=
KIPDR2=
KIPDR3=

KIPDR4=
KIPDRS=
KIPDRG6=
KIPOR7=

IF N8

172300
172302
172304
172306

172310
172312
172314
172316

1sKERNEL "D~ PAGE

DESCRIPTOR REGISTERS

KOPDRO=

172320

KOPDR1= 172322
KDPOR2= 172324

KOPOR3e

172340
172342
172344
172346
172350
172352
172354
172356

172326

KDPOR4=
KDPORSe
KDPOR6=
KDPOR7=
ENDC

172330
172332
172334
172336

KIPARO=
KIPAR1>
KIPAR2=
KIPAR3=
KIPARA=
XIPARS=
KIPARG=
KIPAR7=

172340
172342
172344
172346
172350
172332
172354
172356

s oKERNEL “I~ PAGE ADORESS REGISTERS

1 oKERNEL "D*" PAGE ADDRESS REGISTERS

KDPARO=
KOPAR1e
KDPAR2+=
KDPAR3=
KDPAR4=
KOPARSe

KDPARG=
KOPAR7=

.ENDC

172360
172362
172364
172366
172370
172372

172374
172376

5EQ 0029

TSV3 - GLOBAL AREAS
MACRO M1113 14-JUUN-84 15:15
TSVOS REGISTER AND PACKET DEFINITIONS
39

.SBTTL

40
a1

42
44

45
46
47
48

000004
000060
177560
177562
177520

S0
S1

5SS
S6
57
58
59
60
61
62
63
64
65

SOME GENERAL EQUATES.

ERRVE(C»>»
TTIVEC==
TTICSRs==
TTIBFRs=e

]
60
177560
177562

BOVPCRe =

177520

; POINTER TO ERROR VECTOR FOR BUS TIME OUT,
1 INTERRUPT VECTOR FOR CONSOLE INPUT
3 BUS ADDRESS OF CONSOLE INPUT

s+ CONSOLE INPUT DATA BUFFER

;1 BOV11l PAGE CONTROL REGISTER

;BIT DEFINITIONS FOR TSSR REGISTER
HE

100000
040000
020000
010000
004000
002000
001400
000200
000100
000060
000016

SCBlESCERMR=
NXM=
NBA=
HIADOR=
SSRe
OFL=
FATERR=
TERCLS+*

67
68

HO
:

;s (XSTO)

BIT1S
BIT14
BIT13
81712
8IT11
BIT10
BIT9!BITS
8IT?
BIT6
BIT4!BITS
BIT3!'BIT2!B8IT1

1SPECIAL CONDITION
1BUS INTERFACE ERROR
$SANITY CHECK ERROR
sMODIFICATION REFUSED
tNONEXISTANT MEMORY ERROR
iNEED BUFFER ADODRESS
1EXTENDED ADDRESS BITS
:1SUB SYSTEM READY
tOFF LINE BIT
tFATAL TERMINATION ERROR CODES
;TERMINATION CODES

;81T DEFINITIONS FOR EXTENDED STATUS REGISTER O

TSVOS REGISTER AND PACKET DEFINITIONS

52
S3
54

5€Q 0030

74
75

100000
040000

XSOTMK= BIT1S
XSORLS= BIT14

s TAPE MARK DETECTED
sRECOND LENGTH SHORT

010000

XSORLL= BITiZ2

sRECORD LENGTH LONG

76
78
79

80
81
82
83
84
85
86
87
88

020000

004000
002000

XSOLET= BIT13
XSOMLE= BIT11
XSONEF= BIT10

001000
000400
000200
000100

XSOILC=
XSOILA=
XSOMOT=
XSOONML=

000020

XSOVCK= BIT4

000040

000010
000004
000002
000001

XSOIE=

BIT9
BITS
B8IT7
BIT6

BITS

XSOPED= BIT3
XSOMLK= BIT2
XS0BOT= BIT1

XSOEQT= BITO

sLOGICAL END OF TAPE
tWRITE LOCK ERROR
sNON EXECUTABLE FUNCTION

1 ILLEGAL COMMAND
1 ILLEGAL ADDRESS
1 TAPE IN MOTION
s TRANSPORY ON LTNE
s INTERRUPT ENABLE
sVOLUME CHECK BIT
1PHASE ENCODED DRIVE
WRITE LOCKED
1BEGINNING OF TAPE
1END OF TAPE

TSV3 - GLOBAL AREAS

MACRO M1113

TSVOS REGISTER AND PACKET DEF INITIONS
9
92
95
94
95
9%
97
98
99

100

14-UUN-84 15:15

SEQ 0031

1BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 1
$(XST1)
‘-

100000
040000
020000
017375
000400
000002

X1.0LT
=
X1.SPARE=
X1.COR
=
X1.MBZ
«
X1.R8P
=
X1.UNC
=

BIT1S
tDATA LATE
BIT14
1NOT USED
BIT13
1CORRECTABLE DATA ERROR
BIT12¢BIT11+BIT10¢BIT9+BIT7+BIT6+BIT5+8IT4+BIT3.BIT2.BIT0
BITS
tREAD BUS PARITY ERROR
BIT1
tUNCORRECTABLE DATA OR MARD ERROR

;ALWAYS O

101

102

3¢

104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140

:(XST2)

iBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2

103

141
142

143
144
145

X2.0PM

= BIT1S

X2.RCE

= BIT1A

X2.WCF

= BIT10

1OPERATION IN PROGRESS (TAPE MOVING)

1RAM CHECKSUM ERROR

X2.SPARE= BIT13+BIT12+BIT11+BIT9.B8IT8

NOT USED B8Y TSVOS (ALWAYS=0)

tWRITE CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT)

X2.EXTF = BIT?

1IF WRITE CHAR CMD THEN = EXTENDED FEATURES ENABLED

X2.BUFE = BIT6
X2.REV
= 000077

+IF WRITE CHAR CMD THEN = BUFFERING ENABLED
sIF WRITE CHAR CMD THEN = MICROCODE REVISION LEVEL

X2.UNIT = BIT2081T108IT0 1IF GET STATUS THEN = CURRENTLY SELECTED UNIT NO.
X

;81T DEFINITIONS FOR EXTENDED STATUS REGISTER 3
;1(XST3)
‘-

177400
000100
000040
000020
000010
000001

X3.MDE
= 177400
X3.SPARE= BIT7
X3.0PI
= BIT6
X3.REV
=« BITS
X3.TRF
= BITA
X3.0(x
= BIT3
X3.MBZ
=BIT2+8IT1
X3.RIB
= BIYO

tMICRO-DIAGNOSTIC ERROR CODE
tNOT USED BY TSVOS
;OPERATION INCOMPLETE
sREVERSE
: TRANSPORT RESPONSE FAILURE
1DENSITY CHECK
tNOT USED ALWAYS O
sREVERSE INTO BOT

‘0

sBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 4
s(XST4)
'-

100000
020000
017400
000377

X4
. HSP
X4
. RCE
X4.7SM
X4.M82
X4
. WRC

=
=
=
=
=

PITIS
tHIGH SPEED
BIT14
sRETRY COUNT EXCEEDED
BIT13
s TRANSPORTY SPECIAL MODE
BIT12.8IT11+8I710.8I79.8B178
sNOT USED ALWAYS O
000377
tMRITE RETRY COUNT FIELD

1 TSSR TERMINATION COOES (BI1 0-2)

;TSREJ=

UNREC-

3e2

+COMMAND REJECTED

1tUNRECOVERABLE ERROR

TSV3 - GLOBAL AREAS

MACRO M1113

TSVOS REGISTER AND PACKET DEFINITIONS
147

161
162

163
164
165
166
167
168

169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196

148
149

150
151
152
153
154
155
156
157
158
159
160

14 JUUN-84 15:15

:DEVICE REGISTER OFFSETS

000001
000001
000002
000003

000003

TSBA==

1S08==

TSBAH==
TSOBMe=

: TSOB/TSBA REGISTER

]
|

1 TSOB/TSBA REGISTER HIGH BYTE
+ TSSR REGISTER
1 TSSR REGISTER HIGH BYTE

TSSRe==
2
TSSRH== 3

: TSOB ADDRESS BIT DEFINITIONS
A1716
= BIT1+BITO
ADORESS BITS 17:16 ARE IN 1:0
R4

1 COMMAND DEF INITIONS
;-

000017
000013
000012
000011
000010

000005
000001

P.GETSTAT

= 17

$tGET STATUS

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

= 12
= 11
= 10
=6
=S
-4
=1

sCONTROL COMMANDS
tFORMAT
sPOSITION
sSUBSYSTEM WRITE
tWRITE
sWRITE CHARACTERISTICS
$READ

P.INIT

s INITIALIZE

+ COMMAND PACKET HEADER WORD BIT OEFINITIONS
100000
040000
010000
007400
000200
000140
000037

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

=
=
=
=
=

BIT1S
tBUFFER AVAIL FOR CONTROLLER
BIT14
1CLEAR VOLUME C"ECK
BIT13
1REVERSE SEQUENCE
OF DATA BITS
BIT12
;1SWAP BYTES IN MEMORY
BIYII'BITIO'BIT9'BIT8 1EXTENDED COMMAND MODE FIELD

P.CMD

P.IE
= BIT?
P.FMT= BIT6!BITS

s INTERRUPT ENABLE
sPACKET MEADER TYPE (ALWAYS=0)
tMAJOR COMMAND FIELD

; CONTROL COMMAND MOOE COOES
‘-

000400
001000
002000
002400

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

=
=
=
=
s

0e256.
1256.
24256,
44256,
54256,

tRELEASE BUFFER
s REWIND
:NO-0P
1REWIND IMMEDIATE INTERRUPT
1 SECURITY ERASE

EQ 0032

H
MACRO M1113 14-JUN-84 15:15
TSV3 - GLOBAL AREAS
TSVOS REGISTER AND PACKET DEFINITIONS
198
199
200

201
202

203
204
205
206
207

5€Q 0033

: CONTROLLER RAM DEF INITIONS
000167
000200

000201

000210
000215
000234

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

167
200
201
210

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

215
234

3¢

208
209
210

;REGISTER DEFINITIONS IN THE MESSAGE BUFFER

211

212

213
214
215
216
217

218
219
220
221
222
223
224

000006
000010
000012
000014
000016

XST0==
XSTi==
XS72==
XST3==
XST4==

6
8,
10.
12,
14,

tEXTENDED
;EXTENDED
tEXTENDED
;EXTENDED
tEXTENDED

000002
000004

PKLOW

000006

PKHI
PKBCNT

229

000010

EXBCNT=10

230
231
232
233

234

=2
= 4
= 6

O
1
2
3
4

(WORD
(WORD
(WORD
(WORD
(WORD

4)
S)
6)
7)
8)

1LOM ORDER CHARACTERISTIC DATA POINTER

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

iNUMBER OF BYTES IN EXTENDED DATA PACKET

:DATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND
000000

235

000001

237

000004

236

;U"FSETS TO WORD LOCATIONS IN PACKET DEF INTTIONS

225
226

227
228

STATUS
STATUS
STATUS
STATUS
STATUS

000002

BSELO
BSEL1
SEL2
SELDATA

=0
=1
=2
= 4

1BYTE
:BYTE
;WORD
tWORD

O
1
2
3

MACRO M1113

239

242

000000

244

000002

249

250
251
252
253
254

255

256
257
258
259
260

261
262
263
264
265
266
267
268

269
270
2711
272
273
274
275
276
277
278

279
280
281
282
283
284
285
286
287
288
289

000003
000004
000005
000006

000007

000010
000011
000020
000021
000022
000023
000024

5EQ 0034

$NO-0P

sREAD RAM

sWRITE RAM
$READ FIFO

sWRITE FIFO

sREAD STATUS
tWRITE TAPE CONTROL
tWRITE TAPE FORMAT
tWRITE MISCELLANEOUS
sWRITE NPR CONTROL
1D0 MICROTEST 22
;100 MICROTEST 11
100 MICROTEST 13
sDISABLE MICROTEST 11 AND 13
tREAD EXT. TAPE STATUS (NJUT SUPPORTED BY ALL TRANSPORTS

.WMISC
. WNPR
.022
.011

W.013

.NO1311
.RDEXT

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

55555585

245
246
247
248

000001

PuW. NOP
PW. RORAM
PW. WTRAM
PW. RFIFO
Pu. WFIFO
Pu. ROSTAT
PW. WwCTL
PW. WFMT

.IFAD
.IOTAD
I1TAD
. ISRESV

. IRW
.IFEN
.IGO

8177
BITA

8ITS
8IT4
8IT3
BIT2
8IT1
8IT0

:IFAD - FORMATTER ADORESS
- TRANSPORT ADDRESS BIT O
;ITADO
- TRANSPORT ADDRESS BIT 1
1ITAD1
;sIRESVS - RESERVED o5

1 IREW

- REWIND

s IFEN

- FORMATTER ENABLE

sIHISP

- HIGH SPEED

s IWFM

- WRITE FILE MARK

s IRWY
;GO

- REWIND AND UNLOAD

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

. IHISP

RERRREES

243

15:15

;BSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND

240

231

14 JUN 84

—

GLOBAL AREAS

TSVS

TSVOS REGISTER AND PACKET DEFINITIONS

.aWRT
. IREV
. IWFM
.JEDIT
. IERASE
.I3RESV
. IARESV

8177
8ITS
SITS5
8IT4
8IT3
BIT2
8IT1
8IT0

s IMRT
1 IREV

;IEDIT
1 JERASE
1IRESV3
1 IRESV4

- WRITE
- REVERSE
-

EDIT
ERASE
RESERVED o3
RESERVED o4

i e

sBSEL1 CODES FOR WRITE RISCELLANEQUS SUBCOMMAND
‘-

000200
000020
000010
000006
000001

MS LEXT
MS .RSFIFO
MS .RSTAPE
MS .ATTN
MS .RSD

8IT7
8174
BIT3
BIT2!8IT1
8ITO

s INVERT SENSE OF EXTENDED FEATURES SWITCH

tRESET FIFO AND INPUT PARITY ERRORR
tRESET TAPE STATUS IN 2 FLIP-FLOPS
sATTENTION TRIGGER FIELD

;RESET TIMER A,B THEN DELAY TIMES IN SEL2

J3
- GLOBAL AREAS

MACRO M1113

291
292

293

294
295
296

297
298
299
300

301
302
303

5eQ 0035

: MS.ATTN SUBCODES
MSA.NOP = 0s2
MSA.VOL = 1e2
MSA
. NRAM= 2%2
MSA
. FRAM= 3s2

000000
000002
000004
000006

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

: WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS
000200
000100
000040

304
305
306
307

000020

309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331

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

308

14 JUN-84 15:15

NP. IR

'y ouT
NP, LOOP
NP, WRP

8177
BIT6
8ITS
BIT4

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

; READ STATUS MESSAGE BUFFER BIT DEF INITIONS
.0IM
JILW

.OUTROY
. INRDY
ATIMR
.BTIMR

.UNDEF
.PARIN
. I2RESV

.I1RESV

.IEOT
. IIDENT
. ICER
. IFMK
. JHER
. ISPEED
. IRDY
.JONL
.ILDP
.IDBY
. IRWOD
.IFBY
IFPTY

8IT7
BIT6
8ITS
8IT4
B8IT3
BIT2
8IT1.81T0
B8IT1S
8IT14
8IT13
B8IT12
8IT11
8IT10
8179
8178
8IT7
8IT6
eIT5
BIT4
B8IT3
8IT2
8IT1
8ITO

iWORD #9 BYTE 2 DATA IN MISS
;

ILW H
OUT ROY H
IN ROY H

TIMER A FLAG H
TIMER B FLAG H

(UNDEF INEOD)
WORD #8 BYTE 1 PARIN H
IRESV?
IRESV]
IEOT L
IIDENT H
ICER H
IFMK H
IHER M
WORD 8 BYTE O ISPEED H
IRDY
IONL
ILOP
ID8Y
IRWD
IFBY
IFPT
rerrrrrrre

TSV3

TSVOS REGISTER AND PACKET DEF INITIONS

13
MACRO M1113
GLOBAL AREAS
TSV3
SPECIAL MACROS AND OPDEFS.

14 JUN 84 15:15
.SBTTL

333

334
335
336
337
338
339

340
341
342
343
344
345
346

347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380

381
382
383
384
385
386

5EQ 0036

SPECIAL MACROS AND OPODEFS.

:SAVE GENERAL REGS 1 TO S
.MACRO
JSR
.ENOM

SAVREG
RS ,REGSAV

HIRd

:+ MACRO TO FORCE AN ERROR
FORCERROR
.MACRO
NLIST
.IIF NOF LISTALL,
.LIST
.IF 8 NOTSSR

ENOC

TAG,NOTSSR
.NLIST

MOV

TSSR(RS) ,R1

1READ TSSR

MOV
BNE

FORCER,FORCER
TAG

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

NLIST
LIIF NOF LISTALL,
LIST

.LIST

. ENDM
HE4

;: MACRO TO FORCE AN EXIT TO AVOID SECTION ITERATIONS

WILL EXIT TO A LABEL IF FORCER IS NEGATIVE
SO TO FORCE ERRORS AND EXIT ON 1 ERROR SET
FORCER TO 177777
TO FORCE ERRORS AND ITERATIONS SET FORCER TO

"MACRO FORCEXIT

.NLISTY
.IigTW LISTALL,
.L

CNLIST

MOV
8MI

TAG
.NLIST

FORCER,FORCER
TAG

.IIF NDF LISTALL,
.LIST
. ENDM

+IS FORCER NEGATIVE?
iBR IF YES

.LIST

MACRO TO INCREMENT ERROR COUNTS

.MACRO
LNL1ST

NEXT.ERRNO

s3:.IIF NOF LISTALL,

.NLIST

;43.JIF NDF LISTALL,

.LIST

ERRNO=ERRNO
.1

LIST
.ENDM

GLOBAL AREAS

TSv3

MACRO M1113

SPECIAL MACROS AND OPDEFS.

388

389
390

:MACRO TO PERFORM XOR
:

391

392
393
394

399

400

000000

401
402

403
404

:
:

405
406

407 002174
408
409

.MACRO
MOV
8IC

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

EN=O
LOBTTL

FORCER

BIC
8IS
. ENOM

395
396
397
398

SEQ 0037

14-JUN-84 15:15

000000

A,B
(sp)..8

: INITIALIZE ERROR NUMBER

- FORCE ERROR FLAG

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

FORCER: :

0
: FORCE TvPE ALL HARD ERRORS (THE ONES CALLED ; - BY THE MACRO "IFERROR”),
AN ERROR NEED NOT H

- EXIST,

JUST ASSUME AND TYPE THE MESSAGE.

M3
14 JUN-84 15:15
.SBTTL

411

412
413
414
415
416
417
418
419
420
421

SEQ 0038

GLOBAL DATA SECTION

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

;N( FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIME.

1SINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P-TABLE.
EPRTSW: :
UNITN: :
QvP: .
CSRADOR: :
IVEC::
IPRI::
TSTONT: .

LOOPCNT: :
DEVCONT::

:
FATFLG:

INTRECV::
EXTFEA::
BENBSW: :
EXPD::
RECV::
ERRH]I: :

ERRLO: :

RAMDATA:
:
RAMSIZ::

RCYMIACD: :
RCVLOADD: :
COUNT: :

DATA:
TSTFLAG: :
TSTPTR: :
PRMND: :

EXPMSG: :
RECMSG: :
THPBFR: :

. WORD
. WORD

0
0
0
0

224

PRIO4
X o]
OOO0OOOO0ONKO0O0 (e

MACRO M1113

00000000

GLOBAL DATA SECTION

4 4 §55588585888558

GLOBAL AREAS

TSv3

1PRINT SWITCH
tUNIT & UNDER TEST,
tQUICK VERIFY FLAG.
s+ADORESS OF CSR FOR CURRENT DEVICE
s INTERRUPT VECTOR
1 INTERRUPT PRIORITY.
tNUMBER OF TESTS RUN IN THIS PASS
tREMAINING ITERATION COUNT FOR TEST
iNUMBER OF DEVICE UNDER TEST
1SET IF FATAL FRROR IS DETECTED IN TEST
1SET IF TAPE INTERRUPT WAS RECEIVED

1EXTENDED FEATURES SOF TWARE SW O=0FF ;120N

1BUFFER ENABLE SWITCH SW 0=0FF ;1=0ON
1EXPECTED RAM DATA FOR PRAMPKT ROUTINE
JRECEIVED RAM DATA FOR PRAMPKT ROUTINE
sHIGH ADORESS MEMORY ERROR
;LOW ADORESS MEMORY ERROR
1DATA READ FROM R PACKET OR MESSAGE BUF AREA
1RAM DATA SIZE FOR PRAMPKT ROUTINE
tRECEIVED BUFFER MIGH ADORESS

tRECEIVED BUFFER LOW ADORESS
1 TEST COUNT PATTERN
: TEST DATA

1 TEST FLAG WORO
1 TSTBLK POINTER
1PRINT ROUTINE

TEMP

1EXPECTED MESSAGE BUFFER DATA
tRECEIVED MESSAGE BUFFER DATA
: TEMPORARY

STORAGE

FOR PRINT

TSVS
TSTBLX

MACRO M1113
GLOBAL AREAS
TEST DATA YABLE

14- AN-84 15:1%
SBTTL

452
453
454

N2
SEQ 0039

TSTBLK

TEST DATA TABLE

‘.

455

;THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS

456
45"
458
459

+IN SEQUENCE THE DATA IS:
ALL ZEROS
ALL OMES

46C

461
462
4683

WALKIMG OMES

WALKING ZEROS
ALTERMATING OMES AND ZEROS

464

465
466
x

470
a1
472
47%
474
ars

;

468
469

-y

467

000000
177777

476

477
478
479

480

001000

481

482
483
484
485
486

487

488
489

490
491
492
493
494

495
496

497
498
499

500
501
502
503
S04
S05

010000

040000

177776

177775
177773

177767

177757
177737

177677
177577
177377
176777
175777
1737177
167777
157777
137777
077777
125252
052525
003060

==
TBLEND

¢]

11
8IT0
eIV
8172
81Ty

JALL ZERQS

sALL OMES
;OATA FOR WALXING ONES

8l%a

8ITsS
8ITé

811?

8178
8179
8Ivio
8IT11
B8Ivye
8IT13
8Ivie
BIT1S
tCBITO
*CBIT]

;OATA FOR WALKING ZEROS

1C8IT2

tCBITY
tCBIT4

*CBITS

tCBIT6

tCBIT7
tCB8ITS

tCBITY

tCBIT10
tCBIT11
tCBIT12
tCBIT13
tCBIT14
tCBIT1S
125252
052525

;ALTERNATING ONES,
;ALTERNATING ONES,

ZEROS
ZERQO OPPOSITE FROM ABOVE

MACRO M1113
TSVS - GLOBAL AREAS
GLOBAL ENVIRONMENT STORAGE

14-UUN-84 15:15
.SBTTL

SOQ

508
509
510
S11 003060

SEQ 0040

GLOBAL ENVIRONMENT STORAGE

1STORAGE FOR DEVICE REGISTERS
3

ouyY:

512 003070
513
S14
515 003110
S16
517 003112
S18
003114
003116
003120
003122
003124
003126
003130
003132
003134
003136
003140
003142
003144
003146
003150
003152
003154
003156
003160
003162
003162
003164
003166
003170
003172
003174

0,100000,0,0

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

...FOR MATI-UNIT CHECKOUT,

DUFLG: :

.MORD

s "OROPPED UNIT* FLAG.

NODEV: :

LMORD

sFLAG TO SAY NO DEVICE.

TEMPL::

.MORD

1SOME TEMP LOCATIONS.

xXXCOoMM: ;
FREE: :
FRESIZ::

. WORD
LMORD
LMORD

0
O
O

1 XXDP+ COMM BLOCK POINTER.
11ST FREE MEMORY ADORESS.
..
1...AND SIZE (IN WORDS).

TEMP2: :

FREEMI:
KTFLG: :

. WORD

.WORD

O
MORD

1 INMIBITS COCE IN "CLEAN-UP",

tLAST WORD IN FREE SPACE
sXKT11, MEM AVAIL FLAG

KTENABLE : :
NOFLG: :
NMLO: :

LMORD
LMORD
LMORD

O
O
O

0 = 24K OR NO K7
1 - .WORD
31- NZ = >24K AND KT,
1SET BY TESY ROUTINES TO FLAG »>28X UNDER TEST
1SET IF WE CAN TEST CLEARED OTHERWISE
sNXM LO ADDRESS BITS

T23A: :

T238::
T38FLG: :
PSTI2M: ;
SIFLAG: :
BADDAT : :

MORD

111723A FLAG

.WORD
LMORD
LMORD

2000
O
O

LOOPFL : :

NI : :

.WORD

LMORD
LMORD

GDDAY: :

O
O

1N HI ADORESS BITS FOR DAL'S

1117238 FLAG
1 TEST 38 FLAG 0

LMORD

;sCONF IGURATION TABLES.
1CONF
IG WORK

. WORD

-1

sEND OF MEM TABLE.

O
O
O

sERROR STATISTICS TABLE (1 WORD PER UNIT), 64 UNITS MAX:
H

3
i
:
3
3
3

0
100000
1OXXXX
160000
160001
14XXXX

003174
003374

ERTABL :

003376

SKIPT:

ERTABE :

.
o
=~
=

UNIT
UNIT
UNIT
UNIT
UNIT
UNIT

.BLKW

64,

. WORD
.WORD

16-21

1324 BLOCK ADORESS FOR 32K START
:

1ACTUAL DATA
tEXPECTED DATA

.WORD
MORD
LMORD

CTASE::

LWORD

CTAB::
CTABM: :

177777

1OUMMY DEVICE REGISTERS...

NOT TESTED
ONLINE, NO ERRORS
ONLINE, ENCOUNTERED XXXX ERRORS
OROPPED, NON-EXISTENT DEVICE REGISTER
DROPPED, NOT IDLE AT STARY
DROPPED, ENCOUNTERED XXXX ERRORS

(]

11=SKIP SUBTEST 0=NO SKIP OF

SUBTEST

C4
MACRO M1113

14 -JUN-84

15:15
.SBTTL

5EQ 0041

GLOBAL

TEXT MESSAGES

IAR

THE GLOBAL TEXT SECTION CONTALNS FORMAT

STATEMENTS,

+ MESSAGES, AND ASCII INFORMATION THAT ARE USED IN
+ MORE THAN ONE TEST.
‘--

tNAMES OF DEVICES SUPPORTED
‘0

570 003400
003400

003400

124

123

126

571
573
S74
575
576 003406

003406

ODEVTIYP
LSOVTYP::
.ASCIZ
.EVEN

«<TSVOS»

/TSv0S/

1 TEST DESCRIPTION
LSDESC
052

052

DESCRIPT ceese TSVOS LOGIC OIAGNOSTIC - REPLACE M7196 IF ERROR sese>
23‘:5'142

/7esse TSVOS LOGIC DIAGNOSTIC

- REPLACE M7196 IF ERROR seee/

597
I

$8IT TO ASCII CONVERSION FOR TSSR REGISTER
'-

003500
003540

003543
003347

003553
003557
003563
003567
610 003574
611 003601
613
614
615
616

003611
003616
003623
003630
617 003635
618 003642
619
003650
621 003703
003736
623 003775
624 004016

627
628
629
630

004115
004121
004150
004213
004217

631
632 004276

003540
003601

003543

103
111
103
115
102
111
111
123
111
111
111
111
111
111

123
123
101
101
101
116
040
116
040
101

TSSRBIT::

MORD

18,26,39,44,54,64,74,8¢

.ASCIZ

WORD
'SC’

.ASCIZ
.ASCIZ

'SCt’
'RMR’

.ASCIZ

'BIT9’

12¢:

.ASCIZ

144
13¢:
164:

ASCIZ
.ASCIZ
.ASCIZ

‘BIT2’
'8IT1’
'BITO’

SFIERR:
SFHERR:
NXR ;
NXRX :

.ASCIZ
.ASCIZ
ASCIZ
.ASCIZ

' TSSR ERROR AFTER SOFT INIT®
‘TSSR ERROR AFTER BUS RESET'

/ NON-EXISTANT DEVICE REGISTER/
/%A ADORESS: %06/

FUSI:

.ASCIZ
LASCII

/#A
TSBA,TSSR REC'D: %O6%A,%06/
/sNsA/

14:

2ot:

.ASCIZ

Ss¢:
64:

ASCIZ
LASCIZ

3s:
a%:

8¢
94

13¢:

TSSX:

USI:
NSI;

ASCIZ
ASCIZ

ASCIZ

EVEN

.ASCII

.ASCIZ
.ASCIZ

FNOINTR:
NOINTR: .ASCIZ
IFALT:
INTX:

.ASCIZ
.ASCIZ

94,106,11¢,124,138,144,154,16¢

'BIE’

' NXM'
'NBA’

°'BITS’
'SSR’

'BIT4’

'BITY

/%A

7/
/

TSBA,TSSR EXP’'0D:

#O6SA,sS06%N/

UNEXPECTED INTERRUPT/
INTERRUPT EXPECTED, NOT RECEIVED/

LASCII
/0NsA/
/
NO INTERRUPT WAS GENERATED/
/
INTERRUPT FAWLT/
/#A
CPU PC: #068A
TSBA:

%06/

D4
TSV3

- GLOBAL AREAS

GLOBAL TEXT MESSAGES
633
634
635
636
637
638
639
640
641
642

643
644

645

646
647
648
649
650
651

004333
004405
004455
004525
004526
004531
004565
004641
004743
005011
005054
005111
005204
005276
005370
005456
005552
005643

040
040
040
000
045

045
045
045
122
040

127
124
124

106
105
045
045
045

MACRO M1113

14-JUN-84 15:15

040
040
040

042
042
042

NSINIT:
BRINIT:

116
101
116
101
101
040
122
123
123
101
122
116
116

000
040
045
040
115
103
111
123
123
124
122
04S
045

.ASCIZ2
NULCR:
EXPGOT: .ASCIZ
EXPGT2: .ASCIZ2
0DUAD12: .ASCIZ
PXTRAM::
SCME:
LASCIZ
WRTMSG: .ASCIZ
WRTERR: .ASCIZ
RODERR:
.ASCIZ
SCHERR: .ASCIZ
RETERR: .ASCI12
NOMEM:
.ASCIZ
M8186:
.ASCIZ

116

045

NOINIT:
N:

MB189:

652
653

654
655
656

661

663

006010
006012
006014
672 006020

.ASCIZ

.EVEN
.SBTTL

"BUS-INIT” DION'T INITIALIZE CONTROLLER/
"SOFT-INIT~ DION'T INITIALIZE T'#€ 0OPU/
"BUS-RESET” DIDN'T INITIALIZE THE DPU/

/798N/

/8A EXP'D;: #068A, REC'D: %06/
/9NSA EXP'D: #O68A, #06%NSA REC’'D: #0%A, %06/
/78A REG(W) WRITTEN T0: s06%A REG(R) READ; EXP'D:

.ASCIZ

'RAM Contente Do Not Match Packet Sent’

CONFIG DOESN'T MATCH MFG.

NXRERR: :

013746
012746
012746
010600
104415
062706
004737

003112

'UNEA ¢seesssstsssessse 117238 SYSTEM eeesssssseesscsenN’

GLOBAL ERROR REPORT SECTION

tNON-EXISTANT DEVICE REGISTER.

PRINTX

ONXRX
, MNODEV
NODEV, -(SP)

{NODEV

MOV
TRAP

000006
005766
L1000¢2:

104423

NXRERR

MOV
MOV

= NEXM ADDRESS.

ONXRX, -(SP)

SP,RO
CEPNTX
6, SP

ADO
JSR

PC.EXTEND

TRAP

C#MSG

ENDMSG

EXTENSION

REQUIRED.

; THIS ROUTINE APPENDS A UNIQUE EXTENSION (IF REQUIRED)
;

005727
001402

TO ANY OF THE ABOVE ERROR SIGNATURES.

004777

177770

012746
012746
010600
104415
062706
000207

004526
000001
000004

EXTEND: TST
EXTA:
0
BEQ
JSR
PRINTX
1¢:

MoV
MOV
MOV

TRAP

ADD

RTS

REC'D:

MASTER/

BGNMSG

MOY

003775
000002

#068A,

‘WRITE CHARACTERISTICS Feoiled’
'TSSR Incorrect After WRITE Commend, More Bits Set Than SSR’
*TSSR Incorrect After READ Comeand, More Bite Set Then SSR’
‘FATAL ERROR IN SUBTEST - CHECK TAPE,CABLES, TRANSPORT etc.°
‘ERROR IN SUBTEST - WRITE OATA RETRY FIVE TIMES FAILED
'SNSA ssese NO NXM ADODRESS- -CANNOT TEST NXM TIMEOUT. eecseuN’
'UNEA ¢sscssissssscsses 11/23A SYSTEM ccccecessssessceeuN’

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

665
667 005766
005770
669 005772
670 005774
671

.ASCI2

/
7/
/

‘ [ )

657
658
659
660

.ASCIZ
.ASCIZ
._ASCIZ

S5EQ 0042

(PC)e

PC,BEXTA
N CR

SP,RO
CIPNTX

04, SP
(e

i+ O = NO EXTENSION.
+

APPEND EXTENSION TEXT.

A BLANK

LINE

%06/

TSV3

- GLOBAL AREAS

MACRO M1113

PRITSSR - PRINT TSSR CONTENTS

14-UUN-84 15:15

.SBTTL

674

PRITSSR

- PRINT

SEQ 0043

TSSR CONTENTS

675

676

6"
678
679
680
681
682
683
684
685
686
587
688

tROUTINE

698
699

700
701
702
703
704
705
706

707
708

709

710
711

713
714
715
716
717

AND BIT

DEFINITIONS,

1 INPUTS;
H

CONTENTS OF TSSR

SUBNRNTNATE ROUTINES
:

;

690
691

696
697

THE CONTENTS,

:THE TSSR REGISTER. THIS ROUTINE IS NORMALLY CALLED ONLY
18Y A MESSAGE PRINTING ROUTINE

68%

692
693
694
695

TO DISPLAY

PRITSSR:

010104
010446
012746
012746
010600
104414

062706
010400
004737
163410
012746
012746
010600
104415
062706
010403
042703
001434
012702
012701
005703
001413
000241
006103
103006
011100
112022
001376
112762
005721
000763
105042
012746
012746

CHKAMB

CHECK FOR AMBIGUOUS CONTENTS

SAVREG
MOV

R1,R4

1SAVE GENERAL REGISTERS
$SAVE THE TSSR CONTENTS

MOV
MOV
MOV
TRAP
ADO
MOV
JSR

#TSSRFOR, -(SP)
92,-(SP)
SP RO
CSPNTB
6, SP
R4,RO
PC.CHKAMB

1GET TSSR BACK FOR CHKAMB
$ARE CONTENTS AMBIGUOUS ?

PRINTX

OAMBTSSR

PRINTB

006413
000002

016044

8Cs

006633
000001

MOV

MOV
TRAP

S¢:

0C1476
002630
003500

10¢:

000054

177777

13¢:

15%:
002630
006604

S¢

tPRINT THE CONTENTS OF

TSSR

1BRANCH IF NOT

1SHOW CONTENTS ARE AME TGUOUS

1,-(SP)

SP,RO
CHPNTX

ADD

o4, SP

8IC
8EQ
MOV
MOV

OHIADOR!FATERR! TERCLS,R3S
1CLEAR ALL MWLTIPLE BIT FIELOS
20¢
iNO BITS ARE SET
#TMPBFR,R2
1 TEMPORARY ASCII BUFFER
#TSSRBIT,R1
+ASCII EQUIVALENT OF BITS

MOV

TST

BEG

CcLC

14:

@#TSSRFOR,R4

R4 ,R3

1CONTENTS OF TSSR

tREMAINING BITS TO CONVERT

15¢

ROL
8cC

R3
134

MOV

(RO)+,(R2)e

MOV

BNE
MOVB
TST
BR

CLR8

PRINTX

MOV
MOV

(R1).RO

$BRANCH WHEN ALL ARE DONE

1CLEAR CARRY FOR SHIFT

1SHIFT NEXT BIT TO CARRY
1BRANCH IF BIT NOT SET

sPOINTER TO BIT DEFINITION
tMOVE ASCIZ TO BUFFER

114
e ,,-1(R2)

+MOVE ALL BITS
1 INSERT A COMMA TO TERMINATE

-(R2)

1 TERMINATE THE LINE

(R1).
104

@TSSDEF ,0TMPBFR

#TMPBFR, -(SP)
#TSSOEF , -(SP)

+POINT TO NEXY DESCRIPTION
1GET THE REMAINING BITS
;PRINT

THE BIT DEFINITIONS

Fd
MACRO M1113
TSv3 - GLOBAL AREAS
PRITSSR - PRINT TSSR CONTENTS
006166
006172

718
719
720
721
722

006174
006176

006202
006204
006210
006214
006214
006216
006222
006226
006230
006232
723 006236
725
726

14 JUN-84 15:15

012746
010600
104415
062706

000002

MOV
MOV
TRAP

000006

ADD

010403
042703
016303

177761
006674

010346
012746
012746
010600
104415
062706
010403
042703
001416

204

730

MOV
MOV

006474
000002

000006

1777117

o6, SP

R4 ,R3
OrCTERCLS,R3
TCOCOD(R3),R3
#TCOASC,R3

R3
R3
R3

;ALINE TERMINATION COOE FOR INOEX

#TFCASC, -(SP)
0,-(SP)

304

#TEXASC,R4

013703

010346
012746
010600
104415
062706
000207

000006
002176

1PRINT THE TERMINATION COOE

1 TSSR CONTENTS AGAIN
tCLEAR ALL BUT FATAL TERMINATION

006535

25¢:

1GET THE TERMINATION COOE MEANING

R4 ,R3
#tCFATERR,R3

TSFCOO(R3),R3
OTFCASC,R3

000006
176377

tGET THE TSSR CONTENTS
1CLEAR ALL BUT TERMINATION

#TCOASC, -(SP)

007234

tOON'
T PRINT IF ZERO

:GET THE FATAL TERMINATION COOE
tPRINT

THE FATAL

tCLEAR ALL BUT EXTENDED ADORESS
sOON’'T PRINT IF ZERO
tPRINT

THE EXTENDED ADDRESS BITS

30%:

CePNTX
“.SP
EPRTSW,R3

tPRINT MEAASGE BUFFER ADDRESS
1PRINT PROPER MESSAGE

000001

000004

TERMINATION COOE

OTEXASC, -(SP)

006433
000002

736

SP,RO
CS4PNTX

254

733

734
735

@2, -(SP)

SP,.RO
CSPNTX
6, SP

000002

731

8IC
MOV

PRINTX

727

728

MOV

SEQ 0044

CHPNTX
PC

tRETURN TO CALLER

MACRO M1113
TSV3 - GLOBAL AREAS
PRITSSR - PRINT TSSR CONTENTS
739 006356
740 006356
755 006413
756 006433
757 0064 74
758 006535
759 006604
760 006633
761
762 006674
763 006714
764 006737
765 006765
766 007007
767 007027
768 007111
769 007160
770 007204

771
772

773 007234
774 007244
775 007300

776
777
778

007311

007355

045
045
045
045
045
045
045

116
116
116
116
116
116
116

006714

006737
157
145

116

124
124

165
145
145
156
141

007244

007300
156
145
165
145

111
122
102
122

14-JUUN-84 15:15
EPRT2:
EPRTIL:

TSSRFOR:
TEXASC:
TCOASC:
TFCASC:
TSSDEF
:

AMBTSSR:

TCOCQOD:
1$:
2%:
3s:

141

106
122
122
125
106

43:

Ss:
64:
74¢:
84:

007311
164
163
163
163

TSFCOD:
1¢:
2%:
3s:

44:

.ASCIZ

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

SEQ 0045

‘SNSA 24800REPLACE MT7196000es’
‘dNsA TSSR » #06°
.ASCIZ
'#NsA Extended Address Bits » 06’
.ASCI2
‘¥NsA Termination Cless Code = sT'
.ASCIZ
‘dNsA Fatea]l Termination Cless Code
.ASCIZ
‘#NSA TSSR Bits Set: «T’
.ASCIZ
‘'SNsA TSSR Contents Are Ambiguous’
.ASCIZ

14,24,34,44,5¢6,64,74,8¢
‘Normal Termination’

= 7

'Terminetion Condition’
‘Tape Statue Alert’
‘Function Reject’
‘'Recoverable Error - Tepe Position One Record Down’
‘Recoverable Error - Tepe Wes Not Moved’
‘Unrecoverasble Error’
‘Fatel Controller Error’

‘Internal Disgnostic Failure’
‘Reserved’
‘Bus Interfece or Senity Check Error’

‘Reserved’

4
MACRO M1113
14-JUUN-84 15:15
TSV3 - GLOBAL AREAS
PRINT
THE
ADORESS/CONTENTS
OF
COMMAND PACKET
PRIPKY

.SBTTL

780
781

782

783
784
785
786
787
788
789
790
791
792
793
794
795 007366
796 007366

007372
007374
007400
007402
007404
007406
803 007410
804 007412
805 007414
007414
007416
007420
007424
007430
007432
007434
007440
807 007442
007444
007446
810 007452
811 007454
812 007456
813 007460
007460
007462
007464
007470
007474
007476
007500
814 007504
815 007506
816 007510
817 007512
818
819 007514
820 007552
821
797
798
799
800
801
802

5EQ 0046
PRIPKT

THE

ADDRESS/CONTENTS

COMMAND PACKET

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

: THIS ROUTINE

IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE.

;INPUT:
1]

.
b

RO
R3
R4

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

NOTF;

R3 IS IGNORED If

SAVREG
MOV
TST
BNE

RO,RS
KTENABLE

PRIPKT:
:

010005
005737
001001
005003
010301
010400
006100
006101
010446
010146

012746

012746
010600
104414
062706
010300
001404
010401
004737
010004
005001
012402
010246
010146
012746
012746
010600

104414
062706

003132

10¢:

007552
000003

MOV
ROL
ROL
PRINTB
MOV
MOV

MOV

000010

15%:

017316
204:

254
:

MOV
MOV
TRAP
ADD
MOV
8EQ
MOV
JSR
MOV

007514
000003

000010

04S
04S

PKTFRM:
PKTADD:

1BR IF YES
1SET HIGH ORDER ADDRESS 10 O
sCOPY HIGH ORDER ADODRESS
:GET LOWER ADODRESS
;SHIFT BIT 1S INTO C BIT
;AND INTO HIGH ORDER.

1PRINT PACKET ADDRESS

CS$PNTB

#10,5P

R3,RO

20%

R4 ,R1

PRINTB

MPKTFRM,R1,R2

MOV

s SAVE THE REGISTERS
$1SAVE NO. OF WORDS IN PACKET
s ABOVE 28K UNDER TEST?

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

CLR

(R4).+,R2

1GET HIGH ORDER ADDRESS
18R IF NOT ABOVE 28K.
sGET LOW ORDER ADORESS
1SETUP PARG6 MAPPING FOR 18 BIT ADORESS
1GET RETURNED PAR6 ADDRESS BIAS
1SAVE WORD NUMBER
1GET PACKET CONTENTS
sPRINT

THE DATA

MPKTFRM, -(3P)

SP,RO
C¢PNTB
#10,5P

R1
R1,RS

tNEXT WORD NUMBER
1OONE ALL PACKET WORDS?

RTS

1 RETURN

.ASCIZ
.ASCIZ
.EVEN

‘SNSA Pecket Word #8D1%A

cHP
BLT

116
116

10¢

R3
R3,R1
R4 ,RO
RO
R1
#PKTADO,.R1,R4

PC,SETHAP
RO, R4
Rl

MOV
MOV
MOV
MOV
MOV
TRAP
ADD
INC

020105
002762
000207
045
045

CLR
MOV

THE KTENABLE FLAG IS CLEAR,

254

'%NsA Packet

tLOOP TILL ALL DONE

Address

= %06

= %01%0S'

TSv3
GLOBAL AREAS
PRINT EXPD,
PRIBXOR

MACRO M1113

14 JUN 84 15:15

5EQ 0047

RECV AND XOR BYTF

.SBTTL

82%

824
825
826
827
828
829
830
831

PRIBXOK - PRINT EXPD, RECV AND XOR BYTE

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

: INPUTS::

832
833
834
835
836
837
838 007610
839 007610
840 007614
841 007616
842 007626
843 007632
844 007634
845 007636
846 007640
007640
007642
007644
007646
007652
007656
007660
007662
007666
007670
007672

RECEIVED DATA

XOR OF EXPECTED/RECEIVED DATA

EXPECTEC DATA

sOUTPUT
:

PRIBXOR::

SAVREG
MOV

010203
012700
040001

XOR

MOV
B8IC
8IC

177400

8IC

040003

010346
010146
010246
012746
012746
010600
104414
062706
010300
000,07
045

PRINTB

MOV
MOV
MOV
MOV
MOV
MOV

007672

TRAP

ADD
MOV
RTS

000012

116

045

XORBFOR:

.EVEN
.SBTTL

:SAVE THE REGISTERS

R2,R3
R1,R3

0tC<377>,R0

RPO,R1

$EXPECTED DATA
sFORM THE EXCLUSIVE OR
;BYTE MASK

1SAVE LOW BYTE RECV

RO,R2
$SAVE LOW BYTE EXPD
RO,R3
$SAVE LOW BYTE XOR
#XORBFOR,R2,R1,R3 ;PRINT THE MESSAGE
R3, -(SF)
R1,-(SP)
R2,-(SP)
#XORBFOR, -(SP)

SP,RO
C4PNTB
012,5P
R3,RO

$1RO HAS XOR ON RETURN

.ASCIZ

'wNsA EXPD: #03%A RECV: #03%A XOR: %03’

PRIXOR

- PRJYWT EXrC.

tRETURN T0O CALLER

RECV AND XOR

HE4

sPRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE TWO

s THIS ROUTINE IS NORMALLY CALLED ONLY FOI! PRINT ROUTINES.
H

: INPUTS

:
:

RECEIVED DATA
EXPECTED DATA

XOR OF EXPECTED/RECEIVED DATA

;OUTPUT;
:
007740
007740
007744
870 007746
871 007756

PRIXOR:
:

010203

SAVREG
MOV

XOR
PRINTB

. wAVE THE REGISTERS

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

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

14-UUN 84

15:15

5EQ 0048

PRIXOR

007756
007760

007762
007764
007770
007774
007776
010000
872 010004
873 010006
874
875 010010
876

010346
010146
010246
012746
012746
010600
104414
062706
010300
000207
045

MOV
MOV

MOV
MOV
MOV

010010
000004

MOV
TRAP
ADD

000012

045

XORFOR:

R1,-(SP)
2, -(SP)

OXORFOR, -(SP)
04, -(SP)

SP,RO
C$PNTB

0l12,SP

MOV

R3,RO
PC

.ASCIZ
.EVEN

‘WNsA £XPD:

RTS

116

R3, -(SP)

1RO HAS XOR ON RETURN
tRETURN TO CALLER
#06WA RECV:

#068A XOR:

#06’

<4
TSV3
GLOBAL AREAS
- PRINT BIT
PRIEQU

MACRO M1113

14 JUUN 84 15:15
.SBTTL

878
879
880
881
882
883
884

PRIEQU

PRINT BIT NUMBERS AS ASCII EQUIVALENT

HEd

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

: THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE

INPUTS;

885
886

887
888
889
890

010056
010056

895
896
897
898

5EQ 0049

NUMBERS AS ASCII EQUIVALENT

010062

PRIEQU:

000207

SAVREG

OCTAL VALUE TO CONVERT

TABLE OF POINTERS TO ASCII EQUIVALENT

RTS

.SBTTL

PRIRAM

SAVE THE REGISTERS
RETURN TO CALLER

- PRINT RAM ADORESS

;PRINT CONTROLLER RAM ADDRESS.

:THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.

: INPUTS:

;

fiéIRAfl:

010064
010064
010070
010070
010072
010076
010102
010104
010106
010112

012746
012746

010114

045

010446

010600
104414
062706
000207

010114
000002

SAVREG

045

RAMFOR:

RAM ADORESS

PRINTE

#RAMFOR,R4

MOV

SRAMFOR, -(SP)

MOV

000006

116

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

SP,RC

TRAP
ADD
RTS

CS$PNTB
06, SP
PC

.SSCIZ
.EVEN

‘#NSA CONTROLLER RAM ADDRESS = %00’

sRETURN

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

14-JUN-84 15:15
.SBTTL

915
916

MEMORY

ERROR ADDRESS

:PRINT MEMORY ADDRESS

i THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.
IMPLICIT INPUTS

922

ERRHI
ERRLO

923
924
925
926

PRIADD

917
918
919
920
921

927
928
929
930
931
932
933
934

5EQ 0050

010156
010156
010162
010166
010172
010174
010176

010200
010200
010202
010204
010210
010214
010216
010220
935 010224
936
937 010226
938
939
940
941
942

P R1ADD:
013700
013701
010102
006101
006100
010246
010046
012746
012746
010600
104414

002234
0022%6

ROL
ROL
PRINTB

MOV
HOV

MOV
MOV
MOV

010226
000003

TRAP

062706
000207

000010

045

116

PRIAO:

1SAVE R1-RS UNTIL NEXT RETURN

ERRHI RO
ERRLO,R1

1GET HIGH ADDRESSS
+GET LOW ADORESS

R1,R2
R1

OPRIAQ,RO,R2

1COPY LOW ADORESS
$SHIFT BIT 15 10 C BIT
tSHIFT INTO HIGH ORDER

;PRINT MEMORY ADDRESS IN ERROR

RO, -(SP)
OPRIAQ, -(SP)
SP.RO

C$PNTB

€10,SP
PC

.ASCIZ
.EVEN

‘#NsA MEMORY ERROR ADORESS

.SBTTL

PRITADD

1RETURN

PRINT MEMORY

= #01%05’

TEST ADDRESS

:PRINT MEMORY ADURESS

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

949

951

PRITADD:

013702
013701

002234
00223¢

957

959 010306
010306
010310
010314
010320
0103c2

- LOW ORDER ADDRESS

ADD

RTS

045

HIGH ORDER ADORESS

HE4

943
944
945
946
947
948

010272
953 010272
010276
955 010302

SAVREG
MOV
MOV
MOV

- HIGH ORDER ADDRESS

ERRHI
ERRLO

- LOW ORDER ADDRESS

SAVREG
MOV
MOV

ERRHI ,R2
ERRLO,R1
R1.R2
R1

RO
#PRITO,R1
010146
012746
012746
010690
104414

010354
000002

#PRITO, -(SP)

02,-(SP)
S°,RO
C#PNTB

:SAVE R1-RS UNTIL NEXT RETURN
sGET HIGH ADORESSS
1GET LOMW ADDRESS

1COPY LOW ADORESS
sSHIFT BIT 15 70 C BIT
;SHIFT INTO HIGH ORDER
1PRINT MEMORY ADDRESS LOW IN ERROR

M4
TSV3

PRITADD

MACRO Mi113
GLOBAL AREAS
- PRINT MEMORY TEST ADDORESS

010324
960 010330
010330
010332
010336
010342
010344
010346
961 010352

010246
012746
012746
010600
104414
062706
000207

963 010354
010417

045
045

062 70¢,

14 JUN-84

15:15
ADD
PRINTS

N00006

MOV
MOV
MOV
MOV

010417

000002

TRAP

ADD

000006

116
116

045
045

PRITO:
PPIT1:

SEQ@ 0051
96 ,5P
#PRIT1,R2
R2,-(SP)
OPRIT1, -(SP)

SP,RO
C$PNTB
06, SP

RTS

.ASCIZ
.ASCIZ
.EVEN

‘#NSA MEMORY
"#NSA MEMORY

;PRINT

MEMORY

ADDRESS MIGH

;RETURN
TEST
TEST

ADDRESS LOW - #06
ADDRESS HIGH = #06°

IN ERROR

N4
TSvS

SPACE

GLOBAL AREAS

MACRO M1113

14 JUN-84 15:15

SEQ 0052

SPACE RECORDS (FORWARD AND REVERSE) COMMAND
.SBTTL

SPACE

SPACE RECORDS (FORWARD AND REVERSE) COMMANG

9%8
9%9
970
971
972

;COMMAND (FORWARD OF REVERSE
)

974

INPUT.

. L)

:ROUTINE TO ISSUE A SPACE RECORDS

973

975

976
977

978

979

oUTPUT .

REQUIRES A WRITE CHARACTERISTITS DONE PREVIOUSL
Y

CARRY

”7

SET

CLR

SPACE RECORDS COMMAND Ox
SPACE RECORDS FAILED

THE CONTENTS OF

IS TMMOVED

TO RO

®c

988
989
990
791
992
993
994
995
996

;IMPLICIT QUTPUT:
TAPE HAS BEEN MOVED

:SIDE EFFECTS:

997

998
999

1000
1001
1002 010464
1003 010454
1004 010470
1005 010476
010504
1007 01050¢€
1008 010510
1009 010514
1010 010516
1011 010522

1012
1013
1014
1015
1016
1017

BIT1S = 0 IS FORWARD
8IT15 = 1 IS REVERSE
FIRST DEVICE UNIBUS ADORESS

98C
981
982
983
984
985
986

NUMBER OF RECORDS TO BE SPACED OVER
BIT15 CONTROLS DIRECTION

010526
010534
010540
010544
010550
010552
010552
010556
010560
010564
010566
010572

SPACE: .
012737
012737
005703
100403
010337
000407
042703
010337
052737
012704
010465
004737
103420

012727
000000

013727

000000
005367
001375

000764
140010

010660
010650

TST

8mMI

010652

100000
010652
000400
010C5C
000000

016250
000250
002116

177772

SAVREG
MOV
MOV

S%.

010650
10¢:

15¢:

BR
BIC

1,01
8IS
MOV
MOV

JSR
BCS
DELAY
MOV
.WORD
MOV
. WORD

DEC
BNE

0500. ,S0ELAY
#140010,80¢

i SAVE THE GENERAL REGISTERS

;SET UP UELAY

;SET UP COMMAND,

SPACE FORWARD

R3
St

;CHECK FOR DIRECTION
s8R, IF REVERSE INDICATED

10¢

:GO DO COMMAND

R3,90¢

;LOAD UP NUMBER OF RECORDS TO SPACE

R3,9Cs

#8IT15,R3

081I78,804
0804 R4

R4 ,TSDB(RS)

PC,.WAITF

204
250
0250,(PC)
0
L$OLY,(PC)
0
-6(PC)
.

;LOAD P NUMBER OF RECORDS TO SPACE

;CLEAR DIRECTION BITY

;SET REVERSE BIT IN COMMAND PACKET
;SET

UP R4

WITH PACKET

ADDRESS

;SEND OUT COMMAND

sWAIT FOR SSR

;BR,
;OELAY ABOUT

IF SSR IS SET
.25 SECONDS

AND OK

B5
MACRO M1113
14-JUN-84 15:15
TSVS - GLOBAL AREAS
COMMAND
REVERSE)
AND
(FORWARD
RECORDS
SPACE
SPACE
010574

010600
1018 010602
1019 010606
1020 010610
1021 010612

1022 010616
010622

010624
010626

010630
010632
010634
010636
010636
010640

005367
001367
005337
001356

000411
016301
012702
020201
001401
000402
000261
000401
000241

OEC
BNE
OEC
BNE

177756

010660

000002
000200

204 :
a5s:
404 :
gg:

010400

B8R
MOV
MOV
cHe
8€0
B8R
SEC
B8R
CLC

MOV
RTS

000207

SEQ 0053

-22(PC)
. -20
SDELAY
154

704

18UMP DELAY COUNIER DOWN
1BR, IF MORE DELAY
18R IF TROUBLE CARRY = CLEAR
1READ TSSR
1SET UP EXPECTED
tARE THEY Ox
18R, IF EQUAL - Ox
s TROUBLE EXIT
1SET CARRY NO TROUBLE
1EXIT

R4 ,RO
PC

$PASS PACKET ADORESS
;RETURN

604
TSSR(RS),R}
OSSR ,R2
R2,R1
404
604

1CARRY CLEAR = ERROR

1PACKET FOR SPACE COMMAND
010650

.=¢,¢10>E177770

010650

000000

010652

000000
000000
000000
000000

010654
010656

1047 010660
1049

s COMMAND WORD
80¢ :
. WOROD
{NUMBER OF RECORDS TO BE SPACED OVER WORD
904 :
. WORD
.WORD
. WORD
SDELAY: .EmVEN
0
1DELAY COUNTER
.SBTTL

WRTCHR

- WRITE CHARACTERISTICS COMMANC

MACRO M1113
14-JUN-84
TSvS
GLOBAL AREAS
- WRITE CHARACTERISTICS COMMAND
WRTOHR

1051
1052
1053
1054
1055
1056
1057
1058
1059

}

R4
RS

ADDRESS OF PACKET FROM TEST

FIRST DEVICE UNIBUS ADDRESS

REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY

10UTPUT ;

CARRY

TSSR CONTENTS

SET - WRITE CHARACTERISTICS COMMAND O
CLR - WRITE CHMARACTERISTICS FAILED

;

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

!
L
H
]

1SIDE EFFECTS:
010662
010662
010666
010672
010676

1079 010702

1080 010706
1081 010710
1082 010712
1083 010716
1084 010722
1085 010726
1066 010730
1087 010734
1088 010736
1089 010740
1090 010742
1091 010746
1092 010750
1093 010736
1094 010760

1095
1096
1097
1098
1099
1100
1101
1102
1103
1104

s INPUT

1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072

1074
1075
1076
1077
1078

¥Q 0054

1ROUTINE YO ISSUE A WRITE CHMARACTERISTICS
1COMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED

1060
1061

1073

15:15

010764
010764
010772
010774
011000
011000
011002
011004
011006
011012

WRTCHR:
:

005037
005037
010465
004737
103401
000435
016501
012702
032701
001402
052702

001401
000421
062704

011403

8EQ
INC

002226

817
8€Q
INC

X2. BUFE,XST2(R3)
S04
BENBSW

000002

SEC
B8R
CLC
MOV

10¢:

016336

MOV

000100
000100

404
:

000010

032763
001402
003237

000200

032763
001402
003237

000100

000261
000401
000241
016500
000207

SAVREG
CLR
CLR
MOV
JSR
8CS
B8R
MOV

1SAVE THE GENERAL REGISTERS
1CLEAR BUFFER ENABLE SWITCH
tCLEAR EXTENDED FEATURES SW SWITCH
R4 ,TSOB(RS)
1SEND OUT COMMAND
PC,.CHKTSSR
;WAIT FOR SSR
204
1BR, IF SSR IS SET AND Ox
604
tBR IF TROUBLE CARRY = CLEAR
TSSR(RS3),R1
1READ TSSP
#SSR,R2
$sSET UP EXPECTED
O0FL ,R1
sWAS OFF LINE SET IN TSSR
254
18R, IF NO OFL SET
O0FL ,R2
sMAKE ThiEM LOOK AL IXE
R2,R1
1ARE THEY 0K
404
sBR, IF EQUAL = OX
604
s TROUBLE EXIT
8. .R4
;POINT TO WRT CHARA DATA PACKET
(R4),R3
1GET ADDRESS OF MESSAGE BUFFER
X2 . EXTF ,XST2(R3)
sEXTENDED FEATURES BIT SET?
454
tBR IF NO
EXTFEA
$1SET EXTENDED FEATURES SW SWITCH

002226
002224

000012

MoV

817

000012

002224

8IY
8EQ
8IS
cp
8€Q
B8R
ADO

454
;

604
:
704
:

RTS

BENBSM
EXTFEA

704

TSSR(RS),RO
PC

1BUFFER ENABLE SWITCH SET
1BR, IF SWITCH NOT SET
1SET SOFTWARE SWITCH FOR ENABLED
1SET CARRY NO TROUBLE

$EXIT
1CARRY CLEAR = ERROR
tRETURN TSSR CONTENTS
1RETURN

TSV

REWIND

GLOBAL AREAS

14-JUN-84 15:15

- POSITION TAPE (REWIND) COMMAND

1106
1107
1108
1109
1110
1111
1112
1113
1114
1115
1116
1117
1118
1119
1120
1121
1122
1123
1124
1125
1126
1127
1128
1129
1130
1131
1132
1133 011014
1134
1135
1136
1137
1138 011034
1139
1140

011014
011020
011024
011030
011040
011042
011082
011046
011050
011054
011056
011062
011064
011070
1141 011072
1142 011074
1143 011076
1144 011100
1145 011102
1146

MACRO M1113

1148
1150 011110
1151 011110
1152 011112

.SBTTL

5£Q 0055

REWIND

- POSITION TAPE (REWIND) COMMAND

1 THIS ROUTINE WILL REWIND THE SELECTED TAPE.
3

CAUTION: THME ROUTINE DOES NOT WAIT FOR BOT

SSR TO SET IN THE TSSR

70 ARRIVE.

ALSO THE CALLER MUST

CHECK FOR

3
H

;CALLING SEQUENCE:
H

:
:
:

DO A SOFT INIT
DO A WRITE CHARACTERISTICS
PC ,REWIND
JSR

;INPUT:
H

FIRST DEVICE UNIBUS ADDRESS

THE CONTENTS OF R4 IS PASSED TO RO

SAVREG
MOV
MOV
MOV
JSR
B8CS
DELAY
MOV
LMORD
MOV
LMORD
0EC
BNE
DEC

SRWPACK R4
R4, TSDB(RS)
0360, R3S
PC,WAITF
204
250.
0250..(PC)»
O
LSOLY.(PC).
O
-6(PC)
-4
122(PC)

H
H

sOUTPUT

;
H
'-

REWIND::

012704
010465
012703
004737
103417
012727
000000
013727
000000
005367
001375
005367
001367
005303
001357
000241

010400
000207
011110

102010
000000

011110
000000
000550

016250

108:

000372
002116
177772
177756

8NE
DEC
BNE

208:

RWPACK:

CLC

MOV
RTS

1SAVE R1-RS UNTIL NEXT RETURN
1GET PACKET ADDRESS
1SEND PACKET ADORESS TO EXECUTE
;ENOUGH TIME FOR 2400 REEL TO REWIND
sMAIT FOR SSR TO SET
;LEAVE M{EN SSR IS SET
{WAIT FOR .25 SECONDS

.-20
R3
104

;8UMP COUNTER DOWN
JKEEP GOING

R4 ,RO
PC

\PASS THE PACKET ADDRESS
RETURN

JCLEAR CARRY TO SET ERROR

o<, +10>E177770

.HORD
'WORD

102010
O

{POSTION COMMAND (REWIND)
NOT USED

TSV3 - GLOBAL AREAS

CKRAM

MACRO M1113

- COMPARE RAM TO T/0 PACKET

14-JUN-84 15:15
.SBTTL

1154
1155
1156
1157
1158
1159
1160
1161
1162
1163

SEQ 0056

CKRAM

COMPARE RAM TO I/0 PACKET

HE4

{ROUTINE TO READ THE FIRST 8 BYTES FROM RAM

MEMORY AND COMPARE THIS DATA TO A COMMAND PACKET.
$

: INPUT;
R4
RS

ADORESS OF THE COMMAND PACKET

FIRST

DEVICE UNIBUS ADORESS

1164

1165

1166
1167
1168
1169
1170
1171

CARRY

RAM MATCHES PACKET
- RAM DOES NOT MATCH PACKET

{IMPLICIT OUTPUT:
THE TABLE RAMDATA IS FILLED WITH THE
OATA HELD IN RAM,

1172

1173
1174
1175
1176
1177
1178
1179

011114
011114
011120
011124
011130
011122
011136
011144
011150
011154
011160
011164
011166
011170
011172
011174
011200
011202
011204
011206
011210
011212
1204 011214
1205 011222

CKRAM::

1180
1181
1182
1183
1184
1185
1186
1187
1188
1189
1190
1191
1192
1193
1194
1195
1196
1197
1196
1199
1200
1201
1202
1203

SET
CLR

RAMSIZ IS SET

i
3 SIDE

TO 8.

FOR PRAMPKT ROUTINE

EFFECTS:

THE SUBSYSTEM IS LEFT

IN MAINTENANCE MODE

‘

012701
012702
005003
004737

112765
004737
010265

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

002240
000201

SA“REG

CLR

016336

104:

SRAMDATA
R1
ORMPKTBEG,R2
R3
PC.CHKTSSR

€0, TSOB(RS)

PC,CHKTSSR
R2,TSOB(RS)

PC,CHKTSSR

016336

TSBA(RS),(R1)

(R1)+,(R&).

204

204
:

000210

000010

002300

30%:

50%:

R3
Re

R2, SRMPKTEND
10¢
R3
304

S04
08. ,RAMSIZ

§SAVE THE GENERAL REGISTERS
s ADDRESS TO SAVE THE RAM DATA
;1BYTE ADDRESS OF FIRST RAM DATA
;CLEAR THE ERROR FLAG

I1WAIT FOR SSR

1SET MAINTENANCE MODE
tWAIT FOR SSR TO SET
1SELECT NEXT RAM ADDRESS
sWAIT FOR SSR TO SET
sREAD THE RAM DATA
;COMPARE TO EXPECTED
;1BRANCH IF (Ox
1SET ERROR FLAG
1 ADDRESS OF NEXT RAM LOCATION
sREACHED END YET ?

$BRANCH TILL ALL READ
tWAS AN ERROR FOUND ?
1BRANCH IF NOT
1CLEAR CARRY TO SHOM ERROR
$AND EXIT
1SHOM GOOD COMPARE
1SETUP RAMSIZ FOR PRAMPKT ROUTINE
tRETURN

[
MACRO M1113
14-JUN-84 15:15
TSV3 - GLOBAL AREAS
TICS DATA
CHARACTERIS
I/0
TO
RAM
COMPARE
CKRAM

011246
011254
011260
011264
011270
011274
011276
011300
011302
011304

011312
011316
011320
011326
011332
011334
011336
011342
011344
011346
011350
011352
011354
011356

.SBTTL

CKRAM2

COMPARE RAM TO I/0 CHARACTERISTICS DATA

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

s INPUT

;

R4
RS

ADORESS OF

FIRST

THE CHARACTERISTICS DATA

DEVICE UNIBUS ADDRESS

;sOUTPUT:
H

CARRY

SET
CLR

- RAM MATCHES PACKET
- RAM DOES NOT MATCH PACKET

1 IMPLICIT OUTPUT:
THE

TABLE RAMDATA IS FILLED WITH THE

OATA HELD IN RAM.

RAMSIZ IS SET

TO 8.

10.

FOR PRAMPKT ROUTINE

SIOE EFFECTS:

Quuu

1207
1208
1209
1210
1211
1212
1213
1214
1215
1216
1217
1218
1219
1220
1221
1222
1223
1224
1225
1226
1227
1228
1229
1230
1231
1232
1233 011224
011224
011230
011234
011240
011242

560 0057

RAM2:
:

002240
000167

THE SUBSYSTEM IS LEFT IN MAINTENANCE MOOE

SAVREG
MOV
MOV

CLR

016336

10¢:

ORAMDATA
R1

;gHCHBEG.RZ
PC,CHKTSSR
€0, TSOB(RS )
PC,CHKTSSR
R2,TSOB(RS)

PC,CHKTSSR
TSBA(RS), (R1)

016336

(R1)+,(R4).

000010
002224

002300

000012
000200

002300

000176

:
204

:
254

27s:

30¢:
S0
:

$SAVE THE GENERAL REGISTERS
1ADORESS TO SAVE THE RAM DATA
1BYTE ADDRESS OF FIRST RAM DATA
tCLEAR THE ERROR FLAG
1MAIT FOR SSR
1SET MAINTENANCE TMMODE
tWAIT FOR SSK TO SET

1 SELECT NEXT RAM ADDRESS
tWAIT FOR SSR TO SET
1READ THE RAM DATA
1COMPARE TO EXPECTED
1BRANCH IF 0K
1SET ERROR FLAG
1ADDORESS OF NEXT RAM LOCATION
sASSUME EXTFEA NOT SET
11IS THE SOFTWARE EXTENDED FEATURES SET
1BR, IF NOT SET
1SEV RAMSIZ FOR EXTEND FEATURES
tAT END OF EXTENDED BUFFER
18R, IF NOT AT END YET
sAT END BRANCH
tREACHED END YET ?
1BRANCH TILL ALL READ
1WAS AN ERROR FOUND ?
1BRANCH IF NOT
1CLEAR CARRY TO SHOW ERROR
1AND EXIT
1 SHOW GOOD COMPARE
1RETURN

G5
MACRO M1113
14-JUN-84
TSV3 - GLOBAL AREAS
- COMPARE WRITE CHAR. MESSAGE BUFFERS
CKMSG

.SBTTL

1264
1265
1266
1267
1268

5EQ 0058

CKMSG

- COMPARE WRITE CHAR.

MESSAGE BUFFERS

tROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPD AND RECV
1BUFFER, THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR
1ERROR PRINT ROUTINES.

1269

1270

; INPUT ;

1271
1272
1273

RO
R1
R2

1274
1275
1276
1277

RECV MESSAGE BUFFER HMIGH ORDER ADDRESS
RECV MESSAGE BUFFER LOW ORDER ADDRESS
EXPD MESSAGE BUFFER ADDRESS

SET
CLR

1278
1279
1280
1281
1282

- MESSAGE BUFFERS MATCH
-MESSAGE BUFFERS DON'T MATCH

;

s IMPLICIT QUTPUT:

:
:
:

1283
1264
1285

1286
1287
1288

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

EXPMSG
RECMSG
RCVYHIADD
RCVLOADD

SET

TO LOW ORDER ADDRESS OF RECV

‘—

1289 011360
1290 011360
1291
1292
1293
1294
1295
1296
1297
1298
1299

15:15

:
CKMSG:

SAVREG

011364

002302
002304
003132

MoV
MOV
TST

RO, RCVYHIADD
R1,RCVLOAD
KTENABLE

011402
011406
011410
011412
011414

017316

JSR

PC SETMAP

011370
011374
011400

1300 011416
1301 011422
1302 011426
1303 011430
1304 011432
1305 011434
1306 011440
1307 011444
1308 011446
1309 011454
1310 011456
1311 011462
1312 011464
1313 011466
1314 011470
1315 011472
1316 011474
1317 011476

BEQ

10¢:
002320
002464

1S¢:

000002
000014

254:

000016

S04 :

55%¢:

604 :

1 SAVE RECVY HIGH ADORESS
$1SAVE RECV LOW ADDRESS
;TESTING ABOVE 28K?
18R IF NO

tRETURN ADDRESS BIASED TO PAR6 IN RO

MOV

RO,R1

CLR
MOV
MOV
MOV
ce
B8EQ
INC
ADD
ce

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

8IT
BEQ

X2 .EXTF ,XST2(RS);
IS EXTENDED FEATURES SET IN EXPD?
S04
1BR IF NO

CLR

8LE

000012

10¢

$1SAVE R1-RS UNTIL NEXT RETURN

$1GET RETURNED ADDRESS BIASED TO PAR6

sWORD IN BUFFER

R4, 014

sOONE FIRST 7 WORDS?

154

sCLEAR ERROR SEEN FLAG
1GET EXPD OUFFER ADDRESS
;SAVE EXPD FOR ERROR REPORT
;SAVE RECY FOR ERROR REPORT
1EXPD EQUAL RECV?
1BR IF YES
;1SET ERROR SEEN FLAG
tPOINT TO NEXT WORD ADDRESS
1BR IF NC

cHp

R4,016

1DONE EXTENDED FEATURES WORD?

TS7

s ANY ERRORS SEEN?

B8R
SEC

604

BLE

BEQ
CLC

RTS

154

SS¢

1BR IF NO

;BR IF NO
1SET FAILURE

]
1 SET SUCCESS
;sRETURN

HS
TSV

CKXMSG2

GLOBAL AREAS

MACRO M1113

14-JUN 84 15:15

5EQ 0059

COMPARE EXPD RECV MESSAGE BUFFERS

CKMSG2

.SBTTL

1319

1320
1321
1322
1323
1324
1325
1326

- COMPARE EXPD RECV MESSAGE BUFFERS

1ROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE
1BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR
tERROR PRINT ROUTINES.
3

: INPUT

1327
1328
1329
1330
1331
1332
1333
1334
1335
1336
1337
1338
1339
1340
1341 011500
1342 011500
1343 011504
1344 011510
1345 011512
1346 011516
011516
011522
011526
011530
011532
1347 011536
011542
011546
011552
011554
011560
011562

011564

011566
011572
011576
611600
011602
011604
011610
011612
011614
011616
011620
011822
011624
011626
011630

:
:
:

RO
R1
R2
R3

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

CARRY

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

3 OUTPUT:
:

:
:

+IMPLICIT OUTPUT:
:
i

;

EXPMSG
RECMSG
RCVHIADO

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

ScT TO MIGH ORDER ADDRESS OF RECV

RCVLOADD

SET TO LOW OROER ADDRESS OF RECV

CKMSGe:

020327
003412
012703

000144

012746
012746
010600
104417
062706
010037
010137
005737

011632
000001

001403
004737
010001
005004
005005
111264
111164
122221
001401
005205
062704

020403

002001
000764
005705
001402
000241
000401
000261
000207

000144

000004
002302
002304
003132

R3, SRECMSG-EXPMSG;
880 IS COUNT ABOVE MAX ALLOWED?
St
18680 BR
1
ORECMSG -EXPMSG, RS ; 58D

MOV
MOV
MOV

e1,.-(SP)
SP,RO

PRINTF

S¢:

$1SAVE R1-RS UNTIL NEXT RETURN

SAVREG
cP
BLE
MOV

TRAP
ADD
MOV
MOV

SDEBUGMSG
;1880
SQOEBUGMSG, -(SP)
CSPNTF
o4 ,SP

RO, RCVHIADD
R1,RCVLOAD
KTENABLE

104

017316

002320
002464

15¢:

000001

25%:

sCLEAR ERROR SEEN FLAG

1SET ERROR SEEN FLAG

R4 ,R3
SO#

;O0ONE ALL BYTES?
1BR IF YES

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

#1,.R4
15¢

554

SEC

RTS

:BR IF NO

;RETURN ADDRESS BIASED TO PAR6 IN RO
1GET RETURNED ADORESS BIASED TO PAR6

5S¢
:
604
:

1SAVE RECV LOM ADODRESS
;1TESTING ABOVE 28K?

PC,SETMAP
RO,R1
R4

10%:

1SAVE RECVY HIGH ADDRESS

;WORD IN BUFFER

;SAVE EXPD FOR ERROR REPORT
;SAVE RECV FOR ERROR REPORT
1EXPD EQUAL RECV?
1BR IF YES

s+POINT TO NEXT BYTE
100 NEXT BYTE

s ANY ERRORS SEEN?

604

1BR IF NO
1SET FAILURE
H

s RETURN

1SET SUCCESS

15
TSV3 - GLOBAL AREAS
- COMPARE EXPD
CKMSG2
1371 011632
1372 011722

1373 011733
1374 011766
1375 012021
1376
1377

120
045
040
056
124

MACRO M1113
122
116
040
056
105

1395

012044
012044

117

DEBUGMSG:

123

ERCM:
SIMSG:
TINERR:

045
124
056

FERCM:

.ASCIZ

_ASCII

.ASCIZ
.ASCIZ

.QSEIZ
.EVEN

5€Q 0060

'PROGRAM INTERNAL ERROR

/#NwA

ese/

/TEST:

.../

-CKMSG2 MESSAGE BUFFER EXCEEDED-

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

:PRINT ROUTINE TO FATAL SOFT INIT ERRORS

;INFUT:

CONTENTS OF TSSR AT ERROR

1SIDE EFFECTS:

004737
004737

006022
017202

SFIMSG::

L10003:

104423

1396
1397
1398
1399

EXECUTES DROP UNIT TO CEASE TESTING
BGNMSG

SFIMSG

JSR
JSR

PC.PRITSSR
PC . CKDROP

TRAP

C$MSG

ENOMSG

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

:PRINT ROUTINE TO PRINT THE CONTENTS OF

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

: INPUTS;

1400
1401

;

1402
1403

1404
1405
1406
1407 012046
012046
1408 012046
1409 012052
1410 012056
1411 012062
012062
012062

15:15

HRJ

1378

1379
1380
1381
1382
1383
1384
1385
1386
1387
1388
1539
1390
1391 012034
012034
1392 012034
1393 012040
1394 012044

14-JUN-84

RECV MESSAGE BUFFERS

004737
¢12700
004737

104423

PKTSSR:
:

006022

007366
L10004:

TSSR CONTENTS

ADDRESS OF COMMAND PACKET

BGNMSG

PKTSSR

JSR
MOV

PC,PRITSSR
04 ,RO

TRAP

C#MSG

JSR
ENDMSG

PC,PRIPKT

sPRINT THE CONTENTS OF TSSR REGISTER
tNO. OF WORDS IN PACKET

;PRINT THE CONTENTS OF COMMAND PACKET

; 38D

\J_)

MACRO M1113 14-JUUN-84 15:15
TSV3 - GLOBAL AREAS
CKMSG2 - COM~ARE EXPD RECV MESSAGE BUFFERS
K
+PRINT ROUTINE TO PRINT

1413
1414

SEQ 0061

THE CONTENTS OF

1415

s TSSR AND A GET STATUS COMMAND PACKET,

1417

s INPUTS:

1419

1416

1418

1420

ADORESS OF COMMAND PACKET

BGNMSG

PXTGETS

1421

012064
1423 012064

PKTGETS: :
JSR

1422 012064

1424 012070
1425 012074

1426 012100
012100
5 012100
1427

004737

012700
004737

006022

000002
0Q7366

MOV
JSR

L1000S:

104423

TSSR CONTENTS

ENDMSG
TRAP

PC,PRITSSR

#2,R0
PC,PRIPKT

;PRINT THE CONTENTS OF TSSR REGISTER

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

C$MSG

llgg

sPRINT TSSR ERRORS FOR INITIALIZATION TESTS

1430

: INPUTS;

1431
lzg

:
H

1434 012102
012102

1435 012102

1436 012106

012106

143;1

012106

004737

006022

SFFMSG: :

L10006:

104423

144]

;

1439
1440

R1
R4

TSSR CONTENTS
ADDRESS OF COMMAND PACKET

BGNMSG

SFFMSG

JSR

PC,PRITSSR

ENDMSG

TRAP

.SBTTL

C$MSG

PKTMES

,PRINT CONTENTS OF

- PRINT TSSR AND MESSAGE BUFFER

sPRINT ROUTINE TO PRINT THE CONTENTS OF
:BUFFER FOR ERROR REPORTS

1442

[SSR REGISTER

TSSR AND MESSAGE

: INPUTS:

1443

1444
1445

;
;

R1
R2

i:g

NOTE: R3 IS IGNORED IF KTENABLE FLAG IS CLEAR

1446

1449 012110
012110

;

1450 012110

004737

006022

1453 012120

004737

014242

1451 012114
1452 012116

1454 012124
012124
012124

010200
010301

104423

PKTMES: :

HIGH ORDER MESSAGE BUFFER ADDRESS

BGNMSG

PKTMES

JSR

PC.PRITSSR

JSR

PC ,PRMESS

MOV
MOV
L10007:

CONTENTS OF TSSR
LOW ORDER MESSAGE BUFFER

ENOMSG
TRAP

R2,R0O
R3,R1

C4M56

stPRINT CONTENTS OF TSSR

;LOW ORDER ADDRESS
;1HIGH ORDER ADDRESS

;PRINT THE MESSAGE BUFFER

MACRO M1113
14-JUN 84
TSV
GLOBAL AREAS
PRINY TEST ADDRESS AND TSSR
ADDSSR

15:15
.SBTTL

1456

1457

56EQ 0062
ADDSSR

TEST

ADDRESS

AND

TSSR

:PRINT ROUTINE TO PRINT THE CONTENTS OF

1458
1459
1460

:TSSR AND A MEMORY TEST ADDRESS

: INPUTS:

1461
1462

1463

1464

1465

ERRHI
ERRLO

FIRST DEVICE UNIBUS ADDRESS
HIGH ORDER MEMORY TEST ADORESS

LOW ORDER MEMORY TEST ADDRESS

1466

1467
1468 012126
012126
1469 012126
1470 012132
1471 012136
1472 012142
012142

1473
1474
1475

012142

ADDSSR:
:

004737
016501
004737

010272
000002
006022
L10010:

104423

ADDSSR

JSR
MOV
JSR
ENOMSG

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

TRAP

C#MSG

.SBTTL

MSGEXP

1PRINT MEMORY TEST ADDORESS
+GET CURRENT TSSR
;PRINT THE CONTENTS OF TSSR REGISTER

- PRINT WRITE CHAR.

EXPD-RECV MESSAGE BUFFERS

HE4

1476
1477
1478

{PRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER
s IMPLICIT INPUTS:

1479

1480
1481
1482
1483
1484
1485
1486 012144
012144
1487 012144
1488 012150
1489 012154
1490 012156
1491 012162
1492 012166
012166
012166

BGNMSG

EXPMSG
RECMSG

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS

012700
005737
001402
012700
004737

104423

000007
002224

000010
014552

- EXPECTED MESSAGE BUFFER
- RECEIVED MESSAGE BUFFER

:
H

MSGEXP:
:

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS

BGNMSG

MOV

L10011:

#7,.R0

sASSUME NO EXT FEATURES

:BR IF NO

¥ST

EXTFEA

MOV

08. ,RO

8€EQ
S5%:

MSGEXP

JSR

PC ,PRMSGEXP

TRAP

C$MSG

ENDMSG

;EXT FEATURES SET?

1EXT FEATURE BUFFER 1S 8 WORDS

tPRINT EXPD/RECV MESSAGE BUFFERS

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

14-JUN-84

15:15

SEQ 0063

FIFEXP

.SBTTL

1494
1495
1496
1497
1498
1499
1500
1501

1502
1503
1504
1505
1506 012170
012170
1507 012170
012170
012172
012176
012202
012204
012206
1508 012212
012212
012216
012222
012224
012226
1509 012232
1510 012234
1511 012240
012240
012240
1512 012242
1513 012311
1514

FIFEXP

FIFO EXP/RECV DATA

;PRINT ROUTINE TO PRINT FIFO EXP/RECV DATA
i

;

- BYTE COUNT

s IMPLICIT INPUTS:
H
H

EXPMSG
RECMSG

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

BGNMSG

FIFEXP

PRINTX

#F IF1MSG,R1

‘-

FIFEXP::

010146
012746
012746
010600
104415
062706

012746
012746
010600
104415
062706
010100
004737
104423
045
045

MOV
MOV
MOV
MOV

012242
000002

TRAP

ADD

000006

PRINTX
MOV
MOV

012311
000001

MOV

TRAP

000004

015122
L10012:
116
116

045
04S

FIFIMSG:
FIF2MSG:

ADD
MOV
JSR
ENDMSG
TRAP

.EVEN

tPRINT BYTES TRANSFERRED

#F IF IMSG, -(SP)

SP,RO
C4PNTX
#6,5P

#F IF 215G
OFIF2MSG,
- (57)

tPRINT HEADER MSG

SP,RO
CHPNTX

o4 ,S5P
R1.RO
PC.PRBYTEXP

C$MSG
.ASCIZ
.ASCIZ

;GET BYTE COUNT
tPRINT FIFO BYTES IN ERROR

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

TSVS - GLOBAL AREAS
MACRO M1113 14-UUN-84 15:15
MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS
1516

SEQ 0064

.SBTTL

1517

MSGSTAT

:
;PRINT ROUTINE

1518
1519

1522

sIMPLICIT INPUTS:

1523
1524
1525
1526
1527
1528
1529 012359
012350

:
:
:
:
:
H

1530 012350
1531 012354

012701
012100

012412

012360
012362
012366

010046
012746
010600

000001

1532 012356
1533 012360

012370

012372
1534 012376
1535 012400
1536 012404
1537 012410

012410

10¢:

001410

104415
062706
000766
012700
004737

000004

000012
014552

204 :
L10013:

104423

1539 012412

012430

012472

012563

045
045
045
045

116
116
116
116

045
045
045
045

1540 012430

012472
012563
012654
012745

{?‘2 013007

045

1i6

116

EXPMSG
RECMSG
RCVHIADDRCVLOADD-

BGNMSG
MSGSTAT: :

1538 012410

1547

PRINT STATUS HEADER AND MESSAGE BUFFERS

TO PRINT MESSAGE BUFFER EXPO/RECV

1520

1521

1541
1542
1543
1544

HAS

045

EXPECTED
RECEIVED
RECEIVED
RECEIVED

O®STATCOD,.R1
(R1)+,RO

MOV
MOV
MOV

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

TRAP
ADD
B8R
MOV
JSR

ENDMSG

TRAP

STATCOD:

14:.ASCIZ

24:.ASCIZ
34:.ASCIZ
43:.ASCIZ
S8:.ASCIZ

BUFFER
BUFFER
BUFFER HIGH ORDER ADDRESS
BUFFER LOW ORDER ADORESS

MSGSTAT

MOV
MOV

8EQ
PRINTX

MESSAGE
MESSAGF
MESSAGE
MESSAGE

204
RO

;ASCII ADORESS TABLE
;OONE ALL MSG LINES?

:1BR IF YES
;PRINT STATUS BIT NAMES

COPNTX

o4, SP
10¢
#10. RO
PC . PRMSGE XP

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

of 1.7
. WORD

14,28.34,.44,54,64.0

'sNsA Tepe Bus Signale in Word #8:°

'¢NsA
PARERR<1S>
JEOT
«<«12>
'eNsA
IRESV2<14>
IIDENT<¢11l>
'eNsA
IRESV1<13>
ICER
«<10>
'eNsA Tepe Bus Signels in Word 09:°

60:.ASCIZE é“fi
.EVEN

DATMIS<7>

ILW<6>

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

OUTROY<S>

JRDY<6>
IONL<S>
ILDP<4>

INRDY<4>

IRWD<2>'
IFBYcl>’
IFPT«O>'

TSV3

MSGL O0P

GLOBAL AREAS

MACRO TMM1113

14-AN-84

15:15

SEQ 0065

PRINT LOOPBACK HEADER AND MESSAGE BUFFERS

.SBTTL

1549
1550
1551
1552

155
155«
175
1556
1557
1558
1559
1560
1561 013064
013064
1562 013064
1563 013070
1564 013072
1565 013074
013074
013076
013102
013104
013106
1566 c13112
1567 o13114
1568 013120
1569 013124
013124
01312
1570
1571 013426
1572 013146
1573 013221
1574 013320
1575 013417
1576 013516
1577 013615
1578 C13714
1579

MSGLOOP

LUOPBACK

HEADER AND MESSAGE

BUFFERS

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

- EXPECTED MESSAGE BUFFEPR
- RECEIVED MESSAGE BUFFER

BGNMSG

MSGLOOP

MOV
MOV
8EQ

oLO0PCO0D,R1
(R1)+,R0O
204

RCVHIADO- RECEIVED MESSAGE BUFFER WIGH URDER ADORESS
RCVLOADO
RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS

012701

012100
001410

010046

012746

010600

104415
062706

000766
012700
004737

MSGL 00P :

013126

104

PRINTX

MOV
MOV
HOvV

000001

TRAP

000004

ADO

20¢:

000012
014552

L10C14-

104423
013146
045
045
045
045
045
045
045

013221
116
116
116
116
116
116
116

013320

045

045
045
045
045
045
045

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

SP.RO
CIPNTX
“ly

B8R
MOV
JOR
ENDMSG

#10. RO
PC , PRMSGE
XP

TRAP

C#msSG

1Cs

;ASCII ADORESS TABLE
;OONE ALL MSG LINES?
:8R IF YES

;PRINT STATUS BIT NAMES

10C ANCTHER M55 LINE
{NUMBER OF WORDS IN A READ STATUS BUFFER
:PRINT EXPD/RECYV MESSAGE BUFFERS

LOOPCOO:
WORD
14,2%,3¢ .44,58,68,78,0
* NSA Tape Bus Loopbeck Signels in Word #8:"
1s: .ASC12Z
' NSA
PARERR«15>
2es: .ASCIZ
IRESV2<14>
3 .ASCIZ
' NSSA IMISP=>IEQT
12>
JURT=>IIDENT<11>
44 .ASCIZ
' NEA IWFM «>IFMKX<09>
IEDIT=>IHER <08>
' NSA ITADO=>IRDY
S¢: .ASCI12
06>
ITAD1=>IONL <OS>
' SNSA IREW =>IDBY 03>
64: .ASCIZ
IRW =>IRWD <02>
7¢: .ASCIZ
‘ SNSA IGO
+>IFPT<00>"
.EVEN

IREV

IRESV]1<«13>’
> ICER
«10>°

IFAD
«>ISPEED<«O7>’
IERASE=>ILDP
<«04d>°
IFEN
«>IFBY
«0)1>’

TSVS

- GLOBAL AREAS

“MACRO M1113

14-JUN-84 15:15

5EQ 0066

MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER
1581
1582
1583
1584
1585
1586
1587
1588
1589
1590
1591
1592
1593
1594 013742
013742
1595 013742
1596 013746
1597 013752
013752
013752
1598
1599
1600
1601

LSBTTL

- PRINT WRITE SUBSYSTEM MESSAGE BUFFER

1PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV
H

+IMPLICIT INPUTS:
- EXPECTED
EXPMSG
- RECEIVED
RECMSG
RCVHIADO- RECEIVED
RCVLOAOC- RECEIVED

012700
004737

000012
014552

MSGSUB
::

L10015:

104423

BGNMSG

MSGSUB

MOV
JSR

#10. ,RO
PC , PRMSGE XP

TRAP

CeMSG

.SBTTL

MEMADO

ENDMSG

MESSAGE
MESSAGE
MESSAGE
MESSAGE

BUFFER
BUFFER
BUFFER HIGH ORDER ADORESS
BUFFER LOW ORDER ADORESS

1SIZE OF WRITE SUBSYSTEM BUFFER
1PRINT EXPO/RECY MESSAGE BUFFERS

- PRINT MEMORY ADORESS DATA ERROR

1PRINT ROUTINE TO PRINT MEMORY ADORESS DATA COMPARE ERROR

1602

1603

1604
1605
1606
1607
1608
1609
1610
1611 013754
013754
1612 013754
1613 013760
1614 013764
1615 013770
1616 013774
013774
013774

MSGSUB

s IMPLICIT INPUTS:

H
H

004737
013701
013702
004737
104423

010156
002230
002232
007740

- MEMORY ERROR HIGHM ORDER ADORESS
- MEMORY ERROR LOW ORDER ADORESS

BGNMSG

MEMADD

JSR
MOV
MOV
JSR

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

TRAP

C#MSG

EXP
RECV

[
g

ERRHI
ERRLO

- EXPECTED DATA
- RECEIVED DATA

MEMADOD:
:

L10016:

ENDMSG

1PRINT MEMORY ADORESS IN ERROR

1GET EXPD DATA

1GET RECEIVED DATA
1PRINT EXPO/RECYV

Ct,
-

TSV3

- GLOBAL AREAS

MACRO M1113

PRAMPXT - PRINT RAM AND PACKET DATA

14-JUN-84 15:15
.SBTIL

1618

1619
1620
1621
1622

SEQ 0067
PRAMPKT

RAM AND PACKET

tPRINT ROUTINE TO DISPLAY RAM/PACKET DATA
tWHEN THE RAM DATA DOES NOT MATCH.
3

1623

1 INPUTS:

1625

POINTER TO COMMAND PACKET
R4
3
tIMPLICIT INPUTS:

1624

1626
1627
1628
1629

1630
1631
1632
1633
1634 013776
1635 013776
1636 014002
1637 014006
1638 014010
1639 014012
1640 014014
1641 014024
1642 014026

1643 014032
1644 014036
1645 014046
1646 014052
1647 014060

1648 014066
014066
014070
014074
014100
014102
014106
014112
014114
014116
1549 014122
1650 014124
1651 014130
1652 014132
1653 014136
1654 014140
1655 014142
1656 014146

1657 014150
1658 014154
1659
1660 014156
1661

DATA

H
3

RAMDATA

DATA AS READ FROM THE RAM

NUMBER OF BYTES IN PACKE?T

RAMSIZ

IF RAMSIZ=0 THEN DEFAWLT TO 8.

;IMPLICIT QUTPUTS:
RAMSIZ SET T0 O
H
PRAMPKT;

012701
005002
122124
001005

002240

S¢:

177717
177777

042703
116137

177400
177777

010346
013746
013746
010246
012746
012746
010600
104414
062706
0035202
005737
001404

MRAMDATA ,R]1
Re
(R1)+,(R4).
74¢

$SAVE R1-RS UNTIL NEXT RETURN
1OATA FROM THE RAM
s INIT BYTE NUMBER
sCOMPARE EXPECTED, RECEIVED
1BR IF NO MATCH

BR
MOV8
MOVS
XOR
8IC

10¢
-1(R1),.RS
-1(R4),R3
RS,R3
0177400,R3

; 880
1GET RECV RAM DATA
1GET EXPO PACKET DATA
1 XOR EXPO/RECY
;LOW BYTE ONLY

MOVe

-1(R4),EXPD

1GET EXPECTED RAM DATA

FORCERROR

000436
116105
116403

116437

SAVREG
MOV
CLR
CrP8
BNE

1771

74%:

002232

MOVe

002230

002230
002232

014156
000005

10¢:

002300

116

MOV
MOV
MOV
MOV

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

MOV

SP RO

ADD
INC

#14,5P
R2

tUPOATE BYTE COUNT

1BR IF YES

187

045

CSPNTB
RAMSIZ

;DEFALT 10 8.2

15¢:
204 :
25¢4:

o,
BLE
B8R
crP
BL?Y
CLR

R2,RAMSIZ
St
234
R2,68.
St
RAMSIZ

RAMASC:

.AS(E:IZ

'SNSA

002300

sGET RECEIVED RAM DATA

ORAMASC,R2,RECV,EXPD,R3

BEQ

000010

-1(R1),RECV

PRINTB

TRAP

000014

74 ,NOTSSR

RTS

.EVEN

1OONE ALL BYTES?
1BR IF NO
8
;1OONE DEFAALT NUMBER OF BYTES?
iBR IF NO
1SET DEFAWLT RAMSIZ
sRETURN

BYTE: #D28A RAM: #038A Packet: #03#A XOR:#03'

D¢,
TSVS

- GLOBAL AREAS

PRMESS

MACRO M1113

14-JUN-84

- PRINT CONTENTS OF MESSAGE BUFFER

15:15

.SBTTL

1663
1664

S€EQ 0068
PRMESS

PRINT CONTENTS OF MESSAGE BUFFER

: THIS ROUTINE PRINTS THE CONTENTS OF

1665

;THE 7 OR 8 WORD MESSAGE BUFFER RETURNED BY THE TSV 0S.

1666
1667
1668
1669

s INPUT;

:
z

1670

1671

1672
1673
1674 014242
1675 014246
1676 014230
1677 014254
1678 014256
1679 014260
1680 014262
1681 014264
1682 014266
014266
014270
014272
014276
014302
014304
014306
1683 014312
014312

014316

014322
014324
014326
1684 014332
1685 014334
1686 014336
1687 014340
014342
1689 014346
1690 014350
014350
014352
014354
014360
014364
014366
014370
1691 014374
1692 014376
1693 014402
1694 014404
014406
1696 014414
1697 014416
1698 014420
1699 014465
1700 014523

RO
R}

LOW ORDER ADORESS OF MESSAGE BUFFER

HIGH ORDER ADORESS OF MESSAGE BUFFER

NUTE: R1 IS IGNORED IF KTENABLE FLAG IS CLEAR

;YHIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE

010005

005737

001001

PRFESS: SAVREG
MOV
TST
BNE

003132

10¢:

010103

006100
006101

010546

010146
012746

012746
010600
104415
062706

012746
012746
010600
104415
062706
010501
010300
001403
004737
010005

012546
010446
012746

012746
010600
104415
062706

014420
000003
000010

014465
000001

002761
032763
001355
000207
045
245
045

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

R1
#PROASC,R1,RS

ROL

MOV

8EQ

JSR
MOV
PRINTX
MOV
MOV
MOV
MOV
MOV
TRAP

ADD
INC

020427
000012

116
116
116

045
045

S04 :

PROASC:
PR1ASC:
PRASC:

104

R1
R1.R3

ADO
CLR
MOV

014523
000003

KTENABLE

CLR
MoV

TRAP

017316

RO,RS

cw
8GT
aLTY
8IT
BNE

RTS

.ASCIZ
.ASCI2
.ASCIZ

1SAVE THE REGISTERS
1SAVE LOW ORDER ADDRESS
?
1 ADDRESS ABOVE 28K
YES
t1BR IF
1SET HIGH ORDER ADDRESS TO O
1SAVE HIGH ORDER ADORESS
sSHIFT BIT1S TO C BIT

sSHIFT TO HIGH ORDER FOR PRINTOUT

1PRINT MESSAGE BUFFER ADDRESS

®PROASC, -(SP)

SP,RO
CHPNTX

€10, SP
SPR1ASC
OPR1ASC, -(SP)

1PRINT HEADER FOR CONTENTS

SP,RO
COPNTX
#4,SP

R3.R1

R3,RO

28K

204
PC,SETMAP
RO,RS

1SETUP PAR ADORESS IN RO

#PRASC ,R4,(RS).

(RS)e,-(SP)

1GET PAR FORMAT ADDRESS ABOVE 28K

1tPRINT THE CONTENTS OF MEMORY BUFFER

#PRASC, -(7P)

SP.RO
COPNTX

#10,5P
R4
R4 ,07

iNUMBER OF THE NEXT
sOONE ALL YET ?
1BRANCH IF ALL DONE

S50
{PRINT FIRST 7 WORDS
204
#X2.EXTF ,XST2(R3);EXTENDED FEATUTES ON ?
sPRINT EXTENDED STATUS WORD
204
PC
;sRETURN
' SNSA Message Buffer Address = %01%05'
'SNSA Message Buffer Contents:'
' NSA

WorduDisA: %0’

TSV3 - GLOBAL AREAS

PRMESS

MACRO M1113

14-JUN-84 15:15

SEQ 0069

- PRINT CONTENTS OF MESSAGE BUFFER

.EVEN
.SBTTL

1702
1703

1704

PRMSGEXP

- PRINT EXPO/RECV MESSAGE BUFFERS

1705

zQOUTINE 50 PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS

1707

zINr-ICIT INPUTS
- EXPECTED MESSAGE BUFFER
EXPMSG
;

- NUMBER OF WORDS IN BUFFER

1706
1708

1709
1710
1711
1712
1713 014552
1714 014552
1715 014556
1716 014560
1717 014564
1718 014566
1719 014572
1720 014574
1721 014576
014576
014600

1722

1723
1724
1725
1726
1727
1728
1729

1730

1731

1732

1733

1734
1735
1736
1737

014602
014606
014612
014614
014616
014622
014622
014626
014632
014634
014636
014642
014644
014650
014654
014656
014660
014670
014670
014672
014674
014676
014700
014704
014710
014712
014714
014720
014722
014724
014726

014730
014732

014777
015035

RECMSG

- RECEIVED MESSAGE BUFFER

RCVHIADD - RECEIVED MESSAGE BUFFER WIGH ORDER ADDRESS
RCVLOADOD - RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS

i
3
-

PRMSGEXP::

010005
013700
010004
013701
006100
006101
010446
010146
012746
012746
010600

104415
062706

SAVREG
MOV

002304
002302

000010

014777
000001

012701
012702
011100
011203

002320
002464

002001
000752
000207
045
045
045

1 SAVE NUMBER OF WORDS

tGET RECV LOW ADORESS
1COPY LOM ADORESS

1GET RECV HIGH ADORESS
1SHIFT BIT15 TO0 C BIT
tSHIFT TO HIGH ORDER FOR PRINTOUT
tPRINT MESSAGE BUFFER ADDRESS

;PRINT HEADER FOR CONTENTS

000004

siNUMBER OF THE CURRENT WORD
$1GET EXPD BUFFER ADDRESS
1GET RECV BUFFER ADDRESS

:
204

(R2),R3
RO,R3

;GET EXPOD
t1GET RECV

1 XOR EXPD/RECV
OPRHSG2.R4.(R1)0 «(R2)+,R3

010346
012246
012146

012746
012746
010600
104415
062706

1SAVE R1-RS UNTIL NEXT RETURN

014732
000003

012746
012746
010600
104415
062706

010446

RO,RS
RCVLOADD,RO
RO,R4
RCVHIADO,R1
RO
R1
#PRMSGO,R1
, R4

(R2)+,-(SP)
(R13+,-(SP)

R4, -(SP)
#PRMSG2,
- (SP)

015035
000005

SP,RO
COPNTX

000014

116
116
116

045
045
045

S04
:

PRMSGO
:
PRMSGL:
PRMSG?:

RTS

.ASCYZ
.ASCIZ
.ASCIZ

#14,5P
R4
INUMBER OF THE NEXT
R4 ,RS
;DONE ALL YET?
504
aBR IF YES
20¢
100 ANOTHER
PC
;RETURN
'WNsA Messege Buffer Address = #01%05'
‘'SNSA Mess
Buffer Contents:’
' NSA
MD2sA
EXPD: #068A
RECV:
WOR

#06%A

XOR:

[ ¢
TSV3

MACRO M1113
14-JUN-84 15:15
- GLOBAL AREAS
PRINT EXPD/RECV MESSAGE BUFFERS

5EQ 0070

PRMSGE XP

.EVEN
.SBTTL

1739

1740
1741

1742

tROUTINE

1743
1744
1745

}

;

1746

1747
1748
1749
1750
1751
1752
1753 015122
1754 015122
1755 015126
1756 015130
1757 015134
1758 015136
1759 015142
1760 015146
1761 01351590
1762 015154
1763 015160
1764 015162
1765 015166
1766 015172
1767 015202
1768
1769
1770
1771
1772

PRBYTEXP

PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER

3¢

015204
013206
015212
015220
015222
015222
0135224
015230
015234
015236
015242
015246

015250
015252
1773 015256

1774 015266
1775 0135270
1776 015270
1777 015300
1778 015300
1779 015302
1780 015304
1781 015306
1782 015310

015310
015314
015320
015324

TO PRINT ERROR BYTES IN MESSAGE BUFFERS

ONLY THE FIRST 8 ERRORS ENCOUNTERED ARE PRINTED OUE TO SCREEN SPACE
- NUMBER OF BYTES IN BUFFER

+IMPLICIT INPUTS:
:

EXPMSG

- EXPECTED MESSAGE BUFFER

- RECEIVED MESSAGE BUFFER

RECMSG

PRBYTEXP::

010005
005037
005004
012701
012702
111100
042700

110037
111203
042703
110337
122122
001431
005237
023727
101023
010346
013746
013746
010446
012746
012746
010600

104415

062706

SAVREG

002316
002320
002464

RO,RS
PRMNO

MOV8e
8IC

(R1),RO
#tC<377>,R0O

CLR
MOV
MOV

R4
SEXPMSG,R1
ORECMSG ,R2

MOve
MOVB

RO,PRBEXP
(R2),R3

XOR

RO,R3

BIC
MOV

177400
015472

0tC<377>,R3
RS ,PRBREC

CrPB
002316
002316

INC

000010

015472
015470
015336
000005

BHI
PRINTX
MOV
MOV
MOV
MOV
MOV

30s:

35¢:

002316
015423
000002

S04 :

1CLEAR UPPER BYTE
tFOR ERROR REPORT
1 XOR EXPO/RECY

1EXPD = RECV?

sUPOATE ERROR COUNT

304
1BR IF YES
OPRBMSG,.R4,PRBEXP,PRBREC,R3
R3,-(SP)
PRBREC, -(SP)
PRBEXP, -(SP)
R4, -(SP)
OPRBMSG, -(SP)
SF,.RO

CHPNTX

014,5P
354

S04

278 ,NOTSSR

R4 ,RS

BR
PRINTX

204
@PKRBTOT,PRMNO

MOV
MOV
MOV

#PRBTOT, -(SP)
02,-(SP)
SP.RO

B8GE

;SAVE FOR ERROR REPORT
+GET RECV BYTE

1PRINTED 8?

PRMNO

FORCERROR

INC

1GET EXPD BYTE
sCLEAR UPPER BYTE

PRMNO, #8 .

FORCEXIT

tNMBER OF THE CURRENT BYTE
sGET EXPD BUFFER ADDRESS
;1GET RECV BUFFER ADORESS

s8R IF YES

TRAP

ADD

1SAVE NUMBER OF BYTES
1INIT ERROR COUNT

30¢

MOV

000014

005204
020405
002001
000717

(R1)+,(R2)+

B8EQ

274:

000404

013746
012746
012746
010600

208 :

177400
015470

$SAVE R1-RS UNTIL NEXT RETURN

MOV
CLR

S0¢

1 880

; 880
1 880

1880

1NUMBER OF THE NEXT
sOONE ALL YET?

1BR IF YES

100 ANOTHER
1PRINT TOTAL ERROR COUNT

Go
TSV3

MACRO M1113

- GLOBAL AREAS

14-JUN-84 15:15

SEQ 0071

PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER
015326
015330
1783 015334
1784
1785 015336
1786 015423
1787
1788 015470
1789 015472
1790
1791
1792
1793
1794
1795
1796
1797
1798
1799
1800
1801
1802 015474
015474
1803 015474
1804 015500
015500
015500
1805
1806
1807
1808
1809
1810
1811
1812
1813
1814
1815

1816
1817
1818 015502
015502
1819 015502
1820 015506
015506
015506
1821
1822
1823
1824
1825
1826
1827
1828
1829
1830
1831

104415

TRAP

062706
000207

000006

045
045

116
116

ADO

045
045

PRBMSG:
PRBTOT:
PRBEXP:
PRBREC:

000000
000000

‘

CIPNTX
#6,SP

RTS

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

‘SNSA
BYTE ouwD2#A
EXPD: #038A
RECV:
'dNsA NUMBER OF BYTES IN ERROR = #D2’

s RETURN

1EXPD

{PRINT ROUTINE TO DISPLAY EXPD/RECV DATA

: INPUTS;

004737

007740

EXPREC::
L10017:

104423

RECEIVED DATA
EXPECTED DATA

BGNMSG

EXPREC

JSR
ENOMSG

PC,.PRIXOR

TRAP

C#MSG
EXPBREC

.SBTTL

;PRINT THE DATA

- PRINT EXPD/RECV BYTE DATA

HE4

{PRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA

1 INPUTS;
H

004737

104423

007610

BGNMSG
EXPRREC:
:
JSR
ENDMSG
L10020:

RECEIVED DATA BYTE
EXPECTED DATA BYTE

EXPBREC

PC,.PRIBXOR

TRAP

C4MSG

.SBTTL

RAMERR

tPRINT THE DATA

PRINT RAM AND PACKET DATA

HRd

\PRINT ROUTINE

TO DISPLAY RAM/PACKET DATA

INPUTS ;
:

POINTER TO COMMAND PACKET

8038A

XOR:

803’

HE
TSV3
RAMERR

GLOBAL AREAS

MACRO M1113

- PRINT RAM AND PACKET DATA

15:15

SEQ 0072

:IMPLICIT INPUT S:
@

1832
1833
1834
1835

ve
o0

015510

1844 015510

1845 015514
015514
015514

NUMBER OF BYTES

IN PACKET

IF RAMSIZ=0 THEN DEFAULLT

10 8.

@
®e

004737

013776

IMPLICIT OUTPU 1S:

RAMERR::

L10021:

104423

10 O

RAMSIZ

SET

BGNMSG

RAMERR

JSR
ENOMSG

PC . PRAMPKT

TRAP

C#MSG

.SBTTL

RAMTADD

tPRINT RAM/PACKET

TEST ADDRESS,

DATA

RAM AND PACKET DATA

:PRINT ROUTINE 70 DISPLAY RAM/PACKET DATA
:INPUTS:
R4

;

1854
1855

1856
1857
1858
1859
1860
1861
1862
1863
1864
1865
1866
1867
1868
1869 015516
015516
1870 015516
1871 015522
1872 015526
015526
015526
1873
1874
1875
1876
1877
1878
1879
1880
1881
1882

DATA AS READ FROM THE RAM

RAMOATA
RAMSIZ

1836
1837
1838
1839
1840
1841
1842
1843 015510

1846
1847
1848
1849
1850
1851
1852
1853

14-UUN-84

POINTER TO COMMAND PACKEY

IMPLICIT INPUT S:
RAMDATA
RAMSIZ

DATA AS READ FROM THE RAM

ERRHI
ERRLO

HIGH ORDER TEST ADDRESS

NUMBER OF BYTES IN PACKET

IF RAMSIZ=0 THEN DEFAWLT TO 8.

LOW ORDER TEST ADDRESS

IMPLICIT OUTPU 1S:

004737
004737
104423

010272
013776

RAMSIZ

SET

BGNMSG

RAMTADD

JSR
JSR
ENDMSG

PC,.PRITADD

TRAP

C#MSG

.SBTTL

RAMEXP

RAMTADD:
:

L10022:

T0 O

PC.PRAMPKT

tPRINT TEST ADDRESS

;PRINT RAH/PACKET DATA

- PRINT RAM EXPO/RECV DATA

sPRINT ROUTINE TO DISPLAY EXPD/RECV DATA
H

s INPUTS:
H

:
:

R1
R2

RECEIVED DATA
EXPECTED DATA

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

14-JUN-84 15:15

1883

1884

1885

1886 015530
215530

1887 015530
1888 015534
1889 015540

042701
042702
004737

1890 015544

004737

015550

104423

1891 015550
015550
1892

RAMEXP::

177400
177400
010064

007740
L10023:

1893

CONTROLLER RAM AD)RESS

B8GNMSG

RAMEXP

8IC
8I1C
JSR

€1tC<377>,R1
8tC<377> ,R2
PC ., PRIRAM

JSR

PC,PRIXOR

TRAP

CIMSG

.SBTTL

TIMEXP

ENOMSG

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

;1PRINT THE DATA

- PRINT TIMER A,B AND EXP/REC

1894

i e

1896
1897

1PRINT ROUTINE TO DISPLAY EXPD/RECV DATA
sAND TIMER A,B HEADER MESSAGE

1895

SEQ 0073

1898

1899

: INPUTS:

190C

1901
1902

:
:

1903

1904

1905 015552

015552
1906 015552
015552

015556
015562

015564
015566
1907 015572
1908 015576

TIMEXP::

012746
012746
010600
104415
062706
004737

015576
1909 015576

104423

igig 015600

045

015600
000001
000004
007740
L10024:

116

igig

045

TéHEGO:
.EVEN

R1
R2

RECEIVED DATA
EXPECTED DATA

BGNMSG

TIMEXP

PRINTX
MOV
MOV
MOV
TRAP
ADD
JSR

#TIMSGO
#TIMSGO, -(SP)
01,-(SP)
SP,RO
CS$PNTX
o4 ,5P
PC,PRIXOR

TRAP

CeMSG

LASCIZ

'wNeA TIMER A STATUS IS IN BIT 3#NwA TIMER B8 STATUS IS IN BIT 2

.SBTTL

BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS

ENDMSG

;PRINT HEADER

;PRINT THE DATA

1914
1915
ig%g

s
:
;PRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS

1918
1919
1920

;s INPUTS:
:
;
R1
;
R2
H
;

1921

1922
1923
1924

1925 015700
015700

1926 015700
1927 015702

010246
042792

BADSSR::

177400

CONTENTS .- TSSR
DATA WRITTEN (8 BITS)

BGNMSG

BADSSR

MOV
8IC

R2,-(SP)
0177400,R2

;SAVE DATA TRANSFERRED
1GET JUST ONE BYTE

MACRO M1113

TSV3 - GLOBAL AREAS

14-JUN-84 15:15

SEQ 0074

BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS
1928 015706
015706
015710
015714
015720
015722
015724
1929 015730
1930 015732
1931 015736
015736
015736
1932 015740

PRINTB

010246
012746
012746
010600
104414
062706
012602
004737
104423
045

MOV
MOV
MOV
MOV

015740
000002

TRAP
ADD
MOV

000006
006022

L10025:
116

045

XFERASC:

OXFERASC ,R¢

OXFERASC, -(SP)

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

(SP).+,R2

JSR
ENDMSG

PC,PRITSSR

TRAP

C$MSG
.ASCIZ

:RESTORE Re
:DECODE

TSSR CONTENTS

'uNsA Dates Transferred = %03’

<
TSV3

GLOBAL AREAS

MACRO M1113

GLOBAL SUBROUTINES SECTION

14 JUN 84

.SBTTL

1934
1935
1936

GLOBAL

5€EQ@ 0075

SUBROUTINES SECTION

;

1937
1938
1939

;

THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES

THAT ARE USED IN MORE

1940
1941
1942
1943
1944
1945
1946
1947
1948
1949
1950
1951
1952
1953
1954
1955
1956
1957

1958
1959
1960
1961
1962
1963
1964
1965
1966
1967
1968
1969
1970
1971
1972
1973
1974
1975
1976
1977
1978
1979
198C
1981

15:15

.SBTTL

THAN ONE

TEST.

SOFINIT - SOFT INITIALIZE OF CONTROLLER

{ROUTINE TO DO A SOFT INITIALIZE OF THE CONTROLLER
;8Y WRITING INTO THE TSSR REGISTER. AFTER THE INIT,
i THE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS
;DETECTED SHOUWLD BE TREATED AS NEVICE FATAL ERRORS.

: INPUTS;
RS

ADORESS OF FIRST REGISTER

L OUTPUTS :

CARRY

H CALLING

015774
015774
016000
016006
016012
016016
016020
016024
016030

016032
016034
016036
016040
016042

012765
004737
016500
010004
042704
052704
020400
001402
000241
000401
00026
1
000207

000000

016250

000002

MOV
JSR

ERROF

8CS

SOFINIT::
SAVREG
MOV

000002

S¢:
10%:

#ADDRESS , RS
PC.SOF INIT
CONTINUE

{REPORT FATAL ERROR

00, TSSR(RS)

s
s

SAVE THE REGISTERS
DO THE INIT.

RO,R4

$ TSSR CONTENTS

JSR
MOV

PC,WAITF
TSSR(RS),.RO

BIC
8IS
cHP
BEQ
cLC

> ,R4
#1C<HIADDR!OFL
#SSR!NBA,R4
;R4 HAS EXPECTED CONTENTS
R4 ,RO
tONLY EXPECTED BITS SET ?
St
sBRANCH IF OKAY
;CLEAR THE CARRY FOR ERROR

MOV

176277
002200

SET IF INIT WAS OKAY

CLEAR IF FATAL ERROR

SEQUENCE:

:
:
;

CONTENTS OF TSSR, IF ERROR

B8R

SEC
RTS

10¢

; WAIT FOR SSR
1GET THE TSSR REGISTER

:GO TO EXIT

:SET THE CARRY BIT
tRETURN TO CALLER

MACRO M1113

TSY3 - GLOBAL AREAS
CHECK TSSR FOR AMBIGUITY
CHKAMB

14-JUN-84 15:15

1983

.S8TTL

1985
1986
1987

HES

CHKAMB

SEQ 0076

- CHECK TSSR FOR AMBIGUITY

1984

;THIS ROUTINE TESTS THE CONTENTS OF THME TSSR REGISTER
:FOR AMBIGUITY

1988
1989
1990
1991
1992

;INPUT:

1993
1994
1995
1996
1997
1998
1999
2000
2001
2002
2003 016044
2004 016044
2005 016050
2006 016052
2007 01605¢
2008 016060
2009 016064

2010
2011
2012
2013
2014
2015
2016
2017
2018
2019
2020
2021
2022
2023
2024
2025
2026

016066
016070
016074
016076
016102
016104
016110
016114
016116
016120
016124
016126
016132
016134
016136
016140
016142

CONTENTS OF TSSR

CARRY

SET
CLR

sOUTPUT:
:
.

H
.

- NO AMBIGUITY
- AMBIGUOUS CONTENTS

‘-

CHIKAMB;
010004

132700

V01004
032700
001023
000424

032700

001011
032700
001414
042704

020427
001007

000410
032700
001405
032700
001002

000241
000401
000261
000207

100000
174077

000200

000040

177761
000016
000040

10¢:

000006
40¢.

454:
50%:

SAVREG
MOV
8IT
BNE
8IT7
BNE
B8R

BIT

BNE
8IT
8€Q
81C
cHp
BNE
B8R
BIT
BEQ
BIT
BNE
CLC
BR
SEC

RTS

RO,R4

1SAVE THE GENERAL REGISTERS
sCONTENTS OF TSSR
+IS BIT 15 SET ?
1BRANCH IF YES

#SC,RO
S¢
#tC<NBA!OFL
! SSR!HIADOR> ,RO

404
454

#SSR,RO
04

#+CTERCLS
R4
R4,016
404
454
#8I75,R0
454

#81T2!8IT1,R0

45%

S0¢
PC

1ANY OTHER BITS SET

tMUST BE AN ERROR
tRETURN WITH SUCCESS
1IS READY BIT SET ?
1BRANCH IF READY BIT IS SET.
+11IS FATAL ERROR BIT SET ?
ERROR IF NOT

sCLEAR ALL BUT TERMINATION CODE
sALL THREE BITS MUST BE SET
sERROR IF NOT SET
10K IF ALL ARE SET
+1IS FATAL ERROR BIT SET ?
tERROR IF BIT IS SET WITH SSR
+IS THIS A FUNCTION REJECT
1BR, IF TSSR IS OK
s AMBIGUOUS CONTENTS

1 SHOM SUCCESS - NO AMBIGUITY

;RETURN TO CALLER

M6
TSV

GLOBAL AREAS

ENAINT ,DSBINT

MACRO M1113

14-JUN-84

ENABLE/DISABLE INTERRUPTS

.SBTTL

2028
2029

ENAINT,OSBINT

- ENABLE/DISABLE INTERRUPTS

. IF DISPLAY TIME-OUT, REPORT DEV FATAL, AND ABORT PASS.
: OTHERWISE. SAVE DPU REGISTERS AND DISMISS.
; BIT DEFINITIONS FOR "INTMASK" AND “INTFLAG” BYTES:

TOKCKIN=BIT?
IOKSTP=BITO

000200
000001

i INTERRUPT MASK

2040
2041 016144
2042
2043 016145
2044

016202

016204
016206
016214
016216
016216
016216
016224
016230
016236
016240

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

SAYS EXPECTING INTERRUPTS

1 SAVED INTERRUPT VECTOR:

2046 016146
2047
2048 016150
2049

016152
016154
016160
016164
016170
016172
016174

+ DON'T CHECK FOR BAD INTERRUPTS -- TEST WILL.
: EXPECT “STOP” INTERRUPT.

INTHASK:
.8YTE
O
: INTERRUPT FLAG -- SAYS WE GOT ONE (IF POSITIVE)
INTFLAG:
.BYTE
O

2045

2058
2059
2060
2061
2062
2063
2064
2065
2066

SEQ 0077

: DEFAULT DISPLAY INTERRUPT HANDLERS.

2030
2031
2032
2033
2034
2035
2036
2037
2038
2039

2050
2051
2052
2053
2054
2055
2056
2057

15:15

INTVEC:

.WORD

INTCPC:

.WORD

1 SAVE CPU PC

010046

013700
012720
012720

1 SUBROUTINE TO ENABLE INTERRUPTS:

ENAINT: MOV
MOV
MOV
MOV
MOV

002206
016216
000340

011646
012766

000002

MOV

000002

OSBINT: MOV
RN;JV

RTI

000002

011646
0127686
000002

012737

105037
132737
001003
152737

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

1 SAVE RO
+GET POINTER TO VECTORS
1SET UP INTERRUPT VECTOR

#0,2(SP)

1SET CPU TO LEVEL O

;:RESTORE RO

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

000340

000001
016145
000001

002222

INTR: :

.SBTTL

INTR

BGNSRY

INTR

sOEFINE INTERRUPT ENTRY

MoV
CLR8

#1,INTRECYV
INTFLAG

sSET FLAG TO SHOW INTERRUPT RECEIVED
sCLEAR FLAG TO SAY WE GOT INTERRUPT

BNE
BIS8

1
1BR IF YES
¢ IOKSTP,INTFLAG ;NO. SET THE ERROR FLAG.

8178

016144

016145

(SP), -(SP)
#PRIO7 ,2(SP)
-

INTERRUPT HANDLERS

OIOKSTP
, INTMASK

EXPECTING STOP INTERRUPT?

;SAVE REGISTERS, MSG BUFFER, ET(C.

1¢:

L10026:
000002

ENDSRYV
RTI

NF,
TSvS

WAITF

MACRO TMM1113
GLOBAL AREAS
WAIT FOR SUBSYSTEM READY

14-JUN 84

15:15
.S8TTL

2077

2078
2079

2080
2081
2082
2083
2084
2085
2086
2087
2088
2089
2090
2091 016250
2092 016252
2093
2094
2095
2096
2097

016252
016254
016260
016264

016266
2098 016270
016270
016274
016276
016302
016304
016310
016312
016316
016320
2100 016322
2101 016324
2102 016326
2103 016330
2104 016332
2105 016334

SEQ 0078
WAITF

WAIT

FOR

SUBSYSTEM READY

: SUBROUTINE T0 WAIT FOR THE SUBSYSTEM READY FLAG
;I“’UYS:
RS

ADDRESS OF

FIRST

DEVICE REGISTER

L OUTPUTS.
RO

CARRY

WAITF:. BR

000401

104422

012746
016500

105700

BREAK
TRAP

011000
000002

1
24

100420

MOV
MOV
1S718

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

Cs82%K

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

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

012727

00000
1

013727
000000
005367
001375
005367
001367
005316
201356
000241
000401
000261
005326

002116

3
1
e1,(PC).
0
btoLY.(PC)o

177772

-6(PC)

177756

-22(PC)

000000

000207

iNOP WHEN SUPER FIXED
; DO A SUPVSR BREAX FIRST.
TIMER

EX.T ON STOP F_AG.
WAIT 100 USEC

(SP)

;REDUCE DELAY COUNT

; C = O, CONTROLLER STILL RUNNING.
..
i...0R HUNG-UP AFTER 300 MSEC.
s C = 1, CONTROLLER IS STOPPED.

(SP).
PC

tRETRY

UNTIL

TIMER EXPIRES

+PESTORE STACK WITHOUT CHANGING CARRY BIT

S
TSVS - GLOBAL AREAS
MACRO M111S
CHECK TSSR FOR READY
CHXTSSR

14 AN-84 15:15

210°

LSBTTL

CHMXTSSR

%Q 0079
- CHECX TSSR FOR READY

K
1 THIS ROUTINE WAITS FOR READY IN THE TSSR

2108
2109
2110

sAND TESTS FOR AMBIGUOUS BIT
3

2111

2112

1 INPUT

2114

2113

SETTINGS

TSSR.

ADORESS OF CSR REGISTERS

2115
2116

sOUTPUT;
RO
1

CONTENTS OF TSSR

2118

;

CLR - NOT READY AMBIGUOUS, OR SC SET

2117

2119

2120 016336

2121 016336
2122 016342
2123 016344
2124 016350
2125 016352
2126 016356
2127 016360
21268 016364
2129 016366
2130 016370
2131 016372
2132 016374
glgz

CARRY

Q04737
103014
004737
103006
032700

001405
032700
001402
000241
000401
000261
000207

CHXTSSR:;

016250
016044
100000
074000

108
15¢:
204 :
l.

JSR
B8CC
JSR
8cC
BITY

8EQ
BIT
8€Q
CLC
B8R
SEC
RTS

LSBTTL

SET - OKAY

PC.MAITF
204
PC.OKAIB
104
oSC,.RO

154
@<SCE!BIE ‘RMRINXM> RO
154

204
PC

XNXM

1MAIT FOR READY
1BRANCH IF TIME OUT
1TSSR AMB1IGOUS?
1BR IF YES
sSPECIAL COMDITION SET?
1BR IF NO
;ANY ERROR B17S SET?
1BR IF NO
1SET FAILURE
!
1SET SUCCESS
JRETURN TO CALLER

- CHECX FOR NONEXISTENT MEMORY

2135

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

2141

2136
2137
2138
2139
2140

1 ON RETURN, IF ~C~ = 1, (R1) = NEXMF DORESS.
:
*C~ = 0, ALL ADDRESSES Ox.
3
sCALL:
MOV ADR1,.R1
3
MOV ADRZ2,R2

2142
2143 016376
2144 016404
2145 016412
2146 016414
2147
2148 016416
2149 016420
215C 016422
2151 016426
2152 016430
2153 016432
2154 01643C

2155 016440
016440

016444

012737
012737
005003
005711

020102
001407
062701
000772
005103
012716

000002

012700

104436

2156 016446

005703

2159 016454

000207

2157 016450
2158 016452

001401
000261

016430
000200

000004
000006

3
XNXM:
18:

000002
016440
000004

24:
34

JSR PC,NXM

RETURN
MOV
MOV
CLR
T87

o,
BEQ
ADO
B8R
coM
MoV
RTI

CLRVEC
MOV

TRAP
TS7
8EQ
SEC
RTS

;sTEST “C~ AND PRUCEED.
024,004
3 SET BUSERR VECTOR.
MPRIOA
, 906
R3
1FLAG.
(R1)
s TEST THE ADORESS(ES).
1IF ANY TRAP, CONTINUE AT 28,

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

1OTHERWISE, CONTINUE MERE.
18R IF FIMISHED (ND NEXM'S).
1SET NEXT ADORESS...
1...AND CONTINVE.
1GOT ONE, SET FLAG...

o4
®4,R0

i...AND GIVE BACK THE VECTOR.

CSCVEC

Y )

i...AND DISMISS INTERRUPT...

1DID WE CATCH ONE 2?72

tNO, “C* = 0, SKIP NEXT,
sYES, "C” « 1, (R1) = NEXM ADDR.

MACRO M1113
TSVS - GLOBAL AREAS
TSTLOOP - CHECK ITERATION COUNT

.SBTTL

2161
2162

TSTLOOP

CHECK ITERATION COUNT

+ SUBROUTINE TO EXECUTE TEST ITERATIONS.
¢ EXIT WITH *C~ SET IF LOOPS ALLOWED AND LOOP COUNT NON ZERO.
+ LOOP COUNTER IS SET 8Y “BEGIN.TEST" MACRO.

2163

2167
2168
2169 016456

2170 016456
2171 016462

2172 016464
2173 016470
2174 016472
2175 016476

2176 016500
2177 016502
2178 016504
2179 016506
2180
2181
2182
2183
2184
2185
2186
2187
2188

i CALL: LOOPTO

ARG

005737
001006
005737

100403
005337

001002
000241
000401
000261
000207

T STLOOP: ;

002166

TS7

NOITS

ITERATIONS INMIBITED?

TST

Qvp

NO.

ge'é

la.?(PCNT

gkc

BNE

002202

BM1

002214

1%:

24:

3s:

SEC

s YES.

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

sLOOP DISALLOWED, OR DONE.

sLOOP ENABLED.

RTS

.SBTTL

TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS

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

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

2189
2190
2191
2192
2193
2194
2195
2196
2197
2198
2199
2200
2201
2202

2212
2213
2214
2215
2216
2217

5€Q 0080

|3R

2164
2165
2166

2203
2204
2205
2206
2207
2208
2209
2210
2211

14-JUN-84 15:15

POINTER TO TEST

ID ASCIZ STRING

ADDRESS OF FIRST DEVICE REGISTER

OUTPUT:

IMPLICIT OUTPUTS:

TSTONT

UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART

1SIOE EFFECTS:
INTERRUPT LEVEL IS RASIED TO LEVEL OF
THE DEVICE UNDER TEST

016510
016510
016512
016516
016322
016526
016532
016336
016540
016544
016546

010046
005037

005037
005037
105037
013700
005737
001430
100010

003152
016756
005770
016144
002200
003112

MOV

RO, -(SP)

CLR

ERRK

CLR

CLR
CLR8
MOV
ASL
TST
8tQ
BPL

SIFLAG

EXTA

INTMASK
UNITN,RO

RO
NODEV
44
3

1SAVE THE TEST ID MESSAGE
'

CLEAR "SOFT INIT* FLAG

+ CLEAR LOCAL ERROR COUNTER.

1 CLEAR ERROR EXTENSION FLAG.

i CLEAR INTERRUPT MASK (CHECK ERROR)
+ GET THE UNIT NUMBER,
t ... ANC MAKE IT A WORD OFFSET.
1 DID STARTUP FIND THE DEVICE?
1 BR IF YES
+ B8R IF NOT IDLE

D7
TSVS - GLOBAL AREAS
MACRO M1113 14-JUN-84 15:15
TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS

2218 016550
2219 016556
016556
016560
016562
016564

(52760

160000

BIS
ERROF

003174

104455
000001
003736
005734

CSERDF
1
NXR
NXRERR

8IS

0160001, ERTABL(RO)

2222 016576

ERROF

016576
016600
016602
016604

104455
000002
004333
000000

TRAP
JWORD
.WORD

2223 016606 012737 177777 003110 2%:

2224 016614

016614 013700 002200
016620

2225 016622
016622
104444
gggc; 016624 000423
2228 016626
016626

104421

2230 016634
2231 016636
2232 016640
016640
016642
015646
016652

001412
011600
010046
012746 016704
012746 000002
010600

as:

2229 016630 032700 001000

016654

14:

2234 016666

016666 013700 002210

2237 016702

000207

2235 016674 005726
2236 016676 013705 002204

2238 016704

2239

045

123

1 DEVICE NOT IOLE

; DROP THE UNIT

CSERDF
2
NOINIT

#-1,DUFLG

UNITN

TRAP

C$DODV

UNITN,RO

DOCLN
TRAP
BR

CSDCLN

RFLAGS
TRAP

RO
CHRFLA

TRAP

; ABORT THE PASS

: GET THE OPERATOR FLAGS.

#PNT RO

S$:
045

TNAM:

gg:g

06, 5P
TSTONT

MOV

IPRI,RO

C#SPRI

RTS

.ASCIZ

.EVEN

.SBTTL

: BR IF NO
1GET THE ID MESSAGE

sOISPLAY THE TEST ID

: BUMP TEST COUNTER.

IPRI

TRAP

ST
MOV

s PRINT THE TEST NUMBERS?

CHPNTF

ADD
INC

SETPRI

; FLAG ERROR IN THE ERROR TABLE

2,NOINIT

DOOU

BIT

104417

104441

8€Q
14
MOV
(SP),RG
PRINTF OTNAM,RO
MOV
RO, -(SP)
MOV
OTNAM,
- (SP)
MOV
02,-(SP)
MOV
SP,RO

016656 062706 000006
2233 016662 005237 002212
016672

.MORD

MOV
MOV

104451

0160000,ERTABL(RO) ; FLAG ERROR IN THE ERROR TABLE
PRINT I7
; NO DEVICE HERE
1 ,NXR,NXRERR

TRAP
.WORD
.WORD
.WORD

2220 016566 000407

2221 016570 052760 160001 003174 3%

SEQ 0081

sPRIORITY THAT OF DEVICE

(SP)e
CSRADOR , RS

JFIY UP THE STACK
: ADORESS OF TSV REGISTERS ON UNIBUS

'#SST#A Test'

TSTEND

- PRINT ERRORS RECEIVED

2242

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

ggfi

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

2245 016720
016720
2246 016722

2247 016726

2248 016730

016730
016734
016740
016744
016746

104421
030027

001412

TSTEND:
020000

013746 016756
012746 016760
012746 000002
010600
104417

RFLAGS
TRAP
8IT

BEQ

RO
CHRFLA
RO, #IER

PRINTF #ESUM, ERRK

MOV
MOV
MOV
MOV

TRAP

ERRK
, - (SP)
#ESUM,
- (SP)
02,-(SP)
SP,RO
C4PNTF

: BR IF “IER" NOT SET.

i PRINT ERROR COUNT.

MACRO M1113
TSV - GLOBAL AREAS
- PRINTY ERRORS RECEIVED

14 JUN-84 15:15

SEQ 0082

TSTEND

016750

062706

2251 016756
2252 016760
2253 016777

000000

2249 016754
2250

2254

00020~

045
105

000006

101

122

040
122

ADO

18:

RTS

ERRK ;

ESUM:
EMAXDU:

.ASCIZ
.ASCIZ
.EVEN

i LOCAL ERROR COUNT,

/%A wDuA ERRORS/
/ERROR LIMIT REACHED

OROPPING UNIT/

TSV3
GLOBAL AREAS
INCREMENT
INCERK

2256
2257
2258
2259
2260
2261
2262
2263
2264
2265
2266

2267

2268
2269

2270
2271

MACRO M1113

LOCAL ERROR COUNT

14-JUN-84 15:15
.S8TTL

5£Q 0083

INCERK

INCREMENT LOCAL ERROR COUNT

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

017044
017050
017052
017056
017060
017064
017066
017072
017074
017076
017100

2272 017102
2273 017104
2274 017110
2275 017112
2276 017116
2277 017122
2278 017126
22719 017130
2280 017136
2281 017140
017140
2282 017142

2283 017146

2284 017150
2285 017156
017156
017160
017162
017164
2286 017166
017166
017172
2287 017174
017174
2288 017176
2289 017200

005237
010046
013700

016756

062700
005210
032710
001001
005310
012600
000207

003174

010046
013700

006300
016000
042700
020037
103004
023737
103417

104421
032700
001013
012737

INCERK:

002200

007777

1%:

INC

ERRK

ASL

MOV
MOV

ADD
INC
8I1Tv
BNE
0EC
MOV

RTS

002200

CKEMAX: MOV
MOV

003174

MOV

170000
002172
016756

002170

1s:
000040

1777717

104444
012600
000207

#ERTABL ,RO
(RO)

#7777,(RO)

1
(RO)
(SP)+,RO

UNITN,RO

ASL

8IC
cP
BHIS
cp
8LO
RFLAGS

#170000,R0O

BIT

€IDV,RO

TRAP

00311C

ERTABL(RO),RO

K
, LERRMAX
ERR
24

CIRFLA
4

4 ,EMAXDU
EOEROF

104455
000004
016777
013700
104451

UNITN,RO

INCREMENT LOCAL ERROR COUNT
SAVE RO
GET UNIT NUMBER,
... AND MAKE IT A WORD OFFSET,

RO GETS ADORESS OF ERROR TABLE ENTRY.

INCREMENT THE DEVICE ERROR COUNT
OID WE OVERFLOW THE FIELO?
BR IF NO.
YES

BACK

IT WP

RESTORE RO
RETURN TO CALLER.

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 UNTT

EMAXDUY
0
UNITN
UNITN,RO
C4000V

002200
TRAP

2s:

MOV

RTS

CS0OCLN
(SP)«,RO

TO 7777.

RESTORE RO
RETURN TO CALLER

G7
TSvS

CKDROP

MACRO M1113
14-JUN-84 15:15
GLOBAL AREARS
- CHECK IF UNIT SHOULD BE DROPPED

.SBTTL

2291
2292
2293

SEQ 0084

CKDROP

- CHECK IF UNIT SHOWD BE DROPPED

[34

+ CHECK IF UNIT SHOUWLD BE OROPPED
017202

017204
017214
017214
017216
017222
017224
017226

017234
017234

017240
017242
017242
017244
017246

CKDROP: MOV

010046
104421
032700
001010
011600
012737

013700
10445:

RO, -(SP)

FORCERROR

8Iv
BNE
MOV

#IDV,RO
14
(SP),RO

TRAP

000040

177777

RFLAGS

003110

MOV
09, V]
MOV

002200

104444
012600
000207

1$:

CSRFLA

o-1,00FLG
UNITN
UNITN,RO

TRAP

C+s000V

TRAP
MV

CS$OCULN
(SP)+,RO

OOCLN

18 NOTSSR

RTS

.SBTTL

CONFIG

;ABORT THE PASS

- OETERMINE CONFIGURATION OF SYSTEM

; SUBROUTINE - DETERMINE CONFIGURATION OF TSVOS SYSTEM.
017250
017250
017254

017256
017262
017264
017272

004737
000207

005737
001403
012737
000207

CONF IG:

015774

:g.sor:u:r

.SBTTL

KTON,KTOFF

: SUBROUTINE - ENABLE MEM MGT.
KTON:
TST
KTFLG

003130
000001

#?2

177572

8€EQ

1$:

MOV
RTS

#1.SRO
PC

ENABLE/DISABLE MEMORY MANAGEMENT

; GOT KT?
: NO.
;

YES.

ENABLE KT11.

; SUBROUTINE - DISABLE MEM MGT.
017274
017300
017302
017304
2331 017306
2332 017314

005737
001405
000240
000240
012737
000207

003130
000000

KTOFF:
177572

1¢:

TST

KTFLG

; GOT KT11?

MOV

€0,SR0O

;: DISABLE KT,

BEQ
NOP
NOP
RTS

;

NO.

-7
MACRO M1113
TSV3 - GLOBAL AREAS
MAPPING
PAR6
SETUP
SETMAP

.SBTTL

2334
2335
2336
2337
2338
2339
2340
2341
2342

5EQ 0085

SETMAP

SETUP PAR6 MAPPING

1 THIS ROUTINE SETS UP KERNEL PAR6 TP HANDLE
1AN 18 BIT ADDRESS. THE OFFSET INTO THE PAGE
1IS RETURNED BIASED TO PARG.

1 INPUTS;

2343
2344
2345
2346
2347
2348
2349

2350
2351
2352
2353
2354
2355
2356
2357
2358
2359
2360
2361
2362
2363
2364
2365
2366
2367
2368
2369
2370
2371
2372
2373
2374
2375
2376
2377
2378
2379

14-JUUN 84 15:15

HIGH ORDER ADORESS BITS

LOW ORDER ADDRESS BITS

;OUTPUTS:
H

CARRY

H
3

OFFSET INTO 3LOCK WITH PAR6 BIAS (I.E.
SET IF SUCCESS
CLR IF ERROR

THE ADDRESS)

017316
017316
017322
017326
017330

SETMAP:
005737
001433
010102

003130

SAVREG
TST
BEQ
MOV

.REPT

ASR
ROR

017362
017366
017372
017374
017400

017404
017410
017412
017414
017416
017420

2387
2388 017422
2389 017422
2390 017426

042701
020137
103011
010137
042702
062702
010200

000177
003130

172354
140000

000401
000241
000207

10¢:
15¢:

.ENDR
BIC
c
BHIS
MOV
8IC
ADD
MOV
SEC
BR
CLC
RTS
.SBTTL

;SAVE R1-R4 UNTIL NEXT RETURN
;SYSTEM MAVE ABOVE 28K?

KTFLG

s8R IF NO

108

$SAVE LOW ORDER BITS

R1,R2
6
RO
R1

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

sALINE FOR LOWER 4K BOUNDARY
sHIGHER THAN EXISTING MEMORY?
1BR IF YES
1SETUP MAPPING REGISTER PAR6
sSETUP DISPLACEMENT IN PAGE
1ADD IN PAR6 BIAS
sRETURN IN RO
:SET SUCCESS

€177,R1
R1 KTFLG

104

R1,80KIPARG
#160000,R2
#140000,R2
R2.RO

15¢
PC
FILLMEM

1SET FAILURE
tRETURN

FILL MEMORY WITH BACKGROUND PATTERN

FILL MEMORY WITH A BACKGROUND PATTERN

RO = BACKGROUND PATTERN
= FIRST LOCATION AVAILABLE

FREE
KTFLG

004737

017274

"SAVREG
JSR

TO DIAGNOSTIC

= SET TO HIGHEST MEMORY LOCATION IF

PC,.KTOFF

> 28K,

;SAVE R1-RS UNTIL NEXT RETURN
sDISABLE KT,

MACRO M1113 14-UUN-84 15:15
TSV3 - GLOBAL AREAS
FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN
2391 017432
2392 017434
2393 017440
2394 017444
2395 017446
2396 017450
2397 017452
2398 017456
2399 017460
2400 017464
2401 017466
2402
2403
2404
2405
2406
2407 017536
2408 017542
2409 017544
2410 017550
2411 017352
2412 017556
2413 017564
2414
2415
2416
2417
2418
2419
2420
2421

2422
2423
2424
2425
242€
2427
2428

017572
017574
017600
017602
017606
017612
017516
017620

017624
017626
017634
017636
017640
017646
017652

2429 017656

010003
013701
013702
010321
005302
003375
005737
001477
004737
005000
013701
000004

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

000207

003122
003124

10$:

003130
017256
003150

017316

30%:

160000
020000
000200
172354

172354
003130

003142
177572
177761
000016
003144

35¢:

172354

007600

000020
017542
017274

172516

40¢:
454 :
S04 :

5S¢ :

MOV
MOV
MOV
MOV
OEC
8GTY
TST
8EQ
JSR
CLR
MOV
.REPT
cLC
ROL
ROL

.ENDR
JSR
MOV
cre
8LO
sug
ADD
cre

8€Q
TST
BEQ
MOV
8IC
cHe
8€Q
TST

8EQ
cHp
8HIS
B8R
MOV
JP
JSR

RTS

5£Q 0086
RO,R3
FREE,R1
FRESIZ,R2

R3,(R1).
R2

104

KTFLG

PST32W,R1
6

R1
RO

PC,SETMAP
R3,(RO).
RO, #160000

304
#20000,R0
9200,
9 IPARG
SOKIPARG ,KTFLG

504

T23A

354
SRO, R4

#177761,R4
#16,R4

504

1238
454

SOKIFPARG
, #7600

404
454

920,5R3
30¢

PC.KTOFF
PC

1COPY TEST PATTERN

${GET FIRST FREE LOCATION
1SIZE OF FREE SPACE BELOW 28K,

1STORE A BACKGROUND WORD
tOONE ALL MEMORY IN FREE SPACE?
tBR IF NO
s GOT KT?

s NO. GET OUT,
3 YES. ENAB_E KT,
sHIGH ORDER ADORESS START
1GET >28K START ADDRESS (IN 32W BLOCKS)

1CLEAR C BI1
1 CONVERT BLOCKS TO WORDS
tMAKE IT DOUBLE PRECISION

1SETUP PAR6 MAPPING REGISTER
1STORE TEST PATTERN IN >28K ADDRESS
tEND OF PAR6 MAPPING AREA?
1BR IF NO
1BACKUP INTO PAR6 MAPPING BEGIN
sPOINT TO NEXT 4K BLOCK >28x.
;END OF MEMORY?

;1BR IF YES
111/723A7?
tNO KEEP GOING
1GET SRO CONTENTS
;CLEAR ALL BUT PAGE NUMBER
;SEE IF PAGE 7
tEXIT IF THERE
11172387
1NO KEEP GOIN1REACHED 18 BITS?

s YES

1NO KEEP GOING
;SET 22 8IT RELOCATION
;KEEP GOING ON ETC.
; DISABLE KT,

J {

MACRO M1113
14-JUN-84 15:1°F
GLOBAL AREAS
TSV
- COMPARE MEMORY TO BACKGROUND PATTERN
CHMPMEM
.SBTTL

2431
2432
2433
2434

CMPMEM

COMPARE MEMORY

TO BACKGROUND PATTERN

COMPARE MEMORY WITH A BACKGROUND PATT-RN
INPUTS:

2435

2436
2437
2438
2439
2440
2441
2442
2443
2444
2445
2446
2447
2448
2449
2450
2451
2452
2453
2454
2455
2456
2457
2458
2459
2460
2461
2462
2463
2464
2465
2466
2467
2468
2469
2470
2471
2472
2473
2474
2475
2476
2477
2478
2479
2480
2481
2482
2483
2484

S5EQ 0087

RO = BACKGROUND PATTERN
= FIRST LOCATION AVAILABLE

FREE
KTFLG
1

TO DIAGNOSTIC

= SET TO HIGHEST MEMORY LOCATION IF

> 28K.

OUTPUTS:

CARRY
CARRY

- SET IF NO ERROR
- CLR IF ERROR

: TMPLICIT OUTPUTS:
H

ERRMI
ERRLO
EXPOD

RECV

017660
017660
017664
017666
017672
017676
017702
017704
017706
017712
017716
017722
017726
017730
017732
017734
017736
017742
017744
017750
017752

020006
020012
020014
020016
020022
020024
020026
2485 020030
2486 020032
2487 020034

¢ MPMEM:
010003
004737
013701
013702
020311
001411

010137
005037
010337
011137
000474
005721
005302
003362
005737

017274
003122
003124

002236
002234
002230
002232

013701

003150

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

154

R1,ERRLO

ERRHI

(R1),RECV

504

(R1).

10¢

KTFLG

003130
017256

cHP
B8EQ
MOV

ERROR HIGH ADDRESS
ERROR LOW ADDRESS
EXPECTED DATA
RECEIVED DATA

R3,EXPD

15¢:

001472
004737

042701
010046
010146
004737
010004
012601
012600
020314
001411
010037

10¢:

SAVREG
MOV
JSR
MOV
MOV

PST32W,R1
6
R1
RO

000177

0177,R1
RO, -(SP)

017316

PC.,SETMAP
RO,R4

30¢:

002234

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

R3,(R4)

324

RO, ERRHI

$SAVE R1-RS UNTIL NEXT RETURN
;COPY TEST PATTERN
1DISABLE KT,
sGET FIRST FREE LOCATION
:SIZE OF FREE SPACE BELOW 28X,
s+FREE SPACE LOCATION EQUAL

;B8R IF YES
i1SAVE ADDRESS IN ERROR
+NO HIGH ADORESS
$SAVE EXPD FOR ERROR REPORT
:SAVE RECV FOR ERPOR REPORT

TO EXPD?

sPOINT TO NEXT ADORESS
;OONE ALL MEMORY IN FREE SPACE?
;B8R IF NO
;s GOT KT?
s NO. GET OUT,
s YES. ENABLE KT,
sHIGH URDER ADDRESS START
tGET >28K START ADORESS (IN 32w BLOCKS)

; CONVERT BLOCKS TO WORDS

tMAKE IT DOUBLE PRECISION

tALINE 4K BOUNDARY
:SAVE HIGH ORDOER
1 SAVE LOW ORDER
i SETUP PAR6 MAPPING REGISTER
1COPY ADDRESS BIASED TO PAR6
tRESTORE LOW ORDER IN NON PAR6 FORMAT
{RESTORE MIGH ORDER IN NON PAR6 FORMAT
1ABOVE 28K LOCATION EQUAL EXPD?
1BR IF YES
1 SAVE HIGH ORDER IN ERROR

TSV3

CHPMEM

GLOBAL AREAS

14-JUN-84 15:15

5£Q@ 0088

- COMPARE MEMORY TO BACKGROUND PATTERN

2488 020040
2489 020044
2490 020050

2491
2492
2493
24954
2495

MACRO M1113

020054
020056
020062
020064

020070

2496 020074

2497 020076
2498 020102
020110
020116
020120
020124
020126
020130
020134
020136

010137
010337
011437

002236
002230
002232

062701
005500
062704
020427
103755
162704
062737
023737
101744
004737
000241
000403
004737
000261
000207

002002

000421

32%:

172354

R1,ERRLO
R3,EXPD
(R4) ,RECV

ADD

#2,R1

ADC

ADD
cMP

000002
160000

020000
000200

MOV
MOV
MOV

8LO

SuB
ADD

172354

003130

cHpP

017274

50¢:

017274

55%:
60%:

BLOS

1UPDATE NON PAR6 ADDRESS
sMAKE IT DOUBLE PRECISION ADD

22,R4
R4, 9160000

s UPDATE PAR FORMAT ADDRESS
1tEND OF PAR6 MAPPING AREA?

304

920000,R4
9200, 80KIPARG

SMKIPARG ,KTFLG
30¢

PC.KTOFF

JSR

PC.KTOFF

SEC
RTS
.SBTTL

1 SAVE RECV FOR ERROR REPORT

JSR

CLC
BR

:SAVE LOW ORDER IN ERROR

$SAVE EXPD FOR ERROR REPORT

tPOINT TO NEXT 4K BLOCK

tEND OF MEMORY?

>28K.

;1BR IF NO

s TURN OFF MEMORY MAPPING
1SET FAILURE

PC
REGSAV

18R IF NO
;BACKUP INTO PAR6 MAPPING BEGIN

: TURN OFF MEMORY MAPPING
$SET SUCCESS
-

SAVE R1-RS ON STACK

sROUTINE TO
;SAVE R1 THROUGH RS ON THE STACK
é

;CALLING SEQUENCE:

JSR

RS ,REGSAV

1 THIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO

{ THE CALLING ROUTINE. AT THE END OF THE CALLING ROUTINE.

:THE RTS PC RETURNS CONTROL TO THIS ROUTINE TO RESTORE

:REGISTERS.

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

020140
020140
020142
020144
020146
020150
020152
020156
020160
020162
020164
020166
020170
020172

REGSAV:

010446
010346
010246
010146
010546
016605

004736
012601
012602
012603
012604
012605
000207

000012

MOV

R4, -(SP)

MOV
MOV
JSR

RS, -(SP)
10.(SP),RS
PC,8(SP).

MOV
MOV
MOV
MOV

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

MOV

RTS

(SP)+,R1

MACRO M1113 14-JUN-84 15:15
GLOBAL AREAS
FROM OPZRATOR
PATTERN
BIT
8
GET
GETPAT

SEQ 0089

TSv3

.SBTTL

2542
2543
2544
2545
2546
2547
2548
2549
2550
2551
2552
2553
2554
2555
2556

020174
020174
020200

2557

020220
020220

- GET 8 BIT PATTERN FROM OPERATOR

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

NONE.

L INPUTS ;
H

sOUTPUTS;
:

OCTAL NUMBER FROM THE OPERATOR

CALLING SEQUENCE:

JSR

PC,GETPAT

‘-

020200
020202
020204
020206
020210
020212
020214
020216

104443
000406
020230
000022
020232
000377
000000
000377

020220

103367

GETPAT::
SAVREG
SAVE THE GENERAL REGISTERS
18
GMANID DATASC,PATDAT,0,377,0,377.NO

160008:

020222 013700 020230

2558
2559 020226

000207

2561

TRAP
BR
_WORD
"WORD
"WORD
'WORD
"WORD
WORD

CSGMAN
100004
PATDAT
T4CODE
DATASC
377
THLOLIM
THHILIM

BNCOMPLETE
1
BCC
1
MOV
PATOAT,RO
RTS

;RETRY IF ERROR
;DATA PATTERN FROM OPERATOR
:RETURN TO CALLER

:LOCAL DATA AREA

2563

2565 020230
2567

GETPAT

‘0

020232

000000

105

116

PATDAT:

.WORD

124 DATASC: .esgu
.EVEN

; TEMPORARY STORAGE FOR DATA

"ENTER DATA PATTERN'

M7
MACRO M1.13
14-JUUN-84
TSV3 - GLOBAL AREAS
ISSUE MENU AND GET OPERATOR RESPONSE
GETSEL

15:15
GETSEL

2569
2570

.SBTTL

2572
2573

L INPUTS:

2576

I UTPUTS

ISSUE MENU AND GET OPERATOR RESPONSE

{ROUTINE TO ISSUE A MENU AND GET THE OPERATOR'S RESPONSE.
RO
R1

ADDRESS OF ASCIZ STRING OF MENU
MAXIMUM ALLOWABLE OPERATOR RESPONSE

=11]

NUMBER OF THE OPERATOR'S SELECTION

SAVREG
MOV
MOV

RO,R2
R2,R3

1 SAVE GENERAL REGISTERS
1 SAVE THE MENU ADODRESS
sSTART OF MENU STRING

001412

BEQ

;BRANCH IF ALL LINES DISPLAYED

012346
012746
012746

MOV
MOV
MOV
MOV

{R3)+,-(SP)
QLELASC, -(SP)
#2,-(SP)
SP .0

ADD
BR
GMANID

#6,5P
24
MENASC,MENRES,D,-1,0,-1,NO

2574
2575

2577
2578
2579

ééTSEL::
010002

1%:
2$:

010203
005713

010600

104417

062706
000764

020442
000002

TRAP

000006

3¢:

B8R

000042

. WORD
.WORD

.WORD

020447
177777

000000

1777177

103352
013700
020001
101411

2590
2591
2592
2593

012746
012746
010600

020442
020447

104417
062706
000735
000207
045
045
105

020476

000000

020370
020372
020374

TRAP

000406

020476

2589

TST

PRINTF

104443

599

HE4

2571

2594
2595
2596
2597

SEQ 0090

10001¢:
02046

.WORD
. WORD
. WORD

C$GMAN

100014

MENRES

T4CODE
MENASC
-1
TSLOLIM
TSHILIM
1¢

tRETRY IF ERROR

B8LOS

;1BRANCH IF 0K

MOV

ADO

B8R

164

CIPNTF

;GET THE OPERATOR'S REPLY

TRAP

156

THE MENU

MENRES , RO

MoV

045

;DISPLAY

MOV
PRINTF

116
116

sEND OF ASCII

#SELASC.(R3).

ggEOHPLEIE

cHP

020374
000001

(R3)

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

RO,RL

OMENERR

;COMPARE TO MAXIMUM ALLOWED
;OISPLAY ERROR MESSAGE

MMENERR, -(SP)
SP,RO

COPNTF

o4, 5P

tRETRY

;RETURN TO CALLER

'#NSA ses Menu Selection Too Large sse
‘'uNET'
'Enter Menu Selection:
LWORD

TSV3
CHIXMAN

GLOBAL AREAS

MACRO M1113

14-JUN-84

CHECK MANUAL INTERVENTION LEGALITY

020504
2627 020506
020506
2628 020510
020510
020514
020520
020522
020524

020530
2630 020532
2631
2632 020534
2633

5EQ 0091

CHKMAN

CHECK MAWUAL

INTERVENTION LEGALIY

;ROUTI'( TO TEST FOR MANUAL INTERVENTION LEGALITY.
;I'PUT :

2605
2606
2607
2608

2609
2610
2611
2612
2613
2614
2615
2616
2617
2618
2619
2620
2621
2622
2623
2624 020500
2625 020500
2626 020504

15:15
.SBTTL

2602
2603
2604

;

NONE.

;WTPUT:

:
;

CARRY

MANUAL INTERVENTION NOT ALLOWED

MANUAL

INTERVENTION IS OK

:SIDE EFFECTS:

;
:

CHXKMAN: :

104450

045

SAVREG
MANUAL
TRAP

INTERVENTION IS NOT

.SAVE THE REGISTERS
:SEE IF MANUAL INTERVENTION

;BRANCH IF

ALLOWED

;PRINT

WARNING MESSAGE

PRINTF

SNOMAN

020534
000001

MOV
MOV
MOV

TRAP

ONOMAN., -(SP)
01.-(SP)
SP RO

CS$PNTF

000004

ADD

04SP

cLC
RTS

s;CLEAR CARRY
;RETURN

_.ASCIZ

'#NeA sss Manual

Intervention not

1¢:

1i6

045

NOMAN:

.even

C$MANI

ggoaners

103411
012746
012746
010600
104417
062706
000241
000207

A MESSAGE IS DISPLAYED WARNING THAT TEST IS

NOT EXECUTED IF MANUAL
ALLOWED.

THE

FOR ERROR

Allowed

Test

Aborted sss’

TSv3

ENVIRN

GLOBAL AREAS

MACRO M1113

SETUP FREE DIAGNOSTIC SPACE

2635
2636
2637
2638
2639

.SBTTL

]

104431

2644

013702
162737

2646
2647
2648
2649
2650
2651
2652

011037
162737

001373

013700
063700

ENVIAN: MEMORY

003122
000002
003124
000004

002012
000007

TRAP

MOV
ADO
MOV

003122
003124

ENVIRN

SETUP FREE OIAGNOSTIC SPACE

00312¢

10¢:

003122

012701
010102
062702
004737
103001

177520

MoV

000002

ADD

013701
062701
012702

000001

001006
005237

C82737

SUB
MoV

NOP

MOV

15¢:

MoV

ADD

104
FREE ,RO
FRESIZ.RO
02,RO

RO, FREEN]

R1,.R2
#2,R2

PC ., XNXM
15¢
40¢

SOVPCR,R1
o1,R1

#BDVPCR ,R2

177520

MOV

B0VPCR,R3

003142
170000

INC

o
BNE

002120

003144

208
:

404 :

INC
8IC
NOP

1ST FREE ADORESS.
..

GET NUMBER OF UNITS
TAKE

AWAY

7 WOROS PER UNIT

1GET FIRST FREE ADORESS
sPOINT TO LAST FREE ADDRESS
1BACKUP 1 WORD
1STORE LAST FREE ADORESS

1000000000010 0000000060000000000000000000000¢

#80VPCR,R1

MOV

000207

JSR
8CC
BR

LIUNIT,
R2

177520

003237

i...AND WORD COUNT.

SUB
DEC
BNE

000002
003126

177520

(RO),FRESIZ

07 ,FRESIZ
R2

MoV

ADD

016376

+ GET

02 ,FREE

04 FRESIZ

MOV

003124

RO
CoMEM
RO,FREE

SUB

162700
010037

013703
020103

2674 021006
021006

0Q 0092

¢+ SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS.

010037
062737

26435

14-JUN-84 15:15

2640
2641
2642

2643

(R2)

R1,R3

204
T23A

€170000,L $HIME

1GET B0V11 PCR ADORESS

1COPY 10 R2
1SET THE RANGE
1SEE IF WE MAVE ONE

10X TO SET FLAGS
sRETURN WITH FLAGS CLEAR
1SAVE PCR CONTENTS
1ADD ONE TO IV
;1GET B0V11 PCR ADDRESS
s TRY TO WRITE 10 I7

tGET RESALTS
10ID IT CHANGE?
sNO, MUST BE 11/238
1SET THE FLAG

sSUPERVISOR COMLD BE WRONG
1BR 40¢ FOR RELEASE
sTELL THE SYSTEM TYPE

INC

8186
404
1238

;RETURN
1SET THE FLAG

PRINTF

Me189

s TELL THE SYSTEM TYPE

RTS

s RE TURN

PRINTF

B8R

NOP

1BR 408 FOR RELEASE

TSVS KTINIT

GLOBAL AREAS

MACRO M1113

5EQ 0093

. SETUP KT11 MEMORY MANAGEMENT REGISTERS

.SBTTL

2677

2678
2679

KTINIT

SETUP KT11 MEMORY MANAGEMENT REGISTERS

HEd

tROUTINE

2680
2681
2682
2683

2684 021010

2685 021010
2686 021014
2687 021020
2688 021026
2689 021030
2690 021034

023727

021104
021106
021112
021116
021120
021124

021126
021132

012716
000002

2708
2709 021134
2710
2711 021140

TO INIT KT

KTINIT:

005037
005037

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

2691 021042
2692 021046
2693 021030
2694 021056
2695 021064
2696 02107C
2697 021072
2698 021076

2699
2700
2701
2702
2703
2704
2705
2706
2707

14-JUN-84 15:15

003130
003132
002120

KTFLG
KTENABLE
g:fll’t 01577

001577

SOERRVEC, RO
024 , 00ERRVEC
80SRO

021126
177572
002120

000177

172340

077406

003130
003130

177740

81C

1¢:

LOMIME KTFLG
0177 KTFLG
RO, SPERRVEC
RO
OKIPARO,R1
077406, -40(R1)
RO,(R1).
#200,RO

000200

RO, #2000
1

0177600, -(R1)
94

177600

021134

24:

010037

64:

000207

9¢:

RTI

54,(SP)
RO, BPERRVEC

RTS

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

%7 ENOUGH MEMORY

{>28K)?

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

SET KT FLAG.

RESTORE OLO ERR VEC PTR.

RO = AR DATA,
Rl = KI REGS PTR.

SET DESCRIPTOR REG.
SET KIPAR REG.
BUMP AR DATA BY ~aK“,
AT ~1/70*?
NO

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

RTI TO NEXT LOCATTON
RESTORE OLD ERR VEC PTR.

D&
GLOBAL AREAS

MACRO M1113

14-JN-84

15:15

5EQ 0094

K?INIY - SETUP KT11 MEMORY MANAGEMENT REGISTERS
TSV

2713
2714
2715
2716

[]

SUBROUTINE T0O SET EXTENDED FEATURES SWITCH
Requires that SOFINIT

and WRTCHR have been done previous to cell.

2717

2718
2719
2720
2721
2722

s INPUTS;
:

CURRENT

UNIT

NUMBER

sOUTPUTS::
:

The Extended Features Switch

is set.

2723

2724
2725

INVERT: .

2726 021142
2727
2728
2729
2730
2731
2732
2733
2734
2735
2736
2737
2738
2739

021142
021146
021150
021156
021164
021172
021200
021204
021210

005737
001020
012737

012737
012737
012737
012704
004737
000207

002224

100206
021224
100010
021214
010662

021214
021216
021222
021224

MOV

€100206 , CMOPKT

;1 WRT SUB-SYS MEM CMD

MoV
MOV

MSMBK , CMOPKT 2
86 ,CrOPKT «6

1¢:

MoV
JSR
RYS

OCMDPKT R4
PC.URTCHR
PC

COMMANG PACKET.

MoV

. e358177774

021224
021226
021230

IS SWITCH SET?

YES,EXIT STAGE RIGHT!(or the next one outa town')

s MSG BUF ADDR
s+ BYTE COUNT

;s INVERT THE SWITCH

: SET CMDPXT INTO Ra
: DO IV
; RETURN

sMUST

MOD

BOUNDRY

$11ST WORD IS TSOS COMMAND.

0
0
0

021216
021220
021222

9100010, WSMBK

CMOPKT:: O

2742 021214

12ND WORO IS THE BUFFER LOW ADDRESS.
13RO WORD IS THE BUFFER HIGH ADDRESS.
14TH WORD IS THE BYTE/RECORD/FILE COUNT.

WRITE SUB-SYSTEM MEMORY CHARACTERISTIC BLOCK.

WSMBK::

O
0
0

11ST WORD::
12ND WORD::
13RO WORD::

.EVEN

‘0

SEL O
SEL 2
SEL 4

SUBROUTINE TO CHECK WETHER OR NOT WE'LL TEST NXM

;

s INPUTS;
sOUTPUTS
:
The NXMFLG
!

is set

if we con test.

The NXMLO and NXMH]

asddresses are setup.

MEMCK
::

2763 021232

2764
2765 021232

2766
2767
2768
2769

EXTFEA

2740
2741

2743
2744
2745
2746
2747
2748
2749
2750
2751
2752
2753
2754
2755
2756
2757
2758
2759
2760
2761
2762

BNE

021236
021242
021246
021252

005037
005037
005037
005737

003134
003136
003140
003144

SAVREG

CLR
CLR
CLR
TS7T

NXMFLG
NXMLO
NXMHI
7238

1SAVE THE REGISTERS

1CLEAR THE FLAG
tCLEAR THE TEST ADORESS LO
tCLEAR THE TEST ADDRESS HI
1IS IT A 1172387

E8
TSVS - GLOBAL AREAS

KTINIT

MACRO M1113

14-JUN-84

| 5:15

56£Q 0095

- SETUP KT11 MEMORY MANAGEMENT REGISTERS

021256
FEA 021260
2772 021266
27713 021270
2774 021274
2775 02127€
2776 021302
2717 021304
2778 021312
2779 021314
2780 021322
2781 021324
2782 021330
2783 021332
2784 021340
2785 021342
2786 021346
2787 021354
2770

2788 021360

2789 021362
2790 021364

021364
021370

021374
021376
021400

021404

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

002120

007777

021406

18:

003142

002120

005777

002120

003777

2%:

021406
002120

021406

000077
003134

001577

003140

13¢:
144:

005456
000001

BEQ
cHP
8LO
JSR
B8R
1S7
8EQ
cHe
BHI
cre
8LO
JSR
B8R
cHP
8LO
JSR
ADD
INC
B8R
B8R

PRINTF

MOV
MOV
MOV

TRAP

000004

15¢:

ADD

RTS

LOHIME 07777
24

PC NXMTST

134

T23A
4

LSHIME, 05777

sNO

SSEATER THAN 128K

1SETUP THE ADDRESS
1SET THE FLAG AND EXIT
$sIS IT A 11/23A7
s NO

tGREATER THAN 96K

143

1 YES,23A/238 WITH 128K MEMORY

LOIHIME, #1577

1SETUP THE ADORESS
$sSET THE FLAG AND EXIT
;GREATER THAN 24K BUT LESS THAN 64K?

LSHIME 03777

144

PC NXMTST

077 ,NXMHI

NXMFLG
15¢
154

ONOMEM
ONOMEM, -(SP)
e, -(SP)
SP,RO

sGREATER THAN 64K BUT LESS THAN 92x?

sNO,

TELL THEM AND EXIT WITH FLAG CLEAR

1SETUP THE ADDRESS
;FOOL THE 11702 & 11/03
1SET THE FLAG
sEXITY
tNOP FOR FRINTOUT

sTELL THEM & EXIT sesNO PRINTsssee

CSPNTF

04 ,5P
PC

s RETURN

SUBROUTINE TO SETUP THE NXM ADDRESS FOR TESTING
:

, NXMHI
PUTS
: NXMLO
1OUT

1SETUP WITH NXM ADORESS

:
;-

021406

021412
021416
021422

021440

021470
021474
021500

021502

013701
062701
042701
010102
000006

002120

000177

NXMTST: MOV
ADO
8IC

MOV
.REPT
ASL

010137
000012

003136

042702
010237
000207

177700
003140

.ENDR

LSHIME
R]

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

R1,R2

1RESAVE RESWLTS

tPUT IN PLACE FOR XFER

R1,NXMLO

1SAVE TEST ADDRESS LOW

#200,R1
€177,R1

10.
R2

#177700,R2
R2 ,NXMHI
PC

1PUT IN PLACE FOR XFER
;OON'T WANT

ILA!

$1SAVE TEST ADDRESS HIGH
1 RETURN

P&
TSV - MISCELLANEOUS SECTIONS
MACRO M1113 14 JUN 84 15:15
- SETUP KT11 MEMORY MANAGEMENT REGISTERS
KTINIT
8

9 021502
021502

TSV

10
16
17
18

19
20 021502

021502

21 021502
22 021512

177777

1777771

17171777

L$PROT: :

LTITLE

TSva

BGNMOD

TSva4

SEQ 0096
MISCELLANEOUS SECTIONS

.SBTTL PROTECTION TABLE
BGNPROT
LMORD
-1,
ENDPROT

-1,

sNO DEVICE PROTECTION REQUIRED.

MISCELLANEOUS SECTIONS

TSva

MACRO MI113

14-JUN-84

15:15

68
SEQ 0097

INITIALIZE SECTION

.SBTTL

25
26

s THE INITIALIZE SECTION CONTAINS THE COOING THAT IS PERFORMED

28
29
30
31

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

s INSERT TEMPORARY JUMP TO 00T

36
37 0c1512

40
41
42
43
44

46
47
48
49
S0
51

021512
021512
021516
021522
021530
021534
021540
021544
021544
021550
021552
021552
021554

021562
021564
021570

021572
021576
32 021600

53
54
55
56

57
58

59
60
61

63
64

THE BEGINNING OF EACH PASS.

32
33
34
35

38
39

INITIALIZE SECTION

021604
021606
021614
021616
021616
021620
021622
021622
021626
V21630
021630
021632
021632
021636
021640
021640
021642
021642
021646
021650
021650
021652
021652
02165¢

‘

005637
005037
012737
005037
005037
005037

002224
003134
006356
003152
003132
002300

012700
104447

000036

103023
023737
103070
005737
100472

013701
006301
005761
001516
032761
001060

002200

LSINIT::

404
:

002012

003174

#EF .CONTINUE RO
CIREFG
sUNIT IN RANGE?

TST

OUFLG

sDROPPED UNIT?

MOV
ASL

8€Q
81T

SETU
#B8IT14,ERTABL(R]1)

1 DROPPED?

INIY

;00 NOTHING IF

NXTU
UNITN,R1

NXTU

TRAP

CSEXIT

MOV
TRAP

#EF .NEW,RO
CHREFG

.WORD
READEF

;B8R IF NO.
;:BR

YES

ERTABL(R1)

BNE

EXIT

14:

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

UNITN,LSUNIT

TST

003174

000035

#EPRT1 ,EPRTSW

cHp

emMI

“CONTINUE' .

L10030-.
#EF .NEW

BNCOMPLETE NXTU
8CC
NXTU
#EF .START
READEF

012700
104447

MOV

O#€EF .START RO

READEF

#EF .RESTART

8cc

314

: TAKE NEXT UNIT

IF NOT

TRAP
CHREFG
BCOMPLETE 2¢
24
8CS

103404

104433

SIFLAG
KTENABLE
RAMSIZ
@EF .CONTINUE

BHIS

103052

103031

CLR
CLR
CLR
READEF

BNCOMPLETE 14
8CC
1

002200

000416

012700
104447

EXTFEA
NXMFLG

MOV
TRAP

104432

012700
104447

CLR
CLR

MOV

002176

003110

040000

BGNINIT

MOV
#EF .RESTART,RO
TRAP
CSREFG
BNCOMPLETE 314

000037

24:

BRESET

TRAP

CORESET

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

NEW PASS.

HE
TSVa - MISCELLANEOUS SECTIONS
INITIALIZE SECTION
65
66
67
68
69

021654
021660

021664

021670

70
711
72 021674
73 021700
74 021700

I¢] 021706
76 021712
(&4 021716
78 021722
79 021724
80 021730
81 021732
a2 021734
83 021740
84
85
86
87
88

89
90
91

92
93
94

95
%
97
98
99
100
101
102
103
104

105

106
107
108
109

110
111

112
113
114

021744
021744
021752
021756
021756
021760
021764
021772
021774
022002

005037
005037
005037
005037

MACRO M1113

14 JUN-84 15:15

CLR
CLR
CLR
CLR

002212
002220
003142
003144

005037

003376

012737
004737
004737
012700

177777
020630
021010
003174

MOV
MOV
JP
CLR

002202

314

012737
005037
104422
005237

023737
103423

012737
000401

177777

002216

002012

177777

003110

104421
032700
001343

002012

103342
005037
005237
012001
010137

000001

1CLEAR THE ERROR TABLE

0-1,UNITN

s INIT UNIT NUMBER. ..

304

Qve

DEVCNT

C4BRK

UNITN

UNITN,LSUNIT

B8R

114
CS$OCLN

LSUNIT, 01

TST

DEVCNT

BIT

BNE

;ABORT, NO MORE UNITS.

sHOM MANY UNITS SELECTED?
(B8R IF ONLY )

NEWPAS

:BR IF NO

CSRFLA

#ISR,RO

NEWPAS
CSDRPT

GPHARD

UNITN,RO

MOV

;...AND SET NEXT UNIT NUMBER.

NEWPAS

TRAP

1CLEAR COUNT OF DEVICES RUNNING

SETU

DOCLN
TRAP
NOP

DORPT

002204

1 SET ENVIRONMENT.
s INITIALIZE KT MEMORY MANAGEMENT

1GO REPORT THE STATUS

TRAP

003110
002216

i...QUICK VERIFY. ..

PASRPT

CLR

8EQ

SETU:

1CLEAR TME SUBTEST “SKIPPER”

RFLAGS

002200

tRETURN TO DEBUGGER
1 1 OGENTER THE DEBUGGER

B8R

8LOS

10¢:

t1CLEAR 11/238 FLAG

8LO

000100

1CLEAR 11/23A FLAG

RO, #ERTABE

INC

11;
PASRPT:

#ERTABL ,RO

+tNUMBER OF TESTS RUN IN PASS
1CLEAR FATAL ERROR COUNT

cHe

NEWPAS
: MOV
CLR
NXTU:
BREAK

002216

104424
000741

013700
104442

(RO).

TRAP

002200
002200

104444
000240

023727
101752
005737
001747

CLR

44%:

002200

SKIPT

PC,ENVIRN
KTINIT
PC.

8LO

002202
022010

0340, -(SP)
0204, -(SP)
0.007

JSR
JSR

MoV

003374

TSTCNT
FATFLG
T23A
1238

SEQ 0098

$ARE

ANY

STILL

RUNNING?

;SHOULD WE PRINT STATISTICS
tBR IF NO

NEWPAS

UNITN,RO

;GET UNIT N P TABLE POINTER.

TRAP
C$GPHRD
BNCOMPLETE NXTU

1BR IF UNIT NOT AVAILABLE.

CLR

1CLEAR "DROPPED" FLAG.

a8cc

NXTU

INC
MOV
MOV

ODEVCNT
(RO)+,R1
R1,CSRADDR

OUFLG

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

TSVA - MISCELLANEOUS SETCTIONS
INITIALIZE SECTION
115

116 022070

012001

022072
022076
022102

010137
012721
013721

117
118
119
120
121
122
123
124
125
126

127
128
129
130
131
132
133
134
135
136
137

MACRO M1113

14-JUUN-84

MOV

MOV
s MOV

002206
016216
002210
1¢:

022106

15:15

18
SEQ 0099

sGET VECTOR ADDRESS.
1GET INTERRUPT PRIORITY
1SET INTERRUPT PRIORITY,
$SET INTERRUPT VECTOR POINTER.
..
..
1...VECTOR.
1...AND PRIORITY.

(RO)+,R1
(RO),Re
R2, IPRI

MOV
MOV
MOV

R1,IVEC
#INTR,(R1)IPRI.(R1).

TS7
BEQ

Qve
St

+1ST PASS ??
:MNO, SKIP 'HE PASS 1 STUFF.

:1ST PASS, CHECK THAT DEVICE ADDRESSES ARE VALID. AND
{THAT

022106
022112
022114
022122
022126

022134
022136
022136
138 022140

139 022144
140 022146
022146
022152
022156
022162
022164
022166
141 022172
142 022172
143 022176
144 022202
145 022204
146 022210
147 022214
148 022216
149 022222
022230
151
152
153
154 022230
022230
022234
155 022236
022236
022236
156
157 022240
158

013701
006301
052761

005037
023727
101416

104421
032700
001412

THE DISPLAY STATUS IS PROPERLY INITIALIZED.

MOV

002200

100000
005770
002012

003174

002200
022240

005037
013701
010102
062702
004737
103005
010137
012737

003112
002204

RFLAGS
TRAP

BIT
8EQ

001000

013746
012746
012746
010600
104417
062706

8IS
CLR
cHP
BLOS

000001

PRINTF
MOV
MOV

MOV
MOV

000002

000006

10%:

UNITN,R1

ASL

#B8IT15,ERTABL(R])
EXTA
LSUNIT,
01
10¢

CORFLA

#PNT RO

10¢

OPUNIT ,UNITN

ADD

SP,RO
CSPNTF
#6,5P

CLR

NOOEV

CSRADDR ,R1

000002
016376

MOV
MOV
ADD
JSR

R1,R2
#TSSR,R2
PC , XNXM

003112
177777

MOV
MOV

R1,NODEV
0-1,0UFLG

002110

2s:

1SHOULD WE PRINT UNIT o7
18R IF NOT,
tPRINT THE UNIT o

#PUNIT, -(SP)

TRAP

8cC

1 SAY DEVICE RUNNING
sCLEAR ERROR EXTENSION FLAG.
sARE WE TESTING MA.TIPLE UNITS?
1BR IF NO,
;YES -- GET OPERATOR FLAGS.

+ ADORESS OF FIRST REGISTER
1START OF REGISTERS
s ADDRESS OF TSSR REGISTER
1 TEST BOTH CONTROLLER REGISTERS...
:...AND BR IF ALL OK.

1FLAG DEVICE AS NON-EXISTENT
1DROP THIS UNIT.

sFINALLY, SET CPU PRIORITY ANDO WE'RE DONE.
3

Ss:

012700
104441

L10030:

104411
045

116

045

PUNIT:

SETPRI
MOV

#PRI00
#PRIO0,RO

TRAP

CSINIT

.ASCIZ
.EVEN

/8NsNsAsssss

1 ENABLE INTERRUPTS.

TRAP
C$SPRI
ENOINIT

TESTING UNIT #D28A ssese/

TSVA - MISCELLANEOUS SECTIONS
ADD AND DROP UNITS SECTIONS

MACRO M1113

14 JUN-84
.SBTTL

160
161
162

163
164
165
166
167 022306
022306
168 022306
169 022310
170 022312
171 022320
172 022326
022326
022330
022334
022340
022342
022344
173 022350
022350
022352
174 022354
175

:
;
:

010046
012746
012746
010600

100000
040000

003174
003174

022354

000167

1¢:

176

177 022402
178

022402
022402

L10031:

104452

s GET UNIT TO BE ADDED (RO)

8IS
81C

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

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

@1%.R0

MOV

RO, -(SP)

MOV
MOV

2,-(SP)
SP,RO

ADD
EXIT
. WORD
.MORD
.ASCIZ
.EVEN

MAKE IT A WORD INDEX

CSPNTF

86 ,5P
AU
JEMP
L10031-2-.
UNIT sDsA ADDED/
/#NsA

ENDAU
TRAP

;s UNUSED.
C$AU

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

179
180
181

182
183

®e

184
185

187
188
189 022404
022404
190 022404
191 022412
192 022414
193 022416
194 022424
195 022432
022432
022434
022440
022444
022446
02 150
196 022454
022454
022456

RO,.R1

TRAP

045

ADD ANO DROP UNITS SECTIONS

MOV

PRINTF

000002

116

SEQ 0100

BGNAU
ASL

104417
062706
000026
045

15:15

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

LS$AU::
010001
006301
052761
042761

012737
010001
006301
052761
000240
010046
012746

0127406
010600
104417
062706

000167
000030

1777717

003110

140000
000240

003174
000249

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

L$DU::

BGNDU

MOV
MOV
ASL

022460
000002

000006

THOSE

0-1,DUFLG
RO,.R1

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

MOV
MOV
MOV
MOV

TRAP
ADD
EXIT
. WORD
LWORD

@1$.RO

RO, -(SP)
o1s,-(SP)
02,-(SP)
SP,RO
CePNTF
#6,5P

ov
Jup
L10032-2

: SAY DROPPED
;N

K&
TSVa - MISCELLANEOUS SECTIONS

ADD AND DROP UNITS SECTIONS

197 022460
198
199 022510
200

022510
022510

045

116

MACRO M1113

045

14 JUUN-84 15:15

14
L10032:

104453

jee

LASCIZ
.EVEN
ENODU

/%NsA

TRAP

CsDU

SEQ 0101

UNIT #DsA DROPPED/

201

; AUTO-DROP CODE SECTION.

203 022512
022512

L$AUTO: :

202

204 022512

205 022516
206 022522

207 022526
208 022530
022530
022534

022536
022542

022544
022550

022552
022556
209 022560
210 022562
211 022564

212 022570
213 022570
€22570

022570

013705

012703
004737
103420

002204

000550
016250

012727

000372

013727
000000

002116

005367
001367
005303
001357
004737

177756

000000
005367
001375

104461

10¢:

1 A1

20¢:

L10033:

CSRADDR,RS5

;POINT TO DEVICE REGISTER

204
250.
#250.,(PC).

sLEAVE WHEN SSR IS SET
sHAIT FOR .25 SECONDS

MOV
JSR

0360. ,R3
PC,WAITF

. WORD

BCS
DELAY
MOV

MOV
.WORD

177772

017202

BGNAUTO

DeC
BNE
DEC
BNE
DEC
BNE
JSR

LS$OLY,(PC)e
0
-6(PC)
.-4
-22(PC)
.-20
R3
10¢
PC.CKDROP

ENDAUTO

TRAP

sENOUGH TIME FOR 2400’ REEL TO REWIND
sWAIT FOR SSR TO SET

;:BUMP COUNTER DOWN
:KEEP GOING
; TRY AND DROP UNIT
:

C$AUTO

UNUSED,

L8
TSV4 - MISCELLANEOUS SECTIONS

MACRD M1113

CLEAN-UP AND REPORT CODING SECTIONS

14-UUN-84

.SBTTL

215
216

217

15:15

SEQ 0102

CLEAN-UP AND REPORT CODING SECTIONS

; THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS

218
219

; EXECUTED AT THE END OF EACH PASS (OR SUB-PASS).
1 USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL STATE.

220
221
222 022572

022572
022572
022576
022602
022604
022612
022616
022616
022616
022616

BGNCLN
L$CLEAN::
013705
005737

002204
003110

012765
004737

016250

100405

MOV

14:

2%:
L10034:
104412

+POINT TO DEVICE REGISTER

OUFLG

1¢

$...AND GROSS CONTROLLER FAWT.
..
3...D0N'T TRY TO XCT CLEANUP COOE
.

MOV
JSR

€0, TSSR(RS)
PC.WAITF

;00 SOFT INIT

8MI
000002

CSRADDR,RS

: "DROPPED"” FLAG IS SET ON...

ENOCLN
TRAP

CSCLEAN

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

LS$RPT::

022670
022674
022674
022676
022700
022704
022710
022712
022714
022720
251 022722
022726
253 022730
022730
022732

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

010346
012746

PRINTS

@DEVSUM

TRAP

C4PNTS

MOV
MOV
MOV

023062
000001

003174

1¢:

170000

04,5P
R2,-(SP3
R3,-(SP)

MOV
CLR
MOV

SERTABL ,R4
R3
(R4),R2

BPL

B8EQ

000010

2%:

#B8IT14,R2

24
otC?777,R2

MOV
MOV
MOV

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

MOV
TRAP
ADD

SP,RO
CS$PNTS
010,SP

B8R

cHe
BNE

PRINTS

023167

BNE
8IC

PRINTS

023117
000003

Q0EVSUM, -(SP)
#1,-(SP)
SP,RO

ADD
MOV
MOV

BIT

040000

160000

BGNRPT

MOV
MOV

@DEVONL,R3,R2

R2,0160000
3¢
@DEVNXR,R3

R3,-(SP)
QDEVNXR, -(5P)

:+ GET START OF ERROR TABLE.
3 CLEAR UNIT NUMBER
:+ GET ERROR TABLE ENTRY & TEST IT.

3+ ZERO IF UNIT NOT RUN

i WAS UNIT DROPPED?

;s BR IF YES
s+ GET ERROR COUNT FIELD
i

3 WAS UNIT NON-EXISTENT?
; BR IF NO

TSVA - MISCELLANEOUS SECTIONS

MACRO M1113

CLEAN-UP AND REPORT CODING SECTIONS
022736
022742
022744
022746
254 022752
255 022754
022760
257 022762
022762
022764
022770
022774
022776
258
259

020227

001012
010346
012746
012746
010600
104416
062706
000414
042702

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

261

263
265
267

269
270
27
272
273
274
275
276
277
278

012746
010600
104416
062706
000431

MOV

000002

MOV

TRAP
ADD

000006

160001

023402

c45
05
045
045
045

B8R

023251

000002

30¢:

170000

023332
000003

003374

L10035:

116
101
101
101
101

045
040
040
040
040

DEVSUM:
DEVONL:
DEVNXR:
DEVNRD:
DEVORO:

C$PNTS
#6,5P

MOV
MOV
MOV
MOV

R3,-(SP)
S#OEVNRD, -(SP)
02,-(SP)
SP,RO

B8R

8IC

PRINTS

@#DEVNRD,R3

#tC7777,R2

@DEVDRO,R3,R2

R2,-(SP)
RS, -(SP)
®DEVDRO, -(SP)
#3,-(SP)
SP,RO

ADD

#10,5P

ADD

1 WAS UNIT NOT READY AT STARTUP?
; BR IF NO.

CSPNTS
#6,5P

MOV
MOV
MOV
MOV
MOV

TRAP

000010
000002

02,-(SP)

SP,RO

R2,#160001
304

TRAP
ADD

000006

oy o
BNE

PRINTS

104425
023062
023117
023167
023251
023332

14 JUUN-84 15:15

CSPNTS
02 .R4

INC
cHp
BLO
MOV
MOV
MOV
ENDRPT

R3
R4, 0ERTABE
14
(SP).,R4
(SP)+,R3
(sP). ,R2
; UNUSED.

TRAP

CSRPT

,ASCTI7
.ASCIz
.ASCIZ
.ASCIZ
.ASCIZ

/#NsADEVICE STATUS SUMMARY :#N/
/%A
UNIT #D3sA
ONLINE,
ERRORS = sDsN/
/s#A
UNIT #D3sA
DROPPED, NON-EXISTENT REGISTERSN/
/#A
UNIT #D3#A
DROPPED, NOT READY AT STARTUPSN/
/#A
UNIT #D3sA
ODROPPED, ERRORS = #D%N.

.EVEN

ENOMOD

SEQ@ 0103

HARDWARE TESTS MACRO M1113
TSVSA
roeas P AND REPORT CODING SECTIONS

14 JUN 84 15:15

1
2
9

10 023402

TSVS::

023402

16
24
25
26
27

@¢

®s

28
29
30
31
32
3>

35
36
37
38
39

®e

40
a1
a2
a3

TSVSA

BGNMOD

TSVS

.SBTTL

TEST

HARDWARE

TESTS

BUS RESET

TESY

THIS TEST VERIFIES THAT THE M7196 MOOULE'S DEVICE REGISTERS ARE
ACCESSIBLE ON THE BUS (SUBTEST 1) AND THEN CHECKS THAT THE

BUILT-IN INITIALIZATION SELF-TEST MICRODIAGNOSTIC DID NOT FIND
ANY BASIC PROBLEMS IN THE MOOULE.

AREAS OF LOGIC TESTED 8Y

THE

SELF -TEST SEQUENCE ARE AS FOLLOWS:
ROM ANC PIPELINE REGISTER,
SEQUENCER, INTERNAL BUSES. 2901 MICROPROCESSOR, AND, RAM.
THIS

TEST INITIALIZES THE CONTROLLER BY ISSUING THE BUS INIT SIGNAL
VIA A RESET INSTRUCTION, OR BY WRITING INTO THE TSSR REGISTER,
WAITS A PERIOD OF TIME (TO ALLOW THE CONTROLLER'S INITIALIZATION
MICRODIAGNOSTIC SEQUENCE TO BE COMPLETED), AND THEN CHECXS THE
CONTENTS OF THE TSSR REGISTER.
SUCCESSFUL INITIALIZATION IS
INDICATED BY SUBSYSTEM READY (SSR) AND NEED BUFFER ADORESS (NBA)
BITS BEING SET (1) AND ALL OTHER BITS (EXCEPT A17 AND A16 AND
OFL, WHICH ARE IGNORED FOR THIS TEST) BEING CLEAR (0).
IF THE

CONTENTS OF TSSR ARE NOT AS EXPECTED, AN ERROR REPORT IS ISSUED
LISTING THE EXPECTED DATA, ACTUAL DATA, AND THE DISCREPANCIES.
THE ERROR REPORT ANALYZES THE TSSR CONTENTS AND DISCERNS AND
REPORTS ONE OF THREE PUSSIBILITIES:

44
as
46
47
a8
49

.TITLE

SEQ 0104

TSSR CONTENTS ARE AMBIGUOUS (ANY OF BITS 11-14 ARE SET,
OR STATES OF SSR AND SC BITS DO NOT CORRESPOND TO THE

APPARENT ERROR CODE IN BITS 0-5):
INDICATES THAT
TSSR CONTENT CANNOT BE TRUSTED.
INDICATES A

50
51
52
53
54
ss
56
57
S8
59
60
61
62

THE

CATASTROPHIC CONTROLLER MALFUNCTION.
THIS IS A FATAL
ERROR (EXECUTION IS ABORTED).
FIELD ACTION WOWLD BE TO
REPLACE THE M7.96.
IF THE M7196 ITSELF IS BEING
DEBUGGED, THE PROGRAM SHOULD BE RESTARTED WITH LOOP ON
ERROR ENABLED IN ORDER YO PROBE FOR THE PROBLEM.

SSR = 0,

THE RANGE

SC = O AND THE ERROR CODE IN BITS 0-5 IS IN
17-13:

THIS IS A FATAL ERROR.

THE ERROR

®e

CODE 1S DECODED AND THE APPROPRIATE DESCRIPTION GIVEN.
INDICATES THAT A SERIOUS PROBLEM EXISTS.

63
64 023402
023402
69 023402
70 023406
71 023412
72 023420
73 023420
74
75 023422

023422
023422

BGNTST
012700
004737
012737

005003

023600
016510
000024

MOV
002214

020. ,LOOPCNT

PERFORM 20 ITERATIONS

CLR

BGNSUB
104402

{ASCII MESSAGE TO IDENTIFY TEST

PC,TSTSETLP

MOV
T1LOOP:

0TST11D,RO

JSR

;D0 INITIAL TEST SETUP

JUSE R3 AS FATAL ERROR FLAG

$ /77777777777 BEGIN SUBTESTY /77777777777
TY.1:

TRAP

csBsSuUB

TSVSA
TEST

HARDWARE
1:

TESTS

BUS RESET

TEST

MACRO M1113

14 AN-84 15:15

023424
023424
78 023426
Ia
023432
80 023436
81
82
83
84
68

023440
023444

023450
023452
023454
023454

010102
042702
052702
020102
001405

SEQ 01095

ORESETY

104433
004737
016301

JSR
MOV
MoV

016250

8IC
8IS
Cr®
8EoQ
ERRDF

176277

002200

104453

000145
003703
012102
005203

10¢:

InC

sISSUE A BUS RESE?

PC.MALTF

TSSR(RZ),
M)
"1, A2

0+C <HIADOR10FL
> , A2

OSSR INBA . R2
R1, A2

104
ERAND, SFMERR , SFFMSG

1ORANCH IF COMPARE
1REPORT A FATAL ERROR

104403

004737
005003

TS87

CLR

$//7/77/7/77777

005065
004737
016501
010102
042702
052702
020102
001405

107
108
112

113 023546
114 023350

176277
002200

8I1C
8IS
ERROF

10¢:

115 023550
104403

023356
121 023562
023566
123 023570

005703
001402
004737
004737
103002
000137

116
117
118 023552
119 0235354

CLR
JSR

016250

104455
000146
003650
012102
005203

023550
023350

END

SUBTEST

INC

1ST

017202
016456

023420

:
204

TSSR(RS)
PC.WAITF

TSSR(RS)
,R1

R1,R2

0+*C<HIADOR!OFL> ,R2

OSSRINBA ,R2
R1,R2

104
ERRNO,
SF IERR , SFFMSG

ENDSUB

8EQ
JSR
JSR
8CC

101
SFHERR
SFFMSG

TRAP

BEGIN S\BTYESY

T1.2:

104402

100
101
102
103
104
105
106

CSERDF

CSESUB

1DID WE MAVE FATAL ERROR ?
1BRANCH IF NOT
3GO DROP THIS UNIT, IF ALLOMED
IRESET FATAL ERROR FLAG

8EQ

017202

TRAP

1SET THE FATAL ERROR FLAG
L10037:

005703

CIRESF"

.MORO
.MORD
WORD

S MANANANANANANANANN

001402

TRAP

tMAIT FOR READY
tGET THE CONTENTS OF TSSR
sCONTENTS OF TSSR
1 THESE BITS MAY BE SET
tREADY AND NEW DATA SHMOWLC BE SET
1COMPARE EXPECTED TO RECEIVED

TRAP

.MORO
.WORD
.WMORD

1SET THE ERROR FLAG
L10040:

204
PC , CKDROP

PC, TSTLOOP
404
T1L00P

csssuB

tMRITE TO ISSUE A SOFT RESET
1MAIT FOR READY TO SET
1GET REGISTER TSSR DATA
1CONTENTS OF TSSR
1 THESE BITS MAY BE SET
IREADY AND NEW DATA SHOMLD BE SET
1COMPARE EXPECTED TO RECEIVED
18RANCH IF COMPARE
tREPORT A FATAL ERROR
TRAP
CSEROF

FANNANNNNNNNNY END SUBTEST

/77777777777

1tFATAL ERROR DETECTED

TRAP

1BRANCH IF NOT
1SEE IF TIME TO DROP UNIT
1SHOULD ME DO ITERATIONS ?
1BRANCH IF NOT
1LOOP UNTIL COUNT EXPIRED

102
SFIERR
SFFMSG

csesus

TSVSA - MARDWARE TESTS
TEST

BUS RESET

124 023574

023574

125

023576

TEST

MACRO M1113

14-JUN 84 15:15

408 :

10443;

ExXIY

SEQ 0106

187

sALL DONE THIS TEST

000022

126
127

TRAP

CoEx]T

.WMORD

L10036

TRAP

CsETsST

i
tLOCAL TEXT MESSAGES FOR TESTY

128
129

3 -

130 023600

131
132 023620

023620

53 023620

111

156

151

TST1I0:

.ASCIZ

‘'Initiealizetion’

.EVEN
ENDTST

L10036:

104401

134

.SBYTL

135
136
137
lgg

3
3

140

3
:
3

14S

144

PART OF THE LSI-11 BUS INTERFACE SECTION OF THE M7196

MODULE:
PARY OF THE INPUT FILE (TSD8 MIGH BYTE), PART
OF THE OUTPUT FILE (TSSR HIGH BYTE AND TSBA, BOTH
BYTES), PART OF TME DCOOS TRANSCEIVER CIRCUITS (ADDRESS

{:?

OECOOER, BOAL DRIVERS, MIGH BYTE OF INTERNAL DAL BUS
ORIVERS),

AND LOGIC,

148

‘i;g

PART OF 2901 MICROPROCESSOR ELEMENTS (Q-REGISTER,

Y AND SOURCE BUSES;

%gz

AND BASIC PROGRAMMED 1/0 CONTROL SEQUENCES

}gé

2: WRAP DATA - MIGH BYTE

THIS TEST VERIFIES OPERATION OF
:

141
142
143

TEST

BASIC MICROPROGRAM SEQUENCES.

1;2

158

WAITS FOR THE SSR BIT IN TSSR TO SET, THEN CHECXS THE CONTENTS

160

DATA WRITTEN APPEARS IN BOTH BYTES OF TSBA AND THE FINAL CONTENT

162

8 AND 9, WMICH SHMOULD CONTAIN BITS 8 AND 9 OF THE DATA PATTERN

157

159

161

163

164

165
166

$
$

ig;

:
s

169 023622

174
175
176
177
178

023622

023622
023626
023632
023640
023642

179 023646

012700
004737
012737
005004
012703
005703

024270
016510
000024
177777

002214

THE PROGRAM WRITES A TEST DATA BYTE INTO THE HIGH BYTE OF TSDB.,

OF BOTH TSBA AND TSSR.

OF TSSR IS CORRECY (SAME AS AFTER INITIALIZATION EXCEPT FOR BITS

WRITTEN.

AN ERROR IS REPORTED AND A DESCRIPTIVE ANALYSIS GIVEN

IF A DISCREPANCY IN TSBA OR TSSR IS DETECTED.

TME ANALYSIS

LISTS LIKELY FALLTY CANDIDATES FROM THE LOGIC ELEMENTS LISTED
ABOVE.
THE TEST IS REPEATED FOR ALL COMBINATIONS OF TEST DATA

BYTES (0-377 OCTAL).
BGNTST

MOV
JSR
MOV
T2L00P: CLR
MOV

Ss:

THE MONDWLE IS FUNCTIONING CORRECTLY IF

7ST

071ST210,R0
PC.TSTSETUP
920. ,LOOPCNTY
R4
#-1,R3
R3

T2::

sASCII MESSAGE TO IDENTIFY TEST
;100 INITIAL TEST SETWP
1PERFCRM 20 ITERATIONS
1STARTING DATA PATTERN
3100 INIT ON FIRST TIME THROUGH
100 WE NEED SOFT INIT

MACRO M1113
TSVSA - HARDMARE TESTS
BYTE
HIGM
DATA
TEST
2: WRAP

183
187

001412
005003
004737
103406
010001

189

104455
000311
003650
012034
005203

180 023650
181 023652

188

005037

D9
14 JUN-84

15:15
8EQ
LR

JSR
8Cs
MOV
ERROF

015774

002220

10¢:

INC
CLR

SEQ 0107

104

1BRANCH IF NOT

10¢
RO,R1

tBR IF SOFT INIT = Ox
1SAVE CONTENTS OF TSSR
1OEVICE FATAL ERROR DURING INIT

R3
PC,.SOFINIT

ERRNO, SFIERR , SF IMSG

R3
FATFLG

1OON’'T NEED INIT NEXT TIME THRU
100 SOFT INIT OF CONTROLLER

TRAP

LWORD
.WORD
WORD

tFORCE SOFT INIT ON NEXT PASS
1CLEAR FATAL ERROR FLAG
$2>>3>>>3>35>>

BGNSEG

BEGIN

SEGMENT

110465
004737
103411
010001
010402

MOV
JSR
8Cs
MOV
MOV
ERROF

000001
016250

104455

R4, TSOBH(RS)
PC,WAITF

005203
005237

002220

104406
005737

002220

004737

017202

001402

210
211 023762
212 023764
213 023770

214 023774
215 024000
216 024002
217 024006
218 024010
222 024012
024012
024014
024016
024020
223 024022
224 024024

225
226
227
228
229
230

024024
024026
024032
024034
024036
024040
024042

010402
042702
000302
052702
016501

032701

001402
052702
020201
001405

104456

000313
024151
015474
005203

104406
016501
005002
150402
000302
150402
020102

INC
15¢:

197
8EQ
JSR
MOV
8I1C
SWAB
8IS
MOV

177774
002200
000002
000100
000100

CKLOOP

154

R4 ,R2

ERRNO, T2SSR ,EXPREC

1DEVICE FATAL SSR FAILEDT;%SET
.MORD
.WORD
WORD

R3
FATFLG

tFORCE SOFT INIT ON NEXT PASS

FATFLG

1WAS FATAL ERROR RECEIVED

PC . CKDROP

$SEE IF TIME TC DROP UNIT

204

;LOOP ON ERROR,

IF FLAG ?IEQLP

1BRANCH IF NOT

8IS
BEQ
ERRHRO

304
ERRNO, T2TSSR, EXPREC

INC
CKLOOP

1FORCE SOFT INIT ON NEXT PASS

MOV

TSBA(RS),R1
R2
R4 ,R2
Re
R4 ,R2
R1,R2

CLR
8IS8
SWAB
8IS8
cHP

;'C<OITO!BIYI> .R2
2
#SSRINBA ,R2
TSSR(RS),R1

R2,R1

CSEROF
202
T2SSR
EXPREC

sSET FATAL ERROR FLAG

#0FL ,R1
254
O0FL ,R2

R4,R2

C$BSEG

;1OATA THAT WAS WRITTEN

sOATA PATTERN WRITTEN
tCLEAR ALL BUT LOW 2 BITS
sBITS 8 AND 9 HAVE LOW DATA BITS
s THESE BITS MUST BE SET ALSO
;:GET THE CONTENTS OF TSSR
:IS OFF -LINE BIT SET ?
sBRANCH IF NOT OFF -LINE
;1SET OFF-LINE IN EXPECTED DATA
1D0ES EXPECTED MATCH RECEIVED ?
tOKAY IF MATCH
s TSSR WASN'T CORREC?T

BIT

254:

>>>>55>>>5>>

1SET MAINT MODE + WRITE DATA
tWAIT FOR SSR TO SET
1BR IF CARRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR

000312
024216

015474

201
SFIERR
SF IMSG

TRAP

104404

CSERDF

TRAP
.WORD
.WORD
LWORD

1LOOP ON ERROR ?

TRAP
1GET TSBA REGISTER CONTENTS
b

1OATA PATTERN WRITTEW

1MOVE INTO TOP BYTE
1BOTH HALVES SHOULD BE SAME
1 COMPARE EXPECTED TO RECEIVED

CsCLPL

CS$ERHRD
203
T2TSSR
EXPREC

CsCLPl

Fo)
TSVSA - HARDWARE TESTS MACRO M1113
HIGH BYTE
2: WRAP DATA

TEST

231 024044
235 024046
024046
024050
024052

024054
236 024056

237
238 024060

024060

001405

INC
35¢:

105204
001270
004737
103002
000137

251
252
253
254

255

016456
023640

404

104432
000214

262?5
266
222;

ggg

R4
St
PC,TSTLOOP

8CC
JP
EXIT

404
T2L.00P
TST

ccccccccccccr

TRAP

C$ESEG

sNEXT DATA PATTERN TO TEST
sBRANCH TILL BACK TO ZERO
;SHOULD WE DO ITERATIONS ?

sBRANCH IF NOT
;LOOP UNTIL COUNT EXPIRED
sALL DONE THIS TESY
TRAP
. WORD

CsEXIT
L100O41 .

024104
024151
024216
024270

124
124
116
127

123
123
157
162

102
123
040
141

T2TSBA:
T2TSSR:
T2SSR:
TST2ID:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

'TSBA Incorrect After TSDB High Write’
'TSSR Incorrect After TSDB Hi
Write’
'No Sub-Systam Reedy After T
High Write
‘'urep Dete - High Byte’

.EVEN

ENDTST

L10041:

104401
.SBTTL
3

TEST

TRAP

CSETST

3: WRAP DATA - LOW BYTE

THIS TEST FURTHER VERIFIES OPERATION OF MANY OF THE SAME

ELEMENTS TESTED IN TEST 2, AND ADDITIONALLY VERIFIES:

3
H

271
272

:
H

277
278
279
280

3
3
5

273
274
275
276

s CCccccccccccc END SEGMENT

EXPREC

sLOCAL TEXT MESSAGES FOR TEST

2228

263

ENDSEG

CS$ERMRD

204
T2TSBA

024316
267 024316

2225

. WORD
sFORCE SOFT INIT ON NEXT PASS

INCB
BNE
JSR

256 024316

260

sERROR IF NOT EQUAL
tPRINT THE ERROR & EXPD/RECY
TRAP

100004:

248

249
250

35¢
ERRNQ,T2TSBA,EXPREC

. WORD
. WORD

015474
005203

240 024062
241 024064
242 024066

246
247

BEQ
ERRHMRD

104456

104405

243 024072
244 024074
245 024100
024100
024102

SER 0108

000314
024104

39 024060

14 UUN 84 15:15

:
H
H
;

LOW BYTE OF THE TSDB INPUT FILE REGISTER,
2.

LOW BYTE OF INTERNAL DAL BUS DRIVERS ON THE DCOOS

BASIC FUNCTIONING OF PARTS OF THE RAM.

TRANSCEIVER CIRCUITS,

THE PROGRAM WRITES A TESYT DATA BYTE INTO THE LOW BYTE OF T1SD8,
WAITS FOR THE SSR BIT IN TSSR TO SET, THEN CHECKS THE CONTENTS
OF BOTH TSBA AND TSSR.
THE MODULE IS FUNCTIONING CORRECTLY IF
DATA WRITTEN APPEARS IN BOTH BYTES OF TSBA AND THE FINAL CONTENT

OF TSSR IS CORRECT (SAME AS AFTER INITIALIZATION EXCEPT FOR BITS
8 AND 9, WHICH SHOUWLD CONTAIN BITS 8 AND 9 OF THE DATA PATTERN
WRITTEN.
AN ERROR IS REPORTED AND A DESCRIPTIVE ANALYSIS GIVEN
IF A DISCREPANCY IN TSBA OR TSSR IS DETECTEN.
THE ANALYSIS

F9
MACRO M1113
TSVSA - HARDMWARE TESTS
TEST
3. WRAP DATA - LOW BYTE

14-JUN-84 15:15
LISTS LIKELY FAWLTY CANDIDATES FROM THE LOGIC ELEMENTS LISTED
THE TEST IS REPEATED FOR ALL COMBINATIONS OF TEST DATA
ABOVE .
BYTES (0-377 OCTAL).

281
282
283

BOGNTST

285
012700

004737
012737
V05004
012703
005703
001412
005003
004737

103406

024763
016510
000024
000001

002214

T3LOOP:

Ss:

015774

010001

104455

000455
003650
012034
005203
005037

110465
004737
103411
010001
010402

104455
000456
024712
015474
005203
005237
104406
005737
001402
004737
010402
042702
000302
052702
016501
032701
001402
052702
020201
001405

331

024510

104456

MOV
JSR
MOV
CLR
MOV
TST
BEQ
CLR
JSR
8CS
MOV
ERROF

#7ST310,RO
PC,TSTSETUP

:20. .LOOPCNT

01,R3
R3

104

R3
PC,SOFINIT

104

RO,R1

ERRNO, SFIERR, SF IMSG

13::

tASCII MESSAGE TO IDENTIFY TEST
;00 INITIAL TEST SETWP
1PERFORM 20 ITERATIONS
sSTARTING DATA PATTERN
1FORCE SOFT INIT ON FIRST PASS
sSET IF INIT IS REQUIRED
sBRANCH IF NO INIT NEEDED
sASSUME NO INIT NEEDED ON NEXT LOOP
100 SOFT INIT OF CONTROLLER
1BR IF SOFT INIT = 0K

1SAVE CONTENTS OF TSSR
sDEVICE FATAL ERROR DURING INIT
TRAP
CSEROF
.WORD
.WORD

002220

10¢:

INC
CLR

R3
FATFLG

016250

002220

15¢:

002220
017202

177774

204
:

002200
000002
000100
000100

25¢:

MOV8

R4, TSDB(RS)

8Cs
MOV
MOV
ERROF

RO,R1
R4 ,R2
ERRNO, T3SSR , EXPREC

PC.WAITF
15¢

INC
INC
CKLOOP

R3
FATFLG

TST
BEQ
JSR
MOV
8IC
SWAB
8IS
MOV

FATFLG

817
8€Q
8IS
cHP
8eQ
ERRHRD

;FORCE INIT ON NEXT PASS

204

PC .CKOROP
R4 ,R2
#tC<BITO!BITL>,R2
R2

OSSR INBA, R2
TSSR(RS),R1

®0FL ,R1
254
®0FL ,R2
R2,R1
30 ¢
ERRNO, TSTSSR,EXPREC

301
SFIERR
SF IMSG

;CLEAR FATAL ERROR FLAG
12>>>>33>>>>>

BGNSEG

104404

338

SEQ 0109

BEGIN

SEGMENT

TRAP

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

C$BSEG

;SET MAINT MOOE + WRITE DATA

tWAIT FOR SSR TO SET

18R IF CARRY SET (GOOD RETURN)
s SAVE CONTENTS OF TSSR
1DATA THAT WAS WRITTEN
1OEVICE FATAL SSR FAILED"Y‘(A)PSEY
.WORD
.MORD
.WORD

1FORCE INIT ON NEXT PASS
1SET THE FATAL ERROR FLAG
1LOOP ON ERROR, IF FLAG SET
TRAP
s0ID ME GET FATAL ERROR ?
1BRANCH IF NOTY
1OROP UNIT, IF DROP ALLOWED

tDATA PATTERN WRITTEN
sCLEAR ALL 3UT LOW 2 BITS
18ITS 8 AND 9 HAVE LOW DATA BITS
s THESE BITS MUST BE SET ALSO
1GET THE CONTENTS OF TSSR
1 IS DRIVE OFF -LINE
1BRANCH IF NOT OFFLINE
31SET OFF -LINE IN EXPECTED
s1DOES EXPECTED MATCH RECEIVED ?
1OKAY IF MATCH
1 TSSR WASN'T CORRECT
TRAP

CSERDF
302
T3SSR
EXPREC

CsCLP1

CS$ERHRD

MACRO M1113
TSVSA - HARDMARE TESTS
TEST
s WRAP DATA - LOW BYTE

339
340
341

343
345
347
351

024512
024514
024516
024520
024522
024522
024524
024530
024532
024534
024536
024540
024542

(69

14-JUN-84 15:15

SEQ 0110

. WORD

000457

. WORD

024646
015474

005203

304
:

104406
016501
005002

150402

000302
150402
020102
001405

tFORCE INIT ON NEXT PASS

INC
CxLOOP

MOV
CLR
8158
SWAB
8IS8
cHe
BEQ
ERRHRD

‘T‘SBA(RS).RI

104456

tLOOP ON ERROR ?
t1GET

103002

000137

TRAP

CsCLP]

R4 ,R2
R2
R4 ,R2
R1.R2

tDATA PATTERN WRITTEN
1MOVE INTO TOP BYTE
:80TH HALVES SHOULD BE SAME
1COMPARE EXPECTED TO RECEIVED

ERRNO, T3TSBA,EXPREC

sPRINT THE ERROR & EXPD/RECYV

3Ss

1BR IF ERROR NOT EQUAL

INC

sFORCE

INIT ON NEXT PASS

jCcccccccccccs

ENDSEG

INCB
BNE
JSR
8cCC

016456

024336

404
:

104432

EXIT

END

TRAP

CSERMRD

EXPREC

SEGMENT

100004:

104405

004737

EXPREC

. WORD
. WORD

35¢:

105204
001270

TSBA REGISTER CONTENTS

000460
024602

015474
005203

303

T3TSSR

<ccccccceccecc

TRAP

R4
S

sNEXT DATA PATTERN TO TEST
sALL DONE WHEN BACK TO ZERO

403

sBRANCH IF NOT

PC.TSTLOOP

304
T3TSBA

CSESEG

;SHOULD WE DO ITERATIONS ?

T3 00P
TS7T

;LOOP UNTIL COUNT EXPIRED
sALL DONE THIS TEST
TRAP

000210

CSEXIT

.WORD

L10042-.

TRAP

CS$ETST

;LOCAL TEXT MESSAGES FOR TEST

116

127

123
123
157
162

102
123

040
141

TSTSBA:
T3TSSR:
T3SSR:
TST3I10:

.SBTTL

®e
e
e
®

381
382
383
384

.ASCIZ
.ASCIZ
.ASCI2Z
.ASCI2
.EVEN
ENDTST

‘TSBA Incorrect After TSDB Low Write’
'TSSR Incorrect After TSDB Low Write'’

'‘No Sub-Systewm Ready After TSDB Low Write'
‘Wrap Deta

Low Byte’

L10042:

104401

372 025010
025010
025010
373
374
37S
376
377
378
379

124
124

024602
024646
024712
024763

TEST

RAM TEST

THIS TEST VERIFIES THAT ALL LOCATIONS OF THE RAM ON THE M7196

CAN PROPERLY STORE AND READ BACK ALL DATA PATTERNS. AND THAT
EACH RAM LOCATION IS UNIQUELY ADDRESSED (I.E., THAT ONE AND ONLY
ONE LOCATION IS ACCESSED BY ANY PARTICULAR ADORESS).
THESE
TESTS ARE PERFORMED BY THREE SUBTESTS, DESCRIBED BELOW.

BYPRODUCT OF THESE TESTS IS A VERIFICATION OF TWO REGISTERS IN

THE 2901 AND THE CAPABLITY OF THE 2901 TO CORRECTLY PERFORM AN
ADD.

[~ 4
TSVSA

TEST

HARDMWARE TESTS
RAM TEST

MACRO M1113

14 JUN-84

SEQ 0111

TEST 4

SUBTEST

THIS SUBTEST VERIFIES EACH RAM LOCATION BY FIRST PLACING THE
M7196 INTO MAINTENANCE MOOE BY WRITING INTO THE LOW BYTE OF TSD8
3";7;;E?OCP$:E()RHIPG THE FOLLOWING SEQUENCE FOR EACH ADDRESS

THE ADORESS TO BE TESTED IS LOADED INT) THE TSDB (VIA A
WORD WRITE).

THE ADORESSED RAM LOCATION IS WRITTEN,

THE LOW BYTE OF TSBA,
LOW BYTE OF TSD8.

THEN READ INTO

BY WRITING A DATA BYTE INTO THE

385
386
387
388
389
390
391
392
393

15:1°

THE LOW BYTE OF

TSBA IS CHECKED TO SEE IF IT CONTAINS

THE DATA PATTERN ORIGINALLY WRITTEN;
REPORTED AS AN ERROR.

A DISCREPANCY 1S

THE ADDRESS OF THE LOCATION BEING TESTED IS AGAIN
WRITTEN INTO TSO8 (WORD WRITE), TO CAUSE THE LOCATION

B¢

UNDER TEST TO AGAIN BE READ INTO THE LOW BYTE OF TSBA,
&%&%DBYTE OF TSBA IS AGAIN CHECKED AND OISCREPANCIES
THE HIGH BYTE OF TSBA IS CHECKED;
THE SUM OF

416
417
418
419
420
421 025012

025012
025012

025014
025020
025024
025032

025032
025036

THE CONTENT OF TSSR IS CHECKED;
SETTING OF THE SC BIT
IS IGNORED.
OTHER DISCREPANCIES IN TSSR ARE REPORTED.

®e

Tass

BGNTST

025012

BGNSUB

423 025012

424
429
430
431
432
433
434
438
439

A DISCREPANCY IS REPORTED AS A 2901

415

422

1508 ea A WORD.

414

IT SHOWLD CONTAIN

THE HIGM AND LOW BYTES LAST WRITTEN INTO

$////7/7//777/7/ BEGIN SUBTESTY /77777777777

104402
012700
004737
012737

026322
016510
000005

004737

015774

103405

MOV

002214

TALOOP :

010001

JSR
MOV

PC,TSTSETUP
#5,L00PCNT

#TST4ID,.RO

tASCII MESSAGE TO IDENTIFY TEST
100 INITIAL TEST SETWP
tPERFORM 5 ITERATIONS

JSR
8CS
MOV

PC,SOFINIT
204
RO,R1

100 INITIALIZE ON CONTROLLER
1BR IF INIT WAS OK
s CONTENTS OF TSSR REGISTER

ERROF

104455

ERRNO, SFIERR, SF IMSG

1FATAL ERROR TSSR WAS NOT O

TRAP

000621

003650
012034
005004
004737

016336

:
204

CLR

JSP

PC.,CHKTSSR

1SET RAM ADDRESS AT ZERO

.WORD
.WORD
.WORD

tWAIT FOR READY, NON-AMBIGUOUS

coesm

CSEROF

401
SFIERR
SFIMSG

19
TSVSA - HARDWARE TESTS
4&: RAM TEST
TEST
442 025060

025064
025064
025064

025066
025070

025074
025100
025104
025110
025114

105065

MACRO M1113

000000

14-JUN-84 15:15

25%:

CLR8B

SEQ 0112
TSDB(RS)

§>2>5>3>>5>3>

BGNSEG

465

467

469
470
471
472
473
474
475
479

110402
004737
01046°%
004737
110265
004737
016501
120102
001404

MOvB
JSR
MOV
JSR
MOVB
JSR
MOV
cHPg
8EQ
ERRHRD

016336
016336

016336

30¢:

R4 ,R2
PC,CHKTSSR
R4,TSDB(RS)
PC,CHKTSSR
R2,TSDOB(RS5)
PC,CHKTSSR
TSBA(RS),R1
R1,.R2
304

005204
020427
001347

€RRNO, TSEAM2 ,EXFREC

483
485

486
490

1LOAD ADDRESS INTO TSDB
sWAIT FOR READY, NON-AMBIGUOUS
1LOADS DATA INTO RAM LOCATION

iMAIT FOR READY, NON-AMBIGUOUS

1READS WRAP DATA
;1D0ES WRITTEN(WRAP) = READ
t1BR IF OK,

THEY ARE EQUAL

1OATA NOT WRAPPED CORRECTLY

TRAP

jecccccccccccc

ENDSEG

254
SUB

104410
000102

104406
116501

010402

000302
060402
120102
001404

104456

000624
026970

R2
R4
R4 ,R2

40¢:

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

016336

ERRNO, TSBAM2 ,EXPREC

454:

TRAP

000001

MOVB
MOV
SWAB
cHPg
B8EQ
ERRHRD

) SBAH(RS
) ,R1
R4,R2

R2
R4 ,R2

R1,R2
S04

ERRNC,M2901 ,EXPREC

CS$ESEG

sNEXT ADORESS

tEND OF RAM MEMORY CHECK
;LOOP TILL ALL RAM WRITTEN
sDON'T CONTINUE IF ERROR ON WRITE
TRAP

CSESCAPE

L10044-.

sCLEAR OUT R2 HIGH BITS
1SET BACK TO 7777

:GET DATA PATTERN BACK IN SHAPE

tWAIT FOR READY, NON-AMBIGUOUS
:LOAD UP RAM ADDRESS POINTER
tWAIT FOR READY, NON-AMBIGUOUS
:READ RAM CONTENTS BACK
;CHECK WITH DATA WRITTEN
;B8R IF OK,

DATA IN = DATA OUT

tWRITTEN DATA NOT = TO READ

TRAP

1 SCOPE LOOP

CKLOO®

CS$ERHRD

402
TSBAM2
EXPREC

ccccccccccecc

LWORD

005002
005304

110402
004737
010465
004737
016501
120102
001404

END SEGMENT

100004:
R4
R4, #10000

C$BSEG

1EXPECTED DATA FROM WRAP-AROUND

.MORD
LHORD
.WORD

INC
cMP
BNE
ESCAPE

010000

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

tWAIT FOR READY, NON-AMBIGUOUS

104405

104456
000623
026160
015474
481

SEGMENT

TRAP

104456

463

BEGIN

104404

000622
026160
015474

461

1SET INTO MAINTENANCE MODE

sHIGH BYTE READ Or TSBA
sDATA PATTERN WRITTEN

CS$ERMRD

.WORD
.WORD
.WORD

403
TSBAMZ2
EXPREC

TRAP

CsCLP1

sHIGH TO LOW

;TOTAL OF BYTES IN LOW BYTE
1SUM OF BYTES WRITTEN TO TSDB = TSBAH
1BR IF OK, THEY SHOWWLD BE
12901 PROBLEM ADDER
TRAP
.WORD

.WORD

CS$ERHRD
404
M2901

TSVSA

TEST

- HARDWARE TESTS
RAM TEST

MACRO M1113

14-JUN-84 15:15

SEQ 0113

4&:

025242
025244
025244
492 025246
493 025250

491

015474

S0$:

104406
005304
002342

DEC
8GE

494
495 025252

025252

496
497
498 025254

025254
025254

1 SCOPE LOOP

cKLoce

SANNAANANANNANNYN END

BGNSUB
4,

TRAP

csCLP1

SUBTEST

L10044:

104403

TEST

EXPREC

1OROP DATA COUNTER (PATTERN)
sNOT AT LOC. ZERO YET

R4
404

ENDSUB

104402

.WORD

SUBTEST 2

TRAP

CsESLB

$/7/7/77//7777 BEGIN SUBTEST /77777777777
74.2:
TRAP
csBSUB

THIS SUBTEST WRITES RAM WITH ALL ZEROS

THEN WALKS AN ALL ONES WORD DOWN THROUGH MEMORY

510
S11

512
513

S14

515
516

517

518
519
520
521
522
523
S24
525
526
530

025256
025262
025264
025266
025266
025270
025272
025274
025276
025300
C25302
025306
025312
025312

004737
103405

104455

004737
105065

025314

004737
010465
004737
110265
004737
016501
120102
001404

PC,SOFINIT

204

RO,R1
ERRNO, SF IERR, SFIMSG

;D0 INITIALIZE ON CONTROLLER
tBR IF INIT WAS 0K
;CONTENTS OF TSSR REGISTER
sFATAL

ERROR

TSSR WAS NOT 0K
TRAP

.WORD

000625
003650
012034
005002

104404

025320

MOV
ERROF

010001

025312

025324
025330
025334
025340
025344
025346
C25350
025350
025352
025354
025356
531 025360
532 025360
025360
025360
533
025362
535 025364
536 025370

JSR
8CS

015774

204:
016336
254

CLR
CLR
JSR
CLR8

016336

104456

PC,CHKTSSR
R4, TSOB(RS)

MOv8
JSR
MOV

Re,TSDB(RS)
PC,CHKTSSR
TSBA(RS),R1

BEQ
ERRHRD

304
ERRNO, TSBAM2, EXPREC

OC,CHKTSSR

R1,R2

;WAIT FOR READY,

NON-AMBIGUOUS

:SET INTO MAINTENANCE MOOE
BEGIN

SEGMENT

;WAIT FOR READY,

.WORD
30¢:

.WORD

;ecccccccccc<<

ENDSEG

010000

INC
cHP
BNE

END

SEGMENT

:
10000

R4
R4

910000

C$8SEG

NON-AMBIGUOUS

:LOAD ADDRESS INTO TSDB
sWKIT FOR READY, NON-AMBIGUOUS
;LOADS DATA INTO RAM LOCATION
+WAIT FOR READY, NON-AMBIGUOUS
;READS WRAP DATA
:DOES WRITTEN(WRAP) = READ ?
;BR IF OK, THEY ARE EQUAL
:DATA NOT WRAPPED CORRECTLY
TRAP

104405
005204
020427
001350

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

.WORD

000626
026160
015474

SFIERR
SF IMSG

;STARTING RAM ADORESS = O

TRAP

MOV

JSR

016336

; TEST DATA

:$2>>>33>>>>>>

BGNSEG

JSR

016336

R2
R4
PC,CHKTSSR
TSOB(RS)

. WORD
. WORUL

C$ERDF

405

i NEXT ADDRESS
1END OF RAM MEMORY CHECK
:BR, MORE RAM T0O GO

CS$ERHRD
406

TSBAM2

EXPREC

c<cccccccccccc

TRAP

CS$ESEG

Y
HARDWARE TESTS

: RAM TEST
025372
025374
025376
025402
025406
025412

005304
005002
004737
010465

004737
016501
005002
120102

MACRO M1113

14 JUN-84 15:15

35¢:

016336
000000
016336
000000

404
:

001404

104456
000627
026242
015474
012702
010465
004737

110265
004737
016501

000377

43¢

016336

120102
001404

563

565
567

569

S70
S71
572
576

S77
S78

S79 025550

581 025552
025552
025552
582
583
025554
025554
025554

104406
005304
002312

MOV
MOV
JSR
MOove
JSR
MOV

454

TSBA(RS),R1
R2
R1,R2
434

ERRNO, TSBAM3 ,EXPREC

#000377,R2
R4,TSOB(RS)
PC.CHKTSSR
R2, TSDBIRS)
PC,CHKTSSR
TSBA(RS),R1

R1,Re2
454

ERRNO, TSBAMZ2
, EXPREC

1SET BACK T0 7777
1SET TO ALL ZEROCS

sWAIT FOR READY

(SSR)

TO SET

tWAIT FOR READY

(SSR)

TO SET

tLOAD UP THE ADORESS FOR RAM

tREAD THE RAM CONTENTS BACK

tLOOKING FOR 000000 (EXPECTED)
1B0TH SHOULD BE 00000000 BINARY

1BR, IF DATA IS GOOD
1 CHARACTERISTICS DATA NOT CORRECT
TRAP
C$ERHRD

:SET ALL ONES WORD
sLOAD UP RAM ADORESS POINTER
tWAIT FOR READY, NON-AMBIGUOUS
1WRITE DATA INTO RAM
tWAIT FOR READY, NON-AMBIGUOUS
$READ RAM CONTENTS BACK
1 CHECK WITH DATA WRITTEN
18R IF OK, DATA IN = DATA OUT
sWRITTEN DATA NOT = TO READ

JSR

016336

MOV
JSR
MOVB
MOV
SWAB
ADD
CHPB
BEQ
ERRHRD

016336
000001

50¢:

: SCOPE LOOP

CKLOOP
PC,CHKTSSR
R4 ,TSDB(RS)
PC,CHKTSSR
TSBAH(RS
; ,R1
R4 ,R3
R3
R4 ,R3
R1,R3
S50¢
ERANO ,M2901 ,EXPREC

DEC
8GE

R4
404

407
TSBAM3
EXPREC

TRAP

CS$ERHRD

. WORD

EXPREC

sWAIT FOR READY,

TRAP
NON-AMBIGUOUS

sWAIT FOR READY,

NON-AMBIGUOUS

TSBAMZ

CsC.P1

sWORD WRITE TO SET UP ADODRESS

:HIGH BYTE READ OF TSBA
1DATA PATTERN WRITTEN

+HIGH TO LOW

;sTOTAL OF BYTES IN LOW BYTE
:SUM OF BYTES WRITTEN TO TSD8 - TSBAH
:BR [F OK, THEY SHOWLD BE

12901 PROBLEM ADOER

1 SCOPE LOOP

CxL00P

RAP

CS$ERHRD

. WORD
. WORD
. WORD

409

TRAP

CsCLP1

:DROP RAM ADDRESS POINTER
:NOT AT LOC. ZERO YET

M2901
EXPREC

ENOSUB

S ANAAAANANNANANNY END SUBTEST NANANNANNNY
L1004S:
TRAP
C$ESUB

BGNSUB

1//////7//7// BEGIN SUBYEST

104403

104402

R4
R2
PC.CHKTSSR
R4, TSDB(RS)
PC,CHKTSSR

. WORD
. WORD

000303
060403
120103
001404

104456
000631
026070
015474

JSR

MOV
JSR
MOV
CLR
crP8
BEQ
ERRHRD

8EQ
ERRHRD

104456
000630
026150
015474
104406
004737
010465
004737
116501
010403

DEC
CLR

SEQ 0114

T4.3:

TRAP

/77777777777

csBsuB

NG
TSVSA - HARDWARE TESTS
4. RAM TEST
TEST

MACRO M1113

585
586

587

588
589
590
591 025556
592

597

14-JUN-84 15:15

004737
103405

015774

104455
000632
003650
012034
012702

17177

204 :

004737
105065

016336
000000

255

616

617
618

61"
621
€23
624

625

627
628

630

631
632
633
637

THIS SUBTEST WRITES RAM WITH ALL ONES

JSR

PC,SOFINIT

s00 INITIALIZE ON CONTROLLER

MoV
ERROF

RO,R1
ERRNQ, SFIERR, SFIMSG

sCONTENTS OF TSSR REGISTER
stFATAL ERROR TSSR WAS NOT 0k

MOV
CLR

JSR
CLR8

204

0177777 .R2
R4

PC,CHKTSSR
TSOB(RS)

016336
000000
016336
000000
016336
000000

026160
015474

30¢:

010000

104410
000152
004737
012702

016336
000377

010465
004737
016501
120102
001404

000000
016336
000000

35¢:
404 :

;SET DATA AT ALL OMS
$1SET RAM ADDRESS AT ZERO

. WORD
. WORD
. WORD

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

;WAIT FOR READY, NON-AMBIGUOUS
LOAD ADDRESS INTO TSDB
tWAIT FOR READY, NON-AMBIGUOUS
;LOADS DATA INTO RAM LOCATION
;WAIT FOR READY, NON-AMBIGUOL'S
;READS WRAP DATA
;:DOES WRITTEN(WRAP) = READ ?

ERRHRD

ERRNO, TSBAM2,EXPREC

;DATA NOT WRAPPED CORRECTLY
TRAP

304

,oR IF OK,

ENDSEG

scccccccccccc<

R4
R4, 010000
254

sNEXT ADORESS
tEND OF RAM MEMORY CHECK
1BR, MORE RAM TO GO

ESCAPE

SUB

tNO CHECK IF WRITTEN INCORRECTLY

DeC

sSET BACK T0Q 7777

CLR

{1CLEAN OUT REGISTER

MOV
JSR
MOV
(oly o]

BEQ
ERRHRD

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

434
ERRNO, TSBAM3 ,EXPREC

CSERARD

411
TSBAMZ
EXPREC

END SEGMENT <cccccccccecc
10000¢:
TRAP
C$ESEG

INC
crp
BNE

PC,CHKTSSR
000377 ,R2

C$BSEG

THEY ARE EQUAL

. WORD
. WORD
.WORD

JSR
MoV

CS$ERDF

410
SFIERR
SF IMSG

;WAIT FOR READY, NON-AMBIGUOUS
$SET INTO MAINTENANCE MODE
TRAP

104405
005204
020427
001350

TRAP

JSR
MOV
JSR
MOV8
JSR
MOV
cMP8
BEQ

104456
000633

;BR IF INIT WAS 0K

$2>>>>>3>>>>> BEGIN SEGMENT >>>>5>>3>>5>>>>

BGNSEG

104404

610
611

SUBTEST 3

THEN WALKS A ZERO WORD DOWN THROUGH MEMIRY

8Cs

010001

004737
010465
004737
110265
004737
016501
120102
001404

TEST 4,

SEQ@ 0115

TRAP
.WORD

C$€ESCAPE
L10046- .

sWAIT FOR READY, NON-AMBIGUOUS
;SET UP EXPECTED DATA REGISTER

;SELECT ADDRESS IN RAM
;WAIT FOR READY (SSR)
sPICK UP RAM CONTENTS
: IS MEMORY STILL ALL ONES

1BR, IF OK (ALL ONES)
sMEMORY CHANGED AFTER ALL ONES WRITE

TSVSA - HARDWARE TESTS

TEST

4&:

RAM TEST

025734
025736
025740

104456
000634
026242

639 025746
640 025752
641 025756
642 025762
643 025766
644 025772

010465
004737
110265
004737
016501
120102

025742
638 025744

64S 025774
649 025776

025776

015474
005002

026004

015474

661 026032

026032

026034
026036
026040

662 026042
026042
663 026044

“695 026046
666 026050
026050

104406
004737
116501
010203
000303
060203
120103
001404

4S54 :

016336
000001

104456

000636
026070
015474

S0¢$:

104406

005304

TRAP

;SCOPE LOOP

104432

103002

.WORD

EXPREC

;SUM OF BYTES WRITTEN TO TSDB = TSBAH

508

ERRNO,M2901 ,EXPREC

CKLOOP

:2901 PROBLEM ADDER

s SCOPE LOOP
Ra

404

TRAP

414
M2901
EXPREC

TRAP

CsCLP)

;:DROP RAM ADDRESS POINTER

sNOT AT LOC. ZERO YET

s MANAANANNNNANNNANNY END SUBTEST NN
L10046:
;00 WE NEED TO ITERATE TEST ?

JHP

T4LOOP

;EXECUTE AGAIN

TST

124

127
122

162
101

127

CSESUB

;BRANCH IF NOT

;ALL DONE THIS TEST

TRAP

. WORD

040

CS$ERMRD

LMORD
.WORD
.WORD

PC,TSTLOOP

EXIT

CsCLP1

;BR IF OK, THEY SHOULD BE

JSR

8CC

;LOCAL
;-

TSBAM2

s TOTAL OF BYTES IN LOW BYTE

000256

040

413

TRAP

634

CS$ERMRD

.MORD

R1,R3

R2,R3

ENDSUB

026064

026344

18R IF 0K, DATA IN = DATA OUT
tWRITTEN DATA NOT = TO READ

cMP8

BNE

025032

680
681 026344

;1LOAD UP RAM ADDRESS POINTER
tWAIT FOR READY, NON-AMBIGUOUS
sWRITE DATA INTO RAM
1WAIT FOR READY, NON-AMBIGUOUS
sREAD RAM CONTENTS BACK
sCHECK WITH DATA WRITTEN

TRAP
sWAIT FOR READY, NON-AMBIGUOUS
sHIGH BYTE READ OF TSBA
;1DATA PATTERN WRITTEN
sHIGH TO LOM

DEC

001315

EXPREC

PC,CHKTSSR
TSBAH(RS),R1
R2,.R3
R3

ERRHRD

000137

678 026242
679 026322

t1SET UP NEW EXPECTED

CS$ERMRD
412
TSBAM3

JSR
MOVB
MOV
SWAB
BEQ

670 026060

677 026160

45
ERRNQ, TSBAMZ,EXPREC

CKLOOP

ADD

016456

676 026070

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

. WORD

004737

673
674
675

026160

668 026052

672 026066

CLR

MOV
JSR
MOVB
JSR
MOV
cMP8

BEQ
ERRHMRD

104403

671 026064

43¢

000000
016336
000000
016336
000000

667 026050
669 026056

SEQ O1l16é
TRAP
.WORD
. WORD

104456

000635

650 026006
026006
651 026010
652 026014
653 026020
654 026022
655 026024
656 026026
657 026030

14-UUN-84 15:15

001404

026000

026002

MACRO M1113

CSEXIT

L10043-.

TEXT MESSAGES FOR TEST

123

M2901:

,ASCIZ

TSBA High Byte Not Sum of Lest TSDB Write (2901 Error)’

151
115

TSBAM3:
TST4ID:

_ASCIZ
.ASCIZ

‘uWrite To RAM Location Modified Another Location’
'RAM Verification’

162 TSBAM2: .ASCIZ ' Write to nge Not Equal to Read of TSBA Low Byte’
.EVEN
ENDTST

L10043:

N9
TSVSA

TEST

4&:

682

HARDWARE TESTS
RAM TEST

026344

MACRO M1113

14 JUN-84 15:15

SEQ 0117

104401}

TRAP

683

.SBTTL

684

TEST

SECOND INITIALIZATION TEST

685

THIS

686
687
688

:
:
:

€1 AND ALSO CHECKS THAT CERTAIN PARTS OF RAM IS CLEARED TO ZERO
AND THAT 2901 REGISTERS 10 AND 11 ARE ALSO CLEARED TO ZERO.
THIS IS A CONFIDENCE CHECK OF A PART OF THE SELF-TEST SEQUENCE

693
694

:
:

689
690
691
692

:
:
:
:

TEST

CSETST

VERIFIES

THE

SAME

ELEMENTS

AS DID

INITIALIZATION

TEST

(I.E., THAT IT IS REALLY BEING EXECUTED).
FOR EACH OF TuO
SUBTESTS (ONE FOR INITIALIZING VIA A BUS INIT, THE OTHER FOR
INITIALIZING BY WRITING INTO THE TSSR), THE FOLLOWING SEQUENCE
IS PFRFORMED:

695
696
697

H
:
:

EACH RAM LOCATION AND 2901 REGISTERS 10 AND 11 ARE SET
TO ALL 1'S BY USING WRITES INTO THE TSDB REGISTER (LOW
BYTE AND MAINTENANCE MODE WORD WRITES).

699
700
;81

:
H
:

THE CONTROLLER IS INITIALIZED AND THE VAR1IOUS CHECKS ON
THE TSSR DESCRIBED IN INITIALIZATION TEST @1 ARE
PERFORMED .

;
:
:
:
;
:
:
:
;
:

01'S (377 OCTAL) ARE WRITTEN INTO THE LOW BYTE OF TSD8B,
WHICH SHOUWD CAUSE RAM LOCATION O TO BE WRITTEN TO ALL
1'S SINCE 2901 REGISTERS 10 AND 11, SPECIFYING THE RAM
ADDRESS, SHOULD BE 0.
RAM LOCATION O IS VERIFIED BY
WRITING A WORD OF ZEROS INTO THE TSDB8.
THE RESULTING

698

703
704
705
706
707
;Og
o
710
711
712
713

714

715
716

026346

725 026346

726 026352
727 026356
728 026364

;gg 026364

731 026370
026370

026370

2
733 026372

734 026376

738 026400

026400
026402
C26404

:
H
H

012700
004737
012737

005037

027320

016510
000024

002220

TSLOOP:

TO A ROM,

OR A TIMING PROBLEM.

104455
000765
003650

SEQUENCER PROBLEM

1S::

JSR
MOV

PC,TSTSETUP
020. ,LOOPCNT

sASCII MESSAGE TO IDENTIFY TEST

CLR

FATFLG

;sCLEAR THE FATAL ERROR FLAG

;00 INITIAL TEST SETUP
;PERFORM 20 ITERATIONS

3//7///7/777/777 BEGIN SUBTESTY
75.1:

104402
103404

PIFPELINE

BGNSUB

004737

LOCATION O SHOULD CONTAIN

BGNTST

MOV
002214

THE ENTIRE RAM IS SCANNED.

ALL 1'S AND THE REMAINING LOCATIONS, EXCEPT FOR THE
MESSAGE BUFFER IMAGE AREA, SHOULD FNONTAIN O
ODISCREPANCIES ARE REPORTED.
AN ERROR AT THIS POINT IS
MUST LIKELY DUE

:
:

717
718
719
720 026346

LOW BYTE OF TSBA SHOULD CONTAIN ALL 1'S.

7////7///77/777

TRAP

015774

JSR

PC,SOFINIT

;00 A SOFT

ERRDF

ERRNO, SFIERR, SFIMSG

;REPORT ERROR AND DROP DRIVE

B8CS

10¢

csBsSuUB

TO START

;BRANCH IF 0.K.

TRAP
.WORD
.WORD

CS$ERDF
501
SFIERR

TSYSA

TEST

MARDMARE TESTS

MACRO M1113

S: SECOND INITIALIZATION TEST
026406

739 026410

740
741

742
743
744
745
746
747
748
749

025414
026416
026422
026426
026432
0264 36
026442
026446

026430
026454
750 026456
751
732
753
754
735
756
757

105043

004737
010463
004737
110265

005204
020427
003762

104433
004737

016501
010102
042702
052702
020102
001406

761

104455
000766
003703
012102
005237

762

763

177777

016336
000000
016336

104410
000170
004737
103063
004737

765
766
767
768
769

012702
004737
110263
004737

770
m
772
773
774

004737

s
776
777

116301
120102

15:15

¢ 1,R2

108

RAC,CHCTSSR
TSOB(RS)

PC.OMXTSSR

R4, TSDB(RS)

000000

R2,TSDB(RS)
Ra

007777

R4, 07777

PC.OMKTSSR

016336

016336
000002
176277

002200

8IC
8IS
ERROF

002220

026616

781

782 026632

104455
000766
027406
015474
003237

012704

OSSR INBA ,R2

R1,R2

204
ERRND , SFHERR
, SFFMSG

. WORD
. WORD
. WORD

1SET FATAL ERROR FLAG

ESCAPE

SuB

tEXIT IF FATAL ERROR DETECTED

PC.OKTSSR
TSOB(RS)
0377,R2

000377
016336

016336

PC.OXTSSR
R2,TSDB(RS)
PC,OKTSSR

016336

PC,OTSSR

TSOB(RS)

1LOOP ON ERROR IF FLAG SE"Y'»
TRAP

. WORD

tMAIT FOR SSR TO SET
1PUT BACK INTO MAINTENANCE MODE
tMAIT FOR READY, NON-AMBIGUOUS
1SET ADDRESS BACK TO 0000

CSESCAPE

L10050-.

1SMOLD POINT YO RAM O
sWAIT FOR READY, NON-AMBIGUOUS
1 SELECT LOCATION O

IMAIT FOR READY, NON-AMSBIGUOUS

INC
CxXLOOP

FATFLG

. WORO
. WORD
1SET THE FATAL ERROR FLAG

ESCAPE

SUB

tNO MORE CHECKS IF FATAL ERROR

0310.R4

csCLP)

MALIT FOR READY, NON-ASIGUOUS

254
ERRND, TSADOR , EXPREC

MoV

CSEROF
502
SFHERR
SFFMSG

tREAD RAM LOCATION SPECIFIED
sLOCATTON SHOWLD BE 377 OCTAL
1BR IF Ox
1WASN'T POINTING TO CORRECT LOC.

TSBA(RS),R1

R1,R2

000310

TRAP

FATFLG

1S08(S)

CSRESETY

sGET THE CONTENTS OF TSSR
1CONTENTS OF TSSR
s THESE BITS MAY BE SET
tREADY AND NEW DATA SMOWLD BE SET
1COMPARE EXPECTED TO RECEIVED
sBRANCH IF COMPARE
IREPORT A FATAL ERROR

INC
CxLO0P

016336

104410

INEXT ADORESS T0 TEST

PC.OMKTSSR

R1,R2
0rC<HIADOR!OFL
» R2

SF IMSG

tSTARTING RAM AODRESS
1WAIY FOR READY, NON-APSBIGUOUS
1SET MAINTENANCE MODE
1WAIT FOR READY, NON-A*@BIGUOUS
1SET THE MEXT RAM ADDRESS
IWAIT FOR READY, NON-ABIGUOUS
1LOAD TEST DATA

1WALIT FOR READY, NON-AMBIGUOUS

PC,OMKTSSR

104406

. WORD

1COMPARE TO LAST ADDRESS
1BRANCH TILL ALL DATA WRITTEN
AP
1ISSUE A BUS RESET

016336

002220

sALL ONE DATA PATTERN

15¢

TSSR(RS),R1

001406

778

SEQ 0118

000000

104406

764

779
780

012034
012702
005004
004737

14 JUN 84

B10

TRAP

1SCOPE LOOP

1START WITH LOC 310

CSEROF
S02

TSADODR

EXPREC

TRAP

CsCLP1

TRAP

CIESCAPE
L10050-.

. WORD

MAROWARE

TESTS

MACRO M1113

: SECOND INITIALIZATION TEST
026636
026640
026644
026650
026654

005002
004737
010465
004737

116501
120102

016336
000000
016336

14 AN 84

Cl10

15:15

JSR

SEQ 0119
R2

PC.CHXTSSR

R4, TSOB(RS)

PC,.CHXTSSR

TSBA(RS),R}
R1,R2
404

000000

001406

ERRNO, TSMEM, SFFMSG

104455

000766

(MEMORY EXPECTED SMOMLD BE 000000
IWAIT FOR READY, NON -AMBIGUOUS
1SELECT LOCATION SPECIFIED
IMAIT FOR READY, NON-APMBIGUOUS
1IREAD LOC CONTENTS
1CHECKX MEMORY FOR 000000
sBRANCH IF DATA OxAY

1MEMORY NOT ZERO AFTER INIT,
TRAP

.MORD
.WORD
WORD

027350

1420
792

793

794

796
797
798

799

801

803

012102
005237

002220

104406

104410
000012
005204
020427
001353

000400

INC
CxLOooP

FA'FLG

sSET THE FATAL ERROR FLAG

ESCAPE

SuUB

{EXIT ON FATAL ERROR

INC

BNE

1BRANCH TILL ALL MEMORY TESTED
SANYANNANANNANN

005037

002220

017202

TSY

FATF_G

CLR

PC,CKDROP
FATFLG

8EQ

S04

813

814

104455
000767
003650
012034
012702
004737

105065

004737
010463
004737
110265
003204
020427
003762

004737
016501

SUBTEST

BEGIN

177777
016336
000000
016336
000000
016336
000000

JSR
8Cs
ERRDF

PC,SOFINIT

104
ERRNO,
SF IERR, SF IMSG

®-1,R2
R4
PC,CHKTSSR
TSOB(RS)

PC.CHKTSSR

R4, TSDB(RS)
PC,CHKTSSR

gf. TSO8(RS)

007777

R4, 07777

000002

TSSR(R3)

016336

000002

154

PC,CHKTSSR

TSSR(RS),R1

TRAP

SUBTESY

715.2:

015774

CsESUB

31IS FATAL ERROR FLAG SET ?
;BRANCH IF NOT
sNO LOOP, TRY TO DROP DEVICE
1CLEAR THE FATAL ERROR FLAG
3777777777777

104402

004737
103404

END

L10050:
002220

CSESCAPE

L10050-.

TOP OF RAM ADORESS SPACE

104403
005737

LMORD

304

BGNSUB
807

TRAP

sLOOK AT NEXT RAM LOC.
;AT

SO02
TSMEM
SFFMSG

csCLP]

R4
R4, #400

ENDSUB

001404
004737

TRAP

CSERDF

/77777777777

TRAP

100 A SOFT TO STARY
1BRANCH IF 0.K,
tREPORT ERROR AND DROP DRIVE
TRAP

tALL ONE DATA PATTERN

.WORD
.MORD
.MORD

1STARTING RAM ADORESS
sWAIT FOR READY, NON-AMBIGUOUS
1SET MAINTENANCE MODE
tWAIT FOR READY, NON-AMBIGUOUS
1SET THE NEXT RAM ADORESS
tWAIT FOR READY, NON-AMBIGUOUS
1LOAD TEST DATA
tNEXT ADORESS TO TEST
1COMPARE TO LAST ADORESS
tBRANCH TILL ALL DATA WRITTEN
1 ISSUE A SOFT RESET
tWAIT FOR READY, NON-AMBIGUOUS
1GET THE CONTENTS OF TSSR

cesesuB

CSERODF

503
SFIERR
SFIMSG

D10
TSVSA

MACRO M1113
- HARDMWARE TESTS
S: SECOND INITIALIZATION TEST

828 027040
027042
830 027046
831 027052
83 027054
836 027056
027056
027060
027062
027064
837 027066
838 027072
027072
839 027074
027074
027076
840 027100
841 027104
027110
843 027114
027120
845 027124
027130
847 027134
027140
849 027144
850 027150
851 027154
027156
853 027160
027160
027162
027164
027166
854 027170
855 027174
027174
856 027176
027176
027200
857 027202
027206
859 027210
860 027214
861 027220
027224
863 027230
027232
865 027234
027234
027236
027240
027242
027244
027250
027250
027252

g &%

TEST

010102
042702
052702
020102

14-UUN 84

MOV
8IC
8JS
ce
6eQ
ERROF

176277

002200

001406

104455

000770
003703
012102
005237

002220

15:15

110265

004737
005065
004737
116501
120102

R1,R2

s THESE BITS MAY BE SET

204
ERRNO, SFHERR , SFFMSG

1BRANCH IF COMPARE
1REPORT A FATAL ERROR

R1,R2

FATFLG

suB
PC,CHKTSSR
TSDB(RS)

016336
000000
016336

PC,CHKTSSR

TSDB(RS)
0377,R2
PC,CHKTSSR
R2,TSOB(RS)

000377
016336
016336

PC,CHKTSSR

016336

PC,CHKTSSR

TSOB(RS)

TSBA(RS),R1
R1,R2

254
ERRNO, TSADOR , EXPREC

001406

1CONTENTS OF TSSR

#tC<HIADDR!OFL > ,R2
@SSR !NBA ,R2

:
204

104406
104410
000170
004737
105065
004737
005065
012702
004737

SEQ 0120

1READY AND NEW DATA SHOWD BE

1COMPARE EXPECTED TO RECEIVED

1SET FATAL ERROR FLAG
;LOOP ON ERROR IF FLAG SET
TRAP
tEXIT IF FATAL ERROR OETECTED

TRAP

tWAIT FOR SSR TO SET

116501
120102
001406

002220

2Ss:

104406

INC
CxLOOP

FATFLG

ESCAPE

SUB

MOV

000310

CLR
JSR
MOV
JSR
MOV

016336
016336

8EQ
ERROF

104455

000770
027350
012102
005237

.MORO

002220

404
:

#310,R4

CHERODF

S04
SFHERR
SFFMSG

CsCLP1

CS$ESCAPE

L10051-.

1PUT BACK INTO MAINTENANCE MODE
tWAIT FOR READY, NON-AMBIGUOUS
$SET ADORESS BACK TO 0000
]

tWAIT FOR READY, NON-AMBIGUOUS
1SHOUWLD POINT TO RAM O
tWAIT FOR READY, NON-AMBIGUOUS
+SELECT LOCATION O
sWAIT FOR READY, NON-AMBIGUOUS
sREAD RAM LOCATION SPECIFIED
tLOCATION SHOWLD BE 377 OCTAL
;BR IF 0K
tWASN'T POINTING

TO CORRECT LOC.

TRAP

.WORD
.WORD

104406
104410
000066
012704
005002
004737
010465
004737

TRAP

.WORD
.WORD
.MORD

104455

000770
027406
015474
005237

SET

1SET THE FATAL ERROR FLAG
1SCOPE LOOP

504
TSADOR
EXPREC

TRAP

CSCLP1

.WORD

CSESCAPE
L10051 .

tNO MORE CHECKS IF FATAL ERROR
TRAP
1START MITH LOC 310

CSERODF

tMEMORY EXPECTED SHOWLD BE 000000

R4, TSOB(RS)
PC,CHKTSSR

1 SELECT LOCATION SPECIFIED
1WAIT FOR READY, NON-AMBIGUOUS

ERANO, TSMEM, SFFMSG

tBRANCH IF DATA OXAY
tMEMORY NOT ZERO AFTER INIT.
TRAP

PC,CHKTSSR

TSBA(RS) ,R1
R1.R2
404

tWAIT FOR READY, NON-AMBIGUOUS

tREAD LOC CONTENTS
s CHECK MEMORY FOR 000000

CSERDF

.WORD
.WORD
.WORD

S04
TSMEM
SFFMSG

TRAP

CsCLP1

INC
CKLOOP

FATFLG

1SET THE FATAL ERROR FLAG

ESCAPE

su8

1EXIT ON FATAL ERROR

MACRO M1113
TSVSA - HARDUARE TESTS
TEST
S: SECOND INITIALIZATION TEST

027252
027254
869 027256
870 027260
871 027264

104410
000012
005204
020427
001353

14 UUN 84

INC

.WORD

R4, 6400
30¢

005737
001402
004737
004737

$ANANANANNNANANNY END SUBTEST
L100S1:

103002

TST

017202
016456

504 :

000137

60¢ :

104432
000132

FATFLG

BEQ
JSR
JSR
8ccC
P
EXIT

L100S51

+IS FATAL ERROR FLAG SET

S04
PC.CKDROP
PC, TSTLOOP
604
TSLOOP
Ts7

CsESUB

1BRANCH IF NOT
sNO LOOP, TRY TO DROP DEVICE
tSHOULD WE DO ITERATIONS ?
1BRANCH IF NOT
1LOOP UNTIL COUNT EXPIRED
tALL DONE THIS TEST

TRAP

CSEXIT

.WORD

L10047-.

TRAP

CSETST

;LOCAL TEXT MESSAGES FOR TEST
105

111
111

170
156
156

164
143
143

TSTSID:

.ASCIZ

'Extended Initislizetion’

TSADDR :

eeg'l‘l

‘Incorrect RAM Address After Init’

TSMEM:

.ASCIZ

'Incorrect RAM Data After Init’

ENDTST

L10047:;

104401

TEST

COMMAND REJECT

THIS TEST VERIFIES THAT ALL COMMANDS OTHER THAN WRITE

CHARACTERISTICS ARE REJECTED DUE TO THE NEED BUFFER ADORESS
(NBA) BIT BEING SET IN TSSR, AND THAT THE TSBA AND TSSR
REGISTERS ARE LEFT IN THE PROPER STATE AFTER EACH COMMAND IS
REJECTED.
TMIS TEST CHECKS MICROPROCESSOR SEQUENCING, BASIC
COMMAND DECODING AMD DATI OMA HANDLING.
THIS TEST CONTAINS TwWC
SUBTESTS:
SUBTEST 1 SEQUENCES THROUGH ALL COMMAND WORDS (OTHER
THAN WRITE CHARACTERISTICS) WITH THE INTERRUPT ENABLE (IE) BIT
CLEAR AND VERIFIES THAT AN INTERRUPT IS NOT GENERATED 8Y THE

REJECTED COMMAND;
SUBTEST 2 PERFORMS SIMILARLY TO SUBTEST 1 BUT
SETS THE IE BIT IN EACH COMMAND WORD AND VERIFIES THAT AN
INTERRUPT IS GENERATED WHEN THE COMMAND IS REJECTED.
SUBTEST 1
SETS UP THE INTERRUPT SERVICE ROUTINE TO FLAG UNEXPECTED
INTERRUPTS.,
THE COMMAND WORD IN THE COMMAND BUFFER IS
INITIALIZED TO 100000 (OCTAL) AND THE REMAINING THREE WORDS IN
THE COMMAND BUFFER ARE SET TO KNOWN UNIQUE PATTERNS.

FOLLOWING SEQUENCE

IS PERFORMED:

THEN THE

®s

.SBTTL

ANNANANNNY

TRAP

002220

CSESCAPE

tAT TOP OF RAM ADDRESS SPACE
1BRANCH TILL ALL MEMORY TESTED

104403

890
891 027450
027450
027450
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917

SEQ 012!

1LOOK AT NEXT RAM LOC.

ENDSUB

884

885
886
887 027320
888 027350
889 027406

cHe
BNE

000400

874
875 027270
876 027274
ar? 027276
878 027302
879 027306
880 027310
881 027314
027314
027316
882
883

15:15

TRAP

872
873 027266

027266
027266

E10

INITIALIZE THE CONTROLLER BY WRITING INTO THE TSSR;

PROPER INITIAL CONDITIONS ARE VERIFIED.

e
14-UUN-84 15:15

919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954 G27452

959
960
961
962
963

C27452
027452
027456
027462
027470
027470

027470

027470
964
965 027472
027472
027476
966
967
98

969
970
971
975

SEQ 0122

TSDB IS WRITTEN WITH M&ESS OF THE COMMAND BUFFER 1O

START PROCESSING.

)

THE PROGRAM WAITS FOR SSR TO SET;
IF SSR DOES NOT
AN ERROR REPORT IS ISSUED AND THE TEST IS ABORTED.

SET,

THE CONTENTS OF TSSR ARE CHECKED.

918

MACRO M1113

6: COMMAND REVECT

TSSR IS CORRECT

B¢

IT CONTAINS EITHER OCTAL 102206 OR 102306 (BIT 6
DEPENDS UPON THE STATE OF THE TAPE TRANSPORT).

THE COMTENTS OF TSBA ARE CHECKED.
TSBA SHOULD CONTAIN
THE INITIAL COMMAND BUFFER ADORESS (LOADED IN STEP 2)

PLUS 10 (OCTAL);
I.E., TSBA SHOWLD POINT TO THE WORD
JUST AFTER THE COMMAND PACKET (NOTE THAT 4 COMMAND

PACKET WORDS ARE ALWAYS FETCHED).

USING THE MAINTENANCE MODE WRAPAROUND FUNCTIONS, THE
COMMAND IMAGE BLOCK IN THE mM7196'S RAM (LOCATIONS
201-210 (OCTAL)) ARE CHECKED;
THE IMAGE SHOULO CONTAIN
ePsmPEYPg THE FOUR COMMAND PACKET WORDS AS SET UP IN

B¢

THE COMMAND WORD IN THE COMMAND BUFFER IS INCREMENTED
TO THE NEXT PATTERN NOT CONTAINING WRITE

B¢

CHARACTERISTICS OR JE.
THE REMAINING THREE WORD OF THE
COMMAND BUFFER ARE SEQUENCED WITH PSEUDO-RANDOM DATA.
IF THE COMMAND WORD MAS NOT REACHED ITS MAXIMUM VALUE
(177777+1), THE TEST SEQUENCE IS REPEATED.

SUBTEST 2 IS IDENTICAL TO SUBTEST 1, EXCEPT THAT THE PROGRAM
CAUSES THE IE BIT TO BE SET IN EACH COMMAND WORD AND THEN
VERIFIES THAT AN INTERRUPT OCCURS.

B¢

TEST

TSVSA - HARDWARE TESTS

BGNTST

012700
004737
012737

030703
016510

000024

002214

T6LOOP :

MOV
JSR
MOV

#7TST610,RO
PC,TSTSETUP

020. ,LOOPCNT

T6::

sASCII MESSAGE TO IDENTIFY TEST
;00 INITIAL TEST SETUP
;PERFORM 20 ITERATIONS

8777777777777 BEGIN SUBTESTY
76.1:

BGNSUB

TRAP

104402
012700
104441
012704
012703
012314

104404
004737
103405
010001

000000

030360
002750

015774

S54:

SETPRI

#PRIOO

MOV
MOV
MOV

OT6PACKET ,R4
OTSTBLK,R3
(R3)+,(RA)

BGNSEG
JSR
8CS
MCV

csBsuB

sLOWER PRIORITY TO Al LOW INTERRUPTS
,
#PRIOORO
MOV
TRAP
C4SPRI
1GET THE ADDRESS OF COMMAND PACKET
;1BLOCK OF TEST DATA
1 INSERT THE NEXT TEST DATA WORD
$1>>5>3>353>>>>

BEGIN

SEGMENT

TRAP

PC,SOFINITY

100 SOFT INIT OF CONTROLLER

RO,R}

1 SAVE CONTENTS OF TSSR

10¢

/77777717777

t1BR IF SOFT INIT = 0K

>>3>>>>>>>>>>

C$BSEG

MACRO M1113
TSVSA - MARDWARE TESTS
TEST
6: COMMAND REJECT
976 027524

027524
027526
027530
027532
977 027534
978 027540
979 027544
027550
981 027554
027560
983 027564
027566
027570
027570
027572
027574
027576
989 027600
027604
027604
991 027606
027606
027610
027612
993 027616
997 027620
027620
027622
027624
027626
027630
027634
1000 027640
1001 027644
027650
1003 027652
1004 027656
1005 027660
1009 027662
027662
027664
027666
027670
1010 027672
027672
1011 027674
1012 027700
1013 027704
1014 027706
1015 027712
1016 027714
1020 027716
027716
027720
027722
027724

14-JUN-84 15:15
ERROF

104455
001131

003650
012034
005037
005037
004737
042714
010465
004737
103407
010001
104455
001132
030415
012046
005237

002220

016250

15¢:

004737
016501
032701

001402
052702
020201
001404

FATFLG

INTRECV

tOEVICE FATAL ERROR DURING INIT
TRAP

. WORD
. WORD
. WORD

1CLEAR FATAL ERROR FLAG
1CLEAR INTERRUPT RECEIVED FLAG

PC,CHKTSSR

1WAIT FOR REAOY,

R4, TSDB(RS)
PC,WAITF

1 WAIT FOR SSR TO SET

#8I177,(R4)

15¢

RO,R1

ERRNO, T6SSR, PKTSSR

NON-AMBIGUOUS

18R TF CARRY SET (GOOD RET!URN)

:SAVE CONTENTS OF TSSR
1DEVICt FATAL SSR FAILED TO SET
TRAP

. WORD
. WORD
. WORD

sSET FATAL ERROR FLAG

ESCAPE

su8

1BY-PASS SUBTEST IF FATAL ERROR

INTRECV
224
,PKTSSR
NO,
T6INT
ERR

102206
016336
000002
000100

000100

25¢:

304:

016336
000010

MOV
JSR
MOV
BIT
BEQ
8IS
B8EQ
ERRHRD

#SC!NBA!SSR!TSREJ,R2
PC,CHKTSSR
TSSR(RS),R1
#0FL ,R1
254
#0FL ,R2

R2,R1
304

O,
T6NBA ,PKTSSR
ERRN

;LOOP ON ERROR,

IF FLAG ?S:P
TRAP

.WORD

;0ID AN INTERRUPT OCCUR ?
;BRANCH IF NOT

TRAP

JSR
MOV
MOV
ADO

cHe
BEQ
ERRHRO

. WORD

sEXPECTED CONTENTS OF TSSR
tWAIT FOR READY, NON-AMBIGUOUS
1GET THE CONTENTS OF TSSR
1IS OFF-LINE BIT SET ?
-L INE
1BRANCH IF NOT OFF
1SET OFF -LINE IN EXPECTED DATA
1DOES EXPECTED MATCH RECEIVED ?
1OKAY IF MATCH
tNBA NOT SET TO REUECT
TRAP

:LOOP ON ERROR ?

CKLOOP
PC,CHKTSSR
TSBA(RS),R1
R4 ,R2
#10,R2
R1,R2

354
ERRNO, T6TSBA , EXPREC

CSEROF

601
SFIERR
SF IMSG

$OISABLE INTERRUPTS
1SET THE PACKET ADORESS

. WORD

012046

104456
001135
030631
015474

ERRNO, SFIERR, SF IMSG

FATFLG

8EQ
ERRHRD

104456
001134
030370
104406
004737
016501
010402
062702
020102
001404

SEQ 0123

INC
CKi O0P

1ST

002222

104456
001133
030473

012046
012702

CLR
CLR
JSR
8I1C
MOV
JSR
8Cs
“ov

ERROF

104406

104410
000170
005737
001404

10¢:

002222
016336
000200

002220

G10

tWAIT FOR READY,

CSERDF

602
T6SSR
PXTSSR

CsCLP1

CSESCAPE
L10053 .

CS$ERMRD
603

TOINT
PKTSSR

CSERHRD

.WORD
.WORD
. WORD

604

TRAP

CsCLPl

NON-AMBIGUOUS

T6NBA
PXTSSR

1tGET TSBA REGISTER CONTENTS

1START OF THE PACKET

+EXPECT TSDA TO PACKET « 10
;COMPARE EXPECTED TO RECEIVED
;ERROR IF NOT EQUAL
;PRINT

THE ERROR & EXPD/RECV
TRAP
. WORD

.WORD
. WORD

CS$ERHRD
605
T6TSBA

EXPREC

H10
MACRO M1113
TSVSA - MARDMWARE TESTS
CT
REJE
AND
6: COMM
TEST

1021
1022

1023 027726
1024 027732
1028 027734
027734
027736
027740
027742
1029 027744
027744
027744
1030 027746
1031 027750
1032 027754
1033 027760
1034 027762
1035 027766
1036 027772
1037 027774
1038
1039 030000
030000
030000

1040
1041 030002
1042 030006
1043 030010

1045 030014
030014
030014
1046
1047

1048
1049
1050
1051
1052
1053
1057
1058

1059

1060
1061
1062
1063
1064
1065
1066

004737
103404

ol111a

354

JSR
8CS

ERRHRD

104456
001136
004743
015510
104405
011300
042700
020027
001002
062703
020327
103002
000137

14-JUN-84 15:15

40%:

000C02
003060

8IC
cHP
BNE

45%:

027510

PC.CKRAM

404

ERRNO , PKTRAM,RAMERR

cHP
BHIS

$SEE IF DATA IN RAM IS CORRECT

tBRANCH IF PACKET IN RAM IS CORRECY

;REPORT

THE RAM ERROR(S)

sccccccaccecce

ENOSEG

MOV

177740
000004

SEQ 0124

(R3),R0

#177740,R0
RO, 04
454
#2,R3
R3,6TBLEND

S0
S¢

sPACKET COMMAND WORD

TST
8EQ
JSR

017202

:
604

104404
004737
103405
010001

104455
001137
003650
012034
005037
003037
004737
052714
010465
004737
103407
010001

TRAP

CS$ESEG

$1BRANCH IF Ox

:GET NEXT WORD FROM DATA TABLE

tREACHED END OF TABLE ?
1BRANCH IF END OF TABLE
;CONTINUE TEST WITH NEW DATA
$ ANAANAANANNNNN END SUBTEST

L10053:

FATFLG

604

PC.CKDROP

ccccccccccccc

tOON'T TEST WRITE CHARACTERISTICS

s ANY FATAL ERRORS

1BRANCH IF NOT

TRAP

sTRY TO DROP THE UNIT
s//7/7//77777/7 BEGIN SUBTEST

BGNSUB

CSESUB

///7/77/77277/7

T76.2:

TRAP

104402

012700
104441
012704
012703
012314

PXTRAM
RAMERR

sGET BITS 0-4

104403
002220

030360
002750

csesus

#PRIO00

;LOWER PRIORITY TO ALLOW INTERRUPTS
#PRIOO,RO
MOV

,R4
#T6PACKET
#TSTBLK,R3

:GET THE ADORESS OF COMMAND PACKET

(R3)+,(R4)

Ss:

TRAP

C$SPRI

:START OF TEST DATA
s+PLACE NEXT DATA WORD IN PACKET

1>2>>3>>35>>3>>

BEGIN SEGMENT

>>>3>3>>>>>>>

TRAP

PC,SOF INIT

015774

104

RO,R1

ERRNO, SFIERR, SF IMSG

002220
002222
016336

016250

:
104

CLR
CLR

JSR
8IS
MOV
JSR
8CS
MOV

CSERMRD
606

. WORD
. WORD

SEGMENT

100004
:

ENDSUB

005737
001402
004737

END

TRAP
. WORD

FATFLG

INTRECV

PC,CHKTSSR

#8I77,(R4)

R4, TSDB(RS)
PC,WAITF

15¢

RO,.R1

300 SOFT INIT OF CONTROLLER
tBR IF SOFT INIT = 0K
1SAVE CONTENTS OF TSSR

;DEVICE FATAL ERROR DURING INIT
TRAP

:CLEAR FATAL ERROR FLAG

.WORD
.WORD
.WORD

;CLEAR INTERRUPT RECEIVED FLAG
1WAIT FOR READY, NON-AMBIGUOUS
1ENABLE INTERRUPTS
1SET THE PACKET ADORESS
tWAIT FOR SSR TO SET
1BR IF CARRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR

C$8SEG

CSEROF

607
SFIERR
SFIMSG

MACRO M1113
TSVSA - HARDWARE TESTS
TEST
6: COMMAND REJECT
1070 030114

1071

1072

1073

1074
1075
1079

1080
1081
1082
1083
1084

030114
030116
030120
030122
030124
030130
030130
030132
030132
030134
030136
030142
030144
030144
030146
030150
030152
030154
030160
030164
030170
030174

14 JUN-84

001140
030415
012046
005237

002220

104406
104410
000170
005737
001004

15:15
ERROF

104455

15¢:

ESCAPE

SuB

ERRHRD

102206
016336

22%:

000100

25%:

104456

ERRNO, T6SSR, PKTSSR

FATFLG

104456

001141
030551
012046
012702
004737
016501
032701
001402
052702
020201
001404

SEQ 0125

INC
CKLOOP

TS7

002222

I10

MOV
JSR

8IT
8EQ
8IS
BEQ
ERRMRD

INTRECV
224
ERRNO, TONINT ,PKTSSR

OSC!NBA!SSR! TSREJ,R2
PC,CHKTSSR
TSSR(RS),R1
®0FL .R1
254
®OFL ,R2

R2,R1
304
O,
TENBA ,PKTSSR
ERRN

tOEVICE FATAL SSR FAILED 7O SET
TRAP

.WORD
.WORD
.WORD

1SET FATAL ERROR FLAG

;LOOP ON ERROR,

IF FLAG SET

1092

1093
1094
1095
1096
1097
1102

1103
1104
1105
1106
1110

1111 030270
030270
030270
1112 030272

104406
004737
016501
010402
062702
020102
001404

304:

JSR
MOV
MOV

016336
000010

cHP
8EQ
ERRHRD

104456

PC,CHKTSSR
TSBA(RS),R1
R4 ,R2
#10,R2
R1,R2

35¢
ERRNO, T6TSBA, EXPREC

011114

35¢:

104405

011300

404
:

JSR
8CS
ERRHRD

PC,CKRAM
404

O
, PKTRAM , RAMERR
ERRN

TRAP
.WORD

CSERHRD
610
TGNBA
PKTSSR

.WORD
.WORD

TRAP
NON-AMBIGUOUS

MOV

tEXPECY TSDA TO PACKET

: COMPARE EXPECTED TO RECEIVED
;ERROR IF NOT EQUAL
;PRINT

THE

ERROR

& EXPD/RECV

TRAP
.WORD
.WMORD

CS$ERHRD
611
T6TSBA
EXPREC

sSEE IF DATA IN RAM IS CORRECT
tBRANCH IF PACKET IN RAM IS CORRECY
{REPORT THE RAM ERROR(S)

END

TRAP

CS$EPHRD

.WORD
.WORD
.WORD

612
PKTRAM
RAMERR

TRAP

CSESEG

SEGMENT

:
100004
(R3),R0

csCLP1

1GET TSBA REGISTER CONTENTS
1START OF THE PACKET

jeccccccccccce

ENDSEG

CSERMKD

609
T6NINT
PKTSSR

1EXPECTED CONTENTS OF TSSR
tWAIT FOR READY, NON-AMBIGUOUS
1GET THE CONTENTS OF TSSR
1IS OFF-LINE BIT SET ?
1BRANCH IF NOT OFF -LINE
:SET OFF-LINE IN EXPECTED DATA
:+DOES EXPECTED MATCH RECEIVED ?

sWAIT FOR READY,

L10054
-.

.KWORD
.WORD
WORD

.WORD

104456

001144
004743
015510

CSESCAPE

TRAP

001143
030631
015474

004737
103404

TRAP

10ID AN INTERRUPT OCCUR ?
1BRANCH IF YES
1REPORT ERROR IF NO INTERRUPT

;:LOOP ON ERROR ?

CKLOOP

CsCLP1

. WORD

001142

030370
012046

TPAP

18Y-PASS SUBTEST IF FATAL ERROR

1OKAY IF MATCH
tNBA NOT SET TO REJECT

CSEROF

608
T6SSR
PKTSSR

iNEXT PACKET COMMAND WORD

ccccccccccccx

TESTS

TSVSA - HARDWARE
6: COMMAND REJECT
TEST

1113 030274
1114 030300
1115 030304

(ol
B8HIS
JP

S0%:

ENDSUB

030034

002220

017202
016456

60¢:

027470

624
:

104432
000346

ADD

45¢;

TST
8EQ
JSR

JSR
8CC

JP
EXIT

0177740,R0
RO, 04
45%
02,P3
R3,0TBLEND

S0¢
Ss

1GET BITS 0-4
tDON'T TEST WRITE CHARACTERISTICS
$1BRANCH IF NOT WRITE CHARACTERISTICS
1BY-PASS WRITE CHARACTERISTCS
tHAVE WE COMPLETED DATA TABLE ?

1BRANCH IF ALL TESTED
;TEST WITH NEXT DATA

SNNANNAANANNNNNN END SUBTEST

L10054:
FATFLG

;:ANY FATAL ERRORS

TRAP

604

sBRANCH IF NOT

624
T6LOOP

;BRANCH IF NOT
;LOOP UNTIL COUNT EXPIRED

PC,CXDROP
PC,TSTLOOP

TST

sTRY TO DROP THE UNIT
;SHOULD WE DO ITERATIONS

sALL DONE THIS TEST

CsESUB

TRAP

LWORD

C$EXIT

L10052-.

.BLKB

16PACKET:

10-<.-TSV2ET>

0
052525
125252
052525

052525
125252
052525

sCOMMAND PACKET FOR TEST

:WILL CONTAIN VARIABLE COMMANDS

;LOCAL TEXT MESSAGES FOR TEST

111

103

157
157
170

156
157

155
156
145
160
143
155

T6NBA:
T6SSR:
T6INT:
TONINT:
T6TSBA:
TST610:

.ASCIZ
.ASCI1Z
.ASCIZ
.ASCIZ
.ASCI2
.ASCIZ
.EVEN
ENDTST

‘Command Not Re
jected’
‘Contents of TS
Incorrect After Write Packet’
‘Unexpected Interrupt Received On Write Packet’
‘Expected Interrupt Not Received On Write Packet’
'‘Incorrect TSBA Address After Packet Write'
‘Command Re ject’
L10052:

104401

.SBTTL

030722

103
103
125
105

030370
030415
030473
030551
030631
030703

1155 030722
030722

1156
1157
1158
1159
1160
1161
1162
1163
1164
1165

103002
000137

003060

SEQ 0126

:LOCAL STORAGE FOR THIS TEST

030356
030360
030360
030362
030364
1141 030366
1142
1143

1144
1145
1146
1147
1148
1149
1150
1151
1152
1153
1154

104403

005737
001402
004737
004737

000002

®e

1129
1130
1131
1132
1133
1135
1137
1138
1139
1140

030324
030324
030324
030326
030332
030334
030340
030344
030346
030352
030352
030354

8IC
cHP
BNE

177740

000004

1122
1123
1124
1125
1126
1127
1128

030306
03C312
030316
030320

J1C

14-JUN-84 15:15

®s

1116
1117
1118
1119
1120
1121

042700
020027
001002
062703
020327
103002
000137

MACRO M1113

TEST

TRAP

CSETST

WRITE CHARACTERISTICS

THIS TEST VERIFIES BASIC OPERATION OF THE WRITE CHARACTERISTICS
IT VERIFIES THAT THE COMMAND BLOCK AND CHARACTERISTICS
DATA BLOCK ARE FETCHED PROPERLY FROM CPU MEMORY, THE NEED BUFFER
ADDRESS (NBA) BIT IN TSSR IS HANDLED PROPERLY, AND THAT A PROPER
THIS TEST DOES NOT
MESSAGE PACKET IS STORED, WHERE APPROPRIATE.
CHECK THAT THE VARIOUS FUNCTIONS ENABLED BY CHARACTERISTIC MODE
COMMAND.

TSVSA - HARDWARE TESTS MACRO M1113
TEST 7: WRITE CHARACTERISTICS

K10

14-UUN-84 15:15

SEQ 0127

1166

DATA BITS OPEPATE PROFERLY;

1173

PROCESSOR PRIORITY O, WITH THE INTERRUPT SERVICE ROUTINE SET uP
70 FLAG UNEXPECTED INTERRUPTS.
IF AN INTERRUPT OCCURS, A
PROBILEM EXISTS IN EITHER THE LSI-11 BUS INTERFACE SECTION OR IN
THE ROM OR PIPELINE.

INTERRUPTS SHOWLD BE GENERATED.

1174
1175

THE PROGRAM RUNS AT

THIS TEST CHECKS VARIOUS MICROPROGRAM SEQUENCES,

1177

1178
1179
1180
1181
1182
1183
1184 030724

030724
030724
030730
030734
030742
030742
030742
030742
1194 030744
1195
1196 030750
030750
030754
1197 030756
1198 030762
1199 030766
1200 030774
1201 030774
030774
1202
1203 030776
1204 031002
1208 031004
1209 031006
031006
031010
031012
031014
1210 031016
1211 031022
1212 031026
1213 031032
1214 031036
1215 031040
1219 031042
031042
031044
031046

HMHOWEVER,

COMMAND

DECODING, OMA LOGIC, AND BASIC PACKET PROTOCOL HANDLING.
THIS
IS THE FIRST TEST IN WHICH DATO DMA CYCLES (FOR STORING THE
MESSAGE PACKET) ARE PERFORMED.
ANY ERRORS IN THE BOOY OF THE

1176

1189
1190
1191
1192
1193

THE FUNCTIONING OF THESE BITS IS

VERIFIED IN SUBSEQUENT TESTS.
ALL COMMANDS EXECUTED IN THIS
TEST HAVE THE INTERRUPT ENABLE (IE) BIT CLEARED TO ZERO, SO NO

1167
1168
1169
1170
1171
1172

TEST (I.€E, ERRORS OTHER THAN INITIALIZATION ERRORS RELATED T0
THE TRANSPORT BUS) DEFINITELY INDICATE A BAD M7196 MODULE.

BGNTST
012700
004737
012737

104402
004737
012700
104441
012703
012704
012764

034213
016510
000024

MOV
002214

T7L00P:

034242

002762
033060
000010

103405

010001

104455
001275
003650
012034
005037
005037
010465
004737
103407
010001

104455
001276
033661

002220
002222

016336

104

sD0O INITIAL TEST SETWP
sPERFORM 20 ITERATIONS

/10217777777 BE?IN SUBTESTY /77777777777
7.1:
TRAP

cs8suB

PC,TTREST

:SET PACKEY TO START-UP VALUES

SETPRI

#PRIOO

sLOMER PRIORITY TO ALLOW INTERRPTS
#PRIO00,.RO
MOV

MOV

€TSTBLK+10. ,R3

:START OF TEST DATA

O®TTPACKET R4

#8. ,PKBCNT(R4)

CLR
CLR
MOV
JSR
8Cs
MOV
ERRDF

TRAP

C$SPRI

sGET THE ADDRESS OF COMMAND PACKET

;START WITH MINIMUM ALLOWABLE VALUE

$2>>>5>3>3>33>>> BEGIN SEGMENT

BGNSEG

JSR
8Cs
MOV
ERROF

015774

sASCII MESSAGE TO IDENTIFY TEST

JSR

MOV

S$:

#1ST710,.RO

PC,TSTSETWP
020. ,LOOPCNT

BGNSUB

MOV

104404

004737

JSR
MOV

”

>>3>>>>>>>>>)>

TRAP

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

FATFLG
INTRECV
R4 ,TSDB(RS)
PC.CHKTSSR
154
RO,R1
ERRNO, T7SSR,PKTSSR

;D0 SOFT INIT OF CONTROLLER
;BR IF SOFT INIT = OK
: SAVE CONTENTS OF TSSR
;DEVICE FATAL ERROR DURING INIT
TRAP
.WORD

C$8SEG

CS$ERDF
701

. WORD
. WORD

SFIERR
SF IMSG

TRAP
. WORD
. WORD

CS$ERDF
702
T7SSR

;CLEAR FATAL ERROR FLAG
sCLEAR INTERRUPT RECEIVED FLAG
:SET THE PACKET ADODRESS
tWAIT FOR SSR TO SET
;BR IF CARRY SET (GOOD RETURN)
: SAVE CONTENTS OF T3SR
;OEVICE FATAL SSR FAILED TO SET

MACRO M1113
TSVS5A - MAROWARE TESTS
ISTICS
WRITE
CHARACTER
TEST
7:
1220
1221

1222
1223
1224
1228

1229
1230
1231
1232
1233
1234
1235
1239

1240
1241

1242
1243
1245
1247
1248
1249

1054

031050
031052
031056
031056
031060
031060
031062
031064
031070
031072
031072
031074
031076
031100
031102
031106
031112
031116
031120
031124
031126
031130
031130
031132
031134
031136
031140
031140
031142
031146
031152
031156
031164
031166
031172
031176
031202
031204
031206
031206
031210
031212
031214

1255
1256
1257 031216
1258 031222
1262 031224
031224
031226
031230
031232
1263
1264 031234
031234
031234
1265

012046

005237

14-JUN-84 15:15

002220

15¢:

104406

104410
000152
005737
001404

104456
001277
034041
012046
016501
012702
032701
001402
052702

020201
001404

224
:

000002
000200
000100
000100

254

304
:
016336

033106
000200

000012

002224

000002
000016

324:

104456

SEQ 0128

TRAP

CsCLP1

TRAP

CS$ESCAPE

1SET FATAL ERROR FLAG
1LOOP ON ERROR, IF FLAG SET

ESCAPE

SEG

1BY-PASS SUBTEST IF FATAL ERROR

MOV
MOV
817
8EQ
8IS
cHe
8EQ
ERRHRD

INTRECV
224
O,
T7INT ,PKTSSR
ERRN

TSSR(RS),R1
@SSR ,R2

00FL ,R1
25
#OFL ,R2
Re,.R1
304
O,
T7NBA ,PKTSSR
ERRN

10ID AN INTERRUPT OCCUR ?
:BRANCH IF NOT

TRAP
.WORD

JSR
MOV
MOV
8I7
8EQ

PC,CHKTSSR

ADO

#2,R2
14, ,R2
R1,R2

TSBA(RS),R1

#T78FR,R2

#BIT7,XST2(R2)

324
EXTFEA

354
ERRNO, T7TSBA ,EXPREC

011114

35¢:

JSR
8CS

ERRHRD

PC.CKRAM
40¢

ERRNO, PKTRAM, RAMERR

ENOSEG

C$ERMHRD
703

T7INT
PKTSSR

TRAP

CS$ERHRD

.MORD
.MORD
.WORD

704
T7NBA
PKTSSR

TRAP

CsCLPl

TRAP

CS$ERHRD

;WAIT FOR READY, NON-AMBIGUOUS
1GET TSBA REGISTER CONTENTS
+START OF THE DATA BUFFER
1IS EXTENDED FEATURES BIT SET ?
1BRANCH IF EXTENDED FEATURES OFF
$SET EXTENDED FEATURES FOR SUBTEST 6
sEXTRA WORD IF SPECIAL FEATURES
1EXPECTED CONTENTS OF TSDA
1 COMPARE EXPECTED TO RECEIVED
;:ERROR IF NOT EQUAL
:PRINT THE ERROR & EXPD/RECV

705
T77SBA
EXPREC

;SEE IF DATA IN RAM IS CORRECT
;BRANCH IF PACKET IN RAM IS CORRECT
;REPORT

THE RAM ERROR(S)

015510
40%:

1C000$

.WORD
.WORD

;GET THE CONTENTS OF TSSR
1EXPECTED CONTENTS OF TSSR
1IS OFF -LINE BIT SET ?
;BRANCH IF NOT OFF -LINE
:SET OFF-LINE IN EXPECTED DATA
;DOES EXPECTED MATCH RECEIVED ?
;OKAY IF MATCH
1NBA NOT ZERO

:LOOP ON ERROR

CKLOOP

cHP
BEQ
ERRMRD

.WORD

. WORD
.WORD
.WORD

104456
001302
004743

104405

PKTSSR

FATFLG

001301
034130
015474

004737
103404

.MORD

INC
CKLOOP

TST
8EQ
ERRHRD

002222

104456
001300
033220
012046
104406
004737
016501
012702
032762
001404
005237
062702
062702
020102
001404

L10

seccccccccccc<

END

TRAP
. WORD
. WORD
.WORD

SEGMENT

100004:

CS$ERHRD
706
PKTRAM
RAMERR

ccccccccccaccc

TRAP

CSESEG

MACRO M1113
TSVSA - HARDWARE TESTS
S
ERISTIC
WRITE
CHARACT
TEST
7:
1266 031236
1267 031242
031246
1269 031250
1270
1271 031254
031254
031254

1272
1273 031256
1274 031262
1275 031264
1276 031270

012364
020327
103002
000137

14-UUN 84 15:15
MOV
cMP

000006
003060

BHIS
JMP

030774
55¢:

(R3)+ ,PKBCNT(R4)
R3,0TBLEND

554
St

SEQ 0129

;SET THE TEST WORD

1tHAS ALL

DATA BEEN

F MANANAANNANNANN

ENOSUB

TESTED

1BRANCH IF ALL DATA DONE
1BRANCH TILL BACK TO ZERO
END

005737
001402
004737

TST

002220

017202

8EQ
JSR

FATFLG

604
PC.CKDROP

604
:

SUBTEST

L10056:

104403

1277

1278
1279
1280
1281
1282
1283
1284
1285
1286
1287 031270
031270
031270
1288
1289 031272
031272
031276
1290 031300
1291 031304
1292 031310
1293
1294 031314
031314
1295
031316
1297 031322
1301 031324
1302 031326
031326
031330
031332
031334
031336
031342
031344
031346
031352
031356
031362
031364
031366
031366
031370
031372

M10

N ANANANNANNN

TRAP

CsESUB

:ANY FATAL ERRORS ?

;BRANCH IF NOT
s TRY TO DROP THE UNIT

:TEST 7. SUBTEST 2
CHECK THAT UNUSED BITS BEING SET CAUSES

;WRITE CHARACTERISTICS COMMAND TO BE REJECTED

$////7//77777 BEGIN SUBTESTY /////7777/7777
T7.2:
TRAP
csssus

BGNSUB
104402
012700
104441
012703
012704
004737

000000

033126
033060
034242

S$:

104455
001303
003650
012034
005037

010400

061300
056310
010465
004737
103405
010001

104455

001304
0336¢€1

&PRIOO

;LOWER PRIORITY TO ALLOW INTERRUPTS

MOV
MOV
JSR

OT720ATA
,R3
OT7PACKET
R4
PC,TIREST

;:START OF TEST DATA FOR SUBTEST
:GET THE ADDRESS OF COMMAND PACKET

JSR
8CS
MOV
ERRDF

015774

002222

000002

016250

104:

CLR
MOV
ADD
8IS
MOV
JSR
8CS

MOV

ERROF

{RESTORE PACKET TO STARTING VALUES
TRAP

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

INTRECY
R4 ,RO
(R3),RO
2(R3),(RO)
R4 ,TSOB(RS)
PC,WAITF
15¢
RO,R1

ERRNO, T7SSR,PKTSSR

#PRIO0O0,RO
C$SPRI

MOV
TRAP

$2>>3>>>>>>>> BEGIN SEGMENT

BGNSEG

104404

004737
103405
010001

SETPRI

>>>>>>>>53>>>
C$BSEG

;00 SOFT IN1T OF CONTROLLER
;B8R IF SOFT INIT = OK
tSAVE CONTENTS OF

TSSR

:DEVICE FATAL ERROR DURING INIT
TRAP
.WORD

.WORD
.WORD

1CLEAR INTERRUPT RECEIVED FLAG
1START OF THE COMMAND PACKET
tOFFSET TO THE DATA WORD TO TEST
1SET THE DATA BITS TO BE TESTED
:SET THE PACKET ADORESS

CS$ERDF
707

SFIERR
SFIMSG

sWAIT FOR SSR TO SET

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

.WORD
.WORD

CS$ERDF

708
T7SSR

MACRO M1113
TSVSA - HARDWARE TESTS
S
ERISTIC
TEST
7: WRITE CHARACT
031374
1315 031376
031376
1316 031400
031400
031402
031404
17
13
1318 031410
1322 031412
031412
031414
031416
031420
1323 031422
1324 031426
1325 031432
031436
1327 031440
1328 031444
031446
1330 031450
1331 031452
1332 031462
1333 031466
1337 031470
031470
031472
031474
031476
1338 031500
031500
13%9 031502
1340 031506
1344 031510
031510
031512
031514
031516
1345 031520
1346 031520
031520
031520
1347
1348 031522
1349 031526
1350 031532
1351 031534
1352
1353 031540

1354
1355
1356
1357
1358
1359

031540
031540

012046

14-JUN-84

15%¢:

104406
104410
000116
005737
001404

104456
001305
034041
012046
016501
012702
032701

001402
052702
020201
001414
010100

020027
001404

15:15

000002
102206
000100

TST
BEW
ERRMHRD

000100

22%:

25%:

MOV
MOV

817
8EQ
8IS
cHe
8EQ
MOV

XOR

cHe
BEQ
ERRHRD

00200C

104456

SEQ 0130

:LOOP ON ERROR,

CrLOOP
ESCAPE

002222

N10

SEG

INTRECV
224

ERRNO,
T7INT ,PKTSSR

104406
032701
001004

304

104456
001307
033142
012046

35¢:

S7¢:

CSESCAPE
10000¢ .

TRAP

C$ERHRD

;:0I0 AN INTERRUPT OCCUR ?

.WORD
.WORD
.WORD

709
T7INT
PKTSSR

304

ERRNO, T72REJ,PKTSSR

:FIND BITS IN ERROR
:IS NBA ONLY BIT IN ERROR ?
;OON'T PRINT ERROR IF NBA ONLY BAD BIT
;:COMMAND NOT REJECTED

00FL ,R1
254
00FL ,R2

R2,R1

R1,RO
R2,RO
RO, ONBA
304

;DATA FROM TSSR

TRAP

;LOOP ON ERROR ?
ONBA ,R1
354

ERRNO, T72NBA ,PKTSSR

;IS NBA BIT SET ?
;OKAY IF NBA SET
sNBA NCT SET

s<ccccccccccc<

ENDSEG

BHIS

031304

TRAF
.

END

710
T72REJ
PKTSSR

TRAP

CsCLP1

TRAP
. WORD

C$ERHRD
711

SEGMENT

100004:
04 ,R3
R3,0T7200NE
S74
S4

ENOSUB

104403

CS$ERHRD

.WORD
.WORD
. WORD

.WORD
.WORD

ADD

000004
033142

CsCLP1

;:BRANCH IF NOT

104405
062703
020327
103002
000137

TRAP

;:GET THE CONTENTS OF TSSR
sEXPECTED CONTENTS OF TSSR
;IS OFF-LINE BIT SET 7
1BRANCH IF NOT OFF -LINE
1SET OFF -LINE IN EXPECTED DATA
1D0ES EXPECTED MATCH RECEIVED ?
;OKAY IF MATCH

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

CKLOOP
811
BNE
ERRHRD

002000

PKTSSR

:BY-PASS CHECKS IF FATAL ERROR

001306
033273

012046

.WORD

IF FLAG SET

T72NBA
PKTSSR

<ccccccccecc«

TRAP

CS$ESEG

1POINT TO NEXT DATA PAIR
;COMPARE TO END OF TEST DATA
:BRANCH IF ALL DATA TESTED
:BRANCH TILL BACK TO ZERO
S ANAAANNAANNNAY END SUBTEST NN
L10057:
TRAP
CS$ESUB

HER4

:TEST 7, SUBTEST 3
CHECK THE WRITE CHARACTERISTICS COMMAND IS REJECTED

TSVSA
TEST

MACRO M1113
- HARDWARE TESTS
7: WMRITE CHARACTERISTICS

sIF

1360
1361
1362
1363
1364 031542

031542

031542
1365
1366 031544
031544
031550
1367 031552
1368 031556
1369 031562

1370
1371 031566
031566
1372

1373
1374
1378
1379

1383
1384
1385
1389

031634
031636
031640
031642

1390 031644
031644
1391 031646
031646

012700
10444a]

012703
012704
004737

000000

000001
033060
034242

Ss:

015774

002222
000006
000000
016250

1044SS
001311
033661
012046

10¢:

iLOMER PRIORITY TO ALLOW INTERRUPTS

MOV
MOV
JSR

o1 ,R3
#TTPACKET R4
PC.TTREST

iSTARTING BYTE COUNT
1GET THE ADORESS OF COMMAMD PACKET
tRESTORE PACKET TO STARTING VALUES

CLR
MoV
1 0}
JSR
8cCs
MOV
ERROF

MOV
TRAP

§22>3>3553>533>> BEGIN SEGMENT

002222

187
8&Q

ERRMRD

104456
001312

000002
102206
000100
000100

224 :

254 :

PC.SOF INIT
10¢
RO ,R1
ERRNOD, SF IERR, SF IMSG

INTRECY
R3 . PKBCNT(R4)
R4, TSDB(RS)
PC.HAITF
15¢
RO, R1
ERRNO, T7SSR ,PXTSSR

CxLOOP

ESCAPE

104410

034041
912046
016501
012702
032701
001402
0852702
020201
001414
010100

cigsue

@#PRI0O

JOR
8cCs
MOV
ERROF

104406

031664
031666
031670
031674
031700
031704
031706
031712
031714
031716

TRAP

#PR100,.R0O
CISPR]

>>5533535335>

TRAP

104455

005037
010364
010465
004737
103405
010001

/77777777777

SETPRI

104404

000116
005737
001404

1398
1399
1400
1401
1402
1403
1404
1405

17.3%:;

BGNSEG

031650
1392 031652
1393 031656
1397 031660
031660
031662

8777777777777 BEGIN SUBTYESTY

104402

001310
003650
012034

031632
031634

[SSUED WITH AN INVALID DATA BLOCK BYTE COUNT

BGNSUB

031602
031604
031606

031620
031624
031630

SEQ C131

004737
103405
010001

1380 031610
1381 031614

15:15

031570
031574
031576
031600
031600

14 JUN-84

oll

MOV
Mov
8IT
BEQ
8IS
ce
BEQ
MOV

s00 SOFT INIT OF CONTROLLER
tBR IF SOFT IWKIT « Ox
s SAVE CONTENTS OF TSSR
sOEVICE FATAL ERROR DURING INIT
TRAP

. WORO
. WORD
. WORD

tCLEAR INTERRUPT RECEIVEL FLAG
s INSERT THE BYTE COUNT FOR TEST
;SET THE PACKET ADORESS
sWAIT FOR SSR TO SET
1BR IF CARRY SET (GOOD RETURN)
31 SAVE CONTENTS OF TSSR
sOEVICE FATAL SSR FAILED TO SET

;LOOP ON ERROR,

712
SFIERR
SF IMSG

CSEROF
713
T7SSR
PXTSSR

TRAP

citLP!

TRAP

CSESCAPE

TRAP
. WORD

CSERRD
714

IF FLAG SET

;BY-PASS SUBTEST IF FATAL ERROR

INTRECY
224

. WORD
1010 AN INTERRUPT OCCUR ?
1BRANCH IF NOT

TSSR(RS) R}
OSCISSR!TSREJ!NBA ,R?2
o0FL R}
25¢
O00FL .R2
R2.R}
30¢
Ri.RO

CHEROF

TRAP
. WORD
. WORD
.

SEG

ERRNO, T7TINT ,PXTSSR

C$8BSEG

100008

. WORD
T7INT
. WORD
PRXTSSR
1GET THE CONTENTS OF TSSR
tEXPECTED CONTENTS OF TSSR
sIS OFF-LINE BIT SET ?
sBRANCH IF NOT OFF -LINE
1SET OFF -LINE IN EXPECTED DATA
sO0ES EXPECTED MATCH RECEIVED ?
1OKAY IF MATCH
1OATA FROM TSSR

TSVSA

TEST

1406
14C7
1408
1412

1413
1414

1415
1419

1420
1421
1422
1423
1424
1425
1426
1427
1428
1429
1430
1431
1432
1433
1434
1435
1436
1437
1438

MARDWARE TESTS

MACRO M1113

WRITE CHARACTERISTICS

031720
031730
031734
031736
031736
031740
031742
031744
031746
031746
031750
0317354
031756
031756
031760
031762
031764
031766
031766
031766
031766
031770
031772
031776
032000

032004
032004
032004

JUN-84

15:15
XOR

020027

001404

ce
BEQ
ERRMRD

002000

SEQ 0132
Re,RO
RO, ONBA

304
ERRNQ,
T73RE U, PKTSSR

104456

1FIND BITS IN ERROR
11S NBA OMLY BIT IN ERROR ?

tOON'T PRINT ERROR IF NBA OMLY BAD BIT

1COMMAND NOT REJECTED

001313

CIERROD
715

.MORD

PXTSSR

TRAP

CeCLPY

TRAP

CSERMRD

LMORD

PXTSSR

. WORD

033372
012046

;1LOOP ON ERROR ?

CxL 00P

104406
032701
001004

8Iv
ERRHRD

104456
001314
033142

ONBA ,R1
354

ERRNO, T72NBA ,PXTSSR

+IS NBA BIT SET

sOKAY IF NBA SET
sNBA NOT SETY

. WORD
. WORD

012046

35%:

gecccccccccccec

ENDSEG

INC

005203

031556
S78;

END

SEGMENT

100004:

104405

020327
002002
000137

TRAP
.MORD

R3, 06
574
St

716
T72MBA

ccccecccccccc

TRAP

CSESEG

tNEXT BYTE COUNT
s TESTED ALL INVALID ?
1BRANCH IF TEST DONE
1BRANCH TILL BACK TO ZERO
I ANAMANANAANNNAN END SUBTEST

ENDSUB

T73R€EV

L10060:

104403

TRAP

CSESUB

s TEST 7, SUBTEST 4

:SlBYEST TO VERIFY THAT A WRITE CHARACTERISTICS COMMAND IS
sREJECTED IF AN ILLEGAL DATA BLOCK ADORESS IS ISSUED.

032006

1440
144} 032010

032010
032014
1442 032016
1443
1444 032026
1445
1446

1447 032032
1448 032036
1452 032040
1453 032042
032042

877777777777/ BEGIN SUBTESY
17.4:

BGNSUB

1439 032006

TRAP

104402

012700
104441
012703
012704
004737

004737
103405
010001

104455

/7777777777

000000

033126
033u60
034242

015774

Ss:

SETPRI

#PRI00

MOV
MOV
JSR

OT720ATA
,R3
#TTPACKET R4
PC,TTRESTY

JSR
8Cs

PC,SOFINIT

MOV
ERRDF

104

RO,R1

ERRNO, SF IERR, SF IMSG

cs3SUB

;1LOWER PRIORITY TO ALLOMW INTERRUPTS

#PRIO0,RO
MOV
TRAP
C#SPRI
1START OF TEST DATA FOR SUBTEST

1GET THE ADORESS OF COMMAND PACKET
(RESTORE PACKET TO STARTING VALUES
100 SOFT INIT OF CONTROLLER
iBR IF SOFT INIT » OX
1SAVE CONTENTS OF TSSR
1DEVICE FATAL ERROR NURING INIT
TRAP

CSERDF

TSVSA

TEST

1454

1455
1456

1457

1458

1459
1463

MACRO M1113
HARDLWARE TESTS
WRITE CHARACTERISTICS

001315
003650
012034
005037
052737
010465
04737
103405

002222
000001
000000
016250

1465
1466
1467
1471

1472
1473
1474

1475
1476
1477
1478
1479
1480
1481
1482
1486

1487
1488
1489

1493

1494
1495

1496
1497

14-JUN 84 15:15

033070

10¢:

010001

CLR
8IS
MOV
JSR
8Cs
MOV
ERRODF

INTRECY

01,T7D0ATA
R4, TSDB(RS)
PC,.WAITF

15¢

RO,R1

ERRNO, T7SSR,PKTSSR

104455
001316
15¢:

104406
104410
000116
005737
001404

104456
001317
034041
012046
016501
012702
032701
001402
052702
020201

TS7
BEQ
ERRHRD

002222

000002
102206
000100

000100

228
:

:
254

1DEVICE FATAL SSR FAILED 70 SET
TRAP
CSEROF

8IT
BNE
ERRHRD

002000

001321
033142
012046

3Ss:

ENDSUB

HORD
IF FLAG SET

TRAP

CSESCAPE

TRAP
. WORD
. WORD
WORD

L10061

CS$ERMRD
719
T7INT

PXTSSR

sOKAY IF MATCH
sDATA FROM TSSR

tFIND BITS IN ERROR
:IS NBA OMLY BIT IN ERROR ?
sOON'T PRINT ERROR IF NBA ONLY BAD BIT
1 COMMAND NOT REJECTED
TRAP
CS$ERHRD
720
. WORD
T74REU
. WORD
WORD
PKTSSR
sLOOP ON ERROR ?

354
ERRNO, T72NBA ,PKTSSR

PKTSSR

CsCLP]

;1GET THE CONTENTS OF TSSR
$EXPECTED CONTENTS OF TSSR
:IS OFF-LINE BIT SET ?
tBRANCH IF NOT OFF -LINE
sSET OFF-LINE IN EXPECTED DATA
;1DOES EXPECTED MATCH RECEIVED ?

ONBA ,R1

718
T7SSR

TRAP

18Y-PASS SUBTEST IF FATAL ERROR

TSSR(R3),R1
#SC!SSR! TSREJ!NBA,R2
o0FL ,R1
25¢
#0FL R2

CKLOOP

SF IMSC

;SAVE CONTENTS OF TSSR

;0I0 AN INTERRUPT OCCUR ?
$BRANCH IF NOT

304
R1,.RO
R2.RO
RO, #NBA

717
SFIERR

tWAIT FOR SSR TO SET
18R IF CARRY SET (GOOD RETURN)

INTRECY
224
ERRNO, T7INT ,PKTSSR

30¢
ERRNO, T74REJ,PKTSSR

104456

104413

SuUB

R2,R1

002000

104456
001326
033465
012046
104406
032701
001004

. WORD
. WORD
. WORD
sCLEAR INTERRUPT RECEIVED FLAG
sMAKE ADORESS 000
$SET THE PACKET ADORESS

sLOOP ON ERROR,

CxLOOP
ESCAPE

001414
010100

020027
001404

SEQ 01133

. WORD
. WORD

033661
012046

1464

D11

1IS NBA BIT SET ?
;OKAY IF NBA SET

1NBA NOT SET

TRAP

CsCLP)

TRAP
. WORD
. WORD
. WORD

CSERMRD
721
T72NBA
PKTSSR

SANAAANANAANANNN END SUBTEST NN
L10061:
TRAP
CS$ESUB

HARDWARE TESTS

MACRO M1113

: WRITE CHARACTERISTICS

E11

14-JUN-84 15:15

SEQ 0134

1 TEST

SUBTEST S

{CHECK THAT WRITE CHMARACTERISTICS CGMMAND IS REJECTED IF THE

1MESSAGE BUFFER LENGTH SPECIFIES AN INVALID COUNT (LESS THAN 14)
i
:-

032234
032234
032234
032236
032236
032242
1510 032244
1511 032250
1512 032254
1513
1514 032260
032260
1515
1516 032262
1517 032266
1521 032270
1522 032272
032272
032274
032276
032300
032302
032306
032312
032316
032322
032324
032326
032326
032330
032332
032334
1533 032336
032336
1534 032340
032340
032342
1535 032344
1536 032350
1540 032352
032352
032354
032356
032360
1541 032362
1542 032366
1543 032372

BGNSUB

$////77/77/777/77

BEGIN

SUBTESTY

TRAP

104402
012700
104441
012703
012704
004737

SETPRI
000001
033060
034242

Ss:

104455
001322
003650
012034
005037
010337
010465
004737
103405
010001

015774

002222
033074

JSR

8cs
MOV
ERROF

10¢:

016250

104455
001323
033661
012046

15¢:

104406

104410

000116

005737
001404

CLR
MOV
MOV
JSR
8Cs
MOV
ERROF

#1,R3
#T7PACKET R4
PC.TTREST

002222

1LOWER PRIORITY TO ALLOW INTERRUPTS

MOV

104

RC,R1

ERRNO,
SF IERR, SF IMSG

INTRECY

R3,T7DATA.4
R4 ,TSDB(RS)
PC.MAITF

15¢
RO,.R1
ERRNO, T7SSR , PKTSSR

#PRI00,.RO

TRAP

CS$SPRI

1STARTING BUFFER LENGTM
1GET THE ADDRESS OF COMMAND PACKET
tRESTORE PACKET TO STARTING VALUES
$2>3>>3>>>>>>

PC,SOFINIT

csBsuB

BEGIN

SEGMENT

TRAP

>33>3>33>>>>

100 SOFT INIT OF CONTROLLER
1BR IF SOFT INIT = OK
$SAVE CONTENTS OF TSSR
1OEVICE FATAL ERROR DURING INIT
TRAP
.MORD
.WORD
.WORD

1CLEAR INTERRUPT RECEIVED FLAG
1 INSERT THE BAD MESSAGE LENGTH
1SET THE PACKEY ADORESS
tWAIT FOR SSR TO SET
18R IF CARRY SET (GOOD RETURN)

.WORD
.WMORD
.WORD
IF FLAG SET

1LOOP ON ERROR,

ESCAPE

1BY-PASS SUBTEST IF FATAL ERROR

SEG

INTRECY
224
ERRNO, T7INT ,PKTSSR

22%:

MOV
MOV
BIT

TSSR(RS),R1
@SC!SSR!TSREJ!NBA
R2

Q0FL ,R1

CSEROF
722
SFIERR
SFIMSG

723
T7SSR
PKTSSR

TRAP

CsCLP1

TRAP

CSESCAPE

10ID AN INTERRUPT OCCUR ?

-.
10000

tBRANCH IF NOT

TRAP

.WORD
.WORD
.WORD

000002
102206
000100

C$8SES

1 SAVE CONTENTS OF TSSR
;OEVICE FATAL SSR FAILED 1O SeTV
TRAP
CSERDF

CKLOOP

TS7
8EQ
ERRHRD

104456
001324
034041

012046
016501
012702
032701

MOV
MOV
JSR

#PRIOO

BGNSEG

104404

004737
103405
010001

/77777777777

1GET THE CONTENTS OF TSSR
1EXPECTED CONTENTS OF

+IS OFF -LINE BIT SET

TSSR

CS$ERHRD

724
T7INT
PKTSSR

MACRO M1113
TSVSA - HAROWARE TESTS
TEST
7. WRITE CHARACTERISTICS
1544 032376
1545 032400
1546 032404
1547 032406
1548 032410
1549 032412
1550 032422
1551 032426
1555 032430
032430

1556

1557
1558
1562

1563
1564
1565
1566
1567
1569
1570
1571
1572
1573

001402

052702
020201
001414
010100

000100

020027

002000

001404

14 JUN-84

25%:

8EQ
8IS

254
#0FL ,R2

XOR

R1,RO
R2,RO
RO, #NBA

cHp
8EQ
MOV

R2,R1

30¢

cre
8EQ
ERRHRD

30¢:

104406
032701
001004

304
ERRNO, T7SREJ, PKTSSR

CxL00P

817

sBRANCH IF NOT OFF
-L INE
$SET OFF-LINE IN EXPECTED DATA
1DOES EXPECTED MATCH RECEIVED ?
sOKAY IF MATCM
tOATA FROM TSSR
sFIND BITS IN ERROR
1 IS NBA ONLY BIT IN ERROR ?
sOON'T PRINT ERROR IF NBA OMLY BAD BIT
:COMMAND NOT REJECTED
TRAP
CSERHRD

104456
001326
033142
012046

35¢:

:LOOP ON ERROR ?
#NBA ,R]

ERRHRD

35¢
ERRNO, T72NBA ,PKTSSR

+IS NBA BIT SET ?
1OKAY IF NBA SET
tNBA NOT SET

ENDSEG

gccccccccccccc

005203
020327
002002
000137

END

PKTSSR

TRAP

CsCLP1

1RAP

CS$ERHRO

SEGMENT

100004:
R3
R3, 014,

000016

S74¢
St

032250
57%:

725
T7SREJ

.MORD

.WORD
.HMORD
.MORD

104405

726
T72NBA
PXTSSR

ccccccccceccc

TRAP

CSESEG

sNEXT BUFFER LENGTH
tHAVE ALL BAD VALUES BEEN TESTED ?
sBRANCH IF ALL TESTED
1BRANCH TILL BACK TO ZERO
$ MNAMNAANNNNANAN END

SUBTEST

L10062:

104403

TRAP

CSESUB

HR4

s TEST 7,

1576
1577
1578
1579
1580
1581

SUBTEST 6

1 THIS SUBTEST IS EXECUTED ONLY IF THE EXTENDED
sFEATURES MODE IS ENABLED (AS DETERMINED BY EXAMINING

1XST2 AFTER A PREVIOUS EXECUTION OF WRITE CHARACTERISTICS).

$1T VERIFIES THAT A FIFTH CHARACTERISTICS DATA WORD IS FETCHED
s‘I; &EA?E;E COUNT PARAMETER IN THE COMMAND PACKET IS 10 DECIMAL
8

1583
1584

1585 032500

1587
1588 0323510
032510
032512
1589 032514

SEQ 0135

.MORD
.MORD

1574
1575

032500
032500
1586 032502

15:15

104456

001325
033563
012046

M1l

BGNSUB
104402
005737
001002
104432
J01576
004737

TS7

002224

034242

8///////77/777 BEGIN SUBTESY

17.6:

EXTFEA

BNE
EXIT

44
TST

JSR

PC.TTREST

/77777777777

TRAP
csBsSuB
;IS EXTENDED FEATURES SOFT. SW SET?
+BR, IF SOFTWARE SWITCH IS SET (ON)
sNO EXTENDED FEATURES EXIT THIS TEST
TRAP
CeEXIT
L100SS-.
. WORD
1SET PACKET T0O START-UP VALUES

TSVSA

TEST

HARDWARE

TESTS

MACRO M1113

WHITE CHARACTERISTICS

1590
1591 032520
032520
032524
1592 032526
1593
1594
1595
1596
1597

1598
1599
1600
1604
1605

1606

1607

1608
1609
1610
1611
1615

1616
1617

1618
1619
1624

1625

1627

1628
1629
1630
1631
1635

1636 032716

SETPRI

012700
104441
012703
012704
012737
012764

14-JUN-86 15:15

SEQ 0136

#PRI0O

000000

002764
033060
000200
000012

#TSTBLK.12. ,R3
#TTPACKET R4

€200, T75P

033100

#10. ,PKBCNT(R4)
Ss:

1LOWER PRIORITY TO ALLOW INTERRUPTS
MOV
#PRIO0,RO
TRAP
C#SPRI
1START OF TEST DATA
1GET THE ADORESS OF COMMAND PACKET
1 SPECIAL BIT SET FOR EXTFEA RAM RD
$START WITH EXTENDED FEATURES VALUE
:$2233>>>3>>>>

BGNSEG

BEGIN

SEGMENT

TRAP

104404
004737

103405
010001

104455
001327
003650
012034
005037
005037
010465
004737
103467
010001

JSR
8CS
MOV
ERRDF

015774

002220
002222

10¢:

MOV
JSR

016336

8Cs
ERRDF

104455
001330
033661

012046
005237

062220

104406
104410
000156
005737
001404

104456
001331
034041
012046
016501
012702
032701
001402
052702
020201
001404

104456
0013352
033220
012046

CLR
CLR

15%:

002222

PC,SOF INIT

10%
RO,R1
ERRNO, SF IERR, SF IMSG

FATFLG

INTRECV

R4, TSDB(RS)
PC,CHKTSSR

154

RO,R1

ERRNO, T7SSR, PKTSSR

INC

FATFLG

ESCAPE

SEG

TST
BEQ
ERRHRO

INTRECY
224
ERRNO, T7INT ,PKTSSR

CKLOOP

>35>>>333>3>>

;00 SOFT INIT OF CONTROLLER
1BR IF SOFT INIT

= Cx

:SAVE CONTENTS OF TSSR
;OEVICE FATAL ERROR DURING INIT
TRAP
CSEROF
.MORD
.WORD
.WORD

:CLEAR FATAL ERRCR FLAG
1CLEAR INTERRUPT RECEIVED FLAG

1SET THE PACKET ADORESS
1WAIT FOR SSR TO SET
;3R IF CARRY SET (GOND RETURN)
1 SAVE CONTENTS OF TSSR
tOEVICE FATAL SSR FAILED 7O SET
TRAP

000002

22%:

000100
000100

:
254

30¢:

MOV
MOV

8IT
8EQ
8IS

OSSR, R2
#0FL ,R1
254
#0FL ,R2

BEQ
ERRHRD

304
,PKTSSR
NO,
T7NBA
ERR

CKLOOP

R2.R1

727
SFIERR
SFIMSG

CSEROF

.WMORD
.MORD
.WORD

728
T7SSR
PKTSSR

TRAP

CSERHRD

:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET
TRAP
CsCLP1
1BY-PASS SUBTEST IF FATAL ERROR
CSESCAPE
TRAP
10000-8.
.
$t0ID AN INTERRLPT OCCUR ?
1BRANCH TIF NOT
.WORD
.MORD

TSSR(RS),R1

C$BSEG

.WMORD
TSSR
OF
1GET THE CONTENTS
1EXPECTED CONTENTS OF TSSR
+1IS OFF-LINE BIT SET ?
1BRANCH IF NOT OFF -LINE

729
T7INT
PKTSSR

1SET OFF-LINE IN EXPECTED DATA

;DOES EXPECTED MATCH RECEIVED ?

sOKAY IF MATCH

tNBA NOT ZERO

1LOOP ON ERROR ?

TRAP

.WORD
.WORD
.WORD

CS$ERHRD

730
T7NBA
PKTSSR

MACRD M1113
TSVSA - HARDWARE TESTS
TEST
7: WRITE CHARACTERISTICS
1637
1638
1639
1640
1641
1642

1643
1644
1645
1649

032716
032720
032724
032730
032734
032742
032744
032750
032754
032756
032760
032760
032762
032764
032766

1650
1651
1652 032770
1653 032774
1654 033000
1658 033002

104406
004737
016501
012702
032762
001402
062702
062702
020102
001404

000002
000016

MOV
8IT
BEQ

000012

ADO

32%:

8eQ
ERRHRD

104456

PC,CHXTSSR

TSBA(RS),R1
#T7BFR,R2

®BIT7,XST2(R2)
324
02,R2

014, ,R2
R1,R2

354
ERRNO, T7TSBA ,EXPREC

SEQ 0137
TRAP
tWALIT FLR READY, NON-AMBIGUOUS

012704
004737

103404

104456
001334
004743
015510

033012
033016
1661
033016
033016
1662
1663 033020
033024
1665 033030
1666 033032
1667
1668 033036
033036
033036
1669
1670 033040
1671 033044
1672 033046
1673 033052
1674 033052
033052
033054
1675
1676
1677
1678
1679
1681 033056
1683 033060
1684 0.3060
1685 033062
1686 033064

012704

THE DATA BUFFER

IS EXTENVED FEATURES BIT SET ?
1BRANCH IF EXTENDED FEATURES OFF
1EXTRA WORD IF SPECIAL FEATURES

sEXPECTED CONTENTS OF TSDA
sCOMPARE EXPECTED TO RECEIVED
ERFIOR IF NOT EWUAL
;PRINT

THE ERROR & EXPD/RECYV
TRAP
. WORD

. WORD
. WORD

033070

011224

35%:

MOV
JSR
8CS
ERRHRD

OT7DATA,
R4
PC.CKRAM2
404

ERRNO, PKTRAM, RAMERR

404
:

MOV
ENDSEG

#T7PACKET
R4

MOV

003060

TRAP

tRESET PACKET POINTER
jecccccccceccc

END

SEGMENT

100004
:

BHIS

032552
SS¢:

(R3)+,PXKBCNT(R4)

R3,#TBLEND
S5¢
S4

104432
001234

TST

002220

017202

60¢

8eaq
JSR
EXIY

s ANY FATAL ERRORS

CHESEG

;sBRANCH IF NOT

TST

sALL DONE THIS TEST

sTRY

TRAP

CsESUB

TRAP

CsEXITY

60¢

PC,CvDROP

cccecccececcc

TRAP

SUBTEST

L10063:
FATFLG

732
PKTRAM
RAMERR

sBRANCH TILL BACK TQ ZERO

104403
005737
001402
004737

CS$ERMRO

1SET THE TEST WORD
tHAS ALL DATA BEEN TESTED ?
;BRANCH IF ALL DATA DONE
s MANANNANAANNNAY END

ENDSUB

T77SBA
EXPREC

1BRANCH IF PACKET IN RAM IS CORRECT
;REPORT THE RAM ERROR(S)

104405
012364
020327
103002
000137

CSERHRD
731

$sSET POINTER FOR CHECKER
;SEE IF DATA IN RAM IS CORRECT

.WORD
.HORD
.WORD

033060

CeCLP)

1GET TSB8\ REGISTER CONTENTS

1START OF

001333
034130
015474

033002
033004
033006
033010

1659

JSR

015336

000000
033106
000200

14-UUN-84 15:15

TO DROP THE UNIT

.WORD

L100SS

{LOCAL STORAGE FOR THIS TEST

100004
033070

.8LKB

10-¢,-TSVRET>

. WORD
. WORD
.WORD

100004

T7PACKET:

T7DATA
0

1COMMAND PACKET FOR TEST

{WRITE CHARACTERISTICS COMMAND, WITH ACK
1 ADDRESS OF CHARACTERISTICS BLOCK

TSVSA - HARDWARE TESTS

TEST

MACRO M1113

WRITE CIiHARACTERISTICS

1687 033066
1689 033070
1690 033070
1691 033072
1692 033074
1693 033076
1694 033100
1695
1696 033102
1697 033106
1698
1699
1700
1701
1702
1703
1704
1705
1706
1707
1708
1709
1710 033126
1711 033126
1712 033132
1713 033136
1714
1715
1716
1717
1718
1719

I11

14-JUN-84 15:15

000010

SEQ 0138

LWORD

sSTARTING VALUE OF BLOCK SIZE

.:g:g

57srn

sADDRESS OF MESSAGE BUFFER

14,

sLENGTH OF MESSAGE BUFFER

T7DATA:

033106
000000

;CHARACTERISTICS DATA BLOCK

JWORD

000016
000000
000000
000000

MORD

TISP:

.WORD

{EXTFEA EXTRA WORD

T78FR:

.WORD
.BLKMW

0.0
8.

' SPACE
sMESSAGE BUFFER

:TEST DATA FOR SUBTEST TWO

:DATA HAS FORMAT:

000000
000002
000004
033142

T720ATA:

037140
000001
100100

1ST WORD

2ND WORD

.WORD
.WORD
.WORD

T7200NE
=.

OFFSET TO TEST WORD IN PACKET

BITS TO SET FOR TEST

0,BITS5!B8IT6'BIT9!BIT10!BIT11!'BIT12!'BIT13
2,BITO
4,BIT6!BIT1S

:LOCAL TEXT MESSAGES FOR TEST
‘-

1720

1721 033142
1722 033220
1723 033273
1724 033372
1725 033465
1726 033563
1727 033661
1728 033750
1729 034041
1730 034130
1731 034213
1732
1733
1734
1735
1736
1737
1738
1739
1740
1741 034242
1742 034242
1743 034246

102
122
122
122
122
122
157
170

156
162

101
111
111
111
111
111
156
160
145
143
151

TI2NBA:
TINBA:
TI2REJ:
T73REJ:
T74REJ:
TTSREJ:
TISSR:
TININT:
T7INT:
T7TSBA:
TST7ID:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.EVEN

‘'NBA Not Set On Rc?octcd WRITE CHARACTERISTICS
'WRITE CHARACTERISTICS Commend Not Aczepted’
'WRITE CHARACTERISTICS Not Re jected With Non-Zero Unused Fields
'WRITE CHARACTERISTICS Not Roisgtod With Invelid Dete Count’
'WRITE CHARACTERISTICS Not Re
ted With Invelid Block Address
'WRITE CHARACTERISTICS Not Re
ted With Invelid Buffer Length
'Contents of TSSR Incorrect After WRITE CHARACTERISTICS'
'Expected Interrupt Not Received On WRITE CHARACTERISTICS
'Unexpected Interrupt Received On WRITE CHARACTERISTICS'
'Incorrect TSBA Address After WRITE CHARACTERISTICS'
‘'MWrite Cheracteristics’

sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES

TTREST
:

012701

033060

SAVREG
MOV

OT7PACKET ,R1

1SAVE THE REGISTERS
1START OF THE PACKET

MACRO M1113
TSVSA - HARDMWARE TESTS
S
ERISTIC
WRITE
CHARACT
TEST
7:
012721
012721
005021
012721
012721
005021
012721
005021
005011

14-UUN-84 15:15
MOV
MOV
CLR
MOV

100004
033070
000010
033106
000020

:;7gffl.(fll)0

tADORESS OF MESSAGE BUFFER

MOV
CLR
CLR

#16.,(R1).
(R1).
(R1)

sLENGTH OF MESSAGE BUFFER

RTS
ENOTST

000207

tWRITE CHARACTERISTICS WITH ACK
s ADDRESS OF CHAR DATA BLOCK
tEXTENDED ADORESS
$sSIZE OF DATA BLOCK IN BYTES

20;
L

1RETURN
L10055:

104401

.SBTTL

TEST

TRAP

CSETST

VOLUME CHECK

THIS TEST VERIFIES THAT THE VOLUME CHECK (VCK) BIT, A FLAG HELD
WITHIN THE M7196 AND APPEARING IN XSTO, IS SET BY INITIALIZE AND

CLEARED BY EXECUTING A WRITE CHARACTERISTICS COMMAND WITH THE
CvC B8IT SET.
IT IS ALSO VERIFIED THAT A WRITE CHARACTERISTICS
COMMAND WITH THE CVvC BIT CLEAR DOES NOT AFFECT THE STATE OF THE
VOLUME CHECK BIT.
THE ACTUAL FUNCTION OF VOLUME CHECK, THAT OF

1764
1765
1766
1767
1768
1769
1770

PREVENTING OR ALLOWING A TAPE MOTION COMMAND DEPENDING UFON
WHETHER VOLUME CHECK IS SET OR CLEAR, IS NOT CHECKED B8Y THIS
TEST;
THIS FUNCTIONALITY IS CHECKED IN THE INDIVIDUAL TESTS OF
TAPE MOTION COMMANDS.
THE TEST PROCEEDS AS FOLLOWS:

1771

1772
1773
1774
1775
1776
1777
1778
1779
1780
1781
1782
1783
1784
1785
1786

1787

THE CONTROLLER IS INITIALIZED BY WRITING INTO THE TSSR.

A WRITE CHARACTERISTICS COMMAND IS ISSUED (WITH CvC=0)

THE PREVIOUS STEP IS REPEATED TO VERIFY THAT VvCKr DOES
NOT CHANGE (REMAINS AT 0).

A WRITE CMARACTERISTICS COMMAND IS ISSUED WITK CvC=1
AND THE VCK BIT IN XSTO IN THE MESSAGE BUFFER IS
EXAMINED;
THE VCK BIT SHOWWD BE CLEAR (0).

A WRITE CHARACTERISTICS COMMAND IS ISSUED WITH CVC=C
AND THE VCK BIT IN XSTO IN THE MESSAGE BUFFER IS

AND XSTO IN THE RETURNED MESSAGE BUFFER IS EXAMINED:
THE VCK BIT SHOWLD BE CLEAR (0).

EXAMINED;

1788

1789

1790

1791 034312
034312
1796 034312
1797 034316
1798 034322
1799 034330
1800
1801 034330

#100004,(R1).
@T7DATA,(R1 ).
(R1).
8. ,(R1).

SEQ 0139

b‘

1744 034252
1745 034256
1746 034262
1747 034264
1748 034270
1749 034274
1750 034276
1751 034302
1752 034304
1753 034306
1754 034310
034310
034310
1755
1756
1757
1758
1759
1760
1761
1762
1763

J11

BCONTST

012700
004737
012737

035177
016510
000024

012704

034720

002214

T8LOOF:

THE VCK BIT SHOULD REMAIN CLEAR (0).

T8::

;ASCII MESSAGE TO IDENTIFY TEST

MOV
JSR

0TST810,RO
PC,TSTSETUP

920. ,LOOPCNT

;100 INITIAL TEST SETLP
{PERFORM 20 ITERATIONS

MOV

OT8PACKET ,R4

iPACKET FOR WRITE CHARACTERISTICS

MOV

TSVSA - HARDMWARE TESTS
TEST
8: VOLUME CHECK

1802 034334
1803 034340
1807 034342
1808 034344
034344
034346
034350
034352
1809 034354
1810 034360
1811 034364
1812 034370
1813 034372
1817 034374
034374
034376

034400
034402
034404
034404
034406
034406
034410
034412
034416
034424
034420
034432
034432
034434
034436
034440
1828 034442
034442
1829 034444
1830
1831
1832
1836

1837

1838

1839
1840
1845

1846

004737
103405

MACRO M1113

14-JUN-84 15:15

015774

S$:

010001

JSR
8Cs
MOV
ERROF

104455

001441
003650
012034
042714

010465
004737
103405

10¢:

040000

J16336

010001

8IC
MOV
JSR
8CS
MOV
ERROF

SEQ 0140

PC,SOFINIT

104

RO,R1

ERRNO, SFIERK, SFIMSG

08I714,(R4)

R4,TSDB(RS)
PC,CHKTSSR

154

RO,R1

ERRNO, T8SSR,PKTSSR

104455

001442
035110
012046

15¢:

104406

TST

104410

000604

012702
032762
001406
016501

034742
000020

MOV
BIT
BEQ
MOV
ERRHRO

000006

000002

104456
001443
035017

012110

104406
010465
004737
103405

20¢:

016336

010001

104455

001444
035110
012046

254
:

104406

104410
000520
032762
001406
016501

104456
001445
035017
012110

000020

000006

000002

304
:

#T88FR,R2
#XSOVCK
, XSTO(R2)

204
TSSR(RS),P1
ERRNO, TBNVCK ,PKTMES

.WORD
.WORD
.WORD

R4, TSDB(RS)
PC.CHKTSSR

254

RO,R1

ERRNO, TBSSR,PKTSSR

801
SFIERR
SFIMSG

;WAIT FOR SSR 10 SET

1BR IF CARRY SET (GOOD RETURN)
1 SAVE CONTENTS OF TSSR
tDEVICE FATAL SSR FAILED TO SET
TRAP
.WORD
.WORD

.WORD
IF FLAG SET

;EXIT IF FATAL ERROR

CS$ERDF
802
TBSSR

PKTSSR

TRAP

CsCLP}

TRAP

CS$ESCAPE

WORD

; ADDRESS OF THE MESSAGE BUFFER

L1CO64

;OKAY IF VOLUME CHECK IS CLEAR

;CONTENTS OF TSSR FOR ERROR REPORT
s VOLUME CHECK NOT CLEAR
TRAP

CS$ERHRD

.WORD
.WORD
.WORD

803
TBNVCK
PKTMES

TRAP

C$CLP1

TRAP
.WORD

CSERDF
804

TRAP

CsCLP1

TRAP
.WORD

CS$ESCAPE
L10064 .

TRAP
.WORD

CS$ERHRD
805

1SET THE PACKET ADODRESS FOR WRITE CHAR
:MAIT FOR SSR TO SET
;B8R IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR
;DEVICE FATAL SSR FAILED TO SET
.WORD
.WMORD
IF FLAG SET

TBSSR
PKTSSR

ESCAPE

TST

;EXIT IF FATAL ERROR

817
8EQ
MOV
ERRHRD

#XSOVCK
, XSTO(R2)
304
TSSR(RS),R1
ERRNO, TBNVCK ,PKTMES

;IS VOLUME CHECK SET IN XSTO ?
;OKAY IF vOLUME CHECK IS SET
; CONTENTS OF TSSR FOR ERROR REPORT
1 VOLUME CHECK NOT SET

CKLOOP

+IS VOLUME CHECK SET IN XSTO ?

;:LOOP ON ERROR,

CKLOOP

CS$EROF

1CLEAR THE CVC BIT
1SET THE PACKET ADDRESS FOR WRITE CHAR

:LOOP ON ERROR

CKLOOP
MOV
JSR
8CS
MOV
ERROF

TRAP

;LOOP ON ERROR,

CKLOOP
ESCAPE

100 SOFT INIT OF CONTROLLER
1BR IF SOFT INIT = OK
1SAVE CONTENTS OF TSSR
tDEVICE FATAL ERROR DURING INIT

;LOOP ON ERROR ?

.WORD
.MORD

TBNVCK
PKTMES

TSVSA - HARDMWARE TESTS
TEST
8: VOLUME CHECK

034522
1847 034524
1848 034530
1849 034534
1850 034540
1851 034542
1855 034544
034544
034546
034550
034552
034554
1856
034554
034556
57
18
1858
1859
1863
1864

1865
1866
1867
1868
1869
1870
1874

1875
1876

1877
1878
1883

1884

1885
1886
1887
1888

034556
034560
034562
034570
034572
034576
034576
034600
034602
034604
034606
034606
034610
034614
034620
034624
034626
034630
034630
034632
034634
034636
034640
034640
034642
034642
034644
034646
034654
034656
034662
034662
034664
034666
034670
034672
034672
034674
034700
034702
034706
034706
034710

104406

052714

010465
004737
103405
010001

MACRO M1113

L11

14 JUN-84 15:15

8IS
MOV
JSR
8Cs
MOV
ERRDF

040000
000000
016336

SEQ 0141

08IT14,(R4)

R4,TSDB(RS)
PC,CHKTSSR

354

RO,R1

ERRNN, TBSSR,PKTSSR

104455

001446
035110
012046

354

104406

104410
0004 34
032762

001406
016501

000020
000002

104456
001447
034762
012110

104406
042714
010465
004737
103405
010001

000006

404:

016336

104455
001450
035110
012046

45%:

104406
104410
000350
032762
001406
016501

000020
000002

104456
001451
034762
012110
104406
004737
103002
000137
104432
000304

016456

034330

tWAIT FOR

SSR

ESCAPE

TST

8IT
8eQ
MOV
ERRHRD

@XSOVCK ,XSTO(R2)
40
TSSR(RS),R1

ERRNO,
TBVCK ,PKTMES

CKLOOP

1BR IF CARRY SET (GOOD RETURN)
1 SAVE CONTENTS OF TSSR
sOEVICE FATAL SSR FAILED 1O SET
TRAP

.WORD
.WMORD
.MORD

R4 ,TSDB(RS)
PC,CHKTSSR
454
RO,R1

ERRNO, T8SSR,PKTSSR

CS$ERDF

806
TBSSR
PKTSSR

TRAP

CsCLP1

TRAP
. WORD

CS$ESCAPE
-.
L10064

TRAP
.WORD

CS$ERHRO
807

;IS VOLUME CHECK CLEAR IN XSTO ?
;OKAY IF VOLUME CHECK IS CLEARED
1CONTENTS OF TSSR FOR ERROR REPORT
: VOLUME CHECK NOT CLEARED

.WORD
.MORD

T8VCK
PXTMES

TRAP

CsCLP1

iCLEAR THE CV(C BI7
:SET THE PACKET ADDRESS FOR WRITE CHAR
;WAIT FOR SSR TO SET

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

;

CKLOOP

IF FLAG SET

:EXIT IF FATAL ERROR

;:LOOP ON ERROR
#8IT14,(R4)

CsCLPL

TO SET

:LOOP ON ERROR,

CKLOOP

BIC
MOV
JSR
8CS
MOV
ERRDF

040000

TRAP

1SET THE CVC BIT
1SET THE PACKET ADDRESS FOR WRITE CHAR

OOP ON ERROR,

TRAP
.WORD

CSERDF
80C

TRAP

CsCLP1

TRAP
WORD

CS$ESCAPE
L10064 .

.WMORD
.WORD
IF FLAG SET

TBSSR
PKTSSR

ESCAPE

TST

;EXIT IF FATAL ERROR

BIY
8EQ
MOV
ERRHRD

OXSOVCK, XSTO(R2)

;IS VOLUME CHECK CLEAR IN XSTO ?
;OKAY IF VOLUME CHECK IS CLEARED
;CONTENTS OF TSSR FOR ERROR REPORT

S0¢%:

CKLOOP

60¢:

JSR
8CC

:
624

EXIT

S04
TSSR(RS),R1
ERRNO,
TBVCK ,PKTHES

: VOLUME CHECK NOT CLEARED

;:LOOP ON ERROR ?
PC,TSTLOOP
624
T8LOOP
TST

TRAP
.WORD
.WORD

.WMORD

CS$ERHRC
809
T8VCK
PKTMES

TRAP

CsCLP1

;SHOLD WE DO ITERATIONS ¢

:BRANCH IF NOT

;LOOP UNTIL COUNT EXPIRED
tALL DONE THIS TEST

TRAP
.WORD

CSEXIT
L10064

TSVSA - HARDWARE TESTS

TEST

VOLUME CHECK

MACRO M1113

14 JUN 84 15:15

1889
1890

1892

1895 034712
1897 034720
1898 034720
1899 034722
1900 034724
1901 034726

100004
034730
000000
000010

.BLKB
TBPACKET:
. WORD
. WORD

1903 034730
1904 034730
1905 034732
1906 034734
1907 034736

034742
000000
000020
000000

1893

1902

1908

T8DA ~:

000000

1909 034742

T8B8FR:

1910
1911
1912

10-<. -TSV2ET>

.WMORD

. WORD

100004
T8DATA
O
10

. WORD
.WORD
. WORD
.WORD

T88FR
O
16.
0,0

.BLKW

;COMMAND PACKET FOR TEST
;WRITE CHARACTERISTICS COMMAND
1+ADDRESS OF CHARACTERISTICS BLOCK

;STARTING VALUE OF COUNTER
1 CHARACTERISTICS DATA BLOCK
s ACORESS OF MESSAGE BUFFER
sLENGTH OF MESSAGE BUFFER
{MESSAGE BUFFER

1913

1916
1917
1918
1919

SEQ 0142

;LOCAL STORAGE FOR THIS TEST

1891

1914
1915

M1l

;LOCAL TEXT MESSAGES FOR TEST
;-

034762
035017
035110
035177

1920
1921 035214
035214

1922 035214

126
126
103
126

157
157
157
157

154
154
156
1S4

7T8VCK:
T8NVCK:
T8SSR:
T1ST8ID:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.EVEN

'Volume Check B3it Not Cleared’
'Volume Check Bit (VCK) Not Clear After Initialize (XSTO)'
'Contents of TSSR Incorrect After Write Characteristics
'Volume Check’

ENDTST

L10064
:

104401

iggs

.SBTTL

TEST

TRAP

CS$ETSTY

COMPLETION INTERRUPT

1925
1926
1927
1928
1929

:
:
;
;

THIS TEST VERIFIES THAT AN INTERRUPT IS GENERATED AT THE
COMPLETION OF THE WRITE CHARACTERISTICS COMMAND IF THE INTERRUPT
ENABLE (IE) BIT IN THE COMMAND HEADER WORD IS SET.
THIS TEST
CHECKS THE FUNCTIONING OF THE INTERRUPT LOGIC AND BASIC

1932
1933
1934
1935
1936

:
:
:
:
;

THE SEQUENCES OF TEST 7 ARE REPEATED, EXCEPT THAT THE INTERRUPT
SERVICE ROUTINE IS SET UP TO EXPECT INTERRUPTS AND EACH WRITE
CHARACTERISTICS COMMAND IS ISSUED WITH THE IE BIT SET (1).
IT7
IS VERIFIED, WHERE APPROPRIATE, THAT THE IE STATUS BIT IN XSTO
OF ANY MESSAGE PACKET IS SET AND THAT A COMPLETION INTERRUPT IS

1938

;

igg?

1937

1939

1940
1541
1942 035216
035216

1947 03521F
1948 035222

GENLRATED.

;

NO INTERRUPT IS GENERATED AFTER THE SECOND COMMAND AND THAT THE

:
;

005037
012700

002224
040241

PROCESSING OF THE IE BIT.

FINALLY, A SEQUENCE OF TWO COMMANDS ARE ISSUED,

FIRST WITH IE=1 AND THE SECOND WITH IE=Q.

THE

IT IS VERIFIED THAT

IE B8IT IN XSTO IS 0.

BGNTST

CLR
MOV

EXTFEA
97ST9ID,RO

19::
;CLEAR EXTENDED FEATURES SWITCH
+ASCIT MESSAGE TO IDENTIFY TEST

MACRO M1113
TSVSA - HARDWARE TESTS
T
RRUP
INTE
9: COMPLETION
TEST
1949
1950
1951
1952

035226
035232
035240
035240
035240
035240

1953
1954 035242
1955 035246
035246
035252
1956 035254
1957 035260
1958 035264
1959 035272
1960 035272
035272
1961
1962 035274
1963 035300
1967 035302
1968 035304
035304

1969
1970
1971

1972

1973
1974
1978

1979
1980

1981

1982
1983
1987

1988
1989
1991
1992
1993
1994

035306
035310
035312
035314
035320
035324
035330
035334
035336
035340
035340
035342
035344
035346
035350
035354
035354
035356
035356
035360
035362
035366
035370
035370
035372
035374
035376
035400
035404
035410
035414
035416
035422
035424

004737
012737

016510
000024

NL1

14-JUN-84 15:15
JSR

002214

9LI0P
:

MOV

SEQ 0143
PC,TSTSETUP
020.,LO0PCNT

BGNSUB

;00 INITIAL TEST SETUP
;PERFORM 20 ITERATIONS
3///77/777/777/77

BEGIN

012700
104441
012703
012704
012764

JSR
SETPRI

040266

PC,TOREST
OPRIOO

MOV

002762
037170
000010

MOV

S$:

MOV
MOV

0TSTBLK+10.,R3
OTI9PACKET
,R4
08. ,PKBCNT(R4)

BGNSEG

JSR
8cs
MOV
ERRDF

015774

104455

001605
003650
012034
005037
005037
010465

004737
103407

002220
002222

10¢;

JSR

8Cs
MOV
ERRDF

104455

002220

104406
104410
000056
005737
001004
104456
001607
037776
012046
016501
012702
032701
001402
052702

:START OF TEST DATA

020201
001404

000100

#PRI0O,
RO

TRAP

Cs$SPR1

;GET THE ADDRESS OF COMMAND PACKETY

:START WITH MINIMUM ALLOWABLE VALUE
$>>>>533>>>>3>

BEGIN

SEGMENT

>>5>335>3>>>>

TRAP
PC,SOFINIT

10¢

RO,R1

ERRNU, SFIERR, SFIMSG

FATFLG

INTRECYV
R4, TSDB(RS)
PC,CHKTSSR
154

RO,R1

ERRNO, T9SSR,PKTSSR

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

.WORD
.WORD
.WORD

:CLEAR FATAL ERROR FLAG
:CLEAR INTERRUPT RECEIVED FLAG
;SET THE PACKET ADDRESS
;WAIT FOR SSR TO SET
:BR IF CARRY SET (GOOD RETURN)
: SAVE CONTENTS OF TSSR
;:DEVICE FATAL SSR FAILED TO SET
TRAP
.WORD

901
SFIERR
SFIMSG

CS$EROF
902

TRAP

CsCLP1

TRAP
.WORD

C$ESCAPE
10000$¢ .

TRAP
.WCRD
.WORD
WORD

CS$ERHRD
903
TONINT
PKTSSR

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

ESCAPE

SEG

;B8Y PASS SUBTEST IF FATAL ERROR

TST
BNE.
ERRHRD

INTRECV
224
ERRNO, TONINT ,PKTSSR

;0ID AN INTERRUPT OCCUR ?

22%:

MOV

25%:

BIT
8EQ
8IS
CcHe

TSSR(RS),R1
9SSR ,R2

;GET THE CONTENTS OF TSSR
tEXPECTED CONTENTS OF TSSR
;IS OFF-LINE BIT SET ?
:BRANCH IF NOT OFF -LINE
1SET OFF-LINE IN EXPECTED DATA
:DOES EXPECTED MATCH RECEIVED ?
;OKAY IF MATCH

BEQ

C4EROF

T9SSR
PKTSSR

FATFLG

00FL ,R1
254
QOFL ,R2
R2,R1
30¢

C48SEG

.WORD
.WMORD

INC
CKLOOP

15¢:

002222

000002
000200
000100

CLR
CLR

MOV

016336

010001

001606
037707
012046
005237

csBsuB

;SET PACKET TO INITIAL VALUES
;LOWER PRIORITY TO ALLOW INTERRUPTS

104404

004737
103405
010001

77777777777/

TRAP

104402

004737

SUBTYESTY

19.1:

:BRANCH IF YES

TSVSA
TESY

- MARCMARE TESTS MACRO M1113
COMPLETION INTERRUPTY

1998 035426
035426
035430
035432
035434
035436
035436
035436
035436
035440
035444
035450
035452

035456
035456
035456

ERRMRD
104456
001610

2013
2014
2015

SE0 0144
ERRANO
, TONBA P TSSR

1NBA NOT

ZERO

TRAP
.MORD
.MOR0
.MORD

037245
012046

ENDSEG

gecccccccaacce

END

012364
020327
103002

000137

SEGPEMY

10000:

104405
MOV

003060

B8MIS
P

035272
SS¢:

(R3). ,PKBCNT(R4)

1SET

5S¢
S

1ORANCH TILL OACK

RS, 0TBLEND

ENDSUB

THE

TEST

o WWANMAANNANANANY

017202
037224

00C200

002224

187

FATFLG

8EQ
JSR
817

60
PC , CKXDROP
T9BFR.12,081I77

INC

EXTFEA

704

ccectccccecqece

TRAP

vSESLG

1HAS ALL DATA BEEN TESTED ?
1BRANCH IF ALL DATA OOME
TO ZERO

END

SUBTEST

L10066:

002220

CsEm|m0
904
TN@A
PXTSSR

WORD

104403
005737
001402
004737
033727
001402
005237

2010
2011
2012

18-JUN-84 15:)15

TRAP

CIESLD

sANY FATAL ERRORS ?
1ORANCH IF NOT

sTRY

70 DROP THE UNIT

;EXTENDED FEATURES SET?
18R IF NO
:SET EXT FEATURE FLAG

2016

2017

2018

1TEST 9, SUBTEST 2

2019

2uel
2023
2024
2025

sCHECK THAT UNUSED BITS BEING SET CAUSES
sMRITE CHARACTERISTICS COMMAND TO BE REJECTED

035506
035506
035506

2027
2028 035510
035510
0353514
035516
2030 035522
2031 035526

2033 035532
035532
2034
2035 035534
2036 035540
035542
2041 035544
035544
035546
035550

BGNSUB

8777717777777

BEGIN

104402
012700

10444]

012703
012704
004737

037232
037170
040266

010001

104455
001611
003650

Ss:

SETPRI

#PRIO00

MOV
MOV
JSR

OT92D0ATA
,R3
OTIPACKET R4
PC.TOREST

BGNSEG

104404

004737
103405

SUBYESY

19.2:

015774

JSR
8CS
MOV
ERROF

sLOMER PRIORITY

/777774777777

TRAP

csesuB

TO ALLOM INTERRUPTS

#PRI00,.RO
mov
TRAP
CsSPR]
1START OF TEST DATA FOR SUBTEST
tGET THE ADORESS COF COMMAND PACKET
IRESTORE PACKET TO STARTING VALUES
$12>>5>>53>3>5>>

BEGIN

SEGMENT

>>>33>>>33>>

TRAP
PC,SOF INIT
10¢

RO,R1

ERRNO, SF IERR, SF IMSG

C$8SEG

100 SOFT INIT OF CONTROLLER
18R IF SOFT INIT - OK

1SAVE CONTEWTS OF TSSR
10EVICE FATAL ERROR DURING INIY
TRAP
CSEROF
.WORD
.WORD

905
SFIERR

TSVSA - HARODWARE TESTS
MACRO M1118
S: COMPLETION INTERRUPT

14 JUN 84

15:15

108

CLR

Cle
58Q 0145

TEST

2042

2043
2044
2045

2046
2047
2048
2049

035552
035554
035560
055562
035564

035570

035574
035600
035602
2053 035604
035604
035606
035610
035612
035614
035614
035616
035616

012034
005037

002222

010400

061300
056310
010465
004737
103405
010001

8IS
MOV
JSR
8Cs

000002
000000
016250

MOV
ERROF

104455
001612
037707

15¢:

2065
2067
2072

2073
2074

2075
2076
2077
2078 035710
2079 035712
2081 035716
035716
035716

2083
2085

2087

020201

R4, TSOR(RS)

PC.WAITF
15¢

RO,R]
ERRNO,
T9SSR ,PXTSSR

CxLOoP
ESCAPE
TST

002222

ERRHRD

104456
001613
037776

2063

(R3),RO
2(R3),(RO;

iWAIT FOR SSR

INTRECY
224
ERRNO, TONINT ,PKTSSR

.
IF FLAG SET

TRAP
1BY-PASS CHECKS IF FATAL ERROR
TRAP
.

000002
102206
000100
000100

TSSR(R3),R1

228
:

OSC!SSR! TSREJ!NBA ,R2
o0FL ,R1
234
00FL ,R2

R2,R1
30¢

254:

ERRNO, T92REJ,PKTSSR

104456
001614
037321
012046

BMIS

035522

S9¢:

ENDSUB

. WORD

TONINT

907

PXTSSR

sDOES EXPECTED MATCH RECEIVED ?
sOKAY IF MATCH
sCOMMAND NOT REJECTED
TRAP
CSERRD

END

.WORD

908

WORD

PKTSSR

SEGMENT

:
100004

S9¢
St

CSESCAPE

CSERRD

.WMORD

geccccccccccce

04 ,R3
R3, #T9200NE

csCLPl

TRAP

1GET THE CONTENTS OF TSSR
1EXPECTED CONTENTS OF TSSR
+sIS OFF-LINE BIT SET ?
1BRANCH IF NOT OFF -LINE
1SeT OFF -LINE IN EXPECTED DATA

104405
000004
037246

T9SSR

PXTSSR

1BRANCH IF YES

. WORD
ENDSEG

906

100004

1DID AN INTERRUPT OCCUR ?

.WORD

001404

062703
020327
103002
000137

TQ SET

1BR If CARRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR
1DEVICE FATAL SSR FAILED TO SE7
TRAP
CIEROF

1LOOP ON ERROR,

SEG

SFIMSG

1START OF THE COMMAND PACKET
1OFFSET TC THE DATA WORD TO TEST
1SET THE DATA BITS TO BE TESTED
1SET THE PACKEYT ADORESS

. WORD

104406

012046
016501
012702
032701
001402
052702

R4 RO

.HORO

1CLEAR INTERRUPT RECEIVED FLAG

.WHORD

012046

104410
000056
005737
001004

MOV
ADO

INTRECY

T92REU

c<cccccccacccc

TRAP

CS$ESEG

1POINT TO NEXT DATA PAIR
1COMPARE TO END OF TEST DATA
$1BRANCH IF ALL OATA TESTED
1BRANCH TILL BACX TO ZERO
$MANAAAANANNNAN END SUBTEST

104403
R4

;

1 TEST 9, SUBTEST 3

;C"ECK THE WRITE CHARACTERISTICS COMMAND IS REJECTED

L10067:

N ZannnnZWWNWWY

TRAP

CsESUB

MACRO M1113

TSVSA - HARDWARE TESTS
TEST
9: COMPLETION INTERRUPT

035722
035722
035726

035730
035734
035740

035744
035744

2100
2101 035746
2102 035752
2106 035754
2107 035756
035756
035760
035762
035764
2108 035766

2109 035772
2110 035776
2111
2112
2113
2117

BGNSUB

2126

2127

2128
2129

2130
2131
2132
2136

8777777777777

BEGIN

104402
SETPRI

012700

104441
012703

012704
004737

000001

037170

040266

104455
001615
003650
012034
005037
010364
010465
004737
103405

015774

JSR
8CS
MOV
ERROF

002222

104:

CLR
MOV
JSR
8Cs
MOV
ERRDF

016250

104455
001616
037707
012046

TRAP

csesus

1LOMER PRIORITY TO ALLOW INTERRUPTS

MOV

01,R3

OTOPACKET R4
PC.TIREST

#PRIO00,RC

TRAP

1STARTING BYTE COUNT

CsSPRI

1GET THE ADORESS OF COMMAND PACKET
tRESTORE PACKET TO STARTING VALUES
$>333>5>>>3>>

BEGIN

SEGMENT

>>>333>3>>>>

TRAP
PC,SOFINIT
104

RO,R1

ERRNO, SF IERR, SF IMSG

C4BSEG

100 SOFT INIT OF CONTROLLER
;BR IF SOFT INIT

s SAVE CONTENTS OF

= Ox

TSSR

tDEVICE FATAL ERROR DURING INIT

TRAP

CSEPOF

.MORD

SFIMSG

INTRECYV

sCLEAR INTERRUPT RECEIVED FLAG

PC.WAITF

sWAIT FOR SSR TO SET

RO,R1

1 SAVE

R, PKBCNT(RS)
R4, TSDB(RS)
154

ERRND, T9SSR,PKTSSR

909
SFIERR

s INSERT THE BYTE COUNT FOR TEST
;SET THE PACKET ADDRESS
;1BR IF CARRY SET (GOOD RETURN)
CONTENTS OF

TSSR

t1DEVICE FATAL SSR FAILED TO SET
TRAP
. WORD

CSERDF
910

. WORD

PKTSSR

T9SSR

.WORD

15¢:

104406

002222

CxLOOP

;LOOP ON ERROR,

IF FLAG SE

ESCAPE

SEG

TRAP
CsCLP}
1BY-PASS SUBTEST IF FATAL ERROR
TRAP
CSESCWPE

1S7

INTRECV

;0ID AN INTERRUPT OCCUR ?

BNE
ERRHRD

104456
001617
037776
016501
012702
032701
001402
032702
020201
001404

////7/7/77777

. WORO
. WORD

010001

005737
001004

MOV
MOV
JSR

#PRIOO

BGNSEG

104404
004737
103405
010001

SUBTYESY

T 9.3 :

104410

2120
2121
2125

SEQ 0146

2091
2092 035720
035720
035720

2119

15:15

1 IF ISSUED WITH AN INVALIDO DATA BLOCK BYTE COUNT

2089

2118

14 SN 84

D1¢

224
ERRNO, TONINT ,PKTSSR

1BRANCH IF

100003

TRAP

CSERMRD

YES

.MORO
.WORD

000002

102206

224:

000100
000100

254
:

MOV
MOV
817
8EQ
8IS
cre

8EQ
ERRHRD

TSSR(RS),R1

. NMORD
1GET THE CONTENTS OF TSSR

oOFL ,R1

+IS OFF -LINE BIT SEY ?

R2,R1

1DOES EXPECTED MATCH RECEIVED

304

1OKAY

#SC!SSR!TSREJ!NBA ,R?
254
®OFL R2

ERRNO, T93RE J,PKTSSR

911
TONINT

PXTSSR

sEXPECTED CONTENTS OF TSSR

;BRANCH IF NOT OFF
-L INE
t1SET OFF-LINE IN EXPECTED DATA
IF MATCH

1COMMAND NOT REJECTED

MACRO M1113
TSVSA - HARDMARE TESTS
INTERRUPT
TEST
9: COMPLETION
036074
036076
036100
036102
2137 036104
2138 03610«
036104
036104
2139
2140 036106
2141 036110
2142 036114
2143 036i16
2144
2145 036122
036122
036122

2146
2147
2148
2149
2150
2151
2152
2153
2154
2155
2156 036124
036124
036124
2157
2158 036126
036126
036132
2159 036134
2160 036140
2161 036144
2162
2163
2164 036150
2165 0361354
2169 036156
2170 036160
036160
036162
036164
036166
2171 036170
2172 036174
2173 036202
2174 036206
2175 036212
2176 036214
2180 036216
036216
036220
036222

14-JUN-84 15:15

SEQ 0147

TRAP

104456

001620
037420
012046

304

L.MORD
.WMORD
.WORD

ENDSEG

peccccccccccce

END

104405
005203
020327
002002
000137

SEGMENT

100004
:

INC
cHe
8GE

035734
59¢:

R3, 06
594
S

ENDSUB

sNEXT BYTE COUNT

1 TESTED ALL INVALID

CIERMRD

Q12
TO3REY
PWTISSR

ccccceccecece

TRAP

CSESEG

$tBRANCH IF TEST OONE
$BRANCH TILL BACK TO ZERO
S NANANANAANNANNY

END

SUBTEST

L10070:

104403

nAaNAaLWNY

TRAP

CsESuB

HER4

; TEST 9,

SUBTEST 4

;SUBTEST TO VERIFY THAT A WRITE CHARACTERISTICS COMMAND IS
{REJECTED IF AN ILLEGAL DATA BLOCK ADORESS IS ISSUED.

BGNSUB

3777777777777

004737
103405
010001

104455
001621
003650
012034
005037
052737
010465
004737
103405

010001

104455

001622
037707

000000

037232
037170
040266

Ss:

015774

016250

037200

10¢:

/77777777777

TRAP

csBsuB

SETPRI

#PRIO0O0

sLOMER PRIORITY TO ALLOW INTERRUPTS
#PRIO00,RO
MOV

MOV
MOV
JSR

#T920ATA
,R3
R4
OTIPACKET
PC,TIREST

1START OF TEST DATA FOR SUBTEST
tGET THE ADDRESS OF COMMAND PACKET
1RESTORE PACKET TO STARTING VALUES

JSR
8Cs

PC,SOF INIT

100 SOFT INIT OF CONTROLLER

MOV
ERROF

002222

SUBTESTY

79.4;

104402
012700
104441
012703
012704
004737

BEGIN

CLR
8IS
MOV
JSR
BCS

MOV
ERRDF

10¢

RO,R1

ERRNO,
SF IERR, SF IMSG

INTRECY

TRAP

18R IF SOFT INIT = OK
s SAVE CONTENTS OF TSSR
tOEVICE FATAL ERROR DURING INIT
TRAP

.WMORD
.MORD
.WORD

;CLEAR INTERRUPT RECEIVED FLAG

#1,T90ATA
R4, TSOB(RS)
PC.WAITF

1MAKE

154

18R IF CARRY SET (GOOD RETURN)
1 SAVE CONTENTS OF TSSR
1OEVICE FATAL SSR FAILED TO SET

RO,R1

ERRNO, T9SSR,PKTSSR

CsSPRI

CS$ERDF

913
SFIERR
SFIMSG

ADORESS 000

:SET THE PACKET ADORESS
tWAIT FOR SSR

TO SET

TRAP
.WORD
.WORD

CSERDF
914
TISSR

036224
2181 036226
036226
2182 036230
036230
036232
2183 036234
2184 036240
2188

2189
2190
2191
2192
2193
2194
2195
2199

2200

012046

15¢:

104406

104410
000056
005737
001004

14 UUN 84

SEQ 0148

CKLOOP

:LOOP ON ERROR,
suB

.WORD
IF FLAG SET

TS7

002222

BNE
ERRHRD

000002
102206
000100
000100

224

25s:

MOV
MOV
817
BEQ
81S
cP

8€EQ

ERRMRD

104456

INTRECVY
224
ERRNO, TONINT ,PKTSSR

TSSR(RS),R1

O#SC!SSR! TSREJ!NBA,R2
®0FL ,R1
254
®0FL ,R2
R2,.R1
304
ERRNO, T94REJU,PKTSSR

:BRANCH IF

CSESCAPE

.WORD

L10071-.

TRAP

CSERHRD

tDID AN INTERRUPT OCCUR ?
YES

.WORD
.WORD
.WORD

915
TONINT
PKTSSR

TRAP

CS$ERMRD

1GET THE CONTENTS OF TSSR
tEXPECTED CONTENTS OF TSSR
$1S OFF -LINE BIT SET ?
$BRANCH IF NOT OFF
-L INE
$1SET OFF -LINE IN EXPECTED DATA
1D0ES EXPECTED MATCH RECEIVED ?

sOKAY IF MATCH
sCOMMAND NOT REJECTED

001624
037513
012046

.WORD
.MORD
.WORD

ENDSUB

PKTSSR

TRAP
csCLP)
1BY -PASS SUBTEST IF FATAL ERROR
TRAP

2201

2203
2204

15:15

ESCAPE

104456

001623
037776
012046
016501
012702
032701
001402
052702
020201
001404

MACRN M1:113
TSVSA - HARDWARE TESTS
TEST
9: COMPLETION INTERRUPT

(

$MANNANNANANNANY

END

SUBTEST

L10071:

104403

916
T94REJ
PKTSSR

N NN

TRAP

CsESUB

HE4

2206
2207
2208

:TEST 9, SUBTEST 5

;C!'ECK THAT WRITE CHARACTERISTICS COMMAND IS REJECTED IF THC

2210
2211
2212

2213
2214 036312
036312
036312
2215
2216 036314
036314
036320
2217 036322
2218 036326
2219 036332
2221 036336
036336
2222
2223 036340
2224 036344

sMESSAGE BUFFER LENGTH SPECIFIES AN INVALID COUNT (LESS THAN 14)
H

BGNSUB

$////////77/7/77

TRAP

104402
012700
104441
012703
012704
204737

000001
037170
040266

S¢:

015774

/77777777777

csssuB

SETPRI

9PRIOO

sLOWER PRIORITY TO ALLOW INTERRUPTS

MOV
MOV
JSR

01,R3
OTIPACKET ,R4
PC,TI9REST

1STARTING BUFFER LENGTH
.GET THE ADDRESS OF COMMAND PACKET
tRESTORE PACKET TO STARTING VALUES

BGNSEG

104404

004737
103405

BEGIN SUBTESTY
79.5:

JSR
8Cs

MOV
TRAP

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

BEGIN

SEGMENT

TRAP

PC,SOFINIT

104

100 SOFT INIT OF CONTROLLER
1BR IF SOFT INIT = OK

#PRIOO,RO
C$SPRI

>53>>3>3>>>>>)>

C$BSEG

TSVSA - HARDWARE TESTS MACRO M1113
TEST 9: COMPLETION INTERRUP!T
2228 036346
2229 036350
036350
036352
036354
036356
2230 016360
2231 036364
2232 036370
2233 036374
2234 036400
2235 036402
2239 036404
036404
036406
036410
036412
2240 036414
036414
2241 036416

2282
2243
2247

2248
2249

2251
2253
2254
2258

2259

2261

2263
2265
2266
2267

2268
2269
2270

14-JUN-84 15:15
MOV
ERROF

010001

RO,R1
ERRNO, SF IERR, SF IMSG

104455
001625

SEQ 0149

1 SAVE CONTENTS OF TSSR
sOEVICE FATAL ERROR DURING INIT

004737

103405

002222
037204

CLR
MOV
MOV
JSR
8Cs

108:

016250

MOV
ERROF

010001

INTRECV
R4, TSDB(RS)

PC,WAITF

154

RO,R1

ERRNO, T9SSR, PKTSSR

104455

001626
037707
012046

002222

ESCAPE

SEG

TST

INTRECY

ERRHRD

104456

001627
037776
012046
016501
012702
032701
001402
052702
020201
001404

SFIMSG

1CLEAR INTERRUPT RECEIVED FLAG
1 INSERT THE BAD MESSAGE LENGTH

000002
102206
000100

000100

MOV

22%:

MOV
B8I7

8EQ
8IS

:
254

BEQ
ERRHRD

104456

iBR IF CARRY SET (GOOD RETURN)
1 SAVE CONTENTS OF TSSR
;tDEVICE FATAL SSR FAILED TO SET
TRAP

224

ERRNO, TONINT ,PKTSSR

TSSR(RS),R1
#SC!SSR! TSREJ!INBA , R2
#0FL ,R1
254
$0FL ,R2
R2,R1
304
ERRNO, T9SREJ, PKTSSR

918
T9SSR

10000
-.

TRAP

CSERHROD

.WORD

PXTSSR

TRAP

CS$ERHRD

.MORD

PXTSSR

.WORD
PXTSSR
IF FLAG SET
TRAP
CsCLP1
sBY-PASS SUBTEST IF FATAL ERROR
TRAP
CS$ESCAPE

;0ID AN INTERRUPT OCCUR ?
tBRANCH IF

YFS

;GET THE CONTENTS OF TSSR
sEXPECTED CONTENTS OF TSSR
1IS OFF-LINE BIT SET ?
1BRANCH IF NOT OFF -LINE
1SET OFF-LINE IN EXPECTED DATA
;1DOES EXPECTED MATCH RECEIVED ?
1COMMAND NOT REJECTED

INC

036326
:
594

END

SEGMENT

10000:

104405
R3
R3,014
S9¢
5S¢

ENOSUB

;

;TEST

SUBTEST 6

920
TOSREJ

c<cccccccccccc

TRAP

C$ESEG

iNEXT BUFFER LENGTH

tHAVE ALL BAD VALUES BEEN TZSTED ?
1BRANCH IF ALL TESTED
1BRANCH TILL BACK TO ZERO
$ ANANNANANANNANY END SUBTEST NN
1.10072:
TRAP

104403

919
TONINT

sOKAY IF MATCH

jecceccccccccs

ENDSEG

000014

CS$ERDF

. WORD
. WORD

.WORD
.WORD

30%:

SFIERR

1SET THE PACKET ADORESS
;WAIT FOR SSR TO SET

. WORO
. WORD

001630
037611
012046

005203
020327
002002
000137

LWORD

;LOOP ON ERROR,

CKLOOP

15%.;

104406

104410
000056
005737
001004

CIERDF
917

. WORD

003650

012034
005037
010337
010465

TRAP
.WORD

CsESLB

MACRO M1113
TSVSA - MARDWARE TESTS
9: COMPLETION INTERRUPT
TEST
2271

H1o

14-UUN-84 15:15

SEQ 0150

s THIS SUBTEST IS EXECUTED ONLY IF THE EXTENDED
(FEATURES MOOE IS ENABLED (AS DETERMINEC BY EXAMINING

2272

2273
2274
2275

$XST2 AFTER A PREVIOUS EXECUTION OF

+1IT VERIFIES THAT A FIFTH CHARACTERISTICS DATA WORD IS FETCHED
:IF THE BYTE COUNT PARAMETER IN THE COMMAND PACKET IS 10 DECIMAL
;OR GREATER,

2276

2277

2278
2279
2280 036516

03651¢
036516

036520
036524
036526
036532
036536

036536
036542

BGNSUB
104402

005737
001002
000137
004737

002224

012700
104441}

000000

036544
036550
8332;653

012703
012704
012764

036562
036562

104404

036564
036570
036572
036574

004737
103405
010001
104455
001631
003650
012034
005037

036624
036626

103407
010001

036630

036630
036632
036634
036636

2310 036640
2311 036644
036644
2312 036646
036646

036650
2313 036652
2314 036656
2318 036660
036660
036662

036746
040266

002762
037170
000012

4% :

/77777177777 BEGIN SUBTESY /77777777777
19.6:

005037
010465
004737

104455
001632
037707
012046

005237

015774

002220
002222
000000
016336

002220

104410

104456
001633

002222

154%:

csBSUB

EXTFEAR
41
554
PC,TOREST

;IS EXTENDED FEATURES SOFT. SW SET?
s1BR, IF SOFTWARE SWITCH IS SET (ON)
sEXIT SUBTEST
$SET PACKET TO START-UP VALUES

SETPRI

@&PRIOO

sLOWER PRIORITY TO ALLOW INTERRUPTS

MOV
MOV
MOV

OTSTBLK+10. .R3
O®T9PACKET R4
€10, ,PKBCNT(R4)

sSTART OF TEST DATA
1GET THE ADDRESS OF COMMAND PACKET
$1START WITH EXTENDED FEATURES VALUE

MOV
TRAP

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

100 SOFT INIT OF CONTROLLER
sBR IF SOFT INIT = Ox
;1SAVE CONTENTS OF TSSR
sDEVICE FATAL ERROR DURING INIT

CLR
CLR
MOV
JSR
8CS
MOV

FATFLG
INTRECYV
R4 ,TSDB(RS)
PC.CHKTSSR
15¢
RO,R1

sCLEAR FATAL ERROR FLAG
;CLEAR INTERRUPT RECEIVED FLAG
;:SET THE PACKET ADORESS
;WAIT FOR SSR TO SET
sBR IF CARRY SET (GOOD RETURN)
s SAVE CONTENTS OF TSSR

ERRNO, T9SSR,PKTSSR

TRAP
. WORD
. WORD
. WORD

sDEVICE FATAL SSR FAILED TO SET
TRAP
. WORD
. WORD
. WORD

INC

FATFLG

$1SET FATAL ERROR FLAG

ESCAPE

SEG

:1BY-PASS SUBTEST IF FATAL ERROR

INTRECYV
224

.
;DID AN INTERRUPT OCCUR 7
:BRANCH IF YES

CKLOOP

TSsT
BNE

ERRHRD

#PRI00,RO
CS$SPRI

$12>>>>3>5>>>>> BEGIN SEGMENT >>>>>>333>>>
TRAP
C#$BSEG

JSR
B8CsS
MOV
ERRODF

ERROF

104406

000056
005737
001004

10¢:

TRAP

TS7
BNE
JMP
JSR

BGNSEG

036574
036576
036600
036602
036604

036610
036614
036620

WRITE CHARACTERISTICS).

ERRNO, TONINT,PKTSSR

;LOOP ON ERROR,

IF FLAG SET

CSERDF
921
SFIERR
SF IMSG

CS$ERDF
922
T9SSR
PKTSSR

TRAP

CsCLP1

TRAP

CS$ESCAPE

TRAP
. WORD

CSERHRD
923

10000 - .

MACRO
TSVSA - HAROMARE TESTS
9: COMPLETION INTERRUPT
TEST

2319

2321
2322
2323
2324
2325
2329

2330
2331

036664
036666
036670
036674
036700
036704
036706
036712
036714
036716
036716
036720
036722
036724
036726
036726
036726

036726

2332
2333 036730
2334 036734
2335 036740
2336 036742
2337
2338 036746
2339

036746
036746

2341
2342
2343
2344
2345
2346
2347
2348
2349 036750
036750
036750
2350
2351 036752
036752
036756
2352 036760
2353 036764
2354 036770
2355 036774
2359 036776
2360 037000
037000
037002
037004
037006
2361 037010
037014
2363 037020

037776
012046
016501
012702
032701
001402
052702
020201

000002
000200
000100

000100

M1113

14 JUN-84 15:15

:
224

MOV
MOV

817

25s:

001404

104456

8EQ
8IS
cre
8€EqQ
ERRHRD

SEQ 0151

TSSR(RS),R1
@SSR ,R2
#0FL ,R1

254
P0FL ,R2

Re2,R1

304
O,
TONBA ,PKTSSR
ERRN

.WORD
.WORD

sGET THE CONTENTS OF TSSR

sEXPECTED CONTENTS OF T3SR
1 IS OFF-LINE BIT SET ?
;1BRANCH IF NOT OFF -LINE

$SET OFF -LINE IN EXPECTED DATA
1D0ES EXPECTED MATCH RECEIVED ?
sOKAY IF MATCH

sNBA NOT ZERO

30¢:

CS$ERHRD

.WORD

TONBA

. WORD

geccccccccccecc

ENDSEG

END

SEGMENT

100004:

104405
012364
020327
103002
000137

TRAP

. WORD

001634
037246
012046

MOV

000006
003060

BHIS

036562
SS5¢:

(R3)+,PKBCNT(RS)

R3,#TBLEND

S55¢
5S4

924

PKTSSR

<cccccccccccc

ThAP

C$ESEG

;SET THE TEST WORD
tHAS ALL DATA BEEN TESTED ?
;BRANCH IF ALL DATA DONE
;BRANCH TILL BACK TO ZERO
s AAAAAANNANANANY END SUBTEST
L10073:

ENDSUB

TONINT
PKTSSR

TRAP

104403

Cs$ESUB

HRJ

:TEST 9, SUBTEST 7
STEST WRITE CHARACTERISTICS WITH/WITHOUT INTERRUPTS ENABLED
/77777777777

BGNSUB
104402
012700
104441
012704
004737
004737

103405

SETPRI

000000

MOV
JSR
JSR
8CS
MOV
ERRDF

037170
040266
015774

002222
000200

:LOWER PRIORITY TO ALLOW INTERRUPTS
MOV

TRAP

010001

104455
001635
003650
012034
005037
052714
010465

#PRIOO

BEGIN SUBTESY /77777777777
79.7:
TRAP
csBSUB

10¢:

CLR
8IS
MOV

@TIPACKET
,R4
PC,T9REST

PC,SOFINIT

104
RO,R1
ERRNO, SFIERR, SFIMSG

INTRECV
08I77,(R4)

R4, TSDB(RS)

OPRIOO,RO
C$SPRI

1GET THE ADDRESS OF COMMAND PACKET
1SET UP A VALID PACKET
;00 SOFT INIT OF CONTROLLER
1BR IF SOFT INIT = OK
1 SAVE CONTEMTS OF TSSR
:DEVICF FATAL ERROR DURING INIT
TRAP

.WORD
.WORD
.WORD

1CLEAR INTERRUPT RECEIVED FLAG

1ENABLE INTERRUPTS
1SET THE PACKET ADORESS

CS$ERDF

925
SFIERR
SFIMSG

MACRO M1113
TSVSA - HARDMARE TESTS
T
RRUP
INTE
TEST
9: COMPLETION
2364
2365
2366
2370

2371

2372

2373
2374
2378

037024
037030

037032
037034
037034
037036

037040
037042
037044
037044
037046
037046
037050
037052
037056
037060
037060
037062
037064
C37066
037070
037070

2392

2393
2394
2398

2399
2400

PC,CHKIKTSSR

1S¢

RO,R1

ERRNO, T9SSR,PKTSSR

SEQ 0152
tWAIT FOR SSR

TO SET

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

104455
001636
037707
012046

15%:

104406

104410
000102
005737
001004

002222

104456
001637
037776
012046

22%:

. WORD
IF FLAG SET

;LOOP ON ERROR,

CKLOOP

TRAP

ESCAPE

suB

:BY PASS SUBTEST

TSY
BNE
ERRHRD

INTRECV

;0ID AN INTERRUPT OCCUR ?

224
ERRNO, TONINT ,PKTSSR

;BRANCH IF

TRAP

037116
037120
037122
037124
037126
037126
037130
037130
037132
037134
037140
037142
037142
037144
037146
037150
037152
037152
037152
037152

104455

CLR
8IC
MOV
JSR
8Cs

002222
016336

MOV
ERROF

TRAP

001640
037707
012046

254 :

104406

104410
000020
005737
001404

ESCAPE
TST
BEQ
ERRHRD

002222

:SET THE PACKET ADDRESS

iBR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR
1DEVICE FATAL SSR FAILED TO SET
TRAP

suB

INTRECV
304
,PKTSSR
NO,
TOINT
ERR

. WORD
.WORD
. WORD
IF FLAG ?E;P
R

;BY-PASS SUBTEST IF FATAL ERROR

TRAP

CS$ERMRD

10ID AN INTERRUPT OCCUR ?
1BRANCH IF NOT

s AOZNAAANANNANNANNY END SUBTEST
L10074:

ENOSUB

104403
EXIT

TST

104432

;ALL DONE THIS TEST

HE4

:LOCAL STORAGE FOR THIS TEST

929
T9INT
PKTSSR

TRAP

CsESLB

TRAP

CSEXIT
L10065

. WORD

001162

CcsCLP1
CSESCAPE
L10074 .

. WORD
. WORD
. WORD

30¢:

C$ERDF

928
T9SSR
PKTSSR

.WORD

TRAP

104456

001641
040067
012046

CsCLPL

;:OISABLE INTERRUPTS

;:LOOP ON ERROR,

CKLOOP

CSERHRD
927

TRAP

sWAIT FOR SSR TO SET

ERRNO, T9SSR,PKTSSR

CS$ESCAPE

TONINT
PKTSSR

PC,CHKTSSR
254

CsCLP1

. WORD
. WORD
.WORD

;CLEAR INTERRUPT RECEIVED FLAG

RO,R1

926
T9SSP
PKTSSR

L10074-.

INTRECV
08IT77,(R4)

R4,TSOB(RS)

C4ERDF

YES

;LOOP ON ERROR

CxLOOoP

IF FATAL ERROR

104406
005037
042714
010465
004737
103405
010001

2401
2402 037154
037154
037156
2403
2404
2405

Jl¢

15:15
JSR
BCS
MOV
ERRDF

016336

010001

037072
037076
037102
037106
037112
037114

037116

2391

004737
103405

14-JUN-84

TSVSA - MARDWARE TESTS

TEST

MACRC M1113

9: COMPLETION INTERRUPT

14-JUN-84 15:15

2406

2409 037160
2411 037170
2412 037170

.BLKB
TI9PACKET:

2407

2413 037172
2414 037174

2415 037176
2416

2417 037200
2418 037200
2419 037202
2420 037204
2421 037206
2422

100204

. WORD

037200
000000
000010

037212
000000
000016
000000

IK12

T9DATA:
000000

10-<, TSV2E7>
100204

.WORD
. WORD
. WORD

T9DATA
0
8.

.WORD
.WORD
. WORD
. WORD

T98FR
0
14,
0,0

.BLKMW

2423 037212

T98FR:

2426

2428
2429

:
;:DATA HAS FORMAT:

2424
2425

H
:
H

2434

2433

2435

2436 037232

2437 037232
2438 037236
2439 037242
2440
2441
2442

000000
000002
000004
037246

. WORD
. WORD
. WORD
T9200NE = .

1STARTING VALUE OF BLOCK SIZE

;CHARACTERISTICS DATA BLOCK
; ADDRESS OF MESSAGE BUFFER
;LENGTH OF MESSAGE BUFFER
;MESSAGE BUFFER

OFFSET TO TEST WORD IN PACKET
BITS TO SET FOR TEST

0,.8175'8176'8IT9'8IT10'8IT11'8IT12'BIT13
2.8IT0
4,8I76'8171S

sLOCAL TEXT MESSAGES FOR TEST

;: -

2446

2447 037246

037321
037420
037513
037611
037707
037776
040067
V40156
040241

127

127
127
127
127
103
105
125
111
103

122

122
122
122
122
157
170
156
156
157

111

111
111
111
111
156
160
145
143
1S5

TONBA:

T92REJ:
T93REJ:
TO94REJ:
TI9SREJ:
T9SSR:
TININT:
T9INT:
T9TSBA:
TST9ID:

.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.EVEN

'WRITE CHARACTERISTICS Commend Not Accepted’

'WRITE CHARACTERISTICS Not Rojoctod With Non-Zero Unused F ields'
'WRITE CHARACTERISTICS Not Rc_pctod With Invalid Dete Count’
'WRITE CHARACTERISTICS Not Ro,pctod With Invalid Block Address
'WRITE CHARACTERISTICS Not Re
ted With Invelid Buffer Length
'Contents of TSSR Incorrect After WRITE CHARACTERISTICS®
'Expected Interrupt Not Received On WRITE CHARACTERISTICS'
'Unexpected Interrupt Received On WRITE CHARACTERISTICS'
'Incorrect TSBA Addreos After WRITE CHARACTERISTICS'
’'Completion Interrupt’

2461

246

2464

s ADDRESS OF CHARACTERISTICS 8LOCK

2444
2445

246§

1ST WORD
2ND WORD

T920ATA:

037140
000001
100100

2443

2460

sWRITE CHAR COMMAND, WITH IE, ACK

s TEST DATA FOR SUBTEST TwO

2430
2431
2432

2457
2458
2459

s COMMAND PACKET FOR TES?T

2427

2448
2449
2450
2451
2452
2453
2454
2455
2456

SEQ 0153

sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES
-

TSVSA - HARDWARE TESTS

MACRO M1113

9: COMPLETION INTERRUPT

TEST

14-JUUN-84 15:15

2465

2466 040266
2467 040266

2468 040272
2469 040276
2470 040302
2471 040306
2472 040310
2473 040314

2474 040320
2475 040322
2476 040326
2477 040330
2478 040332
2479 040336
2480 040340
040340

2481

040340

TOREST:

012701

012721
012721
005021
012721
012721
005021
012721
005021
005011

005037
00020/

SAVREG

MOV

037170

100204
037200

MOY
MOV
CLR
MOV
MOV

000010
037212

CLR
MoV
CLR

000016

CLR

037212

CLR

RTS
ENDTST

OTIOPACKET ,R1

€100204,(R1)
®T9DATA,(R1).
(R1).
8. ,(R1).
#T98FR,(R1).
(R1).
014, ,(R1).
(R1)»
(R1)

T98FR

SEQ 0154

1SAVE THE REGISTERS

1START OF THE PACKET

(WRITE CHARACTERISTICS WITH ACK, It
1ADDRESS OF CHAR DATA BLOCK
tEXTENDED ADDRESS
1SIZE OF DATA BLOCK IN BYTES
s ADDRESS OF MESSAGE BUFFER
sLENGTH OF MESSAGE BUFFER
;CILEAR 1ST LOC IN MESSAGE BUFFER

;RETURN

L10065:

104401

248§

.SBTTL

248

2484

24
2488

H
;

2465
2‘3?

:
:

TEST

TIRW

CsETST

10. BASIC PACKET PROTOCOL

THIS TEST VERIFIES BASIC OPERATION OF THE MESSAGE BUFFER RELEASE

COMMAND, THE FUNCTION OF THE ACKX BIT IN THE COMMAND MEADER WORD,
AND THE REGISTER MODIFICATION REFUSED (RMR) LOGIC.

2489
5430

;TEST 10 SUBTEST 1

491

2492
2493

;CHECKS THAT THE MESSAGE BUFFER RELEASE COMMAND WORKS
sPROPERLY AND THAT NO INTERRUPT 1S GENERATED EVEN

g:g;

;IF THE "IE~ BIT IS SET IN THE COMMAND PACKET

2496
2497 040342

040342

2502 040342

2503 040346
2504 040352
2505 040360

¢ -

012700
004737
012737

043277

016510
000024

040360

002214

T10L0O0P;

104402

2509 040362

004737

043326

012700
104441

000000

2511 040374
2512 040400
2513 040406
2514 040406

JSR
MOV

€TST101I0,RO

PC,TSTSETUP
#20. ,LOOPCNT

BGNSUB

2508 040360
2510 040366
040366
040372

BGNTST

MOV

2507 040360

012704
012764

2615 040406

104404

2516 040410
2517 040414

004737
103405

L12

042470
000010

015774

Ss¢:

;DO INITIAL TEST SETWP
;PERFORM 20 ITERATIONS

3777777777777 BEGIN SUBTEST /77777777777
T10.1:

TRAP

cs8SuUB

JSR

PC,T10RST

sSET PACKET TO INITIAL VALUES

MOV
MOV

O®T10PACKET R4
08. ,PKBCNT(R4)

;GET THE ADDRESS OF COMMAND PACKET
;START WITH MINIMUM ALLOWABLE VALUE

SETPRI

000006

T10::
sASCII MESSAGE TO IDENTIFY TEST

#PRIOO

BGNSEG

JSR
8Cs

;LOWER PRIORITY TO ALLOW INTERRUPTS
MOV
#PRIO0,RO
TRAP
C$SPRI

$2>>>>33>>>>> BEGIN SEGMENT

TRAP

PC,SOFINIT
104

1D0 SOFT INIT OF CONTROLLER
1BR IF SOFT INIT = OK

>>353>3>>5>>>>

C$BSEG

M1
TSVSA - HARDMWARE TESTS MACRO M1113
TEST
10: BASIC PACKET PROTOCOL
2521 040416
2522 040420
040420
040422
040424

14-JUN-83 15:15
MOV
ERROF

010001

104455
001751
003650
012034
005037
005037
01v16S
004737
103407

10¢:

002220
002222

016336

MCV
ERROF

010001

2532

2533
2534
2535
2536
2537
2541

2542
2543
2545

2547
2552

2553
2554
2555

2556
2557

2559
2561

2563
2567

104455
001752
043030
012046
005237

002220

15¢:

104406

104410
000056
005737
001004

002222

104456
001753

043117
012046
016501
012702
032701
001402
052702
020201
001404

CLR
CLR
MOV
JSR
8CS

:
224

000002
000200
000100
000100

254:

SEQ 0155
RO,R1

ERRNO, SFIERR, SFIMSG

FATFLG

INTRECY

R4,TSOB(RS)
PC,CHKTSSR

15¢

RO,R1

ERRNO, T10SSR, PKTSSR

s SAVE CONTENTS OF

TSSR

;OEVICE FATAL ERROR DURING INIT
TRAP

.WORD
.WMORC
.WORD

;CLEAR FATAL ERROR FLAG
1CLEAR INTERRUPT RECEIVED FLAG
1SET THE PACKET ADORESS
tMAIT FOR SSR TO SEY

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

CsCLP

TRAP
.

CIESCAPE
100004
-.

TRAP
.WORD

CSERHRD
1003

SEG

;BY-PASS SUBTEST IF FATAL ERROR

TST
BNE
ERRHRD

INTRECV
224

;DID AN INTERRUPT OCCUR ?
;BRANCH IF YES

817
8EQ
8IS
cHpe
BEQ
ERRHRD

104456
001754
042671

.WORD
.WORD

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

30¢:

s€cccccccccccc

END

C$ERHRD
1004

. WORD

PKTSSR

SEGMENT

100004:

104405

32>>>>>33>:>>

BEGIN

002222

025252
100212
016336

042512

INTRECV
9025252, TL08FR

0100212,(R4)
R4, TSDB(RS)
PC.CHKTSSR

45%
RO,R1
ERRNO, T1O0SSR, PKTSSR

T1ONBA

ccccecccccc««

TRAP

SEGMENT

TRAP

104404

T10nINT
PKTSSR

TRAP
. WORD

.WORD

012046

005037
012737
012714
010465
004737
103407
010001

TRAP

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

ESCAPE

TSSR(RS),R1
@SSR, R2
00FL ,R1
254
Q0FL ,R2
R2,R1
304
ERRNO, TIONBA ,PKTSSR

CSEROF

1002
T10SSR
PKTSSR

FATFLG

MOV
MOV

1001
SFIERR
SFIMSG

.WORD
.MORD
.WORD

INC
CKLOOP

ERRNO, T1ONINT ,PKTSSR

CSERDF

C$ESEG

>>5>3>>>3>3>3>>>>

C$BSEG

1CLEAR INTERRI®PT RECEIVED FLAG
1WIPE OUT MESSAGE BUFFER AREA
1SET COMMAND PACKET TO MESS BUF REL
1SET THE PACKET ADORESS
iWAIT FOR SSR TO SET
1BR IF CARRY SET (GOOD RETURN)
1 SAVE CONTENTS OF TSSR
1DEVICE FATAL SSR FAILED TO SET

MACRO M1113
TSVSA - HARDWARE TESTS
PROTOCOL
10: BASIC PACKET
TEST

040610
040612
040614
040616

2568 040620
2569 040624
040624
2570 040626
2571 040632
2575 040634
040634
040636
040640
040642
2576 040644
2577 040650
2578 040654
2579 040660
2580 040662
2581 040666
2582 040670
2586 040672
040672
040674
040676
040700
2587 040702
040702
2589 040706
040712
2591 040714
2595 040716
040716
040720
040722
040724
2596 040726
2597 040726
2598 040732
2599 040734

040740
040740
040740
2601 040742
2602 040742
040742
040742
2603
2604
2605
2606

2607
2608
2609
2610
2611
2612

JUN 84

15:15

SEQ 0156

TRAP

104455
001755
043030

012046
005237

002220

104406
005737

002222

001404

104456
001756
043210
012046
016501
012702
032701
001402
052702
020201
00°.404

0000C2
000200
000100

000100

104456
001757
042753
012046
013701
012702
020102
001404

104405

:
524

5S¢

INC

FATFLG

TST
BEQ
ERRHRD

INTRECV
524
ERRNO, T10INT,PKTSSR

CkLooP

MOV
MOV

81T
8EQ
8IS
cHe
8EQ
ERRHRD

TSSR(RS),R1
OSSR, R2

00FL ,R1
554
QOFL R2
R2,R1
60$
ERRNO, TIONNBA ,PKTSSR

iSET FATAL ERROR FLAG

;:LOOF ON ERROR,

CSERDF
1005

T10SSR

PKTSSR

IF FLAG SET
TRAP

;0ID AN INTERRUPT QOCCUR
;BRANCH IF NO

?
TRAP

.WORD
. WORD
. WORD

;GET THE CONTENTS OF TSSR
sEXPECTED CONTENTS OF TSSR
:IS OFF-LINE BIT SET ?
-L INE
:BRANCH IF NOT OFF
;SET OFF -LINE IN EXPECTED DATA
;:DOES EXPECTED MATCH RECEIVED ?
;OKAY IF MATCH
SET
;NBA

CsCLP1

CSERMRD
1006
T10INT

PKTSSR

CS$ERHRD
1007

T1ONNBA

PKTSSR

042512
025252

104456
001760
042574
015474
005737
001403
004737

45:

. WORD
. WOROD
. WORD

60¢:

MOV

MOV
cHe
BEQ
ERRHRD

70$:

002220
017202

80%$:

T108FR,R1

0025252 ,R2
R1,R2

704
ERRNO, T1OMBF , EXPREC

;PICK UP THE 1ST WORD OF MESSAGE BUFFER
;SET UP EXPECTED DATA
;WAS ANY MESSAGE REC'D

:BR, IF OK (EQUAL)
;MESSAGE BUFFER WAS MODIFIED
TRAP

.WCRD
.WORD
. WORD

TST
8EQ
JSR
ENOSEG

FATFLG
804
PC,CKDROP

: TRY

TO DROP

THE UNIT

;€CCccccccccc<<

END

SEGMENT

<ccccccccecccc

TRAP

C$ESEG

i///////7/77/7/7 END SUBTESTY /77777777777
L10076:
TRAP
CSESUB

ENOSUB

;¢

10 SUBTEST

T10MBF

EXPREC

: ANY FATAL ERRORS
:BR, IF NO FATAL ERRORS
10001%:

104403
; TEST

C$ERHRD
1008

;CHECKS THAT THE MESSAGE BUFFER RELEASE COMMAND WORKS
1PROPERLY AND THAT THERE IS AN INTERRUPT IF THE “IE"
;8IT IS SET IN THE COMMAND PACKET AND THE “ERI" BIT
;IS SET IN THE CHARACTERISTICS DATA PACKET

TSVSA
TEST

TESTS

MACRO TMM11183

10: BASIC PACKET PROTOCOL

14 JUN 84

040744

104402

2615 040746

004737

2614

2616

2617
2618
2619
2620

2621
2622
2623

2627
2628

2630
2631
2632
2633
2635
2639

15:15

SEQ 0197
3772/7777¢7777

8GNSUB

2613 040744

040744

B17

012700
10444]1
012704
012764

JSR

043326

SE TPR]

042470

000010

PC,T10RST

103405

015774

002220
002222

10¢:

R4
OT10PACKET

CISPRT
1GET THME ADORESS OF COMMAND PACKE?

JSR
8Cs

PC.SOFINIT

ERROF

ERAND , SF IERR , SF TMSG

016336

104455

10¢

RO,R1

CLR

FATFLG

JSR
8CS
MOV
ERROF

PC.OKTSSR
15¢

CLR

INTRECY
0000020, T10DATA .6

R4, TSDB(RS)

RO,R1

ERRND, T10SSR,PXTSSR

it ¢

005237

002220

15¢:

104406

104410
000056
005737
001004

002222

104456

INC
CxL00P

FATFLG

ESCAPE

SEG

187

INTRECY

ERRHRD

ERAND, TIONINT ,PKTSSR

224

2653
2654
2655
2659

016501
012702
032701
001402
052702
020201
001404
104456
001764

®PRI00,
RO

;START WITH MINIMUM ALLOWASLE VALUE
SEGENT

»>>>33533535>

100 SOFT INIT OF CONTROLLER
1OR IF SOFT INMIT - Ox
1SAVE CONTENTS OF TSSR
sOEVICE FATAL ERROR DURING INIT

TRAP

.MORD
.MORD
MORD

sCLEAR FATAL ERROR FLAG
sCLZAR INTERRUPT RETEIVED FLAG
1SE° ERI IN OMARACTENTISTICS DATA

TSSR(RS),R1

000100

MOV
MOV
BIT

000100

8IS

#SSR ,R2
00FL ,R1
254
S0FL ,R2

8EQ
ERRMRD

304
ERRNO, T1ONBA ,PXTSSR

000002

224

2Ss:

R2,R1

C$8SEG

CSERDF

1009
SFIERR
SFIMSG

1SEV THE PACKET ADCRESS
tWAIY FOR SSR TO SETY

1BR I CARRY SET (GOOD RETRN)
1SPVvE CONTENTS OF TSSR
1DEVICE FARTAL SSR FAILED 10 SET
IRAP
CSERDF
1010
. WORD
1SET FATAL ERROR FLAC

;LOOP ON ERROR,

J»r

.MORD
WORD

rLAG SET

TRAP

;:BY-PASS SUBTES! IF FATAL ERROR

TRAP
.

10ID AN INTERRUPT OCCUR ?
1BRANCH IF

T10SSR
PXTSSR
CsCLP}

CSESCAPE
100008

YES

TRAP

. WORD
.WMORD

001763
043117

2649
2650
2651

MOV
TRAP

122223553
33> BEGIN

042506

010001

012046

CissuB

TRAP

010001

104455
001761
003650
012034
005037
005037
012737
010465
004737
103407

TRAP

1SET PACKET TO INITIAL VALUES
sLOMER PRIORITY 70 ALLOW INTERRUPTS

104404

004737

/7777727774

PRI

001762
043030
2641

SABTYESY

110.2:

08. .PXBCNT(R4)

Ss:

BEGIN

.MORD
1GET THE CONTENTS OF TSSR

CSERMRD

1011

TI1ONINT
PxTSSR

tEXPECTED CONTENTS OF TSSR

:IS OFF-LINE BIT SET ?
;1BRANCH IF NOT OFF -LINE

1SET OFF -LINE IN EXPECTED DATA
1D0ES EXPECTED MATCH RECEIVED ?
1OKAY IF MATCH
tNBA NOT ZERO
TRAP

. WORD

CSERRD

1012

TSVSA
TEST

HARDWARE

TESTS

MACRO M1113

10: BASIC PACKET PROTOCOL
041140
04114
041144
041144

041144
041144
041146
041146

041130
041154

2670
2674

2675
2676

2677
2678

041162
041166
041172
041176
041200
041202
041202
041204
041206
041210
041212
041216
041216

14 AN-84

C13

15:15

SEQ 0158

MORD
.MORD

042671

012046

308
:

gecccccccccecc

ENDSEG

END SEQIENT

100004;

104405

005037
012737
012714
010465
004737
103407

002222

023252
100212

CLR

042512

MOV
JSR
8Cs
MOV
ERRDF

016336

104455
001765
043030
005237

104406
005737

001004

INTRECV
00232352, T108FR
0100212,(R4)
R4, TSDB(RS)

PC,OMKTSSR

002220

45
:

ERRNO, T10SSR,PXTSSR

002222

INC
CxLOooP
TS7
BNE

INTRECY
524
ERRNU, TIOINT

ERRHRD

000002

52
:

1CLEAR INTEAMUPT RECEIVED FLAG
(WIPE OUT MESSAGE BUFFER AREA
1SET COMMAND PACKET TO MESS BUF REL
1SET THE PACKET ADORESS
18R IF CARRY SET (GOOD RETURN)
1 SAVE CONTENTS OF TSSR
tOEVICE FATAL SSR FAILFDtYO S>ET
RAP

5S¢
:

104456

1SET FATAL ERROR FLAG
1L00P ON ERROR, IF FLAG SET

K TSSR

TSSR(RS),R1

8IS

#SSR ,R2
OFL .R1
5S¢
#0FL R2

8EQ
ERRHRD

604
ERRNO, TLONNBA ,PKTSSR

817

000100
000100

MOV

R2,R1

TRAP
10ID AN INTERRUPT OCCUR ?
;BRANCH IF YES
TRAP

.WORD
.MORD
WORD

sGEY THE CONTENTS OF TSSR
1EXPECTED CONTENTS OF TSSR
1IS OFF-LINE BIT SET

MOV
MOV
ERRHRD

104456
001770

T108FR,R1

9023252,
R2

R1,R2
704

ERRNO, T10MBF ,EXPREC

iNBA NOT SET

2704

2705

2706

TRAP

1SET U EXPECTED DATA
1WAS ANY MESSAGE REC'D
18R, IF Ox (EQUAL)
1MESSAGE BUFFER WAS MODIFIED
TRAP

.WORD
.WORD
.WORD

015474
05737
001402

704
:

002220

187

8eQ

FATFLG

80¢

PXTSSR

CsCLP1

CSERHRD
1014
T10INT
PXTSSR

CSERHRD

1015
T1UNNBA
PXTSSR

tPICK LP THE 1ST WORD OF MESSAGE BUFFER

042574

2703

1013
T10SSR

. WORD
. WORD
WORO

042512
025252

CSEROF

1BRANCH IF NOT OFF -LINE
tSET OFF -LINE IN EXPECTED DATA
1DOES EXPECTED MATCH RECEIVED ?
;OKAY IF MATCH

001767
042753
012046

013701
012702
020102
001404

Ce8SEG

1WAIT FOR SSR T0 SEY

459

FATFLG

COESEG

>3>3533353>>»

.WORD
.MORD

104456
001766
043210

012046
016501
012702
032701
001402
052702
020201
001404

TRAP
TRAP

010001

012046

ccccccarcccace

$5»553555555> PEGIN SEGPENT

104404

TIONBA
PXTSSR

1ANY FATAL ERRORS
1BR, IF NO FATAL ERRORS

CSERYRD

1016
T10MBF
EXPREC

)

—

TSVSA

TESY

MACRO M1113
- HARDWARE TESTS
10: BASIC PACKET PROTOCOL

2707 041326

2708 041332
2709 041352

041332
041332
2710 041334
041334
041334
2711
2712
2713
2714
2715
2716
2717
2718
2719
2720 041336
041336
041336

2721
2722 041340
2723 041344
041344
041350
2724 041352
2725 041356
2726 041364
2727 041364
041364
2728
2729 241366
2730 041372
2734 041374
2735 041376

2736

2737

2738

2739

2740
2741
274S

2746
2747

2748
2749

041376
041400
041402
041404
041406
041412
041416
041422
041426
041430
041432
043432
041434
041436
041440
041442
041446
041446
041450
041450
041452
041454

004737

14 JUN-84

15:15

JSR

017202

SEQ 0159

PC .CKDROP

ENDSEG

1 TRY

TO DROP

THE UNIT

geccceccceccec

END

SEGMMENT

1000114
:

104405

ENDSUB

8777777777777 END

TRAP

SUBTYESTY

L10077;

104403

cccccececcccee

CSESEG

/77777777777

TRAP

CSESLB

1 TEST 10 SUBTEST 3
s

1CHECKS THAT THE CPU GIVES UP OWNERSHIP OF THE MESSAGE BUFFER

{AFTER THE MESSAGE BUFFER RELEASE,

1WORK CORRECTLY

AND THAT FOLLOWING COPMANDS

H
H

BGNSUB

$/////777/7/777 BEGIN S\BTYESTY

710.3:

104402

004737

043326

012700
10444]
012704
012764

000000

042470
000010

JSR

SETPRI

000006

104455
001771
003650
012034
005037
005037
N10465
004737
103407

015774

C48SUB

1SET PACKET TO INITIAL VALUES
;LOWER PRIORITY TO ALLOW INTERRUPTS

MOV
TRAP

#PRIO00,
RO
C$SPR]

1GET THE ADORESS OF COMMAND PACKET

1START WITH MINIMUM ALLOWABLE VALUE
$22>>3>>3>3>>>

BEGIN

SEGMENT

>>3>5>>33>3>>

TRAP

002220
002222
000000
016336

10¢:

002220

3100 SOFT INIT OF CONTROLLER

MOV
ERROF

RO,R1
ERRNO, SFIERR, SF IMSG

1 SAVE CONTENTS OF TSSR
tDEVICE FATAL ERROR DURING INIT
TRAP
CS$EROF

10¢

104410

002222

CLR
CLR
MOV
JSR

FATFLG
INTRECYV
R4 ,TSDB(RS)
PC.CHKTSSR

MOV
ERRDF

RO,R1
ERRNO, T10SSR,PKTSSR

8Cs

1Ss:

C$BSEGC

PC,SOF INIT

1BR IF SOFT

INIT

= O

.WORD

104406

005737

OT10PACKET R4
8. ,PKBCNT(R4)

TRAP

JSR

8Cs

010001

104455
001772
043030
012046
005237

#PRIOO

BGNSEG

104404
004737
103405
010001

MOV
MOV

PC,TI0RST

/77777777777

154

INC

FATFLG

ESCAPE

SEG

INTRECY

CxLOOP

1017

.WORD
.WORD

SFIERR
SFIMSG

.WORD
.MORD
.MORO

1018
T10SSR
PXTSSR

1CLEAR FATAL ERROR FLAG
1CLEAR INTERRUPT RECEIVED FLAG
1SET THE PACKET ADDRESS
1MAIT FOR SSR TO SET
1BR IF CARRY SET (GOOD RETURN)
1 SAVE CONTENTS OF TSSR
tDEVICE FATAL SSR FAILED TO SETY
TRAP
CSEROF

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

TRAP
CsCLP1
1BY-PASS SUBTEST IF FATAL ERROR
TRAP
CSESCAPE
.WORD
10000% .
10ID AN INTERRUPT OCCUR ?

TSVSA - HMARDMARE TESTS MACRO M1113
TEST
10: BASIC PACKET PROTOCOL

2750 041460

001004

041462
041464
041466

104456
001773
043117
012046
016501
012702
032701
001402
052702
020201

2754 041462

041470

2755 041472
2756 041476
2757 041502
2758 041506
2759 041510
2760 041514

2761 041516

2765 041520
041520
041522
041524
041526

2766 041530
2767 041530

041530
041530
2768 041532
041532

2769
2770
2771
2772
2773
2774

041534
041540
041544
041552
041556
041562

2775 041566
2776 041570
2780 041572
041572
041574
041576
041600
2781 041602
2782 041606
041606
2783 041610
2784 041614
2788 041616
041616

2789
2790
2791
2792
2793
2794
2795
2799

041620
041622
041624

041626
041632

041636

041642
041644
041650
041652
041654
041654

041656

14 JUN 84

15:15

BNE
ERRHRD

228:

000002
000100
000100

25%:

001404

104456
001774

ELZ

MOV
MOV

SEQ 0160

224
ERRNO, TIONINT ,PKTSSR

;BRANCH IF

YES
TRAP

TSSR(R5),R1
O#SSR,R2

.WORD
. WORD
. WORD
sGET THE CONTENTS OF TSSR
tEXPECTED CONTENTS OF T3SR

R2,R1

$tBRANCH IF NOT OFF
-L INE
1SET OFF-LINE IN EXPECTED DATA
sDOES EXPECTED MATCH RECEIVED ?

8I7
BEQ
8IS

00FL ,R1
254
o0FL R2

BEQ
ERRMRD

304
ERRNO, TLONBA ,PKTSSR

3IS OFF-LINE BIT SET

;OKAY IF MATCH

tNBA NOT ZERO

TRAP

042671
012046

104404
004737
005037
012737
012714
010465
004737
103407
010001

043326
002222

100212

042512

ENDSEG

gecccccccccccc

BGNSEG

$>2535>>>>>3>>

PC,T10RST

MOV
MOV

#100212,(R4)
R4, TSDB(RS)
PC.CHKTSSR

JSR
8CS

016336

ERROF

104455
001775

END

SEGMENT

:
100004

JSR
CLR

INTRECV

0025252, T108FR

454
RO,R1

ERRNO, TLOSSR ,PKTSSR

104406
005737
001404

454:

002222

104456
001777

000002
000200
00010C
000100

INC
CKXLOOP

FATFLG

TS7

INTRECV
S
ERRNO, T10INT ,PKTSSR

8EQ
ERRHRD

104456

001776
043210
012046
016501
012702
032701
001402
052702
020201
001404

5S¢t

55¢:

MOV
MOV
BIT
8EQ
8IS
cP
8EQ
ERRHRD

TSSR(R3),M
#SSR,R2

#0FL ,R1
5S¢
#OFL ,R2
R2,R1
604

ERRNO, TIONNBA ,PKTSSR

1020
T10NBA
PKTSSR

CSESEG

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

TRAP
C$BSEG
tRESET PACKETS AND COMMANDS
1CLEAR INTERRUPT RECEIVED FLAG
1WIPE OUT MESSAGE BUFFER AREA
1SET COMMAND PACKET TO MESS BUF REL
:SET THE PACKET ADORESS
1WAIT FOR SSR TO SET

1BR IF CARRY SET (GOOD RETURN)
1 SAVE CONTENTS OF TSSR
1DEVICE FATAL SSR FAILED TO SET
TRAP
CSEROF
.MORD

002220

CSERMROD

<cccccceccccc

BEGIN SEGMENT

043030

005237

1019
T1ONINT
PKTSSR

. WORD
. WORD
. WORD

104405

CSERMRD

:SET FATAL ERROR FLAG

.WORD
.WORD

IF FLAG SET
TRAP
10ID AN INTERRUPT OCCUR ?

;LOOP ON ERROR,

1021

T10SSR
PXTSSR

CsCLP1

$BRANCH IF NO

TRAP

CS$ERHRD

.WORD
.WORD
WORD

1022
T10INT
PKTSSR

TRAP

CSERMRD
1023

1GET THE CONTENTS OF TSSR
tEXPECTED CONTENTS OF TSSR
:IS OFF-LINE BIT SET ?
1BRANCH IF NOT OFF -LINE
1SET OFF-LINE IN EXPECTED DATA
1DOES EXPECTED MATCH RECEIVED ?

tOKAY IF MATCH

tNBA NOT SET

. WORD

TSVSA

TEST

MACRO M1113
- HARDWARE TESTS
10: BASIC PACKET PROTOCOL

042753
012046

041660
041662
2800 041664
2801 041664
2802 041670
26803 041674
2804 041676
2808 041700
041700
041702
041704
041706

002000
042574
015474

041710

104406

2809
2810 041710
2811
2812 041712
2613 041716
2614 041722
2815 041726
2816 041732
2817 01736
2818 041740
2822 041742
041742
041744
041746
041750
2823 041752
2824 041756
041756
2825 041760
041760
041762
2826 041764
2827 041770
2831 041772
2832 041776
C41776
042000
042002
042004
2833 042006
2834 042012
2835 042016
042022
2837 042024
2838 042030
2839 042032
2843 042034
042034
042036
042040
042042
2844 042044
2845 042044
042044

013701
012702
020102
001404

042512
025252

14-JUN-84

60¢%:

104456
002003
043030
012046

ERRNO, T10MBF ,EXPREC

CKLOOP

CLR
JSR
8IC

002222
043326

MOV
JSR
8Cs
MOV
ERROF

016336

002220

75%:

1SET UP EXPECTED DATA

1WAS ANY MESSAGE REC'D
1BR, IF OK (EQUAL)
tMESSAGE BUFFER WAS MODIFIED

1LOOP ON ERROR IF FLAG SET
INTRECV

PC,T10RST
#100000, (R4)
R4, TSOB(RS)

PC,CHKTSSR

754
RO,R1

ERRNO, T10SSR,PKTSSR

000002

sDEVICE FATAL SSR FAILED TO SEY
TRAP

. WORD
. WORD
.WORD

ESCAPE

SEG

1BY-PASS SUBTEST IF FATAL ERROR

TSSR(RS),RO
ERRNO, TLONINT ,PKTSSR

:LOOP ON ERROR,

IF FLAG ?S:P

:DID AN INTERRUPT OCCUR ?
:BRANCH IF YES

. WORD
. WORD

000100

82¢:

85s:

MOV
MOV
BIT
B8EQ
8IS
8EQ
ERRHRD

ENDSEG

WORD

TSSR(RS),R1
#SSR,R2

:GET THE CONTENTS OF TSSR
1EXPECTED CONTENTS OF TSSR

R2,R1
904

1SET OFF -LINE IN EXPECTED DATA
1O0ES EXPECTED MATCH RECEIVED ?
1OKAY IF MATCH
$NBA NOT ZERO

#0FL ,R1
854
#0FL ,R2

ERRNO, T10SSR,PKTSSR

CSEROF
1025

T10SSR
PKTSSR

CsCLP1

CS$ESCAPE
-.
10001¢$

1GET TSSR FOR ERROR REPORT
TRAP

000002
000200
000100

CsCLP1

sWAIT FOR SSR TO SET
1BR IF CARRY SET (GOOD RETURN)
$SAVE CONTENTS OF TSSR

$SET FATAL ERROR FLAG

INTRECY
824

EXPREC

tCLEAR THE ACK BIT
1SET THE PACKET ADORESS

FATFLG

TST
BNE
MOV
ERRHRD

002222

T10MBF

tRESET THE PACKETS AND COMMANDS

INC

CKLOOP

CSERMRD
1024

sCLEAR INTERRUPT RECEIVED FLAG

TRAP

104456

012702
032701
001402
052702
020201
001404

R1,R2
704

T10NNBA
PKTSSR

sPICK UP THE 1ST WORD OF MESSAGE BUFFER

TRAP

104406

002002
043117
012046
016501

T1087R,R1

#025252,R2

. WORD
. WORD
. WORD

104455

104410
000062
005737
001006
016500

MOV
MOV

TRAP

708
:

002001
043030
012046
005237

SEQ 0161
. WORD
. WORD

BEQ
ERRMRD

104456

005037
004737
042714
010465
004737
103407
010001

15:15

CS$ERHRD
1026
T1ONINT

PKTSSR

+IS OFF -LINE BIT SET ?
1BRANCH IF NOT OFF -LINE

TRAP
. WORD
. WORD
. WORD

geccccccccccce

END

SEGMENT

100014

CS$ERHRD
1027

T10SSR
PKTSSR

<cccccccccccc

TSVSA - HARDWARE TESTS MACRO M1113
10: BASIC PACKET PROTOCOL

(517

14 JUUN 84 15:15

SEQ 0162

TEST

042044
2846 042046
2847 042052
2848 042054
2849
2850 042060
042060
2651 042062
2852 042066
2853 042072
2854 042076
2855 042102
2856 042104
2860 042106
042106
042110
042112
042114
042116
2861

2862 042122
042122
2863 042124
2864
2865
2869
2870

2871
2872
2873
2874
2875
2876
2877
2681

042124
042126

042130
042134
042136

042142
042142
042144
042146

042150
042152
042156

042162
042166
042170

042174
042176

042200
042200
042202
042204
042206
042210
042210
042210
042212
042216
042220
042224
042224
042224
042224

042226

104405

005737
001403
004737

002220
017202

FATFLG

8EQ
JSR

PC.CKDROP

95¢

104404

005037
004737
010465
004737

103407

002222
043326

954
:

016336

010001

CLR
JSR
MOV
JSR
8CS
MOV

ERROF

104455

18R,

1 TRY

INTRECV

PC.T10RST
R4, TSDB(RS)
PC.CHKTSSR
1004
RO,R1

ERRNO, T10SSR, PKTSSR

THE

UNIT

BGN

SEGMENT

002220

100¢:

002222

sWAIT FOR SSR TO SET

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

020201
001405

000002

100024
-.

TRAP
.WMORD
. WORD

CSERMRD
1029
T1ONINT

INTRECV
112%
TSSR(RS),RO
ERRNO, TIONINT ,PKTSSR

:10ID0 AN INTERRUPT OCCUR ?
1BRANCH IF YES
;GET TSSR FOR ERROR REPORT

TSSR(RS),R1
#5SR,R2

1GET THE CONTENTS OF TSSR
;EXPECTED CONTENTS OF TSSR
+1IS OFF-LINE BIT SET ?
sBRANCH IF NOT OFF -LINE
1SET OFF -LINE IN EXPECTED DATA
;1D0ES EXPECTED MATCH RECEIVED ?
sOKAY IF MATCH
;NBA NOT ZERO
TRAP
.WORD
.WORD
. WORD

#0FL ,R1
125¢
#0FL ,R2

000100
000100

R2,R1

125%:

1304
ERRNO, T105SR,PKTSSR

002220

017202

130¢:
1404 :

304:
4

TST
8EQ
JSR

ENDSUB

.MORD

geccccccccc<cc

ENDSEG

END

SEGMENT

100024:
FATFLG

1404
PC,CKDROP

1028

1SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET
TRAP
CsCLP1
s1BY-PASS SUBTEST IF FATAL ERROR
TRAP
CSESCAPE

TST

112¢:

043030
012046

104403

T10SSR
PKXTSSR

SEG

104456

001402
004737

.MORD
.MORD

ESCAPE

002006

104405
005737

CSERDF

FATFLG

MOV
ERRHRD

104456
002005
043117

012046
016501
012702
032701
001402
052702

TRAP

INC
CKLOOP

BNE

CI8SEG

sRESET THE PACKETS AND COMMANDS
1SET THE PACKET ADDRESS

. WORD

104406
104410
000062
005737
001006
016500

cccececccccce

TRAP
1CLEAR INTERRUPT RECEIVED FLAG

002004

043030
012046
005237

CSESEG

If NO FATAL ERRORS

TO DROP

jCcccccccccccc

BGNSEG

TRAP

1ANY FATAL ERRORS

$/77////7/7/77777

CSERHRD

1030
T10SSR
PKTSSR

<cccccccccccc

TRAP

1CHECK FATAL FLAG FOR SET
1BR, IF NOT SET (OK)
:DROP DEVICE IF INDICATED

PKTSSR

C$ESEG

END SUBTESTY ////7/7/77777
L10100:
TRAP
CsESUB

|"1 ‘
TSVSA

TEST

MACRO M1113
- HMARDWARE TESTS
PROTO
COL
10: BASIC PACKET

14-JUN-84

;CHECKS THAT THE REGISTER MOOIFICATION REFUSED (RMR) BI” IN
¢ THE TSSR WILL BE SET IF A WRITE CHARACTERISTICS COMMAND
+BEING EXECUTED AND ANOTHER "WC" COMMAND IS ATTEMPTED

2893
2894
<895

2896
2897
2898
2899 04222¢,
042226
042226
2900
2901 042230
2902 042234
2903 042240
042240
042244
2904 042246

2910
2911
2915
2916

042252
042256
042264
042272
042272
042272
042274
042300
042302
042304
042304
042306

042310

BGNSUB

004737
004737

012700
104441
012704
012703
012764
012763

104455
002007
003650
012034
005037
005037
010465
010365
004737
016501
032701
001006

2935
2939 042402
042402

104456

2932
2933

JSR
JSR
SETPRI

043400
043326

042470
042532
000010
000010

PC.T10RT?

PC,T10RST
OPRIO00

#T10PACKET , R4
#T10PKT ,R3
8. ,PKBCNT(R4)
#8. ,PKBCNT(R3)

000006
St

015774

PC,SOF INIT
10¢

ERRDF

002220
002222

10¢:

CLR
CLR

MOV
MOV
JSR
MOV
81T

016250
000200

ERRDF

104455

002010
043030
012046
005237

SUBTESTY

710.4:

002220

104406

104410
002222

15¢;

RO,R1

ERRNO, SFIERR, SF IMSG

FATFLG

INTRECV
R4, TSDB(RS)
R3,TSDB(RS)

PC,WAITF

TSSR(RS)
,R1
OSSR, R1
15¢
ERRNO, TLOSSR,PKTSSR

INC
CKLOOP

FATFLG

ESCAPE

SEG

BNE

TST

INTRECV
224

ERRHRD

ERRNO,

/77777777777

TRAP

csasuB

$;SET SECOND PACKET uP
$SET PACKET TO INITIAL VALUES

;LOWER PRIORITY TO ALLOW INTERRUPTS

MOV
#PRIOO,RO
TRAP
C4SPRI
;GET THE ADORESS OF COMMAND PACKET
;GET THE ADDRESS OF 2ND CMD PACKET
;START WITH MINIMUM ALLOWABLE VALUE
;START WITH MINIMUM ALLOWABLE VALUE
$2>>>3>>3>3>>>>>

104404
004737
103405
010001

005737
001004

2931

$///7//777777 BEGIN

102402

042312
042314
042320
042324
042330
042334
042340
042344
042350
042352
042352
042354
04235¢
042360
042362
042366
042366
042370
042370
042372
042374
042400

2929
2930

SEQ 0163

:TEST 10 SUBTEST 4

2891
2892

2905
2906
2907
2908
2909

15:15

BEGIN

SEGMENT

>55>>>5>>>>>>>

TRAP
100 SOFT INIT OF CONTROLLER
t1BR IF SOFT INIT = 0K

1 SAVE CONTENTS QOF TSSR
;tDEVICE FATAL ERROR DURING INIT
TRAP
CSEROF
.HMORD
.WORD
.WORD

1031
SFIERR
SFIMSG

.WORD
.MORD
.MORD

1032
T10SSR
PXTSSR

1CLEAR FATAL ERROR FLAG
1CLEAR INTERRUPT RECEIVED FLAG
1SET THE PACKET ADDRESS
:SECOND COMMAND PACKET
tWAIT FOR SSR TO SET
:GET CONTENTS OF TSSR REGISTER
1CHECK FOR SSR (TSSR) SET
1BR, IF SSR SET (CO0D)
sDEVICE FATAL SSR FAILED TO SET
TRAP
CSERDF

:SET FATAL ERROR FLAG
1LOOP ON ERROR, IF FLAG SET
TRAP
;BY-PASS SUBTEST

IF FATAL ERROR

CsCLP1

TRAP
.WORD

CS$ESCAPE
100C00$ .

TRAP

CS$ERMHRD

1DID AN INTERRUPT OCCUR ?
:BRANCH IF YES
TIONINT ,PKTSSR

C$8SEG

TSVSA - HMARDWARE TESTS MACRO M1113
10: BASIC PACKET PROTOCOL
TEST
042404
042406
042410

2940 042412
2941 042416
2942 042422

2943 042426
2944 042430
2945 042434
2946 042436
2950 042440
042440
042442
042444

042446

2951 042450
2952 042450

042450
042450
2953 042452
042452
042452
2954 042454
042454
042456

002011
043117
012046

016501
012702
032701

001402
052702
020201
001404

000002
110200
000100
000100

104456
002012
043030
012046

14-JUN 84

15:15

22%:

25%:

30¢:

104405
104403

MOV
MOV
8Iv
8EQ
BIS
cHP
BEQ
ERRHRD

SEQ 0164

TSSR(RS),R1
OSSR!RMR!SC,R2

O00FL ,R1
254
Q0FL ,R2

R2,R1

30%
ERRNO, T10SSR,PKTSSR

. WORD
. WORD
. WORD

1GET THE CONTENTS OF

TSSR

1IS OFF -LINE BIT SET

tEXPECTED CONTENTS OF TSSR

sBRANCH IF NOT OFF -LINE

1SET OFF-LINE IN EXPECTED DATA
;DOES EXPECTED MATCH RECEIVED ?
s OKAY IF MATCH
;NBA NOT ZERO
TRAP

. WORD
. WORD
. WORD

ENOSEG

sceccccccccccc

ENOSUB

3777777777777

EXIT

1033
TI1ONINT
PKTSSR

END

SEGMENT

CS$ERHRD

1034
T10SSR
PKTSSR

«cccccccccccc

:
100004
END

TRAP
CS$ESEG
SUBTESTY /77777777777

L10101:
TS7

104432
000774

sALL DONE WITH THIS TEST

TRAP

CseESUB

TRAP

CseXIT

. WORD

L1CO7S

:LOCAL STORAGE FOR THIS TEST
.BLKB

T10PACKET:

100204
042500
000010

T100ATA:

042512
000016

000000

10-¢,-TSV2E?>
100204

;COMMAND PACKET FOR TEST
;WRITE CHAR COMMAND,

WITH IE,

ACK

T10DATA
0
8.

; ADDRESS OF CHARACTERISTICS BLOCK

T108FR

1 ADDRESS OF MESSAGE BUFFER

14,
0.0

tLENGTH OF MESSAGE BUFFER

;STARTING VALUE OF BLOCK SIZE

; CHARACTERISTICS DATA BLOCK

;MESSAGE BUFFER

T108FR:
Hd

:TEST DATA FOR SUBTEST FOUR
2981
2982
2983
2984
2985

042532
042532
042534
042536
042540

2987 042542
2988 042542

100204
042542

T10PKT

000010

1STARTING VALUE OF BLOCK SIZE

. WORD
. WORD
. WORD
. WORD

T100TA
0

.WORD

T108UFR

T100TA:

042554

100204

: COMMAND PACKET FOR TEST
iWRITE CHAR COMMAND, WITH IE, ACK
; ADDRESS OF CHARACTERISTICS 8LOCK

1 CHARACTERISTICS DATA BLOCK

1 ADDRESS OF MESSAGE BUFFER

TSVSA - HARDMWARE TESTS MTMMACRO M1113
10: BASIC PACKET PROTOCOL

TEST

2989 042544
2990 042546
2991 042550
2992
2993 042554

000000
000016
000000

14-UUN 84 15:15

.WORD
.WORD
,WORD

Q00000

T10BUFR: .BLKW

2994
2995

SEQ 0165

O
14,
0,0

sLENGTH OF MESSAGE BUFFER

sMESSAGE BUFFER

2996

:LOCAL TEXT MESSAGES FOR TEST
:

2997
2998
2999

3000 042574
3001 042671
3002 042753
3003 043030
3004 043117
3005 043210
3006 043277
3007

115
116
116
103
105
125
102

145
102
102
157
170
156
141

3003
3009
3010
3011
3012

163
101
101
156
160
145
163

T1OMBF: .ASCIZ
TIONBA: .ASCIZ
TI1ONNBA:
T10SSR: .ASCIZ
T1ONINT:
TI10INT: .ASCIZ
TST101D:
.EVEN

'Messege Buffer Modified after MESSAGE BUFFER RELEASE Commend
'‘NBA Not Clear After WRITE CHARACTERISTICS Cosmend’
.ASCIZ
'NBA Set After MESSAGE BUFFER RELEASE Commend
'Contents of TSSR Incorrect After WRITE CHARACTERISTICS
.ASCIZ
'Expected Interrupt Not Received On WRITE CHARACTERISTICS
‘'Unexpected Interrupt Received On WRITE CHARACTERISTICS®
.ASCIZ2
'Basic Pecket Protocol’

i
H

§813

;ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAWLT) VALUES

3015
3016
3017 043326

;

3018 043326

T10RST:

3019 043332

012701

3023 043350
3024 043354

012721
012721

3020 043336
3021 043342
3022 043346

3025
3026
3027
3028
3029
3030
3031
3032

043360
043362
043366
043370
043372
043376

012721
012721
005021

005021
012721
005021
005011
005037
000207

MOV

#T10PACKET R}

000010
042512

MOV
MOV

68.,.(R1).
#T10B8FR,(R1).

100204
042500

MOV
MOV
CLR
CLR
MOV

000016
042512
1
:

gggz

CLR
CLR
CLR
RTS

9100204 ,(R1).
OT10DATA,(R1)+
(R1)~
(R1).
014 ,(R1)»

(R1)»
(R1)
T108FR
PC

:SAVE THE REGISTERS

1START OF THE PACKET

tWRITE CHARACTERISTICS WITH ACK,
;ADDRESS OF CHAR DATA BLOCK

1EXTENDED ADDRESS

$1SIZE OF DATA BLOCK IN BYTES
s ADDRESS OF MESSAGE BUFFER
sLENGTH OF MESSAGE BUFFER
;CLEAR 1ST LOC IN MESSAGE BUFFER
s RETURN

;ROUTINE TO RESTORE COMMAND PACKET @2 TO START-UP (DEFAULT) VALUES

3035
3036
3037 043400

3038 043400
3039 043404
3040 043410
3041 043414
3042 043420
3043 043422
3044 043426
3045 043432

SAVREG

042470

:
T10RT2:

012701

012721
012721
005021
012721
012721

005021

042532

100204
042542
000010
042554

SAVREG
MOV

OT10PKT R1

CLR

(R1).

MOV
MOV
CLR
MOV
MOV

0100204, (R1)
OT10DTA,(R1).
(R1)
08.,(R1).
O#T10BUFR,(R1)+

;1SAVE THE REGISTERS
1START OF THE PACKET
sWRITE CHARACTERISTICS WITH ACK,
; ADDRESS 0OF CHAR DATA BLOCK
sEXTENDED ADDRESS
1SIZE OF DA
) BLOCK IN BYTES
;ADDRESS OF MESSAGE BUFFER

TSVSA - HARDWARE TESTS

TEST

MACRO TMM1113

10: BASIC PACKET PROTOCOL

3046
3047
3048
3049
3050
3051

043434
043440
043442
043444
043450
043452
043452
043452

3052
3053
3054
3055
3056
3057
3058
3059
3060
3061
3062
3063
3064
3065 043454
043454
3070 043454
3071 043460
3072 043464
3073 043472
3074 043472
043472
043472

3075
3076 043474
043474
043500
3077 043502
5078 043506

33338

: :

043510
3083 043512
043512
043514
043516
043520
043522
3085 043522
043526
3087 043532
3091 043534
043534
043536
043540
043542
043544
043544
043550
043554
043554
043554

012721
005021
005011
005037
000207

14-JUN-84 15:15
MOV
CLR
CLR
CLR

000016

042554

RTS

SEQ 0166
:él.).(fll)o

:LENGTH OF MESSAGE

BIFFER

1).

(R1)
T108UFR

tCLEAR 1ST LOC IN MESSAGE BUFFER

s RETURN

ENDTST

L1007S:

104401

.SBTTL

TEST

11:

TRAP

CSsETST

NON-TAPE MOTION COMMANDS

: THIS TEST VERIFIES PROPER OPERATION OF THE INITIALIZE
;COMMAND. TWO SUBTESTS ARE USED. THE FIRST VERIFIES THAT
; THE COMMAND RUNS TO COMPLETION AND STORES A VALID
{MESSAGE PACKET. THE SECOND VERIFIES THAT NON-ZERO
:VALUES IN THE COMMAND MOOE FIELD CAUSES COMMAND REJECT.

BGNTST
012700
004737
012737

045462
016510
000024

002214

T11LOOP:

MOV
JSR
MOV

#7ST1110,RO

PC,TSTSETUP

020. ,LOOPCNT

Ti1::

sASCII MESSAGE TO IDENTIFY TEST
;100 INITIAL TEST SETUP
;:PERFORM 20 JTERATIONS
/77777777777 BEGIN SUBTYEST
T11.1:

BGNSUB

TRAP

104402
012700
104441
004737
103405
010001

SETPRT

103404

104404

JSR
BCS
MOV
ERROF

015774

PC,SOF INIT
38
RO,R1

ERRNO, SFIERR, SF IMSG

csssuB

;LOWER PRIORITY TO ALLOW INTERRUPTS

#PRI00,RO

MOV

TRAP
CssSPP]1
;00 SOFT INIT OF CONTROLLER
;BR IF SOFT INIT = 0K
; SAVE CONTENTS OF TSSR
;DEVICE FATAL ERROR DURING INIT
TRAP
CS$ERDF
.WORD

044710
010662

104456
002116
005054
012034

004737
012704

#PRIOO

000000

104455
002115
003650
012034
012704
004737

/77777777777

.WORD
.WORD
MOV
JSR
B8CS
ERRHRD

AT11PK2,R4
PC.WRTCHR
44

ERRNO, WRTMSG, SF IMSG

iWRITE CHARACTERISTICS PACKET
; ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK

;WRITE CHARACTERISTISC FAILED

TRAP

.WORD
.WORD
.WORD

045514
044640

Ss:

JSR
MOV
BGNSEG

PC,T11REST
@T11PACKET,R4

1101

SFIERR
SFIMSG

CS$ERHRD
1102
WPTMSG
SFIMSG

:SET UP PACKET FOR COMMAND
1GET THE ADDRESS OF COMMAND PACKET
$1>>>>>>>>3>>>>

BEGIN

SEGMENT

TRAP

>>>3>3>3>>>>>>>

C$BSEG

TSVSA - MARDMWARE TESTS MACRO M1113
11: NON-TAPE MOTION COMMANDS

L13

14 JUN-84 15:15

SEQ 0167

TEST

3097
3098 043556
3099 043562
3100 043566
3101 043572
3102 043576
3103 043600
3107 043602
043602
043604
043606
043610
3108 043612
3109 043616
043616
3110 043620
043620
043622
3111 043624
3112 043630
3116 043532
043632
043634
043636
043640
3117 043642
3118 043646
3119 043652
3120 043656
3121 043660
3122 043664
3123 043666
3127 043670
043670
043672
043674
043676
3128 043700
3129 043700
3130 043704
3134 043706
043706
043710
043712
043714
3135 043716
043716
043716
3136
3137
3138 043720
043720
043720
3139
3140 043722
3141 043726
3142 043730

005037
005037
010465
004737
103407

002220
002222
000000
016336

10¢;

C10001

CLR
CLR
MOV
JSR
8CS
MOV
ERROF

FATFLG

INTRECV

R4,TSDB(RS)
PC,CHKTSSR

15¢

RO,R1

ERRNO, T11SSR,PKTSSR

104455
002117
045204

012046
005237

002220

15¢:

104406
104410
000074
005737
001004

104456
002120
045334
012046
016501
012702
032701
001402
052702
020201
001404

000100

224:

25%:

104456

002121
044752
012046

004737
103405

011114

FATFLG

ESCAPE

SEG

ST
BNE
ERRHRO

002222

000002
000200
000100

INC
CxLOooP

304
35%:

104456

002122
004743
015510

MoV
MOV

8IT
BEQ
8IS
cHe
8EQ
ERRHRD

JSR
8CSs
ERRHRD

1CLEAR FATAL ERROR FLAG
+CLEAR INTERRUPT RECEIVED FLAG
$1SET THE PACKEiT ADDRESS

1WAIT FOR SSR

T0 SET

18R IF CARRY SET (GOOD RETURN)
1 SAVE CONTENTS OF TSSR
;DEVICE FATAL SSR FAILED TQ SET
TRAP

INTRECV
224
ERRNO, T1ININT,PKTSSR

TSSR(RS),R1
OSSR, Re2

00FL ,R1
254
@0FL ,R2
R2,R1
304
ERRNO, T1INBA ,PKT5SR

PC,CKRAM
594

ERRNO ,PKTRAM,RAMERR

IF FLAG SET

002220
017202

CSESCAPE

TRAP

. WORD
. WORD
WORD

;:GET THE CONTENTS OF TSSR
;EXPECTED CONTENTS OF TSSR
;IS OFF -LINE BIT SETV ?

PC.CKDROP

CS$ERHRD
1104

T11ININT
PKTSSR

:D0ES EXPECTED MATCH RECZIVED ?

;OKAY IF MATCH

:NBA NOT ZERO

TRAP

;CHECK RAM TO MEMORY
sRAM OK GO ON
;:THEY DON'T MATCH

END

1ANY FATAL ERRORS ?
1BRANCH IF NOT
;1TRY

TO DROP

THE UNIT

CS$ERHRD
1105

. WORD
. WCRO
. WORD

T11NBA
PKTSSR

TRAP

C$ERHRD

. WORD
. WORD
. WORD

PKTRAM
RAMERR

TRAP

CS$ESEG

SEGMENT

L10103:

604

:SET OFF -LINE IN EXPECTED DATA

s MANANNANANNANANNN END SUBTEST

FATFLG

100008

:BRANCH IF NOT OFF -LINE

100004:

ENDSUB

TST
BEQG
JSR

TRAP

;DID AN INTERRUPT OCCUR ?
;BRANCH IF YES

104403

005737
001402
004737

CsCLP1

. WORD

104405
S9s:

TRAP

1BY-PASS SUBTEST IF FATAL ERROR

;ecccccccccccc

ENDSEG

T11SSR
PKTSSR

:SET FATAL ERROR FLAG
;:LOOP ON ERROR,

CS$ERDF
1103

1106

ccccceccceccc«

TRAP

CsEsuB

TSVSA - HARDWARE TESTS MACRO M1113
TEST 11- NUN-TAPE MOTION COMMANDS

SEQ 0168

60$
:

3143 043734
3144
3145

HEd

3146

:TEST 11, SUBTEST 2

3147

3148
3149

;

3150
3151
3152
3153
3154 043734
043734
043734
3155
3156 04373
043736
043742
3157 043744
043744
3158
3159
3160 043746
3161 043752
3165 043754
3166 043756
043756
043760
043762
3167
3168
3169
3170
3174

14 JUN-84 15:15

043764
043766
043766
043772
043776

sCHECK THAT NON-ZERO MODE BITS BEING SET CAUSES
;INITIALIZE COMMAND TO BE REJVECTED

/77777777777

BGNSUB
104402
SETPRI

012700
10444]

OPRIOO

BEGIN SUBTEST /////77777777
Til1.2:
TRAP
csBsuB

tLOWER PRIORITY TO ALLOW INTERRUPTS
MOV

:>>>>>>3>>>>>

BGNSEG

BEGIN

103405

JSR
8Cs
MOV
ERRDF

015774

010001

104455
002123
003650

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

044710
010662

MOV
JSR
8Cs
ERRHRD

O0T11PK2,R4
PC,WRTCHR
44
ERRNQ,WRTMSG, SFIMSG

104456

;00 SOFT INIT OF CONTROLLER
;B8R IF SOFT INIT = OK
1 SAVE CONTENTS OF TSSR
;DEVICE FATAL ERROR DURING INIT
TRAP

:8R,

3189
3190

004737
012704

045514
044640

005037
052714
010465
004737
103405

002222
007400

4%
:

Ss:

10¢:

010001

104455
002125
045204
012046
104406

JSR
MOV

PC.T11IREST
R4
0T11PACKET

:SET UP PACKET FOR COMMAND

CLR
8IS
MOV

INTRECYV
&P .MODE ,(R4)
R4, TSDB(RS)

B8CS
g 01Y)

15%
RO,R1

;CLEAR INTERRUPT RECEIVED FLAG
:NON-ZERO COMMAND MOOE BITS
1SET THE PACKET ADORESS
1WAIT FOR SSR TO SET
iBR IF CARRY SET (COOD RETURN)
1 SAVE CONTENTS OF TSSR

JSR

016336

ERROF

154 :

PC,CHKTSSR

ERRNO, T11SSR,PKTSSR

ESCAPE

SEG

1107
SFIERR

SFIMSG

CS$ERNRD

1108
WRTMSG
SFIMSG

:GET THE ADORESS OF COMMAND PACKET

;DEVICE FATAL SSR FAILED TO SET
TRAP
.WORD

1LOOP ON ERROR,

CKLOOP

CS$EROF

IF COMMAND ISSUED OK

{WRITE CHARACTERISTISC FAILED
TRAP

.WORD
.WORD
.WORD

012034

C$BSEG

;WRITE CHARACTERISTICS PACKET
; ISSUE WRITE CHARACTERISTICS

002124
005054

3175
3176
3177
3178
3179
3180
3181
3182
3183
3184
3188

CS$SPRI

»>>5>>5>>3>>>>

LWORD
.WORD
.WORD

012034

012704
004737
103404

SEGMENT

TRAP

104404
004737

#PRIOO,.RO

TRAP

.WORD
.MORD
IF FLAG SET
TRAP

;BY-PASS CHECKS IF FATAL ERROR

CS$ERDF
1109

T11SSR
PKTSSR
CsCLP1

TSVSA

TEST

- MARDWARE

TESTS

MACRO M1113

11: NON TAPE MOTION COMMANDS
044056

000074

3192 044066

001004

3196 044070
044070
044072
044074
044076

3197 044100
3198 044104

3199 044110

005737

104456
002126
045334
012046

016501
012702

044130
044132
044134
3208 044136
3209 044136

3210 044142
3214 044144

044144

044146
044150
044152

3215 044154

044154

3216 044154

000002
100206

000100

020201

001404

3218
3219

044156

BNE

22%:

002127
045012
012046
004737

103405

011114

MOV
MOV

254

30s:
35%:

104456

INTRECY

228

ERRNO, T1ININT ,PKTSSR

. WORD

;0ID0 AN INTERRUPT OCCUR ?

TRAP
. WORD
. WORD
.WORD

BIT

:GET THE CONTENTS OF TSSR
;EXPECTED CONTENTS OF TSSR
;IS OFF-LINE BIT SET ?

8IS

#0FL ,R2

;SET OFF-LINE IN EXPECTED DATA

BEQ
ERRHRD

304
ERRNO,T112REJ,PKTSSR

cMP

R2,.R1

JSR

PC.CKRAM

ERRHRD

ERRNQO,PKTRAM,RAMERR

B8CS

TRAP

CS$ERHRD

. WORD
. WORD
. WORD

1111
T112REV
PKTSSR

TRAP

CS$ERHRD

;CHECK RAM TO MEMORY

;THEY DON'T MATCH

;€Ccceccccccec<

ENDSUB

C$ERHRD
1110
T1ININT
PKTSSR

sRAM OK GO ON

104405

S9%:

:DOES EXPECTED MATCH RECEIVED ?

;OKAY IF MATCH
;COMMAND NOT REJECTED

. WORD
.WORD

ENDSEG

100008

sBRANCH IF NOT OFF -LINE

002130
004743

015510

CSESCAPE

;BRANCH IF YES

TSSR(RS),R1
OSC!'SSR!'TSREJ,R2
#0FL ,R1

BEQ

104456

3217 044156

044156

187

ERRMRD

052702

3202 044122
044126

002222

000100

001402

3203 044124
3207 044126

SEQ 0169
TRAP

032701

3200 044114

3201 044116

15:15

104410

044060

3191 044062

14 JUN-84

.WORD

END SEGMENT

10000;

1L10104:

104403

RAMERR

<cccceccccccc

TRAP

SAOAAANAAANNAANN END SUBTEST

1112
PKTRAM

CSESEG

TRAP

CsESUB

;¢

3220
3221

;
;TEST 11,

3222

SUBTEST 3

ggz

;sCHECK THAT THE GET STATUS COMMAND IS ACCEPTED

3225

3226
3227 044160

044160

3228 044160

3229 044162
044162
044166
3230 044170
044170

3231 044172
3232 044176
3236 044200

BGNSUB

$/////7/777/77 BEGIN SUBTEST ///////77777

T11.3.

104402

012700
10444)
104404

004737
103405
010001

000000

SETPRI

oPRIOO

BGNSEG

015774

JSR
B8CS
MOV

PC,SOFINIT
34
RO,R1

TRAF

csasuB

;LOWER PRTORITY TO ALLOW INTFRRUPTS
MOV
#PRIOO,RO
TRAP
C3SPRI
$2>333553>>5>> BEGIN SEGMENT 5>553>>3>>>3>>>
TRAP
C$BSEC

;100 SOFT ANIT OF CONTROLLER
$tBR IF SOFT INIT =~ OK
: SAVE CONTENTS OF

TSSR

)“:’

HPROMARE TESTS MACRO M11:t
TSVSA
TEST 11: NON TAPE MOTION COPMMAND”

044244
044244

044250
044254
044260
044262
044264
044264
044266

fRE § 4

044270
044272
044274
044274
044276

"N 84

15:1%

ERROF
104455
002131
003650
012034

012704

004737
103404

Ss-

044710
010662

MOV

JSR
8CSs
ERRMRD

3277

3278
3279
3264

ERRNOD , SF TERR, SF IMS(

;DEVICE FATAL

.Re
oT11PK2

IWRITE CHARACTERISTICS PACKE?
1 ISSUE WMRITE CHARACTERISTICS
18R, IF COMMAND ISSUED Ox
tWMRITE CHARACTERISTISC FAILED

PC.WMRTCHR
44

ERRND , MR TMSG , SF IMSG

104456
002132
005054

ERROR DURING INIT

012034

004737
012704

045514
044640

005037
010465
004737

002222

103405

Ss:
10%:

016336

010001

104455

JSR
MOV

012046

15¢:

104406

016501
012702
032701
001402
032702
020201
001404

002222

CLR
MOV
JSR
8Cs
MOV
ERROF

1SET UP PACKET FOR COMMAND
1GET THE ADORESS OF COMMAND PACKET

INTRECY

1CLEAR INTERRUPT RECEIVED FLAG
1SET THE PACKET ADORESS
(MAIT FOR SSR TO SET
1BR IF CARRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR
1DEVICE FATAL SSR FAILED TO SEY

OT11PACKET R4

R4, TSDB(RS)

PC.CH(TSSR
154

ERRND, T11SR2,PXTSSR

000002

ESCAPE

SEG

1BY-PASS SUBTEST IF FATAL ERROR

157

INTRECY
224
ERRNO, T1ININT PXTSSR

;0ID AN INTERRUPT OCCUR ?

000100

8Iv
:
254

104456

8IS
8€EQ
ERRMRD

OSSR, R2
00FL ,R1
254
o0FL ,R2
R2.R1
304
ERRNOD, T113REJ,PKTSSR

tBRANCH IF

CSERDF
11:9

111512
PXTSSR

csCLPl

CIESCAPE
100008 .

YES

tGET THE CONTENTS OF TSSR
sEXPECTED CONTENTS OF TSSR
+1IS OFF -LINE BTT SET ?
1ORANCH IF NOT OFF -LINE
1SET OFF-LINE IN EXPECTED DATA
100ES EXPECTED MATCH RECEIVED ?
sOKAY IF MATCHW
1COMMAND NOT ACCE" TED

CSERRD
1116
T1ININT

PKTSSR

CSERRD
1117

T113R€EJ
PXTSSR

012046

103405

TSSR(33),R1

:
224

000100

;LOOP ON ERROR, IF FLAG SET

CxLO0P

ERRHRD

104456
002135
045073
004737

0
CsE

PC,T11REST

002133
045260

104410
000074
005737
001004

CIERDS
1113
Flene
SF IMSG

1114
R TNSG
SF INSG

104456
002134
045334

272

SEQ 0170

FERERIIEY

;

2% 044202
044202
044204
044206
044210
3238 044212
3239 044212
044216
3241 044222
3245 044224
044224
044226
044230
044232
084234
044234
044240

O11114

30¢:
354

JSR
8Cs
ERRHRD

PC.CKRAM

594
ERRND , P TRAM , RAMERR

sCHECK RAM TO MEMORY
sRAM OX GO ON

s THEY DON'T MATCH

CSERMRD

TSVSA - HARDMWARE TESTS MACRO M1118
11: NON TAPE MOTION COMMANDS

14 JUN-84 15:15

SEQ 0173

TEST

044372

0021 36
004743
015510

044374
044374

104405

044366
044370

3285 044374

3286
3287
3288 044376
044376
044376
3289

jeccccccccccce

ENDSEG

598:

ENMD

LMORD
.MORD
.MORD

1118
PXTRAM
RAMERR

RAP

CSESEG

“m

100004:

SANAANANANNANNAY END SUBTEST

ENDSUB

L10105:

104403

€CCCCeecrqecee

N aNAALAWWL

TRAP

CIESUB

[34

+TEST 11,

SUBTEST 4

tSUBTEST TO VERIFY THAT A GET STATUS COMMAND IS
tREJECTED IF A NON-ZERO COMMAND MOOE FIELD IS USED

8777777777777 BEGIN SUBTESTY
T11.4;

BGNSUB

TRAP

104402
3301

SETPRI

012700
104441

104404
004737
103405

015774

PC.SOF INIT

MOV

RO,R1

8CS

ERRNO, SF IERR, SF IMSG

BEGIN

3s:

044710
010662

MOV
JSR

8Cs
ERRHRD

0T11PK2,R4
PC.WRTCHR

44
ERRNO,WRTMSG,
SF IMNSG

C48SEG

100 SOFT INIT OF CO‘TMLER
1BR IF SOFT INIT * Ox
1SAVE CONTENTS OF TSSR
1DEVICE FATAL ERROR DURING INIT
TRAP
CS$ERDF

045514
044640

43
:

.WORO
.WORD

tMRITE CHARACTERISTICS PACKET
1 ISSUE WRITE CHARACTERISTICS
18R, IF COMMAND ISSUED O
tWRITE CHARACTERISTISC FAILED
TRAP

CSERMRD

[

JSR

PC,T11REST

1SET UP PACKET FOR COMMAND

CLR
8IS

INTRCCV
#007000,(R4)

1CLEAR INTERRUPT RECEIVED FLAG
1SET TO NON-ZERO MODE
1SET THE PACKET ADORESS
tWAIT FOR SSR TO SET
1BR IF CARRY SET (GOOD RETURN)

MOV

AT11PACKET R4

002222
007000

016336

108

MOV

R4, TSOB(RS)

JSR

PC,CHXTSSR

MOV

RO,R1

8CS

15¢

1119

SFIERR
SFIMSG

WORD
.WORD
.WORD

012034

CISPR]

2393333333
>)>

.WORD

104456

005037
0352714
010465
004737
103405
010001

TRAP

S‘m

002140

004737
012704

cissuB

sLOMER PRIORITY TO ALLOW INTERRUPTS
MOV
#PR]I00,
RO
§23>3>3>3>»>>

JSR

ERROF

104455
002137
003650
012034
012704
004737
103404

#PRIOO

BGNSEG

010001

3310
3311
3312
3313
3317

//77777774+77

1120
WRTMSG
SFIMSG

1GET THE ADORESS OF COMMAND PACKET

1 SAVE CONTENTS OF TSSR

TSVSA - HARDWARE TESTS MACRO M1113
TEST
11: NON TAPE MOTION COMMANDS
3321 044510
044510
044512
044514
044516
3332 044520
044520
3333 044522
044522
044524
3334 044526
3335 044532
3339 044534
044534
044536
044540
044542
3340 044544
3341 044550
44554
3343 044560
044562
044556
084570
3350 044572
044572
044574
044576
3351 044602
3352
3353
3354
3358

ERRDF

SEQ 0172

€RRNO, T115R2,PKTSSR

1OEVICE FATAL SSR FAILED TO SET
TRAP
CHERDF

. WORD
.WORD

002141

045260
012046

15¢:

104406

104410

000076

005737
001004

002222

1LOOP ON ERROR,

CxLOOP

.MORD
IF FLAG SET
TRAP

187

INTRECY
224
ERRNO, T1ININT ,PKTSSR

;DID AN INTERRUPT OCCUR ?
sBRANCH IF YES

001402

052702
020201

000100

TSSR(RS),R1

22%:

#SC!SSR! TSREU,R2

o0FL ,R1
254
#0FL R2
R2,R1
30¢
ERRNO, T114REJ,PKTSSR

254
:

001404

L10106

TRAP

CIERRD

LMORD

PXTSSR

104456

sGET THE CONTENTS OF TSSR

sOXKAY IF MATCH
sCOMMAND NOT REJECTED

0=3123
012046

35%:

104456

JSR

8Cs
ERRHROD

;(9: « CKRAM
¢

ERRNO , PKTRAM , RAMERR

CIERRD

.WORD

PXTSSR

TRAP
. WORD

CSERMRD
1124

sRAM OK GO ON
sTHEY DON‘'T MATCH

. WORD
ENDSEG

jeccccccccccce

ENDSUB

SNNNANANNNAANANNY END SUBTEST

ExIT

END

SEGMENT

100004:

L10106:

104403
TST

104432
000772

1123
T114REJ

sCHECK RAM TO MEMORY

.MORD

59¢:

1122
T11MINT

TRAP

. WORD
. WORD

011114

sALL DONE THIS TEST

PXTRAM

RAMERR

cccccccccce

TRAP

CSESEG

TRAP

CSESWB

NNV

TRAP

. WORD

CeEX1Y

L10102-.

1 LOCAL STORAGE FOR THIS TEST
]

044630
044640
044640

.BLKB

10-<.-TSV2E?>

. WORD

100204

T11PACKET:

100204

1EXPECTED CONTENTS OF TSSR
1 IS OFF-LINE BIT SET ?
1BRANCH IF NOT OFF -LINE
$1SET OFF-LINE IN EXPECTED DATA
s1D0ES EXPECTED MATCH RECEIVED ?

002143

004737
103404

. WORD
. WORD

045334

012702
032701

CsCLP1

18Y-PASS SUBTEST IF FATAL ERROR
TRAP
CSIESCAPE

ERRHRD

000002
100206
000100

PXTSSR

suB

002142
012046
016501

1121
T11SR2

ESCAPE

104456

104405

3361

15:19

104455

002144
004743
015510

3359
3360

14 -JUN 84

1COMMAND PACKET FOR TEST
(WRITE CHAR COMMAND, WITH IE, ACK

TSVSA - MARDWARE TESTS MACRO M1113
11: NON TAPE MOTION COMMANDS
TEST

3392
3393
3394
3395
3396
3397
3398
3399
3400
3401
3402
3403
3404

558
.WORD

000000
T11BFR:

3410
3411
3412
3413

3414
3415
3416
3417
3418

3419
3420
3421
3422
3423
3424
3425
3426

3427
3428
3429
3430
3431
3432

} o

044662
000000
000016
000000

$STARTING VALUE OF BLOCK

2.6

tLENGTH OF MESSAGE BUFFER

iMESSAGE BUFFER

SIZE

10 <, -TSV2ET

100204

;COMMAND PACKET FOR TEST
sWRITE CHAR COMMAND, WITH IE, ACK

1STARTING VALUE OF BLOCK SIZE

;118*’2

s CHARACTERISTICS DATA BLOCK
s ADORESS OF MESSAGL BUFFER

3‘6

tLENGTH OF

tMESSAGE BUFFER

T11PK2:

044712
044714
044716

100204
044720
000000
000010

044720
044720
044722
044724
044726

044732
000000
000016
000000

T1107TA:

(T)IIDTA

1 ADDORESS OF CHARACTERISTICS BLOCK

MESSAGE BUFFER

. WORD

000000
T11BF2:

044732

3405
3406
3407

3408
3409

1 ARDDRESS OF CHARACTERISTICS BLOCK

T110ATA

3384 044662
3385
3386

3388 044702
3390 044710
3391 044710

;110““\

555 388

044650
044650
044652
044654
044656

SEQ 0173

. WORD
. WORD
. WORD

044650
000000
000010

3377

3378
3379
3380
3381
3382
3383

15:15

3374 044642
3375 044644
3376 044646

14 JUN-84

Eld

.BLKW

:LOCAL TEXT MESSAGES FOR TEST
044752
045012
045073
045123

045204
045260
045334
045412
045462

111
111
107
107

103
103
105
111
116

116
116
105
105

157
157
170
156
157

111
111

124
124
156
156
160
143
156

T11NBA: .ASCIZ
T112REJ:
T113REJ:
T114REJ:
T11SSR:
T11SR2: ASCIZ
T1ININT:
T11TSBA:
TST11ID:
.EVEN

" ASCIZ

*INITIALIZE Commend Not Accepted’
LASCIZ
'INITIALIZE Not Rejected With Non Zero Mode Field’
:fig
‘GEi STATUS Not Accepted’
'GET STATUS Not choctod With Non-Zero Mode Field
‘Contents of TSSR Incorrect
A fter INITIALIZE'
‘Contents of TSSR Incorrect After GET STATUS'
.ASCIZ
'Expected Interrupt Not Received On INITIALIZE
.ASCIZ
'Incorrect TSBA Addres. After INITIALIZE'
.ASCIZ
'Non-Tepe Motion Comne _s'

HE4

;jROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES
s INITIALIZE COMMAND
i
3

045514
045514
045520
045524

T11REST

012701
012721

044640
100213

SAVREG
MoV
MOV

#T11PACKET
,R1
€100213,(R1)

1 SAVE THE REGISTERS
1START OF THE PACKEY

s INITIALIZE WITH ACK,

TSVSA - MARDWARE TESTS MACRO M1113
11: NON TAPE MOTION COMMANDS
TEST
3433 045530
3434 045532
3435 045534
3436 045536
3437 045540
3438 045542
3439 045544
3440 045546
3441 045550
3442 045554
3443
3444

005021
005021
005021
005021
005021
005021
005021
005011
005037
000207

CLR
CLR
CLR
CLR
CLR
CLR

3465

CLR
CLR
CLR

044662

RTS

(R1).
(R1).
(R1).
(R1).
(R1).
(R1).
(R1).
(R1)

T118FR
PC

SEQ 0174

s ADORESS OF CHAR DATA BLOCK
1EXTENDED ADORESS
1SIZE OF OATA BLOCK IN BYTES
1 ADORESS OF MESSAGE BUFFER

tLENGTH OF MESSAGE BUFFER

sCLEAR 1ST LOC IN MESSAGE BUFFER
tRETURN

tROUTINE TO RESTORE COMMAND PACKET 10 START-UP (DEFAWLT)

:GET STATUS COMMAND

3445
3446
3447
3448
3449

3450
3451
3452
3453
3454
3455
3456
3457
3458
3459
3460
3461
3462
3463
3464

F14

14 JUN 84 15:15

T11RT2:

012701
012721
005021

044640
100217

044662

SAMVREG
MOV

CLR
CLR
CLR
CLR
CLR
CLR
CLR
CLR
CLR

RTS

ENDTST

ENOMOD

#T11PACKE
R1
T
0100217,(R1).

(R1).
(R1).
(1)

1SAVE THE REGISTERS
1START OF THE PACKET

1GET STATUS WITH ACK,

) VALUES

1 ADDRESS OF CHAR DATA BLOCK
1EXTENDED ADORESS
1SIZE OF OATA BLOCK IN BYTES

(R1)»
(R1)Y.
(R1).
(R1).
(R1)

1ADDRESS OF MESSAGE BUFFER

;RETURN

T118FR

tLENGTH OF MESSAGE BUFFER

;CLEAR 1ST LOC IN MESSAGE BUFFER
L10102:

TRAP

CS$ETST

PARAMETER CODING MACRO M1113

11: NON TAPE MOTION COMMANDS

14 JUN-84

15:15

5EQ 0175

.TITLE

TSvVé6

- PARAMETER COOING

BGNMOD

TSVé

.SBTTL

MARDWARE PARAMETER CODING SECTION

045630
045632
045634
045634
045636
045642

35
3o 045644

045644
37 045644
045700
39 045724

TSV6::

:
:

THE HARDWARE PARAMETER COOING SECTION CONTAINS MACROS
THAT ARE USED B8Y THE

SUPERVISOR

TO BUILD P-TABLES.

THE

+ MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE
: INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.
THE
+ MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS

;

WITH THE OPERATOR.

$--

BGNHRD

12
18
19 045622
045622
20
21
22
23
24
25
26
27
28
29
30
31 045622
045622
045624
32
33 045624
045624

000010

LSHARD::

000031
045644

160010
177776

001031
045700
000000
000776

.
3

ENDHRD

104
111
111

L10107-L$HARD/2

TSVé
TEST

Gl4

105
116
116

126
124
124

L10107:

HPML :
HPM2:
HPMS:

HPM1,0,0,160010,177776, YES
T4C0O0E

HPM1

TSLOLIM
TSHILIM

HPM2,2,0,0,776,
YES
T4C00OE

1GET VECTOR ADDRESS.

HPM2

TSLOLIM

TSHILIN
HPM3.4,0,340,0,7,YES

.EVEN

.ASCIZ
.ASCIZ
2%52

:GET TSBA/TSDB REGISTER ADYRESS.

'OEVICE ADDRESS (TSBA/TSDB)
'INTERRUPT VECTOR
'
* INTERRUPT PRIORITY
'

;GET

INTERRUPT PRIORITY.

TSV6 - PARAMETER CODING MACRO M1113

SOF TWARE PARAMETER CODING SECTION

H14
14 UUN-84

15:15
.SBTTL

42
43

SOF TWARE PARAMETER CODING SECTION

SEQ 0176

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

46
47

48
49

®e

MACROS ALLOW THE

SPM1,0,

.WORD
. WORD
. WORD

T$COODE
SPM4
1

001130

177777

:
:

045764

046074

L$SOFT::
H
GPRML

046014

L10110:

105

111

120
120

TO ESTABLISH COMMUNICATINNS

T
BGNSF
.WORD L10110-L#$SOFT/2

000003

045764

045764
046014

SUPERVISOR

WITH THE OPERATOR.

®e

S50
S1
Se 045754
045754
045756
53
54 045756
045756
045760
045762

116
116

105
105

101
110
122
122

SPM1 :

SPM4 :
SPM6 :
SPM7:

1,YES

GPRMD
GPRMD

SPM6,4,0,7777,0,7777,YES
SPM7,6,0,7777,0,7777,YES

.ASCIZ

'ENABLE TRANSPORT TESTS

T
ENDSF
.EVEN

.ASCIZ
.ASCIZ
.ASCIZ
.SBTTL

'INHIBIT ITERATIONS
'PER TEST ERROR LIMIT
'PER UNIT ERROR LIMIT
PATCH AREA

GET

TRANSPORT

: GET LOCAL ERROR LIMIT
3 GET GLOBAL ERROR LIMIT

)
'
'

FINALLY A GENEROUS PATCH AREA.

; AND AN ADJUSTMENT TO ACCOUNT FOR THE "LASTAD BIT7" MACK
; DESCRIBED IN “SUPPRG.MEM” (FOR REV C).
PATCH:
:

046124
046124

046400

BLKW
046400

046400
046402
046404
046404

LSLAST::
000001

.5,1377.1
LASTAD
.EVEN
. WORD
0
. WORD
0
ENOMOD
.END

TEST FLAG.

$1SET LAST USED ADODRESS.

TSV6

PARAMETER CODING MACRO M1113

SYMBOL TABLE

ADDSSR

ADR

012126 G

= 000020 G

AMBTSS 006633
ASSEMB= 000010
A1716 = 000003

BADDAT
BADSSR
BOVPCR=
BENBSW
BIE
=
BITO «
8ITO0 =
BITO1 =

BITO2
BITO3
BITO4
BITOS

=
=
=
*
BITO6 =
8IT07 =
BITO8 =

BITO9
BIT1
BIT10
BIT11
BIT12
BIT13

8IT14
8IT1S
BIT2
BITS

8IT4

=
=
=
=
=
=

000004 G
000010 G
000020 G
000040 G
000100 G
000200 G
000400 G

001000 G
000002 G
002000 G
004000 G
010000 G
020000 G

= 040000 G
= 100000 G
= 000004 G
=« 000010 G

= 000020 G

BITS
=
BIT6
=
BIT7
=
BIT8
=
BIT9
=
BOE
=
BRINIT
BSELO =
BSEL1 =

CHKAMB
CHKMAN
CHKTSS
CKDROP
CKEMAX
CKMSG
CKMSG2
CKRAM
CKRAM2
CMDPKT
CHPMEM
CONIG
COUNT
CSRADD
CTAB
CTABE
CTABM

003154 G
015700 G
177520 G
002226 G
040000
000001 G
000001 G
0C0002 G

000040
000100
000200
000400
001000
000400
004455
000000
000001

016044
020500
016336
017202
017102
011360
011500
011114
011224
021214
017660
017250

G
G
G
G
G
G

G
G
G
G
G

002306 G

002204
003162
003174
003162

G
G
G
G

CS$AU

14 JUN 84 15:15

"= 000CS52

C$AUTO= 000063

C$BRK = 0000222
C$BSEG= 000004
C$BSUB= 000002

CSCEFG=
CS$CLCX=
CSCLEA=
C$CLOS=
C$CLP1=
CSCVEC=
CSDCLN=
C$D0DU=

CSDRPT=
CSOU =
CS$EDIT=
CSERDF=
CS$ERHR=
CSERRO=
CSERSF=

C$ERSO=
CS$ESCA=
CS$ESEG=
CS$ESUB=
CS$ETST=
CSEXIT=

[14

000045
000062
000012
000035
000006
002036
000044
000051

00C024
000053
000003
000055
000056
000060
00005}

000057
000010
000005
000003
000001
000032

CSGETB=
CS$GETM=
CSGMAN=
CIGPHR=

000026
000027
000043
000042

C$GPRI=
CS$INIT=
C$INLP=
CS$MANI=
C$MEM =
CSMSG =
CS$OPEN=
C$PNTB=
CSPNTF=

000040
000011
000020
000050
000031
000023
000034
000014
000017

C$GPLO= 000030

CSPNTS=
CSPNTX=
C4QIG =
CS$RDBU=
CSREFG=
CSRESE=
CSREVI=
CSRFLA=
CSRPT =
C$SEFG=
CISPRI=
C$SVEC=

000016
000015
000377
000007
000047
000033
000003
000021
000025
000046
000041
000037

DATA
DATASC
DEBUGM
DEVCNT

002310 G
020232
011632
002216 G

C$TPRI= 000013

DEVDRO

DEVNRD

DEVNXR
DEVOML
DEVSUM

023332

FRESIZ

923167
023117
023062

FIAU
= 000015
F$AUTO= 000020
FIBGN = 000040

023251

OFPTBL
DIAGMCe
DICEA =
DSBINT
DUAD12
DUFLG
OUMtY
EF CONe

002154 G
000000
000001
016204
004641
003110 G
003060
000036 G

EMAXOU
EN
=
ENAINT
ENVIRN
EPRTSW

016777
000000
016152
020630
002176 G

EF .NEM=
EF .PWR=
EF .RES=
EF.STA=

SEQ 0177
003124 G

FUSI

004115

FSCLEA=
FSDU =
FIEND =
F $HARDe
FIHM =
F$INITs
FSJMP »
FIMOD =

000007
000016
000041
000004
000013
000006
000050
000000

000035 G
000034 G
000037 G
000040 G

FIMSG =
F4PROTs
FIPWR «
FSRPT «
F4SEG =
F4SOFT=
FISRV =

000011
000021
000017
000012

EPRT1
EPRT2
ERCM
ERRHI
ERRK
ERRLO

006356
006356
011733
002234 G
016756
CT2236 G

FITESTe
GODAT
GERRMA
GETPAT
GETSEL
GSCNTO=

000001
003156
002172
020174
020256
000200

ERRVEC*
ERTABE
ERTABL
ESUM

000004 G
003374
003174
016760

GS$DISP=
GS$EXCP=
GSHILI=
GSLOLI=

EXBCNT=
EXPBRE
EXPD
EXPGOT
EXPGT2
EXPMSG
EXPREC
EXTA
EXTEND
EXTFEA
ESEND =
ESLOAD=
FATERR=
FATFLG
FERCM
FIFEXP
FIFIMS
FIFoMS
FILLME
FNOINT
FORCER
FREE
FREEMI

000010
015502 G
002230 G
004531
004565
002320 G
015474 G
005770
005766
002224 G
002100
000035
000060
002220 G
011722
012170 G
012242
012311
017422
004213
002174 G
003122 G
003126

G$OFFS=
G$OFSI=
GS$PRMA=
GIPRMD=
GSPRML=
GSRADA=
GSRADB=
GSRADD=
GSRADL=
G$RADO=
GS$XFER=
GSYES =
HIADDR=
HOE
=
HPM1
HPM2
HPMI
IBE
=
IDU
=
IER
=
IFAULT
INCERK
INTCPC

RANU = 002144

EVL

= 000004 G

016145

INTR
INTREC
INTVEC

016216 G
002222 G
016146

016144

INTX
INVERT
IOKCKI=
I0KSTP=
IPRI
ISR
=
IVEC
IXE
=

004276
021142 G
000200
000001
002210 G
000100 G
002206 G
0V4000 G

ISAU
=
I$AUTO=
ISCLN =
IS0V
=
ISHRD «
ISINIT
I$M0D =

000041
000041
000041
000041

ISPTAB=
I$PWR =
TSRPT =
T4SEG =
1$SETU
IS$SFT =

000041
000041
000041
000041
00004
000041

000003
000400
000002
000001

I$SUB =
I$7ST =
JSMP =
KIPARO=

000041
000041

000400
000376
000001
0CO002
000000
000140
000000
000040
000120
000020
000004
000010
001400
100000
045644
045700
045724
010000
000040
020000
004254
017044
016150

KIPAR2s
KIPARS=
KIPAR4=
KIPARSs
KIPARG=
KIPART=

000003
00000S
000010
FISUB = 000002
FISW
= 000014

000041
000041
000041
I$MSG = 000041
I$PROT= 000040

G
G
G
G

GSDELH= 000372

GINO

INTFLA

INTHAS

ISSRV

= 000000

= 000041

KIPARLs

000167
172340
172342
172344
172346
172350
172352
172354
172356

KIPDRO=
KIPDR1=
KIPDR2»
KIPDR3=
KIPDR4=
KIPDRS=
KIPOR6=
KIPOR7=
KTENAB
KTFLG
KTINIT
KTOFF

172300
172302
172304
172306
172310
172312
172314
172316
003132 G
003130 G
021010
017274

LERRMA
LISTAL=
LOE
=
LOOPCN

002170 G
000001
040000 G
002214 G

KTON

017256

002114
002014
002012
002162

L10013
L10014
L10015
L10016
L10017
L 10020
L10021
L10022
L10023
L10024
L10025
L10026
L10030
L10031
L10032
L10033
L10034
L1003%
L10036
L10037
L10040
L10041
L 10042
L10043
L10044
L10045
L 10046
L10047
L10050
L10051
L10052
L10053
L10054
L10055
L.10056
L10057
L10060
L10061
L10062

L10063
L 10064
L 10065
L 10066
L1007
L10070
L10071
L10072

023466
023550

024316
025010
026344

MSA.NO=
MSA.NR=
MSA.VO=
MSGEXP
MSGLOO
MSGSTA
MSGSUB

000000
0000C4
000002
012144
013064
012350
013742

=
OSERRT
O$GNSW- 000001
O$POIN- 000001
O$SETU=
PASRPT
022010
PATCH
046124
PATDAT
020230
PC.ERA- 002400

MMVEC = 000250
MSA.FRe 000006

MS.ATT= 000006
MS.EXT= 000200

MS.RSD=
MS.RSF=
MS.RST=
M2901
M8186
M8189
=
NBA
NEWPAS

NODEV

000001
000020
000010
026070
005552
005643
002000
021744

003112

004333
NOINIT
NOINTR 004217
NOITS
002166
NOMAN
020534
NOMEM
005456
NP.IR =000200
NP .L0Os" 000040
NP .OUT= 000100

004525

NXM
=
NXMFLG
NXMHI
NXMLO
NXMTST

004000
003134
003140
003136
021406

NULCR

PRMSG1

PRMSGR2
PROF SC
PR1ASC

PST32uW
PUNIT

P(.IER= 002000
PC.NOO= 001000
PC.RELPC.REWs= 000400
PKBCNT=

PKHI
=
PKLOW =
PKTADD
PKTFRM
PKTGET
PKTMES
PKTRAM
PKTSSR
=
PNT
PRAMPK

000002
007552
007514

012064

012110
004743
012046
001000
013776
014523
015470
015336
015472
015423
015122

010156

004526

000040
000100
PRIO3 = 000140
PRIO4 = 000200

G
G
G
G
G

PW.D11PW.013PuW.022PW.NOP
=
PW.NO1=
PW.ROE
PW.ROR= 000001
Pu.RDSPW.RF]=

PW.WCT=

PH.WF]=
PW. WFMe
PW.WM]I=
PW
. WNP»
PW.WTR=

010226
007610 G
010056
007366 G
010064
010272
006022
010354
010417
007740

NP.WRP* 000020
NSI
004150
NSINIT
004405

NUL

PRMNO
PRMSGE
PRMSGO

000240
000300
000340
014242
C02316
014552
014732
014777
015035
014420
014465
003150
022240
000021
000022
000020
000000
000023
000024

ACK =
.CMD =
.CONT»
.CVC =
FNT

.FORM=
.GETS=
IE
=
.INIYe
.MOOE
=
.0PP »
.POSI= 200010
.READ=
.SW8 = 010000
.WR]IT=
.WRTC=
.WRTSs=
002202
RAMASC
014156
RAMDAT
002240
RAMERR
015510
RAME XP
015530
RAMF OR
010114
RAMSIZ
002300
RAMTAD
015516
RCVHIA
002302
RCVLOA
0023C¢
RDERR
005204
RECMSG
002464

L10010
L10011
L10012

PRIOS =
PRIOG =
PRIO7 =
PRMESS

L 10007

0031736
005734
NXRX
003775
NXTU
021756
= 000100
OFL
ONEF
IL O$APTS»
= 000001
OsAU
O$BGNR» 000001
O$BGNS
- 000001
osOuU
=

NXR
NXRERR

o000

002164

L 10006

036746
037152
043452
040742
041334
042224
042452
045620
043720
044156
044376
044622
045644
045764
013754
021232
020447
020374
020476

002010
022620
045756
002056
002020
002024
002030

L 10004
L1000S

L10073
L100784
L1007S
L10076
L10077
L10100
L10101
L10102
L10103
L10104
L10105
L10106
L10107
L10110
MEMADD
MEMCK
MENASC
MENERR
MENRES

VOVVOVIYVVVIVOODUVIVVUVOODDO

002100
002074
002050
002000
002042
021502
002112

L10003

002174
005764
012044
012062
012100
012106
012124
012147
012156
012240
012410
013124
013752
013774
015500
015506
015514
015526
015550
015576
015736
016240
022236
022402
022510
022570
022616
023060
023620

(21212121

AT TR AN AT AR A I AT AYA AT AT A N A
I A A I Il AT
I ATl

002154
002104
021512
002026

L 10002

SEQ 0178

21~}

LM
L$ICP
L$TMIT
L $LADP
LSLAST
L $LOAD
LS$LUN
L$MREYV
L $NAME
L$PRIO
L $PROT
L$PRY
L $REPP
L$REV
LSRPT
L$SOFT
L$SPC
L $SPCP
L$SPTP
L$STA
LeSW
LSTESY
L$TIML
LSUNIT
L10000

IAI2IA IR I I AN I

L SEF
L $ENVI
LSETP
L$EXPY
LSEXP4
L $EXPS
L $HARD
LSHIME
L $HPCP
L$HPTP

I NIRRTl

L$OUT
L$OVTY

LSOV

L$OTYP

110001

laNAEa

L$DISP

L$OLY
L$OTP

013126
003160
000010
002110
002036
022306
002070
022512
002106
022572
002032
002011
003406
002C76
002060
002124
002116
002040
002034
022404
002072

(213121211l

LOOPCO
LOOPFL
Lot
L$ACP
LS$APT
L$AU
L$AUT
L$AUTO
L$CCP
LS$CLEA
L$CO
L $DEPO
L $0ESC
L $OESP
L$DEVP

15:15

2121212121

SYMBOL TABLE

14-JUN-84

(212121~

PARAMETER CODING MACRO M1113

2121~

TSvé

a
L

S1.ICE- 002000

003016

TST1ID
757101
TST11I
751210
TST310
TSTAID
TSTSID

002750
002212
016720
002312
016456
002314
016510
023600
043277
045462
024270
024763
026322
027320

TINSO =
TINS]L »
TENS2 »
TINSS =
T$PTNU=
T4$SAVL
T4SEGL=
T$SEKO=
T$SUBN=
TS$TAGL
=
T$ TAGN=
TSTEMP»
TSTEST=
T4TSTHT$TSTS=
T$SAU =
T$SAUT=
TS$CLE=
TH4OU =
T$$HAR=
TSSHM =

T$4INIs
T44MSG=
T44$PRO=
TS$RPT=
T4$4SEG=
T$4SOF
=
T44SRV=
T$4S5UB=
T44SW =
T$4TES.
T1
T1LO00P

1777717
177777

010000
000004

177777

010111
000000

000013
177777
000001
010031
010033
010034
010032
010107
010000
010030
010025
010027
010035
010000
010110
010026
010106
010001
010102
023402
023420

.1
11.2

710
T108FR
T108UF

T100AT
T100TA
T10INT
T10L00

T10MBF
T10NBA
T1ONIN
T10NNB
T10PAC
T10PKT
T10RSTY
T10RT2
T10SSR
7T10.1
110.2
720.3
710.4
T11
T11BFR
T11BF2
T110AT
T11DTA
T11L00
T11NBA
T11ININ
T11PAC
T11PK2
T11RES
T11RT2
T11SR2
T11SSR
T117S8
Ti1.1
T11.2
T11.3
T11.4
T112R€
T113RE
T114RE
T2
T2L00P
T2SSR
T2TSBA
T2TSSR
T23A
7238
T3
T38FLG
T3L00P
T3SSR
T3TSBA
T3TSSR

023422
023502
040342
042512
042554
042500
042542
043210
040360
042574
042671
043117
042753
042470
042532
043326
043400
043030
040360
040744
041336
042226
043454
044662
044732
044650
044720
043472
044752
045334
044540
044710
045514
045556
045260
045204
045412
043472
043734
044160
044400
045012
045073
045123
023622
023640
024216
024104
024151
003142
003144
024320
003146
024336
024712
024602
024646

025012 G
025032
025012
025254
025554
026346 G
027406
026364
027350
026370
026736
027452 G
030473
027470
TONBA
030370
TONINT
030551
T6PACK
030360
T6SSR
030415
T6TSBA
030631
76.1
027470
16.2
030014
17
030724 G
T7BFR
033id%
TTUATA
033070
TTINT
034041
T7L00P
030742
TTNBA
033220
TININT
033750
T7PACK
033060
TTREST
034242
TSP
033100
T7SSR
033661
T7T7SBA
034130
17.
030742
17.2
031270
17.3
031542
17 .4
032006
17 -]
032234
17.6
032500
T720AT
033126
T7200N= 033142
TT72NBA
033142
T72REY
033273
TT3RtJ
033372
T74REJ
033465
T7SREJ
033563
T8
034312 6
T8BFR
034742
T8DATA
034730
T8L00P
034330
T8NVCK
035017
T8PACK
034720
T8SSR
035110
T8VCK
034762
19
035216 G
T98FR
037212
T9DATA
037200

T4
T4L00P
14,1
14.2
74.3
TS
TSAODOR
TSLOOP
TSHMEM
15.1
15.2
76
TOINT
T6L00P

TSSX
TSTBLK
TSTONT
TSTEND
TSTFLA
TSTLOO
TSTPTR
TSTSET

007234
000006
006604
000002
0C3500
TSSRF
006413
O
TSSRH = 000003

000001
026160
026242
000000
000001

TSBA

000003
001130

TENESTe

TSBAM =
TSBAM2
TSBAM3
7S08
=
TSOBH =
TSFCOD
TSREJ =
TSSDEF
TSSR
=
TSSRB1

006433
006535
015552
015600
012021
002630
016704
002164
= 000000

177560

000060

002144
000000
000040
000000
000776
TSLAST= 000001
TSLOLITSLSYMTS$LTNO=

(21~

006474
006674
003114
003116
000016
000013

OO0

TCOASC
TCOCOC
TEMPL
TEMP2
TERCLS=
TESTNO=
TEXASC
TFCASC
TIMEXP
TIMSGO
TINERR
TMPBFR
TNAM
TRANST

030703
034213
035177
040241
002000
002174
021502
023402
045622
177562

(2121
2) Al

.AT]=
.871.DIN=
IlWe
. INR= 000020
OUT» 000040
= 000003
Se UND
TBLEND= 003060

SEQ 0179

OOe

.PAR=

TST6ID
TST710
TST8ID
1ST910
TSve
TSV3
TSv4
TSVS
TSV6
TTIBFRe
TTICSRe
TTIVECe
T$ARGC»
T4CO0E
=
TSERRN=
TS$EXCP=
T$FLAG=
T$GMAN=
TOHILI=

010000
001000
000400
004000
020000
040000
100000
000010
000004
000200
000100

RMCHBE
RMCHEN=
RMMSGB
«
RMMSGE
»
RMPKTB»
RMPKTE
=
=
RMR
011110
RWPACK
. 100000
SC
. 020000
SCE
005276
SCHERR
005011
SCME
010660
SOELAY
020442
SELASC
=
000004
DAT
SEL
= 000002
SEL2
SE TMAP 017316
022042
SETU
SFFMSG
012102
003703
Sk HERR
003650
SFIERR
SF IMSG
012034
SFPTBL
002164
SIFLAG
003152
SIMSG
011766
SKIPT
003376
SOF INI
015774
SPACE
010464
SPM1
045764
SPM4
046014
SPM6
046044
SPM7
046074
SRO
177572
SR1
177574
SR2
177576
SR3
172516
SSR
000200
STATCO
012412
SVCGBL
= 000000
SVCINS= 000000
SVCSuB= 000001
SVCTAG= 000000
SVCTIST- 000001
S$LSYM= 010000
S0.1D8= 000010
S0.IFB= 000002
SO.IFP= 000001
S0.ILD- 000020
SO. ION= 000040
S0.IRD- 000100
SO. IRW= 000004
SO.ISP= 000200

S1. IEQSl. IFNS1. IME
Sl1. 110~
S1. I1R=
.J2R=

002232 G
020140
005370
011014 G
000167
000200
000215
000234
000201
000210
010000

14-UUN-84 15:15

RECV
REGSAV
RETERR
REWIND

221~

SYMBOL

TABLE

QOO

TSV6 - PARAMETER COOING MACRO M1113

TSV6

PARAMETER CODING MACRO M1113

L14

14-JUN-84 15:15

SEQ 0180

SYMBOL TABLE

TINBA
TONINT
TOPACK

TIREST
T9SSR
T9TSBA
19.1

UNI TN

035240
037246
037776
037170
040266

UNR€C =
USI
WAI TF
.IFAs
.IFE=
.1GO=
.IRE~
. JRW=
.I0Te-

037707
040156
035240

035506
035720
036124
036312
036516
036750
037232
T92D0AT
T9200N= 037246
037321
T92REJ
037420
T93REJ
037513
T94REJ
T9SREJ
037611
19.2
19.3
19.4
19.5
19.6
19.7

I1Te
.I5Re
.IED=
.IER=
.IHI=
.IREe
e
JWF
. JWR=
.I3R=
.14R=

046404
000000
000000
ABS
ERRORS DETECTE":

RBS.

000200 G
002200 G

000006
004121
016250 G
000200
000002
000001
000010
000004
000100
000040
000020
000010
000004
060200
000040
000020
000100
000002
000001

WRTCHR
WRTERR
WRTMSG
WSMBK

XFERAS
XNXM
XORBF
O
XORFOR
XSTO
=
XST1
=
XST2
=
XST3
=
=
XST4
XS0807T=
XSOEQTe
XSOIE =
XSOILA=

XSOILCXSOLET=

XSOMOT=
=
XSONEF

021224
015740
016376
007672
010010
000010
000012
000014
000016
000002
000001
000040
000400
001000
020000
000200
002000

000
001
002

28224 WORDS
( 111 PAGES)
20614 WORDS
( 79 PAGES)

VIRTUAL MEMORY USED:

OYNAMIC MEMORY:
ELAPSED TIME:

00:39:38

CVTSAB.CVTSAB/-SP=SVC/ML,TSV1A,TSV22A,TSV3B,
TSV4, TSVSA, TSV

XSOONL=
XSOPED=
XSORLL
XSORLS=
e
XSQOTMK

010662
005111
005054

(21212121
2)

T9L00P

040067

RARRRRRREEEEE55E

TOINT

XSOVCK=
XSOWLE»
XSOWLK=
XXCOMM
X$ALWA=
X$FALSe=
X$0FFSs=
X$TRUE=
X1.CORe
X1.0LT=
X1.M82X1.R8P=
X1.SPAs
X1.UNCe
X2.8UF
=

EXTs.
.OPMe
.RCE=
.REV.SPA=
.UNI.WCF
=

.OCK=
.MBZ.MOE
.OPI=
.REVs
.RIB=
.SPAe

.TRF
=

.HSP=
.MBZ-

. TSMe
.WRC>»