Digital PDFs

AH-T094B-MC

April 1985

181 pages

Original

86MB

view download

OCR Version

121MB

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

OCR Text

FICHE 01 OF 01

USER DOCUMENTATION

MACRO M1113

14-JUN-84

15:15

<EQ 0001

.REM_

IDENTIFICATION

PRODUCT ID:

AC-T0938-MC

PRODUCT TITLE:

CVTSABO TSVOS CTRL LT1

DECO/DEPO:

1.0

DEPARTMENT :

COMPUTER SPECIAL SYSTEMS/PPG

DATE:

JUNE 4,

1984

THE INFORMATION IN THIS DOCUMENT IS

SUBJECT

CHANGE WITHOUT

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

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

THE USE
SUPPLIED

OR
BY

RELIABILITY OF
DIGITAL OR ITS

DIGITAL
DEC

POP
DECUS

UNIBUS
DECTAPE

MASSBUS

MACRO M1113

UVBWN=O
NOVBAWNFDO

NNNNVRONNON

OPERATING INSTRUC 'IONS
COMMANDS
SWITCHES

FLAGS
HARDMARE QUESTIONS
SOF TWARE QUESTIONS
EXTENDED P-TABLE DIALOGUE

QUICK STARTUP PROCEDURE

ASSUMPTIONS

ERROR INFORMATION

SYSTEM REQUIREMENTS
RELATED DOCUMENTS AND STANDARDS
DIAGNOSTIC MIERARCHY PREREQUISITES

PERFORMANCE AND PROGRESS REPORTS

v
00
~

GENERAL INFORMATION

PROGRAM ABSTRACT

DEVICE INFORMATION TABLES

e
e s s e

TABLE OF CONTENTS

TEST SUMMARIES

USER DOCUMENTATION

14-JUN-84 15:15

MAINTENANCE HISTORY

SEQ 0002

USER DGCUMENTATION

MACRO M1113

14-JUN-84 15:15

1.0

GENERAL INFORMATION

1.1

PROGRAM ABSTRACT

SEQ 0003

TH[S IS A LSI-11 RESIDENT DIAGNOSTIC WHICH CHECKS THE FUNCTIONALITY
oF
TSVOS MAGTAPE SUBSYSTEM WMILE CONNECTED TO A LSI-11/23 SYSTEM

(OUS)

THE PROGRAM PROVIDES ERROR

MESSAGES

FUNCTIONS THAT AID IN THE REPAIR OF THE DEVICE.

ELEVEN TEST WMICH ARE EXECUTED IN SEQUENCE.

WHICH

IDENTIFY

FAILING

THIS DIAGNOSTIC CONSIST OF

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

1.2

SYSTEM REQUIREMENTS

LSI-11 PROCESSOR AND MEMORY
CAUTION:DIAGNOSTIC REQUIRES 32K WORDS OF MEMORY
(28K USEABLE I.E. 4K FOR I/0 PAGE)
TSVOS MAGTAPE SUBSYSTEM (DRIVE AND CONTROLLER)
CONSOLE TERMINAL
POP-11 DIAGNOSTIC SUPERVISOR (HSAAA.SYS VERSION 34 OR LATER)
PUP-11 DIAGNOSTIC LOADER/MONITOR (XXDP.)

1.3

RELATED DOCUMENTS AND STANDARDS

DIGITAL EQUIPMENT CORPORATION DOCUMENTS:
1.

2.
3.
4.

1.4

CHQUS XXDP+

DATE:

USERS GUIDE;

14 ALY 1980.

DOCUMENT

NUMBER AC-F348E-MC

TSVOS TRANSPORT SUBSYSTEM USER'S GUIDE; DOCUMENT NUMBER EK-TSVO0S5-UG-001

DATE: AUGUST 1983

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

DATE: AUGUST 1983

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

DATE: AUGUST 1983

DIAGNOSTIC HIERARCY PREREQUISITES

FUNCTIONAL
FUNCTIONAL
FUNCTIONAL
FUNCTIONAL

LSI-11 CENTRAL PROCESSOR AND MEMORY
CONSOLE TERMINAL
STANDALONE DIAGNOSTIC SUPERVISOR
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 WORK

PROPERLY OR FALSE ERRORS CAN BE REPORTED.

&PETLA:E BEING USED ON THE TSOS TRANSPORT IS A KNOWN GOOD REEL

2.0

OPERATING INSTRUCTIONS

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

2.1

COMMANDS

THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES

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

COMMAND

EFFECT

START
RESTART
CONT INUE

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

PROCEED
EXIT

ADD

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

ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE

CONSIDERED TO BE ACTIVE AT START TIME

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 MAY, FOR EXAMPLE, TYPE "STA" INSTEAD OF “START",

2.1.1

OPERATOR COMMANDS

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

CHQUS XXDP+ USERS GUIDE,DOCUMENT

NUMBER AC-F348E-MC. THE USER ENTRY IS IN QUOTES.

BOOT THE DIAGNOSTIC MEDIA

.R VISA??

DIAG. RUN-TIME SERVICES REV D. APR 79
CVTSA-A-0

s32sTSVOS LOGIC DIAGNOSTICesss

u&I‘Y IS TSVOS
>

USER DOCUMENTATION

MACRO M1113

2.2

14-JUN-84 15:15

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 BY "DDDODD".

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 T0

/PASS : DDDDD
/FLAGS:FLGS

/EOP : DDODOD
/UNITS:LIST

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

FLAGS ARE DESCRIBED

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

EXAMPLE OF SWITCH USAGE:

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

1) TESTS 1 THROUGH 5 WILL BE

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

SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS.

FOR EXAMPLE,

TYPE */TES:1-5" INSTEAD OF "/TESTS:1-5".

YOU MAY,

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

TESTS

PASS

FLAGS

EOP

UNITS

.....................................

USER DOCUMENTATION

MACRO M1113

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
IERs
IBR+
IXE+

PRI
PNT
BOE
UAM
ISR
IDR

ADR
Lor

RUNTIME SERVICES COMMAND MODE
LOOP ON ERROR
INHIBIT ALL ERROR REPORTS
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)
INMIBIT PROGRAM DROPPING OF UNITS

EXECUTE AUTODROP CODE
LOOP ON TEST

«ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1

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

H1
USER DOCUMENTATION

MACRO M1113

2.4

14-JUN-84 15:15

SEQ 0007

HARDWARE QUESTIONS

WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT
THE USER FOR MARDWARE INFORMATION BY TYPING “CHANGE HW (L) ?”
YOU MUST ANSWER "Y” AFTER A START COMMAND UNLESS THE HARDWARE

INFORMATION HAS BEEN "PRELOADED" USING THE SETUP UTILITY (SEE
CHAPTER 14 OF THE XXDP+ USER'S MANUAL).
WHEN YOU ANSWER THIS
QUESTION WITH A "Y*, THE RUNTIME SERVICES WILL ASK FOR THE NUMBER
OF UNITS (IN DECIMAL).
AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO

SUPERVISOR),

THE

DIAGNOSTIC

THE PROGRAM WILL ISSUE THE “CHANGE HMW?" QUESTION TO ASK IF

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

ON A “N" (NO) RESPONSE TO THE "CHANGE HM?" QUESTION, THE DIAGNOSTIC WILL
RUN USING THE DEFAULT VALUES FOR ALL QUESTIONS. THE DEFAULT ADDRESS AND VECTOR ARE:
TSBA/TSDB = 172520,

VECTOR = 224

ON A "Y" (YES) RESPONSE TO THE QUESTIUN, THE FOLLOWING QUESTIONS WILL
THEN BE ASKED TO ALLOW THE OPERATOR TO SELECT THE UNITS TO BE TESTED.
A
VALUE, IF PRESENT, LOCATED TO THE LEFT
OF
THE
QUESTION HMARK
IS
THE
DEFAULT VALUE THAT WILL BE TAKEN IF ONLY A CARRIAGE RETURN IS TYPED AS A
RESPONSE.
A "(D)” IN A MSTIW INDICATES
THAT
A DECIMAL NUMBER
IS
REQUIRED AS A RESPONSE.
AN "(0)" INDICATES AN OCTAL NUMBER IS BEING
SOLICITED.
AN “(L)" INDICATES THAT A LOGICAL RESPONSE IS
TO BE MADE:
"Y" FOR YES,

"N" FOR NO.

@ UNITS (D) ?

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

UNIT O

DEVICE ADDRESS
VECTOR (0) 224 ?

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

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

UNITS

(CONTROLLERS) SPECIFIED IN THE "€ UNITS?" QUESTION.

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

LOGICAL UNIT

UP TO FOUR UNITS CAN BE

UP TO 4 TSVOS CONTROLLERS PER LSI-11 AND UP TO 2 DRIVES PER CONTROLLER

USER DOCUMENTATION

MACRO M1113

2.5

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 DIAGNOSTIC SPECIFIC
OPERATION MODES.
YOU WILL BE PROMPTED BY "CHANGE SW (L) ?”
IF YOU WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING
"y*,
THE SOFTWARE QUESTIONS AND THE 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.

CONTINUE.

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

INHIBIT ITERATIONS (L) N ?

<TYPE "Y" TO PREVENT MATIPLE
ITERATIONS OF CERTAIN TESTS.

TRIS CAUSES EACH TEST PASS TO
RUN AS QUICKLY AS POSSIBLE.
ONLY QUICK-RUNNING LOGIC
TESTS USE MULTIPLE
ITERATIONS.
>

2.6

EXTENDED P-TABLE DIALOGUE

WHEN YOU ANSWER THE HARDWARE QUESTIONS, YOU ARE BUILDING ENTRIES

IN A TABLE THAT DESCRIBES THE DEVICES UNDER TEST.

THE SIMPLEST

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

UNIT TO BE TESTED.

IF YOU HAVE A MULTIPLEXED DEVICE SUCH AS

A MASS STORAGE CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION

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

USER DOCUMENTATION

{MCRO M1113

14-JUN-84 15:15

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

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

8<«CR>

UNIT 1

CSR ADDRESS (0) ?

160000<CR>

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

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

Q-FACTOR (0) 0 ?

<CR>

UNIT 4

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

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

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

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

160000<CR>
SUB-DEVICE @ (0) ? 7<CR>

Q-FACTCR (0) 1 ?

<CR>

NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A
NON-DEFAULT RESPONSE IS GIVEN.
BE CAREFUL WHEN SPECIFYING
MULTIPLE UNITS!

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

SEQ 0009

USER DOCUMENTATION

MACRO M1113

14-JUN-84 15:15

K1
SEQ 0010

THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER.
LET'S BUILD THE SAME TABLE USING THE MULTIPLE SPECIFICATION
FEATURE
.

@ UNITS (D)

8<«CR>

UNIT 1

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

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

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

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

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

WAS SPECIFIED ONLY ONCE.

IN THE SECOND PASS, FOUR ENTRIES WERE

BUILT.
THIS IS BECAUSE FOUR SUB-DEVICES WERE SPECIFIED.
THE
"-* CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA
FROM THE FIRST NUMBER TO THE SECOND.

IN THIS CASE, SUB-DEVICES

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

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

8<«CR>

UNIT 1

CSR ADDRESS (0) ? 160000<CR>
SUB-DEVICE @ (0) ? 0-7<CR>
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-JUN-84 15:15

SEQ 0011

(XXDP+)

2.7 QUICK START-UP PROCEDURE
TO START-UP THIS PROGRAM:

1. BOOT XXDP.

2. TYPE "R NAME", WHERE NAME IS THE NAME OF THE BIN OR BIC
FILE FOR THIS PROGRAF

TYWPE “START~

ANSWER THE

ANSMER ALL THE HARDWARE QUESTIONS

“CHANGE MW" QUESTION WITH

“v"

6. ANSMER THE “CHANGE SW" QUESTION WITH “N*"
WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE

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

THESE DEFAWLTS

3.0 ERROR INFORMATION

3.1 TYPES OF ERROR MESSAGES
THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY
A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED.
GENERAL ERROR MESSAGES
ARE ALMWAYS PRINTED UNLESS THE "IER* FLAG IS SET (SECTION 2.3).
THE GENERAL ERROR MESSAGE IS OF THE FORM:

NAMF
TYPE NUMBER
ERROR MESSAGE

ON UNIT NUMBER

TST NUMBER PC:XXXXXX

MHERE; NAME = DIAGNOSTIC NAME

TYPE = ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT)
NUMBER = ERROR NUMBER

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

TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED

PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL

BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDLTIONAL
INFORMATION ABOUT THE ERROR.
THESE ARE ALMAYS PRINTEN UNLESS
THE "IER”" OR “IBR* FLAGS ARE SET (SECTION 2.3)

ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE
.

THTSE MESSAGES

EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION
SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA.
THESE ARE ALWAYS
PRINTED UNLESS 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.

USER DOCUMENTATION

MACRO M1113

14-JUN-84 15:15

5.2 SPECIFIC ERROR MESSAGES

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

REPRESENTS DIFFERENT TYPES

ERROR MESSAGE EXAMPLE 1

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

Imo‘" CT REGISTER OR STATUS WORDS.

THE THIRD PART IS THE EXPECTED AND RECEIVED

1ST: 016 FIFO EXERCISER TEST

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

FIFO STATUS (IN WORD

9) INCORRECT AFTER WRITE FIFO

TAPE BUS SIGNALS IN MORD #8:
IFMK
«<12>
JEOT
PARERR<1S>

IRESV2<14>
IRESV1<13>

IIDENT<11>
ICER
«10>

- DESIGNATOR <BIT o>
IRMD<2>
IRDY<6>
<«9>

IMER <«8>
ISPEED<7>

TAPE BUS SIGINALS IN WORD #9:

JIOML<S>
ILDP<4>

INRDY<4>
ILM<6> OUTRDY<S>
DATMIS<7>
MESSAGE BUFFER ADDRESS = 047352
MESSAGE BUFFER CONTENTS:
WMORD #0 EXPD: 100020 RECV: 100020 XOR:
WORD #1 EXPD: 000012 RECV: 000012 XOR:
WORD 62 EXPD: 000000 RECY: 000000 XOR:
WORC #3 EXPD: 000010 RECV: 000010 XOR:
WORD 4 EXPD: 000000 RECVY: 000000 XOR:
WORD #5 EXPD: 000000 RECV: 000000 XOR:
WORD #6 EXPD: 000000 RECV: 000000 XOR:
WORD #7 EXPD: 000000 RECV: 000000 XOR:
WORD #€ EXPD: 070217 RECV: 070217
XOR:
WORD % EXPD: 000074 RECV: 000034 XOR:

JFBY<1>
IFPT<O>

000000
000000
000000
000000
000000
000000
000000
000000
000000
000040

ERROR MESSAGE EXAMPLE 2
THIS ERROR SMOMS A FATAL FUNCTION ERROR FROM THE TAPE DRIVE,IN THIS

INSTANCE AN UNRECOVERABLE ERROR OCCURED WHICH INDICATES THAT THE
CONTROLLER MAY BE DEFECTIVE.
CVTSA MRD ERR 00159 ON UNIT 00 TST 001 SUB 005 PC: 026202
TSSR NMOT CORRECT AFTER SPACE RECORDS COMMAND
TSSR = 100214
TSSR BITS SEY: SC.SSR

TERMINATION CLASS CODE = UNRECOVERABLE ERWOR

PACKET ADDRESS PACKEY WORD ¢
=
PACKET WORD ¢
PACKEY WORD ¢
PACKET WORD ¢

140010
= 000010
+ 000000
= 000024

USER DOCUMENTATION

MACRO TMM111%

164-JUN-84 15:15

SEQ 001

ERROR MESSAGE EXAMPLE 3

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

CVTS W30 ERR 00121 ON UNIT 00 TST 001 SUB 002 P°: 023306
MOT BIT (XSTO) NOT SET DURING REWIND (EXTENDED FEATURES TMODE
)
EXPD: 0L0312 RECV: 000112 XOR: 000200
4.0 “ERFORMANCE AND PROGRESS REPORTS
AT THE END OF EACH PASS,

THE PASS COUNT

IS GIVEN ALONG WITH THE

TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED.
THE "EOP~ SMITOM CAN BE USED TO CONTROL HOW OFTEN THE END
OF PASS MESSAGE IS PRINTED.
SECTION 2.2 DESCwIBES SWITCHES.
SUCCESSFUL RUN EXMPLE (LSI-11)
DR>STA/FLA
:PNT : HOE
UNITS (D)

UNIT O

DEVICE ADDRESS

(0) 172520 ? <«CR»

VECTOR (0) 224 ? <CR>

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

SWITCHES

WHICH

ARE

TST:

001 INITIALIZE @1

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

003
004
005
006
007
008
009
010
011

START

THE

DIAGNOSTIC.

THE

COMMAND

HAS

TWO

“PRINT EACH TEST NBR AS EXCCUTED” AND “MALT ON

TST: 002 WRAP DATA HIGH BYTE TEST

TST:

WRAP DATA LOW BYTE TEST
RAM TEST
INITIALIZE
2 TEST
COMMAND RE JECT TEST
WRITE CHARACTREISTICS TEST
VOLUME CHECK
COMPLETION INTERRUPT TEST
BASIC PACKET PROTOCOL TEST
NON-TAPE-MOTION COMMANDS TEST

0 ERRORS

NOTE:

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

"/PASS:" SWITCH.

USER DOCUMENTATION

MACRO M1113

14-JUN-84 15:15

SEQ 0014

PROGRAM RUN TIMES

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

ARE

THE PROGRAM RUNS IN TWO MODES;

THE

PROCESSOR WITH A LA3S4 CONSCLE.

NO ITERATIONS AND DEFAULT MODE.

NO ITERATIONS MODE, EACH TEST IS RUN ONCE, WITH NO ITERATIONS.
IN THE
DEFAULT MODE EACH TEST IS REPEATED BY THE NUMBER OF TIMES INDICATED BY
THE ITERATION COUNT.
NO ITERATIONS MODE IS SELECTED BY ANSWERING THE
INHIBIT ITERATIONS QUESTION WITH A "y~ (YES).
TEST

N/1I

NUMBER

SECS.

é
3

1
1

ITER

DEF

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 [UN TESTS 1 THROUGH 12 IN ONE COMMAND:

Q.v.
DEFAWLT

1 NIN S7 SECONDS
12 MINS

USER DOCUMENTATION

MACRO M1113

14-JUN-84

15:15

SEQ 0015

5.0 DEVICE INFORMATION TABLES
WHENEVER THE PROGRAM IS STARTED,

VIA THE STA(RT) COMMAND,

THE Sl’sERVISG REQUESTS THE FOLLOWING P-TABLES PARAMETER
CHANGE
MW (L) ?
@ UNITS (D)

<ENTER THE NUMBER OF M7196 CONTROLLERS

PRESENT TO BE TESTED>

UNIT 0

DEVICE ADORESS
VECTOR (0) 224 ?

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

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

UNITS

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

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

IN ADDITION, ON A START, RESTART OR CONTINUE THE SUPERVISOR
EEG-GEGS';;S CHANGES TO THE SOF TWARE OPERATING PARAMETERS, AS
L

CHANGE
SW (L) ?
INHIBIT ITERATIONS (L) N ?

LOGICAL UNIT

UP TO FOUR UNITS CAN BE

USER DOCUMENTATION

MACRO M1113

6.0
TEST

14-JUN-84 15:15

TEST SUMMARIES

1: BUS RESET TEST

THIS TEST VERIFIES THAT THE M7196 MODWLE'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 MODULE.
AREAS OF LOGIC TESTED BY iHE
SELF-TEST SEQUENCE ARE AS FOLLOWS: ROM AND 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,
MAITS 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
WHICH ARE IGNORED FOR THIS TEST) BEING CLEAR (0).
IF THE
conans 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 POSSIBILITIES:

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):
DOICATES THAT THE
TSSR CONTENT CANNOT BE TRUSTED.
INDICATES
A

camsmc CONTROLLER MALFUNCTION.
THIS IS A FATAL
ERROR (EXECUTION IS ABORTED). FIELD ACTION WOWD BE TO
REPLACE THE M7196.
IF THE M7196 ITSELF IS BEING
DEBUGGED, THE PROGRAM SHOWLD BE RESTARTED WITH LOOP ON
ERROR ENABLED IN ORDER TO PROBE FOR THE PROBLEM.
2.

SSR = 0, SC = O AND THE ERROR CODE IN BITS 0-5 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.

SEQ 0016

USER DOCUMENTATION
TEST

MACRO M1113

14-JUN-84 15:15

2: WRAP DATA - HIGH BYTE
THIS TEST VERIFIES OPERATION OF:

PART OF THE LSI-11 BUS INTERFACE SECTION OF THE M7196
PART OF THE INPUT FILE (TSDB HIGH BYTE), PART
MODWLE:
OF THE OUTPUT FILE (TSSR HIGH BYTE AND TSBA, BOTH
BYTES), PART OF THE DCOOS5 TRANSCEIVER CIRCUITS (ADDRESS
DECODER, BDAL DRIVERS, HIGH BYTE OF INTERNAL DAL BUS
%Vflg%é AND BASIC PROGRAMMED I/0 CONTROL SEQUENCES
L

2.
.
4.

PART OF 2901 MICROPROCESSOR ELEMENTS (Q-REGISTER,
REGISTER O, ROTATE AND NEGATE FUNCTIONS
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 MODUWLE 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 FAULTY CANDIDATES FROM THE LOGIC ELEMENTS LISTED
ABOVE.
THE TEST IS REPEATED FOR ALL COMBINATIONS OF TEST DATA
BYTES (0-377 OCTAL).

SEQ 0017

MACRO M1113

USER DOCUMENTATION
TEST

14-JUN-84 15:15

WRAP DATA - LOW BYTE

THIS TEST FURTHER VERIFIES OPERATION OF MANY OF THE SAME
ELEMENTS TESTED IN TEST 2, AND ADDITIONALLY VERIFIES:
LOW BYTE OF THE TSDB INPUT FILE REGISTER,

LOW BYTE OF INTERNAL DAL BUS DRIVERS ON THE DCOOS

BASIC FUNCTIONING OF PARTS OF THE RAM,

TRANSCEIVER CIRCUVITS,

THE PROGRAM WRITES A TEST DATA BYTE INTO THE LOW BYTE OF TSDB,
WAITS FOR THE SSR BIT IN TSSR TO SET, THEN CHECKS THE CONTENTS
OF BOTH TSBA AND TSSR.
THE MODUWLE IS FUNCTIONING CORRECTLY IF

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 ADDRESSED (I.E., THAT ONE AND ONLY
ONE LOCATION IS ACCESSED BY ANY PARTICULAR ADDRESS). THE
BYPRODUCT OF THESE TESTS IS A VERIFICATION OF TWO REGISTERS IN
:g 2901 AND THE CAPABLITY OF THE 2901 TO CORRECTLY PERFORM AN

SEQ 0018

MACRO M1113

USER DOCUMENTATION

TEST

14-JUN-84 15:15

SEQ 0019

SECOND INITIALIZATION TEST
THIS TEST VERIFIES THE SAME ELEMENTS AS DID 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
{gxg%mug BY WRITING INTO THE TSSR), THE FOLLOWING SEQUENCE

EACH RAM LICATION AND 2901 REGISTERS 10 AND 11 ARE SET

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

BYTE AND MAINTENANCE MODE WORD WRITES).
2.

THE CONTROLLER IS INITIALIZED AND THE VARIOUS CHECKS ON
THE TSSRDNSCRIBED 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 11, SPECIFYING THE RAM
ADDRESS, SHOULD BE O.
RAM LOCATION O IS VERIFIED BY

WRITING A WORD OF ZEROS INTO THE TSDB.
THE RESULTING
LOW BYTE OF TSBA SHOULD CONTAIN ALL 1'S.
4.

THE ENTIRE RAM IS SCANNED.

LOCATION O SHOULD CONTAIN

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

USER DOCUMENTATION
TEST

MACRO M1113

14-UN-84 15:15

6: COMMAND REJECT

THIS TEST VERIFIES THAT ALL COMMANDS OTHER THAN WRITE
CHARACTERISTICS ARE REJECTED DUE TO THE NEED BUFFER ADDRESS
(NBA) BIT BEING SET IN TSSR, AND THAT THE TSBA AND TSSR
REGISTERS ARE LEFT IN THE PROPER STATE AFTER EACH COMMAND IS
REJECTED.
THIS TEST CHECKS MICROPROCESSOR SEQUENCING, BASIC
COMMAND DECODING AND DATI DMA HANDLING.
THIS TEST CONTAINS TWO
SUBTESTS: SUBTEST 1 SEQUENCES THROUGH ALL CCMMAND WORCS (OTHER
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
SETS THE IE BIT IN EACH COMMAND WORD AND VERIFIES THAT AN
INTERRUPT IS GENERATED WHEN THE COMMAND IS REJECTED.
TEST

7: 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 PACKET 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 ZERO, 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

8: 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 INDIVIDUAL TESTS OF
TAPE MOTION COMMANDS.

SEQ 0020

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).
1IT
IS VERIFIED, WHERE APPROPRIATE, THAT THE IE STATUS BIT IN XSTO
OF ANY MESSAGE PACKET IS SET AND THAT 2 ZUMPLETION INTERRUPT IS
GENERATED.
FINALLY, A SEQUENCE OF TW( CUMMANDS 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 THE
IE BIT IN XSTO IS O.
TEST

10:

BASIC PACKET PROTOCOL

THIS TEST VERIFIES BASIC OPERATION .F THE MESSAGE BUFFER RELEASE

COMMAND, THE FUNCTION OF THE ACK Bii IN THE COMMAND HEADER WORD,
AND THE REGISTER MODIFICATION REFUSED (RMR) LOGIC.

TEST

11: 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 MODE FIELD CAUSES COMMAND REJECT.
7.0 MAINTENANCE HISTORY

REVISION A - MARCH 1982
REVISION B - JUNE 1984
MINOR CHANGES FOR THE ORION CPU (11/27).
ELIMINATED THE MESSAGE DESCRIBING THE CPU TYPE.

TSV2 - PROGRAM HEADER

MACRO M1113

14-JUN-84 15:15
.TITLE
.SBTTL
.PSECT

SEQ 0022
TSv2 - PROGRAM HEADER
PROGRAM HEADER

ABS
svC

LC
BEX,CND
S
, AMA
AB
002000

TSve

TSVe::

002000

jee

: THE PROGRAM HEADER IS THE INTERFACE BETWEEN
3 THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR.

POINTER BGNSW,BGNSF T,BGNAU,BGNDU,BGNRPT
CVTSA,.8,0,655.,0
LSNAME:
:
1DIAGNOSTIC NAME
HEADER

/C/
/N/

/17
/S/
/A/
]
0
0

LS$REV::

/8/

L$DEPO:
:

001217
045624
045756

002154
002164

LeTIML::
L$HPCP:
:

SRRRRRRREE

LSUNIT:

70/

22 002000

INITIALIZE SUPERVISOR MACROS

L4SPCP::

LSHPTP::
L$SPTP::

LSLADP::
L4STA::
L$CO::

LSOTYP:
;
L$APT::
L$DTP:
:

655.

L $HARD
L$SOFT
L$HW

LSLAST
0
0
0
0

sREVISION LEVEL
10
tNUMBER OF UNITS

sLONGEST TEST TIME

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

TO DEF.

H.W.

PTABLE

sPTR.

TO S.W.

PTABLE

:DIAG. END ADDRESS

;RESERVED FOR APT STATS

1DIAGNUSTIC TYPE
s APT EXPANSION

iPTR.

TO DISPATCH TABLE

LSEXPL::
LOHREV::.

L$SPC::

LSDEVP:
LSREPP:
:
LSEXPA::
LS$EXPS::

LS$AUT::

L$DUT::
002074
002074

LSLUN::

L$DESP:
:
L$LOAD:
:

L$ETP:
:
L$ICP::
L$CCP::
002110
002112
002114
002114
002116
002116
002120

L$ACP:
:

L$PRT::
LSTESY::
LSDLY::

LOHIME::

E T

55888888

003400

BYTE

5555585853838

L$EF::

3358

LSENVI::

LOPRIO::.

002124

14-JUN-84 15:15

—

002040
002042
002042
002044
002044

MACRO M1113

TSv2 - PROGRAM HEADER
PROGRAM HEADER

SEQ 0023

LS$DISPATCH
0

:DIAGNOSTIC RUN PRIORITY

:FLAGS DESCRIBE HOW IT WAS SETUP

1EXPANSION WORD

;SVC REV AND EDIT ¢

CSREVISION
CSEDIT
o
;:DIAG.

EVENT FLAGS

0
0

L$OVTYP
LS$RPT

;: POINTER TO DEVICE TYPE LIST
;PTR.

TO REPORT CORE

;PTR.

TO ADD UNIT CODE

L$AV

;PTR. TO DROP UNIT CODE

:LUN FOR EXERCISERS TO FILL

L$DESC

ESLOAD

LS$INIT

L$CLEAN
L$AUTO

L$PROT

;POINTER TO DIAG. DESCRIPTION

;GENERATE SPECIAL AUTOLOAD EMT
;POINTER TC ERRTBL
;PTR,

.IT COUDE

;PTR.

TO CLEAN-UP CODE

;PTR.

TO AUTO CODE

;PTR. TO PROTECT TABLE

; TEST NUMBER

;DELAY COUNT

;PTR. TO HIGH MEM

TSV2 - PROGRAM HEADER

PROGRAM HEADER
35
36
37
38
39

MACRO M1113

14-JUN-84 15:15

.SBTTL

SEQ 0024

DISPATCH TABLE

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

40
41
42

DISPATCH 11
.WORD
11
LS$DISPATCH: :

43 002122

55555555588

002122
002124
002124
002126
002130
002132
002134
002136
002140

002142
002144
002146
002150

T1
T2
T3
T4

15
T6
17
18

79
T10

T11

DEFAULT HARDWARE P-TABLE

47
48
49

: THE DEFAULT HARDMWARE P-TABLE CONTAINS DEFAULT VALUES OF
: THE TEST-DEVICE PARAMETERS.
THE STRUCTURE OF THIS TABLE
+ IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE.

51
53

002152
002152
002154
002154

55
56 002154
57 002156
002160
59 002162
002162

000003

LéHM:

BGNHW
.WORD

DFPTBL

tDEFAULT HARD-P-TABLE

172520

+ 1ST (OF 2) REGISTERS.

L10000-L $Hu/2

DFPTBL
::
172520

L10000:

. WORD
. WORD
. WORD
ENDHW

224
PRIO4

+ INTERRUPT VECTOR
+ INTERRUPT PRIORITY,

TSV2 - PROGRAM HEADER
SOF TWARE P-TABLE

80
83
84

SOFTWARE P-TABLE

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

: PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR.

68 002162
002162
002164
002164
69
70 002164
71 002166

77
78 002174
79

SEQ 002<

75 002172
76 002174
002174

14-JUN-84 15:15
.SBTTL

62
63
64
65
66

72
73
74 00217¢C

MACRO M1113

L$SM::
SFPTBL::

000017
000310

BGNSW

"WORD

SFPTBL

L10001
-L $5W/2

TRANSTST: :
NOITS::

.WORD
.WORD

O
O

LERRMAX: :
GERRMAX : :

. WORD
.WORD

i3.
200.

L10001:

ENDSW
ENDMOD

:
;
i
i
:
:

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

TSVS

GLOBAL AREAS

SOF TWARE P-TABLE

MACRQO M1118%

14 -JUN-84

15:15

13
19
20 002174
002174
2l
22
23

TSVS::

r\_)

e
—

LTITLE
.SBTTL

TSv3 - GLOBAL AREAS
GLOBAL EQUATES SECTION

BGNMOD

TSVS

.SBTTL

GLOBAL EQUATES SECTION

‘..

:
;

25
-~

26
4
e

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

EQUALS

32 002174

: GET STANDARD EQUATES.

: BIT DIFINITIONS
B8IT15=+
8IT14+-+=
BIT13==
8IT12++=
8IT1le+=
B8IT10=+
B8ITC9=+
B8IT08-«
B8IT07==
B8IT06=+
BIT05-~
BITO4==
B8IT03==
81702+~
BITO1e=
BIT00==

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

BIT9==
BIT8-+
81T7-=
BIT6-=
BITSe=
BIT4==
8I73==
B8IT2==
B8ITl==
B8IT0==

BITO9
BITO8
BITO7
BITO6
BITOS
BITO4
BITO3
BITO2
BITO1
BITO0

i EVENT FLAG DEFINITIONS
:
EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION
000037

000035
000034

EF . START==

32,

EF .NEW==
EF .PUR==

29.
28.

EF RESTART==
EF (CONTINUE==

31,
30,

; PRIORITY LEVEL DEFINITIONS

i
:
:
i
i

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

TSVS - GLOBAL AREAS

GILOBAL EQUATES SECTION

MACRO M1113

14-JUN-84 15:15

5€Q 0027

PRIO7== 340
PRIO6== 300
PRIOS== 240
PRIO4== 200

PRIOS== 140
PRIO2=+

100

PRIO1=* 40
PRI0O== O
]

1OPERATOR FLAG BITS
H

EVL==

LOTe=e

ADR = =
IDY=ISR==
UAM==

BOE="PNT=e
PRI=»
IXEs=»
IBE=»
IER=»
LOE==
HOE==

33
34 002174

.SBTTL

177572
177574
177576
172516

20
40
100
200

400

1000
2000
4000

10000
20000
40000

100000
KT11

MEMORY MANAGEMENT DEFINITIONS

soKT11 VECTOR ADORESS
MMVEC.
250
1oKT11 STATUS REGISTER ADDRESSES

SROSR1SR2=
SR3-

IF N8

177372
177574
177576
172516

soUSER "I" PAGE DESCRIPTOR REGISTERS

VIPORO=
VIPOR1=
UVIPOR2=
VIPORS=
UIPOR4=
VIPDRS=
UVIPDR6~
ugm'.?-

177600
177602
177604
177606
177610
177612
177614
177616

soUSER “D* PAGE DESCRIPTOR REGISTORS

UDPDRO=
UDPOR1=
UDPDR2=
UDPDRS=
UDPDR4=
UDPDRS=
UDPDR6=
UDPDR7=
.ENDC

177620
177622
177624
177626
177630
177632
177634
177636

;DEFINE MEMORY MANAGEMENT REGISTERS

MACRO M1113
TSVS - GLOBAL AREAS
MEMORY MANAGEMENT DEFINITIONS

14-JUN-84 15:15

1oUSER "I PAGE ADDRESS REGISTERS
VIPARO= 177640

UVIPAR] =
UVIPAR2=
VIPAR3=
UIPAR4»
VIPARS=
VIPARG=
VIPAR7=

177642
177644
177646
177650
177652
177654
177656

1oUSER "D" PAGE ADDRESS REGISTERS
177660
177662
177664
177666
177670
177672
177674

UDPARO=
UDPAR]=
UDPAR2=
UDPARS=
=
UDPAR4
=
UDPARS
UDPARG=
UDPAR7=
.ENDC
.ENDC
IF N8

177676

1#SUFERVISOR “I* PAGE DESCRIPTOR REGISTERS

SIPORO= 172200
SIPOR1- 172202
SIPOR2= 172204
SIPORS=
SIPOR4=
SIPORS=
SIPORG=

PAGE DESCRIPTOR REGISTERS

PAGE ADDRESS REGISTERS

5€EQ 0028

TSVS - GLOBAL AREAS

MACRO M1113

MEMORY MANAGEMENT DEF INITIONS

14-JUN-84 15:15

=
SOPAR4
SOPARS=
SOPARG=
SOPAR7=
.ENDC

172270
172272
172274
172276

.ENDC

172300
172302
172304
172306
172310
172312
172314
172316

t*KERNEL "I” PAGE DESCRIPTOR REGISTERS

KIPORO=
KIPDR]=
KIPOR2=
KIPORS«
KIPOR4=
KIPDRS=
KIPORG=
KIPOR7=

JIF N8

172300
172302
172304
172306
172310
172312
172314
172316

1 KERNEL "D" PAGE
DESCRIPTOR REGISTERS
KDPDRO= 172320
KDPDR1+ 172322
KDPDR2= 172324
KDPDR3= 172326
KDPDOR4= 172330
KDPORS= 172332
KDPOR6= 172334
KDPOR7= 172336
.ENDC

172340
172342
172344
172346
172350
172352
172354
172356

soKERNEL “I" PAGE ADDRESS REGISTERS

KIPARO=
KIPAR]=
KIPAR2=
KIPARS
=
KIPARA=
XIPARS=
KIPARG=
KIPAR?7=

IF N8

172340
172342
172344
172346
172350
172332
172354
172356

1 oKERNEL "D” PAGE ADDRESS REGISTERS

KDPARO=
KDPAR]
=
KDPAR2e
=
KDPARS
KDPAR4=
KDPARS
=
=
KDPARG
=
KDPAR7
.ENDC

172360
172362
172364
172366
172370
172372
172374
172376

5€EQ 0029

TSV3S - GLOBAL AREAS
MACRO M1113 14-JUN-84 15:15
TSVOS REGISTER AND PACKET DEFINITIONS
39

.SBTTL

40
4]

;: SOME GENERAL EQUATES.

45
46
47
48
49
SO
S1

000004
000060
177560
177562
177520

SS
Sé
S7

S8
S9
60
61

62
63

64
22

4
60
177560
177562
177520

+
s+
3+
;1
;

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

:BIT DEFINITIONS FOR TSSR REGISTER
-

100000
040000
020000

010000
004000
002000
001400
000200
000100
000060
000016

SC=
BIE=
SCE=

BIT1S
BIT1a
BIT13
RMR =
8IT12
NXM=
BIT11
NEA=
8IT10
HIADDR= BIT9!BITS
SSR=
BIT?
OFL=
BITé
FATERR= BIT4!BITS

TERCLS= BIT3!BIT2!'BIT1

1 SPECIAL CONDITION
1BUS INTERFACE ERROR
s SANITY CHECK ERROR

sMODIFICATION REFUSED
sNONEXISTANT MEMORY ERROR
sNEED BUFFER ADDRESS
tEXTENDED ADDRESS BITS

1S\8 SYSTEM READY
1OFF LINE BIT

stFATAL TERMINATION ERROR CODES
;TERMINATION CODES

;:BIT DEFINITIONS FOR EXTENDED STATUS REGISTER O

;(XSTO)

ERRVEC==
TTIVEC==
TTICSR==
TTIBFRe==
BOVPCR==
T

Se
S3
S4

TSVOS REGISTER AND PACKET DEFINITIONS

42
44

SEQ 0030

74
75

100000
040000

XSOTMK= BIT1S
XSORLS= BIT14

1 TAPE MARK DETECTED
sRECOD LENGTH SHORT

010000

XSORLL= BITi2

sRECORD LENGTH LONG

78
79

80
81
82
83
84
85
86
87
88
89

020000

004000
002000

XSOLET= BIT13

XSOMLE= BIT11
XSONEF= BIT10

001000
000400
000200
000100

XSOILC=
XSOILA=
XSOMOT=
XSOONL=

000001

XSOEQOT= BITO

000040
000020
000010
000004
000002

BIT9
BITS
BIT?7
BIT6

XSOIE= BITS
XSOVCK= BIT4
XSOPED= BIT3
XSOMLK= BIT2
XS0B0T= BIT1

sLOGICAL END OF TAPE
tWRITE LOCK ERROR
sNON EXECUTABLE FUNCTION

s ILLEGAL COMMAND
s ILLEGAL ADDRESS
sTAPE IN MOTION
s TRANSPORT ON LINE
;1INTERRUPT ENABLE
1VOLUME CHECK BIT
s1PHASE ENCODED DRIVE
tWRITE LOCKED
$1BEGINNING OF TAPE
1END OF TAPE

SEQ 0031

MACRO M1113 14-JUN-84 15:15
TSV3 - GLOBAL AREAS
TSVOS REGISTER AND PACKET DEFINITIONS
1

92
93
94

95
96
97

98
99
100
101
102

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

100000

040000
020000

017375
000400
000002

106
107
108
109
110
111
112
112
11

= BIT1S

1DATA LATE

X1.M8Z
X1.RBP
X1.UNC

= 011’12081711OBIT10oBIT9oOIT7001160811’50811’40811308172oBIVO sALWAYS O
= BITS
tREAD BUS PARITY ERROR
= BIT1
aWMCTAfiLE DATA OR HMARD ERROR

X1.SPARE= BIT14
X1.COR = BIT13

sNOT USED
1CORRECTABLE DATA ERROR

)

103
10;
10

X1.0LT

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

100000
040000
035400
002000
000200
000100
000077
000007

115

X2.0PM = BIT1S
sOPERATION IN PROGRESS (TAPE MOVING)
X2.RCE = BIT14
;RAM CHECKSUM ERROR
X2.SPARE= OITISOBITIZOBITII0811’900178
sNOT USED BY TSVOS (ALWAYS=0)
X2.WCF = BIT10
ITE CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT)
X2.EXTF = BIT?7
IF \flITE CHAR CMD THEN = EXTENDED FEATURES ENABLED
X2.BUFE = BIT6
lIf WRITE CHAR CMD THEN
= BUFFERING ENABLED
X2.REV = 000077
+IF WRITE CHAR CMD THEN
= MICROCODE REVISION LEVEL
X2.UNIT = 31720011’108170 sIF GET STATUS THEN = CURRENTLY SELECTED UNIT NO.
3

116
{i;

:BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3
;1 (XST3)
8-

119

120
121
122
123
124
125
{gg

177400

000200
000100
000040
000020
000010
000006
000001

X3.MDE

= 177400

X3.SPARE= BIT7
X3.0PI = BIT6
X3.REV = BITS
X3.TRF = BIT4
X3.0Cx = BIT3
X3.MBZ =BIT2+BIT1
X3.RIB = BITO

128

}gg

;(XST4)

sMICRO-DIAGNOSTIC ERROR CODE

sNOT USED BY TSVOS
sOPERATION INCOMPLETE
s REVERSE
ITRMT RESPONSE FAILURE
sDENSITY CHECK
tNOT USED ALMAYS O
sREVERSE INTO BOT

:BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 4

129

000377

X4 HSP
X4 .RCE
X4.7TSM
X4 .MBZ

X4 .WRC

=
=
=
=

RIT1S
sHIGH SPEED
BIT14
sRETRY COUNT EXCEEDED
BIT13
s TRANSPORT SPECIAL MODE
UITIZO.ITHolITlOoIITQo.ITO
sNOT USED ALWAYS O

= 000377

tMRITE RETRY COUNT FIELD

138

i-:g

;TSSR TERMINATION CODES (BIT 0-2)

139

142
143

144
145

:
3

' -

000006
000006

TSREJ=
UNREC=

3¢2
6

;COMMAND REJECTED
tUNRECOVERABLE ERROR
—

igg

100000
040000
020000
017400

132
133
134
135

MACRO M1113 14-JUN-84 15:15
TSV3 - GLOBAL AREAS
TSVOS REGISTER AND PACKET DEFINITIONS
147
148
149
150
151
152

153
154
155
156
157
158

159
160
161
162

163

164
165
166
167

168
169

:DEVICE REGISTER OFFSETS
i
3-

000000
000000
000001
000001
000002
000003

000003

000017
000013

000004

184

010000

P.POSITION
P.WRTSUB
P.WRITE
P.WRTCHAR
P.READ

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

020000

=
=
=
=

17
13
12
11

=10
-6
-5
-4
.1

=
=
=
=
=

s ADDRESS BITS 17:16 ARE IN 1:0

;GET STATUS
INITIALIZE
;CONTROL COMMANDS
;FORMAT

;POSITION
1SUBSYSTEM WRITE
IWRITE
{WRITE CHARACTERISTICS
1READ

BIT1S
BIT14
BIT13
BIT12

007400

P.MODE

000140

P.FMT= BIT6!BITS
P.CMD
= 37

186

000200

188

000037

194
195
196

P.GETSTAT
P.INIT
P.CONTROL
P.FORMAT

100000

040000

192
193

= BIT1.BITO

182

189
190
191

A1716

:.Cm PACKET HEADER WORD BIT DEFINITIONS

179

187

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

: COMMAND DEF INITIONS

000001

185

; TSDB/TSBA REGISTER

176
177
178

183

O
]
]
2
3

+ TSDB ADDRESS BIT DEFINITIONS

000012
000011
000010
000006
000005

180
181

TS0B==
TSBAH==
TSOBMH==
TSSR==
TSSRH==
;e

170
171
172
173
174

175

SEQ 0032

P.IE

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

01711'81710'0179!0170 sEXTENDED COMMAND MODE FIELD

= BIT?

s INTERRUPT ENABLE

aPACKET MEADER TYPE (ALWAYS=0)
tMAJOR COMMAND FIELD

: *

; CONTROL COMMAND MODE CODES
'-

000000
000400

001000
002000
002400

PC.RELEASE
PC.REWIND
PC.NOOP

= 06256.
= 10256,
= 2#256.

tRELEASE BUFFER
s REWIND
sNO-0P

PC.ERASE

= 54256,

:SECURITY ERASE

PC.IEREW

= 44256,

tREWIND IMMEDIATE INTERRUPT

TSV3 - GLOBAL AREAS

MACRO M1113

TSVOS REGISTER AND PACKET DEFINITIONS

: CONTROLLER RAM DEFINITIONS
‘

000167
000201
000210
000215
000234

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

207

208
209
210

167

1CHARACTERISTICS IO DATA BEGIN RAM ADDRESS
sCHARACTERISTICS IO DATA END RAM ADDRESS
s COMMAND PACKET BEGIN RAM AUDRESS
sCOMMAND PACKET END RAM ADDRESS
tMESSAGE BUFFER BEGIN RAM ADDRESS
tMESSAGE BUFFER END RAM ADDRESS

200
201
210

215
234

sREGISTER DEFINITIONS IN THE MESSAGE BUFFER
;

211
212

213
214
215
216
217
218
219
220
221
222
223

SEQ 0033

000010
000012
000014
000016

XSTO==

XS72==

10.

XSTl==
XST3==

XSTas==

tEXTENDED STATUS REGISTER O
;EXTENDED STATUS REGISTER 1
tEXTENDED STATUS REGISTER 2
tEXTENDED STATUS REGISTER 3
tEXTENDED STATUS REGISTER 4

12.

14.

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

HEJ

:WFSETS TO WORD LOCATIONS IN PACKET DEFINTTIONS
;LOW ORDER CHARACTERISTIC DATA POINTER
sHIGH ORDER CHARACTERISTIC DATA POINTER

000002

tNUMBER OF BYTES IN DATA PACKET

sNUMBER OF BYTES IN EXTENDED DATA PACKET

000010

:6RTA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND
000001
000002

BSELO
BSEL1
SEL2
SELDATA

&SN
O

198
199
200
201
202
203
204
205
206

14-JUN-84 15: 15

;BYTE O
;:BYTE 1
sWORD 2
sWORD 3

TSV3 - GLOBAL AREAS

MACRO M1113

TSVOS REGISTER AND PACKET DEFINITIONS
239

240
241

242

243

244
245
246

247

14-JUN-84 15:15

5EQ 0034

+BSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND
‘-

PW.NOP

PW.RDRAM
PW.WTRAM
PW.RFIFO
PW.WFIFO
PW.RDSTAT
PW.WCTL
PW. WFMT
PW.WMISC
PW. WNPR
PW.D22
PW.D11
PW.D13
PW.NO1311
PuW.RDEXT

i |
e 2
« 3
= 4
=5
«6
= 7
= 10
« 11
= 20
= 21
. 22
= 23
= 24

1NO-OP

sREAD RAM
tWRITE RAM
tREAD FIFO

sWRITE FIFO
sREAD STATUS
tWRITE TAPE CONTROL
tWRITE TAPE FORMAT
sWRITE MISCELLANEOUS
tWRITE NPR CONTROL
100 MICROTEST 22
;00 MICROTEST 11
;100 MICROTEST 13
;DISABLE MICROTEST 11 AND 13
tREAD EXT. TAPE STATUS (NOT SUPPORTED BY ALL TRANSPORTS

:BSEL1 CODES FOR WRITE TAPE CONTROL
‘-

WC.IFAD

WC.IOTAD
WC.ILTAD
WC.ISRESV
WC. IREW
WC. IRW
WC.IFEN
WC.IGO

= BIT?

= BIT6
= BITS
= BIT4
= BIT3
= BIT2
= BIT1
= BITO

+IFAD - FORMATTER ADDRESS
:ITADO - TRANSPORT ADDRESS BIT O
:ITAD1 - TRANSPORT ADDRESS BIT 1
s+IRESVS - RESERVED 05
- REWIND
;IREW
- REWIND AND UNLOAD
;IRWU

1 IFEN

- FORMATTER ENABLE

1 IHISP

- HIGH SPEED

1IREV
sIWFM
;+JEDIT
s+ JERASE
s+ IRESV3
1 IRESV4

;GO

+BSEL1 CODES FOR WRITE FORMAT
'-

WF . IHISP

= BIT?

WF . JWRT
WF . IREV

» BITS
= 8ITS

WF . IEDIT

= BIT3

WF . IWFM

WF . IERASE
WF . I3RESV
WF . I4RESV

= BIT4

= BIT2
= BIT1
= BITO

1 JWRT

- WRITE

REVERSE
WRITE FILE MARK
EDIT
ERASE
RESERVED o3
RESERVED o4

sBSEL1 CODES FOR WRITE MISCELLANEOUS SUBCOMMAND
MS.RSFIFO
MS.RSTAPE

= BIT4
~ BIT3

s INVERT SENSE OF EXTENDED FEATURES SWITCH
tRESET FIFO AND INPUT PARITY ERRORR
sRESET TAPE STATUS IN 2 FLIP-FLOPS

MS.RSD

= BITO

;RESET TIMER A,B THEN DELAY TIMES IN SELZ2

MS.ATTN

= BIT?

= BIT2!BIT1

sATTENTION TRIGGER FIELD

TSV3S - GLOBAL AREAS

MACRO M1113

TSVOS REGISTER AND PACKET DEFINITIONS
291
292

14-JUN-84 15:15
i

+ MS.ATTN SUBCODES

MSA.NOP = 0e2
MSA.VOL = 1#2
MSA .NRAM= 2%
MSA .FRAM= 3e2

000002

296
297

tNO-OP (NOTHING TRIGGERED)

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

i WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS
3-

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

BIT7
BIT6
BITS
BIT4

s INTERFUPT REQUEST (0-1 TRANSITION)
s TAPE DATA DIRECTION OUT (0= IN)
JENABLE TRANSPORT LOOPBACK
sMRITE CORRECT PARITY (SET=0 TO WRITE WRONG)

: READ STATUS MESSAGE BUFFER BIT DEFINITIONS

S2.0UTRDY
S2.INRDY
S2.ATIMR
S2.8TIMR
S2.UNDEF
S1.PARIN
S1.I2RESV
S1.I1RESV
S1.IEOT
S1.IIDENT
S1.ICER
S1.IFMK
S1.IHER
SO.ISPEED
S0.IRDY
SO.IONL
SO.ILOP
S0.ID8Y
SO. IRWD
SO.IFBY
SO.IFPT

BIT7
BIT6
BITS
BIT4
BIT3
BIT2
BIT1.BITO
B8IT15
BIT14
B8IT13
8IT12
B8IT11
BIT10
8IT9
BIT8
BIT7
BIT6
BITS
BIT4
BIT3
BIT2
BIT1
BITO

sWORD #9 BYTE 2 DATA IN MISS
ILW H
OUT ROY H
IN RDY H

(UNDEF INED )

TIMER A FLAG H
TIMER B FLAG H

WORD #8 BYTE 1 PARIN H
IRESV2
IRESV1
IEOT L
IIDENT H
ICER H
WORD @8 BYTE O ISPEED H

S2.0IM

rerrrer

298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319

SEQ 0035

293
294
295

N|
MACRO M1113
TSV3 - GLOBAL AREAS
SPECIAL MACROS AND OPDEFS.

14-JUN-84 15:15

333
334
335

336
337
338

.SBTTL

SPECIAL MACROS AND OPDEFS.

:SAVE GENERAL REGS 1 TO S
-

.MACRO

339
340

JSR

.ENDM

341

342

5EQ 0036

SAVREG

RS,REGSAV

343
344

;e
: MACRO TO FORCE AN ERROR

346
347
348
349
350

.MACRO FORCERROR
TAG,NOTSSR
LNLIST
LIIF NDF LISTALL, .NLIST
LIST
.IF B NOTSSR

345

351

352

.ENDC

355

LNLIST

357

LIST

353
354

356
358

359

360

361
362
363
364
fi

MOV

TSSR(RS),R1

;READ TSSR

MOV
BNE

FORCER,FORCER
TAG

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

LIIF NDF LISTALL,

.LIST

.ENDM
;e

: MACRO TO FORCE AN EXIT TO AVOID SECTION ITERATIONS
:
WILL EXIT TO A LABEL IF FORTER IS NEGATIVE
:
SO TO FORCE ERRORS AND EXIT ON 1 ERROR SET
:
FORCER TO 177777
3
TO FORCE ERRORS AND ITERATIONS SET FORCER TO 1.
‘-

367
368
369
370

371
372

.MACRO FORCEXIT
TAG
LNLIST
.IIF NDF LISTALL, .NLIST
LIST

373

CNLIST

375

LIST

374

376
377

g;g

MOV
BMI

FORCER,FORCER
TAG

.IIF NDF LISTALL,

.LIST

.ENDM
>

: MACRO TO INCREMENT ERROR COUNTS
‘-

380
381
382
383
384
385

386

+IS FORCER NEGATIVE?
1BR IF YES

.MACRO NEXT.ERRNO
LNLIST
s33.1IF NDF LISTALL, .NLIST
ERRNO=ERRNO-1
s33.JIF NDF LISTALL, .LIST
LIST

.ENOM

B
TSV3 - GLOBAL AREAS

MACRO M1113

SPECIAL MACROS AND OPDEFS.
388
389
390
391
392
393

14-JUN-84 15:15

SEQ 0037

+MACRO TO PERFORM XOR
8

.MACRO

MOV
8IC
8IC
BIS
.ENDM

EN=0
.SBTTL

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

FORCER

3 INITIALIZE ERROR NUMBER
- FORCE ERROR FLAG

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

000000

FORCER: :

3+ FORCE TYPE ALL HARD ERRORS (THE ONES CN.LED -

s - BY TFEMCRO’IFEW ). AN ERROR
NEED NOT
s - EXIST, JUST ASSUME AND TYPE THE MESSAGE.

TSV3 - GLOBAL AREAS

GLOBAL DATA SECTION

MACRO M1113

14-JUN-84 15:15
.SBTTL

411

412
413
414
415
416
417
418

SEQ 0038
GLOBAL DATA SECTION

jee

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

419

:THE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIME.
1SINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P-TABLE.

422 002176
423 002200

EPRTSM: :

LMORD

CSRADOR: :
IVEC::

LMORD
.WORD

O
224

TSTONT: :

L.WMORD

FATFLG: :

.MORD

420
421

UNITN::
QwP: :

IPRI::

LOOPCNT : :
DEVONT: :
INTRECVY::
EXTFEA::
BENBSM: :
EXPD: :
RECV::
ERRMI : :
ERRLO: :
RAMDATA: :

RAMSIZ: :
RCYMIALD: :

RCVLOADD: :
COUNT: :
DATA: :
TSTFLAG:

TSTPTR: :
PRMNO: :
EXPMSG: :
RECMSG: :
TMPBFR: :

.MORD
.MORD

.WMORD

L.MORD
L.MORD

O
O

PRIO4
O
O

LMORD
L.MORD
LMORD
LMIRD
.MORD
.WMORD
LMORD
.BLKN

C
O
O
O
O
O
O
16.

LMORD
.MORD

O
O

L.MORD
LMORD

.MORD
LMORD

.MORD
LMORD
.BLKB
.BLKB
.BLKB

O
O

O
O
100.
100.
80.

1PRINT SWITCH

tUNIT @ UNDER TEST.
tQUICK VERIFY FLAG.

sADDRESS OF CSR FOR CURRENT DEVICE
s INTERRUPT VECTOR

s INTERRUPT PRIORITY.

tNUMBER OF TESTS RUN IN THIS PASS

tREMAINING ITERATION COUNT FOR TEST
tNUMBER OF DEVICE UNDER TEST

1SET IF FATAL ERROR IS DETECTED IN TEST

1SET IF TAPE INTERRUPT WAS RECEIVED
1EXTENDED FEATURES SOFTWARE SW O0=0FF
; 1=ON
1BUFFER ENABLE SWITCOM SW O=0FF ;1=ON
SE’ECTED RAM DATA FOR PRAMPXT ROUTINE
1RECEIVED RAM DATA FOR PRAMPKT ROUTINE
sHIGH ADDRESS MEMORY ERROR
;:LOW ADDRESS MEMORY ERROR
1OATA READ FROM RAM PACKET OR MESSAGE BUF AREA
1RAM DATA SIZE FOR PRAMPKT ROUTINE
sRECEIVED BUFFER MIGH ADDRESS

sRECEIVED BUFFER LOW ADDRESS
s TEST COUNT PATTERN

;sTEST DATA
1 TEST FLAG WORD

1 TSTBLK POINTER
1PRINT ROUTINE TEMP
;EXPECTED MESSAGE BUFFER DATA
tRECEIVED MESSAGE BUFFER DATA
: TEMPORARY STORAGE FOR PRINT

TSVS - GLOBAL AREAS

TSTBLK

TESY

DATA

MACRO TMM1113

14-JUN-84 15:15

SEQ 0039

TABLE

LSBTTL

452

TSTBLX

TEST DATA TABLE

453

454
455
456
as”
458
459
460
461

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

WALKING ONES
WAL
K ING ZEROS

463

177777

000001

:
TSTBLK:

TBLEND == .

177777

8IT0
8IT1
8IT2
BITS

:DATA FOR WALKING ONES

BlIva

BITS
BIvée

8IT?

BIT8
BIT9
BIT10
BIT11
8Iv12
BIT13
8IT1a
BIT1S
tCBITO
tCBIT1
rCBIT2

i:DATA FOR WALKING ZEROS

*CBITS

tCBIT4
tCBITS

tCBITé

tCBIT7

tCBIT8
tCBIT9

tCBIT10

tCBIT11
tCBIT12
tCBIT13
tCBIT14
tCBIT1S

000000

§583888885888888880000000080080008

ALTERNATING ONES AND ZEROS

sALTERNATING ONES, ZEROS
sALTERNATING ONES, ZERO OPPOSITE FROM ABOVE

TSVS - GLOBAL AREAS
MACRO M1113
GLOBAL ENVIRONMENT STORAGE

14-JUN-84 15:15

507

S08

509
S10

S11 003060
512 003070

.SBTTL

GLOBAL ENVIRONMENT STORAGE

1STORAGE FOR DEVICE REGISTERS
000000
000000

S14

100000
000000

000000
000000

ODUMMY:

0,100000,0,0
1OUMMY DEVICE REGISTERS...
0,0,0,0,0,0,0,0

515 003110 000000

OUFLG: :

MORD

sxz 003112

000000

NODEV: :

LMORD

519 003114
S20 003116
S21 003120
S22 003122
S23 003124

000000
000000
000000
000000
000000

TEMPL: :
TEMP2: :
XXCOMM: :
FREE: :
FRESIZ::

MORD
.MORD
MORD
MORD
LMORD

O
O
O
O
O

S25 003130
526
527
S28 003132
S29 003134
S30 003136
531 003140
S$32 003142
S33 003144

000000

KTFLG::

.MORD

.MORD
LMORD
MORD
MORD
LMORD
MORD

O
O
O
O
O
O

.MORD

516
S1

S24 003126

S34 003146
S35 003150
536 003152
537 003154
S38 003156

S$39 003160
S40 003162

000000

000000
000000
000000
000000
000000
000000

000000
002000
000000
000000
000000

000000

S41 003162 000000

S42 003164
S43 003166
S44 003170
S4S 003172
S46 003174
g;

000000
000000
000000
177777

FREEMI:

.WORD

KTENABLE : :
NOFLG: :
NOLO: :
NI ; ;
T23A::
1238::

T3BFLG: :
PST32W: :
SIFLAG: :
BADOAT ; :
GDDAT : :
LOOPFL : :
CTAB: :

CTABM: :

0
100000

552

160000

556 003174

;

:
;
8

gz; 003374

000000

559 003376

000000

O
2000
O
O
O

+FLAG TO SAY NO DEVICE.

1SOME TEMP LOCATIONS.
1 XXDP+ COMM BLOCK POINTER.
.xsr FREE MEMORY ADORESS..
.AND SIZE (IN WORDS).

sLAST m IN FREE SPACE

1KT11, MEM AVAIL FLAG .-.m
0 = <24K OR NO KT - NZ = >24K AND KT,
.str BY TEST ROUTINES TO FLAG >28K UNDER TEST
1SET IF WE CAN TEST CLEARED OTHERWISE
sNXM LO ADDRESS BITS
N0 MI ADDRESS BITS FOR DAL'S 16-21
111723A FLAG
1117238 FLAG
s TEST 38 FLAG 10
1320 BLOCK ADORESS FOR 32 START
;
sACTUAL DATA
{EXPECTED DATA
sCONFIGURATION TABLES.

1CONFIG WORK.

LMORD
LMORD
LMORD
MORD

O
O
O
-1

UNIT NOT TESTED
UNIT ONLINE, NO ERRORS

UNIT DROPPED, NON-EXISTENT DEVICE REGISTER

1END OF MEM TABLE.
CTASE::
;ERROR STATISTICS TABLE (1 WORD PER UNIT), 64 UNITS MAX:

'
:

553
gg;

MORD
.MORD
MORD
LMORD
LMORD

LMORD

549
$S0
SS1

1 "DROPPED UNIT* FLAG.

s INMIBITS COCE IN “CLEAN-UP",

10XXXX

160001
14XXXX

ERTABL :

LBLKW

ERTABE :
SKIPT:

LMORD
.WORD

UNIT ONLINE, ENCOUNTERED XXXX ERRORS

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

11=SKIP SUBTEST O=NO SKIP OF SUBTEST

TSVS -

cooon. TR hesshces

MACRO M1113

14-JUN-84 15:15

.SBTTL

561
562

5EQ 0041

GLOBAL TEXT MESSAGES

jee

+ THE GLOBAL TEXT SECTION CONTALNS FORMAT STATEMENTS,
s MESSAGES, AND ASCII INFORMATION THAT ARE USED IN
+ MORE THAN ONE TEST.

563
564
565
566

.--

S67

tNAMES OF DEVICES SUPPORTED

568
569

S70 003400
003400

003400

124

123

126

DEVTYP
LSDVTYP: :

.ASCIZ
.EVEN

571

573
S74
575
576 003406
003406

003406

597
598
599
600
601 003500
602 003520
603 003540
604 003543
605 003547
606 003553
607 003557
608 003563
609 003567
610 003574
611 003601
612 003605
613 003611
614 003616
615 003623
616 003630
617 003635
618 003642
619
620 003650
621 003703
622 003736
623 003775
624 004016
625 004056
626 004115
627 004121
628 004150
629 004213
630 004217
631 004254
632 004276

<TSVOS>

/TSVOS/

: TEST DESCRIPTION
‘-

052

DESCRIPT <eeee TSVOS LOGIC DIAGNOSTIC - REPLACE M7196 IF ERROR sese>

"".ASCIZ

052

.EVEN

/esse TSVOS LOGIC DIAGNOSTIC - REPLACE M7196 IF ERROR sese/

$8IT TO ASCII CONVERSION FOR TSSR REGISTER
'-

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

102

102
102
102
102
102

124
124
040
045
045
045
045
040
040
045
040
040

003543
003605
103
111
103
115

003547
003611
oov
105
105
122

111
111

124
124

130
102

123
106
111
111
111
111
111
111

123
123
040

115
101

122
114
124
124
124
124
124
124

123
123
116

101
101
101
116

040
040
040
045

116

045

101

040

040
040

125
111

116
1i1

TSSRBIT::
18:
2é:

3s:

.ASCIZ
.ASCIZ

.ASCIZ

JHORD

LWORD
'SC’
'BIE’

14,24,36,44,54,64,74,8¢

94,108,114,124,136,144,154,164

'SCE'

44:
S¢:
64:
74:
8¢:

ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

10¢:
11¢:

.ASCIZ
.ASCIZ

13¢:
144:
15¢:
16¢:

.ASCIZ
.ASCIZ
.ASCIZ
.eecal‘l

'BIT3’
‘BIT2’
'BIT1’
‘8170’

SFIERR:
:
NXR ;

.ASCIZ
.ASCIZ
.ASCIZ

'TSSR ERROR AFTER SOFT INIT'
‘'TSSR ERROR AFTER BUS RESET'
/ NON-EXISTANT DEVICE REGISTER/

94:

12¢:

NXRX:
TSSX:

FUSI:

USI:
NSI:

.ASCIZ

'RMR’
'NXM’
‘'NBA’

'BITY’

‘'BITS’

'SSR’

'OFL’
'BITS’

'BIT4’

.ASCIZ
.ASCII

/#A
/#A

.ASCII

/sNsA/

.ASCIZ

.ASCIZ
.ASCIZ

FNOINTR:
NOINTR: .ASCIZ
IFMALT: .ASCIZ
INTX:
.ASCIZ

/#A

7/
/

ADDRESS: %06/
TSBA,TSSR EXP'D: #06%A,s06%N/

TSBA,TSSR REC'D: w06%A,%06/

UNEXPECTED INTERRUPT/
INTERRUPT EXPECTED, NOT RECEIVED/

ASCII /uNsA/
/ NO INTERRUPT WAS GENERATED/
/
INTERRUPT FAWT/
/s#A CPU PC: #O68A
TSBA: %06/

TSVS - GLOBAL AREAS

GLOBAL TEXT MESSAGES

633 004333
634 004405
635 004455
636 004525

040
040
040
000

648 005456
649 005552
650 005643
651
ggg

045
045
045

637 004526
638 004531
639 004565
640 004641
641 004743
642 005011
643 005054
644 005111
64S 005204
646 005276
647 005370

045
045
045
045
122
040
127
124
124
106
105

MACRO M1113

040
040
040

042
042
042

116
101
116
101
101
040
122
123
123
101
122

000
040
045
040
115
103
111
123
123
124

116
116
116

654

14-JUN-84 15:15

122
04S
045
04S

NOINIT:
NSINIT:
BRINIT:
N :

.ASCIZ
.ASCIZ
.ASCIZ
LASCIZ

NOMEM:
MB8186:
MB189:

.ASCIZ
.ASCIZ
.ASCIZ
.EVEN
.SBTTL

NULCR: .ASCIZ
EXPGOT: .ASCIZ
EXPGT2: .ASCIZ
DUAD12: .ASCIZ
PKTRAM::
SCME:
.ASCIZ
WRTMSG: .ASCIZ
WRTERR: .ASCIZ
RDERR:
.ASCIZ
SCHERR: .ASCIZ
RETERR: .ASCIZ

S€Q 0042

/7 "BUS-INIT” DIDN'T INITIALIZE CONTROLLER/
7 “SOFT-INIT” DIDN'T INITIALIZE T4 DPU/
7/ *"BUS-RESET” DIDN'T INITIALIZE THE DPU/
//

/sN/
/#A EXP'D: #068A, REC'D: %06/
/uNsA EXP'D: #068A, #064NsSA REC'D: #wO®A, %06/
/#A REG(W) WRITTEN TO: #06#A REG(R) READ; EXP'D: #068A, REC'D: %06/
LASCIZ 'RAM Contents Do Not Match Packet Sent’
7/ CONFIG DOESN'T MATCH MFG. MASTER/
'MRITE CHARACTERISTICS Feiled’
'TSSR Incorrect After WRITE Commend, More Bits Set Then SSR’
'TSSR Incorrect After READ Commend, More Bite Set Than SSR’
'FATAL ERROR IN SUBTEST - CHECK TAPE,CABLES, TRANSPORT etc.’
'ERROR IN SUBTEST - WRITE DATA RETRY FIVE TIMES FAILED'
'wNsA seess NO NXM ADDRESS- -CANNOT TEST NXM TIMEOUT. ssssesN’
'SNSA sssessesssessssee 11/723A SYSTEM ceessecscsssssssesN’
'SNSA ¢sessssssssssssss 11/7238 SYSTEM cesssssscsssssssasN’

GLOBAL ERROR REPORT SECTION

jee

655
656
:g;

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

659 005734
005734
660 005734
005734
005740
005744
005750
005752
005754
661 005760
662 005764

005764

NXRERR: :
013746
012746
012746
010600
104415
062706
004737

003112
003775
000002
000006
005766
L10002:

104423

664
&?
667 005766
668 005770

669 005772
670 005774

671 006000

006000
006004
006010
006012
006014
672 006020

SGNMSG

NXRERR

sNON-EXISTANT DEVICE REGISTER.

PRINTX
MOY
MOV
MOV
MOV
TRAP
ADD
JSR

ONXRX,MODEV
NODEV, -(SP)
ONXRX, -(SP)
2,-(SP)
SP,RO
CSIPNTX
6, SP
PC.EXTEND

sNODEV = NEXM ADDRESS.

TRAP

CeMSG

ENDMSG

3 PRINT EXTENSION IF REQUIRED.

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

005727
000000

001402
004777

012746
012746
010600
104415
062706
000207

EXTEND: TST
EXTA:
O

177770
004526
000001
000004

1%:

(PC)»

BEQ
JSR

14
PC,BEXTA

MOV
MOV
MOV
TRAP
ADD
RTS

ONULCR, -(SP)
e1,-(SP)
SP,RO
CHPNTX
o4, SP
PC

PRINTX

ONULCR

i+ O = NO EXTENSION.

+ APPEND EXTENSION TEXT,
s+ PRINT A BLANK LINE

TSVS - GLOBAL AREAS

MACRO M1113

PRITSSR - PRINT TSSR CONTENTS

14-JUN-84 15:15

.SBTTL

674

675
676
677
678
679
680
681
682

HEd

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

1 INPUTS::

683
684
685
686
587
688

CHKAMB

CHECK FOR AMBIGUOUS CONTENTS

SAVREG
MOV
PRINTB

R1,.R4
:ISS'(EP@S.R4

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

MOV
MOV
MOV
TRAP
ADD
MOV
JSR
B8CS

OTSSRFOR, -(SP)
#2,-(SP)
SP,.RO
C$PNTB
#6,SP
R4 ,RO
PC.CHKAMB
S¢

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

006633
000001

MOV
MOV
MOV

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

000004

ADD
MOV

o4,5P
R4 ,R3

BEQ

204

TST

‘

006022
006022
006026
006030
006030
006032
006036
006042

010104

006044
006046
696 006052
697 006054
698 006060

006062
006066
006072
006074
006076

012746
012746
010600
104415
062706

700 006102
701 006104
702 006110

006112
006116
006122
006124

707 006126
708 006130
709 006132

710
711
712
713
714
715
716
717

006134
006136
006140
006142
006150
006152
006154
006156

006156
006162

PRITSSR:

010446
012746
012746
010600
104414
062706
010400
004737
10G3410

703
704
705
706

CONTENTS OF TSSR

1SUBDRNTNATE ROUTINES:

690

691

689

692
693
694
695

PRITSSR - PRINT TSSR CONTENTS

010403
042703
001434

012702
012701
005703
001413

006413
000002
000006
016044

PRINTX

TRAP

S$:

001476

002630
003500

10¢:

000241
006103
103006

011100
112022
001376
112762
005721

11%:
000054

000763

13%:

15%:

105042

012746
012746

177777

002630
006604

8IC

MOV
MOV

BEQ
CLC
ROL
8CcC
MOV
MOVE
BNE

MOVB
TST

BR
CLR8

PRINTX

MOV
MOV

@AMBTSSR

;1SHOW CONTENTS ARE AME TGUOUS

CePNTX

R3
134
(R1),.RO
(RO)+,(R2).
114

sCONTENTS OF TSSR
sCLEAR ALL MULTIPLE BIT FIELDS
1NO BITS ARE SET
s TEMPORARY ASCII BUFFER
sASCII EQUIVALENT OF BITS
sREMAINING BITS TO CONVERT
$BRANCH WHEN ALL ARE DONE
sCLEAR CARRY FOR SHIFT
sSHIFT NEXT BIT TO CARRY
1BRANCH IF BIT NOT SET
sPOINTER TO BIT DEFINITION
tMOVE ASCIZ TO BUFFER
sMOVE ALL BITS

(R1).

tPOINT TO NEXTY DESCRIPTION

OHIADOR !FATERR! TERCLS,R3

#TMPBFR,R2
#TSSRBIT,R1

154

¢ ,,-1(R2)
104
-(R2)

@TSSOEF,#TMPBFR

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

s INSERT A COMMA TO TERMINATE
1GET THE REMAINING BITS
s TERMINATE THE LINE

;PRINT THE BIT DEFINITIONS

MACRO M1113
TSVS - GLOBAL AREAS
PRITSSR - PRINT TSSR CONTENTS
012746
010600

000002

006176

062706

000006

006202
006204
006210
006214
006214

010403
042703
016303

177761
006674

006166
006172
006174
718

719
720
721
722

104415

010346
012746
012746
010600

006474
000002

062706

000006

104415

14-JUN-84 15:15
MOV
MOV

204

254

R3
R3
R3

TSFCOD(R3),R3
#TFCASC,R3

000002
000006

006310
006312
006316

006433
000002

176377

013703
010346
012746
010600

104415

062706
000207

000006
002176
000001
000004

1GET THE TSSR CONTENTS
1CLEAR ALL BUT TERMINATION
1GET THE TERMINATION CODE MEANING
tPRINT THE TERMINATION CODE

1 TSSR_CONTENTS AGAIN
sCLEAR ALL BUT FATAL TERMINATION
sOON'T PRINT IF ZERO

sALINE TERMINATION CODE FOR INDEX
sGET THE FATAL TERMINATION CODE

1PRINT THE FATAL TERMINATION CODE

OTFCASC, -(SP)
#2,-(SP)

006535

006276

R4 ,R3
#*CTERCLS,R3
TCOCOD(R3),R3
#TCOASC,R3
RS, -(SP)
OTCOASC, -(SP)

R4,R3
@tCFATERR,R3

007234

SEQ 0044

SP,RO
COPNTX
26,5P

SP,RO
CS$PNTX
6, SP

177717

731 006302
732 006306
733 006310

SP,RO

CHPNTX
25%:

#6,5P
R4
#*CHIADDR
30¢
OTEXASC,R4

sCLEAR ALL BUT EXTENDED ADORESS
sDON’'T PRINT IF ZERO
sPRINT THE EXTENDED ADDRESS BITS

02,-(SP)

30¢:

SP,RO
CHPNTX
#6,SP

EPRTSW,R3
R3

sPRINT MEAASGE BUFFER ADDRESS

1PRINT PROPER MESSAGE

SP,RO

CHPNTX

“.9
PC

tRETURN TO CALLER

TSVS - GLOBAL AREAS

MACRO M1113

PRITSSR - PRINT TSSR CONTENTS
739 006356

740 006356

755 006413
756 006433
757 006474
758 006535
759 006604
760 006633

045

116

14-JUN-84 15:15
EPRT2:

045

EPRT1:

761
762 006674
763 006714
764 006737
765 006765
766 007007
767 007027
768 007111
769 007160
770 007204

045
045
045
045
045
045

116
116
116
116
116
116

045
045
045
045
045
045

006714
116
124
124
106
122
122
125
106

006737
157
145
141
165
145
145
156
141

006765
162
162
160
156
143
143
162
164

TCOCOD:
1%:
2%:
3$:
4s:
S4:
64:
7%:
8%:

773 007234

007244

007300

007311

TSFCOD:

775 007300
776 007311

122
102

145
165

163
163

2%:
3$:

163

4s:

774 007244

777 007355
778

111

122

156

145

164

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

1%:

.ASCIZ

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

.ASCIZ

.ASCIZ
.WORD

.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.EVEN

SEQ 0045

'SNSA 2440eREPLACE M7196¢¢0es’

.ASCIZ
.ASCIZ
.ASCIZ
LASCIZ
.ASCIZ
.ASCIZ

'®NsA
'#Ns#A
'wNsA
'wN#A
'#NsA
'#NsA

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

10 24.34,44,54,64,74,8¢
Noml Tcnm.tuon’
‘Termination Condition’
‘Tepe Stotus Alert’

'F\nctaon Re ject'’
able Error - Tepe Position One Record Down'’
‘Recoversble Error - Tape Was Not Moved'
'‘Unrecoverable Error’
‘Fatel Controller Error’

'Reserved’

tic

Failure’

‘Bus Interface or Senity Check Error’

‘Reserved’

H4
MACRO M1113

14-JUN-84 15:15

TSVS - GLOBAL AREAS
- PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET
PRIPKT

.SBTTL

780
781
782

THE ADDRESS/CONTENTS OF

COMMAND PACKET

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

s INPUT:

787

RO
R3
R4

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

NOTE:

R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR.

SAVREG
MOV

RO,RS

788
789
790
791
792
793
794

PRIPKT::

795 007366

814 007504
815 007506
816 007510
817 007512
818
819 007514
820 007552
821

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

784
785
786

797 007372
798 007374
799 007400
800 007402
801 007404
802 007406
803 007410
804 007412
805 007414
007414
007416
007420
007424
007430
007432
007434
806 007440
807 007442
808 007444
809 007446
810 007452
811 007454
812 007456
813 007460

PRIPKT

783

796 007366

SEQ 0046

010005
005737
001001

003132

TST

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

10¢:

007552
000003

012746
012746
010600
104414
062706

000010

#10,SP
R3,RO

15%:

204

R4 ,R1

PC,SETHMAP

017316

208 :
25%:

CLR
MOV

(R4).,R2

#PKTFRM,R1,R2

R2,-(SP)
007514
000003

OPKTFRM, -(5P)
#3,-(SP)

000010

#10,5P
R1
R1,RS

1GET HIGH ORDER ADDRESS
1BR _IF NOT ABOVE 28K.
sGET LOW ORDER ADORESS
1SETUP PAR6 MAPPING FOR 18 BIT ADDRESS
1GET RETURNED PAR6 ADDRESS BIAS
$SAVE WORD NUMBER
1GET PACKET CONTENTS
;PRINT THE DATA

SP,RO
CSPNTB

BLY

116
116

1BR IF YES
:SET HIGH ORDER ADDRESS T0 O
:COPY HIGH ORDER ADDRESS
1GET LOWER ADDRESS
sSHIFT BIT 1S INTO C BIT
sAND INTO HIGH ORDER.
1PRINT PACKET ADDRESS

SP,RO
CS$PNTB

020105
002762
000207

045
045

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

012402
010246
010146

KTENABLE

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

045
045

PKTFRM:
PKTADD:

254

iNEXT WORD NUMBER

;1DONE ALL PACKET WORDS?
;LOOP TILL ALL DONE
;+RETURN

RTS

.ASCIZ
.ASCIZ
.EVEN

‘#NA Pecket Word #4D1sA = %06’
'#NsA Packet Address = #01%0S'

TSVS - GLOBAL AREAS

MACRO M1113

14-JUN-84 15:15

SEQ 0047

PRIBXOR - PRINT EXPD, RECV AND XOR BYTE

.SBTTL

823
824
825
826
827
828
829
830
831
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
847 007666
848 007670

850 007672

PRIBXOR - PRINT EXPD, RECV AND XOR BYTE

HE4

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

s THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES.
:

: INPUTS:

3
:

R1
R2

RECEIVED DATA
EXPECTED DATA

XOR OF EXPECTED/RECEIVED DATA

;OUTPUT:
:

“

PRIBXOR:
:

SAVREG
MOV

R2,R3

MOV
8IC
B8IC
8IC

#tC<377>,R0
RO,R1
RO,R2
RO,R3

MOV
MOV
MOV
MOV

R3,-(SP)
R1,-(SP)
.-(SP)
#XORBFOR, -(SP)

MOV
TRAP
ADD
MOV

SP,RO
C4PNTB
012,5P
R3,RO

1RO HAS XOR ON RETURN

.ASCIZ

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

PRIXOR

- PRIWT EXrD. RECV AND XOR

010203

012700
040001

XOR

177400

040002
040003

010346
010146
010246
012746
012746
010600
104414
062706

010300
000207

045

PRINTB

007672
000004
000012

RTS

116

045

XORBFOR:

.EVEN

.SBTTL

R1,R3

1SAVE THE REGISTERS
sEXPECTED DATA
sFORM THE EXCLUSIVE OR
1BYTE MASK
$SAVE LOW BYTE RECV
$SAVE LOW BYTE EXPD
:1SAVE LOW BYTE XOR

OXORBFOR,R2,R1,R3 ;PRINT THE MESSAGE

;RETURN TO CALLER

HEJ

;

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

; INPUTS::

3
:

R1
R2

RECEIVED DATA
EXPECTED DATA

XOR OF EXPECTED/RECEIVED DATA

SAVREG
MOV

R2,R3

;sOUTPUT

:
‘

867 007740
868 007740
869 007744
870 007746
871 007756

PRIXOR::

010203

XOR
PRINTB

:oAVE THE REGISTERS
t1EXPECTEC DATA

R1,R3
1FORM THE EXCLUSIVE OR
@XORFOR,R2,R1,R3 ;PRINT THE MESSAGE

TSV3S - GLOBAL AREAS

PRIXOR

- PRINT EXPD,

007756

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

010346
010146
010246
012746
012746
010600
104414
062706
010300
000207
045

MACRO M1113

RECV AND XOR

14-JUN-84 15:15

010010
000004

045

XORFOR:

SEQ 0048

MOV
MOV

R3,-(SP)
R1,-(SP)

MOV
MOV
MOV
TRAP

OXORFOR, -(SP)
04,-(SP)
SP,RO
C$PNTB

ADD
MOV

000012

116

e12,SP

R3,RO

1RO HAS XOR ON RETURN

tRETURN TO CALLER

RTS

.ASCIZ

‘'wNs®A SXPD: #06%A RECV: #06%A XOR: %06’

.EVEN

TSV3 - GLOBAL AREAS

PRIEQU

MACRO M1113

14-JUN-84 15:15

5EQ 0049

- PRINT BIT NUMBERS AS ASCII EQUIVALENT

.SBTTL

878
879
880
881
882

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

s INPUTS:

886

900
901
902
903
904
905
906
907 010064
908 010064
909 010070
010070
010072
010076
010102
010104
010106
910 010112
911
912 010114
913

- PRINT BIT NUMBERS AS ASCII EQUIVALENT

HE4

883
884
885

887
888
889
890
891
892 010056
893 010056
894 010062
895
896
897
898
899

PRIEQU

OCTAL VALUE TO CONVERT
TABLE OF POINTERS TO ASCII EQUIVALENT

RO
R1

:
i
i
‘

PRIEQU:

000207

SAVREG

RTS

.SBTTL

PRIRAM

$SAVE THE REGISTERS
sRETURN TO CALLER

- PRINT RAM ADDRESS

HE4

sPRINT CONTROLLER RAM ADDRESS.
: THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.
H

s INPUTS:

RAM ADDRESS

H
’.

PRIRAM:

010446
012746
012746
010600
104414
062706
000207
045

SAVREG

PRINTE

MOV

010114
000002

116

RAMFOR:

{PRINT RAM ADDRESS IN ERROR

SP.RG

TRAP

CSPNTB

RTS

.ASCIZ

'#NWA CONTROLLER RAM ADORESS = %06

ADD

045

sSAVE R1-RS UNTIL NEXT RETURN

ORAMFOR, -(SP)

MOV

000006

ORAMFOR,R4

06,SP

JRETURN

MACRO M1113
14-JUN-84 15:15
TSV3 - GLOBAL AREAS
- PRINT MEMORY ERROR ADDRESS

PRIADD

- PRINT MEMORY ERROR ADDRESS

HAd

iPRINT MEMORY ADORESS

i THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.

. IMPLICIT INPUTS
ERRHI - HIGH ORDER ADDRESS
:
;

ERRLO

- LOW ORDER ADDRESS

:
‘

010156
010156
010162
930 010166
931 010172
932 010174
933 010176
934 010200
010200

PR1ADD:

013700
013701
010102
006101
006100

010202
010204
010210
010214
010216
010220
935 010224

010246
010046
012746
012746
010600
104414
062706
000207

937 010226

045

002234
002236

010226
000003
000010
116

045

PRIAO:

SAVREG
MOV
MOV
MOV
ROL
ROL

ERRHI RO
ERRLO,R1
R1,.R2
R1

1SAVE R1-RS UNTIL NEXT RETURN
1GET HIGH ADDRESSS
+GET LOW ADDRESS
:COPY LOW ADDRESS
sSHIFT BIT 15 TO C BIT
s SHIFT INTO HIGH ORDER
:PRINT MEMORY ADDRESS IN ERROR

PRINTB
MOV
HOV
MOV
MOV
MOV
TRAP
ADD
RTS

OPRIAO,RO,R2
R2,-(SP)

.ASCIZ
.EVEN

‘#NsSA MEMORY ERROR ADDRESS = #0105’

.SBTTL

PRITADD - PRINT MEMORY TEST ADDRESS

OPRIAO, -(SP)

SP,RO
C$PNTB

10,SP

:RETURN

HEd

sPRINT MEMORY ADDRESS
: THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.
i

: IMPLICIT INPUTS
H

ERRHI

ERRLO

- HIGH ORDER ADDRESS

- LOW ORDER ADDRESS

H
‘ -~

952
953
954
955

PRITADD:

010272
010272
010276
010302

013702
013701

957
958
959 010306
010306
010310
010314
010320
010322

010146
012746
012746
010690
104414

002234

002236

SAVREG

MOV
MOV

MOV
sROL
sROL

R1,.R2
R1
RO

"oV

#PRITO, -(SP)

PRINIB

010354
000002

ERRHI ,R2
ERRLO,R1

MOV
MOV
TRAP

OPRITO,R1

02,-(SP)
S°,RO
CS$PNTB

$SAVE R1-RS UNTIL NEXT RETURN
sGET HIGH ADDRESSS
1GET LOW ADDRESS
:COPY LOW ADDRESS
sSHIFT BIT 15 T0 C BIT
:SHIFT INTO HIGH ORDER
sPRINT MEMORY ADDRESS LOW IN ERROR

———

M4
MACRO M1113
TSVS - GLOBAL AREAS
PRITADD - PRINT MEMORY TEST ADDRESS
010324
960 010330
010330
010332
010336
010342
010344
010346
%1 010352
93 010354
010417

062706

N00006

010246
012746

010417

012746
010600
104414
062706
000207
045
045

14-JUN-84 15:15
06, SP

OPRIT1,R2

;PRINT MEMORY ADDRESS HMIGH IN ERROR

OPRIT1, -(SP)

000002

SP,RO

C$PNTB
06, 5P

000006

116
116

SEQ 0051

PC
045
045

PRITO:
PRITL:

.ASCIZ
.ASCIZ
.EVEN

;RETURN

‘#NsA MEMORY TEST ADDRESS LOW - #06°
‘#NsSA MEMORY TEST ADDRESS HIGH = %06’

TSVS

SPACE

GLOBAL AREAS

MACRO M1113

14-JUN-84 15:15

- SPACE RECORDS (FORWARD AND REVERSE) COMMAND

967

.SBTTL

368
)
970
971

SPACE

- SPACE RECORDS (FORWARD AND REVERSE) COMMAND

;e
H
;ROUTINE

972
97%

TO ISSUE A SPACE RECORDS

;COMMAND (FORWARD OR REVERSE)
:

974
975
976
977
978
979

; INPUT;
:
:
R3

981

:
3
3

98C

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

9G§

REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY

986
987

:
3

CARRY

SET - SPACE RECORDS COMMAND Ox
CLR - SPACE RECORDS FAILED
THE CONTENTS OF R4 IS MOVED T0 RO

98
984
985

3
;OUTPUT:
:

FIRST DEVICE UNIBUS ADDRESS

988
989
990
991
992

3
3
3
H
:

TAPE HAS BEEN MOVED

997
998

;SIDE EFFECTS:
:

1000

;IMPLICIT OUTPUT:

1001
1002 010464

SPACE: :

1003 010454
1004 010470

012737

000764

1007 01050€
1008 00510

100403
010337

010652

1005 010476
1006 010504
1009 010514

012737
005703
000407

140010

1010 010516
1011 010522
1012 010526
1013 010534
1014 010540
1015 010544
1016 010550
1017 010552
010552

042703
010337
052737
012704
010465
004737
103420

100000
010652
000400
010C50
000000
016250

012727

000250

010560
010564
010566
010572

013727
000000
005367
001375

002116

010556

000000

177772

010660

010650

#500. ,SDELAY

BMI
MOV

St
R3,9C4

BIC
MOV
BIS
MOV
MOV
JSR
BCS
DELAY
MOV

#IT1S,.R3
R3,90¢
08178,804
€804 R4
R4 ,TSDB(RS)
PC,.WAITF
204
250
#250,(PC)+

MOV
.WORD
DEC
BNE

L$DLY,(PC)+
O

MOV
TST

Ss:
010650

SAVREG
MOV

10s:

15¢:

.WORD

;SAVE THE GENERAL REGISTERS
;SET UP DELAY

;SET UP COMMAND, SPACE FORWARD
;CHECK FOR DIRECTION

:GO DO COMMAND

-6(PC)
. -4

t1BR, IF REVERSE INDICATED
;LOAD UP NUMBER OF RECORDS TO SPACE
;CLEAR DIRECTION BIT
;LOAD UP NUMBER OF RECORDS TO SPACE
;SET REVERSE BIT IN COMMAND PACKET
;SET UP R4 WITH PACKET ADDRESS
;SEND OUT COMMAND
;WAIT FOR SSR
;BR, IF SSR IS SET AND Ok
;:DELAY ABOUT .25 SECONDS

TSVS - am& AREAS

SPACE

MACRO M1113

14-JUN-84 15:15

SEQ 0053

SPACE RECORDS (FORWARD AND REVERSE) COMMAND

010574
010600

005367
001367

1019 010606
1020 010610
1021 010612
1022 010616
1023 010622
1024 010624
1025 010626
1026 010630
1027 010632
1028 010634

001356
000411
016501
012702
020201
001401
000402
000261
000401
000241

1030 010636
1031 010640

010400
000207

1018 010602 005337

1029 010636
1032
1033

DEC

010660
000002
000200

204
25%:
408 :
604 :

708:
:

-22(PC)
.-20

SDELAY

BNE
BR
MOV
MOV
c
BEQ
B8R
SEC
BR
cLC

15¢
604
TSSR(RS),R1
OSSR, R2
R2,.R1
408
60

MOV
RTS

R4 RO
PC

704

1BUMP DELAY COUNTER DOWN

s1BR, IF MORE DELAY
1BR IF TROUBLE CARRY = CLEAR
sREAD TSSR
1SET UP EXPECTED
tARE THEY 0K
18R, IF EQUAL= Ox
s TROUBLE EXIT
1SET CARRY NO TROUBLE
sEXIT
;CARRY CLEAR = ERROR
s1PASS PACKET ADDRESS
;1RETURN

1034
{gg

1038
1040
1041
1042 010650

DEC
BNE

177756

3
1PACKET FOR SPACE COMMAND
010650

.%¢,¢10>€177770
H
s COMMAND WORD

1043
1042 010652

000000

804 :
. WORD
;s NUMBER U RECORDS TO BE SPACED OVER WORD
904 :
. WORD

{&; 010660

000000

SDELAY: ‘E‘V’E‘a

1045 010654
1046 010656
1049

000000

000000
000000

.WORD
. WORD

.SBTTL

0
MRTCHR

sDELAY COUNTER
- WRITE CHARACTERISTICS COMMANC

MACRO M1113 14-JUN-84 15:15
TSVS - GLOBAL AREAS
- WRITE CHARACTERISTICS COMMAND
WRTCHR
1051
1052

3
sROUTINE TO ISSUE A WRITE CMARACTERISTICS
1COMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED
3
1 INPUT
:
R4
ADDRESS OF PACKET FROM TEST

1053
1054
1055
1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069

005037
005037
010465
004737
103401

005237

002224

1096 010764
1097 010772
1098 010774

032763
001402
005237

000100

1100 011000
1101 011002
1102 011004
1103 011006

000261
000401
000241
016500

1104 011012

001402

000207

SAVREG
CLR

002226
002224
000000
016336

000200

1099 011000

BENBSW = BUFFER ENABLE SWITCH ON OR OFF

+SIDE EFFECTS:
WRTCHR:
:

O00C4A3S
016501
012702
032701
001402
052702
020201
001401
000421
062704
011403
032763

{% g{g;:g

FIRST DEVICE UNIBUS ADDRESS

1072
1073
1074 010662

1084 010722
1085 010726
1086 010730
1087 010734
1088 010736
1089 010740
1090 010742
1091 010746
1092 0107S0
1093 010756

t
REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY
i
1OUTPUT;
:
RO
TSSR CONTENTS
:
CARRY
SET - WRITE CHARACTERISTICS COMMAND Ox
:
CLR - WRITE CHARACTERISTICS FAILED
3
sIMPLICIT OUTPUT:
:
:
MESSAGE BUFFER AND OTHER BUFFERS ALL SET wP
'
SOFTWARE SWITCHES SET AS FOLLOWS:
:
EXTFEA = EXTENDED FEATURES PRESENT

ig;(l)

107S 010662
1076 010666
1077 010672
1078 010676
1079 010702
1080 010706
1081 010710
1082 010712
1083 010716

S5EQ 0054

108:

000002
000200
000100

204

000100

254:

000010

002226

000002

404 :
000012

o
000012
S04:

60$:
708 :

MOV
JSR
8CS

BENBSW
EXTFEA
R4 ,TSDB(RS)
PC.CHKTSSR
204

BEQ

454

BR
MOV
MOV
BIY
BEQ
8IS
cw
BEQ
BR
ADD
MoV
BIT

INC

BIT
BEQ
INC

SEC
BR
CcLC
MOV
RTS

$sSAVE THE GENERAL REGISTERS
1CLEAR BUFFER ENABLE SWITCH
sCLEAR EXTENDED FEATURES SW SWITCH
1SEND OUT COMMAND
tWAIT FOR SSR
1BR, IF SSR IS SET AND Ox

60¢
TSSR(RS) .R1
OSSR, R2
®0FL ,R1
254
o0FL ,R2
R2,.R1
408
604
£8..R4
(R4),R3
X2 .EXTF ,XST2(R3)

1BR IF TROUBLE CARRY = CLEAR
sREAD TSSR
1SET UP EXPECTED
sMAS OFF LINE SET IN TSSR
18R, IF NO OFL SET
tMAKE THEM LOOX ALTKE
1ARE THEY 0K
1BR, IF EQUAL = Ox
s TROUBLE EXIT
1POINT TO WRT CHARA DATA PACKET
1GET ADDRESS OF MESSAGE BUFFER
sEXTENDED FEATURES BIT SET?

EXTFEA

$sSET EXTENDED FEATURES SW SWITCH

X2 .BUFE ,XST2(R3)
So¢
BENBSHW

704

TSSR(RS) RO

1BR IF NO

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

$1SET CARRY NO TROUBLE
$EXIT
1tCARRY CLEAR = ERROR
tRETURN TSSR CONTENTS
1RETURN

SEQ 0055

MACRO MI113 14.JUN-84 15:15
TSVS . GLOBAL AREAS
(REWIND) COMMA
TAPE
ON
POSITI
REWIND
1106

.SBTTL

REWIND

- POSITION TAPE (REWIND) COMMAND

118;

l‘

1109

;THIS ROUTINE WILL REWIND THE SELECTED TAPE.

1110

1114
1115

H
:

:
:
:

1111
1112
1113
111$

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

1CALLING SEQUENCE:

111

:
:

1118
1119

1120

1122

s INPUT

1121

1123

1124

1125
1126
1127

3
:
1OUTPUT

1128

1129

1130

1131

DO A SOFT INIT
DO A WRITE CHARACTERISTICS

JSR

PC,REWIND

FIRST DEVICE UNIBUS ADDRESS

THE CONTENTS OF R4 IS PASSED T0 RO

SAVRE
MOV
MOV
MOV
JSR

SRWPACK R4
R4 ,TSDB(RS)
#360. ,R3
PC.WAITF

1132
1133 011014

REWIND: :

1134 011014
1135 011020
1136 011024
1137 011030
1138 011034
1139 011040

012704
010465
012703
004737

011110
000000
009550
016250

011042

012727

000372

B8CS
DELAY
MOV

011050

013727

002116

MOV

LeDLY,(PC).

011056
011062
011064
011070
1141 011072
1142 011074
1143 011076
1144 011100

005367
001375
005367
001367
005303
001357
000241
010400

177772

DEC
BNE
DEC
BNE
DEC
BNE
cLC
MOV

-6(PC)
. -4
-22(PC)
.-20
R3
10¢

1148
1150 011110
1151 011110
1152 011112

011110

1140 011042

011046

011054

fl:z 011102

103417

000000
000000

000207

102010
000000

10%:

.WORD
.MORD

177756

204 :

RWPACK:

RTS

204
250.
9250. ,(PC)-

:1SAVE R1-RS UNTIL NEXT RETURN
$1GET PACKET ADDRESS
1SEND PACKET ADDRESS TO EXECUTE
sENOUGH TIME FOR 2400’ REEL TO REWIND
sHAIT FOR SSR TO SET
sLEAVE WHEN SSR IS SET
sWAIT FOR .25 SECONDS

R4 ,RO

1BUMP COUNTER DOWN
1KEEP GOING
tCLEAR CARRY TO SET ERROR
1PASS THE PACKET ADDRESS

tRETURN

.%¢,+10>E177770

.WORD
LMORD

102010
O

;POSTION COMMAND (REWIND)
1NOT USED

TSV3 - GLOBAL AREARS

CKRAM

MACRO M1113

- COMPARE RAM TO I/0 PACKET

14-JUN-84 15:15
.SBTTL

1154
1155
1156
1157
1158
1159
1160

- COMPARE RAM TO I/0 PACKET

:ROUTINE TO READ THE FIRST 8 BYTES FROM RAM

tMEMORY AND COMPARE THIS DATA TO A COMMAND PACKET,
;

: INPUT:
:

1164

R4
RS

1163

ADDRESS OF THE COMMAND PACKET

FIRST DEVICE UNIBUS ADDRESS

;OUTPUT

1165
1166

CARRY

1167
1168
1169
1170
1171
1172
1173
1174
1175
1176

1193 011164
1194 011166
1195 011170
1196 011172
1197 011174
1198 011200
1199 011202
1200 011204
1201 011206
1202 011210
1203 011212
1204 011214
1205 011222

CKRAM

SEQ 0056

HEJ

1161
1162

1177
1178
1179
1180
1181
1182 011114
1183 011114
1184 011120
1185 011124
1186 011130
1187 011132
1188 011136
1189 011144
1190 011150
1191 011154
1192 011160

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

+IMPLICIT OQUTPUT:
THE TABLE RAMDATA IS FILLED WITH THE

DATA HELD IN RAM.

RAMSIZ IS SET TO 8.

FOR PRAMPKT ROUTINE

SIDE EFFECTS:
THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE

:
CKRAM:
002240
000201

016336
000000
016336
000000
016336

SA''REG

104:

000000

TSBA(RS) (R1)

000210

R3
R2
R2, ORMPKTEND

(R1)., (RQ).

204

000010

:
204

104
R3
304

002300

304:

S0$:

504
8. ,RAMSIZ

1SAVE THE GENERAL REGISTERS
s ADDRESS TO SAVE THE RAM DATA
1BYTE ADDRESS OF FIRST RAM DATA
;CLEAR THE ERROR FLAG
sWAIT FOR SSR
1SET MAINTENANCE MODE
sWAIT FOR SSR TO SET
1SELECT NEXT RAM ADDRESS
sWAIT FOR SSR TO SET
iREAD THE RAM DATA
1COMPARE TO EXPECTED
1BRANCH IF 0K
1SET ERROR FLAG
s1ADDRESS OF NEXT RAM LOCATIW
sREACHED END YET ?

1BRANCH TILL ALL READ
1WAS AN ERROR FOUND ?
;1BRANCH IF NOT
;CLEAR CARRY TO SHOW ERROR
sAND EXIT
1SHOW GOOD COMPARE

1SETUP RAMSIZ FOR PRAMPKT ROUTINE
;RETURN

MACRO M1113
14-JUN-84 15:15
TSV3S - GLOBAL AREAS
TICS DATA
CHARACTERIS
I/0
TO
RAM
COMPARE
CKRAM2

.SBTTL

5EQ 0057

CKRAM2

- COMPARE RAM TO I/0 CHARACTERISTICS DATA

tROUTINE TO READ THE FIRST 8 OR 10 BYTES FROM RAM

sMEMORY AND COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK.
'

s INPUT
R4
RS

CARRY

ADDRESS OF THE CHARACTERISTICS DATA

FIRST DEVICE UNIBUS ADDRESS

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

s IMPLICIT OQUTPUT:
THE TABLE RAMDATA IS FILLED WITH THE

DATA HELD IN RAM.

RAMSIZ IS SET TO 8.

FOR PRAMPKT ROUTINE

SIDE EFFECTS:

AM2:
:

000167

016336
016336
000000
016336

10¢:

000010
002224

002300

000012

002300

000176

THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE

SAVREG

3578330353423

gi--

1230
1231
1232
1233 011224
1234 011224
1235 011230
1236 011234
1237 011240
1238 011242
1239 011246
1240 011254
1241 011260
1242 011264
1243 011270
1244 011274
1245 011276
1246 011300
1247 011302
1248 011304
1249 011312
1250 011316
1251 011320
1252 011326
1253 011332
1254 011334
1255 011336
1256 011342
1257 011344
1258 011346
1259 011350
1260 011352
1261 011354
1262 011356

OR 10.

ORAMDATA
R1

:;WG.M

PC,CHKTSSR
€0, TSOB(RS)
PC,CHKTSSR
R2,TSDB(RS)
PC,CHKTSSR
TSBA(RS),(R1)

(R1)+,(R4).

204

R2
08. ,RAMSIZ
EXIFEA
€10. ,RAMSIZ

R2,

104
274

254:

R2, #RMCHEND
-2

27%:

30¢:
S0$:

104

304

504
PC

1SAVE THE GENERAL REGISTERS
1ADDRESS TO SAVE THE RAM DATA
sBYTE_ADDRESS OF FIRST RAM DATA
1CLEAR THE ERROR FLAG
sMAIT FOR SSR
sSET _MAINTENANCE MODE
sWAIT FOR SSk TO SET
+SELECT NEXT RAM ADDRESS
sWAIT FOR SSR TO SET
1READ THE RAM DATA
1COMPARE TO EXPECTED
1BRANCH IF 0K
1SET ERROR FLAG
s ADDRESS OF NEXT RAM LOCATION
tASSUME EXTFEA NOT SET
1IS THE SOFTWARE EXTENDED FEATURES SET
1BR, IF NOT SET
1SET RAMSIZ FOR EXTEND FEATURES
1AT END OF EXTENDED BUFFER
1BR, IF NOT AT END YET
1AT END BRANCH
sREACHED END YET ?
1BRANCH TILL ALL READ
1WAS AN ERROR FOUND ?
1BRANCH IF NOT
1CLEAR CARRY TO SHOW ERROR
+AND EXIT
1SHOW GOOD COMPARE
tRETURN

TSV3S - GLOBAL AREAS

CKMSG

MACRO M1113

SEQ 0058

14-JUN-84 15:15

- COMPARE WRITE CHAR. MESSAGE BUFFERS

1264
1265
1266
1267
1268

.SBTTL CKMSG
- COMPARE WRITE CHAR. MESSAGE BUFFERS
it
3
tROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPD AND RECV
1BUFFER, THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR

1ERROR PRINT ROUTINES.

1269

1270

12;5

s INPUT;

1273

1274
1275
1276

sOUTPUT

1278

1277

12;3

RO
R1
R2

CARRY

RECV MESSAGE BUFFER MIGH ORDER ADDRESS
RECV MESSAGE BUFFER LOW ORDER ADDRESS
EXPD MESSAGE BUFFER ADDRESS

SET - MESSAGE BUFFERS MATCH

CLR -MESSAGE BUFFERS DON'T MATCH

15:%

zIH'LICIY OUTPUT:

1283
1284
1285
ig:g

:
:
3
H

1288
1289 011360

§CKMSG::

1290 011360
1291 011364
1292 011370
1293 011374
1294 011400
1295 011402
1296 011406
1297 011410
1298 011412
1299 011414
1300 011416
1301 011422
1302 011426
1303 011430
1304 011432
1305 011434

010037
010137
005737
001403
004737
010001
005004
005003
010205
011264
011164
022221
001401
005203
062704

1307 011444
1308 011446
1309 011454
1310 011456
1311 011462
1312 011464

003764
032765
001403
020427
003755
005703

1315 011472
1316 011474
1317 011476

000401
000261
000207

1306 011440

1313 011466
1314 011470

020427

001402
000241

002302
002304
003132
017316
10s:
002320
002464

15¢:

000002

254

000014

000200

EXPMSG
RECMSG
RCVYHIADD
RCVLOADD

SAVREG
MOV
MOV
TST
BEQ
JSR
MOV
CLR
CLR
MOV
MOV
MOV
cp
BEQ
INC
ADD

S04 :

c
BLE
BIT
BEQ
cMP
BLE
TST

55%:
604:

BR
SEC
RTS

000012

000016

BEQ
CLC

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

RO,RCVHIADD
R1,RCVLOAD
KTENARBLE
104
PC.SETMAP
RO,R1
R4
R3
R2,RS
(R2).EXPMSG(R4)
(R1).RECMSG(R4)
(R2)+,(R1)
254
R3
02.R4
R4, 014

$SAVE R1-RS UNTIL NEXT RETURN
sSAVE RECV HIGH ADDRESS
1SAVE RECV LOW ADDRESS
sTESTING ABOVE 28K?
18R IF NO
sRETURN ADDRESS BIASED TO PAR6 IN RO
1GET RETURNED ADDRESS BIASED TO PAR6
sWORD IN BUFFER
sCLEAR ERROR SEEN FLAG
1GET
BOUFFER ADDRESS
;SAVE EXPD FOR ERROR REPORT
;SAVE RECYV FOR ERROR REPORT
sEXPD EQUAL RECV?
1BR IF YES
1SET ERROR SEEN FLAG
sPOINT TO NEXT WORD ADDRESS

sDONE FIRST 7 WORDS?
154
1BR IF NC
X2 .EXTF, XSTZ(RS);IS EXTENDED FEATURES SET IN EXPD?
S04
1BR IF NO
R4,016
|DO£ EXTENDED FEATURES WORD?
15¢
t1BR
IF NO
R3
1 ANY ERRORS SEEN?
5S¢

604
PC

1BR IF NO
:SET FAILURE

H
$SET SUCCESS
;RETURN

MACRO M1113
14-JUN-84 15:15
TSVS - GLOBAL AREAS
BUFFERS
MESSAGE
RECV
EXPD
COMPARE
CxMsGe

.SBTTL

1319
1320
1321
1322
1323
1324
1325
1326

CKMSG2

- COMPARE EXPD RECV MESSAGE BUFFERS

tROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE
tBUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR
;ERROR PRINT ROUTINES.
'

: INPUT

1327

1328
1329
1330
1331
1332
1333
1334
1335
1336
1337
1338
1339
1340
1341 011500
1342 011500
1343 011504

RECV MESSAGE BUFFER HMIGH ORDER ADDRESS

RECV MESSAGE BUFFER LOW ORDER ADDRESS

NUMBER OF BYTES TO COMPARE

EXPD MESSAGE BUFFER ADDRESS

sOUTPUT:
CARRY
:

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

sIMPLICIT OUTPUT:

3
:
3
:

EXPMSG
RECMSG
RCVHIADD
RCVLOADD

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

1344 011510
1345 011512

1346 011516
011516
011522
011526
011530
011532
1347 011536
1348 011542
1349 011546
1350 011552
1351 011554
1352 011560
1353 011562
1354 011564
1355 011566
1356 011572
1357 011576
1358 011600
1359 011602
1360 011604
1361 011610
1362 011612
1363 011614
1364 011616
1365 011620
1366 011622
1367 011624
1368 011626
1369 011630

SEQ 0059

SAVREG
cHP
BLE
MOV

$SAVE R1-RS UNTIL NEXT RETURN
R3,9RECMSG-EXPMSG;
880 IS COUNT ABOVE MAX ALLOWED?
S¢
18680 BR IF NO
ORECMSG-EXPMSG,R3;
880

MOV
MOV

#DEBUGMSG, -(SP)
e1,-(SP)

PRINTF

S$:

017316

10$:
002320
002464

15¢

000001

25%:

S04 :

S54¢:
604 :

MOV
TRAP
ADD
MOV
MOV
TST
BEQ
JSR
MOV
CLR
CLR
MOV8
MOVB
cMP8
BEQ
INC
ADD
cHp
BCE
BR
TST
B8EQ
CcLC
BR
SEC
RTS

@DEBUGMSG

SP,RO
CSPNTF
4, 5P
RO,RCVHIADD
R1,RCVLOAD
KTENABLE
104
PC,SETMAP
RO,R1
R4
RS
(R2),.,EXPMSG(R4)
(R1),RECMSG(R4)
(R2)+,(R1).
254
RS
#1.R4
R4 ,R3
SOs
154
RS
5S4
604

$1SAVE RECY HIGH ADDRESS
sSAVE RECV LOW ADDRESS
;TESTING ABOVE 28K?
1BR IF NO
tRETURN ADDRESS BIASED TO PAR6 IN RO
1GET RETURNED ADDRESS BIASED TO PAR6
sWORD IN BUFFER
sCLEAR ERROR SEEN FLAG
;SAVE EXPD FOR ERROR REPORT
;SAVE RECV FOR ERROR REPORT
sEXPD EQUAL RECV?
1BR IF YES
sSET ERROR SEEN FLAG
sPOINT TO NEXT BYTE
:DONE ALL BYTES?
1BR IF YES
;100 NEXT BYTE
s ANY ERRORS SEEN?
1BR IF NO
1SET FAILURE
:
1SET SUCCESS
;RETURN

TSVS - GLOBAL AREAS
- COMPARE EXPD
CKMSGe

1
!
3

1371 011632
1372 011722
1373 011733
1374 011766
1375 012021
1376
1377
1378
1379
1380
1381
1382
1383
1384
1385
1386
1387
1388
158
1390
1391 012034
012034
1392 012034
1393 012040
1394 012044
012044
012044

120
045
040
056
124

MACRO M1113

14-JUN-84 15:15

SEQ 0060

RECV MESSAGE BUFFERS
122
116
040
056
105

117
045
124
056
123

DEBUGMSG:

.ASCIZ 'PROGRAM INTERNAL ERROR -CKMSG2 MESSAGE BUFFER EXCEEDED-' ;380

FERCM:

.ASCII

/#NsA

SIMSG:

.ASCIZ

/.... AFTER DOING SOFT INIT/

ERCM:

TINERR:

.ASCIZ
.ASCIZ
.EVEN

sese/

TSSR ERROR CODE REC'D = /

/TEST:

.../

;PRINT ROUTINE TO FATAL SOFT INIT ERRORS
:

s INPUT:
:

CONTENTS OF TSSR AT ERROR

:SIDE EFFECTS:
3

EXECUTES DROP UNIT TO CEASE TESTING

3
‘o

004737
004737

006022
017202

SFIMSG:
:

L10003:

104423

BGNMSG

SFIMSG

JSR
JSR

PC.PRITSSR
PC,CKDROP

TRAP

C$MSG

ENDMSG

tPRINT CONTENTS OF TSSR REGISTER
;DROP UNIT, IF ALLOWED

sPRINT ROUTINE TO PRINT THE CONTENTS OF
;TSSR AND A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET.
:

;sINPUTS:
:

:
3

R1
R4

TSSR CONTENTS
ADDRESS OF COMMAND PACKET

BGNMSG

PKTSSR

JSR
MOV
JSR

PC,PRITSSR
04 ,RO
PC,.PRIPKT

TRAP

C$MSG

:
‘-

012046

012046
012052
012056
012062
012062

012062

S——

004737
©12700
004737

104423

006022
000004
007366

PKTSSR:
:

L10004:

ENDMSG

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

MACRO M1113

14-JUN-84 15:15

C:iHSGZ - COMrARE EXPD RECV MESSAGE BUFFERS
TSV3S - GLOBAL AREAS
1413

;PRINT ROUTINE TO PRINT THE CONTENTS OF
;TSSR AND A GET STATUS COMMAND PACKET.

1414

1415

1416

;sINPUTS:

1417
1418
1419
1420
1421

012064

1423 012064
1424 012070
1425 012074
1426 012100

012100
012100

004737
012700
004737

006022

PKTGETS::

007366

L1000S5:

104423

TSSR CONTENTS

ADDRESS OF COMMAND PACKET

PKTGETS

JSR
MOV
JSR

PC,PRITSSR
#2,R0
PC.PRIPKT

TRAP

C$MSG

ENDMSG

;PRINT THE CONTENTS OF TSSR REGISTER
stNO. OF WORDS IN GET STATUS PACKET
8PRINT THE CONTENTS OF COMMAND PACKET

‘0

1428
1429
1430
1431
1432
1433
1434 012102
012102
1435 012102
1436 012106
1437
1438
1439

1422 012064

1427

012106
012106

;PRINT TSSR ERRORS FOR INITIALIZATION TESTS
i

: INPUTS:
:
R1

TSSR CONTENTS
ADDRESS OF COMMAND PACKET

BGNMSG

SFFMSG

JSR
ENDMSG

PC.PRITSSR

‘-

004737

006022

SFFMSG::
L10006:

104423

TRAP

.SBTTL

C$MSG

PKTMES

;PRINT CONTENTS OF TSSR REGISTER

- PRINT TSSR AND MESSAGE BUFFER

1440
1441
1442
1443
1444
1445
1446
1447
1448
1449 012110
012110

1450 012110
1451 012114
1452 012116
1453 012120
1454 012124
012124
012124

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

: INPUTS:
:

3
:

3
3

004737
010200
010301
004737

104423

006022

PKTMES:
:

HIGH ORDER MESSAGE BUFFER ADDRESS

BGNMSG

PKTMES

JSR
MOV
MOV

PC,PRITSSR
R2,RO
R3,R1

NOTE: R3 IS IGNORED IF KTENABLE FLAG IS CLEAR

JSR

014242

L10007:

CONTENTS OF TSSR

LOW ORDER MESSAGE BUFFER

ENDMSG
TRAP

PC,PRMESS
C$MSG

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

I<5
TSV3 - GLOBAL AREAS

ADDSSR

MACRO M1113

- PRINT TEST ADDRESS AND TSSR

14-JUN-84 15:15
.SBTTL

1456

1457

SEQ 0062

ADDSSR

1458
1459
1460
1461
1462

;PRINT ROUTINE TO PRINT

1464

:
:

THE COMNTENTS OF

:TSSR AND A MEMORY TEST ADDRESS

: INPUTS:

1463

1465
1466

1467
1468 012126
012126
1469 012126
1470 012132
1471 012136
1472 012142
1473
1474
1475

- PRINT TEST ADDRESS AND TSSR

012142
012142

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

004737
016501
004737

010272

FIRST DEVICE UNIBUS ADDRESS

BGNMSG

ADDSSR

JSR
MOV
JSR
ENDMSG

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

TRAP

C$MSG

.SBTTL

MSGEXP - PRINT WRITE CHAR. EXPD-RECV MESSAGE BUFFERS

ERRHI
ERRLO

HIGH ORDER MEMORY TEST ADDRESS
LOW ORDER MEMORY TEST ADDRESS

ADDSSR:
:

006022

L10010:

104423

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

HEJ

:PRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER
H

sIMPLICIT INPUTS:
5

EXPMSG

H
H
'

012700
005737
001402
012700
004737

104423

000007
002224
000010
014552

- EXPECTED MESSAGE BUFFER

RECMSG

- RECEIVED MESSAGE BUFFER

BGNMSG

MSGEXP

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

MSGEXP:
:

MOV
ST

S$:
L10011:

BEQ
MOV
JSR

ENDMSG
TRAP

#7,R0

sASSUME NO EXT FEATURES

St
8. .RO
PC ,PRMSGEXP

;BR IF NO
:EXT FEATURE BUFFER IS 8 WORDS
1PRINT EXPD/RECV MESSAGE BUFFERS

EXTFEA

C$MSG

:EXT FEATURES SET?

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

14-JUN-84 15:15

FIFEXP

.SBTTL

1494

1495

1496

1498
1499

012240
1512 012242
1513 012311
1514

- PRINT FIFO EXP/RECV DATA

:PRINT ROUTINE TO PRINT FIFO EXP/RECV DATA

1497

1500
1501
1502
1503
1504
1505
1506 012170
012170
1507 012170
012170
012172
012176
012202
012204
012206
1508 012212
012212
012216
012222
012224
012226
012232
012234

FIFEXP

- BYTE COUNT

sIMPLICIT INPUTS:
5

3
3

EXPMSG
RECMSG

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

BGNMSG

FIFEXP

FIFEXP::

010146
012746
012746
010600
104415
062706
012746
012746
010600
104415
062706
010100
004737
104423

045

012242
000002
000006

PRINTX

012311
002001

MOV
MOV
MOV
TRAP
ADD
MOV
JSR

000004
015122
L10012:

116
116

PRINTX

MOV
MOV
MOV
MOV
TRAP
ADD

045
04S

ENDMSG

TRAP
FIFIMSG:
FIF2MSG: -

@FIF1IMSG,R1

;+PRINT BYTES TRANSFERRED

#&F IF2MSG

tPRINT HEADER MSG

R1,-(SP)
FIF1IMSG, -(SP)
02,-(SP)
SP,
CSPNTX
06,5P

FIF2MSG, -(SP)
#1,-(SP)
SP,RO
CSHPNTX
04,5P
R1,.RO
PC.PRBYTEXP
C$MSG
.ASCIZ
.ASCIZ

;GET BYTE COUNT
tPRINT FIFO BYTES IN ERROR

'sNs#A NUMBER OF BYTES TRANSFERRED = D2’
'#N#A FIFO DATA BYTES IN ERROR:'

TSVS - GLOBAL AREAS

MACRO M1113

14-JUN-84 15:15

HgGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS
1516
1517
1518

i
:

.SBTTL

1520
1521

:
3

MSGSTAT

- PRINT STATUS HEADER AND MESSAGE BUFFERS

;PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV

1519
1522

;IMPLICIT INPUTS:

1524
1525
1526
lg;

:
:
:
:

1523

1529 012350
012350

1530 012350
1531 012354
1532 012356

012701
012100
001410

1535 012400
1536 012404

010046
012746
010600
104415
062706
000766
012700
004737

1533 012360
012360
012362
012366
012370
012372
1534 012376

1537 012410
012410

. 012410

104423

1539 012412
1540 012430
1541 012472
1542 012563
1543 012654
1544 012745
1545 013007

012430
045
045
045
045
045
045

BGNMSG

MSGSTAT

MOV
MOV
BEQ

O#STATCOD,R1
(R1)+,RO
204

MSGSTAT:
:

012412

10%:

000001
000004

000012
014552

20%:
L10013:

012472
1i6
116
116
116
116
116

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

012563
045
045
045
045
045
045

PRINTX
MOV
MOV
MOV
TRAP
ADD
BR
MOV
JSR

RO
RO, -(SP)
01,-(SP)
SP,RO
CHPNTX
04,5P
10¢
#10. ,RO
PC ,PRMSGEXP

TRAP

CeMsG

ENDMSG

STATCOD:
14:.ASCIZ
24:.ASCIZ
34:.ASCIZ
44: .ASCIZ
S54:.ASCIZ
64:.ASCIZ

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

;PRINT STATUS BIT NAMES

100 ANOTHER MSG LINE
sNUMBER OF WORDS IN A READ STATUS BUFFER
sPRINT EXPD/RECV MESSAGE BUFFERS

WORD
14,24,34,44,54,64,0
'swNsA Tepe M&‘.lo in Word #8:'
‘wNsA
P
<15>
JIEOT
«<12>
IFMK
<9>
IRDY<6>
'wNsA
IRESV2<14>
TIIDENT<11>
IMHER «<8>
IONL<S>
'wNsA
IRESV1<13>
ICER
<10>
ISPEED<7>
ILDP<4>
'wNsA Tepe Bus Signels in Word 09:'
'wNsA
DATMIS<7>
ILW<6>
OUTRDY<S>
INRDY<4>’

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

0064

TSVS

- GLOBAL AREAS

MACRO M11135

14-JUN-84

15:15

MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS
1549
1550
1551
1552
155%
1554
1235
1556
1557
1558
1559
1560
1561 013064
013064
1562 013064
1563 013070
1564 013072
1565 013074
013074
013076
013102
013104
013106
1566 c13112
1567 013114
013120
1569 013124
013124
01312
1570
1571 0135426
1572 013146
1573 013221
1574 013320
1575 013417
1576 013516
1577 013615
1578 C13714
1579

.SBTTL

MSGLOOP

- PRINT LUOPBACK HEADER AND MESSAGE BUFFERS

HEJ

:PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV
;

IMPLICIT INPUTS:
EXPMSG
RECMSG

- EXPECTED MESSAGE BUFFER
- RECEIVED MESSAGE BUFFER

RCVHIADD- RECEIVED MESSAGE BUFFER HWIGH ORDER ADORESS
RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS
BGNMSG MSGLOOP
012701

013126

10%:

MOV
MOV
BEQ

PRINTX

012746

MOV

000001

000012
014552

013146

013221

045
045
045

116
116
116
116
116
116

045

045
045
045

204 :
L10C14-

104423

116

RO, -(SP)

MOV

TRAP

012700
004737

#L00PCOD,R1
(R1)+,RO
204

LOOPCOD :

SP.RO

CIPNTX

ADO
BR
MOV
JSR

04, 5P
10¢
#10. .RO
PC , PRMSGE
XP

TRAP

CemSG

ENDMSG

14: .ASCI1Z
24: ASCIZ

sASCII ADDRESS TABLE
1DONE ALL MSG LINES?
iBR _IF YES
;PRINT STATUS BIT NAMES

WORD

;D0 ANCTHER MSG LINE
iNUMBER OF WORDS IN A READ STATUS BUFFER
;PRINT EXPD/RECV MESSAGE BIUFFERS

14,.24.3%

M'Ym Bus Loopbeck Signels in Word 08:°

'«NsA

38: .ASCIZ
'wNsA
48: .ASCIZ
'wNsA
S$:.ASCIZ
'wNsA
68:.ASCIZ
'wNsA
74: .ASCIZ
'wNsA
.EVEN

PARERR<15>

IMISP=>IEOT<12>
IWFM =>IFMK<09>
ITADO=>IRDY<06>
IREW =>IDBY<03>
IGO0
+>IFPT<00»

IRESV2<14>

IWRT=>IIDENT<11>
IEDIT=>IHER <08>
ITAD1=>IONL <0S>
IRW =>IRWD <02>

IREV

IRESV1<13>’

=>ICER

«10>'

IFAD
=>ISPEED<07>’
IERASE=>ILDP
<O4>*
IFEN
=>IFBY
<0l>’

MACRO M1113 14-JUN-84 15:15
TSVS- GLOBAL ARE AS
MESSAGE BUFFER
SUBSYSTEM
MRITE
'SGS\B - PRINT
.SBTTL

1581
1582
1583
1584
1585
1586
1587
1588
1589
1590
1591
1592
1593

[

MSGSUB

- PRINT WRITE SUBSYSTEM MESSAGE BUFFER

:NIN! ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV
'

:MICIT INPUTS:
EXPECTED MESSAGE
RECEIVED MESSAGE
RECEIVED MESSAGE
RECEIVED MESSAGE

EXPMSG
RECMSG
RCVMIADDRCVLOADCBGNMSG

1594 013742

013742

1595 013742
1596 013746
1597 013752
013752
013752

012700
004737

104423

““mov

000012
014552

L1001S:

BUFFER
BUFFER
BUFFER MIGH ORDER ADORESS
BUFFER LOW ORDER ADDRESS

MSGSUB

010. ,RO

+SIZE OF WRITE SUBSYSTEM BUFFER

JSR

PC , PRMSGE XP

sPRINT EXPD/RECYV MESSAGE BUFFERS

TRAP

CeMSG

.SBTTL

MEMADD - PRINT MEMORY ADDRESS DATA ERROR

tPRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR

:IH’LICIT INPUTS:
3

:
3

:
:

1610

ERRMI
ERRLO

- MEMORY ERROR MIGH ORDER ADORESS
- MEMORY ERROR LOW ORDER ADDRESS

BGNMSG

MEMADD

JSR
MOV
MOV
JSR

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

EXP
RECV

- EXPECTED DATA
- RECEIVED DATA

1611 013754
013754
1612 013754
1613 013760
1614 013764
1615 013770
1616 013774
013774
013774

004737
013701
013702
004737
104423

MEMADOD:
:

L10016:

C#MSG

sPRINT MEMORY ADDRESS IN ERROR
1GET EXPD DATA
1GET RECEIVED DATA
sPRINT EXPO/RECV

MACRO M1113
TSVS - GLOBAL AREAS
PRAMPKT - PRINT RAM AND PACKET DATA

14-JUN-84 15:15

1618

1619

SBTTL

SEQ 0047

PRAMPKT - PRINT RAM AND PACKET DATA

1620
1621
1622
1623
1624
1655
1626
1627
1628
1629

;PRINT ROUTINE TO DISPLAY RAM/PACKET DATA
{WHEN THE RAM DATA DOES NOT MATCH.
]
1 INPUTS;
Ra
POINTER TO COMMAND PACKET
{IMPLICIT INPUTS:
:
RAMDATA
DATA AS READ FROM THE RAM
NUMBER OF BYTES IN PACKET
RAMSIZ
‘
:
IF RAMSIZ=0 THEN DEFAULT TO 8.

1631

:IMPLICIT OUTPUTS:

1630

1632

1634 013776

1635 013776
1636 014002
1637 014006
1638 014010
1639 014012
1640 014014
1641 014024
1642 014026
1643 014032

012701 002240
005002
122124
001005
000436

116105
116403

177777
177777

116137
116437

177777
177777

1644 014036
1645 014046 042703 177400
1646 014052
1647 014060
1648 014066

014066
014070
014074
014100
014102
014106
014112
014114
014116
1549 014122
1650 0141264
1651 014130
1652 014132
1653 014136
1654 014140
1655 014142
1656 014146
1657 014150
{233 014154
1660 014156
1661

RAMSIZ SET T0 O

PRAMPKT:

SAVREG
MOV
ORAMDATA,R1
CLR
R2
CP8
(R1)+.(R&)e
BNE
7¢
FORCERROR
74 ,NOTSSR

1633

010346
013746
013746
010246
012746
012746
010600
104414
062706
005202
005737
001404
020237
003724
000403
020227
002720
005037
000207
045

Ss:

002232
002230

108:

000010
002300

116

15¢:
2S¢:
208:

045

104

XOR
8IC

RS,R3
0177400,R3

1XOR EXPD/RECY
;LOW BYTE ONLY

MOV
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
INC
ST
BEQ
cP
BLE
B8R
O
BLT
CLR
RTS

RS, -(SP)
EXPD, -(SP)
RECV, -(SP)
,-(SP
,-(SP)
05, -(SP)
SP,RO
CSPNTB
014,5P
R2
RAMSIZ
154
R2,RAMSIZ
St
254
R2, 08
¢
RAMSIZ
PC

evsg'l‘l

'$NsSA

MOV8
MOVB
MOVB
MOVB
PRINTB

002230
002232
014156
000005
000014
002300
002300

B8R

;SAVE R1-RS UNTIL NEXT RETURN
JDATA FROM THE RAM
+INIT BYTE NUMBER
sCOMPARE EXPECTED, RECEIVED
18R IF NO MATCH
;880

RAMASC:

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

1GET RECV RAM DATA
1GET EXPD PACKET DATA

-1(R1),RECV
:GET RECEIVED RAM DATA
-1(R4),.EXPD
1GET EXPECTED RAM DATA
ORAMASC,R2,RECV,EXPD,R3

JUPDATE BYTE COUNT
{DEFAULT T0 8.7
18R IF YES
;DONE ALL BYTES?
i8R IF NO
'
;DONE DEFAULT NUMBER OF BYTES?
i8R IF NO
1SET DEFAULT RAMSIZ
{RETURN

BYTE: #D2#A RAM: #03#A Packet: #03#A XOR:#03'

AREA S

MACRO M1113

14-JUN-84 15:15

e Gl:a!;RINY CONTENTS OF MESSAGE BUFFER
PRMESS

PRMESS

1663

1664

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
1688 014342
1689 014346
1690 014350
014350
014352
014354
014360
014364
014366
014370
1691 014374
1692 014376
1693 014402
1694 014404
1695 014406
1696 014414
1697 014416
1698 014420
1699 014465
1700 014523

- PRINT CONTENTS OF MESSAGE BUFFER

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

1665
1666
1667
1668
1669
1670
1671
1672
1673

1674 014242
1675 014246
1676 014250
1677 014254
1678 014256
1679 014260
1680 014262

SEQ 0068

[ 4

s INPUT:

LOW ORDER ADDRESS OF MESSAGE BUFFER
HIGH ORDER ADDRESS OF MESSAGE BUFFER
NOTE: R1 IS IGNORED IF KTENABLE FLAG IS CLEAR
sTHIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE
:
3

010005

005737
001001
005001
010103
006100

PNPESS: SAVREG
MOV
TST

003132
10%:

010546

012746
010600
104415
062706

012746

KTENABLE

10¢

R1
R1,.R3

000010

014465
000001

010501
017316

:
204
014523
000003
000010

045
045

sPRINT HEADER FOR CONTENTS

lPRINT THE CONTENTS OF MEMORY BUFFER

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

PRINT FIRST 7 WORDS

::2.EXTF, XSTZ(RS;;EXYMG FEATUTES ON ?

000012

116
116
116

1SAVE THE REGISTERS
1SAVE LOW ORDER ADORESS
+ADDRESS ABOVE 28K?
1BR_IF YES
1SET _HIGH ORDER ADODRESS T0 0
1SAVE HIGH ORDER ADDRESS
$SHIFT BIT13 T0 C BIT
1SHIFT TO HIGH ORDER FOR PRINTOUT
tPRINT MESSAGE BUFFER ADDRESS

#PROASC

014420
000003

104415

004737
010005

CLR

RO,RS

Rl
#PROASC,R1,RS

006101

010146
012746

RO
R1

THELELLEED $358333338 L

S04:
PROASC:
PRIASC:
PRASC:

.ASCIZ
.ASCIZ
.ASCIZ

' SNSA
whiA
SNsA

PR¥N7 EXTENDED STATUS WORD
1RETURN
Ou"or Address = #0105’
Buffer Contents:'
WordsD1sA: #0'

TSVS - GLOBAL AREAS

PRMESS

MACRO M1113

14-JUN-84 15:15

- PRINT CONTENTS OF MESSAGE BUFFER

.EVEN

1702
1703

.SBTTL

1704

PRMSGEXP

- PRINT EXPD/RECV MESSAGE BUFFERS

1705

aQOUTI'i TO PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS

1707

;I'&.ICU IM’U"S

1706

EXPMSG - EXPECTED MESSAGE BUFFER
RECMSG - RECEIVED MESSAGE BUFFER
RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADODRESS
RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS

1708
1709
1710
1711

:
:
:
3

1713 014552

PRMSGEXP::

1712

1714 014552
171S 014556
1716 014560
1717 014564
1718 014566
1719 014572
1720 014574

1721 014576
014576
014600
014602
014606
014612
014614
014616
1722 014622

014622

010005
013700
010004
013701
006100

000010

012746

014777

012746
010600
104415
062706

014700
014704
014710
014712
014714
1730 014720
1731 014722
1732 014724
1733 014726

012746
012746
010600
104415
062706
005204
020405
002001
000752

012701
012702
011100
011203

010446

000207
045
045
045

SAVREG
MOV
MOV
MOV
MOV
ROL

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

PRINTX
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
PRINTX

@PRTMMSGO,R1,R4
R4, -(SP)
R1,-(SP)
.-(SP)
#3,-(SP)
SP,RO
CHPNTX
#10,SP
#PRMSG1

ROL

010446
010146
012746
012746
010600
104415
062706

010346
012246
012146

1734 014730
1735 014732
1736 014777
1737 015035

002302

006101

014626
014632
014634
014636
1723 014642
1724 014644
1725 014650
1726 014654
1727 014656
1728 014660
1729 014670
014670
014672
014674
014676

002304

014732
000003

MOV

000001

000004

002320
002464

204 :

000014

116
116
116

045
045
045

S04 :
PRMSGO:
PRMSG1:
PRMSG2:

#PRMSGL, -(SP

$1SAVE R1-RS UNTIL NEXT RETURN
1SAVE NUMBER OF WORDS
1GET RECV LOW ADDRESS
s1COPY LOW ADDRESS
1GET RECV HIGH ADDRESS
1SHIFT BIT1S T0 C BIT

sSHIFT TO HIGH ORDER FOR PRINTOUT
;PRINT MESSAGE BUFFER ADDRESS

;1PRINT HEADER FOR CONTENTS

MOV
MOV
TRAP
ADD
CLR
MOV
MOV
MOV
MOV
XOR
PRINTX
MOV
MOV
MOV

e1,-(SP)
SP,RO
CHPNTX
04,5P
R4
tNUMBER OF THE CURRENT WORD
#EXPMSG,R1
1GET EXPD BUFFER ADDRESS
ORECMSG,R2
1GET RECV BUFFER ADDRESS
(R1).RO
1GET EXPD
(R2),R3
1GET RECV
RO,.R3
1 XOR EXPD/RECYV
mmscz RQ.('H)O.(R?)O R3
RS, - (SP)
(R2)+,-(SP)
(R1)+,-(SP)

MOV
MOV
MOV
TRAP
ADD
INC
cHP
BGE

MPRMSG2, -(SP)
#5,-(SP)
.
CSPNTX
014,5P
R4
R4 ,RS
SO
204

MOV

015035
000005

- NUMBER OF WORDS IN BUFFER

BR
RTS
.ASCIZ
.ASCIZ
.ASCIZ

R4, -(SP)

tNUMBER OF THE NEXT
;:DONE ALL YET?
1BR IF YES

100 ANOTHER
PC
tRETURN
'wNsA
Buffer Address = %01%05'
'wNsA Hcm Buffer Contents:’
'#NsA
D28A EXPD: #068A RECV: %06%A

XOR: %06’

TSV3 - GLOBAL AREAS

MACRO M1113

14-JUN-84 15:15

SEQ 0070

PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS

.EVEN
.SBTTL

1739
1740
1741
1742
1743
1744
1745
1746
1747
1748
1749
1750
1751
1752

PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER

;

tROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS

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

- NUMBER OF BYTES IN BUFFER

s IMPLICIT INPUTS:
:

:
:

EXPMSG
RECMSG

- EXPECTED MESSAGE BUFFER
- RECEIVED MESSAGE BUFFER

1753 015122
1754 015122
1755 015126
1756 015130
1757 015134
1758 015136
1759 015142
1760 015146

1761 015150
1762 015154
1763 015160
1764 015162
1765 015166
1766 015172

1767 015202
1768 015204
1769 015206
1770 015212
1771 015220
1772 015222
015222
015224
015230
015234
015236
015242
015246
0135250
01352352
1773 015256
1774 015266
1775 015270
1776 015270

1777 015300
1778 015300
1779 015302
1780 015304
1781 015306
1782 015310
015310
015314
015320
015324

PRBYTEXP:
:

010005
005037

002316

012701

002320

012702
111100

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

20¢:

$SAVE R1-RS UNTIL NEXT RETURN
$1SAVE NUMBER OF BYTES
sINIT ERROR COUNT

MOV
MOV
MOV8
B8IC
MOV
MOV

#EXPMSG,R1
#RECMSG,R2
(R1),.RO
0'C¢377’ RO
RO ,PRBEXP
(RZ).RS

lGET EXPD BUFFER ADDRESS
1GET RECV BUFFER ADDRESS
$1GET EXPD BYTE
tCLEAR UPPER BYTE
$sSAVE FOR ERROR REPORT
1GET RECV BYTE

MOV
XOR
c8
BEQ
INC
cp
BHI

RS ,PRBREC
RO,R3
(R1)+,(R2)+
304
PRMNO
PRMNO, #8.
308

stFOR ERROR REPORT
1 XOR EXPD/RECV
sEXPD = RECV?
18R IF YES
sUPDATE ERROR COUNT
sPRINTED 87
1BR IF YES

ADD

014,5P

BIC

177400
015472

000010

27%:
015472
015470
015336

000014

oy
35%:

002316
015423
000002

RO,RS
PRMNO

CLR

177400
015470

002316
002316

SAVREG
MOV
CLR

S04 :

PRINTX
MOV
MOV
MOV
MOV
MOV
MOV
MOV
TRAP

o*C<377>,R3

tNUMBER OF THE CURRENT BYTE

sCLEAR UPPER BYTE

&PRBMSG,R4 ,PRBEXP,PRBREC,R3
RS, (SP)
mc.-(sv)
PRBEXP, -(SP)
R4, -(SP)
O#PRBMSG, -(SP)
#5,-(SP)
SF,RO
CePNTX

FORCEXIT
BR
35¢
FORCERROR

SO0$

27%,NOTSSR

INC
cHP

BGE
BR
PRINTX
MOV
MOV

R4
R4 ,RS
SO¢
204
@&PRBTOT,PRMNO
PRMNO, -(SP)
OPRBTOT, -(SP)

MOV

SP.RO

;830
1880
1 820

1880

sNUMBER OF THE NEXT
tDONE ALL YET?
1BR IF YES
100 ANOTHER
sPRINT TOTAL ERROR COUNT

MACRO M1113 14-JUN-84 15:15
TSVS - GLOBAL AREAS
PRBYTEXP- PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER
015326
015330

104415
062706

000006

1785 015336
1786 015423
1787
1788 015470
1789 015472
1790

045
045

116
116

1;:2 015334
1

000207

000000
000000

1791
1792

TRAP
ADD

RTS
045
045

PRBMSG: .ASCIZ
PRBTOT: .ASCIZ
.EVEN
PRBEXP: .WORD
PRBREC: .WORD
.SBTTL
;e
3

SEQ 0071

CSPNTX
06,5P

sRETURN

‘NSA
BYTE 0sD2#A
EXPD: #03#%A
RECV:
‘#SNSA NUMBER OF BYTES IN ERROR = mD2’

0
0
EXPREC

1EXPD
sRECV
- PRINT EXPD/RECV WORD DATA

1793
1794
1795

sPRINT ROUTINE TO DISPLAY EXPD/RECV DATA
:
: INPUTS:

1797
1798
1799
1800

:
:
:
g

1802 015474
015474
1803 015474

EXPREC::

1796

1801

1804 015500

015500

1805

015500

004737

007740

L10017:

104423

1806

R1
R2

RECEIVED DATA
EXPECTED DATA

BGNMSG

EXPREC

JSR

PC.PRIXOR

TRAP
.SBTTL

CIMSG
EXPBREC - PRINT EXPD/RECV BYTE DATA

;PRINT THE DATA

1807
1808
1809

.
sPRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA
:

1811

: INPUTS:

1810

1812

1813
1814
1815
1816
1817
1818 015502

015502

:
P
:
;-

1819 015502
1820 015506

004737

015506

104423

015506

1821
1822

1823

007610

R1
R2

RECEIVED DATA BYTE
EXPECTED DATA BYTE

BGNMSG

EXPBREC

JSR
ENDMSG

PC.PRIBXOR

TRAP

CeMSG

.SBTTL

RAMERR

EXPBREC::

L10020:

sPRINT THE DATA

- PRINT RAM AND PACKET DATA

1824
1825
1826
1827
1828
1829

e
:
sPRINT ROUTINE TO DISPLAY RAM/PACKET DATA
;
;sINPUTS:
:

1831

POINTER TO COMMAND PACKET

#03%A

XOR: =03’

MACRO M1113
TSVS - GLOBAL AREAS
DATA
PACKET
AND
RAM
PRINT
RAMERR

14-JUN-84 15:15

SEQ 0072

s IMPLICIT INPUTS:

1832
1833
1834
1835
1836
1837
1838
1839
1840
1841
1842

RAMDATA
RAMSIZ

DATA AS READ FROM THE RAM
NUMBER OF BYTES IN PACKET

IF RAMSIZ=0 THEN DEFAWLT TO 8.

IMPLICIT OUTPUTS:

1843 015510
015510

1844 015510
1845 015514
1846
1847
1848
1849
1850
1851
1852
1853
1854
1855
1856
1857
1858
1859
1860
1861
1862

015514
015514

004737

013776

RAMERR:
:

L10021:

104423

SET T0 O

BGNMSG

RAMERR

JSR
ENDMSG

PC,PRAMPKT

TRAP

C$MSG

.SBTTL

RAMTADD - PRINT TEST ADDRESS, RAM AND PACKET DATA

;1PRINT RAM/PACKET DATA

sPRINT ROUTINE TO DISPLAY RAM/PACKET DATA
:

:
s INPUTS
;

POINTER TO COMMAND PACKET

;sIMPLICIT INPUTS:
:

RAMDATA

DATA AS READ FROM THE RAM

ERRHI
ERRLO

IF RAMSIZ=0 THEN DEFAULT TO 8.
HIGH ORDER TEST ADDRESS
LOW ORDER TEST ADDRESS

NUMBER OF BYTES IN PACKET

RAMSIZ

:
:
:

1863
1864

IMPLICIT OUTPUTS:

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

RAMSIZ

004737
004737
104423

010272
013776

RAMSIZ

SET T0 O

BGNMSG

RAMTADD

JSR
JSR

PC.PRITADD
PC,.PRAMPKT

TRAP

C$MSG

.SBTTL

RAMEXP

RAMTADD:
:

L10022:

ENDMSG

;1PRINT TEST ADDRESS
;PRINT RAH/PACKET DATA

- PRINT RAM EXPD/RECV DATA

sPRINT ROUTINE TO DISPLAY EXPD/RECV DATA
H

;s INPUTS:
H

;
$

R1
R2

RECEIVED DATA
EXPECTED DATA

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

14-JUN-84 15:15

1883

1884
1885

1886 015530
215530

1887 015530
1888 015534
1889 015540
1890 015544

042701
042702
004737
004737

015550

104423

1891 015550
015550

1892

RAMEXP::

177400
177400
010064
007740

L10023:

SEQ 0073

CONTROLLER RAM AD)RESS

BGNMSG

RAME XP

8IC
B8IC
JSR
JSR

#tC<377>,R1
0tC<377> ,R2

PC,.PRIRAM
PC,PRIXOR

TRAP

C$MSG

ENDMSG

1SAVE EXPD RAM DATA BYTE
$SAVE EXPD RAM DATA BYTE

1PRINT THE RAM ADDRESS
sPRINT THE DATA

.SBTTL TIMEXP - PRINT TIMER A,.B AND EXP/REC
T
3
;PRINT ROUTINE TO DISPLAY EXPD/RECV DATA
;:AND TIMER A,B HEADER MESSAGE
:
s INPUTS:
:
RECEIVED DATA
.
R1
EXPECTED DATA
:
R2
-

1893
1894
1895
1896
1897
1898
1899
1900
1901
1902

1903
1904

1905 015552

015552
1906 015552

TIMEXP::

015552
015556
015562
015564
015566
1907 015572
1908 015576

012746
012746
010600
104415
062706
004737

015576

104423

1910 015600

045

015576

1909

1911
1912

015600
000001
000004
007740
L10024:

116

045

TIMSGO:

.EVEN

1913
1914
1915

;e
:

1917
1918
1919

: INPUTS:
:

1921
1922
1923
1924

;
:
g~

TIMEXP

PRINTX

#TIMSGO
#TIMSGO, -(SP)

MOV
MOV
MOV
TRAP
ADD
JSR
ENDMSG

;PRINT HEADER

SP,RO

C$PNTX
04,5P

PC.PRIXOR

;+PRINT THE DATA

TRAP

C$MSG

.ASCIZ

‘#NSA TIMER A STATUS IS IN BIT 3sNsA TIMER B STATUS IS IN BIT 2°

.SBTTL

BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS

;PRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS

1916

1920

1925 015700
015700
1926 015700
1927 015702

BGNMSG

010246
042792

BADSSR: :
177400

CONTENTS or TSSR
DATA WRITTEN (8 BITS)

BGNMSG

BADSSR

MOV
BIC

R2,-(SP)
9177400,R2

1 SAVE DATA TRANSFERRED
1GET JUST ONE BYTE

MACRO M1113
14-JUN-84 15:15
TSVS - GLOBAL AREAS
. 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

000006

OXFERASC,R¢e
OXFERASC, -(SP)

SP,RO

C$PNTB
#6,SP

(SP)+,R2

PC.PRITSSR

006022
L10025:
116

SEQ 0074

045

XFERASC:

C$MSG
.ASCIZ

;RESTORE R2

:DECODE TSSR CONTENTS

'#NsA Data Transferred = %03’

TSV3

GLOBAL AREAS

MACRO M1113

GLOBAL SUBROUTINES SECTION

14-JUN-84 15:15

.SBTTL

1934
1935
1936
1937
1938
1939
1940
1941
1942
1943
1944
1945
1946
1947
1948
1949
1950
1951
1952

GLOBAL SUBROUTINES SECTION

: THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES
+ THAT ARE USED IN MORE THAN ONE TEST.
.SBTTL

SOFINIT - SOFT INITIALIZE OF CONTROLLER

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

;s INPUTS:
:

ADDRESS OF FIRST REGISTER

sOUTPUTS:

1953

1954
1955
1956
1957
1958
1959
1960
1961
1962
1963
1964
1965
1966
1967
1968 015774
1969 015774
1970 016000
1971 016006
1972 016012
1973 016016
1974 016020
1975 016024
1976 016030
1977 016032
1978 016034
1979 016036
198C 016040
1981 016042

SEQ 0075

:
:

RO
CARRY

3 CALLING
3
:

:
:

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

SEQUENCE:

MOV

JSR

ERRDF

®ADDRESS
,RS
PC,SOFINIT
CONTINUE

;REPORT FATAL ERROR

3
3

SOFINIT::
012765
004737
016500
010004
042704
052704

000002

SAVE THE REGISTERS

: DO THE INIT.

000002

PC,.WAITF
TSSR(RS),.RO

176277
002200

OSSR !NBA,R4

1R4 HAS EXPECTED CONTENTS

1BRANCH IF OKAY

10¢

:GO TO EXIT

016250

: WAIT FOR SSR
;GET THE TSSR REGISTER

RO,R&
.
1 TSSR CONTENTS
#1C<HIADDR!OFL
> ,R4

R4 ,RO

001402
000241
000261
000207

S$:
10%:

SEC
RTS

sONLY EXPECTED BITS SET ?

;CLEAR THE CARRY FOR ERROR

:SET THE CARRY BIT
tRETURN TO CALLER

TSVS - GLGAL AREAS

CHKAMB

MACRO M1113

CHECK TSSR FOR AMBIGUITY

1983

.SBTTL

1984

1985
1986
1987

CHKAMB

;FOR AMBIGUITY

1990

s INPUT:

1992

1997

1991

1993
1994
1995
1996

3
;OUTPUT
:
:
RO

1998
1999
2000
2001

:
3
3
3

2003 016044

CHKAMB;

2002

2004 016044
2005 016050

010004

2007 01605¢
2008 016060
2009 016064
2010 016066
2011 016070
2012 016074
2013 016076
2014 016102
2015 016104

001004
032700
001023
000424
032700
001011
032700
001414
042704

2017 016114
2018 016116
2019 016120
2020 016124

001007
000410
032700
001405

2021 016126
2022 016132
2023 016134
2024 016136
2025 016140
2026 016142

- CHECK TSSR FOR AMBIGUITY

1989

2016 016110

SEQ 0076

i
3
; THIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER

1988

2006 016052

14-JUN-84 15:15

032700

020427

032700
001002
000241
000401
000261
000207

100000

S$:

000040
177761

000016
000040

10¢:

000006

45%:
S0$:

SET - NO AMBIGUITY
CLR - AMBIGUOUS CONTENTS

RO,R4

BNE
BIT
BNE
BR
BIT
BNE
BIT
BEQ
BIC

S¢
1BRANCH IF YES
O'CGOA'WL'SSR!HIWD.RO
sANY OTHER BITS SET ?
40%
sMUST BE AN ERROR
454
sRETURN WITH SUCCESS
#SSR,RO
:+IS READY BIT SET ?
104
sBRANCH IF READY BIT IS SET.
#8ITS.RO
aIS FATAL ERROR BIT SET
?
404
;ERROR IF NOT
@+tCTERCLS,.R4
sCLEAR ALL BUT TERMINATION CODE

c
BNE
BR
BIT
BEQ
BIT

404 :

CONTENTS OF TSSR

SAVREG
MOV
BIT

174077

000200

CARRY

CONTENTS OF TSSR

BNE
CcLC
BR
SEC
RTS

oSC,RO

1SAVE THE GENERAL REGISTERS
sCONTENTS OF TSSR
+IS BIT 1S SET ?

R4,016

sALL THREE BITS MUST BE SET

#8IT2!8IT1,RO
454

sIS THIS A FUNCTION REJECT

404
454
#B8ITS,.RO
454

SO¢
PC

1ERROR IF MT SET
;O‘ IF ALL ARE SET
+IS FATAL ERROR BIT SET
?
tERROR IF BIT IS SET WITH SSR
1BR, IF TSSR IS OK
s AMBIGUOUS CONTENTS

1 SHOW SUCCESS - NO AMBIGUITY
;RETURN TO CALLER

M6
TSV3 - GLOBAL AREAS
MACRO M1113 14- M-M 15:15
ENAINT ,DSBINT - ENABLE/DISABLE INTERRUPTS
.SBTTL
3

SEQ 0077

2028
2029
2030

ENAINT,DSBINT - ENABLE/DISABLE INTERRUPTS

: DEFAULT DISPLAY INTERRUPT HANDLERS.

2032
2033

: OTHERWISE, SAVE DPU REGISTERS AND DISMISS.
3

2035

; BIT DEFINITIONS FOR “INTMASK” AND “INTFLAG” BYTES:

: IF DISPLAY TIME-OUT, REPORT DEV FATAL, AND ABORT PASS.

2031

2034

2036

2037
2038

000200
000001

2039

2040

JOKCKIN=BIT?
IOKSTP=BITO

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

|INTEW1 MASK -- SAYS EXPECTING INTERRUPTS

2041 016144

000

INTMASK :

.BYTE

2043 016145

000

INTFLAG:

.BYTE

2042

2045
2046 016146
2047
228‘.3 016150
2050
2051 016152
2052 016154
2053 016160
2054 016164
2055 016170
2056 016172
2057 016174
20502059 016202

2060

000000

1 SAVED INTERRUPT vecroa
.WORD
:SAVE CPU PC
INTCPC: .WMORD
O

010046

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

000000

013700
012720
012720
012600
011646
012766
000002

2061 016204

011646

2063 016214

000002

2062 016206
223:;

: INTERRUPT FLAG -- SAYS WE GOT ONE (IF POSITIVE)

012766

INTVEC:

002206
016216
000340
000000

000002

2069 016230

2070 016236

g;% 016240

000340

000002

012737
105037

000001
016145

002222

000001

016144

152737

000001

016145

132737
001003

nGET POINTER TO VECTORS
1SET UP INTERRUPT VECTOR
;RESTORE RO
1SET CPU TO LEVEL O

MOV
RTI

(SP),-(SP)

#PRIO7,2(SP)

.SBTTL

INTR

BGNSRY

INTR

1DEFINE INTERRUPT ENTRY

MOV
CLR8

#1,INTRECY
INTFLAG

1SET FLAG TO SHOM INTERRUPT RECEIVED
tCLEAR FLAG TO SAY WE GOT INTERRUPT

8IS

OINSTP INTFLAG .no SET THE ERROR FLAG.

8IT8
BNE

- INTERRUPT HANDLERS

OIG(STP INTMASK ;EXPECTING STOP INTERRUPT?

1BR IF YES

;SAVE REGISTERS, MSG BUFFER, ETC.

2074 016246
2075 016246

016246

DSBINT: MOV

San

2073

016246

RTI

IVEC.RO
OINTII.(I\O)o
#PRIO7,(RO)(SP)+,RO
(SP),-(SP)
#0,2(SP)

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

2066 8{:2212
2067 016216
2068 016224

MOV
MOV
MOV
MOV
MOV
MOV

14:

000002

L10026:

ENDSRV

" RTI

TSvS WAITF

MACRO M1113
GLOBAL AREAS
- WAIT FOR SUBSYSTEM READY

2079
2080
2081
2082
2083
2084
2085
2086
2087
2088
2089
2090
2091 016250
2092 016252
016252
3
209 016254
2094 016260
2095 016264
2096
2097 016266
2098 016270

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

14-JUN-84 15:15
SBTTL

2077
2078

N6
WAITF

SEQ 0078

WAIT FOR SUBSYSTEM READY

: SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG

: INPUTS;
:

ADDRESS OF FIRST DEVICE REGISTER

;OUTPUTS::

CONTENTS OF LAST TSSR READ

WAITF::

TRAP

C4BK

:
3

000401

104422
012746
016500
105700

011000

18:
24:

100420

012727
000000
013727
000000

005367
001375
005367
001367
005316
001356

000001

CARRY

BREAK

MOV
MOV

177772

177756

3%:
4

; DO A SUPVSR BREAK FIRST.

1ST8

:25-APRIL-83 REV B - 1100 MSEC TIMER
;READ THE TSSR REGISTER

BMI
DELAY
MOV
. WORD

3
1
®1,.(PC).
0

; EXIT ON STOP FLAG.
; WAIT 100 USEC

LHMORD

;TEST FOR READY BIT SET

LS$OLY,(PC).

DEC
BNE
DEC
BNE
DEC
BNE

-6(PC)
. -4
-22(PC)
.-20
(SP)
24

;REDUCE DELAY COUNT
;RETRY UNTIL TIMER EXPIRES

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

cLC

000241

;NOP WHEN SUPER FIXED

#11000, -(SP)
TSSR(RS),.RO

MOV

002116

SET - READY BIT SET
CLR - TIMEOUT WAITING FOR READY

SEC
DEC

RTS

(SP)«

; C = 0, CONTROLLER STILL RUNNING. ..

: C = 1, CONTROLLER IS STOPPED.
+RESTORE STACK WITHOUT CHANGING CARRY BIT

———

TSVS - GLOBAL AREAS
CHXTSSR

MACRO M1113

CHECK TSSR FOR READY

————

—

14-AN-84 15:15

.SBTTL

2107
2108
2109
2110

CHMXTSSR - CHECK TSSR FOR READY

1 THIS ROUTINE WAITS FOR READY IN THE TSSR
tAND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR.

2111
2112

1 INPUT:

2113

2114

ADDRESS OF CSR REGISTERS

CONTENTS OF TSSR

;OUTPUT

2115

2116
2117
2118

CARRY

2119

‘

2120 016336
2121 016336

CHXTSSR

016250

SET - OXAY

CLR - NOT READY AMBIGUOUS, OR SC SET

016044

100000

JSR
8cC
JSR
8CC
BIT
BEQ

PC.MAITF
204
PC.OKAMB
104
oSC.RO
154

sMAIT FOR READY
sBRANCH IF TIME OUT
1 TSSR AMB1GOUS?
18R IF YES
+SPECIAL CONDITION SET?
sBR IF NO

:13°]
CLC
8R
SEC
RTS

154

1BR IF NO
1SET FAILURE
'
1SET SUCCESS
sRETURN TO CALLER

BIT

074000

10¢:
154:
204 :

LSBTTL

O<SCE!BIERMR!NXM>
RO

204

XXM

;ANY ERROR BITS SET?

- CHECX FOR NONEXISTENT MEMORY

:oaoume TO TEST FOR A NEXM IN THE RANGE (R1) THRU (R2).
2138
2139
2140
2141
2142
2143 016376
2144 016404
2145 016412
2146 016414
2147
2148 016416
2149 016420
213C 016422
2151 016426

2152 016430
2153 016432
2154 016430
2155 016440

016440
016444

2156 016446
2157 016450
2158 016452
2159 016454

s+ ON RETURN, IF "C" = 1, (R1) = NEXM 2DORESS.
:
“C* = 0, ALL ADDRESSES Ox.
sCALL:

MOV

RETURN

3
012737
012737

016430

012700
104436
005703
001401
000207

XNXM:
14

005711

020102
001407
062701
000772
005103
012716

000004

MOV ADR1.R1

MOV

024,004

CLR

R1,R2

ADD
BR

2,.R1
14

MOV
34:

(R1)

BEQ

016440

JSR PC,NXM

RTI

CLRVEC

MOV

TRAP

#34,(SP)
o4

#4,R0

CeCVvEC

TST

RTS

BEQ
SEC

. +4

s TEST “C"~ AND PROCEED.

s SET BUSERR VECTOR.
1FLAG.

aTEST THE ADDRESS(ES).

IF ANY nw

1OTMERWISE,

CMM AT 28,

CONTINUE

18R IF me (NO 'EXH‘S).
1SET NEXT ADDRESS...
1...AND CONTINUE.

1...AND DISMISS INTERRUPT...

i...AND GIVE BACK THE VECTOR.

1DID WE CATCH ONE ?2?

iNO, “C" = O, SKIP NEXT,
sYES, "C” = 1, (R1) = NEXM ADOR.

MACRO M1113
TSVS - GLOBAL AREAS
TSTLOOP - CHECK ITERATION COUNT
2161
2162

14-JUN-84 15:15
LSBTTL

2163
2164
2165

2167

+ CALL: LOOPTO

2169 016456

TSTLOOP::

2168

giz 016506

€0 0080

TSTLOOP - CHECK ITERATION COUNT

1+ SUBROUTINE TO EXECUTE TEST ITERATIONS.
s EXIT WITH "C” SET IF LOOPS ALLOWED AND LOOP COUNT NON-ZERO.
:+ LOOP COUNTER IS SET BY “BEGIN.TEST” MACRO.

2166

2170 016456
2171 016462
2172 016464
2173 016470
2174 016472
217S 016476
2176 016500
2177 016502
2178 016504

005737
001006
005737
100403
005337

001002
000241
000401
000261
000207

002166
002202
002214

14:
24:
3s:

gig

ST
BNE
ST
B8MI
DEC
BNE
cLC
B8R
SEC

ARG

NOITS
14
QvP
8
LOOPCNT
2¢

s+ ITERATIONS INMIBITED?
s YES.
s NO.
sLOOPS DISALLOWED IN QUICK PASS.
:+ BUMP LOOP COUNTER.
;LOOP DISALLOWED, OR DONE.
sLOOP ENABLED.

RTS

LSBTTL

TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS

2183
2184
2185
g{:g

s
s+
s
:
3

2188

s INPUT;

2189

g{gg

:
:

2192

gi;‘s

POINTER TO TEST ID ASCIZ STRING

ADDRESS OF FIRST DEVICE REGISTER

g{g

sIMPLICIT OUTPUTS:
3

g{g

:
'

TSTCNT

UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART

:1SIDE EFFECTS:
$

2202
2203
2204
2205

2208 016510
2209 016512
2210 016516
2211 016522
2212 016526
2213 016532
2214 016536
2215 016540
2216 016544
2217 016546

sOUTPUT :

2193

2206
2207 016510

PRINT THE NUMBER AND NAME OF EACH TEST AS ME GO ALONG.
INCREMENT "TESTK” TO INDICATE THE NUMBER OF TESTS
IN THE CURRENT RUN SEQUENCE.
CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS.

H
3
s
;-

010046
005037
005037
005037
105037
013700
006300
005737
001430
100010

INTERRUPT LEVEL IS RASIED 70 LEVEL OF
THE DEVICE UNDER TEST

TSTSETUP:
;

003152
016756
005770
016144
002200

003112

MOV
CLR
CLR
CLR
CLR8S
MOV
ASL
ST
BEQ
BPL

RO, -(SP)
SIFLAG
ERRK
EXTA
INTMASK
UNITN,RO
RO
NODEV
a4
34

1SAVE THE TEST ID MESSAGE
3+ CLEAR "SOFT INIT* FLAG
3+ CLEAR LOCAL ERROR COUNTER.
3+ CLEAR ERROR EXTENSION FLAG.
3+ CLEAR INTERRUPT MASK (CHECK ERROR)
s+ GET THE UNIT NUMBER,
} ... AND MAKE IT A WORD OFFSET.
s+ DID STARTUP FIND THE DEVICE?
s BR IF YES
1 B8R IF NOT IDLE

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

2218 016550
2219 016556

016556
016560
016562
016564
2220 016566
2221 016570
2222 016576
016576
016600
016602

016604
222% 016606
2224 016614

016614
016620
2225 016622
016622

% 016624

2228 016626
016626
2229 016630
2230 016634
2231 016636
2232 016640
016640
016642
0156646
016652
016654
016656
2233 016662
2234 016666
016666
016672
2235 016674
2236 016676
2237 016702

2238 016704
2239
2240

(©S2760
104455
000001
003736
005734
000407
052760
104455
000002
004333
000000
012737
013700
104451

160000

160001

177777

003174

003110

3%:

2%:

002200

104444

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

045

TRAP
. WORD
. WORD
. WORD
BR
8IS
ERROF
TRAP

.WORD
. WORD
.WORD
MOV
DOV
MOV
TRAP
N
TR4P

BR
44

001000

016704
000002
000006
002212

1s:

002210
S$:

002204

123

2241
2242
2243

045

TNAM:

RFLAGS
TRAP
BIT
BEQ
MOV
PRINTF
MOV
MOV
MOV
MOV
TRAP
ADD
INC
SETPRI
MOV
TRAP
ST
MOV
RTS

.ASCIZ
.EVEN
.SBTTL

0160000,ERTABL(RO)

1,NXR ,NXRERR

E‘EROF

; FLAG ERROR IN THE ERROR TABLE

+ NO DEVICE MERE -- PRINT IV

NXR
NXRERR

24
9160001 ,ERTABL(RO)

2,NOINIT

3+ FLAG ERROR IN THE ERROR TABLE

+ DEVICE NOT IDLE

SOEROF

O'OINIT

+ DROP THE UNIT

UNITN
UNITN,RO
Cs000V

+ ABORT THE PASS

CSDCLN
S

s+ GET THE OPERATOR FLAGS.

s+ PRINT THE TEST NUMBERS?

IF NO
sCET THE ID MESSAGE
1DISPLAY THE TEST ID

s+ BUMP TEST COUNTER.
sPRIORITY THAT OF DEVICE

chRAM.RS

sFIX UP THE STACK

s+ ADDRESS OF TSV REGISTERS ON UNIBUS

'4SETEA Test'’

TSTEND

- PRINT ERRORS RECEIVED

s+ AT END OF EACH TEST, PRINT THE NUMBER OF ERRORS RECEIVED
+ IF NORMAL ERROR REPORTING IS DISABLED (FLA:IER).
3

2244

2245 016720
016720
2246 016722
2247 016726
2248 016730
016730
016734
016740
016744
016746

8IS
ERRDF

003174

SEQ 0081

104421
030027
001412
013746
012746
012746
010600
104417

020000
016756
016760
000002

TSTEND: RFLAGS
TRAP
BIT
BEQ
PRINTF
MOV
MOV
MOV
MOV
TRAP

RO
CORFLA
RO, #IER
14

SESUM, ERRK
#ESUM, -(SP)

SP,.RO
COPNTF

; BR IF "IER” NOT SET.

: PR INT ERROR COUNT.

MACRO M1113
TSVS - GLOBAL AREAS
- PRINT ERRORS RECEIVED
TSTEND

016750

2249 016754

062706
000207

2251 016756
2252 016760
2253 016777

000000
045
105

2250

2254

14-JUN-84 15:15

000006

101
122

040
122

18:

ADD
RTS

ERRK ;

ESUM:
EMAXDU:

.ASCIZ
.ASCIZ
.EVEN

SEQ 0082

06,SP

+ LOCAL ERROR COUNT,

/8A #DsA ERRORS/
/ERROR LIMIT REACHED

-- DROPPING UNIT/

MACRO M1113
14-JUN-84 15:15
TSVS - GLOBAL AREAS
- INCREMENT LOCAL ERROR COUNT
INCERK

.SBTTL

2256
2257
2258
2259

SEQ 0083

INCERK

INCREMENT LOCAL ERROR COUNT

:.ROUYIVES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT:
'-

2260 017044

2261 017050
2262 017052
2263 017056
2264 017060
2265 017064
2266 017066
2267 017072

2268 017074
2269 017076
2270 017100
2271

2272 017102
2273 017104
2274 017110
2275 017112
2276 017116
2277 017122
2278 017126
2279 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

003174

INCERK: INC

1%:

000207

104421
032700
001013
012737

104455

000004
016777

013700
104451
104444
000207

14
(RO)
(SP)+,RO

RTS

MOV
ASL
MOV

013700
042700
020037
103004
023737
103417

BNE
DEC
MOV

CKEMAX: MOV

010046

016000

RO, -(SP)
UNITN,RO
RO
#ERTABL ,RO
(RO)

BIT

007777

003174
170000
002172
016756

8IC
e

002170

1$:
000040

177777

003110

ERRK

MOV
MOV
ASL
ADD
INC

BHIS
ce
B8LO

RFLAGS
TRAP
BIT

BNE
MOV

#7777,(RO)

RO, -(SP)

UNITN,RO
RO
ERTABL(RO),RO

#170000,R0
RO, GERRMAX

14
K
, LERRMAX
ERR
24
RO
CSRFLA
#IDU,RO

24
#-1,00FLG

ERRDF

4 ,EMAXDU

.MORD
.WORD
LMORD

4
EMAXDU
O

TRAP

00DV
MOV

TRAP
DOCLN

INCREMENT LOCAL ERROR COUNT
SAVE RO
GET UNIT NUMBER,
... AND MAKE IT A WORD OFFSET.
RO GETS ADDRESS OF ERROR TABLE ENTRY.

INCREMENT THE DEVICE ERROR COUNT
DID WE OVERFLOW THE FIELD?
BR IF NO.
YES -- BACK IT WP T0 7777.
RESTORE RO
RETURN TO CALLER.

SAVE RO
GET UNIT NUMBER
... AND MAKE IT A WORD OFFSET
GET ERROR TABLE ENTRY
EXTRACT ERROR COUNT FIELD
g %MYES LIMIT EXCEEDED FOR THIS UNIT?

IS LOCAL LIMIT EXCEEDED FOR THIS TEST?
BR _IF NO
GET OPERATOR FLAGS
IS DROPPING INHMIBITED?
BR IF YES.
NO -- DROP THE UNIT

CSERDF

UNITN
UNITN,RO
C$DO0OV

TRAP

CS$DCLN

RTS

RESTORE RO
RETURN TO CALLER

TSVS - GLOBAL AREAS

CKDROP

MACRO M1113

14-JUN-84 15:15

SEQ 0084

BE DROPPED
- CHECK IF UNIT SHOULD

,SBTTL

2291
2292
2293
2294

CKDROP

- CHECK IF UNIT SHMOULD BE DROPPED

: CHECK IF UNIT SMOULD BE DROPPED

2295 017202
2296 017204
2297 017214

017214

2298 017216
2299 017222
2300 017224
2301 017226
2302 017234

CKDROP: MOV

010046

104421
032700
001010
011600
012737

017234
017240

013700

017242
2304 017244
2305 017246

104444

2303 017242

104452

F
RFLAGS
TRAP

BIT

000040

177777

003110

002200

18:

000207

RO, -(SP)
RO
CSRFLA

14,NOTSSR

’

#I0U, RO

BNE
MOV
MOV
DODU
MOV
TRAP
DOCLN
TRAP
MOV

14
(SP),RO
#-1,0UFLG
UNITN
UNITN, RO

RTS

.SBTTL

CONFIG

C$DOOU

;ABORT THE PASS

CSDCLN

(SP)+,RO

- DETERMINE CONFIGURATION OF SYSTEM

: SUBROUTINE - DETERMINE CONFIGURATION OF TSVOS SYSTEM.
2312 017250
2313 017250
2314 017254

004737
000207

CONFIG:

015774

JSR

RTS
SBTTL

PC,SOFINIT

PC
KTON,KTOFF

- ENABLE/DISABLE MEMORY MANAGEMENT

: SUBROUTINE - ENABLE MEM MGT.

2319 017256
2320 017262
2321 017264
2322 017272

005737
001403
012737
000207

KTON:

003130
000001

177572

18:

TST

KTFLG

MOV

#1,5R0

BEQ
RTS

s GOT KT?

s+ NO.

: YES. ENABLE KT11.

: SUBROUTINE - DISABLE MEM MGT.
2327 017274
2328 017300
2329 017302
2330 017304
2331 017306
2332 017314

005737
001405
000240
012737
000207

KTOFF:

003130

000000

177572

TST

BEQ
NOP
NOP

18:

MOV
RTS

KTFLG

. GOT KT11?

00, SRO

; DISABLE KT.

: NO.

H7
TSVS - GLOBAL AREAS

SETMAP

MACRO M1113

- SETUP PAR6 MAPPING

14-JUN-84 15:15

2334

.SBTTL

2335

2557

sAN 18 BIT ADDRESS. THE OFFSET INTO THE PAGE
:IS RETURNED BIASED TO PARG.
3

2341

2342

s INPUTS:

2344
2345

3
3

2343

2346

RO
R1

233:;

sOUTPUTS::

2349

2350
2351
2352
2353 017316

005737

001433
010102
000006

2362 017362

042701

gg;z

:
CARRY
:
SETMAP:

2356 017326
2357 017330
2358
2359
533:2
2363 017366
2364 017372
2365 017374
2366 017400
2367 017404
2368 017410
2369 017412
2370 017414
2371 017416
2372 017420

- SETUP PAR6 MAPPING

s THIS ROUTINE SETS UP KERNEL PAR6 TP MANDLE

2339
2340

235S 017322

SETMAP

2338

2354 017316

SEQ 0085

‘

020137
103011
010137
042702
062702
010200
000261
000401
000241
000207

SAVREG

003130

TST

BEQ
MOV
.REPT
ASR
ROR

000177

8IC

003130

172354
160000
140000

10s:
15¢:

cHp
BHIS
MOV
B8IC
ADD
MOV
SEC
BR
CLC
RTS

.SBTTL

HIGH ORDER ADDRESS BITS
LOW ORDER ADDRESS BITS
OFFSET INTO 3LOCK WITH PARG BIAS (I.E. THE ADDRESS)
SET IF SUCCESS
CLR IF ERROR

;SAVE R1-R4 UNTIL NEXT RETURN

KTFLG

1SYSTEM HAVE ABOVE 28K?

10¢
R1,R2
6
RO
R1

1BR IF NO
sSAVE LOW ORDER BITS

s CONVERT WORD ADDRESS TO 32W BLOCKS
tMAKE IT DOUBLE PRECISION

#177,R1

sALINE FOR LOMER 4K BOUNDARY

R1,.KTFLG
10¢
R1,9MIPARG
#160000,R2
#140000,R2
R2,.RO

sHIGHER THAN EXISTING MEMORY?
1BR IF YES
1SETUP MAPPING REGISTER PAR6
:SETUP DISPLACEMENT IN PAGE
1ADD IN PAR6 BIAS
sRETURN IN RO
:SET SUCCESS
3
:1SET FAILURE
;RETURN

154

PC
FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN

gg;z

;
3

2377
2378

:
:

‘2?%

2379
2380

3
:

INPUTS:

RO = BACKGROUND PATTERN
FREE
= FIRST LOCATION AVAILABLE TO DIAGNOSTIC

KTFLG

= SET TO HMIGHEST MEMORY LOCATION IF > 28K,

2383
2384
2385
2386
2387

: OUTPUTS:
3
;
NONE
;3
FILLMEM:

2388 017422

2389 017422
2390 017426

FILL MEMORY WITH A BACKGROUND PATTERN

004737

017274

SAVREG
JSR

PC.KTOFF

1SAVE R1-RS UNTIL NEXT RETURN
sDISABLE KT,

TSVS - GLOBAL AREAS

MACRO M1113

14-JUN-84 15:15

5EQ 0086

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 017552
2412 017556
2413 017564
2414 017572
2415 017574
2416 017600
2417 017602
2418 017606
2419 017612

2420 017516
2421 017620
2422 017624
2423 017626
2424 017634
2425 017636
242€ 017640
2427 017646
2428 017652
2429 017656

010003
013701
013702

010321
005302

003375
005737
001477
004737
005000
013701
000005

003122
003124

017256
003150

017316

005737

003142

013704
042704
022704

177572
177761
000016

005737
001410
023727

003144

001407

001415

103001
000403
012737
000137
004737

000207

CLC
ROL
ROL
.ENDR

30%:

160000
020000
000200
172354

172354
003130

JSR
MOV
ce
BLO
suB
ADO
ce

BEQ
TST

BEQ

MOV
8IC
cH
35%:

172354

007600

000020
017542

172516

017274

MOV
DEC

B8GT
TST
BEQ
JSR
CLR
MOV
.REPT

003130

004737
010320
020027
103774
162700
062737
023737

001427

10s:

MOV
MOV
MOV

BEQ

40%:
45%:

TST
BEQ
cHp
BHIS
BR
MOV
JP

55¢:

RTS

508 :

JSR

RO,R3
FREE,R1
FRESIZ,R2
R3,(R1)-

1COPY TEST PATTERN

1GET FIRST FREE LOCATION

554

1SIZE OF FREE SPACE BELOW 28K.
1STORE A BACKGROUND WORD
sDONE ALL MEMORY IN FREE SPACE?
1BR IF NO
3 GOT KT?
s NO. GET OUT

RO
:STSZU.RI

sMIGH ORDER ADORESS START
sGET >28K START ADDRESS (IN 32W BLOCKS)

R1
RO

sCLEAR C BIY
sCONVERT BLOCKS TO WORDS
sMAKE IT DOUBLE PRECISION

R2
104

KTFLG
PC.KTON

PC,SETMAP

R3,(RO)+
RO, #160000
304
9#20000,R0
9200, BKIPARG

SOKIPARG ,KTFLG
S04
T23A
354
#177761,R4

016,R4
S04

1238
454

SIKIPARG , #7600

404
454
920,SR3

304

PC.KTOFF
PC

: YES. ENABLE KT.

1SETUP PAR6 MAPPING REGISTER
sSTORE TEST PATTERN IN >28K ADDRESS
sEND OF PAR6 MAPPING AREA?
1BR IF NO
;1BACKUP INTO PAR6 MAPPING BEGIN
sPOINT TO NEXT 4K BLOCK >28K.
;END OF MEMORY?
1BR IF YES
:111/723A7
:1NO KEEP GOING
;GET SRO CONTENTS
;:CLEAR ALL BUT PAGE NUMBER
;SEE IF PAGE 7
;EXIT IF THERE
:11/7238?
1NO KEEP GOINsREACHED 18 BITS?

;YES

1iNO KEEP GOING
;SET 22 BIT RELOCATION
;KEEP GOING ON ETC.
;s DISABLE KT.

MACRO M1113
14-JUN-84 15:1%
TSV3 - GLOBAL AREAS
PATTERN
ND
BACKGROU
TO
MEMORY
COMPARE
CMPMEM

SEQ 0087

.SBTTL

2431
2432

CMPMEM

- COMPARE MEMORY TO BACKGROUND PATTERN

: COMPARE MEMORY WITH A BACKGROUND PATTZRN
INPUTS:

2433
2434

RO = BACKGROUND PATTERN

= FIRST LOCATION AVAILABLE TO DIAGNOSTIC

= SET TO MIGHEST MEMORY LOCATION IF > 28K.

OUTPUTS:

IMPLICIT OUTPUTS:
ERRHI
ERRLO
EXPD
RECV

ERROR HIGH ADDRESS

ERROR LOW ADDRESS
EXPECTED DATA
RECEIVED DATA

FREE
KTFLG

2453 017660
2454 017660
2455 017664
2456 017666
2457 017672
2458 017676

2459 017702
2460 017704
2461 017706
2462 017712
2463 017716
2464 017722
2465 017726
2466 017730
2467 017732
2468 017734
2469 017736
2470 017742
2471 017744
2472 017750
2473 017752
2474
2475
2476
2477
2478 020006
2479 020012
2480 020014
2481 020016
2482 020022
2483 020024
2484 020026
2485 020030

2486 020032
2487 020034

010003
004737
013701
013702
020311
001411
010137
005037
010337

011137

000474
005721
005302
003362
005737
001472
004737
005000
013701
000006

017274
003122
003124

SAVREG
MOV
JSR
MOV

10%:

cHP

002236
002234
002230
002232

:COPY TEST PATTERN

FREE,R1
FRESIZ,R2

$GET FIRST FREE LOCATION
sSIZE OF FREE SPACE BELOW 28K.

PC,KTOFF

R3,(R1)

15¢
R1,ERRLO

ERRHI
R3,EXPD
(R%).RECV
15%:

TST

(R1)e

104

KTFLG
554

003130

PC.KTON

017256

PST32u,.R1

003150

000177

30¢:
002234

cHP

sFREE SPACE LOCATION EQUAL TO EXPD?

i8R IF YES
1SAVE ADDRESS IN ERROR

tNO HIGH ADORESS
$SAVE EXPD FOR ERROR REPORT
:SAVE RECV FOR ERROR REPORT
3

sPOINT TO NEXT ADORESS

;DONE ALL MEMORY IN FREE SPACE?

1BR IF NO

s GOT KT?
s+ NO. GET OUT.

s+ YES. ENABLE KT,

sHIGH ORDER ADDRESS START

1GET >28K START ADDRESS (IN 32W BLOCKS)
sCONVERT BLOCKS TO WORDS

0177,R1

sALINE 4K BOUNDARY

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

1COPY ADDRESS BIASED TO PAR6
sRESTORE LOW ORDER IN NON PAR6 FORMAT
;RESTORE HIGH ORDER IN NON PAR6 FORMAT

324
RO,ERRHI

1BR IF YES
+SAVE HIGH ORDER IN ERROR

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

017316

1DISABLE KT.

RO
042701
010046
010146
004737
010004
012601
012600
020314
001411
010037

$SAVE R1-RS UNTIL NEXT RETURN

RO,R3

R3,(R4)

sMAKE IT DOUBLE PRECISION
1 SAVE HIGH ORDER
1SAVE LOW ORDER
:SETUP PAR6 MAPPING REGISTER

+ABOVE 28K LOCATION EQUAL EXPD?

MACRO M1113
14-JUN-84 15:15
- COMPARE MEMORY TO BACKGROUND PATTERN

TSVS - GLOBAL AREAS

CHPMEM

2488 020040

2489 020044

2490 020050
2491 020054
2492 020056
2493 020062
2494 020064
2495 020070
2496 020074
2497 020076
2498 020102
2499 020110

010137
010337
011437

002236
002230
002232

062701
005500
062704

002002

000421

020427
103755
162704

062737
023737
101744
004737

000002
160000

020000
000200
172354
017274
017274

MOV
MOV

R1,ERRLO
R3,EXPD

ADD
ADC
ADD

#2,R1
RO
2,R4

ONRW

324:

172354

003130

S0$:

SS54:
60%:

5EQ 0088

gg:).RECV

R4, 0160000
304
920000, R4
0200, 80KIPARG
SOKIPARG ,KTFLG

JSR

PC.KTOFF

CcLC

304

604

RTS

JSR
SEC
.SBTTL

1UPDATE NON PAR6 ADDRESS
sMAKE IT DOUBLE PRECISION ADD
tUPDATE PAR FORMAT ADDRESS

sEND OF PAR6 MAPPING AREA?
1BR IF NO
1BACKUP INTO PAR6 MAPPING BEGIN
sPOINT TO NEXT 4K BLOCK >28K.
END OF MEMORY?
1BR IF NO
s TURN OFF MEMORY MAPPING

1SET FAILURE
B

PC,.KTOFF
REGSAV

$SAVE RECV FOR ERROR REPORT
'

cHe
BLO
SuUB
ADD
cHP

BLOS

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

;TURN OFF MEMORY MAPPING
1SET SUCCESS
- SAVE R1-RS ON STACK

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

:CALLING SEQUENCE
:
:

JSR

RS ,REGSAV

:THIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO
s THE CALLING ROUTINE. AT THE END OF THE CALLING ROUTINE,
‘;'Eglg;gflgc RETURNS CONTROL TO THIS ROUTINE TO RESTORE
‘

: THIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE
sCALLED VIA A JSR PC INSTRUCTION
:
‘-

REGSAV:

2539 020170
2540 020172

MOV
MOV

RS, -(SP)
R2,-(SP)

MOV

RS, -(SP)

MOV
MOV
MOV

(SP)+,R3
(SP)+,R4
(SP)+,R5

RTS

T
. GETPAT

MACRO M1113

14-JUN-84 15:15

Gl: GET 8 BIT PATTERN FROM OPCRATOR
GLOBAL AREAS

.SBTTL

GETPAT

- GET 8 BIT PATTERN FROM OPERATOR

:RWTI'E TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR

NONE.

: INPUTS:

;sOUTPUTS:

OCTAL NUMBER FROM THE OPERATOR

sCALLING SEQUENCE:

JSR

PC.GETPAT

GETPAT:
:

14:

16000$:

SAVREG

1SAVE THE GENERAL REGISTERS

GMANID

OATASC,PATDAT,.0,377,0,377.NO

.WORD
.WORD
.WORD
.WORD
.WORD
LWORD

PATDAT
T$CODE
DATASC
377
TSLOLIM
TSHILIM

TRAP
BR

CS$GMAN
100004

BNCOMPLETE
8CC

MOV

RTS

PATDAT,RO

sRETRY IF ERROR
:DATA PATTERN FROM OPERATOR

;RETURN TO CALLER

HEJ

:LOCAL DATA AREA
,

105

116

124

PATDAT:

DATASC:

.WORD

.ASCIz
.EVEN

s TEMPORARY STORAGE FOR DATA

'ENTER DATA PATTERN'

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

SEQ 0090

2569
2570
2571
2572
2573

.SBTTL GETSEL
- ISSUE MENU AND GET OPERATOR RESPONSE
i
;ROUTINE TO ISSUE A MENU AND GET THE OPERATOR'S RESPONSE.
3
: INPUTS;

2575

2574

2576

2577
25;8
25
2580 020256

2581 020256
2582 020262
2583 020264

2584 020266
2585 020270
2586 020272
020272
020274
020300
020304

010002
010203

020316

104443

020320
020322
020324
020326
C20330
020332
020334

000406
020476
000042
020447
177777
000000
177777

020336

103352

020336
2589 020336

14:

005713
001412

020310
2587 020314
2588 020316

24:

020442
000002
000006
3s:

10001¢:

2590 020340
2591 020344
2592 020346

013700
020001
101411

020476

020350
020354
020360
020362
020364
2594 020370
2595 020372
2596 020374
2597 020442
2598 020447

012746
012746
010600
104417
062706
000735
000207
045
045
105

020374
000001

<600 020476

000000

2593 020350

s WTPUTS:
:
RO
3 GETSEL::

012346
012746
012746
010600
104417
062706
000764

020306

116
116
156

RO,R2
R2,R3

TRAP

CHPNTF

TST
BEQ
PRINTF
MOV
MOV
MOV
MOV
ADD
BR

1 SAVE GENERAL REGISTERS
:SAVE THE MENU ADDRESS

(R3)
34
@SELASC,(R3)-.
(R3)+,-(SP)
@SELASC, -(SP)
#2,-(SP)
SP,RN0

1START OF MENU STRING

;END OF ASCII ?
:BRANCH IF ALL LINES DISPLAYED
;DISPLAY THE MENU

#6,SP
2¢

GMANID

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

BR
WORD
. WORD
.WORD
. WORD
WORD
. WORD

MENASC

TRAP

C4GMAN

TOHILIM

BNCOMPLETE
MOV
cHp
BLOS

PRINTF

045
045
164

NUMBER OF THE OPERATOR'S SELECTION

SAVREG
MOV
MOV

8cC

000004

ADDRESS OF ASCIZ STRING OF MENV

MAXIMUM ALLOWABLE OPERATOR RESPONSE

MENRES ,RO
RO,R1
S¢
#MENERR

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

MOV
MOV
MOV
TRAP
ADD
BR
S5¢:
RTS
MENERR: .ASCIZ
SELASC: .ASCIZ
MENASC: .ASCIZ

OMENERR, -(SP)
01,-(SP)
SP,RO
CSPNTF
04,5P
14
tRETRY
PC
tRETURN TO CALLER
'#NsA sss Menu Selection Too Laerge #e&¢’
'#NsT’
'Enter Menu Selection: '

MENRES :

.WMORD

TSVS

- GLOBAL AREAS

CHKMAN

MACRO M11135

14-JUN-84

- CHECK MANUAL INTERVENTION LEGALITY

.SBTTL

2602
2603
2604
2605
2607
2608
2609
2610
2611
2612
2613
2614
2615
2616
2617
2618
2619
2620
2621
2622
2623
2624
2625

2627
2628

CHKMAN

5EQ 0091

CHECK MANUAL

INTERVENTION LEGALITY

;RWTI'€ TO TEST FOR MANUAL INTERVENTION LEGALITY.
: INPUT:

2606

2626

15:15

{OUTPUT
H

.
"

CARRY

MANUAL INTERVENTION NOT ALLOWED
MANUAL INTERVENTION IS OK

:SIDE EFFECTS:

:
:

CHIKMAN: :

104450
103411

012746
012746
010600
104417
062706

020534

18:

000207

045

1i6

045

NOMAN:

A MESSAGE IS DISPLAYED WARNING THAT TEST IS

NOT EXECUTED IF MANUAL INTERVENTION IS NOT
ALLOWED
.

SAVREG
MANUAL

;SAVE THE REGISTERS
iSEE IF MANUAL INTERVENTION OK

ggms ETE.M

TRAP

CSMANI

;BRANCH IF ALLOMED

PRINTF

ONOMAN
ONOMAN., -(SP)

PRINT THE WARNING MESSAGE

MOV
MOV
TRAP
ADD
CLC
RTS

01, -(SP)
SP.
CSPNTF
04,5P
PC

.ASCIZ

'#NsA s++ Manual Intervention not Allowed -

.even

;CLEAR CARRY FOR ERROR
{RETURN
Test Aborted ¢ss’

TSVS
- GLOBAL AREAS

ENVIRN

MACRO M1113

- SETUP FREE DIAGNOSTIC SPACE

14-JUN-84 15:15

.SBTTL

2635
2636
2637
2638

2639 020630
020630
2640 020632
2641 020636
2642 020644
2643 020650
2644 020656
2645 020662
2646 020670
26A7 020672
2648 020674
2649 020700
2650 020704
2651 020710
2652 020714
2653 020716
2654 020722

2655 020724
2656 020730
2657 020734
2658 020736
2659 020740
2660 020744
2661 020730
2662 020754
2663 020736
2664 020762
2665 020764

2666 020766
2667 020772
2668
2669
2670 021000
2671 021002
2672
2673
2674 021006
2675 021006

B8
SEQ 0092

ENVIRN

- SETUP FREE DIAGNOSTIC SPACE

l SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS.
10443]1

010037

mxm; mv
003122
000002
003124
000004
002012
000007

nov

003122
003124
003124

108:

003122
003124
000002
003126

177520
000002
016376

15¢:

177520

000001
177520

177520
003142
170000

002120

CIMEM
RO, FREE

ADD
MOV
SUB
MOV
SUB
DEC
BNE
MOV
ADD
SUB
MOV
NOP
MoV
MOV
ADO
JSR
8CC
BR
MOV
ADO
MOV
INC
MOV

02, FREE
(RO),FRESIZ
04 ,FRESIZ
LIUNIT,R2
07 ,FRESIZ
R2
104
FREE,RO
FRESIZ.RO
02 ,RO
RO, FREEMI

8IC

€170000,L $HIME

ow
BNE
INC

#80VPCA,R1
R1,R2
#2,R2
PC , XNXM
154
404
BOVPCR,R1
o1,R1
#B0VPCR,R2
(R2)
BOVPCR,R3
R1,R3
204
T23A

NOP

204 :
'

BR
INC
NOP

404
1238

PRINTF

#M8189

RTS

003144

‘O :

PRINTF

#M8186

s+ GET 1ST FREE ADORESS...

1...AND WORD COUNT,
s GET NMUMBER OF UNITS
1 TAKE AMAY 7 WORDS PER UNIT
1GET FIRST FREE ADORESS

sPOINT TO LAST FREE ADDRESS
1SACKUP 1 WORD
1STORE LAST FREE ADDRESS
1000000000640000000000000008000000000000000
lfi? B80V11 PCR ADDRESS
1COPY T0 R2
1SET THE RANGE
1SEE_IF ME MAVE ONE
10X TO SET FLAGS
sRETURN WITH FLAGS CLEAR
1SAVE PCR CONTENTS
sADD ONE TO IV
1GET B0V11 PCR ADDRESS
sTRY TO WMRITE TO IV
1GET RESWLTS
10ID IT CHANGE?
sNO, MUST BE 11/238
1SET THE FLAG
SUPERVISOR COULD BE WRONG

1BR 40¢ FOR RELEASE

1 TELL THE SYSTEM TYPE

IRETURN
1SET THE FLAG
1BR 404 FOR RELEASE

+TELL THE SYSTEM TYPE

s RETURN

TSVS - GLOBAL AREAS

KTINIT

MACRO M1113

14-JUN-84 15:15

SEQ 0093

- SETUP KT11 MEMORY MANAGEMENT REGISTERS

.SBTTL

2677
2678

2679
2680

2699 021104

2705
2706 021126

2707 021132

2708
2709 021134
2710
2711 021140

SETUP KT11 MEMORY MANAGEMENT REGISTERS

tROUTINE TO INIT KT-11
'
.-

003130
003132
002120

KTINIT:

001577

021126

177572

002120
000177
172340
077406

003130
003130

1s:

LOHIME, #1577
9¢
SPERRVEC,RO
024 ,00ERRVEC

BOSHO

MOV

LOMIME ,KTFLG

MOV

+SOERRVEC

CLR

177740

KTFLG
KTENABLE

TST

8IC

0177 ,KTFLG

MOV
MOV

OKIPARO,R1
977406, -40(R1)

ADD
cw
BNE

#200,RO
RO, #2000
1

MOV

177600

021134

CLR
CLR
cw
B8LOS
MOV
MOV
NOP

2700 021106
2701 021112

2702 021116
2703 021120
2704 021124

2681
2682
2683

2684 021010
2685 021010
2686 021014
2687 021020
2688 021026
2689 021030
2690 021034
2691 021042
2692 021046
2693 021030
2694 021056
2695 021064
2696 02107C
2697 021072
2698 021076

KTINIT

0177600, -(R1)

24:

MOV

#564,(SP)

64:

MOV

RO, S#ERRVEC

9¢:

RTS

RTI

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

%7 ENOUGH MEMORY {>28K)?
SAVE OLD ERR VEC PTR.
SET ERR VEC PTR.
GOT KT11?
(TRAP IF NO).
YES. SET KT FLAG.

RESTORE OLD ERR VEC PTR.

RO = AR DATA,
Rl = KI REGS PTR.

SET DESCRIPTOR REG.
SET KIPAR REG.
BUMP AR DATA BY “4x",
AT *1/0"?
NO.
YES. SET KTPAR7 FOR I1/0.
SET UP RETURN

RTI TO NEXT LOCATION

RESTORE OLD ERR VEC PTR.

TSVS - GLOBAL AREAS

KTINIT

MACRO M1113

14-JUN-84 15:15

SEQ 0094

- SETUP KT11 MEMORY MANAGEMENT REGISTERS
Ld

2713

2714

SUBROUTINE T0O SET EXTENDED FEATURES SWITCH

2716

Reaquires that SOFINIT and WRTCHR have been done previous to ceall.

2715

2717

2718
2719
2720
2721
2722

OUTPUTS:

CURRENT UNIT NUMBER

The Extended Features Switch

is set.

2723

2724

2725

2726 021142
2727
2728 021142
2729 021146
2730 021150
2731 021156
2732 021164
2733 021172
2734 021200

2735 021204
2736 021210
2737

INVERT:
005737
001020
012737
012737
012737
012737

002224

004737
000207

010662

100206
100010
021214

021214
021216
021222
021224

EXTFEA

MOV

#100206 , CMOPKT

s WRT SUB-SYS MEM CMD

MOV
MOV
MOV
JSR

06,0M0PKT +6
9100010, WSMBK
#CMOPKT R4
PC.WMRTCHR

MOV

18:

2738
2739
2740
2741
2742 021214
2743 021216
2744 021220
2745 021222
2746
2747

TST

BNE

CMDPKT: ::

USMBK , CMDPKT 2

<.+3>£177774

:
3

s
s+
:+
;s

BYTE COUNT
INVERT THE SWITCH
SET CMDPKXT INTO R4
DO IT

3+ RETURN

sMUST BE ON MOD 4 BOUNDRY
.

$+1ST WORD IS TSOS COMMAND.

s3RD WORD IS THE BUFFER HMIGH ADDRESS.
34TH WORD IS THE BYTE/RECORD/FILE COUNT.

32ND WORD IS THE BUFFER LOW ADDRESS.

WRITE SUB-SYSTEM MEMORY CHARACTERISTIC BLOCK.

$+1ST WORD:: SEL
O

12ND WORD:: SEL 2

0
.EVEN

2751 021230

s+ MSG BUF ADDR

WSMBK:: O

2749 021224

IS SWITCH SET?

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

COMMAND PACKET.
o

2748

+3RD WORD:: SEL 4

SUBROUTINE TO CHECK WETHER OR NOT WE'LL TEST NXM

s INPUTS:

sOUTPUTS:
:

2760
2761
2762

is set

if we coan test.

MEMCK
: ;

2763 021232
2764

2765 021232
2766 021236
2767 021242
2768 021246
2769 021252

The NXMFLG

The NXMLO end NXMHI addresses ere setup.

005037
005037
005037
005737

003134
003136
003140
003144

SAVREG
CLR
CLR
CLR
TST

NXMFLG
NXMLO
NXMHI
1238

1SAVE THE REGISTERS
tCLEAR THE FLAG
1CLEAR THE TEST ADDRESS LO
t1CLEAR THE TEST ADDRESS MI
1IS IT A 1172387

TSVS - GLOBAL AREAS

KTINIT

MACRO M1113

14-JUN-84 15:15

SEQ 0095

- SETUP KT11 MEMORY MANAGEMENT REGISTERS

2770 021256
2771 021260

2772 021266
2773 021270

2774 021274
2775 02127€
2776 021302
2777 021304
2778 021312
2779 021314

2780 021322
2781 021324
2782 021330
2783 021332
2764 021340
2785 021342
2786 021346
2787 021354
2788 021360
2789 021362

2790 021364
021364
021370
021374
021376
021400
g;:é 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
003142

005777

002120

003777

002120

001577

021406
000077
003134

003140

13:

15¢:
i

BR
TST
BEQ
cHp
BHI

134
T23A
44
LOHIME, 05777
144

1SET THE FLAG AND EXIT
+IS IT A 11/723A7
§NO
1GREATER THAN 96K
s YES,23A/238 WITH 128K MEMORY

43
PC,NXMTST
134
LOHIME, 01577
144
PC ,NXMTST

iNO, CHECK 24K
1SETUP THE ADDRESS
1SET THE FLAG AND EXIT
sGREATER THAN 24K BUT LESS THAN 64K?
sNO, TELL THEM AND EXIT WITH FLAG CLEAR
1SETUP THE ADDRESS

BLO
JSR
B8R
ce
8LO
JSR

ADO
INC
BR
BR

PRINTF
MOV
MOV
MOV
TRAP
ADO
RTS

4
PC,NXMTST

LOHIME, 03777

077 ,NXMHI
NXMFLG
15¢
15¢

ONOMEM
ONOMEM, -(SP)
0,-(SP)
SP,RO
CHPNTF
o4, SP
PC

sOUTPUTS : NXMLO , NXMHI
;

2800 021406
2801 021412

013701
062701

2803 021422
2804
2005
2806
2807 021440
2808
2809
2810

010102
000006

042701

002120
000200

000177

010137
000012

003136

042702
010237
000207

177700
003140

s NO
1SETUP THE ADDRESS

tGREATER THAN 64K BUT LESS THAN 92x?

sFOOL THE 11/02 € 11/03
+SET THE FLAG
sEXIT
tNOP FOR FRINTOUT

sTELL THEM € EXIT s4eND PRINTessee

tRETURN

SUBROUTINE TO SETUP THE NXM ADDRESS FOR TESTING

2798

2815 021502

44:

005456
000001
000004

1NO
+ GREATER THAN 128K

14%:

g;g

2811 021470
2812 021474
g:{: 021500

2%:

021406

g;:

2802 021416

14:

002120

14
LOHIME , 07777

8LO
JSR

021406

2793

2799

007777

BEQ
cHp

1SETUP WITH NXM ADDRESS

NXMTST: MOV
ADD

LSHIME ,R1
#200,R1

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

MOV
.REPT
ASL
.ENDR
MOV
.REPT
ASR
.ENDR

R1.R2
6
R1

tRESAVE RESWLTS

R1,NXMLO
10.
R2

1SAVE TEST ADDRESS LOW

RTS

#177700,R2
R2 ,NXMHI

sDON'T WANT ILA!
1SAVE TEST ADDRESS HIGH

8IC

8IC
MOV

ENOMOD

#177,R1

tPUT IN PLACE FOR XFER

1PUT IN PLACE FOR XFER

iRETURN

MACRO M1113 14-JUN-84 15:15
TSva - MISCELLANEQUS SECTIONS
REGISTERS
MANAGEMENT
KTINIT - SETUP KT11 MEMORY
LTITLE

9 021502
021502
10

TSva:

16
17
18
19

20 021502
021502

21 021502
22 021512

177777

L$PROT::

TSva

SEQ 0096

- MISCELLANEOUS SECTIONS

TSva

.SBTTL PROTECTION TABLE
BGNPROT

#NO DEVICE PROTECTION REQUIRED.

———
e
et
e
.+

TSVA - MISCELLANEOUS SECTIONS

INITIALIZE SECTION

MACRO MIl113

.SBTTL

—
s

30
31

+IF "CONTINUE”, NOTHING IS REQUIRED.

SEQ 0097

:IF "START” OR “RESTART", SET QUICK-PASS FLAG AND BUS-INIT.

32
33
34

s INSERT TEMPORARY JUMP TO 0DT

35
36

37 021512
021512
38 021512
39 021516
40 021522

002224
003134

41 021530

005037

43 021540
44 021544

005037

42 021534

003152
003132
002300

LSINIT::

40%:

002176

47 021562

023737

EXTFEA
NXMFLG
#EPRT] ,EPRTSW
SIFLAG
KTENABLE
RAMSIZ

MOV
TRAP

OEF . CONTINUE ,RO

8CC

002012

005761

BMI
MOV

NXTU
WITN R1

BEQ
BIT
BNE

003174

EXIT

14:

UNITN,LSUNIT
4

ASL
TST

006301

000035

#EF .CONTINUE

cwe
BHIS
TST

48 021564

49 021570

50 021572
51 021576
52 021600
53 021604
54 021606
55 021614
56 021616
021616
021620
57 021622
021622
021626
58 021630
021630

CLR
CLR
MOV
CLR
CLR
CLR

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

CSREFG
BNCOMPLETE 14

45 021552

021552
46 021554

BGNINIT

READEF

000036

021544
021550

DUFLG

sUNIT IN RANGE?
;BR IF NO.
;DROPPED UNIT?
:BR IF YES

Efltm(“l )

SETU
0011’14 ERTABL(R1)
NXTUY
INIT

TRAP

CSEXIT

READEF

#EF .NEW

s DROPPED?
;00 NOTHING IF "CONTINUE".

s TAKE NEXT UNIT IF NOT NEW PASS.

59 021632

63
64

—

:TFE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED

+AT THE BEGINNING OF EACH PASS.

——

INITIALIZE SECTION

14-JUN-84 15:15

021632
021636
021640
021640
021642
021642
021646
021650
021650
021652
021652
021652

READEF

OEF .RESTART

8cC

314

MOV
OEF .RESTART RO
TRAP
CSREFG
BNCOMPLETE 314

000037

24:

BRESET

TRAP

CSRESET

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

TSv4 - MISCELLANEOUS SECTIONS
INITIALIZE SECTION
65 021654
66 021660
67 021664
68 021670
69

005037
005037
005037
005037

MACRO M1113

14-JUN-84 15:15

CLR

002212
002220
003142
003144

CLR

CLR
CLR
MOV
MOV
JP
CLR

72 021674
73 021700
74 021700

75 021706
76 021712

77 021716
78 021722
79 021724

80 021730
81 021732
82 021734
83 021740

85
86
87
88

89
90

91
92

021744
021744
021752
021756
021756
021760
021764
021772
021774

005037

003376

012737
004737
004737
012700
005020
020027
103774
000404
005037
000137

177777
020630

012737
005037

104422
005237
023737
103423
012737
000401

021010
003174

002012

177777

003110

023727
101752
005737
001747
104421
032700
001343

002012

012001
010137

s INIT UNIT NUMBER...
tCLEAR COUNT OF DEVICES RUNNING

TRAP
INC

C4BRK
UNITN

i...AND SET NEXT UNIT NUMBER.

BREAK

BLO
MOV
BR
114:
PASRPT ;

ce
BLOS

LSUNIT, 01
NEWPAS

BEQ

NEWPAS

TRAP

CSRFLA

NOP

BIT

BNE
DORPT

TRAP

10¢:

SETU:

SETU
¢-1,0UFLG
11¢

C$OCLN

TST

000100

UNITN,LSUNIT

TRAP

RFLAGS

013700
104442

114 022064

#-1,UNITN
DEVCNT

002216

104424
000741

103342
005037
005237

CLR

DOCLN

104444
000240

DEVCNT

#ISR,RO

NEWPAS

GPHARD

UNITN,RO

MOV

002204

8CC
CLR
INC

MOV
MOV

1CLEAR THE ERROR TABLE

1G0 REPORT THE STATUS

sABORT, NO MORE UNITS.

sHOM MANY UNITS SELECTED?
;BR IF ONLY 1
sARE ANY STILL RUNNING?
;:BR IF NO
sSHOULD WE PRINT STATISTICS
:BR IF NO

CSORPT

UNITN,RO

TRAP
CSGPHRD
BNCOMPLETE NXTU

003110
002216

sRETURN TO DEBUGGER
+ 1 88ENTER THE DEBUGGER
tCLEAR THE SUBTEST “SKIPPER”

NEWPAS: MOV
NXTU:

002200
002200

tCLEAR FATAL ERROR COUNT
1CLEAR 11/23A FLAG
1CLEAR 11/238 FLAG

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

4%:

177777
002216

T23A
1238
0340, -(SP)
0204, -(SP)
0.007
SKIPT

tNUMBER OF TESTS RUN IN PASS

e-1,QvP
PC.ENVIRN
PC,KTINIT
OERTABL ,RO
(RO).
RO, #ERTABE
304
44
QvP
PASRPT

31%:

002202
022010

TSTCONT

FATFLG

SEQ 0098

MOV
JSR
JSR
MOV
CLR
ce
BLO
BR
CLR
JP

30¢:

003374

NXTU
DUFLG
DEVCNT

(RO)+,R1
R1,CSRADDR

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

1CLEAR “DROPPED" FLAG.

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

TSVA - MISCELLANEOUS SECTIONS
INITIALIZE SECTION

MACRO M1113

14-JUN-84 15:15

115

116 022070 012001

MOV

119 022072 010137 002206
120 022076 012721 016216
121 022102 013721 002210

MOV
MOV

117
118

123 022106

18:

125

124

;GET VECTOR ADDRESS.

MOV

R1,IVEC
OINTR,(R1)+
IPRI,(R1)+

1SET INTERRUPT VECTOR POINTER...
..
i...VECTOR.

TST

QvP

BEQ

(RO),R2
R2, IPRI

1GET INTERRUPT PRIORITY
sSET INTERRUPT PRIORITY.

:...AND PRIORITY.

:1ST PASS 27

;NO, SKIP HE PASS 1 STUFF.

128

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

1233
1

131 022106
132 022112
133 022114
134 022122
135 022126
136 022134
137 022136

013701 002200
006301
0S2761 100000
005037 005770
023727 002012
101416

:THAT THE DISPLAY STATUS IS PROPERLY INITIALIZED.
3

003174
000001

139 022144

001412

022146
022152
022156
022162
022164
022166

013746
012746
012746
010600
104417
062706

002200
022240
000002

142 022172 005037
143 022176 013701
144 022202 010102
145 022204 062702
146 022210 004737
147 022214 103005
148 022216 010137
149 022222 012737
igg 022230

003112
002204

140 022146

141 022172

UNITN,R1
R1
#B8IT15,ERTABL(R])
EXTA
LSUNIT, 01
108

1SAY DEVICE RUNNING
;CLEAR ERROR EXTENSION FLAG.
;me WE TESTING MALTIPLE UNITS?

TRAP
BIT

CSRFLA
#PNT RO

;SHOULD WE PRINT UNIT @7

PRINTF

OPUNIT,UNITN

BEQ

000006

108:

000002
016376

003112
177777

MOV
ASL
8IS
CLR
iz
8LOS

RFLAGS

022136 104421
138 022140 032700 001000

002110

2s:

104

MOV
MOV
MOV
MOV
TRAP
ADD

UNITN, -(SP)
OPUNIT, -(SP)
02,-(SP)
SP,RO
CSPNTF
06,5P

CLR
MOV
MOV
ADD
JSR
8CC
MOV
MOV

NODEV
CSRADDR ,R1
R1,R2
OTSSR,R2
PC , XNXM
24
R1,NODEV
0-1,DUFLG

;BR IF NO.

;YES -- GET OPERATOR FLAGS.

;BR IF NOT.

;PRINT THE UNIT ¢

;ADDRESS OF FIRST REGISTER
;START OF REGISTERS
;ADDRESS OF TSSR REGISTER
;1551 BOTH CONTROLLER REGISTERS. ..
..AND BR IF ALL OK.
m.Ac DEVICE AS NON-EXISTENT
;DROP THIS UNIT.

i-'s»g

sFINALLY, SET CPU PRIORITY AND WE'RE DONE.

154 022230

022230
022234

155 022236

012700
104441

022236
o 022236

104411

157 022240

045

158

(RO)+,R1

+MOV
sMOV

122

Ss:

000000

L10030:
116

045

PUNIT:

SETPRI

#PRIOO

;ENABLE INTERRUPTS.

MOV
TRAP

#PRIO00,RO
C#SPRI

TRAP

CSINIT

.ASCIZ

/#NuNsAsssss TESTING UNIT SD28A sssse/

ENDINIT

.EVEN

TSva - MISCELLANEOUS SECTIONS
ADD AND DROP UNITS SECTIONS

MACRO M1113

14-JUN-84 15:15

.SBTTL

160
161
162

J8
SEQ 0100

ADD AND DROP UNITS SECTIONS

jee

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

163
164
165
166

167 022306

022306

168 022306
169 022310
170 022312

010001

006301
052761

042761
010046
012746

173 022350
174 022354

175

L$AU: :

012746
010600
104417
062706

100000

040000

003174
003174

000002

000006

045

177 022402

1¢:

L10031:

104452

RO,R1

:+ GET UNIT TO BE ADDED (RO)

BIS
BIC

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

MOV
MOV
MOV
MOV
TRAP
ADD

RO, -(SP)
014,-(SP)
02,-(SP)
SP,RO
CS$PNTF
#6,5P

PRINTF

022354

116

MOV
ASL.

000167
045

BGNAU

EXIT
WORD
.MORD
.ASCIZ
.EVEN

@1%.RO

AU
JSUMP
L10031-2-.
/#NsA UNIT #D#A ADDED/

ENDAV

TRAP

; MAKE IT A WORD INDEX

s+ UNUSED.

C$AV

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

:
:
;
;
:
:

012737
010001
006301
052761
000240
010046

196 022454

012746
012746
010600
104417
062706

000167
000030

177777

003110

140000
000240

003174
000240

022460
000002
000006

SUPVSR DOES THE “OCROPPING”.
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 THOSE
WHICH ARE STILL ACTIVE.
UPON ENTRY, RO CONTAINS THE UNIT TO BE DROPPED.

L$DV::

BGNDU

MOV
MOV
ASL

BIS

€-1,0UFLG
RO,R1
R1

#140000,ERTABL(R1)

240,240,240
PRINTF

@1%.RO

MOV

RO, -(SP)

MOV
TRAP

SP,RO
C4PNTF
#6,SP

ADD

EXIT
.WORD

oV
J$uMP

: SAY DROPPED
g

7272

TSVa - MISCELLANEOUS SECTIONS

MACRO M1113

ADD AND DROP UNITS SECTIONS

197 022460
198
199 022510

045

022510

104453

022510

200

201
202
203 022512
022512

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

022570

002204
000550
016250

012727

.ASCIZ
.EVEN
ENDDV

/#NsA

TRAP

CsDV

SEQ 0101

UNIT #DsA DROPPED/

: AUTO-DROP CODE SECTION.
jo
BGNAUTO
L$AUTO: :

10%:

L)'
MOV
JSR

CSRADDR,RS
0360. ,R3
PC.WAITF

000372

BCS
DELAY
MOV

204
250.
#250.,(PC).

013727

002116

MOV

L$OLY,(PC)+

005367
001375
005367
001367
005303
001357
004737

177772

DEC
BNE
DEC
BNE
DEC
BNE
JSR

000000
000000

213 022570
C22570

1%:
L10032:

013705
012703
004737

103420

045

116

14-JUN-84 15:15

104461

.WORD
.WORD

177756

017202

20%:

L10033:

sLEAVE WHEN SSR IS SET
;WAIT FOR .25 SECONDS

-6(PC)
.-4
-22(PC)
.-20
R3
104
PC,CKDROP

ENDAUTO
TRAP

;POINT TO DEVICE REGISTER
sENOUGH TIME FOR 2400’ REEL TO REWIND
sWAIT FOR SSR TO SET

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

: UNUSED.
C$AUTO

MACRO M1113
' TSVA - MISCELLANEOUS SECTIONS
CLEAN-UP AND REPORT CODING SECTIONS

14-JUN-84 15:15
.SBTTL

215

L8
SEQ 0102

CLEAN-UP AND REPORT CODING SECTIONS

216

217
218

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

219
220
221

222 022572

022572

223 022572
224 022576
225 022602

226
227
228 022604
229 022612
230 022616
231 022616
022616
022616

013705
005737

002204
003110

012765
004737

016250

100405

104412

BGNCLN
L$CLEAN: :
MOV
TST
BMI

CSRADDR , RS

+POINT TO DEVICE REGISTER
s "DROPPED” FLAG IS SET ON..
i...AND GROSS CONTROLLER FAULT.
i...D0N'T TRY TO XCT CLEANUP COOE.

MOV
JSR

€0, TSSR(RS)

;00 SOFT INIT

TRAP

CSCLEAN

1%:
24:
ENDCLN
L10034:

PC.MWAITF

: Tl'E REPORT CODING SECTION CONTAINS THE
: "PRINTS" CALLS THAT GENERATE STATISTICAL REPORTS.
>

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

023062

104416
062706
020227
001012
010346
012746

QDEVSUM
QDEVSUM, -(SP)

TRAP

SERTABL, R4

003174

14%:

011402

010246
010346
012746
012746
010600

PRINTS
MOV

MOV
MOV

000001

001467

032702
001015
042702

BGNRPT

(R4),R2

4%
4%

0?1714.“2
2

o+C7777,R2

170000

SDEVONL ,R3,R2

WAS UNIT DROPPED?

BR IF YES
GET ERROR COUNT FIELD
PRINT

SP,RO

CSPNTS

000010

24:

010,5P
as

gg.usoooo
ODEVNXR,R3

023167

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

#DEVONL, -(SP)

023117
000003

160000

MOV

s+ WAS UNIT NON-EXISTENT?
: BR IF NO

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

022736
022742
022744
022746
254 022752
255 022754
256 022760

257 022762
022762
022764
022770
022774
022776
023000
258 023004
259 023006
260 023012
023012
023014
023016
023022
023026

023030
023032
261 023036
262 023042
263 023044
264 023050
265 023052
266 023054
267 023056
268 023060

023060

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

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

209 023060

104425

270 023062
271 023117
272 023167
273 023251
274 023332

045
045
045
045
045

275
276
277 023402

14-JUN-84 15:15

000002
000006

34:

160001
023251
000002
000006
170000

30¢:

023332
000003
000010
000002

4%:

003374

L10035:
116
101
101
101
101

045
040
040
040
040

DEVSUM:
DEVONL:
DEVNXR:
DEVNRD:
DEVDRO:

SEQ 0103

MOV
MOV
TRAP
ADD
BR
cMP
BNE

02,-(SP)
SP,RO
CSPNTS
06, 5P
4
R2, 0160001
304

8IC
PRINTS
MOV
MOV
MOV
MOV
MOV

0tC7777,R2
@DEVDRO,R3,R2
R2,-(SP)
R3,-(SP)
®DEVORO, -(SP)
03, -(SP)
SP,RO

PRINTS
MOV
MOV
MOV
MOV
TRAP
ADD
BR

TRAP
ADO
ADD
INC
cHP
8LO
MOV
MOV
MOV
ENDRPT

3+ WAS UNIT NOT READY AT STARTUP?

@DEVNRD,R3
R3,-(SP)
#DEVNRD, -(SP)
02,-(SP)
SP,RO
CSPNTS
6 ,SP
ai

s BR IF NO.

CSPNTS
010,SP
92.R4
R3
R4, 0ERTABE
14
(SP)+.R4
(SP)+,R3
(SP)+,R2
: UNUSED.

TRAP

CSRPT

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/78NSADEVICE STATUS SUMMARY :sN/

.EVEN

ENOMOD

/%A
/#A
/#A
/%A

UNIT
UNIT
UNIT
UNIT

#D3s#A
#D3sA
#D3sA
#D3sA

ONLINE,
DROPPED,
DROPPED,
DROPPED,

ERRORS = sDsN/
NON-EXISTENT REGISTER®N/
NOT READY AT STARTUPSN/
ERRORS = sDsN.

TSVSA - HARDWARE TESTS MACRO M1113
fLEAN-UP AND REPORT CODING SECTIONS

14-JUN-84 15:15

1
2
9

10 023402
023402
16
24
25
26
27
28
29

TSVS::

30
31
32
L3

35
36
37
38
39

40
41
4.
43
a4
45

TSVSA

BGNMOD

TSVS

.SBTTL

TEST

- HARDWARE TESTS

1: BUS RESET TEST

THIS TEST VERIFIES THAT THE M7196 MODWE'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 MODULE.
AREAS OF LOGIC TESTED BY 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 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 DISCERNS AND
REPORTS ONE OF THREE POSSIBILITIES:

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

48
b

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

50
51

023406

023412
023420
023420

023422
023422
023422

CATASTROPHIC CONTROLLER MALFUNCTION.

THIS IS A FATAL

ERROR (EXECUTION IS ABORTED).
FIELD ACTION WOULD BE TO
REPLACE THE M7196.
IF THE M7196 ITSELF IS BEING
DEBUGGED, THE PROGRAM SHOULD 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-5 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.

52
53
54
55
56
57
58
59
60
61
62
63
64 023402
023402
69 023402
70
71
72
73
74
75

.TITLE

46
47

SEQ 0104

BGNTST
012700
004737
012737

005003

023600
016510
000024

002214

T1LOOP:

JSR

PC,TSTSETUP

CLR

;USE R3 AS FATAL ERROR FLAG

MOV

BGNSUB
104402

Ti::

;ASCII MESSAGE TO IDENTIFY TEST
;D0 INITIAL TEST SETUP
;PERFORM 20 ITERATIONS

MOV

@TST11D,RO

$ /1111101077777 BE(TSIN SUBTEST //////7//777
1.1:

TRAP

csBsuB

SEQ 0105

1ISSUE A BUS RESET

BRESET

JSR
MOV
MOV
8IC
8IS
ce
BEQ
ERRDF

016250

176277

002200

10s:

INC

PC.WAITF

TSSR(R3),R1
R1,R2

0+C<HIADOR!0FL> ,R2

OSSR !NBA, R2
R1,R2

104
ERRNO , SFHERR
, SFFMSG

IWAIT FOR READY

+REPORT A FATAL ERROR

004737
005003

017202

TRAP

.WORD
.MORD
WORD

;SET THE FATAL ERROR FLAG

S ANNANAANANANANAY END SUBTEST

TST

TRAP

T1.2:
TSSR(RS)

PC,WAITF

TSSR(RS),R1

R1,R2

0*C<HMIADDR!OFL
> ,R2
OSSR INBA , R2

020102
001405

023544
113 023546
114 023550
115 023550
023550
023550
116
117
118 023552
119 023554
120 023536
121 023562
122 023566
123 023570

R1,R2

10¢
ERRNO, SFIERR , SFFMSG

104455
000146
003650
012102
005203

023420

TRAP

Cs8sSuB

LMORD
.WORD
.WORD

102
SFIERR
SFFMSG

s ANANANANANANNNAN END SUBTEST NANANANNNLWWY

L10040:

017202
016456

/77777777777

tMRITE TO ISSUE A SOFT RESET
tWAIT FOR READY TO SET
1GET REGISTER TSSR DATA
1CONTENTS OF TSSR
s THESE BITS MAY BE SET
tREADY AND NEW DATA SHOULD BE SET
1COMPARE EXPECTED TO RECEIVED
1BRANCH IF COMPARE
tREPORT A FATAL ERROR
TRAP
CSERDF

1SET THE ERROR FLAG

10¢:

104403
005703
001402
004737
004737
103002
000137

CSsESUB

s1DID WE HAVE FATAL ERROR ?

104402

176277

101
SFHERR
SFFMSG

1BRANCH IF NOT
1GO DROP THIS UNIT, IF ALLOMED
IRESET FATAL ERROR FLAG

208:

016250

CIERDF

A NNVAANNALLLL

8774777777777 BEGIN S\BYEST

005065
004737
016501
010102

CORESET

1GET THE CONTENTS OF TSSR
1CONTENTS OF TSSR
1 THESE BITS MAY BE SET
tREADY AND NEW DATA SMOWLD BE SET
1COMPARE EXPECTED TO RECEIVED
1BRANCH IF COMPARE

L10037;
005703

TRAP

204
PC,CKDROP
PC,TSTLOOP
404
T1L00P

stFATAL ERROR DETECTED ?

TRAP

1SRANCH IF NOT
1SEE IF TIME TO DROP UNIT
sSHOULD WE DO ITERATIONS ?
1BRANCH IF NOT
1LOOP UNTIL COUNT EXPIRED

CSESUB

TSVSA- MARDWARE TESTS

TEST

1: BUS RESET TEST

124 023574
023574
125
126

023576

€0 0106

14-JUN-84 15:15

404

104432
000022

EXIT

TSt

sALL DONE THIS TEST

TRAP
. WORD

CoEXIT
L10036-.

TRAP

CSETST

127
lgg
1

sLOCAL TEXT MESSAGES FOR TEST
i

130 023600
131
132 023620

023620

MACRO M1113

53 023620

111

156

151

TST1ID: .ASCIZ

'Initielizetion’

.EVEN
ENDTST

L10036:

104401

134

LSBTTL

{g;

TEST

2: WRAP DATA - MIGH BYTE

THIS TEST VERIFIES OPERATION OF :

139

140

141

MODUWLE:

PART OF THE INPUT FILE (TSDB MIGH BYTE), PART

BYTES),

PART OF THE DCOOS TRANSCEIVER CIRCUITS (ADDRESS

:
'

NIVEIS). AND BASIC mm 170 CONTROL SEQUENCES
AND LOGIC;

142

144

143

145
i:g

OF THE OUTPUT FILE (TSSR HIGH BYTE AND TSBA, BOTH

oeoouai BDAL DRIVERS, MIGH BYTE OF INTERNAL
DAL BUS

148

i;g

:
3

t:g

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

PART OF 2901 MICROPROCESSOR ELEMENTS (Q-REGISTER,

Y AND SOURCE BUSES;

igz

’

BASIC MICROPROGRAM SEQUENCES.

:
-

157

158

;

THE PROGRAM WRITES A TEST DATA BYTE INTO THE MIGH BYTE OF TSDB.

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

160

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

162

159

161

OF BOTH TSBA AND TSSR.

TME MODUWLE IS FUNCTIONING CORRECTLY IF

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

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

163

165

LISTS LIKELY FAULTY CANDIDATES FROM THE LOGIC ELEMENTS LISTED

BYTES (0-377 OCTAL).

164

166

{:;

’

169 023622

023622

174 023622
175 023626
176 023632

012700
004737
012737

024270
016510
000024

178 023642

012703

177777

177 023640
179 023646

005004

005703

002214

MRITTEN.

ABOVE.

MOV
JSR
MOV

#71ST2I0,R0O
PC,TSTSETUP
#20. ,LOOPCNT

MOV

#-1,R3

TST

THE ANALYSIS

THE TEST IS REPEATED FOR ALL COMBINATIONS OF TEST DATA

BGNTST

T2L00P: CLR
S¢:

AN ERROR IS REPORTED AND A DESCRIPTIVE ANALYSIS GIVEN

IF A DISCREPANCY IN TSBA OR TSSR IS DETECTED.

T2::

1ASCII MESSAGE T0 IDENTIFV fEST
100 INITIAL TEST SETUP
1PERFCRM 20 ITERATIONS

ISYMTM DATA PATTERN

100 WE NEED SOFT INIT

100 INIT ON FIRST TIME THROUGH

TSVSA - MARDMARE TESTS MACRO M1113
TEST 2: WRAP DATA - MIGM BYTE

180 023650
181 023652
182 023654
183 023660
187 023662
188 023664
023664

001412
005003
004737
103406
010001
000311
003650

189 023674

005203

023672

190 023676
191

005037

104404

194 023704
195 023710

110465
004737

197 023716
198 023720

010001
010402

023722

104455

202 023722

103411

023724

000312

023730

015474

204 023734
205 023740
023740

005237

023726

203 023732

206 023742

207 023746
208 023750
209 023754
210 023756

211 023762
212 023764
213 023770
214 023774
215 024000

005203
104406

005737

001402
004737
010402
042702

000302
052702
016501
032701
001402

052702

218 024010
222 024012

001405

024012

020201

000313
024151
015474
005203

225 024026
226 024032
227 024034
228 024036
229 024040

016501
005002
150402
000302
150402

230 024042

ERRDF ERRNO, SFIERR, SFIMSG

sBRANCH IF NOT
sOON’'T NEED INIT NEXT TIME THRU
3100 SOFT INIT OF CONTROLLER
tBR IF SOFT INIT = Ox
sSAVE CONTENTS OF TSSR

sDEVICE FATAL ERROR DURING INIT
TRAP
CSERDF
LMORD
.MORD

002220

10%:

INC

CLR

FATFLG

BGNSEG

000001
016250

.MORD

+FORCE SOFT INIT ON NEXT PASS

$1SET MAINT MODE « WRITE DATA
sWAIT FOR SSR TO SET

MOV
MOV

RO,R1
R4 ,R2

1SAVE CONTENTS OF TSSR
sDATA THAT WAS WRITTEN

15¢

ERRNO, T2SSR,EXPREC

sBR IF CARRY SET (GOOD RETURN)
sDEVICE FATAL SSR FAILED TO SET

TRAP

.MORD

. WORD
002220

INC

15%:

002220

017202
177774

208 :

002200
000002
000100
000100

25¢:

104406

020102

304 :
000000

CsCLP1

tFORCE SOFT INIT ON NEXT PASS

TST

FATFLG

sWAS FATAL ERROR RECEIVED ?

SWAB
BIS
MOV
BIT
BEQ

R2
#SSRINBA ,R2
TSSR(RS),.R1
#0FL ,.R1
254

R2,.R1

BIS

BEQ
ERRHMRD

o*C<BITO!BIT1>,R2

#0FL ,R2

304
ERRNO, T2TSSR,EXPREC

INC
CKXLOOP

MOV
CLR
8IS8
SWAB
BISB

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

cMP

R1,R2

T2SSR

1SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET
TRAP

204
PC ,CKXDROP
R4 ,R2

202

EXPREC

FATFLG

BEQ
JSR
MOV

CSEROF

.WORD

INC
CKXLOOP

8IC

SFIMSG

$2253553353>> BEGIN SEGMENT >>>>>3>>33>>
TRAP
C$BSEG

R4, TSDBH(RS )
PC.WAITF

ERROF

201
SFIERR

tCLEAR FATAL ERROR FLAG

MOV8
JSR
BCS

104456

024014
024016
024020
223 024022
224 024024

024024

015774

10¢
R3
PC,SOFINIT
104
RO,R1

SEQ 0107

024216

216 024002

217 024006

BEQ
AR
JSR
8Cs
MOV

012034

192 023702
198 023702

196 023714

14-JUN-84 15:15

104455

023666
023670

sBRANCH IF NOT
$sSEE IF TIME TC DROP UNIT
sDATA PATTERN WRITTEN

sCLEAR ALL BUT LOMW 2 BITS

;1BITS 8 AND 9 HAVE LOW DATA BITS
s THESE BITS MUST BE SET ALSO
;:GET THE CONTENTS OF TSSR
+IS OFF -LINE BIT SET ?
tBRANCH IF NOT OFF -LINE
1SET OFF-LINE IN EXPECTED DATA

1DOES EXPECTED MATCH RECEIVED ?
tOKAY IF MATCH

1 TSSR WASN'T CORRECT

TRAP

.MORD
.MORD
.MORD
1FORCE SOFT INIT ON NEXT PASS
;:LOOP ON ERROR ?

TRAP

1GET TSBA REGISTER CONTENTS
'
1DATA PATTERN WRITTEN
sMOVE INTO TOP BYTE
1BOTH HALVES SHOULD BE SAME

1COMPARE EXPECTED TO RECEIVED

C$ERHRD

203
T2TSSR
EXPREC

CsCLP1

TSVSA - HARDWARE TESTS MACRO M1113
TEST 2: MRAP DATA - MIGH BYTE

SEQ 0108

354

ERRNO, T2TSBA ,EXPREC

1ERROR IF NOT EQUAL

sPRINT THE ERROR & EXPD/RECY
TRAP

.WORD

INC
35%:

. WORD
. WORD

sFORCE SOFT INIT ON NEXT PASS

ENDSEG

gecccccccccccc

END SEGMENT

100004
:

104405
105204
001270
004737
103002
000137

sNEXT DATA PATTERN TO TEST

016456

PC,TSTLOOP
404
T2L00P

sSHOULD WE DO ITERATIONS ?
$BRANCH IF NOT
sLOOP UNTIL COUNT EXPIRED

023640

40%:

104432

EXIT

TST

CSERMRD

204

T2TSBA
EXPREC

ccccccccccccc

TRAP

CS$ESEG

sBRANCH TILL BACK TO ZERO

sALL DONE THIS TEST

000214

TRAP

CSEXIT

.WORD

L10041-.

TRAP

CS$ETST

sLOCAL TEXT MESSAGES FOR TEST
124
116

127

123
123
157
162

102
123
141

T2TSBA:
T2TSSR:
T2SSR:
TST2ID:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.EVEN
ENDTST

‘TSBA Incorrect After TSDB High Write’
'TSSR Incorrect After TSDB High
Write’
‘No Sub-System Ready After T
High Write’
‘Wrap Data - High Byte’

L1004]1:

104401
TEST

WRAP DATA - LOMW BYTE

THIS TEST FURTHER VERIFIES OPERATION OF MANY OF THE SAME

ELEMENTS TESTED IN TEST 2, AND ADDITIONALLY VERIFIES:
LOW BYTE OF THE TSDB INPUT FILE REGISTER,

LOW BYTE OF INTERNAL DAL BUS DRIVERS ON THE DCOOS
TRANSCEIVER CIRCVITS,

BASIC FUNCTIONING OF PARTS OF THE RAM.

.SBTTL

024050

104456
000314
024104
015474
005203

024046

BEQ
ERRMRD

001405

231 024044
235 024046

14-JUN-84 15:15

THE PROGRAM WRITES A TEST DATA BYTE INTO THE LOW BYTE OF TSDB.
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 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 DETECTEN.
THE ANALYSIS

TSVSA - HARDWARE TESTS MACRO M1113
TEST 3: WRAP DATA - LOW BYTE

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

281
282
283
284

285 024320
024320
290 024320
291 024324

292 024330
293 024336

SEQ 0109

BGNTST
012700
004737
012737
005004
012703
005703
001412

024763
016510

004737
103406

015774

000024

000001

002214

TSL

Ss:

010001

005037

MOV
JSR
MOV

OTST3ID.RO
PC,TSTSETUP
920. ,LOOPCNT

sASCII MESSAGE TO IDENTIFY TEST
100 INITIAL TEST SETWP
tPERFORM 20 ITERATIONS

MOV

o1,R3

+FORCE SOFT INIT ON FIRST PASS

104
f3
PC,SOFINIT
104
RO,R1

1BR
IF NO
NEEDED
sASSUME NO INIT NEEDED ON NEXT LOOP
300 SOFT INIT OF CONTROLLER
$BR IF SOFT INIT = OK
sSAVE CONTENTS OF TSSR

: CLR
TST

BEQ
CLR
JSR
8CS
MOV

ERRDF

104455

002220

10%:

INC
CLR

ERRNO,SFIERR, SFIMSG

r3
FATFLG

BGNSEG
MOVe
JSR
B8CS
MOV
MOV

016250

002220

15¢:

002220
017202

177774

:
204

002200
000002
000100
000100

25%:

1STARTING DATA PATTERN

$sSET IF INIT IS REQUIRED

sDEVICE FATAL ERROR DURING INIT
TRAP
CSERDF

sFORCE INIT ON NEXT PASS
;CLEAR FATAL ERROR FLAG

.WORD
.WORD
.MORD

$2>>3533333>> BEGIN SEGMENT >>>>3>3>3>333>5>
TRAP
C$BSEG
R4, TSDB(RS)
PC.WAITF
154
RO,R1
R4 ,R2

:SET MAINT MODE + WRITE DATA
sWAIT FOR SSR TO SET
1BR IF CARRY SET (GOOD RETURN)
$SAVE CONTENTS OF TSSR
;DATA THAT WAS WRITTEN

ERRDF

ERRNO, T3SSR,EXPREC

INC
INC
CKLOOP

R3
FATFLG

FATFLG

s10ID WE GET FATAL ERROR ?

0'C¢.ITO!OITD 2

sCLEAR ALL 8UT LOMW 2 BITS

BEQ
JSR
MOV

204
PC,CXDROP
R4,.R2

SMAB
BIS
MOV
BIT
BEQ
BIS
cp
8EQ

R2
#SSR!NBA,R2
TSSR(RS),R1
0FL ,R1
254
®0FL ,R2
R2,R1
304

8IC

ERRMRD

301
SFIERR
SFIMSG

ERRNO, TSTSSR,EXPREC

sDEVICE FATAL SSR FAILED TO SET
TRAP
.WORD
.WORD
.WORD

sFORCE INIT ON NEXT PASS
1SET THE FATAL ERROR FLAG
1LOOP ON ERROR, IF FLAG SET

TRaP

CSERDF
302
T3SSR
EXPREC

CcsCLP1

1BRANCH IF NOT
sDROP UNIT, IF DROP ALLOWED
1DATA PATTEN WRITTEN
lOIYS 8 AND 9 HAVE LOMW DATA BITS
s THESE BITS MUST BE SET ALSO
1GET THE CONTENTS OF TSSR
+IS DRIVE OFF -LINE
1BRANCH IF NOT OFFLINE
1SET OFF-LINE IN EXPECTED
1DOES EXPECTED MATCH RECEIVED ?
1OKAY IF MATCH
1 TSSR WASN'T CORRECT
TRAP

C$ERHRD

TSVSA - MARDMARE TESTS MACRO M1113
TEST 3: WRAP DATA - LOW BYTE
024512
024514

14-JUN-84 15:15

SEQ 0110

.WORD

000457
024646
015474
005203

TRAP
1GET TSBA REGISTER CONTENTS

csCLPl

1LOOP ON ERROR ?

TSBA(RS),R1
R2
R4 ,R2

R4 ,R2
R1,R2

354
ERRNO, T3TSBA,EXPREC

1DATA PATTERN WRITTEN

+MOVE INTO TOP BYTE
:B0TH HALVES SHOWLD BE SAME
sCOMPARE EXPECTED TO RECEIVED
1BR _IF ERROR NOT EQUAL
tPRINT THE ERROR & EXPD/RECY
TRAP

sFORCE INIT ON NEXT PASS

jeccceccccccccc

35¢:

354 024556

T3TSSR
EXPREC

sFORCE INIT ON NEXT PASS

304:

CSERHRD
304
T3TSBA
EXPREC

ccccccccccccc

TRAP

CSESEG

sNEXT DATA PATTERN TO TEST

016456

PC,TSTLOOP

024336

T3L0OP

TST

104432
000210

.WORD
.WORD
. WORD

END SEGMENT

10000%:

104405
001270
004737
103002
000137

303

.MORD
.

sALL DONE WHEN BACK TO ZERO
sSHOULD WE DO ITERATIONS ?
:BRANCH IF NOT
;LOOP UNTIL COUNT EXPIRED
;ALL DONE THIS TEST
TRAP

CSEXIT

.WORD

L10042-.

TRAP

CSETST

HE4

;LOCAL TEXT MESSAGES FOR TEST

369 024712
370 024763
371
372 025010
025010
025010
373
374
375
376
377
378
379
380
381
382
383
384

124
124

116

127

123
123
157
162

102

123
141

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

T3TSBA:
T3TSSR:
T3SSR:
TST3ID:

‘No Sub-System Ready After TSDB Low Write'
‘Wrap Date - Low Byte'’

L10042:

104401

.SBTTL

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 ADDRESSED (I.E., THAT ONE AND ONLY
ONE LOCATION IS ACCESSED BY ANY PARTICULAR ADDRESS).
THESE
A
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

H9
TSVSA - HARDWARE TESTS

TEST

4: RAM TEST

MACRO M1113

14-JUN-84 15:15

387

SEQ 0111

TEST 4 , SUBTEST 1: -

389
3230
391
2gQ

:
:
:
3

THIS SUBTEST VERIFIES EACH RAM LOCATION BY FIRST PLACING THE
M7196 INTYO MAINTENANCE MODE BY WRITING INTO THE LOW BYTE OF TSDB
AND THEN PERFORMING THE FOLLOWING SEQUENCE FOR EACH ADDRESS
0-7777 (OCTAL):

395
396

:
:

THE ADDRESS TO BE TESTED IS LOADED INTO THE TSDB (VIA A
WORD WRITE).

398
399
:80

:
:
:

THE ADDRESSED RAM LOCATION IS WRITTEN, THEN READ INTO
THE LOW BYTE OF TSBA, BY WRITING A DATA BYTE INTO THE
LOW BYTE OF TSDB.

THE LOW BYTE OF TSBA IS CHECKED TO SEE IF IT CONTAINS

388

397

402
403

THE DATA PATTERN ORIGINALLY WRITTEN;

REPORTED AS AN ERROR.

406
407
408
409

:
:
:
:

:fi)

3
:
:

414

417

THE HIGH BYTE OF TSBA IS CHECKED;
IT SHOULD CONTAIN
THE SUM OF THE HIGH AND LOW BYTES LAST WRITTEN INTO
TSDB AS A WORD.

:}g

THE ADDRESS OF THE LOCATION BEING TESTED IS AGAIN
WRITTEN INTO TSDB (WORD WRITE), TO CAUSE THE LOCATION
UNDER TEST TO AGAIN BE READ INTO THE LOW BYTE OF TSBA.
THE LOW BYTE OF TSBA IS AGAIN CHECKED AND DISCREPANCIES

REPORTED.

412
413

A DISCREPANCY 1S

A DISCREPANCY IS REPORTED AS A 2901

THE CONTENT OF TSSR IS CHECKED;

IS IGNORED.

SETTING OF THE SC BIT

OTHER DISCREPANCIES IN TSSR ARE REPORTED.

420

421 025012

- 025012
423 025012
025012

104402

429 025014

012700

432 025032

004737
012737

433 025032
434 025036
438 025040

004737
103405
010001

025042

104455

439 025042

025044
025046
025050

000621
003650
012034

44) 025054

004737

440 025052

T4::

BGNSUB

- 025012

430 025020
431 025024

BGNTST

005004

8/////7//77//777 BEGIN SUBTESTY //////7477777
T74.1:

TRAP

026322

016510
000005
015774

002214

TALOOP:

MOV

JSR
MOV

#TST4ID,RO
PC,TSTSETUP
#5,L00PCNT

sASCII MESSAGE TO IDENTIFY TEST
100 INITIAL TEST SETUP
tPERFORM S ITERATIONS

JSR
B8CS
MOV

PC,SOFINIT
204
RO,R1

100 INITIALIZE ON CONTROLLER
:1BR IF INIT WAS 0K
;CONTENTS OF TSSR REGISTER

ERRDF

016336

204 :

CLR

JSP

ERRNO,SFIERR, SFIMSG

PC,CHKTSSR

1FATAL ERROR TSSR WAS NOT 0K

TRAP

1SET RAM ADDRESS AT ZERO

.WORD
.WORD
.WORD

tWAIT FOR READY, NON-AMBIGUOUS

csBSuUB

CSERDF

401
SFIERR
SFIMSG

TSVSA - MARDWARE TESTS
4&: RAM TEST

TEST

105065

000000

14-JUN-84 15:15

SEQ 0112
TSDB(RS)

25%:

+SET INTO MAINTENANCE MODE
$22>>>53>5>>>>

BEGIN SEGMENT

104404

110402
004737
010465
004737
110265
004737
016501
120102

>>3>>>3>5>555>>

TRAP
R4 ,R2

PC,CHKTSSR

016336
000000
016336
000000
016336

R4,TSDB(RS)

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

304
ERRNO, TSBAM2 ,EXPREC

001404

104456
026160
015474

30¢:

gecccccccccccc

END SEGMENT

:
100004

402
TSBAM2
EXPREC

ccccccccccecc

TRAP

CS$ESEG

sNEXT ADORESS
;END OF RAM MEMORY CHECK
sLOOP TILL ALL RAM WRITTEN
sOON’T CONTINUE IF ERROR ON WRITE
TRAP
CS$ESCAPE

010000

.WORD

016336

C$BSEG

1EXPECTED DATA FROM WRAP
- AROUND
sWAIT FOR READY, NON-AMBIGUOUS
1LOAD ADDRESS INTO TSDB
sWAIT FOR READY, NON-AMBIGUOUS
1LOADS DATA INTO RAM LOCATION
sMAIT FOR READY, NON-AMBIGUOUS
1READS WRAP DATA
sDOES WRITTEN(WRAP) = READ
1BR IF OK, THEY ARE EQUAL
:DATA NOT WRAPPED CORRECTLY
TRAP
CSERHRD
.WORD
.WORD
.WORD

40%:

016336

L10044-.

sCLEAR OQUT R2 HIGH BITS
+SET BACK TO 7777
:GET DATA PATTERN BACK IN SHAPE
tWAIT FOR READY, NON-AMBIGUOUS
:LOAD UP RAM ADDRESS POINTER
iWAIT FOR READY, NON-AMBIGUOUS
;READ RAM CONTENTS BACK
sCHECK WITH DATA WRITTEN

442 025060
443 025064

MACRO M1113

ERRNO, TSBAM2 ,EXPREC

:BR IF OK, DATA IN = DATA OUT
;WITTEN DATA NOT = TO READ

TRAP

1 SCOPE LOOP

45%:

TSBAH(RS)
,R1

R4,R2

R4,R2
R1,R2
504

ERRNC,M2901 ,EXPREC

.WORD
.WORD
.WORD

TRAP
sHIGH BYTE READ OF TSBA
;DATA PATTERN WRITTEN
sHIGH TO LOW
:TOTAL OF BYTES IN LOMW BYTE

CS$ERHRD

403
TSBAMZ2
EXPREC

CsCLP1

1SUM OF BYTES WRITTEN TO TSDB = TSBAH
1BR IF OK, THEY SHOULD BE
12901 PROBLEM ADDER
TRAP

.WORD
.WORD

CS$ERHRD

404
M2901

TSVSA - HARDWARE TESTS
TEST 4&: RAM TEST
025242

015474

025244
492 025246
493 025250

104406
005304
002342

491 025244

MACRO M1113

14-JUN-84 15:15

50%:

496

497
498 025254
025254
025254

499

R4
40$

EXPREC

TRAP

CsCLP1

$ NANAANANANANNAN END SUBTEST NNAANLLNANL

L10044;

TRAP

C$ESLB

$///77/777/7777 BE?}N SUBTESTY /77777777777
22

BGNSUB

104402

.WORD

sCROP DATA COUNTER (PATTERN)
sNOT AT LOC. ZERO YET

104403

TRAP

TEST 4, SUBTEST 2

csBsSuB

THIS SUBTEST WRITES RAM WITH ALL ZEROS
THEN WALKS AN ALL ONES WORD DOWN THROUGH MEMORY

503
004737
103405
010001

JSR
B8CS
MOV

015774

ERRDF

104455

518
519
520
521
522
523
524
525
526
530

1 SCOPE LOOP

ENDOSUB

501

512
513
514
515
516
517

SEQ 0113

CKLOCP

DEC
BGE

494

495 025252
025252
025252

025276
025300
C25302
025306
025312
025312

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

003650
012034

004737
105065

20%:

016336
25%:

104404
004737
010465
004737

110265

004737
016501
120102
001404

CLR
CLR

JSR
CLRB

016336
016336

cMP8
BEQ

ERRHRD

104456
026160
015474

30%:

ERRNO, SFIERR, SFIMSG

R2
R4

PC,CHKTSSR
TSDB(RS)

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

R1,.R2
304

ERRNO, TSBAM2,EXPREC

010000

;FATAL ERROR TSSR WAS NOT 0K

TRAP

.WORD
.WORD
.WORD

;: TEST DATA = 0

sWAIT FOR READY, NON-AMBIGUOUS
:SET INTO MAINTENANCE MODE
BEGIN SEGMENT

TRAP

>>>>>3>>>>>>>

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

sCcccccccccccc

ENDSEG

INC
CMP
BNE

END

SEGMENT

:
100004

R4
R4,010000
254

C$ERDF

405
SFIERR
SFIMSG

s STARTING RAM ADDRESS = 0

.WORD
.WORD
.WORD

104405
020427
001350

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

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

BGNSEG

JSR
MOV
JSR
MOVB
JSR
MOV

016336

PC,SOFINIT
20%
RO,R1

sNEXT ADDRESS
1END OF RAM MEMORY CHECK

:BR, MORE RAM TO GO

C$BSEG

CS$ERHRD

406
TSBAMZ2
EXPREC

<ccccceccccccc

TRAP

C$ESEG

TSVSA - HARDMWARE TESTS
TEST 4: RAM TEST
537

538 025372
539 025374
S40 025376
S41 025402
542 025406
S43 025412
S44 025416
545 025420
S46 025422
550 025424

MACRO M1113

004737
010465
004737
016501
005002
120102

016336

SEQ 0114

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

35%:

005304

005002

14-JUN-84 15:15

40%:

016336

001404

ERRNO, TSBAM3 ,EXPREC

000377

9000377, ,R2
R4,TSDB(RS)
PC,CHKTSSR
R2,TSDBIRS)
PC,CHKTSSR
TSBA(RS),R1
R1,R2
454
ERRNO, TSBAM2 , EXPREC

43%:

016336
016336

sWAIT FOR READY (SSR) TO SET

tLOAD UP THE ADDRESS FOR RAM

tWAIT FOR READY (SSR) TO SET
sREAD THE RAM CONTENTS BACK
sLOOKING FOR 000000 (EXPECTED)
1BOTH_SHOULD BE 00000000 BINARY
1BR, IF DATA IS GOOD
sCHARACTERISTICS DATA NOT CORRECT
TRAP
C$ERHRD
.WORD
.WORD
.WORD

sSET ALL ONES WORD
sLOAD UP RAM ADDRESS POINTER
tWAIT FOR READY, NON-AMBIGUOUS
sWRITE DATA INTO RAM
tWAIT FOR READY, NON-AMBIGUOUS
sREAD RAM CONTENTS BACK
sCHECK WITH DATA WRITTEN

PC,CHKTSSR

016336
000000
016336
000001

R4,TSDB(RS)

PC,CHKTSSR

TSBAH(RS)
,R1
R4 ,R3
R3
R4 ,R3
R1,R3

S50¢

ERRNO, M2901 ,EXPREC

IIRITYEN DATA NOT = TO READ
TRAP

.WORD
.WORD
.WORD

DEC
BGE
ENDSUB

R4
40%

.WORD
.WORD
.WORD

TRAP
POINTER
ADDRESS
;:DROP RAM
sNOT AT LOC. ZERO YET

104402

409
M2901

EXPREC

CsCLP1

s MWANAAAANNNNY END SUBTEST NN
L1004S5:

TRAP

BGNSUB

CS$ERHRD

408
TSBAMZ2
EXPREC

TRAP
CsC.P1
sWAIT FOR READY, NON-AMBIGUOUS
sWORD WRITE TO SET UP ADDRESS
sWAIT FOR READY, NON-AMBIGUOUS
;HIGH BYTE READ OF TSBA
:DATA PATTERN WRITTEN
sHIGH TO LOW
s TOTAL OF BYTES IN LOW BYTE
:SUM OF BYTES WRITTEN TO TSDB = TSBAH
;BR IF OK, THEY SHOULD BE
12901 PROBLEM ADDER
TRAP
C$ERHRD

+ SCOPE LOOP

CxLOOP

407
TSBAM3
EXPREC

18R IF OK, DATA IN = DATA OUT

: SCOPE LOOP

45%:

S0¢:

+SET BACK T0 7777
1SET TO ALL ZEROS

C$ESUB

811171777777 BE(T;INSSlBTEST L1117 71777777
4.3:

TRAP

csBSUB

TSVSA - HARDWARE

TEST

4&: RAM TEST

TESTS

MACRO M1113

14-JUN-84 15:15

585

SUBTEST 3

587

TEST 4,

SEQ 0115

589

THIS SUBTEST WRITES RAM WITH ALL ONES

THEN WALKS A ZERO WORD DOWN THROUGH MEMIRY

004737
103405
010001

JSR
8Cs

015774

MOV
ERROF

104455
003650
012034
012702

177777

004737
105065

016336
000000

PC,SOFINIT
204
RO,R1

ERRNO, SFIERR, SFIMSG

0177777,R2
R4
PC,CHKTSSR
TSDB(RS)

20§
:

25%:

100 INITIALIZE ON CONTROLLER

1BR IF INIT WAS OK
sCONTENTS OF TSSR REGISTER
tFATAL ERROR TSSR WAS NOT OK
TRAP

.WORD
.WORD
.WORD

+SET DATA AT ALL OM=S
+SET _RAM ADDRESS AT ZERO
tWAIT FOR READY, NON-AMBIGUOUS
+SET INTO MAINTENANCE MODE
$22>>>>>>>>>>>

BEGIN SEGMENT

TRAP

104404
004737
010465
004737

110265
004737

016501
120102
001404

PC,CHKTSSR
R4, TSDB(RS)

016336

PC,CHKTSSR

016336

R2,TSDB(RS)
PC,CHKTSSR
TSBA(RS),R1
R1,R2
304
ERRNO, TSBAM2 , EXPREC

016336

104456
000633
026160

015474

30%:

010000

104410
000152

004737
012702

637 025734

010465
004737
016501
120102
001404

016336
000377
016336
000000

40%:

:DATA NOT WRAPPED CORRECTLY

TRAP

END SEGMENT

10000¢:

CSERARD
411
TSBAM2
EXPREC

c<cccccccccccc

TRAP

C$ESEG

R4
R4, 10000

sNEXT ADDRESS
1END OF RAM MEMORY CHECK
1BR, MORE RAM TO GO

suB

sNO CHECK IF WRITTEN INCORRECTLY
C$ESCAPE
TRAP

R
PC,CHKTSSR

+SET BACK TO 7777
tWAIT FOR READY, NON-AMBIGUOUS
+SET UP EXPECTED DATA REGISTER
1CLEAN OUT REGISTER
s SELECT ADDRESS IN RAM
sWAIT FOR READY (SSR)
;PICK UP RAM CONTENTS
+ IS MEMORY STILL ALL ONES
1BR, IF OK (ALL ONES)
tMEMORY CHANGED AFTER ALL ONES WRITE

254

35%:

C$BSEG

sWAIT FOR READY, NON-AMBIGUOUS
:LOAD ADORESS INTO TSDB
tMAIT FOR READY, NON-AMBIGUOUS
:LOADS DATA INTO RAM LOCATION
sWAIT FOR READY, NON-AMBIGUOUS
tREADS WRAP DATA
:DOES WRITTENC(WRAP) = READ ?
:BR IF OK, THEY ARE EQUAL

jecccccccccccc

104405
020427
001350

>>>3>3>>>>>>>>

.WORD
.WORD
.WORD

ENDSEG

CSERDF

410
SFIERR
SFIMSG

:(1)00377 .R2

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

ERRNO, TSBAM3 , EXPREC

.WORD

L10046-.

M9
TSVSA - HARDWARE TESTS
TEST 4: RAM TEST

MACRO M1113

14-JUN-84 15:15

SEQ 0116

TRAP

025734
025736
025740
025742
44
0257
638
639 025746
640 025752

.WORD

43%:

R4,TSDB(RS)

000000
016336

641 025756
642 025762
643 025766
644 025772
645 025774
649 025776

.WORD
.MORD

PC,CHKTSSR
R2,TSDB(RS)
PC,CHKTSSR

016336

TSBA(RS),R1
R1,R2
454
ERRNO, TSBAM2 , EXPREC

025776

45%:

PC,CHKTSSR

TSBAH(RS)
,R1

000001

R2,.R3

R3
R2,R3
R1,R3

S04
ERRNO,M2901 ,EXPREC

S0$:

665

016456

669 026056
670 026060
671 026064

678 026242
679 026322
681 026344
026344

025032

63¢:

JSR
8CC
JHP
EXIT

C$ERHRD

413
TSBAM2
EXPREC

.WORD
.WORD
.WORD

414
M2901
EXPREC

TRAP
;DROP RAM ADDRESS POINTER
sNOT AT LOC. ZERO YET

CsCLP1

S NNANAAAANANNAANY END SUBTEST NN

ENDSUB

667

672
673
674
675
676 026070
677 026160

R4
404

TSBAM3
EXPREC

TRAP
CsCLP1
tWAIT FOR READY, NON-AMBIGUOUS
sHIGH BYTE READ OF TSBA
1DATA PATTERN WRITTEN
tHIGH TO LOW
:TOTAL OF BYTES IN LOW BYTE
+SUM OF BYTES WRITTEN TO TSDB = TSBAM
tBR IF OK, THEY SHOULD BE
12901 PROBLEM ADDER
TRAP
CS$ERHRD

+SCOPE LOOP

CKLOOP
DEC
BNE

663 026044

.MORD
.WORD
.WORD

+SCOPE LOOP

CKLOOP

016336

1SET UP NEW EXPECTED
1LOAD UP RAM ADDRESS POINTER
tWAIT FOR READY, NON-AMBIGUOUS
tWRITE DATA INTO RAM
tWAIT FOR READY, NON-AMBIGUOUS
sREAD RAM CONTENTS BACK
;CHECK WITH DATA WRITTEN
1BR IF OK, DATA IN = DATA OUT
tWRITTEN DATA NOT = TO READ
TRAP

CS$ERHRD

412

L10046:

PC,TSTLOOP

634
T4LOOP
TST

TRAP

:00 WE NEED TO ITERATE TEST ?
1BRANCH IF NOT
tEXECUTE AGAIN
sALL DONE THIS TEST
TRAP

.WORD

C$ESUB

CSEXIT
L10043-.

HEJ

;LOCAL TEXT MESSAGES FOR TEST
040

127
122

124
127
162
101

123
162
151
115

M2901:

.ASCIZ

TSBAMS:

.ASCIZ

TSBAM2:

TST4ID:

.ASCIZ

.ASCIZ
.EVEN
ENDTST

TSBA High B te Not Sum of Last TSDB Write (2901 Error)’

' Write to TS& Not Equal to Read of TSBA Low Byte'’
‘Urite To RAM Location Modified Another Location’

'RAM Verification'

L10043:

TSVSA - HARDWARE TESTS

TEST

4: RAM TEST

682

026344

MACRO M1113

14-JUN-84 15:15

SEQ 0117

104401

TRAP

683

.SBTTL

684

TEST

CSETST

S: SECOND INITIALIZATION TEST

685
686
687
688
689
690
691
692

3
:
:
H
3
:
3
:

695

EACH RAM LOCATION AND 2901 REGISTERS 10 AND 11 ARE SET

698
699
700

3
:
:

THE CONTROLLER IS INITIALIZED AND THE VARIOUS CHECKS ON
THE TSSR DESCRIBED IN INITIALIZATION TEST @1 ARE

632
6

:
:

696
697

THIS TEST VERIFIES THE SAME ELEMENTS AS DID 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 TwWO
SUBTESTS (ONE FOR INITIALIZING VIA A BUS INIT, THE OTHER FOR
INITIALIZING BY WRITING INTO THE TSSR), THE FOLLOWING SEQUENCE
IS PERFORMED:

3
3

703

704
705
706

:
:
3

707

;’g

LOW BYTE OF TSBA SHOULD CONTAIN ALL 1'S.

:
:
:
:

714
715
716

4.,

:
:
3

717

€1'S (377 OCTAL) ARE WRITTEN INTO THE LOW BYTE OF TSDB.

WHICH SHOULD CAUSE RAM LOCATION O TO BE WRITTEN TO ALL
1'S SINCE 2901 REGISTERS 10 AND 11, SPECIFYING THE RAM
ADDRESS, SHOULD BE O.
RAM LOCATION O IS VERIFIED BY
WRITING A WORD OF ZEROS INTO THE TSDB.

710
711
712
713

TO ALL 1'S BY USING WRITES INTO THE TSDB REGISTER (LOW
BYTE AND MAINTENANCE MODE WORD WRITES).

THE RESULTING

THE ENTIRE RAM IS SCANNED.
LOCATION O SHOULD CONTAIN
ALL 1'S AND THE REMAINING LOCATIONS, EXCEPT FOR THE
MESSAGE BUFFER IMAGE AREA, SHOULD CONTAIN O.
DISCREPANCIES ARE REPORTED.
AN ERROR AT THIS POINT IS

MOST LIKELY DUE TO A ROM, PIPELINE OR SEQUENCER PROBLEM
OR A TIMING PROBLEM.

718
719

3
3

720 026346

026346

725 026346
726 026352
727 026356

012700
004737
012737

027320
016510
000024

;233 026364

005037

002220

728 026364

731 026370

026370

104402

733 026372

004737

026400
026402
C26404

TSLOOP:

103404

104455

000765
003650

015774

1S::

MOV
JSR
MOV

sASCII MESSAGE TO IDENTIFY TEST
;00 INITIAL TEST SETUP
;PERFORM 20 ITERATIONS

CLR

FATFLG

;:CLEAR THE FATAL ERROR FLAG

BGNSUB

e 026370
734 026376
738 026400

002214

BGNTST

JSR

BCS
ERRDF

3/////////7/77 BEGIN SUBTEST 7//////4//177

715.1:

PC,SOFINIT

10¢
ERRNO,SFIERR,SFIMSG

TRAP

csBsSuB

;00 A SOFT TO START

:BRANCH IF 0.K,
;REPORT ERROR AND DROP DRIVE

TRAP

.WORD
.WORD

CS$ERDF

SO1
SFIERR

016336

000000
016336
000000
016336
000000

15¢:

016336
000002

176277

002200

002220

016336
016336

000377
016336
000000
016336
000000
016336

002220

000310

. WORD

sALL ONE DATA PATTERN

RC,CMXTSSR

tWAIT FOR READY, NON-AMBIGUOUS

TSOB(RS)

PC,CHKTSSR

R4, TSDB(RS)

PC.OMKTSSR
:':'.YS“(RS)
R4, 07777

15¢

PC,OMKTSSR
TSSR(RS),R1
R1,R2
0*C<HIADOR!OFL
> ,R2
OSSRINBA
R2
R1,R2

204
ERRND , SFHERR
, SFFMSG

FATFLG

SF IMSG

1STARTING RAM AQURESS

1SET MAINTENANCE MODE
JWAIT FOR READY, NON-AMBIGUOUS
1SET THE NEXT RAM ADDRESS
IMAIT FOR READY, NON-AMBIGUOUS
sLOAD TEST DATA
JNEXT ADDRESS TO TESTY
1COMPARE TO LAST ADDRESS
1BRANCH TILL ALL DATA WRITTEN
i
1ISSUE A BUS RESET
IMAIT FOR READY, NON-AMBIGUOUS

CIRESET

C
s THESE BITS MAY BE SET
JREADY AND NEW DATA SMOWLD BE SET
1COMPARE EXPECTED TO RECEIVED
1BRANCH IF COMPARE
sREPORT A FATAL ERROR
TRAP

. WORD
. WORD
. WORD

1SET FATAL ERROR FLAG
sLOOP ON ERROR IF FLAG SET

TRAP

1EXIT IF FATAL ERROR DETECTED
TRAP

tWAIT FOR SSR TO SET

CsCLP1

CIESCAPE

L10050-.

IMAIT FOR READY, NON-AMBIGUOUS

1SET ADDRESS BACKX TO 0000
[

PC,OKTSSR
TSOB(R3)

PC,OXTSSR

CxLOOP

SEQ 0118

.'10.2

007777

108:

745 026436
746 026442
747 026446

005004

1mmmm

2%
E

744 026432

012034
012702

026406

026410
025414
026416
026422
026426

8
b

739
740
741
742
743

14-JUN-84 15:15

LEEELEL AP EHR

MACRO M1113

YéST S: SECOND INITIALIZATION TEST

TSVSA - MARDMARE TESTS

B10

iMAIT FOR READY, NON-AMBIGUOUS
1SHOULD POINT TO RAM O
IMAIT FOR READY, NON-AMBIGUOUS
s SELECT LOCATION O
tMAIT FOR READY, NON-AMBIGUOUS

ERRND , TSADOR
, EXPREC

sREAD RAM LOCATION SPECIFIED
sLOCATTION SHOWLD BE 377 OCTAL
1BR IF Ox
sMASN'T POINTING TO CORRECT LOC.

FATFLG

.WORD
.WORD
.m
1SET THE FATAL ERROR FLAG

SuB

+NO MORE CHECKS IF FATAL ERROR

#310,.R4

1START WITH LOC 310

TSBA(RS),R1

R1,.R2
234

1SCOPE LOOP

CSEROF
EXPREC

TRAP

CsCLP1

TRAP

CIESCAPE
L10050-.

TSVSA - MARDMARE TESTS

TEST

MACRO M1113

S: SECOND INITIALIZATION TEST

783 026636

784 026640
78S 026644
786 026650
787 026654
788 026660
789 026662
790 026664
026664

026666
026670
026672

005002

004737
010465
004737
116501
120102
001406
000766
027350
012102

005237

026700

104406

026702
026704

104410
000012

793 026702

794 026706
795 026719

m 026714

CLR

30%:

005204
020427

001353

002220

408 :

000400

104403

800 026720

005737

001404
004737
005037

002220

017202
002220

S0 :

104402

808 026740
809 026744

004737
103404

026746

104455

815 026762
816 026764
817 026770
818 026774
819 027000
820 027004
821 027010
822 027014

823 027046
824 027022

825 027024
826 027030
827 027034

000767
003650
012034
012702

005004
004737
105065
004737
01046S
004737
1310265
005204

020427
003762
005065
004737
016501

015774

SUB

sEXIT ON FATAL ERROR

INC
c

a4
R4, 8400

sLOOK AT NEXT RAM LOC.
;AT TOP OF RAM ADDRESS SPACE

BEQ
JSR
CLR

JSR
8CS

016336
000000
016336
000000

016336
000000

007777
000002
016336
000002

10%:

15¢:

.MORD
.MORD
.

ESCAPE

ERRDF

177777

sMEMORY NOT ZERO AFTER INIT.
TRAP

1SET THE FATAL ERROR FLAG

304

MOV
CLR
JSR
CLRS
JSR
MOV

JSR
MOV8
INC

BLE
CLR
JSR
MOV

CIERDF

SO02
TSMEM
SFFMSG

TRAP

CsCLP1

TRAP
HORD

CIESCAPE
L100S0-.

sBRANCH TILL ALL MEMORY TESTED
S NAVANANNAANNANY END SUBTEST \ANNNAALLNLL

L1005S0:

FATFLG

SO¢
PC,CKXDROP
FATFLG

BGNSUB

- 026736

026750
026752
026754
814 026756

ERRNO, TSMEM, SFFMSG

+MEMORY EXPECTED SMOWLD BE 000000

IWAIT FOR READY, NON-AMBIGUOUS
1SELECT LOCATION SPECIFIED
sMAIT FOR READY, NON-AMBIGUOUS
sREAD LOC CONTENTS
sCHECX MEMORY FOR 000000
sBRANCH IF DATA OXAY

FATFLG

TS7

806 026736

813 026746

PC.CHXTSSR
R4, TSDB(RS)
PC,.CHXTSSR
TSBA(RS),.R1
R1,R2
404

ENDSUB

026716
- 026716

026736

SEQ 0119

INC

CxLOOP

BNE

798 026716

801 026724
802 026726
803 026732
38‘5 026736

JSR
MOV
JSR
)]
cv8
BEQ

ERRDF

104455

791 026674

792 026700

016336
000000
016336
000000

14-JUN-84 15:15

TRAP

CSESULB

1IS FATAL ERROR FLAG SET ?

sBRANCH IF NOT
s:NO LOOP, TRY TO DROP DEVICE
;CLEAR THE FATAL ERROR FLAG
$///7///7/7/777 BEGIN SUBTESTY /7777777772777

15.2:

PC,.SOFINIT
104

ERRNO,SFIERR, SFIMSG

e-1,R2
4
PC,CHKTSSR
TSOB(RS)
PC.CHKTSSR
R4 ,TSDB(RS)

PC.CHKTSSR
R2,TSDOB(RS)

R4, 07777
15¢

TSSR(RS)
PC.CHKTSSR
TSSR(RS),R1

TRAP

csBsuB

3100 A SOFT TO START
$1BRANCH IF 0.K.

sREPORT ERROR AND DROP DRIVE

TRAP

.MORD
.HORD
.WORD

sALL ONE DATA PATTERN
1STARTING RAM ADDRESS
tWAIT FOR READY, NON-AMBIGUOUS
$1SET MAINTENANCE MODE
tWAIT FOR READY, NON-AMBIGUOUS
1SET THE NEXT RAM ADDRESS

tWAIT FOR READY, NON-AMBIGUOUS
t1LOAD TEST DATA
sNEXT ADDRESS TO TEST

1COMPARE TO LAST ADDRESS
sBRANCH TILL ALL DATA WRITTEN

1 ISSUE A SOFT RESET
1WAIT FOR READY, NON-AMBIGUOUS
1GET THE CONTENTS OF TSSR

CSEROF

SO3
SFIERR
SFIMSG

TSVSA
- HARDWARE TESTS

MACRO M1113

S SECOND INITIALIZATION TEST

831 027052
832 027054
836 027056

027056
027060
027062
027064
837 027066
838 027072
027072
839 027074
027074
027076
840 027100
841 027104
842 027110
843 027114
844 027120
845 027124
846 027130
847 027134
848 027140
849 027144
850 027150
851 027154
852 027156
853 027160
027160
027162
027164
027166

854 027170
855 027174
027174
856 027176
027176
027200
857 027202
858 027206
859 027210
860 027214
861 027220
862 027224

863 027230

564 027232
865 027234

027234
027236
027240
027242
866 027244
867 027250
027250
868 027252

010102

042702
052702
020102

MOV
8IC
8IS
cHe
BEQ
ERROF

176277

002200

001406

104455

000770
003703
012102
005237

002220

104406

104410
000170
004737
105065
004737
005065
012702
004737
110265
004737
005065
004737
116501
120102

SEQ 0120
R1,R2

0tC<HIADDR!OFL
> ,R2

OSSR !NBA,R2

R1.R2

204
ERRNO, SFHERR , SFFMSG

sCONTENTS OF TSSR
1 THESE BITS MAY BE SET
tREADY AND NEW DATA SHOUWLD BE SET
1COMPARE EXPECTED TO RECEIVED
1BRANCH IF COMPARE
tREPORT A FATAL ERROR

. WORD

INC
CxLOOP

FATFLG

+SET FATAL ERROR FLAG
sLOOP ON ERROR IF FLAG SE‘T'»

ESCAPE

SuUB

sEXIT IF FATAL ERROR DETECTED
TRAP
.WORD

PC,CHKTSSR

016336
000000
016336
000000
000377
016336
000000
016336

TSOB(RS)

PC,CHKTSSR
TSDB(RS)
0377,R2

PC,.CHKTSSR
R2,TSDB(RS3)

000000
016336
000000

PC,CHKTSSR

TSBA(RS),R1
R1,R2

254
ERRNO, TSADDR , EXPREC

001406

104455

tWAIT FOR SSR TO SET

002220

104406

104410
000066
012704
005002
004737
010465
004737

116501
120102

000310

016336
000000
016336

30¢:

tWAIT FOR READY, NON-AMBIGUOUS

sREAD RAM LOCATION SPECIFIED
ll?"x?’tlm SHOWWLD BE 377 OCTAL
:

sWASN'T POINTING TO CORRECT LOC.
TRAP

.m
. WORD
. WORD

001406

104455
000770
027350

012102
005237

104406

002220

404
:

SuB

tNO MORE CHECKS IF FATAL ERROR

PC,CHKTSSR

R4, TSOB(RS)

CSESCAPE

L10051-.

sWAIT FOR READY, NON-AMBIGUOUS
sSHOULD POINT TO RAM O
tWAIT FOR READY, NON-AMBIGUOUS
+SELECT LOCATION O

1SET THE FATAL ERROR FLAG
1 SCOPE LOOP

#310,R4

CsCLP1

tWAIT FOR READY, NON-AMBIGUOUS
;SET ADDRESS BACKX TO 0000

FATFLG

CHERDF
504
SFHERR
SFFMSG

MODE
s1PUT BACK INTO MAINTENANCE

000770

027406
015474
005237

TRAP

. WORD

g
b

828 027040
829 027042
830 027046

14-JUN-84 15:15

LT -

TEST

D10

1START WITH LOC 310

CSEROF
S04

TSADOR

EXPREC

TRAP

CsCLP1

TRAP

CSESCAPE
L10051-.

. WORD

sMEMORY EXPECTED SHOULD BE 000000
tWAIT FOR READY, NON-AMBIGUOUS
1 SELECT LOCATION SPECIFIED

40
ERRNO
, TSMEM , SFFMSG

1MAIT FOR READY, NON-AMBIGUOUS
tREAD LOC CONTENTS
1CHECK MEMORY FOR 000000
tBRANCH IF DATA OXAY
sMEMORY NOT ZERO AFTER IN'I':P

FATFLG

. WORO
. WORD
. WORD
1SET THE FATAL ERROR FLAG

SuB

1EXIT ON FATAL ERROR

TRAP

CSERDF
S04
TSMEM

SFFMSG

CsCLP1

TSVSA- HARDUARE TESTS

TEST

MACRO M1113

S: SECOND INITIALIZATION TEST

027252
027254
869 027256
870 027260
871 027264
872

E10

14-JUN-84 15:15

TRAP

104410

000012
005204

020427
001353

R4
R4, 0400
304

INC
cHP
BNE

000400

874

875 027270
876 027274
877 027276
878 027302
879 027306
880 027310
881 027314
882
883

027314
027316

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

sLOOK AT NEXT RAM LOC.
+AT TOP OF RAM ADDRESS SPACE
$BRANCH TILL ALL MEMORY TESTED
L10051:

104403
005737
001402
004737
004737
103002
000137

TST

002220
017202
016456

S0%:

FATFLG

504
PC,CKDROP
PC, TSTLOOP
604
TSLOOP

BEQ
JSR
JSR
8CC
JP

EXIT

104432

TST

CIESCAPE

L10051-.

NNNANANLAWWY

TRAP

CSESUB

+IS FATAL ERROR FLAG SET ?
sBRANCH IF NOT
sNO LOOP, TRY TO DROP DEVICE
+SHOULD WE DO ITERATIONS ?

1BRANCH IF NOT
sLOOP UNTIL COUNT EXPIRED
sALL DONE THIS TEST

000132

TRAP

CSEXIT

WORD

L10047-.

TRAP

CSETST

sLOCAL TEXT MESSAGES FOR TEST

884

885
886
887 027320
888 027350
889 027406
890
891 027450
027450
027450

.WORD

$ MAANANANANANANANNY END SUBTEST

873 027266

027266
027266

SEQ 0121

105

111
111

170

156
156

164
143
143

TSTSID:
TSMEM:
TSADDR:

.ASCIZ

'Extended Initislizetion’

.ASCIZ

'Incorrect RAM Address After Init'

.ASCIZ

'Incorrect RAM Data After Init’

.EVEN
ENDTST

L10047:;

104401

TEST

.SBTTL

6: COMMAND REJECT

THIS TEST VERIFIES THAT ALL COMMANDS OTHER THAN WRITE

CHARACTERISTICS ARE REJECTED DUE TO THE NEED BUFFER ADDRESS
(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 AND DATI DMA HANDLING.
THIS TEST CONTAINS TWC
SUBTEST 1 SEQUENCES THROUGH ALL COMMAND WORDS (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 SlBTEST 1 Bur
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

INITIALIZE THE CONTROLLER BY WRITING INTO THE TSSR;

PROPER INITIAL CONDITIONS ARE VERIFIED.

F10
TSVSA - MARDWARE TESTS

TEST

6: COMMAND REJVECT

MACRO M1113

14-JUN-84 15:15

919
920

2. START
TSDB ISPROCESSING
WRITTEN UIYH w&ess OF THE COMMAND BUFFER T0

918

921

922
923
924
925
926
927
928

:
H
:
:
:
:
:
:

930

929

3.
4,

3
:
3
3
:
3
:
3

THE CONTENTS OF TSSR ARE CHECKED.
TSSR IS CORRECT IF
IT CONTAINS EITHER OCTAL 102206 OR 102306 (BIT 6

THE COMTENTS OF TSBA ARE CHECKED.

TSBA SHOULD CONTAIN

THE INITIAL COMMAND BUFFER ADDRESS C(LOADED IN STEP 2)

USING THE MAINTENANCE MODE WRAPAROUND FUNCTIONS, THE
COMMAND IMAGE BLOCK IN THE #M7196'S RAM (LOCATIONS
201-210 (OCTAL)) ARE CHECKED;
THE IMAGE SHOULD CONTAIN
A COPY OF THE FOUR COMMAND PACKET WORDS AS SET WP IN
CPU MEMORY,

THE COMMAND WORD IN THE COMMAND BUFFER IS INCREMENTED
TO THE NEXT PATTERN NOT CONTAINING WRITE
CHARACTERISTICS OR IE.
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.

941
942
943
944
945
:g

IF SSR DOES NOT SET,

PLUS 10 (OCTAL); I.E., TSBA SHOULD POINT TO THE WORD
JUST AFTER THE COMMAND PACKET (NOTE THAT &4 COMMAND
PACKET WORDS ARE ALWAYS FETCHED).

935
936
937
938
:zg

THE PROGRAM WAITS FOR SSR TO SET;

AN ERROR REPORT IS ISSUED AND THE TEST IS ABORTED.

DEPENDS UPON THE STATE OF THE TAPE TRANSPORT).

931
932
ggz

SEQ 0122

:
:
:
3
3
3
H

949

:
H

950
951
gg

3
:
H
H

954 G27452

c27452
959 027452
960 027456
961 027462
962 027470

963 027470
027470

P 027470
965 027472

012700
004737
012737

012700
104441
012704
012703
012314

027512

104404

970 027514
971 027520
975 027522

002214

T6LOOP;

BGNTST

MOV
JSR
MOV

#TST6ID,RO
PC,TSTSETUP
920. ,LOOPCNT

BGNSUB

004737
103405
010001

T6::
sASCII MESSAGE TO IDENTIFY TEST
;100 INITIAL TEST SETUP
sPERFORM 20 ITERATIONS
$////77/77/777 BEGIN SUBTEST /77777747277
T76.1:

104402

027472
027476
966 027500
967 027504
968 027510
969 027512

030703
016510
000024

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.

TRAP

000000
030360
002750

015774

S¢:

SETPRI

#PRIOO

MOV
MOV
MOV

O#T6PACKET R4
O#TSTBLK,R3
(R3)+,(R4)

JSR
B8CS
MCV

PC,SOFINIT
10¢
RO,R1

BGNSEG

csB8SuUB

;LOMER PRIORITY TO ALLOW INTERRUPTS

MOV
#PRIOO,RO
TRAP
C4SPRI
1GET THE ADDRESS OF COMMAND PACKET
1BLOCK OF TEST DATA
s INSERT THE NEXT TEST DATA WORD

$22>>3>>>>>>> BEGIN SEGMENT >>>>>>>>3>>>>

TRAP

100 SOFT INIT OF CONTROLLER
1BR IF SOFT INIT = OK
1SAVE CONTENTS OF TSSR

C$BSEG

TSVSA - MARDWARE TESTS MACRO M1113
TEST 6: COMMAND REJECT

981
982
983
984
988

027604
027604
027606
027606
027610
027612
027616
027620
027620
027622
027624
027626
998 027630
999 027634
1000 027640
1001 027644
1002 027650
1003 027652
1004 027656
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

ERROF

104455

001131
003650
012034
005037
005037
004737
042714
010465
004737

103407

002220
002222
016336

FATFLG

10%:

INTRECV
PC,CHKTSSR
#8177,(R4)

PC.WAITF
15¢

016250

ERRNO, T6SSR ,PKTSSR

104455

002220

104406

104410
000170
005737
001404

15¢:

004737
016501
032701
001402

052702
020201
001404

224:

000100
000100

104406
004737
016501

25%:

010402
062702
020102
001404

104456

001135
030631
015474

304:

016336
000010

. WORD
.m
. WORD

1CLEAR FATAL ERROR FLAG
1CLEAR INTERRUPT RECEIVED FLAG
tWAIT FOR READY, NON-AMBIGUOUS

1BR IF CARRY SET (GOOD RETURN)
sSAVE CONTENTS OF TSSR
1DEVICE FATAL SSR FlILED"‘;O” SET
. WORD
‘m
. WORD

+SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG %Yv

ESCAPE

suB

1BY-PASS SUBTEST IF FATAL ERROR

MOV
MOV
BIT
BEQ
8IS

INTRECV
224
ERRNO, TEINT ,PKTSSR

#SC!NBA!SSR!TSREJ,R2
PC,CHKTSSR
TSSR(RS),R1
®0FL ,R1
254
#0FL ,R2

R2,R1

304
ERRNO,
TG6NBA ,PKTSSR

104456

001134
030370
012046

TRAP

FATFLG

TST

002222

102206
016336

1DEVICE FATAL ERROR DURING INIT

INC
Cx1L.00P

104456
001133
030473

012046
012702

SEQ 0123

CSERDF
601
SFIERR
SFIMSG

R4 ,TSDB(RS)

010001

001132
030415
012046
005237

ERRNO, SFIERR, SF IMSG

027524
027526
027530
027532
977 027534
978 027540
979 027544
980 027550

14-JUN-84 15:15

*]
ERRHRD

TRAP

PC,CHKTSSR

TSBA(RS),R1
R4 ,R2
010,R2
R1,R2
354

ERRNO, T6TSBA ,EXPREC

CSERDF
T6SSR
PKTSSR

CsCLP1

CSESCAPE

.WORD

L10053-.

TRAP
.WORD

CSERMRD

;DID AN INTERRUPT OCCUR ?

1BRANCH IF NOT

WORD

sEXPECTED CONTENTS OF TSSR
tWAIT FOR READY, NON-AMBIGUOUS
:GET THE CONTENTS OF TSSR
+IS OFF-LINE BIT SET ?
$BRANCH IF NOT OFF -LINE
1SET OFF-LINE IN EXPECTED DATA
+DOES EXPECTED MATCH RECEIVED ?
sOKAY IF MATCH
tNBA NOT SET TO REJECT

1LOOP ON ERROR ?

LOOP

53833¢ 2

976 027524

G10

T6INT
PKTSSR

CS$ERMRD
T6NBA
PKTSSR

TRAP

CsCLP1

TRAP

CS$ERHRD

. WORD
. WORD

EXPREC

tWAIT FOR READY, NON-AMBIGUOUS
1GET TSBA REGISTER CONTENTS
1START OF THE PACKET
1EXPECT TSDA TO PACKET + 10
;COMPARE EXPECTED TO RECEIVED
;ERROR IF NOT EQUAL
iPRINT THE ERROR & EXPD/RECV
. WORD

T6TSBA

TSVSA - MARDWARE TESTS

TEST

6: COMMAND REJECT

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

004737
103404

MACRO M1113

011114

H10

14-JUN-84 15:15

35¢:

JSR
8CS
ERRHRD

PC CKRAH

Em PKTRAM, RAMERR

104456
001136

004743
015510

104405
011300
042700
020027
062703
020327
103002
000137

003060

45%:

#177740,R0
“o.“
458
#2,.R3
R3,0TBLEND
504

027510

TRAP

.WORD
.WORD
. WORD

END SEGHENT

€CCCeeeCecccc

TRAP
CS$ESEG
WORD
sPACKET COMMAND
sGET BITS 0-4
sOON’'T TEST WRITE CHARACTERISTICS
s1BRANCH IF 0K
sGET NEXT WORD FROM DATA TABLE

sREACHED END OF TABLE ?
sBRANCH IF END OF TABLE
sCONTINUE TEST WITH NEW DATA

TRAP

104403
FATFLG

002220

604

PC.CKDROP

017202

sANY FATAL ERRORS

sBRANCH IF NOT

C$ESUB

sTRY TO DROP THE UNIT
s /71177777777 BE?IN SUBTESTY 7777777772777
6.2:

:
604

TRAP

Ss:

;LOMER PRIORITY TO ALLOW INTERRUPTS
#PRIO0O,.RO
MOV

OT6PACKET R4
OTSTBLK,R3
(R3)+,(R4)

1GET THE ADDRESS OF COMMAND PACKET
;START OF TEST DATA
;PLACE NEXT DATA WORD IN PACKET

PC,SOFINIT

015774

104
RO,R1

ERRNO, SF TERR, SF IMSG

10¢:

csesuB

#PRI0O

000000

030360
002750

CSERHRD

606
PKXTRAM
RAMERR

$ MANAAAANNANANANNY END SUBTEST NNNNALLNLLW
L10053:

S0$
:

005737
001402
004737

tREPORT THE RAM ERROR(S)

100004:

(R3),.RO

001002

1SEE IF DATA IN RAM IS CORRECT
1BRANCH IF PACKET IN RAM IS CORRECT

jeccccccccceccec

40%:

177740

SEQ 0124

FATFLG

INTRECV
PC,CHKTSSR
B8IT77,(R4)

R4,TSDB(RS)

PC,WAITF
15¢
RO,R1

TRAP

$2>>>>>>>>>>> BEGIN SEGMENT

TRAP

C$SPRI

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

;00 SOFT INIT OF CONTROLLER
tBR IF SOFT INIT = OK
1 SAVE CONTENTS OF TSSR
sDEVICE FATAL ERROR DURING INIT
TRAP
.WORD
.WORD
.WORD

iCLEAR FATAL ERROR FLAG
:CLEAR INTERRUPT RECEIVED FLAG
tWAIT FOR READY, NON-AMBIGUOUS
1ENABLE INTERRUPTS
+SET _THE PACKET ADORESS
tWAIT FOR SSR TO SET
1BR IF CARRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR

C$BSEG

CSERDF
607
SFIERR
SFIMSG

TSVSA - HARDWARE TESTS

TEST

6: COMMAND REJECT

1070 030114
030114

030116
030120
030122

1071 030124
1072 030130

030130
1073 030132
030132

001140
030415
012046

005237

104456
001141

1080 030154
1081 030160
1082 030164
1083 030170
1084 030174
108S 030176
1086 030202
1087 030204

012702
004737
016501
032701
001402
052702
020201
001404

030206

104456

005737
001004

030551
012046

030210
030212
030214

001142
030370
012046

030216
1093 030220
1094 030224

104406
004737
016501

1092 030216

1095 030230
1096 030232
1097 030236
1098 030240
1102 030242

030242

010402
062702
020102
001404

001143

1105 030252
1106 030256
1110 030260
030260
030262
030264
030266

004737
103404

1108

1111 030270

030270

030270
1112 030272

15¢:

002222

INC
CKLOOP

102206
016336
000002
000100
000100

22%:

25%:

016336
000000

.WORD
.WORD
.WMORD

$1SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET

TST
BNE

INTRECYV
224

s1DID AN INTERRUPT OCCUR ?
sBRANCH IF YES

MOV
JSR
MOV
BIT
BEQ
BIS
cHP
BEQ

ERRNO, TENINT ,PKTSSR

OSC!NBA!SSR!TSREJ,R2
PC,CHKTSSR
TSSR(RS),R1
O0FL ,R1
254
00FL ,R2
R2,R1
304
ERRNO,
T6NBA ,PKTSSR

CKLOOP

ERRHRD

sREPORT ERROR IF NO INTERRUPT
TRAP
.WORD
.WORD
.WORD

sEXPECTED CONTENTS OF TSSR
sMAIT FOR READY, NON-AMBIGUOUS
tGET THE CONTENTS OF TSSR
+IS OFF-LINE BIT SET ?
sBRANCH IF NOT OFF -LINE
:SET OFF-LINE IN EXPECTED DATA
sDOES EXPECTED MATCH RECEIVED ?
;sOKAY IF MATCH
sNBA NOT SET TO REJECT

ERRNO,T6TSBA,EXPREC

40%:

ENDSEG

104456

PC.CKRAM
404
ERRNO,PKTRAM,RAMERR

001144
004743

015510

104405
011300

MOV

TONINT
PKTSSR

C$ERHRD

TRAP
;WAIT FOR READY, NON-AMBIGUOUS
;GET TSBA REGISTER CONTENTS
;START OF THE PACKET
;:EXPECT TSDA TO PACKET + 10
;COMPARE EXPECTED TO RECEIVED
;ERROR IF NOT EQUAL

CsCLP1

;PRINT THE ERROR & EXPD/RECV

TRAP

.WORD
.WORD

JSR
B8CS
ERRHRD

CS$ERMID
609

610
T6NBA
PKTSSR

030631
015474

35¢:

L10054
-,

.WORD
.WORD
.WORD

;LOOP ON ERROR ?

PC,CHKTSSR
TSBA(RS),R1
R4 ,R2
#10,R2
R1,R2
35¢

TRAP

.WORD

011114

608
T6SSR
PKTSSR

TRAP
CsCLP1
;18Y-PASS SUBTEST IF FATAL ERROR
TRAP
CSESCAPE

JSR
MOV
MOV
ADD
cHp
BEQ

000010

FATFLG

sDEVICE FATAL SSR FAILED TO SET
TRAP
CSERDF

SUB

ERRHRD

30¢:

ERRNO, T6SSR,PKTSSR

SEQ 0125

‘
ESCAPE

ERRHRD

104456

030244

030246
030250

002220

104410

1079 030144
030144
030146

1091 030206

ERRDF

104406
000170

030150
030152

14-JUN-84 15:15

104455

030134

1074 030136
107S 030142

MACRO M1113

110

CS$ERHRD

611

T6TSBA
EXPREC

;1SEE IF DATA IN RAM IS CORRECT
;BRANCH IF PACKET IN RAM IS CORRECT
;REPORT THE RAM ERROR(S)
TRAP
C$ERHRD
.WORD
612
.WORD
PKTRAM
.WORD
RAMERR

jecccccccccccc END SEGMENT ccccccccecccc

100004:

(R3),R0O

TRAP
sNEXT PACKET COMMAND WORD

CSESEG

TSVSA - HARDWARE TESTS
TEST 6: COMMAND REJECT
1113 030274
1114 030300
1115 030304
1116 030306
1117 03C312
1118 030316
1119 030320
1120

1121 030324
030324
030324
1122 030326

1123 030332
1124 030334
1125 030340

1126 030344
1127 030346
1128 030352
030352
030354
1129
1130
1131
1132
1133
1135 030356
1137 030360
1138 030360
1139 030362
1140 030364
1141 030366

1142
1143
1144
1145
1146
1147
1148 030370
1149 030415
1150 030473
1151 030551
1152 030631
1153 030703

1154
1155 030722
030722

1156
1157
1158
1159
1160
1161
1162
1163
1164
1165

030722

042700
020027
001002
062703
020327
103002
000137

104403

MACRO M1113

017202
016456

000137

027470

104432

454

sBRANCH IF NOT WRITE CHARACTERISTICS

02,.P3

S0$:

ENDSUB
TST

624%:

sGET BITS 0-4

ADD

cHP
BMIS

60$:

RO, 04

45¢%:

002220

SEQ 0126

cMP

BNE

030034

005737
001402
004737
004737

103002

BIC

177740

000004

000002
003060

J10O

14-JUN-84 15:15

BEQ
JSR
JSR
8CC

EXIT

R3,0TBLEND
S0
Ss

sDON’'T TEST WRITE CHARACTERISTICS

sBY-PASS WRITE CHARACTERISTCS

sHAVE WE COMPLETED DATA TABLE ?
sBRANCH IF ALL TESTED
s TEST WITH NEXT DATA

S NAANAANANAANANANN END SUBTEST NNANNALNALY
L10054:

TRAP

FATFLG
604
PC,.CKDROP

sANY FATAL ERRORS ?

T6L00OP

sLOOP UNTIL COUNT EXPIRED

PC, TSTLOOP
624
TST

CS$ESUB

sBRANCH IF NOT

:TRY TO DROP THE UNIT

sSHOULD WE DO ITERATIONS ?
sBRANCH IF NOT

sALL DONE THIS TEST

TRAP

.WORD

000346

CSEXIT

L10052-.

HAJ

;LOCAL STORAGE FOR THIS TEST
BLKB

10-<.-TSV2E7>

.WMORD
.WORD
.WORD
.WORD

O
052525
125252
052525

16PACKET :

:COMMAND PACKET FOR TEST

;sWILL CONTAIN VARIABLE COMMANDS

HE4

sLOCAL TEXT MESSAGES FOR TEST
103
103
111

103

T6NBA:
T6SSR:
T6INT:
TONINT:
T6TSBA:
TST6ID:

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

‘Command Not Re
jected’
'Contents of TSSR
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

TEST

TRAP

CSETST

7: WRITE CHARACTERISTICS

THIS TEST VERIFIES BASIC OPERATION OF THE WRITE CHARACTERISTICS

TSVSA- HARDWARE TESTS
TEST

MACRO M1113

7: WRITE CHARACTERISTICS

K10

14-JUN-84 15:15

1166

DATA BITS OPERATE PROPERLY;

TEST HAVE THE INTERRUPT ENABLE (IE) BIT CLEARED TO ZERO, SO NO

1167

1169
1170

:
:

1173

1168

1171
1172

3
3

1174

1175

1176

INTERRUPTS SHOULD BE GENERATED. HOWEVER, THE PROGRAM R\.NS AT
PROCESSOR PRIORITY O, WITH THE INTERRUPT SERVICE ROUTINE SET wP

TO0 FLAG UNEXPECTED INTEWTS.
IF AN INTERRUPT OCCURS, A
PROBLEM EXISTS IN EITHER THE LSI-11 BUS INTERFACE SECTION OR IN

THE ROM OR PIPELINE.

THIS TEST CHECKS VARIOUS MICROPROGRAM SEQUENCES, COMMAND

MESSAGE PACKET) ARE PERFORMED.

1179
1180

:
3
H

1182

ALL COMMANDS EXECUTED IN THIS

DECODING, DMA LOGIC, AND BASIC PACKET PROTOCOL HANDLING.

1181

VERIFIED IN SUBSEQUENT TESTS.

THE FUNCTIONING OF THESE BITS IS

1177

1178

SEQ 0127

THIS

IS THE FIRST TEST IN WHICH DATO DMA CYCLES (FOR STORING THE

ANY ERRORS IN THE BODY OF THE

TEST (I.E, ERRORS OTHER THAN INITIALIZATION ERRORS RELATED TO
THE TRANSPORT BUS) DEFINITELY INDICATE A BAD M7196 MODULE.

1183

1184 030724
030724

1189 030724
1190 030730
1191 030734
1192 030742

BGNTST

012700
004737
012737

034213
016510
000024

002214

1193 030742

030742

030742
{{345 030744
1196 030750

030750
030754
1197 030756
1198 030762
1199 8%;%
1201 030774

104402
004737
012700
104441
012703
012704
012764

1200 030774

104404

1203 030776

004737

1208 031004
1209 031006

010001

1204 031002

031006
031010
031012
031014

103405

034242
000000
002762
033060
000010

000006

1210 031016

031042
031044
031046

104455
001276
033661

005037
010465
004737
103407
010001

#T1ST7ID,RO
PC,TSTSETUP
€20. ,LOOPCNT

BGNSUB

015774

T¥.03

JSR

PC,T7REST

TRAP
:SET PACKET TO START-UP VALUES

SETPRI

#&PRIOO

;LOMER PRIORITY TO ALLOW INTERRUPTS

MOV
MOV
MOV

€TSTBLK+10. ,R3
OT7PACKET R4
#8. ,PKBCNT(R4)

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

JSR

8CS

MOV
ERRDF

002220

002222
000000
016336

10¢:

T7::

sASCII MESSAGE TO IDENTIFY TEST
;00 INITIAL TEST SETUP
;PERFORM 20 ITERATIONS
s///7/////777 BEGIN SUBTEST /77777777777

BGNSEG

104455

001275
003650
012034
005037

1211 031022
1212 031026
1213 031032
1214 031036
1215 031040
1219 031042

T7LO00P:

MOV
JSR
MOV

CLR

CLR
MOV
JSR
B8CS
MOV
ERRDF

MOV
TRAP

$22>>>>>5>>3>>> BEGIN SEGMENT

TRAP

PC,SOFINIT
10¢

RO,R1
ERRNO,SFIERR, SFIMSG

FATFLG

INTRECV
R4 ,TSDB(RS)
PC,CHKTSSR
154
RO,R1
ERRNO,T7SSR,PKTSSR

csBsSuB

#PRI0O,RO
C$SPRI

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

C$BSEG

;D0 SOFT INIT OF CONTROLLER
;BR IF SOFT INIT = OK

:SAVE CONTENTS OF TSSR
;1DEVICE FATAL ERROR DURING INIT

;CLEAR FATAL ERROR FLAG

TRAP
. WORD
.WORD
.WORD

;CLEAR INTERRUPT RECEIVED FLAG
:SET THE PACKET ADDRESS
;WAIT FOR SSR TO SET
;BR IF CARRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR
;DEVICE FATAL SSR FAILED TO SET

TRAP
.WORD
.WORD

CS$ERDF
701
SFIERR
SFIMSG

CS$ERDF
702
T7SSR

TSVSA- HARDWARE TESTS MACRO M1113
TEST 7: WRITE CHARACTERISTICS
031050

1220 031052
1221 031056

012046

005237

031056

104406

031060
031062

104410
000152
005737

1222 031060
1223 031064
1224 031070
1228 031072
031072

031074
031076

031100

1229 031102
1230 031106
1231 031112
1232 031116
1233 031120

1234 031124
1235 031126
1239 031130
031130
031132
031134
031136
1240 031140
031140
1241 031142
1242 031146
1243 031152
1244 031156
1245 031164
1246 031166
1247 031172
1248 031176
1249 031202
1250 031204
1254 031206
031206
031210
031212
031214
1255
1256
1257 031216
1258 031222
1262 031224
031224
031226
031230
031232
1263
1264 031234
031234
031234
1265

001404

104456
001277
034041
012046
016501
012702
032701
001402
052702
020201
001404

14-JUN-84 15:15

002220

15%:

002222

SEQ 0128

INC
CxLOOP

FATFLG

ESCAPE

SEG

TST

INTRECV

BEQ

ERRHRD

224

ERRNO, T7INT ,PKTSSR

224:

MOV
MOV

TSSR(R5),R1
OSSR, R2

BEQ
8IS
cHP
BEQ

254
#0FL ,R2
R2.R1
304

BIT

000100

25%:

ERRHRD

sLOOP ON ERROR, IF FLAG SET
TRAP
CsCLP1
1BY-PASS SUBTEST IF FATAL ERROR
TRAP
CSESCAPE

TRAP

CS$ERHRD

. WORD

T7INT

00FL ,R1

ERRNO,
T7NBA ,PKTSSR

.MORD

;:GET THE CONTENTS OF TSSR
sEXPECTED CONTENTS OF TSSR
1IS OFF-LINE BIT SET ?
1BRANCH IF NOT OFF -LINE
:SET OFF-LINE IN EXPECTED DATA

304:

;OKAY IF MATCH
;NBA NOT ZERO

016336
033106
000200

000012

002224
000016

32¢:

;LOOP ON ERROR ?

CxLOOP

JSR
MOV
MOV
BIT

PC,CHKTSSR
TSBA(RS),R1
#T78FR,R2
#BIT7,XST2(R2)

BEQ
ERRMRD

354
ERRNO, T7TSBA,EXPREC

BEQ
INC
ADD
ADD
cHP

324
EXTFEA
#2,R2
014, ,R2
R1,.R2

35¢:

JSR
B8CS

ERRHRD

104456
001302
004743
015510

PC,CKRAM
404

ERRNO,PKTRAM,RAMERR

CS$ERHRD

.MORD
.WORD

T7NBA
PKTSSR

TRAP
;WAIT FOR READY, NON-AMBIGUOUS
1GET TSBA REGISTER CONTENTS

CsCLP1

+1S EXTENDED FEATURES BIT SET ?
sBRANCH IF EXTENDED FEATURES OFF
:SET EXTENDED FEATURES FOR SUBTEST 6
:EXTRA WORD IF SPECIAL FEATURES
sEXPECTED CONTENTS OF TSDA
+COMPARE EXPECTED TO RECEIVED
;ERROR IF NOT EQUAL

:PRINT THE ERROR & EXPD/?ECV

C$ERHRD
705
T7TSBA
EXPREC

;SEE IF DATA IN RAM IS CORRECT
;BRANCH IF PACKET IN RAM IS CORRECT
;REPORT THE RAM ERROR(S)
TRAP

. WORD
ENDSEG

704

:START OF THE DATA BUFFER

.WORD
.WORD

40%:

PKTSSR

TRAP

.WORD
.WMORD
.WORD
011114

703

;:DOES EXPECTED MATCH RECEIVED ?

015474

104405

-.
1C000¢

;1DID AN INTERRUPT OCCUR ?
;BRANCH IF NOT

. WORD

104456
001301
034130

004737
103404

PKTSSR

1SET FATAL ERROR FLAG

.MORD

104456
001300
033220
012046
104406
004737
016501
012702
032762
001404
005237
062702
062702
020102
001404

L1O

jecccccccccccc

END

SEGMENT

100004:

CS$ERHRD

706
PKTRAM

RAMERR

ccccccccccccc

TRAP

CS$ESEG

TSVSA - HARDWARE TESTS
TEST

MACRO M1113

7: WRITE CHARACTERISTICS

1266 031236

1267 031242

1268 031246
1269 031250
1270

012364

020327

103002
000137

031254

000006

MOV

030774

BHIS
JMP

104403

1273 031256

005737

1274 031262
1275 031264

1276 031270

cMpP

554 :

”72 031254

14-JUN-84 15:15

003060

1271 031254

001402
004737

002220

017202

1277
1278

M10

TST

604:

(R3)+ ,PKBCNT(R4)

+SET THE TEST WORD

554
Ss

1BRANCH IF ALL DATA DONE
;BRANCH TILL BACK TO ZERO

R3,0TBLEND

ENDSUB

BEQ
JSR

SEQ 0129

tHAS ALL DATA BEEN TESTED ?

FNNVANAAAANAANANANY END SUBTEST NN
L100S6:

FATFLG

604
PC,CKDROP

TRAP

C$ESUB

sANY FATAL ERRORS ?

;BRANCH IF NOT
;TRY TO DROP THE UNIT

1279
12:0

:
;TEST 7, SUBTEST 2

1282
iggz

;CHECK THAT UNUSED BITS BEING SET CAUSES
;WRITE CHARACTERISTICS COMMAND TO BE REJECTED

1285

1281

1286

1287 031270
031270

031270
1269 031272

031272
031276
1290 031300
1291 031304
{g&; 031310
1294 031314

BGNSUB

012700
104441
012703
012704
004737
104404

1296 031316

004737

031326
031330

104455
001303
003650

031332
031334
1303 031336
1304 031342
1305 031344

1306 031346
1307 031352
1308 031356
1309 031362
1310 031364
1314 031366

031366
031370

T17.2:

104402

031314

1297 031322
1301 031324
1302 031326

s//////7//7/77 BEGIN SUBTEST /77777777777

103405
010001

012031

005037
010400
061300
056310
010465
004737
103405
010001

104455
001304

031372 033661

000000
033126
033060
034242

S$:

SETPRI

#&PRIOO

MOV
MOV
JSR

OT72DATA,R3
OT7PACKET R4
PC,T7REST

BGNSEG

015774

002222

000002
000000
016250

JSR

BCS
MOV
ERRDF

10¢:

CLR
MOV
ADD
BIS
MOV
JSR
B8CS
MOV
ERRDF

TRAP

csBSuB

;LOMER PRIORITY TO ALLOW INTERRUPTS

MOV
#PRIOO,RO
TRAP
C$SPRI
:START OF TEST DATA FOR SUBTEST
;GET THE ADDRESS OF COMMAND PACKET
;RESTORE PACKET TO STARTING VALUES
$22>>>>>>>>>> BEGIN SEGMENT >>>3>>>>>3>>>>

TRAP

PC,SOFINIT

10¢
RO,R1
ERRNO,SFIERR,SFIMSG

INTRECYV
R4 ,RO
(R3),.RO
2(R3),(RO)
R4,TSDB(RS)
PC,.WAITF
154
RO,R1
ERRNO, T7SSR,PKTSSR

C4BSEG

;D0 SOFT IN1T OF CONTROLLER

t1BR IF SOFT INIT = OK
:SAVE CONTENTS OF TSSR
;:DEVICE FATAL ERROR DURING INIT

TRAP
. WORD
.WORD
.WORD

;CLEAR INTERRUPT RECEIVED FLAG
;START OF THE COMMAND PACKET
;OFFSET TO THE DATA WORD TO TEST
:SET THE DATA BITS TO BE TESTED
:SET THE PACKET ADDRESS
sWAIT FOR SSR TO SET
1BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR
;:DEVICE FATAL SSR FAILED TO SET

TRAP
WORD

'WORD

CS$ERDF
707

SFIERR
SFIMSG

CS$ERDF
708

T7SSR

TSVSA - HARDWARE TESTS
7: WRITE CHARACTERISTICS
TEST
031374

012046

031376

104406

1315 031376
1316 031400

031400
031402

1317 031404
1318 031410
1322 031412
031412
031414
031416
031420

1323 031422
1324 031426
1325 031432
1326 031436
1327 031440
1328 031444
1329 031446
1330 031450
1331 031452
1332 031462
1333 031466

1337 031470

031470
031472
031474
031476
1338 031500
031500
1339 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
031540
031540
1354
1355
1356
1357
1358
1359

15¢:

TST

002222

BESG

ERRHRD

104456

001305
034041
012046
016501
012702
032701
001402
052702
020201
001414
010100

CKLOOP
ESCAPE

104410

000116
005737
001404

102206
000100
000100

22%:

25%:

104456
001306
033273
30¢:

104406
032701
001004

104456
001307
033142
012046

35%:

O,
T7INT ,PKTSSR
ERRN

RO, #NBA
304
ERRNO, T72REJ,PKTSSR

R2,RO

ONBA ,R1
354
ERRNO, T72NBA,PKTSSR

;IS NBA BIT SET ?
;OKAY IF NBA SET
;NBA NCT SET

j<ccccccceccc<

ENDSEG

BHIS
JMP

031304

S7¢:

END

CS$ERHRD

04 ,R3

R3,0T7200NE
57%
S

ENDSUB

709

T7INT
PKTSSR

.WORD
.WORD
.WORD

710
T72REJ
PKTSSR

TRAP

CsCLP1

TRAP
.WORD
.WORD
.WORD

C$ERHRD
711
T72NBA
PKTSSR

SEGMENT

:
100004

c<cccccccccccc

TRAP

C$ESEG

sPOINT TO NEXT DATA PAIR
+COMPARE TO END OF TEST DATA
+BRANCH IF ALL DATA TESTED
;BRANCH TILL BACK TO ZERO
$ AAAAANANANNANANY END SUBTEST NNAANNNNLNL

104403
HE

:TEST 7, SUBTEST 3
H

CSESCAPE
10000¢
-.

;GET THE CONTENTS OF TSSR
;EXPECTED CONTENTS OF TSSR
:IS OFF-LINE BIT SET ?
$BRANCH IF NOT OFF -LINE
+SET OFF-LINE IN EXPECTED DATA
+DOES EXPECTED MATCH RECEIVED ?
;OKAY IF MATCH
:DATA FROM TSSR
:FIND BITS IN ERROR
:IS NBA ONLY BIT IN ERROR ?
;OON’'T PRINT ERROR IF NBA ONLY BAD BIT
;COMMAND NOT REJECTED
TRAP
CS$ERHRD

;:LOOP ON ERROR ?

CKLOOP

cMP

TRAF
. WORD

:DID AN INTERRUPT OCCUR ?
:BRANCH IF NOT

cHe
BEQ
ERRHRD

ADD

000004
033142

CsCLP1

INTRECV

224

PKTSSR

TRAP

1BY-PASS CHECKS IF FATAL ERROR

104405
062703
020327
103002
000137

.WORD
IF FLAG SET

SEG

TSSR(RS),R1
O#SC!SSR!TSREJ!NBA,
R2
00FL ,R1
254
Q0FL ,R2
R2,R1
304
R1,RO

8I7
BNE
ERRHRD

SEQ 0130

:LOOP ON ERROR,

MOV
MOV
BIT
BEQ
8IS
cHe
BEQ
MOV
XOR

020027
001404

012046

N10

14-JUN-84 15:15

5558

MACRO M1113

:CHECK THE WRITE CHARACTERISTICS COMMAND IS REJECTED

L10057:

TRAP

C$ESLB

TSVSA- MARDMWARE TESTS

TEST

MACRO M1113

7: MRITE MACYEQISYICS

oll

14-JUN-84 15:15

SEQ C131

+IF ISSUED WITM AN INVALID DATA BLOCK BYTE COUNT

1360
1361
1362

1363
1364 031542

031542
031542

1365
1366 031544

031544
031550

1367 031552
1368 031556
1369 031562

1370

BGNSLE

V22222222227 u(';xu SUBTESY

7.5:

104402

012700
104441
012703
012704
004737

SETPRI

PRI0O

#1,R3
OT7PACKET
R4

000001
033060
034242

PC.TTREST

1371 031566
1372

PC,SOFINIT
10¢
RO,R1
ERRNO, SF TERR, SF IMSG

1378 031576
1379 031600
031600

INTRECV

R3,PKBCNT(R4)
R4, TSDB(RS)

PC.WAITF
15¢

016250

RO,R1

ERRNO,
T7SSR ,PKTSSR

1390 031644

1392 031652
1393 031656
1397 031660

1398 031670
1399 031674
1400 031700
1401 031704
1402 031706
1403 031712
1404 031714
1405 031716

#PRI00,RO

CISPRI

sSTARTING BYTE COUNT
1GET THE ADORESS OF COMMAND PACKET

tRESTORE PACKET TO STARTING VALUES
BEGIN SEGMENT

TRAP

»>>5>53353>>>)>

15s:

100 SOFT INIT OF CONTROLLER

IIVICE FATAL ERROR oumc INIT

104410
001404

INTRECV
224
ERRND, T7INT ,PKTSSR

002222

104456
001312
034041
016501
012702
032701
001402
052702
001414
010100

22%:
000100
000100

254

.MORD
.WORD

1CLEAR INTERRUPT RECEIVED FLAG
s INSERT THE BYTE COUNT FOR TEST
1SET_THE PACKET ADORESS
tWAIT FOR SSR TO SET

TSSR(R3),R1

OSC!SSR! TSREJ!NBA ,R2
gL.fll
#0FL ,R2
R2.R1
30¢
R1,.RO

CSERDF

712

SFIERR
SFIMSG

1BR IF CARRY SET (GOOD RETURN)
s SAVE CONTENTS OF TSSR
sDEVICE FATAL SSR FAILED TO SEV
TRAP
CSEROF

;LOOP ON ERROR,
SEG

C#BSEG

lfl IF SOFT INIT = Ox
SAVE CONTENTS OF TSSR

.m
10¢:

1391 031646

cissus

MOV
TRAP

031566
015774

TRAP

tLOMER PRIORITY TO ALLOW INTERRUPTS

$225>35>5>355>

1373 031570
1374 031574

/777777277777

LMORD
.MORD
.MORD
IF FLAG SET

713
T7SSR
PXTSSR

TRAP
CsCLP1
:BY-PASS SUBTEST IF FATAL ERROR

TRAP

CHESCAPE

1DID AN INTERRUPT OCCUR ?
1BRANCH IF NOT
TRAP
.MORD
LMORD
.MORD
1GET THE CONTENTS OF TSSR

3EX’ECTED CONTENTS OF TSSR
1IS OFF-LINE BIT SET ?
1BRANCH IF NOT OFF -LINE
1SET OFF-LINE IN EXPECTED DATA
1DOES EXPECTED MATCH RECEIVED ?
1OKAY IF MATCH
1DATA FROM TSSR

CS$ERMRD
714
T7INT
PXTSSR

TSV3A

TEST

- MARDMARE TESTS

MACRO M1113

7: MRITE CHARACTERISTICS

1406 031720
1407 031730
1408 031734
1412 031736

031736
031740
031742
031744

1413 031746
031746

1414 031750
1415 031754
1419 031756
031756
031760
031762
031764

1420 031766
1421 031766
031766
031766

1422
1423 031770
1424 031772
1425 031776
1426 032000
1427
1428 032004

020027
001404

14 -JUN-84

XOR

002000

30%:

104406
032701

104456
001314
033142
012046

35%:

R2,RO

RO, ONBA

ERRMRD

ERRNQ, T73REJ,PKTSSR

304

CxL00P
ONBA ,R1

ERRMRD

ERRNO, T72NBA ,PKTSSR

354

+IS NBA BIT SET ?

sOKAY IF NBA SET
sNBA NOT SET

TRAP
LMORD
.MORD
.MORD

CSERMRD
715
T73REV
PXTSSR

TRAP

CsCLP1

TRAP
.MORD

CSERMRD
716

.MORD

PXTSSR

geccccccccccece END SEGMENT ccccccccccccce
100004:

ENDSEG

TRAP

104405
005203
020327
002002
000137

+FIND BITS IN ERROR
+IS NBA ONLY BIT IN ERROR ?
sOON'T PRINT ERROR IF NBA OMLY BAD BIT
1+COMMAND NOT REJECTED

1LOOP ON ERROR ?

8IT

BNE

001004

SEQ 0132

BEQ

104456
001313
033372

012046

15:15

INC

BGE
JP

031556

S7%:

R3,06

S7¢
Ss

CSESEG

sNEXT BYTE COUNT
sTESTED ALL INVALID ?
$1BRANCH IF TEST DONE
tBRANCH TILL BACX TO ZERO
$ MAAAANANAANANNAY END SUBTEST NNNNANNNLWWWY
L10060:

ENDSUB

TRAP

104403

CSESUB

:TESY 7. SUBTEST 4
:SIHTEST T0 VERIFY THAT A WRITE CHARACTERISTICS COMMAND IS
sREJECTED IF AN ILLEGAL DATA BLOCKX ADDRESS IS ISSUED.
'-

8//7//777/7777 BEGIN SUBTESTY
T7.4:

BGNSUB

TRAP

104402

1442 032016
1443 032022
1444 032026
1445
1446

1447 032032
1448 032036
1452 032040
1453 032042
032042

012700
104441
012703
012704
004737

004737
103405
010001
104455

/777777777477

SETPRI

000000

033126
033060
034242
015774

Ss:

MOV

#PRIOO

OT720ATA,R3

MOV
JSR

R4
OTTPACKET
PC,TTREST

JSR
8CS
MOV

PC,SOFINIT
104
RO,R1

ERRDF

ERRNO,SFIERR, SFIMSG

cs3suB

1LOWER PRIORITY TO ALLOW INTERRUPTS
#PRI00,.RO
MOV

TRAP
C$SPRI
SUBTEST
FOR
DATA
TEST
OF
1START

1GET THE ADODRESS OF COMMAND PACKET
+RESTORE PACKET TO STARTING VALUES

100 SOFT INIT OF CONTROLLER
1BR IF SOFT INIT = OK
1SAVE CONTENTS OF TSSR
1DEVICE FATAL ERROR MI#JMH

CSEROF

——

TESTS MACRO M1113
7: WRITE CHARACTERISTICS

TSVSA
- HARDMARE

TEST

————
. —

14-JUN-84 15:15
.WORD

002222

033070

10s%:

016250

CLR
8IS
8Cs

010001

ERROF

104455

INTRECV

#1,T7DATA
R4,TSDB(RS)

PC.WAITF
15¢
RO,R1
ERRNO, T7SSR,PKTSSR

15¢:

104406
104410
000116
005737
001404

104456
001317
034041
012046
016501
012702
032701
001402
052702
020201

002222

CxLOOP

1488

1493

1494
1495

1496
1497

104406
032701

1SET _THE PACKET ADDRESS

tWAIT FOR SSR TO SET

1BR IF CARRY SET (GOOD RETURN)
sSAVE CONTENTS OF TSSR
1DEVICE FATAL SSR FAILED TO SET
TRAP
CSERDF

:LOOP ON ERROR, IF FLAG SET
TRAP

718
T7SSR
PKTSSR

CsCLP1

INTRECV
224
ERRNO,
T7INT ,PKTSSR

:DID AN INTERRUPT OCCUR ?
$BRANCH IF NOT

TSSR(RS),R1

#SC!SSR! TSREJ!NBA ,R2
o0FL ,R1
254
#0FL ,R2

000100

R2,R1

304
R1,.RO
R2,RO
RO, #NBA
304
ERRNO, T74REJ,PKTSSR

TRAP

.MORD
.MORD
WORD

;LOOP ON ERROR ?

30¢:

ONBA ,R1
354

ERRNO, T72NBA ,PKTSSR

104456

ENDSUB

719
T7INTY
PXTSSR

1 IS NBA BIT SET ?

;OKAY IF NBA SET
sNBA NOT SET

720

T74REJ

. WORD
.WORD

PKTSSR

TRAP

CsCLP1

TRAP

CS$ERMRD

.WORD
.MORD
.WORD

001321
033142
012046

CS$ERHRD

1GET THE CONTENTS OF TSSR
sEXPECTED CONTENTS OF TSSR
:IS OFF-LINE BIT SET ?
tBRANCH IF NOT OFF -LINE
sSET OFF-LINE IN EXPECTED DATA
;DOES EXPECTED MATCH RECEIVED ?
;OKAY IF MATCH
sDATA FROM TSSR
sFIND BITS IN ERROR
:IS NBA OMLY BIT IN ERROR ?
sDON'T PRINT ERROR IF NBA ONLY BAD BIT
;COMMAND NOT REJECTED
TRAP
CS$ERMRD
.WORD

001004

104403

sCLEAR INTERRUPT RECEIVED FLAG
tMAKE ADDRESS 00D

717

SFIERR
SFIMSG

TST

224%:

3Ss:

———

1BY-PASS SUBTEST IF FATAL ERROR
TRAP
CS$ESCAPE

020027
001404

1487

SuB

001414
010100

104456
00132C
033465
012046

ESCAPE

ERRMRD

102206
000100

.WORD
.WORD

.MORD
.MORD
HMORD

001316
033661
012046

e c——
—

SEQ 0133

001315
003650

012034
005037
052737
010465
Q04737
103405

721
T72NBA
PKTSSR

$ANAAANANAANANANANY END SUBTEST NANNNLY
L10061:

TRAP

C$ESUB

TSVSA - HARDWARE TESTS MACRO M1113
TEST 7: WRITE CHARACTERISTICS

14-JUN-84 15:i5

SEQ 0134

1498

1501

1503
1504

sMESSAGE BUFFER LENGTH SPECIFIES AN INVALID COUNT (LESS THAN 14)
H

3
;TEST 7, SUBTEST S

1499
1500

1502

;CHECK THAT WRITE CHARACTERISTICS CGMMAND IS REJVECTED IF THE

1507 032234

032234

BGNSUB

208 032234

104402

1509 032236
032236
032242
1510 032244

012700
10444)
012703

igg 032254

004737

1511 032250
1514 032260

012704

1518 032260

104404

1516 032262
1517 032266
1521 032270

004737
103405
010001

032272
032274

104455
001322

1523 032302
1524 032306
1525 032312
1526 032316
1527 032322
1528 032324
1532 032326
032326

005037
010337
010465
004737
103405
010001

1522 032272

032276
032300

032330
032332

032334

1533 032336

003650
012034

SETPRI

#PRIOO

MOV
MOV
JSR

#1,R3
O#TTPACKET R4
PC,.TTREST

BGNSEG

015774

JSR
BCS
MOV

ERRDF

002222
033074
000000
016250

10¢:

CLR
MOV
MOV
JSR
BCS
MOV
ERROF

104410
000116
005737
001404

15%:

002222

104456
001324

034041
012046
016501
012702
032701

TRAP

000002
102206
000100

22%:

csBSuB

sLOMER PRIORITY TO ALLOW INTERRUPTS
MOV
#PRIOO,RO
TRAP
CISPRI
1STARTING BUFFER LENGTH

sGET THE ADDRESS OF COMMAND PACKET

sRESTORE PACKET TO STARTING VALUES
$2>5>>5>>5>3>>> BEGIN SEGMENT >>>>>33>>>>>

TRAP

PC,SOFINIT
10¢
RO,R1

ERRNO, SFIERR, SFIMSG

INTRECY
R3,T7DATA.4
R4 ,TSDB(RS)
PC.WAITF
154
RO,R1
ERRNO, T7SSR ,PKTSSR

CKLOOP

C4BSEG

;D0 SOFT INIT OF CONTROLLER
tBR IF SOFT INIT = OK
sSAVE CONTENTS OF TSSR

sDEVICE FATAL ERROR DURING INIT

TRAP
. WORD
.WORD
.WORD

CSERDF
722

SFIERR
SFIMSG

;CLEAR INTERRUPT RECEIVED FLAG
s INSERT THE BAD MESSAGE LENGTH
1SET THE PACKEY ADDRESS
sWAIT FOR SSR TO SET
1BR IF CARRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR
sDEVICE FATAL SSR FAILED TO SET
TRAP
CSERDF
LWORD
.WORD

012046

032342

032352
032354
032356
032360
1541 032362
1542 032366
1543 032372

Ss:

104455

104406

1535 032344
1536 032350
1540 032352

000001
033060
034242

717.5:

001323
033661

032336

1534 032340
032340

000000

$//////7/7/7/7/7/77 BEGIN SUBTESTY ///7//7777777

723
T7SSR

. WORD

PKTSSR

TRAP

CsCLP1

. WORD

100004
-.

TRAP
. WORD
.WORD
.WORD
t1GET THE CONTENTS OF TSSR
;1EXPECTED CONTENTS OF TSSR
:+IS OFF-LINE BIT SET ?

CS$ERHRD
724
T7INT
PKTSSR

;LOOP ON ERROR, IF FLAG SET

ESCAPE

SEG

1BY-PASS SUBTEST IF FATAL ERROR
TRAP
CSESCAPE

ST
BEQ
ERRHRD

INTRECV
224
ERRNO, T7INT,PKTSSR

;1DID AN INTERRUPT OCCUR ?
;BRANCH IF NOT

MOV
MOV
BIT

TSSR(RS),R1
OSC!SSR!TSREJ!NBA,R2
00FL ,R1

TSVSA - MARDWARE TESTS

TEST

MACRO M1113

7: WRITE CMARACTERISTICS

1544 032376
1545 032400
1546 032404
1547 032406
1548 032410
1549 032412
1550 032422
1551 032426
1555 032430
032430

001402
052702
020201
001414
010100
020027
001404
001325

032436

012046

1556 032440

032440

1557 032442
1558 032446

1562 032450
032450
032452
032454
032456
1563 032460

ERRMRD

104406

032701
001004

254
00FL ,R2
R2,R1
308
R1,RO

R2,RO
RO, ONBA
30¢

ERRNO, T7SREJ,PKTSSR

1BRANCH IF NOT OFF -LINE
1SET OFF-LINE IN EXPECTED DATA
1DOES EXPECTED MATCH RECEIVED ?
sOKAY IF MATCH
s1DATA FROM TSSR
+FIND BITS IN ERROR
+IS NBA ONLY BIT IN ERROR ?
tOON’'T PRINT ERROR IF NBA OMLY BAD BIT
:COMMAND NOT REJECTED

1566 032462
1567 032464
1568 032470
{ggg 032472

005203
020327
002002
000137

TRAP

LMORD

.WORD

304:
002000

CxLOOP
BIT
BNE

ERRMRD

104456
001326
033142
012046

104405

032476

SEQ 0135

033563

032460
1908 032460

1572
1573
1574

BEQ
8IS
cw
BEQ
MOV

XOR
cp
BEQ

002000

35¢:

1564 032460

1571 032476
032476

25%:

104456

032432

032434

000100

14-JUN-84 15:15

032250
S7¢:

ONBA ,R1
354

ERRNO, T72NBA ,PKTSSR

ENDSEG

INC
cHP
BGE
JMP

000016

1LOOP ON ERROR ?
+IS NBA BIT SET ?
sOKAY IF NBA SET
sNBA NOT SET

CSERHRD
725

T7SREJ

.MORD

PKTSSR

TRAP

CsCLP1

AP
.MORD
.MORD
.MORD

CS$ERMRD
726
T72NBA
PKTSSR

pecccccccccccc END SEGMENT ccccccccccccc

100004:

R3
R3,014.
S7¢
Ss

ENDSUB

TRAP

CS$ESEG

stNEXT BUFFER LENGTH
sHAVE ALL BAD VALUES BEEN TESTED ?
sBRANCH IF ALL TESTED
tBRANCH TILL BACK TO ZERO
$ MANANNAANNANNAYN END SUBTEST NANNNNALNNLWL
L10062:

104403

TRAP

CS$ESUB

;e
p

g;z

sTEST 7, SUBTEST 6
i

1577

s THIS SUBTEST IS EXECUTED ONLY IF THE EXTENDED

1578
1579

sFEATURES MODE IS ENABLED (AS DETERMINED BY EXAMINING
1XST2 AFTER A PREVIOUS EXECUTION OF WRITE CHARACTERISTICS).

1580
1581
1582
1583
1584

sIT VERIFIES THMAT A FIFTH CHARACTERISTICS DATA WORD IS FETCHED
+IF THE BYIE COUNT PARAMETER IN THE COMMAND PACKET IS 10 DECIMAL
sOR GREATER.
:
;-

1585 032500

032500
032500

1586 032502

1587 032506

1588 032510

032510
032512

1589 032514

BGNSUB

104402

005737

001002

002224

004737

034242

4a%;

77.6:

TRAP

csesuB

TST

EXTFEA

1+ IS EXTENDED FEATURES SOFT. SW SET?

EXIT

TST

sNO EXTENDED FEATURES EXIT THIS TEST

BNE

104432

201576

$/////////777 BEGIN SUBTESY /77747477777

JSR

PC,T7REST

t1BR, IF SOFTWARE SWITCH IS SET (ON)
TRAP

LWORD

1SET PACKET TO START-UP VALUES

CSEXIT

L100SS-.

TSVSA - HARDWARE TESTS MACRO M1113
7: MRITE CHARACTERISTICS
TEST

14-JUN-84 15:15

1590

1591 032520

032520
032524

1592 032526
1593 032532
1594 032536
1595 032544
1596 032552
1597 032552

012700
104441
012703
012704
012737
012764

032552

104404

1599 032554

004737
103405
010001

1598

SETPRI

000000

002764
033060
000200
000012

033100
Ss:

002220

RO,R1

ERRNO, SFIERR, SF IMSG

R4 ,TSDB(RS)

PC,CHKTSSR
154

15¢:

002222

1START OF TEST DATA
sGET THE ADDRESS OF COMMAND PACKET
+SPECIAL BIT SET FOR EXTFEA RAM RD

1START WITH EXTENDED FEATURES VALUE
BEGIN SEGMENT

TRAP

>3>3>>3333>>)>

C$BSEG

100 SOFT INIT OF CONTROLLER
1BR IF SOFT INIT = Cx
+SAVE CONTENTS OF TSSR

;DEVICE FATAL ERROR MI'T%JNIY
.MORD
.WORD
.WORD

sCLEAR FATAL ERROR FLAG
sCLEAR INTERRUPT RECEIVED FLAG
1SET THE PACKET ADORESS
sWAIT FOR SSR TO SET
i8R IF CARRY SET (GOND RETURN)
:SAVE CONTENTS OF TSSR

sDEVICE FATAL SSR FAILED"T'O» SET

1SET FATAL ERROR FLAG

.WORD
.MORD
.WORD

CSERDF

727
SFIERR
SFIMSG

CHERDF
728
T7SSR
PKTSSR

ESCAPE

SEG

TST

INTRECV
224
ERRNO, T7INT ,PKTSSR

s1DID AN INTERRLPT OCCUR ?
1BRANCH TF NOT

TSSR(RS),R1

1GET THE CONTENTS OF TSSR
sEXPECTED CONTENTS OF TSSR
+IS OFF-LINE BIT SET ?
$BRANCH IF NOT OFF -LINE
1SET OFF-LINE IN EXPECTED DATA
+DOES EXPECTED MATCH RECEIVED ?
1OKAY IF MATCH
tNBA NOT ZERO
TRAP
CS$ERHRD

000100

:
254

ERRNO, T7NBA ,PKTSSR

30¢:

#PR100,R0

C#SPRI

FATFLG

22%:

000100

mOV "

INC
CKXLOOP

ERRHRD

032706
032710
032712
032714
1636 032716

PC,SOFINIT
104

RO,R1
ERRNO, T7SSR,PKTSSR

062220

;LOWER PRIORITY TO ALLOW INTERRUPTS

$>>35>33>55>3>>

INTRECV

1615 032620

1629 032676
1630 032702
1631 032704
1635 032706

#TSTBLK+12. ,R3
OT7PACKET R4
9200, T7SP
#10. ,PKBCNT(R4)

FATFLG

10¢:

016336

1626 032664
1627 032670
1628 032674

OPRIO0O

BGNSEG

JSR
8CS
MOV
ERROF

015774

104455
001327
003650
012034
005037
005037

MOV
MOV
MOV
MOV

SEQ 0136

CKLOOP

;LOOP ON ERROR, IF FLAG SET
TRAP
CsCLP1
1BY-PASS SUBTEST IF FATAL ERROR
TRAP
CSESCAPE

1LOOP ON ERROR ?

TRAP
LHORD
.WORD
.WORD

CS$ERHRD
729
T7INT
PKTSSR

.WORD
.WORD
.WORD

730
T7NBA
PKTSSR

SVSA - MARDWARE TESTS

TEST

MACRO M1113

7: WRITE CHARACTERISTICS
032716

1637 032720
1638 032724
1639 032730
1640 032734
1641 032742
1642 032744
1643 032750

104406
004737
016501
012702
032762

001402

062702
062702
020102

14-JUN-84 15:15

0156336

000000
033106
000200
000002
000016

000012

3248:

001404

104456

032766

1650
1651
1652 032770
1653 032774

JSR
MOV
MOV
BIT
BEQ
ADO
ADOD
ce
BEQ
ERRHRD

SEQ 0137

PC,CHKTSSR

TSBA(RS),R1
0T7BFR,R2

#BIT7,XST2(R2)
324
02, ,R2

R1,R2

35¢
ERRNO, T7TSBA ,EXPREC

TRAP
CsCLPl
tWAIT FLR READY, NON-AMBIGUOUS
1GET TSBA REGISTER CONTENTS
sSTART OF THE DATA BUFFER
+IS EXTENMED FEATURES BIT SET ?
1BRANCH IF EXTENDED FEATURES OFF
tEXTRA WORD IF SPECIAL FEATURES

sEXPECTED CONTENTS OF TSDA
sCOMPARE EXPECTED TO RECEIVED
:ERROR IF NOT EWUAL
;PRINT THE ERROR & EXPD/RECV

TRAP

.WORD
LMORD
.WORD

001333
034130
015474
012704
004737
103404

033070

011224

35s:

ERRHRD

104456
001334
004743
015510
012704

MOV
JSR

OT7DATA,R4

PC,CKRAM2

40¢
ERRNO , PKTRAM ,RAMERR

40%:

ENDSEG

OT7PACKET R4

sRESET PACKET POINTER

jeccccccccccccc END SEGMENT

10000¢ :

104405
012364
020327
103002
000137

MOV
ce
BHIS
JHP

003060
032552

55%:

(R3)+ ,PKBCNT(R4)

R3,#TBLEND

554
S¢

L10063:

002220

TST

FATFLG

017202

JSR

PC,CKDROP

60%:

104432
001234

EXIT

CSESEG

1SET THE TEST WORD
sHAS ALL DATA BEEN TESTED ?
:BRANCH IF ALL DATA DONE
:BRANCH TILL BACK TO ZERO

104403
005737
001402
004737

732
PKTRAM
RAMERR

ccccccceccccc

TRAP

$ MANANAANANANNANAY END SUBTEST

ENDSUB

731
T7TSBA
EXPREC

+SET POINTER FOR CHECKER
+SEE IF DATA IN RAM IS CORRECT
sBRANCH IF PACKET IN RAM IS CORRECT
sREPORT THE RAM ERROR(S)
TRAP
CS$ERMRD
.MORD
.MORD
.WMORD

033060

CS$ERHRD

TRAP

CSESUB

;ANY FATAL ERRORS ?

604

;BRANCH IF NOT

TST

;ALL DONE THIS TEST

sTRY TO DROP THE UNIT

TRAP

.WORD

CSEXIT

L10055-.

sLOCAL STORAGE FOR THIS TEST

100004
033070

T7PACKET:

10-<, -TSV2ET>
100004

57DATA

1COMMAND PACKET FOR TEST
tWRITE CHARACTERISTICS COMMAND, WITH ACK
+ADDRESS OF CHARACTERISTICS BLOCK

TSVSA - HARDWARE TESTS MACRO M1113
TEST
7: WRITE CHARACTERISTICS

1687 033066

1688

1689 033070
1690 033070
1691 033072
1692 033074
1693 033076
1694 033100
1695
1696 033102
1697 033106

000010
T7DATA:

033106
000000

000016
000000
000000
000000

T7SP:
000000

1730 034130
1731 034213
1732
1733
1734
1735
1736
1737
1738
1739
1740

1741 034242
1742 034242
1743 034246

.WORD

1STARTING VALUE OF BLOCK SIZE

.WORD

T7BFR

1ADDRESS OF MESSAGE BUFFER

tLENGTH OF MESSAGE BUFFER

T7BFR:

sCHARACTERISTICS DATA BLOCK

.MORD

.MORD
.WORD

O
O

tEXTFEA EXTRA WORD

.WORD

0,0

s SPACE

.BLKW

sMESSAGE BUFFER

HE4

s TEST DATA FOR SUBTEST TWO
i

:DATA HAS FORMAT:
;
:

1706
1707
1708
1709

1719
1720
1721 033142
1722 033220
1723 033273
1724 033372
1725 033465
1726 033563
1727 033661
1728 033750
1729 034041

SEQ 0138

.WORD

1698
1699
1700
1701
1702
1703
1704
1705

1710 033126
1711 033126
1712 033132
1713 033136
1714
1715
1716
1717
1718

14-JUN-84 15:15

1ST WORD
2ND WORD

OFFSET TO TEST WORD IN PACKET
BITS TO SET FOR TEST

;
‘-

000000
000002
000004
033142

037140
000001
100100

T720ATA:

.WORD

T7200NE
=.

0,BITS!BIT6!BIT9!BIT10!BIT11!BIT12!BIT13
2,8IT0

4,BIT6!BIT1S

sLOCAL TEXT MESSAGES FOR TEST
'-

116
127
127
127
127
127
103
105
125
111
127

102
122
122
122
122
122
157
170
156
156
162

TT2NBA:
TINBA:
TT2REJ:
TT3REJ:
TT4REJ:
TTSREJ:
TISSR:
TININT:
T7INT:
T7TSBA:
TST7ID:

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

'NBA Not Set On Re
jected WRITE CHARACTERISTICS®
'WRITE CHARACTERISTICS Commend Not Aczepted’
'WRITE CHARACTERISTICS Not Rejected With Non-Zero Unused Fields’
'WRITE CHARACTERISTICS Not Rejected With Invelid Dats Count’
'WRITE CHARACTERISTICS Not Rejected With Invelid Block Address’
'WRITE CHARACTERISTICS Not Rejected 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 Charecteristics’

sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES
o
'-

TTREST:

012701

033060

SAVREG
MOV

OT7PACKET,R1

1SAVE THE REGISTERS
1START OF THE PACKET

TSVSA - MARDWARE TESTS MACRO M1113
TEST 7: WRITE CHARACTERISTICS
1744 034252
1745 034256
1746 034262
1747 034264
1748 034270
1749 034274
1750 034276
1751 034302
1752 034304
1753 034306
1754 034310
1755

034310
034310

012721
012721
005021
012721
012721
005021
012721

005021
005011
000207

14-JUN-84 15:15

000010
033106
000020

SEQ 0139

;WRITE CHARACTERISTICS WITH ACK

OT7DATA,(R1)+

;ADDRESS OF CHAR DATA BLOCK

08.,(R1)+

:SIZE OF DATA BLOCK IN BYTES

(R1)+

sEXTENDED ADDRESS

::Igra.(nx)o
2323"""’
(R1)

;RETURN

L10055:

104401

.SBTTL

TEST

TRAP

CSETST

8: VOLUME CHECK

COMMAND WITH THE CVC BIT CLEAR DOES NOT AFFECT THE STATE OF THE
THE ACTUAL FUNCTION OF VOLUME CHECK, THAT OF
VOLUME CHECK BIT.

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 INDIVIDUAL TESVS OF
TAPE MOTION COMMANDS.

THE TEST PROCEEDS AS FOLLOWS:
1.

THE CONTROLLER IS INITIALIZED BY WRITING INTO THE TSSR.

A WRITE CHARACTERISTICS COMMAND IS ISSUED (WITH CvC=0)
AND XSTO IN THE RETURNED MESSAGE BUFFER IS EXAMINED;
THE VCK BIT SHOWLD BE CLEAR (0).

1761
1762
1763
1764
1765
1766
1767
1768
1769
1770
1771
1772
1773
1774
1775
1776
1777
1778
1779

;LENGTH OF MESSAGE BUFFER

ENDTST

1760

1ADDRESS OF MESSAGE BUFFER

RTS

1757
1758
1759

THE PREVIOUS STEP IS REPEATED TO VERIFY THAT VCK DOES

NOT CHANGE (REMAINS AT 0).

1780

1781
1782
1783
1784
1785
1786
1787
1788
1789
1790

A WRITE CHARACTERISTICS COMMAND IS ISSUED WITH CVC=1
AND THE VCK BIT IN XSTO IN THE MESSAGE BUFFER IS

THE VCK BIT SHOULD BE CLEAR (0).

EXAMINED;

A WRITE CHARACTERISTICS COMMAND IS ISSUED WITH CvC=0
AND THE VCK BIT IN XSTO IN THE MESSAGE BUFFER IS

[HE VCK BIT SHOULD REMAIN CLEAR (0).

EXAMINED;
BGNTST

1791 034312

1798 034322
1799 034330
1800
1801 034330

MOV
MOV
CLR
MOV
MOV
CLR
MOV
CLR
CLR

100004
033070

1756

034312
1796 034312
1797 034316

J11

012700
004737
012737

035177
016510
000024

012704

034720

002214

T8LOOF :

T18::

MOV

sASCII MESSAGE TO IDENTIFY TEST
;00 INITIAL TEST SETULP
;PERFORM 20 ITERATIONS

MOV

OTBPACKET ,R4

+PACKET FOR WRITE CHARACTERISTICS

MOV

;

TSVSA - HARDWARE TESTS
TEST 8: VOLUME CHECK

1802 034334
1803 034340
1807 034342

004737
103405
010001

034346
034350
034352

001441
003650
012034

1808 034344
034344

|
|

1809 034354
1810 034360
1811 034364
1812 034370
1813 034372
1817 034374
034374

MACRO M1113

14-JUN-84 15:15

015774

S$:

104455

042714
010465
004737
103405
010001

104%:

040000

J16336

104455
001442
035110
012046

15s:

104406

104410
000604
012702
032762
001406
016501

JSR
8CS
MOV
ERRODF

8IC
MOV
JSR
8CS
MOV
ERRDF

MOV

034742

BIT
BEQ

000002

104456

MOV
JSR
B8CS
MOV
ERRDF

016336

104455

001444
035110
012046

25%:

104406

1839
1840
1844
1845

034476
034504
034506
034512
034512
034514
034516
034520

1846 034522

08IT14,(R4)

R4,TSDB(RS)

PC,CHKTSSR
15¢
RO,R1

ERRNO, TBSSR,PKTSSR

TST

0T8BFR,R2
0X§OVCK +XSTO(R2)

20
TSSR(RS3),R1
ERRNO, TBNVCK ,PKTMES

000020

BIT
BEQ

000006

000002

ERRHRD

304:

CKLOOP

SEQ 0140

100 SOFT INIT OF CONTROLLER
1BR IF SOFT INIT = OK
1 SAVE CONTENTS OF TSSR

sDEVICE FATAL ERROR DURING INIT
TRAP
CSERDF

R4, TSDB(RS)

PC,CHKTSSR
254
RO,R1
ERRNO, TBSSR ,PKTSSR

TST

#XSOVCK, XSTO(R2)
304
TSSR(RS),R1

ERRNO, TBNVCK ,PKTMES

.WORD
.WORD
.WORD

801
SFIERR
SFIMSG

.WORD
.WORD
.WORD

802
T8SSR
PKTSSR

tCLEAR THE CVC BIT
1SET THE PACKET ADDRESS FOR WRITE CHAR
;WAIT FOR SSR TO SET
1BR IF CARRY SET (GOOD RETURN)
s SAVE CONTENTS OF TSSR
sDEVICE FATAL SSR FAILED TO SET
TRAP
CSERDF

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

TRAP

WORD

CsCLP1
CSESCAPE
L1CO64-.

;ADDRESS OF THE MESSAGE BUFFER
+IS VOLUME CHECK SET IN XSTO ?
sOKAY IF VOLUME CHECK IS CLEAR
sCONTENTS OF TSSR FOR ERROR REPORT
;VOLUME CHECK NOT CLEAR
TRAP
CS$ERHRD

;:LOOP ON ERROR ?

CxLOOP
ESCAPE

104456
001445
035017
012110

104
RO,R1
ERRNO, SFIERR, SF IMSG

CKLOOP

010001

104410
000520
032762
001406
016501

PC,SOFINIT

CKLOOP
ESCAPE

001443
035017
012110
104406
010465
004737
103405

K11

.WORD
.WORD
.WORD

803
T8NVCK
PKTMES

TRAP
CsCLP1
:SET THE PACKET ADDRESS FOR WRITE CHAR
sWAIT FOR SSR TO SET
:BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR
:DEVICE FATAL SSR FAILED“T‘(A)pSET

.WORD
.WORD
.WORD
:LOOP ON ERROR, IF FLAG SET
TRAP

;EXIT IF FATAL ERROR

TRAP

CS$ERDF
804
TBSSR
PKTSSR

CsCLP1
CS$ESCAPE

L10064-.

+IS VOLUME CHECK SET IN XSTO ?
;OKAY IF VOLUME CHECK IS SET
;CONTENTS OF TSSR FOR ERROR REPORT
s VOLUME CHECK NOT SET
TRAP
CS$ERHRD

:LOOP ON ERROR ?

.WORD
.WORD
.WORD

805
TBNVCK
PKTMES

TSVSA - HMARDWARE TESTS
TEST 8: VOLUME CHECK
034522

1847 034524
1848 034530
1849 034534
1850 034540
1851 034542
1855 034544

104406

052714

010465
004737
103405

001446
035110
012046

034554

104406

1857 034556

034556
034560

1858 034562
1859 034570
1863 034572
1864 034576
034576

14-JUN-84 15:15

8IS
MOV
JSR
8CS

040009
000000
016336

MOV
ERRDF

010001

034544
034546
034550
034552

1856 034554

MACRO M1113

104455

o8IT14,(R4)

R4,TSDB(RS)
PC,CHKTSSR

35¢
RO,R1
ERRNO, TBSSR ,PKTSSR

001406
016501

35¢:
TST

000020

103405

::?(WCK +XSTO(R2)

000006

TSSR(RS),R1
ERRNO, TBVCK ,PKTMES

000002

104456
001447
034762
012110

404%:

016336

JSR
BCS

010001

ERRDF

104455
001450
035110
45%:

104406

104432

000304

#8IT14,(R4)

R4,TSDB(RS)

PC,CHKTSSR

45%

RO,R1
ERRNO,
TBSSR ,PKTSSR

iEXIT IF FATAL ERROR

TRAP

000020

BIT

000006

BEQ
MOV
ERRHRD

000002

016456

034330

S0$:

CxLOOP

604:

JSR
8CC

624:

EXIT

CS$ERDF
806
TBSSR
PKTSSR

CsCLP1
CSESCAPE

.WORD

L10064-.

.WORD
.WORD
.MORD

807
T8VCK
PKXTMES

+IS VOLUME CHECK CLEAR IN XSTO ?
sOKAY IF VOLUME CHECK IS CLEARED
sCONTENTS OF TSSR FOR ERROR REPORT
s VOLUME CHECK NOT CLEARED
TRAP
CS$ERHRD

TRAP
CsCLP1
iCLEAR THE CVC BIT
:SET THE PACKET ADDRESS FOR WRITE CHAR
;WAIT FOR SSR TO SET
:BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR
:DEVICE FATAL SSR FAILED"T‘O» SET

.WORD
.WORD
:LOOP ON ERROR, IF FLAG SET

CKLOOP

ESCAPE

104456
001451
034762
012110

104406
004737
103002
000137

:LOOP ON ERROR, IF FLAG SET
TRAP

.WORD

012046

104410
000350
032762
001406
016501

TRAP
CsCLP1
BIT
1SET THE CvC
1SET_THE PACKET ADDRESS FOR WRITE CHAR
tWAIT FOR SSR TO SET
1BR IF CARRY SET (GOOD RETURN)
1 SAVE CONTENTS OF TSSR
sDEVICE FATAL SSR FAILEOT;O” SET

;:LOOP ON ERROR ?

CKLOOP

8IC
MOV

040000
000000

SEQ 0141

.WORD
.MORD
.MORD

104410

000434
032762

104406
042714
010465
004737

1887 034702
1888 034706
034706
034710

L11

CSERDF
80C

TBSSR
PKTSSR

TRAP

CsCLP1

TRAP
.WORD

CS$ESCAPE
L10064-.

.WORD
.WORD
.WORD

809
T8VCK
PKTMES

TRAP

CsCLP1

.WORD

L10064-.

TST

:EXIT IF FATAL ERROR

@XSOVCK , XSTO(R2)

:IS VOLUME CHECK CLEAR IN XSTO ?
tOKAY IF VOLUME CHECK IS CLEARED
;CONTENTS OF TSSR FOR ERROR REPORT
s VOLUME CHECK NOT CLEARED
TRAP
CS$ERHRC

S04
TSSR(RS),R1
ERRNO, TBVCK ,PKTHES

;:LOOP ON ERROR ?
PC,TSTLOOP
624
T8LOOP
TST

+SHOULD WE DO ITERATIONS ¢
iBRANCH IF NOT
;LOOP UNTIL COUNT EXPIRED
tALL DONE THIS TEST
TRAP

CSEXIT

TSVSA - HARDWARE TESTS
TEST 8: VOLUME CHECK

MACRO M1113

1889
1890
1891

1903 034730
1904 034730
1905 034732
1906 034734
1907 034736

034730

000010

T8DATA:

034742

1921 035214
035214
035214
1922
1923
1924

T8BFR:

10-<.-TSV2E7>

JMORD

- WORD

100004

;aoam

sWRITE CHARACTERISTICS COMMAND

JMORD

;STARTING VALUE OF COUNTER

'muoao

geara

;COMMAND PACKET FOR TEST

;ADDRESS OF CHARACTERISTICS BLOCK
;CHARACTERISTICS DATA BLOCK
sACDRESS OF MESSAGE BUFFER

MORD

0,0

16.

{LENGTH OF MESSAGE BUFFER

.BLKW

{MESSAGE BUFFER

sLOCAL TEXT MESSAGES FOR TEST
'-

126

103
126

157
157
157
157

T8VCK:
TONVCK :
T8SSR:
TST8ID:

.ASCIZ
.ASCIZ
.ASCIZ
efi'l‘l

'Volume Check 8it Not Cleared’
'Volume Check Bit (VCK) Not Cleer After Initialize (XSTO)’
'Contents of TSSR Incorrect After Write Characteristics’
‘Volume Check’

ENDTST

L10064:

104401

.SBTTL

TEST

TRAP

CSETST

9: 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).
IV
IS VERIFIED, WHERE APPROPRIATE, THAT THE IE STATUS BIT IN XSTO
OF ANY MESSAGE PACKET IS SET AND THAT A COMPLETION INTERRUPT IS
GENCRATED.
FINALLY, A SEQUENCE OF TWO COMMANDS ARE ISSUED, THE
FIRST WITH IE=1 AND THE SECOND WITH IE=0.

IT IS VERIFIED THAT

NO INTERRUPT IS GENERATED AFTER THE SECOND COMMAND AND THAT THE
IE BIT IN XSTO IS O.

B¢

1925
1926
1927
1928
1929

1930
1931
1932
1933
1934
1935
1936
1937
1938
1939
1940
1941
1942 035216
035216
1947 035216
1948 035222

BLKB

JWORD

1912

1920

TBPACKET :

1908
1909 034742
1910
1911

1913
1914
1915
1916 034762
1917 035017
1918 035110
1919 035177

SEQ 0142

1893
1895 034712

1902

14-JUN-84 15:15

;LOCAL STORAGE FOR THIS TEST

1892

1897 034720
1898 034720
1899 034722
1900 034724
1901 034726

M11

BGNTST
005037
012700

002224
040241

CLR
MOV

EXTFEA
@TST9ID,RO

19::

1CLEAR EXTENDED FEATURES SWITCH
+ASCII MESSAGE TO IDENTIFY TEST

HARDWARE TESTS MACRO M1113
9: COMPLETION INTERRUPT

TSVSA -

TEST

1949 035226
1950 035232
1951 035240
1952 035240
035240
035240

1953
1954 035242
1955 035246
035246
035252
035254
1956
1957 035260
1958 035264
1959 035272
1960 035272
035272
1961
1962 035274
1963 035300
1967 035302
1968 035304
035304
035306
035310

004737
012737

016510
000024

N11

14-JUN-84 15:15
JSR
MOV

002214

PC,TSTSETUP

" BGNSUB

;00 INITIAL TEST SETUP

;PERFORM 20 ITERATIONS

V22222222227 OE%N SUBTEST 7777777772777
» ¥

104402
JSR
SETPRI

004737
012700
104441

012703

012704
012764

002762
037170
000010

MOV

S5¢:

104404
004737
103405
010001

104455
001605
003650
012034
005037
005037
010465
004737
103407

015774

MOV
MOV

JSR
8CS
ERRDF

002220 .
002222
000000
016336

PC,TOREST
OPRIOO

OTSTBLK+10. ,R3
OT9PACKET ,R4

08. ,PKBCNT(R4)

PC,SOFINIT
104
RO,R1
ERRNO, SFIERR, SF IMSG

FATFLG

10%:

INTRECV

R4, TSDB(RS)

PC,CHKTSSR
154

ERRNO, T9SSR ,PKTSSR

104455

001606
037707

005237

002220

104406

104410
000056
005737
001004

15¢:

002222

FATFLG

ESCAPE

SEG

TST

INTRECV
224
ERRNO, TONINT ,PKTSSR

ERRHRD

104456
001607
037776

012046
016501
012702
032701
001402
052702
020201
001404

INC
CKLOOP

000002

22%:

25%:

TSSR(R5),R1

BEQ
8IS

OSSR ,R2
00FL ,R1
254
Q0FL ,R2

BEQ

304

BIT

000100
000100

MOV

R2,R1

TRAP

CcsBSuB

;SET PACKET TO INITIAL VALUES

;LOWER PRIORITY TO ALLOW INTERRUPTS

MOV

OPRIOO,RO

TRAP

CS$SPRI

:START OF TEST DATA
;GET THE ADDRESS OF COMMAND PACKET

:START WITH MINIMUM ALLOWABLE VALUE
$2>>335>>>>>>

BGNSEG

010001

1988
1989
1990 035410
1991 035414
1992 035416
1993 035422
1994 035424

SEQ 0143

BEGIN SEGMENT

TRAP

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

C4BSEG

;D0 SOFT INIT OF CONTROLLER
:BR IF SOFT INIT = OK
:SAVE CONTENTS OF TSSR
;:DEVICE FATAL ERROR DURING INIT
TRAP
CSERDF
.WORD
.WORD
.WORD

901
SFIERR
SFIMSG

.WORD
.WORD

902
T9SSR

:CLEAR FATAL ERROR FLAG
;:CLEAR INTERRUPT RECEIVED FLAG
;:SET THE PACKET ADDRESS
sWAIT FOR SSR TO SET
;B8R IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR
;:DEVICE FATAL SSR FAILED TO SET
TRAP
CSERDF
.WORD
:SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET
TRAP

PXTSSR

CsCLP1
1BY-PASS SUBTEST IF FATAL ERROR
C$ESCAPE
TRAP
.

-.
10000$

TRAP

C$ERHRD

;:DID AN INTERRUPT OCCUR ?
:BRANCH IF YES
.WORD
.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
;DOES EXPECTED MATCH RECEIVED ?
;OKAY IF MATCH

903
TONINT
PKTSSR

TSVSA - MARDWARE TESTS

TEST

MACRO M1118

9: COMPLETION INTERRUPT

1998 035426
035426
035430

14 -JUN-84

15:15

ERRMRD

104456

001610
037245
012046

30s:

SEQ 0144

ERRAND, TINBA ,PKTSSR

iNBA NOT ZERO

LMORD
LMORD
.MORD

ENDSEG

geecccccccccce

MOV

003060

035272

(RS). ,PKBCNT(R4)

R3,0TBLEND

BMIS
55%:

SEGMENT

5S¢

ENDSUB

TS7

002220
017202
037224

604 :
708
:

8EQ
JSR
8IT
BEQ
INC

IESEG

tMAS ALL DATA BEEN TESTED ?
1BRANCH IF ALL DATA DONE
tBRANCH YILL BACK TO ZERO
L 10066:

FATFLG

904
TONBA
PXTSSR

ccrtccceccacec

TRAP

S MANANAANANNAY END SUBTEST

60s
PC, CXDROP
T98FR.12,08177
704
EXTFEA

CIERRD

1SET THE TEST WORD

104403
005737
001402
004737
033727
001402
005237

END

100004:

104405

012364
020327
103002
000137

TRAP

N ananA LY

TRAP

CSESLB

1ANY FATAL ERRORS ?
1BRANCH IF NOT

sTRY T0 DROP THE UNIT

sEXTENDED FEATURES SET?
18R IF NO
1SET EXT FEATURE FLAG

HAd

s TEST 9, SUBTEST 2
'

sCHECK THAT UNUSED BITS BEING SET CAUSES
sWRITE CHARACTERISTICS COMMAND TO BE REJECTED

BGNSUB
035506

104402

2028 035510
035510
035514
2029 035516
2030 035522
2031 035526

012700
lods4
1
012703
012704
004737

2033 035532
035532

104404

2027

2035 035534
2036 035540
2040 035542
2041 035544
035546
035550

004737
103405
010001

104455
001611
003650

000000

037232
037170
040266

S¢:

8//7//7/7777/777 BEGIN SUBTESTY

19.2:

SETPRI

#PRIOO

MOV
MOV
JSR

OT920ATA,R3
OTIPACKET
R4
PC,TIREST

BGNSEG
015774

JSR
8Cs
MOV

ERRDF

ERRNO, SFIERR, SFIMSG

TRAP

csasuB

1LOMER PRIORITY TO ALLOW INTERRUPTS

#PRI00,RO
MOV
TRAP
C4SPRI
1START OF TEST DATA FOR SUBTEST
1GET THE ADODRESS OF COMMAND PACKET
IRESTORE PACKET TO STARTING VALUES
$22>>>>>>>>>>

PC,SOFINIT
104
RO,R1

/77777727717

BEGIN SEGMENT

TRAP

>>>>>>>»>>>>>

C$BSEG

100 SOFT INIT OF CONTROLLER
1BR IF SOFT INIT = OK
1SAVE CONTENTS OF TSSR
1DEVICE FATAL ERROR DURING INIY
TR
CSEROF
.MORD
.WORD

905
SFIERR

035552

012034
005037

010400

061300

002222

14-JUN-84 15:15

108

000002
000000
016250

g $3283C

TSVSA - M TEST S MACRO M1113
TEST
9: COMPLETION INTERRUPT

8CS

ERROF

SEQ 0145

INTRECV

R4 ,RO

(R3),RO
2(R3),(RO)

R4, TSOB(RS)

PC.WAITF
154

RO,R1
ERRN
T9SSR ,PKTSSR
O,

15¢:

TST

ERRMRD

102206
000100
000100

BIT

2075
2076 035700
2077 035704
2078 035710
2079 035712
2080
2081 035716
035716
035716
2082
2083
2084
2085
2086
2087

037246

000137

8IS

035522

#SC!SSR! TSREJ!NBA ,R2
gL.Rl

00FL ,R2
R2,R1
30¢
ERRNO, T92REJ ,PKTSSR

ENDSEG

3238

30%:

INTRECV
224
ERRND, TONINT ,PKTSSR

TSSR(R3),R1

22%:

254:

SEG

tWAIT FOR SSR TO SET

1DID AN INTERRUPT OCCUR ?

594
St

s TEST 9,

906
T9SSR
PXTSSR

CsCLP1

CSESCAPE
1m"-

1BRANCH IF YES

TRAP

CSERMRD

.WORD
LHORD
LMORD

907
TONINT
PXTSSR

.WORD
WORD
LMORD

908
T92REV
PKTSSR

sGET THE CONTENTS OF TSSR
1EXPECTED CONTENTS OF TSSR
+IS OFF-LINE BIT SET ?
1BRANCH IF NOT OFF -LINE
$SET OFF-LINE IN EXPECTED DATA
sDOES EXPECTED MATCH RECEIVED ?
sOKAY IF MATCH
sCOMMAND NOT REJECTED
TRAP
CS$ERHRD

END

SEGMENT

ccccccccccccc

TRAP

CSESEG

tPOINT TO NEXT DATA PAIR
tCOMPARE TO END OF TEST DATA
1BRANCH IF ALL OATA TESTED
1BRANCH TILL BACKX TO ZERO
ANMAMAANAANAAY END SUBTEST N\

L10067:

IF FLAG SEY
TRAP

:
100004

:
594

LMORD
MORD
.HORD

1BY-PASS CHECKS IF FATAL ERROR
TRap

geccccccccccce

04 ,R3
R3, #T9200NE

SFIMSG

1BR IF CARRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR
sDEVICE FATAL SSR FAILED TO SET
TRAP
CSERDF

;LOOP ON ERROR,
ESCAPE

002222

LMORD

1CLEAR INTERRUPT RECEIVED FLAG
1START OF THE COMMAND PACKET
1OFFSET TO THE DATA WORD TO TEST
1SET THE DATA BITS TO BE TESTED
1SET THE PACKET ADDRESS

SUBTEST 3

sCHECK THE WRITE CHARACTERISTICS COMMAND IS REJECTED

TRAP

CsESuB

TSVSA - MARDWARE TESTS MACRO M1113
9: COMPLETION INTERRUPT

TEST

2096 035734
2097 035740
2098

2099 035744
2100

035744

BGNSUB

012700
104441
012703
012704
004737

T
000000
000001

037170
040266

Ss:

004737
103405

015774

MOV
MOV
JSR

#1,R3
OTHPACKET R4

1STARTING BYTE COUNT

PC,TOREST

002222

10%:

016250

INTRECY

R3,PKBCNT(R4)
R4, TSDB(RS)

PC.WAITF
154
RO,.R1

>>>335>>5>>>)>

1S¢:

104410
002222

CxLOOP
ESCAPE

SEG

TST

INTRECV
224
ERRNO, TONINT ,PKTSSR

ERRHRD

104456
001617

102206
000100
000100

22%:

MOV
MOV

BIT

254:

BEQ
8IS
ce
BEQ

ERRHRD

TSSR(RS),R1

#SC!SSR!TSREJ!NBA
,R2
00FL ,R1
254
#0FL ,R2
R2,R1
304
ERRNO, T93REJ,PKTSSR

C4BSEG

100 SOFT INIT OF CONTROLLER
1BR IF SOFT INIT = O
sSAVE CONTENTS OF TSSR
sDEVICE FATAL ERROR DURING INIT
TRAP
CSEPOF
HORD

909

.WORD

SFIMSG

sCLEAR INTERRUPT RECEIVED FLAG
s INSERT THE BYTE COUNT FOR TEST

SFIERR

:SET_THE PACKET ADDRESS

tWAIT FOR SSR TO SET
1BR IF CARRY SET (GOOD RETURN)
s SAVE CONTENTS OF TSSR
sDEVICE FATAL SSR FAILED TO SET
TRAP
CSERODF
WORD

037776

2136 036074

1GET THE ADDRESS OF COMMAND PACKET
tRESTORE PACKET TO STARTING VALUES

TRAP

ERRNO, T9SSR ,PKTSSR

104406

052702
020201
001404

#PRI00,RO
C#SPRI

.WORD

001616
037707
012046

016501
012702
032701

MOV
TRAP

$2>53535>53>> BEGIN SEGMENT

PC,SOFINIT
10¢
RO,R1
ERRNO, SFIERR, SF IMSG

7777

CeBSUB

1LOMER PRIORITY TO ALLOW INTERRUPTS

104455

005737
001004

IRAP

OPRIOO

JSR
8Cs
MOV
ERROF

010001

2120 036030
2121 036034
2125 036036

L1111/

SETPRI

BGNSEG

104404

104455
001615
003650
012034
005037
010364
010465
004737
103405

2119 036024

8/ /1777777777 OE(T;;N,S\‘TESY

104402

010001

2118 036022

SEQ 0146

+IF ISSUED WITH AN INVALID DATA BLOCK BYTE COUNT

p-]

2095 035730

14-JUN-84 15:15

38gad o

2088
208 9
2090
209 1
2092 035720
035720
035720
209 3
2094 035722
035722
035726

D1e

.WORD
.MORD
:LOOP ON ERROR, IF FLAG SET
TRAP

910

T9SSR
PKTSSR

CsCLP1
1BY-PASS SUBTEST IF FATAL ERROR
TRAP
CSESCAPE
. WORD

-.
100004

TRAP

CS$ERHRD

1DID AN INTERRUPT OCCUR ?
1BRANCH IF YES

LWORD
.MORD
MORD

1GET THE CONTENTS OF TSSR
1EXPECTED CONTENTS OF TSSR
+IS OFF-LINE BIT SET ?
1BRANCH IF NOT OFF -LINE
1SET OFF-LINE IN EXPECTED DATA
+DOES EXPECTED MATCH RECEIVED ?
1OKAY IF MATCH
1COMMAND NOT REJECTED

911
TONINT
PKTSSR

104456

TRAP

001620
037420
012046

30s:

2138 036104

036104

2199 036104

104405

2140 036106
2141 036110
2142 036114
213 036116

005203
020327
002002
000137

2145 036122
036122
2146
2147

036122

.MORD
. WORD
.MORD

ENDSEG

geccccccccccce

END SEGMENT

100004:

INC
cHp
BGE
JMP

000006
035734
S59%:

R3
R3, 06
594
Ss

CSERMRD

912
TO3REY
PKXTSSR

ccccccecccece

TRAP

CSESEG

sNEXT BYTE COUNT
sTESTED ALL INVALID ?
$BRANCH IF TEST DONE
$BRANCH TILL BACK TO ZERO

ENDSUB

FNAAAAANAANNNNY END SUBTEST NANLALLALLY
L10070:

104403

TRAP

CSESUB

2148

21;3

s TEST 9, SUBTEST 4

21
2151

:
;SUBTEST TO VERIFY THAT A WRITE CHARACTERISTICS COMMAND IS

2154

ggg

sREJECTED IF AN ILLEGAL DATA BLOCK ADDRESS IS ISSUED.
3

2155
2156 036124

036124

BGNSUB

2187 036124

104402

2158 036126
036126
036132
2159 036134

012700
104441

2160 036140
g{:é 036144
2163
2164 036150
2165 036154
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

000000

012703
012704

037232
037170

004737
103405
010001

015774

004737

104455
001621
003650
012034

005037
052737
010465
004737
103405
010001
104455
001622

037707

S¢:

040266

002222
000001
000000
016250

037200

10¢:

3/////777/777 BEGIN SUBTEST /77777777777

79.4:

SETPRI

#PRIOO

MOV
MOV

#T920ATA ,R3
O®TOPACKET R4

JSR

TRAP

csB8sSuB

sLOMER PRIORITY TO ALLOW INTERRUPTS
MOV
#PRIOO,RO
TRAP
CS$SPRI
1START OF TEST DATA FOR SUBTEST

;GET THE ADDRESS OF COMMAND PACKET
1RESTORE PACKET TO STARTING VALUES

PC,TOREST

JSR
BCS
MOV
ERRDF

PC,.SOFINIT
10¢
RO,R1
ERRNO, SFIERR,

CLR
BIS
MOV
JSR
BCS
MOV
ERRDF

INTRECY
01, T90ATA
R4 ,TSDB(RS)
PC,.WAITF
15¢
RO,R1
ERRNO, T9SSR,PKTSSR

SFIMSG

100 SOFT INIT OF CONTROLLER
1BR IF SOFT INIT = 0K
1SAVE CONTENTS OF TSSR
s1DEVICE FATAL ERROR DURING INIT
TRAP
.WORD
.WORD
.WORD

sCLEAR INTERRUPT RECEIVED FLAG
1MAKE ADDRESS 0DD
:1SET THE PACKET ADDRESS
tWAIT FOR SSR TO SET
tBR IF CARRY SET (GOOD RETURN)
1 SAVE CONTENTS OF TSSR

CSEROF
913
SFIERR
SFIMSG

;1DEVICE FATAL SSR FAILED TO SET
TRAP
CSERDF
.WORD
914
.WORD
T3ISSR

e—

2137 036104

SEQ 0147

——

036074

036076
036100
036102

14-JUN-84 15:15

—————————

TSVSA - MARDWARE TESTS MACRO M1113
TEST 9: COMPLETION INTERRUPT

TSVSA - HARDWARE TESTS MACRO M1113
TEST 9: COMPLETION INTERRUPT

14-JUN-84 15:15

SEQ 0148
.

036224

012046

036226

104406

036230

104410
000056

2181 036226

2182 036230

|
’

2183 036234
2184 036240

005737
001004

036244
036246
036250

104456
001623
037776
012046

2193 036270
2194 036274
2195 036276

052702
020201
001404

036300
036302
036304
036306
2200 036310
2201
2202 036310
036310
036310
2203
2204
2205
2206
2207
2208
2209

104456
001624
037513
012046

2189 036252
2190 036256
2191 036262
2192 036266

016501
012702
032701
001402

15¢:

002222

CxLooP

1LOOP ON ERROR,

ESCAPE

suB

TST

INTRECV
224
ERRNO, TONINT ,PKTSSR

BNE
ERRHRD

000002
102206
000100

22%:

MOV

TSSR(RS),R1
OSC!SSR!TSREJ!NBA
,R2
gL.Rl
$

000100

00FL ,R2
R2,R1

30¢
ERRNO, T94REJ ,PKTSSR

2215

2216 036314
036314
036320
2217 036322
2218 036326
2219 036332
2220
2221 036336
036336
2222
2223 036340
2224 036344

L10071-.

TRAP

CS$ERHRD

.WORD

1GET THE CONTENTS OF TSSR
1EXPECTED CONTENTS OF TSSR
+IS OFF-LINE BIT SET ?

TONINT

PKTSSR

sOKAY IF MATCH

;COMMAND NOT REJECTED

304:

ENDSUB

915

sBRANCH IF NOT OFF -LINE
1SET OFF-LINE IN EXPECTED DATA
sDOES EXPECTED MATCH RECEIVED ?

.MORD
.MORD
.WORD
$ NAANANANANANNAYN END SUBTEST

L10071:

104403

CS$ERMRD
916
TO4REJ
PKTSSR

NNNANLANLNWL

TRAP

C$ESLB

HE4

s TEST 9, SUBTESTY 5
:

sCHECK THAT WRITE CHARACTERISTICS COMMAND IS REJECTED IF THC

sMESSAGE BUFFER LENGTH SPECIFIES AN INVALID COUNT (LESS THAN 14)

2213

036312

. WORD

sDID AN INTERRUPT OCCUR ?
;BRANCH IF YES

. WORD

2214 036312

036312

PKTSSR

.MORD

2210
2211
2212

.MORD

IF FLAG SET
TRAP
CsCLP1
1BY-PASS SUBTEST IF FATAL ERROR
TRAP
CSESCAPE

V22222222224 OE$INSMTEST

9.5:

104402

012700
104441
012703
012704
004737

OPRIOO

000000
000001
037170
040266

01,R3
OT9PACKET
R4

PC,TOREST

004737
103405

015774

8Cs

PC,SOFINIT
10¢

csBsuB

tLOWER PRIORITY TO ALLOW INTERRUPTS

MOV
TRAP

#PRIOO,RO

C$SPRI

sSTARTING BUFFER LENGTH
;GET _THE ADDRESS OF COMMAND PACKET
tRESTORE PACKET TO STARTING VALUES
$22>>3>>>>>>>

104404

TRAP

VP22 222222

BEGIN SEGMENT

TRAP

100 SOFT INIT OF CONTROLLER
1BR IF SOFT INIT = OK

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

C$BSEG

TSVSA

TEST

- MARDMARE TESTS MACRO M1113
9: COMPLETION INTERRUPT

2228 036346
2229 036350
036350
036352
036354
036356

2230 016360
2231 036364
2232 036370
2233 036374
2234 036400
2235 036402
2239 036404

104455
001626
037707
012046

036414

104406

036416
036420

104410
000056
005737
001004

2241 036416

2242 036422
2243 036426
2247 036430
036430
036432
036434

MOV
ERRDF

104455
001625

036404
036406
036410
036412

2240 036414

002222
037204

10%:

CLR
JSR
8Cs

016250

ERROF

15%:

002222

INTRECV

R3,T9DATA.4
R4,TSDB(RS)

PC,WAITF
154

ERRNO, T9SSR,PKTSSR

CKLOOP
ESCAPE

SEG

TST

INTRECV
224
ERRNO, TONINT ,PKTSSR

104456

001627
037776
012046
016501
012702
032701
001402

ERRNO,
SF IERR, SF IMSG

SEQ 0149

1 SAVE CONTENTS OF TSSR

sDEVICE FATAL ERROR DURING INIT
TRAP

.MORD
.WORD

TSSR(RS),R1
OSC!SSR! TSREJINBA,R2
#0FL ,R1
254
#0FL ,R2
R2,R1
304
ERRNO, T9SREJ,PKTSSR

000100

918
T9SSR
PKTSSR

.WORD
;0ID AN INTERRUPT OCCUR ?
1BRANCH IF YES

100004-

TRAP

CS$ERMRD

;LOOP ON ERROR, IF FLAG SET
TRAP
CsCLP1
:BY-PASS SUBTEST IF FATAL ERROR
TRAP
CS$ESCAPE

.MORD
sGET THE CONTENTS OF TSSR

sEXPECTED CONTENTS OF TSSR
+IS OFF-LINE BIT SET ?
sBRANCH IF NOT OFF -LINE
sSET OFF-LINE IN EXPECTED DATA
sDOES EXPECTED MATCH RECEIVED ?
sOKAY IF MATCH
;:COMMAND NOT REJECTED
.WORD

.WORD
.WMORD

304:

jeccccccccccce END SEGMENT

100004:

002002

000137

R3
R3,014

000014

594
54

036326
59¢:

ENDSUB

s TEST 9, SUBTEST 6

919

TONINT

PKTSSR

CS$ERHRD
920

T9SREJ

PKTSSR

ccccccccccccc

TRAP

CS$ESEG

tNEXT BUFFER LENGTH
tHAVE ALL BAD VALUES BEEN TCSTED ?
1BRANCH IF ALL TESTED
$BRANCH TILL BACK TO ZERO
F MAWANAANAANNAYL END SUBTEST AN
1L.10072:

TRAP

104403

917
SFIERR

.MORD
.MORD
.MORD

.WORD

22%:

CSERDF

. WORD
SFIMSG
1CLEAR INTERRUPT RECEIVED FLAG
s INSERT THE BAD MESSAGE LENGTH
1SET THE PACKET ADDRESS
sMAIT FOR SSR TO SET
s8R IF CARRY SET (GOOD RETURN)
sSAVE CONTENTS OF TSSR
sDEVICE FATAL SSR FAILED TO SET
TRAP
CSERDF

.MORD

036472
036474
2259 036476
2260 036476
036476
036476
2261

2262 036500
2263 036502
2264 036506
2265 036510
2266
2267 036514
036514
036514
2268
2269
2270

14-JUN-84 15:15

010001

003650
012034
005037
010337
010465
004737
103405
010001

G12

C$ESUB

TSVSA - MARDWARE TESTS

TEST

MACRO M1113

9: COMPLETION INTERRUPT

H12

14-JUN-84 15:15

SEQ 0150

2273

:
s THIS SUBTEST IS EXECUTED ONLY IF THE EXTENDED
tFEATURES MODE IS ENABLED (AS DETERMINED BY EXAMINING

2275
2276
2277

:IT VERIFIES THAT A FIFTH CHARACTERISTICS DATA WORD IS FETCHED
sIF THE BYTE COUNT PARAMETER IN THE COMMAND PACKET IS 10 DECIMAL
iOR GREATER.

2279

2271
2272

2274

s XST2 AFTER A PREVIOUS EXECUTION OF

2278

WRITE CHMARACTERISTICS).

2280 036516
036516
036516

2281 036520

2282 036524
2283 036526
2264 036532
2286 036536
036536
036542

2287 036544
2288 036550
22”2209 833:;2‘2

104402

005737

001002
000137
004737
012700
104441

012703
012704
012764

002224

TST

036746
040266

4%:

000000

002762
037170
000012

000006

2291 036562

104404

2293 036564
2294 036570
2298 036572

004737
103405
010001

036574
036576
036600
036602
2300 036604

104455
001631
003650
012034
005037

2303
2304
2305
2309

004737
103407
010001

2301 036610
2302 036614

036620
036624
036626
036630
036630
036632
036634
036636
2310 036640
2311 036644
036644
2312 036646
036646
036650
2313 036652

2314 036656
2318 036660

036660
036662

$//////7/7//77 BEGIN SUBTESTY /77777777777
719.6:

EXTFEA

005037
010465

104455
001632
037707
012046
005237

015774

a4
55¢
PC,TOREST

1BR, IF SOFTWARE SWITCH IS SET (ON)
sEXIT SUBTEST
$SET PACKET TO START-UP VALUES

SETPRI

@oPRIOO

sLOWER PRIORITY TO ALLOW INTERRUPTS

MOV
MOV
MOV

OTSTBLK+10. .R3
OTOPACKET R4
#10. ,PKBCNT(R4)

sSTART OF TEST DATA
1GET THE ADDRESS OF COMMAND PACKET
sSTART WITH EXTENDED FEATURES VALUE

JSR
B8CS
MOV

ERROF

002220

002222
000000

10¢:

016336

002220

104410

104456
001633

csssuB

MOV
TRAP

$2>>>35>>3>>>> BEGIN SEGMENT

#PRIOO,RO
CS$SPRI

>>>>>>33>>>>>

TRAP

104406

000056
005737
001004

TRAP

3+ IS EXTENDED FEATURES SOFT. SW SET?

BNE
JMP
JSR

BGNSEG

036562

2299 036574

BGNSUB

002222

15%:

CLR

PC,SOFINIT
10¢
RO,R1

EM SFIERR, SFIMSG

100 SOFT INIT OF CONTROLLER
sBR IF SOFT INIT = 0K
$SAVE CONTENTS OF TSSR

sDEVICE FATAL ERROR DURING INIT
TRAP
. WORD
. WORD
. WORD

FATFLG

;CLEAR FATAL ERROR FLAG

JSR
BCS
MOV
ERRDF

PC,CHKTSSR
15¢
RO,R1
ERRNO, T9SSR,PKTSSR

INC

FATFLG

sWAIT FOR SSR TO SET
1BR IF CARRY SET (GOOD RETURN)
1 SAVE
CONTENTS OF TSSR
;DEVI
FATAL SSR FAILED TO SET
TRAP
. WORD
. WORD
.WMORD
1SET FATAL ERROR FLAG

ESCAPE

SEG

1BY-PASS SUBTEST IF FMM. m

TST
BNE
ERRHRD

INTRECV
224
ERRNO, TONINT ,PKTSSR

:1DID AN INTERRUPT OCCUR ?
:BRANCH IF YES

CLR
MOV

CKLOOP

INTRECY
R4 ,TSDB(RS)

C4BSEG

CSERDF
921
SFIERR
SF IMSG

;CLEAR INTERRUPT RECEIVED FLAG
;SET THE PACKET ADDRESS

;LOOP ON ERROR, IF FLAG SET

TRAP

.WORD

CS$ERDF
922
T9SSR
PKTSSR

CsCLP1
CS$ESCAPE

10000¢
-.

C4ERHRD
923

TSVSA - MARDMARE TESTS

TEST

MACRO M1113

9: COMPLETION INTERRUPT

036664

037776

2319 036670
2320 036674
2321 036700
2322 036704
2323 036706

016501
012702
032701
001402
052702

036666

2324 036712
2325 036714

2329 036716
036716
036720
036722
036724

2330 036726

012046

020201
001404

000002
000200
000100
000100

2333 036730
2334 036734
2335 036740

012364
020327
103002

30%:

000137

000006
003060

2339
2340

036746

:NBA NOT ZERO

TRAP
.WORD
.WORD

ENDSEG

C$ERHRD
924
TONBA

PKTSSR

jecccccccccccc END SEGMENT ccccccccccccc

100004:

(R3)+,PKBCNT(R4)
R3,0TBLEND
554
S$

ENDSUB

TRAP

CSESEG

;SET THE TEST WORD
;HAS ALL DATA BEEN TESTED ?
;BRANCH IF ALL DATA DONE
;BRANCH TILL BACK TO ZERO

AANAANANANANNY END SUBTEST NNNNANNNNNY
L10073:

TRAP

CS$ESUB

;sTEST 9, SUBTEST 7

sTEST WRITE CHARACTERISTICS WITH/WITHOUT INTERRUPTS ENABLED
-

2348

037004
037006
2361 037010
2362 037014
2363 037020

ERRNO,
TONBA ,PKTSSR

s1DOES EXPECTED MATCH RECEIVED ?
;OKAY IF MATCH

2347

036752
036756
2352 036760
2353 036764
2354 036770
2355 036774
2359 036776
2360 037000
037000
037002

1GET THE CONTENTS OF TSSR
1EXPECTED CONTENTS OF TSSR
sIS OFF-LINE BIT SET ?
sBRANCH IF NOT OFF -LINE
$sSET OFF-LINE IN EXPECTED DATA

TONINT

PKTSSR

;e
:

533:2

2351 036752

TSSR(RS),R1
OSSR ,R2
O0FL ,R1
254
S0FL ,R2
R2,R1
30

104403

gs’fi

— 036750

.MORD

.WORD

JHP

55%:

2341
2342

2349 036750
036750

cHpP
BEN

MOV
cMP
BHIS

036562

2338 036746
036746

25%:

MOV
MOV
BIT
BEQ
BIS
ERRHRD

012046

104405

gggg 036742

224:

104456
001634
037246

2332 036726

SEQ 0151

.WORD

2331 036726

036726

14-JUN-84 15:15

BGNSUB

3////////7//777 BEGIN SUBTEST ///////777777
19.7:

104402
012700
104441
012704
004737
004737
103405
010001

TRAP

000000
037170
040266
015774

104455

SETPRI

#&PRIOO

MOV
JSR
JSR
B8CS
MOV
ERROF

PC,TOREST
PC,SOFINIT
10¢
RO,R1
ERRNO, SFIERR,

003650
012034
005037
052714
010465

002222
000200
000000

104:

CLR
BIS
MOV

;LOWER PRIORITY TO ALLOW INTERRUPTS

OTOPACKET R4

001635

INTRECYV
oBIT7,(R4)
R4, TSDB(RS)

csssuB

SFIMSG

MOV
#PRIOO,RO
TRAP
C$SPRI
;:GET THE ADDRESS OF COMMAND PACKET
:SET UP A VALID PACKET
;D0 SOFT INIT OF CONTROLLER
tBR IF SOFT INIT = OK
s SAVE CONTEMTS OF TSSR
;:DEVICE FATAL ERROR DURING INIT
TRAP
CSERDF
.WORD
925

. WORD
.WORD
;1CLEAR INTERRUPT RECEIVED FLAG
1ENABLE INTERRUPTS
1SET THE PACKET ADDRESS

SFIERR
SFIMSG

TSVSA - HARDWARE TESTS

TEST

MACRO M1113

9: COMPLETION INTERRUPT

14-JUN-84 15:15

2364 037024 004737 016336
2365 037030

103405

001636
037707
012046

037044
2372 037046

104406

037050

000102

2371 037044

037046

2373 037052

2374 037056

2378 037060

037060

037062
037064
C37066

2379 037070
- 037070

001004

104455

037126

2392 037130
037130
037132

2393 037134

2394 037140
2398 037142

037142
037144
037146
037150

2399 037152

2400 037152
037152

037152

2402 037154
2403
2404

2405

037154
037156

TST

002222
000200
000000
016336

ERRDF

25%:

104406
002222

TST

BEQ

ERRHRD

104456

001641
040067
012046

304
:

ERRNO, T9SSR,PKTSSR

sDEVICE FATAL SSR FAILED TO SET
TRAP
CSERDF

;LOOP ON ERROR, IF FLAG SET
SuB

INTRECV

224

ERRNO, TONINT,PKTSSR

INTRECV
o8IT7,(R4)
R4,TSDB(RS)
PC,.CHKTSSR
254
RO,R1

ERRNO,T9SSR,PKTSSR

TRAP
»

;0ID AN INTERRUPT OCCUR ?

INTRECV

304

ERRNO,
T9INT ,PKTSSR

TRAP

L10074-.

CS$ERHRD

LWORD
.WORD
.WORD

927
TONINT
PKTSSR

TRAP

CsCLP1

;CLEAR INTERRUPT RECEIVED FLAG
;DISABLE INTERRUPTS
;SET THE PACKET ADDRESS
sWAIT FOR SSR TO SET
:1BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR

;:DEVICE FATAL SSR FAILED TO SET

TRAP

CS$ERDF

TRAP

CsCLP1

928
T9SSR
PKTSSR

;BY-PASS SUBTEST IF FATAL ERROR
TRAP
CS$ESCAPE
WORD
L10074-.

;DID AN INTERRUPT OCCUR ?
;BRANCH IF NOT

TRAP

.WORD
.WORD
.WORD

C$ERMRD

929
T9INT
PKTSSR

s MANAANANANNANNY END SUBTEST NANNNANNN
L10074;

ENDSUB

EXIT

CS$ESCAPE

;BRANCH IF YES

.WORD
.WORD
.WORD
;LOOP ON ERROR, IF FLAG SET
SUB

926
T9SSR
PKTSSR

TRAP
CsCLP1
;BY-PASS SUBTEST IF FATAL ERROR

;LOOP ON ERROR ?

104403
104432
001162

s SAVE CONTENTS OF TSSR

.WORD
.WORD
.WORD

CKLOOP
ESCAPE

sWAIT FOR SSR TO SET

;1BR IF CARRY SET (GOOD RETURN)

CKLOOP
CLR
B8IC
MOV
JSR
BCS
MOV

SEQ 0152

15¢

CKLOOP

BNE

224%:

001640
037707
012046

104410
000020
005737
001404

RO,R1

ERRHRD

104406

037116

037120
037122
037124
2391 037126

002222

001637
037776
012046

005037
042714
010465
004737
103405
010001

MOV

ESCAPE

104456

2381 037072
2382 037076
2383 037102
2384 037106
2385 037112
2386 037114
2390 037116

15%:

104410

005737

PC,CHKTSSR

ERRDF

104455

037036
037040
037042

JSR

BCS

2366 037032 010001

2370 037034
037034

J12

TST

HE4

;LOCAL STORAGE FOR THIS TEST

;ALL DONE THIS TEST

TRAP

CS$ESLB

TRAP
.WORD

CS$EXIT
L10065-.

TSVSA - MARDWARE TESTS MACRO M1113
TEST 9: COMPLETION INTERRUPT
2406

Kl2

14-JUN-84 15:15

SEQ 0153

2407
2409 037160
2411 037170
2412 037170
2413 037172
2414 037174
2415 037176

100204
037200
000000
000010

2416

2417 037200
2418 037200

2419 037202
2420 037204
037206

BLKB

10-<.-TSV2E7>

JWORD

100204

T9PACKET :

T9DATA:

037212
000000
000016
000000

T98FR:

JWRITE CHAR COMMAND, WITH IE, ACK

- WORD

goonn

.MORD

;STARTING VALUE OF BLOCK SIZE

.WORD

gsern

sCHARACTERISTICS DATA BLOCK
;ADDRESS OF MESSAGE BUFFER

JWORD

037212

;COMMAND PACKET FOR TEST

sADDRESS OF CHARACTERISTICS BLOCK

MORD

0,0

14.

;LENGTH OF MESSAGE BUFFER

.BLKW

sMESSAGE BUFFER

‘.

:TEST DATA FOR SUBTEST TWO

:DATA HAS FORMAT:
:
1ST WORD
:

2ND WORD

OFFSET TO TEST WORD IN PACKET
BITS TO SET FOR TEST

037232
037232
037236
2439 037242
2440
2441

2442
2443
2444
2445
2446
2447 037246
2448 037321
2449 037420
2450 037513
2451 037611
2452 037707
2453 037776
2454 040067
2455 040156
2456 040241

2457
2458
2459
2460
2461
2462
2463
2464

037140

T920ATA:

000001

037246

100100

LMORD
"WORD
'WORD

T9200NE
=.

0.BITS!BIT6'BITY!BITIOBITI1BITI2!BIT1S
2.BITO
4.BIT6!BIT1S

HE4

;LOCAL TEXT MESSAGES FOR TEST
‘-

TONBA:
T92REJ:

.ASCIZ
.ASCIZ

TO9SREJ:

.ASCIZ

TO9INT:
TOTSBA:

.ASCIZ
.ASCIZ

T93REJ:
TO4REJ:
T9SSR:
TONINT:

1ST9ID:

'WRITE CHARACTERISTICS Commend Not Accepted’
'WRITE CHARACTERISTICS Not Rejected With Non-Zero Unused Fields'

.ASCIZ
.ASCIZ

'WRITE CHARACTERISTICS Not Rejected With Invalid Date Count’
'WRITE CHARACTERISTICS Not Rejected With Invalid Block Address’

.ASCIZ
.ASCIZ

‘'Contents of TSSR Incorrect After WRITE CHARACTERISTICS'
'Expected Interrupt Not Received On WRITE CHARACTERISTICS'

eeg'l‘l

'WRITE CHARACTERISTICS Not Rejected With Invelid Buffer Length’
'Unexpected Interrupt Received On WRITE CHARACTERISTICS'
'Incorrect TSBA Addrecs After WRITE CHARACTERISTICS'
‘'Completion Interrupt’

HEd

;ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES
:
'-

TSVSA - MARDMARE TESTS

TEST

MACRO M1113

9: COMPLETION INTERRUPT

14-JUN-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

2081 040340

TOREST:

012701
012721
012721
005021
012721
012721
005021
012721
005021
005011

005037
000207

hde

037170
100204
037200
000010
037212

SAVREG
OT9PACKET,R1
MOV
MOY
9100204 ,(R1)+
OT9DATA,(R1)+
MOV
CLR
(R1).
MOV
08.,(R1).
OT98FR,(R1)+
MOV
CLR
MOV

000016

CLR

(R1)«
014, ,(R1).
(R1)-

CLR

T98FR

CLR

037212

RTS
ENDTST

(R1)

SEQ 0154

1SAVE THE REGISTERS
1START OF THE PACKET
sWRITE CHARACTERISTICS WITH ACK, IE
sADDRESS OF CHAR DATA BLOCK
sEXTENDED ADDRESS
1SIZE OF DATA BLOCK IN BYTES
sADDRESS OF MESSAGE BUFFER
;LENGTH OF MESSAGE BUFFER
;CILEAR 1ST LOC IN MESSAGE BUFFER

;RETURN

L1006S:

104401

mzuzs

.SBTTL

2484
2465
g::g

2488
2489

H
;e

:
H

TEST

TRW

CS$ETST

10: BASIC PACKET PROTOCOL

THIS TEST VERIFIES BASIC OPERATION OF THE MESSAGE BUFFER RELEASE
COMMAND, THE FUNCTION OF THE ACK BIT IN THE COMMAND HEADER WORD,
AND THE REGISTER MODIFICATION REFUSED (RMR) LOGIC.

22:3?,

;TEST 10 SUBTEST 1
N

2492
2493
2494
2495
2496

;CHECKS THAT THE MESSAGE BUFFER RELEASE COMMAND WORKS
;PROPERLY AND THAT NO INTERRUPT IS GENERATED EVEN
;IF THE “IE” BIT IS SET IN THE COMMAND PACKET
3
-

2497 040342

040342
2502 040342
2503 040346
2504 040352

2505 040360

2507 040360
040360

BGNTST

012700
004737
012737

043277
016510
000024

104402

2509 040362
2510 040366

004737

043326

000000

gssg 040400

012700
104441
012704
012764

2514 040406

T10LO0O0P:

@TST10ID,RO
PC,TSTSETUP
920. ,LOOPCNT

BGNSUB

040360

040366
040372
2511 040374

002214

MOV
JSR
MOV

2615 040406

104404

2516 040410
2517 040414

004737
103405

T10::
sASCII MESSAGE TO IDENTIFY TEST
;00 INITIAL TEST SETLP
;PERFORM 20 ITERATIONS
3///////7/7/77 BEGIN SUBTESTY /77777777777
T10.1:

TRAP

042470
000010

000006

JSR
SETPRI

PC,T10RST
#PRIOO

;SET PACKET TO INITIAL VALUES
;LOMER PRIORITY TO ALLOW INTERRUPTS

MOV
MOV

O#T10PACKET R4
08. ,PKBCNT(R4)

:START WITH MINIMUM ALLOWABLE VALUE

BGNSEG

015774

csBSuUB

JSR
8Cs

MOV
#PRIOO,.RO
TRAP
C$SPRI
;:GET THE ADDRESS OF COMMAND PACKET
$22>>>>>>>>>> BEGIN SEGMENT >>>>3>>>>3>>>>

TRAP

PC,SOFINIT
104

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

C$BSEG

MACRO M1113
TSVSA - HARDWARE TESTS
10: BASIC PACKET PROTOCOL
TEST
2521 040416
2522 040420

14-JUN-84 15:15
MOV

010001

104455
001751
003650
012034
005037
005037
01V465
004737
103407

ERRDF

R4,TSDB(RS)

PC,CHKTSSR
15¢

ERRNO, T10SSR,PKTSSR

002220

15¢:

FATFLG

ESCAPE

SEG

ERRHRD

ERRNO, TIONINT ,PKTSSR

s SAVE CONTENTS OF TSSR

sDEVICE FATAL ERROR DURING INIT
TRAP
CSERDF
.WORD
.WORGC
.WORD

sCLEAR FATAL ERROR FLAG
1CLEAR INTERRUPT RECEIVED FLAG

000100

MOV
MOV
BIT

000100

8IS

TSSR(RS).R1
OSSR, R2
00FL ,R1
254
00FL ,R2

BEQ
ERRHRD

304
ERRNO, TIONBA ,PKTSSR

22%:

012046

30¢:

104405
104404
002222
100212

016336

042512

R2,R1

tWAIT FOR SSR TO SET
:BR IF CARRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR
;:DEVICE FATAL SSR FAILED TO SET
TRAP
CS$ERDF

:SET FATAL ERROR FLAG

.WORD
.WORD
.MORD

CsCLP1
:BY-PASS SUBTEST IF FATAL ERROR
TRAP
CS$ESCAPE
.

10000%
-.

TRAP
.WORD

CS$ERHRD
1003

.WORD

PKTSSR

TRAP

C$ERHRD

;0ID AN INTERRUPT OCCUR ?
:BRANCH IF YES

;:GET THE CONTENTS OF TSSR
;EXPECTED CONTENTS OF TSSR
+IS OFF -LINE BIT SET ?
:BRANCH IF NOT OFF -LINE
:SET OFF-LINE IN EXPECTED DATA
;DOES EXPECTED MATCH RECEIVED ?
;OKAY IF MATCH
;NBA NOT ZERO

END SEGMENT

ENDSEG

jccccccccccccc

BGNSEG

$22>>3>>>>>3>> BEGIN SEGMENT

ERRDF

10000$:

R4, TSDB(RS)

PC,CHKTSSR

RO,R1
ERRNO, T10SSR,PKTSSR

T1O0NINT

1004
T10NBA
PKTSSR

<ccccccccccccc

TRAP

1002
T10SSR
PKTSSR

:LOOP ON ERROR, IF FLAG SET
TRAP

.WORD
.WORD
.WORD

CLR
MOV
MOV
MOV
JSR
8CS

1001
SFIERR
SFIMSG

1SET_THE PACKET ADORESS

.WORD

104456
001754
042671

005037
012737
012714
010465
004737
103407
010001

INC
CKLOOP

TST

002222

104456

001753
043117
012046
016501
012702
032701
001402
052702
020201
001404

RO,R1
ERRNO,
SF IERR, SF IMSG

INTRECV

016336

104406

104410
000056
005737
001004

SEQ 0155

FATFLG

10¢:

002220
002222

010001

104455
001752
043030
012046
005237

M12

CS$ESEG

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

C$BSEG

;CLEAR INTERRUPT RECEIVED FLAG
1WIPE OUT MESSAGE BUFFER AREA
1SET COMMAND PACKET TO MESS BUF REL
+SET THE PACKET ADDRESS
sWAIT FOR SSR TO SET
1BR IF CARRY SET (GOOD RETURN)
1 SAVE CONTENTS OF TSSR
:DEVICE FATAL SSR FAILED TO SET

TSVSA - MARDWARE TESTS
TEST

MACRO M1113

10: BASIC PACKET PROTOCOL

040610
040612
040614
040616

104455
001755
043030
012046

2568 080620 005237 002220

2569 040624

040624

104406

2571 040632
2575 040634
040634

001404

2576 040644
2577 040650
2578 040654
2579 040660
2580 040662
2581 040666
2582 040670

016501
012702
032701
001402
052702
020201
00404

040672

104456

a5s:

2570 040626 005737 002222

|
|
|
|

040636
040640
040642

2586 040672

104456
001756
043210
012046

040674
040676
040700
2587 040702

001757
042753
012046

2591 040714
2595 040716
040716
040720
040722
040724

001404

2597 040726

005737

000002
000200
000100
000100

2596 040726

S28:
SS$:

604
:

042574
015474

002220

708
;

2598 040732 001403
2599 040734 004737 017202
2600 040740
040740
040740

2601 040742

2602 040742
040742
040742
2603

|
.
‘

INTRECV

:DID AN INTERRUPT OCCUR ?

CKLOOP
BEQ
ERRHMRD

Se4
ERRNO, T10INT,PKTSSR

MOV
MOV

TSSR(RS),R1
0SSR, R2

8IT
BEQ
8IS
CMP
BEQ

80%:

00FL .R1
5S¢
P0FL ,R2
R2,R1
604

ERRNO,T1ONNBA,PKTSSR

MOV
MOV
cHP

T108FR,R1
0025252, R2
R1,R2

704
ERRNO, T10MBF , EXPREC

FATFLG

80
PC, CKDROP

ENDSUB

2612

CSCLP1

TRAP
.WORD
'WORD
'WORD

CSERMRD
1006
T10TNT
PKTSSR

TRAP

CSERHRD

;:BRANCH IF NO

;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
:DOES EXPECTED MATCH RECEIVED ?
;OKAY IF MATCH
:;NBA

SET

1007
T1ONNBA
PKTSSR

;PICK UP THE 1ST WORD OF MESSAGE BUFFER
:SET UP EXPECTED DATA
iWAS ANY MESSAGE REC'D
iBR, IF OK (EQUAL)
{MESSAGE BUFFER WAS MODIFIED
TRAP
.HMCRD
"WORD
"WORD

CSERHRD
1008
T10MBF
EXPREC

;ANY FATAL ERRORS

iBR, IF NO FATAL ERRORS
;TRY TO DROP THE UNIT
jeccccccccccce END SEGMENT ccccccccccccc
100014:
CSESEG

$s/////7//77/7/777 END SUBTEST /777774774777
L10076:
TRAP
CSESUB

;TEST 10 SUBTEST 2

;CHECKS THAT THE MESSAGE BUFFER RELEASE COMMAND WORKS
;PROPERLY AND THAT THERE IS AN INTERRUPT IF THE “IE"
:BIT IS SET IN THE COMMAND PACKET AND THE “ERI“ BIT
IS SET IN THE CHARACTERISTICS DATA PACKET
H

CSERDF
1005
T10SSR
PKTSSR

TRAP

104403

2607

;LOOP ON ERROR, IF FLAG SET

.WORD
'WORD
'WORD

ENDSEG

2608
2609
222}2

SET FATAL ERROR FLAG

BEQ
JSR

2604
zsosm

104405

TRAP
.WMORD
'WORD
WORD

FATFLG

BEQ
ERRHRD

104456
001760

SEQ 01%6

INC

ERRHRD

2588 040702 013701 042512
2589 040706 012702 025252
2590 040712 020102

N12

14-JUN-84 15:15

2613 040744

040744

BGNSUB

040744

104402

2615 040746

004737

043326

040752
040756

012700
10444]

000000

2614

2616 040752

2617 040760
2618 %m
2619

2620 040772

012704
012764

040772

104404

2622 040774
2623 041000
2627 041002
2628 041004
041004
041006

004737
103405
010001

2621

041010
041012
2629 041014
2630 041020
2631 041024
2632 041032
2633 041036
2634 041042
2635 041044
2639 041046
041046
041050
041052
041054

2640 041056
2641 041062

104455
001761
003650
012034
005037
005037
012737
010465
004737
103407
010001

012046

005237

104406

041064
041066

2643 041070
2644 041074

104410
000056
005737
001004

041076

104456

2648 041076

N41100
041102
041104
2649 041106
2650 041112
2651 041116
2652 041122
2653 041124
2654 041130
2655 041132
2659 041134

041134
041136

SETPRI

000006

015774

002220
002222
000020
900000
016336

108:

042506

104455
001762
043030

041062

2642 041064

042470
000010

JSR

001763
043117
012046
016501
012702
032701
001402
052702
020201
001404

104456
001764

MOV
MoV

SEQ 0197
/77777777777 BEGIN SUBTYESY /777777727777

710.2:

PC,T10RST
#PRIZ0

OT10PACKET R4
08. ,PKBCNT(R4)

BGNSEG

TRAP

ci8suB

1SET PACKET TO INITIAL VALUES

sLOMER PRIORITY TO ALLOW INTERRUPTS

MOV
TRap

#PRI00,RO
CISPRI
1GET THE ADDRESS OF COMMAND PACKETY
sSTART WITH MINIMUM ALLOWABSLE VALUE
3222535533335 BEGIN SEGMENT

TRAP

»>33335>35335>

JSR
B8CS
MOV
ERROF

PC,SOFINIT
10¢
RO,R1
ERRNO , SF IERR , SF IMSG

;00 SOFT INIT OF CONTROLLER
sBR IF SOFT INIT = Ox
1SAVE CONTENTS OF TSSR
sDEVICE FATAL ERROR DURING INIY

CLR
CLR
MOV
MOV
JSR
B8CS
MOV
ERRDF

FATFLG
INTRECY
#000020, T1I0DATA«6
R4, TSDB(RS)
PC.OTSSR
15
RO,R1
ERRND, T10SSR ,PXTSSR

;CLEAR FATAL ERROR FLAG
sCLEAR INTERRUPT RECEIVED FLAG
1SE’ ERI IN CHARACTERTYSTICS DATA
1SE1 THE PACKET ADDRESS
sWATY _'fl SSR TO SET
1BR I¥ CARRY SET (GOOD RET'URN)
:SAVE CONTENTS OF TSSR
sDEVICE FATAL SSR FAILED r0 SET
TRAP
CSERDF
. WORD
1010

TRAP
. WORD
. WORD
. WORD

. WORD

002220

15%:

002222

000100

224%:

25%:

TRAP

csCLP)

TRAP
. WCRD

CSESCAPE
100004
-.

TRAP

CSERMRD

TRAP
. WORD

CSERHRD
1012

1SET FATAL ERROR FLAC
;:LOOP ON ERROR, Jr rLAG SET

ESCAPE

SEG

;BY-PASS SUBTEST IF FATAL ERROR

TS7
BNE

INTRECYV
224

;1DID AN INTERRUPT OCCUR ?
1BRANCH IF YES

MOV
MOV
BIT
BEQ
8IS
c
BEQ
ERRHRD

TSSR(RS),R1
OSSR ,R2
O0FL ,R1
254
#O0FL ,.R2
R2.R1
304
ERRNO, T1ONBA,PKTSSR

T10SSR

PKTSSR

FATFLG

ERAND, TIONINT ,PKTSSR

CSERDF
1009
SFIERR
SF IMSG

.WMORD

INC
CxLOooP

ERRMRD

000002
000200
000100

C$BSEG

. WORD
1011
. WORD
T1ONINT
.WMORD
PXTSSR
1GET THE CONTENTS OF TSSR
1EXPECTED CONTENTS OF TSSR
+IS OFF-LINE BIT SET ?
1BRANCH IF NOT OFF -LINE
1SET OFF-LINE IN EXPECTED DATA
;1DOES EXPECTED MATCH RECEIVED ?
sOKAY IF MATCH
sNBA NOT ZERO

TSVSA - MARDMARE TESTS MACRO M1113
TEST 10: BASIC PACKXET PROTOCOL

B1Z

TSVSA
- HARDWARE TESTS

TEST

MACRO M11135

10: BASIC PACKET PROTOCOL

041140
041142
2660 041144

14-JUN-84

042671
012046

30¢:

2661 041144

041144
041144

2662 041146
2663

15:15

SEQ 0158

.MORD
.MORD
ENDSEG

gecccccccccece

BGNSEG

$225>355355>>

END

SEGMENT

100004:

002222
025252
100212
000000
016336

2664 0411350
2665 041154
2666 041162
2667 041166
2668 041172
2669 041176
2670 041200

CLR
MOV
MoV
MOV
JSR

042512

8CS

MOV
ERRDF

002220

458

INC

CxL0oP

002222

BNE
ERRAD

INTRECV
0023252, T108FR
#100212,(R4)

R4, TSDB(RS)

PC.CHKTSSR

454

RO,R1
ERRNO, T10SSR ,PXTSSR

FATFLG

INTRECY
Se4
ERRNO, TI0INT °KTSSR

cecccccrccccc

TRAP

BEGIN SEGMENT

041146

TRAP

000002
000200
000100
000100

Ses:

MOV
MOV
BIT

BEQ
SS4:

8IS

=,4
BEQ

ERRHRD

2702 041310
041310
041312
041314
041316
2703
2704 041320
2705 041320
2706 041324

013701
012702
020102
001404

042512
025252

604 :

MOV
MOV

T108FR,R1

9023252

R1,R2
704

ERRNO, T10MBF , EXPREC

1SET COMMAND PACKET TO MESS BUF REL
1SET_THE PACKET ADORESS
tMAIT FOR SSR TO SET
1BR IF CARRY SET (GOOD RETURN)
sSAVE CONTENTS OF TSSR
sDEVICE FATAL SSR FAILFD TO SET
TRAP
CSERDF

1SET FATAL ERROR FLAG

.HMORD
.MORD
.MORD

1L00P ON ERROR, IF FLAG SET
TRAP

sDID AN INTERRUPT OCCUR ?
:BRANCH IF YES

Taap

.MORD
$GET THE CONTENTS OF TSSR

sOKAY IF MATCH
sNBA NOT SET

001402

TRAP
.MORD

002220

BEQ

FATFLG

80¢

CsCLP1

CS$ERMRD

1014
T10INT

PKTSSR

CSERMRD
1015

T1(0NNBA
PKTSSR

tPICK UP THE 1ST WORD OF MESSAGE BUFFER
1SET UF EXPECTED DATA
tWAS ANY MESSAGE REC'D

18R, IF O (EQUAL)
tMESSAGE BUFFER WAS MODIFIED
TRAP

.WORD
.MORD
.WORD

704
:

1013
T10SSR
PXTSSR

sEXPECTED CONTENTS OF TSSR
+IS OFF-LINE BIT SET ?
1BRANCH IF NOT OFF -LINE
ISET OFF -LINE IN EXPECTED DATA
1D0ES EXPECTED MATCH RECEIVED ?

042574
015474

005737

C#BSEG

1CLEAR INTERRUPT RECEIVED FLAG
JWIPE OUT MESSAGE BUFFER AREA

. WORD
.WORD

c
BEQ
ERRHRD

104456
001770

EM T1ONNBA ,PKTSSR

CSESEG

>>533353335»

. WORD
. WORD

TSSR(R3),R1
OSSR, R2
S0FL ,R1
554
#0FL ,R2
R2 ll

T10NBA
PXTSSR

1ANY FATAL ERRORS

1BR, IF NO FATAL ERRORS

CSERHRD

1016
T10MBF
EXPREC

1S VSA - MARDWARE TESTS MACRO M1113
TEST
10: BASIC PACKET PROTOCOL

2707 041326

2708 041332

004737

14-JUN-84 15:15

017202

80s:

2709 041332

041332

2710 041334

041334

2711
2712

041334

JSR

SEQ 0159

PC,CKDROP

ENDSEG

s TRY TO DROP THE UNIT
gecccccccecccee

END SEGMENT

10001¢:

104405

ENDSUB

cccccccccccce

TRAP

CSESEG

TRAP

CSESUB

8 /11777777777 END SUBTESY /777777777177
L10077;

104403
3

2713

s TEST 10 SUBTEST 3

2715
2716
2717

1CHECKS THAT THE CPU GIVES UP OWNERSHIP OF THE MESSAGE BUFFER
sAFTER THE MESSAGE BUFFER RELEASE, AND THAT FOLLOWING COMMANDS
1WORK CORRECTLY

2714

2718
2719

3
-

2720 041336

041336

p— 041336

104402

2722 041340

004737

043326

012700
104441

000000

2723 041344
041344
041350

2724 041352
g;g :ig

012704
012764

042470
000010

000006

2729 041366
2730 041372
2734 041374
2735 041376

004737
103405
010001

2747 041446
041446
2748 041450
041450
041452

2749 041454

710.3:

PC,T10RST

MOV
MOV

OT10PACKET , R4
#8. ,PKBCNT(RS)

@#PRIOO

BGNSEG

104404

041404
2736 041406
2737 041412
2738 041416
2739 041422
2740 041426
2741 041430
2745 041432
0431432
041434
041436
041440
2746 041442

$/////77/7/777 BEGIN SUBTYEST /777777727147

JSR

SETPRI

2727 041364

2728 041364

041376
041400
041402

BGNSUB

104455
001772
043030
012046

005237

015774

002220
002222
000000
016336

002220

104410

005737

$1SET PACKET TO INITIAL VALUES

sLOWER PRIORITY TO ALLOW INTERRUPTS
MOV
#PRI00,RO
TRAP
CISPRI

:GET THE ADDRESS OF COMMAND PACKET
$START MITH MINIMUM ALLOWABLE VALUE
$2>>33>>>>>>> BEGIN SEGMENT

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

JSR
B8CS
MOV
ERRDF

PC,SOFINIT
10¢
RO,R1

ERRNO, SFIERR, SFIMSG

002222

10%:

15¢:

C$BSEG

00 SOFT INIT OF CONTROLLER
tBR IF SOFT INIT = 0K
sSAVE CONTENTS OF TSSR

sDEVICE FATAL ERROR DURING INIT
TRAP
CSEROF
. WORD
.WORD

104406
000056

csBSuB

TRAP

104455
001771
003650

012034
005037
005037
N10465
004737
103407
010001

TRAP

.WORD
1CLEAR FATAL ERROR FLAG
1CLEAR INTERRUPT RECEIVED FLAG
1SET THE PACKET ADDRESS
tWAIT FOR SSR TO SET
1BR IF CARRY SET (GOOD RETURN)
1 SAVE CONTENTS OF TSSR
1DEVICE FATAL SSR FAILED TO SET
TRAP
.WORD
. WORD
.MORD
1SET FATAL ERROR FLAG

1017
SFIERR

SFIMSG

CLR
CLR
MOV
JSR
B8CS
MOV
ERRDF

FATFLG
INTRECYV
R4 ,TSDB(RS)
PC,.CHKTSSR
154
RO,R1
ERRNO,T10SSR,PKTSSR

INC
CKXLOOP

FATFLG

ESCAPE

SEG

TRAP
CsCLP1
1BY-PASS SUBTEST IF FATAL ERROR
TRAP
CS$ESCAPE

TST

INTRECYV

;DID AN INTERRUPT OCCUR ?

;LOOP ON ERROR,

CS$ERDF
1018
T10SSR
PKXTSSR

IF FLAG SET

100004 - .

2750 041460
2754 041462

041462
041464
041466
041470
041472
041476
041502
041506
041510
041514
041516
041520
041520
041522
041524
041526
041530
041530
041530
041530
2768 041532
041532
2769 041534
2770 041540
2771 041544
2772 041552
2773 041556
2774 041562
2775 041566
2776 041570
2780 041572
041572
041574
041576

041600
2781 041602
2782 041606
041606
2783 041610
2784 041614
2788 041616
041616
041620
041622
041624
2789 041626
2790 041632
2791 041636
2792 041642
2793 041644
2794 041650
2795 041652
2799 041654
041654
041656

BNE
ERRHRD

001004

104456
001773
043117

001402
052702
020201
001404

TSSR(R5),R1

22%:

OSSR, R2
00FL ,R1
254

000100
000100

00FL ,R2
R2,R1

25%:

304
ERRNO, TIONBA ,PKTSSR

104456

001774
042671
012046

104406
005737
001404

30¢:

043326
002222

025252
100212

042512

R4, TSDB(RS)

PC,CHKTSSR

454

RO,R1

ERRNO, T10SSR,PKTSSR

END SEGMENT

002220

454
:

INC

CxLOOP
TST

002222

BEQ
ERRHRD

FATFLG

INTRECV
524
ERRNO, T1OINT ,PKTSSR

TRV

BEGIN SEGMENT

052702
020201

000100

5S¢
:

MOV
MOV
BIT
BEQ
8IS
cHP
BEQ
ERRHRD

TSSR(RS),N1

#SSR,R2

#0FL ,R1
55¢
#0FL ,R2
R2,R1

60+
ERRNO, TIONNBA ,PKTSSR

T1ONBA

PKTSSR

TRAP

C$ESEG

>>>>3>>>>>>>>

C$BSEG

sRESET PACKETS AND COMMANDS
1CLEAR INTERRUPT RECEIVED FLAG
sWIPE OUT MESSAGE BUFFER AREA
:SET COMMAND PACKET TO MESS BUF REL
:SET THE PACKET ADDRESS
sWAIT FOR SSR TO SET
1BR IF CARRY SET (GOOD RETURN)
s SAVE CONTENTS OF TSSR
+DEVICE FATAL SSR FAILED"T'O SET

CSERDF

.MORD
.MORD

T10SSR
PKTSSR

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

;:0ID AN INTERRUPT OCCUR ?
;BRANCH IF NO

1021

CsCLP1

TRAP

CS$ERHRD

.WORD

PKTSSR

TRAP
.WORD

CS$ERHRD
1023

. WORD
. WORD

Ses:

T1ONINT

ccccccccccccc

.WORD

016501
012702
032701

104456

PKTSSR

:sSET OFF-LINE IN EXPECTED DATA
sDOES EXPECTED MATCH RECEIVED ?
tOKAY IF MATCH
tNBA NOT ZERO
TRAP
CS$ERMRD
. WORD
1020

100004:

PC,T10RST
INTRECV
9025252, T108FR
#100212,(R4)

000000
016336

000002

001777

MORD

+IS OFF-LINE BIT SET ?
s1BRANCH IF NOT OFF -LINE

jecccccccccccc

ENDSEG

043210

001404

CS$ERHRD
1019

sGET THE CONTENTS OF TSSR
tEXPECTED CONTENTS OF TSSR

$22>>>>>>>>>>

104456
001776

001402

TRAP
.WORD

. WORD

104455
001775
043030
005237

YES

.WORD

104405
104404
004737
005037
012737
012714
010465
004737
103407
010001

;1BRANCH IF

. WORD

012046

016501
012702
032701

224

ERRNO, TIONINT ,PKTSSR

SEQ 0160

;1GET THE CONTENTS OF TSSR
1EXPECTED CONTENTS OF TSSR
:IS OFF-LINE BIT SET ?
:BRANCH IF NOT OFF -LINE
:SET OFF-LINE IN EXPECTED DATA
;+DOES EXPECTED MATCH RECEIVED ?
;OKAY IF MATCH
tNBA NOT SET

1022
T10INT

—

TSVSA - HARDMARE TESTS
10: BASIC PACKET PROTOCOL
TEST

E13

14-JUN-84 15:15

MACRO M1113

TSVSA- MARDWARE TESTS MACRO M1113
TEST
10: BASIC PACKET PROTOCOL
041660

012046

2801 041664
2802 041670
2803 041674
2804 041676

013701
012702
020102
001404

041700
041702
041704

104456
002000
042574

2808 041700

209 041706

2810 041710

104406

2812 041712
2813 041716
2814 041722
2815 041726
2816 041732
2817 041736
2818 041740

005037
004737
042714
010465
004737
103407
010001

2822 041742
041742
041744
041746
041750

2823 041752
2824 041756
041756
2825 041760
041760

041762

2826 041764
2827 041770
2831 041772
2832 041776

104455
002001
043030
012046

005237

005737
001006
016500

042002
042004
2833 042006

043117
012046
016501

284S 042044

042044

60%:

.WORD

MOV
MOV
cMe
BEQ

ERRMRD

T10BFR,R1
0025252 ,R2
R1,R2
708

ERRNO, T10MBF ,EXPREC

708 :
002222
043326
100000
000000
016336

012702
032701
001402
052702
020201
001404
104456
002003
043030
012046

CKLOOP
CLR
JSR
8IC
MOV
JSR
8CsS
MOV

tMESSAGE BUFFER WAS MODIFIED

TREP
.WORD
. WORD

ERRDF

002220

75%:

002222
000002

;LOOP ON ERROR IF FLAG SET

TRAP

INTRECY
PC,T10RST
€100000,(R4)
R4 ,TSDB(RS)
PC,CHKTSSR
754
RO,R1

ERRNO, T10SSR,PKTSSR

INC
CxLOOP

FATFLG

ESCAPE

SEG

TST
BNE
MOV
ERRHRD

INTRECV
824
TSSR(RS),.RO
ERRNO, TIONINT ,PKTSSR

000100

82%:

85%:

904
:

MOV
MOV
BIT
BEQ
BIS
cwp
BEQ
ERRHMRD

ENDSEG

TSSR(RS),.R1
#SSR,R2
00FL ,R1
854
®0FL ,R2
R2,R1
904
ERRNO, T10SSR,PKTSSR

CS$ERMRD
1024
T10MBF

EXPREC
CsCLP1

;tCLEAR INTERRUPT RECEIVED FLAG
tRESET THE PACKETS AND COMMANDS
tCLEAR THE ACK BIT
:SET THE PACKET ADDRESS
sWAIT FOR SSR TO SET
1BR IF CARRY SET (Gom RETURN)
s SAVE CONTENTS OF TSSR
sDEVICE FATAL SSR FAILED TO SET
TRAP
.WORD
.WORD
.WORD

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

CSERDF
1025
T10SSR
PKTSSR

TRAP
CsCLP1
1BY-PASS SUBTEST IF FATAL ERROR
TRAP
CSESCAPE

10001¢-.

TRAP

CS$ERHRD

;:DID AN INTERRUPT OCCUR ?
:BRANCH IF YES
1GET TSSR FOR ERROR REPORT

.WORD

000002
000200
000100

T10NNBA

PKTSSR

tPICK UP THE 1ST WORD OF MESSAGE BUFFER
1SET UP EXPECTED DATA
sWAS ANY MESSAGE REC'D
1BR, IF OxX (EQUAL)

.MORD

104410

104456

2834 042012
2835 042016
2836 042022
2837 042024
2838 042030
2839 042032
2843 042034
042034
042036
042040
042042
2844 042044

042512
025252

104406

C41776

042000

.WORD

015474

— 041710
)A

SEQ 0161

042753

041662

2800 041664

14-JUN-84 15:15

.WORD
.WORD
1GET THE CONTENTS OF TSSR

1026

T1ONINT
PKTSSR

sEXPECTED CONTENTS OF TSSR
+IS OFF -LINE BIT SET ?

1BRANCH IF NOT OFF -LINE

s1SET OFF-LINE IN EXPECTED DATA

sDOES EXPECTED MATCH RECEIVED ?
1OKAY IF MATCH
iNBA NOT ZERO

geccccccccccce

TRAP
. WORD
.WORD
.WORD
END SEGMENT

100014:

CS$ERHRD
1027
T10SSR
PKTSSR

<¢cccccceccccc

MACRO M1113
VSA
- HARDWARE TESTS
PROTOCOL
ET
PACK
C
BASI
TEST
10:

042044

2845 042046
2847 042052
2848 042054
2849

2850 042060
042060

2851 042062
2852 042066
2853 042072
2854 042076
2855 042102
2856 042104
2860 042106
042106
042110
042112
042114

2861 042116
2862 042122

104405
005737
001403
004737
104404
005037
004737
010465
004737
103407
010001

005237

042122

104406

042124
042126
2864 042130
2865 042134

104410
000062
005737
001006
016500

2863 042124

2869 042136

2870 042142
0421492
042144

14-JUN-84 15:15

TST

002220

BEQ
JSR

017202

CLR
JSR
MOV
JSR
8CS
MOV

002222
043326
000000
016336

ERROF

002220

1004 :

002222

112%:

000100

125%:

2883 042212
2884 042216
2885 042220
2886 042224
2887 042224
042224
042224
2888 042226
2889
2890

005737
001402
004737

104403

130¢:
017202

1404 :

304:
HE4

1BR, IF NO FATAL ERRORS
BGN SEGMENT

ccccccccccccce

TRAP

1CLEAR INTERRUPT RECEIVED FLAG
sRESET THE PACKETS AND COMMANDS
1SET THE PACKET ADDRESS

RO,R1
ERRNO, T10SSR,PKTSSR

tBR IF CARRY SET (GOOD RETURN)
+SAVE CONTENTS OF TSSR
1DEVICE FATAL SSR FAILED"T'O” SET

PC,CHKTSSR
1004

CSESEG

sTRY TO DROP THE UNIT

INTRECV
PC.T10RST
R4, TSDB(RS)

C4BSEG

sWAIT FOR SSR TO SET

.WORD
.WORD
.MORD

CSERDF
1028
T10SSR
PKTSSR

+SET FATAL ERROR FLAG
sL” ON ERROR, IF FLAG SET

ESCAPE

SEG

1BY-PASS SUBTEST IF Ffl?fl. em
TRAP
CSESCAPE

TST

INTRECV
1124

;:DID AN INTERRUPT OCCUR ?
1BRANCH IF YES
;GET TSSR FOR ERROR REPORT

MOV

TSSR(RS),R1

8IS

OSSR, R2
00FL ,R1
1254
00FL ,R2

ERRHRD

1304
ERRNO, T10SSR,PKTSSR

R2,R1

TST
BEQ

JSR

ENDSUB

1404
PC,CKDROP

-.
10002$

.MORD
.WORD
.WORD

;GEYT THE CONTENTS OF TSSR
;EXPECTED CONTENTS OF TSSR
+IS OFF-LINE BIT SET ?
1BRANCH IF NOT OFF -LINE
1SET OFF-LINE IN EXPECTED DATA
;:D0ES EXPECTED MATCH RECEIVED ?
sOKAY IF MATCH
sNBA NOT ZERO
YRAP
.WORD
.WORD
.WORD
10002$:

FATFLG

CsCLP1

TRAP

gecccccccccec<c END SEGIENY

ENDSEG

104405

TRAP

FATFLG

8IT

000100

sANY FATAL ERRORS

gecccccccccccc

TSSR(RS),RO
ERRNO, TIONINT ,PKTSSR

042200
042202
042204

042206
28452 042210
042210
042210

954
PC.CKDROP

SEQ 0162

INC
CKLOOP

104456

042146
042150
2871 042152
2872 042156
2873 042162
2874 042166
2875 042170
2876 042174
2877 042176
2881 042200

FATFLG

BGNSEG

104455

002004
043030
012046

Gld

CSERHRD
1029
T1ONINT
PKTSSR

CS$ERHRD
1030
T10SSR
PKTSSR

€CCCCCCCCCcCc<

TRAP

1CHECK FATAL FLAG FOR SET
1BR, IF NOT SET (OK)
:DROP DEVICE IF INDICATED

C$ESEG

$////////7/777 END SUBTEST /777777747777

L10100:

TRAP

C$ESUB

TSVSA - HARDWARE TESTS MACRO M1113
10: BASIC PACKET PROTOCOL
TEST
2891
2892
2893
2894
<895
2896
2897
2898
2899 042224
042226
042226
2900

SEQ 0163

: TEST 10 SUBTEST 4
i

;CHECKS THAT THE REGISTER MODIFICATION REFUSED (RMR) BIT IN
:THE TSSR WILL BE SET IF A WRITE CHARACTERISTICS COMMAND
+BEING EXECUTED AND ANOTHER “WC"” COMMAND IS ATTEMPTED
3

BGNSUB

s/////7//7//777 BEGIN SUBTEST

T10.4:

102402

2901 042230
2902 042234

004737
004737

043400
043326

042240
042244

012700
104441
012704
012703
012764
012763

000000

2903 042240

14-JUN-84 15:15

104404
004737
103405
010001

JSR
JSR
SETPRI

042470
042532
000010
000010

Ss:

015774

MOV
MOV
MOV
MOV

OPRIOO

#T10PACKET R4
#T10PKT,R3

08. ,PKBCNT(R4)
8. ,PKBCNT(R3)

BGNSEG
JSR
8CS
MOV
ERROF

104455

PC,.T10RT2
PC,T10RST

ERRNO, SFIERR, SF IMSG

002007
003650

012034
005037
005037
010465
010365
004737
016501
032701
001006

2929 042362
2930 042366
042366
2931 042370
042370
042372
2932 042374
2933 042400
2934
2935
2939 042402
042402

FATFLG

10¢:

INTRECV

R4 ,TSDB(RS)
R3,TSDB(RS)

PC,WAITF

TSSR(RS),R1

OSSR, R1
15¢
ERRNO, T1O0SSR,PKTSSR

002220

002222

15¢:

INC
CKLOOP

FATFLG

ESCAPE

SEG

TST
BNE

INTRECV
224

ERRHRD

ERRNO, TLONINT,PKTSSR

TRAP

csasus

sSET SECOND PACKET WP
sSET PACKET TO INITIAL VALUES

:LOWER PRIORITY TO ALLOW INTERRUPTS

MOV

#PRIO00,RO

TRAP

C$SPRI

;GET THE ADDRESS OF COMMAND PACKET
1GET THE ADDRESS OF 2ND CMD PACKET
sSTART WITH MINIMUM ALLOWABLE VALUE

;START WITH MINIMUM ALLOWABLE VALUE
$2>>3>>>>>>>>

PC,SOFINIT
104
RO,R1

//////7/7777

BEGIN SEGMENT

TRAP
100 SOFT INIT OF CONTROLLER

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

C$BSEG

1BR IF SOFT INIT = OK
1SAVE CONTENTS OF TSSR
sDEVICE FATAL ERROR DURING INIT
TRAP
CSERDF
.WORD
.WORD
.WORD

1031
SFIERR
SFIMSG

.WORD
.WORD
.MORD

1032
T10SSR
PKTSSR

sCLEAR FATAL ERROR FLAG
sCLEAR INTERRUPT RECEIVED FLAG
$SET THE PACKET ADDRESS
:SECOND COMMAND PACKET
sWAIT FOR SSR TO SET
:GET CONTENTS OF TSSR REGISTER
sCHECK FOR SSR (TSSR) SET
1BR, IF SSR SET (COOD)
sDEVICE FATAL SSR FAILED TO SET
TRAP
CSERDF

+SET FATAL ERROR FLAG
1LOOP ON ERROR, IF FLAG SET

TRAP
CsCLP1
1BY-PASS SUBTEST IF FA'A%REPW
o

CSESCAPE
-.
10000$

TRAP

C$ERHRD

:DID AN INTERRUPT OCCUR ?
:BRANCH IF YES

TSVSA - MARDWARE TESTS MACRO M1113
TEST 10: BASIC PACKET PROTOCOL
042404
042406
042410

2940 042412
2941 042416

002011
043117
012046
016501
012702
032701

001402
052702
020201
001404

14-JUN-84 15:15

SEQ 0164

. WORD

110200
000100
000100

224%:

25%:

104456

002012
043030
012046

118

30%:

TSSR(RS).R1

OSSR!RMR!SC,R2

BIT
BEQ
BIS

00FL ,R1
25
Q0FL ,R2

BEQ
ERRHRD

ERRNO, T10SSR,PKTSSR

R2,R1
30 $

100004
:

104432
000774

T10SSR
PKTSSR

ccccccccccccc

TRAP

C$ESEG

TRAP

CSESULB

TRAP

CS$EXIT

$///7//7//7/7/777 END SUBTEST /77777777777

EXIT

.WORD
.WORD

END SEGMENT

L10101:

104403

TI1ONINT
PKTSSR

1GET THE CONTENTS OF TSSR
sEXPECTED CONTENTS OF TSSR
+IS OFF-LINE BIT SET ?
$BRANCH IF NOT OFF -LINE
1SET OFF-LINE IN EXPECTED DATA
sDOES EXPECTED MATCH RECEIVED ?
;OKAY IF MATCH
;NBA NOT ZERO
TRAP
CS$ERHRD
.WORD
1034

jecccccccccccec

ENDSEG

104405

MOV

1033

.WORD
.WORD

TST

;ALL DONE WITH THIS TEST

.WORD

L1CO07S-.

.BLK

10-<,-TSV2E7>

5888

100204
T10DATA
0
8.

g 5385

;:LOCAL STORAGE FOR THIS TEST

T108FR

100204
042500
000010

042512

T10DATA:

000016

T10BFR:

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

:STARTING VALUE OF BLOCK SIZE

sCHARACTERISTICS DATA BLOCK

+ADDRESS OF MESSAGE BUFFER

:LENGTH OF MESSAGE BUFFER
tMESSAGE BUFFER

T10PACKET:

HEd

;

s TEST DATA FOR SUBTEST FOUR
100204
042542
000010

2987 042542
2988 042542

T10DTA:

042554

§ 5858

;

T10PKT:

100204

T100TA
0
a.
T10BUFR

+COMMAND PACKET FOR TEST
iWRITE CHAR COMMAND, WITH IE, ACK
+ADDRESS OF CHARACTERISTICS BLOCK

:STARTING VALUE OF BLOCK SIZE

1CHARACTERISTICS DATA BLOCK

+ADDRESS OF MESSAGE BUFFER

TSVSA - MARDMARE TESTS MACRO M1113
TEST 10: BASIC PACKET PROTOCOL

EEEE
R
R RS

2989 042544
2990 042546
2991 042550

000000
000016
000000

14-JUN-84 15:15

LMORD
.MORD
.MORD

000000

T10BUFR: .BLKW

042554

042574
042671
042753
043030
043117
043210
043277

115
116
116
103
105
125
102

145
102
102
157
170
156
141

005011

000207

SAVREG

MOV
MOV
MOV
CLR
MOV
MOV
CLR
MOV
CLR

000010
042512
000016

CLR

'Messege Buffer Modified after MESSAGE BUFFER RELEASE Commend’
'NBA Not Cleer After WRITE CHARACTERISTICS Commend’
.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'
.ASCIZ 'Basic Packet Protocol’

RTS

;:SAVE THE REGISTERS

O#T10PACKET,R1
2100204 ,(R1)+
OT10DATA,(R1)+
(R1)-~
08..(R1).
OT108FR,(R1)+
(R1)014, ,(R1)»
(R1)«

1START OF THE PACKET
sWRITE CHARACTERISTICS WITH ACK, IE
;ADDRESS OF CHAR DATA BLOCK
1EXTENDED ADDRESS
sSIZE OF DATA BLOCK IN BYTES
;ADDRESS OF MESSAGE BUFFER

T108FR

;CLEAR 1ST LOC IN MESSAGE BUFFER

(R1)

;1LENGTH OF MESSAGE BUFFER

;RETURN

338343

;ROUTINE TO RESTORE COMMAND PACKET €2 TO START-UP (DEFAULT) VALUES
K

3035

3036
3037 043400

T10RT2:

3039 043404
3040 043410

012701
012721

3042 043420

005021

3045 043432

TI1OMBF: .ASCIZ
TIONBA: .ASCIZ
TI1ONNBA:
T10SSR: .ASCIZ
TI1ONINT:
TI10INT: .ASCIZ
TST10ID: —

T10RST:

042512

3043 043422
3044 043426

163
101
101
156
160
145
163

005037

3041 043414

:MESSAGE BUFFER

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

3029 043372

3038 043400

042470
100204
042500

3033

sLENGTH OF MESSAGE BUFFER

‘-

012701
012721
012721
005021
012721
012721
005021
012721
005021

3030 043376

O
14,
0,0

;:LOCAL TEXT MESSAGES FOR TEST

043332
043336
043342
3022 043346
3023 043350
3024 043354
3025 043360
3026 043362
3027 043366

3028 043370

SEQ 0165

HEd

043326

J13

012721

012721
012721
005021

042532
100204

042542

000010
042554

SAVREG

1SAVE THE REGISTERS

MOV
MOV

OT10PKT,R1
2100204 ,(R1).

1START OF THE PACKET
;WRITE CHARACTERISTICS WITH ACK, IE

CLR

(R1).

;EXTENDED ADDRESS

MOV
MOV
MOV

CLR

OT10DTA,(R1)+

08.,(R1).
#T10BUFR,(R1)+
(R1)+

1ADDRESS OF CHAR DATA BLOCK

1SIZE OF DATA BLOCK IN BYTES
;ADDRESS OF MESSAGE BUFFER

TSVSA - HARDWARE TESTS MACRO M1113
TEST 10: BASIC PACKET PROTOCOL
3046 043434

3047 043440
3048 043442

3049 043444
3050 043450
3051 043452
043452
043452

3052
3053
3054
3055
3056
3057
3058
3059
3060
3061
3062
3063
3064
3065 043454
3070
3071
3072
3073
3074

043454
043460
043464
043472
043472

3075
3076 043474

3077
3078
3082
3083

043502
043506
043510
043512

3087 043532

3092
3093
3094
3095
3096

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

ENDTST

SEQ 0166

:'1‘:.).(‘?1)0

;LENGTH OF MESSAGE BUFFER

(R1)
T10BUFR

sCLEAR 1ST LOC IN MESSAGE BUFFER

sRETURN

L10075:

104401

.SBTTL

TEST

TRAP

CSETST

11: NON-TAPE MOTION COMMANDS

HE
4

: 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
sMESSAGE PACKET. THE SECOND VERIFIES THAT NON-ZERO
:VALUES IN THE COMMAND MODE FIELD CAUSES COMMAND REJECT.

BGNTST
012700
004737
012737

045462

016510

000024

002214

T11LO0O0P:

MOV
JSR
MOV

#TST11I0,RO

PC,TSTSETUP

920. ,LOOPCNT

T11::
;ASCII MESSAGE TO IDENTIFY TEST
;00 INITIAL TEST SETUP
;PERFORM 20 ITERATIONS
§/////7///777/7 BEGIN SUBTEST
T11.1:

BGNSUB

TRAP

104402
012700
104441
004737

103405

000000

015774

010001

103404

044710
010662

3%:

104456
002116

104404

OPRIOO

JSR
BCS
MOV

;C.SNINIT
RO,R1
ERRNO, SF IERR, SF IMSG

csBsSuB

;LOWER PRIORITY TO ALLOW INTERRUPTS
OPRIO0O,RO
MOV
TRAP
CsSPRI
;D0 SOFT INIT OF CONTROLLER
;:BR IF SOFT INIT = OK
:SAVE CONTENTS OF TSSR
;:DEVICE FATAL ERROR DURING INIT
TRAP
CS$ERDF
.WORD
.WORD
.WORD

MOV
JSR
B8CS
ERRHRD

#T11PK2,R4

PC WRTCHR

ERM WRTMSG, SFIMSG

045514
044640

4%:

S$:

JSR
MOV

BGNSEG

PC,T11REST
OT11PACKET,R4

1101
SFIERR
SFIMSG

sWRITE CHARACTERISTICS PACKET
:ISSUE WRITE CHARACTERISTICS
:BR, IF COMMAND ISSUED OK
iWRITE CHARACTERISTISC FAILED
TRAP

C$ERHRD

.WORD
.WORD

WRTMSG
SFIMSG

.WORD

012034

004737
012704

SETPRI

ERROF

104455
002115
003650
012034
012704
004737

///////7/7777

1102

:SET UP PACKET FOR COMMAND
:GET THE ADDRESS OF COMMAND PACKET
122>>>>>>>>>>>

BEGIN SEGPQNT

TRAP

22233333333

C$BSEG

TSVSA - MARDMARE TESTS MACRO M1113
TEST 11: NON-TAPE MOTION COMMANDS
3097

3098 043556

005037

3099 043562
3100 043566
3101 043572

005037
010465
004737

3103 043600

(€10001

3102 043576
3107 043602
043602

043604
043606
043610

3108 043612
3109 043616
043616

3110 043620

043620
043622

3111 043624
3112 043630
3116 043632

043632

103407

002117
045204
012046

005237

005737
001004

3123 043666

023670

104456

043672
043674
043676

002121
044752
012046

3129 043700

004737

3130 043704
3134 043706

043706
043710
043712

043714
3135 043716
043716
3136
3137

043716

3138 043720
043720

103405

002222

22%:

000100
000100

25%:

30%:

35¢:

:1BR IF CARRY SET (GOOD RETURN)

MOV

RO,R1

ERRNO,T11SSR,PKTSSR

INC
CKLOOP

FATFLG

ESCAPE

SEG

MOV
MOV
BIT
BEQ
BIS
cHP
BEQ

ERRHRD

011114

154

INTRECYV
R4,TSDB(RS)
PC,CHKTSSR

ERRHRD

000002
000200

;CLEAR FATAL ERROR FLAG

CLR
MOV
JSR

ST
BNE

104456

JSR

BCS
ERRHRD

INTRECYV
224

ERRNO, T11NINT,PKTSSR

TSSR(RS),R1
#SSR,R2

S0FL ,R1
254
#0FL ,R2
R2,.R1
30¢

ERRNO,T11NBA,PKT3SR

PC,.CKRAM

S9¢
ERRNO,PKTRAM,RAMERR

ENDSEG

S9¢:

005737

001402
004737

s SAVE CONTENTS OF TSSR

;DEVICE FATAL SSR FAILED TO SET
TRAP
CS$ERDF
.WORD
L.WORD
.WORD

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

;1BY-PASS SUBTEST IF FATAL ERROR

TRAP
"

;DID AN INTERRUPT OCCUR ?
;:BRANCH IF YES
TRAP

.WORD
.WORD
.WORD

:GET THE CONTENTS OF TSSR
;EXPECTED CONTENTS OF TSSR
:+IS OFF-LINE BIT SET ?
;:BRANCH IF NOT OFF -LINE
:SET OFF-LINE IN EXPECTED DATA
;DOES EXPECTED MATCH RECZIVED ?

ENDSUB

017202

TST

BEQ
JSR

CsCLPl
CS$ESCAPE
10000
-.

CSERMRD
1104
T11NINT
PKTSSR

;OKAY IF MATCH
;NBA NOT ZERO

TRAP

CS$ERHRD

.WORD
.WCRD
.WORD

1105
T11NBA
PKTSSR

TRAP

C$ERHRD

TRAP

CS$ESEG

;CHECK RAM TO MEMORY
sRAM OK GO ON
;:THEY DON'T MATCH

MANANNAAANANNNN END SUBTEST NN
L10103:

TRAP

002220

1103
T11SSR
PKTSSR

1106
PKTRAM
.WORD
RAMERR
jeccccccccccce END SEGMENT ccccccccccccc
100004:

104405

3140 043722

+CLEAR INTERRUPT RECEIVED FLAG
1SET THE PACKET ADDRESS
sWAIT FOR SSR TO SET

.WORD
.WORD

015510

104403

3141 043726
3142 043730

15%:

SEQ 0167

FATFLG

002122
004743

e 043720
1

002220

104456

016501
012702

CLR

BCS

104410

000074

032701
001402
052702
020201
001404

3128 043700

10%:

ERRDF

104406

002120
045334
012046

3127 043670

002222
000000
016336

14-JUN-84 15:15

104455

043634
043636
043640

3117 043642
3118 043646
3119 043652
3120 043656
3121 043660
3122 043664

002220

FATFLG

60¢
PC,CKDROP

tANY FATAL ERRORS ?

1BRANCH IF NOT
s+TRY TO DROP THE UNIT

CSESULB

TSVSA- MARDWARE TESTS MACRO ML113
TEST 11: NUN-TAPE MOTION COMMANDS

14-JUN-84 15:15

3143 043734

60%:

3146

3148

3144
3145

SEQ 0168

3147

;TEST 11, SUBTEST 2

3149
3150

;CHECK THAT NON-ZERO MODE BITS BEING SET CAUSES
;INITIALIZE COMMAND TO BE REJECTED
3

3151

3158

3154 043734
043734

3188 043734

104402

3156 043736
043736
043742

012700
10444]

043744

104404

3160 043746
3161 043752
3165 043754
3166 043756
043756

004737
103405
010001

3157 043744

3159

M13

015774

012704
004737
103404

044006

012034

3176 044010
;{;; 044014

004737
012704

045514
044640

3179 044020
3180 044024
3181 044030
3182 044034
3183 044040
3184 044042
3188 044044

005037
0S2714
010465
004737
103405
010001

002222
007400
000000
016336

104455
002125
045204
012046

044054

104406

3190 044056

044710
010662

104456
002124
005054

044044
044046
044050
044052

3189 044054

JSR
BCS
MOV
ERRDF

104455

3168 043766
3169 043772
3170 043776
3174 044000

3175 044010

s/////7/7/777/77 BEGIN SUBTEST /77777777777
T11.2:

@&PRIOO

BGNSEG

002123
003650
012034

044000
044002
044004

SETPRI

000000

043760
043762
043764

3167 043766

BGNSUB

4%:

10¢:

15¢:

TRAP

;LOWER PRIORITY TO ALLOW INTERRUPTS
MOV
®PRIOO,RO
TRAP
C$SPR1
$2>>>3>>>>>>> BEGIN SEGMENT

TRAP

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

cs8SUB

>>>>>>>3>>>>>

;00 SOFT INIT OF CONTROLLER
;BR IF SOFT INIT = 0K
:SAVE CONTENTS OF TSSR
;:DEVICE FATAL ERROR DURING INIT
TRAP
CSERDF
LWORD
.WORD
.WORD

MOV
JSR
BCS
ERRHRD

oT11PK2,R4
PC.\RTC"R

ERRM WRTMSG, SFIMSG

C$BSEG

:WRITE CHARACTERISTICS PACKET
;ISSUE WRITE CHARACTERISTICS
;:BR, IF COMMAND ISSUED OK
;WRITE CHARACTERISTISC FAILED

TRAP
.WORD
. WORD
.WORD

1107
SFIERR
SFIMSG

CS$ERMHRD
1108
WRTMSG
SFIMSG

JSR
MOV

PC,T11REST
OT11PACKET R4

:SET UP PACKET FOR COMMAND
;:GET THE ADDRESS OF COMMAND PACKET

CLR
BIS
MOV
JSR
BCS
MOV
ERRDF

INTRECY
&P .MODE ,(R4)
R4 ,TSDB(RS)
PC,CHKTSSR
15¢
RO,R1
ERRNO, T11SSR,PKTSSR

;:CLEAR INTERRUPT RECEIVED FLAG
;NON-ZERO COMMAND MODE BITS
1SET THE PACKET ADDRESS
;WAIT FOR SSR TO SET
;:BR IF CARRY SET (GCOOD RETURN)
1 SAVE CONTENTS OF TSSR
;:DEVICE FATAL SSR FAILED TO SET

CKLOOP
ESCAPE

TRAP
.WORD
.WORD
.WORD

CS$ERDF
1109
T11SSR
PKTSSR

TRAP

CsCLP1

;LOOP ON ERROR, IF FLAG SET
SEG

;BY-PASS CHECKS IF FATAL ERROR

TSVSA - HARDWARE TESTS MACRO M1113
TEST
11: NON-TAPE MOTION COMMANDS

3192 044066
3196 044070
044070
044072
044074
044076
3197 044100
3198 044104
3199 044110
044114
044116
044122
044124
044126
044126
044130
044132
044134
044136
044136
3210 044142
3214 044144
044144
04414¢
044150
044152
044154
044154
044154

044156
044156
044156

104410
000074
005737
001004

TRAP
TST
BNE

002222

ERRMRD

104456

002126
045334
012046

016501
012702
032701
001402
052702
020201
001404

000100

MOV
MOV
BIT

000100

BIS

000002

22%:

BEQ
ERRHRD

104456
002127
045012
012046

004737
103405

SEQ 0169

INTRECV
224

ERRNO, T1ININT ,PKTSSR

CSESCAPE

10000
-.

;DID AN INTERRUPT OCCUR ?
;BRANCH IF

YES

§aas

044056
044060
3191 044062

14-JUN-84 15:15

011114

30%:
35s:

104456
002130
004743
015510

JSR
B8CS
ERRHRD

TSSR(R5),R1
OSC!SSR! TSREJ,R2
00FL ,R1
254
O0FL ,R2
R2.R1
304
ERRNO, T112REJ,PKTSSR

;g .CKRAM
3

ERRNO, PKTRAM, RAMERR

ENDSEG

:GET THE CONTENTS OF TSSR

:+IS OFF-LINE BIT SET ?

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

sOKAY IF MATCH

;COMMAND NOT REJECTED

TRAP
. WORD

CS$ERHRD
1111

.WORD
.HORD

T112REJ
PKTSSR

TRAP
.WORD
.WORD
.WORD

CS$ERHRD
1112
PKTRAM
RAMERR

TRAP

CSESEG

;CHECK RAM TO MEMORY

;RAM OK GO ON

;THEY DON'T MATCH

jeeccccceccccc

END

SEGMENT

10000% :

ENDSUB

1110
T11ININT
PKTSSR

;EXPECTED CONTENTS OF TSSR

104405
59%:

CS$ERHRD

3 MAANANANANANNAN END SUBTEST

L.10104:

104403

ccccccccccccc

NNNNNNNLNAL

TRAP

CS$ESULB

HE4

;TEST 11, SUBTEST 3
;

;CHECK THAT THE GET STATUS COMMAND IS ACCEPTED

044160
044160
044160

044162
044162
044166
3230 044170
044170
3231 044172
044176
3236 044200

/1111707077777 BE(T;IN ngEST LIi111177777
1.3

BGNSULB

TRAP

104402
012700
104441

104404
004737
103405
010001

000000

SETPRI

OPRIOO

BGNSEG
015774

JSR
8CS
MOV

;LOWER PRTORITY TO ALLOW INTERRUPTS
$22>>>>3>>>>>>

PC,SOFINIT
34

RO,R1

csBSuB

MOV
TRAP

BEGIN SEGMENT

TRAP
;00 SOFT INIT OF CONTROLLER
t1BR IF SOFT INIT = OK
;SAVE CONTENTS OF TSSR

#PRIOO,RO
C$SPRI

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

C$BSEC

TSVSA - MARDMARE TESTS MACRO M111%
TEST 11: NON-TAPE MOTION COMMANDS
3237 044202

044202
044204
044206
044210

3238 044212

104455
002131
003650
012034

3239 044212 012704 044710
3240 044216 004737 010662
3241 044222 103404
3245 044224

044224
044226
044230
044232
3246 044234

3247 044234
&: 044240
3250 044244
3251 044250
3252 044254
3253 044260
3254 044262
3258 044264
044264
044266
044270
044272
3259 044274
044274
3260 044276
044276
044300

104456
002132
005054
012034

004737
012704
005037
010465
004737
103405
010001

045514
044640
002222
000000
016336

14 JUN-84 15:15

38:

044310

016501
012702
032701
001402
052702
020201
001404

3277 044346

044346
044350
044352
044354

3278 044356

000002
000200
000100
000100

104456
002135
045073
012046

044364

103405

104456

PC,T11REST
#T11PACKET R4
INTRECV
R4, TSDB(RS)
PC,CHXTSSR
154
RO,R1

ERRND, T11SR2,PKTSSR

CXLOOP
ESCAPE

SEG

1S7
BNE

INTRECV
224

ERRND, T11NINT,PKTSSR

TRAP
LMORD
.MORD
.MORD

JMRITE CMARACTERISTISC FAILED
TRAP
LMORD
JMORD
.MORD

22¢:
258:

MOV
MOV
8I7
BEQ
8IS
O
BEQ

ERRMRD

304:

35¢:

JSR

8CS
ERRHRD

TSSR(RS),R1
0SSR, R2
#0FL ,R1
254
#0FL ,R2
R2,R1
304

ERRNO,T113REJ,PKTSSR

PC , CKRAM

594
ERRNO,
PX TRAM, RAMERR

COERDF
1113
SFIER®
SFIMSG

CIERMRD
1114
WRTMSG
SFIMSG

1SET UP PACKET FOR COMMAND
1GET THE ADORESS OF COMMAND PACKET
JCLEAR INTERRUPT RECEIVED FLAG
1SET THE PACKET ADODRESS
JMAIT FOR SSR TO SET
1BR IF CARRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR

sDEVICE FATAL SSR FAILED T0 SET
TRAP
CHERDF
LMORD
11°'S
JMORD
T11SAR2
JMORD
PXTSSR
;LOOP ON ERROR, IF FLAG SET
TRAP
CSCLP1
;BY-PASS SUBTEST IF FATAL ERROR
TRAP
CSESCAPE
.MORD

10000$.

TRAP

CSERMRD

;DID AN INTERRUPT OCCUR ?
1BRANCH IF YES

JMORD

3279 044356 004737 011114
3280 044362
3284 044364

JSR

ERRMRD

104456

045334
12046

JMRITE CHARACTERISTICS PACKET
1 ISSUE WRITE CHARACTERISTICS
18R, IF COMMAND ISSUED O

CLR
MOV
JSR
8CS
MOV

000074

3267 044320
3268 044324
3269 044330
3270 044334
3271 044336
3272 044342
3273 044344

044314
044316

#T11PK2, R4
PC.WRTCHR
s

108:

104410

002134

MOV
JSR
8CS

MOV

15¢:

104406

044312

;DEVICE FATAL ERROR DURING INIT

3261 044302 005737 002222
3262 044306 001004
3266 044310

ERANO,
SF 1ERR, SF IMSG

ERRHMRD ERRNO, MRTMSG, SF IMSG

as:

SE0 0170

ERRDF

104455
002133
045260
012046

Bla

.MORD
.WMORD

1116
T1ININT
PKXTSSR

TRAP
.MORD
.MORD
.MORD

CSERMRD
1117
T113REJ
PXTSSR

TRAP

CSERMRD

1GET THE CONTENTS OF TSSR
JEXPECTED CONTENTS OF TSSR
115 OFF -LINE BIT SET ?
1BRANCH IF NOT OFF -LINE
1SET OFF-LINE IN EXPECTED DATA
1DOES EXPECTED MATCHM RECEIVED ?
sOKAY IF MATCH
;COMMAND NOT ACCEF TED

JCHECK RAM TO MEMORY
JRAM OX GO ON
s THEY DON'T MATCH

TSVSA - MARDWARE TESTS MACRO M1113
TEST 11: NON-TAPE MOTION COMMANDS

044366
044370
044372

3285 044374

044374
3286
3287

044374

3288 044376
084376
3289

044376

14-JUN-84 15:15

SEQ 0171

002136
004743

. WORD
. WORD

015510

ENDSEG

pecccccccceccce

. WORD

END SEGMENT

100004;

104405
59

ENDSUB

RAME AR

cccccccrcccce

TRAP

CSESEG

S ANANAANANANANAN END SUBTEST Zannnnnw
e
L10105:

104403

TRAP

3290
3291
3292329s

1118
PKXTRAM

CIESUB

3o
:
s TEST 11, SUBTEST 4
B

3294

sSUBTEST TO VERIFY THAT A GET STATUS COMMAND IS

3295

sREJECTED IF A NON-ZERO COMMAND MODE FIELD IS USED

3296
3297

b
:-

3298

3299 044400
044400

044400

3301 044402

BGNSUB

104402

044402
044406

012700
10444]

044410

104404

3302 044410

3303 044412
3304 044416
3308 044420

004737
103405
010001

044422
044424
044426

104455
002137
003650

3309 044422

044430

3310 044432

TRAP

SETPRI

000000

015774

JSR
BCS
MOV

ERRDF

012034

044446
044450
044452

002140
005054
012034

3319 044454

004737

045514

044640

3322 044464
3323 044470
3324 044474
3325 044500
3326 044504
3327 044506

005037
052714
010465
004737
103405
010001

002222
007000
000000
016336

10%:

;3352 ooueom

044710
010662

3%:

012704
004737
103404

3318 044454

104456

012704

#PRIOO

BGNSEG

3311 044432
3312 044436
3313 044442
3317 044444

044444

8777777777777 BEGIN SUBTESTY /77777777417
T11.4:

44:

sLOMER PRIORITY TO ALLOW INTERRUPTS

MOV
TRAP

#PRI00,RO
CSSPR1

TRAP

C$BSEG

$22>33>33>3>>> BEGIN SEGMENT >>5>>>>>5>>>>>

PC,.SOFINIT
34
RO,R1

ERRNO, SFIERR, SFIMSG

100 SOFT INIT OF CONTROLLER
tBR IF SOFT INIT = 0K
1SAVE CONTENTS OF TSSR

;DEVICE FATAL ERROR DURING INIT

TRAP
.WORD
.WORD
.MORD

MOV
JSR
B8CS
ERRMRD

#T11PK2 R4
PC.WRTCHR
43

ERRNO,WRTMSG,
SF IMSG

1MRITE CHARACTERISTICS PACKEY
1 ISSUE WRITE CHARACTERISTICS
1BR, IF COMMAND ISSUED Ox
tWRITE CHARACTERISTISC FAILED

TRAP

LHORD
.MORD
.MORD

JSR

PC,T11REST

$1SET UP PACKET FOR COMMAND

CLR
8IS
MOV
JSR
B8CS
MOV

INTRECY
#007000,(R4)
R4 ,TSDB(RS)
PC.CHKTSSR
15¢
RO,R1

sCLEAR INTERRUPT RECEIVED FLAG
1SET TO NON-ZERO MODE
1SET THE PACKET ADDRESS
tWAIT FOR SSR TO SET
1BR IF CARRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR

MOV

cs8SuB

AT11PACKET R4

CSERDF
1119
SFIERR

SFIMSG

CS$ERMRD
1120
WRTMSG
SFIMSG

:GET THE ADDRESS OF COMMAND PACKET

TSVSA - MARDMARE 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

14-JUN-84 15:15
ERRDF

104455

002141
045260
012046

15¢:

104406
104410
000076
005737
001004

D14

002222

ERRNO, T11SR2,PKTSSR

CxLooP
ESCAPE

SuB

TST

INTRECY
224
ERRNO, T11ININT ,PKTSSR

ERRMRD

104456

SEQ 0172

1DEVICE FATAL SSR FAILED TO SET
TRAP
CSERDF
.WORD
.WORD
.MORD

1121
T11SR2
PKTSSR

o WORD

L10106-.

CSERHRD

1LOOP ON ERROR, IF FLAG SET
TRAP
CsCLP1
1BY-PASS SUBTEST IF FATAL ERROR
TRAP
CIESCAPE

;0ID AN INTERRUPT OCCUR ?
s1BRANCH IF YES

002142

045334

012046
016501
012702
032701
001402
052702
020201
001404

100206
000100
000100

22%:

MOV

25%:

3358 044610

3359 044620

3361 044622

002143
0«5123
012046

004737
103404

1GET THE CONTENTS OF TSSR
1EXPECTED CONTENTS OF TSSR
+IS OFF-LINE BIT SET ?
1BRANCH IF NOT OFF -LINE
sSET OFF-LINE IN EXPECTED DATA
sDOES EXPECTED MATCH RECEIVED ?
sOKAY IF MATCH

1COMMAND NOT REJECTED

CSERMRD
1123

T114REJ
PKTSSR

30%:
011114

35¢:

104456

002144
004743
015510

RZ;RI
30

ERRNO, T114REJ,PKTSSR

104456

3351 044602

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

JSR

BCS
ERRHRD

;g;cxnm
, RAMERR
ERRNO , PKTRAM

;CHECK RAM TO MEMORY

sRAM OK GO ON

s THEY DON'T MATCH

TRAP

LMORD
.MORD

59¢:

104405

.WORD

1124
PKTRAM
RAMERR

jeccccccccccce

ENDSUB

FANAAANAANNANANY END SUBTEST NANNANNANY

EXIT

END SEGMENT

CSERMRD

ENDSEG

100004
:

L10106:

104403
104432
000772

1122
TLININT
PKTSSR

TST

sALL DONE THIS TEST

ccccccccccc

TRAP

CS$ESEG

TRAP

CS$ESUB

TRAP
.WORD

CSEXIT
L10102-.

sLOCAL STORAGE FOR THIS TEST
;-

.BL

T11PACKET:

100204

10-<,-TSV2ET>
100204

1COMMAND PACKET FOR TEST
tWRITE CHAR COMMAND, WITH IE, ACK

TSVSA - HARDWARE TESTS

TEST

MACRO M1113

11: NON-TAPE MOTION COMMANDS

3374 044642
3375 044644
3376 044646
3377
3378 044650

3379 044650
3380 044652
3381 044654
3382 044656

3383
3384 044662
3385
3386
3388 044702
3390 044710
3391 044710
3392 044712
3393 044714
3394 044716
3395
3396 044720
3397 044720
3398 044722
3399 044724
3400 044726
3401
3402 044732
3403

3404
3405
3406
3407
3408
3409
3410
3411
3412
3413
3414
3415
3416
3417
3418
3419
3420
3421
3422
3423
3424
3425
3426
3427
3426
3429
3430
3431
3432

14-JUN-84 15:15

044650
000000
000010
T11DATA:

044662
000000
000016
000000

000000

T11BFR:

T11PK2:

100204
044720
000010
T11DTA:

044732

El4d

000016

T11BF2:

SEQ 0173

.WORD
. WORD

;UDATA

+ADDRESS OF CHARACTERISTICS BLOCK

. WORD

sSTARTING VALUE OF BLOCK SIZE

. WORD
. WORD
. WORD
. WORD

‘t)usrn

sCHARACTERISTICS DATA BLOCK
sADDRESS OF MESSAGE BUFFER

(1)‘6

sLENGTH OF MESSAGE BUFFER

.BLKW

iMESSAGE BUFFER

.BLKB

10-<,-TSVRET»

. WORD
. WORD
. WORD
. WORD

100204

sCOMMAND PACKET FOR TEST
tWRITE CHAR COMMAND, WITH IE, ACK

1STARTING VALUE OF BLOCK SIZE

(T’HDTA

1 ADDRESS OF CHARACTERISTICS BLOCK

sCHARACTERISTICS DATA BLOCK

. WORD
. WORD
. WORD
. WORD

;nerz

;ADDRESS OF MESSAGE BUFFER

3‘6

;LENGTH OF MESSAGE BUFFER

.BLKW

sMESSAGE BUFFER

sLOCAL TEXT MESSAGES FOR TEST
044752
045012
045073
045123
045204
045260
045334
045412
045462

111

116

111
107
107
103
103

116
105
105
157
157

111
116

156
157

105

170

T1INBA: .ASCIZ
T112REJ:
T113REJ:
T114REJ:
T11SSR: .ASCIZ
T11SR2: .ASCIZ
T11NINT:
T11TSBA:
TST111I0:
.EVEN

'INITIALIZE Commend Not Accepted’
LASCIZ
'IMITIALIZE Not Rejected With Non-Zero Mode Field’
.ASCIZ
'GEi STATUS Not Accepted’
.ASCIZ
'GET STATUS Not Roeoctod With Non-Zero Mode Field’
'Contents of TSSR Incorrect After INITIALIZE'
‘Contents of TSSR Incorrect After GET STATUS'
.ASCIZ
'Expected Interrupt Not Received On INITIALIZE'
.ASCIZ
'Incorrect TSBA Address After INITIALIZE'
.ASCIZ
'Non-Tepe Motion Commends’

HEJ

sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES
s INITIALIZE COMMAND

045514
045514
045520
045524

T11REST:

012701
012721

044640
100213

SAVREG
MOV
MOV

1SAVE THE REGISTERS
1START OF THE PACKET

s INITIALIZE WITH ACK,

TSVSA - MARDWARE TESTS MACRO M1113
TEST 11: NON-TAPE MOTION COMMANDS

14-JUN-84 15:15
CLR
CLR
CLR
CLR

3433 045530
3434 045532
3435 045534
3436 045536
3437 045540
3438 045542
3439 045544
3440 045546
3441 045550
3442 045554

SEQ 0174

(R1).
(R1).
(R1).
(R1).
(R1)+
(R1).
(R1).
(R1)

T11BFR

sADDRESS OF CHAR DATA BLOCK

sEXTENDED ADORESS
+SIZE OF DATA BLOCK IN BYTES
1ADDRESS OF MESSAGE BUFFER
tLENGTH OF MESSAGE BUFFER

sCLEAR 1ST LOC IN MESSAGE BUFFER
;tRETURN

sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES
:GET STATUS COMMAND

3450 045556
3451 045556
3452 045562
3453 045566
3454 045572
3455 045574
3456 045576
3457 045600

3458 045602
3459 045604
3460 045606
3461 045610
3462 045612
3463 045616
3464 045620

T11RT2:

044640

100217

OT11PACKE
,R1
T
2100217,(R1)

(R1).
(R1).
(R1)e.
(R1)e

(R1).
(R1).
(R1).
(R1)
T118FR

1SAVE THE REGISTERS
1START OF THE PACKET
1GET STATUS WITH ACK, IE
+ADDRESS OF CHAR DATA BLOCK
1EXTENDED ADORESS
+SIZE OF DATA BLOCK IN BYTES
+ADDRESS OF MESSAGE BUFFER
sLENGTH OF MESSAGE BUFFER

sCLEAR 1ST LOC IN MESSAGE BUFFER

sRETURN

L10102:

TRAP

CSETST

TSV6 - PARAMETER CODING MACRO M1113
TEST
11: NON-TAPE MOTION COMMANDS

Gl4

14-JUN-84 15:15

SEQ 0175

LTITLE

TSVé

- PARAMETER CODING

BGNMOD

TSVé

.SBTTL

MARDWARE PARAMETER CODING SECTION

12
18
19 045622
045622
20
21
22
23
24
25
26
27
28

jee

+ THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS
+ THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES.
THE

+ MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE
+ INTERPRE
BY THE SUPERVISOR AS DATA STRUCTURES.
THE
+ MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS

+ WITH THE OPERATOR.

LS$HARD: :

000031
045644
160010

177776

:GET TSBA/TSDB REGISTER ADORESS.

HPM2,2,0,0,776, YES

1GET VECTOR ADDRESS.

T4CODE

001031
045700
000000
000776

104
111
111

HPM1,0,0,160010,177776, YES

HPM2

TSLOLIM
TOHILIM

HPM3,4,0,340,0,7,YES

L10107:

e%x‘z

:GET INTERRUPT PRIORITY.

‘DEVICE ADDRESS (TSBA/TSDB) °
* INTERRUPT VECTOR
* INTERRUPT PRIORITY

—

BGNHRD
.WORD L10107-L$HARD/2

000010

: 2 333aaaadannyd

TSV6::

TSV6 - PARAMETER CODING MACRO M1113

SOF TWARE PARAMETER CODING SECTION

14-JUN-84 15:15

.SBTTL

SEQ 0176

SOFTWARE PARAMETER CODING SECTION

jee

46
47
48

3 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

49
50
S1

:+ MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATINNS
; WITH THE OPERATOR.
o=

S3
S4 045756
045756

001130

045762

177777

045760

SS
56

BGNSFT

000003

.WORD L10110-L$SOFT/2

LS$SOFT::
:
GPRML
GPRML
WORD

046014

. WORD

H
H

S7 045764

045764

59 045764

60 046014

61 046044
62 046074
63

L10110:

105

111

120
120

. WORD
GPRMD
GPRMD

-1
SPM6.4,0,7777,0,7777,YES
SPM7,6,0,7777,0,7777,YES

ENDSFT
.EVEN

116

101

SPM1:

_ASCIZ

'ENABLE TRANSPORT TESTS

105
105

122
122

SPM6:
SPM7:

.ASCIZ
.ASCIZ

'PER TEST ERROR LIMIT
'PER UNIT ERROR LIMIT

116

110

SPM4:

SPM1,0,-1,YES
SPM4.2,-1,YES
T$CODE

.ASCIZ

"SBTTL

FINALLY

'INHIBIT ITERATIONS

3+ GET TRANSPORT TEST FLAG.
s GET ITERATION CONTROL.

s GET LOCAL ERROR LIMIT
s GET GLOBAL ERROR LIMIT

045756

PARAMETER CODING SECTION CONTAINS MACROS

045754

SOFTWARE

S2 045754

THE

H14

PATCH AREA

;

A GENEROUS PATCH AREA.

; AND AN ADJUSTMENT TO ACCOUNT FOR THE “LASTAD BIT7" HACK

; DESCRIBED IN "SUPPRG.MEM” (FOR REV C).

72 046124

PATCH::

;; 046124
77

79 046400

046400
046402

046404

80 046404

BLKW
046400

=, 137741

Leeé:o

000000
000000

32.

'MORD
LSLAST::

MORD
ENOMOD

O
O

;SET LAST USED ADDRESS.

A1716 = 000003

BADDAT 003154 G
BADSSR 015700 G
BOVPCR= 177520 G
BENBSW 002226 G
= 040000
BIE
'BITO = 000001 G
' 8ITOO = 000001 G
| BITOL = 000002 G
BITO2 = 000004 G
BITO3 = 000010 G
' BITOA = 000020 G

BITOS
' BITO6
BITO7
BITO8
| BITO9

BIT1
BIT10
BIT11
BIT12
BIT13
BIT14
BIT1S
BIT2
BITS
| 8IT4
' BITS

=
=
=
=
=

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
000040 G

BIT7
=
BIT8
=
BIT9
=
BOE
=
BRINIT
BSELO =
BSEL1 =
CHKAMB
CHOAN
CHXTSS
CKDROP
CKEMAX
CKMSG
CKMSG2
CKRAM
CKRAM2
CMOPKT

000200 G
000400 G
001000 G
000400 G
004455
000000
000001
016044
020500 G
016336
017202
017102
011360 G
011500 G
011114 G
011224 G
021214 G

' BIT6

| CHPMEM

' CONIG

| COUNT
| CSRADD
'CTAB
| CTABE
| CTABM

= 000100 G

017660

017250

002306
002204
003162
003174
003162

G
G
G
G
G

CS$ESCACSESEG=
C$ESUB=
CSETST=
CS$EXIT»

C4GETB=
C$GETW=
CSGMAN=
CS$GPHR=
C$GPLO=
C$GPRI=
C$INIT=
CSINLP=
CS$MANIC$MEN =
CIMSG =
C$OPEN=
C$PNTB=
=
C4PNTF
CSPNTS=
CSPNTXs=
C4QI0 C$RDBU= 000007
C$REFG= 000047
CORESECSREVI~
CIRFLA=

CIRPT =
C4SEFG=
C4SPRI=
C4SVEC- 000037
C$TPRI= 000013
DATA
002310 G
DATASC 020232
DEBUGM 011632
DEVCNT 002216 G

FRESIZ
FUSI

FIAU

FSAUTO=
FIBGN =
FSCLEA=
FSDU
=
FSEND =
F $HARD=
FoHM
=
FSINIT=
FJMP »
FIMOD =
FIMSG =
F4PROT»
FIPUR =
FSRPT =
F4SEG =
F$SOFT=
FSSRY =
F$SUB =
FISW
=
FTEST»

003124 G
004115
000015
000020
000040
000007
000016
000041

INTFLA
INTMAS
INTR
INTREC
INTVEC
INTX
INVERT
IOKCKI=
IOKSTP=
IPRI

016145
016144
016216
002222
016146
004276

021142

000200
000001
002210
000100
002206
0V4000
000041
000041
000041
000041
000041
000041
000041
00004
1

AMBTSS 006633
ASSEMB= 000010

CSAU °= 000652
C$AUTO- 000061
CIBRK = 000022
C$BSEG= 000004
Cs8SUB= 000002
C$CEFG» 000045
C$CLCK= 000062
CSCLEA= 000012
C$CLOS- 000035
CsCLP1=
C$CVEC- 000036
C$0CLNC$000V= 000051
CSDRPT=
Csov =
CSEDIT=
CSERDF=
CS$ERHR=
C$ERRO=
CSERSF=
C$ERSO=

SEQ 0177

ADDSSR 012126 G
= 000020 G
ADR

14-JUN-84 15:15

o000

TSV6 - PARAMETER CODING MACRO M1113

SYMBOL TABLE

172310
172312
172314
172316
003132 G
003130 G
021010
017274
017256
002170 G

000001
040000 G
002214 G

§8

002024 G

002114 g

002012 G
002162

MS.RST= 000010

000007
000010
000011
000002
100000
000037
000012
040000
000140
000011
000017
000200
000013
007400
020000
000010
000001
010000
000005
P.WRTC= 000004
000006
002202
014156
002240
015510
015530
010114
002300

NEWPAS
NODEV
NOINIT
NOINTR
NOITS
NOMAN
NOMEM

021744
003112 G
004333
004217
002166 G
020534
005456

NP.IR =000200

NP .L0Os” 000040
NP.OUT= 000100
NP .WRP= 000020

010272

NULCR

010354
010417
007740 G

NSI
004150
NSINIT 004405
NUL
004525
NXM
=
NXMFLG
NXMHI
NXMLO
NXMTST

004526
004000
003134
003140
003136
021406

L10040
L10041
L10042
L10043
L10044
L10045

013064 G
012350 G
MSGSUB 013742 G
MS.ATT= 000006
MS.EXT= 000200
MS.RSD= 000001

L10037

012144 G

000021
000022
000020
000000
000023
000024
000001
000005
000003
000006
000004

000040
000100
000140
000200

G
G
G
G

LN BN B

L10020
L10021
L10022
L10023
L10024
L10025
L10026
L10030
L10031
L10032
L10033
L10034
L1003%
L10036

L10016

L10017

NSO FIIIIIIT:
gfl 333335 SAINAR2S

L10015

G
G

L10011
L10012
L10013
L10014

G
G
G

§ 3 ggessggs

w 8
[
SRFRSTRRS

LeHM

Ls$ICP
LSIMIT
L$LADP
LSLAST
L$LOAD
LSLUN
LS$MREV
L $NAME
L$PRIO
L$PROT
L$PRY
L $REPP
LS$REV
LS$RPT
L$SOFT
L$SPC
L$SPCP
| LSSPTP
| L$STA
L$SW
LSTEST
L$TIML
| LSUNIT
L10000

L10007
L10010

5 172}

LSEXP4
LSEXPS
L $HARD
LSHIME
L $HPCP
LSHPTP

L 10006

AARAAMARARAAAAR

022306

L10004
L10005

PRIOS = 000240
PRIO6 = 000300
PRIO7 = 000340
014242
C02316
014552
014732
014777
015035
014420
014465
003150
022240

10073
L10074
L10075
L10076
L10077
L10100
L10101
L10102
L10103
L10104
L10105
L10106
110107
L10110

002070
022512
002106

L10003

002174
005764
012044
012062
012100
012106
012124
012142
012156
012240
012410
013124
013752
013774
015500
015506
015514
015526
015550
015576
015736
016246
022236
022402
022510

L$AUT
L$AUTO
LsCCP
LSCLEA
LsCO
L $DEPO
L $DESC
L $DESP
L $DEVP
L$DISP
LSOLY
L$DTP
L$DTYP
LSOV
L$DUT
LSDVTY
LSEF
L S$ENVI
LSETP
LS$EXP1

LSAU

L10001

L 10002

SEQ 0178

013126
003160
000010
002110
002036

OO0

LOOPCO
LOOPFL
=
LoT
L$ACP
LSAPT

OOOOOOOOOOOOOOOOOOOOOOOOOD

SYMBOL TABLE

14-JUN-84 15:15

(2121
~]

TSV6 - PARAMETER CODING MACRO M1113

J14

G
G
G
G

G
015516 G
002302 G
0023C4 G

005204
002464 G

SYMBOL TABLE

002232 G
020140
005370
011014 G
000167

S1.I1E0- 010000
S1.IFNe
S1.IMHE=
S1.1ID=

S1.I1R=
S1.I2R=
S1.PAR=
S2.ATI=
S2.8TI=
S2.DIM=
S2.ILuW=
S2.INR=
S2.0UT=
S2.UND=

o0
ae

;

TBLEND=
TCOASC
TCOCOC
TEMPL
TEMP2
TERCLS=
TESTNO=
TEXASC

—

RECV
REGSAV
RETERR
- REWIND

14-JUN-84 15:15
TST6ID
TST7ID
TST8ID
TST9ID
TSve
TSV3
TSva

TSVS

006474
006674
003114 G
003116 G

TSVé
TTIBFR=
TTICSR=
TTIVEC=
TSARGC=
T4CODE=
TSERRN=
TS$EXCP=
TSFLAG=
TSGMAN=
TOHILI=
TSLAST=
TOLOLI=
TILSYM=
TSLTNO=

TENEST=
TENSO =
TINSL =
TENS2 =
TENS3 = 000003
T$PTNU= 000000
T4SAVL
= 177777
T4SEGL= 177777
T4SEKO= 010000
T$SUBN= 000004
TS$TAGL= 177777
T TAGN= 010111
TS$TEMP= 000000
T4TEST= 000013
T$TSTH= 177777
T4TSTS= 000001

003016
002750 G
002212 G
016720

002312 G
016456 G
002314 G
016510 G

TSTSID

010031
010033
010034
010032
010107
TéSHM = 010000
T$$INI= 010030
T4 $MSG= 010025
T$4PRO= 010027
T$$RPT= 010035
T4$SEG= 010000
T$4SOF
= 010110
T4$4SRV= 010026
T445UB= 010106
TH4SH = 010001
T44TES= 010102
T1
023402 G
T1L00P
023420
THSAU =
T$SAUT=
T$$CLE=
T4IOV =
T4$HAR=

SEQ 0179

T1.1
11.2

T10
T108FR
T108UF
T10DAT
T100TA
T10INT
T10L00
T10MBF
T10NBA
T1ONIN

023422
023502

T4L00P

14.1
14.2
74.3
15
TSADDR
TSLOOP
TSMEM
15.1
15.2
T6INT
T6L0OP
T6NBA
TONINT

T10PAC
T10PKT
T10RST
T10RT2
T10SSR
710.1
710.2
710.3
710.4
T11
T118FR
T118F2
T11D0AT
T11DTA
T11L00
T11NBA
T1ININ
T11PAC
T11PK2
T11RES
T11RT2
T11SR2
T11SSR
T117S8

T6PACK
T6SSR
T6TSBA
76.1
76.2
17

T78FR
TTUATA

T7INT
T7L00P
T7TNBA
TTNINT
T7PACK
TTREST
T7SP
T7SSR
T7TSBA
17.1
17.2
17.3
17.4
17.5
17.6
T720AT
T7200N=
T72NBA
T72REY
T73REJ
T74REJ
T7SREJ

Ti1.1
T11.2
T11.3
T11.4
T112RE

T113RE
T114RE

T2L00P
T2SSR
T2TSBA
T2TSSR
T23A
1238

T38FLG
T3LO0OP
T3SSR
T3TSBA
T3TSSR

212121

TSV6 - PARAMETER CODING MACRO M1113

K14

T8BFR
T8DATA
T8L0O0P
TBNVCK
T8PACK
T8SSR
T8VCK
T98FR
T9DATA

025012 G
025032

025012
025254
025554
026346 G
027406
026364
027350
026370
026736
027452 G
030473
027470
030370
030551
030360
030415
030631
027470
030014
030724 G

TSV6 - PARAMETER CODING MACRO M1113

SYMBOL TABLE

TOINT
TOLOOP
TONBA
TONINT
TOPACK

040067
035240
037246
037776
037170

= 000200 G
UAM
002200 G
UNITN
UNREC = 000006
004121
USI
016250 G
WAITF

T9SSR
T9TSBA
79.1
79.2
79.3
79.4
19.5
79.6
19.7

037707
040156
035240
035506
035720
036124
036312
036516
036750

WC.IFE= 000002
WC.IGO= 000001
WC.IRE= 000010
.IRW= 000004
WC.IOT= 000100
WC.I1T= 000040
WC.ISR= 000020
WF .IED= 000010
WF .IER= 000004

TOREST

WC.IFA= 000200

040266

T92DAT 037232
T9200N= 037246
T92REJ 037321
T93REJ 037420
T94REJ 037513
T9SREJ 037611
. ABS.

ABS

WF . IHI= 000200
WF .IRE= 000040
WF . IWF= 000020
WF .IWR= 000100
WF .I3R= 000002
WF .I4R= 000001

WRTCHR
WRTERR
WRTMSG
WSMBK
XFERAS

XNXM

010662 G
005111

021224 G
015740

016376

XORBFO 007672
XORFOR 010010
XSTO = 000006 G
XST1 = 000010 G
XST2 = 000012 G
XSTS = 000014 G
XST4 = 000016 G
XS080T= 000002
XSOEQOT= 000001
XSOIE = 000040
XSOILA= 000400
XSOILC= 001000
XSOLET= 020000
XSOMOT= 000200
XSONEF= 002000

000

046404

000000

L14

14-JUN-84 15:15

001

ERRORS DETECTETM:

002

VIRTUAL MEMORY USED:
28224 WORDS
( 111 PAGES)
DYNAMIC MEMORY:
20614 WORDS ( 79 PAGES)
ELAPSED TIME:

00:39:38

CVTSAB,CVTSAB/-SP=SVC/ML,TSV1A,TSV22A,TSV3B,TSv4,TSVSA,TSV6

XSOONL
=
XSOPED=
XSORLL
=
XSORLS=
XSOTMK=
XSOVCK=
XSOWLE=
XSOWLK=
XXCOMM
X$ALWA=
X$FALS=
X$0FFS=
X$TRUE=
X1.COR=

X2.EXT=
X2.0PM=
X2.RCE=
X2.REV=

X2.SPA=
X2.UNI=
X2 .WCF=
X3.0CK=
X3.MB2Z=

X3.MDE-

X3.0PI=
X3.REV=

X3.RIB=

X3.SPA=

X3.TRF=

X1.0LT=
X1.MB2ZX1.RBP=

X4 .MBZ-

X2.BUF=

X4, TSM=
X4
. WRC=

X4 .RCE=