Digital PDFs

AH-T815A-MC

July 1984

217 pages

Original

90MB

view download

OCR Version

116MB

view download

Document:	CNTSAA0 11-21,TSV05 TSV05 CTRL LT1 JUL 1984 bw
Order Number:	AH-T815A-MC
Revision:	000
Pages:	217
Original Filename:	CNTSAA0__11-21,TSV05__TSV05_CTRL_LT1__AH-T815A-MC__JUL_1984_gray.pdf

OCR Text

17 1%

15405

T3Y05 CTRL LT1

CHTSAAD

CToHE
o1 oF o

EOENEED

Aade

NTSRAD

LE e

rede

B1
iv

wto V7

EQ 0001
USER DOCUMENTATION

MACRO M1200

23-MAR-84 09:44

PAGE 2

.REM_

IDENTIFICATION

THE

PRODUCT

ID:

AC-T814A-MC

PRODUCT

TITLE:

CNTSAAO TSVOS CTRL

LTI

DECO/DEPO:

1.0

DEPARTMENT :

ISS/DIAGNOSTIC SERVICES

DATE :

APRIL 09,

INFORMATION IN THIS DOCUMENT

1984

SUBJECT

CHANGE WITHOUT

NOTICE
AND
SHOULD
NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
ODIGITAL EQUIPMENT CORPORATION ASSUMES NO
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT,
NO RESPONSIBILITY IS ASSUMED FOR
SC*TWARE ON EQUIPMENT THAT IS NOT
AFFILIATED COMPANIES.

THE
USE
SUPPLIED

OR
BY

RELIABILITY
OF
DIGITAL
OR ITS

DIGITAL

DEC

TRADEMARKS OF DIGITAL EQUIPMENT

PDP

DECUS

UNIBUS

DECTAPE

CORPORATION:

MASSBUS

MACRO M1200

23-MAR-84 09:44

PAGE

PROGRAM ABSTRACT

SYSTEM REQUIREMENTS
RELATED DOCUMENTS AND STANDARDS
DIAGNOSTIC HIERARCHY PREREQUISITES
ASSUMPTIONS

NOVABWNFDO

FLAGS

ERROR INFORMATION

PERFORMANCE AND PROGRESS REPORTS

OPERATING INSTRUCTIONS
COMMANDS
SWITCHES

DEVICE INFORMATION TABLES

VWO

GENERAL TINFORMATION

TEST

NNNNNNNNNN

e
s s e

TABLE OF CONTENTS

USER DOCUMENTATION

MAINTENANCE HISTORY

HARDWARE QUESTIONS

SOF TWARE QUESTIONS
EXTENDED P-TABLE DIALOGUE
QUICK STARTUP PROCEDURE

SUMMARIES

SEQ 0002

USER DOCUMENTATION

MACRO M1200

23-MAR-84 09:44

1.0

GENERAL INFORMATION

1.1

PROGRAM ABSTRACT

PAGE

D1
SEQ 0003

THIS IS A SBC-11/21+ RESIDENT DIAGNOSTIC WHICH CHECKS THE

FUNCTIONALITY

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

FUNCTIONS THAT AID IN THE REPAIR OF THE DEVICE.

OF ELEVEN TEST WHICH ARE EXECUTED IN SEQUENCE.

THIS DIAGNOSTIC CONSISTS

THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC

RUNTIME SERVICES SOFTWARE (SUPERVISOR).

THESE SERVICES PROVIDE

THE INTERFACE TO THE OPERATOR AND TO THE SOF TWARE ENVIRONMENT.
THIS PROGRAM CAN BE USED WITH XxXDP+, ACT, APT, SLIDE AND PAPER
TAPE.
FOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES, REFER
TO THE XXDP+ USER'S MANUAL.
THERE IS A BRIEF DESCRIPTION OF
THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT.

1.2

SYSTEM REQUIREMENTS

SBC-11/21+ PROCESSOR AND MEMORY
CAUTION:DIAGNOSTIC REQUIRES 32K WORDS OF MEMORY
(28K USEABLE I.E. 4K FOR I/0 PAGE)
TSVOS MAGTAPE SUBSYSTEM (DRIVE AND CONTROLLER)
CONSOLE TERMINAL

PDP-11 DIAGNOSTIC SUPERVISOR (HSAAA,SYS VERSION 34 OR LATER)
PDP-11 DIAGNOSTIC LOADER/MONITOR (XXDP+)
1.3

RELATED DOCUMENTS AND STANDARDS

DIGITAL EQUIPMENT CORPORATION DOCUMENTS:
1.

XxDPe«

TSVOS TRANSPORT SUBSYSTEM USER'S GUIDE

TSVOS5 TRANSPORT SUBSYSTEM TECHNICAL MANUAL

TSVOS TRANSPORT SUBSYSTEM INSTALLATION MANUAL

1.4

USERS GUIDE

DIAGNOSTIC HIERARCY PREREQUISITES

FUNCTIONAL SBC-11/21+ CENTRAL. PROCESSOR AND MEMORY
FUNCTIONAL CONSOLE TERMINAL
FUNCTIONAL

STANDALONE DIAGNOSTIC

SUPERVISOR

FUNCTIONAL DIAGNOSTIC LOADER/MONITOR (XXDP+)
1.5

ASSUMPTIONS

ALL HARDWARE EXCEPT

THE HARDWARE UNDER TEST

IS ASSUMED TO WORK

]

USER DOCUMENTATION

MACRO M1200

23-MAR-84 09:44

PAGE 4-1

SEQ 0004
PROPERLY

OR FALSE ERRORS CAN BE REPORTED.

&&YIPA:E BEING USED ON THE

2.0

TSOS TRANSPORT

IS A KNOWN GOOD REEL

OPERATING INSTRUCTIONS

THIS SECTION CONTAINS A BRIEF DESCRIPTION OF

FOR DETAILED

2.1

INFORMATION,

REFER

THE

XXDP+

THE RUNTIME SERVICES.
USER'S MANUAL
.

COMMANDS

THERE ARE ELEVEN LEGAL COMMANDS FOR

THE DIAGNOSTIC RUNTIME

SERVICES

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

COMMAND

EFFECT

START

START THE DIAGNOSTIC FROM AN INITIAL STATE

CONT INUE

CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER tC)

EXIT

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

RESTART

START THE DIAGNOSTIC WITHOUT INITIALIZING

PROCEED

CONTINUE FROM AN ERROR HALT

ADD

ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE

CONSIDERED TO BE ACTIVE AT START

DROP

DEACTIVATE A UNIT

STATISTICAL

B8Y THE DIAGNOSTIC

DISPLAY

TIME

INFORMATION (IF

IMPLEMENTED

SECTION 4.0)

TYPE A LIST OF ALL DEVICE INFORMATION

FLAGS

TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3)

ZFLAGS

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

THE

OPERATOR COMMANDS

TSVOS DIAGNOSTIC

IS A SBC-11/21+

DIAGNOSTIC

SUPERVISOR

COMPATIBLE

PROGRAM,
ALL LOADING AND RUNTIME INSTRUCTIONS CAN BE REFERENCED IN THE
XXDP+ USERS GUIDE. THE USER ENTRY IS IN QUOTES.

BOOT THE DIAGNOSTIC MEDIA
.R NTSA?2?
DIAG. RUN-TIME SERVICES REV D.

CNTSA-A-0

APR 79

#44sTSVOS5 LOGIC DIAGNOSTICeses

lND‘I'T

TSvOS

2.2
THERE

SWITCHES
ARE

SEVERAL

SWITCHES WHICH ARE

USED

TO MODIFY

SUPERVISOR OPERATION.

USER DOCUMENTATION

MACRO M1200

THESE

23-MAR-84 09:44

PAGE 4-2

SEQ 0005

SWITCHES ARE APPENDED TO THE LEGAL COMMANDS.

ALL OF

THE LEGAL

SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH.
IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED By “DDDDD“.

SWITCH

EFFECT

/TESTS:LIST

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

NUMBERS,

FOR EXAMPLE

/TESTS:1:5:7-10.

THIS LIST WILL CAUSE TESTS

/PASS : 0DDDD
/FLAGS :FLGS
/EOP : DDDDD

/UNITS:LIST

1,5,7,8,9.10 TO

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

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

EXAMPLE OF SWITCH USAGE:

START/TESTS:1-5/PASS:1000/E0P: 100
THE EFFECT OF

EXECUTED,

THIS COMMAND WILL BE:

TESTS

THROUGH 5 WILL BE

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

PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY.

SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS.
FOR EXAMPLE, TYPE “/TES:1-5" INSTEAD OF "/TESTS:1-5".

YOU MAY,

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

PASS

FLAGS

EOP

UNITS

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

2.3

FLAGS

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

ALSO CLEARED AFTER A START

COMMAND UNLESS

SET

USING

THE

FLAG SWITCH.,
THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR
ALL FLAGS.
WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS,
NO COMMANDS AFFECT THE STATE OF THE FLAGS;
THEY REMAIN SET OR

USER DOCUMENTATION

MACRO M1200

23-MAR-84 09:44

PAGE 4-3

G1
SEQ 0006

CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH.
FLAG

EFFECT

HOE

HALT ON ERROR - CONTROL IS RETURNED TO

RUNTIME SERVICES COMMAND MODE

LOE

LOOP ON ERROR

IERe
IBRs

INHIBIT ALL ERROR REPORTS
INHIBIT ALL ERROR REPORTS EXCEPT

FIRST LEVEL

ERROR TYPE,

IXEe«

(FIRST LEVEL CONTAINS

NUMBER,

PC,

TEST AND UNIT)

INHIBIT EXTENDED ERROR REPORTS ( THOSE
CALLED BY PRINTX MACRO'S)

PRI
PNT

DIRECT MESSAGES TO LINE PRINTER
PRINT TEST NUMBER AS TEST EXECUTES

UAM
ISR

UNATTENDED MODE (NO MANUAL INTERVENTION)
INHIBIT STATISTICAL REPORTS (DOES NOT
APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT
STATISTICAL REPORTING)

B0OE

“BELL” ON ERROR

‘

IDR
ADR

INHIBIT PROGRAM DROPPING OF UNITS
EXECUTE AUTODROP CODE

LoT

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, INMIBIT ERROR REPORTS
AND TYPE A "BELL" ON ERROR, YOU MAY USE THE FOLLOWING
STRING:

/FLAGS:LOE: IER:BOE

2.4

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 A START COMMAND UNLESS THE
HARDWARE

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

INITIAL

SUPERVISOR),

STARTING OF

THE PROGRAM (START

THE PROGRAM WILL

THE HARDWARE PARAMETERS ARE

ON A

“N" (NG) RESPONSE

RUN USING

THE

DEFAULT

TSBA/TSDB

ISSUE THE

TO BE

TO THE

CHANGED (BY

THE

VECTOR

QUESTIONS.

224

THE

DIAGNOSTIC

OPERATOR).

“CHANGE MW?" QUESTION,

VALUES FOR ALL

176000,

COMMAND TO

“CHANGE HW?“ QUESTION TO ASK

THE DIAGNOSTIC WILL

THE DEFAULT

ADDRESS

AND

VECTOR

ARE:

USER DOCUMENTATION

MACRO M1200

23-MAR-84 09:44

H1
PAGE 4-4

SEQ 0007

ON A

"v* (YES) RESPONSE TO THE QUESTION,

THE

FOLLOWING

QUESTIONS

WILL

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

DEFAULT VALUE THAT WILL BE TAKEN IF ONLY A CARRIAGE RETURN IS TYPED AS A
RESPONSE.
A “(D)” IN A QUESTION INDICATES
THAT
A
DECIMAL
NUMBER
IS

REQUIRED

RESPONSE.

“(0)” INDICATES AN OCTAL NUMBER

son.rcr:geoés ANN”(%&; 'I‘R)DICATES THAT A LOGICAL RESPONSE IS
‘l'.l

@ UNITS (D)

IS BEING

MADE:

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

UNIT O

DEVICE ADDRESS

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

VECTOR (0) 224 ?

THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF
UNITS
(CONTROLLERS) SPECIFIED IN THE “@ UNITS?” QUESTION.
LOGICAL UNIT
NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT O.
UP TO FOUR UNITS CAN BE

SELECTED FOR TESTING AS FOLLOWS:
UP TO 4 TSVOS CONTROLLERS PER 11/23 AND UP TO 2 DRIVES PER CONTROLLER

2.5

SOFTWARE QUESTIONS

AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART

OR CONTINUE COMMAND,

PARAMETERS.

THE RUNTIME SERVICES WILL ASK FOR SOF TWARE

THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC

OPERATION MODES.
YOU WILL BE PROMPTED BY “CHANGE SW (L)
IF YOU WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING
“Y*,

THE

SOFTWARE QUESTIONS AND

IN THE NEXT PARAGRAPH(S).

THE DEFAULT

?2“

VALUES ARE DESCRIBED

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

CONTINUE.

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

<TYPE "Y” TO PREVENT MULTIPLE
ITERATIONS OF CERTAIN TESTS,

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

ONLY QUICK-RUNNING LOGIC
TESTS USE MULTIPLE

ITERATIONS.
»

2.6

EXTENDED P-TABLE DIALOGUE

WHEN YOU ANSWER

THE HARDWARE QUESTIONS,

IN A TABLE

THAT DESCRIBES

UNIT

TESTED.

WAY

TO BUILD THIS

TO BE

A MASS

STORAGE

TABLE

YOU ARE BUILDING ENTRIES

THE DEVICES UNDER TEST.

THE SIMPLEST

TO ANSWER ALL QUESTIONS FOR EACH

YOU HAVE A MULTIPLEXED DEVICE SUCH AS

CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION

USER DOCUMENTATION

MACRO M1200

23-MAR-84 09:44

PAGE 4-5

I1
SEQ 0008

DEVICE WITH SEVERAL LINES,

THIS BECOMES TEDIOUS SINCE MOST OF

THE ANSWERS ARE REPETITIOUS.

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

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

@ UNITS (D)

8<CR>

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

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

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

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

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

160000<CR>
?
7<CR»>
<CR»

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

USER DOCUMENTATION

MACRO M1200

23-MAR-84 09:44

PAGE 4-6

SEQ 0009
AS

YOU CAN SEE FROM

THE ABOVE EXAMPLE,

THE HMARDWARE PARAMETERS

DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT.
NOT VERY EFFICIENT,

THE PROCEDURE SHOWN IS

THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER.
l’:gz'“SREUILO THE SAME TABLE USING THE MULTIPLE SPECIFICATION

@ UNITS (D)

8<CR>

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

UNIT 7
CSR ADDRESS (0) ?
160090<CR>
SUB-DEVICE @ (0) ?
6,7<CR>
Q-FACTOR (0) 0 ?
1<CR>
AS

YOU CAN SEE

IN THE ABOVE DIALOGUE,

THE RUNTIME

SERVICES WILL

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

SINCE

TWO SUB-DEVICES AND Q-FACTORS WERE SPECIFIED.

THE

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

WAS SPECIFIED ONLY ONCE.

IN THE SECOND PASS,

FOUR ENTRIES WERE

BUILT.
THIS IS BECAUSE FOUR SUB-DEVICES WERE SPECIFIED.
THE
“-" CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA

FROM THE FIRST NUMBER TO THE SECOND.

IN THIS CASE,

SUB-DEVICES

2, 3, 4 AND 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.
SPECIFIED IN THE THIRD PASS.

THE LAST

THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED

SHOWN BELOW.

@ UNITS (D)

TWO UNITS ARE

_N ONE PASS AS

8<CR>

UNIT 1
CSR ADDRESS (0) ?
160000<CR>
SUB-DEVICE ¢ (0) ?
0-7<CR>
Q-FACTOR (0) 0 ?
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.

2.7 QUICK START-UP PROCEDURE
TO START-UP

THIS PROGRAM:

(XXDP+)

MACRO M1200

23-MAR-84 09:44

IK1

PAGE 4-7

SEQ 0010

TYPE "R NAME", WHERE NAME
FILE FOR THIS PROGRAM

THE NAME

TYPE

BOOT XXDP+

ANSWER

ANSWER ALL

THE HARDWARE QUESTIONS

USER DOCUMENTATION

ANSWER THE

“CHANGE SW” QUESTION WITH “N*

THE BIN OR BIC

"START"

THE

“CHANGE HW"” QUESTION WITH

WHEN YOU FOLLOW THIS PROCEDURE

“v*

YOU WILL BE USING ONLY

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

THE

THESE DEFAULTS

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

TYPE

NUMBER

ON UNIT NUMBER

ERROR MESSAGE

TST NUMBER PC:XXXXXX

+WHERE; NAME = DIAGNOSTIC NAME
TYPE

= ERROR

TYPE

(SYS FATAL,

DEV FATAL,

HARD OR SOFT)

NUMBER = ERROR NUMBER
UNIT NUMBER = O - N (N IS LAST UNIT IN PTABLE)
TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED
PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL

BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL
INFORMATION ABOUT THE ERROR.
THESE ARE ALWAYS PRINTED UNLESS
THE “IER” OR "IBR” FLAGS ARE SET (SECTION 2.3).
THESE MESSAGES

ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE.

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

PRINTED UNLESS THE “IER”, “IBR” OR “IXE"” FLAGS ARE SET (SECTION
2.3).
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR

MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES.
3.2 SPECIFIC ERROR MESSAGES

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

EXAMPLE

REPRESENTS DIFFERENT

TYPES

USER DOCUMENTATION

MACRO M1200

23-MAR-84 09:44

PAGE 4-8

SEQ 0011

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

IgC%RECT REGISTER OR STATUS WORDS.
ATA,

THE THIRD PART IS THE EXPECTED AND RECEIVED

TST: 016 FIFO EXERCISER TEST

CNTSA HRD ERR 01610 ON UNIT 00 TST 016 SUB 002 PC: 040624
FIFO STATUS (IN WORD

9) INCORRECT AFTER WRITE FIFO

TAPE BUS SIGNALS IN WORD @8:
PARERR<15>
IEOT
«<12>
IFMK

IRESV2<14>
IRESV1<13>

TIDENT<11>
ICER
<10>

- DESIGNATOR <BIT &>
<9>
IRDY<6>
IRWD<2>

IHER
«<8>
ISPEED<7>

TAPE BUS SIGINALS IN WORD #9:

IONL<S>
ILDP<4>

INRDY<4>
OUTRDY<S>
ILMW<6>
DATMIS<7>
MESSAGE BUFFER ADDRESS = 047352
MESSAGE BUFFER CONTENTS:
WORD #0 EXPD: 100020 RECV: 100020 XOR:
WORD @1 EXPD: 000012
RECV: 000012
XOR:
WORD @2 EXPD: 000000 RECV: 000000
XOR:
WORD @3 EXPD: 000010 RECV: 000010
XOR:
WORD ¢4 EXPD: 000000 RECV: 000000
XOR:
WORD @5 EXPD: 000000 RECV: 000000 XOR:
WORD #6 EXPD: 000000 RECV: 000000
XOR:
WORD ©7 EXPD: 000000 RECV: 000000 XOR:
WORD #8 EXPD: 070217
RECV: 070217
XOR:
WORD @9 EXPD: 000074
RECV: 000034
XOR:

IFBY<1l>
IFPT<O>

000000
000000
000000
000000
000000
000000
000000
000000
000000
000040

ERROR MESSAGE EXAMPLE 2

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

I:STQANCEE OEAF\EJcl;gsgVERABLE ERROR OCCURED WHICH INDICATES THAT THE CONTROLLER

MAY

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

100214

TSSR BITS SEV: SC,SSR
TERMINATION CLASS CODE
= UNRECOVERABLE ERROR
PACKET ADDRESS = 026420
PACKET WORD ¢
= 140010
PACKET WORD ¢
= 000010
PACKET WORD @
= 000000
PACKET WORD @

000024

ERROR MESSAGE EXAMPLE 3
THIS ERROR SHOWS THAT

THE MOTION BIT DID NOT GET SET WHILE DOING A REWING

WITH EXTENDED FEATURES MODE ENABLED.

CNTS HRD ERR 00121 ON UNIT 00 TST 001 SUB 002 PC: 023306

USER DOCUMENTATION

MACRO M1200

23-MAR-84 09:44

PAGE 4-9

SEQ 0012

MOT BIT (XSTO) NOT SET DURING REWIND (EXTENDED FEATURES MODE)
EXPD: 000312 RECvV: 000112 XOR: 000200
4.0 PERFORMANCE AND PROGRESS REPORTS

AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE
TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED.
THE "EOP" SWITCH CAN BE USED TO CONTROL HOW OFTEN THE END

OF PASS MESSAGE IS PRINTED.

SECTION 2.2 DESCRIBES SWITCHES.

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

UNIT O
DEVICE ADDRESS

(0)

176000 ? <CR>

VECTOR (0) 224

? <CR>

CHANGE SW (L) ? N<CR>
THE
COMMAND
HAS
TWO
THE ABOVE COMMAND WILL
START
THE
DIAGNOSTIC.
SWITCHES
ON
WHICH
ARE
“PRINT EACH TEST NBR AS EXECUTED” AND “HALT ON
ERROR".
TST:
TST:
TST:
TST:
TST:
TST:
TST:
TST:
TST:
TST:
TST:

001
002
003
004
005
006
007
008
009
010
011

INITIALIZE o1
WRAP DATA HIGH BYTE TEST
WRAP DATA LOW BYTE TEST

RAM TEST

2 TEST
INITIALIZE
COMMAND REJECT TEST

WRITE CHARACTREISTICS TEST
VOLUME CHECK

COMPLETION INTERRUPT TEST
BASIC PACKET PROTOCOL TEST
NON-TAPE -MOTION COMMANDS TEST

0 ERRORS
NOTE: THE DIAGNOSTIC WILL RUN CONTINUOSLY UNLESS A PASS NUMBER LIMIT HAS
BEEN SPECIFIED WITH THE “/PASS:" SWITCH.

PROGRAM RUN TIMES
THE

AVERAGE RUN TIMES OF

;gocggsogSED

THE PROGRAM RUNS

THE PROGRAM ARE LISTED BELOW.THESE FIGURES

GUIDE.

IN TWO MODES;

NO
ITERATIONS
MO
DEFAULT MODE EACH

THE

TIMING

WAS DONE ON THE FALCON.

NO ITERATIONS AND DEFAULT MODE.

, EACH TEST IS RUN ONCE,

IS REPEATED By

WITH NO ITERATIONS.

THE NUMBER OF

TIMES

1IN

ARE

THE

IN THE

INDICATED

USER DOCUMENTATION

MACRO M1200

23-MAR-84 09:44

PAGE 4-10

N1
SEQ 0013

THE
ITERATION
COUNT.
NO ITERATIONS MODE IS SELECTED BY ANSWERING THE
INHIBIT ITERATIONS QUESTION WITH A "Y" (YES).

TIMES REQUIRED TO RUN TESTS 1 THROUGH 12:
Q.v.
DEFAULT

2 MIN 15 SECONDS
16 MINS

MORE EXHAUSTIVE CHECKS ARE AVAILABLE B8Y ALLOWING THE DIAGNOSTIC PROGRAMS
TO RUN FOR MORE THAN ONE PASS.
THE SECOND PASS
OF THE PROGRAM IS MORE
COMPREHENSIVE THAN THE FIRST PASS.
ALL ITERATIONS AFTER THE FIRST PASS
ARE THE SAME, MOWEVER, THEY ARE SUBSTANTIALLY LONGER.

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

CHANGES
:

CHANGE HW (L) ?
@ UNITS (D)

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

UNIT O
DEVICE ADDRESS

(0)

;

VECTOR (0) 224

176000 ? <ENTER THE ADDRESS OF THE

TSBA/TSDB REGISTER»

INTERRUPT

THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF

UNITS

(CONTROLLERS) SPECIFIED IN THE

NUMBERS ARE ASSIGNED IN ORDER,

SELECTED FOR TESTING.

“& UNITS?” QUESTION.

BEGINNING AT O.

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

6.0
TEST

TEST SUMMARIES

BUS RESET TEST

LOGICAL UNIT

TO FOUR UNITS CAN BE

IN ADDITION, ON A START, RESTART OR CONTINUE THE SUPERVISOR
gEG-OlL%S;S CHANGFS TO THE SOFTWARE OPERATING PARAMETERS, AS
WS

THE NUMBER OF

USER DOCUMENTATION

MACRO M1200

23-MAR-84 09:44

Be
PAGE 4

SEQ 0014

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 MODULE.
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 A16 AND
OFL, WHICH ARE IGNORED FOR THIS TEST) BEING CLEAR (0).
IF THE
CONTENTS OF TSSR ARE NOT AS EXPECTED, AN ERROR REPORT IS ISSUED
LISTING THE EXPECTED DATA, ACTUAL DATA, AND THE DISCREPANCIES.
THE ERROR REPORT ANALYZES THE

TSSR CONTENTS AND DISCERNS AND

REPORTS ONE OF THREE POSSIBILITIES:

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

CATASTROPHIC CONTROLLER MALFUNCTION.

ERROR (EXECUTION IS ABORTED).

THE

THIS IS A FATAL

FIELD ACTION WOULD BE

REPLACE THE M7196.
IF THE M7196 ITSELF IS BEING
DEBUGGED, THE PROGRAM SHOULD BE RESTARTED WITH LOOP ON
ERROR ENABLED IN ORDER TO PROBE FOR THE PROBLEM.
2.

SSR = O,

THE RANGE

SC =

17-13:

AND THE ERROR CODE IN BITS 0-S IS IN
THIS IS A FATAL ERROR.,

THE ERROR

CODE IS DECODED AND THE APPROPRIATE DESCRIPTION GIVEN.
INDICATES THAT A SERIOUS PROBLEM EXISTS,
TEST

WRAP DATA

THIS TEST

HIGM BYTE

VERIFIES OPERATION OF
:

PART OF THE 11/21¢+ BUS INTERFACE SECTION OF THE M7196
MODWLE:

PART OF

THE

INPUT FILE

(TSDB HWIGH BYTE),

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

BYTES),

PART OF

PART

THE DCOOS TRANSCEIVER CIRCUITS (ADDRESS

DECODER, BDAL DRIVERS, HIGH BYTE OF INTERNAL DAL BUS

%vslg}é AND BASIC PROGRAMMED I/0 CONTROL

SEQUENCES

PART OF 2901 MICROPROCESSOR ELEMENTS (Q-REGISTER,
REGISTER O, ROTATE AND NEGATE FUNCTIONS

Y AND SOURCE BUSES;

4.,

BASIC MICROPROGRAM SEQUENCES,

USER DOCUMENTATION

MACRO M1200

23-MAR-84 09:44

PAGE 4-12

Ce
SEQ 0015

THE PROGRAM WRITES A TEST DATA BYTE INTO THE WIGH BYTE OF TSDB,
WAITS FOR THE SSR BIT IN TSSR TO SET, THEN CHECKS THE CONTENTS
OF BOTH TSBA AND TSSR.
THE MODULE IS FUNCTIONING CORRECTLY IF
DATA WRITTEN APPEARS IN BOTH BYTES OF TSBA AND THE FINAL CONTENT
OF TSSR IS CORRECT (SAME AS AFTER INITIALIZATION EXCEPT FOR BITS
8 AND 9, WHICH SHOULD CONTAIN BITS 8 AND 9 OF THE DATA PATTERN
WRITTEN.
AN ERROR IS REPORTED AND A DESCRIPTIVE ANALYSIS GIVEN
IF A DISCREPANCY IN TSBA OR TSSR IS DETECTED.
THE ANALYSIS
LISTS LIKELY FALTY CANDIDATES FROM THE LOGIC ELEMENTS LISTED
ABOVE.
THE TEST IS REPEATED FOR ALL COMBINATIONS OF TEST DATA

BYTES (0-377 OCTAL).
TEST

WRAP DATA
THIS

- LOW BYTE

TEST FURTHER VERIFIES OPERATION OF MANY OF

ELEMENTS TESTED IN TEST 2,

THE SAME

AND ADDITIONALLY VERIFIES:

LOW BYTE OF THE TSDB INPUT FILE REGISTER,

LOW BYTE OF INTERNAL DAL BUS DRIVERS ON THE DCOOS

BASIC FUNCTIONING OF PARTS OF

TRANSCEIVER CIRCUITS,

THE RAM,

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

OF BOTH TSBA AND TSSR.
THE MODULE IS FUNCTIONING CORRECTLY IF
DATA WRITTEN APPEARS IN BOTH BYTES OF TSBA AND THE FINAL CONTENT
OF TSSR IS CORRECT (SAME AS AFTER INITIALIZATION EXCEPT FOR BITS
8 AND 9, WHICH SHOULD CONTAIN BITS 8 AND 9 OF YHE 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, AND THAT
EACH RAM LOCATION IS UNIQUELY ADDRESSED (I.E., THAT ONE AND ONLY
ONE LOCATION IS ACCESSED BY ANY PARTICULAR ADDRESS). THE
BYPRODUCT OF THESE TESTS IS A VERIFICATION OF TWO REGISTERS IN
IT\:)(D 2901 AND THE CAPABLITY OF THE 2901 TO CORRECTLY PERFORM AN

TEST

SECOND INITIALIZATION TEST
THIS TEST VERIFIES
@1 AND ALSO CHECKS

THE SAME ELEMENTS AS DID INITIALIZATION TEST
THAT CERTAIN PARTS OF RAM IS CLEARED TO ZERO

USER DOCUMENTATION

MACRO M1200

23-MAR-84 09:44

PAGE 4-13

De
SEQ 0016

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 RCALLY BEING EXECUTED).
FOR EACH OF TWO
SUBTESTS (ONE FOR INITIALIZING VIA A BUS INIT, THE OTHER FOR
{gl;éallr.lll"g BY WRITING INTO THE TSSR), THE FOLLOWING SEQUENCE

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

TEST

THE CONTROLLER IS INITIALIZED AND THE VARIOUS CHECKS ON
;EFE"TSSRDOESCRIBED IN INITIALIZATION TEST @1 ARE

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

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

COMMAND RE.JECT

THIS TEST VERIFIES THAT ALL COMMANDS OTHER

THAN WRITE

CHARACTERISTICS ARE REJECTED DUE TO THE NEED BUFFER ADDRESS
(NBA) BIT BEING SET IN TSSR, AND THAT THE TSBA AND TSSR

REGISTERS ARE LEFT IN THE PROPER STATE AFTER EACH COMMAND IS

REJECTED.
THIS TEST CHECKS MICROPROCESSOR SEQUENCING, BASIC
COMMAND DECODING AND DATI DMA MANDLING.
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

7: WRITE CHARACTERISTICS
THIS TEST VERIFIES BASIC OPERATION OF

THE WRITE CHARACTERISTICS

COMMAND.
IT VERIFIES THAT THE COMMAND BLOCK AND CHARACTERISTICS
DATA BLOCK ARE FETCHED PROPERLY FROM CPU MEMORY, THE NEED BUFFER
ADDRESS (NBA) BIT IN TSSR IS HANDLED PROPERLY, AND THAT A PROPER

MESSAGE PACKET

CHECK

THAT

IS STORED,

WHERE APPROPRIATE.,

THIS TEST DOES NOIT

THE VARIOUS FUNCTIONS ENABLED BY CHARACTERISTIC MODE

DATA BITS OPERATE PROPERLY;

THE FUNCTIONING OF

THESE BITS

USER DOCUMENTATION

MACRO M1200

23-MAR-84 09:44

Ee2

PAGE 4-14

SEQ 0017

VERIFIED IN SUBSEQUENT TESTS.
ALL COMMANDS tXECUTED 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 P
TO FLAG UNEXPECTED INTERRUPTS,
IF AN INTERRUPT OCCURS, A
PROBLEM EXISTS IN EITHER THE 11/21+ 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 wrrECT 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.
TEST

COMPLETION INTERRUPT

THIS TEST VERIFIES THAT AN INTERRUPT IS GENERATED AT

THE

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

PROCESSING OF

THE IE BIT.

THE SEQUENCES OF TEST

7 ARE REPEATED,

EXCEPT

THAT

THE

INTERRUPT

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

FIRST WITH IE=1 AND THE SECOND WITH IE=0.

IS VERIFIED

THAT

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

TEST

10:

BASIC PACKET PROTOCOL

THIS

TEST

COMMAND,

AND

TEST

11:

THE

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 VERIFIES PROPER OPERATION OF

COMMAND.

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
VALUES IN THE COMMAND MODE FIELD CAUSES COMMAND REJECT.

USER DOCUMENTATION

MACRO M1200

23-MAR-84 09:44

Fe
PAGE 4-15

SEQ 0018
7.0 MAINTENANCE HISTORY

REVISION A

MARCH

CVTSAAO => CNTSAAO

1982

JAKI BERG

9-APR-1984

CHANGES WERE MADE TO CVTSAAO TO PRODUCE CNTSAAO FOR THE

FALCON-PLUS PROJECT (SBC-11/21+).
CHANGES, MARKED BY
“3JB REV A-0", ARE:
- SET THE ODT BREAK VECTOR (LOCATION 140) TO THE
STARTING ADDRESS OF FALCON'S ODT ROM (170000-OCTAL).
- LOWER THE GENERAL INTERRUPT PRIORITY FROM 7 TO 6.
- CHANGE DEFAULT CSR ADDRESS FROM 172540 TO 176000.

TSve

- PROGRAM HEADER

MACRO M1200

23-MAR-84 09:44

PAGE

SEQ 0019

002000
002000

.TITLE
.SBTTL

TSv2 - PROGRAM HEADER
PROGRAM HEADER

.MCALL

SVC

SvC
.ENABLE LC
.NLIST
BEX,CND
.ENABL
ABS,AMA
. 2000

002000
TSv2::

BGNMOD

INITIALIZE SUPERVISOR MACROS

TSv2

i
+

002000
002000
002000
002001
002002
002003
002004
002005
002006
002007
002010
002010
002011
002011
002012
002012
002014
002014
002016
002016
002020
002020
002022
002022
002024
002024
002026
002026
002030
002030
002032
002032
002034
002034
002036
002036
002040
002040

103
116
124
123
101

101
060

001217
045654

046006
002154
002164

046404

THE PROGRAM HEADER IS THE INTERFACE BETWEEN
THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR,

POINTER BGNSW,BGNSFT, BGNAU BGNOU,BGNRPT
HEADER
CNTSA,A,O, 655
LSNAME : :
3DIAGNOSTIC NAME
.ASCII /C/
.ASCII /N/

LSREV::

L$DEPO: :

LSUNIT::
LSTIML::

LS$HPCP: ;
L$SPCP: :

LSHPTP: ;
L$SPTP: ;

LS$LADP: ;
L$STA;:

L$CO::
L$DTYP: :

000000
002124

L$APT: ;

LS$DTP:;;

.ASCII /T/
.ASCII /S/
.ASCII /A/
.BYTE
0
.BYTE
(4]
.BYTE
0

.ASCII

/A/

.ASCII

/0/

.WORD

655.

.WORD

L$HARD

L.WORD

LS$SOFT

.WORD

L$HW

.WORD

L$SW

sREVISION LEVEL

sNUMBER OF UNITS
;LONGEST

TEST TIME

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

QUES.

sPTR,

TO DEF. H.W. PTABLE

;PTR.

TO S.W.

PTABLE

;1DIAG. END ADDRESS

.WORD

LSLAST

.WMORD

. WORD

L$DISPATCH

1RESERVED FOR APT STATS

sDIAGNOSTIC

TYPE

1APT EXPANSION

iPTR.,

70 DISPATCH TABLE

TSv2

PROGRAM HEADER

MACRO M1200

23-MAR-84 09:44

H2
PAGE

7-1

SEQ 0020

PROGRAM HEADER

002042
002042
002044
002044
002046
002046
002050
002050
002051
002052
002052
002054
002056
002056
002060
002060
002062
002062

L$PRIO::

LSENVI::
LSEXPL::

000000

022370
022466
000000
003404
104035

000000
021546

022654

022574

021536

000000
000000
000000

+FLAGS DESCRIBE HOW IT WAS SETUP

1EXPANSION WORD

EVENT FLAGS

L$SPC::

022702

CSREVISION
CS$EDIT
1DIAG.

LS$EF::

003376

tDIAGNOSTIC RUN PRIORITY

:SVC REV AND EDIT ¢

L$MREV:
:

000000

002110
002110
002112
002112
002114
002114
002116
002116
002120
002120

LSDEVP::

L$OVTYP

LS$SREPP::

:PTR,

TO REPORT CODE

tPTR.

TO ADD UNIT CODE

:PTR.

TO DROP UNIT CODE

;LUN FOR EXERCISERS TO FILL

LS$RPT

LSEXPS:
:

+ POINTER TO DEVICE TYPE LIST

LSEXPS:
:

L$AUT::

L$AU

LSDUT:
:
LSLUN::

L$DESP::

L$DESC

LSLOAD:
:

ESLOAD
"

LSETP::

LS$ICP:;

LSINIT

L$CCP::

L$CLEAN

L$ACP:
:

L$AUTO

LS$PRT::

L$PROT
"

LSTEST::
L$DLY::

LSHIME:
;

WORD

. WORD

sPOINTER TO DIAG. DESCRIPTION
$GENERATE SPECIAL AUTOLOAD EMT
;POINTER TO ERRTBL
:PTR.

TO INIT CODE

:PTR.

TO CLEAN-UP CODE

:PTR.

TO AUTO CODE

tPTR,

TO PROTECT

s TEST NUMBER

;DELAY COUNT

sPTR.

TO HIGH MEM

TABLE

TSv2

PROGRAM HEADER

MACRO M1200

23-MAR-84 09:44

PAGE 8

12
SEQ 0021

DISPATCH TABLE
33
34
35
36
37
38
39

.SBTTL
e

40 002122

DISPATCH TABLE

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

000013
023464
023704
024402
025074
026430
027534
031004
034372
035276
040412

043514

THE DISPATCH TABLE CONTAINS

THE STARTING ADDRESS OF EACH TEST.

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

LSDISPATCH:
:

TSv2

PROGRAM HEADER

MACRO M1200

23-MAR-84 09:44

Je
PAGE

SEQ 0022

DEFAULT HARDWARE P-TABLE
43
a4
45

.SBTTL
.

: THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF

47
48
49

50 002152
002152
002154
002154
S1
52 002154
53 002156
54 002160
S5 002162
002162

DEFAULT HARDWARE P-TABLE

THE

TEST-DEVICE PARAMETERS.

THE STRUCTURE OF

THIS

TABLE

IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE.

'--

000003

BGNHW
L$HW:
:

. WORD

DF 2TBL

:DEFAULT HARD-P-TABLE

176000
224
PRIO4

s
s+

L10000-L $HW/2

DFPTBL:
:

176000

000224
000200

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

Tsve

PROGRAM HEADER

MACRO M1200

23-MAR-84 09:44

PAGE

SEQ 0023

SOF TWARE P-TABLE
.SBTTL

57
S8
59
60
61
62
63 002162
002162
002164
002164

jee

002174

THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM

PARAMETERS THAT CAN BE CHANGED BY

i
L$SW::
SFPTBL::

002164
002166
002170
002172
002174
002174

SOFTWARE P-TABLE

000017
000310

BGNSW
WORD

SFPTBL

L10001-L$5W/2

TRANSTST: :
NOITS::

.WORD
.WORD

0
0

LERRMAX: :
GERRMAX : :

.WORD
.WORD

13,
200.

L10001:

ENDSW

THE OPERATOR.

:
;

ENABLE TEST OF TRANSPORT(S)
INHIBIT ITERATION OPTION.

i ... 0 = ITERATE.
i ...NZ = INHIBIT ITERATE.
s LOCAL (PER TEST) ERROR LIMIT

;s GLOBAL (PER UNIT) ERROR LIMIT

TSV3

GLOBAL AREAS

MACRO M1200

23-MAR-84 09:44

PAGE

L2
13

SEQ 0024

SOF TWARE P-TABLE
4

8
13
19
20 002174
002174

TSV3::

.TITLE
.SBTTL

TSV3 - GLOBAL AREAS
GLOBAL EQUATES SECTION

BGNMOD

TSV

.SBTTL

GLOBAL EQUATES SECTION

:+ THE GLOBAL EQUATES SECTICN CONTAINS PROGRAM EQUATES THAT
+ ARE USED IN MORE THAN ONE TEST.

+ GET STANDARD EQUATES.

EQUALS

33 002174
i

: BIT DIFINITIONS

BIT15==
BIT14==
BIT13==
BIT12==
BIT1ll==
BIT10==
BITQ09==
BITO8==
BITQ7==
BITO6==
BITOS==
BITO4==
BITO3==
BITO2==
BITOl==
BITOO==
3

BIT9==
BIT8==
BIT7==
BIT6==
BITS==
BIT4==
BIT3==
BIT2==
BITl==
BITO==

BITO9
BIT08
BITO7
BITO6
BITOS
BIT04
BITO3
BIT02
BITO1
BITOO

s EVENT FLAG DEFINITIONS
+
EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION
000040
000037
000035
000034

EF .START==
EF .RESTART==
EF.CONTI NUE
=»
EF .NEW==
EF .PWR==
H

32.
31.
30.
29.
28.

+
+
s
+
+

BIT POSITION IN SECOND STATUS WORD
(100000) START COMMAND WAS ISSUED
(040000) RESTART COMMAND WAS ISSUED
(020000) CONTINUE COMMAND WAS ISSUED
(010000) A NEW PASS HAS BEEN STARTED
(004000) A POWER-FAIL/POWER-UP OCCURRED

TSV3

GLOBAL

AREAS

MACRO M1200

23-MAR-84 09:44

PAGE

13-1

SEQ 0025

GLOBAL EQUATES SECTION
'

000340
000300
000240
000200
000140
000100
000040
000000

PRIORITY LEVEL DEFINITIONS

PRIO7==
PRIO6==
PRIOS==
PRIO4==
PRIO3==
PRIO2==
PRIO1==
PRIOO==

340
300
240
200
140
100
40
0

;1OPERATOR FLAG BITS
EVL==
LOT==
ADR==
IDU==
ISR==
UAM==
BOE==
PNT==

004000
010000
020000
040000
100000

IXE==
IBE==
IER==
LOE==
HOE==

002000

000004
000010
000020
000040
000100
000200
000400
001000

35 002174

PR]I==

.SBTTL

4
10
20
40
100

200
400
1000

2000

4000
10000
20000
40000
100000
KT11

MEMORY MANAGEMENT DEFINITIONS

1#KT11 VECTOR ADDRESS

000250

MMVEC=

177572
177574
177576
172516

SRO=
SR1=
SR2=
SR3=
.IF NB

;#KT11

250

STATUS REGISTER ADDRESSES

177572
177574
177576
172516

;#USER “I” PAGE DESCRIPTOR REGISTERS

UIPDRO=
UVIPDR1=
UIPDR2=
UIPDR3=
UIPDR4=
UIPDRS=
UIPDR6=
VIPDR7=

177600
177602
177604
177606
177610
177612
177614
177616

;#USER "D" PAGE DESCRIPTOR REGISTORS

UDPDRO=
UDPDR1=
UDPDR2=
UDPDR3=
UDPDR4=
UDPDRS=
UDPDR6=

177620
177622
177624
177626
177630
177632
177634

;:DEFINE MEMORY MANAGEMENT REGISTERS

TSV3

- GLOBAL AREAS

MEMORY

MACRO M1200

23-MAR-84 09:44

PAGE 13-2

N2
SEQ 0026

MANAGEMENT DEFINITIONS

UDPDR7= 177636
ENDC

1#USER “I" PAGE ADDRESS REGISTERS

UIPARO=
UIPAR1=
UIPAR2=
UIPAR3=
=
UIPAR4
UIPARS=
UIPARG6=
UIPAR7=

177640
177642
177644
177646
177650
177652
177654
177656

1 #USER “D” PAGE ADDRESS REGISTERS

UDPARO=
UDPAR1=
UDPAR2
=
UDPAR3=
=
UDPAR4
UDPARS
=
UDPARG
=
UDPAR7=
.ENDC

177660
177662
177664
177666
177670
177672
177674
177676

.IF N8

3 *SUPERVISOR "I PAGE DESCRIPTOR REGISTERS

SIPDRO=
SIPDR1=
SIPDR2=
SIPDR3=
=
SIPDR4
SIPDRS=
SIPDR6=
SIPDR7=
.IF NB

172200
172202
172204
172206
172210
172212
172214
172216

s *SUPERVISOR "D” PAGE DESCRIPTOR REGISTERS

SOPDRO= 172220
SDPDR1= 172222
SDPDR2= 172224
SUPDR3= 172226
= 172230
SDPDR4
SDPDRS= 172232
SDPOR6= 172234
SDPDR7= 172236
.ENDC
3 #SUPERVISOR “I* PAGE ADDRESS REGISTERS
SIPARO= 172240
SIPAR1= 172242
SIPAR2= 172244
SIPAR3= 172246
SIPAR4= 172250
SIPARS= 172252
SIPARG= 172254
SIPAR7= 172256
s #SUPERVISOR “D* PAGE ADDRESS REGISTERS
SOPARO= 172260
SOPARL
= 172262

TSV3

GLOBAL AREAS

MACRO M1200

23-MAR-84 09:44

PAGE

13-3

B3
SEQ 0027

MEMORY MANAGEMENT DEF INITIONS

SOPAR2=
SOPARS«
SOPAR4=
SDPARS=

172264
172266
172270
172272
172274
172276

ENDC

172300
172302
172304
172306
172310
172312
172314
172316

1oKERNEL “I” PAGE DESCRIPTOR REGISTERS

KIPDRO=
KIPDR1
e
KIPDR2e
KIPDR3«
KIPDR4
=
KIPDRSe
KIPDR6
=
KIPDR7=

JIF N8

172300
172302
172304
172306
172310
172312
172314
172316

1 oKERNEL “D” PAGE DESCRIPTOR REGISTERS

KDPDRO=

172340
172342
172344
172346
172350
172352
172354
172356

172320
KDPDR1= 172322
KDPDR2+ 172324
KOPDR3~ 172326
= 172330
KDPOR4
KDPDRS
« 172332
KOPDR6
= 172334
KDPDR7
= 172336
.ENDC
1 oKERNEL “I” PAGE ADDRESS REGISTERS
KIPARO= 172340
KIPAR]
= 172342
KIPAR2= 172344
KIPAR3= 172346
KIPAR4
= 172350
KIPARS= 172352
KIPARG= 172354
KIPAR7= 172356
.IF N8B

1 oKERNEL “D” PAGE ADDRESS REGISTERS

KDPARO=
KDPAR]
=
KDPAR2
=
KDPARS
=
KDPAR4
»
KDPARS
=
KDPARG»
KDPAR7
=

.ENDC

172360

172362
172364
172366
172370
172372
172374
172376

TSV3

GLOBAL AREAS

MACRO M1200

23-MAR-84 09:44

PAGE

C3
SEQ 0028

TSVOS REGISTER AND PACKET DEFINITIONS

.SBTTL

TSVOS REGISTER AND PACKET DEF INITIONS

+ SOME GENERAL EQUATES.
ERRVEC=~-

177560
177562
177520

TTIVEC==

TTICSR==

TTIBFRe=

BOVPCR=»

1 POINTER TO ERRO® VECTOR FOR BUS TIME OUT,
1 INTERRUPT VECTOR FOR CONSOLE INPUT

60
177560
177562
177520

1 BUS ADDRESS OF CONSOLE INPUT
+ CONSOLE INPUT DATA BUFFER
s BOV11 PAGE CONTROL REGISTER

I B d

1BIT DEFINITIONS FOR TSSR REGISTER
SC»
BIESCE=

BIT1S
BIT14
BIT13
RMR=
BIT12
NXMe
BIT11
NBA=
BIT10
HIADDR= BIT9!BITS
SSR«
BIT?
OFL=
BIT6
FATERR= BIT4!BITS
TERCLS- BIT3!BIT2!BIT1

1SPECIAL CONDITION

1BUS INTERFACE ERROR
1 SANITY CHECK ERROR
tMODIFICATION REFUSED
tNONEXISTANT MEMORY ERROR
tNEED BUFFER ADDRESS
1EXTENDED ADDRESS BITS
1SUB SYSTEM READY
1OFF LINE BIT
tFATAL

TERMINATION ERROR

s TERMINATION COOES

1BIT DEFINITIONS FOR EXTENDED STATUS REGISTER O
1 (XSTO)
'
'.

XSOTMK=
XSORLS=
XSOLET=
XSORLL
=
XSOWLE
=
=
XSONEF
XSOILC=
XSOILA=
XSOMOT
=
XSOONL
=
XSOIE=
XSOVCK =
XSOPED=
XSOMWLK=
XS0B80T=
XSOEQT =

BIT1S
BIT14
8IT13
BIT12
B8IT11
BIT10
BITY9
8IT8
BIT?
BIT6
BITS
BIT4
BITS
BIT2
BIT1
BITO

s TAPE MARK DETECTED

tRECORD LENGTH SHORT
sLOGICAL END OF TAPE
tRECORD LENGTH LONG
iWRITE LOCK ERROR
:
tNON EXECUTABLE FUNCTION
s ILLEGAL COMMAND
s ILLEGAL ADDRESS

s TAPE

IN MOTION

s TRANSPORT ON LINE

1 INTERRUPT ENABLE
1VOLUME CHECK BIT
1PHASE ENCODED DRIVE
tWRITE LOCKED

1BEGINNING OF TAPE
1END OF TAPE

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

CODES

TSV3

GLOBAL AREAS

MACRO M1200

23-MAR-84 09:44

PAGE

14-1

D3
SEQ 0029

TSVOS REGISTER AND PACKET DEF INITIONS
97

98
39
100
101

102
{gz

100000
040000
020000

017375

000400
000002

105

115
Hg;

X1.RBP
X1.UNC

READ BUS PARITY ERROR
alNCWECTABLE DATA OR HARD ERROR

X1.MBZ

= OlflzoBITuoBITlOoDINoOIY?oBIY6oBITSoBIN081130817208170

= BITS8
= BIT1

1(XST2)

100000
040000
035400
002000
000200
000100

X2.0PM
=
X2.RCE
=
X2.SPARE =
X2.WCF
=
X2.EXTF =
X2.BUFE =

000007

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

000077

118
119

X2.REV

BIT1S
|WERATIW IN PROGRESS (TAPE MOVING)
BIT14
AM CHECKSUM ERROR
811’130811’120817110817900170
sNOT USED BY TSVOS (ALWAYS=0)
BIT10
WRITE CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT)
BIT?
aIF WRITE CHAR CMD THEN = EXTENDED FEATURES ENABLED
BITé
1 IF WRITE CHAR CMD THEN = BUFFERING ENABLED

= 000077

1IF WRITE CHAR CMD THEN = MICROCOCE REVISION LEVEL

3o
;BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3

igg

1(XST3)
'-

122
123

177400
000200

X3.MDE
= 177400
X3.SPARE= BIT?7

stMICRO-DIAGNOSTIC ERROR CODE
sNOT USED BY TISvVOS

125

000040

X3.REV

= BITS

$REVERSE

000010
000006

X3.0CK
X3.MBZ

= BIT3
+=BIT2.BIT1

sDENSITY CHECK
1NOT USED ALWAYS O

124

126

127
128

000100

000020
000001

131
132
%gz

X3.0PI

X3.TRF

X3.RIB

= BIT6

=« BIT4

= BITO

sOPERATION INCOMPLETE

31 TRANSPORT RESPONSE FAILURE
tREVERSE INTO BOT

I
;BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 4

;(XST4)
'.

135

136
137

138

{28

100000

040000

020000

017400

000377

141
142
143

151
152
153

= BITI1S

sHIGH SPEED

X4,.TSM

= BIT13

s TRANSPORT SPECIAL MODE

X4 .RCE

X4 .MBZ

X4 .WRC

= BIT14

sRETRY COUNT EXCEEDED

= 81712081711oBITlOoBIT%BITO

= 000377

sNOT USED ALWAYS O

iWRITE RETRY COUNT FIELD

1 TSSR TERMINATION CODES (BIT 0-2)
3

146

148
igg

X4 .HSP

i
s

i:;
147

sALWAYS O

1BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2

lg;l

109
110
111
112
113
114

1DATA LATE
t1NOT USED
sCORRECTABLE DATA ERROR

106

X1.DLT
=« BIT1S
X1.SPARE= BIT14
X1.COR = BIT13

000006
000006

TSREJ=
UNREC*

3e2
6

3
i

sDEVICE REGISTER OFFSETS

; COMMAND REJECTED
tUNRECOVERABLE ERROR

TSV3

GLOBAL

AREAS

MACRO M1200

23-MAR-84 09:44

PAGE

14-2

e
SEQ 0030

TSVOS REGISTER AND PACKET DEFINITIONS

154
155
156
157
158
159
160

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

161

TSDB ADDRESS BIT DEFINITIONS

‘-

000003

A1716

= BIT1.BITO

+ADDRESS BITS 17:16 ARE IN 1:0

+ COMMAND DEFINITIONS
.GETSTAT
«INIT
.CONTROL
.FORMAT
.POSITION

= 13

.WRITE
.WRTCHAR
.READ

1GET STATUS

s INITIALIZE
s CONTROL COMMANDS

1FORMAT

sPOSITION
1SUBSYSTEM WRITE

tWRIT
tWRITE CHARACTERISTICS
1READ

179
180
181
182

12
11
10

—_bhuno

000017
000013
000012
000011
000010

VOVOVOVOVOVO
V-

162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178

183
184
185
186
187
188
189
190
191

PACKET HEADER WORD BIT DEFINITIONS

P .ACK

.CvC
P .w
)
.SWB
P .MODE
P.
IE
P

= BIT1S
= BIT14
= BIT13

1BUFFER AVAIL FOR CONTROLLER
1CLEAR VOLUME CHECK
tREVERSE SEQUENCE OF DATA BITS

= BIT12

1 SWAP BYTES IN MEMORY
. GITII'BITIO'BIT9'BITO sEXTENDED COMMAND MODE FIELD
= BIT?
1 INTERRUPT ENABLE

P. FMT= 8176'8175

192
193
194

;PACKEY HEADER

TYPE

tMAJOR COMMAND FIELD

(ALWAYS=0)

:+ CONTROL COMMAND MODE CODES
'

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

002400

= 08256,
= 14256,
= 24256.

44256,
5256,

;sRELEASE BUFFER
sREWIND
iNO-0OP

sREWIND IMMEDIATE INTERRUPT
1SECURITY ERASE

s+ CONTROLLER RAM DEFINITIONS
'

000167
000200
000201
000210
0v0215
000234

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

167
200
201
210
215
234

1CHARACTERISTICS IO DATA BEGIN RAM ADDRESS
1CHARACTERISTICS IO DATA END RAM ADDRESS
1COMMAND PACKET BEGIN RAM ADDRESS
1COMMAND PACKET END RAM ADDRESS
tMESSACE BUFFER BEGIN RAM ADDRESS
tMESSAGE BUFFER END RAM ADDRESS

F3
TSV3

GLOBAL AREAS

MACRO M1200

23-MAR-84 09:44

PAGE

14-3

SEQ 0031

TSVOS REGISTER AND PACKET DEFINITIONS
211
212

tREGISTER DEFINITIONS IN THE MESSAGE BUFFER

213
214
215
216

217
218
219

220
221
222
223
224
225
226

227

228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246

247

248
249

250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267

000010
000012
000014
000016

XSTO0==
XSTl==
XST2==
XST3==
XST4==

;EXTENDED STATUS REGISTER O (WORD 4)
tEXTENDED STATUS REGISTER 1 (WORD 5S)
tEXTENDED STATUS REGISTER 2 (WORD 6)

6
8,
10.
12,
14,

tEXTENDED STATUS REGISTER 3 (WORD 7)

tEXTENDED STATUS REGISTER 4 (WORD 8)

:OFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS
;LOW ORDER CHARACTERISTIC DATA POINTER
sHIGH ORDER CHARACTERISTIC DATA POINTER
tNUMBER OF BYTES IN DATA PACKET

tNUMBER OF BYTES IN EXTENDED DATA PACKET

EXBCNT=10
*

:DATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND
BSELO
BSEL1
SEL2

= 0
= 1
s 2

SELDATA = 4

iBYTE O
;BYTE

tWORD 2
sWORD 3

:BSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND
*

‘.

Pu . NOP
PW.RDRAM
PW.WTRAM
PW.RFIFO
PW.WFIFO
PW.RDSTAT
PW.WCTL

=0
s 1
-2
=3
= 4
=5
= 6

sNO-OP
1READ RAM
sWRITE RAM
;READ FIFO
;WRITE FIFO

PW.WMISC

sWRITE MISCELLANEOQUS

PW.D11
PW.D13

e
-

21
22

PuW.WFMT

PuW . WNPR
PuW.D22

PW.NO1311
PW.RDEXT

= 7

o
= 20

= 23
= 24

t1READ STATUS

iWRITE TAPE CONTROL

tWRITE TAPE FORMAT

;WRITE NPR CONTROL
100 MICROTEST 22
;100 MICROTEST 11
;00 MICROTEST 13

;DISABLE MICROTEST 11 AND 13

;READ EXT, TAPE STATUS (NOT SUPPORTED BY ALL TRANSPORTS

;BSEL1 CODES FOR WRITE TAPE CONTROL
'-

WC.IFAD
WC.IOTAD

= BIT?
= BITé

s IFAD

+ITADO

FORMATTER ADDRESS

- TRANSPORT ADDRESS BIT 0

TSV3

GLOBAL

AREAS

MACRO M1200

23-MAR-84 09:44

PAGE

14-4

G3
SEQ 0032

TSVOS REGISTER AND PACKET DEFINITIONS

WC.I1TAD
C.ISRESV
WC. IREW

BITS
B8IT4
BIT3
BIT2
BIT1
8ITO

WC.IFEN

sITAD1
s IRESVS
s IREW
s IRWU
s IFEN
1GO

TRANSPORT ADDRESS BIT 1
RESERVED o5
REWIND
REWIND AND UNLOAD
FORMATTER ENABLE

s IHMISP
s IWRT

- HIGH SPEED
- WRITE

.IGO

000040
000020
000010
000004
000002
000001

+BSEL1 CODES FOR WRITE FORMAT
‘-

000200
000100

000020
000010
000001

. IMISP
. IWRT
. IREV
. IWFM
.IEDIT
. IERASE
. ISRESV
. I4RESV

SEEEEESS

268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289

BIT?7
BIT6
BITS
BIT4
BIT3
8IT2
BIT1
8ITO

s IREV
s IWFM
s+IEDIT
s IERASE
s IRESV3
s IRESV4A

REVERSE
WRITE FILE MARK
EDIT
ERASE
RESERVED o3
RESERVED ¢4

:BSEL1 CODES FOR WRITE MISCELLANEOUS SUBCOMMAND
'-

000200
000020
000010
000001

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

= BIT?7

= BIT4
= BIT3
BIT2!BIT1
= BITO

s INVERT SENSE OF EXTENDED FEATURES SWITCH

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

sRESET TIMER A,B THEN DELAY TIMES IN SEL2

MS.ATTN SUBCODES

MSA.NOP = 02
MSA.VOL = 1e2
MSA.NRAM= 242

MSA.FRAM=

3s2

iNO-OP (NOTHING TRIGGERED)

s SIMULATE ON-LINE/OFF -LINE TRANSISTION

sFORCE NON-FATAL RAM ERROR (FORCES ERRCODE 54)
+FORCE FATAL RAM ERROR (CAUSES SCE TO SET)

i WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS
'-

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

BIT?
BIT6
BITS
BIT4

s INTERRUPT REQUEST (0-1 TRANSITION)
s TAPE DATA DIRECTION OUT (0= IN)
tENABLE TRANSPORT LOOPBACK
tWRITE CORRECT PARITY

(SET=0 TO WRITE WRONG)

READ STATUS MESSAGE BUFFER BIT DEFINITIONS

S2.D0IM
S2.ILwW
S2.0UTRDY
S2.INRDY
S2.ATIMR
S2.8TIMR
S2.UNDEF
S1.PARIN
S1.I2RESV
S1.I1RESV
S1.IEOT

BIT?
BIT6
BITS
BIT4
BIT3
BIT2
BIT1.8ITO
BIT1S
BIT14
BIT13
BIT12

tWORD @9 BYTE 2 DATA IN MISS
ILW H
OUT RDY H
IN RDY H

(UNDEF INED)

WORD ©8 BYTE

TIMER A FLAG H
TIMER B FLAG H

1 PARIN H

IRESV2
IRESV1
IEOT L

TSV3 - GLOBAL AREAS

MACRO M1200

23-MAR-84 09:44

PAGE 14-5

H3
SEQ 0033

TSVOS REGISTER AND PACKET DEFINITIONS
325

326

327

328
329
330
331
332
333
334
335
336
337
338

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

. IIDENT
.ICER
. IHER

. ISPEED
. IRDY
. IONL
. ILOP
. IDBY
. IRWD
.IFBY
JIFPT

BIT11
B8IT10
B8IT9
BIT8
BIT7
BIT6
BITS
BIT4
BIT3
BIT2
BIT1
BITO

IIDENT H

WORD #8 BYTE 0

TSV3

GLOBAL AREAS

MACRO M1200

23-MAR-84 09:44

PAGE

SEQ 0034

SPECIAL MACROS AND OPDEFS.

.SBTTL

SPECIAL MACROS AND OPDEFS.

:SAVE GENERAL REGS 1 TO S
‘

.MACRO
JSR
. ENDM

SAVREG
RS ,REGSAV

HAd

MACRO TO FORCE AN ERROR

.ncgno

FORCERROR

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

)

TAG,NOTSSR

MOV

TSSRCRS),R1

MOV

FORCER,FORCER

BNE

TAG

NLIST
.IIF NOF LISTALL,
LIST
-ENDM

;READ TSSR

;IS FORCER SET? (LEAVE C BIT ALONE)

iBR IF YES

.LIST

H
p
:
H

MACRO TO FORCE AN EXIT

TO AVOID SECTION ITERATIONS

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

.MACRO

FORCEXIT

LNLIST
.IIF NOF LISTALL,
LIST

MOV
BMI

TAG

.NLIST

FORCER,FORCER
TAG

«NLIST
.IIF NDF LISTALL,
LIST
.ENDM

;IS FORCER NEGATIVE?
:BR IF YES

.LIST

MACRO TO INCREMENT ERROR COUNTS

‘-

.MACRO
NEXT.ERRNC
CNLIST
s33.IIF NDF LISTALL,

.NLIST

$33.1IF NDF LISTALL,

.LIST

ERRNO=ERRNO+1

LIST
.ENDM
HEd

TSV3

GLOBAL AREAS

MACRO M1200

23-MAR-84 09:44

PAGE

15-1

SEQ 0035

SPECIAL MACROS AND OPDEFS.
397
398
399

:MACRO TO PERFORM XOR
;-

400

.MACRO

401
402
403

MOV
BIC
BIC

404
407

483

BIS

000000

A,B

(SP).,B

EN=0

.SBTTL

FORCER

INITIALIZE ERROR NUMBER

FORCE ERROR FLAG

410
411
412

XOR

A,-(SP)
B,(SP)
A,B

413

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

a14

415 002174
416

:%;

419
420

000000

FORCER: :

0
i
i

- BY

s+ FORCE TYPE ALL HARD ERRORS (THE ONES CALLED
THE MACRO “IFERROR”).
AN ERROR NEED NOT -

- EXIST,

JUST ASSUME AND TYPE THE MESSAGE.

TSV3

GLOBAL

AREAS

MACRO M1200

IK3
23-MAR-84 09:44

PAGE

SEQ 0036

GLOBAL DATA SECTION
.SBTTL

422
423
a2a

GLOBAL DATA SECTION

: THE GLOBAL DATA SECTION CONTAINS DATA THAT

425
426
a27
428
429
430
431
432
433
a3a
435
436
437
438
439
440
441
442

+IN MORE THAN ONE TEST

ARE USED

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

002312

002314

002316
002320
002464
002630

sPRINT SWITCH

EPRTSW::
UNITN::
QVvP::

CSRADDR::
IVEC::
IPRI::

TSTCNT:
:
LOOPCNT
::
DEVCNT:
:

FATFLG::

INTRECV:
:

EXTFEA::

BENBSM:
:
EXPD:
:
RECV::
ERRHI:
:
ERRLO:
:
RAMDATA:
:

RAMSIZ:
:
RCVHIADD:
:
RCVLOADD:
:

:
COUNT:
:
DATA:

TSTFLAG s
TSTPTR
PRMNO
:
EXPHSG
RECMSG:
THPBFR::

°88 OOOOOOOO;OOOOOOOOOOO 3g

002176
002200
002202
002204
002206
002210
002212
002214
002216
002220
443 002222
002224
002226
002230
002232
002234
002236
002240
002300
002302
002304
002306
002310

tUNIT & UNDER TEST.
sQUICK VERIFY FLAG.
sADDRESS OF CSR FOR CURRENT DEVICE
+ INTERRUPT VECTOR
s INTERRUPT PRIORITY,
sNUMBER OF TESTS RUN IN THIS PASS
sREMAINING ITERATION COUNT FOR TEST

tNUMBER OF DEVICE UNDER TEST
1SET IF FATAL ERROR IS DETECTED IN TEST
$SET IF TAPE INTERRUPT WAS RECEIVED
;EXTENDED FE .TURES SOFTWARE SW O=0FF ;1=ON
1BUFFER ENABLE SWITCH SW O=0FF ;1=0ON
;EXPECTED RAM DATA FOR PRAMPKT ROUTINE
+RECEIVED RAM DATA FOR PRAMPKT ROUTINE
tHIGH ADDRESS MEMORY ERROR
:LOW ADDRESS MEMORY ERROR

1DATA READ FROM RAM PACKET OR MESSAGE BUF AREA
sRAM DATA SIZE FOR PRAMPKT ROUTINE

+RECEIVED BUFFER HIGH ADDRESS
+RECEIVED BUFFER LOW ADDRESS
s TEST COUNT PATTERN
s TEST DATA
s TEST FLAG WORD
: TSTBLK POINTER
tPRINT ROUTINE TEMP

+E..PECTED MESSAGE BUFFER DATA

+RECEIVED MESSAGE BUFFER DATA
s TEMPORARY STORAGE FOR PRINT

TSV3

GLOBAL

TSTBLK

AREAS

MACRO M1200

23-MAR-84 09:44

469
470

a71
472
473
a7a
a75
476
a77
478
479
480
481
482
483
484
485
486
487
488

.SBTTL

SEQ 0037

TSTBLK

- TEST DATA TABLE

' *

: THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS
:

: IN SEQUENCE THE DATA IS:
ALL ZEROS
ALL ONES
WALKING ONES
WALKING ZEROS
ALTERNATING ONES AND ZEROS

TSTBLK:
:

.WORD

;sALL ZEROS

.WORD

BITO

;:DATA FOR WALKING ONES

.WORD

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

489

490
491
492
493
494
495
496
497
498
499

.WORD
.WORD
. WORD
.WORD
.WORD

500

501
502
503
504
505
506
507
508
509
510
511
512
513
514
515

TEST DATA TABLE

463

464
465
466
467
468

PAGE

BIT1
BIT2
BIT3
BIT4
BITS
BITé6
BIT?
BIT8
BIT9
BIT10
BIT11
BIT12
BIT13
BIT14
BIT1S

;ALL ONES

;DATA FOR WALKING ZEROS

.WORD
.WORD
.WORD

tCBITO
tCBIT1
tCBIT2
tCBIT3
tCBITS
tCBIT6
tCBIT?
tCBIT8

.WORD
.WORD

125252
052525

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

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

177777

..,

tCBIT9
tCBIT10
*CBIT11
tCBIT12
tCBIT13
tCBIT14
tCBIT1S

TSV3

- GLOBAL AREAS

MACRO M1200

23-MAR-84 09:44

PAGE

SEQ 0038

GLOBAL ENVIRONMENT STORAGE
g{g

.SBTTL

GLOBAL ENVIRONMENT STORAGE

gég

1STORAGE FOR DEVICE REGISTERS
000000
000000

526 003106

000000

DUFLG: :

.WORD

; "DROPPED UNIT” FLAG.

ggg 003110

000000

NODEV: :

.WORD

;FLAG TO SAY NO DEVICE.

530 003112

000000

TEMPL: :

.WORD

533 003120
534 003122
535 003124

000000
000000
000000

FREE: :
FRESIZ::
FREEHI: .WORD

.WMORD
.WORD
O

O
O

355
527

531 003114
532 003116

536 003126

537
538

000000
000000

000000

100000
000000

000000
000000

S21 003056
522 003066
523

DUMMY:

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

TEMP2: :
XXCOMM: :

KTFLG: :

.WORD
.WORD

;OUMMY DEVICE REGISTERS...
+...FOR MULTI-UNIT CHECKOUT,

O
O

LMORD

539 003130
540 003132
S41 003134

000000
000000
000000

KTENABLE : :
NXMFLG: :
NXMLO: :

.MORD
.MORD
.MORD

O
©
O

S43 003140
544 003142

000000
000000

T23A::
1238::

.MORD
.WORD

542 003136

545 003144
546 003146
547 003150
548 003152

549 003154
S50 003156
551 003160
552 003160
553
5S4
555
556
557

ggg

003162
003164
003166
003170
003172

000000

000000
002000
000000
000000

000000
000000

000000
000000
000000
000000
177777

NXMHI : :

T3BFLG: :
PST32M: :
SIFLAG: :

.MORD

.WORD
.WORD
.WORD

BADDAT: :

.WORD

GDDAT: :
LOOPFL: :
CTAB: :
CTABM: ;

.WORD
.WORD

.WMORD

.MORD
.MORD
.WORD
.MORD

O
2000
O
O

O
O
©

O
O
O
-1

s INHIBITS CODE

“CLEAN-UP",

;SOME TEMP LOCATIONS.

;1 XXDP+ COMM BLOCK POINTER.

+1ST FREE MEMORY ADDRESS...
i...AND SIZE (IN WORDS).
;LAST WORD IN FREE SPACE

{KT11, MEM AVAIL FLAG -

;- .WORD
0 = <28K OR NO KT
i- NZ = >24K AND KT,

:SET BY TEST ROUTINES TO FLAG >28K UNDER TEST
:SET IF WE CAN TEST CLEARED OTHERWISE
sNXM LO ADDRESS BITS
sNXM HI ADDRESS BITS FOR DAL'S 16-21
111723A FLAG
1117238 FLAG

;:TEST 38 FLAG t0
:32W BLOCK ADDRESS FOR 32K START
:
;ACTUAL DATA

;EXPECTED DATA
;CONFIGURATION TABLES.
;CONFIG WORK,

;END OF MEM TABLE.

CTABE::

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

560
561

:
:

562
563
564
5522

;
;
;
:

567 003172
ggg 003372

000000

ERTABL :
ERTABE ;

570 003374

000000

SKIPT:

0
100000

10XXXX
160000
160001
14XXXX

.WORD

=
=

UNIT NOT TESTED
UNIT ONLINE, NO ERRORS

.BLKW
.WORD

64,
O

=
=
=
=

UNIT
UNIT
UNIT
UNIT

ONLINE, ENCOUNTERED XXXX ERRORS
DROPPED, NON-EXISTENT DEVICE REGISTER
DROPPED, NOT IDLE AT START
DROPPED, ENCOUNTERED XXxXX ERRORS

11=SKIP SUBTEST 0=NO SKIP OF SUBTEST

TSV3

GLOBAL

GLOBAL AREAS

MACRO M1200

23-MAR-84 09:44

PAGE

SEQ 0039

TEXT MESSAGES

572
573
574
575
576
577

.SBTTL

GLOBAL TEXT MESSAGES

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

sNAMES OF DEVICES SUPPORTED

003376
003376
003376

124

123

126

DEVTYP
LSDVTYP:
:

.ASCIZ
.EV EN

<TSVO5»>

#TSVOSs

HE4

: TEST DESCRIPTION
'-

003404
003404
003404

052

L$DESC

DESCRIPT <ssss TSVOS LOGIC DIAGNOSTIC

"".ASCIZ
.EVEN

- REPLACE M7196 IF ERROR ssss>

/#sss TSVOS LOGIC DIAGNOSTIC - REPLACE M7196 IF ERROR seas/

HE4

;BIT TO ASCII CONVERSION FOR TSSR REGISTER
003536
003577

003541
003603
103
111
103
115

TSSRBIT::

1$:
2%:
3s:

S$:
64:

.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ

9s:

.ASCIZ

111
111
111
111
111
111

118:
12¢:
13¢:
14%:
15¢:
16%:

ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.EVEN
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

123
123
101
101
101

7%:

108 :

SFIERR:
SFHERR:
NXR
NXRX ;
TSSX:

1$,2%,3$%,45,54,68,74,8$
9%,10%,114,12$,13%,144,15%,16$

.ASCIZ
.ASCIZ

102
111
111
123

8s:

.WORD
.WORD

.ASCIZ2

.ASCIZ

.ASCII

.ASCIZ

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

/
NON-EXISTANT DEVICE REGISTER/
/%A
ADDRESS: %06/
/%A
TSBA,TSSR EXP'D: #06%A,%06%N/
/%A
TSBA,TSSR REC'D: #06%A,%06/

TSVS

GLOBAL

AREAS

MACRO M1200

23-MAR-84 09:44

B4
PAGE

19-1

SEQ 0040

TEXT MESSAGES

644 C0o4113
645 004117
004146
004211
004215

004252
004274
004331
004403
004453

004523
004524
004527
004563
004637
004741
005007
005052
005107
005202
005274
005366
005454
005550
005641

045
125
111
045
116
111

FUSI:

USI:

NSI:
FNOINTR:

+ASCII
.ASCIZ
.ASCIZ

NOINTR:
IFALT;
INTX:
NOINIT:
NSINIT:
BRINIT:

/8NsA/
/
UNEXPECTED INTERRUPT/
/
INTERRUPT EXPECTED, NOT RECEIVED/

.ASCII

/uNsA/

7/
NO_INTERRUPT HAS GENERATED/
/
INTERRUPT FAULT/
/8A
CPU PC: #06%A
TSBA: %06/
/
"BUS-INIT” DIDN'T INIYIALIZE CONTROLLER/
/
"SOFT-INIT” DION'T INITIALIZE THE DPU/
/
"BUS-RESET” DIDN'T INITIALIZE THE OPU/
/77

/8N/
/8A EXP'D: #06%A, REC'D: %06/
IMEXPD:M S06%NsA REC’'D: #OwA, %06/
/%A REG(W) WRITTEN TO: wO6%A REG(R) READ; EXP'D:
.ASCIZ
'RAM Contents Do Not Match Packet Sent’

#068A,

REC'D:

CONFIG DOESN'T MATCH MFG. MASTER/

'WRITE CHARACTERISTICS Failed’
‘TSSR Incorrect After WRITE Cosmend, lore Bits Set Than SSR°
‘TSSR Incorrect After READ Commend, More Bits Set Than SSR’

M8186:
M8189:;

‘FATAL ERROR IN SUBTEST

SNEA
'lNiA

11/23A
117238

CHECK

TAPE.CAU.ES TRANSPORT etc.’

'ERROR IN SUBTEST - WRITE DATA RETRY FIVE TIMES FAILED'
m sseee NO NXM ADDRESS--CANNOT TEST NXM TIMEOUT. sscsesN’

.ASCIZ
.EVEN

66000000000 000000
0400000000000
0000

SYSTEM sessccecssnssscscsN’
SYSTEM ecccccscccccsscscuN’

%06/

TSVS

GLOBAL

AREAS

MACRO M1200

23-MAR-84 037:44

PAGE 20

C4
SEQ 0041

GLOBAL ERROR REPORT SECTION
675
676
677
678
679
680
681
682
683 005732
005732
684 005732

005732
005736
005742
005746
005750

.SBTTL
|

013746
012746
012746
010690
104415

104423

003110
003773
000002

005764

L10002:

006010
006012
698 006016

012746
012746
010600
104415
062706
000207

PRINTX

177770
004524
000001
000004

NXRERR

iNON-EXISTANT DEVICE REGISTER.

ONXRX,NODEV

sNODEV

MOV
MOV
MOV
MOV

NODEV, -(SP)
ONXRX, -(SP)
e2,-(SP)
SP,RO

ADD
JSR

06 ,SP
PC.EXTEND

TRAP

C#MSG

ENDMSG

TEXT SECTION.

= NEXM ADDRESS.

CSPNTX

3 PRINT EXTENSION IF REQUIRED.

THIS ROUTINE APPENDS A UNIQUE EXTENSION (IF REQUIRED)

TO ANY OF THE ABOVE ERROR SIGNATURES.

005727
000000
001402
004777

BGNMSG

TRAP

697 005776
005776

TEXT STRINGS ARE FOUND IN THE GLOBAL

NXRERR:;

005762

694 005766
695 005770
696 005772

ASCII

'--

062706
004737

693 005764

1 THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX
+ CALLS THAT ARE USED IN MORE THAN ONE TEST,

005752
685 005756
686 005762

005762

GLOBAL ERROR REPORT SECTION

EXTEND:
EXTA:

TST
O
BEQ

1%:

PRINTX

(PCie
14

JSR

PC,BEXTA

MOV
MOV
MOV
TRAP
ADD

ONULCR, -(SP)
01, -(SP)
SP,RO
CSPNTX
04,SP

RTS

ONULCR

+ O = NO EXTENSION.

s+ APPEND EXTENSION TEXT,
+

PRINT A BLANK LINE

TSVS

PRITSSR

GLOBAL

AREAS

MACRO M1200

23-MAR-84 09:44

PAGE

D4
SEQ 0042

TSSR CONTENTS

701
702
703

.SBTTL

PRITSSR - PRINT TSSR CONTENTS

§e

704

705

tROUTINE

706

TO DISPLAY

THE CONTENTS,

AND BIT DEFINITIONS,

1 THE TSSR REGISTER, THIS ROUTINE IS NORMALLY CALLED ONLY
1BY A MESSAGE PRINTING ROUTINE

707

708
709

1 INPUTS
;

710
711
712

CONTENTS OF TSSR

713

1SUBORDINATE ROUTINES:

714
715

716

CHKAMB

CHECK FOR AMBIGUOUS CONTENTS

SAVREG
MOV

R1,R4

717
718
719
720
721

010104

723
724

010446
012746
012746
010600
104414
062706
010400
004737

PRITSSR:

722

103410

726

006102

006110
006122
006124
006126

006132
006134
006136
006140
006146
006152
006154
006154
006160

012746
012746
010670
104415
062706
010403
042703
001434
012702
012701
005703
001413
000241
006103
103006
011100
112022
001376
112762
005721
000763

PRINTB

006411
000002

000006

MOV
JSR

016034

8Cs

PRINTX

@TSSRFOR, -(SP)
02,-(SP)
SP,RO
CSPNTB
06, SP

tPRINT

THE

CONTENTS OF

TSSR

R4 ,RO
PC,CHKAMB

tGET TSSR BACK FOR CHKAMB
$ARE CONTENTS AMBIGUOUS ?

@AMBTSSR

$1SHOW CONTENTS ARE AMBIGUOUS

MOV
MOV
MOV

000004

ADD
MOV
BIC

04 ,5P
R4 ,R3
sCONTENTS OF TSSR
OHIADDR!FATERR! TERCLS,R3
1CLEAR ALL MULTIPLE BIT FIELDS

MOV
MOV

OTMPBFR,R2
OTSSRBIT,R1

TRAP

S$:

001476

BEQ

002630
003476

10%:

11%:
000054

177777

13%:

15¢:
002630
006602

OAMBTSSR, -(SP)
e1,-(SP)
SP,RO

1BRANCH IF NOT

006631
000001

105042

012746
012746

MOV
MOV
MOV
TRAP
ADD

@TSSRFOR,R4

1 SAVE GENERAL REGISTERS
$1SAVE THE TSSR CONTENTS

CSPNTX

20¢

TST
BEQ
cLC

R3
15¢

8CC

134

ROL

MOV
MOVB
BNE

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

MOVB
TST
BR

o' ,,-1(R2)
(R1).
10¢

PRINTX

OTSSDEF,0TMPBFR

CLRB

MOV
MOV

-(R2)

OTMPBFR, -(SP)
OTSSDEF, -(SP)

s1NO BITS ARE SET

s TEMPORARY ASCII BUFFER
tASCII EQUIVALENT OF BITS

tREMAINING BITS TO CONVERT
1BRANCH WHEN ALL ARE DONE
sCLEAR CARRY FOR SHIFT

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

sPOINTER TO BIT DEFINITION
tMOVE ASCIZ TO BUFFER
tMOVE ALL BITS

s INSERT A COMMA TO TERMINATE
sPOINT TO NEXT DESCRIPTION
tGET THE REMAINING BITS

1 TERMINATE THE LINE

;PRINT

THE BIT DEFINITIONS

TSv3

MACRO M1200

GLOBAL AREAS

PRITSSR

745
746
747
748
749

PRTNT

006164
006170
006172
006174

759

760

761
762

763
764
766
767

012746
010600

000002

062706

000006

010403
042703
016Z03

177761
006672

104415

010346
012746
012746
10600
104415
062706

010346
012746
012746
010600
104415
062706
042704
001411
010446
012746
012746
010600
104415
062706
013703
010346
012746
010600
104415
062706
000207

MOV
MOV

TRAP

ADD

20%:

MOV
BIC
MOV

PRINTX

MOV
MOV
MOV
MOV
TRAP
ADD

006472
000002
000006

MOV
8IC
BEQ
ASR
ASR
ASR
MOV

177717

007232

PRINTX

006533
000002
000006
176377

25%:

MOV
MOV
MOV
MOV
TRAP
ADD
BIC
BEQ

PRINTX

006431
000002
000006
002176

30¢:

MOV
MOV
MOV
MOV
TRAP
ADD
MOV

PRINTX

MOV
MOV
MOV
TRAP
ADD
RTS

000001
000004

784
785
786
787

045
045
045
045
045
045
045

116
116
116
116
116
116
116

045
045
045
045
045
045
045

789

006712

006735

006763

783

PAGE 22-1

SEQ 0043

TSSR CONTENTS

010403
042703
001416
006203
006203
006203
016303

758

23-MAR-84 09:44

EPRT2:
EPRT1:
,ASCIZ
1SSRFOR:
TEXASC:
TCOASC:
TFCASC:
TSSDEF
:
AMBTSSR:
.EVEN
TCOCOD: .WORD

SP,RO
CSPNTX
06,5P
R4 ,R3
O+CTERCLS,R3
TCOCOD(R3),R3
@TCOASC,R3
R3,-(SP)
#TCOASC, -(SP)

1GET THE TSSR CONTENTS
tCLEAR ALL BUT TERMINATION
tGET THE TERMINATION CODE MEANING
sPRINT

THE

TERMINATION CODE

SP,RO

CSPNTX

26 ,SP
R4 ,R3
OtCFATERR,R3

25¢

R3
R3
R3
TSFCOD(R3),R3
OTFCASC,R3

1 TSSR_ CONTENTS AGAIN
s1CLEAR ALL BUT FATAL TERMINATION
sOON’'T PRINT IF ZERO
sALINE TERMINATION CODE FOR INDEX
tGET THE FATAL TERMINATION CODE
tPRINT

THE FATAL

TERMINATION CODE

@TFCASC, -(SP)

SP,RO
CSPNTX
26,5P

©+*CHIADDOR,R4
304
OTEXASC,R4

s+CLEAR ALL BUT EXTENDED ADDRESS
sOON'T PRINT
tPRINT

IF ZERO

THE EXTENDED ADDRESS BITS

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

CSPNTX

06,5P
EPRTSW,R3

iPRINT MEAASGE BUFFER ADDRESS
:PRINT PROPER MESSAGE

R3
R3,-(SP)
01, -(SP)

SP,RO
CSPNTX

04,5P
PC

tRETURN TO CALLER

‘SNSA 404s2REPLACE M7196¢s00s’

LASCIZ
.ASCIZ
.ASCIZ
L.ASCIZ
.ASCIZ
.ASCIZ

'wWN®A
SNsSA
sNsSA
'wN#A
'®NwA
'«#N®A

TSSR = w06’
Extended Address Bits = w06’
Termination Class Code = #T'
Fatal Termination Class Code = sT'
TSSR Bits Set: =T’
TSSR Contents Are Ambiguous’

14,24,34,4%,58,68,74,8¢8

TSV3

PRITSSR

GLOBAL AREAS

MACRO M1200

F4
PAGE 22-2

SEQ 0044

PRINT TSSR CONTENTS

790 006712
791 006735

792 006763
007005
007025
007107
007156
007202

116
124
124
106
122
122
125
106

007232
007242
007276
007307
007353

007242
111
122
102
122

793
794
795
796
797
798
799

800
801
802
803
804
805

23-MAR-84 09:44

157
145
141

165
145
145
156
141

007276

156
145
165

145

162
162
160
156
143
143
162
164

007307
164
163
163
163

1%:
248:
3s:

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

‘Normal Termination'’

'Termination Condition’
‘'Tape Stetus Alert’

‘Function Reject’

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

14,24,3%,48
‘'Internal Diagnostic Failure’
‘Reserved’

‘Bus Interface or Sanity Check Error’

‘Reserved’

TSVS

GLOBAL

PRIPKT
-

807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832

MACRO M1200

AREAS

- PRINT

23-MAR-84 09:44

PAGE 23

SEQ 0045

THE ADDRESS/CONTENTS OF COMMAND PACKET

.SBTTL

PRIPKT

THE ADDRESS/CONTENTS OF COMMAND PACKET

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

IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE.

s INPUT

007364
007364
007370
007372
007376
007400
007402
007404
007406
007410
007412
007412
007414
007416
007422
007426
007430
007432
007436
007440
007442
007444
007450
007452
007454
007456
007456
007460
007462
007466
007472
007474
007476
007502
007504
007506
007510
007512
007550

RO
R3
R4

NUMBER OF WORDS IN PACKET

NOTE:

R3 IS ICNORED IF

HIGH ORDER COMMAND PACKET ADDRESS
ADDRESS OF COMMAND PACKET

PRIPKT::

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

010246
010146
012746
012746
010600
104414
062706
005201
020105
002762
000207
045
045

RO,RS
KTENABLE

003130

10¢

R3
R3,R1
R4 ,RO
RO
R1
OPKTADD,R1,R4
R4, -(SP)
R1,-(SP)
OPKTADD, -(SP)

10%:

007550
000003

1SAVE THE REGISTERS
:1SAVE NO. OF WORDS IN PACKET

sABOVE 28K UNDER TEST?
1BR IF YES

$1SET HIGH ORDER ADDRESS TO O
;COPY HIGH ORDER ADDRESS
;:GET LOWER ADDRESS

$SHIFT BIT 1S5S INTO C BIT
;AND INTO HIGH ORDER.
;PRINT PACKET ADDRESS

SP,RO
C$PNTB

000010

10,SP
R3,RO
20¢
R4 ,R1
PC,SETMAP
RO,R4
R1

15%:

017306
20%:
25%:

(R4)+,R2
OPKTFRM,R1,R2

+GET HIGH ORDER ADDRESS
1BR _IF NOT ABOVE 28K,
:GET LOW ORDER ADDRESS
1SETUP PAR6 MAPPING FOR 18 BIT ADDRESS
1GET RETURNED PAR6 ADDRESS BIAS
1 SAVE WORD NUMBER
sGET PACKET CONTENTS
+PRINT

THE DATA

R1,-(SP)
OPKTFRM, -(SP)

007512
000003

SP,RO
CSPNTB

€10,5P
R1
R1,RS

sNEXT WORD NUMBER

RTS

;RETURN

.ASCIZ
.ASCIZ
.EVEN

‘#NSA Packet Word 0%D1sA = w06’
‘'¥N$A Packet Address = #01%05'

000010

BLY
116
116

THE KTENABLE FLAG IS CLEAR.

045

PKTFRM:

PKTADD:

254

;DONE ALL PACKET WORDS?
;LOOP TILL ALL DONE

TSV3

- GLOBAL AREAS

PRIBXOR

PRINT EXPD,

MACRO M1200

23-MAR-84 09:44

H4
PAGE 24

SEQ 0046

RECV AND XOR BYTE

851
852
853
854

.SBTTL

PRIBXOR

- PRINT EXPD,

RECV AND XOR BYTE

855
856
857
858
859

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

: INPUTS;
H

H
H

R1
R2

RECEIVED DATA
EXPECTED DATA

XOR OF EXPECTED/RECEIVED DATA

sOUTPUT;
:

H
3
'-

007606
007606
007612
007614
007624
007630
007632
007634

012700
040001
040002
040003

007644
007650
007654
007656
007660
878 007664
879 007666

010346
010146
010246
012746
012746
010600
104414
062706
010300
000207

007636
007636
007640
007642

881 007670
882
883

PRIBXOR:
:

010203

045

1SAVE THE REGISTERS

R2,R3
sEXPECTED DATA
R1,R3
s+FORM THE EXCLUSIVE OR
@tC<377>,RO
:BYTE MASK
RO,R1
+SAVE LOW BYTE RECV
RO,R2
:SAVE LOW BYTE EXPD
RO,R3
$SAVE LOW BYTE XOR
OXORBFOR,R2,R1,R3 ;PRINT THE MESSAGE
R3,-(SP)

177400

007670

OXORBFOR, -(SP)
04, -(SP)

SP,RO

CSPNTB

000012

116

045

XORBFOR:

.EVEN

e12,SP
R3,RO
PC

1RO HAS XOR ON RETURN
tRETURN TO CALLER

.ASCIZ

'#N®A EXPD: #03smA RECV: #03%A XOR: %03'

TSV3

PRIXOR

GLOBAL
-

AREAS

PRINT EXPD,

MACRO M1200

23-MAR-84 09:44

PAGE 25

14
SEQ 0047

RECV AND XOR

885
886
887
888
889
890

.SBTTL

PRIXOR

- PRINT EXPD,

RECV AND XOR

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

891
892
893
894
895

: INPUTS:
B

RECEIVED DATA

XOR OF EXPECTED/RECEIVED DATA

EXPECTED DATA

;OUTPUT
B

:
‘
‘-

007736
007736
007742
007744
007754
007754

007756
007760
007762
007766
007772

007774
007776
010002
010004

910
211 010006
912

PRIXOR:
:

010203

010346
010146
010246
012746
012746

104414

SAVREG
MOV
XOR

PRINTB

MOV
MOV
MOV
MOV
MOV
MOV
TRAP

010006

062706
010300
000207

000012

045

116

ADD

MOV

RTS

045

XORFOR:

,ASCIZ
.EVEN

1 SAVE THE REGISTERS

R2,R3
sEXPECTED DATA
R1,R3
sFORM THE EXCLUSIVE OR
OXORFOR,R2,R1,R3 ;PRINT THE MESSAGE

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

CS$PNTB

012,SP
R3,RO
PC
'#NSA EXPD:

+RO HAS XOR ON RETURN
;RETURN TO CALLER
#06%A RECV:

#06%A

XOR:

#06°

TSv3

GLOBAL AREAS

PRIEQU

MACRO M1200

23-MAR-84 09:44

.SBTTL

PRIEQU

- PRINT BIT NUMBERS AS ASCII EQUIVALENT

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

: INPUTS:

RO
R1

3
3

923
924
925

OCTAL VALUE TO CONVERT
TABLE OF POINTERS TO ASCII EQUIVALENT

926

928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948

SEQ 0048

- PRINT BIT NUMBERS AS ASCII EQUIVALENT

914
915
916
917
918
919
920
921
922

927

PAGE 26

010054
010054
010060

PRIEQU:

000207

SAVREG

RTS

.SBTTL

PRIRAM

1 SAVE THE REGISTERS
sRETURN TO CALLER

- PRINT RAM ADDRESS

;PRINT CONTROLLER RAM ADDRESS.

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

: INPUTS:
B

RAM ADDRESS

:
'

010062
010062
010066
010066
010070
010074
010100
010102
010104
010110

010446
012746
012746
010600
104414
062706
000207

010112

045

PRIRAM:

010112
000002

000006
116

SAVREG

&RAMFOR,R4

MOV

ORAMFOR, -(SP)

MOV
TRAP
ADD

SP,RO
C$PNTB
06,5SP

.ASCIZ

'#NwA CONTROLLER RAM ADDRESS = %06’

.SBTTL

PRIADD

RTS

045

RAMFOR:

$SAVE R1-RS UNTIL NEXT RETURN

PRINTB

;PRINT RAM ADDRESS IN ERROR

;RETURN

- PRINT MEMORY ERROR ADDRESS

§e

sPRINT MEMORY ADDRESS

s THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.
i
i

;

IMPLICIT INPUTS
ERRHI

ERRLO

- HIGH ORDER ADDRESS

- LOW ORDER ADDRESS

TSV3

PRIADD

MACRO M1200

GLOBAL AREAS
-

23-MAR-84 09:44

K4
PAGE 26-1

SEQ 0049

PRINT MEMORY ERROR ADDRESS
:
'-

010154
010154
010160
010164
010170
010172
010174
010176
010176
010200
010202
010206
010212
010214
010216
010222

010224

PRIADD:

013700
013701
010102
006101

002234
002236

ERRHI,RO
ERRLO,R1
R1,R2
R1
RO
#PRIAO,RO,R2
R2,-(SP)

006100

010246

010046
012746
012746
010600

000003
000010

045

116

sSHIFT INTO HIGH ORDER
sPRINT MEMORY

ADDRESS

IN ERROR

OPRIAO, -(SP)

010224

104414
062706
000207

1SAVE R1-R5 UNTIL NEXT RETURN
tGET HIGH ADDRESSS
tGET LOW ADDRESS
1COPY LOW ADDRESS
sSHIFT BIT 15 TO0 C BIT

C$PNTB

210,5P
PC

045

PRIAO:

+RETURN

.ASCIZ
.EVEN

‘®WN®A MEMORY ERROR ADDRESS

.SBTTL

PRITADD

- PRINT MEMORY

= #01%05'

TEST ADDRESS

HE4

sPRINT MEMORY ADDRESS

: THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES.

IMPLICIT INPUTS
ERRHI
ERRLO
010270
010270
010274
010300

010304
010304
010306
010312
010316
010320
010322
1001 010326
010326
010330
010334
010340
010342
010344
1002 010350

PRITADD:
013702
013701

010146

012746
012746
010600

104414
062706

010246
012746
012746
010600
104414
062706
000207

002234
002236

010352
000002
000006

010415
000002
000006

SAVREG

MOV

- HIGH ORDER ADDRESS

- LOW ORDER ADDRESS

ERRHI ,R2
ERRLO,R1

R1,R2
R1
RO
OPRITO,R1
R1,-(SP)
OPRITO, -(SP)

:SAVE R1-R5 UNTIL NEXT RETURN
1GET HIGH ADDRESSS

:GET LOW ADDRESS
:COPY LOW ADDRESS

sSHIFT BIT 15 70 C BIT
s SHIFT INTO HIGH ORDER
sPRINT MEMORY

ADDRESS LOW

IN ERROR

SP,RO

CS$PNTB

6,SP
OPRIT1,R2
R2,-(SP)
OPRITL, -(SP)
@2,-(SP)
SP,RO

CS$PNTB
06 ,5SP

sPRINT MEMORY ADDRESS HIGH IN ERROR

;RETURN

L4
TSV3

GLOBAL AREAS

PRITADD

1005 010415
1007
1008
1009

2% MAR-84 09:44

PAGE 26-2

- PRINT MEMORY TEST ADDRESS

1003
1004 010352

1006

MACRO M1200

045

116

045

PRITO:

PRIT1:

.ASCIZ

.ASCIZ
.EVEN

'«NsA MEMORY TEST ADDRESS LOW = %06’

'wNeA MEMORY TEST ADDRESS HIGH = %06’

SEQ

£0

0050

TSV3

GLOBAL AREAS

SPACE

MACRO M1200

23-MAR-84 09:44

.SBTTL

1012

1013

SPACE

- SPACE RECORDS (FORWARD AND REVERSE) COMMAND

HE4

1014
1015
1016
1017
1018
1019
1020
1021
1022
1023
1024
1025
1026
1027
1028
1029

tROUTINE

TO ISSUE A SPACE RECORDS

:COMMAND (FORWARD OR REVERSE)
:

: INPUT;
R3

NUMBER OF RECORDS TO BE SPACED OVER

BIT15S CONTROLS DIRECTION
BIT15 = 0 IS FORWARD

BIT1S = 1 IS REVERSE

FIRST DEVICE UNIBUS ADDRESS

REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY

OUTPUT:

1030

1031
1032
1033
1034
1035

1036
1037
1038

1053
1054
1055
1056
1057
1058
1059
1060
1061

SEQ 0051

- SPACE RECORDS (FORWARD AND REVERSE) COMMAND

1011

1039
1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
1052

PAGE 27

CARRY

SET
CLR

- SPACE RECORDS COMMAND OK
- SPACE RECORDS FAILED

THE CONTENTS OF R4

IS MOVED TO RO

IMPLICIT OUTPUT:
TAPE HAS BEEN MOVED

SIDE EFFECTS:

010462
010462
010466
010474
010502
010504
010506
010512
010514
010520
010524
010532
010536
010542
010546
010550
010550
010554
010556
010562
010564
010570

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

000764
140010

012727
000000
013727
000000
005367
001375

000250

103420

MOV
TST

010642

100000
010642
000400
010640
000000
016240

002116

177772

S$:
010640

AVREG

010650
010640

10$:

15%:

BMI
MOV
BR
BIC
MOV
BIS
MOV
MOV
JSR
BCS
DELAY
MOV
.WORD
MOV
LWORD
DEC
BNE

#500. ,SDELAY
©140010,80%

S$
R3,90¢
104
OBIT15,R3
R3,90%
0B8I78,80¢
080% ,R4
R4,TSDB(RS)
PC,WAITF
20%
250
9250,(PC)+
O
L$DLY,(PC).
¢
-6(PC)
.-4

:SAVE THE GENERAL REGISTERS
:SET UP DELAY
:SET UP_COMMAND, SPACE FORWARD
+CHECK FOR DIRECTION
:BR, IF REVERSE INDICATED
;:LOAD UP NUMBER OF RECORDS TO SPACE
:GO DO COMMAND
s+CLEAR DIRECTION BIT
1LOAD UP NUMBER OF RECORDS TO SPACE
:SET REVERSE BIT IN COMMAND PACKET
:SET UP R4 WITH PACKET ADDRESS
:SEND OUT COMMAND
tWAIT FOR SSR

1BR, IF SSR IS SET AND OK
:DELAY ABOUT .25 SECONDS

TSV3

- GLOBAL AREAS

SPACE

1062
1063
1064

1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075

MACRO M1200

23-MAR-84 09:44

PAGE 27-1

N4
SEQ 0052

- SPACE RECORDS (FORWARD AND REVERSE) COMMAND
010572
010576
010600
010604
010606
010610
010614
010620
010622
010624
010626
010630
010632
010634
010634
010636

005367
177756
001367
005337
010650
001356
000411
016501
000002
012702
000200
020201
001401
000402~
000261
000401
000241
010400
000207

-22(PC)
-20

SDELAY

20§

25%:
40¢%:

60$:

70%:

15%
604
TSSR(RS5),R1

;1BUMP DELAY COUNTER DOWN
t1BR, IF MORE DELAY

sBR IF TROUBLE CARRY

sREAD TSSR

O#SSR,R2
R2,R1

;ARE THEY OK

;sTROUBLE EXIT

40%

704

sSET UP EXPECTED
;BR,

IF EQUAL = OK

;SET CARRY NO TROUBLE
sEXIT
;CARRY CLEAR = ERROR

R4 ,RO
PC

:PASS PACKET ADDRESS

+RETURN

= CLEAR

TSV3

GLOBAL

SPACE

AREAS

23-MAR-84 09:44

DPAGE 28

B5S

- SPACE RECORDS (FORWARC AND REVERSE) COMMAND

1077

1078
1079
1080

!
:
1PACKET FOR SPACE COMMAND

1081

[}

1085
1086

1087 010640

1088
1089
1090
1091
1092
1093

MACRO M1200

010642
010644
010646
010650

000000

:
000000
000000
000000
000000

!
1 COMMAND WORD

80$:

. WORD

iNUMBER OF RECORDS TO BE SPACED OVER WORD
904 :
. WORD
.WORD
. WORD
SDELAY: .WORD
O
sDELAY COUNTER
.EVEN

SEQ 0053

TSVS

WRTCHR

GLOBAL AREAS
-

MACRO M1200

23-MAR-84 09:44

PAGE

SEQ 0054

WRITE CHARACTERISTICS COMMAND

1095
1096
1097
1098
1099
1100
1101
1102
1103
1104
1105
1106
1107
1108
1109
1110
1111
1112
1113
1114
1115
1116
1117
1118
1119
1120
1121
1122
1123
1124
1125
1126
1127 010652
1128 010652
1129 010656
1130 010662
1131 010666
1132 010672
1133 010676
1134 010700
1135 010702
1136 010706
1137 010712
1138 010716
1139 010720
1140 010724
1141 010726
1142 010730
1143 010732
1144 010736
1145 010740
1146 010746
1147 010750
1148 010754
1149 010754
1150 010762
1151 010764

.SBTTL
|

WRTCHR

- WRITE CHARACTERISTICS COMMAND

tROUTINE TO ISSUE A WRITE CHARACTERISTICS
1CCMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED
B

1 INPUT;
R4
RS

ADDRESS OF PACKET FROM TEST
FIRST DEVICE UNIBUS ADDRESS

REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY

OUTPUT;
RO

CARRY

TSSR CONTENTS

SET - WRITE CHARACTERISTICS COMMAND OK
CLR - WRITE CHARACTERISTICS FAILED

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

SIDE EFFECTS:

WRTCHR::
005037
005037
010465
004737
103401
000435
016501
012702
032701
001402
052702
020201
001401
000421
062704
011403
032763
001402
005237
032763
001402
005237

002226

002224
000000

10%:

016326

000002
000200
000100

20%:

000100

25%:

000010

000200

40¢:

000012

002224
000100

002226

abs
000012

SAVFEG
CLR

BENBSW

CLR
MOV

EXTFEA
R4,TSDB(RS)

8CS

204

JSR

1SAVE THE GENERAL REGISTERS
1CLEAR BUFFER ENABLE SWITCH

PC,CHKTSSR

1CLEAR EXTENDED FEATURES SW SWITCH
1SEND OUT COMMAND

1WAIT FOR SSR

1BR, IF SSR IS SET AND OK

BR
MOV
MOV
BIT
BEQ
8IS
cHP
BEQ
BR
ADD
MOV
BIT
BEQ
INC

604
TSSR(RS),R1
OSSR ,R2
00FL ,R1
254
00FL ,R2
R2,R1
40¢
60
08. ,R4
(R4),R3
OX2.EXTF ,XST2(R3)
454
EXTFEA

1BR _IF TROUBLE CARRY = CLEAR
tREAD TSSR
1SET UP EXPECTED
tWAS OFF LINE SET IN TSSR
1BR, IF NO OFL SET
tMAKE THETMM LOOK ALIKE
tARE THEY OK
1BR, IF EQUAL = 0K
1 TROUBLE EXIT
tPOINT TO WRT CHARA DATA PACKET
1GET ADDRESS OF MESSAGE BUFFER
1EXTENDED FEATURES BIT SET?
1BR_IF NO
1SET EXTENDED FEATURES SW SWITCH

BIY
BEQ
INC

0X2.BUFE ,XST2(R3)
504
BENBSW

1BUFFER ENABLE SWITCH SET
1BR, IF SWITCH NOT SET
tSET SOFTWARE SWITCH FOR ENABLED

TSV3

GLOBAL AREAS

WRTCHR

1152
1153
1154
1155
1156
1157
1158
1159

MACRO M1200

23-MAR-84 09:44

PAGE 29-1

D5
SEQ 0055

WRITE CHARACTERISTICS COMMAND

010770
010770
010772
010774
010776
011002

000261
000401
000241
016500
000207

S0%:

000002

608
:
708
:

SEC
BR
CLC
RTS

704

TSSR(RS),R0
PC

$1SET CARRY NO TROUBLE

tEXIT
;CARRY CLEAR = ERROR
tRETURN TSSR CONTENTS

tRETURN

TSV3

- GLOBAL AREAS

REWIND

POSITION TAPE

MACRO M1200

23-MAR-84 09:44

e
SEQ 0056

(REWIND) COMMAND

1161
1162

.SBTTL

1163

REWIND

- POSITION TAPE (REWIND) COMMAND

1164
1165
1166
1167
1168
1169
1170
1171
1172

1 THIS ROUTINE WILL REWIND THE SELECTED TAPE.

CALTION:

THE ROUTINE DOES NOT WAIT FOR BOT

TO ARRIVE.

ALSO THE CALLER MUST CHECK FOR

SSR TO SET IN THE TSSR

CALLING SEQUENCE:

1173

1174
1175
1176
1177
1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
1188
1189 011004
1190 011004
1191 011010
1192 011014
1193 011020
1194 011024
1195 011030
1196 011032
011032
011036
011040
011044
011046
011052
011054
011060
1197 011062
1198 011064
1199 011066
011070
1201 011072
1202
1203
1205
1207 011100
1208 011100
1209 011102
1210

PAGE 30

DO A SOFT INIT
D0 A WRITE CHARACTERISTICS
PC.REWIND
JSR
INPUT:
RS

FIRST DEVICE UNIBUS ADDRESS

OUTPUT
THE CONTENTS OF R4

012704

010465

012703
004737
103417

012727
000000
013727
000000
005367
001375
005367
001367
005303
001357
000241
010400
000207

011100
000000
000550
016240

ORWPACK ,R4
R4,TSDB(RS)

0360, ,R3

PC,WAITF

000372

204
250.
8250..(PC)0

002116

SODLY.(PC)O

177772

-6(PC)

177756

-22(PC)
. -20

10¢

20%:

011100

102010
000000

RWPACIK;

MOV

R4 ,RO
PC

IS PASSED TO RO

$1SAVE R1-RS UNTIL NEXT RETURN

tGET PACKET ADDRESS

1 SEND PACKET ADDRESS TO EXECUTE
tENOUGH TIME FOR 2400' REEL TO REWIND

tWAIT FOR SSR TO SET

sLEAVE WHEN SSR IS SET

sWAIT FOR

.25 SECONDS

1BUMP COUNTER DOWN
tKEEP GOING
1CLEAR CARRY TO SET ERROR

1PASS THE PACKET
tRETURN

ADDRESS

.*<,+10>£177770
.WORD
.WORD

102010
0

;POSTION COMMAND (REHIND)
1NOT USED

TSV3

CKRAM

GLOBAL

AREAS

MACRO M1200

23-MAR-84 09:44

PAGE

SEQ 0057

- COMPARE RAM TO I/O PACKET

1212
1213
1214
1215
1216
1217
1218
1219
1220
1221
1222
1223
1224
1225
1226
1227
1228
1229
1230
1231
1232
1233
1234
1235
1236
1237
1238
1239

1240
1241
1242
1243
1244
1245
1246
1247
1248
1249

.SBTTL

CKRAM

- COMPARE RAM TO I/0 PACKET

tROUTINE TO READ THE FIRST 8 BYTES FROM RAM
+MEMORY AND COMPARE THIS DATA TO A COMMAND PACKET,
3

1 INPUT;
B

R4
RS

ADDRESS OF THE COMMAND PACKET

FIRST DEVICE UNIBUS ADDRESS

1OUTPUT;
CARRY

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

s IMPLICIT OQUTPUT:
THE TABLE RAMDATA IS FILLED WITH THE

DATA HELD IN Rp::,

RAMSIZ IS SET

TO 8.

FOR PRAMPKT ROUTINE

SIDE EFFECTS:
THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE

011104
011104
011110
011114
011120
011122
011126
011134
011140
011144
011150
011154
011156
011160
011162

011164
011170
011172
011174
011176
011200
011202
011204
011212

CKRAM:
:
012701
012702
005003
004737
112765
004737
010265
004737
116511
122124
001401
005203
005202
020227
003761
005703
001402
000241
000401
000261
012737
000207

002240
000201

016326
000000
016326
000000
016326

ORAMDATA,R1
;gflPKTBEG.RZ

000000

PC,CHKTSSR

10¢:

90, TSDB(RS)

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

(R1)+,(R4).
20

20%:

000210

R3
R2
R2, 4RMPKTEND

104
R3
30¢

000010

002300

30%:
S50¢%:

50¢
8. ,RAMSIZ
PC

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

tWAIT FOR SSR

:SET MAINTENANCE MODE
sWAIT FOR SSR TO SET
s+SELECT NEXT RAM ADDRESS
;WAIT FOR SSR TO SET

tREAD THE RAM DATA
1COMPARE TO EXPECTED
1BRANCH IF OK

:SET ERROR FLAG
sADDRESS OF NEXT RAM LOCATION
;sREACHED END YET ?
1BRANCH TILL ALL READ
1WAS AN ERROR FOUND ?
1BRANCH IF NOT
iCLEAR CARRY TO SHOW ERROR
1AND EXIT
1 SHOW GOOD COMPARE
;SETUP RAMSIZ FOR PRAMPKT ROUTINE
sRETURN

TSV3

GLOBAL

CKRAM2

AREAS

MACRO M1200

23-MAR-84 09:44

PAGE

G5
32

SEQ 0058

- COMPARE RAM TO I/0 CHARACTERISTICS DATA
.SBTTL

1267

1268
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281
1282
1283
1284
1285
1286
1287
1288
1285

CKRAM2

- COMPARE RAM TO I/0 CHARACTERISTICS DATA

tROUTINE TO READ THE FIRST 8 OR 10 BYTES FROM RAM
+MEMORY AND COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK,
3

;sINPUT:
3
:

R4
RS

ADDRESS OF THE CHARACTERISTICS DATA
FIRST DEVICE UNIBUS ADDRESS

CARRY

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

sOUTPUT:
.
:

:
:

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

TG A.

10.

FOR PRAMPKT ROUTINE

SIDE EFFECTS:
THE SUBSYSTEM IS LEFT

011214
011214
011220
011224
011230
011232
011236
011244
011250
011254
011260
011264
011266
011270
011272
011274
011302
011306
011310
011316
011322
011324
011326
011332

011334

011336
011340
011342
011344

CKRAM2:
:
012701
012702
005003
004737
112765
004737
010265
004737
116511

122124
001401
005203
005202
012737
005737
001407
012737
020227
003750
000403
020227
003744
005703

001402
000241
000401
000261

002240
000167

ORAMDATA,R1
Romcs HBEG,R2

016326

PC,CHKTSSR

016326
000000
016326

10%:

00, TSDB(RS)

PC,CHKTSSR
R2,TSDB(RS)

PC,CHKTSSR

TSBA(RS),(R1)

(R1)+,(R4).

000010
002224

002300

000012
000200

002300

000176

20%:

20¢
R3
R2
08. ,RAMSIZ
EXTFEA

254

010. ,RAMSIZ
R2, 9RMCHEND

104

25%;
27%:

30%:

27¢
R2, ORMCHEN
-2
D
108
RZ
30¢

S50s

IN MAINTENANCE MODE

1SAVE THE GENERAL REGISTERS

s+ADDRESS TO SAVE THE RAM DATA

1BYTE ADDRESS OF FIRST RAM DATA
1+CLEAR THE ERROR FLAG
tWAIT FOR SSR
s+SET MAINTENANCE MODE
tWAIT FOR SSR TO SET
s SELECT NEXT RAM ADDRESS
sWAIT FOR SSR TO SET
+READ THE RAM DATA
1COMPARE TO EXPECTED
1BRANCH IF OK

1SET ERROR FLAG
s+ADDRESS OF NEXT RAM LOCATION
s1ASSUME EXTFEA NOT SET
:+IS THE SOFTWARE EXTENDED FEATURES SET
1BR, IF NOT SET
1SET RAMSIZ FOR EXTEND FEATURES
+AT END OF EXTENDED BUFFER

1BR, IF NOT AT END YET
1AT END BRANCH
+REACHED END YET ?
1BRANCH TILL ALL READ
1WAS AN ERROR FOUND

1BRANCH IF NOT

1CLEAR CARRY TO SHOW ERROR
tAND EXIT
1 SHOW GOOD COMPARE

TSV3

- GLOBAL AREAS

CKRAM2

MACRO M1200

23-MAR-84 09:44

H5S
PAGE 32-1

SEQ 0059

- COMPARE RAM TO I/0 CHARACTERISTICS DATA

{ggg 011346

000207

50%:

RTS

+RETURN

TSV3S

GLOBAL AREAS

CKMSG

MACRO M1200

- COMPARE WRITE CHAR.

23-MAR-84 09:44

SEQ 0060

MESSAGE BUFFERS

1327
1328
1329
1330
1331
1332
1333
1334
1335
1336
1337
1338
1339
1340
1341

.SBTTL

CKMSG

tROUTINE

1BUFFER.

- COMPARE WRITE CHAR. MESSAGE BUFFERS

TO COMPARE A WRITE CHARACTERISTICS EXPD AND RECV

THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR

tERROR PRINT ROUTINES.
'

s INPUT
;

1342

1343
1344
1345
1346
1347
1348
1349
1350
1351
1352
1353
1354
1355

PAGE

RO
R1

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

CARRY

SET
CLR

- MESSAGE BUFFERS MATCH
-MESSAGE BUFFERS DON’'T MATCH

s IMPLICIT OUTPUT:
:
3

§
4
i

EXPMSG

BUFFER
BUFFER
SET TO
SET TO

RECMSG
RCVHIADD
RCVLOADD

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

011350
011350
011354
011360
011364
011370
011372
011376
011400
011402
011404
011406
011412
011416
011420
011422
011424
011430
011434
011436
011444
011446
011452
011454
011456
011460
011462
011464
011466

CKMSG:
:
010037
010137
005737
001403
004737
010001

010205
011264
011164
022221
001401
005203
062704
020427
003764
032765
001403
020427
003755
005703
001402
000241
000261
000207

002302
002304
003130
017306
10%:

002320
002464

15%:

000002
000014

000200

25%:
000012

000016

SAVREG
MOV
MOV

TST
BEQ
JSR
MOV
CLR

CLR
MOV

MOV
MOV

cMP
BEQ
INC

KTENABLE
.08
PC,SETMAP
RO,R1

R4
R3
R2,R5
(R2),EXPMSG(R4)

$SAVE R1-RS UNTIL NEXT RETURN
1SAVE RECV HIGH ADDRESS
1 SAVE RECV LOW ADDRESS
s TESTING ABOVE 28K?
1BR IF NO

sRETURN ADDRESS BIASED TO PAR6 IN RO

;GET RETURNED ADDRESS BIASED TO PAR6

1WORD IN BUFFER
1CLEAR ERROR SEEN FLAG
1GET EXPD BUFFER ADDRESS
$1SAVE EXPD FOR ERROR REPORT
(R1),RECMSG(R4) 1SAVE RECV FOR ERROR REPORT
(R2)+,(R1)+
:EXPD EQUAL RECV?

ADD

254
R3
02,R4

BLE
BIT
BEQ
CHP
BLE

15¢
1BR IF NO
OX2 .EXTF ,XST2(RS ):IS EXTENDED FEATURES SET IN EXPD?
504
1BR IF NO
R4,016
1DONE EXTENDED FEATURES WORD?
154
1BR IF NO

CcHP

TST

55%:
608

RO,RCVHIADD
R1,RCVLOAD

BEQ
CLC
BR
SEC

RTS

iBR IF YES

R4,014

:1SET ERROR SEEN FLAG
s1POINT TO NEXT WORD ADDRESS
tDOONE FIRST 7 WORDS?

1ANY ERRORS SEEN?

55%

1BR IF NO

1SET FAILURE

60%

:RETURN

1SET SUCCESS

TSV3

- GLOBAL AREAS

CKMSG2

MACRO M1200

23-MAR-84 09:44

- COMPARE EXPD RECV MESSAGE BUFFERS

}

+ERROR PRINT ROUTINES.
i

+ INPUT;
RO

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

R2
R3

OUTPUT:

CARRY

SET
CLR

- MESSAGE BUFFERS MATCH
- MESSAGE BUFFERS DON'T MATCH

IMPLICIT OUTPUT:

1404

EXPMSG

1405

BUFFER IS SET

RECMSG
RCVHIADD
RCVLOADD

1406

1407
1408

1421
1422
1423
1424
1425
1426
1427
1428
1429
1430
1431
1432
1433
1434

CKMSG2

+ROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE
1BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR

1398
1399
1400
1401
1402
1403

1420

SEQ 0061

.SBTTL

1397

i416
1417
1418
1419

1386
1387
1388
1389
1390
1391
1392
1393
1394
1395
1396

1415

- COMPARE EXPD RECV MESSAGE BUFFERS

1383
1384
1385

1409
1410
1411
1412
1413
1414

PAGE

011470
011470
011474
011500
011502
011506
011506
011512
011516
011520
011522
011526
011532
011536
011542
011544
011550
011552
011554
011556
011562
011566
011570
011572
011574
011600
011602
011604
011606
011610

CiHSG2:=
020327
003412
012703

012746
012746
010600
104417
062706
010037
010137
005737
001403
004737
010001
005004
005005
111264
111164
122221
001401
005205
062704
020403
002001
000764
C05705
001402

000144

000004
002302
002304
003130

Ss:

017306
10%:

002320
002464

000001

SAVREG
CMP
BLE
MOV

:SAVE R1-RS UNTIL NEXT RETURN
R3,0RECMSG-EXPMSG;
880 IS COUNT ABOVE MAX ALLOWED?
S
1880 BR IF NO
ORECMSG -EXPMSG,R3; 880

MOV
TRAP
ADD
MOV
MOV
TST
BEQ
JSR
MOV
CLR
CLR
MOVB

SP,RO
CSPNTF

PRINTF
MOV

011622
000001

15¢;

25%:

S50%:

TO EXPD DATA

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

MOvVB

CMPB
BEQ
INC
ADD
CMP
BGE
BR
TST

BEQ

@DEBUGMSG
®DEBUGMSG, -(SP)

#4,5P
RO,RCVHIADD
R1,RCVLOAD

KTENABLE

1 880

1 SAVE RECV HIGH ADDRESS
1 SAVE RECV LOW ADDRESS

s TESTING ABOVE 28K?

104
PC,SETMAP
RO,R1
R4
RS
(R2),EXPMSG(R4)

1BR_IF NO
sRETURN ADDRESS BIASED TO PAR6 IN RO
1GET RETURNED ADDRESS BIASED TO PAR6
1WORD IN BUFFER
:CLEAR ERROR SEEN FLAG
;SAVE EXPD FOR ERROR REPORT

(R2)+,(R1)+
254
RS
01,R4
R4,R3
S0
15¢

:EXPD EQUAL RECV?
1BR IF YES
:SET ERROR SEEN FLAG
sPOINT TO NEXT BYTE
1DONE ALL BYTES?
:BR IF YES
3100 NEXT BYTE

55%

iBR IF NO

(R1),RECMSG(R4) ;SAVE RECV FOR ERROR REPORT

1ANY ERRORS SEEN?

TSv3

GLOBAL

CKMSG2

1435
1436
1437
1438
1439
1440
1441
1442
1443
1444
1445

MACRO M1200

AREAS

23-MAR-84 09:44

I<K5
PAGE

34-1

SEQ 0062

- COMPARE EXPD RECV MESSAGE BUFFERS
o11612
011614
011616
011620

000241
000401
000261
000207

011622
011712
011723
011756
012011

120
045
040
056
124

55%:
60%:

CLC
BR

SEC
RTS

DEBUGMSG:
.ASCII
ERCM:
.ASCIZ
SIMSG:
.ASCIZ
TINERR: .ASCIZ
.EVEN

FERCM:

60
PC

.ASCIZ

1SET FAILURE
i

1SET SUCCESS

1RETURN

'P?OGRAH INTERNAL ERROR

s
/9N%A
/
TSS| R ERROR CODE REC'D

/l...

/TEST:

AFTEB DOING SOFT

= /
INIT/

-CKMSG2 MESSAGE BUFFER EXCEEDED-' ;aaD

TSV3

GLOBAL AREAS

CKMSGe

MACRO M1200

PAGE

SEQ 0063

- COMPARE EXPD RECV MESSAGE BUFFERS

1447
1448
1449
1450
1451
1452
1453
1454
1455
1456
1457
1458
1459
1460
1461
1462
1463 012024
012024
1464 012024
1465 012030
1466 012034
012034
012034
1467

;

;PRINT ROUTINE

1470
1471
1472
1473
1474
1475
1476
1477
1478
1479 012036
012036
1480 012036
1481 012042
1482 012046
1483 012052
012052
012052
1484

1485

1487
1488
1489
1490
1491
1492
1493
1494
1495
1496 012054
012054

TO FATAL

SOFT

INIT ERRORS

;s INPUT;
B

CONTENTS OF TSSR AT ERROR

:SIDE EFFECTS:
:

EXECUTES DROP UNIT TO CEASE TESTING

3
;-

004737
004737

006020
017172

SFIMSG::

L10003:

104423

1468
1469

1486

23-MAR-84 09:44

BGNMSG

SFIMSG

JSR
JSR
ENDMSG

PC,PRITSSR
PC,CKDROP

TRAP

C$MSG

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

;PRINT ROUTINE TO PRINT THE CONTENTS OF

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

: INPUTS:

004737
012700
004737
104423

006020

PKTSSR:
:

000004
007364

L10004:

TSSR _CONTENTS

ADDRESS OF COMMAND PACKET

BGNMSG

PKTSSR

JSR

PC,.PRITSSR

TRAP

C$MSG

MOV
JSR
ENDMSG

€4 ,RO
PC,PRIPKT

sPRINT THE CONTENTS OF TSSR REGISTER

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

‘0

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

;s INPUTS;
f

TSSR CONTENTS

ADDRESS OF COMMAND PACKET

BGNMSG

PKTGETS

i
S

PKTGETS:
:

TSV3

GLOBAL

CKMSG2

AREAS

MACRO M1200

M5
PAGE 35-1

SEQ 0064

- COMPARE EXPD RECV MESSAGE BUFFERS

1497 012054

1498 012060
1499 012064
1500 012070
012070
012070

1501
1502
1503
1504
1505
1506
1507

004737
012700
004737

006020
000002
007364
L10005:

104423

JSR
MOV
JSR
ENDMSG

PC,PRITSSR
#2,RO
PC,PRIPKT

TRAP

C$MSG

tPRINT THE CONTENTS OF TSSR REGISTER
iNO. OF WORDS IN GET STATUS PACKET
tPRINT THE CONTENTS OF COMMAND PACKET

HEJ

;PRINT TSSR ERRORS FOR INITIALIZATION TESTS
;

: INPUTS;
H

1508

1509
1510
1511
1512 012072
012072
1513 012072
1514 012076
012076
012076

1515
1516
1517
1518
1519
1520
1521
1522
1523
1524
1525
1526
1527
1528
1529
1530 012100
012100
1531 012100
1532 012104
1533 012106
1534 012110
1535 012114
1536

23-MAR-84 09:44

012114
012114

:
:
'

004737
104423

’

ADDRESS OF COMMAND PACKET

BGNMSG

SFFMSG

JSR
ENDMSG

PC,PRITSSR

TRAP

C$MSG

.SBTTL

PKTMES

SFFMSG:
:

006020

TSSR CONTENTS

R1
R4

"~
L10006:

- PRINT

sPRINT CONTENTS OF

TSSR REGISTER

TSSR AND MESSAGE BUFFER

i e

sPRINT ROUTINE

TO PRINT THE CONTENTS OF

:BUFFER FOR ERROR REPORTS

TSSR AND MESSAGE

;s INPUTS;
i

:
B
5

R1
R2
R3

NOTE:

B
,

004737
010200
010301
004737
104423

006020

CONTENTS OF TSSR
LOW ORDER MESSAGE BUFFER

HIGH ORDER MESSAGE BUFFER ADDRESS

R3 IS IGNORED IF KTENABLE FLAG IS CLEAR

PKTMES:
:

014232
L10007;

BGNMSG

PKTMES

JSR
MOV
MOV
JSR
ENDMSG

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

TRAP

C$MSG

:PRINT CONTENTS OF TSSR
:LOW ORDER ADDRESS
+HIGH ORDER ADDRESS
iPRINT THE MESSAGE BUFFER

TSV3

ADDSSR

GLOBAL AREAS
-

MACRO M1200

TEST ADDRESS AND

1538
1539
1540
1541
1542
1543
1544
1545
1546
1547
1548
1549
1550 012116
1551
1552
1553
1554

PAGE 36

SEQ 0065

TSSR

ADDSSR

012116
012116
012122
012126
012132
012132
012132

23-MAR-84 09:44

- PRINT TEST ADDRESS AND TSSR

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

1 INPUTS:

004737

016501
004737

010270
000002
006020

ADDSSR:

LlOOlO;

104423

RS
ERRHI
ERRLO

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

BGNMSG

ADDSSR

JSR
MOV
JSR
ENDMSG

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

TRAP

C$MSG

.SBTTL

MSGEXP

+PRINT MEMORY TEST ADDRESS
t1GET CURRENT TSSR
sPRINT THE CONTENTS OF TSSR REGISTER

’
- PRINT WRITE CHAR.

EXPD-RECV MESSAGE BUFFERS

;PRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER
:

s IMPLICIT INPUTS:
i

:
3
:
H

EXPMSG
RECMSG
RCVHIADDRCVLOADD-

EXPECTED
RECEIVED
RECEIVED
RECEIVED

MESSAGE
MESSAGE
MESSAGE
MESSAGE

BUFFER
BUFFER
BUFFER HIGH ORDER ADDRESS
BUFFER LOW ORDER ADDRESS

012134
012134
012134
012140
012144
012146
012152
012156
012156
012156

012700
005737
001402
012700
004737

104423

000007
002224
000010
014542

MSGEXP:
:

Ss:
L10011:

BGNMSG

MSGEXP

MOV
TST
BEQ
MOV
JSR
ENDMSG

#7,R0
EXTFEA

TRAP

C$MSG

Ss
08. ,RO
PC ,PRMSGE XP

sASSUME NO EXT FEATURES
sEXT FEATURES SET?

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

TSV3

- GLOBAL AREAS

FIFEXP

MACRO M1200

23-MAR-84 09:44

1593

1594
1595
1596
1597
1598
1599
1600

B6
SEQ 0066

- PRINT FIFO EXP/RECV DATA

1579
1580
1581
1582
1583
1584
1585
1586
1587
1588
1589
1590
1591 012160
1592

PAGE

012160
012160
012160
012162
012166
012172
012174
012176
012202
012202
12206
012212
012214
012216
012222
012224
012230
012230
012230
012232
012301

+SBTTL

FIFEXP

- PRINT FIFO EXP/RECV DATA

1PRINT ROUTINE TO PRINT FIFO EXP/RECV DATA
3

- BYTE COUNT

1 IMPLICIT INPUTS:

[l
'

EXPMSG
RECMSG

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

FIFEXP

FIFEXP::

010146
012746
012746
010600

104415
062706

012746
012746
010600
104415
062706
010100
004737
104423
C45
045

012232
000002
000006

012301
000001

OFIF MSG.R1

MOV

OF IF1MSG, -(SP)

MOV
TRAP
ADD
PRINTX
MOV

RO
CSPNTX

MOV
TRAP
ADD
MOV

000004

015112
L10012:
116
116

PRINTX

045
045

FIFIMSG:
FIF2MSG:

JSR
ENDMSG
TRAP

—

#6,5P

@#F IF2MSG

OFIF2MSG, -(SP)

t1PRINT BYTES TRANSFERRED

sPRINT HEADER MSG

SP,RO
CSIPNTX

o4, 5P
R1,RO
PC,PRBYTEXP
CSsMSG
.ASCIZ
.ASCIZ

1GET BYTE COUNT
sPRINT FIFO BYTES IN ERROR

'«NsA NUMBER OF BYTES TRANSFERRED = wD2°
'wNwA FIFO DATA BYTES IN ERROR:'

TSVS

GLOBAL AREAS

MSGSTAT

MACRO M1200

23-MAR-84 09:44

PAGE

Cé6

SEQ 0067

- PRINT STATUS HEADER AND MESSAGE B'FFERS

1602

.SBTTL

MSGSTAT

tPRINT ROUTINC

- PRINT STATUS HEADER AND MESSAGE BUFFERS

TO PRINT MESSAGE BUFFER EXPD/RECV

:IN’LICIT INPUTS:
i

'
3
:
:

EXPMSG
- EXPECTED
RECMSG
- RECEIVED
RCVHIADD- RECEIVED
RCVLOADD- RECEIVED

MESSAGE
MESSAGE
MESSAGE
MESSAGE

BUFFER
BUFFER
BUFFER MIGH ORDER ADDRESS
BWFER LOW ORDER ADDRESS

1615 012340
012340
1616
1617
1618
1619

1620
1621
1622
1623

1625
1626
1627
1628
1629
1630
1631

012340
012344
012346
012350
012350
012352
012356
012360
012362
012366
012370
012374
012400
012400
012400

012701
012100
001410
010046
012746
010600

104415
062706
000766
012700
004737

012402

10%:

000001

000012
014542

012462
116
116
116
116
116

012777

#STATCOD,R1
(R1)+,RO
208

MOV
MOV
MOV

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

ADD
BR
MOV
JSR

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

TRAP

CHMSG

TRAP

000004
204

116

012553
045
045
045
045
045

045

STATCOD:
18:.ASCIZ
24:.ASCIZ
38:.ASCIZ
44:
. ASCIZ
S4$:.ASCIZ

sASCII ADDRESS TABLE
sDONE ALL MSG LINES?
1BR IF YES

sPRINT STATUS BIT NAMES

CSPNTX

100 ANOTHER MSG LINE
tNUMBER OF WORDS IN A READ STATUS BUFFER
1PRINT EXPD/RECY MESSAGE BUFFERS

.WORD
14,24,34,48,54,64,0
'wNsA Tepe Bus Signals in Word 08:°
'#NsA
PARERR<1S>
IEOT
«<12>
'eNsA
IRESV2<14>
TIIDENT<11>
'sNsA
IRESV1<13>
ICER
<10>
'sNsA Tape Bus Signals in Word 09:'

60:.ASCIZE é:NIA

DATMIS<7>

.EV

tPRINT ROUTINE

1640
1641
1642

ENDMSG

.SBTTL

1637
1638
1639

MSGSTAT

MOV
MOV
BEQ

PRINTX

L10013:

012402
012420
012462
012553
012644
012735

ILW<6>

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

OUTRDY<S>

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

INRDY<4>'

MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS
TO PRINT MESSAGE BUFFER EXPD/RECV

s IMPLICIT INPUTS:
:

1643

1644
1645
1646
1647
1648 013054
013054
1649 013054

BGNMSG
MSGSTAT:

3
'
:
:

EXPMSG
RECMSG
RCVHIADDRCVLOADD-

EXPECTED
RECEIVED
RECEIVED
RECEIVED

MESSAGE
MESSAGE
MESSAGE
MESSAGE

BUFFER
BUFFER
BUFFER HIGH ORDER ADDRESS
BUFFER LOW ORDER ADDRESS

012701

013116

BGNMSG

MSGLOOP

MOV

@L00PCOD,R1

MSGLOOP:; ;

1ASCII ADDRESS TABLE

IRWD<2>'
IFBYc1>’
IFPT<O>’

TSvs

MSGLOOP

GLOBAL

AREAS

MACRO M1200

23-MAR-84 09:44

D6
PAGE

38-1

SEQ 0068

- PRINT LOOPBACK HEADER AND MESSAGE BUFFERS

1650 013060
1651 013062
1652 013064
013064
013066
013072
013074
013076
013102
013104
013110
013114
013114

012100
001410
010046
012746
010600
104415
062706
000766
012700
004737

108:

(R1)+,RO
208

MOV
MOV

01, -(SP)
SP,kO0

ADD
BR
MOV
JSR
ENDMSG

04,5P
10%
010, ,RO
PC ,PRMSGE XP

TRAP

C$MSG

PRINTX

TRAP

000012
014542

208 :

L10014:

N13114

013116
013136
013211
013310
013407
013506
013605
013704

MOV
BEQ

013211
116
116
116
116
116
116
116

013310

LOOPCOD :
14: .ASCIZ
28: .ASCIZ
38:.ASCIZ
48:

;DONE ALL MSG LINES?
1BR IF YES

1PRINT STATUS BIT NAMES

CSPNTX

100 ANOTHER MSG LINE
tNUMBER OF WORDS IN A READ STATUS BUFFER
1PRINT EXPD/RECV MESSAGE BUFFERS

.MORD
14,24,34,44,54,68,74,0
'wN#A Tepe Bus Loopback Signals in Word 08:°
'wNwA
PARERR<15>
IRESV2<14>
'«NsA IHISP=>IEQT<12>
IWRT=>IIDENT<11>

ASCIZ

'wNsA IWFM =>IFMK<09>

S$:.ASCIZ
‘'wNsA ITADO=>IRDY<06>
68: .ASCIZ
'wNsA IREW =>IDBY<03>
70:.ASCIZE é:NiA IGO
=>IFPT<00>’
.

IEDIT=>IHER

<08>

ITAD1=>IONL <05>
ZRWU =>IRWD <02>

IREV

IFAD

IRESV1<13>’
=>ICER
<10>’
=>ISPEED<07>’

IERASE=>ILDP
IFEN
=>IFBY

<04>'
<O1>'

TSv3

GLOBAL

MSGSUB

MACRO M1200

AREAS

PRINT WRITE

1669
1670
1671
1672
1673
1674
1675
1676
1677
1678
1679
1680
1681
1682 013732
013732
1683 013732
1684 013736
1685 013742
013742
013742
1686
1687
1688

23-MAR-84 09:44

SEQ 0069

.SBTTL

MSGSUB

- PRINT WRITE SUBSYSTEM MESSAGE BUFFER

1PRINT ROUTINE

TO PRINT MESSAGE BUFFER EXPD/RECV

s IMPLICIT INPUTS:
EXPMSG
RECMSG

- EXPECTED MESSAGE BUFFER
- RECEIVED MESSAGE BUFFER

BGNMSG

MSGSuUB

MOV
JSR
ENDMSG

210.,RO
PC,PRMSGE XP

TRAP

C$MSG

.SBTTL

MEMADD - PRINT MEMORY ADDRESS DATA ERROR

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

012700
004737

000012
014542

MSGSUB:
:

L10015:

104423

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

s+PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR
'

s IMPLICIT INPUTS:
ERRHI
ERRLO
EXP
RECV

1703 013744

1709

SUBSYSTEM MESSAGE BUFFER

1689
1690
1691
1692
1693
1694
1695
1696
1697
1698
1699
1700
1701
1702

1704
1705
1706
1707
1708

PAGE

013744
013744
013750
013754
013760
013764
013764
013764

BGNMSG
004737
013701
013702
004737

104423

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

MEMADD
PC.PRIADD

010154
002230
002232
007736

EXPD,R1
RECV,R2

PC,PRIXOR

L10016:

C$MSG

1PRINT MEMORY ADDRESS IN ERROR

:GET EXPD DATA

1GET RECEIVED DATA

sPRINT EXPD/RECV

TSV3

- GLOBAL AREAS

PRAMPKT

MACRO M1200

23-MAR-84 09:44

PAGE 40

SEQ 0070

- PRINT RAM AND PACKET DATA

1711
1712
1713
1714
1715
1716
1717
1718
1719
1720
1721
1722
1723
1724
1725

.SBTTL
1

PRAMPKT

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

:INPUTS:
:
R4
POINTER TO COMMAND PACKET
:IHPLICIT INPUTS:
IF RAMSIZ=0 THEN DEFAULT TO 8.

1726

1727
1728
1729
1730
1731
1732 013766
1733 013766
1734 013772
1735 013776
1736 014000
1737 014002
1738 014004
1739 014014
1740 014016
1741 014022
1742 014026
1743 014036
1744 014042
1745 014050
1746 014056
014056
014060
014064
014070
014072
014076
014102
014104
014106
1747 014112
1748 014114
1749 014120
1750 014122
1751 014126
1752 014130
1753 014132
1754 014136
1755 014140
1756 014144
1757
1758 V14146

- PRINT RAM AND PACKET DATA

IMPLICIT OUTPUTS:

PRAMPKT;

012701
005002
122124
001005
000436
116105
116403

042703
116137
116437
010346
013746
013746
010246
012746
012746
010600

104414
062706
005202
005737
001404
020237
003724
000403
020227
002720
005037
000207
045

002240

Ss:

RAMSIZ

SET

SAVREG
MOV

ORAMDATA,R1

CLR
CcMPB

BNE

TO O

R2
(R1)+,(R4).

177400
177777
177777

78:

002230
002232

014146
000005
000014

10¢:

002300

000010

15¢:

20%:

002300

116

25%:

045

MOvVB

RAMASC:

78 ,NOTSSR

104

-1(R1),RS

1BR IF NO MATCH

: 8380

1GET RECV RAM DATA

-1(R4),R3

1GET EXPD PACKET DATA

XOR

RS,R3

s XOR EXPD/RECV

MOVB
MOVB
PRINTB

-1(R1),RECV
-1(R4),EXPD
ORAMASC,R2,RECV,EXPD,R3

+GET RECEIVED RAM DATA
1GET EXPECTED RAM DATA

8IC

002232
002230

002300

MOVB

+ INIT BYTE NUMBER
1COMPARE EXPECTED, RECEIVED

FORCERROR

177777
177777

$SAVE R1-RS5 UNTIL NEXT RETURN
1DATA FROM THE RAM

€177400,R3

MOV

R3, -(SP)

MOV

RECV, -(SP)

MOV
MOV
MOV
TRAP
ADD
INC
TST

ORAMASC, -(SP)
05, -(SP)
SP,RO
CSPNTB
014,SP
R2
RAMSIZ

BEQ
CMP
BLE
BR
CMP

15¢
R2,RAMSIZ
S$
254
R2,08.

CLR

RAMSIZ

BLT

.ASCIZ

'®NwA

tUPDATE BYTE COUNT

1DEFAULT

TO 8.7

tBR IF YES
1DONE ALL BYTES?
18R IF NO
'
1DONE DEFAULT NUMBER OF BYTES?

RTS

1LOW BYTE ONLY

1BR _IF NO

1SET DEFAULT RAMS1Z
1RETURN

BYTE:

#D2#A RAM:

#03%A Packet:

%03%A XOR:%03'

TSV3

- GLOBAL AREAS

PRAMPKT

1759

1760
1761

MACRO M1200

23-MAR-84 09:44

PAGE 40-1

SEQ 0071

PRINT RAM AND PACKET DATA

.EVEN

TSV3

- GLOBAL AREAS

PRMESS

MACRO M1200

23-MAR-84 09:44

PAGE 41

SEQ 2072

PRINT CONTENTS OF MESSAGE BUFFER

1763

.SBTTL

1764
1765

1784 014244
1785 014246
1786 014250
1787 014252
1788 014254
1789 014256
014256
014260
014262
014266
014272
014274
014276
1790 014302
014302
014306
014312
014314
014316
1791 014322
1792 014324
1793 014326
1794 014330
1795 014332
1796 014336
1797 014340
014340
014342
014344
014350
014354
014356
014360
1798 014364
1799 014366
1800 014372

- PRINT CONTENTS OF MESSAGE BUFFER

1766

1767
1768
1769
1770
1771
1772
1773
1774
1775
1776
1777
1778
1779
1780 014232
1781 014232
1782 014236
1783 014240

PRMESS

1 THIS ROUTINE PRINTS THE CONTENTS OF

1THE 7 OR 8 WORD MESSAGE BUFFER RETURNED BY THE

: INPUT;
H

i
3
:

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

]

s THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE
H
'-

PRMESS:

010005
005737
001001
005001
010103
006100
006101

010546
010146
012746
012746
010600
104415
062706

003130

10¢:

014410
000003

014455
000001

104415
062706

000004

010501
010300
001403
004737
010005

012546
010446
012746
012746

104415
062706
005204
020427
003005

RO,RS
KTENABLE
10¢
R1
R1,R3
RO

ROL
PRINTX

R1
@&PROASC,R1,RS

MOV
MOV

R1,-(SP)
#PROASC, -(SP)

MOV

000010

012746
012746

SAVREG
MOV
TST
BNE
CLR
MOV
ROL

CSPNTX

PRINTX

@&PR1ASC

MOV
MOV
MOV

TRAP
ADD

CLR
MOV
MOV
BEQ
JSR

sSHIFT TO HIGH ORDER FOR PRINTOUT
tPRINT MESSAGE BUFFER ADDRESS

SP,RO

TRAP

ADD

$SAVE THE REGISTERS
$1SAVE LOW ORDER ADDRESS
sADDRESS ABOVE 28K?
1BR IF YES
$+SET HIGH ORDER ADDRESS TO O
$1SAVE HIGH ORDER ADDRESS
sSHIFT BIT1S TO0 C BIT

€10,SP

@PR1ASC, -(SP)
01, -(SP)
SP,RO

CS$PNTX
04 ,5P

1PRINT HEADER FOR CONTENTS

R4
R5.R1
R3,RO
20¢
PC,SETMAP

tNUMBER OF THE NEXT WORD
:COPY LOW ORDER ADDRESS
1COPY HIGH ORDER ADDRESS
1BR _IF NOT ABOVE 28K
1SETUP PAR ADDRESS IN RO

PRINTX
MOV
MOV
MOV

@OPRASC,R4,(RS)+
(RS)+, -(SP)
R4, -(SP)
OPRASC, -(SP)

;PRINT

000010

MOV
TRAP
ADD

SP,RO
CSPNTX
010,5P

000007

cMP

017306
20%:

014513
000003

MOV

INC

B8GT

RO,RS5

R4, 07

1GET PAR FORMAT ADDRESS ABOVE 28K

THE CONTENTS OF MEMORY BUFFER

tNUMBER OF THE NEXT

1DONE ALL

YET

1BRANCH IF ALL DONE

TSV3

PRMESS

GLOBAL AREAS
-

MACRO M1200

23-MAR-84 09:44

16
PAGE 41-1

SEQ 0073

PRINT CONTENTS OF MESSAGE BUFFER

1801 014374
1802 014376

002761
032763

1803 014404
{% 014406

001355
000207

1806 014410

045

1807 014455
1808 014513
1809

045
045

000200

116

116
116

BLT
BIT

000012

045

045
045

504:

BNE
RTS

PROASC:

.ASCIZ

PRI1ASC:
PRASC:

.ASCIZ
.ASCIZ
.EVEN

208
tPRINT FIRST 7 WORDS
oX2 .EXTF, xST2(R3):EXTEM)ED FEATUTES ON ?

204
PC

tPRINT EXTENDED STATUS WORD
tRETURN

'®NwA Message Buffer Address = #0105’

'wNwA Message Buffer Contents:’
'#NsA
WordsD1%A: w0’

TSV3

- GLOBAL AREAS

PRMSGEXP

MACRO M1200

23-MAR-84 09:44

PAGE 42

SEQ 0074

- PRINT EXPD/RECV MESSAGE BUFFERS

1:1‘1?
181
1813
1:1;
181
lgig

:
tROUTINE TO PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS
'
:
RO
- NUMBER OF WORDS IN BUFFER

{:{g

s IMPLICIT INPUTS:

1820
1821
1822

H
3
H

.SBTTL

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

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS

‘-

1825 014542
1826 014542
1827 014546

1834

1835
1836
1837
1838
1839
1840
1841

014550
014554
014556
014562
014564
014566
014566
014570
014572
014576
014602
014604
014606
014612
014612
014616
014622
014624
014626
014632
014634
014640
014644
014646
014650
014660
014660
014662

014664
014666

1842
1843
1844

1845

1846

- PRINT EXPD/RECV MESSAGE BUFFERS

{:gi

1828
1829
1830
1831
1832
1833

PRMSGEXP

014670
014674
014700
014702
014704
014710
014712
014714
014716
014720

PRMSGEXP:

010005
013700
010004
013701
006100
006101
010446
010146
012746
012746
010600
104415
062706
012746
012746
010600
104415
062706
005004
012701
012702
011100
011203

MOV
MOV
MOV
MOV

RO,RS
RCVLOADD,RO
RO,R4
:gVHIAOD R1

ROL

014722
000003

MOV
MOV
MOV
MOV

R1,-(SP)
OPRMSGO, -(SP)
03, -(SP)
SP,RO

000010

ADD

010,SP

014767
000001

MOV

002304

002302

PRINTX

TRAP

PRINTX

MOV

000004
002320
002464

20%:

MOV

TRAP
ADD

000014

S0%:

:SAVE NUMBER OF WORDS
1GET RECV LOW ADDRESS
+COPY LOW ADDRESS
1GET RECV HIGH ADDRESS
sSHIFT BIT1S TO C BIT
sSHIFT TO HIGH ORDER FOR PRINTOUT
+PRINT MESSAGE BUFFER ADDRESS

tPRINT HEADER FOR CONTENTS

SP,RO

MOV
MOV
MOV
015025
000005

OPRMSG1

#PRMSG1, -(SP)

CLR

MOV
MOV
MOV
MOV

$SAVE R1-RS UNTIL NEXT RETURN

CS$PNTX

X
PRINTX

012146
010446

&PRMSGO,R1,R4

TRAP

ADD

010346
012246

012746
012746
010600
104415
062706
005204
020405
002001
000752
000207

:
SAVREG

04,5SP

OEXPMSG,R1
ORECMSG,R2
(R1),RO
(R2),R3

tNUMBER OF THE CURRENT WORD

1GET EXPD BUFFER ADDRESS

;GET RECV BUFFER ADDRESS
1GET EXPD

1GET RECV

RO,R3
1 XOR EXPD/RECV
OPRMSG2,R4,(R1)+ +(R2)+,R3

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

(R1)+,-(SP)

OPRMSG2, -(SP)

#5.-(SP)

SP,RO

CSPNTX
€14 ,SP

INC
CMP
BGE

R4
R4 ,RS
S04

1BR IF YES

RTS

:RETURN

208

tNUMBER OF THE NEXT
tDONE ALL YET?

1D0 ANOTHER

TSV3

GLOBAL AREAS

PRMSGEXP

K6
23-MAR-84 09:44

PAGE 42-1

SEQ 0075

PRINT EXPD/RECV MESSAGE BUFFERS

1847
1848 014722
1849 014767
{:g? 015025
1852

MACRO M1200

045
045
045

116
116
116

045
045
045

PRMSGO:
PRMSGl:
PRMSGZ2:

.ASCIZ
.ASCIZ
.25&52
EV

'#NsA Message Buffer Address = %01%05’
'#NsA Mess
Buffer Contents:’
‘#N®A
WORD
0wD2#A
EXPD: #06%A
RECV:

#06%A

XOR:

%06’

TSV3

GLOBAL AREAS

PRBYTEXP

1887
1889
1890
1891
1892
1893
1894
1895
1896

23-MAR-84 09:44

PAGE 43

SEQ 0076

- PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER

1854
1855
1856
1857
1858
1859
1860
1861
1862
1863
1864
1865
1866
1867 ~15112
1868 015112
1869 015116
1870 015120
1871 015124
1872 015126
1873 015132
1874 015136
1875 015140
1876 015144
1877 015150
1878 015152
1879 015156
1880 015162
1881 015172
1882
1883
1884
1885
1886

MACRO M1200

015174
015176
015202
015210
015212
015212
015214
015220
015224
015226
015232
015236
015240
015242
015246
015256
015260
015260
015270
015270
015272
015274
015276
015300
015300
015304
015310
015314
015316

.SBTTL

PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER

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

- NUMBER OF BYTES IN BUFFER

s IMPLICIT INPUTS:
5

i
:

- EXPECTED MESSAGE BUFFER
- RECEIVED MESSAGE BUFFER

EXPMSG
RECMSG

PRBYTEXP:
:

010005
005037
005004
012701
012702
111100
042700
110037
111203
042703
110337

122122
001431

005237
023727
101023

010346
013746
013746
010446
012746
012746
010600
104415
062706

SAVREG

002316

002320
002464
015460

177400
015462

002316
002316

000010

015462
015460
015326
000005
000014

BIC
MOVB
MOVB
BIC
MOVB

@tC<377>,R0
RO ,PRBEXP
(R2),R3
0tC<377>,R3
R3,PRBREC

CcMPB

(R1)+,(R2)+

MOVB

35%:

S0¢:

RO,R3

1SAVE NUMBER OF BYTES
s INIT ERROR COUNT
iNUMBER OF THE CURRENT BYTE
;GET EXPD BUFFER ADDRESS
$1GET RECV BUFFER ADDRESS

1GET EXPD BYTE

1CLEAR UPPER BYTE
:SAVE FOR ERROR REPORT
$:GET RECV BYTE
sCLEAR UPPER BYTE
;FOR ERROR REPORT
1 XOR EXPD/RECV

iEXPD = RECV?

30¢
1BR IF YES
PRMNO
tUPDATE ERROR COUNT
PRMNO, 08 .
sPRINTED 87
308
iBR IF YES
@&PRBMSG,R4,PRBEXP,PRBREC,R3

MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD

PRBREC, -(SP)
PRBEXP, -(SP)
R4, -(SP)

35¢

OPRBMSG, -(SP)

05, -(SP)
SP,RO

CS$PNTX
014,5P

FORCERROR

INC

BGE
BR

S0
208

cMP

002316
015413
000002

(R1),RO

$SAVE R1-RS UNTIL NEXT RETURN

BEQ
INC
cMP
BHI
PRINTX

FORCEXIT

30¢:

005204
020405
002001
000717

RO,RS
PRMNO
R4
SEXPMSG,R1
ORECMSG,R2

XOR

27s:

000404

013746
012746
012746
010600
104415

20§ :

177400

MOV
CLR
CLR
MOV
MOV

PRINTX

MOV
MOV

MOV

TRAP

27%,NOTSSR

R4 ,RS

@PRBTOT,PRMNO

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

C$PNTX

;: 880

; 880

;1 880

;880

iNUMBER OF THE NEXT
;DONE

ALL

YET?

1BR IF YES
;00 ANOTHER
;PRINT

TOTAL ERROR COUNT

TSV3 - GLOBAL AREAS
PRBYTEXP

MACRO M1200

PAGE 43-1

- PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER

015320

062706

000006

1899 015326
igg? 015413

045
045

116
116

1902 015460

000000

{gg; 015324

1903 015462
1904

23-MAR-84 09:44

000207

000000

ADD

045
045

PRBMSG:
PRBTOT:

06,5SP

RTS

.ASCIZ
Efleg'l‘l

'wNeA
BYTE 0wD2#A EXPD: #03%A RECV: #03%A
‘#NsSA NUMBER OF BYTES IN ERROR = sD2’

PRBEXP: .WORD
PRBREC:

.WORD

O
O

+RETURN

:EXPD
sRECV

XOR: %03’

SEQ 0077

TSV3

- GLOBAL AREAS

EXPREC

MACRO M1200

23-MAR-84 09:44

SEQ 0078

- PRINT EXPD/RECV WORD DATA

{ggg

.SBTTL

1908

1911
1912
1913
1914
1915
1916
1917
1918 015464
015464
1919 015464
1920 015470
015470
st 015470

EXPREC

- PRINT EXPD/RECV WORD DATA

{gog

1922

PAGE 44

;PRINT ROUTINE

TO DISPLAY EXPD/RECV DATA

: INPUTS
H
:
R1
3
R2
:
i -

RECEIVED DATA
EXPECTED DATA

004737
104423

007736

EXPREC:
:
L10017:

BGNMSG

EXPREC

JSR
ENDMSG

PC,PRIXOR

TRAP

C$MSG

;PRINT THE DATA
»

TSV3

- GLOBAL AREAS

EXPBREC

MACRO M1200

23-MAR-84 09:44

PAGE 45

SEQ 2079

PRINT EXPD/RECV BYTE DATA

.SBTTL

EXPBREC

- PRINT EXPD/RECV BYTE DATA

1PRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA
3
i

1 INPUTS;
3

H
:

R1
R2

RECEIVED DATA BYTE
EXPECTED DATA BYTE

!
'

0i5472
015472
015472
015476
015476
015476

004737

007606

EXPBREC:
:
L10020:

104423

[

EXPBREC

gSR

PC,.PRIBXOR

TRAP

C#MSG

.SBTTL

RAMERR

sPRINT THE DATA

- PRINT RAM AND PACKET DATA

tPRINT ROUTINE TO DISPLAY RAM/PACKET DATA

:IWYS:
:
R4
POINTER TO COMMAND PACKET
:IH’LICIV INPUTS:
RAMDATA
RAMSIZ

DATA AS READ FROM THE RAM
NUMBER OF BYTES IN PACKET

IF RAMSIZ=0 THEN DEFAWLT TO 8.

IMPLICIT OUTPUTS:

1967
1970
1971
1972
1973
1974

015500
015500
015500
015504
015504
015504

004737

104423

013766

RAMERR:
;

L10021:

RAMSIZ

SET

BGNMSG

RAMERR

JSR

PC,PRAMPKT

TRAP

CeMSG

.SBTTL

RAKTADD

T0 O

- PRINT

sPRINT RAM/PACKET DATA

TEST ADDRESS, RAM AND PACKET DATA

sPRINT ROUTINE TO DISPLAY RAM/PACKET DATA
1

1 INPUTS;

TSVS

- GLOBAL

RAMTADD

AREAS

TEST

MACRO M1200
ADDRESS,

23-MAR-84 09:44

{:;g

s IMPLICIT

5
:
'

1980
1981
1982
1983

[l
1
3
3

1::;
1

]
H

1986
1987
1988

015506

1992 015506
1993 015512
1994 015516
015516
015516
1995

INPUTS:

RAMDATA
RAMSIZ

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

ERRHI

ERRLO

004737
004737

010270
013766

RAMTADD:
:

L10022:

104423

1996

1997

1998

1999

LOW ORDER TEST ADDRESS

RAMTADD

JSR
JSR
E

PC.PRITADD
PC,PRAMPKT

TRAP

C$MSG

.SBTTL

RAMEXP

- PRINT RAM EXPD/RECV DATA

sPRINT ROUTINE TO DISPLAY EXPD/RECV DATA
'

2002

s INPUTS;

2004

]

2003

2005
2006
2007

;
5
-

2008
2009 015520

015520
015520
015524
015530
015534
015540

015540
a0t 015540

042701
042702
004737
004737

104423

177400
177400
010062
007736

RAMEXP;;

L10023:;

g}g

RECEIVED DATA

CONTROLLER RAM ADDRESS

EXPECTED DATA

BGNMSG

RAMEXP

BIC
8IC
JSR
JSR
ENDMSG

otC<377>,R1
0*C<377>,R2
PC.PRIRAM
PC,.PRIXOR

TRAP

CS$MSG

.SBTTL

TIMEXP

sPRINT ROUTINE TO DISPLAY EXPD/RECV DATA

sAND TIMER A,B HEADER MESSAGE

2022
2023

s INPUTS;
:

2025

1SAVE EXPD
1SAVE EXPD
1PRINT THE
1PRINT THE

RAM DATA BYTE
RAM DATA BYTE
RAM ADDRESS
DATA

- PRINT TIMER A,B AND EXP/REC

gggg

2024

1PRINT TEST ADDRESS
1PRINT RAM/PACKET DATA

20020001

2019

POINTER TO COMMAND PACKET

1990
1991 015506

2018

sIMPLICIT OUTPUTS:
[}
3
RAMSIZ SET TO O

1989

2010
2011
2012
2013
2014

SEQ 0080

RAM AND PACKET DATA

1975

1976
1977

PAGE 45-1

RECEIVED DATA

EXPECTED DATA

TSV3

GLOBAL

TIMEX®

AREAS

MACRO M1200

23-MAR-82 09:44

D7
PAGE 45-2

SEQ 0081

TIMER A,B AND EXP/REC

2026

2027
2028 015542
015542
2029 015542

2030
2031

2032
2033
2035

TIMEXP:
;

012746
012746
010600
104415
062706
004737

015570
000001

045

PRINTX

@TIMSGO
#TIMSGO,

TRAP

000004
007736

L10024:;

116

TIMEXP

MOV
MOV

104423
015570

BGNMSG

045

TIMSGO:
.EVEN

ENDMSG

01, -(SP)

sPRINT HEADER
-(SP)

SP,RO

CIPNTX

PC.PRIXOR

TRAP

C$MSG

.ASCIZ

‘WNsA

TIMER A STATUS

sPRINT THE DATA

IN BIT

3#NsA

TIMER B

STATUS

IN BIT

TSV3

- GLOBAL AREAS

BADSSR

MACRO M1200

23-MAR-84 09:44

PAGE 46

- PRINT TSSR ERRORS ON DATA TRANSFER
S

2037
2038
2039
2040

SEQ 0082

.SBTTL
I

BADSSR - PRINT TSSR ERRORS ON DATA
TRANSFERS

iPRINT ROUTINE FOR TSSR ERRORS
ON DATA TRANSFERS

]

1 INPUTS;

R1
R2

015670
015670
015670
015672
015676
015676
015700
015704
015710
015712
015714
015720
2055 015722
2056 015726
015726
015726
2057 015730
2058

CONTENTS OF TSSR
DATA WRITTEN (8 BITS)

BADSSR
010246
042702
010246
012746
012746
010600
104414
062706
012602
004737
104423
045

177400

0177400,R2
OXFERASC
,R2

1 SAVE DATA TRANSFERRED
$GET JUST ONE BYTE

R2, -(SP)

015730
000002

OXFERASC, -(SP)

SP,RO

CSPNTB
06,SP

(SP).,R2

006020

PC,PRITSSR
L10025:

116

045

XFERASC:

TRAP

CeMSG
.ASCIZ

tRESTORE R2

1DECODE TSSR CONTENTS

'wN®A Data Transferred = %03’

F7
TSV3

- GLOBAL AREAS

MACRC M1200

23-MAR-84 09:44

PAGE 47

GLOBAL SUBROUTINES SECTION

2060
2061

2062
2063
206;

206

2066

.SBTTL

GLOBAL SUBROUTINES SECTION

jee
: THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES
:+ THAT ARE USED IN MORE THAN ONE TEST,
==

320 0083

TSV3

- GLOBAL AREAS

SOFINIT

MACRO M1200

23-MAR-84 09:44

PAGE 48

G7
SEQ 0084

- SOFT INITIALIZE OF CONTROLLER

2068
2069
2070
2071
2072
2073
2074
2075
2076
2077
2078
2079
2080
2081

.SBTTL

SOFINIT

- SOFT INITIALIZE OF CONTROLLER

tROUTINE TO DO A SOFT INITIALIZE OF THE CONTROLLER
1BY WRITING INTO THE TSSR REGISTER. AFTER THE INIT,

1 THE TSSR REGISTER IS TESTED FOR ERRORS.

ANY ERRORS

;DETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS.
i

1 INPUTS:
'

ADDRESS OF FIRST REGISTER

1OUTPUTS:
RO

CARRY

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

CALLING SEQUENCE:

MOV
JSR
8CS
ERRDF

2103
2105
2107
2108
2109

015764
015764
015770
015776
016002
016006
016010
016014
016020
016022
016024
016026
016030
016032

@ADDRESS ,RS
PC,SOFINIT

CONTINUVE

SOFINIT::
012765
004737
016500
010004
042704
052704
020400
001402
000241
000401
000261
000207

000000
016240
000002

000002

;REPORT FATAL ERROR

SAVE THE REGISTERS

WAIT FOR SSR

00, TSSR(RS)

+ DO THE INIT,

TSSR(RS),R0O

1GET THE TSSR REGISTER

PC,WAITF

RO,R4
1 TSSR CONTENTS
@+C<HIADDR!OFL>,R4

176277
002200

OSSR !NBA ,R4

R4,RO
S
S8:

10s%:

10¢
PC

1R4 HAS EXPECTED CONTENTS
sONLY EXPECTED BITS SET
1BRANCH IF OKAY

;:CLEAR THE CARRY FOR ERROR
+GO TO EXIT

1SET THE CARRY BIT
;+RETURN TO CALLER

TSV3

CHKAMB

GLOBAL AREAS

- CHECK

MACRO M1200

23-MAR-84 09:44

SEQ 0085

TSSR FOR AMBIGUITY

2111
2112

.SBTTL

2113

2114
2115
2116
2117
2118
2119

2120
2121
2122
2123
2124
2125
2126
2127
2128
2129
2130
2131
2132
2133
2134
2135
2136
2137
2138
2139
2140
2141
2142
2143
2144
2145
2146
2147
2148
2149
2150
2151
2152
2153
2154 016132
2155

PAGE 49

CHKAMB

- CHECK TSSR FOR AMBIGUITY

s THIS ROUTINE TESTS THE CONTENTS OF THE

:+FOR AMBIGUITY

:INPUT:

:OUTPUTS

CHKAMB:
010004
032700
001004
032700
001023

032700
001011
032700
001414
042704
020427
001007
000410
032700
001405
032700
001002
000241
000401
000261
000207

100000

174077
000200

Ss:

000040

177761
000016
000040

10%:

CONTENTS OF TSSR

CARRY

SET - NO AMBIGUITY
CLR - AMBIGUOUS CONTENTS

SAVREG
MOV

1SAVE THE GENERAL REGISTERS

BIT

RO,R4
@SC,RO

BIT

@tC<N
!BA!OF
SSR!HIADDR> ,RO
L
s ANY OTHER BITS SET
40
tMUST BE AN ERROR
453
tRETURN WITH SUCCESS
O#SSR,RO
+IS READY BIT SET ?

BNE
BIT
BNE
BR

BNE
BIT
BEQ
BIC

BIT

000006

S¢

cLC

45%:

SEC

RTS

1BRANCH IF YES

1BRANCH IF READY BIT IS SET.

@+CTERCLS,R4
R4, 016
404
454

sCLEAR ALL BUT TERMINATION CODE
sALL THREE BITS MUST BE SET
tERROR IF NOT SET
10K IF ALL ARE SET
+IS FATAL ERROR BIT SET ?
tERROR IF BIT IS SET WITH SSR
+IS THIS A FUNCTION REJECT

40¢

o8ITS5,RO

454
454

40%:

sCONTENTS OF TSSR
+IS BIT 15 SET ?

104
08ITS5,RO

08IT2!BIT1,RO

50%:

TSSR REGISTER

504
PC

+IS FATAL ERROR BIT SET ?
tERROR IF NOT

1BR,

IF TSSR IS OK

tAMBIGUOUS CONTENTS
1 SHOW SUCCESS - NO AMBIGUITY
tRETURN TO CALLER

TSVS

GLOBAL

AREAS

ENAINT ,DSBINT

MACRO M1200

23-MAR-84 09:44

.SBTTL

2163

ENAINT,DSBINT

- ENABLE/DISABLE INTERRUPTS

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

2164
2165
2166
2167

2185

SEQ 0086

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

2161
2162

2184

PAGE S0

- ENABLE/DISABLE INTERRUPTS

2157
2158
2159
2160

2168
2169
2170
2171
2172
2173
2174
2175
2176
2177
2178
2179
2180
2181
2182
2183

IOKCKIN=BIT?
IOKSTP=BITO

000200
000001

+ DON'T CHECK FOR BAD INTERRUPTS
s+ EXPECT “STOP” INTERRUPT,

TEST WILL.

016134

s INTERRUPT MASK -- SAYS EXPECTING INTERRUPTS
INTMASK :
.BYTE
0

016135

INTFLAG:

016136

INTVEC:

.WORD

016140

INTCPC:

.WORD

016142
016144
016150
016154
016160
016162
016164
016172

2186
2187
2188
2189
2190 016174
2191 016176
2192 016204
2193

s INTERRUPT FLAG -- SAYS WE GOT ONE (IF POSITIVE)
.BYTE

s SAVED INTERRUPT VECTOR:
1 SAVE CPU PC

010046
013700
012720
012720
011646
012766
000002

011646
012766
000002

s SUBROUTINE TO ENABLE INTERRUPTS:

ENAINT:

000002

MOV
MOV
MOV
MOV
MOV
MOV
MOV

000002

DSBINT: MOV
:?;

002206
016206
000300
000000

RTI

RO, -(SP)
IVEC RO
OINTR (RO)+
OPRIOG.(RO)O
(SP)+,RO
(SP),-(SP)
©0,2(SP)

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

s SUBROUTINE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 6)

000300

(SP),-(SP)
OPRIO06,2(SP)

TSV3

- GLOBPr. AREAS

INTR

MACRO M1200

23-MAR-84 09:44

PAGE

INTERRUPT HANDLERS

SEQ 0087

2195
2196

2197 016206

016206
2198 016206
2199 016214
2200 016220
2201 016226
2202 016230
2203
2204
2205 016236
2206 016236
016236
016236
2207
2208

012737
105037
132737
001003
152737

000001
016135
000001

016134

000001

016135

002222

INTR:
;

.SBTTL

INTR

BGNSRV

INTR

MOV

CLRB
BITB
BNE
BISB
{%AVE REGISTERS,

000002

L10026:

ENDSRvV
RTI

INTERRUPT HANDLERS

1DEFINE INTERRUPT ENTRY

@1, INTRECV

INTFLAG
OIOKSTP, INTMASK
14

OIOKSTP,INTFLAG

MSG BUFFER,

1SET FLAG TO SHOW INT
ERRUPT RECEIV

ED
1CLEAR FLAG TO SAY WE GOT
INTERRUPT
;EXPECTING STOP INTERR
UPT?
1BR IF YES

;NO.

ETC.

SET

THE ERROR FLAG.

I<7
TSV3

GLOBAL AREAS

WAITF

MACRO M1200

23-MAR-84 09:44

PAGE S2

SEQ 0088

WAIT FOR SUBSYSTEM READY

.SBTTL

2210
2211
2212

- WAIT FOR SUBSYSTEM READY

+ SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG

2213

2214
2215
2216
2217
2218
2219
2220
2221
2222
2223
2224 016240
2225 016242
016242
2226 016244
2227 016250
2228 016254
2229
2230 016256
2231 016260
016260
016264
016266
016272
016274
016300
016302
016306
2232 016310
2233 016312
2234 016314
2235 016316
2236 016320
2237 016322
2238 016324

WAITF

: INPUTS
H
H

ADDRESS OF FIRST DEVICE REGISTER

;OUTPUTS:
H
3

H
:

WAITF::

000401

104422
012746
16500
105700

003000
000002

1%:
2%:

100420
012727
000000
013727
000000
005367
001375
005367
001367

005316
001356
000241
000401
000261
005326
000207

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

C$BRK

sNOP WHEN SUPER FIXED
s+ DO A SUPVSR BREAK FIRST,

#3000, -(SP)
TSSR(RS),RO

+ 300 MSEC TIMER
sREAD THE TSSR REGISTER

3s
1

000001

81.(PC)0

002116

3ODLY.(PC)0

177772

-6(PC)

177756

-22(PC)
-20

s TEST FOR READY BIT SET
EXIT ON STOP FLAG.

s WAIT 100 USEC

. -4

(SP)

2
44

3%:

(SP).

+REDUCE DELAY COUNT
;RETRY UNTIL TIMER EXPIRES

+ C = O, CONTROLLER STILL RUNNING...
i...0R HUNG-UP AFTER 300 MSEC.
3 C = 1, CONTROLLER IS STOPPED.
tRESTORE STACK WITHOUT CHANGING CARRY BIT

TSV3

CHKTSSR
2240
2241
2242
2243
2244
2245
2246
2247
2248
2249
2250
2251
2252
2253
2254
2255
2256
2257
2258
2259
2260
2261
2262
2263
2264
2265
2266
2267
2268
2269
2270
2271

GLOBAL AREAS

MACRO M1200

23-MAR-84 09:44

PAGE 53

L7
SEQ 0089

- CHECK TSSR FOR READY
.SBTTL

CHKTSSR

- CHECK TSSR FOR READY

: THIS ROUTINE WAITS FOR READY IN THE TSSR

tAND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR.
i

s INPUT
;
'
.

ADDRESS OF CSR REGISTERS

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

;OUTPUT;
CARRY

016326
016326
016332
016334
016340
016342
016346
016350
016354
016356
016360
016362
016364

004737
103014
004737
103006
032700
001405
032700
001402
000241
000401

000261
000207

016240

CHKTSSR:

PC,WAITF

204
PC,CHKAMB
10$
oSC,RO
15
:§§CE!BIE!RHR!NXH>.RO

016034

074000

10¢:

15%:
20¢:

20¢
PC

OR SC SET

tWAIT FOR READY

1BRANCH IF TIME OUT

: TSSR_ AMBIGOUS?

:BR IF YES
s SPECIAL CONDITION SET?
iBR IF NO
1ANY ERROR BITS SET?

18R _IF NO
:SET FAILURE
13

:SET SUCCESS

;RETURN TO CALLER

TSV3

GLOBAL

XNXM

AREAS

MACRO M1200

23-MAR-84 09:44

PAGE 5S4

SEQ 0090

- CHECK FOR NONEXISTENT MEMORY

2273

.SBTTL

- CHECK FOR NONEXISTENT MEMORY

XNXM

ROUTINE TO TEST FOR A NEXM IN THE RANGE

ON RETURN,

;CALL:
;
:
i
016366
016374
016402
016404

012737
012737
005003
005711

016406
016410
016412
016416

020102
001407
062701
000772

016420
016422
016426
016430
016430
016434
016436

005103
012716
000002

016440
016442
016444

016446
016446
016452
016454
016460
016462
016466
016470
016472
016474
016476

016420
000200

000004
000006

XNXM:

1%:

016430

2s:
3%:

012700

104436

005703
001401
000261
000207

005737
001006
005737
100403
005337
001002
000241
000401
000261
000207

002166
002202

“C”
“C"

= 1,
= 0,

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

(R1)

(R1) = NEXM ADDRESS.
ALL ADDRESSES OK.

THRU (R2).

s TEST “C” AND PROCEED.

2% ,804
OPRIO4, 806

SET BUSERR VECTOR.

CLR
TST

R3
(R1)

CMP
BEQ

R1,R2
33

iFLAG.
s TEST THE ADDRESS(ES).
+IF ANY TRAP, CONTINUE AT 2%,
tOTHERWISE, CONTINUE HERE.
+BR _IF FINISHED (NO NEXM'S).

i...AND CONTINUE.

ADD

wfos 9 ®s @0 @ @0 o

2274
2275
2276
2277
2278
2279
2280
2281
2282
2283
2284
2285
2286
2287
2288
2289
2290
2291
2292

02,R1

COoM

CLRVEC
MOV
TRAP
TST
BEQ
SEC
RTS

o4
€4 ,RO
CsCveC
R3
. +4
PC

.SBTTL

TSTLOOP

MOV
RTI

3% ,(SP)

$SET NEXT ADDRESS...

:GOT ONE, SET FLAG...
i...AND DISMISS INTERRUPT...
i...AND GIVE BACK THE VECTOR.
;:DID WE CATCH ONE ?2?
sNO, “C” = 0, SKIP NEXT.

:YES,

“C”

(R1)

= NEXM ADDR.

- CHECK ITERATION COUNT

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

LOOPTO

:
S TLOOP:
TST
BNE

002214
1%:
2s:
34:

TST
BMI
DEC
BNE
CLC
BR
SEC

RTS

ARG
NOITS
1$
QvpP
1$
LOOPCNT
2
34
PC

ITERATIONS INHIBITED?

YES.

NO.

;1LOOPS DISALLOWED IN QUICK PASS.

+ BUMP LOOP COUNTER.

1LOOP DISALLOWED, OR DONE.
1LOOP ENABLED.

TSV3

- GLOBAL AREAS

TSTLOOP

- CHECK

MACRO M1200

23-MAR-84 09:44

SEQ 0091

ITERATION COUNT

3359

2;28
2329
2330
2331
2332
23;2
23
2335
2336
2;;7
2338
2339
2340
2;:1
2342
g;:s
4
2;:5
2346
2347
2348
2349
2350
2351

\
¢

2352

2353
2354
2355
2356
2357
2358
2359
2360
2361
2362
2363
2364
2365
2366

2367
2368
2369

2370
2371

2372

PAGE S5

.SBTTL
TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS
i
+ PRINT THE NUMBER AND NAME OF EACH TEST AS WE GO ALONG.
+ INCREMENT "TESTK” TO INDICATE THE NUMBER OF TESTS
: IN THE CURRENT RUN SEQUENCE.
3+ CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS.
3
;s INPUT;
3
:
RO
POINTER TO TEST ID ASCIZ STRING
H
;OUTPUT;
:
3
RS
ADDRESS OF FIRST DEVICE REGISTER
H
sIMPLICIT OUTPUTS:
:
:
TSTCNT
UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART
H
:SIDE EFFECTS:
3
:
INTERRUPT LEVEL IS RASIED TO LEVEL OF
:
THE DEVICE UNDER TEST
:

016500
016500
016502
016506
016512
016516
016522
016526
016530
016534
016536
016540
016546
016546
016550
016552
016554
016556
016560
016566
016566
016570
016572
016574
016576
016604
016604
016610
016612

010046
005037
005037
005037
105037
013700
006300
005737
001430
100010
052760

003150
016746
005766
016134
002200

003110
160000

003172

052760

160001

003172

104455
000002
004331
000000
012737

177777

003106

104455
000001
003734
005732
000407

013700
104451

002200

TSTSETUP::
MOV
CLR
CLR
CLR
CLRB
MOV
ASL
TST
BEQ
BPL
BIS
ERRDF
TRAP
. WORD
.WORD
.WORD
BR
3%:
BIS
ERRDF
TRAP
.WORD
.WORD
.WORD
2%:
MOV
DODV
MOV
TRAP
DOCLN

RO, -(SP)
:SAVE THE TEST ID MESSAGE
SIFLAG
i+ CLEAR "SOFT INIT” FLAG
ERRK
:+ CLEAR LOCAL ERROR COUNTER.
EXTA
: CLEAR ERROR EXTENSION FLAG.
INTMASK
3+ CLEAR INTERRUPT MASK (CHECK ERROR)
UNITN,RO
3+ GET THE UNIT NUMBER,
RO
$ ... AND MAKE IT A WORD OFFSET.
NODEV
: DID STARTUP FIND THE DEVICE?
4%
s BR IF YES
3
i BR IF NOT IDLE
€160000,ERTABL(RO) ; FLAG ERROR IN THE ERROR TABLE
1,NXR,NXRERR
3 NO DEVICE HERE -- PRINT IT
CSERDF
|
NXR
NXRERR
24
©160001 ,ERTABL(RO)
i+ FLAG ERROR IN THE ERROR TABLE
2.,NOINIT
s DEVICE NOT IDLE
CS$ERDF
2
NOINIT
O
€-1,DUFLG
: DROP THE UNIT
UNITN
UNITN,RO
CsDODV
i ABORT THE PASS

TSVS

- GLOBAL AREAS

TSTSETUP

016612

2382
2383
2385
2386

23-MAR-84 09:44

PAGE 55-1

B8
SEU 0092

- PRINT TEST NAME AND INIT ERROR COUNTS

2373 016614
2374
2375 016616
016616
2376 016620
2377 016624
2378 016626
2379 016630

2380
2381

MACRO M1200

016630
016632
016636
016642
016644
016646
016652
016656
016656
016662
016664
016666
016672
016674

104444
000423

104421
032700

001412

TRAP

BR
4%

013700
104441
005726
013705
000207
045

s+ GET THE OPERATOR FLAGS.

#PNT RO

3+ PRINT THE TEST NUMBERS?

IPRI

sPRIORITY

CISPRI
(SP).
gsnnooa.as
C

tFIX UP THE STACK
+ ADDRESS OF TSV REGISTERS ON UNIBUS

CIRFLA

001000

011600

010046
012746
012746
010600
104417
062706
005237

CSOCLN
S¢

s BR IF NO
1GET THE ID MESSAGE
sDISPLAY THE TEST 1D

016674
000002

002212

18:

002210

IPRI,RO

Ss:

002204

123

045

TNAM:

"EVEN

‘'#SHTEA Test'

1+ BUMP TEST COUNTER.

THAT OF DEVICE

TSvS

TSTEND

GLOBAL AREAS
-

MACRO M1200

23-MAR-84 09:44

PAGE 56

SEQ 0093

PRINT ERRORS RECEIVED

2386
2389
2390
2391
2392
2393 016710
016710
2394 016712
2395 016716
2396 016720
016720
016724
016730
016734
016736
016740
016744
016746

016750

016767

.SBTTL
:

'
E

AT END OF EACH TEST,

]

016746
016750
000002

045

101
122

105

RFLAGS
TRAP

BIT

013746
012746
012746
010600
104417
062706
000207

- PRINT ERRORS RECEIVED

PRINT THE NUMBER OF ERRORS RECEIVED

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

TSTEND:

104421
030027
001412

TSTEND

CSRFLA

RO, #IER
14
#ESUM, ERRK

+ BR IF "IER” NOT SET,

PRINT ERROR COUNT,

SP,RO
COPNTF

040
12?7

1$:

RTS

ERRK ;

ESUM:
EMAXDU:

.SBTTL

#6,SP

s+ LOCAL ERROR COUNT,

/%A #D#A ERRORS/
/ERROR LIMIT REACHED

INCERK

-- DROPPING UNIT/

- INCREMENT LOCAL ERROR COUNT

017034
017040
017042
017046
017050
017054
017056
017062
017064
017066
017070

017072
017074
017100
017102
017106
017112
017116
017120
017126
017130
017130
017132
017136
017140
017146
017146
017150
017152

ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT:

INCERK: INC

016746

002200
003172
007777
MOV

CKEMAX: MOV

002200
003172

170000

002172

104455
000004
016767

000040

177777

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

(RO)

YES -- BACK IT UP TO 7777.

003106

(SP)+,RO

DID WE OVERFLOW THE FIELD?
BR IF NO.

s+ RESTORE RO

3 RETURN TO CALLER.

RO, -(SP)

s+ SAVE RO

#170000,R0
RO ,GERRMAX

3+ EXTRACT ERROR COUNT FIELD
' gg %oe& LIMIT EXCEEDED FOR THIS UNIT?

UNITN,RO
RO
ERTABL(RO),RO
1

RFLAGS

s+
s

ERRK ,LERRMAX

002170
14:

001013
012737

3+
s
3
$
s+
s+

®7777,(RO)
14

18:

016746

ERRK
RO, -(SP)
UNITN,RO
RO
®ERTABL ,RO
(RO)

24
RO

CSRFLA
¢IDV,RO
¢

e-1,0UFLG
EOERDF

3+ GET UNIT NUMBER
$ ... AND MAKE IT A WORD OFFSET
3+ GET ERROR TABLE ENTRY

s+ IS LOCAL LIMIT EXCEEDED FOR THMIS TEST?

1 BR IF NO
1 GET OPERATOR FLAGS

IS DROPPING INMIBITED?

3t NO

YES.

-- DROP THE UNIT

TSVS

- GLOBAL AREAS

INCERK

MACRO M1200

23-MAR-84 09:44

D8
PAGE 56-1

SEQ 0094

INCREMENT LOCAL ERROR COUNT

017154
2434 017156
017156

017162
2435 017164
017164

2436 C1716€
2437 017170
2438

000000

013700
104451
104444
012600
000207

. WORD
000V
MOV

002200

TRAP

UNITN
UNITN,RO
CsDOOV

TRAP
MOV

CSOCLN
(SP)+,RO

DOCLN

28:

RTS

s+ RESTORE RO

RETURN TO CALLER

TSV3S

- GLOBAL AREAS

CKDROP

MACRO M1200

23-MAR-84 09:44

SEQ 0095

- CHECK IF UNIT SHOULD BE DROPPED

2440
2441
2442

2443
2844 017172
2445 017174
2446 017204

017204
017206
017212
017214
017216
017224
017224
017230
2452 017232
017232
2453 017234
2454 017236

2447
2448
2449
2450
2451

2455

PAGE S7

2456
2457
2458
2459
2460
2461
2462
2463 017240
2464 017240
2465 017244
2466
2467
2468

.SBTTL

CKDROP

- CHECK IF UNIT SHOULD BE DROPPED

1 CHECK IF UNIT SHOULD BE DROPPED
'-

010046

104421
032700
001010
011600
012737
013700
104451

CKDROP; MOV

000040

177777

RO, -(SP)

FORCERROR
RFLAGS
RO
TRAP
CSRFLA

BIT
BNE

©IDU,RO
14
(SP),RO
0-1,0UFLG

MOV
MOV

003106

ple V)

002200

UNITN

MOV
TRAP

UNITN,RO
Cs000V

TRAP

CSOCLN

RTS

.SBTTL

CONFIG

DOCLN

104444
012600
000207

1%:

MOV

SUBROUTINE

1% ,NOTSSR

1ABORT THE PASS

(SP)+,RO

- DETERMINE CONFIGURATION OF SYSTEM

- DETERMINE CONFIGURATION OF TSVOS SYSTEM.

]

004737
000207

015764

CONFIG:

JSR

RTS

PC,SOFINIT
PC

TSV3

GLOBAL AREAS

KTON,KTOFF

2470
2471
2472
2473
2474
2475
2476
2477
2478
2479
2480
2481

MACRO M1200

23-MAR-84 09:44

SEQ 0096

.SBTTL
i

+
017246
017252
017254
017262

2484 017264
2485 017270
2486 017272
2487 017274
2488 017276
2489 017304
2490
2491

- ENABLE/DISABLE MEMORY MANAGEMENT

005737
001403
012737
000207

003126
000001

KTON:

177572

18:

+
005737
001405
000240
000240
012737
000207

KTOFF
;

177572

1$:

KTON,KTOFF

KTFLG

RTS

#1,SRO
PC

TST
BEQ
NOP
NOP
MOV

RTS

ENABLE/DISABLE MEMORY MANAGEMENT

- ENABLE MEM MGT.

TST

BEQ
MOV

SUBROUTINE

003126

000000

SUBROUTINE

2482

2483

PAGE S8

GOT KT?
NO.
YES.

ENABLE KT11.

- DISABLE MEM MGT.
KTFLG

GOT KT11?
NO

00,SRO

DISABLE KT,

TSV

GLOBAL AREAS

SETMAP

MACRO M1200

23-MAR-84 09:44

PAGE 59

G8
SEQ 0097

- SETUP PAR6 MAPPING

2493
2494
2495

.SBTTL

SETMAP

- SETUP PAR6 MAPPING

2496
2497
2498
2499
2500

1 THIS ROUTINE SETS UP KERNEL PAR6 TP HANDLE

tAN 18 BIT ADDRESS. THE OFFSET INTO THE PAGE
1+ IS RETURNED BIASED TO PARG6.
H

2501
2502
2503
2504
2505
2506
2507
2508
2509

s INPUTS
B

:
:

RO
R1

HIGH ORDER ADDRESS BITS
LOW ORDER ADDRESS BITS

;OUTPUTS;
H

:
:

;

CARRY

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

THE ADDRESS)

CLR IF ERROR

‘.

017306
017306
017312
017316
017320

SETMAP:

005737
001433
010102
000006

003126

SAVREG
ST

KTFLG

ASR

BEQ
ngz"
agam

017352
017356
017362
017364
017370
017374
017400
017402
017404
017406
017410

042701
020137
103011
010137
042702
062702
010200
000261
000401
000241
000207

BIC

000177
003126

140000

10s$:

158

;ALINE FOR LOWER 4K BOUNDARY

104

iBR IF YES

R1,80KIPARG
0160000, R2
9140000, R2
R2,RO

RTS

:CONVERT WORD ADDRESS TO 32W BLOCKS

0177,R1

MOV
8IC
ADD
MOV
cLC

:BR IF NO
1SAVE LOW ORDER BITS
sMAKE

R1,KTFLG

SEC
BR

1SYSTEM HAVE ABOVE 28K?

cHP

BHIS

172354

104
21.az

;SAVE R1-R4 UNTIL NEXT RETURN

IT DOUBLE PRECISION

sHIGHER THAN EXISTING MEMORY?

:SETUP MAPPING REGISTER PAR6
;SETUP DISPLACEMENT IN PAGE
;ADD IN PAR6 BIAS
:RETURN IN RO

15%

:SET SUCCESS
:

:RETURN

;SET FAILURE

GLOBAL

FILL MEMORY

23-MAR-84 09:44

SEQ 0098

017526
017532
017534
017540
017542
017546
017554
017562
017564
017570
017572
017576
017602
017606
017610
017614
017616
017624
017626
017630
017636
017642
017646

FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN

.SBTTL

017412
017412
017416
017422
017424
017430
017434
017436
017440
017442
017446
017450
017454
017456

PAGE 60

WITH BACKGROUND PATTERN

2534
2535
2536
2537
2538
2539
2540
2541
2542
2543
2544
2545
2546

MACRO M1200

s 90 ®s G o

FILLMEM

AREAS

00 90 9¢ @0

FILL MEMORY WITH A BACKGROUND PATTERN

INPUTS:
RO = BACKGROUND PATTERN

FREE

KTFLG

FIRST LOCATION AVAILABLE

c04737
J10320
020027
103774
162700
062737
023737
001427
005737
001407
013704
042704
022704
001415
005737
001410
023727
103001

012737
000137
004737
000207

017264

PC.KTOFF
RO,R3

003120
003122

10%:

003126

PC,KTON
RO
PST32uW,R1
6

003146

30¢:

160000

000020
017532
017264

35%:

007600

172516

50¢

S0%:
55%:

s NO. GET OuUT,
3 YES. ENABLE KT,
sHIGH ORDER ADDRESS START
sGET >28K START ADDRESS (IN 352w BLOCKS)

1END OF PAR6 MAPPING AREA?

1BR IF NO

1BACKUP INTO PAR6 MAPPING BEGIN

sPOINT

TO NEXT 4K BLOCK

:END OF MEMORY?
1BR IF YES

1GET SRO CONTENTS
sCLEAR ALL BUT PAGE NUMBER
:1SEE IF PAGE 7
iEXIT

THERE

1NO KEEP GOING

1 YES

45%
©20,SR3
304

PC,KTOFF
PC

»>28K.

111/723A2

iNO KEEP GOING

1238
45

80KIPAR6, #7600

40%:
45%;

:BR IF NO
: GOT KT?

;SETUP PAR6 MAPPING REGISTER
;STORE TEST PATTERN IN >28K ADDRESS

0177761,.R4
016,R4

003142

1SIZE OF FREE SPACE BELOW 28K.
1STORE A BACKGROUND WORD
;OONE ALL MEMORY IN FREE SPACE?

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

SOKIPARG ,KTFLG
S04
T23A
354
SRO,R4

177572
177761
000016

31GET FIRST FREE LOCATION

;CLEAR C BIT
;CONVERT BLOCKS TO WORDS
tMAKE IT DOUBLE PRECISION

172354
003126

$SAVE R1-RS UNTIL NEXT RETURN
sDISABLE KT,
1COPY TEST PATTERN

R1
RO

30¢

003140

172354

Re
108

554

017246

020000
000200
172354

FREE,R1
FRESIZ,R2

KTFLG

017306

> 28K,

NONE

iLL'EH:

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

TO DIAGNOSTIC

= SET TO HIGHEST MEMORY LOCATION IF

OUTPUTS:

Tee 0

TSV3S

11172387

sREACHED 18 BITS?
1iNO KEEP GOING

:SET 22 BIT RELOCATION

:KEEP GOING ON ETC.
+ DISABLE KT,

TSV3

- GLOBAL AREAS

CMPMEM

MACRO M1200

COMPARE MEMORY

PAGE 61

SEQ 0099

TO BACKGROUND PATTERN

2591
2592
2593
2594
2595
2596
2597
2598
2599
2600
2601

CMPMEM
14

- COMPARE MEMORY TO BACKGROUND PATTERN

() os ® 9 @0 00 ©¢ o0 90 S0 @0 S0 S0 @0 e Gs S S @ W

+ COMPARE MEMORY WITH A BACKGROUND PATTERN

2602

2603
2604
2605
2606
2607
2608
2609
2610
2611
2612
2613 017650
2614 017650
2615 017654
2616 017656
2617 017662
2618 017666
2619 017672
2620 017674
2621 017676
2622 017702
2623 017706
2624 017712
2625 017716
2626 017720
2627 017722
2628 017724
2629 017726
2630 017732
2631 017734
2632 017740
2633 017742
2634
2635
2636
2637
2638 017776
2639
2640
2641
2642
2643
2644
2645
2646
2647

23-MAR-84 09:44

INPUTS:
RO = BACKGROUND PATTERN
FREE
= FIRST LOCATION AVAILABLE TO DIAGNOSTIC
KTFLG
= SET TO HIGHEST MEMORY LOCATION IF > 28K,

OUTPUTS:

CARRY
CARRY

IMPLICIT OUTPUTS:

MPMEM:

010003
004737
013701
013702
020311
001411
010137
010337
011137
000474
005721
003362
005737
001472
004737
013701
000006

042701
010046
010146
004737
010004
012601
012600
020314
001411
010037

017264
003120
003122

- SET IF NO ERROR
- CLR IF ERROR

10$:

ERRHI
ERRLO
EXPD
RECV

SAVREG
MOV

CcHP

002236
002234
002230
002232

- ERROR HIGH ADDRESS
ERROR LOW ADDRESS
EXPECTED DATA

RECEIVED DATA

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

15¢

R1,ERRLO
ERRHI
R3,EXPD

15¢:

TST

(R1),RECV
S04
(R1)+

10¢

003126

KTFLG

017246

PC,KTON
RO
PST32uW,.R1
6
R1
RO

554

003146

000177

#177,R1

RO, -(SP)

017306

PC,SETMAP
RO,R4

30%:

002234

cMP

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

R3,(R4)

RO,ERRHI

1SAVE R1-RS UNTIL NEXT RETURN

1COPY TEST PATTERN
1DISABLE KT,
1GET FIRST FREE LOCATION

1SIZE OF FREE SPACE BELOW 28K,
sFREE SPACE LOCATION EQUAL TO EXPD?

1BR IF YES
s SAVE ADDRESS IN ERROR
iNO HIGH ADDRESS
:SAVE EXPD FOR ERROR REPORT
$1SAVE RECV FOR ERROR REPORT
:

t1POINT TO NEXT ADDRESS
;DONE ALL MEMORY IN FREE SPACE?
:BR IF NO
s GOT KT?

s NO. GET OuUT,

YES.

ENABLE KT,

;HIGH ORDER ADDRESS START
;GET >28K START ADDRESS (IN 32w BLOCKS)

s CONVERT BLOCKS TO WORDS
tMAKE IT DOUBLE PRECISION
1ALINE 4K BOUNDARY
1 SAVE HIGH ORDER
1SAVE LOW ORDER
1SETUP PAR6 MAPPING REGISTER

1COPY ADDRESS BIASED TO PAR6
tRESTORE LOW ORDER

IN NON PAR6 FORMAT

tRESTORE HIGH ORDER IN NON PAR6 FORMAT
+ABOVE 28K LOCATION EQUAL EXPD?
1BR IF YES
1 SAVE HIGH ORDER IN ERROR

TSV3 - GLOBAL AREAS
CMPMEM

MACRO M1200

23-MAR-84 09:44

PAGE 61-1

- COMPARE MEMORY TO BACKGROUND PATTERN
020030
020034
020040
020044

020046
020052

010137
010337
011437

000421
062701
005500
062704
020427

103755

162704
062737
023737
101744
004737
000241

000403
004737
000261

000207

R1,ERRLO

002236
002230
002232

(R4),RECV

1SAVE RECV FOR ERROR REPORT
B

tUPDATE PAR FORMAT ADDRESS
;END OF PAR6 MAPPING AREA?

000002
160000

020000
000200
172354

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

tUPDATE NON PAR6 ADDRESS
;MAKE IT DOUBLE PRECISION ADD

32%:

000002

SEQ 0100

R4
920000,
0200, 80KIPARG

172354

80KIPARG ,KTFLG

003126

;BR IF NO

;BACKUP INTO PAR6 MAPPING BEGIN
;POINT TO NEXT 4K BLOCK »>28K.
;END OF MEMORY?

017264

30 $
PC +KTOFF

1BR IF NO
5

017264

55%:

Ce
PC JKTOFF

60$:

: TURN OFF MEMORY MAPPING
:SET FAILURE
: TURN OFF MEMORY MAPPING
:SET SUCCESS

K8
TSV3

REGSAV

GLOBAL

AREAS

MACRO M1200

23-MAR-84 09:44

PAGE 62

SEQ 0101

- SAVE R1-R5 ON STACK

2669
2670
2671
2672
2673
2674
2675
2676
2677
2678
2679
2680
2681
2682
2683
2684
2685
2686
2687
2688
2689 020130
2690 020130
2691 020132
020134
020136
020140
020142
020146
020150
020152

020154
020156
020160
020162

.SBTTL

REGSAV

- SAVE R1-RS ON STACK

+ROUTINE

:SAVE R1 THROUGH RS ON THE STACK
i

:CALLING SEQUENCE:
JSR

RS,REGSAV

:THIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO

;THE CALLING ROUTINE. AT THE END OF THE CALLING ROUTINE,
s THE RTS PC RETURNS CONTROL TO THIS ROUTINE TO RESTORE

sREGISTERS.
i

: THIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE

sCALLED VIA A JSR PC INSTRUCTION

010446
010346
010246
010146
010546
016605
004736
012601
012602
012603
012604
012605
000207

REGSAV:

000012

TSV3

MACRO M1200

- GLOBAL AREAS

GETPAT

23-MAR-84 09:44

PAGE 63

SEQ 0102

- GET 8 BIT PATTERN FROM OPERATOR
.SBTTL

2705
2706
2707

020176
020200
020202
020204
020206
020210
2727 020210
020210
2728 020212
2729 020216
2730
2731
2732
2733
2734
2735 020220
2736 020222
2737

- GET 8 BIT PATTERN FROM OPERATOR

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

2708
2709

2710
2711
2712
2713
2714
2715
2716
2717
2718
2719
2720
2721
2722
2723
2724 020164
2725 020164
2726 020170
020170
020172
020174

GETPAT

s INPUTS:
3

NONE.

;OUTPUTS:
:

OCTAL NUMBER FROM THE OPERATOR

sCALLING SEQUENCE:
:

JSR

PC,.GETPAT

SAVREG
GMANID

;SAVE THE GENERAL REGISTERS
DATASC,PATDAT,0,377,0,377,NO

:
'-

GETPAT::

1$:

104443
020220
000022
020222

000377
000000
000377

103367
013700
000207

10000¢:

TRAP
BR
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

PATDAT
T$CODE
DATASC
377
TSLOLIM
TSHILIM

ggEOHPLEIE
MOV

020220

C$GMAN
10000

RTS

PATDAT RO
PC

sRETRY IF ERROR
;DATA PATTERN FROM OPERATOR
tRETURN TO CALLER

HE4

;LOCAL DATA AREA
'-

105

116

124

PATDAT:

DATASC:

.WORD

.25252
.EV

s TEMPORARY STORAGE FOR DATA

'ENTER DATA PATTERN'

TSV3

GLOBAL AREAS

GETSEL

MACRO M1200

23-MAR-84 09:44

PAGE 64

SEQ 0103

- ISSUE MENU AND GET OPERATOR RESPONSE
.SBTTL

2739
2740

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

020246
020246
020252
020254
020256
020260
020262
020262
020264
020270
020274
020276
020300
2763 020304
2764 020306
020306
020310
020312
020314
020316
020320
020322
020324
020326
2765 020326
020326
2766 020330
2767 020334
2768 020336
2769 020340
020340
020344
020350
020352
020354
2770 020360
2771 020362
2772 020364
2773 020432
2774 020437

GETSEL

ISSUE MENU AND GET OPERATOR RESPONSE

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

: INPUTS:
i

ADDRESS OF ASCIZ STRING OF MENU

MAXIMUM ALLOWABLE OPERATOR RESPONSE

;:OUTPUTS:
B

NUMBER OF THE OPERATOR'S SELECTION

SAVREG
v
MOV
TST
BEQ
PRINTF
MOV
MOV

RO,R2
R2,R3
(R3)
3
@SELASC,(R3)+
(R3)+,-(SP)
@SELASC, -(SP)

H
'-

GETSEL::
010002
010203
005713
001412

012346
012746
012746
010600
104417
062706
000764

1$:
2%:

020432
000002

3%:

104443

000406
020466
000042
020437
177777
000000

177777

103352
013700
020001
101411
012746

012746

010600

104417
062706
000735
000207
045
045
105

10001¢%:
020466

045
045
164

;RETRY IF ERROR

MENRES,RO

t1GET THE OPERATOR'S REPLY

BLOS

1BRANCH IF OK

RO,R1

OMENERR

MOV
MOV
MOV

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

BR
RTS
.ASCIZ
.ASCIZ
.ASCIZ

1$
PC

TRAP
ADD

S$:
MENERR:
SELASC:
MENASC:

MENRES
T$CODE
MENASC
-1
TSLOLIM
TS$HILIM

MOV

PRINTF

000004

SP,RO
CSPNTF
06,SP
24
MENASC,MENRES,D,-1,0,-1,NO
C$GMAN
100014

ggEOHPLEIE

CcMP

020364
000001

116
116
156

MOV
TRAP
ADD
BR
GMANID
TRAP
BR
.WORD
.WORD
.WORD
.WORD
LWORD
LWORD

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

s COMPARE TO MAXIMUM ALLOWED
;DISPLAY ERROR MESSAGE

CSPNTF
04 ,SP

1RETRY
sRETURN TO CALLER
::z:? 444 Menu Selection Too Large #4s'
‘Enter Menu Selection:

- GLOBAL AREAS

GETSEL

MACRO M1200

23-MAR-84 09:44

PAGE 64-1

SEQ 0104

ISSUE MENU AND GET OPERATOR RESPONSE

2775
2776 020466

000000

MENRES :

.EVEN

.WORD

TSV3

TSVS

- GLOBAL

CHXMAN

AREAS

MACRO M1200

23-MAR-84 09:44

PAGE 65

B9
SEQ 0105

- CHFCKX MANUAL INTERVENTION LEGALITY

2778
2779

.SBTTL

CHKMAN

- CHECK MANUAL INTERVENTION LEGALITY

2780

2781
2782
2783
2784
2785
2786
2787
2788
2789

tROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY,

2790
2791

:INPUT:
NONE
;
:WTPUT:
:
CARRY

MANUAL INTERVENTION NOT ALLOWED

MANUAL INTERVENTION IS OK

2792
2793

1SIDE EFFECTS:

2794
2795
2796
2797
2798
2799
2800
2801
2802

A MESSAGE

IS DISPLAYED WARNING THAT

TEST

NOT EXECUTED IF MANUAL INTERVENTION IS NOT
ALLOWED.

CHKMAN:;

SAVREG

MANUAL

1SAVE THE REGISTERS

$1SEE IF MANUAL INTERVENTION OK

2803

gtc:ms EYE.I..

TRAP

CSMANI

1BRANCH IF ALLOWED

2804

PRINTF

ONOMAN

sPRINT

MOV
TRAP
ADD

SP,RO
COPNTF

1¢:

RTS

NOMAN:

_ASCIZ

'#NsA sees Manual

MOV

2805

2807
2808
2809

045

CcLC

INOMAN, -(SP)

04,SP

THE WARNING MESSAGE

sCLEAR CARRY FOR ERROR
sRETURN

Intervention not Allowed -

Test Aborted ses’

TSVS

- GLOBAL AREAS

ENVIRN

PAGE 66

SEQ 0106

.SBTTL

020724
020726
020730
020734
020740
020744
020746
020752
020754
020756
020762
020770
020772
020772
02077¢
021002
021004
021006
021012
021014
021020
021022
021022
021026
021032
021034
021036

2850 021042
2851

ENVIRN

- SETUP FREE DIAGNOSTIC SPACE

[

+ SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS.
5

ENVIRN:

003120
000002
003122
000004
002012
000007

003120
003122

003122

‘

MEMORY
TRAP

COMEM
RO,FREE

1+ GET 1ST FREE ADDRESS...

(RO),FRESIZ

t...AND WORD COUNT.

#2,FREE

04 ,FRESIZ

10%:

LSUNIT, R2

000002
003124

FREE,RO
FRESIZ,RO

1GET FIRST FREE ADDRESS
tPOINT TO LAST FREE ADDRESS
1BACKUP 1 WORD
1STORE LAST FREE ADDRESS

#2,R0
RO,FREENI

177520

#BDVPCR,R1

000002
016366

177520

15¢:

000001

177520

TAKE AWAY

7 WORDS PER UNIT

10000000000000000004000000000000000000000000

1GET BDOV11 PCR ADDRESS
1COPY TO R2
1SET THE RANGE
1SEE _IF WE HAVE ONE
10K TO SET FLAGS
tRETURN WITH FLAGS CLEAR
1SAVE PCR CONTENTS
sADD ONE TO IT
1GET BOV11 PCR _ADDRESS

s TRY TO WRITE TO T

177520
003140
170000

s+ GET NUMBER OF UNITS

07,FRESIZ
R2

104

003120
003122

020720

2846
2847
2848
2849

23-MAR-84 09:44

- SETUP FREE DIAGNOSTIC SPACE

2811
2812
2813
2814
2815 G20620
020620
2816 020622
020626
020634
02064C
020646
020652
020660
020662
020664
020670
020674
020700
020704
020706
020712
020714

2845

MACRO M1200

20
T23A

002120

#170000,L $HIME

M8186
M8186, -(SP)
o1, -(SP)

005550
000001

1GET RESWLTS
10ID IT CHANGE?
1NO, MUST BE 11/238
1SET THE FLAG

1SUPERVISOR COULD BE WRONG
1BR 408 FOR RELEASE
s TELL THE SYSTEM TYPE

SP,RO

CSPNTF

000004

04,5P
408
1238

003142
012746
012746
010600
104417
062706
000207

oM8189
oM8189, -(SP)

005641
000001

tRETURN
1SET THE FLAG
1BR 408 FOR RELEASE
s TELL THE SYSTEM TYPE

SP,RO

CSPNTF

40%:

04 ,5P
PC

1RETURN

TSVS

GLOBAL

KTINIT

AREAS

MACRO M1200

23-MAR-84 09:44

SEQ 0107

- SETUP KT11 MEMORY MANAGEMENT REGISTERS

2853
2854

SBTTL

KTINIT

SETUP KT11 MEMORY MANAGEMENT REGISTERS

[

2855
2856
2857

tROUTINE TO INIT KT-11

2858
2859
2860
2861
2862
2863
2864
2865

2866
2867
2868
2869
2870
2871
2872
2873
2874
2875
2876
2877
2878
2879
2880
2881
2882
2883
2884
2885
2886
2887
2888

PAGE 67

KTINIT:

001577

KTFLG
KTENABLE
%:HIHE.01577

021162
177572

000004

024 ,80ERRVEC

002120
000177
000004

003126
003126

LSHIME ,KTFLG

005037
005037
023727

003126
003130
002120
000004

021160

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

021162
021166

012716
000002

021170

2s:

064,(SP)

021170

010037

000004

64:

RO, S80ERRVEC

021174

000207

9¢:

101444

021154

172340
077406

177740

SOERRVEC,RO

80SRO

0177 ,KTFLG

1$:

000200
002000

RO, S0ERRVEC
RO
OKIPARO,R1

077406, -40(R1)

RO,(R1).
#200,R0O

-~1

0177600, -(R1)
9

177600

INIT >28K MEMORY FLAG
INIT TEST >28K FLAG
GOT ENOUGH MEMORY (>28K)?
NO.
SAVE OLD ERR VEC PTR,
SET ERR VEC PTR.
GOT KT11?
(TRAP IF NO).
YES.

SET KT FLAG.

RESTORE OLD ERR VEC PTR.

RO = AR DATA,
R1 = KI REGS PTR,

SET DESCRIPTOR REG.
SET KIPAR REG.
BUMP AR DATA BY “4K",
AT “I/0"?
NO.
YES.

SET KTPAR7 FOR I/0.

SET UP RETURN

RTI TO NEXT LOCATION
RESTORE OLD ERR VEC PTR.

TSV3

GLOBAL AREAS

KTINIT

MACRO M1200

23-MAR-84 09:44

1e
'
!

gggz

3
1 INPUTS:

2897

2898

2899

2913 021244
2914
2915

The Extended Features Switch is set.

005737

001020
012737
012737
012737
012737

012704
004737

000207

002224

100206
021260
000006
100010

021250
010652

TST

021250
021252
021256
021260
18:

2920 021250
2921 021252

000000
000000

CMOPKT::

000000
000000

000000
000000
000000

OCMDOPKT R4
PC,WRTCHR

s SET CMDPKT INTO Ra
;s DO IT

RTS

MOV
JSR

gggg

14
9100206, CMDPKT
MISMBK ,CMOPKT +2
06 ,CMDPKT +6
€100010, WSMBK

COMMAND PACKET,

021250

2925

EXTFEA

BNE
MOV
MOV
MOV
MOV

223{3

2928 021260
2929 021262
2930 021264

CURRENT UNIT NUMBER

INVERT::

2233

2922 021254
ggz 021256

and WRTCHR have been done previous to call.

i -

2902
2903 021176

2911 021234
2912 021240

SOFINIT

2901

2906 021202
2907 021204
2908 021212
2909 021220
2910 021226

Requires that

1OUTPUTS::

2900

2905 021176

SUBROUTINE TO SET EXTENDED FEATURES SWITCH

2895
2896

2932

SEQ 0108

SETUP KT11 MEMORY MANAGEMENT REGISTERS

2890
ggg“l’

2931

PAGE 68

<,+3>E177774
O
0

(]
0

IS SWITCH SET?

3
3+
s
s
3+

YES,EXIT STAGE RIGHT!(or the next one outa town!)
WRT SUB-SYS MEM CMD
MSG BUF ADDR
BYTE COUNT
INVERT THE SWITCH

RETURN

stMUST BE ON MOD 4 BOUNDRY.
$11ST
12ND
s3RD
14TH

WORD IS TSOS COMMAND.
WORD IS THE BUFFER LOW ADDRESS.

WORD IS THE BUFFER HIGH ADDRESS.
WORD IS THE BYTE/RECORD/FILE COUNT.

WRITE SUB-SYSTEM MEMORY CHARACTERISTIC BLOCK.

WSMBK::

O
0
0

.EVEN

$11ST WORD::
12ND WORD::
1 3RD WORD::

SEL O
SEL 2
SEL 4

TSVS

GLOBAL AREAS

KTINIT

MACRO M1200

23-MAR-84 09:44

PAGE 69

F9
SEQ 0109

- SETUP KT11 MEMORY MANAGEMENT REGISTERS

2934
2935
2936
2937
2938
2939
2940

SUBROUTINE TO CHECK WETHER OR NOT WE'LL TEST NXM

i
3

1 INPUTS
sOUTPUTS::
:
The NXMFLG
B

2942

‘

021312

021314
021322
021324
021330
021332
021336
021340
021346
021350
021356
021360
021364
021366
021374
021376
021402
021410
021414
021416
021420
021420
021424
021430
021432
021434
2972 021440
2973
2974
2975
2976
2977
2978
2979
2980
2981
2982 021442
2983 021446
2984 021452
2985 021456

if we can test.

addresses are setup.

MEMCK
:;

021266

021266
021272
021276
021302
021306

is set

The NXMLO and NXMHI

005037
005037
005037
005737
001407
023727

103406
004737
000427
005737
001413
023727
101023
023727
103403
004737
000411

023727
103410
004737

062737
005237
000411
000410
012746
012746
010600
104417
062706
000207

003132
003134
003136
003142
002120

NXMFLG
NXMLO
NXMHI

1SAVE THE REGISTERS
1CLEAR THE FLAG
tCLEAR THE TEST ADDRESS LO
tCLEAR THE TEST ADDRESS HI

BEQ
cMP

1
L$HIME 07777

$NO
3+ GREATER THAN 128K

JSR
BR
TST
BEQ
cMP
BHI

PC ,NXMTST
138
T23A
44
LSHIME , 05777
14%

B8LO

1NO, CHECK 24k

L$HIME, 01577

1GREATER THAN 24K BUT LESS THAN 64K?

TST

007777

B8LO

021442

1$:

003140
002120

005777

002120

003777

2s:

cMP

021442

002120

001577

021442
000077
003132

003136

4%:

13%:
144

005454
000001
000004

SAVREG
CLR
CLR
CLR

15s:

JSR
BR
cHP

8LO
JSR
ADD

1238

LSHIME , 03777

PC NXMTST
13¢
148
PC ,NXMTST

«77 ,NXMHI

INC
BR
BR

NXMSLG
15¢
154

MOV

ONOMEM, -(SP)

PRINTF

MOV
MOV
TRAP
ADD
RTS

ONOMEM

01,-(SP)
SP,RO
CSPNTF
04 ,SP
PC

IS IT A 1172382

s NO

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

tGREATER THAN 64K BUT LESS THAN 92K?

1SETUP THE ADDRESS
$1SET THE FLAG AND EXIT

iNO, TELL THEM AND EXIT WITH FLAG CLEAR
1SETUP THE ADDRESS
sFOOL

THE

11702 €

;TELL

THEM & EXIT

1SET THE FLAG
1EXIT
iNOP FOR PRINTOUT

11703

#4aNO PRINTsssss

sRETURN

SUBROUTINE TO SETUP THE NXM ADDRESS FOR TESTING

sOUTPUTS
: NXMLO ,NXMHI

013701
062701
042701
01010¢c

002120
000200
000177

NXMTST:

MOV

ADD

BIC
MOV

L$HIME ,R1
©200,R1
0177,R1
R1,R2

1SETUP WITH NXM ADDRESS

1:GET

tMAKE

TOP OF MEMORY
IT

I/O0 BLOCK OR OTHER NXM

+RESAVE RESULTS

TSV3

- GLOBAL AREAS

KTINIT

MACRO M1200

23-MAR-84 09:44

PAGE 69-1

SETUP KT11 MEMORY MANAGEMENT
REGISTERS

000006

SEQ 0110

.REPT

ASL

021474

021524
021530
021534

021536

010137
000012
042702
010237
000207

003134

.ENDR

MOV
ASR

R1,NXMLO
10.
R2

MOV
RTS

R2,NXMHI
PC

.REPT

177700
003136

6
R1

.ENDR
8IC

ENDMOD

#177700,R2

1PUT IN PLACE FOR XFER
'SAVE TEST ADDRESS LOW
sPUT IN PLACE FOR XFER

sDON’T WANT ILA!

1SAVE TEST ADDRESS HIGH
tRETURN

H9
TSva

MISCELLANEOUS SECTIONS

KTINIT

MACRO M1200

2%-MAR-84 09:44

PAGE

- SETUP KT11 MEMORY MANAGEMENT REGISTERS

9 021536

" 021536
16

TSva::

.TITLE

TSv4 - MISCELLANEOUS SECTIONS

BGNMOD

TSv4

SEQ 0111

TSv4

MISCELLANEOUS SECTIONS

PROTECTION

MACRO M1200

23-MAR-84 09:44

19
PAGE

SEQ 0112

TABLE

18
19 021536
021536
20 021536
21 021546
22

.SBTTL
PROTECTION TABLE
BGNPROT

177777

L$PROT::

.WORD

ENDPROT

-1,

-1

tNO DEVICE PROTECTION REQUIRED.

TSv4

MISCELLANEOUS SECTIONS

MACRO M1200

23-MAR-84 09:44

PAGE

J9
73

SEQ 0113

INITIALIZE SECTION
24
25
26
27
28
29
30
31
32
33
34
35
36
37 021546
021546
38
39 021546
021546
021552
021556
021562
021566
021570
40
a1 021574

43
44
45
46
47

48
49

51
53
55

021600
021604
021612
021616
021622
021626
021626
021632
021634
021634
021636
021644
021646
021652
021654
021660
021662
021666
021670
021676
021700
021700
021702
021704
021704
021710
021712
021712
021714
021714
021720
021722

.SBTTL

INITIALIZE SECTION

joe

s THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED
+AT

THE BEGINNING OF EACH PASS.

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

: INSERT TEMPORARY JUMP TO 0DT
'-

LSINIT::

012746
012746
012746
012746
104437
062706

000340
170000

005037
005037
012737
005037
005037
005037

002224
003132
006354
003150
003130
002300

012700
104447

000036

103023
023737
103070
005737
100472
013701
006301
005761
001516
032761
001060

SETVEC

MOV
MOV
MOV
MOV
TRAP

000140
000003

000010

002200

ADD

40%:
002176

CcHP

002012

000035

C$SVEC

010,SP

EXTFEA
NXMFLG
OEPRT1 ,EPRTSW
SIFLAG

KTENABLE
RAMSIZ

OEF . CONTINUE
OEF . CONTINUE
,RO

18:

UNITN,LSUNIT

BMI
MOV

NXTU
UNITN,R1

BIT

003172

DUFLG

R1
ERTABL(R1)
SETU

oBIT14 ,ERTABL(R1)

BNE
EXIT
TRAP
.WORD
READEF
MOV
TRAP

NXTU
INIT
CSEXIT
L10030-.
©EF .NEW
OEF .NEW,RO
CSREFG

READEF

@EF .START

TRAP

CS$REFG

103052

BNCOMPLETE NXTU
NXTU
8CC

012700

MOV

104447

1SET UP PRIMARY MESSAGE FOR REPLACEMENT
tCLEAR

"SOFT INIT" FLAG

:CLEAR TEST ABOVE 28K FLAG
;CLEAR RAM SIZE FOR RAMERR ROUTINE

CSREFG

ASL
TST
BEQ

003172

;JB REV A-0

;0DT ROM ADDRESS

9170000, -(SP)

BHIS
TST

104432

012700
104447

€140,0170000,
#34C

BNCOMPLETE 1
1
8CC

002200

000416

CLR
CLR
MOV
CLR
CLR
CLR

READEF
MOV
TRAP

003106

040000

BGNINIT

OEF ,START
RO

BCOMPLETE 2¢

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

:DROPPED?
;00 NOTHING IF “CONTINUE".

: TAKE NEXT

UNIT

IF NOT NEW PASS.

TSva

MISCELLANEOUS SECTIONS

MACRO M1200

K9
23-MAR-84 09:44

PAGE

73-1

SEQ 0114

INITIALIZE SECTION

021722

64 021724
021724

021730
65 021732
021732
66 021734
67 021734
021734
68 021736
69 021742
70 021746
71 021752

72
73
74
75 021756
76 021762

77
78
79
80
81
82
83
84
85
86
87
88
89
90
921

111

021762
021770
021774
022000
022004
022006
022012
022014
022016
022022
022026
022026
022034
022040
022040
022042
022046
022054
022056
022064
022066
022066
022070
022072
022072
022100
022102
022106
022110
022110
022112
022116
022120
022120
022122
022124

103404
012700
104447

8Cs

READEF

MOV

000037

TRAP

103031

2s:

@EF ,RESTART

OEF .RESTART,RO

CS$REFG

BNCOMPLETE 31%
8CC
314

002212
002220
003140
003142

BRESET
TRAP
CLR
CLR
CLR
CLR

TSTCNT
FATFLG
T23A
17238

005037

003374

MOV
JMP
CLR

0208, -(SP)
0.00T7
SKIPT

012737
004737
004737
012700
005020
020027
103774
000404
005037
000137

177777

JSR
JSR
MOV
CLR
cMP
BLO
BR
CLR
JMP

PC,.ENVIRN
PC,KTINIT
#ERTABL ,RO
(RO)»
RO, #ERTABE
30¢
4%
QvpP
PASRPT

104433
005037
005037
005037
005037

012737
005037

104422
005237
023737
103423
012737
000401

020620
021044
003172

104421
032700
001343

104424
000741

31%:

002202
022072

177777
002216

20%:

30%:

003372

002200

NEWPAS: MOV

NXTU:

002200
002200

002012

177777

003106

104444
000240

023727
101752
005737
001747

002202

TRAP
INC

CMP

11%:

002012

CLR
BREAK

PASRPT:

BLO
MOV
BR
DOCLN
TRAP
NOP

CcMP

BLOS
TST
BEQ

002216

RFLAGS

TRAP
BIT
BNE

000100

DORPT
10%:

TRAP
BR

CSRESET

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

tNUMBER OF TESTS RUN IN PASS
1CLEAR FATAL ERROR COUNT
tCLEAR 11/23A FLAG
1CLEAR 117238 FLAG

;RETURN TO DEBUGGER
; s BBENTER THE DEBUGGER
:CLEAR THE SUBTEST "SKIPPER"
i...QUICK VERIFY,.
..
$SET _ENVIRONMENT.
s INITIALIZE KT MEMORY MANAGEMENT
;CLEAR THE ERROR TABLE

;GO REPORT THE STATUS

@-1,UNITN
DEVCNT

s INIT UNIT NUMBER...
;:CLEAR COUNT OF DEVICES RUNNING

C$BRK
UNITN

3...AND SET NEXT UNIT NUMBER.

UNITN,LSUNIT
SETV
#-1,0UFLG
11$

CS$DCLN

LSUNIT,
01
NEWPAS
DEVCNT
NEWPAS

CSRFLA
#ISR,RO
NEWPAS
CSDRPT
NEWPAS

:ABORT, NO MORE UNITS.

1HOW MANY UNITS SELECTED?
;BR IF ONLY 1
tARE ANY

1BR IF NO

STILL RUNNING?

1 SHOULD WE PRINT STATISTICS
1BR IF NO

TSv4

MISCELLANEOUS SECTIONS

MACRO M1200

23-MAR-84 09:44

PAGE

7 3-2

SEQ 0115

INITIALIZE SECTION
112 022124

022124
022130

013700
104442

022132

103342

113 022132
114 022134

115 022140
116 022144
{%Z 022146
119 022152
120
121
122 022154
123 022160

{gg 022164

005037

005237
012001
010137

SETU:

002200

003106

002216
002204

012001

010137
012721
013721

002206
016206
002210

GPHARD

MOV
TRAP

126 022170

18:

128
129

tGET UNIT N P-TABLE POINTER.

UNITN,RO
C$GPHRD

BNCOMPLETE NXTU

1BR IF UNIT NOT AVAILABLE.

CLR

1CLEAR "DROPPED" FLAG.

8CC

NXTU

INC
MOV
MOV

DEVCNT
(RO)+,R1
R1,CSRADDR

DUFLG

MOV
MOV
;s MOV
MOV
MOV

(RO)+,R1
(RO),R2
R2,IPRI
R1,IVEC
QINTR,(R1)»

TST

QvP

MOV

127

UNITN,RO

BEQ

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

+GET VECTOR ADDRESS.

1GET INTERRUPT PRIORITY
$SET INTERRUPT PRIORITY.

lSET INTERRUPT VECTOR POINTER...
.VECTOR.
.AND PRIORITY,

IPRI,(R1)+

+1ST PASS 2?2
tNO, SKIP THE PASS 1 STUFF,

130

igg

s THAT THE DISPLAY STATUS IS PROPERLY INITIALIZED.

131

:1ST PASS,

134 022170
135
136
137
138
139
140

022174
022176
022204
022210
022216
022220
022220

013701

006301
052761
005037
023727
101416
104421

100000
005766
002012

141 022222
142 022226
143 022230
022230

032700
001412

001000

013746

002200

022240
022244
022246
022250
022254
022254
022260
022264
022266
022272

012746
010600
104417
062706

000002

022234

144
145
146
147
148
149

150 022276
151 022300
152 022304
153 022312

012746

005037
013701
010102
062702
004737

103005
010137
012737

003172

000001

BIT
BEQ
PRINTF
MOV

MOV

000006

10%:

003110
002204
000002
016366

003110
177777

003106

{2532

MOV

ASL
BIS
CLR
cMP
BLOS
RFLACS
TRAP

022322

154

157 022312
022312

002200

000000

Ss:

R1
#BIT1S,ERTAB L(R1)
EXTA
LSUNIT, 01
10¢
RO
CSRFLA
OPNT RO
10¢
@PUNIT,UNITN
UNITN, -(SP)

1SAY DEVICE RUNNING

;:CLEAR ERROR EXTENSION FLAG.
;ARE WE

TESTING MULTIPLE UNITS?

:BR IF NO.
tYES

-- GET OPERATOR FLAGS.

;SHOULD WE PRINT UNIT #?
:BR_IF NOT
{PRINT

THE UNIT

CLR
MOV
MOV
ADD
JSR

NODEV
CSRADDR,R1
R1,R2
#TSSR,R2
PC, XNXM

2
R1,NODEV
¢-1,DUFLG

s+ADDRESS OF FIRST REGISTER
1START OF REGISTERS
s+ADDRESS OF TSSR REGISTER

s TEST BOTH CONTROLLER REGISTERS...
i...AND BR IF ALL OK.
tFLAG DEVICE AS NON-EXISTENT
1DROP THIS UNIT.

SET CPU PRIORITY Al ND WE'RE DONE.

SETPRI
MOV

OPUNIT, -(SP)

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

B8CC
MOV
MOV

AND

UNITN,R1

MOV
MOV
TRAP
ADD

sFINALLY,

012700

CHECK THAT DEVICE ADDRESSES ARE VALID,

#&PRIOO
#PRIOO,RO

tENABLE INTERRUPTS,

M9
TSv4

MISCELLANEOUS SECTIONS

MACRO M1200

23-MAR-84 09:44

PAGE

73-3

INITIALIZE SECTION

022316
158 022320

10444)1

022320
199 022320

104411

160 022322

045

161

L10030:

116

045

PUNIT:

TRAP
C$SPRI
ENDINIT
TRAP

CSINIT

,ASCIZ

/#NsNsAsssss TESTING UNIT #D2#A sssss/

.EVEN

SEQ 0116

TSvV4

- MISCELLANEOUS SECTIONS

MACRO M1200

23-MAR-84 09:44

PAGE 74

SEQ 0117

ADD AND DROP UNITS SECTIONS

163
164
165
166
167
168
169
170 022370
022370
171 022370
172 022372
173 022374
174 022402

175 022410
022410
022412
022416
022422
022424
022426
176 022432
022432
022434
177 022436

022464
022464
022464

.SBTTL

ADD AND DROP UNITS SECTIONS

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

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

L$AU::

010001

052761
042761
010046
012746
012746
010600

104417
062706

100000
040000

003172
003172

022436
000002
000006

116

045

1$:

L10031:

104452

MOV
ASL
BIS
BIC

PRINTF
MOV

000167

045

BGNAU

MOV
MOV
MOV
TRAP
ADD
EXIT
LWORD
.WORD

.ASCIZ

.EVEN

RO,R1
R1
€100000,ERTABL(R1)
©40000,ERTABL(R1)

@1%,RO
RO, -(SP)
#1%,-(SP)
#2,-(SP)
SP,RO
CS$PNTF
06,SP
AU

JsUMP
L10031-2-.
/#Ns#A

ENDAUV
T

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

UNIT #Ds#A ADDED/

: UNUSED.
CsAv

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

TO BE REMOVED FROM THE TEST LIST.

SUPVSR DOES THE “DROPPING”.
THIS IS JUST TO TELL THE MAN.
“DROPPED"” UNITS ARE RE-SELECTED ON OPERATOR “STA” OR “ADD"
COMMAND, OTHERWISE REMAIN INACTIVE.
THE “DISPLAY” COMMAND
WILL PRINT ALL DROPPED UNITS, AND THE P-TABLES OF THOSE
WHICH ARE STILL ACTIVE.
UPON ENTRY, RO CONTAINS THE UNIT TO BE DROPPED.
022466
022466
022466
022474
022476
022500
022506
022514
022514
022516
022522
022526
022530
022532
199 022536
022536
022540

012737
010001
006301
052761
000240

010046
012746
012746
010600
104417
062706
000167
000030

177777

003106

140000
000240

003172
000240

022542
000002

L$DU:;

BGNDU
MOV
MOV
ASL

BIS
#140000,ERTABL(R1)
240,240,240

PRINTF

MOV
MOV

MOV

000006

#-1,0UFLG
RO,R1

TRAP
ADD
EXIT

.WORD
.WORD

&1%,.RO

RO, -(SP)
018, -(SP)

SP,RO

CSPNTF
06 ,SP
[v]V}

JS$JMP
L10032-2-,

:
3

SAY DROPPED
727722

TSva

- MISCELLANEOUS SECTIONS

MACRO M1200

23-MAR-84 09:44

B10O
PAGE

74-1

SEQ 0118

ADD AND DROP UNITS SECTIONS
200 022542
201
202 022572
022572

022572

203
204
205
206 022574
207
208
209
210
211

212
213
214
215
216

045

116

045

14:

L10032:

104453

.ASEIZ
.EVEN
ENDDUV

/8NSA

TRAP

Ccsov

UNIT #DsA DROPPED/

s+ AUTO-DROP CODE SECTION.
.-.

013705
012703
004737

103420

012727
000000
013727
000000
005367
001375
005367
001367
005303
001357
004737

104461

002204
000550
016240

LSAUTO::

108

000372

BGNAUTO

JSR
BCS
DELAY
MOV
.WMORD

MOV

002116

PC,WAITF
204
250.

0250, ,(PC)»

I6.0LY.(PC)0

177772

DEC

177756

DEC

-22(PC)

DEC

JSR

PC,CKDROP

017172

20%:

L10033:

-6(PC)

o '.

. '20

104

ENDAUTO

TRAP

tPOINT TO DEVICE REGISTER
1ENOUGH TIME FOR 2400' REEL TO REWIND
tWAIT FOR SSR TO SET
1LEAVE WHEN SSR IS SET
IWAIT FOR .25 SECONDS

1BUMP COUNTER DOWN

1KEEP GOING
1 TRY AND DROP UNIT

3 UNUSED.
CsAUTO

TSva

MISCELLANEOUS SECTIONS

MACRO M1200

23-MAR-84 09:44

PAGE

Cl0
75

SEQ 0119

CLEAN-UP AND REPORT CODING SECTIONS
218
219
220
221
222
223
224
225

.SBTTL

CLEAN-UP AND REPORT CODING SECTIONS

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

226

227

228
229

230
231
232
233
234

013705
005737
100405

003106

012765
004737

000000
016240

002204

104412

235

000002

PC.WAITF

TRAP

CSCLEAN

18:
24:
ENDCLN
L10034:;

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

l...AND GROSS CONTROLLER FAULT,
3...DON'T TRY TO XCT CLEANUP COOE.

MOV
JSR

0, TSSR(RS)

100 SOFT INIT

+ THE REPORT CODING SECTION CONTAINS THE
3 “PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS.
'--

LSRPT::
012746

023144
000001

BGNRPT
PRINTS

ODEVSUM
QDEVSUM, -(SP)

SP,RO
CSPNTS

000004

003172

18:

040000

oBIT14,R2
24
etC7777,.R2
ODEVONL ,R3,R2

170000

023201
000003

010346
012746

®DEVONL
, -(SP)

COPNTS

2%:

cMP

010,SP
48

53.0160000
ODEVNXR,R3

023251

WAS UNIT DROPPED?

BR IF YES
GET ERROR COUNT FIELD

63,-(SP)
SP,RO

000010

160000

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

MOV

022742

022744
022750
022752
022756
022756
022760
022762
022766
022772
022774
022776
253 023002
023004
255 023010
256 023012
023012
023014

CSRADDR ,RS

236
237
238
239 022702
240 022702
022702
022706
022712
022714
022716
022722
222724
022726
022730
022734
022736
022740

BGNCLN
LSCLEAN::
MOV
TST
BMI

R3, -(SP)

ODEVNXR, -(SP)

WAS UNIT NON-EXISTENT?

BR IF NO

TSva

- MISCEL.LANEOUS SECTIONS

MACRO M1200

23-MAR-84 09:44

PAGE

D10
75-1

SEQ 0120

CLEAN-UP AND REPORT CODING SECTIONS
012746
010600

104416
062706
000431
020227
001012

257

259

010346
012746
012746
010600
104416
062706
000414
042702

261

263

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

271
272
273
274
275
276
277
278
279

023142
023144
023201
023251
023333
023414

281 023464
282
283

02, - (SP)
SP,R
COPNTS
.SP

000002
000006

160001

R2.0160001
304
@DEVNRD,R3S

023333
000002

@DEVNRD, - (SP) 4
02,-(SP)

170000

44
orC7777,.R2

30%:

@DEVDRO,R3,R2

R3, -(SP)

@DEVDRO, -(SP)

023414
000003
000010
000002

SP,RO
CSPNTS
#10,5P

02,.R4
R3

';:.OERTABE

003372

(SP)+,R4
(SP)+,R3
(SP)+,R2
L10035:

104425
116
101
101
101
101

SP,RO

COPNTS
06,SP

000006

3+ WAS UNIT NOT READY AT STARTUP?
s BR IF NO

DEVSUM:
DEVONL:
DEVNXR:
DEVDRO:

{

3 UNUSED.

CSRPT
/#NSADEVICE STATUS SUMMARY :s#N/

/8A
/#A
/#A

/#A

UNIT #D3s%A
UNIT #D3sA
UNIY #D3#A

UNIT #D3#A

ERRORS = sD#N/
ONLINE,
DROPPED, NON-EXISTENT REGISTERsN/
DROPPED, NOT READY AT STARTUPSN/
DROPPED,

ERRORS = wDsN/

TSVSA

- HARDWARE

TESTS

MACRO M1200

23-MAR-84 09:44

PAGE

EL1O
SEQ 0121

CLEAN-UP AND REPORT CODING SECTIONS
5
]
10 023464

. 023464
24

TSVS::

.TITLE

TSVSA

BGNMOD

TSVS

- HARDWARE TESTS

TSVSA

- HARDWARE

TEST

TESTS

BUS RESET

MACRO M1200

23-MAR-84 09:44

PAGE

F10

SEQ 0122

TEST

.SBTTL

TEST

BUS RESET TEST

SR
29

31
32
33

s
'
:

BUILT-IN INITIALIZATION SELF-TEST MICRODIAGNOSTIC DID NOT FIND
ANY BASIC PROBLEMS IN THE MODULE.
AREAS OF LOGIC TESTED BY THE
SELF-TEST SEQUENCE ARE AS FOLLOWS:
ROM AND PIPELINE REGISTER,

TEST INITIALIZES THE CONTROLLER BY ISSUING THE BUS INIT SIGNAL

;

LT3

;

37
38
39

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

ACCESSIBLE ON THE BUS (SUBTEST 1) AND THEN CHECKS THAT THE
SEQUENCER, INTERNAL BUSES, 2901 MICROPROCESSOR, AND, RAM.

THIS

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

LISTING

THE ERROR REPORT ANALYZES THE TSSR CONTENTS AND DISCERNS AND

40
a1
a2
43

:
'
:
:

:‘7’

a8
49

:
:

INDICATED BY SUBSYSTEM READY (SSR) AND NEED BUFFER ADDRESS (NBA)
BITS BEING SET (1) AND ALL OTHER BITS (EXCEPT A17 AND A16 AND
OFL, WHICH ARE IGNORED FOR THIS TEST) BEING CLEAR (0).
IF THE
CONTENTS OF TSSR ARE NOT AS EXPECTED, AN ERROR REPORT IS ISSUED
THE

REPORTS ONE

EXPECTED DATA,

ACTUAL

DATA,

AND

THE

DISCREPANCIES.

THREE POSSIBILITIES:

TSSR CONTENTS ARE AMBIGUOUS (ANY OF BITS

APPARENT ERROR CODE IN BITS 0-S5):

;

TSSR CONTENT CANNOT BE TRUSTED.

REPLACE

ERROR (EXECUTION IS ABORTED).

:
:

THE M7196 ITSELF IS BEING

ERROR ENABLED IN ORDER TO PROBE FOR THE PROBLEM.

THE M7196.

THIS IS A FATAL

FIELD ACTION WOULD BE TO

DEBUGGED, THE PROGRAM SHOULD BE RESTARTED WITH LOOP ON

60
61

SET,

INDICATES THAT THE

CATASTROPHIC CONTROLLER MALFUNCTION.

ARE

INDICATES A

;

11-14

OR STATES OF SSR AND SC BITS DO NOT CORRESPOND TO THE

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

THE RANGE 17-13:
THIS IS A FATAL ERROR.
THE ERROR
CODE IS DECODED AND THE APPROPRIATE DESCRIPTION GIVEN.

INDICATES THAT A SERIOUS PROBLEM EXISTS.

65 023464

023464

70 023464

71 023470
72 023474

73 023502

;; 023502

BGNTST

012700
004737
012737

023662

016500
000024

o 023504

78 023506

023506

79 023510

80 023514
81 023520
82 023522

002214
T1LOOP:

005003

76 023504

023504

MOV

T1::

JSR
MOV

@TST1ID,RO

PC,TSTSETUP
020. ,LOOPCNT

;ASCIT MESSAGE TO IDENTIFY TEST

CLR

tUSE R3 AS FATAL ERROR FLAG

BGNSUB

;00 INITIAL TEST SETUP
sPERFORM 20 ITERATIONS

82/////7/7/77777 BEGIN SUBTEST

T1.1:

104402
104433

004737

016501
010102
042702

BRESET
016240

000002
176277

JSR

MOV
MOV
BIC

;ISSUE A BUS RESET
PC,WAITF

TSSR(RS),R1
R1,R2
0tC<HIADDR!OFL > ,R2

iWAIT FOR READY

////7/777777

TRAP

Cs8SuB

TRAP

CSRESET

tGET THE CONTENTS OF TSSR
;CONTENTS OF TSSR
:THESE BITS MAY BE SET

TSVSA

TEST

HARDWARE

TESTS

MACRO M1200

23-MAR-84 09:44

G10
PAGE

78-1

SEQ 0123

BUS RESET TEST

83 023526
023532
85 023534
89 023536
023536
023540
023542
023544

023546
91 023550
92 023550
023550
023550
93

052702
020102
001405

002200

8IS
CMP
BEQ

ERRDF

104455

000145
003701
012072
005203

104403

10%:

INC

ENDSUB

OSSR !NBA ,R2
R1,R2

104
ERRNO, SFHERR, SFFMSG

sREADY AND NEW DATA SHOULD BE SET

1COMPARE EXPECTED TO RECEIVED
1BRANCH IF COMPARE

+PEPORT A FATAL ERROR

CS$ERDF
101
SFHERR

SFFMSG

;SET THE FATAL ERROR FLAG
S NANANNANNANNANN END SUBTEST

L10037:;

NANNANNNNNNNL

TRAP

CSESUB

TSVSA

TEST

HARDWARE

TESTS

MACRO M1200

23-MAR-84 09:44

PAGE

SEQ 0124

BUS RESET TEST
023552
023554
023556
023562
023564
023564
023564

023566
023572
023576
023602
023604
023610
023614
023616
025620
023620
023622
023624
023626
115 023630
116 023632
117 023632
023632
023632
118
119
023634
121 023636
122 023640
123 023644
124 023650
125 023652
126 023656
023656
023660
127
128
129

005703
001402
004737
005003

017172

20%:

TST
BEQ
JSR
CLR

R3
204
PC,CKDROP
R3

BGNSUB

052702
020102
001405

1.2:

000002
016240
000002

CLR
JSR
MOV
MOV
B8IC

176277
002200

BIS
CMP
BEQ
ERRDF

104455
000146
003646
012072
005203
10¢:

INC

TSSR(RS)
PC,WAITF
TSSR(RS5),R1
R1,R2
0tC<HIADDR!OFL>,R2
OSSR !NBA,R2
R1,R2
104
ERRNO,SFIERR,SFFMSG

ENDSUB

TRAP

017172
016446

208:

023502

40%:

104432
000022

R3
204
PC,CKDROP
PC,TSTLOOP
408
T1LOOP
TST

csBsuB

tWAIT FOR READY TO SET

1GET REGISTER TSSR DATA

sCONTENTS OF TSSR
s THESE BITS MAY BE SET

sREADY AND NEW DATA SHOULD BE SET

1 COMPARE EXPECTED TO RECEIVED
:BRANCH IF COMPARE

+REPORT A FATAL ERROR

TRAP

.WORD
.WORD
.WORD

1SET THE ERROR FLAG

SUBTEST

L10040:

TST
BEQ
JSR
JSR
8CC
JMP
EXIT

/777777777277

tWRITE TO ISSUE A SOFT RESET

$ MANNNANANNANANNANANN END

104403
005703
001402
004737
004737
103002
000137

tRESET FATAL ERROR FLAG

8/ /7777777777 BE$IN SUBTEST

104402

005065
004737
016501
010102
042702

1DID WE HAVE FATAL ERROR ?
1BRANCH IF NOT
1GO DROP THIS UNIT, IF ALLOWED

sFATAL ERROR DETECTED

CS$ERDF

102
SFIERR
SFFMSG

NNNNANNANLNLL

TRAP

CSESUB

:BRANCH IF NOT
+SEE IF TIME TO DROP UNIT
1SHOULD WE DO ITERATIONS ?
:BRANCH IF NOT
sLOOP UNTIL COUNT EXPIRED
sALL DONE THIS TEST

TRAP

CSEXIT

.WORD

L10036-.

TRAP

CSETST

sLOCAL TEXT MESSAGES FOR TEST
‘.

131
132 023662
133
134 023702
023702
023702
135
136

111

156

151

TST1ID:

.QSE{Z
.EVEN

‘Initialization’

ENDTST
104401

L10036:

TSVSA

- HARDWARE

TEST

TESTS

WRAP DATA

MACRO M1200

23-MAR-84 09:44

110

PAGE 80

SEQ 0125

HIGH BYTE

lgg

.SBTTL

1
140
141
142
143
144

:
H
H
3
H
:

145
146

147

TEST

- HIGH BYTE

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

MODULE:
PART OF THE INPUT FILE (TSDB HIGH BYTE), PART
OF THE OUTPUT FILE (TSSR HIGH BYTE AND TSBA, BOTH

BYTES),

:
H

{gg

WRAP DATA

THIS TEST VERIFIES OPERATION OF:

148
149

PART OF

THE DCOOS

TRANSCEIVER CIRCUITS (ADDRESS

DECODER, BDAL DRIVERS, HIGH BYTE OF INTERNAL DAL BUS
DRIVERS), AND BASIC PROGRAMMED I/O CONTROL SEQUENCES

AND LOGIC;

152

lgz

1
157

:
:

122

PART OF 2901 MICROPROCESSOR ELEMENTS (Q-REGISTER,

158

Y AND SOURCE BUSES;
4.

123
1
161
162
163

H
H
H
3
:

165

164

166

167
168

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 MODULE IS FUNCTIONING CORRECTLY IF

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

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

TSSR IS CORRECT (SAME AS AFTER INITIALIZATION EXCEPT FOR BITS

169

:
3
:

LISTS LIKELY FAULTY CANDIDATES FROM THE LOGIC ELEMENTS LISTED

{;21‘

BYTES (0-377 OCTAL).

170

173 023704
178
179
180
181
182
183
184
185
186
187
191
192

023704

023704
023710
023714
023722
023724
023730
023732
022734
023736
023742
023744
023746
023746
023750
023752
023754
193 023756
{g 023760

196 023764

012700
004737
012737
005004
012703
005703
001412
005003
004737
103406
010001

024352
016500
000024

177777

015764

104455
000311
003646
012024

005203
005037

002220

002214

WRITTEN.
AN ERROR IS REPORTED AND A DESCRIPTIVE ANALYSIS GIVEN
IF A DISCREPANCY IN TSBA OR TSSR IS DETECTED.
THE ANALYSIS

ABOVE.

BGNTST

MOV
JSR
MOV
T2L00P: CLR
MOV
Ss:
TST
BEQ
CLR
JSR
B8CS
MOV
ERRDF

10%:

THE TEST IS REPEATED FOR ALL COMBINATIONS OF TEST DATA

INC

CLR

BGNSEG

@TST2ID,RO
PC,TSTSETUP
020. ,LOOPCNT
R4
€-1,R3
R3
10¢
R3
PC,SOFINIT
10
RO,R1
ERRNO, SFIERR,

FATFLG

T2::

SFIMSG

1ASCII MESSAGE TO IDENTIFY TEST
;00 INITIAL TEST SETUP
;PERFORM 20 ITERATIONS
:STARTING DATA PATTERN
;00 INIT ON FIRST TIME THROUGH
;100 WE NEED SOFT INIT
1BRANCH IF NOT
;DON'T NEED INIT NEXT TIME THRU
100 SOFT INIT OF CONTROLLER
1BR IF SOFT INIT = OK
1 SAVE CONTENTS OF TSSR
;DEVICE FATAL ERROR DURING INIT
TRAP
. WORD
.WORD
.WORD
s1FORCE SOFT INIT ON NEXT PASS
1CLEAR FATAL ERROR FLAG
$22>>>>33>>>> BEGIN SEGMENT

CSERDF
201
SFIERR
SF IMSG

>>3>3>3>3>3>3>>>5>>

TSVSA

TEST

HARDWARE

TESTS

WRAP DATA

104404

023766
199 023772
023776
201 024000
202 024002
024004
024004
024006
024010
024012
207 024014
208 024016
209 024022
024022
210 024024
211 024030
212 024032
213 024036
214 024040
215 024044
216 024046
217 024052
218 024056
219 024062
024064
221 024070
222 024072
226 024074

110465
004737

024074
024076
024100
024102
227 024104
228 024106
024106
229 024110
024114
231 024116

232 024120
233 024122
024124
235 024126
239 024130

024130
024132
024134
024136
240 024140
241
242 024142
024142
024142
243
244 024144
245 024146

23-MAR-84 09:44

PAGE 80-1

J10
SEQ 0126

- HIGH BYTE

023764

197

MACRO M1200

103411

TRAP

000001
016240

010001
010402

104455
000312
024300
015464
005203
005237
104406
005737
001402
004737
010402
042702
000302
052702
016501
032701

001402
052702
020201
001405

002220

104406
016501
005002
150402
000302
150402

$SET MAINT MODE ¢+ WRITE DATA

RO,R1
R4 ,R2

1 SAVE CONTENTS OF TSSR

15¢

tWAIT FOR SSR TO SET
1BR IF CARRY SET (GOOD RETURN)

ERRNO,
T2SSR ,EXPREC

1DATA THAT WAS WRITTEN
sDEVICE FATAL SSR FAILED TO SET

R3
FATFLG

15¢:

;FORCE SOFT INIT ON NEXT PASS
$1SET FATAL ERROR FLAG
;LOOP ON ERROR, IF FLAG SET
TRAP
s1WAS FATAL ERROR RECEIVED ?

017172

PC,CKDROP
R4 ,R2

;BRANCH IF NOT
;SEE IF TIME TO DROP UNIT
;:DATA PATTERN WRITTEN

OSSR !NBA,R2
TSSR(RS),R1

;:GET THE CONTENTS OF TSSR

177774

204

20%:

35C<BITO!BIT1>.R2

002200
000002
000100
000100

00FL ,R1
254
Q0FL ,R2

R2,R1
304

25%:

ERRNO, T2TSSR,EXPREC

30%:

;BRANCH IF NOT OFF -LINE
:SET OFF-LINE IN EXPECTED DATA
;1DOES EXPECTED MATCH RECEIVED ?
;OKAY IF MATCH
;1TSSR WASN'T CORRECT
TRAP
.WORD

000314
024166
015464
005203

INC

.WORD

TRAP

CsCLP1

TSBA(RS),R1
R2

:GET TSBA REGISTER CONTENTS

35%:

:DATA PATTERN WRITTEN
+MOVE INTO TOP BYTE
:B0TH HALVES SHOULD BE SAME

:COMPARE EXPECTED TO RECEIVED
;ERROR IF NOT EQUAL

+PRINT THE ERROR & EXPD/RECV
TRAP

.WORD
.WORD
.WORD

:FORCE SOFT INIT ON NEXT PASS
END

SEGMENT

10000¢:

104405
INCB
BNE

jecccccccccccc

ENDSEG

-1

CsCLP1

C$ERHRD
203
T2TSSR
EXPREC

:FORCE SOFT INIT ON NEXT PASS
;LOOP ON ERROR ?

354
ERRNO, T2TSBA ,EXPREC

T2SSR
EXPREC

+IS OFF-LINE BIT SET ?

R4 ,R2
R2
R4 ,R2
R1,R2

CS$ERDF
202

;CLEAR ALL BUT LOW 2 BITS
;1BITS 8 AND 9 HAVE LOW DATA BITS
: THESE BITS MUST BE SET ALSO

.WORD

104456

105204

.WORD
.WORD

FATFLG

020102
001405

001270

TRAP
.WORD

002220

104456

000313
024233
015464
005203

R4, TSDBH(RS)
PC,WAITF

C$BSEG

EXPREC

ccccccccccccc

TRAP

iNEXT DATA PATTERN TO TEST
1BRANCH TILL BACK TO ZERO

CS$ERHRD

204
T2TSBA

CS$ESEG

HARDWARE

TESTS

WRAP DATA
024150
024154
024156
024162
024162
024164

MACRO M1200

23-MAR-84 09:44

K10
PAGE 80-2

SEQ 0127

- HIGH BYTE

004737
103002
000137

016446

023722

40%:

104432

JSR
8CC
JMP

EXIT

PC,TSTLOOP
40%
T2L00P
TST

000214

1SHOULD WE DO ITERATIONS ?
$BRANCH IF NOT
sLOOP UNTIL COUNT EXPIRED
sALL DONE THIS TEST
TRAP
.WORD

CSEXLT

L10041-.

i ¢

tLOCAL TEXT MESSAGES FOR TEST
'-

024166
024233
024300
024352

124
124
116
127

024400
024400
024400

104401

123
123
157
162

102
123
141

T2TSBA:
T2TSSR:
T2SSR:
TST2ID:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.EVEN
ENDTST

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

L10041:

TRAP

CSETST

TSVSA

- HARDWARE

TEST

TESTS

WRAP DATA

264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291 024402
024402
024402
024406
024412
024420
024422
024426
024430
024432
024434
024440
024442
024444
024444
024446
024450
024452
311 024454
312 024456
313
314 024462
024462
315
316 024464
317 024470
318 024474
319 024476
320 024500
324 024502

MACRO M1200

23-MAR-84 09:44

L10

PAGE 81

SEQ 0128

- LOW BYTE

.SBTTL

TEST

3: WRAP DATA - LOW BYTE

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

LOW BYTE OF THE TSDB INPUT FILE REGISTER,

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

BASIC FUNCTIONING OF PARTS OF THE RAM,

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

DATA WRITTEN APPEARS IN BOTH BYTES (¥ 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
THE ANALYSIS
IF A DISCREPANCY IN TSBA OR TSSR IS DETECTED.
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
012700
004737
012737

005004
012703
005703
001412
004737
103406
010001

104455
000455
003646
012024
005203
005037

025045
016500
000024

002214

T3LOOP:

S$:

015764

002220

10%:

MOV
JSR
MOV

CLR

MOV
TST
BEQ
CLR
JSR
8CS
MOV
ERRDF

@TST3ID,RO
PC,TSTSETUP

;30..LOOPCNT

T3::

sASCII MESSAGE TO IDENTIFY TEST
100 INITIAL TEST SETUP
;:PERFORM 20 ITERATIONS

ERRNO, SFIERR, SFIMSG

:STARTING DATA PATTERN
:FORCE SOFT INIT ON FIRST PASS
:SET IF INIT IS REQUIRED
:BRANCH IF NO INIT NEEDED
sASSUME NO INIT NEEDED ON NEXT LOOP
;D0 SOFT INIT OF CONTROLLER
;BR IF SOFT INIT = OK
:SAVE CONTENTS OF TSSR
;:DEVICE FATAL ERROR DURING INIT

R3
FATFLG

:FORCE INIT ON NEXT PASS
:CLEAR FATAL ERROR FLAG

¢1,R3
R3

104

R3
PC,SOFINIT
104
RO,R1

$22>>33>3>>>3>>>

BEGIN

SEGMENT

104404
110465
004737
103411
010001
010402

TRAP
.WORD
.WORD
.WORD

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

TRAP

000000
016240

R4,TSDB(RS)
PC,WAITF

15¢

RO,R1
R4 ,R2

ERRNO, T3SSR,EXPREC

:SET MAINT MODE + WRITE DATA
tWAIT FOR SSR TO SET

1BR IF CARRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR
1DATA THAT WAS WRITTEN

CSERDF
301
SFIERR
SFIMSG

;DEVICE FATAL SSR FAILED TO SET

C$BSEG

TSVSA

- HARDWARE TESTS

TEST

WRAP DATA

024502
024504
024506
024510
024512
024514
024520
024520
024522
024526
024530
024534
024536
024542
024544
024550
024554
024560
024562
024566
024570
024572
024572
024574

024576
024600
024602
024604
024604
024606
024612
024614
024616
024620
024622
024624
024626
024626
024630
024632
024634
024636

MACRO M1200

PAGE 81-1

SEQ 0129

- LOW BYTE

104455

000456
024774
015464
005203
005237

104406

005737
001402
004737
010402
042702
000302
052702
016501
032701
001402
052702
020201
001405

CS$ERDF
302

002220

15¢:

002220
017172

177774

20%:

002200
000002
000100
000100

25%:

104456
000457

024730
015464
005203

T3SSR
EXPREC

INC
INC
CKLOOP

R3
FATFLG

sFORCE INIT ON NEXT PASS

TST
BEQ
JSR
MOV
BIC
SWAB
BIS

FATFLG

+DID WE GET FATAL ERROR ?
1BRANCH IF NOT
sOROP UNIT, IF DROP ALLOWED
1+DATA PATTERN WRITTEN

BIT
BEQ
8IS
BEQ
ERRHRD

20¢
PC,CKDROP
R4 ,R2

;£C<BITO!BIT1>.R2
OSSR!NBA,R2
TSSR(RS),R1
00FL ,R1

254
Q0FL ,R2

R2,R1
30¢
ERRNO, T3TSSR,EXPREC

$SET THE FATAL ERROR FLAG

1+LOOP ON ERROR,

IF FLAG ?E:P

30%:

104406

INC
CKLOOP

MOV

TSBA(RS),R1
R2
R4 ,R2

CLR
BISB
SWAB
BISB
BEQ
ERRHRD

R2
R4 ,R2

R1,R2

35¢
ERRNO, T3TSBA ,EXPREC

tGET THE CONTENTS OF TSSR
+IS DRIVE OFF -LINE
1BRANCH IF NOT OFFLINE
sSET OFF -LINE IN EXPECTED
;+DOES EXPECTED MATCH RECEIVED ?

;OKAY IF MATCH

s+TSSR WASN'T CORRECT

TRAP
.WORD

;FORCE INIT ON NEXT PASS
;LOOP ON ERROR ?

TRAP

tGET TSBA REGISTER CONTENTS

35%:

ENDSEG

INCB
016446
024420

40%:

;+PRINT

THE ERROR & EXPD/RECV
TRAP

JSR
8CC
JMP
EXIT

;FORCE INIT ON NEXT PASS
END

SEGMENT

10000%:

54
PC,TSTLOOP

T3LOOP
TST

303
T3TSSR
EXPREC

CsCLP1

:DATA PATTERN WRITTEN
+MOVE INTO TOP BYTE
1B0OTH HALVES SHOULD BE SAME
:COMPARE EXPECTED TO RECEIVED
:BR _IF ERROR NOT EQUAL

jccccccccccccc

C$ERHRD

.WORD
.WORD

INC

CsCLP1

+CLEAR ALL BUT LOW 2 BITS
;BITS 8 AND 9 HAVE LOW DATA BITS
s THESE BITS MUST BE SET ALSO

. WORD

024640
024640
024640

024642
024644
024646
024652
024654
024660
024660
024662

M10
23-MAR-84 09:44

CS$ERHRD

304
T3TSBA
EXPREC

<ccccccccccccc

TRAR

C$ESEG

sNEXT DATA PATTERN TO TEST

sALL DONE WHEN BACK TO ZERO
:SHOULD WE DO ITERATIONS ?
1BRANCH IF NOT
;LOOP UNTIL COUNT EXPIRED
—
sALL DONE THIS TEST
.WORD

CSEXIT

L10042-.

TSVSA

- HARDWARE TESTS

TEST

23-MAR-84 09:44

PAGE 81-2

N10O
SEQ 0130

WRAP DATA - LOW BYTE

370
371
372
373 024664
374 024730

375 024774

g;g 025045

378 025072
025072
o 025072
380

MACRO M1200

;LOCAL TEXT MESSAGES FOR TEST
)=
124
124
116
127

123
123
157
162

102
123
040
141

T3TSBA:
T3TSSR:
T3SSR:
TST3ID:

.ASCIZ
.ASCIZ
.ASCIZ
.23252

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

ENDTST
104401

L10042:

TRAP

CSETST

TSVSA

- MARDWARE

TEST

TESTS

MACRO M1200

23-MAR-84 09:44

B11

PAGE 82

SEQ 0131

RAM TEST

.SBTTL

TEST

4: RAM TEST

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

CAN PROPERLY STORE AND READ BACK ALL DATA PATTERNS, AND THAT

EACH RAM LOCATION IS UNIQUELY ADODRESSED (I.E., THAT ONE AND ONLY
ONE. LOCATION IS ACCESSED BY ANY PARTICULAR ADDRESS).
THESE
TESTS ARE PERFORMED BY THREE SUBTESTS, DESCRIBED BELOW.

BYPRCOUCT OF THESE TESTS IS A VERIFICATION OF TWO REGISTERS IN
1.6‘0 2901 AND THE CAPABLITY OF THE 2901 TO CORRECTLY PERFORM AN

TEST 4

SUBTEST

THIS SUBTEST VERIFIES EACH RAM LOCATION BY FIRST PLACING THE
M7196 INTO MAINTENANCE MODE BY WRITING INTO THE LOW BYTE OF TSD8B
SM_)";Q’E?OOC’?R{C)RHIW THE FOLLOWING SEQUENCE FOR EACH ADDRESS
.

1.
2.

THE ADORESS TO BE TESTED IS LOADED INTO THE
WORD WRITE).
THE ADDRESSED RAM LOCATION IS WRITTEN,

TSDB (VIA A

THEN READ INTO

THE LOW BYTE OF TSBA, BY WRITING A DATA BYTE INTO THE
LOW BYTE OF TSDB.

THE LOW BYTE OF TSBA IS CHECKED TO SEE IF IT CONTAINS
THE DATA PATTERN ORIGINALLY WRITTEN;
A DISCREPANCY IS

REPORTED AS AN ERROR.
4.

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

THE HIGH BYTE OF

416

417

418
419
420

a21

422
423
424
425
426
427
428
429 025074

439 025106

IT SHOULD CONTAIN

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

BGNTST

025074

430
431 025074
025074
025074
432
437 025076
438 025102

TSBA IS CHECKED;

THE SUM OF THE MIGH AND LOW BYTES LAST WRITTEN INTO
TSOB AS A WORD.
A DISCREPANCY IS REPORTED AS A 2901
PROBLEM,

T4::

BGNSLB

8//7/77/7/7/77 BEGIN SUBTESTY /777727774147
.

104402
012700
004737
012737

026404
016500
000005

002214

MOV
JSR
MOV

#TST4ID,RO
PC,TSTSETUP
05,L00PCNT

T4.1:

TRAP

1ASCII MESSAGE TO IDENTIFY TEST
100 INITIAL TEST SETUP
tPERFORM S ITERATIONS

csasuB

TSVSA

TEST

HARDWARE

TESTS

MACRO M1200

23-MAR-84 09:44

PAGE 82-1

Cll
SEQ 0132

RAM TEST

440 025114
441 025114
442 025120
146 025122

447 025124

004737
103405
010001

015764

T4LOOP
:

PC,SOFINIT

204

RO,R1

ERRNO,
SF IERR, SF IMSG

016326

20%:

R4
PC,CHKTSSR
TSDB(RS)

25%:

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

tFATAL

ERROR TSSR WAS NOT 0K

TRAP
.WORD
.WORD

1SET RAM ADDRESS AT ZERO

iWAIT FOP READY,

WORD

NON-AMBIGUOUS

BEGIN

SEGMENT

TRAP
R4 ,R2
PC,CHKTSSR

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

016326

PC,CHKTSSR

TSBA(RS),R1
R1,R2

304
ERRNO, TSBAM2 ,EXPREC

467

471
472
473

sWAIT FOR READY,

474

1BR IF OK,

THEY ARE EQUAL

1DATA NOT WRAPPED CORRECTLY

TRAP
. WORD
. WORD

477

488

END

104405
R4
R4,010000

254
suB

104410
000102

110402
004737
010465
004737
016501
120102
001404

SEGMENT

10000¢:

016326
000000
016326

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

40%;

R1,R2
45¢
ERRNO, TSBAM2 ,EXPREC

104456
000623
026242
015464

TRAP

CxLooP

EXPREC

C$ESEG

sNEXT ADDRESS
+END OF RAM MEMORY CHECK
sLOOP TILL ALL RAM WRITTEN
tOON'T CONTINUE IF ERROR ON WRITE
TRAP
CSESCAPE
L10044-,

1CLEAR OUT R2 HIGH BITS
1SET BACK TO 7777

1GET DATA PATTERN BACK IN SHAPE

tWAIT FOR READY,

NON-AMBIGUOUS

iWAIT FOR READY,

NON-AMBIGUOUS

1LOAD UP RAM ADDRESS POINTER

tREAD RAM CONTENTS BACK
1CHECK WITH DATA WRITTEN
1BR IF OK,

DATA IN ~ DATA OUT

tWRITTEN DATA NOT = TO READ
TRAP

.WORD
.WORD

454

CS$ERHRD
402
TSBAM2

c¢cccccccccccc

.WORD

475
476

478
479
480
481
482
483
487

NON-AMBIGUOUS

.WORD

010000

C$BSEG

sREADS WRAP DATA
1DOES WRITTEN(WRAP) = READ

30¢:

020427
001347

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

sEXPECTED DATA FROM WRAP -AROUN?
tWAIT FOR READY, NON-AMBIGUOUS
1LOAD ADDRESS INTO TSD8
sWAIT FOR READY, NON-AMBIGUOUS
31LOADS DATA INTO RAM LOCATION

geecccccccccccec

469
470

SFIMSG

$SET INTO MAINTENANCE MODE
$2>3>333>353>>>

016326
000000
016326

CS$ERDF
401
SFIERR

1+ SCOPE LOOP

.WORD

CSERHRD

403
TSBAMZ2

EXPREC

TSVSA

TEST

HARDWARE

TESTS

MACRO M1200

23-MAR-84 09:44

PAGE 82-2

D11

RAM TEST

025276

489 025300
490 025304
491 025
492 025310
493 025312
494 025314
498 025316

104406
116501
010402

MOVB
MOV

SWAB

060402
120102
001404

104456
000624
026152
015464

025326
025330
025332

104406
005304
002342

025334

025334
025334

000001

000302

025316
025320
025322
025324
025326

SEQ 0133

ADD
CcMPB
BEQ
ERRHRD

SO0s$:

S04

ERRNO,M2901 ,EXPREC

CKLOOP

DEC
dGE

ENDSUB
104403

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

tHIGH BYTE READ OF TSBA

CsCLP1

1DATA PATTERN WRITTEN

tHIGH TO LOW

1TOTAL OF BYTES IN LOW BYTE

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

1 SCOPE LOOP
R4
40

TRAP

TRAP
.WORD
.WORD
.WORD

CSERHRD
404
M2901
EXPREC

TRAP

CsCLP1

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

END

SUBTEST

L10044:

\NNLALAANLLLANL

TRAP

CS$ESUB

TSVSA

TEST

HARDWARE

TESTS

MACRO M1200

23-MAR-84 09:44

PAGE 83

E11
SEQ 0134

RAM TEST

025336
025336
025336

BGNSUB

$//////7/77777 BEGIN

SUBTEST

74.2:

104402

TEST 4,

/77777777777

TRAP

SUBTEST 2

csBsuB

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

025340
025344
025346
025350
025350

015764

JSR

8CS
MOV

ERRDF

20%:
016326
000000

CLR
CLR
JSR

25%:

CLRB

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

R2
R4

PC,CHKTSSR

TSDB(RS)

BGNSEG

100 INITIALIZE ON CONTROLLER
1BR IF INIT WAS OK

1CONTENTS OF TSSR REGISTER

sFATAL ERROR

TSSR WAS NOT 0K
TRAP

.WORD
.WORD
.WORD

s TEST DATA = O
sSTARTING RAM ADDRESS = 0O

tWAIT FOR READY,

NON-AMBIGUOUS

1SET INTO MAINTENANCE MODE

$2>>353>>5>3>>>>

BEGIN

SEGMENT

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

TRAP

016326
000000
016326
000000
016326

JSR
MOV
JSR
JSR
MOV

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

BEQ
ERRHRD

304
ERRNO, TSBAM2,EXPREC

CcCMPB

R1,R2

iWAIT FOR READY,

NON-AMBIGUOUS

tWAIT FOR READY,

NON-AMBIGUOUS

1LOADS DATA INTO RAM LOCATION
iWAIT FOR READY, NON-AMBIGUOUS

iREADS WRAP DATA
1DOES WRITTEN(WRAP) = READ ?
1BR_IF OK, THEY ARE EQUAL
:DATA NOT WRAPPED CORRECTLY

.WORD
.WORD
.WORD

gecccccccccc<c<c

END

SEGMENT

10000¢$:

020427
001350

010000

005304
004737
010465
004737
016501

120102
001404

35%;

016326
000000
016326
000000

40%:

INC
CHP
BNE

R4
R4, 010000
254

DEC
CLR
JSR
MOV
JSR
MOV
CLR
CMPB
BEQ

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

C$BSEG

1LOAD ADDRESS INTO TSDB

TRAP

ENDSEG

CSERDF

405
SFIERR
SFIMSG

<cccccecccccc

TRAP

¢NEXT ADDRESS

tEND OF RAM MEMORY CHECK

1BR, MORE RAM TO GO

1SET BACK TO 7777
1SET _TO ALL ZEROS
tWAIT FOR READY

(SSR)

TO SET

tLOAD UP THE ADDRESS FOR RAM
tWAIT FOR READY (SSR) TO SET
tREAD THE RAM CONTENTS BACK
1LOOKING FOR 000000 (EXPECTED)
1BOTH SHOULD BE 00000000 BINARY

1BR,

IF DATA

IS GOOD

CSERHRD

406
TSBAM2
EXPREC

C$ESEG

TSVSA

- HARDWARE

TEST

4&:

573
574
575
576
577
578
579

585

MACRO M1200

23-MAR-84 09:44

PAGE 83-1

F11
SEQ 0135

RAM TEST

559 025506
025506
025510
025512
025514
025516
025522

572

TESTS

ERRHRD

104456
000627
026324

015464
012702
010465
004737
110265
004737
016501
120102
001404

000377

#000377,R2
R4 ,TSDB(RS)
PC,CHKTSSR
R2,TSDB(RS)
PC,CHKTSSR
TSBA(RS5),R1
R1,R2
45%
ERRNO, TSBAM2 ,EXPREC

016326
000000
016326
000000

104456
000630
026242
015464
104406
004737
010465
004737
116501
010403
000303
060403
120103
001404

43%;

45%;

104406
005304
002312

016326
000000
016326
000001

PC,CHKTSSR
R4,TSDB(RS)
PC,CHKTSSR
TSBAH(RS),R1
R4 ,R3
R3
R4 ,R3
R1,R3
504

ERRNO,M2901 ,EXPREC

.WORD
.WORD
.WORD

1SET ALL ONES WORD

407
TSBAM3

EXPREC

sLOAD UP RAM ADDRESS POINTER

tWAIT FOR READY,

NON-AMBIGUOUS

tWRITE DATA INTO RAM
tWAIT FOR READY, NON-AMBIGUOUS
sREAD RAM CONTENTS BACK
sCHECK WITH DATA WRITTEN
1BR IF OK, DATA IN = DATA OUT
tWRITTEN DATA NOT

TO READ
TRAP

CSERHRD

.WORD
.WORD
.WORD

408
TSBAM2

TRAP

CsCLP1

sWAIT FOR READY, NON-AMBIGUOUS

EXPREC

tWORD WRITE TO SET UP ADDRESS
sWAIT FOR READY,

NON-AMBIGUOUS

+HIGH BYTE READ OF TSBA
1DATA PATTERN WRITTEN

tHIGH TO LOW
s TOTAL OF BYTES IN LOW BYTE

1SUM OF BYTES WRITTEN TO TSDB = TSBAH
1BR IF OK, THEY SHOUWLD BE
17901 PROBLEM ADDER
CSERHRD
409

S50%:

CxLOoOP
DEC
BGE
ENDSUB

104403

1CHARACTERISTICS DATA NOT CORRECT
TRAP
CSERHRD

1 SCOPE LOOP

104456

000631
026152
015464

ERRNO, TSBAM3 ,EXPREC

M2901
EXPREC

:SCOPE LOOP
R4
40s

TRAP

:DROP RAM ADDRESS POINTER
sNOT AT LOC. ZERO YET

VANANAANANANNAANANY END SUBTEST

L10045:;

CsCLP1

NNNNANANANNWY

TRAP

CSESUB

HARDWARE

TESTS

MACRO M1200

23-MAR-84 09:44

PAGE 84

G11
SEQ 0136

RAM TEST

025636
025636
025636

BGNSUB

$//////7/77/777

BEGIN

SUBTEST

74.3;

104402

TEST 4,

/77777777777

TRAP

csBsus

SUBTEST 3

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

004737
103405
010001

015764

JSR
B8CS
MOV
ERROF

104455

610
611
612
613

614
615

616

617
618
619
621
622

627

003646
012024
012702

177777

004737
105065

016326
000000

631
632
633
634

635
637
638
639
640

ERRNO, SFIERR, SF IMSG

e177777,R2
R4
PC,CHKTSSR
TSDB(RS)

25%:

004737
010465
004737
110265
004737
016501
120102
001404

100 INITIALIZE ON CONTROLLER
1BR IF INIT WAS OK
sCONTENTS OF TSSR REGISTER
tFATAL ERROR TSSR WAS NOT OK
TRAP

.WORD
.WORD
.WORD

:SET DATA AT ALL ONES
+SET _RAM ADDRESS AT ZERO
tWAIT FOR READY, NON-AMBIGUOUS
1SET INTO MAINTENANCE MODE
$2>>>33>35>5>3>>>

104404

BEGIN

016326
000000
016326
000000
016326

PC,.CHKTSSR
R4 ,TSDB(RS)
PC,CHKTSSR
R2,TSDB(RS)
PC,CHKTSSR
TSBA(RS),R1
R1,R2
30¢
ERRNO, TSBAM2 ,EXPREC

104456
000633
026242
015464

1WAIT FOR READY,

NON-AMBIGUOUS

sWAIT FOR READY,

NON-AMBIGUOUS

;LOADS DATA INTO RAM LOCATION
sWAIT FOR READY, NON-AMBIGUOUS
sREADS WRAP DATA
:D0ES WRITTEN(WRAP) = READ ?

:BR IF OK, THEY ARE EQUAL
;:DATA NOT WRAPPED CORRECTLY

jC€cccccccccccc

END

104410
000152
005304
004737
012702
005001
010465
004737

SEGMENT

10000¢:

104405
INC

R4
R4, 010000

254

suB

000000
016326

35%:

40%:

PC,CHKTSSR
;000377.R2
1
R4,TSDB(RS)
PC,CHKTSSR

CS$ERHRD

411
TSBAM2
EXPREC

<ccccccecccccc

TRAP

C$ESEG

¢NEXT ADDRESS

tEND OF RAM MEMORY CHECK

1BR, MORE RAM TO GO

iNO CHECK IF WRITTEN INCORRECTLY
TRAP

016326
000377

C$BSEG

sLOAD ADDRESS INTO TSDB

.WORD
.WORD
.WORD

010000

CSERDF

410
SFIERR
SFIMSG

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

TRAP

ENDSEG

005204
020427
001350

SEGMENT

TRAP

628
629

PC,SOFINIT
204
RO,R1

+SET BACK TO 7777
iWAIT FOR READY,

.WORD

NON-AMBIGUOUS

1SET UP EXPECTED DATA REGISTER
1CLEAN OUT REGISTER
1SELECT ADDRESS IN RAM

tWAIT FOR READY

(SSR)

CS$ESCAPE

L10046-.

HARDWARE

TESTS

MACRO M1200

23-MAR-84 09:44

PAGE 84-1

H11
SEQ 0137

RAM TEST
026006
026012
026014
026016
026016
026020
026022
026024
026026
026030
026034
026040
026044
026050
026054

016501
120102
001404

104456
000634
026324
015464
005002
010465
004737
110265
004737
016501
120102
001404

MOV
CMPB
BEQ
ERRHRD

000000

43%:

000000
016326

016326
000000

45% -

sWRITTEN DATA NOT = TO READ

S0%:

DEC
BNE

026150

tBR IF OK, DATA IN = DATA OUT
TRAP

CS$ERHRD

.WORD
.WORD
. WORD

413
TSBAM2

TRAP

CsCLP1

sWAIT FOR READY, NON-AMBIGUOUS
sHIGH BYTE READ OF TSBA

EXPREC

sOATA PATTERN WRITTEN

sHIGH TO LOW

;TOTAL OF BYTES IN LOW BYTE
+SUM OF BYTES WRITTEN TO TSDB = TSBAH
+BR

IF OK,

THEY

SHOULD BE

12901 PROBLEM ADDER

C$ERHRD

JSR
8CC

016446

025114

638:

104432
000256

JMP
EXIT

M2901
EXPREC

TRAP

:DROP RAM ADDRESS POINTER
iNOT AT LOC. ZERO YET

CsCLP1

MAANANNANNNANN END SUBTEST N\ NAANNANNN
L10046:
TRAP
CSESUB

104403

026146

NON-AMBIGUOUS

tWRITE DATA INTO RAM
tWAIT FOR READY, NON-AMBIGUOUS
sREAD RAM CONTENTS BACK
sCHECK WITH DATA WRITTEN

: SCOPE LOOP

CKLOOP

ENDSUB

004737
103002
000137

TSBAM3
EXPREC

414

001315

677

sWAIT FOR READY,

+SCOPE LOOP

S04
ERRNO,M2901 ,EXPREC

104406
005304

675
676

CSERHRD

ERRNO, TSBAM2 ,EXPREC

PC,CHKTSSR
TSBAH(RS5),R1
R2,.R3
R3
R2,R3
R1,R3

104456

673
674

IF OK (ALL ONES)

sMEMORY CHANGED AFTER AL%RggES WRITE

$SET UP NEW EXPECTED
1LOAD UP RAM ADDRESS POINTER

CKLO0P

016326
000001

000636
026152
015464

672

1BR,

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

001404

671

ERRNO, TSBAM3 ,EXPREC

sPICK UP RAM CONTENTS
+ IS MEMORY STILL ALL ONES

412

104456
000635
026242
015464
104406
004737
116501
010203
000303
060203
120103

TSBA(RS5),R1
R1,R2
434

PC,TSTLOOP

63
T4L0O0P
TST

+D0 WE NEED TO ITERATE TEST ?
:BRANCH IF NOT
+EXECUTE AGAIN
sALL DONE THIS TESI
TRAP

.WORD

CSEXIT

L10043-.

;LOCAL TEXT MESSAGES FOR TEST
026152
026242
026324

040

127

124
127
162

123

162
151

M2901:

TSBAM2:
TSBAM3:

,ASCIZ

.ASCIZ
,ASCIZ

* TSBA Hightgsto Not Sum of Last TSDB Write (2901 Error)’
' Write to
D Not Egual to Read of TSBA Low Byte’
‘Write To RAM Location Modified Another Location’

TSVSA

- HARDWARE

TEST

TESTS

MACRO M1200

23-MAR-84 09:44

PAGE 84-2

I11
SEQ 0138

RAM TEST

689 026404
690
691 026426
026426
026426
692

122

104401

101

115

TST4ID:

.ASCIZ
.EVEN
ENDTST

'RAM Verification’

L10043:

TRAP

CSETST

TSVSA

- HARDWARE

TEST

SECOND

TESTS

MACRO M1200

23-MAR-84 09:44

.SBTTL

696

699
700

:
:

697
698
701
702
703

705

TEST

:
:
H

SUBTESTS (ONE FOR INITIALIZING VIA A BUS INIT, THE OTHER FOR
INITIALIZING BY WRITING INTO THE TSSR), THE FOLLOWING SEQUENCE
IS PERFORMED:

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

;gg

:
:
:

_7,{%

:
:
3

716

717
718

F
:
:

725

:
:

731 026430

;:g 026446

012700
004737
012737

027402
016500
000024

005037

002220

002214

TSLOOP:

742 026452

026452

104402

744 026454
745 026460

004737
103404

026462
026464

104455
000765

749 026462

026466
026470

750 026472

TO A ROM,

BGNTST

003646
012024

012702

015764

1S::

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

CLR

FATFLG

;CLEAR THE FATAL ERROR FLAG

JSR
BCS

10%:

THIS POINT

@TSTSID,RO
PC,TSTSETUP
©20. ,LOOPCNT

ERRDF

177777

AN ERROR AT

MOV

TEST

2////7//7/7/777 BEGIN SUBTESTY

9.1

PC,SOFINIT
104

ERRNO, SF IERR, SF IMSG

0-1,R2

PIPELINE OR SEQUENCER PROBLEM

MOV
JSR
MOV

BGNSUB

— 026452

SPECIFYING THE RAM

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.

OR A TIMING PROBLEM,

:
:

729
730

01'S (377 OCTAL) ARE WRITTEN INTO THE LOW BYTE OF TSDSB,
WHICH SHOULD CAUSE RAM LOCATION O TO BE WRITTEN TO ALL

MOST LIKELY DUE

727
728

THE CONTROLLER IS INITIALIZED AND THE VARIOUS CHECKS ON
THE TSSR DESCRIBED IN INITIALIZATION TEST @1 ARE

DISCREPANCIES ARE REPORTED.

726

(LOW

LOW BYTE OF TSBA SHOULD CONTAIN ALL 1'S.

724

TSDB REGISTER

ADDRESS, SHOULD BE 0.
RAM LOCATION O IS VERIFIED BY
WRITING A WORD OF ZEROS INTO THE TSDB.
THE RESULTING

721
722
723

1°'S BY USING WRITES INTO THE

1'S SINCE 2901 REGISTERS 10 AND 11,

:
3

_7,53

TO ALL

PERFORMED.

714
715

EACH RAM LOCATION AND 2901 REGISTERS 10 AND 11 ARE SET
BYTE AND MAINTENANCE MODE WORD WRITES).

710
711

SECOND INITIALIZATION TEST

THIS TEST VERIFIES THE SAME ELEMENTS AS DID INITIALIZATION TEST

707

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

026430
026434
026440
026446

SEQ 0139

:
:

706

736
737
738
739

PAGE 85

INITIALIZATION TEST

69;
69

026430

J11

////////7/777

TRAP

csBSUB

100 A SOFT TO START
;BRANCH IF 0.K.

;REPORT ERROR AND DROP DRIVE

TRAP
.WORD

1ALL ONE DATA PATTERN

.WORD
.WORD

CS$ERDF
S01

SFIERR
SFIMSG

HARDWARE

TESTS

MACRO M1200

23-MAR-84 09:44

K11
PAGE 85-1

SEQ 0140

SECOND INITIALIZATION TEST
005004
004737
105065
004737
010465
004737
110265
005204
020427
003762

104433
004737

016501
010102
042702
052702
020102
001406

016326
000000

016326
000000
016326
000000

15¢:

007777

CLR
JSR
CLRB
JSR
MOV
JSR
MOVB
INC
CMP
BLE
BRESET

176277
002200

792

793
794
795

026670
026672
026672
026674
026676
026700
026702
026706
026706
026710
026710
026712
026714
026720
026722

104455
000766
027470
015464
005237

002220

208

016326
000000
016326
000000
000377
016326
000000
016326
000000
016326

R4,07777

15¢

002220

25%:

016326

JSR

1SET_MAINTENANCE MODE

tWAIT FOR READY, NON-AMBIGUOUS
1SET _THE NEXT RAM ADDRESS
tWAIT FOR READY, NON-AMBIGUOUS

sLOAD TEST DATA

tNEXT ADDRESS TO TEST

+COMPARE TO LAST ADDRESS

tBRANCH TILL ALL DATA WRITTEN

+ISSUE A BUS RESET
sWAIT FOR READY,

—_—

NON-AMBIGUOUS

+REPORT A FATAL ERROR

CS$ERDF

502
SFHERR
SFFMSG

suB

tEXIT IF FATAL ERROR DETECTED

:LOOP ON ERROR IF FLAG s;;AP
TRAP

.WORD

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

tWAIT FOR SSR TO SET

FATFLG

1SET THE FATAL ERROR FLAG
1+SCOPE LOOP
-

#310,R4
R2
PC,CHKTSSR

CS$RESET

tGET THE CONTENTS OF TSSR
sCONTENTS OF TSSR
1+ THESE BITS MAY BE SET
sREADY AND NEW DATA SHOULD BE SET
s COMPARE EXPECTED TO RECEIVED
+BRANCH IF COMPARE

+SET FATAL ERROR FLAG

SuB
000310

1 STARTING RAM ADDRESS
tWAIT FOR READY, NON-AMBIGUOUS

FATFLG

254
ERRNO, TSADDR,EXPREC

104406
104410
000066
012704
005002
004737

ERRNO, SFHERR , SFFMSG

104406
104410
000170
004737
105065
004737
005065
012702
004737
110265
004737
005065
004737
116501
120102
001406

:2.TSDB(RS)

PC,CHKTSSR
TSSR(R5),R1
R1,R2
9tC<HIADDR!OFL>,R2
#SSR!NBA ,R2
R1,R2
204

016326
000002

104455
000766

003701
012072
005237

R4
PC,CHKTSSR
TSDB(RS)
PC,CHKTSSR
R4,TSDB(RS)
PC,CHKTSSR

CsCLP1

C$ESCAPE

L10050-.

sPUT BACK INTO MAINTENANCE MODE
tWAIT FOR READY,

NON-AMBIGUOUS

+SET ADDRESS BACK TO 0000
H

;WAIT FOR READY,

NON-AMBIGUOUS

:SHOULD POINT TO RAM O

iWAIT FOR READY, NON-AMBIGUOUS
s SELECT LOCATION O
;WAIT FOR READY,

NON-AMBIGUOUS

;:READ RAM LOCATION SPECIFIED
;LOCATION SHOULD BE 377 OCTAL

iBR IF OK
sWASN'T POINTING TO CORRECT LOC.
TRAP
CS$ERDF
.WORD
502
TSADDR
.WORD
EXPREC
. WOR
R

+NO MORE CHECKS IF FATAL ERROR
TRAP

1START WITH LOC 310

. WORD

CsCLP1
CS$ESCAPE

L10050-.

sMEMORY EXPECTED SHOULD BE 000000
iWAIT FOR READY, NON-AMBIGUOUS

HARDWARE

TESTS

MACRO M1200

23-MAR-84 09:44

L11
PAGE 85-2

SEQ 0141

SECOND INITIALIZATION TEST

026726
026732
026736
026742
026744

026746
026746
026750
026752
026754
802 026756
803 026762

026762
804 026764
026764
026766
805 026770
026772
807 026776

809 027000
027000
027000
810
811 027002
812 027006
813 027010
814 027014
815 027020

010465

000000

116501
120102

000000

004737

016326

30¢:

001406
104455
000766
027432
012072

005237

MOVB
CMPB

TSBA(RS),R1
R1,R2

ERRDF

002220

40%:

104410
000012

020427
001353

R4,TSDB(RS)

JSR

BEQ

104406

005204

MOV

ERRNO, TSMEM, SFFMSG

002220

004737
005037

017172
002220

s+BRANCH IF DATA OKAY
tMEMORY NOT ZERO AFTER INIT,
TRAP

CSERDF

TRAP

CsCLP1

ESCAPE

SuUB

;EXIT ON FATAL ERROR

CMP
BNE

R4, 0400
30%

;LOOK AT NEXT RAM LOC.
:+AT

TRAP

.WORD

JSR
CLR

PC,CKDROP
FATFLG

50¢

CS$ESCAPE

L10050-.

TOP OF RAM ADDRESS SPACE

L10050:

FATFLG

502
TSMEM
SFFMSG

;BRANCH TILL ALL MEMORY TESTED
$ MNANANNANNANNANNN END SUBTEST

TST

BEQ
S0$:

1CHECK MEMORY FOR 000000

FATFLG

104403
005737

sWAIT FOR READY, NON-AMBIGUOUS
tREAD LOC CONTENTS

INC

CkLooP

ENDSUB

001404

1 SELECT LOCATION SPECIFIED

.WORD
.WORD
.WORD
1SET THE FATAL ERROR FLAG

INC

000400

PC,CHKTSSR

NNANNNANNNANNNNL

TRAP

+IS FATAL ERROR FLAG SET ?
:+BRANCH IF NOT
s;NO LOOP, TRY TO DROP DEVICE
;CLEAR THE FATAL ERROR FLAG

CSESUB

TSVSA

- HARDWARE

TEST

TESTS

MACRO M1200

23-MAR-84 09:44

M11
PAGE 86

SEQ 0142

SECOND INITIALIZATION TEST

817 027020
027020
027020

s 027022

027026
824 027030
027030
027032
027034
027036
027040
027044
027046
027052
027056
027062
027066
027072
027076
027100

027104
027106

027112
027116
027122
027124
027130
027134
027136
027140
027140
027142
027144
027146
027150
027154
027154
027156
027156
027160
027162
027166
027172
027176
027202
027206
027212
027216
027222
027226
027232
027236
027240
027242
027242
027244

$///7/7/7//7/7777 ae$§uasuaresr L1111/ 7/777777

BGNSUB

IRAP

C$BSUB

tREPORT ERROR AND DROP DRIVE
TRAP

CSERDF

104402
004737
103404

104455
000767
003646
012024
012702
005004
004737
105065
004737

010465
004737
110265
005204
020427
003762
005065
004737
016501
010102
042702
052702
020102
001406

015764

JSR
8CS
ERRDF

177777

10%:

016326
000000

15%:

016326

000000
016326
000000

BLE
CLR
JSR
MOV
MOV
8IC
8IS
CMP
BEQ
ERRDF

000002
016326
000002
176277
002200

002220

105065

004737
005065
012702
004737
110265
004737
005065
004737
116501
120102
001406

104455
000770

016326

000000

016326
000000
000377
016326
000000
016326
000000
016326
000000

MOV
CLR
JSR
CLRB
JSR
MOV

JSR
MOVB
INC
CMP

007777

104406

104410
000170
004737

100 A SOFT TO START
1BRANCH IF 0.K.

.WORD
.WORD

104455

000770
003701
012072
005237

PC,SOFINIT
104
ERRNO,SFIERR,SFIMSG

20%:

¢-1,R2
R4
PC,CHKTSSR
TSDB(RS)
PC,CHKTSSR
R4,TSDB(RS)

PC,CHKTSSR
R2,TSDB(RS)
R4
R4,07777

154
TSSR(RS)
PC,CHKTSSR
TSSR(R5),R1
R1,R2
0tC<HIADDR!OFL>,R2
@SSR !NBA,R2
R1,R2
20$
ERRNO,SFHERR, SFFMSG

INC
CKLOOP

FATFLG

ESCAPE

SuB

JSR

CLRB

JSR
CLR
MOV
JSR
MOvB
JSR
CLR
JSR
MOVB
CMPB
BEQ
ERRDF

PC,CHKTSSR

TSDB(RS)

PC,CHKTSSR
TSDB(RS)
#377,.R2
PC,CHKTSSR
R2,TSDB(RS)
PC,CHKTSSR
TSDB(RS)
PC,CHKTSSR
TSBA(R5),R1
R1,R2
254
ERRNO, TSADDR,EXPREC

sALL ONE DATA PATTERN
s STARTING RAM ADDRESS
tWAIT FOR READY,

S03
SFIERR
SFIMSG

NON-AMBIGUOUS

:SET _MAINTENANCE MODE
sWAIT FOR READY, NON-AMBIGUOUS
$1SET _THE NEXT RAM ADDRESS
sWAIT FOR READY, NON-AMBIGUOUS
1LOAD TEST DATA
¢NEXT ADDRESS TO TEST
1COMPARE TO LAST ADDRESS
$BRANCH TILL ALL DATA WRITTEN
:+ISSUE A SOFT RESET
tWAIT FOR READY, NON-AMBIGUOUS
tGET THE CONTENTS OF TSSR
sCONTENTS OF TSSR
s THESE BITS MAY BE SET
+READY AND NEW DATA SHOULD BE SET
:COMPARE EXPECTED TO PECEIVED
1BRANCH IF COMPARE
tREPORT A FATAL ERROR

TRAP

.WORD
.WORD

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

TRAP
sEXIT IF FATAL ERROR DETECTED
TRAP
.WORD
tWAIT FOR SSR TO SET

CS$ERDF

504
SFHERR
SFFMSG
CsCLP1
CS$ESCAPE

L10051-.

:PUT BACK INTO MAINTENANCE MODE
sWAIT FOR READY, NON-AMBIGUOUS
:SET ADDRESS BACK TO 0000
H

sWAIT FOR READY,

NON-AMBIGUOUS

1 SHOULD POINT TO RAM O
sWAIT FOR READY, NON-AMBIGUOUS
s+SELECT LOCATION O
tWAIT FOR READY, NON-AMBIGUOUS

1READ RAM LOCATION SPECIFIED

;LOCATION SHOULD BE 377 OCTAL

iBR IF OK
sWASN'T POINTING TO CORRECT LOC.
TRAP
CSERDF

.WORD

504

TSV5A

- HARDWARE TESTS

TEST

027256
027256

867 027260

877
878
879

23-MAR-84 09:44

PAGE 86-1

N11
SEQ 0143

SECOND INITIALIZATION TEST

027246
027250
865 027252

870
871
872
873
874
875
876

MACRO M1200

027260
027262
027264
027270
027272
027276
027302
027306
027312
027314
027316
027316
027320
027322
027324
027326
027332
027332
027334
027334
027336
027340
027342
027346

027350
027350
027350
027352
027356
027360
027364
027370
027372
027376
027376
027400

027470
015464
005237

002220

25%:

104406

104410
000066
012704
005002
004737
010465
004737

116501
120102

000310
016326
000000
016326
000000

001406

104455
000770
027432
012072
005237

002220

40%:

ESCAPE

104410

CsCLP1

TRAP

CS$ESCAPE

SuB

s1NO MORE CHECKS IF FATAL ERROR
WORD

$START WITH LOC 310

INC
CMP
BNE

000400

NON-AMBIGUOUS

iWAIT FOR READY,

NON-AMBIGUOUS

s SELECT LOCATION SPECIFIED

tREAD LOC CONTENTS
1 CHECK MEMORY FOR 000000
1BRANCH IF DATA OKAY
sMEMORY NOT ZERO AFTER INIT,

.WORD
.WORD
. WORD

:SET THE FATAL ERROR FLAG

suB

sEXIT ON FATAL ERROR

R4
R4,0400

017172
016446

S0¢:

026446

60$:

104432

TRAP

CsCLP1

TRAP

CS$ESCAPE

TOP OF RAM ADDRESS SPACE

F MANNANANANNANANN END SUBTEST

FATFLG

S50¢
PC,CKDROP
PC,TSTLOOP

504
TSMEM
SFFMSG

sBRANCH TILL ALL MEMORY TESTED

104403
TST
BEQ
JSR
JSR
8CC
JMP
EXIT

CS$ERDF

;:LOOK AT NEXT RAM LOC.

:AT

L10051:

002220

L10051-.

+MEMORY EXPECTED SHOULD BE 000000

sWAIT FOR READY,

FATFLG

ENDSUB

005737
001402
004737
004737
103042
000137

TRAP

$SET THE FATAL ERROR FLAG
s+SCOPE LOOP

TRAP

104406
000012
005204
020427
001353

TSADDR
EXPREC

FATFLG

4310,R4
R2
PC,CHKTSSR
R4,TSDB(RS)
PC,CHKTSSR
TSBA(RS),R1
R1,R2
40%
ERRNO, TSMEM, SFFMSG

30¢%:

.WORD
. WORD

NNNNNNNNNNL

TRAP

:IS FATAL ERROR FLAG SET ?
:BRANCH IF NOT
:NO LOOP, TRY TO DROP DEVICE
:SHOULD WE DO ITERATIONS ?
;BRANCH IF NOT
;LOOP UNTIL COUNT EXPIRED
;ALL DONE THIS TEST

TRAP

000132

C$ESUB

CSEXIT

.WORD

L10047-.

TRAP

CSETST

;LOCAL TEXT MESSAGES FOR TEST
027402
027432
027470

111
111

027532
027532
027532

104401

105

170
156
156

164
143
143

TSTSID:
TSMEM:
TSADDR:

.ASCIZ
.ASCIZ
.ASCIZ
.EVEN
ENDTST

'Extended Initialization'’
‘Incorrect RAM Data After Init’
'Incorrect RAM Address After Init’
L10047;

TSVSA

- HARDWARE

TEST

TESTS

MACRO M1200

23-MAR-84 09:44

307

910
911
912
913
914
915
916
917
918

SEQ 0144

.SBITL
}
5

]
3
'
'

SETS UP THE INTERRUPT SERVICE ROUTINE TO FLAG UNEXPECTED

FOLLOWING SEQUENCE IS PERFORMED:

'
3
3

927

ggg

:
:

3
H

3
3

933

936
937

g;g
940
941
942
343
g:;

946
947

INTERRUPT

IS GENERATED WHEN THE COMMAND IS REJECTED.

:
é

2.
3.

3
]

3
:
:
P

TSDB IS WRITTEN WITH ADDRESS OF THE COMMAND BUFFER TO
START PROCESSING.
THE PROGRAM WAITS FOR SSR TO SET;

IF SSR DOES NOT SET,

THE CONTENTS OF TSSR ARE CHECKED.

TSSR IS CORRECT IF

AN ERROR REPORT IS ISSUED AND THE TEST IS ABORTED.
IT CONTAINS EITHER OCTAL

102206 OR 102306 (BIT 6

DEPENDS UPON THE STATE OF THE TAPE TRANSPORT).
S.

s
bl

INITIALIZE THE CONTROLLER BY WRITING INTO THE TSSR;

PROPER INITIAL CONDITIONS ARE VERIFIED.

THE CONTENTS OF TSBA ARE CHECKED.
TSBA SHOULD CONTAIN
THE INITIAL COMMAND BUFFER ADDRESS (LOADED IN STEP 2)
PLUS 10 (OCTAL);
I.E., TSBA SHOULD POINT TO THE WORD
JUST AFTER THE COMMAND PACKET (NOTE THAT 4 COMMAND

PACKET WORDS ARE ALWAYS FETCHED).

USING THE MAINTENANCE MODE WRAPAROUND FUNCTIONS, THE

COMMAND IMAGE BLOCK IN THE M7196'S RAM (LOCATIONS

201-210 (OCTAL)) ARE CHECKED;

CPU MEMORY,

952
953
954
955
956

355;.

2
961

INTERRUPTS.,
THE COMMAND WORD IN THE COMMAND BUFFER IS
INITIALIZED TO 100000 (OCTAL) AND THE REMAINING THREE WORDS IN
THE COMMAND BUFFER ARE SET TO KNOWN UNIQUE PATTERNS.
THEN THE

948

949

SUBTEST

930
gg;

g;;

THIS TEST VERIFIES THAT ALL COMMANDS OTHER THAN WRITE
CHARACTERISTICS ARE REJECTED DUE TO THE NEED BUFFER ADODRESS

921
922
923

926

6: COMMAND REJECT

:
:
i
3
i

gg;

TESY

(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 MANDLING.
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

919

920

Bl2

COMMAND REJECT

905
908
909

PAGE 87

:
3

3
s
'
f
3

’
1}

THE IMAGE SHOULD CONTAIN

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

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.

SUBTEST 2 IS IDENTICAL TO SUBTEST 1, EXCEPT THAT THE PROGRAM

TSVSA

TEST

HARDWARE

TESTS

MACRO M1200

23-MAR-84 09:44

PAGE 87-1

Cle
SEQ 0145

COMMAND REJECT

%2
9%3
964
965
970
971
972
973
974

975

CAUSES THE IE BIT TO BE SET IN EACH COMMAND WORD AND THEN
VERIFIES THAT AN INTERRUPT OCCURS.

BGNTST
012700
004737
012737

030763
016500
000024

002214

T6L00P

MOV
JSR
MOV

980

981
982
986
987

020. ,LOOPCNT

" BGNSUB

T16::

sASCII MESSAGE TO IDENTIFY TEST
3100 INITIAL TEST SETUP
sPERFORM 20 ITERATIONS
V222222222274 BE%N SUBTEST

104402

976

977
978
979

@TST610,RO
PC,TSTSETUP

012700
104441
012704
012703
012314

104404
004737
103405
010001

OPRIOO

030440
002750

OT6PACKET R4
@TSTBLK,R3

S$:

(R3)+,(R4)

PC 3 SOF INIT

015764

RO R
Em SFIERR, SFIMSG

104455

002220
002222
016326
000200
000000
016240

FATFLG

10%:

INTRECV

$2>>3>3>>5>3>>>

BEGIN

SEGMENT

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

TRAP
C$BSEG
100 SOFT INIT OF CONTROLLER
1BR IF SOFT INIT = 0K
1SAVE CONTENTS OF TSSR
sDEVICE FATAL ERROR MI'#JNIT
CSERDF

1CLEAR FATAL ERROR FLAG

.WORD
.WORD
.WORD

1SET_THE PACKET ADDRESS
tWAIT FOR SSR TO SET

NON-AMBIGUOUS

1DISABLE INTERRUPTS

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

TSSR

tDEVICE FATAL SSR FAILED TO SET
TRAP
CSERDF
.WORD

1000
1001

062220

15%:

1002

1003

002222

1008

027702
027704
027706
027710
1009 027712
1010 027716

102206
016326

22%:

INC
CKLOOP

FATFLG

ESCAPE

suB

TST
BEQ
ERRHRD

INTRECY
224
ERRNO, TE6INT ,PKTSSR

MOV
JSR

@SC!NBA!SSR!TSREJ,R2
PC,CHKTSSR

601
SFIERR
SFIMSG

1CLEAR INTERRUPT RECEIVED FLAG

R4, TSDB(RS)
PC.WAITF

154

CsBSUB

MOV
#PRIOO,RO
TRAP
CS$SPRI
1GET THE ADDRESS OF COMMAND PACKET
:1BLOCK OF TEST DATA
s INSERT THE NEXT TEST DATA WORD

tWAIT FOR READY,

RO,R1
ERRMJ T6SSR,PKTSSR

IRAP

sLOWER PRIORITY TO ALLOW INTERRUPTS

PC,CHKTSSR

0B8IT7,(R4)

/77777777777

.WORD
.MORD

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

602

T6SSR
PKTSSR

TRAP
CsCLP1
1BY-PASS SUBTEST IF FATAL ERROR
TRAP
CSESCAPE
.

1DIN AN INTERRUPT OCCUR ?

L10053-.

1BRANCH IF NOT

TRAP

.MORD
.WORD
WORD

1EXPECTED CONTENTS OF TSSR

iWAIT FOR READY, NON-AMBIGUOUS

CSERHRD

603
T6INT
PKTSSR

TSVSA

TEST

HARDWARE

MACRO M1200

23-MAR-84 09:44

PAGE 87-2

D12
SEQ 0146

COMMAND REJECT

1011 027722
1012 027726
1013 027732
1014 027734
1015 027740
1016 027742
1020 027744
027744
027746
027750
027752
1021 027754
027754
1022 027756
1023 027762
1024 027766
1025 027770
1026 027774
1027 027776
1031 030000
030000
030002
030004
030006
1032

1039

TESTS

016501
032701
001402
052702
020201
001404

000002
000100
000100

254:

104456

001134
030450
012036

104406
004737
016501
010402
062702
020102
001404

30%:

016326
000000

MOV
BIT
BEQ
8IS
CMP
BEQ
ERRHRD

BEQ
ERRHRD

104456

1GET _THE CONTENTS OF TSSR
1 IS OFF-LINE BIT SET ?

1BRANCH IF NOT OFF -LINE

304
ERRNO,
TENBA ,PKTSSR

sOKAY IF MATCH
tNBA NOT SET TO REJECT

R2,R1

CkLOoOP
JSR
MOV
MOV

000010

TSSR(RS),R1

00FL ,R1
254
Q0FL ,R2

1SET OFF-LINE IN EXPECTED DATA
1COES EXPECTED MATCH RECEIVED ?

ERRNO, T6TSBA ,EXPREC

TRAP
sWAIT FOR READY, NON-AMBIGUOUS

35%:

104456
001136
004741
015500
40%:

JSR
8Cs
ERRHRD

PC,CKRAM

ERRNO,PKTRAM,RAMERR

ENDSEG

sEXPECT TSDA TO PACKET + 10
sCOMPARE EXPECTED TO RECEIVED
tERROR IF NOT EQUAL

sPRINT

THE ERROR & EXPD/RECV
TRAP

1BRANCH IF PACKET IN RAM IS CORRECT

tREPORT THE RAM ERROR(S)

jeccccceccccccc

062703
020327
103002
000137

000002
003056
027572

017172

CS$ESEG

c<cccccccccccc

50¢
S

sGET NEXT WORD FROM DATA TABLE
sREACHED END OF TABLE ?
1BRANCH IF END OF TABLsCONTINUE TEST WITH NEW DATA

;:GET BITS 0-4
;OON'T TEST WRITE CHARACTERISTICS
iBRANCH IF 0K

104403
TST
BEQ
JSR

TRAP

SEGMENT

END

SUBTEST

L10053:

002220

. WORD
p

CSERHRD
606
PKTRAM
RAMERR

sPACKET COMMAND WORD

€177740,R0
RO, 04
454
02,R3
R3,0TBLEND

45%;

TRAP
. WORD

(R3),RO

S NANANANNANNNANANN

005737
001402
004737

END

10000s:
177740
000004

FATFLG

60¢

PC,CKDROP

CS$ERHRD
605
T6TSBA
EXPREC

$SEE IF DATA IN RAM IS CORRECT

104405

011300
042700
020027
001002

CsCLP1

1START OF THE PACKET

.HMORD
.WORD
.WORD

011104

CS$ERHRD

604
T6NBA
PKTSSR

tGET TSBA REGISTER CONTENTS

001135
030711
015464
004737
103404

.WORD
.MORD
.WORD

sLOOP ON ERROR ?

PC,CHKTSSR
TSBA(RS),R1
R4 ,R2
010,R2
R1,R2
35¢

TRAP

1ANY FATAL ERRORS

1BRANCH IF NOT

s TRY

TO DROP

THE UNIT

NNNNNNNNNNNLL

TRAP

CSsESUB

TSVSA

- HARDWARE

TEST

TESTS

MACRO M1200

23-MAR-84 09:44

PAGE 88

SEQ 0147

COMMAND REJECT

1056 030076
030076
030076
1057
1058 030100
030100
030104
1059 030106
030112
1061 030116
1062 030120
030120
1063 030122
030126
1068 030130
1069 030132
030132
030134
030136
030140
1070 030142
1071 030146
1072
1073
1074
1075
1076
1077

60¢$:

BGNSUB

012700
104441
012704
012703
012314

104404
004737
103405
010001

SETPRI
030440
002750

23
OPRIOO

OT6PACKET
R4
0TSTBLK,R3

(R3)+,(R4)

S$:

015764

PC,SOFINIT

104

RO,R1

ERRNO, SFIERR, SFIMSG

104455

002220
002222
016326
000200
000000
016240

FATFLG

10%:

INTRECV

PC,CHKTSSR

#BIT7,(R4)

R4,TSDB(RS)
PC,WAITF
154
RO,R1
O,
T6SSR ,PKTSSR
ERRN

002220

15¢:

1084
1085

8 /17777777777 BE(%gN SUBTEST

104402

1081

1082
1083

El2

002222

102206
016326

22%:

000100

25%;

csBsuB

sLOWER PRIORITY TO ALLOW INTERRUPTS
MOV
OPRIOO,RO
TRAP
C$SPRI

1GET THE ADDRESS OF COMMAND PACKET
1START OF TEST DATA
sPLACE NEXT DATA WORD IN PACKET
$2>>>>>>>>>>>

BEGIN

SEGMENT

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

TRAP

C$BSEG

TRAP

CS$ERDF

.WORD
.WORD

SFIERR
SFIMSG

100 SOFT INIT OF CONTROLLER
1BR IF SOFT INIT = OK
1SAVE CONTENTS OF TSSR
sDEVICE FATAL ERROR DURING INIT

1+CLEAR FATAL ERROR FLAG
+CLEAR INTERRUPT RECEIVED FLAG
tWAIT FOR READY, NON-AMBIGUOUS
1ENABLE INTERRUPTS
1SET THE PACKET ADDRESS
tMAIT FOR SSR TO SET

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

.WORD
.WORD
.WORD

FATFLG

1SET FATAL ERROR FLAG

ESCAPE

SUB

1BY-PASS SUBTEST IF FATAL ERROR

1LOOP ON ERROR,

IF FLAG SET

TRAP

:DID AN INTERRUPT OCCUR ?

ERRHRD

INTRECV
224
ERRNO, TENINT ,PKTSSR

MOV
JSR
MOV

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

BIS
cMP
BEQ
ERRHRD

R2,R1
30¢
ERRNO,
TENBA ,PKTSSR

tEXPECTED CONTENTS OF TSSR
;WAIT FOR READY, NON-AMBIGUOUS
t1GET THE CONTENTS OF TSSR
1IS OFF-LINE BIT SET ?
1BRANCH IF NOT OFF -LINE
1SET OFF-LINE IN EXPECTED DATA
;1DOES EXPECTED MATCH RECEIVED ?
1OKAY IF MATCH
sNBA NOT SET TO REJECT

BIT
BEQ

000100

TRAP

INC
CKLOOP

TST

1090

/77777777777

00FL ,R1
254
00FL ,R2

CS$ERDF

608
T6SSR
PKTSSR
CsCLP1
CS$ESCAPE

-,
L10054

1BRANCH IF YES

tREPORT ERROR IF NO INTERRUPT

TRAP
.WORD
.WORD
.MORD

TRAP

.WORD

C$ERHRD
609
TONINT
PKTSSR

CS$ERHRD

610

TSVSA

TEST

1103
1104
1105
1106
1107
1108
1109
1113

HARDWARE

MACRO M1200

23-MAR-84 09:44

PAGE

88-1

F12
SEQ 0148

COMMAND REJECT
030274
030276
030300
030300
030302
030306
030312
030314
030320
030322

030450
012036
104406
004737
016501
010402
062702
020102
001404

30%:

016326
000000

1115

004737
103404

1116
1117
1121

104456
001144
004741
015500

1122

104405
011300
042700
020027
001002
062703
020327
103002

1123
1124
1125
1126
1127
1128
1129
1130
1131
1132

000137

35%:

40%:

177740

000002
003056

030116

104403
005737
001402
004737
004737
103002
000137

1137
1138
1139

104432
000344

002220
017172
016446

PC,CKRAM
404
ERRNO,PKTRAM,RAMERR

;SEE IF DATA IN RAM IS CORRECT

ENDSEG

BHIS
JMP

027552

62%:

1+COMPARE EXPECTED TO RECEIVED

sERROR IF NOT EQUAL
sPRINT THE ERROR & EXPD/RECV
TRAP
.WORD
.WORD
.WORD

sREPORT

THE RAM ERROR(S)

END

€177740,R0O
RO, 04
45%
02,R3
R3,0TBLEND

S50%
Ss

TRAP

612
PKTRAM
RAMERR

TRAP

C$ESEG

+GET BITS 0-4
sDON'T TEST WRITE CHARACTERISTICS
+BRANCH IF NOT WRITE CHARACTERISTICS
1BY-PASS WRITE CHARACTERISTCS

+HAVE WE COMPLETED DATA TABLE

:BRANCH IF ALL TESTED

JSR
8CC
JMP
EXIT

PC,TSTLOOP
62%
T6L00P
TST

s TEST WITH NEXT DATA

L10054:

60
PC,CKDROP

ccccccccccccc

tNEXT PACKET COMMAND WORD

$ MAANANANANANANANANY END SUBTEST

FATFLG

CS$ERHRD

.WORD
.WORD
.WORD

SEGMENT

10000
:
(R3),RO

CS$ERHRD
611
T6TSBA
EXPREC

1BRANCH IF PACKET IN RAM IS CORRECT

geccccccccccc<

TST

BEQ
60
:

CsCLP1

JSR
B8CS
ERRHRD

ENDSUB

1133
1134
1135

TRAP

BEQ
ERRHRD

BNE
45%:

T6NBA
PKTSSR

tWAIT FOR READY, NON-AMBIGUOUS
1GET TSBA REGISTER CONTENTS
1START OF THE PACKET
1EXPECT TSDA TO PACKET + 10

MOV
8IC

000004

1LOOP ON ERROR ?

.WORD
.WORD

PC,CHKTSSR
TSBA(RS),R1
R4 ,R2
#10,R2
R1,R2
35¢
ERRNO, T6TSBA ,EXPREC

ADD

000010

011104

CxLOOP
JSR
MOV
MOV

104456
001143
030711
015464

1114

1140
1141
1142
1143
1144
1148
1149
1150
1151

TESTS

:ANY FATAL ERRORS

:BRANCH IF NOT
:TRY

TO DROP

NNNNNANNNNL

TRAP

THE UNIT

tSHOULD WE DO ITERATIONS ?

1BRANCH IF NOT

1LOOP UNTIL COUNT EXPIRED
tALL DONE THIS TEST

TRAP
.WORD

;LOCAL STORAGE FOR THIS TEST
030440
030440
030442
030444

000000
052525
125252

T6PACKET:

.WORD
. WORD
. WORD

052525
125252

CSESUB

;COMMAND PACKET FOR TEST

sWILL CONTAIN VARIABLE COMMANDS

CSEXIT
L10052-.

TSVSA

TEST

1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163

HARDWARE

TESTS

MACRO M1200

23-MAR-84 09:44

PAGE 88-2

Gle
SEQ 0149

COMMAND REJECT

030446

052525

.WORD
T
;LOCAL
: -

030450
030475
030553
030631
030711

1164 030763
1165
1166 031002
031002

031002

103
103
125
105
111
103

104401

157
157
156
170
156
157

155
156
145
160
143

155

T6NBA:
T6SSR:
T6INT:
T6NINT:
T6TSBA:
TST6ID:

052525

TEXT MESSAGES FOR

.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.EVEN
ENDTST

TEST

'Command Not Re jected’
'Contents of TSSR Incorrect After Write Packet’
'Unexpected Interrupt Received On Write Packet’
'Expected Interrupt Not Received On Write Packet’
'Incorrect TSBA Address After Packet Write’
'Command Re ject'
L10052:

TRAP

CSETST

TSVS5A

TEST

HARDWARE

TESTS

MACRO M1200

23-MAR-84 09:44

H12

PAGE 89

SEQ 0150

COMMAND REJECT

1168
iigg

.SBTTL

TEST

WRITE CHARACTERISTICS

1171
1172
1173
1174
1175
1176
1177
1178
1179

:
:
:
:
:
i
:
:

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

1181
1182
1183

:
:
:

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

THE ROM OR PIPELINE.

1180

1184

{%gz

1187
1188

3
:

1189

1190

1191

IS THE FIRST TEST

THE TRANSPORT BUS) DEFINITELY INDICATE A BAD M7196 MODULE.

TEST (I.E,

THIS

IN WHICH DATO DMA CYCLES (FOR STORING THE

MESSAGE PACKET) ARE PERFORMED.

:
:

1196 031004

031004

031004
031010
031014
031022
031022

031022
031022
t?zgg 031024

012700
004737
012737

104402
004737

012764

1213 031054
saea 031054

104404

031056
031062
031064
031066
031066
031070
031072
031074

034273
016500
000024

002214

T7L00P:

1208 031030
031030
031034
1209 031036
1210 031042
%g{é 8;1.8;2

1215
1216
1220
1221

THIS TEST CHECKS VARIOUS MICROPROGRAM SEQUENCES, COMMAND
DECODING, DMA LOGIC, AND BASIC PACKET PROTOCOL HMANDLING.

ANY ERRORS IN THE BODY OF THE

ERRORS OTHER THAN INITIALIZATION ERRORS RELATED TO

1194
1195

1201
1202
1203
1204
1205

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

:
:

iigg

TEST HAVE THE INTERRUPT ENABLE (IE) BIT CLEARED TO ZERO, SO NO

012700
104441
012703
012704

004737
103405
010001

104455
001275
003646
012024

BGNTST
MOV
JSR
MOV

@TST7ID.RO
PC,TSTSETUP
€20. ,LOOPCNT

BGNSUB

T7::

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

TEST

$///////7/7777 BEGIN SUBTEST /77777777777

T7.1:

034322
000000
002762
033140

000010

000006

JSR

PC,T7REST

SETPRI

#@PRIOO

MOV
MOV

0TSTBLK+10. ,R3
O©T7PACKET ,R4
08. ,PKBCNT(R4)

MOV

BGNSEG

TRAP
;SET PACKET TO START-UP VALUES

;LOWER PRIORITY TO ALLOW INTERRUPTS
MOV
#PRIOO,RO
TRAP
C$SPRI
:START OF TEST DATA
31GET THE ADDRESS OF COMMAND PACKET
;START WITH MINIMUM ALLOWABLE VALUE
$223>>3>3>3>3>>> BEGIN SEGMENT

>>>3>3>>3>>>3>>)>

TRAP

015764

JSR
BCS
MOV
ERRDF

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

csBSUB

3100 SOFT INIT OF CONTROLLER
1BR IF SOFT INIT = OK
i1SAVE CONTENTS OF TSSR
;DEVICE FATAL ERROR DURING INIT
TRAP
.WORD
.WORD
.WORD

C$BSEG

CSERDF
701
SFIERR
SFIMSG

TSVSA

- HARDWARE

TEST

031076
031102
031106
031112
031116
031120
031122
031122
031124
031126
031130
1232 031132
1233 031136
031136
1234 031140
031140
031142
1235 031144
1236 031150
1240 031152
031152
031154
031156
031160
1241 031162
1242 031166
1243 031172
1244
1245
1246
1247
1251

031176
031200
031204
031206
031210
031210
031212
031214
031216
1252 031220
031220

1259
1260
1261
1262
1266

MACRO M1200

23-MAR-84 09:44

PAGE 89-1

112
SEQ 0151

WRITE CHARACTERISTICS

1222
1223
1224
1225
1226
1227
1231

1253
1254
1255
1256
1257
1258

TESTS

031222
031226
031232
031236
031244
031246

031252
031256
031262
031264
031266
031266
031270
031272
031274

1267
1268
1269 031276
1270 031302

005037
005037
010465
004737
103407
010001

104455
001276
033741
012036
005237

002220
002222
000000
016326

10¢:

JSR
8CS
MOV
ERRDF

104456
001277
034121
012036

016501

012702
032701
001402
052702
020201
001404

002220

15%:

002222

R4,TSDB(RS)
PC,CHKTSSR

154

RO,R1
ERRNO, T7SSR,PKTSSR

FATFLG

ESCAPE

SEG

1CLEAR FATAL ERROR FLAG
1CLEAR INTERRUPT RECEIVED FLAG
1SET THE PACKET ADDRESS

tWAIT FOR SSR TO SET

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

$1SET FATAL ERROR FLAG
:LOOP ON ERROR,

INTRECV
224
ERRNO,
T7INT ,PKTSSR

.WORD
.WORD
WORD

IF FLAG SET

000002
000200
000100

22%:

000100

25%:

MOV

BIT
BEQ
8IS
BEQ
ERRHRD

TSSR(RS),R1

#SSR,R2

Q0FL ,R1

254
Q0FL ,R2

R2,R1
304
ERRNO,
T7NBA ,PKTSSR

30¢:

033166
000200

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

000012

0BIT7,XST2(R2)
328
EXTFEA

002224
000016

#2,R2
014. ,R2

32%:

R1,R2
354
ERRNO, T7TSBA ,EXPREC

TRAP
.

CS$ESCAPE
10000¢
-.

TRAP

CS$ERHRD

WORD

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

JSR
BCS

PC,CKRAM

40%

PKTSSR

:SET OFF-LINE IN EXPECTED DATA

+DOES EXPECTED MATCH RECEIVED ?
sOKAY IF MATCH

iNBA NOT ZERO

TRAP
.WORD

CS$ERHRD
704

.WORD
.WORD

T7NBA
PKTSSR

TRAP

CsCLP1

iWAIT FOR READY, NON-AMBIGUOUS
iGET TSBA REGISTER CONTENTS
:START OF THE DATA BUFFER

+ IS EXTENDED FEATURES BIT SET ?
1BRANCH IF EXTENDED FEATURES OFF

+SET EXTENDED FEATURES FOR SUBTEST 6

tEXTRA WORD IF SPECIAL FEATURES

tEXPECTED CONTENTS OF TSDA
1COMPARE EXPECTED TO RECEIVED
1ERROR IF NOT EQUAL
iPRINT

THE ERROR & EXPD/RECV
TRAP

.WORD
35%:

703
T7INT

$1BRANCH IF NOT OFF -LINE

.WORD
.WORD

011104

702
T7SSR
PKTSSR
CsCLP1

:DID AN INTERRUPT OCCUR ?
:BRANCH IF NOT

:LOOP ON ERROR ?

016326

CS$ERDF

TRAP

1BY-PASS SUBTEST IF FATAL ERROR

.WORD
.WORD

104456
001301
034210
015464
004737
103404

INTRECV

INC
CxLOoP

TST
BEQ
ERRHRD

104456
001300
033300
012036
104406
004737
016501
012702
032762
001404
005237
062702
062702
020102
001404

FATFLG

TRAP

104406
104410
000152
005737
001404

CLR
CLR
MOV

CSERHRD

705
T7TSBA

EXPREC

:SEE IF DATA IN RAM IS CORRECT
+BRANCH IF PACKET IN RAM IS CORRECT

TSVSA

TEST

HARDWARE

TESTS

MACRO M1200

23-MAR-84 09:44

PAGE 89-2

J1e2

WRITE CHARACTERISTICS

1274 031304
031304
031306
031310
031312
1275
1276 031314
031314
031314
1277
1278 031316
1279 031322
1280 031326
1281 031330
1282
1283 031334
031334
031334
1284
1285 031336
1286 031342
1287 031344
1288 031350

SEQ 0152
ERRHRD

104456
001302
004741
015500

ERRNO,PKTRAM, RAMERR

+REPORT

THE RAM ERROR(S)

.WORD
.WORD

40$:

ENDSEG

§CCcccccccccce

END

104405
012364
020327
103002
000137

000006
003056

MOV

BHIS

031054

JMP

(R3)+,PKBCNT(R4)

R3,0TBLEND
55¢
Ss

ENDSUB

004737

TST

017172

60¢$:

BEQ
JSR

FATFLG

PC,CKDROP

PKTRAM
RAMERR

€CCCCCCCcccc<

TRAP

CS$ESEG

1BRANCH TILL BACK TO ZERO
END

SUBTEST

L10056:
002220

CS$ERHRD
706

+SET THE TEST WORD
1HAS ALL DATA BEEN TESTED ?
1BRANCH IF ALL DATA DONE

# MNANNNNANNNNNN

104403
001402

SEGMENT

00005
:

55%:

005737

TRAP
.WORD

iANY FATAL ERRORS

:BRANCH IF NOT
s TRY

TO DROP

THE UNIT

NANNALLLLLNNN

TRAP

C$ESUB

TSVSA

TEST

HARDWARE

TESTS

MACRO M1200

23-MAR-84 09:44

PAGE 90

K12
SEQ 0153

WRITE CHARACTERISTICS

1290
1291
1292
1293
1294
1295
1296
1297
1298
1299 031350
031350
031350
1300
1301 031352
031352
031356
1302 031360
1303 031364
031370

1 TEST 7, SUBTEST 2
3

:CHECK THAT UNUSED BITS BEING SET CAUSES
{WRITE CHARACTERISTICS COMMAND TO BE REJECTED
H
‘

033206
033140
034322

S$:

031374
031374

031376
031402
031404
031406
031406
031410
031412
031414
031416
031422
031424
031426
031432
031436
031442
031444
031446
031446
031450
031452
031454
1327 031456
031456
1328 031460
031460
031462
1329 031464
1330 031470
1334 031472
031472
031474
031476
031500
1335 031502

BGNSUB

$ /717777777777 BE(T;'IIN SUBTEST /77777777777
23
TRAP
csBSuB

SETPRI

OPRIOO

;LOWER PRIORITY TO ALLOW INTERRUPTS

MOV
MOV
JSR

@T72D0ATA,R3
OT7PACKET
R4
PC,.T7REST

:START OF TEST DATA FOR SUBTEST

BGNSEG
015764

JSR
B8CS
MOV

ERRDF

002222

10¢:

CLR
BIS

000002
000000
016240

JSR
B8CS
ERROF

15%:

002222

000002

TST
BEQ
ERRHRD

22%:

MOV

+RESTORE PACKET TO STARTING VALUES
BEGIN

SEGMENT

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

TRAP
PC,SOFINIT

104

RO,R1
ERRNO, SFIERR, SFIMSG

INTRECV

R4 ,RO

(R3),RO
2(R3),(RO)

R4,TSDB(RS)
PC,WAITF

15¢

RO,R1
ERRNO, T7SSR,PKTSSR

;00 SOFT INIT OF CONTROLLER
AR TF SOFT INIT = OK
1 SAVE CONTENTS OF TSSR
;DEVICE FATAL ERROR DURING INIT
TRAP

.WORD
.WORD
. WORD

:CLEAR INTERRUPT RECEIVED FLAG
:START OF THE COMMAND PACKET
sOFFSET TO THE DATA WORD TO TEST
:SET THE DATA BITS TO BE TESTED
:SET THE PACKET ADDRESS
iWAIT FOR SSR TO SET
:BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR
:DEVICE FATAL SSR FAILEDY;2PSET

:LOOP ON ERROR,
SEG
INTRECV
228
ERRNO, T7INT,PKTSSR

TSSR(R5),R1

OPRIOO,RO
C$SPRI

:GET THE ADDRESS OF COMMAND PACKET
$12>>>>>>3>>>>

CKLOOP
ESCAPE

MOV
TRAP

.WORD
.WORD
.WORD
IF FLAG SET

C$BSEG

CSERDF

707
SFIERR
SFIMSG

CSERDF
708
T7SSR
PKTSSR

TRAP

CsCLP1

TRAP

CS$ESCAPE

TRAP

CS$ERHRD

1BY-PASS CHECKS IF FATAL ERROR
.
:DID AN INTERRUPT OCCUR ?

10000
-.

1BRANCH IF NOT

.WORD
.WORD
.WORD

:GET THE CONTENTS OF TSSR

709
T7INT
PKTSSR

TSVSA

TEST

HARDWARE

TESTS

MACRO M1200

23-MAR-84 09:44

PAGE 90-1

L12
SEQ 0154

WRITE CHARACTERISTICS

1336 031506
1337 031512
031516
1339 031520
1340 031524
1341 031526
1342 031530
1343 031532
1344 031542
1345 031546
1349 031550
031550
031552
031554
031556
1350 031560
031560
1351 031562
1352 031566
1356 031570
031570
031572
031574
031576
1357 031600
1358 031600
031600
031600
1359
031602

1361 031606
1362 031612
1363 031614
1365 031620
031620
031620

012702
032701
001402
052702
020201

102206
000100
000100

001414
010100

020027
001404

002000

104456
001306
033353
012036
104406
032701
001004

25%:

MOV
BIT
BEQ
8IS
CMP

Q0FL ,R1
254
Q0FL ,R2

002000

104456
001307

35%:

R1,RO
R2,R0O
RO, ONBA

+FIND BITS IN ERROR
+IS NBA ONLY BIT IN ERROR ?

30¢

ONBA ,R1
354

ERRNO, T72NBA ,PKTSSR

S7s:
104403

;IS NBA BIT SET ?
;OKAY IF NBA SET
;NBA NOT SET

jCcccccccccccc

ENDSEG

BHIS
JMP

031364

tOON’'T PRINT ERROR IF NBA ONLY BAD BIT

1+COMMAND NOT REJECTED

TRAP
.WORD
.WORD
.WORD

C$ERHRD

TRAP

CsCLP1

TRAP

CS$ERHRD

.WORD
.WORD
.WORD

ADD

000004
033222

sOKAY IF MATCH
;+DATA FROM TSSR

;LOOP ON ERROR ?

ENDSUB

END

SEGMENT

10000$:

104405
062703
020327
103002
000137

1BRANCH IF NOT OFF -LINE

R2,R1

CkLooP
BIT
BNE
ERRHRD

1EXPECTED CONTENTS OF TSSR
+IS OFF -LINE BIT SET ?

$SET OFF -LINE IN EXPECTED DATA
+DOES EXPECTED MATCH RECEIVED ?

30¢
ERRNO, T72REJ,PKTSSR

30%:

033222
012036

OSC!SSR!TSREJ!NBA,R2

04 ,R3
R3,#T72D0NE
S7¢
Ss

710
T72REJ
PKTSSR

711
T72NBA
PKTSSR

<ccccccccccccc

TRAP

CS$ESEG

sPOINT TO NEXT DATA PAIR
:COMPARE TO END OF TEST DATA
:BRANCH IF ALL DATA TESTED
:BRANCH TILL BACK TO ZERO
s MNAANNANANNANANANN END SUBTEST

L10057:

NANNNANNNNNW

TRAP

CSESUB

TSVSA

- HARDWARE

TEST

TESTS

MACRO M1200

23-MAR-84 09:44

PAGE 91

M12
SEQ 0155

WRITE CHARACTERISTICS

1367
1368
1369
1370
1371
1372
1373
1374
1375
1376 031622

031622
031622

s TEST

SUBTEST 3

+CHECK THE WRITE CHARACTERISTICS COMMAND IS REJECTED
:IF ISSUED WITH AN INVALID DATA BLOCK BYTE COUNT

8/ /171770777777 BE(;;;NSSLBTEST 111777777777

BGNSUB

104402

1377
1378 031624
031624
031630
1379 031632
031636
031642

012700
104441
012703
012704
004737

031646
031646

104404

031650
031654
031656
031660
031660
031662
031664
031666
1392 031670
1393 031674
1394 031700
1395 031704
1396 031710
1397 031712
1401 031714
031714
031716
031720
031722
1402 031724
031724
1403 C31726
031726
031730
1404 031732
1405 031736
1409 031740
031740
031742
031744
031746
1410 031750
1411 031754
1412 031760

004737
103405
010001
104455
001310
003646
012024
005037

010364
010465
004737
103405
010001

TRAP

000001
033140
034322

015764

002222
000006
000000
016240

OPRIOO

;:LOWER PRIORITY TO ALLOW INTERRUPTS

MOV
MOV
JSR

01,R3

1STARTING BYTE COUNT
:GET THE ADDRESS OF COMMAND PACKET
;RESTORE PACKET TO STARTING VALUES

JSR
8CS
MOV
ERRDF

10%:

CLR

MOV

JSR
BCS
ERRDF

15%:

104406

104456
001312
034121
012036
016501
012702
032701

SETPRI

@T7PACKET
R4
PC,T7REST

002222

000002
102206
000100

TST

BEQ
ERRHRD

22%:

tflfld’

PC,SOFINIT
10¢
RO,R1

ERRNO, SFIERR, SFIMSG

MOV

BIT

OPRIOO,RO
C$SPRI

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

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

.WORD
.WORD
.WORD

INTRECV
R3,PKBCNT(R4)
R4,TSDB(RS)

:CLEAR INTERRUPT RECEIVED FLAG
: INSERT THE BYTE COUNT FOR TEST
:SET _THE PACKET ADDRESS

15¢

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

PC,WAITF

RO,R1

ERRNO, T7SSR,PKTSSR

SEG

INTRECV
228
ERRNO,
T7INT ,PKTSSR

TSSR(RS5),R1

OSC!SSR!TSREJ!NBA,R2
©00FL ,R1

C$BSEG

C$ERDF

712
SFIERR
SFIMSG

:WAIT FOR SSR TO SET

:DEVICE FATAL SSR FAILED TO SET
TRAP
.WORD

:LOOP ON ERROR,

CKLOOP
ESCAPE

MOV
TRAP

$2>>>>>3>3>>>>> BEGIN SEGMEN®

BGNSEG

104455
001311
033741
012036

104410
000116
005737
001404

Ss:

csBsus

.WORD
.WORD
IF FLAG SET

CsCLP1

TRAP

CS$ESCAPE

:DID AN INTERRUPT OCCUR ?
:BRANCH IF NOT
TRAP
.WORD
.WORD
WORD

{GET THE CONTENTS OF TSSR
:IS OFF-LINE BIT SET ?

T7SSR
PKTSSR

TRAP

1BY-PASS SUBTEST IF FATAL ERROR

;EXPECTED CONTENTS OF

C$ERDF
713

TSSR

lwoos’-

CS$ERHRD
714
T7INT
PKTSSR

TSVSA

- HARDWARE

TEST

1413
1414
1415
1416
1417
1418
1419

1427
1431

1432
1433

1434
1435
1436
1437
1438
1439
1440

MACRO M1200

23-MAR-82 09:44

PAGE 91-1

N12
SEQ 0156

WRITE CHARACTERISTICS

031764
031766
031772
031774
031776
032000
032010
1420 032014
1424 032016
032016
032020
032022
032024
1425
1426

TESTS

001402
052702
020201
001414
010100

020027
001404

000100

002000

104456
001312
033452
012036
104406
032701
001004

25%:

BEQ
BIS
CMP

254
QOFL ,R2

R2,R1
30¢
R1,RO
R2,RO
RO, #NBA

30¢
ERRNO, T73REJ,PKTSSR

30¢:
ONBA ,R1
354
ERRNO, T72NBA,PKTSSR

104456
001314
033222
012036

ENDSEG

sFIND PITS IN ERROR
+IS NBA ONLY BIT IN ERROR ?
sDON’T PRINT ERROR IF NBA ONLY BAD BIT
sCOMMANC NOT REJECTED

;IS NBA BIT SET ?

;NBA NOT SET

j<€<ccccccccc<cc

031636

S7s%:
104403

END

BGE

S57¢

ENDSUB

-1

CS$ERHRD
715
T73REJ
PKTSSR

TRAP

CsCLP1

TRAP
.WORD
.WORD
.WORD

CS$ERHRD
716
T72NBA
PKTSSR

SEGMENT

10000¢:

INC

TRAP
.WORD
.WORD
.WORD

sOKAY IF NBA SET

104405
005203
020327
002002
000137

1OKAY IF MATCH
1DATA FROM TSSR

;LOOP ON ERROR ?

002000

35%:

1BRANCH IF NOT OFF -LINE
:
$SET OFF-LINE IN EXPECTED DATA
1DOES EXPECTED MATCH RECEIVED ?

<¢ccccccceccccc

TRAP

CS$ESEG

tNEXT BYTE COUNT
:TESTED ALL INVALID ?
:BRANCH IF TEST DONE

:BRANCH TILL BACK TO ZERO

S MNANANANNNANANN

END

SUBTEST

L10060:

NNANNNNNNNNLL

TRAP

C$ESUB

TSVSA

- MARDWARE

TEST

TESTS

MACRO M1200

23-MAR-84 09:44

PAGE

B13

SEQ@ 0157

WRITE CHARACTERISTICS

1442
1443
1444
1445
1446
1447
1448

1 TEST 7, SUBTEST 4

:SWTEST TO VERIFY THAT A WRITE CHARACTERISTICS COMMAND IS
tREJECTED IF AN ILLEGAL DATA BLOCK ADDRESS IS ISSUED.

1449
1450

1451

BGNSUB

1453

012700
104441
012703
012704
004737

1454
1455
1456

1457
1458

004737
103405
010001

1470
1471
1475

033150

1478
1479 032202
1483 032204
032204

032206
032210
032212
032214
032220
032224
032230
032232

104410
000116
005737
001404

OT720ATA,R3
OT7PACKET ,R4
PC,T7REST

1START OF TEST DATA FOR SUBTEST

JSR
8CS
MOV
ERROF

PC,SOF INIT

100 SOFT INIT OF CONTROLLER
1BR IF SOFT INIT = OK
1SAVE CONTENTS OF TSSR
1DEVICE FATAL ERROR DURING INIT
TRAP
CS$EROF

104456
001317
034121
012036
016501
012702
032701
001402
052702

sLOWER PRIORITY TO ALLOW INTERRUPTS
MOV
OPRI0O,.RO
TRAP
C$SPRI

1GET THE ADDRESS OF COMMAND PACKET
tRESTORE PACKET TO STARTING VALUES

104

RO,R1

ERRNO,
SF IERR, SF IMSG

.WORD
. WORD

INTRECY

1CLEAR INTERRUPT RECEIVED FLAG

01, T7DATA
R4, TSDB(RS)
PC.WAITF

1SET THE PACKET ADDRESS
tWAIT FOR SSR TO SET

RO,R1
ERRNO, T7SSR ,PKTSSR

000002
102206
000100
000100

CxLooP

224

TST

INTRECV
224
ERRNO, T7INT ,PKTSSR

BIT
BEQ
BIS

TRAP

.WORD
.WORD
.WORD
IF FLAG SET
TRAP

CSEROF

718
T7SSR
PKTSSR

CsCLP1
1BY-PASS SUBTEST IF FATAL ERROR
TRAP
CSESCAPE

SuB

MOV
MOV

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

:LOOP ON ERROR,

ESCAPE

BEQ
ERRHRD

SFIERR
SFIMSG

tMAKE ADDRESS 0DD

15¢

002222

Cs8SUB

MOV
MOV
JSR

10%:

15¢:

TRAP

#PRIOO

016240

104406

1477

1488

Ss:

/77777777777

SETPRI

104455
001316
033741
012036

1476

1486

033206
033140
034322

002222

1469

1487

015764

1466
1467

1485

17.4;

104402

1452

1484

8///777/777777 BEGIN SUBTEST

TSSR(RS),R1
O0SC!SSR! TSREJ!N,R2
BA
00FL ,R1

254
Q0FL ,R2

L10061-.

TRAP

CS$ERHRD

.WORD

PKTSSR

1DID AN INTERRUPT OCCUR ?
1BRANCH IF NOT

.WMORD
.WORD

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

1BRANCH IF NOT OFF -LINE
1SET OFF -LINE IN EXPECTED DATA

719
T7INT

TSVSA

TEST

1489
1490
1491
1492
1493
1494
1498

HARDWARE

TESTS

MACRO M1200

23-MAR-84 09:44

Cl3
PAGE

92-1

SEQ 0158

WRITE CHARACTERISTICS

032236
032240
032242
032244

1499

1500
1501
1505

1506
1507 032312
032312
032312
1508

020201
001414
010100
020027
001404

254

032701
001004

1DOES EXPECTED MATCH RECEIVED ?

R1,RO
R2,RO
RO;MA
30

tFIND BITS IN ERROR
+IS NBA ONLY BIT IN ERROR ?

304

002000

ERRNO, T74REJ,PKTSSR

104456
001320
033545
012036
104406

R2,R1

30%:

sOKAY IF MATCH
1DATA FROM TSSR

sOON'T PRINT ERROR IF NBA ONLY BAD BIT

sCOMMAND NOT REJECTED

1LOOP ON ERROR ?

002000

ONBA ,R1
35%
ERRNO, T72NBA ,PKTSSR

104456

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

001321
033222
012036

ENDSUB

S NNANANANNNANANN

END

720
T74REJ
PKTSSR

TRAP

CsCLP1

TRAP

CS$ERHRD

SUBTEST

L10061:

CS$ERHRD

WORD
.MORD
.WORD

.WORD
.WORD
.WORD

358

104403

TRAP

721
T72NBA
PKTSSR

NNNAANNNNLLL

TRAP

CS$ESUB

TSVSA

HARDWARE

TEST

WRITE

TESTS

MACRO M1200

1522
1523
1524
1525
1526
1527
1528
1529
1533
1534

1535
1536
1537
1538
1539
1540
1544

1545
1546

1547
1548
1552

1553
1554
1555 032452

PAGE

D13
93

SEG 0159

CHARACTERISTICS

1510
1511
1512
1513
1514
1515
1516
1517
1518
1519
1520
1521

23-MAR-84 09:44

1 TEST 7, SUBTEST S

1CHLCK THAT WRITE CHARACTERISTICS COMMAND IS REJECTED IF THE

tMESSAGE BUFFER LENGTH SPECIFIES AN INVALID COUNT (LESS THAN 14)

BGNSUB

8/ /7777777777 BEF';IN

104402

012700
104441
012703
012704
004737

000001
033140
034322

Ss:

MOV
MOV
JSR

01,R3
OT7PACKET,R4
PC,T7REST

1STARTING BUFFER LENGTH
tGET THE ADDRESS OF COMMAND PACKET
tRESTORE PACKET TO STARTING VALUFS

TRAP

$2>2>5>>>5>>>>>

BEGIN

SEGMENT

C$SPRI

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

TRAP

015764

PC,SOFINIT

104

RO,R1

ERRNO, SFIERR, SFIMSC

+D0 SOFT INIT OF CONTROLLER
1BR IF SOFT INIT = OK
1SAVE CONTENTS OF TSSR
sDEVICE FATAL ERROR DURING INIT
TRAP

002222
033154
000000
016240

10¢:

CLR

.WORD
.WORD
.WORD

INTRECV

1CLEAR INTERRUPT RECEIVED FLAG

154

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

R3,T7DATA.4
R4, TSDB(RS)
PC,WAITF

RO,R1

ERRNO,
T7SSR ,PKTSSR

15¢:

CKLOOP
ESCAPE

002222

TST

BEQ

ERRHRD

INTRECV
224
ERRNO,
T7INT ,PKTSSR

.WORD
.WORD
.WORD
IF FLAG SET

22%:

MOV

BIT

TSSR(RS),R1
O0SC!SSR!TSREJ!NBA,R2
Q0FL ,R1

722
SFIERR
SFIMSG

CSEROF

723
T7SSR
PKTSSR

TRAP

CsCLP1

TRAP

CSESCAPE

1BY-PASS SUBTEST IF FATAL ERROR
.

1DID AN INTERRUPT OCCUR ?

10000s
-.

1BRANCH IF NOT

TRAP

000002
102206
000100

CSERDF

sWAIT FOR SSR TO SET

:LOOP ON ERROR,
SEG

C$BSEG

1 INSERT THE BAD MESSAGE LENGTH
1SET _THE PACKET ADDRESS

TRAP

104406

104456
001324
034121
012036
016501
012702
032701

csesus

tLOWER PRIORITY TO "LLOW INTERRUPTS
MOV
OPRIOO,RO

104455
001323
033741
012036

104410
000116
005737
001404

TRAP

#PRIOO

104455

001322
003646
012024
005037
010337
010465
004737
103405
010001

/77777277777

SETPRI

BGNSEG

104404
004737
103405
010001

SUBTESTY

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

tEXPECTED CONTENTS OF TSSR
+IS OFF-LINE BIT SET ?

CSERMRD

724
T7INT
PKTSSR

HARDWARE

TESTS

MACRO M1200

23-MAR-84 09:44

PAGE 93-1

3
SEQ 0160

WRITE CHARACTERISTICS

032456
0324€0
032464
032466
032470
032472
032502
032506
032510
032510
032512
032514
032516
1568 032520
032520
1569 032522
1570 032526
1574 032530
032530
- 032532
- 032534
-032536

1575 032540
1576 032540
032540
032540
1577
1578 032542
1579 032544
1580 032550
1581 032552

001402
052702
020201
001414
010100

020027
001404

104406
032701
001004

25%:

BEQ
8IS
cMP
BEQ
MOV
XOR

cMP
BEQ
ERRHRD

002000

104456
001325
033643
012036

30%:

ERRHRD

033222
012036

254
Q0FL ,R2

R2,R1
304
R1,RO

R2,RO

RO, ONBA

304
ERRNO, T7SREJ,PKTSSR

1BRANCH IF NOT OFF -LINE

1SET OFF -LINE IN EXPECTED DATA
+DOES EXPECTED MATCH RECEIVED ?

1OKAY IF MATCH
;DATA FROM TSSR

tFIND BITS IN ERROR
+IS NBA ONLY BIT IN ERROR ?

tOON'T PRINT ERROR IF NBA ONLY BAD BIT

s COMMAND NOT REJECTED

;LOOP ON ERROR ?

CckLooP

BIT

002000

104456
001326

ONBA ,R1
354

ERRNO, T72NBA,PKTSSR

+IS NBA BIT SET ?

005203
02C327
002002
000137

sNBA NOT SET

jccccccccccccc

57
S

032330
S7%:

104403

END

725
T7SREJ
PKTSSR

TRAP

CsCLP1

TRAP

CS$ERHRD

SEGMENT

10000$:
R3
R3,014,

CS$ERHRD

.WORD
.WORD
.WORD

35%:

000016

TRAP

;OKAY IF NBA SET

104405

1583 032556
032556
032556

000100

ccccccccccccc

TRAP

tNEXT BUFFER LENGTH

sHAVE

726
T72NBA
PKTSSR

ALL BAD VALUES BEEN TESTED

s1BRANCH IF ALL TESTED
:BRANCH TILL BACK TO ZERO
$ MANNAANANNANNANNN

END

SUBTEST

L10062:

C$ESEG

NNNANNNNNANNNL

TRAP

CSESUB

TSVSA

HARDWARE

TEST

WRITE

TESTS

MACRO M1200

23-MAR-84 09:44

1600

1601
1602
1603

F13
SEQ 0161

CHARACTERISTICS

1585
1586
1587
1588
1589
1590
1591
1592
1593
1594
1595
1596
1597
1596
1599

PAGE

s TEST

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

+IF THE BYTE COUNT PARAMETER IN THE COMMAND PACKET IS 10 DECIMAL

:OR GREATER.
i
'-

BGNSUB

104402
005737
001002
104432
001576
004737
012700
104441
012703
012704
012737
012764

$/////7/7/7/7777 BEGIN

002224

TST
BNE
EXIT

EXTFEA

TST

034322

000000

103407

1627 032700
032700
032702
032704
032706
1628 032710
1629 032714
032714
1630 032716
032716

002764
033140
000200
000012

104406
104410

csssus

.WORD

033160
000006

PC,.T7REST

sSET PACKET TO START-UP VALUES

SETPRI

OPRIOO

;LOWER PRIORITY TO ALLOW INTERRUPTS

200, T7SP
€10. ,PKBCNT(R4)

Ss:

1START OF TEST DATA

OPRIOO,RO

TRAP

C$SPRI

tGET THE ADDRESS OF COMMAND PACKET

s SPECIAL BIT SET FOR EXTFEA RAM RD

iSTART WITH EXTENDED FEATURES VALUE
$22>>>3>>>>>>

BEGIN

SEGMENT

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

TRAP

015764

PC,SOFINIT

10$

ERRDF

RO,R1

ERRNO, SFIERR, SF IMSG

10%:

CLR
CLR
JSR
BCS

ERRDF

FATFLG

INTRECV

R4,TSDB(RS)
PC,CHKTSSR

154

RO,R1

ERRNO, T7SSR,PKTSSR

:BR IF SOFT INIT = OK
1 SAVE CONTENTS OF TSSR
sDEVICE FATAL ERROR DURING INIT
.WORD
.WORD
.WORD

:CLEAR FATAL ERROR FLAG
:CLEAR INTERRUPT RECEIVED FLAG
1SET _THE PACKET ADDRESS
sWAIT FOR SSR TO SET
1BR IF CARRY SET (GOOD RETURN)
1 SAVE CONTENTS OF TSSR
tDEVICE FATAL SSR FAILED TO SET
TRAP
.WORD

002220

15¢:

CSERDF

727
SFIERR
SFIMSG

CSERDF
728

.WORD
.WORD

T7SSR
PKTSSR

TRAP

CsCLP1

TRAP

CSESCAPE

INC

FATFLG

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

ESCAPE

SEG

1BY-PASS SUBTEST

CxLooP

C$BSEG

;00 SOFT INIT OF CONTROLLER

TRAP

002220
002222
000000
016326

CSEXIT

L10055-.

JSR

0TSTBLK+12.
,R3
OT7PACKET,R4

010001

104455
001330
033741
012036
005237

TRAP

+IS EXTENDED FEATURES SOFT, SW SET?
1BR, IF SOFTWARE SWITCH IS SET (ON)
tNO EXTENDED FEATURES EXIT THIS TEST

MOV

104455
001327
012024
005037
005037
010465
004737

/////777772777

TRAP

104404
004737
103405
010001

SUBTEST

17.6:

IF FATAL ERROR

TSVSA

TEST

HARDWARE

TESTS

MACRO M1200

23-MAR-84 09:44

PAGE 94-1

G13
SEQ 0162

WRITE CHARACTERISTICS

032720
1631 032722
1632 032726
1636 032730
032730
032732
032734
032736
1637 032740
1638 032744
1639 032750
1640 032754
1641 032756
1642 032762
1643 032764
1647 032766
032766
032770
032772
032774
1648 032776
032776
1649 033000
1650 033004
1651 033010
1652 033014
1653 033022
1654 033024
1655 033030
1656 033034
1657 033036
1661 033040
033040
033042
033044
033046

033050
033054
033060
033062
033062
033064
033066
033070

1671
1672 033072
1673 033076
033076
033076
1674
1675 033100
1676 033104
1677 033110
1678 033112
1679

000156
005737
001404
104456
001331
034121
012036
016501
012702
032701
001402
052702
020201
001404

002222

TST

BEQ
ERRHRD

000002
000200
000100

22%:

000100

25%:

104456
001332
033300
012036
104406

004737
016501
012702

032762
001402
062702

062702
020102
001404

MOV

BIT
BEQ
8IS

BEQ
ERRHRD

016326

TSSR(RS),R1
@SSR ,R2

Q0FL ,R1
254
00FL ,R2
R2,R1
30¢
ERRNO,
T7NBA ,PKTSSR

033166
000200
000002
000016

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

000012

OBIT7,XST2(R2)
32

02.R2

32%:

014. ,R2

R1,R2
35¢
ERRNO, T7TSBA,EXPREC

TRAP
.WORD
.WORD

CS$ERHRD
729
T7INT

.WORD

033150
011214

35¢:

MOV
JSR
B8CS
ERRHRD

OT7DATA,R4
PC,CKRAM2
40%

ERRNO,PKTRAM,RAMERR

sEXPECTED CONTENTS OF

+IS OFF -LINE BIT SET

TSSR

$BRANCH IF NOT OFF -LINE

+SET OFF-LINE IN EXPECTED DATA

1DOES EXPECTED MATCH RECEIVED ?
;OKAY IF MATCH

tNBA NOT ZERO

TRAP

40%;

MOV
ENDSEG

OT7PACKET
R4

730
T7NBA
PKTSSR

TRAP

CsCLP1

iWAIT FOR READY, NON-AMBIGUOUS
tGET TSBA REGISTER CONTENTS
1START OF THE DATA BUFFER
+ IS EXTENDED FEATURES BIT SET ?
1BRANCH IF EXTENDED FEATURES OFF
tEXTRA WORD IF SPECIAL FEATURES
;EXPECTED CONTENTS OF TSDA

1COMPARE EXPECTED TO RECEIVED

:ERROR IF NOT EQUAL

:PRINT

THE ERROR & EXPD/RECV
TRAP

MOV

032632

BHIS
JMP

(R3)+ ,PKBCNT(R4)

554
S

731
T7TSBA

EXPREC

iBRANCH IF PACKET IN RAM IS CORRECT

;:REPORT

THE RAM ERROR(S)

TRAP

C$ERHRD

732
PKTRAM
RAMERR

sRESET PACKET POINTER
jC<<cccccccccec

R3,0TBLEND

CS$ERHRD

:SET POINTER FOR CHECKER
:SEE IF DATA IN RAM IS CORRECT

END

SEGMENT

10000¢$
:
000006
003056

CS$ERHRD

.WORD
.WORD
.WORD

033140

PKTSSR

tGET THE CONTENTS OF TSSR

.WORD

104405
012364
020327
103002
000137

10000$-.

.WORD
.WORD

104456
001334
004741
015500
012704

ERRN
T7INT ,PKTSSR
O,

.WORD

:DID AN INTERRUPT OCCUR ?
1BRANCH IF NOT

:LOOP ON ERROR ?

104456
001333
034210
015464
012704
004737
103404

INTRECV
224

<cccccccccccc

TRAP

1SET THE TEST WORD

tHAS ALL DATA BEEN TESTED

:BRANCH IF ALL DATA DONE

1BRANCH TILL BACK TO ZERO

CSESEG

TSVS5A

TEST

HARDWARE

TESTS

MACRO M1200

23-MAR-84 09:44

H13
PAGE 94-2

SEQ 0163

WRITE CHARACTERISTICS

1680 033116
033116
033116
1681
1682 033120
1683 033124
1684 033126
1685 033132
1686 033132
033132
033134
1687
1688
1689
1690
1691
1693
1695 033140
1696 033140
1697 033142
1698 033144
1699 033146
1700
1701 033150
1702 033150
1703 033152
1704 033154
1705 033156
1706 033160
1707
1708 033162
1709 033166
1710
i711
1712
1713
1714
1715
1716
1717
1718
1719
1720
1721
1722 033206
1723 033206
1724 033212
1725 033216
1726
1727
1728
1729
1730
1731
1732
1733 033222
1734 033300

55%:

ENDSUB

#F MANANANANNANNANY

END SUBTEST

L10063:

104403
005737
001402
004737

002220

TST

017172

FATFLG

BEQ
JSR

60$:

EXIT

104432
001234

s ANY FATAL ERRORS
sTRY

TST

;ALL DONE THIS TEST

TO DROP

TRAP

CS$ESUB

TRAP
.WORD

CSEXIT
L100SS5-.

604
PC,CKDROP

;BRANCH IF NOT

NANANNANNANNLL

THE UNIT

:LOCAL STORAGE FOR THIS TEST
033140

.*<,+10>E177770

T7PACKET:

100004
033150

.WORD
.WORD
.WORD
.WORD

000010
T7DATA:

033166

T7DATA

1STARTING VALUE OF BLOCK SIZE

s CHARACTERISTICS DATA BLOCK

.WORD
.WORD
.WORD
.WORD

000016
T7SP:

000000

:COMMAND PACKET FOR TEST
sWRITE CHARACTERISTICS COMMAND, WITH ACK
+ADDRESS OF CHARACTERISTICS BLOCK

100004

T7BFR:

s ADDRESS OF MESSAGE BUFFER

1LENGTH OF MESSAGE BUFFER

.WORD

:EXTFEA EXTRA WORD

.WORD

: SPACE
tMESSAGE BUFFER

.BLKW

;s TEST DATA FOR SUBTEST

TWO

:DATA HAS FORMAT:

1ST WORD
2ND WORD

000000
000002
000004
033222

T72DATA:

037140
000001
100100

. WORD
.WORD
.WORD

T7200NE
=,

OFFSET TO TEST WORD IN PACKET
BITS TO SET FOR TEST

0,BITS!BIT6!BITI!BITIOMBITIIIBITI2!BITLS
2,8IT0

4,BIT6!BIT1S

sLOCAL
116
127

102
122

101
111

T72NBA;
T7NBA:

TEXT MESSAGES FOR TEST

.ASCIZ
.ASCIZ

‘NBA Not Set On Ro?cctcd WRITE CHARACTERISTICS'
'WRITE CHARACTERISTICS Command Not Accepted’

TSVSA

TEST

HARDWARE

TESTS

MACRO M1200

23-MAR-84 09:44

PAGE 94-3

113
SEQ 0164

WRITE CHARACTERISTICS

1735 033353

1736 033452
1737 033545
1738 033643
1739 033741
1740 034030
1741 034121
1742 034210
1743 034273
1744
1745

127
127
127
127
103
105
125
111

127

122
122
122
122
157

111
111
111
111

156
160

145
143
151

T72REJ:
T73REJ:
T74REJ:
T7SREJ:
T7SSR:
T7NINT:
T7INT:
T7TSBA:
TST71D:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.EVEN

'WRITE
'WRITE
‘WRITE
'WRITE

CHARACTERISTICS
CHARACTERISTICS
CHARACTERISTICS
CHARACTERISTICS

Not
Not
Not
Not

Re
jected
Rejected
Re jected
Rejected

With
With
With
With

Non-Zero Unused Fields’
Invelid Data Count’
Invalid Block Address’
Invalid Buffer Length’

‘Contents of TSSR Incorrect After WRITE CHARACTERISTICS'

'Expected Interrupt Not Received On WRITE CHARACTERISTICS’
'Unexpected Interrupt Received On WRITE CHARACTERISTICS'
' Incorrect TSBA Address After WRITE CHARACTERISTICS'
‘'Write Characteristics'’

TSV5A

TEST

HARDWARE

TESTS

MACRO M1200

23-MAR-84 09:44

PAGE 95

J13
SEQ 0165

WRITE CHARACTERISTICS

1747
1748
1749
1750
1751
1752
1753
1754 034322
1755 034322
1756
1757 034332
1758 034336
1759 034342
1760 034344
1761 034350
1762 034354
1763 034356
1764 034362
1765 034364

1766 034366
1767 034370
034370
034370
1768

HEJ

:ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES
T7REST:

012701
012721
012721
005021
012721
012721
005021
012721
005021
005011
000207
104401

033140
100004
033150
000010
033166
000020

SAVREG
MOV
MOV

CLR

(R1)+

MOV

OT7BFR,(R1)+

MOV

CLR
MOV
CLR
CLR

RTS
ENDTST

@T7DATA,(R1)+

(R1).
€16.,(R1).
(R1).
(R1)

:SAVE THE REGISTERS
1START OF

THE PACKET

tWRITE CHARACTERISTICS WITH ACK
+ADDRESS OF CHAR DATA BLOCK
1EXTENDED ADDRESS
1SIZE OF DATA BLOCK IN BYTES
s ADDRESS OF MESSAGE BUFFER

tLENGTH OF MESSAGE BUFFER
sRETURN
L10055:

TRAP

CSETST

TSVSA

TEST

HARDWARE

TESTS

MACRO M1200

23-MAR-84 09:44

K13

PAGE 96

SEQ 0166

VOLUME CHECK

1770
1;;1

.SBTTL

TEST

VOLUME CHECK

1772
1773
1774

:
:

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

1779

PREVENTING OR ALLOWING A

1775
1776
1777
1778

:
H
:
:

1780
1781

H
:

i;gg

H
:

1;:;
1

:
H

l;g?
1
1788
1789

TAPE MOTION COMMANDS.
THE

TEST PROCEEDS AS FOLLOWS:

THE CONTROLLER IS INITIALIZED BY WRITING INTO THE TSSR.

A WRITE CHARACTERISTICS COMMAND IS ISSUED (WITH CVC=0)
AND XSTO IN THE RETURNED MESSAGE BUFFER IS EXAMINED;

THE VCK BIT SHOULD BE CLEAR (0).

1792

i;gz

H
H

1795
1796
i;g;

:
:
H
H

1799
1800

:
:

{gg%

1809 034372

012700

035257

1811 034402

012737

000024

034410
034414
034420
034422
034424
034424
034426
034430
034432
1822 034434
1823 034440

012704
004737
103405
010001

035000
015764

034454

104455

1810 034376

{gg 034410
1814
1815
1816
1820
1821

034444
034450
034452
034454

THE PREVIOUS STEP IS REPEATED TO VERIFY THAT VCK DOES

NOT CHANGE (REMAINS AT 0).

A WRITE CHARACTERISTICS COMMAND IS ISSUED WITH CvC=1
AND THE VCK BIT IN XSTO IN THE MESSAGE BUFFER IS
EXAMINED;
THE VCK BIT SHOULD 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 SHOW.D REMAIN CLEAR (0).

1803
1804 034372

034372

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

:
H
3
:

i;go

1824
1825
1826
1830

CLEARED BY EXECUTING A WRITE CHARACTERISTICS COMMAND WITH THE
CvC BIT SET.
1IT 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

004737

104455
001441
003646
012024
042714
010465

004737
103405
010001

016500

040000
000000
016326

BGNTST
MOV

002214

T8LOOP:
S$:

10%:

sASCII MESSAGE

€20. ,LOOPCNT

;PERFORM 20 ITERATIONS

JSR

PC,TSTSETUP

MOV
JSR
BCS
MOV
ERRDF

O@TBPACKET ,R4
PC,SOFINIT
10¢
RO,R1
ERRNO, SFIERR, SFIMSG

BIC
MOV
JSR
BCS
MOV

o8IT14,(R4)
R4 ,TSDB(RS)
PC,CHKTSSR
15¢
RO,R1

MOV

ERRDF

18::

€TST8ID,RO

ERRNQO, TBSSR,PKTSSR

TO IDENTIFY

;00 INITIAL TEST SETUP

TEST

;PACKET FOR WRITE CHARACTERISTICS
;00 SOFT INIT OF CONTROLLER
;BR IF SOFT INIT = OK
: SAVE CONTENTS OF TSSR
;DEVICE FATAL ERROR DURING INIT
TRAP
CSERDF
.WORD
801
.WORD
SFIERR
.WORD
SFIMSG
;CLEAR THE CVC BIT
;SET THE PACKET ADDRESS FOR WRITE CHAR

sWAIT FOR SSR TO SET
:BR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR
;DEVICE FATAL SSR FAILED TO SET
TRAP

CSERDF

TSVSA

- HARDWARE

TEST

TESTS

MACRO M1200

23-MAR-84 09:44

PAGE 96-1

L13
SEQ 0167

VOLUME CHECK

034456
034460
034462
1831 034464
034464
1832 034466
034466
034470
1833 034472
1834 034476
1835 034504
1839 034506
1840 034512
034512
034514
034516
034520
1841 034522
034522
1842 034524
1843 034530
034534
1845 034536
1849 034540
034540
034542
034544
034546
1850 034550
034550
1851 034552
034552
034554
1852 034556
1853 034564
1857 034566
1858 034572
034572
034574
034576

034602
034602
034610
034614
034622
034624
034624
034626
034630
034632
1869 034634
034634
1870 034636
034636

001442
035170
012036

15¢:

104406
104410
000604
012702
032762
001406
016501

035022
000020

000006

000002

104456
001443
035077
012100

104406
010465
004737
103405

20%:
000000
016326

104455
001444
035170
012036

25%:

104406

000020
000002

104456
001445
035077
012100

104406
052714
010465
004737
103405
010001

000006

30%:
040000
000000
016326

104406
104410

35¢:

TRAP
.WORD

CSESCAPE
L10064-.

MOV
BIT
BEQ
MOV
ERRHRD

OT8BFR,R2
#XSOVCK
, XSTO(R2)
208
TSSR(RS),R1
ERRNO, TBNVCK,PKTMES

1+ADDRESS OF THE MESSAGE BUFFER
+IS VOLUME CHECK SET IN XSTO ?
sOKAY IF VOLUME CHECK IS CLEAR

sCONTENTS OF TSSR FOR ERROR REPORT
s VOLUME CHECK NOT CLEAR
TRAP
.WORD

:LOOP ON ERROR ?
R4, TSDB(RS)
PC,CHKTSSR
25
RO,R1
ERRNO,T8SSR,PKTSSR

CS$ERHRD
803

.WORD
.WORD

T8NVCK
PKTMES

TRAP

CsCLP1

+SET THE PACKET ADDRESS FOR WRITE CHAR
sWAIT FOR SSR TO SET

+BR IF CARRY SET (GOOD RETURN)

:SAVE CONTENTS OF TSSR
;:DEVICE FATAL SSR FAILED TO SET
TRAP

;LOOP ON ERROR,

CKLOOP

.WORD
.WORD
.WORD

IF FLAG SET

CSERDF

804
T8SSR
PKTSSR

TRAP

CsCLP1

TRAP
. WORD

CS$ESCAPE
L10064
-.

ESCAPE

TST

;EXIT

BIT
BEQ
MOV
ERRHRD

OXSOVCK,XSTO(R2)
304
TSSR(RS),R1
ERRNO, T8NVCK,PKTMES

+IS VOLUME CHECK SET IN XSTO ?
:OKAY IF VOLUME CHECK IS SET
:CONTENTS OF TSSR FOR ERROR REPORT

081T14,(R4)
R4 ,TSDB(RS)
PC,CHKTSSR
35%
RO,R1
ERRNO, T8SSR,PKTSSR

CKLOOP
ESCAPE

IF FATAL ERROR

i VOLUME CHECK NOT SET

:LOOP ON ERROR ?

CKLOOP

001446

035170
012036

CsCLP1

sEXIT IF FATAL ERROR

CKLOOP

802
T8SSR
PKTSSR

TRAP

TST

BIS
MOV
JSR
BCS
MOV
ERRDF

104455

1LOOP ON ERROR,

ESCAPE

MOV
JSR
BCS
MOV
ERRDF

010001

104410
000520
032762
001406
016501

CKLOOP

.WORD
.WORD
.WORD
IF FLAG SET

TST

TRAP

CS$ERHRD

.WORD
.WORD
.WORD

805
T8NVCK
PKTMES

TRAP

CsCLP1

:SET THE CVC BIT
1SET THE PACKET ADDRESS FOR WRITE CHAR
:WAIT FOR SSR TO SET
:BR IF CARRY SET (GOOD RETURN)

1SAVE CONTENTS OF TSSR
;:DEVICE FATAL SSR FAILEDngpSET
.WORD
.WORD
.WORD
:LOOP ON ERROR, IF FLAG SET
TRAP
;EXIT IF FATAL ERROR
TRAP

CSERDF
806
T8SSR
PKTSSR
CsCLP1
CS$ESCAPE

TSVSA

TEST

HARDWARE

TESTS

MACRO M1200

23-MAR-84 09:44

M13
PAGE 96-2

SEQ 0168

VOLUME CHECK

034640
034642
034650
034652
034656
034656
034660
034662
034664
1878 034666
034666
1879 034670
1880 034674
1881 034700
1882 034704
1883 034706
1887 034710
034710
034712
034714
034716
1888 034720
034720
1889 034722
034722
034724
1890 034726

1871
1872
1876
1877

1891 034734
1895 034736
1896 034742
034742
034744
034746
034750
034752
034752
034754
034760
034762
034766
034766
034770

000434
032762
001406
016501

000020

MOV
ERRHRD

000002

104456
001447
035042
012100
104406
042714
010465
004737
103405
010001

40%:

JSR
8CS
ERRDF

45s%:

104406

000002

104456
001451
035042
012100
104406
004737
103002
000137

104432

BIT
BEQ

000006

016446

034410

TSSR(R5),R1

ERRNO,
T8VCK ,PKTMES

0BIT14,(R4)

R4,TSDB(RS)
PC,CHKTSSR
45
RO,R1
ERRNO,
TBSSR ,PKTSSR

ERRHRD

S0$:

CKLOOP

60$:

JSR
8CC

62%:

EXIT

. WORD

L10064
-,

TRAP

CS$ERHRD
807
T8VCK

+IS VOLUME CHECK CLEAR IN XSTO ?
sOKAY IF VOLUME CHECK IS CLEARED
sCONTENTS OF TSSR FOR ERROR REPORT
s VOLUME CHECK NOT CLEARED

:LOOP ON ERROR ?

.WORD
.WORD
.WORD

PKTMES

TRAP

CsCLP1

:CLEAR THE CVC BIT
+SET THE PACKET ADDRESS FOR WRITE CHAR
tWAIT FOR SSR TO SET

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

;:DEVICE FATAL SSR FAILED TO SET
TRAP
.WORD
. WORD
. WORD

CSERDF
808
T8SSR

TRAP

CsCLP1

TRAP

C$ESCAPE

;:LOOP ON ERROR, IF FLAG SET

CKLOOP
ESCAPE

000020

:g?OVCK.XSTO(RZ)

CKLOOP

B8IC

040000
000000
016326

104455
001450
035170
012036

104410
000350
032762
001406
016501

BIT
BEQ

000006

TST

;EXIT IF FATAL ERROR

@XSOVCK ,XSTO(R2)
S04
TSSR(RS),R1
ERRNO,
T8VCK ,PKTMES

. WORD

L10064-.

+IS VOLUME CHECK CLEAR IN XSTO ?
:OKAY IF VOLUME CHECK IS CLEARED
:CONTENTS OF TSSR FOR ERROR REPORT
s VOLUME CHECK NOT CLEARED
TRAP

:LOOP ON ERROR ?
PC,TSTLOOP
624
T8LOOP
TST

PKTSSR

C$ERHRD
809

.WORD
.WORD
.WORD

T8VCK
PKTMES

TRAP

CsCLP1

:SHOULD WE DO ITERATIONS ?

+BRANCH IF NOT

:LOOP UNTIL COUNT EXPIRED
e
:ALL DONE THIS TEST

000304

.WORD

CSEXIT

L10064-.

:LOCAL STORAGE FOR
'

035000
035000
035002

035006
035010
035010
035012

035000

100004
035010

.=<,+10>E177770

TBPACKET
:

. WORD

000000
000010

035022

IHIS

TEST

T8DATA:

. WORD
. WORD

100004
T8DATA
0
10

.WORD
.WORD

T8BFR
0

:COMMAND PACKET FOR TEST

tWRITE CHARACTERISTICS COMMAND

s+ADDRESS OF CHARACTERISTICS BLOCK
:STARTING VALUE OF COUNTER

1CHARACTERISTICS DATA BLOCK

:ADDRESS OF MESSAGE BUFFER

TSVSA

- HARDWARE

TEST

HAQRO M1200

23-MAR-84 09:44

PAGE 96-3

N13
SEQ 0169

VOLUME CHECK

1919 035014

1920 035016
1921
1922 035022

1923
1924
1925
1926
1927
1928
1929
1930
1931
1932
1933
1934

TESTS

000020

000000
T8BFR:

.WORD
.WORD

16,
0,0

tLENGTH OF MESSAGE BUFFER

.BLKW

+MESSAGE BUFFER

HEg

:LOCAL TEXT MESSAGES FOR TEST
'-

035042
035077
035170
035257

126
126
103
126

035274
035274
035274

104401

157
157
157
157

154
154
156
154

T8VCK:
TBNVCK:
T8SSR:
TST8ID:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.EVEN
ENDTST

'Volume Check Bit Not Cleared’
'Volume Check Bit (VCK) Not Clear After Initialize (XSTO)'
'Contents of TSSR Incorrect After Write Characteristics’
'Volume Check'’

L10064:

TRAP

CSETST

TSVSA

- HARDWARE

TEST

TESTS

MACRO M1200

23-MAR-84 09:44

B14

PAGE 97

SEQ 0170

COMPLETION INTERRUPT

1936
1937
1938
1939

.SBTTL

035320
1966
1967 035322
1968 035326
035326
035332
1969 035334
1970 035340
1971 035344
1972 035352
1973 035352
035352
1974
1975 035354
1976 035360
1980 035362
1981 035364
035364
035366
035370
035372
035374
035400
035404
035410
035414
035416
035420
035420

COMPLETION INTERRUPT

THIS TEST VERIFIES THAT AN INTERRUPT IS GENERATED AT THE

1940
1941
1942
1943
1944
1945
1946
1947
1948
1949
1950
1951
1952

1953
1954
1955 035276
035276
1960 035276
1961 035302
1962 035306
1963 035312
1964 035320
1965 035320
035320

TEST

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

PROCESSING OF THE IE BIT.
THE SEQUENCES OF TEST

7 ARE REPEATED,

EXCEPT THAT THE

INTERRUPT

SERVICE ROUTINE IS SET UP TO EXPECT INTERRUPTS AND EACH WRITE
CHARACTERISTICS COMMAND IS ISSUED WITH THE IE BIT SET (1).
1IT
IS VERIFIED, 4HERE APPROPRIATE, 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 IE=1 AND THE SECOND WITH IE=O0.

IS VERIFIED THAT

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

BGNTST
005037
012700
004737
012737

002224
040311
016500
000024

CLR

002214

TOLOOP:

MOV
JSR
MOV

e
::

EXTFEA

sCLEAR EXTENDED FEATURES SWITCH

@T1ST9ID,RO
PC,TSTSETUP
#20. ,LOOPCNT

sASCII MESSAGE TO IDENTIFY TEST
100 INITIAL TEST SETUP
sPERFORM 20 ITERATIONS

BGNSUB

8/////7//7777 BEGIN SUBTEST /77777772777

104402

004737
012700
104441
012703
012704
012764

TRAP

JSR

040336

002762
037240
000010

SETPRI

Ss:

104404
004737

103405
010001

104455
001605
003646
012024
005037
005037
010465
004737

103407

010001

104455

MOV
MOV
MOV

PC,TO9REST

$1SET PACKET TO INITIAL VALUES

@PRIOO

sLOWER PRIORITY TO ALLOW INTERRUPTS

MOV
TRAP

0TSTBLK+10. ,R3
OT9PACKET R4

08. ,PKBCNT(R4)

$1START WITH MINIMUM ALLOWABLE VALUE

BGNSEG

$22>3>3>>>3>>> BEGIN SEGMENT

JSR

PC,SOFINIT

MOV
ERROF

RO,R1
ERRNO, SFIERR, SF IMSG

8CS

OPRIOO,RO
C$SPRI

1START OF TEST DATA
1GET THE ADDRESS OF COMMAND PACKET

TRAP

015764

csBsSuB

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

100 SOFT INIT OF CONTROLLER

tBR IF SOFT INIT = OK

1SAVE CONTENTS OF TSSR
1DEVICE FATAL ERROR DURING INIT
TRAP

CSERDF

.WCRD
.WORD

SFIERR
SF IMSG

.WORD

002220
002222
016326

10%;

CLR
CLR

FATFLG
INTRECV

1CLEAR FATAL ERROR FLAG
sCLEAR INTERRUPT RECEIVED FLAG

15¢

1BR IF CARRY SET (GOOD RETURN)

MOV
JSR

R4 ,TSDB(RS)
PC,CHKTSSR

MOV
ERRDF

RO,R1
ERRNO, T9SSR,PKTSSR

BCS

C$BSEG

901

1SET THE PACKET ADDRESS
tWAIT FOR SSR TO SET

1SAVE CONTENTS OF TSSR
sDEVICE FATAL SSR FAILED TO SET
TRAP

CSERDF

TSVSA

TEST

HARDWARE

TESTS

MACRO M1200

23-MAR-84 09:44

PAGE

Cl4

97-1

SEQ 0171

COMPLETION INTERRUPT

035422
035424
035426
1992 035430
1993 035434
035434
1994 035436
035436
035440
035442
035446
035450
035450
035452
035454
035456

035460

035464
035470
035474
035476
035502
035504
035506
035506
035510
035512
035514
035516
035516
035516
035516
035520
035524
035530
035532

035536
035536
035536
035540
035544
035546
035552
035560
035562
035566

0C1606
037757
012036
005237

002220

15¢:

104406
104410
000056
005737
001004

002222

040046
012036

016501
012702
032701
001402
052702
020201
001404

22%:

000100
000100

25%:

104456

CS$ESCAPE
tm. “ e

TRAP

CSERMHRD

SEG

1BY -PASS SUBTEST IF FATAL ERROR

MOV
8IT
BEQ
8IS
BEQ
ERRHRD

INTRECV
224
ERRNO, TONINT ,PKTSSR

1DID AN INTERRUPT OCCUR ?
1BRANCH IF YES

.WORD
.WORD
WORD

TSSR(RS),R1
OSSR, R2

1GET THE CONTENTS OF TSSR
tEXPECTED CONTENTS OF TSSR

00FL ,R1
254

00FL ,R2

R2,R1

30¢
ERRNO,
TONBA ,PKTSSR

1BRANCH IF NOT OFF -LINE
sSET OFF -LINE IN EXPECTED DATA
1D0ES EXPECTED MATCH RECEIVED ?
sOKAY

IF MATCH

iNBA NOT ZERO

TRAP
. WORD

. WORD
. WORD

geccccccccececc

END

SEGMENT

10000
:

MOV

003056

BMIS
JMP

035352

554

(R3)+ ,PKBCNT(R4)

R3,0TBLEND

554
St

ALL

DATA BEEN TESTED

$ MAAANANNANNANNAN END SUBTEST

104403

017172
037274
002224

TST

FATFLG

JSR
BIT
BEQ
INC

PC,CKDROP
T9BFR+12,08177

BEQ
000200

60%:
70%:

1ANY FATAL ERRORS

604

704
EXTFEA

1BRANCH IF NOT

1TRY

TO DROP

THE UNIT

tEXTENDED FEATURES SET?
1BR IF NO

$1SET EXT FEATURE FLAG

TONBA
PKTSSR

ccccccccecccce

TRAP

tBRANCH IF ALL DATA DONE
1BRANCH TILL BACK TO ZERO

ENDSUB

CSERMHRD
904

CSESEG

1SET THE TEST WORD

sHAS

L10066:

002220

903
TONINT
PKTSSR

$sIS OFF -LINE BIT SET ?

104405

005737
001402
004737
033727
001402
005237

TRAP
o

ESCAPE

ENDSEG

103002
000137

CsCLP1

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

001610
037316
012036

012364
020327

TRAP

FATFLG

ERRHRD

000002

902
T9SSR
PKTSSR

INC
CKLOOP

TST

104456
001607

.WORD
.WORD
.WORD

NNARNNNANNNNNNL

TRAP

CSESUB

TSVSA

TEST

HARDWARE

TESTS

COMPLETION

MACRO M1200

23-MAR-84 09:44

SEQ 0172
I

2031
2032
2033
2034
2035
2036
2037
2038
2039 035566
035566
035566

035570
035570
035574
035576
035602
035606

aTEST 9,

035614
035620
035622
035624
035624
035626
035630
035632

2075

035634
035640
035642
035644
035650
035654
035660
035662
035664
035664
035666
035670
035672
035674
035674
035676
035676
035700
035702
035706
035710
035710
035712
035714
035716
035720

SUBTEST 2

8C!‘ECK THAT UNUSED BITS BEING SET CAUSES

tWRITE CHARACTERISTICS COMMAND TO BE REJECTED

BGNSUB

$////7777777/

BEGIN

SUBTEST

19.2:

SETPRI

000000
037302
037240
040336

S$:

035612
035612

2069
2070
2074

D14

INTERRUPT

2030

2067

PAGE

MOV
MOV

JSR

@PRIOO

0T92DATA,R3
OTIPACKET R4

1START Or

002222

10¢:

000002
000000
016240

CLR

10%

ERRNO, SFIERR, SF IMSG

INTRECV

MOV
JSR

R4,TSDB(RS)
PC,WAITF

MO /

RO,R1

ERROF

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

100 SOFT INIT OF CONTROLLER
1BR IF SOFT INIT = OK
1 SAVE CONTENTS OF TSSR
1DEVICE FATAL ERROR DURING INIT
TRAP
CSERDF

1START OF

2(R3),(RO)
15¢

THE COMMAND PACKET

1BR IF CARRY SET (GOOD RETURN)

ERRNO, T9SSR,PKTSSR

s SAVE CONTENTS OF TSSR
+DEVICE FATAL SSR FAILED"T‘RPSET

002222

.WORD
IF FLAG SET
TRAP
1BY-PASS CHECKS IF FATAL ERRW

CKLOOP

ESCAPE
TST

ERRHRD

:LOOP ON ERROR,
SEG
ggTRECV
$

;DID AN INTERRUPT OCCUR ?

ERRNO, TONINT ,PKTSSR

1BRANCH IF

.WORD

224

MOV

WOR

1GET THE CONTENTS OF TSSR

TSSR(RS),R1

'/|

CS$ERDF
906
T9SSR

PKTSSR

CsCLP1
CSESCAPE
10000$
-.

YES

TRAP
.WORD
000002

905
SFIERR
SFIMSG

1OFFSET TO THE DATA WORD TO TEST
sSET THE DATR BITS TO BE TESTED
$SET THE PACKET ADDRESS
tWAIT FOR SSR TO SET

.WORD
.WORD

15s:

C$BSEG

:CLEAR INTERRUPT RECEIVED FLAG

R4 ,RO
(R3),RO

8CS

SEGMENT

.WORD
.WORD
.WORD

MOV
ADD
8IS

BEGIN

TRAP

RO,R1

C$SPRI

TEST DATA FOR SUBTEST

$2>3>>>>353>3>>>

MOV

OPRIOO,RO

TRAP

1GET THE ADDRESS OF COMMAND PACKET
tRESTORE PACKET TO STARTING VALUES

PC,TOREST

PC,SOFINIT

ERRDF

csasus

MOV

JSR

8CS

TRAP

tLOWER PRIORITY TO ALLOW INTERRUPTS

BGNSEG
015764

////////7/7/

CSERHRD
907
TONINT

PKTSSR

TSV5A

TESYT

2076
2077
2078
2079
2080
2081
2085

HARDWARE

TESTS

MACRO M1200

23-MAR-84 09:44

PAGE 98-1

El14
SEQ 0173

COMPLETION INTERRUPT
035724
035730
035734
035736
035742
035744
035746
035746
035750
035752
035754
035756
035756
035756
035756

012702
032701
001402
052702
020201
001404

035760
035764
035770
035772

062703
020327
103002
000137

035776
035776
035776

102206

000100
000100

254:

104456

MOV
BIT
BEQ
8IS
CMP
BEQ
ERRHRD

OSC!SSR!TSREJ!NBA,R2
00FL ,R1
254
00FL ,R2

1EXPECTED CONTENTS OF TSSR
+IS OFF-LINE BIT SET ?
-1 INE
t1BRANCH IF NOT OFF

304
ERRNO, T92REJ,PKTSSR

sOKAY IF MATCH

R2,R1

1SET OFF-LINE IN EXPECTED DATA

;1D0ES EXPECTED MATCH RECEIVED ?

;COMMAND NOT REJECTED

00.614

037371
012036

30%:

jeccccccccccec

ENDSEG

ADD
BHIS
JMP

035602

59%:

104403

ENDSUB

SEGMENT

100004:

104405
000004
037316

END

04 ,R3
R3, 0T92D0ONE

594
Ss

TRAP
.WORD
.WORD
.WORD

CSERHRD
908
T92REJ
PKTSSR

ccccecccccccce

TRAP

CSESEG

sPOINT TO NEXT DATA PAIR
;+COMPARE TO END OF TEST DATA
+BRANCH IF ALL DATA TESTED
sBRANCH TILL BACK TO ZERO

s NANAANANNANANNANY END SUBTEST

L10067:

NANANANNNANL

TRAP

CS$ESUB

TSVSA

- HARDWARE

TEST

TESTS

MACRO M1200

23-MAR-84 09:44

F14
SEQ 0174

COMPLETION INTERRUPT

2096
2097
2098
2099
2100
2101
2102
2103
2104
2105

1 TEST 9, SUBTEST 3
i

tCHECK THE WRITE CHARACTERISTICS COMMAND IS REJECTED
+ IF ISSUED WITH AN INVALID DATA BLOCK BYTE COUNT

BGNSUB

2106

2107

2108
2109
2110
2111
2112

000001
037240
040336

Ss:

8/ /7777777777 BE$INSSWTEST

9.3:

015764

2121
2122
2123
2124
2125
2120
2130

002222
000006
000000
016240

MOV
MOV
JSR

01,R3
OTIPACKET,R4
PC,TO9REST

sSTARTING BYTE COUNT

CLR

PC,SOFINIT
10%

RO,R1
ERRNO, SFIERR, SF IMSG

INTRECV

R3,PKBCNT(R4)
R4,TSDB(RS)
PC,WAITF

CxLooP
ESCAPE

2133
2134
2138

002222

040046
012036
016501
012702
032701

TST
BNE
ERRHRD

C$SPRI

TO STARTING VALUES

BEGIN

SEGMENT

>>>>3>333>>>>>

TRAP

ERRNO, T9SSR,PKTSSR

2132

TRAP

:GET THE ADDRESS OF COMMAND PACKET

+RESTORE PACKET
$32>>>>3>3>>>>

15%

15¢:

C$8SUB.

;LOWER PRIORITY TO ALLOW INTERRUPTS.
=~
MOV
OPRIOO,RO

RO,R1

2131

TRAP

OPRIOO

JSR
B8CS
MOV
ERRDF

10%:

L1111 7777777

SETPRI

BGNSEG

2113
2114
2115
2119
2120

2139
2140
2141

PAGE 99

:D0 SOFT INIT OF CONTROLLER
1BR IF SOFT INIT = OK
:SAVE CONTENTS OF TSSR
sDEVICE FATAL ERROR DURING INIT
TRAP

.WORD
.WORD
.WORD

:CLEAR INTERRUPT RECEIVED FLAG
+ INSERT THE BYTE COUNT FOR TEST
:SET _THE PACKET ADDRESS

INTRECV
228
ERRNO, TONINT ,PKTSSR

228

MOV

BIT

909
SFIERR
SFIMSG

:BR IF CARRY SET (GOOD RETURN)
s SAVE CONTENTS OF

TSSR

;:DEVICE FATAL SSR FAILED TO SET
X

TRAP

C$ERDF

.WORD
.WORD
.WORD

910
T9SSR
PKTSSR

TRAP

CsCLP1

TRAP

CS$ESCAPE

IF FLAG SET

1BY-PASS SUBTEST IF FATAL ERROR
.

10000s
-.

:DID AN INTERRUPT OCCUR ?
:+BRANCH IF YES
TRAP

.WORD
.WORD

000002
102206
000100

CSERDF

tWAIT FOR SSR TO SET

;LOOP ON ERROR,
SEG

C$BSEG

1GET THE CONTENTS OF TSSR

WORD

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

CSERHRD

911
TONINT

PKTSSR

TSVSA

TEST

HARDWARE

MACRO M1200

23-MAR-84 09:44

PAGE 99-1

G14
SEQ 0175

COMPLETION INTERRUPT

036142
036142
036150
036152
036154
036154
036156
036160
036162
2150 036164
2151 036164
036164
036164
2152
2153 036166
2154 036170
2155 036174
2156 036176
2157
2158 036202
036202
036202
2142
2143
2144
2145
2149

TESTS

001402
052702

020201
001404

000100

25%:

104456

BEQ
8IS
CMP
BEQ
ERRHRD

254
Q0FL ,R2

R2,R1
304
ERRNO, T93REJ,PKTSSR

tBRANCH IF NOT OFF
-L INE

1SET OFF -LINE IN EXPECTED DATA

1DOES EXPECTED MATCH RECEIVED ?

sOKAY IF MATCH

1COMMAND NOT REJECTED

001620

037470
012036

30¢:

.WORD
.WORD
.WORD
ENDSEG

jecccccccccccc

INC
CMP
BGE

036014
59%:

104403

END

SEGMENT

10000%:

104405
005203
020327
002002
000137

TRAP

ENDSUB

R3
R3, 06

594
Ss

C$ERHRD

912
T93REJ
PKTSSR

<ccccccccccccc

TRAP

C$ESEG

tNEXT BYTE COUNT
s TESTED ALL INVALID ?
+BRANCH IF

TEST DONE

:BRANCH TILL BACK TO ZERO
S MAANANANNANNNANN

END

SUBTEST

L10070:

NNNANNNNAALNNL

TRAP

CS$ESUB

TSVSA

TEST

HARDWARE

TESTS

MACRO M1200

23-MAR-84 09:44

PAGE

100

H14
SEQ 0176

COMPLETION INTERRUPT

2160
2161
2162

1 TEST 9, SUBTEST 4

2163
2164
2165

2166
2167
2168
2169 036204
036204
036204
2170
2171 036206
036206
036212
2172 036214
2173 036220
2174 036224
2175
2176
2177 036230
2178 036234
2182 036236
2183 036240
036240
036242
036244
036246
2184
2185 036254
2186 036262
2187 036266
2188 036272
2189 036274
2193 036276
036276
036300
036302

2194 036306
036306
2195 036310
036310
036312
2196 036314
2197 036320
2201 036322
036322
036324
036326
036330
2202 036332
2203 036336
2204 036342
2205 036346
2206 036350

tSUBTEST TO VERIFY THAT A WRITE CHARACTERISTICS COMMAND IS
tREJECTED IF AN ILLEGAL DATA BLOCK ADDRESS IS ISSUED.

BGNSUB

$///////77/777

BEGIN

SUBTEST

79.4:

SETPRI

000000

037302
037240
040336

S$:

015764

002222
000001
000000
016240

MOV
MOV
JSR

0T92DATA,R3
OT9PACKET
R4
PC,T9REST

JSF

PC,SOFINIT

B8CS
MOV
ERRDF

037250

10%:

CLR

8IS

JSR
B8CS

010001

ERRDF

104455

oPRIOO

10$
RO,R1
ERRNO,
SF IERR, SF IMSG

INTRECV

@1, T9DATA
R4,TSDB(RS)
PC,WAITF

15¢

RO,R1

ERRNO,
T9SSR ,PKTSSR

MOV
TRAP

15¢:

CckLooP
ESCAPE

sRESTORE PACKET

TO STARTING VALUES

sDEVICE FATAL ERROR DURI?EAENIT
.WORD
.WORD
.WORD

sCLEAR INTERRUPT RECEIVED FLAG

+MAKE

TST

ERRHRD

INTRECV
228
y
ERRNO, TONINT ,PKTSSR

ADDRESS 0DD

sWAIT FOR SSR TO SET

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

000100

22%:

MOV

BIT
BEQ
8IS

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

00FL ,R1
254
00FL ,R2

CSERDF

.WORD
.WORD
.WORD

914
T9SSR
PKTSSR

TRAP

CsCLP1

IF FLAG SET

:BY-PASS SUBTEST IF FATAL ERROR

CS$ESCAPE

L10071-.

TRAP

C$ERHRD

:DID AN INTERRUPT OCCUR ?
1BRANCH IF YES

.WORD
.WORD

000002
102206
000100

CS$ERDF
913
SFIERR
SFIMSG

1SET THE PACKET ADDRESS

TRAP

002222

OPRIOO,RO
C$SPRI

;00 SOFT INIT OF CONTROLLER
:BR IF SOFT INIT = OK
1SAVE CONTENTS OF TSSR

;LOOP ON ERROR,
SuB

csasus

sSTART OF TEST DATA FOR SUBTEST
:GET THE ADDRESS OF COMMAND PACKET

TRAP

104406

104456
001623
040046
012036
016501
012702
032701
001402
052702

TRAP

;LOWER PRIORITY TO ALLOW INTERRUPTS

001622
037757
012036

104410
000056
005737
001004

//////7/7/77

tGET THE CONTENTS OF TSSR

tEXPECTED CONTENTS OF TSSR

+IS OFF-LINE BIT SET ?
1BRANCH IF NOT OFF -LINE
1SET OFF -LINE IN EXPECTED DATA

915
TONINT

PKTSSR

TSVSA

- HARDWARE

TEST

TESTS

MACRO M1200

23-MAR-84 09:44

PAGE

100-1

114

COMPLETION INTERRUPT

2207 036354
2208 036356
2212 036360
036360
036362
036364
036366
2213 036370
2214
2215 036370
036370
036370
2216

020201
001404

SEQ 0177

25%:

104456
001624
037563
012036

cMP
BEQ
ERRHRD

R2,R1
308
ERRNO, T94REJ,PKTSSR

1D0ES EXPECTED MATCH RECEIVED ?

1OKAY

IF MATCH

1COMMAND NOT REJECTED

. WORD
. WORD
. WORD

30$:
ENDSUB
104403

TRAP

$NVANNNNANNNANN

END

SUBTEST

L10071;

CS$ERHRD

916
T94REJ
PKTSSR

NANAANANNNNY

TRAP

C$ESULB

TSVSA - HARDWARE TESTS

TEST

MACRO M1200

23-MAR-84 09:44

PAGE 101

J14
SEQ 0178

9: COMPLETION INTERRUPT

2218
2219
2220
222l
2222
2223
2224
2225
2226
2227 036372
036372
036372
2228
2229 036374
036374
036400
2230 036402
2231 036406
2232 036412
2233
2234 036416
036416
2235
2236 036420
2237 036424
2241 036426
2242 036430

036430
036432
036434
036436
036440
036444
036450
036454

2243
2244
2245
2246
2247
2248 036462
2252 036464

036466
036470
036472
2253 036474
036474
2254 036476
036476
036500
2255 036502
2256 036506
2260 036510
036510
036512
036514
036516
2261 036520
2262 036524

2263 036530

:TEST 9, SUBTEST 5
i

;CHECK THAT WRITE CHARACTERISTICS COMMAND IS REJECTED IF THE
tMESSAGE BUFFER LENGTH SPECIFIES AN INVALID COUNT (LESS THAN 14)
s/ /7777777777 BE?gNSSlBTEST L1177 7777777

BGNSUB

104402
012700
104441
012703
012704
004737

000001
037240
040336

S$:

004737
103405

104455
001625

002222
037254

01,R3
,R4
OT9PACKET
PC,TOREST

:STARTING BUFFER LENGTH
:GET THE ADDRESS OF COMMAND PACKET
sRESTORE PACKET TO STARTING VALUES

10%:

CLR

PC,SOFINIT
104
RO,R1

ERRNO, SFIERR, SF IMSG

INTRECV

ERRNO, T9SSR,PKTSSR

TST

002222

ERRHRD

104456
001627

tBR IF SOFT INIT = OK
:SAVE CONTENTS OF TSSR

;:DEVICE FATAL ERROR DURI?EAENIY
.WORD
.WORD
.WORD

;:CLEAR INTERRUPT RECEIVED FLAG
: INSERT THE BAD MESSAGE LENGTH

INTRECV

224

ERRNO, TONINT ,PKTSSR

22%:

MOV
BIT

TSSR(R5),R1

OSC!SSR!TSREJ!NBA,R2
00FL ,R1

CS$ERDF
917
SFIERR
SFIMSG

:SET THE PACKET ADDRESS
:WAIT FOR SSR TO SET

iBR IF CARRY SET (GOOD RETURN)
:SAVE CONTENTS OF TSSR
;:DEVICE FATAL SSR FAILED TO SET
TRAP
.WORD
.WORD

.WORD

SEG

C$BSEG

;00 SOFT INIT OF CONTROLLER

CSERDF
918
T9SSR

PKTSSR

TR AP

CsCLP1

TRAP

CS$ESCAPE

1BY-PASS SUBTEST IF FATAL ERROR
. WOR

;DID AN INTERRUPT OCCUR ?

-.
10000$

:BRANCH IF YES

'
000002
102206
000100

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

;LOOP ON ERROR, IF FLAG SET

CKLOOP
ESCAPE

OPRIOO,RO
C$SPRI

TRAP

R4,TSDB(RS)
PC,WAITF
15¢

15¢:

?SXP

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

RO,R1

104406

040046
012036
016501
012702
032701

MOV
MOV
JSR

000000
016240

104455
001626
037757
012036

104410
000056
005737
001004

;LOWER PRIORITY TO ALLOW INTERRUPTS

MOV
ERRDF

010001

003646
012024
005037
010337
010465
004737
103405
010001

@PRIOO

JSR
BCS

015764

Cs85UB

SETPRI

BGNSEG

104404

IRAP

TRAP

919

.WORD

PKTSSR

.WORD

;GET THE CONTENTS OF TSSR

iEXPECTED CONTENTS OF TSSR

+IS OFF-LINE BIT SET ?

x4
g

CSERHRD

.WORD

TONINT

TSVSA

- HARDWARE

TEST

TESTS

K14
MACRO M1200

23-MAR-84 09:44

PAGE

101-1

SEQ 0179

COMPLETION INTERRUPT

2264 036534
2265 036536
036542
2267 036544
2271 036546
036546
036550
036552
036554
2272 036556
2273 036556
036556
036556
2274
2275 036560
2276 036562
2277 036566
2278 036570
2279
2280 036574
036574
036574

001402
052702
020201
001404

000100

104456
001630
037661
012036

BEQ
25%:

8IS

CcMP

BEQ
ERRHRD

@0FL ,R2
R2,R1
304
ERRNO, T9SREJ,PKTSSR

30%:

s+COMMAND NOT REJECTED

gccccccccccccc

END

SEGMENT

10000¢:
R3
R3,014
59

000014

036406

-1

59¢:

104403

sDOES EXPECTED MATCH RECEIVED ?

1OKAY IF MATCH

.WORD
.WORD
.WORD

104405
005203
020327
002002
000137

1BRANCH IF NOT OFF -LINE
1SET OFF-LINE IN EXPECTED DATA

C$ERHRD
920
T9SREJ
PKTSSR

ccccccccccccc

TRAP

tNEXT BUFFER LENGTH

tHAVE ALL BAD VALUES BEEN TESTED

;BRANCH IF ALL TESTED

C$ESEG

:BRANCH TILL BACK TO ZERO
S MAANANANANANAN END SUBTEST

L10072:

TRAP

CsESUB

TSVSA

- HARDWARE

TEST

TESTS

MACRO M1200

L14
SEQ 0180

s TEST 9, SUBTEST 6
P

s THIS SUBTEST IS EXECUTED ONLY IF THE EXTENDED

tFEATURES 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
+IF THE BYTE COUNT PARAMETER IN THE COMMAND PACKET IS 10 DECIMAL
:OR GREATER.
H

2293
2294

2306
2307
2308
2312
2313

102

HEd

2290
2291
2292

2301
2302
2303
2304
2305

PAGE

COMPLETION INTERRUPT

2282
2283
2284
2285
2286
2287
2288
2289

2295
2296
2297
2298
2299
2300

23-MAR-84 09:44

BGNSUB

104402
005737
001002
000137
004737
012700
104441
012703
012704
012764

002224
037026
040336

as:

JSR

. SETPRI
002762
037240
000012

MOV
MOV

S$:

104404

004737
103405
010001

ST
,BNE
JMP

MOV

ERRDF

104455

TRAP

EXTFEA

+ IS EXTENDED FEATURES SOFT.

S55%

;EXIT SUBTEST

PC,TOREST

OPRIOO

iBR,

2315
2316
2317
2318
2319
2323

2324
2325
2326
2327
2328

012024
005037
005037
010465
004737
103407
010001

002220

002222
000000
016326

10¢:

JSR
B8CS

MOV

ERRDF

104455

001632
037757
012036
005237

002220

104406

104410
005737
001004

CLR
CLR

002222

15¢:

csasus

SW SET?

IF SOFTWARE SWITCH IS SET (ON)

:SET PACKET TO START-UP VALUES
;LOWER PRIORITY TO ALLOW INTERRUPTS

9TSTBLK+10
,R3
.
@T9PACKET,R4
€10. ,PKBCNT(R4)

OPRIOO,RO

TRAP

C$SPRI

:START OF TEST DATA
:GET THE ADDRESS OF COMMAND PACKET
sSTART WITH EXTENDED FEATURES VALUE
$22>>>3>>>>>>

BEGIN

SEGMENT

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

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

100 SOFT INIT OF CONTROLLER
:BR IF SOFT INIT = OK
:SAVE CONTENTS OF TSSR
;:CEVICE FATAL ERROR DURING INIT
TRAP
.WORD
.WORD

001631
2314

111777777777

MOV

BGNSEG

JSR
8CS

015764

/77777777777 BE$5N6SUBTEST

FATFLG

INTRECV
R4,TSDB(RS)
PC,CHKTSSR

15%

RO,R1
ERRNO,
T9SSR ,PKTSSR

.WORD

:CLEAR FATAL ERROR FLAG
;:CLEAR INTERRUPT RECEIVED FLAG

:SET THE PACKET ADDRESS
;WAIT FOR SSR TO SET
:BR IF CARRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR
sDEVICE FATAL SSR FAILED TO SET
TRAP

CsCLP1

TRAP

CSESCAPE
10000%-.

ESCAPE

SEG

1BY-PASS SUBTEST IF FATAL ERROR
.WORD

:DID AN INTERRUPT OCCUR ?
YES

CS$ERDF

TRAP

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

1BRANCH IF

SFIMSG

922
T9SSR
PKTSSR

FATFLG

INTRECV
22$

CSERDF
921
SFIERR

.WORD
.WORD
.WORD

INC
CKLOOP

TST
BNE

C$BSEG

TSVSA

- HARDWARE

TESY

TESTS

MACRO M1200

23-MAR-84 09:44

PAGE

102-1

M14
SEQ 0181

COMPLETION INTERRUPT

2332 036740
036740
036742
036744
036746
2333 036750
2334 036754
2335 036760
2336 036764
2337 036766
2338 036772
2339 036774
2343 036776
036776
037000
037002
037004
2344 037006
2345 037006
037006
037006
2346
2347 037010
2348 037014
2349 037020
2350 037022
2351
2352 037026
037026
037026

ERRHRD

ERRNO, TONINT ,PKTSSR

TRAP
.WORD

104456
001633

001402
052702
020201
001404

000002
000200
000100

000100

22%:

25%:

104456

001634
037316
012036

30$:

MOV

BIT
BEQ
8IS
BEQ
ERRHRD

TSSR(RS),R1

9SSR ,R2

00FL ,R1
25%
00FL ,R2

R2,R1
30¢

MOV

003056

BHIS
JMP

036642
55¢%:

104403

tGET THE CONTENTS OF TSSR
sEXPECTED CONTENTS OF TSSR
+IS OFF-LINE BIT SET ?
:BRANCH IF NOT OFF -LINE
+SET OFF-LINE IN EXPECTED DATA
;+DOES EXPECTED MATCH RECEIVED ?
sOKAY IF MATCH

tNBA NOT ZERO

TRAP
.WORD
.WORD

.WORD

jccccccccecc<cc

ENDSUB

END SEGMENT

10000:

104405
012364
020327
103002
000137

O,
T9NBA ,PKTSSR
ERRN

ENDSEG

(R3)+,PKBCNT(R4)

R3,4TBLEND
55%
Ss

TONINT
PKTSSR

.WORD
.WORD

040046

012036
016501
012702
032701

C$ERHRD
923

‘
C$ERHRD
924
T9NBA

PKTSSR

<cccccccccccc

TRAP

C$ESEG

:SET THE TEST WORD
;+HAS ALL DATA BEEN TESTED ?
+BRANCH IF ALL DATA DONE

:BRANCH TILL BACK TO ZERO

$ ANAANANNNNANANN END SUBTEST NN
L10073:
TRAP
CS$ESUB

TSV5A

TEST

HARDWARE

2384

2385

2386
2387
2392

MACRO M1200

23-MAR-84 09:44

PAGE

103

N14
SEQ 0182

COMPLETION INTERRUPT

2354
2355
2356
2357
2358
2359
2360
2361
2362
2363 037030
037030
037030
2364
2365 037032
037032
037036
2366 037040
2367 037044
2368 037050
2369 037054
2373 037056
2374 037060

2375
2376
2377
2378
2379

TESTS

037060
037062
037064
037066
037070
037074
037100
037104
037110
037112
037114
037114
037116
037120
037122
037124
037124
037126
037126
037130
037132
037136
037140
037140

037142
037144

037146
2393 037150
037150
2394
2395 037152
2396 037156
2397 037162
2398 037166
2399 037172

;

; TEST 9, SUBTEST 7
:

: TEST WRITE CHARACTERISTICS WITH/WITHOUT INTERRUPTS ENABLED

2222222277, ae$§N7suaresr 2227222227,

BGNSUB

104402
012700
104441
012704
004737
004737
103405
010001

SETPRI

000000

037240

MOV
JSR
JSR
8CS
MOV
ERRDF

040336
015764

104455

001635
003646
012024
005037
052714
010465
004737
103405
010001

002222
000200
000000
016326

10%:

CLR

@T9PACKET
,R4
PC,TOREST
PC,SOFINIT

10$

RO,R1
ERRNO, SFIERR, SFIMSG

INTRECV
@BIT7,(R4)

R4,TSDB(RS)
PC,.CHKTSSR

15%

RO,R1
ERRNO, T9SSR,PKTSSR

104455
001636
037757
012036

15¢:

CkLooP
ESCAPE

MOV
TRAP

104410

002222

TST

ERRHRD

104456

INTRECV
224
ERRNO, TONINT ,PKTSSR

.WORD
.WORD
.WORD

:CLEAR INTERRUPT RECEIVED FLAG
:ENABLE INTERRUPTS
:SET THE PACKET ADDRESS
iWAIT FOR SSR TO SET
:BR IF CARRY SET (GOND RETURN)
:SAVE CONTENTS OF TSSR
:DEVICE FATAL SSR FAILED TO SET
TRAP

.WORD

.WORD
lmD
IF FLAG SET

22%:

005037
042714
010465
004737
103405

002222
000200
000000
016326

CrLOOP

CLR
BIC

JSR
BCS

R4,TSDB(RS)
PC,CHKTSSR

25%

CSERDF
926

T9SSR
PKTSSR

TRAP
.

CS$ESCAPE
L10074
-,

TRAP

C$ERHRD

YES

:LOOP ON ERROR ?
INTRECV
OBIT7,(R4)

925
SFIERR
SFIMSG

CsCLP1

;DID AN INTERRUPT OCCUR ?

:BRANCH -IF

C$ERDF

TRAP

iBY-PASS SUBTEST IF FATAL ERROR

001637
040046
012036

104406

OPRIOO,RO
C$SPRI

:GET .THE ADDRESS OF COMMAND PACKET
:SET UP A VALID PACKET
;D0 SOFT INIT OF CONTROLLER
:BR IF SOFT INIT = OK
:SAVE CONTENTS OF TSSR
:DEVICE FATAL ERROR DURI?EAENIT

:LOOP ON ERROR,
suB

. C$BSUB

;LOWER PRIORITY TO ALLOW INTERRUPTS

104406
005737
001004

¢PRIOO

TRAP

.WORD
.WORD
.WORD

927
TONINT
PKTSSR

TRAP

CsCLP1

1CLEAR INTERRUPT RECEIVED FLAG
:DISABLE INTERRUPTS

1SET _THE PACKET ADDRESS

tWAIT FOR SSR

TO SET

iBR IF CARRY SET (GOOD RETURN)

TSVSA

TEST

HARDWARE

MACRO M1200

23-MAR-34 09:44

PAGE

103-1

B15
SEQ 0183

COMPLETION INTERRUPT

2400 037174
2404 037176
037176
037200
037202
037204
2405 037206
037206
2406 037210
037210
037212
2407 037214
2408 037220
2412 037222
037222
037224
037226
037230
2413 037232
2414 037232
037232
037232
2415
2416 037234
037234
037236
2417
2418

2419
2420
2421
2425
2426
2427
2428
2429
2430
2431
2432
2433
2434
2435
2436
2437
2438
2439
2440
2441
2442
2443
2444
2445

TESTS

010001

MOV
ERRDF

104455

$SAVE CONTENTS OF TSSR
sDEVICE FATAL SSR FAILED TO SET
TRAP
.WORD

001640
037757
012036

25%:

104406
104410
000020
005737
001404

RO,R1
ERRNO, T9SSR,PKTSSR

CxLOOP
ESCAPE

002222

TST
BEQ
ERRHRD

104456
001641
040137
012036

;LOOP ON ERROR,
SUB

.WORD
.WORD
IF FLAG SET
TRAP

CsCLP1

TRAP
5

CSESCAPE
L10074
-,

1tDID AN INTERRUPT OCCUR ?
1BRANCH IF NOT

TRAP

.WORD
. WORD
.WMORD

ENOSUB

$ MAANANAANNANNAN END SUBTEST

L10074;

104403
EXIT

104432

T9SSR
PKTSSR

31BY-PASS SUBTEST IF FATAL ERROR

INTRECV
30¢
ERRNO,
T9INT ,PKTSSR

TST

sALL DONE THIS TEST

CS$ERHRD

929
TOINT
PKTSSR

NNNNANNNNANLL

TRAP

001152

CSERDF
928

.HMORD

CS$ESUB

CSEXIT

L10065-.

sLOCAL STORAGE FOR THIS TEST
-

037240
037240
037242
037244
037246

037250
037250
037252
037254
037256
037262

2447
2448
2449
2450 037302

100204
037250

TOPACKET
;

. WORD
. WORD
. WORD
. WORD

000010
037262

T9DATA:

000016

T9BFR:

. WORD
. WORD
. WORD
. WORD

+COMMAND PACKET FOR TEST

100204

tWRITE CHAR COMMAND,

sSTARTING VALUE OF BLOCK SIZE

T98FR

1CHARACTERISTICS DATA BLOCK
1ADDRESS OF MESSAGE BUFFER

14,
0,0

tLENGTH OF MESSAGE BUFFER

T9DATA
0

.BLKW

tMESSAGE BUFFER

s TEST DATA FOR SUBTEST

TwO

1DATA HAS FORMAT

1ST WORD
2ND WORD

T92DATA:

WITH IE,

ACK

+ADDRESS OF C!ARACTERISTICS BLOCK

OFFSET TO TEST WORD IN PACKET
BITS TO SET FOR TEST

HARDWARE

TESTS

MACRO M1200

23-MAR-84 09:44

PAGE 103-2

C15
SEQ 0184

COMPLETION INTERRUPT
037302
037306
037312

000000
000002
000004
037316

037140
000001
100100

.WORD
.WORD

.WORD

T92D0N=E
.

O,BITS!BIT6!BIT9!BIT10!BIT11!BIT12!B8IT13
2,BITO

4,BIT6!BIT1S

tLOCAL TEXT MESSAGES FOR TEST
'-

037316
037371
037470
037563
037661
037757

040046
040137
040226
040311

127
127
127
127
127
103

105
125
111
103

TONBA:
T92REJ:
TO3REJ:
T94REJ:
T9SREJ:
T9SSR:
TONINT:
TO9INT:
T9TSBA:
TST9ID:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.SSE'I‘IZ
. v

'WRITE CHARACTERISTICS Command Not Accepted’
'WRITE CHARACTERISTICS Not Re
ted With Non-Zero Unused Fields’
'WRITE CHARACTERISTICS Not Re
ted With Invelid Date Count’
'WRITE CHARACTERISTICS Not Re
ted With Invelid Block Address’
'WRITE CHARACTERISTICS Not Re
ted With Invelid Buffer Length’
'Contents of TSSR Incorrect After WRITE CHARACTERISTICS'
'Expected Interrupt Not Received On WRITE CHARACTERISTICS®
'Unexpected Interrupt Received On WRITE CHARACTERISTICS®
'Incorrect TSBA Address After WRITE CHARACTERISTICS’
‘Completion Interrupt’

TSVSA

TEST

HARDWARE

TESTS

MACRO M1200

23-MAR-84 09:44

PAGE

D15
104

SEQ 0185

COMPLETION INTERRUPT

2474
2475
2476
2477
2478
2479
2480
2481 040336
2482 040336
2483 040342
2484 040346
2485 040352
2486 040356
2487 040360
2488 040364
2489 040370
2490 040372
2491 040376
2492 040400
2493 040402
2494 040406

2495 040410
040410
040410

tROUTINE TO RESTORE COMMAND PACKET TO START-UP (LEFAULT) VALUES

TOREST:

012701
012721
012721
005021
012721
012721
005021
012721
005021
005011
005037
000207

104401

037240
100204
037250

OT9PACKET
,R1
2100204,(R1)+
OT9DATA,(R1)

1SAVE THE REGISTERS
1START OF THE PACKET

tWRITE CHARACTERISTICS WITH ACK,

000010
037262

OT9BFR,(R1)+»

+ADDRESS OF CHAR DATA BLOCK
1EXTENDED ADDRESS
1SIZE OF DATA BLOCK IN BYTES
+ADDRESS OF MESSAGE BUFFER

000016

014, ,(R1).

tLENGTH OF MESSAGE BUFFER

037262

T98FR

(R1).
08.,(R1).
(R1)e.

(R1).
(R1)

sCLEAR 1ST LOC IN MESSAGE BUFFER

s RETURN

L10065:

TRAP

CSETST

TSVSA

TEST

10:

HARDWARE

TESTS

MACRO M1200

23-MAR-84 09:44

PAGE

105

SEQ 0186

BASIC PACKET PROTOCOL

2497
2498
2499
2500
2501
2502
2503
2504
2505
2506
2507
2508
2509
2510
2511
2512 040412
040412
2517 040412
2518 040416
2519 040422
2520 040430
2521
2522 040430
040430

.SBTTL

:TEST

040510
040514
040520
040522
040524
040524
040526
040530
040532
2548 040534
2549 040540

1CHECKS THAT THE MESSAGE BUFFER RELEASE COMMAND WORKS

tPROPERLY AND THAT NO INTERRUPT

+IF

THE

“IE" BIT

IS SET

IS GENERATED EVEN

IN THE COMMAND PACKET

:
'-

BGNTST
012700
004737
012737

043337
016500
000024

002214

T10LOOP:

T10::

;ASCII MESSAGE TO IDENTIFY TEST
;00 INITIAL TEST SETUP

;PERFORM 20 ITERATIONS

V222222222274

004737

040470
040470
040472
040474
040476
040500

10 SUBTEST

2524 040432

040460
010464

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

AND THE REGISTER MODIFICATION REFUSED (RMR) LOGIC.

104402

040450
040456
040456
040456

10: BASIC PACKET PROTOCOL

THIS TEST VERIFIES BASIC OPERATION OF THE MESSAGE BUFFER RELEASE

COMMAND,

040430

040436
040436
040442

TEST

10.1:
043366

PC,T10RST
OPRIOO

012700

012704
012764

042530
000010

000006

Ss:

104455
001752
043070
012036
005237

TRAP

csBsuB

;SET PACKET TO INITIAL VALUES
tLOWER PRIORITY TO ALLOW INTERRUPTS

MOV
MOV

OT10PACKET
,R4

8. ,PKBCNT(R4)

BGNSEG

@PRIOO,RO

TRAP

C$SPRI

+GET THE ADDRESS OF COMMAND PACKET

s START WITH MINIMUM ALLOWABLE VALUE
$2>>333>>>>>>

BEGIN

SEGMENT

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

TRAP

015764

JSR
B8CS
ERRDF

104455
001751
012024
005037
005037
010465
004737
103407
010001

/77777777777

MOV

104404
004737
103405
010001

BEtT‘,IN SUBTEST

PC,SOFINIT

10%

RO,R1
ERRN
SF IERR,O,
SF IMSG

100 SOFT INIT OF CONTROLLER

iBR IF SOFT INIT = OK
:SAVE CONTENTS OF TSSR
;DEVICE FATAL ERROR DURING INIT
TRAP

002220
002222
000000
016326

10%:;

CLR

JSR
B8CS
ERRDF

FATFLG

INTRECV

R4,TSDB(RS)

PC,CHKTSSR
15%

RO,R1

ERRNO, T10SSR,PKTSSR

.WORD
.WORD
.WORD

1CLEAR FATAL ERROR FLAG
:CLEAR INTERRUPT RECEIVED FLAG
1SET THE PACKET ADDRESS
tWAIT FOR SSR

158:

INC
CkLOOP

FATFLG

CSERDF

1001
SFIERR
SFIMSG

TO SET

:BR IF CARRY SET (GOOD RETURN)
1SAVE CONTENTS OF TSSR
tDEVICE FATAL SSR FAILED TO SET
TRAP

002220

C$BSEG

1SET FATAL ERROR FLAG
1LOOP ON ERROR,

.WORD
.WORD
.WORD

IF FLAG SET

CSERDF

1002
T10SSR
PKTSSR

TSVS5A

TEST

10: BASIC PACKET PROTOCOL

HARDWARE

040540
2550 040542
040542
040544
2551 040546
2552 040552
2556 040554
040554
040556
040560
040562
040564
040570
040574
040600
040602
040606
040610
040612
040612
040614
040616
040620
2568 040622
040622
040622
040622
2570 040624
2571
2572
2573
2574
2575
2576
2577
2578
2582

2583
2584

2585
2590

2591
2592
2593
2594
2595

040624

TESTS

MACRO M1200

23-MAR-84 09:44

104406

104410
000056
005737
001004

002222

104456

001753
043157
012036
016501
012702
032701
001402
052702
020201
001404

22%:

000002
000200
000100
000100

25%:

104456
001754
042731
012036

PAGE

105-1

F15
SEQ 0187

104406
005737
001404
104456
001756
043250
012036
016501
012702
032701
001402
052702

TRAP

C$ESCAPE

1BY-PASS SUBTEST IF FATAL ERROR

TST
BNE
ERRHRD

INTRECV
224
ERRNO, T1ONINT ,PKTSSR

;0ID AN INTERRUPT OCCUR ?

MOV
MOV

BIT
BEQ
8IS
BEQ
ERRHRD

TSSR(RS),R1

@SSR, R2

00FL ,R1
254
00FL ,R2

R2,R1

304
ERRNO, T1ONBA ,PKTSSR

10000$
-.

;BRANCH IF YES

CS$ERHRD
1003

T1ONINT
PKTSSR

$GET THE CONTENTS OF TSSR
tEXPECTED CONTENTS OF TSSR

+IS OFF -LINE BIT SET ?
:BRANCH IF NOT OFF -LINE
$SET OFF-LINE IN EXPECTED DATA
+DOES EXPECTED MATCH RECEIVED ?

;OKAY IF MATCH
iNBA NOT ZERO

C$ERHRD
1004

T10NBA
PKTSSR

30$:

jccccccccccccc

END

SEGMENT

10000¢:
$2>>>>33>>3>>>>

BEGIN

ccccccccccccc

TRAP

SEGMENT

002222
025252
100212
000000
016326

042552

tCLEAR INTERRUPT RE_EIVED FLAG
tWIPE OUT MESSAGE BUFFER AREA
1SET COMMAND PACKET TO MESS BUF REL

PC,CHKTSSR

sWAIT FOR

R4,TSDB(RS)
453
RO,R1

45%:

002222

C$BSEG

INTRECV
0025252, T108FR
0100212, (R4)

ERRNO, T10SSR,PKTSSR

002220

C$ESEG

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

TRAP

104404

104455
001755
043070
012036
005237

CsCLP1

SEG

104405

005037
012737
012714
010465
004737
103407
010001

TRAP

ESCAPE

:SET THE PACKET ADDRESS
SSR

TO SET

:BR IF CARRY SET (GOOD RETURN)

1 SAVE CONTENTS OF TSSR
;:DEVICE FATAL SSR FAILEDT72PSET
R

.WORD
.WORD
.WORD

FATFLG

:SET FATAL ERROR FLAG

INTRECV
524
ERRNO, T10INT ,PKTSSR

:DID AN INTERRUPT OCCUR ?

:LOOP ON ERROR,
1BRANCH

IF FLAG ?EZP

CSERDF
1005

T10SSR
PKTSSR

CsCLP1

IF NO

C$ERHRD
1006

000002
000200
000100
000100

524

TSSR(RS),R1
OSSR ,R2
00FL ,R1
55
00FL ,R2

. WORD

t1GET THE CONTENTS OF TSSR
+EXPECTED CONTENTS OF TSSR
+IS OFF-LINE BIT SET ?
1BRANCKH

IF NOT

OFF -LINE

1SET OFF-LINE IN EXPECTED DATA

T1OINT
PKTSSR

TSVSA

- HARDWARE

TEST

10:

2616
2617
2618

MACRO M1200

23-MAR-84 09:44

PAGE

G15
105-2

SEQ 0188

BASIC PACKET PROTOCOL

2596 040736
2597 040740
2601 040742

2611
2612
2613
2614
2615

TESTS

040742
040744
040746
040750
040752
040752
040756
040762
040764
040766
040766
040770
040772
040774
040776
040776
041002
041004
041010
041010
041010
041012
041012
041012
041012

020201
001404

55¢:

104456
001757
043013
012036
013701
012702
020102
001404

042552
025252

104405

104403

R2,R1
604
ERRNO, TIONNBA ,PKTSSR

002220
017172

sOKAY IF MATCH

iNBA

SET

TRAP
.WORD
.WORD

R1,R2
704

s1WAS ANY MESSAGE REC'D

1SET UP EXPECTED DATA

1BR, IF OK (EQUAL)
+MESSAGE BUFFER WAS MODIFIED
TRAP

FATFLG

80¢
PC,CKDROP

ENDSUB

CS$ERHRD

1008
T10MBF
EXPREC

sANY FATAL ERRORS

;BR,

;TRY

IF NO FATAL ERRORS
TO DROP

THE UNIT

g<cccccccccccc

END

SEGMENT

10001$:
80¢:

PKTSSR

sPICK UP THE 1ST WORD OF MESSAGE BUFFER

.WORD
.WORD
.WORD

TST
BEQ
JSR
ENDSEG

CS$ERHRD
1007
T10NNBA

T108FR,R1

0025252 ,R2

70%:

+DOES EXPECTED MATCH RECEIVED ?

.WORD

60$:

ERRNO, T10MBF ,EXPREC

104456
001760
042634
015464

005737
001403
004737

CMP
BEQ
ERRHRD

$/////////7/7/77

END

TRAP

SUBTEST

L10076:

<¢cccccccccccc

C$ESEG

/////77/7777

TRAP

CSESULB

TSV5A

TEST

10:

HARDWARE

TESTS

MACRO M1200

23-MAR-84 09:44

106

SEQ 0189

BASIC PACKET PROTOCOL

2620
2621
2622
2623
2624
2625
2626
2627
2628
2629 041014

s TEST 10 SUBTEST 2
i

1CHECKS THAT THE MESSAGE BUFFER RELEASE COMMAND WORKS

+PROPERLY AND THAT

041014
2630
2631 041016
2632 041022
041022
041026
041030
041034
041042
041042
041042

2637
2638 041044
2639 041050
2643 041052
041054
041054
041056
041060
041062

041070
041074
041102
041106
041112
041114
041116
041116
041120
041122
041124

2656 041126
2657 041132
041132
2658 041134
041134
041136
2659 041140
041144
2664 041146
041146
041150
041152
041154
2665 041156

THERE

IS AN INTERRUPT

THE

"IE"

1BIT IS SET IN THE COMMAND PACKET AND THE “ERI” BIT
+IS SET IN THE CHARACTERISTICS DATA PACKET
BGNSUB

041014

2633
2634
2635
2636

H15
PAGE

$////////77/7/77

012700
104441
012704
012764

043366

JSR

SETPRI

042530
000010

S$:

104404

004737
103405
010001

103407

MOV
MOV

015764

JSR
B8CS
MOV
ERRDF

002220
002222
000020

csBsuB

$SET PACKET TO INITIAL VALUES
:LOWER PRIORITY TO ALLOW INTERRUPTS
MOV
TRAP

9PRIOO.RO
C$SPRI

:GET THE ADDRESS OF COMMAND PACKET

:START WITH MINIMUM ALLOWABLE VALUE
$2>>>>>>35>>>>

PC,SOFINIT

10¢
RO,R1
ERRNO, SFIERR, SFIMSG

FATFLG

10%:

INTRECV

042546

016326

15%

RO,R1

ERRNO, T10SSR,PKTSSR

BEGIN

SEGMENT

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

C$BSEG

;D0 SOFT INIT OF CONTROLLER

:BR IF SOFT INIT = OK
1 SAVE CONTENTS OF TSSR
;:DEVICE FATAL ERROR DURING INIT
.WORD
.WORD
.WORD

002220

15%:

002222

INC
CKLOOP

FATFLG

.WORD
:SET FATAL ERROR FLAG
:LOOP ON ERROR, IF FLAG SET

ESCAPE

SEG

:BY-PASS SUBTEST IF FATAL ERROR

TST
BNE
ERRHRD

INTRECV
224
ERRNO, T1ONINT ,PKTSSR

22s:

MOV

TSSR(RS),R1

CSERDF
1010
T10SSR

PKTSSR
CsCLP1

TRAP
.

CSESCAPE
10000$
-.

TRAP
.WORD

CSERHRD
1011

;DID AN INTERRUPT OCCUR ?
1BRANCH IF

1009
SFIERR
SFIMSG

TRAP

YES

.WORD

000002

CSERDF

:CLEAR FATAL ERROR FLAG
1CLEAR INTERRUPT RECEIVED FLAG
:SET ERI IN CHARACTERISTICS DATA
:SET THE PACKET ADDRESS
sWAIT FOR SSR TO SET
tBR IF CARRY SET (GOOD RETURN)
: SAVE CONTENTS OF TSSR
:DEVICE FATAL SSR FAILED TO SET
TRAP
.WORD
.WORD

104410

104456
001763
043157
012036
016501

TRAP

104406
000056
005737
001004

OT10PACKET,R4
08. ,PKBCNT(R4)

BGNSEG

010001

104455
001762
043070
012036
005237

PC,T10RST
OPRIOO

/77777777777

TRAP

104455
001761
012024
005037
005037
012737
010465
004737

SUBTEST

T10.2:

104402

004737

BEGIN

;GET THE CONTENTS OF TSSR

TI1ONINT

PKTSSR

TSYSA

TEST

10:

HARDWARE

23-MAR-84 09:44

I15
PAGE

106-1

SEQ 0190

BASIC PACKET PROTOCOL

041162
041166
041172
041174
041200
041202
041204
041204
041206
041210
041212
2676 041214
2677 041214
N41214
041214
2678 041216
041216
2679
041220
2681 041224
2682 041232
041236
041242
2685 041246
041250
2690 041252
041252
041254
041256
041260
2691 041262
2692 041266
041266
2693 041270
041274
2698 041276
041276
041300
041302
041304
2699 041306
2700 041312
2701 041316
2702 041322
2703 041324
2704 041330
2705 041332
2709 041334
041334
041336
041340
041342
2710 041344
2711 041344
2712 041350
2713 041354
2714 041356

2666
2667
2668
2669
2670
2671
2675

TESTS

MACRO M1200

012702
032701
001402
052702
020201

000200
000100

000100

25%:

001404

104456

MOV
BIT
BEQ
8IS
CMP
BEQ
ERRHRD

OSSR, R2
Q0FL ,R1
254
Q0FL ,R2
R2,R1
304
ERRNO, TLONBA ,PKTSSR

1EXPECTED CONTENTS OF TSSR

1IS OFF-LINE BIT SET ?
$1BRANCH IF NOT OFF -LINE
1SET OFF-LINE IN EXPECTED DATA
+DOES EXPECTED MATCH RECEIVED ?

sOKAY IF MATCH

+NBA NOT ZERO

TRAP

001764
042731

012036

. WORD
. WORD
.WORD

30%:

jCcccccccccccc

END

SEGMENT

10000
:

104405

$2>>>>33>3>>>>

BEGIN

005037
012737
012714
010465
004737
103407
010001

042552

104406
005737
001004

104456
001766
043250
012036
016501
012702
032701
001402
052702
020201
001404

002222

t+WAIT FOR SSR TO SET
tBR IF CARRY SET (GOOD RETURN)
1 SAVE CONTENTS OF TSSR
:DEVICE FATAL SSR FAILED TO SET

+SET _THE PACKET ADDRESS

TRAP

. WORD
. WORD
. WORD

FATFLG

:SET FATAL ERROR FLAG

INTRECV
52%
ERRNO, TLOINT,PKTSSR

;DID AN INTERRUPT OCCUR ?

;:LOOP ON ERROR,
:1BRANCH IF

IF FLAG ?S;P

CSERDF
1013

T10SSR
PKTSSR

CsCLP1

YES

C$ERHRD
1014
T10INT

000002
000200
000109
000100

S2%:

TSSR(R5),R1

;:GET THE CONTENTS OF TSSR

Q0FL ,R1
554
Q0FL ,R2

:IS OFF-LINE BIT SET ?

OSSR, P2

55¢:

R2,R1

ERRHRD

104456
001767
043013
012036

013701
012702
020102
001404

PC,CHKTSSR

453
RO,R1

45%:

C$BSEG

s:CLEAR INTERRUPT RECEIVED FLAG
sWIPE OUT MESSAGE BUFFER AREA
:SET COMMAND PACKET TO MESS BUF REL

ERRNO, T10SSR,PKTSSR

002220

CS$ESEG

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

INTRECV
0025252, T10BFR
9100212,(R4)

R4,TSDB(RS)

104455
001765
043070

012036
005237

TRAP
TRAP

002222
025252
100212
000000
016326

T10NBA
PKTSSR

ccccccccccccc

SEGMENT

104404

C$ERHRD
1012

604
ERRNO, TICNNBA ,PKTSSR

;EXPECTED CONTENTS OF

PKTSSR

TSSR

;:BRANCH IF NOT OFF -LINE
:SET OFF-LINE IN EXPECTED DATA
;:D0ES EXPECTED MATCH RECEIVED ?
;OKAY IF MATCH

iNBA NOT SET

C$ERHRD
1015

T10NNBA

042552
025252

60$:

PKTSSR

MOV
MOV

BEQ

T10B8FR,R1
0025252 ,R2
R1,R2
704

sPICK UP THE 1ST WORD OF MESSAGE BUFFER
1SET UP EXPECTED DATA
1WAS ANY MESSAGE REC'D

iBR,

IF OK (EQUAL)

TSVSA

TEST

10:

HARDWARE

TESTS

MACRO M1200

23-MAR-84 09:44

PAGE

106-2

J15
SEQ 0191

BASIC PACKET PROTOCOL

2718 041360
041360
041362
041364
041366
2719
2720 041370
2721 041370
2722 041374
2723 041376
<724 041402
2725 041402
041402
041402
2726 041404
041404
041404

ERRHRD

104456
001770
042634
015464

005737
001402
004737

ERRNO, T10MBF ,EXPREC

tMESSAGE BUFFER WAS MODIFIED
TRAP

.WORD
.WORD
.WORD

002220

70%:

017172
80¢$:

TST
BEQ
JSR

ENDSEG

FATFLG
80%
PC,CKDROP

gecccccccccccc

104405
104403

1016
T10MBF
EXPREC

sANY FATAL ERRORS
1BR, IF NO FATAL ERRORS
i TRY TO DROP THE UNIT
END

SEGMENT

10001s:

ENDSUB

C$ERHRD

$/////7/7/77/77

END

TRAP

SUBTEST

L10077:

<ccccccccccce

CS$ESEG

/77777777777

TRAP

C$ESLB

TSVS5A

TEST

10:

HARDWARE

TESTS

MACRO M1200

PAGE

K15
107

SEQ 0192

BASIC PACKET PROTOCOL

2728
2729
2730
2731
2732
2733
2734
2735

HEJ

:TEST 10 SUBTEST 3
;

tCHECKS THAT THE CPU GIVES UP OWNERSHIP OF THE MESSAGE BUFFER
tAFTER THE MESSAGE BUFFER RELEASE,

:WORK CORRECTLY

AND THAT FOLLOWING COMMANDS

'
‘-

2736 041406
041406
041406
2737
2738 041410
2739 041414
041414
041420
2740 041422
2741 041426
2742 041434
2743 041434

2744
2745
2746
2750
2751

23-MAR-84 09:44

10.3:

104402
004737
012700
104441
012704
012764

041434

104404

041436
041442
041444
041446
041446
041450
041452
041454
041456
041462
041466
041472
041476

004737
103405
010001

2752
2753
2754
2755
2756
2757
2761 041502
041502
041504
041506
041510
2762 041512
2763 041516
041516
2764
041520
041522
2765 041524
2766 041530
2770 041532
041532
041534
041536
041540
2771 041542
2772 041546
2773 041552

3/ /17777777777 BE?Ig gUBTEST 111777777777

BGNSUB

104455
001771
003646
012024
005037

005037
010465
004737

103407

043366

042530
000010

JSR
SETPRI

Ss:

015764

002220
002222
000000
016326

10¢:

002220

104406

15¢:

104410

000056
005737
001004

104456
001773
043157
012036
016501
012702
032701

002222

000002
000200
000100

22%:

MOV

BEGIN

SEGMENT

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

TRAP

CLR
CLR

FATFLG

ERRNO, SFIERR, SF IMSG

INTRECV

R4,TSDB(RS)
PC,CHKTSSR

15¢

RO,R1

ERRNO, T10SSR,PKTSSR

INC
CKLOOP

FATFLG

ESCAPE

SEG

TST
BNE
ERRHRD

INTRECV
224
ERRNO, T1ONINT ,PKTSSR

BIT

C$SPRI

:GET THE ADDRESS OF COMMAND PACKET
:START WITH MINIMUM ALLOWABLE VALUE
$2>>>5>3>>>3>>

PC,SOFINIT
104
RO,R1

MOV

OPRIOO,RO

TRAP

@T10PACKET,R4
#8. ,PKBCNT(R4)

JSR
B8CS
MOV
ERRDF

ERRDF

csBSUB

$SET PACKET TO INITIAL VALUES
;LOWER PRIORITY TO ALLOW INTERRUPTS

PC,T10RST
OPRIOO

BGNSEG

JSR
BCS

010001

104455
001772
043070
012036
005237

MOV
MOV

TRAP

TSSR(R5),R1

OSSR ,R2
00FL ,R1

C$BSEG

100 SOFT INIT OF CONTROLLER
18R IF SOFT INIT = OK
1SAVE CONTENTS OF TSSR

:DEVICE FATAL ERROR DURING INIT
TRAP
.WORD
.WORD
.WORD

:CLEAR FATAL ERROR FLAG
:CLEAR INTERRUPT RECEIVED FLAG
$SET _THE PACKET ADDRESS

CS$ERDF
1017
SFIERR
SFIMSG

:WAIT FOR SSR TO SET
:BR IF CARRY SET (GOOD RETURN)

:SAVE CONTENTS OF TSSR
;:DEVICE FATAL SSR FAILED TO SET
TRAP

.WORD
.WORD
.WORD

:SET FATAL ERROR FLAG

:LOOP ON ERROR,

CS$ERDF

1018
T10SSR
PKTSSR

IF FLAG SET

TRAP
CsCLP1
1BY-PASS SUBTEST IF FATAL ERROR
TRAP
CSESCAPE
.
10000
-.

:DID AN INTERRUPT OCCUR ?
:+BRANCH IF

YES

TRAP

.WORD
.WORD
.WORD

:GET THE CONTENTS OF TSSR

+EXPECTED CONTENTS OF

1 IS OFF-LINE BIT SET

TSSR

CSERHRD

1019
T1ONINT
PKTSSR

MACRO M1200

TSVS5A

- HARDWARE

TEST

10: BASIC PACKET PROTOCOL

2774 041556
2775 041560
2776 041564
2777 041566
2781 041570
041570
041572
041574
041576
2782 041600
2783 041600
041600
041600
2784 041602
041602
2785 041604
2786 041610
2787 041614
2788 041622
2789 041626
2790 041632
2791 041636
2792 041640
2796 041642
041642

041644
041646
041650
2797 041652
2798 041656
041656
2799 041660
041664

2804 041666
041666
041670
041672
041674
041676
041702
041706
041712
041714
041720
041722
041724
041724
041726
041730
041732
041734
041734
041740
041744
041746
041750
041750

TESTS

001402
052702
020201

23-MAR-84 09:44

000100

25¢:

001404

104456
001774
042731
012036

30¢:

104405
104404
004737
005037
012737
012714
010465
004737

103407

043366
002222
025252
100212
000000
016326

042552

104455

002220

104406
005737

002222

001404

45%:

052702
020201
001404

000002
000200
000100
000100

104456
001777
043013
012036

013701
012702
020102
001404

104456

042552
025252

S2%:

55%:

60$:

25
@0FL ,R2
R2,R1
308
ERRNO, T10NBA,PKTSSR

SEQ 0193

:BRANCH IF NOT OFF -LINE

+SET OFF -LINE IN EXPECTED DATA
+DOES EXPECTED MATCH RECEIVED ?
1OKAY IF MATCH
tNBA NOT ZERO

TRAP

.WORD
.WORD
.WORD

ENDSEG

g<cccccccccc<cc

BGNSEG

$22>3>>>3>3>>>>

PC,T10RST
INTRECV
2025252, T10BFR
€100212,(R4)
R4, TSDB(RS)
PC,CHKTSSR
454
RO,R1
ERRNO, T10SSR,PKTSSR

FATFLG

TST
BEQ

INTRECV
S24

MOV
MOV
BIT
BEQ
BIS
cMP
BEQ
ERRHRD

END

SEGMENT

10000$:

INC

CKLOOP

ERRHRD

104456

001776
043250
012036
016501
012702
032701
001402

BEQ
BIS
cMP
BEQ
ERRHRD

JSR
CLR
MOV
MOV
MOV
JSR
BCS
MOV
ERRDF

010001

001775
043070
012036
005237

PAGE 107-1

L15

ERRNO,T10INT,PKTSSR

TSSR(RS),R1
OSSR ,R2
00FL ,R1

55
#0FL ,R2
R2,R1
604
ERRNO, T1ONNBA,PKTSSR

BEGIN

cMP

BEQ
ERRHRD

TRAP

SEGMENT

C$ESEG

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

TRAP

C$BSEG

sRESET PACKETS AND COMMANDS
s+CLEAR INTERRUPT RECEIVED FLAG
sWIPE OUT MESSAGE BUFFER AREA
:SET COMMAND PACKET TO MESS BUF REL
:SET THE PACKET ADDRESS
sWAIT FOR SSR TO SET

1BR IF CARRY SET (GOOD RETURN)

s SAVE CONTENTS OF TSSR
;:DEVICE FATAL SSR FAILEDYAO SET
AP

:SET FATAL ERROR FLAG

;LOOP ON ERROR,

.WORD
.WORD
.WORD

IF FLAG SET

CSERDF

1021
T10SSR
PKTSSR

TRAP

CsCLP1

TRAP
.WORD

CS$ERHRD
1022

;:DID AN INTERRUPT OCCUR ?
;BRANCH IF NO

.WORD
WORD
:GET THE CONTENTS OF TSSR
:EXPECTED CONTENTS OF TSSR

T10INT
PKTSSR

:IS OFF-LINE BIT SET ?
:BRANCH IF NOT OFF -LINE

:SET OFF-LINE IN EXPECTED DATA

:DOES EXPECTED MATCH RECEIVED ?
1OKAY IF MATCH
:NBA NOT SET
TRAP

T10BFR,R1
9025252 ,R2

+PICK UP THE

704
ERRNO, T10MBF ,EXPREC

1BR, IF OK (EQUAL)
tMESSAGE BUFFER WAS MODIFIED

R1,R2

1020
T10NBA
PKTSSR

cccccecccccc<cc

.WORD
.WORD
.WORD

MOV
MOV

CSERHRD

CS$ERHRD

1023
T1ONNBA

PKTSSR

1ST WORD OF MESSAGE BUFFER

1SET UP EXPECTED DATA

iWAS ANY MESSAGE REC'D

TRAP

C$ERHRD

TSVSA

- HARDWARE

TEST

10:

MACRO M1200

23-MAR-84 09:44

M15
PAGE

107-2

SEQ 0194

BASIC PACKET PROTOCOL

041752
041754
041756

2825
2826 041760
041760
2827
2828 041762
2829 041766
2830 041772
2831 041776
2832 042002
2833 042006
2834 042010
2838 042012
042012
042014
042016
042020
2839 042022
2840 042026
042026
2841 042030
042030
042032
2842 042034
2843 042040
2847 042042
2848 042046
042046
042050
2849
2850
2851
2852
2853
2854
2855
2859

TESTS

042056
042062
042066
042072
042074
042100
042102
042104

2860 042114
2861 042114

2862 042116
2863 042122
2865
2866 042130

2867 042132
2868 042136

002000
042634
015464

.WORD
.WORD
.WORD
:
708

104406

005037
004737
042714
010465
004737
103407
010001

104455
002001
043070
012036
005237

CLR
JSR
B8IC

002222
043366
100000
000000
016326

JSR
B8CS

MOV

ERRDF

002220

104406
104410
000062
005737
001006
016500

CKLOOP

75¢:

100000, (R4)
R4,TSDB(RS)
PC,CHKTSSR
75$
RO,R1
ERRNO, T10SSR,PKTSSR

1+CLEAR THE ACK BIT
+SET THE PACKET ADDRESS
tWAIT FOR SSR TO SET

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

TRAP
.WORD

CSESCAPE
10001$-.

TRAP
.WORD
.WORD

CS$ERHRD
1026
T1ONINT

:DID AN INTERRUPT OCCUR ?
:BRANCH IF YES
:GET TSSR FOR ERROR REPORT

TSSR(RS),R1
OSSR ,R2
O0FL ,R1
85¢
00FL ,R2
R2,R1
90$

;GET THE CONTENTS OF TSSR
;EXPECTED CONTENTS OF TSSR

ERRNO, T105SR,PKTSSR

WORD

002220

TST
BEQ
JSR

017172

;SET OFF-LINE IN EXPECTED DATA
;:DOES EXPECTED MATCH RECEIVED ?

;OKAY IF MATCH

:NBA NOT ZERO

TRAP

jcccccccccccc<c

FATFLG

sANY FATAL ERRORS

PC,CKDROP

:TRY

BGNSEG
002222
043366

95%:

CLR
JSR

END

SEGMENT

10001¢:
954

:BR,

PC,T10RST

CS$ERHRD

1027
T10SSR
PKTSSR

<ccccdccccccc

TRAP

C$ESEG

IF NO FATAL ERRORS

TO DROP

THE UNIT

jecccccccccc<c<

INTRECV

PKTSSR

:IS OFF-LINE BIT SET ?
:BRANCH IF NOT OFF -LINE

.WORD
.WORD
.WORD

ENDSEG

104404
005037
004737

CsCLP1

INTRECV
824
TSSR(RS),R0O
ERRNO, TLONINT,PKTSSR

002003
043070
012036

001403
004737

TRAP

:BY-PASS SUBTEST IF FATAL ERROR

104456

104405
005737

1025
T10SSR
PKTSSR

SEG

85$:

CSERDF

.WORD
.WORD
.WORD

ESCAPE

82%:

CsCLP1

;CLEAR INTERRUPT RECEIVED FLAG
tRESET THE PACKETS AND COMMANDS

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

000002

000100

INTRECV

PC,T10RST

FATFLG

002222

000002
000200
000100

TRAP

INC
CKLOOP

104456

002002
043157
012036
016501
012702
032701
001402
052702
020201
001404

:LOOP ON ERROR IF FLAG SET

1024
T10MBF
EXPREC

BGN

SEGMENT

<<c<ccccccccccc.

TRAP

;CLEAR INTERRUPT RECEIVED FLAG
sRESET THE PACKETS AND COMMANDS

C$BSEG

TSVSA

- HARDWARE TESTS

TEST

10:

23-MAR-84 09:44

PAGE 107-3

N15
SEQ 0195

BASIC PACKET PROTOCOL

042142
042146
042152
042154
042156
042156
042160
042162
042164
2877 042166
2878 042172
042172
2879 042174
042174
042176
2880 042200
2881 042204
2885 042206
2886 042212
042212
042214
042216
042220
2887 042222
2888 042226
288> 042232
289y 042236
2891 042240
2892 042244
2893 042246
2897 042250
042250
042252
042254
042256
2898 042260
042260
042260
2899 042262
2900 042266
2901 042270
042274
2903 042274
042274
042274
2904 042276
2869
2870
2871
2872
2876

MACRO M1200

010465
004737

103407

000000
016326

MOV
JSR
BCS
MOV

010001

104455
002004
043070
012036
005237

ERRDF

104456
002005
043157
012036
016501
012702
032701
001402
052702
020201
001405

002220

100¢:

002222

1BR IF CARRY SET (GOOD RETURN)

$1SAVE CONTENTS OF TSSR
tDEVICE FATAL SSR FAILED TO SET

000002

1028
T10SSR
PKTSSR

TRAP

CsCLP1

TRAP
"

CSESCAPE
10002
-.

FATFLG

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

ESCAPE

SEG

:BY-PASS SUBTEST IF FATAL ERROR

INTRECYV
112¢
:
TSSR(R5),R0O
ERRNO, TIONINT ,PKTSSR

;DID AN INTERRUPT OCCUR ?

;BRANCH IF YES

;GET TSSR FOR ERROR REPORT
TRAP

000002
000200
000100
000100

112¢%:

125¢%:

MOV

BIT
BEQ
BIS
BEQ
ERRHRD

TSSR(RS),R1

OSSR ,R2

.WORD
.WORD
.WORD

;GET THE CONTENTS OF TSSR
;EXPECTED CONTENTS OF TSSR

R2,R1

ERRNO, T10SSR,PKTSSR

;NBA NOT ZERO

ENDSEG

;OKAY

017172

130%:
140%:

TST
BEQ
JSR

§€<ccccccccc<cc

ENDSUB

FATFLG

140$

PC,CKDROP

TRAP

END

30¢:

CSERHRD

.WORD
.WORD
.WORD

1030
T10SSR
PKTSSR

TRAP

C$ESEG

SEGMENT

<<ccccccccccc<

:CHECK FATAL FLAG FOR SET
:BR, IF NOT SET (OK)

:DROP DEVICE IF INDICATED

§//////7/7/77

END

SUBTEST

L10100:

104403

1029
T1ONINT
PKTSSR

IF MATCH

10002:
002220

C$ERHRD

;IS OFF-LINE BIT SET ?

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

130¢

CS$ERDF

.WORD
.WORD
WORD

INC
CKLOOP

TST
BNE
MOV
ERRHRD

104456
002006
043070
012036
104405
005737
001402
004737

sSET THE PACKET ADDRESS
tWAIT FOR SSR TO SET

TRAP

104406
104410
000062
005737
001006
016500

R4,TSDB(RS)
PC,CHKTSSR
100§
RO,R1
ERRNO, T10SSR,PKTSSR

/777777477777

TRAP

CSESUB

TSVSA

TEST

10:

HARDWARE

TESTS

MACRO M1200

23-MAR-84 09:44

PAGE

108

Bl16
SEQ 0196

BASIC PACKET PROTOCOL
|

1 TEST 10 SUBTEST 4

:CHECKS THAT THE REGISTER MOOIFICATION REFUSED (RMR) BIT IN
1 THE TSSR WILL BE SET IF A WRITE CHARACTERISTICS COMMAND
1BEING EXECUTED AND ANOTHER “WC"” COMMAND IS ATTEMPTED

042276
042276
042276
042300
042304
042310
042310
042314
042316
042322

042334
042342
042342
042342
042344
042350
042352
042354
042354
042356
042360
042362
042364

042370
042374

2945

2947
2948
2949

042404
042410
042414
042420
042422
042422
042424
042426
042430
042432
042436
042436
042440
042440
042442
042444
042450

2951
2955 042452

BGNSLB

8/////7//77777

BEGIN

104402

004737
004737
012700
104441
012704

012703
012764
012763

104404
004737
103405
010001
104455
002007
003646
012024
005037
005037
010465
010365
004737
016501
032701
001006
104455
002010
043070
012036
005237

043440
043366

042530
042572
000010
000010

JSR
JSR
SETPRI

St:

015764

002220
002222
000000
000000
016240
000002
000200

MOV
MOV
MOV
MOV

PC,T10RST
OPRIOO

@T10PACKET
R4
OT10PKT,R3
08. ,PKBCNT(R4)
#8. ,PKBCNT(R3)

BGNSEG
JSR
8CS
MOV
ERRDF

10¢:

PC,T10RT2

CLR

PC,SOFINIT

104

RO,R1
ERRN
SF IERR,O,
SF IMSG

FATFLG

INTRECV

R4, TSDB(RS)
R3,TSDB(RS)
PC,MWAITF
TSSR(RS) ,R1
OSSR, R1

15¢

/77777777777

TRAP

csesuB

1SET SECOND PACKET uP
1SET PACKET TO INITIAL VALUES
1LOWER PRIORITY TO ALLOW INTERRUPTS

MOV
OPRIOO,RO
TRAP
C$SPRI
1GET THE ADDRESS OF COMMAND PACKET

tGET THE ADDRESS OF 2ND CMD PACKET

1START KITH MINIMUM ALLOWABLE VALUE
1START WITH MINIMUM ALLOWABLE VALUE
$2>>333>>3>>>

ERRNO, T10SSR,PKTSSR

BEGIN

SEGMENT

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

TRAP

C$BSEG

TRAP
.WORD

CSERDF
1031

100 SOFT INIT OF CONTROLLER
1BR IF SOFT INIT = OK
1 SAVE CONTENTS OF TSSR
tDEVICE FATAL ERROR DURING INIT
.WORD
.WORD

1CLEAR FATAL ERROR FLAG
1CLEAR INTERRUPT RECEIVED FLAG
1SET THE PACKET ADDRESS

002220

15¢:

CxLOoOoP

FATFLG

tGET CONTENTS OF TSSR REGISTER
1CHECK FOR SSR (TSSR) SET
iBR,

IF SSR SET (GOOD)

1DEVICE FATAL SSKk FAILED 7O SET

002222

INTRECY
224
ERRHRD

1SET

FATAL

ERROR FLAG

1LOOP ON ERROR,
SEG

ERRNO, T1ONINT ,PKTSSR

SFIERR
SFIMSG

1 SECOND COMMAND PACKET
tWAIT FOR SSR TO SET

TRAP

104406
104410
G00056
005737
001004

SUBTEST

710.4;

1BY-PASS SUBTEST

.WORD
.WORD
WORD

IF FLAG SET

CsCLPL

TRAP

CSESCAPE

;:DID AN INTERRUPT OCCUR ?
YES

1032
T10SSR
PKTSSR

TRAP

IF FATAL ERROR
4

1BRANCH IF

CS$ERDF

10000$
-,

TSVSA

TEST

10:

HARDWARE

TESTS

MACRO M1200

Cle
23-MAR-84

09:44

PAGE

108-1

SEQ 0197

BASIC PACKET PROTOCOL

042452
042454
042456
042460

042462
42466
2958 042472
2959 042476
042500
2961 042504
042506

042510
042510
042512
042514
042516
2967 042520
P| 042520
042520
042520
2969 042522
042522
042522
2970 042524
042524
042526

TRAP
.WORD
WORD
WORD

104456

002011

043157
012036
016501
012702
032701
001402
052702
020201
001404

000002

110200

22%:

000100

258

104456

002012
043070
012036

104405
104403
104432
000764

30%:

MOV

BIT
BEQ
8IS
cMP
BEQ
ERRHRD

TSSR(RS),R1
0SSR!RMR!SC,R2
00FL ,R1

254
Q0FL ,R2

R2,R1

304
ERRNO, T10SSR,PKTSSR

1GET THE CONTENTS OF TSSR
tEXPECTED CONTENTS OF TSSR
+IS OFF -LINE BIT SET ?

CS$ERHRD
1033
T1ONINT
PKTSSR

1BRANCH IF NOT OFF -LINE

1SET OFF -LINE IN EXPECTED DATA
sDOES EXPECTED MATCH RECEIVED ?
1OKAY IF MATCH
tNBA NOT ZERO
TRAP

.WORD
.WORD
.WMORD

SEGMENT

1034
T10SSR
PKTSSR

ENDSEG

jeccccccccccce

ENDSUB

TRAP
CS$ESEG
$////7/7/77/77 END SUBTEST /777717774777
L10101:

EXIT

END

CSERHRD

cccccccccccce

:
10000

TSy

;ALL DONE WITH THIS

TEST

TRAP
TRAP

. WORD

CS$ESUB
CSEXIT

L10075-.

TSVSA

TEST

10: BASIC PACKET PROTOCOL

2972
2973
2974
2975
2979
2980
2981
2982
2983
2984
2985
2986
2987
2988
2989
2990
2991
2992
c993
2994
2995

HARDWARE

TESTS

MACRO M1200

23-MAR-84 09:44

PAGE

179

D16
SEQ 0198

1LOCAL STORAGE FOR THIS TEST
'.

042530
042530
042532
042534
042536

042540
042540
042542
042544
042546

T10PACKET:

. WORD
. WORD
.WORD
. WORD

100204
042540
000010

T10DATA:

042552
000016

T10BFR:

042552

.BLKW

100204

sCOMMAND PACKET FOR TEST
tWRITE CHAR COMMAND, WITH IE, ACK

1STARTING VALUE OF BLOCK SIZE

T108FR
0
346

:ADDRESS OF MESSAGE BUFFER

tMESSAGE BUFFER

giooATA

+ADDRESS OF CHARACTERISTICS BLOCK

1 CHARACTERISTICS DATA BLOCK

iLENGTH OF MESSAGE BUFFER

: TEST DATA FOR SUBTEST FOUR
3

100204
N4a2602

100204
51007“

:COMMAND PACKET FOR TEST
;WRITE CHAR COMMAND, WITH IE, ACK
s ADDRESS OF CHARACTERISTICS BLOCK

000010

1STARTING VALUE OF BLOCK SIZE

EIOBUFR

s CHARACTERISTICS DATA BLOCK
+ADDRESS OF MESSAGE BUFFER

3‘6

;LENGTH OF MESSAGE BUFFER

+MESSAGE BUFFER

T10PKT:

T10DTA:

042614
000000
000016

T10BUFR: .BLKW
i

sLOCAL TEXT MESSAGES FOR TEST

042634
042731
043013
043070
043157
043250
043337

115
116

116
103
105
125
102

145
102
102

157

170
141

T10MBF
: .ASCIZ
T1ONBA: .ASCIZ
T1ONNBA;
T10SSR: .ASCIZ
T1ONINT;
T10INT: .ASCIZ
TST10ID:

.EVEN

‘Message Buffer Modified after MESSAGE BUFFER RELEASE Command’
‘NBA Not Clear After WRITE CHARACTERISTICS Command’
.ASCIZ
'NBA Set After MESSAGE BUFFER RELEASE Command’
‘Contents of TSSR Incorrect After WRITE CHARACTERISTICS®

.ASCIZ

'Expected Interrupt Not Received On WRITE CHARACTERISTICS'

.ASCIZ

'Besic Packet Protocol’

‘Unexpected Interrupt Received On WRITE CHARACTERISTICS®

TSVSA

HARDWARE

TEST

10:

TESTS

MACRO M1200

23-MAR-84 09:44

PAGE

110

E16
SEQ 0199

BASIC PACKET PROTOCOL

3026
3027
3028

)

gggg

;ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES
H

3031
3032

3033 043366

T10RST:

3034 043366
3035 043372
3036 043376
3037 043402
3038 043406
3039 043410
3040 043414

012701
012721
012721
005021
012721
012721

042530
100204
042540

3C42 043422

3041 043420
3043 043426
3044 043430

3045 043432

3046 043436
3047

000010
042552

SAVREG
MOV
MOV
MOV
CLR
MOV
MOV

OT10PACKET ,R1
€100204,(R1)+
OT10DATA,(R1)+
(R1).
08.,(R1)»
OT108FR,(R1)+

1SAVE THE REGISTERS
1START OF THE PACKET
tWRITE CHARACTERISTICS WITH ACK, IE
;ADDRESS OF CHAR DATA BLOCK
tEXTENDED ADDRESS
1SIZE OF DATA BLOCK IN BYTES
s ADDRESS OF MESSAGE BUFFER

012721

000016

MOV

014, ,(R1).

;LENGTH OF MESSAGE BUFFER

005037

042552

T108FR

;CLEAR 1ST LOC IN MESSAGE BUFFER

005021

005021
005011

000207

CLR

CLR
CLR

CLR

3048

RTS

(R1).

(R1).
(R1)

;RETURN

358;‘9)

;ROUTINE TO RESTORE COMMAND PACKET #2 TO START-UP (DEFAULT) VALUES
H

3051

3052
3053 043440

3054 043440

3055 043444
3056 043450
3057 043454

3058 043460
3059 043462
3060 043466
3061 043472

3062 043474

3063 043500
3064 043502

3065 043504

3066 043510

3067 043512
043512

043512

T10RT2:

012701
012721
012721

005021
012721
012721

042572
100204
042602

SAVREG
MOV
MOV
MOV

000010
042614

CLR
MOV
MOV

012721

000016

MOV

005037

042614

CLR

005021

005021
005011

000207

104401

CLR

CLR
CLR

RTS

ENDTST

(R1)e
@8.,(R1).
OT10BUFR,(R1)+

:SAVE THE REGISTERS

iSTART OF THE PACKET
tWRITE CHARACTERISTICS WITH ACK, IE
;ADDRESS OF CHAR DATA BLOCK
tEXTENDED ADDRESS
:SIZE OF DATA BLOCK IN BYTES
;ADDRESS OF MESSAGE BUFFER

(R1)»

014, ,(R1).
(R1)»
(R1)

T10BUFR

sLENGTH OF MESSAGE BUFFER
. 3CLEAR 1ST LOC IN MESSAGE BUFFER
sRETURN_

L1007S:

" TRAP

CSETST

TSVSA

HARDWARE

TEST

11:

TESTS

MACRO M1200

23-MAR-84 09:44

3092
3093

3094
3095
3099
3100

SEQ 0200

LSBTTL

3109
3110
3111
3112
3113
3114

3115

3116
3117
3118
3119
312C
3124

TEST

11:

NON-TAPE MOTION COMMANDS

1 THIS

TEST

VERIFIES PROPER OPERATION OF

THE

INITIALIZE

;COMMAND. TWO SUBTESTS ARE USED. THE FIRST VERIFIES THAT
; THE COMMAND RUNS TO COMPLETION AND STORES A VALID
;MESSAGE PACKET., THE SECOND VERIFIES THAT NON-ZERO
s VALUES IN THE COMMAND MODE FIELD CAUSES COMMAND REJECT.
i
'

BGNTST
012700
004737
012737

0as5512
016500
000024

MOV

002214

JSR
f13L00P MOV

=
@TST1.ID,RO

"BGNSUB

sASCII MESSAGE TO IbéNTIFY TEST
;00 INITIAL TEST SETUP
sPERFORM 20 ITERATIONS

V2222222227 eegm SUBTEST /77777177777
$3.1:

104402
012700
104441
004737

103405

015764

012704
004737
103404

104455

JSR

PC,SOFINIT

;00 SOFT INIT OF CONTROLLER

33
RO,R1
ERRNO,SFIERR, SFIMSG

MOV

JSR

B8CS

ERRHRD

0T11PK2,R4

PC,WRTCHR

ERRNO,WRTMSG,
SF IMSG

TRAP

;:DEVICE FATAL ERROR DURING INIT

TRAP

)
002220
002222
000000
016326

10s¢:

JSR

PC,T11REST

OT11PACKET,R4

BGNSEG
CLR

CLR
MOV
JSR
BCS

MOV

ERRDF

1101
SFIERR
SFIMSG

s ISSUE WRITE CHARACTERISTICS

:BR,

IF COMMAND ISSUED OK

;WRITE CHARACTERISTISC FAILED
TRAP
.WORD
.WORD

MOV

C $ERDF

;WRITE CHARACTERISTICS PACKET

. WORD

CS$SPRI

;B8R IF SOFT INIT = 0K
:SAVE CONTENTS OF TSSR

i
045544
044670

Cs8SUB

TO ALLOW INTERRUPTS
MOV
OPRIOCO,RO

.WORD
.WORD
.WORD

044740
010652

104404
005037
005037
010465
004737
103407
010001

;:LOWER PRIORITY

104456
002116
005052
012024

004737
012704

@&PRIOO

ERRDF

002115
003646
012024

TRAP

SETPRI

BCS
MOV

010001

104455

3101
3102
3103
3104
3108

F16

112

NON-TAPE MOTION COMMANDS

3070
3071
3072
3073
3074
3075
3076
3077
3078
3079
3080
3081
3082

3087
3088
3089
3090
3091

PAGE

C$ERHRD
1102

WRTMSG
SFIMSG

:SET UP PACKET FOR COMMAND
:GET

THE

ADDRESS OF

COMMAND PACKET

$122>>>>3>3>>>>>> BEGIN SEGMENT >>>>>3>>>>>»>
TRAP

FATFLG

;CLEAR FATAL ERROR FLAG

RO,R1

1SAVE CONTENTS OF TSSR

INTRECV
R4 ,TSDB(RS)
PC,CHKTSSR
15¢
ERRNO, T11SSR,PKTSSR

C$BSEG

;CLEAR INTERRUPT RECEIVED FLAG
:SET THE PACKET ADDRESS
sWAIT FOR SSR TO SET
iBR IF CARRY SET (GOOD RETURN)
;DEVICE FATAL SSR FAILED

TO SET

TRAP

CSERDF

TSVSA

- HARDWARE

TEST

11:

3128
3129
3133

3134
3135
3136
3137
3138
3139
3140
3144

3145
3146
3147
3151

3152

3153
3154
3155

3156
3157
3158
3159
3160

MACRO M1200

23-MAR-84 09:44

PAGE

G16
112-1

SEQ 0201

NON-TAPE MOTION COMMANDS

043644
043646
043650
3125 043652
3126
3127

TESTS

002117
045234
012036
005237

1103

002220

104406

15¢:

104410

000074
005737
001004

002222

1SET FATAL ERROR FLAG
1LOOP ON ERROR, IF FLAG ?g;P

ESCAPE

SEG

1BY -PASS SUBTEST IF FATAL ERROR

TST
BNE
ERRHRD

INTRECV
224
ERRNO, TLININT ,PKTSSR

. WORD

:DID AN INTERRUPT OCCUR ?
:BRANCH IF

000002
000200
000100
000100

22%:

25%:

104456

011104

30%:
35%:

104456
002122
004741
015500

MOV
MOV
BIT
BEQ
BIS
CMP
BEQ
ERRHRD

TSSR(RS),R1

OSSR, R2

00FL ,R1
254
00FL ,R2

R2,R1

30%
ERRNO, T11NBA ,PKTSSR

CS$ESCAPE
10000¢
-.

YES

tGET THE CONTENTS OF TSSR
;EXPECTED CONTENTS OF TSSR

:IS OFF -LINE BIT SET

:BRANCH IF NOT OFF -LINE
+SET OFF -LINE IN EXPECTED DATA
+DOES EXPECTED MATCH RECEIVED ?
;OKAY IF MATCH
iNBA NOT ZERO

JSR
BCS
ERRHRD

PC,CKRAM
59%
ERRNO,PKTRAM,RAMERR

END

104405

S MAANNNNNANNANNN

END

104403

017172
60%:

TST
BEQ
JSR

FATFLG

60¢
PC,CKDROP

:ANY FATAL

ERRORS

:1BRANCH IF NOT

:TRY

TO DROP

THE

PKTRAM
RAMERR

TRAP

CS$ESEG

SUBTEST

?
UNIT

CS$ERHRD
1106

.WORD
. WORD

SEGMENT

L10103:
002220

T11NBA
PKTSSR

;CHECK RAM TO MEMORY

je<ccccccccccc

ENDSUB

CS$ERHRD
1105

;RAM 0K GO ON
;s THEY DON'T MATCH

10000¢:

59%:

1104
T11NINT
PKTSSR

TRAP
.WORD
. WORD
. WORD

ENDSEG

005737
001402
004737

CsCLP1

CSERHRD

002121
045002
012036

004737
103405

FATFLG

TRAP

104456

002120
045364
012036
016501
012702
032701
001402
052702
020201
001404

INC
CkLooP

T11SSR
PKTSSR

<ccccccccccccc

NNNNNNANN

TRAP

CsESULB

TSVS5A

HARDWARE

TEST

11:

3192
3193
3194
3195
3196
3197
3198
3199
3200
3201
3205

3206

3207

MACRO M1200

23-MAR-84 09:44

PAGE

113

H16
SEQ 0202

NON-TAPE MOTION COMMANDS

3162
3163
3164
3165
3166
3167
3168
3169
3170
3171 043774
043774
043774
3172
3173 043776
043776
044002
3174 044004
044004
3175
3176
3177 044006
3178 044012
3182 044014
3183 044016

3184
3185
3186
3187
3191

TESTS

044016
044020
044022
044024
044026
044026
044032
044036
044040
044040
044042
044044
044046
044050
044050
044054
044060
044060
044064
044070
044074
044100
044102
044104
044104
044106
044110
044112
044114
044114
044116
044116
044120

s TEST

11,

SUBTEST 2

+CHECK THAT NON-ZERO MODE BITS BEING SET CAUSES
s INITIALIZE COMMAND TO BE REJECTED
:
'-

$ /177717777777 BE?IN SUBTEST /77777777777
11.2:
TRAP
csssuB

BGNSUB

104402
SETPRI

012700
104441

103405

015764

010001

104455
002123
003646
012024
012704
004737

103404

04474C
010652

104456
002124
005052
012024
004737
012704

045544
044670

005037
052714
010465
004737
103405
010001

002222
007400
000000
016326

104455
002125
045234
012036
104406
104410
000074

3s:

PC,SOFINIT

MOV
ERRDF

RO,R1
ERRNO SFIERR, SFIMSG

10%:

oT11PK2,R4
PC,WRTCHR

ERRHRD

ERRNO,WRTMSG, SFIMSG

SEGMENT

#PRIOO,RO

C$SPRI

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

;00 SOFT INIT OF CONTROLLER
3BR IF SOFT INIT = UK
:SAVE CONTENTS OF TSSR
;DEVICE FATAL ERROR DURING INIT
TRAP
.WORD

+WRITE CHARACTERISTICS PACKET
s ISSUE WRITE CHARACTERISTICS
;BR, IF COMMAND ISSUED OK
:WRITE CHARACTERISTISC FAILED
TRAP

.WORD
.WORD
.WORD

C$BSEG

CSERDF
1107

SFIERR
SFIMSG

C$ERHRD

1108
WRTMSG
SFIMSG

JSR

PC,T11REST

:SET UP PACKET FOR COMMAND
:GET THE ADDRESS OF COMMAND PACKET

CLR
BIS
MOV
JSR
BCS

INTRECV
oP .MODE
, (R4)
R4,T50B(RS)
PC,CHKTSSR
15¢

;:CLEAR INTERRUPT RECEIVED FLAG
:NON-ZERO COMMAND MODE BITS
:SET THE PACKET ADDRESS

MOV
ERRDF

15¢:

MOV
JSR

MOV

Ss:

BEGIN

TRAP

.WORD
.WORD

B8CS

MOV

TRAP

JSR

B8CS

;LOWER PRIORITY TO ALLOW INTERRUPTS
$2>>>3>>33>3>>>>

BGNSEG

104404

004737

@PRIOO

O@T11PACKET
R4

RO,.R1
ERRNO,T11SSR,PKTSSR

:BR IF CARRX SET (GOOD RETURN)
i SAVE CONTENTS OF TSSR

;:DEVICE FATAL SSR FAILED TO SET
TRAP

:LOOP ON ERROR,

CKLOOP
ESCAPE

sWAIT FOR SSR TO SET

SEG

.WORD
.WORD
.WORD

IF FLAG SET

C$SERDF

1109
T11SSR
PKTSSR

TRAP

CsCLP1

TRAP

CSESCAPE

:BY-PASS CHECKS IF FATAL ERROR
.WORD

100008
-.

TSVSA

TEST

11:

HARDWARE

TESTS

MACRO M1200

23-MAR-84 09:44

116
PAGE

113-1

SEQ 0203

NON-TAPE MOTION COMMANDS

3208 044122
3209 044126
3213 044130
044130
044132
044134
044136
3214 044140
3215 044144
3216 044150
3217 044154
3218 044156
3219 044162
3220 044164
3224 044166
044166
044170
044172
044174
3225 044176
3226 044176
3227 044202
3231 044204
044204
044206
044210
044212
3232 044214
044214
044214
3233
3234 044216
044216
044216

005737

001004

002222

TST
BNE
ERRHRD

104456

INTRECV
228
ERRNO, T1ININT ,PKTSSR

:DID AN INTERRUPT OCCUR ?
:BRANCH IF

YES

TRAP

002126
045364

012036
016501
012702
032701
001402
052702
020201
001404

000002
100206
000100
000100

104456
002127
045042
012036
004737
103405

011104

22%:

MOV

25%:

BIT
BEQ
BIS
cMP

30¢:
35¢:

104456
002130
004741
015500

BEQ
ERRHRD

JSR
B8CS
ERRHRD

ENDSEG

.WORD
.WORD
.WORD

TSSR(RS),R1
0SC!SSR!TSREJ,R2

;GET THE CONTENTS OF TSSR
sEXPECTED CONTENTS OF TSSR

R2,R1

:BRANCH IF NOT OFF -LINE
;SET OFF-LINE IN EXPECTED DATA
;+DOES EXPECTED MATCH RECEIVED ?

00FL ,R1
254
Q0FL ,R2

308
ERRNO, T112REJ,PKTSSR

PC,CKRAM
59¢
ERRNO,PKTRAM,RAMERR

;IS OFF-LINE BIT SET

;OKAY

104403

ENDSUB

1110
TIININT
PKTSSR

IF MATCH

;COMMAND NOT REJECTED

TRAP

CSERHRD

.WORD
.WORD
. WORD

1111
T112REJ
PKTSSR

TRAP
.WORD

CSERHRD
1112

;CHECK RAM TO MEMORY

;:RAM OK GO ON
;THEY DON'T MATCH

jec<ccccccccccc

END

. WORD
. WORD

SEGMENT

10000
:

104405
S9%:

CSERHRD

s MANTANANANNANY

END

<¢cccccccccccc

TRAP

SUBTEST

L10104:

PKTRAM
RAMERR
C$ESEG

NNNNNNANNNN

TRAP

CSESUB

TSVSA

- HARDWARE

TEST

11:

TESTS

MACRO M1200

3247
3248
3249
3253
3254

3255
3256
3257
3258
3262

3263
3264
3265
3267
3268
3269
3270
3271
3275

3276
3277

3278
3279
3283

PAGE

114

J16
SEQ 0204

NON-TAPE MOTION COMMANDS

3236
3237
3238
3239
3240
3241
3242
3243
3244
3245
3246

23-MAR-84 09:44

;TEST 11, SUBTEST 3
5

sCHECK THAT THE GET STATUS COMMAND IS ACCVPTED
i
'

BGNSUB

3 /1717107777777 BE?IN ngTEST L1111/ /77777/7
33.3:

104402
012700
104441

104404
004737
103405
010001

SETPRI

000000

JSR
8CS
MOV
ERRDF

015764

104455

3
044740
010652

104456
002132
005052
012024
004737
012704

045544
044670

005037
010465
004737

002222
000000
016326

103405

4%:

10¢:

104455
002133
045310
012036

15s:

104406

104456

MOV

PC,SOFINIT
3
RO,R1
:
ERRNO, SFIERR, SFIMSG

BEGIN SEGMENT

#PRIOO,RO

TRAP
C$BSEG
;00 SOFT INIT OF CONTROLLER
;BR IF SOFT INIT = OK
;SAVE CONTENTS OF TSSR
;:DEVICE FATAL ERROR DURING INIT
TRAP
CSERDF

sWRITE CHARACTERISTICS PACKET

;:BR, IF COMMAND ISSUED OK

PC,WRTCHR

ERRHRD

ERRNO,WRTMSG, SFIMSG

JSR

CLR

MOV

sWRITE CHARACTERISTISC FAILED
TRAP
.WORD

PC,T11REST

;SET UP PACKET FOR COMMAND

INTRECYV

:CLEAR INTERRUPT RECEIVED FLAG

PC,CHKTSSR
15
RO,R1
ERRNO, T11SR2,PKTSSR

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

©T11PACKET,R4

R4, TSDB(RS)

TST

SL5
INTRECV

SFIMSG

CS$ERHRD
1114

WRTMSG
SF IMSG

;:GET THE ADDRESS OF COMMAND PACKET
;:SET THE PACKET ADDRESS

TRAP
.WORD

CSERDF
1115

T11SR2
.WORD
PKTSSR
.WORD
;LOOP ON ERROR, IF FLAG SET
TRAP
CsCLP1
:BY-PASS SUBTEST IF FATAL ERROR

CKLOOP

BNE
ERRHRD

1113
SFIERR

s ISSUE WRITE CHARACTERISTICS

.WORD
. WORD

MOV

C$SPRI

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

OT11PK2,.R4

JSR

ESCAPE
002222

$2>>>>35>5>>>>

TRAP

.WORD

JSR
BCS
MOV
ERRDF

010001

104410
000074
005737
001004

MOV

.WORD
. WORD

B8CS

csBSuB

sLOWEK PRIORITY TO ALLOW INTERRUPTS

BGNSEG

002131
003646
012024

012704
004737
103404

oPRIOO

TRAP

22%
ERRNO, T1ININT,PKTSSR

TRAP
. WORD
;:DID AN INTERRUPT OCCUR ?

CSESCAPE
10000¢
-,

:BRANCH IF YES

TRAP

C$ERHRD

TSVSA

HARDWARE

TEST

11: NON-TAPE MOTION COMMANDS
044352
044354
044356

3284 044360
3285 044364
044370
3287 044374
3288 044376
3289 044402
3290 044404
3294 044406
044406
044410
044412
044414
3295 044416
3296 044416
3297 044422
3301 044424
044424
044426
044430
044432
3302 044434
044434
3303

044434

3305 044436
044436
044436

TESTS

002134
045364
012036
016501
012702
032701
001402
052702
020201
001404

MACRO M1200

000002
000200
000100
000100

104456
002135
045123
012036
004737
103405

011104

23-MAR-84 09:44

22%:

25%:

30¢:
35¢:

104456
002136
004741
015500

PAGE

TSSR(RS5),R1
OSSR, R2

Q0FL ,R1
254
00FL ,R2

BEQ
ERRHRD

ERRNO, T113REJ,PKTSSR

R2,R1
304

SEQ 0205
1116
TLININT
PKTSSR

tGET THE CONTENT, OF TSSR
tEXPECTED CONTENTS OF TSSR
+IS OFF-LINE BIT SET ?
sBRANCH IF NOT OFF -LINE

sSET OFF-LINE IN EXPECTED DATA

;DOES EXPECTED MATCH RECEIVED ?
;OKAY IF MATCH

:COMMAND NOT ACCEPTED

TRAP

. WORD
.WORD
.WORD

JSR
8CS
ERRHRD

104405

104403

K16

MOV
MOV
BIT
BEQ
8IS

ENDSEG

S9s$:

114-1

ENDSUB

PC,CKRAM
594

ERRNO,PKTRAM, RAMERR

CSERHRD
1117

T113REJ
PKTSSR

;CHECK RAM TO MEMORY
;RAM OK GO ON

;THEY DON'T MATCH

jecccccccccccc

END

C$ERHRD
1118

WORD

SEGMENT

10000$:

PKTRAM
RAMERR

<cecccceccccc

TRAP

CS$ESEG

s MANANNANANANNANANN END SUBTEST NANANANNNNNW
L10105:
TRAP
C$ESUB

JSVSA - HARDWARE TESTS
TEST

11:

MACRO M1200

23-MAR-84 09:44

PAGE 115

L16
SEQ 0206

NON-TAPE MOTION COMMANDS

3307
3308
3309
3310
3311
3312
3313
3314
3315
3316 044440
044440
044440

3317
3318 044442
044442
044446
3319 044450
044450
3320 044452
3321 044456
3325 044460
3326 044462
044462
044464
044466
044470
044472
044472
044476
044502
044504
044504
044506
044510
044512
3335 044514
044514
3337 044520
3338 044524
3339 044524
3340 044530
3341 044534
3342 044540
3343 044544
044546
3348 044550
044550
044552
044554
044556
3349 044560
044560
3350 044562
044562
044564
3351 044566
3352 044572

‘0

s TEST 11,

SUBTEST 4

;SUBTEST TO VERIFY THAT A GET STATUS COMMAND IS
sREJECTED IF A NON-ZERO COMMAND MODE FIELD IS USED
i
‘-

BGNSUB

8 /177777777727 85?1" SUBTEST //////////777
11.4:

104402

SETPRI

012700
104441

104404
004737
103405
010001

BGNSEG
JSR
BCS
MOV
ERRDF

015764

104455
002137
003646
012024
012704
004737
103404

005052
012024

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

045544
044670

005037
052714
010465
004737
103405
010001

002222
007000
000000
016326

10%:

104455

15$:

104406

JSR
MOV

OT11PK2,.R4
PC HRTCHR

ERRNO WRTMSG, SFIMSG

002222

C$BSEG

TRAP
.WORD

CSERDF
1119

.WORD

SFIMSG

;WRITE CHARACTERISTICS PACKET
;ISSUE WRITE CHARACTERISTICS
:BR, IF COMIYAND ISSUED OK
sWRITE CHARACTERISTISC FAILED

CLR

TRAP

C$ERHRD

.WORD

SFIMSG

INTRECYV

;CLEAR INTERRUPT RECEIVED FLAG

RO,R1

:SAVE CONTENTS OF

ERRDF

ERRNO, T11SR2,PKTSSR

CKLOOP

TST

1120
WRTMSG

:SET UP PACKET FOR COMMAND
;:GET THE ADDRESS OF COMMAND PACKET

BNE

SFIERR

PC,T11REST
OT11PACKET,R4

BIS
MOV
JSR
BCS

ESCAPE

104410

TRAP

.WORD
.WORD

MOV

002141
045310
012036

C$SFRI

;00 SOFT INIT OF CONTROLLER
;BR IF SOFT INIT = OK
;sSAVE CONTENTS OF TSSR
;:DEVICE FATAL ERROR DURING INIT

004737
012704

TRAP

$2>3>>333>3>>> BEGIN SEGHENT 3333333333>>

-WORD

MOV
JSR
BCS
ERRHRD

044740
010652

csBsuB

;LOWER PRIORITY TO ALLOW INTERRUPTS
MOV
OPRIOO,RO

104456
002140

000076
005737
001004

#PRIOO

TRAP

;SET TO NON-ZERO MODE
:SET THE PACKET ADDRESS
;WAIT FOR SSR TO SET
;BR IF CARRY SET (GOOD RETURN)
TSSR

:DEVICE FATAL SSR FAILED TO SET

;:LOOP ON ERROR,

TRAP

CSERDF

TRAP

CsCLPL

TRAP
.WORD

CSESCAPE
.10106-.

.WORD
.WORD
.WORD
IF FLAG SET

SUB

:BY-PASS SUBTEST IF FATAL ERRCR

INTRECV

;:DID AN INTERRUPT OCCUR ?

2248

:BRANCH IF YES

1121
T11SR2
PKTSSR

TSVSA

HARDWARE

TEST

11:

TESTS

MACRO M1200

23-MAR-84 09:44

PAGE

115-1

M16
SEQ 0207

NON-TAPE MOTION COMMANDS

3356 044574
044574
044576
044600
044602
3357 044604
3358 044610
3359 044614
3360 044620
3361 044622
3362 044626
3363 044630
3367 044632
044632
044634
044636
044640
3368 044642
3369
3370 044642
3371 044646
3375 044650
044650
044652
044654
044656
3376 044660
3377 044660
044660
044660
3378 044662
044662
044662
3379

104456
002142
045364
012036
016501
012702
032701

001402
052702
020201
001404

ERRHRD

TRAP

000002
100206
000100
000100

104456
002143
045153
012036
004737
103404

22$:

25%:

104405

104403

MOV
MOV
BIT
BEQ
BIS
cMP
BEQ
ERRHRD

TSSR(R5),R1
@SC!SSR!TSREJ,R2
00FL ,R1
254
Q0FL ,R2
R2,R1
304
ERRNN,T114REJ,PKTSSR

.WORD
.WORD
. WORD
tGET THE CONTENTS OF TSSR
sEXPECTED CONTENTS OF TSSR
+IS OFF-LINE BIT SET ?

011104

35¢:

59¢:

JSR

PC,CKRAM

594
ERRNO,PKTRAM,RAMERR

1122
T11ININT
PKTSSR

;:OKAY IF MATCH

:COMMAND NOT REJECTED

TRAP

. WORD
. WORD
.WORD

BCS
ERRHRD

CSERHRD

1BRANCH IF NOT OFF -LINE
+SET OFF-LINE IN EXPECTED DATA
:DOES EXPECTED MATCH RECEIVED ?

30¢:

104456

002144
004741
015500

ERRNO, T1ININT,PKTSSR

C$ERHRD
1123

T114REJ
PKTSSR

:CHECK RAM TO MEMORY
:RAM OK GO ON
:THEY DON'T MATCH

CS$ERHRD

1124
PKTRAM
RAMERR

ENDSEG

jCcccccccccc<c<c

ENDSUB

S ANAAANNNNNANANY

END

SEGMENT

1000C$:

TRAP

C$ESEG

TRAP

CSESUB

END SUBTEST

L10106:

<¢cccccccccc

NNNNNNNNNNNL

TSVSA - HARDMWARE TESTS

23-MAR-84 09:44

PAGE 116

B1l

11: NON-TAPE MOTION COMMANDS
TRAP

CIEXIT

1LOCAL STORAGE FOR THIS TEST
'-

T11PACKET:

s ADDRESS OF cmnncreuxsncsfi.ocx

1STARTING VALUE OF BLOCK SIZE

;uara

sADDRESS OF MESSAGE BUFFE

340

ILENGTH OF MESSAGE BUFFER

JMESSAGE BUFFER

.cnmncreaxsucs DATA BLOCK

~
~
i
~

§§§§ 3333

T11PK2:

100204
044750
000000
000010

]

044740

L <

T11B8FR:

000000

1COMMAND PACKET FOR TES‘I’

(WRITE CHAR COMMAND, WITH

;uonn

T11DATA:

044712
000000
000016
000000

100204

100204
044700
000000
000010

T11D0TA:

044762
000000
000016

T11B8F2:

3420 044762
3421
3422
3423
3424
3425
3426
3427
3428 045002
3429 045042
3430 045123
3431 045153
3432 045234
3433 045310
3434 045364
3435 045442
33_6' 045512

1ALL DONE THIS TEST

.WORD

3408 044740
3409 044740
3410 044742
3411 044744
3412 044746
3413
3414 044750
3415 044750
3416 044752
3417 044754

TST

100204

1COMMAND PACKET FOR TEST
tWRITE CHAR COMMAND, WITH IE, ACK

;IIDTA

1ADDRESS OF CHARACTERISTICS BLOCK

1STARTING VALUE OF BLOCK SIZE

;110‘2

1CRARACTERISTICS DATA BLOCK
1ADDRESS OF MESSAGE BUFFER

340

tLENGTH OF MESSAGE BUFFER

tMESSAGE BUFFER

3406

EXIT

104432
000762

3381 044664
044664
044666
3382
3383
3384
3385
3386
3390 044670
3391 044670
3392 044672
3393 044674
3394 044676
3395
3396 044700
3397 044700
3398 044702
3399 044704
3400 044706
3401
3402 044712
3403
3404

TEST

MACRO M1200

sLOCAL TEXT MESSAGES FOR TEST
111
111
107
107
103
103
105
111
116

116
116
105
105
157
157
170
156
157

111
111

124

156

160
143
156

T11INBA: .ASCIZ
T112REJ:
T113REJ:
T114REJ:
T11SSR: .ASCIZ
T11SR2: .ASCIZ
T1ININT;
T11TSBA:;
TST111ID:

.EVEN

‘INITIALIZE Command Not Accepted’
.ASCIZ
*INITIALIZE Not Rejected With Non-Zero Mode Field’
.ASCIZ
'GET STATUS Not Accepted’
.ASCIZ
'GET STATUS Not Re
ted With Non-Zero Mode Field’
‘Contente of TSSR Incorrect
After INITIALIZE'
‘Contents of TSSR Incorrect After GET STATUS'
.ASCIZ
'Expected Interrupt Not Received On INITIALIZE'
.ASCIZ
'Incorrect TSBA Address After INITIALIZE'
.ASCIZ
'Non-Tepe Motion Commands'

TSVSA

TEST

11:

HARDWARE

TESTS

MACRO M1200

23 MAR-84 09:44

PAGE

117

|
SEQ 0209

NON-TAPE MOTION COMMANDS

3440
3441
3442
3443
3444
3445
3446

:R(NTIPC TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES
s INITIALIZE COMMAND
:

T11REST:

012701

044670

100213

SAVREG
MOV
MOV

OT11PACKET ,R1
#100213,(R1).

1SAVE THE REGISTERS
1START OF THE PACKET
sINITIALIZE WITH ACK, IE

gt:

E:Bo

1ADDRESS OF MESSAGE BUFFER

CLR
CLR
CLR

CLR

(R1).
(R1).
(R1).

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

(R1)e.

tLENGTH OF MESSAGE BUFFER

T11BFR

sCLEAR 1ST LOC IN MESSAGE BUFFER

CLR
CLR

(R1).
(R1)

RTS

CLR

044712

1RETURN

tROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES
1GET STATUS COMMAND
L}
'-

T11RT2:

044670
100217

SAVREG
MOV
MOV
CLR

O®T11PACKET ,R1
#100217,(R1).
(R1)e.

CLR
CLR
CLR
CLR

(R1).
(R1).
(R1)
T11BFR

CLR
CLR
gtz

044712

RTS

ENDTST

(R1).
(R1).
g:{;o

1SAVE THE REGISTERS
1START OF THE PACKET
1GET STATUS WITH ACK, IE
1+ADDRESS OF CHAR DATA BLOCK

tEXTENDED ADDRESS
1SIZE OF DATA BLOCK IN BYTES
1ADDRESS OF MESSAGE BUFFER

iLENGTH OF MESSAGE BUFFER
sCLEAR 1ST LOC IN MESSAGE BUFFER

1RETURN

Li0102:

TRAP

CSETST

TEST

PARAMETER CODING MACRO M1200

23-MAR-84 09:44

PAGE

119

D1
SEQ 0210

11: NON-TAPE MOTION COMMANDS
1

12
18
19 045652

TSV6::

045652

.TITLE

TSVv6 - PARAMETER CODING

BGNMOD

TSVé6

.SBTTL

HARDWARE PARAMETER CODING SECTION

THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES.
THE
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.
THE
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS
WITH THE OPERATOR.

000010

LS$HARD: :

m&g.o. 160010,177776,YES

000031
045674
160010
177776

HPM1
TSLOLIM
TIHILIM

001031
045730
000000
000776

104
111
111

BGNFRD
.WORD L10107-L$HARD/2

FEEE i

TSVé

HPM2,2,0,0,776,YES
T4CODE

+GET VECTOR ADDRESS.

HPM3,4,0,340,0,7,YES

;GET INTERRUPT PRIORITY.

HPM2
TSLOLIM
TSHILIM

105

116
116

126
124
124

L10107:

HPM] :
s
HPM3:

.EVEN

.ASCIZ
.ASCIZ
.QSE'EZ
.

1GET TSBA/TSDB REGISTER ADDRESS.

'DEVICE ADDRESS (TSBA/TSDB)
'INTERRUPT VECTOR
* INTERRUPT PRIORITY
:

TSV6

- PARAMETER CODING MACRO M1200

23-MAR-84 09:44

PAGE

120

SEQ 0211

SOF TWARE PARAMETER CODING SECTION
a2

.SBTTL

43
a4
45
46
47
48
49

THE SOF TWARE PARAMETER CODING SECTION CONTAINS MACROS
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES.
THE
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE

INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.

THE

046004
046006

046010
046012

000003

MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS
WITH THE OPERATOR,
.

50
51
S5e

SOFTWARE PARAMETER CODING SECTION

LS$SOFT::

001130
046044
177777

046014
046014

046074
046124

120

111

.WORD

SPM4

GPRMD

SPM6,4,0,7777,0,7777,YES

GPRMD

L10110:

105

SPM4,2,-1,YES

. WORD

116
116
105
105

101
110
122
122

SPM1 :
SPMA ;
SPM6 :
SPM7:
i

GPRML

. WORD

046014

T
BGNSF
.WORD L10110-L$SOFT/2

ENDSFT
.EVEN

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.SBTTL

T$CODE

-1

SPM7,6.0,7777,0,7777,YES

FINALLY A GENEROUS PATCH AREA,

AND AN ADJUSTMENT TO ACCOUNT FOR THE

“LASTAD BIT7" HACK

PATCH:
:

BLKW

046400

LASTAD
.EVEN
.WORD
.WORD

046402
046404

LSLAST::

s+ GET LOCAL ERROR LIMIT
#+ GET GLOBAL ERROR LIMIT

FATCH AREA

046154

TRANSPORT TEST FLAG.

'ENABLE TRANSPORT TESTS
'INHIBIT ITERATIONS
'PER TEST ERROR LIMIT
'PER UNIT ERROR LIMIT

+ DESCRIBED IN "SUPPRG.MEM"” (FOR REV C).
046154

GET

s+ GET ITERATION CONTROL.

32
1SET LAST USED ADDRESS.
O
O

- PARAMETER CODING MACRO M1200

PAGE

F1
120-1

SEQ 0212

BIT4
=
BITS
=
B8IT6
=
BIT7
=
BIT8
=
BIT9
=
BOE
=
BRINIT
BSELO =
BSEL1 =
CHKAMB
CHKMAN
CHKTSS
CKDROP
CKEMAX
CKMSG
CKMSG2
CKRAM
CKRAM2
CMDPKT
CMPMEM
CONFIG
COUNT
CSRADD
CTAB
CTABE
CTABM

000020
000040
000100
000200
000400
001000
000400
004453
000000
000001
016034
020470
016326
017172
017072
011350
011470
011104
011214
021250
017650
017240
002306
002204
003160
003172
003160

DEBUGM
DEVCNT

011622
002216 G

F$SUB

EXPD

EXPGOT
EXPGT2
EXPMSG
EXPREC
EXTA
EXTEND
EXTFEA
ESEND ESLOAD=

005764
002224
002100
000035
FATERR= 000060
FATFLG
002220
FERCM
o11712
FIFEXP
012160
FIF1MS
012232
FIF2MS
012301
017412
FILLME
FNOINT
004211
FORCER
002174
FREE
003120
FREEHI
003124

INTFLA
INTMAS
INTR
INTREC
INTVEC
INTX
INVERT
IOKCKI=
IOKSTP=

IPRI

ISR
IVEC

IXE

F4SW
=
FS$TEST=

GDOAT
GERRMA
GETPAT

ERCM
ERRHI
ERRK
ERRLO

ERRNQ =
ERRVEC= 000004
ERTABE
ERTABL
ESUM
EVL
=
EXBCNT
EXPBRE

FSAU
=
FS$AUTO=
FSBGN =
FS$CLEA=
FSOU
=
FSEND =
F $HARD=
FIHW
=
FSINIT=
FSJMP =
F$MOD =
FIMSG =
F$PROT=
FSPWR =
FSRPT =
F$SEG =
F$SOF
T=
FSSRY =

003122
004113
000015
000020
000040
000007
000016
000041

GETSEL
GS$CNTOGS$DELM=
GS$DISP=
GS$EXCP=
GIMILIGSLOLIGINO
=
GSOFFS=
GSOFSI=
G$PRMA=
G$PRMD=
GS$PRML
=
GS$RADA=
GS$RADB=
G$RADD=

GS$RADL
=
G$RADO=
G$XFER=
GS$YES =

HIADDR=

HOE

HPM1
HPM2
HPM3

IBE
=
IDU
=
=
IER
IFAULLT
INCERK
INTCPC
016140

016135
016134
016206 G
002222 G
016136
004274
021176 G
000200
000001
002210
= 000100

(212121~

FRESIZ
FUSI

o000

(217}

023414
023333
023251
023201
023144
002154
000000
000001
016174
004637

212121~

C$ESCA=
C$ESEGCSESUB=
CSETST=
CSEXIT=
C$GETB~
CS$GETW=
CS$GMAN=
C$GPHR=
C$GPLO=
CSGPRI=
CS$INIT=
CSINLP=
CS$MANI
=
CS$MEM CS$MSG =
CS$OPEN=
CSPNTB=
=
CSPNTF
CSPNTS=
CSPNTX=
C$QIO0 =
C$RDBU=
CSREFG=
CSRESE=
CS$REVI=
CSRFLA= 000021
CIRPT = 000025
CS$SEFG= 000046
CSSPRI= 000041
CS$SVEC= 000037
C$TPRI= 000013
DATA
002310 G
DATASC
020222

DEVDRO
DEVNRD
DEVNXR
DEVONL
DEVSUM
DFPTBL
DIAGMC=
DICEA =
DSBINT
DUAD12
DUFLG
DUMMY
EF .CON=
EF .NEWEF .PWR=
EF .RES=
EF.STA=
EMAXDY
EN
ENAINT
ENVIRN
EPRTSMW
EPRT1
EPRT2

= 000004
= 000010

= 000052
000061
000022
000004
000002
000045
000062
000012
000035
000006
000036
000044
C$D0DU= 000051
CSDRPT= 000024
CsDVU
= 000053
CSEDIT- 000003
CS$ERDF
= 000055
CS$ERHR= 000056
CS$ERRO= 000060
CSERSF
= 000054
CS$ERSO= 000057

CS$AUTO=
CS$BRK =
C$BSEG=
CsBSUB=
CS$CEFG=
CSsCLCK=
CSCLEACsCLOSCsCLP1~
CSCVECCSDCLN=

BIT14 = 040000
BIT1S = 100000

CSAU

21~

BIT12 = 010000
BIT13 = 020000

OO0

003152
015670
177520
002226
040000
000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
000002
002000
004000

OO0O0

BADDAT
BADSSR
BDVPCR=
BENBSW
BIE
=
BITO
=
BITO0 =
BITO1 =
BIT02 =
BITO3 =
BIT04 =
BITOS =
8IT06 =
BITO7 =
BITO8 =
BIT09 =
BIT1
=
BIT10 =
B8IT11 =

OOOOOOOOOOOOOOOOOOOO

AMBTSS
006631
ASSEMB= 000010
A1716 = 000003

ADDSSR
012116
ADR
= 000020

BIT2
BIT3S

23-MAR-84 09:44

TABLE

[212121214)

SYMBOL

(21312 1~1]

TSV6

ISAU
=
IS$AUTO=
ISCLN =
IOV
=
ISHRD =
IS$INIT=
I$MOD =
ISMSG =
IS$PROT=
ISPTAB=
ISPUR =
ISRPT =
I$SEG =
IS$SETU=
ISSFT
I$SRv
IsSUB
ISTST
JJMP
KIPARO=

KIPAR1=
KIPAR2=
KIPAR3=
KIPAR4
=
KIPARS=
KIPARG6=
KIPAR7=
KIPDRO=
KIPDR1=
KIPDR2=
KIPDR3=
KIPDR4
=
KIPDRS=
KIPDR6=
KIPOR7=
KTENAB
KTFLG
KTINIT
KTOFF
KTON

LERRMA
LISTAL=
LOE
=

LOOPCN

002214 G

- PARAMETER CODING MACRO M1200

L10073
L10074
L10075
L10076
L10077
L10100
L10101
L10102
L10103
L10104
L10105
L10106
L10107
L10110
MEMADD

MEMCK

037026
037232
043512
041012
041404
042274
042522
045650
043760
044216
044436
044662
045674
046014
013744

MENASC
MENERR

016236
022320
022464
022572
022652
022700
023142
023702
023550
023632

(21212121~

010352
010415
007736
000100
000140
000200

010054
007364 G
010062
010270

002166
020524
005454
000200
000040
000100
000020
004146
004403
NUL
004523
NULCR
004524
= 004000
NXM
NXMFLG
003132
NXMHI
003136
NXMLO
003134
NXMTST
021442

015413
015112
002000
010154
010224

RAMFOR
RAMSIZ
RAMTAD
RCVHIA
RCVLOA
RDERR
RECMSG

0000

024400
025072
026426
025334
025634
026132
027532
027000
027350
031002
030062
030406
034370
031334
031620
032064
032312
032556
033116
035274
040410
035536
035776
036202
036370
036574

(2]~

14 1A T2 1212 [ [ 17 12 1212 1 7]

L10003
L10004
L10005
L10006
L10007
L10010
L10011
L10012
L10013
L10014
L10015
L10016
L10017
L10020
L10021
L10022
L10023
L10024
L10025
L10026
L10030
L10031
L10032
L10033
L10034
L10035
L10036
L10037
L10040
L10041
L10042
L10043
L10044
L10045
L10046
L10047

002174
005762
012034
012052
012070
012076
012114
012132
012156
012230
012400
013114
013742
013764
015470
015476
015504
015516
015540
015566
015726

L$MREV
L $NAME
L$PRIO
L$PROT
L$PRT
L $REPP
L$REY
L$RPT
L$SOFT
L$SPC
L$SPCP
L$SPTP
L$STA
L$SW
L$TEST
LSTIML
LSUNIT
L10000

L10001
L10002

(2]7]

L$LOAD
LSLUN

21212121~
1~)

LSINIT
LSLADP
LSLAST

120-2

[21212]7]

LSETP
LSEXP1
LSEXP4
LSEXPS
L $HARD
L$HIME
L$HPCP
LSHPTP
LS$HW
LS$ICP

PAGE

(2121~

LSENVI

L$AUTO

LsCCP
LSCLEA
L$CO
L$DEPO
LSDESC
LSDESP
LSDEVP
LSDISP
Ls$DLY
L$DTP
LSDTYP
LSOV
LSDUT
LSDVTY
LS$EF

TaT AT [

013116
003156
000010
002110
002036
022370
002070
022574
002106
022654
002032
002011
003404
002076

LOOPCO
LOOPFL
LoT
L$ACP
LSAPT
L$AV
L$AUT

23-MAR-84 09:44

SEQ 0213

Ia AT I Ia T T2l 12 Ia T A a2 1 I

TABLE

[

SYMBOL

1212121212112 1q 121121l ]2l

TSV6

- PARAMETER CODING MACRO M1200

23-MAR-84 09:44

PAGE

H1
120-3

SEQ 0214

SYMBOL TABLE
TST6ID
TST7ID
TST8ID
TST9ID
TSve
TSV3
TSv4
TSVS
TSV6
TTIBFR=
TTICSR=

S1.IHE-

S1.IIDS1.I1R=
S1.I2R=
S1.PAR=
S2.ATI=
S2.8TI=
S2.DIMS2.ILu=
S2.INR=

TTIVEC=

T$ARGC=
T$CODE
=
TSERRN=
TSEXCP=
T$FLAG=
T$GMAN=
TSHILITSLAST=

TSLOLI=

006672
003112
003114
000016
000013
006431
006533
015542
015570
TINERR
012011
TMPBFR
002630
TNAM
016674
TRANST
002164
TSBA
= 000000
TSBAH = 000001
TSBAM2
026242
TSBAM3
026324
000000
000001
007232
000006
006602
000002
003476
006411
000003
TSSX
004014
TSTBLK
002750
TSTCONT
002212
TSTEND
016710
TSTFLA
002312
TSTLOO
016446
TSTPTR
002314
TSTSET
016500
TST1ID
023662
TST10I
043337
TST11I
045512
TST2ID
024352
TST3ID
025045
TST4ID
026404
TSTSID
027402

TBLEND=
TCOASC
TCOCOD
TEMPL
TEMP2
TERCLS=
TESTNO=
TEXASC
TFCASC
TIMEXP
TIMSGO

2]~

S2.0UT=
S2.UND=

030763
034273
035257
040311
002000
002174
021536
023464
045652
177562
177560

TSLSYM=
TSLTNO=
TSNEST=
TENSO =
TENS]1 =
TENS2 =
TINSS =
TSPTNU=
T$SAVL
=
T$SEGL
=
T$SEKO=
T$SUBN=
T$TAGL
=
T$TAGN=
TS$TEMP= 000000
TS$TEST=
T$TSTM=
T$TSTS=

T$SAY =
T$SAUT»
T$$CLE=
T80V =
T$$HAR=
TSSHW =
T$$INI=
T$$MSG=
T$$PRO=
T$SRPT=
T$$SEG=
T$$SOF
=
T$$SRV=
T$8SUB=
T$$SW =
T$$TES=
T1
TiLOOP
023502

T1.1

G
G
G
G
G
G
G

T1.2
T10
T108FR

T10BUF
T100AT
T10D0TA
T10INT
T10L00
T10MBF
T10NBA
T1ONIN
T10NNB
T10PAC
T10PKT
T10RST
T10RT2
T10SSR
T10.1
710.2
710.3
710.4
T11
T11BFR
T11BF2
T11DAT
T11D0TA
T11L00
T11NBA
T11NIN
T11PAC
T11PK2
T11RES
T11RT2
T11SR2
T11SSR
T117S8
T11.1
T11.2
T11.3
T11.4
T112RE
T113RE
T114RE
T2
T2L00P
T2SSR
T2TSBA
T2TSSR
T23A
1238
T3
T38FLG
T3L00P
T3SSR
T3TSBA
T3TSSR

023504
023564
040412 G
042552
042614
042540
042602
043250
040430
042634
042731
043157
043013
042530
042572
043366
043440
043070
040430
041014
041406
042276

043514
044712
044762
044700
044750
043532
045002
045364
044670
044740
045544
045606
045310
045234
045442
043532
043774
044220
044440
045042
045123
045153
023704
023722
024300
024166
024233
003140
003142
024402
003144
024420
024774
024664
024730

1212121

S1.IEO=
S1.IFM=

00O

sC
SCE
o
SCHERR
SCME
SDELAY
SELASC
SELDAT=
SEL2
=
SETMAP
SETU
SFFMSG
SFHERR
SFIERR
SFIMSG
SFPTBL
SIFLAG
SIMSG
SKIPT

(21~17]

RMCHBE
=
RMCHEN=
RMMSGB
=
RMMSGE
=
RMPKTB=
RMPKTE
=
RMR
=
RWPACK

002232 G
020130
005366
011004 G
000167
000200
000215
000234
000201

RECV
REGSAV
RETERR
REWIND

T4L0OP
T74.1
74.2

025074 G
025114
025074

74.3

TSADDR
TSLOOP
TSMEM
75.1
15.2
T6INT
T6L00P
TE6NBA
TENINT
T6PACK
T6SSR
T6TSBA
76.1
76.2
T7
T78FR
T7DATA
T7INT
T7L00P
T7NBA
T7NINT
T7PACK
T7REST
T7SP
T7SSR
T7TSBA
17.1
17.2
77.3
17.4
17.5
17.6
T720AT
T7200N=
T72NBA
T72REJ
T73REJ
T74REJ
T7SREJ
T8BFR
T8DATA
T8LO0P
T8NVCK
T8PACK
T8SSR
T8VCK
T98FR
T9DATA

033741
034210
031022
031350
031622
032066
032314
032560
033206
033222
033222
033353
033452
033545
033643
034372 G
035022
035010
034410
035077
035000
035170
035042
035276
037262
037250

TSv6

- PARAMETER CODING MACRO M1200

23-MAR-84 09:44

PAGE

120-4

11
SEQ 0215

SYMBOL TABLE

ABS.

WAI TF

.IFA=
.IFE=

040226
035320
035566

046404
000000
ERRORS DETECTED:

.IRE=

. IRW=
.I0T=

JI1T=
.ISR=
.IED=
.IER=
.IHI=
.IRE=
=
IWF
. IWR=
.I3R=
.I4R=

010652 G
005107
005052
021260 G
015730
XNXM
016366
XORBFO
007670
XORFOR
010006
XST0
000006
XST1
000010
XST2
000012
XST3
c.wla
XST4
200016
XS0BOT* 000002
XSOEQT= 000001
XSOIE = 000040
XSOILA= 000400
XSOILC= 001000
XSOLET= 020000
XSOMOT
= 000200
= 002000
XSONEF

WRTCHR
WRTERR
WRTMSG
WSMBK
XFERAS

(2121~ 1~1~}

UAM
UNI TN
UNREC =
USI

040137
035320
037316
040046
037240
040336
037757

RRRSSNRS5555558558

TOINT
T9LOOP
TONBA
TONINT
T9PACK
TOREST
T9SSR
T9TSBA
19.1
19.2
19.3
19.4
19.5
19.6
19.7
T92DAT
T92D0N=
T92REJ
T93REJ
T94REJ
T9SREJ

000
001
0

VIRTUAL MEMORY USED:
28880 WORDS
( 113 PAGES)
DYNAMIC MEMORY:
( 77 PAGES)
20060 WORDS
ELAPSED TIME:
00:37:00

CNTSAAO0.BIC,CNTSAARO.SEQ/-SP=SVC34/ML,
TSV1A,TSV22A, TSV3A,TSV4, TSYSA, TSVE
»

XSOONL
=
XSOPED=
XSORLL
=
XSORLS=
XSOTMK=
XSOVCKe
XSOWLE=
XSOWLK=
XXCOMM
X$ALWA=
X$FALS=
X$OFFSe=
X$TRUE=
X1.COR=
X1.0LT= 1
X1.M8Z=
X1.RBP=
X1.SPA=
X1.UNC=
X2.BUF
=

LEXT=

.RCE=
.REV=
.UNI=
=
+WCF
.MBZ= 000006
.MDE=
.OPI=
.REV=
.RIB=
.SPA=
=
.TRF
+HSP=
.MBZ=
.RCE=
. TSM=
.WRC=