Digital PDFs

AH-T111A-MC

2000

Number of pages unknown

Original

156MB

view download

OCR Version

202MB

view download

Document:	CZRNDA0 RM80 FCTNL TEST PT 1 AH-T111A-MC JUL 1982 bw
Order Number:	AH-T111A-MC
Revision:	000
Pages:	Unknown
Original Filename:	http://bitsavers.org/pdf/dec/pdp11/microfiche/Diagnostic_Program_Listings/Listings/CZRNDA0__RM80__FCTNL_TEST_PT_1__AH-T111A-MC__JUL_1982_gray.pdf

OCR Text

RHBO

FOTN RNBRo | |

Pcne

'3 or p i
HIEHIEL

-REM

SEQ 0001

b e

e e

NI VNS NN = OO

VIS WA -

CZRNDAO RMBO FCTNL PT1 MACRO V04.CO 28-JAN-82 16:24:51 PAGE 1

VIS

UWN =0V

NOWVIS NN = OV

b e

IDENTIFICATION

PRODUCT CODE:

AC-T110A-MC

PRODUCT NAME:

CZRNDAO

PRODUCT DATE:

APRIL 1, 1982

MAINTAINER:

CX DIAGNOSTIC GROUP

AUTHOR:

MIKE LEAVITT

RMB0 FCTNL TEST PT 1

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE AND

SHOULD = NOT
CORPORATION.

BE _ CONSTRUED AS A COMMITMENT BY
DIGITAL EQUIPMENT CORPORATION ASSUMES

FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL.

DIGITAL EQUIPMENT
NO RESPONSIBILITY

e
Wh=O

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A LICENSE AND
MAY ONLY BE USED OR COPIEL IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
DIGITAL EQUIPMENT
g?%{fi{“" OF ITS

CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY

SEQ@ 0002
CONTENTS

INTRODUCTION
1.
2.

OPERATING REQUIREMENTS
1.

2.
5.
3.

ABSTRACT
UNIT UNDER TEST

HARDWARE REQUIREMENTS

MEDIA REQUIREMENTS
PREREQUISITE DIAGNOSTIC PROGRAMS

OPERATING PROCEDURE
1.

HALTING

2.
3.

SWITCH OPTIONS
STARTING

RESTARTING

OPERATOR INTERFACE
1.
g.
.
4.

PROGRAM I.D.
CONSCLE DIALOGUE
PROGRESS REPORTS
PERFORMANCE REPORTS

EXECUTION TIME

5.
6.

PROGRAM HALTS
ERROR REPORTS

NN =

5.. ENVIRONMENTAL SUPPORT
PROCESSOR COMPATIBILITY

NON

AN
NI
S NGNS
= Na =2 O 000 NGNS WIN) —
VB NN
= O 0B N
VRN =000

CZRNDAQ RM80 FCTNL PT1 MACRC V04.00 28-JAN-82 16:24:51 PAGE 2

# APT CWATIDILITY

DUAL PORT CONF IGURATIONS
MEMORY PARITY HARDWARE
m MANAGEMENT HARDWARE
COMPATIBILITY
OPERATING SYSTEM COMPATIBILITY

TEST DESCRIPTION

b e

VISR
- oawouaw-&g OO NN

) = md )

)

NN = OO0~V
NN -

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 3
1.0

INTRODUCTION

1.1

ABSTRACT

SEQ 0003

THE RMB0 SUBSYSTEM FUNCTIONAL TEST IS A STAND ALONE PROGRAM WHICH
USES FUNCTIONAL MEANS TO_VERIFY THE OPERABILITY OF THE RM80 DISK
SUBSYSTEM.
IN PARTICULAR, THE PROGRAM SERVES THE FOLLOWING PURPOSES:
TO EXPLICITLY ESTABLISH CONFIDENCE IN THE BASIC OPERATIONS OF THE
%gfin "P'RéVE.
INCLUDING MECHANICAL POSITIONING AND DATA TRANSFER
TO

IMPLICITLY

ELECTRICAL INTERFACE:

ESTABLISH

CONFIDENCE

THE

DRIVE/ADAPTER

TO VERIFY THE FUNCTIONALITY OF THE RM80 SUBSYSTEM, INCLUDING
MASSBUS CONTROLLER, MASSBUS ADAPTER AND THE DISK DRIVE.
THE TEST IS COMPRISED OF 4 PARTS,

WHICH WOULD NORMALLY BE RUN

THE
IN

SEQUENCE, STARTING WITH PART 1. BRIEFLY, PART 1 TESTS HOUSEKEEPING
AND MECHANICAL POSITIONING OPERATIONS; PART 2 TESTS WRITE, READ AND
WRITE CHECK OPERATIONS USING HEADER AND DATA; PART 3 TESTS WRITE,
READ AND WRITE CHECK OPERATIONS USING DATA; PART & TESTS MECHANICAL
;gmmmue OPERATIONS AND VARIOUS TIMING PARAMETERS OF THE

1.2

RM80 DISK

UNIT UNDER TEST

THE UNIT UNDER TEST (UUT)
IS THE RMB0 DISK SUBSYSTEM WHICH
CONSISTS OF THE RH/70 MASSBUS VQMTROLLER
THE RMBO MASSBUS ADAPTER,

AND THE STORAGE MODULE DISK DRIVE.
sg?VETESTING

2.0

OPERATING REQUIREMENTS

2.1

HARDWARE REQUIREMENTS
THE FOLLOWING

%@?IIM*ES%S

MINIMUM

REQUIRED

PDP-11 PROCESSOR

20K _MEMORY

KW11=-L OR KW11-P CLOCK
PROGRAM LOADING DEVICE
TERMINAL
:

RH70 CONTROLLER
1 TO 8 RMB0 DISK DRIVES

2.2

NOTE THAT A DISK PACK IS REQUIRED

AND IS CONSIDERED AN INTEGRAL OF THE STORAGE MODULE DISK

MEDIA REQUIREMENTS

HARDWARE

LOAD

CONFIGURATION,

AND

EXECUTE

ASSUMED

THE RMBO SUBSYSTEM

CZRNDAO RM8O FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 3-1

BEGINS

2.3

93
%

3.0 OPERATING PROCEDURE
3.1 LOADING

SRED2SIIN
BRYRVRRS 28T

SEQ 0004

EACH UNIT BEING TESTED MUST BE LOADED WITH A DISK BEFORE TESTING

;l;

'
:

THAT

UNIT. THE DISK MAY BE FORMATTED OR UNFORMATTED.

PREREQUISITE DIAGNOSTIC PROGRAMS

RMBO DISKLESS TEST, PART 1 & 2

THE PROGRAM MAY BE LOADED BY EITHER OF THE FOLLOWING MEDIA:
.PAPER TAPE, USING THE STANDARD PAPER TAPE LOADING PROCEDURE.
.XXDP MEDIA, USING THE APPROPRIATE LOADING DEVICE.

3.2

SWITCH OPTIONS

THE FOLLOWING SWITCH OPTIONS ARE PROVIDED TO ENHANCE THE
OF THE PROGRAM.

Sw15

HALT ON ERROR

swi1
SW10
SW09
SW08

UNUSED
INHIBIT TEST ITERATIONS
BELL ON ERROR
LOOP ON ERROR
LOOP ON TEST IN SW07-00

SWwi4
sw13

UTILITY

LOOP ON TEST (CURRENTLY BEING EXECUTED)
INHIBIT ERROR TYPEOUTS

THE LOW ORDER 8 SWITCHES (SW07-SW00), ARE USED IN CONJUNCTION WITH
SWO8 TO SPECIFY THE OCTAL NUMBER OF THE TEST WHICH THE PROGRAM WILL
LOOP ON.

}gg
1i

3.3 STARTING
THE PROGRAM MAY BE STARTED AT LOCATION 200 OR 204. STARTING AT

emmm

1
110
w

3.4

11%

BY PRESSING THE HALT SWITCH ON THE PROCESSOR FRONT PANEL.

1
105

}

11§

zoo

WILL BE THE NORMAL STARTING ADDRESS. STARTING AT 204 WILL ENABLE
RH/RM BASE ADDRESS TO BE CHANGED.
IF RUNNING IN A STAND~ALONE
THE PROGRAM USES CONSOLE

TO CONTROL fssr CONDITIONS.

DIALOGUE TO

ALLOW THE OPERATOR

HALTING

THE PROGRAM CAN BE HALTED BY TYPING CONTROL C FROM THE CONSOLE OR

CZRNDAO RM80 FCTNL PT1 MACPD V04.00 28-JAN-82 16:24:51 PAGE 3-2
115
119
1

3.5

SEQ 0005

RESTARTING
THE PROGRAM CAN BE RESTARTED AT ADDRESS 200 OR 204. (SEE SECTION 3.3)

4.0

OPERATOR INTERFACE

4.1

PROGRAM ID

THE PROGRAM TYPES ITS TITLE AND MAINDEC NUMBER THE FIRST TIME IT
IS _STARTED AFTER BEING LOADED. PROGRAM IDENTIFICATION DOES NOT OCCUR
IF THE PROGRAM IS RESTARTED.

4.2

CONSOLE DIALOGUE

WHEN THE PROGRAM IS RUNNING IN STAND

ALONE

MODE,

CONSOLE DIALOGUE SEQNENCE AFTER TYPING THE PROGRAM I.D..

" IF

ENTERS A

THE FIRST QUESTION TYPED OUT IS: °‘‘TYPE HELP TEXT (L) N 2.
_THE OPERATOR RESPONDS WITH A ‘‘Y'’, THE PROGRAM WILL TYPE A BRIEF

HELP MESSAGE WHICH WILL LIST SWITCH OPTIONS, ETC. ANY OTHER RESPONSE

TO THE QUESTION IS CONSIDERED A 'N'‘' AND NO HELP TEXT IS TYPED. THIS
QUESTION IS_ONLY ASKED ON THE INITIAL PROGRAM START AND NOT ON

SUBSEQUENT START-UP'S.

ON_THE PROGRAM INITIAL START AND WHEN RESTARTING AT LOCATION 204,

THE OPERATOR MAY CHANGE THE RH/RM BASE ADDRESSES WITH THE FOLLOWING
DIALOGUE.

EXAMPLE 1
RMCS1=176700 <CR>
RAVEC=000254 <CR>

:NO CHANGE IN ADDRESS
NO CHANGE IN ADDRESS

wvilun

EXAMPLE 2
RMCS1=176700
177200<CR> ;CHANGE BASE ADDRESS T0 177200
RMVEC=000254 260<CR>
sCHANGE VECTOR ADDRESS TO 260
THE NEXT QUESTION ASKED IS ‘DO YOU WANT MANUAL INTERVENTION
TESTS (L) N ?°.
IF THE OPERATOR ANSWERED WITH A 'Y' RESPONSE, UPON
ENTERING A MANUAL INTERVENTION TEST,
THE PROGRAM WILL ASK THE

OPERATOR TO PERFORM CERTAIN FUNCTIONS TO THE DRIVE. THERE

IS ONLY ONE

WILL BE NO MANUAL INTERVENTION IN
RESPONSE WITH A CARRIAGE RETURN.

TERMINATE

MANUAL INTERVENTION TEST IN THIS PROGRAM. (SEE SECTION 6.0, TEST #2)
ANY OTHER RESPONSE TO THE QUESTION IS CONSIDERED TO BE °N' AND THERE

—

}

SSO%W&W..O

THE

PROGRAM OPERATION.

ON THE INITIAL START, THE NEXT QUESTION TYPED IS, °TYPE “A’ TO
TEST ALL DRIVES, OR TYPE DRIVE NUMBER(S) _AND TERMINATE _INPUT WITH

A CARRIAGE RETURN®.

THEN, ‘DRIVE(S):®

IS TYPED

AND

WAITS

FOR THE

|
CZRNDAO RMB0 FCTNL PT1 MACRO v04.00 28-JAN-82 16:24:51 PAGE 3-3

SEQ 0006

OPERATOR TO

1
1

"'CARRIAGE RETURN''. NOCOMMAS OR ANY OTHER SEPARATORS ARE NEEDED WHEN
ENTERING Tlfi DRIVE NUMBERS AS A STRING. THE PROGRAM ENTERS THE COMMA
SEPARTOR AUTOMATICALLY AFTER TYPING EACH NUMBER. ON ALL SUBSEQUENT
STARTS, ONLY THE °DRIVE(S):' PROMPT IS TYPED.

1
1
1
1

1
1

1
1
1

ALL POSSIBLE DRIVES

OR TYPE

ANY

'UNIT STATUS:

RM80
ONLINE
LOAD DEVICE
OFFLINE _RM80

NOT PRESENT

NOT AN RMB0
NOT PRESENT

NOT PRESENT'

THE ABOVE UNIT STATUS SHOWS THAT DRIVE 0 WILL BE TESTED, WHILE DRIVES

1 = 7 WILL NOT BE TESTED.

THE DIAGNOSTIC THEN TYPES THE FOLLOWING MESSAGE, BASED ON THE STATUS
OF THE DRIVE:

'DRIVE(S) TO BE TESTED, 0'

IF NO DRIVES ARE AVAII.ABLE FOR TESUNG THE FOLLOWING MESSAGE WILL BE

TYPED TO THE OPERATOR

'DRIVE(S) TO BE TESTED, NONE'

THE PROGRAM WILL THEN,

EITHER START TESTING THE DRIVES AVAILABLE FOR

TESTING OR RETURN TO THE BEGINNING OF THE PROGRAM AND WAIT.
D d md

TO TEST

THE DIAGNOSTIC THEN INITIALIZES AND REPORTS THE STATUS OF THE
DRIVES WHICH WHERE PREVIOUSLY SPECIFIED FOR TESTING. THE FOLLOWING
IS AN EXAMPLE PRINTOUT:

ONCE THE DRIVES START TESTING, THE FOLLOWING MESSAGE WILL OCCUR
AS EACH DRIVE BEGINS TO BE TESTED:

'DRIVE 0°

b wmd

N NSO

b ced cmd cmd

VIS
LI = OO

1
1
1
1
1
1

TYPE AN "'A',

STRING OF DRIVE mn(si TO BE TESTED AND TERMINATE THE INPUT WITH A

SNOWVS WO

SR R RS 2 S BRI R ARSI I NN

AFTER -ALL THE DRIVES ARE CWLET LY TESTED, THE END OF PASS

MESSAGE WILL BE TYPED (SEE SECTION 4.3) AND THE PROGRAM WILL START

TESTING ALL THE DRIVES AGAIN. THIS WILL CONTINUE UNTIL THE PROGRAM
IS HALTED BY THE OPERATOR.

NOTE:

4.3

THE LETTER LOCATED WITHIN THE BRACKETS () INDICATES THE TYPE
8{&%&?‘85 REQUIRED BY THE USER, D=DECIMAL, O0=0CTAL AND

PROGRESS REPORTS

AN END OF PASS REPORT OCCURS EACH TIME THE

PROGRAM

EXECUTED

FOR ALL DEVICES IN THE TEST QUE. THE END OF PASS REPORT IS AS FOLLOWS.

SEQ 0007

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 3-4
2

'END OF PASS

THE FOLLOWING MESSAGE WILL ALSO
THE LAST END OF PASS REPORT.

OCCUR IF THERE WERE ERRORS SINCE

'TOTAL ERRORS SINCE LAST REPORT
4.4

PERFORMANCE REPORT

b St et S R RV POR AR

A S

S Sr

ST ST XV S

NO PERFORMANCE REPORTS ARE GIVEN

4.5

DURING

THE

EXECUTION

THE

PROGRAM HALTS

THERE ARE NO SCHEDULED HALTS DURING THE EXECUTION OF THE PROGRAM.
PROCESSOR HALTS ARE DUE TO THE TRAP CATCHER.

4.6

ERROR REPORTS
THE FIRST LINE OF THE ERROR REPORT CONTAINS

UNIT (DRIVE) BEING TESTED,

THE DRIVE TYPE,

THE

NUMBER

THE

THE TEST NUMBER, THE ERROR

NUMBER AND THE VALUE OF THE PROGRAM COUNTER WHERE THE ERROR WAS CALLED.
THIS LINE IS FOLLOWED BY THE ERROR ESSAGE ONE OR MORE LINES OF TEXT
WHICH GIVE A BRIEF, YET cmnsxvs DESCRIPTION OF THE ERROR.
THE
ERROR MESSAGE IS NORMALLY FOLLOWED BY ONE OR MORE PAIRS OF LINES

CONTAINING DATA HEADERS AND DATA PERTININENT TO
EXPECTED AND ACTUAL TEST RESULTS.

THE ERROR,

INCLUDING

THE FOLLOWING PRINTOUT SHOWS A TYPICAL ERROR MESSAGE FOR THIS PROGRAM:

MASSBUS
DAéus
MIN%HJTE
040780

4.7

;mfis“ (RMCS2, BIT 8) DETECTED

DRVA 0 -

TES" 16 Em

177403
000010

26,

PC=016654

RMDC

000000
RMECT

EXECUTION TIME

ASS 1 OF THE PROGRAM TAKES ABOUT 20 SECONDS.

SlBSEOUENT PASSES TAKE 2.3 MINUTES.
5.0

RMEC2

e 01
000000 004066 000000
RMDT
011777 024026 1m7;';77

ENVIRONMENTAL SUPPORT

PASS 2 AND

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 3-5
5.1

SEQ 0008

PROCESSOR COMPATIBILITY

THE RMB0 SUBSYSTEM FUNCTIONAL TEST IS EXECUTABLE ON A PDP-11/70
PROCESSM
PROVID NG PREVIOUSLY MENTIONED HARDWARE REQUIREMENTS ARE

AND PROVIDING THAT DATA THROUGHPUT ON THE SYSTEM IS SUFFICIENT TO

susfluu DATA mnsren OPERATIONS.
5.2

DUAL PORT CONFIGURATIONS

THE RMB0 SUBSYSTEM FUNCTIONAL TEST DOES NOT SPECIFICALLY TEST
DUAL PORT LOGIC IN THE RMBO ADAPTER BUT IS EXECUTABLE ON RM80
SUBSYSTEMS HAVING THE DUAL PORT OPTION PROVIDING THE DUAL PORT SWITCH
IS SET TO THE APPROPRIATE PORT (A OR B).

5.3

MEMORY PARITY HARDWARE

MEMORY PARITY HARDWARE IS NOT USED DURING THE
RMB0 SUSBYSTEM FUNCTIONAL TEST.

5.4

EXECUTION

THE

MEMORY MANAGEMENT HARDWARE

MEMORY MANAGEMENT HARDWARE IS NOT USED DURING THE RMBO

FUNCTIONAL TEST.

5.5

SUSBYSTEM

ACT11, APT11 COMPATIBILITY

THE RMB0 SIBYSTEH FUNCTIONAL TEST IS COMPATIBLE WITH ACT11 AND
APT11_IN BOTH DUMP AND AUTOMATIC MODES. FURTHER,
THE PROGRAM WILL

'E*X’EgUTE A QUICK PASS DURING THE FIRST PASS IN SUPPORT OF QUICK VERIFY

5.6

XXDP COMPATIBILITY

THE RM80 SUSBYSTEM FUNCTIONAL TEST IS COMPATIBLE WITH XXDP_IN
DUMP AND CHAIN MODES, AND PROVIDES MEDIA PROTECTIW IN THE CASE WHERE

THE RMB0 IS THE XXDP LOADING DEVICE.
5.7

OPERATING SYSTEM COMPATIBILITY
THE PROGRAM IS NOT COMPATIBLE WITH ANY SOF TWARE OPERATING SYSTEM.

6.0

TEST DESCRIPTION

TEST 1

SEQ@ 0009

CONTROLLER ACCESS TEST

AV Sr A

THE TEST, AND THE TEST FAILS IF A
REGISTER TRANSFER.

4o‘~ouEL‘

PROCEDURE :

=00

TO VERIFY THAT THE UNIBUS ADDRESS OF THE RMBO
CORRECT, AS DEFINED AT LOCATION $BASE.

PURPOSE:

AV IV
AVVAV, IV, (V.1

SECESES

CZRNDAO RM8O FCTNL PT1 MACRO V04.00 28-JAN-B2 16:24:51 PAGE 3-6

USING

ALONE

THE TEST TRIES TO ACCESS ALL

THE

SBASE

ADDRESS.

MASSBUS

SUBSYSTEM

CONTROLLER

REGISTERS

TIMEOUT

OCCURS

FOR

ANY

IF _THE TEST FAILS AND THE PROGRAM IS RUNNING IN A STAND
ENVIRONMENT,
I1.E., LOCATION 42 IS O, THE PROGRAM WILL JUMP

TO LOCATION 204 UfliCH ALLOWS THE OPERATOR TO CHANGE THE SBASE

ADDRESS VIA CONSOLE DIALOGUE.
THE END OF PASS HANDLER.

TEST 2

OTHERWISE, THE PROGRAM ESCAPES TO

LOGICAL ADDRESS PLUG TEST (OPTIONAL, SEE SECTION 4.2)

PURPOSE:

TO VERIFY THAT ALL LOGICAL ADDRESS PLUGS(0=7)
EACH DEVICE UNDER TEST.

FUNCTION IN

PROCEDURE:

THIS TEST SELECTS EACH UNIT BY INSERTING ADDRESS PLUGS 0-7
INTO EACH DEVICE BEING TESTED AND READS RMER2 TO VERIFY THAT
"OPE'’" IS SET. A MASSBUS CLEAR IS ISSUED AND RMER2 IS READ 10
VERIFY THAT 'OPE'’' IS CLEAR. THE CONTROL STATUS REGISTERS1 AND 2

ARE READ
?Wmcs E

TEST 3

TO VERIFY THAT THE CORRECT UNIT WAS S§LEC].ED AND IS
FOR TESTING,
'DVA' IS SET IN RMCST AND °NED'* IS CLEAR

UNIBUS INITIALIZE TEST

:
PURPOSE

TO _VERIFY THAT ALL APPLICABLE
INITIALIZED BY THE RESET INSTRUCTION.
PROCEDURE :

SUBSYSTEM

REGISTERS

ARE

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 3-7

SEQ 0010

NONZERO VALUES ARE WRITTEN IN EACH APPLICABLE REGISTER.
A
RESET INSTRUCTION IS EXECUTED, AND THE REGISTERS ARE TESTED TO
INSURE THEY WERE INITIALIZED.
THIS TEST IS DONE ONCE BECAUSE OF
APT COMPATIBILITY REQUIREMENTS.

THE FOLLOWING REGISTERS ARE
OCCURS

PRESET

BEFORE

THE

INITIALIZE

RMCS1 - 003577

RMBA - 777776
RMCS2 - 021037

RMER1 - 777777
RMER2 = 777777
RMMR = 040001
IN ADDITION,

THE DATA BUFFER IS USED TO FORCE DLT,TRE.SC

TO A ONE AND TO FORCE IR TO A ZERO.

AND

TEST

uflg“%

Y T
TN
N VNV
VNN
RRNIRN b ol d e d oD mnd cmed d
VIS W = O VRN NS NN =

410

CONTROLLER CLEAR TEST

PURPOSE:
TO

_VERIFY

THAT

APPLICABLE

SUBSYSTEM

INITIALIZED BY A "CONTROLLER CLEAR'' OPERATION.

REGISTERS

ARE

PROCEDURE :

LIKE THE UNIBUS INITIALIZE TEST, THIS TEST_ WRITES NONZERO
VALUES IN THOSE REGISTERS WHICH ARE INITIALIZED BY CONTROLLER
CLEAR.
THE SUBSYSTEM IS THEN CLEARED USING A CONTROLLER CLEAR,
5 OF CONTROL STATUS REGISTER 2 (RMCS2), AND EACH

TEST 5

ERROR CLEAR TEST

PURPOSE:

TO VERIFY THAT ALL APPLI CABLE RH70 MASSBUS CONTROLLER STATUS
AND ERROR CONDITIONS ARE INIT IALIZED BY AN ERROR CLEAR OPERATION.
PROCEDURE :

AN ‘RH70 ERROR CLEAR'® OPERATION, I. E. WRITING A ONE IN TRE,
BIT 14 OF RMCST WILL CLEAR THE FOLLOWING sfaTus BITS:

—

SEQ@ 0011

.TRE, BIT 14 OF RMCS1

INIITERREREREET

CZRNDAO RM8O FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 3-8

.MCPE, BIT 13 OF RMCS1 - READ ONLY
.DLT, BIT 15 OF RMCS2 - READ ONLY
.WCE, BIT 14 OF RMCS2 = READ ONLY
.UPE, BIT 13 OF RMCS2

.NED, BIT 12 OF RMCS2 = READ ONLY

‘4'7?
2

.MXF, BIT 09 OF RMCS2

.PGE, BIT 10 OF RMCS2 - READ ONLY

.MDPE, BIT 08 OF RMCS2 = READ ONLY

ms TEST SETS UPE AND MXF STATUS BITS,

2;3

THEN SETS TRE

(ERROR

CLEAR) AND VERIFIES THAT ALL THE ABOVE STATUS BITS ARE CLEARED.

481

TEST 6

DRIVE STATUS TEST

PURPOSE :

TO VERIFY THAT THE STORAGE MODULE oxsx DRIVE IS IN

THAT PERMITS FURTHER TESTING.

PROCEDURE :

2315.

SELECTED DEVICE FOR THE FOLLOWING CONDITIONS:

499

ASSERTED
évme DRIVE;

A WRITE Péomr STATE;

49§

T 12 OF RMDS

JWRL,

BIT

WN=O

=1,

INDICATING

THAT

UNIT

RMER2

=0,

INDICATING

.UNS, BIT 14 OF RMER1 SHOULD EQUAL DVC,

DRIVE

OTHERWISE

IS LOW OR'A FAILURE HAS OCCURRED WITH UNSAFE STATUS.

TEST 7

READY

BIT 11 OF RMDS =0, INDICATING THAT THE DRIVE IS NOT IN

umsssnrei BY THE DRIVE:

STATE

THIS TEST INITIALIZES THE MASSBUS AND EXAMINES STATUS OF THE

;
5

PRIMARY/SECONDARY ERROR TEST

FAULT
AC

POWER

iV
i

VIS W) -

VIS
S B DB DB

PURPOSE :

TO VERIFY THAT THE RM8B0
INCURRING UNEXPECTED ERRORS.

CAN

EXECUTE

COMMAND

WITHOUT

PROCEDURE:

THE TEST EXECUTES A PACK ACKNOWLEDGE COMMAND AND MAKES SURE
THAT GC RESETS AND THAT THERE ARE NO PARITY ERRORS, ETC.
VOLUME
VALID STATUS IS IGNORED.

PURPOSE :

VERIFY

THAT

MAINTENANCE

HARDWARE

OPERATIONAL.

AND

RESET,

PROCEDURE:
THE TEST THAT DlAGNOgTIC MODE CAN BE

VIV

SEQ 0012

TEST 10 DIAGNOSTIC MODE TEST

NOWVIS NN = O 0VRNONWVIS
W =O

— v

D e

NOWVIS
NN = OV 00~

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 3-9

SET

THEN

VERIFIES THAT ‘MOL, PIP, WRL, SKI, AND DVC'' CAN BE CONTROLLED
USING MAINTENANCE REGISTER 1.

TEST 11 PACK ACKNOWLEDGE TEST

PURPOSE:

TO VERIFY THAT VOLUME VALID CAN BE SET BY A PACK ACKNOWLEDGE

COMMAND,

LENDING CREDENCE TO THE EXECUTION OF THE COMMAND AND TO

THE STABILITY OF THE UNIT READY SIGNAL FROM THE DRIVE.

PROCEDURE
:

A PACK ACKNOWLEDGE COMMAND IS ISSUED TO THE SELECTED DEVICE

AND VOLUME VALID STATUS, BIT 10 OF RMDS, IS CHECKED FOR ONE.

TEST 12 RECALIBRATE TEST

:
‘PURPOSE

THE PRIMARY PURPOSE IS TO_ ASCERTAIN THAT THE DRIVE WILL
EXECUTE A RECALIBRATE OPERATION TO THE EXTENT THAT "PIP'* AND
'SKI'* STATUS BECOME UNASSERTED AT THE COMPLETION
OF
THE
RECALIBRATE.
THE SECONDARY PURPOSE IS TO PUT THE DRIVE IN A
KNOWN STATE SO THAT FURTHER TESTS CAN CHECK FOR UNEXPECTED STATE

SEQ 0013

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 3-10

CHANGES IN THE DRIVE.
PROCEDURE:

THE RECALIBRATE TEST

PRESETS

THE

DISK

ADDRESS

RMDA, AND THE DESIRED CYLINDER REGISTER, RMDC, TO ZERO, THEN
EXECUTES A RECALIBRATE COMMAND. THE TEST VERIFIES THE FOLLOWING
CONDITIONS:

.SKI=0, '‘SEEK ERROR'' IS INACTIVE;
=

"ON_CYLINDER''

ACTIVE.,

'POSITIMINé IN PROGRESS'* BEING INACTIVE:

INDICATED

.IAE‘O.
NO ‘“INVALID ADDRESS ERROR'' DURING RECALIBRATE;
THAT

OPI=0, NO ‘OPERATION INCOMPLETE ERROR'', INDICATING THAT
THE DRIVE WAS READY AT THE START OF THE COMMAND AND THAT ON

EYUMER

STATUS

WENT

INACTIVE

WHEN

THE

DRIVE

RECEIVED

THE

.ATA=1, ATTENTION IS SET BY RECALIBRATE.

TEST 13 ABORT RECALIBRATE TEST

¢ IR

—¢

r
1

of
1

1
t
t

PURPOSE :

TO VERIFY THAT THE RM80 IMIBITS A RECALIBRATE WHEN AN ABORT
CONDITION EXISTS AT THE START OF THE COMMAND.
PROCEDURE :

THE TEST SETS AN ERROR IN THE ERROR REGISTER AND. ISSUES
RECALIBRATE COMMAND, VERIFYING THAT 'PIP'’ REMAINS INACTIVE.

TEST 14 IVC RECALIBRATE TEST

:
PURPOSE
TO VERIFY THAT INVALI D COMMAND STATUS, BIT 12 OF RMER2, SETS
WHEN VOLUME VALID IS INACT IVE DURING A RECALIBRATE COMMAND.
PROCEDURE:
THE mlgrs AND RESETS

DIAGMSTIC

MODE

WHICH

CAUSES

ok
u?c‘*zfi'«"
” NS1COwno'zgamg
RA N
ThAT VeCSTATUS SETS AN
THAT
*P1

CZRNDAO RM8O FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 3-11

SEQ 0014

i
|

628

TEST 15 IAE RECALIBRATE TEST

PURPOSE:
TO VERIFY THAT INVALID ADDRESS ERROR DOES NOT SET

RECALIBRATE COMMAND .

DURING

PROCEDURE :

S SN ST

THE TEST PRESETS THE DISK ADDRESS

CYLINDER _ ADDRESS

(RMDC)

(RMDA)

ILLEGAL

léECALIBRATE COMMAND, VERIFYING THAT

AND

VALUES

THE

AND

DESIRED

ISSUES

A
'‘IAE’* DOES NOT SET DURING THE

wflfl

ONONON

ONON
SNINIIE
AN

TEST 16 RECALIBRATE AT OFFSET

PURPOSE:
TO VERIFY THAT OFFSET

MODE

DOES

NOT

AFFECT

RECALIBRATE.

PROCEDURE:
THE TEST EXECUTES AN OFFSET COMMAND,
THEN EXECUTES A
RECALIBRATE COMMAND AND VERIFIES THAT THERE ARE NO ERRORS DURING
RECALIBRATE.

TEST 17 DRIVE CLEAR TEST

PURPOSE:

TO VERIFY THAT ALL APPLICABLE RME0 MASSBUS ADAPTER ERROR AND
STATUS CONDITIONS ARE INITIALIZED BY A *DRIVE CLEAR'* COMMAND.
PROCEDURE :

THIS TEST WRITES ONES IN THOSE MASSBUS ADAPTER BITS WHICH
ARE INITIALIZED BY DRIVE CLEAR , THEN ISSUES THE DRIVE CLEAR
COMMAND AND VERIFIES THAT EACH BIT IS CLEARED,
~ADDITIONALLY

wlsgs?gufloflm ARE NOT AFFECTED BY 'DRIVE CLEARTM ARE ALSO PRESET
THE FOLLOWING ITEMS ARE PRESET:

.RMER1, ERROR REGISTER 1 IS SET TO ALL ONES:

CZRNDAO RM80 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 3-12

685

SEQ 0015

.RMER2, ERROR REGISTER 3, IS SET TO ALL ONES.

CHECKED:

FOLLOWING THE DRIVE CLEAR COMMAND, THE FOLLOWING

691

.RMCS1,

23‘

ITEMS

695

.RMDS, IS CHECKED FOR 0,

EXCEPT

FOR

MOL,DPR,DRY,

. WHICH SHOULD BE ONE, AND PGM WHICH IS A DONT CARE.
|

ARE

IS CHECKED FOR DVA=1, FO-F& AND GO=0, ALL OTHER BITS

ARE DONT CARES:

6%
00

.DMD, DIAGNOSTIC MODE IS SET;

;gs

AND

.RMER1, IS CHECKED FOR 0;

.RMAS, IS CHECKED TO INSURE THE APPROPRIATE ATA BIT IS 0;
RMMR,

IS CHECKED FOR O,

EXCEPT FOR WORD CLOCK, LAST SECTOR,

AND LAST SECTOR AND TRACK WHICH ARE DONT CARES:
705

;3‘7’

.RMMR2 IS CHECKED FOR O,

EXCEPT FOR THE TEST

ONE, AND REQA, REGB WHICH ARE DONT CARES:

;33

.RMEC2 IS CHECKED FOR 0;

;}(1)

.RMER2 IS CHECKED FOR 0;

BIT

WHICH

aH
71

71%
715
;}9

TEST 20 NOP TEST

;}3

- PURPOSE:

; 0

7i
4

5
9

TO VERIFY THE EXECUTION OF ‘NOP'* COMMAND.

PROCEDURE :

A NOP COMMAND IS EXECUTED ON THE SELECTED DEVICE AND STATUS
IS CHECKED TO VERIFY THAT THERE WERE NO ERRORS OR UNEXPECTED
CHANGES IN STATUS.

TEST 21 OFFSET TEST
PURPOSE:

TO VERIFY THE EXECUTION OF *OFFSET'' COMMAND.

PROCEDURE :

THE OFFSET_COMMAND IS EXE CUTE gMD THE PROGRAM CHECKS THAT
OFFSET STATUS, BIT 0 OF RMDS I S SET AND THAT ATTENTION, BIT 15 OF

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 3-13
74

RMDS IS ALSO SET.

;24

SEQ@ 0016
ADDITIONALLY,

CONTROLLER, ADAPTER,

STATUS 1S CHECKED FOR UNEXPECT56 CHANGES.

745
7
74
748

;lgg

TEST 22 GO/ATA TEST

;21

PURPOSE :

;gg

TO__VERIFY

THAT

°‘‘ATA'"

COMPOSITE ERROR IS INACTIVE.

WILL

RESET

WITH

°''GO'"

AND

DRIVE

PROVIDING

PROCEDURE :

758

ATTENTION, BIT 15 OF RMDS, IS SET USING

'7128

AND RESET USING A NOP COMMAND.

OFFSET

COMMAND

;61

763

764

;65

TEST 23 WRITE ATA TEST

;;3

PURPOSE :

TO VERIFY THAT ATTENTION CAN BE RESET BY WRITING THE

ATTENTION SUMMARY REGISTER, RMAS.

774
775

PROCEDURE :

ATTENTION IS SET USING AN OFFSET

COMMAND

AFTER

WHICH

THE

PROGRAM WRITES A O IN THE ATTENTION SUMMARY REGISTER, VERIFYING
THT ATTENTION REMAINS SET.
FOLLOWING THAT THE PROGRAM WRITES A

1 IN RMAS AND VERIFIES THAT ATTENTION RESETS.

TEST 24 ERROR/ATA TEST

]

PURPOSE:

TO_VERIFY THAT *'GO'* DOES NOT RESET "ATA"

COMPOSITE ERROR.

WHEN

THERE-

PROCEDURE :

*ATA’' IS SET WITH AN OFFSET COMMAND AFTER WHICH ONE OF THE
THE PROGRAM THEN ISSUES A NOP COMMAND AND
ERROR BITS IS SET.
VERIFIES THAT THE ATTENTION BIT REMAINS SET.

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 3-14

SEQ 0017

TEST 25 PROGRAM INTERRUPT TEST
:
PURPOSE

TO VERIFY THAT THE RM80 SUBSYSTEM WILL GENERATE
INTERRUPT
WHEN PROCESSOR PRIORITY IS LESS THAN

PRIORITY AND INTERRUPT IS ENABLED.

A PROGRAM
CONTROLLER

PROCEDURE:

ATTENTION IS SET USING AN OFFSET COMMAND.
WITH INTERRUPT
ENABLED AND PROCESSOR PRIORITY SET BELOW CONTROLLER PRIORITY, THE
PROGRAM VERIFIES THAT A PROGRAM INTERRUPT CCCURS.

TEST 26 INHIBIT INTERRUPT TEST
PURPOSE:

TO VERIFY THAT A PROGRAM INTERRUPT DOES NOT OCCUR WHEN (1)
PROCESSOR AND CONTROLLER PRIORITY ARE THE SAME AND INTERRUPT IS

ENABLED OR (2) WHEN PROCESSOR PRIORITY IS

AND INTERRUPTS ARE NOT ENABLED.

LESS

THAN

CONTROLLER

PROCEDURE:
ATTENTION IS SET USING AN OFFSET COMMAND WITH_

THE

PRIORITY

OF THE PROCESSOR SET EQUAL TO THE PRIORITY OF THE CONTROLLER.
INTERRUPT IS ENABLED AND THE TEST VERIFIES THAT A PROGRAM
INTERRUPT DOES NOT OCCUR.
INTERRUPTS ARE DISABLED AND PROCESSOR
PRIORITY 1S LOWERED AND THE TEST VERIFIES THAT A PROGRAM
INTERRUPT DOES NOT OCCUR.
'

TEST 27 RETURN TO CENTERLINE TEST
PURPOSE:

TO VERIFY THE EXECUTION OF "“RETURN TO CENTERLINE'® COMMAND.
PROCEDURE:

THIS TEST ISSUE S AN RTC COMMAND AND VERIFIES THAT OFFSET
STATUS, BIT 0 OF RMDS IS RESET AND THAT ATTENTION, BIT 15 OF RMDS
IS SET. UNEXPECTED § TATUS OR ERROR CONDITIONS ARE ALSO VERIFIED.

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 3-15
gS

TEST 30 READ IN PRESET TEST

PURPOSE:

858
859
860

TO VERIFY THE EXECUTION OF 'READ IN PRESET'* COMMAND.

863
8¢S

PROCEDURE :

864

865

SEQ 0018

WHICH

THIS TEST LOADS NON ZERO _VALUES IN THOSE

ARE

INITIALIZED

THE

VERIFIES
EXECUTES THE COMMAND AND
V

READ

ADAPTER REGISTERS
PRESET C COMMAND, THEN

THE CONTENTS OF EACH REGISTER.

THE FOLLOWING REGISTERS ARE CHECKED:

-RMDA

THE DISK ADDRESS REGISTER,

IS LOADED WITH

ALL

.RMD

THE DESIRED CYLINDER REGISTER

.RMOF

THE OFFSET REGISTER, IS PRESET (TO 017200) AND

ONES AND VERIFIED TO BE ZERO AFTER THE RIP COMMAND;

IS LOADED

WITH

ALL ONES (601777) AND VERIFIED TO BE ZERO AFTER fHE RIPCCOMMAND;
VERIFIED TO BE ZERO AFTER THE TEST:

TEST 31 RMDC CLEAR OFFSET TEST
PURPOSE:
TO VERIFY THAT WRITING THE DESIRED CYLINDER REGISTER

WILL CLEAR OFFSET MODE.

(RMDC)

PROCEDURE :

OFFSET MODE IS SET USING THE OFFSET COMMAND, THEN

WRITING RMDC.

RESET

TEST 32 ILLEGAL FUNCTION TEST

PURPOSE :

T%ERIFY

FUNCTI

THAT

THE

RMB0

SUBSYSTEM

DETECTS

ALL

ILLEGAL

PROCEDURE :

EACH ILLEGALK FUNCTION CODE IS EXECUTED WITH THE PROGRAM
‘* STATUS, BIT O OF RMER1 IS SET
VERIFYING THAT ‘‘ILLEGAL FUNCTI

FOR EACH CODE.

THE

ILLEGAL FUNCTION TEST.

SUBSYSTEM IS

INITIALIZED PRIOR TO EACH

CZRNDAO RMB0 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 3-16

SEQ 0019

TEST 33 INVALID COMMAND TEST
PURPOSE:
TO VERIFY IVC ERROR DETECTION.
PROCEDURE:

PROCESS IS REPEATED

FOR

EACH

FUNCTION

CHECKED ACCORDING TO THE FUNCTION.

CODE,

WITH

IVC

BEING

TEST 34 INVALID ADDRESS ERROR TEST
PURPOSE:
TO VERIFY IAE ERROR DETECTION.

THE TEST EXECUTES EACH FUNCTION CODE WITH RMDA, AND RMDC SET
TO ILLEGAL ADDRESSES, AND VERIFIES IAE ACCORDING TO THE FUNCTION.

W)=

PROCEDURE:

SR G

A S SRR

TEST 35 WRITE LOCK ERROR TEST
PURPOSE:

T0 VERIFY WLE ERROR DETECTION.
PROCEDURE:

THE TEST SIMULATESES WRITE
T
PROTE c
USING_ MAINTENANCE
PROTECT
AND VERIFIES WLE ACCORDING TO THE FUNCTION

EXECUTED.

EACH FUNCTION CODE IS TESTED.

TEST 36 ERROR ABORT TESTS

PURPOSE:

TO TEST COMMAND EXECUTION DURING AN ABORT CONDITION.

WRITE
BEING

CZRNDAO RMB0 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 3-17

SEQ 0020

PROCEDURE :

PURPOSE:
TO VERIFY THAT RMR ERROR IS DETECTED.

PROCEDURE :
gg’si

THE TEST EXECUTES A NOP COMMAND WITH

SET,

THE

TEST

DEBUG

CLOCK

ENABLED.

WRITES RMCSI, VERIFYING THAT RMR ERROR

TEST 40 PARITY ERROR TEST

PURPOSE:
TO VERIFY THAT PARITY ERRORS ARE DETECTED.

PROCEDURE:

WITH PAT SET TO CAUSE BAD PARITY ON_ THE CONTROL BUS, THE
WRITES A SHIFTING ONE BIT PATTERN TO RMDA AND VERIFIES THAT

VIS

OO NOWVS
N —=O

AN ERROR 1S DETECTED BY THE RMB0 FOR EACH PATTERN.

s ) D e
) el ld e wd T e
i

UNSAFE

TEST 37 RMR TEST

TEST

) o

) o wd ) D e

) ) D D = wud

8988888832888
83 828288822

EACH FUNCTION CODE IS EXECUTED UNDER A SIMULATED
CONDITION AND THE TEST VERIFIES THAT GO IS RESET.

TEST 41 ILLEGAL REGISTER TEST

PURPOSE:
TO VERIFY THE DETECTION OF ILLEGAL REGISTER ADDRESSES BY THE

RM80 SUSBSYSTEM.
PROCEDURE :

EACH REG STER ADDRESS IS ACCESSED AND ILLEGAL REGISTER
STATUS
OF RMER1 IS CHECKED ACCORDING TO THE ADDRESS USED.

NOTE fl'flfTOE EXECUTION OF THIS TEST IS DEPENDENT ON THE REGISTER
ADDRESS JUMPER IN THE RH70
CONTROLLER BECAUSE THE RANGE OF
ADDRESSES WHICH THE CONTROLLER WILL RESPOND TO IS LIMITED BY THE
WAY THE JUMPER IS CUT.

SEQ 0021

pey

SEEK TESTS (42 - 52)

(V.

PURPOSE:

THE PURPOSE OF EACH OF THE FOLLOWING SEEK TESTS IS TO VERIFY
THE EXECUTION OF SEEK OPERATIONS BY THE RMB0 SUBSYSTEM USING A
SET OF ADDRESSES THAT TEST THE ADAPTER/DEVICE INTERFACE AND

ELECTROMECHANICAL HEAD POSITIONING HARDWARE.
PROCEDURE:

EACH TEST WILL RECALIBRATE THE DRIVE IF ‘PIP'°

ACTIVE.

FOLLOWING

THAT,

‘'SKI'*

THE TEST EXECUTES A SEEK TO A CYLINDER

ADDRESS OR SERIES OF ADDRESSES. AT THE COMPLETION OF EACH SEEK
OPERATION,
SUBSYSTEM STATUS IS STORED AND THE TEST CHECKS FOR
PRIMARY ERRORS WHICH PRECLUDE FURTHER ERROR CHECKING.
_IF THERE

ARE NO PRIMARY ERRORS THE TEST CHECKS FOR OPERATIONAL ERRORS AND
THEN SECONDARY ERRORS.

) D

-l

THIS TEST SEEKS TO THE FIRST CYLINDER.

TEST 43 SEEK TO LAST CYLINDER TEST
THIS TEST SEEKS TO THE LAST CYLINDER.

THIS fEST SEEKS FORWARD TO EACH PRIME CYLINDER

CYLINDERS1, 2, 4, 8, 16, 32, 64, 128, 256 AND 515

ADDRESS, I.E,

TEST 45 SEEK ZERO DIFFERENCE TEST
:

il ol o

TEST 42 SEEK TO FIRST CYLINDER TEST

"TEST 44 SEEK PRIME CYLINDERS TEST

il ol i il il ol cndd i

D ol e el i wnl ol

POONOGC

) o e i e e o

)

) W v e

=l
MWV
WAL

)

= oow\aaw-ag
°°°°°°°°§§

) el o

) v

e s

SREXEESR

D cd e cd b — o

D cd i cd D ol d

QOCOO00000O o

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 3-18

THIS TEST EXECUTES SUCCESSIVE SEEKS .TO CYLINDER 0.

CZRNDAO RM80 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 3-19

SEQ 0022

1084

1085
1

TEST 46 SEEK MAXIMUM DIFFERENCE FORWARD

THIS TEST DOES A RECALIBRATE

COMMAND,

REGUARDLESS

OF THE

CONDITION OF “PIPTMOR "SKI", AND THEN EXCUTES A SEEK TO THE LAST

i e
D i o Dl e
i e e
D i b
el
e i e e e D i D ) i D )e e = i D e b e De e
i ot o s o e o o el o e il e et e i i o e e e i i =D e e e
e e i e D
o v e e o e
oD s
D wmd oD cmd e cad
&
W
VIS W =0V NOWVSWIN=O
L=]

D e

D i

SRIRARAR2833IIIFII

1090

TEST 47 SEEK ADJACENT FORWARD TEST
THIS TEST SEEKS TO CYLINDER O, FOLLOWED BY
ADJACENT FORWARD CYLINDER, I.E., CYLINDER 1.

SEEK

THE

TEST 50 SEEK ADJACENT REVER.:Z TEST
THIS TEST SEEKS TO CYLINDER
1, FOLLOWED BY A SEEK TO THE ADJACENT
REVERSE CYLINDER, I.E., CYLINDER 0.

TEST 51 SEEK TO INVALID SECTOR TEST

WITH THE OFFSET REGISTER SET FOR 18 BIT FORMAT, THE

SEEKS TO CYLINDER O, TRACK 0O,

VERIFIES THAT

PROGRAM

FOR EACH INVALID SECTOR ADDRESS AND

INVALID ADDRESS ERROR SETS FOR EACH SECTOR. THE

TEST IS REPEATED FOR 16 BIT FORMAT.

TEST 52 SEEK TO INVALID TRACK TEST
THE TEST SEEKS TO EACH_INVALID TRACK ADDRESS

WITH

CYLINDER

AND SECTOR ADDRESS SET TO O AND VERIFIES THAT INVALID ADDRESS
ERROR SETS FOR EACH TRACK ADDRESS.

TEST 53 SEEK TO INVALID CYLINDER TEST
THE PROGRAM SEEKS TO EACH INVALID CYLINDER ADDRESS WITH

THE

SECTOR AND TRACK ADDRESS SET TO O AND VERIFIES THAT INVALID
ADDRESS ERROR SETS FOR EACH CYLINDER ADDRESSS.

e SO R
A

SEQ 0023

TEST 54 IVC SEEK TEST
PURPOSE:

TO VERIFY THAT INVALID COMMAND STATUS, BIT 12 OF RMER2
WHEN VOLUME VALID IS INACTIVE DURING A SEEK COMMAND

SETS

PROCEDURE :
THE TEST

DIAGNOSTIC

RESETS

MODE,

VOLUME

VALID

SETTING

RESETTING

THEN EXECUTES A SEEK COMMAND AND VERIFIES THAT

“IVC'* STATUS IS SET.

TO VERIFY THAT THE RM80 INHIBITS A SEEK
CONDITION EXISTS AT THE START OF THE COMMAND.

RN
] ot

e i e e o e
i

D D e

PURPOSE:

SEEK COMMAND, VERIFYING THAT 'PIP

THE TEST SETS AN ERROR IN THE ERROR REGISTER

WHEN

AND

REMAINS INACTIVE.

ABORT

ISSUES

TEST 56 SEEK AT OFFSET

PWOSE_:
TO VERIFY THAT OFFSET MODE

DOES

NOT

CAUSE

ERRORS

DURING

oy S

e e

e e o

b i e ol ol ol o e e

D ol el o

D D

i e

) D D i e

TEST 55 ABORT SEEK TEST

PROCEDURE :

D e cd cd D e

D i e e

D i

e e e

A St A

D d d D d D wd D D ed D D d e

e e e

d D D D d e

D e s e
N
v v|
v

D d D d D D ed cd d ot

I I T T &oH s

NS T N

CZRNDAO RM8O FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 3-20

PROCEDURE :

THE TEST EXECUTES AN OFFSET COMMAND

THEN EXECUTES A SEEK

COMMAND, VERIFYING THE RESULTS OF THE SEEK.

TEST 57 LOOK AHEAD TEST

PURPOSE:

d-.dddddddddfld-fi—l-‘d—l-fl-‘—l-.-I-.d—l-flfldd-‘-.-l-l-.—l-l-l—I—l-fl-‘.‘_‘-fi.‘-‘_‘d—l-‘d-‘d_‘.‘d
NN
d b cd cmd wed b
¥P
W
W SWN=O
W

Lo 3SQRIREN2288

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:5i PAGE 3-21

Mu&bt‘a
o
2s

B N A R IS S OB NN

1
1

SEQ 0024

TO INSURE THAT THE SECTOR COUNT WHICH ORIGINATES AT THE
%xsnm IS VISIBLE THROUGH THE LOOK AHEAD REGISTER (RMLA) IS
PROCEDURE :

WITH THE OFFSET REGISTER SET FOR 18 BIT FORMAT,

THE

PROGRAM

SAMPLES THE LOOK AHMEAD REGISTER AND COLLECTS EACH DIFFERENT

SAMPLE UNTIL THE VALUE OF THE FIRST SAMPLE IS DETECTED OR_ UNTIL
351. SAMPLES ARE TAKEN. THE COLLECTION IS THEN TESTED TO DETERMINE
THAT THE SECTOR COUNT_INCREMENTS CORRECTLY THROUGH THE ENTIRE
RANGE OF VALID SECTORS.
THE SAME PROCEDURE IS REPEATED FOR 16

BIT FORMAT, WHERE THE LIMIT ON THE NUMBER OF SAMPLES IS

16 Blgsf?sflg WITH SSEI SET,

WHERE

THE

32. ALSO

LIMIT ON THE NUMBER OF

TEST 60 SEARCH ON CYLINDER
PURPOSE :

:
PROCEDURE

THE TEST _INTIALIZES AND RECALIBRATES THE DRIVE IF ‘PIP’’ OR
'SKI'* IS ACTIVE THEN SEEKS TO CYLINDER 0. THE TEST THEN DOES A
SEARCH TO EACH SECTOR AND VERIFIES THAT THE SEARCH_ COMPLETES
WITHOUT ERROR.
THIS TEST IS DONE IN 16 BIT FORMAT WITH SSEI SET.

TEST 61 SEARCH OFF CYLINDER

PURPOSE:

TO VERIFY THE EXECUTION OF

HEAD MOTION.

COMMAND

WITH

IMPLIED

PROCEDURE :

THE DRIVE IS RECALIBRATED AND INITIALIZED IF THE DRIVE IS
OFF CYLINDER OR HAS A SEEK_ERROR. THE PROGRAM THEN EXECUTES AN
SXPI.ICIT SEEK TO CYLINDER 279., FOLLOWED BY A SEARCH TO CYLINDER
80., TRACK 0O, SECTOR O. THE
NEXT SECTOR IS SEARCHED FOR BY AN

SXPIJCIT SEEK TO CYLINDER 278.,
81.,

TRACK 0,

SECTOR 1.,

ETC..

FOLLOWED BY A SEARCH TO CYLINDER
UNTIL

ALL

SECTORS

HAVE

BEEN

SEARCHED. THE TEST IS DONE Fgfl 6 BIT FORMAT WITH SSEI SET, WHERE
THE LAST SECTOR SEARCHED IS

31.

TEST 62 SEARCH INVALID SECTOR

PURPOSE:
:

TO VERIFY THE DETECTION OF AN INVALID SECTOR ADDRESS

A SEARCH OPERATION.

DURING

PROCEDURE :
————

SIBIFANNANIITE&GSFOR2ETEIT
A

SE@ 0025

THE DRIVE IS RECALIBRATED AND INITIALIZED IF
IT IS_ OFF
CYLINDER OR_HAS A SEEK ERROR. WITH THE OFFSET REGISTER SET FOR
18 BIT FORMAT, THE PR
EXECUTES A SEARCH TO EACH INVALID

SECTOR,I.E.,SECTORS 30. AND 31. AND VERIFIES THAT INVALID ADDRESS

ERROR SETS FOR EACH SECTOR.
THIS TEST IS EXECUTED IN 16 BIT
FORMAT, WHERE SECTOR 31. IS THE INVALID SECTOR

il il e

o ot o e

puard

SR&K SO28TEIR Ogfl
W

i o ol il i e i i e e

e e

i e i T e e

e e = v

NN
00 00

S e

e e

s s s

e =

b o

PINININININININD NN

e S

i e

v e —d

CZRNDAO RMBO FCTNL PT1 MACRO VO04.00 28-JAN-82 16:24:51 PAGE 3-22

TEST 63 SEARCH INVALID TRACK

PURPOSE :

TO VERIFY THE DETECTION OF AN INVALID TRACK ADDRESS DURING A
SEARCH OPERATION.
PROCEDURE:

THE DRIVE IS RECALIBRATED AND INITIALIZED IF IT IS OFF
CYLINDER OR HAS A SEEK ERROR.
THE PROGRAM EXECUTES A SEARCH TO

EACH INVALID TRACK ADDRESS WITH THE CYLINDER ADDRESS 0, AND
SECTOR ADDRESS O AND VERIFIES THAT INVALID ADDRESS ERROR SETS FOR
EACH TRACK.

TEST 64 SEARCH INVALID CYLINDER

PURPOSE :

TO VERIFY THE DETECTION
DURING A SEARCH OPERATION.

INVALID

CYLINDER

INITIALIZED

ADDRESS

PROCEDURE:

THE DRIVE IS RECALIBRATED

AND

OFF

CYLINDER OR HAS A SEEK ERROR. THE PROGRAM THEN EXECUTES A SEARCH
TO EACH INVALID CYLINDER ADDRESS AND VERIFIES THAT INVALID

ADDRESS ERROR SETS FOR EACH CYLINDER.

TEST 65 IVC SEARCH TEST
PURPOSE:
TO VERIFY THAT INVALID COMMAND STATUS SETS WHEN VOLUME VALID

IS INACTIVE DURING A SEARCH COMMAND.

PROCEDURE :
MODE,

VOLIHE VALID 1S RESET BY SETTING AND RESETTING DIAGNOSTIC
AFTER

WHICH THE TEST EXECUTES A SEARCH COMMAND, VERIFYING

THAT ““IVC' STATUS SETS.

0O NPV

b e

NN - OV RNV

b end b o

SEQ@ 0026

TEST 66 ABORT SEARCH TEST

PURPOSE:

TO VERIFY THAT THE RM80 INHIBITS A SEARCH
CONDITION EXISTS AT THE START OF THE COMMAND.

WHEN

ABORT

AND

ISSUES

PROCEDURE:

THE TEST SETS AN ERROR IN THE ERROR REGISTER

SEARCH COMMAND, VERIFYING THAT ‘PIP'* REMAINS INACTIVE.

ddddd“‘wdddddhdd-fi-fld—n-fl-fi — e b e d d D e e e D d D ed cnd D e D cd o D e d b d

CZRNDAO RM8O FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 3-23

TEST 67 SEARCH AT OFFSET TEST
PURPOSE :

TO VERIFY THAT OFFSET MODE DOES NOT /CAUSE SEARCH ERRORS.

- PROCEDURE :

THE TEST EXECUTES AN OFFSET COMMAND,

THEN EXECUTES A

COMMAND, VERIFYING THAT THERE ARE NO ERRORS DURING THE SEARCH.

CZRNDAO RMB0 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 4
1
474

475

SEQ 0027

;*LAST REVISION 19-0CT-81
.TITLE

CZRNDAO

:*COPYRIGHT (C) 19

FCTNL PTT

s*DIGITAL EQUIPMENT CORPORATION

: COI.MADO SPGS.,CO. 80919

"PROGRM BY MIKE LEAVITT
tTHIS PROGRAM WAS ASSEMBLED gSING THE PDP-‘H MAINDEC SYSMAC
'PACKAGE (MAINDEC-11-DZQAC-C5), 18-MAR-81
SWITCH
D e ey
) e
ol

VO =N WS

HALT ON ERROR

LOOP ON TEST
INHIBIT ERROR TYPEOUTS
UNUSED
INHIBIT ITERATIONS
BELL ON ERROR
LOOP ON ERROR
LOOPsM TEST IN SWR<7:0>

VIOV N

R
IR R

.SBTTL

USE

477

OPERATIONAL SWITCH SETTINGS

O =MW

.SBTYL
R EERSEERSERSES
RN

476

BASIC DEFINITIONS

s*INITIAL %ESS OF THE STACK POINTER #*x 1100 ==«

STACK
ERROR

SCOPE

=
= EMT

::BASIC DEFINITION OF ERROR CALL

= IOT

$:BASIC DEFINITION OF SCOPE CALL

amscsmneous DEFINITIONS

HT
LF
R

::CODE FOR HORIZONTAL TAB

= g
=

::CODE FOR LINE FEED
::CODE FOR CARRIAGE RETURN

:gws

= 177776

= gg

::CODE FOR CARRIAGE RETURN-LINE FEED

STKLMT
PIRQ

= 177774
= 177772
= 177570
= 177570

;:STACK LIMIT REGISTER
: :PROGRAM INTERRUPT REQUEST REGISTER
* SHARDWARE SWITCH REGISTER
* SHARDWARE DISPLAY REGISTER

CRLF

DSWR
DDISP

- *GENERAL

RO
R1
R
R

=¥
=1

= zg
=1

*:PROCESSOR STATUS WORD

SE REGISTER DEF INITIONS

:GENERAL REGISTER
i {GENERAL REGISTER
: :GENERAL REGISTER
*:GENERAL REGISTER

CZRNDAO RMB0 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 4-1

SEQ 0028

BASIC DEFINITIONS

5
7

= %%

::GENERAL REGISTER

R6
R7

= 19
=X

: :GENERAL
REGISTER
::GENERAL REGISTER

88883?

888820

PRO

0
000108
88814
000240
000
000340

= %5

= 19

: :GENERAL REGISTER

::STACK POINTER

: :PROGRAM COUNTER

-«PRIORITY LEVEL DEFINITIONS

PR1
PR
PR
PR&
PRS
PR6
PR7

= 40
= 100
= 140
= 200
= 240
= 300
= 340

::PRIORITY LEVEL 0

*:PRIORITY LEVEL 1
2:PRIORITY LEVEL §
::PRIORITY LEVEL
+:PRIORITY LEVEL &
+:PRIORITY LEVEL 5
+:PRIORITY LEVEL 9
+:PRIORITY LEVEL

:*"'SWITCH REGISTER'' SWITCH DEFINITIONS
=

002888

001000
888288
0001000

2
1

Wil

SWO8
W06
oS

SWoé
SWo3
W02
SWo1
S

==40
00
=20
=10
=4
=2
=1

SW9=SW09

3508
SWS=SWO0
SW4=S

SWi= %
SWO0=S

-«DATA BIT DEFINITIONS (BITOO TO BIT15)

BITIS
BIT1%
BIT1
BIT1
BIT1

485

000014
000014

TRTVEC = 14
BPTVEC = 14

TBITVEC = 14
IOTVEC

=
=

.SBTTL

RMB0 REGISTER BIT DEFINITIONS

DVA

sDEVICE AVAILABLE-READ ONLY

sFUNCTION CODE

1
5

::IWT/WTPUT TRAP (I0T) »«SCOPE*+
s sPOWER FAIL

:.FIMTM TRAP (EMT) =«ERROR#*+
::_ TRAP'' TRAP
s:TTY KEYBOARD VECTOR
::TTY PRINTER VECTOR
: ;PROGRAM INTERRUPT REQUEST VECTOR

s*RMCS1 CONTROL STATUS REGISTER

G0
=
FNCMSK =

4
49
6%

EMTVEC = 30
TRAPVEC =
TKVEC
= 60
TPVEC
= 64
PIRQVEC = 240

N
23

474
495

sTIME OUT AND OTHER ERRORS
..RESERVED AND ILLEGAL INSTRUCTIONS
T BIT
::TRACE TRAP
: :BREAKPOINT TRAP (BPT)

PWRVEC

490

—-rS
oS

;*BASIC ‘'CPU"* TRAP VECTOR ADDRESSES

ERRVEC = 4
RESVEC = 10

Fé&
F3
F2
F1

SEQ 0029

BITHITS
172=BIT02
Blfl=81701

000004
000010

:
:

SSS2
=

8IT0=BIT00

0000
000034
000060
000064
000240

’l;:gg

—

000001

000020
000024

481

e L]

BIT7=BI1T07
BIT6=BIT
BIT =8170

000014

81700
BIT9=BIT09
BIT8=BIT08

888200
100
000038

10
000002

480 |

nunnn

oooOm

igag

CZRNDAQ RM80 ;&T"sl PT1 MACRO V04.00 28~JAN-82 16:24:51 PAGE 4-2

=
=
=
=

sFUNCTION
=

ILF02
SSEK
RECAL
DRVCLR
RLEASE

=
=
=
=
=

RTC
RIP

=
=

PACACK

OFFSET =
PAKACK
ILF264

=
=

:FUNCTION CODE
:FUNCTION CODE
:FUNCTION CODE
:FUNCTION CODE

:60 BIT
:FUNCTION CODE MASK
(BITS 01-05 OF RMCS1)
sNOP_C

s ILLEGAL COMMAND
sSEEK C
sRECALIBRATE COMMAND
sDRIVE CLEAR COMMAND
sRELEASE (

;OFFSET COMMAND

sRETURN TO CENTERLI'E COMMAND
sREAD IN PRESET COMMAND

;PACK ACKNOWLEDGE COMMAND
.ILI.EGAL COMMAND
s ILLEGAL COMMAND

cznnoao RMB0 FCTNL PT1 MACRO VO04.00 28-JAN-82 16:24:51 PAGE 4-3
REGISTER BIT DEFINITIONS

508
sNn

€

(=]

gllo

518
519
5
521

3 g
5 2

B
:
528
5
5

i
:

s*RMDA

:ILLEGAL COMMAND

sILLEGAL COMMAND
sILLEGAL COMMAND
s ILLEGAL COMMAND
s ILLEGAL COMMAND
s ILLEGAL COMMAND
SWRITE CHECK DATA COMMAND
sWRITE CHECK HEADER AND DATA
s ILLEGAL COMMAND
s ILLEGAL COMMAND
sWRITE DATA COMMAND
SWRITE HEADER AND DATA COMMAND
s ILLEGAL COMMAND
s ILLEGAL COMMAND
sREAD DATA COMMAND
sREAD HEADER AND DATA COMMAND
sILLEGAL COMMAND
sILLEGAL COMMAND

DISK ADDRESS REGISTER

: TRACK ADDRESS DEFINITIONS

002000
001000

= BIT11

TA1

= BIT

TA%
TA2

= BIT1
= BIT

SA8
SAG
SA2
SA1

sTRACK ADDRESS 1

= BIT
= BIT
= BIT
= BIT

:TRACK & SECTOR

sTRACK ADDRESS 8
sTRACK ADDRESS 4
sTRACK ADDRESS 2

:SECTOR ADDRESS DEFINITIONS
= BIT

SA16

000004
000002

RN
ST RS S I HD L

3
3

000070
000072
000074
000076

sSEARCH COMMAND
sILLEGAL COMMAND
sILLEGAL COMMAND

Nunnuuonhumnoonnnuwnnnnn

RMB0

MASKS

ADMSK = 157 99

SADMSK

= 0003

:*RMDS

DRIVE STATUS REGISTER

ATA

= BIT1S

= BIT1%
ERR
PIP
= BIT1
MOL
= BIT1
WRL
= BIT
= BIT
LBT
PGM
= BIT
DPR
= BIT
= BIT
DRY
wW
= BIT
oM
= BIT
;*RMER1 ERROR REGISTER #1

sSECTOR ADDRESS 16.
sSECTOR ADDRESS 8.
sSECTOR ADDRESS 4
sSECTOR ADDRESS 2
sSECTOR ADDRESS 1
sTRACK ADDRESS MASK

sSECTOR ADDRESS MASK
cATTENTION ACTIVE
sCOMPOSITE ERROR
sPOSITIONING IN PROGRESS
sME
sMEDIUM ON LINE

SWRITE LOCK
sLAST BLOCK TRANSFERRED
; PROGRAMMABL
E

*DRIVE PRESENT

.:DRIVE READY
sVOLUME VALID
sOFFSET MODE ACTIVE

CZRNDAO RM8O FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 4=4

SEC 0031

RMS0 REGISTER BIT DEFINITIONS

560
561
ssg
56
564
545
569
56
568
599
570
271
;g
5
574
g;s

579
578

L79

581

1
8:.
g
1
1
1
2

000001

115760

000377

002000
001000
000400
200
100

003700

DCK
UNS
OP]
DTE
WLE
IAE
AOE
HCRC
HCE
ECH
WCF
FER
PAR
RMR
ILR
ILF

= BIT1S
= BIT1%
= smg
= BIMN
= BIT11
= sn&g
= BIT
= ano;
= BITO
= anog
= BITO
= BIT0%
= BITO3
= BIT02
= BITO1
= BITO0

:DATA CHECK ERROR
*DRIVE
E
*OPERATION INCOMPLETE
*DRIVE TIMING ERROR
*WRITE LOCK ERROR
*INVALID ADDRESS ERROR
*ADDRESS OVERFLOW ERROR
*HEADER CRC ERROR
:HEADER COMPARE ERROR
*ECC "HAR
OR
ume CLOCK FAILURE
om ERROR
*PARITY ERROR
*REGISTER MODIFICATION REFUSED
*ILLEGAL REGISTER
*ILLEGAL FUNCTION

NDTMSK = DCK!DTE'WLE
!AOE !HCRC'HCE'ECH!WCF !FER

:*NDTMSK'* IS USED TO MASK ERROR REGISTER 1 DURING NON = DATA

*COMMANDS, 1.E., HOUSEKEEPING AND POSITIONING COMMANDS
:*RMAS

ATTENTION SUMMARY REGISTER

;*RMLA

LOOK AMEAD REGISTER

SC4
SC3
SC2
SC1
SCO

= BIT10
= BIT09
= BIT
= BIT
= BIT

ATNMSK = 377

SCTMSK = 003700

:*RMMR1 MAINTENANCE REGISTER #1

:WRITE ONLY n{rs

:MASK FOR ATTENTION BITS
:SECTOR COUNT = 16
:SECTOR COUNT = 8
:SECTOR COUNT = &
*SECTOR COUNT = 2
*SECTOR COUNT = 1

;SECTOR COUNT MASK

6ecx
ow.
DTO
MCLK

:DEBUG CLOCK
,
*DEBUG CLOCK ENABLE
*DIAGNOSTIC END OF BLOCK
*DIAGNOSTIC TIMEOUT
*MAINTENANCE CLOCK

21
2}

MRD
MUR
MOC
MSER
MDF
NS
MP
[
MSC
DMD

= BIT1S
= BIT1%
= BIT13
= am;
= BIT1

613

occ

= emg

:0CCUPIED

610

616

= BIT1
= BIT
= BIT
= BIT
= BIT
= BIT
= BIT
= BIT
= BIT
= BIT

:READ ONLY BIT

= BIT1%

*READ DATA
SUNIT READY
*ON CYLINDER
*SEEK ERROR
SDRIVE FAULT
*SECTOR PULS
*WRITE PROTECT
+
INDEX PULSE
*SECTOR COMPARE
*DIAGNOSTIC MODE
*RUN AND GO

= BIT13
- Bll"l%
= BIT
= BIT10

SEQ 0032

EBL
REX
ESRC
PLFS
ECRC
PDA
PHA
CONT
wC
EECC
MWD
LS
LST
DMD

= BIT ’
= BIT
= BIT
= BITO
= BIT04
= BITO3
= BIT02
= BITO1
= BIT00

s*RMDT

DRIVE TYPE REGISTER

NSA

= BIT15

sNOT _SECTOR ADDRESSED = 0

MOH
DRQ

= BIT13
=Bl

*MOVING HEAD = 1

s*RMOF

OFFSET REGISTER

FMT16
ECI
HCI
SSEI

= BIT12
= BITI
= BIT10
= BIT09

= BIT

sLOOKING FOR SYNC
sENABLE CRC OUT
sDATA AREA
sHEADER AREA
+ CONT INUE
sWORD CLOCK
sENABLE ECC ouT
SWRITE DATA BIT
sLAST SECTOR
sLAST SECTOR AND TRACK
sDIAGNOSTIC MODE

:TAPE DRIVE = 0

*DRIVE REQUEST REQUIRED

:16 BIT WORD FORMAT
sECC INHIBIT
sHEADER COMPARE INHIBIT
sSKIP SECTOR ERROR INHIBIT
sOFFSET FORWARD

OFD

= BITO07

s*RMDC

DESIRED CYLINDER ADDRESS REGISTER

CYLMSK

= 001777

sMASK FOR CYLINDER ADDRESS

:*RMMR2 MAINTENANCE REGISTER #2
g L]

cnit amdh
wmeh e

) i raanf) g v

o) s vesl e wum wieo] wor me

e o

mo
MO ®

e Fesag ozl By Dt v Dot v Bams

3
F4

OMMAND SEN‘.:ENCE TEST BIT
YLINDER TAG
HEAD TAG

) Srnty B

o 0o 0o O

e S

ROB
TAG
ST
cC
CH

00 0 0 0w ehnNnRNn "

:READ ONLY BIT

ROA

3330

RSNAT
II I T X T

v04.00 28-JAN-82 16:24:51 PAGE 4-5

s*RMER2 ERROR REGISTER 2

BSE

= BIT15

:BAD SECTOR ERROR

v04.00 28~-JAN-82 16:24:51 PAGE 4-6

sSEEK INCOMPLETE

LBC
DvC

= BIT07

= BIT10

.LOSS OF BIT CLOCK
sDEVICE CHECK

= BITI5

SSF

= BIT13

.SBTTL

RM8B0 REGISTER INDEX VALUES
sCONTROL STATUS REGISTER #1

= 24
=
=
=

:MAINTENANCE REGISTER
:DRIVE TYPE REGISTER
sSERIAL NUMBER REGISTER
:OFFSET REGISTER

RMHR

:HOLDING REGISTER

RMECT

RMEC
ILR
ILRG32
ILRG34
ILRG56
I

IL
ILRG6A
ILR%

ILRG70
ILRG72
ILRG?4

= &2

= 44

=4
=5
= 5
= 54
= 56
= 22
=
= 64
=

= 7
= 7
= 74

:DISK ADDRESS REGISTER
:DRIVE STATUS REGISTER
:ERROR REGISTER #1
'ATTENTIW SUMMARY REGISTER
;LOOK AMEAD REGISTER

sDESIRED CYLINDER REGISTER
sMAINTENANCE REGI TER #2

:ERROR REGIST

:ECC POSIT!M REGISTER
sECC_PATTERN IEGISTER
sILLEGAL REGISTER g
sILLEGAL REGISTER 5
sILLEGAL REGISTER 54
sILLEGAL REGISTER 56
sILLEGAL REGISTER
sILLEGAL REGISTER
sILLEGAL REGISTER
sILLEGAL REGISTER

= 76

sILLEGAL REGISTER
sJILLEGAL REGISTER 7.
sILLEGAL REGISTER 74
sILLEGAL REGISTER 76

IDXMSK

= 77

sMASK FOR REGISTER INDEX NUMBER

.SBTTL

RH CONTROLLER REGISTER BIT DEFINITJONS

ILRG76

sSKIP SECTOR FAILURE

RMMRT
RMDT
RMSN
RMOF
RME

= 00

sMANUFACTURING DETECTED SECTOR ERROR

:USER DETECTED SECTOR ERROR

=
=1
= 14
= 18

mns

= BIT14

RMDA
RMDS
RMER1
RMAS

RMDC

bgs

:SKIP SECTOR ERROR
:DATA PARITY ERROR

MSE

RMLA

239

= BITO05
= BITO3

:OPERATOR PLUG ERROR
:INVALID COMMAND ERROR
:LOSS OF SYSTEM CLOCK

PROGRAM MNEMONICS

RMCST

694

= BIT13
= BIT12
= BITN

.SBTTL

USE

695

SEQ 0033

= BIT14

SSE
DPE

6
69
69;
69

SK1

OPE
IvC
LSC

s*RMCST CONTROL STATUS REGISTER #1
710
;}1

;

;1
14

= BIT15

.SPEC!AL CONDITION-READ ONLY

MCPE
PSEL
Al

= BIT13
= 817&8
= BIT

;MASSBUS CONTROL BUS PARITY ERROR-READ ONLY
:PORT B SELECT
;ADDRESS EXTENSION

TRE

= BIT14

: TRANSFER ERROR

o T

—

:READY=-READ ONLY
: INTERRUPT ENABLE

:UNIBUS PARITY ERROR

L e LT

T
T

sDATA LATE=READ ONLY

e LY

P =e
S2RGRGRVSIaTRGR
R

ONTROL STATUS REGISTER #2

e L

NN~

n
71

O NS WN=O

sADDRESS EXTENSION

e e

;]'S

V04, 00 28-JAN-82 16:24:51 PAGE 4-7

FINIT IONS

eggs2ges ggg

CZR'DAO RMBO FCINL PT1 MA
RH CONTROLLER REGISTER l

000001

:WRITE CHECK ERROR=READ ONLY
sNONEXISTANT DRIVE-READ ONLY

NMEXISTMT MEMORY=READ ONLY
PROGRAM Mm-um ONLY

HISSED T
FER
:MASSBUS DATA BUS PARITY ERROR-READ ONLY
:0UTPUT READY-READ ONLY
: INPUT READY-READ ONLY
&URJ}ROLLER CLEAR
TEST

WIBUS ADDRESS INCREMENT INHIBIT

SUNIT SELECT

sUNIT SELECT
sUNIT SELECT

SUNIT SELECT MASK

UNTMSK

N
SSRERQ=2
<

) =]

b o

s v

Bng Bim) By Pvn Beart oy

b e

] o] 5

IPCK3
IPCK2

{rasty ey brons

DBL

sADDRESS PARITY ERROR
sDATA PARITY ERROR HIGH WORD
sDATA PARITY ERROR LOW WORD

:WRITE CHECK ERROR HIGH WORD
sURITE CHECK ERROR LOW WORD

-DOUBLE WORD

:INTERRUPT ENABL
:INVERT PARITY CHECK
:INVERT PARITY CHECK
:INVERT PARITY CHECK
:INVERT PARITY CHECK

ONTROLLER REGISTER INDEX VALUES

(=]

WCEMI

. WCELO

OmOMOO®ODOD®D

APE
DPEHI

Hnuannnwonnunn

s*RMCS3 RH70 CONTROL STATUS REGISTER #3

;CONTROL, STATUS REGISTER #1
*WORD COUNT REGISTER

:BUS ADDRESS REGISTER
:CONTROL, STATUS REGISTER #2
*DATA BUFFER
:BUS ADDRESS EXTENSION

768

120254

:CONTROL, STATUS REGISTER #3

N
oo
oSN

:UNIBUS ADDRESS

;UNIBUS VECTOR ADDRESS AND PRIORITY

CZRNDAO RMBO FCTNL PT1 MACRO VO04.00 28-JAN-82 16:24:51 PAGE 5

SEQ 0035

TRAP CATCHER

.SBTTL

000000

=0
;*ALL UNUSED LOCATIONS FROM & = 776 CONTAIN A '.+2,HALT"’

:«SEGUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS
*LOCATIN9 CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS

000174

000174 000000
000176

000200

DISPREG: UMD 8

000000

000137

.WORD

.SBTTL

STARTING ADDRESS(ES)

005426

JMP

% 000204 000137 005416
5

000052

15;%

000210

001100

::JUMP TO STARTING ADDRESS OF PROGRAM

SNSTARTT

s CHANGE RH/RM BUS ADDRESS

ACT11 HOOKS

SRR

~ 000046

s ;SOFTWARE SWITCH REGISTER

aNSTART

JMP
.SBTTL

000212

s :SOFTWARE DISPLAY REGISTER

SWREG:

RN RN TA AN RN

HO“S REQUIRED BY ACT11
S§zPC

sSAVE PC

iE'éAD

ss1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP

.=1100
.SBTTL

AANREAARATARAS

«WORD
-=$SVPC

::2)SET LOC.52 TO ZERO
:: RESTORE PC

APT PARAMETER BLOCK

SRRRRRARARARAARRANANAAACARRAAAAAAAAAAAAAAARANRAAAAAAACAAAARACAAY

SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT
L

;;SAVE CURRENT LOCATION

.=44

:sPOINT TO APT INDIRECT ADDRESS PNTR.

:SET POWER FAIL TO POINT TO START OF PROGRAM
;FOR APT START UP

$APTHDR ::POINT TO APT HEADER BLOCK
.=.8X
:;RESET LOCATION COUNTER

Be e

'...

$X=.

=24

001100

SETIP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC

:INTERFACE SPEC.
1100
1100
1102

1
11
1

1222
slo
4
24

112 00111%

SAPTHD:
$HIBTS: .
SMBADR: .WORD

gflk

TAGADR

ETEND-SMAIL/2

$TSTM:
.WORD
S$PASTM: .WORD
SUNITM: .WORD

-WORD

.
8.
.

::TWO HIGH BITS OF 18 BIT MAILBOX ADDR.
;;ADDRESS OF APT MAILBOX (BITS 0-15)

s;RUN TIM OF LONGEST TEST
ssRUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)
"ADD%TIM RUN TIME (SECS) OF A PASS FOR EACH ADDED UNIT

~;;LENGTH MAILBOX-ETABLE (WORDS)

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 6

COMMON TAGS

.SBTTL

COMMON TAGS

SRR ARAAAAAAARA AR AAAA

AR AR AAAAAAARAAAAARAAARAARAAARA
ARG S

tTHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS

.=TAGADR

STSTNM: .BYTE

s :START OF COMMON TAGS

—=O00O0O00

SCMTAG:

ssCONTAINS THE TEST NUMBER
s CONTAINS ERROR FLAG
: sCONTAINS SUBTEST ITERAUW COUNT
: sCONTAINS SCOPE LOOP ADDRESS
;s CONTAINS SCOPE RETURN FOR ERRORS
s CONTAINS TOTAL ERRORS DETECTED
:sCONTAINS ITEM CONTROL BYTE
: sCONTAINS MAX. ERRORS PER TEST

::CONTAINS PC OF LAST ERROR INSTRUCTION

::CWTAINS ADDRESS OF °‘GOOD* DATA

$BDDAT: .

SAUTOB: .BYTE
SINTAG: .BYTE

33
[N
(=11

WORD

SWR:
.WORD
DISPLAY:

$TKS:

177"? v

..CMTAINS ADDRESS OF °‘BAD® DATA
;s CONTAINS 'GOOD* DATA

D000

$GDDAT: .WORD

..RESERVED-MT TO BE USED
ssAUTOMATIC MODE INDICATOR
s INTERRUPT MODE INDICATOR

::ADDRESS OF SWITCH REGISTER
:sADDRESS OF DISPLAY REGISTER
ssTTY KBD STATUS

SWR
DISP

:sTTY KBD BUFFER

$:TTY PRINTER STATUS REG. ADDRESS

&
VNN

<""’2§
— N

ViV

sl enal ol emd

33 e
§§§§§§§§5§§ 33

001114

ond @

2:TTY PRINTER BUFFER REG. ADDRESS

:2CONTAINS NULL CHARACTER FOR FILLS

212

377

--coumns # OF FILLER CHARACTERS Rewlgt.eo

T NSERT FILL CHARS. AFTER A "LINE_FEED
2"'TERMINAL AVAILABLE'®

::USER DEF INED

FLAG (BIT<07>=0=YES)

::USER DEF INED

s :USER DEF INED

s sUSER DE INED

s sUSER DEF INED
2sMAX. NUMBER OF ITERATIONS
2:ESCAPE ON ERROR ADDRESS
<207><377><377> ;sCODE FOR BELL
s sQUESTION MARK

377

:2CARRIAGE RETURN

<1S>
<12>

::LINE FEED

l.tttttltttttt't.t.ttt"tttttt"ttl.tltQ*itt!tttt*tttttttttttt'

*SBTTL

APT MAILBOX-ETABLE

CRRARRARARARRAARRANRAAAAAAREARAAAARRTIARAAARAAARRARAAACRAAAARCACRS

* EVEN

SRR LS a RN SR YERNNB IR
)=

O~NO

b e

NN NS

::dh‘-‘-‘dh‘-‘;r‘-‘c;-hdtzi:;n:::-h‘-‘-h‘-‘-‘-h‘-‘-h‘-‘
NI SNSNN
wvivaunaun
— be

83883883338838883388283383888338888883328

:+USED IN THE PROGRAM.

$MAIL:
$MSGTY: .WORD
$FATAL: .WORD
S$TESTN: .WORD

AMSGTY

AFATAL
ATESTN

T _MAILBOX

..HESSAGE TYPE CODE
:.FATAL
;;TEST

SEQ 0037

CZRNDAO RM8O FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 6-1

APT MAILBOX-ETABLE

881
1

$SPASS:
.WORD
SDEVCT: .WORD

881 4
124

SMSGLG: .WORD
SETABLE:

001
001

00126

SUNIT: .WORD
$SMSGAD: .WORD
000

00124
001244

mggg

001250

000000

NV:

.BYTE

SENVM:
.BYTE
$SWREG: .WORD

007 "8 000000

SUSWR:

.WORD

SCPUOP:.WORD

APASS
ADEVCT

; :PASS COUNT
SDEVICE COUNT
$3170 UNIT NUMBER

AENVM
ASWREG

: ;ENVIRONMENT MODE BITS

ACPUOP

1 -11=
éhs
11/
/os=oz mzo:os 11/40=04,11/45=05
PDOS

AUNIT
AMSGAD : {MESSAGE mness
*MESSAGE LENGTH
AMSGLG
$IAPT emnmnr TABLE
* SENVIRONMENT BYTE
AENV

AUSWR

e
:t

;t
%

000
000

..usen SWITCHES

CPU TYPE, omous

T 1REAL Tl

omzsg
00125

*APT SWITCH REGISTER

$MAMS1: .BYTE
SMTYP1: (BYTE

AMAMSI
AMTYP1

T
BIT

9=FLOATING POINT PROCESSOR
va MANAGEMENT

001270
001272
001274
881 76

oooogo
120254
ogogoo
176700

ooSooo

g%%%%
000000
1306
000000
oomg131
1314
1316
881

831 %
1326

000000
000000

SMAMS2: .BYTE
SMTYP2: .BYTE
SMADR2: .
SMAMS3: .BYTE
SMTYP3: .BYTE
SMADR3: .
SMAMSG: .BYTE
SMTYP4: .BYTE

AMAMS
AMTYP
AMADR
AMAMS
AMTYP
AMADR
AMAMSS
AMTYP4

: .WORD
SVECT1: .WORD
SVECT2: .WORD
:

.WORD

AVECT1
AVECT
ABASE

SDEVM: .WORD ADEVM

SChU2:
woAD
ACDUD
$DDWO:
.WORD
»335
$ODW1: .WORD
ADDW1
sooug:
$DDW3:
$DDW4:
$DDWS:

-WORD
.WORD
.WORD
.WORD

ADDW,
ADDW
ADDW&
ADDWS

$ODW7:
.WORD
SETEND:

ADDW

$DDW6:

.WORD

ADD

*ADDRESS ,BLK#2
:
LBLKA3
“ADDRESS ,BLK#3
HIGH ADDRESS.M.S.BYTE
MEM.
BLK#G
HIGH ADDRESS M.S.BYTE

:MEM.LAST ADDRESS ,BLK#4

RRUPT VECTOR#1,BUS PRIORITYA1

RRUPT vscroméus PRIORITYA2

g
mm

000
000
000000
000
000
000000
000
000

AMADR1

maEE

001256
001257
001260
001 6;
00126
001264
001266
001 97

* %

h.uom: .WORD

Puo ot

000000

.o!.!..o.o‘u..!o.o.o.t.
9090
%a %0 %0 %

001254

%e B

ussceogxgss OF EQUIPMENT UNDER TEST
DEVI
CONTROLLER DESCRIPTION WORDA#1

CONTROLLER DESCRIPTION WORD#?2
TOR WORDAO

DEVICE DESCRIPTOR WORDA4

sDEVICE DESCRIPTOR WORDAS

::DEVICE DESCRIPTOR WORD#6

::DEVICE DESCRIPTOR WORDA7

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 7

SE@ 0038

USER DEFINED TAGS

.SBTTL

USER DEFINED TAGS

001§ 6 000000
001
000000
001332 000000

CHGADR: .WORD
0
MANUAL:
.WORD
O
XXDP:
.WORD 0

s CHANGE RH/RM BUS ADDRESS = =1

001%%’-

LSTRK:

:LO BYTE= 0

001335

000

.BYIE
.BYTE

0
0

CHANGE = 0
:ENABLE
MANUAL
INTERVENTION
TE§T(S)
=1
:THE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHICH

:THE PROGRAM WAS LOADED. THE
M‘SH
W
BYTE CONTAINS THE
: 'XXDP* DEVICE CODE FOR THE
3'1‘02?;‘5&'41“35 L?gT TRACK ADDRESS OF UNIT

sTHE REGISTER INPUT BUFFER IS USED FOR

:STORING DRIVE STATUS

001336

GETBUF:

001336 000000
0013420 000000
001342 000000

RMCS1I: .WORD
RMWCI: .WORD
RMBAI: .WORD

O
O
8

;CONTROL, STATUS REGISTER #1
*WORD COUNT REGISTER
:BUS ADDRESS REGISTER

001

RMCS21: .WORD

$CONTROL, STATUS REGISTER #2

-WORD

RMSNI:

.WORD

001344

000000

001352
090000
001354 000000

88323 000000

001362
oooooon
00004
001364 000000
001366 000000
001370
001372
001374

000000
000000
000000

%}%3 00000¢
001402
88%%
1404 000000
1406 000000
1410

000000

;REGISTER INPUT BUFFER

RMDAI:

.WORD

NmeRi:
‘ORD 0
RMASI: .WORD O
m”u:
.uonom" 0
RMDTI: .WORD 0
RMOFI:
RMDCI:
RMHRI:

.WORD
.WORD
.WORD

O
8

RMER f‘ -WORD 8
RMECTI:
.WORD O3
RMEC2I: .WORD
wm\gi: .WORD
RMCS3I: .WORD

:DISK ADDRESS REGISTER

52%5
SE%I‘s’?s"‘fi%s""
SATTENTION SUMMARY REGISTER
o%\ g’mgREGISTER

*MAINTENANCE
REGISTER #1
:DRIVE TYPE REGISTER
*SERIAL NUMBER REGISTER

*OFFSET REGISTER
*DESIRED CYLINDER REGISTER
*HOLDING REGISTER

"s'fi"geassxtgrgm .
*ECC
POSITION REGISTER
:ECC PATTERN REGISTER

:BUS ADDRESS EXTENSION REGISTER
$CONTROL, STATUS REGISTER #3

:THE REGISTER OUTPUT BUFFER IS USED FOR

*ASSEMBLING DATA GOING TO REGISTER

001412

e14

PUTBUF:
-REGISTER OUTPUT BUFFER

L
RMBAO: .WORD 3
RMDAQ: .WORD 8

T
*BUS ADDRESS REGISTER

RMDSO:

.WORD

:DRIVE STATUSnse* TER

RMASO:

.WORD

RMDBO:
RMMR10:

.WORD
.WORD

14
14

14
1%

RMCS20: .WORD
RMER10: .WORD
RMLAO:

.WORD

*DISK ADDRESS REGISTER
*CONTROL,

STATUS necxsrsa #2

*ERROR REGISTER

msnnon SUMMARY REGISTER
:LOOK AHEAD REGISTER

om BUFFER
*MAINTENANCE REGISTER #1

H;';. PT1 MACRO V04.00 28~JAN-82 16:24:51 PAGE 7-1

SEG 0039

88888888888 5

FREFRTLE ¥

RMDTO:

.WORD

JDR1

RMOFO:
RMDCO:
:

.WORD
.WORD
.WORD

sOFFSET REGISTER
sDESIRED CYLINDER REGISTER
sHOLDING REGISTER

RMSNO:

.WORD

RMMR20: .WORD
RMER20: .WORD
RMEC10:
RMEC20:
0:
RMCS30:

.WORD
.WORD
.WORD
.WORD

REGI

s SERIAL MER REGISTER

8
0
8

sMAINTENANCE REGIsTER 2
sERROR REGISTER
#.

sECC POSITION REGISTER
sECC PATTERN REGISTER
sBUS _ADDRESS EXTENSION REGISTER
sCONTROL, STATUS REGISTER #

sEACH WORD OF THE TEST QUE CONTAINS THE DEVICE NUMBER IN
-

:THE LOW BYTE AND THE ATTENTION BIT IN THE HIGH BYTE. THE
;FIRST WORD CONTAINS THE ADDRESS OF THE DEVICE UNDER TEST

wiLn

888

238

é"no '('I.FE ;'A'gl.swA ZERO WORD IS A BLANK AND REPRESENTS THE

CZRNDAQ

USER DEFI

TSTQUE: .uono 0
-BLK 3

.coumns DEVICE POINTER
:TEST QUE FOR DEVICES UNDER TEST

CLKADR: .WORD

CLKVCT: .WORD

:TABLE

TERMINATOR GOES HERE WHEN

:ALL 8. DEVICES ARE UNDER TEST.

;UNIBUS ADDRESS OF KW11 CLOCK

*VECTOR ADDRESS OF KW11 CLOCK

;THE GET INDEX TABLE CONTAINS A BYTE LIST OF REGISTERS WHICH
*ARE READ BY THE GET SUBROUTINE. THE LIST IS TERMINATED BY
A NEGATIVE BYTE

GETINX: .BLKB

23.

;GET INDEX TABLE

:THE PUT INDEX TABLE ICONTAINS A BYTE LIST OF REGISTERS WHICH

*ARE WRITTEN BY THE PUT SUBROUTINE.
*A NEGATIVE BYTE.

PUTINX: .BLKB

sPUT TAGS HERE

23.

THE LIST IS TERMINATED BY

:PUT INDEX TABLE

F%&E”’ MACRO V04.00 28-JAN-82 16:24:51 PAGE 8
.SBTTL

ERROR POINTER TABLE

tflflS TABLE CONTAINS THE INFORMATIONFOR EACH ERROR THAT CAN OCCUR.

*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN

'LOCATIW SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE lS PERTINENT.

*«NOTE1:
*«NOTE2:
-

$:POINTS TO THE DATA

:;POINTS TO THE ERROR MESSAGE

$:POINTS TO THE DATA FORMAT

1 001574

IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRP
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS sxmmeo AS FOLLOWS:

$ERRTB:
;ERROR

574
576

070112
074256

EMT1
ENT1

074476

EFT1

600 omge

070116
74256

EMT2
EHT1

076476

EFT1

074406

nd ad renh oeel

070124
074256
0744
074476

74256
mge
74476

DEVICE WENT NONEXISTENT

EMT3
ENT1
EDT1
EFT1

:ERROR

o7o1g2

DEVICE WENT UNAVAILABLE

EDT1
:ERROR

4
6
0
2

WRONG UNIT SELECTED

EDT1
:ERROR 2

604

$:POINTS TO THE DATA HEADER

;ERROR

EMT4

ENT1
EDT1
EFT1

14
7425

EMTS
EHT1

74476

EFT1

74406

CONTROLLER NOT READY

DRIVE NOT READY AND GO NOT RESET

EDT1
;ERROR

UNEXPECTED VALUE FOR '‘ATA'' STATUS

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28~JAN-82 16:24:51 PAGE 8-1

SEC 0041

ERROR POINTER TABLE

881 644

070146

EMTO

881 65
1652

76496
074476

EDT1
EFT1

164

874256

;ERROR
001654

001656

070154
000000

e ot

g%
8701 22

stit
167g 074676

§9
01
1676
874222
1 Og 074406
1674
1702

074476

070172
074256

o
EFT1

1714

i
g
1?3 74496
g%

EHT1
EDT1
EFT1

070212
74256
744
74476

INCORRECT FUNCTION CODE

EMT12
EHT1

PARITY ERROR READING REMOTE REGISTERS

EMT13

4
EFT1
sERROR 14

1726
17
17
17

GO NOT RESET BUT DRIVE IS READY

EMTI

;ERROR 13

DRIVE NOT READY BUT GO IS RESET

EMT10

;ERROR 12
1704
1706

BUS TIMEOUT TRYING TO READ OR WRITE REGISTER

EMT7
0

sERROR 11

;ERROR 10
001664

EHT1

TRANSFER ERROR IS INCORRECT

EMT14
EHT1
EDT1
EFT1

;ERROR 15

INCORRECT WORD COUNT

CZRNDAO RM8O FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 8-2

ERROR POINTER TABLE

EMT15
EHT1
EDpT1
eFT1

O;é 6
il
00174
87“%
070

§70‘g6

EMT16

074476

EFT1

INCORRECT BUS ADDRESS

INCORRECT LBT STATUS

076%32
74406
87“76
070

INCORRECT AOE

e
Grdss
07“%
070246

INCORRECT DISK ADDRESS

7“92
INCORRECT CYLINDER ADDRESS

i
sERROR

INCORRECT WLE STATUS

7“%
INCORRECT UPE STATUS

070306

CZRNDAQ RM3) FCTNL PT1 MACRO V04.00 28-JAN-82 16:26:51 PAGE 8-3

ERROR POINTER TABLE

ENT1
EDTI
EFT1

§§§E§§ G

é’é?é“%

INCORRECT WCF STATUS

EMT25
EHT1
EDT1
EFT1

076 56
07646

70316

sERROR

%ié"‘? §7646

INCORRECT WCE STATUS

EMT26
EKT1
EDT1
EFT1
27

INCORRECT MDPE STATUS

EMT27
EHT1
EDT1
EFT1

§76256

746476

INCORRECT DCK STATUS

EMT30
EHT1
EDT1
EFT1

76492

INCORRECT ECH STATUS

372 §§
7

44
4476

DLT SHOULD NOT BE SET

§§2292
74
70358

sERROR

87625

MXF SHOULD NOT BE SET

SEQ 0043

CZRNDAQ RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 8-4

ERROR POINTER TABLE

EOT
EFT1

003132 O7edre
8
84

DTE SHOULD NOT BE SET

002124

070422

R
0021 87“%

INCORRECT HCRC STATUS

INCORRECT HCE STATUS

54
56

INCORRECT FER STATUS

070436
074256
7“96
74476

v aml smnb oD

DPE SHOULD NOT BE SET (NOT A DATA COMMAND)

7eare
SRAR

&
°3$§
¥

pary

LOST ‘MOL’* DURING PACK ACKNOWLEDGE

+ERROR

:ERROR

gosses Grizt

UNSAFE ERROR DURING PACK ACKNOWLEDGE

CZRNDAQ RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 8-5
ERROR POINTER TABLE

002212

105

EFT1

074476

43
14

"OPI'* ERROR DURING PACK ACKNOWLEDGE

EMT43

070476

i 074492

EHT1
EDT1
EFT1

;ERROR

002224

0705
74406

00
109
110
m

‘RMR'* ERROR DURING PACK ACKNOWLEDGE

764476
“ILR'* ERROR DURING PACK ACKNOWLEDGE

70516

4
4

76;56
74 96
74476

118

“ILF** ERROR DURING PACK ACKNOWLEDGE

114

PARITY ERROR WRITING REMOTE REGISTERS

O 0o

i et

COMPOSITE ERROR STATUS IS INCORRECT

who—

—h

3705“
74256
744
744

sERROR

INCORRECT IAE STATUS DURING SEEK COMMAND

SEQ 0045

“

OPI ERROR DURING SEEK - MEDIUM IS NOT ON LINE

OPI ERROR DURING SEE K7MEDIUM IS ON LINE, ASSUME
ON CYLINDER LATCH DI

SEEK INCOMPLETE ERROR DURING SEEK COMMAND

DEVICE CHECK DURING SEEK COMMAND

PIP IS STILL SET AFTER SEEK - SKI IS RESET

ATA DID NOT SET DURING SEEK COMMAND

IVC ERROR DURING SEEK COMMAND - LOST
VOLUME VALID

SEQ 0046

C ZRNDAO RM8OQ FCTNLEPTI MACRO V04.00 28-JAN-82 16:24:51 PAGE 8-7
E RROR PCINTER TABL

EFT1

074476

;ERROR

ERRONEOUS IVC ERROR DIRING SEEK COMMAND VOLUME VALID IS STIL SET

:ERROR

MOL IS ZER0,

DS~

Sox~

002372

SEQ 0047

00%
74
70710

gbaice

Gradge

BUT OPI WAS NOT

REPORTED DURING SEEK COMMAND

74 96
746476

41
41

SSE SHOULD NOT BE SET

4
§

070744
746256

874478
744

DRIVE DID NOT DETECT *‘IVC’* ERROR DURING SEEK
424
426

070754
074256

746476

88 4

74406

DRIVE EXECUTED A SEEK WITH ERROR SET

4
4
44
442

870774
74256
07“96
074476
UNEXPECTED ERROR SET IN RMER1
71 14

wnd
b moch

g% gn
5
7“
6

sERROR

008i3s G7adse

UNEXPECTED ERROR SET IN RMER2

CZRNDAQ RM8O FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 8-8

ERROR POINTER TABLE

008482 872498
—

ERRONEOUS ‘‘IAE’'* ERROR DURING RECALIBRATE

ii
744

aed
e ek

“ILF'* ERROR DURING RECALIBRATE
88 474
47
0025

074406

074476

FRR

00250

071050
074256

"OPI'* ERROR DURING RECALIBRATE DUE TO ‘MOL'’' = 0

002504

R=B3J

00%51

074476

‘OPI'' ERROR DURING RECALIBRATE BECAUSE ON
CYLINDER DIDNT DROP
071076

oo
wisw

ol
e e

7“%

QAN

071114
074256
0744

07“%

TEgw

ERRONEOUS "‘IVC'’ ERROR DURING RECALIBRATE - 'WV'' = 1

*'SKI°* ERROR DURING RECALIBRATE

—a

vk Yh el

%\ifii

8888

*'IVC'" ERROR DURING RECALIBRATE - ‘W' = 0

71144
74256

SEQ 0048

CZRNDAQ RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 8-9

ERROR POINTER TABLE

00833

0744
0744
*DVC"* OCCURRED DURING RECALIBRATE

071154

874256
744

07“92

LOST *MOL’'' DURING RECALIBRATE - ‘OPI'' = 0
071
074256
074406
074476
101

LOST “‘VV'' DURING RECALIBRATE - *‘IVC'' = 0

EMT101
EHT1
EDT1
EFT

§76
56
074476

“ATA"* DID NOT SET DURING RECALIBRATE
071 Zg
0742 6
07“76
‘'OM'* DID NOT RESET DURING RECALIBRATE

071232
074256

74406
74476

sERROR

‘PIP'* IS STIL SET AFTER RECALIBRATE

;ERROR

UNEXPECTED '‘ILR'* ERROR DURING RECALIBRATE

SEQ 0049

CZRNDAO RM80 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 8-10

ERROR POINTER TABLE

EFT1

074476

106

UNEXPECTED "RMR'' ERROR DURING RECALIBRATE

EMT106
EHT1
EDT1

EFT1

'UNS’* ERROR DURING RECALIBRATE - AC POWER IS LOW

CANNOT ACCESS MASSBUS CONTROLLER VIA UNIBUS

NONEXISTENT DEVICE

DEVICE NOT AVAILABLE

113

BUS TIMEOUT-NED STATUS FAILURE

EMT113
0
0
0

;ERROR
UUUUUU

+eas

UUUUUU

00000(
000000

114
OO0

002642

UNUSED

SEQ 0050

CZRNDAQ RMBO FCTNL PT1 MACRO V04.00 28-JAN-B2 16:24:51 PAGE 8-11

SEQ 0051

ERROR POINTER TABLE

g‘g

:ERROR 115
00 ;fi 071
074256
00
002740
002742

EDT1

074476

EFT1

:ERROR 116

002744
002746
38 750
752

071374
074256

EFT1

:ERROR

117

002754
33 756

071404
074256

EMT117
EHT1

002762

074476

EFT1

760 omge

002764

071414

88 7

874256

002772

074476

74406

%22
774
776

003002

omgt.
074256
gmoo

074476

gs?
12

714
74256
764
074476

§§

gfig §$2£’°
7“92
14

071444

RMCS2 NOT INITIALIZED BY UNIBUS

EDT1

:ERROR 120

EMT120
EHT1

RMER1 NOT INITIALIZED BY UNIBUS
)

EDT1
EFT1

;ERROR 121

RMBA NOT INITIALIZED BY UNIBUS

EMT116
EHT1
EDT1

074406
074476

240

§2§

EMT115
EHT1

074406

RMCS1 NOT INITIALIZED BY UNIBUS

RMAS NOT INITIALIZED BY UNIBUS

EMT121
EHT1
EDT1

EFT1

:ERROR 122

RMMR1 NOT INITIALIZED BY UNIBUS

:ERROR 123

RMDS NOT INITIALIZED BY UNIBUS

EMT122
EHT1
EDT1
EFT1

EbT1
EFT1

EMT123

CZRNDAQ RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 8-12

ERROR POINTER TABLE

§§; 88 4 0714?4
Sb

124

RMEC2 NOT INITIALIZED BY UNIBUS

EMT124
EHT1
EDT1
EFT1

125

RMMR2 NOT INITIALIZED BY UNIBUS

EMT125
EHTI1
EDT1
EFT1

sERROR

RMCS1 NOT CLEARED BY CONTROLLER CLEAR

RMBA NOT CLEARED BY CONTROLLER CLEAR

%5” i
mi

RMCS2 NOT CLEARED BY CONTROLLER CLEAR

sERROR

RMER1 NOT CLEARED BY CONTROLLER CLEAR

sERROR

RMAS NOT CLEARED BY CONTROLLER CLEAR

SEQ 0052

CZRNDAO RM8O FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 8-13

ERROR POINTER TABLE

RMMR1 NOT CLEARED BY CONTROLLER CLEAR

71556

g;ll:i%
Fésge

RMDS NOT CLEARED BY CONTROLLER CLEAR

124
1

071570
72%56

746476

13 orddng
RMEC2 NOT CLEARED BY CONTROLLER CLEAR

114 §74.32§
7“96
1

142

074476

RMMR2 NOT CLEARED BY CONTROLLER CLEAR

;ERROR
144

71614

gi
i
15 87“76
RMCS1 NOT CLEARED BY ERROR CLEAR

%
g
}g§ 744
07“%
sERROR

168

164

1
172

RMCS2 NOT CLEARED BY ERROR CLEAR

071

0nis38

7“96
074476
141

174

071646
746476

RMCS1 NOT CLEARED BY DRIVE CLEAR

EMT141
EHT1
EDT]
EFT1
142

RMDS NOT CLEARED BY DRIVE CLEAR

SEQ@ 0053

CZRNDAQ RM8O FCTNL PT1 MACRO V04.0C 28-JAN-82 16:24:51 PAGE 8-14

ERROR POINTER TABLE

299

71656

i 1 74492

s *RROR

sERROR

RMER1 NOT CLEARED BY DRIVE CLEAR

144

RMAS NOT CLEARED BY DRIVE CLEAR

145

RMMR1

146

RMMR2 NOT CLEARED BY DRIVE CLEAR

147

RMER2 NOT CLEARED BY DRIVE CLEAR

71 76

’lo 56

074406
074476

ésyo0?1706
%

1
1
1

NOT CLEARED BY DRIVE CLEAR

,§
07“76

%3; 8rias
44
6§

071716
074256

§§§ gn 756

NOU!

74256
744
744

RMEC2 NOT CLEARED BY DRIVE CLEAR

A5
71

+ERROR

MEDIUM NOT ON LINE

SEQ 0054

cZ RNDAD RMBO FCTNL PT1 MACRO Vv04.00 28-JAN-82 16:24:51 PAGE 8-15

ERROR POINTER TABLE

§§§s§ gréces
003274
7

071746

76256

DRIVE FAULT

UNSAFE SHOULD BE SET BECAUSE DVC IS SET

14
1

071772
74256

744
74476
UNSAFE SHOULD NOT BE SET, AC IS LOW

072010

§74i56
74406

074476

VOLUME VALID NOT SET
BY PACK ACK

OFFSET MODE NOT selt BY FFSET COMMAND

OFFSET MODE NOT RESET BY RTC COMMAND

sERROR

160

EMT160

RMOF NOT RESET BY RIP COMMAND

SEQ 0055

CZRNDAO RMBO FCTNL PT1 MACRO Vv04.00 28-JAN-82 16:24:51 PAGE 8-16

ERROR POINTER TABLE

EHT1
EDT1
EFT1

R 07“92

161

RMDA NOT RESET BY RIP COMMAND

EMT161
EHT1
EDT1
EFT1

87425
744
7“92
sERROR

162

RMDC NOT RESET BY RIP COMMAND

EMT162
EHT1
EDT1
EFT1

87“%

: ERROR 163

DATA WAS ECC CORRECTED BUT DOES NOT COMPARE WITH
WRITE BUFFER

gas
87“6
7453

OPI SHOULD NOT BE SET

sERROR

-IVC SHOULD NOT BE SET

JAE SHOULD NOT BE SET

sERROR
072152

167

EMT167

NEM SHOULD NOT BE SET

SEQ 0056

C7RNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 8-17

ERROR POINTER TABLE

EHT1
EDT1
EFT1

m ik

INCORRECT ‘MOL'' STATUS DURING DIAGNOSTIC MODE

m”m

“ATA"* NOT SET DURING RETURN TO CENTERLINE

“ATA’’ NOT SET BY OFFSET COMMAND

%;sgé i
5

31
51

076 6
§7“

746476

RMER2 NOT INITIALIZED BY UNIBUS INIT

%3%%% i
00336 G7dss

RMER2 NOT INITIALIZED BY CONTROLLER CLEAR

SELECTED DEVICE IS IN WRITE PROTECT

;ERROR

CANNOT SET DIAGNOSTIC MODE

SEQ 0057

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28~JAN-82 16:26:51 PAGE 8-18

ERROR POINTER TABLE

003332 874t
fis

3t
;ERROR 177

554

000000
49444

574
57

:ERROR

200

INCORRECT "'PIP'* STATUS DURING DIAGNOSTIC MODE

;ERROR

201

INCORRECT “WRL'® STATUS DURING DIAGNOSTIC MODE

EMT201
EHT]
EDT1

7“6

EFT1
;ERROR

ggas i
87“96

202

72%10

EHT1
EDTY

7“6

EFT1

sERROR 204

"'VV'* WAS NOT RESET BY MAINTENANCE UNIT READY

EMT

7“
7“

EDT1
EFT1
3

ENT

558

ghicte 8ridss

INCORRECT "DVC'* STATUS DURING DIAGNOSTIC MODE

EMT203

7“

§g

INCORRECT °'SKI’* STATUS DURING DIAGNOSTIC MODE

B
EFT1
;ERROR 203

-=RESERVED FOR POWER MONITOR BIT FAILURE=--

72340

EMT205

(YA

EDT1

SELECTED DEVICE HAS A PERSISTENT ‘'SKI'* ERROR

SEQ 0058

RNDAO RMB80 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 8-19

ROR POINTER TABLE

003642

074476

SEQ 0059

EFT?

"LBC" DID NOT SET DURING DIAGNOSTIC MODE

UNEXPECTED LOSS OF "MOL'‘ = MEDIUM IS OFF LINE

"
UNEXPECTED LOSS OF VOLUME VALID - "WV’ =0

5
88 7 7“%

41 5

UNEXPECTED MECHANICAL MOTION - ‘PIP' =

g
7 ’222°
07“6
l‘bb

UNEXPECTED DEVICE FAULT = "DVC'' = 1
704

71
7

072414
76256
744
744

UNEXPECTED SEEK INCOMPLETE ERROR - °*'SKI'* = 1

DRIVE EXECUTED A RECALIBRATE WITH ERROR SET

CZRNDAQ RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 8-20

SEQ 0060

ERROR POINTER TABLE
427

lzgg

;ERROR 215
74

7 4

EMT215

76506

EDT

4§§

EFT

:ERROR 216

744

07247

S b
()7“96

g7
7
0037

072502

876226
87“96
74476

2;2

i
EFT

;ERROR 217
INCORRECT “'IAE'* STATUS
EMT217
:
EHT]
EDT1
EFT1

;ERROR 220

764

072512

772

074476

439

4‘2?

776

INCORRECT °*WLE'' STATUS
1220

072522

221

445

2‘

INCORRECT "'OPI'* STATUS

sERROR

;

EMT221

8 et
24“

EFT?

;ERROR

INCORRECT ''IVC'* STATUS

EMT216

0037,
ll:ig

DRIVE DID NOT DETECT *‘IVC'' ERROR DURING RECAL IBRATE

222

725

EMT222

7“%

EFT1
;ERROR

223

RM80 DID NOT DETECT RMR ERROR

RM80 DID NOT DETECT PARITY ERROR ON MASSBUS CONTROL BUS

224

SSE NOT DETECTED DURING DATA TRANSFER

§§5§3§ i
*'SSEI'* NOT RESET BY END OF TRACK DURING DATA TRANSFER

%i% i
*'SSEI'* SHOULD BE SET AFTER DATA TRANSFER

ulis gaee
004 S 07“76

aaa

456

SSE WAS DETECTED W/ SSEI SET

§§z§ i
WRONG UNIT SELECTED

INCORRECT ''OPE‘’ STATUS

EDT11
EFTIN

232
§H1232

UNUSED

SEQ 0061

RNDAQ RMBO F%T&EPH MACRO V04.00 28-JAN-82 16:24:51 PAGE 8-22

233

UNUSED

§M233

234

UNUSED

00000C
FRL

128
14

i
.

236

RRae

000000

154
180

UNUSED

237

UNUSED

240

UNUSED

;ERROR

261

UNUSED

sERROR

262

UNUSED

000000

000004
000000

186 900000
1
1?7

4
4

000660

00000

144

1
4

pRRRe

[=1l=1-)

UNUSED

[=lelole]

235

000000
000000

7
176

000000

00000¢

SEQ 0062

CZRNDAQ RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 8-23

ERROR POINTER TABLE
492 88"'

&
1

:ERROR

499
5

UNUSED

[=1=T=1-)

501 004 gg

004340
004

004242

gO
0
504

UNUSED

(=111

004;14

496
497
498

243

(=1=1~1-]

493
494
495

sERROR

246

"ATA'* NOT RESET BY GO WHEN "ERR'' = 0

EHT§66

072676
74256
74406
074476

EHT
EDT1
EFT1

“ATA'* NOT RESET BY WRITING RMAS

072706

876256
7“96
074476

sERROR

“'ATA'* WAS RESET BY GO WHEN "ERR'' = 1

gifli‘e’
7“96
74476

PROGRAM INTERRUPT WAS NOT GENERATED

SEQ 0063

RNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 8-24
ROR POINTER TABLE

004274

EHY§51

0727

fi% §7‘ ¢

ENT
EDT
EFT

74416
74506

514

252

oo:.§3«§

004

00431
00431

EHT?Z

072768

7427

EHT
EDT
EFT

§7“16
74506

517
518

519

253
004314
004316

004
004

g§?
522

074406
074476

EDT1
EFT1

:ERROR

072766

332

074476

0035

INCORRECT “'ILF'* STATUS

74256

Oredoe

S§3
524

INCORRECT “'ATA'* STATUS

- 004
004;?6. 072776
074256
gggzg

S§8
siz
-

074406
074476

INCORRECT "'ILR'* STATUS
4

52
5

OFFSET MODE WAS NOT RESET BY WRITING RMDC

EMT253
EHT1

072750
074256

004324

PROGRAM INTERRUPT SHOULD NOT HAVE BEEN GENERATED

072
0745

INVALID IAE STATUS DURING SEARCH COMMAND

54 73216
74256

74476

260

004364

073030

EMT260

*IVC'* WAS NOT DETECTED DURING SEARCH COMMAND

SEQ 0064

CZRNDAO RMB0 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 8-25

ERROR POINTER TABLE

s G
B

DRIVE EXECUTED SEARCH WITH ERROR SET

i i

"LBC'* ERROR NOT SET DURING DIAGNOSTIC MODE

*SKI'* ERROR DURING SEARCH COMMAND

*IVC'* ERROR DURING SEARCH = LOST VOLUME VALID

%fi% i
&%‘“fi i
i

004454

073154

ERRONEOUS IVC ERROR DURING SEARCH - VOLUME IS VALID .
H
]

DEVICE FAULT (DVC) DURING SEARCH

267
EMT267

EN SET BECAUSE CYLINDER

OQN

vV
v

CZRNDAO RM80 FCTNL PT1 MACRO VO04.00 28-JAN-82 16:264:51 PAGE 8-26

i
fs

EHT1
EDTI1
EFT1

B8 A

270

OPI ERROR DURING SEARCH BECAUSE MOL = 0

EMT270
EHT1
EDT1
EFTT

&gfi07“%

OP1 ERROR DURING SEARCH BECAUSE ON CYLINDER

DIDN'T DROP

%é i
LOST MOL DURING SEARCH, OPI IS NOT SET

PIP STIL SET AFTER SEARCH

sERROR

PARITY ERROR OCCURRED WHILE WRITING REMOTE
REGISTERS BUT MXF DID NOT SET

MXF ERROR - COMPOSITE ERROR OCCURRED BEFORE DATA
COMMAND STARTED

sERROR

*OPI'* ERKUR DURING DATA TRANSFER BECAUSE 'MOL'’ WAS

SEQ 0066

cZ RNDAQ RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 8-27
ERROR POINTER TABLE

28]
5
5
5
586

ZERO

00433 07“92
s

277

004554

074476

004572

g95

073342

074476

LX)

574

*'IVC** ERROR DU!ING DATA TRANSFER BECAUSE VOLUME

WAS NOT VALID

874256
74406

;8
-

YLINDER DIDN'T DROP OR 2) SEARCH TIMED OUT OR
) RUN TIMED OUT

EFT1

sERRCR

356
s

"OPI'* ERROR DURING DATA TRANSFER BECAUSE 1) ON

EMT277
EHT1
EDT1

073

soizs 87:3%"
562

350

EMT276
EHT
EDT1
EFT1

73310

ERRONEOUS '‘IVC'' ERROR DURING DATA TRANSFER - VOLUME
IS VALID

§7£2 6
7“96
“ILR’* ERROR DURING DATA TRANSFER

gm&‘s
7464

sERROR

“ILF** ERROR DURING DATA TRANSFER

gm%
742

‘RMR'* ERROR DURING DATA TRANSFER

g
74406

SEQ 0067

C 4 RND.AQ RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 8-28
E R ROR POINTER TABLE

004632

305

?6'

Bile 07“92
882648

;ERROR

*'SKI'* ERROR DURING DATA TRANSFER

:ERROR

DRIVE DID NOT DETECT SKI ERROR DUE TO CYLINDER

73454
o 746256
5§ 87“

00465
610
611
612

004654
656

fig
_

746476

073426
8762 6
74406
074476

613

614

DEVICE FAULT DURING DATA TRANSFER

664 074256
073504
72

619
618

87“06
074476

:ERROR
76
76
7

INCORRECT *'IAE'* STATUS DURING DATA TRANSFER

EMT305

§rases
0

EFT1

074476

604

LOSS OF BIT CLOCK DURING DATA TRANSFER

073516
074256
746406
74476

LOSS OF SYSTEM CLOCK DURING DATA TRANSFER
706
n

073530
76256
744
74476

§4 716 073542
7

746256

UNSAFE ERROR DURING DATA TRANSFER (DVC = 0)

SEQ 0068

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 8-29

ERROR POINTER TABLE

;ERROR
724

314

DRIVE TIMING ERROR DURING DATA TRANSFER

g 1
3

074476
WRITE LOCK ERROR

073574

74
762

874406
074476
ERRONEOUS WRITE LOCK ERROR

744
;S
004 752

07
074256
074406
074476
HEADER CRC ERROR DURING DATA TRANSFER

754
75

8736;0
74256

74476

g7g§ 87“06

FORMAT ERROR DURING DATA TRANSFER

sERROR

HEADER COMPARE ERROR DURING DATA TRANSFER

sERROR

HEADER ERRORS SHOULD NOT BE SET

222

% i grigse
7 87“96

.33

7“92

SEQ 0069

FgT&EP" MACRO V04.00 28-JAN-82 16:24:51 PAGE 8-30

323

O7asse
o7
744

034

5042

073700
074256
0744
074476

655

DATA CHECK ERROR DURING DATA TRANSFER

EDT1
EFT1

CORRECTABLE DATA CHECK ERROR DURING DATA TRANSFER

EMT324
EHT1
EDT1
EFT1
325

654

EMT323
EHT1

324

g i

UNCORRECTABLE DATA CHECK ERROR DURING DATA TRANSFER

EMT325
EHT1
EDT1
EFT1
DATA PARITY ERROR DURING READ COMMMAND

73712

74478
OFFSET MODE NOT RESET BY WRITE COMMAND

S
B i
s

DATA PARITY ERROR DURING WRITE COMMAND

WRITE CLOCK FALURE DURING WRITE COMMAND

SEQ 0070

SEQ 0071

ROR POINTER

0737
&s 005106
1
76222
1
5N

07377
- 005114
511 74 52
7
1

675

DATA LATE ERROR DURING DATA TRANSFER

333

PIP STIL SET AFTER DATA TRANSFER - SKI = 0

74 96
76476

670
671

332

76476

LOST MOL DURING DATA TRANSFER - OPI = 0
51264

1
1
51

074014

74256
74406
74476
LOST VOLUME VALID DURING DATA TRANSFER - IVC

074032
74

Oréade
3120
S‘Mg 07“%
DATA READ DOES NOT COMPARE WITH DATA WRITTEN

WRITE CHECK ERROR NOT DETECTED

sERROR

340

WRITE CHECK ERROR AT UNEXPECTED ADDRESS

341

INCORRECT DATA DURING WRITE CHECK ERROR

CZRND
4
Agomo FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 8-32
ERROR
POINTER TABLE

SEQ 0072

g%%r g"sfi
74

0745

691

"'IVC*'* ERROR NOT DETECTED DURING DATA TRANSFER

"FER'* NOT DETECTED DURING DATA TRANSFER

7“96
5
§§%§§§
i
5214

0741

*HCE'’' NOT DETECTED DURING DATA TRANSFER

87:.

2
2 5

764150

74256
7“96
764476

S
S
524

*BSE'* NOT DETECTED DURING DATA TRANSFER

HEADER ERROR WAS DETECTED W/ HCI SET

BB
44

0741
74256

744

DATA TRANSFER NOT ABORTED W/ COMP ERROR SET
74174

LOST VOLUME VALID DURING SEARCH = *‘IVC'' = 0

|S—

CZRNDAQ RMB0 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 8-33

ERROR POINTER TABLE

74
74
7
074476

EMT350
EHT]
EDT1
EFT1

;ERROR

74
7

074

719

EFT1
;ERROR

ggfi

“ATA"" DID NOT SET DURING SEARCH

EMT351
EHT1
EDT]

7“

715

351

74234

352

PROGRAM TIMEOUT WHILE TESTING RMLA

gmssz

1 %
1

4!
7

;ERROR

005314

07424

S5 2 ik
876562
gs

S5
4

074 go

i
74692

:
LOOK AHEAD TEST FAILS

EMT35

4
EF?g
;ERROR 354

;55

353

BSE SHOULD NOT BE SET

EMT354

. i
EFT

sPUT ERROR TABLE HERE

SEQ 0073

"
g:

ONO
VIS N -

.SBTTL

SEQ 0074

ERROR TABLE USAGE

: THE em TABLE ABOVE CONSISTS OF FOUR WORD ENTRIES FOR EACH ERROR
EMT - ERROR MESSAGE TABLE ADDRESS
EHT = ERROR HEADER TABLE ADDRESS
EDT = ERROR DATA TABLE ADDRESS
EFT = ERROR FORMAT TABLE ADDRESS
-y

HE EMT ENTRY IS THE ADDRESS OF THE TABLE
MES
OR THE PARTICULAR ERROR.
EACH ERROR MESSAGE TABLE LISTS THE ADDRESS
ONE OR_MORE ERROR MESSAGE STRINGS WHIC
BE F
D BY THE ERROR TYPE SUBROUTINE.
IF T

3R
B

e R

VNN
NN =OOVR NP VSN =

moe

TNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 9

NO MESSAGE TO BE TYPED FOR THE ERROR.

:S IMILARLY, THE EHT, EDT, AND EFT ENTRIES ARE ADDRESSES OF TABLES

:OF HEADER

DATA NO FORMAT INFORMATION FOR A GIVEN ERROR.

EACH ENTRY

T ERROR HEADER TABLE MAY OR MAY NOT HAVE AN ASSOCIATED LINE OF

uoueven

EACH DATA LINE MUST HAVE AN ASSOCIATED FORMAT AND

HEADER. THAT IS, A HEADER LINE MAY BE PRINTED WITHOUT ANY DATA,
:BUT A DATA LINE IS NOT PRINTED WITHOUT A HEADER, AND EACH DATA LINE
;MUST ALSO HAVE A FORMAT.

IN SUMMARY,

EACH NONZERO ENTRY IS THE ADDRESS OF
A TABLE,

EACH TABLE IS A LIST OF ADDRESSES WHICH DEFINES THE LOCATIONS
OF MESSAGE STRINGS, HEADERS, DATA OR FORMAT.

SEQ 0075

S&F

BADTMO: MOV

26
g%
102451 005350
17

éiggsz

: 85

sTHIS ROUTINE HANDLES UNEXPECTED TIMEOUTS

01004

8 8

00245

177777

001326

001326
000000

:SAVE PC WHERE THE TIME OUT OCCURED

-(ROJ
(SP)+,(SP)+

LASCIZ

<cm.r>/un5xP£crEb BUS TIMEOUT, PC=/

'r‘%o :

RO,=(SP)

TYPE
B8R

BR
.SBTTL

S$
5

*ADJUST PC =2
nesroas STACK POINTER

::TYPE ASCIZ STRING
GET OVER THE ASCIZ

:SETUP FOR TYPING OUT PC

;PUT "HALT(0)* INSTRUCTION HERE IF YOU WISH

START

:TO STOP ON UNEXPECTED TIMEOUT.

*BRANCH TO START

START OF PROGRAM

START1: MOV

#-1,CHGADR

:CHANGE RHM/RM BUS ADDRESS

START:

CHGADR
#0

:NO CHANGE IN ADDRESS

CLR
INC

START2: NOP

8NE

RESET

.SBTTL

START2

sTTY LOOP, WAIT FOR INCREMENT

:0F WORD
:RESET THE WORLD

INITIALIZE THE COMMON TAGS

s;CLEAR THE COMMON TAGS (SCMTAG) AREA

NS
SIS

MOV
#SCMTAG,R6
;:FIRST LOCATION TO BE CLEARED
CLR
(R6)+
:iCLEAR MEMORY LOCATION
mp
#SWR,R6
* :DONE?
BNE
=6
$:L00P BACK IF NO
MoV
:smcx
$SSETUP THE STACK POINTER
vsc
FEW
A
:2INITIALIZE
MOV
ogz mot
;::10T VECTOR FOR SCOPE ROUTINE
MOV
@
orvsco 2 :LEVEL
MOV
RROR , 34vsc *;EMT VECTOR FOR ERROR ROUTINE

NNNNNNNNNNNNNYNY

=N\

(SP) ,RO

ST
P

NOP

000404

2
geees
F
£5KR

NN
SN
= O VRNs
NS NN s
= 0000~

VIS
N -

CZRNDAQ RMB0 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 10
ERROR TABLE USAGE

MOV
MOV

0 uémec : :LEVEL
mb US ::TRAP VECTOR FOR TRAP CALLS

MoV
MOV
CLR
CLR
MOVB
MOV
MOV

#340, aPURVEC+
SENDCT,SEOPCT
IMES
SCAPE
n.ssmx
o SLPADR
SLPERR

MOV

MOV
MOV
MOV

(SP) ..s:we ERROR VECTOR
u
$ efimc
T UP ERROR VECTOR
#DSWR
, SWR
..serup FOR A HARDWARE SWICH REGISTER
m:sfioxsmv :3AND A HARDWARE DISPLAY REGISTER

BNE

668"

gu.
17757
17757
177

dtmnmusu .-.-sts
LEmmeu
FAILURE VECTOR
L7

::SETUP END-OF-PROGRAM COUNTE
s3INITIALIZE NUMBER OF ITERATIONS
.:c:.m THE esc»e ERROR ADDRESS
1AL
RROR PER TEST
: mnm. s THE LOOP ADDRESS FOR SCOPE
SETUP THE ERROR LOOP ADDRESS

:;SIZE
FOR A HARDUARE semr
SWITCH
REGIETER. 1F NOT FOUND OR 17 1S
*:EQUAL TO A **~1
roa A SOFTWARE SWITCH REGISTER.
1154
1156
173314

cMP

#-1,356R

..m TO REFERENCE HARDWARE SWR
*BRANCH IF NO TIMEOUT TRAP OCCURRED
;SAND THE HARDWARE SWR IS NOT = =1

CZRNDA0 RM80
PT1 MACRG V04.00 28-JAN-82 16:24:51 PAGE 10-1
F CINL
INIT 1 ALIZE THE COMMON TAGS

ool

648 :
658:

005652
176

12737

668:

158

001585

2737

1427
104401

e @) b

NJSSeRSNIY
E-azagg

000424

CLR
BEQ
MOV

$PASS
:CLEAR PASS COUNT
#APTSIZE,SENVM ..resr USER SIZE unoeu APT
678
YES,USE NON-APT SWITCH
#SSWREG, SWR
PINO.USE APT SWITCH REGISTER

MOV
MOV

177777

(SP)+, aoéamc ..nestons ERROR VECTOR

000042

#BADTMO mvsc :SETUP FOR UNEXPECTED TIMEOUT
#PR6,ERRVEC+

CMP

8EQ
TYPE
6&2”

.ASCIZ

gsww.mz
&sgs

TST

001242

000001

001154

000176

001150

BNE
CMPB
BEQ

kgsz OVER THE ASCIZ

FUNCTIONAL TEST, PT 1a<CRLF>

SOF TWARE SUITCH REGISTER

708
;5"“.01

::ARE WE RUNNING UNDER XXDP/ACT?

:.BMNCN IF YES
::ARE WE RUNNING UNDER APT?
s sBRANCH IF YES

cMp

SWR,#SWREG

gsm

718

22GET SOFT=-SWR SETTINGS

#1,8AUT08

2:SET AUTO-MODE INDICATOR

BNE
708:
718:

ssACT=
1?
:sBRANCH IF YES

s:TYPE ASCIZ STRING

<CRLF>SCZRNDAO -

.SBTTL GETVAI.lE“:

000042

;LEVEL 6

.SBTTL _TYPE PROGRAM NAME
;:TYPE THE NAME OF THE PROGRAM IF FIRST PASS
INC
l-l
ssFIRST TIME?
BNE
s sBRANCH IF NO

005754

000001

::BRANCH IF NO TIMEOUT
“3SET UP FOR TRAP RETURN
..Pomr TO SOFTWARE SWR

:SETUP “‘TIMEOUT'' TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS

005334
000300

041512

65;
#65$, (SP)
#SWRES, SWR
#DISPREG,DI

BITB

001244

618737

B8R
m
MOV
MOV

MOV

001

SEQ@ 0076

Movs

718

22SOFTWARE SWITCH REG SELECTED?

:sBRANCH IF NO

;THE FOLLOWING FINDS OUT THE PROGRAM CONTROL MODE:
M= NNNR
NN = NN

INN

N=—= PO

WONO

55: 8

-3\

—

o
b

sPAPER TAPE (MANUAL), ACT11, XXDP CHAIN OR DUMP

000041

g 801335

001332

XXDP
#16,a041
3
a#60, XXDP

BHIS

CMPB

1$:

006136

CLR
(NP8
BNE
MOV

CLRB

#7,XXDP

;CLEAR 'XXDP* LOAD DEVICE STORAGE
.sto FROM AN RM8O?
:BR IF NOT
*GET DEVICE INDICATOR AND NUMBER
.xs IT A VALID NUMBER ?
YES

XXDP

iNO. DEFAULT TO DRIVE 0

2
738
728

*BR IF NEITHER
..me ASCIZ STRING
T OVER THE ASCIZ

CLR
-(SP)
XXDP, (SP)
TYPOS

:CLEAR WORD ON STACK
*GET DRIVE ADDRESS
*TYPE THE ADDRESS

BEQ
TYPE
BR

:CHAIN MODE OR ACT11 AUTO ACCEPT ?

55;3:: LASCIZ <CRLF>/NOT tssni«‘,muve /
MOVB

CZRNDAO RM8O F TNL PT1 MACRO Vv04.00 28-JAN-82 16:264:51 PAGE 10-2
TWARE SWITCH REGISTER
GET VALUE FOR OF
wne

SEQ 0077

4“7 0061;;

i
104401

177777

000410

28:

006216

7is:

10440

% wn 1
SF® RISS~a&S

g;l

wsr TIME THRU HERE ?

75
743

..ms ASCIZ STRING
GET OVER THE ASCIZ

<CRLF>/T0 TEST okive /

CLR
MOovB

-(SP)

;CLEAR WORD ON STACK

.BYTE
.BYTE

*:GET OVER THE ASCIZ
7, HALT PROGRAM, CLEAR LOC. & AND RESTART PROGRAM./<CRLF>

TYPOS

006256

gREgEsEs

INC
BNE

+ASCIZ

TYPE

\ASCIZ

XXDP, (SP)

*GET NUMBER OF DRIVES

Gsr DRIVE ADDRESS

*TYPE DRIVE ADDRESS
SONLY 1 CHARACTER

768

-sumess LEADING ZEROS

+:TYPE ASCIZ STRING

SCHECK FOR AUTO noos OR STANDALONE MODE

000042
000377

;ONLY
1 CHARACTER

$CRLF

TYPE

::758:

sumss LEADING ZEROS
sCR-LF

TYPE

9391 001332

2EISINNAIIIBEIRSR

001217

000460

3§

CRORGC2SIEIRRRER

ol
1

50
21

.BYTE
.BYTE

ST
BEQ
MOV

001300

RWIN?D IN AUTO MODE ?

#377 ,$DEVM

sSET DEVICE MAP FOR ALL DRIVES

STANDALONE

:BR_IF

:PROGRAM IS RUNNING IN AUTO MODE - SEE IF SIZING IS ALLOWED

000200

001243

Xs1Z:

001276
067112

070102

001300

001217

18:

8IT8
BNE

:START FROM DRIVE 0

LSYSTAT

STYPE 'UNIT STATUS:®

$BASE ,RO

8ITs
BEQ

ATNTBL (R1) ,SDEVM
:1S DEVICE PRESENT IN MAP ?
118
:BR
IF ND
SCRLF
*CR-LF

TYPE

000010

's“x,zme ALLOWED ?

CLR
MOV
TYPE

MoV
TYPOS
.BYTE
-BYTE
TYPE

000010

ug‘nLSENVM

Mov
MOV
1ST
BIT

R1,=(SP)

8003

024026

000026

067135

::SAVE R1 FOR TYPEQUT

::so TYPE--OCTAL ASCII

S:TYPE 2 DIGIT(S)
+ :SUPPRESS LEADING ZEROS

JBLNKS4

:TYPE 4 BLANKS

asm
ansszmm

:CLEAR MASS BUS

:LOAD THE DRIVE ADDRESS
*ACCESS DRIVE aesxsrsa

mso.mszmo) +1S
DRIVE PRESENT
*BR IF NO

nwn.mm (RO)

7130
020026

*LOAD THE BASE ADDRESS

mng

:IS DRIVE AVAILABLE ?
:BR IF NO

*ASSUME mo DEVICE

0026.RMDT (RO) :SINGLE PORT
?
YES
IF
:BR
#24026,RMDTCRO) :DUAL PORT RMSO ?
:BR IF YES
2

NOTRM

§s

*DRIVE NOT AN RMBO
*CHECK NEXT DRIVE

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 10-3

SEQ 0078

GET VALUE FOR SOFTWARE SWITCH REGISTER

ooeg

}oo

1 i

832

32760

141;
1

000012

sg 104401 067167

}
536
000402
105
0 104401
109 %&4 3’63127
}§3
552
25
1
556 104401
110 %gzg 3’63227
w
13

;;2

010000

28:

3s:

067

48:

067223

68:

?Z?,Z 001332

78:

390%3’5 001300 5$:
390152 001300

1 :‘m; 001332

4 ; 067152

11
1

BIT

#MOL ,RMDSCRO)

;1S MEDIUM ON LINE ?

TYPE

NOTPRS

:DRIVE NOT PRESENT

)&cw

ghgmeo FROM RMS80 ?

fiooev

:DRIVE IS LOAD DEVICE

BEQ
BR

9:
s

*BR IF NO

BR
TYPE
BICB
BR
TYPE
BICB
BR

§s
*CHECK NEXT DRIVE
NOTAVL
:DRIVE NOT AVAILABLE
ATNTBL(R1),$DEVM
:CLEAR DEVICE FROM BIT MAP
118
:CHECK NEXT DRIVE
UNTOFF
:DRIVE OFFLINE
ATNTBL(R1),SDEVM
:CLEAR DEVICE FROM BIT MAP
9
:PRINT DRIVE TYPE

gza

gop.m

ape

12
104401
067
11 i%g
1822%'
327;;'7'
104401

3::.

TYPE

,UNTON

.BLNKS2

:DRIVE ONLINE

08:

118:

.WORD

*MESSAGE ADDRESS HERE

CMP
BLE

R1.47
1s

}

1 9
g
1

005201

7 000007
1

1 382223 083127 387402

104401

001217

128:

TYPE
TYPE

::';”s‘ }'p"fioTHE DRIVE ?

INC

JMP

TYPE

CMNSTART

SCRLF

sTYPE
2 BLANKS
*PRINT DRIVE TYPE
:

:INCREMENT THE DRIVE ADDRESS
:ALL DRIVES ARE CHECKED ?
SBRANCH IF NOT
sCR=LF

:JUMP TO COMMON START

MA
CZRNDAO RM80 FCT NL PT1 MACRO
V04.00 28-JAN-82 16:24:51 PAGE 11
STANDALONE INPUT ROUTINES

% 006ecé
5

.SBTTL

004737

¢ 808638 831025
8
19 c0sss
066536

177777

i&
1

:
5

740

: i

o
- bN

sINITIALIZE CONSOLE

INC

#-1

sFIRST TIME THRU HERE ?

TYPE

,MSHELP

MOV
CMPB
BNE
TYPE
TYPE
B8R

(SP)+,$TMP1
STMPI.A'Y
1$
,S$TMPI
HELP
s

TYPE

SCRLF

RDCHR

000131

18:

067771
001217

TYPE

BR IF NO

sWANT HELP ?

:GET_RESPONSE
:SAVE AND ECHO RESPONSE

.%s IT A YES RESPONSE ?

STYPE 'y*

*YES = TYPE HELP TEXT

:TYPE °N'

sCR=LF

éges IF USER WANTS TO CHANGE UNIBUS ADDRESS

001326

CHGADR

CLR

CHGADR

BEQ

00132
00121

TYPE

ggNlJGE RH/RM BUS ADDRESS ?
F NO

,SCRLF

:CR=LF

:NO CHANGE NEXT TIME

:DIALOGUE TO CHANGE THE UNIBUS ADDRESS, VECTOR ADDRESS AND INTERRUPT PRIORITY

3s:

367
1276
067777

TYPE
RDOCT
MOV

001176

001276

48:
58:

066641

001272

001176

066650

001176

001272

68:

,BLNKS2
(SP)+,$TMP1

TYPE CURRENT BUS_ADDRESS

: s SAVE

E FOR TYPEOUT

::60 ms-ocm. ASCII(ALL DIGITS)
f 2 BLANKS
GET NEW BUS_ADDRESS
:CARRIAGE RETURN ?

58
#160000,STHP1
4$
CNSLO2
is
$TMP1,$BASE

:TRY
AGAIN
:STORE NEW BUS ADDRESS

TYPE
CLR

,CNSLO3
<(SP)
SVECT1, (SP)

sGET CURRENT VECTOR ADDRESS

MOV

TYPE

,BLNKS2

MOV
BEQ
CMP
BHI
TYPE
B8R

(SP)+,$TMP1
78
#1000, $TMP1
63
gnswl.
5

RDOCT

001176

CNSLO1

iuse.-(sp)

BEQ
cMP
BLOS
TYPE
B8R

TYPOC

067777

001000

TYPE

MOV

TYPOC

066577

PC,STKINT

:SEE IF OPERATOR WANTS HELP TEXT

%037

160000

JSR

BNE

ggw £
-

) bO

0065
30878
0¢

—
b

15
15
19

001176
001176

STANDALONE INPUT ROUTINES

STANDALONE:

064402

SEQ 0079

MOVB ~

STMP1,SVECT1

:YES=SKIP TO NEXT ENTRY

Begf ADDRESS IN 1/0 PAGE ?
:TYPE WARNING MESSAGE

TYPE 2 BLANKS

'GET NEW VECTOR ADDRESS
:CARRIAGE RETURN?
sYES=SKIP TO NEXT ENTRY

VECTM ADDRESS < 1000 ?
SYES!!

TVPE HARN]NG MESSAGE
;RETR

STME NEW VECTOR ADDRESS

CRO V04.00 28-JAN-B2 16:24:51 PAGE 11-1

CZRNDAO RM80 FCT

STANDALONE IW

1
1
1
105
1
1
1
1
110

12
flg

ShaSRINSzNa
CRONON COrRSINGRNRS
7
1
1

TYPE
RDLIN

;ga

000001
000116

800131

.
~

omall wh e

CLR

MOV

wond wrd el

8
28 283883823222 23238328 223883382222
ININIJIINNTS

BRYRRREV8TRITA

71 00

+FIND OUT IF USER WANTS TO DO LOGICAL ADDRESS PLUG TEST

7s:

NNNNNNN NN
SNNNNN
—

SBISIFRNANNITEIRRRAR2S

59 00

SEQ 0080

001330

067047

8s:

177777

os:

10$:

001176
001176

11$:
000101

15737 000377 001300
006356

001176
7

000015

128:

001176

1176
1176

000067

138:

000015

§65;3
1176

001176

sNO MANUAL 1

(SP)+,R0

*SAVE ADDRESS OF RESPONSE

,MSMNUL

&to)

IST8
1(RO)
BNE
8s
CMP8 #'N, (RO)
BEQ
98
.
MOV
#1,MANUAL
CMPB
#'Y,(RO)
BEQ
9s
TYPE
CNSLO9
BR
s

sTYPE ‘PLUG TEST
?
*READ THE ENTRY

BugslnespouesSE A CARRIAGE RETURN ?

*WAS n TERMINATED WITH CARRIAGE RETURN ?
*BR
IF NO
‘WAS n A 'N' RESPONSE ?
:BR IF YES
SSET MANUAL INTERVENTION FLAG
*WAS n A 'Y' RESPONSE?
:BR IF YES
-me * 2ILLEGAL INPUT'’
*RETR

:DIALOGUE TO INPUT DEVICE NUMBERS

067070

012637

MANUAL

000067

067046

148:

117
777

158:

INC

TYPE

#-1
108

:FIRST TIME THRU ?
:BR
IF NO

SCRLF

*CR-LF

,MSDRVS

*TYPE 'DRIVE(S): '

,CNSLO7

CLR

$DEVM

MOV
cMP
“
TYPE
MOV
JWP
(WP
BEQ
TYPE
MP
BLT
CHP
BLE
B8R

(SP)+,$TMP1
STMP1.#°A

'r‘;aem

RDCHR

MOV
MP
BEQ
TYPE
TYPE
cMp
BLT
CMP
BLE
TYPE
BR
MoV

BIC

*TYPE INPUT INSTRUCTIONS

*CLEAR DEVICE MAP

#377,$DEVM
XS12
STMP1,#CR
148
STMP1
§TMP1.4°0
148
STMP1,4'7
15$
148

:GET RESPONSE
:IS INPUT *ATM ?
m
SYES, TYPE [X)"ALL'’[ 1] AND GO
:ser DEVICE MAP FOR ALL DRIVES
:AUTO SIZE.
.cmuee RETURN ?
YES
{ECHO RESPONSE
:NUMBER < 0 ?
*YES
SNUMBER > 7 ?
*NO
*ILLEGAL INPUT

(SP)+,$THP1
STMP1 . #CR
16
,COMMA
S$TMP1
$§TMP1,4°0
148
STMP1, 27
158
CNSLO8
fis

:GET RESPONSE
-cmuss RETURN ?
YES
STYPE
sECHO atsponse
*NUMBER < 0 ?
*YES
SNUMBER > 7 ?
*NO
N
..
STYPE cn-u 2ILLEGAL INPUT
*RETRY

$TMP1,R1

:R1 = DRIVE NUMBER

#4C7.R1

“gACRO v04.00 28-JAN-82 16:24: 51 PAGE 11-2

806395 861380
16%:
808356

81s8
CMPB
BHI

ATNTBL

JMP

Xsiz

TYPE

(R1)
, SDEVM

SEQ@ 0081

237 SOEVA

;

,SCRLF

*CR=LF

;SET DEVICE IN MAP

160 SIZE DEVICES

CZRNDAO RMBO FC TNL PT1 MACRO V04.00 28-JAN-G2 16:24:51 PAGE 12

SEQ 0082

55335

CMNSTART

§0EWM.
%0

gdd
SSR2P3N

2$:

R1,TST QUE

*INITIALIZE ENTRY POINTER

R;.RO

&»H

043246

>O—
s~

‘ 4$:

TYPE

sSIZE FOR _CLOCK

007530

5456
1502

001300

5$:
READY:

STYPE*
SYES - émsa DEVICE NUMBER IN QUE

..SAVE FOR TYPEOUT
:G0 TYPE=-=OCTAL ASCII
..ms 1 DIGIT(S)

:ADVANCE DEVICE POINTER

;ADVANCE DEVICE NUMBER
SENTER NEXT DEVICE
TEWMTE TEST QUE
sTYPE CR-

:SEE IF_CLOCK PRESENT

:YES = CLOCK 1S PRESENT
:;TYPE ASCIZ STRING

TST

g‘Z

s ANY mugm PRESENT ?

START
$GET42

:JUMP TO START
:RETURN CONTROL TO MONITOR

:;6ET OVER THE ASCIZ
cLOCK/

<CRLF>/NO ‘L' OR’ 'P*

SDEVM

843538

$GET42
STSTNM
STIMES

PC,STKINT

#PRS,~(SP)
#6483, -(SP)

64S$:

ESS LEADING ZEROS

Eu ER ATTENTION BIT IN QUE
*ADVANCE ENTRY POINTER

éL

18
START

2$:

= DEVICE NUMBER

'x“s,
THIS DEVICE IN MAP ?

PC,SIZCLK

23
ans2

:R3

Dgsf ALL DEVICES
?

000042

1116
1

: §= DEVICE POINTER

JSR
B8R
TYPE
BR

-ASCIZ

000042

.R1

001217

*R1 = ADDRESS OF FIRST ENTRY IN QUE

INTBL(R3) ,1(R1);

000001

PSP
fr i~ g
b

-t
b O\

Raeas
S20SS

070102
000002

-3

COMMA

g (R1)

-(SP)

7
74

RO = DEVICE MAP
Bflpéf DRIVES TO TEST

:TYPE *NONE *

#TSTQUE+2,R1

1$:

s TYPE 'DRIVE(S) TO BE TESTED'

.cm
NONE

e et

—s

-t

;ASSEMBLE TEST QUE FROM DEVICE MAP

—00—

EELRRERES

S s8ess

NN
8888
NNJNN

g8822s2

ko
od ok
s

NN~ OO0 00 NO N IS WA —

STANDALONE INPUT ROUTINES

sREADY TO START TEST
sANY DRIVES IN MAP ?
sBR IF YES
sANY MONITOR PRESENT ?
:BR IF YES
sJUMP TO START
sRETURN CONTROL TO MONITOR

sRESET TEST
sINITIALIZE NUMBER OF ITERATIONS
sINITIALIZE TTY
ssPUT NEW PS ON STACK
:sPUT NEW PC ON STACK
::POP NEW PC AND PS

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 12-1

SEQ 0083

STANDALONE INPUT ROUTINES

:.9 007650

117737

81 7

7706 1

;17

10440

64
65

1 78

76 01

7710 1 4
60 007714 013746
8

171612

007726

001234

MOVE

@TSTQUE,SUNIT

:CLEAR mssaus contnoL

TYPOS

= UNIBUS ADDRESS

::TYPE DRIVE NUMBER

2304

DEC

Ré

DEC

1376

SELECT RIVE AND SET LAST TRACK ADDRESS

001334
MOV
m‘
fas! m.L
kx
:sET LAST TRACK = 13.
:TYPE mve
NUMBER
TO BE resrencsunm
TYPE
sc|.
;CR=-LF
TYPE
*TYPE *DRIVE'
MOV
iunn-(sn
“:SAVE SUNIT FOR TYPEOUT
.BYTE
.BYTE

005

;LOAD DRIVE NUMBER

Ré

+:60 TYPE=-OCTAL ASCII
*:TYPE 2 DIGIT(S)
*:SUPPRESS LEADING ZE

:THESE TWO LOOPS ARE ADDED TO

SWAIT FOR

TTY

ANOALONE
INpUT ‘RoUT INES CRO v04.00 28-JAN-82 16:26:51 PAGE 13
%

SEQ 0084

-+ :tt.tttttttttt.tttlttt"t"'Q't't'ttt't.t.'t.tttttttttt.ttt'tttt
SRTEST 1

CONTROLLER ACCESS TEST

ig;;?tttttt.ttttlttttt"t't'ttttt.ttttt'ttt.ttl.t.ttttttttttttttt

774
7762

0077es
; 8877
&

007764

0077

144

o12;27
1

1190

15661 001226

oV
MOV

005001

81;766

} 749

SCOPE

NOP
MOV

#STACK 3»

%?85@“.1
#1,$TESTN

CLR

5'1'2"5555&(5"

MOV

00006

:SCOPE CALL

ERRVEC,=(SP)

7 010004 815;37 goosoo oooooc,u
0004
381 12 110123 000001

MOV
MOVE

}i }

?65

. R1 !mgs;figz

=gvv

&ggs ;igg

10 01
11 01

13 0101
333%
013025

1% 0183

MOV

19 81

31%5 000010

MOV

}s o}

} 1

13 1
010160 000022
19 01
01 ;
2
20 01
81
81
12637
1010076
17

f% 018100
02 89 000006
010102 01
. 8}0}% %‘ fir 000004
10114

101
101
101
} }

005737

MOV
MOV

1$:

;:PUSH ERRVEC ON STACK

::PUSH ERRVEC+2 ON STACK

#PR6, ERRVEC+2
R1.RMCS1+1(RO) :MOVE Wl BYTE TO RMCS1
R1,RMWC
RMUC

(RO)
(RO) ng

msé( §,=(sP)
(SP)+ mggmo)

*MOVE WORD COUNT REGISTER
:MOVE BUS ADDRESS REGISTER

::PUSH RMCS2(R0) ON STACK

;MOVE CONTROL STATUS REGISTER

::POP STACK INTO RMCS2(RO)

Rl
(RO)
;MOVE DATA BUFFER
RMDB(RO) ,R2
(SP)+ ,ERRVEC+2
::POP STACK INTO ERRVEC+2
(SP)+.ERRVEC
;;POP STACK INTO ERRVEC
33
:NO BUS TIMEOUT OCCURRED

MOV
. ?g‘r'

fisn.mvec

BNE
JMP
CLR
JNP

28:
-

A1y
OEVICERETRG TESTED
+:SET TEST NUMBER IN APT MAIL BOX
:

MOV
MOV
MOV
MOV
BR

000042

1 ;
137
00541
037 821
137
04150

*START OF TEST
SINITIALIZE STACK POINTER

(SP)+,(SP)+
;ADJUST STACK
(SP)+.ERRVEC+2
2:POP STACK INTO ERRVEC+2

2
START1
SDEVM
$GET42

::POP STACK INTO ERRVEC
;1S MONITOR PRESENT ?

*BR IF YES
*YES=GO GET SBASE
*FUDGE NO DRIVES IN MAP
*RETURN CONTROL TO MONITOR

S ARRARRRRAAARAAERAAAARAACECAARRARAAARNEARAARAAIARARARRCARARCTRASAREY
1

101
1014
1014
101
101
101
101664

LOGICAL ADDRESS PLUGS TEST

SATEST 2

ig;;tltQtlttttttlttttttttttitt'tttl.tt..ttttt.ttitttt'ttttt'ttt't

40
1
1 ;
1
012737

1190
1276
1
1 881 06
2
001226

;; 010172 005737 001330

SCOPE
NOP
MOV
MoV
MOV
MOV
MoV

#STACK 3’
$BASE ,R
TSTQUE ,R1
#1.,STIRES
#2.STESTN

MANUAL

:SCOPE CALL
*START OF TEST
SINITIALIZE STACK POINTER
*RO = UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED
2200 1 érmnon
*3SET TEST NUMBER IN APT MAIL BOX

;DO WANT MANUAL INTERVENTION TEST ?

CZRNDAO RMB0 FCTNL PT1 MACRO V04.00 28~JAN-82 76:24:51 PAGE 13-1
T

SEQ 0085

LOGICAL ADDRESS PLUGS TEST

010176 001555
81
%mr
1
1

40 01

BEQ
MoV
TYPE

10326 001124

013746

MOV

067443
001234

8373

1
1
1

067617

1
1 01
i 1
1

067720
001217
10

1
1

§§ 11

18:

338300
001174
og%; 1176

1176

20 1

8838’1'00 000010 28:

10
65 01
69 1
67 01

1174
7; 881176

1176

}

10414
1
1
1 01
1
1

016037
7
7
1
1
05

1041

001176 38:

1174 4$:
1176
1174

::GET DRIVE NUMBER BEING TESTED

0
MINSTR
R2
sgun
1

TYPE

.SCRLF

*CR=LF

.PULL

TYPE
MOV
TYPOS

NSERT
R2,-(SP)

TYPE
RDLIN
TYPE
MoV

RET
.SCRLF
R2,RMCS2(RO)

:TYPE 'PULL LOGICAL ADRS PLUG #0°

;TYPE 'INSERT LOGICAL ADRS PLUG #'
..sms R2 FOR TYPEOUT
*TYPE UNIT TO BE ADDRESSED
..so TYPE==OCTAL ASCII

BYTE
BYTE

1
0

MoV
MoV

#OPE
, STHPO :GET EXPECTED STATUS
n!némo) srm :GET RECEIVED STATUS

BIC

BAE

MoV

MOV

CLR
MOV
BIC
BEQ
ENT

1n 99970 831176
001174
001176

*:SAVE SUNIT FOR TYPEOUT

+:G0 TYPE==OCTAL ASCI
SSTYPE 1 DIGIT(S)
+ :SUPPRESS ng.‘ng ZEROS
*TYPE INSTRUCTIONS
MESSAGE
*START WITH UNIT #0
;1S THIS UNIT #0 ?
*NO

#°C<OPE>,$TMP1

EMT

§1 1

1
1
1

hmr.-«sn

:NO==SKIP TEST
:SET ERROR LOOP ADDRESS
STYPE UNIT MESSAGE

TYPOS
BYTE
BYTE
TYPE
CLR
ST
BNE
TYPE

7
m su'm

*:TYPE 1 DIGIT(S)
+:SUPPRESS LEADING ZEROS

*TYPE RETURN WHEN READY
SWAIT FOR <RET> TO CONTINUE
:CR=LF
:ADDRESS UNIT NUMBER IN R2
:IS *OPE'" SET

*BR IF YES

LR,RMCS2(RO) :CLEAR THE MASSBUS
fi.%cm
*SELECT DEVICE FOR TEST
$
;GET EXPECTED STATUS
un (RO) srm .csr. RECEIVED STATUS
>,§TWP1
IS 'OPE SET 2
g
:BR IF NO

231

MOV
8IC
MOV

RMCS2(R0) ,$TMP1 :GET RECEIVED/UNIT ADDRESS BITS
miu SSTMP1 :MASK UNIT An/mss 8ITS
:GET EXPECTED UNIT ADDRESS BITS

Efi?

CMP

MoV
MOV
BIT
BEQ
EMT
BR

srh
is

:WAS CORRECT UNIT ADDRESSED ?
*BR IF YES

),$TMPO :GET RMCS2 STATUS
m ).$TMP1 :GET RMCS1 STATUS
meo 3]
*WAS DEVICE NON-EXISTENT ?
{1
:BR IF NO
111
a3

smmo RMBO FCTNL PT1 MACRO V0%.00 28~JAN-82 16:24:51 PAGE 13-2

SEQ 0086

LOGICAL ADDRESS PLUGS TEST

5 01
1
1

7 004000 001176 58:
1

8IT
BNE

#DVA, STHP1
?s

;WAS DEVICE AVAILABLE ?
*BR IF YES

68:

INC
cMP
BLOS
TYPE
TYPE

R
R2, FUNTMSK
1
xnsenr
$UNIT,=(SP)

;ADDRESS NEXT UNIT
*ALL PLUGS ADDRESSED ?
*BR IF no
STYPE Dlg
sTYPE *INSERT LOGICAL ADRS PLUG #'
*:SAVE
SUNIT FOR TYPEOUT
:GET ORIGINAL DRIVE ADDRESSED
*G0 TYPE=-OCTAL ASCII

106112

1
1
1
9§ 1
93 01
9 01047
1

MOV
TYPOS

BYTE

01
1051

78:

..rm 1 DIGIT(S)

.BYTE

TYPE
CLR
DEC
BNE
DEC
BNE

SCRLF
Ré&
Ré
=2
Ré
=2

TYPE
RDLIN

97 01
g 1
1
10
01
101
01
102
01
}

EMT

LRET

: SUPPRESS LEADING zeaos

*$YPE RETURN WHEN READ
*WAIT FOR <RET> TO counnue

:CR=LF
*THESE ruo I.OOPS ARE ADDED TO
SWAIT FOR
T

.lttt.tt..'tt.tt'.tt't'.'t'ttt..ttl.'ttt.ttttitt.tttttt'lttt't'

iiTEST 3

UNIBUS INITIALIZE TEST

ig;;t.tttttttifit.tttittt"tt'tttttttttt.tltt.tttttttttttt.ttttttt

1
1

1
1
1

40
1

12737

1
10552

89 1010
;

10
10576
.,.,u

109

01064

110
111
”
114

13701
012737
4

1190
1276

001466
1 8815%6
3

7 052466

137
1

011402
;

010610 01
010616
112737
-,:‘
112737
01063¢
737 043016
10636
04
10640
106
1
011402

113 106
A

12737 177777

14
1545
1546 -

quiths’
001454

*START OF TEST
SINITIALIZE STACK POINTER
*RO = UNIBUS ADDRESS

MOV

#3.STESTN

$:SET TEST NUMBER IN APT MAIL BOX

JSR

e &

csucx

MOV
MOV

001226

:SCOPE

NOP
MOV
MOV

BR
NOP
EMT
JNP

tsmé
n sm‘ts

P;.cmcu
1
158

MOV

MOV
MOVB
MOVB
JSR
B8R
NOP
EMT
JMP

MOV

S. . R2
#RMDB,PUTINX

#200,PUTINX+1
PC.PUT
3

158

;60
ISSUE CONTROLLER CLEAR
260 T01 1 NO ERROR

:mumRE IF ERROR
<ERROR
R oemso BY SUBROUTINE
260 TO 158 IF
E
:SET OR AND RESET IR

:WRITE 2EROS IN DATA SILO
:SETUP REGISTER INDEX
.
:60 WRITE REGISTER(S) WITH PUT SUBROUTINE
*GO TO 38 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY PUT SUBROUTINE
*60 TO 158 IF ERROR

SORITE
S1LO AGAIN

#-1.RMER20
-

:(R1) = DEVICE BEING TESTED
::D0 1 ITERATION

*RMER2 = ALL 1'S
:

FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-3
BUS INITIALIZE TEST

1140

001142

NNN

83 58

33333302 33

gone

001142

i qones
001354

001142

- RS

N=NNOO

001346

=2 ANNONY
=
b

13737

(=)
P

114

5$:

DEHOR
TMM

114
1142

1401
104116

L
b

0011

373 06132 oone

83..

SR BFBE FRRIFISR
8

o S

el
ol e

e e

)

e e B

) e

e R

OOO0O0C0

12737
7
1401
115

00114

TM~

L
D
L

D Dl

001336

moO®

13737

S
SR

cnd e

JENSr W W

000

OCO00000
QOO0

COO0OCO0O0

SEAEAROR 2B CRIRNRUR LB SR IGERERDEY

D cnd D

OOO0O00

— e e e d wd

ol D i D ) o

GRCDCM

€

e ol D ) wod ) o

D D o

LSRN
—
RO
COOOOOOOVOOOOOOOD

—e e e o o e e o e e e b

ad
=3

o Be e R

2 § Ba3%: c3efyARTcP2233233 338

% ifl'DAO

SEQ 0087

s
1037

sSET DIAGNOSTIC MODE

,RMCS20

#PUT INX n;

SRMBA, (R2) +
, T (R2)+
#RMER

:R2 = ADDRESS OF INDEX TABLE

aunsni.<u )+

SRMMRT . (R2)

el
g
#200, (R2) +
PC,PUT
4

158
PC,STKINT

(R1) ,RMCS2(RO)
PC,GETSTS
BE.GET

158
RMCS1], SBDDAT
#5C,$80D T

nsi'm‘mm :
DAT,
AT, $80DAT

115

SGDDAT
RMBAI , $BDDAT
78
116

sVERIFY RMBA IS ZERO

RMC ;l +SBDDAT

sVERIFY RMCS2
sEXPECT IR © UNIT NUMBER

sBRANCH IF ZERO

s COMPARE EXPECTED & RECEIVED
sBRANCH IF EQUAL

;VERIFY RMER1
s IGNORE UNSAFE
;BRANCH IF ZERO

sVERIFY RMAS
sCLEAR ALL BUT THIS

CZRNDAO
T

i
1;3 11
170 011172

176
175
};9

011
011 12
11212

1;3 1

11214

1
181
1

11
011
1"

}

SEQ 0088

UNIBUS INITIALIZE TEST

112646

1161

;(Rl).RZ

000001

4
1401
106121

013737

12737
7
1421

001142

R2,$8DDAT

013737
7
12737
7
1401
104125

128:

183
i

1140

001376
14
011
001140

7
14
1 40
‘

1400
0200

10170
001162

SBDS
oo

7
12737
4
1431
104123

DATA BIT

:COMPARE EXPECTED AND RECEIVED
*BRANCH IF 0

;EXPECT ZERO
SVERIFY RMEC2

= 0

RMMR21,$BDDAT

#RQA'RQB,

$BDDAT

;VERIFY RMMR2

;EXPECT TEST,TAG BIT ON

8888

1
i
137

ficzx.saom

é&??gflf WORD CLOCK, SCT, TRK

#TSTI1777,$GDDAT
?gm.sww

wesh emcd emb wwdd

1
1
1
1

$GDDAT

:EXPECT

124

139 11322 005037 001140
7
7

: VERIFY RMMR

118
122

190
011 96
191
011274
19§ 1 s
193
01131
194 011 18
}95 1"
1
1
1342
011

RMMR11 ‘SBDDAT

sg»ir.saow

106122
005037

sBRANCH IF ITS 0

~ #MuD, SGDDA

1
114

118:

011250

} 3

lUC!LS.LSYfGBDDAf

} g}} 54 01%2;; 881604
} "
?86124
185

sDRIVES ATTENTION BIT

13s:

SGDDAT

;EXPECT ALL ZEROS

148:

RMDSI,SBDDAT

:CHECK DRIVE STATUS REGISTER

}zg

:DRIVE STATUS IS OK

RMER2I ,$BDDAT
:VERIFY RMER?2
#SKI!DVC,$BDDAT :IGNORE DEVICE ERRORS
}4
*BRANCH IF OTHER BITS 0

#°C<DPR!DRY>,$BDDAT
#DPR!DRY,SGDDAT ;EXPECTED STATUS
sgow.séow :COMPARE EXPECTED © RECEIVED STATUS

15%:

SrARARAAARRAAANANAAAARANARARAAAAAAAAAAAAAAAARARAAARAAAARARACRANACAAS

S*TEST &

CONTROLLER CLEAR TEST

SrRARRARRARARAAAAAAAAAAAAANAAARRAARAAANAAARAAARGEANARAARAARACOARAARCES

11
114
1
114
114
1141
1142

8 ey
114
213

114
n
1144

TS14:
40
1
1
1

#STACK 8’

;

s
052466
04
1

011740

$BASE R
TSTQUE R
#4, STESTN

001226

pg.cmcua
1

18:

sSCOPE CALL
sSTART OF T EST

SINITIALIZE STACK POINTER

‘RO = UNIBUS ADDRESS
*(R1) = DEVICE BEING TESTED
::SET TEST NUMBER IN APT MAIL BOX

;60 xssxs CONTROLLER CLEAR
*60 TO 1$

IF NO ERROR

*RETURN HERE IF ERROR

*ERROR

*GO TO 88

R DEF INED BY SUBROUTINE

IF ERROR

81
112737

101

112737

MOV

1434
1545

1546 -

737

b o md il e wrd d e ed oD cd ek camdB R
b e

U233$6% RRER

ONON

nd cd eed ok wnd e med et

;

38:

8814.16
u.ge
14564
14
161
00142

1127
1
1127

nd et
nd ot e

1
12737
1
12737
12737
81 7
12737
01270,

JSR
BR
NOP
EMT
JMP
DEC
BNE
MOV
MOV
MOV
MOV
MOV
MOV
MOV

MOVB
MOVE
MOVB

1127

MOVB

883‘
03
082 40
1
0004

JSR
BR
NOP
EMT
BR

004737 052466
04
40
1
137
011740
7 062462

4S:

5$:

737 042546

04
40

137
011740
737 052604
05
4
137

MOVB

MOVB
MOVB

11
11

MOV
MOVE

011740

012737 000000 001412
8%{37 044416
03

JSR
B8R
NOP
EMT
JMP
JSR
JSR
B8R
NOP
EMT
JMP
JSR
BR
NOP
EMT
JSR
JMP
MoV
JSR
BR

S..R2

RMDBO

#RMDB,.PUTINX
#200,PUTINX+1

P;.Pur
3

SEQ 0089

:WRITE
ZEROS IN DATA SILO
:SETUP REGISTER INDEX
;60 m;s REGISTER(S) WITH PUT SUBROUTINE
*GO TO 38 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY PUT SUBROUTINE
*GO TO 88 IF ERROR
*DECREMENT COUNT
“AND WRITE SILO AGAIN IF NOT DONE

ag
R
2s
-1,
#-1.RMER10
#-1.RMER20
mg'”eu RMMR10
577 ,RMCS10
1037.RMCS20
#PUTINX ng
:R2 = ADDRESS OF INDEX TABLE
#RMBA, (R2)+
#RMERT, (R2)+
Mn;.(n )+

#RMMRT.(R2)+
#RMCS1.(R2)+

A#RMCS2.(R2)+

#200, (R2)+

PC,PUT
11

78
Pg.curcu
5
8s
PC,GETSTS
PC,GET
&3
2%
PC,CLRSTS
7
PC,a(SP)+
8s
#NOP,RMCS10
PC,SECERR
8s

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE
*GO TO 4$ IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY PUT SUBROUTINE

;60 ISSUE
CONTROLLER CLEAR
:60 TO 5S IF NO ERROR
*RETURN HERE IF ERROR
*ERROR NUMBER DEFINED BY SUBROUTINE
*GO TO 88 IF ERROR
:SETUP TO READ ALL REGISTERS

:60 READ REGISTER(S) WITH GET SUBROUTINE

:G0 TO 68 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY GET SUBROUTINE
*G0 TO 88 IF ERROR
:G0 VERIFY CONTROLLER CLEAR OPERATION
260 TO 7$ IF NO ERROR
*RETURN MERE IF ERROR

*ERROR # DEF INED BY CLRSTS SUBROUTINE

160 BACK FOR MORE ERROR CHECKS
:G0 TO 88 IF ERROR
;CHANGE FUNCTION CODE FOR ERROR CHECK
:60 cussx FOR SECONDARY ERRORS
360 TO 88 IF NO ERROR

—

Lo o

e PR

RNDAO RMSO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-5
ONTROLLER CLEAR TEST

CZRNDAO RMBO FC TNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-6
T4

SEQ 0090

CONTROLLER CLEAR TEST

2;9

gsz

on
1
1

1174

Ts15:

m;o
1276
u.sg

737
052466
04

1
1
1
1
1
- }
1
01

1
1
1
1207
1207,
1
121
1211
1211
1 13
121

121
11 152
13
121

012146

001226

SCOPE
NOP
MOV
MOV
MOV
MOV

JSR

B8R
NOP
EMT
JMP

12737
001412
7
16
04
40
1
137
012146
»

MOV
JSR
BR
NOP
EMT
JMP

112737
112737

MOVB
MOVE

1177
40
11776 1
o }
000137
012146

356 0112012

ERROR CLEAR TEST

' 't.tltttttttttt.t'tttt""ttttt.t.tttltttttttttttttttttttttttttt

01174

354 0117
1

112737
112737

112737
737 042546
4
137

1336
00114
117777

13737
%;37
401

01
?8&3?9

7
7
4 ;
1

001545
001546

1519
151

1520

001142 3$:
001142
1142

114

4$:

140

MOVB
MOVB

MOVB
JSR
BR
NOP
EMT
BR
MOV
CLR
BIC
BEQ
EMT

MOV
BIC
BEQ
EMT

#STACK 39
$BASE R
TSTQUE ,R1
#5,$TESTN

:SCOPE CAI.I.
:START OF TEST
SINITIALIZE STACK POINTER
*RO= UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED
+2SET TEST NUMBER IN APT MAIL BOX

*RETURN HERE IF ERROR
*ERROR
R DEFINED BY SUBROUTINE
:G0 TO 5$ IF ERROR

PC,CNTCLR
1$

:60
ISSUE cournouen CLEAR
:GO TO 1$ IF NO ERROR

A#RMCS1,PUTINX
:SETUP PUT INDEX TABLE
#200,PUTINX+1 :SET TERMINATOR BYTE
#TRE .RMCS10
Pg.mr
5s

:SET RMCS1 OUTPUT BUFFER= TRE
GO WRITE RMCS1 VIA PUT SUBROUTINE
:G0 TO 28 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR DEFINED BY PUT SUBROUTINE
260 TO 58 IF ERROR

#RMCS1,GETINX
#RMCS2.GETINX+1

#200,GETINX+2
PC,GET

:60
m&neexsrms) WITH GET SUBROUTINE
NO ERROR
muan HERE IF ERROR
*ERROR # DEFINED BY GET SUBROUTINE
1]
*SKIP REST OF TEST
mcsu.saoon
;CHECK TRE & MCPE
SGDDAT
EXPECT 0°S
#*C<TRE'NCPE>, SBODAT
4
aamcu IF TRE & MCPE= 0
137
RMCS21,$BDDAT :CHECK RMCS2
#C<WCE
'UPE 'NED | PGE 'MXF !MDPE> , SBDDAT
[
140

58:

'tt'tttttttttttttttttttttt'ttttttitttttttttttttttttttttttt'tttt

LATEST 6

012146

PC,a(SP)+

;RETURN HERE IF ERROR
*ERROR # DEFINED BY SECERR SUBROUTINE
GO BACK FOR MORE ERROR CHECKS

ttttttttttttt'tttttttttt'ittttttttttt'!.tttttttttt.tt.!tttftttt

ATEST 5

8117
1174
40
11744 01
117;2 1
11754
013701
- 11760 012737

NOP
EMT
JSR

DRIVE STATUS TEST

‘AR RARARRERRAARARAAAAAR
RN ARARANAAARAANARRANRRARANARCANRR AR ARG aR

t4716:

CZRNDAO RM80 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-7

SEQ 0091

3‘

25 8
S

imuq
gofi
N

Me=

SET??

EIVED STATUS
TED STATUS
vC IS SET BUT 'UNS'' IS NOT

.t'us SET??

CEIVED STATUS

TED STATUS

* IS NOT SET,

P REST OFTEST

BUT "UNS'' IS

l;RlTE PROTECT ON??

ECTTED STATUS

¢ I

SGDDAT
ATUS

RMER11 ,$BDDAT
DAT

°3

~RMER1I

ED STATUS
TED STATUS
FAULT

e Lt

153
53

,SGDDAT

RMER11,$BDDAT

HERE A DEVICE CHECK??

‘fl.—

m” LRMER11I

SANE

RMER21 , SBDDAT
$GDDAT

sMOL STATUS INCORRECT

mmwm
g
oW

zgvc +RMER2!

sRECEIVED STATUS

151
5%

RMDS
I,

TR IRI}

#MOL

Lai]

BIT

gfl

no
-4m
<

(2]

TR TRAR
TR T

Se .~

RMDSI $GDDAT
#ATA'ERR! :‘l’P!LBT+$GDDAT

001400

F
DEF INED BY SUBROUTINE

oL wos

m<
<

040000

LER CLEAR
RROR

:ERROR # DEFINED BY GET SUBROUTINE
sSKIP REST OF TEST
.fisgllfl ON LINE??
:EXPEC TED STATUS

F20ES RS 3 w

??.mzs

fi"‘g
114
114

IN APT MAIL BOX

:RETURN HERE IF ERROR

*%e on %

001350

3238

061256

1350

012436

MHOBOD

135
114

ING TESTED

;GO READ REGISTER(S) WITH GET SUBROUTINE
;GO _TO 28 IF NO ERROR

DODEOD

= e

=
RS
o o

040000

K _POINTER
E SS

PC.GET

)
= b

RN
@ INRFSRESRERX

2s:

PC,GETSTS

042546

18:

I3RS BIZIZT 03T 233SoZ2TRTES

end cd e

[=l=l=1=1=]

b b o aod b

b b b b b b and D od b D end D

CO000VOCOOVOO

SRy
REELE

012462

m-.g.-=24
83 ~33
Sh%
@ i B |
gg-fl>
aEM"!fl
gusE
D
&
agmm
;-4
-]

PC,CNTCLR

Ve e %Ny,

rsroué
u.stsm

001226

052466

0462462

RIRIR

b o
el rd

ISTACK

s e

el
11

COOOOOO

NN - NDNRNNNN

)

e oncd

DRIVE STATUS TEST
ek e

.SELECTED DEVICE IN WRITE PROTECT

EMT

#SK1,RMER2]

;IS SKI SET??

CZRNDAO RM80O FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-8
T

SEQ 0092

DRIVE STATUS TEST

g 012444
4
81 446 01
881408 001142
% 012456 00 gor
114

; 8} 22g

104205

Ts17:

001100
001276
001466
000007 001226

1251
40
1
} g 2 000137
012642

012520

012526
1 g

112737
112737

000000
000200

125764

004737

042546

1
03
1
40
:
1
3«. }
00041
0 01261
737 043564
12614
04
1
40
1
1
y }
06

1
1
1
5

;

SCOPE
NOP
MOV
MOV
MOV
MOV

JSR

001545
001546

1 gs 012737
23 001412
125
8334 7 043016
1 sgl.
03
125
40
1
1
3 01
1 594
737 04 4%
2s:
12570
737 0433

;26

:PERSISTENT SEEK INCOMPLETE ERROR

PRIMARY/SECONDARY ERROR TEST

SRTEST 7

333 012510
004737
052466
81 514
04

205

:NO! !
;RECEIVED STATUS
*EXPECTED STATUS

;'ttttttttfittttttttttttttttttttt.ttttQtttttttttttttt.'tt'tttttttt

01 223

EMT

8s
RMER21,$BDDAT
$GDDAT

::ttttt.Qfitttttttttttttt!ttttttttt.tttttttttttQttttt.tttttttttttt

01
12464
40
1 493 1
124
13700
1 473 13701
12502 012737

;

BEQ
MOV
CLR

BR
NOP
EMT
JMP
MOVE
MOVB

MOV
JSR
BR
NOP
EMT
BR
JSR
JSR
JSR

“

737 044416
03
40
”

BR
NOP
EMT
BR
JSR
BR
NOP
EMT
JSR
B8R

#STACK, SP
$BASE ,RO
TSTQUE ,R1
#7,STESTN

:SCOPE CALL
*START OF TEST
*INITIALIZE STACK POINTER
:RO = UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED
:;SET TEST NUMBER IN APT MAIL BOX

*RETURN HERE IF ERROR
:ERROR NUMBER DEF INED BY SUBROUTINE
260 TO 58 IF ERROR

#RMCS1.PUTINX
#200,PUTINX+1

;SETUP PUT INDEX TABLE
:SET TERMINATOR BYTE

PC,CNTCLR
1$

#PAKACK ! GO,RMCS10
-SET RMCS1 OUTPUT BUFFER = PAKACK'GO
PC,PUT
;GO WRITE RMCS1 VIA PUT SUBROUTINE
2
:G0 TO 28 IF NO ERROR
*RETURN MERE IF ERROR
*ERROR DEFINED BY PUT SUBROUTINE
58
*SKIP REST OF TEST IF ERROR
PC,GETSTS
*SETUP FOR STATUS FETCH
PC.TIMOUT
:WAIT FOR COMPLETION OF NOP
PC,GET

58
PC.PRIERR
4
pg.a«sm
5

JSR
BR
NOP

PC,SECERR
58

JSR

PC,a(SP)+

EMT

;G0
ISSUE CONTROLLER CLEAR
:G0 TO 1S IF NO ERROR

;60 READ

:GO TO 38 IF NO ERROR
*RETURN HERE IF ERROR
SERROR # DEFINED BY GET SUBROUTINE
*SKIP REST OF TEST IF ERROR
;G0 CHECK FOR PRIMARY ERRORS
*GO
TO 4$ IF NO E
*RETURN HERE IF E
*ERROR # DEFINED BY PRIERR SUBROUTINE
*G0 BACK FOR MORE ERROR CHECKS
*SKIP REST OF TEST IF ERROR

260 cufgx FOR SECONDARY ERRORS
“G0 TO 5 IF NO E
*RETURN HERE IF ERROR

*ERROR # DEFINED BY SECERR SUBROUTINE

:GO BACK FOR MORE ERROR CHECKS

:;fittfttttttttttl'ttttttt'ttQttttt.ttttt.tit.'t.tttttttttttlttt't
S*TEST 10

DIAGNOSTIC MODE TEST

soRRRARARRAXAAARAAAAAARNAAACAANAAAAAAARAAAARAAAARARSAAARAOARAARCAES

NDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-9
DIAGNOSTIC MODE TEST

01 u.g
01264

012644
01

TST10:

001100

015838 13707 O0izee

012674 000404

015508 ?825‘2';
000137
013714
112737 000024 001545
112737

012737
004737
000404
01
°°°533
012740 104
012742 000137
§g1 012746 004737

000200

2s:

01
01
01
01

000404
000240
»
104
ogog 013714

13%“ 83‘1’922 001142

§}

000001

001362

12737

001140

#10,STESTN
PC,CNTCLR

:60 ISSUE CONTROLLER CLEAR

MR
JMP

3$:

MOV
JSR
B8R
NOP
EMT
JMP
JSR

JSR

T mfié‘%
1$

SR>
SEVIcE BETNG TESTED
*:SET TEST NUMBER IN APT MAIL BOX
*60 TO 1S IF NO ERROR

218
A#RMMR1,.PUTINX
#200,PUTINX+1
#DMD . RMMR10
PC,PUT
28

218
PC,GETSTS

PC,GET

S*6G0
ERROR
MUBER.
DEF INCD BY SUBROUTINE
TO 21 IF ERROR
;SETUP PUT INDEX TABLE
:SET TERMINATOR BYTE

*SET RMMR1 OUTPUT BUFFER = DMD
:GO WRITE RMMR1 VIA PUT SUBROUTINE
*60 TO 28 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR DEFINED BY PUT SUBROUTINE
:60 TO 218 IF ERROR
*SETUP FOR STATUS FETCH

:60 READ REGISTER(S) WITH GET SUBROUTINE

BR
NOP
EMT
JMP

g'xg

“m.mu

218

*G0 TO 3$ IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY GET SUBROUTINE
:60 TO 218 IF ERROR

MOV

#DMD ,SGDDAT

*EXPECTED STATUS

Eng}v

:ggs.wenosnc MODE SET??

wh.mn *RECEIVED STATUS

1
}
1
1

oggm
80 "fi;
013737
737

013714
010000 001350 4$:
oog;g 001142
16
001142

JMP
gg
MOV
BIC

218
mss LRMDSI
RMDSI,SBDDAT
#~CMOL,
SBDDAT

:SKIP REST OF TEST IF DMD = 0
:{gs'p‘m" =0 2?7
:SETUP BAD DATA FOR TYPEOUT

}
11

7?9 020000 001350 58:
1 ;p og;;;g
114
3
114

gg
MOV
BIC

gxp.msx
RMDS
I
ATAT
¥ CPIP

:ggsggp SET??
:SETUP BAD DATA FOR TYPEOUT

} }‘

g%zgg 004000 001350 6S:

SH,

%m.msx

‘,‘,és‘.".'"‘ LOCK OFF?2?

}

80?01?

MOV
JSR

MOVB

000001 001436
043016

s§ 012752 004737 042546

SSTART OF TEST
SINITIALIZE STACK POINTER

MOVB

001546

013714
0462462

#STACK,SP

B8R
e

:SCOPE CALL

NOP
MOV

, 0
omgr oooo?a 001226
g’a’a 012670 004737 052466
sl 8} 702
350 012706
012714
012722
1
1

SEQ 0093

} }

79 } }‘
131

; 35
131

sg 7

001140

12737

1140

13737 0%3;9
7

1737

gg; 001140

114

7 040000 001400 7$:

“; 14
114
2737 ?37799 33114.

Efi?

'eg‘r'

MOV
BIC

BIT

%3
BIC

: ow

%P.séoon

RMDS I %r
#*CWRL

b AT

#SK1,RMER2]

,SBDDAT

”nnzx $BODAT
#°CSKI.SBDDAT

;SETUP GOOD DATA FOR TYPEOUT

;EXPECTED PIP SET

*SETUP BAD DATA FOR TYPEOUT

;EXPECTED WRL = 0
;IS SKI = 0

’EE?& BAD DATA FOR TYPEOUT
°

SEQ 0094

000200

CLR
EMT
BIT
BEQ
MOV
8IC
CLR
ENT

001400

297599 00114
00114
e
e
b

001140

888
oEn
$&5

SO
NNNN

WNNN
-

001140

DAT

sSKI SHOULD BE 0

go& RMER2]

lgsDEVICE CHECK
= 0?7

RMER21 ,$BDDAT

:SETUP BAD DATA FOR

9‘

TYPEOUT

#°CDVC,$BDDAT
SSDDAT

sDVC SHOULD BE 0

#RMMR1 ,PUT INX

<SETUP PUT INDEX TABLE

#200,PUTINX+1
#DMD {MUR ! MOC !MSER ! MDF ! MUP,RMMR10
PC,PUT
:GO WRITE RMMR1 VIA PUT SUBROUTINE
10§
:G0_TO
108 IF NO ERROR

0430

e Ti e

:SET RMMR1 OUTPUT BUFFER= DMD!MUR'M

sRETURN HERE IF ERROR

013714

108:

042546

218

:ERROR DEF INED BY PUT SUBROUTINE
:60TO 218 IF ERROR

PC,GET

+G0 READ REGISTER(S) WITH GET SUBROUTINE

:GO_TO 11S IF NO_ERROR

11§

013714
000001

118:

%vso
RMMR1 I
128
°

SGDDAT
, MD
#D

D v And ol ool renb D wcd e wmd wd
el el
b el fod e
s Sacd seslh mald ced wed el
e

UWN=O
VNN
VSN
=

i el ech o

BBBBDDDDDDDDDDDDDN

ek wned e anch 2t

383258

[=l=lslelolalolelolololololalolalol=lla
Tl
T T ]

013714
010000
40

128:

001350
167777

020000

138:

o959

AT
AT

004000

#PIP ,RMDSI

;IS PIP = 0 2

14$
RMDSI ,SBDDAT

#URL ,RMDS ]

158:

4|°u|1u.sfinnmx
5sx1.msaz

004000
040000

o919

158
mimnt

168
RMER2],SBDDAT

o‘csxx *$BDDAT
L SGDDAT

040000
000200

168:
114
114

or - 177
iyest
iSETUP BAD DATA FOR TYPEOUT
;EXPECTED MOL = 1

14$:

095

sRECEIVED STATUS

W? . SGDDAT

rcl;g.saom

001140

:EXPECTED STATUS
;SKIP REST OF TEST IF DMD = 0

+RMDSI

RMDSI,
#°CMOL

01 0000

7 W5

@334
“0

h . SBDDAT

:RETWHERE IF ERROR
sERROR
# DEFINED BY GET SUBROUTINE
;GO TO 21$ IF ERROR
IgsDIAGNOSTIC MDE SET??

K, 2

#DVC ,RMER2]
178

RMER21, SBDDAT

#%CDVC, SBDDAT

iSETUP BAD DATA FOR TYPEOUT
;EXPECTED PIP STATUS
;1S WRL SET??

SSETUP BAD DATA FOR TYPEOUT
;EXPECTED GOOD STATUS
;15 SKI SET2?

3. M
;EXPECTED SKI
;15 DVC SET

ON
22

3. | 1 I

8
D
v

-4

Eeding

AO RHBO FCTNL PT1 MACRO v04.00 28-JAN-82 16:24:51 PAGE 13-11

SEQ 0095

DIAGNOSTIC MODE TEST

} ssza

01
81

1
01

4 5 o}

439 81
013610
.

gggr

000200

001140

gg}/

ggxc.scow

:EXPECTED DVC ON

1411
013737 oou;g 83"‘3

BEQ
MOV

1
RMDSI,$BDDAT

*BRANCH IF IT DID
:BAD DATA FOR TYPEOUT

30 ; 000100 001350 178:
1

g 7 1776
037 001140

112737
112737

114

001545

200 001546

BIT

BIC
CLR
EMT

JSR

Ps GET

B8R

1
13652
13654
440 01
441 01
u.g 13670
443 013676
44l 013
445 013712

2449 013714

004737 042546

000240
104
ogg1
032737
001012
813737
1%737
042737
104262

013714

002000

001400

20$:

001400 001142

oosooo 001140
002000 001142
218:

448

:GOOD DATA FOR TYPEOUT

#RMCS1.PUTINX
:SETUP
PUT INDEX TABLE
#200,PUTINX+1
:SET TERMINATOR BYTE

MOV
JSR
B8R
NOP
EMT
JMP

000404

#CVV,SBDDAT
DAT

sMUR SHOULD HAVE RESET VOLUME VALID

MOVB
MOVB

01 12 12737
11 001412
01
7 043016
01
04
01
40
01
104
o;
000137
013714
o

133 81

g.msx

mvéweo RMCS10
SET RMCS1 OUTPUT BUFFER = DRVCLR'GO
s‘
;G0 WRITE RMCS1 VIA PUT SUBROUTINE
1
*GO TO 198 IF NO ERROR
*RETURN uene IF ERROR
*ERROR D meo BY PUT SUBROUTINE
218 :G0 TO 218 IF ERROR
208

NOP
EMT
JMP
218
BIT #LBC,RMER2I
BNE 213
MOV RMER2I,$BDDAT
MOV #LBC, $GDDAT
BIC #LBC, $BDDAT
EMT

;60 READ REGISTER(S) WITH GET SUBROUTINE
:G0 TO 208 IF NO ERROR

*RETURN HERE IF ERROR
*ERROR # DEFINED BY GET SUBROUTINE
*G0 TO 21$ IF ERROR
;1S LBC SET 22
YES!!
i8AD DATA FOR TYPEOUT
:GOOD DATA FOR TYPEOUT

262

tt'tt.t'iltt'.t..tt""*t.t.tll.itt.tfi..ttt.fi‘tttttltttt.tttttt

ATEST 11

013714

mgm
13716
137
13726
31

i 1
50 01374
1374

1373

- } 754

TsT11:

000004
ooo;ao
015
001100
01
001276 _
o1g;g1 001466

012737 000011 001226
737 052466
04

137

014214

52 01 723 112737 000024 001545
81 792

1
1%
1
1401

}‘ }
453 12820

PACK ACKNOWLEDGE TEST

"tttttitttt.tl.t.Qtttttfitti'ttt'.t.ttttltttttttttttttttttttttttt

112737

12737
7
04
40

137

1
016

014214

881546

001436

SCOPE
MoV
MOV
MOV
MOV
JSR
B8R

#STACK
$BASE
TSTQUE ,R1
#11,8TESTN
PC,CNTCLR
1

JMP

MOVB

#200,PUTINX+1

oRT

MOVB
MOV
JSR
BR
NOP

2$:

.m;

::SET TEST NUMBER IN APT MAIL BOX
;G0 ISSUE
CONTROLLER CLEAR
:G0 TO 13 IF NO ERROR

ity "mn oefmeo BY SUBROUTINE
!',’f

1,PUTINX ;SETUP PUT INDEX TABLE

#DMD , RMMR10
Pg.rur
2

:SCOPE CALL
*START OF TEST
SINITIALIZE STACK POINTER
*RO = UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED

:SET TERMINATOR BYTE

:SET RMMR1 OUTPUT BUFFER = DMD
*G0 WRITE RMMR1 VIA PUT SUBROUTINE
*G0 TO 28 IF NO ERROR
*RETURN HERE IF E

‘60 T0 35'%%“2..%&”“‘ P

—

[als)

>g
x

(=]

BRI

DD B

BB
©

OOOO CO00O0CO0O0OOCOOOOC
OO0O00O0COVO0O0O0O0OOVOCOOOOO0

112737

7
737

001545

1546
1436

sgag®

014214

o) o anhP

SFNNISRVRBARNSRRUELRE RIRISER

—d

043016

D d ced b b
b cnd e cnd cmd D cnd wd e emd e ced D b wrd D oD wed D

ands mdl

DEE
BB

CO00O0CO

and cmd cab emh o e

b d

e o e

d e

o o

b e

e ot di b e

D e

SEQ 0096

014214
04;692
043370
042546

881545
ms
00141

48:

“
043564

MOVE

#RMMR1,PUTINX

:SETUP PUT INDEX TABLE

JMP

:G0 TO 8 IF ERROR

MOVB
MOV
JSR
BR
NOP
EMT
MOVB
MOVB
MOV
JSR
B8R
NOP
EMT
JMP
JSR
JSR
JSR
BR
NOP
EMT
B8R
JSR
BR
NOP
EMT

b
737 053464
04
082 40

000406
737 044416
03
%

004

7%:

zsoo PUTINX+1
.RMMR10
;g.rur

:SET TERMINATOR BYTE
:SET RMMR1 OUTPUT BUFFER = 0
:GO WRITE RMMR1 VIA PUT SUBROUTINE
:G0 TO 38 IF NO ERROR
*RETURN HERE IF ERR
*ERROR g;meo BY PUT SUBROUTINE

messt.runux ;SETUP PUT INDEX TABLE
#200,PUTINX+1
:SET TERMINATOR BYTE
#PAKACK ! GO,RMCS10
-SET RMCS1 OUTPUT BUFFER = PAKACK'GO
PC,PUT
:G0 WRITE RMCS1 VIA PUT SUBROUTINE
4
:GO TO 4$ IF NO ERROR
:RETURN HERE IF ERROR
ZERROR DEFINED BY PUT SUBROUTINE
8s
:GO TO 88 IF ERROR
PC,GETSTS
PC.TIMOUT
;WAIT FOR COMPLETION
Pg.eer
260 READ REGISTER(S) WITH GET SUBROUTINE
5
:GO TO 58 IF NO ERROR
*RETURN HERE IF ERROR
:ERROR # DEFINED BY GET SUBROUTINE
2%
:SKIP REMAINDER OF TEST
PC,PRIERR
;G0 CHECK FOR PRIMARY ERRORS
&$
:GO TO 68 IF NO ERROR
:RETURN HERE IF ERROR

JSR
BR
JSR
BR
NOP
EMT
JSR
BR

PC.a(SP)+
8s
%.ACKSTS

JSR
BR
NOP
EMT
JSR

;g.sscm

PC,a(SP)+
23

PC.a(SP)+

SERROR # DEFINED BY PRIERR SUBROUTINE

:G0 BACK FOR MORE ERROR CHECKS
:SKIP TO NEXT TEST
:60 mgv PACK ACKNOWLEDGE
:GO TO 78 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY ACKSTS SUBROUTINE
:G0 BACK FOR MORE ERROR CHECKS
:SKIP TO NEXT TEST
;60 cueg FOR SECONDARY ERRORS
:G0 TO 88 IF NO ERROR
:RETURN MERE IF ERROR
*ERROR # DEFINED BY SECFRR SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

;:ttttt.tttttttttt.lltt"t'tttt't.tt.'t.tt'ttttt"tttttittttltttt

o
&H

RECALIBRATE TEST

%é;;sttttt'ttl..tt.tttt'tttt'ttt.tttttttt.tttt'Qtttttttt!.tt'.tfi'

OO000O

prar QeQoG
G o

S*TEST 12

8§h
wv

Sinin
44
-

&k
s

5
\qu‘l

KNOWLEDGE TEST

Yy Pusr Jur Yo ghury

TNL PT1 MACRO V04.00 28~JAN-82 16:24:51 PAGE 13-12

1
1
13701

ngo
1276
001466

SCOPE
NOP
MOV
MOV
MOV

#STACK 3’
SBASE ,R
TSTQUE R

:SCOPE CALL
:START OF TEST
*INITIALIZE STACK POINTER
*RO = UNIBUS ADDRESS

*(R1) = DEVICE BEING TESTED

RNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:26:51 PAGE 13-13
RECALIBRATE TEST

- 014234 012737 000012 001226

475 01426

MOV

7 041532

JSR

1454.5 8?3(7)30
5

004500

000137

014424

PC,TSTPRP

:2SET TEST NUMBER IN APT MAIL BOX

. WORD o§6030

:PREPARE DEVICE FOR TEST

B8R

:GO TO 18 IF NO ERROR

JMP

MRT

#12,$TESTN

SEQ 0097

:CLEAR CONTROLLER & SELECT DEVICE
*PACK_ACKNOWLEDGE IF VOLUME NOT VALID
*VERIFY PACK ACKNOWLEDGE

SERROR #DEFINED
BF TSTPRP SUBROUTINE
:GO TO 68 IF ERROR

112737

001545

MOVE

12737

00141

MOV
JSR
B8R
NOP
EMT
JMP
JSR
JSR
JSR
B8R

#RECAL ! GO,RMCS10
SET RMCS1 OUTPUT BUFFER = RECAL'GO
PC,PUT
;G0 WRITE RMCS1 VIA PUT SUBROUTINE
28
:G0 TO 28 IF NO ERROR
SRETURN HERE IF E
*ERROR DEFINED BY PUT SUBROUYINE
6
*GO TO 68 IF ERROR
PC,GETSTS
:G0 SETUP FOR STATUS FETCH
PC.TIMOUT
:WAIT FOR COMPLETION
PC,GET
;60 READ
REGISTER(S) WITH GET SUBROUTINE
38
G0 TO 38 IF NO E

JMP
JSR
B8R
NOP

6
PC.PRIERR
4

JSR
P

PC,3(SP)+
6

JSR
B8R
EMT
JSR
WP

PC,RCLSTS
1

JSR

:g.sscm

oo1s4g

7 043016

MOVB

40
137

014424
7 ol.gl.%
7 0433
004737 042546
000404

000137
014426
737 043564
S
%0

28:

o
:

137

0144624

737 054260
05

883

137

0144624
7 044416

o
i

%
004

EMT

8R
NOP
EMT
JSR

#RMCS1,PUTINX

STASK DESCRIPTOR AS FOLLOWS:

#200,PUTINX+1

z;.a(sm

PC.a(SP)+

;SETUP PUT INDEX TABLE
:SET TERMINATOR BYTE

*G0 TO 68 IF ERROR
:60 CHECK FOR PRIMARY ERRORS
:G0 TO 4S IF NO ERROR
*RETURN HERE IF ERROR

SERROR # DEFINED BY PRIERR SUBROUTINE

*GO BACK FOR MORE ERROR CHECKS
:60 TO 6 IF ERROR

;60 m;rv RECALIBRATE OPERATION
*G0 TO 58 IF NO ERROR
:RETURN HERE IF ERROR
*ERROR # DEFINED BY RCLSTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
:G0 TO 68 IF ERROR
.
;60 CHECK FOR SECONDARY ERRORS
*G0 TO 68 IF ND ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY SECERR SUBROUTINE
*60 BACK FOR MORE ERROR CHECKS

32 EEERRARARANRRRAAARAAAARAEARARARANAAAAARARAAREAANEANARARAACRACEASSY

S%TEST 13

ABORT RECALIBRATE TEST

ig;;;?tttfittt.l'ltt.ttl‘""tttt..t..'tttlt'tt'tttlltt'l.ttttttt't

m 001100

SCOPE
NOP
MoV

sSTART
OF TEST
sINITIALIZE STACK POINTER

#STACK,SP

CINL PT! MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-14

SEQ 0098

T RECALIBRATE TEST

137

13737
12737

1276

MOV

000001
01
13 831532

MOV

S
~
o

SREGEEERER GEERSSSSS ERNNRRMNERSN
g

D oD

A
B

b cud wnd wncd
wd cncd b cnd cnd ced 2od md =D
wmh
b

o
) e
) 2D elt o
s
ad

5, STESTN

05430

JSR

883404

JMP

00%500

000137

014732

TSTPRP
.WORD Sgligo

112737 000014 001545

MUVB

012737
001426
004737 063016
888404

MOV
JSR
B8R

112737

001546

100900

000137 014732

112737 000000 001545
112737

012737
7
004737 043016
04

814725
7
0424

MOVB

001412

3s:

137

% 014
7 ozozgs 001350 4$:

004737 043370
737 042546
04

58:

137

014732

737 043564
05
%

:PREP,

VICE FOR TEST
:rm‘fisgsm&
FOLLOWS :

:%m CONTROLLER © SELECT DEVICE
SVERIFY CONT p's'i' CLEAR OPERATION
*PACK ACKNOWLEDGE
IF VOLUME NOT VALID
:VERIFY PACK ACKNOWLEDGE
*RECALIBRATE IF ‘'SKI'’ OR ‘PIP'* IS SET
*VERIFY RECALIBRATION

ZBRROR # DEFINED
B TSTPRP SUBROUTING

R1,PUTINX

#200,PUTINX+1

#UNS . RMER10
;g.rut

MOVEB

#200,PUTINX+1

S1,PUTINX

:SETUP PUT INDEX TABLE
:SET ranmon BYTE

:SET RMER1 OUTPUT BUFFER =
:G0 WRITE RMER1 VIA PUT SUBROUTINE
:G0 TO 28 IF NO ERROR

ZBRAORDEF INED
BY PUT SUBROUTINE
:60 TO 35 IF E
;SETUP PUT INDEX TABLE
:SET TERMINATOR BYTE

MOV
JSR
B8R

m;.é%-eo.mslo
-SET RMCST OUTPUT BUFFER = RECAL'GO
gg
;60 m;s RMCST VIA PUT SUBROUTI
260 TO 38 IF NO ERR

JnP
JSR

9s
PC,GETSTS

JSR

PC,GET

:G0 READ REGISTER(S) WITH GET SUBROUTINE

e"g'r'

gemm "F'x‘r‘&#as PUT SUBROUT INE
*G0 TO 98 IF ERROR
:SETUP FOR STATUS FETCH
*G0 TO 48 IF NO E

JNP

“eg'r‘
8IT

#PIP,RADS]

’e‘fim
II*DEEI";DEBV GET SUBROUTINE
260 T0 98 IF E
:DID THE DRIVE RECALIBRATE??

JSR
JSR
B8R

PC, TIMOUT
PC,GET
6%

;WAIT FOR COMPLETION
;60 READ REGISTER(S) WITH GET SUBROUTINE
:G0 TO 68 IF NO ERROR

EMT

’

$300
1 ITERAT
TN o TESTED
$:SET TEST NUMBER IN APT MAIL BOX

260 TO 98 IF ERROR

NOP

;RO = UNIBUS ADDRESS

:GO TO 1S IF NO ERROR

ERT
JMP

MOVB

1546

737 042546

s wad

CO0O0OCO0O0OC

2N
<

D wmd =D o

COO00O0OVOOVOOOOOOOOOO

004737 041532

$BASE ,RO

JMP

JSR
BR
NOP

;g.mm

EMT

*RETURN HERE IF ERROR

*ERROR # DEFINED BY GET SUBROUTINE

260 TO 98 IF ERROR

;60 CHECK FOR PRIMARY ERRORS
*60 TO 7$ IF NO ERROR
*RETURN HERE IF ERROR

*ERROR # DEFINED BY PRIERR SUBROUTINE

014732

737
1
004

060210

3
40

044416

9$:

JSR
BR
NOP
EMT
JSR
JMP

PC,STCDRVSTS

OR CHANGES IN DRIVE STATUS

JSR
BR
NOP
EMT
JSR

PC,SECERR

ONDARY ERRORS

PC.a(SP)+

€
Y SECERR SUBROUT INE
OR MORE ERROR CHECKS

PC,a(SP)+

m«<

1471

816
14
8167
14
014

3
40

PC.3(SP)+

737

JSR
JNP

STCDRVSTS SUBROUTINE

RROR CHECKS

SIARRRARARARAAARARAANCARAAAAARARAAARANAAAAARAAAAAANRANRAAA
AR AOAS

SRTEST 14
014

014

IVC RECALIBRATE TEST

SARAARRRRAAAARAARAARAARAAEAAAAARARAAAARANAAAARAAAARAAANRARAAAAAARS

ts114:

014
014
014742
01474
01475
014760

01
0137
81 701
12737
012737

0147
014

054130

csmgxfisr

r'sar'oué R1

#1,STIMES
#14,STESTN

0sti30

sSCOPE CALL
sSTART OF TEST
sINITIALIZE STACK POINTER
sRO = UNIBUS ADDRESS
;(R1) = DEVICE BEING TESTED
::D0_1_ITERATION
::SET TEST NUMBER IN APT MAIL BOX

:PREPARE DEVICE FOR TEST
STASK DESCRIPTOR AS FOLLOWS:
*CLEAR CONTROLLER € SELECT DEVICE
*VERIFY CONTROLLER CLEAR OPERATION

INDEX TABLE
E
OUTPUT BUFFER = DMD
VIA PUT SUBROUTINE

S8hamm
3
R
=
=}
o
2 23 &et 233 a‘.l
S
3
Py
S

srbC\
(- AV}

2$:

m>®

SN
O\

—b

888

N
S

888

b
b D

015242

18:

On=d

015242

1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1

S5 ;i;fi =8

'veuxrvmr:m:x"f\g“ o o'&“ kb
:
‘!gx‘g" OR ‘PIP" IS SET

A TETETEA
TR TR TR 1Y

-0

14
14
14
1471
1471
14716

—

b ek

LLV
N

viwn

1467
01467

g7 014732

SEQ 0099

146

§e53a2 3338g338 3338

T
(=]

Ufig

—_

—

RMB0 FCT AL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-15
ABORT RE CALIBRATE TEST

RNDAC RM8O FCTNL PT1 MACRO V04.00 28-JAN=82 16:24:51 PAGE 13-16
IVC REC
E TEST
151

s }g}
522 0151
1511
151
151
151
151
151
1;14
g 3 81 "’3
2 g 1515
526 015156
004737
1;1

015242
6

g
%

1
12
1
15
}g 2

01524
325
3
0462546

48:

05
40

137
015242
737 01
1201

001400

106215

737 044416
os
4
1
004

1527

SEQ 0100
:ERROR

DEFINED BY PUT SUBROUTINE

GO TO 8% IF ERROR
S1,PUTINX ;SETUP PUT INDEX TABLE
#200,PUTINX+1
:SET TERMINATOR BYTE
#RECAL ! GO,RMCS10
-SET RMCS1 OUTPUT BUFFER = RECAL'!GO
PC,PUT
:60 '"5 RMCS1 VIA PUT SUBROUTINE
1
260 TO 4$ IF NO gma
*RETURN HERE IF ERROR
,
*ERROR
DEFINED BY PUT SUBROUTINE
8s
:G0 TO 88 IF ERROR
PC,GETSTS
*SETUP FOR STATUS FETCH
PC.TIMOUT
:WAIT FOR RECAL TO COMPLETE
pg.csr
:60 READ REGISTER(S) WITH GET SUBROUTINE
5
*GO TO 58 IF NO ERROR

8%
zg.mm
PC,a(SP)+
8s

gvc.mnzx

EMT

215

JSR
B8R
NOP
EMT
JSR

PC,SECERR
13

PC.3(SP)+

"e'gou:‘0"52520‘3"7'”55' T SUBROUTINE
*GO TO 88 IF ERROR
:60 CHECK FOR PRIMARY ERRORS

*G0 TO 68 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY PRIERR SUBROUTINE
:G0 BACK FOR MORE ERROR CHECKS
:GO TO 88 IF ERROR
:IVC SHOULD BE SET
:IT IS = GO CHECK SECONDARY ERRORS
;60 CHECK FOR SECONDARY ERRORS
:G0 TO 88 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY SECERR SUBROUTINE
*GO BACK FOR MORE ERROR CHECKS

: 23 ARRRRRRNARANALRAARAAACRRERAANRANRARRARPRARAARRARAAAANAAAARARCARSAY
S*TEST 15

IAE RECALIBRATE TEST

ig;;;tttttl.t.tQt'tt.t'tt'.'ttltt.lt....t.l.ttt.t..tltttt.ltttttt

2}3 1

B8R
NOP
EMT
JSR
NP
BIT
BNE

6$:

‘

1
1
1
1

'e‘g'r'
JMP
JSR

13
é
1

JMP
MOVS
MOVB
MOV
JSR
B8R
NOP
EMT
JMP
JSR
JSR
JSR
B8R

1545
1543
141

}s} S 5§§
4 }5}% 000137 015242
gfe o1§m
737 043564
15
15
15
15
1; 1
15214
15222

EMT

]

40
1
1
1
12737
12737

ngo
15 6
1
1 38'5
15

001226

SCOPE
NOP

mov
MOV
MoV
MOV

#STACK
$BASE
TSTQUE
. R1
#1,STIRES

JSR

PC, TSTPRP

MOV

737 041532

31503 8221 0

215, STESTN

.WORD ogllfo

:SCOPE
CALL
:START OF TEST

.-xnmm‘sssm:x POINTER
:RO = UNJ
»ggess
S(R1) = "‘f ING TESTED
::00 1 gt RATION

$:SET TEST NUMBER IN APT MAIL BOX

:PREP

VICE FOR TEST

:msxhzfg IPTOR AS FOLLOWS:

:& AR CONTROLLER © SELECT DEV ICE
:VERIFY CONTROLLER CLEAR OPERATION
IF VOLUME NOT VALID
:PACK_ACKNOWLEDGE
IVERIFY PACK ACKNOWLEDGE
.
RECALIBRATE [F 'SKI'"OR "PIPTM IS SET
SVERIFY RECALIBRATION

SEQ 0101

IAE RECALIBRATE TEST

?
5

1
015
54 815
548 015
812
5

015 ;2

1
15374

15
549 015
ggg 154
552 01541
1541
156
15422
o }gz
§54 0154
154

154
15440
1544
= } 4

1
11
1127
11

NOP

137

7
7
737
04
40
1
000137
737
05
137

MOVB
MOVB
MOVB
MOVB
JSR
BR

043016
015504
83"92
370
062546

EMT

015504
043564

015504

JMP
JSR
JSR
JSR
B8R
NOP
EMT
JMP
JSR
BR
NOP
EMT
JSR
JNP

BR
NOP
EMT
JSR
P

737 054260

2s:

JSR

137

?2. 15472
1547
155

JWP
MOV
MOV
MOV
MOV

1564
1
1
. } 4

15;7
1
15502

EMT

gsa 154?8
15454

} } 000737
015504
1 2 12737 177777 881
1
1
177777
0014
1
12737
7 00141
1§
127
1545

015504

737
044416
oa

JSR

004

6$:

BR
NOP
EMT
JSR

e
B

013701

:G0 TO 1$ IF NO ERROR

SRETURN HERE IF ERROR

*ERROR # DEFINED BY TSTPRP SUBROUTINE

6
*G0 TO 68 IF ERROR
#-1,RMDCO
;RMDC WILL BE ALL ONES
#<1.RMDAD
*RMDA WILL BE ALL ONES
#RECAL
! GO,RMCS10
#PUTINX RS
:R2 POINTS TO PUT INDEX TABLE
#RMDC, (R2)+
#RMDA. (R2)+
ognossl (R2)+
#20 , (R2)+
PC,PUT
28

*SETUP PUT INDEX TABLE

6%
PC,GETSTS
PC.TIMOUT
PS.GET
3

PC.a(SP)+
6

:GO TO 68 IF ERROR
*SETUP FOR STATUS FETCH
*WAIT FOR GO TO RESET
;60 nng’aesxsrms) WITH GET SUBROUTINE
:G0 TO 38 IF NO ERROR
:RETURN HERE IF ERROR
*ERROR # DEFINED BY GET SUBROUTINE
:G0 TO 68 IF ERROR
;60 CHECK FOR PRIMARY ERRORS
:GO TO 4$ IF NO ERROR
:RETURN HERE IF ERROR
*ERROR # DEFINED BY PRIERR SUBROUTINE
*GO BACK FOR MORE ERROR CHECKS
:G0 TO 6 IF ERROR

PC,a(SP)+
6S

:RETURN HERE IF ERROR
*ERROR # DEFINED BY RCLSTS SUBROUTINE
:G0 BACK FOR MORE ERROR CHECKS
;G0 TO 68 IF ERROR

PC,a(SP)+

*RETURN HERE IF ERROR
:E
# DEFINED BY SECERR SUBROUTINE
*G0 BACK FOR MORE ERROR CHECKS

6
PC.PRIERR
4

r;.ncms
5
:S.secm

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE
:G0 TO 2$ IF NO ERROR
*RETURN MERE IF ERROR
:ERROR # DEFINED BY PUT SUBROUTINE

:60
mgn RECALIBRATE OPERATION
:GO TO 58 IF NO ERROR
;60
cue&( FOR SECONDARY ERRORS
:G0 TO 68 IF NO ERROR

RECAL IBRATE AT OFFSET

ii;;ziltttttttt.tttt‘tttttt'Qt..'tli.t..lt.l..t'tl.ttt"tt't't.'t.

]

AARRRRARRAARAAAAARARNCEARRARAARCAARAANAANAAANAAAARRAREACARCACRAERS

S*TEST 16

OOO0O0O

—

RNDAO RM8O FCTNL PT1 MACRO Vv04.00 28-JAN-82 16:24:51 PAGE 13-17

1466

MOV
MOV
MoV

:SCOPE CAL

#STACK 39
$BASE ,R
TSTQUE R

*START OF TES

:IN
;RO
:

JSR
-WORD

pg rsrm

:PREPARE

DEVICE FOR TEST

;60 mg RMCS1 VIA PUT SUBROUTINE

gg.rur
7

:G0
TO 28 IF NO ERROR
*RETURN HERE IF ERROR

*ERROR wim BY PUT SUBROUTINE
260 T0

F ERROR

:SETUP PUT INDEX TABLE

:SET TERMINATOR BYTE

SET RMCST OUTPUT BUFFER = RECAL'GO

;60 WRITE RMCST VIA PUT SUBROUTINE
:G0 TO 3 IF NO ERROR
*RETURN HERE IF E
*ERROR DEF INED BY PUT SUBROUTINE
260 TO 7$

IF ERROR

sSETUP GET INDEX TABLE TO READ AL
PC,GETSTS

-y

[Tt =

§§§

S =14

PRIERR SUBROUTINE
RROR CHECKS

RCLSTS SUBROUTINE
RROR CHECKS

(=]

-4

TMm -

%Oi [~ 833

Y ERRORS

D BY

;g.i(SP)O

n. we I
o
oS
a7g .|Gy
MmO %
=4 &
VY
=
REAs& =~ - - ‘W!i e 4 ] DA
m
o m
|
A
e4]
3

ZS.RCLSTS

PC,3(SP)+
78

X
%

JSR
BR
NOP
EMT
JSR
JMP

ag g

gg.PRlERR

JSR
BR
NOP
EMT
JSR
JMP

IMOUT SUBROUTINE
RESISTER(S) WITH GET SUBROUTINE
; NO ERROR
IF_ERROR
INED BY GET SUBROUTINE
RROR

5$:

:g.GET

4$:

JSR
B8R
NOP
EMT
JMP

;WAIT FOR_COMMAND TO COMPLETE
PC,TIMOUT
c.T1
JSR
‘

JSR

.
NeNe
Ve

N
HS

#RMCS1,PUTINX

:SET RMCS1 OUTPUT BUFFER = OFFSET!GO

015762

IF ERROR

PC,PUT

054260

015762

;SETUP PUT INDEX TABLE
:SET TERMINATOR BYTE

#RECAL !GO,RMCS10

SEgieNasR

it e sand e el wmd e ctad e
vl sanh e
ok

043564

*GO

S1,PUTINX
#200,PUTINX+1

#200,PUTINX+1

042546

015762

*ERROR ; DEFINED BY TSTPRP SUBROUTINE

3s:

ERROR

*RETURN HERE IF

043370

260 TO 18 IF NO Em

#OFFSET!GO,RMCS10

2s$:

SELECT DEVICE

*PACK ACKNOWL
If v&ut NOT VALID
SVERIFY PACK ACKNOWLED

015762

:CLEAR comotkat

e cond aned

b ) e
e
s
e

043016

015664

vy Vi

1$:

*TASK DESCRIPTOR AS FOLLOWS:

043016

042462

=l=T1-]

050020

“3SET TEST NUMBER IN APT MAIL BOX

(]
o

ol
ol caehy

S
p
oM

015762

000000
000200

5650
5652
54
015

#6,8TESTN

888

041532

015660

OO0V OOOOOO

NN
(- XV1

836026

5 73
574 015670
15674

ITERATION

015762

e o e

b14
572

::D0 1

561
5614

568
569
570

#1,STINES

i
5646

SEQ 0102

MOV
MOV

8388

b
ok e
e e s

e v

D e

g
v

818737 800018 801528

RALE

——t

VIVAVIVAWWAVIAAW

0000000000000

et
wwh

T
o~

o0
OO
Zlig
Vi g:
£E o

FCINL PTI HAERO'V04.00 28~JAN-82 16:24:51 PAGE 13-18
IBRATE AT OF SE

MACRO V04.00 28~JAN-82 16:24:51 PAGE 13-19

SEQ 0103

OFFSET

68:

044416

JSR
B8R
NOP
EMT
JSR

pg.secm
7
PC.a(SP)+

;60 cne;x FOR SECONDARY ERRORS
*G0 TO 7$ IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY SECERR SUBROUTINE
*GO BACK FOR MORE ERROR CHECKS

: 2 ARARRAAARAARAARARAAANAAAEANARAAANARAAAAAAAAAAAAAAANAAASRAAAAANAEAS

SeTEST 17

DRIVE CLEAR TEST

Yoo

QOO0

001100

001276
001466
000017 001226
041532

LWORD

$BASE ,R
TSTQUE ,R1
#17,8TESTN
PC rgrm
054130

001420

43
#0,RMDAO

gog 001454
154

MOV
BIC
MOV

#LSC,RME
#PUTINX R

NNNNN

uw&&> NNSNSN
~
NNO
ONN
SO

i e

o e

e e &

#STACK 3’

BR
NOP
EMT
JMP
MoV

§§

= R

W
~N

N=-

3
“N oo
g
2

pry

TRRUEL SKESIRGSERINRER

) o

e
e
eg

) el
D

s S

ONONONONONONONONOM

R
e

SCOPE
NOP
MOV
MOV
MOV
MOV
JSR

016232

009977
g%t‘%
177777
001454

#RMDA, (R2)+

MOVB

m&.gg ;:

043016

JSR
BR
NOP
EMT
BR
JSR
JSR

33‘%
3

MOVB

m"m

2s:

042546
3s:

~ JSR
BR
NOP
EMT
BR

:SCOPE CALL
*START OF TEST
*INITIALIZE STACK POINTER
*RO = UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED
+:SET TEST NUMBER IN APT MAIL BOX
:PREPARE DEVICE FOR TEST
*TASK DESCRIPTOR AS FOLLOWS:

*CLEAR CONTROLLER © SELECT DEVICE
*VERIFY CONTROLLER CLEAR OPERATION
*PACK ACKNOWLEDGE IF VOLUME NOT VALID
:VERIFY PACK ACKNOWLEDGE _
*RECALIBRATE IF ''SKI’ OR 'PIP"' IS SET
*VERIFY RECALIBRATION

*G0 TO 1$ IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY TSTPRP SUBROUTINE
:GO TO 6S IF ERROR

folvasieo.mcsto
#-1.RMER

MOVE

COO00OO

et ch

SSS22S

ok wmd e cond o ol sl oD cad aed

[elelelelalolelelalalelelalelelelelalelalelaTa)

BLRAR Y

) ced amd

»HO

geRgLny
SaNgR2S

%g;;;ttttttttttttttt."t"t'.tt..itt..t.'ttttttttt.t'tt.ttt"ttt.

#RMERZ, (R2)+

‘%.(fizn
.

6%
PC,GETSTS
PC.TIMOUT
PC,GET
3s
6%

:DELETE FOR PASS 2 ETCH
*R2 POINTS TO INDEX TABLE
*RMDA CLEARS LBT

:60 WRITE REGISTER(S) WITH PUT SUBROUTINE
*GO TO 28 IF NO ERROR
*RETURN MERE IF ERROR
SERROR # DEFINED BY PUT SUBROUTINE
*ESCAPE IF ERROR
:SETUP FOR STATUS FETCH
*WAIT FOR DRIVE CLEAR TO COMPLETE

:60 READ REGISTER(S) WITH GET SUBROUTINE
$GO TO 38 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY GET SUBROUTINE
*SKIP REMAINDER OF TEST

RNDAO RM80 FCTNL PT1
7
DRIVE CLEAR TE

01617
01617
01

81
1
1

610

2}1

7
5

056022

016232

{

737
3
1
004

044416

40
68:

PC,a(SP)+
6S

JSR

PC,DRVSTS

JSR
NP
JSR
BR

PC,a(SP)+
63
PC.SECERR
65

JSR

PC,a(SP)+

EnT
JSR

B8R

RROR

.60 BACK

;G0 TO 68 lF

01621
1

16224
1
1
16232

016232

pg.mm
4
m

¢
8831

JSR
8R

:GO VERIFY DRIVE CLEAR
;60
$ 1

607
608

16178
161

5
40

161
161

606 0161

26O CHECK FOR SECONDARY ERRORS
260 _TO 68 IF NO ERROR

:RETURN HERE IF ERROR

:ERROR # DEFINED BY SECERR SUBROUTINE
:G0 BACK FOR MORE ERROR CHECKS

ttt'ttt!tl.'.fit.ttt""'t"tttttt.ltttttltt'tt.itltt.tttt.t.tt'

SATEST 20

NOP TEST

SRRRAARRARNAARAAARAAAAANANRARREAAAANARANRARAAAEAAAAANAAAAAARAAAARAS

1
1
1
1

16264
1
1625

t120:
1

137

13701
12737

737
2‘}2 01
dleses 084130

Nop-

MOV

001226

MOV
o

JSR

sSCOPE CALL

csucx P

o%o?rtsm
TSTPRP

.WORD ogl

:START OF TEST
:INITIALIZE STACK POINTER
;RO
= UNIBUS ADDRESS

:(R1) = DEVICE BEING TESTED

:2SET TEST NUMBER IN APT RAIL BOX
sPREPARE DEVICE FOR TEST

:TASK DESCRIPTOR
Ai FOLLOWS:

sCLEAR CONTROLLER & SELECT DEVICE

:VERIFY CONTROLLER CLEAR OPERATION

ASg

a;.;%o

1 VIA PUT SWTI'E

g,.....
-

MO e

RROR
RROR

B8Y PUT SUBROUTINE

US FETCH

ER(S) WITH GET SUBROUTINE

8% v
%

PC,GETSTS
PC,GET

JSR
JSR

2s:

: 2

BR
NOP

160,RMCS10
PC,PUT

INDEX TABLE
NATOR BYTE
=
PUT BUFFER

MoV
JSR

$1,PUTINX

#20 PUTINX#]

F_ERROR

FINED BY TSTPRP -SUBROUT INE
F ERROR

= %

el el

141

JMP

i?é%

1545

§§mg

L T ;;.;" Sa %
88 =8 A38uEm 8
%
g
=
om Sm
3L

s D o) v

v 2

NOP
EMT

sRECAL IBRATE }&;‘Sfll
OR ‘PIP'" IS SET

Se %o

=D cd e

s nd) warch

B8R

m§§
i’o:

veg'frewfic IF VII.IR NOT VALID

wnd

-4

—

SEQ 0104

RNDAO RM8O F CINL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-21
NOP TE ST

7$:

PC,a(SP)+

—

T
"

efsze o5:

35
;pfi
§§

]

e T
[

me=<

]

S NOT MASKED

ERROR

D BY CMPERRSTS SUBROUTINE
E_ERROR CHECKS
HANGES IN DRIVE STATUS
ERROR

2WB3
]

STCDRVSTS SUBROUTINE
RROR CHECKS

INED

m>D

ECONDARY ERRORS

ERROR
ERROR
IF
sERROR # DEFINED BY SECERR SUBROUTINE
:60 BACK FOR MORE ERROR CHECKS
m

:60
sRETURN HERE

PRIERR SUBROUT INE
RROR CHECKS

-y

nn"

LTE . TR .

283388 8 i

(=)

)
A
A
R
AT A

PC,SECERR

PC,a(SP)+

JSR
BR
NOP
EMT
JSR

2 ag82 CD%; (=] 23
5
R
NX %
tn)
aR A= &
F
;=1“5 = wesz D o
e 33
mng =% <3 SSTA

PC.STCDRVSTS

288 88

JSR
BR
NOP
EMT
JSR
JMP

F_ERROR

INED BY GET SUBROUTINE

;E-A
$88

044416

883

016462

PC.(SP)+

§§§§i§ %

5%:

EMT
JSR
JMP

LR TR

PC,CMPERRSTS
DPE
13

060210

~
N
W~

ND FMSK

016462

D
cmd e
b
b e

PC.a(SP)+

e Se

050562

PC.PRIERR
4

JSR
BR
NOP
EMT
JSR
JMP

@
[=]

4£$:

016462

NOP
EMT
JMP

0463564

a—t

23 882
S8339
329

23R
R PR PRRRR
REFPES

d
d
nd
d

016462

D e

D d

N
A

=lslalolata]

- —g——y

SoRsERRaeE

SE@ 0105

PIRRRARNERARAAAARAAARARACAREAAARAARAARAAARAAAANARAAAAAAARCAAA
AR AAESY

S*TEST 21

OFFSET TEST

SRR ARRARARARARAAANA SN AAANAARANAAAAARAAAAAAAAAAARAAAARAAAAAAS
AR AR

=]
Rpurt

e
—

e
et

1278

OOO0O0OO0OO

fsr21:

1466

041532

001226

SCOPE
NOP
MOV
MOV

#STACK SP

MOV
MOV

$BASE , R
TSTOUE ,R1
#21,8TESTN

JSR
. WORD

054130

017006

EMT
JMP

sSCOPE CALL
sSTART OF TEST
sINITIALIZE STACK PCINTER
RO;RO = UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED
ssSET TEST NUMBER IN APT MAIL BOX

:PREPARE DEVICE FOR TEST
:TASK DESCRIPTOR AS FOLLOWS:
:CLEAR CONTROLLER & SELECT DEVICE

:VERIFY CONTROLLER CLEAR OPERATION
:PACK ACKNOWLEDGE IF VOLUME NOT VALID
:VERIFY PACK ACKNOWLEDGE ,_
:RECALIBRATE IF “SKI"" OR ‘PIP'* IS SET
:VERIFY RECALIBRATION

L ]

042546

QNM:N
A

N
RSKSISINONGSNNNON

=1%]
OWN

HOW
o

552 &H

SS22

w
S

igEHEER<>23288

DO—=OO0O0OOO

043504

-~ggaessess

SRR:amdd

SO ONIONIONS &

OMOOW
NNNNNNN NNNNNNNNNYN

-o

SEEEERERET

017006

017006
000001

3s:

4$:

1350
177776
000001
100000

SEet DL LR Ll

&H o

$3%

b oD

0000000

b e

d e

06%%16

g
iz

1$:

OO OO

: 982od=lelolele ool Q

-*:sggi thOi
SRRESGESES =

&
o000

oooonon

VIS

N
x

C NL _PT1 MACRD V04.00 28-JAN-82 16:24:51 PAGE 13-22

#RMCS1,PUTINX

#200,PUTINX+1

;SETUP PUT INDEX TABLE

;SET TERMINATOR BYTE .

#OFFSET!GO,RMCS1D
-SET RMCS1 OUTPUT BUFFER = OFFSET!GO
PC,PUT
;G0 WRITE RMCS1 VIA PUT SUBROUTINE
28
:GO TO 28 IF NO ERROR

98
PC,GETSTS
PC.TIMOUT
PC,GET
3s

98
PC,PRIERR
48

PC,a(SP)+

*RETURN HERE IF ERROR
*ERROR DEFINED BY PUT SUBROUTINE

*GO TO 98 IF ERROR
*SETUP FOR STATUS FETCH
*WAIT FOR GO TO RESET
:G0 READ

*GO TO

38 IF NO ERROR

*RETURN HERE IF ERROR
*ERROR # DEFINED BY GET SUBROUTINE

:GO TO 98 IF ERROR
;60 CHECK FOR PRIMARY ERRORS
*GO TO 4$ IF NO ERROR

*RETURN HERE IF ERROR
*ERROR # DEFINED BY PRIERR SUBROUTINE
:60 BACK FOR MORE ERROR CHECKS

*GO TO 98 IF ERROR

RMDSI,SBDDAT

:BAD DATA FOR TYPEOUT

m.séow

:G0OD DATA FOR TYPEOUT

zgm.msx

;fi.gmunon SET 27

;gn.msx
#~COM_SBDDAT

5$:

SEQ@ 0106

:gg;gr MODE ON??
4

891350
7777
100000

RMDSI,SBDDAT

:BAD DATA FOR TYPEOUT

g%A.SéDDAT

:GOOD DATA FOR TYPEOUT

1050562

PC,CMPERRSTS

:CHECK ANY ERRORS NOT MASKED

#°CATA,SBDDAT

ND FMSK
g:s

017006

060210

gg.a(sm
78:

PC,STCDRVSTS

3¢

PC,a(SP)+

017006
044416

*MASK FOR

RMER?

*G0 TO 78 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY CMPERRSTS SUBROUTINE

*60 BACK FOR MORE ERROR CHECKS
:G0 TO 98 IF ERROR

;60 cuegz FOR CHANGES IN DRIVE STATUS

*G0 TO 88 IF NO ERROR

*RETURN HERE IF ERROR
*ERROR # DEFINED BY STCDRVSTS SUBROUTINE
*G0 BACK FOR MORE ERROR CHEC

*G0 TO 98 IF ERROR

PC,SECERR

:60 CHECK FOR SECONDARY ERRORS

13
EMT

:MASK FOR RMER1

*G0 TO 98 IF NO ERROR

*RETURN HERE IF ERROR
*ERROR # DEFINED BY SECERR SUBROUTINE

RNDAO RM8O FCTINL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-23
OFFSET TEST

004736

017
660 017
661
662

9%:

JSR

SE@ 0107

PC.a(SP)+

;60 BACK FOR MORE ERROR CHECKS

PR AARRAARAARAAARARRA
AN AR AR R RN ARA AR
A
AR

SRTEST 22

GO/ATA TEST

SARAARRRAAANAIAAAAAAAAAARAAAANAROAAAARARAAAAAN

tsr22:

NOP

#STACK 3»
$BASE R
TSTQUE ,R1
#22,$TESTN
PC T§TPRP

B8R

JMP
MOVB
MOVB
MOV
JSR

128

$1,PUTINX :SETUP PUT INDEX TABLE
-SET TERMINATOR BYTE
#OFFSET !GO,RMCS1 ()
-SET RMCS1 OUTPUT BUFFER = OFFSET!GO
PC,PUT
:60 WRITE RMCS1 VIA PUT SUBROUTINE

JMP
JSR
JSR
BR

128
PC,GETSTS
PC,GET
3s

JMP
BIT
BNE
MOV
MOV

12$
#ATA,RMDS1
43
#ATA
AT
RMDS |
AT

EMT

001140
114
114

BIC

JSR
.WORD
.WORD
BR

PC,CMPERRSTS
O
g
s

JSR|
JMP

PS a(SP)+
12$

NOP
EMT

017426

rsni.saom

260 TO 128 IF ERROR

:ggsflteunon SET??

+GOOD DATA FOR_TYPEOUT
sBAD DATA FOR TYPEOUT

38:

IF NO ERROR
:60 T0
sRETURN HERE IF ERROR
sERROR # DEFINED BY GET SUBROUTINE

FER

b bk
b
b

~ NNNNNY

001350

;60 REA&REGISTER(S) WITH GET SUBRCUTINE

434

D
D e
D oD
D
i
e
o

050562

d e

e
b o

OOV

SotGNaNS

017426
100000

:SETUP TO READ ALL REGISTERS

X e

042546

:60_TO
128 IF ERROR

(=]

2s:

:GO TO 28 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR
DEFINED BY PUT SUBROUTINE

—

017426
042462

#200,PUTINX+1

BR
NOP
EMT

:60 TO 128 IF ERROR

%080
0

S
b
£~ P

nONWY

888

P
QurQuurg

S
=S&R3

3
¥RIEEE

SR Y

043016

000000

000 :

NOP
EMT

:PREPARE DEVICE FOR TEST
:TASK DESCRIPTOR AS FOLLOWS:
:CLEAR CONTROLLER & SELECT DEVICE
:VERIFY CONTROLLER CLEAR OPERATION
:PACK_ACKNOWLEDGE IF VOLUME NOT VALID
:VERIFY PACK ACKNOWLEDGE
:RECALIBRATE IF “'SKI' OR 'PIP"* IS SET
:VERIFY RECALIBRATION
:60 T 1$_IF NO ERROR
:RETURN HERE IF ERROR
:ERROR # DEFINED BY TSTPRP SUBROUTINE

054130

D ek andd

SNNNNN
(=1~

i cnch nmd et cand amd wwnd esd 20D e cnd

OCO0O00O00OOOOOOC

§88

A ANARANAAAAARAA AR

MOV
MOV
MOV
MOV
JSR

LWORD

017426

AR R AR RS

sSCOPE CALL
sSTART OF TEST
sINITIALIZE STACK POINTER
;RO = UNIBUS ADDRESS
s(R1) = DEVICE BEING TESTED
:2SET TEST NUMBER IN APT MAIL BOX

001226

SNDAO RM80 FCINL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-24
GO/ATA TEST

673 817
1
678

017

17244
1
81
1
680 017

681 8}

7
7
4
7

1
16

1545
154
141

017426

737

062546

1
1
81
}

15760
10
5
40
104

g01
692

693

694

— 050562

01
1
1
1
1
1

001142
001142

017426
37
05
40

060210

044416

PC,GET

;60 READ REGISTER(S) WITH GET SUBROUTINE

NOP
EMT

*GO TO 7$ IF NO ERROR

*RETURN HERE IF ERROR
*ERROR # DEFINED BY GET SUBROUTINE

JMP

128

JSR
B8R

PC.PRIERR
13

;60 CHECK FOR PRIMARY ERRORS
*G0 TO 88 IF NO ERROR

JSR
JNP

p&a(sm
1

*GO BACK FOR MORE ERROR CHECKS
$60 TO 128 IF ERROR

BEQ

EMT

246

BIT

MOV
BIC
CLR

*G0 TO 128 IF ERROR

#ATA,RMDS I

*RETURN WERE IF ERROR
:
# DEFINED BY PRIERR SUBROUTINE

*IS ATTENTION RESET??

:YES

RMDSI,SBDDAT
#CATA,SBDDAT
SGDDAT

:BAD DATA FOR TYPEOUT
;600D DATA FOR TYPEOUT

JSR

PC,CMPERRSTS

:CHECK ANY ERRORS NOT MASKED

.WORD

DPE

SMASK FOR

BR
NOP
EMT
JSR
I

JSR

EMT
JSR
NP
JSR

B8R
i

#NOP!GO,RMCS10 :SET RMCS1 OUTPUT BUFFER = NOP!GO
:g.vut
*GO WRITE RMCS1 VIA PUT SUBROUTINE
:G0 TO
‘r NO ERROR

JSR

953

;SETUP PUT INDEX TABLE
:SET TERMINATOR BYTE

128

NOP
017426

S1,PUTINX
PUTINX+1

SEQ 0108

JMP

LWORD

#200

*RETURN HERE IF ERROR
‘E
os;mo 8Y PUT SUBROUTINE
*GO TO 128
IF ERROR

NOP
EMT

B 100000 001350 8%

1
7
737
7
1046246

017426

685 01
689 1
01
687
688 01
689 01

NOP
EMT

B8R

05
40

MOVB
MOVB

MOV
JSR
BR

017426
0}7 74
74 004737 043564
23% 817
81

g1
s $188

5%:

NOP
EMT
JSR

NDTMSK

108

*MASK FOR RMER1

RMER2

p&a(sm

260 TO 108 IF NO ERROR
:RETURN HERE IF E
:ERROR # DEFINED BY CMPERRSTS SUBROUTINE
*G0 BACK FOR MORE ERROR CHECKS

PC
sn(onvsrs
1§

:GO
CHECK FOR CHANGES IN DRIVE STATUS
:G0 TO 11$ IF NO ERROR

*60 TO 128 IF ERROR

*RETURN HERE IF ERROR

128
PS‘SECERR

*ERROR # DEFINED BY STCDRVSTS SUBROUTINE
260 BACK FOR MORE ERROR CHECKS
*G0 TO 128 IF ERROR
:60 cnegx FOR SECONDARY ERRORS

PC,a(SP)+

*RETURN HERE IF ERROR
*ERROR # DEFINED BY SECERR SUBROUTINE
*GO BACK FOR MORE ERROR CHECKS

PS (SP)+

*60 TO 128 IF NO ERROR

PARARARARARARAARAAARANARACRAARAARARAAAAAAAAARARAAAARACRCAAAARAASCEY

S*TEST 23

WRITE ATA TEST

SAARRARARARRARRRAARAAAARAAAAAIAAANAANAAARAERAAAAAARAAAARACARTIARCRY

t5123:

SCOPE

sSCOPE CALL

RNDAO RMB0O FCTNL _PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-25

SEQ 0109

WRITE ATA TEST

b
—h b

0541

E BEING TESTED

#23,$TESTN

041532

;PREPARE DEVICE FOR TEST
:TASK DESCRIPTOR AS FOLLOWS:
:CLEAR CONTROLLER € SELECT DEVICE
:VERIFY CONTROLLER CLEAR OPERATION
:PACK_ACKNOWLEDGE IF VOLUME NOT VALID
:VERIFY PACK ACKNOWLEDGE _

0st130

7
04

043016

D =D wd ot

;89

755

017772

100000

RRSeRaTRRRRS

SPOONNON

D o
e

andd s

720

i v

719

s )

Sd el v

D el

NN NNNNNNNNNNYN

SRR

BN
NR
-

D o

o
i Qurdr s %
fio 1789

767

1350
114

11‘%
114

179200

g‘l‘”
1
16

017772

042546
017772

1545
1546

5%:

a3 38

Be%e

.GETSTS

§%; 333553388RERenIR=IaeTE &

01755

017544
017

D cod

ettt
75
1
1777
s S11288 000082 oz
;8; 017540
042546

z:TA RMDSI
“

"PIP

IS SET

FINED BY TSTPRP SUBROUTINE
F ERROR

;U; PUT INDEX TABLE

Vet BNt
OO0

0 7513
0175

1$:
‘

1ok qirdse 1arsr oon
8 7515 1 7
15

7474

017772
o el

D cod wd e cmd oD d o

701

§ 7298 0001

83 a.

000404

BoCATA

g;;n.séom

SB0OA T

AL TR

ESKILOR

WRITE
0

;SET RMCS1 OUTPUT BUFFER = OFFSET!GO
RMCS1 VIA PUT SUBROUTINE
IF NO ERROR
RE_IF ERROR
FINED BY PUT SUBROUTINE
IF ERROR

004

ey
tgtwé R1

TO READ ALL REGISTERS

7454
7460

699

700

% g&zfi 001226
e

8 288 283288 a4 STRSFA

mwn
w

744

ol b

01
81

00O

174
17432
174

# DEFINED BY GET SUBROUTINE

IF ERROR
'wmau SET??

sBAD DATA FOR TYPEOUT
:G00D DATA FOR TYPEOUT

1(R1) .R2
#CATNMSK
,R2

sR2 = ATTENTION BIT

R2,RMASO

#200.
601 X+

sPUT RMAS BIT IN OUTPUT BUF
SWRITE REGISTER INDEX IN TABLE
SWRITE TERMINATOR

sRETURN HERE IF ERROR
cERROR # DEF INED BY PUT SUBROUTINE
;60 TO 98 IF ERROR

#RMAS

IS’S.PUY

PC,GET

sCLEAR SIGN EXTENSION

:60 MH’; REGISTER(S) WITH PUT SUBROUTINE
260 _TO 53 IF NO ERROR

;G0 READ REGISTER(S) WITH GET SUBROUTINE
;G0 _TO 63 IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEFINED BY GET SUBROUTINE
260 TO 98 IF ERROR

CZRNDAO RMB0O FCTNL :g} MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-26
123
WRITE ATA T

751 017
722 017
1
1770
17710
1771
1771
2 }77;'
5 01

301

017744

g gl

017752
0177
8177
177
177
177;96
17770
gi 17772

68:

737 043564
%

137
017772
“; 100000 001350 78:
1
1350
001142
7 897;77 1142
g 7 001140

10ie

004737 050562
88840
40
104
004

98:

JSR
B8R
NOP
EMT
JSR
JMP
Efl
MOV
BIC
CLR

JSR
LWORD
JWORD
B8R
NOP
EMT
JSR

;g.menn

PC,a(SP)+
98
&mLRMDSI
RMDSI,SBDDAT
#~CATA, SBDDAT
$GDDAT
PC,CMPERRSTS
O
O
98
PC.a(SP)+

SEQ 0110

:60 cus;K TOR PRIMARY ERRORS
:60 TO 7$ IF NO ERROR
*RETURN WERE IF ERROR
*ERROR # DEFINED BY PRIERR SUBROUTINE
*GU BACK roa MORE ERROR CHECKS
*G0 TO 9% IF ERROR
xgsmemon RESET??
:BAD DATA FOR TYPEOUT

;600D DATA FOR TYPEOUT
;CHECK ANY ERRORS NOT MASKED
*MASK FOR RMER1
:MASK FOR RMER2
:G0 TO 9% IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY CMPERRSTS SUBROUTINE
*GO BACK FOR MORE ERROR CHECKS

Qttt.tttfittti.tt..tQt't"tt.t.tltQttittttttttttt'tttttttttttt't

ATEST 24

01777
01777
81777
40
17773 81
0011

Ts124:

SCOPE

NOP
MOV

§%
} 1 oo;%bg
;3‘
1 8127 7
26 001226

R'év"
MOV

ERROR/ATA TEST

S RANARRARRRARRAARAARNREARCREAARAAAANREAAAARAAARARACAAAANAAAAAAAAARAS

737 041532

JSR

058832 su§o

:SCOPE CALL

#STACK 3’

m
T éim
#24,STESTN
PC,TSTPRP

.WORD o§l1§o

*START OF TEST
SINITIALIZE STACK POINTER

"(‘gn
wfi?v’fc?&”?fi TESTED
:;SET TEST NUMBER IN APT MAIL BOX
4

:PREPARE DEVICE FOR TEST

STASK DESCRIPTOR AS FOLLOWS:

*CLEAR CONTROLLER & SELECT DEVICE

*VERIFY CONTROLLER CLEAR OPERATION

*PACK ACKNOWLEDGE IF VOLUME NOT VALID

SVERIFY PACK ACK!IILFDGE s
*RECALIBRATE IF

1545
mg
141

28:

BR
NOP
EMT
JMP
MOVB
MOVB
MoV
JSR
B8R
NOP
EMT
J¥
JSR

"SKI OR

:VERIFY RECALIBRATION

'PIP"

IS SET

:GO TO 1$ IF NO ERROR
*RETURN HERE IF ERROR
SERROR # DEFINED BY TSTPRP SUBROUTINE
108
G0 TO 108 IF ERROR
S1,PUTINX ;SETUP PUT INDEX TABLE
#200,PUTINX+1
:SET TERMINATOR BYTE
#OFFSET!GO,RMCS10
-SET RMCS1 OUTPUT BUFFER = OFFSET!GO
PUT
;60 mg
RMCS1 VIA PUT SUBROUTINE
*G0 TO 28 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR DEFINED BY PUT SUBROUTINE
108
*G0 TO 108
IF ERROR
PC,GETSTS
*SETUP TO READ ALL REGISTERS

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-27

124

SEQ 0111

ERROR/ATA TEST

740 020104
02011

042546

2501

0201

001350

743

0201

114

0201

764 9201
745 020146

114
114

746 0201

748 020156
02016
0201
020200
0202(

3$:

“

1545
1546
001426

20206
02

92021

750

020216
020224
g

001545
00154
00141

108

BIT

#ATA,RMDSI

MOV

RMDSI,SBODAT

BNE

73 050536

02026¢
02026
020266

020270

SERROR# DEF INED BY GET SUBROUTINE
:60 TO 108 IF ERROR
;IS ATA SET??

SYES!!

#°CATA,SBDDAT
WATA.SGDDAT

MOVE
MOVB
MOV
JSR BR

ARMER1PUTINX
#200,PUTINX+1
WUNS.RNER10
PC.POT
5

ENT

EMT

172

EMT

J¥

JSR

PCPUT

108

PC,GET

B&
NOP
EMT

J¥

108

gu.wsx

755 02030

1140

MOV

#ATASGOOAT

02032(

114

BIC

rsui.smn

1142

738 02t 3
760 02033¢
02033

020336
2ey

020340
020
2034

762 02035¢

D2(
020356

02036
N~

7§

2036

137

MOV

737 044416
3
40

RMDSI,SBDDAT

...
JSR
PC,STCORVSTS

NOP
020364

:RETURN MERE_IF ERROR

JERROR DEF INED BY PUT SUBROUTINE

S1,PUTINX ;SETUP PUT INDEX TABLE
#200 PUTINX+1 ~ :SET TERMINATOR BYTE
#NOP!GO,RMCS10 :SET RMCS1 OUTPUT BUFFER = NOP!GO

E,’.{

136 020 iF

:SETUP PUT INDEX TABLE
:SET TERMINATOR BYTE
:SET RMER1 OUTPUT BUFFER = UNS
160 WRITE
RMER1 VIA PUT SUBROUTINE
:GO_TO
58 IF NO ERROR

Mov8
MOVB
MOV

001350 7$:

:GOOD DATA FOR TYPEOUT

108

;gz 0202 72
UJZU

:BAD DATA FOR TYPEOUT

BR
NOP

0250

:60 READ REGISTER(S) WITH GET SUBROUTINE
;G0 _TO 38 IF NO ERROR

BIC
MOV

4l
-

J¥

NOP

BC.GET

Ear

D201

741

742

SR
BR

:60 TO 108 IF E

{60 WRITE RMCST VIA PUT SUBROUTINE

:60_TO 68 IF NO ERROR
:RETURN HERE IF ERROR
:ERROR

DEFINED BY PUT SUBROUTINE

;60

:60 TO 108

IF ERROR

:G0_TO 78 IF NO ERROR
:RETURN HERE IF ERROR
:ERROR # DEFINED BY GET SUBROUTINE
:60 TO 108 IF ERROR

‘52;‘-‘!‘ STILL SET??
:

-8+

:GOOD DATA FOR TYPEQUT

:BAD DATA FOR TYPEOUT

;GO CHECK FOR CHANGES IN DRIVE STATUS
:60_TO
98 IF NO E

;RETURN HERE IF ERROR

EMY
JSR
P

:ERROR # DEFINED BY STCDRVSTS SUBROUTINE
:60 BACK FOR MORE ERROR CHECKS
GO TO 108 IF ERROR

ISR

PLSECERR

60 CHECK FOR SECONDARY ERRORS

Bi:
NOP
EMT

JSR

PC,a(SP)+

:60_TO 108 IF NO E
:RETURN HERE IF ERROR

:ERROR # DEF INED BY SECERR SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

JRRARRAAAAAAAAAAAAAANEACARAARAAAAARAANACAAAARAAAAACCAAACROANNRNNS
108:

|
i

|
I

CZRNDAQ RM80 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-28
125
PROGRAM INTERRUPT TEST

s+TEST 25

SE@ 0112

PROGRAM INTERRUPT TEST

ii;;;"..tttt't......"t't'tt'tt...tt.'..ttltt'ttt.'.'ttitt.ttttt

1 o
020376 0137

;

11
1292

0
013 1
mg
76? 0
012737
25 001226
767 020412
7 041532

MOV
MOV
MOV
MOV
JSR

020416 82230

#STACK, SP
SBASE 63

TSTaUE R
#25,$TESTN
PC.TSTPRP

. WORD osl1§o

:SCOPE CALL

‘fimfi Esgncx POINTER
RO = uu‘us ADDRESS

*(R1) = DEVICE BEING TESTED
*sSET TEST NUMBER IN APT MAIL BOX
:PREPARE DEVICE FOR TEST

. :TASK DESCRIPTOR AS FOLLOWS:

sCLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID

:VERIFY PACK ACKNOWLEDGE
*RECALIBRATE IF 'SKI'’ OR

.
769
0
771
%

77%
775

77;9

77;3
1
7

79
.

79§

888404
40
104
000137
021054
113702
1255
702 1774
11

16205
1271
0127
11 ;8

3
1001

“

2
14

46
12746

MOV
MoV

392 000002
12
177400

“3, 177437

2s:

1 ;‘o
1 &9 g%

737 043016
0
137
021054

112737

127 ;
%0

1545

15:.3

141

168
svecr;,nz
#C<37%>,R2
(R2) ,Ré

g&‘

%;.

#*CPR7.R3

Moy
MoV

#PR6,~(SP)
.-g”

MOVB

#200,PUTINX

DEC
5
oo
MoV
MOV

1545

2(R2) RS
#98, (R2)
#PR ;«nz)
SVECT1+1 .ug
#°C<377>.R

MOV
MOVB

838%2%

112737 383303

BR
NOP
EMT
JMP
Mov8
BIC
MOV

*VERIFY RECALIBRATION

JSR
B8R
NOP
EMT
I

MOVB

=(SP)
,=(SP)

g.wr
168

‘PIP'’ IS SET

*60 TO 1S IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY TSTPRP SUBROUTINE
*G0 TO 168 IF ERROR
:R2 = INTERRUPT ADDRESS
:CLEAR SIGN EXTENSION
*SAVE WANDLER ADDRESS
:SAVE HANDLER PRIORITY
:WRITE HANDLER ADDRESS AND
:PRIORITY FOR THIS TEST
:R3 = INTERRUPT LEVEL
:CLEAR SIGN EXTENSION

:DECREMENT INTERRUPT LEVEL
2:PUSH #PR6 ON STACK
2:PUSH
ON STACK

$:PUSH R3 ON STACK
*:PUSH #53 ON STACK

* .60 uu;g REGISTER(S) WITH PUT SUBROUTINE
*G0 TO 38 IF NO ERROR
*RETURN HERE IF ERROR
SERROR # DEFINED BY PUT SUBROUTINE
:60 TO 168 IF ERROR

$1,PUTINX :SETUP PUT INDEX TABLE

MOVB

#200,PUTINX+1

:SET TERMINATOR BYTE

JSR

PC,PUT

) mrs RMCS1 VIA PUT SUBROUTI

MOV

B8R

NOP

SOFFSET!GO'IE,RMESTO

*G0

:SET RMCS1 OUTPUT BUFFER = OFFSET!GO!IE

TO 43 IF NO ERROR

*RETURN HERE IF ERROR

5$:

000002
0462546

- 02105
0463564
iéfig
§§

sR3 = GROSS TIMEOUY
PRIORITY
sDROP CP
s TIMEOUT THE INTERRUPT

168

;g.PRIERR

PC,a(SP)+

168

021054

F NO ERROR
;60 T0
sRETURN HERE IF ERROR
cERROR # DEFINED BY PRIERR SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
;G0 TO 16 IF ERROR

021054

060210

138:

PC,STCDRVSTS

Aany
1259

g l-lfla
53
3o

—n

w
(4,1
Y

Sea & Sz
»

s 33
-]

FOR

CMPERRSTS SUBROUTINE
RROR CHECKS

m®

gfi

:&I( SP)+

‘

758

NOT MASKED

PC,CMPERRSTS

ND FMSK

'msm CHECKS

128

168

RROR

INED BY PRIERR SUBROUTINE

050562

PC 3(SP)+

RS
3"
-TR

021054

rs‘mm

118:

[
=]

0463564

168

118

021054

PC,GET

—f

108

§asgg2 % 8 83388 ~£
4

042546

(SP)+, (SP)+

#108, (SP)

020724

737

:GO TO 78 IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEFINED BY GET SUBROUTINE
;G0 TO 168 IF ERROR

104251

;G0 READ REGISTER(S) WITH GET SUBROUTINE

& b=}
iomm
-.fl
~w
il
za% i -

gae

PC.GET
7$

(=]

JSR

000423

sRAISE CP PRIORITY

RTI

(=)

817

sWAIT FOR COMPLETION
:SSTLP TO READ ALL REGISTERS

3 88

816 (

ve05.RS

TIMOUT

LTATE]

04
40

809

PC,

ERROR

;GO TO 168 IF

...ml...fl.l

737

6$:

JSR
JSR
MOV
RTI
DEC
8PL

:ERROR D FI'?D 8Y PUT SUBROUTINE

168

s TIMEOUT BEFORE INTERRUPT

807
-

4S:

EMT
JMP

SEQ@ 0113

021054

FSRERESYII

CZRNDAO RM30 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-29
125
PROGRAM INTERRUPT TEST

HANGES IN DRIVE STATUS

% gMMO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-30

SEQ 0114

PROGRAM INTERRUPT TEST

181i
101
1016

021
021
gss 8 1
4
021

1
021
8 1

137

021054

737

0464416

148:

132

137

JSR
JMP

PC.@(SP)+

JSR

:; ‘SE CERR

NOP
EMT
JSR

PC,a(SP)+

MOV
MOV

4. (R2)
(R2
S.2(R2)

148

NOP
EMT

8 10

021054

27 80 }105 01041
o1oss$ 000002

'§§ 021054

168:

JMP

168

; ERROR

;G0 BACK FOR msosmoa CHECKS

A RRRRARAARARRARAAARA
RN RN A AAAARAAAANAAARANAAAAACAAAAAAAAAATNOY

tTEST 26

021054

1054
1056
1

021

INHIBIT INTERRUPT TEST

SRAARAARRARARAARRAAAAA
AR ATRAAAARRERAAAARAAARAARAAAAAAA RO AARY

5126
40
012706

013700

0011

001276

SCOPE
NOP
MOV

MOV

021070 013791 001466
- 021074 012737
6 001226

MOV
MOV

832 021102

JSR

737

0%1186 054130

041532

: SCOPE CAI.I.
S TAC
fisP
K

tfl?‘t’gésm
TST

.WORD 0130

:START OF
T

'INIUAUZE STACK POINTER
;RO = UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED

s2SET TEST NUMBER IN APT MAIL BOX
;PREPARE DEVICE FOR TEST

:TASK DESCRIPTOR AS FOLLOWS:

:CLEAR CONTROLLER € SELECT DEVICE

02117

1
021

MOV

021414

MOV
MOV

%
16 177437

12746

021350

DEC

2s:

eL
8IC

MOV

’(‘;sht
2:PR, (SP)
ui.-a»

IS SET

w
w

e Be By %

;sPUSH #68 ON STACK

-y I
mwvm
wwm

i5”2‘2
e;;;;
<5

12746

BIC

300

MOVB

400

12746

MoV

000002

;

'&zi
RS

P
mmn

2&}122.2

’

1152

1144 91 7

MOov8
BIC
MOV
MOV
MoV

IF ERROR

-y

1272
177400

138

Hod
338.‘:5:‘; g::!. ..Ea
g2 gf'; :.al;z
a2
a8
=

113705
2702
11
16205
01271

JNP

"PIP"

INED BY TSTPRP SUBROUTINE
ERROR

1
0211
1
1
1140

oS
§P="

021422

et vy

000137

”1

EMT

Ve Ge

104

IBRATE IE "SKITOR
Y_RECALIBRATION
$ 17 NO ERROR

' ]

1114

B8R

NOP

e BN

mg 383‘40

Ve VeV Ve ®eBe N Ve

02111

T
b2 abe
1344 ~ 8 SEDEE
330 " e ey o
2"Sm
;-

:VERIFY CONTROLLER CLEAR OPERATION
:PACK ACKNOWLEDGE IF VOLUME NOT VALID
SVERIFY PACK ACKNWLEDGE |

——e

..%

obirsr
04
000249
104

021422
000205

021364

NSRSR
Ne
&»

RN
— e e

e
e

D nd D = cnd o ol

8105 000002

73:

104252

PC,

TIMOUT

DELAY

MOVB
MOVB

#RMCS1,PUTINX
#200,PUTINX+1

:SETUP PUT INDEX TABLE
:SET TERMINATOR BYTE

MOV

#98, (R2)

BPL

DEC

T
128:

138:

*SET RMCS1 OUTPUT BUFFER = NOP
:GO WRITE RMCS1 VIA PUT SUBROUTINE
:G0 TO 5$ IF NO ERROR
:RETURN HERE IF ERROR
*ERROR DEF INED BY PUT SUBROUTINE
:G0 TO 138
IF ERROR

:NO ERROR

(SP)+,(SP)+
(SP)+.(SP)+
#108, (SP)

;ADJUST STACK
*ADJUST STACK

JSR

PC,GET

;G0 READ REGISTER(S) WITH GET SUBROUTINE

BR
NOP
EMT

#205.R3

*R3 = GROSS TIMER

(¥, o
cmP
MOV
RTI

:WAIT
FOR GO = 0

RTI

.mum
u;;teIF:‘?:E
Y PUT SUBROUTINE
*G0 T0 '1’53
ERROR

DEC

58:

0462546

021422

138

#NOP,RMCS10
pg.mt
5

8s:
9s:

SEQ@ 0115

R3,~(SP)
: sPUSH u ou sucx
#.$,-(SP)
?.
PC,GETSTS
‘8ETuP ro READ N.L mxsms
s1,
nimnx ;SETUP PUT 1 x
NX#T
SET TERMINAT
mr&st-eo'xe.mt
T ncst ouwur BUFFER = OFFSET!GO!IE
PC,
couu M'CS‘I
VIA PUT SUBROUTINE

MOV
JSR
BR
NOP
EMT
JMP
MOV

9%:

0565.'3"

RTI

021374

fr’}'
BPL

043016

000

888

gwugg T &y MR s&ms:c'x S

b
d e oD oD nd

JSR

48:

021422

005303
100376

112737

'JNP
E‘H'T,

86020

[=l=] t=i=1=]

cnd b cnd wmd wnd cnd cmd wmd wad w—b
oD md wd D

OO0

MOV
MOV
JSR
MOVB
MOVB
MOV
‘Rsa

§§141

021422

b wnd cd o

AP
P AR

$ERSE3
3

i s

o oo

)
o
L

[=lel=leleleleTalelelel]

OO0

00000 fiua"

EREETEZR

i
v

ra\fi\fl\.fl
W =O

TNL PT1 HACRg
V04.00 28-JAN-82 16:24:51 PAGE 13-31

JMP
EmMr
MOV

MOV

11$

138
252

*G0 TO 11S IF NO ERROR
*RETURN HERE IF ERROR

*ERROR # DEFINED BY GET SUBROUTINE

:60 TO 138 IF ERROR

R, (R2)

RS.2(R2)

Qtt.tttttttttttltt.tttt'ttttttt.ittttttltt'tttttttlt.tttttttttt

LTEST 27

RETURN TO CENTERLINE TEST

fg;s;ttttttt.tt.tttt..t'tttttltttltttttttfitttt't'ttttttttttlttttt

C RNDAO RM80 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-32
T 7
RETURN TO CENTERLINE TEST

nsmgx

)

tl Er!

001226

b ot

SEQ 0116

SCOPE

8 8
55
RS RAESES

puryey

ogrffitsm

DEVICE BEING TESTED
:(R
+sSET TEST NUMBER IN APT MAIL BOX

054130

:PREPARE DEVICE FOR TEST

:TASK DESCRIPTOR AS FOLLOWS:

:CLEAR CONTROLLER & SELECT DEVICE

18 IF NO E
:60_T0
:RETURN HERE IF ERROR
:

-y

114

4S:

$GDDAT
RMDS]
, SBDDAT
{;;m.saom

1142
1142

100000

001350

5$:

g"‘%
87
10000
114

050562

ggl.mosx

114

6$:

[]

b -]

P
)

fil.‘ifiuSERsRg

=yt

2
mm

‘

Cumg

ggh

PRIERR SUBROUTINE
RROR CHECKS

" =
"TM

INED BY

=
o

S NNNRONNNNN=Y
~N

szases
B
o
A
b

001350

Y ERRORS

9
o

L8(SP)+

ISTER(S) WITH GET SUBROUTINE
RROR
RROR
1
BY GET SUBROUTINE

=8 2
&
-

Pg.PRlElR
)

043564

8*m

3s:

x®

533 02 23

PC.GET

~
S OW

PC,TIMOUT

RROR
FOR STATUS FETCH
FOR RECAL TO COMPLETE

021744

9$
PC,GETSTS

3370

0462546

NOO NN

2$:

288 € meaRa8
iO
o
32 3
Smia
or 33 z
e |

021744

82 462

el o

SE.PUT

73
04
-

#RMCS1,PUTINX
#200,PUTINX+1
#RTC!GO,RMCS10

S 8%

sesasce

ses

ke
ed w3

3332330050
3 ERS L T

D
b=

—t
~J
P

I &2&

737
7
737
04

18:

DEFINED BY TSTPRP SUBROUTINE
F' ERROR

ITRTATRATIA
TR TRLTR
TR ] TR

i
Qg

U (S N

Wy
S &

N R

Ve %0 %%
%

021744

0001

LA TR TR TR YA TR A TR 1)

:VERIFY RECALIBRATION

R
S e
R
D
e
e

OO0000O0OO0O00

N—igo

OO0V

OOOOOOD

:VERIFY CONTROLLER CLEAR OPERATION
:PACK_ACKNOWLEDGE IF VOLUME NOT VALID
:VERIFY PACK ACKNOWLEDGE ,_
:RECALIBRATE IF “'SKI'* OR ‘PIP'' IS SET

GOOD DATA FOR TYPEOUT

BAD DATA FOR TYPEOUT

zgu.msx

%g.gneunon SET 22

RMDSI ,SBDDAT

BAD DATA FOR TYPEOUT

#4CATA,SBDDAT
mA.séooAr

:G0OD DATA FOR TYPEOUT

PC,CMPERRSTS

sCHECK ANY ERRORS NOT MASKED

gs;'mo RMB0 FCTNL PT1 MACRO V04.00 28-JAN-82 16:264:51 PAGE 13-33

SEQ 0117

RETURN TO CENTERLINE TEST

021670

8 167
167
02167
1
1;&
- }"

1157

.WMORD

1
40

137

910 1713

021744

737 060210

021714
5
02171
40
1
1
83'6
- } 4
137
021744
912

021

737

3 1
03
1
40
021740
1
8 1742 004
3}2 1744

B8R
NOP
EMT
JSR
Jip

PC,a(SP)+
98

*GO TO 88 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY STCDRVSTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
*GO TO 98 IF ERROR

JSR

PC,SECERR

;G0 CHECK FOR SECONDARY ERRORS

98:

JSR

B8R
NOP
EMT
JSR

DPE

:MASK FOR RMER1

044416

915

NDTMSK

-WORD
NOP
EMT
JSR
NP

PC,a(SP)+
98

PC,STCDRVSTS

PC.a(SP)+

*MASK FOR RMER?
:G0 TO 7$ IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY CMPERRSTS SUBROUTINE
:G0 BACK FOR MORE ERROR CHECKS
*G0 TO 98 IF ERROR

;GO CHECK FOR CHANGES IN DRIVE STATUS

*GO TO 98 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY SECERR SUBROUTINE
*GO BACK FOR MORE ERROR CHECKS

32 RERAARRARARARAANAAAARRANREEAAANAAARAAARRARANARAAARAAARAAEANARAASAARAY

READ IN PRESET TEST

S*TEST 30

s = ARRRRAAAARRAAARAAANARENAAAARARARAAAAAAAAARAAAAAARAAAANAARAR
TSNS

8 1744

ts130:

1744
"33
0217
021754
021760
o 021764

001226

919 021772

csm:xisr
$BASE
TSTQUE ,R?
#30,8TESTN

LWORD

054130

JSR

02177

SCOPE
NOP
MOV
MOV
MOV
MOV

Pg rg‘r)m

:SCOPE CALL
:START OF TEST
:’x.gmmze STACK POINTER
‘RO = UNIBUS ADDRESS
:(R1) = DEVICE BEING TECTED
:2SET TEST NUMBER IN APT MAIL BOX

:PREPARE DEVICE FOR TEST

:TASK DESCRIPTOR AS FOLLOWS:

:CLEAR CONTROLLER © SELECT DEVICE
*VERIFY CONTROLLER CLEAR OPERATION

:PACK ACKNOWLEDGE IF VOLUME NOT VALID

91
1
;1
1

‘}1

§g§ 022326

B8R

s"g';
JMP

MOV
MO

108

#PUTINX ag
#RMDA, (R2)+

:VERIFY PACK ACKNOWLEDGE
*RECALIBRATE IF *‘SKI"* OR 'PIP"*
*VERIFY RECALIBRATION

26O TO 1S IF NO ERROR

‘gaoa'
OR 'omfuxéoea'"v'mr'srm SUBROUT INE
*60 T0 103E IF ERROR
:R2 POINTS TO INDEX TABLE

MOVB

SRMDC
. (R2) +
#RMOF . (R2)+

MOV
MOV
MOV

#-1.RMDCO
#FMF16 ECI
!HCI ! SSE]!OFD ,RMOFO

m'i
gosx

IS SET
,

8#-1,RMDAD
‘1&5?"1”

#RIP!GO,RMCS10

PC,PUT

+GO WRITE REGISTER(S) WITH PUT SUBROUTINE

C RNDAO RM80 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-34
READ IN PRESET TEST

i G
9?5. g 114 gos
737
1

g‘3 02217

944
945

043564

9‘9

PC.PRIERR
43

1403
sr37
g

160577

: 5?37

007140

5037
1046161
5737

108

3s:

1375

3;3

106162

004737
115760

PC,a(SP)+
o

9§ 1
il
5

022326

9 § 1 013737 83338
9

PC,GET

pry

1
1
1
1

0462546

PC,GETSTS
PC,TIMOUT

001344
001344
001140

10§

58:
001142

957

:GO CHECK FOR PRIMARY ERRORS
260 TO 4$ IF NO ERROR

:RETURN HERE IF ERROR

:ERROR # DEFINED BY PRIERR SUBROUTINE
;GO BACK FOR MORE ERRM CHECKS

:60 TO 108 IF ERR
RES T""

YES!!
:BAD DATA FOR TYPEOUT
:GOOD DATA FOR TYPEOUT

16
$GDDAT
wfl

.IS WA RESET??

;18 WC RESET??
;YES!!

:BAD DATA FOR TYPEOUT

001142

+GO0D DATA FOR TYPEOUT

050562

PC,CMPERRSTS

ND TMSK
DPE

737
25

PC,a(SP)+

108

022326
060210

PC,STCDRVSTS

360 TO 10$ IF ERROR

CHECK ANY ERRORS NOT MASKED

;MASK FOR RMER1
sMASK FOR RMERZ2
;60 TO 88 IF NO ERROR

RETW HERE IF ERROR
;ERROR # DEH'ED BY CMPERRSTS SUBROUTINE
;60 BACKFOR MORE ERROR CHECKS

954

sRETURN HERE IF ERROR
:ERROR # DEFINED BY GET SUBROUTINE

:GOOD DATA FOR TYPEOUT

RMDAI ,$BDDAT

953

GO TO 38 IF NO ERROR

$GDDAT
160

RMDAI

0
40

;G0 READ REGISTER(S) WITH GET SUBROUTINE

RMO
g;c<rfi‘?2'ec1'uci'sgex'oro>
DAT
YES!

48:

001372

001372
001140

TATUS FETCH

)

004737
000424

§8

022120
0 } A

108

28%:

110
114

IR IR T AT

fldfl

933

SEQ 0118

i g%

9
8
3 1

B 10

022326

737

064416

PC,a(SP)+

108

10%:

:GO TO 108 IF
ERROR

sGO CHECK FOR CHANGES IN DRIVE STATUS
:60_T0
IF NO ERROR

:RETURN HERE IF ERROR

:ERROR # DEFINED BY STCDRVSTS SUBROUTINE
60 BACK FOR NRE ERROR CHECKS
GO TO 108 IF ERROR

:G0 CHECK roa SECONDARY ERRORS

JSR

PC,SECERR

108

60 T0 108IF NO ERROR

JSR

PC,a(SP)+

GO BACK FOR MORE ERROR CHECKS

CZRNDAO RMS0 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-35
T

SEQ 0119

READ IN PRESET TEST

958

959

tttttt.ttttttt‘l.ttttt't"t'tttttt'tlttttttttltttttttttt.ttttttt

LATEST 31

RMDC CLEAR OFFSET TEST

is;g;tttttttttttl'.t.tttt'ttt.t!t'ttil’tttfittttttttttttttttt'ttttt

scoP

NOP
MOV
MOV
MOV
MOV
JSR

.WORD

:SCOPE CALL

#STACK, SP
$BASE ,RO
rsmué R1
#31,8TESTN
PC,TSTPRP
054130

*START OF TEST
SINITIALIZE sucx POINTER
*RO= UNIBUS ADDRESS
2(R1) = DEVxce BEING TESTED
::SET TEST NUMBER IN APT MAIL BOX
:PREPARE DEVICE FOR TEST
:TASK DESCRIPTOR AS FOLLOWS:

:CLEAR CONTROLLER & SELECT DEVICE

:VERIFY CONTROLLER CLEAR OPERATION

:PACK_ACKNOWLEDGE IF VOLUME NOT VALID

:VERIFY PACK ACKNOWLEDGE
:RECALIBRATE IF

052888404
0
40
0
104
0 72 000137 022644

32588 405
764 112737
000000 001545
112737 000200 001546
410
416
4 2
4
426
4
% 0224
966
022440
bbb
4
"§
.
2:

3%%

012737
737
04
032 40
1
8821 7
737
737
40

000137

000015 001412
043016

022644
042462
042546

28:

022644

737
043564
25

¢ 7 855331 001350 4$:
; og};;o 114

7 177776
1 g 7 000001

112737

2 nsgr

00114
00114

001545

331546

.vemv RECALIBRAT 10N

'PIP'’

IS SET

BR
NOP
EMT
JMP

MOV
JSR
B8R
NOP
EMT
JMP
JSR
JSR
BR
NOP
EMT
JMP

#OFFSET!GO,RMCS10
:SET RMCS1 OUTPUT BUFFER = OFFSET!GO
PC.PUT
;G0 WRITE RMCS1 VIA PUT SUBROUTINE
2s’
:G0 TO 28 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR ggnneo BY PUT SUBROUTINE
13
:GO
TO 88 IF ERROR
PC,GETSTS
*SETUP FOR STATUS
PC,GET
:60
neng‘aesxstms) WITH GET SUBROUTINE
3s
NO ERROR
-aerum HERE IF ERROR
“ERROR # DEFINED BY GET SUBROUTINE
8s
*G0 TO 88 IF ERROR

MOVB
MOVB

JSR

8R
NOP
EMT
jg

Efl
MOV
BIC
ggtrr

''SKI" OR

#RMCS1.PUTINX
:SETUP
PUT INDEX TABLE
#200,PUTINX+1
:SET TERMINATOR BYTE

PC,PRIERR
4s

;G0
CHECK FOR PRIMARY ERRORS
:GO TO 4$ IF NO ERROR

;g.acsm

:g %C”HINF! mERROR CHECKS

gtsnLRMDSI
RMDSI, SBDDAT

#-COM_ SBDDAT
m.séom

#RMDC,PUTINX

mfi

TO 1S IF NO ERROR
nerum HERE IF ERROR
*ERROR # DEFINED BY TSTPRP SUBROUTINE
*GO TO 88 IF ERROR

#200,PUTINX+1

.-nerunnHERE IF ERROR
*ERROR
# DEFINED BY PRIERR SUBROUTINE

I-oggser ON??
Zw DATA FOR TYPEOUT

:G0OD DATA FOR TYPEOUT

:SKIP REST OF TEST

:SETUP PUT INDEX TABLE

-SET TERMINATOR BYTE

MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-36

SEQ 0120

SET TEST

8238” 001446

MOV

#0,RMDCO

:SET RMDC OUTPUT BUFFER = 0

JNP
JSR
B8R

8s
PC,GET
78

*GO TO 88 IF ERROR
:60 READ REGISTER(S) WITH GET SUBROUTINE
*GO TO 7$ IF NO ERROR

78:

JMP

*GO TO 88 IF ERROR

MoV

RMDSI ,$BDDAT

:BAD DATA FOR TYPEOUT

CLR

sg‘gmf

2GOOD DATA FOR TYPEOUT

022644
042546
33333"
1

1350

001350

JSR
B8R

00114

177776 00114

B8IC

001140

8$:

EMT

zg.nn

ggn.wsx

#~COM_SBDDAT
2

60 mz; RMDC VIA PUT SUBROUTINE
*G0 TO 68 IF NO ERROR

*DID OFFSET MODE RESET??

-+ :ttttttttttttttttttt'ttttttttttttttttttttttttttttttttttttttttttt

S*TEST 32

022644

Ts132:

022644
°§3
6

;l.o
1 83 001100

830 812
0137017 001560
- os 664
oooogg 001226

990 gssm

7
993 02¢716

339

740

LWORD

8884.04

1 o0
0831 023430

737 04
012702
063000

995

732

-F

737 052466
04

1 3§§

000137

;

023430

3s:

2?.‘;
JMP
JSR
MOV

;
csm:xfigr
$BASE
TorouE M

:SCOPE CALL
*START OF TEST
SINITIALIZE STACK POINTER
:R veI
B TRG TESTED

PC,TSTPRP

:PREPARE DEVICE FOR TEST

m‘.fiésm
040000

138

PC,GETSTS

#NOP,R2

::SET TEST NUMBER IN APT MAIL BOX
*TASK DESCRIPTOR AS FOLLOWS:

*CLEAR CONTROLLER & SELECT DEVICE

*G0

TO 1S IF NO ERROR

ggmenm'usggnxfrpsmsmp 'SUBROUT INE
*60 TO 138 IF ERROR
:SETUP FOR STATUS

JSR
B8R

PC,CNTCLR
3s

:60 ISSUE
CONTROLLER CLEAR
260 TO 3$ IF NO ERROR

JMP

G0 TO 138 IF ERROR

23'1'

:'5'5;0"3" msn'f»sf'x'us“no" BY SUBROUTINE

04
240

ek czad wids

g88
22
SN

;§-8§

NNNN

ufl\l

:g;{lgfle\gflsm MODE AND DIAGNOSTIC UNIT READY, DIAGNOSTIC ON
ndy el

JSR

040000

99,

;
02270

SCOPE
NOP
MoV

ROy
MOV

737 041532

676

ILLEGAL FUNCTION TEST

3+ ARRARRARARARAANRAAAERACRAAAAARNAARAAAAAAARAAANARAAAARAAAAACRAASAS

JSR

BR
NOP

SRMMR1,PUTINX
#200,POTINX+1
#DMD.RMMR10
PCPOT

:SETUP PUT INDEX TABLE

:SET TERMINATOR BYTE
:SET RMMR1 OUTPUT BUFFER = DMD
:GO WRITE RMMR1 VIA PUT SUBROUTINE

G0 _TO 4$ _IF NO ERROR
:RETURN HERE IF ERROR

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-37
T

E 10

SEQ@ 0121

ILLEGAL FUNCTION TEST

and

1002

EMT

&1" 7 001401 001436
7 043016

MOV
JSR
BR

#DMD | MUR ! MOC ,RMMR10
:SET RMMR1 OUTPUT BUFFER = DMD 'MUR'MOC
PC,PUT
260 WRITE RMMR1 VIA PUT SUBROUTINE
58
;G0 TO 5$ IF NO ERROR

JMP

138

03'6‘1’29 023430
i
112737
% 001545
112 7
061546

000137

023430

ss-/

JMP
MOVB
MOVB

:ERROR DEFINED BY PUT SUBROUTINE

138
:G0O TO 138 IF ERROR
#RMMR1,PUTINX :SETUP PUT INDEX TABLE
#200,PUTINX+1 _:SET TERMINATOR BYTE
360 TO 138 IF ERROR

sSET VOLUME VALII"RSEE?RE ISSUING FUNCTION CODE BEING EESTED

MOVB
MOVB
MOV
JSR
B8R
NOP
EMT
JMP

05 LPUTINX :SETUP PUT INDEX TABL
:SET TERMINATOR BYTE
#PAKACK ! GO,RMCS10
-SET RMCS1 OUTPUT BUFFER = PAKACK !GO
PC,PUT
260 WRITE RMCS1 VIA PUT SUBROUTINE
6
:G0 TO 68 IF NO ERROR
*RETURN MERE IF ERROR
*ERROR DEFINED BY PUT SUBROUTINE
138
*60 TO 138 IF ERROR

MOV
MOV
CLR
CLR
MOV
MOV

n%rous RMBAO :DUMMY BUS ADDRESS
#-1,RMJC0
( :DUMMY WORD COUNT
RMDAQ
:CLEAR DISK ADDRESS
RMDCO
. 3CLEAR CYLINDER ADDRESS
#FMT16,RMOFO
:16 BIT FORMAT
#PUTINX R
*WRITE REGISTER INDEX TABLE

1%
1%

gt
8IS

1 19

MOVE

1010
1011
1015
101
1014
1015

101

MOVB

1 13

MOVE

101
1

MOVE
MOVE

MOVB

}gg%
1

78:

”

1028

JSR
8R
NOP
EMT
JNP
JSR
JSR
BR
NOP
EMT
JMP
JSR
BR
NOP
EMT
JSR
JMP

#200,PUTINX+1

RMCS10
:S‘.’mm

;WRITE FUNCTION CODE IN BUFFER

#RMBA, (R3)+

#RMWC.(R3)+

#RMOF.(R3)+

#RMDA. (R3)+
#RMDC.(R3)+

#200,

s1,(R3)+
(R3)

PC.PUT
7s

13$
PC, TIMOUT
PC,GET
8s

13s
PC,PRIERR

PS a(sP)+
13§

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE
:GO TO 7$ IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY PUT SUBROUTINE
*G0 TO 138 IF ERROR
*WAIT FOR GO. TO RESET
;60 ne%aesxstsn(s) 'WITH GET SUBROUTINE
260 TO 88 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY GET SUBROUTINE
:60 TO 138 IF ERROR
;60 CHECK FOR PRIMARY ERRORS
*GO TO 98 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY PRIERR SUBROUTINE
*GO BACK_FOR MORE ERROR CHECKS
*60 TO 138 IF ERROR

‘

F10

1140

oon

114
m
114 2

pety

3 z

ugi

114

98:

MOV

SEQ 0122

FNCDTB(R2) ,SGDDAT

BIC

#°CILF,SGDDAT

BIC

#*CiLF,

MOV

RMER1I,

BEQ

%‘

DAT.SBDDAT

:GET ENTRY FROM FUNCTION CODE TABLF

sBAD DATA FOR TYPEOUT

;IS ILF STATUS CORRECT?

YES!!

e e

e 1

13737

e s

e e—

QOO0O COO0C OO

C RNDAO RM80 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-38
ILLEGAL FUNCTION TEST

82‘1’

88111.3

108:

MOV

88114 118:

114

114
114
00114

135
80
1140

8‘73385

1
1045
18’3

}
}3‘43
}g‘é

135

4
2
¢ 2 888896
000137 022722

128

;
o

}8;‘

mcprmz).scom

oem"
R RMDS]

%s AN ERROR DETECTED??

BIS

BIC

#ATA, SGDDAT

SYES = ATA SHOULD

MOV
BIC
CMP
BEQ
ENT

#°CATA,SGDDAT

;GET DRIVE'S ATTENTION
;IS ATA STATUS 0K??
SYES!!

50
a%
JNP

RMDSI,$BDDAT
#CATA,SBDDAT
DAT.SBDDAT
3
255

} R
gir;«a.nz
23

GO TO NEXT FUNCTION CODE
Z:egvst::::
STEST NEXT FUNCTION

'°ttlttttt'ttltt.tt..tt"fi'.tttttt.t*ttt.tt.t.t.tt.'t'ttttttttttt
S*TEST 33

INVALID COMMAND TEST

ts;;;.ttt'..tt.t.tlttt'ttt'tt..tt'..t.ttttt't..ttttttttttttttttt'

1
1

18?2
1056
0

13701

SCOPE
NOP
MOV

1190
1276

i
z

751 052466

1
d

g 9

137

024154

’i

1066

60TO 138If ERROR
:SETUP FOR STATUS

;g.cmcm

:60 'ssfs
'coumousn CLEAR
:60 T0
NO ERROR
*RETURN uene IF ERROR
*ERROR
R DEFINED BY SUBROUTINE
:60
TO 138 IF ERROR

:sucx“r

o
rut R1

LSTESTN
TSTPRP

.WORD ofboso

0241564
7
4

WEME

138
PC,GETSTS

MoV
JSR

:255

JMP
JSR

MOV

0612737
001226
737 041532

137

MOV

osw %ooo

;
1

B8R

:SC
:START OF TEST
SINITIALIZE STACK POINTER
*RO = UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED
::SET TEST NUMBER IN APT MAIL BOX
:PREPARE DEVICE FOR TEST
:TASK DESCRIPTOR AS FOLLOWS:
*CLEAR
mu.sn SELECT DEVICE
:60 TO 1S IF NO ERROR

mem

JMP

138

MOVB

#RMMR1,PUTINX

JSR
B8R
NOP
EMT

EEL%@"‘”"‘ MODE AND DIAGNOSTIC UNIT READY, DIAGNOSTIC ON
.

023524

112737

000024

001545

;SETUP PUT INDEX TABLE

6 10

SEQ 0123

s
16

0246154
4
1401
3016

#200,PUTINX+1

g
1

1545

§1 566

#DMD,RMMR10
PS.PUT
4

;60 TO 138 IF E&M

4S:

#RMMR1,PUTINX

;SETUP PUT INDEX TABLE

;SET TERMINATOR BYTE

#DMD | MUR ! MOC ,RMMR10
PC,PUT
;60
WR

1436

024154

5§

138

:SET RMMR1 OUTPUT BUFFER = DMD!MUR'MOC
; RMMR1 VIA PUT SUBROUTINE
IF NO ERROR

*RETURN MERE IF E
:
FINED BY PUT SUBROUTINE

$ IF ERROR

SSISSISIsse

sSET TERMINATOR BYTE
:SET RMR OUTPUT BUFFER = DMD
;G0 WRIT RMMR1 VIA PUT SUBROUTINE
:60 T0 4 IF NO ERROR
sRETURN HERE IF ERROR
sERROR DEFINED BY PUT SUBROUTINE

001412

MOV

001416
001414

3353895 ¥39%; 5aNEvyRRaeaaceas

001444

e e

s e e

VALID IS LEFT RESET FOR THE TEST

it
1698
109

%
7

0462546

024154
0463564

8;&33 001140 98:

8IS

:So RMCS10

LRMCS10

FUNCTION CODE IN BUFFER

aegme

DUMMY BUS ADDRESS

RMDAQ

EAR DISK ADDRE

#-1,RMJc0
ncg
#FMT16.RMOFO
#PUTINX R

SRMBA,
(R3) +

DUMMY WORD COUNT

EAR CYLINDER ADDRESS
FORMAT
REGISTER INDEX TABLE

SRMIC
. (R3) +

#RMOF
. (R3) +
SRMDA,
(R3) +
#RMDC . (R3) +

alzuolssi 5'3”
(R3)
#200,
PC,.PUT

:60 WRITE REGISTER(S) WITH PUT SUBROUTINE
260 TO 78 IF NO ERROR

PC, TIMOUT

:ERROR sgsmeo BY PUT SUBROUTINE
IF ERROR
:G0 TO 138
*WAIT FOR GO TO RESET

:g.sfl
138

;g.mm
7&0(5’)0
FNCDTB(R2) ,$GDDA

*RETURN MWERE IF ERROR

:60 READ
REGISTER(S) WITH GET SUBROUTINE
260 TO 88 IF NO Em
*RETURN HERE IF ERROR
DEFINED BY GET SUBROUTINE
*ERROR #
*60 TO 138

GO CHECK

IF ERROR

FOR PRIMARY ERRORS

G0 TO 98 IF NO ERROR
RETURN HERE
IF ERROR
DEFINED BY PRIERR SUBROUTINE
FOR MORE ERROR CHECKS

CZRNDAD RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-40
133
INVALID COMMAND TEST

}097
18&

4108 7:"
7 16;799

1180

001140

1101

hge
1104

1
11&
11

40
41
41

1111

0241

1110

1116
m
mg
;;1

115?

00114

114
114

118:

02411

1140

0241

88114.

02414
‘"5'3
41
4154

FNCDTB(R2)
, SGDDAT

8IS
BIC
MOV

#ATA,SGDDAT
#°CATA,SGDDAT
RMDS I
AT

128:

6
023506

o
MOV

BIC

00114

'n.tcl’t f : :}
#°C vcifin

10$:

138:

SEQ 0124

%5
BIC

BEQ

1140

828888 881358

11z 0541

1115

%%2
114

W10

T.SBDDAT

kR ,RMDS I

#~CATA,SBDDAT

DAT.SBODAT

BEQ

ADD

s .a;

cMP
BLO
JNP

#ILF76,R2
1
:
23
:

BAD DATA FOR TYPEOUT

;IS IVC STATUS CORRECT?

SYES!!

5%§'m ERROR DETECTED??
SYES= ATA SHOULD BE ON
:GET DRIVE'S ATTENTION
;IS ATA STATUS OK??

SYES!!

;60 TO NEXT FUNCTION CODE

:DONE??
SYES !
STEST NEXT FUNCTION

3 :ttt.tttt't'.tttttt.ti't.'ttttt.tt..'.'.t.l'tttttttt..tttttttttt
SSTEST 34

INVALID ADDRESS ERROR TEST

SRR ARAARRAARARAAARANRCANRAAAARRARARAARARARNACAAARAAAAAAAACAAAARSASY

3 4154
TS134:
4154
SCOPE
0 “38
)
NOP
8 41
1
ngo
MOV
41% 1
1276
MOV
8 41
13701 001
MOV
"55 61746 012
000034
001226
MOV
1123 024202
737 041532
JSR

054586 %ooo

.WORD 040000

1126
1125

4.12
421
16 1
38
024

137

1128

024

rg 052466

”

4
m

4250

04
40

024744

“

3?3;324 835385

.:
)

137

024744

38:

“

osmxfisr
$BASE
rfin‘t R1
#36,STESTN
PC,TSTPRP

BR
NOP
EMT
JoP
JSR

MOV

JSR
B8R
NOP
EMT
JMP

138
PC,GETSTS

#NOP ,R2

Pg.cntcu
3
138

:SCOPE CALL
:START OF TEST
:INITIALIZE STACK POINTER
:RO = UNIBUS ADDRESS

:(R1) = DEVICE BEING TESTED
::SET TEST NUMBER IN APT MAIL BOX

:PREPARE DEVICE FOR TEST

:TASK DESCRIPTOR AS FOLLOWS:

*CLEAR gonmm.su & SELECT DEVICE
:60 TO 1$ IF NO ERROR

*RETURN HERE IF ERROR
*ERROR # DEFINED BY TSTPRP SUBROUTINE
*60 TO 138 IF ERROR
:SETUP FOR STATUS

:60 ISSUE
CONTROLLER CLEAR
*60 TO 38 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR
R DEFINED BY SUBROUTINE
260 TO 138 IF ERROR

;ss{lgm“ TIC MODE AND DIAGNOSTIC UNIT READY, DIAGNOSTIC ON

112737

001545

834532 n5§7 838%0 001546

MOVE

MOVB

#RMMR1,PUTINX

;SETUP PUT INDEX TABLE

#200,PUTINX+1 :SET TERMINATOR BYTE

110

CQ'OAO RMBO FCTNL PT1 MACRO Vv04.00 28-JAN-82 16:24:51 PAGE 13-41

SE@ 0125

IKVALID ADDRESS ERROR TEST

Ai
Re AA Le CENS

81038% 001436

MOV
JSR
BR
NOP

EMT
JMNP

024744

MOVB
MOVB
MOV
JSR
BR
NOP
EMT
JMP

#DMD, RMMR10
PC,PUT
4%

T BUFFER = DMD
1 v IA PUT SUBROUTINE
E
IF E
[ Y PUT SUBROUTINE
3

138
#RMMR1, PUTINX
#200 PUTINX+1

#D
{ MUR
MD
! MOC,
PC LPUT

138

-‘4*[a-toeo‘f]a[te5acotat~TeSDaMtoaOtaWtatart4e[-ee9egG€gWwetyPcataPdtat[qtgooTORIORWge-rDOn-o—Tat-~

©&N3N-°23e~5-38“AeZnRLIRAoRrge—srgee=ree—8vXegLr|e—gsToMOoge£O£g0ggPg0TOTeeoTFr-o8s—3N8-ge0LR8-olMRA

Ll —

;

58:

323505 A

§1 545
1
1

Eaad 2
S~PUTINX
w

("]

PUTINX+1

#PAKA CK!GO .RMACS1

23c$832u¢83E58s23§ ”“-"v

-L&aN=~—o) —

PC,.PUT

138

RMC s10

:?Iq&céwRMBAO

u'Q.mé
£

mnf}b
#RMOF

FRMDA
PRMDC
3

#200,

R3)+

PC,GET
8s

138

JSR
B8R

PC,PRIERR

)¢+
)+
)¢

R3)+
R3)+

1
PC

78:

u¥ ¢

;SET VOLUME VALID BEF
s

4
b~ S

D b D b wad wd b
— e o
D el b
D De d s
e o o d ok o cmd

LRQRAT2S JAJFRNANIITEAZ
SRR

(')0 28-JAN-82 16:24:51 PAGE 13-42

1140
114
114
114
114

1140

1358

— e
i wd d d d b b b o
b e d wd d d D i
nd
e

1140
1140
114
114
114

9%:

10$:

118:

NOP
EMT
JSR
JMP
MOV
BIC
MOV
BIC
CMP
BEQ

138:

SEQ 0126
IETIM I'ERE

ERROR # DE I‘D DY PR!ERR SUBROUT INE

PS‘O(SP)O

.GO BACK

ERROR CHECKS

RMER11,SBDDAT
#*CIAE,

;BAD DATA FOR TYPEOUT

G0 TO 133 m

Fntgxg(k?.) i‘GDDA*

?DAT%AT

GET ENYRY FROM FUNCTION CODE TABLE

lS IAE STATUS CORRECT?

4
33

MoV

FNCDTO(IZ) ~SGDDAT

BEQ
8IS

RR,RMDSI

.%S AN ERROR DETECTED??

#ATA,SGDDAT

sYES = ATA SHOULD BE ON

RMDS]

sGET DRIVE'S ATTENTION

BIT

BIC
MoV
BIC
cMP

#°CATA mn

rwi

BEC

128:

J 10

&R
ADD

cwe

ggfisz

;1S ATA STATUS 0K??
JYES!!

;60 T0 NEXT FUNCTION CODE

Rt
YE

:TEST NEXT FUNCTION

SRAARRRREARARAARANANA
TNV RARAAAAAAAAAAANEANRARANAARRAAAARTIANNE

tYESt 35

WRITE LOCK ERROR TEST

"..l....t.t...........'.".Q.'.....t..tt.fitt.t...ittt.tt..'..t'.

041532

025530

18:

052466

1195

025530

3s:

ligefiésrn
060000
18

138

SIMITIACIZE
SnADDRESS
umrmwun
‘RO = fius

(RU =
VICE BEING TESTED
ssSET TEST NUMBER IN APT MAIL BOX
:PREPARE DEVICE FOR TEST

:TASK DESCRIPTOR AS FOLLOWS:

sCLEAR ggumu.enSELECT DEVICE
:co
70

F NO E

:60 TO 1

IF ERROR

mflavursmp SUBROUT INE

;SETUP FOR STATUS

;g.CNFCLI

CONTROLLER CLEAR
l$$§
;60
F NO Em

RETW .EIE IF_ERROR

138

:ERROR MFE
:60 TO 138 IF

mows

001226

OSYK

:SCOPE u\u

SCOPE

8%z 3g 388 §§ §§§§§

ts13s:

EF INED BY SUBROUTINE
ERROR

RNDAO RMBO FCTNL PT1 MACRO Vv04.00 28-JAN-82 16:24:51 PAGE 13-43

K10

SEQ 0127

i
:

—

—td b

pers

51
51

§£§

888

3 488gNNNN

s
s

i
ih

:SET DIAGNOSTIC MODE AND DIAGNOSTIC UNIT READY, DIAGNOSTIC ON

pry

1
1
1
1

3838

WRITE LOCK ERROR TEST

025530
4
161
043016

e B
001412

ié? 33574
1222

MOVB

#RMMR1,PUTINX

;SETUP PUT INDEX TABLE

MOVB
MOV
JSR
B8R
NOP
EMT
JMP

czoo,Puuum *SET TERMINATOR BYTE
#DMD {MUR 'MOC !MWP_RMMR10 :SET RMMR1 OUTPUT BUFFER = DMD'MUR'MOC ‘MWP
pg.pur
;G0 WRITE RMMR1 VIA PUT SUBROUTINE
5
260 TO 5$ IF NO ERROR
*RETURN HERE IF ERROR
*ERROR DEFINED BY PUT SUBROUTINE
138
*GO TO 138 IF ERROR

sSET VOLUME VALID BEFORE ISSUING FUNCTION CODE BEING TESTED

MOVB
MOVB

MOV

NNNNNN ~

g5t

55;‘0?‘0"5?5:3 aS"m”' SUBROUT INE
260 TO 1§s IF ERROR

JSR
B8R
NOP
EMT
JMP
MoV
BIS
MOV
MOV
CLR
%c

78:

S1,PUTINX

#200,PUTINX+1

:g.mr
4
138
030 RMCS10
R2,RMCS10
#BUFONE ,RMBAO
#-1,Rmuc0
RMDAO
ncg
SEMT16

#PUTINX 'n'?

MOVB
MOVB
MOVE
MOVB

#RMMC.(R3)+
#RMOF
.
(R3)+
#RMDA.(R3)+
#RMDC.(R3)+

MOVB
MOVB
JSR
B8R
NOP
EMT
JMP
JSR
JSR
B8R
NOP

:;SETUP PUT INDEX TABLE
:SET TERMINATOR BYTE

#PAKACK ! GO, RMCb

MOV

MOVB

g82
£24 4

121
121
1214

b b \) b

1 12 ‘ g

b e et b ot =2 )

}

138

cond) m wernd ol vl cel wned e

*SET RMMR1 OUTPUT BUFFER = DMD
:G0 WRITE RMWR1 VIA PUT SUBROUTINE
*GO TO 4$ IF NO ERROR

%
JMP

#DMD.RMMR10
pg.rur

001545
881546
1436

025530

MOV
JSR
B8R

001545

*CYLINDER, AND DIAGNOSTIC WRITE LOCK
MOVE
#RMMR1,PUTINX
;SETUP PUT INDEX TABLE
MOVEB
#200,PUTINX+1
:SET TERMINATOR BYTE

#RMBA, (R3)+

si,(R3)+
(R3)
;g.rur
#200,

138
PC, TIMOUT
PC,GET
8s

SET RMCS1 OUTPUT BUFFER = PAKACK'GO

260 WRIT ancs1 VIA PUT SUBROUT INE
:G0 TO 68 IF NO ERROR
*RETURN WERE IF ERROR
*ERROR
DEFINED BY PUT SUBROUTINE
*G0 TO 138 IF ERROR
;WRITE FUNCTION CODE IN BUFFER
:DUMMY BUS ADDRESS
*DUMMY WORD COUNT

:CLEAR DISK ADDRESS
*CLEAR cvuum ADDRESS
:16 BIT FORMAT

*WRITE REGISTER INDEX TABLE

:60 WRITE REGISTER(S) WITH PUT SUBROUTINE
260 TO 7$ IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY PUT SUBROUTINE
:G0 TO 138 IF ERROR
*WAIT FOR GO TO RESET
60 READ REGISTER(S) WITH GET SUBROUTINE
*GO TO 88 IF NO ERROR
*RETURN HERE IF ERROR

TSAO

104
0001

EMT
JMP

025530

wsd
cred

;G0 cuesg FOR PRIMARY ERRORS

ps A(SP)+

:GO BACK_FOR MORE ERROR CHECK

#°CULE
. SBODAT

DAT.SBDODAT

108:

RR,RMDS |

1
#ATA,SGDDAT

#°CATA,SGDDAT

118:

RMDSI

#°CATA,SBDDAT

138

128:

025022

:BAD DATA FOR TYPEOUT

;IS WLE STATUS CORRECT?

JYES!!

FNCDTB(R2) ,$GDDAT

*GO TO 93 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY PRIERR SUBROUTINE

RMERT],$BDDAT

YrYs

NVNOO

001140

D ad

077777

g.mm

3u§m<nz>
ssooAiGo - 1335%'55?39'51«& FUNCTION CODE TABLE
, SGDDAT

b e
it o
i mad wed

077

26O TO 138 IF ERROR

#°CWLE

o
b

W
wne
OO0

001350

;ERROR # DEFINED BY GET SUBROUTINE

138

% 3

07000

SIS S

001140

YT A AR YN

88888

8 5530

88888
88
el oy ameh s wadt R

043564

>
A N
&~

A~
I NS S
Vi A

wno

SEQ 0128

S0 eReeeoeeoRe0oSSSSSeSS882eS

[

RS
- d —d
) e o
h o

b e e e

b e

b - o

- )

NONNNNNNNINNN
NN NN N NNNNNONPNON

L 10

RMBO FCTINL PT1 MACRO 'VN.OO 28-JAN-B2 16:26:51 PAGE 13-44
TE LOCK ERROR TES

CZRND.

13s:

:w'm ERROR DETECTED??
JNO!!
SYES = ATA SHOULD BE ON

:GET DRIVE'S ATTENTION
:1S ATA STATUS 0K??
sYES!!

cz.n;
fi&" 6.R2

;60 TO NEXT FUNCTION CODE
:ggs&gg

:TEST NEXT FUNCTION

SIRARNARAARARAARAAAAAAAAAAEREAEARAAAAARAAAAARAAARAAAAAARAAAAAAARAAASY

S*TEST 36

ERROR ABORT TESTS

0001

026062

:RECALIBRATE IF
VER
:

’

;60 TO 98

“'SKI"

gg
EE

:PREPARE DEVICE FOR TEST
:TASK DESCRIPTOR AS FOLLOWS:
:CLEAR CONTROLLER & SELECT DEVICE
:VERIFY CONTROLLER CLEAR OPERATION
:PACK_ACKNOWLEDGE IF VOLUME NOT VALID
:VERIFY PACK ACKNOWLEDGE _
X

030

]
-

TSTQUE ,R1
#36,$TESTN

)

$BASE

JSR

:sucxfisp

sSCOPE CALL
sSTART OF TEST
sINITIALIZE STACK POINTER
;RO = UNIBUS ADDRESS
s(R1) = DEVICE BEING TESTED
ssSET TEST NUMBER IN APT MAIL BOX

054730

3E38

s SRE
8
s

3?”0?%

wvivh

001226

SCOPE

3338

T5136:

jel=lelelelale]
NN
(=1=]
LY

wvibn

—

"t.Qt'ttt.'Qtltlttt.t""t'.'.t.fitt...ttttt’tttttttt.ttttfitttt.t

TION

OR 'PIP"*

IS SET

Y TSTPRP SUBROUTINE

CZRNDAO RM80 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 1345
T

SEa 0129

ERROR ABORT TESTS

}égg 025576

1238
};23

1os

1261
;

152.;

18:

;
3?’5702 833335
1

2516

e RT iyT £ 0 115 Tp—
MOV #NOP,R
*R2 = FUNCTION CODE

73{ 052466

104800
026062
a
6 112737
14 88154.5 0 000137

5640
ggl.s
]

1546

012737
001426
7 043016
04

3636
100500" 026062
5660 000137
.
26“ 12737 000001 001412
5295
so§7 00141
76 012737 104372 001416
5
5712
5
5

1 ;y 1
012737
012737
012737 01

740

5744

1127

1127
1127

;go 11
760

5764
5
577
:

1545

001414
1420
1446
1444

004737 043370

026062

MOVB

MOV
JSR
BR

EnT
MOV
BIS
MOV

MOV
MOV
MOV
MOV

#200,PUTINX+1

#UNS . RMER10
PC,PUT
11

#GO,RMCS10
ag?incsw

ae?roue RMBAO
#-1,RMuC0
LRMDAD
RMD
#FMT16,RMOFO

MOVB

#RMWC.(R3)+

MOVB
MOVB
JSR
B8R
NOP

#RMBA, (R3)+

CONTROLLER CLEAR
gr NO ERROR

:SET- TERMINATOR BYTE

:SET RMER1 OUTPUT BUFFER = UNS
*GO WRITE RMER1 VIA PUT SUBROUTINE
*GO TO 4$ IF NO ERROR

{BRAOR
DEF INED BY PUT SUBROUTINE
360 TO 98 IF ERROR
:WRITE
FUNCTION CODE IN BUFFER
:DUMMY BUS ADDRESS
:DUMMY WORD COUNT
*CLEAR DISK ADDRESS
*CLEAR CYLINDER ADDRESS
:16 BIT FORMAT

*WRITE REGISTER INDEX TABLE
|

#RMOF
. (R3)+
#RMDA. (R3)+
#RMDC.(R3)+

#20 ,

s1,(R3)+
(R3)

PE.PUT
5

EMT

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE
*G0 TO 58 IF NO ERROR
:
*RETURN HERE IF ERROR

*ERROR # DEFINED BY PUT SUBROUTINE

:WAIT FOR COMMAND TO COMPLETE

.
)

:60 ISSUE
:60 TO

SBRROR#'DEFINED
BY CNTCLR SUBROUTINE
:G0 TO 98 IF ERROR
R1,PUTINX :SETUP PUT INDEX TABLE

#PUT]

MOVE
MOVB

PC,CNTCLR
3s

MOV

MOVE

7 0462546
40

137
026062
737 043564
S
0

ERT
JMP
MOVB

MOVE

0000

1127
11271
oogsoo
737 043016
os
530

JSR
B8R

JSR

PC,TIMOUT

;G0 TO TIMOUT SUBROUTINE

JSR

:g.ssr

:60 READ REGISTER(S) WITH GET SUBROUTINE
:G0 TO 6 IF NO ERROR
*RETURN HERE IF ERROR

9s
;g.msnn

*G0 TO 9% IF ERROR
;60 CHECK FOR PRIMARY ERRORS
*GO TO 7$ IF NO ERROR
*RETURN HERE IF E

B8R
NOP
EMT
JMP
JSR
B8R
NOP
EMT
JSR

JMP

PC,a(SP)+
9s

*ERROR # DEFINED BY GET SUBROUTINE

*ERROR # DEFINED BY PRIERR SUBROUTINE
260 BACK FOR MORE ERROR CHECKS

:60 TO 98 IF ERROR

5
3

CZRNDAO RMB0 FCTNL PT1 MACRO V04.00 28~JAN-82 16:24:51 PAGE 1346
T

N 10

SEQ 0130

ERROR ABORT TESTS

1588

1289

1
1291
1

}

78:

n627
54 g 7

8s:

883892
6

ADD
CMP

BHIS

9s:

;
mr 6.R2
28

;ADVANCE FUNCTION CODE
“DONE ALL COMMANDS
NO 1!

2 'tttttttlttt.ttttt.ttt'lttttttttttt'tttttttttttfitttttttttttttttt

SATEST 37

RMR TEST

ig;i;.tttttttttttttttttttttttttttttQtttltttttttltfiltttttltttttttt

1
1

"39

110 ool.m 041532

SCOPE
NOP
MOV
MOV

001226
:

MOV
MOV

,rsroué R1
#37,8TESTN

JSR
.WORD

NOP
EMT
JMP

csm:x 3’
E,R

PC,TSTPRP 040000
11$

:SCOP
L
*START OF TEST
SINITIALIZE STACK POINTER
*RO = UNIBUS ADDRESS

am = DEVICE BEING TESTED
:2SET TEST NUMBER IN APT MAIL BOX

:PREPARE DEVICE FOR TEST
*TASK DESCRIPTOR AS FOLLOWS:
.ch comut.sn SELECT DEVICE
*G0 TO 1SIF NO ERROR
*RETURN uene IF ERROR
*ERROR # DEFINED BY TSTPRP SUBROUTINE
:60 TO 118 IF ERROR

;SETUP GET INDEX TABLE TO READ ALL REGISTERS

001545
881546
1436
o
1545
1546

1436

JSR
MOVB
MOVE
MOV
JSR
B8R
NOP
EMT
JMP

PC,GETSTS
#RMMR1,PUTINX
#200,PUTINX+1
#DMD _RMMR10
pc.pur
3s

MOVB
MOVB

#RMMR1.PUTINX
#200 POTINX+1 '

MOV
JSR

8R
EMT
JMP

118

1545

154

141

5$:

MmoVB

MOVB

MOV

JSR
BR
NOP
EMT
JMP

;SETUP PUT INDEX TABLE
:SET TERMINATOR BYTE

#DMD
I MUR ! MOC ,RMMR10
-SET RMMR1 OUTPUT BUFFER = DMD'MUR'MOC
Pg.mr
;60 mg RMMR1 VIA PUT SUBROUTINE

*G0 TO 4$ IF NO ERROR
*RETURN HERE IF ERROR
*ERROR n;meo BY PUT SUBROUTINE
*60 TO 118 IF ERROR

~ NOP

260 TO GETSTS SUBROUTINE
;SETUP PUT INDEX TABLE
:ssr TERMINATOR BYTE
:SET RMMR1 OUTPUT BUFFER = DMD
G0 WRITE RMMR1 VIA PUT SUBROUTINE
:G0 TO 38 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR o;nneo BY PUT SUBROUTINE
:G0O TO 118 IF ERROR

118
S1,PUTINX

PUTINX+1

:SETUP PUT INDEX TABLE

:SET TERMINATOR BYTE

mvdcx-so RMCS10
Pg.mr
11$

-SET RMCS1 OUTPUT BUFFER = PAKACK!GO

:60 ums RMCS1 VIA PUT SUBROUTINE
*G0 TO 5$ IF NO ERROR
*RETURN MERE IF ERROR
*ERROR ognneo 8Y PUT SUBROUTINE.
:G0 TO 118 IF ERROR

%
RNDAQ RHBO FCYNL PT1 MACRO V04.00 28-JAN-8Z 16:24:51 PAGE 13-47

1308

e 74
(

036 ,2

0263(

é:’10 6311 11

JSR
B8R

PC,GET
6S

;60 READ REGISTER(S) WITH GET SUBROUTINE
*G0 TO 68 IF NO ERROR

026522

EMT

*ERROR # DEFINED BY GET SUBROUTINE

5’6 881545

000137 026522
1§1§ 6354 112737 383°83 001545
8 2‘0

200

001546
1 001412

043016

8 ot ?822‘0
- § ?§ ooo?gg 026522
"
1?15 6414 112737
001545
026422
112737 000
001546
026430 012737
15 001412

0564e3 000a0s o016

33 6444
082 40
w.s 1
u.‘rs“ 000137

026522

131? 8 5454 83'6137 042546
-..

026464

‘ 13 026466 000137
1319 02647
4

026522

} 1 'y 1;32 000004 001352
1322 026 g‘ 1737 000004 001140
1323
026
; g :v

13737
04222

001352

00114

NOP
JMP

:RETURN HERE IF ERROR
:G0 TO 118 IF ERROR

NOP
MOVE
WRMMR1,PUTINX ;SETUP PUT INDEX TABLE

:'658
rgmmm
RMMR1SUBROUT
OUTPUTINEBUFFER = DMD'MUR'MOC
! D3EN
JSR %%r’m"fl.'téz’mn‘“
PC,PUT
.éo
WRITE
RMMR1 '§E$
VIA PUT
s

026

112737
012737
737
04

SEQ 0131

042546

S8 2% 3} 823016
1401 oo}?ig
5362
6370

..
"
‘o

B8R

*GCTO 7$ IF NO ERROR

JMP
MOVB

118
MRMCS1.PUTINX

260 T0 25s IF ERROR
;SETUP PUT INDEX TABLE

'e'g?
JMP
MOVB
MOVB
MOV

;
'255%”5?&5'55 PUIT SUBROUT INE
118
*G0 TO 153 IF ERROR
m $1,PUTINX ;SETUP PUT INDEX TABLE
PUTINX+1 :SET TERMINATOR BYTE
m'Go RMCS10
SET RMCS1 OUTPUT BUFFER = OFFSET'GO

MOVB
MOV
JSR
BR

NOP
EMT
JMP

JSR

B8R

NOP
EMT

JMP
NOP

E,’.E
ROV

MOV
EMT

czo ,puunxn *SET TERMINATOR BYTE
#NOP!GO,RMCS10 :SET RMCS1 OUTPUT BUFFER= NOP!GO
PC,PUT
GO WRITE RMCS1 VIA PUT SUBROUTINE
:G0 TO 88 IF NO ERROR

60 WITE WAcE] YIA JUT SuShouTine

118

PC,GET
10§

ma.mem
ARMR.SGODAT

msnix.saow
22

*RETURN
HERE IF ERROR
*ERROR o; INED BY PUT SUBROUTINE
260 TO 118 IF s

;60 READ neexsrea(s) WITH GET SUBROUTINE
soro%xr ERROR

*RETURN

HERE IF ERROR

*ERROR » DEFINED BY GET SUBROUTINE

:G0 TO 11$ IF ERROR

.xgRMR SET 72
-EXPECTED STATUS

*RECEIVED STATUS

tttttttttltt*tttltt.i'ttttttfittttttttttt*ttttttttttttttttttttt.

LATEST 40

5
g

PARITY ERROR TEST

%g;zattitflitt'ttllttttttt'Q'fitttti.tttl!itttt.ttttttt.ti'tttttt't

55 %

40
1

13701

1100
1276

001466

SCOPE

NOP
MOV
MOV

MOV

:sucx 3?

rsrouéR1

:*START
SCOPE OF
CALLTEST

:INITIALIZE STACK POINTER
:RO= UNIBUS ADDRESS

*(R1)= DEVICE BEING TESTED

% SNDAO RMS0 _FCTAL PT‘IEgACRO v04.00 28~JAN-82 16:24:51 PAGE 13-48

SEQ 0132

PARITY ERROR
T

026542

0127357

000040

329 8 6550
6554

004737
040000

041532

000240
104000
0001

026742

012702

000001

737
04
4

052466

026742

001226

1$:

MOV

#40,STESTN

::SET TEST NUMBER IN APT MAIL BOX

JSR

PC,TSTPRP

sPREPARE DEVICE FOR YEST

NOP
EMT
JMP

2%:

3s:

:ERROR # DEFINED BY TSTPRP SUBROUTINE
:GO TO 78 IF ERROR

PC,CNTCLR

:GO ISSUE
:G0_TO

CONTROLLER CLEAR
IF NO EROR

:RETURN HERE IF ERR

:ERROR # DEFINED 8Y CNTCLR SUBROUT INE
IF ERROR
:GO TO 78

(R1) ,R3

;SETUP RMCS?2

nficsza

sOUTPUT VALUE TO RMCS2

arurxnx.ng

:WRITE REGISTER OUTPUT INDEX

PC,PUT

sVALUE TO RMDA

4S:

PC.GET

001140
001142

6$:

78:

78
bt

001352

5%:

026742

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE
:GO_TO 4$ IF NO ERROR

:RETURN HERE IF ERROR

:ERROR # DEFINED BY PUT SUBROUTINE

72 33358

\figahlu-i
ey

RETURN HERE IF ERROR

R3)+
czoo.(n3>¢

042546

U ISR

CLEAR$WTROLLERSELECT DEVICE

:R2 = DATA PATTERN

oantsz (R3)+

043016

sTASK DESCRIPTOR Ai ows:

#1,R2

O‘CWFHSK .R3

001420
001545
000010
000006
000200

0000

177770

000010

040000

zM.RfiM 1
#PAR, SGDDAT

;GO R

G0 _TO 58 IF NO ERROR
:RETURN HERE IF ERROR
:ERROR # DEFINED BY GET SUBROUTINE

:60 TO 78 IF ERROR

'ggsPMl" ERROR SET ??

:EXPECTED STATUS
:DATA PATTERN

agen;nfissooAr

sRECEIVED S7ATUS

+ADVANCE DATA PATTERN
sBRANCH IF NOT DONE

SHRRARARRARARAAAAAARARACAAAAAAARANRAAARARAAAAARARAACCAAAAAAAARNNS

tTEST 41

ILLEGAL REGISTER TEST

SRRRRARNAARRRRAARAAEAAAANCRARANAAAAAACAARRAAAAANARAARAAAARAARAACAANARS

8141
001100

COPE
NOP
MOV

s SCOPE CALL

#STACK,SP

:START OF TEST

;INITIALIZE STACK POINTER

RNDAO RM8O FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-49
1
ILLEGAL REGISTER TEST

026752
8 67
i 67

013700
1 ;g1
12737

026774

040000

001276
1466
1 001226

1322 026770 82:.737 041532

042462
000004
850 66 000004
000006

052466

}

1
1
1
1

027270

$BASE ,RO
TSTQUE ,R1
#41,$TESTN

;R0 = UNIBUS ADDRESS
*(R1) = DEVICE BEING TESTED
+2SET TEST NUMBER IN APT MAIL BOX

.WORD

040000

*TASK DESCRIPTOR AS FOLLOWS:

JSR

o
)

027202

38:

050774

P
1

027270
042546

:
1

027202
043564

2?,';

JSR
BR
NOP
EMT
JMP
MOV
ADD
CLR
JSR
BR

PC.CNTCLR
3s

JSR

ERT
JMP

JSR
BR
EMT

1
-%

720
114
135

}

17777
001140

001174

}

]

1391

027202 062702 000002

33"‘

68:

114
00114

ADD

:R2 = REGISTER INDEX

108
PC,GET

:G0 TO 108 IF ERROR
:60 READ REGISTER(S) WITH GET SUBROUTINE

78
PC.PRIERR
6

#°CILR.SBDDAT
;?m.ssom

Io e

7s:

*G0 TO 108 IF ERROR
:RS = EXPECTED STATUS
*SETUP FOR STATUS
::PUSH ERRVEC ON STACK
::PUSH ERRVEC+2 ON STACK
:SETUP FOR BUS TIMEOUT
-

78
;
RO.R3
R2.R3
(RS)
PC,DEVSEL
4

BIC
ac?;

EMT

E'}S{‘&“,“SEE,,’.E,‘Q‘#"?S,W SUBROUT INE

;60 ISSUE CONTROLLER CLEAR
*G0 TO 38 IF NO ERROR
*RETURN WERE IF ERROR
*ERROR NUMBER DEF INED BY SUBROUTINE
*G0 TO 7$ IF ERROR
*R3 = REGISTER ADDRESS
:CLEAR THE REGISTER
:60 SELECT DEVICE
:GO TO 4S IF NO ERROR

l;g.a(sm
RS
AT

MOV

*CLEAR gomouen SELECT DEVICE
*G0 TO 18 IF NO ERROR

JSR
JnP
MOV
MOV

:PREPARE DEVICE FOR TEST

1
108
RS
- PC,GETSTS
ERRVEC,=(SP)
ERRVEC+2,~(SP)
#9$,ERRVEC
#PR6, ERRVEC+2

22’:
JMP

;

PC,TSTPRP

JMP
CLR
JSR
MOV
MOV
MOV
MOV
CLR

SEQ 0133

MOV
MOV
KOV
BR

:
1
1
1
1
1
1

D1l

RMER1I,$BODAT

a; $THPO
256

‘E‘d&”&%&fié»‘m”um SUBROUT INE

360

TO 58 IF NO ERROR

SBRROR
& DEFINED
BY GET SUBROUTINE
*GO TO 78 IF ERROR
:60 CHECK FOR PRIMARY ERRORS
260 TO 6S IF NO ERROR
*RETURN WERE IF ERROR

*ERROR # DEFINED BY PRIERR SUBROUTINE

G0 BACK FOR MORE ERROR CHECKS
:60 TO 78 IF ERROR
:GET DRIVE'S ILR STATUS
‘#2;%“ STATUS 0K??

*SAVE
R2 FOR ERROR DATA

R R AE AL OR MANDLE R TO0n 32
0"3.55

: INCREMENT THE REGISTER ADDRESS

RE
O ON

PT1 MACRO Vv04.00 28-JAN-82 16:24:51 PAGE 13-50
GISTER TEST

;?z

000050

(MP
BHI
BLO
MOV
MOV
MOV
MoV

b b

-y

~
b
v

GEdggEE

CZRDAO RM8O FCT
141

8s:
98:

108:

BIC
CMP
BEQ
MOV

CMP

BLO
BR

cMpP
. MOV

MOV

#50,R2
#ILR RS

SEQ 0124
sTIME TO CHECK THE EXTEND ADDRESS REG ?
;BRANCH IF NOT

anmcu IF ALREADY SET UP

#AT61AT7 RMCST (nb) ua"@:?Enoeo ADDRESS BITS

#54 ,R2
SO(RO) R

:SET mhsss
y22 REGISTERS
REG RH

$080)
A3
gm-sin.ns

#50,R2

*OTHERWISE sr ADDRESS 10 50

108
2s

sALL
lctesxsfsas CHECKED?
sBRANCH IF SO
NEXT REGISTER

074 .R2

:LEFT ONLY BIT 0 AND BIT 1
:BIT 0 AND BIT
H IF

SET AT THE SAME TIME ?

(SP)+,(SP)+

(SP)+ ,ERRVEC+2
(SP)+ ,ERRVEC

:POP STACK INTO ERRVEC+2

::POP STAEK INTO ERRVEC

S RRRRRARRAAAAAAAARAAAAAAEAARAANAAAARAAAARAARAAANAAAAAAAARAARAANS

ttEST 42

SEEK FIRST CYLINDER

"t.ttQt'filt.lQ.t..tlt"'.ti.tt'tfi!.'.lt.ttt'tt.tt.ttttl'lt..tttt

fS142:

18:

SCOPE
NOP
MOV
MoV
MoV
MOV
MoV

JSR

.WORD

sSCOPE CALL

$BASE ,RO

;START OF TEST
;INITIALIZE STACK POINTER
:RO = UNIBUS ADDRESS

#4623, STESTN

::D0 1 ITERATION
s:SET _TEST NUMBER IN APT MAIL BOX

#STACK, SP

374

:(R1) = DEVICE BEING TESTED

:PREPARE DEVICE FOR TEST

:TASK DESCRIPTOR AS FOLLOWS:
:CLEAR CONTROLLER & SELECT DEVICE
:VERIFY CONTROLLER CLEAR OPERATION

:PACK ACKNOWLEDGE IF VOLUME NOT VALID

1415

1419
141
141

141
14
14
14
14
1424

“
41
0274
(A

BR
NOP
EMT

§e;32333ae §

gass

:VERIFY PACK ACKNOWLEDGE _
-%gmmre IF SKIOR “PIP" IS SET

:CYLINDER
= 0

'TRA = 0, SECTOR
= 0

LgAD SEE COMMAND IN BUFFER
;R2

POINTS TO REGISTER TABLE

:WRITE REGISTER INDEX TABLE
sWRITE TERMINATOR

:60 WRITE REGISTER(S) WITH PUT SUSROUTINE
:60 TO 4$ IF NO ERROR
;RETURN HERE IF ERROR

T1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-51

F1N

SEQ@ 0135

YLINDER

EMT

48:

7
3
7 062546

JSR
JSR
JSR

004500
137

JMP

027572
7 043564

027572

7 051206
5

737 050562
760
12
40

;

027572

737 044416
5

027572

108

:ERROR # DEFINED BY

:GO TO 58 IF NO ERROR

PC,GETSTS
PC.TIMOUT
PC,GET

JMP
JSR

10
PC,PRIERR

§SR
NP

pC.a(sP)+
156

B8R
NOP

JSR
B8R
EMT
JSR
JMP
JSR
.WORD
-WORD
B8R
NOP
EMT
JSR
P

JSR
B8R
NOP
EMT
JSR
P

PC,SEKSTS
7

P&a(sm
1
PC,CMPERRSTS
NDTMSK
DPE
8s

p&a(sm
1

gs.secm

P&a(sm
1

*G0 TO 105 IF mga pi

PUT SUBROUT

*SETUP FGR STATUS FETCH
*WAIT FOR SEEK TO COMPLETE
;60 READ REGISTER(S) WITH GET §

SBRROR# DEFINED
BY GET SUBROUTINE
260 TO 108 IF ERROR
:60 CHECK FOR PRIMARY ERRORS

;G0 TO 68 IF NO ERROR
*RETURN HERE IF ERROR

I%0BACK FOR. MORE ERROR CRECKS U N
*GO TO 108 IF ERROR
|

;60 ven;n RESULTS OF SEEK OPERATION
*GO TO 7S IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY SEKSTS SUBROUTINE
*G0 BACK FOR MORE ERROR CHECKS

G0 TO 108 IF ERROR

:CHECK ANY ERRORS NOT MASKED
*MASK FOR RMER1
*MASK rg RMER?
*GO TO 88 IF NO ERROR
*RETURN HERE IF E
*ERROR # DEFINED BY CMPERRSTS SUBROUT INE
:G0 BACK FOR MORE ERROR CHECKS
260 TO 108 IF ERROR

;60 CHECK FOR SECONDARY ERRORS
260 TO 98 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY SECERR SUBROUTINE
:G0 BACK FOR MORE ERROR CHECKS
*60 TO 108 IF ERROR

2 :t.tlttt..ttttit'tt.t!tttt't'tttttt!tt.ttt't.fi.filltttt.ttttttttt

144
164§
027626

SEEK LAST CYLINDER

e HARRRRRARAAAARAARARANAERRRRAARARARARAARAAAARANAAARANARANAAAACARESY

7;;;

7
7574
752
;
7
2

T$143:

40
1

1
12737

1190
1276
1

881506
001226

18:

SCOPE
NOP
MOV
#STACK 39
MOV
$BASE ,R
MOV - TSTQUER?
MoV
#1 STINES
MOV
#4585, STESTN

W——

108:

S*TEST 43

:SCOPE CALL
:START OF TEST
SINITIALIZE STACK POINTER
*RO = UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED
500 1 érmnon
*3SET TEST NUMBER IN APT MAIL BOX

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-52
143
SEEK LAST CYLINDER
1444 8%;2;3

8?2;%

JSR
.WORD

041532

SEQ 0136

0sti30
VERIFY PACK ACKNOWLED

b«

~—
z
RanBos
&s
Pt i 3R52 ot -e TV g
e
&g

- Lok

—i

)

"o
L

MMM -

]

-1=82

CMPERRST S _SUBROUTINE
RROR HECKS

(2]

it 2882
<
K95 %A

T MASKED

m -<

X
%

2de

SEEK OPERATION

D BY SEKSTS SUBROUTINE
ERROR CHECKS
RROR

Loy

(=)

st
=
o

PRIMARY ERRORS
NO ERROR
IF_ERROR
INED BY PRIERR SUBROUTINE
MORE ERROR CHECKS

<
o«

q&i( SP)+

DPE
13

ISTER(S) WITH GE T SUBROUT INE
NO ERROR
IF _ERROR
NE D BY GET SUBROUTINE
ERROR

3= Sjade
=3 giag &
g sajans
3~§§
SESgS3

PC,CMPERRSTS

ND FMSK

F _ERROR
TATUS FETCH
EK TO COMPLETE

768

a—f

PC,a(SP)+

%.SEKSYS

IF ERROR
INED BY PUT SUBROUTINE

w g VY

g-. g3
2g3®it-

F NO ERROR

22
o £33

108

-4

PC,PRIERR

(=]

108

GISTER(S) WITH PUT SUBROUT INE

~88 £ih8 7885
-4

58:

PC,GET

PC,GETSTS
PC,TIMOUT

108

4S:

PC.3(SP)+

TERMI NATOR

)

:g.rur

o 485,
%.(izu

sR2 POINTS TO REGISTER TABLE
sWRITE REGISTER INDEX TABLE

TR TR TR T

#PUTINX,R2

PASRERERR

sCYLINDER = 560.
sTRACK = 0, SECTOR = 0
#SEEK!GO,RMCS10 H gAD SEEK COMMAND IN BUFFER
#560. ,RMDCO
#0,RMDAO

3s:

*'SK1

108

2%:

NNNNV;N
o

§J~

IBRATE }

333D

~N~N

FUR23
PA
W

BRSNS

) e

o I

b=l=l=}

+RECAL

RNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-53

H 11

SEQ 0137

SEEK LAST CYLINDER

1465

1466

8s:

7 064416
1

137

1467

030064

9%:

1468

}293 030064

JSR
8R
NOP
EMT
JSR
JMP

PC,SECERR
98

98 a(sP)+
10§

;GO CHECK FOR SECONDARY ERRORS
:60 TO
F NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY SECERR swuounue
*GO BACK FOR MORE ERROR C
*GO TO 108 IF ERROR

108:

1‘71

t.t.tttttttttttntt'tt"t't'tttttQtt'tttttttltttttttttt.tttt't.t

ATEST 44

SEEK PRIME CYLINDERS

*g;zZQ.ttttttttttttttt.fit'ttttttttttttttttttttttttttttttttttt.ttt

7
182
1

1
01
1
1

%0
;

ngo
1276
1666
2 881;26

i
12 01
4 001226
}égg } 0 012737 000001 001446 »

1475

0301
0301

7% 041532
5641

SCOPE
NOP
MOV
MOV
MOV
MOV

#STACK, SP
$BASE ,R
rstoutn1
'f STIME

:SCOPE CALL
*START OF TEST
SINITIALIZE sucx POINTER
*RO= UNIBUSADDRESS
-am = oevxce BEING TESTED
2:D0 2 ITERATIONS

JSR
LWORD

pg rg(r’m
0541

:PREPARE DEVICE FOR TEST
*TASK DESCRIPTOR AS FOLLOWS:

MOV
MOV

l.msm
#1,RMDCO

*PACK ACKNOWLEDGE IF VOLUME NOT VALID

sVERIFY PACK ACKNOWLEDGE
*RECALIBRATE IF ‘'SKI"* OR ‘PIP"* IS SET

14
14

1
1
1

:GO TO 28 IF NO ERROR
:RETURN HERE IF E
*ERROR # DEFINED BY TSTPRP SUBROUTINE
9
260 T0 98 IF E
#0,RMDAQ
;TRACK= 0, SECTOR = 0
#SEEK 160, RMCS10 LOAD
SEEK COMMAND IN BUFFER
#PUTINX i
*R2 POINTS TO REGISTER TABLE
#RMDC,(
SWRITE REGISTER INDEX TABLE
m(
%s 5:2)0

B8R
NOP
EMT
JNP
JSR
JSR
JSR
BR
NOP

JSR

:VERIFY RECALIBRATION

B8R
NOP
EMT
JNP
MOV
MOV
MOV
MOVE
MOVB
MOVB

MOVE

1
1
;
1

:CLEAR CONTROLLER © SELECT DEVICE

:VERIFY CONTROLLER CLEAR OPERATION

.
1
1
1

*3SET TEST NUMBER IN APT MAIL BOX
sFIRST CYLINDER = 1

PC.P(IT

R2)+

98
PC,GETSTS
PC.TIMOUT
PC,GET
11

sWRITE TERMINATOR

:60 WRITE

:60 70
‘s
NO ERROR
*RETURN HERE IF E
*ERROR # DEFINED BY PUT SUBROUTINE
:GO TO 98 IF ERROR
:SETUP FOR STATUS FETCH
*WAIT FOR SEEK TO COMPLETE
:60 READ REGJSTER(S) WITH GET SUBROUTINE
160 TO 48 If NO ERROR
*RETURN H:RE IF ERROR

CL.MAO RMB0 FCTNL
SEEK PRIME

737

149
} 1

;

PC.3(SP)+

030376

T MASKLD

CMPERRSTS SUBROUT INE
RROR CHECKS

gg §§ egmsg

(=]

SEKSTS SUBROUTINE
RROR CHECKS

“mmd

&::sm

o—issg
m;
'“t’!flfléx

:rh
88.
"o ifififlk
MDD
=N
TM ) “nmWm
BF
F

882588 82
-—f o5
o-¢g§
EECfifi
=
¥ =]

LA}
- e

-s

F SEEK OPERATION

OR SECONDARY ERRORS

7 3811000
446
001446
1 g;
030126

1505

PRIERR SUBROUT INE
RROR CHECKS

:g.SECERR

JSR

044416

IMARY ERRORS

INED BY

‘

PC.a(SP)+
9

030376

JSR
JMP

DPE
7

PC,CMPERRSTS

ND FMSK

JSR

050562

PC,a(SP)+

RIFY

-y

737

DEFINED BY GET SUBROUTINE

030376

PC,SEKSTS

A TR - 1]

JSR
BR
NOP
ENT
JSR
JMP

P {] D
mo (=]

051206

737

5%:

PC,a(SP)+

030376

1495

8061

EMT
JSR
JMP

PC,PRIERR

[2]
o

JSR
BR
NOP

"#Sgg z 883
% >3
§ag a2
§°m-n
2 &
‘g’fl.
s 3882 3 =8
S
B =Sama
R

1494

4S:

043564

EMT
JMP

(o)

7
1

149

030376

ATRATATAAIATA
)

0061

1491

149,

SEQ 0138

1490

CYLINDERS

PT1 MACRO v04.00 28~JAN-82 16:24:51 PAGE 13-54

’s’iS?.WCO
98
18

;1S _THE TEST DONE??
IYES!!
~ 360 DO NEXT CYLINDER

SINARRAAARARANAAAARAARACANRAARNARRNAARANRAAAAAAARAANARANRAASACAARAY

S*TEST 45

SEEK ZERO DIFFERENCE

SARRARRRANAARAARAAEAAAAARAEANEARRAAAAAAARARARAAAAAAACAAASEACSCAAANNE

t514s:

001528
18:

SCOPE
NOP
MOV
MoV
MoV
MoV
MoV

;%fissf'x‘k
s
5.$TESTN

JSR
.WORD

oS30

ISTACK.5P

sPREPARE DEVICE FOR TEST
FOLLOWS:
sTASK DESCRIPTOR

CZRNDAQ RMBO FCTNL PT1 MACRO V04 .00 28-JAN-82 16:24:51 PAGE 13-55
145
SEEK ZERO DIFFERENCE

SEQ 0139

108
NNNW

#3,R3
#0 ,RMDCO
#0.RMDAOD

:R3 =
R OF SEEKS
*CYLINDER = 0
*TRACK = 0, SECTOR = 0

#SEEK !GO,RMCS10 *FUNCTION CODE FOR SEEK
#PUT INX ,R2
*R2 POINTS TO REGISTER INDEX
#RMDA,
#RMDC ; (R2)

PC,PUT
4

_TO 4$

IF NO ERROR

sRETURN HERE IF ERROR
-ERROR # DEFINED BY PUT SUBROUTINE
:G0_TO 108 IF ERROR
sSETUP FOR READING STATUS

PC.GET

108
PC,.PRIERR

18!

;g.SECERR

-4

e
m

—-3R
X

D BY SEKSTS SUBROUTINE
ERROR CHECKS
NOT MASKED

g =

PC,a(SP)+

RROR
RROR

D BY CMPERRSTS SUBROUTINE
ERROR CHECKS

S OF SEEK OPERATION

ONDARY ERRORS
RROR

DPE

Y RE

e ]

PC,CMPERRSTS

ND FMSK

q 5: =
u%
833; 2
2
fi:!flzg &

?3‘3( SP)+

;S.SEKSTS

FOR MORE ERROR CHECKS

4 88
(=]
x
=}
(=)

104

TR TR T AR ]

PC.@(SP)+

2388 23

044416

;60 WITS REGISTER(S) WITH PUT SUBROUTINE

88 88
-y
-y
ogo 4
R
AR
2
PN

78:

sTERMINATE TABLE

IR L)

68:

PC,GETSTS
PC, TIMOUT

§’§§§ 35330 3¢2qg 3230

58:

030704

108

4S:

25 353

angssi (R2)+
#200, (R2)+

*WRITE REGISTER INDEX TABLE

(=]

ddddm

3
o
b cd cnd e e

VRNV

e e

e el

WN=O

FC TNL_PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-56

SEQ 0140

15
15

03087
030700

030704

1338
133

g‘o
1

g8s

1533

COO0OC0OOOO

EEK 2E RO DIFFERENCE

9$:

030524

704

108:

1539

NOP
EMT
JSR
JMP
DEC
BEQ
JMP

sRETURN HERE IF ERROR

t;&a( SP)+

R3
108
3s

s ERROR l DEFI'&D B8Y SECERR SUBROUTINE

;60 BACK FOR MORE ERROR CHECKS
:6G0 TO 108 IF
ERROR
og'soe ALL SEEKS??

Eno - GO DO NEXT SEEK

SARAAARAAAAAAAAAAAAA
RN A AN AAAAARAAARAANCAA AR AANAANARAORANTNY

SEEK MAXIMUM DIFFERENCE FORWARD

SRAARARAARAAANAAAAARACA
AT AR RAARAAAAAAA AR AR ARAAAAAAAAR ORI R A

t8746:

..?N§§
JISS3S

OOODOO0C

SEREAEEE

PSP
S

-TEST 46

1540
1541 030740
1542 030740

001

OSTACK
§SP

rsroué R1
#25. $TIMES
ns.irssm

1$:

041532

030744

sSCOPE (ALL

SCOPE

0s2130

sSTART CF_TEST

.INITIAUZE STACK POINTER
;RO = UMIBUS ADDRESS

:(R1) = DEVICE BEING TESTED

..DO 25. ITERATIONS

ssSET TEST NUMBER IN APT MAIL BOX
sPREPARE DEVICE FOR TEST

sTASK DESCRIPTOR AS FOLLOWS:

:CLEAR CONTROLLER & SELECT DEVICE

:VERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
:VERIFY PACK ACKNOWLEDGE

gees

sRECALIBRATE DRIVE

028 1

ERROR

RE W HERE l ERROR

#560. ,RMDCO

asa

NOON

B cod

288

;GO TO 88 IF ERROR
sLAST CYLINDER

sTRACK = 0, SECTOR
= 0

'Lw SEEK COMMAND IN BUFFER
:R2 POINTS TO REGISTER TABLE

:WRITE REGISTER INDEX TABLE

NNN

BBNN

'VERIFY RECALIUATIW

:ERROR # DEFINED BY TSTPRP SUBROUTINE

sWRITE TERMINATOR

:60 WRITE REGISTER(S) WITH PUT SUBROUTINE
;G0 T0
EMT

3s:

IF NO ERROR

:RETURN HERE IF ERROR

——aa0000

b
e
B
ke e T

SHRU

vivawnw

1548
1551

e e e

7 $

}S‘S

7564

cod ond ok ed omd o D omd

PC,GETSTS
PC,TIMOUT
PC.GET

:ERROR # DEFINED BY PUT SUBROUTINE
;G0 _TO 88 IF ERROR

'SE'IU’ FOR STATUS FETCH

WAIT FOR SEEK TO COMPLETE

;GO READ REGISTER(S) WITH GET SUBROUTINE
;G0 _TO 4$ IF
ERROR

:RETURN HERE IF ERROR
:ERROR # DEFINED BY GET SUBROUTINE
;60 TO 88 IF ERROR

L n

SEQ 0141

3 %§§§L%
-

051206

PC,a(SP)+

;60 TO 58 IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEFINED BY PRIERR SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

PC,SEKSTS

ESULTS &F' SEEK OPERATION

g82
=2

FRABRRE

Y SEKSTS SUBROUTINE

PC,a(SP)+

031172

6$:

050562

OR MORE ERROR CHECKS

PC,CMPERRSTS

ND FMSK
I;E

Y CMPERRSTS SUBROUTINE

PC,a(SP)+

031172

5s82
s&

D e cnd e
e wnd ol
— e

HY CHE&K FOR PRIMARY ERRORS

5%:

i cd o

NIERRVRRVSERN

031172

044416

OR MORE ERROR CHECKS
IF ERROR

7%:

HaY Cflfig FOR SECONDARY ERRORS

PC,SECERR

:60_TO
IF NO ERROR
sRETURN HERE IF ERROR
<ERROR # DEFINED BY SECERR SUBROUTINE

PC.a(SP)+

8s:

;G0 BACK FOR MORE ERROR CHECKS

SEEK ADJACENT FORWARD

NN
NN

]
e
P

TS147:

~~
O

Yo :»88 -A-l:-l
PR

o RARAAARAAAAAARRRAAAAAARRAEARRRRAAARARARAAAAAAAAAAAAAAAACARAAAARAAY

s md ol cmed wrad amed

OO0OoO0OCOo
WHWWWWNW

S*TEST 47

OO0
W

%1276
1100

1669

012737

000047

084730

041532

001226
1$:

SCOPE
NOP
MOV
MOV
Mov
MoV

JSR
-WORD

sSCOPE CALL
sSTART OF TEST
sINITIALIZE STACK POINTER

#STACKfial’

;RO
= UNIBUS ADDRESS
;RO
:(R1) = DEVICE BEING TESTED
ssSET TEST NUMBER IN APT MAIL BOX

$BASE

TSTOUE ,R1
#47,STESTN

osl1§o

PC,TSTPRP

sPREPARE DEVICE FOR TEST
:TASK DESCRIPTOR AS FOLLOWS:
:CLEAR CONTROLLER © SELECT DEVICE !

e ed nd e

nd s

:VERIFY CONTROLLER CLEAR OPERATION,

388

Fs’g.PRIERR

SrARNRRARARRARAARAAARAAEAANAAAAAAAAARAAAAAAARAAAAAAATAAAAARARAAACAY

SERSY

b b e e cnd b e cd wd i

b cnd D o cd i

D e cd D

oned

b e

b D e el i wd i cnd =D o e e o o

e e

4S:

043564

OO0 COOOOOOOOOO OCO0O000OOOOOOOOOC
WNN N NN NN NN(v vl

Al
v

— —d
—— a-—

—

RNDAO RM8O FCTNL PT1 MACRO V(EK 00 28-JAN-82 16:24:51 PAGE 13-57
EEK MAXIMUM DI FFERENCE FORWARD

%‘o‘

031474

EMT
JMP

108

:PACK ACKNOWLEDGE IF VOLUME NOT VALID
SVERIFY PACK ACKNOWLEDGE _
:RECALIBRATE IF “SKI' OR 'PIP"* IS SET
:VERIFY_RECALIBRATION
:60_T0 28 IF NO ERROR
IF E ERROR
RETURN HERE IF
;ERROR # DEF INED BY TSTPRP SUBROUTINE
;GO TO 108 I IF E RROR

000000 001446

MoV

#0,RMDCO

sCYLINDER = 0

012737

SEQ 0142

001446

108:

RMDCO

1 0s
RMDCO

p=]

[

2
(7]

@®

(-]

o=y

=
SRS
"

108

PC.3(SP)+

gg.SE CERR

3
-

K_ANY ERRORS NOT MASKED

-.fl
X
%

Cutbe

031474

064416

g&i(SP)f

# DEFINED BY SEKSTS SUBROUTINE
FOR MORE ERROR CHECKS

@ = o ass
‘S
]
&’ N

PC,CMPERRSTS

ND FMSK

|
= S
|

7$:

031474

;GO VERIFY RESULTS OF SEEK OPERATION
10
IF NO ERROR
RE IF ERROR

l;a‘i(SP)#

C.C.M

050562

=22 JoISDg §oESS

031474

PC,SEKSTS

CutalD=~y

NS SSRS
::adiificsuczu;iiusaflxasanxazg..
-.-‘-.sii!‘,ig;;
SEBDDD

d wmd md wmd med D md wnd od amad el d

051206

13£

tat
3

PC,a(SP)+

:GO CHECK FOR PRIMARY ERRORS
;60 _TO 6 IF NO ERROR
cRETURN HERE IF ERROR
<ERROR # DEFINED BY PRIERR SUBROUTINE
:G0 BACK FOR MORE ERROR CHECKS
;GO TO 108 IF ERROR

PC,.PRIERR

©n

108

5%:

:GO READ REGISTER(S) WITH GET SUBROUTINE
;GO _TO 58 IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEFINED BY GET SUBROUTINE
;GO TO 108 IF ERROR

2%
g#ss
QEgg?g
:ofi-.88

043564

88
c=20
-N
=4
232

031474

PC,GET

sSETUP FOR STATUS FETCH
sWAIT FOR COMPLETION

042546

004737 8453%

:GO_TO 108 IF ERROR

$ = SEEK TO ADJACENT CYLINDER FORWARD

737
04

108

PC,GETSTS
PC,TIMOUT

H ) URXT; REGISTER(S) WITH PUT SUBROUTINE
;60 TO 4$ IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEFINED BY PUT SUBROUTINE

...s.lo

821 274

PC.PUT

043016

sTERMINATE REGISTER TABLE

# 88

#RMCST , (R2)+
#200, (R2)+

737
04
40

)

#RMDA . (R2)

WeWee VsV
%o B

EEI

;TRACK
= 0, SECTOR
= 0

#SEErK!GO RMCS10 :FUNCTION CODE FOR SEEK
#PUTINX R
*R2 POINTS TO REGISTER INDEX
4nnoc.(§5 +
*WRITE REGISTER INDEX TABLE

LA TR TE T TR 1)

001545

#0,RMDAQ

142

o 141

RONSRES »
>

ol ad o

e
o
e
b e

; o

031474

nd ooed b cad nd mad et med el =D wvh )
T

SRIRAR

1 737
1
1
127

1127
1127
1127

d e oed o red emd b end cwd b o

0000000000000

g\nvcvn
SRER

Do
wmd
-

wVivn

JACENT
ENT FORWARD

D o

e e

e cnd b

NN NN N NN W N NN N NN

e e cd b
—

o e e

ViAW

g\fl\h\fl\.fl
]
SE8IIINNNY

A mddedelellellelalal=T=1=] g

% ;NDAO RMB0 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-58

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-59
147

SEQ 0143

SEEK ADJACENT FORWARD

]
1%

12 RAERARRARARAAARARAAAAAA R AR RAAAAAANAAAAAAAARAAARAAAAAAAAR AR Y
S*TEST S0

SEEK ADJACENT REVERSE

o RERRARRRARARAARAAAAANAARANANAAAARARAAAAARAANACAAAAAAAAAA
AR
ES

031474

t57150:

1474

147
1
1
8 1510
o
1514

40
1 33
137
01 ;31
012737

1190
1276
1

}282 3%13;5
7 041532
031526 82280

:
001226

NOP
MOV
MOV
MOV
MOV

:SCOPE CALL

#STACK 3»
$BASE ,R
TSTQUE R
#50,STESTN

JSR
PC, TSTPRP
.WORD o§t1§o

:START OF TEST
*INITIALIZE STACK POINTER
*RO = UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED
*:SET TEST NUMBER IN APT MAIL BOX

PREPARE DEVICE FOR TEST

*TASK DESCRIPTOR AS FOLLOWS:

*CLEAR CONTROLLER € SELECT DEVICE
*VERIFY CONTROLLER CLEAR OPERATION

*PACK ACKNOWLEDGE IF VOLUME NOT VALID

0315
1
1
1
1
1

} 11

15
1534
}g‘
1
15
1

1
1

031574

04
1

000
12737
12737
12737
127

1615

03161
03161
1
]
031

732
4

}

737

1 ]

7 043564
1
}

MOVB

#RMDA, (R2)+

*WRITE REGISTER INDEX TABLE

#RMCST, (R2)+
#200,(R2)+

:TERMINATE TABLE

MOVB
MOVB

48:

JSR
B8R
NOP
EMT
JMP
JSR

032000

185 1676 004737 051206
A

#RMDC,(R2)+

PC.PUT
o

*R2

POINTS TO REGISTER INDEX

JSR

108
PC,GETSTS
PC.TIMOUT

B8R

*G0 TO S$ IF NO ERROR

PS.GET

:G0 READ REGISTER(S) WITH GET SUBROUTINE

J¥

108

*60 TO 108 IF E

B8R
NOP

*GO TO 68 IF NO ERROR
*RETURN HWERE IF ERROR

JSR
EMT

137

#PUTINX,R2

:60 WRITE REGISTER(S) WITH PUT SUBROUTINE
:G0 TO 4$ IF NO ERROR
:RETURN HERE IF ERROR
*ERROR # DEFINED BY PUT SUBROUTINE
260 TO 108 IF ERROR
*SETUP TO READ ALL REGISTERS
*WAIT FOR SEEK TO COMPLETE

JSR

}8?
;

*GO TO 28 IF NO ERROR

*RETURN HERE IF ERROR
*ERROR # DEFINED BY TSTPRP SUBROUTINE
108
*GO TO 108 IF ERROR
#1,RMDCO
;CYLINDER = 1
#0.RMDAO
:TRACK = 0, SECTOR = 0
#SEEK!GO,RMCS10 .-'rénmou CODE FOR SEEK

MOVB

}1 7
127

NOP
EMT
JMP
MOV
MOV
MOV

MOV

1127

031
}

031

127

12
} }

1616
} 17

:VERIFY PACK ACKNOWLEDGE
.
*RECALIBRATE IF *'SKI"* OR 'PIP'’ IS SET
*VERIFY RECALIBRATION

JSR
JMP

JSR

PC.PRIERR PS a(SP)+
10§

PC,SEKSTS

:60 cueg FOR PRIMARY ERRORS
*ERROR # DEFINED BY PRIERR SUBROUTINE

:GO BACK FOR MORE ERROR CHECKS
:GO TO 108 IF ERROR

;G0 VERIFY RESULTS OF SEEK OPERATION

B i

SEQ 0144

050562

JSR
«WORD
. WORD
BR
NOP

SNIPSIAIINTITH

oocC

7%:

EMT
JSR
JMP

032000
044416

032000
000001

001446

9s:

001446

031610

108:

‘~¢F¢D¢hih
v

(<]

R
e
ey

;-D

PC,CMPERRSTS

ND TMSK
DPE

PC,a(SP)+

10§

15!

“n

PC,a(SP)+

m=<

—e .

032000

NOP
EMT
JER
JMP

78
>

NSNS
N

b =

;;g§

CO00O0IOOCO00OOOOOOCOOOONS v
v
NN NN WWNWWWWWNWWNWWWNWWW - M
N e e b cd e o e e v T b cnd e b cnd wnd
e D b

% SNDAO RMB0 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-60
K ADJACENT REVERSE

SEKSTS SUBROUTINE

RROR CHECKS

sCHECK ANY ERRORS NOT MASKED
sMASK FOR RMER1
sMASK FOR RMERZ2
;60 _TO 88 IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEFINED BY CMPERRSTS SUBROUTINE
:G0 BACK FOR MORE ERROR CHECKS

;GO TO 108 IF ERROR

JSR
BR
NOP
EMT
JSR

PC,SECERR

15!

:GO CHECK FOR SECONDARY ERRORS
260 _T0
IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;G0 TO 108 IF ERROR

CMP
BNE
DEC
JMP

#1,RMDCO

:fig'gnxs THE FIRST SEEK??

RMDCO

*YES= SEEK TO ADJACENT CYLINDER

JMP

PC,a(SP)+

108

P aRARRRRARRRARRA AN

S*TEST 51

160 SEEK

RA AN ARAAARAAAAARANAREAANARAAARRR
AR AAAARS

SEEK INVALID SECTOR

TS151:

OO0

OO0O0O00O

S
N8 S2=ssss

PIRARRRRARRRAAAARARAAAA
T RAAAAARRRAARARAAAAAAAARA AR AN
RY

127

0137

701

12737

001226
1$:

654736

SCOPE
NOP
MoV
MOV
MoV
MOV
JSR

#STACKig?

$BASE

TSTQUE ,R1
#51,8TESTN

0s430

:SCOPE CALL
sSTART OF TEST
sINITIALIZE STACK POINTER
;RO = UNIBUS ADDRESS
s(R1) = DEVICE BEING TESTED
ssSET TEST NUMBER IN APT MAIL BOX
:PREPARE DEVICE FOR TEST
:TASK DESCRIPTOR AS FOLLOWS:
:CLEAR CONTROLLER © SELECT DEVICE
:VERIFY CONTROLLER CLEAR OPERATION
:PACK_ACKNOWLEDGE IF VOLUME NOT VALID
:VERIFY PACK ACKNOWLEDGE ,_

3333

:RECALIBRATE IF

i
000

032416

2$:

*'SKI"

:VERIFY_RECALIBRATION

148

OR ‘PIP'*

IS SET

#SEEK
!GO ,RMCS10 s SEEK COMMAND

-RMOFO

RMDCO
#30. ,RMDAO

:60_TO 28 IF NO ERROR
:RETURN HERE IF ERROR
:ERROR # DEFINED BY TSTPRP SUBROUTINE
:60 TO 148 IF ERROR
;FORMAT 18 BIT
sCYLINDER =

s INVALID SECTOR = 30., TRACK = 0

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28~JAN-82 16:24:51 PAGE 13-61
51

SEQ 0145

SEEK INVALID SECTOR

1644 032076
1645 8 102
w.g
106
164
12
1648
113
1649
03212
}ggg
}

0127
1127
1127
1
1127,
1127
004737

04246

“

1652 032132

004737 052466

032136

8353“
32
2

000404

S 8 315.8 033?29 032416

1654 032150 004737 0462546
032154
04

83 }23 1045'63

1o<s§ }g
1656
193
032172
032174

176

1658 8

000137 032416
004737 052604
000405
000240
104
333
000137 0?16

737 043016

- g g 0 000137
}ggg
% 004737
1662 0
737
0
04
40
%0
1
25 000137
1664
g
7
S
4
883
137

1226

137

)

%
:

032416
043564

032416

:R2 POINTS TO REGISTER TABLE
*WRITE REGISTER INDEX TABLE

JSR

PC,CNTCLR

;G0 ISSUE CONTROLLER CLEAR

JMP

148

260 TO 148 IF ERKOR

PC,GET
58

JMP
JSR
B8R
NOP
EMT
JSR

148
PC,CLRSTS
6

JSR

PC,PUT

52550%"0"52519‘42»53%:7 SUBROUT INE

:GO TO 14$ IF ERROR
;60 VERIFY CONTROLLER CLEAR OPERATION
:G0 TO 68 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY CLRSTS SUBROUTINE
:G0 BACK FOR MORE ERROR CHECKS
*G0 TO 7$ IF NO E

JMP
JSR
JSR
B8R
NOP
EMT
JMP
JSR
BR
NOP
EMT
JSR

14$
PC, TIMOUT
;g.ser
;
:
148
PC.PRIERR
98
PC,a(SP)+

:G0 TO 14$ IF ERROR
;WAIT FOR GO TO RESET
;G0 READ REGISTER(S) WITH GET SUBROUTINE
26O TO 88 IF NO ERROR
:RETURN HERE IF ERROR
*ERROR # DEFINED BY GET SUBROUTINE
:G0 TO 14$ IF ERROR
;60 cue&z FOR PRIMARY ERRORS
:G0 TO 98 IF NO ERROR
:gmm HERE IF ERROR
*ERROR # DEFINED BY PRIERR SUBROUTINE
*GO BACK FOR MORE ERROR CHECKS

JSR

PS SEKSTS

:60 vsnyv RESULTS OF SEEK OPERATION

14§

108

:60 TO 148 IF E

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

"?W,"EEF,,’;E(.‘L"vmpu'T SUBROUT INE

:GO TO 14$ IF ERROR

:GO TO 108 IF NO ERROR
*RETURN HERE IF ERROR

*ERROR # DEFINED BY SEKSTS SUBROUTINE

JSR

PC,a(SP)+
14§

*GO TO 14$ IF ERROR

JSR

PC,CMPERRSTS

:CHECK ANY ERRORS NOT MASKED

JMP
T

:G0 READ REGISTER(S) WITH GET SUBROUTINE
*G0 TO 58 IF NO ERROR

EMT

004737 050562

*GO TO 4$ IF NO ERROR

B8R

B8R
NOP

032416

*SETUP INPUT REGISTER INDEX

;TERMINATE TABLE

PC,3(SP)+
148

'z‘g'r'

JSR
BR

'e‘g';

032416
043370
042546

737 051206
7

#PUTINX,R2
#RMOF, (R2)+
#RMDA.(R2)+
#RMDC.(R2)+
#RMCST, (R2)+
#200,
(R2)+
PC,GETSTS

.
'

}" 1 3§§

MOV
MOVB
MOVE
MOVB
MOVB
MOVB
JSR

:G0 BACK FOR MORE ERROR CHECKS

:
1
z
g
n

CTNL PT1 MACRG V04.00 28-JAN=82 16:24:51 PAGE 13-62

P ic

SEQ 0146

NVALID SECTOR
1177

137
032416
;gr
1420

88'6

101662

001420 000100

010000

001444

D md
d o
ed
— e

MASK FOR RMER1

os;

JSR
JMP
JSR
BR
NOP
EMT
JSR
JMP
INC
CMP

PC,a(SP)+
14$
Pg SECERR
13§

RMDAO , #64 .

:GO BACK FOR MORE ERROR CHECKS
:G0 TO 14$ IF ERROR
:60 cnecg FOR SECONDARY ERRORS
:G0 TO 138 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY SECERR SUBROUTINE
:G0 BACK FOR MORE ERROR CHECKS
:G0 TO 148 IF ERROR
: INCREMENT SECTOR ADDRESS
:DONE YET ?

BIT

#FMT16,RMOFO

;WAS TEST DONE FOR 16 BIT MODE YET ?

BLOS

1 19
15
o1oogg 001444
12737 000037
001420
032132
-

IAE!NDTMSK

.WORD
B8R
NOP
EMT

137
032416
737 044416
5
40

332737

) d

b d

e=ee2IA33SFAN

4
5

.MORD

1
40

BNE
MOV
MOV
JMP

PC,a(SP)+
1$
“MDAO
3§

148
#FMT16,RMOFO
#31. ,RMDAD
33

:MASK FOR RMER?
*G0 TO 128 IF NO ERROR
*RETURN HERE IF ERROR

*ERROR # DEFINED BY CMPERRSTS SUBROUTINE

“NO = TEST NEXT SECTOR

:BR IF YES
:SET 16 BIT FORMAT
MODE
*SET INVALID SECTOR 31.
:NO = TEST NEXT SECTOR

:;tttttttttttttttitttttttttttttttttfittQtttttt.ttttttttttttttttttt

S*TEST 52

SEEK INVALID TRACK

FY Y

Y T

40
1
11
137
1276
13701
1463
12737 000052 001226
44 82«7% 041532
50

0541

(e lelelelel=aTa)

g ]

;é;;sttttlttttttttttttttt'tt'tttttttltttt.ltttttttt.ttttttlttttt.

SCOPE
NOP
MOV
MOV
MOV
MOV
JSR
LWORD

#STACK, SP
$BASE , R
tgroué R1
#52,8TESTN
pg TSTPRP
0541

:SCOPE CALL
:START OF TEST
SINITIALIZE STACK POINTER
:RO = UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED
::SET TEST NUMBER IN APT MAIL BOX
;PREPARE DEVICE FOR TEST
sTASK DESCRIPTOR AS FOLLOWS:

sCLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION
+PACK ACKNOWLEDGE IF VOLUME NOT VALID

ok ot o

§3w

ek i s

.’xflll" PACK ACKNOWLEDGE
*RECALISRATE IF "SKI'’ OR ‘PIP"* IS SET

04
4
137
033014
12737
S
12737
737

;

4
s

001

4
32

001412
144
142

001444

*G0 TO 18 IF NO ERROR
*RETURN MERE IF E
“ERROR # DEFINED BY TSTPRP SUBROUTINE
13$
*60 TO 138 IF E
zsssx!co.mcsw sSEEK €
RMDCO
*CYLINDER =

INCB

mmgn

MOV

MOV
MOV
MOVB

*VERIFY RECALIBRATION

BR
NOP
EMT
JMP
MoV
MOV

LSTRK ,RMDAO

#FMT16,RMOFO
#PUTINX,R
#RMOF, (R2)+

SLAST TRACK, SECTOR = 0

*SETUP FIRST INVALID TRACK

:ssr 16 BIT FORMAT
*R2 POINTS TO REGISTER TABLE
*WRITE REGISTER INDEX

TNL :r}m%cao V04.00 28-JAN-82 1€:24:51 PAGE 13-63

MOV

JSR

MOVB

JMP
JSR
B8R

13s
Pg.ser
4

EMT

052604

JMP

JSR

PC,CLRSTS

NOP
EMT

033014
043016
033014
043370

;

042546

)

L
Py

051206

&
;

050562

:GO READ REG!STER(S) WITH GET SUBROUTINE
:6G0_TO 48 IF NO ERROR
:RETURN HERE IF ERROR
-ERROR # DEFINED BY GET SUBROUTINE

:6G0 TO 138 IF ERROR

;60
VER;FY
CONTROLLER CLEAR OPERATION
NO ERROR

RETW HERE F_ERROR

:ERROR # DEFI'ED BY CLRSTS SUBROUTINE

:ERROR # DEFINED BY PUT SUBROUTINE
;G0 TO 138 IF ERROR

JSR
BR

PC,GET
7

;60
REAg,REGISTER(S) WITH GET SUBROUTINE

JMP
JSR
8R

138
PC.PRIERR
8s

:60 TO 138 IF ERROR

.E!g;
NP

PC.8(SP)+
1§§

JSR

PC,SEKSTS

52;
o Jep

PC.a(SP)+
1§£

BR
NOP

033014

R DEFINED BY SUBROUTINE

;G0 TO 138 IF ERROR

13
PC, TIMOUT

NOP

033014

sERROR

JNP
JSR

EMT

:60 10
IF NO ERROR
sRETURN HERE IF ERROR

PC,a(SP)+
138
PC,PUT
6$

NOP

033014
043564

;60 l$$§ CONTROLLER CLEAR

JSR
JMP
JSR
BR
NOP
EMT

:SETUP INPUT TABLE FOR STATUS

JSR
PC,CMPERRSTS
LWORD IAE 'NDTMSK
"WORD

DPE

:G0 BACK_FOR MORE ERROR CHECKS

:6GO TO 138 IF ERROR

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

GO TO 68 IF NO ERROR
:RETURN HERE IF ERROR
sWAIT FOR GO TO RESET

NO ERROR

RETW HERE IF _ERROR
:ERROR # DEFINED BY GET SUBROUTINE
:G0 CHECK

:60_TO

FOR PRIMARY ERRORS

IF NO ERROR

sRETURN HERE IF ERROR

;ERROR # DEFINED BY PRIERR SUBROUTINE

sTERMINATE TABLE

PC,CNTCLR

NOP

033014

sérsts

'gssi(nz)o

JSR

BR
NOP
EMT

sTABLE FOR OUTPUT

(R2)+

*G0 BACK FOR MORE ERROR CHECKS
138 1

RESULTS OF SEEK OPERATION
RROR
RROR

sERROR # DEFINED BY SEKSTS SUBROUTINE
;60 BACK Fmi MORE ERROR CHECKS

033014
042546

MC (R2)+

052466

SEQ 0147

| 3 I'4

:CHECK ANY ERRORS NOT MASKED
-MASK FOR RMER1

:MASK FOR RMER2

CiR'DAO RMB0 FCTNL PT1 MACRO V04.00 28~JAN-82 16:24:51 PAGE 13-64

152

SEQ 0148

SEEK INVALID TRACK

o
1720

033014
044416

033014

1
§
17

001421
001421

1724
1725

000200

032554

13%:

B8R
NOP
EMT
JSR
P
JSR
BR
NOP
EMT
JSR

Pg‘a(srn
1
PC,SECERR
12§
P§ a(sP)+

;60 TO 118 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY CMPERRSTS SUBROUTINE
*GO BACK_FOR MORE ERROR CHECKS
260 TO 138 IF E
:60 CHECK FOR SECONDARY ERRORS
:G0 TO 128 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY SECERR SUBROUTINE
*G0 BACK_FOR MORE ERROR CHECKS

INCB
CMP8

RMDAO+1
RMDAO+1,#128.

: INCREMENT TRACK ADDRESS
:DONE??

JMP

BHI
JMP

13§

138
23

:GO TO 138 IF ERROR

:BR IF YES
STEST NEXT INVALID TRACK

tttlttt.tl'tttttittttt't"tt.ttttt.t".ttttttttttt.tttttttt'tt'

ATEST 53

SEEK INVALID CYLINDER

is;;ittttltlttlttltttttttttttttttt..l.t.t'ttt'ttttttttt.tttttttt'

ggmo
1276

oou.sg
000053 001226
041532

:
1;33

SCOPE
NOP
MOV
MOV

csucx 3?
E.R

MOV
roué
MOV
c 3, srésm
JSR
rgom
.WORD osl

:SCOPE CALL
*START OF TEST
-mmuzs STACK POINTER
= UNIBUS ADDRESS

(R1)
= DEVICE BEING TESTED
:;SET TEST NUMBER IN APT MAIL BOX
:PREPARE DEVICE FOR TEST
:TASK DESCRIPTOR AS FOLLOWS:
sCLEAR CONTROLLER & SELECT DEVICE

:VERIFY CONTROLLER CLEAR OPERATION

S ACOOUSDC
I YR T VLD
)

EMT

::,'
306

;RETURN HERE IF ERROR

*ERROR # DEFINED BY TSTPRP SUBROUTINE

mim
#PUTINX R

MOVB

#RMDC.
(R )+

MOVB

1741

033

1744

260 TO 1$ IF NO ERROR

MOV
MoV

1735
03:
1
3
m

128
*60 TO 128 IF E
fii
K!60 msw :SEEK FUNCTION C

334
3

NOP

sRECALIBRATE IF "SKI'’ OR 'PIP" IS SET
*VERIFY RECALIBRATION

JMP
MoV

1
1

033

MoV
MoV

MOVB
MOVB

#RMDA,(R

;START AT FIRST INVALID CYLINDER
:TRACK = 0, SECTOR
= 0

: rPOINTS
16 BIfTOFORMAT
INDEX TABLE

uurs REGISTER TABLE

#RMOF . (R2)+

si,(R2)+

MOVB

JSR

#200,

(R2)+

B8R

JSR

PC,CNTCLR

:TERMINATE TABLE

Pc.stms - -:SETUP FOR STATUS - ;G0 ISSUE

CONTROLLER CLEAR

*GO TO 38 IF NO ERROR

NDAO RM8O FCTNL PT1 MACRO VO04.00 28-JAN-82 16:24:51 PAGE 13-65
SEEK INVALID CYLINDER

fi%fig

033406

737 042546

)

000137
033406
737 0526064

1746 0

itk
1748

132

3212

13214

.
1750

004

000137

0332

$32

0332
3%¢

}2 3

;;g

737 043016

’

137

033406

4.8 004737 043370

000137

033406

1756

004737 043564

05
%0

13{

137

1733 ig;

$330¢

033406

7 051206
5

JSR

PC.PUT

JSR

Ps‘a(sno

260 BACK FOR MORE ERROR CHECKS

JSR

PC,SEKSTS

737 050562

JSR

1763 gs’t

335

a$
1

FOR PRIMARY ERRORS

:GO TO 88 IF NO ERROR
:RETURN HERE IF ERROR
:ERROR # DEFINED BY PRIERR SUBROUTINE
:GO TO 128 IF ERROR

:60 mgv RESULTS OF SEEK OPERATION
:6G0 TO 98 IF KO ERROR

PS‘MSP)#
1
PC.CMPERRSTS

;CHECK ANY ERRORS NOT MASKED

.WORD IAE 'NDTMSK
.WORD ops
B8R
10

:WAIT FOR GO TO RESET

:RETURN HERE IF ERROR
:ERROR # DEFINED BY SEKSTS SUBROUTINE
:60 BACK FOR MORE ERROR CHECKS
:60
TO 128 IF ERROR

NOP

7 044416

*G0 TO 128 IF ERROR

:60 CHECK

}%?

*RETURN HERE IF ERROR
*ERROR # DEFINED BY PUT SUBROUTINE

PC.PRIERR

1760

033406

*G0 TO 6 IF NO ERROR

JSR

137

:60 WRIVE aesxsrsa(s) WITH PUT SUBROUTINE

eo TO 128 IF ERROR

033406

<60 TO 128 IF ERROR

128

137

:G0 BACK FOR MORE ERROR CHECKS

Jup

3336
334
334

:ERROR # omneo BY CLRSTS SUBROUTINE

:GO READ REGISTER(S) WITH GET SUBROUTINE
co TO 7$ IF NO ERRCR

1
0

*RETURN HEREIF ERROR

PC,GET
78

NCP
EMT
JSR
JMP

128

5% IF no ERRNR

JSR
5R

t{
3,
33
fi

3306
13330
333¢

:GO TO

PC, TIMOUT

JMP

12§

co 0 4$ IF NO ERROR

8A
NOP
EMT

PC,a(SP)+

JMP

‘s

JSR

NOP
EMT

eo 0 m ifF E
;G0 VERIFY CONTROLLER CLEAR OPERATION

737 042546
04

IF ERROR

128
PC.CLRSTS

JMP

:60 0 128

JMP
JSR

:MASK FOR RMER1
:
r?i RMER2
260 TO 108 IF NO ERROR

*RETURN HERE IF ERROR

EMT
JSR
JMP

ps‘a(sm
1

:ERROR # DEFINED BY CMPERRSTS SUBROUTINE
260 BACK FOR MORE ERROR CHECKS
:GO TO 128 IF ERROR

11§

:60_TO 118 IF NO_ERROR

JSR

NOP

f'éfilm""‘ msa'fwfxusmo 8Y SUBROUTINE
:60 am REGISTER(S) WITH GET SUBROUTINE

EMT

SEQ 0149

PC,GET

NOP

033406

JSR

1754 033244

s"g';

PC,SECERR

:60 CHECK FOR SECONDARY ERRORS
*RETURN HERE IF ERROR

SEEK INVALID

lcao“vu..oo 28-JAN=-82 16:24:51 PAGE 13-66

BB e

333AgeRS

2333390

EMT

JSR
IRe
INC
cmP
BHIS
JMP

Hic

p&mmo
1
RMDCO
RMDCO,#1024.
128
28

SEQ 0150
:ERROR # oennso BY SECERR smounne

:GO BACK _FOR MORE ERROR CHECK
:60 TO 128 IF ERROR
: INCREMENT CYLINDER ADDRESS
:DONE ALL CYLINDERS ?
*BR IF YES
sTEST NEXT INVALID CYLINDER

t.tt..t.tltt.t.tt!t"t"'ttt....l'tt..'.t'.ttltt.t'.tt't.tttat.

-rssr 54

IVC SEEK TEST

*RHARRRRRRAAARRAAAARARARRRA
AR AAARAAARAARAAAA AN AAARNAANANA AN S

13701
1772

MOV

12737

177N

JSR
B8R
NOP
EMT

737

3
D smd o
cond o

3 355

LAt at Lt ot L ittt Lo Lottt Ladtad

1
1
1
1
1
1
1

¥y

el ol o

e
}fls 3
i %
1

bbb
2 QOO0 O

F&&
L L]

NN gg

S~N

7
04

rvovs

012737

BEBS

888

)2
)466
)3

=D e d and ot

8888

1773
1774

csncx 39
i
g

#56, srésm
PC,CNTCLR
1$

:SCOPE CALL
*START OF TEST
SINITIALIZE STACK POINTER
*RO = UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED

:2SET TEST NUMBER IN APT MAIL BOX

:60 xss:.g CONTROLLER CLEAR
*GO TO 1S IF NO ERROR
:RETURN MERE IF ERROR
*ERROR
R DEFINED BY SUBROUTINE

JNP

MOVB
MOVB

#RMMR1.PUTINX

;SETUP PUT INDEX

MOV
JSR
B8R
NOP
EMT
JMP
MoV
MOV
MOV
MOV

#DMD . RMMR10
PC,PUT
2s

*SET RMMR1 OUTPUT BUFFER = DMD
:G0 WRITE RMMR1 VIA PUT SUBROUTINE
:60 TO 25 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR DEFINED BY PUT SUBROUTINE
:G0 T0 8 IF ERROR

MOVB

#RMDC (R3)+

MOV
MOVB
MOVB

MOV8
MOVB
JSR
JSR

B8R
NOF
EMT
JMP
JSR
B8R
NOP
EMT

:60 T0 '.‘i 'x'urE ERROR

#200,PUTINX+1

TABLE
:SET rem{mOR BYTE

8s
eex:s? RMCS10
JRMR10
“RMDCO
:CYLINDER
RMDAO
‘TRACK = 0,

mfinnx
in )+
m.i
#200,

SWRITE misen xmx
*TABLE

si,(R2)+
(R2)+

PC,GETSTS
PC.oUT
3s
8s
PC,GET
4

;SETUP FOR STATUS
:60 uu;; REGISTER(S) WITH PUT SUBRGUTINE
:GO TO 38 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY PUT SUBROUTINE
$G0 TO 88 IF ERROR
360 READ REGISTER(S) WITH GET SUBROUTINE
360 TO 4$ IF NO ERROR
:RETURN HERE IF ERROR
$ERROR # DEFINED BY GET SUBROUTINE

—

SCOPE
NOP
MOV
MoV
MOV

%‘WO

N%Egp MACRO v04.00 28-JAN=-82 16:24:51 PAGE 13-67

033746
043564

83374

10003 001400 58:

79
795

7739

798

799

167

114

050562

033746
044416

38
pg.mm
5
PC,a(SP)+
8s

;60 70 88 IF ERROR
;60 CHECK FOR PRIMARY ERRORS
*G0 TO 58 ‘r NO ERROR
*RETURN WERE IF ERROR
*ERROR # DEFINED BY PRIERR SUBROUTINE
*GO BACK FOR MORE ERROR CHECKS
*GO TO 88 IF ERROR

MOV
MOV

#1VC,$GDDAT
RMERSI,$SBDDAT

:GOOD DATA FOR TYPEOUT
:BAD DATA FOR TYPEOUT

BIC

JSR
.WORD
-WORD
B8R
NOP
EMT
JSR
JMP
JSR
BR
NOP
EMT
JSR

SEQ 0151

NP
JSR
B8R
NOP
EMY
JSR
JMP

g'x‘g

001140
8811:.

avc.mnzx

#CIVC.SBDDAT

PC,CMPERRSTS
NDTMSK
;vcsm
$
PC,a(SP)+
2%
PC,SECERR
2%
PC.(SP)+

:gég.;nmm COMMAND SET??

:CHECK ANY ERRORS NOT MASKED
:MASK FOR RMER1
*MASK r% RMER?
:G0 TO 7$ IF NO ERROR
*RETURN WERE IF ERROR*ERROR # DEFINED BY CMPERRSTS SUBROUTINE
:G0 BACK FOR MORE ERROR CHECKS
:G0 TO 88 IF ERROR
;60 cueg FOR SECONDARY ERRORS
:60 TO
g NO Em
:RETURN WERE IF ERROR
*ERROR # DEFINED BY SECERR SUBROUTINE
:6G0 BACK FOR MORE ERROR CHECKS

4 ARARRRARARAAARAAAANRAANCAARAANARRAAAAAAAREAAAAARAAAAAASARAAAASRSY

S*TEST 55

:PREPARE DEVICE FOR TEST

TASK DESCRIPTOR AS FOLLOWS
LEAR con%ea

012737

034310

1
1426

2 15%7 838888 881“6

[}

F.m L

1" OR “PIP" IS SET
sRECALIBRATE IF
sVERIFY RECALIBRATION
:GO_TO 1S _IF NO ERROR

JMP

;60 TO 98 IF ERROR

MOV

mco

NOP
EMT

MOV

sRETURN HERE IF ERROR
sERROR # DEFINED BY TSTPRP SUBROUTINE
RMER10

sSET UNSAFE

ERROR

sCYLINDER = 8

—

:VE

SELECT DEVICE

ONTROLLER CLEAR OPERATION
EDGE IF VOLUME NOT VALID

. WORD o§l1§o

(]

JSR

1§o

csmcxfisp
$BASE
;gngt R1
5,STESTN
PC,TSTPRP

:SCOPE CALL
:START OF TEST
SINITIALIZE STACK POINTER
*RO = UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED
+2SET TEST NUMBER IN APT MAIL BOX

gaooo

1
0011
1
1276
1 ;g;
ugg
01
001226
737 041532

SCOPE
NOP
MOV
MOV
MOV
MoV

7
766
4

<»>-<

'32
1

TS15s:

ot
T o

746
7
7

ABORT SEEK TEST

' EARRARNRRANRARARARAAARNACAREARAAANARRAANAAREAARRARARAAAARRARAANAASASAY

Y
131;
18
1814

1§§
1
1

3‘1:2

28:

§ 1

1
}‘2

1824
1825

034144
128

7
7

}

166 004 ; 043370

}

}“

‘

172

037

001140

001350

7$:

137

034310

73; 043564

J 12

00114
00114

-TRACK = 0,

m.(isfo+

*SETUP REGISTER INDEX TABLE

#PUT]

SRMDC ; (R2)

mni,(as»

PC.PUT

034310

@% 060210

:GO TO 98 IF ERROR

050562

;37

78:

‘
1837

137

.
034310

:GOOD DATA FOR TYPEOUT

DAT

:WAIT FOR GO TO RESET
;60 READ REGISTER(S) WITH GET SUBROUTINE
260 TO 5$ IF NO ERROR

:RETURN HERE IF ERROR
:ERROR # DEFINED BY GET SUBROUTINE

260 TO 93 IF ERROR

:g.mm

260 CHECK FOR PRIMARY ERRORS

PC.3(SP)+

260 BACK FOR MORE ERROR CHECKS

:G0 TO 68 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY PRIERR SUBROUTINE

:G0 TO 98 IF ERROR

l;g.srmvsrs

;60 cue;g FOR CHANGES IN DRIVE STATUS

PC,a(SP)+

:GO BACK FOR MORE ERROR CHECKS

PC,CMPERRSTS

ND FMSK TUNS
DPE
8s
PC,a(SP)+

8$:

:%g.mve START SEEK??
:BAD DATA FOR TYPEOUT

§!o ©

1:;2
1

034310

*GO TO 38 IF NO ERROR
*RETURN HERE IF ERROR
:ERROR # DEFINED BY GET SUBROUTINE

RMDSI,SBDDAT

137

IF NO ERROR

:GO READ

{

*G0 TO 28

PC,GET

“

:69 um; REGISTER(S) WITH PUT SUBROUTINE

*GO TO 98 IF ERROR

40
137

;SETUP FOR STATUS FETCH

:gw."E'E‘Eu’éo‘.v‘m'T SUBROUTINE

;

*AND OUTPUT BUFFER

S1.(R2)+

#200,
(R2)+
PC,GETSTS

PC,TIMOUT
PC,GET

SECTOR = 0

#SEEK160,NCS10 ; SEEK COMMAND

#~CP1P,$BDDAT

48:

SEQ 0152

#0,RMDAQ

z:xr.msx

132

001350
157777

737 042546

135
.

834310

1819

1817

555 y3585ulaaazas

% §NDAO RMB0 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-68
ABORT SEEK TEST

:G0 TO 7$ IF MO ERROR
SRETURN HERE IF ERROR
*ERROR # DEFINED BY STCDRVSTS SUBROUTINE
:G0 TO 98 IF ERROR

:CHECK ANY ERRORS NOT MASKED

‘MASK FOR RMER1
:MASK FOR RMER2
*G0 70 88 IF NO ERROR

*RETURN HERE IF ERROR
*ERROR # DEFINED BY CMPERRSTS SUBROUTINE
*G0 BACK FOR MORE ERROR CHECKS

*GO TO 98 IF ERROR

|
z
{

|
{

'F
E& Pl; MACRO V04.00 28~JAN-82 15:24:51 PAGE 13-69

— cnd el

83
84

737

;gszad

1838

044416

9%:

JSR
BR
NOP
EMT
JSR

K 12

SEQ 0153

PC,SECERR

ONDARY ERRORS

PC,3(SP)+

GO BACK FOR MORE ERROR CHECKS

Y SECERR SUBROUTINE

SERRAARAAARAAAAARARAAAAARAAAAAAAAAAARAAAAAAAAAAAAAAAAAAORAAOR
AN

tTEST 56

SEEK AT OFFSET

PERRAAARARRARAARAAAN
AR
AAAAAAAAAAANAAAAANAAAAA AR AN N AN
RS

S
b ek

838
gaNz
S

NN
~

t4756:

001226
1$:

sSCOPE CALL

SCOPE

#STACK, SP
$BASE ,RO
TSTQUE ,R1
#56,$TESTN

:START OF TEST
mnuuze sncx POINTER
:RO
= UNIBUS ADDRESS
um = osvxce BEING TESTED
+;SET TEST NUMBER IN APT MAIL BOX

PC,TSTPRP

:PREPARE DEVICE FOR TEST

:VERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
:VERIFY PACK ACKNOWLgoce seiical
nscu.xmre IF 'sm
PIP’’ IS SET
.vm necmm
0 28
IF NO mon
:euw usne IF ERROR
.em DEFINED BY TSTPRP SUBROUTINE
*G0 TO 108 IF ERROR
:CYLINDER
= 0

nNOO

888

#0.RMDAO

#OFFSET!GO, RMCS10

#PUTINX

mc.(fis +

L(R2)+
PUT
3s:
4$:

108

PC,GETSTS
PC.TIMOUT

TRACK = o

SECTOR =

OFFSET COMMAND IN BUFFER

:R2 Pomfs TO REGISTER TABLE

:WRITE REGISTER INDEX TABLE

:WRITE TERMINATOR
*GO WRITE REGISTER(S) WITH PUT SUBROUTINE
*G0 TO 38 IF NO ERROR

.-mumHERE IF
:ERROR
# DEFINED BY PUT SUBROUTINE

:G0 TO 108 IF ERROR

:sem» FOR STATUS FETCH
*WAIT FOR OFFSET TO COMPLETE

aseex-co msw :LOAD SEEK COMMAND
'"33
punnxfl
*LOAD REGISTER INDEX TABLE

:60 mrs REGISTER(S) WiTH PUT SUBROUT IHE

888
e

el
s e

Cbgggghh

s1,(R2)+

> 'i‘fl‘i‘d;::;“~'

*TASK DESCRIPTOR AS FOLLOWS:
*CLEAR CONTROLLER © SELECT DEVICE

108
#0,RMDCO

SRMDA; (R2)

NNNN

2$:

NN~

saed
i

gfl;

-O

e S
e
P

D =l
ad =B e
ol e

—_,

FURZS

e a0

e S

‘WEEE

054130

5%:

108

:GO TO 58 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY PUT SUBROUTINE
*GO TO 108 IF ERROR

§Fg} MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-70

:WAIT FOR COMMAND TO COMPLETE

004737 043370
737 042546

JSR
JSR

137
034634
737 043564
5
60

137
034634
737 051206
S
40

137

034634

004737 050562
115760
10
05
40

004

000137 034634
737 044416
03
4

il
|
s

BR
NOP
EMT
JMP
JSR
B8R
NOP
EMT
JSR
JMP
JSR
BR
NOP
EMT
JSR
JMP

JSR
.WORD
.WORD
BR
NOP

JMP
JSR
BR
NOP
EMT
JSR

PC, TIMOUT
22""

108
PC,PRIERR
7

PC,a(SP)+
10§
:g.sexsrs
ps a(sP)+
10§
PC,CMPERRSTS
NDTMSK
DPE
9s

PC.acsP)e
10§
PC,SECERR
10$
PC.a(SP)+

SEQ 01564

;G0 TO TIMOUT SUBROUTINE
;60 READ REGISTER(S) WITH GET SUBROUTINE
:GO TO 68 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY GET SUBROUTINE
G0 TO 108 IF ERROR
:G0 CHECK FOR PRIMARY ERRORS
*GO TO 7$ IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY PRIERR SUBROUTINE
:G0 BACK FOR MORE ERROR CHECKS
:GO TO 108 IF ERROR
;60 mgv RESULTS OF SEEK OPERATION
*GO TO 88 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY SEKSTS SUBROUTINE
:G0 BACK FOR MORE ERROR CHECKS
:GO TO 108 IF ERROR

;CHECK ANY mgas NOT MASKED
:MASK FOR RMER
2MASK rgg RMER2
260 TO 95 IF NO ERROR
:RETURN HERE IF ERROR

S50SACK FOR.MORE
ERROR_ CHECRS o OUTINE
:GO TO 108 IF ERROR
60 cusgx FOR SECONDARY ERRORS
:6G0 TO 108 IF NO ERROR
*RETURN HERE IF ERROR
<ERROR # oemso 8Y SECERR SUBROUT INE
:GO BACK FOR MORE ERROR CHECKS

2 tttttt.tttlttttt'tttt"'ttlttttQttttttttttttttttttttttttttttttt

S*TEST 7

LOOK AHEAD TEST

i};;;;ttttttttt.ttttt'tttttttititttttttttttttttt'tlttttltt'ttttttt

1
1

13701
12737

ngo
1276

2‘

5354
37

osmx P
E,R

:SCOPE CALL
*START OF TEST
*INITIALIZE STACK POINTER
*RO = UNIBUS ADDRESS

JSR

PC,CNTCLR

;60 ISSUE CONTROLLER CLEAR

MOV
MOV

001226

737 052466

1
703

SCOPE
NOP
MOV
MOV

1$:

B8R
NOP
EMT
JMP
MOV

tsroué
os7.srtsm
1$

2gs
#31.,R3

*(R1) = DEVICE BEING TESTED
+:SET TEST NUMBER IN APT MAIL BOX
*GO TO 1S IF NO ERROR
*RETURN MERE IF ERROR
*ERROR
R DEFINED BY SUBROUTINE
260 TO 208 IF ERROR
:R3 = SAMPLE COUNT FOR 18 BIT MODE

CgMAO RM80 FCINL PT1
7
LOOK AHEAD TEST

3s:

004737
04

042546

043564

1911
9
191
191
1915
191?
191

1919
1920

114

1
1
124
1
0351
14
14

0381
1?3

035344

193778
60600

58
R2
X3

:START CLOCK TIMER

:DEC NUMBER OF CYCLES

:CONTINUE IF NOT DONE

PC.PUT

sEXECUTE SEARCH COMMAND

;G0 WRITE REGISTEMS) WITH PUT SUBROUTINE
;60 _TO 65 _IF NO ERROR

6$:

sRETURN HERE IF ERROR

:ERROR # DEFINED BY PUT SUBROUTINE

198

;60 TO 198 IF
ERROR

PC, TIMOUT

sWAIT FOR COMPLETION

PC,GET

;60
REAgsREGISTER(S) WITH GET SUBROUTINE

78:

1
1

112

'Téfifl DONE??

#SEARCH!GO,RMCS10

035344

#8177,3CLKADR

9$:

sERROR # DEFINED BY GET SUBROUTINE
s

19%

:g.PRlERR

lBUFFERRé&

RMLA(RO)

NO ERROR

:RETW HERE IF ERROR

l"s‘i(SP)o

8s:

;-on-o

043370

:D0 2 CLOCK CYCLES

PC.STIMER

, (R4)

198 IF ERROR

FOR PRIMARY ERRORS

IF NO ERROR
HERE IF ERROR
DEFINED BY PRIERR SUBROUTINE

D 7}

004737

#2.R2

035344

:60 TO 198 IF ERROR

FRESR Seves

000137

001412

:ERROR # DEFINED BY PUT SUBROUTINE

198

233 8
g 2 O*O

043016

004737

8838

000031

E
IF NO

:RETURN HERE IF EOR

164466

4$:
5%:

WIT; REGIST R(S) WITH PUT SUBROUTINE

fll;fll-flfl
= 88
U"'ll

3303
881 375

012737

%
o

PC.PUT

04
4

104
0001

A .
cnno;)
(6

s (R2)+

737

104

0stAncu nncs1o

:CYLINDER = 0
:SEARCH TRACK = 0, SECTOR
= 0
$SEARCH COMMAND

;205R2)+
PC, eérsrs

§‘§§¥2§
777

ek and

2%:

LT TR
TR L)

774
776

004

sSTART WITH 18 BIT MODE

770

12737
127
1127
1127
1
1127
1127

O0O0O00O00

22888333332

1 9;

34764

O0O00OOOODOO0

}891

[}

ALATR TY ®

1
0347
1885
7
1
7640
1
766
1
750
1
756
1
760

001444
%16
14
14

gz
By

11 g
i Sy

SEQ 0155

FOR MORE ERROR CHECKS

98 IF ERROR

STORAGE ADDRESS

GROSS TIMER

ORE RMLA SAMPLE
T ANOTHER LOOK

|§WLES SAME??

TIKWI’?"

:NO = TRY AGAIN

‘

:PROGRAM TIMEOUT

CgNDAO RM80 FCTNL PpMACRO V04.00 28~JAN-82 16:24:51 PAGE 13-72

N 12

SEQ 0156

LOOK AHEAD TEST

nNO

Ay
s‘
(WP
RS, (R&)
£
EMT

M
) -SBDDAT
198

032737

010000

001444

#ENT16.RMOFO

010000

001444

B8R

MOV

#EMT16,RMOFO

001000

00144

178:

BIT

ASSELRNOFO

0 10 0

001444

BIS

98:

(sP)e.ERRVECS?

el o

nd oo e

s 012637
X

168:

£3m

A
MOV
n3
A&g

222

Eo0

b
-

£50

—=d

158:

mmns

Viviiuniniaiuninaiuaiiuaiainaiau

OOO00O0O0O0O0O0O0O0CO0O

B FERXLBETRIPORIRSZLLLER

D v
D cd d ed e
wd
b
D d cmd ed b el D

ad o aed e cnd med

b e

148:

2?:.

0 o

;SET 16 BIT SAMPL

3% qsszas grave
quaros
9%1
12405
2;
22
7o§ 000100
o;%

BEQ

caurfea
finoro

D wnd

0014

MOV
8IT

5224

19
§ 1 § 724 1”04”3%
‘
1935 035216
7 010000 001444

iSET 18 BIT sAm. mmsrsns

i3s:

;fi

35202 o} ;85 003500

:NO

nun

: TIMEOUT??

118
52
0s

BNE
.
JMP

.Heéf FOR CHANGE

1927 03517
1 7§
1928 038176 1043
}g 8 5176 ooo1§; 035354
1931

.
(WP
RMLA(RO) ,R2

e :Shos
SoE2

118:

e g 0 B 000020

sADVANCE STORAGE ADDRESS
.AIE-IS.SAMPLES TAKEN??

1924 035162

#2.R4

m
[=]
m

ADD

DEC

148

-no = TEST NEXT SAMPLE

TES}'MYIEES FOR 16 BIT MODE ?

188

£1,RMOF

ALL SAMPLES CHECKED??

......2... 8285 § -

108:

ET 16 BIT MODE
AGAIN FOR 16

AND
BIT MODE

Sl rogsu BIT MODE W/ SSEI SET ?
TUP FOR 16 BIT MODE W/ SSEI AND

:;unn

000002

LA TR TR TR T

704

DM
b =

035152

Ve W0 Be Ve Ve Be Ve Ve B e Re

1921

T SAMPL

%fl‘!’

AGAIN FOR

16 BIT MODE W/ SSEI

:POP STACK INTO ERRVEC+2

::POP STAEK INTO ERRVEC

ttttttfltt'.tttti.i.tti""t.l'fitttt.'.itttl..t.ttttttttttfittit'

tTEST 60
SRR

SEARCH ON CYLINDER

SRARRARANANAAAAAARAAANRARAAAAAARARAAAAAAANRARARAAARACAARARACERAES

83622

t§760:

+SCOPE CALL
sSTART OF TEST

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-73

160

B i3

SEQ 0157

SEARCH ON CYLINDER

3 5
1100
5
276
035370
- 035374
001226
1972 ogsz.oz oom 041532

MOV
MOV
MOV
MOV
JSR

csncx sP
E,RO
rsmué m
#60,STESTN
PC,TSTPRP

ogsuo
04
035412
240
035414 1 ogg
wia 0 gzng 000137
035776

BR
NOP
EMT
JMP

2s:

MOV
MOV
MOV
MOV
MOV
MOVE
MOVB
MOVB
MOVB
JSR
JSR
BR
NOP
EMT
JMP
JSR

#0,RMDCO
*CYLINDER = 0
#0,RMDAQ
*TRACK = 0, SECTOR = 0
#FMT16!SSE] ,RMOFO
-SET 16 BIT MODE W/ SSEI
cseex'sountsw:SEEK C
*SETUP REGISTER INDEX TABLE
ARMDC.(R2)
#RMOF
. (R2)+
mgssi (R2)+
(R2)+
PC,GETSTS
;SETUP FOR STATUS FETCH
PC.PUT
*GO WRITE REGISTER(S) WITH PUT SUBROUTINE
2s
:G0 TO 28 IF NO ERROR
*RETURN HERE IF ERROR
:ERROR # DEFINED BY PUT SUBROUTINE
128
*G0 TO 128 IF ERROR
PC,TIMOUT

“

BR
NOP
EMT
JMP

8R
NOP
EMT
JSR
JMP

035406 054130

1974 § 5422

01 ;gs 000037

1975 035426
19;9 54
19
su.s
1978 035450
1979 035456
1981 5593
19
5472
19
st.rg
1
8 55
1332 5506
1986
035512
3 5516
55
5522
5524
}937 55

012737
12737
015 7
012737
omos
112722
11 75
112722
1127;
004737
004737
000404
082 40
1
137
737

04
40

sug
554
546
N gls.g

oia

556
560
562
564
:

000000
000000
011000
000005
001545
000034
000032
000000
000200
042462
043016

1980 035462 112722 000006

1333 5534
16’99?
199§
1994

737 042546

552
5

035776
043370

137

035776

737 043564
05
40

137

LWORD

001446
001420
0071444
001412

MOVB

035776

757 051206

MOV

5
40

1 ; 830031 001412 58:

JSR

BR
NOP

EMT
JSR
JMP

MOV

054130

128

m..as

: INITIALIZE sucx POINTER
:RO = UNIBUS ADDRESS
*(R1)= DEVus BEING TESTED
::SET TEST NUMBER IN APT MAIL BOX
:PREPARE DEVICE FOR TEST

:TASK DESCRIPTOR AS FOLLOWS:
:CLEAR CONTROLLER € SELECT DEVICE
*VERIFY CONTROLLER CLEAR OPERATION
“PACK ACKNOWLEDGE IF VOLUME NOT VALID
*VERIFY PACK Acxgcou;ose )
“RECALIBRATE IF ''SKI" OR 'PIP'* IS SET

*VERIFY RECALIBRATION
*GO TO 1$ IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY TSTPRP SUBROUTINE
*GO TO 128 IF ERROR

:R3 = MAXIMUM SECTOR ADDRESS

mm.(fign

:FOR SEEK TO CYLINDER 0

PC.GET

:GO READ REGISTER(S) WITH GET SUBROUTINE

128

PC,PRIERR
4

PC,a(SP)+
12§

PC,SEKSTS
58

PC,a(SP)+
128

:GO TO 38 IF NO E
*RETURN MERE IF E
:E
# DEFINED BY GET SUBROUTINE
260 TO 128 IF E

:GO CHECK FOR PRIMARY ERRORS

*G0
TO 4$ IF NO ERROR
*RETURN HERE IF ERROR
:
# DEFINED BY PRIERR SUBROUTINE
*G0 BACK FOR MORE SRROR CHECKS
$G0 TO 128 IF ERROR

:G0 VERIFY aesuus OF SEEK OPERATION
*GO TO 58 IF NO ERROR
*RETURN HERE IF ERROR

*ERROR # osrmeo BY SEKSTS SUBROUTINE
*G0 BACK on nons ERROR CHECKS
GO TO 128iF ERROR

¥SEARCH !GO, RMCS10

srone SEARCH COMMAND

»n

035620

SEQ 0158

001420
001420

JSR
BR
NOP
EMT
JMP

PC,GET
78

sGO READ

JSR
BR
NOP
EMT
JSR
JMP

PC,.PRIERR

9%:

108:

11s:

128:

JSR
BR
NOP
EMT
JSR
JMP

JSR
-WORD
.WORD
BR
NOP
EMT
JSR
JMP

:ERROR # DEFINED BY GET SUBROUTINE

128

E
;60 TO 128 IF
ERROR

PC,a(SP)+

128

PC,SCHSTS

GO CHEK FOR PRIMARY ERRORS

0 88 IF NO ERROR

RETW HERE IF _ERROR
:ERROR# DEFINED BY PRIERR SUBROUTINE
:G0 BACK_FOR MORE ERROR CHECKS
:GO TO 128 IF ERROR
;60
VER&Y
SEARCH OPERATION
NO ERROR

'RETW HERE IF ERROR

PC,a(SP)+

153

PC,CMPERRSTS

ND FMSK

- DPE
108

?5‘3( SP)+

JSR
BR
NOP
EMT
JSR
JMP

PC,SECERR

INC

RMDAO

CMP
BHIS

:60_TO 78 IF NO ERROR
RETURN HERE IF ERROR

:ERROR l DEFINED BY SCHSTS SUBROUTINE
<60 BACK_FOR MORE ERROR CHECKS

60 TO 128 IF ERROR

sCHECK ANY ERRORS NOT MASKED

:MASK FOR RMER1
FM RMER2
108 IF NO_ERROR

11§

PC,a(SP)+

158

R3,RMDAO
5%

HERE IF ERROR
DEF INED BY CMPERRSTS SUBROUTINE
FOR MORE ERROR CHECKS

128 IF

-y

PARIS RN NI
SN

035776

sWAIT FOR SEARCH TO COMPLETE

§a

raeld ek

$
SWN=O

h mh

044416

b ek

035776

PC,TIMOUT

ERROR

g2532
Ei -"!l!
o

056624

050562

JSR

26O TO 128 IF ERROR

78:

035776

128

:6G0_TO 68 _IF NO ERROR
:RETURN HERE IF ERROR
:ERROR # DEFI'ED BY PUT SUBROUTINE

3e(=]

AS:

sG0 WRITE REGISTER(S) WITH PUT SUBROUTINE

CK_FOR SSECONDARY ERRORS
118 IF 'Ffl ERROR
RE IF ERROR
DEF INED BY SECERR SUBROUTINE

332 ssgg

SRR
1sEagy
Fnon

043564

JMP

BR
NOP
EMT

042546

035776

PC,PUT

—

035776

JSR

LA
TA TR TR TE ]

043016

e .6;.-

737

wviiiaiuniniuainianiininiuiiainiiaiuaiiaiianainaw ]iwa
NN NN NNNNNN
NN

£
3

043370

OO0V OO0OVOOOOCODOOOOOOOO OO0O000O0O0O0O fel=lelelole]

3883

D
b s

1995

INWWNNNN

fl!

ARCH ON CYLINDER

CZRNDAO RHBO FCTNL PT1 MACRO V04.00 28~JAN-82 16:24:51 PAGE 13-74

160

FOR ME ERROR CHECKS
28 IF ERROR

NT SECTOR ADDRESS
L SECTORS??

SRARAAARAARAARAAAAAAAEEERRRRRARARRARAAARRANAAAACAARAAAACAIAARARS

OOO0O

tTEST 61
577
577

SEARCH OFF CYLINDER

IRARARAAAARAAAAAAAAA
NN A AERARNARRAARAAAAAAAAAAACARAAAAAAAAARAANSY

té161:
40

137

1
1276

SCOPE
NOP
MOV
MOV

;SCOPE CALL

#STACK,

saAss.63

;S TART OF TEST
:INITIALIZE STACK POINTER
iR
UNIBUS ADDRESS

CZRNDAO RMB0 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-75

SEQ 0159

SEARCH OFF CYLINDER

g 8278 880688 ooras

s 854736 041532

MOV
MOV

#61,8TESTN

TSTQUE .R1

:(Rl) = DEVICE BEING TESTED

JSR
.WORD

0sti30

PREPARE DEVICE FOR TEST
:TASK DESCRIPTOR AS FOLLOW

OV~

prer gy

160 10 1 [F NO ERROR

:RETURN HERE IF ERROR

:ERROR # DEFINED BY TSTPRP SUBROUTINE
:60 TO138 IF ERROR

138

mfmuSEI, anorb; START AT TM%K =

NOWVSNAN
=

2s$:

{CLEAR CONTROLLER & SELECT DEVICE

IVERIFY CONTROLLER CLEAR OPERATION
PACK _ACKNOWLEDGE IF VOLUME NOT VALID
:VERIFY PACK ACKNOWLEDGE
:RECALIBRATE IF *'SKI" OR ‘PIP"* IS SET
VERIFY RECALIBRATION

1$:

s:SET TEST NUMBER IN APT MAIL BOX

sR5

0, SECTOR = 0

SEARCH CYLINDER

sR3

= SEEK CYLINDER

csesx'eoRMCS10 :LOAD SEEK COMMAND
;L

CYLINDER ADDRESS

:R2 POINTS TO REGISTER TABLE
:SETUP REGISTER INDEX TABLE
:FOR SEEK COMMAND

ifio#-.R

=t3

ERROR CHECKS

b= T
-

@R &

1§£

6$:

PC,a(SP)+

(=]

:S.SEKSTS

MARY ERRORS
RROR
RROR
D BY PRIERR SlBRWTI'E

=8¢

1§§

“n

PC,a(SP)+

iiNG

5§

RROR

60 T0 1
—

PC.PRIERR

:ERROR # DEFINED BY GET SUBROUTINE

=}
°3
ok4
s
o5
# = G
VY
) e
-mW,m D
=S
m

043564

sRETURN HERE IF ERROR

138

036440

.-'fl

:G0 READ REGISTER(S) WITH GET SUBROUTINE
:G0 _TO 48 IF NO ERROR

036440

051206

PC,GET

:UAIT FOR SEEK TO COMPLETE

1036440

8525
S-.

PC,TIMOUT

042546

138

TR TR TR PR 1Y

043370

3s:

036440

Em
I'ED BY PUT SUBROUTINE
F ERROR

TATE TR TR

Sm 288

RMINATE TABLE
'l’ll' FOR_STATUS
17
GISTER(S) WITH PUT SUBROUTINE

2]
[= L~}

161

1
DEFINED BY SEKSTS SUBROUTINE
;()R MORE ERROR CHECKS

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28~JAN-82 16:24:51 PAGE 13-76
161

E 13

SEARCH OFF CYLINDER

31
001412
16

MOV
JSR

1446

036440
66 004737 043370

036272

036276

004737

036336

535

036340
( ;%

036

EnT

042546

137

036440

737
056624
05

036440

03635
737 050562
036354 115760

)

036356

036360
036362

036364
- ;2..

137

583? 036374
39 ¢ 16414
gs D3¢
036

036424

036440

737 044416

038402

0 0137

005303
3

5
7

036440
881458

001420

03¢ 4 0001 % 036070

54
000037

60 T

IF NO ERROR

13
PC,TIMOUT

’e‘S{o"z".“S'éFmo‘S'#“%m
SUBROUT INE
*G0 TO 138 IF ERROR
;WAIT FOR SEARCH TO COMPLETE

PC,GET

:G0 READ REGISTER(S) WITH GET SUBROUTINE

138
PC,PRIERR
9s

'smw‘HOEF
67 GET SUBROUTINE
26070
T0 138 IFINED
ERROR
;60
cnesg FOR
PRIMARY ERRORS
GO T
IF NO ERROR

*GO
TO 88 IF NO ERROR

PC,a(SP)+

*RETURN HERE IF ERROR
*ERROR # DEFINED BY PRIERR SUBROUTIME
:GO BACK_FOR MORE ERROR CHECKS

Ps
SCHSTS
108

:60_T0 108 IF NO ERROR

:GO TO 138 IF ERROR

;60 VERIFY SEARCH OPERATION

*RETURN HERE IF ERROR

nga(sp>*

*ERROR 0 osrxuto BY SCHSTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

PC.CMPERRSTS
NDFMSK

;CHECK ANY ERRORS NOT MASKED
:MASK FOR RMER]

:G0 TO 118 IF NO ERROR
:RETURN HERE IF ERROR

oP;

0
240

03637

036410

137

:LOAD CYLINDER ADDRESS

13§

?82 40

883

0séAacn'Go.uncslb
<LOAD SEARCH COMMAND
gPUT
;60 um nesxsrsncs> WITH PUT SUBROUT INE

240

. § ,.?

5821 0363;
’*%'

B8R

=
:

;'t&"' 8030
fig 000137 036440
zo:.z“«i'l 8 14
: 18 004737
043564
883‘05
6316
36320
6

MOV

PC,3(SP)+

13§

Psisscenn
1

*G0 TO 138 IF ERROR

$MASK FOR RMER2

:ERROR # DEFINED BY CMPERRSTS SUBROUTINE:
:6G0 BACK_FOR MORE ERROR CHECKS

:GO TO 138 IF ERROR

:GO CHECK FOR SECONDARY ERRORS

*G0 TO 128 IF NO ERROR

;RETURN HERE IF ERROR

:60 TO 138 IF ERROR

R
RMDAQ

: INCREMENT SEEK CYLINDER
< INCREMENT SECTOR ADDRESS

:DO NEXT SECTOR

?ggno.ts1..

:DECREMENT SEARCH CYLINDER

-ggng A#%ssecroas’°

AXAARRAARAARARANRAN
AN RAARARACAAARRANRARAAAAAARAAEAAAAARRACANS

S*TEST 62

SEARCH INVALID SECTOR

SRAARARARAN AR EAAAARAN A AR ARAAAAAARAAARRAARAARAAAAARARAAAACRAARRES

SEQ 0160

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-77
162
SEARCH INVALID SECTOR

D
d d el

03644

TST62:

:START
OF TEST

psncx 39

giie 727 il 001226
067 greuss guurr

SINITIALIZE STACK POINTER

E.R
tsroué R1
#62,STESTN
Pg TSTPRP

041532

*RO = UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED
3:SET TEST NUMBER IN APT MAIL BOX
:PREPARE DEVICE FOR TEST

054130

*TASK DESCRIPTOR AS FOLLOWS:
*CLEAR CONTROLLER & SELECT DEVICE

sVERIFY CONTROLLER CLEAR OPERATION
*PACK ACKNOWLEDGE IF VOLUME NOT VALID
SVERIFY PACK Acxgmx.pose B
*RECALIBRATE IF ''SKI'’ OR 'PIP'* IS SET
*VERIFY RECALIBRATION

1$:

052466

*RETURN HERE IF ERROR

JSR

SRMOF
. (R2)

037040

pc séms

:TERMINATE TABLE
*SETUP
STATUS FETCH

PC,CNTCLR

:60 ISS

128

PC.PUT
4

043564

CONTROLLER CLEAR

IF NO ERROR

:nem HERE IF ERROR

*ERROR

*60 TO 128

R DEFINED BY SUBROUTINE

IF ERROR

260 WRIT nssxsrms) WITH PUT SUBROUTINE
260 TO 4$ IF NO ERROR

sRETURN HERE IF E

*ERROR # DEFINED BY PUT SUBROUTINE

128

PC,TIMOUT

;WAIT FOR GO TO RESET

PC,GET

;60 READ REGISTER(S) WITH GET SUBROUTINE

JSR

5%:

0462546

sCYLINDER = 0

JNP

235 333°

043370

4S:

“

B
3 g8%5d3

037040

:SET 18 sxr FORMAT

#RMDA. (R2) +
si,(R2)+
(R2)+

043016

3s:

:GO TO 128 IF ERROR

6
:FIRST mm.m SECTOR= 30.
csukcu
sg.mcslb
ARCH COMMAND
WRITE ntsxsren TABLE FOR
mc(i)+
* COMMAND

037040

“ERROR # DEFINED BY TSTPRP SUBROUTINE

nmro

§§ %é

:G0 TO 18 IF no ERROR

128

3EB; 33ES

=D oD end ok

3388
sSaes
NOOR

NNNN

3 SNNNNNS

SEQ 0761

+SCOPE CALL

1100

037040

$60 TO 128 IF

128

*G0 TO 58 IF NO E
*RETURN HERE IF E
*ERROR # DEFINED BY GET SUBROUTINE
:G0 TO 128 IF ERROR

PC.PRIERR

:60 CHECK FOR PRIMARY ERRORS

*G0 TO 68 IF NO ERROR

*RETURN HERE IF ERROR
*ERROR # DEFINED BY PRIERR SUBROUTINE

CZRNDAO RM8O FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-78

SEQ 0162

SEARCH INVALID SECTOR

§ 3
583? 6

38'639 037040
737 056624

¥;

;

037040

JSR

724

000137

117760
1g

5333 036

037040

gs.

737 050562

;

339

037040

1
1
1

1
}

037040

7 0014

0 gg 7 001420

JSR

ps a(sSP)+

JSR

PC,CMPERRSTS

137

010000

1
2

1444
1420

128%:

*ERROR # DEF INED BY SCHSTS SUBROUTINE

*G0 BACK FOR MORE ERROR CHECKS
:G0O TO 128 IF ERROR

;60
cue&( FOR CHANGES IN DRIVE STATUS
*G0 10 88 IF NO ERROR

*RETURN HERE IF ERROR

*ERROR # DEFINED BY STCDRVSTS SUBROUTINE

*GO BACK FOR MORE ERROR CHECKS
MASK FOR RMER1
:MASK FOR RMER2

;CHECK ANY ERRORS NOT MASKED
“G0 TO 98 IF NO ERROR
*RETURN HERE IF ERROR

155

260 TO 128 IF

r&acsm

*RETURN HERE IF ERROR
*ERROR # DEFINED BY SECERR SUBROUTINE
:G0 BACK FOR MORE ERROR CHECKS

cMP

INC

RMDAO

: INCREMENT SECTOR ADDRESS

BLOS

118

:NO = TEST NEXT SECTOR

BIT

A#FMT16,RMOFO

JWP

8NE
MOV
MOV

118:

:60 _TO sgmem

*RETURN WERE IF ERROR

.WORD IAE 'NDTMSK
.WORD
DPE

001444

:G0 TO 128 IF ERROR
;60 ven;rv SEARCH OPERATION

160 TO 128 IF ERROR

JSR

:G0 BACK FOR MORE ERROR CHECKS

P13

B8R
NOP
EMT
JSR

000100

1412

1 19
1
12737

PC.STCDRVSTS

)

000137

004737
044416
05
1
004

PS a(SP)+
12§

BR
NOP

240

137

13!
PC,SCHSTS

B8R
NOP
EMT

} 1

JSR
NP

737 060210

B8R

ENT

5835 036:

PC,a(SP)+

NOP

.
.

JSR

JMP
JSR

P&SECERR
1
1

RMDAD, #64 .
128
#FMT16,RMOFO
#31. ,RADAD

;60
cnesx FOR SECONDARY ERRORS
*G0 TO 108 IF NO ERROR
:G0 TO 128 IF ERROR

SDONE YET ?

;TEST FOR 16 BIT MODE YET ?

:BR IF YVES
:SET 16 BIT MODE
*SET INVALID SECTOR = 31.
:TEST NEXT SECTOR

52 AEARRAARAAAAARAARANARCIAANEAARARARARARAANVAARNARRCARARAAAAARACRY

S*TEST 63

SEARCH INVALID TRACK

ig;zgtit'.tttfitttttttl'tt"tt.'ttttttlt.ttt!t..tfitttt'tttittttt't

S'"

13707
12737

1190

001566
“3 001226 -

7 041532

835893 82230

SCOPE
NOP
MOV

MOV
JSR

#STACK 3?

fim
n;?%ésm
PC.TSTPRP

. WORD o§l1§o

:SCOPE CALL
*START OF TEST
SINITIALIZE STACK POINTER

S
N EVIcE
RRTAG
TESTED
+:SET TEST
NUMBER
IN APT
MAIL BOX
:

:PREPARE DEVICE FOR TEST

STASK DESCRIPTOR AS FOLLOWS:

CZRNDAC RM80 FCTNL PTI MACRO v04.00 28-JAN-82 16:24:51 PAGE 13-79

163

SEQ 0163

SEARCH INVALID TRACK

s CLEAR CN ROLLER & SELECT DEVICE

SVERIFY
CONTROL LER CLEAR OPERATION
:PACK ACKNOWLEDGE IF VOLUME NOT VALID

’g
-

NNNNN

g NN

b mdet e

CO=000

T cmls
b b

—

b
b
b

JMP
MoV
MOV
MOV
INCB
MOV
MOV

118
60 TO 118 IF ERROR
#SEARCH!GO,RMCS10
- SEARCH COMMAND
#0,RMDCO
sCYLINDER= 0
LSTRK,RMDAO
*LAST TRACK, SECTOR = 0
RMDAO*1
*SETUP FIRST INVALID TRACK
SFMT16,
*SET 16 BIT FORMAT
SPUTINX u
*WRITE REGISTER INDEX TABLE

gg';

037420
043016

037420
043370
042546

037420

037420
056624

043564

037420

TO 1$ IF NO ERROR

nsr"sglgoeavmrsrm SUBROUT INE

ARMDA, (R2)+
#RMDC.(R2)+

MOVB

(I )+

JSR

PC. strsrs

MOVB
MOVB

:G0

'PIP'* IS SET

MOVE

”

*RECALIBRATE IF ‘'SKI'" OR
.vm Y RECALIBRATION

B8R

MOVEB

§-.-.-A-n-.

COOOVOOOOOOOOOOOOOVOODIOCOCOOOOD
OCOO00OVCOOOOOOVO0OOCO

e
R

b e

d md med o

vuwuu-as“ NOWnS W

.vm Y PACK ACKNOWLEDGE .

%umo

;TERMINATE TABLE

JSR
B8R
NOP
EMT
JNP
JSR
BR

gg.cum.a
11$
PC,PUT
4

:G0 ISSUE
CONTROLLER CLEAR
:60 TO 38 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR
R DEFINED BY SUBROUTINE
260 TC 118 IF ERROR
;60 WRITE REGISTER(S) WITH PUT SUBROUTINE
260 TO 4$ IF NO ERROR

JMP
JSR
JSR
8R

118
PC, TIMOUT
Pg.GET
5

260 TO 113 IF ERROR
:WAIT FOR GO TO RESET
:60 RE nes:srms) WITH GET SUBROUTINE
260 TO
F NO ERROR

e"?u'r'

g
JWP

JSR
BR
NOP
EMT
JSR
NP
JSR
BR
NOP
ENT
JSR
JMP

118

PC.PRIERR
6$
PC,a(SP)+
1$
;;.scnsrs
Ps a(sP)+
11§

'25:0 'o’%’e‘sxv‘eoeavnm SUBROUT INE

”'Wofiafmoavucer SUBROUT INE
16011351r
T0
ERROR

:GO CMECK FOR PRIMARY ERRORS
*GO TO 68 IF NO ERROR
SRETURN HERE IF ERROR
*ERROR # DEFINED BY PRIERR SUBROUTINE
+G0 BACK FOR MORE ERROR CHECKS
:6G0 TO 118 IF ERROR
:G0 VERIFY SEARCH OPERATION
26O TO 7S IF NO ERROR
*RETURN MERE IF ERROR
*ERROR # DEFINED BY SCHSTS SUBROUTINE
*G0 BACK FOR MORE ERROR CHECKS
:G0 TO 118 IF ERROR

| CZRNDAD RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-80
163

113

SEQ 0164

SEARCH INVALID TRACK

7%:

060210

o (1

037420

141

??;;zz

050562

169
i S
i

JSR

PC,CMPERRSTS

;CHECK ANY ERRORS NOT MASKED

"WORD

DPE

:MASK FOR

.WORD

B8R
NOP
EMT
JSR

037420

7 044416

3
40

PC,a(SP)+

;60 CHECK FOR CHANGES IN DRIVE STATUS
:60 TO
ar NO ERROR
SRETURN HERE IF ERROR
RROR # DEFINED BY STCDRVSTS SUBROUTINE
*G0 BACK FOR MORE ERROR CHECKS

JMP

8
4

214
216§

JSR
B8R
NOP
EMT
JSR

i 037420
1 ;%7 001421
001421 000200
s 037176

11$

NDTMSK!IAE

PC,A(SP)+
11$

:GO TO 118 IF ERROR

:MASK FOR RMER1
RMER2

:G0 T0 98 IF NO ERROR
*RETURN HWERE IF ERROR
*ERROR # DEFINED BY CMPERRSTS SUBROUTINE
*GO BACK FOR MORE ERROR CHECKS
*GO TO 118 IF ERROR

JSR
B8R
NOP
EMT
JSR
JMP

98 SECERR
10§
11$

:GO CHECK FOR SECONDARY ERRORS
:G0 TO 108 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY SECERR SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
:G0 TO 118 IF ERROR

INCB
CMPB

RMDAO*1
RMDAD+1,#128.

: INCREMENT TRACK ADDRESS
:DONE ALL TRACKS

BHI
JNP

118:

150
151

;g.srconvsrs

PC,a(SP)+
118
2s

:BR IF YES
STEST NEXT TRACK

22 ARARARARAAARAAAAANARARARACRRAEAAAARAAARAAAARARAARRAAAAARAAANASACENS

S*TEST 64

SEARCH INVALID CYLINDER

ig;att.ltttttttttttt.'i"'t.'.ttttttttttt..ttllttttttltt?t.ttttt

§ 74

426
4

§ 74

76440

01
1

012

74
74

001226

a8
SR
~NNSN

vad
el el

[=1wT-]

258

el o

=B o

QSR

rh
=

041532

LWORD

037774

SCOPE

NOP
MOV
MOV
MOV
MOV
JSR

146§
141

142

B8R
NOP
EMT
JMP
MOV
MOV
MOV

:SCOPE CALL

#STACK
$BASE
TsTouE
,R1
#64,STESTN
Pg r%m
0541

SSTART OF TEST
:INITIALIZE STACK POINTER
;RO = UNIBUS ADDRESS
*(R1) = DEVICE BEING TESTED
::SET TEST NUMBER IN APT MAIL BOX
:PREPARE DEVICE FOR TEST
STASK DESCRIPTOR AS FOLLOWS:

*CLEAR
CONTROLLER & SELECT DEVICE
*VERIFY CONTROLLER CLEAR OPERATION
:PACK ACKNOWLEDGE IF VOLUME NOT VALID
VERIFY PACK ACKNOWLEDGE
SRECALIBRATE IF
‘ SKI'" OR 'PIP'* IS SET
*VERIFY RECALIBRATION

*G0 TO 1S IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # gemso BY TSTPRP SUBROUTINE
118
:GO TO 11$ IF ERROR
:gmcmso RMCS10
-SEARCH COMMAND
#561. RMDCO - :START AT FIRST xmm.so CYLINDER
#0,RMDAO
:TRACK = 0, SECTOR =

1 MACRO V04.00 28-JAN-C. 16:24:51 PAGE 13-81

SEQ@ 0165

MOVB

#RMOF,(R2)+

MOVB

#RMDA. (R2)+

N3
JSR

11§
PC,CMPERRSTS

“

mm =

2
Bfl
=

TCDRVSTS SUBROUT INE
RROR CHECKS
w

QMM

#.-'G
a

]

2255

PC,a(SP)+

MHANGES IN DRIVE STATUS
e

f's'lrt

RROR

;g.srmvsts

DEF INED BY SCHSTS SUBROUTINE
CHECKS

["
il

JSR

BR
NOP

PC,a(SP)+
11§

pry

Sgltl
JMP

—-% =

037774
050562

BR
NOP

14
l;g.scusrs

P-4

PC,a(SP)+

JP
JSR

-g

037774
060210

”

037774
056624

5’3

NOP

m288

11$
PC.PRIERR
6%

gzss
S3 88 §388 8'§
se2 88=ii gSS

242
5%

JMP
JSR
B8R

NOP
EMT

LA
TE TR TR ]

118
PC,TIMOUT
PC,GET
58

e %

':QW HRSER IF_ERROR
DEF INED BY SUBROUTINE
260 T0 Wsllxir ERROR

JMP
JSR
JSR
B8R

NOP
EMT

IF NO ERROR

:60_T0

Ve %0 %

11$
PC,PUT
13

;60 lSS% CONTROLLER CLEAR

TR IR TR TR 1)

037774
043564

JMP
JSR
B8R

sSETUP STATUS FETCH

037774
043370
0462546

si,(R2)+
(R2)+
PC,GETSTS
PC,CNTCLR
3s
#20 ,

TR IR T

037774
0430?

NOP
EMT

SRMDC.(R2)+

MOVS
MOVB
JSR
JSR
B8R

sSET 16 BIT FORMAT
JWRITE REGISTER INDEX TABLE

MOVB

#FNT16,
RNOFO
#PUTINX R

MOV
MOV

2BEXER222L

J 13

D CYLINDER

e
R e Y S Gy gy

CZRNDAO RMBO FCT
T
SEARCH 1

LWORD IAE INDTMSK
.WORD

B8R

NOP
EMT

JSR

DPE

PC.a(SP)+

CMPERRSTS SUBROUT INE
HECKS

CZRNDAO RM8O FCTNL P11 MACRO ¥04.00 28-JAN-82 16:24:51 PAGE 13-82
T

SEQ 0166 |

SEARCH INVALID CYLINDER

;

’

000137 037774

§1a

737 044416
05
%0

o
185
}

037774
;37
1446

133

;90

001446

037552

002000

JSR

118

260 TO 118 IF ERROR

10§

98 SECERR

.so cuscx roa seconom ERRORS

BR
NOP
EMT
JSR
JMP
INC

PC,a(SP)+
11$
RMDCO

0 108IF NO ERROR
neruau me IF_ERROR
*ERROR # DEFINED BY SECERR SUBROUTINE
60 BACK FOR MORE ERROR CHECKS
:G0 TO 118 IF ERROR
:INCREMENT CYLINDER ADDRESS

JMP

-.:rssr NEXT INVALID CYLINDER

acms

118:

2191

JNP

mco.nozt..

aa” me.scvuuoens ?

tttttttttt..tttttttit"tttttfitttttttttt.ttttttttt.ttt.ttt.ttttt

LATEST 65

IVC SEARCH TEST

ftz;..tttttl.tttt.ttt"'tt'.t..fit.ttlt.tttt.ttlttttt'ttttttttttt

§T65:

NOP
MOV
MOV

001160
001276

001466
000065 001226
041532

5193 “8352

040026

MOV
MOV
JSR

.WORD

:SCOPE CALL

csucx 3»
E.R

rsrogt
rtsm
Pg r;mp
§

*START OF TEST
:INITIALIZE STACK POINTER
*RO = UNIBUS ADDRESS

:(R1) = DEVICE BEING TESTED
::SET TEST NUMBER IN APT MAIL BOX
:PREPARE DEVICE FOR TEST
*TASK DESCRIPTOR AS FOLLOWS:

:CLEAR CONTROLLER © SELECT DEVICE
-veam CONTROLLER CLEAR OPERATION

ACKNOWLEDGE IF VOLUME NOT VALID

.mm PACK Acwgoss Lo
*RECALIBRATE IF

04
40

3195

112737
112737

133
13 )

]

12737
7
24

001545
881566
1436

12737
12737

381436
w.s

12737

001412

1573
1

1
127,
127

001424

BR
NOP
EMT
JMP

MOV8
MOVB
MOV
JSR
BR
NOP
EMT
JMP

1$
8s

"z'o?
#200,PUTINX+1
#
PC,PUT

sSETUP
PUT INDEX TABLE
:SET TERMINATOR BYTE

MOV

#SEARCH! ancsw

MOVB

SRMAR1, (R2) +
#RMDC, (R2)+

MOV

MOVB

#PUTINX.R

#RMDA, (R2)+

IS SET

*SET RMMRT OUTPUT BUFFER = DMD
:GO WRITE RMMR1 VIA PUT SUBROUTINE
:GD TO 28 IF NO ERROR
*RETURN HERE IF ERROR
:ERROR
DEFINED BY PUT SUBROUTINE
:6G0 TO 88 IF ERROR

#0.RMAR10
~RMDCO

-RROF0

‘PIP'*

:G0 TO 18 IF NO ERROR
:RETURN HERE IF ERROR
“ERROR # DEFINED BY TSTPRP SUBROUTINE
:G0 TO 88 IF ERROR

MOV
MOV

Hov

‘'SKI'* OR

*VERIFY RECALIBRATION

sRESET
DIAGNOSTIC MODE
*CYLINDER

B roRmaye Ok = O

:SEARCH COMMAND

;LOAD INDEX TABLE

L 13

MACRO V04.00 28~JAN-82 16:24:51 PAGE 13-83

SEQ 0167

+
#RMOF , (R2)

si (nz)o
(R2)

rc strsrs
PC.PUT

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE

;60 _TO 3$ IF NO ERROR

sRETURN HERE IF ERROR

:ERROR # DEFINED BY PUT SUBROUTINE

040354

043370

PC,TIMOUT

sWAIT FOR GO TO RESET

042546

PC.GET
4%

:GO READ REGISTER(S) WITH GET SUBROUTINE

:ERROR # DEFI'&D 8y GET SUBROUT INE
:GO TO 88 IF ERROR

;60 CHES
FOR PRIMRY ERRORS
260 T0 58 1

PC,PRIERR

sRETURN HERE IF zm

:ERROR # DEFINED BY PRIERR SUBROUTINE

PC.3(SP)+
8‘

#1vC
QSGDDAT

'EXPECTED STATUS
:RECEIVED STATUS.

R21,$BDDAT

NDTMSK

m®D

;gcsore

YES!!

040354

044416

PC.8(SP)+

7$:

PC,SECERR
8s
.

PC.a(SP)+

Enngns NOT MASKED

EF1

RROR
D BY CMPERRSTS SUBROUTINE
ERROR CHECKS

ECONDARY ERRORS
ERROR
ERROR
INED BY SECERR_ SUBROUTINE
E ERROR CHECKS

SRRARAARRARANAAAAAAARAARAARARARCAAAAARARAARAAAAAAAAARNAAAAAOACACAY

'TEST 66

ABORT SEARCH TEST

IRARRARRAAAN A EAARAAAAEAENAARAARAAAAAAAAAARARARAAAAARAAAAARAAAOCRCEY

832

28838

t5766:
JrurQur Quurd

:DID Ivec SET??

0‘51 VC,$BDDAT

3
54

KRERRRR

fiVC-RMER2]

PC,CMPERRSTS

E’i?‘%i

;GO TO 88 IF ERROR

001140
1142
1142

:60 BACK FOR MORE ERROR CHECKS

g &es

001400

5%:

8 2248 83
=
e
o
=
a3 22(=]
xn
R gns
=] z
G a§§s
M
=N
i
] MW,
2 58
&%
&3 w

4$:

043564

:GO_TO 4$ IF NO ERROR

sRETURN HERE IF ERROR

B0 %0 %0 %% % % Ve

040354

;GO TO 88 IF ERROR

SCOPE
NOP
MoV
MOV
MoV

TSTQUE ,R1

sSCOPE CALL

;START OF TEST
:INITIALIZE STACK POINTER
:RO = UNIBUS ADDRESS

:(R1) = DEVICE BEING TESTED

CZRNDAO RM80 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-84

166

" 13

SEQ 0168

ABORT SEARCH TEST

g 040376 012737 000066 001226
2232 0460402
737 041532

MoV
JSR

040406 %1%0

ol.oug
040412
040414
533 83&1
04
235 ¢
‘8244
A
. gz
39
40
41
4.;
4
76
44 046050
45 0405
32051
14
16

5529
23

50
g

009404
000240
104
000137
012737
0
012737
12737
127 5
1127
11
1127
11
112722
7
737
04
000240
1
137

062462

043016

020000 001350
1

043370

5560

1140

mg
114

043564

;GO
READ REGISTER(S) WITH GET SUBROUTINE
:GO TO 38 iF NO ERROR

‘25&0‘%"#HS'E‘EDIJEDEBYIEGET SUBROUT INE

#PIP.RMDS]

BEQ
MOV
MOV

4$
#0,S$GDDAT
RMDSI,$BDDAT

EMT

261

BIC

JMP

BIT

#~CP15,$BDDAT

JSR

PC.TIMOUT

JSR

EMT

PC,GET

JMP

BR
NOP

JSR
EMT

*TASK DESCRIPTOR Ai FOLLOWS:

:G0 TO 1S IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY TSTPRP SUBROUTINE
9s
*G0 TO 9% IF ERROR
#UNS ,RMER10
:SET UNSAFE ERROR
#SEARCH'GO,RMCS10
:SEARCH COMMAND
#0.RMDCO
:CYLINDER 0
-RMDAO
sSECTOR = 0, TRACK = 0
#PUTINX ,R2
*WRITE REGISTER INDEX TABLE
#RMDC,(R2)+
#RMDA.(R2)+
#RMER1, (R2)+
'"335' (R2) +
#200,
(R2)+
:TERMINATE TABLE
PC,GETSTS
*SETUP FOR STATUS
PC.PUT
*G0 WRITE REGISTER(S) WITH PUT SUBROUTINE
2
260 TO 28 IF NO ERROR
:RETURN HERE IF ERROR
:ERROR # DEFINED BY PUT SUBROUTINE
9s
*GO TO 98 IF ERROR

PC,GET
3s

PC,PRIERR

::SET TEST NUMBER IN APT MAIL BOX
:PREPARE DEVICE FOR TEST
sCLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE
JRECALIBRATE IF *'SKI'* OR 'PIP'" IS SET
sVERIFY RECALIBRATION

B8R

e"g?

3’

042546
040720

JSR

040720

042546

157

B8R
NOP
EMT
JMP
MoV
MOV
MOV
MOV
MOV
MOVBE
MOVEB
MOVB
MOVB
MOVB
JSR
JSR
BR
NOP
EMT
JMP

00154

.WORD ogltio

040720
04
00142
”2,“ oomg
001446
001420

040720

#66,STESTN
PC,TSTPRP

:GO TO 9% IF ERROR

;1S PIP SET??

*NO!!
*EXPECTED STATUS
:RECEIVED STATUS

;WAIT FOR GO TO RESET

;GO READ REGISTER(S) WITH GET SUBROUTINE
260 TO S8 IF NO ERROR
:
*RETURN HERE IF ERROR
*ERROR # DEFINED BY GET SUBROUTINE

*G0 TO 98 IF ERROR

;G0 CHECK FOR PRIMARY ERRORS
*G0 TO 68 IF NO ERROR
*RETURN HERE IF ERROR

*ERROR # DEFINED BY PRIERR SUBROUTINE

CZRNDAQ RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-85

166

N13

SEQ 0169

ABORT SEARCH TEST

04063 B0673% 040720
58 &
7 060210

JSR
JMP

PC,a(SP)+

:GO BACK _FOR MORE ERROR CHECKS

;60 TO 98 IF ERROR

PC,STCDRVSTS

PC,a(SP)+

040720

78:

050562

RROR CHECKS

CMPERRSTS

gofK IUNS
13

OR
Y CMPERRSTS SUBROUTINE
ERROR CHECKS

PC.,a(SP)+

040720

044416

PC,SECERR

:G0 CHECK
HR()

FOR SECONDARY ERRORS
IF NO ERROR

:RETURN HERE IF ERROR

sERROR # DEFINED BY SECERR SUBROUTINE

PC,a(SP)+

:6G0 BACK FOR MORE ERROR CHECKS

SRR RRAARARAAAAARARAAREAA
AR AAARAAARRANRARARANARARAAARARARAASAAARY

tTEST 67

SEARCH AT OFFSET

SRERRARRRRAAAAAAAAAARACAARAANRANAARAAARAAAARAAARAAAAAAARAARAEAARAL

té167:

001226

SCOPE

NOP
MoV
MOV
MOV
MOV

JSR

sSCOPE CALL

:START OF TEST

sINITIALIZE STACKEI;OINTER

STACK

$BASE
,R

sRO
= UNIBUS ADDRESS

rsrwé R1

'(M) = DEVICE BEING TESTED

#67,STESTN

...SET TEST NUMBER IN APT MAIL BOX

sPREPARE DEVICE FOR TEST

sPACK ACKNOWLE

F_VOLUME NOT VALID

:VERIFY ‘PACK ACKNOWL

SRECALIBRATE IF 'sxx OR 'PIP' IS SET
SVERIFY RECALIBRATI
260 TO 1S IF NO E
*RETURN MERE IF E
*ERROR # DEFINED BY TSTPRP SUBROUTINE
260 T0 98 IF E

LRMDCO

RMDAO

#FAT16 RMOFQ

mrszf

= 0
:CYLINDER
*TRACK = 0, SECTOR = 0

216 BIT FORMAT

LRMCS1 0
:OFFSET COMMAND
:SETUP REGISTER INDEX TABLE

#RMDC,
(RS)*

*FOR SEEK TO CYLINDER 0

043016

ONN
FORNSERVRFNSERS RREXNN
SNNOONS
SO

i ol o e o oz o s

D vand b mood s el wad ok vod emd e med 7D 2 d nd cod sod wmd i e cmd i wmmd and o b
D ed i et b e e o e e e e} wnd ed

D ed oD end cwd oD ved D

2B BRRE

228

&
33

5368

041256

84537
0092900

3s:

JSR

PC,GETSTS
PC,TIMOUT

sSETUP FOR STATUS FETCH

#RMCS1,PUTINX
#200,PUTINX+1

;LOAD REGISTER INDEX TABLE

2E.PUT

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

;GO TO 98 IF ERROR

JSR

4$:

042546

041256
043564

041256

056624

041256
050562

041256

044416

28
9s

:G0 WRITE REGISTER(S) WITH PUT SUBROUTINE
IF NO ERROR
;G0 T0
sRETURN HERE IF ERROR
sERROR # DEFINED BY PUT SUBROUTINE

;60 TO 98 IF ERROR

#SEARCH!GO,RMCS1 0

043370

SEQ 0170

s,
.
3535,(§z)
PC,PUT

043016

041256

B 1s

MOVB
MOVB
MOvBe
JSR
BR
NOP
EMT
JMP

PC.GET

;GO READ REGISTER(S) WITH GET SUBROUTINE

PC,PRIERR

PC,a(SP)+

6$:

7$:

:G0_TO 4$ _IF NO ERROR
+RETURN HERE IF ERROR
sERROR # DEFINED BY PUT SUBROUTINE
sWAIT FOR SEARCH TO COMPLETE

5$:

; STORE SEARCH COMMAND

PC, TIMOUT

§3§§§ L

000404

g2g® g 3g3

1
11

«m

RRRRRRRRRRRRRR RRRRRRRRRRRRRRRRRRRRRR
el e D e d =D oD md D d d d d

SR2S

§§

PSR

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-86
167
SEARCH AT OFFSET

;G0 TO 58 IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEFINED BY GET SUBROUTINE
;G0 TO 95 IF ERROR

:G0 CHECK FOR PRIMARY ERRORS
260 TO 6$ IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEFINED BY PRIERR SUBROUTINE
+G0 BACK FOR MORE ERROR CKECKS
;GO TO 98 IF ERROR

;G0 VERIFY SEARCH OPERATION
:60 TO 7$ IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEFINED BY SCHSTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS
:G0 TO 98 IF ERROR

PC,CMPERRSTS

sCHECK ANY ERRORS NOT MASKED

PC,SCHSTS

PC,a(SP)+

ND TMSK
DPE
8s

PC,a(SP)+
98

:MASK FOR RMER1
sMASK FOR RMER2
;GO _TO 88 IF NO ERROR
sRETURN HERE IF ERROR

cERROR # DEFINED BY CMPERRSTS SUBROUTINE
;G0 BACK F?IF! MORE ERROR CHECKS

PC,SECERR

PC.a(SP)+

BY SECERR SUBRGUTINE
ERROR CHECKS

[

RNDAO RM80 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-87
7
SEARCH AT OFFSET

2304 041256

9s:

SEQ 0171

CZRNDAO RMB0 FCTML PT1 MACRO v04.00 28-JAN-82 16:24:51 PAGE 14
END OF SUB-PASS ROUTINE
1

.SBTTL

SEQ 0172

END OF SUB-PASS ROUTINE

sTHIS IS THE END OF SUB-PASS ROUTINE. THIS ROUTINE IS USED TO

:TERMINATE THE OPERATION OF THE CURRENT DEVICE UNDER TEST AND

sSELECT THE NEXT DEVICE FOR TEST. IF THERE ARE NO MORE DEVICES

g
5
9 041256 000004

10 041260
]'1 0’0} 62

;40
01 A

14 821 7

18 041573 03

16 041300
19 041

18
19

:T0 TEST, EXIT IS MADE TO ‘SEOP® ROUTINE. OTHERWISE, RETURN
:1S MADE TO "READY' ROUTINE.
SEOSP:

Q00137 007574
012737 001470 001466 18:

.SBTTL
F

'S‘F”QPE
MOV
ADD
MoV

TSTQUE RO
#2,R0
RO, TSTQUE

JMP

READY
;YES, JUMP TO °READY' ROUTINE
JTSTQUEOZ.TSTOUE
s INITIALIZE POINTER TO FIRST DEVICE IN

1ST
BEQ

MoV

(RO)
1$

sGET POINTER TO TSTQUE
sADJUST POINTER TO NEXT DEVICE
sSAVE POINTER TO TSTQUE

:ANY MORE DEVICES FOR TEST ?
:BR_IF NO

:TEST QUE TABLE

END OF PASS ROUTINE

bbb dododebbntodedobobebobobodetetodeBodododedetobodobndebedeabedd
A A L S L S22 2 S 2 22222 2 2222 2 2 22224

"INCRE.KNT THE PASS NUMBER (SPASS)
s*TYPE

"END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT YYYYY'

$*WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS
:«IF THERES A MONITOR GO TO IT
:#1F THERE ISN'T JUMP TO READY

401

B 001126

104405

i
s

INC
eIc

DEC
SEOPCT: .WORD

041422

013746

001126

003087 001126

658:
us:

STSTNM
STIMES

SPAsa
n

::ZERO THE TEST NUMBER
+sZERO THE NUMBER OF ITERATIONS

$PASS

+INCREMENT THE PASS NUMBER
..DON'T ALLOW A NEG. NUMBER
s :LO0P?

BGT

$DOAGN

TYPE

653

.ASCIZ

<12><15>/euo PASS’ #7

MoV
TYPDS
ST
BEQ
TYPE
B8R

$PASS,~(SP)
SERTTL
$GT42P
67$
663

::SAVE SPASS FOR TYPEOUT
::TYPE PASS NUMBER
*GO TYPE=--DECIMAL ASCII WITH SIGN
..ses IF ANY ERRORS THIS PASS
::BR IF NO ERRORS TO REPORT
:.-m'e ASCIZ STRING
OVER THE ASC!Z

MoV
TYPDS

SERTTL,=(SP)
-

;:SAVE SERTTL FOR TYPEOUT
*TOTAL NUMBER OF ERRORS
*3GO TYPE=--DECIMAL ASCII WITH SIGN

- MOV
SENDCT: .WORD
SEOPCT

488 013746 001230

001230

faer

404

CLR
CLR

$888

SOOI

RR ER RRERR ERX RRRRRERERRRERR
iS
NS (33

—d
b d

$EOP:

(PC)+,a(PC)+
1

ssYES

s sRESTORE COUNTER

--TYPE ASCIZ STRING

*GET OVER THE ASCIZ

33',27“ LASCIZ / TOTAL ERRORS §1nce LAST REPORT/
CLR

SERTTL

s:CLEAR ERROR TOTAL

CZRNDAO RMBO FCINL PT1 MACRO VO04.00 28-JAN-82 16:24:51 PAGE 14~1

E 16

SEQ 0173

END OF PASS ROJT

147

$GT42P: TYPE

321

$GET42: MOV

061
821 1
151
8215"'
1;
821
15
0415
0091 7
041526
041526

007574
377

BEQ
RESET
SENDAD: JSR
NOP
NOP
NOP
$DOAGN:
JMP
377

000

SRTNAD: .WORD
SENULL: .BYIE

.EVEN

SCRLF

iofz RO

$DOAGN
PC. (RO)

a(PC)+

READY
=1,-1,0

::TYPE CARRIAGE RETURN, LINE FEED

*:GET MONITOR ADDRESS

¥
H IF NO MONITOR
::CLEAR THE WORLD
*:G0 TO MONITOR
+:SAVE ROOM
+:FOR
S:ACTI
: sRETURN
::NULL CHARACTER STRING

F 16

CINL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 15
.SBTTL

SEQ 0174

TEST PREPARATION MODULE

THIS noou.e PREPARES THE SUBSYSTEM FOR THE EXECUTION OF A TEST,

REPORTING AN ERROR TO THE USER IF AN ERROR IS

DETECTED.

SPECIFIES TASKS TO BE PERFORMED, WHICH THE MODULE EXECUTES
USING SUBROUTINES.

sCALL:

JSR

ERROR

e e

.WORD

e e

b e

NOP

—

:
:

RN TR IN

AIRINININIAIN

NNNNNN

:
:

TASK/VERIFY DESCRIPTOR

RETURN HERE IF NO ERROR
RETURN HERE IF ERROR

TASK/VERIFY DESCRIPTOR

ERROR DEF INED BY MODULE

BIT15 =1

SELECT DEVICE AND VERIFY DEVICE IS AVAILABLE

BIT 14 = 1

CLEAR CONTROLLER AND SELECT DEVICE

BIT 13
BIT12=1

PACK ACKNOWLEDGE IF VOLUME NOT VALID

BIT 11 = 1

RECALIBRATE IF POSITIONING IN PROGRESS OR SKI ERROR

" BIT10 =1
BIT 9

(RESERVED FOR DRIVE CLEAR)

RECALIBRATE DRIVE

BIT ;

BIT
BIT6

:
:

BIT S

:
:

BIT4
BIT3

VERIFY CONTROLLER CLEAR OPERATION

=1
=1

VERIFY PACK ACKNOWLEDGE
VERIFY RECALIBRATION

(RESERVED FOR DRIVE CLEAR)

8IT 2

BIT 1
BIT 0

:
3

TSTPRP:

v 3£§§

B RS e R N S A SR L S PR IS R

PC.TSTPRP

THE USER

7%;

042462

062456

;STORE TASK DESCRIPTOR AND CLEAR USER'S ERROR CALL

MOV
ADD
CLRB
suB
JSR
JSR
BR

a(sP), 398
#6,(SP)
a($P)
#6,(SP)
PC.GETSTS
PC,GET
2

1s:

.WORD

ADD
%\(a

28:

MoV

RMER21 ,40$

162 16

043546

1 779

00013

1570
2446

000000

013737

001400

042460

#4,(SP)
; z.a(sn

:STORE DESCRIPTOR
*MOVE SP TO USERS ERROR CALL
*CLEAR ERROR CALL
IMOVE SP TO NO ERROR RETURN
;SETUP TO READ ALL REGISTERS
*GET RMER2
*BR IF NO ERROR DETECTED

*GET OVER ERROR NUMBER

:ERROR DEFINED BY GET SUBROUTINE

*XFER ERROR TO USER AND
*GET ERROR NUMBER.

sGET RMER2 AND SAVE FOR LATER

o ARRARARAAAAAAAAAAAAAAACRAPARARAAAAAARANAAAAACRAAAAAAAAARARANSARS

RRRRRRI !R

S S R R R R R R B IV NN AN NITEAR SRR 22 35

CTNL PT1 MACRO V04.00 28~JAN-82 16:24:51 PAGE 15-1

083537
100014

062456

737

050774

9 82??26622 000000

38:

NaR R
—t

onNO

ERRERER
RER
bt
-l
b )

398
L%

sSELECT DEVICE??
:NO!!

JSR

PC,DEVSEL

:G0 SELECT DEVICE

sERROR NUMBER FROM DEVSEL

WORD

AD|

MOVB
JMP

SRR

#4,(SP)

g;;Z.G(SP)

sNO ERROR = CONTINUE

s TRANSFER ERROR TO USER

R RARRARAARATAA AR AT AAAAAAARAAAAAAAAAARAIAAAARARAA
AR AN

‘ggw CONTROLLER IF BIT 14 IS SET IN TASK

332737 040000 042456

1451
737 052466
3}

16
11377 04,”1”292
000137 042446

000000

BIT

:gxm.m

:CLEAR CONTROLLER??

*CONTINUE = NO ERROR

BEQ
JSR
58:

6s:

LWORD

ADD
MOVB
JMP

138
PC,CNTCLR
0

#6,(SP)
$.a(SP)
7§

*NO!!
;60 CLEAR CONTROLLER

:ERROR NUMBER FROM CNTCLR

*TRANSFER ERROR TO USER

8327 7 000100 042456
1431

8IT
BEQ

0462546

%gaxrv CONTROLLER CLEAR IF BIT6 SET IN TASK

13
737
1;

82”1"7’92 000000
2646

052604

%16.393
1

:VERIFY??
*NO!!

JSR
| g

PC,GET
108

:60 GET STATUS
:NO ERROR GETTING STATUS

g‘

ADD
MOVB

2!. (SP)
‘a(SP)

:;mrggognggqgcug{aws
g

108:

JSR
g.s

PC,CLRSTS
}

:60 VERIFY STATUS CLEAR
*NO ERROR IN CLEAR

.WORD

;ERROR IN STATUS CLEAR

JMP

R:uii\rHPO

~N <~

\'d
&~

au:

oo e

e o

;;tt'ttttttt!t'tttttttttttttttttttttttttttttttttttttttttttttttttt

RRRRERRR RRRRRRR KRR

SR R

11$:

e
o
o

D e wncd rd wad mach e amd

TST
BPL
g

716
779
13

128:

1764

2446

000000

1ST
ADD
move
JNP

(SP)+
#4, (SP)
118.3(sP)
378

*STRIP RETURN ADDRESS TO
*SUBROUTINE AND TRANSFER
*ERROR TO USER
A

SAARARARRRARAAAAARARANAANAAEARAAAAARAAAAAAAAAAACARAAORAARAAARASRAAY

:EXECUTE PACK ACKNOWLEDGE IF BIT12 SET IN TASK AND VOLUME IS

358

md
e <
oed o T

kel
nd

SEQ 0175

sSELECT DEVICE AND VERIFY DEVICE AVAILABLE IF BIT 15 SET IN TASK

:NOT T VALID

8‘3’%737
5

010000

004737

042546

042456

i3s:

BIT
BEQ

?17’2.393
25%

JSR

PC,GET

sPACK ACKNOWLEDGE??
JNO!!

H %

CZRNDAO RMB0O FCTNL PHEMCRO V04.00 28-JAN-82 16:24:51 PAGE 15-2

SEQ@ 0176

TEST PREPARATION

}
‘; i

14$:
158:

82 446
000100

124

168:

;

1
1
1

043016

i
}

¢ soon

178:
188:

043370

198:

042110

135

‘%

BR
BR

123
158

:NO ERROR GETTING RMDS

.WORD
ADD

O
#6,(SP)

:TRANSFER ERROR TO USER

JNP
BIT

378
#VV.RMDSI

:1S VOLUME VALID??

MoV

#PAKACK
!
GO,RMCS10

.WORD
ADD

O
#6, (SP)

<ERROR FROM PUT SUB
s TRANSFER ERROR TO USER

PC,TIMOUT

sWAIT FOR COMMAND TO COMPLETE

move

MOVB
MOVB
JSR
BR
BR

MOVE
JSR

148.a(sP)

25s

SYES!!

mgssumlux
#200,PUTINX+1
PC, PUT
19$
188

ggg.a(sp)

:
:VERIFY PACK ACKNOWLEDGE
1
1
32737 000020 062456
BIT
Té,
}:’:? 8:5123 801427
16; 14
737 042546
JSR
PS‘GET

;LOAD PACK ACK COMMAND

:SETUP REGISTER INDEX TABLE
;60 WRITE COMMAND
:NO ERROR LOADING REGISTER

AR RARRARAARRAAAAANERARANANARARTARAAAAAARAANAAAARARACRAARAAARAAAOANSY

144

a§§§szi3
%
S

VININ

053464

§—l

[« Y=

FPRRRRRR

170
174
17

3$:

4$:

:60 GET STATUS
sNO ERROR GETTING STATUS

g‘ H

ADD

a WORD

#4,(SP)

3;ERROR

J SR

Pg ACKSTS

:60 CHECK ACKNOWLEDGE

ROV
&a

.WORD

ST
ADD

,"3"’

;gg.a(sm
‘i

(SP ¢+
¥, (SP)

;g.a(sn

FROM GET S uB

s TRANSFER ERROR TO USER
*NO ERROR

:PACK ACKNOWLEDGE ERROR

:STRIP RETURN TO SUB AND
:TRANSFER ERROR TO USER

:RECALIBRATE DRIVE IF BIT 11 IS SET IN TASK AND ''SKI'’ IS SET
sOR "PIP" 1S ACTIVE.

e e

égggulmrs DRIVE IF BIT 10 IS SET

032737

002000

042456

BB
souo 0462456
1505

B B e

228:

:'V‘gl‘qf Y PACK ACKNOWLEDGE??

P L
T
e

e o

XSTEVESRAR2BTEIFURRIN2S

g
49 8: 122 000529

%?gz

IF #81T4 SET IN TASK

8IT
“
BIT
BEQ

3‘710.393

JSR
BR

PS‘GET
2

%111,395

elvlsgfl.lWTE DRIVE ?
.
sRECALIBRATE??
JNO!!

;G0 GET RMDS
sNO ERROR GETTING RMDS

ADD

§4;g.(SP)
a(sn

28%:

BIT

%x.m

;WAS SKI SET ?

#PIP ,RMDS1

:1S PIP ACTIVE??

0462460

020000

001350

BIT
BEQ

141

MOV

001546

MOVB
JSR

Ologggb

308:

043370

31s:

=L ONNNN
~N

040000

?ei’: o=

€.

= 3
-

SkERS

aasd
Ry 33

gws

-t
O

oot ek

3N A

842236

SEQ@ 0177

388

mu%seo RMCS10

*YES,

GO RECALIBRATE

JNO!!

:LOAD RECALIBRATE COMMAND

#RMCST,PUTINX

;AND REGISTER INDEX

ps PUT

:G0 ISSUE RECALIBRATE

#200,PUTINX+1

#6, (SP)

*NO ERROR

;ERROR IN REGISTER TRANSFER

ggg-z.acsn

PC,TIMOUT

:SET TERMINAT

*TRANSFER ERROR TO USER

:WAIT FOR COMPLETION

3N S35 B

TM
G
.

054260

13,3

i
0

;;2.3(9)
(SP)

RCLSTS

0‘2482

*VERIFY RECALIBRATE ;r

0462546

062456

000010

s ¢ayaessy 8%
ol
.

oo
&~

N &K

AR ARRRRAAANARAAARANRRALTARAAAAAAAAAAAARANEAAAAAARAAAARAAARAAACOY

BREESNS

RRRRRRR RR

R RRRRRRRRRR RRPRR RRRRR

dual

§§

i
32
S3g8RoRENIEESRRRER
2B III NN

e ol i
D o
) ) el ol
b
b cnd d D cod e amd e
b
b cad b ad b

mn~
w

TNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 15-3

it
a(5P)
§§£
#2,(sP)
PC

T 3 SET IN TASK

sVERIFY RECALIBRATE??
:NO!!
:6G0 GET STATUS
sNO ERROR GETTING STATUS

sERROR FROM GEY
s TRANSFER ERROR TO USER

G0 CHECK RECALIBRATE

NO ERROR DURING RECALIBRATE

<ERROR DURING RECALIBRATE
sSTRIP RETURN TO SUB AND
s TRANSFER ERROR TO USER
sMOVE SP BACK BEFORE ERROR

sRETURN TO USER

s TASK/VERIFY DESCRIPTOR
;CONTAINS RMER

J 14

SEQ 0178

.SBTTL

GET STATUS SUBROUTINE

;THIS SUBROUTINE SETS UP THE ‘‘GET INDEX TABLE'' AND THE °'GE T
sBUFFER' FOR READING ALL SUBSYSTEM REGISTERS VIA THE GET §

UBROUTT INE

:AND THEN RETURNS TO THE USER.

GETSTS:

Qur Quur Quur Qs urd

SCALL:
:

PP G

RRY
§ ¥&~NIRR
¥ &~
N
nNOVIV
F S NTOAR
NSRS

SUBROUTINC

-‘-'8-'000000

—

AOQ RMCO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 16

SRVRRRURN
NS CRIG ARG Dom~ounswn— >
[=
RRRRRRRRRRRRRIARRRRRRR

2z
GE

28:

38:

48:

JSR
222

PC,GETSTS

MOV
MOV
MOV
MOV
MOV
MOV

RO,=(SP)
R1,=(SP)
R2,=(SP)
#GETINX,RO
#RMEC21+2,R1
#RMEC?2 R

::PUSH RO ON STACK
*:PUSH R1 ON STACK
+:PUSH R2 ON STACK
:RO = ADDRESS OF INDEX TABLE
:R1 = ADDRESS OF GET BUFFER
:R2 = REGISTER INDE

su8
BM]
cMP
BNE

c;.nz
4
#RMDB,R2
2s

*DECREMENT TO NEXT INDEX
*BRANCH OUT IF DONE
*DONT WRITE RMDB INDEX

MOV8

3309.( )+

MOVB
CLR

MOV
MoV
",.8,'
RTS

R2,(ROS+
=(R1)

=(R1)

(SP)+,R
(SP)+.R
(SP)+.RO

RETURN HERE

*WRITE REGISTER INDEX IN TABLE
:CLEAR CORRESPONDING LOCATION

:WRITE TERMINATOR

2:POP STACK INTO R2
$:POP STACK INTO R1
*:POP STACK INTO RO

«:57 PAGE 17

.SBTTL

GET SUBROUTINE

:THIS SUBROUTINE RE% ;'T.E
REGISTERS WHICH ARE LISTED IN THE

ORES THEIR VALUES
:"'GET_INDEX TABL ot
:LOCATION IN THE ''GET REGISTER BUFFER''. F

IN THE TABLE WILL CAUSE
TINE
;ENTRY OF
:READ
'RMBA"’ AND STORE ITS CWTENTS AT THE LOCATION
sREAD
sTHE BUFFER ASSIGNED TO THAT REGISTER.

H'IICH SHOULD FOLLOW THE LAST ENTRY.
swnou INE CALL:

¢s

s
?1)

“GET INDEX TABLE'' HAS BEEN LOADED WITH REGISTER INDEX

1)
:

"GET_INPUT BUFFER" IS AVAILABLE FOR USE. (NOTE THAT
UNUSED LOCATIONS, I.E.,ENTRIES IN BUFFER CORRESPONDING

:(3)
:
:
:
H

JSR
m
NOP
ERROR
mn

1
1
1
1

45
‘9

sTABLE MUST BE TERMINATED WITH A CONTROL BYT

"i
2‘

THE 'PE

:REGISTERS TO BE READ IS VARIABLE FROM 1 T0

1
}

40
A

SEQ@ 0179

VALUES AND TERMINATED WITH A CONTROL BYTE
TO REGISTERS NOT'READ, "ARE NOT CHANGED.)

6
?..

RETURN HERE IF NO ERROR FOUND
RETURN HERE IF ANY ERROR FOUND
SUB DEFINES ERROR NUMBER

sRO = REGISTER BASE ADDRESS

:R1= REGISTER ADDRESS
R = BUFFER BASE ADDRESS
= BUFFER ADDRESS

-nl. POINTER TO REGISTER INDEX
54.8

ooo;l.o

GET:

2 J0%0ve 900006
380 162916 000008

564 0
’98 010146
5
1 526
572 010346
574 010446
srg 13746
.
137
606 01
1276
01
001336
1
1;;3
12737
12737
16037
16037
: ; 004

1174 18:
1176
1176

97;5g 838004
000016
112 000016

105714

}11 ?
042701 177700

3s:

NOP

R
B

8D
Bese)

ADD
MOVB

(SP)
mz.amsn

HUTE ERROR NUMBER IN USER'S

(R4)

u‘gn

MOV
MOV
MOV
MOV
MOV
MOV.
MoV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
3,‘}
B8R

ISTB

&'"o\'rs
BIC

g
:

NNNNNNNNS OO NN AN = OO 00 O S NN =
WMOWW5W-0

94 RNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82
GE T SUBROUT INE

NUMBER IN USER'S

RO,=(SP)
R1,~(SP)
5.-(3?)
S=(SP)
Ré,=(SP)
ERAVEC,STAC
ERRVEC+2,=(SP)
::PUSH ERRVEC+2 ON STACK
SBASE,
R
TINX.R
ERRVEC
sSETUP FOR TIMEOUT
m&smec
gzs).GET 'NED'* STATUS
(RO)
1 ;GET "DVA'* STATUS
mA.sm
DgglCE AVAILABLE??
7$

?:‘w R?
#CI1DXMSK,R1

;ERROR CALL

R‘I = REGISTER ADDRESS
:CLEAR ANY SIGN EXTENSION

NDAQ_RM80 FCTNL PT1 MACRO VO04.00 28-JAN=82 16:24:51 PAGE 17-1

SEQ

SGBROUT INE
s§

71z

3‘5’

716

gg 32

?3 04

60 04
61 32
8
64
£5
66 04
67 04
!

82
04

1124

703

177700

1111
764

112776

162766
105714
10040
00 08

58:

888816
7
16
2 000016 78%:
8s:

&5&

830 1

012637
01 87
01
12603
12602

oooggg

ADD

RO,R1

:;c'xi XMSK,R3

(R4)+,R3

:R3 = STORAGE ADDRESS FOR REGISTER

MOV
BR

(R1), (R®)
3s

;READ REGISTER

ADD
MOVB
SUB
1ST8
BM]
CLR
MOVB
ADD

#4,16(SP)
#7.316(SP)
#2.16(SP)
(R)
9
R3
(R4)+.R3
R2,R3

*WRITE ERROR NUMBER IN

movB

cMP

CLR

%832

MOV
MOV

(SP)+,(SP)+

:CLEAR ANY SIGN EXTENSIOW

;RESTORE STACK

*USER'S ERROR CALL

:DONE CLEARING??

SYES!!
:CLEAR REMAINING STORAGE
sLOCATIONS

(R$)

MOV
MoV
MOV

(SP)+,ERRVEC+2
::POP STACK INTO ERRVEC+2
(SP)+.ERRVEC
::POP
STACK
INTO ERRVEC
(SP)+.Ré
+:POP STACK INTO Ré
(SP)+,R
2:POP STACK INTO R3
(SP)+.R
+:POP STACK INTO R2

RTS

*RETURN

0 0180

CZRNDAQ RM80 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 18

SEQ@ 0181

PUT SUBROUTINE

WNNNN-I—D-‘—!-'-&--G-!-I
O NOWVISWN =00 00 NN
NN = OO 00 0NN S NN =

.SBTTL

:THIS SUBROUTINE WRITES THE REGISTERS WHICH ARE LISTED IN THE

;*PUT_INDEX TABLE' WITH

THE CONTENTS OF THE CORRESPONDING

:LOCATION IN THE 'PUT REGISTER BUFFER'’, THE NUMBER OF
sREGISTERS WRITTEN IS VARIABLE; THE 5DEX TABLE MUST
:BE TERMINATED WITH A CONTROL BYTE (200) WHICH SHOULD
;FOLLOW THE LAST ENTRY.

SlBROUTINE CALL:
(D
H
:(2)

*PUT_INDEX TABLE'' HAS BEEN LOADED WITH INDEX VALUES
OF REGISTERS TO BE WRITTEN.
PUT REGISTER BUFFER CONTAINS CONTENTS OF EACH

JSR
BR
NOP
ERROR

PC;PUT

?2?7?

RETURN HERE IF NO ERROR FOUND
RETURN HERE IF ANY ERROR FOUND
SUB DEFINES ERROR NUMBER

= BUFFER BASE ADDRESS

ADDRESS
= BUFFER
= POINTER TO REGISTER INDEX

SRS

(- AV, N 1. 8

S388

PUT:

010

sttt

BRGNS

VESRIESRERE

PUT SUBROUTINE

000004

G01176 1$:

1176
1176

800112 800616

177700

000032

RO,=(SP)
::PUSH RO ON STACK
R1.=(SP)
$:PUSH R1 ON STACK
R2.=(SP)
$3PUSH R2 ON STACK
R3.=(SP)
*:PUSH R3 ON STACK
Ré.~(SP)
+:PUSH Ré ON STACK
ERRVEC,.~(SP)
::PUSH ERRVEC ON STACK
RRVEC+2,~(SP)
::PUSH ERRVEC+2 ON STACK
#PUTBUF ,R2
TINX.RG
#5S ,ERRVEC
;SETUP FOR TIMEOUT
snnvwz
RMCSS(RO),STMPQ ;GET 'NED'' STATUS
RMCST(RO) ;STMP1 :GET *DVA'* STATUS
ggwn.smi
ogvus AVAILABLE??
6(SP)
:WRITE ERROR NUMBER IN

;}i ,@16(SP)

:USER'S ERROR CALL

TST8

(R4)

oug'n

MOVB
%fi

(R4).R1
gac'xibxnsx.m

m = REGISTER ADDRESS
*CLEAR ANY SIGN EXTENSION

CMPB

(33)
(R1)
A#RMOF, (R&)

*WAS RMOF JUST LOADED ?

ggvs

38:
177700

NOP

MOV
MoV
MOV
MOV
MOV
MOV
MOV
MoV
MOV
MOV
MOV
MOV
MOV
E,’.{
ADD

8MI

MOVB
%g
MOV

(Rl) R3
m'x‘gxnsx.ns

:R3= STORAGE ADDRESS
*CLEAR ANY SIGN EXTENSION
:WRITE REGISTER

CZRNDAO RHOO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 18-1

SEQ 0182

PUT SUBROUT INE

% 43186
48:

;gra

524)0

766

5$:

CMP

(SP)+,(SP)+

.ADJUST STACK

#7.316(SP)

:USER'S ERROR CALL

00001

ADD

#4,16(SP)

MOV
MOV
MoV
MOV
MOV
MOV
MOV
RTS

(SP)+,ERRVEC+2
(SP)+,ERRVEC
(SP)+.R4
(SP)+.R3
(SP)+.R2
(SP)+,R1
(SP)+.RO
PC

MOVB

16 BIT FORMAT

x S SET.

;WRITE ERROR NUMBER IN

:POP STACK INTO ERRVEC+2

STAEK INTO ERRVEC

STACK
STACK
gucx
TACK
g TACK

2 000016 7s: SUB8 #2,16(SP)
7

12637
12637 ooooot.
1
1 g
1
12601
01
7

080734

00016

TOENSURE

*1S SET BEFORE ''SSEI

$33333

*ADJUST REGISTER POINTE

WRITE RMOF AGAIN,

:BR %r NO

P
o

82;1;2
35

INTO Ré&
INTO R
INTO R
INTO R1
INTO RO

MACRO V04.00 28-JAN-82 16:24:51 PAGE 19
.SBTTL

d wnd d ek

D ek o

d e

ONOWVS
NN = OV~ NS

SIZCLK:

1
;43
7254
106
146

1514

1512

MoV
MOV

MOV
MOV
ntug\rf

ERRVEC ,=(SP)
emvsm -(sm

2s:
000002 000004 000006
:
000004

MOV
MOV
gr

cMP
ADD
MOV
ggg

::PUSH emvsc ON STACK

mvec+2 ON STACK

:SET UP FOR BUS TIMEOUT

méemvecoz
#177546, CLKADR :LOAD ADDRESSES FOR KW11-L
noo
cu%vcr

18:: MOV
i:'fv ‘gnokavsc
(SP)+ :

001514

SEQ 0183

SIZE CLOCK SUBROUTINE

MOV

151

B 15

0240, CLKADR
.cu:vcr

sTEST FOR KW11=L PRESENT

:YES = KW11-L IS PRESENT
:RESTORE SP
:SET UP FOR BUS TIMEOUT
:LOAD ADDRESSES FOR KW11-P CLOCK
sTEST FOR KW11=P PRESENT
sYES = KW11=P IS PRESENT

:RESTORE SP
<sp>+ (SP)+
#2,4(5P)
:MOVE RETURN TO ERROR
(SP)+,ERRVEC+2
:POP STACK INTO ERRVEC+2
(gpu.ennvec
:POP STAEK INTO ERRVEC

fisrurm TO USER

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 20

c15

SEQ 0184

TIMEOUT SUBROUT INE

.SBTTL

sTHIS SUBROUTINE WAITS FOR RDY = 1 AND GO = 0 OR FOR A TIMEOUT
sGREATER THAN APPROX. 500 MSEC AND THEN RETURNS.

s
5

ICALL:
:

043374
043400

10 04

TIMOUT:

81 46
1769

19
0

12737

016046

5
5

11;;1
r4444

{{3
S8 Qe
o5l
15004

~
(=]

ss g i
G 043532
1182

300
001276

1$:
28:

1 99276

000200

j%gzz& i
1 N§514
514

012637

és 4
326
5

01260
01
07

g?; 81

38:

%
2;
6;
44
45

4S:

JSR
77?

PC,TIMOUT

MoV
MOV
MOV
MoV
MOV
MOV
MOV
MOV
JSR
MoV
BIC
CMP

RO,=(SP)
:2PUSH RO ON STACK
R2.=(SP)
*:PUSH R2 ON STACK
ERRVEC,=(SP)
::PUSH ERRVEC ON STACK
ERRVEC+2,-(SP)
- :PUSH ERRVEC+2 ON STACK
#3$ . ERRVEC
:SETUP FOR BUS TIMEOUT - 04 TRAP
#PR6,ERRVEC+2
sgnsé RO
:RO=BASE ADDRESS
#30. ,R2
*R2=NUMBER OF CLOCK CYCLES
PC,STIMER
*START CLOCK TIMER
RMCS1(RO) ,=(SP) :GET STATUS
#°C<RDY !GO>, (SP)
#RDY, (SP)+
:RDY=1,60=07?

BIT

#BIT7,3CLKADR

BEQ

136032

4 s

TIMEOUT SUBROUTINE

RETURN HERE

SYES!!

BEQ
DEC
BNE
BR

2
R2
18
.48

*NO!!
:DEC NUMBER OF CYCLES
:CONTINUE IF NOT DONE
:"RDY"* DID NOT SET OR ‘'GO’* DID NOT RESEi

(SP)+,(SP)+

ADD
MOVB
sus
MoV
MoV
. MOV
MOV
RTS

#%,12(SP)
#7.312(SP)
#2.12(SP)

:TIMER DONE??

sWITHIN 500 MSEC AFTER THE COMMAND WAS ISSUED.

*ADJUST STACK

*MOVE SP TO USER'S CALL

*WRITE ERROR NUMBER
-

(SP)+,ERRVEC+2
::POP STACK INTO ERRVEC+2
(SP)+.ERRVEC
:;POP STACK INTO ERRVEC
(sph.zs
::POP STACK INTO R2
(SP)+,
::POP STACK INTO RO

:RETURN TO USER

sTHIS ROUTINE IS USED START THE KW11-L OR THE KW11-P CLOCK. THE CLOCK
*1S STARTED T0
IN FLAG MODE. A CLOCK WILL BE 16.667MS FOR A 60 HZ CPU
*AND 20MS FOR A S0 HZ CPU.

B0 g
020127
01 7?1
5% 12601

207

STIMER:

000002

1$:

MOV
MOV
cMP
BNE
MOV
MoV
MUV
RTS

R1,~(SP)
::PUSH R1 ON STACK
CLKADR .R1
*R1=CLOCK ADDRESS
RT.#172540
*KW11=P CLOCK??
1$
:NO!!
#1,2(R1)
:SET COUNTER
#8iT2'BIT0,(R1) :START COUNTER
(SP)+.R1
::POP STACK INTO R1
*RETURN

N S WWN) —

CZRNDAO RM80 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 21
PRIMARY ERROR CHECK SUBROUTINE
.SBTTL

NN 2 OO 00 N

ORRECT UNIT IS SELECTED

) D
) b ced d D d

-SELECTED UNIT IS AVAILABLE, I.E., DVA (BIT 11 OF RMCS1) IS SET
A'O NED (BIT 12 OF RMCS2) IS RESET:
COMMAND WAS COMPLETED,

I.E., THE MASSBUS CONTROLLER IS

READY (BIT 7 OF RMCS1) AND THE GO élT IS RESET (BIT 0 OF RMCS1) OR THE

N = O D00 O

DR]VE READY BIT (BIT 7 OF RMDS) IS SET.

HCI"‘E PNOIITY ERROR OCCURRED WHEN READING REMOTE REGISTERS,

— e

.ND PMITY ERROR OCCLRRED WHEN WRITING REMOTE REGISTERS,

:THE SUBROUTINE ASSUMES THAT:

.STATUS HAS BEEN SY

IN PARTICULAR, RMCS1

ED IN THE REGISTER INPUT BUFFER,

RMDS HAVE BEEN STORED IN THEIR

.CORRESPWING LOCATI&‘SOF THE ”GET BUFFER.
H

.(SUNIT) CONTAINS THE DRIVE NUMBER

:THE SUBROUTINE IS CALLED AS FOLLOWS:
H
>

(1)

JSR

BR
NOP

ERROR

JSR
22?

PC,PRIERR

272?

PC,a(SP)+

RETURN HERE IF NO ERROR
RETURN HERE TO
REPORT AN ERROR
ERROR NUMBER DEFINED BY SUB

GO BACK TO SUB FOR MORE ERROR CHECKS

RETURN HERE IF NO MORE ERRORS

PRIERR:
:CLEAR USER'S sm CALI.

ADD
CLRB
SUB

137377

22
3

043564

114
114

737

177770

001140

13737

001 ;4

23737 001140
5

E.. THE UNIT SELECT BITS OF RMCS2

(sns 0-2) EQUAL THE UNIT BEING fss

W) -

e
29
43

PRIMARY ERROR CHECK SUBROUTINE

FOLLWING CHECKS ARE MADE:

'A
'A
4

SEQ 0185

sTHE PURPOSE OF THIS SUBROUTINE IS TO VERIFY THAT STATUS IS VALID AND
s THAT FURTHER ERROR AND STATUS CHECKING SHOULD BE PERFORMED.
THE

D15

415
716

16271

114

001142
000000

acsm
#6,(SP)

1,$BDDAT

:MOVE (SP) TO ERROR CALL
:CLEAR
ERROR NUMBER
:MOVE (SP) TO NO ERROR RETURN

:CORRECT UNIT SELECTED??

sREPORT AN ERROR IF THE WRONG UNIT IS SELECTED
Moy
RMCS2

BIC

#*CUNTASK ,SSDDAT

MOV

SUNIT seofln

BEQ
ADD

18
#%,(SP)

SUB

#2.(SP)

BIC

CMPB

MOVB

JSR

#ACUNTMSK

-cooo DATA FOR TYPEOUT

SGDDAT,saéw -comms EXPECTED AND RECEIVED
#1.3(SP)

PC.a(SP)+

-mvs NUMBERS
SYES!!
;ERROR 1

*MOVE SP TO RETURN FOR ERROR

*REPORT WRONG UNIT SELECTED

5
3

T
13

60
61

1$:

SuB
NOP
JMP

#10,(sP)

sRESTORE (SP)

108

sSKIP OTHER CHECKS

3t
79
78 8

pi
1 6
learie

448

11—
1
‘1?% 1§1

1108

84132
1

ggg7

772

114 0441

082‘

sERROR #2
JWAS NED SET??

MOV
MOV

ancs 1,8GDDAT
RMCS x.saow

SEXPECTED STATUS

MOVEB

#3,3(SP)

SuB
JSR
SUB
NOP
B8R

#NED, SGDDAT

#2.(SP)
PC.a(SP)+
#10, (sP)
108

JRECEIVED STATUS

:NO!!

sRECEIVED STATUS

sYES = CHANGE cRROR NUMBER
sMOVE SP TO RETW FOR ERROR

*REPORT DEVICE NOT AVAILABLE

*RESTORE (SP)

:SKIP OTHER CHECKS

7¢:

.Cg‘TROLLER READY??

BIT

#RDY . RMCS11

8IS
BIC

#RDY ,SGDDAT
csc-fne'ncwso $GDDAT

BNE
MOV

52737

g 1e0g
“§g
41

42 a(sm
méoRMCS2I

SEXPECTED STATUS

;REPORT AN ERROR IF MASSBUS CONTROLLER IS NOT READY

112776

35 4

DE;:CE AVAILABLE??

58
RMCS11,SGDDAT
#DVA, SGDDAT
RMCS11,$BDDAT
#%, (SPS

BIC

5%:

oou.msu

BNE
MOV
8IS
MOV
ADD

MOVE
gg

162716

gg 014 032737
g : 3?;3?
'A

aIt

28:

|
|

:THE DEVICE IS NONEXISTAN

g
S8 o370 Garsy
&
7 83t T
75
801414
74
1
7

044406

{

000010

3%’737

SEQ 0186

sREPORT AN ERROR IF THE DEVICE IS NOT AVAILABLE OR IF

E1S

SUBROUT INE

-0

MARY

PT1 MACRO V04.00 28~-JAN-B2 16:26:51 PAGE 21-1

MOV
ADD
MOVE
suB
JSR
SuB
NOP
BR

7S
RMCS11,S$GDDAT
RMCS1]1 ,$BDDAT
#4, (SP}
#4.a(SP)
#2.(SP)
PC.(SP)+
#10, (5P)
10$

:EXPECTED STATUS
sRECEIVED STATUS

;ERROR #4

:MOVE SP TO RETURN FOR ERROR
sREPORT CONTROLLER NOT READY

;RESTORE (SP)

:SKIP OTHER CHECKS

;REPORT AN ERROR IF GO IS NOT ZERQ AND DRY IS NOT ONE

BIT

BEQ
BIT
BNE
MOV
BIC
MOV
ADD
MOVEB
SUB
JSR
sUB
NOP

#G0,RMCS11]

;60 RESET??

SYES!!
8s
#DRY ,RMDS]
DgéVE READY??
%
RMCS11,SGDDAT :EXPECTED STATUS
osc'mé'ncrs'co.ieo
RMCS1]1, SBDDAT RECEIVED STATUS
#4, (SP)
#5.3(SP)
:ERROR #5
#2. (SP)
:MOVE SP TO RETURN FOR ERROR
sREPORT DRIVE NOT READY
PC.a(SP)+
#10, (sP)
:RESTORE (SP)

CZRNDAO RM80 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 21-2
PRIMARY ERROR CHECK SUBROUTINE

115 044174

119 044176

151

176

8(3,2737

;REPORT AN ERROR IF THE RH_CONTROLLER DETECTED BAD
sPARITY ON_THE MASSBUS CONTROI. BUS
BIT

020000

BEQ
MOV
BIC
MOV

0013

Sono d
i125§ 0u4sth
Qe oezrie
1 7is g00013

1
g

56
60

135

0s:

000010

98 3%651
3%8¢7
%gg 000010 001400
413

000010

001426

318 %1 10088
oovses
71
000014

18
19
138
1
12?

%
44
&t
'A
4414

By
Se—
716 000010
30 000010
A
fo

712

noo

1352
300019

93s:

928:
sl

:
7;0
4]

91s:

il
sl oed

1
129
148 &
1% 4
!

#MCPE,RMCS1I

;PARITY ERROR ??

#6, (SP)
#15.3(sP)
#2,(SP)
PC.a(SP)+
#10, (sP)

:MOVE STACK TO USER'S ERROR
*ERROR #4
*MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER
*RESTORE STACK

98
*NO!!
RMCS11,3GODAT ;EXPECTED STATUS
#SC ! TRE 'MCPE ! GO, $GDDAT
RMCS11,$BDDAT ;RECEIVED STATUS

108

:REPORT AN ERROR IF THE RM80 DETECTED A CONTROL BUS PARITY ERROR
gg
mn.mm
:w'rms A PARITY ERROR??

001352

ey ool

181
}6

NOP

737

1
18

1
140

ADD
move
sus
JSR
SuB

gs 16271 000010
aeh
s

1
}

SEQ 0187

108

000504

F 15

BIT
BNE
BIT
BEQ
MOV
MOV

#DPE ,RMER21
118
#PAR,RMER10
938
RO,=(SP)
#PUTINX,RO

MOV
B8R
TSTB
BPL
MOV
MOV
BIC
MOV
ADD
move
su8
JSR

(SP)+,R0
::POP STACK INTO RO
118
:PAR WAS SET BY TEST
(RO)+
:END OF TABLE??
918
INO!Y
(SP)+ ngm
::POP STACK INTO RO
RMER1 |
AT :EXPECTED STATUS
#PAR, SGDDAT
.
RMERTI , SBDDAT :RECEIVED STATUS
#4.(SP) :MOVE SP'TO USER'S ERROR CALL
#50.a(sP}
:WRITE THE ERROR NUMBER
#2,(SP)
*MOVE SP TO RETURN FOR ERROR
PC.a(SP)+
*REPORT THE ERROR

ADD

#10, (SP)

fi’

's‘g

108:

118:

ggg

ggstm.(no)

70, (5P)
i

*WAS IT THE CONTROL BUS??
*NOT SURE!!
:DID TEST SET PAR 22
*NO!!
+:PUSH RO ON STACK
*RO POINTS TO INDEX TABLE
:SEARCH TABLE FOR RMER1

*MOVE SP TO NO ERROR RETURN
:RETURN TO ERROR

;RETURN TO NO ERROR

:SUCH AS UNEXPECTED ERRORS AND UNEXPECTED REGISTER CONTENTS. THESE
sERRORS ARE DEEMED SECONDARY IN THAT THEY ARE NOT NECESSARILY

;ASSOCIATED WITH THE CPERATION BEING PERFORME

WHEN THE SUBROUTINE IDENTIFIES SUCH AN ERROR, IT MOVES THE ERROR

d o v

sNUMBER TO THE ERROR CALL IN THE TEST ROUTINE AND THEN RETURNS

TO THE _TEST ROUTINE WHICH MAKES THE Ems

nerums TO THE ADDRESS FOLLOWING THE SUBROUTINE

CALL.

) wd

SCALL:

—d

JSR

PC,SECERR

:
:
;
;

BR
NOP
ERROR
JSR

:NOTE:

THE SUBROU TINE ASSUMES THAT REGISTERS HAVE BEEN STORED AT THE

;

772

777

RETURN HERE IF NO ERROR
RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEFINED BY SUB
GO BACK TO SUB FOR MORE ERROR CHECKS

PC,a(SP)+

RETURN HERE IF NO MORE ERRORS

)

:INPUT REGISTER BUFFER.

OSSN
=

SECONDARY ERROR CHECK SUBROUTINE

sTHE ERROR CHECK SUBROUTINE PROVIDES DETECTION OF SECONDARY ERRORS

SECERR:
SRRARRAAARARAAAAAANAACCRARAAAAAAANAAAAAAAANEAANAAAAAAANCAAAOAAARASY

050556
050556

sroas FUNCTION CODE AND

MOV
ADD

CLEAR USER'S ERROR NUMBER

RMCS10,515¢
sroae rwcnou CODE
#C<FOIF1TF2!F31FL>
#%, (SP)
-novs (sn TO ERROR CALL
a(sP)
#4,(SP)

:CLEAR ERROR NUMBER
*MOVE (SP) TO NO ERROR RETURN

AR ARAAAARARANAAAEARAEAANANAAAARAAAARAAAAAARAAAAAARAAAARCARRSY

EHECK SECONDARY ERRORS COMMON TO ALL COMMANDS

5
4446
0é4sse

032737
01

1943

18576

11977
7

F
oo

“‘U\flfl“

4
A

000200

;37 171379

\as“““‘“‘ §§“

SEQ 0188

firfl&

OO NN NN = OO 00 NN S NN = ‘o

.SBTTL

615

FCTNL PT1 MACRO VO‘ 00 28-JAN-82 16:24:51 PAGE 22
RROR CHECK SUBROUTINE

001350

;REPORT ERROR IF DRIVE IS NOT READY, I. E.. IF DRY
= 0

BIT

BNE
MOV
BIC
MOV
ADD
move
SUB
JSR

114
114
114

000010

000001

001336

1
gl“

114
114

#DRY ,RMDS1

13
RMDSI,SBDDAT
#°CDRY ,SBDDAT
#DRY, SGDDAT
#6,(5P)
#10.a(sp)
pz (sP)
C.a(SP)+

6 (SP)

-REPORT ERROR IF GO BIT

§s:

:DRIVE READY??

SYES!!
:BAD DATA FOR TYPEOUT
;600D DATA FOR TYPEOUT
;:ERROR NUMBER

*MOVE SP TO RETURN FOR ERROR
*REPORT NOT READY

:RESTORE (SP) TO ERROR N

IS NOT RESET

BIT

gsg.mcs 1

egssn RESET??

MOV
BIC
CLR
ADD

RMCS11,$BDDAT
#4060, $BDDAT
$GDDAT
fl. (SP)

:BAD DATA FOR TYPEOUT
:GOOD DATA FOR TYPEOUT

move

#1i.acsp)

:ERROR NUMBER

CZRNDAO RM8O FCTNL PT1 MACRO Vv04.00 28~JAN-82 16:26:51 PAGE 22-1
SECONDARY ERROR CHECK SUBROUTINE

gs 044570

162716

sus

000002

JSR
suB

80 eare
Sesrs
g%g
2)88268
—
)
R
e

fEd0 Qas s 08578
T
;;
(1’35716 000010
%28225? -~

15%:

gg?
001140
1412

91§‘§ g747562 1162716;}g 0000102
742

716
112776

3%
38

1
1
1

1%
1

1
1
1 ?
1

1s
114

208:

258:

MOV
cMP
BEQ
ADD
MOVB
SUB
JSR

5158, $GDDAT
DAT,$GDDAT
1
#%, (SP)
#12,3(SP)
#2,(SP)
PC.a(SP)+

NOP

BNE
ST
BEQ

rc% $BDDAT

70, (sP)

SGDDAT
RMER11

208
RMER2I
258

BIS

#ERR, SGDDAT

cMP
BEQ
ADD

ggw.smn
¥6, (SP)

MOV
BIC

MOVB

Sgp 1 ; : 1

oy
oo

001400
el omed e

11,$BDDAT

RMC

BIC

CLR
ST

83888

704

sMOVE SP TO RETURN FOR ERROR
sREPORT DEVICE NOT AVAILABLE
sRESTORE (SP)
:IS FUNCTION CODE CORRECT??

SEXPECTED FUNCTION CODE
SYES!!

sERROR NUMBER
sMOVE SP TO RETURN FOR ERROR
sREPORT WRONG FUNCTION CODE
sRESTORE (SP)

sREPORT AN ERROR IF COMPOSITE ERROR IS SET AND NO OTHER
sERRORS ARE SExfiEMSE" COMPOSITE ERROR IS NOT SET AND
T
;OTHER ERRORS

el oraad oo comed

PC.a(SP)+
#10, (sP)

MOV

%
;3 0666% 005037 1140
5737 881352
1
74 §1%
73

#2,(SP)

SEQ 0189

:REPORT ERROR IF FUNCTION CODE READ FROM DEVICE IS NOT CORRECT

fos s

S
oonNnN

737 80114
351

e
)

29
e

NOP

H15

sU8
JSR
su8

RMDS] ,SBDDAT
#CERR, SBDDAT

#47.3(SP)

#2,(SP)
PC.a(SP)+
#10, (sP)

;EXPECT "ERR’’ = 0
;IS RMER1 = 0?7
NO!!

Z-xs'u}genz = 07?7
sYES!!

:"ERR'* SOULD BE SET
;1S "ERR'* 0K??

sYES!!
sMOVE SP TO USER'S ERROR
sWRITE ERROR NUMBER
:MOVE SP TO ERROR RETURN
sREPORT INVALID COMP ERROR

sREPORT AN ERROR IF '‘TRE'' 1S SET AND NONE OF THE BITS WHICH SET

cTRE 1S SET, OR IF TRE IS NOT SET AND ONE OR MORE BITS WHICH

Qeare2
77

04203

09302 901ise
372; 880379
101

627
737

145578
%
7}6

CLR

BIT

CMP

000030

1
001140

MOV
BIC

BNE

040000

3 ogs;
1 7 8§}
7
413
;}2

:SET TRE IS SET

35¢:

408:

BHIS
BIS

MOV

m"z‘} ém
(SP)
ng.(
358

RR,RMDSI

#SEARCH,5158

40§m

#TRE ,$GDDAT

RMCST1,$BDDAT

B8IC
CMP
Bta
ADD

#CTRE
. SBDDAT
DAT
, SBDDAT
458
#%, (SP)

SuB
JSR

#2,(SP)
PC,a(SP)+

Mov8

#14,3(5P)

;EXPECT "'TRE"' = 0

:WAS DLT,

WCE, UPE, NED, NEM

E';ES:."‘"‘ OR MDPE SET

I:%;;éxcsmou RECEIVED??
*WAS DATA TRANSFERRED??
*"TRE'* SHOULD BE SET
*BAD DATA FOR TYPEOUT

flgs'gas" 0K2?
*MOVE
SP TO USER'S ERROR CALL

*WRITE ERROR NUMBER
:MOVE SP TO RETURN FOR ERROR
*REPORT TRE ERROR

vVivauy

222 g3

002010

:
458:

NOWVIS
NN = OO0~

amd =le
e
T S S
W
Y Y
——

—

#10,(SP)

sRESTORE (SP)

-usms THE FUNCTION CODE TABLE, CHECK FOR THE FOLLOWING ERRORS:
3
.STATUS BITS NOT SET THAT SHOULD BE SET, e G., ATA AND ILF
-STATUS BITS SET THAT SHOULD NOT BE sew. E.G., WCE AND ECH
*NOTE THAT SOME mon ans ARE CONDITIONAL
ON THE COMMAND
AND OTHER

*WRITE LOCK IS ON ha6 COMMAND IS A WRITE.
23

*STATUS CONDITIONS

02 8129§§ 050556
02
0130
070002 050550
1
012600

SEENPRETTWN
&S

13737

32737
14 ;
S
7
13737
7
023737
1413
712
11277
162716
736
assm
240

050550
040000

001140
[FNEY
e

NNNRFSHEOR
e
) o
e
st wmd emh cod e

wvivaunawna

A,]
ITBIRRRER2S

SUB
NOP

SEQ 0190

SRR RAARAAAAAAAAARARARERERAAANAAAAAANAAANAANAAAARAAN
LA ORRORRRS

v
WRURZESRIGHGRERES
RRRRRRRARRRRRERR
wviviaaiuiaiiuaiaviniaw
Vviiuiuaiviaiuiviiiaiviavivanaina

b wod i e b
wd el o | mad
=D D o
oo o
b nd ek cod e
mnch
) o
b ol wad ek
e} ol ok
o

115

FCTNL PT1 MACRO VO‘- 00 28-JAN-B2 16:24:51 PAGE 22-2
CHECK SUBROUTI

sGET AND STORE THE ENTRY FROM THE FUNCTION

MoV

MOV
MOV
MoV

RO (SP)

:;PUSH RO

CODE TABLE

ON STACK

5158
*GET FUNCTION CODE
mcofmo)
5008
:STORE
ENTRY
(SP)+,R0
..POP STACK INTO RO

sREPORT AN ERROR IF AN UNEXPECTED ATTENTION OCCURRED OR IF
sATA IS NOT SET AND SHOULD BE SET.

001350
199999 001140
30
001140 S0$:
;;sg 001142
35 77 001142
001140 001142
000002
000010

WRITE LOCK ERROR suoul.o ONLY BE SET IF

000000
1

MoV

BIT
BEQ
BIS
BIC
MOV
BIC
cMP
BEQ
ADD
MOVB
)
JSR
SUB
NOP

5008, SGDDAT

05:‘&*RMDS]
5
#ATA,SGDDAT
#~CATA,SGDDAT
RMDSI,$BDDAT
#5CATA, saom
sgmr-SBDDAT
#%,(SP)
a(SP)
- (SP)
pc ‘a(SP)+
#10, (SP)

sGET EXPECTED ATA STATUS

;1S COMPOSITE ERROR SET ?2?
:NO !
SEXPECT AN ATTENTION
:STRIP DONT CARES
:GET RECEIVED ATA
:STRIP DONT CARES
1s ATA OK 77
:YES!
*MOVE " sp TO USERS ERROR CALL
:LOAD ERROR # IN CALL
:MOVE SP TO ERROR RETURN
*REPORT ERROR
*RESTORE SP

:REPORT ERROR IF ILF xs xncomcr 1.E.. IF ILF DOES NOT COMPARE

13737
050550 001140 WITH rmflg;m
c%
GET EXPECTED ILF
737 17777 331140
BIC
#ACILFseow *CLEAR ALL OTHER BITS
13737 091 5 881142
MOV
RMERTI.SBODAT :GET RECEIVED ILF
;

177

BIC

#°CILF.$BDDAT

MOVB

0554a(sP)

737 001140 00114
716

gg
ADD

;;g

SuB

776

4 000000
2

JSR

:CLEAR ALL omea BITS

:#gsll;f oK ?
uovs SP TO USERS ERROR CALL

ITE ERROR NUMBER IN CALL

#2,(SP)

mve SP TO ERROR RETURN

#10, (SP)
$GDDAT

*MOVE SP TO NO ERROR
*CLEAR EXPECTED STATUS

PC,a(SP)+

*REPORT ERROR AND RETURN

032"9 880010
03
1140

60$:

13746
52716

sREPORT AN ERROR 60
UCE lS SET AND SHOULD NOT BE SET
MOV
gET WCE STATUS ENABLE
BIS
¥ C e (sn

059;;9
13

SUB
CLR

DAT . SBDDAT
SP)

RMCS2] . SBDDAT
(SP)+,$BDDAT

:CLEAR WCE IF ENABLED

&
§

—-1

(< X X XV}

-t

oF
—

—
—

382
N
r~
3;333dQN
arooNONONNON

R222

s8¢
&»H

RpR

MOVB
SuUB
JSR

1008:

OTM OONNINNON

001350

001142

1058:

ot gy

Vi
wvivawy

90s

#, (SP)
058 a(sP)
#2,(SP)
PC.a(SP)+
#0,(sP)

SEQ@ 0191

;BRANCH IF WCE OK

*MOVE SP TO USER'S ERROR CALL
:WRITE ERROR NUMBER
:MOVE SP TO ERROR RETURN
*REPORT ERROR
*RESTORE ERROR

suB

50 8,
- (SP)
#4COPI, (SP)
RMER11,.$BDDAT
(SP)+,$BDDAT
1008
#4, (SP)
#164,3(SP)
#2,(5P)
PC.a(SP)+
710, (sP)

:GET OPI STATUS ENABLE
:SET ALL OTHER BITS
:GET RECEIVED STATUS
:CLEAR OPI IF ENABLED
*BRANCH IF OPI OK
:MOVE SP TO USER'S ERROR CALL
:WRITE ERROR NUMBER IN CALL
:MOVE SP TO ERROR RETURN
*REPORT ERROR

*RESTORE SP
1

;REPORT ERROR IF IVC IS SET AND IS NOT ENABLED OR IF IVC IS
*SET AND WV IS ugr RESET

Wfifi?
FRReesSoETR
&R
R
SSR8
ge

2883

e e e
B

ADD
MOVB
SUB
JSR
suB
MOV
BIS
MOV
BIC
BEQ
ADD

001142

NN
NN = O

e
e
b pury

VS NN~

BEQ

J 15

:REPORT ERROR IF %i STATUS 1S SET AND SHOULD NOT BE SET

RR8e

Vi
m

90$:

O Gy i

L ]

22
SRg

g
D e o e
s sl o e el s

i s

2EISJYFUNAN

MACRO v04.00 28-JAN-82 16:24:51 PAGE 22-3
SUBROUT INE

MOV
BIT
BEQ
BIC
BIS
MOV
BIC
BEQ
ADD
MOVB
)
JSR
su8

008, -(SP)

#VV RMDS]
1058
#IVC, (SP)

#ACIVC, (SP)

RMER2I ,$BDDAT
(SP)+,$BDDAT
1108
#%_ (SP)
#165,a(SP)
#2,(5P)
PC.a(SP)+
#10,(sP)

:GET IVC STATUS ENABLE
:IS WV SET
:NO
!!
*YES = IVC SHOULD BE 0
*SET ALL OTHER BITS
:GET RECEIVED STATUS
:CLEAR IVC IF ENABLED
*BRANCH IF IVC OK
:MOVE SP TO USERS ERROR CALL
*WRITE ERROR NUMBER IN CALL
*MOVE SP TO ERROR RETURN
*REPORT ERROR
*RESTORE SP TO NO ERROR

sBIT 11 (WLE) OF THE nEmcnon CODE TABLE IS THE ENABLING BIT FOR
s ALL WRITE ERRORS l. o9
RMER] - WLE,
DPE

WCF

H
RMCSZ - UPE.
cEACH OF THESE ERRORS IS CHECKED TO SEE IF AN ERROR IS SET WHEN THE
sWRITE ERROR ENABLE BIT IS RESET.
sREPORT AN ERROR IF WLE IS SET AND WRITE ERRORS ARE NOT ENABLED, OR IF
s THE DRI%VIS NOT WRITE PROTECTED

177777
004000

050550

004000

001350

001142

114

BIT

1158:

1208:

BEQ
BIT
BNE
BIC

MoV
BIC
BEQ

-1

(3&

"'}f"

1
nl&.msx
12
#ILE, (SP)

RMERTI,SBODAT
(gm.iaom
1258

:ASSUME WRITE ERRORS ENABLED

*ARE WRITE ERRORS ENABLED ??

*NO !!
:1S THE DRIVE WRITE PROTECTED 2?2
SYES !!
*RESET WLE ENABLE

:GET RECEIVED STATUS
*CLEAR WLE IF ENABLED
*BRANCH IF WLE OK

2350

R 3 !?!
=3

BERE §

1 MACRO V04 00 28-JAN-B2 16:24:51 PAGE 22-4
SUBROUT INE

045666

8t g
%e

N
~

eard amd

—

gTRQdaRdE

3331RRRESE
o
FRaRS228882

(=]

¥
¥ s
Wh=O

(3 coomo
000010

177777
004000

000025
000002

sREPORT ERROR IF‘UCF {SP§ET AND WRITE ERRORS ARE NOT ENABLED
sASSUME WRITE ERRORS ENABLED
BIT
BNE

#LE
. 50 8

Agg
URITE ERRORS ENABLED ??

RMERTI, SBDDAT
(§P)+,$BDDAT

DISABLE WCF _ERROR
:GET RECEIVED STATUS
:RESET WCF IF ENABLED

sBRANCH IF WCF OK

:MOVE SP TO USERS ERROR CALL
:WRITE ERROR NUMBER IN CALL
:MOVE SP TO ERROR RETURN
:REPORT ERROR
:RESTORE SP TO NO ERROR

#%, (SP)

055
acsp)

016a(sp)
(SP)

135%:

sREPORT ERROR IF DPE lS §ET AND WRITE ERRORS ARE NOT ENABLED
050550

10
1400

001142

177777

mnéx
‘ggaw
(SP)*

1408:

DAT

145

"% (sn

#40,3(5P)

000000

000010

sASSUME WRITE ERRORS ARE ENABLED

“%s(SP)

8IT

#2,(SP)
PC.a(SP)+

#10, (5P)

1458:

AgE
URITE ERRORS ENABLED ??
:RESET DPE ENABLE
$GET RECEIVED STATUS
SRESET DPE IF ENABLED
sBRANCH IF DPE OK

:MOVE SP TO USERS ERROR CALL
:WRITE ERROR NUMBER IN CALL
:MOVE SP TO ERROR RETURN
:REPORT ERROR

sRESTORE SP TO NO ERROR

sREPORT AN ERROR IF UPE IS SET AND WRITE ERRORS ARE NOT ENABLED

004000

MOV

#=1,-(SP)

;ASSUME WRITE ERRORS ARE ENABLED

BIC
031348 001142 1508: MOV
001142

#UPE, (SP)

oxsme UPE ERROR

3
3
5

#10, (sP)

sus

177777
004000

001142

HOVE SP_TO ERROR RETURN
:REPORT ERROR AND RETURN
:RESTORE SP TO NO ERROR

PC.a(SP)+

000000

000010

]

050550

HOVE SP TO USERS ERROR CALL
WRITE ERROR NUMBER IN CALL

css.a(sn

114

000004
000040
000002

5746

1258:

SEQ 0192

#4, (SP)

ADD
MOVB
su8
JSR

e 001142 1308:

&g
3 gk
g

¢§m+ §BDDAT

:RESET UPE IF ENABLED

#%, (SP)
sz.a(sn
s
PC.a(SP)+
#10, (5P)

*MOVE SP TO NO ERROR

NISNSNNN

xRNySRR : £
:
333
RRRRRRR2P zeeRe® '3
48
49

g'xé

050550

;

BIC

000000

000010

i
114

BEQ
ADD
MOVB
SuB
JSR

155%:

Su8

sREPORT AN ERROR

001142

MOV
8IS
MOV
BIC

mséx saoon

%agWRITE ERRORS ENABLED ??

*GET RECEIVED STATUS

SBRANCH IF UPE 0K
*MOVE SP TO USERS ERROR CALL
*WRITE ERROR NUMBER IN CALL
-nove SP TO ERROR RETURN
*REPORT ERROR AND RETURN

IF ue IS SET AND IS NOT ENABLED

5
(SP)
muie
(SP)
RMER1I.SBDDAT

(SP)+, SBDDAT

:GET IAE ENABLE
*SET
ALL OTHER BITS
:GET RECEIVED STATUS

:CLEAR IAE IF ENABLED

CZRNDAQ RMBO FCTNL PT1 MACRO vgg.oo 28-JAN-82 16:24:51 PAGE 22-5
SECONDARY ERROR CHECK SUBROUTI

04605
5

228 i

giekre

BEQ
ADD
MOVB
SUB
JSR

14 12
7

776 000002
80076 000000

5§“‘

286

716
736
716

1 608:

L1S

1608
8, (SP)
0166 a(sP)
. (§P)
PC a(sm

#10, (SP)

SEQ 0193

:BRANCH IF IAE IS OK
novs SP TO USERS moa CALL
WRITE ERROR NUMBER
MOVE SP TO ERROR RETURN
*REPORT ERROR AND RETURN
*MOVE SP TO NO ERROR

:8IT 09 (AOE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR
; ALL READég?ITETEgRORS l1.E.,

NOTE'

RHCSZ = DLT,NEM, MXF
- LBT
RHER1 = AOE
LBT IS NOT CHECKED BECAUSE IT ONLY RESETS WHEN THE DESIRED

fig#éflbik REGISTER IS WRITTEN

NON

3203
>S AN
NNONN
OOV

b
d

gR2R8ee
penatiy
NSO

2S2FER

NN =

%
-~
NNNbOu
; b N b b L] 2

b cmnd

sy memd

—

FRSRERENFRIR

D wad wmD mh wmd ned seed cn |

1
1
1
1

ol emud o

1
1
1
1

RTINS33

:NOTE:

177777
001000

100000

001346
001142

050550

001142

1 658:

000010

1708:

050550

000000

000010

177777
001000

{‘255

;ASSUME ERRORS ARE ENABL

8IC
MOV

#DLT, (SP)
RMCSSI,$BODAT

RESET DLT ENABLE
:GET RECEIVED STATUS

BEQ
ADD

#6, (SP)

*BRANCH IF DLT IS OK
.nove SP TO USERS ERROR CALL

su8
JSR
SUB

#2,(SP)
PC.a(SP)+
#10, (sP)

*MOVE SP TO ERROR RETURN
*REPORT ERROR AND RETURN
:MOVE SP TO NO ERROR

8IC

(;P)*. $BDDAT

#32,3(SP)

Agg
ERRORS ENABLED ??
:CLEAR DLT IF_ENABLED

*WRITE ERROR NUMBER IN CALL

:REPORT ERROR IF nen 1S SET AND READ/WRITE ERRORS ARE NOT ENABLED

B9 oo 1758:
167

MOVB

000002

TRE IS CHECKED AS A FUNCTION OF OTHER ERROR CONDITONS ABOVE

:REPORT AN ERRORI: D%T ;S SET AND READ/WRITE ERRORS AREEgOT ENABLED

OOOOgZ 000000

177777
001000

AOE CANNOT BE SET IF LBT IS NOT ALSO SET

1808:

MOV
BIT
BNE
BIC

MOV
BIC

BEQ
ADD
MOVB
Su8
JSR
sus

-(SP)

ASSUME ERRORS ARE ENABLED
SYES!

"‘25 5008

-Ms ERRORS ENABLED ??

#NEN,
(SP)

.-oxsme NEM

nncséx $BDODAT
+,$BODAT

1
u (sp)
0167 a(sP)
($P)
PC a(sp)o
#10, (SP)

:GET RECEIVED STATUS

:CLEAR NEM IF ENABLED

*BRANCH IF NEM IS OK
*MOVE SP TO USERS ERROR CALL
*WRITE ERROR NUMBER IN CALL
*MOVE SP TO ERROR RETURN
*REPORT ERROR AND RETURN
*MOVE SP TO NO ERROR

;REPORT ERROR IF MXF IS SET AND READ/WRITE ERRORS ARE NOT ENABLED
050550

g?\Tv

m’:é §35%

;ASSUME ERRORS ARE ENABLED

BNE

185%

JYES
!

ARE DATA ERRORS ENABLED ??

;

CZRNDAO RM80 FCTNL PT1 MACRO VO‘ 00 28-JAN-82 16:24:51 PAGE 22-6
SECONDARY ERROR CHECK SUBROUTI

%g
3

6;7 88114

§:§ 19
137

001
1

?046 g
34
7
348
349
50

001412
716
112776
162716
004736

888824
%
00000

51
35;
3
54
35

56
57
58

ggi 046354
04

)
5
b
74
357
00
368
046402
3 9 046406

162716

000010

012746

177777

032737

( ‘IQgG
032737

1858:

1908:

062716
112776
162716
004736
162716

001000

050550

002000

001350

BEQ
ADD
MOVEB
SUB
JSR
SUB

1908
#6, (SP)
#35.3(sP)
#2,(SP)
PC.a(SP)+
#10, (SP)

MOV

RMCS21, SBDDAT
(SP)+,$BDDAT

000000

000010

ZObS:

#-1,-(SP)

BIT

moé soos

BIT

'5?7LRMDSI

BIC

#AOE, (SP)

BEQ
ADD
MOVB
sUB
JSR
SUB

2008
#4, (SP)
056
a(sP)
PC atsm
#10, (5P)

BEQ

001142
000004
000020
000002

#MXF , (SP)

MOV
BIC

SEQ 0194

MVE SP TO NO ERROR

:REPORT ERROR IF AOE xs SET AND DATA ERRORS ARE NOT ENABLED

32 (7’(1,5 001352
001000 001142 1918:
1958:
01;737
042637
001412

BIC

Mm15

BNE

MOV
BIC

191

195

meaix $BDDAT
(SP)+,$BDDAT

sASSUME DATA ERRORS ARE ENABLED

%EDATA ERRORS EANBLED ??

IS LBT ALSO SET ??
!
JYES
DISABLE AOE
:GET RECEIVED STATUS

;CLEAR AOE IF ENABLED

sBRANCH IF AOE IS 0K

MVE SP_TO USERS ERROR CALL
sWRITE ERROR NUMBER

:MOVE SP TO ERROR RETURN
:REPORT ERROR AND RETURN
:MOVE SP TO NO ERROR

;BIT 07 (HCE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR

:HEADER ERRORS, I

:
:

032737
001493
042737

002000

001370

000200

050550

012746

177777

03%9739 000200 050550

il e
2637
1612
7

?06736
62716

00114

001142

sRESET THE ENABLING BIT (HCE) IF HEADER CWME INHIBIT IS SET

201$:

#HCI ,RMOF 1

BIC

#HCE, 5008

2018’

?
:1S CI SET
:NO
!

:YES= DISABLE ALL HEADER ERRORS

sREPORT gvem
IF HCRC)!S SET AND HEADER ERRORS AREDNT ENABLED

2058:

2108:

050550

BIT

BEQ

000000

000010

RMER1 = HCRC.MCE.FER
RMER2- BSE,SSE

BIT
g'j‘%
MOV

mcs
ARE HEADER ERRORS ENABLED ??
.'DISABI.EHCRC
#HCRC, (SP)
SI saom $GET RECEIVED STATUS

BEQ

2108

BIC

ADD
Move
;)
JSR
sUB

sASSUME ERRORS ENABL

(sm+ $BDDAT

sRESET HCRC IF ENABLED

#4, (SP)
#2,(SP)
PC.a(SP)+
#10, (SP)

MVE SP TO USERS ERROR CALL
:WRITE ERROR NUMBER IN CALL

#35,3(sP)

.MVE SP_TO ERROR RETURN
REPORT ERROR AND RETURN

:MOVE SP TO uo ERROR

;REPORT ERROR IF ucs '§,§ET AND HEADER ERRORS ARE NOT ENABLED
sASSUME ERRORS ENABLED
MOV
:ARE ERRORS ENABLED ??
8IT

mct 5008

CZRNDAO RM80 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 22-7
SECONDARY ERROR CHECK SUBROUT INE

6518

4o§
40

526
5

401

0465

00190

BNE

880

1
7 00114

4
066;4
405 046

00 412
71

883822

283

162716

000002

/.o?

552

112776

001142

2158:

000000

2158

JYES !

RMERTI,$BDODAT
(gP)*.‘BDDAT

:GET RECEIVED STATUS
:CLEAR HCE IF ENABLED

BIC

#HCE, (SP)

BEQ
ADD

2208
#4, (SP)

SUB

#2,(sP)

MOV
BIC

MOVB

#36.3(SP)

*BRANCH IF HCE IS OK
“MOVE SP TO USERS ERROR CALL

:WRITE ERROR NUMBER IN CALL
*MOVE SP TO ERROR RETURN

2}9 046564

2208:

41§

:REPORT ERROR IF FER IS SET AND HEADER ERRORS ARE NOT

594 ;5749 177777

414

046570

415

046576

41;

41
418

419
4

421

425

737

000200 050550

oooggg

412
716

000004

001002

881
7
001142

112776

000037

2 162716 000002

000000

4324

046660

4
435
4

04666
66

8676
046
;

8§%28§
001142 2358:
114

;

4 000000
2

2‘

;

177777

000200 (050550

44g

*DISABLE FER

000010
'

cugs.soos

MOV
BIC

RMERTI,SBDDAT
(gr)+,£aoonr

MOVB

#37.3(SP)

2308
#%, (SP)

#2,(SP)
5

24608:

873303 050550

SYES !!

:GET RECEIVED STATUS
*RESET FER IF ENABLED

*BRANCH IF FER OK
*MOVE SP TO USERS ERROR CALL

*WRITE ERROR NUMBER IN CALL

*MOVE SP TO ERROR RETURN
g

#BSE, (SP)

*DISABLE BSE

BEQ
ADD
MOVB

2408
¥4, (SP)

:BRANCH IF BSE 0K
A
:MOVE SP TO USERS ERROR CALL
:WRITE ERROR NUMBER

JSR

PC.a(SP)+

MOV
BIC

RMER2I,$SBDDAT
:GET
RECEIVED STATUS
(SP)+,$BDDAT
:CLEAR BSE IF ENABLED

SuUB8

0354 (SP)
#2, (SP)

sus

#10, (5P)

:MOVE SP TO ERROR RETURN

*REPORT ERROR AND RETURN

*MOVE SP TO NO ERROR

IF SKIP SECTOR ERROR INHIBIT (SSEI)

il o MOV
;ov g515$,R0
(flgg’xs CLé‘m'-lvusu
RO ON STACK
*GET FUNCTION CODE
=g¥

;gggts;go).soos ’3;8355$2E§7{8¥073°‘5 ENTRY

010000 001370

Sé{

5:qglt.nuofix

E;g ?5'v§s

001000

001370

gg‘

ggl.mx

Eg §'§e'x‘o SET 2

000200

050550

BIC

#HCE, 5008

*DISABLE HEADER ERROR

5055

*ARE HEADER ERRORS ENABLED ??

BIC

sRESET THE ENABLING BIT (HCE),

046

‘

'A
'A

RB
IF 5§§§'5°°’
e t3pys A0 Eegg
A tMcTHEYCRRORS
ERASOLpCNABLED
BT
ENABLED ??

4‘2
445

#FER, (SP)

2308:

431

BIC

SUB

:ASSUME FER 1S ENABLEDENABLE

BEQ
ADD

.4 :
'

#-1,-(5P)

BNE
2258:

MOV

BIT

001142

*DISABLE HCE

—

400

SEQ 0195

52525

046770 012746 177777

sREPORT ERROR IF SSE. IS SET AND HEADER ERRORS ARE NOT ENABLED
MOV
#-1,-(SP)
sASSUME ERRORS ENABLED

CZRNDAO RMB0 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 22-8
SECONDARY ERROR CHECK SUBROUTINE

457 oagm

032737

000200

050550

458
459
0
460
10 01
u.og 001142 2438:
461
04701
2 7
00114
4¢§ ?
12
463
047
716
464 ;8
112776
000000
465
162716
2
469 7
736
467
047
162716 000010
263 047050
2448:

BIT

BNE
BIC
MOV
BIC
BEQ
ADD
MOVB
SUB
JSR
37

B 16

mg.soos

2
#SSE, (SP)
RMER2I,$BDDAT
(SP)+,$BDDAT
2448
¥4, (SP)
ogz.a(sn
#2,(SP)
PC.(SP)+
#10, (sP)

SEQ 0196

;ARE HCE'S VALID FOR THIS FUNCTION ?

SYES !}
*DISABLE SSE
:GET RECIEVED STATUS
:CLEAR SSE IF NOT VALID FOR FUNCTION
*BRANCH IF SSE OK
*MOVE SP TO USERS ERROR CALL
*WRITE ERROR NUMBER
*MOVE SP TO ERROR RETURN
*REPORT ERROR AND RETURN
*MOVE SP TO NO ERROR

490

:BIT 06 OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR DATA

474
475

sNOTE:
:

471

*FIELD ERRORS, I.E.

7050 01574.
1

4
4

177777

7054

032737

5713

001002

000100

7070
01 3
7 72 042637

1346
00114

;REPORT ERROR IF MDPE IS SET AND IS NOT ENABLED

050550

001142

4
4

7 &
1412
71
716
7110 112776
27 000000
7116
162716 000002

7124

7122

12746

177777

415
71
112776
162716

#-1,-(SP)

;ASSUME ENABLED

BNE

2458

SYES !!

RMCS21,$BDDAT
(SP)+,$BDDAT

:GET RECEIVED STATUS
:CLEAR MDPE IF ENABLED

osgu.soos

BIC

mps (SP)

BEQ
ADD
MOVB
su8
JSR
sus

2508
#6,(SP)
cg?.acsm
#2,(SP)

MOV
BIC

PC,a(SP)+

"0, (sP)

*ARE DATA FIELD ERRORS ENABLED ??

*DISBALE MDPE

*BRANCH IF MDPE OK
*MOVE SP TO USERS ERROR CALL
*WRITE ERROR NUMBER IN CALL
:MOVE SP TO ERROR RETURN
*REPORT ERROR AND RETURN
:MOVE SP TO NO ERROR

:REPORT ERROR IF DCK IS SET AND DATA FIELD ERRORS ARE NOT ENABLED

050550

g 000000

736

62716 000010

MOV

. #=1,-(SP)

BNE

255$

BIT

001300 001142 255:
b

2508:

MOV

RMERTI,SBDDAT

BIC

#DCK, (SP)

BIC

%;o.iaow

BEQ
ADD
move
SUB

¥4, (SP)
#30.a(sP)
#2,(SP)

#10. (5P)

JSR

2608 :

a;gu.soos

PC.(SP)+
-

;ASSUME ENABLED

*ARE THEY ENABLED ??

SYES !!

:DISABLE DCK
sGET RECEIVED STATUS
sCLEAR DCK IF ENABLED
sBRANCH IF DCK IS OK

sMOVE SP TO USERS ERROR CALL
sWRITE ERROR NUMBER IN CALL
sMOVE SP TO ERROR RETURN
sREPORT ERROR AND RETURN
sMOVE SP TO NO ERROR

;REPORT ERROR IF ECH IS SET T AND,
DATA FIELD ERRORS ARE NOT ENABLED, OR
:

1§ 827514 83 737 000100 050550

245$:

000100

32737
el

JZRFBERRE

b nd o

b e

b ek

NNNNNNNNNNNNYNY

33483

162716 000010

MOV
BIT

004736

RRRRRFRRRRRIRR

49%

RMERT = DCK,ECH

ECH CANNOT SET UNLESS IT IS ENABLED AND ECI IS RESET AND
:DCK IS SET.

RMCS2 - MDPE

047210

012746

177777

P
‘

BIT

MOV

mn.ssos
#-1,-(5P)

sASSUME ENABLED
sARE ERRORS ENABLED ??

:
:
514

047,

g}z &;
g}; gaz
519 047
520 g
g 1

[}

T 1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 22-9
ONDARY ERROR CHECK SUBROUTINE

1419

737 004000 001370
: 9?2 100000 001352
9?9
1
sgss:
1 3 %’3 001142 2708:
7

612

112776

525 04
5 9 82
g

8 047310

716

00114

BEQ

g'x‘g
g'x‘g
BIC
MOV
BIC

BEQ

162716
2
736
162716 000010

000000
2758:

:NO !!

(;m.isow

*CLEAR ECH IF ENABLED

: g.mx
ffisffl SET 77
gg.mm
:3523"?:‘ ALSO SET 7?
SECH, (SP)
*DISABLE ECH
RMERTI,$BODAT :GET RECEIVED STATUS
2758

*BRANCH IF ECH IS OK

#31,a(sP)

*WRITE ERROR NUMBER IN CALL

¥, (SP)

SUB
JSR

#2,(SP)
PC.a(SP)+
#10, (SP)

sus

SEQ 0197

2658

ADD

move

*MOVE SP TO USERS ERROR CALL

*MOVE SP TO ERROR RETURN
*REPORT ERROR AND RETURN
*MOVE SP TO NO ERROR

'
|

;

|
‘
'

CZRNDAO RMBO FCTNL PT1 MACRO V04 00 28-JAN-82 16:24:51 PAGE 23
SECONDARY ERROR CHECK SUBROUTINE
%

P dededededububodobetabebaibebabaindubabebededadddbdbb
bttt A 2
E
R R L L R R R L R R R R e T
T T

SRR

5 047310 osgzsr 000030 050556
1
o;
g 047320 000137 050522
9

10 047324

11 047332
1§ 04
13 04
1% 04
15
047350
19 ggg
1
18
19
g 047374
;
047376
4 047406

5 827“2 :
9 76416
8 047426
047432

013737

007421
032737
00 915
16
112776
00 937
162716
004736
162716
240
013737
163737

7423

0474
7

040000 001336
000004
000015 000000
001140
000002
000010
001340
001414

001140
001140

4;
45

29 ;s
43

gg
$

285S:

MOV

RMWCI,$BDDAT

;WORD COUNT ZERO??

RMWCI,SGDDAT
RMWCO SGDDAT

;GET WORD COUNT AT END OF TRANSFER AND
suamcr STARTING WORD COUNT.

MOV

RMBAO,SGDDAT

23737 001140 001342 290$:
1419

(MP
BEQ
MOV
ADD

ggmJRMBAI
5$

.aus ADDRESS 0K??
YES!!

#%,(SP)
#16.3(SP)

:ERROR NUMBER

001346

001342 001142

716 000004
112776 000016 000000

;

6 001340
m 001414

1 749 833‘680
7

;

7540
7544
7 sg

005266 33388‘
161
2

MOVB

Su8
JSR
sug
NOP

#2,(SP)
PC.3(SP)+
#10, (sP)

:WAS BUS ADDRESS INHIBIT (BAI) SET ??
*NO !!

:ADDRESS SHOULD NOT HAVE CHANGED
:BAD DATA FOR TYPEOUT
:MOVE SP TO RETURN FOR ERROR
*REPORT UNEXPECTED ADDRESS
:RESTORE (SP)

-(SP)

:NUMBER OF SECTORS TRANSFERRED

#256. ,~(SP)

;ASSUME 256. WORDS PER SECTOR

nov
SUB

RMWCI,=(SP)
RMWCO. (SP)

BIT

:g‘x,n.msw

BEQ

3008:

RMBAI,$SBDDAT

ADD STARTING BUS ADDRESS

re uueea OF SECTORS TRANSFERRED FROM WORD COUNT

MOV

001412

716 000002

626

BEQ
285$
YES
BIT
#TRE ,RMCS11]
" TRANSFER ERROR DETECTED??
BNE
2858°
SYES!!
ADD
#4, (SP)
Move
#15,a(sP)
;ERROR NUMBER
CLR
sgoin
*GOOD DATA FOR TYPEOUT
SUB
(SP)
:MOVE SP TO RETURN FOR ERROR
JSR
PC.a(SP)+
*REPORT WORD COUNT NOT ZERO
SUB
#10, (sP)
*RESTORE (SP)
NOP
-REPORT moa IF RMBA IS NOT CORRECT

001416 001140

13737

;WAS DATA TRANSFERRED ?
*NO - EXIT

%.mszx

000010

:BR IF YES

BIT
BEQ

032737
oou.g;

402

04755

ossmcn.nss

ARNAANAAARARRAAA

$GDDAT
RMBAQ, SGDDAT

0475

AR AAT NI RN

ASL
ADD

7508
72}
047514

AAAAN

:REPORT ERROR IF RMWC NOT zsno AND TRE IS ZERO

2808:

7472
716 000002
747
736
75
388716 000010
7504
240

001142

37 001140
737 001416 001140

0 047436 013737
827“
745

001340

AR AR

cMP
BLO®
JMP

6 0647316

SEQ 0198

'PERFW THE REMAINING ERROR CHECKS ONLY FOR DATA TRANSFER COMMANDS

D16

*GET WORD COUNT AT END OF TRANSFER AND
*SUBTRACT STARTING WORD COUNT.
:HEADER § DATA COMMAND
?

ADD

3008

#2,(SP)

sNO
!

INC
SUB
BGT

4(SP)
(SP) ,2(SP)
3008

; INCREMENT SECTOR co\m
*SUBTRACT ONE SECTOR'S WORTH
*CONTINUE IF NOT DONE

(SP)+,(SP)+

.cmwse T0 258. WORDS PER SECTOR

*RESTORE STACK

s COMPUTE EXPECTED SECTOR, TRACK AND CYLINDER ADDRESS FROM

NDAO RMBO FCTNL PTl MCRO VOI- 00 28-JAN-82 16:24:51 PAGE 23-1

£ 1

SEQ 0199

ONDARY ERROR CHECK

:NUMBER OF SECTORS

59 047554 013737
osossg
60 827
13737
1 5055
61 047
13737
50554
‘i 827576 13737
050560
63 067604 3 7
2’5’ 047610
7 ososw
69 047614 042737
050552
i 82776262
77 sz
go 050554

9 0476

637 osos 4

71 827640
;;

7646

001411

050552

3158:

047716

o 3737

050552

047744

ggg?

1140

013737

001370
176777

001142
001142

77;9&
‘z’

001000

001444

i
ekl ek e

(MP

BLO
INC
sus
B8R
NOP

3108

3158
505

5108,.431.

3158
5058
#31.,5108
3108
505$.5208

g 0s
5208,5058
3158

‘NO !

*NO!!
*INCREMENT TRACK

;SECTOR OVERFLOWED ?
*NO !!
: INCREMENT TRACK
*ADJUST SECTOR
*TRY AGAIN

:TRACK OVERFLOWED??

*NO!!
.mcaensm CYLINDER
*ADJUST TRACK
STRY AGAIN

MOV
BIC

CLR

RMOFI,SBODAT
:GET RECIEVED DATA AND
#°CSSEI,SBDDAT :SAVE SSEI BIT FOR COMPARE.

ssmt

:SETUP EXPECTED SSEI = 0

BIT
BEQ

cggl.mo
3

;WAS SSEI SET BEFORE DATA TRANSFER ?
:NO

BEQ

R
b

HLN=O

CMP

BLO
INC
SuB
BR

Bc?;s
ST
ADD

% 737 83}?28
56

$208:

1 001421 001345
001142

coned

e S
WU

*ADJUST SECTOR

(SP)+,5108

:REPORT ERROR IF "sssx" IS SET msn TRACK SWITCHING OCCURED
STHRU DATA TRANSFER

047750
7756

1
388%
1%

050560

7724 103407
7726
005237 050550
535 7 050560 050552
77%
766
7742 000240

)

#32.,5108

sus

:SECTOR ovmouem

7664 162737 000040 050554

777

5108,4#32.

BLO
INC

95
39

;WAS SSEI SET ?

cMP

103417
005237

3148:

#SSEI1,RMOFO

7223
7

04
10
1 82
2 00 ;
050552
77
335 7 000037 050556
04771
766

95
9

BIT

BEQ

;3 04;97 023727 050554 000037 3108:

RMDCO, S
:STORE ORIGINAL CYLINDER
RMDAOD
. 505$
*STORE ORIGINAL TRACK
RMDAO. 5108
:STORE ORIGINAL SECTOR
! TRK.5208
*STORE LAST TRACK
$
*GET TRACK ADDRES§ TO LO BYTE AND
5208
*INCREMENT TO GET TOTL # OF TRACKS.
#C<TADMSK>, 5058
:SAVE TRACK ADDRESS BITS AND
505$
:SWAP
TRACK
ADDRESS TO LOW BYTE.
#~C<SADMSK>,5108
:SAVE SECTOR ADDRESS BITS

ADD

32737 001000 001444

7% 047650 053727 050554

MOV
MOV
MOV
MOV
SWAB
INC
6IC
SWAB
8IC

MOVB

ngmon.mnm %o TRACK SWITCH OCCUR ?
DAT
+1S SSEI STILL SET ?
n (sm
:POINT TO ERROR

csgs a(sP)

*NO

*DEFINE ERROR NUMBER

:REPORT ERROR IF ‘'SSEI'’ IS INCORRECT
1$:
MoV
#SSE
A
s SETUP EXPECT:D SSEI =1

§st BEQ
CMP
ADD

323s:

SuB

c?m\ff%m
;IS
SSEI CORRECT ?
3248
YES
0526
a(sP)

*POINT TO ERROR

*DEFINE ERROR NUMBER

*ADJUST RETURN TO ERROR

NDAQ RM8O FCTNL PT1 MACRO V04.00 28=JAN-82 16:24:51 PAGE 23-2
SECONDARY ERROR CHECK SUBROUTINE

115

004736

JSR

m 0500

240

NOP

116 858% 162716 000010

119
120
050072

ooggsr

0581

135 50176
1

828176

001140
838804
17
000002
000010

5037

001140

000240

139
140 gg
141 (

0 7;7 002000
001031
0537 7 050550

143

005737

14; ~

101425

(

144 (
145 (
149 |
}l. ~

123 -

1
}

1
”n

$,#560.
3258
cy;.mm
325
#LBT,SGDDAT
RMDSI,$BDDAT

CMP
BEQ
ADD
MOVEB
SuB
JSR
SUB

DAT.$BDDAT
#%,(SP)
#17,3(SP)
#2,(SP)
PC.a(SP)+
#10, (SP)

#~CLBT,SBODAT
3308

NOP
CLR

BIT
BNE
cMP

BLOS

050552

$GDDAT

#IAE ,RMER1]
34
#560.
058

BNE
ST
BNE
gg

gsss
108
3358
%‘sm

1410
1;737
9;7
1; 7
13737
§ 7
7
413
716
776
162716
736
388716
240

. BEQ
MOV
CLR
MOV
MOV
BIC
CMP
BEQ
ADD
MOVB
SUB
JSR
sus
NOP

0$
#AOE , SGDDAT
sg
#1,5108
RMER11,SBDDAT
#~CAOE . SBDDAT
ggw.saow
s
¥4, (SP)
056 a(sP)
#2,(SP)
PC.a(SP)+
#10, (SP)

;

737

4
7
013737

ogwgg
05
1
00135
17677
001140

00000

1142

114
00114

3408:

000000

000010
002000

:REPORT ERROR

*RESTORE (SP)

*SHOULD LBT BE SET??
*NO!!
:WAS IAE SET 27
*YES = LBT SHOULD NOT BE SET
*SET GOOD DATA FOR LBT = 1
:BAD DATA FOR TYPEOUT
;IS LBT CORRECT??
SYES!!

:ERROR NUMBER

*MOVE SP TO RETURN FOR ERROR
*REPORT LBT IS WRONG
*RESTORE (SP)

-aspom ERROR IF "AOE'’ IS INCORRECT

$308:

88101;
5737
050554
1007
%7 000010

165

(MP
BLOS
BIT
BNE
MOV
MOV
BIC

5737 001340

150
151
1 ;
15
1s§
1
1
1
1;8
1
160
161
1
}

#10, (sP)

SEQ 0200

-REPORT ERROR IF '‘LBT'' IS NOT CORRECT
CLR
DAT
:SET GOOD DATA FOR LBT = 0

1140

7
1413
716
112776
162716
004736
‘1)85716

PC,a(SP)+

su8

121
76 023727 050550
15 50132 101407
1
1
7 002000
124
050114
001 ;
125
050116 01
00
1 9 050126 013737 ogg

128 85 1%
1
ggm
1 8 150
131 050154
1 g gsouz
1
sous
1 85*17

F 16

001352

sg;zs 001140
050554
001140
001344
001142

:SET FOR AOE = 0

*WAS "'IAE'’ DETECTED??
*YES=""AOE'* SHOULD BE ZERO
*SHOULD AOE BE SET??
:NO!!

*MAYBE

*YES
SYES !!
:%s'pus READ OR WRITE CHECK 2?

SWAS ALL DATA TRANSFERRED ??

SYES !
*SET FOR AOE = 1
:CLEAR EXPECTED TRACK
*EXPECT SECTOR = 1
:BAD DATA FOR TYPEOUT
.
;1S ADE CORRECTY??
SYES!!
:ERROR NUMBER
*MOVE SP TO RETURN FOR ERROR
*REPORT AOE IS WRONG
*RESTORE (SP)

-REPORT ERROR IF RMDA IS NOT CORRECT

$458:

BIT

#1AE ,RMER11

sg
ospfieow

*YES = DONT CHECK RMDA,RMDC
*SETUP EXPECTED DISK ADDRESS

MOVB
MOV

0S,SGDDAT
RMDAI,$SBDDAT

:
;SETUP RECEIVED DISK ADDRESS

BNE
's'%

:WAS THERE AN IAE ERROR 2?

(=}
-]

53
FERRRAIVZE JRJIFANAN

SEQ 0201

NOP

DAT,$BDDAT
¥%,(SP)
csi a(sP)
#2,(SP)
PC.a(SP)+
#10,(5P)

§§3:

;COMPARE EXPECTED & RECEIVED

*BRANCH IF EQUAL

:ERROR NUMBER
:MOVE SP TO RETURN FOR ERROR
*REPORT BAD DISK ADDRESS
*RESTORE (SP)

-aspoar ERROR IF RMDC IS INCORRECT

3508:

MOV
BIC

soos; AT
#°C1777,$GDDAT

;SETUP EXPECTED CYLINDER
:

MOV
CMP
BEQ
ADD
MoV8
SUB
JSR
su8
NOP

RMDCI,SBDDAT
sgmf.saom
3558
¥4, (SP)
052 a(sP)
#2,(SP)
PC.a(SP)+
#10, (SP)

ADD

#6,(SP)

3608:

gge
anpo
SUB
RTS

%&»
fisi‘” \
#6,(SP)
PC

*WAS ERROR FOUND??
;MOVE (SP) TO ERROR RETURN
:MOVE (SP) TO NO ERROR RETURN

05055

5008:

.WORD

:CYLINDER

5055
85 szg

5108:
5158:

.WORD
.WORD

*SECTOR
:FUNCTION CODE

D cch e
D
o

SRERNSSERIRR/RRS2

001140
114

cMP
ADD
MOVB
SU8
JSR
SUB

BEQ

13737 00
114
7 001740
006114
1413
7
716
112776
2 000000
162716
2
1
736
14 %m 000010
520
240

o o

osou.s 013737 050550
7 wgggg

cnd o
D

G 16

Y ERROR CHECK SUBROUTINE

e e

i s

050406
023737 001140 001142
050412 001413
050414
'712
050420 11277
1 000000
162716
2
736
033"3 000010

) D e

RMB0 FCTNL PT1 MACRO V04.00 28~JAN-82 16:24:51 PAGE 23-3

g ‘1‘3%53 000000
5 %w 000004
552% 1 715 000004

505

716

000207

35 55

505

000004

3558:

3658:
5058:

5208:

.WORD

:SETUP RECEIVED CYLINDER
*COMPARE (YL INDERS
*BRANCH IF EQUAL
;ERROR NUMBER
*MOVE SP TO RETURN FOR ERROR
*REPORT BAD CYLINDER
*RESTORE (SP)
:MOVE (SP) TO ERROR CALL

*TRACK

STOTAL # OF TRACKS = LAST TRACK +1

CZRNDAO RM8O FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 24
COMPOSITE ERROR CHECK SUBROUTINE
1

.SBTTL

SEQ 0202

COMPOSITE ERROR CHECK SUBROUTINE

sTHIS_SUBROUTINE CHECKS THE STORED CONTENTS OF RMER1 AND

5
6

sTHE MASKS ARE APPLIED.

:RMER2 AFTER MASKING EACH REGISTER WORD WITH THE USER'S STATUS

sMASKS AND REPORTS AN ERROR IF ANY BITS ARE LEFT ON AFTER

7
8
9
0

sCALL:
(1)

b
nd oed ad

H 16

md b ced md e

5
6
7
8
9
20

PC.a(SP)+

RETURN HERE IF NO MORE ERRORS

sMASK AND STORE THE CWTENT? OF RMER1 AND RMERZ2
MOV
RMER11
:STORE RMER1 AT TEMP STORAGE

BIC
MOV
ADD

b
d
-

88 88

§§

e
et

W
NNONN ~

8
7

CMPERRSTS:

2° g2
P
z

MASK FOR ERROR REGISTER 1
MASK FOR ERRM REGISTER ?
RETURN HERE IF NO ERROR
RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEFINED BY SUB
GO BACK TO SUB FOR MORE ERROR CHECKS

;:BE ZER

i
4

PC,CMPERRSTS

sNOTE: OBITS TO BE MASKED SHOULD BE ONE; BITS TO BE TESTED SHOULD

233
(=
1¥T3

ViAo

JSR
.WORD
. WORD
BR
NOP
ERROR
JSR

BIC

a(sm hm
*MASK RMER1
(SP)
. :MOVE SP TO NEXT MASK
ménz: $STMP2 STORE RMER2 AT TEMP STORAGE
a(sP) ,$TMP2

sCLEAR USER'S em CALL
ADD

CLRB

su8

1176

#4,(SP)

:CLEAR ERROR NUMBER

;MOVE SP TO USER'S ERROR CALL

:LEAVE SP AT NO ERROR RETURN

‘uo5finon foneponm

;SEE IF mene WERE ANY ERRORS IN msm

001176

gmo

a(§n

*MASK RMER2

MOV
ADD
MOVB

001142

000005

)

JSR

's‘tog

000010

$TMP1
53

$TMP1,$BDDAT
sfouf
#4,(S5P)
s&.a(sp)
#2,(SP)

PC.a(SP)+

#10, (sP)

.E.

‘:!EtscsxVED STATUS FOR TYPEOUT
XPECTED STATUS FOR TYPEOUT
moxsn
SP TO USER'S ERROR CALL
:CORRECTABLE DATA CHECK ERROR #
:MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER
:MOVE SP BACK TO BRANCH

5%:

| g

;SEE IF THERE ARE_ANY ERRORS TO REPORT IN RMER2 (STMP2)
TST
$TMP2
Am”V ERRORS IN RMER2?

gg%" 335737 w

BEQ

001142

MOV
CLR
ADD

MOVB

$TMP2,$BDDAT
$GDDAT
#4_(SP)

#67,3(SP)

:RECEIVED STATUS FOR TYPEOUT
*EXPECTED STATUS FOR TYPEOUT
*MOVE SP TO USER'S ERROR C

;WRITE ERROR NUMBER IN USE#S CALL

|
|

CZRNDAQ RMBO0 FCTNL Pt‘l MACRO VOG 00 28-JAN-82 16:24:51 PAGE 24~1

116

SEQ 0203

COMPOSITE ER®TM" CHECK SUBROUTINE

16
00000
o
088"3 000010

8§
53 ;"'8 ;33
7

8850;2’6

64
es 05074

108:

#2,(SP)
PC.a(SP)+
#10, (sP)

iMOVE SP_TO RETURN FOR ERROR
REPORT ERROR VIA USER
iMOVE SP TO NO ERROR RETURN

osgn

883%

;AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED
ADD
#4, (SP)
:MOVE SP TO USER'S ERROR CALL

716

000004

208:

§§10572
gg
8 %«o 000004
7

SUB
SUB

JSR

;‘1’ o§3793 ] zo?

308:

;ga
ago

%Sm
535‘3”

nos THERE AN ERROR CALLED??
:YES = MOVE SP TO ERROR RETURN

SUB

#4,(SP)

:MOVE SP TO NO ERROR RETURN

RTS

*RETURN TO USER

.SBTTL

SEQ 0204

DEVICE SELECT SUBROUTINE

sCALL:
(1)
()

JSR
BR
NOP
ERROR

(3
:(3)

;CLEAR USER'S ERROR CALL

£M
&~
SO

O SRS
Y
e

=i=]
800
oS KRS

CLRB

L. ¥3.3

e
N

000004
000006

#4, (SP)

a($P)

#4,(SP)

sMOVE SP TO USER'S ERROR
sCLEAR LOW ORDER BYTE OF CALL
sMOVE SP BACK

MOV
MOV
MOV
MOV

MOV

RO,=(SP)
R1.=(SP)
#208
., ERRVEC
#PR6. ERRVEC
+2
$BASE ,RO

TSTQUE,R1

::PUSH RO’ ON STACK
2:PUSH R1 ON STACK
*SETUP FOR BUS TIMEOUT

;RO = UNIBUS ADDRESS
:R1 POINTS TO DEVICE NUMBER

sSELECT DEVICE A'(D VERIFY THAT DEVICE IS AVAILABLE
R1) %szmo)
SWRITE UNIT SELECT BITS

000010

MOV
MoV

RMCST(RO) , STMPI :GET 'DVATM STATUS
RMCS2(RO)
. $TMPO sGET "NED'* STATUS

010000

BIT

006711

ADD

#NED,STMPO
108
#4 10(SP)

004000

move

BR
108:

000112

#111.310(sP)

308

BIT

#DVA,STHP1

ggva

#112,310(sP)

BNE
ADD

35$
#4,10(SP)

-HANDLE BUS TIMEOUT

208:

R SO

FRFF

RETURN IF NO ERROR
RETURN IF ERROR
ERROR DEFINED BY SUBROUTINE

sSAVE USER'S INFORMATION AND SETUP REGISTERS
MOV
ERRVEC ,=(SP)
:;PUSH ERRVEC ON STACK
MOV
ERRVEC+2,~(SP)
- :PUSH ERRVEC+2 ON STACK

051144
000300
001276
001466

b e
b

wvivwwawv

wviawmiwn

e crvch e
vy a2
e

b ed et ed b
b ad b b S

d o o
sed ek

o e

Vil

OO0
(=l=iod=] 2o

PC.DEVSEL
22

DEVSEL:

sus

(=li=i=l=1=]

USSELESRERSS

J 16

; THIS SUBROUTINE SELECTS THE DEVICE, GETTING THE DEVICE NUMBER FROM THE
: TEST QUEUE.

VIS
W -

ded-‘-l-l-b-l-.fl
D00 NN
NN 2 SO 00 NO W S NN =

CZRNDAO RM80 FCTNL PT 1 MA CRO V04.00 28-JAN-82 16:24:51 PAGE 25
DEVICE SELECT SUBROUT INE

113
00002

308:

CMP

ADD

move
SuB

(SP)+, (SP)+

#%,10(SP)

#113,a10(sP)
#2.10(sP)

;1S DEVICE NONEXISTENT ?

*MOVE SP TO USERS ERROR CALL
*WRITE ERROR NUMBER

:ggsqgme AVAILABLE ?

*MOVE
SP TO USERS ERROR CALL
*WRITE ERROR NUMBER

sADJUST SP
sMOVE SP TO USERS ERROR CALL
sWRITE BUS TIMEOUT ERROR NUMBER
sADJUST RETURN TO *NOP' PRECEDING
:THE ERROR CALL

;RESTORE USERS DATA AND RETURN TO ADDRESS ON STACK

£113

MoV
MOV
MOV

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

:;POP STACK INTO R1
::POP STACK INTO RO
:;POP STACK INTO ERRVEC+2

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 25-1

K 16

SEQ 0205 |

DEVICE SELECT SUBROUTINE

52 051582 805337
051

12637

000004

RTS

MOV

(SP)+.ERRVEC

SEXIT

;:POP STACK INTO ERRVEC

L 16

.SBTTL

THE SUBROUTINE RETURNS TO THE CALLING ROUTINE IF AN ERROR IS DETECTED
:AFTER HAVING LOADED THE APPROPRIATE ERROR NUMBER IN THE ''ERROR'* TRAP

OF THE CALLING ROUTINE.
CAI.L

051508
051210
051214
0515 0
051224

ooo;ao
062716
105076
162716
005037

JSR
7?

PC,a(SP)+

(£ £

RETURN HERE IF NO ERROR
RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEFINED BY SUB

GO BACK TO SUB FOR MORE ERROR CHECKS
RETURN HERE IF NO MORE ERRORS

;CLEAR USERS' ERROR CALL

NOP
ADD
CLRB
SUB
CLR

000004
000000
000004
052464

051250 9 001140
51254 013737 001352 001142
51
716 000004

51 95 11277

#6,(SP)
#, (SP)
3008

a(SP)

:MOVE (SP) TO ERROR CALL
:CLEAR ERROR NUMBER
*MOVE (SP) TO NO mon RETURN
*CLEAR ERROR FLAGS

;TEST FOR MASSBUS coumog.su§ mm ERROR WHEN WRITING

*LOCAL assxsms

aso
BIT

iPAam’tu1
meRMER2I

1 AND ‘DPE’’ = 0
%s
PARITY ERROR DETECTED??
*WAS IT DUE TO CONTROL BUS??

$GDDAT

;EXPECTED STATUS
:RECEIVED STATUS
*MOVE STACK TO USER'S ERROR

BNE
1$
SNOT SURE!!
:REPORT nes‘sren PARITY ERROR VIA USER'S ERROR CALL

CLR

MOV
ADD
MOVB
sUB
JSR

50 000000

40 051274 5&716 000002
41 051

2‘ 1

PC 5SEKSTS

SEKSTS:

051246 001020

4.5 31

JSR

BR
NOP
ERROR

SEEK STATUS IS CHECKED AS FOLLOWS:

1 71 000010

SUB

035«

amm $BDDAT
sP)
csb a(sn
. (SP)
a(sm

6(5»

*ERROR #50

*MOVE SP TO RETURN FOR ERROR

:RESTORE STACK

:IAE SHOULD BE ZERO

;DETERMINE THE VALUE
OF ''IAE'* STATUS BASED ON TRACK, SECTOR, CYLINDER

IF CYLINDER ADDRESS IS TOO LARGE.

4»3

*AND THE STATUS OF

43 gt 10 01 g?
%
1140 1$:
49
051316 85 7
052464
50 051324 5 7 001446
001060

51 051
gg 51

101 s
042
040000 052464

§" 351;42 3737

S 051350 101026

001421

001335

§$ 051352 123727 001420 000035

MOV
BIS
CMP

BHI
BIC

CMP8

BHI

CMPB

‘‘SSEI'* BIT DURING A SEEK OPERATION. ALSO. SET ‘'SKI'

#IAE, SGDDAT
#SKI .
RMDCO, #560.

3s
#SK1,3008

;SETUP FOR IAE = 1
*SETUP FOR SKI = 1
*GREATER THAN LAST CYLINDER ?

*YES = CYLINDER IS INVALID
*CLEAR SKI ERROR FLAG

RMDAO+1,LSTRK+1 ;GREATER THAN LAST TRACK ?

RMDAD,#29.

*YES = TRACK IS INVALID

;SECTOR > 29. ?

(V.]

T W

SEEK STATUS CHECK SUBROUTINE

:STORED IN THE GET BUFFER AND TEST PARAMETERS STORED IN THE PUT BUFFER.

: g}g gggzsz 000010 001352
g 5134 032757 000010 001400
5

SEQ 0206

sTHIS SUBROUTINE VERIFIES THE RESULTS OF SEEK TESTS USING STATUS

—g——

9 i dgooqombmdsoaw“bwd

CZRNDAO RM80 FCTNL PT1 MACRO V04.00 28~JAN-82 16:24:51 PAGE 26
SEEK STATUS CHECK SUBROUTINE

]

RNDAQ RM80 FCTNL PT1 MACRO V04.00 28-JAN=-82 16:24:51 PAGE 26~1
EK STATUS CHECK SUBROUTINE

0 7§9 010000 001444

€1

051

123727

60 051

1200

1014

419

1014

001420

000036

001000

001444

64 05141
14
65
051412
123727
001420
g9 1420
101002
% 051422 005037 001140
71
g
7%
75
;9
;g
1

5"’52 8!1. 7 091;;;
514
57 7 175
5144 85 7 001140
0514
1004
0514
04000C
s}
13

051462

001142
001142
001142
052464

716 000004

suge 112776 000051 000000

85 05151

:BR IF NO

BEQ

#FMT16,RMOFO

RMDAO,#30.

*YES - SECTOR IS INVALID FOR 18 BIT MODE
*SECTOR > 30. ?

BIT

#SSE1,RMOFO

BLOS

B8EQ
CMPB
BHI
CLR

:18 BIT FORMAT ?

33
RMDAO.#31.
5%
$GDDAT

:BR IF NO

+1S SSEI CLEAR ?

$YES = SECTOR IS INVALID FOR 16 BIT MODE
:SECTOR > 31, ?
*YES - SECTOR IS INVALID
:"'IAE"* SHOULD = 0

;COMPARE EXPECTED AND aecxsveo "“JAE'* STATUS

MOV
BIC
CMP
BNE
BIC
BR

RMER11,$BDDAT
#°CIAE.saow
sgom.saom
35

;IS IAE 0K??
*SAVE IAE BIT FOR COMPARE
*CORRECT "'IAE'’ STATUS?
:BR IF NO
:CLEAR SKI FLAG
*60 CHECK NEXT ERROR

ADD

#6,(SP)

SuB
JSR
sua

#2,(SP)
PC.a(SP)+
#10. (sP)

:ERROR 51

cgau.3008
o
:REPORT INCORRECT “'IAE'’ STATUS VIA USER'S ERROR CALL

MOVB

051474 162716 000002
51580 004736
51502 162716 000010

51503 000240

SEQ 0207

CMPB

28:

BLOS

BIT

000037

NOP

58:

osi a(SP)

*MOVE SP TO RETURN FOR ERROR
*REPORT INCORRECT IAE
sRESTORE (SP)

:REPORT ANY IVC ERROR AS

gmo §§gz3; 010000 001400

3% s1§

1526
% s1g 2
g1

ggir

013737
716

1140

1 779

§}8510 el
fe3rie 000010

1576

1
}

1
1

18
114

013737

0014

1142

7 137777
1417

001140

013737 05;494

12776

040600

38330‘

$GDDAT

*EXPECTED STATUS

move

#60.3(sP)

*ERROR 60 IF W = 0

518:

1145
1140

001142

67 000000

528:

RMER21 ,$BDDAT
#, (SPS

gfl
MOVB

‘¥¥""‘°“
:gm(sn

T <N

MOV

BIC

#°CSK1.SBDDAT

BIC
8EQ

#4CSKI, seoon
538

SUB

7 ?27799

SRR
oY

110
w

1612

33727

1204

CLR

MOV
ADD

oooggo

162716

S383

ERRONEOUSggc.me
TVC ERROH
VOLUNE
VALID IS SET
R21
'x‘gc ERROR??

Béq

001400 001142

99 s} 53 301133
"
51554 11 796 38333’ 000000
51

:°

MOV

RMER21,$8DDAT

305:$GDDAT

:RECEIVED STATUS
:MOVE SP TO USER'S ERROR

;ERROR 61 IF W = 1

*MOVE SP TO RETURN FOR ERROR

IRESTORE SPOT V1A USER
:RECEIVED STATUS

:CLEAR DONT CARES

*GET EXPECTED SKI STATUS
:CLEAR DONT CARES
*BRANCH IF O EXPECTED

;REPORT ERROR IF SKI IS NOT SET (IAE WAS NOT DETECTED)
BIT
osx:.saoo
AT
uegSKI DETECTED ??
BNE

ADD

MOVB

;

6 a(sP)

*MOVE sp TO USERS ERROR CALL
:WRITE ERROR NUMBER

(=)

*fl
(]

w
-

m
x

Fre

TNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 26-2
CK SUBROUTINE

115 0513
1 %2 000002
119 51
117
051
162716 000010
113 821
4
;1
1666

538:

121

:REPORT ERROR IF sxx IS SET

1 5851
123
051674
124 851%
125 051
1 9 821"
1
1714
1 osms
} 05172
131

}

134

051

032737 040000 001142
001413
716
776 oooon
unng‘a 000000
162716 000002
0047
(1)85716 000010
240
3;17.37 000200

001400

sogg 001140

BIT
ADD
MOVB
SUB
- JSR
Sus
NOP
BEQ

}21 051772

145

162716 000010

000240

#DVC ,RMER2]

MOV
ADD
MOVB
SUB
JSR

nnsazx $BODAT
sP§
csS a(sn
2,(SP
acsm

CLR

sus

6 (SP)

:MOVE SP TO ERROR RETURN
*REPORT ERROR AND RETURN
*MOVE SP TO NO ERROR
*GO TO NEXT ERROR CHECK
;1S SKI SET 22
:MOVE (SP) TO ERROR
:LOAD ERROR NUMBER
nove SP TO RETURN FOR CRROR
*REPORT SEEK ERROR
*RESTORE (SP)

*NO - SKI IS OK

:%g.msne DVC DURING SEEK??

*EXPECTED STATUS
:RECEIVED STATUS

;ERROR #55

*MOVE SP TO RETURN FOR ERROR
*REPORT ERROP VIA USER

*RESTORE SP

*BECAUSE ON CYLINDER LATCH DIDN'T es;
gg

m og

1'4'9 05

5957 001140

1snz

001352

001142

150 §s
11 m’. sooon
nung oooggo
P% g
33%3 10005 001350
12 §s 0 112776 888833 000000
05
162716
2
05 g
736
052054 162716
000010
5
24

159

160
161 g
}
3

013746 0013;9
042716 0476
1ms 110100

78:

g 104

}90
171

}'z
15‘

11{

032737 010000

001350

4 W— S
3957 001350 001140

.;"gg

mg,mw

'5555"('3)%'25

CLR

$GDDAT

MOVB
gg
MOVB

c?é.a(sn
#MOL ,RMDS 1
zgs.a(sm

SUB
JSR
suB
NOP

MOV
8IC
%

JMP

zgn.ms 1

#2,(SP)
PC.a(SP)+
10, (5P)

-SEE IF 'PIP" = 0,

B%:

‘1’3; 052434

GDDAT

SEQ 0208

;REPORT ANY 'OPI'* ERROR AS OPI r MOL =0, OR OPI

}:.s 825"3 33%13; 020000 001352 6S:

SK1,SBDDAT
¥4, (SP)
csl.a(sr)
(sP)
|
PC ‘3(SP)+
#10, (5P)
s:.s

NOP

144

154
155
156
}ia

#2,(SP)
Pg a(sSP)+
#10, (sP)
%

-REPORT ANY DEVICE CHECK

54$:

135 051740 013737 001400 001142
136 051746
716 ooooga
1 oswgg 112776 000055 000000
138 051760
162716 000002
139 051764 004736

140 051766

suB
JSR
sUB
B8R

*LOAD ERROR mnean '
:%s MEDIUM ON LINE??
SYES - CHANGE ERROR NUMBER

*MOVE SP TO RETURN FOR ERROR
*REPORT 'OPI''E
*RESTORE (SP)

AND "m" "MOL'* AND ‘WV'* = 1

148

BIT

#MOL , RMDS I

E,’.E
MOV

18'3""""‘"
RMDSI,$GDDAT

BNE

*EXPECTED STATUS

RMDSI , = (SP)
#5C h-mmouvw (SP)
&mm
WV, (SP)+.
N

-REPORT ERROR IF MOL
= 0

Os:

ERROR??

108

Em'Isu Ixs 0K

1=0

:1S

MOL RESET??

*NO - MOL IS SET

‘#g orlxms‘gnerom ERROR
;EXPECTED
STATUS

RNDAQ RMBO FC TNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 26-3
EK STATUS CHECK SUBROUTINE

521

52737

174

0521

I gl 13
I g
18 8%
I8l
1;% 174 :§§ 020000

81e

181

1
1
185
139
1
1

5
052212
52214
5
5

001024
013737
7
13737

§§0000
1350

1
91

42
50

112776
162716

56
2

1§§ 5

716

001024

716

736

SR
RN

o;xx.mnzx

*WAS "'SKI''SET??

118
RMDSI,$GDDAT
#PIP, $BDDAT
RMDSI,$BDDAT
#6, (SP)
#56,3(SP)
#2,(SP)
PC.a(SP)+
#10, (SP)

*YES=DONT REPORT PIP
;EXPECTED STATUS
;RECEIVED STATUS
*MOVE (SP) TO ERROR
*LOAD ERROR NUMBER
:MOVE SP TO RETURN FOR ERROR
*REPORT ‘PIP'* SET AFTER SEEK
sRESTORE (SP)
.-geg"‘m\" SET 22

?g1350

MOV

RMDSI.SGDDAT

:EXPECTED STATUS

000004
000057
000002

MOV
ADD
MOVB
SUB
JSR

RMDSI,$8DDAT
#%, (SP)
#57.3(SP)
#2,(SP)
PC.a3(SP)+

:;RECEIVED STATUS
*MOVE (SP) TO ERROR
:LOAD ERROR NUMBER
*MOVE SP TO RETURN FOR ERROR
*REPORT ATTENTION NOT SET DURING

000010

SU8

BIS

NOP

#ATA!MOL
! DPR ! DRY . SGDDAT

#10,(SP)

*SEEK TEST
sRESTORE (SP)

-REPORT ERROR IF VOLUME VALID IS RESET AND IVC IS ZERO

13s:

1450
DS

BIT

#ATA,RMDS I

1350

.-'x“s)"imr STILL SET??

:REPORT AN ERROR IF "‘ATA'’ IS NOT SET

11s:

010000

*REPORT ERROR VIA USER

g'xé

000100

8383 082518

:MOVE SP TO RETURN FOR ERROR

mp.msx

NOP

gt
1 05 18 13737 001258
52316

;RECEIVED STATUS

gg‘

BNE
MOV
BIC
MOV
ADD
MOVB
su8
JSR
sUB

194 85 62 08%240 000010

198

#10, (sP)

PC,a(SP)+

SEQ 0209

:REPORT AN_ERROR IF 'PIP'' IS STIL SET AND SKI NOT SET

fos:

1350

i
197
05 93 032737 100000

NOP

040000

195

RMDS],$BDDAT
#6,(SP)
lsé.a(sn
. (SP)

JSR

000010

#MOL ,SGDDAT

MOV
ADD
MOVB
SUB

2
000010
14$:

g'xg

mf.mosx

JISW =022

BIT
BNE
MOV
BIS
MOV
ADD
MOVB
SUB
JSR
suB

#1VC ,RMER2I
14$
RMDSI,$GDDAT
#VV,$GDDAT
RMDSI,SBDDAT
#%, (SP)
3(SP)
#2,(SP)
PC.a(SP)+
#10, (sP)

:1S 1vC ALSO 0 ??
*NO - IVC IS SET
:EXPECTED STATUS
;RECEIVED STATUS
.
;ERROR #64
*MOVE SP TO RETURN FOR ERROR

NOP

sMODIFY Lfig RETURN ADDRESS IF AN ERROR WAS DETECTED
ADD

#4,(SP)

sMOVE (SP) TO ERROR CALL

CZRNDAQ RM80 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 26~4

SEQ 0210

EK STATUS CHECK SUBROUTINE

§§2§

gi:gg

000000

S 000004

855423
052464

716 000004

000000

;gzfl

?;i”

::%?!ERROR CALLED??

ADD

#4,(SP)

:MOVE TO ERROR RETURN

168

15%:

16$:

RTS

suB

#4,(SP)

[

;MOVE (SP) TO NO ERROR RETURN

3008:

.WORD

sERROR FLAGS

sRETURN

W-fi—l—l-‘d-fld
VIS WN=O0VR~NONWVS
W

=2
e

N =0 000N
VIS NN =

F
MACRO V04.00 28-JAN-82 16:24:51 PAGE 27
EAR SUBROUTINE
.SBTTL

SEQ 0211

CONTROLLER CLEAR SUBROUTINE

sTHIS SUBROUTINE CLEARS THE MASSBUS CONTROLLER, MASSBUS ADAPTERS,

:AND DRIVES, THEN SELECTS THE DRIVE.

ICALL:

;ggon

:
466

‘93 010046
470
010146

472

013746 000004

542

022626

47
510
51

CNTCLR:

NOP

108:

544
888810
gg(z’ 112776
7
10
360 162766
2 000010 e
sgs 012637 m
5
12637
576
012601

PC,CNTCLR
27%

RETURN HERE IF NO ERROR FOUND

RETURN HERE IF ANY ERROR FOUND
SUB DEFINES ERROR NUMBER

MOV
MOV

RO,=(SP)
R1.=(SP)

:PUSH RO ON STACK
::PUSH R1 ON STACK

MOV
MOV
MOV
MOV
MOV
MOV
MOVB
BR

mvscoz.-csm
#10S, ERRVEC
#PR6. ERRVEC
+2
$BASE ,RO
ocun.incsz(no)
TSTQUE ,R1
(fi).nficsmm
2

:PUSH ERRVEC+2 ON STACK
;SETUP FOR BUS TIMEOUT
;RO = UNIBUS ADDRESS
*CLEAR MASSBUS
*GET DEVICE UNDER TEST'
*SELECT DEVICE

MOV

81 749 e
1
803 42 000004
012737
300 000006
81
1276
g
1§;So
0 000010
013701
001466
5
111162
10
540 00041

1 628(7)

JSR

ADD
MOVB
sus
MOV
MOV
MOV
ggg

enfivec =(SP)

(SP)+, (SP)+

p;,10(SP)
.03
(sn

::PUSH ERRVEC ON_STACK

:ADJUST STACK

:MOVE SP TO USER'S ERROR CALL
*WRITE THE ERROR NUMBER
:ADJUST SP TO RETURN TO ERROR
(SP)+,ERRVEC+2
:POP STACK INTO ERRVEC+2
(SP)+ ERRVEC _ ::POP STAEK INTO ERRVEC
(SP)+.R1
::POP STACK INTO R1
)+.RO

*:POP STACK INTO RO

|
:

CZRNDAO RM80 F CTNL_PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 28

SEQ 0212

CONTROLLER CLE AR STATUS CHECK SUBROUTINE

.SBTTL

CONTROLLER CLEAR STATUS CHECK SUBROUTINE

sTHIS SUBROUTINE VERIFIES THAT THE SUBSYSTEM IS INITIALIZED BASED ON
sSTATUS STORED IN THE GET BUFFER. THIS SUBROUTINE SHOULD ONLY BE
sUSED FOLLgHING A CONTROLLER CLEAR OPERATION 1.E. WRITING A 1 }N BIT

:5 OF RMCS

BECAUSE THE ERROR MESSAGES ARE BASED ON THAT CONDITION.

:
sCALL:

JSR
BR
NOP
E RROR
J SR
272

PC,CLRSTS
-

PC.a(SP)+

RETURN HERE IF NO ERROR
RETURN HERE TO REPORT AN ERROR

ERROR NUMBER DEFINED BY SUB
GO BACK TO SUB FOR MORE ERROR CHECKS
RETURN HERE IF NO MORE ERRORS

CLRSTS:

062716 000004
105076 000000
162716 000004

;CLEAR USER'S ERROR CALL

ADD
CLRB
SUB

#4,(SP
a($P)
#6,(SP)

BIC
MOV
[/
BEQ
ADD
MOVB
SuB
JSR
su8

#sC
T
:IGNORE SPECIAL CONDITION
#DVA'RDY,SGDDAT *EXPECT DVA & RDY
S
. SBDDAT :COMPARE EXPECTED, RECEIVED
5
BRANCH IF EQUAL
¥4, (SP)
MOVE SP TO USER'S ERROR CALL
#126,a(SP)
:WITE ERROR NUMBER IN CALL
#2,(5P)
MOVE SP TO RETURN FOR ERROR
PC.a(SP)+
*REPORT ERROR VIA USER
#10, (5P)
*MOVE SP BACK TO NO ERROR

803%7 001140
§s:
13737 001342 001142

MOV

RMBA]
, $BDDAT

112776 W 000000

MOVB

0125 a(sP)

:MOVE SP TO ERROR
:CLEAR ERROR NUMBER

“MOVE SP BACK TO NO ERROR

-REPORT ERROR IF aficgt NOT INITI ALIZED
013737 001336 oomg is:
MOV
RMCS11,SBDDAT
:VERIFY RMCS1

8”5737
12737
23737
1613
716
112776
162716
736
585716

IN PARTICULAR, THE

ATA,ERR,PIP,MOL
,WRL ,LBT,PGM,VV,0M,UNS, SKI,DVC

: (1)

ARS

W BB ng—l-fld—lddd b
RN W el=lelelelelelelel] [=1=1=]

sSTATUS PERTINENT TO THE DEVICE IS NOT CHECKED.
*FOLLOWING STATUS BITS ARE NOT CHECKED:

100000 00114
004200 88""0
001140
001142
000004
000126 000000
000002
000010

REPORT %m
IF$SGDDAT
RMBA NOT RESET
CLR

005758
A
523 000010

13737 001346 001142

10146
%?
1
001466

3He

o0 1

015653 900199

580,
0%6.(3?)

sVERIFY RMBA IS ZERO
sBRANCH IF ZERO
sMOVE SP TO USER'S ERROR CALL
sWITE ERROR NUMBER IN CALL
sMOVE SP _TO RETURN FOR ERROR
sREPORT ERROR VIA USER
sMOVE SP BACK TO NO ERROR

-REPORT ERROR IF RMCS2 NOT INITI

78:

MOV

MOV
CLR
MOV

Nie
AoV

RMCS21 ,$BDDAT

R1,-(5P)
-($P)
TSTQUE ,R1

(3D
(50)
(SP)+,$GDDAT

;

Eg){rscr IR © UNIT NUMBER

CZRNDAO RM80 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 28-1

SEQ 0213

CONTROLLER CLEAR STATUS CHECK SUBROUTINE

23 82 % 8 937 001140 001142

cMP

12601

60 05
61 g

1613
716
0 112776

130

000010

2; 32

000000

3«3

53100

85;108
53110

240

013737 001362 001142
042737
6 001142

1 053116 °-§ 37
053126 023757
531
1413
84 0531
716
S

053140

"’S

112776

001142

000133

000000

CLR

MOV
BIC
BEQ
ADD
move
SUB
JSR
su8
NOP

i3$:

MOV
BIC

MOV
BEQ
ADD

move

)

15
736
53154 ‘1)8‘2,716 000010
53160

JSR
SUB

260

NOP

716

ADD

91 053162 005037 001140
(T
3; ; }§§ 1;2%; 001404 001142
gx

05317

112776 388‘1’?? 000000

move

10
162716 000002
9
14
736
3 : 5 335513 000010
1

}

} 4

g gls.

1
“o

m§

001142

112776

7%
7

162716

1140
136

736
713 000010

#4,(SP)
0530 a(sP)
#2, ($P)
PC.a(SP)+
#10, (sP)

*BRANCH IF EQUAL
*MOVE SP TO USER'S ERROR CALL
*WITE ERROR NUMBER IN CALL
*MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER
*MOVE SP BACK TO NO ERROR

*COMPARE EXPECTED & RECEIVED

$GDDAT

RMER11, SBDDAT
L SBDDAT
1
#%, (SP)
#1351.a(sP)
#2,, ($P)
PC.a(SP)+
70, (SP)

:VERIFY RMER1

:IGNORE UNSAFE
*BRANCH IF ZERO
*MOVE SP TO USER'S ERROR CALL
:WITE ERROR NUMBER IN CALL
*MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER
:MOVE SP BACK TO NO ERROR

RMMR11 SBODAT
:VERIFY RMMR
#MICILSILST, SBDDAT
: IGNORE WORD CLOCK, SCT., TRK

#MD , SGDDAT

#4,(SP)

:EXPECT WRITE DATA BIT
*COMPARE EXPECTED AND RECEIVED
*BRANCH IF 0
:MOVE SP TO USER'S ERROR CALL

#2,(5P)

:MOVE SP TO RETURN FOR ERROR

sgm.saow

#133,a(sP)

PC.a(SP)+
#10, (sP)

:WITE ERROR NUMBER IN CALL

*REPORT ERROR VIA USER
:MOVE SP BACK TO NO ERROR

RO L AT - 1S NoT RESET. 2
C21,$BDDAT :VERIFY u@‘c’g =0
#%_(SP)

:MOVE SP TO USER'S ERROR CALL

#2,(5P)
PC,a(SP)+
#10, (sP)

*MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER
:MOVE SP BACK TO NO ERROR

#135.a(sP)

:WITE ERROR NUMBER IN CALL

-REPORT ERROR IF RMMR2 NOT INITIALIZED-I

ms i9s:

;;6

SUB
JSR
s#

;g; (1)21376

;;y 11”999

i3
:sPOP STACK INTO R1

-REPORT ERROR IF RMMR1 NOT INITIALIZED-IGNORE WC,LS,LST

10 001140

001140

162716 000002

(SP)+,R1

-REPORT ERROR IF RMER1 NOT RESET-IGNORE UNS

005037 8811:.

5
1
135 38""5
5
7 04
114
71 053052
413
5
716 000004
112776 000131 000000
7% 05
162716 000002
75 05
736
;9 5307, 588716 000010
;g

BEQ
ADD
MOVB
sus
JSR

gmf.saow

1140

000000

RMMR2T , SBDDAT . :VERIFY RMMR

MOV

:"r's‘r‘n

ADD

¥ (SP)

:MOVE SP TO USER'S ERROR CALL

SUB

#2,(5P)

:MOVE SP TO RETURN FOR ERROR

acg
Move

JSR
%

$SGDDAT

ROA,RQB

ggm.swm

#136.a(sP)

pg a(SP)+
#10, (5P)

:EXPECT TEST BIT ON

*WITE ERROR NUMBER IN CALL

*REPORT ERROR VIA USER
*MOVE SP BACK TO NO ERROR

11§
:REPORT ERROR IF RMER2 NOT RESET-IGNORE SKI,DVC
1
7
001140
21$:
CLR
$GDDAT
1% 82&”0‘ 8?§9§7 331400 001142
MOV
RMER2I,$BDDAT :EXPECT
:VERIFY ALL
MER5ZEROS

SEQ 0214

(=nlal

ZRNDAO RMBO FCTNL PT1 MACRO V04.00 za-m-az 16:24:51 PAGE 28-2

ONTROLLER CLEAR STATUS CHECK SUBROUTINE

115

119
117 05
113
13
1
} 1 233

1§

737

124 0

}1 9.

128
1
1
1
1
}

001142

BIC

BEQ
ADD
MOVB
SuB
JSR
ag

doo

134

000000

2
000010

}

}
g
140 05
05
05

381“54."0n 381142

888%

49
0

000004
000004
:

IS§1'DVC.$BDDAT:IGNORE DEVICE ERRORS

#6, (SP)
#174,3(SP)
#2,(SP)
PC.a(SP)+
#10, (5P)

*BRANCH IF OTHER BITS 0
*MOVE SP TO USER'S ERROR CALL
*WITE ERROR NUMBER IN CALL
*MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER
“MOVE SP BACK TO NO ERROR

RMDSI,$BDDAT

;TEST DRIVE STATUS REGISTER

L (§P)
pg a(sm
0. (sp)

:BRANCH IF EQUAL
*MOVE SP TO USER'S ERROR CALL
*WRITE ERROR NUMBER
“MOVE SP TO RETURN FOR ERROR
*REPORT ERROR TO USER
*MOVE SP BACK TO NO ERROR

agmr
moa IF RMDS NOT INITIALIZED

09;3;9 88""5 2

141
142

040200

613
712
1
174 000000
162716
2
736
1 ;1 000010

CMP

BEQ
ADD
MOVB
su8
JSR
%

ng;”sgbfiob@:’vscren
DRIVE STATUS
T.SBDDAT :COMPARE EXPECTED & RECEIVED
0131.a(sn

228:

ADD

#4,(SP)

:MOVE SP TO ERROR CALL

53::

ano
suB

52‘(5»)
#4,(SP)

*YES = MOVE TO ERROR RETURN
:MOVE SP TO NO ERROR RETURN

4$:

;ga
NOP
RTS

2§§”
PC

%s AN ERROE DETECTED??

C RMB0 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 29

SEQ@ 0215

PACK ACKNOWLEDGE STATUS CHECK

.SBTTL

PACK ACKNOWLEDGE STATUS CHECK

§4

;THIS
SUBROUTINE CHECKS THE RESULTS OF A PACK ACKNOWLEDGE
*COMMAND USING THE STATUS STORED IN THE GET BUFFER. ERRORS ARE

sCALL:

9
10
1
15

:
:
:
:

}s 053464

ACKSTS:

*REPORTED TO THE USER VIA THE USER'S ERROR CALL.

(1)

}‘

19
13 05
19 05
g

SUB

0535

32737

000100

001350

53516

052737

oomgo

1140

05
053550
53552
gsss
560

1024
013737 001350 001140

162716 000002
004736
162716 000010
000240

BNE
MOV
BIS

010000 001350

ag
576
4
4§
12
43 053616
4% 053624
45 05

10293
1140
001
1142
1 000000

‘9 5

4 og
23 0

801350

MOV

BIS
MOV
ADD
MOVB
sU8
JSR

000010

sus

2%:

5 §s§§

040000

5 §

SUB
JSR
SUB
NOP

E,‘}

060007 001352

PC,a(SP)+

RETURN HERE IF NO ERROR
RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEF INED BY SUB
GO BACK TO SUB FOR MORE ERROR CHECKS
RETURN HERE IF NO MORE ERRORS

001352

001352 001142

¥4, (SP)

NOP

;MOVE SP TO ERROR CALL
:CLEAR LOW ORDER BYTE
*MOVE SP BACK
;1S VOLUME VALID SET??

18
ns scow

YES!!
*EXPECTED STATUS

L(5P)
PC a(sm
#10, (SP)

*MOVE SP TO RETURN FOR ERROR
*REPORT THE ERROR
*MOVE SP BACK TO BRANCH

m&x seow
;sfi
ns a(sP)

:REPORT AN emoa IF noL" 1S 0

1140

1 3532‘&2

MOV
ADD
MOVB
18:

og 560

5 298

27%

;REPORT AN ERROR IF "WV IS 0
BIT
#VV,RMDS]

5 sglz. 13737 001350 001142
8
053532
062716 000004
05 222 112776 000155 000000
1

272

PC,ACKSTS

;CLEAR USER'S moa CALL
ADD
CLRB ac&m

716 000004
105076 000000
534764 162716 000004

% 05
S 053510

JSR

BR
NOP
ERROR
JSR

msx ssow

#MOL
RMDS |
w
#%, (SP
cl.i.a(sr)
.(SP)
C.a(SP)+

6.<sm

:RECEIVED STATUS
:MOVE SP TO ERROR CALL
*WRITE NUMBER IN ERROR CALL

xgsnm. SET??

*EXPECTED STATUS

:RECEIVED STATUS
-novs SP TO ERROR CALL
WRITE NUMBER OF ERROR IN CALL
-nove SP TO RETURN FOR ERROR
REPORT TH ERROR

iMOVE SP TO BRANCH

;SEE IF 'ms L' 0PI, "RMR",ILR"’, OR "‘ILF'* IS SET
seo

:}nf'owfim'u.k'ur RMER1]
7

;REPORT AN ERROR IF ‘UNS'' IS SET
gg

MOV

gts.us.ma I

:w.ms SET??

RMER11,$BDDAT :RECEIVED STATUS

|
‘

CZRNDAO RMB0 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 29-1

SEQ 0216

PACK ACKNOWLEDGE STATUS CHECK

5 §s %

135

60 05
61 05
gg

64 85

€5
% 5
71
;g

MOV

s 000000

ADD
MOVB
|

32737 020000 001352

053740
%6

53754
74 053762
75 053766

1424
013737
013737

7 0
716
112776

;; 35
%
saoog

162716
004736

79
a?

000240

78 0

54010

001352
001352

SEXPECTED STATUS

#%, (SP)
#42,3(SP)

;MOVE SP TO ERROR CALL
sWRITE NUMBER OF ERROR IN CALL
sMOVE SP _TO RETURN FOR ERROR
sREPORT THE ERROR VIA USER
sMOVE SP TO NO ERROR RETURN

agns $SGDDAT

)

#2,(SP)
PC.a(SP)+

SUB

3s:

RMER11,$GDDAT

BIC

JSR

000010

65 05
29 05

114

381148

NOP

70, (sP)

:REPORT ANY OPI ERROR
BIT
#OPI,RMER1I
BEQ
MOV
MOV

001142
001140

001140

BIC
ADD
MOVE

3 000000

000002

()
JSR

162716 000010

)

48:

NOP

;WAS OP1 SET ??

4
RMER11,$BDDAT
RMER1] .SGDDAT

*RECEIVED STATUS

#2,(SP)
PC.(SP)+

sMOVE SP TO ERROR CALL
cWRITE NUMBER OF ERROR IN CALL
sMOVE SP_TO RETURN FOR ERROR
sREPORT THE ERROR VIA USER
sMOVE SP TO NO ERROR RETURN

#OP1 ,$GDDAT
#6,($P)
#43.3(SP)

#10, (5P)

*NO'!

*EXPECTED STATUS

§§ 854010 032737 000004 001352 :REPORT BIT
ANY RMR #RMR,
ERROR RMER1
g« 54016 oot;gl.
S 0540,
13737 00135
0548 6 013737 00135
70

1142

737 000006

054042
716 000004
056826
112776
000044
9? 54054 162716 000002
91
054060 004736
9; 54062 162716 000010

9 854096
% 54070

1140

001140

RMER11,$BDDAT

ADD
MOVB
SUB
JSR
SUB

#, (SP)
#44,3(SP)
#2,(SP)
PC.a(SP)+
#10, (sP)

BIC

000000

000240

BEQ
MOV
MOV

5$:

NOP

ANY
39 sszg;o 3;{3{ 000002 001352 ;REPORT gg
33 1
13737 1;53 881145
MOV

1
101

102
1

1
1

1
}
1

1
}

054122
126

716
112776

13,
gz1¢

162716
?06736

321
15

240

}}i

} 0

11%

13737
7

0541

00135,

114
001140

000000

MOV
BIC

ADD
MOVvB
SUB
JSR

ossm 000010

SUB

6$:

NOP

58
RMER11 ,SGDDAT

#RMR, SGODAT

ILR ERROR
gua,mm
RMER11,$BDDAT
RMER11
, SGDDAT
liLR
AT

26, (SP
#45.3(SP)

sMOVE SP TO ERROR CALL
sWRITE NUMBER OF ERROR IN CALL
¢MOVE SP _TO RETURN FOR ERROR
sREPORT THE ERROR VIA USER
¢MOVE SP TO NO ERROR RETURN

sWAS ILR SET??
*NO!!

*RECEIVED STATUS
*EXPECTED STATUS

#0,(sP)

sMOVE SP TO ERROR CALL
sWRITE NUMBER OF ERROR IN CALL
sMOVE SP_TO RETURN FOR ERROR
sREPORT THE ERROR VIA USER
¢MOVE SP TO NO ERROR RETURN

#2,(SP)
PC.a(SP)+

:
001352

:REPORT ANY

355

ILF ERROR
g‘LF.RflERII

sWAS ILF SET??

001352
001142
81137377 881%55
001140

MOV

RMER11,$BDDAT

*RECEIVED STATUS

7 z

000001

MOV

RMER11.SGDDAT

*EXPECTED STATUS

CZRNDAO RM80O FCINL_PT1 MACRO V04.00 28~JAN-82 16:24:51 PAGE 29-2

SEQ 0217

PACK ACKNOWLEDGE STATUS CHECK

115

119

174

;?7

1
118

1 ;
1

15
1
1

}

1
131
1

BIC

000000

MovB
SuB

ADD

JSR

s 000010

Sus

78:

1 716
77§ 90000
140

001140

716

000004

7
33

000004

NOP

'iu
$GDDAT

u& a(sm
#2,(SP)

PC,a(SP)+

#10, (SP)

;MOVE SP TO ERROR CALL
WRITE NUMBER OF ERROR IN CALL

MVE SP_TO RETURN FOR ERROR
:REPORT THE ERROR VIA USER
:MOVE SP TO NO ERROR RETURN

sAUGMENT RETURN ADDRESS IF ERROR WAS FOUND
MOVE _SP TO ERROR CM.L

ADD
TST8

ac&m

.w.enOR FOUND??

BA?!D

ggL (SP)

*YES = MOVE TO ERROR RETURN

sus
NOP

#4,(SP)

:MOVE SP TO NO ERROR RETURN

BEQ
8s
9s

RTS

RNDAO RMB0 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 30

SEQ@ 0218

CALIBRATE STATUS CHECK SUBROUTINE
1§

.SBTTL

RECALIBRATE STATUS CHECK SUBROUTINE

;THIS SUBROUTINE CHECKS THE RESULTS OF A RECALIBRATE OPERATION

's’

“USING THE STATUS STORED IN THE GET BUFFER.

ECM.I.:

10
1

:
;

JSR

B8R

JSR

RCLSTS:

}s 054260

}913 §54§§2
54 ?82076
716 000000
000004
5 054302 001553

222

PC.a(SP)+

deed. CLRBNbe a(SP)
¥

0 564070 162716 000004

5% 854554 032737 022011

NOP
ERROR

PCRCLSTS

suB

#4,(SP)

:CALL SUBROUTINE

RETURN HERE IF NO ERROR

RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEFINED BY SUB
GO BACK TO SUB FOR MORE ERROR CHECKS
RETURN HERE IF NO MORE ERRORS

sCLEAR USER'S ERROR CALL
:MOVE SP BACK TO BRANCH

001352

;SEE IF BIT
*PAR'’ OR#OPI
"ILF"
OR 'OPI' OR 'JAE'" IS SET
'PAR'ILF ' IAE, meR11
SPAR= 1 AND "DPE" = 0
BIT
#PAR,RMER11

BEQ

;NONE ARE SET - GO TO NEXT CHECK

;REPORT ANY MASSBUS CONTROL BUS PARITY ERROR, I.E.,

32737

000010

001352

000010

001400

i 13737
7
13737
!

001352 001140
1
1140
00135
1142

18:

000001

001352

001140

7
716

1142 -

ggwe.meazx

00114

;mé"'ops" SET??

:YES = NOT A REGISTER ERROR
*EXPECTED STATUS

sRECEIVED STATUS

#4,(SPS :MOVE SP'TO USER'S ERROR CALL
c 6 O(SPS
sWRITE ERROR NUMBER IN CALL

JSR
su8

g a(sm
0. (sP)

NOP

%g.'fur“ SET??

msah $BDDAT
%, (SP)

sRECEIVED STATUS

MOVB

m a(sP)

NOP

:GO REPORT ERROR

:MOVE SP BACK TO BRANCH

*EXPECTED STATUS

#ILF ,SGODAT

2
SUB

:MOVE SP TO RETURN FOR ERROR

RMER11,SGDDAT

axc

MOV
ADD

WAS 'PAR" SET??

ADD
m”

:REPORT ANY "‘ILF'’ ERROR
gE z
gtr.mm

1 000000

|78 000010

MOV msm.ssom
BIC
$GDDAT
MOV
mnix $BDDAT

g 000000

zsz

5,‘.{

736
035"3 000010

4
2

716
;;g

BEQ

#10, (sP)

:MOVE SP TO USER'S ERROR CALL
:WRITE ERROR NUMBER IN CALL
:MOVE SP_TO RETURN FOR ERROR
:REPORT ERROR VIA USER
:MOVE SP BACK TO BRANCH

28-JAN-82 16:26:51 PAGE 30-1

SEQ 0219

REPORT ANY 0PI ERROR
AS
:
. OPI DUE
T
=0

001352
140

140

BIC

142

0
000000

oPI aecmse ou c YLINDER LATCH DIDN'T RESET
BIT
#OPI ,RMERTI
:WAS OPI SET??
BEQ
31s
*NO!!
MOV
nm $GDDAT :EXPECTED STATUS
1,$GDDAT

MOV
; 38:
‘

uutnix $BDDAT ;RECEIVED STATUS
sPS
*MOVE SP TO USER'S ERROR CALL
#75.3(5P)
uur;
ERROR NUMBER IN USER'S CALL

ADD
BIT
BEQ
MOVB
SUB
JSR
sus

#MOL ,RMDSI
3s
#73,a(SP)
#2,(SP)
PC.9(SP)+
#10, (sP)

*WAS
= 07?
ves"
*NO - CHANGE ERROR NUMBER
*MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER
*MOVE SP BACK TO BRANCH

31s:

001352

;REPORT AN ERROR IF '‘IAE'' IS SET

BIT
BEQ

114

MOV

114
114

BIC '
MOV |

ADD
MOVB
SuB
JSR

000000

#1AE ,RMER11
48

RMER1I,$GDDAT

#IAE,SGDDAT
11 saom

SP)
076
a(sp)
02 (SP)
C.a(SP)+

6 (SP)

:1S “'IAE'* SET??
*NO!!

:EXPECTED STATUS

;RECEIVED STATUS

*MOVE SP TO ERROR CALL
:WRITE
ERROR NUMBER IN USER'S CALL
*MOVE SP TO RETURN FOR ERROR
*REPORT ERROR

*MOVE SP BACK TO NO ERROR RETURN

4S:

400

:SEE IF "snu" *'IVC'* OR ‘DVC'*IS SET
‘iKI'IVC!DVC.“R 1
8IT

sNONE OF THE BITS ARE SET

'REMT ANY "°IVC'* ERROR AS
1VC Wi
0
gw'xvc SET??

SEXPECTED STATUS
CEIVED STATUS
SP T0 USER'S ERROR CALL

“gMFNUMBER IN CALL

SP BACK TO BRANCH

SEQ 0220

RNDAO RMBO FCTNL PT1 MACRO m oo 28-JAN-82 16:24:51 PAGE 30-2
CALIBRATE STATUS CHECK SUBROUTI

115
11;

740

117

05474

119

0547

113 547

22.7

1 9
}a

55
55

121
1 g 054
123 055
124 05¢
125 05

737

424

040000

001400

114

13737
24

78:

13737

144
145
11.9
147
148

}45.3

NOP

menéx saom

IND!!

:EXPECTED STATUS

;RECEIVED STATUS

:MOVE SP TO USER'S ERROR CALL
*WRITE ERROR NUMBER
novs SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER
*MOVE SP TO BRANCH
o

#DVC ,RMER21
8s
RMER21 ,$GDDAT

;WAS ‘DVC'* SET??
iNOY!
:EXPECTED STATUS

MOV

21 $BDDAT

;RECEIVED STATUS

#2,(SP)
PC.a(SP)+
#10, (SP)

-nove SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER
*MOVE SP TO USER'S BRANCH

ADD
MOVB
SUB
JSR

8s:

;WAS SKI SET??

BIT
BEQ
MOV

SUB

NOP

#DVC,SGDDAT

SP)
m.acsn

.novs SP TO USER'S ERROR CALL
*WRITE ERROR NUMBER

:SEE IF 'PIP'* AND 'OM"* ARE mo "ATA’’,"MOL’’ AND *'VV'' ARE 1

55132 13746 001350
0551
gm 047676
55110 022726 110100
055114 oo1og;
ssns 000137
055532
5512

85s:

151

1§§

¥,(SPS
#76.3(SP)
#2,(SP)
PC.a(SP)+
#10, (SP)

BIC

001400 001142

135 055052
716 830004
136 055056 112776 000077 000000

14§

ADD
MOVB
SUB
JSR
suB

1,SGDDAT

;REPORT ANY 'DVC'' ERROR

7 000200 001140

1
ssg% 162716 000002
138 055
004736
1 855 72 162716 000010
140 055076 000240
}21 055100

menzx $GDDAT

MOV
,

MOV
BIC

114

712
11277
000000
162716
5&2)71 000010
032737 000200 001400
001424
13737 001400 001140

BEQ

114

1 gsgg
131 05
132
05
133

;REPORT ANY “SKI'* ERROR
BIT
c;xx.nneuzx

MOV
BIC
CMP
BNE
JMP

msx-(SP)
T RMDS ON sncx
#~C<PiP -nouvv-ohATA> (SP)
#ATA'MOL'WV, (SP)+
858

-;REPORT
AN ERROR IF MOL = 0 AND OPI = 0, I.E., MEDIUM WENT OFF

§§§}§

156
1
158
159
1
161
1
1
164
165
}gcz

05514
sgu
05 1;
055156
55,1%
31
173
5
g
05 13
5521

1 3 S§1

8§g737

010000

001350

0 2939 020000 001352

194
13737
>§ 7
013737
716
112776
162716
736
162716
000240

000010

m §§§§%§ 03%737 000100 001350

322%9 010000 001400

S,‘.E

&u.msx

BNE
MOV
BIS
MOV
ADD
move
SUB
JSR
sUB
NOP

SYES - DON'T REPORT MOL = 0
RMDSI,SGDDAT
:EXPECTED STATUS
MOL
AT
RMDS |
AT
-nscuvso STATUS
#6,(SP) :MOVE SP'TO USER'S ERROR CALL
#100,a(sP)
:WRITE ERROR NUMBER
#2,($P)
*MOVE SP TO RETURN FOR ERROR
PC.(SP)+
:REPORT ERROR VIA USER
#10, (5P)
*MOVE SP BACK TO USER'S BRANCH

BIT

001350 001140
%oggg
1140
01
1142
3%50 000000

171 05

:LINE AFTER RECALIBRATE WAS INITIATED

98:

ggn.mm

-%o MOL DROP??

:WAS OPI ERROR REPORTED??

:REPORT
AN ERROR IF *VV'* = 0 AND “IVC'' = 0

g'l‘g

BIT

mLRMDSI

#IVC,RMER2]

.%o *VV'' DROP??

*WAS THERE A IVC ERROR??

e A Gy Ao 28ISIFANON Eg

w
-

SENNSS
AR SR

g § DEEPRRIZS

032737
001024
013737
052737
013737
716
112776
162716
004736
162716

—

&~ NOO

FRXZR2%SNIS
nNO

R
R

&
»

wh d eed ok
ecnd tmad meh wmd o

000240

100000
001350
1
ooutnsugou
000004
000102
000002
000010

108:

SEQ 0221

BIT
BNE
MOV
BIS =

001142
000000

BNE
MOV
MOV
BIS
ADD
move
SUB
JSR
)
- NOP

108
RMDSI,$GDDAT
RMDSI,.$BDDAT
#VV,S$GDDAT
#6,(SP)
#101,a(sP)
#2, (§P)
PC.a(SP)+
#10, (sP)

:YES = DONT REPORT VWV = 0
:EXPECTED STATUS
:RECEIVED STATUS
;MOVE SP TO USER'S ERROR CALL
:WRITE ERROR NUMBER IN CALL
*MOVE SP TO RETURN FOR ERROR
;MOVE SP BACK TO USER'S BRANCH

:REPORT AN ERROR IF ATA IS NOT SET

001350
001140
001140

=l=l=l=l=lelal]

o
v
v ivivivy Nl
Vv
v ]Vi
N

Al ViV

=d{=1=] o OCO0OO00O0O00

iAW

VivWnununiaivaiviviiawn

801 4
13737
1;58
1140
31 7
00135
ms
52737
100
00114
712
;
11277
101 000000
162716
2
736
162716 000010
000240

SVRRRUN
DS omIr I
=0
e
8°°°°°°°°°°°
AR
RAPARAAAR
RA
wviviiwviiavinauinawna
wn

— e e

R )

b e e

s e e e e

i o

b e P
e wd -

D e

I'e)

F-la)
mN

TNL PT1 MACRO V04,00 28-JAN-82 16:24:51 PAGE 30-3

TUS CHECK SUBROUTINE

MOV
ADD

move
su8

JSR
SUB
NOP

#ATA,RMDS]
118
RMDSI,SGDDAT
#ATA,$GDDAT
RMDS],$BDDAT
#6, (SP)
#102,a(sP)
#2,(5P)
PC.a(SP)+
70, (sP)

;WAS ATA SET DURING RECALIBRATE??
SYES!!
:EXPECTED STATUS

;RECEIVED
STATUS
:MOVE SP TO USER'S ERROR CALL
*WRITE ERROR NUMBER IN CALL

:MOVE SP TO USER'S BRANCH

11$:

%gzsz
013737
g 7
13737
716
112776
162716
004736
162716

000240

000001
001350
880g21
001350
000004
8%583
2
000010

001350
001140
001140
001142
000000

;REPORT AN ERROR IF ‘'OM'’ IS NOT ZERO BECAUSE RECALIBRATE SHOULD
*ALWAYS CLEAR OFFSET MODE

‘

128:

EH,
MOV
BIC
MOV
ADD
move
SuB
JSR
37

NOP

LRMDS]
RMDSI,SGDDAT
$GDDAT
RMDSI,$BDDAT
gsfi)
#103,a(sP)
#2,(8P)
PC.a(SP)+
#10, (sP)

:geg.'.m' RESET??
:EXPECTED STATUS
~
:RECEIVED STATUS
:MOVE SP TO USER'S ERROR CALL
*WRITE ERROR NUMBER
*MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER
*MOVE SP TO USER'S BRANCH

:g;msan ERROR IF "PIP'* IS STIL ON, I.E.. DRIVE NOT ON
| 32§§ 1020000

001350

040000

001400

001350

001140

001

114

1024
13737
7

13737
;}
72

104

2
000010

88111.

000000

&P.WSI

:g.gmve OFF CYLINDER??

BIT

:gx.mem

$WAS *'SKI'* DETECTED?2

BIC

#PIP, $GDDAT

BNE
MOV

MOV
ADD
move
SUB
JSR
%

1
RMDSI,SGDDAT

*YES=DONT REPORT 'PIP
:EXPECTED STATUS

RMDS],$BDDAT
:RECEIVED STATUS
#4_(SP) :MOVE SP’TO USER'S ERROR CALL
#104.a(sP)
;WRITE ERROR NUMBER
#2, (SP)
*MOVE SP TO RETURN FOR ERROR
PC.a(SP)+
#10, (5P)
:MOVE SP BACK TO USER'S BRANCH

CZRNDAO RMB0 FCTNL PT1 MACRO V04, '0‘0 28~JAN-82 16:24:51 PAGE 30-4
RECALIBRATE STATUS CHECK SUBROUTI

SEQ 0222

13s:

1352
00
06
00
04
37
21
Q3
43
?2
8?
5

000002 001352

s w
1
001142

5
i
U

105

561

gsg?

I&R!W!WS.WRH
1

sREPORT AN ERROR IF °‘ILR'' IS SET
'

RMER1I,$GDDAT
#ILR, SGDDAT

's‘g

016 (SP)

SUB
JSR

000010

#ILR,RMER1]

MOV
BIC
MOV
ADD

MOVB

:%?lllk SET DURING RECALIBRATE??

:EXPECTED STATUS
RMER{I, SBDDAT ;RECEIVED STATUS
#4,(SPS :MOVE sp TO USER'S ERROR CALL

06 (s

§
PC a(sm

WRITE ERROR NUMBER IN CALL

iMOVE SP TO RETURN FOR ERROR
;MOVE SP TO USER'S BRANCH

14%:

;REPORT AN ERROR IF 'RMR'’ IS SET
1424
13737

. 7;

001352

000904

001140

#RMR,RMER11

:WAS RMR SET??

gg\cr

_mcmgssow

*EXPECTED STATUS

MOV
ADD
MOVB

000004

385718

BIT

BEQ

.SEERTEE

AR
AR AR

BIT

000000

85570
5571
2571

sSEE IF ""ILR' OR 'RMR'' OR "UNS'' IS SET

suB
JSR

000010

msnix $BDDAT
sPS
0166a(sP)
. (SP)
'i' usm
0.(sP)

*NO!!

;RECEIVED STATUS

:MOVE SP TO USER'S ERROR CALL
*WRITE ERROR NUMBER IN USER'S CALL
*MOVE SP TO RETURN FOR ERROR
:REPORT ERROR VIA USER
:MOVE SP TO USER'S BRANCH

158:

32737
1430

040000

001352

000200

001400

§7
gS57
§

11 # 001352 001140
Oggg
gm
1 712
1
114
112776
107 000000

33765
g

16376 000010
08(2)260

162716

:REPORT AN ERROR IF °uos" IS SET AND ‘DVC'* IS 0

’

BIT

nvc.mnzx

:WAS THERE A DEVICE CHECK??

#10, (5P)

*MOVE SP BACK TO USER'S BRANCH

BNE
MOV
8IC
MOV
ADD
move
SUB
JSR

16%:

RMER1]

168
RMER1I,$GDDAT
#UNS , SGDDAT
RMERT] saom
8% ;
sP$
#107.a(sP)
#2,(5P)
PC.a(SP)+

.w.wws ON??

YES - DON'T REPORT UNSAFE
-EXPECTED STATUS
sRECEIVED STATUS
:MOVE SP TO USER'S ERROR CALL
*WRITE ERROR NUMBER
*MOVE SP TO RETURN FOR ERROR
:REPORT ERROR VIA USER

’

;AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED

ADD

#%,(SP)

azb

i
%‘(SP)

;gza

178:

SUB

a;im

:MOVE sp TO USER'S ERROR CALL

:WAS
AN ERROR REPORTED??

:NO!!
:YES = AUGMENT SP RETURN

#4,(SP) ;NO ERROR - RETURN SP TO BRANCH

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 30-5

SEQ 0223

RECALIBRATE STATUS CHECK SUBROUTINE

539 3&828 888509

_—

E?';

;STATUS CECK IS COMPLETE

DRIVE CLEAR STATUS CHECK SUBROUTINE

BR
NOP
ERROR
JSR

N
LY

PC.a(SP)+

RETURN HERE IF NO ERROR
RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEFINED BY SUB
GO _BACK TO SUB FOR MORE ERROR CHECKS
RETURN HERE IF NO MORE ERRORS

MOV

cMP
BEQ
ADD
MOVB
SUB

JSR

ONONONNNN

e omd

VINOMANOOW

-=D000

Guur urd

e e

MOV
BIC
MOV
P
BEQ
ADD
MOVB
suB
JSR

MOV
BEQ
ADD
MOVB
sU8
JSR

1466

1774

001142

RMCS11,.$BDDAT :CHECK RMCS1
#DVA'!DRVCLR,SGDDAT
:EXPECT DVA
DAT,SBDDAT ; COMPARE EXPECTED & RECEIVED
*BRANCH IF EQUAL
#4., (SP)
nove SP TO ERROR CALL
nl1 a(sP)
WRITE NUMBER OF ERROR IN CALL
.(SP)
iMOVE_SP TO RETURN FOR ERROR

c*cavbmcnso $8DDAT ;CLEAR oom CARES

a(sm

6 (SP)

*REPORT THE ERROR VIA USER

*MOVE SP TO NO ERROR RETURN

RMDSI,SBDDAT
:CHECK RMDS
10M!VV!PIP,SBDDAT ;CLEAR DONT CARES
#MOL
i DPR!DRY, SGDDAT
:EXPECT DRY & DPR
fiaw.
AT ;COMPARE EXPECTED & RECEIVED
*BRANCH IF EQUAL
#2, ésn
:MOVE SP TO ERROR CALL
#142,3(SP)
:WRITE NUMBER OF ERROR IN CALL
#2.,(5p)
sMOVE SP TO RETURN FOR ERROR
PC.a(SP)+
*REPORT THE ERROR VIA USER

nb (SP)

*MOVE SP TO NO ERROR RETURN

sREPORT ERROR IF RMER1 NOT INITIALIZED
6$:
CLR
SGDDAT
;EXPECT 0°S

B
001354

:CLEAR
ERROR CALL
MOVE SP TO USER'S BRANCH

;MOVE SP TO ERROR CALL

§§EP(RT ERROR IF RMDS NOT INITIALIZED

N
o

oy
i Qi G

8888

—ded

SRERSREERES &R

001142

a(fip)
#4, (SP)

ERROR IF RMCS1 NOT INITIALIZED

- MOV
BIC

SBSS
o

e
P

R el)

8888

CLRB
Su8

ADD

-t

—

62716

;CLEAR USER'S ERRM CALL

gg.

SRRt
oe
833888382 3
Z8E
o B V:Na
SR
S5
>
Sagadodady 52Eoso«u
\IEVV S

716

[P uur G

o NIFRVREESKR

7”?

DRVSTS:

3 :§§;§SEE

223
3
RN

FIRS BFEITTIITAIT 83R

R RS e e NS G R R S S B

SEQ 0224
]

.SBTTL

N R I S BN R R RN NN SR IR A R N =S om0 A win—

CTINL PT1 MACRO VO4. 00 28-JAN-82 16:24:51 PAGE 31

S ATUS CHECK SUBROUTINE

R11,$80DAT
;
nl a(sP)
. (SP)
PC ‘(SP) ¢+

#10, (5P)

:CHECK RMER1
SBRANCH IF EQUAL
SMOVE SP TO ERROR CALL
*WRITE NUMBER OF ERROR IN CALL
*MOVE SP TO RETURN FOR ERROR
*REPORT THE ERROR VIA USER
sMOVE SP TO NO ERROR RETURN

:REPORT ERROR IF ATA NOT INITIALIZED

Bs:

MOV
MOV
MOV
e,
MOVB
BIC
CoM
BIC

RMASI,SBODAT = :CHECK ATTENTION BIT
m -($P)
:;PUSH R1 ON STACK
-(sp)
*3PUSH R2 ON STACK
[y
1m
R2
mmfnsx.uz
ns
R2,S$BDDAT

CZRNDAQ RMB0 FCTNL PT1 MACRO V04 00 28-JAN-82 16:24:51 PAGE 31-1

SEQ@ 0225

MOV
MOV
ST
BEQ
ADD
MOVB
SUB
JSR

]

DRIVE CLEAR STATUS CHECK SUBROUTI

's‘gg

38
282
e
S NBREXE£y PR

001404

)

R
e

e
O

33888

001142

OQONONONONON NN

:222882
3?33333
o
b b

001400

#10, (5P)

“MOVE SP TO NO ERROR RETURN

MOV

BIC
MOV
cMP

RMMR11 $BODAT

:CHECK

BEQ
ADD
MOVB
()
JSR

sus

n (SP)
nls a(SP)
. (§P)
a(sm

6 (SP)

*BRANCH IF ZERO
.nove SP T0 ERROR CALL
;WRITE NUMBER OF ERROR IN CALL
*MOVE SP TO RETURN FOR ERROR
*REPORT THE ERROR VIA USER

RMMR

C'LS LST ssoon'r :CLEAR DONT CARES
GODAT
XPECT WRITE DATA ON
ssooit
saom com\ae EXPECTED AND RECEIVED
:MOVE SP TO NO ERROR RETURN

- BIC

mov

n%'CI.EM REQA

ADD
MOVB
SUB
JSR

#%, (SP)
#146,a(sP)
02($P)
acsm

:
ERROR
:WRITE NUMBER OF ERROR IN CALL
:MOVE
SP TO RETURN FOR
E
*REPORT THE ERROR VIA USER

CLR

$GDDA

;EXPECT ZEROS

P
BEQ

MOV

'sg

MOV
BEQ
ADD
MOVB
SUB
JSR
%

001142

#2, (§P)
PC a(sm

TEST BIT ON
sgwsdm *BRANCH
-cammexfiecr
EXPECTED
€ RECEIVED
IF EQUAL

#TSTi

;REPORT ERROR IF usz NOT RESET

000010

S
SUWN=O

158:

000150
000002

(=]

o L
e

e L)
e
e
R
R
R

e
e

b e

oD e

000010
001140

nua(sp)

-REPORT ema If mz uor mmuzeo

11s:

000004
000146
000002

SESS
nNONN

R R Ay S

001140

o e

001376
01%737

gouf

;PP STACK INTO R2
POP STACK INTO R1
‘s ATTENTION CLEARED??
*BRANCH IF ATTENTION CLEARED
.nove SP TO ERROR CALL
;WRITE NUMBER OF ERROR IN CALL
.novs SP TO RETURN FOR ERROR
REPORT THE ERROR VIA USER

REPORT ERROR IF RMMR1 NOT mnuuzso

os:

000010

8888

736
162716
240

000004
000145
000002

woud ooy mads i

T T

000010
001140

73 00hase

=2
=D

000010

(sm.ng
(SP)+.R

C2I,$BDDAT

c;!o
usn
PC a(sm

#10, (SP)

-REPORT ERROR IF RMER2 NOT RESET

i7s:

000004
000147
000002

mov

BEQ
ADD
MOVB
SUB
JSR
%

000010
188:

R2I ,$BDDAT

;

l acsn
s a(sm
#10, (SP)

*MOVE SP TO NO ERROR RETURN

;CHECK RMEC
:
H 1
:
SP TO ERROR CALL
sWRITE NUMBER OF ERROR IN CALL
*MOVE SP TO RETURN FOR ERROR
*REPORT
ERROR VIA USER
SMOVE SP TO NO ERROR RETURN
;CHECK RMER2

*BRANCH IF NO ERROR
*MOVE SP TO ERROR CAL
*WRITE NUMBER OF ERROR IN CALL
*MOVE SP TO RETURN
*REPORT THE ERROR VIA USER
*MOVE SP TO NO ERROR RETURN

RNDAO RMSO FCTNL PT1 MACRO m.gg 28-JAN=-82 16:24:51 PAGE 31-2

SEQ 0226

IVE CLEAR STATUS CHECK SUBROUTI
115

119
1

5764

;AUGMENT RETURN mn

ADD
TST8

5?3
s(ir

a.po

233‘”’

121

SuUB

#4,(SP) ;MOVE SP BACK TO NO ERROR RETURN

RTS

113

1§ 3

BEQ

Sss; NOP
18:

IF ANY ERROR WAS
F

:MOVE sr ro ERROR C%
*WAS
AN ERROR DETECTED??
*NO!!

*YES = MOVE SP TO ERROR RETURN
:RETURN TO USER

CZRNDAO RM80 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 32

SEQ 0227

SEARCH STATUS CHECK SUBROUTINE

R RS e PN ToYA R 2t
Ral Sg S B

N R I g B NN
RN R O R N N —
O eR eNb T R _—sO = 3 00 O U i =

.SBTTL

SEARCH STATUS CHECK SUBROUTINE

sTHIS SUBROUTINE VERIFIES THE RESULTS OF SEARCH OPERATI

;‘T’?T&S'EE?ED IN THE GET BUFFER AND TEST CONDITIONS STORED
sTHE SUBROUTINE RETURNS TO THE CALLING ROUTINE IF AN ERROR I

DETECTED AFTER MyING LOADED THE APPROPRIATE ERROR NUMBER I
:THE USER'S "ERROR''

TRAP.

;THE FOLLOWING CONDITIONS ARE CHECKED:

Y ERROR WHICH OCCURRED WHILE READINGORWRITING REMOTE

-nssxsrens IS REPORTED, 1.E., 'MCPE"

"'IAE'* STATUS IS CHECKED IN ACCORDANCE WITH THE VALUE DETERMINED

."OPI', IF SET, 1S REPORTED AS 1) ‘OPI' DUE TO MOL = 0, OR 2)

.Ive'!y SET, IS REPORTED AS 1) '‘IVC'’ ERROR WITH VOLUME

:BY THE PROGRAM, WHICH 1S BASED ON FORMAT AND ADDRESS.

**OPI'* DUE TO ON CYLINDER LATCH.
VAUD ZERO,
OR

2) ERRONEOUS *‘IVCTM ERROR WITH VOLUME VALID SET.

."'SKI'* IS REPORTED IF SET
.'DVC'* 1S REPORTED IF SET
+AN ERROR IS REPORTED IF 'MOL'' = 0, OR "PIP' = 1, OR "ATA = 0,
T0R W= 0.

:'CAI. :
(1)

:(;)
Y

056624

(3
:(4)
(5)
(S

PC,SCHSTS

JSR

B8R

NOP
ERROR
JSR

?7?

RETURN HERE IF NO ERROR

RETURN HERE TO REPORT ERROR
SUBROUTINE WILL LOAD ERROR #
60 BACK FOR MORE CHECKS
RETURN AFTER ALL ERRORS REPORTED

PC,a(SP)+

SCHSTS:
:CLEAR USER'S ERROR CALL

716 000004
105076
16271
56640 00503

ADD
CLRB
SUB
CLR

#4,(SP)
a($P)
#, (SP)
200s

:MOVE SP TO USER'S ERROR CALL
*CLEAR ERROR NUMBER
*MOVE SP BACK TO NO ERROR BR
:CLEAR STATUS FLAGS

;TEST FOR MASSBUS CONTROL BUS PARITY, emga WHEN WRITING REMOTE

7 7 000010

001352

} 000010 001400

13737

00135

114

8?&93 843;37 880015 381143

*REGISTERS,

-gg

. BIT

BNE

1.E.,

'PAR' = 1 AND 'DPE'’ =

ffi“'"""

#DPE ,RMER2]
108

.w.mm ERROR DETECTED??

SWAS IT comoL BUS ERROR??
*PROBABLY NOT!

:REPORT CONTROL BUS m Y moa VIA USER'S ERROR CALL

MOV

BIC

RMER1]

#PAR, séom

;EXPECTED STATUS

CTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 32-1

SEQ 0228

CHECK SUBROUT INE

7;7
2

1 52

f 001142

MOV

ansm $BODAT

;RECEIVED STATUS

Sus
JSR
%
B8R

#2,(SP)
gacsm
#10, (5P)
15$

nove SP TO RETURN IF ERROR
*REPORT ERROR
*RESTORE SP TO NO ERROR
:SKIP FURTHER ERROR CHECKS

ADD

g 000000

(SP)

MOVB

000010
-

56 3(SP)

noE SP TO USER'S ERROR CALL

WRITE ERROR NUMBER IN CALL

:TEST FOR mssaus CONTROL sus PARITY ERROR WHEN READING REMOTE
032737 020000 001336

*REGISTERS,

BIf

001426

013737 001336 001140

0462737 350022 001140
13737 001336 001142
716 000004
112776 000013 000000

'MCPE"

&ncpe nncsu

:WAS PARITY ERROR DETECTED??

*NO!!

:REPORT CONTROL BUS mm enaoa VIA USER'S ERROR CALL.

MOV

mcs 1,$GD

sEXPECTED STATUS

SUB

#2,(SP)

:MOVE SP TO RETURN IF ERROR

BIC
MOV
ADD
MOVB

162716 000002

004736
330?541.8 000010
000137 - 060160

I1.E.,

JSR
'sbp
JMP

isow
mcsfi $BDDAT
#6, (SP)
013 a(sP)
PC.a(SP)+
#10, (sP)
1508

:RECEIVED STATUS
:MOVE SP TO USER'S ERROR CALL
*WRITE ERROR NUMBER
*REPORT ERROR AND RETURN
*RESTORE SP TO NO ERROR
;OMIT STATUS CHECKING

:DETERMINE THE VALUE OF “IAE'' STATUS BASED ON TRACK, SECTOR, CYLINDER

:AND THE STATUS OF ''SSEI'*

012737 002000 001140
85 737
040000
206
5 7 001446 - 001060
101035

#IAE,
#5K1
RMDCO, #
308

BHI
CMPB

308
A0, #29.

*YES = TRACK IS INVALID
:SECTOR > 29. ?

001420 000036

BEQ
C

308
‘RMDAO, #30.

SYES = SECT xs INVALID FOR 18 BIT MODE
*SECTOR >
30.

032737

001000

001444

BIT

gggfl.mo

<1S SSEI ¢

123727

001420

000037

RMDAO,#31.

*SECTOR
>

123737

001421

001335

1%459
737

010000

001444

BIC

1026
123727 001420 000035
)

141
123727
ng

- =

FOnSo3BTIRER

D d

1 1419

d o
D

b ek
b
b

b o

ALSO SET °‘SKI'* FLAG IF

MOV
BIS
CHP
BHI

042737 040000 060206

057134

DURING A SEARCH.

:CYLINDER ADDRESS IS T00 unes

}409

101002

005037 001140

13737 091;;;
7

175

23737 001140

BLOS
BIT
BLOS

BEQ

CMPB

258:

114

00114

#5K1,2008

:SETUP FOR JAE = 1
*SETUP FOR SKI = 1
$GREATER THAN LAST CYLINDER ?
-yss = CYLINDER IS_INVALID
'SKI'*

SHOULD BE ZERO

RMDAO+1,LSTRK+1 ;GREATER THAN LAST TRACK
?

258
#FMT16,RMOFO
258

BHI

308

CLR

$GDDAT

:ngss
18
BIT FORMAT ?
:BR

IF NO

SYES - ssctoa 1s INVALID FOR 16 BIT MODE
31, ?

*YES = SECTOR IS INVALID
:"'IAE** SHOULD = 0

OMPARE expscrso AND RECIVED “‘IAE'’ STATUS

exc

CMP

RMER1I,

:GET RECEIVED IAE

$GDDAT, ssoon

:1S IAE CORRECT??

#CIAE.

PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 32-2
SUBROUTINE

gg82

S
:333 cw&

vivawnawn

‘

[=lm]

>§
P S
-4

060206
408:

:NO!!

*SK1 SHOULD BE ZERO

852

OTM

2 - e
oo

A A
~
NNNN
R3RN

ADD
SUB
JSR
sUB

MOVB

000010

508:

=i=l=1=]

2REPORT mcmscr IAE STATUS VIA USER'S ERROR cu,

050200

SHERRENENISR

0014
137

PC a(sm
#10, (SP)

:MOVE SP TO USER'S ERROR CALL
:WRITE ERROR NUMBER IN CALL
.mvs SP TO RETURN IF ERROR
*REPORT ERROR AND RETURN
*RETURN SP TO NO ERROR

:NO!!

:ARE ANY BITS SET??

sREPORT ERROR IF 'sxg SET
AND “'SKI'* FLAG IS NOT SET
g?c
RUER2 saow
sRECEIVED ''SKI'* STATUS

hic

MOY

2053$GDDAT

's‘tg

210, (sP)

BIC

001140

000267
000002

re
o

040000

000004

NOP

;
SP)

055a(sp)

:SEE IF “'SKI'* OR ‘DVC'* OR '‘IVC'* IS SET
BIT
gsxnovcuvc.men 1

JITEIRTRARISBEIRNRR &g\fl\h&
2B SR IEERERSE
TR IR
QO
(=i=1=1~]
o
R
R R A AR AAAAA
D
A A RARRARARAARNARR
IR
~

3N
3N

D e
—d and D b cnd cd
b ek
ad
d d e

408
csu.zoos
508

55%:

000010

CMP
BEQ
ADD
MOVB
BIT
BEQ
MOVB
sue
JSR

msxx.seom

DAT.SBDDAT
n SP)
,a(SP)
?u-SGDDAT
558
0367
3(SP)
PC acsm

;EXPECTED *'SKI'* STATUS

;IS “'SKI'* 0K?2?
:YES=CHANGE ERROR NUMBER
-nove SP TO USER'S ERROR CALL
WRITE ERROR NUMBER
iSHOULD *'SKI*' BE SET??
*NO!!
$YES=CHANGE ERROR NUMBER
:MOVE SP TO RETURN IF ERROR
*REPORT ERROR AND RETURN
*RESTORE SP TO NO ERROR

sREPORT "IVC'" ERROR AS
JIve
70 LOSS OF VOLUME VALID
.E
ous IVC WITH VOLUME VALID SET
gg
C.RMER2]
'x‘gIVC SET??

010000
0?1600

NNNNINNN

b ad wcd acd ed b

b b oD cnd wmd o woD e cd e

b e med b

b o) ek d cd D e

BNE
BIC
BR

SEQ 0229

D ed cnd —d— cd cnd D i cod e

cndd

D purgu

VO~

(=)

we
m~N

057434

706
5
2

708:

RMER21,8GDDAT
#IVC séoo

:EXPECTED STATUS

mova®

4265 a(SP)

ves - CHANGE ERROR NUMBER

JSR

s a(sm

MOV
ma samr
ADD
)]
02&. a(sP)
JIAN LRMDS]

:RECEIVED STATUS
*MOVE SP TO USER'S ERROR CALL
:WRITE ERROR NUMBER IN CALL
:WAS VOLUME VALID??

SUB

novs SP TO RETURN IF ERROR

000010

.(§P)

#10, (sP)

REPORT ERROR AND RETURN

iRESTORE SP TO NO ERROR

80$:

000200

001400

1
:REPORT ANY DEVICE FAULT, I.E., 'DVC
R
BIT
#DVC,RMER2]
sWAS THERE A DEVICE FAULT??

CZRNDAO RM80 FCTNL PT1 HACRO V04.00 28-JAN-82 16:24:51 PAGE 32-3

SEQ 0230

SEARCH STATUS CHECK SUBROUTINE

1;5 857“f
174

05745

175 057
176 0574
17
0574
178 057
179 05
180 057
181 05751
} 057514

424
7
0014
1140
7
f
mg
7
01
114
712
77
62 000000
162716
736
162716 000010
24

BEQ
MOV
BIC
MOV
ADD
MOVB
SUB
JSR
suB

908:

NOP

90$
RMER21,$GDDAT
#DVC,
SGDDAT
RMER2I ,$BDDAT
#6, (SPS
csu a(sP)
#2, (5P
PC.a(SP)+
#10, (sP)

:NO! !
:EXPECTED STATUS
;RECEIVED STATUS
*MOVE SP TO USER'S ERROR CALL
*WRITE ERROR NUMBER IN CALL
nove SP TO RETURN IF ERROR
*REPORT ERROR AND RETURN
*RESTORE SP TO NO ERROR

:REPORT
ANY ''OP1'* ERROR AS

185
1

187 057514
18
057522
189
057526
190 0575
191 057540
19; 57546
19 osrgzs
19 057
195 057

032737
oougs
013737
045737
013737
062716
1;5779
032737
001403

200 057610
1 057612

000240

196 0575

115776

020000
001352
2
001352
000004
000270
010000

001352
001140
001140

000271

000000

197 057576 162716 ooo%oz
198 057602 004736
199 057604 162716 000010

:
:

001142

001350

105$:
1108:

.'OPI'* BECAUSE MEDIUM IS NOT ouuus
'on BECAUSE ‘ON CYLINDER'' DIDN'T DROP

BIT
BEQ
MOV
BIC
MOV
ADD
MOVB
BIT
BEQ
MOVB

SUB
JSR
SUB

NOP

#OPI ,RMER11
1108
mem $GDDAT
1,$GDDAT
menix $BDDAT
SPS
mo.acsm
*RMDSI
105$°
#271.3(SP)

o .($P)
C.a(SP)+
6 (SP)

MOV
BIC
CMP
BEQ

g;& 33%37 010000 001350

BIT

.RMDSI

8IS

#MOL , $GDDAT

gr
76
57672

BIT
BNE
ADD
MOVB
suB
JSR

1.RMER1]

57654

013737

32737
1013
716
57676 112776
162716
771g
736
gm

162716

7716

000240

ggé

osgg;

0577

8 05

001140

00135

ooms

MOV

00135

2 000000
2
000010

~ suB
1208:

020000

*MOL WAS 1 = CHANGE ERROR

*MOVE SP TO RETURN IF ERROR
*REPORT ERROR AND RETURN
*RESTORE SP TO NO ERROR

.-aspoar AN ERROR IF MOL = O AND OPI ERROR WAS NOT REPORTED, I.E.. OPI = 0

MOV

*WAS moL 077
YES!!

RMDSI = (SP)
;GET DRIVE STATUS
#°C<ATA!PIP!MOL!VV>, (SP)
AATA'MOL 'VV, (SP)+
:1S DRIVE STATUS CORRECT??
1508
SYES!!

57640 013737 001350 001140

52737

;RECEIVED STATUS
:MOVE SP TO USER'S ERROR CALL
*SETUP ERROR FOR MOL= 0

sSEE IF “ATA'= "MOL'' = "WV’ = 1 AND "PIP"' = 0

057612 013746 001350
205 osmg
2716 047677
057622 022726 110100
057626 001554

srg‘s

iWAS OPI SET??
*NO!!
;EXPECTED STATUS

001350

040000 001400

NOP

RMDSI,SGDDAT

msi saow

%s MEDIUM OFF LINE??

:EXPECTED STATUS

aecexvso STATUS

S OPI ngromo BEFORE??
vss - DON'T REPORT MOL= 0
.nove SP TO USER'S ERROR CALL

PC a(sm

novs SP TO RETURN IF ERROR
*REPORT ERROR AND RETURN

057
a(sP)
#10, (SP)

WRITE ERROR NUMBER IN CALL

*RESTORE SP TO NO ERROR

:REPORT AN ERROR IF PIP IS STIL SET AND SKI IS RESET
gg
g; ;.msx
.'x‘(s) gosmomns IN PROGRESS??

BIT

#SK1,RMER21

*WAS ''SKI'* DETECTED??

{
|

CZRNDAO RM80 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 32-4

SEQ@ 0231

-t

JSR
SuB

000010
1408:
100000

001350

?01350

0011
114
1142

s
ESVOLW VALID??

140§
oixc.mazx
1408
RMDSI ,$GDDAT

UAS IVC DETECTED??
:YES = DON'T REPORT WV = 0
;EXPECTED STATUS

#VV,S$GDDAT

w&x
saom
SP)
3
055a(sp)

sRECEIVED STATUS
sMOVE SP TO USERS ERROR CALL

:WRITE ERROR NUMBER I

m{' acsm
0. (sp)

sREPOR

AND

:RESTORE SP TO NO ERROR

;REPORT AN ERROR IF ATTENTION IS NOT SET
.
BIT
#ATA,RMDS]
;IS ATA ON??

gfv
8IS

?vsnsx
SGDDAT
SATA isoo

Mov8

0351
a(sn

MOV
ADD

SUB

,
1508:

NOP

#VV,RMDSI

156
160

PC acsm
#10, (5P)

33
o8P

SUB

000010

:MOVE SP TO USER'S ERROR CALL
WR ITE_ERROR
R
:MOVE SP TO RET
:REPORT E
:RESTORE SP TO NO ERROR

a(sP)
3573

BIS

MOV
“ADD
MOVB

1350

sRECEIVED STATUS

JSR
sus

NOP

l
g a(sm
0. (sP)

sYES!!
sEXPECTED STATUS

sRECEIVED
STATUS

;MOVE SP TO USER'S ERROR CALL
;WRITE ERROR NUMBER IN CALL
;MOVE SP TO RETURN IF ERROR
sREPORT ERROR AND RETURN

001350

01390

116
124
1
1
144

:YES=DONT REPORT PIP
sEXPECTED STATUS

®e %0 %

Z27=g2Re8
§3
OQONNNO

NNQ&M

BNE
BIT
BNE
MOV

106
e
110

NOP

1308
msx $GDDAT
#PIP
AT
wsi
AT
(sP)

sREPORT S'ICYERROR IF VOLUME IS NOT VALID AND IVC = 0

010000

000240

SUB

JSR
SUB

1308:

1 %LEaA

000100

-O=0

000010

54
55

ot
med wadh ==

MOV
ADD
MOVB

ege

B
49

BNE
MOV
BIC

N SN
-W

REEREEN

=4
ViAWY

R DB IR INOIIN

SEARCH STATUS CHECK SUBROUTINE

sRESTORE SP TO NO ERROR

sARGUMENT THE RETURN ADDRESS IF AN ERROR WAS DETECTED

ADD

ISTB

190::

BEQ
ADD
8R
Sus

1708:

RTS

2008:

.WORD

#4,(SP)

1
#4., (SP)
170s

#4,(SP)

sMOVE_SP TO USER' S ERROR CALL

sWAS ERROR FOUND??
"

:YES = CHANGE RETURN
:NO_ERROR FOUND
sRETURN TO USER

sSTORAGE FOR FLAGS

.SBTTL

SEQ 0232

STATIC DRIVE STATUS CHECK SUBROUTINE

sTHIS SUBROUTINE LOOKS FOR UNEXPECTED CHANGES IN DRIVE

:STATUS, SUCH AS THE DRIVE LOSING
Va&r
VALID.
:CAN BE USED BY HOUSEKEEPING AND OT
COMMAND

THE SUBROUT INE
ING WHICH THERE

sSHOULD NOT BE ANY DRIVE ERRORS OR CHANGES IN STA E.

E}IFlET;alE.LOUING CONDITIONS ARE TESTED AND REPORTED AS ERRORS

.MOL = 0, INDICATES DRIVE WENT OFFLINE, NOTE

STHAT MOL IS ASSWD TO HAVE BEEN SET

W = 0, INDICATES THE DRIVE LOST VOLUME VALID

;

PIP = 1, INDICATES THAT THE DRIVE IS OFF CYLINDER

:
;

-SKI = 1. INDICATES THE DRIVE HAS AN UNEXPECTED SKI ERROR
.DVC = 1. INDICATES AN UNEXPECTED DEVICE FAULT

;THE SUBROUTINE IS CALLED AFTER STORING STATUS IN THE GET BUFFER.

;1)

PC,STCDRVSTS

JSR

PC,a(SP)+

BR
ERROR

272

27%

RETURN HERE IF NO ERROR
RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEFINED BY SUB

GO BACK TO SUB FOR MORE ERROR CHECKS

RETURN HERE IF NO MORE ERRORS

STCDRVSTS:

;CLEAR USER'S em CALL

ADD

105076
o

(SP) :MOVE SP TO USER'S ERROR CALL

S %g?in

162716

’npvsc" ; IBAIcn"ruo'uoE ERROR RETURN

:SEE IF MOV
"t& = RMDSI
‘W== 1,($P)AND 'PiP
3'
:PUTDRIVE STATUS ON STACK

013746

8IC

5716

CMp
BEQ

001350

114
114
114

LRMDS1
1.RMER1]
.
RMDS I
tt\r
RMDS §
AT
;sfi

;IS MOL ON 2?
WAS OPI'* SET22
SYES=DONT REPORT "MOL'’ = 0
SEXPECTED STATUS
;RECEIVED STATUS
:
sP to USER'S ERROR CALL

#2,(SP)

*MOVE SP TO RETURN FOR ERROR

move

JSR
su8

000010

108:
001350

"ARE MOL,VV AND PIP 0.K.??
SYES!!

8IT
BIT
BNE
ggg
MOV
ADD

. BNE

001352

000100

#4C<PiPIMOL
! VV>, (SP)

#MOLIVV, (SP+
308

sREPORT AN ERROR IF MOL = O AND ‘OPI"
=

JSR

:
;
;

;

~y-

SRS
33 SRR
TR =3
A N NtS R
v
S S BNNR ANN
R IR 203Y D00
IO U T DI
— D000 IO N 2 i =

CZRNDAO RM80 FCTNL PT1 MACRO V04. 00 28-JAN-82 16:24:51 PAGE 33
STATIC DRIVE STATUS CHECK SUBROUTINE

NOP

#207,a(sP)

PC.a(SP)+
#10. (5P)

;REPORT AN ERROR IF VOLUME VALID

BIT

sx\,v.msx ‘

sYES!!

SWRITE ERROR NUMBER IN CALL

*REPORT ERROR VIA USER
:MOVE SP BACK TO NO ERROR RETURN
IS
ZERQ
:'f‘g.?'euv'
,"8,,AND “'IVC" = 0

CZRNDAO RMB0 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 33-1
STATIC DRIVE STATUS CHECK SUBROUTINE

010000

001400

mC.MRZI

13§§
1
1

00130

#VV,RMDS]

RMDS] ,$GDDAT

SE@ 0233
sWAS "'IVC'* SET??
s YES=DONT REPORT ‘‘W'' = 0

:EXPECTED STATUS

nnosx saooar sRECEIVED STATUS
#6, (SP)
TO USER'S ERROR CALL
csi
a(sfi) SP WRITE
ERROR NUMBER IN CALL

00114

PC a(sp>o

#10, (sP)

MVE SP_TO RETURN FOR ERROR
;REPORT ERROR VIA USER

:MOVE SP BACK TO NO ERROR

—
Py

H
ONONNNNS
-

P dflfl

pury

N
oS
ONONNINNSN

b N3

N
- P b

#PIP,$GDDAT
nnnsgfisaoonr

sRECEIVED STATUS

EXPECTED STATUS

cgb (SP)

:MOVE SP TO USER'S ERROR CALL
WRITE ERROR NUMBER IN USER'S CALL
:MOVE SP_TO RETURN FOR ERROR
:REPORT ERROR VIA USER
:MOVE SP TO NO ERROR RETURN

'PVC’
= 0
RMER21,-(SP)

¢PUT ERROR REG 2 ON STACK

608

sBRANCH IF NO ERROR

3($P)+

2Rb

F5R=3%8

b cp b 2 o) wmd
el ced

:WAS *'SKI'* SET?2?
s YES=DONT REPORT ‘PIP''
= 1

usi1
a(sP)

)

OO NNNS

SR3R2
PER QAT

g
N
— =

geze
-

R RERS
3

308

RMDSI , SGDDAT

308:
;SEE IF

#4C<skiDve>, (sPY+
40$:

) =

28R

) ced vk

32:: RMER2I

SREPORT AN ERROR IF THERE IS A DEVICE FAULT

000200

CDVC RMER21

1400

MoV

@%‘IZ
1400

nneuz
Rl
ansnéx saooAr

csizsstsr)

C.8(SP)+

6 (SP)

000010

'.Agv DEVICE FAULT??

:EXPECTED STATUS
sRECEIVED STATUS
sMOVE SP TO USER'S CALL

:WRITE NUMBER OF ERROR IN CALL
sMOVE SP_TO RETURN FOR ERROR

:REPORT ERROR VIA USER

sMOVE SP BACK TO NO ERROR

508:

b e

= 0
sREPORT AN ERROR IF DRIVE IS OFF CYLINDER AND °''SKI''
#PIP,RMDSI
CYLINDER??
.gDRIVE OFF

0014
1375

cndd

CRRREN 28 BEIRARAB2B
I3V

208:

040000

001400

1400

gmo
114
114

;REPORT AN_ERROR IF "SKI" =1
#SK RMER2]
8IT
. BEQ

- MoV
8IC

MoV
ADD
Move

nnenzx $GDDAT

1,SGDDAT

aneaél,saoonr
czf§.a(sp)

5£S.gueas A SEEK INCOMPLETE ERROR

:EXPECTED STATUS
:RECEIVED STATUS

:MOVE SP TO USER'S ERROR CALL
:WRITE ERROR NUMBER IN USER'S ERROR CALL

0O NONN SN =

162716

%7&2

00000

’

sus

#2,(SP)

'swtg

#10. (sP)

JSR

gs 000010

SEQ 0234

PC,a(SP)+

;MOVE SP_TO RETURN FOR ERROR
;REPORT ERROR VIA USER

:MOVE SP BACK TO NO ERROR

60$:

7% g u.o?
7

TATUS CHECK SUBROUTI

o
) e
—

:
b

L 1o R NT. NV ]

(]

b
e e
D D e e
s
D d D e e
— o

"o
—N

DRI

CTNL PT1 MACRO VO04. 00 28~JAN-82 16:264:51 PAGE 33-2

888883

%
000004

l?.

309

sAUGMENT flgE RETW ADDRESS IF ANY ERROR WAS DETECTED
AD
sMOVE SP TO USER'S ERROR CALL

88%

aR”

RTS

'%s AN ERROR DETECTED??

546$ (SP)

#4,(SP)

:YES = MOVE SP TO USER'S ERROR RETURN
sNO = MOVE SP TO NO ERROR RETURN

sRETURN TO USER

A
——

CZRNDAO RM80 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 34
SAVE AND RESTORE RO-RS ROUTINES
1

.SBTTL

SEQ 0235

SAVE AND RESTOXE RO-RS ROUTINES

ttt.ttttitt..llt.tttt""ttttt.ttt.tttttttttt'tt.tttt‘tt.t"ttt

SiSAVE RO-RS
-cAu.

SAVREG

.auron RETURN FROM SSAVREG THE STACK WILL LOOK LIKE:
.-mp--m )
ta +z--m )

% +4===RS

;% +8===R3
;*+10===R2
:%+12=-==R1
:%414==-=R0

060714
060714
oeong
060
833 2
726
823
060
060740

010046
010146
o1o§26
310 4
010446
010546
016646 00002
016646 00002
816646 000022
060744 016646 000022
060750

$SAVREG:
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

MOV

000002

RTI

RO,=(SP)
R1.=(SP)
5.-(3»
+=(SP)
R&.=(SP)
RS.=(SP)
(SP),=(SP)
(SP).-(SP)
(SP),~(SP)
(SP),-(SP)

::PUSH RO ON STACK
*:PUSH R1 ON STACK
*:PUSH 5 ON STACK
*:PUSH R3 ON STACK
*:PUSH R4 ON STACK
“:PUSH RS ON STACK
::SAVE PS OF MAIN FLOW
::SAVE PC OF MAIN FLOW
::SAVE PS OF CALL
::SAVE PC OF CALL

(SP)+,22(SP)

::RESTORE PC OF CALL

(SP)+,22(SP)

::RESTORE PC OF MAIN FLOW

(SP)+,22(SP)

000022

83%55

SREG

)

000022

iaesm-

SRORGESES

838755

szazzazzé §

::kesIme RO-RS

(SP)

*RESTORE PS OF CALL

::RESTORE PS OF MAIN FLOW

CZRNDAO RM80 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 35

SEQ 0236

BINARY TO ASCII AND TYPE ROUTINE

.SBTTL

BINARY TO ASCII AND TYPE ROUTINE

AR AARAARAAAAAAARAAEARRRAAAAAAAAAAAAAANAARANARARAAARANACORRRRS

tTMlS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 16-BIT
'%INMV-ASCII NUMBER AND TYPE IT.

ALL:

06101
10

101
1
1
1

1
1

1
1
1
1

1
1

061

TYPBN

STYPBN: MOV

000006
000060

MOV
MOV

061062

18%:

061
061

SEC
MOVB
ROL
BEQ

ADCB
TYPE

000002

000

000004

2$:

$BIN:

CLC
BR
MOV
MOV
MOV
RTI

.BYTE

NUMBER,~(SP)

..MER TO BE TYPED

R1,=(SP)

..SAVE R1 ON THE STACK

#'0,8BIN

:iSET CHARACTER TO AN ASCIT "0"".

6(5P),R1

PE
..

::GET THE INPUT NUMBER

::SET *'C" SO CAN KEEP TRACK OFTHE NUMBER OF BITS

..gzr ;ms BIT

ONE
g-;;
tns cmcrsa EQUAL TO THIS BIT

Ilcw\n
THso cm KEEP TRACK OF BITS
56000 THE NEXT BIT
POP THE _STACK INTO R1

: ADJUST THE STACK

..RETW TO USER
:;STORAGE FOR ASCII CHAR. AND TERMINATOR

CZRNDAQ P%80 FCINL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 36

SEQ@ 0237

CONVERT - NARY TO DECIMAL AND TYPE ROUTINE

.SBTTL

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

I dedeindediiodndnbiubededudebdedeiidedabbtedebbataded
bbb dodedadadedadedededeted i d A L L

L L 22 2 2 2 1 1 1 ]

'I’HIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT

.'Sl“b DECIML (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE

s*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
s*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE

:*REPLACED WITH SPACES.

*«CALL:

e
e

061064
1064

06111
06111
83"
11
&11
11

0611
061140
06114

020200
000020
80
80

000055 000001
1300

330040

3s:

”4

11§§

4s:

11&

511

58:

: 194

51174
51

51
51
51214
51

177777

%=
:

000010

61
51
51
51

RO,=(SP)
R1.=(SP)
R2.=(SP)
.=(SP)
<(SP)
%bzoo.-csm
(SP) .
$
"o, 1(SP)
K,R3

SH RO ON STACK
*iPUSH R1 ON STACK
2:PUSH R2 ON STACK
*3PUSH R3 ON STACK
::PUSH RS ON STACK
+3SET BLANK SWITCH AND SIGN
+:GET THE INPUT
R
::BR IF INPUT IS POS.

CLR
MOV
move
CLR

MOV
SUB
BLT

177777

177776

sor%mo) RT
R1,
4$

::MAKE THE BINARY NUMBER POS.
“:MAKE THE ASCI] NUMBER NEG.

::7ERO THE CONSTANTS INDEX
::SETUP THE OUTPUT POINTER
:3SET THE FIRST CHARACTER TO A BLANK
::CLEAR THE BCD NUMBER

::GET THE CONSTANT
::FORM THIS BCD DIGIT
2:BR IF DONE

: g;

.-.cnscx IF BCD DIGIT=0

IST8
8M]

..STILI. DOING LEADING 0°S?
::BR IF YES

B8CC

ADD
ASLB

R1.RS
5

(SP)

MOVB

(3» ~1(R3)

MOVE

8IS
8IS

MOV

8s:

#' ,(R$)+

2360 TO THE ROUTINE

ST
CMP
BLT
BGT

51
51
51

MOV
MOV
MOV
MOV
MOV
MOV
MOV
8PL

BNE

511
511

::PUT THE BINARY NUMBER ON THE STACK

NEG
MOVB

2s:

061270

NUM, - (SP)

TYPDS

$TYPDS:

1
1
1
187
1 73
110
1

MOV

R2 1& )+
(rO)+
Ro.no
RS.R2

BR
ISTB

63
(SP)+

MOVB

=1(SP),=2(R3)

B8PL

CLRB

MOV
MOV
MOV
MOV

(R3)

(SP)+,R
(SP)+.R
(SP)+.R
(SP)+.R

: :INCREASE THE BCD DIGIT BY 1

:;ADD BACK THE CONSTANT

2:FALL THROUGH IF 0
::MSD?

2:BR IF NO

::YES=-SET THE SIGN

::MAKE THE BCD DIGIT ASCII
s3MAKE IT A SPACE IF NOT ALREADY A DIGIT

2:PUT THIS CHARACTER IN THE OUTPUT BUFFER

+:JUST INCREMENT ING
2:CHECK THE TABLE INDEX
::60 DO THE NEXT DIGIT
2360 TO EXIT
22GET THE LSD

::60 CHANGE TO ASCII
*3WAS THE LSD THE FIRST NON-ZERO?
2:BR IF NO

::YES--SET THE SIGN FOR TYPING

*3SET THE TERMINAT

::POP STACK INTO R
::POP STACK INTO R
::POP STACK INTO R
*:POP STACK INTO R1

.
|
-

—

D cd i e o

§"z

.00 28-JAN-82 16:24:51 PAGE 36-1

YPE ROUTINE

830383 000004

TYPE

MOV

(SP)+,R0

2(SP),4(SP)
(SP)+, (SP)

SEQ 0238
::POP STACK INTO R

SINOW TYPE THE ugen

*3ADJUST THE STACK
ssRETURN TO USER

1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 37
I) AND TYPE
.SBTTL

SEQ 0239

BINARY TO OCTAL (ASCII) AND TYPE

'THIS ROUTINE IS USED TO cnmse A 16-BIT BINARY NUMBER TO A 6-DIGIT
:*OCTAL (ASCII) NUMBER AND TYPE IT.

.'STYPOS--ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
o*

MoV

NUM,-(SP)

o*
o*
o*
i

BYTE
BYTE

N
M

TYPOS

: sNUMBER TO BE TYPED

..CA%I.FOR TYPEOUT
iiN=

8 FOR NUMBER OF DIGITS TO TYPE
..18"?5 LEADING ZEROS
:;0=SUPPRESS LEADING ZEROS

'STYM--;NTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
:«$TYPOS

.'CALL
)
%

MoV
TYPON

NUM,-(SP)

2:NUMBER TO BE TYPED
ssCALL FOR TYPEOUT

:'%HPC--ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER

F
%

D waed nd el

b omd cnd and s

310

16
2

D e el

;g‘g

e o

§7

000000

116637 000201
112637 061535
1 g?

112737

010346

000005

d) i o
D emd
b el
e

::PICKUP THE MODE

gr (SP)

::ADJUST RETURN ADDRESS

MOVB

(SP) ,SOFILL
(SP)+,SOMODE
+1

#1,80FILL

STYPON: MOVB

MoV

3s:

.~(SP)

RS.-(3P)
:c‘imm.m.

ADD

#6.R6
Ré ,SOMODE
lLL.R;
(SP) .R

Move
MOV
CLR
ROL

BR
ROL
ROL
ROL
MoV
ROL

RS
RS

RS
g.RB

BIC
BNE

#177770 ,R3
43

BEQ

INC

s:SET THE ZERO FILL SWITCH

2:SET FOR SIX(6) DIGITS

ssSET 15 ITERATION COUNT

: s SAVE

II3AVE
RS
GET THE NUMBER OF DIGITS TO TYPE
22SUBTRACT IT FOR MAX. ALLOWED
2:SAVE IT FOR
USE
ssGET THE ZERO FILL SWITCH
::PICKUP THE INPUT
ssCLEAR THE OUTPUT WOI
2260 DO MSB
:;FORM THIS DIGIT

TST

' LOAD ZERO FILL SWITCH
vu-ea OF DIGITS TO TYPE

s 2ROTATE MSB INTO

DECB

BPL

4$:

+SOCNT

ROV
g?

MOVB

2$:

b
b oo

0615

061535

1$:

177770

444

?(SP).-(SP)

MovB
MOVB

820222
1
833333
12

061534

22NUMBER TO BE TYPED
2:CALL FOR TYPEOUT

STYPOS: MOV

8%§§&
113704 061535

41
[
4

NUM,~-(SP)

1" 7% 88888; 061533 STYPOC: MOVB

414

424
4
4

061533

885{16 000002

) e e

017646

MOV
TYPOC

°°C

2sGET LSB OF TMIS DIGIT

J:TYPE THIS DIGIT?
:2:BR IF NO

ssGET RID OF JUNK
::TEST FOR O

2 sSUPPRESS THIS 0?

::BR IF YES

2:DON'T SUPPRESS ANYMORE 0'S

SEQ 0240

8$:

gsgflf
ILL:
do

SOMODE

b[YVIVIVNITY]

- —=

- gg geOOT O

‘a

g«mx«%«&u«u«%«m o
m

e ' te ta s
. *atafatatatete

1)(b-]y.IT.I-—

MACRO V04.00 28-JAN-82 16:24:51 PAGE 37-1

FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 38
.SBTTL
iR

SEQ 0241

TYPE ROUTINE

RRAAARRRAAAAARAA AN AN EEN AR CAAAAAAAAAAAAAAANNNAAARAACONAAANOIRRY

**ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE.
:«THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.

*eNOTE1:

SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.

;*NOTE3:

SFILLC CONTAINS THE CHARACTER TO FILL AFTER.

$#NOTE2:

SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REGUIRED.

2=CALL:

t#1) USING A TRAP INSTRUCTION
o
TYPE
,MESADR
3]

D b

SRS FRERRIRRIRRERRERERRERERERRERERRER

) D d D o oD wd wd

544
56

D med end cced

564
%
76
602

b oo e cd e

D D

oos

100002

010046
owggg
122
19;1
132737
001405
010937
004737

001173

000002
000001

b cod cd e cd cmcd d cmad 1D e

252
654
§§
693

mod b

6
%3

704
7
71

STYPE:

18:
001242

000100 001243

“"28

0662

000040

001243

61S:

62$:

2s:

63
6;6

) ol o wod e

105737

000002

000011
000200

062066
88175

117
001170
000001
1750

332066

32’

48:

TYPE

MESADR

TSTB

6$:

78:

STPFLG

;1S THERE A TERMINAL?

0
#APTCSUP,SENVM

:MESSAGE ADDRESS

:sr;: ”

::'{Es;&l%m POP IT OFF THE STACK

B8PL
HALT
ai
MOV
MOV
CMPB
BNE
BITB
BEQ
MOV
JSR

$:BR IF YES
*:HALT HERE IF NO TERMINAL
3s
s :LEAVE
gg -(SP)
::SAVE RO
(sP) ,RO
:3GET ADDRESS OF ASCIZ STRING
WAPTENV,SENV
::RUNNING,é" APT MODE
628
$:NO,GO CHECK FOR APT CONSOLE
#APTSPOOL,SENVM ::SPOOL MESSAGE TO APT
::NO,GO CHECK FOR CONSOLE
,618
::SETUP MESSAGE ADDRESS FOR APT
PC.SATY3
::SPOOL MESSAGE TO APT

BNE
MOVB
BNE

623
(RO)+,=(SP)
4$

.WORD
BITB

ADD - #2,(SP)
RTI

acg'
%a

ST
CLRB

;E:Er
5%:

;sMESADR IS FIRST ADDRESS OF AN ASCIZ STRING

BR
JSR
P8
BNE
MOV
DECB
BLT
JSR

gsce

gr.(sn
ggm.r.tsn

(SP)+
gmcut

PC,STYPEC

fLLC.(SP)+
L,=(SP)
1(SP)
6
PC,S$TYPEC

; HARCNT

::APT CONSOLE SUPPRESSED

$3YES,SKIP TYPE OUT
::PUSA_ CHARACTER TO BE TYPED ONTO STACK
$3BR IF IT ISN'T THE TERMINATOR

+:ADJUST RETURN PC
+ "RETURN

S:BRANCH IF <HT>
; sBRANCH IF NOT <CRLF>

:3POP
<CRY<LF> EQUIV
*STYPE A CR AND LF
;:CLEAR CHARACTER COUNT

$:GET NEXT CHARACTER
+360 TYPE THIS CHARACTER
:IS IT TIME FOR FILLER CHARS.?
S:1F NO GO GET NEXT CHAR.
$:GET # OF FILLER CHMARS. NEEDED
$2AND THE NULL CHAR.
::DOES A NULL NEED TO BE TYPED?
$3BR IF NO--GO POP THE NULL OFF OF STACK
$:60 TYPE A NULL

::Egogor COUNT AS A COUNT

MACRO V04.00 28-JAN-82 16:24:51 PAGE 38-1

SEQ 0242

sHORIZONTAL TAB PROCESSOR

108:

117136

117130

00001? 000002

18:

fio

000002

=h3D

«
F

]

062066

*32’%

1028:

000012

%IKS

CHAR IN KYBD BUFFER?
: sBR IF F NOT
GET CHAR
s STRIP Exmnsous BITS
X
: sWAS CHAR
::BR IF nor

SCHARCNT: . WORD
$TYPEX: RTS

%
e %
Ve %o

=(SP)
(SP)

ssGET NEXT CHARACTER
Ve %e Be %e %e Ne

1018:

117154
177600
000021

000002

g
osxon. (SP)

117160

:TAB STOP

..PW SPACE OFF STACK

017

: :BRANCH IF NOT AT

”TKS

:3WAIT FOR CHAR

z;;§°?P

::GET CHAR
23STRIP IT
ssWAS IT XON?
2:BR IF NOT

(SP)+

s3FIX STACK

TPS

2(SP) asm

cga
,2(SP
scmcnr

(SP)
flr
STYPEX
(PC)+
0

s2WAIT UNTIL PRINTER IS READY

:sLOAD CHAR TO BE TYPED INTO DATA REG.

TE TR TR TR TR TR T81Y

STYPEC:

117204

117
177

lsiCHMCNT

RE'P‘EACE
TAB WITH SPACE

;s1S
CHARACTER A CARRIAGE RETURN?
[
IF NO
. BRANCH
CHARACTER COUNT
0 EE?;-CLEM

.
.
.

1S CHARACTER A LINE FEED?
BRANCH_IF YES
THE CHARACTER
0 COUNT
CHARACTER COUNT STORAGE
.

.
.

CZRNDAO RM8O FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 39

SEQ 0243

SCOPE HANDLER ROUTINE

.SBTTL

SCOPE HANDLER ROUTINE

AR AR AR AR

ANA R RN RN AR

R AR ARV

RARRARR AR

'THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. lT UlLL INCREMENT
:*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DIS
R . (DISPLAY<7:0>)
'ND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<
SWITCH OPTiONS mvxoeo BY THIS ROUTINE ARE:

nsu 4=1
seSW11=1
+#5W09=1
:gmfl
:
$SCOPE:

062734
040000

117046

18:

os:

062540

LOOP ON TEST
INHIBIT ITERATIONS
LOOP ON ERROR
LOOP ON TEST IN SWR<7:0>

SCOPE

CKSWR
JSR
BIT
BEQ
N

::SCOPE=]10T

PC,STOP

;gim.asun

$OVER

:sTEST FOR CHANGE IN SOFT=-SWR
:LOOP ON PRESENT TEST?

*NO IF SW14=0
2JUMP OVER SCOPE ROUTINE

NRAANSTART OF CODE FOR THE XOR tesrenmm

§XTSTR: BR

SNOSHO

b el d b b ced b cmd ) o—d w—d
SSNNIRRSINARE

195665

000004

58:

000004

832777
1421

000400

116774

MoV
MOV
ST
MOV
BR
CMP
MOV
B8R

mvsc ~(SP)
,’mfivec
(sm S#ERRVEC
$SVLAD
(SP)+, (SP)+
(SP)+.@#ERRVEC

#BITO8,asWR

AR
P
€ =

142

CLR

)

000067

MOVB
BEQ
CMP

aSuR, (SP)
8s
#67, (SP)

001116

MoV

(SP) ,STSTNM

BLT

DEC

ASL

ADD

062556
001122

177777

MOV
8s:
2s:
063352

063004
195966
063382
177777
062300

063352

::SAVE THE CONTENTS OF THE ERROR VECTOR
:3SET_FOR TIMEOUT
*:TIME OUT ON XOR?
.nssme THE ERROR VECTOR
::G0 TO THE NEXT TEST
*3CLEAR THE STACK AFTER A TIME OUT
::RESTORE THE ERROR VECTOR
LOOP ON THE PRESENT TEST

6S: ;MMAMNEND OF CODE FOR THE XOR® TESTERWAMEN

116764

001117

:IF RUNNING ON THE 'XOR'* TESTER CHANGE
STHIS INSTRUCTION TO A *NOP*(NOP=240)

BR
1ST
1ST8
BEQ
CMP
BEQ
MOV

MoV
MOV

20008: MOV

MOV

(SP)

:.LON"%SPEC. TEST?
ssCLEAR A _TEMP. LOCATION

::PICKUP THE DESIRED TEST NUMBER
::BRANCH_IF BAD TEST NUMBER IN SWR
..CIECK THE NUMBER IN THE SWR

ssBRANCH IF TEST NUMBER IS OUT OF RANGE
: UPDATE THE TEST NUMBER

:BACKUP BY ONE

(SP)
#SSWOBTBL, (SP)

s SCALE THE TEST NUMBER AS AN INDEX
:sFORM THE ADDRESS OF TEST POINTER

SOVER
(SP) +
§RFLG

:e
LOOP ON THE TEST
$:G0

9(SP)+,SLPADR

0-1 PSAVE
€,=(SP)

S ERRVEC
66 CPSAVE

'0-1 PSAVE

czob$,(SP)

::SET LOOP ADDRESS TO DESIRED TEST

T CLEAN THE BAD TEST MR OFF OF THE STACK
:s;HAS AN ERROR OCCURRED?
::BR_IF
no
:BR
::SEE IF_TIMEOUT WAS PREVIOUSLY RECORDED
i
AROUND ROUTINE IF SO
?JTENTS OF ERROR VECTOR

::SETU’ TRAP' RETURN ADDRESS
;:MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST
ssSET CPU ERROR REGISTER TIMEOUT INDICATOR
:sSETUP RETURN ADDRESS

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 39-1

SEQ 0244

SCOPE HANDLER ROUTINE

RTI

20018: MOV

(SP)+,ERRVEC

;;RESTORE CONTENTS OF ERROR VECTOR

20028:

CMP

#-1,CPSAVE

s s SEE IF CPSggE HAS CPU ERR REG TIMEOUT INDICATION

BIT
BEQ

zoosg

:%roo,CPSAVE
2003$

;;SEE IF THE POWER MONITOR BIT IS ON

($P)
a<
fi)-csm
#176,SWR
(SP) ;@SWR
'9;169 asSWR
(SP)+,a(SP)
(SP)+.SWR

::CLEAR THE BIT FOUNDTO BE SET

11
001
116572
000000
001154
.

MOV
MOV
MOV
MOV
BIC
EMT
MOV
MOV

mroo 177766

001131

001117

gm-e

ggm.sems

”s"zxx ERMI;ORS FOR THIS TEST OCCURRED?

001000

116542

Bfl,

zgnomasua

::LOOP ON ERROR?

001126 001122 78:
001117
48:
001206

MOV
BR
CLRB
%a

SLPERR, SLPADR
SOVER
SERFLG
gmes

::SET LOOP ADDRESS TO LAST SCOPE

004000

BIT .

ognn.asun

..IM'IIBIT ITERATIONS?

.WORD
.WORD

TST5+
TST?*

WORD

+WORD
WORD
LWORD

TST4+
TST/+

TST10+
TST11+
TST12+

SN NN =

TST2+
TST3+

WORD

R OF ITERATIONS

b b b
N=O

TST1+

TEST NUMBER
ETURN ADDRESS

VIV
e = o
o e ] o omf

SMXCNT: 5.
$SWOBTBL:
REPT
$TN-1
.WORD
WORD

SLPADR, (SP)

gg}/

SERMAX

srsm.aoxsmv

ET NUMBER OF ITERATIONS TO DO
;s COUNT TEST NUMBERS
SET TEST NUMBER IN APT MAILBOX
ADDRESS
O0OP ADDRESS
THE ESCAPE FROM ERROR ADDRESS
ALLOW ONE(1) ERROR ON NEXT TEST

w
(7]

00112

SCAPE

REINITIALIZE THE ITERATION COUNTER

1113 116410 SOVER: MOV

STSTNM,STESTN
(SP) ,SLPADR
(SP) . SLPERR

csBR _IF MORE ITERATION REQUIRED

MOVB
MOV
MOV
CLR
MOVB

STSTAM

..CHSCK THE NUMBER OF ITERATIONS MADE

&
"é

SSVLAD: INCB

mm.mnes

..INCREKNT ITERATION COUNT

WVWNONNIN
QON

3Rp2gy
S -—
&

e
ZARE
N

) sl
o
e nad sondh vemd smed v

1113 001226
oons
1124
1210
1 001131

MOV

INHIBIT ITERATIONS

ZRIRIRIRRS

881116

OO0

1256

: ;IF FIRST PASS OF PROGRAM

mwm

062554

#1,81CNT

::BR IF YES

MOV

scESCAPE TO THE NEXT TEST

(%]

001

R R

NISBIRER SRR EARNSISNS

OO RRRRR

001;52

ssZERO THE ERROR FLAG
csCLEAR THE NUMBER OF ITERATIONS TO MAKE

et i

001120 18:

001230

1
$PASS
1$
SICNT
smfisLSICNT

::BR_IF NO

001120

BNE
ST
BEQ
INC
gslg

:;RESTORE SWR ADDRESS

38:

:;RESTORE SWR TO ORIGINAL VALUE

116510

::SAVE SWR ADDRESS
;sSAVE SWR VALUE
s;GET SOFTWARE SWR ADDRESS
ssGET CURRENT SWR VALUE
ssDON'T ALLOW LOOP ON ERROR ON THIS ERROR
ssCALL SPECIAL POWER FAIL BIT ERROR CALL

£ xg= ,.gg~

QVNIFERAR

1154
176 001154

sBRANCH TO CONTINUE RWTI'E IF CLEAR

ZEzEzazaa:

BIC

"nno

177766

830021

s sBRANCH IF

RiEsSaeaie

063352

000001

BEQ

063352

AR
TR TA 1)

177777

022737

063560 012637 000004

we
~N

RNDAO RMB0 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 39-2
COPE HANDLER ROUTINE

TST13+

: :STARTING ADDRESS OF TEST 13

062606
06261C

.WORD
.WORD

TST15+
tsngo

+:STARTING
:sSTARTING

06261

06265

JWORD

LWORD

WORD

JWORD

062620

.WORD

0626
0626
'-‘v{*f

.WORD
WORD
.WORD

TST14+

TST17+

::STARTING ADDRESS OF TEST

TST23+
TST24+
TST25+

.WORD
MORD

TST33+
TST34+

.WORD

TST36+

':g. :

.WORD

06265

.WORD

062654

.WORD

062656

WORD

062660
062662
062664
06

WORD
WORD
LWORD
WORD

rs19+
TST27+
TST30+
TST31+

TST32+

TST35+

TST37+

rsugo

TST41+
TST42+
TST43+
TST44+
TST4S5+

TST55+

06¢

JWORD

062

MHORD

TSTE3+2

WORD

TST65+

TST57+
TST

WORD

TST62+

-WORD

TST56+

MORD
WORD

{WORD

D62

WORD

::STARTING ADDRESS OF TEST

;:STARTING ADDRESS OF TEST 40
:STARTING ADDRESS OF TEST 41

::STARTING ADDRESS OF TEST 5

.WORD

Dé

::STARTING ADDRESS OF TEST gg

TST53+

06271
06

::STARTING ADDRESS OF TEST

::STARTING ADDRESS OF TEST 50
::STARTING ADDRESS OF TEST 51
::STARTING ADDRESS OF TEST 5

TSTS54+

06271
062714

3¢

::STARTING ADDRESS OF TEST
::STARTING ADDRESS OF TEST

TEST 46

MNORD
WORD

::STARTING ADDRESS OF TEST

TST47+

TSTS50+
TST51+
TST52+

::r Tl
AD ssonesr 9
::STARTI
SS OF TEST
::STARTING Amsss OF TEST
::STARTING ADDRESS OF TEST 31

:;STARTING ADDRESS OF

LWORD
WORD
WORD

WORD

TST61+
TST64+

TST66+
TST67+

::STARTING ADDRESS OF TEST 47
::STARTING ADDRESS OF TEST 54

::STARTING ADDRESS OF TEST 55

:;STARTING ADDRESS OF TEST 56

::STARTING ADDRESS OF TEST 57
;:STARTING ADDRESS OF TEST 60

::STARTING ADDRESS OF TEST 61
::STARTING ADDRESS OF TEST

::STARTING ADDRESS OF TEST

::STARTING ADDRESS OF TEST 64

::STARTING ADDRESS OF TEST 65

::STARTING ADDRESS OF TEST 66
::STARTING ADDRESS OF TEST 6

:DROP PRIORITY TO ALLOW CONSOLE INTERRUPT
g:

22 43

140

STOP:

MoV
MoV
RTI

#PR3,~(SP)
#643.~(SP)

..PUT NEW PS ON STACK
::PUT NEW PC ON STACK
::POP NEW PC AND PS

sRAISE PRIORITY TO INHIBIT CONSOLE INTERRUPT

012746

000240

MoV

24
25

TST46+

062674
062676
062700
06270

062704

; ;STARTING ADDRESS OF TEST
::STARTING ADDRESS OF TEST
..smnns ADDRESS OF TEST

TEST 42
TEST 43
TEST 44
TEST 45

WORD

JWORD

::STARTING ADDRESS OF TEST

::STARTING ADDRESS OF
::STARTING ADDRESS OF
::STARTING ADDRESS OF
::STARTING ADDRESS OF

0626

06267

::STARTING ADDRESS OF TEST

TST22+

TST21+

0626
0636

062650

ADDRESS OF TEST 15
ADDRESS OF TEST 19

::STARTING ADDRESS OF TEST

.WORD
.WORD
.WORD
JWORD
WORD

::STARTING ADDRESS OF TEST 14

TST20+

0663
m,.“
"‘v'a?
062636

06264

SEQ 0245

MORD

06261

06260

#PR5,~(SP)

ssPUT NEW PS ON STACK

CZRNDAO RMSO rcm m MACRO V04.00 28-JAN-82 16:24:51 PAGE 39-3

SEQ 0246

SCOPE HANDLER

12746
80500
10

000207

062760

MOV

RTI

#658,~(SP)

::PUT NEW PC ON STACK

RIS

sRETURN

$:POP NEW PC AND PS

CZRNDAO RM8C FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 40

SEQ@ 0247

ERROR HANDLER ROUTINE
1

.S3TTL

ERROR HANDLER ROUTINE

AR AR AR AR AR AR AR

RN RN AR

AR ARARAA RN AN RRRNARRARAR AT

'THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,
:#SAVE THE ERROR IT EM NUMBER AND THE ADDRESS OF THE ERROR CALL
:*AND GO TO ERRTYP ON ERROR

'TH?
SWITCH OPT I10NS PROVIDED BY THIS ROUTINE ARE:
HALT ON ERRCR
INHIBIT ERROR TYPEOUTS
BELL ON ERROR
LOOP ON ERROR

'3013:1
:*SW10=1
: #SW09=1
:*CALL

177777
063140

063352

10008

1001$:

177777

063352

000001

063352

:
10028

1777

001 130

14
14

105037

063354

5 Rl 063356
020000

115732

16043

TEST FOR CHANGE IN SOF T-SWR

ggmo.asua

...BE'bLI. onlgmz

$BELL
$ERTTL

*:RING BELL
::COUNT THE NUMBER OF ERRORS

ie’s‘mpc

RRPC,SITEMB

rg9.ism

snm |

s sBRANCH AROUND ROUTINE IF IT IS

TR TR 13

AT
TA

s s SEE XF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION
: sBRANCH IF SO
SAVE CONTENTS OF ERROR VECTOR
SETUP 'TRAP' RETURN ADDRESS
: sMOVE CPU ERROR REGISTER TO CPSAVE FOR TEST
A

PSAVE

1og1

;:;STRIP AND SAVE THE ERROR ITEM CODE

+:SEE IF LOOP ON ERROR IS SET
: :BRANCH AROUND ROUTINE IF SO
..sse IF THIS IS THE Pousn FAIL CALL

::SEE IF}nxgoxs THE 2ND ERROR CALL IN THIS ROUTINE

*3?
#-1,

+:GET ADDRESS OF ERROR INSTRUCTION

177766

CMD-O

8%1&

[

177777

zggegeag 322283383gaaigza
a°
2

063354

..cmn THE ITEM BYTE SAVE LOCATION

s;ms
iISET THE ERROR FLAG
7
*:DON'T LET THE FLAG GO TO ZERO
STSTNM,aDISPLAY ;:DISPLAY TEST NUMBER AND ERROR FLAG

78:

000177

IBSAVE

$ERRCR:

1$:

: ;ERROR=EMT AND N=ERROR ITEM NUMBER

AIATA TR T

105037
0

0106§s.<sn

ssSET CPU ERROR REGISTER TIMEOUT INDICATOR
:sSETUP RETURN ADDRESS

(SP)+,ERRVEC

s sRESTORE CONTENTS OF ERROR VECTOR

#-1,CPSAVE

.&EE"%’F' EPSQ(V’E HAS CPU ERR REG TIMEOUT INDICATION

CPSAVE

1ool§

nixlrgznmu

SEE IF POWER MONITOR BIT IS SET IN CPU ERR REG
s sBRANCH_IF OK
;CLEAR THE BIT FOUND SET
sxmiusms sMAKE IBSAVE NON-ZERO FOR
DUAL ERROR CALL
sSET SITEMB TO SPECIAL
R FAIL POINTER
1

700,

CPSAVE

..uwacH OVER IBSAVE CLEARING

IBSAVE

T13,35WR
PC.ERRTYP

ssCLEAR IBSAVE SO 2ND TIME THROUGH EXITS
:sSKIP TYPEOUT IF SET
sSKIP TYPEOUTS

360 TO USER ERROR ROUTINE

CZRNDAO RMB0 FCTNL PT1 MACRO v04.00 28-JAN-82 16:24:51 PAGE 40-1
ERROR HANDLER ROUTINE

063354

6$:
Tl
CPSAVE: .WORD
IBSAVE: .WORD

SCAPE

$ESCAPE, (SP)

#SENDAD
, 3442
6%

2,52

| =
w

£
S
3z
g: 3

g
o

momTMTMm

gese

m
m

LOADED
NO HALT ON PWR MON BIT ERROR

IN SOFT=SWR

SWITCH SET?

FOR LOOPING
FOR AN ESCAPE ADDRESS

5$:

SLPERR, (SP)

gaso01 041512 000042

3
goset
gm
8
nE—ETTM

001210

4$:

[2]

001124
001210

000000

zgx T09,aswR

115644

ggua

115660

: :REPOR

m>a»

:iSEf 1

218:

s sRUNNI
s :NO, SK

175”.215

PC,SATY

063354

001000

1402
13716

#APTENV,SENV

TR}

000001 001242
e
113737
063256
004737 064278

+SCRLF

208:

LTATATA
TR A ' Y

01217

SEQ 0248

LATR TR TR TR

104401

“

RETURN ADDRESS FOR ESCAPE

AUTO-ACCEPT?
IF NO

;gSAVE

;sSEE IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL
w BACK TO CALL ORIGINAL ERROR

;

ssLOCATION TO SAVE CPU ERROR REG CONTENTS
s;LOCATION TO SAVE ITEM BYTE

CZRNDAQ RM8O FCTNL PT1 MACRO V04.00 28-.AN-82 16:24:51 PAGE 41

SEQ 0249

ERROR TYPEOUT ROUTINE

.SBTTL

;

s*THE ERROR TYPEOUT ROUTINE ASSEMBLES AND PRINTS INFORMATION

tREGMDING THE DETECTION OF AN ERROR AS FOLLOWS:

tAFTER THE ERROR MESSAGE.

g
16

020000

115566

3
5

5
50

#SW13,aSWR

s INHIBIT TYPEOUTS??

JMNP

278

sYES!!

BEQ

sNO!!

sTYPE UNIT NUMBER, DRIVE TYPE, TEST NUMBER, ERROR NUMBER,

TYPE
MOV
TYPOS

BIT

:PROGRAM_COUNTER
is:
TYPE
,SCRLF

g1 8ekitg

desire

ERRTYP: SAVREG

064166

18
19 83;27‘

ERROR NUMBER AND

.PAIRED LINES OF ERROR HEADERS AND ERROR DATA ARE PRINTED

15 o

]

DRIVE TYPE, TEST NUMBER,

.'M OR MORE SUCCEEDING LINES;

10
}1

JUNIT NUMBER,

.'PROGRM COUNTER ARE PRINTED ON'THE FIRST LINE;
.ERROR MESSAGE IS ASSEMBLED, FORMATTED AND PRINTED ON

8
9

ERROR TYPEOUT ROUTINE

.BYTE
.BYTE

ERTY00
$UNIT,=(SP)
3

:TYPE 'DRVA"’
+2SAVE SUNIT FOR TYPEOUT
+:TYPE DRIVE NUMBER
::60 TYPE=-=OCTAL ASCII
S:TYPE 3 DIGIT(S)

: :SUPPRESS LEADING ZEROS

:TYPE 'DRIVE TYPE',

MOV

063452

2s:

38:

MOV
BIC
MOV
[
BNE
TYPE
TYPE
MORD

UNDER TEST
$BASE 38 FOR UNIT:GET
RM BASE ADDRESS

%ig) RO
#1777460,R0
{3
¥

LERTYOS

-TYPE TEST NUMBER,

is:

CLR

MOV
TYPE
MOV
TYPOS
.BYTE
-BYTE

CLR
MOVB
BEQ
TYPE
MOV
TYPOS

ERROR NUMBER AND PROGRAM COUNTER

TSTNMB
STESTN, TSTNMB
ERTYOT
fSTNMB,-(SP)

RRNMB
irm.enm
ERTY02
ERRNMB,-(5P)

.BYTE

58:

-BYTE

TYPE

*GET DRIVE TYPE REGISTER
*SAVE DRIVE TYPE BITS AND
*GET ASCII DRIVE TYPE
:IS DEVICE AN RMS0 ?
*NO !!
STYPE " = **
*TYPE DRIVE TYPE
:DRIVE TYPE MESSAGE IS STORED HERE
:LOAD TEST NUMBER FOR

:TYPE *ISTH"
::SAVE TSTNMB FOR TYPEOUT
:iTYPE esr NUMBLR
::G0 TYPE=--OCTAL ASCII
*STYPE 3 DIGIT(S)
: :SUPPRESS LEADING ZEROS

:LOAD E
NUMBER FOR
s TYPEOUT
:SKIP IF NO ERROR CALLED
:TYPE "ERRAN"’
::SAVE ERRNMB FOR TYPEOUT
::TYPE ERROR NUMBER
*G0 TYPE=-OCTAL ASCII

..ms 3 DIGIT(S)
,LERTYO3

: SUPPRESS, LEADING ZEROS

'rvps PC=

CZRNDAO RMB0 FCTNL PT1 MACRO V04.00 28~JAN-82 16:24:51 PAGE 41-1
ERROR TYPEOUT ROUTINE

A Sr A Y

002
001

P A I LT X S
R
2R
S

és:
78:

064201

8s:

001564

9s:

..TVPE 6 DIGIT(S)

::TYPE LEADING ZEROS

B
278

CLRB

$CRLF
BOTFLG

MOV
P8
BNE
MOV
BR

£
#177.R0
1
#PFECH,RO
9

ASL
ASL

ASL
ADD
MOV

CHRCNT

000015
064201
000012
7

064201

176
100 064201

064176

sYES=TYPE _CRLF

sCLEAR BOT FLAG

C EAR CHARACTER COUNTER
POINTS TO FIRST OF

SEE IF THIS ERROR CALL IS SPECIAL POWER FAIL CALL
:BRANCH IF NOT
:MOVE POWER FAIL ERROR CALL TABLE TO RO

R
o:sma-a..no
(RG) ,R1

'Ruglflfs TO ERROR MESSAGE

TABLE

sBRANCH IF NO ERROR MESSAGE

(ggn.uz

sR2=ADDRESS OF MESSAGE STRING

@8‘

80TADR

:LOAD ADDRESS OF STRING

118:

CLR

%”‘"3

.‘E'Os'w STRING??

#CR.R3
1
?n
1$
n%r.ns

'c‘Aon'uAeE RETURN??

128:

CMPB
BNE
CLRB
BR
(W8

ane”
g
INCB

1’21""
CHRCN

m;zonm TAB??

BNE
BR

i
158

004

7 822176

mov

sNO==EXIT

sFOUR ENTRIES IN ERROR

:TYPE THE ERROR MESSAGE

f0s:

:BR IF YES

BEQ

BNE
JMP
TYPE
CLRB

064174
000177
064244

:TYPE PROGRAM COUNTER

; GENERATE POINTER TO ERROR TABLE UNLESS ERROR NUMBER IS 0
RRNMS
JWAS AN ERROR CALLED?
ST

084174
064166
321 17

..SAVE SERRPC FOR TYPEOJUT

::G0 TYPE==OCTAL ASCII

.BYTE
61
BYTE

833521

9N
95

SERRPC,~(SP)

TYPOS

MOV

135:

14$:

158:

8EQ
MOV

BEQ

BITB
INCB

g:a

MOV
CMPB
BHIS

MOV
BAE

MOV

1
R2,18%

118

#7,CHRCNT
CHRCNT

rs.ns

BOTADR
- . CHRCNT

118

TADR R4

sas.n

:BRANCH IF END OF MESSAGE
sCLEAR BOT ADDRESS
YE

—“e=

§i$&
3545

10440

542

001132

S=CLEAR CHAR COUNT
vefgpcmcren

=GET NEXT CHARACTER

«»

013746

46 063536

SEQ@ 0250

ADJUST CHARACTER COUNT

.INCRE‘NT CHARACTER COUNT

sSPACE??

:NO!!

: SAVE ADDRESS OF SPACE
"E‘P OF LINE??
+GET ADDRESS OF LAST SPACE

?Y“P'EK’C'
IF SPACE DETECTED

:CLEAR CHMACTER COUNT

sSET UP R2 FOR TESTING

ZRNDAO RMBO FCTNL PT1 MACRO V04.00 28~JAN-82 16:24:51 PAGE 41-2

064200
1217

1
1

1
110 06

119
1
113
1
1

836001 000002
1444
104401
001217
1
1

121

12137

76 001433

D o cd WD e
D oud
oD
el ook wd vad ol mmd el cnd cnh cnd wnd b

306008

104401

%;o;
1
1

001217

;g;a
TYPE

mns
$CRLF

:w.smufi TRUNCATED??
*YES=TYPE CRLF

CLRB

CHRCNT

.-c%m CHARACTER COUNT

.WORD

MOV
MOV

MOVB

TST8
BR

208:

218

,-(R2)

(a;So
1

258:

sRESTORE SPACE

*RESTORE R2
:TYPE REST OF STRING

ERROR DATA

scnkr
4(ROY R
6(R0) .R

;R1 POINTS TO ERROR HEADER TABLE
:BRANCH IF NO HEADER
: (ASSUME NO DATA)
:R2 POINTS TO DATA ADDRESS TABLE
:R3
POINTS TO FORMAT TABLE

BEQ

278

:BRANCH IF END OF HEADERS

(R1)+,218

'mm 0

:PUT HEADER ADDRESS FOR TYPE

: (ASSUME END OF DATA)

ADER ADDRESS GOES HERE

CRLF

:%p.\ WITH HEADER??

)+,R4
; + RS

22%:

248:

*SETUP R2 FOR TESTING
*SETUP 188 FOR TYPING

mov
Q
TYPE
MOV
MOV
MOV

(RO) R

ADDRESS GOES HERE

*CLEAR BOT FLAG

TADR.R2
R2,18$

238

:STRING

BOTFLG

:TYPE ERROR HEADER AND

i9s:

:Ré POINTS TO DATA ADDRESS
*RS POINTS TO FORMAT

cWHAT KIND OF DATA??
:BINARY

g(k‘)*.-(SP)

BR
MoV

25%
#(R4)+,=(SP)

TST

268RTYO04

iDLt
SYES=TYPE 2 SPACES

RLF

STYPE ONE SLANK LINE

6o
TYPE

cwd e
a2

9
3+

*«

Sttt ettt

ettt

_SOOOOC
OO0

NRURZESSIEGRERES

e
e
R
e L
e R R
D R

.fi

WU
e I

DOV R

06
0¢
SOC

129
130

I Sy

106

0641

} 3 &}

—b
b O

NN SR RS AR SRR RN S e aRlS

sREPLACE SPACE
:SET BOT FLAG
:TYPE ERROR MESSAGE STRING

115

=(Ré)
#-1,BOTFLG

CLRB

‘1)8“

CLRB
MOVE
TYPE

}

188:

A
004

11;
H‘

178:

118

SEQ 0257

}
1

103

066200

177777

168:

323

1
101
102

R$)

)

DATA??

*AND CONTINUE

*BEFORE NEXT HEADER

PC
TSTNMB: .WORD

E
:
BOTADR:
BOTFLG:
CHRCNT:

WORD
.WORD
.BYTE
.BYTE

:TEST NUMBER

;ERROR NUMBER
sBEGINNING OF TEXT ADDRESS
:BOT FLAG
JCHARACTER COUNT

ééil’\
%EE
NARIISEIR FERLIBIENE 3

RAB0 FCTN%
PT1 MACRO Vv04.00 28-JAN-82 16:24:51 PAGE 41-3

e wd o

D e

o0 we 00

ASC
-ASC
<ASC

: .ASCIZ
: .ASC}

8os

ERTY

D D v

i i cnd o

YPEOQUT

aDRVAS

a8, TESTHR
8, ERR#S

@. PC=a
?a

a-3a

P:icul+PFECH2 ,PFECH3 ,PFECH4 ;WORDS DEFINING TABLES BELOW

.eegll ?POWER MONITOR BIT IN CPU ERROR REGISTER FOUND SET?

*eaStlz 2cPUERREG?
EVEN

.’

CPSAVE,0

.BYTE

0,0

SEQ 0252

MACRO V04.00 28-JAN-82 16:24:51 PAGE 42
.SBTTL
i

SEQ 0253

TTY INPUT ROUTINE

bbb b

AR AR LA AL AR AR A a

STKCNT: .WORD
$TKQIN: .WORD
$TKQOUT: .WORD
$TKQSRT: .BLkB

O
8

ssNUMBER OF ITEMS !N QUEUE
s INPUT POINTER
: :OUTPUT POINTER
s:TTY KEYBOARD QUEUE

NITIALIZE THE TTY KEYBOARD INPUT QUEUE

s*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT

JSR

'
06437,

064
0643Sg

1142%

0001

RET

CLR

064374
76

:CLEAR COUNT OF ITEMS IN QUEUE

STKCNT

MOV
MOV

#STKQSRT, $TKQIN MOVE THE STARTING ADDRESS OF TME
$TKQIN,
STKQOUT ::QUEUE INTO THE INPUT & OUTPUT POINTERS.

#200,a#TKVEC+2
agnd

MOV
MOV

MOV
RTS

114510

PC.STKINT

#STKSRV S#TKVEC ::INITIALIZE THE KEYBOARD VECTOR

#100,387KS
PC

::'BR'* LEVEL 4
:2CLEAR DONE FLAG

$:ENABLE TTY KEYBOARD INTERRUPT
$*RETURN TO CALLER

K SERVICE ROUT

S A "'CONTROL-C'" (“C) STKINT IS CALLED AND
S MADE TO THE “‘CONTROL~C’® RESTART ADDRESS (SHUT)
TKSRV: MOVB

BIC

AT
b

N=N~N

308
000003

RTI

805007

1$:

000176

001154

000001

064372

2%:

;:PICKUP THE CHARACTER

) A#$XON
(SP)+

::1S IT A RANDOM XON?
2 ;BRANCH IF NO
::CLEAN RANDOM XON OFF STACK

gp).u

JSR
ST
JMP
P
BNE
P
BEQ

PC,STKINT
(SP)+
T
(SP) .47
28

TYPE

862462

001212

P
BNE
ST

am”-(m

#4C17%,(5P)

raary

SCNTLC

amsc.sua

cwe

#1.$TKCNT

TYPE

,SBELL

BNE

$:STRIP THE JUNK

2 sRETURN

218 1T Axgo:guu C?

::gmiu CONTROL=C (*C)

::xng”me KEYBOARD
UP STACK
::cgnml. ¢ RESTART
:3IS IT A CONTROL G?
$:BRANCH IF NO
+31S SOFT=-SWR SELECTED?
$:G0 TO SWR CHANGE
*:CLEAN

::1S THE QUEUE FULL?

; sBRANCH”ér NO
$:RING THE

TTY BELL

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 42-1

SEQ 0254

TTY INPUT ROUTINE

w.§§

5726

1021

0645

000023
114362

m}2

"‘233
177
000021

ou.mg

06464
0646644
06465
064656

4S:

064401
0646400 064374

0646
064700

..xs IT A comon.-sr

58:

*BRANCH IF
+:DISABLE m KEYBOARD INTERRUPTS

(SP)+

..cmn CHAR OFF STACK

gms

S:WAIT FOR
A CHAR

3?'1'

x9 -(SP)
#4177, (SP)
§§:"21

#100,387KS

..I.OOP UNTIL ITS THERE
35 mss
GET
CTER
MAKE IT 7-BIT ASCII
..xs
n A Eonmon.-ov

INC

STKCNT

..couur THIS CHARACTER

BLT
cwP
86T
8IC
MOVB
INC
CMP
BNE
MOV

A
..amocn IF YES
¢§m.ms
2:1S IT A SPECIAL CHAR?
4
::BRANCH IF YES
#40, (SP)
2:MAKE IT UPPER CASE
(SP)+,a$TKQIN ::AND PUT IT IN QUEUE
STKQIN
::UPDATE THE POINTER
gmm.mxom ::G0 OFF THE END?
';
::mu IF NO
TKQSRT,$TKQIN ::RESET THE POINTER

(MP

000175
6
g

; ). 423

B8PL
MOV3
BIC
%

328:

09904

cMP
TST8

000100 114334
1%

33gu.flw CHARACTER OFF OF STACK

31$:

83'63

BNE
CLR

114370

8325

3s:

{,‘,’

RTI

cin.mo

:Eemw
é
TTY KEYBOARD INTERRUPTS
:IS IT UPPER CASE?

SRETURN

.ttt.tt.Qtt..t.t'tltt""'t"ttt.t'.t'tttQttttttttttttttttttttt

--sonm SWITCH REGISTER CHMANGE ROUTINE.
s*ROUTINE IS ENTERED

FROM THE TRAP HANDLER, AND
W

s«SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH nmsrea TRAP
064702 022737 000176 001154

064710 001}%
064712 105
116242
064716 109;21

- «CALL m OPERATING IN TTY INTERRUPT MODE.

$CKSWR

ans
1ST8
BPL

064720 117746 114236
064726 042716 177600

064

064734

MOVB
8IC

021%5

CMP

BNE

G,SWR

agn:s
l‘fl

-(SP)
(SP)

gn.c?

::1S THE SOFT-SWR SELECTED

2:EXIT IF NOT
::IS A CHAR WAITING?
::1F NOT, EXIT
::YES
SSMAKE IT

7-BIT ASCII

s:IS IT A comou.-s

::gb"snf IT IN THE TTY QUEUE

R ERARAAAARARAAAAANERRAACAAAAAANRAARARAAAAANARRNARIVNNAAORAASANS

"CG‘T

**ROUTINE
ou;fi

754

123

7 001150 000001

?gg o?u.

760

112

766

104401

77
500

013743

114

793 324 g(s,m;

06561

176

001151

IS PASSED10 ms POINT FROM Elflfll TOE TTY I'"EWY SERVICE

OR FROMT

'émc REGIS

ASA RESULT OF A

- «CONTROL~G BE ING meo ANDTHE SOF TWARE ncnnssxstek BEING SELECTED.

&$:

gauoah

JSR
" CLR

:g STKINT
fxs

MOVE

$GTSWR: TYPE

mu,e‘més IN AUTO-MODE?

SP)+

ZECLEM”
conmt-s OFF STACK
SSFLUSH THE TTY INPUT QUEUE

#1,SINTAG

+3SET INTERRUPT MODE INDICATOR

SMSWR

::DISABLE TTY KEYBOARD INTERRUPTS

TYPE

,$CNTLG

::ECHO THE CONTROL=G (*G)

MOV
TYPOC

SWREG, - (SP)

::TYPE CURRENT CONTENTS

*SAVE SWREG FOR TYPEOUT
::G0 TYPE==OCTAL ASCIICALL DIGITS)

CZRNDAO RMBO FCTNL PT1 MACRO v04.00 28~JAN-82 16:24:51 PAGE 42-2

SEQ 0255

TTY INPUT ROUTINE

§ 8‘1"

104401

065630

,SMNEW

:;PROMPT FOR NEW SWR

CLR
1ST8
BPL
MOVB

-(SP)
”ms
asrx’ -(SP)

$:THE NEW SWR
*:CHAR THERE?
:3IF NOT TRY AGAIN
::PICK UP ;m

065026

042716

177600

0650
1627 000003
0650
1015
065040 104401
065
065044
065050 1
1151 000001
5056
1
065060 01
1og 114072
065066
137 06564
8s:

cmp
BNE
TYPE
ADD
(MPB
BNE
MOV
JMP

(SP) ,#3
93
SCNTLC
#6,SP
gms.n
#100,a$7KS
SHUT

;218 IT A CONTROL=C?
*:BRANCH IF NOT
::YES, ECHO CONTROL=C (~C)
“:CLEAN UP STACK
: :REENABLE TTY KEYBOARD INTERRUPTS?
2 :BRANCH IF NO
$:ALLOW TTY KEYBOARD INTERRUPTS
: SCONTROL~C RESTART

5072 021627 000025
065076
001005
065100 104401 333382
5106 062
065110 00073

98:

CMP
BNE
TYPE
ADD
BR

‘3’;"'25
1
SCNTLU

;218 IT A CONTROL=-U?
::BRANCH IF NOT
$:YES, ECHO CONTROL-U (*U)
:
:1GNORE PREVIOUS INPUT
S:LET'S TRY IT AGAIN

065112 021627 000015
065116 001022

108:

(WP
BNE

(SP) M5
168

2218 IT A <CR>?
::BRANCH IF NO

00140
016677
2 114020
11$:
104401 88121
14$:
123727
001151 000001
001003

BEQ
MOV
ADD
TYPE
P8
BNE

11
2(SP) ,asWR
SP
RLF
$INTAG.M
1 30

S:BRANCH IF YES
:3SAVE NEW SWR
::CLEAR UP STACK
$3ECHO <CR> AND <LF>
+:RE=-ENABLE TTY KBD INTERRUPTS?
*:BRANCH IF NOT

198:

01
5
83? 16 105
114140
100375
065022 117746 114134

0651

065126
065126
0651
065140
065144
065152
82?}2’5

5164

78:

000100

1750

551% 021627 8(6)0060

CLR

BIC

20$:

oosng 000004

:1277;

TYPE

113776

168:

2?\11

#100,a87KS

[, o

(SP),

JSR

BIC

(
|

14
5216 |
065
5
5
5

524

178:
188:
.DSABL

u;n

BLT

g 10

#4C177,(5P)

5174 0024,

065176 021627 000067
065
(
5

-('sp' f

:3BRANCH IF YES

;

(SP)+

)

(SP)
53?)
(SP)
-;wm.(sm
7

B8R

LS8

:SRE=-ENABLE TTY KBD INTERRUPTS

TYPE

S3YES, IS IT THE FIRST CHAR?

SZ-ecuo” 'cmt'

(SP) 467
1

8IS

S:MAKE IT 7-BIT ASCI!

PC,STYPEC

[
86T

BEQ
ASL
ASL
ASL
INC

$:CLEAR COUNTER

(SP)

sgtis

::CHAR < 0?

S:CHAR > 77
s:BRANCH IF YES

::STRIP=OFF ASCII

::IS THIS THE FIRST CHAR

S:BRANCH IF YES
SINO, SHIFT PRESENT
2
CHAR OVER TO MAKE
s
ROOM FOR NEW ONE.
+:KEEP COUNT OF CHAR
S3SET IN NEW CHAR

+:GET THE NEXT ONE
2:TYPE 72<CR><LF>

+:SIMULATE CONTROL-U

e AAARRRALAARRAAARAINAAAEANCARARAANAARACARANARAANAANRACAARARACARNGS

EINL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 42-3

SEG 0256

'Emlj ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY
.t

i
i

065
065
065
065
065

RETURN HERE

_ SRDCHR: MOV
000002
MOV
CLR
CLR
MOV

065270
0652764
065276

RDCHR

001775

065 5
065310
065314
065322

1 gg
005
023727
001003

065332

000002

RTI

1s:

ST
BEQ
DEC

000004
064401

065326 012737 064400 064376

MOVB
INC
CMP
BNE
28:

MOV

;:GET A CHARACTER FROM THE QUEUE
::CHARACTER IS ON THE STACK

::WITH PARITY BIT STRIPPED OFF

(SP) ,=(SP)
4(SPJ,2(5P)
4(SP)
-(SP)
#64$,=(SP)

..PUSH DOWN THE PC AND
THE PS
$:GET READY FOR A CHARACTER
*:PUT NEW PS ON STACK
*:PUT NEW PC ON STACK

$TKCNT
13
STKCNT

2:WAIT ON A CHARACTER

*:POP NEW PC AND PS

; ;DECREMENT THE coumsn

@STKQOUT,4(SP) ::GET ONE CHARACTER
$TKQOUT
:UPDATE THE POINTER
srxoour.mxoeno: m n GO OFF OF THE END?
3:
H IF NO

TKQSRT , $TKQOUT' --nessr THE POINTER

RTI

2 :RETURN

ttttt!.tttttttt.ttttt"tt't.tltlttt.ttltttttttttttttttttttttttt

.:wf ROUTINE WILL INPUT A STRING FROM THE TTY

i
i
065336

010346

oosol.g
012703 065570
022703 065600
101456
1044

1$:
2s:

82’323

122713

108:

115913

5
oou;;z
065364
005716
065366
001007
82”70 112737
5373 104401

0654

1;71

06
06541
52‘
065414 1
54 g 111337
56422
104401
54
746
54
716
06
1;99
112

000177

136 065566
7;99

065570
065566

58:
820134 065566
065566

5450

000025

su.s

5454

S 12

122713

001003

68:

065566

56442 104401

RETURN HERE

SRDLIN: MOV

065336
065340
065344
065350
065352
oesgy.

ROLIN

: SADDRESS OF FIRST CHARACTER WILL BE ON THE STACK
::TERMINATOR WILL BE A BYTE OF ALL 0°'S
:2SAVE R3

CLR
MOV
cMP
BLOS
RDCHR

-(5P)
#STTYIN,R3
#STTYIN®S.,R3

(MPB

#177.(R3)

IS ITA

5-1 (SP)

::SET THE RUBOUT KEY

MOVB

(SP)+,(R3)

BNE
ST
BNE
MOVB
TYPE

53
(sP)
4%
a'\ 98

DEC
CMP
BLO
MOVB
TYPE
B8R
ST
BEQ
MOVB

MSTTYIN
(s
,
(R3).9%
93
o
(SP)
78
#°\,9%

MOV

TYPE

78:

R3,=(SP)

;:INPUT A STRING FROM THE TTY

CLR

(MPB

BNE

::CLEAR THE RUBOUT KEY
*:GET ADDRESS
::BUFFER FULL?
*:BR IF YES
:360 READ ONE CHARACTER FROM THE TTY
+2GET CHARACTER

2:BR IF NO
*:IS THIS THE FIRST RUBOUT?
“:BR IF NO
S:TYPE A BACK SLASH

: BACKUP BY ONE
+:STACK EMPTY?
$:BR IF YES
:3SETUP TO TYPEOUT THE DELETED CHAR.
*:G0 TYPE
3360 READ ANOTHER CHAR.
*SRUBOUT KEY SET?
*:BR IF NO
SSTYPE A BACK SLASH

(sP)

::CLEAR THE RUBOUT KEY

*:BR IF NO

#25,(R3)

*3IS CHARACTER A CTRL U?

SRERRICNER
E35 §§§§§3uog
B -gy-.—nu-nNS
-

) w—d b
-

N &S =
~

b
e end

8s:

5570

001216
065566
sssg

48:
38:

S[KIRN

NANS
N

0000

SCNTLU
i
#22,(R3)

::TYPE A CONTROL 'V’
+:G0 START OVER
+:1S CHARACTER A ***R'%?

CLRB

(R3)

::CLEAR THE CHARACTER

TYPE

grmn

BNE

BR
TYPE
BR
MOVB
TYPE

177777
001220

CLRB
TYPE
ST
MOV

065570 000004

MOV
RTI
.BYTE

#STTYIN,4(SP)

103
125
107
012

040

000042
005426
oo1§oo
041314

015
015
015
123

STTYIN:
SCNTLC:
SCNTLU:
SCNTLG:

SMSWR:

116 SMNEW:
.EVEN
SHUT:
18:

.ASCIZ

'LF

::TYPE THE INPUT STRING

;160 PICKUP ANOTHER CHACTER
SSTYPE A '2°
;CLEAR THE BUFFER AND LOOP
*:ECHO THE CHARACTER

::CHECK FOR RETURN

2:LO0P IF NOT RETURN

=1(R3)
,SLF
(SP)+
(SP)+,R3

: CLEAR RETURN (THE 15)
::TYPE A LINE FEED
:;CLEAN m.egur KEY FROM THE STACK
*SRESTORE R
2 ;RETURN

::STORAGE FOR ASCII CHAR. TO TYPE
8.
/*C/<15><12>
/*U/<15><12>
/%6/<15><12>

<15><12>/SWR = /

.ASCIZ / NEW = /
TST
BNE
JMP
CLR
JMP

SSTYPE A

¢
goues
i
(R3).98
93

#15,(R3)+

.BYTE
.BLKB
.ASCIZ
.ASCIZ
.ASCIZ

2BRANCH IF NO

,SCRLF

CMPB

BNE

9s:

SEG 0257

TYPE
B8R
C(MPB
TYPE

88001

par Pur Qiur Qg

065605
000022
821;17

38
—
e

~NOna W

wvivawviwauniniaunaun VI

228
SR2222222222222SESIIX
'S
FREXFEaRs ~EES 3

MACRO V04.00 28-JAN=82 16:24:51 PAGE 42-4

w2
1$
START
SDEVM
$EOP

* STERMINATOR
:RESERVE 8 BYTES FOR TTY INPUT
::CONTROL ‘'
::CONTROL 'V’
::CONTROL '’

|
:ANY MONITOR PRESENT ?
:BR IF YES
*GO TO START
:FUDGE NO DRIVES IN MAP
*RETURN TO SEOP

CZRNDAO RMB0 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 43
READ AN OCTAL NUMBER F ROM THE TTY
.SBTTL

SEQ 0258

READ AN OCTAL NUMBER FROM THE TTY

::tttt'tttttttt'tttttttt'tttttltttttttttttttttltttttttttttttttttt

**THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND
:-Emcs IT TO BINARY.

MOV
MOV
MOV
MOV
RDLIN
MOV
Etg

2s:

822912

MOVB

(SP) ,=(SP)

: ;PROVIDE SPACE FOR THE

4(SPS ,2(SP)
RO, ~($P)
R1,~(SP)
R2,=(SP)
(SP)+,RO

+: INPUT NUMBER
$:PUSH RO ON STACK
::PUSH R1 ON STACK
+:PUSH R2 ON STACK
*:READ AN ASCIZ LI
+:GET ADDRESS OF 1ST CHARACTER

(RO)+,=(SP)

::PICKUP THIS CHARACTER

: :CLEAR DATA WORD

3s
R

seIF ZERO GET OUT
%2

ASL

3s:

;:LO0W ORDER BITS ARE ON TOP OF THE STACK
::HIGH ORDER BITS ARE IN SHIOCT

BEQ
ASL

ROL
ROL
ASL
ROL
BIC

177770

:;READ AN OCTAL NUMBER

ST
MOV
MOV
MOV
m
MOV

R
R
R
R2
#5C7,(SP)

::%8

::STRIP THE ASCII JUNK

(SP)+,R1

”f’ogpm THIS DIGIT

(SP)+
R2,SHIOCT
(sP)+,R
(SP)+.R
(SP)+.R

2:CLEAN TERMINATOR FROM STACK

R1,12(SP)

::SAVE THE RESULT

::POP STACK INTO R2
::POP STACK INTO R1
::POP STACK INTO RO

esnes

RDOCT

RETURN HERE

$RDOCT: MOV

D el

B B

882 —_0000
~—
b L) &>
N = NI
£o2
82
=
g
232
N =2 =2 =2 NI OV =8
=
RO

000004 000002

—

-3

Qher fuur

0000

Qo
o

0657

N il

S
ZRRERER

EEEEEERo

w
w

£.

ORDER BiTS GO HERE
L

CZRNDAO RMB0 FCTNL PT1 MACRO V04.00 28-JAN-82 16:264:51 PAGE 44

SEQ 0259

TRAP DECODER

.SBTTL
IR

TRAP DECODER
RN RN RN

RRNRRANRRANCRRAN RS

tTNlS RWTI'E WILL PICKUP THE_LOWER BYTE OF THE '‘TRAP'' INSTRUCTION

;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS

:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL
:*GO TO THAT ROUTINE.

0657
5
5776
1
%8"’

1
16
0127
1

STRAP: MOV
BIC
MOV
RTI
18:
MOV

%
mggg

85?908 000002

2(SP) ,=(SP)
s, -(sn
RO,=(SP)

;;ASSUME THE STATUS OF
:i THE CALLER==DO NOT ALLOW
:: T=BIT TRAPS
..ssr ms NEW STATUS
*SAVE R

ST
MOVE

=(R0)
(RO).RO

: 3PACKUP BY 2
:3GET RIGHT BYTE OF TRAP

RTS

MOV

ASL
MOV

16000 066040

#20, ($P)

ztim RO

RO
STRPAD(RO)
,RO

..ssr TRAP ADDRESS

*:POSITION FOR INDEXING
::INDEX TO TABLE
2:G0 TO ROUTINE

::THIS IS USE TO HANDLE THE "‘GETPRI'’* MACRO
066026

0660

011646

16666 000004 000002

066036 3ooooz

STRAP2: MOV

MOV

RTI

.SBTTL

(SP) ,~(SP)

4(SP§,2(SP)

::MOVE THE PC DOWN

“:MOVE THE PSW DOWN

+:RESTORE THE PSW

TRAP TABLE

-msupu.
wpnmns
THE STARTING ADDRESSES OF THE ROUTINES CALLED

INSTRUCTION.

5
oomg

ROUT INE

066026

$TRPAD: .WORD

52
56

15
13
1;1
135
1gu
061010

066056

064772

STRAP2

;;CALL=TYPE
::CALL=TYPOC
::CALL=TYPOS
::CALL=TYPON
::CALL=TYPDS
::CALL=TYPBN

TRAP+1(104401)
TRAP+2(1 "35’
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)
TRAP+6(104406)

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)
TYPE BINARY (ASCII) NUMBER

$GTSWR

;;CALL=GTSWR

TRAP+7(104407)

GET SOFT-SYR SETTING

702
5244
5334

SCKSWR
SRDCHR
SRDLIN

:;CALL=CKSWR
::CALL=RDCHR
:;CALL=RDLIN

TRAP+10(104410) TEST FOR CHANGE IN SOFT-SWR
TRAP+11(104411) TTY TYPEIN CHARACTER ROUTINE
rwngu 41§> TTY TYPEIN STRING ROUTINE

752

SRESREG ::CALL=RESREG

STYPE
STYPOC
TYPOS
TYPON
STYPDS
STYPBN

SSAVREG SiCALLSSAVREG TRAPS12(106¢14) SANE RO-o5 RBUTINECR FROM TTY
.

TRAP+15(104415) RESTORE
ao-.‘%?’
ROUT INE

el
-—

4
SZ

: %E
lal

C RO V04.00 28-JAN-82 16:24:51 PAGE 45
S

.SBTTL

POWER DOWN AND UP ROUTINES

AR AR AR AR AR

g?o
110

066112
11
116
1
8221
126
0661
0661
066142
066144

012737

AN AN AR AT AN

=fiouea.oom ROUT INE

$PWURDN: MOV

010146
1o§22
01
1
10546
01 1.9 113024
1
40
12737 066146 000024
6

MOV
MOV
MOV
MOV
MOV
MOV
MOV
HALT
BR

101 g? 833540 833356

SEQ 0260

MOV
MOV

TR RAAAA AR ARAARRARAAN I AR

LUP,@#PWRVEC ;;SET FOR FAST UP

5RO, =(SP)
5uflmvec+s ::PRIO:7
::PUSH RO ON STACK

R1.=(SP)
*:PUSH R1 ON STACK
ng.-(sm
*:PUSH R2 ON STACK
R3.=(SP)
*:PUSH R3 ON STACK
R&.=(SP)
*:PUSH R& ON STACK
RS.=(SP)
*:PUSH RS ON STACK
asuR, - (SP)
*:PUSH @SWR ON STACK
SP,$SAVR6
+:SAVE SP
#SPURUP,a#PWRVEC” > ;SET UP VECTOR
=2
: sHANG UP

:'ttltttttttt.t.tttttttt."'tttttttttttttt'ttttttttttt.ttttttttit

822146

012737

-:POWER UP ROUTINE
$PWRUP: MOV
#SILLUP,@#PWRVEC ;:SET FOR FAST DOWN

066234 000024

156 01 709 066240

066160 oosog
ow;«
sg 7
0661 7g
1375
561
56176
i
66
.

40
40

18:

12677 112756
012605
012604
012603
012602
12601

} fi?
12737

104401

76 000024
340 ooooSo

$SAVR6, SP

;:GET SP

MOV
MoV
MOV
MOV
MOV
MOV

(SP)+,asWR
(SP)+.RS
(SP)+.R%
(SP)+.R
(SP)+.R
(SP)+.R1

::POP STACK INTO aswR
+:POP STACK INTO RS
+:POP STACK INTO Ré&
$:POP STACK INTO R3
+:POP STACK INTO R2
::POP STACK INTO R1

CLR
INC
BNE

%
MOV

TYPE

$SAVR6
$SAVR6
1

'
012

120

SILLUP: HALT

$SAVRG:

SPOVER: egg'x‘z

*:WAIT LOOP FOR THE TTY
*:WAIT FOR THE INC
$:0F WORD

'g:‘-mfin(sm"om c:.-rgtsmnt:.émp&gg DOWN VECTOR
’ o.ufimvec\o's .--huo:&'
-

SPWRMG: 5‘{",’” . SPOMER

6
01

MOV

=2
<155<12>' POWER""

*REPORT THE POWER FAILURE

+:POWER FAIL MESSAGE POINTER
THE POWER UP SEQUENCE WAS STARTED

:: BEFORE THE POWER DOWN WAS COMPLETE

$:PUT THE SP HERE

CRO V04.00 28-JAN-82 16:24:51 PAGE 46
.SBTTL
AR

AN =

000001

001242

000100

001243

SATY4:
SATYC:

000004

001225

1s:

—_—

001236

001240
000004

Nfi
St

$ATY1:

SATY3:

066514

001236

2s:

001222

80600¢

mnd

066316
066514
066516

oo
el
b and

-2

= O
S8R832
8228
-—h
\
S8R2gzg~g=as

s
oo

MOVB

B8R

MOVB

MOV
MOV
ISTB
BEQ
CMPB
BNE
BITE
BEQ
MOV
ADD
ST
BNE
MOV
1ST8
BNE
sus
ASR
MoV

#1.SMFLG

::T0 REPORT FATAL ERROR
::TO TYPE A MESSAGE

#1,$FFLG

s:TO ONLY REPORT FATAL ERROR

sAfYC

RO,=(SP)
::PUSH RO ON STACK
R1.=(SP)
::PUSH R1 ON STACK
SMFLG
2:SHOULD TYPE A MESSAGE?
3
s:IF NOT: BR
WAPTENV,SENV
: ;OPERATING UNDER APT?
3s
s:1IF NOT: BR
FAPTSPOOL ,SENVM 2:SHOULD SPOOL MESSAGES?
3s
2:1F NOT: BR
34 (SP) ,RO
::GET MESSAGE ADDR.
#2,4(SP)
::BUMP RETURN ADDR.
SMSGTYPE
::SEE IF DONE W/ LAST XMISSION?
1$
::IF NOT: WAIT
RO, SMSGAD
$:PUT ADDR IN MAILBOX
(RO)+
*:FIND END OF MESSAGE
28
$MSGAD
, RO
;:SUB START OF MESSAGE
ssGET MESSAGE LNGTH IN WORDS
LSMSGLGT
s2PUT LENGTH IN MAILBOX
gg.snsstm

108:

TSTB

SFFLG

118:

BEQ
TST

1
SMSGTYPE

(LRB
CLRB

FLG
SLFLG

128:

WORD

BNE
MOV
ADD
INC

CLR8
MOV
MOV
SMFLG:
SLFLG:
$FFLG:

RTS
.BYTE

.BYTE
.BYTE
-EVEN

APTSIZE =
APTENV =
APTSPOOL
=

APTCSUP = 04

#1,$FFLG

84 (SP) 48
c;,#sh
179776,=(SP)
PC.STYPE

001224

SEQ 0261

RARARRANARRAAN RN NN AN RN AARRAANANAAAAANAAANANARA
RN AR AR NS

MOV
ADD
MoV
JSR

APT COMMUNICATIONS ROUTINE

angv

38:

001

118
(SP) ,SFATAL
#2,4(SP)
GTYPE

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

ssTELL APT TO TAKE MSG.

::PUT MSG ADDR 'lg JSR LINKAGE

s:PUSH 1
s3CALL TYPE MACRO
SHOULD REPORT FATAL ERROR?
:sIF NOT: BR

lllt‘)fllfls !gik APT?

FINISHED LAST MESSAGE?
IF NOT: WAIT
;GET ERROR #

CZRNDAO RM80 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 47

SEQ 0262

CONSOLE MESSAGES

foess0665

075
101

5
9

597

9
10
1

06 5
1
50

1
1% 06

040
56

040
125
04

114

ALL:

131

MSHELP: .ASCIZ

077
94.0

122«

116
114

g 0671
067
% 067

5 067
7

06
06744

067527
7617

7655

067
S 067750
82""
7773
7775
7776
%0
067777
41
42

122

040
320

040
200
116

200
200
s&
m

120

200
120
116
131
040
040
. 040
040

CNSLO1: .ASCIZ

<CRLF>@TYPE HELP TEXT (L) N ? @
<CRLF>SRMCS1=a

116

040
040

zgo

115

.ASCIZ @ ? @
.ASCI% FIE)

101

13‘

20 067135
106715;

0671

0 QUES:
COMMA :

111 CNSL ;: LASCIZ @ LIMITS = LO= 160000, HI= 17XXXX@<CRLF>
126 CNSLO3: .ASCIZ @RMVEC=a
111 CNSLO4: .ASCIZ @ LIMITS = LO=0, HI= 10008<CRLF><LF>

077
104
12;

06711

EQUALS: .ASCIZ
.ASCIZ a=a
@ALL@<CRLF>

114
115
1%

04
200
104

CONSOLE MESSAGES

000
114

15 06704
19 067070
17 067104

.SBTTL

131

CNSLO7: .ASCII

JASCIZ
CNSLO8: .ASCII

<CRLF>@TYPE '‘A’’ 70 TEST ALL DRIVES, OR TYPE DRIVE NUMBER(S)a
<CRLF>3AND TERMINATE INPUT WITH A CARRIAGE RETURN.d
<CRLF>

111 CNSLO9: .ASCIZ & 2ILLEGAL INPUT@<CRLF>
122 MSDRVS: .ASCIZ <CRLF>/DRIVE(S): /
111 MSGDRV: .ASCIZ /DRIVE/
1}3

SYSTAT: .ASCIZ

<CRLF>/UNIT STATUS:/

115

116
116
117
117
104
117
104
120
012

117 NOTPRS: .ASCIZ / NOT PRESENT/
117 NOTAVL: .ASCIZ 7 NOT AVAILABLE/

124
11g

124
114
000
000
000

: .ASCIZ /nn%o/

117 NOTRM:
117 LODEV:

.ASCIZ / NOT
/
.ASCIZ / LOAD DEVICE/

106

UNTOFF: .ASCIZ

/ OFFLINE/

119

NONE:

/NONE/

11
123

.ASCIZ
INSERT: .ASCIZ

116 UNTON: .ASCIZ / ONLINE/
122 DRIVES: .ASCI% <CRLF>/DRIVE(S) TO BE TESTED/
.ASCIZ

117 MSMNUL: .ASCIZ <CRLF>/DO YOU WANT MANUAL INTERVENTION TESTS (L) N ? /
105 MSUNIT: .ASCIZ <CRLF>/PERFORMING 'LOGICAL ADDRESS PLUG TEST' ON DRIVE #/
102 MINSTR: .ASCII <CRLF><LF>/BEFORE PROCEDING WITH THE TEST, POWER DOWN OR PULL/
114 PULL:

.ASCIZ /PULL LOGICAL ADDRESS PLUG #0, THEN/

131 RET:
.Ascxf
125 DONE:
.ASCIZ
N:
JASCIZ
Y:
LASCIZ
BLNKS4: .ASCII
BLNKS3: .ASCII
BLNKS2: .ASCII
BLNKST: .ASCIZ
.EVEN

<CRLF>/THE ADDRESS PLUGS FROM ALL DEVICES NOT BEING TESTED./<CRLF><LF>
/INSERT LOGICAL ADDRESS PLUG #/

<CRLF>/TYPE <RET> WHEN READY./
/PLUG TEST DONE!/<CRLF>
/N/
7v/
7/ /
7 /
/ /
7 /

gd
RS
gz

)=D
— D000 IO N I i) =

PT1 MACRO Vv04.00 28-JAN-82 16:24:51 PAGE 48

.SBTTL

SEQ 0263

FUNCTION CODE TABLE

:EACH FUNCTION CODE.

BIT USAGE IS AS FOLLOWS:

ATA
= BIT 15 IS SET_IN THE ENTRY FOR A GIVEN FUNCTION CODE

'IF ATA SHOULD BE SET WHEN THE FUNCTION CODE IS EXECUTED, OYHERUISE.
BIT 15 IS ZERO,

INDICATING THAT ATA SHOULD NOT NORMALLY BE SET.

INOTE THAT ATA MAY BE SET WHEN A COMMAND IS EXECUTED EVEN THOUGH
sIT IS NOT EXPECTED AS A RESULT OF THE COMMAND.

WCE - BIT 14 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

IF WRITE CHECK ERRORS ARE ENABLED AS A FUNCTION OF THECOMMAND.

OP1 - BIT 13 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

IF OP1 ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND.

IVC = BIT 12 IS SET IN THE _ENTRY FOR A GIVEN FUNCTION CODE

IF IVC ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND.

WLE - BIT 11 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
:1F_WRITE ERRORS ARE ENABLED DURING THE FAECUTION OF, THAT COMMAND

:THE WRITE ERRORS WHICH ARE ENABLED ARE

weF*,

JAE
= BIT 10 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

IF INVALID ADDRESS ERROR IS ENABLED FOR THAT COMMAND.

AOE
- BIT 09 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

IF READ AND WRITE ERRORS ARE ENABLED DURING
T

p; ON OF THE

:'CMF”D:UT!" EMM.%“EMED 8Y THIS BIT ARE "TRE".
:

LT*", "NEM",

BIT 08 IS NOT USED.

: 1 wenolSEenaBll 0715 SET xu ms emir FOR
A GIVEN FUNCTION CODE

AIF
ERRORS
ARE ENABLED OURING THE EXECUTION
OF THAT COPWAND.
S EADER.ERRORS INC
¢,
, "FER'',
"BSE'' AND ''S

?
EGH.~
S1F DATA FIELD

BIT 06 IS SET IN THE ENTRY FOR
A GIVEN FUNCTION CODE
AREENABLED
DURING, THE EXECUTION OF THAT

SCOMRAND. THESE ERRORS NCL UDE

BIT 05 IS NOT USED.

BIT 04 IS NOT USED.

;

BIT 03 IS NOT USED.

;

BIT 02 1S NOT USED.

;

BIT 01 IS NOT USED.

020000

NG, ek

ECH'".

ILF = BIT 00 IS SET IF THE FUNCTION CODE IS ILLEGAL.

.WORD

OPI

FNCDTB:

5 070002

070002

sTHE FUNCTION CODE TABLE IS USED TO DEFINE STATUS CONDITIONS FOR

SEENE V]RIS
EENR RN
Ic NARI
S
SEBBNR
N ENNS
N = SR
D00

&
=)

;FUNCTION CODE TABLE
:NOP

AUmCM‘EAFLU&TVMuunTLuCLuCLuCuLLuuLuS€n5WSLuiSs¥
ByBXD)bBS(9o]OowDLul[g)oggOgS019)gbySgeygQYSg
ity S S So=

B<EB33333:35338385588888833888%

085SIYD PRBIRININICR R0

g9&382

TION CODE TABLE

RMBO FCTNL PT1 MACRO Y04.00 28-JAN-82 16:24:51 PAGE 48-1

SEQ 0264

[wTw)

38 5333538 338 3 8 =8

PtatataRtaltoat.atoalaolat-y.taotlyt-a‘taota.toataorl

.SBTTL
b
D cad

BYT

b
D

ATTENTION (ATA) TABLE

ATNTBL: .BYT

OO0

PT1 MACRO v04.00 28-JAN-82 16:24:51 PAGE 49
ABLE

»TM

—t

NN
N~

ams

—
m

BYT
.BYTE

’

.BYTE

128.

SEQ 0265

om01e0&-0&0.0.0A10o10oN1oo10Wfo1lfiocflMofi“oflfolfio&”folfio%fol”fol”fol“3ofiOyCWOf0lfOl0fOl0~Oo1CO203‘

“bunNretmsoretmrtmyon]mmmemmm7umSWeM1sSr1auiamtRSniwm2eimetmsummmR1wmmmmmm<m
-

SSS S Si

0
2
1- 0 0W0W W W10 0 01 10 A A . . .

RsNsADnRnSAePERnBSOROmRIntLaSAmTrYKRnETaSmRTnSarARnI7AaRRNeCyARWRRROIWOOIRCROIONNCOI0BTO2-R0o0e000OceoNoaoS0eOoEooR0eoRnNoo0soRos g
582p—%¢.)21SL4)mL |
.SBTTL

-—

mTwmmmmSmmmmmmmm%mgm

—

0“00

mo& eOm =

I
zm
RMB0 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 50
SSAGE TABLE

SEQ 0266

ERROR MESSAGE TABLE

E -s ococo

- wy

.HS

7,0

€

“SIRTTAITORIITtIIT.7.3ME0W7VCLYg6g16’61?1o
mSgO—gNmTtmSsme&N(mTee(m759GTGxOE(mIPGmA(eNmGRS0AEmGmYGrsN1A@S@e1(UGN§AE%GuRS8QmUSe4Sm8S8ImSR&Sm%Ro%Ym%P®Pmmmo&m&mm&m&mmSywSmMAmJumSmSmMImA)mmM““MrmMmmmmmmm
o1O=1“M‘1Wo‘1POPo11P“PPs1P'P°1P"P‘P1P1PP1P"o1P§P'P1PP‘’o1oo'PSo1P"o1P'o§1oTm1’,n1d',al'Lok1Le1o7oo.eP-on7P.oi
- Ngg=D) ggggg

snnn777owon

o o o o o oooooo0o8oo8nl1o-l.1loql.o0lq1l.o0l?8col.il!oo‘8lc0olc'l

eYEA3ESeR8T%e0AEgOge2R8NA0Se9RRE(SPY4AN0ve0RER5E(0gsSR8A0PO9RERr0Rgem4ASFN PeGROSEe07Pv5Amm0SRP9R3Nmd0TA0PA0eBm(P@5OeS4eI9SeRPAS3teRSmR0PmS8WZGm4AGY50O(0m0eSR2N(Sev0S8AIe)m©N5R(GrU0SR8NA5)0mOE0dNGN8NROSU9mSS(5a4ReN8PAEe0P5SmS0RnESeLA8mS8SS(b0R85S8m%8AIUe0%LBAG9m8%TP Y6R5G4%VS0m%8eg0AeeTSeR0eSA0sgo§8SI0g5Se0M0ghRB9eg98M39oITe08s0oR9u5e0Irn5Ae0i1Nn8A%708)RI50e1N05eE5GSP0€0i8R5WR7U1oV8AB1R5B81woR48Yw80IRm0C8
‘“flNgé L wo
~

0613251 71"2

-o

£E£ € E£ ¢ & O

% 2

mmmmnmmmmsemommmmmemmmmmemmmmmmes

Eal

CZRNDAO RMB0 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 50-1
ERROR MESSAGE TABLE

SEQ@ 0267

;

.WORD

EMS171.EMS132.EMS134.EMS123,0

%ss
53

400 07644
414 101001
430
076416

440 076473
076473

: .MORD

EMS

EMT204: .WORD

EMS

EMT206: .WORD

ens;

EMT207: .WORD

10113

EMT210: .WORD

;or
076505
077443

47 EMT211: .WORD
077747 EMT 1;: .WORD
076505 EMT213: .WORD

1021
1

®
*

764

076473

1 EMT217: .WORD

75576

7557

102752

}

6 1

ensz

o
éns
3 ;
"f.éns

EMS

éns

ensn EMS152,EMS72,0

EMS73.E

EMS?5,EMS141.sns snsuoo
EMS7 .sns;

EMSS1.EMS72,EMS115 ensso Snsro g
EMS142
.enst;EMS14
2.0
EMSS0,EMS103
EMSS

EMT220: .WORD

fif JEMS30,

EMT222: .WORD

sns; LEMS 7.ens

Ee:;

EAS St

EMT221: .WORD

EMT223: .WORD

.sust .
EMT224: .WORD EMS
EMS52.EMS
7

: .WORD

%ensnsEMS226

JEMS115, sns156EMS231,EMS57.0

075576 EMT231: .m"” enszbg.emn.ensso.o
EMT232: .WORD

EMT233: .WORD
EMT23%: .WORD

EMT235: .WORD
EMT236: .WORD

EMT237:

.WORD

EMT240: .WORD
EMT241: .WORD

:
-

.snss1

EMS

§ 3 49 % : .m'” EmS: § EMS é.ensflg.enszso.ensn.o

)¢

LEMS201,

01525
EMT214:
.WORD EMSS52.E
.emg&
EMS626.0EMS115,EMSS1,EMS72,0
76570
EMT215: .WORD
snsg LEMS117
EMSS

76340 075576

JEMS133.

: .WORD

EMT205: .WORD

07
s

EMS1 .eus1

:: .WORD
.WORD EMS
EMS

’.

JEMS155.

EMS113.EMS177.

&~
=t

eus1

: .WORD

: WORD

s 11

EMS

EMS167

: .WORD

EMSS6.EMS20.

Efiens

: .NORD

: .WORD

512

SEQ 0268

.WORD EMS ; 1snssg EMS202,0

e
ko
e R

-WORD

~
~

.WORD

's’?

.MORD
EMS25,EMS
sns1s LEMS160,
~WORD
ens§9
;
sns123.8
.WORD EMS .sns 35!!31 0.0
-WORD ens;rJEMS20,

OCOO00000000000000000OC
o000
OOOOOOOOOOOOOOOOOOCOO000

NOWVSWN=O
A%
-

e candd cd rh

el e i

o wmed e

D cd

) et

D d e nd nd =d—d e

STEAEHREAR2S BRIFNFURIESHIGHRERIS

b e

D e

d— e

d cd b i

—t

d cd cnd and ol ol

VRO

:£

rg‘t&Em MACRO V04.00 28-JAN-82 16:24:51 PAGE 50~2

EMT242: .WORD
EMT243: .WORD

EMT24%: .WORD
100464

102263

94 1

102335

EMT245: .WORD

EMT246: .WORD

ensm.snngs.ens 07.0

EMT250: .WORD

EMS1 7.£nsg1§.5ns 10.EMS207

EMT247: .WORD
EMT251: .WORD

EMS167.EMS132.EMS210.EMS125.0
EMS212.EMS213.

.EMS206.0

%A& mswrg&sm MACRO V04.00 28-JAN-82 16:24:51 PAGE 50-3

SEQ 0269

};i §

EMS165,EMS212,0

};9 0
178
0
}zg

~
n

.
-

EMS203.EMS101
EMS203.EMS167

Efi 1 652431 sfi§§§ EMS102,0
EMSS
Ism??.sns EMS §5‘oLEMS115 ,EMSS51,EMS72,0
Efissi sg's'g%% g.sns

EMSS0,EMSS3,

Efiflé"s'gs?lfifls

174
1758

185 3
]

18 9

103

187 0
188 0
189 0

7
77334

}31
8
195 0

;

190 0

19 0

: .
72: .
: .

: .WORD

. EMS30,
EMS30.

EMs102,0
snsse.ensgi.snsl
JEMS115,EMS150,EMS152,EMS70,0
eg’s‘;}séegsuo.ems "EMS72.0

Ens20.Ens “efi's‘?”géfifi?g'éflfi%' -

EMS47.EMSS3 EMS1 ‘ensns‘ensufisnsq.o
EMS7S.EMS141,EMS102,EMS115 sngl.r en;r 0
EMSS1.EMS74,EMS102,EMS115, EMSS0,EMS70,0

EMS63.EMSS3 EMSS énsn;.%nsu.énsm,o

EMT376: .WORD %d‘efi’s‘i 3&527‘652%5'&3140 0

195 0
o;;gzo 3;9
196 073406 101511 077340

Emlfi.ms% 1.EMS156 ,EMS210,EMS26,EMS27,0

ot et fd d

EMT 791 .WORD EMS47.EMSS53.EMSS57.EMS115.EMS141 .EMS72,0
EMT300: .WORD

EMSS6.EMSS3.EMSS7.EMS115.EMS150 . EMS152,EMS70,

EMT301: .WORD
EMT g: .WORD

| D et O B I

EMS71.EMS
53.EMSS7,EMS115,EMS150,
EMS152 EMS72,0
EMS165,EM5100,EMS] g.eni 7.0

g R Rl eed s
e SERIbeRIlG

50;3516 077452 077443 7as§s EMT311: .WORD EMS104.EMS103.EMS53.EMS57
.0
077501

077443

076505

073574 075
208 0
077176

7744
075

87650§ EMT315: .WORD
77443 EMT 19: .WORD

073530

073542
0735

209 0

101044 = 101054
37614.:. om:.g
076173

077443

3
76505

076645

EMT 1;: .WORD

EMT313: .WORD
EMT31%4: .WORD
EMT317: .WORD

EMS105.EMS103.EMS53

EMS144.E
EMS42,EMS

ens 0657.0

EMS57 .0

engos sn;s?.snsns.snsus.emo,o
géns LEMSS7,0

ens; JEMS103.EMSS3.EMS57.0
EMS?1.EMS31,EMS103.EMS57.0
EMS43.

LEMSS7.

£19
973620 °§§§7§ 07763 Oreets EMT
EMI33):
-UORD EM3e2-EMR103-EMSY.
1; §mso 8 55 37537
5 .WORD EMS106,EMS 15” ’
1

148

15
190 712

076012
101701

07744

«.g

EMT323: .WORD
EMT324: .WORD

Ems103.Ems57,0

EMS173.EMS36.EMS10 .enss7.3

191222 07601
877“ EMT325: .WORD
075
101716 075256 EMT 9: -WORD

EMS17 eng EMS1
sn§57
ensu,éns ism lé"s s,gnsss.snsws.o

76067 077443

EMS g,em

16 0737ha 077065 Q7608 10153¢ EMy3%0: ‘UoRD EmSee EResbeAcdG eSS0
19 073752 075664 om4§ 865§5 EMT331: -WORD EMS Isns18§.snss§15nsws 0
8 7

076505 EMT §m

sngs EMSS57,

) Srarie Qresss
O7Tcst Dr0gA3 EMTII: (WORD EMSOLEMSIS
ENSOL
EMSTISENSSO.ERSTOL0)
7755? 101137 101 o; EMT335: .WORD ensrstsnsuo'sns}s .ens} "EMS115,EMS56,EMS73.,0
s 07e0es 075383 ‘1””% 78913 EMI337: UoRD EMSIIACERS11?‘?33 0
i 740

A
S
R
gl
e
8
g
el
8 87:.112 76473 100002 076
EMT342: .WORD EMS52.EMS117,EMSS6,EMSS7.0

FCTNL _PT1 MACRO V04.00 28-JAN-82 16:264:51 PAGE 50-4

SEQ 0270

TTTTTTTT

TABLE

EEEE

3 65

;
.SHS72.0

8..EMS56 ,EMS73,0

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 51
ERROR MESSAGE TABLE

g 0rER0 103725 100003 10412F B
1

EHT110: .WORD

1
174

31
9

11 074

1§ 74 ;8
}4 74

1
103521

15 074402

103657

16408
1

103725
103725

000000

1040C2

18288
1

.
‘

S '2’:‘}.'.3'(73

EHTI1: .

EH"

EHTS;
EHT256: .

3 STSH‘I STSH2,STSHé,
EH 6.STSH1,STSH2,STSH4.

HT112: .
HT11 X

EHT gg: .

EH‘I1

+STSH1,STSH2,STSH4,0

EHT337: .
EHT344:

E
EH344

.STSH1,STSH2.STSH4,
,STSH1,STSH2 , STSH4,

EHT353: .

EH353,0

SEQ 0271

CZRND.AQ_RM80 FCTNLEPH MACRO Vv04.00 28-JAN-82 16:24:51 PAGE 52
ERROR MESSAGE TABL

1 87“

744

10283 104588 184382

s Gredse 104200
9 8744
744
8% 104262
104174

10
11

7“4§

07445

1 i 07
1
1 & 074474

ED1,STSD1,STSD2,STSD4

ST 6f.sts6§.stsbi

ED
ED
ED

ED223,STSD1,STSD2,STSD4

i i

Eoigg.srso1.stso§.srsoa

104252

ED353

ED337,STSD1,STSD2,STSD4

ED337,STSD1,STSD2.STSD4,0

SEQ 0272

(2] s

WORD
WORD

-v v. Ne-(w%v)

ww.wI3 WOe sNWy--=(v “w
WORD
WORD

28 2

oooNN OO0NNI o0INN

w "w[yT

C ZRND.AQ RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 53
E RROR MESSAGE TABLE

EFTI

182;27 104363 104363 EFT223: .WORD
:

.WORD

EF
+STSF ,STSF ,STSF
Efiig.s
TSF +STSF ,STSF
EF336

, STSF ,STSF ,STSF

074562

104347

EFT353:

EF114

SEQ 0273

A=L.\SMw:“l=m@M..=.A-@’>@WCWc=emsXui.e~c=[e*]FERoBRaZW0m:@0EM@oE(.I.R>-IP)E.T@.M-)I..ePW[y\Ol.-.TTsWaRN4ELC][+L“e]:mX.Rlu
®®aflfl

e e = ge T
o
y
1
5
‘
5
6
7
0
’
5
‘
5
6
7
o
o
o
0
o
o
xxsrrrwa amwwenn

0S.=1T_lNeicl1cOtglMSiN1(g=oi1g=PNfsogme1etgOGe1=sse,o.MelO1ciGlO1cWtlcN0la1c=ltNq0l1e.Nl.i0l1.olc0le1(sltcl01al.l01.sl.l01cAlcDm aleO1qFllI.lO1OalgN’c-.el1aOUlgcMDl’aNOlR1qOlqONBl1c0lNaOOlI1aNOl1cN—TOlN1qN—l1cOMlO'n—~l1aPlO10OI'-NOO1Ne1NORO1NNW’WYNV1VIO1N
34=1"a®1191=12=81z31z1zS3R1zS9~"zg1zgN"91Sz"31zvfl1z)fl‘z>19ze1z91z9131z>191z]31z91e19ze1319z11z-=3]2z5]4le8C9izl7a,al3e3flz9e8lle75lez3le93>le
[o]y[T No -.~ g" ~ -N =o@

CSOaLean]INoyNmLNo7061<0es][+”6o0“.e0Mm“bByM0eRP0e%PSeewRPmL-~oPeeSefPlPfPlfPlPSSPSPSPSNPSSP&efBie%P“%RSSeSAS%SR]SYoC[E7S47E7sEgT-yM

6¥mE{‘4W-%'_@53T=(7.‘wVfE1}l0o-[“~-5L”o‘f232Llo.4f][(l84=[1--f5(1-1lw5“‘5m.0%]3Y7sr[{R4RuA‘[S-3I1T22SE1R[aL¢.)]sASwRgPR<'au]7S[En=R6.MA1yK~Rw6A5N6m1SR0\-6~[I363=mw‘5a-o~6[1m71I5[e]E-y—1v;lm-3O1-_1—]‘[&_..Dw31'a=e_m=‘e[~1'lY0)(=]3[l1[=M
CZRNDAO RM80 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 54
ERROR MESSAGE STRINGS
.SBTTL

SEQ 0274

ERROR MESSAGE STRINGS

lE.lof.om.Fia(l.-lc..!Dl.CMc‘UXlLmaw][4s.&e(SnY«1’ulm”e0Oo(wE-s®.=bBvt_Fl.r.bu [-]u~l‘

[
]

IVoLM&ao®m.tmn<CaBNCON%We==xEOrKRRRM-n®

oCyEKRnno.l.g“L-aT)=PrefrvRE*"DOaYSW'
VOONSrowmnumEAmWm1Vted.(f'OiLm.sb.it.sMm.l-mOoO®lMLUW@&'MmOml0Ammmfi.wnx_v
11‘.1l1’11=N11O1NO11N11’11111)1N1111O‘1O1N,’1=1N‘M11‘=11OI'S11N,'OgTMTP)O1gNg1eO1-'gN=1eNe11gAeN’11=P'1O11O1P1eMOMT

;N6o5y(~5on‘5SE“‘5TlR5aEelDe.“Yla.AReNW,RT3vP@LaTUdeAT-MlY=d.S1eNuu2gB.N1.NI2IIlENBN.OM1SE0lAOE”N1N‘SG.W7Yd_SM1D4zS.BR17IgWCSf5E2§DRrlMCI3gEZSTI-—In.FYN.uOM..oNY~.DSWWMRMIYOXSsNUesZn.Ss.NlOR:«NwS7mNI@1lZCmZOo.LuS)
7s o~

gm‘@3eg(EU0meeesggmseegy(PgTemgg‘wegmggPgmcgPlgPmTge’mTg0miPt6y#0Smn§a3ghuapP6mwi2w0a‘me&t01wsRgkm3ugealmuP1vmu.P8wO1mme0mfmlPmsLOm%eme”0lm%seo.es'TePRe3AO0L’B3TV“A1 S2I’3S!1E531e0B3=I74Re3I4No3=
eaLL]LLLwVLLLVLmLLLLLLVLeLDLLLVLWLLxLLLmWeLLLbIORLLLRLLQNLILLeReLARLLLNYoALBeULALOLTLLebVeLLWLoLLLowLVoOaLLLaonBLUwoLLanUbaEOnTbLanbanObaLnPBdWanLbaEnbaLnBbanDbYan
.

l\-rflwW1eNJL—)U-\Vn]tAlMvRl.(su[0w.oY=be¢ln7WsNbc=LwzaDv—gitk— SOW(b—>=DBNW [-MO®I{]a.d4i’lng

m ®m® ® ®

CZRNDAQ RMB0 FCTNL PT1 MACRO V04.00 28-JAN-82 16:26:51 PAGE 54-1
ERROR MESSAGE $ TRINGS

SEQ 0275

[sm(av]N.¢m=J] (.L[7yI®

- - < L) [
]

o5.2sfExS35.cdioOse5Wi~B5Vo8BaEfwon2»g-sm=T&mmmmmumrmRSuFmRTmEmmmmummn8"
2IoNu&&o”.2l2e&.“lwZ3.ll2Z0Mm“G21mtwhe82m®S1@mNe.O3N1S-~=2N-33e-WS3—8O%CeoMOON.NOOAw®NaWo
117

106

g g g g B g g g g Prg )

=—28< eak -—a n— S-T NI 8--~

6
“
9
”
7
2
”
7
“
”
6
&
“
“
eo8S0G00S0009008%050080009809S0090S0S000000400909050%0050S0 LAL

R1g1ooErRogN1e1g)Ie’eogA)1se1oS.(Rgel1qoC(1gloc((elS1cGoP1glRqeSGl1aoOeo"lqSeeg1lN1coSoglqSegl1N1ocYePlS.ToPl’1o.Teoel1cSoPlo1.OA7oPlR1oP;=o1AP01ROP0So1’qOePlN1Aqoool1S’NAoc1l1=01co13RDN 1lTv0.ROO11l1o2='A1NoR1,P1|1o.N=e11l1o¢AeN11lN1.oO3Ue11lM.ooN5ePl11¢oN1OoP2Nl1oO=oT;,1oN--eTl5O1oeR.Tl611oc=-Tel21'cmVlM'1qmNeYlImo1m
ERROR MESSAGE STRINGS

C ZRNDAO RMB0 FCTNL PT1 MACRO VO04.00 28-JAN-82 16:24:51 PAGE 54-2

i &

<“ ) )

“
[
®
—
.m.RSCmTEUTsRo2FOSeS,IwsHEatmMie:E«=st¥nSErINEoco-~e&w—.L
-

6
SEQ 0276

Ea - TM

SEa 0277

TO2gCEggO%ggO2eO3ggeOe0O0 DSOET0ETPO0 0PDED0

SSwaHoRtKh(Yem%]GSI0vHn1}NRs[YeSKwRRwtwS-tWRReWtEw°R

alala)

oM LX) oxe.S. GlX0o8Xs XoXlLXot
E.mae 3. Fusy 3%

C ZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 55
3 RROR MESSAGE STRINGS

1 3
1
1
1

OASCJ
«ASC]

1
1
1
1

AS
AS
ASC!
AS

1
1
1
1
1

AS
AS
AS
AS
AS

RSR
AS
AS
AS

00 .

1
1
1

:
§
§ :

.ASCIZ

m3]@[=/g2

DATAS<CRLF>

BITa<CRLF>
POSITON®

[¢
]

RMER1

RMER23

RMOF

RMDCa

a8 38 g2
22 £22

D1:

G Sottd
o Eolio:

s gazs sorzen £D22s:
001134

001140

20 Qe g

Ny —
8

b
b h
e
—
b

06226

rh B cnd od e

zg
S Gy
s I
R

FCTY'l PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 56
STRINGS

001136

ED336:

g ED33s:

% oms wie my STSD2:

i e e

SEQ 0278

ggn $BDDAT,0
“STHP1,0
RMDTI,STMP1,STMP2

$GDDAT,$BDDAT,$TMPO,0

$GDADR, $GODAT ,$BDADR, $SBDDAT, 0
DAY “DDAT.SM

:gMT $BDDAT ,RMOFO, TTMP1,0

STSD1:

RMCS11,RMCS21 ,RMDS]

STSD3:
STSDé:

RMMR1 T, RMMR2x.mf1 RMSNI ,0

RMER1] ,RMER2] ,RMAS]
0

fim L RMDAI Afior mécx.meéu

nfi%ihc: RMLAI 0

SEQ 0279

0.0.0.0,0.0.0

124
124
R o o o T OB O OBOB g O

124

124
124
124
124
124

124
124
126
124
124
124

1264
124
124
1264

.=BUFFER

1
055
1

1;2
11
11
811
11
011
811
11
060
1

S
820
061
52

HELP:
.ASCI1
.ASCII
LASCII
ASCI1
.ASCIl
.ASCII
ASCI1
.ASCII
.ASCII
LASCII
.ASCIl1
.ASCII
.ASCII
ASCII
ASCII

<CRLF>
<CRLF>
@LIST OF TESTS@<CRLF>
@~
-3<CRLF>
an
CONTROLLER ACCESS TEST@<CRLF>
@7
LOGICAL ADDRESS PLUGS TEST@<CRLF>
@7
UNIBUS INITIALIZE TEST@<CRLF>
@Té
CONTROLLER CLEAR TEST@<CRLF>
@15
ERROR CLEAR TEST@<CRLF>
aT
DRIVE STATUS TEST@<CRLF>
@7
PRIMARY/SECONDARY ERROR TEST@<CRLF>
@T10
DIAGNOSTIC MODE TEST@<CRLF>
atn
PACK ACKNOWLEDGE TEST@<CRLF>
an
RECALIBRATE TEST@<CRLF>
amn
ABORT RECALIBRATE TESTa<CRLF>

.ASCII
ASCII
ASCII
.ASCII
.ASClI
.ASCII
LASCII
ASCI1
ASCI1
ASCII
LASCI1
.ASCII
LASCII
LASCII
ASCII
ASCII
LASCII

arT1s
an
an
@7
arel
@7
@7
@aT2é
@125
@7
@7
@T
@T
@7
@T
@r
Q135

ASCII

.ASCII

ASCII

A3 dAR AR AR Ad T

D
D e
e i
b -l e cd e
) i
) il
) e
) ) e
) ol wold ol vl - i el il il
) el
el ol el ol el v

NN~
oroN

i
e

b e e - = wd b b o wd wd b

124
124
124
124
124
124
124
124
1264
124
124
124
124
124
124
126
126
124
124
124
124
124
126
124
124
124
124
1264

) e

i o

e e i

R I e A R i = B 0o~ N i —

14
0SS

B RN R R R NN

BUF 190 Zg}.fi 8
104372

NRU
R RS SB
oe

R R

“fg‘l MACRO V04.00 28-JAN-82 16:24:51 PAGE 58

.ASCII
ASCII
LASCII
Cll
Cll

.
.
.

C1l
Cll
Cll
Cll
Cll
Cll

Cll
Cll
Cll
cll

@aT1é

IVC RECALIBRATE TESTa<CRLF>

IAE RECALIBRATE TEST@<CRLF>
RECALIBRATE AT OFFSET@<CRLF>
DRIVE CLEAR TESTkCRLb
NOP TEST@<CRLF>
OFFSET TEST@<CRLF>
GO/ATA TEST@<CRLF>
WRITE ATA TEST@<CRLF>
ERROR/ATA TEST@<CRLF>
PROGRAM INTERRUPT TEST@<CRLF>
INMIBIT INTERRUPT TEST@<CRLF>
RETURN TO CENTERLINE TEST@<CRLF>
READ IN PRESET TEST@<CRLF>
RMDC CLEAR OFFSET TEST@<CRLF>
ILLEGAL FUNCTION TEST@<CRLF>
INVALID COMMAND TEST@<CRLF>
INVALID ADDRESS ERROR TEST@<CRLF>

WRITE LOCK ERROR TEST@<CRLF>
ERROR
T TESTS@<CRLF>

@74
@14
T4
ar4

PARITY
E Ta<CRLF>
I.Efll. R;GIST R TEST@<CRLF>
EK FIRST CYLINDER®<CRLF>
SEEK
CYLINDER®<CRLF>

2874
a

8130
C1
C1
C1

T34
arss
ar56

RMR TES
CRI.F

SEEK#fim CYLINDERS@<CRLF>
SEEK ZERO DIFFERENCER<CRLF>

SEEK l? DIFFERENCE FMKCRLF)
SEEK ACENT FORWARD@<CRLF>

SEEK ADJACENT REVERSE®<CRLF>
SEEK INVALID SECTOR®<CRLF>
SEEK INVALID TRACK@<CRLF>
SEEK INVALID CYUMERKCRLD

IVC SEEK TEST@<CRLF>
ABORT SEEK TEST@<CRLF>
SEEK AT OFFSET@<CRLF>

SEQ 0280

we
——

§
o

4
4
4
4
4
4

4
1

05
1;

066
1;7
8‘5
8
82

111
055
1
1

04
820
0
040
040
040
040
040

040
040
040
0
0
0
820
0

200

52?

0
040
040

1;2

04
040
0

JFS

OO0
~

EHRE

d e wd od e wd cod wd cod o cd d koD
D o

ok e oy

SEIAINNNANNISELSS2ER28E
—t b d b wd e

"zgl MACRO v04.00 28-JAN-82 16:24:51 PAGE 58-1

068

820
0

1
1
1
1

0
0
0
040
040
048
82
0
040
060

SEQ 0281

.ASCl11

@157

koox AHEAD TEST@<CRLF>

LASCII
LASCII
LASCII
LASCII
JASCII
LASCII

@T
ar
arT
@T
@165
aT

SEARCH OFF CYLINDER®<CRLF>
S cu NVALID SECTOR@<CRLF>
s
NVALID TRACK®<CRLF>
Mcu INVALID CYUMERRCRLF)
IVC SEARCH TESTa<CR
T SEARCH TES?RCRLD

LASCII

ASCI1 @aré
.ASCII

<CRLF>

ARCH ON CYLINDER®<CRLF>

E
ARCH AT OFFSET@<CRLF>

+ASC])

WERAUM SWITCH SETTINGS@<CRLF>

.ASCI]
.ASCI]
.ASCII
.ASCII

asumu
@=====@ 15
@ 14

HALT ON EMMRCRLD
LOOP ON TEST@<CRLF>

BELL ON EMRCRL»

.ASC])

.ASCII
.ASCII
ASCII

@
@
8

13
1
N

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
ASCII
LASCII
.ASCII

@
@
@
@
@
@
@
@

9
;

END

200

.ASCII

.ASCII
.ASCIZ

@
@

&
5
1
O

@<CRLF>

useucnm

@<CRLF>

INHIBIT ERROR TYPEOUTS@<CRLF>
ktlkb
INHIBIT ITERATIONS@<CRLF>
LOOP ON ERROR®<CRLF>
LO?’ ON EST IN SWR<7:0>8<CRLF>
TN1288<CR
T
RLF>
TN32&<CRLF>
N
CRLF>
T
CRLF>
TNGB<CRLF>
TN28<CRLF>
TN18<CRLF>

CZRNDAO RM80 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 58-2
SYMBOL TABLE

Atou] =

EHGADR

v
preort i
el i
ADOW1

CLKADR
cLKVCT
CLRsTS
CERSTA
CMPERR

ool
o~

ENSLOS
ENSL

ADOUS =.

EnSLO

S =

.
oo 4ADEVH
=
B
e
privy
AFATALS
g

ARADR
e

NARS 3
1=
i
AMAMSA

AMSGAD=
AMSOL
ANSCTY=

A
NATYPas
NATYPS=
NTYP
i
APASS =

e
.
AT
APTEN=
TS re
Res
ASUREG=

<
ATRRSK=
i

custol

SEQ 0282

EDrae Q7eeie

Ens108 So7als

%
0
005503
56;

EpT
DTS4 0744
€01
:
ED110
121”
Ep111

nsTy| 07s]
EMS111 077576

Ens1iz §;776%

088241
(3

Ene1ls

06 5

ol
i
£
10432
10436

i
o
ENS118 07775

EFTi
005
EFT110
074514
EFT111 07451

ENS15]
100036
EMS152
100067

EF116
104347
Er
104352
oM
ENTl10
o7
ENT111 074
ENT112
074310
EHT114 074314

EMS13%
100533
EMSI35 100575
B
EMS14
075245
EMSI0 100732
EMS141 100753
EMS142 101007

EFTI1e Orasse
EF1Sos Ores
EFT
743
EFT
7434
EFT346 07455
EFT353 074
EF170°
104346
EF111 104345

EHT
24370
ENT323 074520
ENT3S6 074352

EHT
74344
EHT
74356
ENT346 074370
ENT3S3
0744
e
108138
EH110 10314
EH111 1031
EH116 103174
EH223 103223
Enses 183543
£
103%35
£
103353
Enses 103280

ol
Qe
Eflss}gg
gfi;fi
EMS101
077

EMS12S

100124

EMS13% 100167
155 100221
Ens156 100
EMS]
1oo§7
Ems1S 075
EMS130 100
EMSI31 100424
EMS132
100464
EMSIZS 100510

EMS14S 101016
EMS14a 101064
EMS145 101054

EMS146 101103
EMSI47
101122
EMSIS 075256
EMS150
101937
EMSIS1
101156
EMS152 101200
EMSIS 101326
EMSI3% 101350
EMS13S 101
EMS136 101
ERSIS7 101322
Ensico 101357
EMS161 101

bsiee
ok
EMS164
1014
EMS165 101511

CZRNDAO RMBO FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 58-3
SYMBOL TABLE

EMS1
EMS1
EMST

191
075

EMS171
EMS172
EMS1
EMS174
EMS175
EflS‘l;g
EMS1
EMS
EMSZ0
5201
EMS202
EMS205

EMS170

$200

1015

EMS40

1
0
1021
1021

EMS55
EMS
EMS5

76541
7657
7

EMT1
EMT13
EMT14

EMS61

EMT 165

511

07541
102263

102274
3
1%
10233
1

EMS54

07 Ogg
07

Eggg

767

EMS65

77017
077065
077135

E
EMS64

EMS67
EMS
EMS70
EMS71
ensg

75544

75565
flg
75576
gggg

S$33

759?‘

53¢

EMS

&%
EMS4

fele
74713

EMS 35

757

EMT
EMT220
EMTZ221

7 i
07251
07 5;

EMT224

07255

EMT21

EMT
EMT

EMT

EMT
EMT
EMT231

EMT1

EMT243

44
77174
77207
17
3
1

EMT151
EMT15
EMT15.
EMT1

EMT1
EMT1
EMT1
EMT1

EMT1

;

EMTZ25

7235

7250

725
7254

07 282

7
72616

7027
7
07

72646

EMT
EMT
EMT235
EMT

72650
0726352
07654
7265

EMT24
EMT24
EMT241
EMT24

07
7
072664
7

EMT244

0726

EMT

ENT123

EMT 29

EMTI05
1
EMT1
EMTI

071
4]
71
701

EMT1
EMT170
EMTI71
Eflfl;g

EMT
EMT
EMT
EMTZ54

14
7 7‘8
7275
;92

EMTII]
EMT 11;

071
71

EMT174
EMT175

EMT g
EMT25

73016

EMT1

EMT

EMT1
EMT104

EMS
$
EMS 30
31

[4
73224
7324
7
8
7331
7 54
70124
7

EMT1
EMT1

EMT14
EMT14
EMT15

14
I4
07
0724
72414
7 638
(07244
0724
724

EMT

1
1

EMT144
EMT145

EMT
EMT21
EMT210
EMT211
EMT 1§
EMTZ21
EMT214
EMT215
EMT 19

ENT15S

S226

5230 1

EMT14

73142

0r7ose

EMS75
EMS?
EMS
EMTVEC=

EMS231
5232

EMT140
EMT141

(07231
I4
07

ENSZL

18
1
10
10

EMT135

EMT
EMT205

EMT1

s 1
S
EMS223
5224

5205

767
77001

EMT1 ;
EMT1

75053

1
9
10241
102447
075436

076517

EMS6
EMS60

S215
EMS 19
S
S¢

5220

EMT

EMT125
EMT1 9
EMT1
EMT1
EMT1
EMT131
EMT1
EMT1
EMT1

EMS214

EMT124

7 ;
7
7
76
074756
87661
7644
76473
76505

S2C

S211
S g
S213

7617

EMS44
EMS45
EMS4
EMS4
EMS5
EMS50
EMS31
EMS5
EMS5

102151
102177

521
5210

EMT203

101626
101661
101701
101716
181 4
101752
102001
87
75

5206
$205

5206

EMT121

761 2
7614

10202

SEQ 0283

76067

EMS41
EflS‘g

101

né

EMT110

EMT11

EMTI14

EMTIIS

EHT"9

71
071244

071

7135

Efl"é’
EMT19

EMTI

071

71374

abe
EH"SO 714614

EH";’
EMT

EMT

W
EMT

EMT g
EMT250

EMT255

EMT

72706

/4 ;16
072720

;

70326

EMT

e
EMT265 &07 12

73154
703
1

04
;8

7
073442

873654

73624

0;?3 6
504

073516
073530
07354
073574
73606
073620
0;2633‘8

073640
073650
0%
0

073700
073712

0 65

07375
7

074014

0748;2

74052
74062
70406
76072

746104

764112

76124
741

e
9 876192

gzmtw FCTNL PT1 MACRO V04.00 28~JAN-82 16:24:51 PAGE 58~4

(A
ILF =
ILFO2 =
ILF24 =
ILF26 =
ILF30
=
ILF32 =
ILF3 =
ILF36 =
ILF40 =
ILF42 =
ILF&4 =
ILF46 =
LFS4 =
ILF56 =
LFé4

ILF74

45 6 =

MR
D
"
mF

RMCS21
RMCS
RMCS3 =
RMCS3!
RMCS
RMDA =
RMDA
RMDAO
RMDB =
RMDB
RMDBO
RMDC =
RMDC I
1
RMDCO
1
RMDS =
18
RMDS I 881 5
RMDSO
1424
RMDT I
1
RMDTO 001440
RMECT = 000044
RMEC1I 001402
RMECI0 001456
RMEC2 = 000046
RMEC2]I
001406
RME C
1460
RMER] =
14
RMERTI
001352
RMER10
001426
RMER2 = O
RMER2I O
RME
(
RMHR = O(

=
=
=
=

RMHRO

RMLA

RMLAI

NOTA
L

]

- Ha

001364

RMHRI

NDTMSK=

=
=

P =

= 0000

,&i
)

RIR1I

RMMRI0O

0013¢

001436

! }fi
=

F3
F

RR] = 00002

RMDTI

LF66

RMCST =
RMCS11
RMCS10
RMCS?2 =

Ve =
L8 =
LBT =
LF
=
LODEV
LS
=
LSC =
LST =
LSTRK
MCLK =
MCPE =
MOF
=
MDPE =
M
=
MINSTR
MOC =
MOL =
MD =
ns
=
MSC =
MSDRVS
MSE
=
MSER =
MSGDRY
MSHELP
m

Enrae

SEQ 0284

AMBAI

EMT
EMT
EMT4
EMT40
EMT41
EMT4,
EMT4
EMT44
EMT4S
EMT
EMT4
EMTS
ms?
EMTS
EMTS,
EMTS
EMT54
EMT
EMT
EMT6
EMT60
EMT61
mg
EMT
EMT
EMT
EMT
EMT
ENT
EMT
EMT
ENT

I0TVEC=
IPCKO =
IPCK] =
IPCK2 =
IPCK3 =
IR
=

"o~

EMT3S
EMT350
EMT351
EMT si
EMT35
EMT354

|‘a

u‘n

JU4

)¢

1‘0 LIRY.
+

CZRNDAO RMBO FCTNL PT1 MACRO VO04.00 28-JAN-82 16:24:51 PAGE 58-5

SEQ 0285

SYMBOL TABLE

w02

S '.zw =

187124

S
S

=
=

1ST25

S
w05

=
=

1ST ’
IST

17
27

S
SWi_

=
=

1ST131

WCELOD =
WCF
=

SERMAX
$SERROR

TST.
1S730

WE
=
WCEHI =
WCH

SERTTL

112

ST g
IS8T

SWi0
Wil
SU‘lg
W13
SWi4¢
SwWi5

=
=
=
=
=
=

IST
IST35
ST
18T
1ST4
TST40

SW.
SWe

=
=

1STé4
1ST4

001
711
TADMSK= 177400
TAG
=
TAGADR=
001114
TAP
=
040000

1S151
1ST5

SHg

W
=
SWwé
=
W7
=
Sw
=
sw9
=
SYSTAT

TAl
=
00
TA2
=
001000
TA¢
=
002000
TA8
=
TBITVE=
14
TIMOUT 83 70
TKVEC =
TPVEC =

TRAPVE=
TRE
=
TRTVEC=
14
IST
= 8%‘
TSTNMB
1
TSTPRP

04153

isT1
IST1
IST14
IST15
1ST16
IST17

1364
13714
16214
1“;6
0147 5
155‘
15304
015762

TSTQUE
ST
1ST10
IsT11

TST.

15120

0014

101
16235

g e
TST § 8174 6

$SEOSP

wp =
WD
WH

SERFLG

SERRPC
SERRTB

=
=
=

SESCAP
SETABL

18741

WLE
=
WRL
=
XS1Z
XXDP
Y
SAPTHD
SATYC

SETEND
SFATAL
SFFLG
SFILLC
SFILLS
$GDADR

1ST44
1ST45
1ST4
1ST4
IST5
18750

SATYS
$AUTO0B
$BASE
$BDADR
SBDDAT
$BELL

$GT42P

$GDDAT

$SATY1
SATY3

$GET42
$GTSWR

SINTAG
SITEMB

$CDW2

1ST54

SCHARC

1STS5
1ST5
IST5
1576
15760
IST61

SCKSWR
SCMTAG
1
CM3 = 00000
CMé = 00000
SCNTLC 06560
SCNTLG
g 1

IST
1ST

1ST64
18765
IST
18T
IST

$CNTLU
$CPUOP

001 59

$DBLK

881 00

SCRLF

TYPBN =

$DDWO
$DDW1
”%

121

1
131
131

1140

SENULL
SENV

132
1264

b
el
SEOPCT 041342

001151
001130

SMADRG

001122
001124
001254
001260
001264
001270

uwusg
SMAMS3
SMAMSS
S$MBADR
SMFLG

001256
001
001
001102
066514

SMSGAD
$SMSGLG
SMSGTY

001236
1240
001 2;
561

SMAIL
SMAMS1

SMTYP1
SMTYP
SMTYP.
SMTYPS
SMXCNT
SNULL

USE
w

0
w =

001 56
1224
13
17
17
1134

SLPADR
SLPERR
SMADR1

1
1
041
1
131
135

1316
1
1
1

=
=

121
1264

001 %20

SLFLG

SMNEW

SDDW4
$DDWS
30%
$D

SDEVCT
EVM
$SDOAGN
$DTBL
SENDAD
SENDCT

n
1574

SLF

1314

TYPDS =
TYPE =
TYPOC =
TYPON =

TYPOS =
UNS
=
UNTMSK=
UNTOFF
UNTON
UPE
=

1%%

041476
= 000000
SHIBTS 821100
SHIOCT
5764
SICNT
001 1;2
SILLUP

$BIN
$Cow1

1ST5

041

SNWTST=
SOCNT

e
$PASS

066515

001222
001252

885630

553
57
26;
ig
4
170

B
1230

CZRNDAO _RM80 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 58-6

SEQ 0286

SYMBOL TABLE

SPASTM
$POWER
$PWRDN
$SPWRMG
$SPWRUP
S$QUES
SRDCHR
SRDL IN
SRDOCT

$SCOPE

;
$SETUP=
1
$STUP = 1
$SSVLAD
504
$SVPC =
1
$SWR =
$SWREG
124
$SSWRMK =
$SWO8T
6

S$TKQEN= 06‘49

$RE

TIMES
$TKB
STKCNT
STKINT

TMP4
IN
=
$TPB
$STPFLG

$RDSZ =

TESTN

TNAD
$SAVRE

000000

ERRORS DETECTED:

1
1

06440

$STKQIN
$TKQOU
$TKQSR
$TKS
$TKSRV
S$TMPO
TMP1
TMP.
STMP.

001

VIRTUAL MEMORY USED:

61952 WORDS

( 242 PAGES)

DYNAMIC MEMORY AVAILABLE FOR 70 PAGES
CZRNDA.BIC,CZRNDA/C=CZRNDA.DOC,CZRNDA,[20,0]1SYSMAC/M

NIT: 001256

SUNITM

VECT1

-‘v 10

001 7

XON = o‘c‘n %"

S, el
$$SW08=
=

FILL

14~
39-

SEQ 0287

! 3TerysBe !bhcehchcheh 11

7)“&«0.2L.'.'...=.y~[~’IRe

e
T
e
e
- & - XN®N E E RE E[

$SGET4
$$SW08

NMM
SRRM
PRI

CZRNDAQ RMBO FCTNL PT1 MACRO &0‘680)28-JAN—82 16:24:51 PAGE S-1
CROSS REFERENCE TABLE (CREF V

R[N

SOF ILL
S40CAT
$SAPTHD

SASTAT

46-1

$AUTOB

6-Ol

1LI11RS111-$11E25L1I2T1H2A1..11's11g2z-a2

SATY1
SATY3
SATYS
SATYC

$38enm5or3,8nt

L
]

$SBELL
$8IN

$CowW1
$CDW2
$CHARC

38-1+

-«

5151 1“@3-

=0\

&« SE wE ®

$8DADR
$BDDA —

rmn¢.mwmwmSo%e

$BASE

'kiRwNLwRmLAwuwyumy»pyALY

]

o w

sax

9-14

“t'cfil““.*“.-.wn.ioi
eV]VoTogolo®lol&ol&eol%eoLlt eI¥&M]gBAS3“-o=—3 .=-—3=g5—
MMM

oeOESo3wEvaiSvnhLsieStioceld ¢.&2&2So5 o2SRs<0 .SALSSPN.lLs2 2duCo3E8SR.&R8=eR§
10-67*
u.-gg

1 §2

10-25

14=204

i324*

38-1

10-71

40~1

38-1

”

-3

-3 -

~ ~

~ - -~

14-20
14-94

- eo

2A
A

mBRIm»y“mmw2mTmaENILEEisioiltrfeorl
FCTNL PT1 MCRvag‘680)28-““-32 16:24:51 PAGE $-2
C ZRNDAQ
C ROSS REFERENCE TABLE (CREF

SEQ 0288

-5b

6=0#
6-08

13-97
41-146

1329+

426+

6-04

14-20

28-JAN-82 16:24:51 PAGE $-3

T6e3RET

39-1x»

39=1x

42-1
40-1
40-1

42-1*
40-1
42-1

40-1%

40~1%

§9-1
S=1

9=1%
9-1

9-1%
9=1t

39-1#
40-1

13-33_
13-613

13-105
13631

13-A70

iFl

13-105

13-105#

13-5144

13-514#

13-277
13-733
13->11
13-€70

: 'y

7
%

—

I IN
88T

40-1

-5

sé 13-<95

NN\

41-41

—b e b

46=1*

LR
J

v
*~N

-137%
-367t

[

-;é

} ]

Ao
*G

;%.

SEQ 0289

CZRNDAO RM30 FCTNL PT1 MACRO

CROSS REFERENCE TABLE (CREF ngféso )

1
1
13-205

13-£10

46~1»

sty
b et

R o

)
o

13830

ot ot e

15831,
13-765¢ 13-

[}

1 %
1
&
1
13-61
13-73

) ol

13-2¢_
13-277#¢
1
1
1

el <ot cacab

9-}0

9-}

46-1%

[ ‘

461+

P ol

46-1

el moah

46=-1+

1
13-561#
13-698#
13-915

CZRND
4
A0 RM80 FC TNL PT1 MACRO

TABLE (CREF v52‘68° 28-JAN=-82 16:24:51 PAGE S~4

14-20

45-14
45-1

45-1#

38-1

44=1

44-1

44=1
44-1

42-1#
46-1
41=28

7=1%
9=-14

D ey
wmdh =
b

e e

b
b
b

104

205#

39-1

40-1

42-1

=769

4=769

4~T6

4~769¥

42-1

47-19#

14~
4=769
L=7698

4&~769
10-24
40&-769
&=-760

1 g‘
13-516
1

4=476
1
g‘
1
gz
13=-:

4=476
1
g‘
1
1
13=-:21

1
1

4=476

4-476
13-33.
13-61

1
1

39-1

40-1

ea
£
i
40-1
40-1
23:1

40-1

4=476

3:476

4~476

40-1
10=-24
4=476

40-1

1 i'
1
*
13-:87
11 g 8t

13=-33+
13-613«
13-<53«
13-A70+

;;8}1

214

37=1+

6=769
10-24
1
4=769
L=7698

39=-1

e
e e e
d

1 r%oo 13-F30#

} 012' ; -312‘ } -D14# } D6S

13-301#4

-:54
[

45-1%

$Tk8

13-E91# 13-F30

14-20

40-1

45-1*
46-1

39-1#
S5=-5#
39-14
&=475

STIMES

13-9

45-14
44-1

39-1#
4=769
10-24

STESTN

7-1.

10=24¢

4S5-14

13=2674

1
13-C
13-E91#

13-9

13-<53# 13ggl 13=<
13-<95#
1
>610 13=-2414 13->71
>11l 13=>41

13=2674

SOCNT

13-9594

b ed

b e o e e

1
1
1

SEQ 0290

b e

NCE

CROS S REF

4=476

39-1

§§:1

10=24

12-46*

39-1

13-105+
1
1%
1
*
1
*

13-33«
153

42-1

13-;

=47
1g

4=~476

8
-7694

47
13-21
1

4=476

? i 152223. 1§E;i§' i.
1

1
1

*
1«

1
1

*
*

13=->11¢
15=C70+

-016t

120'

13-514¢

13536+

42-1

2=-1

&~7654
0-29

1
13=->41

E91 e

13=>71+

4&~7694
0-29

1 3-;21#
1
1
1
1
1

El%Lk0i0[“-#«&
I1TL74343«7 iXmmfTlETML-ST
-N&-L3eatl&SThMdT4®-.IIBU“3BILIS"TBTewLS©RNZeRLRNTSoe3Lf=‘-Ne.'olOW?W~’]N8.M=\.J2.2-N'®hP8~y-M~o-dNbNy““®~»NL]&ognd34&=44e3AgLcATlTE‘r“3lee-eeNeTgPLeoT”R%~~OhNNde=82ww—*“”—o0t@nB¢-oo&b=N"5B3S20~o8sT5Ngr&-8&cd«.2eI5dNI«a2fRe@g«
w9 33 =WneN0I3&& B Y

o~N =-d T=bh - WOONAN""NN--®«
&33 +:p

[/ ~

——-2

RTTTTa TRTT6SoYTy25B0 omR o-0 yAS TRlAIodToAoNToBAtRToWEtS
EZR'OAO
FCTNL PT1 MAC vxg‘bso)za-am-az 16:24:51 PAGE S-5
ROSS REFERE E TABLE (CREF

~—=

M
O
®
«
A
N
-—"epn

L)y

SEC 0291

-®&

RM80 FCTNL PT1 mcnovxgibso)za-awaz 16:24:51 PAGE S-6

SEQ 0292

mmmm uumwmmmwmmwmwmmmmmmm

FERENCE TABLE (CREF

-~%—N

-‘lceelcePlceelcelaPlcgGlceelnelcTla=lcl TwWc "-hl..
ks " ~w

)

AS 3

~AN < &—

Ca A oo

u-hgzt 223 u\la
11-46
1
-1

‘i”
gfl

=96
=96

)

@egGis

ZRNDAQ

ROSS REFERE

FCTNL PT1 MACRO

.00

E TABLE (CREF vngogo)

g 6
gfifi g

28-JAN-82 16:24:51 PAGE S-7

SEQ 0293

gogm

< —<

2:277 22-311

22-326 22-341

22-356

22-360

23-151

23-155

48-77

48-78

48-81

48-82

48-85

Reee00e660000T00060P1606646uTuT4*P4TT«.qT.T“P&=m-yes

m23aIdJm=inatAes2umnm»ANummIw&BsBwAaNmmoymuIwnwmSuoTamNmweuaswum1A.328320t
og’1e1g1e11611001O1O10011111€"1oe10T1O'€100131T"T113,T1’O1PoI1Rco’n=1TT1=1=1323w
»
y
m
w
y
m
o
A
R
A
R
P RPR e

11q,lR.la1,1lq1el.,1l.1lc,1l-,1Slc‘l!,1S1.,cl1S1.l11cRlw1clu1Ral‘1clw1S.lm1.Rl1qlmc1l1Sqlm‘oc1l1alwoc1llm1al'3X.1lm1Xclwq1Xlm13-’lwoql1lom1cl’l3co1lw,lc1le11ql1lo3.l1l11aXl1ecll1e,1cll1o’cll1,1cdl1e‘cll1o,1all’gall11o1cll1,"col"1alMl’a,’cadl1a1cdll1o,'all11-olM1,oc'll1L.1oll
soe=33eo te@eg SReS

uwmmu nE

C —“

[

€ Yhale (CREFOVOL

30"
28~JAN-82 16:24:51 PAGE S-8

mm
mm

H
ymm
m
y
”Hm

uwm.

mwmm
m

hmm

LEASAS F R
LS

36’79O~N1OIM‘NdO7NN‘T1N2uomSumay=uS9AyNuSnuAS <M>4TLP“%ma4wf4lRmnymfal4nW«MmWfimom11’1'111111.’11’1111"11111111111 KRYCROROO

R.A

N -

RNDAQ
FCTNL PT1 MACRO
REFERE

SEQ 0294

=23
?d-‘-‘-‘
LLLh &sl

13-F97#

13-F1
13-F4
1
Fsfil

13-F97H

13-F97

13-F1
13-F
13-F

b cnih =3

13-€9
13-F3
13~F

Nt
b s =2

SEQ 0295

TABLE (CREF

13-F27
13-F62
13-F91#
13-G03#

4=7
4=7
4=674

4-601

4-61

4
4
4
4
4=

z-6£1

VIl &~

4=57
4
4~
4=
4=36

4
4

4=5
4=5
4=569
4=5
4=5

4=57.
4=57,

4=5
4=5

4=662

~N0o©

Dl ol o o

¥ =

gfl:

TNL PT1 MACROvx24680)28-JAN-82 16:24:51

11-48

47-40#

41-94
41-104

41-1

S8-14
13-:43

=5
Sg

61-18;* 41-1534
41-1540
13-<09

13-<67

58-2#

40-1

4=729

4-644

4&=727

39-1

4-659

4-726

15-165

4=619

4=642

4=725

15-167

4-6%7

4=724

4-746
4~745
4=744

39-1

=654

20-20

4=731
4=717

39-1

"";3

4-6

4-678

CROSS REFERENCE TABLE (CREF v82‘68° )
CZRNDAO RMBO FCTNL PT1 MACRO

BUFTWO
cC

58-3#
4-623:

CKSWR
LKADR

39-1
7

ESGADR ?:él
CHRCNT 41-55+

10-15«
4.1-73-

40~1
13-897

&gm Z 314 } 4
cusfi }s-; S } 2;5
cne“'sm 13826
} g 13655
5‘ 13

10-18« 11-25
/.1-?4- 1.1-35
"836
19-6*

28-JAN-82 16:24:51 PAGE $-10

44=14
19-8

11=27%
4.1-50-

6192

4197+« 41-108% 41-1554

19=12«

19=14

20-20

SEQ Q 0296

13-230
13—531 13=262
1§:rz

13-291
13-F64

20-39

P’B'
1 27-1
1§-Aos 13-A48 15-93 28-224
13-677
-820 13908
133213 13691
1§ 13-730
13-A99 1§
13-373 13-952
1§-oo

13->
13—»3

13=>
13-p95

13->95
13-g41

CNSLO1
CNSLO2
CNSLOS
CNSLO4
CNSLO?
cnsags

1111-40
11-44
11-54
11-78
11-109

cm“sc"u P’Fr '1'7'5?' 13-240 13-254
1 -92 12-6
1§:as 12-14
13-A01 47-64
13-A%4
Eg‘u}u
12-1 3

13-279 13-330
13-A72 13-B

13-348 13450 13=995 13=:61
13—0&1 13-E27 13-E67 1576

13=:28 13-:94
27-12#
‘

13-<61

13-=33

CPSAVE
)
CRLF

39-1
39-1
4=479% 11-90
4=4798

39-1
11-101
19—29

30-1

9=1%
1
10-43

40=1
41-76
10-5¢

40~1
54=79
1

40~1
1

40-1
38-1

40-14
47-4

40-1*
47-7

40-1¢«
47-8

41-172
47-9

15
329
;
5

58-17
31

58-19

-g
-35

;
58-51
58-45

§58-24
5

58-25
58-39

58-26
5840
58-54
58-68

58-27
58-41

58-28
58-42

58-59

58-1
5
5
5

13-225

13-=11

4=577
22-497
598: 6-0
15-26

22-517

39-1«

47-11
47-35

CYLMSK

DBCK
DBEN
DBL

56K

47
4794
47-10#
47=-11#
47-12#
47-14#

‘

47-12
55-7

5
58-44
58-5
S8-

47-13
§5-11

58-45

gg_-;;

9=1%
10-29

47-14
55-1

58-74

&7-15
55-15

[ -91

58-75

&7-16
5-1

&7-1
5-1

& -ga

-9;

58-79

4729
58-10

58-52

47-30
58-11

58-53

58-80

58-81

3652

47-31
58-12

4731
58-13

58-55

47-34
58-14

58-56

58-70

58-82

58-83

58-84

13518

13-:00

13302

230
13-262
13-291
R = =i ot
It L L

13-a25

4=649#

4=
4-;
13-120
4=7494
4=

0=-24*

15;2‘‘;?;g' S8 B3

B8l W

e 148 1Ti 1A xR
21-137 22-25 26-930 30-31 3
7

Q-S;g 13-203 13-206

R R

13-317 26-200 28-125 28-126 31-30

-£95

CZRNDAO RMBO FCTNL PT1 MACROng‘éso 28-JAN-82 16:24:51 PAGE S-11
CROSS REFERENCE TABLE (CREF
)
.00

DRVSTS

1 !-?%‘

?1 -8

DRVCLR 4:289' 13-437

13-588

31-18

2:503

13-204
10-24

13-317

21-104

22-38

22-41

28-125

28-126

31-30

10-89
13-199

13-85

13=143

17-43

-174

33-89

13-387

33-

-37
;6

18 i1 i §3s

1-17
92

$0-1%

4-577
13-927

%830

22-513

22-519

48=77

56=-14
56=24
5%=
56=5#
56-64
56-8#
52-12

56-104

-495

22-42

26200

1-65

48-78

48-85

30-133

30-266

48-86

:
-15

1%
19

SHHGR

-7
52-8
52-10
52-11
52-14
8-3

-4

L=1V]

52-1
52-4
g w

32-171

1%-334

32-1
4=6174
4=5694
4~6428
4~6214

EBL
ECH
ECI
ECRC
ED1
ED110
ED111
ED114
tb223
ED
ED
ED353
EDT1

o
4=6

4=577

HETe-.-léd

DVA
ovC

4
4=4
4~
4-601#

DRY
DSWR
DTE
DTO

47-264

TTTT

12-3

DRIVES

SEQ 0297

52-54
52-24

52-104

37-is

O, 23 3-117 E, H, ¥, H

CZRNDAQ
F CTNL PT1 HACROVX‘
04680)28-JAN~82 16:24:51 PAGE $-12
CROSS REFERENCE TABLE (CREF

A0=
AYTV=iV=1VeAoV=A1VLl4NaLl4iaLelA-ia=A+LUeLlMeLeLLe)SAPmLBMLe)eLeLAGB

%flu
e
Rk
—ONMWN
ON _
=F

45566

SOS‘

. . % . UL

ARSI A

SSnAoBrAhRShIgAsTeERRsSoene TST

G@06OS-%—

SEQ 0298

wnmN*i®n ninnninnmnnmJpn3m¢v—Q0

R,“¥w1

53-24

8-690

53-10#

55-1#

Al
ENTT

ULal)’al4 U -L) I

- wy

.L3lU.fl-.4-.

[I\

8-687

8-516

8-68 7

8-516

51-24

8-690

51-11#

e15

8-42
8-84
8~-126

8173

8-215

8-314
8-

8456

8-549
3-600
8-642
8-696

CZRNDAO RM80 FCTNL PT1 HACROV826680 28-JAN-82 16:24:51 PAGE 5-13
CROSS REFERENCE TABLE (CREF
.00
)

EMST
EXS1

1-1
1

3013

1
71

b b
N

362602

36-3

50-235
£0-207

2
50-177

50-24

50-25

50-26

50-63
50-14
50-19

30-180
50-194

50-67
50~-151
50-195

50-229

50-230

50-231

50-98

50-126

54-85#

50-91
50-105

50-92
50-106

50-222

54-99#

50-223

50-234

4=
0-7.
54~
50-4

;;2

50-

50-209

50-27

50-97

S22%p

50-91

50-92

50-93

50-94

50-95

50-96

50~
50-1

36-Tor

36-162

50-89
50-103

50-125
50-126

34-934
54=94#

LLli ABAA

~333

Jg58 8=

wsdy o

b
o
B

ek o ol R e

end okt

D d e

ek ad cdh e

—

e e

o e

) —d - b

3078
;;g

FELLITTITY L

4
74
75
50-77
§§;;§9

4=714
30-2
50~-1

VIVIVAWVAWA - v
&

12
13

211
180

VIV

ens110

EMS11
Efls11§
EMS11
EMS114
EMS115

2
1

EMS1
EMS1
EMST
EMS11

Ensi0s
30197 30-178
EMS1 §§E
50-57

sas-7;.

Nog

EHT353
E

SEQ 0299

3658
3853

3852

36-3

36-56

50-104

50-105

50-106

54-964

%8:153,
410

36-12

4=9

0-137

50-187

50-188

50-193

50-140

50-184

50-202

50-205

56-101#

50-138

50-182

50-183

50-19¢4

50-195

137

1
4=-1
0-1

54-1054
50-1M

50-134

Nvoooaufl

b b b

—-\Net

30-85

50-173

3851

50-124

54-110#

50-116

50-151

4=1 gzl

0-1

50-182

50-183

50-194

50-195

50-223

54-108#

50-173

54=112#

30443 IR

50-63

50-64

50-65

50-66

50-67

50-68

50-69

50-72

50-172

50-196

50-197

50-198

54-1204

50-123

50-12¢4

50-168

50-169

50-170

50-175

50-235

54=122#

50-126

54-1244

50-219

54-128#

50-110

50-118

50-119

50-120

50-121

50-212

50-232

50-238

36-135 36133 36138 36178 30-198
3657 36-238" 54=137#

54-133#
50-176

50-237

54=1344

b e

33 IS

WAV

SEQ 0300

54=1144

=LRNSE

nd ek
ek e
b LY WS e

54-1394

omed el e cmd wmd

—

A A A
A A AN
—_-OOOCOOOSC
Ne
b
NOWVSHUWN=O

ALLAL

AALALLAAL
AR AL
UL UL AL

PT1 MAC aovngbgo)za-JAn-az 16:24:51 PAGE S-14
(CRE F

PIPPRES
T
;F
tu
bmg

(N b d o md e)

o} wad ol wanlsb emd e

A
w

QAP

o
e
o
e

d d nd o

TMm

AR
eLI
wg“
t‘*b WNANNY —

¥fddm\h

(=] e
~

mmmm

BagaRgARE AAA 33

30133 54-152
54=-1554

S54-18#

50-70

50-71

0-17

54=254

50-2

i
34554

50-24

50-132

3013 3638 3644 30-74s 36527

50-227

54=304

50-215

54=324

50-185
50-61

Sy 3030

4=404

0-118

50-147

50-186

50135

50-139

50-141

50-181

50-185

50-14

Sk 30-1% 30-185
3 §30§§-2?245 3eiss

A4V AR AR AR SRR

50-173

50~45

50-190

219

NSNS

50~67

50-32
50-174

50-187

50-188

50-192

50-189

50-200

50-201

50-221

54-434
50-201

50-228

50-229

50-230

50-231

50-64
50-194

50-65
50-195

50-73
50-200

50-140
50-202

50~141
50-203

50-143

50-144

50-178

50-182

50-183

50-194

50-195

09
34450 362

50-196
50-210

50-198

50-213

50-199
50-214

50-215

50-200

50-201
50-220

50-221

50-194

50-205

50-202

o
o

50-119

5019

50-145

50-146

50-147

50-199

54-544

50-46

50-47

50-48

50-49

50-50

50-51

50-52

50-54

54=57#

50-54

50-66

50-70

50-73

50-107

50-110

50-139

50-182

50-189

50-183

50-195

50-208

54-59#

RN ¢
8\0
W

175

50-116

36-513

7
—w

20
16

EMS

54-156#

VAW

€

50-151
50-1

SEQ 0301

EMS231
EMS256
E

ROSS

C TNL PT1 MACROV&O‘OSO 28-JAN-82 16:24:51 PAGE $-15
REFERENC E TABLE (CREF
)
.

357"

b e

e ol anct mad ccnd cmd o

o cwd adh wod md il o} b b e

EEEEEEE EEEEEEEED

h mdi aad md el ok oud dh i ks
o e o o o e e e

EMT1

O
&
~

JEGREIISTLRRRUR
IS NRRRTINNETM Jhrwnas IREREV28

ek el cond e o

EEEEEEEEEEEEEEEE
T

it0
7
7
148

104

agz;‘
51
1462

—_—n)— -\

E TABL p (CREF

SEQ 0302
I

it
50-223

50-234

B Bl
54-63#

50-109

54614

50-134
50-135

ggPTgoseggenoge ge@-gTTgTgTgeTggggggRPSPPO EET

LwITmITLYm[mW$.m..m..w.x.m.?&m&wwtww»wmf&mim
RREEREEREEREISREIREEARERSERRRiRSERRSoE85RRR-IR—NAEgR—R-ENEgIERgCEgOAeRRRIeRESZER0BEGe TCVREPRETAAEAGREEE
C ZRNDAQ

FCTNL °T1 MCRO&‘OSO,ZB-JMZ 16:24:51 PAGE $-17
CROSS REFERENCE TABLE (CREF

*®

G
8
SEQ 0303

ZRNDAQ
FCTNL PT1 MACRO
ROSS REFERE

28-JAN-82 16:24:51 PAGE S-18

SEQ 0304

IRS

oYOO
35D3Y0O3 NICR 0 .0»._u!flO. OAO“O7?.1O2121.?

E TABLE (CREF vngéso)

O O OO C

SRRSRRRoSLSROS8RtSMeLRTeRRRcaRnRLeRR-A~-R-A8AA Ao2 AR2AAgRR RARA

fmmmlmmmmmmmmmmmlmmwmm32m3m33m20m3w3m,l3mm3m3i538,
C ZRNDAQ

CROSS REFERENCE TABLE (CREF

FC TNL PT1 MACROvxgabso)za-.nm-az 16:26:51 PAGE $-19

SEQ 030%

3FeIeeReefPElTyfgiP?”emo?Oi=utO—Ba‘wl
8Pgegeeg-gegggg-T 5838N”me=al-=l8mo~NOTEOSENORS358YI035B
eees(eeeSggPGe@(gePgseTRPPGTOGeR =0~

Cossbecosl EEEEEEssececEEsSceif
vxglnéso)Zl-JMZ 16:24:51 PAGE $-20

(Q-oRPge3 Fieass
E

N=2

(QgGeTRyS

vASw

SIS
L

E TABLE (CREF

Erhehrboihetarhehehoheh TKV

FERE

FCTNL PT1 MAC
J

SEQ 0306

MNS

I"S1EoEFW1EHR’FB1’f(F’UF]F1.GG”-F(1(o=1oQY11cCc1C1w-1s*bui'M1_’wN”x1Ro1y(SeTUM1-W?LC.oR7P-1eR?0C.e(8LeU1O0MS.UWRz)WU13R=:A“U'3R)U1>3RU,)3R?U13R?U)}R?U"3oR?U1yR?.UR..’..171"1“''"i19“."'”91”WI1NY

*E4*55E"FF#6J3%W‘RCC*4:.((z:'))))))’???

yTsuauwruy-sywsLysRuyrIu2R5,I2oa3ngecBdB
NQ% BBy'
}3}&&&}}.

scR1lc.lc1l1cl1c1lc1lcAR11ltW'c‘l1c1l1qln1l1q1lcl11qel1cl1c1l-1l-1cAlq.Il.1lc.la’.lac1lacln1qlnAlco1lockl-ql1Rc.lIclR1-qlaqEl1cRl1cal1cl.1-Alq1alqR1lc1al.l1_nl”qSl’.l_q1la1lEc1lac1lal1m.c’1lal1.l1-a.l,-al1cl1anl1cl1cl

FMT16

W
m
“
'
9
m
=
&
)
"
N
3
28d335An,53o23 R=N3ST-A83 TRAPN!R”NAMhOWNQfSOiW~“”WM”39V 7o6O8n16 BTLY m1yRm%ymnNsuwyms»
Eenas

[

l(lclqlolcl.lqlclqlqlqlolul-lclclclclllclclcl

Mrhrirhin

clclal-lqlqlclal.lclqlclnlilclqlllqlclllclclclalqlalqlcl.clal.lq

VRND W M e[e

CZRNDAO RMBO FCTNL PT1 MCROW“O)ZB-JM-‘Z 16:24:51 PAGE $-21
CROSS REFERENCE TABLE (CREF

SEQ 0307

CZRNDAQ RMBO FCT NL PT1 HACROv824 680)28-JAN~82 16:24:51 PAGE $-22
CROSS REFERENCE TABLE (CREF
=

% 13 o 13e 13O W B R B
3

-E

e g im

1
1

SEQ 0308

3-5
3-8

geePAPBUeeg

O~ MMM

Samos

TNetranikAL

5-4

]oVkolololLANXSoadLl

VO5

1%7

22-379

22-384

13-937

22-377

22-386

4=1

22-399

22-401

13-=83

1 3=:1
1 3-=9

13-:82

g 29-51

13-<48

29-97

13-<91

23-101

3-8

44-1
44-1

22-414

22~429

22-452

22-457

48-77

13-£41
48-69

o3*

2 -;33

23-123
48-81

48-82

48-85

48-86

29-115
48-79

2
48-80

5
48-83

30-48
48-84

48-58
48-87

48-€7
48-t8

4<8-68

30-232

30-236

30-239

13-:49

3-6

48-78

23-139

48-81

23-166

48-85

26-48

CZRNDAQ RM80 FCTNL PT1 MACRO &04680 28-JAN-82 16:24:51 PAGE $-23
CROSS REFERENCE TABLE (CREF v04.00
)

ILRG52
ILRGS4
ILRG
ILR

13-4

IPCKO
IPCK1
1PCK
IPC

4=
4=7534
4=7524
4=7514

IvC

4=7304
4-669#

13-93

47-324
10-24+

1;:156

Zg:S6

13-529
26-213

LBT
LF

LODEV
LS

LSC
LST
LSTRK
”H&H‘JAL

gl"fi

MDPE

SEQ 0309

4-702#
4-7024
4=702#4
4-702#4

INSERT

13-:97
30-92

13-:99
30-99

48-67

48-79

4=5514
4%

13-288
38-1

3-358
-1

23-125
41-8

4-6

28-80

31-70

7-0#
Z-Ol

1;:591
13-179
12-55*
11-59*

Zg:%
1
11-69+

31-70
1;-516
13-35

4=728F

13271

22-482

4=6718

10-117
4

13-440

47-214
13-179

13-443

twgég }; 6? 21-90

48-81

13-444

13-A92
3 _zg

13-A9%
171

1332-1

13-A99
32-154

48-69

48-7

48-71

23-127
47-1

47-30

47-31

54=79

23-62

26~54

32-95

48-82

48-83

4B-8B4

21-107 21-120 21-123 32-70

4B-B5

13-<01

13-=04 13-=11

MOL

13-317

13-362
30-145

13-323
30-146

13-4
30-1

13-<01

13-=04

13-=11

MRD

g
4

MSHELP
MSMNUL
MSUNIT
MUR

11-11
1;:38
1
4

10-98
00

13-;’5

13-289
0

13-:02

13-:68

13-;35

ngc
2 ”
MSDRVS 11:3;" 47-16#
fil
‘-280.6 13-391
MSGDRV 1347-174

2
MXF

47=74
47-284
47~
1
1

O
R e
&=7278 1 371 22-343

13-F20
3%-;“

13-F22
33-58

48-72

48-73

48-74

13:623
30-158

13-406
31-30

26-151
32-194

48B-86

48-87

48-88

13-F25
4B-58

22-198
48-59

22-199
48-60

26-161
32-205

26-162
32-206

26-167
32-210

48-75

48-76

48-77

32-75

=}NSTR 1 .6} 47
fi
2 S 13-;8: 13-:02 13-:68 13-;35
4=5494
1

13-F19
32-15

FER

WREE W

13-617

13-679

13-750

Ei"ud"%}

i
& P YN

NOTAVL
NOTPRS
NOTRM
NSA
occ
OFD
OFFSET

e i

NED

1%-691
13-A99
13-271

13-774

13873

SEQ 0310

1353 1308 334

13788

13-863

13-993

13-:59

13-<59

13-=13

13-5%%

13-793
13-899

13858 13573 1355 1138808 {24

38-81
i

29-73

21-76

13-;26

13-;92

13-a25
13-G0

30-145

30-201

32-190

32-215

48-82

48-83

15-180

26-161

R e

13-=06
30-24

30-34

32-50

13308

13-500
32-226

B 3

13-F49

19-5

20-11

27-14

B madt

NDTMSK

)
= b

CZRNDAO RM80 FCTNL PT1 HACROVX24680 28-JAN=-82 16:24:51 PAGE $-24
CROSS REFERENCE TABLE (CREF
.00
)

13-722
13->91
13-p37

13-818

30-61
48-78

1
%

4880

32-187
48-6
48-81

32-57

13-839

1 3-842

17-40

=
1 81

1
1

5 it

21-394

18-34
13=>
13-C

30-155

33-72

13-001

4£8-68

ge1T3Ry7ItER4eA9S8zeomBRAA4RE.R8AY”Rm”m3sR2g1IwRsloBp-me~AfiNal=eVmngbwe9=.mrO®oAomBM£B5-mAfR£%&*l®AgoRmSe,mRPOxhayflsmRXmetuEEAeTEeRgRtXI.SA32TASbRTmIRoIIwRSIST$Eg8.5u”722We:w
N, 0 S0
1% J

TPeO

e
=0\

T&R

4q Y

M M

MO =

L- ]AX[}4®$U 3StN -eSa"
: RN AR

i S8endes&ataOTtini®»unxRes-MLo)RSAT aYRri00Swvt\i&«tweh&&t«eNEhs®RhMR*X®eEOhMWrNXhO]ORrMWaOXNeNEAOhXNTeXhN=AAXeR>E5Ns“iNrivhOBWwM.~yo.CR8<W
o

SEQ 0311

T-O1-wN-T4LAJwAH9l"4W14R1-'g4a)H-1oPei(ReOoN=eImP2=YTSE\roI=TlEroNl=ITrVRLsele=iooslT=rLSlR-|]eOAoYlLAIoRlolRNolLW.@v.\ll

N-TNN47-417—1—1”47oLl‘“&77A&1N2471=11124=0oo—r—r—e—pie-MfJ_l.
2LMT"iRM-of%all-yDM~®To—oM2CTiOTN&3~oC-2eRERN}RBS3TNSOL5RWbSe%UdBNty&vNN%=dEbM-OeagfAdMIyiWAN3MNmHAGMI0“A.nRoT~w.A0NaI—iSieMt&RsMn.&g“MRfom«.l9Mf2Yl7B3IL"wMeaT)nl3MmAval.flTOPRMe=I9.YO1ToMINSTN6NhAdrRbR8iT%etMeMv¥OR8&=«”eIN2“O<t&M=t«MrY%R—75IfbMel(%MTeE=}m5MM9(3DAMN-1RnTALe"&p0dMT]iP§V-NNLBI]oTOIoUoM~RT@5&V«MASSOIEMBlOMfBTIEaITOMTd5LDMReilBMEMyLr«DoMBlo~m@Nyu~0w35=m-_N
~MNMAN > wN

E0NEn®EE-EERyEIDFO0RTY20NES&&IV&*cNB®®ASN£YL*4SRON&(NTX&&KS&&NE-%OEMNINMEOEESEoAN-N«~eoENr#*An£&DR]TIGBe0(OTNmEMAnLBERe=BELNOEBA¢V L-R~SWwEr“ow
UMTi nN))eywAN!AR mR& L-MR[ [YJvPr5[SoDYe‘_1'o oVNO )P0 T10S10-“TaLn-S-USThh WN aL
~N

o2¥

—

—o_

Lol

-.*Yc=wMNq<-e—o0v[]mpI\r“= L—r=-eo—lr0—= .“[§0.U4i1-]lL0.

BeR -eLo

TM~

SEQ 0312

1361+
7=18+
2-329

13->51
13-p27

13->81
13-076

>47
A34
3-£06
6-61

3->
3-A

13->80
3-p7

3-?

6% 13->73«
A33* 13-AG4k*
13-E98+

26-197
30-106

=140

JN
[

3-f

-6

3-€

13->99+
1313-F36+

3-3
3-6

22-196

3=<

26-199
30-144

13-200

CZRNDAO RM80 FCTNL PT1 MACRO04680 28-JAN-82 16:24:51 PAGE $-27

CROSS REFERENCE TABLE (CREF
RMER1]

IRES
z3
13~1

517

-1 o

1.’§§ §_

-i
1..

13-302

”;;2

iz
4 7-

RMHR

46954

m"'“

13=C15

13-C24

m'
""1u

4-690# 13-128 13-232
13-:35 13-:99 13-<01

13-350
13-=g;

;-oo

13-C14
56-16

g dug Bu B3I

%;’

iSZ 8:%:
8+ -F * 21-139

13-391

13-452
1--?

13-454
13-A74

§5

‘I-~Fe10
134

15-5

-1"

1-1”

=228

32-244

171

-218

13-518
1§-1

13-5
13—552

13-:
13-r3g

i %so i,

g. 0~ ;0 1.17.? 32-28

£
RMLAI

SEQ 0313

41 8
-82

=114

;66

13-:02

13-420

3-88

5 22

13-6%3

13-:
Tl

:
T

13-;

1-103

13-424

5-4

=52

=130

asdH] 12:‘-35% =
;53' 13335 13330« 13397« 13-200 ?;147?4: :1% 18+ ?g'? * 13-:00¢ 13-:02¢ 13-:66% 13-:68+ 13-:33
1%-.99- 13-<01* 13=-=02* =04t 13==112 13=A74* 1-A7;t 13- 52- 13-E97

m"'
- 21

RMOF
RMOFI

RMOFO

g“

RMSN]
RMSNO
RMWC
RMWC ]
RMWCO
ROA
ra8

SA8

SADMSK
SAVREG
§§o

sC1

;:8:

13-190 28-101

7-0#

33-597- gs-c

113_-2330 }fig
7-0#
13-9

13-927+

13-=

56=17
13-10*+
23-10
13=:11%
13-191
13-191

23-68
44-14

13-142

31-81

56~17

g:;n
22-3

} :§§
22-4

13-s§1
22-450

13=<17
22-51

13=<75
;

13-=22

g_'gi

33307

30-232 30-250 30-253

13-:14*

13-:81*

13=<1i3»

13-341*

;3-5 . 1 tm 1 1; * 13-D69* 13-E03

13=11
13-:17
23-23
g-u
13-:78%
13=:44%
sg-to
1-25
=10
1=

21-90

13~-:

13-845
S6=164

21-107

13-:50 13-<16
sg:h
<1o- 13-<68% 23-24

21-123

28-30

13-<74
2345

1339
56=16

13-877

13-A39

13-B88

13-C82

13-D25

13-D75

13-a79+

13-292+

13-A35+

13-B81+

13-C35

13-E05* 13-E18+ 13-ES58+ 13-FO0* 13-F75+ 2371

CZRNDAO RMSO FCTNL PT1 MACRO

CROSS REFERENCE TABLE (CREF
6-55;:
4=5
4&~587#
1

13-514
=

SC4
SCHSTS
SCOPE

SEQ 0314

v04.00 )

sC2
SC3

V04,00 28-JAN-82 16:24:51

13-F

23-5

13-762
1
1

13-811
13-p39

26-105
32-135

2663
13-490
13-267
13-E91

42-5
13-822

13-910

35518

6-134
6=-144

387

311

51-12

51-13

13-F62

33-27#

53-1

53-11

CZRNDAQ RM8O FCTNL PT1 MACRO V04.00 28-JAN-B82 16:24:51 PAGE $-29
CROSS REFERENCE TABLE (CREF v04.00 )

SEQ 0315

§egesereeezeee g

Swo07

15
12

b wad) cad

ved add el o oend wad wmh emd el mmd o aced

LA d i @ e v e e vl eed vanb coud D mch b

39-1+«
£5-1

1024+
13-266

21-90

28-103

31-83

93 5

fod
32

15-1
42-1+

0-26#
1
-1

P4y

13-479

39=1+
10-29

10-24

VIS W

Sw1
SW10

CZRNDAOQ RM80 FCTNL PT1 MACRO &06680’28-.!%02 16:26:51 PAGE S-30

CROSS REFERENCE TABLE (CREF V

SEQ 0316

'
{

CZRNDAQ RMBO FCTNL PT1 MACROvxg‘680)28°JAN°CZ 16:24:51 PAGE S-31
CROSS REFERENCE TABLE (CREF

38-1

40-1

42-1

41-118
42-1

41-124
42-1

40-1
41-126
42-1

12-60

41-22

4144

41-46

44=14

13-307

13-808

13-F34

13-F64

28-70

13433
30-175
31-70

1 2 50 88

48-77

48-78

13-<31
13-375

22-221

10-38

10-40*

41-20
41-144
42-1

42-1

UNTMSK

28 =£S5

-1

41-102

TYPOC

-<
2 >
>

SEQ@ 0317

14~
41
62-1

T-o

13-

13-412

-223
%iH
e #5
10-45

10-56

10-113

22-268
10-115

48-81

48-82

29-51

CZRNDAQ RM80 FCTNL PT1 MACRO &0‘680)28-.!"‘-82 16:24:51 PAGE M-1
CROSS REFERENCE TABLE (CREF V

4=4

1
1
1

g‘ 6~0

4~479%
561

6~0

6-0

44-1
10-24
4~47%4
4=~4714
4=~4714
4=4714
4=4714

gePe(eeeeeege@YGgOeRPGT

$SSET
$SSETM
$$SK1P
SACT1
.SAPTB
«SAPTH
SAPTY

5-1
5-1

R
k
e
i
i
l
] SASReRYR R ¥

$SCMRE
SSCMTM
$SESCA
SSNEWT

SEQ 0218

-Sgegemeongeieoe 2"5‘32 06 ~

-O&H-(,S()B~3(URN1A4D.*eq5eO.u2Nee".gin”oLnQl3Aeeld.—sHeC1].(ge5(A12.e]goAt%”gA|0NR(o62m3JE2A3g2.hL3.gEgsu7“?gAg7ReRePee7.g)(5R.!T29I.S8-ge(»e.mz4G1(ggrgR9o”Pm&cP0eG5n'O“e”7to5..5“l£RSMe-.Q[»E_B0R.NJWg.RQN0Pe"bUS~@Mo
(NT((qMPN)l)neoeele!gelPeoglKe.ogls!egglugggtlesecgglocglOooo)? Pz [- .l-lilalnlqlqlcl.l.lclal!l.lqlclal.lqlalclalcl.lclclqlqlqlqlnlclcl —e-S-)NgROeMe

eGiteRDuSBnRdRmmeskAm”m oeAk”LMwsmskmmdmN“mmAmommg.(32It3Re5
=

ERROR

vgFes

NJTST

POP

aaalal
L
[N
GMy
O
Lalaalaal

CZRNDAQ RM30 FCTNL PT1 MACRO &06680)28-.)"0-82 16:24:51 PAGE M-2
CROSS REFERENCE TABLE (CREF V

SEQ 0319

*[L4U.

j"V7c,NSs_’ RHmwNrehlrasnhehuw

»w&m&a&AaR»&R»Num&»A&uNmwwwmmwmwwwmwm:1mwww33
13-4Aj—TY-4e3.&26%&%e-R
2e1L428134oN04fR5m486“m4I34R3o,,H4OVI4C6WoS2E1MR¥1YJ1HERo1WSsRe1HTalI14EoC1.nl14sEM&cE@4sE4SW,¢44aT5L o“«.eR44Tgre6Ieo6Fb4rIn4fAm2RaB1[3Rl0oYEedTs7Td.]
3 r = N r = v= O

OO =N ~

=NOOT ~

~ gololololoLl ~

A&"S3ES4orArOoEh%RrGhbnOodheOmmehdd—seluuLuhRysGaTds—mhebigoumo2mho0int2h
=
—
A
N
O
0
N
~
N
l%flfi%vf “flfl91m.d4o%TM=b 4VRITR4AeGRo4oAoooRlooAlT7 oSoloAoleLE4loA%tY& ~L 4TPC%R
QA~~-1‘NI R ool Lt e2-“-&t
CZRNDAQ RMBO FCTNL PT1 MA caovxga680,28°JAN°02 16:264:51 PAGE M-3
CROSS REFERENCE TABLE (CREF

LJLP0]0

9
SEQ@ 0320

91TNetBA 1mumsSmRSaEmRgmDzR