Digital PDFs

AH-T094C-MC

September 1987

184 pages

Original

8.4MB

view download

OCR Version

7.3MB

view download

Document:	CVTSAC0 TSV05 TSV05 CTRL PT1 SEP 1987 bw
Order Number:	AH-T094C-MC
Revision:	000
Pages:	184
Original Filename:	CVTSAC0__TSV05__TSV05_CTRL_PT1__AH-T094C-MC__SEP_1987_bw.pdf

OCR Text

VRS o

EOEIDEN
MADE IN USA

: (

(214

)

USER DOCUMENTATION

MACRO V0S.03

Tuesdey 28-Apr-87 10:28

Page 2

.REM_

IDENTIFICATION
PRODUCT

ID:

AC-TO93C-MC

PRODUCT TITLE:

CVTSACO TSVOS CTRL PART

DECO/DEPO:

1.0

OEPARTMENT :

COMPUTER SPECIAL SYSTEMS/PGG

DATE:

JUNE 4,

1987

THE INFORMATION IN THIS DOCUMENT

SUBJUECT

CHANGE WITHOUT

NOTICE
AND
SHOUWLD
NOT BE CONSTRUED AS A COMMITMENT 8Y DIGITAL
EQUIPMENT CORPORATION.
OIGITAL EQUIPMENT CORPORATION ASSUMES NO
RESPONSIBILITY FOR

ANY ERRORS THAT MAY

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

FOLLOWING

ARE

DIGITAL
oeC

APPEAR

THE
USE
SUPPLIED

IN THIS DOCUMENT,

OR
BY

RELIABILITY
OF
DIGITAL
OR ITS

1987 BY DIGITAL EQUIPMENT CORPORATION

TRADEMARKS

PDP
DECUS

DIGITAL

EQUIPMENT

UNIBUS
DECTAPE

CORPORATION:

MASSBUS

MACRO V05.03

Tuesdey 28-Apr-87

10:28

NNNUNRNVNNNIN

~NOUVAULNFO

OPERATING INSTRUCTIONS
COMMAND.
SWITCHES

ERROR INFORMATION

PERFORMANCE AND PROGRESS REPORTS
DEVICE INFORMATION TABLES
TEST

MAINTENANCE HISTORY

e o pr s b

VaUWNKLD

GENERAL INFORMATION

CONTENTS

TABLE OF

Page 3

USER DOCUMENTATION

PROGRAM ABSTRACT

SYSTEM REQUIREMENTS
RELATED DOCUMENTS AND STANDARDS
OIAGNOSTIC HIERARCHY PREREQUISITES
ASSUMP
" IONS

FLAGS
HARDWARE QUESTIONS

SOF TWARE OUESTIONS
EXTENDED P-TABLE DIALOGUE
QUICK STARTUP PROCEDURE

SUMMARIES

SEQ 0002

USER DOCUMENTATION

MACRO V05.03

Tuesdey 28-Apr 87

1.0

GENERAL INFORMATION

1.1

PROGRAM ABSTRACT

THIS

(WUS)

A LSI-11

TSVOS

FUNCTIONS

RESIDENT

MAGTAPE

10:28

SEQ 0003

DIAGNOSTIC WHICH CHECKS

AID IN THE REPAIR OF

MESSAGES

THE DEVICE.

ELEVEN TEST WHICH ARE EXECUTED IN SEQUENCE.

THIS DIAGNOSTIC

THE INTERFACE TO THE OPERATOR AND TO
THIS PROGRAM CAN BE USED WITH XXDP.,

WHICH

IDENTIFY

FAILING

THIS DIAGNOSTIC CONSIST

THESE SERVICES PROVIDE

THE SOF TWARE ENVIRONMENT
ACT, APT,
SLIDE AND PAPER

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

1.2

FUNCTIONALITY

HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC

RUNTIME SERVICES SOFTWARE (SUPERVISOR).

TAPE.

T"E

SUBSYSTEM WHILE CONNECTED TO
A LSI-11/23 SYSTEM

THE PROGRAM PROVIDES ERROR
THAT

Page 4

THIS DOCUMENT.

SYSTEM REQUIREMENTS

LSI-11 PROCESSOR AND MEMORY
CAUTION:DIAGNOSTIC REOUIRES 32K WORDS OF MEMORY

(28K USEABLE
I.E. 4K FOR I1/0 PAGE)

TSVOS MAGTAPE SUBSYSTEM (DRIVE AND CONTROLLER)

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

RELATED DOCUMENTS AND STANDARDS

DIGITAL EQUIPMENT CORPORATION DOCUMENTS:
1.

CHQUS XXDP.
USERS GUIDE;
DATE: 14 ALY 1980.

COCUMENT

NUMBER AC-F348E-MC

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

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

1.4

TSVOS

DATE:

TRANSPORT

DOCUMENT NUMBER EK-TSV0S5-UG-001

SUBSYSTEM INSTALLATION MANUAL;

AUGUST 1983

ODIAGNOSTIC HIERARCY PREREQUISITES

FUNCTIONAL
FUNCTIONAL
FUNCTIONAL
FUNCTIONAL

LSI-11 CENTRAL PROCESSOR AND MEMORY
CONSOLE TERMINAL
STANDALONE DIAGNOSTIC SUPERVISOR
DIAGNOSTIC LOADER/MONITOR (XXDP.)

DOCUMENT

NUMBER EK-TSVOS5-IN-001

MACRO V0S.03

1.5

Tuesdsy 28-Apr-87

10:28

Page S

SEQ 0004

ASSUMPTIONS

ALL HARDWARE EXCEPT

THE HARDWARE UNDER TEST IS ASSUMED TO WORK

PROPERLY OR FALSE ERRORS CAN BE REPORTED.

&ETISEE BEING USED ON THE TSOS TRANSPORT IS A KNOWN GOOD REEL

2.0

OPERATING INSTRUCTIONS

THIS SECTION CONTAINS A BRIEF DESCRIPTION OF
FOR DETAILED INFORMATION, REFER TO THE XXDP.

2.1

COMMANDS

THERE

ARE ELEVEN LEGAL

COMMANDS FOR

THE RUNTIME SERVITES.
USER'S MANUAL (CHQUS).

THE DIAGNOSTIC RUNTIME

SERVICES

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

COMMAND
START

RESTART

CONTINUE

PROCEED
EXIT
ADD

DROP

DISPLAY
FLAGS

ZFLAGS

EFFECT
START THE DIAGNOSTIC FROM AN INITIAL STATE

START

THE DIAGNOSTIC WITHOUT

INITIALIZING

CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER tC)
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

DEACTIVATE A UNIT

STATISTICAL

BY THE DIAGNOSTIC

IWORHATI(N

SECTION
4

(IF

TYPE A LIST OF ALL DEVICE IPFG?HAT

TYPE THE STATE OF ALL FLAGS (SEE SECTI(N 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

IMPLEMENTED

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
NUM3ER AC-F348E-MC. THE USER ENTRY IS IN QUOTES.

B00T THE DIAGNOSTIC MEDIA

.R VISA??
DIAG. RUN-TIME SERVICES REV D.
CVTSA-C-0

APR 79

se90TSVOS LOGIC DIAGNOSTICsess

!.ggT IS TSvoS
>

_;4

USER DOCUMENTATION

MACRO V0S.03

2.2

Tuesday 28-Apr-87 10:28

Page 6

SEQ 0005

SWITCHES

THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS.

SUPERVISOR OPERATION.
ALL OF THE LEGAL

SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH.
IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY "DDODD”.
SWITCH

EFFECY

/TESTS:LIST

EXECUTE ONLY THOSE TESTS SPECIFIED IN
THE LIST.
LIST IS A STRING OF TEST
NUMBERS, FOR EXAMPLE - /TESTS:1:5:7
THIS LIST WILL CAUSE TESTS 1,5,7.8, 9 10 T0
E RUN.
ALL OTHER TESTS WILL NOT BE RUN,

/PASS : DOODD
/FLAGS:FLGS

EXECUTE DDDDD PASSES (DDDDD
= 1 TO 64000)
SET

SPECIFIED FLAGS.

FLAGS ARE DESCRIBED

IN SECTION 2.3.

/7EOP : DDODD

REPORT END OF PASS MESSAGE AFTER EVERY

/UNITS:LIST

TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED

EXAMPLE OF

DDDDD PASSES ONLY.

(DDDOD =

1 TO 64000)

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

SWITCH USAGE:

START/TESTS:1-5/PASS:1000/E0P: 100
THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH S WILL BE
EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE END OF

PASS MESSAGES WILL

BE PRINTED AFTER EACH 100 PASSES ONLY.

SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS.
FOR EXAMPLE, TYPE */TES:1-S5S* INSTEAD OF */TESTS:1-S*,

YOU MAY,

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

RESTARTY

PASS

FLAGS

EOP

UNITS

)

USER DOCUMENTATION

MACRO V05.03

2.3

Tuesdey 28-Apr 87 10:28

Page 7

SEQ 0006

FLAGS

FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS
LOOPING ON ERROR.
ALL FLAGS ARE CLEPRED AT STARTUP AND REMAIN
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH.
FLAGS
ARE ALSO CLEARED AFTER A
FLAG SWITCH.
THE ZFLAGS

START COMMAND UNLESS SET USING THE
COMMAND MAY ALSO BE USED TO CLEAR

ALL FLAGS.
WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS,
NO COMMANDS AFFECT THE STATE OF THE FLAGS*
THEY REMAIN SET OR
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH.
FLAG

EFFECT

HOE

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

LOE

IER»
IBR»
IXEs

PRI

PNT
B0OE
UAM
ISR

IDR

ADR

Lov

LOOP ON ERR

INHIBIT ALL ERROR REPORTS
INHIBIT ALL ERROR REPORTS EXCEPT
FIRST LEVEL
(FIRST LEVEL CONTAINS
ERROR TYPE, NUMBER, PC, TEST AND UNIT)
INHIBIT EXTENDED ERROR REF RTS (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

STATISTICAL REPORTING)

SUPPORT

INHIBIT PROGRAM DROPPING OF UNITS

EXECUTE AUTODROP COOE
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

USER DOCUMENTATION

MACRO V0S.03

2.4

Tuesday 28-Apr-87 10:28

Page 8

SEQ 0007

HARDWARE QUESTIONS

WHEN A DIAGNOSTIC IS STARTED,

THE RUNTIME SERVICES WILL PROMPT

THE USER FOR HARDWARE INFORMATION BY TYPING “CHANGE HW (L) 2
YOU MUST

ANSWER

*Y"

AFTER

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

SUPERVISOR),

THE PROGRAM

(START

THE PROGRAM WILL ISSUE THE

THE HARDWARE PARAMETERS ARE

TO BE

CHANGED

COMMAND TO

THE

DIAGNOSTIC

"“CHANGE HW?" QUESTION TO ASK IF
(BY THE OPERATOR).

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

ON A

»Y*

172520,

VECTOR

224

(YES) RESPONSE _TO THE QUESTION,

THE

FOLLOWING

QUESTIONS

WILL

THEN BE_ASKED TO ALLOW THE OPERATOR TO SELECT THE UNITS TO BE TESTED.
A
VALUE, IF PRESENT,
LOCATED TO THE LEFT
OF
THE
QUESTION
MARK
IS
THE

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

RESPONSE.
REQUIRED

A
AS

"(D)" IN A QUESTION INDICATES
THAT
A
DECIMAL
NUMBER
1S
A
"RESPONSE. _ AN_“(0)“ INDICATES AN OCTAL NUMBER IS BEING

SOLICITED.
AN “(L)" INDICATES THAT
“Y*"FOR YES, "N" FOR NO.
© UNITS

(D)

A LOGICAL RESPONSE IS

MADE:

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

UNIT
O

DEVICE ADDRESS
VECTOR (0) 224
THE

ADDRESS

UNITS

AND

(0) 172520 ?
?

<ENTER THE ADDRESS OF THE

TSBA/TSDB REGISTER>

VECTOR QUESTIONS WILL

(CONTROLLERS) SPECIFIED IN THE

ASKED FOR EACH OF

"# UNITS?” QUESTION.

THE NUMBER OF

LOGICAL UNIT

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

ARE:

USER DOCUMENTATION

MACRO V0OS.03

Tuesday 28-Apr-87

10:28

Page

SEQ@ 0008

2.5

SOFTWARE QUESTIONS

AFTER

YOU HAVE

ANSWERED

OR CONTINUE COMMAND,

PARAMETERS.

THE HARDWARE QUESTIONS OR

AFTER

THE RUNTIME SERVICES WILL ASK FOR
S

A RESTART

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

IN THE NEXT PARAGRAPH(S).

AND

THE DEFAULT

VALUES

ARE DESCRIBED

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

CHANGE SW (L)
INHIBIT

CONTINUE.

ITERATIONS

(L) N

7?2

<TYPE *Y* TO PREVENT MUILTIPLE
ITERATIONS OF CERTAIN TESTS.

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

ONLY QUICK-RUNNING LOGIC
TESTS USE MULTIPLE

ITERATIONS.
>

2.6

EXTENOED 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.
A

MASS

STORAGE

IF YOU HAVE A MULTIPLEXED DEVICE SUCH AS

CONTROLLER

DEVICE WITH SEVERAL LINES,
THE

ANSWERS

WITH

SEVERAL

DRIVES

COMMUNICATION

THIS BECOMES TEDIOUS SINCE MOST OF

ARE REPETITIOUS.

USER DOCUMENTATION

MACRO V0S5.03

Tuesday 28-Apr-87

TO ILLUSTRATE A

HORE EFFICIENT

DEVICE, THE XxY1l.

10:28

METHOD,

Page

SUPPOSE

SEQ 0009
YOU ARE

SUPPOSE THIS DEVICE CONSISTS OF

TESTING

A CONTROL MODWE WITH EIGHT UNITS (SUB-DEVICES) ATTACHED T0
THESE UNITS ARE DESCRIBED BY THE OCTAL NUMBERS O THROUGH 7.

IT.
~ THERE

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

8<CR>

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

UNIT 2
CSR ADDRESS (0) ?
160000<CR>
SuUB DEVICE ¢ (0) ?
1<CR>
Q-FACTOR (0) 1 ?2
O0<CR>

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

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

(0) 0

<CR>

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

6
UNIT

CSR ADDRESS (0) ?
Sl.B OEVICE
& (0)
Q-FACTOR (0) 0 7

160000<CR>

S<CR>
<«CR>

UNIT 7
CSR ADDRESS (0) ?_
160000<CR>
SUB-DEVICE ¢ (0) ?
6<CR>
Q-FACTOR (0) 0 ?
1<CR>

UNIT 8
CSR ADDRESS (0)
160000<CR>
SUB-DEVICE @ (0) ?
7<CR>
Q-FACTOR (0) 1 2
<CR>
NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A
NON-DEFAULT RESPONSE IS GIVEN.
BE CAREFUL WHEN SPECIFYING
MU TIPLE UNITS!
AS YOU CAN SEE FROM THE ABOVE EXAMPLE,

THE HARDWARE PARAMETERS

DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT.

NOT VERY EFFICIENT.

THE PROCEDURE SHOWN IS

USER DOCUMENTATION

MACRO V0S.03

Tuesdasy 28-Rpr-87 10:28

Page

THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT

SEQ@ 0010

SPECIFICATIONS HOWEVER.

LET'S BUILD THE SAME TABLE USING THE MULTIPLE SPECIFICATION

FEATURE
.

¢ UNITS

(D)

8<«CR>

UNIT }
160000<CR>
CSR ADDRESS ( 0) ?
SUB-DEVICE & (0) ?
O,1<CR>
Q-FACTOR (0) 0 ?
1,0<CR>
UNIT 3
CSR ADDRESS (0)

SUB-DEVICE g 80% 7

Q-FACTOR (O

160000<CR>

2-S<CR>

0<CR>

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

THE RUNTIME

SERVICES WILL

BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY
ONE PASS THROUGH THE QUESTIONS.
IN THE FIRST PASS, TWO ENTRIES
ARE BUILT

SINCE

TWO SUB-DEVICES AND Q-FACTORS WERE SPECIFIED.

THE

SERVICES ASSUME THAT THE CSR ADORESS IS 160000 FOR BOTH SINCE IT
WAS SPECIFIED ONLY ONCE.

BUILT

IN THE SECGO PASS,

FOUR ENTRIES WERE

THIS IS BECAUSE FOUR SUB-DEVICE \Eflé SPECIF 41ED.

TFE

* CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DAT
FR(H TPE FIRST NUMBER TO THE SECOND.
1IN THIS CASE, SUB- DEVICES
2, 3, 4 AND 5 WERE SPECIFIED.
(IF THE SUB-DEVICE WERE SPECIFIED
BY ADDRESSES, THE INCREMENT WOULD BE BY 2 SINCE ADDRESSES MUST
BE_ON AN EVEN BOUNDARY.)
THE CSR ADDRESSES AND Q-FACTORS FOR
THE FOUR ENTRIES ARE ASSUMED TO BE 160000 AND O RESPECTIVELY
SINCE THEY WERE ONLY SPECIFIED ONCE.
THE LAST TWO UNITS ARE
SPECIFIED IN THE THIRD PASS.
THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS

SHOWN BELOW.

¢ UNITS (D)

8<«CR>

UNIT 1}
160000<CR>
CSR ADDRESS (0) ?
SUB-DEVICE & (0) ?
0-7<CR>
Q@-FACTOR (0) O 2
0,1,0,...1,1<CR>
AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING
A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY,

MACRO V05.03

Tuesdey 28-Apr-87 10:28

2.7 QUICK START-UP PROCEDURE

Pege 12

SEQ 0011

(XXDP.)

TO START-UP THIS PROGRAM:

TYPE

“R NAME",

“START"

WHERE NAME IS THE NAME OF THE BIN OR BIC

TYPE

FILE FOR THIS PROGRAM

ANSWER

THE

“CHANGE HW"*

BOOT XXDP.

ANSWER

ALL

THE HARDWARE

USER DOCUMENTATION

ANSWER

THE

“CHANGE SW"”

QUESTION WITH

*Y*

QUESTIONS

QUESTION WITH

WHEN YOU FOL.LOW THIS PROCEDURE YOU WILL

“N*

BE USING ONLY

DEFAULTS FOI! FLAGS AND SOFTWARE PARAMETERS.

ARE DESCRIBED IN SECTIONS 2.3 AND 2.5.

THE

THESE DEFAWLTS

3.0 ERROR INFORMATION

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

NAME
TYPE
NUMBER
ERROR MESSAGE

ON UNIT NUMBER

TST NUMBER PC:XXXXXX

JHHERE; NAME = DIAGNOSTIC NAME

TYPE = emm TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT)
NUMBER = Em
UNIT NUMBER =
TST NUMBER =

(N IS LAST UNIT IN PTABLE)

TEST AND SUBTEST

WHERE ERROR OCCURRED

PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL

BASIC ERROR MESSAGES ARE PfiSSAGES THAT CMAIN SOME ADDITIONAL

INFORMATION ABOUT li ERROR.
THESE ARE ALWAYS PRINTED UMNLESS
THE "IER* OR “IBR* FLAGS ARE SET (SECTION 2.3).
THESE MESSAGES
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE.

EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION
SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA.
THESE ARE ALWAYS

PRINTED UNLESS THE

“IER“,

“IBR* OR

"IXE* FLAGS ARE SET

(SECTION 2.3).

THESE PESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR

MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES.

—

USER DOCUMENTATION

MACRO V0S5.03

Tuesdey 28-Apr-87 10:28

Pege 13

SEQ 0012

3.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 THAT FAILED.
THE SECOND PART PRIOVIDES THE REGISTER BITS AND THEIR MNEMONICS FOR THE

I'DCA?:RECT REGISTER
OR STATUS WORDS.

TST:

016 FIFO EXERCISER

THE THIRD PART IS THE EXPECTED AND RECEIVED

TEST

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

FIFO STATUS (IN WORD

9) INCORRECT AFTER WRIE FIFO

040624

TAPE BUS SIGNALS IN WORD #8: - DESIGNATOR <«BIT o>
PARERR<1S5>
JEOT
«<12>
IFMX
«<«9>
JRDY<6>
IRWD<2>
IRESV2<14>
JIDENT<11>
JHER
<«8>
JIONL<S>
IFBY<}>
IRESV1<«13>
ICER
«10>
ISPEED<7>
ILDP<4>
IFPT<O>
TAPE BUS SIGINALS IN WORD #9
DATMIS<7>
ILW<6>
WTROY(S)
IPRDY(C)

MESSAGE BUFFER ADDRESS = 047352
P(SSAGE BUFFER CONTENTS:
#0 EXPO: 100020
RECV: 100C20

#1 EXPD:
#2 EXPD:
#3 EXPD:

000012
000000
000010

RECV:
RECV:
RECV:

000012
000000
000010

EXPD:
:
:
EXPD:
EXPD:

000000
000000
000000
070217
000074

RECV:
RECV:
RECV:
RECV:
RECV:

000000
000000
000000
070217
000034

XOR:

000000

XOR:
XOR:

000000
000000

XOR:
XOR:

000000
000040

XOR:
XOR:
XOR:

000000
000000
000000

ERROR MESSAGE EXAMPLE 2
THIS

ERROR SHOWS A FATAL

FUNCTION ERROR FROM THE TAPE DRIVE,IN THIS

INSTANCE AN LMECOVERRBLE ERROR OCCURED WHICH INDICATES THA1 THE

CONTROLLER MAY BE

DEFECTIVE.

CVTSA HRO ERR 00159 ON UNIT 00 TST 001 SUB 005 PC:
TSSR NOT CORRECT AFTER SPACE RECORDS COMMAND
JSSR = 100214
TSSR BITS SET: SC,SSR
TERMINATION CLASS CODE = UNRECOVERABLE ERROR
PACKET ADORESS =
PACKET WORD #
=
PACKET WORD #
=
PACKET WORD #
=
PACKET WORD ¢
=

026420
140010
000010
000000
000024

026202

USER DOCUMENTATION

MACRO V05.03

T uescay 28-Apr -87 10:2
10:28

P age 1 4

SEQ 0013

ERROR MESSAGE EXAMPLE 3
THIS ERROR SHOWS

THAT

THE MOTION BIT DID NOT GET

REWIND WITH EXTENDED FEATURES MODE ENABLED.

SET WHILE DOING A

CVTIS HRD ERR 00121 ON UNIT OO TST 001 SUB 002 PC: 023306
MOT BIT (XSTO) NOT SET DURING REWING (EXTENDED FEATURES MODE)
EXPD: 000312 RECV: 000112 XOR: 000200
4.0 PERFORMANCE AND PROGRESS REPORTS
AT

THE END OF EACH PASS,

THE PASS COUNT

IS GIVEN ALONG WITH THE

TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED.

THE “EOP* SWITCH CAN BE USED TO CONTR:Y. HOW OF TEN THE END
OF PASS MESSAGE IS PRINTED.
SECTION 2.2 DESCRIBES SWITCHES.

SUCCESSFUL RUN EXAMPLE (LSI-11)

DR>STA/FLA :PNT : HOE

UNITS (D)

UNIT O

DEVICE ADORESS

(0) 172520 ? <CR>

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

? N<CR>

THE ABOVE COMMAND WILL

SWIT CP.{S

WHICH

ARt

START

THE

DIAGNOSTIC.

THE

COMMAND

HAS

TWO

“PRINT EACH TEST NBR AS EXECUTED* AND *“HALT ON

TST: 001 INITIALIZE #1
TST: 002 WRAP DATA HIGH BYTE TEST
7ST: 003 WRAP DATA LOMW BYTE TEST
157: 004 RAM TEST
IST: 005 INITIALIZE
2 TEST
7ST: 006 COMMAND REJECT TEST
TST: 007 WRITE CHARACTREISTICS TEST
1ST: 008 VOLUME CHECK
TST: 009 COMPLETION INTERRUPT TEST
TST: 010 BASIC PACKEY PROTOCOL TESTY
TST: 011 NON-TAPE-MOTION COMMANDS TEST

O ERRORS

NOTE:

THE DIAGNOSTIC WILL RUN CONTINUOSLY UNLESS A PASS NUMBER LIMIT HMAS BEEN
SPECIFIED WITH THE “/PASS:* SWITCH,

USER DOCUMENTATION

MACRO V05.03

Tuesdey 28-Apr-87

10:28

Page 1S

SEQ 0014

PROGRAM RUN TIMES

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

ARE

THE PROGRAM RUNS IN TWO MODES;

THE

NO ITERATIONS AND DEFAULT MODE.

NO JITERATIONS MODE, EACH TE!‘)T IS RUN ONCE, WITH NO ITERATIONS.
DEFAULT MODE EACH TEST IS REPEATED BY THE NUMBER OF TIMES
THE

ITERATION

COUNT.

TEST

SECS.

ITER

OEF

SECS

SECS.

1
25

8
120

7
95

475

450

10
11

140

135

1
8

2
1

1
3

THE TIMES REQUIRED TO RUN TESTS 1

Q.v.
DEFAUWLT

INDICATED

“Y* (YES).

3
4

IN THE
BY

~NO ITERATIONS MODE IS SELECTED BY ANSWERING THE

INHIBIT ITERATIONS QUESTION WITH A

NUMBER

1 MIN 57 SECONDS
12 MINS

THROUGH 12 IN ONE COMMAND:

USER DOCUMENTATION

MACRO V05.03

Tuesdey 28-Apr-87 10:28

Page

SEQ 0015

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

CHANGES
:

CHANGE W (L)
® UNITS

(D)

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

UNIT
O

DEVICE ADORESS

VECTOR (0) 224

(0)

172520

<ENTER THE

ADORESS OF

TSBA/TSDB REGISTLR>

THE

<ENTER ADDRESS OF INTERRUPT

VECTOR>

THE ADORESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF

THE NUMBER OF

UNITS
(CONTROLLERS) SPECIFIED IN THE “@ UNITS?" QUESTION.
LOGICAL UNIT
NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT O.
UP TO FOUR UNITS CAN BE
SE'.ECTED FOR TESTING.

IN ADDITION,

ON A START,

RESTART OR CONTINUE THE SUPERVISOR

2510}53;5 CHANGES TO THE SOF TWARE OPERATING PARAMETERS. AS
CHANGE
SW (L) ?
INHIBIT ITERATIONS (L) N ?

USER DOCUMENTATION

MACRO V0S5.03

Tuesdey 28-Apr-87

10:28

Pege

SEQ 0016

6.0
TEST

TEST SUMMARIES

BUS RESET TESTY
THIS

TEST

VERIFIES

THAT

THE M7196 MODULE'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 MIDULE.
AREAS OF LOGIC TESTED BY THE
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

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 Al6 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
APPARENT ERROR CODE IN BITS 0-S):
INDICATES THAT
TSSR CONTENT CANNOT BE TRUSTED,
INDICATES A

CATASTROPHIC CONTROLLER MALFUNCTION.

THE

THIS IS A FATAL

ERROR (EXECUTION IS ABORTED).
FIELD ACTION WOULD BE T0
REPLACE THE M7196.
IF THE #7196 ITSELF 1S BEING

DEBUGGED,

THE PROGRAM SHOULD BE RESTARTED WITH LOOP ON

ERROR ENABLED IN ORDER T0 PROBE FOR THE PROBLEM.
2.

SSR
= 0, SC =

THE RANGE 17-13:

AND THE ERROR CODE IN BITS 0-S5 IS IN

THIS IS A FATAL ERROR,

THE ERPOR

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

USER DOCUMENTATION

TEST

MACRO V0S.03

WRAP DATA

THIS TEST

Tuesdey 28-Apr-87 10:28

Pege 18

HIGH BYTE

VERIFIES OPERATION OF
:

PARY

OF Tif LSI 11 BUS INTERFACE SECTION OF THE M7196

MODULE :

T OF THE INPUT FILE (TSDB HIGH BYTE) PART

OF THE W‘TPUT FILE (TSSR HIGH BYTE AND TSBA

BYTES), PART OF THE DCOOS TRANSCEIVER CIRCUiYS (ADOQESS
HIGH BYTE OF INTERNAL DAL BUS
%Vfggé BASIC PROGRAMMED I/0 CONTROL SEQUENCES

DECODER BDAL ORIVERS,
:

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 TSDB,
WAITS FOR THE SSR BIT IN TSSR TO SET, THEN CHECKS THE CONTENTS
OF BOTH TSBA AND TSSR.
THE MODWE I$ FLMTI(NING CMECTLY 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 SHOWLD 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

USER DOCUMENTATION

TEST

MACRO V05.03

WRAP DATA

Tuesdey 28-Apr-87 10:28

Page 19

SEQ 0018

LOW BYTE

THIS TEST FURTHER VERIFIES OPERATION OF MANY OF THE SAME
ELEMENTS TESTED IN TEST 2, AND ADOITIONALLY 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 CIRCUITS,

THE PROGRAM WRITES
A TEST DATA BYTE INTO THE LOW BYTE OF
T

WAITS FOR THE SSR BIT IN TSSR TO SET, THEN CHECKS THE CCNTENTg

OF BOTH TSBA AND TSSR.
THE MODWLE IS FlMTICNI'G CORRECTLY IF
DATA WRITTEN APPEARS IN BOTH BYTES OF TSBA AND THE FINAL CONTENT

OF TSSR IS CORRECT (SAME AS AFTER INITIALIZATI(N 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).

TEST

RAM TEST

THIS TEST

VERIFIES THAT

ALL LOCATIONS OF

THE RAM ON THE M7196

CAN PROPERLY STORE AND READ BACK ALL DATA PATTERNS

EACH RAM LOCATION IS UNJQUELY ADDRESSED
(

AND THAT

THAt ONE AND ONLY

ONE LOCATI(N 1S ACCESSED BY ANY PARTIC\LAR Aoéaess THE

BYPRODUCT OF THESE TESTS IS A VERIFICATION
OF TWO nesxsveas m
IO’% 2901 AND THE CAPABLITY OF THE 2901 TO CORRECTLY PERFORM
AN

USER DOCUMENTATION

TEST

MACRO VO5.03

Tuesday 28-Apr-87 10:28

Page 20

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 INITIALIZING VIA A BUS INIT,

THE OTHER FOR

%g;éfi*% BY WRITING INTO THE TSSR), THE FOLLOWING SEQUENCE
1.

EACH RAM LOCATION AND 2901 REGISTERS 10 AND 11 ARE SET

TO ALL 1'S BY USING WRITES INTO THE TSDB REGISTER (LOW
BYTE AND MAINTENANCE MODE WORD WRITES).

THE CONTROLLER IS INITIALIZED AND THE VARIOUS CHECKS ON
;EEFINSQISéDDESCRIBED IN INITIALIZATION TEST #1 ARE

01'S (377 OCTAL) ARE WRITTEN INTO THE LOW BYTE OF TSD8,
WHICH SHOULD CAUSE RAM LOCATION O TO BE WPITTEN 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.

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.

MOST LIKELY DUE TO A ROM,
OR A TIMING PROBLEM.

AN ERROR AT THIS POINT IS

PIPELINE OR SEQUENCER PROBLEM

USER DOCUMENTATION

TEST

MACRO V05.03

Tuesday 28-Apr-87 10:28

Page 21

SEQ 0020

COMMAND REJECT
THIS TEST

VERIFIES

THAT

ALL

COMMANDS OTHER THAN WRITE

CHARACTERISTICS ARE REUECTED DUE TO THE NEED BUFFER_ADDRESS
(NBAR) 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 COMMAND WORDS (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

WRITE CHARACTERISTICS
THIS TEST

COMMAND.

VERIFIES BASIC OPERATION OF

THE WRITE CHARACTERISTICS

IT7 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.
HOWEVER, THE PROGRAM RUNS AT
PROCESSOR PRIORITY O, WITH THE INTERRUPT SERVICE ROUTINE SET UP
TO FLAG UNEXPECTED INTERRUPTS.
IF AN INTERRUPT OCCURS, A
PROBLEM EXISTS IN EITHER THE LSI-11 BUS INTERFACE SECTION OR IN
THE ROM OR PIPELINE.
TEST

VOLUME

CHECK

THIS TEST

VERIFIES

THAT

THE VOLUME CHECK

(VCK) BIT,

A FLAG HELD

WITHIN THE M7196 AND APPEARING IN XSTO, IS SET BY INITIALIZE AND
CLEARED BY EXECUTING A WRITE CHARACTERISTICS COMMAND WITH THE
CvC 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.

USER DOCUMENTATION

TEST

MACRO V0S5.03

Tuesdey 28-Apr-87

10:28

Page 22

SEQ 0021

COMPLETION INTERRUPT

THIS

TEST

VERIFIES

THAT

AN INTERRUPT

IS GENERATED

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

THE SEQUENCES OF

IE BIT.

TEST

7 ARE REPEATED,

EXCEPT THAT

THE INTERRUPT

SERVICE ROUTINE IS SET UP TQ EXPECT INTERRUPTS AND EACH WRITE
CHARACTERISTICS COMMAND IS IS °*0 WITH THE IE BIT SET (1).
1IT
1S VERIFIED, WHERE APPROPRIAT.
THAT THE IE STATUS BIT IN XSTO
OF ANY MESSAGE PACKET IS SET AND THAT A COMPLETION INTERRUPT IS
GENERATED.
FINALLY, A SEQUENCE OF TWO COMMANDS ARE ISSUED, THE

FIRST

WITH JE=1

AND

THE SECOND WITH IE=0.

1IT

VERIFIED THAT

NO INTERRUPT IS GENERATED AFTER THE SECOND COMMAND AND THAT THE
IE BIT IN XSTO IS O.

TEST

10:

BASIC PACKET PROTOCOL

THIS

TEST

COMMAND,
AND

TEST

11:

VERIFIES BASIC OPERATION OF

THE MESSAGE BUFFER RELEASE

THE FUNCTION OF THE ACK BIT IN THE COMMAND HEADER WORD,

THE REGISTER MODIFICATION REFUSED

(RMR) LOGIC.

NON-TAPE MOTION COMMANDS

THIS

TEST

COMMAND.

VERIFIES PROPER OPERATION OF

TWO SUBTESTS ARE USED.

THE COMMAND RUNS

THE

INITIALIZE

THE FIRST VERIFIES THAT

TO COMPLETION AND STORES

A VALID

MESSAGE PACKET.

THE SECOND VERIFIES THAT NON-ZERO

7.0 MAINTENANCE

HISTORY

VALUES

THE COMMAND MODE

REVISION A

FIELD CAUSES COMMAND

REJECT.

MARCH 1982

REVISION B - JUNE 1984
MINOR CHANGES FOR THE ORION CPU (11/77).
ELIMINATED THE MESSAGE DESCRIBING THE CPU TYPE.
REVISION C

APRIL

1987

CHANGES MADE TO ALLOW DIAGNOSTICS TO WOKK WITH

THE NEW TSVOS MICROCODE (REVISION 2). THE NEW
TSVOS MICROCODE ALWAYS IN EXTENDED FEATURE MODE.

TSVe2

PROGRAM HEADER

MACRO V0S5.03

Tuesday

28-Apr-87

22 002000

002000

TSV?::

Page

LTITLE
.SBTTL
.PSECT

:SgGRAH HEADER

MCALL

SsvC

SVC

002000

10:28

.ENABLE
NLIST
ENABL
=2000
BGNMOO

T1Sv2

SEQ 0022

PROGRAM HEADER

LC
8EX,CND

INITIALIZE SUPERVISOR MACROS

, AMA
ABS

TSVve

HER
J

; THE PROGRAM HEADER IS THE INTERFACE BETWEEN
:

THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR.

POINTER BGNSW,BGNSFT,BGNAU,BGNDU,BGNRPT

L$NAME:
:

HEADER

.ASCII
.ASCII
.ASCII
.ASCII

.ASCI1I
.BYTE
.BYTE
.BYTE

002154
002164

047004

L4REV::
.
.ASCII
L$OLPO:
:
.ASCII
LSUNIT::
. WORD
LeTIML::
. WORD
L$HPCP:
:
.WORD
L$SPCP:
:
.WORD
L4HPTP:
.WORD
L4SPTP::
. WORD
L$LADP::
. WORD
L$STA:
. WORD
L$CO::
. WORD
L$DTYP:
:
. WORD
L$APT:
;
WORD
L$OTP:

CV1SA,C,0,655.,0
/C/

sDIAGNOSTIC NAME

/N/
/17
/S/
/A/
0
0

/C/
70/

655.
L $HARD

L$SOFT
L
L$SW
L$LAST
0
0
o

tREVISION LEVEL
10

1NUMBER OF UNITS
;LONGEST TEST TIME

;POINTER TO H.W.

QUES.

;POINTER TO S.W.

QUES.

1PTR,

10 DEF. H.W.

tPTR.

1DIAG.

S.W.

PTABLE

END ADDRESS

;RESERVED FOR APT STATS

1DIAGNOSTIC TYPE
sAPT
tPTR,

EXPANSION
T0 DISPATCH TABLE

I<2

TSV2

PROGRAM HEADER

MACRO V05.03

Tuesdey 28-Apr-87

10:28

Pege 24-1

SEQ 0023

PROGRAM HEADER

000000
000000
000000

003
003

000000
000000
000000

003402
022700
000000
000000

022366

022464
000000

003410

104035
000000

021572
022652

022572
021562
000000
000000

000000

L$PRIO:
:

L$ENVI::
L$EXPL::
L$MREV:
;|
L$EF::

WORD
WORD

BYTE
BYTE
WORD
WORD

L$SPC::

LSOEVP:
:
L$REPP:
;

L$EXPA:
;
L$EXPS:
;

L$AUT::
L$OUT::

L$DESP:
:

L$ICP::
L$CCP:

L$ACP::
L$PRT::

L¢HIME::

+FLAGS DESCRIBE HOW IT WAS SETUP

s EXPANSION WORD

1SVC REV AND EDIT ¢

C$REVISION
C4EDIT
0
1DIAG.

WORD

L$DVTYP

WORD

L$RPT

WORD

L$AU

WORD

EVENT FLAGS

POINTER TO DEVICE TYPE LIST

t+PTR.

70 REPORT

sPTR.

L DU

1PTR,

TO DROP UNIT COOE

tLUN FOR EXERCISERS TO FILL

L40ESC

E4LOARD

L$INIT

L$TEST::
L$OLY::

L$LORD:
:
L$ETP:
:

1DOIAGNOSTIC RUN PRIORITY

WORD

LSLUN::

L$DISPATCH

5§58 § §

002124

L4CLEAN

L$AUTO
L$PROT

COOE

ADD UNIT

CODE

1POINTER TO DIAG.

DESCRIPTION

s GENERATE SPECIAL AUTOLOAD EMT
;POINTER

TO ERRTBL

tPTR.

TO INIT CODE

tPTR,

TO CLEAN-UP CODE

:PTR.,

TO AUTO COOE

1PTR.

70 PROTECT

1 TEST NUMBER

1DELAY COUNT

1PTR,

TO HIGH MEM

TABLE

TSV2 - PROGRAM HEADER

MACRO V0S5.03

Tuesdey 28-Apr-87 10:28

Pege 25

<EQ 0024

PROGRAM HEADER

gt_s,

.SBTTL

38
39

DISPATCH TABLE

'QQ
: THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST.

:<1>

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

42
43 002122
002122

000013

002124
002126

023462
023702

002132
002134

025072
026426

002124

002130

002136
002140
002142
002144
002146

-“ 002150

DISPATCH 11
LWORD
11

L$DISPATCH: :

024400

WORD
WORD

T1
T2

WORD
WORD

T4
TS

WORD

027532
031004
034462
035366
040522

043634

WORD
WORD
WORD
WORD
WORD

T6
T7
T8
T9
T10

.SBTTL

DEFAULT HARDWARE P-TABLE

WORD

s
46
4

T11i

'00

; THE DEFAULT HARDWARE 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.

1--

5S4 002152
002152

002154

000003

ss 002154
S6
57
S8
§9

002154
002156
002160
002162

002162

LM:

BGNHW
.MORD

DFPTBL
L10000-L $Hd/2

;DEFAULT HARD-P-TABLE

OFPTBL : :

172520
000224
000200

L10000:

LMORD
JWORD
'WORD
ENDHW

172520
224
PRIO4

+
:
+

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

TSV2

PROGRAM HEADER

MACRC V0S.03

Tuesdey 28-Apr-87 10:28

Pege 26

SEQ 0025

SOFTWARE P-TABLE
.SBTTL

SOFTWARE P-TABLE

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

;

PARAMETERS THAT

CAN BE CHANGED BY

THE OPERATOR.

L$SW::
SFPTBL
: :

BGNSW
LWORD

TRANSTST: :

NOITS::
74 002170
75 002172

000017
000310

LERRMAX : ;

GERRHAX:éwsu
L10001:
ENDMOD

SFPTBL
L10001-L8$SuW/2

.WORD

. WORD

15.

200,

ENABLE TEST OF TRANSPORT(S) IF =}

t
:

... O = JTERATE
...NZ = INHIBIT ITERATE.

GLOBAL (PER UNIT) ERROR LIMIT

3 INHIBIT ITERATION OPTION.

s LOCAL (PER TEST) ERROR LIMIT

TSVS - GLOBAL AREAS

MACRO VO0S.03

EERERREEEEEEEAEE

Tuesday 28-Apr-87 10:28

s e e ee e

Page 27

<o 0026

SOF TWARE P-TABLE

TITLE

20 002174
5y 002178

TSV3.

TSV3 - GLOBALAREAS

'SBTTL

GLOBAL EGUATES SECTION

BGNMOD

TSV3

.SBTTL

GLOBAL EQUATES SECTION

25
2%

SECTION CONTAINS PROGRAM EQUATES THAT
GLOBALINEQUATES
THE USED
:' ARE
MORE THAN ONE TEST

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

EQUALS
i BIT DIFINITIONS
8IT15== 100000
BIT14== 40000
BIT13== 20000
BIT12== 10000
BIT11=» 4000
BIT10== 2000
8IT09== 1000
BITO8== 400
BIT07== 200
BITO6== 100
BIT0S== 40
BITOA== 20
BIT03=+ 10
8IT02=» 4
BITO1== 2
8I700== 1
8179-= BIT09
BI78-=
BITO8
8IT7== BITO?
BIT6== BIT06

000010

8I73==

'--

32 002174

000004
000002
000001

8IT2==
8IT1==
8I7T0==

, GET STANDARD EQUATES.

B8IT03

BIT02
B8I701
81700

EVENT FLAG OEF INITIONS

EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION
1

START COMMAND WAS ISSUED

A NEW PASS HAS B“EN STARTED

3 R START CLAMAND WAS ISSUED
1 CONTINNSE COre D WAS 1S %D

t A POMER-FAIL/POWR-UP OCCURRED

h]SVB - GLOBAL AREAS

MACRO V0S5.03

Tuesdey 28-Apr-87 10:28

Page 27-1

SEQ 0027

GLOBAL EQUATES SECTION

ARIO7== 340

PRIO6=» 300
PRIOS== 240

PRIOA== 200

PRIO3==
PRIO2==

140
100

PRIO1== 40
PRIOO== 0
:

1tOPERATOR FLAG BITS
3

EVL==
LOT==

ADR==

I0U==
ISR==

40
100

UAM= =

B0E==
PNTs=
PR]==

IXE==
IBE==
JER==
LOE==
HOE ==

33
34 002174

.SBTTL

000250

177572
177574
177576
172516

4
10

200

400
1000
2000
4000
10000
20000
40000
100000
KT11

MEMORY MANAGEMENT DEFINITIONS

;#KT11 VECTOR ADDRESS

MMVEC=

*KT11

SR]1=

SR2=
SR3=
.IF NB

250

STATUS REGISTER ADORESSES

177572

177574

177376
172516

1*USER *I* PAGE DESCRIPTOR REGISTERS

UIPDRO=
UIPDR1=
UIPDR2=
UIPDR3=
UIPOR4=
UIPDRS=
UIPOR6=
u§:o:g-

177600
177602
177604
177606
177610
177612
177614
177616

1sUSER ~“D* PAGE DESCRIPTOR REGISTORS

UDPDRO=
UDPDR1=
UDPDR2=
UDPDR3=
UOPDR4=
UDPDRS=
UDPDR6=
UDPDR7=
.ENDC

177620
177622
177624
177626
177630
177632
177634
177636

1DEFINE MEMORY MANAGEMENT REGISTERS

TSVS - GLOBAL AREAS

MACRO V0S.03

Tuesday 28-Apr-87 10:28

Page 27-2
SEQ 0028

MEMORY MANAGEMENT DEFINITIONS

1 *USER “I; PAgE ADDRESS REGISTERS

UIPARO=
UIPAR]=
UIPARZ=
UIPAR3=
UIPARA=
UIPARS=
UIPARG=
UIPAR7=
.IF NB

17764
177642
177644
177646
177650
177652
177654
177656

UDPARO=
UDPAR]
=
UNPAR2=
UDPAR3=
UDPAR4=
UDPARS=
UDPARG=
UDPAR7=
.ENDC
.ENDC
.IF N8B

177660
177662
177664
177666

3 «USER "0~ PAGE ADDRESS REGISTERS

177670
177672
177674
177676

*SUPERVISOR

IPORO=
SIPDR]1=
SIPDR2=
SIPOR3=
SIPDR4~»
SIPDRS=
SIPORG=
SIPOR7=

.IF NB

“I" PAGE DESCRIPTOR REGISTERS
172200
172202
172204
172206
172210
172212
172214
172216

;¢ SUPERVISOR

SDPORO
SDPOR1
=
SDPDR2=
SDPOR3=
=
SOPDRA4

*“D* PAGE DESCRIPTOR REGISTERS

172220
172222
172224
172226
172230
172232
172234
172236

‘51” PAGE ADDRESS REGISTERS

172242
172244

.IF NB

*SUPERVISOR ~D*
ARO= 172260

SOPARL= 172262
SDPAR2= 172264
SOPAR3= 172266

PAGE

ADDRESS REGISTERS

TSVS - GLOBAL AREAS

MACRO V0S.03

Tuesdey 28-Apr-87

10:28

Pege 27-3
SEQ 0029

MEMORY MANAGEMENT DEF INITIONS
SDPAR4=

172272
172274
172276

KIPDRO=
KIPDR1=
KIPDR2=
KIPOR3=
KIPDR4=
KIPORS=
KIPOR6=
KIPDR7=

172300
172302
172304
172306
172310
172312
172314
172316

“I*

PAGE

1 oKERNEL

~D*

PAGE

1*KERNEL

172316

172270

SOPARS=
SDPARG=
SDPAR7=
.ENDC
.ENDC

.IF _NB

DESCRIPTOR

REGISTERS

DESCRIPTOR REGISTERS
KDPORO= 172320

KDPDR1=

172322

KDPDR4=
KDPDRS=
KDPOR6=
KOPOR7=

172330
172332
172334
172336

KOPDR2= 172324
KDPDR3= 172326

.ENDC

$oKERNEL

KIPARO=
KIPARl=
KIPAR2=
KIPARS=
KIPAR4=
KIPARS=
KIPARG=

*I1"

PAGE

172340
172342
172344
172346
172350
172352
172354

ADDRESS REGISTERS

K%g!{g- 172356

1 *KERNEL

*D* PAGE ADDRESS REGISTERS

KOPARO= 172360
KDPAR]1= 172362
KDPAR2= 172364
KOPAR3= 172366
KDPAR4= 172370

KDPARS=

KOPARG=
KDPAR7=
.ENDC

172372

172374
172376

TSVS

GLOBAL

AREAS

MACRO V05.03

Tuesdey 28-Apr-87

10:28

Pege 28

SEQ 0030

TSVOS REGISTER AND PACKET DEFINITIONS

39
40

.SBTTL

4]
42
43
44
45

000004

47
48
49

177560
177562
177520

50
S1
32
53
54
35

: SOME GENERAL EQUATES.
}

000060

100000

010000

002000

64
65
66
67
63
69
70

020000

004000

001400

000200

HIADDR=

BIT9:!8IT8

1EXTENDED ADODRESS BITS

RMR =
NXM=
NBA=

B8lT12
8IT11
8IT10
BIT?
8176

FATERR= BIT4:BITS

BIT3!BIT2!B8IT1

tMOOIFICATION REFUSED
sNONEXISTANT MEMORY ERROR
tNEED BUFFER ADDRESS
1SUB SYSTEM READY
10FF LINE BIT
1FATAL

TERMINATION ERROR CODES

;TERMINATION COOES

:BIT DEFINITIONS FOR EXTENDED STATUS REGISTER O

;1(XSTO)
:
;-

100000
040000
020000

010000

001000

000200

000100

000040

000010

000020

000004

000001

CONSOLE INPUT DATA BUFFER

s+ BDOV11 PAGE CONTROL REGISTER

1 SPECIAL CONDITION
1BUS INTERFACE ERROR
1 SANITY CHECK ERROR

TERCLS=

000400

BIT15
8IT14
BIT13

000016

177562

SC=
8IE=
SCE=

000100

004000
002000

177520

TTIBFR==

SSR=
OFL =

7
72
73
74
75
76
77
78
79

BDVPCR==

s POINTER TO ERROR VECTOR FOR BUS TIME OUT.
: INTERRUPT VECTOR FOR CONSOLE INPUT
1 BUS ADDRESS OF CONSOLE INPUT

'—

S8
61

4
60
177560

1BIT DEFINITIONS FOR TSSR REGISTER

040000

ERRVEC==
TTIVEC==
TTICSR==

‘0

56
57

TSVOS REGISTER AND PACKET DEFINITIONS

000002

XSOTMK=
XSORLS=
XSOLET=
XSORLL=
XSOWLE=
XSONEF=
XSOILC=
XSOILA=
XSoMOT=

BIT1S
BIT14
BIT13
BIT12
BIT11
BIT10
BIT9
BIT8
BIT?7

1 TAPE MARK DETECTED
tRECORD LENGTH SHORT
1LOGICAL END OF TAPE
+RECORD LENGTH LONG
1WRITE LOCK ERROR
1NON EXECUTABLE FUNCTION
s ILLEGAL COMMAND
s ILLEGAL ADORESS
s TAPE IN MOTION

XSOVCK=
XSOPED=

BIT4
BIT3

1VOLUME CHECK 817
1PHASE ENCODED DRIVE

XSOONL= BIT6
XS0Ie=
B8I1S

XSOWLK= BIT2
XS0807= BIT1
XSOEQT= BITO

1 TRANSPORT ON LINE
s INTERRUPT ENABLE

tWRITE LOCKED
1BEGINNING OF TAPE
;END OF TAPE

TSV

GLOBAL

AREAS

MACRO V0S.03

Tuesdey 28-Apr-87 10:28

TSVOS REGISTER AND PACKET DEFINITIONS

91
92
93
94
95

98
99
100

017375
000400
000002

103
104
105

106

107

100000

040000

101
102

108
109
110

111
112
113
114
115
116

020000

100000

040000

035400
002000
000200
000100
000077
000007

127

132

177400

000100

000010

000006
000001

145

= BITS
BITI

llmmRECTABLE DATA OR HARD ERROR

i2.@fl

= BIT1S

X2.WCF

= BIT10

X2.RCE

;G’ERATICN IN PROGRESS (TAPE MOVING)

= BIT14

CHECKSUM ERROR

X2 .SPARE = 811’13081112081*110817908178
X2 .EXTF
X2.BUFE
X2.REV
X2.UNIT

=
=
=
=

sNOT USED B8Y TSVOS (ALWAYS=0)

E CLOCK FAILWE (FIFO mT EMPTIED BY TRANSPORT)

BIT?
|IF \RITE CHAR CMD THEN
= EXTENDED FEATURES ENABLED
BIT6
sIF WRITE CHAR CMD THEN = BUFFERING ENABLED
000077
sIF WRITE CHAR CMD THEN = MICROCOODE REVISION LEVEL
BITZoBITloBITO :IF GET STATUS THEN = CURRENTLY SELECTED UNIT NO.

X3.MDE

= 177400

sMICRO DIAGMJSTIC ERROR CODE

= BITS

sOPERATION INCOMPLETE
s REVERSE

X3 .SPARE= BIT7
X3.0PI
= BIT6

X3.REV

X3.TRF
X3.0CK
X3.MBZ
X3.RIB

= BIT4
= BITS
=B]T2.BIT}
= BITO

sNOT USED BY

TSVOS

s TRANSPORT RESPONSE FAILURE
sDENSITY CHECK
tNOT USED ALWAYS O
;REVERSE INTO 807

020000

X4.TSM
X4 .MBZ
X4 _WRC

000377

HSP

X4 RCE

BIT1S

=
=
=

BIT13
*TRANSP(RT SPECIAL MODE
BIT12- 81711081 10.8179.8B]IT8
sNOT USED
000377
WRITE RETRY COUNT FIELD

sHIGH SPEED

= BIT14

sRETRY COUNT EXCEEDED

ALWAYS O

:TSSR TERMINATION CODES (BIT 0-2)

141
142

144

017400

143

X1.UNC

100000

135

137
138
139
140

= BITIZ 81711081*10°BIT9 81717, BIT6 8ITS.8IT4.8I73.BIT2.B8IT0 ;ALWAYS O

;1B8IT DEFINITIONS FOR EXTENDED STATUS REGISTER 4
1 (XST4)
040000

136

;READ BUS PARITY ERROR

CORRECTABLE DATA ERROR

X1.M82

133

134

X1.RBP

USED
SMT

1 (XST3)

000040
000020

128
129
130
131

;DATA LATE

122
123

125
126

X1.DLT
= BITI1S
X1.SPARE= BIT14
X1.COR
= BIT13

:617 DEFINITIONS FOR EXTENDED STATUS REGISTER 3
000200

124

SEQ 0031

1 (XST2)

1290

121

:éIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2

117

118
119

oot

:éigT%FINITI(NS FOR EXTENDED STATUS REGISTER 1

9%
97

000006
000006

TSREU=

UNREC=

3e2
6

1 COMMAND REJECTED
s UNRECOVERABLE ERROR

TSV3

GLOBAL

AREAS

MACRO V0S.03

TSVOS REGISTER AND PACKET

Tuesday 28-Apr-87

151

152
153

154
155
156
157
igg

000000

000000
000001
000001
000002
000003

000003

178
i;g
181

000017

000013
000012
000011
000010
000006
000005
000004
0000¢ 1

TSDB==
TSBAH==
TSDBH=s=
TSSRas
TSSRH==

0
1
]
2
3

1 TSOB/TSBA REGISTER

1TSDB/TSBA REGISTER HIGH BYTE
s TSSR REGISTER
1 TSSR REGISTER HIGH BYTE

TSOB ADDRESS BIT DEFINITIONS

i1716

= BIT1.8ITO

"’.GETSTAT

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

100000

040000
020000
010000

187
igg

000140
000037

007400
000200

igg
192

000000

195
196

002000
002400

193
194

SEQ 0032

s ADDRESS BITS 17:16 ARE 1IN 1:0

3 COMMAND DEFINITIONS

182
183
164

185
186

igg
169
170
171
172
173
174
178
178

TSBA==

165

168

Page

;DEVICE REGISTER OFFSETS

ig%

ig}

10:28

DEFINITIONS

148

i;g

_I“

000400
001000

= 17

= 13
= 12
= 11
= 10
= 6
=5
= 4
= ]

sGET STATUS

s INITIALIZE
s CONTROL COMMANDS
1FORMAT
;POSITION
lSlBSYSTEH WRITE
tWRITE
1WRITE CHARACTERISTICS
1READ

COMMAND PACKET HEADER WORD BIT DEFINITIONS

P.ACK

P.CVC
P.OPP
P.SuWB

= BIT1S

1BUFFER AVAIL FOR CONTROLLER

= BIT14
= BIT13
= BIT)12

1CLEAR VOLUME CHECK
1REVERSE SEQUENCE OF DATA BITS
SWAP BYTES IN MEMORY

P.MODE = BIT11'81710'31+9'BI EXTENDED COMMAND MODE FIELD
P.1E
=
WT ENABLE
P.FMT= BITG'BITS
P.CMD
= 37

;PACKET HEADER TYPE (ALWAYS=0)
tMAJOR COMMAND FIELD

: CONTROL COMMAND MODE CODES
'
PC.RELEASE
= 0e256.
PC .REWIND
PC .NOOP

PC.IEREW
PC.ERASE

s 1¢256.
s 2¢256.

= 49256.
s 50256,

sRELEASE BUFFER
s REWIND
:NO-0OP

sREWIND IMMEDIATE INTERRUPT
$1SECURITY ERASE

TSVS

GLOBAL

AREAS

MACRO V0S.03

Tuesday 28-Apr-87

10:28

Page

<6 0033

TSVOS REGISTER AND PACKET DEFINITIONS

198

"CONTROLLER RAM DEFINITIONS

501

000167

RMCHBEG = 167

;CHARACTERISTICS IO DATA BEGIN RAM ADDRESS

50%
504
505
206

000201
000210
000215
000234

RMPKTBEG=
RMPKTEND=
RMMSGBEG=
RMMSCEND=

; COMMAND
1 COMMAND
iMESSAGE
IMESSAGE

502

|
000200

516
217

1 CHARACTERISTICS I0 DATA END RAM ADDRESS

201
210
215
234

000010
000012
000014
000016

519

X5TO==
X5Ti==
X5T2==

X5TS=
XST4==

6
8.
10.

JEXTENDED STATUS REGISTER O (WORD 4)
{EXTENDED STATUS REGISTER 1 (WORD S)
JEXTENDED STATUS REGISTER 2 (WORD 6)

12.
14,

JEXTENDED STATUS REGISTER $
JEXTENDED STATUS REGISTER 4

555
5%
227

000002
000004
000006

PKLOW
PKHI
PKBCNT

223

000010

EXBCNT=10

3
{OFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS

»
-

2
4
6

,LOW ORDER CHARACTERISTIC DATA POINTER
{HIGH ORDER CHARACTERISTIC DATA POINTER
INUMBER OF BYTES IN DATA PACKET
NUMBER OF BYTES IN EXTENDED DATA PACKET

531

535
536
537

(WORD 7)
(WORD 8)

532

BEGIN RAM ADDRESS
END RAHM ADDRESS
BEGIN RAM ADDRESS
END RAM ADDRESS

3
{REGISTER DEFINITIONS IN THE MESSAGE BUFFER

220
2

232

PACKET
PACKET
BUFFER
BUFFER

' *

208
209

51%
51a
515

RMCHEND = 200

000000
000001
000002
000004

iDATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND
'

BSELO

= O

BSEL1
= 1
SELS
= 2
SELDATA = &

JBYTE 0
'BYTE 1
{WORD 2
{HORD 3

TSV3

GLOBAL

AREAS

MACRO V05.03

Tuesdey 28-Apr-87

10:28

Page 32

SEQ 0034

TSVOS REGISTER AND PACKET DEFINITIONS

239

000011
000020
000021

257
258
259
260

264
265
266

000020
000010
000004

000040

000002
000001

270

000200
000100

276
77
278
279

000020
000010
000004
000002

280

261
282
283
284
285

286

287
288
289

BN
I

WC.IFAD
WC.IOTAD

WC.I1TAD
WC . ISRESV
WC . IREW

WC.IRWU
WC.IFEN
WC.IGO
H

271
272
273
274

275

sREAD RAM

sWRITE RAM
tREAD FIFO
sWRITE FIFO

;READ STATUS

;WRITE TAPE CONTROL
sWRITE TAPE FORMAT
;WRITE MISCELLANEOUS
sWRITE NPR CONTROL
;00 MICROTEST 22
;00 MICROTEST 11
;00 MICROTEST 13
:DISABLE MICROTEST 11 AND 13
;READ EXT. TAPE STATUS (NOT 7.LPPORTED BY ALL TRANSPORTS

sBSEL1 CODES FOR WRITE TAPE CONTROL

000200
000100

267
268
269

1NO-0OP

‘0

261
262

263

000022
000023
000024

| I

254
2535
256

000010

NNV [
== JON AW
S WO O

251
252
233

230

BN BN B

000003
000004
000005
000006
000007

BN IR BN B

245
246
247
248
249

BN B

000002

.NOP

PuW.RDRAM
PUW.WTRAM
PW.RFIFO

000001

=4
VW=

000000

h]
b =

244

{BSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND

= BIT7
= BIT6
=
=
=

BITS
BIT4
BIT3

= BIT2
= BIT1
= BITO

sIFAD - FORMATTER ADDRESS
sITADO
;ITAD1

TRANSPORT ADDRESS BIT O
TRANSPORT ADORESS BIT 1

s IREW

REWIND

s IRESVS - RESERVED oS

s IRWY
s+ IFEN
:GO

- REWIND AND UNLOAD
- FORMATTER ENABLE

240
241
242
243

+1BSEL1 CODES FOR WRITE FORMAT
;-

000040

WF . IHISP
WF . IWRT
WF . IREV
W IWFM

=
=
=
=
=
=
=
=

BI17
BIT6
BITS
BlT4

BIT3
BIT2
BIT1
BITO

sIHISP

s IURT

s IREV

s IWFM

- HIGH SPEED

- WRITE

- REVERSE

- WRITE FILE MARK

000001

WF . JEDIT
WF . IERASE
WF . I3RESV
WF . JARESV

000200

1BSEL1 CODES FOR WRITE MISCELLANEOUS SUBCOMMAND
= BIT7
PE.EXT
1 INVERT SENSE OF EXTENDED FEATURES SWITCH

sIEDIT
1JERASE
s JRESVS
1JRESVA

EOIT
ERASE
RESERVED o3
RESERVED o4

000020

000010
000006
000001

MS.RSFIFO
MS.RSTAPE

= BIT4
= BIT3

MS.RSD

= BITO

MS.ATTN

BIT2!BIT1

tRESET FIFO AND INPUT PARITY ERRORR
1RESET TAPE STATUS IN 2 FLIP-FLOPS

sATTENTION TRIGGER FIELD

sRESET TIMER A,B THEN DELAY TIMES IN SELZ2

—_—
TSV3

GLOBAL

AREAS

MACRO V0S5.03

Tuesday 28-Apr-87

—_
10:28

Page

SEQ 0035

TSVOS REGISTER AND PACKET DEFINITIONS

291
ggg

e
+ MS.ATTN SUBCODES
;-

294
295
296
gg;

000000
000002
000004
000006

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

02
1#2
2s2
32

sNO-0P (NOTHING TRIGGERED)
$SIMULATE ON-LINE/OFF LINE TRANSISTION
sFORCE NON-FATAL RAM ERROR (FORCES ERRCODE S4)
1FORCE FATAL RAM ERROR (CAUSES SCE TO SET)

2383

; WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS
'

301

000200

NP IR

= BIT7

+ INTERRUPT REQUEST (0-1 TRANSITION)

303
338;

000040
000020

NP . LOOP
NP . WRP

= BITS
= BIT4

sENABLE TRANSPORT LOOPBACK
tWRITE CORRECT PARITY (SET=0 TO WRITE WRONG)

302

000100

NP . OUT

= BIT6

s TAPE DATA DIRECTION OUT (0=

IN)

3389

1 READ STATUS MESSAGE BUFFER BIT DEFINITIONS
;-

308

309
310
311
312
313
314
315
316
317
318
319

329
321
322

323
324
325
326
327
328
329
330
331

000200
000100

000020
000010
000004
000003
100000
040000
020000
010000

002000

001000

000400
000200
000100
000020
000010
000004
000002
000001

S2.DIM

= BIT7

S2.ILW
S2.0UTRDY
. INROY
S2.ATIMR
S2.8TIMR
S2.UNDEF
S1.PARIN
S1.I2RESV
S1.I1RESV
S1.IE07

=
=
=
=
=
=
=
=
=
=

S1.IFMK

= BIT9

S1.IIDENT
S1.ICER

S1.IHER
S0.ISPEED
SO. IRDY
SO. JONL
SO.ILDP
S0.1D08Y
SO.IRWO
SO.IF8Y
SO.IFPT

BIT6
BITS
BIT4
8IT3
BIT2
BIT1.BI70
BIT1S
BIT14
BIT13
BIT12

= 8IT11
= BIT10
=
=
=
=
=
=
=
=

BIT8
BIT?
BIT6
BITS

BIT4
BIT3
8112
BIT1
= BITO

sWORD 09 BYTE 2 DATA IN MISS

3
ILWH
5
OUT RODY H
}
IN RDY H
:
TIMER A FLAG H
3
TIMER B FLAG H
s CUNDEF INED)
sWORD #8 BYTE 1 PARIN H
:
JRESV2
3
IRESV]1
:
IEOT L

3
3
3

IIOENT H
ICER H
IFMK H

$
IHER H
;WORD 08 BYTE O ISPEED H
'
IROY L
}
ONL L
:
}
:
}
i

ILOP
I08Y
IRWD
IF8Y
IFPT

L
L
L
L
L

I<3

TSV3

GLOBAL

AREAS

MACRO VOS.03

Tuesdey 28-Rpr-87

10:28

Pege

SEQ 0036

SPECIAL MACROS AND OPDEFS.

.SBTTL

SPECIAL MACROS AND OPDEFS.

‘Q

1SAVE GENERAL REGS 1 TO0 S
:

.MACRO

JSR

. ENDM

SAVREG

RS ,REGSAV

MACRO TO FORCE AN ERROR

fa:ulcao F ORCERROR

:I§F NDF LISTALL., .NLIST
ZIF8 NOTSSR
MOV
MOV
BNE

TAG,NOTSSR

TSSR(RS),R1
FORCSR,FORCER
TAG

NLIST
.IIF NDF LISTALL,
LIST
- ENDM

;READ TSSR
;IS FORCER SET7 (LEAVE C BIT ALONE)
1BR IF YES

.LISY

333
334
335
336
337
338

CRO TO FORCE AN EXIT TO AVOID SECTION ITERATIONS
WILL EXIT

TO A LABEL

FORCER IS NEGATIVE

SO TO FORCE _ERRORS AND EXIT ON 1 ERROR SET
FORCER TO 177777
TO FORCE ERRORS AND ITERATIONS SET

.MACRO
FORCEXIT
.NLIST
E%gTW LISTALL,

MOV

8MI

TAG

.NLIST

FORCER,FORCER
TAG

NLIST
.IIF NDF LISTALL,
.L1IST
. ENDM

1IS FORCER NEGATIVE?
tBR IF YES

.LIST

i MACRO TO INCREMENT ERROR COUNTS
'HACRO
LNLISTY

NEXT.ERRNO

s13.1IF NDF LISTALL,

.NLIST

.JIF NDF LISTALL,
”i

.LIST

ERRNO=ERRNO- 1

Ehl)fl

FORCER 70 1.

TSV3

GLOBAL

AREAS

MACRO V0S5.03

Tuesdey 28-Apr-87

10:28

Pege

SEQ 0037

SPECIAL MACROS AND OPOEFS.
388
389
390
391
392
393
394
395

IMACRO TO PERFORM XOR
iF

.MACRO
MOV

8IC
8IC
81S

000000

EN=0

.SBTTL

XOR

A.B

B.(SP)
A.B
(

FORCER

INITIALIZE ERROR NUMBER

FORCE ERROR FLAG

THE FOLLOWING LOCATIONS MAY BE PATCHED 8Y THE USER
TO OBTAIN THE RESW TS DESCRIBED FOR EACH.

002174

000000

FORCER: :

1
i

FORCE TYPE ALL HARD ERRORS (THE C’{S CALLEO -

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

TSVS

GLOBAL

AREAS

MACRO VO0S.03

Tuesday 2 Apr-87 10:28

Page

<£q 0038

GLOBAL DATA SECTION

1 THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED
[ IN MORE THAN ONE TEST
s

420

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

$SINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P-1ABLE.
WORD
.WORD
LWORD
.WORD

O
O
O
O
2

419

. WORD
. WORD

0
0

108

8PHOOOOOOOO;OOOOOOOOOO

413

388

ala

GLOBAL DATA SECTION

413

.SBTTL

1PRINT SWITCH
tUNIT @ UNDER TEST.
1QUICK VERIFY FLAG.
1ADDRESS OF CSR FOR CURRENT DEVICE
;INTERRUPT PRIORITY.

iNUMBER OF TESTS RUN IN THIS PASS
sREMAINING ITERATION COUNT FOR TEST
sNUMBER OF DEVICE UNDER TEST
1SET IF FATAL ERROR IS DETECTED IN TEST
1SET IF TAPE INTERRUPT WAS RECEIVED

tEXTENDED FEATURES SOF TWARE SW 0=0FF
; 1=0ON

tREV LEVEL (old mcrocodo-l new micro=2

1BUFFER ENABLE SWITCH SW O=OFF ;10N

;EXPECTED RAM DATA FOR PRMT ROUTINE
sRECEIVED RAM DATA FOR PRAMPKT ROUTINE

LOW
sDATA READ FROM RAM PACKET OR MESSAGE BUF AREA

1RAM DATA SIZE FOR PRAMPKT ROUTINE
;RECEIVED BUFFER HIGH ADORESS

sRECEIVED BUFFER LOW ADORESS
1 TEST COUNT PATTERN
s TEST DATA
+JEST FLAG WORD
s TSTBLK POINTER
+PRINT ROUTINE TEMP

1EXPECTED MESSAGE BUFFER DATA
1RECEIVED MESSAGE BUFFER DATA
s TEMPORARY STORAGE FOR PRINT

TSV3 - GLOBAL AREAS
TSTBLK

MACRO VOS.03

Tuesday 28-Rpr-87 10:28

.SBTTL

- TEST DATA TABLE

1THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS
3

459

sIN SEQUENCE THE DATA 1S:

460

461
462
463
464
465
466
467

3
:
3
s
3
'
:-

468

469 002752
470 002752
471 002754

002756
002760
002762
002764
002766

477 002770
478 002772
479 002774

480 002776
481 003000

003002
003004
003006
003010

000000
177777

000001
000002
000004
000010
000020

000100
0030200

000400
001000

002000
004000
010000

003012

487 003014

TSTBLK::

ALL ZERQS
ALL ONES
WALKING ONES
WALKING ZEROS
ALTERNATING ONES AND ZEROS

.WORD
.WORD

BITO
BIT1
BIT?
BITS
BIT4

.WORD
. WORD

BI78
8IT9

LWORD
.WORD
. WORD

BIT10
BIT1)
BIT1R2
BIT13

.WORD

BIT1S

.WORD

tCB1T2

. WORD
.WORD
.WORD

491 003024

177767

.WORD

492 003026

493 003030

177773

177757

177737

.WORD
.WORD

494 003032

177677

. WORD

496 003036

177377

.WORD

495 003034

1775717

497 003040
498 003042

176777
175777

SO0 003046
S501 003030

167777

ggz &9305‘

499 003044

003052

SOS 003060

173777

137777

0525295

003062

. WORO

.WORD
.WORO
LMMORD

sALL ZEROS
sALL ONES

sDATA FOR WALKING ONES

BITS
:39(]
8117

LWORD
LMORD
LHORD
.WORD

177776
177775

490 003022

17771717

.WORD
.WORD
LWORD
.WORD
.WORD

488 003016
489 003020

506

TSTBLK

:g;

2
483
484
4835

SEQ 0039

TEST DATA TABLE

:gz

472
473
474
475
476

Pege 37

BIT14

tC8IT0
tCBIT1

;DATA FOR WALKING ZEROS

*CBIT3

t(CBITA

*(CBITS

1CBIT6

+CBIT7

t(CBITS

tCBIT9
+CB1T10
t(BIT1)

. WORD
. WORD

1CBIT
tCBIT1

. WORD

1CBIT1S

052525

IALTERNATING ONES, ZERO OPPOSITE FROM ABOVE

.MORD

.WORD

TOLEWD==,

t(CBIT14

TING ONES

TSV3 - GLOBAL AREAS

MACRO V0S5.03

Tuesday 28-Apr-87 10:28

Page 38

SEQ 0040

GLOBAL ENVIRONMENT STORAGE

.SBTTL

GLOBAL ENVIRONMENT STORAGE

1STORAGE FOR DEVICE REGISTERS
000000
000000

100000 000000 &m:

000000

0,100000,0,0

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

{DUMMY DEVICE REGISTERS...
:.

DUFLG: :

.WORD

NODEV: :

. WORD

TEMPL::
TEMP2: :
AXCOMM: :
FREE: :

. WORD
. WORD
. WORD
.WORD

0
0
0
0

FRESIZ: :
FREEHI:

KTFLG: :

.WORD

KTENABLE: :
NXMFLG: :
NXMLO: :
NXMHI:
T23A:;
7238::

T3BFLG: :
PST32W: :
SIFLAG: :
BADDAT:; :
GOOAT: :
LOG’FL: :

.WORD

.WORD
.WORD
.WORD
. WORD

. WORD
.WORD

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

CTAB:

CTABM:
177777

. WORD

1 "DROPPED UNIT"” FLAG.

$1INHIBITS CODE IN "CLEAN-UP",
:FLAG TO SAY NO DEVICE.
1SOME TEMP LOCATIONS,
1 XXDP+ (,OMM BLOCK POINTER.

slST FRIZE MEMORY ADDRESS...
.ANC SIZE (IN WORDS).

sLAST UORD IN 7REE SPACE
1KT11,

1- WZ =

0
0
0
0

0
2000
0
0
0
0

.WORD

HMEM AVAIL FLAG_-

O = <24K OR NO KT -

>24K AND
K

«5ET BY TEST RWTIWS T0 FLAG >28K UNDER TEST
sSET IF WE CAN TEST CLEARED OTHERWISE
;NXM LO ADORESS BITS
sNXM HI ADDRESS BITS FOR DAL'S 16-21
111/723A FLAG
1117238 FLAG
s TEST 38 FLAG 10
:32W BLOCK ADDRESS FOR 32K START

0
O

. WORC

CTABE: :

LWORD

LWORD
MORD

..FOR MULTI-UNIT CHECKOUT.

:ACTUAL DATA

tEXPECTED DATA

;CONFIGURATION TABLES.
sCONFIG WORK,

O
O

-1

;END OF MEM TABLE.

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

3
]
3
:
:
Fl

S
557 003176
358 003376

ERTABL :

560 003400

SKIPT

0
100000
10XXXX
160000
160001
14XXXX

ERTABE :

=
=
=
=
=
=

UNIT
UNIT
UNITY
UNIT
UNIT
UNIT

BLKW

64,

. WORD
.WORD

NOT TESTED
ONLINE, NO ERRORS

gRl.I?G

ENCOUNTERED XXXX ERRORS
+ NON-EXISTENT DEVICE REGISTER

DROPPED,
DROPPED,

NOT IDLE AT STA
ENCOUNTERED XXXX ERRORS

11=SKIP SUBTEST 0=NO SKIP OF SUBTEST

TSVS

GLOBAL

AREAS

MACRO V05.03

Tuesday 28-Apr-87

10:28

Psge 39

SEQ 0041

GLOBAL TEXT MESSAGES
562
S63
Sea
565
566
S67
S68
569

.SBTTL

i THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS.
i MESSAGES. AND ASCII INFORMATION THAT ARE USED IN
| MORE THAN ONE TEST.
'—-

570
S71 003402
003402

003402

INAMES OF DEVICES SUPPORTED
!
DEVTIYP <«TSVOS>

124

572
574
575
5§76
S$77 003410

003410

052

{

003542
003603
123
102

607
608
609
610
611
612
613
614
615
616
617
618
619

003555
003561
003565
003571
003576
003603
003607
003613
003620
003625
003632
003637
003644

122
116
116
102
102
123
117
102
102
102
102
102
102

621
622
623
624
625

003652
003705
003740
003777
004020

124
124
040
045
045

627 004117
628 004123
630
631
632
633

004215
004221
004256
004300

L$OVTYP,
‘ASCIZ
"EVEN

003502
003522
003542
003545

004152

126

/TSV0S/

600
601
602
603
604
605

605 003551

123

L TEST DESCRIPTION

598
599

GLOBAL TEXT MESSAGES

123

L$DESC:

DESCRIPT <ssss TSVOS LOGIC DIAGNOSTIC - REPLACE M7196 IF ERROR sess>
e‘S,E'I‘Z

/evess TSVOS LOGIC OIAGNOSTIC - REPLACE M7196 IF ERROR sses/

:éIT TO ASCII CONVERSION FOR TSSR REGISTER
*SSRBIT::
JWORD 14,24,38,44,54,64,74,84
14:
e4:
34:
44 :

.ASCIZ
ASCIZ
ASCIZ
ASCIZ

64:

ASCIZ

S5¢:

74:

ASCIZ

' NXM'
'NBA’

'BIT79’

SCIZ

'BIT2’

ASCIZ
ASCIZ
ASCIZ
.ASCIZ
.ASCIZ
ASCIZ

S¢
164
SFIERR:
SFHERR:

ASCIZ
.ASCIZ
EVEN
.ASCIZ
_ASCIZ

NXRX :

.ASCIZ

‘o278’
'SSR’
'OFL’
'BITS’
‘'BIT4’
'BIT3’
'BIT1’
'BITO’

'TSSR ERROR AFTER SOFTY INIT'
'TSSR ERROR AFTER BUS RESET

LASCIZ

TSSX:

.ASCII

/#A

045
040

FUSI:

LASCII

045
040
040
04S

FNOINTR:
NOINTR: .ASCIZ

045

040

NXR ;

94,104,114,124,134,144,154,16¢

ASCIZ

84:
94:
104:
114:
124
13¢:

LWORD
'SC’
'BIE’
'SCE’
'RMR’

.ASCIZ

USI:
NSI:

LASCIZ
.ASCIZ

JFALT:
INTX:

_ASCIZ
.ASCIZ

/#A

NON-EXISTANT

ADDRESS:

DEVICE REGISTER/

®06/

TSBA,TSSR EXP'D:

s068A 068N/

TSBA,TSSR REC'D: sO6sA,%06/

/wNsA/

/
/

UNEXPECTED INTERRUPT/
INTERRUPT EXPECTED, NOT RECEIVED/

.ASCII
/wNsA/
/
NO_INTERRUPT WAS GENERATED/
/
INTERRUPT FAWLT/
/wA
CPU PC: #06%A
TSBA: %06/

TSV

GLOBAL

AREAS

MACRO V05.03

Tuesdey 28-ARpr-87

10:28

Page 39-1

SEQ 0042

GLOBAL TEXT MESSAGES

634 004335

040

042

045
045

116
101

000
040

101

115

635 004407
636 004457
637 004527

040
040
000

640 004567
641 004643

045
045

116
101

643 005013

040

647 005300

106

101

638 004530
639 004533
642 004745
644 005056
645 005113
646 005206

648 005372

649 005460

650 005554
23% 005645

122

127
124
124

105

045

045
045

040
040

042
042

045
040
103

NOINIT:

.ASCIZ

NUACR;
EXPGOT:

.ASCIZ
.ASCIZ

NSINIT:
BRINIT:
NWL :

EXPGT2:
DUAD12:

PKTRAM::

SCME:

*“BUS-INIT* DIDN'T INITIALIZE CONTROLLER/

_ASCIZ
.AS
I%
.

/
“SOFT-INIT* DIDN'T INITIALIZE THE DPU/
/
“"BUS-RESET* DIDN'T INITIALIZE THE DPU/
V4

.ASCIZ
.ASCIZ

/sNsA EXP’'D: ¢06¢A. s#O68NsA REC'D: #0sA, %06/
/%A REG(W) WRITTEN TO: #06%A REG(R) READ: EXP'D: #O68A, REC'D: #06/

/9N/
/%A EXP'D: swO68A,
.ASCIZ

REC'D:

®06/

'RAM Contento Do Not Metch Packet Sent’

.ASCIZ

CONFIG DOESN’'T MATCH MFG. MASTER/

.ASCIZ

'FATAL ERROR IN SUBTESTY - CHECK TM‘E CABLES,

122
123
123

111
123
123

WRTMSG:
WRTERR:
RDERR:

.ASCIZ
.ASCIZ
_ASCIZ

116

045

NOMEM:

_ASCIZ

'wNsA eesss NO NXM ADDRESS--CANNOT TEST NXM TIMEOUT.

.SBTTL

GLOBAL ERROR REPORT SECTION

122

116
116

124

SCHERR:

TRANSPORT etc.

122 RETERR: .ASCIZ 'ennoa IN SUBTEST - WRITE DATA RETRY FIVE TirfS FAILED'

04S
04S

MB8186:
M8189:

ggz
655

657

656

'WRITE CHARACTERISTICS Feiled’
'TSSR Incorrect After WRITE Commend, More Bits Set Then SSR'
'7TSSR Incorrect After READ Commend,
More B-ts Set Then SSR’

.ASCIZ
23&52

3 T'-E GLOBAL ERROR REPORT SECTION C(NTAINS THE PRINTB AND PRINTX

ggg

CALLS

ASCII

THAT ARE USED IN MORE THAN ONE

TEXT

TEST

STRINGS ARE FOUND IN THE GLOBAL

TEXT

SECTION.

§--

660 005736

005736

661 005736

NXRERR::

005736
005742
005746
005752

013746
012746
012746
010600

003114
003777
000002

005756

062706

000006

005754

662 005762

663 005766

005766
c6a 005766

104415

004737

PRINTX

sNON-EXISTANT DEVICE REGISTER.

#NXRX,NODEV

sNODEV = NEXM ADORESS.

NODEV, -(SP)
MNXRX, -(SP)
gg .- SSP )
LR

ADD

96, SP

JSR

L10002:

NXRERR

~MOV
MOV
MOV
MOV

TRAP

005770

104423

BGNMSG

ENDMSG

TRAP

CHePNTX

PC.EXTEND

;s PRINT EXTENSION IF REQUIRED.

C4MSG

665

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

229

668 005770 005727
669 005772
670 005774

671 005776
672 006002
00002

006006

000000
001402

004777

012746

EXTA:

177770

004530

006012

012746

010600

000001

006016
673 006022

062706
000207

000004

006014 104415

TO ANY OF THE ABOVE ERROR SIGNATURES.

EXTEND: TST
14:

0
BEQ

JSR
PRINTX
MOV

(PC)14
PC,3EXTA
MER

MNUALCR, -(SP)

MOV

1.(S#)

ADD
RTS

MOV

TRAP

sesessN’

'#NsA essevesessesssseess 11/723A SYSTEM essesssessssnsesegN’
‘SNSA sessssesssssssese 11/238 SYSTEM sssvsssssssssesnesN’

cmnx

O = NO EXTENSION.

s APPEND EXTENSION TEXT,
3+ PRINT A BLANK LINE

TSVS

GLOBAL

'mmssn

AREAS

MACRO V0S5.03

Tuesdey 28-Apr-87

Page 40

<EQ 0043

TSSR CONTENTS

g;z

.SBTTL

PRITSSR - PRINT TSSR CONTENTS

6;7

679

saouurc TO DISPLAY THE CONTENTS, AND BIT DEFINITIONS, OF

gg%

1BY A MESSAGE PRINTING ROUTINE

678

680

1 THE TSSR REGISTER., THIS ROUTINE IS NORMALLY CALLED ONLY
$

683
684

L INPUTS:
:

2:2

CONTENTS OF TSSR

gg;

10:28

1 SUBORDINATE ROUTINES:
3

2593

691
692
693 006024

PRITSSR:

CHXKAMB

CHECK FOR AMBIGUOUS CONTENTS

694 006024
695 006030

010104

SAVREG
MOV

R1,R4

006032
006034
006040
006044

010446
012746
012746
010600

MOV
MOV
MOV
MOV

R4, -(SP)
S#TSSRFOR, -(SP)
92,-(SP)
SP,RO

006050
697 006054
693 006056

062706
010400
004737

ADD
MOV
JSR

96, SP
R4 ,RO
PC .CHXAMB

1GET TSSR BACK FOR CHKAMB
1ARE CONTENTS AMBIGUOUS ?

PRINTX

SAMBTSSR

;SHOM CONTENTS ARE AMBIGUOUS

696 006032

006046

699 006062
700 006064

104414

103410

PRINTB

006415
000002

TRAP

000006

016124

BCS

#TSSRFOR,R4

012746
012746
010600

006635
000001

MOV
MOV
MOV

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

006100
701 006104

062706
010403

000004

ADD
MOV

4, SP
R4 .R3

704 006114

012702

002632

706 006124
707 006126

005703
001413

104415

TRAP

S4:

702 006106 042703 001476
703 006112 001434
705 006120
708 006130
709 006132

012701

104

o1ssreIt. R

1S7
BEQ

711 006136
712 006140
713 006142

011100
112022
001376

MOV
MOVB
BNE

716 006154
717 006156

000763
105042

006160
006164

012746
012746

714 006144

112762

715 006152 005721
718 006160

8CC

114:
000054

177777

134
15¢:

002632
006606

ONTENTS OF TSSR

MOV
cLC
ROL

103006

CHANTX

oo-dnooa-rnm-rénas
tCLEAR ALL MULTIPLE BIT FIELDS
204
aivs ARE SET

000241
006103

710 006134

;BRANCH IF NOT

BIC
BEQ
MOV

003502

sPRINT THE CONTENTS OF TSSR

C4PNTB

006064
006070
006074

006076

1 SAVE GENERAL REGISTERS
1SAVE THE TSSR CONTENTS

MOVB

$THPBFR ,R2

rmmv ASCII BUFFER

R3
15¢

;REMAINING BITS TO CONVERT
1BRANCH WHEN ALL ARE DONE

;CLEAR CARRY FOR SHIFT
(SHIFT NEXT BIT T0 CARRY

(R1),.RO
(RO)+,(R2).
ns

1POINTER T0 BIT DEFINITION
IHOVE ASCIZ TO BUFFER
sMOVE ALL BITS

134

. -1(R2)

(R15-

PRINTX

#TSSOEF ,#TMPBFR

B8R
CLRB

MOV
MOV

1ASCIT EQUIVALENT OF BITS

104
-(R2)

STMPBFR.
- (SP)
OTSSDEF
, -(SP)

1BRANCH IF BIT

NOT

SEY

1INSERT A COMMA TO TERMINATE

1POINT TO NEXT DESCRIPTION

1GET THE REMAINING BITS
s TERMINATE THE LINE

;PRINT

THE BIT

DEFINITIONS

Fa4

TSV3

PRITSSR

GLOBAL
-

AREAS

006170
006174
006176
006200

MACRO V0S5.03

Tuesdey 28-Apr-87 10:28

012746
010600
104415
062706

010346
012746
012746

000002

MOV
MO

000006

177761

204:

006676

SP.RO
C4PNTX
6, SP

R4 R3

#*tCFATERR,R3

254

R3
R3
R3
TSFCOD(R3),R3
#TFCASC,R3

006537
000002

010446

735

012746
012746
010600
104415
062706
013703

737

010346
012746
010600
104415
062706
000207

736

#TFCASC,

tPRINT

THE

TERMINATION CODE

1 TSSR CONTENTS AGAIN

;CLEAR ALL BUT FATAL TERMINATION
tDON'T PRINT IF ZERO

;ALINE TERMINATION CODE FOR INDEX
1GET THE FATAL TERMINATION COOE

;PRINT

THE FATAL

TERMINATION CODE

-(SP)

SP.RO
C4PNTX

254
:

06 , SP

#1CHIADOR
R4

304
#TEXASC , R4

R4, -(SP

sCLEAR ALL BUT EXTENDED ADDRESS
;DON'T PRINT IF ZERO

sPRINT

THE

EXTENDED

ADDRESS BITS

OTEXASC, -(SP)

006435
000002
000006
002176

1GET THE TSSR CONTENTS
sCLEAR ALL BUT TERMINATION
;GET THE TERMINATION COOE MEANING

¢TCOASC, -(SP)
$2.-(SP)

007236

176377

otCTERCLS R3S
TCOCOD(R3),.R3
#TCOASC ,R3

006476
000002

000006

R4 . R3

R3,-(SP

177717

042704
001411

SP.R )

CHPNTX
#6,5SP

000006

733
734

SEQ 0044

TSSR CONTENTS

010403
042703
016303

732

Pasge 40-1

SP RO
304:

EPRTSW,R3

R3
R3,-(SP)

1PRINT MEAASGE BUFFER ADDRESS
1PRINT PROPER MESSAGE

SP RO
CHPNTX

P4, 5P
PC

JRETURN TO CALLER

TSV3

PRITSSR

GLOBAL

740 006

741
756
757
758
759

AREAS

MACRO V05.03

Tuesday 28-Apr-87

10:28

Page 41

SEQ 0045

TSSR CONTENTS

PRTZ2:

006
006415
006435
006476
006537

045
045
045
045
04S

116
116
116
116
116

045
045
04S
04S
045

PRT1:
_ASCIZ
TSSRFOR:
TCOASC:
TFCASC:

'wNsA tttttREPLACE H719600tt0'
.ASCIZ
'#NsA TSSR
=
.
LASCIZ
'#NsA Extcndcd Addrcss Bits = %06’
.ASCIZ
'wNs#A Termination Cless Code = T’
.ASCIZ
'uNsA Fetal Termination Class Code = sT’

;gé 006635

045

116

045

AMBTSSR: EVEN

.ASCIZ

760 006606

045

116

04S

TEXASC:

TSSOEF:

763 006676

006716

006741

006767

765 006741

124

145

122
122
125
106

145
145
156
141

774 007236

007246

007302

007313

776 007302

122

145

163

24:

.ASCIZ

;;g 007357

122

14S

163

4%:

.gegaz

764 006716
766 006767
767 007011

768
769
770
771
;;g

007031
007113
007162
007206

775 007246

777 007313

116
124
106

111

102

157

141
165

165

ASCIZ

'#NwA TSSR Bits Set:

TCOCOD:

.WORD

1‘ 24.34,44,54,64,74,8¢

162

2%:

.ASCIZ

'Torn.not-on Condition’

143
143
162
164

S¢
64
74
84

162

160
156

163

1%:

3¢
44

TSFCOD:

14%:

3%:

"ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.EVEN

.ASCIZ

sT’

'#NsA TSSR Contents Are Ambiguous'

‘Normel fermination’’
'Tepe Status Alert’
'Function Reject’

'Recoversble Error - Tape Position One Record Down'
'Recoverable Error - Tepe Wes Not Moved’
'Unrecoverable Error’
'Feteal Controller Error’
14,24,34,44

‘Internai Diegnostic Failure’

'Reserved’

‘Bus Interface or Senity Check Error’

‘'Reserved’

TSV3

PRIPKT

GLOBAL AREAS
-

781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796 007370
797 007370
798 007374
799 007376

800
801
802
803
804
805
806

007402
007404
007406
007410
007412
007414
007416

THE

MACRO V0S5.03

Tuesday 28-Apr-87 10:28

ADDRESS/CONTENTS OF

Page 42

SEQ 0046

COMMAND PACKET

.SBTTL

PRIPKT

THE

ADDRESS/CONTENTS

COMMAND PACKET

‘0

1 THIS RNOUTINE PRINTS THE ADDRESS AND CONTENTS OF A COMMAND PACKET.
1 THIS ROUTINE IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE.
:

1 INPUT
RO
R3
R4

NUMBER OF

NOTE:

WORDS

IGNORED IF

PRIPKT:
:

10¢:

THE KTENABLE FLAG IS CLEAR,

KTéNAaLE

$1SAVE NO. COF WORDS IN PACKET
1ABOVE 28K UNDER TEST?

R3
R3,R1
R4 .RO
RO
R1

$sSET HIGH ORDER ADDRESS 10 O
1COPY HIGH ORDER ADDRESS
1GET _LOWER ADDRESS
sSHIFT BIT 15 INTO C BIT

1BR _IF YES

PPKTADD,R1,R4
R4, -(SP)

$AND INTO HIGH ORDER
;PRINT PACKET ADDRESS

1,-(SP)

007554
000003

#PKTAD
- (SP)
D,

C4PNTB

000010

910, 5P

R3, R0

15%¢:

204

R4 ,R1
PC.SETMAP
no R4

017376

204
:
25¢%:

(n4>. R2

OPKTFRH R1,R2
R1. ( )

007516
000003

PPKTFRM,

03, -(SP)

000010

116
116

ADDRESS

1SAVE THE REGISTERS

RO,RS

003134

IN PACKET

HIGH ORDER COMMAND PACKET
ADDRESS OF COMMAND PACKET

1GET HIGH ORDER ADDRESS
1BR_IF NOT ABOVE 28K.
1GET LOW ORDER AUDRESS
1SETUP PAR6 MAPPING FOR 18 BIT ADDRESS
$1GET _RETURNED PAR6 ADDRESS BIAS
1 SAVE WORD NUMBER
1GET PACKET CONTENTS
sPRINT

THE DATA

- (SP)

sNEXT WORD NUMB
sDONE ALL PACKET WORDS?
;LOOP TILL ALL OONE
1 RETURN
045
045

PKTFRM:
PKTADD:

.ASCIZ
.ASCIZ
.EVEN

'MNSA Packet Word #esDl1sA = #06'
‘wNsA Peacket Address = %01%0S’

TSV3

PRIBXOR

GLOBAL
-

AREARS

MACRO V0S.03

EXPD,

Tuesdey 28-Apr-87

10:28

Peage 43

SEQ 0047

RECV AND XOR BYTE

.SBTTL

PRIBXOR

EXPD,

RECV

AND XOR BYTE

IPRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE DATA BYTE

:THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES.

1 INPUTS;

RECEIVED DATA

EXPECTED DATA

1 OUTPUT;

839
840
841
842
843
844
845

007612
007612
007616
007620
007630
007634
007636

847 007642

:
RO
PRIBXOR:;
010203
012700
040001

010346
010146
010246
012746
012746

851 007674

045

104414
062706
010300
000207

EXPECTED/RECEIVED DATA

tSAVE THE REGISTERS

R2,R3
R1.R3

177400

LEXPECTED DATA
LFORM THE EXCLUSIVE OR

otc<377> RO

1BYTE MASK

RO R2

1SAVE LOU BYTE EXPD
AVE LOW BYTE XOR

RO.R

040003

007642
007644
007646
007650
007654
007660
007662
007664
848 007670
849 007672

XOR OF

1SAVE LOW BYTE RECV

BLORBFOR, R2.R1 AL PRIRT ToE FESORGE

RS, -(sP)

R2.-(SP)

007674
000004

04,-(SP

SP,RO

CSPNTB

000012

116

R3-RO
PC

045

;RO HAS XOR ON RETURN
{RETURN TO CALLER

.ASCIZ

'wNsA EXPD:

PRIXOR

#03sA RECV:

EXPD,

#03sA XOR:

RECV AND XOR

‘0

;PRINT

EXPECTED

DATA,

RECEIVED

DATA,

AND

XOR OF
THE

TWO

lYHIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES
L INPUTS;
RECEIVED DATA

EXPECTED DATA

JOUTPUT
,

868
869
870
871
872

007742
007742
007746
007750
007760

ééIXOR::
010203

SAVREG
MOV
XOR

PRINT8

XOR

EXPECTED/RECEIVED DATA

1SAVE THE REGISTERS

R2,R3
tEXPECTED DAT
R1,R3
sFORM THE EXCLUSIVE OR
OXORFOR,R2,R1,R3 ;PRINT THE MESSAGE

%03’

TSV3

PRIXOR

GLOBAL
-

AREAS

007760
007762
007764
007766
007772
007776
010000
010002

873 010006
874 010010
875
010012
877

MACRO V0S5.03

EXPD,

010346
010146
010246
012746
012746
010600
104414
062706
010300
000207

045

Tuesdey 28 Apr-87 10:28

Page 43-1

SEQ 0048

RECV AND XOR

010012
000004

000012

R3, RO
PC

116

045

XORFOR:

.ASCIZ
.EVEN

‘#NsA EXPD:

;RO HAS XOR ON RETURN
;RETURN TO CALLER
#068A RECV:

#O6%A XOR:

#06°'

TSV3

GLOBAL

PRIEQU

AREAS

8IT

MACRO V0S.03
NUMBERS

ASCII

Tuesdey 28-Apr-87 10:28

Pege 44

SEQ 0049

EQUIVALENT

879
880

.SBTTL

88l

PRIEQU

PRINT BIT NUMBERS AS ASCII EQUIVALENT

‘ Ld

882
883
884
885

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

886

s INPUTS:;

887

RO
R1

'
:

OCTAL

TABLE

VALUE TO CONVERT
OF

POINTERS

ASCII

EQUIVALENT

:
P

010060

010060
010064

PRIEQU:
000207

SAVREG

RTS

.SBTTL

PRIRAM

:SAVE THE REGISTERS

tRETURN TO

CALLER

RAM ADDRESS

1PRINT CONTROLLER RAM ADDRESS.
s THIS ROUTINE IS NORMALLY CFL FN ONLY FROM PRINT ROUTINES.
3

1 INPUTS
H
3

RAM ADDRESS

:
‘-

010066

PRIRAM:

010066
010072
010072
010074
010100
010104
010106
010110
010114

010446
012746
012746
010600
104414
062706
000207

010116

045

1SAVE R]1 RS UNTIL NEXT RETURN

sPRINT RAM ADDRESS IN ERROR
010116
000002
000006

116

s RETURN

045

RAMFOR:

‘#NsA CONTROLLER RAM ADDRESS

06’

TSV3

GLOBAL

PRIADD

AREAS

MACRO VOS.03

Tuesdey 28-Apr-87

10:28

Pege 45

<Ea 0050

PR NT MEMORY ERROR ADDRESS

3{97

.SBTTL

PRIADD

- PRINT MEMORY ERROR ADORESS

‘0

918

ely

iPRINT MEMORY ADDRESS

ggg

1 THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.

355

IMPLICIT INPUTS

924
925

:
:

926

927
928 010160

‘PRIADO:

929 010160
930 010164
93] 010170
932 010174
933 010176
934 010200

013700
013701
010102
006101
006100

010202
010204
010206
010212

010246
010046
012746
012746

010220
010222
3?} 010226

104414
062706
000207

000010

045

116

935 010202

010216

938 010230
939

010600

002236
002240

ERRHI
ERRLO

SAVREG
MOV
MOV
MOV
ROL
ROL

ERRHI , RO
ERRLO.R1
R1,R2
R1
RO

MOV
MOV
MOV
MOV

R2,-(SP)
RO, -(SP)
SPRIAD, -(SP)
#3,-(SP)

TRAP
ADD
RTS

CsPNTB
#10,5P
PC

.ASCIZ

‘sNsA MEMORY ERROR ADORESS = #0180S’

.SBTTL

PRITADD - PRINT MEMORY TEST ADDRESS

PRINTB

010230
000003

MOV

045

PRIAO:

3‘.5

"EVEN

HIGH ORDER ADDRESS
LOW ORDER ADDRESS

#PRIAO,RO,R2

1SAVE R1-RS UNTIL NEXT RETURN
:GET HIGH ADDRESSS
1GET LOW ADDRESS
1COPY LOW ADORESS
sSHIFT BIT 1S T0 C BIT
1SHIFT INTO HIGH ORDER

;PRINT MEMORY ADORESS IN ERROR

;RETURN

oas
945

943

9‘6

: IMPLICIT INPUTS

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

949

;

355‘1’

ERRLO

- HIGH ORDER ADORESS
- LOW ORDER ADORESS

952

953 010274

954 010274
955 010300
956 010304
957
958
959
960 010310
010310
010312
010316
010322
010324

ERRMI

013702
013701
010146
012746
012746
010600
104414

002236
002240

010356
000002

ITADD:

SAVREG
MOV
ERRHI . R2
MOV
ERRLO.R1
;MOV
R1,R2
iROL
Rl
g:m
RO
INTB
#PRITO,R1
MOV
R1,-(SP)
MOV
#PRITO, -(SP)
MOV
92.-(SP)
MOV
SP.RO
TRAP
CPNTB

$SAVE R1-RS UNTIL NEXT RETURN
3GET HIGH ADORESSS
1GET LOW ADDRESS
sCOPY LOW ADORESS
¢SHIFT BIT 1S T0 C BIT
sSHIFT INTO HIGH ORDER

:PRINT MEMORY ADDRESS LOW IN ERROR

TSV3

PRITADD

GLOBAL
-

AREAS

MACRO VOS.03

PRINT MEMORY TEST

010326

062706

010332
010334
010340
010344
010346
010350
% 010354

010246
012746
012746
010600
104414
062706
000207

964 010356
322 010421

045
045

961 010332

)
Tuesday 28-Apr-87

10:28

Pege 45-1

SEQ 0051

ADORESS

000006

96, 5P

MOV
MOV
MOV
MOV
TRAP
ADD
RTS

R2,-(SP)
#PRIT1, -(SP)
02,-(SP)
SP ‘RO
C4ONTB
#6, SP
PC

.ASCIZ
23&1‘2

'#NsA MEMORY TEST ADORESS LOW = %06’
'#NsA MEMORY TEST ADORESS HIGH = #06'

PRINTB

010421
000002

000006

116
116

ADD

045
045

PRITO:
PRIT):

#PRIT1,R2

;PRINT MEMORY ADDRESS HIGH IN ERROR

;RETURN

TSVS

GLOBAL AREAS

SPACE

MACRO VO05.03

Tuesdey 28-Apr-87 10:28

<EQ 0052

SPACE RECORDS (FORMARD AND REVERSE) COMMAND

Pege 46

.SBTTL

SPACE

- SPACE RECORDS (FORWARD AND REVERSE) COMMAND

970

373

;COMMAND (FORWARD OR REVERSE)

971
972

3
iPOUTINE TO ISSUE A SPACE RECORDS

373

LINPUT:

977

978
979

:
:

980

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

BIT1S = 1 IS REVERSE

981
o

:
:

RS
FIRST DEVICE UNIBUS ADDRESS
REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY

”6

CARRY

SET - SPACE RECORDS COMMAND OK
CLR - SPACE RECORDS FAILED

THE CONTENTS OF R4 IS MOVED TO RO

985

JOUTPUT:

987
388
990

:
:
:

)

993
%34

%
998

]

999
1000
1001

16 = 010466

012737
012737
005703
100403
010337
000407
1011 010520 042703
1012 010524 010337
1018 010530 032737
1014 010536 012704

101S 010542 010465
1016 010546 004737
1017 010°52 103420
1018 010534
01C_ -4 012727
010560 000000
010°62 013727
010566 000 00
010570 005.67
010576 001375

:
TAPE HAS BEEN MOVED
|SIDE EFFECTS:
'
:
$-

1003

10C: 010466
1005 010472
1006 010500
1007
010506
1008 010510
1009 010512
1010 010516

:
;IMPLICIT OUTPUT:

SPACE:
:

000764 010660
140010 010650

010652
100000
010652

000400 010650
010650

000000
016330

000250
002116
177772

Ss:
106:

1S4:

SAVREG
MOV
MOV
1ST
BMI
MOV
BR
BIC
MOV
81S
MOV

MOV
JSR
BCS
DELAY
MOV
LWORD
MOV
WORD
DEC
BNE

#500 . , SDELAY
$140010, 804

RS, 904
10
#8IT1S.R3
RS, 904
s8i7s, 804
¢.Re

Re, TE08(RS)
PC. WAITF
204
3%0
$250,(PC).
O
LDLY, (PC)s
O
-6(PC)
-

;SAVE THE GENERAL REGISTERS
1SET UP DELAY
1SET UP COMMAND, SPACE FORMWARD
;CHECX
FOR omeénou
18R, IF REVESSE INDICATED
1LOAD UP NUMER OF RECORDS TO SPACE
1GO DO COMMAND

JCLEAR DIRECTION BIY
1LOAD UP NUMBER OF RECORDS TQ SPACE
1SET REVERSE BIT IN COMM
<D PACKET
1SET UP R4 WITH PACKET ADURESS

1SEND OUT COMMAND
.uan FOR_SsA
£_SSA IS SET MO OX

DELAY Aot
15

sEctnos

TSV3

- GLOBAL AREAS

SPACE

1019
1020
1021
1022

MACRO V0S5.03

Tuesday 28-Apr-87 10:28

Page 46-1

SEQ 0053

- SPACE RECORDS (FORWARD AND REVERSE) COMMAND
010576
010602
010604
010610
010612
010614
0620

005367
001367
005337
001356
000411
016501

177756

DEC
BNE

010660
000002
000200

DEC
BNE
204 :

254 :
404 :

604 :
704
:

B8R

MOV
MOV
cHe
BEQ

B8R

SEC

cLC

MOV

RTS

PACKET

-22(PC)
.-20

1BUMP DELAY couuten DOWN

SDELAY
15¢

1BR,

604

TSSR(RS),R1
#SSR,R2
R2,R1
404

604

IF MORE DELA

1BRIF TROUBLE cnnav = CLEAR

;READ TSSR

1SET UP EXPECTED

LR IFEQUAL= OK
s TROUBLE EXTIT

;S§TTCARRY NO TROUBLE

704

:CARRY CLEAR = ERROR

R4 ,RO

+PASS PACKET
;RETURN

ADDRESS

FOR SPACE COMMAND
.=2< . +10>E£177770

sCOHHAND WORD

1043 010650

804:

. WORD

1045
1046
1047
1048

SDELAY:

.gono
.EVEN
.SBTTL

010652
010654
010656
010660

sNUHBER OEOSSCORDS TO BE SPACED OVER WORD

-WORD

;DELAY COUNTER

WRTCHR

WRITE CHARACTERISTICS COMMAND

TSV3 - GLOBAL AREAS
WRTCHR

MACRO V05.03

Tuesdey 28-Apr-87 10:28

Pege 47

SEQ 0054

WRITE CHARACTERISTICS COMMAND

10
105
1054

:;?WTI'E 7O ISSUE A WRITE CHARACTERISTICS

sCOMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED
]

1INPUT

J
3

ADDRESS OF

PACKET

FROM

TEST

RS
FIRST DEVICE UNIBUS ADDRESS
REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY

sOUTPUT:

:
:

CARRY

TSSR CONTENTS

SET - WRITE CHARACTERISTICS COMMAND OK
CLR -

WRITE CHARACTERISTICS FAILED

:IN’LICIT oUTPUT ;
HESSAGE BUFFER AND OTHER BUFFERS ALL SET UP
SOF TWARE SWITCHES SET AS FOLLOWS
EXTFEA = EXTENDED FEATLRES PRESENT
BENBSW = BUFFER ENABLE SWITCH ON OR OFF
3

1SIDE EFFECTS:

GYCM: :

010662
010672

0035037

002230
002224
000000
016416

104 :

204 :
000100
000100

254 :

404

000010
000200
002224

032763
001402

016337

011024

042737
022737
001406
012737

011032

052763

000100

002230
000012
017700
000001

000200

000012
454
;

S04
:

SAVREG
CLR
CLR
MOV

BENBSW
EXTFEA
R4, TSDB(RS)

BCS
BR

204
604

JSR

MOV

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

PC.CHKTSSR

TSSR(RS),R1

:SEND OUT COMMAND

sWAIT FOR SSR

A
sBR, IF SSR IS SET
sBR IF TROUBLE CARRY - C' EAR
sREAD TSSR

MOV
BIT
BEQ
8IS
cie

#5SR,R2
#OFL .R1
254
$OFL ,R2
R2,Ri

tARE THEY OX

604

s TROUBLE EXIT

BEQ

ADD
MOV

404

0. m
(R4,R

1SET UP EXPECTED
;WAS OFF LINE SET IN TSSR
1BR, IF NO OFL SET
sMAKE THEM LOOK ALIKE
:BR, IF EQUAL = 0K

BEQ
INC

454
EXTFEA

2. éxrr XST2(R3)

;POINT TO WRT CHARA DATA PACKET
sGET ADDRESS OF MESSAGE BUFFER
sEXTENDED FEATURES BIT SET?
1BR IF NO
sSET EXTENDED FEATURES SW SWITCH

BIT
BEQ
INC

#X2.BUFE, XST2(R3)
S04
BENBSW

sBUF FER ENABLE SWITCH SET
xBR IF SWITCH NOT SET

MOV

x572(R3) REV

tMICROCODE REV LEVEL

#1,REV

lg g; NEW MICROCODE

8IT

8IC

#17700,REV

BEQ
MOY

554
#1 . EXTFEA

81s

X2 .EXTF ,XST2(R3)

SEt SOFTWARE SWITCH FOR ENABLED

1CLEAR LMJAN‘!ED BITS

lALUAY EXTENDED FEATURE FOR NEW

MICROCODE
|EXTE'O€D FEATURE ALWAYS SET IN

1 MICROCOOE

TSVS

WRTCHR

GLOBAL

AREAS

Tueedey 28-Apr-87

10:28

Page 47-1

SEQ 0055

WRITE CHARACTERISTICS COMMAND

1109 011040
1110 011042

000261
000401

1112 011046
1113 011052

016500
000207

1111

MACRO V0S5.03

011044

000241

554 :
000002

604 :

704 :

SEC
BR

704

1SET_CARRY NO TROUBLE
sEXIT

MOV
RTS

TSSR(RS),RO
PC

tRETURN TSSR CONTENTS
;1RETURN

CLC

;CARRY CLEAR

ERROR

TSVS

REWIND

GLOBAL

AREAS

MACRO V05.03

Tuesdey 28-Apr-87 10:28

Pege 48

SEQ 0056

- POSITION TAPE (REWIND) COMMAND

.SBTTL
[

REWIND

- POSITION TAPE (REWIND) COMMAND

1 THIS ROUTINE WILL REWIND THE SELECTED TAPE.

CAUTION: TFE ROUTINE DOES NOT WAIT FOR BOT

TO ARRIVE. ALSQO THE CALLER MUST CHECK FOR
SSR TO SET IN THE TSSR

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

FIRST DEVICE UNIBUS ADORESS

THE CONTENTS OF R4 IS PASSED TO RO

1142
1143
11441
1145
1146
1147
1148
1149

011054
011054
011060
011064
011070
011074
011100
011102

3.:.-..5
&

OUTPUT

011150
000000
000550
016330

012727
000000
013727
000000

SRUPACK R4

R4, 1soeéns>

PC unitr
9360,

104
:

204

000372

250.
8250..(PC)o

002116

500LYL(PC)

177772

-6(PC)

177756

-22(PC)
-20

104

1154 011142
1159 011150
1160 011150
1161 011152

204
;

RWPACK;

. WORD
. WORD

1SAVE R1-RS UN)IL NEXT RETURN
sGET PACKET ADORESS
1SEND PACKET ADDRESS TO EXECUTE
1ENOUGH TIME FOR 2400° REEL TO REWIND

;UAIT FOR SSR 70 _SET

iLEAVE WHEN SSR IS SET
tWAIT FOR .25 SECONDS

s BUMP coumea DOWN

IKEEP GOING

sCLEAR CARRY TO SET ERROR

R4 ,RO
PC

.PASS THE PACKET

102010

;POSTION COMMAND (REWIND)
sNOT USED

1RETURN

ADDRESS

TSV3

- GLOBAL AREAS

CXRAM

MACRO V0S5.03

Tuesdey 28-Apr-87

10:28

Page 49

SEQ 0057

COMPARE RAM TO I1/0 PACKET

1163
1164
1165
1166

.SBTTL

CKRAM

COMPARE RAM TO I/0 PACKET

| 4

tROUTINE TO READ THE FIRST 8 BYTES FROM RAM
tM.MORY AND COMPARE THIS DATA T0O A COMMAND PACKET,

:IN’UT :
:

ADORESS OF THE COMMAND PACKET
FIRST DEVICE UNIBUS ADDRESS

tOUTPUT

CARRY

:
s

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

s IMPLICIT OUTPUT:
THE TABLE RN‘DATA IS FILLED WITH THE

DATA HELD IN
R

RAMSIZ IS SET

TO 8.

FOR PRAMPKT ROUTINE

SIOE EFFECTS:
THE SUBSYSTEM IS LEFT

CKRAM::
011160

011164
011170
011172
011176

011210
011214
011220
011226
011234
011240
011242
011244
011246
011250
011252

011254
011262

012701

012702
005003
004737
112765
004737

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

012737
000207

002242
000201

016416

000000
016416
000000

104

016416
000000

204

000210

SAVREG

MOV
MOV
CLR
JSR
MOVB
JSR
MOV
JSR
MOVB
cHPB
BEQ
INC

SRAMDATA
,R1
SRMPKTBEG,
R2
R3
PC. cmtssn
#0.TSOB(RS)
PC .CHKTSSR
az TSOB(RS)
CHC(TSSR
TséA(RS) (R1)
(R1)+.(R&).
204
R3

R2, SRMPKTEND

INC

BLE

002302

304
504 :

104

TST

BR
SEC
MOV

504
#8. ,RAMGIZ

BEQ
cLC

000010

RTS

304

IN MAINTENANCE MODE

$SAVE THE GENERAL REGISTERS

tADORESS TO SAVE THE RAM DATA

1BYTE ADORESS OF FIRST RAM DATA
s:CLEAR THE ERROR FLAG

t1WAIT FOR _SSR

1SET_MAINTENANCE MODE
1WAIT FOR SSR TO SET

1SELECT NEXT RAM ADDRESS
tWAIT FOR SSR TQ SET

1READ THE RAM DATA

1COMPARE TO EXPECTED
AG

s ADDRESS OF NEXT RAM LOCATION
sREACHED END YET ?
;BRANCH TILL ALL READ
sWAS AN ERRm FOUND
?
1BRANCH IF NO

;:CLEAR CARRY TO SHOW ERROR
tAND EXIT
1SHOW GOOD C OMPARE
1SETUP RAMSIZ FOR PRAMPKT ROUTINE

tRETURN

TSV3

CXRAM2

GLOBAL

AREAS

MACRO V05.03

Tuesday 28-Apr-87

10:28

Pege SO

SEQ 0058

COMPARE RAM TO I/0 CHARACTERISTICS DATA

1216

.SBTTL

CKRAM?2

COMPARE RAM TO I/0 CHARACTERISTICS DATA

‘.

’

tROUTINE TO READ THE FIRST 8 OR 10 BYTES FROM RAM
1MEMORY AND COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK.

:IWUY :
Ra
:

ADDRESS OF THE CHARACTERISTICS DATA
FIRST DEVICE UNIBUS ADDRESS

sOUTPUT :

;

CARRY

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

:IPPLICIT OUTPUT :
THE TABLE RAH):;A IS FILLED WITH THE

DATA HELD IN
R
RAMSIZ IS SET

TO 8.

10.

FOR PRAMPKT ROUTINE

SIDE EFFECTS:
3
3

dxrare
012701
012702
005003

1249
1250 O

002242
000167

016416
000000
016416
000000
016416

090000

JSR

106:

MOVB
JSR
MOV

JSR

000010
002224

002302

000012
000200

002302

204 :

MOVB
cHPB
BEQ
INC
INC
MOV
ST

254
274:

011416

SAVREG
MOV~

MOV

000000

000176

THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE

cHP
BLE
BR
e
BLE

ST
BEQ
cLc
BR

SRAMDATA,R1

SRNCHBEG.R2

pc CHKTSSR

#0. TSDBCRS)
PC.CHKTSSR
Ra.TSDBCRS)

PC,CHKTSSR

TSBACRS), (R1)
(R1)+,(R&).

204

R3
R2
08 . ,RAMSIZ
EXTFEA

2, ORMC
104
274
R2, #RMCHEND
-2
104
R3
304
S0+

1SAVE THE GENERAL REGISTERS
;ADDRESS TO SAVE THE RAM DATA
:BYTE ADDRESS OF FIRST RAM DATA
;CLEAR THE ERROR FLAG
sWAIT FOR SSR

1 SET mmveumcs MODE

;WAIT FOR SSR 10 SET
1 SELECT NEXT RAM ADORESS
(WAIT FOR SSR TO SET

JREAD THE RAM DATA

JCOMPARE TO EXPECTED
;BRANCH IF OK
1SET ERROR FLAG

sADDRESS OF NEXT RAM LOCATION

{ASSUME EXTFEA NOT

SET

.Is THE SOFTWARE EXTENDED FEATURES SET

f RAMSIZ FOR EXTEND FEATURES
IF NOT SET

sAT END OF EXTENDED BUFFER
;BR, IF NOT AT END YET
1AT END BRANCH
;REACHED END YET ?
1BRANCH TILL ALL READ

1WAS AN ERROR FOUND

1BRANCH IF NOT
;CLEAR CARRY TO SHOW ERROR
1AND EXIT
1SHOW GOOD COMPARE
1 RETURN

TSV3

GLOBAL AREAS

CKMSG

MACRO V05.03

COMPARE WRITE CHAR.

Tuesdey 28-RApr-87 10:28

Page S1

SEQ 0059

MESSAGE BUFFERS

ig;z

.SBTTL

CKMSG

- COMPARE WRITE CHAR.

MESSAGE BUFFERS

x *

1275
1276
1277
1278
1279

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

1281
1282
1283

:
:
:

1280

s INPUT ;

1284

RO
R1

iggz

;OUTPUT
$

1287

iggg

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

EXPD MESSAGE BUFFER ADDRESS

CARRY

SET

- MESSAGE BUFFERS MATCH

CLR -MESSAGE BUFFERS DON’'T MATCH

s IMPLICIT OUTPUT:

iggg

1292

;

1294

1293

iggz

1298 011420

1299 011420
1300 011424
1301 011430

1302 011434

005737

1303
1304
1305
1306
1307
1308

011440
011442
011446
011450
011452
011454

001403
004737
010001
005004

1310
1311
1312
1313
1314
1315
1316
1317

011462
011466
011470
011472
011474
011500
011504
011506

011164
022221
001401
005203
062704
020427
003764
022737

1319 011516

1309 011456

010205

011264

RCVHIADD

SET TO HIGH ORDER ADDRESS OF RECV

RCVLOADD

002304
002306

003134

SAVREG
MOV
MOV

TST

017376
10 :

002322

154 :

000002
000014

254:

BEQ
JSR
MOV
CLR
CLR
MOV

MOV

000001

002226

MOV
cMP
BEQ
INC
ADD
cHP
BLE
cHP

032765

000200

000012

BIT

1321 011526

020427

000016

1323 011534

005703

504 :

1327 011544

000261

554

1318 011514

001004

1320 011524 001403
1322 011532

1324 011536
1325 011540
1326 011542
1328 011546

003751

001402
000241
1
000207

002466

BUFFER IS SET TO RECV DATA

SET TO LOW ORDER ADORESS OF RECV

&rmsG:
010037
010137

BUFFER IS SET TO EXPD DATA

RECMSG

1297

EXPMSG

BNE
304

604 :

BEQ

RO,RCVHIADD
a1 RCVLOAD

1SAVE R1-RS UNTIL NEXT RETURN
1SAVE RECV HIGH ADDRESS
1 SAVE RECV LOW ADDRESS

PC.SETHAP

1BR IF NO
;RETURN ADDRESS BIASED TO PAR6 IN RO

NABLE

RO,R1
R4
R3
R2,RS

(R1).RECMSG(R4)
(R2)+,(R1)
254
R3
02 ,R4
R4, 014
154
61 ,REV

X2. EXTF, XST2(RS); IS exvenoeo FEATURES SET IN EXPD?

304

50¢

R4, 016

TST

154

BEQ
cLC
BR

604

RTS

SEC

1GET RETURNED ADDRESS BIASED TO PAR6
;WORD IN BUFFER
1CLEAR ERROR SEEN FLAG
:GET EXPD BUFFER ADORESS

(R2).EXPMSG(R4) ;SAVE EXPD FOR ERROR REPORT

cHe

BLE

1 TESTING ABOVE 28K?

5S4

;SAVE RECV FOR ERROR REPORT
;EXPD EQUAL RECV?
iBR IF YES
;SET ERROR SEEN FLAG
;POINT TO NEXT WORD ADORESS
1DONE FIRST 7 WORDS?
iBR IF NO
;IS IT A NEW MICROCOOE

NO BR

(B8RIF NO

;oone EXTENDED FEATURES WORD?

:BR IF NO

i ANY ERRORS SEEN?
iBR IF NO
zSET FAILURE

1SET SUCCESS
1RETURN

TSVS

GLOBAL

CKMSGR2

AREAS

MACRO V05.03

Tuesday 28-Apr-87

10:28

Page 52

SEQ@ 0060

COMPARE EXPD RECV MESSAGE BUFFERS

.SBTTL

1330
1331
1332
1333
1334
1335
1336
1337
1338
1339
1340
1341
1342
1343

CKMSG2

- COMPARE EXPD RECV MESSAGE BUFFERS

+ROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE
1BUFFER, THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR
$ERROR PRINT ROUTINES.
:

sINPUT:

:
3
3
:

RO
R1
R2
R3

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

NUMBER OF BYTES TO COMPARE

;OUTPUT

1
3

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

CARRY

s IMPLICIT QUTPUT:

:
H
$
H

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

EXPMSG
RECMSG
RCVHIADD
RCVLOADD

CKMSG2: :
020327
003412
012703

012746
012746
010600
104417
062706
010037
010137

000144

SAVREG
cHP

1SAVE R1-RS UNTIL NEXT RETURN
R3, #RECMSG- EXPHSG:W IS COUNT ABOVE MAX ALLOWED?

000144

MOV

ORECMSG-EXPMSG, Ri aa0

aa30 BR IF NO

MOV

ODEBWHSG.-(SP)

#DEBUGMSG

;aao

MOV

SP RO

ADD
MOV
MOV

o4 ,SP
RO.RCVHIADO
R1,RCVLOAD

BLE

PRINTF

011702
000001
000004
002304
002306
003134

MOV

TRAP

S¢:

TS7

B8EQ

017376

104:
002322
002466

000001

154%:

254:

S04 :

604 :

csfiNTF

KTENABLE

;1SAVE RECV HIGH ADDRESS

1 SAVE RECV LOW ADDRESS
;TESTING ABOVE 28K?

1BR IF NO

JSR

PC SETHAP

CLR
CLR

R4
RS

8EQ

254

1BR IF YES

ADD

o1, ,R4

;POINT TO NEXT BYTE

MOV

MOVB
MOV
cMPB
INC

cHP

RO,R1

R4 ,R3

504

187

BEQ

15¢
5S¢

604

RTS

SEC

tRETURN ADDRESS BIASED TO PAR6 IN RO

$GET RETURNED ADDRESS BIASED TO PAR6
;WORD IN BUFFER
sCLEAR ERROR SEEN FLAG

(R2),EXPMSG(R4) ;SAVE EXPD FOR ERROR REPORT
(R1),RECMSG(R4) ;SAVE RECV FOR ERROR REPORT
(R2)+,(R1)sEXPD EQUAL RECV?

B8GE

CcLC
SS5%:

1,-(SP)

:SET ERROR SEEN FLAG
sOONE ALL BYTES?

;BR IF YES

;DO NEXT BYTE

t ANY ERRORS SEEN?
$BR IF NO

1SET FAILURE
3

1SET SUCCESS

t RETURN

TSV3

CKMSG2

GLOBAL

AREAS

MACRO

V05.03

Tuesday

28-Apr-87

10:28

Page

SEQ 0061

COMPARE EXPD RECV MESSAGE BUFFERS

1382 011702
1383 011772
1384 012003
1385 012036
1386 012071

122
116

117

045
124
056
123

DEBUGMSG:

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

FERCM:
ERCM:

_ASCII
.ASCIZ

/#NsA
sse/
/
TSSR ERROR CODE REC'D

TINERR:

ééE'I‘Z

/TEST:

SIMSG:

.ASCIZ

/....

= /
AFTER DOING SOFT INIT/

.../

‘.

sPRINT

ROUTINE

:I'PUT:
:
R1
H

TO FATAL

SOFT

INIT

ERRORS

CONTENTS OF TSSP AT ERROR

;SIDE EFFECTS:

:
012104
012104
012104
012110
012114
012114
012114

004737
004737

006024
017262

SFIMSG:
:

BGNMSG

SFIMSG

JSR

PC.PRITSSR

TRAP

C4MSG

gSR <G
L10003:

104423

EXECUTES DROP UNIT TO CEASE TESTING

PC,CKDROP

;PRINT CONTENTS OF TSSR REGISTER
;DROP UNIT,

IF ALLOWED

TPRINT ROUTINE TO PRINT THE CONTENTS OF

'TSSR AND A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET.
s

s INPUTS:
3

]

TSSR _CONTENTS

BGNMSG

PKTSSR

JSR

PC,.PRITSSR

ADDRESS OF COMMAND PACKET

i
3

012116
012116
012116

012122
012126
012132

012132
012132

004737
012700
004737

104423

006024
000004
007370

PKTSSR:
:

MOV
JSR
L10004:

ENDMSG
TRAP

o4 RO
PC,PRIPKT
C$MSG

sPRINT THE CONTENTS OF TSSR REGISTER

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

CKMSG2

GLOBAL

AREAS

MACRO V05.03

Tuesday 28-Apr-87

10:28

Pege 54

SEQ 0062

COMPARE EXPD RECV MESSAGE BUFFERS

IPRINT ROUTINE TO PRINT THE CONTENTS OF
iTSSR AND A GET STATUS COMMAND PACKET.

I<5

TSVS

TSSR CONTENTS

BGNMSG

PKTGETS

JSR
MOV
JSR

PC,PRITSSR
02 ,R0O
PC,.PRIPKT

TRAP

C$MSG

006024
000002
007370

ADDRESS

PKTGETS: :

ENDMSG

L1000S:

COMMAND

PACKET
.

;PRINT THE CONTENTS OF TSSR REGISTER
t1NO. OF WORDS IN GET STATUS PACKET
sPRINT THE CONTENTS OF COMMAND PACKET

‘Q

;PRINT

TSSR ERRORS FOR

INITIALIZATION TESTS

1 INPUTS:

H
:

TSSR CONTENTS

ADDRESS

BGNMSG

SFFMSG

JSR

PC.PRITSSR

COMMAND PACKET

006024

SFFMSG: :
L10006:

ENDMSG
TRAP

.SBTTL

C4MSG

PKTMES

sPRINT CONTENTS OF TSSR REGISTER

TSSR AND MESSAGE BUFFER

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

s INPUTS
s

H
:
:

R2
RY
NOTE:

CONTENTS

TSSR

LOW ORDER MESSAGE BUFFER
HIGH ORDER MESSAGE BUFFER ADORESS
R3 IS IGNORED IF KTENABLE FLAG IS CLEAR

006024

PKTMES: :

014312

BGNMSG

PKXTMES

JSR
MOV
MOV

PC,PRITSSR
R2,.R0O
R3,R1

JSR

L10007:

ENDMSG
TRAP

PC.PRMESS
C4MSG

;PRINT CONTENTS OF TSSR
;:LOW ORDER ADDRESS
sHIGH ORDER ADORESS

;PRINT THE MESSAGE BUFFER

TSV3 - GLOBAL AREAS
ADDSSR

MACRO V05.03

Tuesdey 28-Apr-87

10:28

Pege SS

SEQ 0063

- PRINT TEST ADDRESS AND TSSR
.SBTTL

ADDSSR

TEST ADDRESS AND TSSR

;PRINT

ROUTINE TO PRINT

THE CONTENTS OF

1TSSR AND A MEMORY TEST ADDRESS
:

1 INPUTS:
H

FIRST DEVICE UNIBUS ADDRESS

ERRLO

LOW ORDER MEMORY TEST ADDRESS

3
3

1479 012176
012176
1480 012176

012212
012212

004737
016501
004737

010274
000002
006024

ERRHI

ADDSSR: :

L10010:

104423

HIGH ORDER MEMORY TEST ADDRESS

BGNMSG

ADDSSR

JSR
MOV
\EJ.SR

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

TRAP

C4MSG

.SBTTL

MSGEXP - PRINT WRITE CHAR.

;PRINT MEMORY TEST ADDRESS
sGET CURRENT TSSR
sPRINT THE CONTENTS OF TSSR REGISTER

EXPD-RECV MESSAGE BUFFERS

:PRINT ROUTINE TO PRINT 'RITE CHARACTERISTIC MESSAGE BUFFER

]

s IMPLICIT INPUTS:

]
:
:
:
012214

EXPECTED
RECEIVED
RECEIVED
RECEIVED

MESSAGE
MESSAGE
MESSAGE
MESSAGE

BUFFER
BUFFER
BUFFER HIGH ORDER ADDRESS
BUFFER LOW ORDER ADDRESS

1497 012214

1498 012214
1499 012220

EXPMSG
RECMSG
RCVHIADDRCVLOADD-

012700
005737

000007
002224

MSGEXP: :

MOV
TST

#7,R0

sASSUME NO EXT FEATURES

ExtFEA

1EXT FEATURES SET?

pc.banscexp

;PRINT EXPD/RECV MESSAGE BUFFERS

C4MSG

18R IF NO
1EXT FEATURE BUFFER IS 8 WORDS

TSV3

FIFEXP

GLOBAL

AREAS

MACRO VOS5.03

Tuesdey 28-Apr-87 10:28

Pege S6

SEQ 0064

PRINT FIFO EXP/RECV DATA

1505

.SBTTL

FIFEXP

PRINT FIFO EXP/RECV DATA

:PRINT ROUTINE TO PRINT FIFQO EXP/?ECV DATA
:

- BYTE COUNT

+IMPLICIT INPUTS:
3

3
i
'

EXPMSG
RECMSG
-

FIFEXP

FIFEXP: :

010146

1519

1320
1522

1523
1525

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

#FIF 1MSG,R1

R1l,-(SP)

012312
000002

oF1FiMsSG, -(SP)

000006

012361
000001
000004

L10012:
116
116

oF IF

;PRINT HEADER MSG

R1.RO

sGET BYTE COUNT

PC,PRBYTEXP

015202

045
045

FIFIMSG:
FIF2MSG:

tPRINT BYTES TRANSFERRED

C4MSG
.ASCIZ
.ASCIZ

sPRINT FIFO BYTES IN ERROR

'#NsA NUMBER OF BYTES TRANSFERRED = D2’
'w#NsA FIFO DATA BYTES IN ERROR:'’

-]
TSVS - GLOBAL AREAS
MSGSTAT

MACRO V0S5.03

Tuesdsy 28-Rpr-87 10:28

Page S7

<EQ 0065

- PRINT STATUS MEADER AND MESSAGE BUFFERS

igzzz

.SBTTL

MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS

1529
iggg

:
;PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV

iggz

+IMPLICIT INPUTS:

153>

1535

EXPMSG

1537

;

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS

1536

iggg

;

1540 012420

012420
1541 012420
1542 012424
1543 012426
1544 012430
012430
012432
012436
012440
012442
1545 012446

004737

204:

014632

110013:;

104423
012500

045
045
045
045
045
045

012542

116
116
116
116
116
116

- EXPECTED MESSAGE BUFFER

- RECEIVED MESSAGE BUFFER

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS

BGNMSG MSGSTAT

MSGSTAT:;
MOV
#STA "COD.R1
104
MOV
(R1)+,RO
BEQ
204
PRINTX RO
MOV
RO, -(SP)
MOV
#1.-(SP)
MOV
SP.RO
TRAP
CPNTX
ADO
#4,SP
.
BR
104

012701 012462
012100
001410
010046
012746 000001
010600
104415
062706 000004
000766
1546 012450 012700 000012

1547 012454

RECMSG

012633

045
045
045
045
045
045

STATCOD:

MOV

$10.,RO

TRAP

CHMSG

g%‘sc PC . PRMSGEXP

14:.ASCIZ
24:.ASCIZ
34..ASCIZ
44:.ASCIZ
S$:.ASCIZ
66:.ASCIZ

.MORD

'
sASCII ADDRESS TABLE
1BR IF YES

sDONE ALL MSG LINES?

;PRINT STATUS BIT NAMES

100 ANOTHER MSG LINE

iNUMBER OF WORDS IN A READ STATUS BUFFER

IPRINT EXPD/RECY MESSAGE BUFFERS

14,24, so 44,54,64,0

‘wNsA Tepe Bus Signals in Word #8:°
'sNwA
PAREMR<1S> IEOT <12> IFMC <9> IRDY<6>
'wrewA
IRESV2<14> IIDENT<11> IHER <8> IONL<S>
'sNsA
IRESV1<13> ICER <10> ISPEED<7> ILDP<&>
‘'whwA Tepe Bus Signels in Word #9:'
'whsA
OATMYS<7> ILW<6> OUTROY<S> INROY<4>'

.EVEN

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

TSV3

GLOBAL

MSGL OOP

AREAS

MACRO V05.03

LOOPBACK HEADER

Tuesdey 28-Apr-87

10:28

Page 58

SEQ 0066

AND MESSAGE BUFFERS

.SBTTL

1560
1561
1562
1563
1564
1565
1566
1567
1568
1569
1570
1571
1572

MSGLOOP - PRINT {OQOPBACK HEADER AND MESSAGE BUFFERS

:PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV

:IHPLICIT INPUTS:
}
'
'
3
]

1573
1574
1573
1576

012701
012100
001410
010046

EXPMSG
RECMSG
RCVHIADDRCVLOADD-

104:

000001

204 :
L10014:

013174

013176

013271

013370
5

BUFFER
BUFFER
BUFFER HIGH ORDER ADDRESS
BUFFER LOW ORDER ADDRESS

MSGLOOP

MOV

#LO00PCOD,R1

$ASCII ADDRESS TABLE

PRINTX
MOV

RO
RO, -(SP)

sPRINT STATUS BIT NAMES

MOV
BEQ

TRAP
ADD

000012
014632

MESSAGE
MESSAGE
MESSAGE
MESSAGE

BGNMSG

MSGLOOP::

013176

EXPECTED
RECEIVED
RECEIVED
RECEIVED

(R1)+,RO
204

;DONE ALL MSG LINES?
;BR IF YES

SP RO

C4PNTX
o4 SP

104

;D0 ANOTHER MSG LINE

JSR

PC.PéHSGEXP

;PRINT EXPD/RECV MESSAGE BUFFERS

TRAP

CHMSG

MOV

#10.,R0

ENDMSG

LOOPCOOD :

. WORD

tNUMBER OF WORDS IN A READ STATUS BUFFER

14,24,34.44, 50 64,74.0

14:.ASCIZ

’'sNsA Tepe Bus Looob.ck ngn.lo

34: .ASCIZ
4%: ASCIZ
S$:.ASCIZ
64:.ASCIZ
7¢: .ASCIZ

'eNsA
'wNsA
‘'sNsA
‘'uNsA
'wNsA

28: .ASCIZ

'wNsA

PARERR<1S>

IHISP=>JEQT<12>
JWFM =>IFMK<09>
ITADO=>IRDY<06>
IREW =>IDBY<03>
IGO0
=>IFPT<00>’

in Word #8:'

IRESV2<14>

JWRT=>IIDENT<11>
JEDIT=>IHER <08>
ITAD1=>IONL <05>
IRWU =>IRWD <02>

IRESV1«13>’

IREV
=>ICER
<10>'
IFAD
=>ISPEED<07>’
JERASE=>ILDP
<O04>'
IFEN =>IFBY
<O01>'

Cé

TSV

GLOBAL

MSGSUB

AREAS

MACRO VOS.03

Tuesdey 28-Apr-87

10:28

Pege

SEQ 0067

PRINT WRITE SUBSYSTEM MESSAGE BUFFER

.SBTTL

1592
1593
1594
1595
1596
1597
1296
1599
1600

]

1PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV
}
:

1 IMPLICIT INPUTS:
i
i

1601
1602

}
3

1603
1604
1605 014012

014012
1606 014012
1607 014016
1608 014022
014022
014022

MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER

EXPMSG

- EXPECTED MESSAGE BUFFER

BGNMSG

MSGSUB

MOV
JSR

#10. ,RO
PC, PRMSGEXP

TRAP

C4MSG

.SBTTL

MEMADD - PRINT MEMORY ADDRESS DATA ERROR

RECHMSG
RCVHIADDRCVLOADD-

RECEIVED MESSAGE B'FFER
RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS
RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS

012700
004737

104423

000012
014632

MSGSUB::

L1001S:

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

’0

:PRINY ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR
]

1 IMPLICIT INPUTS:
ERRHI
ERRLO
ExP
RECV

BGNMSG

MEMADD

" JSR
MOV
JSR
ENDMSG
L10016: ;

MEMORY ERROR HIGH ORDER ADORESS
MEMORY ERROR LOW ORDER ADDRESS
EXPECTED DATA
RECEIVED DATA

PC, PRIADO
€XPD.R1
RECVR2
PC.PRIXOR

,PRINT MEMORY ADORESS IN ERROR
1GET EXPD DATA
1GET RECEIVED DATA
1PRINT EXPO/RECY

TSV

PRAMPKT

GLOBAL

MACRO VO0S5.03

AREAS

RAM

AND PACKET

Tuesday 28-Apr-87 10:28

Page 60

SEQ 0068

DATA

1629
1630
1631

.SBTTL

PRAMPKT

PRINT RAM AND PACKET DATA

tPRINT ROUTINE TO OISPLAY RAM/PACKET DATA
tWHEN THE RAM DATA DOES NOT MATCH.
'

1 INPUTS:
l

POINTER

cIHPLICIT INPUTS
:
]

RAMDAT
RAHSIZ

TO COMMAND PACKET

DATA AS READ FROM THE RAM
NUMBER OF BYTES IN PACKET

IF RAMSIZ=0 THEN DEFAWLT TO 8.

:IHPLICIT OUTPUTS:
RAMSIZ

&armr:
012701
005002
122124
001005

002242

S¢:

000436
116105
116403

177777
1777717

042703
116137

177400
177777

116437

010346
013746
013746
010246
012746
012746
010600
104414
062706
005202
005737

177777

104

MOVB
MOVB
XOR

-1(R1).RS
1( ) R3
RS,R

MOVB
MOVB

-1(R1),RECV
-1(R8) EXPD

1‘ncoo R3

ogw(uggsnz RECV,EXPD,R3

014226
000005

MOV
MOV
MOV
MOV

R2,-¢
#RAMASC, -(SP)
#5,-(SP)
SP RO

000014

ADD
INC

#14,5P
R2

002232
002234

TRAP

104

002302

154 :

204 :

002302

116

BEQ
cHP
BLE

000010

014226

m‘xlma

002302

014224

SAVREG
MOV
m\mnn R1
CLR
cMee
(m). (R&).
g
74
ORCERROR
74 ,NOTSSR

8IC

002234
002232

SET 70 0

045

BLY

1BR IF NO MATCH
;1 830

;GET RECV RAM DATA
JGET EXPD PACKET DATA
1XOR EXPD/RECV
;LOW BYTE ONLY
1GET RECEIVED RAM DATA
1GET EXPECTED RAM DATA

C4PNTB

;UPDATE BYTE COUNT

RAMSIZ

;DEFALLT TO 8.7

154
S4

1BR IF YES
1BR IF NO

R2.RAMSIZ

;DONE ALL BYTES?

254

S¢

tBR IF NO

R2,#8.

254

CLR

RAMSIZ

RAMASC:

.23&£Z

‘#NsA

RTS

;SAVE R1-RS umn NEXT RETURN
;OATA FROM THE
R
;INIT BYTE men
:COMPARE EXPECTED. RECEIVED

;DONE DEFAULT NUMBER OF BYTES?

1SET DEFAULT RAMSIZ

;RETURN

BYTE:

#D2#A RAM:

#03#A Packet:

#03%A XOR:%03’

TSV3

PRMESS

GLOBAL
-

AREAS

MACRO V05.03

Tussdey 28-Apr-87 10:28

Page 61

SEQ 0069

CONTENTS OF MESSAGE BUFFER

1674

.SBTTL

1675
1676

PRMESS

CONTENTS OF

MESSAGE BUFFER

[ R4

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

1677
1678

L INPUT;
3

RO
R1

NOTE:

LOW ORDER ADDRESS OF MESSAGE BUFFER
HIGH ORDER

ADDRESS OF

MESSAGE BUFFER

R1 IS IGNORED IF KTENABLE FLAG IS CLEAR

xTHIS ROUTINE IS NORMALLY CALLED FROM
A PRINT ROUTINE

PRMESS: SAVREG

1685 014312

MOV

003134

RO,RS

KTENABLE
104

R1
R1,R3
)
R1
#PROASC,R1,RS

10¢:

RS, -(SP)

1SAVE THE REGISTERS
1SAVE LOW ORDER ADDRESS
1 ADDRESS ABOVE 28K?
1BR_IF YES
1SET _HIGH ORDER ADDRESS TO O

1SAVE HIGH ORDER ADORESS

1SHIFT BIT1S TO0 C BIT
tSHIFT TO HIGH ORDER FOR PRINTOUT
tPRINT MESSAGE BUFFER ADDRESS

014500
000003

1694 014362

000010

ASC

014545
000001

#PRLIASC,-(SP’

sPRINT

HEADER FOR CONTENTS

01 -(SPS

cofiN1x

o4, SP
R4
RS,R1
R3,RO

sNUMBER OF THE NEXT WORD
1COPY LOW ORDER ADDRESS

1COPY HIGH ORDER ADORESS

204

017376

18R _IF NOT ABOVE 28K
sSETUP PAR ADDRESS IN RO

g
1GET PAR FORMAT ADDRESS ABOVE 28K
opéAsc R4, (RS)« ;PRINT THE CONTENTS OF MEMORY BUFFER

204
:

SP)

014603
000003

ItNUMBER OF THE NEXT
1DONE ALL YET
002226

045

#X2.ExTF, xsvzcnsSARxTenoeo FEATUTES ON ?

000012

116

sBRAmH IF ALL DONE
1PRINT FIRST 7 WORDS
IIS IT A NEW MICROCODE

S04 :
PROASC:

.ASCIZ

INT EXTENDED STATUS WORD

RETURN

'#NSA Messege Bu}hr Address = #01%05'

TSV3

PRMESS

GLOBAL
-

AREAS

1712 014545
1713 014603

MACRO V0S5.03

Tuesdey 28-Rpr-87 10:28

Page 61-1

CONTENTS OF MESSAGE BUFFER

045
045

116
116

045
045

PRI1ASC:
PRASC:

.ASCIZ

‘MNsA Mess
Buffer Contents:’
' NSA
WordsD1sA: w0’

ord

SEQ 0070

TSV3

PRMESS

GLOBAL
-

AREAS

MACRO V05.03

CONTENTS

MESSAGE

Tuesdey 28-Apr-87

10:28

Pege 62

SEQ 0071

BUFFER

1715
1716
1717
1718

.EVEN
.SBTTL
'

PRMSGEXP -

PRINT EXPD/RECV MESSAGE BUFFERS

;ROUTIPCR'(T’O PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS
'

NUMBER OF WORDS IN BUFFER

sIMPLICIT INPUTS:
- EXPECTED ME SSAGE BUFFER
EXPMSG
3
- RECEIVED ME SSAGE BUFFER
:
RECMSG
3
H

RCVHIADDRCVLOADD-

RECEIVED ME SSAGE BUFFER HIGH ORDER ADDRESS
RECEIVED ME SSAGE BUFFER LOW ORDER ADDRESS

014632
014632

014636
014640
014644

010005
013700
010004

PRMSGEXP: :
SAVREG
002306

014646
014652
014654

013701
006100
006101

014656
014660
014662
014666
014672
014674
14676
1735 014702
014702
014706
014712
014714
014716
014722
014724
014730
014734
014736

010446
010146
012746
012746
010600
104415
062706
012746
012746
010600

015057
000001

062706
005004
012701
012702
011100
011203

000004

014750
014752
014754
014756
014760
014764
014770
014772
014774
015000
015002
015004
015006

010346
012246
012146
010446
012746
012746
010600
104415
062706
005204
020405
002001
000752

014656

014740
014750

015010
015012
015057
015115

104415

000207
045
04S
045

MOV
MOV
MOV

002304

MOV
ROL
R

PRINTX
MOV
MOV
MOV
MOV
\'
TRAP

015012
000003

000010

RO,RS5
RCVLOADD,RO
RO,R4
RCVHIADD,R1
RO
R1
PPRMSGO,R1,R4

R4,-(SP)

:SAVE_NUMBER OF WORDS
$GET RECV LOW ADORESS
1COPY LOW ADDRESS
sGET RECV _HIGH ADDRESS
sSHIFT BIT15 T0 C BIY

tSHIFT TO0 HIGH ORDER FOR PRINTOUT

1PRINT

MESSAGE BUFFER ADDRESS

:PRINT

HEADER

R1,-(SP)

PPRMSGO, - (SP)
#3,-(SP)

PRINTX
MOV
MOV
MOV

FOR

CONTENTS

TRAP

002322
002466

204 :

ADD
CLR
MOV
MOV
MOV
MOV

tNUMBER OF THE CURRENT WORD
1GET EXPD BUFFER ADDRESS
sGET RECV BUFFER ADDRESS
1GET EXPD

;GET RECV

X
PRINTX

1 XOR EXPD/RECV

1)+,(R2)+
,R3

MoV
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
INC

015115
000005

000014

tNUMBER OF THE NEXT
tDONE ALL YET?
1BR IF YES
100 _ANOTHER

B8GE
BR

116
116
116

$SAVE R1-RS UNTIL NEXT RETURN

045
045
045

S04 :
RTS
PRMSGO: .ASCIZ
PRMSG1: .ASCIZ
PRMSG2: .ASCIZ

‘dNSA Mess

' SNsSA Ho.o.o.

! NS A

WOR

;RETLRN
Buffer Address *» 801305’
Buffer Contents:'’
ouD2sA
EXPD: #068A
RECV:

#068A

XOR:

#06'

TSV3

GLOBAL

PRMSGEXP

AREAS

MACRO V05.03

Tuesday 28-ARpr-87 10:28

175
1754
1755
i;gg

.EVEN
.SBTTL

PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER

,nourxns TO PRINT ERROR BYTES IN MESSAGE BUFFERS
ONLY THE FIRST 8 ERRORS ENCOUNTERED ARE PRINTED DUE TO SCREEN SPACE

1758
1759

;
:

1760

1761

;IMPLICIT INPUTS:

1763
1764
1765
1766
1767
1768
1769
1770
1771
1772
1773

:
EXPMSG
;
RECMSG
; PRBYTEXP::
SAVREG
MOV
CLR
CLR
MOV
MOV
204
MOVB

1762

015202
015202
015206
015210
015214
015216
015222
015226

1774 015230

1775 015234
1776 015240

010005
0U5037

002320

012701
012702
111100

002322
002466

110037
111203

015550

110337

015552

042700

177400

BIC

1777 015242 042703 177400
1778 015246

015252
015262
015264
015266
015272
015300
015302
015302
015304
015310

010346
013746
013746

015316
015322

012746
012746

015314
015326
015330
015332
1786 01533¢
1737 015346

1788
1789
1790
1791
1792
1793
1794

SEQ 0072

EXPD/RECV MESSAGE BUFFERS

175

1779
1780
1781
1782
1783
1784
1785

Page 63

015350
015350
015360
015360
015362
015364
015366

1795 015370

015370
015374
015400
015404

122122
001431
005237

023727
101023

010446

010600
104415
062706

RO,RS
PRMNO
R4
oF XPMSG, R1
ORECMSG. R2
(R1),RO

#tC<377>.R0

MOVB
MOVB

no pnesxp
(R2

MOVB

R3,PRBREL

BIC

0?C<377> R3

015552
015550

R3, - (SP
PRBREC, -(SP)
PRBEXP . -(SP)

015416
000005

MOV
MOV

OPRBMSG , - (SP)
95, -(SP)

002320
002320

000010
274

MOV

000014

30%:
354.

005204
020405
002001
000717
012746
012746
010600

EXPECTED MESSAGE BUFFER
RECEIVED MESSAGE BUFFER

XOR
cMPB
BEQ
INC
cHe
BHI
PRINTX
MOV
MOV
MOV

000404

013746

NUMBER OF BYTES IN BUFFER

002320

015503
000002

504 :

RO.R3
(R1)+,(R2)
304
PRMNO
PRMNO,
98 .
304

tNUMBER OF THE CURRENT BYTE

IGET EXPD BUFFER ADDRESS
1GET RECV BUFFER ADDRESS
$GET EXPD BYTE

1CLEAR UPPER BYTE
$SAVE FOR ERROR REPORT
1GET RECV BYTE

1CLEAR UPPER BYTE
1FOR ERROR REPORT

1 XOR EXPD/RECV
sEXPD = RECV?
:BR IF YES
tUPDATE ERROR COUNT
;PRINTEIY)Eg?

R4, -(SP)

FORCERROR

S0$

274 ,NOTSSR

INC
cHe
BGE
BR

R4
R4,RS
S04
204

MOV

PRMNO, -{SP)

MOV
MOV
MOV

sINIT ERROR COUNT

opnenscsa4.PRaex$PRBREC, R3

MOV
SP RO
TRAP
C4PNTX
00
$14,5
FORCEXIT
354

PRINTX

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

OPRBTOT ,PRMNO
PPRBTOT,
- (SP)
02,-(SP)
SP,RO

; 330
; 30

; 3aD

s 3aD

sNUMBER OF THE NEXT
tOONE ALL YET?
1BR IF YES

;100 ANOTHER
;1PRINT

TOTAL

ERROR

COUNT

TSV3

GLOBAL

PRBYTEXP

015406

015410

1796 015414

1797
1798 015416
015503
1800
015550
015552

MACRO V0S5.03

AREAS

Tuesday 28-Apr-87

10:28

Page 63-1

SEQ 0073

ERROR BYTES IN EXP/REC MESSAGE BUFFER

104415

062706
000207

000006

045
045

116
116

000000
000000

TRAP

ADD
RTS

045
045

C4PNTX
06, SP

1 RETURN

PRBMSG:
PRBTOT:

'#NwA
BYTE O%D2#A
EXPD: #03%A
RECV:
' ¥N$A NUMBER OF BYTES IN ERROR = D2’

PRBEXP:
PRBREC
:

(o}

‘

EXPREC

s1PRINT

ROUTINE

sEXPD

RECV

- PRINT EXPD/RECV WORD DATA

TO DISPLAY EXPD/RECV DATA

}

;sINPUTS:

:
3

R1
R2

RECEIVED DATA

BGNMSG

EXPREC

JSR
ENDMSG

PC,PRIXOR

TRAP

C$MSG
EXPBREC

EXPECTED DATA

:
P

004737

007742

EXPREC:
:

L10017:

104423

.SBTTL

sPRINT

THE DATA

PRINT EXPD/RECV BYTE DATA

‘.

;PRINT

ROUTINE

TO DISPLAY BYTE EXPD/RECV DATA

:
3

;sINPUTS;
H

f
f

Rl
R2

RECEIVED DATA BYTE

EXPECTED DATA BYTE

3
'-

004737

104423

007612

BGNMSG
EXPBREC:
:
JSR
ENDMSG
L10020:

EXPBREC
PC,PRIBXOR

TRAP

C4#MSG

.SBTTL

RAMERR

sPRINT

RAM AND PACKET

1 R4

1PRINT ROUTINE TO DISPLAY RAM/PACKET DATA
3

s INPUTS;

POINTER

TO COMMAND PACKET

THE DATA

DATA

#03sA

XOR:

%03’

TSV3

RAMERR

GLOBAL

AREAS

MACRO V05.03

RAM AND PACKET

Tuesday 28-Apr 87 10:28

Page 63-2

SEQ 0074

DATA

s IMPLICIT INPUT S:
RAMDATA
RAMSIZ

DATA AS READ FROM THE RAM

NUMBER OF

BYTES

IN PACKET

IF RAMSIZ=0 THEN OEFAWLT

TO 8,

IMPLICIT OUTPUTS:

1856 015570
015570
1857 015570
1858 015574
015574
015574

004737

014046

RAMERR:
:

L10021:

104423

RAMSIZ

SET T0 O

BGNMSG

RAMERR

JSR
ENDMSG

PC,PRAMPKT

TRAP

C4MSG

.SBTTL

RAMTADD

:PRINT

TEST

RAM/PACKET

ADDRESS,

DATA

RAM AND PACKET DATA

IPRINT ROUTINE TO DISPLAY RAM/PACKET DATA

:INPUTS:
;

POINTER

TO COMMAND PACKET

{IMPLICIT INPUT S:
3
:
3
3
3

RAMDATA
RAMSIZ

ERRLO

3 IMPLICIT

HIGH ORDER TEST ADDRESS

ERRHI

3
3

DATA AS READ FROM THE RAM
NUMBER OF BYTES IN PACKET
17 RAMSIZ=0 THEN DEFAUWLT TO 8.
LOW ORDER TEST ADORESS

QUTPUTS:

RAMSIZ

SET T0 O

RAMTADD

JSR
JSR

PC,PRITADD
PC,PRAMPKT

TRAP

C4MSG

.SBTTL

RAMEXP

1882 015576
015376
1R53 015276
1884 015602
1885 015606
015606
015606

004737
004737
104423

010274
014046

RAMTADD:
:

L10022:

€

1PRINT

TEST

RAM EXPO/RECV DATA

:PRINT ROUTINE TO DISPLAY EXPD/RECV DATA

1 INPUTS:
3

:
:

Rl
R2

ADDRESS

sPRINT RAM/PACKET DATA

RECEIVED DATA
EXPECTED DATA

I<6

TSV3

RAMEXP

GLOBAL
-

AREAS

MACRO V0S.03

Tuesday 28

10:28

Peage 63 3

SEQ 0075

RAM EXPD/RECV DATA

1896

1897
1898
1899
1900
1901
1902
1903
1904

Apr-87

042701
042702
004737
004737

RAMEXP : :

177400
177400
010066
007742

L10023:

104423

CONTROLLER RAM ADDRESS

BGNMSG

RAMEXP

8IC
8IC
JSR
JSR
ENDMSG

PC.PRIRAM

TRAP

C¢MSG

.SBTTL

TIMEXP

01C<377>,R2

:+SAVE EXPD RAM DATA BYTE
;SAVE EXPD RAM DATA BYTE

PC,PRIXOR

sPRINT

01tC<377>,R1

sPRINT

THE

RAM ADDRESS

THE DATA

TIMER A,B AND EXP/REC

‘0

:PRINT

ROUTINE

TO DISPLAY EXPD/RECV DATA

+AND TIMER A.B HEADER MESSAGE
:

;s INPUTS;
:

:
$

R]
R2

RECEIVED DATA
EXPECTED DATA

BGNMSG

TIMEXP

PRINTX

#TIMSGO
#TIMSGO,

TIMEXP:
:

015660
000001

MOV
MOV

;PRINT

HEADER

CHPNTX

000004
007742

JSR
L10024:

116

3.68595

-(SP)

045

TIMSGO:
.EVEN

04SP

s+PRINT THE DATA

PC .PRIXOR

C4MSG
.ASCIZ

'#NsA

.SBTTL

BADSSR

TIMER A STATUS IS IN BIT

3sNsA TIMER B STATUS IS IN BIT

PRINT TSSR ERRORS ON DATA TRANSFERS

JPRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS

:INPU|S:
:

CONTENTS OF T?gfl
DATA WRITTEN
BITS)

BGNMSG

BADSSR

MOV

R2,-(SP)

3
'

015760
015760
015760
015762

010246
042702

BADSSR::

177400

B8IC

0177400.R2

1SAVE DATA TRANSFERRED

1GET JUST ONE BYTE

2°

TSV3

GLOBAL

AREAS

MACRO V05.03

Tuesday 28-Apr-87 10:28

Page 63-4

<EQ 0076

BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS

1941 015766

015766
015770
015774
016000
016002
016004

010246
012746
012746
010600
104414
062706

1943 016012
1944 016016
016016
016016
1945 016020

004737

1942 016010

012602

104423
045

PRINTB
016020
000002

000006

L10025:

116

R2,-(SP)
OXFERAS
, -(SP)
C
02,-(SP)
SP,RO
C4PNTB
%6, SP

JSR
ENOMSG

PC,PRITSSR

TRAP

C$MSG
.ASCIZ

MOV

006024

045

XFERASC:

OXFERASC,R2

MOV
MOV
MOV
MOV
TRAP
ADD

(SPY.,R2

;RESTORE R2

;DECODE TSSR CONTENTS

'®NwA Dets Transferred = %03’

TSV3

GLOBAL

AREAS

MACRO V05.03

Tuesdey 28-Apr-87 10:28

Peage 64

SEQ 0077

GLOBAL SUBROUTINES SECTION

1947
1948
1949
1950
1951
1952
1953
1954
1955
1956
1957
1958
1959
1960

.SBTTL

GLOBAL SUBROUTINES SECTION

‘00

THE GLOBAL SUBROUTINES SECTION CWTAINS THE SUBROUTINES

THAT

ARE USED IN MORE THAN ONE

TEST

$--

.SBTTL

SOFINIT

SOFT INITIALIZE OF CONTROLLER

‘0

:ROUYI'( T0 DO
A SOFT INITIALIZE OF THE CONTROLLER
1BY WRITING INTO THE TSSR REGISTER. AFTER THE INIT,
:THE_TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS
sDETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS.

:I"’UTS:
:

ADDRESS OF FIRST REGISTER

:WTPUTS:
RO

CARRY

CONTENTS OF TSSR,

IF ERROR

SET IF INIT WAS OKAY

CLEAR IF FATAL ERROR

CALLING SEQUENCE
:

MOV
JSR

8CS

ERRDF

#ADDRESS
, RS

PC,SOFINIT
CONTINUE

SOF INIT: :

1983 016060

012765

1984 016066

004737

1987 016100

042704

000000
016330
000002

SAVREG
MoV

000002

JSR

MOV
MOV
8IC

176277

E,Ié’

002200

8eQ

1954 016122

000207

S54:

104:

cLC
B8R
SEC

RTS

OO.TSSR(RS)

sREPORT FATAL ERROR

3 SAVE THE REGISTERS
s DO _THE INIT.

PC. W

: WAIT FOR SSR

#SSRINBA, R4

1R& HAS EXPECTED CONTENTS

S¢

$BRANCH IF OKAY

1séagnsa RO
;GET THE TSSR REGISTER
AlTSSR CONTENTS
ové«nmoa-oru

R4 ,RO

104

sONLY EXPECTED BITS SET

sCLEAR THE CARRY FOR ERROR
1GO_TO EXIY
1SET THE CARRY BIT

sRETURN TO CALLER

TSV3 - GLOBAL AREAS
CHXKAMB

MACRO V05.03

Tuesday 28-Apr-87 10:28

Page 65

SEQ 0078

- CHECK TSSR FOR AMBIGUITY

1996
1997
1998
1999

.SBTTL
| B

CHIKAMB

:THIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER
1FOR AMBIGUITY

2001
2002

:IWT:

L 353

2003

2007

CONTENTS OF TSSR

CARRY

SET - NO AMBIGUITY
CLR - AMBIGUOUS CONTENTS

OUYPUT

2010

2011
2012

2013
2014
2015

2016 016124

2017

2018
2019
1

2022
2023 016146
2024
2023
2026
2027
2028

010004

SAVREG

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

%S(MA!NL!SSR!HIAM> RO

174077
000200

RO,R4

#st.rRo

100000

Sé:

000040

PLY

#5SR, RO

104
#8ITS,RO

404
R4
#1CTERCLS
R4, 916

177761}

000016
000040

404

104:

4S54

#8175.RO

454

#B8IT2!8IT1,.RO

000006
404:

2038 016220
2039 016222

- CHECK TSSR FOR AMBIGUITY

454:
S04;

454

S04
PC

,HUST BE AN ERROA

ANY OTHER BITS SET

sRETURN WITH SUCCESS
+IS READY BIT SET ?
tBRANCH IF READY BIT IS SET.

lIS FATAL ERROR BIT SET ?
1ERROR IF NOT

tCLEAR ALL BUT TERMINATION CODE

sALL TH?EE“B)ITgENJST BE SET
;0K IF ALL ARE SET
;1S FATAL ERROR BIT SET ?

;ERROR IF BIT IS SET WITH SSR

IS mxs A FUNCTION REJECT

mémuous CONTENTS
BR

TSSR IS OK

1 SHOM SUCCESS - NO AMBIGUITY
tRETURN T0 CALLER

TSVS

GLOBAL

AREAS

ENAINT.DSBINT

MACRO V0S.03

Tuesdey 28-Apr-87 10:28

Pege 66

<£a 0079

ENABLE/DISABLE INTERRUPTS

2041
5043
2044
5045

.SBTTL ENAINT,DSBINT - ENABLE/DISABLE INTERRUPTS
i DEFAULT DISPLAY INTERRUPT HANDLERS.
| IF DISPLAY TIME-OUT. REPORT DEV FATAL., AND ABORT PASS.
i OTHERWISE, SAVE DPU'REGISTERS AND DISMISS.

2048
5050
000200
2051
000001
5053
5054 016224
000
5055
20% 016225
000
5058
5059 016226 000000
5060

; BIT DEFINITIONS FOR “INTMASKTM AND “INTFLAG* BYTES:
'
IOKCKIN=BIT?
; DON'T CHECK FOR BAD INTERRUPTS -- TEST WILL.
IOKSTP=BITO
} EXPECT “STOP~ INTERRUPT.
INTERRU’T MASK -- SAYS EXPECTING INTERRUPTS
tnTMa
BYTE 0
;INTERRU’T FLAG - SAYS LE GOT ONE (IF POSITIVE)
INTFLAG:
BYTE
SAVED INTERRUPT VECTOR:
INTVEC:
. wORD
NAVE “EPU BE

5063
5064 016232
5065 016234
5066 016240
5067 016248
2068 016250
5069 016252
5070 016554

ERRINT OV

243

—

5061 016230 000000

2071 016262

010046
013700
012720
012730
012600
011646
012766

000002

iNTcPc: .MoRD

002206
016276
000340

000000 000002

SUBROUTINE TO ENABLE INTERRUPTS:
RO.-(SP)
1 SAVE RO
MOV
IVEC,RO
1GET POINTER TO VECTORS
MOV
SINTR, (RO)1SET UP INTERRUPT VECTOR
MOV
#PRI07, (RO)MOV
(SP)+ RO
;RESTORE RO
MOV
(SP).-(SP)
MOV
#0,2(5P)
/SET CPU TO LEVEL O
RTI

507%
SUBROUTINE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 7)
5074 016264 011646
BSBINT: MOV
(3P),-(5P)
5075 016566 012766 000340 000002
MOV
#PRIOT, 2(5P)
5076 016274
000002
RTI
2017
"SBTTL INTR
- INTERRUPT HANDLERS
2079 o16276

2080 016276 012737 000001 002222

cam,,

PGSRV

INTR

,DEFINE INTERRUPT ENTRY

CLR8

INTFLAG

'CLEAR FLAG TO SAY WE GOT INTERRUPT

“* mov

5081 016304

105037

016225
000001

016224

BITB

2084 016320

152737

000001

016225

BISB

5082 016310

132737

508% 016316 001003

5086
5087 016326
5088 016326
016326
016326

BNE

sSET FLAG TO SMOM INTERRUPT RECEIVED

RTI

OIOKSTP,INTMASK 1EXPECTING STOP INTERRUPT?

'BR IF YES

SIOKSTP,INTFLAG iNO. SET THE ERROR FLAG.

JSAVE REGISTERS, MSG BUFFER, ETC.
ENDSRV
L10026:
14

000002

1, INTRECV

{

TSV3

WAITF

GLOBAL AREAS
-

MACRO V05.03

Tuesdey 28-Apr-87 10:28

Pege 67

SEQ 0080

WAIT FOR SUBSYSTEM READY

.SBTTL
:

WAITF

- WAIT FOR SUBSYSTEM READY

SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG

LINPUTS:

ADDRESS OF FIRST DEVICE REGISTER

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

016332
2106 016334

104422
012746

2107 016340
2108 016344

016500
105700

2110 016346

100420

016350

012727

:NOP WHEN SUPER FIXED

CBRK
011000
000002

$11000,

1 DO A SUPVSR BREAK FIRST.
-(SP)

125-APRIL-83 REV B

1100 MSEC TIMER

Tssn(aé) RO

JREAD THE TSSR REGISTER

000001

34
1
81.(PC)~

;
:

002116

%$DLYL(PC)e

177772

~6(PC)

177756

-ZSSPC)

(sP)
24
oW

000401

2104 016330

ggp).

;TEST FOR READY BIT SET
EXIT ON STOP FLAG.
WAIT 100 USEC

;REDUCE DELAY COUNT
;RETRY UNTIL TIMER EXPIRES
: c =0, CONTROLLER STIL
L RUNNING
;.

oa HUNG-UP

AFTER

300 MSEC.

sRESTORé STACK WITHOUT CHANGING CARRY BIT
CONTROLLER IS STOPPED.

TSV

GLOBAL

CHTSSR

AREAS

MACRO V0S5.03

Tusedey 28-Apr-87

10:28

Pege 68

SEQ 0081

CHECK TSSR FOR READY

.SBTTL
| B

CHKXTSSR - CHECK TSSR FOR READY

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

sINPUT
'

JOUTPUT ;

ADDRESS OF

CONTENTS OF TSSR
SET - OKAY
CLR - NOT READY AMBIGUOUS,

CARRY

3
$

2138 016432

032700

100000

2140 016440

032700

074000
(]

- n

)b
oun

204

0163526
016530
016532
016534

020102
001407
062701
000772
005103
012716

000002

012700
104436

005703
001401
000261
000207

016510
000200

ON RETURN,

CALL:

3
;

XNXM:

14:

000004

XNXM

1 SPECIAL CONDITION SET?
1BR IF NO
3 ANY enaoa BITS SET?
1BR IF

aSET FAIURE

.sev SUCCESS

RETURN TO CALLER

- CHECK FOR NONEXISTENT MEMORY

2¢
34

*C* = 1.
“C* = 0,

(R1) = NEXM
ALL ADDRESSES 0(

(Rl)

THRU (R2).

MOV ADR1,R1
MOV ADR2.R2

JSR PC,NXM
RETURN

MOV

024,304

CLR
TST

R3
(R1)

crP

ADD
B8R
CoM
MOV

R1,R2
34
#2,R1
14
R3
034,(SP)

CLRVEC

MOV

BEQ

000002

016520

1BR IF YES

we
we

2169
2170
2171
2172

016520
016524

012737
012737
005003
005711

1 TSSR AMBIGOUS
7

;BRANCH IF TIME OUT

,CHKAMB

ROUTINE TO TEST FOR A NEXM IN THE RANGE

2156 016456
2157 016464
2158 016472
2159 016474
2160
2161 016476
2162 016500
2163 016502
2164 016506
2165 016310
2166 016512

#SC.RO
154
#<SCLIBIEIRMRINXM>
RO
15%

.SBTTL

2
2155

;WAIT FOR READY

104

[w)
r
[a]

016124

004737

OR SC SET

PC WAITF

204

2136 016424

é;I(TSSR :

p ]

016330

004737

[

2134 016416

CSR REGISTERS

RTI

MOV
TRAP

1ST
BEQ

SEC

RTS

1 TEST

oPRIO04
, 306

#4 RO
coévec
..4
PC

~C* AND PROCEED.

:+ SET BUSERR VECTOR.
1FLAG.
1TEST THE ADDRESS(ES).
sIF ANY TRAP, C
INUE AT 2¢.
INUE HERE.
.on:nuxse

1BRIF FINISHED (NO NEXM'S).
:sev u»:xt ADORESS. . .
CONTINUE,

1GOT ONE. SET FLAG..
1...AND DISMISS INTERRUPT...
1...AND GIVE BACK THE VECTOR.

;0ID WE cncu ONE 27?7

“C* = 0, SKIP NEXT

sNO,
1YES,
*C~ - i (R1) = NEXM ADDR.

TSV3

TSTLOOP

AREAS

MACRO V05.03

Tuesday 28-Apr-87 10:28

Page 69

SEQ 0082

CHECK ITERATION COUNT
.SBTTL

TSTLOOP

- CHECV ITERATION COUNT

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

016536
016542
016544
016550
016552
016556
016560

005737
001006
00573;

002166

002202
002214

016564
016566

} CALL: LOOPTO
1sTLOOP:;
1s7
BNE
57
BMI
DEC

ARG
NOITS
14
ave

s ITERATIONS INHIBITED?
: YES.
: NO.
;LOOP DISALLOWED.,

LoopCNT

14:

24:
34

SEC
RTS

.SBYTL

TSTSETUP - PRINT

1L00PS DISALLOWED IN QUICK PASS.

: BUMP LOOP COUNTER.

OR DONE.

;LOOP ENABLED.

TEST NAME AND INIT ERROR COUNTS

2174
2175
2176
2177
2178
2179
2180
2181
2182
2183
2184
2185
2186
2187
2188
2189
2190
2191
2192

GLOBAL

THE NUMBER AND NAME OF EACH TEST

AS WE GO ALONG

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

POINTER TO TEST ID ASCIZ STRING

ADDRESS OF FIRST DEVICE REGISTER

IMPLICIT OUTPUTS:
TSTCNT

UPDATED TO COUNT

TESTS PERFORMED SINCE START

OR RESTART

1SIDE EFFECTS:

INTERRUPT LEVEL ISEgASIED TO LEVEL OF
T
THE DEVICE UNDER

]
:-

2220 016570
2221 016570
2222 016372

2223 016576
2226
2227
2228
2229
2230

016612
016616
016620
016624
016626

TSTSETUP:

003154
017036
005772
016224
002200
003114

MOV

CLR

-(SP)

Ih.u;

CLR
CLR
CLRB
MOV

ERRK
EXTA
INTHASK
UNITN,RO

BEQ

ASL
15T

BPL

RO
NODEV

1SAVE THE TEST ID MESSAGE

1 CLEAR "SOFT INIT* FLAG

1 CLEAR LOCAL ERROR COUNTER.
CLEAR E'ROR EXTENSION FLAG.
: CLEAR INTERRUPT MASK (CHECK ERROR)
1 GET THE UNIT
;

i ... AND MAKEIT A WORD OFFSET.
: DID STARTUP rxw THE DEVICE?
1

BR IF YES

s BR IF NOT IDLE

TSV3

GLOBAL

TSTSETUP

AREAS

2231 016630
2232 016636
016636

016640
016642
016644

2233 016646
2234 016650
2235 016656

016656
016660
016662
016664

2236 016666
2237 016674
016674
016700
2238 016702
016702
2239 016704
2240
2241 016706
016706
2242 016710
2243 016714
2244 016716
2245 016720
016720
016722
016726
016732
016734
016736
2246 016742

2247 016746
016746
016752
2248 016754
2249 016756
2250 016762

2251 016764
2252
2253
2254
2255
2256

MACRO V0S.03

TEST

NAME AND INIT

052760

160000

Tuesday 28-Apr-87

003176

8IS
ERROF
TRAP

10445S

10445S
000002
004335
000000

. WORD
. WORD
. WORD

160001

012737

177777

013700
10445)

002200

003176

003112

3¢:

2%:

000423

032700
001412
011600
010046
012746
012746
010600
104417

44:
001000

MOV
5709
V]

013700
104441

002210

14:

Ss:

045

TNAM:

1,NXR, NXRERR

Eseaor

ADD
INC
SETPR]
MOV
TRAP
TS8T
MoV
RTS

.ASCIZ
.
.SBTTL

;

FLAG ERROR IN THE ERROR TABLE

i DEVICE NOT IDLE

gienor

gomn
0-1,0UFLG

UNITN

C$DCLN
S¢

TRAP

FLAG ERROR IN THE ERROR TABLE

$160001 ,ERTABL(RO)

2 NOINTt

TRAP

RFLAGS

;

1 NO DEVICE HERE -- PRINT IT

NXR
sn:nena

UNITN,RO

MOV
MOV
MOV
MOV
TRAP

002204

123

SEQ 0083

#160000,ERTABL(RO)

MOV
TRAP

;344
BEQ
MOV
PRINTF

016764
000002

000006
002212

04S

TRAP
. WORD
.WORD
. WORD

062706
005237

005726
013705
000207

B8R
8IS
ERRDF

104444

104421

Pege 69-1

ERROR COUNTS

000001
003740
005736

000407
052760

10:28

RO
C4RFLA
#PNT ,RO
14
(SP),RO
#TNAM, RO

;

DROP THE UNIT

;

ABORT THE PASS

: GET THE OPERATOR FLAGS.
; PRINT THE TEST NUMBERS?
: BR IF NO
1GET THE ID MESSAGE
;DISPLAY THE TEST ID

STNAM, -(SP)

£2.2450)
CHPNTF

$6, SP

TSTCNT
IPRI

; BUMP TEST COUNTER.
{PRIORITY THAT OF DEVICE

SP)e

(FIX UP THE STACK

IPRI,RO
C4SPRI

CERADDR.RS

;

ADDRESS OF TSV REGISTERS ON UNIBUS

'SSHTHA Test'
TSTEND

PRINT ERRORS RECEIVED

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

2257

2258 017000
017000

2259 017002
2260
017006
2261 017010
017010
017014
017020
017024
017026

104421

TSTEND: RFLAGS

030027
001412

020000

013746
012746
012746
010600
104417

017036
017040
000002

TRAP

BIT
BEQ
PRINTF
MOV
MOV
MOV
MoV
TRAP

C4RFLA

RO, #IER

SESUM, ERRK

s BR_IF

“JER* NOT SET.

3 PRINT ERROR COUNT.

TSV3

TSTEND

GLOBAL

AREAS

MACRO V0S.03

10:28

Peage 69-2

SEQ 0084

PRINT ERRORS RECEIVED

017030
gggg 017034

062706
000207

2264 017036

000000

2266 017057

105

2265 017040

2267

Tuesday 28-RApr-87

045

000006

101

122

040
122

14:

ADD
RTS

ERRK :

EMAXDU:

.ASCIZ

ESUM:

.ASCIZ

.EVEN

96, SP
PC

/wA wDsA ERRORS/

LOCAL ERROR COUNT.

/ERROR LIMIT REACHED --

DROPPING UNIT/

2299
2300
|

2301
2302

MACRO V0S.03

Tuesday 28-Apr-87

10:28

Page

INCERK

SEQ 0085

INCREMENT LOCAL ERROR COUNT

.SBTTL

017162
017164
017170
017172
017176
017202
017206
017210
017216
017220
017220
017222
017226
017230
017236
017236
017240
017242
017244
017246
017246
017252
017254
017254
017256
017260

ASL
ADD

003176

007777

000207

010046
013700
006300
016000
042700
020037
103004
023737
103417

104421
032700
001013
012737

CKEMAX:

002200

003176
170000
002172
017036

000040
003112

104455

104444
012600
000207

MOV
MOV

RO, -(SP)
UNITN.RO

ASL

CHP
cHP

RO, GERRMAX
14
ERRK
, LERRMAX

002200

24
RO
CHRFLA
#1DU. RO
24

ERROF

4.,EMAXDU

.WORD
'WORD
‘WORD
DOOU

4
EMAXDU
O
UNITN

UNITN,
RO
C$DOOV

TRAP

C$OCLN

RTS

MOV

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

ADDRESS OF

(SPJ)+.RO

ERROR

TABLE ENTRY.

INCREMENT THE DEVICE ERROR COUNT
DID WE OVERFLOW THE FIELD?
BR IF NO.

YES -- BACK IT UP
RESTORE RO
RETURN TO CALLER.

TO 7777.

SAVE RO
GET UNIT NUMBER
..
AND MAKE IT A WORD OFFSET
GET ERROR TABLE ENTRY
EXTRACT ERROR COUNT FIELD
gg gLOBAE LIMIT EXCEEDED FOR THIS UNIT?
IS LOCAL LIMIT EXCEEDED FOR THIS TEST?
BR_IF NO
GET OPERATOR FLAGS
IS DROPP%NG INHIBITED?
BR IF Y
NO -- DROP THE UNIT

CHERDF

HOV
TRAP

DOCLN

ERTABL (RO),RO
9170000,
RO

BLO
RFLAGS
TRAP ~
BIT
BNE
TRAP

000004
017057
000000

013700
10445}

BHIS

002170

(RO)
87777, (RO)
14
(RO)
(SP)+,RO

RTS

MOV
BIC

177777

INC
BIT
BNE
DEC
MOV

RO
SERTABL ,RO

002200

ERRK

RO,-(SP)
UNITN.RO

MOV
MOV

INcERK: INC

017036

017124
017130
017132
017136
017140
017144
017146
017152
017154
017156
017160

ERROR COUNT

ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT:

INCREMENT LOCAL

[

2269
2270
2271
2272
2273
2274
2275
2276
2277
2278
2279

AREAS

INCERK

GLOBAL

TSV3

RESTORE RO
RETURN TO CALLER

TSV3

CKDROP

GLOBAL

AREAS

MACRO V05.03

Tuesdey 28-Apr-87

10:28

Page

SEQ@ 0086

- CHECK IF UNIT SHOWD BE DROPPED

2304
2305
2306
2307
2308
2309
2310

.SBTTL

CKDROP

CHECK IF UNIT SHOWD BE DROPPED

:.CHECK IF UNIT SHOWD BE DROPPED

&KDROP: MOV

010046

104421

032700
001010

011600
012737

013700
104451

000040

177777

BIT
BNE
MOV

003112

MOV

DODU

002200

MOV
TRAP
DOCLN

104444
012600
000207

1¢:

;
004737
000207

.SBTTL

CONFIG

KTON:
177572

1%:
}

000000

KTOFF:

177572

THE PASS

(SP)+,RO

DETERMINE CONFIGURATION OF SYSTEM

JSR

PC.SOFINIT
PC

KTON.KTOFF

ENABLE/DISABLE MEMORY MANAGEMENT

757
BEQ
MOV
RTS

KTFLG
14
#1,SR0O
PC

s
:
:

GOT KT?
NO.
YES. ENABLE KT11.

KTFLG
14

s
s

GOT KT117?
NO.

#0,SRO
PC

DISABLE KT,

SUBROUTINE - DISABLE MEM MGT,

003132

;ABORT

SUBROUTINE - ENABLE MEM MGT.

003132

017374

RTS

"SBTTL

UNITN

UNITN,RO
C$DOOU
C$DCLN

RTS
:

#IDU, RO
1%
(SP).RO
#-1.0UFLG

TRAP

MOV

1$,.NOTSSR

SUBROUTINE - DETERMINE CONFIGURATION OF TSVOS SYSTEM.

LonF1G:

016054

000001

RO, -(SP)

F ORCERROR
RFLAGS
RO
TRAP
C$RFLA

1%:

TST
BEQ
NOP
NOP
MOV
RTS

TSV3

SETMAP

GLOBAL

AREAS

MACRO V05.03

Tuesdey 28-Apr-87 10:28

Page

SEQ 0087

SETUP PAR6 MAPPING
.SBTTL

SETMAP

SETUP PAR6 MAPPING

:THIS ROUTINE SETS UP KERNEL PAR6 TP HANDLE

1AN 18 BIT ADDRESS. THE OFFSET INTO THE PAGE
:IS RETURNED BIASED TO PARG6.

:IM’UTS:
:

RO
R1

3
:

HIGH ORDER ADDRESS BITS

LOW ORDER ADDRESS BITS

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

SETMAP:

005737
001433
010102

003132

000006

KTFLG
104
21.&2

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

RO
R1

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

#177,R1

{ALINE FOR LOWER 4K BOUNDARY

104

iBR IF YES

000177
003132

R1,.kfFLG

172354

R1,30KIPARG

140000

$140000.R2
R2,RO

;HIGHER THAN EXISTING MEMORY?
1SETUP MAPPING REGISTER PAR6

$160000,R2

1ADD IN PAR6 BIAS
;RETURN IN RO

;sev SUCCESS

154

CcLC

)

;SETUP DISPLACEMENT IN PAGE

.SBTTL

FILLMEM

:SET FAILURE

RETURN
FILL MEMORY UITH BACKGROUND PATTERN

[

104

017376
017376
017402
017406
017410

2366
2367
2368
2369
2370

THE ADDRESS)

FILL MEMORY WITH A BACKGROUND PATTERN

FREE

KTFLG

BACKGROUND PATTERN
= FIRST LOCATION

AVAILABLE TO DIAGNOSTIC

SET TO HIGHEST MEMORY LOCATION IF

> 28K,

OUTPUTS:

2400

2401 017502
2402 017502
2403 017506

004737

017354

PC,KTOFF

$;SAVE R1-RS UNTIL NEXT RETURN

sDISABLE KT.

TSV

GLOBAL

FILLMEM -

2404
2405
2406
2407
2408
2409
2410

MACRO V0S.03

Tuesday 28-Apr-87

10:28

Page

72-1

SEQ 0088

FILL MEMORY WITH BACKGROUND PATTERN

017512
017514
017520
017524
017526
017530
017532

017536
2412 017540
2413 017544

2414 017546

2420
2421
2422
2423
2424
2425
2426
2427
2428
2429
2430
2431
2432
2433
2434
2435
2436
2437
2438
2439
2440
2441
2442

AREAS

017616
017622
017624
017630
017632
017636
017644
017652
017654
017660
017662
017666
017672
017676
017700
017704
017706
017714
017716
017720
017726
017732
017736

010003
013701
013702
010321

003124
003126

10¢:

KTFLG
554
PC,KTON
RO

017336
003152

017376

304:

160000

172354

R3, (R1).

104

003132

020000
000200

RO,R3
FREE ,R1
FRESIZ R2

172354
003132

003144

177572
177761

003146

35¢:

172354

007600

000020
017622
017354

172516

;OONE ALL MEMORY IN FREE SPACE?
NO.

: YES. ENABLE KT,

:STSZU.RI

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

R1
RO

sCLEAR C BIT
s CONVERT BLOCKS TO WORDS
tMAKE 1T DOUBLE PRECISION

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

1SETUP PARG6 MAPPING REGISTER
;STORE TEST PATTERN IN >28K ADDRESS
sEND OF PAR6 MAPPING AREA?

1BR IF NO
sBACKUP INTO PARG6 MAPPING BEGIN

304
920000,
RO
0200, 30KIPARG
SOKIPARG ,KTFLG
S04
T23A
35%
SRO,R4

sEND OF MEMORY?
1BR IF YES
111/23A?
sNO KEEP GOING
1GET SRO CONTENTS

016,R4

1SEE IF PAGE 7

9177761 ,.R4

000016

:COPY TEST PATTERN
1GET FIRST FREE LOCATION
+SIZE OF FREE SPACE BELOW 28K.
$1STORE A BACKGROUND WORD

S04

1238
454
S0KIPARG
, #7600
404
454
#20,SR3

304

PC .KTOFF
PC

sPOINT TO NEXT 4K BLOCK

>28K.

sCLEAR ALL BUT PAGE NUMBER

tEXIT IF THERE
111723872
iNO KEEP GOING
1REACHED 18 BITS?
s YES
1NO KEEP GOING
1SET 22 BIT RELOCATION
sKEEP GOING ON ETC.
;s DISABLE KT.

TSV

GLOBAL

CMPMEM

AREAS

MACRO V0S5.03

Tuesdey 28-Apr-87

10:28

Pege

€0 0089

COMPARE MEMORY TO BACKGROUND PATTERN

g::;

.SBTTL

CMPMEM

- COMPARE MEMORY TO BACKGROUND PATTERN

g::g

: COMPARE MEMORY WITH A BACKGROUND PATTERN

2448
2449
2450

: INPUTS:
3
;
RO = BACKGROUND PATTERN

g:gg

2454
2455
2456
2457
2458
2459
2460
2461
2462

: OUTPUTS:
;
:
CARRY
- SET IF NO ERROR
:
CARRY
- CLR IF ERROR
:
+ IMPLICIT OUTPUTS:
:
:
ERRHI
- ERROR HIGH ADDRESS
;
ERRLO
- ERROR LOW ADORESS

2466 017740

Lroren:

2451

;

2463
2«»;

2467 017740
2468 017744
2469 017746
2470 017752
2471 017756
2472 017762
2473 017764

2474 017766
247S 017772
2476 017776
2477 020002
2478 020006
2479 020010
2480 020012
2481 020014

:
:

010003
004737
013701
013702

020311
001411

010137

010337
011137
00047
005721
005302
003362

017354
003124
003126

002240
002236
002232
002234
154

2482 020016
2483 020022

005737
001472

003132

004737

017336

248 020032

013701

003152

2484 020024
2485 020030

104:

2488

- EXPECTED DATA
- RECEIVED DATA

SAVREG
MOV
JSR
MOV
MOV

RO,R3
PC .KTOFF
FREE,R1
FRESIZ R2

;SAVE R1-RS UNTIL NEXT RETURN
;COPY TEST PATTERN
LOISABLE KT.
1GET FIRST FREE LOCATION
1SIZE OF FREE SPACE BELOW 28K.

MOV
CLR
MOV
MOV

R1,ERRLO
ERANI
R3,EXPD
(Ri),RECV

1 SAVE ADDRESS IN ERROR
iNO HIGH ADORESS
1SAVE EXPD FOR ERROR REPORT
.snve RECV FOR ERROR REPORT

(R1)s

1POINT TO NEXT ADDRESS

TST
BEQ

KTFLG
S$

;
:

nggm

:snzu.m

1GET

e
BEQ

BR
TST
DEC
BGT

ROL

042701 000177
010046
010146
004737 017376
010004
012601
012600
020314
001411
010037 002236

304

= FIRST LOCATION AVAILABLE TO DIAGNOSTIC

= SET TO HIGHEST MEMORY LOCATION IF > 28K.

EXPD
RECV

JSR
CLR

22::3

2491
2492 020072
2493 020074
2494 020076
2495 020102
2496 020108
2497 020106
2498 020110
2499 020112
2500 020114

FREE

KTFLG

R3, (R1)
154

R2
104

PC.KTON

:FREE SPACE LOCATION EQUAL TO EXPD?
18R IF YES

;DONE ALL MEMORY IN FREE SPACE?
:BR IF NO
GOT KT?
NO. GET OUT.

; YES. ENABLE KT,
sHIGH ORDER ADORESS START

>28K START ADORESS C(IN 32W BLOCKS)

ROL

1CONVERT BLOCKS TO WORDS

BIC
MOV
MOV
JSR
MOV
MOV
MOV
e
BEQ
MOV

0177,R1
RO, -(SP)
R1,-(SP)
PC . SETHAP
RO R4
(SP). .R1
(SP).+.RO
RS, (R4)
324
RO, ERRHI

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

sMAKE IT DOUBLE PRECISION

AREAS

MACRO V05.03

Tuesdey 28-Apr-87

10:28

Pege 73-1

SEQ 0090

- COMPARE MEMORY TO BACKGROUND PATTERN
002240
002232
002234

MOV

32¢:

000002
160000

R4 , $160000

SUB

$20000, R4

cHP

aoxlénne KTFLG

tEND _OF MEMORY?

JSR

Pc.xrorr

5S4
604 :
' L)

BLOS

cLC
BR
JSR
SEC
RTS
.SBTTL

#200, 30KIPARG

sPOINT

TO NEXT 4K BLOCK

>28K,

1BR_IF NO

1 TURN OFF MEMORY MAPPING

$SET FAILURE

604
PC.KTOFF

:TLRN OFF MEMORY MAPPING
1 SET SUCCESS

PC
REGSAV

SAVE R1-R5 ON STACK

tROUTINE T0
1SAVE R1 THROUGH RS ON THE STACK

:CALLI'G SEQUENCE :
JSR

RS,REGSAV

IT"IS IS A COOROUTINE WHICH TRANSFER CCNTRG. BACK TO
s THE CALLING ROUTINE. AT THE END OF
THE CALLING ROUTINE,
1 THE RTS PC RETURNS CONTROL TO THIS ROUTINE TO RESTORE

sREGISTERS.
s

1 THIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE

‘3

%
e
o
v
o

REGSAV:

¢ $eeee

sCALLED VIA A JSR PC INSTRUCTION

DDDDD
VRGN
R e

017354

ADD

S04 :

#2.R1
0
#2.R4

017354

172354

$SAVE RECV FOR ERROR REPORT

1UPDATE NON PARG6 ADDRESS
tMAKE IT DOUBLE PRECISION ADD
1UPDATE PAR FORMAT ADDRESS
1END OF PAR6 MAPPING AREA?
1BR _IF NO
;BACKUP INTO PAR6 MAPPING BEGIN

BLO
003132

(R4),RECV

Rai

020000
000200
172354

ADD
ADC
ADD

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

[

000002

R1,ERRLO

R3.EXPD

010137
010337

Al W NS

CrHPrMEM

GLOBAL

VAAAAAD-DDD
DD
(v I ST Y

R AA
R

TSVS

TSVS - GLOBAL AREAS

GETPAT

MACRO VO0S.03

Tuesday 28-Rpr-87 10:28

Pege 74

<€a 0051

- GET 8 BIT PATTERN FRUM OPERATOR

gggz

.SBTTL

GETPAT

- GET 8 BIT PATTERN FROM OPERATOR

gssgz

;ROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR
3

2559

s INPUTS

2560
2561

;
1OUTPUTS;

22552§

2564
2565

2567 020254

GETPAT: :

2569 020260

14:

NONE.

OCTAL NUMBER FROM THE OPERATOR

;CALLING SEQUENCE:
;
JSR
PC,GETPAT

2566

2568 020254

020260

020262

020264
020266
020270
020272
020274
020276

104443

000406

100004;

020310

2577

2576

2578 020310

2579 020312

C4GMAN

.WORD
.WORD
.WMORD
JWORD
"WORD
MORD

PATDAY
T$CODE
DATASC
377
T4LOLIM
THHILIM

100004

NCOMPLETE
1
14
MOV
PATDAT,RO
RTS
PC
8cc

571s
2577

SAVE THE GENERAL REGISTERS

TRAP

B8R

020310
000022
020312
000377
000000
000377

020300
2570 020300
020300
103367
2571 020302 013700
gss_vrg 020306 000207

SAVREG

GMANID DATASC,PATDAT.0,377.0.377.NO

;RETRY IF ERROR
;OATA PATTERN FROM OPERATOR
;RETURN TO CALLER
*

;LOCAL DATA AREA
000000

105

116

124

PATDAT:

DATASC:

.WORD

evsg'x‘z

TEMPORARY STORAGE FOR DATA

'ENTER DATA PATTLRN

’

TSVS

GLOBAL

GETSEL

AREAS

MACRO V0S.03

Tuesday 28-Apr-87

10:28

Page

SEQ 0092

ISSUE MENU AND GET OPERATOR RESPONSE

gag

.SBTTL

GETSEL

- ISSUE MENU AND GET OPERATOR RESPONSE

gggg

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

2586

1 INPUTS :

2587

;

55523

ADDRESS OF ASCIZ STRING OF MENU

MAXIMUM ALLOWABLE OPERATOR RESPONSE

2590

1 OUTPUTS::

2591
2592

;

5593 020336

2594 020336
2595 020342
2596 020344
2597 020346
98 020350
2599 020352

deTsEL:!
010002
010203

1%:

005713

24:

001412

NUMBER OF THE OPERATOR'S SELECTION

SAVREG
MOV
MOV

RO,R2
R2.R3

1 SAVE GENERAL REGISTERS
1SAVE THE MENU ADORESS
1START OF MENU STRING

BEQ
PRINTF

34
#SELASC,(R3)s

1BRANCH IF ALL LINES DISPLAYED
;DISPLAY THE MENU

TST

(nt)

020352
020354
020360
020364

012346
012746
012746
010600

020522
000002

MOV
MOV
MOV
MOV

020370
2600 020374

062706
000764

000006

ADD
B8R

86, SP
24

020376

104443

TRAP

C$GMAN

020366

2601 020376

020400

020402
020404
020406
020410
020412
020414

020416
2602 020416
020416
2603 020420
2604 020424
2605 020426
2606 020430
020430
020434
020440
020442
020444
2607 020450
2608 020452

2609 020454

2610 020522
gfi? 020527
2613 020556

104417

TRAP

000406

020556
000082
020527
177777
000000
177777
103352

013700
020001
101411
012746
012746
010600
104417
062706
000735
000207

045

045
105
000000

GMANID

100014
020556

020454
000001
000004
116

116
156

045

045
164

S¢:

MENERR:

.WMORD
"WORD
"WORD
JWORD
"WORD
JWORD

(R3).,-(SP)
#SELASC, -(5P)
92.-(SP)
SP,RO

_ASCIZ

SELASC: .ASCIZ
MENASC: eegz
MENRES :

C4PNTF

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

10001¢

MENRES
T4COOE
MENASC
-1
THLOLIM
THHILIM

BNCOMPLETE
1
BCC
14
MOV
MENRES , RO
cHP
RO,R1
BLOS
S$
PRINTF SMENERR
MOV
mzu—:an -(SP)
MOV
1,-(SP)
MOV
SP‘RO
TRAP
C4PNTF
ADD
04SP
BR
14
RTS

;END OF ASCII ?

JRETRY IF ERROR
1GET THE OPERATOR'S REPLY
1COMPARE T0O mxmm ALL OWED
:BRANCH IF
;DISPLAY mon MESSAGE

;RETRY

JRETURN TO CALLER

'sN#A sss Menu Selection Too Large sex’

'#N»T'
‘Enter Menu Selection: '
L.MORD
O

TSVS

GLOBAL

CHKMAN

AREAS

MACRO V0S.03

Tuesdey 28-Apr-87

Pege 76

<€a 0093

CHECK MANUAL INTERVENTION LEGALITY

2615

.SBTTL CHKMAN - CHECK MANUAL INTERVENTION LEGA_ITY

2617

ra.]

?6%3

JROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY.

2620

1 INPUT

2621

2622
2623
2624

:
NONE.
sOUTPUT
:

2625

2626

22222;

CARRY

2‘29233

O
1

MANUAL INTERVENTION NOT ALLOWED
MANUAL INTERVENTION IS OK

1SIDE EFFECTS:
]

2631
26
2633
2634

:
;
:
:

2635

2638 020569
2639 020564
020564

2640 020566
020566
2641 020570

020570
020574
020600
020602
020604

2642 020610
2643 020612

264S 020614

A MESSAGE IS DISPLAYED WARNING THAT TEST IS
NOT EXECUTED IF MANUAL INTERVENTION IS NOT
ALLOWED.

2636
2637 020560

26‘6

10:28

CHKMAN:;;

104450

000241
000207

04S

ONOMAN,
- (SP)
#1,-(SP)
SP RO
CPNTF
#4,5P

14:

cLC
RTS

;CLEAR CARRY FOR ERROR
JRETURN

NOMAN:

_ASCIZ

000004
045

MOV
MOV
MOV
TRAP
ADD

;BRANCH IF ALLOWED

020614
000001

116

C$MANI

1 SAVE THE REGISTERS
1SEE IF MANUAL INTERVENTION OK

BCOMPLETE 14
BCS
14
PRINTF
ONOMAN

103411

012746
012746
010600
104417
062706

SAVREG
MANUAL
TRAP

. eVven

;PRINT THE WARNING MESSAGE

'‘'sNsA ss¢ Manual Intervention not Allowed - Test Aborted sse’

l
|

TSV3

ENVIRN

GLOBAL

AREAS

MACRO V0S5.03

Tuesdey 28-Apr-87

10:28

Pege

ENVIRN

SEQ 0094

SETUP FREE DIAGNOSTIC SPACE

.SBTTL

SETUP FREE DIAGNOSTIC SPACE

[]

: SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS.

ENVIRN: MEMORY RO

52 020710

020710
020712
020716
020724
020730

020736
38 020742

020750

2660 020752

003124
00000,
003126
000004
002012
000007

TRAP

CMEM

003124

RO,FREE
#2. FREE

003126

04 FRESIZ

003126

L$UNIT,R2

07,FRESIZ

10¢:

104

003124
003126
00000 2
003130

FREE ,RO
FRESIZ,RO
#2,R0
RO,FREEHI

020776
021002
021004

177520

#BOVPCR,R1

R1.R2

92,R2

PC, XNXM

154

177520
177520

TAKE AWAY 7 WORDS PER UNIT

1GET FIRST FREE ADDRESS
yPOINT TO LAST FREE ADDRESS
1BACKUP 1 WIRD
1STORE LAST FREE ADDRESS
s

1GET BDOV11l PCR ADORESS

;COPY TO R2
1SET THE RANGE

1SEE_IF WE HAVE ONE

10K TO SET FLAGS
iRETURN WITH FLAGS CLEAR
1SAVE PCR CONTEN
1ADD ONE TO IT
1GET BDV11l PCR _ADDRESS
1 TRY 10 HRITE 0 I7

177520

003146

i GET NUMBER OF UNITS

000002
016456

003144
170000

. .AND WORD COUNT.

(RO),FRESIZ

020754
2662 020760
020764
020770
020774

+ GET 1ST FREE ADDRESS...

MB186

FLAG
3SLPERVISG? COLD BE WRONG
1BR 404 FOR RELEASE
1TELL THE SYSTEM TYPE

T238

1SET THE FLAG

T23A
#170000,L $HIME

002120

1GET RESWTS
3010 IT CHANGE?
* BE 117238

404

RETURN

PRINTF

#8189

'BR 40% FOR RELEASE
s1-LL THE SYSTEM TYPE

RTS

1RETURN

NOP

R Y

TSV3

KTINIY

GLOBAL

AREAS

MACRO V0S5.03

Tuesdey 28-Apr-87

10:28

Page 78

SEQ 0095

SETUP KT11 MEMORY MANAGEMENT REGISTERS

.SBTTL

KTINIT

SETUP KT11 MEMORY MANAGEMENT REGISTERS

[B4

}

tROUTINE TO INIT KT-11

2697
2698
2699
2700

021070
021070
021074
021100

005037
005037
023727
101444
013700
012737
005737
000240
013737
042737
010037
005000
012701
012761
010021
062700
020027
001367
01274}
000405

KTINIT:

001577
000004

003132
003132

KTFLG
KTENABLE

g:HIHE.01577

GMQT

S0ERRVEC, RO

924 ,IWERAVEC
MSRO

SAVE OLD ERR VEC PTR,
SET ERR VEC PTR,
GOT KT11?

L$HIME ,KTFLG

YES.

gg.aocanvec

RESTORE OLD FRR VEC PTR,

0177 .ktFLG

SKIPARO,R1

177740

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

357?325-40(a1)

ENOUGH MEMORY

(>28K)?

(TRAP IF NO).

SET KT FLAG.

RO = AR DATE,
R]l = KI REGS PTR.

SEY DESCRIPTgR REG.

$200, RO

RO, #2000

177600

NO.

#177600, -(R1)
94

YES.

SET KTPAR7 FOR 1/0.

2719 021206
2720 021212

012716
000002

021214

24:

#64,(SP)

SET UP RETURN
RTI TO NEXT LOCATION

2722 021214

010037

000004

64:

RO, 39ERRVEC

RESTORE OLD ERR VEC PTR.

2724 021220

000207

TSV3

KTINIT

GLOBAL

AREAS

MACRO VO0S.03

Tuesdsy 28-Apr-87

Pege

SEQ 0096

SETUP KT11 MEMORY MANAGEMENT REGISTERS

7126
727
2728

2730

2729

2731
2732
2733

;

SUBROUTINE TO SET EXTENDED FEATURES SWITCH

Requires that

SOFINIT

end WRTCHR have been done previous to csll.

2734

2735
2736
2737
2738
2739 021222
2740
2741 021222

2742 021226
2743 021230

2744
2745
2746
2747
2748
2749
2

10:28

021236
021244
021252

021260
021264
021270

021310

The Extended Feetures Switch is set.

INVERT

005737
001020
012737

012737
012737
012737
012704
004737
000207

002224

100206
021304
000006
100010
021274
010662

TS7Y

EXTFEA

MOV

#100206 ,CHOPKT

: WRT SUB-SYS MEM CMD

MOV

06.CN)PKTo6

; BYTE COUNT

BNE

021274
021276
021302
021304

MOV
MOV

MOV
JSR

#isHBK, CMOPKT
.2
#100010, WSMBK

OCMOPKT ,R4

PC.WRTCHR

RTS

COMMAND PACKET.
-

000000

021274
021274

CURRENT UNIT NUMBER

CMDPKT::

IS SWITCH SET?

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

1 MSG BUF ADDR

+ INVERT THE SWITCH

¢ SET CMOPKT INTO R4
s DO I

<.+3>E177774

RETURN

1MUST BE ON MOD 4 BOUNDRY.

$+1ST WORD IS TSOS COMMAND.

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

0
0

;eND WORD IS THE BUFFER LOW ADDRESS.
33RD WORD IS THE BUFFER HIGH ADDRESS.

WRITE SUB-SYSTEM MEMORY CHARACTERISTIC B8LOCK.

WwsSMBK::

O
0

$11ST WORD::
;2ND WORD::

(o]

000000

SEL O
SEL 2

t3RD WORD:: SEL 4

.EVEN

SUBROUTINE TO CHECK WETHER OR NOT WE'LL TEST NXM

s
3

s INPUTS;
sOUTPUTS
:
The NXMFLG
:

is set

i we can test.

The NXMLO snd NXMHI eddresses are setup.

‘-

MEMCK:

021316

005037

021326
021332

005037
005737

003136
003140
003142
003146

SAVREG

CLR
CLR
CLR
187

NXMFLG
NXMLO
NXMHI
1238

1 SAVE THE REGISTERS

1CLEAR THE FLAG
1CLEAR THE TEST ADORESS LO
sCLEAR THE TEST ADDRESS HI
sIS IT A 1172387

TSV3

KTINIT

GLOBAL

AREAS

MACRO V05.03

Tuesdey 28-Apr-87 10:28

Page 79-1

SEQ 0097

SETUP KT11 MEMORY MANAGEMENT REGISTERS

2783 021336
2784 021340
2785 021346

2786 021350
2787 021354
021356
021362
021364
021372

001407
023727
103406
004737
000427
005737
001413
023727
101023

021402

103403

021374

021404

021410
021412
021420

021422

021426

021434
021440
021442

021444

021444
021450
021454
021456
021460
021464

002120

007777

021466
003144

14:

002120

005777

023727

002120

003777

004737

021466

00041
023727
103410

002120

004737

021466

005237
000411
000410

003136

062737

012746
012746
010600
104417
062706
000207

000077

2%:

14
L4HIME, 07777
24
PC,NXMTST
134
T23A
44
L$HIME, 05777
144

:NO
; GREATER THAN 128K
.Y
sSETUP THE ADORESS
$SET_THE FLAG AND EXIT
$IS IT A 11/23A7
1NO
1GREATER THAN 96K
s YES,23A/238 WITH 128K MEMORY

BLO

tNO,

cHp

JSR

001577

003142

44:

BR
cMP
BLO

L$HIME, 03777

PC ,NXMTST

13
L $HIME, 01577

077, NXMHI

tFOOL THE 11/02 & 11/03

144

INC
BR
BR

NXMFLG
154
154

15¢:

MOV
MOV
MOV
TRAP
ADD
RTS

ONOMEM, -(SP)
#1,-(SP)
SP,RO
CEPNTF
94 ,SP
PC

13¢:

PRINTF

CHECK 24K

1SETUP THE ADDRESS

144

PC, NXMTST

ADD

sGREATER THAN 64K BUT LESS THAN 92K?
$SET THE FLAG AND EXIT
1GREATER THAN 24K BUT LESS THAN 64K?
sNO,
TELL THEM AND EXIT WITH FLAG CLEAR

JSR

005460
000001

000004

8EQ
cHP
BLO
JSR
BR
TSY
BEQ
cMP
BHI

ONOMEM

;SETUP_THE ADDRESS
1SET _THE FLAG
s EXIT
tNOP FOR PRINTOUT

s TELL THEM & EXIT s#sNO PRINTssse»

sRETURN

SUBROUTINE TO SETUP THE NXM ADDRESS FOR TESTING

]

1 OUTPUTS : NXML O, NXMHI

1SETUP WITH NXM ADDRESS

}
;-

021466

013701

002120

021476

042701

000177

021472

021502

021520

062701

010102
000006

010137
000012

021550

042702

021560

000207

021554

021562

010237

000200

003140

NXMTST:

MOV

ADD

177700

1GET _TOP OF MEMORY

9200 ,R1

$tMAKE IT 1/0 BLOCK OR OTHER NXM

MOV
.REPT
ASL

R1,R2
6
R1

sRESAVE RESWLTS

MOV
.REPT

R1,NXMLO
10,

$SAVE TEST ADDRESS LOW

BIC

ASR

003142

L$HIME ,R]

8IC

MOV
RTS

ENOMOD

2177,R1

#177700,R2

R2,NxMHi
PC

1PUT IN PLACE FOR XFER

1PUT

IN PLACE FOR XFER

sDON’'T WANT JLA!

$SAVE TEST ADDRESS HIGH
IRET

TSV4

MISCELLANEOUS SECTIONS

KTINIT
oo~

MACRO V05.03

Tuesday 28-Rpr-87

10:28

Page 80

SEQ 0098

SETUP KT11 MEMORY MANAGEMFNT REGISTERS

021562
021562

021572

:
TSVS:

177777

17777

$PROT:;
;

LTITLE

TSV4

BGNMOD

TSv4

MISCELLANEQUS SECTIONS

PROTECTION TABLE
.SBTTL
BGNPROT

. WOR
ENDPROT

:NO DEVICE PROTECTION REQUIRED.

TSV4

MISCELLANEOUS

SECTIONS

MACRO V0S5.03

Tuesdey 28-Rpr-87

10:28

Page 81

SEG 0099

INITIALIZE SECTION
.SBTTL

INITIALIZE SECTION

‘00

s THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED

1AT
H

;IF

THE BEGINNING OF

"START" OR

EACH PASS.

“RESTART"

SET QUICK-PASS FLAG AND BUS-INIT.

:IF "CONTINUE", NOTHING 1S REQUIRED.

:iNSERT TEMPORARY JUMP 10 007
37 021572
021572
38 021572

L4INIT::

404
:

39 021576
40 021602

41
42
43
44

002176

021610
021614
021620
021624

MOV

45 021632

46 021634

CLR
CLR
MOV
CLR
CLR
CLR

READEF

021624
021630

021632

BGNINIT

002200

002012

CSREFG

cMe

UNITN,L$UNIT

1587

OUFLG

BMI
MOV
ASL

157
BEQ

003176

8IT

003176

14¢:

NXTU
UNITN,.R1
ERTABL(R1)
SETV

TRAP

1DO NOTHING IF

"CONTINUE".

; TAKE NEXT UNIT

IF NOT NEW PASS.

L10030-.
#EF .NEW

6EF .NEW,RO

CHREFG

BNCOHPLETE NXTU
8cc
XTU
READEF

MOV

xDROPPED UNIT?
1BR IF YES

INIT

C4EXIT

MOV

sUNIT IN RANGE?
sBR IF NO.

; DROPPED?

TRAP

.WORD

;CLEAR RAM SIZE FOR RAMERR ROUTINE

#8IT14,ERTABL(R])

NXTU

READEF

;CLEAR "SOFT INIT" FLAG
;CLEAR TEST ABOVE 28K FLAG

BNE

EXIT

1SET UP PRIMARY MESSAGE FOR REPLACEMENT

OEF .CONTINUE
,RO

TRAP

BHIS

002200

000035

oEF . CONTINUE

BNCOMPLETE 14
8CC
1s

003112

040000

EXTFER
NXMFLG
9EPRT],EPRTSW
SIFLAG
KTENABLE
RAMSIZ

OEF START

RO
9€F . START

TRAP

C$REFG

READEF

#EF .RESTART

TRAP

C4REFG

8CcC

314

BCOMPLETE 24
BCS
24

MOV

000037

9EF .RESTART
RO

BNCOMPLETE 314

24:
021732

BRESET
TRAP

C4RESET

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

TSv4

MISCELLANEOUS SECTIONS

MACRO V0S5.03

Tuesday 28-Apr-87

10:28

Page

81-1

SEQ@ 0100

INITIALIZE SECTION
65
66
67
68

021734
021740
021744
021750

72 021754
73 021760
74 021760

75 021766

76 021772
77 021776

005037
005037
005037
005037

005037
012737
004737
004737
012700
005020
020027

103774
000404
005037
000137

012737
005037
104422
005237
023737
103423
012737
000401

002212

177777

002202

30%:

003376
002202
022070

177777

002216

31¢:

002200

102 022110
103 022114
105 022116
022116
106 022120
107 022122

109 022122
022122
022126

104421
032700
001343

002200
002200

002012

177777

003112

103342
005037
005237
012001
010137

NEWPAS;

002012

CLR

SKIPT

000001

MOV
JSR
JSR
MOV
CLR
cHP
8LO
BR
CLR
JHP
MOV
LR
BREAK
TRAP
INC
cHP
BLO

BR
DOCLN

114:

PASRPT
:

002216

TO DEBUGGER

i...QUICK VERIFY...
s SET_ENVIRONMENT.
s INITIALIZE KT MEMORY MANAGEMENT

(RO)~
RO, SERTABE
304
as
QvP
PASRPT

;tCLEAR THE ERROR TABLE

$-1,UNITN
DEVENT

sINIT UNIT NUMBER...
tCLEAR COUNT OF DEVICES RUNNING

C$BRK

UNITN
UNITN,L $UNIT
SETU
114

;GO REPORT THE STATUS

i...AND SET NEXT UNIT NUMBER.

sABORT,

NO MORE UNITS.

LSUNIT,
01
NEWPAS

BEQ

NEWPAS

:BR IF NO

#ISR, RO

1SHOULD WE PRINT STATISTICS
:1BR IF NO

DEVCNT

RFLAGS
TRAP

RO
CHRFLA

BNE

NEWPAS

TRAP

SETU:

;RETURN

@IENTER THE DEBUGGE R
"
LEAR THE SUBTEST "SKIPPER

cHP
BLOS

NOP

DORPT

002200

¢-1,QvP
PC.ENVIRN
PC.KTINIT
SERTABL
, RO

sCLEAR 11/23A FLAG
:CLEAR 11/23B FLAG

C$DCLN

BIT

104¢:

0.o0t

tNUMBER OF TESTS RUN IN PASS

tCLEAR FATAL ERROR COUNT

TRAP

TST

000100

104424
000741

013700
104442

44
:

NXTU:

104444
000240
023727
101752
005737
001747

TSTCNT
FATFLG
T23A
1238
9340, -(SP)
0204 . -(SP)

JHP

003400
020710
021070
003176

CLR
CLR
CLR
CLR
MOV
MOV

NEWPAS

GPHARD
MOV

UNITN,RO
UNITN,RO

C4GPHRD

BNCOMPLETE NXTU
003112
002216

8CcC
CLR
INC

NXTU
DUFLG
DEVCNT

002204

MOV

R1,CSRADDR

MOV

sARE_ANY STILL

RUNNING?

C$DRPT

TRAP

1HOW _MANY UNITS SELECTED?
tBR _IF ONLY 1

(RO)+,R1

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

sCLEAR "DROPPED" FLAG.

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

TSv4e

MISCELLANEOUS SECTIONS

MACRO VO05.03

Tuesday

vesday

INITIALIZE SECTION
022150
022152

012001

010137
012721
013721

MOV
002206
016276

14:

10:28

MOV

IPRI,(R1).

BEQ

Page

ege

(RO).,R)

(RO),R2
R2,IPRI

TS7T

Apr-87

s MOV
s MOV

MOV
MOV

002210

SE@ 0101
:1GET VECTOR ADDRESS.

;GET INTERRUPT PRIORITY
$1SET INTERRUPT PRIORITY,

R1,IVEC
OINTR,(R1 ).

QveP

81-2

3SET INTERRUPT VECTOR POINTER...
.VECTOR,
. AND PRIORITY

11ST PASS ??
tNO,

SKIP THE PASS 1 STUFF.

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

s THAT

013701
30

101416
104421
032700
001412
013746
012746

002200

100000
005772
002012

THE DISPLAY STATUS IS PROPERLY INITIALIZED.

CLR

EXTA

BLOS

104

003176
000001

cMe

RFLAGS
TRAP

001000

10
:

003114
002204
000002
016456

003112

20
3

156
157 022320
158

&s.

012700
10444)

L10030:

104411
045

116

04S

PUNIT:

1SAY DEVICE RUNNING

LS$UNIT, 01

1ARE WE TESTING MULTIPLE UNITS?

RO
CSRFLA

;CLEAR ERROR EXTENSION FLAG.
;BR IF NO.
;YES

GET OPERATOR FLAGS.

#PNT , RO

,suou.o ue PRINT UNIT 0?2

PRINTF

OPUNIT,UNITN

1PRINT

10$

MOV
MOV
MOV
MOV
TRAP
ADD

UNITN, -(SP)
oPUNIT, -(SP)
92, (SP)
SP.RO
C4PNTF
06, SP

CLR

NODEV

MOV
MOV
ADD
JSR
8CC
MOV
MOV

sFINALLY,
022310
022310
022314
022316
022316
022316

1
08IT1S,ERTABL(R1)

BIT

BEQ

002200
022320
000002

003114
17/.7717

UNITN.R1

ASL
BIS

000006

012737

MOV

CSRADOR ,R1
R1,R2
#TSSR,R2
PC, XNXM
24
R1,NODEV
#-1,0UFLG

1BR IF NO

nc "UNIT

1ADDRESS OF FIRST REGISTER
1START OF REGISTERS
s ADDRESS OF TSSR REGISTER
nesr B0TH CONTROLLER REGISTERS. ..
_AND BR IF ALL OK.
'FLAG DEVICE As NON-EXISTENT
;OROP THIS UNIT

SET CPU PRIORITY AND WE’'RE DONE.

SETPRI

#PRIOO

;ENABLE INTERRUPTS.

MOV
TRAP

#PRI00,
RO
C$SPRI

TRAP

C$INIT

.eegaz

/8NsNsAsseses TESTING UNIT s#D2sA sssee/

ENDINIT

TSVA

MISCELLANEOUS SECTIONS

MACRO V05.03

Tuesday 28-Apr-87 10:28

Page 82

<EQ 0102

ADD AND DROP UNITS SECTIONS

igg

.SBTTL

163
164

ADD AND DROP UNITS SECTIONS

t THE ADD-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE
3+ TO BE (A) ADDED TO THE TEST LIST FOR THE FIRST TIME

163

167 022366

022366

168 022366
169 022370
170 022372
171 022400

010001
006301
0S2761
042761

022406
022410
022414
022420
022422
022424

010046
012746
012746
010600
104417
062706

022430
022432

000167
000026

172 022406

173 022430

174 022434
i;z

177 022462
022462
17 022462

04S

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

L$AU:;
100000
040000

003176
003176

MOV
ASL
8IS
BIC

RO,R1
R1
£100000, ERTABL (R1)
040000, ERTABL(R1)

MOV
MOV
MOV
MOV
TRAP
ADD

RO, -(SP)
#14,-(SP)
$2,-(SP)
SP . RO
CHPNTF
#6,SP

LMORD
JWORD

J$UMP
L10031-2-.

PRINTF

022434
000002
000006

116

BGNAU

EXIT

045

14:
L10031:

104452

LASCIZ
-EVEN

#14.RO

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

/#NsA

ENDAU
TRAP

:
i
;
;

UNIT sDsA ADDED/
+ UNUSED.

CSAU

.00

179

182

184
185
186

; COMMAND, OTHERWISE REMAIN INACTIVE. THE “DISPLAY“ COMMAND
: WILL PRINT ALL DROPPED UNITS, AND THE P-TABLES OF THOSE
; WHICH ARE STILL ACTIVE.

igg

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

TO BE REMOVED FROM THE TEST LIST.

i SUPVSR DOES THE “DROPPINGTM.

183

ig;

THIS IS JUST TO TELL THE MAN.

“DROPPED* UNITS ARE RE-SELECTED ON OPERATOR *STA* OR

*ADDTM

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

189 022463

022464

190 022464
191 022472
192 022474
193 022476
194 022504

012737
010001
006301
052761
000240

022512
022514
022520
022524

010046
012746
012746
010600

022530

062706

195 022512

022526

196 022534
022534
022536

104417

000167
000030

177777

003112

140000
000240

003176
000240

L$OV::

BGNDU

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

#14,RO

022540
000002

MOV
MOV
MOV
MOV

RO, -(SP)
#14,-(SP)
$2,-(SP)
SP. RO

000006

ADD

96, SP

TRAP

EXIT
LHORD
"WORD

C4PNTF

oU
JéP
L10032-2-.

1 SAY DROPPED
s 222222222

TSVA

MISCELLANEOUS SECTIONS

MACRO V0S.03

Tuesday 28-Apr-87 10:28

Page 82-1

SEQ 0103

ADD AND DROP UNITS SECTIONS
022540

04S

022570
022570
022570

104453

116

04S

14%:
L10032:

.ASCIZ
.EVEN
€

/#NsA

TRAP

(of
1» V)

UNIT wDsA DROPPED/

'. >

022572
022572
022572
022576

013705

012727
000000
013727
000000
005367
001375
005367
001367
005303
001357
004737

104461

002204
0003550
016330

AUTO-DROP CODE SECTION.

z—

L$AUTO: :
104

BGNAUTO

MOV

CSRADDR, RS

$360. ,R3

JSR

PC,WAITF

DELAY

250.

B8CS

204

000372

MOV

002116

MOV

I6$DLY. (PC)-

177772

DEC
BNE
DEC
BNE
0EC
BNE
JSR

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

LWORD

177756

017262

204%:
L10033:

9250. ,(PC)-

1WAIT FOR

.25 SECONDS

1BUMP COUNTER OOWN
s KEEP GOING
$TRY AND DROP UNIT

1 UNUSED.

ENDAUTO
TRAP

tPOINT TO DEVICE REGISTER
tENOUGH TIME FOR 2400’ REEL TO REWIND
1WAIT FOR SSR TO SET
sLEAVE WHEN SSR IS SET

C4AUTO

TSV4 - MISCELLANEOUS SECTIONS

RS
e
e
e
]

MACRO VO0S.03

Tuesday 28-Apr-87 10:28

Page 83

<EQ 0104

CLEAN-UP AND REPORT CODING SECTIONS

giz

.SBTTL

218
219

+
i1

ggg

CLEAN-UP AND REPORT CODING SECTIONS

THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS
EXECUTED AT THE END OF EACH PASS (OR SUB-PASS).

; USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL STATE.
'-o

222 022652

BGNCLN

022652
223 022652

013705

225 022662

100405

002204

224 022656 005737 003112
ggg;

228 022664 012765 000000 000002
229 022672 004737 016330

230 022676
231 022676

022676
232 022676

L$CLEAN:;
MOV

TST

BMI

14:
2¢:

L10034:

104412

l’.

233

MOV
JSR

CSRADOR RS

DUFLG
14

#0.TSSR(RS)
PC.WAITF

POINT TO DEVICE REGISTER

s "DROPPED" FLAG IS SET ON. ..

i...AND GROSS CONTROLLER FAWLT...

i.. DON'T TRY TO XCT CLEANUP COOE.

;00 SOFT INIT

ENDCLN

TRAP

C$CLEAN

THE REPORT CODING SECTION CONTAINS THE

"PRINTS" CALLS THAT GENERATE STATISTICAL REPORTS.

'--

236 022700

022700
237 022700
022700
022704
022710
022712
022714
022720
239 022722
240 022724
241 022726
242 022732
243 022734
244 022736
245 022740
246 022742
247 022746

LSRPT:;
012746
012746
010600
104416
062706
010246
010346
010446
012704
005003
011402
001467
100066
032702
001015

023142
000001
000004

003176

14:

040000
248 022750 042702 170000
249 022754

022754

022756
022760
022764
022770
022772
022774
230 023000

251 023002 020227
g; 023006

001012

160000

PRINTS

24:

SDEVSUM

MOV
MOV
MOV
TRAP
ADD
MOV
MOV
MOV
MOV
CLR
MOV
8EQ
BPL
81T
BNE

SOEVSUM, - (SP)
#1.-(SP)
CIPNTS
o
R2.-(SP)
RS, -(SP)
R4 -(SP)
SERTABL . R4
R3
(R4),R2
44
PYH
#8IT14,R2
24

+ GET START OF ERFOR TABLE.
: CLEAR UNIT NUMBER
s GET ERROR YABLE ENTRY & TEST IT.
s ZERO IF UNIT NOT RUN
; WAS UNIT CROPPED?
s BR IF YES

PRINTS

GDEVOML .R3,R2

; PRINT

8IC

010246

010346
012746 023177
012746 000003
010600
104416
062706 000010
000446

BGNRPT

MOV
MOV
MOV
MOV
TRAP
ADO
BR

#1CT777 .R2
2,-(SP)

R3 -(SP)
SOEVONL . -(SP)
3, -(SP)
SP.RO
CBNTS
$10.5P
a4

R2 ., #160000
34

i GET ERROR COUNT FIELD

s WAS UNIT NON-EXISTENT?
: BR IF NO

TSV4

MISCELLANEOUS SECTIONS

MACRO V0S.03

Tuesdsy 28-Apr-87

10:28

Pege 83-1

CLEAN-UP AND REPORT CODING SECTIONS

023016
023022

012746
010600

000002

023026

062706

000006

255 023034
256 023040

020227
001012

160001

023042
023044
023050

010346
012746
012746

023024

254 023032

257 023042

104416

000431

023060

062706

000006

259 023066

042702

170000

023072
023074
023076
023102
023106

010246
010346
012746
012746
010600

023412
000003

023112
261 023116
262 023122

062706
062704
005203

000010
000002

258 023064
260 023072

023110

263 023124

264 023130
265 023132
265 023134
267 023136
268 023140

023140
269 023140

270 023142
271 023177
272 023247

273 023331
274 023412
275

276
277 023462
278

000414

104416

020427

103701
012604
012603
012602

304

cHP
BNE

R2, 0160001
304

MOV
MOV
MOV

R3,-(SP)
SOEVNRD, -(SP)
#2.-(SP)

TRAP

C4PNTS

116
101

045
045

101
101

101

EIC

PRINTS

OGDEVNRD,R3

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

#6,5P

#1C7777.R2

OGDEVDRO,R3,R2

MOV
MOV
MOV
MOV
MOV

R2.-(SP)
RS, -(SP)
90EVDRO, - (SP)
03, -(SP)
SP ‘RO

ADD
ADD
INC

#10,SP
$2,R4
R3

BLO
MOV
MOV
MOV
ENDRPT

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

L1003S;

C4PNTS

96, SP

TRAP

a4:

02,-(SP)
SP
. RO

ADD

003376

104425
045
045

045

023331
000002

010600

104416

TRAP

PRINTS

023054

023056

MOV
MOV

C4PNTS

R4, SERTABE

:+ UNUSED.

045
040

TRAP
DEVSUM: .ASCIZ
DEVONL:: . .ASCIZ

CHRPT
/#NsADEVICE STATUS SUMMARY :#N/
/#A UNIT wO3®A
ONLINE, ERRORS = SDEN/

040
040

DEVNRD:
DEVDRO:

/#A
/#A

040

DEVNXR: .ASCIZ

.ASCIZ
.ASCIZ
.EVEN

/%A

UNIT sD3sA

UNIT sD3sA
UNIT sD3sA

DROPPED, NON-EXISTENT REGISTERSN/
DROPPED, NOT READY AT STARTUPSN/
DROPPED, ERRORS = sDsN/

SEQ 0105

TSVSA

HARDWARE TESTS

MACRO V0S5.03

Tuesday 28-Apr-87 10:28

Page 85

SEQ 0106

CLEAN-UP AND REPORT COOING SECTIONS

TSVS::

.TITLE

TSVSA - HARDWARE TESTS

BGNMOD

TSVS

.SBTTL

TEST

BUS RESET TEST

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

BUILT-IN INITIALIZATION SELF-TEST nxcaooncuosuc om Nm FIND
ANY BASIC PROBLEMS IN THE MODULE.

AREAS
OF LOGIC TESTED 8Y THE

SELF - resr seou»:nce ARE AS FOLLOWS: ROM AND PIPELINE nesxsven
SEQUENCER,
INTERNAL BUSES, 2901 MICROPROCESSOR, AND
THis

TEST nminuzss THE coméouea BY ISSUING THE BUS innsmmu.
8Y WRITING INTO THE TSSR REGISTER
WAITS A PERIOD OF TIME ho ALLOW THE CONTROLLER'S INITIALIZATION
VIA A RESET INSTRUCTION

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)
ans BEING SET (1) AND ALL OTHER BITS (EXCEPT Al7 AND A16 AND
WHICH ARE IGNORED FOR THIS TEST) aems CLEAR (0).
IF THE

con*ems OF TSSR ARE NOT AS EXPECTED
ERROR REPORT IS ISSUED
LISTING THE EXPECTED DATA, ACTUAL oA'rAAND THE DISCREPANCIES.
THE ERROR REPORT ANALYZES THE TSSR comems 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 oo NOT CORRESPOND TO THE
APPARENT ERROR COOE IN BITS 0-5):
INDICATES THAT THE
TSSR CONTENT CANNOT BE TRUSTED,

INDICATES A

CATASTROPHIC CONTROLLER MALFUNCTION.
THIS IS A FATAL
ERROR (EXECUTION IS ABORTED).
FIELD ACTION WOULD BE TO

REPLACE THE
DEBUGGED,

IF THE M7196 ITSELF IS BEING

THE PROGRAM SHOULD BE RESTARTED WITH LOOP ON

ERROR ENABLED IN ORDER TO PROBE FOR THE PROBLEM.
2.

SSR

0 AND THE ERROR CODE IN BITS 0-S IS IN
THE amés17- 13=
nus IS A FATAL ERROR, THE ERROR

CODE IS DECOOED AND THE APPROPRIATE DESCRIPTION GIVEN.
INDICATES THAT A SERIOUS PROBLEM EXISTS.

012700
004737
012737

005003

023660
016570
000024

002214

TiLOOP:

Ti::

PC,TSTSETLP

#20. ,LOOPCNT

sASCII MESSAGE TO IDENTIFY TEST
;00 INITIAL TEST SETUP
1PERFORM 20 ITERATIONS

jUSE R3S AS FATAL ERROR FLAG

#71ST1ID,RO

1V /17777777777 BE?}lewTEST 177777777777

104402

TRAP

c4¢BSuUB

HARDWARE

TESTS

BUS RESET
023504

MACRO VO0S.03

Tuesdasy 28-Apr-87 10:28

Page 85-1

SEQ@ 0107

TEST

104433

004737
016501
010102
042702
052702
020102
001405

sISSUE A BUS RESET

BRESET

016330
000002

JSR
:gs

176277

8IC

002200

gxs
MP

BEQ
ERRDF

TRAP

PC ,WAITF
TS§R(RS) R1

sWAIT FOR READY

#SSRINBA,
R2
R1,R2

0* A'?
A SHOLD BE
S
A:EIFXPECTED T0 RECEIVED

ntmnoonsoru.nz

104
ERRNO, SFHERR , SFFMSG

;1GET THE CONTENTS OF TSSR
sCONTENTS OF TSSR

3TD{S€ BITS HAY BE SET

sREP(NY FATAL ERROR

TRAP

C4ERDF

.WORD

SFHERR

.WORD

104:

INC

ENDSUB

005703
001402
004737
005003

L10037;

017262

TST

R3S

JSR
CLR

PC . CKDROP
R3

8EQ

204 :

. WORD
sSET THE FATAL ERROR FLAG
s MAANMANANNNAN END SUBTEST

104403
204

176277
002200

BEQ
ERRDF

TRAP

10¢:

TSSR(RS)
PC,WAITF
TSSR(RS),R1
R1,R2
o+ <HIADOR
! OFL > ,R2
#SSRINBA,
R2
R1,R2

104
ERRNO, SFIERR, SFFMSG

157

017262
016536
023500

204 :

ENDSUB

BEQ
JSR
JSR
8CcC
N

CS$ESLB

sDID WE HAVE FATAL ERROR ?
sBRANCH IF NOT
1GO DROP THIS UNIT, IF ALLOWED
tRESET FATAL ERROR FLAG

ITPESE BITS MAY BE SET

sREADY AND NEW DATA SHOULD BE SET
|CGPARE EXPECTED 70 RECEIVED
:1BRANCH IF COMPARE

sREPORT A FATAL ERROR

TRAP

CHEROF

.WORD

SFIERR

. WORD

1SET THE ERROR FLAG

F MANAMAAANNNANNAN END SUBTEST

L10040:

goo
C .CKDROP
PC, TSTLOOP
404
T1L00P

csBsSuUB

tWRITE TQ ISSUE A SOFT RESET
sWAIT FOR READY TO SET
31GET REGISTER TSSR DATA
sCONTENTS OF TSSR

.WORD

INC

SFFMSG

TRAP

CLR
JSR
MOV
MOV
BIC
8IS
cHP

101

3///77/7/7777777 BE?{NZSWTEST /177777777777

BGNSUB

000002
016330
000002

CHRESET

+tFATAL ERROR DETECTED
1BRANCH IF NOT

1SEE IF TIME TO DROP UNIT

tSHOWLD WE DO ITERATIONS ?
sBRANCH IF NOT
sLOOP UNTIL COUNT EXPIRED

SFFMSG

TRAP

102

CsESUB

TSVSA

TEST

124

HARDWARE TESTS

MACRO V05.03

Tuesdey 28-Apr-87 10:28

Page 85-2

SEQ 0108

BUS RESET TEST

023654
023656

404 ;

104432
000022

EXIT

;ALL DONE THIS TEST

TRAP

C4EXIT

.WORD

L10036-.

TRAP

C$ETST

tLOCAL TEXT MESSAGES FOR TEST
;-

023660

111

156

151

TST1ID:

.ASCIZ
EVEN

'Initislizetion’

ENDTST
023700

L10036:

104401
.SBTTL

TEST

THIS TEST

WRAP DATA - HIGH BYTE

VERIFIES OPERATION OF:

PART OF TD'E LSI 11 BUS INTERFACE SECTION OF THE M7196

MODLLE :

T OF THE INPUT FILE (TSOB HIGH BYTE) PART

OF THE WTPUT FILE (TSSR HIGH BYTE AND TSBA

BYTES), PART OF THE DCOOS TRANSCEIVER CIRCUiTS (ADORESS

DECODER

DRIVER53

BDlL ORIVERS,

06i¢,

HIGH BYTE OF INTERNAL DAL BUS

AND BASIC PROGRAMMED I/0 CONTROL SEQUENCES

PART OF 2901 MICROPROCESSOR ELEMENTS (0 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 TSDB,
WAITS FOR THE SSR BIT IN TSSR TO SET
THEN CHECKS THE CONTENTS

OF BOTH TSBA AND TSSR.

THE MODUWLE I$ 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).
023702
023702
023702
023706
023712
023720
023722

023726

BGNTST
012700
004737
012737
005004
012703

005703

024350
016570
000024

177777

MOV
002214

JSR

T2L00P:

Sé:

MOV

CLR

MOV
TS7

1.
#71ST210,R0

1ASCII MESSAGE T0 IDENTIFY TEST

ozé ,LOOPCNT

1 PERFORM 20 ITERATIONS

PC,TSTSETLP
0 1.R3

100 INITIAL TEST SETUP

L STARTING DATA PATTERN

100 INIT ON FIRST TIME THROUGH

100 WE NEED SOFT INIT

HARDWARE

TESTS

WRAP DATA

023730
023732
023734
023740
023742
023744
023744
023746
023750
023752
023754
023756

MACRO V0S5.03

Tuesdey 28-Apr-87

10:28

Pesge

85-3

001412
005003
004737
103406
010001

B8EQ
CLR
JSR
8Cs
MOV
ERROF

016054

104455

104

R3
PC,SOFINIT

104

RO,R1

ERRNO, SFIERR , SFIMSG

002220

10¢:

FATFLG

100 SOFT INIT OF CONTROLLER
sBR IF SOFT INIT = 0K
$1SAVE CONTENTS OF TSSR

;DEVICE FATAL ERROR DURING INIT
TRAP
.WORD
.WORD

tFORCE SOFT INIT ON NEXT PASS
1CLEAR FATAL ERROR FLAG
$22>>>>>>>>>>>

000001
016330

R4
TSDB;K RS)

1s§
RO,

R1
R4 R2

ERRNO,
T2SSR , EXPREC

002220

15¢:

R3
FATFLG

002220

FATFLG

017262

PC, CKDROP
R‘R

177774

204

204
:

002200
000002
000100

000100

056<BITO'BITI> R2
#SSRINBA,R2
TSSR(RS)
.R1

#OFL .R1

254

:
254

304:

024116
024120
024122

$BRANCH IF NOT
;OON’'T NEED INIT NEXT TIME THRU

.WORD

023762
023762
023764

SEQ 0109

HIGH BYTE

$OFL ,R2

R2,Ri

304
ERRNO
., T2TSSR , EXPREC

BEGIN

SEGMENT

TRAP

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

C$BSEG

1SET _MAINT MODE - \RITE DATA
tWAIT FOR SSR TO SET

1BR IF CARRY SET (GOOO RETURN)

7
lSAVE CONTENTS OF

sDATA THAT WAS \RITTEN

sDEVICE FATAL SSR FAILEDT;OAPSET
LWORD
.WORD
.WORD

1FORCE SOFT INIT ON NEXT PASS
1SET FATAL ERROR FLAG

1LOOP ON ERROR,

IF FLAG SET

1WAS FATAL mon RECEIVED
$BRANCH IF
1SEE IF TIPE 10 DROP UNIT

C4ERDF
202
T2SSR
EXPREC

CsCLP1

1DATA PATTERN WRITTEN

sCLEAR ALL BUT LOW 2 BITS
1BITS 8 AND 9 HAVE LOW DATA BITS
s THESE BITS MUST BE SET ALSO
1GET THE CONTENTS OF TSSR
+1S OFF-LINE BIT SET ?
1BRANCH IF NOT OFF -LINE
1SET OFF-LINE IN EXPECTED DATA
1DOES EXPECTED MATCH RECEIVED ?
10KAY IF MATCH
1TSSR WASN'T CORRECT
TRAP

203
T2TSSR
EXPREC

TRAP

CsCLPY

1FORCE SOFT INIT ON NEXT PASS

TSBA(RS),R1

1GET TSBA REGISTER CONTENTS

;LOOP ON ERROR ?7

1DATA PATTERN WRITTEN

C4ERHRD

.WORD
LWORD
WORD

R2
R4 ,R2
R2
R4 ,R2
R1,R2

C4EROF
201
SFIERR
SFIMSG

1MOVE INTO TOP BYTE
180TH HALVES SHOUWLD BE SAME
1COMPARE EXPECTED TO RECEIVED

TSVSA

TEST

HARDWARE TESTS
WRAP DATA

001405

ggg 024136

005203

238 024140
024140
240
241
242
243

105204
001270
004737
103002

245 024160

024160

246

024162

Page 85-4

SEQ 0110

000137

354
ERRNO, T2TSBA,EXPREC

INC

354
104405

244 024154

BEQ
ERRHRD

104456
000314
024164
015554

239 024140

024142
024144
024146
024152

Tuesdey 28-Apr-87 10:28

HIGH BYTE

231 024124
235 024126
024126

024130
024132
024134

MACRO V0S.03

;ERROR IF NOT EQUAL
sPRINT THE ERROR & EXPD/RECV
TRAP

.WORD
. WORD
.WORD

1FORCE SOFT INIT ON NEXT PASS

ENDSEG

§CCcccccccccc< END SEGMENT <cccccceeccc<
100004:
TRAP

016536

023720

404 :

104432

INCB
BNE
JSR
8CcC

R4
Ss
PC,TSTLOOP
404

1NEXT DATA PATTERN TO TEST
s1BRANCH TILL BACK TQO ZERO
sSHOULD WE DO ITERATIONS ?
;BRANCH IF NOT

EXIT

sALL DONE THIS TEST

JMP

T2L00P

C4ESEG

3LOOP UNTIL COlNT EXPIRED

000214

g:g

CS$ERHRD
204
T2TSBA
EXPREC

TRAP

C4EXIT

WORD

L10041-.

TRAP

CS$ETST

sLOCAL TEXT MESSAGES FOR TEST
‘-

250
251 024164
252 024231
253 024276

254 024350

255
256 024376

024376

287 024376

124
124
116

127

123
123
157

162

102
123
040

141

T2TSBA:
T2TSSR:
T2SSR:

TST2ID:

3
3

263

266

267

2“
ggg

.ASCIZ

'urap Date - High Byte’

.EVEN
ENDTST

L1004]:

.SBTTL

260
261
262§‘S

'TSBA Incorrect After TSDB High Write’
'TSSR Incorrect After TSDB Wi
Write'
'No Sub-System Ready After TSDB
High Write'

104401

gssg

262

.ASCIZ
.ASCIZ
.ASCIZ

H
:

TEST

WRAP DATA - LOW BYTE

THIS TEST FURTHER VERIFIES OPERATION OF MANY OF THE SAME
ELEMENTS TESTED IN TEST 2, AND ADDITIONALLY VERIFIES:
1.

LOW BYTE OF THE TSDB INPUT FILE REGISTER,

LOW BYTE OF INTERNAL DAL BUS DRIVERS ON THE DCOOS

3
:

BASIC FUNCTIONING OF PARTS OF THE RAM.

TRANSCEIVER CIRCUITS,

273

274

275
276

THE PROGRAM WRITES
A TEST DATA BYTE INTO THE LOW BYTE OF

OF BOTH TSBA AND TSSR.

TSDB

WAITS FOR THE SSR BIT IN TSSR TO SET,

THEN CHECKS THE CONTENTS

DATA WRITTEN APPEARS IN BOTH BYTES OF

TSBA

THE MODULE I$ FUNCTIONING CORRECTLY IF
AND

THE FINAL

CONTENT

277
278

3
3

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

280

IF A DISCREPANCY IN TSBA OR TSSR IS DETECTED.

279

WRITTEN.

AN ERROR IS REPORTED AND A DESCRIPTIVE ANALYSIS GIVEN

THE ANALYSIS

HARDWARE TESTS

WRAP DATA

MACRO V0S.03

Tuesday 28-Apr-87

10:28

Peage

85-S

SEQ 0111

LOW BYTE
LISTS LIKELY FAULTY CANDIDATES FROM THE LOGIC ELEMENTS LISTED
THE TEST IS REPEATED FOR ALL COMBINATIONS OF TEST DATA
ABOVE
.
BYTES (0-377 OCTAL).

BGNTST
025043
016570
000024

000001

6TST3ID,R0

002214

PC,TSTSETUP

020.,LOOPCNT

;PERFORM 20 ITERATIONS

¢1,.R3

;FORCE SOFT INIT ON FIRST PASS
1SET IF INIT IS REQUIRED

TILOOP:

Ss:

104

R3
PC,SOFINIT

016054

104

RO,R1

ERRNO, SFIERR, SFIMSG

002220

R3
FATFLG

104:

T13::

sASCII MESSAGE TO IDENTIFY TEST
;00 INITIAL TEST SETUP
:STARTING DATA PATTERN

1BRANCH IF NO INIT NEEDED

sASSUME NO INIT NEEDED ON NEXT LOOP
sD0 SOFT INIT OF CONTROLLER
tBR IF SOFT INIT = 0K
sSAVE CONTENTS OF TSSR
sDEVICE FATAL ERROR DURING INIT
TRAP

sFORCE INIT ON NEXT PASS
tCLEAR FATAL ERROR FLAG
$>>>>>>>>>>>>

BEGIN

.WORD
.WORD
WORD

SEGMENT

R4, TSDB(RS)
PC.WAITF

154

RO.R1
R4 R2

ERRNO, T3SSR, EXPREC

;:DEVICE FATAL SSR FAILEDT;2PSET
.WORD
.WORD
WORD

002220

FATFLG

017262

PC . CKDROP
R4 ,R2

;0ID WE GET FATAL ERROR ?
1BRANCH IF NOT

177774

024570

:SET _MAINT MOOE + WRITE DATA

;FORCE INIT ON NEXT PASS
1SET THE FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG §sxp

154:

204

3sé<axrosaxt1>.a2

002200
000002
000100

#SSRINBA,
R2
TSSR(RS).R1

000100

e0FL ,R2

25%:

8EQ
ERRHRD

Re,R1

304
ERRNO, T3TSSR, EXPREC

C4¢BSEG

tWAIT FOR SSR T0 SET
1BR IF CARRY SET (GOOD RETURN)
$SAVE CONTENTS OF TSSR
;DATA THAT WAS WRITTEN

R3
FATFLG

002220

301
SFIERR
SFIMSG

>5>>>>>>>>>>>

TRAP
000000
016330

C4EROF

;OROP UNIT,

C $EROF
302
T3SSR
EXPREC

C4CLP1

IF DROP ALLOWED

;DATA PATTERN WRITTEN

;CLEAR ALL BUT LOW 2 BITS
;BITS 8 AND 9 HAVE LOW DATA BITS
s THESE BITS MUST BE SET ALSO
1GET THE CONTENTS OF TSSR
:IS DRIVE OFF-LINE
;BRANCH IF NOT OFFLINE

1SET OFF-LINE IN EXPECTED
1DOES EXPECTED MATCH RECEIVED ?
;OKAY IF MATCH
1TSSR WASN'T CORRECT
TRAP

C4ERHRD

TSVSA

TEST

HARDWARE

TESTS

WRAP DATA

000457
024726
015554
005203

346 024620
347 024622
351 024624
024624

020102
001405

024610
024612
024614
024616

104406
016501

005202
150402
000302
150402

304:
000000

000460

024632
ggg 024634

015554
005203
354

105204
001270
004737

016536

360 024652
361 024656
024656

000137

024416

103002

368 024726
369 024772

%;(1) 025043

372 025070
025070
573 025070

404 :

104432

TSBA(RS) ,R1

R2
R4 ,R2
R2
R4 ,R2

Rl ,R2
354
ERRNO, T3TSBA,EXPREC

.WORD
. WORD
.WORD

TRAP
;1GET TSBA REGISTER CONTENTS

; COMPARE EXPECTED TO RECEIVED
1BR IF ERROR NOT EQUAL
sPRINT THE ERROR & EXPD/RECV
TRAP

;CC<cccccc<ccc<

. WORD

END SEGMENT

100004:

C4$ERHRD

304

T3TSBA

EXPREC

<<ccccccccecccc

TRAP

INCB
BNE
JSR

R4
S
PC.TSTLOOP

sNEXT DATA PATTERN TO TEST
sALL DONE WHEN BACK TO ZERO
sSHOULD WE DO ITERATIONS ?

JMP
EXIT

T3LOOP
18T

;LOOP UNTIL COUNT EXPIRED
sALL DONE THIS TEST
TRAP

404

CsCLP]

$
;DATA PATTERN WRITTEN
sMOVE INTO TOP BYTE
;BOTH HALVES SHOULD BE SAME

sFORCE INIT ON NEXT PASS

ENDSEG

303
T3TSSR
EXPREC

CH$ESEG

$BRANCH IF NOT

CSEXIT

. WORD

L10042-.

TRAP

C4ETST

3o
sLOCAL TEXT MESSAGES FOR TEST

124
124
116

127

123
123
157

162

102
123
040

141

T3TSBA:
T3TSSR:
T3SSR:

TST310:

.ASCIZ
.ASCIZ
.ASCIZ

eeg‘z

'TSBA Incorrect After TSDB Low UWrite’
'TSSR Incorrect After TSDB Low Urite’
'No Sub-System Ready After TSDB Low Write'

‘Wrap Dates - Low Byte’

ENDTST

L10042:

104401
.SBTTL

376
377

H
H

379
380
381

3
fl
3

382
383

;FORCE INIT ON NEXT PASS
;LOOP ON ERROR ?

000210

g;g

378

MOV

8CC

363
364

362
367 024662

INC

356 024640
357 024642
358 024644

362

SEQ 0112

.WORD

104405

85-6

024662

355 024636

359 024650

Page

. WORD

354 024636

024636

10:28

INC
CKLOOP
CLR
BISB
SWAB
81s8
CMP
BEQ
ERRHRD

104456

024626

024630

Tuesday 28-RApr-87

LOW BYTE

024572
024574
024576
339 024600
340 024602
024602
341 024604
342
343
344
345

MACRO v0S5.03

:
f
3
H

TEST

RAM TEST

THIS TEST VERIFIES THAT ALL LOCATIONS OF THE RAM ON THE M7196
CAN PROPERLY STORE AND READ BACK ALL DATA PATTERNS, AND THAT

EACH RAM LOCATION IS UNIQUELY ADDRESSED (I1.E.

THAT ONE AND ONLY

ONE LOCATION IS ACCESSED BY ANY PARTICULAR ADISRESS). THESE
TESTS ARE PERFORMED BY THREE SUBTESTS,
DESCRIBED BELOW.
A
BYPROODUCT OF THESE TESTS IS A VERIFICATION OF TWO REGISTERS IN
THE 2901 AND THE CAPABLITY OF THE 2901 TO CORRECTLY PERFORM AN
ADD.

TSVSA

TEST

HARDWARE TESTS

MACRO V0S5.03

Tuesdey 28-Apr-87

10:28

Page 85-7

SEQ 0113

nAM TEST

TEST 4

SUBTEST

THIS SUBTEST VERIFIES EACH RAM LOCATION BY FIRST PLACING THE
M7196 INTO MAINTENANCE MODE BY WRITING INTO THE LOW BYTE OF TSDB
SM_;_,;;E?ogggtt))RHIm THE FOLLOWING SEQUENCE FOR EACH ADDRESS

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

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

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

REPORTED AS AN ERROR.
4,

WRITTEN;

A DISCREPANCY IS

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

UNDER TEST TO AGAIN BE READ INTO THE LOW BYTE OF TSBA.

iT?E'.EPOIL!?‘E‘DBYTE OF TSBA IS AGAIN CHECKED AND DISCREPANCIES
S.

THE HIGH BYTE OF TSBA IS CHECKED;
THE SUM OF

;-[‘g?“?Lea A WORD.

IT SHOULD CONTAIN

THE HIGH AND LOW BYTES LAST WRITTEN INTO

A DISCREPANCY IS REPORTED AS A 2901

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

BGNTST

J4:;

BGNSUB

NIV 222222027 BE?{NISUBTEST 117177277777
T

012737
004737
103405
010001

026402
016570
000005

016054

MOV

002214

T4LOOP:

000621
003652
012104
005004
004737

1ASCII MESSAGE TO IDENTIFY TEST

05, LOOPCNT

{PERFORM S ITERATIONS

PC,SOFINIT
204
RO,R1

;D0 INITIALIZE ON CONTROLLER
1BR IF INIT WAS OK
;CONTENTS OF TSSR REGISTER

PC,TSTSETUP

JSR
BCS
MOV

ERROF

104455

0TST4ID,RO

JSR

MOV

IRAP

ERANO, SFIERR, SFIMSG

;00 INITIAL TEST SETUP

tFATAL ERROR TSSR WAS NOT OK
TRAP

.WORD

016416

204:

CLR
JSR

PC,CHKTSSR

C$BSUB

:SET RAM ADDRESS AT ZERO

tWAIT FOR READY,

.WORD
.WORD

NON-AMBIGUOUS

C4ERDF

401

SFIERR
SFIMSG

HARDWARE TESTS
:

MACRO V05.03

Tuesday 28-Apr-87 10:28

Page 85-8

SEQ 0114

RAM TEST

025140
025144
025144
025144

105065

025146
025150

025202

110402
004737
010465
004737
110265
004737
016501
120102
001404

025206
025210
025212

104456
000622
026240
015554

025160
025170

000000

254%:

104404

CLRB

;SET INTO MAINTENANCE MODE
$222>>>>>>>>>

BGNSEG
MOove
JSR

016416
000000
016416
000000
016416
000000

TSDB(RS)

005204
020427
001347

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

;EXPECTED DATA FROM WRAP-AROUND

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

1LOAD ADDRESS INTO TSD8

PC,CHKTSSR

304
ERRNO, TSBAM2 ,EXPREC

tWAIT

FOR READY,

NON-AMBIGUOUS

sWAIT FOR READY,

NON-AMBIGUOUS

tWAIT FOR READY,

NON-AMBIGUOUS

:READS WRAP DATA
;:DOES WRITTEN(WRAP) = READ

1BR_IF O, THEY ARE EQUAL
sDATA NOT WRAPPED CORRECTLY

TRAP
.WORD

jeccccccccccc<

R4, #10000
254

suB

END

SEGMENT

:
100004

016416
000000
016416
000000

404
:

ERRNO, TSBAM2 ,EXPREC

TSBAH(RS),R1
R4 ,R2
R2
R4 ,R2

R1,R2

504
ERRNO,M2901 ,EXPREL

TSBAM2
EXPREC

TRAP

C$ESEG

sNEXT ADDRESS

;END OF RAM MEMORY CHECK
;LOOP TILL ALL RAM WRITTEN

tOON'T CONTINUE IF ERROR ON WRITE
TRAP

C4ESCAPE

L10044-,

;CLEAR OUT R2 HIGH BITS
1SET BACK TO 7777
;GET DATA PATTERN BACK IN SHAPE
iWAIT FOR READY,
NON-AMBIGUOUS

;LOAD UP RaM ADORESS POI?TER

1CHEC< WITH DATA WRITTEN
DATA IN = DATA OUT
;BR IF OK,

{WRITTEN DATA NOT = TO READ

TRAP

1 SCOPE LOOP

454
:

C4ERHRD
402

<cccccccecccc<

.WORD

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

C$BSEG

1LOADS DATA INTO RAM LOCATION

.WORD
.WORD

30¢:

010000

TRAP

R4 ,R2

104405
025216
025220

BEGIN SEGMENT

sHIGH 3YTE READ OF TSBA

C4ERHRD

.WORD
.WORD
.WORD

403
TSBAM2
EXPREC

TRAP

CtCLP1

:DATA PATTERN WRITTEN

JHIGH TO LOM
:TOTAL OF BYTES IN LOW BYTE
1SUM OF BYTES WRITTEN TO TSD8 = TSBAH
;BR IF OK,
THEY SHOULD BE

12901 PROBLEM ADDER

TRAP

. WORD
LWORD

sésRHRO

M2901

TSVSA

TEST

4:
491

HARDWARE

TESTS

MACRO V0S.03

Tuesdey 28-Apr-87

10:28

Page

85 9

SEQ 0115

RAM TEST

025322
025324

025324

492 025326

:32 025330
495 025332
025332
025332

Pty

498 025334
025334
025334
499

015554

504 ;

104406

005304

DEC

002342

BGE

104402

;

S01

ggz

502

506 025342

: SCOPE LOOP
R4

;DROP

404

004737

103405

016054

DATA

COUNTER

iNOT AT LOC.

.MORD

EXPREC

RAP

C$CLPI

(PATTERN)

ZERO YET

ENDSUB

s ANANNANNNANNANN END SUBTEST NN
L10044;
TRAP
C$ESUB

BGNSUB

1//7/7/777777777 BEGIN SUBTESTY /77777777777
14.2;
TRAP
C$8SUB

104403

500

505 025336

CKLOOP

TEST 4,

SUBTEST 2

THIS SUBTEST WRITES RAM WITH ALL ZEROS

THEN WALKS AN ALL ONES WORD DOWN THROUGH MEMORY

JSR

PC,SOFINIT

;00 INITIALIZE ON CONTROLLER

MOV

RO,R1

;CONTENTS OF TSSR REGISTER

BCS

204

ERAND , SFIERR , SFIMSG

R2
R4

PC CHKTSSR

1S0B(R

:BR IF INIT WAS OK

:FATAL ERROR TSSR WAS NOT OK
TRAP

;TEST DATA = 0
1STARTING RAM ADDRESS =
sWAIT FOR READY

.MORD
-MORD
-MORD

AHBIGUOUS

:SET INTO nAINTéNANc
$2>>>>>>555>>

BEGIN SEGMENT

TRAP

>>>>>>5>>>>>

PC,CHKTSSR

sWAIT FOR READY,

NON-AMBIGUOUS

PC.CHKTSSR

;UAIT FOR READY,

NON-AMBIGUOUS

tWAIT FOR READY

IGUOUS

R4, TSDB(RS)

az TSDB(RS)
CHKTSSR

1sén(n5) R1
1,R2

300

ERRNO, TSBAM2 , EXPREC

ILOADS DATA INTO RAM _LOCATION

\READS WRAP DATA

sDOES WRITTENCWRAP) = READ ?

1BR IF OK,

THEY ARE EQUAL

1DATA NOT WRAPPED CORRECTLY

TRAP

. WORD
.WORD
gcccccccccccc<c

254

C#$BSEG

1LOAD ADORESS INTO 1508

. WORD

R4
R4 , #10000

C$ERDF

405
SFIERR
SFIMSG

END SEGMENT

:
100004

sNEXT ADORESS
;END OF RAM MEMORY CHECK

1BR, MORE RAM TO GO

C$ERHRD

406

TSBAM2
EXPREC

<<cccccccccce<

TRAP

C4ESEG

TSV3A

TEST

$37

HARDWARE TESTS

MACRO V0S.03

Tuesday 28-Apr-87

10:28

Pege

85-10

SEQ 0116

RAM TEST

S38 025452

005304

005002
004737
010465
004737
016501
005002
120102
001404

104456
000627
026322
015554

012702
010465
004737
110265
004737
016501
120102
001404

354

016416
000000

404 :

016416

000000

DEC

CLR
JSR
MOV
JSR
MOV
CLR
CP8
BEQ

ERRHRD

000377
000000
016416
000000
016416
000000

104456
000630
026240
015554
104406
004737 016416
010465 000000
004737 016416
116501
000001
010403
000303
060403
120103
001404
104456
000631
026150
015554
104406
005304
002312

434

MOV
MOV
JSR
MOVB
JSR
MOV
CMP8
BEQ

R2
PC,CHKTSSR
R4, TSDB(RS)
PC . CHKTSSR
TSBA(RS),R1
R2
R]1,R2
43§

ERRNO, TSBAM3 , EXPREC

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

ERRHRD ERRNO, TSBAM2 , EXPREC

454

CKLOOP

JSR
MOV
JSR
MOVB
MOV
SWAB
ADD
CHP8
BEQ

ERRHRD

SO$ ;

PC.CHKTSSR
R4, TSOB(RS)
PC.CHKTSSR
TSBAH(RS).R1
R4, R3
R3S
R4 ,R3
R1.R3
S04

ERRNO,M2901
, EXPREC

CKLOOP

DEC
BGE
ENDSUB

104403
BGNSUB

104402

R4
404

;SET BACK TO 7777

1SET TO ALL ZEROS
{WAIT FOR READY (SSR) TO SET
:LOAD UP THE ADORESS FOR RAM
iMAIT FOR READY (SSR) TO SET

{READ THE RAM CONTENTS BACK
;LOOKING FOR 000000 (EXPECTED)
1BOTH SHOULD BE 00000000 BINARY
{BR, IF DATA IS GOOO

;CHARACTERISTICS DATA NOT CORRECT

TRAP
.MORD
"WORD
JMORD

:SET ALL ONES WORD
1LOAD UP RAM ADDRESS POINTER
1WAIT FOR READY, NON-AMBIGUOUS
{WRITE DATA INTO RAM
iWAIT FOR READY, NON-AMBIGUOUS
:READ RAM CONTENTS BACK
;CHECK WITH DATA WRITTEN
;BR IF OK, DATA IN = DATA OUT
JWRITTEN OATA NOT = TO READ

TRAP
C4ERHRD
.MORD 408
‘WORD
TSBAM2
-MORD
EXPREC
1SCOPE LOOP
TRAP
C4CLPL
;WAIT FOR READY, NON-AMBIGUOUS
sWORD WRITE TO SET UP ADDRESS
sWAIT FOR READY, NON-AMBIGUOUS
tHI ' BYTE READ OF TSBA
:DATA PATTERN WRITTEN
sHIGH TO LOW
;TOTAL OF BYTES IN LOW BYTE
1SUM OF BYTES WRITTEN TO TSDB = TSBAH
:BR IF OK, THEY SHOWD BE
12901 PROBLEM ADDER
TRAP
C4ERHRD
.MORD
409
CWORD M2901
"MORD
EXPREC
: SCOPE LOOP
TRAP
C$CLP1
;DROP RAM ADDRESS POINTER
tNOT AT LOC. ZERO YET
£ VAN E'?OOS%TESY AN NSNSNNRRNNNNY
L

TRAP

C4ESUB

8 /77777777777 BE?{NSSLBTESY /1777777777777

TRAP

C4ERHRD
407
TSBAMS
EXPREC

C#8SUB

<oty

JSVSA - HARDUWARE TESTS
TEST

MACRO V05.03

Tuesday 28-Apr-87 10:28

SEQ 0117

Pege 85-11

RAM TEST
TEST 4,

SUBTEST 3

THIS SUBTEST WRITES RAM WITH ALL ONES
THEN WALKS A ZERO WORD DOWN THROUGH MEMORY

004737

016054

010001

104455
000632
003652

012104
012702
005004
004737
105065

177777
016416
000000

204
:

254:

016416
000000
016416
000000
016416
000000

PC SOFINIT

ERROF

enéno SFIERR, SFIMSG

MOV
CLR
JSR
CLRB

#177777,R2
R4
PC,CHKTSSR
TSOB(RS)

tFATAL ERROR TSSR WAS NOT OK
TRAP

sSET DATA AT ALL ONES
1 SET_RAM ADORESS AT ZERO
sWAIT FOR READY,

.WORD
.WORD
.WORD

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

ERRHRD

ERRNO, TSBAM2 , EXPREC

R1,R2

sot

NON-AMBIGUOUS

meuos WRAPoATA

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

1DOES WRITTENC(WRAP) = READ ?
s1BR IF OK, THEY ARE EQUAL

IDATA NOT WRAPPED CORRECTLY
TRAP

j¢cccccccccccc

INC

BNE

254

ESCAPE

END SEGMENT

:
100004

C4ERHRD
411
TSBAM?
EXPREC

ccccccecccccc

TRAP

R4, #10000

tNEXT ADORESS
1END OF RAM MEMORY CHECK

SUB

+NO CHECK IF WRITTEN INCORRECTLY

016416
000377

oesg
J
Fcfx

“ CHKTSSR
0060377 R2

000000
016416
000000

MOV
JSR
MOV
cHee

m 1saa<ns>
TSSR
TséA(RS) R1
R2

€

ERRNO, TSBAMS, EXPREC

BFQ

C4BSEG

NON-AMBIGUOUS

. WORD
L4050
. WORD

ENDSEG

C4ERD

410
SFIERR
SFIMSG

$1SET INTO MAINTENANCE MOOE

TRAP

JSR
MOV
JSR
MOVB
JSR
MOV

CP8

100 INITIALIZE ON CONTROLLER
18R IF INIT WAS OK
;1CONTENTS OF TSSR REGISTER

$2>>>>>>>>3>>> BEGIN SEGMENT

BGNSEG

BEQ
304:

010000

JSR

430

C4ESEG

1BR, MORE RAM TO GO

TRAP

WORD

1SET BACK 1O 7777
JWAIT FOR READY, NON-AMBIGUOUS

CHESCAPE

L 10046-.

1SET UP EXPECT'D om\ REGISTER

;CLEAN OUT RFGISTER
+SELECY ADDR:SS IN RAM
1MAIT FOR READY

1PICK UP RAM C

(SSR)

ONES)

tMEMORY CHANGED AFTER ALL ONES WRITE

TSVSA

TEST

HARDWARE TESTS

MACRO Y05.03

Tuesdey 28-Apr-87 10:28

Page

85-12

<EQ 0118

RAM TEST

026014
026016
026020
026022
638 026024

639 026026
640 026032
641 026036

104456
000634
026322
015554
005002

010465
004737
110265
004737

016501
120102
001404

434

000000
016416
000000
016416

000000

CLR

104456
000635
026240
015554
104406
004737 016416
116501 000001
010203
000303
060203
120103

454

S04 :

TSBA(RS),R1
R1,R2
454

sREAD RAM CONTENTS BACK
;CHECK WITH DATA WRITTEN
;BR IF OK, DATA IN = DATA OUT

ERRHRD

ERRNO, TSBAM2, EXPREC

PC,CHKTSSR
TSBAH(RS),R1
R2,R3
R3
R2,R3
R1.R3
So¢

;WAIT FOR READY, NON-AMBIGUOUS
tHIGH BYTE READ OF TSBA
;DATA PATTERN WRITTEN
JHIGH TO LOW
;TOTAL OF BYTES IN LOW BYTE
;SUM OF BYTES WRITTEN TO TSDB = TSBAH
1BR IF OK, THEY SHOWLD BE

C4ERHRD
414
M2901
EXPREC

R4
404

TRAP
.MORD
JHORD
"WORD
1 SCOPE LOOP
TRAP
;DROP RAM ADDRESS POINTER
iNOT AT LOC. ZERO YET

ERRNO,M2901 ,EXPREC

025112

634:

104432
000256

JSR
BCC
JHP

EXIT

12901 PROBLEM ADDER

C$CLP1

£ VANNNANNANANNNNN E“l)og‘l%TEST NANNANNNNNNNW
L

104403
016536

JWRITTEN DATA NOT = TO READ

1 SCOPE LOOP

ENDSUB

004737
103002
000137

;LOAD UP RAM ADDRESS POINTER
iWAIT FOR READY, NON-AMBIGUOUS
JWRITE DATA INTO RAM
{WAIT FOR READY, NON-AMBIGUOUS

C4ERHRD
413
TSBAM2
EXPREC
C4CLP1

CKLOOP

DEC
BNE

C4ERHRD
412
TSBAM3
EXPREC

TRAP
.MORD
'WORD
JWORD
TRAP

CXLOOP

ERRHRD

104456
000636
026150
015554
104406
005304
001315

;SET UP NEW EXPECTED

R4, TSDB(RS)
PC.CHKTSSR
R2.7SDB(RS)
PC . CHKTSSR

JSR
MOVB
MOV
SWAB
ADD
CHP8
BEQ

001404

MOV
JSR
MOVS
JSR

MOV
cHPB
BEQ

TRAP
.WORD
"WORD
'WMORD

PC,TSTLOOP
634
T4L0OP
TST

TRAP

C4ESUB

100 WE NEED TO ITERATE TEST ?
1BRANCH IF NOT
1EXECUTE AGAIN
;ALL DONE THIS TEST

TRAP
.MORD

C4EXIT
L10043-.

;LOCAL TEXT MESSAGES FOR TEST
-

040

124

123

M2901:

.ASCIZ

‘' TSBA High g&. Not Sum of Lest TSDB Write (2901 Error)’

122

101

115

TST4ID:

.23&1‘2

'RAM Ver;fication’

040
127

127
162

162
1S1

TSBAM2:
TSBAM3:

.ASCIZ
_ASCIZ
ENDTST

' MWrite to T
Not Equal to Reed of TSBA Low Byte’
'UWrite To RAM Locetion Modified Another Location’

L10043:

Tuesday 28-Apr-87

10:28

Pege

85-13

SEQ 0119

RAM TEST

TRAP

104401

TEST

C$ETST

SECOND INITIALIZATION TEST

THIS TEST VERIFIES THE SAME ELEMENTS AS DID INITIALIZATION TEST
#1 AND ALSO CHECKS THAT CERTAIN PARTS OF RAM IS CLEARED T0 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 INITIALIZING VIA A BUS INIT,
THE OTHER FOR

INITIALIZING BY WRITING INTO THE TSSR), THE FOLLOWING SEQUENCE

IS PERFORMED:

EACH RAM LOCATION AND 2901 REGISTERS 10 AND 11 ARE SET

THE CONTROLLER IS INITIALIZED AND THE VARIOUS CHECKS ON

T0 AL 1'S BY USING WRITES INTO THE 1508 REGISTER (LOW
BYTE AND MAINTENANCE MOOE WORD WRITESS:
THE TSSR DESCRIBED IN INITIALIZATION TEST #1 ARE
PERF ORMED .

.SBTTL

01'S (377 OCTAL) ARE WRITTEN INTO THE LOW BYTE OF TSDB.

mxcn SHOULD CAUSE RAM LOCATION O TO BE WRITTEN TO ALL

S SINCE 2901 nssxsrens 10 AND 11, SPECIFYING THE RAM

ADDRESS. SHOWD 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.

THE ENTIRE RAM IS SCANNED.

DISCREPANCIES
ARE

G+

LOCATION O SHOWLD CONTAIN

ALL 1'S AND THE REMAINING LOCATIONS, excen FOR THE
MESSAGE BUFFER IHAGE AREA,
SHOULD CONTAIN
O

REPORTED.

AN ERROR AT THIS POINT IS

MOST LIKELY DUE TO
A non PIPELINE OR SEQUENCER PROBLEM
OR A TIMING PROBLEM.

026424

4&:

MACRO V0S.03

TEST

HARDWARE TESTS

Cl0

TSVSA

027400
016570
000024
002220

002214

BGNTST
MOV
JSR
MOV
TSLOOP:
CLR

#TSTSID,RO
920. ,LOOPCNT
FATFLG
PC,TSTSETUP

BGNSUB

s,
JASCII MESSAGE T0 IDENTIFY TEST
;00 INITIAL TEST SETUP
}PERFORM 20 ITERATIONS
;CLEAR THE FATAL ERROR FLAG
1/7/7/777/77/7777 BE?%NISLBTEST /17777777777
TRAP

016054

JSR

BCS

ERROF

PC,SOFINIT
104

ERRNO, SFIERR, SFIMSG

csBsuB

;00 A SOFT m START

1BRANCH IF 0.K

;REPORT ERROR AND DROP onxve

uono

'MORD

S01

SFIERR

D10

TSVSA - HARDWARE TESTS
TEST

S:
739
740
741
742
743
744
745
746
747
748
749
750

MACRO V0S5.03

Tuesdey 28-Apr-87 10:28

SEQ 0120

SECOND INITIALIZATION TEST

026466
026470

026474
026476
026502
026506
026512
026516
026522
026526
026530
026534
026536

751 026540
752 026544

753 026550
754
755 026556

756

012104
012702

005004
004737
105065
004737

177777
016416
000000
016416
000000
016416
000000

10¢:

R4
PC,CHKTSSR
TSOB(RS)

15¢:

PC,CHKTSSR

R4 ,TSOB(R3)

PC,CHKTSSR

g% . TSOB(RS)

tWAIT FOR READY,

.WORD

SFIMSG

NON-AMBIGUOUS

1SET _MAINTENANCE MOOE
tWAIT FOR READY, NON-AMBIGUOUS

1SET _THE NEXT RAM ADDRESS

tWAIT FOR READY, NON-AMBIGUOUS
sLOAD TEST DATA
sNEXT ADDRESS TO TEST

R4, 97777

1COMPARE TO LAST ADORESS
1BRANCH TILL AL%EDATA WRITTEN
1ISSUE A BUS

016416
000002

PC,CHXTSSR

JWAIT FOR READ

némnoon:oru.az

OF
1 CONTENTS
s THESE BITS HAY BE SET
sREADY AND NEW DATA SHOULD BE SET
1COMPARE EXPECTED TO RECEIVED
1BRANCH IF COMPARE

vséR(RSJ R1

176277

002200

OSSR !NBA , R2
R1,R2

204
ERRNO, SFHERR , SFFMSG

002220

204
:

016416
000000
016416
000000
000377
016416
000000
016416
000000
016416
000000

002220
026706

000310

1GET THE comenfs
OF TSSR

sREPORT

A FATAL ERROR

TRAP

.WORD
.WORD
WORD

1SET FATAL ERROR FLAG
1LOOP ON ERROR IF FLAG SET

suB

1EXIT IF FATAL ERROR WTECTED

PC CH(TSSR

tWAIT FOR SSR TO SET
1PUT BACK INTO mxmmnce MODE

1SOB(R

PC, cuassa
TSOB(RS)
9377.R2
PC.,CAKTSSR
R2.TSDB(RS)
PC . CHKTSSR
TSOB(RS)

PC.CHKTSSR

TSBA(RS),R1
R1,R2

254

TRAP

-AMBIGUOUS

FATFLG

254

782 026712

sALL ONE DATA PATTERN
1STARTING RAM ADDRESS

007777

757 026564
761 026566

781

Pege 85-14

IWAIT FOR READY,

502
SFHERR
SFFMSG

C4CLP1

C4ESCAPE
L10050-.

NON-AMBIGUOUS

aUAIT Fm READYé NON- AMBIGUOUS
NON - AMBIGUOUS

s SELECT LOCATION 0
tWAIT FOR READY,

NON-AMBIGUOUS

sREAD RAM LOCATION SPECIFIED
3LOCA;I$ SHOWLD BE 377 OCTAL
BR I

JMASN'T POINTING TO CORRECT LOC

INC
CKLOOP

FATFLG

.WORD
.WORD
.
1SET THE FATAL ERROR FLAG

ESCAPE

SuB
#310,R4

CS$EROF

sser ADORESS aAéx T0 0000

ERRNO, TSADDR , EXPREC

MOV

C4RESET

1SCOPE LOOP

TRAP

CS$EROF
502
TSADOR
EXPREC

TRAP

csCLP)

.WORD

L10050-.

tNO MORE CHECKS IF FATAL ERROR
TRAP
s1START WITH LOC 310

C4ESCAPE

E10

TSVSA

TEST

HARDWARE TESTS

MACRO V0S.03

Tuesdey 28-Apr-87 10:28

Page 85-15

SEQ 0121

SECOND INITIALIZATION TEST

783
784
785
786
787

026716
026720
026724
026730
026734
788 026740
789 026742

005002
004737
010465
004737
116501
120102
001406

026744
026746
026750
026752
791 026754
792 026760
026760
026762
026762
026764
026766

104455

790 026744

000766
027430
012152
005237

016416
000000

1MEMORY EXPECTED SHOWLD BE 000000

R4 .TSOB(RS)
PC . CHKTSSR

1SELECT LOCATION SPECIFIED
1WAIT FOR READY, NON-AMBIGUOUS
sREAD LOC CONTENTS
1CHECK MEMORY FOR 000000
sBRA?CH IF DATA OKAY
sMEMORY NOT ZERO AFTER INIT,
TRAP

PC,CHCTSSR

304:

TSBA(RS),R1

R1,R2

404

ERRNO
, TSMEM, SFFMSG

002220

104406

404:

104410
000012
005204
020427
001353

tWAIT FOR READY,

INC
CxLOOoP

FATFLG

WORD
.WORD
.WORD
1SET THE FATAL ERROR FLAG

ESCAPE

suB

1EXIT ON FATAL ERROR

INC
BNE

R4
R4, #400

=04

ENDSUB

027016

027016
027016
027016

002220

017262
002220

TRAP

1LOOK AT NEXT RAM LOC.
1AT

.WORD

L100S0:

FATFLG
S04

CLR

FATFLG

PC, CKDROP

502
TSMEM
SFFMSG

CsCLP1

CS$ESCAPE

L10050-.

TOP OF RAM ADDRESS SPACE

s AANANNNNANNNAN END SUBTEST

TS7
BEQ

CHEROF

1BRANCH TILL ALL MEMORY TESTED

104403
005737
001404
004737
005037

NON-AMBIGUOUS

TRAP

C4ESUB

3115 FATAL ERFOR FLAG SET ?
;BIFANCH IF NOT

tNO LOOP, TRY 10 DROP DEVICE
;CLEAR THE FATAL ERROR FLAG
8///7/77 17777 BE?%stlBTEST 117777777777

TRAP

104402
004737
103404

016054

JSR
8cs
ERROF

104453
000767
012104
012702
005004
004737
05065
004737
010463
004737
110265
005204
020427
003762
005065
004737
016501

:835(71981

ERRNO, SFIERR, SFIMSG

A SOFTY TO START
;00
1BPANCH IF 0.X

+~EPORT ERROR
AND DROP DRIVE

.HORD
177777
016416
000000
016416
000000
016416
000000

104:
154:

#-1,R2
R4
PC, CHKTSSR

TSOB(RS)

PC.CHXTSSR
R4 .TSDB(RS)
PC. CHKTSSR
R2.TSDB(RS)

.WORD
.WORD

;ALL ONE DATA PATTERN
:STARTING RAM ADORESS
sMAIT FOR READY, NON-AMBIGUOUS

1SET MAINTENANCE MODE
sWAIT FOR READY,
NON-AMBIGUOUS
1SET THE NEXT RAM ADDRESS

007777

R4 87777

JWAIT FOR READY, NON-AMBIGUOUS
1LOAD TEST DATA
tNEXT ADDRESS TO TEST
1COMPARE TO LAST ADDRESS

000002
016416
000002

PC,CHKTSSR

{WAIT FOR READ

TS4R(RS),R1

csBSLB

JBRANCH TILL ALL DATA WRITTEN
L ISSUE A SOFT RESE

1GET THE comenfs
OF TSSR

-AMBIGUOUS

C4ERDF

503

SFIERR
SFIMSG

F10

TSVSA

TEST

S5:

HARDWARE TESTS

MACRO V0S.03

Tuesdey 28-Apr-87 10:28

Pege 85-16

SEQ 0122

SECOND INITIALIZATION TEST

828 027120
829 027122
830 027126
a3l
832
836

010102
042702
052702
020102
001406

837

8IC
81S
cHP
8EQ
ERRDF

002200

002220

838

MOV

176277

204
:

839
016416
000000
016416
000000
000377
016416
000000
016416
000000
016416
000000

R1,R2

1CONTENTS OF TSSR

#SSRINBA,
R2
R1,R2

1READY AND NEW DATA SHOWLD BE SET
sCOMPARE EXPECTED TO RECEIVED
1BRANCH IF COMPARE

#1C <HIADOR
! OFL > ,R2

204
ERRNO, SFHERR , SFFMSG

s THESE BITS MAY BE SET

tREPORT A FATAL ERROR

TRAP

504
SFHERR
SFFMSG

TRAP

csCLP1

TRAP

C4ESCAPE
L100S1-.

FATFLG

1SET FATAL ERROR FLAG
;LOOP ON ERROR IF FLAG SE

su8

tEXIT IF FATAL ERROR DETECTED

PC,CHKTSSR

12
08
1S0B(RS)

#377,R2
PC.CHCTSSR

1SOB(RS)

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

25
ERRNO, TSADOR, EXPREC

. WORD

1WAIT FOR SSR TO SET
1PUT _BACK INTO MAINTENANCE MODE
JWAIT FOR READY,

NON-AMBIGUOUS

1SET ADORESS BAEK TO 0000
3

iWAIT FOR READY,

NON-AMBIGUOUS

iWAIT FOR READY,

NON-AMBIGUOUS

1WAIT FOR READY,

NON-AMBIGUOUS

1SHOULD POINT TO RAM O
1SELECT LOCATION O

;READ RAM LOCATION SPECIFIED

;LOCATION SHOULD BE 377 OCTAL
:BR IF OK

tWASN’'T POINTING TO CORRECT LOC.
TRAP
C4EROF

. WORD
. WORD

002220

855

254:

FATFLG

1SET _THE FATAL ERROR FLAG
1SCOPE LOOP

SuB

tNO MORE CHECKS IF FATAL ERROR

000310
016416
000000
016416
000000

304:

EXPREC

TRAP

C4CLP)

TRAP

C4ESCAPE
L10051-.

NON-AMBIGUOUS

s SELECT LOCATION SPECIFIED
sWAIT FOR READY, NON-AMBI

R1,R2
40

1BRANCH IF DATA OKAY

TSBA(RS),R1

104455

104406

sWAIT FOR READY,

ERRNO, TSMEM, SFFMSG

sREAD LOC CONTENTS
1 CHECK MEMORY FOR

tMEMORY NOT ZERO AFTER I"I%IP
. WORD

. WORD

002220

504

TSADDR

s1START WITH _OC 310
1MEMORY EXPECTED SHOWWLD BE 000000

001406

027430
012152
005237

C4ERDF

. WORD
. WORD
. WORD

404
:

FATFLG

1SET THE FATAL ERROR FLAG

suB

1EXIT ON FATAL ERROR

TRAP

CHERDF
S04
SFFMSG

csCLPl

G10

TSVSA

TEST

HARDWARE TESTS

MACRO V05.03

Tuesday 28-Apr-87 10:28

104410
000012

870 027340

020427

869 027336

g;é 027344

005204

001353

000400

027346

104403

87S 027350

005737

879 027366

880 027370
881 027374
027374
027376

BNE

304

001402
004737
004737

103002

000137

002220

017262

016536

026444

104432
000132

883

8CC

604

60%:

JMP
EXIT

105

170

164

TSTSID:

ggg 027466

111

156

143

TSADDR: eegz

888 027430

111

156

143

TSMEM:

891 027530

027530

;1S FATAL ERROR FLAG SET

C$ESLB

S04
PC,CKDROP
PC,TSTLOOP

1BRANCH IF NOT
tNO LOOP, TRY TO DROP DEVICE
1SHOULD WE DO ITERATIONS ?

TSLOOP
K3

sLOOP UNTIL COUNT EXPIRED
;ALL DONE THIS TEST

$BRANCH IF NOT

027530

.ASCIZ

TRAP
.WORD

C$EXIT
L10047-.

TRAP

C$ETST

'Extended Initislization’

.ASCIZ

'Incorrect RAM Date After Init’

‘Incorrect RAM Address After Init’

ENDTST

L10047:

104401

.SBTTL

896
897

907

898
899
900
901
902
903
904
905
906
908
909

91S
916

TRAP

;LOCAL TEXT MESSAGES FOR TEST

887 027400

1AT TOP OF RAM ADDRESS SPACE
;BRANCH TILL ALL MEMORY TESTED
S1:

FATFLG

S04 :

C4ESCAPE
L100S51-.

s ANNANANNNNNANNY END SUBTEST NANNNNNNY

TST

8EQ
JSR
JSR

TRAP
.WORD

684

910
911
912

;LOOK AT NEXT RAM LOC.

R4, 0400

ENDSUB

a4 027346

876 027354
877 027356
878 027362

INC

cMP

873 027346

892
893
3345

SEQ 0123

SECOND INITIALIZATION TEST

027332
027334

882

Page 85-17

(

TEST

COMMAND REJECT

THIS TEST VERIFIES THAT ALL COMMANDS OTHER THAN WRITE

3
3
3
;
3
3
:
:
}

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 COMMAND WORDS (OTHER
THAN WRITE CHARACTERISTICS) WITH THE INTERRUPT ENABLE (IE) BIT
CLEAR AND VERIFIES THAT AN INTERRUPT IS NOT GENERATED BY THE
REJECTED COMMAND
UBTEST 2 PERFORMS SIMILARLY TO SUBTEST 1 BUT

3
3

INTERRUPT IS GENERATED WHEN THE COMMAND IS REJECTED. SUBTEST 1
SETS UP THE INTERRUPT SERVICE ROUTINE TO FLAG UNEXPECTED

FOLLOWING SEQUENCE IS PERFORMED:

:
3
:
[}

F
3

SETS THE IE BIT iNEACH COMMAND WORD AND VERIFIES THAT AN

INTERRUPTS.
THE C
WORD IN THE COMMAND BUFFER IS
INITIALIZED TO 100000 (OCTAL) AND THE REMAINING THREE uoRos IN
THE COMMAND BUFFER ARE SET TO XKNOWN UNIQUE PATTERNS.
THEN

INITIALIZE THE CONTROLLER BY WRITING INTO THE TSSR;

PROPER INITIAL

CONDITIONS ARE VERIFIED.

-—*“

H10

TSVSA

TEST

HARDWARE TESTS

MACRO V0S5.03

Tuesdesy 28-Apr-87

10:28

Page 85-18

SEQ 0124

COMMAND REJECT

918

919
ggg

:
:

922

gg}

:
H

925

926

4.,

33;

;

929
930

3:}3

;
'

THE CONTENTS OF

TSSR IS CORRECT IF

TSSR ARE CHECKED.

IT CONTAINS EITHER OCTAL 102206 OR 102306 (BIT 6
UPON

THE

STATE

THE

USING THE MAINTENANCE MODE WRAPAROUND FUNCTIONS,

COMMAND IMAGE BLOCK IN THE M7196'S RAM (LOCATIONS

201-210 (OCTAL)) ARE C%CKEDA

gzg

CPU MEMORY.

941
942
943
944
945

THE

THE IMAGE SHOULD CONTAIN

A COPY OF THE FOUR COMMAND PACKET WORDS AS SET UP IN

}
3
3
:
:

g:g

TRANSPORT).

THE CONTENTS OF TSBA ARE CHECKED. TSBA SHOULD CONTAIN
THE INITIAL COMMAND BUFFER ADDRESS (LOADED IN STEP 2)

937

938

TAPE

PACKET WORDS ARE ALWAYS FETCHED).

936

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

935

THE PROGRAM WAITS FOR SSR TO SET;

AN ERROR REPORT IS ISSUED AND THE TEST IS ABORTED.

DEPENDS

:
i

931
932

TSDB IS WRITTEN WITH ADDRESS OF THE COMMAND BUFFER TO
START PROCESSING.

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 HAS NOT REACHED ITS MAXIMUM VALUE
(177777.1), THE TEST SEQUENCE IS REPEATED.

H
H

950
951

3
3

3§§

954 027532
027532

959 027532
960 027536
961 027542
962 027550

963 027550
027550
%64 027550
965 027552

012700
004737
012737

030763
016570
000024

012700

000000

966 027560
967 027564
968 027570

012704
012703
012314

030440
002752

027572

104404

969 027572

104441

970 027574

004737

97S 027602

010001

971 027600

T6LOOP:

VERIFIES THAT AN INTERRUPT OCCURS.
BGNTST

MOV
JSR
MOV

#1ST61ID,RO
PC,TSTSETUP
920.,LOOPCNT

BGNSUB

103405

016054

SETPRI

S$:

76::

tASCII MESSAGE TO IDENTIFY TEST
;D00 INITIAL TEST SETUP
+PERFORM 20 ITERATIONS
$//7//7777777 BEGIN SUBTEST ////7//7/7/777
76.1:
TRAP
csBSUB

104402

027552

027556

002214

SUBTEST 2 IS IDENTICAL TO SUBTEST 1, EXCEPT THAT THE PROGRAM
CAUSES THE IE BIT TO BE SET IN EACH COMMAND WORD AND THEN

OPRIOO

;LOWER PRIORITY TO ALLOW INTERRUPTS

MOV

TRAP

#PR100,RO

C$SPRI

MOV
MOV
MOV

#T6PACKET R4
0TSTBLK,RS
(R3).,(R&)

1GET THE ADDRESS OF COMMAND PACKET
;BLOCK OF TEST DATA
;INSERT THE NEXT TEST DATA WORD

JSR

PC,SOFINIT

100 SOFT INIT OF comaou.en

MOV

RO,R1

aSAVE CONTENTS OF TSSR

BGNSEG
8CS

104

$2>>>>>>>>>>>> BEGIN SEGI'ENT >33333>>>>>>
TRAP

iBR IF SOFT INIT

= OK

C4BSEG

110

TSVSA

TEST

HARDWARE

989
991
992

997

MACRO V05.03

Tuesday 28-Apr-87

10:28

Page 85-19

SEQ 0125

COMMAND REJECT

976 027604
027604
027606
027610

982

TESTS

ERRODF

104455

027612
027614
027620
027624
027630
027634
027640
027644
027646
027650
027650
027652
027654
027656
027660
027664
027664
027666
027666
027670
027672
027676
027700
027700
027702
027704
027706
027710
027714
027720

002220
002222
016416
000200
000000
016330

10¢:

CLR
CLR
JSR
BIC

JSR
B8CS
ERRDF

002220

15¢:

002222

102206
016416

22%:

000002
000100

000100

ERRNO, SFIERR, SFIMSG

104406
004737
016501

;CLEAR FATAL ERROR FLAG

08177, (R4)

;DISABLE INTERRUPTS

000010
001404

104456
001135

030711
015554

;CLEAR INTERRUPT RECEIVED FLAG

1WAIT FOR _READY,

R4, TSOB(RS)

$:SET THE PACKET ADDRESS

154

iBR IF CARRY SET (GOOD RETURN)
;SAVE CONTENTS OF TSSR

PC . WAITF

RO,R1

ERRNO, T6SSR, PKTSSR

NON-AMBIGUOUS

iWAIT FOR SSR TO SET

;DEVICE FATAL SSR FAILEDT;gpSET
.WORD
. WORD
. WORD

INC
CcKLooP

FATFLG

1SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG §SXP

ESCAPE

SuB

;BY-PASS SUBTEST IF FATAL ERROR

TST
BEQ
ERRHRD

INTRECV
224

ERRNO,
T6INT ,PKTSSR

OSC!NBA!SSR!TSREJ,R2
PC,CHKTSSR
TSSR(RS) ,R1

CSERDF

601
SFIERR

SFIMSG

PC,CHKTSSR

TRAP

;0ID AN INTERRUPT OCCUR ?

C4EROF

602
T6SSR

PKTSSR

CsCLPL

C4ESCAPE
L10053-.

;BRANCH IF NOT

C4ERHRD
603

-WORD

;EXPECTED CONTENTS OF TSSR
{WAIT FOR READY,

T6INT
PKTSSR

NON-AMBIGUOUS

;GET THE CONTENtS OF TSSR
11S OFF-LINE BIT SET ?

1BRANCH IF NOT OFF -LINE

1SET OFF-LINE IN EXPECTED DATA

25%:

;DOES EXPECTED MATCH RECEIVED ?
;OKAY IF MATCH
:NBA NOT SET TO REJECT

1LOOP ON ERROR ?

304:

016416

TRAP

FATFLG
INTRECV

O,
TENBA ,PKTSSR
ERRN

012116

;OEVICE FATAL ERROR DURING INIT

PC,CHKTSSR
TSBA(RS)
Rl
R4 R2

010,R2

R1,R2

354
ERRNO, TETSBA ,EXPREC

TE6NBA
PKTSSR
TRAP

tWAIT FOR READY, NON-AMBIGUOUS
1GET _TSBA REGISTER CONTENTS
;START OF THE PACKETY
;EXPECT TSDA TO PACKET + 10
1COMPARE EXPECTED TO RECEIVED
1ERROR IF NOT EQUAL
1PRINT

C4ERHRD
604

THE ERROR & EXPD/?SE;

C4CLP1

C4ERHRD
605
T6TSBA

EXPREC

J10

TSVSA

TEST

HARDWARE TESTS

MACRO VOS.03

Tuesday 28-Apr-87

10:28

Page

85-20

SEQ 0126

COMMAND REJECT

030006
030012
030014
030014
030016
030020
030022
030024
030024

004737

103404

011154

104456
001136
004745
015570

35¢:

40%:

104405

011300
042700
020027
001002
062703
020327

103002
000137

454 :

027570
504 :

404
ERRNO,PKTRAM,RAMERR

sREPORT

THE RAM ERROR(S)

§Ccccccccccccs

END

002220

cMe
BNE
ADD
cHe

RO, 04
45%
02 ,R3
R3,9TBLEND

sOON'T TEST WRITE CHARACTERISTICS
;BRANCH IF OK

JMP

BHIS

504

:GET BITS 0-4

:GET NEXT WORD FROM DATA TABLE
;REACHED END OF TABLE ?
;tBRANCH IF END OF TABLE
sCONTINUE TEST WITH NEW DATA
P AMNAANANANNNNN END SUBTEST
L10053:

ENDSUB

T1ST

8EQ
JSR

017262

FATFLG

604
PC,CKDROP

sANY FATAL ERRORS

1051
1052
1053
1058

104404
004737
103405

:TRY TO DROP

030440

002752

S$ .

016054

THE UNIT

$/11177777777 BeggnzsueTest 117771777777

BGNSUB

002220
002222
016416
000200

000000

016330

csBSuUB

&PRIOO

;LOWER PRIORITY TO ALLOW INTERRUPTS
#PRIOO,RO
MOV

MOV

STEPACKET R4

sGET THE ADDRESS OF COMMAND PACKET

MOV
MOV

BGNSEG
BCS
MOV
ERRDF

104:

IRAP

SETPRI

JSR

010001

CsESLB

sBRANCH IF NOT

7
000000

C$ERHRD

606
PKTRAM
RAMERR

SEGMENT <ccccccecece
$:
TRAP
C$ESEG
COMMAND WORD

104402

1048
1049

. WORD
.WORD
.WORD

TRAP

604 :

012700
104441
012704
012703
012314

TRAP

sPACKET

$177740,R0

104403
005737
001402
004737

;SEE IF DATA IN RAM IS CORRECT

;BRANCH IF PACKET IN RAM IS CORRECT

(R3),RO

81C

000004

PC,CKRAM

ENDSEG

MOV

177740

000002
003062

JSR

8Cs
ERRHRD

TRAP

0TSTBLK,RS
(R3)., (R8)

sSTART OF TEST DATA

PC.SOFINIT

TRAP
;00 SOFT INIT OF CONTROLLER
;B8R IF SOFT INIT = OK

104
RO,R1
ERRNO, SFIERR, SFIMSG

;PLACE NEXT DATA WORD IN PACKET

$2>>>>>>>>>>>

BEGIN SEGMENT

sDEVICE FATAL ERROR DURING 'IDNIT
TRA

FATFLG
INTRECV
PC,CRKTSSR
08iT7,(R4)

;CLEAR FATAL ERROR FLAG

JSR

PC . WAITF

{WAIT FOR SSR TO SET

BCS
MOV

R4, TSOB(RS)
154
RO,R1

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

C4BSEG

;SAVE CONTENTS QF TSSR

CLR
CLR
JSR
8IS

MOV

C4SPRI

.WORD
.WORD
WORD

;CLEAR INTERRUPT RECEIVED FLAG
JWAIT FOR READY,

NON-AMBIGUOUS

1ENABLE INTERRUPTS

1SET THE PACKET ADORESS

1BR IF CARRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR

C4ERDF

607
SFIERR
SFIMSG

K10

TSVSA

TEST

HAROWARE TESTS

MACRO V0S.03

Tuesday 28-Apr-87

10:28

Psge

85-21

SEQ 0127

COMMAND REUECT

1070 030174
030174

030176
030200
030202
1071 030204
1072 030210
030210
1073 030212
030212

104455
001140
030475
012116
005237

ERRDF

002220

15¢:

002222

1074
1075
1079

ERRNO, T6SSR,PKTSSR

INC

FATFLG

ESCAPE

SuB

CKLOOP

ST
BNE

ERRHRD

INTRECV
224

ERRNO, TENINT,PKTSSR

;DEVICE FATAL SSR FAILED TO SET
TRAP

.WORD
.WORD
.WORD

1SET FATAL ERROR FLAG

;LOOP ON ERROR, IF FLAG SET

TRAP

CsCLPL

C4ESCAPE
L10054-.

1BY-PASS SUBTEST IF FATA%RESROR

;DID AN INTERRUPT OCCUR ?

sBRANCH IF

YES

;REPORT ERROR IF NO INTERRUPT
TRAP

.WORD

102206
016416
000002
000100
000100
001404

004737
016501
010402
062702
020102
001404

104456
001144
004745
015570

104405

011300

OSC !NBA!SSR! TSREJ,R2
PC,CHKTSSR
TSSR(RS) ,R1
#0FL ,R1

81S
cHe
B8EQ

#OFL ,R2
R2.R1
304

BEQ

25¢:

304:

016416
000000

000010

254

ERRNO, TENBA ,PKTSSR

BEQ
ERRHRD

WORD
1EXPECTED CONTENTS OF TSSR
sWAIT FOR READY, NON-7 4BIGUOUS

PC,CHKTSSR
TSBA(RS),R1
R4 ,R2
#10,R2
R1,R2

35
ERRNO, T6TSBA,EXPREC

35¢:

404 :

JSR

8Cs
ERRHRD

PC,CKRAM

404
ERRNO,PKTRAM,RAMERR

1SET OFF-LINE IN EXPECTED DATA

1DOES EXPECTED MATCH RECEIVED ?

sOKAY IF MATCH

1NSA NOT SET TO REUECT

{WAIT FOR READY,

TRAP

.WORD
.WORD
.WORD

TRAP
NON-AMBIGUOUS

MOV

(R3),RO

C4ERHRD

610
T6NBA
PKTSSR
C4CLPL

:GET TSBA REGISTER CONTENTS
1START OF THE PACKET
JEXPECT TSDA TO PACKET

;COMPARE EXPECTED TO RECEIVED
;ERROR IF NOT EQUAL
;PRINT THE ERROR & EXPD/RECV
TRAP

C4ERHRD

611
T6TSBA
EXPREC

;SEE IF DATA IN RAM IS CORRECT

1BRANCH IF PACKET IN RAM IS CORRECT

;REPORT

THE RAM ERROR(S)

gcccccccccc<ccc

ENDSEG

T6NINT

PKTSSR

$BRANCH IF NOT C"r-LINE

.WORD
.WORD
.WORD

011154

C4ERHRD

609

1GET THE CONTENTS OF [SSR
1IS OFF-LINE BIT SFT 2

1LOOP ON ERROR ?

CKLOOP

JSR
MOV
MOV
ADD
cHp

104456
001143
030711
015554
004737
103404

MOV
JSR
MOV
8I7

ERRHRD

104456
001142
030450
012116
104406

224:

C4ERDF

608
T6SSR
PKTSSR

END

TRAP

.WORD
.WORD
.WORD

SEGMENT

612
PKTRAM
RAMERR

<cccccccccc<c

TRAP

sNEXT PACKET COMMAND WORD

CHERHRD

C!/ESEG

0000

L10

TSVSA

TEST

HARDWARE TESTS

MACRO V0S5.03

Tuesday 28-Apr-87 10:28

Pege 85-22

SEQ 0128

COMMAND REJECT

177740
000004
000002
003062

454 ;

030114

017262
027550

#177740,R0O
RO, 84
454
2.R3
R3,6TBLEND
S04
St

1GET BITS 0-4
;OON'T TEST WRITE CHARACTERISTICS
;BRANCH IF NOT WRITE CHARACTERISTICS
1BY-PASS WRITE CHARACTERISTCS
sHAVE WE COMPLETED DATA TABLE 7
;1BRANCH IF ALL TESTED
sTEST WITH NEXT DATA

S04 :

ENDSUB

604 :

187
BEQ
JSR
JSR

FATFLG
604
PC .CKDROP
PC, TSTLOOP

sANY FATAL ERRORS ?
$BRANCH IF NOT
sTRY TO DROP THE UNIT
sSHOWLD WE DO ITERATIONS ?

624:

JMP
EXIT

T6LOOP
TST

sLOOP UNTIL COUNT EXPIRED
;:ALL DONE THIS TEST

002220

016536

81IC
cCMP
BNE
ADD
cMP
BHIS
JP

BCC

SANNANANANNNANANN END SUBTEST NNANN
L10054:

624

TRAP

C4$ESUB

:BRANCH IF NOT

TRAP

. WORD

C$EXIT

L10052-.

sLOCAL STORAGE FOR THIS TEST
:-

TOPACKET

000000
052525

.BLKB

10-¢.

. WORD
.WORD

.HORD

-TSV2ET>

sCOMMAND PACKET FOR TEST

sWILL CONTAIN VARIABLE COMMANDS

052525
125252

052525

sLOCAL TEXT MESSAGES FOR TEST
;-

030631
030711
030763

105
111
103

031002
031002
031002

104401

157
157

155
156

T6NBA:
T6SSR:

_ASCIZ
.ASCI1Z

170

160

TO6NINT:

.ASCIZ

156

157

145

143

155

T6INT:

T6TSBA:
7TST6ID:

_ASCIZ
.ASCIZ

.ASCIZ
.EVEN
ENDTST

LSBTTL

'Cosmend Not Re
'Contonto of 1S

Incorrect After Write Packet'’

'Unexpected Interrupt Received On Write Pecket’

'Expected Interrupt Not Received On Write Packet’

‘Incon-oct TSBA Address After Packet Write’
‘Commend Reject’

L100S2:

TEST

TRAP

CSETST

WRITE CHARACTERISTICS

THIS TEST VERIFIES BASIC OPERATION OF

THE WRITE CHARACTERISTICS

C
IT VERIFIES THAT THE COMMAND BLOCK AND CHARACTERISTICS
DATA BLOCK ARE FETCHED PROPERLY FROM CPU MEMORY,
THE 'EED BUFFER

ADDRESS (NBA) BIT IN TSSR IS HANDLED PROPERLY,

MESSAGE PACKET IS STORED,

WHERE APPROPRIATE.

AND
T
A PROPER
"THIS TEST DOES NOT

CHECK THAT THE VARIOUS FUNCTIONS ENABLED BY CHARACTERISTIC MOOE

M10

TSVSA

TEST

HARDWARE TESTS

MACRO V0S.03

Tuesday 28-Rpr-87 10:28

Pege 85-23

SEQ 0129

WRITE CHARACTERISTICS

1166
1167
1168
1169
1170
1171
1172
1173
1174

DATA BITS OPERATE PROPERLY{
THE FUNCTIONING OF THESE BITS IS
VERIFIED IN SUBSEQUENT TESTS.
ALL COMMANDS EXECUTED IN THIS
TEST HAVE

THE INTERRUPT

ENABLE

INTERRUPTS SHOULD BE GENERATED.

PROCESSOR PRIORITY O,

(1IE) BIT

CLEARED T0 ZERQ,

HOWEVER,

SO NO

THEPROGRAM RUNS
A

WITH THE INTERRUP7 SERVICE ROUTINE SET UP

TO0 FLAG UNEXPECTED INTERRUPTS.

IF AN INTERRUPT OCCURS,

PROBLEM EXISTS IN EITHER THE LSI-11 BUS INTERFACE SECTION OR IN
THE ROM OR PIPELINE.

THIS TEST CHECKS VARIOUS MICROPROGRAM SEQUENCES,

DECODING,

DMA
LOGIC,

COMMAND

AND BASIC PACKET PROTOCOL HANDLING.

THIS

IS THE FIRST TEST IN WHICH DATO DMA CYCLES (FOR STORING THE

MESSAGE PACKET) ARE PERFORMED.
TEST

(I.€,

ANY ERRORS IN THE BOOY OF THE

ERRORS OTHER THAN INITIALIZATION ERRORS RELATED TO

THE TRANSPORT BUS) DEFINITELY INDICATE A BAD M7196 MOOULE.

012737

104402
004737
103405
010001

034363
016570

000024

002214

T7L00P:

016054

045070
010662

104456
001276
005056
012104

004737

031072
031072
031076
031100
031104
031110
031116
031116
031116
031120

012700
10444}
012703
012704
012764
104404
004737

JSR

PC.SOFINIT

MOV

RO,R1

ERRDF

001275
003652
012104

034412

002764
033230
000010

016054

1%:

S4:

ERRNO, SFIERR, SFIMSG

"
;ASCII MESSAGE 10 IDENTIFY TEST
100 INITIAL TEST SETUP
{PERFORM 20 ITERATIONS

2222207227 aaT;_xlnlszEST 1177777707777
TRAP
C4BSUB
;00 SOFT INIT OF CONTROLLER
:BR IF SOFT INIT = OK
1SAVE CONTENTS OF TSSR
;DEVICE FATAL ERROR DURING INIT
TRAP
CSEROF
.MORD
.WORD
.WMORD

MOV
JSR

0T11PK2,R4
PC,WRTCHR

;WRITE CHARACTERISTICS PACKET
1ISSUE WRITE CHARACTERISTICS

ERRHRD ERRNO, WRTMSG, SFIMSG

1WRITE CHARACTERISTISC FAILED

BCS

24:

#TST7ID,RO
#20. ,LOOPCNT

PC, TSTSETUP

BGNSUB
8CS

104455

012704
004737
103404

BGNTST
MOV
JSR
MOV

1BR,

701
SFIERR
SFIMSG

IF COMMAND ISSUED OK

TRAP

.MORD
"WORD
.MORD

C4ERHRD

702
WRTMSG
SFIMSG

JSR

PC, TTREST

1SET PACKET TO START-UP VALUES

SETPRI

#PRIOO

;LOWER PRIORITY TO ALLOW INTERRUPTS

MOV
MOV
MOV

#TSTBLK.10. ,R3
onpncxev R4
. .PKBCNT(R4)

;START OF TEST DATA
1GET THE ADDRESS OF COMMAND PACKET
1 START WITH MINIMUM ALLOWABLE VALUE

BGNSEG

JSR

MOV
TRAP

$2>>>>5>>>>>> BEGIN SEGMENT

PC.SOFINIT

TRAP
;00 SOFT INIT OF CONTROLLER

#PRI00. RO
C$SPRI

>>>>5>>>>>>>>

C4BSEG

N10O

JSVSA - HARDWARE TESTS
TESY

MACRO V05.03

Tuesday 28-Apr-87 10:28

Page 85-24

SEQ@ 0130

WRITE CHARACTERISTICS

031124

103405

8Cs

010001

MOV
ERROF

104455
001277
003652
012104
005037
005037
010465
004737

103407

;B8R IF SOFT INIT = 0K

ERANO., SFIERR, SFIMSG

IDEVICE FATAL ERROR DLRIPG INIT

SAVE CONTENTS OF TSSR

UORD

-WORD

.WORD

002220
002222
000000
016416

FATFLG
INTRECV

10¢:

R4, TSDB(RS)
PC.CHKTSSR

154

010001

RO,R1

ERRNO, T7SSR,PKTSSR

104455

001300
034031
012116
005237

104

RO,R1

002220

154

002222

IUAIT FOR SSR TO SET

1BR IF CARRY SET (GOOD RETURN)
s SAVE CONTENTS OF TSSR
sDEVICE FATAL SSR FAILED 10 SET
TRAP
C4EROF
. WORD
704
. WORD
T7SSR
.WORD

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

ESCAPE

SEG

s1BY-PASS SUBTEST IF FATAL Em

TS7

gzaccv

ERRHRD

ERRNOD, T7INT ,PKTSSR

;0I0 AN INTERRUPT OCCUR ?

YOFERERR

PSSR, R2
#0FL R}
25

000100

R2
ni

254

304

ERRND, TTNBA
, PKTSSR

000000

033256
000002

002226
000012

000001
000016

002224

314

324

CHKTSSR

TSBA(RS),R1
RS
#T7BFR
82 ,REV

314

ggxrvLXST2(R2)
#1.EXTFEA

02.R2

2l m

CSESCAPE
-.
100004

C4ERHRD

LWORD

PKTSSR

;GET THE CONTENTS OF TSSR
1EXPECTED CONTENTS OF TSSR
:1IS OFF-LINE BIT SET ?

705
T7INT

sBRANCH IF NOT OFF -LINE

lSGT OFF -LINE IN EXPECTED DATA

+sDOES EXPECTED MATCH RECEIVED ?
sG(AY IF MATCH
tNBA NOT ZERO

sLOOP ON ERROR ?

38838 2B333¢ B
g

VESRRRERON §

016416

CeCLP1

TRAP

C4ERHRD

LWORD

PKTSSR

TRAP

CiCLP)

. WORD
.WORD

304:

PKTSSR

;BRANCH IF NOT

. WORD
.WORD

000100

SFIMSG

SET THE PACKET ADDRESS

FATFLG

TSSR(RS),R1

703

SFIERR

sCLEAR FATAL ERROR FLAG
AR INTERRUPT RECEIVED FLAG

INC
CKLOOP

224:

C4ERDF

sWAIT FOR READY

-NBIGUOUS

:GET TSBA nssxsieaBUFFER
CONTENTS

1START OF THE DATA
+IS IT A NEW MICROCODE
1 YES BR
11S EXTENDED FEATURES BIT SEY ?

706
TTNBA

.aamcn IF EXTENDED FEATURES OFF
+SET EXTENDED FEATURES FOR SUBTEST 6
1EXTRA WORD IF specm. FEATURES
OF TSOA
JEXPECTED CONTENTS
+COMPARE EXPECTED TO RECEIVED

B1l1l

TSVSA

TEST

HARDWARE TESTS

MACRO V0S5.03

Tuesday 28-Apr-87 10:28

Pege 85-25

SEQ 0131

WRITE CHARACTERISTICS

1268 031340
1272

001404

BEQ
ERRHRD

104456
001303
034300
015554
004737

103404

35¢

ERRNO, T7TSBA ,EXPREC

011154

35¢:

THE ERROR

& EXPD/RECV
TRAP

JSR

PC‘CKRAH

ERRHRD

ERRNO, PKTRAM, RAMERR

ENDSEG

000006
003062

MOV

TRAP

BHIS
JHP

031116

031410
031410
031410

55¢:

002220

017262

BEQ
JSR

END

SEGMENT

00004:

(R3)+ ,PKBCNT(R4)

554
5S¢

ENDSUB

18T

604
:

gecccccccccccc

R3,4TBLEND

707
T7TSBA
EXPREC

1SET THE TEST WORD

sBRANCH IF ALL DATA DONE
1BRANCH TILL BACK TO ZERO

FATFLG

;sANY FATAL ER?ORS

PC,CKDROP

1 TRY

1BRANCH IF NO

708
PKTRAM
RAMERR

C4ESEG

END SUBTEST

L10056:

CS$ERHRD

<cccccccccccc

TRAP

sHAS ALL DATA BEEN TESTED

s AAANAMANNNANANY

604

C$ERHRD

sSEE IF DATA IN RAM IS CORRECT
tBRANCH IF PACKET IN RAM IS CORRECT
sREPORT THE RAM ERROR(S)
. WORD
.WORD
.WORD

031370
031370
031370

031412
031416
031420
031424

;PRINT

.WORD
.WORD
.WORD

104456
001304
004745
015570

031372
031376
031402
031404

;ERROR IF NOT EQUAL

TRAP

C4ESUB

TO DROP THE UNIT

1 TEST 7, SUBTEST 2

:CHECK THAT UNUSED BITS BEING SET CAUSES

sWRITE CHARACTERISTICS COMMAND TO BE REJUECTED

031424
031424
031424

031426

1312

1313

$/////7/7/7/77/7 BE?;N2$UBTEST 177777777777

BGNSUB
104402
012700
10444}
012703
012704
004737

104404

TRAP

SETPRI

000000

033276
033230
034412

Ss:

MOV
MOV
JSR

BGNSEG

#PRIOO
OT72DATA,RS

#17PACKET R4

PC,TTREST

csBsuB

1LOMER PRIORITY TO ALLOW INTERRUPTS
MOV

TRAP

#PRIOO,RO

C4SPRI

lSTART OF TEST DATA FOR SUBTEST
1GET_THE ADDRESS OF COMMAND PACKET
8R€STORE PACKET TO STARTING VALUES
$2>>>>>>>>>>>

BEGIN SEGMENT >>>5>>>>>>>>>
TRAP
C4BSEG

TSVSA

TEST

HARDWARE

TESTS

MACRO V05.03

Tuesdey 28-Apr-87

10:28

Pege

85-26

SEQ 0132

WRITE CHARACTERISTICS

1314 031452
1315 031456
1319 031460
1320

004737
103405
010001

104455
001305
003652
012104
005037
010400
300

103405

016054

002222

JSR
8CS
MOV
ERRDF

ERANO, SFIERR, SFIMSG

(R%) RO

2(R3), (RO)

000002
000000
016330

R4, TSOB(RS)
PC.WAITF

154

RO,R1

ERRNO, T7SSR,PKTSSR

001306
034031
012116

154¢:

104406

002222

000002
102206
000100

000100

001414
010100

020027
001404

RO,R1

R4 ,RO

104455

104456
001307
034211
012116
016501
012702
032701
001402
052702
020201

104

INTRECV

10¢:

010001

104410
000116
005737
001404

PC,SOFINIT

224:

254:

001311
033312

1CLEAR INTERRUPT RECEIVED FLAG
1START OF THE COMMAND PACKET
;OFFSET TO THE DATA WORD TO TEST
1SET THE DATA BITS TO BE TESTED
1SET_THE PACKET ADDRESS
1WAIT FOR SSR TO SET
1BR IF CARRY SET (GOOD RETURN)
$1SAVE CONTENTS OF TSSR
1DEVICE FATAL SSR FAILED_TO SEY
TRAP
.WORD

SEG

1BY-PASS CHECKS IF FATAL ERRm
RAP

TS7
BEQ
ERRHRD

ggIRECV

;DID AN INTERRUPT OCCUR ?
$BRANCH IF NOT

ERRNO, T7INT ,PKTSSR

TSSR(RS),R1

oscossa-fsnea-nan R2

#OFL ,R1
254
#OFL ,R2

R2,Ri
304
R1.RO

304

TRAP

.WORD
LMORD
WORD

1GET _THE CONTENTS OF TSSR
1EXPECTED CONTENTS OF TSSR
11S OFF-LINE BIT SET ?
1BRANCH IF NOT OFF -LINE
1SET OFF -LINE IN EXPECTED DATA
1DOES EXPECTED MATCH RECEIVED ?
1OKAY IF MATCH

;'S‘;A Rl

ERRNO, T72NBA ,PKTSSR

C4ERDF

709
SFIERR
SFIMSG

CSEROF
710

T7SSR
PKTSSR
C4CLP]L

CSESCAPE
-.
100004

C4ERHRO

711
T7INT
PKTSSR

sDATA FROM TSSR

sFIND BITS IN ERROR

11IS NBA ONLY BIT IN ERROR ?
+OON’T PRINT ERROR IF NBA ONLY BAD BIT

s COMMAND NOT REJVECTED

1LOOP ON ERROR ?

304:

104456

.WORD
.WORD
.WMORD

ESCAPE

ERRNO, T72REJ,PXTSSR

002000

TRAP

;LOOP ON ERROR, IF FLAG SET

CKLOOP

RO, SNBA

104456

1 SAVE CONTENTS OF TSSR
;DEVICE FATAL ERROR DURING INIT

.WORD
.WORD

R2.RO

002000

100 SOFT INIT OF CWTR&LER
INIT 0(
1BR IF SOFT

+IS NBA BIT SET ?
sOKAY IF NBA SET
sNBA NOT SET

TRAP

C4ERHRO

TRAP

csCLP)

TRAP

C4ERHRD

LWORD
LHORD
.WORD

.WORD
LHORD

712
T72REJ
PKTSSR

713
T72NBA

TSVSA

TEST

HARDWARE TESTS

MACRO V0S.03

WRITE CHARACTERISTICS

031652
1363 031654

012116

031654
1365 031654

104405

1366 031656
1367 031662

062703
020327

000004
033312

iggg 031670

000137

031440

1368 031666

103002

1371 031674

031674
031674

§<Cccccccccc<< END SEGMENT <cccccecccc<ce
100004
:

TRAP

ADD
cHe

o4 ,R3
R3, #T72D0ONE

sPOINT TO NEXT DATA PAIR
sCOMPARE TO END OF TEST DATA

$§BRANCH TILL BACK T0 ZERO

575

ENDSUB

CSESEG

1BRANCH IF ALL DATA TESTED

FANAANANANANNNANN END SUBTEST AN
L10057:

TRAP

C4ESUB

s EST 7, SUBTEST 3
]

;CHECK THE WRITE CHARACTERISTICS COMMAND 1S REJECTED

+1IF ISSUED WITH AN INVALID DATA BLOCK BYTE COUNT
'
]

1382 031676
031676
1383 031676
1384 031700

BGNSUB

012700

000000

1385 031706

012703

000001

igg; 031716

004737

034412

031704

1389 031722

10444)

012704

033230

104404

1391
1392
1396
1397

031724
031730
031732
031734

004737
103405
010001

1398 031744

005037

002222

1401 031760

004737

016330

1403 031766

010001

031770
031772
031774
031776

1044SS
001313
034031
012116

031734
031736
031740
031742

1044SS
001212
003652
012104

1399 031750
1400 031754

010364
010465

1407 031770

103405

SETPRI

S¢:

#PRIOO

016054

#PRI00,RO

TRAP

C4$SPRI

sSTARTING BYTE COUNT

JSR

PC,TTREST

sRESTORE PACKET TO STARTING VALUES

MOV

JSR
8Cs

104

MOV

#1,R3

MOV
ERROF

000006
000000

;LOWER PRIORITY TO ALLOW INTERRUPTS

MOV

0T7PACKET.R4

BGNSEG

1390 031722

1402 031764

$//7///7/777/7777 BEGIN SUBTESTY /77777777777
17.3:
TRAP
csBsuB

104402

031700

1386 031712

[]

PKTSSR

;e
:

i;;g
1381

ENDSEG

104403

1377

SEQ 0133
.WORD

BHIS
574

ig;g

Page 85-27

35¢:

1364 031654

1372
1373
1374

Tuesday 28-Apr-87 10:28

CLR

12>>>>>>>>>>>

>5>>>5>>>>>>)>

INTRECYV

sCLEAR INTERRUPT RECEIVED FLAG

PC, WAITF

;WAIT FOR SSR TQ SET

B8CS

15‘

ERROF

TRAP

;D0 SOFT INIT OF CONTROLLER
sBR IF SOFT INIT = 0K
s SAVE CONTENTS OF TSSR
;DEVICE FATAL ERROR DURING INIT

R3,PKBCNT(R4)
R4 ,TSOB(RS)

MOV

BEGIN SEGMENT

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

MOV
MOV

JSR

sGET THE ADORESS OF COMMAND PACKET

RO,R1

ERéNO.T?SSR.PKTSSR

TRAP
.WORD
. WORD
. WORD

C4BSEG

C4ERDF
4
SFIERR
SFIMSG

sINSERT THE BYTE COUNT FOR TEST
1SET THE PACKET ADDRESS

18R IF CARRY SET (GOOD RETURN)
1 SAVE CONTENTS OF TSSR

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

C4EROF
715
T7SSR
PKTSSR

E11

TSVSA

TEST

HARDWARE TESTS

MACRO V0S5.03

Tuesdesy 28-Apr-87 10:28

Page 85-28

SEQ 0134

WRITE CHARACTERISTICS

1408

15¢:

1409

CKLOOP
ESCAPE

1410
1411
1415

002222

000002
102206
000100

000100

TS7

BEQ
ERRHRD

;LOOP ON ERROR,
SEG
gg‘IRECV

ERRNQ, T7INT ,PKTSSR

TSSR(RS),R

224:

osc'ssn-’fsneasmn.na

254

IF FLAG SET

18Y-PASS SUBTEST IF FATAL RROR
TRAP

1DID AN INTERRUPT OCCUR ?
tBRANCH IF NOT
TRAP

.WORD
.WORD
.WORD
1GET THE CONTENTS OF TSSR

1432
1433

1437

30
ERRNO, TT3REJ,PKTSSR

104456

001316
033312
012116

716
T7INT
PKTSSR

+IS NBA ONLY BIT IN ERROR ?

sDON’'T PRINT ERROR IF NBA ONLY BAD BIT

;1COMMAND NOT REJECTED

35¢:

CxLooP

;LOOP ON ERROR

BIT

gg';A.Rl

ERRHRD

ERRNO, T7T2NBA ,PKTSSR

1?7

+IS NBA BIT SET ?
sOKAY IF NBA SET

;NBA NOT SET

TRAP

CS4ERHRD

.WORD
.WORD

T73REJ
PKTSSR

TRAP

CsCLP]

TRAP

C4ERHRD

.WMORD
.WORD
.WORD

ENDSEG

geCccccccccccc<

END

000006

R3, 06
574
S4

031712

S7¢:

SEGMENT

10000%:

104405
005203
020327
002002
000137

C4ERHRD

tFIND BITS IN ERROR

30¢:

104406
032701
001004

100004
-

1EXPECTED CONTENTS OF TSSR
11S OFF-LINE BIT SET ?
-L INE
1BRANCH IF NOT OFF
1SET OFF-LINE IN EXPECTED DATA
sDOES EXPECTED MATCH RECEIVED ?

.WORD

1431

C4$ESCAPE

1OKAY IF MATCH
1DATA FROM TSSR

002000

012116

CeCLP]

717

718
T72NBA
PKTSSR

<cccccccecc<<

TRAP

C4ESEG

sNEXT BYTE COUNT

s TESTED ALL INVALID ?
1BRANCH IF TEST DONE
$1BRANCH TILL BACK TO ZERO
SANAAAAMANNNAN

104403

END SUBTEST

L10060:

:YEST 7. SUBTEST 4
:SWTEST TO_VERIFY THAT A WRITE CHARACTERISTICS COMMAND IS
IREJECTED IF AN ILLEGAL DATA BLOCK ADDRESS IS ISSUED.

TRAP

C4ESUB

F11

TSVSA

TEST

HARDMWARE TESTS

Tuesdasy 28-Rpr-87 10:28

Pege 85-29

SEQ 0135

WRITE CHARACTERISTICS

1454
1455
1456
1457 032142
032142
032142
1458
1459
1460
1461
1462
1463
1464
1465
1466
1470
1471

MACRO V0S.03

311177777777 Bsggn‘suaresv 177717777777

BGNSUB

104402
012700

000000

012703

033276
033230
034412

004737

S4:

016054

00222
00000
000000
016330

1476
1477
1481

033240

#PRIOO

tLOWER PRIORITY TO ALLOM INTERRUPTS

MOV

#T72DATA,R3

1START OF TEST DATA FOR SUBTEST

JSR

PC.TTREST

JSR

PC‘SNINIT

104:

#T7PACKET R4

INTRECV
#1,T7DATA

R4,TSDB(RS)
PC.WAITF

154

RO,R1

Enéno T7SSR,PKTSSR

'TgAP

1DO SOFT INIT OF CONTROLLER
t1BR IF SOFT INIT = OK
1SAVE CONTENTS OF TSSR

;DEVICE FATAL ERROR DWI;GRMIENIT
LWORD
.WORD
.WORD

sCLEAR INTERRUPT RECEIVED FLAG

1483

104406

002222

000002
102206
000100
000100

224%:

254:

C4ERDF
719

SFIERR
SFIMSG

1MAKE ADDRESS 00D

1SET_THE PACKET ADDRESS

zNAIT FOR SSR TO SET
1BR IF CARRY SET (GO(D RETURN)
OF
1SAVE CONTENTS
sDEVICE FATAL SSR FAILED TO SET
.WORD

CKLOOP

#PRIOO,RO
C4SPRI

1GET _THE ADDRESS OF COMMAND PACKET
1RESTORE PACKET TO STARTING VALUES

.uono

1S¢:

c48SUB

SETPRI

RO,R1
ERRNO, SFTERR, SF IMSG

1472
1473
1474

TIRAP

1LOOP ON ERROR,

.WORD
IF FLAG SET

C4$ERDF
720
T7SSR
PKTSSR

ESCAPE

SuB

RAP
CsCLPL
1BY-PASS SUBTEST IF FATAL ERROR

ST
BEQ
ERRHRD

INTRECV
224

;DID AN INTERRUPT OCCUR ?
1BRANCH IF NOT

ERRNO, T7INT ,PKTSSR

TSSR(RS),R

osc-ssa'fsaeasnan.az

TRAP

TRAP
LMORD

.WORD
WORD

1GET THE CONTENTS OF TSSR
1EXPECTED CONTENTS OF TSSR
11S OFF-LINE BIT SET ?
1BRANCH IF NOT OFF -LINE
t1SET OFF-LINE IN EXPECTED DATA

C4ESCAPE
L10061-.

C4ERHRD
721

T7INT
PKTSSR

1D0ES EXPECTED MATCH RECEIVED ?

lOKAY IF MATCH

iDATA FROM TSSR

002000

+FIND BITS IN ERROR

1IS NBA ONLY BIT IN ERROR ?

sDON'T PRINT ERROR IF NBA ONLY BAD BIT

G1l1

TSVSA

TEST

HARDWARE TESTS

MACRO V0S5.03

Tuesday 28-Apr 87

10:28

Page 85-30

SEQ 0136

WRITE CHARACTERISTICS

1504 032336
032336

ERRHRD

104456
001322
033635
012116

104406
032701

001004

ERRNO, T74REJ,PKTSSR

;COMMAND NOT REJECTED

TRAP

C$ERMRD

_WORD
"WORD

T74REJ
PKTSSR

TRAP

C4CLPL

TRAP

C$ERHRD

.WORD

304 :

BIT

002000

BNE
ERRHRD

104456

;LOOP ON ERROR ?

CKLOOP
00.;‘\Rl

ERRNO, T72NBA ,PKTSSR

;IS NBA BIT SET

;OKAY IF NBA SET

sNBA NOT SET

001323
033312
012116

LWORD
"WORD
.WORD

354:

ENDSUB

722

723
T72NBA
PKTSSR

$ MNAANNANNNANN END SUBTEST NN
L10061:
TRAP
C4$ESUB

104403

1 TEST 7,

SUBTEST 5

sCHECK THAT WRITE CHARACTERISTICS COMMAND IS REJECTED IF THE
tMESSAGE BUFFER LENGTH SPECIFIES AN INVALID COUNT (LESS THAN 14)

BGNSUB

3771777777777 Beggussuatesv 177177777777

T
SETPRI
0000G1
033230
034412

54:

MOV
MOV
JSR

SPRIOO
#1,R3
ST7PACKET R4

PC.T7REST

BGNSEG
016054

002222
033244
000000
016330

JSR
BCS
MOV
ERROF

104:

CLR

IRAP

c+8SUB

;LOMER PRIORITY TO ALLOW INTERRUPTS
MOV

#PRI00,RO

TRAP

C$SPRI

1STARTING BUFFER LENGTH
sGET_THE ADORESS OF COMMAND PACKET
tRESTORE PACKET TO STARTING VALUES
§>>>>>>>5>>>>

BEGIN

SEGMENT

>>>5>>>>>>>>>

TRAP

PC,SOFINIT

104

RO,R1

ERRNO, SFIERR, SFIMSG

INTRECV

R3,T7DATA.4
R4, TSDB(RS)
PC,WAITF

154

RO,R1

1D0 SOFT INIT OF CONTROLLER
1BR IF SOFT INIT = 0K
1SAVE CONTENTS OF TSSR
1DEVICE FATAL ERROR DLRI'T(R;AgNIT
LWORD
.WORD
. WORD

1CLEAR INTERRUPT RECEIVED FLAG
1 INSERT THE BAD MESSAGE LENGTH
1SET _THE PACKET ADDRESS
tHAIT FOR SSR TO SET
1BR IF CARRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR

C4BSEG

CHERDF
724
SFIERR

H11

TSVSA - HARDWARE TESTS
TEST

MACRO V0S.03

Tuesday 28-Apr-87 10:28

Page 85-31

SEQ 0137

WRITE CHARACTERISTICS

1550 032462
032462
032464
032466
032470

104455
001325
034031
012116

032472

104406

1551 032472
1552 032474

005737

ERRDF

15¢:

002222

016501
012702
032701

000002
102206
000100

052702

000100

020027

1574 032574
1575 032576
1576 032602
1580 032604

104406
032701
001004

ESCAPE

SEG

TST
BEQ
ERRHRD

INTRECV
224
O,
T7INT ,PKTSSR
ERRN

TSSR(RS),R1

254:

POFL ,R1
254
o0FL ,R2
R2,R1

R2
#SC ' SSR1TSREUINBA,

304
R1,RO
Re2,.RO
RO, ONBA

30
ERRNO, T7S5REJ,PKTSSR

104456

ng';A.Rl

ERRNO, T72NBA ,PKTSSR

104456

001330
033312
012116

TRAP

1589 032632
032632
032632

000137

032404

CsCLP)

TRAP

C4ESCAPE

;BRANCH IF NOT

TRAP

.WORD
.MORD
.WORD

1GET _THE CONTENTS OF TSSR
sEXPECTED CONTENTS OF TSSR
1IS OFF-LINE BIT SET ?

C4ERHRD

726
T7INT
PKTSSR

1BRANCH IF NOT OFF -LINE

1SET OFF-LINE IN EXPECTED DATA

;D0ES EXPECTED MATCH RECEIVED ?

;OKAY IF MATCH
:DATA FROM TSSR
sFIND BITS IN ERROR

+1S NBA ONLY BIT IN ERROR ?
;OON’'T PRINT ERROR IF NBA ONLY BAD BIT
;COMMAND NOT REJECTED
TRAP

+IS NBA BIT SET

. WORD
.WORD
.WORD

1OKAY IF NBA SET
tNBA NOT SET

END

g;gRHRD

T75REJ
PKTSSR

TRAP

CéCLPL

TRAP

C$ERHRD

SEGMENT

TRAP

stNEXT BUFFER LENGTH

sHAVE ALL BAD VALUES BEEN TESTED

s1BRANCH IF ALL TESTED
$BRANCH TILL BACK TO ZERO

$ MNANANNNANNNANN END SUBTEST
L10062:

728
T72NBA
PKTSSR

«<cccccccccccc

CS$ESEG

" TRAP

’.

-.
100004

;0ID AN INTERRUPT OCCUR ?

gececccccc<ccc<

R3
R3,014.
S74

S7%:

TRAP

IF FLAG SET

000016

725
T7SSR
PKTSSR

.WORD
.WORD
. WORD

354:

005203
020327

C4ERDF

.WORD
.WORD
. WORD

1BY-PASS SUBTEST IF FATAL ERROR

;LOOP ON ERROR

30¢:

002000

;DEVICE FATAL SSR FAILED TO SEY

;LOOP ON ERROR,

CKLOOP

224:

002000

033733
012116

ERRNO, T7SSR,PKTSSR

C4ESUB

111

TSVSA - HARDWARE TESTS
TEST

MACRO V0S.03

Tuesdey 28-Apr-87 10:28

Page 85-32
SEQ 0138

WRITE CHARACTERISTICS

1592
1593
1594
1595
1596
1597
1598
1599
1600

:TEST 7. SUBTEST 6
:

s THIS SUBTEST IS EXECUTED ONLY IF THE EXTENDED
+FEATURES MODE IS ENABLED (AS DETERMINED BY EXAMINING

1XST2

AFTER A PREVIOUS EXECUTION OF

WRITE CHARACTERISTICS).

+IT VERIFIES THAT A FIFTH CHARACTERISTICS DATA WORD IS FETCHED
362 E:EA?E;E COUNT PARAMETER IN THE COMMAND PACKET IS 10 DECIMAL
3

1601
1602

1603

BGNSUB

1604
1605
1606

002224

1607
1608
1609

187
BNE
EXIT

034412

44
:

000000
002766
033230
000200
000012

033250
000006

877777777777/ BE?;N6$UBTEST

EXTFEA

17777777777/

TRAP

csB LB

TS7

+1S EXTENDED FEATURES SOFT. SW SET?
1BR, IF SOFTWARE SWITCH IS SET (ON)
1NO EXTENDED FEATURES EXIT THIS TEST

JSR

PC,T7REST

.WORD
$SET PACKET TO START-UP VALUES

SETPRI

9PRIOO

;LOWER PRIORITY TO ALLOW INTERRUPTS

#T1STBLK.12.
,R3
9T7PACKET
,R4
#200,T75P
©¢10. ,PKBCNT(R4)

S54:

TRAP

?gXP

#PRI00,RO

C$SPRI

sSTART OF TEST DATA
1GET THE ADDRESS OF COMMAND PACKET
sSPECIAL BIT SET FOR EXTFEA RAM RD

sSTART WITH EXTENDED FEATURES VALUE
§2>>>>>>>>>>>

BEGIN SEGMENT

>5>>>5>>>>>>>

TRAP

016054

PC,SOFINIT

104

ERRDF

002220
002222
000000
016416

1634
1635
1636

002220

032772
032774

10%:

CLR
CLR

MOV
JSR
BCS
MOV
ERRDF

15¢:

RO,R1

ERRNO, SFIERR, SFIMSG

FATFLG

INTRECV

R4,TSDB(RS)
PC,CHKTSSR

154

RO,R1

ERRNO, T7SSR, PKTSSR

C4EXIT

L10055-.

C4$BSEG

;D0 SOFT INIT OF CONTROLLER

18R IF SOFT INIT = 0K
1SAVE CONTENTS OF TSSR
tDEVICE FATAL ERROR DURING INIT
TRAP

.WORD
.WORD
.WORD

;CLEAR FATAL ERROR FLAG
;CLEAR INTERRUPT RECEIVED FLAG
:SET _THE PACKET ADDRESS
tWAIT FOR SSR

C4ERDF

729
SFIERR
SFIMSG

TO SET

18R IF CARRY SET (GOOD RETURN)

1SAVE CONTENTS OF TSSR
1DEVICE FATAL SSR FAILED TO SET
TRAP

C4ERDF

.WORD
.WORD
.WORD

730
T7SSR
PKTSSR

TRAP

CsCLPL

TRAP

CSESCAPE

INC
CXLOOP

FATFLG

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

ESCAPE

SEG

1BY-PASS SUBTEST IF FATAL ERROR
LWORD

10000%-.

“

J11

TSVSA

TEST

HARDWARE TESTS

MACRO V0S.03

Tuesdasy 28-Apr-87

10:28

Page 85-33

SEQ 0139

WRITE CHARACTERISTICS

1637 032776
1638 033002
1642

005737
001404

002222

TST

BEQ
ERRHRD

104456

INTRECV
224
ERRNO,
T7INT ,PKTSSR

;DID AN INTERRUPT OCCUR ?
:BRANCH IF NOT

TRAP
.WORD

C4ERHRD
731

.WORD

PKTSSR

.WORD

000002

224%:

000100
000100

254:

012116

104406
004737
016501

012702
022737

020102
001404

MOV

BIT
B8EQ
BIS

B8EQ
ERRHRD

033152
033154

012704

033164
033170
033174
033176

012364

o0FL ,R2
R2,R1
304
ERRNO,
T7NBA ,PKTSSR

002226

000200

000012

sGET THE CONTENTS OF TSSR
;EXPECTED CONTENTS OF TSSR
;IS OFF-LINE BIT SET ?
sBRANCH IF NOT OFF -LINE

1SET OFF-LINE IN EXPECTED DATA

;D0ES EXPECTED MATCH RECEIVED ?
;OKAY IF MATCH
+NBA NOT ZERO
TRAP

;LOOP ON ERROR ?
PC,CHKTSSR

016416
000000
033256
00000,

TSBA(RS),R1
#T17B8FR,R2
02 ,REV

31%
#8IT7,XST2(R2)
324
#2,R2
014, ,R2

000002
000016

R1,R2
354

ERRNO, T7TSBA ,EXPREC

sWAIT FOR READY,

.WORD
.WORD
.WORD

TRAP
NON-AMBIGUOUS

033240
011264

354

MOV

JSR

ERRHRD

404
:

MOV
ENDSEG

;PRINT THE ERROR & EXPD/?SEX

;SET POINTER FOR CHECKER
1 SEE IF DATA IN RAM IS CORRECT

ERRNO,PKTRAM, RAMERR

;REPORT

T
R4
OT7PACKE

000006
003062

032706

MOV

THE RAM ERROR(S)

TRAP

BHIS
JMP

tRESET PACKET POINTER

gecccccccccc<c

END

SEGMENT

1SET THE TEST WORD

sS4
5%

1BRANCH IF ALL DATA DONE
1BRANCH TILL BACK TO ZERO

tHAS ALL DATA BEEN TESTED

CSERHRD

734
PKTRAM
RAMERR

<cccccceccc<cc

TRAP

(R3)e PKBCNT(R4)

R3,0TBLE

C4ERHRD
733
T7TSBA
EXPREC

;BRANCH IF PACKET IN RAM IS CORRECT

100004
:

104405

CsCLP1

;IS IT A NEW MICROCODE
1 YES BR
1IS EXTENDED FEATURES BIT SET ?
;BRANCH IF EXTENDED FEATURES OFF
tEXTRA WORD IF SPECIAL FEATURES
{EXPECTED CONTENTS OF TSDA
s COMPARE EXPECTED TO RECEIVED
tERROR IF NOT EQUAL

.WORD
.WORD
.WORD

033230

732
T7NBA
PKTSSR

1GET TSBA REGISTER CONTENTS

OT7DATA ,R4

PC,CKRAM2
404

C4ERHRD

;START OF THE DATA BUFFER

.WORD
.WORD
.WORD

104456
001336
004745
015570

033156
033162
033162
033162

254

304:

104456
001335
034300
015554
012704
004737
103404

TSSR(RS),R1
#SSR,R2
e0FL ,R1

T7INT

C4ESEG

K11

TSVSA

TEST

HARDWARE TESTS

MACRO V0S.03

Tuesday 28-Apr 87

554:

1689 033202

104403

1690
1691
1692
1693

005737
001402
004737

033204
033210
033212
033216
1694 033216
033216
033220

1695

ENOSUB

002220
017262

604
:

104432
001240

SEQ 0140

S AOANNANANNNANNANN

END

SUBTEST

L10063:

TST
BEQ
JSR

FATFLG
604
PC,CKDROP

sANY FATAL

EXIT

TS7

sALL DONE TH1S TEST

ERRORS

1BRANCH IF NOT
s TRY

TO DROP

TRAP

1696

C$ESUB

THE UNIT

TRAP

.WORD

CSEXIY

L10055-.

1697

sLOCAL STORAGE FOR THIS TEST

1698

1699
1701
1703
1704
1705
1706
i;g;

033222
033230
033230
033232
033234

100004
033240
000000

1709
1710
1711
1712
1713

033240
033240
033242
033244
033246

033256
000000
000016
000000

033236

i;i; 033250

1716 033252
i;i; 033256

TTPACKET

000010

T7DATA:

000000

.BLKB

10-<.-TSVR2ET>

. WORD
. WORD
. WORD

100004
T7DATA
0

. WORD
.MORD
. WORD
. WORD

T78BFR
O
14,
0
o)

sEXTFEA EXTRA WORD

. WORD
.BLKW

0.0
8.

s SPACE
;MESSAGE BUFFER

.WORD

T7SP:

000000

. WORD

T78FR:

1719
1720

3
3

i;gé

s TEST

DATA FOR SUBTEST

;COMMAND PACKET FOR TEST
sWRITE CHARACTERISTICS COMMAND, WITH ACK
;sADDRESS OF CHARACTERISTICS B8LOCK
;STARTING VALUE OF BLOCK SIZE

sCHARACTERISTICS DATA BLOCK
s ADDRESS OF MESSAGE BUFFER
sLENGTH OF MESSAGE BUFFER

TWo

i;gz

tDATA HAS FORMAT:

1725
1726

3
3

1728

1727

1730
1731
1732
1733
1734
1735

Page 85-34

WRITE CHARACTERISTICS

1687
1688 033202
033202

1729

10:28

033276
033276
033302
033306

000000
000002
000004
033312

T720ATA:

037140
000001
100100

.
. WORD
.WORD
T7200NE=.

1736

1737
1738

1741 033312

1ST WORD
2ND WORD

OFFSET TO TEST WORD IN PACKET
BITS TO SET FOR TEST

0,BI7TS!BIT6'8IT9:8IT10!'81IT11!BIT12!'8IT13
2.,8170
4,8I7T6:'8I7T1S

ie
sLOCAL TEXT MESSAGES FOR TEST
116

102

101

T72NBA:

.ASCIZ

'NBA Not Set On Rejected WRITE CHARACTERISTICS'

—

L11

TSVSA

TEST

HARDWARE TESTS

MACRO V0S5.03

—_—
e

Tuesday 28-Apr-87 10:28

Pege 85-35

SEQ 0141

WRITE CHARACTERISTICS

1742 033370
1743 033443
1744 033542
174S 033635
1746 033733
1747 034031
1748 034120
1749 034211
1750 034300
1751
1732
1753
1754

127
127
127
127
127
103
105
125
111

111
111
111
1

T7NBA:
T72REJ:
T73REJ:

T74REJ:
T7SREY:
T7SSR:;
TTNINT:

T7INT:
T7TSBA:
TST710:

LASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

'WRITE
'WRITE
'WRITE
'WRITE

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.eggaz

'Contents of TSSR Incorrect APter WRITE CHARACTERISTICS'
'Expected Interrupt Not Received On WRITE CHARACTERISTICS'
'Unexpected Interrupt Received On WRITE CHARACTERISTICS'
‘'Incorrect TSBA Address After WRITE CHARACTERISTICS'
‘Write Cheracteristics'’

.ASCIZ

CHARACTERISTICS
CHARACTERISTICS
CHARACTERISTICS
CHARACTERISTICS

Commend Not Accepted’
.
Not Re jected With
Non-Zero Unused Fields’
Not Rejected With Invalid Deste Count’
Not Rejected With Invelid Block Address’

'WRITE CHARACTERISTICS Not Rcicctcd With Invalid Buffer Length’

’0

:ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES
T7REST:

034416
034422
034426
034434

034440

012701
012721
012721
00502 1
012721
012721
0050

033230

033240
000010
033256
000020

SAVREG
MOV
MOV
MOV
CLR

#T7PACKET,R1
#100004,(R1)+
#T7DATA,(R1)+
( 1)e

(R1).

sSAVE THE REGISTERS
1START OF THE PACKET
;WRITE CHARACTERISTICS WITH ACK
;ADDRESS OF CHAR DATA BLOCK
;EXTENDED ADDRESS
:SIZE OF DATA BLOCK IN BYTES

MOV

ao;

:TI@FR (R1)-

MOV

#16..(R1).

sLENGTH OF MESSAGE BUFFER

RTS

;RETURN

CLR
CLR

(R1)(R1)

ENDTST

s ADDRESS OF MESSAGE BUFFER

L100SS:

.SBTTL

TEST

TRAP

CSETSTY

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 EXECUTINGA WRITE CHARACTERiSTICS COMMAND WITH THE

CVC 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 B8Y THIS
JEST;
THIS FUNCTIONALITY IS CHECKED IN THE INDIVIDUAL TESTS OF
TAPE MOTION COMMANDS.
THE TEST PROCEEDS AS FOLLOMS:

1.
2.

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;

M11

JTSVSA
TEST

- HARDWARE TESTS

MACRO V0S.03

Tuesdey 28-Apr-87 10:28

,
Page 85-36

SEQ 0142

VOLUME CHECK

i;g;

1799

;

1802
1803

:
:

1806
1807

iggg

THE VCK BIT SHOUWLD BE CLEAR (0).

1816 034462
1817 034466
1818 034472

012700
004737
012737

035347
016570
000024

1822 034504

012704
004737

035070
016054

1827 034512

1828 034514

010001

034514
034516
034520
034522

1829 034524
1830 034530
1831 034534

104455
001441
003652
012104

042714
010465
004737

igg 034500
1821 054500
1623 034510

1832 034540

103405

10340S

1833 034542

010001

034544
034546
034550
034552

104455
001442
035260
012116

034554
1839 034556
034556
034560

104406

1837 034544

1838 034554

1840 034562
1842 034574
1846 034576
34602
1841 034566

THE VCK BIT SHOUWLD BE CLEAR (0).

A WRITE CHARACTERISTICS COMMAND IS ISSUED WITH CVC=0
AND THE VCK BIT IN XSTO IN THE MESSAGE BUFFER IS
EXAMINED;

THE VCK BIT SHOULD REMAIN CLEAR (0).

1810
1811 034462

034462

A WRITE CHARACTERISTICS COMMAND IS ISSUED WITH CVC=1
AND THE VCK BIT IN XSTO IN THE MESSAGE BUFFER IS

EXAMINED;

:
:

THE PREVIOUS STEP IS REPEATED TO VERIFY THAT VCK DOES

NOT CHANGE (REMAINS AT
0).

104410
000604

012702
032762
001406
016501

002214

T8LO0P:
S$:

BGNTST

#7ST8ID,RO
PC,TSTSETUP
$20. ,LOOPCNT

1ASCII MESSAGE TO IDENTIFY TEST
;00 INITIAL TEST SETUP
1PERFORM 20 ITERATIONS

MOV
JSR

#TBPACKET R4
PC,SOFINIT

1PACKET FOR WRITE CHARACTERISTICS
;00 SOFT INIT OF CONTROLLER

ERROF

snéno.sr:enn.srmsc

1SAVE CONTENTS OF TSSR

BIC
MOV
JSR

08IT14,(R4)
R4, TSDB(RS)
PC.CHKTSSR

;CLEAR THE CVC BIT
1SET THE PACKET ADDRESS FOR WRITE CHAR
iWAIT FOR SSR TO SET

MOV

RO,R1

1SAVE CONTENTS OF TSSR

BCS

MOV

040000
000000
016416

104:

BCS

ERROF

15%:

000020

104406
010465 000000

154

ERRNO, TBSSR,PKTSSR

204 :

CKLOOP
MOV

;BR IF SOFT INIT = OK

;DEVICE FATAL ERROR DURING INIT
TRAP
.WMORD
"MORD
"WORD

TST

R&,TSDB(RS)

C4ERDF
801
SFIERR
SFIMSG

1BR IF CARRY SET (GOOD RETURN)

;DEVICE FATAL SSR FAILED T0 SET
TRAP
.MORD
'WORD
.WORD

CHERDF
802
T8SSR
PKTSSR

TRAP

C#CLPL

TRAP
LWORD

CHESCAPE
L10064.

1LOOP ON ERROR, IF FLAG SET

MOV
#T8BFR,R2
8IT
#XSOVCK, XSTO(R2)
BEQ
204
MOV
TSSR(RS) ,R1
ERRHRD ERRNO, TBNVCK ,PKTMES

000006

000002

104456
001443
035167
012160

CKLOOP
ESCAPE

035112

78::

MOV
JSR
MOV

;EXIT IF FATAL ERROR

1ADDRESS OF THE MESSAGE BUFFER
1IS VOLUME CHECK SET IN XSTO ?
1OKAY IF VOLUME CHECK IS CLEAR
1CONTENTS OF TSSR FOR ERROR REPORT
1VOLUME CHECK NOT CLEAR
TRAP
C4ERHRD
.MORD
803
"WORD
TBNVCK
‘MORD
PKTMES
;LOOP ON ERROR ?
TRAP
C$CLP1
1SET THE PACKET ADDRESS FOR WRITE CHAR

N11

JSVSA - HARDWARE TESTS
TEST

1850
1851
1852
1856

MACRO V0S.03

Tuesday 28-Apr-87

10:28

Page 85-37

SEQ 0143

VOLUME CHECK

034620
034624
034626
034630

004737
103405
010001

016416

PC,CHKTSSR

+WAIT FOR SSR TQ SET

RO,R1
ERRNO, TBSSR,PKTSSR

1SAVE CONTENTS OF TSSR

254

104455

lDEVICE FATAL SSR FAILED TO SET
UORD

001444
035260
012116

254:

104406
104410
000020

817
BEQ

000006

000002

.WORD
.WORD

MOV
ERRHRD

187

#XSOVCK , XSTO(R2)
304

TSSR(R5),R1

ERRNO, TBNVCK ,PKTMES

#8IT14,(R4)

R4, Tsoécns
PC,CHCKTSSR

33
ERAND, TBSSR, PKTSSR

TSY

#XSOVCK,XSTO(R2)
404
Te5R”

).R1
ERRND, TBVCK, PXTMES

#8IT14 (R4)

R4 ,TSOE(RS)

PC . CHKTSSR

RO,R1

ERAND
, TBSSR, PKTSSR

CéCLPL

CS$ESCAPE

LWORD

L10064-.

.WORD
.WORD
.WORD

805
TBNVCK
PKTMES

TRAP
CéCLP1
$sSET THE CVC BIY
1SET _THE PACKET ADDRESS FOR WRITE CHAR
3UAIT FOR SSR T0 SET

1BR IF CARRY SET (GOG) RETURN)
1 SAVE CONTENTS OF TSSR
;DEVICE FATAL SSR FAILED 10 SET
TRAP
C4EROF

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

.WORD

11S VOLUME CHECK CLEAR IN XSTO ?

806
TBSSR
PKTSSR

ctCLPl
C4ESCAPE

L10064-.

sOKAY IF VOLUME CHECK IS CLEARED
sCONTENTS OF TSSR FOR ERROR REPORT
1VOLUME CHECK NOT CLEARED
TRAP
C4ERHRD

1LOOP ON ERROR ?

016416

TRAP

.WORD
.WORD
.WORD

35¢:

000020

TRAP

TBSSR
PKTSSR

;IS VOLUME CHECK SET IN XSTO ?
IG(AY IF VOLUME CHECK IS SET
1CONTENTS OF TSSR FOR ERROR REPORT
IVQ.UG CHECK NOT SET
TRAP
CS4ERHRD

sLOOP ON ERROR ?

304:

016416

sEXIT IF FATAL ERROR

C4EROF

804

;LOOP ON ERROR, IF FLAG SET

CKLOOP
ESCAPE

18R IF CARRY SET (GOOD RETURN)

.WORD
.WORD
.WMORD

807
T8VCK
PKXTMES

TRAP

CsCLPL

. WCRD

808
T8SSR

1CLEAR THE CVC BIY
1SET_THE PACKET ADORESS FOR WRITE CHAR
1WAIT FOR SSR 10 SET
1BR IF CARRY SET (GO(D RETURN)
1SAVE CONTENTS OF TSSR
10EVICE FATAL SSR FAILED TO SET
TRAP
COEROF
. WORD

Ble

!TSVSA

HARDWARE TESTS

TEST

VOLUME CHECK

035006
1895 035010
035010
1896 035012
035012

MACRO V0S.03

012116

Tuesdey 28-Apr-87 10:28

454 :

104406

000020

BIT

000006

B8EQ
MOV
ERRHRD

000002

SEQ 0l44

.WORD

PKTSSR

TRAP

C$CLP1

TRAP
LWORD

C4ESCAPE
L)
-

TRAP

CIERHRD

IF FLAG SET

;LOOP ON ERROR,

CxLooP

ESCAPE

104410

Pege 85-38

TS8T

tEXIT IF FATAL ERROR

#XSOVCK , XSTO(R2)

+1IS VOLUME CHECK CLEAR IN XSTO ?
sOKAY IF VOLUME CHECK IS CLEARED
sCONTENTS OF TSSR FOR ERROR REPORT
;VOLUME CHECK NOT CLEARED

30 $
TSSR(RS),R1
ERRNO,
TBVCK ,PKTMES

.WORD

016536
034500

S04 :

CKLOOP

604 :

JSR

624:

ecc
JMP

EXIT

;1LOOP ON ERROR ?

PC,TSTLOOP

624

T8L00P

TS7

.WORD

TRAP
;SHOULD WE DO ITERATIONS ?
;1BRANCH IF NOT
;LOOP UNTIL COUNT EXPIRED
;ALL DONE THIS TEST
TRAP

L.WMORD

809

T8VCK

PKTMES

CsCLP]

C$EXIT

L10064-.

sLOCAL STORAGE FOR THIS TEST
s~

100004
035100

000000
000010

035112

.BLKB

10-<.-TSVRET>

.WORD
.WORD
. WORD
. WORD

100004

T8DATA
0

;COMMAND PACKET FOR TEST
sWRITE CHARACTERISTICS COMMAND
;sADDRESS OF CHARACTERISTICS BLOCK

;STARTING VALUE OF COUNTER

. WORD
. WORD
. WORD
. WORD

T8BFR
0
16.
0.0

T8PACKET:

T8BDATA:

000000
000020
000000
T8BFR:

;sCHARACTERISTICS DATA BLOCK
;sADDRESS OF MESSAGE BUFFER
tLENGTH OF MESSAGE BUFFER
;sMESSAGE BUFFER

.BLKW

1LOCAL TEXT MESSAGES FOR TEST
T8VCK:

TeNVCK::

T8SSR:
TST81ID:

.ASC1Z

‘Volume Check Bit Not Cleared’
‘Volume Check Bit (VCK) Not Clear After Initielize (XSTO)'
‘Contents of TSSR Incorrect After Write Charscteristics’
‘Volume Check’

L10064:
TEST

TRAP

CHETST

COMPLETION INTERRUPT

fi‘

TSVSA
{TEST

HARDWARE

TESTS

MACRO Vv0S.03

Tuesdey 28-Apr-87

10:28

Pege 85-39

SEQ 0145

COMPLETION INTERRUPT

1345

THIS TEST VERIFIES THAT AN INTERRUPT IS GENERATED AT THE

COMPLETION OF THE WRITE CHARACTERISTICS CG';MD IF THE INTERRUPT

THIS TEST
S SET.
ENABLE ( IE) BIT IN TP( COMMAND HEADER
? THE INTERRUPT LOGIC AND BASIC
CHECKS THE FUNCTI
PROCESSING OF THE IE 81

THE SEFQUENCES OF TEST 7 ARE REPEATED,
EXCEPT THAT THE INTERRUPT
SERVICE ROUTINE IS SET UP TO EXPECT INTERRUPTS AND EACH WRITE

CHARACTERISTICS COMMAND IS ISSUED WITH THE IE BIT SET (1).
IT
WHERE APPROPRIATE, THAT THE IE STATUS BIT IN XSTO
IS VERIF IED
OF
A
SSAGE PACKET IS SET AND Tan COMPLETION INTERRUPT IS

GE'&"RATED

FIRST WITH JE=)

THE

S ARE ISSUED,

IT IS VERIFIED PTHAT

THAT THE
NO INTER.APT IS GENERATED AFTER THE SECOND C OMMAND AND
IE BIT IN XST0 IS O

BGNTST
005037
012700
004737
012737

002224
1
016570
000024

002214

TOLOOP:

CLR
MOV
JSR
MOV

EXTFEA
#757910,R0

PC,TSTSETUP
#20. .LOOPCNT

719::

sCLEAR EXTENDED FEATURES SWITCH
sASCII MESSAGE TO IOENTIFY TEST
s00 INITIAL TEST SETUP
s1PERFORM 20 ITERATIONS

$/77107277777 Be%ulswresv 177177777277

BGNSUB

104402

012700

10444)
012703

012704
012764

1981

002764
037350
000010

1SET _PACKET TO INITIAL VALUES
iLOWER PRIORITY TO ALLOW INTERRUPTS

#TSTBLK. 10, ns

;START OF TEST DATA

TOREST

nmcxsv
S$:

mcuf(uu)

no R

ERAND, SFIERR, SFIMSG

002220
002222
000000
016416

104:

FATFLG

INTRECV

R4, TSDB(RS)
PC . CHKTSSR

154

RO,R1

035510
035512

ERAND, T9SSR, PKTSSR

MOV
TRAP

#PRIOO,RO
C4SPRI

1GET THE ADORESS OF COMMAND PACKET
;START WITH MINIMUM ALLOWABLE VALUE
§2>>>>>>>>>>>

PC SOFINIT

016054

C48SUB

#PRI00

PC,

004737

IRAP

BEGIN SEGMENT

TRAP

>>5>>3>>3>>>>>>

1D0 SOFT INIT OF CONTROLLER
1BR IF SOFT INIT = OK
1SAVE CONTENTS OF TSSR
+DEVICE FATAL ERROR DURING INIT
TRAP

.WORD
.WORD
.WORD

F
sCLEAR FATAL ERROR
1CLEAR INTERRUPT RECEIVED FLAG
1SET _THE PACKET ADORESS
1WAIT FOR SSR 7O SET
1BR IF CARRY SET (GOG) RETURN)
1 SAVE CONTENTS OF TSSR
1DEVICE FATAL SSR FAILED TO SET
TRAP

.WORD

C4BSEG

C4EROF

901
SFIERR
SFIMSG

CHERDF

902

D12

TSVSA

TEST

HARDWARE TESTS

Tueedey 28-Apr-87 10:28

Page 85-40

SEQ 0146

COMPLETION INTERRUPT

035514
1999
2000
2001
2002

MACRO VO05.03

2003
2007 0O

040067

012116

005237

002220

15¢:

104406

104410
000056
005737
001004

002222

104456

. WORD
. WORD

INC
CKLOOP

FATFLG

F
;SET FATAL ERROR

ESCAPE

SEG

;sBY-PASS SUBTEST IF FATAL ERROR

TS7

5gIRECV

ERRHRD

ERRNO, TONINT ,PKTSSR

LOOP ON ERROR, IF FLAG SET
TRAP

10ID AN INTERRUPT OCCUR ?
sBRANCH IF YES
TRAP

. WORD

000002

TSSR(RS),R1
#SSR

224%:

000100

. WORD
t1GET THE CONTENTS OF TSSR

ERRNO,
T9NBA ,PKTSSR

304:

;D0ES EXPECTED MATCH RECEIVED ?
;OKAY IF MATCH
;NBA NOT ZERO
TRAP

gCcccccccccccc

ENDSEG

104405
MOV

003062

BHIS
JP

035442

CS4ERHRD

903

TONINT

PKTSSR

904

.WORD

PKTSSR

554
Y

$1BRANCH TILL BACK T0 ZERO

FATFLG

#1,REV

:IS IT A NEW MICROCODE
1NO BR
tEXTENDED FEATURES SET?
1BR IF NO
$1SET EXT FEATURE FLAG

T98FR.12,08IT7

037404

INC

1ANY FATAL ERRORS ?

1BRANCH IF NOT

654
704:

sHAS ALL DATA BEEN TESTED ?
sBRANCH JF ALL DATA DONE

604

PC . CKDROP

604:

654 :

C$ESEG

$ ANANANANNNNNANN END SUBTEST NN
L10066:
TRAP
CtESLB

002220

002226

TONBA

<cccccccecccc

TRAP

;SET THE TEST WORD

104403

017262

END SEGMENT

100004:

CSERHRD

.WORD

(R3).,PKBCNT(R4)

R3, #TBLEND

554
:

002224

-.
10000%¢

sEXPECTED CONTENTS OF TSSR
$1IS OFF-LINE BIT SET ?

. WORD

037426
012116

022737
001004
033727
001402
005237

CS$ESCAPE

$;SET OFF-LINE IN EXPECTED DATA

254
:

104456
001610

005737
001402
004737

CsCLPL

;BRANCH IF NOT OFF -LINE

000100

012364
020327
103002
000137

T9SSR
PKTSSR

704

EXTFEA

:TEST 9, SUBTEST 2
:CHECK THAT UNUSED BITS BEING SET CAUSES

s TRY TO DROP THE UNIT

Ele

TSVSA

TEST

HARDMARE TESTS

MACRO V05.03

Page 85-41

SEQ 0147

COMPLETION INTERRUPT

2045
2046
2047
2048

tWRITE CHARACTERISTICS COMMAND TO BE REJECTED
]

2049 035666
035666
035666
2050
2051 035670
035670
035674

2052
2053
2054
2055
2056

Tuesdey 28-Apr-87 10:28

T
000000

035676
035702
035706

037412
037350
040446

S5¢:

035712

2057
2058 035714
2059 035720

016054

#T92DATA RS

1START OF TEST DATA FOR SUBTEST
1GET _THE ADDRESS OF COMMAND PACKET
1RESTORE PACKET TO STARTING VALUES

oTIPACKE?L. R4

PC.TOREST

122>>>>>»>>>>>

PC,SOFINIT

104

RO,R1

ERANO, SFIERR , SF IMSG

BEGIN

TRAP
.WORD

tWAIT FOR SSR TO SET

154

15%:

040156
012116
016501
012702
032701
001402
052702
020201

000002

102206
000100

000100

224:

254:

18R IF CARRY SET (GO(D RETURN)
1SAVE CONTENTS OF TSSR
1DEVICE FATAL SSR FAILEDY'T‘gpSET
.WORD
.MORD
.WORD

SEG

IF FLAG SET
RAP
1BY-PASS CHECKS IF FATAL ERROR

ggIRECV

1DID AN INTERRUPT OCCUR ?

TSSR(RS),R

osc-ssn-isnea-uaa R2

#OFL ,R1
254
#OFL ,R2
R2,Ri

C$BSEG

C4ERDF
905

SFIERR
SFIMSG

1OFFSET TO THE DATA WORD TO TEST
1SET THE DATA BITS TO BE TESTED
1SET_THE PACKET ADDRESS

1LOOP ON ERROR,

ERRNO, TONINT ,PKTSSR

104456
001613

1CLEAR INTERRUPT RECEIVED FLAG

R4, TSDB(RS)
PC.WAITF

(R%),R

002222

2233232>3>>>

1D0 SOFT INIT OF CONTROLLER
t1BR IF SOFT INIT = 0K
tSAVE CONTENTS OF TSSR
;DEVICE FATAL ERROR DURING INIT

1START OF THE COMMAND PACKET

ERAND, T9SSR, PKTSSR

104410
000056
005737
001004

TRAP

R4 no

RO,R1

012116

SEGPENT

#PRIOO,RO
C4SPRI

.WORD
WORD

2(a35 (RO)

000002
000000
016330

104406

036010

MOV
MOV
JSR

TRAP

003652

2071 035760
2072 035762
2076 035764
035764
035766
035770

;LOMER PRIORITY 1O ALLOU INTERRU’TS

JSR
8Cs

104:

C4BSUB

PPRI0O

MOV
ERROF

002222

TIRAP

SETPRI

BGNSEG

035712

2063 035722
2064 035724
035724
035726
035730
035732
2065 035734
2066 035740
2067 035742
2068 035744
2069 035750
2070 035754

1 /77777777777 BE?%NZSLBTEST /77777777777

BGNSUB

TRAP

CS$ERDF
906
T9SSR
PKTSSR

CsCLPL
C4ESCAPE
100004
-.

1BRANCH IF YES

TRAP

.WORD
.WORD
LWORD

1GET THE CONTENTS OF TSSR
1EXPECTED CONTENTS OF TSSR
+1S OFF-LINE BIT SET ?
1BRANCH IF NOT OFF -LINE
$SET OFF-LINE IN EXPECTED DATA
1DOES EXPECTED MATCH RECEIVED ?

C4$ERHRD

907
TONINT
PKTSSR

F12

TSVSA

TEST

HARDWARE TESTS

MACRO V0S.03

Tuesdey 28-Apr-87

10:28

Page 85-42

SEQ 0148

COMPLETION INTERRUPT

209% 036044
209
036046
036050
036052
036054

001404
104456
001614
037501
012116

036056

104405

2099 036060
2100 036064

062703
020327

2101 036070
2102 036072

BEQ
ERRHRD

103002
000137

304:

000004
037426

594
036076

ENDSEG

;OKAY IF MATCH

s COMMAND NOT REJECTED

peccccccceccccc

END

TRAP

%gnmo

.WORD
.WORD

T92REJ
PKTSSR

SEGMENT

100004
:

04 ,R3
R3, #T92D0NE

sPOINT TO NEXT DATA PAIR

JMP

S¢

$BRANCH TILL BACK TO ZERO

594

ENDSUB

<ccccccccccce

TRAP

ADD
cHP

BHIS

035702

304
ERRNO, T92REJ,PKTSSR

C4ESEG

;COMPARE TO END OF TEST DATA
1BRANCH TIF ALL DATA TESTED

SANAAAAANNNAANY

104403

END

SUBTEST

L10067

" TRAP

C4ESUB

;

s TEST 9,

SUBTEST 3

1CHECK THE WRITE CHARACTERISTICS COMMAND IS REJECTED
1IF ISSUED WITH AN INVALID DATA BLOCK BYTE COUNT

BGNSUB

$111770007777 aeggNBSUBTEST

T
036102

gl270¢1)

2118 036110

012703

2120 036120

004737

000001
037350
040446

S¢:

SETPRI

#PRIOO

MOV
MOV
JSR

#1,R3
STIPACKET ,R4
PC,TIREST

BGNSEG
016054

PC,SOFINIT

MOV

RO,R1

ERRDF

002222
000006
000000
016330

104:

CLR

104

ERRNO,SFIERR, SFIMSG

INTRECV

MOV
MOV
JSR

R3,PKBCNT(R4)
R4 . TSDB(RS)
PC .WAITF

MOV

RO,R1

BCS

154

TRAP

cs85UB

tLOWER PRICRITY TO ALLOW INTERRUPTS
MOV
OPRIOO,RO
TRAP
C4SPRI
1STARTING BYTE COUNT
1GET_THE ADDRESS OF COMMAND PACKET
+RESTORE PACKET TO STARTING VALUES
$>>>>3>5>>>>>>>

JSR

8Cs

177177277777

BEGIN SEGMENT >>>>>>>>>>>>
TRAP
C4BSEG

100 SOFT INIT OF CONTROLLER
1BR IF SOFT INIT = 0K
1SAVE CONTENTS OF TSSR
sDEVICE FATAL ERROR MI%AgNIT
.WORD
.WORD
WORD

1CLEAR INTERRUPT RECEIVED FLAG
1 INSERT THE BYTE COUNT FOR TEST
1SET_THE PACKET ADDRESS
tWAIT FOR SSR TO SET
1BR IF CARRY SET (GOOD RETURN)

ISAVE CONTENTS OF TSSR

CSEROF
909
SFIERR
SFIMSG

Gle

TSVSA

- HARDWARE TESTS

TEST

MACRO V0S.03

Tuesday 28-Apr-87 10:28

Page

85-43

SEQ@ 0149

COMPLETION INTERRUPT

2140 036172
036172

ERRDF

104455

001616
040067
012116

15¢:

104406
104410
000056
005737
001004

002222

CKLooP

000002
102206
000100

000100

;DEVICE FATAL SSR FAILED TO SET
TRAP

. WORD
. WORD
. WORD
IF FLAG SET

;LOOP ON ERROR,

TST
BNE

%gIRECV

;DID AN INTERRUPT OCCUR ?

TSSR(RS),R

osc'ssmisaswwn R2

00FL ,R1
254
POFL ,R2

254:

R2,Ri

30¢
ERRNO, T93REJ,PKTSSR

100004
-.

;BRANCH IF YES

TRAP

. WORD
. WORD
WOR

1GET THE CONTENTS OF TSSR
tEXPECTED CONTENTS OF TSSR
+IS OFF-LINE BIT SET ?

C4ERHRD
911

TONINT
PKTSSR

1BRANCH IF NOT OFF -LINE

$sSET OFF-LINE IN EXPECTED DATA
:DOES EXPECTED MATCH RECEIVED ?

sOKAY IF MATCH

1COMMAND NOT REJECTED

C4ERHRD
912
PKTSSR

304:

§€Cccccccccc<<

END

SEGMENT

100004:

104405
005203
020327

000137

C4ESCAPE

T93REJ

012116

002002

TRAP

;1BY-PASS SUBTEST IF FATAL ERROR

22%:

T9SSR

PKTSSR

C4CLP1

SEG

ERRNO, TONINT ,PKTSSR

C4EROF
910

TRAP

ESCAPE

ERRHRD

104456

ERRNO,
T9SSR ,PKTSSR

<cccccccceccc

TRAP

C4ESEG

sNEXT BYTE COUNT

s TESTED ALL INVALID ?
tBRANCH IF TEST DONE
1BRANCH TILL BACK TO ZERO

036114

59¢:

SANAANNAANANAN END SUBTEST

L10070:

104403

TRAP

C4ESUB

:TEST 9, SUBTEST 4
:SUBTEST TO VERIFY THAT A WRITE CHARACTERISTICS COMMAND IS
sREJECTED IF AN ILLEGAL DATA BLOCK ADDRESS IS ISSUED.

036304

036304
036306

BGNSUB

877777777777/ BE?%N‘SUBTEST 1///77/7/7/77

104402

TRAP

SETPRI

#PRIOO

csBsuB

tLOWER PRIORITY TO ALLOW INTERRUPTS

H12

TSVSA

TEST

HARDWARE

TESTS

MACRO V0S.03

Tuesday 28-Apr-87

10:28

Page

85 44

SEQ 0150

COMPLETION INTERRUPT

036306
036312
2182 036314
2183 036320
2184 036324

012700
10444}
012703
012704
004737

004737
103405
010001

000000

MOV

037412
037350

040446

JSR

016054

#T92DATA,R3

;START OF TEST DATA FOR SUBTEST

PC.TOREST

;RESTORE PACKET

PC,SOFINIT

1D0 SOFT INIT OF CONTROLLER
tBR IF SOFT INIT = OK
1 SAVE CONTENTS OF TSSR
;DEVICE FATAL ERROR DURING INIT

oT9PACKEY, R4

104

RO,R1

ERRNO, SFIERR, SFIMSG

104455
001621
003652
00222
00000
000000
016330

037360

104:

INTRECV
021, T90ATA

R4,TSDB(RS)
PC,WAITF

154

RO,R1

ERAND, T9SSR, PKTSSR

012116

15¢:

104406

104410

000056
005737
001004

104456
001623
040156
012116
016501
012702
032701

002222

000002
102206
000100

000100

CKLOOP

TRAP
.WORD

.WORD
.WORD

sCLEAR INTERRUPT RECEIVED FLAG
;MAKE ADDRESS 0DD
$SET _THE PACKET ADORESS
tWAIT FOR SSR TO SET
:1BR IF CARRY SET

TRAP

;sLOOP ON ERROR,

.WORD
.WORD
.WORD
IF FLAG SET

1ST
BNE
ERRHRD

INTRECV
224
ERRNO, TONINT,PKTSSR

1DID AN INTERRUPT OCCUR ?
:BRANCH IF YES
.WORD
.WORD
.

1GET _THE CONTENTS OF TSSR
tEXPECTED CONTENTS OF TSSR

R2,R1
304
ERRNO, T94REJ,PKTSSR

tBRANCH IF NOT OFF -LINE
1SET OFF-LINE IN EXPECTED DATA
1DOES EXPECTED MATCH RECEIVED ?
1OKAY IF MATCH
s COMMAND NOT REJECTED

00FL ,R1
254
60FL ,R2

25%:

TRAP

osc-ssavaREJ-NaA R2

TSSR(RS),R1

11S OFF-LINE B8IT SET

C4ERDF

914
T9SSR
PKTSSR

C4CLP1
C4ESCAPE
L10071-.

C4$ERHRD

915
TONINTY
PKTSSR

TRAP

.WORD
.WORD
.WORD

304:
SANMAMNNNNANNNAN

C4ERDF
913
SFIERR
SFIMSG

(GOOO RETURN)

;1SAVE CONTENTS OF TSSR
sDEVICE FATAL SSR FAILED TO SET

1B8Y-PASS SUBTEST IF FATAL ERROR

ENDSUB

104403

TO STARTING VALWES

suB

224
:

OPRI00,RO

C$SPRI

1GET _THE ADDRESS OF COMMAND PACKET

ESCAPE

104456

001624
037673
012116

TRAP

END SUBTEST

L10071:

C4ERHRD

916
TS94REJ
PKTSSR

TRAP

C4ESLB

112

TSVSA

TEST

HARDWARE TESTS

MACRO V0S.03

Tuesdey 28-Apr-87

Page 85-45

SEQ 0151

COMPLETION INTERRUPT

228

229

gggg

tTEST 9, SUBTEST S
3

2232

;CHECK THAT WRITE CHARACTERISTICS COMMAND IS REJECTED IF THE

gg;j

1MESSAGE BUFFER LENGTH SPECIFIES AN INVALID COUNT (LESS THAN 14)
H

2235
2236

2237 036472

036472

BGNSUB

2238 036472

104402

2239 036474
036474
036500
2240 036502
2241 036506
sg:% 036512

012700
10444)
012703
012704

004737

2244 036516
2248 036516

104404

2246 036520
2247 036524

004737
103405

2251 036526
2252 036530

036530
036532
036534
036536
2253 036540

2254
2255
2256
2257
2258

10:28

036544
036550
036554
036560
036562

036564

104455
001625
003652
012104
005037

010337
010465
004737
103405
010001
104455
001626
040067
012116

036574
2264 036576
036576
036600

104406
104410
000056

2270 036610
036610

104456

2265 036602
2266 036606

000001
037350
040446

005737
001004

016054

SETPRI

6PRIOO

MOV
MOV
JSR

01,R3
OT9PACKET ,R4
PC,TOREST

JSR
BCS
MOV

ERROF

002222

037364
000000
016330

10¢:

CLR

MOV
MOV
JSR
B8CS
MOV

ERRDF

154

002222

2271 036620

016501

000002

2273 036630

032701

000100

102206

224

csBsSuB

sLOWER PRIORITY TO ALLOW INTERRIPTS
MOV
OPRI00,RO
TRAP
C4SPRI
sSTARTING BUFFER LENGTH
;GET THE ADDRESS OF COMMAND PACKET
sRESTORE PACKET TO STARTING VALUES

PC,.SOFINIT
104

;100 SOFT INIT OF CONTROLLER
;BR IF SOFT INIT = OK

INTRECV

TRAP
.WORD
.WORD
. WORD
sCLEAR INTERRUPT RECEIVED FLAG

ERéNO.T9SSR.PKTSSR

sDEVICE FATAL SSR FAILED 10 SET

RO,R1
ERRNO,SFIERR,SFIMSG

R3,T90DATA.4
R4 ,TSDB(RS)
PC,WAITF
15¢
RO,R1

1 SAVE CONTENTS OF TSSR
;sDEVICE FATAL ERROR DURING INIT

SEG

TS7T
BNE

INTRECV
224

ERRNQO, TONINT,PKTSSR

MOV

TSSR(RS),R1

817

#0FL ,R1

#5C'SSR? tSREUINBA, R2

C4ERDF
917
SFIERR
SFIMSG

;INSERT THE BAD MESSAGE LENGTH
;SET THE PACKET ADDRESS
;WAIT FOR SSR TQ SET
:1BR IF CARRY SET (GOOD RETURN)
s SAVE CONTENTS OF TSSR
TRAP
. WORD
.WORD
.WORD

sLOOP ON ERROR, IF FLAG SET

ESCAPE

MOV

TRAP

12>>>55>5>>>>> BEGIN SEGMENT >>>>>>>>>>>>
TRAP
C4BSEG

CKLOOP

ERRHRD

0016%2

012702

19.5:

BGNSEG

036612

2272 036624

S$:

010001

036564
036566
036570
036572

2263 036574

000000

$//7//7/7/7/77777 BEGIN SUBTEST /////77/7/777

C4ERDF
918
TI9SSR
PKTSSR

TRAP
CsCLP)
1BY-PASS SUBTEST IF FATAL ERROR
TRAP
C$ESCAPE
.WORD
100004
-.

;{ ID AN INTERRUPT OCCUR ?
;BRANCH IF YES

TRAP

.WORD
.WORD
LWORD

THE CONTENTS
OF TSSR

lEXPECTED CONTENTS OF TSSR
11S OFF-LINE BIT SET

C$ERHRD

919
TONINT
PKTSSR

J12

TSVSA

TEST

HARDWARE

TESTS

MACRO V0S.03

036634
036636
036642
036644
036646
036646
036650
036652
036654
2282 036656
2283 036656
036656
2284 036656

001402
052702
020201
001404

2285 036660
2286 036662

005203
020327

000014

gggg 036670

000137

036506

2287 036666

000100

25%:

104456
001630
037771
012116

304:

Page

85-46

036674
036674

BEQ
BIS
cMe
BEQ
ERRHRD

254
o0FL ,R2
R2,R1
304
ERRNO, T9SREJ,PKTSSR

ENDSEG

SEQ 0152

002002

104403

R3
RS, 014

iNEXT BUFFER LENGTH
sHAVE ALL BAD VALUES BEEN TESTED ?

JMP

;BRANCH TILL BACK T0 ZERO

594

ENDSUB

;BRANCH IF ALL

TESTED

$ ANANAANNNNANNANN END SUBTEST NN
L10072:

e
3

sggz

CS$ERHRD
920
T9SREY
PKTSSR

INC
cMe

BGE
594

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

jeccccccccccecc END SEGMENT ccccccccecc<
100004
:
TRAP
C4ESEG

104405

2290 036674

TRAP

CsESLB

sTEST 9, SUBTEST 6
1

2295
2296
2297
2298
2299
2300
2301
2302

;sTHIS SUBTEST IS EXECUTED ONMLY IF THE EXTENDED
;FEATURES MODE IS ENABLED (AS DETERMINED B8Y EXAMINING
;s XST2 AFTER A PREVIOUS EXECUTION OF WRITE CHARACTERISTICS).
:+IT VERIFIES THAT A FIFTH CHARACTERISTICS DATA WORD IS FETCHED
sIF THE BYTE COUNT PARAMETER IN THE COMMAND PACKET IS 10 DECIMAL
;OR GREATER.
$
:-

2303 036676
2304
2305
2306
Sgg;

10:28

COMPLETION INTERRUPT

2274
2275
2276
2277
2281

2291
2292

Tuesday 28-Apr-87

036676
036676

BGNSUB

104402

036700
036704
036706
036712

005737
001002
000137
004737

002224

2309 036716
036716
036722
2310 036724

012700
10444)
012703

000000

ggig 8;2;23

012764

000012

2311 036730
2314 036742

012704

2318 036742

104404

2316 036744

004737

2317 036750
2321 036752
2322 036754
036754

103405
010001
104455

037126
040446

002764

037350

19.6:

csBsuB

EXTFEA
44
5S¢
PC,TO9REST

1IS EXTENDED FEATURES SOFT. SW SET?
sBR, IF SOFTWARE SWITCH IS SET (ON)
sEXIT SUBTEST
1SET PACKET 7O START-UP VALUES

SETPRI

oPRIOO

#TSTBLK+10. ,R3

;LOWER PRIORITY TO ALLOW INTERRUPTS
MOV
SPRI0O,RO
TRAP
C$SPRI
xSTART OF TEST DATA

010, .,PKBCNT(R4)

;START WITH EXTENDED FEATURES VALUE

MOV

P#TIPACKET R4

BGNSEG

016054

TRAP

TST
BNE
JMP
JSR

MOV

000006

$//7//7/7/77/7777 BEGIN SUBYESTY /////77/7/77777

JSR

8CS
MOV
ERRDF

+GET THE ADDRESS OF COMMAND PACKET
$2>>>>>5>>>>>>

PC,SOFINIT

104
RO,R1
ERRNQ,SFIERR, SFIMSG

BEGIN SEGMENT

TRAP

D0 SOFT INIT OF CONTROLLER

»>>>>>>>>>>>>

C4BSEG

;BR IF SOFT INIT = 0K
1 SAVE CONTENTS OF TSSR
INIT
;DEVICE FATAL ERROR DURING
1
TRAP
CHERDF

K12

TSVSA

TEST

HARDWARE TESTS

MACRO V0S.03

Tuesdey 28-Apr-87 10:28

Page 85-47

SEQ 0153

COMPLETION INTERRUPT

036756
036760
036762
036764
036770
036774
037000
037004
037006
037010
037010
037012
037014
037016
037020
037024
037024
037026
037026
037030
037032
037036
037040
037040
037042
037044

001631
003652
012104

002220
002222
000000
016416

10¢:;

CLR
CLR
JSR
BCS

ERRDF

002220

15¢:

002222

FATFLG
INTRECV

R4,TSDB(RS)
PC,CHKTSSR

15%

RO,R1

ERRNO, T9SSR,PKTSSR

1BR IF CARRY SET

(GOOD RETURN)

sSAVE CONTENTS OF TSSR
:DCVICE FATAL SSR FAILED 7O SET
TRAP
.WORD

.WORD
WORD

1SET FATAL ERROR FLAG

ESCAPE

SEG

1B8Y-PASS SUBTEST IF FATAL ERROR

INTRECV
224
ERRNO, TONINT ,PKTSSR

TSSR(RS),R1
#SSR,R2

224
:

000100

o0FL ,R1

254
POFL ,R2
Re2,R1
304
ERRNO,
T9NBA ,PKTSSR

25%:

104456

001634
037426
012116

;LOOP ON ERROR,

IF FLAG ?g;p
TRAP

ENDSEG

MOV
cre
B8HIS
JP

003062

036742
S5¢:

(R3)+,PKBCNT(R4)

S¢

ENDSUB

:TEST 9, SUBTEST 7

C4CLP)

TRAP

C4ERHRD

.WORD
WORD

TONINT
PKTSSR

$1GET THE CONTENTS OF TSSR
tEXPECTED CONTENTS OF TSSR
sI1S OFF-LINE BIT SET ?

923

1BRANCH IF NOT OFF -LINE

1SET OFF-LINE IN EXPECTED DATA
$DOES EXPECTED MATCH RECEIVED ?

1OKAY IF MATCH

tNBA NOT ZERO

END

TRAP
.WORD

C4ERHRD
924

.WORD

PKTSSR

SEGMENT

100004:

gg‘OTBLEND

T9SSR
PKTSSR

C4ESCAPE
10000¢-.

;DID AN INTERRUPT OCCUR ?
:1BRANCH IF YES

geccceccecccc<c

037106

C4ERDF
922

.WORD

30¢:

sWAIT FOR SSR TQO SET

FATFLG

TST
BNE
ERRHRD

921
SFIERR
SFIMSG

t1SET _THE PACKET ADDRESS

INC
CKLOOP

000100

037126
037126
037126

;CLEAR FATAL ERROR FLAG
sCLEAR INTERRUPT RECEIVED FLAG

LWORD

000002

037110
037114
037120
037122

.WORD
.WORD
.WORD

T9NBA

<ccccceccccccc

TRAP

C4ESEG

1SET THE TEST WORD
1HAS ALL DATA BEEN TESTED ?
1BRANCH IF ALL DATA DONE
1BRANCH TILL BACK TO ZERO

SNNANNAANNANANN END SUBTEST

L10073:

TRAP

C4ESUB

L12

i‘I’SVSA

TEST

HARDWARE TESTS

MACRO V0S5.03

Tuesdey 28-Apr-87 10:28

Peage 85-48

SEQ 0154

COMPLETION INTERRUPT
3

1 TEST WRITE CHARACTERISTICS WITH/WITHOUT INTERRUPTS ENABLED

BGNSUB

3 /77777777777 BE?%N_’SWTEST /177777777777

T
SETPRI
037350

MOV

JSR
JSR
BCS
MOV

016054

ERROF

002222

104:

000000
016416

JSR
8CS

010001

2394

ERRDF

104455
001636
040067
012116

154:

2395
002222

;LOWER PRIORITY TO ALLOW INTERR\PTS

OTOPACKET
R4

TRAP
C4$SPRI
1GET THE ADDRESS OF COMMAND PACKET

PC.T9REST
PC.SOFINIT

104

RO,R]

ERRNO, SFIERR, SFIMSG

INTRECV

98IT7,(R4)

R4, TSOB(RS)

PC.CHKTSSR

154

RO,R1

Enéno T9SSR,PKTSSR

SuB

005037

002222
000200
000000
016416

;SET UP A VALID PACKET

300 SOFT INIT OF CONTROLLER
1BR IF SOFT INIT = OK
$SAVE CONTENTS OF TSSR
;DEVICE FATAL ERROR MI?I‘;RAENIT
LWORD
. WORD
. WORD

1WAIT FOR SSR TO SET

18R IF CARRY SET (GOOD RETURN)
1 SAVE CONTENTS
OF TSSR
1DEVICE FATAL SSR FAILED TO SET
.UG?D
.WORD
- WORD

IF FLAG §§;p
TRAP

%g}RECV

;0ID AN INTERRUPT OCCUR ?

TSDB(RS)

Ené~0.79ssn.vassn

CS$EROF
926
T9SSR
PKTSSR

CsCLPL

CS$ESCAPE
L10074-.

;BRANCH IF YES

TRAP

1LOOP ON ERROR ?

20117 LRa)
R4,

C4ERDF
925
SF}ERR

1CLEAR INTERRUPT RECEIVED FLAG
tENABLE INTERRUPTS
1SET _THE PACKET ADDRESS

;BY-PASS SUBTEST IF FATAL ERROR

224:

104406

OPRIO0Q,RO

;LOOP ON ERROR,

ERRNO, TONINT ,PKTSSR

012116

C4BSUB

PPRIOO

CKLOOP
ESCAPE

2396
2397
2401

2413

CLR
BIS

TRAP

C4ERHRD

. WORD
. WORD
. WORD

TONINT
PKTSSR

TRAP

CeCLP)

927

sCLEAR INTERRUPT RECEIVED FLAG
1DISABLE INTERRUPTS
1SET _THE PACKET ADDRESS
1WAIT FOR SSR TO SET

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

M12

TSVSA

TEST

2414

——

2415
2416

2417

2421

HARDMWARE TESTS

MACRO V0S.03

Tuesdey 28-Apr-87

10:28

Page 85-49

SEQ 0155

COMPLETION INTERRUPT

037302
037304
037306
037306
037310
037310
037312
037314
037320
037322
037322
037324
037326
037330

2 037332

037332
037332

040067
012116

25¢:

104406

002222

104456
001641
040247
012116

037332

104403

037334
037334
037336

104432
001162

;LOOP ON ERROR,

€SCAPE

104410

000020
005737
001404

CxLooP
SuB

TS7
8eQ
ERRHRD

304
:

TRAP

;BY-PASS SUBTEST IF FATAL ERROR
TRAP

INTRECV
304
ERRNO,
T9INT ,PKTSSR

ENDSUB

C4ESCAPE

L10074-,

TRAP

CHERHRD

;DID AN INTERRUPT OCCUR ?

;BRANCH IF NOT

s \AONANNANANNANNNY

END

SUBTEST

£10074;

;ALL DONE THIS TEST

TS7

CiCLP)

.WORD
.WORD
.WORD

EXIY

T9SSR
PKTSSR

.
.WORD
IF FLAG SET

929
T9INT
PKTSSR

TRAP
TRAP

.WORD

C$ESUB
C$EXIT

L10065-.

:LOCAL STORAGE FOR THIS TEST
:-

100204
037360
000000
000010

100204

;COMMAND PACKET FOR TEST
sWRITE CHAR COMMAND,
WITH IE,

;STARTING VALUE OF BLOCK SIZE

T9DATA:

1 CHARACTERISTICS DATA BLOCK

T98FR
0

1ADDRESS OF MESSAGE BUFFER
1LENGTH OF MESSAGE BUFFER

0.0

000000

sMESSAGE BUFFER

T9BFR:
'.

:TEST DATA FOR SUBTEST TWO
:DATA HAS FORMAT:
;
;

1ST WORD
2ND WORD

OFFSET 7O TEST uogg IN PACKET

BITS TO SET FOR
T

3
H

037412
037412
037416
037422

000002

000004

037140
000001
100100

T920ATA;

JWORD
.MORD

O.BITS'BITG'BIT9'BITIO'BITII'BITIZ'BITIB

2,BIT0

ACK

1ADDRE
.S OF CHARACTERISTICS BLOCK

T9DATA
0

037372

000000
000016
000000

10-<.-TSV2ET>

T9PACKET:

4.BIT6!BIT1S

PRRRRRRRERR

TSVSA - HARDWARE TESTS
TEST

MACRO VOS.03

Tuesdey 28-Apr-87 10:28

_____

Page 85-50

<£q 0156

COMPLETION INTERRUPT

2463

037426

2404
5465

T9200NE=.
o
{LOCAL TEXT MESSAGES FOR TEST

2466
5467

5470
037426
5471 037501

127
137

122
122

111
TONBA:
.ASCIZ 'WRITE
CHARACTERISTICS Commend Not Accepted’
.
111
TO2REJ: .ASCIZ
'WRITE CHARACTERISTICS Not Rejected With
Non-Zero Unused Fields’

5477 040247
5478 040336
5479 040421
5480

125
111

156
156

145 TOINT: .ASCIZ ‘Unexpected Interrupt Received On WRITE CHARACTERISTICS'
143 T9TSBA: _ASCIZ 'Incorrect TSBA Addrese After WRITE CHARACTERISTICS'
155
TST9ID: .ASCIZ
'Cowpletion Interrupt’
"EVEN

5472
5478
Sa7a
5475
5476

037600
037673
037771
040067
040156

157
127
157
103
105

103

155
155
155
157
170
157

5481
5482

EYEH
548S

111
111
111
156
160

T93PEY:
T94REJ:
T93REJ:
T93SR:
TONINT:

.ASCIZ
.ASCIZ
(ASCIZ
.ASCIZ
.ASCIZ

‘'WRITE CHARACTERISTICS Not Rejected With Invelid Deta Count
'WRITE CHARACTERISTICS Not Rejected With Invalid Block Address’
'URITE CHARACTERISTICS Not Rejected With Invalid Buffer Length’
'Contents of TSSR Incorrect APter WRITE CHARACTERISTICS'’
'Cxpected Interrupt Not Received On WRITE CHARACTERISTICS'

.'ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES

2‘“

m?
Sass
5489 040446

5490 040446
5491 040452
5492 040456
2493 040462
5494 040466
5495 040470
5496 040474
5497 040500
5498 040502
5499 040506
5500 040510
5501 040512
2502 040516
2508
040550
040520

.‘
TOREST
:

012701
012721
012721
005021
012731
012731
005031
012731
005021
005011
005037
000207

037350
100204
037360
000010
037372
000016

037372

SAVREG
MOV
MOV
MOV
CLR
MOV
HOV
CLR
MOV
CLR
CLR
CLR
RTS
ENDTST

OTOPACKET,R1
0100204 (R1)e
OTODATA.(R1)(R1)e
8., (R1).
#T98FR,(R1)+
(R1)e
#14..(R1)(R1)+
(R1)
198FR
pC

104401

sSAVE THE REGISTERS
1START OF THE PACKET
JWRITE CHARACTERISTICS WITH ACK, IE
1ADDRESS OF CHAR DATA BLOCK
JEXTENDED ADDRESS
1SIZE OF DATA BLOCK IN BYTES
;ADDRESS OF MESSAGE BUFFER
JLENGTH OF MESSAGE BUFFER

JCLEAR 1ST LOC IN MESSAGE BUFFER
TRETURN
L10065:

TRAP

CETST

5505

.SBTTL TEST 10: BASIC PACKET PROTOCOL

2508
2509

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

THIS TEST VERIFIES BASIC OPERATION OF THE MESSAGE BUFFER RELEASE

s TEST 10 SUBTEST 1

:C"ECKS THAT THE MESSAGE BUFFER RELEASE COMMAND WORKS
1PROPERLY AND THAT NO INTERRUPT 1S GENERATED EVEN

1IF THE *IE* BIT IS SET IN THE COMMAND PACKET

B13

TSVSA

HARDWARE

TEST

10:

TESTS

MACRO V0S5.03

Tuesdey 28-Apr-87 10:28

SEQ 0157

BASIC PACKET PROTOCOL

2518

2519

2520 040522

040522

2525 040522

2526 040526
2527 040532

gggg 040540

BGNTST

012700

004737
012737

043457

016570
000024

MOV

002214

T10LO0P:

2530 040540

040540

104402

29532 040542

004737

043506

040546

012700

000000

2534 040554

012704

042650

040552

gggz 0‘0%
2537 040566

104441

012764

2538 040566

104404

2539 040570

004737

2544 040576

010001

040600

104455

2540 040574

2545 040600
040602

103405

040606
2546 040610
2547 040614
2548 040620
2549 040624

001751
003652
012104
005037
005037
010465
004737

2551 040632

2555 040634
040634

010001

040642

012116

2550 040630

103407

001752
043210

2556 040644
2557 040650

005237

040654
2559 040656
2560 040662
2564 040664
040664

PC, TSTSETLP
020. . LOOPCNT

SETPRI

000006

016054

002220
002222
000000
016416

10¢:

2565 040674
2566 040700

016501
012702

012116

;00 INITIAL TEST SETUP
;PERFORM 20 ITERATIONS
T10.1:

PC,T10RST
#PRIOO

OT10PACKET R4

#8. ,PKBCNT(R4)

TRAP

;LOWER PRIORITY TO ALLOW INTERRUPTS

MOV

TRAP

sSTART WITH MINIMUM ALLOWABLE VALUE
$2>>>>>>>>>>> BEGIN SEGI'ENT 33533>3>3>>)>

RAP

;00 SOFT INIT OF CONTROLLER

MOV

RO,R1

s SAVE CONTENTS OF TSSR

8Cs

MOV

ERROF

104

ERANO, SFIERR, SFIMSG

;:DEVICE FATAL ERROR DURING INIT
TRAP

. WORD
. WORD
.WORD

FATFLG
INTRECYV
R4 ,TSDB(RS)
PC,CHKTSSR

;CLEAR FATAL ERROR FLAG
;CLEAR INTERRUPT RECEIVED FLAG
;SET THE PACKET AOORESS
sWAIT FOR SSR TO SE

ERN.TIOSSR.PKTSSR

s SAVE CONTENTS OF TSSR

1‘

154:

002222

INC
CKLOOP

FATFLG

ESCAPE

SEG

TST
BNE

INTRECV
224

ERRHRD

ERRNO, TIONINT ,PKTSSR

224:

MOV
MOV

TSSR(RS),R1
OSSR,R2

CHERDF

1001
SFIERR
SFIMSG

;B8R IF CARRY SET (GOOO RETURN)

s+DEVICE FATAL SSR FAILED TRAP
70O SET C4ERDF
.WORD

sSET FATAL ERROR FLAG
sLOOP ON ERROR, IF FLAG SET

1002
T10SSR

PKTSSR

CeCLP]
1BY-PASS SUBTEST IF FATAL ERR(R
TRAP
C4ESCAPE

. WORD
;DID AN INTERRUPT OCCUR ?
1BRANCH IF YES

100004
-.

TRAP

C4ERHRD

.WORD

PKTSSR

.WORD
.WORD

000002
000200

C4BSEG

$1BR IF SOFT INIT = 0K

. WORD
.WORD

002220

OPRI00,RO

C4$SPRI

:GET THE ADDRESS OF COMMAND PACKET

PC,SOFINIT

CLR
CLR
MOV
JSR

csBsSuB

$SET PACKET T0O INITIAL VALUES

JSR

ERROF

104456

001753
043277

MOV

BCS

104410

000056
005737
001004

MOV

710::

sASCII MESSAGE TO IDENTIFY TEST

$//////7//777 BEGIN SUBTEST /////////777

BGNSEG

104406

040666
040670
040672

000010

JSR

104455

040636
040640

040650
2558 040652
040652

JSR
MOV

#7ST10I0,R0O

BGNSUB

2631 040540
2533 040546

Pege 85-51

1GET THE CONTENTS OF TSSR
tEXPECTED CONTENTS OF TSSR

1003
T1ONINT

C13

TSVSA

TEST

10:

MARDWARE

TESTS

BASIC PACKET

2567 040704
2568 040710
2569 040712

032701
001402
052702

2571 040720

001404

040722
040724
040726
040730

104456
001754
043051
012116

2570 040716 020201
2575 040722

2576 040732

MACRO V0S.03

000100
000100

254:

304:

104405

2579 040734

104404

2580 040736

005037

002222

2582 040750

012714

100212

2584
2585
2586
2590

004737
103407
010001

2583 040754

040760
040764
040766
040770
040770
040772
040774
040776

2591 041000
2592 041004
041004

2593 041006

012737

010465

104455
0017SS
043210
012116

005237

104406

005737

2594 041012
2598 041014
041014

001404

041022

012116

041016
041020

104456
001756
043370

2599 041024
2600 041030

016501
012702

2601 041034

2602 041040

2603 041042
2604 041046

2605 041050
2609 041052
041052
041054
041056
041060
2610 041062

032701

001402

052702
020201

025252

2613 041072

020102

002220

2614 041074

001404

;IS OFF-LINE BIT SETY ?
$BRANCH IF NOT OFF
-L INE
sSET OFF-LINE IN EXPECTED DATA

BEQ

304

sOKAY IF MATCH

cHP

000002
000200

S24:

000100

042672

604:

sNBA NOT ZERO

TRAP
. WORD
. WORD
.WORD

CHERHRD
%004
10NBA
PKTSSR

BGNSEG

TRAP
CHESEG
$2>>>>>5>>>>> BEGIN SEGMENT »>5>>>>>»>>>>>

100004:

TRAP

C48BSEG

CLR

INTRECV

sCLEAR INTERRUPT RECEIVED FLAG

MOV

9100212,(R4)

sSET COMMAND PACKET TO MESS BUF REL

PC,CHKTSSR
45‘
RO,.R1
ERRW T10SSR,PKTSSR

sWAIT FOR SSR T0
S
1BR IF CARRY SET (GOG) RETURN)
s SAVE CONTENTS OF TSSR
lDEVICE FATAL SSR FAILED 70 SET

0025252, T108FR

R4, TSDB(RS)

;WIPE OQUT MESSAGE BUFFER AREA

$1SET THE PACKET DDRESS

TRAP
. WORD
.WORD
. WORD

INC
CKLOOP

FATFLG

1SET FATAL ERROR FLAG
tLOOP ON ERROR, IF FLAG SET

157

INTRECV

;DID AN INTERRUPT OCCUR ?

BEQ
ERRHRD

S24
ERRNO, T1OINT ,PKTSSR

MOV
MOV

TSSR(RS),R1
#SSR,R2

;GET THE CONTENTS OF TSSR
tEXPECTED CONTENTS OF TSSR

5S4

sBRANCH IF NOT OFF -LINE

604
ERRNO, TIONNBA,PKTSSR

sOKAY IF MATCH
iNBA
SET

8I7

S0FL ,R1

8IS
ce

SOFL ,R2
R2,R1

BEQ

5S54:

ERRNO, TIONBA,PKTSSR

sD0ES EXPECTED MATCH RECEIVED ?

§Ccccccccccc<< END SEGMENT <<cccccecccce

JSR
BCS
MOV
ERROF

454

R2,
Ri

ENDSEG

MOV

002222

2612 041066 012702 025252
2618 041076

#0FL ,R1
250
R2

MOV

000000

104456
001757
043133
012116

013701

042672

016416

001404

2611 041062

SEQ 0158

817
BEQ
BIS

ERRHRD

040732
2578 040734

2581 040742

Pege 85-52

PROTOCOL

2577 040732
040732

Tuesdey 28-Apr-87 10:28

BEQ
ERRHRD

CS4EROF
%005
10SSR
PKTSSR

CsCLP]

tBRANCH IF NO

TRAP
. WORD
.WORD
.WORD

C4ERHRD
1006
T10INT
PKTSSR

11S OFF-LINE BIT SET ?

$sSET OFF-LINE IN EXPECTED DATA
1D0ES EXPECTED MATCH RECEIVED ?
TRAP
.HORD
.WORD
. WORD

C4ERMRD
1007
T1ONNBA
PKTSSR

MOV

T108FR,R

sPICK UP THE 1ST UMD OF MESSAGE BUFFER

cMP

Rl R2

sWAS ANY MESSAGE REC'D

ERRMRD

EW.TIO&F.EXPREC

sPESSAGE BUFFER WAS MODIFIED

MOV

BEQ

00252Sé
od

1SET UP EXPECTED DATA
18R, IF OK (EQUAL)

TSVSA - HARDWARE TESTS
TEST

10:

MACRO V0S5.03

Tuesdey 28-Apr-87 10:28

Page 85-53

SEQ 0159

BASIC PACKEY PROTOCOL

104456

001760
042754
015554

005737
001403
004737

187

BEQ

JSR

017262

ENDSEG

104405

804

CSERHRD

.WORD

EXPREC

. WORD
. WORD

704
002220

TRAP

FATFLG

s ANY FATAL

PC,CKDROP

;TRY T0 DROP THE UNIT

804

tBR,

ERRORS

IF NO FATAL ERRORS

§CCcecccccc<cc<

END SEGMENT
100014
:

<ccccccecccccc

C4ESEG

TRAP

ENDSUB

1008
T10MBF

877777777777/ END SUBTEST /7777777777
L10076:

104403

TRAP

C4ESUB

s TEST 10 SUBTEST 2
]

1CHECKS THAT THE MESSAGE BUFFER RELEASE COMMAND WORKS
$1PROPERLY AND THAT THERE IS AN INTERRUPT JF THE "]E*
1BIT IS SET_IN THE COMMAND PACKET AND THE *“ERI” BIT
1IS SET IN THE CHARACTERISTICS DATA PACKET
BGNSUB

$/77171077777 ar?:{g gwtsst 177171770777

104402

004737

012764

C48SUB

043506

JSR
SETPRI

PC,T10RST

oPRI00

1SET PACKET TO INITIAL VALUES
1LOWER PRIORITY TO ALLOW INTERRUPTS
MOV
#PRI00,RO

042650
000010

MOV
MOV

#T10PACKET ,R4

tGET THE ADDRESS OF COMMAND PACKET

012700
0444

IRAP

00000¢

S¢:

016054

BGNSEG
JSR
B8CS
ERROF

002220
002222

000000
016416

104:
042666

#8. ,PKBCNT(R4)

TRAP

1START WITH MINIMUM ALLOWABLE VALUE
$12>2>3>>>>>>>>

PC‘S(YINIT

RO,R1
ERRNO, SFIERR
, SF INSG

FATFLG
INTRECV

2000020 noonn 6
4, TSDB(RS

pc cmvssa

154

RO,R1

ERRNO, TIOSSR,PKTSSR

C4SPRI

BEGIN SEGPENT

RAP

3332>>>>33>>>

100 SOFT INIT OF CONTROLLER
1BR IF SOFT INIT = 0K
1SAVE CONTENTS OF TSSR
sDEVICE FATAL ERROR DLRI;%MI:NIT
.WORD
.WORD
.WORD

1CLEAR FATAL ERROR FLAG
sCLEAR INTERRUPT RECEIVED FLAG
1SET ERI IN CHARACTERISTICS DATA
1SET _THE PACKET ADDRESS
tWAIT FOR SSR TO SET

C4BSEG

C4EROF
1009
SFIERR
SFIMSG

1BR IF CARRY SET (GOOD RETURN)

ISAVE CONTENTS OF TSSR
1DEVICE FATAL SSR FAILED T0 SE
AP

HCND

C‘ERDF

1010

E13

TSVSA

TEST

10:

HARDMARE TESTS

MACRO V0S5.03

Tuesday 28-Apr-87 10:28

Pege 85-54

SEQ 0160

BASIC PACKET PROTOCOL

041232
041234
2663 041236

043210
012116
005237

002220

104406
104410
000056
005737
001004

15%:

002222

INC

FATFLG

ESCAPE

SEG

CKLOOP

15T
BNE

ERRHRD

104456
001763

000002
000200
000100
000100

224:

254

304:

002222
025252 042672
100212
000000
016416

INTRECV
224

ERRNO, T1ONINT ,PKTSSR

MOV
MOV
8IT
BEQ
BIS
cHP

TSSRCRS),R1
#SSR,R2
#OFL ,R1
254
#OFL ,R2
R2,R1

ERRHRD

ERRNO, TIONBA ,PKTSSR

BEQ

304

2700 041400
2701 041404
2705 041406

TRAP

CS$ESCAPE

100004
-.

;0ID AN INTERRUPT OCCUR ?
sBRANCH IF YES
TRAP

. WORD
.WORD
. WORD
$sGFT THE CONTENTS OF TSSR
1EXPECTED CONTENTS OF TSSR
3IS OFF-LINE BIT SET ?
1SET OFF-LINE IN EXPECTED DATA
;DOES EXPECTED MATCH RECEIVED ?
;OKAY IF MATCH
sNBA NOT ZERO
TRAP

§2>>2>>>>>>>>

454

RO,R1

INC

FATFLG

157
BNE

INTRECV
524

CXLOOP

ERRHRD

END

SEGMENT

100004
:

INTRECV
9025252, T108FR
0100212 (R4)
4.TSDB(RS)
pc 'CHKTSSR

ERRNO, T10INT,PKTSSR

000002

524

MOV

TSSR(RS),R1

1011
T1ONINT
PKTSSR

CSERHRD

1012
T10NBA
PKTSSR

<<¢<cc<cccccec<<<

TRAP

BEGIN SEGMENT

TRAP

CSESEG

»>>>>>>>>>>>

C4BSEG

1CLEAR INTERRUPT RECEIVED FLAG
sWIPE JUT MESSAGE BUFFER AREA
1SET COMMAND PACKET TO MESS BUF REL
1SET_THE PACKET ADDRESS
sWAIT FOR SSR TO SET

1BR IF CARRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR
;DEVICE FATAL SSR FAILEDT;;gPSET
.WORD
.WORD
.WORD

CSEROF
1013
T10SSR
PKTSSR

TRAP

CsCLP1

TRAP
.WORD

C4ERHRD
1014

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

;:0ID AN INTERRUPT OCCUR ?
$1BRANCH IF YES

LWORD

2706 041416

C4ERHRD

1BRANCH IF NOT OFF -LINE

BGNSEG

BCS

002222

CsCLP]

1BY-PASS SUBTEST IF FATAL ERROR

j€cccecccecc<<<

CLR
MOV
MOV
MOV
JSR

454

TRAP

;SET FATAL ERROR FLAG
sLOOP ON ERROR, IF FLAG SET

ENDSEG

ERROF ERANO, T10SSR,PKTSSR

002220

T10SSR
PKTSSR

. WORD
.WORD
. WORD

MOV

2698 041372

.WORD
. WORD

sGET THE CONTENTS OF TSSR

T10INT

PKTSSR

F13

.TSVSA

TEST

HARDWARE TESTS

10:

MACRO V0S.03

Tuesdey 28-Apr-87 10:28

Page 85-S5

SEQ 0161

BASIC PACKET PROTOCOL

041422
041426
041432
041434
041440
041442
041444
041444
041446

012702
032701

000200
000100
000100

SS$

012116

013701
012702
020102
001404

OSSR, R2
#OFL .R1
SS$
#OFL ,R2
R2,Ri

ERRHRD

ERRNO, T1ONNBA ,PKTSSR

8EQ

604:

042672
025252

MOV
BIT
BEQ
BIS
cHP

T04:

002220
017262

MOV
MOV

TST
JSR

8EQ

8ot
)

TRAP

.WORD
.WORD
.WORD

e
BEQ
ERRHRD

104456

604

1EXPECTED CONTENTS OF TSSR
1IS OFF-LINE BIT SET ?
-L INE
1BRANCH IF NOT_OFF
$1SET OFF-LINE IN EXPECTED DATA
1DOES EXPECTED MATCH RECEIVED ?
1OKAY JF MATCH
iNBA NOT SET

T108FR,R1
#025252,R2

m R2
704
ERRNO, T1OMBF,EXPREC

FATFLG
803
PC, CKDROP

‘PICK UP

THE

1ST

WORD OF

1015
T1ONNBA
PKTSSR

MESSAGE BUFFER

;SET UP EXPECTED DATA
1WAS ANY MESSAGE REC'D
1BR, IF OK (EQUAL)

sMESSAGE BUFFER WAS MODIFIED
TRAP
. WORD
. WORD
.WORD
s ANY FATAL

C4ERHRD

CS$ERHRD

EXPREC

ERRORS

31BR, IF NO FATAL ERRORS
;TRY TO DROP

THE UNIT

ENDSEG

§CCccccccccc<<

ENDSUB

$////7////7//7/7 END SUBTEST

END

SEGMENT

100014:

L10077:

<ccccccaccc<

TRAP

C4ESEG

TRAP

C¢ESLB

/77777777777

L TEST 10 SUBTEST 3
JCHECKS THAT THE CPU GIVES UP OWNERSHIP OF THE MESSAGE BUFFER
sAFTER THE MESSAGE BUFFER RELEASE,

s WORK CORRECTLY

AND THAT FOLLOWING COMMANDS

BGNSUB

3111170777777 eegig guerest 177177777777

104402

2747
2750

2731
2752

004737

043506

012700

000000

015764

042650
000010

004737

016054

PC,T10RST

MOV

ouopacxn R4

SETPRI
000006

MOV

)

104404

JSR

OPRIOO

. ,PKBCNT(R4)

BGNSEG

JSR

TRAP

1SET PACKET TO INITIAL VALUES
tLOWER PRIORITY TO ALLOMW INTERRUPTS
MOV
#PRIOO,RO
TRAP
C4SPRI
1GET THE ADDRESS OF COMMAND PACKET
1START WITH MINIMUM ALLOWABLE VALUE
$1>>>33>5>>>>>>

BEGIN

SEGMENT

TRAP

PC,SOFINIT

C4BSUB

;00 SOFT INIT OF CONTROLLER

>5>>>>>>>>>>>

C4BSEG

—_—

G13

TSVSA

TEST

10:

2753

27157

2758

HARDWARE TESTS

MACRO V0S.03

Tuesdey 28-Apr 87 10:28

Page 85-56

SEQ 0162

BASIC PACKET PROTOCOL

103405

BCS
MOV
ERRDF

010001

104455

002220
002222
000000
016416

2769
2770

10$:

002220

154:

2771

2772

002222

2717

000002

224 :

000200

000100
000100

254

104456
001774
043051
012116

304:

043506

002222

025252

100212

000000
016416

042672

CLR
CLR
MOV
JSR
BCS
MOV
ERRDF

104
RO,R1
ERRNO, SFIERR, SFIMSG

FATFLG
INTRECV
R4, TSOB(RS)
PC.CHKTSSR
154
RO,R1
ERRNO, T10SSR,PKTSSR

sBR IF SOFT INIT = 0K
;SAVE CONTENTS OF TSSR

;DEVICE FATAL ERROR DURING INIT
TRAP

;CLEAR FATAL ERROR FLAG

. WORD
. WORD
. WORD

;WAIT FOR SSR TQ SET

:BR IF CARRY SET (GOOD RETURN)
1 SAVE CONTENTS OF TSSR

;1DEVICE FATAL SSR FAILED TO SET
TRAP

1018
T10SSR
PKTSSR

TRAP

CsCLPL

TRAP
.

CH4ESCAPE
100004
-.

TRAP

C4ERHRD

;SET FATAL ERROR FLAG
sLOOP ON ERROR, IF FLAG SET

ESCAPE

SEG

;:BY-PASS SUBTEST IF FATAL ERROR

TST
BNE
ERRHRD

INTRECV
224
ERRNO, T1ONINT ,PKTSSR

s1DID AN INTERRUPT OCCUR ?
:BRANCH IF YES

MOV

TSSR(RS),R1

8IT
BEQ
8IS
cHP
BEQ
ERRHRD

#OFL ,R1
254
$OFL ,R2
R2,R1
304
ERRNO, TIONBA,PKTSSR

. WORD
. WORD
. WORD
sGET THE CONTENTS OF TSSR
sEXPECTED CONTENTS OF TSSR
:sIS OFF-LINE BIT SET ?

1SET OFF-LINE IN EXPECTED DATA
sDOES EXPECTED MATCH RECEIVED ?

sOKAY IF MATCH

iNBA NOT ZERO

ENDSEG

jCcccccccc<c<c<<

TRAP

BGNSEG

12>>>3>5>>>>>

MOV

$025252, T10BFR

CLR

MOV

MOV
JSR
BCS

MOV

END

SEGMENT

100004
:

PC, T10RST

INTRECV

9100212, (R4)

R4, TSDB(RS)
PC.CHKTSSR
4S4

RO,R1

1019
T1ONINT
PKTSSR

sBRANCH IF NOT OFF -LINE

. WORD
. WORD
.WORD

JSR

C4ERODF

. WORD
. WORD
. WORD

FATFLG

9SSR, R2

1017
SFIERR
SFIMSG

;CLEAR INTERRUPT RECEIVED FLAG
:SET THE PACKET ADDRESS

INC
CKLOOP

MOV

CSERDF

C4ERHRD

1020
T10NBA
PKTSSR

<<<ccccc<c<ccc<<

RAP

BEGIN SEGPENT

C4ESEG

3333>>>3>>>>>

TRAP

C4BSEG

tRESET PACKETS AND COMMANDS
sCLEAR INTERRUPT RECEIVED FLAG
1WIPE OUT MESSAGE BUFFER AREA
1SET COMMAND PACKET TO MESS BUF REL
1SET _THE PACKET ADDRESS
tWAIT FOR SSR TO SET

18R IF CARRY SET (GOOD RETURN)
1SAVE CONTENTS OF

TSSR

H13

TSVSA

TEST

10:

HARDWARE

TESTS

MACRO V0S.03

Tuesday 28 Apr-87

10:28

Page 85-57

SEQ 0163

BASIC PACKET PROTOCOL

2803 041752
041752
041754
041756
041760
041762

ERRDF

104455

001775
043210
012116
005237

104406
005737
001404

002220

454
:

002222

ERRHRD

000002
000200
000100
000100

012116
042672
025252

FATFLG

187

104456
001776
043370

013701
012702
020102
001404

INC
CKLOOP

ERRNO, T10SSR,PKTSSR

524
:

TRAP

. WORD
. WORD
. WORD

+SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG %s;P

;DID AN INTERRUPT OCCUR ?
ERRNO, T10INT ,PKTSSR

TSSR(RS),R1
#SSR,R2

00FL ,R1
554
00FL ,R2

554
:

;DEVICE FATAL SSR FAILED TO SET

R2,R1

604
ERRNO, TIONNBA ,PKTSSR

T10BFR,R1
0025252 ,R2
R1,Re
704
ERRNO, T10MBF ,EXPREC

104456
002000
042754
015554

1GET THE CONTENTS OF TSSR
1EXPECTED CONTENTS OF TSSR
311S OFF -LINE BIT SET ?

002222
043506

CLR

JSR

1SET OFF-LINE IN EXPECTED DATA
:D0ES EXPECTED MATCH RECEIVED ?
sOKAY IF MATCH

sNBA NOT SET

TRAP

B8IC
MOV
JSR
BCS
MOV
ERRDF

000000
0l6416

002220

754:

INTRECV

9100000, (R4)

R4,TSDB(RS)
PC,CHKTSSR
754
RO,R1

ERRNQ, T10SSR ,PKTSSR

C4ERHRD

tPICK UP THE 1ST WORD OF MESSAGE BUFFER
1SET UP EXPECTED DATA
1WAS ANY MESSAGE REC'D
1BR, IF OK (EQUAL)
1MESSAGE BUFFER WAS HODIfigEg

TRAP

PC,T10RST

PKTSSR

:BRANCH IF NOT OFF -LINE

;LOOP ON ERROR IF FLAG SET

CKLOOP

C4CLP1

C4ERHRD

. WORD
. WORD
. WORD
70%:

1021
T10SSR
PKTSSR

$tBRANCH IF NQ

. WORD
.WORD
. WORD

604
:

CSEROF

C$ERHRD
1024
T10MBF

EXPREC

CsCLP1

1CLEAR INTERRUPT RECEIVED FLAG

tRESET

THE PACKETS AND COMMANDS

sCLEAR THE ACK BIT
1SET _THE PACKET ADDRESS
tWAIT FOR SSR TO SET

18R IF CARRY SET (GOOD RETURN)
1 SAVE CONTENTS OF TSSR
1DEVICE FATAL SSR FAILEDngpSET
. WORD
.WORD
WORD

INC
CKLOOP

FATFLG

1SET FATAL ERROR FLAG

ESCAPE

SEG

1BY-PASS SUBTEST IF FATAL ERROR

;LOOP ON ERROR,

IF FLAG ¥SIP

CsCLP1

I13

TSVSA

TEST

10:

2849
2850
2854
2855

HARDWARE TESTS

MACRO V05.03

Tuesday 28

Apr-87

10:28

Peage 85-58

SEQ 0164

BASIC PACKET PROTOCOL

042140
042142

104410

042144
042150
042152
042156

TRAP

002222

000002

MOV
ERRHRD

000002
000200
000100
000100

001404

104456
002003
043210
012116

104405
005737
001403
004737

104404
005037
004737

INTRECV
824

TSSR(RS),R0O

ERRNO, TIONINT ,PKTSSR

TSSR(RS),R1
OSSR, R2

824%:

00FL ,R1
85¢
P0FL ,R2

854:

R2,R1

904
ERRNO, T10SSR,PKTSSR

904
:

FATFLG
954
PC,CKDROP

017262

CS$ERHRD

.WORD
.WORD
WORD

1026
T1ONINT
PKTSSR

tGET _THE CONTENTS OF TSSR

sEXPECTED CONTENTS OF TSSR

11S OFF-LINE BIT SET ?
tBRANCH IF NOT OFF-LINE
1SET OFF-LINE IN EXPECTED DATA

sD0ES EXPECTED MATCH RECEIVED
;OKAY IF MATCH
sNBA NOT ZERO

END

TRAP

C$ERHRD

. WORD

PKTSSR

SEGMENT

1 ANY FATAL ERRORS

1BR,

;TRY

002222
043506
000000
016416

954

INTRECV

PC,T10RST
R4 ,TSDB(RS)
PC,CHKTSSR

1004

002222
000002

100¢:

<<cccccccceccc

TRAP

BGN

SEGMENT

<<<<cccccc<cc<«

TRAP

C$BSEG

.WORD
.WORD
.WORD

C4ERDF
1028
T10SSR
PKTSSR

TRAP

CiCLP1

TRAP

C4ESCAPE

sCLEAR INTERRUPT RECEIVED FLAG
;RESET THE PACKETS AND COMMANDS
1SET THE PACKET ADDRESS
sWAIT FOR SSR TQ SET
;BR IF CARRY SET (GOOD RETURN)
1 SAVE CONTENTS OF TSSR
;:DEVICE FATAL SSR FAILEDTERPSET

FATFLG

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

ESCAPE

SEG

1BY-PASS SUBTEST IF FATAL ERROR

INTRECV
1124

TSSR(RS),RO
ERRNO, T1IONINT ,PKTSSR

C$ESEG

TO DROP THE UNIT

INC
CcKLooP

TST
BNE
MOV
ERRHRD

1027
T10SSR

IF NO FATAL ERRORS

jCcccceccccc<<<

002220

012116

TRAP

100014:
002220

sBRANCH IF YES
1GET TSSR FOR ERROR REPORT

g<cccccccccc<c<

ERRNO, T10SSR,PKTSSR

2893 042322

100014

.WORD
.WORD

RO,R1

2887 042310

;DID AN INTERRUPT OCCUR

C4$ESCAPE

.WORD

LWORD

;0ID AN INTERRUPT OCCUR ?

10002%-.

:BRANCH IF YES
1GET TSSR FOR ERROR REPORT
TRAP

.WORD
.WORD
.WORD

CS4ERHRD

1029
T1ONINT
PKTSSR

J13

TSVSR

TEST

10:

2894
2895
2896
2897
2898

HARDWARE TESTS
BASIC PACKET

042332
042336
042342
042346
042350

016501
012702
032701
001402
052702

2900 042356

001405

2899 042354

2904 042360
042360

042362

042364
042366

2905 042370

042370

042370
2906 042372
2907 042376

2908 042400
2909 042404

020201

MACRO V0S.03

042404
2911 042406
2912

10:28

Page

85-59

SEQ 0165

PROTOCOL

000002
000200
000100
000100

1124

125¢:

MOV
MOV
81T
BEQ
BIS

TSSR(RS),R1
OSSR, R2
o0FL ,R1
1254
O0FL ,R2

;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

BEQ

1304

;OKAY IF MATCH

CMP

ERRHRD

104456

R2,R1

ERRNQO, T10SSR,PKTSSR

;DOES EXPECTED MATCH RECEIVED ?

;NBA NOT

ZERO

002006

043210
012116

104405
005737
001402

004737

TRAP

C4ERHRD

.WORD
. WORD

T10SSR
PKTSSR

.WORD

ENDSEG
002220

017262

2910 042404

042404

Tuesday 28-Apr-87

104403

1304
1404
.

TST
BEQ

JSR

§<<ccccccccccc END SEGMENT c<cccccccccccc
100024:

FATFLG
1404

PC,CKDROP

ENDSUB

TRAP
;CHECK FATAL FLAG FOR SET
;BR, IF NOT SET (OK)

223{3

; TEST

10 SUBTEST

C4ESEG

;OROP DEVICE IF INDICATED

$////77/7/77/77/7 END SUBTEST /77777777777

L10100:

304:

2913

1030

TRAP

C4ESLB

2916
2917

sCHECKS THAT THE REGISTER MODIFICATION REFUSED (RMR) BIT IN
;THE TSSR WILL BE SET IF A WRITE CHARACTERISTICS COMMAND

gig

sBEING EXECUTED AND ANOTHER "WC" COMMAND IS ATTEMPTED
H

2920

2921

2922 042406
042406
2923 042406

104402

2924 042410
2925 042414

004737
004737

043560
043506

042420

012700

000000

2926 042420

042424
2927 042426
2928 042432

2929 042436

g;g 84‘5:;‘2

2932 042452
042452

BGNSUB

10444)
012704
012703

042650
042712

012763

000010

012764

104404

2933 042454
2934 042460
2938 042462

004737
103405
010001

042464

104455

2939 042464

042466

042470
042472

002007

003652
012104

000010

JSR
JSR

SETPRI

3//7///7/77777/7 BEGIN SUBTEST //////777777
T10.4:
TRAP
csBsSuUB

PC,TI0RT2
PC,T10RST
#PRIOO

;LOWER PRIORITY TO ALLOW INTERRUPTS

MOV

#PRI00,RO

MOV
MOV

#T10PACKET R4
ST10PKT ,R3

TRAP
C3SPRI
:GET THE ADORESS OF COMMAND PACKET
;1GET THE ADDRESS OF 2ND CMD PACKET

MOV

#8. ,PKBCNT(R3)

sSTART WITH MINIMUM ALLOWABLE VALUE

MOV

08 . PKBéNT(Rd)

BGNSEG

016054

:1SET SECOND PACKET UP
{SET PACKET TO INITIAL VALUES

JSR
B8CS
MOV

ERRDF

$1START WITH MINIMUM ALLOWABLE VALUE

$2>>>>>>>>>>> BEGIN SEGMENT >>5>>>>>>>>>>

PC,SOFINIT
104
RO,R1

ERRNO, SFIERR, SFIMSG

TRAP

;DO SOFT INIT OF CONTROLLER
1BR IF SOFT INIT
s SAVE CONTENTS N SSR

s1DEVICE FATAL ERROR DURING INIT

C4BSEG

TRAP

CSERDF

.WORD
. WORD

SFIERR
SFIMSG

. WORD

1031

IK13

TSVSA

TEST

10:

HARDWARE TESTS

MACRO V0S.03

Tuesdey 28-Apr-87

Page 85-60

SEQ@ 0166

BASIC PACKET PROTOCOL

2940 042474

005037

005037
010465
010365
004737
016501
032701
001006

002220
002222
000000
000000
016330
000002
000200

10¢:

042540

2953 042546

042554
042560

002010
043210
012116
005237

002220

104406
104410
000056

005737
001004

CLR
CLR
MOV
MOV
JSR
MOV

BIT
BNE
ERROF

104455

2955
2956
2957
2958

10:28

15¢:

002222

FATFLG

INTRECV

R4, TSDB(RS)
R3,TSDB(RS)

PC,WAITF

TS8R(RS) ,R1
OSSR,R1

154

ERRNO, T10SSR,PKTS R

;CLEAR FATAL ERROR FLAG
;CLEAR INTERRUPT RECEIVED FLAG
1SET THE PACKET ADORESS
;SECOND COMMAND PACKET

sWAIT FOR SSR

TO SET

1GET CONTENTS OF TSSR REGISTER
;CHECK FOR SSR (TSSR) SET
tBR, IF SSR SET (GOOD)
;DEVICE FATAL SSR FAILEDngpSET
.WORD
.WORD
'WORD

1032
T10SSR
PKTSSR

TRAP

C$CLP1

INC
CKLOOP

FATFLG

1SET_FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET

ESCAPE

SEG

;BY-PASS SUBTEST IF FATAL ERROR

1ST
BNE

INTRECV
224

:DID AN INTERRUPT OCCUR
:BRANCH IF YES

ERRHRD

ERRNO, TIONINT ,PKTSSR

TRAP " CAESCAPE

TRAP

. WORD
.WORD

000002
110200
000100

000100

224%:

MOV

254:

cre

TSSR(RS),R1
OSSR!RMR!SC,R2

cRRNO, T10SSR,PKTSSR

042626

2974 042630
2975 042630
2976 042632
2977 042634
2978

012116

104405
104403
104432
000774

30¢:

T1ONINT

tGET THE CONTENTS
OF TSSR

:EXPECTED CONTENTS OF TSSR
+11S OFF-LINE BIT SET ?
$tBRANCH IF NOT OFF -LINE
1SET OFF-LINE IN EXPECTED DATA
sDOES EXPECTED MATCH RECEIVED ?
1OKAY IF MATCH
1NBA NOT ZERO

TRAP

.WORD
.WORD
.WORD

C4ERHRD

1034
T10SSR
PKTSSR

ENDSEG

1€€<ccccec<ccc<<

ENDSUB

$///7//7//7/77 END SUBTEST /7777777777

EXIT

END

SEGMENT

100004:

L10101:

187

sALL DONE WITH THIS TEST

<<ccccc<ccecc<«

TRAP

C$ESEG

TRAP

C4ESUB

TRAP

.WORD

:iOCAL STORAGE FOR THIS TEST
2984 042640
2986 042650

C4ERHRD

.BLKB

T1OPACKET:

10-<,-TSV2ET>

s COMMAND PACKET FOR TEST

CSEXIT

L10075-.

L13

TSVSA

HARDWARE TESTS

TEST

10:

MACRO V0S5.03

Tuesday 28-Apr-87 10:28

Pege 85 61

SEQ 0167

BASIC PACKET PROTOCOL

2987 042650
2988 042652
2989 042654
2990 042656

100204
042660
000000
000010
T100ATA:

042672
000000
000016
000000

T108FR:

. WORD
. WORD
. WORD
. WORD

100204
glODATA

. WORD
. WORD
. WORD
. WORD

T108FR
0
14.
0.0

{WRITE CHAR COMMAND,

WITH IE,

ACK

JADDRESS OF CHARACTERISTICS BLOCK
;STARTING VALUE OF BLOCK SIZE

1 CHARACTERISTICS DATA BLOCK
1 ADDRESS OF MESSAGE BUFFER
sLENGTH OF MESSAGE BUFFER
1MESSAGE BUFFER

.BLKW

3004
3005
3006
3007
3008
3009
3010
3011
3012
3013
3014

042712
042712
042714
042716
042720

100204
042722
000000
000010

042722
042722
042724
042726
042730

042734
000000
000016
000000

(TEST DATA FOR SUBTEST FOUR
110PKT:

{WRITE CHAR COMMAND,

1STARTING VALUE OF BLOCK SIZE

T100TA
0

T100TA:

-WORD

3015 042734

;COMMAND PACKET FOR TEST

100204

T108UFR
0
14,
0,0

WITH IE,

ACK

;ADDRESS OF CHARACTERISTICS BLOCK
1 CHARACTERISTICS DATA BLOCK

yADDRESS OF MESSAGE BUFFER

iLENGTH OF MESSAGE BUFFER
1 MESSAGE BUFFER

T10BUFR: . BLKW
'0

tLOCAL TEXT MESSAGES FOR TEST

T10MBF:

_ASCIZ

"ASCIZ

" .ASCIZ

NT:
T10INT: .ASCIZ

TST10ID:

€

‘Message Buffer Modified after MESSAGE BUFFER RELEASE Command'’
'NBA Not Clear After WRITE CHARACTERISTICS Commend’
.ASCIZ
‘NBA Set After MESSAGE BUFFER RELEASE Commend’
‘Contents of TSSR Incorrect After WRITE CHARACTERISTICS'
‘'Expected Interrupt Not Received On WRITE CHARACTERISTICS'
.ASCIZ
‘Unexpected Interrupt Received On WRITE CHARACTERISTICS'
.ASCI
‘Besic Pecket Protocol’

[ R4

tROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES

3043 043516

012701
012721

042650
100204

#T10PACKET,R1
#100204,(R1)-

1SAVE _THE REGISTERS
1START OF THE PACKET

tWRITE CHARACTERISTICS WITH ACK, IE

| M13
TSVSA

- HARDWARE TESTS

TEST

10:

MACRO V0S.03

Tuesdey

*8-ARpr-87 10:28

Pege 85-62

SEQ 0168

BASIC PACKET PROTOCOL

3044 047522

012721

042660

MV
CLR

000010
042672

:;igBFR.(Rl)o

s ADDRESS OF MESSAGE BUFFER

#8.,(R1).

MOV

014, ,(R1).

CLR
CLR

T10B8FR

RTS

$1SIZE OF DATA BLOCK IN BYTES

sLENGTH OF MESSAGE BUFFER

(R1).
(R1)

CLR

042672

;ADORESS OF CHAR DATA BLOCK
1tEXTENDED ADDRESS

MOV

EEX

000016

#T100ATA,(R1)+
(R1).

sCLEAR 1ST LOC IN MESSAGE BUFFER

1RETURN

:ROUTI'( TO RESTORE COMMAND PACKET 62 TO START-UP (DEFAULT) VALUES
H

Ti0RT2:

3062
3063
3064
3065
3066
3067

043564
043570
043574
043600
043602
043606

3069
3070
3071
3072
3073

043614
043620
043622
043624
043630

012701
012721
012721
005021
012721
012721
0050 21
012721
005021
005011
005037
000207

043632

104401

SAVREG

MOV

042712

MOV
MOV

042722

9100204 ,(R1)#T100TA,(R1).

CLR

(R1)-

000010
042734

MOV

¢8.,(R1).

000016

MOV
CLR

#14. ,(R1)(R1)-

CLR

T10BUFR

ELOX

g;iswlffl+(R1)+

CLR

042734

s+SAVE THL REGISTERS

#TI10PKT R1

ENDTST

.SBTTL

sWRITE CHARACTERISTICS WITH ACK, IE
sADDRESS OF CHAR D A BLOCK
sEXTENDED ADDRESS

:1SIZE OF DATA BLOCK IN BYTES
;ADDRESS OF MESSAGE BUFFER

tLENGTH OF MESSAGE BUFFER

(R1)

RTS

sSTART OF THE PACKET

;CLEAR 1ST LOC IN MESSAGE BUFFER

sRETURN

L10075:
TEST

11:

TRAP

C4ETST

NON-TAPE MOTION COMMANDS

8THIS TEST _VERIFIES PROPER OPERATION OF THE INITIALIZE
scom»o TWO SUBTESTS ARE USED. THE FIRST VERIFIES THAT
THE COMMAND RUNS TO COMPLETION AND STORES A VALID

tl‘fSSAGE PACKET. THE SECOND VERIFIES THAT NON-ZERO
1VALUES IN THE COMMAND MODE FIELD CAUSES COMMAND REVECT.
]
:-

043634
043640
043644

012700
004737
012737

045642
016570
000024

002214

MOV
JSR
T11L00P MOV

#7ST111D,RO
PC,TSTSETUP
920. ,LOOPCNT

'BGNSW
043652

111

1ASCII MESSAGE TO IDENTIFY TEST
;00 INITIAL TEST SETUP
1PERFORM 20 ITERATIONS
1777777777777 BE(T;{T iLBTEST 177777777777
TRAP

104402
SETPRI

#PRIOO

csBsuB

1LOWER PRIORITY TO ALLOW INTERRUPTS

N13

TSVSA

TEST

11:

HARDWARE TESTS

MACRO V0S5.03

Tussday 28-Apr-87 10:28

Page 85-63

SEQ 0169

NON-TAPE MOTION COMMANDS

3100
3101
3105
3106

043662
043666
043670
043672

016054

JSR

PC.SOFINIT

Ro.RL

ERROF ERANOD, SFIERR, SFIMSG

045070
010662

045674
045020

34:

104:

TRAP

C#SPRI

;00 SOFT INIT OF CONTROLLER

1BR IF SOFT INIT = OK
1SAVE CONTENTS OF TSSR
IDEVICE FATAL ERROR ouuus INIT
.uoao
"WORD
"WORD

MOV
JSR
BCS

)

002220
002222
000000
016416

RO
#PRI00,

MOV

000000

#T11PK2,R4
PC,WRTCHR

a4
ERRNO , WRTMSG
, SFIMSG

JMRITE CHARACTERISTICS PACKET

.Issu»: WRITE CHARACTERISTICS
IF COMMAND ISSUED OK

iTe CHARACTERISTISC ruu»:o
.uoao
'MORD
"WORD

JSR
MOV

PC,T11REST
#T11PACKET,R4

BGNSEG

CLR
CLR
MOV
JSR

ERROF ERANO, T11SSR,PKTSSR

BEGIN SEGMENT

TRAP

>>>>>5>>>>>>

1CLEAR FATAL ERROR FLAG
sCLEAR INTERRUPT RECEIVED FLAG
1SET THE PACKET AODRES
lUAIT FOR SSR T0 SE
iBR IF CARRY SET (GOGD RETURN)
T
lSAVE CONTENTS OF
1DEVICE FATAL SSR FAILED TO SET
.uoao
.WORD

002220

154

002222

000002
000200
000100
000100

224

254

WORD

FATFLG

1SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG %IP

ESCAPE

SEG

1BY-PASS SUBTEST IF FATAL ERROR

CXLOOP

ggnecv

ERRHRD

ERANOD, T11NINT ,PKTSSR

MOV
MOV
81T
BEQ
BIS
CHP
BEQ

TSSR(RS),R1
#SSR,R2
#OFL .R1
250

R2
al
304

C4ERHRD
1102
WRTMSG
SFIMSG

1SET UP PACKET FOR COMMAND
1GET THE ADDRESS OF COMMAND PACKET
§125>>>>>>>>>>>

FATFLG
INTRECV
R4 . TSDB(RS)
PC.CHXTSSR

C4ERDF
1101
SFIERR
SFIMSG

CSEROF
1103
T11SSR
PKTSSR

CsCLPL

CS4ESCAPE
100004
-.

TRAP

CSERHRD

TRAP

10ID AN INTERRUPT OCCUR ?
sBRANCH IF YES
.WORD
.WORD
WORD

1GET THE CONTENTS OF TSSR
1EXPECTED CONTENTS OF TSSR

aIS OFF-LINE BIT SET ?

C4BSEG

1BRANCH IF NOT OFF -LINE
lSET OFF -LINE IN EXPECTED DATA
+D0ES EXPECTED MATCH RECEIVED ?
sOKAY IF MATCH

1104
T1ININT
PXTSSR

—_m

TSVSA

HARDWARE

TEST

11:

TESTS

MACRO V0S5.03

Tuesdey 28-Apr-87

10:28

Page 85-64

SE0 D170

NON-TAPE MOTION COMMANDS

3150 044050
044050
044052
044054
044056
3151 044060

31S2 044(
,0
3153 044064
3157 044066

044066

044070
044072
044074
3158 044076
044076

044076

104456
002121
045132
012116

004737

103405

304:

3S5¢:

104456

002122
004745
015570

104403

3163 044102
3164 044106
316S 044110

005737
001402
004737

594

002220

017262

604
:

3184 044132
3188 044134
3189 044136
044136
044140
044142
044144
3190 044146

3191 044146

sCHECK RAM TO MEMORY

S94
ERRNO,PKTRAM, RAMERR

TRAP

CS4ERHRD

TRAP

CHESEG

. WORD
1106
.WORD
PXTRAM
. WORD
RAMERR
pecccccccccccc END SEGMENT c¢ccccecccccec
100004:

ENDSUB

TST
BEQ
JSR

sRAM OK GO ON
s THEY DON'T MATCH

AAANNANANANNNAY END SUBTEST NANW
L10103:
TRAP
C4ESUB
FATFLG
604
PC,CKDROP

sANY FATAL ERRORS ?
sBRANCH IF NOT
sTRY TO DROP THE UNIT

sINITIALIZE COMMAND TO BE REJVECTED

sCHECK THAT NON-ZERO MODE BITS BEING SET CAUSES
3

3177 044114

3183 044126

PC,CKRAM

CS$ERHRD
1105
T11NBA
PKTSSR

sTEST 11, SUBTEST 2

gi;z

318>

JSR

8Cs
ERRHRD

TRAP
. WORD
. WORD
. WORD

3o
3

3172

3179 044116
044116
044122
3180 044124
044124

tNBA NOT ZERO

ENDSEG

gi;g

044114
3178 044114

ERRNO,T11NBA,PKTSSR

104405

3161 044100
044100
3162 044100

3166 044114
3167
3168
3169

011154

ERRHRD

BGNSUB

8777777777777 BEGIN SUBTEST ///////77777
T11.2:

104402
012700
10444)

SETPRI

000000

004737

103405
010001

016054

104455
002123
003652
012104

012704

045070

JSR

34:

csasuB

#PRIOO

sLOWER PRIORITY TO ALLOW INTERRUPTS
MOV
#PRI00,RO
TRAP
C4SPR1
$2>>3>>3>>>>>> BEGIN SEGMENT >>>>>5>>3>>>>>
TRAP
C4¢BSEG

PC,SOFINIT

;00 SOFT INIT OF CONTROLLER

BGNSEG

104404

TRAP

B8CS
MOV
ERROF

3¢
RO,R1
ERRNQ, SFIERR, SFIMSG

1BR IF SOFT INIT = OK
1 SAVE CONTENTS OF TSSR
;tDEVICE FATAL ERROR DURING INIT
TRAP
.WORD
.WORD
. WORD

MoV

#T11PK2 R4

tWRITE CHARACTERISTICS PACKETY

C4EROF
1107
SFIERR
SFIMSG

Cl4a

TSVSA

TEST

11:

HARDWARE TESTS

MACRO V0S.03

Tuesdey 28-Apr-87 10:28

Page 85-65

SEQ 0171

NON-TAPE MOTION COMMANDS

3192 044152
3193
56
3197

004737
103404

010662

104456
002124
005056
012104
004737
012704

JSR

:E +HRTCHR

sISSlE WRITE CHARACTERISTICS

ERRHRD

ERRNO , WRTMSG, SF IMSG

HRITE CHARACTERISTISC FAILED

IF COMMAND ISSUED OK

.U(RD

045674
045020

002222

.WORD
.WORD

S4:
10 $:

1SET UP PACKET FOR COMMAND

1GET THE ADORESS OF COMMAND PACKET

INTRECV

$CLEAR INTERRUPT RECEIVED FLAG

Pg‘CH(TSSR

tWAIT FOR SSR TO SET

RO,R1

ERRNO, T11SSR,PKTSSR

1NON-ZERO COMMAND MODE BITS
1SET _THE PACKET ADDRESS

iBR IF CARRY SET (GOOD RETURN)
1 SAVE CONTENTS OF TSSR
;DEVICE FATAL SSR FAILEDT;(A)"SET
. WORD

045364

012116

104410
000074
005737
001004

1LOOP ON ERROR,

15 $:

104406

SEG
002222

ggIRECV
ERRNO, T11NINT ,PKTSSR

104456

002126

045514

TSSR(RS),R

22 $:

05C -ssa-fsaea R2

$OFL ,R1
254
#0FL ,R2

000100

R2,R1

30
ERRNO, T112REU, PKTSSR

001404

012116

011154

104456
002127
045172
004737
103405

JSR

8cs

104456

3238

015570
104405

LMORD
IF FLAG SET

TRAP
1BY-PASS CHECKS IF FATAL ERROR
TRAP

sDID AN INTERRUPT OCCUR ?

ENDSEG

C4ERODF

11SSR

PKTSSR

CsCLP1
CS$ESCAPE

-.
100004

:BRANCH IF YES

TRAP

.WORD

000002
100206
000100

1108

WRTMSG
SFIMSG

PC,TY1REST
#T11PACKET R4

0P . MODE
, (R4)
R4, TSDB(RS)

016416

C4ERHRD

.WORD
WORD
1GET _THE CONTENTS OF TSSR

CSERHRD

1110

T11NINT
PKTSSR

IEXPECTED CONTENTS OF TSSR
11S OFF-LINE BIT SET ?

1BRANCH IF NOT OFF -LINE
1SET OFF-LINE IN EXPECTED DATA
1DOES EXPECTED MATCH RECEIVED ?
tOKAY IF MATCH
s COMMAND NOT REJECTED

TRAP
. WORD
. WORD

's’g;CKRM

sCD'ECK RAM T0 MEMORY

ERRNO , PKTRAM, RAMERR

aYI-EY ODON’'T MATCH

C4ERHRD
111
112R€Y

.WORD

PKTSSR

TRAP

C4ERHRD

AM OX GO ON

gecccccccecc<c<<c

LMORD
WORD
.WORD

1112
PKTRAM
RAMERR

TRAP

CHESEG

END SEGIGNT

100004
:

€CCCCLCCLCCCCC

D14

TSVSA

TEST

11:

HARDWARE

TESTS

MACRO V05.03

Pege 85-66

SEQ 0172

NON-TAPE MOTION COMMANDS

3239
3240 044336
3241
3242
3243
3244
3245

Tuesdey 28-Apr-87 10:28

044336
044336

594
:

ENOSUB

SANANMANNNN END SUBTEST NN
L10104.;
TRAP
C4ESUB

104403
'0

{TEST 11, SUBTEST 3
H

ICHECK THAT THE GET STATUS COMMAND IS ACCEPTED
H

8//////7////7 BEGIN SUBTEST ///////77777

BGNSUB

SETPRI

T11.3:

@&PRIOO

BGNSEG

JSR

016054

8CS

MOV

ERRDF

RO,R1

ERRNO, SFIERR, SFIMSG

BEGIN

TRAP

TEHE

34:

010662

;D0 SOFT INIT OF coumou.en
1BR IF SOFT INIT = OK
1SAVE CONTENTS OF TSSR
$1DEVICE FATAL ERROR DURING INIY

045674
045020
002222
000000
016416

44:

S4:
104:

104406
104410

.WORD
.WORD

sWRITE CHARACTERISTICS PACKET

€

ERRNO , WRTMSG, SF IMSG

|\RITE CHARACTERISTISC FAILED

18R,

IF COMMAND ISSUED OK

U(RD
-WORD
. WORD

JSR
MOV
CLR

MOV

ERRDF

PC,T11REST
#T11PACKET R4

l%T UP PACKET FOR COMMAND

INTRECV

s1CLEAR INTERRUPT RECETIVED FLAG

Tg ‘CH(TSSR

lUAIT FOR SSR TO St
1BR IF CARRY SET (GO(X) RETURN)

R4, TSDB(RS)
RO,R1

ERANO, T11SR2,PKTSSR

}

CKLOOP

ESCAPE

1SET_THE PACKET AOORESS
1 SAVE CONTENTS OF TSSR

lDEVICE FATAL SSR FAILED TO SET
TRAP

1LOOP ON ERROR,
SEG

C4ERHRD
1114
WRTMSG
SFIMSG

T THE ADDRESS OF COMMAND PACKET

- WORD

15¢:

CSEROF
1113
SFIERR
SFIMSG

s ISSUE WRITE CHARACTERISTICS

002133

045440
012116

. WORD

#T11PK2,.R4
:C JHRTCHR

JSR

104455

TRAP

MOV
JSR

8CS

oPRIO0,RO

C4SPRI

SEGf{NT 2>3>>>>>>>>>
RAP
C4BSEG

045070

csBsuB

:LOWER PRIORITY TO ALLOU INTERRU’T
$2>>>>>>>>>>>

PC,SOF INIT

TRAP

C4EROF

IF FLAG SE;P

1BY-PASS SUBTEST IF FATAL ERR
TRAP

C4ESCAPE

El4

TSVSA

TEST

11:

3284
3285
3289

HARDWARE TESTS

MACRO VOS.03

Tuesdey 28-Apr-87

10:28

Page 85-67

SEQ 0173

NON-TAPE MOTION COMMANDS

044460

000074
005737
001004

002222

TST

BNE

ERRHRD

104456

002134
045514
012116
016501
012702
032701
001402
052702
020201
001404

3290
3291
3293
3294
3295
3300

000200
000100

000100

224:

002135
045253
012116

3301
3302

004737
103405

3307

ERRNQO, T11ININT,PKTSSR

;:BRANCH IF YES

3S5¢:

104456

-.
100004

TRAP

CSERHRD

TSLR(RS),R1
OSSR, R2
#OFL ,R1

8IS
cHP
BEQ

O0FL ,R2
R2,R1
304

1SET OFF-LINE IN EXPECTED DATA
;D0ES EXPECTED MATCH RECEIVED ?
;OKAY IF MATCH

254

ERRNO,T113REJ,PKTSSR

s COMMAND NOT ACCEPTED

JSR

PC,CKRAM

s CHECK RAH T0 MEMORY

ERRHRD

ERRNO,PKTRAM, RAMERR

;TFEY D(N T MATCH

BCS

594

TRAP
. WORD
. WORD
. WORD

CSERHRD
1117
T113REJ
PKTSSR

TRAP

C4ERHRD

LWORD

PKTRAM

;RAM 0K GO ON

. WORD

015570

. WORD

ENDSEG

jc<ccccccccccc END SEGPENT
100004
:

59¢:

ENDSUB

1118

RAMERR

€L

TRAP

104405

1116
T1ININT
PKTSSR

sBRANCH IF NOT OFF -LINE

308
011154

. WORD

MOV
MOV
81T

ERRHRD

104456

224

;0I0 AN INTERRUPT OCCUR

. WORD
. WORD
. WORD
;GET THE CONTENTS OF TSSR
aEXPECTED CONTENTS OF TSSR
:1IS OFF-LINE BIT SET ?

BEQ

254:

INTRECV

C4ESEG

£ VANNNLAANNNANNNL EwoitogTEST NAOUANNAINNNNNANNL
Ll

104403

TRAP

C$ESUB

;sTEST 11, SUBTEST 4
]

sSUBTEST TO VERIFY THAT A GET STATUS COMMAND IS
sREJECTED IF A NON-ZERO COMMAND MODE FIELD IS USED
H
‘-

BGNSUB

044560
044560

044562
044
044570
044570
044572
044576

1777777777777 BE?}T il.BTEST /77777777777
TRAP

104402
012700
10444)
104404
004737
103405

000000

SETPRI

#PRIOO

BGNSEG
016054

JSR
B8cs

csBSuUB

sLOWER PRIORITY TO ALLOW INTERRUPTS

MOV

#PRIOO,RO

TRAP

C$SPRI

TRAP

C$BSEG

$2>>>>>>>>>>> BEGIN SEGMENT >5>5>5>>>>>>>>>
PC,SOFINIT
3¢

;00 SOFT INIT OF CONTROLLER
t1BR IF SOFT INIT = OK

TEST

11:

3331
3332

3333
34
3335
3336
3340

HARDWARE TESTS

MACRO V0S5.03

Tuesdey 28-Apr-87 10:28

Pege 85-68

010001

MOV
ERROF

104455
002137
003652

ERRNO, SFIERR, SFIMSG

045070
010662

104456
002140
005056
012104

V04737
012704

045674
045020

0050x7

002222
007000
000000
016416

3¢:

MOV
JSR
8CSs
ERRHRD

0T711PK2,R4

PC,WRTCHR
44

ERRNO , WRTMSG,
SF IMSG

3357
3358
3362

PC,T11REST

1SET UP PACKET FOR COMMAND

INTRECV
8007000, (R4)

sCLEAR INTERRUPT RECEIVED FLAG

PC.CHKTSSR

tWAIT FOR SSR TO SET

0T11PACKET,R4

S$:
10¢:

15¢:

104406

002222

104456

3363

000002

000100

3
3373

012116

004737

SET TO _NON-ZERO MODE

ISET THE PACKET ADDRESS

154

t1BR IF CARRY SET {GOOD RETURN)
1 SAVE CONTENTS OF T SSR
1DEVICE FATAL SSR FAILED TO SET
TRAP

iLOOP ON ERROR,

csCLP)

TRAP

C4ESCAPE
L10106-.

:BY-PASS SUBTEST IF FATAL ERROR

T1S7
BNE
ERRHRD

ggIRECV

;0ID AN INTERRUPT OCCUR ?

TSSR(RS)
,R

osc-ssn-fsaeu R2

1GET THE CONTENTS OF TSSR

304
ERRNO, T114REJ. PR SSR

PC.,CKRAM

1CHECK RAM TO MEMORY

SOFL ,R2

254:

;BRANCH IF YES

sEXPECTED CONTENTS OF TSSR
11S OFF-LINE BIT SET ?
1BRANCH IF NOT OFF
-L INE
1SET OFF-LINE IN EXPECTED DATA
100ES EXPECTED MATCH RECEIVED ?
;OKAY IF MATCH
+COMMAND NOT REJVECTED

0OFL ,R1

354:

TRAP

IF FLAG SET

R2,R1

RAP
. WORD
. WORD
. WORD

304:

011154

T11SR2
PKTSSR

suB

224:

JSR

CSERDF
1121

. WORD
. WORD

ESCAPE

ERRNO, TLININT,PKTSSR

C4ERHRD
1120
WRTMSG
SFIMSG

;1GET THE ADODRESS OF COMMAND PACKET

R4, TS0B(RS)

CKLoOoP

000100

3374
75
3376

1WRITE CHARACTERISTISC F?Ikgo

. WORD
.WORD
. WORD

44:

C4ERDF
1119
SFIERR
SFIMSG

sWRITE CHARACTERISTICS PACKET
;1ISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED OK

. WORD

045440
012116

104410
000076
005737
001004

TRAP

. WORD

ERANO, T11SR2,PKTSSR

3356

;1SAVE CONTENTS OF TSSR
;DEVICE FATAL ERROR DURING INIT
. WORD
-WORD

012104

012704
004737
103404

RO,R1

3355

SEQ 0174

NON-TAPE MOTION COMMANDS

F14

TSVSA

C4ERHRO
1122

T11NINT
PKTSSR

Gl4a

TSVSA

TEST

11:

HARDWARE TESTS

3384

Tuesday 28-Apr-87

10:28

Page 85-69

SEQ 0175

NON-TAPE MOTION COMMANDS

3377 044766
3381 044770

3382
3383

MACRO V0S.03

103404

BCS
ERRHRD

104456
002144
004745
015570

S9¢:

104405

594
ERRNG,PKTRAM,RAMERR

;RAM OK GO ON
sTHEY DON’'T MATCH

ENDSEG

;ccccc<ccccccec

ENDSUB

$ AL

EXIT

SEGMENT

<ccccccccccc

:
100004

104403

104432

END

187

" TRAP

END SUBTEST

L10106:

sALL DONE THIS TEST

TRAP
TRAP

000772

C4ESEG

.WORD

C4ESUB
C4EXIT

L10102-.

1LOCAL STORAGE FOR THIS TEST
;-

100204
045030
000000
000010

T11DATA:

045042
000000
000016
000000

T11BFR:

T11PK2:

100204
045100
000000
000010

045112
000000
000016
000000

.BLKB

10-<.-TSV2E7>

.WORD
.WORD
.WMORD
.WORD

100204
T11DATA
O
8.

.WORD
.WORD
.WORD
.WORD

T1iBFR
O
14,
0,0

.BLKW

.BLKB

10-<.-TSV2E&7>

. WORD
. WORD
. WORD
. WORD

100204
T11DTA
0
8.

. WORD
. WORD
.WORD
.WORD

T118F2
(]
14,
0,0

.BLKW

T11PACKET:

T11D7TA:;

000000
T118F2:

iLOCAL TEXT MESSAGES FOR TEST

;COMMAND PACKET FOR TEST
+WRITE CHAR COMMAND, WITH IE, ACK
s ADDRESS OF CHARACTERISTICS BLOCK
1STARTING VALUE OF BLOCK SIZE

1 CHARACTERISTICS DATA BLOCK

s ADDRESS OF MESSAGE BUFFER
iLENGTH OF MESSAGE BUFFER
1MESSAGE BUFFER

s COMMAND PACKET FOR TEST
tWRITE CHAR COMMAND,

WITH IE,

ACK

1tADDRESS OF CHARACTERISTICS BLOCK
1STARTING VALUE OF BLOCK SIZE
s CHARACTERISTICS DATA BLOCK

1 RDDRESS OF MESSAGE BUFFER
tLENGTH OF MESSAGE BUFFER
1MESSAGE BUFFER

H14

TSVSA

TEST

11:

HARDWARE TESTS

MACRO V0S5.03

Tuesdeay 28-Rpr-87

10:28

Page 85-70

SEQ 0176

NON-TAPE MOTION COMMANDS
'

3432
3433 045132
34 045172
045253
36 045303
045364
045440
045514
045572
045642

111
111

T1INBA:

T112REJ:
T113REJ:

107
107
103
103
105

_ASCIZ

T114REJ:
T11SSR: .ASCIZ
T11SR2: .ASCIZ

T1ININT:
T11TSBA:
TST111D:

111
116

EVEN

'INITIALIZE Command Not Accepted’
LASCIZ
.ASCIZ

'INITIALIZE Not Re_jected With Non-Zero Mode Field'
'GET STATUS Not Accepted’

.ASCIZ
.ASCIZ
.ASCIZ

'Expected Interrupt Not Received On INITIALIZE'
'Incorrect TSBA Address After INITIALIZE'
'Non-Tape Motion Commands'

.ASCIZ
'GET STATUS Not Re jected With Non-Zero Mode Field’
'Contents of TSSR Incorrect
After INITIALIZE'
'Contents of TSSR Incorrect After GET STATUS'

tROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES
s INITIALIZE COMMAND
4
;-

T11REST:

012701

045020
100213

SAVREG
MOV
MOV

OT11PACKET,R1
0100213,(R1)+

;SAVE THE REGISTERS
;START OF THE PACKET
;INITIALIZE WITH ACK,

CLR
CLR

(R1)
(R1)e

{EXTENDED ADDRESS
1SIZE OF DATA BLOCK IN BYTES

(R1)
(R1).
(R1)

;LENGTH OF MESSAGE BUFFER

;RETURN

CLR

Ets

CLR
CLR
CLR
CLR

045042

RTS

(R1)+
%2}3’

T11BFR

1 ADDRESS OF CHAR DATA BLOCK
: ADDRESS OF MESSAGE BUFFER

;CLEAR 1ST LOC IN MESSAGE BUFFER

t84

sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAWLT) VALUES
;GET STATUS COMMAND
]
‘-

T11RT2:

012701

045020
100217

SAVREG
MOV

MOV
CLR
CLR
CLR
EL:
(W

045042

CLR
CLR
CLR
CLR

RTS

ENDTST

#T11PACKET Rl

#100217,(R1)(R1)(R1)(R1).
Egi;o
-

(R1)(R1)(R1)
T118FR

1SAVE THE REGISTERS
:START OF THE PACKET
sGET STATUS WITH ACK, IE
1 ADDRESS OF CHAR DATA BLOCK
1EXTENDED ADDRESS
31SIZE OF DATA BLOCK IN BYTES
s ADDRESS OF MESSAGE EUFFER

sLENGTH OF MESSAGE BUFFER

sCLEAR 1ST LOC IN MESSAGE BUFFER
tRETURN

114

TSVSA

TEST

11:

HARDWARE TESTS

MACRO V0S5.03

Tuesday 28-Apr-87

10:28

Page

85-71

SEQ 0177

NON-TAPE MOTION COMMANDS

046000
046000
3488 046002

L10102:

104401

ENOMOD

TRAP

C4ETST

J14

TSV6

TEST

PARAMETER CODING MACRO V0S.03

11:

Tuesday 28-Apr-87

10:28

Page

.TITLE

TSV6 -

PARAMETER CODING

BGNMOD

TSve

.SBTTL

HARDWARE PARAMETER CODING SECTION

SEQ 0178

NON-TAPE MOTION COMMANDS

046002
046002

TSV6:
:

y T’-E HARDWARE PARAMETER CODING SECTION CONTAINS MACROS

THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES.
THE
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.
THE
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS
UITH THE OPERATOR.

000010

L$HARD: :

000031
046024
160010

177776

046022

001031
046060
000000
000776

36 046024
046024
046024
046060
046104

104
111
111

105

116
116

126
124
124

L10107:
HPM] :
HPM2:
HPM3:

BGNHRD
.WORD L10107-L$HARD/2
GPRMA
.MORD
.WORD
.WORD
JWORD
GPRMA
.WORD
.WORD
.WORD
.WORD
;GPRMD
ENOHRD
.EVEN

HPM1,0,0,160010,177776,YES
T4CODE
HPM]
T4LOLIM
TS$HILIM
HPM2,2,0,0,776,YES
T4$CODE
HPM2
T4LOLIM
THHILIM
HPM3,4,0,340,0,7,YES

.ASCIZ
.ASCIZ
.ASCIZ

'DEVICE ADDRESS (TSBA/TSDB)
'INTERRUPT VECTOR
'INTERRUPT PRIORITY
'

;GET

TSBA/TSDB REGISTER ADDRESS.

;GET VECTOR ADDRESS.

;GET INTERRUPT PRIORITY,

<14

TSV6 - PARAMETER CODING MACRO V0S.03

Tuesday 28-Apr-87 10:28

Page 87

SEQ 0179

SOF TWARE PARAMETER CODING SECTION
.SBTTL

SOFTWARE PARAMETER CODING SECTION

THE SOF TWARE PARAMETER CODING SECTION CONTAINS MACROS
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES.
THE
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE

INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.

MACROS ALLOW THE SUPERVISOR

WITH THE OPERATOR.

52 046134
046136

54 046136

046136
046142

000003

L$SOFT:
:

001130
046174
177777

046144

L10110:

046144
046174
046224
046254

101
110
122
122

T
BGNSF
.WORD L10110-L$SOFT/2

GPRML

SPM1.0,-1,YES

.MORD

TscoDE

GPRML

:
:

SPM1:
SPM4:
SPM6:
SPM7:

THE

TO ESTABLISH COMMUNICATIONS

; GET TRANSPORT TEST FLAG.

SPM4.2.-1.YES

'WORD
JMORD
GPRMD
GPRMD
ENDSFT
.EVEN

SPM4
-1
SPM6.4,D,7777.0,7777,YES
SPM7.6.0,7777.,0.7777.YES

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.SBTTL

'ENABLE TRANSPORT TESTS
'INHIBIT ITERATIONS
'PER TEST ERROR LIMIT
'PER UNIT ERROR LIMIT
PATCH AREA

;

GET ITERATION CONTROL
.

;
;

GET LOCAL ERROR LIMIT
GET GLOBAL ERROR LIMIT

'
'

FINALLY A GENEROUS PATCH AREA.
AND AN ADJUSTMENT

DESCRIBED IN

046304

047000
047002
047004
047004

ACCOUNT

FOR

THE

“LASTAD BIT7"

PATCH:
:

046304

047000

"SUPPRG.MEM” (FOR REV C).

.BLKW
047000

000001

32.

.=, 1377.1
LASTAD
.EVEN
. WORD
0
0
.WORD
L‘LASY::E
.END

sSET LAST USED ADDRESS.

HACK

L14

TSV6

PARAMETER CODING MACRO V0S.03

Tuesdey 28-Apr-87

Symbol tesble
ADOSSR
012176 C
ADR
= 000020 G

AMBTSS
006635
ASSEMB= 000010
A1716 = 000003

BADDAT
BADSSR
BOVPCR=
BENBSW
8IE
=
8IT0
=

003156
015760
177520
002230
040000
000001

8IT01
81702
B8IT03
BIT04
8IT05
81706
8IT07
81708
8IT09
8IT1
81710
8IT11
8IT12
8IT13
81714
8IT15
8IT2
8IT3
8174

000002
000004
000010
000020
000040
000100
000200

8IT00 = 000001

BITS
8116
BIT7

8I18
8119
BOE

BRINIT

=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
-~
=

001000
000002
002000
004000
010000
020000
040000
100000
000004
000010
000020

= 000040

= 000100
= 000200

G
G
G
G

G
G
G
G
G
G
G
G
G
G
G
G
G
G
G
G
G
G
G
G
G
G
G
G

= 000400 G
= 001000 G
G

004457

C4AU_
= 000052
C$AUTO= 000061

C4BRK = 000022
C4BSEG= 000004
cs8SUB= 000002

CSCEFG=
C4CLCK=
C4CLEA=
C4CLOS=
C4CLP]1=
C4CVEC=

000045
000062
000012
00003S

C4000U=
C4DRPT=
C40U_
=
C4EDIT=
C4ERDF=
C4ERHR=
C4ERRO=
C4ERSF=
C4ERSO=
C4ESCA=
C4ESEG=
C4ESUB=
C4ETST=
C4EXIT=
C4GETB=
C4GETW=
C4GMAN=
C4GPHR=
C4GPLO=

000051
000024
000053
000003
0000SS
000056
000060
000054
000057
000010
000005
000003
000001
000032
000026
000027
000043
000042
000030

oot

DEVDRO
DEVNRD

DEVNXR
DEVONL
DEVSUM

EF .CON=
EF .NEW=
EF .PUR=
EF .RES~
EF.STA=
EMAXDU
ENAINTY

G
G
G
G
G

C4INIT= 000011
C4INLP= 000020

EPRTSW
EPRT]
EPRT2
ERCM
ERRHI
ERRK
ERRLO
ERRNQ =
ERRVEC=
ERTABE
ERTABL
ESUM
EVL
=

C4MEM = 000031
C4MSG = 000023

EXPBRE
EXPD

G
G

C4GPRI= 000040

CSMANI =

E:WEN- 000034
Cs
C
C
c
o
C
o
C
c

puMMY

EXBCNT=
EXPGOT

003126 G

INTFLA

016225

F$AU_
= 000015
F$AUTO= 000020
F48GN = 000040

INTR
INTREC
INTVEC

016276 G
002222 G
016226

F$DU

= 000016

INVERT

021222 G

FéHW

= 000013

004117

FUSI

C4OCLN=

SEQ 0180
FRESIZ

DFPTBL
OIAGMC=
DICEA =
DSBINT
DUAD)2
OUFLG

000036

87-1

F4CLEA= 000007

INTX

FSEND = 000041
F $HARD= 000004

004300

IPRI
ISR

=
=
I$AUTO=
JSCLN =
I$0V
=
I4HRD =
I$INIT=
I4MO0 =
I$MSG_=
I4PROT=
I$PTAB=
I4PWR =
I$RPT =
I4SEG =
I4$SETU=
J4SFT =
I4SRV =
I4SUB =

002206 G
004000 G
000041

000021
000017
000012
000003

GETSEL
GS$CNTO=
G4$DELM=
G40ISP=

020336 G
000
000372
000003

G$LOLI= 000001
$NO_
= 000000

KIPARO= 172340
KIPAR1= 172342

G4OFSI= 000376
$PRMA= 000001
G4$PRMD= 000002

KIPAR3S= 172346
KIPAR4= 172350
KIPARS= 172352

G
G

G4EXCP=
GSHILI=

IVEC
IXE
I$AU

002210 G

= 000100 G

F4PROT=
F4PWR =
F4RPT =
F4SEG =

F$SOF
T=
F4SRV =
F4SUB =
F$SW
=
F$TEST=
GDDAT
GERRMA
GETPAT

000005
000010
000002
000014
000001
003160 G
002172 G
020254 G

G4$OFFS»

000140
000000

000120

000041
000041
000041
000041
000041
000041
000041
000040
000041
000041
00041
000041
000041
000041
000041
000041

I47ST = 000041
JESMP = 000167

KIPARZ= 172344

KIPARG= 172354

KIPAR7= 172356
KIPORO= 172300

KIPOR2= 172304

KIPDR3= 172306

000010
001400

KIPORS= 172312
KIPOR6= 172314

046024

KTENAB

003134 G

046104

KTINIT

021070

000040 G

KTON

017336

004256

LISTAL= 000001

100000 G

010000 G
020000 G

016230

KIPOR1= 172302

000020

017124

JOKCKI= 000200
IOKSTP= 000001

F$INIT= 000006

F4JMP = 000050
F4M00 = 000000
F4MSG = 000011

016224

INTMAS

KIPDR4= 172310

KIPDR7= 172316

KTFLG
KTOFF

LERRMA
LOE

LOOPCN

003132 G

017354

002170 G

= 040000 G

002214 G

R -

TSV6

PARAMETER COOING MACRO V0S5.03

Tuesdey 28-Apr-87 10:28

Page 87-2

SEQ 0181

Symbol teble

LOOPCO

013176

L10001

002174

L1007

037126

NXR

003740

PRIOS = 000240 G

LOY
= 000010
L$ACP
002110

L10003
L10004

012114
012132

L1007S
L10076

043632
041122

NXRX
NXTU

003777
022036

PRIO7 = 000340 G
PRMESS
014312

L10006
L10007

012156
012174

L10100
L10101

042404
042632

ONEFIL= 000000
0$APTS= 000000

012236

L10103

044100

04BGNR= 000001

L10013

012460

L10105

044556

L10024

015656

MMVEC = 000250

LOOPFL

L4APT

L$AV
L$AUT

L$AUTO

003162

0020

022366
002070
022572

L$C

002106

L$CO

002032

L$CLEA
L$DEPO
LSDESC
L$DESP
L$DEVP
L$DISP
LEOLY
L$OTP
LIDTYP

022652

002011
003410
002076
002060
002124
002116

110010

L10011

L10012

002034

002072

L1002S

022464

L$OVTY

003402

L $EF

L1000S

L10014
L1001S
L10016
L10017
L10020
L10021
L10022
L1002

LeOV

L$OUT

L10002

L10026

005766

012150
012212
012310

013174
014022
014044
015560
015566
015574
015606
015630
016016

016326

L10074

L10077

L10102
L10104

L10106
L10107
L10110
MEMADD
MEMCK
MENASC
MENERR
MENRES

037332

NXRERR

041514

046000
044336

OFL

= 000100

0$AU

= 000001

O4BGNS= 000001

045002
046024
046144
014024 G
021312 6
020527
020454
020556

MSA.FR= 000006

ooV

= 000001

O4ERRT=
O4GNSW=
04POIN=
04SETU=
PASRPT
PATCH
PATDAT
PC.ERA=

000000
000001
000001
000000
022070
046304 G
020310
002400

PC.IER= 002000
PC.NOG= 001000

MSA .NO= 000000

000004
012214
013134
012420
014012

005736 G

000200
000001
000020
000010

PRMNO

002320 G

PRMSGE
PRMSGO

014632 6
015012

PRMSG2

015115

PR1ASC

014545

PRMSG1

PROASC

PST32W
PUNIT
PW.D11=
PH.D13=
PW.D22=
PW.NOP=
PU.NO1=
PW.RDE=

015057

014500

003152 6
022320
000021
000022
000020
000000
000023
000024

PUH.RDR= 000001

PW.RDS= 000005

PC.REL= 000000

PUW.RFI= 000003

PKBCNT=
PKHI
=
PKLOW =
PKTADD
PKTFRM
PXTGET

PW.WF1I=
PW.WFM=
PW.WMI=
WNP=
PW.WTR=
P.ACK =

PC.REW= 000400

G
G
G
6

PRIOC6 = 000300 G

PKTMES
PKTRAM
PKTSSR

000006
000004
000002
007554
007516
012134 G

012160 G
004745 G
012116 6

PU.WCT= 000006

000004
000007
000010
000011
000002
100000

P.CMD = 000037
P.CONT= 000012
P.CVC =

= 001000 G

P.FMT = 000140

PRASC

014603

P.GETS= 000017

022024

PRBREC

015552

P.MODE= 007400

004335
004221

PRBYTE 015202 G
PRI
=
G

020614
005460
000200
000040
000100
000020
004152
00440
004527
004530

PRIAO
PRIBXO
PRIEQU
PRIPKTY
PRIRAM
PRITAD
PRITSS
PRITO
PRIT1
PRIXOR

026150
005645
002000
003114 G

002166 G

003136 G
003142 G
003140 G

021466

PRAMPK
PRBEXP
PRBTOT

PRIADD

014046

015550
015416
015503

010160

010230
007612 G
010060
007370 G
010066
010274
24
010356
010421
007742 G

PRIOO = 000000 G

PRIO1 = 000040 G
PRIO2 = 000100 G
PRIO3 = 000140 G

PRIO4 = 000200 G

P.FORM= 000011

P.IE = 000200
P.INIT= 000013

P.0PP = 020000

P.POSI= 000010
P.READ= 000001

P.SWB = 010000

P.WRIT=
P.WRTC=
P.WRTS=
ave
AMASC
RAMDAT
R
RAMEXP
RAMFOR
RAMSIZ

000005
000004
000006
002202 6
014226
002242 G
015570 G
015610 G
010116
002302 G

RCVHIA
RCVLOA

002304 G
002306 G
005206

RAMTAD

RECMSG

015576 G

002466 G

..o

JSV6 - PARAMETER CODING MACRO V0S.03

Tuesday 28-Apr-87 10:28

Pege 87-3

SEQ 0182

Symbol teble

RECV

002234 G

REGSAV
RETERR

020220
005372

S1.1CE= 002000

TSTSID

027400

TST8ID

035347

S1.IE0= 010000
S1.IFM= 001000

T7ST6I0
TST7ID

REWIND
011054 G
RMCHBE= 000167
RMCHEN= 000200

S$1.110= 004000
S1.11R= 020000
S1.12R= 040000

TST9ID
TSV2
TSV3

RMMSGE= 000234
RMPKTB= 000201
RMPKXTE= 000210

REV

002226 G

RMMSGB= 000215

TI10INT
T10L00
TIOMBF

043370
040540
042754

S2.INR= 000020

TTIVEC= 000060 G

TIONIN

043277

TBLEND= 003062 G

T4ERRN= 002144

TSV4e

TCOASC

006476

020522
SELDAT= 000004
SEL2
=
SETMAP 017376

TEMP1
TEMP2
TERCLS=
TESTNO=

003116 6
003120 G
000016
000013

SETU

022122

SFFMSG
SFHERR
SFIERR
SFIMSG

012152 6
003705
003652
012104 G

SFPTBL

002164 G

SIFLAG

003154 G
012036

S2.ILW= 000100

TCOCOD

TEXASC

TFCASC
TIMEXP
TIMSGO
TINERR

TMPBFR

016054 G

SPM)

046144

TSBAMS

SPMg
SPM7

046224

SPACE

010466 G

SPMe

SRO

046174

= 177572

SR1
s
SR2
=
SRS
=
SSR
=
STATCD

ISD8

006676

006435

T4ARGC= 000003
T4CODE= 001130
T4EXCP= 000000
T4FLAG= 000040

$GMAN=
T4HILI=
TSLAST=
T4LOLI=

000000
000776
000001
000000

T4LSYM= 010000

006537
015632 G
015660
012071

T4LTNO= 000013
T4NEST= 177777
T4NSO =
TINS] =

016764
002164 G
000000 G
000001 G

T4NS3 = 000003
TIPTNU=
T4SAVL= 177777
T4SEGL= 177777

002632 G

026240

026322

TSOBH =
G
TSFCOD 007236
TSREJ = Q00006

T4NS2 = 000002

T4SEKO= 010000

T $SUBN=

710

T10DTA

TIONBA

TIONNB
T10PAC
TI0PKT

TI0RST

TI0RT2

T10SSR
710.1
710.2
T10.3

T10.4

T11PK2

T1IRES

T4TEST=

T117SB

T11SR2
T11SSR

006606

012462

G
003502 6
006418
000003 G

T4TISTH=
T4TSTSs
T4$AU =
T$4AUT=
T44CLE=

010031
010033
010034

Til.1
T11.2
711.3
T11.4
T112RE

SVCINS= 000000
SVCSuUB= 000001

TSTBLK
TSTONT

002752 6
002212 6

TésHAR= 010107
T4 = 01

T114RE
T2

TSTFLA

002314 G

SVCTAG=

SVCTST= 000001

S$LSYM= 010000
.ID8= 000010

TSSX

TSTEND
TSTLOO
TSTPTR

S0 .IFB= 000002
S0 .IFP= 000001

TSTSET
TST1ID

S0.IRO= 000100

TST2ID

SO.ILD= 000020
SO.I0N= 000040

SO.IRW=s 000004
S0.1SP= 000200

TST101
1ST111

TSTIID
TSTAID

017000

016536 6
002316 G

016570 6
023660
043457
045642

024350

025043
026402

T4$DU = 0100

T$$INI= 010030
T44MSG= 010029

041124
041516

042406

043652
045132
045514
045020

T11KT2

177777

043210

TI13RE

T2L00P
T2SSR

TININT
T7PACK
TTIREST
T75P
T7TSBA

045572

17.4

045440
045364

027466

027016

027532 G

030553
027550
030450

030631

030475
030711
027550
030074

031004 G

033256
033240
034211
031022

033370

034120
033230
034412
033250
034031

034300
031022

17.2
77.3

031424
031676

045172

17.5
17.6
T720AT
T7200N=
T72NBA

032370
032634
033276
033312
033312

045303
023702 G

T73+EJ
T74EJ

043652
044114
044340

045253

023720
024276

G
003150 6

TISSR
TSTSBA

T6SSR
T6TSBA
76.1
76.2

77.1

3
7%

T6PACK

045736

T4$SRY= 0}
T44SUB= 010106

T44TES= 010102
1P
023462 6

T6NBA

T7SSR

024164
024231

T44SH = 0O}

045070

T2TSBA
T2TSSR

T23A
72%8

75.2

045100

T44PRO= 010027
T$4RPT= 010033

T44SEG= 01
T44SOF= 010110

026444
027430
026450

T7DATA
T7INT
T7LO0P
T7INBA

045674

025072

TSLOOP
TSMEM
715.1

TONINT

043560

025072 G
025112
025334
025634
026426 G

043506

042712

024726

14.2
74.3
15

T6INT
TLOOP

Ti1LOO
T1INBA
T1ININ
T11PAC

T11D0TA

T4
T4LOOP

043133
042650

043634 G
045042
045112
0450

T4TAGL= )T77777

T$TAGN= 010111
T4TEMPS

043051

T
T11BFR
T1'BF2
T11D0AT

TSSDEF
JSSR =
TSSRBI
TSSRFO
TSSRAH =

SVCGBL =

177574
177576
172516

TSBAMZ

021562 G

TTICSR= 177560 G

S2.0UT= 000040
S2.UND= 000003

TNAM
TRANST
T7SBA =
TSBAH =

SKIPT
SOFIND

TSADDR

TSVS
023462 G
TSV6
046002 G
TTIBFR= 177562 G

005013

010660

042722

52.ATI= 000010
S2.871= 000004
S2.0IM= 000200

S1.PAR= 100000

SCHME

SDELAY

74.1

042672
042734
042

s 100000
= 020000
005300

040522 G

T10BFR
TIOBUF
T100AT

SC
SCE

SCHERR

T3TSSR

040421
002000 G
002174 G

= 010000

011150

023500

023502
023562

RMR

RWPACK

TILOOP
T1.1
T1.2

S1.IHE= 000400

030763
034363

003144 G
003146 6

0244)

024772
024662

T72REY

TTSREJY
18

032142

033443

033542
033635

033733

T88FR
T8DATA

03S11¢
035

T8PACK

035070
03

T8L.00P
TONVCK

ToVCX
19
T98FR

034500
035167

035132

035366 G
037372

B15

TSV6

PARAMETER CODING MACRO V0S.03

Tuesday 28-Apr-87 10:28

Page 87-4

SEQ 0183

Symbol teble
T9DATA
TOINT
TN O0P
TONBA

037360
040247
035410
037426

TOSREY
037771
UAM
= 000200 G

UNITN

002200 6

Usl

004123

WSMBK

WC.IFA=
WC.IFE=
WC.I1G0=
WC.IRE=

000200
000002
000001
000010

XNXM
XORBF
O
XORFOR
XSTQO
=

UNREC = 000006

WAITF

WC . JRW=

016330 G

WF . IED=
WF
. JER=
WF . IHI=
WF . IRE=
WF . IWF=
WF . IWR=

WF . I3R-

ABS
Errors detected:

802

WRTERR

WRTMSG

XFERAS

XST1

WwC.JO0T= 000100
WC.I17= 000040
WC.ISR= 000020

000
001

WF . J4R=
WRTCHR

XST2
XSTS
XST4

000010
000004
000200
000040
000020
000100

=
=
=

XS080T=
XSOEQT=
XSOIE =
XSOILA=
XSOILC=
XSOLET=

XSOMQOT=

(RW,I,GBL,ABS,QVR)
(RW,I.LCL,.REL,CON)

(RW,I.LCL,.REL,CON)

sse Agsembler statistics

Work
Work

file
resds:
file writes:

Size of work fle:
Size of core pool:
Opersting
system:
Elapsed time:

273
268
28912 Worde
19684 Wordse

RSX-11M/PLUS

00:04:4

(
(

113 Pogoo)
7S P

(Under

AX/VHS)

CVISAC, CVYSAC/- SP-SVC/?I. TSV1A,TSV22A,TSVIB,TSV4, TSVSA,TSVE

XSONEF =
XSOONL =
XSOPED=
XSORLL=
XSORLS=
XSOTMK=
XSOVCK=
XSOWLE=
XSOW_K=
XXCOMM
X$ALWA=
X$FALS=
X$0FFS=
X$TRUE
=
X1.COR=
X1.0LT=
X1.M8Z=
X1.RBPX1.SFA=

X2.8UF»

000004