Digital PDFs

AH-B007B-MC

January 1978

225 pages

Original

12MB

view download

OCR Version

10MB

view download

Document:	CZRMFB0 RM03,02 EXTENDED DRIVE TEST JAN 1978 bw
Order Number:	AH-B007B-MC
Revision:	000
Pages:	225
Original Filename:	CZRMFB0__RM03,02__EXTENDED_DRIVE_TEST__AH-B007B-MC__JAN_1978_bw.pdf

OCR Text

FICHE1OF2

MADE

INUSA

3,0

~ EXTENDED DRIVE TEST

CZRMFBO

AH-B0O07B-MC

FICHE2 OF2

MADE IN USA

BO1
00010000

CELIIIPMBBSEBLH
L

78010S

POP18 BIE N T I F IPBDRICZEMBBSEC

PRODUCT

CODE:

AC-B0068-MC

PRODUCT

NRME:

CZRMFBC RMO3-/RMO2 EXTENDED DRIVE

DARTE CRERTED:

RUGUST

MAINTRINER:

DIARGNOSTIC

AUTHOR:

(C)

1977
ENGINEERING

BLACKSTONE

1977 DIGITAL EQUIPMENT CORP.,

INFORMATION

TEST

IN THIS STATEMENT

WITHOUT NOTICE AND SHOULD NOT
COHHITHENT BY DIGITRAL EQUIPMENT
ACTUAL DISTRIBUTION OF

MAYNRRD,

IS SUBJECT

TO CHANGE

CONSTRUED RS
R
CORPORRTION.

THE SOFTWRARE DESCRIBED

IN THIS

DOCUMENT WILL BE SUBJ.CY TO TERMS RAND CONDITIONS TO
§5R§328¥?%§D ON SOME FUTURE DRTE BY CIGITAL EQUIPMENTM
DEC ASSUMES NO RESPONSIBILI

RELIABILITY OF 17S SOF TWARE
RCT SUPPLIED BY DEC.

FOR

THE

USE

MASS.

ON EQUIPMENT WHICH

THIS SOFTHRR§ 1S FURNISHED T0 PURCHASER UNDER R L
TO USE ON
R SINGLE COMPUTER SYSYEM AND CRAN BE COP

INCLUSION OF DEC'S COPYRIGHT NOTICE) ONLY FOR USE 1
g;sggr ExLEPT AS MRY OTHERWISE BE PROVIDED IN WRITIN

00010000

7?83i0¢%

St 0001

CcOl
CONTENTS

SEG 300z

RBSTRACT

REOUIREHENTS

2.
2.2
2.3

EQUIPMENT
PRELIHINQRY PROGRAMS
MEDIR

LORCING PROCEDURE
STQPTING PROCEDURE
i
STRARTING RDDRESSES

4.2
<.3

OPERATOR ACTION
PROGRQH ACTION

4.3.1

[4]

4.3.2
4.3.3

CONTROL SWITCH SELECTION

RH70 RDDRESS SELECTION
DRIVE AND PARAMETER SELECTION

JPERQTING PROCEDURE

OPERRTIONAL SWITCH SETTINGS

§.2

CONTROL SWITCH SETTINGS

ER pfiRs
E.
£.2

ERROR TYPES
ERROR RECOVERY

RESTRICTIONS

"ISCELLRNEOUS
8.1
EXECUTION TIME
e.:
STACK POINTER
g.3
TIMING TEST (TESTS
g.4
END OF TEST
PROGRAM DESCRIPTION
2-70/RM02

PRCIGPAM

DRIVER

_ISTING

MODULE

12 -

1S)

PRINTOUTS

DOl

RBSTRACT

SEG 0002

THIS PROGRAM CONTAINS A SERIES OF
“ME DISK IS CRPABLE OF PERFORMING

TESTS
SEEKS,

THAT WILL
THAT THE

VERIFY
ACCESS

THAT
TIMES

ARE WITHIN TOLERRNCS THAT THE TRACK AND ssrron ADDRESS ING
CIRCUITRY OPERATES PROPER
EY AND THAT THE DATR STORAGE AND

REQUIREMENTS

RETRIEVAL CRPABILITIES ARE

EQUIPMENT
POP-11

FUNCTIONING.

PROCESSOR

16K MEMORY

TELETYPE
PROGRAM LORDING DEVICE
KWil-L OR KWll-P (THE KW1ll-P
fu

RH70

WITH

8 RMO3 DISK

IS REQUIRED FOR

DRIVES

TIMING

TESTS)

PREL IMINRRY PROGRAMS
RMO3,RMO2 DISKLESS
RMO3,RMO2

CONTROLLER

FUNCTIONAL

TEST

CZRMJB
CZRM(CB

RMO3,RMO2 FNCTIONAL TEST 1]

CZRMDB
CZRMEB

RMO3,RMGZ FUNCTIONAL TEST III
W

THE

MEDIAR
THE

PROGRAM REQUIRES

THAT

EACH

DRIVE

TQO BE

TESTED

HRS_R FORHQTTED

CISK PACK.
THE PARCK MARY BE FORMATTED IN EITHER 16-BIT OR 18-BIT
MODE, DEPENDING ON THE TESTING REQUIREMENTS.
NOTE THAT THE PROGRAM

gé%ksNOT TEST
A MIXTURE OF DRIVES WITH BOTH lE AND 18 BIT MODE

LOADING PROCEDURE
THE

PROGRAM MAY BE LOADEDC FROM PAPER

TAPE

USING

THE

RUN ON
R PROCESSOR WITH

16K,

ARBSOLUTE

LORDER

OR IT MAY BE LORDED FROM THE APPROPRIATE °XXDP' MEDIR USING THE
ASSOCAITED LOADER.
THE PROGRQH MAY BE INCLUDED IN AN_’XXDP’ CHAIN.
IF

THE PROGRAM

IS BEING

LOADER WILL NOT' BE PRESERVED.

WITH 20K OR MORE TO PRESERVE THE °'xXXDP’ LOADER.
WIL. BE PRESERVED IN A 16K SYSTEM, HOWEVER.

THRYING PRCGCEDURE

THE

°‘XXDP

THE PROGRAM MUST BE kUN ON R SYgTEH
THE

'ABSOLUTE'

LORDER

[

EOL

STRRTING RDDRESSES

200
204
cio
2lv

SEG 00CH4

NORMAL
STARTING ADDRESS
SELECT
OPERARTING PRARAMETERS
SELECT RH?0 RODRESSES
COMBINRTION OF 204 RAND 210

NCTE:
STARTING RDDRESSES 210 AND 214 ARE AVAILABLE WHEN THE
PROGRAM IS INITIALLY STARTED; THESE STARTING RADDRESSES ARE

TREATED RS ADDRESSES 200 OR 204 RESPECTIVELY ON RESTARTS.

OPERATOR ACTION
Wwhu-

LOAD PROGRAM INTO MEMORY (SEE SECTION 3.)
LOAD A FORMARTTED PACK INTO DRIVE(S) TC BE TESTED

SN e

BRING DRIVE(S) TO ONLINE STRTE, WRITE ENRBLED,
AND LOCKED ON_PORT.
_
LOAD _ADDRESS 200
SET SWITCHES (SEE SECTION 5.)
FRESS START.
THE PROGRAM WILL TYPEOUT THE STATUS OF THE_DRIVES ATTACHEC

THE SELECTED MASSBUS SUBSYSTEM.

TO INHIBIT THIS TYPEQUT,

DO NGT

RESTART THE PROGRAM FROM ANY OF THE STARTING ADDRESSES; INSTERD
TYPE A 'CONTROL C' ON THE KEYBOARD TO RETURN THE PROGRAM TO
ty

COMMAND ENTRY MODE
.
PROGRAM ACTION

IN AN EFFORT

TO RLLOW CONVERSATION WITH A PROGRAM FOR
AND PRRAMETERS

NCTEL1:

IN ALL EXAMPLES BRACKETS
NOT TYPED BY THE USER.

USED

NCTE2:

THE CARRRIAGE RETURN TYPED BY THE USER IS INDICARTED BY
‘CR> AND WILL BE ECHOED RS A 'CARRIAGE RETURN-LINE FEED".

CRy

RRE

FOR

THE

PURPOSE OF CONTROLLING ITS OPERATION
CONSTRUCTIONS HAVE BEEN RDOPTED.

FOLLOWING

CLRRITY AND

ARE

PERIOD

A STATEMENT TERMINATOR:

END OF A LINE

WHEN TYPED AT

(LEGARL ON ALL LINES)

THE

IT TELLS

THE PARAMETER STRING INTERPRETER (PSI) THIS
THE END OF CHANGES TO THE CURRENT PARAMETER
STRING

“..

‘CR,

PERIOD PERIOD
THE 'PERIOD _PERIOD’ TERMINATOR IS TYPED TO INDICATE
THE END OF TEST PARAMETER MODIFICARTION AND TO SIGNAL
THE START OF TEST EXECUTION.

<CR,

coMMR
-

THE COMMA IS USED AS R SEPPRATOR BETWEEN DRIVE NUMBERS
AND TEST NUMBERS.

ELASH
A MODIFICARTION

INDICATOR:

IF A SLASH FOLLOWS A TEST

NUMBER,

THE PROGRAM WILL

MODIFICRTION.
‘o

FO1

OPEN THAT TEST FOR PARAMETER

CONTROL-U

DELETE _THE PRESENT INPUT STRING AND STRRT R NEW
LINE. TYPEC BY DEPRESSING THE ”CONTROL KEY*
(CTRL)

AND

THEN STRIKING

THE

“u"

RuUBOUT

DELETE THE LAST CHARACTER FROM THE
TYPED BY

STRIKING

THE

“RUBOUTTM

BE ECHOED BY R_BACKSLASH
CHARACTER DELETED.

(\}

KEY.

INPUT STRING.
WHICH

WILL

FOLLOWED BY THE

CONTROL SWITCH SELECTION
STARTING THE PROGRAM AT ANY OF THE POSSIBLE STRRTING ADORESSES
WITH SW<07>=]1 WILL RESULT I ENTERING THE “CONTROL SWITCH
SETTINGTM MODE. THUS, QLLONING THE OPERARTOR 70 SPECIFY THE
DESIRED STATE OF "C.SWR
CONTROL

SWITCH

EXAMFLE

SET SW«Q7>=0
C.SWR=000000
EXAMPLE

SELECTION

EXAMP.ES:

400..

4V]

SET SW«07>=0
C.SWR=000090 - 220.
C.SWR=000000 - e20..
RH70 ADDRESS

SELECTION

STARTING THE PROGRAM RT 200 WILL RESULT IN RUTOMATIC
SELECT OF THE DEFAULT VALUES OF BUS RADDRESS (RMCS1),
YECTOR RDDRESS, AND PRIORITY LEVEL OF THE RH70.

IF _THE DEFAULT'VAULE OF THE BUS ADDRESS DOES NOT RESPOND
(TIMES

OUT)

WHEN ADDRESSED,

AN ERROR

IS A MONITOR

RETURN TO

REPORTED.

figIERBEHggEQQOR 1S EPORTEA ONE OF TWO COURSES OF RCTICON
1.

THERE

IF THERE

THE MONITOR

ISN'T R MONITOR -- ASK FOR NEW RDDRESSES

STARTING THE PROGRAM AT 210 OR 214 ALLOWS THAE OPERRTOR
10 _CHANGE THE ADORESS OF THE RH70 AND THE VECTO
HODRESS.
STARTING ADDRESSES 210(8) AND 2148)
ARE

TREATED

QDDRESSES

200(8)

FHDORESS SELECTICN EXAMPLES

E/aMPLE

204%(8)

RESPECTIVELY.

SEG J00C

GOl
RMCE1=176700

EXAMPLE

177200.

SEG 000t

RMCS1=176700_~/ 176300(CR'
RHVEC=254 - 2B0<CR
RHPRIG=S / &
EXAMPLE

RMCS1=176700<CR>
RHVEC=254 - 280.
EXAMPLE

#Y4

RH?0/RMO3 FQILED
RMCS]1
ERR PC

176300

XXXXXX

RMCS1=176300

EXAMPLE

176700.

RMCS1=176700 -~
RHVEC=254<CR>
RHPRIO=5<CR>
RMCS1=176300.

1776 \67\6300«CR>

ORIVE AND PRRAMETER SELECTION
STARTING T4
SELECTION Oi

STRRTING
TC

[

AND

(¥}

TO RESPOND TO RDDRESSING

SEIECT

PROGRAM AT 200 OR 210 WILL RESULT IN QUTOHRTIC
THE DRIVES TO TEST AND THE TESTS TO RUN

THE PROGRAM AT 204 OR 214 ALLOWS
THE

DRIVE(S)

THE PRRAMETERS TQ USE.

TESTED,

THE

THE OPERATOR

TESTS

THE

PSI.

OFIVE AND PARAMETER SELECTION DESCRIPTION
THE

FOLLOWING

IS A

TRBLE

TERMS

USED BY

"R
“FC*
"LC”

REPEATS (ITERATIONS)
FIRST CYLINDER RDORESS
LAST CYLINDER ADDRESS

“FT

FIRST

TRACK RDDRESS

“FS*

FIRST

SECTOR QODRESS

“PRTTM
“WOXTM

PATTERN (USED FOR DRTR TEST)
WORD OF PRTTERN O WHERE X IS

“Ic"
“LTTM
“I7”
*LS"

INCREMENT CYL INDER

LAST TRACK RDDRESS
INCREMENT TRACK

LAST SECTOR RDDRESS

#°S

ALL SEEK

75"

ALL RODRESS

T
£°0”
#7E”

TESTS

ALL

TIMING

THE
THE

DATA TEST
EXERCISER

(TESTS O -

TESTS

(TESTS

(TEST
(TEST

200
21,

10)

1S3

i7)

lb&

EXECUTED,

& USED BY THE OPERATOR TO SELECT TEST GROUPS

NCTE

RLL NUMBERS WILL BE IN DECIMAL EXCEPT FOR THE PATTERN
(PRT) AND WORDS (WDX) SELECTION.
“PRTTM WILL BE SELECTED

BY A BIT
SPECIRAL

(I.E.

0O01000(B)=PATTERN 9)

IN OCTAL.

CRSES OF CONTROL CHARRACTERS

IS TYPED NH*L

TEST ;

AR E TO Bt MODIFIE
cTheR rECHe (N 1o
(<- )

WHEN

AND "WDX*" WILL BE

THE

PROGRAM

?PE

SR HOQ%FICRTION

-12e?ECun ?LLBE UNCHANGED.
MM

IS STARTED FROM LOCATION 200 OR 210,

12-20 WILL BE RUN USING ALL AVRILABLE,

TESTS

ONLINE DRIVE

0-10

THE OPERATOR

SESTES
ISRBREEEICTIE SHIVER TOIBE TERlED, TUE, TEele 10, B PP oS,
Ev TYEIN S ?ROL g; 33 8? STER??NG THE ggOGRSH FROME?THER
~OCATION DOH

THE

PROGRAM

OR 214.

WILL

THEN

RESPOND

WITH:

ASSUME

THAT

_THE

REQUEST

TEST

NUMBERS.

DRIVE(S)=
THE

FOLLOH%NG
EXAMP

THE

PROGRAM WILL

TRANSACTION APPERRS

OPERATOR

_TES

ORIVE #3 USING TESTS 2 THRU 7 AND TEST 11 AND DOES NOT SESIRE 10 CHQNGE
THE PRARAMETERS (INITIAL CYLINDER ADDRESS,
FINAL CYLINDER ADORESS, ETC.
THE USER WOULD TYPE '3<CR>' WHICH SAYS 'Y¥HIS 1S THE END OF DRIVE ENTPY':
THEN

RS FOLLOWS:

DRIVE(S)=3<CR>
TEST=

THE

OPERARTOR

MAY

NOW

ENTER

DESIRED

TEST

NUHBERS

THE

HE WANTS TESTS 2 THRU 7 AND TEST 11 SO HE TYPES 2-7¢,>

EXAMPLE

(THE 'COMMA°

SEPARATES ENTRIES)
DCR> ('PERIOD’ "CARRIAGE RE?URN' END OF CHANGES, srhnr TEST EXECUTION.
IT NOW LOOKS LIKE THIS
DRIVE(S) 3 CR»

TEST=2-7,11.«CR>

IN THE NEXT EXQHPLE

IS ASSUMED THRT THE OPERATOR WISHES TC

TEST

ORIVE
4 _AND YO UN teSte 1 AfD 3 THRU 11, MODIFYING THE PARAMETERS

FORF

TESTS 3 AND

THE

TRANSACTION WOULD BE RS FOLLOWS:

DRIVE (Si=4<CR,
TEST=
THE OPERATOR NOW ENTERS THE
SIVEM BELOM:

TEST NUMBERS.

ORIVE(S,=4/CR)
TEST=1,3/4-7,10/11CR/

THE

TRANSACTION

SEQ 0007

I01
NOTICE

THIS

SELECT

sn»s

TESTS
4

SE L ECT TE ST
o NTINUE <,

11, END OF INPUT <.,

CONTINUE<«,>;

SELECT TEST
3, OPEN</,;

SELECT Tssf {0] OPEN</>; SELECT TEST

THE PROGRAM SCANS THE TEST NUMBER INPUT AND DETERMINES THAT THE
PARAMETERS FOR TEST 3 AND TEST 10 ARE TO BE CHANGED.
THE OTHER
TESTS

WILL

NOT

«THE

ENTIRE

ALTERED.

TRANSACTION

IS REPERTED FOR

CLRRITY)

DRIVE(S)=4<CR>
TEST=1,3/4-7,10-11<CR>
TEST

R=X /

;WHERE X

ITERATION

YHE NEW VALUE FOR 'R’ MAY BE ENTERED. TERMINATING THE ENTRY WITH
A _«.> (PERIOD) WILL TERMINATE THE CHANGES FOR THIS TEST; TYPING A

CR3 OR TERMINATING THE ENTRY WITH A <CR> WILL CRUSE THE PROGRAM

0 MOVE

THE NEAT

PARAMETER.

DRIVE(S)=H<«CR>
TEST=1,3/4-7,10/11<CR>
TEST 3

R=1 - «CR>
FC=N /

THE

;00 NOT ALTER-BUT CONTINUE
'WHERE 'N’ IS FIRST CYLINDER RDDRESS

OPERATOR DOES NOT

WISH TO CHANGE

°‘FC',

THE FOLLOWING OCCURS:

DRIVE(S)=4<CR>
TEST=1,3/4-7,10/11. <CR>
TEST

R=1

<«CR>

;00 NOT ALTER THIS LINE BUT CONTINUE

[E:gaé «CR>
=

THE

iDO NOT ALTER THIS LINE BUT CONTINUE

PROGRAM RESPONDS WITH

THME

PREVIOUSLY

ASSIGNED

PARAMETER FOR

CYLINDER RDDRESS IN THIS CRSE USING 822 RS THE EXAMPLE.
THIS
WHRT THE OPERATOR INTENDED TO MODIFY AND IS WHY TEST 3 WR3
OPENED.
TO CHQNGE THE VALUE TO '20°’, THE NEW VALUE IS TYPED

FOLLOWED
THE

BY
A

TOTAL

'PERIOD’

TRANSACTION

TERMINARTOR

AND

(<.,»‘CR>).

RESPONSE:

DRIVE(S)=4<CR>
TEST=1,3/4-7, 10/11<CR/
TEST'3
R=1 7 ‘CR,
FC=0 7 <«CR>
LC= 822 - 20.«CR>
TEST 10
R=l 7

THE PROGRAM HAS LOADED
PROGRAM IS WARITING FOR

DRIVE(S)=4<CR/

TEST 3 WITH_1TS
CHANGES TO TEST

TEST=],3/4-7,10/11CF>

TecT'3

Fz1"/

<CR,

NEW PARAMETERS AND
10'S PRARAMETERS.

THE

LRAST

SESG 20Ce

FC=0

LC= 822 +

TEST 10
R=1 7/

JO1

«CR»

20.«CR»

SEG J0C9

10.<CR>

THE OPERATOR TYPES THE NEW VALUE (10)
WITH P 'PERIOD' 'CRRRIARGE RETURN'.
THE
THE

AND TERMINRTES THE ENTRY

PROGRAM NOW LOADS TEST 10 WITH THE NEW PRRAMETERS (TEST
PREVIOUSLY RSSIGNED PRRAMETERS) AND RESPONDS WITH:

RETRINS

DRIVE(S)=
THE

PROGRAM HAS LOOPED BRCK

CHANGES.

THRT

IS TO SAY,

THE BEGINNING LOOKING FOR

RFTER

XD—XO

ERIOD PERIOQD",
ORE
A
THE ENTRY FOR DRIVE SELEC T ON,

SINCE THE USER DID NOT END THE CONVERSATION MODE WITH A

(,><CR> WILL CRUSE THE YEST MESSAGE TO BE REPERTED AND F U THER

CHANGES CRAN BE MADE. HOWEVER, AT SOME POINT IN ORDER TO E ECUTE
THE PROGRAM, R 'PERIOCD PERIOD' MUST BE TYPED.
IF R SINGLE ’PERIOD’ IS TYPED WHILE DRIVE OR TEST NUMBERS RREFBEING
ENTERED, THE PROGRAM WILL START EXECUTION IMMEDIARTELY.
R 'PERIOD
PERIOD' MUST BE TYPED BEFORE THE
CHANGE MODE TO GO 7O EXECUTION.

PROGRAM WILL

EXIT

TEST

PRRAMETER

+.3.3.2 ODRIVE AND PARAMETER SELECTION EXRMPLES

EXAMPLE

DRIVE=4. (CR>

;SELECT URIVE s4, TERMINARTE AND
;BEGIN EXECUTION USING PREVIOUSLY RSSIGNED
; PRRAMETERS

EXAMPLE

DRIVE=0<CR:

TEST=1-5.CR>

:SELECT DRIVE 80 AND MAKE CHANGES *,*

SRUN TEST 1 THRU S ONLY, USE GEFAuL}
:PRRAMETERS AND TERMINRYE AND EXECUTE."

EXAMPLE 83
=2«CR~

1-2,6/?/10/<CR>

1 7 «CR»
C=0 7 10.<«CR>

;SFLECTY DRIVE

22 RAND MAKE CHANGES TM, *

;TEST

10 FOR CHANGES

'RUN_TEST 1-S WITH DEFAULT PARAMETERS, OPEN
6,7 AND

;LERVE
"R* RS IS AND MOVE TO NEXT PARAMETER
'SETTEE$'6CYLINDER ADDRESS TO 10, END CHR.{GES

o=
—-—m

RATIONS,

MOVE

TO NEXT PRRAMETER

CHANGE *FC' CYLINDER ADDRESS BUT CONTINUE
C_1S STILL PENDING AND WILL BE
IN ITS PRESENT PRRAMETERS.

EXQMFPLE

KO1

EXAMPLE

SES 0010

;SELECT DRIVE %0 AND MAKE CHANGES

DRIVE=0<CR>
TEST=S,E. «CR®

{RUN ALL SEEK TESTS AND THE EXERCISER

«5

DRIVE=1<CR>

;RUN ALL SEEK _TESTS (OPEN FOR CHANGES) AND

TEST=S/D(CR>
TEST O

«CR>
10..<«CR>

R=10
FC=0

i THE DATA TEST (NITH DEFARULT PRRAMETERS).
iRUN WITH 10 _ITERATIONS
; CHANGE FIRST CYLINDER RDDRESS
QND START EXECUTION

TESTS 1 - 10 WILL RETAIN THEIR PREVIOUSLY

QSSIGNED PRRQHETERS
EXAMPLE

DFIVE=1<CR>

TEST=S/<CR>
TEST O

R=:0 ,

TEST

R=100 R=1

;OPEN THE SEEK TESTS
100. (CR>
1000. CR>

10<«CR>

FC=0 SO(CP;
L$=gaa Sl.<«CR>

(TESTS 0-10)

;CHANGE TO 100 ITERATIONS,

TO TO THE NEXT TEST

;CHANGE °R’

TO 1000 ITERRTIONS,

:CHANGE 'R’

TO 10 Irsnmxons

*CHANGE °'FC’ 10 SO,

MOVE TO NEXT TEST

GO TO NEXT PARAMETER

NEXT P

ETER

:CHANGE 'LC’ TO 81, co ro ms NEXT resr
;MOVE TO NEXT TEST

;USE TEST 4'S PARAMETERS AND START PROGRAM EXECUTION

TEST=D. <CR»
TEST

=32 / 4<CR>

PQT 177277 7

EXAMPLE

;SELECT AND OPEN THE DRTA TEST
;D0 1000 ITERATION OF TESTY PRTTERN
;88 ON CYLINDER 10, TRACK 2, SECTOR 4

400. .‘CR>

;RUN WITH PARTTERN

DRIVE=1¢CR~

TEST=D/<CR>
TEST 20

r=1000 7 “CR»
FC=10 7 <CR/

;USE THE SAME PQRQHEYERS AS IN EXAMPLE

:87, BUT ALSO SPECIFY
A DATA PATTERN (PAT #0).

LO1

&Y
Yezh0,/ (CR)
=

SEG 001!

FT=2

LT=2 7

<(CR»

IT=1 7 <CR>

FS=4 /
LS=%

(CR»

PAT=000400 / 401<CR>

;RUN WITH PRTTERNS oa a so (0=OPERATOR INPUT)

WD1=165555 / 126252¢CR> ;FIRST WORD OF PATTERN O
WD2=133333 / §2535.. (CR>' sscouo WORD OF PQTTERN 0
:<..> SYART EXECUTION

EXAMPLE

DRIVE=0,1,4<CR>

:TEST DRIVES 0,1,

TEST=0-5/(CR>
TesT O
R=10
FC=0

~
-

:CHANGE TEST S

«CR>
<«CR>

LC=822 - 1..<CR>

AND 4 IN SEQUENCE

s CHANGE LAST CYLINDER FROM 822 T0 |

:START PROGRAM EXECUTICN.

OPERRTIONAL SWITCH SETTINGS

WITH SW<15:0>=0 THE PROGRRH WILL PRINT OUT ON
ERRORS AND CONTINUE IN TEST
THE

SWITCH

SW15> =]

SuWl4>=1

SETTINGS ARE:

HALT ON ERROR

LOOP ON TEST

SW<13:=1...INHIBIT ERROR TYPEOQUTS
TEST NUMBER FOR ERCH TEST
SWdler=1...TYPE O?T
SW<all>=1...INHIBIT
I7 ERRTIO S
SWl0,=1.,.RING BELL ON
SWD9>=1...LO0P ON ERROR

SW0B>=1...PRINT ERROR MESSAGE ON LINE PRINTER
SW<«07?>=1...RERD CONTROL
ITCH SETTINGS FROM TTY
SWOB>=1...INHIBIT TIME
REPORTS (TESTS 1£-15)

SW<«QS>=1...REPORT OSE $RROR PER SECTOR (TESTS 16 8 17)

SlQ4>=1...INHIBIT
} ES (TEST 29)
SW03,=1. .INHIBIT WRITE CHECKS (TEST 20)

SWe02>=1...INHIBIT READ AND SOF TWARE COMPARES (TEST 20)
SW«Di>=]...INHIBIT SOF TWARE COMPRRES (TEST
2Q)
SW<B0>=1...PERFORM READ AFTER WRITE CHECK ERROR (TEST 20)

IF THE PROGRAM IS

ING RUN ON R SWITCHLESS PROCESSOR

(I.E.

THE
PROGRAM WILL DETERMINE THAT THE
HARDWARE SWITCH REGISTER
NOT PRESENT AND WILL USE A 'SOFTWARE' SWITCH REGISTER.
THE

AN 11/34:
IS

*SOF TWARE® SWITCH REGISTER IS LOCATED AT LOCATION 176 (B8).
THE
SETTINGS OF THE ’'SOFTWARE' SWITCHES
RR% CONTROLLED_ THROUGH A KEYBOARD

ROJUTINE WHICH IS CALLED BY TYPING
NTROL G’.
THE PROGRAM WILL
RECOGNIZE THE ‘CONTROL G' AT ANT
TIME EXCEPT WHEN THE PRGGRAM
IS AT & HIGHER PRIORITY PROCESSIN AN RMO3 INTERRJPT.
THE

‘SOFTWARE®

THE

SWITCH VALUES ARE ENTERED RS AN OCTAL NUMBER

PROMPT FROM

THE SWITCH ENTRY ROUTINE:

NEW =’

= NNNNNN
'SWR

THE ENTIRE SWITCH REGISTER

EACH TIME sgércu
serrxuc nng ENT%RED

Inqcs nusr

MOl

IN RESPONSE

ENTERED.

LG ING

*CONTR ? &
DURING SWITCH ENTRY.

2EROS RRE NOT REQUIRED.

BE USED TO CORRECT TYPING ERR

ON PROCESSORS WITH HRRDHRRE SUITCH REGISTERS,

THE

éRUBOUT'

'SOFTWARE’

SWITCH

HE PROGRAM FINDS ALL 16 SNITCHES IN THE

;§5é3§§§éé;ggc1g#tnsgfigc¥flgs3&8c§ou§§gso NekYetb bedve ' oult®
CONTROL SWITCH SETTINGS
Tt

CONTROL

SWITCH SETTINGS

SRERAT
H4LL
T

NTER

ENTERED

THROUGH

THE

KEYBORRD.

E
SENT CO EN S OF THE CONTROL SH H REGISTER

SKITCH SETTI

(C. SHR) QND WRIT
STRING MUST CON:IST OF

AND
R CARRIAGE
THE

RRE

TING TO BE INPUT. THE INPUT
TO & ObTQL DIGITS, TWO PERIODS (..),

RETURN.

C.SKR SETTINGS ARE:

C.SWRC1S>=0.
.. WRITE PACK BEFORE TESTING (TESTIE)
=i.. INHIBIT WRITE PRCK BEFORE TESTING (TEST!E)
C.5WR<I4>=0. N0 STALL
BETWEEN DRIVE FUNCTIONS

=1--.STAL

C.SURC13.20.
.

)

=1...0

C.SWR<12,20.
.

=1. .

C.SWR<08,=9.

BFTER

[USESPECIEIC

EVERY DRIVE

STALL TIMES

STALL

TIMES

NO_INCREMENTING STALLS

PERFORM

o WITH
KS

C.SWR<07>=0.
. .00 READ MEADER AND

é...

C.5ui<06=C

FUNCTION

IN TEST4

MENTING STALLS TN TESTY

00 JHPLY
i...D0
EXPL

EXPLICIT

160 HE

DATA TRANSFERS
F
DATA TRANSFERS

COMMANDS

TESTS

IN TESTS 0-6

0-6

C.SWR<DS>=G.
. .ALLOW SOF TWARE TIMEOUTS(EMABLE WRTCHCOG TIMER)
=1.. INHIBIT SOFTMARE TIMEOUT3(DISABLE WATCHOGG TIMER;
C.SkP20>
=011
IOPERATE
TN 22
SECTOR (16 BIT) MODE
=1.. OPERATE
IN 20
SECTOR (13
SIT) MODE
THE

DEFSULT

PEFER

COMDITION

4.3.1

FOR C.SWR

C.SWR<«15:00>=0.

SELECTION

ERRQORS
THERE

ARE

ANUMBER

W-HEN A ERFOR

ERRORS

THAT

IS ENCOUNTEREC,

THE

CAN

OCCUR_IN

CALL

THE

THIS

PROGRAM.

ERROR ROUTINE

AND

SEG 0Ci2

1S MADE AND IF SW<13>

IS NOT SET,

¥SET?SLEEE?EGHILL BE TYPED.
1.

2.
3

NO1

AN ERROR MESSAGE PERTRINING

EACH ERROR TYPEOUT WILL CONTAIN

AN _ERROR MESSRGE

A DARTA HERDER

A DATA STRING

REFER TO THE FOLLOWING SECTION FOR THE DIFFERENT ERRORS
THAT

CAN OCCUR.

ERROR TYPES

THE ERRORS THRT OCCUR IN THIS PROGRAM FALL
(3,

INTQ THREE

CRTEGORIES CEFINED AND EXPLAINED RS FOLLOWS:

CRIVER ERROR
THESE ERRORS WILL BE DETECTED BY THE RH70/RMO3 DRIVER.
THERE ARE TWO CLASSES OF DRIVER ERRORS; THOSE THAT

CAN NOT BE IDENTIFIED IN R MANNER THAT RALLOWS THE
INFORMARTION TO BE RETURNED TO A _“DATR PRARAMETER sLOCK"
(DPB)

AND

THOSE

THAT

CAN.

THE

FIRST

CLASS WILL

REPORTED BY ERROR CALLS (EMT’'S) 1-5 WITHIN THE DRIVER.
THE SECOND CLRSS WILL PASS THE ERROR CODES TO THE
STATUS/ERROR WORD (DPB+1&: OF THE PROPER DPB.
NON-FARTAL ERRORS

THESE ERRORS WILL

BE DUE

TO “DISKTM

OR “DRTATM FRILJRES

WHICH WILL BE REPORTED A5 THEY OCCUR.
RFTER REPORTIN G
THE ERROR THE PROGRAM WILL CONTINUE TESTING.
[LN

FATAL

ERRORS

THIS

TYPE

THIS

ERROR

OF ERROR

OF ERROR THAT

wlilL

THE

RESULT

ANY

KIND

INHIBITS THE PROGRAM FROM TESTING THE DISK.

WILL

REPORTED

WHEN

OCCURS,

THEN

WILL ABORT THE TEST AND GO TO THE END UF PROGRAHM.

THE

PROGRAM

ERROR RECOVERY
PRETEST ERROR

NON-FRTAL

ERROR

WHEN

TYPE

THE

| €¢]

WHEN THIS TYPE OF ERROR OCCURS IT WILL BE REFORTED.
THEN DEFENDING
CN HOW THE PROGRAM WAS STARTED IT WILL ASK FOR THE DRIVES RND
RDDRESSES FOR TESTING OR RETURN TO MONITOR.

THIS

PROGRAM

FATAL

OF ERROR OCCLRS

WILL

CONTINUE

TEST.

WILL

REPORTED AND

ERROR

WHEN THIS TYPE OF ERROR OCCURS IT WILL _BE REPGRTED.
THE
PROGRAM WILL ABORT THE TEST AND GC TO THE END OF PROGRRM.

SEG 0012

SEQ 3014

RESTRICTIONS
-

THE PROGRAN WiIlLL TEST THE DRIVES IN EITHER 16 BIT MOOE OR IN 18
BIT MODE DEPENDING ON THE SETTING OF °'S.SWR«DQ>'.
IF ’'C.SWR<«QD>°’
IS 0, ALL OF THE DR{VES WILL
TESTED IN 16 BIT MODE; IF 'C.SWR<QO>
IS 1,
ALL OF THE DRIVES WILL
TESTED IN 18 BIT MODE.
THE PROGPAM

HRS MO PROVISIONS FOR TEST%NG DRIVES WITH INTERMIXED PACKS OR TESTING
BOTH

16 BIT MODE AND

THE PROGRAM

18 BIT

MODE DRIVES ON THE SAME SYSTEM.

IS STRRTED, PROPERLY FORMATYED PACKS MUST BE MOUNTED

EXECUTION TIME

[

MISCELLANEOUS

ON THE ORIVES WHICH WILL BE TeSTED.
PRGPERLY FORMATTED PACK.
THE FORMRY
BY THE PROGRRM.

THE PROGRAM RASSUMES R
OF THE PACK IS NOT ALTERED

THE PROGRAM REQU IRES APPROXIMATELY 22 MINUTES YO MAKE
ONE PRSS PER DRI VE JSING RN 11/70 CPU.
_THIS RSSUMES THE
DEFAULT TEST SEQ UENCE (TESTS 0-10, 12-21) AND DEFRULT TEST

PARAMETERS.

STACK POINTER

THE

STRCK

TIMING

POINTER

YESTS

IS-INITIALLY

(TESTS

12-15)

SET

1100.

PRINTOUTS

AT THE COMPLETION OF ERCH OF
MINIMOM SEEK,
MAXIMUM SEEK

TIMING TESTS THE TIME OF
THE AVERAGE OF ALL OF THE

THE

SEEKS Psaroaizo
TYPED bu
THE TTY. THE NUMBER OF sesxs THAT
TIMES BELOW THE
M
MUM W LLBET
snrt LINE RS T

;ns AL ou»:o WILL BE TYPED
O
HE NUMBER BOVE THE
Hesaneunsnsmc MAX IMUM

TIMING TOLERANCES
[

[

HE TomL
e OF SEEKS PERFORMEC WILL BE ON THE

TEST

-- ROTATIONAL

HZ
MINIMUM=16260 US
MAXIMUM=]
7300 US
NOMINARL=.6670 US

S0 HZ

MINIMUM=!

SPEED

TIMES

TEST

13 --

ONE CYLINDER SEEF

TIMES

SEQ OClLS

MAX IMUM=8000 US

NOMINRL=6000 US

TEST

-- ACCESS TIME MEASUREMENT

MAXIMUM=32000 US
NOMINAL =30000 UuS
4.

TEST

MAXIMUM SEEK

TIMES

[ 8V]

[(¢]

MAXIMUM=57000 US
NOMINAL =55000 US
TIMING

TESTS

EXAMPLE

PRINTOUT

EXARMPLES

ROTATIONAL SPEED TIMES
MINZ16670 US
MAX=16690 US
AVG=16680 US
10 SEEKS

ONE CYLINDER SEEK
*

TIMED

TIMES

FORWARD

MIN=53S0 US
MAxX=6920 US
AVG=5550 US

822

SEEKS

TIMED

MIN=5140 US
MAX=5360 US
AVG=S430 US

822

SEEKS

TIMED

+ REVERSE

ACCESS
+

TIME MEASUREMENTS

FORWARD

MIN=27770 Ug

AYG=28230 US

128 SEEKS

TIMED

AVG=28220 US

128

SEEKS

TIMED

MAXIMUM SEEK

TIMES

(28 SEEKS

TIMED

128

TIMEC

FORWARD

MIN=56990 US
MAX=57980 US

AV6=S7010 US
* REVER SE

MIN=55120 US
MAxX=E57650 US
AYG=SB340 US

E/AMP_E

coe

SEEKS

ROTATIONAL SPEED
MIN=16670 US
MAX=16690 US
AVG=16680 US

D02

TIMES

SEEKS

0?€ CYLINDER SEEK

SEG JCilE
TIMED

TIMES

3948US 3 RBOVE THE MAXIMUM OF 8000 US

vn":

RVGo5830 US
SE

822 SEEKS TIMED

MIN=S040 US
MRAX=5970 US

AVG=S330 US 822 SEEKS TIMED

ACCESS TIME MERSURMENTS
* FORWARD
MIN=29730 US
MAX=32620 US
73 RABOVE THE MRAXIMUM
QVG=30322£US
128 SEEKS TIMED
MAX=32230 US
AVG=32800 US

THE MAXIMUM OF
TIMED

32000

128 ABOVE
QVGRECEEgEUS
128 SEEKS

THE MAXIMUM OF
"IMED

S?000

MIN=57050 US
MAX=S7650 US
AVG=S7210 US

THE MAXIMUM OF
TIMED

S7000

SEEK

* FORMWARD
MIN=57S510 US
MAX=57240 US

END OF

TIMES

128 RBC/E
128 SEERS

TEST

WITH ALL

SWITCHES

PROGRAM

DESCRIPTION

TYPEC AT THE
TrPEOUT WILL

32000 JS

RBOVE
SEEKS

MAXIMUM

128
128

THIS

————

—————

PROGRAM

YESTS 0-7 8

ON A 0"

COMPLETION
OCCUR WHEN

FROM THE HERDER,

“END

PRSSTM

MESSAGE

NUMBERED

0-22

WILL

AR DRIVE AND THE "ENC
HRVE BEEN TESTED.

TESTTM

——

CONTRINS

OF TESTING
ALL DRIVES

NINTEEN

WILL READ

THE

TESTS

CYLINDER.

TRQCK

OCTAL.

AND SECTOR

TNFGmiATION

USING A “RERD HERDER AND DARYAR” CON”nnU, AND

THEN CHECK THE tnronnavron FOR VALIDITY, THUS INSURING

THE SEEK OPERATION FUNCTIONS PROPERLY. TESTS 12-15 WILL nensuns
ED,

THE ONE CYLINDER SCEK,

THE ACCESS TIME,

EEK' TINES TO ENSURE THEY QRE ALL WITHIN TWF

LOWED. TEST 16 AND 17
ENSURES THE
SECTOR AND
i
cxncuxrnv
WORKS PROPERLY. TEST 20 VERIFIES
ggngfigv 21

AGE AND RETRIEVAL

CRPABILITIES ARE

WILL STRESS AND CHECK

FUNCTIONQL.

THE READ/WRITE AND SERVO

EQ2
THE

PROGRAM

THE

LOWEST

WILL

START

IDENTIFING

ITSELF

DRIVES THAT ARE AVAILABLE FOR TESTING.
NUMBERICAL

AND

DETERMINING

THEN BEGINNING WITH

DR%V;
AND
PROCEEQING

SEQUENTIQL

ALL

ORDER.

ALL OF
THE
DRIV S WILL BE
TES
.
ASS THROUGH THE TEST
SEQUENCE (TESTS 0-10,12-20) NILL BE PERFORMED ON ERCH DRIVE BEFORE

HOVING TO _THE NEXT DRIVE IN SEQUENCE.

THE ADDRESS OF ERCH DRIVE

C BE TESTED WILL BE TYPED AT THE BEGINNING OF EACH PARSS,

AN "END

OF PASS" MESSAGE WILL BE TYPED AT THE COMPLETION OF EACH'PASS,

gg?vgg “END OF

TESTTM

MESSAGE WILL

REFER TO THE FOLLOWING
JF EACH TEST.
i

TESTM

RECRL/SEE¥F

THIS

TEST

WILL

SECTIONS

FOR

TYPED AFTER TESTING ALL

DETRILED

DESCRIPTICNS

TEST

CRUSE

THE

DRIVE

EXECUTE

RECRLIBRRTE

COMMAND CYCLE AND THEN SEEK FORWARD TO CYL INDER °
AT
THE COMPLETION OF BOTH COMMANDS,
STATUS xuoxcnrxons ARE

CHECKED TO ENSURE NO ERRORS OCCURRED.
THE

FPRARAMETERS
R

THIS

TEST

CYCLE

WILL

“LT*,

PRARAMETERS

USEL

“FC”

0
TEST

CAUSE

TO ”LC

“f5~_

GIVEN BELOW:

SEEK/SEEK

ARE

822

TEST

200

THE

TEST

USED BY

THE

DRIVE

TQ EXECUTE

A _FORWARD SEEK

_“LS" FOLLOWED BY
A REVERSE SEEK

AT THE COMPLETION OF EACH SEEK,

INDItRTORS ARE EXAMINED TO ENSURE PROPER OPERATION.

THE

TEST

FC
LC
IC
F¥
LT
3
LE

INCREMEMNTAL

THE

TEST

RRE

GIVEN

CYCLE

BELOW:

100
g
256
0
0
0
G
0

SEEK

TEST

THIS TEST WILL COMMAND FORWARD SEEK CYCLES TO ADVANCE THE
CYLINDER RDDRESS FROM “FC* TO "LC" BY THE INCREMENT “IC".
WHEN THE RESULTANT CYLINDER nooness (NC) EXCEEDS
LC”
REVERSE SEEK CYCLES ARE INITIATED: STARTING

& THE LAST LEGAL “NC* AND DECREMENTING BY “IC”

UNTIL “NC® 1S LESS THAN "FC”. AT THE COMPLETION OF EACH
SEEV COMMAND THE PROPER xnoxcnvons ARE EXAMINED TO
ENSURE PROPER OPERATION.
THE

FRRAMETERS

USED BY

THE

TEST

ARE

GIVEN BELOMW:

70O

THE PROPER

Se¢ 0017

FO2
R
FC

FY
FS

LC
Ig

)

TEST

THIS

TEST

1
o]

STEPPING
WILL

8,16,32,.64,128,

SEG JClE

822
1

0
0

SEEK

TEST

COMMAND

SEEK

AND 256.

CYCLES

CYLINDER

0,1,2,4

RY THE COMPLETION OF ERCH SEEK

COMMAND' THE PROPER INDICATORS RRE EXARMINED TO VERIFY PROPER
OPERARTION.
THE

PRRAMETERS

USEC

R
FC
LC

6
c
256

FT
FS

0
0

(Y]

TEST

THE

OSCILLATING

TEST

ARE

GIVEN

BELOW:

SEEK

TEST

THIS TEST WILL COMMAND SEEK CYCLES FROM “FCTM TO "NC” QND BARCK
JO TFCT.
“NCTM STARTS AT “FC* RAND INCREMENTS BY *“IC" UP T0 CYLINDER
LCTM,
THEN IS DECREMENTED BY “ICTM BRCK TO CYLINDER “FC"
AT THE

bOHPCETION OF EVERY SEEK COMMAND THE PROPER INDICRTORS RRE

EXARMINED TO ENSURE PRUPER OPERRTION.
THE

FOLLOWING
R

Fe
L¢
IC

€

RRE

USED

THE

TEST:

0
822
I
0
G

- CONVERGING/DIVERGING SEEK

TEST

THIS TEST WILL CAUSE THE DRIVE TO EXECUTE FORWARD AND REVERSE
SEEKS FROM “NC1TM AND “NC2TM RESPECTIVELY,
“NC1” WILL BE INCREMENTED

BY ~IC* AND “NC2~ WILL BE DECREMENTED BY “IC* UNTIL "NC1*TM IS
—

RESPECTIVELY.

I
I

ARE

PARAMETERS

“LC”

AND

FOLLOWING

THE

MM~ NMND

“FC*TM

USED

THE

TEST:

L1y

GREATER THAN THE INITIAL VALUE OF “NC2" AND "N(C2”
LESS THAN THE INITIRL VALUE OF “NCl”.
AT THE COMPLETION OF
ERCH SEEK COMMAND THE PROPER INDICATORS ARE EXAMINED TO
ENSURE PROPER OPERATION.
“NC1TM AND *“NC2” DEFARULT TO

[Aad

FT
Fs

TEST

PRRAMETERS

GOe

TEST & - SERVO RDDRESSING LOGIC NOISE GENERRTOR TEST
IN THIS TEST
A SEEK

NC+4

THEN NC+1

IS DONE TO CYL "NCTM

THEN NC+3

THEN R SEEK TC

THEN NC+2 THEN NC+S.

NOW "NC"

IS UPDRTED

BY “ICTM AND THE RBOVE SEQUENCE IS REPERTED UNTIL "“LCTM IS
.
EXCEEDED BY ANY OF THE RBOVE VALUES.
THE INITIAL VRLUE OF *'NC*
IS “FCTM
AT THE COMPLETION OF ERCH SEEK COMMAMD THE

PROPER
THE

INDICATORS ARE EXAMINED TO ENSURE PROPER OPERATION.

FOLLOWING

PARAMETERS

Fe
L<
IC

TEST

_PERFORMS

THE

TEST:

)
822
I
0
0

TEST 7 - RANDUM SEEK
THIS

USED

FY
FS

ARE

TEST

RANDOM SEEK

RFTER EACH SEEK,

OPERRTIONS BETWEEN CYLINDERS

THE POSITION OF THE DRIVE

'fFC’

IS VERIFIED BY

REQDING SECTOR FROM YHE CURRENTLY ADDRESSED CYLINDER AND TRACK.
THE

TRACK

ADDRESS

THE

FOLLOWING

INCREMENTED

FOR

ERCH

SEEK

THE

TEST:

OF POSITIONING OCCURS USING ERCH HERD.
BETWEEN PARAMATERS °'FT' AND °'LT’.
PRRRMETERS

)

£
0

R
FC
LC
FT
LY
TEST

SERVO

ARE

5080
0

SETTLE

DOWN

USED

THAT

VERIFICATION

TRACK RADDRESSES RARE

INCREMENTED

822
0

18
TEST

THIS TEST VERIFIES THAT THE SERVQO HARS SETTLED DOWN AND THRT
THE DRIVE IS ON CYLINDER WHEN THE ORIVE INDICATES SEEK COMPLETE.
RANDOM SEEKS ARE ]SSUED BETHEEN CYLINDERS °*NCI1°' RAND 'NCL1+IC’
"NC1°® STARTS AT VALUE °'FC’
AT THE COMPLETION OF 1000 (10) SEE¥S,
INCLT

THE

TEST

INCREMENTED

VQLUE

1S COMPLETED WHEN

"IC'

°'NC]1°

AND

THE

HAS BEEN

SEQJUENCE

REPEATED.

INCREMENTED BEYOND

"L7°.

SEG 0019

HO2
WHEN

RS&{?TSR lRHLR) T8 BS
TERMINE THEEQDSREB?T

THE

SEEK

COMPLETES,

THE

PROGRAM READS

HTHS 3ESN$;QE ggnNéNTO

THE

DRIVE'S LOOK AHERD

SYSTEM MAY NOT BE RDJUSTED

THE

DRIV

FOR_THART SECTOR ERRO?Hg *2 ?E N0§§Q gHQT
MALFUNCTIONING,

COR

CTLY

HAT

OR THAT
A PACK WITH MARGINAL SERVO TRQCKS

IS MOUNTED ON 'mc DRIVE.

THIS TEST IS VALID ONLY IF THE OPERATION IS STRARTED WITHIN A FEW
HUNDRED MICRO-SECONDS RFTER SEEK DONE OCCURS.
THE NECESSRRY TIME
DEPENDENT PQRQH;T;R? 0?
CUR NITH%N E §OEIRED TIME RANGE FREQUENTLY
ENOUGH TC PERMI
S
TEST TO Bt
EFFECTIVE.

N4l

82
10

THIS

TEST

THAT

THE

BEGINNING WITH CYLINDER

'FC'

ALL

THE

TEST:

- ALL SEEKS TESTY

TESY
TO

USED BY

O0O0OnoO~—

ARE

THE FOLLOWING PARAMETERS

VERIFIES

OTHER

CYLINDERS.

DISK

THE

DRIVE

CAN

INCREMENTED

AND

THE

TEST

SEEKS

R
Fe
s

{

USED BY

THIS

0
0

ROTATIONAL

THE

NEW

CYL INDER

SEQUENCE

TEST:

TEST

THIS

TEST WILL START
A SEQRCH 70 CYLINDER O,

SPEED

TIMING

TEST

TRACK
0, SECTOR

Ao
e oPERATION: 1AM TEREET F5TY BaolEBURE ?§TRéEEE§ED“?SI"
TIMES THEN THE RVERAGE 'IHE IS CALCULATED AND CHECKED
7
IT

IS WITHIN TOLERANCE:

16.67 MS/REV
16.67 MS/REV

27 QR
2% OR

3.5%
3.5

FOL.OWING PARAMETERS ARE USEC BY
1

OO0

THE

+
+

IF
]F

B60OH
SOH

THE

EMSURE

NN
D
N 4

[

1
0
822

FI
33
-

CYLINDER

THE BEGINNING CYLINDER

BETWEEN

ACDRESS AND ALL CYLINDERS BETWEEN 'FC® AND ‘LC°.
CONTINUES JUNTIL ALL CYLINDERS HAVE BEEN CHECKED.
THE FOLLOWING PARAMETERS ARE

FROM EACH

TEST SEEKS TG EACH CYLINDER

BETWEEN 'FC* AND 'LC’ FROM CYINDER 'FC’'.

ADDRESS

SEEK

TEST:

[

TEST

THIS

TEST

ONE

CYLINDER

WILL

SEEK

TIMING

COMMAND FORWARD

Y LINDER

BY ONE UNTIL THE

THE

USES

SEEK

INCREMENT

TEST

CYCLES

ADVANCE

SEG J0z!

THE

IS GREATER THAN THE

CYLINDER 'LC’,
THEN REVERSE SEEK TO CYLINDER 'FC'.
THE
T ME TO PERFORM EACH SEEK IS CHECKED TO ENSURE 1T DOES NOT
EXCEED THE MAXIMUM TIME PERMITTED FOR
A ONE CYLINDER SEEK.
THE E T TIME MUST BE LESS THRN 10OMS.
TEST

THE

FOLLOWING

~
-

1
0
B22

R
FC

LC
TEST

THIS

TEST

SYLINDER

RCCESS

WILL

°LC’,

CYLINDER 0.

ARE

THIS

WITHIN THE
SEQUENCE

COHHQND

TOLERANCE

REPEATED

DEFRULTS

THE

USES

THE

THIS

TEST

CYLINDER

MAXIMUM
WILL

CYLINDER 0.

128

FOLLOWING

CYLINDER

°LC’

TIMES

(10)

TIME

MERSURMENT.

TIME MUST BE LESS

THAN 32 MS.

(FOR
R TOTA

PRRAMETERS:

*LC",

FROM

ALLOWED FOR THE QCCESS

TO 2S5

FC
LC

SEEK

THE AVERAGE RCCESS

°*LC’

TEST

FORWARD

THEN
A REVERSE SEEK FROM CYLINDER

CYLINDER
TEST

MERSUREMENT

BOTH SEEKS RRE TIMED AND CHECKED TO_ENSURE THEY

OF 256 SEEKS).

(¥ (]

TIME

PRRAMETERS:

s}
255
SEEK

TIMING

connnno

TEST

FORWARD

SEEK

FROM

CYLINDER

THEN
A REVERSE SEEK FROM CYLINDER

'LC’

BOTH
SEEKS RRE TIMED AND CHECKED TO ENSURE

THEY ARE WITHIN THE TOLERANCE ALLOWED FOR THE MAXIMUM SEEK
TIME.
THIS SEQUENCE 1S REPEATED 128 TIMES (FOR
\
A TCTAL OF 286 SEEKS).
THE MAXIMUM SEEK TIME MUST BE LESS
S4 MS.
°‘LC' DEFAULTS TO 822 (10).

THE

TEST

USES

R
FC
LC

TEST

THIS

YEST

THE

THAN

FOLLOWING PARAMETERS:

1
0
8ee

SECTOR ADDRESSING
JRITES DATA

TEST

INTO ALL

SECTORS

TRACK

“FT*.

THE

DATA WILL BE 256 u0<os OF THE SECTOR ADDRESS OF THE SECTOR
BEING WRITTEN.
A WRITE cnecx 1S PERFORMED,
THE BUFFER IS
i
CLEARED (T0 177400) AND THE NATAR IS READ AND COMPRRED.
THEN SECTOR
IS REWRITTEN AND SECTORS O - 31 ARE WRITE CHECKED.
THEN
SECTOR i IS REWRITTEN AND SECTORS 0 - 31 ARE WRITE CHECKED.
THIS REWRITE AND WRITE CHECK PROCEDURE IS CONTINUED UP THROUGH
PEWRITE SECTOR 31 AND WRITE CHECK SECTORS 0-3
THE

TEST

JSES

THE

FOLLOWING PARAMETERS:

TEST

THIS

TEST

TRACK
WILL

ADDRESSTNG
WRITE

DATA

TEST
IN

THE

FORM OF

TRACK

RDDRESSES

IN CYLINDER “FCTM SECTOR “FSTM OF EVERY TRACK WITH ERCH TRACK

GETTING ITS OWN TRACK RDDRESS.
A WRITE CHECK IS THEN PERFORMED ON ERCH TRACK TO
THE DATA_IS VALID.
THEN
THROUGH TRACK 4 IS WRITE

THIS PROCEDURE IS CONTINUED
AND WRITE CHECKING TRACK M.
THE

TEST

USES

INSURE

TRACK O IS REWRITTEN AND TRACK
CHECKED.
THEN TRACK 1 IS

REWRITTEN AND TRACK 2 THROUGH TRACK 4
UP

IS WRITE CHECKED.

THROUGH REWRITING

TRACK

1
3

THE FOLLOWING PARAMETERS:

P
FC
FS

1
0
0

TEST 20 - DATA TEST
THIS
"FC*

TEST PERFORMS DATA STORAGE AND RETRIEVAL
THROUGH ~LC” BY THE INCREMENT “IC" USING

SPECIFIED.

THEN REPEAT 2-94 UNTIL “NT*

)

"LT*

WRITE THEN WRITE CHECK “FS* THROUGH “LS" OF TRACK "NT"
READ THEN SOFTWARE COMPRARE “FS” THROUGH “LSTM OF TRACK *NT"
INCREMENT “NT* BY "ITTM
REPEAT STEPS 1-4 FCR EACH DRTA PATTERN
REPEART STEPS 1-S5 FOR “FCTM THROUGH “LCTM RADVANCING BY "IC"

IF A_WRITE CHECK ERROR OCCURS THE ERROR

THE

ON CYLINDERS
THE DATA PATTERNS

THE FOLLOWING SEGUENCE OCCURS FOR ERCH CYLINDER:

SET “NT" 70 “FT*

muu;mru

JO2

TRACK

ERROR

IS REWRITTEN

AND

IS REPORTED AND

CHECKED.

THIS

CHECK

ACCCMPL ISHED BY PERFORMING TWO(2) SUCCESSIVE ERROR FREE
WRITE CHECKS. IF THE CHECK FAILS THE ERROR IS REPORTED RS

FRTAL AND NO _RERD OCCURS.
FS DEFRULTS TO 1 AND LS DEFRULTS T0 O
PAT DEFARULTS TO 177777 (ALL POSS'BLE PARTTERNS)
THE POSSIBLE PARTTERNS ARE:

65555
33333
5
33333
65555
3
65555
33333
65555
33333
65555
33333
€S5SS
33333
eSESEE

1
000003
000007
000017
000077
00C177
000377
000777
001777
003777
007777
017777
037777
077777

177776
177774
177770
177760
177740
177700
177600
177?400
177000
176000
174000
170000
160000
140000
100000

000000
000000
000
177777
177777
177777
0000
000000
17272777
177777
000000
177777
000000
177777
000000

000000
010421
021042
031463
(042104
052525
063146
073567
104210
114631
125252
135673
146314
156735
167356

052525
2525
0S25e2S
125252
125252
12525¢
052525
052525
125252
125252
052525
125252
052525
125252
052525

007417
007417
007417
170360
170360
170360
007417
007417
170360
170360
007417
170360
007417
170360
007417

026455
026455
026455
151322
151322
1S513e2
026455
026455
151322
151322
026455
151322
026455
151322
(0264SE

133333

000000

177777

125252

170sbU

PRY

PAT

000001
000002
000004
000010
000020
0
000100
0200
000400
001000
002000
004000
010000
020000
040000
100000

TEST

USES

177776
177775
177773
1777?67
177757
177737
177677
177577
177377
176777
175777
173777
167777
157777
137777
077777

FOLLOWING

R
FC
LC
IC

1
0
g2l
by

LY
17
FS
LS
PAT

4
1
1
0
177777

RRNDOM

077777
137777
157777
167777
173777
178777
176777
177377
177577
177677
177737
177757
177767
177773
177775
177776

153333
06bbL?
153333
066be7
153333
Q6bbb?
153333
O0666k7?
153333
066667
153333
O0&bee?
153333
06667
153333
06667

000000
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777

PARAMETERS:

ADDRESS

AND

RANDOM

PATTERN

TEST

RERD THE SECTOR AT

THE RDDRESS

RERD THE SECTOR AT
GENERQTED IN

THE ADDRESS

GENERRTED IN 3.
DO
A SOFTWARE CHECK OF THE DATA READ IN Y.
DO
R WRITE CHECK OF THE DATA WRITTEN IN 2
GENERATE A RANDOM
ADDRRESS

=0
O

ONM

GENERRYE A RANDOM_ADDRESS
WRITE A RQNDO PATTERN AT THE ADDRESS
GENERRTED IN
GENERRTE A RQNDOM RDDRESS

FOR THAT SECTOR.
THE TEST THEN PERFORHS THE FOLLOWING SEQUENCE *“RTM
R*
DEFAULTS T0 20,000.

DO A SOFTHQRE CHECK OF THE DATA READ
DO
A WRITE CHECK OF THE DRTA WRITTEN

<
m

SEG 20e3

STARTING AT “FCTM AND GOING THROUGH “LC” THE DISK PACK
IS WRITTEN WITH
A RANOOM PATTERN. THE FIRST TWO WORDS
Of ERACH SECTOR WILL BE THE BASE OF THE RANDOM GENERATOR

[

172666
15E855S5
172666
155555
17266b
1S5SS8S
172666
1585558
172666
155555
172666
155555
172666
155555
172666
155855

THE

TEST

KO2

151322

13
16
13
16
13
165555
133333
16
13
16
13

THE

177777

TEST

USES
F

THE FOLLOWING PARAMETERS:
-

20000

IN .
IN 2

TIMES

Ccooooo

LC
TEST

THIS

TEST

g2l

RMO3 ACCESS
PERFORMS

LO2

TIME

SEG J0c4
TEST

SEEKS BETWEEN CYLINDERS

O 8

2S5

TQ ALLOW

THE

OPERATOR TO ADJUST THE ACCESS TIME ON AN RMOJ3 USING THE
DDU.
THE PROGRRM STALLS APPROXIMATELY S SECONDS BETWEEN SEEKS
SC THRT THE RACCESS TIME INDICATORS ON THE DDU MAY BE OBSERVED.
THE

TEST

USES

THE

FOLLOWING PRRAMETERS:

S000
0
255

MOe
SEG 00ec

IDENTIFICATION

PRODUCT NRME:

RMO3 SOFTWARE DRIVER MOOULE

DATE CRERTED:

AUGUST 1977

MAINTAINER:

DIAGNOSTIC ENGINEERING

AUTHOR :

(C)

LACEY~C.

HESS/C.

CHEN

1977 DIGITAL EQUIPMENT CORP., MAYNARD, MRSS.

THE INFORMATION IN THIS STATEMENT IS SUBJECT TO CHANGE
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED RS R

COMMITMENT BY DIGITAL EQUIPMENT CORPORARTION.

ACT

ISTRIBUTION OFf

S FTHRRSN858CRI

D IN THIS

DCCUMENT
WILL
BE SUBJECT
0
TERMS
ONDITIONS TO
BE ANNOUNCED ON SOME FUTURE DRTE BY DIGITAL EQUIPMENT
CORPORATION.

REC BT
1P TR OB
THIS

TO U

OFT

FURN

B PR
T0

e 1

PURCHASER UN

L ICENSE

INEL 0H§H$ER gYS EM AN CQNDSECOPIED ‘WITH

INCLU:ION
COPYRIGHT NOTICE: ONLY FOR USE IN SuC
E;STEH EXCEPT RS MAY OTHERWISE BE PROVIDED IN WRITING
EC.

NOe
1. 1

RH70/RMO3 ORIVER MODULE
-

—

SEQ 00cs

.o
o
-

THIS DOCUMENT

IS THE USER'S GUIDE FOR THE RH7?2/RMC3 DRIVER.

THE

INITIRLIZE

JSR
RETURN

DRIVEK:

PC,RIINIT

UPON PETURN YOU MUST EXAMINE THE "DRVSTRTM TRBLE TO DETERFINE
THE

DRIVES

THAT ARE ONLINE FOR

TESTING.

EIGHT BYTES: ONE BYTE PER DRIVE.

BE INDICATEL RS FOLLOWS:

THE
THE

DRVSTA

DRIVE STATE

o
=0

ONL INE RMO3
OFFLINE RPD3,

‘0

UNSAFCRMO3

DRIVE
TABLE

DRIVE

1S NOT AN RMO3

ENTRIES ARE ENCODED AS FOLLOWS.

-1

TAGGED ’'DRVIYP’.
INDEXED BY THE

NONEXISTENT DRIVE

RMO3

NOT AN RMO3

ROQUTINE WILL DO A RERDIN PRESET AND WILL SET FMTZ2Z.

RFTER THE DRIVER HRS BEEN
FOLLOWING SEQUENCE.

JSR

PNTOPR

INITIALIZED,

RO, RMO3

RETURN]

IS CALLEC USING

THE

;MAKE THE CALL

RDDRESS OF DPB#
RETURN

RETURMZ

IF GQUEUE

IS FULL

RETURN IF REQUEST IS IN
QUEUE OR THERE IS AN

,ERROR CONDITION
(DRTR PRRAMETER BLCCK
.BYTE

00000

PNTDPB:

#0UPB

E
(=]
o]
(&)

[

|&]

CONDITION

"RMINIT®

TRBLE

DRIVE

TYPE IS DEFINED IN AN 8 BYTE LONG TABLE
CONTAINS OME BYTE FOR EACH DRIVE AND IS

NUMBER.

CAalL:

'DRVSTAR’

nonexxsrenr oatve

DRVTYP

THE

THE STRTE OF EACH CRIVE WIL

DRIVE NUMBER

OFFSET VALUE 0 FMT22,
COMMAND
PSEL AND Ri7 AND Alb

ECT,

WORD COUNT (MUST BE NEG.)
BUFFER ADDRESS OR
ISTER_TABLE POINTER
)

_SECTOR_RLDRESS CR

ST REG.

INDEX

AND HL

INDE X

303

?aa

R
e R THEey
DRIVER
H‘éRE
?
gg
i
SAVED.
ND%CRTOR
T
R

‘.”.%

RDDRESS

THE

rh?0/RM03
RROR IF LEFT

;:1:)
fl—éIT
9 AND BITOB 8ITO3
=

E TYPE OF ERROR

raMm

/ER PROVIDES
R SOFTWARE TIMEOUT CAPABILITY

«)

E THIS CAPRBILITY YOU MUST SUPPLY THE “RM TIMER" ROUTINE
ELAPSED TIME IN THE FOLLOWING MANNER

MOV

815.,-(SP)

HIL%ISECONDS BETWEEN
16

JSR

PC,RMTMR

CQLL THE TIMER ROUTINE

17 SHOULD BE NOTED THAT YOU MUST PROVIDE THE COBE TO DRIVE THE
AND THE ELRPSED TIME MU ST BE IN MILLISECONDS.
THE ORIVER WILL SET THE TIMEOUT TO 1 SECOND FOR ALL POSITIONING
RAND DATA TRANSFER OPERATIONS AND WILL SET THE TIMOUT TO 30
CLOCK.

SECONDS FOR ERROR RECOVERY OPERRTIONS.

Z.4. 1

EXYAMPLE

18:

JSR
WRTDPS

es:

WRYOPB:

WRITE

1000.

WORDS

RO, RMO3

;CALL THE DRIVER

BR
787
BEG
BM1

13
WRTDPB+!6

;DPB
DRESS
;WAIT FOR QUEUE 1F FUL
;WARIT FOR COMMAND TG COHPLETE

ERROR1{

: ERROR OCCURRED

.BYTE

:DRIVE

.BYTE
.BYTE
.BYTE
. WORD

0
161
0]
-1000.

BYTE
BYTE
WORD

3
S
400

WORD

. WORD
. WORD

.WORC

2561

C
O

(o
e Ot 4D L~ — ~—
VO ——

.WORD
WORD

[
O e A |R.—qrflo"nr —
8 4440 D> O LNV

»«nunnnrq

.BYTE

TRACK

3uRIT£ COMMAND

WRTBUF

:WORD COUNT
BUFFER RDDRESS

ERRTBS
0

ERRO TARBLE
:STATUS/ERROR INDICATOR

ALTERNATE DPB SETUP
WSFYOPB:

WORD

- WORG

-1000.

WORC

.WORD

WRITE

WRTBJY

; THIS SETUP acuxsveo

(EVERYTHING THE
:ABOVE TABLE DID, BUT
:INA CLEANER FORMAT

SEG 0027

.BYTE

-WORD
12.5

400.ERRTES.O0

SEG 0028

RWTM0 RMD3 REGISTERS

MNEMONIC

INDEX

RMCS1
RMWC

0
2

RMDA
RMCS2
RMOS

6
10
12

RMAS

RMBA

RMER]

RMLA

RMMR 1

RMDB

RMDTY
RMSN

RMOF
RMDC
RMHP
RMMR2
RMER2
RMEC |
RMEC2
10.E

ca3

3,5

3
34
36
40
42
4y
46

COMMANDS PERFORMEC BY THE DRIVER

COMMAND

CODE

COMMAND TYPE

101

UNLORD

103

SEEK

105

RECAL IRATE

107

DRIVE CLEAR

111

RELERSE
OFFSET

113
115

N
P

117

REAGIN PRESET

121

PACK ACKNOWLEDGE

123

131

GET REGISTER(S,

141

SEY FORMAT

143

OPERATION

RETURN

TO CENTER

D03

SELECT DRIVE

148

181

WRITE CHECKk HERDER

183

16l

WRITE HERDER & DRTA

163

READ DRTA

171

RERD HENDER 8 DRTH

173

WRITE CHECK DRTA
AND DRTA

iTE DATA

sea

= HOUSEKEEPING

P = POSITIONING
D = DATA TRANSFER
S = SPECIRL PROVIDEC BY

DPB STRTUS/ERROR

THE DRIVER

INDICARTOR WORD

THIS INGICATOR WILL INFCRM THE USER OF
IH;EEIS ACCOMPLISHED BY SETTING VARIES

THE RESULTS
BITS OF THE

OF THE REQUEST.
INDICATOR TO

MEANING

ON R "1TM

ERROR OCCURRED
DONE (BI707=0);
DONE (BIT07=1

BITS 14-10 SPECIFIES TYPE
BITS 06-03 SPECIFIES TYPF

USER MADE A REQUEST FOR A FUNCTION TO BE
PERFORMED ON AN OFFLINE

OR UNSRAFE

DRIVE

A FUNCTION
A REQUEST FOR
USER MADE
TO

PERFORMED

ON
A DRIVE

JNLORD REQUEST IN QUEUE.

THART

HAS AN

ig.2.

PERSISTENT UNSAFE CONDITION EXIST.

UNCORRECTABLE PRRITY ERROR OCCURRED

1012 .4,

FATAL PARITY ERROR.
A MASSBUS CLEAR WRS
PERFORMED,
ALL QUE_"S WERE EMPTIED, ANC

ALL DRVACY'S SET TG THE IOLE STARTE'
SOF TWARE

TIMECUT GCCURRED ON THIS ORIVE

SOF TWARE TIMEOUT OCCURRED CN ANOTHER DRIVE
DONE

ERROR OCCURRED DURING AN 1/0 OPERRTION
ERFOF OCCURRED DURING RN OPERARTINON
OTHEF

THAN

1-0.

CORRECTARBLE

3:.2)

DRIVE ERROR OCCURRED THART CRUSED AN

PORT REQUEST TIMEOUT.

NON-EXISTENT DRIVE REQUESTEO
A REQUEST FOR R NON-EXISTENT

DRIVE.

SRR

REQUEST WASN’T PUT IN QUEUE.
REGISTERS WERE NOT SAVED)

(rh?0/RMO3

(2)

REQUEST QUEUE HRS BEEN EMPTIED.
THE DRIVER
ISSUED R “DRIVE CLERRTM TO THE DRIVE.
NOTE: RLL rh70/RMO3 REGISTERS RRE SAVED
RS PER DPB+14 BEFORE THE "DRIVE CLERR".

REQUEST QUEUE HRS BEEN EHPTIED
THE
DRIVER ISSUED
R _MRSSBUS INIT
rh70/RMO3 REGISTERS FOR THE DRIVE WERE
SAVED RS PER DPB+14 BEFORE THE INIT.

SEG 0030

SEQUENCE

THE DRIVER REQUESTED

THE DRIVE BUT THE OPPOSITE PORT DIC
NOT
RELERSE THE DRIVE WITHIN 20 SECONDS.

USER MADE

R _“RECAL IBRATE® SHOULD BE ISSUED
BEFORE ANY OTHER COMMAND.

ERROR CALLS MADE BY THE DRIVER.
THERE ARE R FEW ERRORS

THAT

CAN OCCUR

THRT

CRAN NOT

INDICATED

WHEN THIS TYPE OF ERPOR IS DETECTED By YHE DRIVER IT WILL MAKE
AN ERROR CALL OF THE FORM "ERROF N, LHERE “N” IS THE ERROR

NUMBEF ~NC THE ERROR WILL BE AN EMT’ INSTRUCTION.
N

TYPE

DRTA AVAILABLE

R470 INTERRUPT
JCCURRED (RHRS=0)

#R4=

UNEKPECTEC ATTENTION
JCCURRED

RMCS1'S ADDRESS

Rl= DRIVE NUMBER
R3= ATA BIT

#R4=

RMCS1’S

ADDRESS

RS= (RMAS)
RMERRS
=RMDS
RMERRS+2=RMER]
RMERRS+4=RMER2
RMERRS+6=RMMR2

MASSBUS PARITY

RD.RDR= RDDRESS

MASSBUS PARITY
ERROR (PAR=z],

WRY.AD= ADDRESS OF REG.
WRT.WD= WORD WRITTEN
RO.WRD= WORD RERD BACK

(L]

CONDITION OCCURRED

RUTOMARTIC “RECALIBRATETM

H) =
[

UNSAFE

EO3

4.2,

HODURESSE

Rl=

ERROR

(MCPF=].

PLUG

CHANGE

RD.WRD= WORD READ

DRIVE

NUMBER

REG.

RERD

WRITTEN

IN R DFB.

R3= ATA BITY

#R4=

RMCS1’S

FO3
RDDRESS

RS= (RMRKS)
RMERRS
=RMDS
RMERRS+2=RMER]
RMERRS +4=RMER2
RMERRS +6=RMMR2

THIE

THE

RCTURL

PROGRAM LISTING

UNIBUES

RDORESS

(176700)

ERROR:

«"0OPE"'

BIT SET

DT i1

LICX 2

T o1, I A N1, 7T

MO-11"RHF
-B RMO3 '‘RMQ2 EXTENDED DRIVE TEST
CaRMFB.F
21-NOV-77 14:10

MACYL11l 30(1046)

GO3

22-NOV-77

08:04

PRGE 2

.TITLE
MD-11-DZRMF-B RMO3/RMO2 EXTENDED ORIVE TEST
; #COPYRIGHT (C) 1977

;#DIGITAL EOUIPHENT CORP.
|HRYNRRD MASS. 01754

QPROGRRH BY H. BLRACKSTONE
|THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC
QPQLKQGE

(MAINDEC-"'1-DZQAC-C3),

JAN

19,

1977.

SEG OC2¢

gwumfl"u»o
W ST£ W
TIN
MNLWN
DD LY Y T
N

WDR;éBDPRHF
-B RMO3 RMOZ2 EXTENDED DRIVE TEST
1l
21-Nov-77 14:10

MACYLll

SBTTL
;l
H

WRITE PACK BEFORE TESTING (TEST 21)
INHIBIT HRITING PRCK BEFORE TESTING (TEST 2!,
0 STALL
BETWEEN DRIVE FUNCTIONS
gp R _EVERY DRi"E FUNCTION
EC IC S RLL
USE

TALL IN TEST 4
e S
e

DO “RERD

AND DATAR” IN TESTS O-!1

0
1
0
6
;

HE 4

i
L

)
8]

€

USE

SEEKS WITH DATA TRANSFERS
00 EXPLICIT
gE KS BEFORE DATR TRANSFERS

1
0
1

DO EX LICIT SCEKS IN TESTS 0-1!1
60 HZ
S0 HZ

RDER

RUN WATCHDOG TIMER

INHIBIT WATCHDOG TIMER

TEST DRIVE(S) IN 22 SECTOR (16 BIT) MODE

TEST DRIVE(S,

EBTTL

OPERATIONAL SWITCH SETTINGS

SWITCH

INHIBIT ERROR TYPEOUTS

(l8 BIT)

MODE

USE

HQLT ON ERROR

;l'

IN 20 SECTOR

HE 4

TEST

?s
ERROR

NT ERROR MESSAGE ON LINE PRINTER

RERO CONTROL SWITCH SETTINGS FROM TTY

I
P #
R )

)
4
3

REPORT Ous RROR PER SECTOR (TESTS
INHIBIT
ES (TEST 15)
INHIBIT HRITE CHECKS (TEST 20)

R
;&

A G
TO T T TG T T T
L WD W0 NN L Wohs-(

o ®

SEG 0C32

i
o
L
A
;:

m LS
LA A A

PRGE 3

STARTE

o
i #

.SBTYTL

000000

08:04

SWITCH

i
H
;&

22-NOV-77

CONTROL SWITCH SETTINGS

30(1046)

INHIBIT

TIME

REPORTS

(TESTS

12-15)

16 8

1I7)

INHIBIT RERD AND SOF TWRARE COMPARES (TEST 203

INHIBIT SOFTWARE COMPARES

PERFORM READ AFTER WRITE

(TEST 20)

CHECK

ERROR

(TEST

TRAP CATCHER

=0
s RALL UNUSED LOCATIONS FROM
4 - 7?76 CONTAIN
A * .*2,HALTTM

: #GEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUP 15

GCO174
C0Ci7%6

000174
000000
000000

QLOCRTIONIQ CONTARINS O TO CATCH IMPROPERLY LORDED VECTORS
DISPREG:
SWREG:
.SBTTL
(RN

.WORD
.WlORD
ACT11
SRR

O
O

; s SOFTWARE DISPLRY REGISTER
; ;SOFTWARE SWITCH REGISTER

HOOKS
AR RO R RS RR

R R PRI RN AR RERIRRPRFRRRRRRERRPRARBERATERRD

20.

MD-11-DZRMF-8 RMO3 RMO2 EXTENDED ORIVE
CoRMFB.P1LI
2l-NOvV-77 14:10
&8
€9

000046
0000se

TEST

ACT11

000200
.sgasL

000200

000137

004740

Sy S
Sy QA Gy Sy S
Wy WO Sy ST S
Y Ury QN
Y
Y
Y
O

ORIt b2 ps b8 2 0ed = 4202 (IO
OO OO D
WL = OO0 MU L WO LU 0D NN L ohu— D0

@22-NOv-77

000204

000137

0047BR

0ogzico

00c137

004730

0gC2i4

000137

0047%2

08:04

PRGE 4

seggno

::1)SET LOC.46 TO ADDRESS O- SENCAD

WORD
O
.=$SVPC

::2)SET LOC.S2 TO ZERO
. PESTORE PC

STRRTING RUURESSES

JMP

JUSTART]

JMP

O8STRRT2

:#204 = SELECT OPERATING PARAMETERS

.#210 = SELECT RH?0/RMO3 ADORESSES
NP
J8START3
;#214 = COMBINATION OF 204 AND 210
J8STARTY
IMP
BASIC DEFINITIONS

. #INITIAL ADDRESS OF THE STACK POINTER ##&

0g1100

S§TACK=

000011

AT=

00C200
17777¢

pPS=

_EQUIV
.EQUIV

1100

EMT,ERROR
IOT,SCOPE

- ¥MISCELLANEOUS

LF=
CR=
CRLF=

12
15
200

.EQUIV

PS.PSW

STKLMT= 17?7774

177774
177772
177570
177570

PIRQ=

177772

DOISP=

177570

000000

RO=

DSWR=

177570

. 8GENERAL

::BASIC DEFINITION OF ERROR CALL
::BRSIC DEFINITION OF SCOPE CAL.

PURPOSE

. :CODE FOR HORIZONTAL TRB

::CODE FOR LINE FEED
: :CODE FOR CARRIRGE RETURN
::CODE FOR CARRIAGE RETURN-LINE FEED

: :PROCESSOR STATUS WORD
::STACK LIMIT REGISTER
: 'PROGRAM

INTERRUPT REQUEST REGISTER

: HARDWARE SWITCH REGISTER

: s HARDWARE DISPLAY REGISTER
REGISTER DEFINITIONS

; ; GENERAL REGISTER

Rl=
Re=
R3=
RY=
RS=
Rb=
R?=

%1
%2
%3
7
%S
%6
%7

: :GENERAL
: GENERAL
: GENERAL
: :GENERAL
{GENERAL
: :GENERAL
s ; GENERAL

000007

PC=

: : PROGRAM COUNTER

000000
000040
000100
000140
00ce0C

PRO=

PRY=

200

SP=

- #PRIORITY

PRI=
PR2=
PR3=

40
100
140

::STACK POINTER

LEVEL

1100 #s2+

DEFINITIONS

177776

SEG 0034

:SAVE PC

:#200 = NORMAL START

.SBTTL

103

30(1046:

;HOOKS REQUIRED BY RCT1l
SSVPC=.
ve

000200
000046
021300

000200

MACYL1l
HOOKS

ODEFINITIONS

: ;PRIORITY LEVEL C

:'PRIORITY LEVEL I
:IPRIORITY LEVEL 2
:PRIORITY LEVEL 3

:'PRIORITY LEVEL 4

.SEOP

MD-11-D2RMF-B RMO3. RMO2

EXTENDED DRIVE

MACY11

CoRMFB. P11

21-NOV-77

124
125
;Sg

000240
000300
000340

PRG=
PR6=
PR7=

100000

Su1S="

13]
132
k]
139

020000
010000
004000
002000

SWi3=
SWl2=
SWil=
SWl0=

20000
10000
4000
2000

136
137
i3
133
1%G
ICH
162
143

000400
000200
000100
000040
000020
000010
000004
000002

Swi8=
SW07=
SWoe=
SWOS=
SWo4=
SW03=
SWi2=
SwWil=

400
200
100
40
20
ID
4
2

128

129

130

13¢g

144
14g
14€

0406000

001000

000001

1§47

187

15g
iE9
160
161
162
163
169
1BE
166
1€7
1€8
1€9
175
171
172
173
179
17¢
iTE
ivT
178
179

100000

040000
020000
010000
004000
002000
001000
000400
000200
000100
000040
000022
000010
000004
960002
060001

30(1046)

BRSIC DEFINITIONS
240
300
340

JO3

22-NOV-77

08:04

::PRIORITY LEVEL S
::PRIORITY LEVEL &
D 'PRIORITY LEVEL 7

- #"SWITCH REGISTER” SWITCH DEFINITIONS

SWid9=

SW09=

100000

40000

1000

SWoD=
CEQUIV
-EQUIV

|
SW09, SW9
SwW08.5u8

"EQUIV
"EQUIV
"EQUIV
-EQUIV
"EQUIV
.EQUIV
"EQUIV

SWOG.SWe
SWOS’ WS
SW09
. SW4
SW03.5u3
SW02.5uWe
SWOI.SWI
SWO0.SW0

CEQUIV

i4e
149
1o
1€
.82
i83
igg

:SE

14:10

TEST

SWO7.5W?

. ¥DATR BIT DEFINITIONS

B81T1S=

BITi4=
BITi3=
BiTlie=
BITli=
BIT10=
8IT09=
BIT08=
BIT07=
B8IT0e=
BITOS=
BITO4=
BIT03=
BITO2=
BITOI=
BITO0=
JEQUIV
.EQUIv
.EQUIv
.EQUIV
.EQUIv
"EGUIv
_EQUIV

100000

40000
20000
10000
4000
2000
1000
400
20C
100
40
20
10
N
2
|
BIT09,BIT9
BIT08,BITH
BIT07.B117
BIT06.BITE
BITOS.BITS
BITON,BITH
BIT03.BIT3

(BITOC TO BITIS)

PAGE

SEG 003%

&>4
P“D

-11-D2RMF-B RMO3-RMO2 EXTENDED DRIVE TEST

RMFB. P11

21-NOV-77

18C
181
igg

[4:10

BRSIC

.EQUIV
.EQUIV
.EQUIv

MACY1]l

30(1046)

DEFINITIONS

KO3

22-NOV-77

08:04

PAGE &

SEG 003

BITD2,BIT2
BITO0I,BITI
BIT00,BITO

189
188
186

000004
000010

#BARSIC "cpu" TRAP VECTOR noonsssss
ERRVECS
TIME OUT AND OTHER ERRORS
RESVEC= 10
..nssenvso AND ILLEGAL INSTRUCTIONS

188

000014

TRTVEC= 1M

187

000014

TBITVEC=14

189
190
191

000014
000020
000024

BPTVEC= 14
IOTVEC= 20
PWRVEC= 24

193

000034

TRAPVEC =34

182

000030

194

00000

196
igg

003240

19¢

000064

égg

TRAP

: 1 BREAKPOINT TRAP (BPT
.,xnpur/ourpur TRAP (101)
:POWER FAIL

% #SCOPE
&%

EMTVEC= 30

,,EHULRTOR TRAP (EMT) %#ERROR#%#%

TKVEC=

,,TTY xsvaonao VECTOR

TPVEC=

i ISTRAPTM

60
&Y

TRAP

:TTY PRINTER VECTOR

PIRQVEC 240
: PROGRAM INTERRUPT REQUEST VECTOR
illi*l!!l!lll!l!l!lllli‘ii!Illlllllll!lllllliililll!i!lilliti!l
.SBTTL

]

,,Tnnc

RH70 REGISTERS

sgé

;;ilililli!l!ililiii}ililiillll{!illlliilii!i!ill}ll!ii!lililllif

583

;:CONTROL AND STATUS REGISTER 1

205

000100

207
208
209
210
2l
gig

000400
001000
002000
020000
040000

206

000200

214

1E=

ROY=

Alb=

Al7=
PSEL=

MCPE=
TRE=
:SC=

100

(RMCS1)
: INTERRUPT ENABLE

200

400
1000
2000
20000
40000
100000

‘READY (BIT #7)

(BIT

:HIGH ORDER BUS ADDRESS BIT (BIT #8)

"HIGH ORDER BUS ARDDRESS BIT (BIT #9)
:PORT SELECT (BIT #10)

:MASSBUSS PARITY ERROR (BIT #.13)

: TRANSFER ERROR (BIT #14

‘SPECTIAL CONDITION (BIT 15,

:WORD COUNT REGISTER (RMWC)

Sig

: (EACH BIT

elz

euc ADDRESS REGISTER (RMBR)

Sgg

;CONTROL AND STATUS REGISTER 2

(RMCS2)

000001
008002

uSls=
usSe=

1
2

:UNIT SELECT (BIT %0
:UNIT SELECT (BIT 1)

000040

.PRT=
{LR=

20
40

:MASSBUS PRRITY TEST
iCLEAR (BIT #5)

513
c

2ee
222
224
2es

226
227

(EACH BIT

000004
000010

228
ge9
230
231

000100
008200
000400
001000

22¢

020000

232
£33
234

002000
004000
010000

USu=
BAl=

IR=
OR=
MPE=
MXF =

PGE=
NEM=
NED=
UPE =

1S CALLED BY BIT NUMBER)

IS CALLED BY BIT NUMBER)

4
10

10
200
400
1000

2000
4000
10000

20000

JUNIT SELECT (BIT $2)
:BUS RDDRESS INCREMENT

INHIBIT

: INPUT READY (BIT #6)
:OUTPUT RERDY (BIT #7)
;MASS BUS_ PARITY ERROR
:MISSED TRANSFER ERROR

(BIT
(BIT

(BIT #4:

#8)
9.

:PROGRAM ERROR (BIT #10)
'NON EXISTENT MEMORY (BIT #11.
:NON EXISTENT DRIVE (BIT #12)
:UNIBUS PARITY ERROR

(BIT

%13,

.BIT

MACYl]l 30(1046)
MD-11-D2 RMF-B RMO3/RMO2 EXTENDED DRIVE TEST
CZRMFB.PLI
21-NOV-77 14:10
RH?0 REGISTERS

236

ggg

C40000

100000

239

WCE=

DLT=

LO3

22-NOV-7?7

40000

08:04

PRGE ?

sWRITE CHECK ERROR

100000

SEC 0027

(BIT #!4

:DATA LATE (BIT u15)

:DATR BUFFER REGISTER

(RMDB)

S:?

; (ERCH BIT

242
543

HH RRBERRERERERBARBEFERERERREERERERERERRERERARERRESRELE P RERAE SRR R RS

IS CALLED BY BIT NUMBER)

g:g

.SBTTL

Swg

R 22T

g:g

;CONTROL AND STATUS

251
252
253
254
255
256

ggg

000001
000002
000004
000010
000020
000040

004000

SEB
261

262
263
264
265
266
%4
268

269
270
595

DVA=

000001

OM=

e
DRY=
DPR=
PGM=

100
200
400
1000

020000
040000
100000

PIP=
CRR=
ATA=

20000
40000
100000

002000
004000
010000

LST=
WRL=
MOL =

;DEVICE AVAILABLE

000001

ILF=

000004
000010
000020

RMR=
PAR=
FER=

(#01)

;LAST SECTOR TRANSFERRED (BIT #1Q)
:WRITE LOCK (BIT #!l)
sMEDIUM ON-LINE (BIT sl12)
)

;POSITIONING OPERATION IN PROGRESS
:COMPOSITE ERROR (BIT #14)
:ATTENTION ACTIVE (BIT #1S)

(RMER];

4
10
20

;REGISTER MODIFICATION REFUSEC
;PRRI Y ERROR (BIT #3)
:FORMAT ERROR (BIT #4)

WCF =
ECH=
HCE=
HCRC=
AOE=
IRE=

40
100
200
400
1000
2000

28e
2e9
293

020000
040000
100000

OPl=
UNS=
DCk=

20000
40000
100000

4000
10000

'BITM

(#02)
; ILLEGAL FUNCTION

000040
000100
000200
000400
001000
002000

WLE=
OTE=

#1l)

280
281
282
283
e84
28¢c

004000
010000

ILR=

#l
82
#3
#4
85
(BIT

VOLUME VALID (BIT #6)
‘DRIVE READY (BIT #7)
:ORIVE PRESENT (BIT #8)
:PROGRAMABLE (BIT #9)

2000
4000
10000

:ERROR REGISTER #0!

(%00)
;GO BIT (BIT #0)
:FUNCTION CODE BIT
;FUNCTION CODE e{r
;FUNCTION CODE BIT
;FUNCTION CODE BIT
:FUNCTION CODE BIT

000100
000200
000400
001000

000002

28
2e7?

2222222222222 222222 S22L L)

1
2
4
10
0
40
4000

276

277
278
279

SRS

:DRIVE STATUS REGISTER (RMDS)

5;3
27s

GO=
Fi=
Fe=
F3=
Fy=
FS=

RMO3 REGISTERS

(BIT

#0)

:ILLEGAL REGISTER (BIT #1)

(BIT

‘WRITE CLOCK FRIL (BIT #5)
:ECC HARD ERROR (BIT #6)
‘HEADER COMPARE ERROR (BIT #7)
'HERDER CRC ERROR (BIT #8)
:ADDRESS OVERFLOW ERROR (BIT 89
PINVALID ADDRESS ERROR (BIT #10)
"WRITE LOCK ERROR (BIT #ll)
"DRIVE TIMING ERROR (BIT #12)
:OPERATION INCOMPLETE (BIT 813)
‘DRIVE UNSRFE (BIT #]4)
‘DATA CHECK ERROR (BIT 15

%2)

#13.

e9e
293
oM
g%g

298
299
300
301
302
303
304
208
306
307
308
309
310
3il
312

313
314
31€
216

317

316
219
320
321
322
323
324

325
326

=7
328
229
23C
33
332
332
334
33<
236
337
238
329
34C
“l

MACY1l 30(1046)
TEST
RMO3 REGISTERS

;MAINTARAINABILITY REGISTER
000001
000002

200010
000020

000040
000100
000200
000400
001000
002000
004000
010000
020000
100000

1
e

EECC=
WC=
CONT=

20
40
100

PHA=

PDA=
ECRC=
PLFS=
ESRC=

REX=

£EBL=

:R/G=

bce=

000004
000010
000020
000040
000100
000200
000400
001000
002000
004000
010000
020000
040000
1000030

DMD=
MSC=
MI=
MWP =

0000

40000

100000
#0!

200
400
1600
eny

MSEN=

48§

DTo=
20000
OBEN=40000
0BCK=
100000

RT0=
RT]=
ATe=
AT3=
ATY=

1
e
4
10
20

RTb=
RT?=

100
200

RTS5=

(RMAS)

;DEVICE
.DEVICE
;DEVIC
;DEVIC
EDEVICE

;:DRIVE TYPE REGISTER (RMDT,

00000¢

DY00=
CT01=

O (BIT #0)
1 (g}T 8l)
s (BIT #2)
(BIT 83)
Y (BI; :g;

;DEVICE 7 (BT 87)

KL
>
34e

0002001

(804)

REVICE 2 (Bl )

: PERLAB (TG BATEER SRR SRR R

347

- WRITE ONLY BITS

100

gqe
43

(#03)

; DIARGNOSTIC MODE BIT

1
2
e
10

MSER=
MOC=
MUR=
MRD=

(RMMR1)

;RTTENTION SUMMARY PSEUDC-REGISTER
000001
08005suU2
Co0004
00001C
200020
0004
00:0
000200

- RERD ONLY BITS

400
1000
2000
4088

20
40

MCLK=

(RMMR1)(#03)

SEG 0038

200

DTG=
MS=

MDF =

PAGE 8

;MAINTAINARBILITY REGISTER
p00001
000002

#0!

08:04

; DIAGNOSTIC MOOE

OMD=
LS]T=

ab:

MO3

22-Nov-77

O R)

(80S;

(806)
;DRIVE TYPE NUMBER g T 1
A >
;:CRIVE TYPE UMBER
-t

MD-11-CZRMF-B RMO3 RMO2 EXTENDED DRIVE
CZRMFB.PLL
2l-NOvV-77 14:10

360

TAP=

40000

NBR=

; LOOK-RHEARD REGISTER

363

000100

SCO=

36E
38

000400

SCe=
;9C3=
;SC4=

364

20200

SCi=

(RMLA)

401

40e

DO NN LW

#ll,

;SECTOR COUNT FIELD O

400
1000
2000

:SECTOR COUNT FIELD 2 (BIT 88,
;SECTOR COUNT FIELD 3 (BIT #3)
:SECTOR COUNT FIELD 4 (BIT 10
(RMMR2)

(#10)

;RMD3 OFFSET D

10000

FORHQT BIT ¢

;OESIRED CYLINDER ADDRESS

(BIT

#b)

:SECTOR COUNT FIELD ! (BIT #7)

OFFSET REGISTER (RMOF) (#11)
FMT2e=

(BIT

100

200

394

(807}

:RMO3 ERROR REGISTER #02 (RMMR2) (#10)

010000

<
v

PE DRIVE (BIT

382 '

329

TYPE NUMBER
TYPE NUMBER

NOT BLOCK noonessso (BIT #1S)

;RMO3 MARINTAINRBILITY REGISTER #2

OFFDIR=

TYPE NUMBER
E NOMBER

REQUEST REOU
ING HERD 'BI

370

000001

TYPE NUMBER
TYPE NUMBER

-y

bt bt 4
4

;

100000

SEQ 0039
£ —ODDOmODD
e Ga) 0 04 0= 00—t 0t g 4
e
e B e e e
e ]

1000060

;
;

D-.

040000

4000

PARGE

(RMDC)

(sl2

: (EACH BIT IS CALLED BY BIT NUMBER)

e L

357

358

DRG=

(8:04
CLLCCCLC<
mmmMmmmmm

Co4000

NO3

22-NOV-77

€t A

000004

355

3001046

AIOOOOOOOO
DODVDIDVIDDHDVD

REGIST ERS

348

21-Nov-77 14:10

MAC Y1l

ne—
g
(e]a)

CZRMFB.P1IL

TEST

o
o

MD-11-DZRMF-8 RMO3/RMO2 EXTENDED DRIVE

MD-11-D2RMF-B8 RMO3 RMO2 EXTENDED DRIVE TEST

CoRMFB.PILL

21-NOV-r7 14:10

MACY]1 30(1046)

RMO3 REGISTERS

BOY4

22-NOV-77

NON

; CURRENT CYLINDER ADDRESS (RMHR)

407

:SERIAL NUMBER REGISTER (RMSN)

:82

: (ERCH BIT

:gg

1TERCH

410

:{é

41%
3{;

IS CALLED 8Y BIT

OPE=
SKI=

PARGE 10

(813)

IS CALLED BY BIT NUMBER)

;RMO3 ERROR REGISTER

020000
040000

08:04

20000
40000

802

NUMBER)

(#14)

(RMER2)

(815)

: OPERATOR PLUG ERROR (BIT 813
‘SEEK INCOMPLETE (BIT #15)

418

:ECC POSITION REGISTER (RMEC1) (816

421
:sg

:ECC PATTERN REGISTER (RMEC2) (#17)
' (EACH BIT 1S CALLED B BIT NUMBER)

:gg

HIN EREBRBEEREREEREREEFRBERRERRERE
R LR EEERRERREEERRE

353

426

427

: (ERCH BIT

000191

428
429
430
43]
432
433
434
43¢
436
437
438

300103
000105
0001C?
600111
000113
000115
000117
000121
000123
000131
000:5!

440

000161

442

000171

g
q4E
4ub

000141
000142
00G14E

439
48]

<43

<50
4E]

L ER AR LR R AR R EEEES

. 0P CODE DEFINITIONS

fNOOP=101

UNLORD=103
SEEK=105
RECAL=107
DRVCLR=111
RELEASE=113
FFSET=11
RTC=117
READIN=121
PACK=123
SEARCH=131
WRCKD=151

000153
000162

WRCKHD=162
WRTHO=163

N0C173

READHD=173

332

IS CALLED BY BIT NUMBER)

WRITE=16]

READ=171

GETREG=141
SETFORM=
143
SELDRV=145

:OTHER EQUATES
177400
010GG0

SCTRWC = -256.
FMT22=10600

:WORD COUNT FOR SECTOR
:FORMAT 22 BIT

SEG 0040

HD il- D’RHF B RMO3 RMO2 EXTENDED DRIVE TE
<R MFB. Pll

21-NOv- 77
¢

IM:iC

fl? él
3

T PARRRMETE

(1045)

CcCO4

22-N0v-77

08:04

453

.SBTTL

428

'SET LOCRTIONS 24 AND 44 RS REQUIRED FOR AP

Hsg

§S7T
460
461
462

463

000024

000044

454

000220
000024
00020C
000044
00Cz20

000223

465

466
NET
468
469

470
‘4/1

NT2

4?3
S TM

SEG 0041

APT PRRAMETER BLOCK

lli!lllllllllilll!llllii!l!lilllili!llilllll!ililllllllllilllli

458
ugq

PAGE

300220
00GCe220
000222
000224
000226
00Ce30
800232

Illlllllilli!l!lillllllll'llllillIllllllllli!llllllllilillll!ll»

.$x=.

Jz24

200

;:SAVE CURRENT LOCATION

,,ser PGWER FAILTO POINT TO START OF PROGRAM

. =4y
POI
NT TO RPT Iuoxnscr ADDRESS PNTR.
$APTHDR ,,POINT TG RPT HERDER BLOCK
=. $X
RESET LOCATION COUNTES
PP TP
I AP
I
T T T
%E;ggrggg ggggfliTER BLOCK RS DEFINED IN THE RPT-PDP1l DIRGNOSTIC
SRAPTHD:

000000

SHIBTS: .WOR
SNERDR:
LORD

Smar

,,TH H
8
BIT MRl BOX QODR
81
1D
8 é?“o? I7 1 ohaiCadx
(BITS
0

001604
001604
300C3C

$PASTY: . WORD

S00.

,,RUN TIME IN SECS. OF 1S7 PRSS ON

$TSTM:

.WORD

SUNITM:

.WORD

. WORD

900.
300.

TIH LONGEST TEST

ADDITIONAL RUN TIME

UNIT

(QUICK

VERIFY )

(SECS é OF A PRASS FOR ERCH RDDITIONAL UNIT

S‘TEND-SfihIL/E ; ;LENGTH MARILBOX-ETABLE (WORCS

MF -8

RMO3 ‘RMD2 EXTENDED DRIVE

21-NOV-77 14:10

TEST

MACYL1l

COMMON TRGS
.SBTTL

3001046)

DO4

22-NOV-77

08:04

PRGE

SEG O042

COMMON TRGS

SRR

R AR RE SRS RRR R AR R R R R R R AR R R RN RN

RR AR NS RERR RO RS

:ETHIS TABLE CONTAINS VARIOUS COMMON STORARGE LOCATIONS
; #®USED

686886888888888 8888888888888888888888853888888

1100
1100

000000

1122
1124
1126
1130

000000
DOOCOC
000000
000000

113y
1135

000
600

1102
1103
1104
1106
1116
1112
1114
1115
11:6
1120

1132

1136

iy cinanonicananenenen
v nun

SCMTAG:

00C
GO0
0uo000
00
500000
000000
600
001
00
000000

STSTNM:
$ERFLG:
SICNT:
SLPADR:
SLPERR:
SERTTL:
SITEMB:
SERMAX:
SERRPC:
SGDADR:

000002

THE

PROGRAM.

.=1100
.WORD

.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.BYTE
.BYTE
.WORD
.WORD

O
@
O
O
O
O
O
1
O
G

: :CONTRINS ADDRESS OF 'BAC’
!CONTRINS 'GGOD’ DATA
::CONTAINS *BARD’ DRTA
' 'RESERVED--NOT TO BE USED

$AUTOB:
SINTAG:

.BYTE
.BYTE

O
O

; :AUTOMATIC MODE
' INTERRUPT MODE

: ; ADDRESS OF SWITCH REGISTER
: 'RDDRESS OF DISPLAY REGISTER
tITTY KBD STATUS
"!TTY KBD BUFF
!!TTY PRINTER STATUS REG. ADDRESS
' 1TTY PRINTER BUFFER REG.
ADDRESS _
..courn%ns NULL CHARACTER FOR FilLLS _
''CONTAINS 8 OF FILLER CHARACTERS REGUIREC
' INSERT FILL CHRRS. AFTER A "LINE FEED"

"WORD

'WORD

C
O

DSWR
DDISP

1185
1156
1157
1160

002
012
00G
000000

§FILLS:
SFILLC:
STPFLG:
SREGAD:

.BYTE
.BYTE
.BYTE
.WURD

2
l2
O
O

1152
1164
1166
1170
1172

000000
000000
0000CT
00000C
§

SREGO:
SREGL:
entiz:
SREG3:
SREGH:

.WORD
.WORD
.WORD
.WORD
.WORD

O
C
O
O
O

1176
1200
1202
1204
1206
1210
1214
1215
12:€

0OO0OGCO
100000
000500
000000
00GOOO
17760
077
gle
000G:2

§TMPO:
.WORC
STMP]
WORD
STMP2:
.WORD
STIMES: O
$ESCAPE: 0
$8ELL:
.ASCIZ
$QUES:
.ASCIT
§CRLF:
.ASCII
$LF:
‘A5CIZ

ENULL:

SREGS:

0CO377

THE TEST NUMBER
ERROR FLRG
SUBTEST ITERATION COUNT
SCOPE LOOP RODRESS
SCOPE RETURN FOR ERRORS
TOTAL ERRORS DETECTED
ITEM CONTROL BYTE
MAX. ERRORS PER TEST
PC OF LRST ERROR INSTRUCTICN
RDDRESS OF 'GOOC' DATA

O
O
O
O

SWR:
JWORD
DISPLAY: .WORD
§TKS:
177560
$TKB:
177562
§TPS:
177564
S§TFR:
177566

: sCONTRINS
: :CONTRINS
:'CONTAINS
: :CONTRINS
: ;CONTAING
1:CONTRINS
::CONTRING
: ;CONTRINS
*'CONTRINS
't CONTRINS

.WORD
.WORG
.WORD
"WORD

177670
177578
177860
177562
177564
177%66

1174

. :STRRT OF COMMON TRGS

$80ADR:
§GOCAT:
§800AT:

1180
1142
1144
1146
1180
1182

1154

(.nutumr\lfxr\.mflnmm»-wv—o»-»—-o—»—v—o—-»—
[@INU RN u

001100

.BYTE

.WORGC

O
0
O
<207>:377.-377,
/7,
«<1%>
<12

DRTA

INDICATOR
INDICATOR

"I~TERMINAL AVAILABLETM FLAG (BIT.-07>=0=1ES;
! 'CONTRINS THE RODRESS FRGM
!1SICH
(SREGO) WAS OBTAINED
P ICONTAINS ((SREGAD)+D)
,.CONTR}N? ((zascno>+a)
! CONTRINS
((SREGAD)+4"
! 'CONTRINS ( (SREGRD)+6)
i ourninc “2“ GRD)+10)

DICONTAINS ((SREGRD)+12)

: 1USER DEF INED
: 'USER DEF INED
: 'USERP DEF INED
S!MAX
NUMBER OF ITERATIONS
' 'ESCAPE ON ERROR RDORESS
::CODE FOR BELL
P 1QUESTION MARK
: :CARRIAGE RETURN
: 'UINE FEED

M il’illllilllillifliiiiilQQli!li“ill’l’li'll}ili}f’i’lll!”iki’0’
4BTTL APT MAILBOX-ETRBLE

EOY

MD-11-DZRMF-B RMO3/RMO2 EXTENDED DRIVE TEST
MACY1]l 30(1046)
CCRMFB.F11
21-NOV-7+ 14:10
APT MAILBOX-ETABLE
53]

532

633

001220

€36
6§37

001282
(001224

€38
£39
S40
€41
€42
€43
S44
€45
S4&
47
S4g

g4a

VEN

001220

00000C

001226
001230
001232
001234
(01236
001240
001240
001241
0OCl1242
001244
001246

000060
0000
000060
000000
000000

§MATL :

000000
000000

000
0G0
000002
000000
000000

557

0G125C
0012€]

000
ool

00125S

566
S67
£68
SeS

001260
001261
0012
00leoeH

RENV
RENVM
ASWREG
~ AUSWR
ACPUOP

€73
574
€7

::FATAL ERROR NUMBER
;;TEST NUMBER

;:PASS COUN
;;DEVICE COUNT
::1/0 UNIT NUMBER
; ; MESSAGE nooaess
::MESSAGE
LENG
' APT ENVIRONHEHT TRBLE
: 'ENVIRONMENT BYTE
:;ENVIRONMENT MODE BITS
:;APT SWITCH REGISTER
;;USER_SWITCHES
CPU TYPE,OPTIONS

Bt7s 15-11%CPU TYPE

11/04=01,11/06= oa 11,20=03, 11-40=04, 11/45=05

.BYTE
.BYTE

AMAMSI
AMTYPl

BIT
BIT
BIT

11/70=

snnon1 .WORD
tnnnsa .BYTE

,Poa 07

10=REAL TIME CLOCK
"9=FLOATING POINT PROCESSOP
B=MEMORY MANAGEMENT

;;WICH ADDRESS,M.S. BYTE
::MEM. TYPE,BLKSI

MM, TYPE ev?e -- _(HIGH BYTE}
0 NSEC

CORE=

300 NSEC BIPOLAR=002

510 NSEC nos:

AMADRL
AMAMS2

;;HIGH no.asss
"MEM. LAST ADDR. -3 avres THIS WORD AND LOW OF “TYPETM ABOVE
.,chu nooqsss M.S. BYTE'

RAMADRE

,,rcn LAS

060

§MTYP2: .BYTE

AMTYP2

000

000000

§MAMS3:
§MTYP3:
$MADR3:
$MAMSY:

.BYTE
.BYTE
.WORD
.BYTE

AMAMS3
AMTIYP3
AMADR3
AMAMSY

::HIGH RDDRESS,M.S.BYTE
::MEM.TYPE, BLKE3
;:MEM.LAS aoonsss BLk 83
; :HIGH RDDRESS S BYTE

001272
061274
001376

000000
000000
000000

SVECT2:
$BASE
SOE VM

.WORD
WORD
WORD

AVECT2
ABASE
RDEVM

::INTERRUPT VECTORS28US PRIORITY#2
' BASE nooaess OF EQUIPMENT UNDER TEST
;;oev

001300

000015
000012
000600

¢R
LF
C.SWR:

001256

00000C

§MADR2:

£7C0 001265
€71 001266 000000
§72 001270 000000
001300

001302
001304
001306
©01310
OCI2I4

I7E77T

.WORD

SMTYP4: .BYTE
SMADRY: .WORD
SVECT!: .WORD

SETEND

_MEXIT

000000
000000
00000C
000008

€6= CCl318 000000
€8e

.BYTE
.BYTE
_WORD
.WORD
.WORD

;:MESSRGE TYPE CODE

‘a

Se4

81
82
€e3
€e4

APASS
ADEVCT
AUNIT
AMSGRD
AMSGLG

§MaMS1:
SMTYP!:

61 001252 000000
562
63 001254
000

578
€79
€85

.WORD
WORD
.WORD
.WORD
.WORD

a
¥
‘x

5e0

§PASS:
SDEVCT:
SUNIT:
$MSGRD:
§MSGLG:
SETRBLE
SENV:
SENVM:
§SWREG:
SUSWR:
S§CPUOP:

AFRTAL
ATESTN

559

€27

PRGE 13

,,npr MAILBOX

AMSGTY

558

.WORD

S5€
556

SMSGTY:

SFATAL: .WORD
§TESTN: .WORD

g¢,

§52
553
554

08:04

tl!IiilllllIIlillli!’lllIlllllllll!lllillllllillfll!ilifiiii}liili

534

§35

22-NOV-77

0C0CGZ

=
=
.WORC

15
12
O

:CONTROL SWITCHES

‘DRIVES SELECTED FOR TssrxNG

O
O
O
O

TSTNMS:

176777.3

.WORD

nooness BLK#2

AMTYP4 ;:MEM.TYPE,Bqu
AMADRY ;:MEM.LAST’ nooflzss
AVECTI ..xnrsnnupr vecvonbx aus PRIORITY#!

SAVCSW: .WORD
CNIRLC: .WORG
BUSRDR: .WORD
LPTAVL: .WORD

DPVSEL CWORD

::MEM.TY
P§
BLkk2

:PREVIOUS CONTENTS OF 'C.SWR®
:CONTROL “CTM FLRG
:GET ADDRESSES FROM THE TTY FLRG (0=NC, -1=YES)
'LPT AVAILABLE STATUS (0=NO, 1=VES)

‘DEFAULT IS RUN TESTS 0-10 8 12-21

SES M2

MC-11-CIRMF-8 RMO3.RMO2 EXTENDED ORIVE
CCRMFB.PILI
el1-NOv-77
10
S8

ggg

0C1324

J0C1320

0300000

S30
591

0Cl326
001330

G00CcO
040432

S94
595
S36
€9"
€38
S99

001336
001340

S92
593

600
601
€0
603
60«
€05
&3

.WORD
.WORD

16.
16656

i 16 HILLISECONDS PER CLOCK TICK
;16666 MIRCOSECONDS PER CLOCK TICK

O
O
O

00lvle
001416
001420
001424

CYL.DS:
SEC.DS:
TRk.0S:
TIM.UP:

00000C

TIM.DN:
000000

000000

TIM.PT:

000000

DO0CC00
00000C
000000

620
&2l
tce
ec3
€24
625
626
£27

001426
001430
001432
001434
001436
001440
DO0l442
001444

000000
000000
160000
00001e
0000l2
0l11lel0
000021
144

629

00144E

000

%g?

TICKMS:
TICKUS:

CYL.RD: .WORD
TRK.RD: .WOGRD
SEC.RD:
.WORD

0CI414

ece

;MODIFY TEST PARAMETER FLRGS

00C0ao
(000000
0000

£l

WCEFLG:
00070C

STALLO:
SVRDR:
SEKTMR:

SEKCNT:
DELTA:
TRCKWC:
STALL]
STALL2:
STALL3:
MXSTAL:
ERR.CT:

0Cil446

00000C

BASFLG:

£33
634
€35
636
£37
€38

0CINS0
001452
00I45e
001462
001464
001466

176700
000254
000104
172540
172542
172544

h ADR:
RHVEC:
PKV:
PK(CS:
PKB:
PKC:

E40

DOIN?Y

£3c

£39

E<4l

g4z

001470

000100

00I47e

177564

OCIS00

[77S4E

177Ste

.WORD
.WORD

.WORD
.WORD
.WORCL
.WORD
WORD
WORD
WORD

000102

LKV:

LKS:
TPS:
TPB:

SL8CK15TQTUS(0=NO CLOCK,+1=KWl1-P,

O
O

;DRIVE UNDER TEST

:DRIVE MASK BIT
; STATUS/ERROR INDICQTOR IS
;SAVED HERE ON
AN ERROR
: CYLINDER RERD
: TRACK READ
:SECTOR_READ

Q
C
O
C
C

; CYLINDER DESIRED
; SECTOR DESIRED
; 1RRCK DESIRED
sMINIMUM TIME
; NUMBER OF COUNTS BELOW MIN.
,HQXIHUH TIME
NUMBER OF COUNTS ABOVE MAX.

L IMIT

LIMIT

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

0.0
O
O
O
O
O
0,0
O

(TOTAL TIME OF AL SEEKS
i NUMBER OF SEEKS PERFORMED
SMINIMUM TIME
; NUMBER OF COUNTS BELOW MIN. LIMIT
IMAXIMUM TIME
iNUMBER OF COUNTS ABOVE MAX. LIMIT
;TOTAL TIME OF ALL SEEKS
iNUMBER OF SEEKS PERFORMED

.WORD

,FQTRL WRITE CHZCK ERROR FLAG (TESTM 2C)

.WORD

.WORD
.WORD
.WORD

POINTS TO _TABLE OF

O
0,0
QO

.WORD
WORD
.WORD
WORD
.WORD
.WORD
.WORD
.BYTE

O
O
-<25b.%32.°
10.
10.
SQO00
25S.
1G0.

.BYTE

.WORD

QDDRESSES AND VECTORS

000240
000106

SEG 0044

0,0

0CQiz42
001344
001346

00
3G000C
0000
(000000
00
000030
000C
000000

O
O

005000
002000
000000
0C00
000000
00CT00
000000

PRGE

.WORD

DRVMSK: .WORD
SVSTAT: .WORD

001350
001352
00i3S4
Q013SE
001360
0Ci362
001364

08:04

OPNFLG:

BYPRSS:
CHKORV:

000000
000000

22-NOv-77

CLKSTA: .WORD

000000
000000

001366
001372
001374
Q01376
001400
0014Q2
00iv0M
001410

&17
£l
£19

00cooC

001332
Q01334

627
608
£09
€13
£11
ole
El3
E.4

&.S

0000COo

FOM

TEST
MACYl1l 30(1046)
RPT MAILBOX-ETARBLE

TIMES

; VRRIABLE STALL (TEST
; SAVE DISK ADDRESS (TEST
;SEEK
TIMER
(TEST

ce)

; SEEK CCUNTER
; TESTING RANGE FOR SERVQ SETTI= DOWN TEST
;WORD COUNT FOR R FULL TRACK [N 16 BIT MODE
; 10 MILLISECONDS STALL (TEST O-1
;10 MILLISECONDS STALL (TEST lb- 21)
;S SEC _STALL (TEST 22)
;HQX. INCREMENT ING STQLL ALLOWED IN TEST 4
; NUMBER OF ERRORS ALLOWED IN TESTS & - 21

:BEFORE GOING TO THE NEXT TEST
RESERVED

; FLRG FOh DETECTING BRD SECTOR

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

176700
254,5*32.
104,106
172540
172542
172544

; RH70 UNIBUS RDORESS
iRH?0 VECTOR ADDRESS AND PRIORITY
iKW1I-P VECTOR ADDRESS
;KW11-P CONTROL AND STATUS REG.
{KW11-P COUNT SET BUFFER
iKW11-P COUNTER

- WORD

177546

;KWll-L STATUS REGISTER

. WORD

.WORD

100,102

177564

177566

;KWll-L

VECTOR ADDRESS

;TTY PRINTER STR

TTY PRINTER BurFER

MD-11-DZRMF-B RMO3 RMO2 EXTENDED DRIVE
CoRMFB.P1I
21-NOV-77 [4:10
643
g:g
646

647

TEST
APT

MACY1] 30(1046)
MAILBOX-ETABLE

0015802
001504

177514
177516

LPS:
LPB:

001506

00000I

817s:

BIT

.WORD
.WORD
TABLE

.WORD

177514
1775186

08:04

PRGE

SES J0M4E

:LINE PRINTER STATUS
:LINE PRINTER BUFFEFR

BITOD

648
649
650
651
652
683
£ES4
655
656
6S?7
658
659
660
661
662
663
664
665
b6
66668
669
e7C

001510
001512
001514
OCiSi&
001520
00.:522
D01SeM
001526
001530
001532
001534
001536
001540
001842
001S44
001546
001550
001552
001554
001586
001560
001562
001564

000002
000004
0010
000020
00004C
000100
0200
000400
001000
002000
004000
010000
00
040000
100000
000001
000002
000004
0010
000020
000040
000100
000200

£73
E79

001566

000000

: COMMON STORAGE FOR TEST PRRAMETER
PRM:
_WORD
O
:THIS WORD TELLS WHICH OF THE

£~&
€77
€72
€79
£8C
681

0015?70
001572
001574
001576
001600
001602

000000
000000
(000000
000000
000000
000000

RPT:
FC:
LC:
IC:
FT:
LT:

£55

£75

£82
£83
684
685
£8E
Egg

£€9

£90

£9]
652
£33
E94
E9S
€3t
£97
£9E

001604
001606
001610
00!6l2
001614
00i6le

000000
0CO0
000000
000000
000000
000000

IT:
FS:
LS:
PAT:
NC1:
NC2:

001620

002412

PRMPT :

001e22
001624
D00l6ee
001630
001632
001634
00le3e
OCle~C

00242€
002454
002476
002S20
002582
002564
00260c
GO2E2E

.WORD
.WORD
.WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
.WORD
.WORD
.WORD
. WORD
.WORD
WORD
WORD
WORD
WORD
WORD
WORD
.WORD
_.WORD

GO4

22-NOV-77

.WMORD
.WORD
WORD
WORD
.WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD

BITOI
BITD2
BIT03
BITOM
BITOS
BITO6
BITO?
BITO8
BITO9
BITIO
BITI}
BIT12
81713
IT14
BITIS
BITOD
BITO!
BITO2
BITG3
BITO4
BITOS
BITO6
BITO?

O
O
O
O
O
O

O
O
O
G
O
O

TABLE OF PRARAMETER POINTERS

ORD

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
-WORD
.WORD

PRM!
PRM2
PRM3
PRMY
PRMS
PRMb
PRM?
PRMIC

:FOLLOWING PARAMETERS

:REPEAT COUNTS FOR ALL
:FIRST CYLINDER
:LAST CYL INDER
.xncnensnr CYLINDER
:FIRST TRACK
:LRST TRR

: INCREMENT TRACK
:FIRST SECTOR
;LAST SECTOR
:PATTERN CODE
iNEW CYLINDER ADDRESS
:NEW CYLINDER AODDRESS

ARE

TG BE

TESTS

USEC

MD-11-DZRMF-B RMO3 RMO2 EXTENDED ORIVE
CoRMFB. Pll
21-NOV-77 14:10

ARk
Ik Rk Iat IR Iok ok Il ok Il Il
(4§ L e ey ey ey Ry S
Sy = Q
NN—Owo NN
L W0 O

g |

MACYL1l 30(1046)
TEST
APT MAILBOX-ETARBLE

i e

.WOR
.WOR
. WORD

PRM]
|
PRM12
Paaxa

.WORD

PRM}?

B8168q 83858

.u8a8

Pnngé

Y
881
00164&

BREE7E
002704

08:04

PRGE

SEG O04e

R ERls

501680

. WORD

00i6bb

000000

301670

032767
001466
001466
001466
001466
001466
000004
C00004
000004
000037

PRMLMT:

O4S104
g4s106
Qusill
O45114

PRMMSG:

. TABLE

PARAMETER UPPER

.WORD
WORD

WORD

822.

URe
i“FC*

pLet

TUFC

WORD
WORD
WORD

B822.
M4
M

(" Ic”
SeFT
SeLT”

31.
3I.
177777

i Fge
s g
(PAT

822.

nessnoe

.WORD

-WOR
. WOR
WORD
.WORD
. WOR

-WOR
WORD

.WORD
.WORD
.WORD

045140
048143

822.

LIMITS

822.

WORD
WORD
WORD
TABLE

32767

: TERMINATOR

WORD

co0ogo3”
172777

001742

HO4

22-NOv-77

sULS”

POINTERS

MSG.R

MSG.FC
M5G. LC
MSGFCP
MSGLCP
MSG. IC

MSG.FT
MSG.LT

MSG.IT
MSG.FS
MSG.LS

; STATUS/ERROR INDICATOR MESSAGES POINTER TABLE

:DEFAULT VALUES OF TEST PARAMETERS
011

014

003377
000200
11

0C204e

00000!

000144
000000

000000

;RECAL /SEEK (TQ)

. WORD

112s,200.,410.,822.,0,0

000000
000400
000000

. WORD

3377,100.,0, 128.,0,256.,0,0,0,0,0

000000
001466

- WORD

1177,1,0,410.,0,822.,1,0,0

; INCREMENT SEEK

- WORD

1177,10,0,2%6.,0,8512., 1,0.0

; STEPPING SEEK

88638 BRgRAE OF-T

000000

;SEEK/SEEK

(Tl1}

(T2)
(T3)

-1l- DgRHF B RMO3 ‘RMQO2 EXTEgDED DRIVE
RH B. Pl
2l-Nov-77 14

002054

002376
002404

001177
000632
00009;
0011
000632
000001
001177
000632
000001
002337
000632

000037
000210

002412
002414
0o

g0iles

0024y

000000

00c426
002430
002432

003377
000144
s]s]ulals]s}

TEST

MACY1]l 30(1046)
RPT MRILBOX-ETRBLE

104

22-NOv-77

08:04

PAGE

SEG 0047

. WORD

1177,1,0,410.,2,822.,1,0,0

;OSCILLATING SEEK

. WORD

11?7,1,0,410.,0,822.,1,0,0

; CONVERGING/DIVERGING SEEK

. WORD

1177,1,0,410.,0,822.,1,0,0

; SERVO ADDRESSING LOGIC NGISE

. WORD

337,5000.,0,410.,0,822.,0,4

; RANDOM SEEK

000000
001466

-WORD

177,1,0,410.,0,822.,100.,0

; SERVO SETTLE OOWN TEST

000000
001466
000000
000000
000000
000000
001466
000000
008377
000000
001466
000000

. WORD

1177,1,0,410.,0,822.,1,0,0

;ALL

. WORD

1113,1,0,0,0,0

;ROTRTIONAL SPEED TIMING TEST

.WORD

37,1,0,410.,0,822.

;ONE CYLINDER SEEK TIMING TEST

.WORD

37,1,0,136.,0,8255.

; RCCESS TIME

. WORD

37,1,0,410.,0,8¢22.

; MAXIMUM SEEK

.WORD

113,1,0,0,0

; SECTOR ADDRESSING TEST

000000

. WORD

1013,1,0,0,0

; TRARCK

- WORD

??77,1,0,410.,0,821.,64.,0,4,1,1,0,1777?27

00000!

000060
001465
000004
000000

001750
000000
011610
000000

000000
001465
000000
000377

. WORD

37,1000.,0,410.,0,821.

;EXERCISER

. WORD

37,5000.,0,136.,0,25S.

;RMO3 RCCESS TIME

000001

000000

001466

;PARAMETER

TABLES

-RECAL/SEEK

(TQ)

PRMO:

. WORD

SEEKS

TEST

(T4

(T&)

(77)

(T10,

(Ti1)

MEASUREMENT
TIMING

ADDRESSING
;DATA

(TS,

TEST

TESY

(Tle.
(T13,
(T4,

(TI1S)

(Tl16.
(T17)

(T720)

(T21)
RADJUSTMENT

TEST

(122,

)

DZRMF-B RH03 RMO2 EXTESDED ORIVE TEST
.P11

002434
002436
00e440
00244e
002444
002446
002450
002wse

000200
000000

002454

001177

APT

MARCY11 30(1046)
MRILBOX-ETABLE

.WORD
D

JO4

22-NOv-77

08:04

PAGE

128.

000000
000000

BRM2

002470
0o0e47e
002474

PRM

002476
002500
002502
002504

002516

000000

002520

001177

PRMY

000000

001177

002562

000000

CoecseMN
0CetkE

001177
0000e!

G SEEK

e
NZ

TN LW
OO
W

OOV
> e b e bme b s e o

PRMS

. SERVO ADDRESSIN

PRME ;

. WORD

(T&)

%QGIC NOISE GENERATOR

(T6)

SEG 0048

MACY11l 30(1046)
TEST
APT MAILBOX-ETABLE

PRM?

8el

.SERVO SETTLE DOWN TEST

-ALL SEEKS TEST

. WO

n
nmn

000000
001466

;ROTATIONAL

PRM12 :

002702

0000G0

002704

300G37
000001
000000
000632
0ooooc
00146E

SPEE

.WORD

TIMING TEST

:ONE CYLINDER SE K TIMING TEST

PRM 13:

.WORD

7
-

NO OO DD U
O LD DD
AU AV L e oy e ey ey ey Y S S o |
- QOO NN LW
0OW

308

(T10)

o~
o
.

PRMIL1:

— 0O+
O—-MO
£
on
e
~N
on
o

.WORD

——f
N
Ry [

PRM10:

000000

001177
000001
000000
000632

410.
O
B822.
O
M

OO0O~DMOL£Or+—~

000177
000001

.WORD
WORD
_WORD
"WORD
CWORD

)

002626
002630

3000.

[

000004

- WORD

EEXE
o000
X0
(e
ala)

002624

0
M410.
O
B822.
I
O
O

O000+—0O

000337
011610

3
SWORD
CWORD
.WORD
CWORD
"WORD
WORD

KO4

22-NOV-77

.
0
.WORD

(712,

(T13,

QO NI NNNNININ
OwONOCN LW

(0 000 0 (D (D (0 G0

000000
000632
000000

OL£O0~—wWM

DRIVE

E
o
p.2]
O

HD 11-DIRMF-B RMO3 RMQC EXYENDED
ZRMFB. Pl!
10
2l-Nov-77

B22.

;ACCESS TIME MEASUREMENT TEST (TIW)

08:04

PARGE

SEG 3049

HD 11-DZRMF-B8 RMO3/RMO2 EXTENDED DRIVE TESY
\.«&

MFB. Pl1

21-NOV-77 14:10
000037

APT MAILBOX-ETABLE
PRMI4:

000000
001466

"WORD
.WORD
-WORD
.WORD
.WORD

.WORD

"WORD
JWORD
WORD
WORD

ORD

uono
WORD
WORD
WORD

-DATR TEST

PRM20

B22.

113

003040

(T1b)

1
O
O
O

1013

(T17)

1
O
O
O

(T20)

ORD

WORD
WORD

WORD
WORD
WORD
WORD
WORD
CWORD
CWORD
JWCRD
WORD

.WORD

. EXERCISER

PRM21:

(T15)

|
O
410.
O _

rnacx noonessxmc TEST

BRM1

PTRN1S:

003042
003044
DC30xE

255.

secroa ADDRESSING TEST

PRM1

002756
002760

002774
002776
003000

.WORD

(T21)

.WORD

.WORD
WORD
"WORD
CWORD
-WORD

410
B21.
6M.
O
4
!
I
O

177777

1000.
O
410.
O
821.

.RMO3 ACCESS TIME ADJUSTMENT TEST

beM22:

08:04

37
1
O
136.
O

MAXIMUM SEEK TIMING TEST

BRM1G:

000113

002762
002764
002766
002770
002772

_.WORD
W ORD
CWORD
.WORD
"WORD

.WORD

002732
002734
002736
002740
002742
002744
002746

LO4

22-NOv-77

MACY1l 30(1046)

.WORD = 37
.WORD
JWORD

S000.
D

(T122)

PRGE 20

SEG 00<0

MO-11-DZRMF-B RMO3-RMO2 EXTENDED DRIVE TEST
MACY11 30(1046)
CCRMFB.PLL
21-NOV-77 I4:10
APT MAILBOX-ETRBLE
379
980
98]
982
983
984
ggg

0Q030S0
003052
003054

000210
000000
000377

.WORD
SWORD
.WORD

003056
003060
003062

003142

992
3993
994
332

003066
003070
003072
003074

045520
000000
003131
003255

178:

998

003076

045520

T?Al:

1003
1004
1005
}889

003106
003110
003112
003114

045520
000000
004605
005003

T781:

1008

003116

045552

T10:

1013
1014

003126
31

045636
?

Til:

937

003064

045520
000000

io?g ooaieg oqsseé
iéié 883154
1894

ioxe

003}36
00

1023

0031

1025
1026
1027
1

0031
003154
0031

10
1031
10 g

168
003166
172

1034

174

i
1

oqs;as

R
00

§1§§ §§§§
i

T7Q:

003244

1383 8%3182 883833
iggé 003109 004766

181
181g

22-NOV-?7

08:04

PRGE 21

136.
O
255.

:TIMING LIMITS

987
988
989

gg?

MO4

B0
003346
003406
00

003546
003606
46

.WORD
.WORD

-WORD

MSG?
O
1B3M.

1 (16.67-2%)
442

.WORD
WORD
.WORD
.WORD

MSG?
O
1625.
17089.

:(16.67-2.5%)
#82
:(16.67+2.5%) #u2

.WORD

MSG?7

.WORD

P(16.6742%) #a2

:ROTATION TEST TABLES FOR RMO2 DRIVE
:

'5820
- WOR

gq
25382

g-2% MS X 100
55§Z80+ai ME X 100.

.WORD
"WORD
.uong
-WOR

MSG?
O
437.
S63.

;

.WORD

MSG10A

'fi°§§
- WOR

HSG108
900.

.WORD
.
WOR

MSGliR
MSG118B

g
:
T12:

1700.

.WORD

200.

:25.00-2.5%
:25.00+2.5%

NO LOWER LIMIT
;<9>¢¢a
105040
LI
P32 #x

:gc}gg

PAT.PT: .WOR

.ugng

WOR
.WORD
-WOR
-

WOR

TWOR

PATY

PRTO

PAT
PAT3
PATY
PATY
PAT

.WORD
_WORD
-WOR

PRT?
PAT8
PATY

-WOR

PAT]1

.N‘R§

PATIO

;

;TR

WER

LIMIT

OF PQINTERS WHICH POINT TO THE

:PQMRNS ugéo EY THE Smn EST

SEG 00S!

£ :wwuug
[
& IV N1 o)
n
]

3 LSRR (\J‘QODD PR R Re R PR RRARAARRR
0000
O
OWwo
N

0000000

NNNO
W—-0w

[e]e]le]e]

Bt et Bt Bt et Bt it Pt Bt Pt s Pt ot Pt ot s e ot Pt ot Pt ot Pt Pt o Pt s Pt P

003176
003200
003202
003204

00'.006
004046
004106
004146

.WORD
_WORD
WORD
.WORD
;PATTERNS O

003206
003210
003212
003214
003216
003220

eoinlelelo[elelalale] Q

ot Bt Pt Bt B4 Pt St Pt s Pt Pt Bt Pt et Pt Pt Pt Pt Pt Pt (ot s Pt Bt P

et P

No—|
@

DZRMF-B RMO3/RMO2 EXTENDED DRIVE TEST
MACY1] 30(1046)
PL1
21-NovV-77 14:10
APT MAILBOX-ETABLE

003222
003224
003226
003230
003232
003234
003236

066666
066666
06EEEE
066666
066666
066666
066666
06666
066AEE
066666
ObbbE
066666
066666

003240
003242
003244

6E
06666E
066666

003246
003250
003252
003254

000001
000003
000007
000017

3255

003262
003264

003270
003272

PATO:

WORD
WORD
"WORD
WORD
WORD
'WORD
'WORD

PATI:

000037

003274
003276
003300
003302
003304

007777
017777
037777
077777
177777

003306
003310
003312
003314
003316
3320
003322
003324
003326
003330
3332
003334
003336
003340
003342

17777&
177774
177770
177760
177740
127700
177000
177400
177000
176000
174000
170000
16000C
140000
100080

PRT2:

PAGE 22

SEG 00S2

066666
0BbEBE
06BEEE
DEEBBE
DBEEEE
DBEEEE

;PATTERN O

0BBEEE
DBE6BES
DbbEEH

WORD
WORD
WORD

0B6EEE
DBBEEE
DBEEEE
DBEEES
066666

.WORD
"WORD
WORD
WORD

000GO1
000003
00000?
0000)7

WORD
WORD
.WORD
WORD
WORD
WORD

000077
000177
000377
000777
001777
003777

WORD

000077
000177
000377
000777
001777
003777

08:04

PATI2
PATi3
PATIHY
PATIS

THRU

.WORD
"WORD
WORD
WORD
WORD
WORD

NO4

22-NOV-?7

;PATTERN

000037

WORD
WORD
WORD
WORD
_WORD

Q07?727
017777
037777
077777
177777

. WORD
WORD
WORD
"WORD
'WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
_WORD
'WORD

177776
177774
177770
177760
177740
177700
177600
127400
177000
176000
1749000
170000
160000
140000
100000

;PATTERN 2

FhESRSSBBIRRZLREBBNRR
UM B e Srn ton- 528 SPRZOR2E 34 3 FRELRD

[

ot Pt Pt Bt Pt s Bt Bt Bt Pt Bt Bt Pt Bt Pt Bt Pee Pt P Pt Pt e Bt Pt Pt Bt Pt P 0 Pt Pt Pt Pt Pt Pt (et Pt Pt Pt Pt P

Bt Bt Bt Dt Pt Pt e Bt Pt P B Pt Pt Bt Pt Pt Pt Bt Pt et et Pt Pt Pt Pt Pt it Pt Pt Pt Pt Pt Pt P Pt Pt B b B 2 P Pt Pt Pt Pt Pt P P
B

072 Bt 00 Pt Bt Dot Bt Bt B 00 B @ Pt Bt Bt Bt P

-B RMO3-RMO2 EXTENDED DRIVE TESY
MACY!]l 30(1048)
21-Nov-77 i4:10
APT MAILBOX-ETABLE

003344

000000

%gg;s

%X)OO

00332

177277
177777
000000

WORD
WORD
'WORD

177777

WORD

000000
03es D
003364

PRT3:

.WORD

000000

. WORD

30 00

HORD
HORD

'WORD

500000
193070
172777
177777

1727777

003374
003376
003400
003402

177777
000000
177777
00000C

. WORD
'WORD
WORD
“WORD

000000

PATY:

003446
003450
003452
003454

052525
052525
052535
125363

PATS:

Q03460

125252

003466
003470
003472
007N

125062
126257
052525
126262

WORD
WORD
‘WORD
'WORD

003500
003502

125252
052525

'WORD
'WORD

125252
052525

003506
0035:C
0C3E12

0074:7
007417
DCTMw:7

. WORD
"WORG
"WGRC

007417
007417
007417

003408

003410
003412
003414
003416
003420
003422
4
003426
430
003432
0034
0034936
O03Y40
003442
DO34Ny

003462
003464

003476
003504

000

"WORD

177777

010421
021042
0314963
(042104
053525
063146
073567
104210
11463]
126252
135673
146314
156735
167356
177777

26252
25
38

535

125262

000000

.WORD

1772727
0Q000Q
177777
000000
1722727

. WORD

WORD
WORD
'WORC
WORD
WORD
'WORD
WORD
WORD
WORD
"WORD
WORD
. WORD
'WORD
WORD
. WORD

000000

010421
021042
031463
Q42104
052525
063146
073567
109210
114631
126252
135673
146314
156735
167356
1777277

;PRTTERN 4

.WORD
‘WORD
WORD
_WORD

(052525
052525
2525
125262

;PATTERN §

‘MORD
'WORD
- WORD
_WORD

052525

'WORD

052525

_ WORGC
PRTE:

;PATTERN 3

0DOJCO

. WORD

003372

08:04

177777
000000

177777

BOS

22-NOV-77

125252
125252

126262
18525
052525
128262

;PATTERN &

PRGE 23

SEG 00S3

"0-11-DZSMF -8 RMO3 RMO2
EXTENDED DRIVE
Mommteoery
8 BTa3,0mes EXTER

1147
1148

1152

15
1135
1186

TEST
MACY|} 30(1046)
T maILBOX-EtA

003SIM
003516

170360
170360

.WORD
‘WORD

170360
170360

003826

170360

217

-HORD

887417

003536

WORD

007417

1161

003546

026YSS

PAT?:

1178 BBV 183333

PATS:

003550
003952
003554
003586
00350
003562
003964
003566
003970
003972
003974
003876
003600
003602
003604

02645E
(09g4at
[€1322
151302
18]13&0
026455
026455
151322
121355
0364EE
[E1322
02645E
€132
O264EE
1SI322

1i76

1180

003612

165555

1182

003616

165555

18]

003619

133333

003626
003630
003632
003634
003636
003640
003642
00344

165555
133333
165555
133333
165555
133333
165SEE
133333

195
1186
1197
1148
1199
1200
1261
1222

DO36ME
003650
003652
003654
003656
0036EC
CO36Ee
OC3bE4

20000
000002
000004
000010
000020
000040
0001a0
00020C

170360

"WORD

007417

-WORB

987348

.WORD

HORD
" WORD
"WORD
WORD
"WORD
'WORD
'WORD
'WORD
WORD
WORD
WORD
WORD
WORD
WORD
‘WORD

G26455

026USS
E42e
151322
181320
181329
D645
026455
151322
181322
026455
161322
026455
161322
026455
161322

.PATTERN 7

HORR

183332

.PATERN 8

.WOR

'WORD

165555

'WORD

165555

'WORD

1183
Bo%ss jgaais
1182 B0%8ss 193333

1186
1187
1186
1189
1190
1191
1182
1193

0B:04

i
WoRB
§963t8

170360

1159 BOR4E 170360
1162
1163
1164
1165
1166
1167
1168
1169
1170
1171
1172
1173
1174
1175
li7e

cOS

22-NOV-77

‘woRp
‘HoR

PATS:

133333

jgeadd
193333

'WORD
"WORD
WORD
WORD
WORD
WORD
WORD
WORD

165555
133333
165555
133333
165555
133333
165555
133333

.WORD
" WORD
WORD
WORD
"WORD
"WORD
‘WORD
‘ACRO

0000D)
0002
000004
000010
000020
0000NO
00010C
000200

:PATTERN

PAGE 24

SEQ 0OSH

MD-11-DZRMF-8 RMO3-RMO2 EXTENDED DRIVE

CZRMFB.P1.

21-NOV-77

1203
1204

000400
001000

003666
003670

iaos

ooas;a
“

1208
1209
ig{?

003700
003702
003704

020000
0%0000
100000

1212
1213
1214

003706
003710
003712

177776
17777S
177773

14:10

TEST

1563 BR%se B3B3

003714
003716
003720
003722
003724
003726
0037
0037
0037
003736
003740
003742
003744

177767
177757
177737
177677
177577
177377
176777
175777
173777
167777
157777
137777
077777

1229
1230
1231
1232
1233

00374
0037?50
003752
003754
0037%

172666
155555
172666
]55555
172666

1235
1236

003702
002764

172666
1;5555
1
155555
172666
155555
172666
156565
17266E
1555SE

123%

003760

1237
1238
1238

003766
003770
003772

1246
1247
124
1248
1250
i2S1
1862
12€3
1284
1265
1266
1267
12€e

40
004010
004012

1240
1241
1242
1243
{S:E

003774
003776
0
004002
004004

DONGIN
004016
004020

004022
004028
004826
QOM030
004032

0O4O24
004C3e

.WORD
-WORD

000400
001000

'5°§§
.

§§3§§0

.WORD
-WORD
_WORD

528200
040000
100000

.WORD
.WORD
CWORD

177776
17777
177773

‘UoRE

PATIO:

PATL1:

155555

077777
137777
1E7777
16777
173777
175777
176777
177377
177€77
177E77
177727
1777E"
1777€7

30(1046)

APT MAILBOX-ETRBLE

002090
SO0

1215
1216
1217
1218
1219
1220
1é21
1222
1223
1224
1225
1226
iggg

MRCY11l

08:04

PRGE 25

870858
:PATTERN

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
"WORD
_WORD
.WORD
_WORD
-WORD
CWORD

175777
173777
167777
157777
137777
077777

.WORD
.WORD
WORD
WOR
WOR

172666
155555
172666
155555
172686

;PRTTERN

WORD
- WORD
.WORD
_WORD
_WORD
.WORD
"WORD
"WORD
JWORD
_WORD

172666
1;5555
172666
156685
172666
15555§
172666
15565S
172666
155558

.WORD
JWORD
.WORD
"WORD
.WORD
CWORD
WORD
WORD
WORD
WORD
WORD
JWORD
JWORD

077777
137777
187777
167777
173777
175777
176777
1772377
177577
177677
177737
177767
177767

;PRYTERN

WORD

eQAv12:

DOS

22-NOV-?7

177767
177757
177737
177677
177577
177377
176777

153685

SEG 00SS

EOS

MACYl1l 30(1046)

1289
1260
isgé

004040
004042
004084

177?773
17777S
177776

. WORD
.WORD
. WORD

177773
1772775
177776

1263
1264
1265
1266
1267
1268
1269
1270
1271
1272
1273
12749
1275
1276
1277
ig;g

004C4e
004050
004052
004054

PRT13:

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

153333
066667
183333
6667
183333
066667
153333
066667
153333
066667
153333
066667
153333
066667
183333
066667

;sPATTERN 13

DO406e
004064
004066
004070
004072
004074
004076
004100
004102
004104

153333
066667
153333
066667
153333
0bbbb?
153333
066667
153333
06bbb?
153333
6667
153333
Obb6G67
163333
066667

1280

004106

000000

PATIY4:

.WORD

000002

;PATTERN

. WORD
.WORD
- WORD

177277
17?2277
1?7?2727

(&=4
NO

-11-DZRMF-B RMO3-/RMO2 EXTENDED DRIVE TESY

RMFE.PLL

1281
1282
1283
1284
1285
1286
1287
1288
12689
1290
1291

0O40S6

004110
O00Mlle
O0O0Q4LIMN
004116
004120
004122
004leN
004126
004130
004132
004134

1292
1293
1294

004136
Q004140
004i42

1297

Q0CH4liNe

{ggsfi

ies8
1299
1300
1301
1302
1303
1304
1305
1226
1307
1308
1309
1310

1311
}gég
PRCP

J31l=

004148

21-NOv=-77

1727727
177?277
177777
177777
1727777
177777
1727777
17?777
177777
1777227
177777

RPT MAILBOX-ETABLE

17?7777
177777
1727777

177777

004150
004152
004154
004156
004160
004162
004164

Q00000
Q300000
000000
000000
000000
000000
000000

004202
004204

000000
00000C

004166
004170
004172
004174
004176
004200

1M4:10

. WORD
.WORD
. WORD
. WORD
. WORD
WORD
. WORD
.WORD
.WORD
- WORD
.WORD

. WORD
PATIS:

0000GC0
000000
000000
0000
000000
000000

.WORD

.WORD
. WORD
WORD
WORD
WORD
WORD
WORD

WORD
WORD
. WORD
. WORD
WORD
WORD

. WORD
. WORD

;OPE

22-NOv-77

1772777
177777
17727727
1772777
i77777
1777277
1772777
1772777
177777
17?2777
1277?27

(08:04

PRGE 2¢

1772727

172727727

000000
000000
000000
000000
000001
000000
000000

000000
000000
000000
000000
000000
000000

000000
000000

DARTRA PARAMETER BLJ(K!

;PATTERN 15

SEQ 00se

-11-DIRMF-B RMO3 ‘RMO2 EXTENDED DRIVE TEST

RMFE.PL!
1318

e1-NOvV-7"7

1316
1317
1318
1319
1320
1321
13e2
1323
13a4
1325

Q04206
004207
004210
0Q42l!
00+e2i2
004214

00C
000
CoG
000
000000
0S1778

0OC42ie

132°

1326
1328
1328
1330
1331

1332
1333
1334
133%
1336
1337
%ggg
1340
1341
1342
1343
1344
1345
134€
1347
1348
1349
1350
1351
1352
1353
1354
135S
135¢
1357
1358
1359
1360
i3t}
;3&%
i34
1365

1366
367
1368
1363

.37C

14:10

MACYL1l 30(1046)

APT MRILBOX-ETRBLE

22-NOV-77

08:04

PRGE 27

.BYTE
.BYTE
BYTE
.BYTE
.WORD
.WORD

O
O
O
O
O
BUFFER

000

.BYTE

004217

000

.BYTE

: (0) DRIVE NUMBER
,t1) OFFSET VALUE OR FMT22, ECI,
+(2) COMMAND
1 (3) Pgs
AND Al7 RAND AlE
s (4) W
COUNT (MUST BE NEG.)
; (6) BUFFER RDORESS
OR
;REGISTER TRBLE POINTER
; (10) _SECTOR ADDRESS OR
;FIRST _REG.
INDEX
; (11) TRACK RADDRESS OR

00422C

000000

.WORD

; (12)

004222

DPB.R:

FOS

004306

004224

000000

004226
004227
004230
004231
004232
004234

000
000
000
000
177776
051776

004236

.WORD

RM.REG

.WORD

.BYTE
.BYTE
.BYTE
.BYTE
. WORD
.WORD

D
O
O
O
-2
BUFFER

00C

.BYTE

004237

000

.BYTE

004240
004e42

000000
004306

.WORD
.WORD

O
RM.REG

004244

000000

.WORD

004246
004247
004250
00425i

000
000

.BYTE
.BYTE

O
O

004252

0042e4

000
0ac
177776
(QE177¢

pPB.B:

opPB.C:

.BYTE
.8YTE
.WORD
.WOR

O
O
-2
BUFFER

:LAST REG.

AND HCI

INDEX

CYLINDER RDDRESS

; (14) ERROR TABLE POINTER
;POINTS TO THE FIRST OF TWENTY
;LOCATIONS OF WHERE THE DRIVER
;IS TO _STORE THE RH7?0/RMO2

;REGISTERS ON AN ERROR. IF LEFT
; ZERO REGISTERS RARE NOT SAVED.
; (16) _STATUS/ERROR INDICATOR
:BIT15=1=>ERROR OCCURRED
;BIT07=1=>DONE
;BITI4-BITOS AND BITO6-BITO3
: INDICRTE TYPE OF ERROR
:(0) DRIVE NUMBER
; (1) OFFSET VALUE OR FMT22, ECI,
; (2) COMMAND
; (3) PSEL AND Al7 AND Alb
; (4) WORD COUNT (MUST BE NEG.:
; (b3 BUFFER RDDRESS OR
;REGISTER TRBLE POINTER
; (10) _SECTOR RDORESS OR
;FIRST RE
NDE
X
;(11) TRACK RDDRESS OR
;LAST REG. INDEX
; (12) CYLINDER ADDRESS
;114) ERROR TABLE POINTER
;POINTS TO THE FIRST OF TWENTY
;LOCATIONS OF WHERE THE DRIVER
;IS TO STORE THE RH7?0/RMO3
;REGISTERS ON AN ERROR. IF LEFT
; ZERO REGISTERS RRE NOT SAVED.
; (16) STATUS/ERROR INDICATOR
;8I715=1=>ERROR OCCURRED
:B1T07=1=)>DONE
;8ITIN-BITO. AND BITO6-BITC3
; INDICATE TYPE OF ERROR

_
ANC HWCI

; (0)
; (1)
; (2)
:(3)

R
RAND HCI

; (4)

DRIVE NUMBER
OFFSET VALUE OR FMY22,

COMMAND
PSEL AND R17 AND R1b

WORD

COUNT

(MUST

;1 6) BUFFER RDORESS OR
;REGISTER TRBLE POINTER

ECI,

NES.

HD ll- DZRHF B RMO3 RHOE EXTENDED DRIVE

B.P

1371
137%
137
1374
1375
1376
1377
1378
1379
1380
1381
138¢
1383
1384
1385
i%g%

21-NOV-"7

18.10

TEST

MACY1]l

3011046)

APT MRILBOX-ETRBLE

GOS

22-NOV-?7

08:04

PRGE 28

SEG 70se

004256

000

.BYTE

ooNes?

000

.BYTE

004260
004262

000000
004306

. WORD
. WORD

0
RM.REG

004264

00000C

.WORD

1388
1389
1390

00<266
004267
004270

noo
800
000

.BYTE
.BYTE
.BYTE

0
0
0

: (0)
; (1)
;(2)

1392
1393
1394
139
1396
1397
1398
1399
1400
140}
1402
1403
40
140€

004272
D004e7

000000
0S1776

. WORD
. WORD

0
BUFFER

00427%

000

.BYTE

004277

000

.BYTE

Q004300
004302

000000
0J0430&

. WORD
. WORD

0
RM.REG

00430+

208000

. WCRD

; (4) WURD COUNT (MUST BE NEG.
:(6) BUFFER RDDRESS OR
;REGISTER TRBLE POINTER
; (10) SECTOR RDDRESS OR
;sFIRST REG.
INDEX
; (11) TRACK RDDRESS OR
;LAST REG. INDEX
; (12) CYLINDER ADDORESS
; (14) ERROR TABLE POINTER
;POINTS TO THE FIRST OF TWENTY
;LOCATIONS OF WHERE THE DRIVEFR
;1S TO STORE THE RH70/RMQO3
_
;REGISTERS ON AN ERROR. IF LEFT”
:ZERO REGISTERS ARE NOT SAVECD.

1391

1406

1807

L T-¥4

DTRDPB:

.BYTE

1<40g

}:ig
004306

000000

RM.REG:

.WORD

WORD
WORD

0
0

WORD
WORD
WORD

0
0
0

004310
004312

00000C
000000

142l

D043

000000

WORD

Q04330

000000

. WORD

i82s

i42e&

)
ANL HCI

; (3) PSEL AN D Al?7 AND AlB

; (16) STRTUS/ERROR INDICATOR
;BIT15=1=>ERROR OCCURRED

:SAVE RH70/RMO3 REGISYERS HERE ON ERROR

1417
1418

l4ee
1423
1424

ECT,

:BITIY4-BITO9 AND BIT06-BITO3
; INDICRTE TYPE CF ERRQOR

1411
1412
1413

1419
1420

DRIVE NUMBER
OFFSET VRLUE OR FMT22,
COM

:B1707=1=>DONE

1409
1=1C

<416

: (10) SECTOR ADDRESS OR
:FIRST RE
£"°£
;:(11) TRACK
RDDRESS OR
;LAST REG. Né DEX
; (1) CYLINDER RDDRESS
;(14) ERROR TABLE POINTER
;POINT? TO THE FIRST OF TWENTY
:LOCATIONS OF WHERE THE DRIVER
;1S TO
STORE THE RH70/RMO3
REGISTERS ON AN ERROR. IF LEFT
; ZERO REGISTERS ARE NOT SAVED.
:(16) STRTUS/ERROR INDICATOR
:81716=1=>ERROR OCCURRED
;BIT0?=1=>DONE
‘g
;BITIN-BITO9 AND BIT06-BIT03
; INDICARTE TYPE OF ERROR

004314
(00N316

004322
004324
004326
0O0<2zZz

00CO00
000000

000000
(00000
000

000005

. WORD
. WORD

. WORD

;RMCS1

(?76700)

CONTROL

8 STATUS

0
0]

:RMWC (776702) WORD COUNT
:RMBA (776704) BUS ADDRESS

;RMDS

:RMDB (?76722) DATA BUFFER

:RMDA (776706) DESIRED SECTOR TRACK
;RMCS2 (776710) CONTROL 8 STRTUS e

(776712) DISK STATUS

;RMERL (?76714) ERROR REG. sl
:RMAS (776716) ATTENTION SUMMARY
;RMLA (776720) LOOK RHERD
SRMMR1

(776724)

MAINTRINRBILITY

MD-11-DIRMF-B

RMO3

RMO2

CTRMFB. P11

21-NOV-T7

1427
}:ae

004334
owaas

000000
000000

1431

004344

000000

EXTENDED

IN4:10

DRIVE

TEST

MACY11

000000

1433
094328 909590
;:gg 004384 Booooo
047013
047055
047106
047130
Q4715€

1393 004372 °‘J§286

DRIVE TYPE
Rgn# NUMBER

.WOR

‘RMHR

(77 7;5)

c RR NT ngxnoen

‘LORD

-WOR
W

.WORD
.WORD
_WORD
_WORD
_WORD

‘HORD

MSGBOS
MSGBOY
MSGBO3

:ERROR OCCURRED ounxmc NON-1/0 OPERATION
:UNSAFE OCCURRED
"AUTOMATIC RECALIBRATE SEQUENCE OCCIRRED

"WORG
.WORD

MSGBO2
MSGBOI

047SDE
GuTECSE

iRriERe (776742 ‘§§°So“‘° oA

Rncé (776746) Ecc Pn§¥s§

:OFFLINE OR UNSAFE DRIVE REQUESTED
*UNLOAD DRIVE REQUESTED
:PERSISTENT UNSAFE
'PARITY ERR R OCCURRED
:FRTAL PARITY ERROR

1449
145

004404
20w4de

!RAMMR2 (776740)

MSGBIY
MSGBI3
MSGBI2
MSGBII
MSGBI1O

WecBos
HQESSs

ow*aws
O4THIE
047436

‘RMDC (7767 ) oesxgso CYLINGER

. STATUS/ERROR nessnce POINTER TABLE

&*QTBL:

-WOR

004375
004400
004402

SEG NOCEg
<77s7as>
f;;§;§

1445 8 g 8
1446
i44T
1498

:RMDT
ggsp

" WOR

004356
004360
004362
004364
004366

PAGE

O
8

1432

1438
1439
1480
1441
1442

08:04

.WORD
'5820

-WOR

1437

HOS

22-NOV-7?7

APT MAILBOX-ETABLE

iugg 8843 3 888888
004346

30(1046)

"WORD
_WORD
"WORD

:ESOETHARE
TINEOUT ON THIS DRIVE
ROR oEcu&RES gxnc 1/0 opsnnr§on

‘DRIVE HRS NOT RESPONDED TG PORT REGUEST
:DRIVE HAS BECOME NONEXISTENT

MO-11- D&RHF 8 RMG3 RMO2 EKTENDED ORIVE TEST
10

105

30(1046)

22-NOv-77

ERROR POINTER TRBLE
.SBTTL

»—»u—-w»—o—-o—»—o«o—-r—-o—o—;b-o-&-v-.—.—t—o—.-»—»w»—o—»—w.—.—

)

21=-NOV-7"7

C<RMFB.PLL

MACYL1l

452

483

ERROR POINTER

08:04

PARGE 30

SEG J0eC

TRBLE

;#THIS TABLE CONTAINS THE

INFORMATION FOR EACH ERROR THAT CAN OCCUR.

45y
455

!THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN
lLOCRTION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TQBLE IS PERTINENT.

:g;

lNOTEE

459
0

S
i

456

#NOTE ] :

1
5

IF SITEMB IS O THE ONLY PERTINENT DATA IS

EACH

EM
DH

i
HE

ITEM

THE

(SERRPC)

TRBLE CONTAINS
4 POINTERS EXPLAINED AS FOLLOWS:

; ;POINTS TO THE ERROR MESSAGE
; s POINTS 70 THE DQTQ HERDER

)
DF

: s POINTS TO
+ ;POINTS TO

THE DAT
THE DQTR FORMAT

DO4410

SERRTB

; ®*EM _AND DH RRE RSCI1Z HESSQGES

lTHE INFORMATION THRT WILL BE TYPED WHEN THE ERROR OCCURS.

:Zg

iUNLESS STRTED OTHER ALL NUMBERS RRE OCTAL

(¢

474

:;g

47S
478

R
i )

479
480

DON4I0
Q04412

lzgg

DO441lE

O0u4&ls

D4b14d
0O476iN4

1499
1S00
1501
i%gg
1604
1E0S
S0t

SREGS

ERROR ITEM 2
UNEXPECTED RTTENTION OCCURRED
ERR
DRIVE
MAS
RMDS
RMER]
RMMRE
RMERZ
SERRPC
SREG!
SREG3
RMERRS
RMERRS+2
RMERRS+4
RMERRS+&

EM2
DHe
DTe
DFe
;#
I
o ]
X

(O0N430
004432
0O0wu434
004436

SERRPC

(RMAS
= 0O)

DF1

Q4&207
Q047831
Q0E1174
0S162€

1494
149€
148¢
i:gg

RH70 INTERRUPT OCCURED
ERR PC
RMAS

DT1

0Slee2

%
X
I
;

00N42C
Q04422
004424
00442E

ERROR ITEM
|

EMl
DH1

(051170

1484
1485
148¢
%:gg

1489
149C
1491
i:gs

IS R STRING OF WORDS THAT POINT TCO

;#EACH OF THE ITEMS BELOW REFER TO THE ERROR NUMBER AND INDICATE

471

481

THE

:#DATA_TO BE TYPED AND DF IS A'STRING OF DATA THAT TELL HOW THE DT WORDS
i#ARE 1O BE TYPED.
IF
ANY OF THE POINTERS ARE NOT NEEDED FOR
A PRRTICULAR
;#ERROR IT_ 1S REPLACED NITH A _ZERO.

0O4624S
Q4771¢
Qcliele
0OE1Ee32

ERROR ITEM 3
MARSSBUS PRARITY ERROR (MCPE=})
TEST
ERR PC
ADDRESS DATA
STMPO

SERRPC

RD.ADR

RD.WRD

EM3
DH3
D13
DF3
:#
i
X

ERROR ITEM
4
MQSSBUS PARITY ERROR (PRR=])
TEET
ERR PC
H~DODRESS GDDATA

BDDATH

MD-11-DZRMF-B RHO3’RH02 EXTENDED DRIVE TEST
MRCYL1 30(1046)
CoRMFB.PLL
21-NOV-77
14:10
ERROR POINTER TABLE
ngg
1

18089
1510
1S11

{Eig

. ¥

004440
004442
O04444

004446

046302
047763
(0S1le2ee2

1519
1520
1621
iégg

B
Q0N4S0
004452
004454
O0O44SEe

046336
Q47631
(0S1174
051626

igsg
1526
1827
1628
1529
1530
1€3!
15832
15833
1834
183§
igg;

000000
000000
(000000
000000

000000
D00000
000000
000000
;#

1840

‘¥

P *

ig:é
1643
1E44
1645
ig:g

0O0O4E00
Q045802
(Q0O4S04
004506

046372
050022
(0S]12S4
O0OSiede

1848
1549
1850
1853
1864
1665
iég%

1€58B

1E€9
1€EQ
iCel

iEEke

‘s

Q0QUEID
Q04512
Q00414
OO4E1E

SERRPC

SREGI

SREGB

RMERRS

RMER!

RMERRS+2

RMMR2

RMERZ

RMERRS+4 RMERRS+BE

ERROR

ITEM & -- NOT USED

ERROR

ITEM 7 -

NOT UcED

EPLWR

ITEM

RH70/RMO3 FQILED TO RESPOND TO RDDRESSING
RMCS]

RH.ADR

ERR PC

SERRPC

EM1D
DH10
OT10
DF10
;%
R
¥

151

ERROR ITEM S
RDDRESS PLUG CHQNGE BIT SET
ERR PC
DRIVE
MAS
RMDS

0
0
0
0

1838

1839

ROD.WRD

0
0
0
0
;2

004470
Q004472
Q04474
004476

SEGQ 0061

EMS
DH2
DT
DFe

;#
004460
004462
004464
004466

WRT.ADR WRT.WD

PAGE 3!

DFY4
.,
T &
s B

ig%g

SERRPC

08:04

EMY
DHY
DTH

0S1636

1814
181§
151e

STMPO

JOS

22-NOv-77

O4BN44
050041
0Sl126e0
O0SlbY4e

ERROR ITEM 1}
DRIVE SELECTED
DRIVE
ERR PC
SREGZ

IS NOT ONLINE

SERRPC

EMIL
DMLl
DT11
DFll

s #
¥
; 8

ERROR ITEM l@2

IMPROPER HEADER DRTA
TEST
ERR PC
TST PC
STMPO
SERRPC
SREGD

GDCYL

GDTRK

DRIVE
CHKDRY

GDSCTR

CYLNDR
CYL.DS

BDCYL

TRACK
TRK.DS

BDTRK

SECTOR
SEC DS

BOSCTR

1 1-DZRMF-B RMC3 RMO2 E:TESDEO
RMFB.P11
21-NOV-77 |

1563

1566
1867
1568
1563

‘¥

004520
004822
004524
004526

046501
050060
051264
051652

1871

‘»
‘s
‘»
w
'y

1507

1579
1580
1581
1582

0O4S30
0045632
0045834
00453

046526
0SG0B0
051316
O031Bbe

1584
1587
1588
1585
1590

Ly
004S40
004842
GO4S44
004S4e

000000
000300
06334
0S1B72

1692

‘¥

1694
1835
1E8E
1€97

i#
'»
Ly
‘a

158

1600

1601
1602
i603

‘s

004550

004552
004854
004566

046526

1608

1608
1609
1610
fgfé

000000
000000
0S1334
0E1872

1€13
1614
1E1E
1618

:#
‘s
‘e

1616

¢+
004E70

OHEEE:

CYL.RD
ARE

TRK.RD

SEC.RD

DECIMAL

ERROR ITEM 13

DATA COMPARE FRILURE
YEST
ERR PC
TST PC
ORIVE
CYLNDR
TRACK
STMPO
SERRPC
SREGOD
CHKDRV
CYL.DS
TRK.DS
GODAT
BODAT
WRDCNT
GORDR
BDADR
SGDDAT
$BODAT
SREGY
SCDADR
SBDADR
CYLNDR,

TRACK,

SECTOR,

AND

WRDCNT

~ARE

SECTOR
SEC.DS

DECIMAL

ERROR

ITEM

§GODAT

’

FOLLOWS

$BDDAT

#13

SREGY

$GDADR

$BDADR

ERROR

ITEM

DATA COMPARE FAILURE

TEST
ERR PC
71ST PC
DRIVE
CYLNDR
TRACK
§TMPO
SERRPC
SREGOD
CHKDRY
CYL.DS
TRK.DS
GODAT
BODAT
WRDCNT
GDADR
BORDR
$GDDAT
$BDDAT
SRECY
SGDADR
S$BDADR
CYLNDR,

TRACK,

SECTOR,

AND

WROCNT

ARE

SECTOR
GSEC.DS

DECIMAL

DH12
DT13
OF13
:#

004S60
0048€2
004564
004S6e

SEC.DS
SECTOR

SEG 0062

EM13

0sN06C
051316
OSlbb2

1605

AND

PRGE 32

0
0
OT13A
OF 14

1593

TRK.DS

TRACK,

08:04

EM13
OH12
OT13
OF13
;%

1585

CYL.DS

CYLNDR,

22-NOv-77

EM12
DH12
OT12
DF12

1872
1673
1674
1675
1876

KOS

DRIVE TESTY
MARCY1l 30(1046)
ERROR POINTER TRBLE

ERROR

ITEM

16 -- FOLLOWS

#15

§GODAT S$BDNGAT SREGY

$GDADR SBDADR

0
0
0T13A
OF 14
ERROR ITEM 17
DISK ERPGR IN TIMING TEST
TEST
ERR PC
DRIVE
RMCS!

§THPO

EML7

SERRPC

CHKDRV

RM.REG

RMDS

RMER]

RMMR2

RMER?2

RM.REG+12 RM.REG+14 RM.REG+40 RM.REG+42

LOS

MD-11-DZRMF -8 RMO3,RMO2 EXTENDED DRIVE TEST
MACY1l 30(1046)
CZRMFB.P1I
21-NOV-77 I4:10
ERROR POINTER TABLE
1619
1620
1621

0Q4S72
004579
004576

050274
051346
051676

1623
1624
1625
1628
1629
1630
1631

004600
004602
00604
004606

046605
050274
051346
051876

1633
1634
1635
1636
1637
1638

1641
1642
1643
1643

00410
0046i2
004614
OD¥ele

046526
050371
051366
051702

1646

1649
1ESC
1661
1652

i#
004620
004622
DO4e24
O04e2e

0VOGOD
000000
0S1<402
051712
;¢
[

1657

1658
1683

1661
1662
1663
1663

P
P

004630
004632
004634
DO%e3e

O46BSH
0S50S0
0Eid12
OSi71E

1666
1667
1668
1669
1€73
1€73
1674

‘e

OO4EM0
OCuedz

046703
OSCEOE

STMPO

SERRPC

CHKDRV

RM.REG

RM.REG+12

RMER1

RM.REG+14

RMMR2

RM.REG+40

ERROR ITEM 21
DATA COMPARE FAILURE
TEST
ERR PC
TST PC
DRIVE ~ CYLNDR
§TMPQ
SERRPC_
SREGD
CHKDRY
CYL.7S
GDDAT TM BDDAT TM WROCNT TM SECTOR
SREG]
SBODAT
SREGY
$REG
SVe Inor,

*TRACK,

WRDCNT,

AND

SECTOR

TRACK
TRK.DS

ARE

DECIMAL

ERROR

ITEM 22--FOLLOWS

$REG1

$BDDAT

#21

SREGY

SREG!

ERROR_ITEM 23
DISK ERROR DURING SEEK

TEST ~ ERR PC

STHPQ

SERRPC_

DRIVE

CHKORV

CYLNDR
CYL.OS

RMCSl

_RMCS2

RMDS

RM.REG RM.REG10 RM.REG+12

RMER]
RMMR2
RMER2
RMDC
RH-REG+14 RM.REG+4O AM-REG+42 RM-REG+3Y RM REG+36

EM23
DHe3
D123
oFe3

;#
i
D
Pe
P

1671

ERROR ITEM 20
CLOCK (KWIL-P) OVERFLOW IN TIMING TEST
TEST
ERR PC
DRIVE
RMCSI ~ RMDS

0
0
DT21A
oFa2

1654
1£58

1€5€6

SEG 0063

EM13
DH21
pTel
oF2l
;#

1647

PRGE 33

EM2Q
DHIZ
0T17
OF17
;¢
i+
¢
¢
P
Pa

1639

0B:04

DH17
OT17
OF17
:#
i#
;#

62g

22-NOV-77

ERROR_ITEM 24
SEEK NOT_COMPLETE WITHIN 120 MS
TEST '~ ERR °C
ORIVE = CYLNDR
RMCS1
RMCS2
RMDS
STHPQ
SERRPC_
CHKDRV
CYL.DS
RM.REG RM.REGH1Q RM.REG+12
RMER1
RMMR2
RMER2
RMDC
RMH
RM-REG+14

EM2Y
GREE

RM.REG#4O RN REG+2 AM-KEG+3Y RM REG+36

RMER2

RM.REG+42

MO-11-DZRMF-B RMO3-RTMM02 EXTENDED DRIVE TEST

CoRMFB.PILI
1675

§§:§

004644
O04e4e

21-NOV-77 14:10

MACY11l 30(1046)

ERROR POINTER TABLE

DS14)2

22-NOV-77

08:04

PRGE 34

pT23

051716

OF23

1680

, ;B0 0G0 00608 30 38 35 0 30 U0 3 08 06 36 36 36 30 06 00 2 3 38 3 30 36 35 3% 38 36 9% 3 3 3% 3 36 38 % 3 3% 3 3 3% 45 3% 3% 2 3 3 3% 3 3% 98 % & %

{585

.fi

1681

H Il!IlllIlll!llll!llllllilllllllll!llll!lllillIllllllllili‘llilii

1284
1o6t
1239
1669
1690

‘a
i
‘e
iy
‘s

1692

‘¢

1691
1682

‘»
‘¥

16949

1695

1699
1700
1701

0046S0

ERROR OCCURRED DURING I/0 OPERATION

‘2

10)

UNSAFE OCCURRED

:#
‘a

i;gg

004650
004652
004654
0046Se

046743
050640
0S1442
051726

1711

by
‘e
(X ]

004660
004662
004664
004eEe

046742
0507
DS1452
0E1732

1723
1724

fu
e

172¢€

{;Sg
1723
1720

0O4E7C
004672
CC“E74

SOFTW

TIMEOUT ON ANOTHER DRIVE

ERROR OCCURRED DURING NON-1/0 OPERATION

11) AUTOMATIC RECALIBRATE SEGUENCE OCCURRED

046743

05067E
OE147C

ERROR ITEM 41
RH70/RMN3 ERROR

TESY

§TMPO

ERR PC
SERRPC

(MESSAGE
)
TST PC
DRIVE

SREGO

CHKORV

ERROR ITEM 42

TEZQ/RMO3
EREOR saec
IO RCCTORIVE
s?npo
SERRPE
EHKDEV RMCSL
Rn.aécRMCSZ
385+10M Rn REG+12
C

EMY]
OHY2
DT42
DF 42

155%

1728

?2)

EMY1
DHY|
T4
F4l

1515
i;}g
1716
1717
1718
izég

‘#

ITEMY]:

1702
1703
1706
1707
1708
i;?g

FATAL Pnnxrv
SOFT
nsour on THIS DRIVE

‘s

iggg

EQQQE EEBENB&NQ og *hEHQKSOQN i?
HILL BE IN THE FORM:
DHTO/RMO3
ERE“6h§n§E
F THE FOLLOWING:
1)
PE?EQGSR
SsivgflneM Es?
)
\REOE
¥ PRR02%D,
PSR?‘ EORIVE
RoHNgccunnso
S)
B)

‘#

1696

snon §rsns 23-42 N?T

ERROR ITEM “E
RH70/RM0C3

TEST
$TMPQ

ERROR

ERR PC
SERRPC

RMER]

(MESSAGE
)

TST PC
sneco

RMMR2

DRIVE
CHKORY

RMER2

RMCSI
RM.REG

Rn.n£c+1q RM.REG+40 RM.REG+42

EMY1]

DHY2
DT43

RMCS2
RMDS
RM.REG+10 RM.REG+12

SEQ 0064

MARCY11 30(1046)
MO-11-DZRMF-8 RMO3/RMO2 EXTENDED DRIVE TEST
ERROR POINTER TRBLE
CZRMFB.P1I
21-NOV=-77 M:10
1731
1732
1733
1734
1735
1736
1737
1736
1739
174C

NNN
NNN
NN

e
e e

17242
1743
1744
1748
1746
1747
1748
1749
1750
1781
1752
1783
1754
1755
1756
1757
1768
1759
1760
1761
1762
1763
1764
1765
176E
1767
1768
1769
1770
1771
1772
1773
1774

0Q0Ne76

004700
004702
004704
004706

004710
004712
004714
0047186

08:04

PRAGE 3S

SEG 00eS

DF43

051736
i
X ]
o
R ]
HE 4
s ®
ta
HE

ERROR ITEM 4M
RH?O/RH03 ERROP (HESSRGE)
DRIVE
TEST
ERR PC
TST PC

s ®
HE ]
X
HE
H
X
MR
R

ERROR ITEM 4S5
RH70/RMO3 ERROR (HESSQGE
TEST
ERR PC
TST PC
DRIVE

CYLNDR

TRACK

SECTOR

TRACK

SECTOR

STMPQ
SERRPC_
SREGO
CHKDRV
CYL.DS
TRK.DS
SEC.DS
RMCS1
RMCS2
RMDS
RMHR
RMDC
RMDA
R"EEiREG
RM. REg+10 RM.REG#IS RM.REG+36 RM.REG+34 RM.REG+06
RM

RMER

RM.REG+1HY
RM.REG+40
RM.REG+Y4e
CYLNOR, TRACK, AND SECTOR ARE DECIMAL

Q46743
0S0060
O0OS1SiM4
0S1746

046763
0S0060
Q0S15S4
0S1762

STMPO

SERRPC_

SREGO

CHKDRV

(CYLNDR

CYL.DS

TRK.DS

SEC.DS

RMCS1
RMCSe
RMOS
RMHR
RMDC
RMDA
RM.REG
RM, REG+10 RM. REG+12 RM.REG+36 RM. REG¢3“ RM.REG+0E
RMER]
RMMRE
ER2
RMWC
RMBA
RMOB
RM.REG+1Y
RM.REG+40
RM
REG+42
RM.REG+2
RM.REG+Y RM.REG+22
CYLNDR, TRRCK, AND SECTOR ARE DECIMAL

EM41
DH1e
DT4S
DF4S

046743
QS0060
051554
0S1762

R
;¥
i
HE
x
¥
; &
Lu
La
004720
004722
004724
00472e&

NOS

22-NOV-77

ERROR ITEM 46
FATAL WRITE CHECK ERROR (MESSAGE)
TEST
ERR PC
TST PC
DRIVE
CYLNDR
CHKDRV
CYL.DS

RMCS]

RM.REG+1Y

RMCS2

RMDS

RMHR

RMDC

SECTOR
SEC.DS

RMD

Rn REG+10 RM, REG+12 RM. REG+36 RM.REG+34 RM.REG+06
RMDB
2
RMER2
RMIC
RMBA
RM.REG+4 RM.REG+22
EG+40
RM.REG+42
RM.REG+2

CYLNDR, rancx hno SECTOR ARE DECIMAL
EMY6

TRACK
TRK.DS

‘

ory
—~2

[y}
O
~3=~J

\I\JB\J‘J\J\J\J\J\J (\J\JBV\I‘JB\J;‘PJ‘D
oo A8 RN 8 25
RRLORVLA SBIRRILL2B O

s ot Pt Pt (ot Pt B0 Pe

s Bt et Pt 0e Pt et Dt

00 (00D D C0 0D €D €0 C0
Wwww
DO~

RERAE o

DO NN EWhe—0O

[

el
o

e P Pt Pt P Pt Pt Pt Pt Pt s Pt Pt Dt Pt P P

Pt P
Pt Gt Bt Gt Pt et s P

8 0t Bt Pt ot 5m Bt Pt Pt Pt Pt Pt Pt o Pt Pt Bt Bt Pt Bt Pt Pt

~B RMO3-RMOC EXTENDED DRIVE
21-NOV-7T7 iM4:10

.SBTTL

004730

012737

004740

005037

004736

004744

004750
0047

004?

0J4762

00766

000402

005037

0O0N1
012737

000402

005037

012737

177777

001306

177777
001306

177777

00000S

004776

012706

001100

005004
005010

022706
001374

001140

605026

STRT2A: nov

024630

000020

005032

012737

1566

888830

012737
012737

oasxss

005104
005110
DOS1IN
005122

005037
005037
112737
012737

1204
001206
000001
005122

005136

013746

000004

00S0s4
012737
005062
013737
00S070
012737
00S076 012737
005130

012737

00Si42
005150

012737
012737

00S164

022777

00S174
005176
005202
005204

000403
0l2716
000002
012737

000022

nov

001110

005212
005220

001012

:CLR BUSADR FLAG

START
8-1, 98BUSRDR

:SET BUSADR FLRG

8CNTRLC
STRY2A

acausnoa

CLR
CLR
MOVB
MOV

(RE)+

8SWR,RE
?

MOV

MOV
MOV

177777

173746

CMP

MOV

£4S:

001142

'SET CONTROL "C" FLAG

; ; DONE?

,,cLsna MEMORY LOCATION
; sLOOP BACK

IF NO

:'SETUP THE STRCK POINTER

nawo IstOTVEC+E s

6&5%:

STINES
SESCAPE
o1,§znnnx
s. $LPADR

DUINITIALI
:CLEAR
,,nL Ol
TIRLI

PEER
$e THE
ITCH sc s ER. IF

R OF ITERATIONS
ESC
ON
RROR ADDRESS
ERROR PER
THE LOOP aooasss FOR SCOPE

ERROR LOOF ADDRESS
F
OR IT IS

SETUP ron SOFTKARE SWITCH

JMERRVEC, - (SP)
$64S aoehnvsc
$05SWA,
S

,,snvs ERROR vscron

:SET P ERROR VECTO
,,ssrup FOR A Hnnounns SWICH REGISTER

oooxsb oxsanv ' AND R HARDWARE DISPLAY REGISTE

8-],3SWR

,,TRY TO REFERENCE HARDWARE SWR

BNE

668

BR
MOV
RTI
MOV

658
8658, (SP)

SPASS
#APTSIZE, SENVM

: s CLERR PRSS COUNT
,,TES* USER SIZE UNDER APT

ISShREG SWR

,.NV.QSE APT SWITCH REGISTER

005224
005230

005037
132737

001226
000200

001241

CLR
BIT8

J0S240

012737

001242

O00LINC

MoV

668 :

iLEVEL
7

0, 98tMTVEC+E ,,L

MOV
..
::SIZE FOR A HR

000O0M
001140

001140

:CLR BUSADR FLAG

,a8CNTRLC

*'EQUAL TO A “-1",

005204

:NO CONTROL "C"

TRQP VECTOR FOR TRAP CALLS
gb ?ornnpvs
nnpv§c+a
LEVEL
P SE ;no
-OF -PROGRAM COUNTER
o17sswé
$HINUM
.,anne
HE
RANDOM NUMBER GENERARTOR
8123956, SLONUM
;;BOTH HIGH AND LOW WORDS

000174
000004

001403

d8BUSRDR

MOV
MOV
MOV
MOV

MOV

012737
012637

005236

:GET BUSADR FLAG

oggnkoa ASEMTVEC' | EMTv;cron FOR ERROR ROUTINE

00S176
177570

000176

o-é d8BUSADR

STRtIA

MOV
MOV

005156 012737 177670 001142

005172

PRGE 36

xnxrranzs A rsu vectoRs
JRIOTVEC ;;l07 vecron FOR SCOPE ROUTINE

000034

001115
(01106

08:04

START:
RESET
LSBTTL
xnxvanxzs THE COMMON TRGS
:5CLEAR THE COMMON TAGS (SCMTRG) RRER
MOV
#SCMTARG, RE
:FIRST LOCATICN TO BE CLERRED

000036
1234
021226
176543
025630
123456 025632

005130

CLR

CHP
ens

012737

005040

CLR

00S016

005046

BR
MOV

001304

001100
000340

CLR

STRRTY:

012706
012737

MOV

001306

START2:

22-NOv-77

START OF PROGRAM

STRT1A: CLR

005012
005024

START3:

START1:

001304

004774

00S002

001306

BO6

TEST
MALY1l 30(1046)
ERROR POINTER TRBLE

MOV
MOV
BEQ

8SWREG, SWR

:'BRANCH IF
NO TIMEOUT TRARP OCCURRED
:"AND
THE HARDWARE sun IS NOT = -1
,,ennncu IF NO TIMEOUT
:SET UP FOR TRRP RE TURN

,,poxnv TO SOFTWARE SWR

#DISPREG, DISPLAY
(SP)+,38ERRVEC
; ;RESTORE ERROR VECTOR
678

YES,USE

NON-RPT

SWITCH

SEG 00&e

MD-11- oznnr 8 RMO3/RMO2 ExTENOED DRIVE
CZRMFB.PLL
21-Nov-77
10

}33; 005332

CO1160

678:

3% e W08 oo
1

1838

005260

001374

ie:x

005276

oosaa;

1727777

1844

310

005737

000042

122737

000077

104401

052052

TEST
MACY
INITIARLIZE THE

18:

MOV
ans

A3y

1 S 88?385 ?84351 051776

?YBE

1845

005314

001007

1847

005324

001003

1846

1848

184

1350

185

316

005326

005332

88233“

000000
737

TST

000041

1856

005356

104401

052250

1858

00=362

004737

023366

{ggg

005374

1235 7

001240

iesq
737 00OD4E
186 802338 B3%LiD

2s:

000001

TYPE

1866

1871
1872

005414

00S416
00S420
005426
005426

005432
005434

000001

005227

177777

001002
004737

1880

1884
1885
1886

1887
1888

BE9

476

SOM
005512
00S514
005520
88%358

DOSE32
O00SS36
00SEHc

2737

727
|
3
005737
001101
81 737
05004

104401
10440]

177777

001104
036676

gng

68$:
698
:

BUFFER REG'S

ngro AC ;PT OR CHARIN MODE ~

877,41

LOQDED rnon AN RMO3 ”

. LOADRV

?xTLE

?vpé THE PROGRAM'S TITLE
F

EITHER

OPERATOR TO REMOVE THE PACK
DRIVE

Hgk 6‘ kggo FROM RMO3.RMO2

E og
F

PAPER TAPE

. NOLORD

xnronn

“Enrgn THAT THE °'XXDP' LOADER

2€
E T
M
SLQ§36,o100000
?éf
Hfioflf
8§ THE SYSTEM °
3¢
BR IF
Y
KIN

‘WILL BE ovc

'TURN ON THE TTY KEYBORRD INTERRUPT

: ;SET AUTO-MODE

$-1

:SEE

JBR
SETVEC: JSR
MOV

ADD
BCC
75T

00121¢%
0462049

BNE
MOV
CLR

TYPE
TYPE

1$:

ngg~g£
RUNNING UNDER APT?

698
81,8AUTOB

?oz

11%:

sgnv,ol

BR
MOVB
INC

TESTED

gnwx

,,annucu IF NO

SRTINT: R
TXRE

000000

177776

STORRGE

aTuS

gufi,csuaec
698

GCTSWR

001304
000340

NO-GBR

BNE

BNE
JSR

0S2444

1658
o944 98593¢
ooizls
1870 024uq
BB24sd 83037
ia;g 005454 012;3; 000231
1876
B2ikE
B34
Bd)
1879
005472
004737
036754
1881
1882
1883

001134

BLE

JSR

cgpe

1044

!
3
112737

ERR V

.SBTTL cgr anue #on sorrunne sfixrca GEG&STERNG UNDER XXDP/ACT?
B
bos
,.a“SSNCH T

1864
882435
8357 001140 000176
186
00S412 001005
1867
1868
1869
1870

rxngr nggng

SEG 0067

rénsrSTART 7

7518

PRGE 37

5-1

BNE

HAL T

08:04

3 T 2. ¢HE”FYEE R8T IRE
2

MP
BHIS
3.

)

BNE

CMPB

TYPE

i 3
:o
1;19
34
1884
832345
883737
825443
100000
1865 0OS3S4
103002
1857

xzc

000041

usascao RO

A
LR

{833 BR=sS§ B14237 BBidAE BBiie8
1

CO6

38(1045)
ga-nov-77
COMMON TAG

SRTINT
PC, GETADR

"B uané suf?cn REG SELECTED”

:GET SOFT-SWR SETTINGS
INDICATOR

IF FIRST START

‘BR _IF NOT
cer on CHECK THE RH?0 RDDRESS

#ct
apd P avL
Enfiuas e A R IbR PRINTER
TR
' sxcn;
ser xrgnnrxou 83¥S’L’8u%rHES
BogskTeuR
iG0
gHECKFOR CONTRQL
PC'RMINIT
CHECK THE onxve srnrus
[

c-' ,SAVEFG

-1'%0
1s
CNTRLC

SRTDRY
8PR?, PS
RY

$CRLF
(SYSTAT

?ET THE
snvs _REGISTERS FLAG

RST
‘BR IF ES
;CONTROL *C’

SWITCH SET ?

contxnus IF YES
ET PRICRITY 10
7
RIVE
TABLE POINTER

' CR-LF
;TYPE STRTUS HERDING

DO6

3..

1-DZRMF-B RMO3RMO2 EXTENDED DRIVE TEST
MACYI1l 30(1046)
22-NOVv-77
(08:04
P11
21-NOV-77 14:10
GET VALUE FOR SOFTWARE SWITCH REGISTER

1892
1893
1894

1832
1
1897
18986
1899
1300
1901
1902
1903
1904
1905

0OSS42

010446

MOV

R4, - (SP)

Sy
G546
9?

104483
002
000

TYPOS
.BYTE
.BYTE

2
O

E--OCTQL RSCII
;i TYPE
2
DIGIT(S)
; guppasss LEQOING ZEROS

BNE
7578
BEQ
8PL
TYPE
BR
TYPE

s
DRVTYP(RY)
2s
3¢
NOTRM
[
NOTPRS

'BR IF ONLINE
:SEE IF OFFLINE OR NONEXISTENT
:BR IF NONEXISTENT
:BR IF OFFLINE
:DRIVE NOT AN RMO3
:CHECK
NEXT DRIVE
‘DRIVE NOT PRESENT

30
¥
S60
9

0055
00SS7v
005576
005606

104401
1084901
10S576M
oés

2% :

D440l

04S232

3s:

104401

045270

4s:

104401

04s2M3

S ¥

000004

036620

045317
00000

005702
036620

1308

005620

000405

1910

005626

000402

1912

005634

104401

1914
191S
1916
1917
1918
1919
1920
1321
1822
1923

00S6¥6
00SbS4
00S6Se6
00S6bY
005672
005674
005700
005702
0O0S704
005710

122764
00141l
012737
122764
001402
104401
104401
000000
104401
005204

1825

005716

00131;

1309

1911

005622

TYPE
TYPE
1ST8
BMI

045253

DOSE12

005614

046141
046141
036610

1
105764
001404
100006
104401
000437
104401

190

1907

036620
045300

046141

1913 00SEY0 012737 045324 005702

1324

005712

177776
001304

005037
005737
001417
013746
063716
Q32726
0014GS
013737
004737
004737
000420

1938
1939
1940
1941

005774
(006000
006002
00e

00S037
0B0S5000
012701
105760

1942
1943
1944
194c

0060ie
006014
00022
(OCe024

004737

003403
[S6037
005200
10E301

026374

TYPE

TYPE
TYPE

MOV

CMPB
BEQ MOV
CMPB
BEQ
TYPE
TYPE
LMORD
TYPE
INC

CLR
SRTDRV: TST
BEQ
MOV
RDD
BIT
8EQ
MOV
JSR
33
JSR
B8R
1%:

001312
00000}
036610
03e724

TYPE

CMP

001302

28:
001312

3%:

,MSG. SP
MSG. 5P
vasrn(Rq)

BNE

001302
001300
000001
001300
026374
034076

68:

79
8s:
95

001215

000010

005720
005724
005730
005732
005736
005742
00S746
00S7S0
005756
00S76e
005766
005770

045300

020427

1926
1927
1928
1929
1930
1931
1832
1333
1934
193¢
193¢
13937

PARGE 38

JSR

CLR
CLR
MOV
TST8

BLE
gIsB
INC
ASLB

UNTOFF
NOTSAF

umrou

SG. SP

bxsnnoa gs

84, DRVTYP(RY)
7S
8 ISRMO2, 8S
85, DRVTYP(RY)
78’
,NOTRM
O

SCRLF
RY
RY, #8.
18

;SAVE RY FOR TYPEOUT

,,Tvnggnxvs NUMBER

S
spacss
:CHECK DRIVE'S STATUS
‘BR IF UNSAFE

:CHECK NEXT DRIVE
‘DRIVE

:PRINT

OFFLINE

DRIVE TYPE

;ORIVE UNSAFE

'PRINT DRIVE TvPE
;DR VE ONLINE

1SPECES

noonsss OF RMO3 MESSAGE

RMC3
?
TYPE IT IF YES
nessace OF RMO2
;RMD2
annnca IF SO
:TYPE DRIVE NOT AN RMO3 IF NOT
'TYPE THE DRIVE TYPE MESSAGE
:MESSAGE ADDRESS HERE
:CR-LF
INCREHENT DRIVE NUMBER-TRBLE POINTER
,FI ISKED
?
:BR

IF NOT

PS
S8CNTRLC
18
SAVCSW, - (SP)
C.SWR, {SP)
881700, (sP)+
9¢
C.SWR, SAVCSW
PC,LODFLT
PC,a8GT.PRM
13

'SET PRIORITY BACK TO 'O°
:CONTROL “C" STRRT/RESTART”
: NO--BRANCH
:GET THE PREVIOUS 'C.SWR’ CONTENTS
'SET UP TO SEE IF *BITO0' IS DIFFERENT
:1S *'BITO0' DIFFERENT ?
:BR
IF NOT
'STORE PRESENT 'C.SWR’ VALUE
:RESET PARAMETERS TO THEIR DEFAULT VALUES
:GET PRRAMETERS

DRVSEL
RO
#],Rl
CRYSTA(RO)

:NO DRIVES SELECTED
‘DETERMINE THE DRIVES THAT
:ARE AVAILRBLE FOR TESTING

PC,LODFLT

:SETUP DEFRULT

33
ATABIT
(RO, , a8DRVSEL
RO
R1

PARAMETERS

SEGC D0eP

EOG

--0Ow

PRI 9 0 Bt B Bt o e s P Bt Pt Dot Bt B

OO WDD DD O DD DO
DO DS OO DD
@alalV
O
W00
O
X000
MMM

BIRR LR LEBRTRREO0S

AN
b
N

DD D DD DOD0DD

o Bt Bt Bt Bs Bt Bt e Bt et ot i Pt e Pt Be e Pt Bt Bt Bt Bre D

FRARAAR
t}\l\l\l\l\l
LWwu—O g EERRERE

?\D T

ot et et b s et s Pt Dot Pt Pt Pt et Pt Pt Pt P
D0
DOD
uin
V)]
LLLE
—DWwoNNCNLW ) — OV~

O
X
NO
D
ZX»MCD ]

DZRMF-B RMO3/RMO2 EXTENDED ODRIVE TEST
MACY1l 3011046)
22-NOV-77
08:04
P11
21-NOV-?77 IM4:10
GET VALUE FOR GOF TWARE SWITCH REGISTER

006026
606030

006034

882838

001367
005037

032737

4 0010
oo§13

006050
006056
006060
006066

122737
001003
042737
104401

006076
006100
006104
006106

00S000
013701
001004
104401

0O6ll2

000137

006120

103011

036700

000400

001390

000011

0OCO4l

000001
045331

001312

036700

006072 005037 021234

006116

006201

006l22

005237

006130

104403

006126
006132

006133

010046

006144

005200

06162
006led
006172
006174

104401

000763
013737
005737

006206

003006
032737
001402
104401
005737
001002
000137

006212

005037

001010

006200
006204

006216

108:

001312
045362
021052

6%:

021234

012737

2s
JASEEKFG

BNE

COM

CMPB
BNE
BIC
TYPE

,
JUSEEKFG

YES--BRANCH
' NG

CLR

811,91 ;LORDED FROM AN RMO3 °
108’
:BR IF NOT
cexroo DRVSEL
:CLEAR THE DRIVE O SELECTION BIT
IVES
: "DRIVES(S) TO BE TESTED’

BIT

RO
J8DRVSEL ,R1
68
, NONE

'DETERMINE PARSSES TO MAKE AND

INSEOP

:GO TO END OF PROGRAM

BCC

ASR

036000

001314

045371
001312
004762
001334

0£CO00:!

001336

:THE DRIVES 10 BE TESTED
:ANY onxves SELECTED?
YES-—BR
: * NONE'

'REPORT THE DRIVES TO BE TESTED

MOV

RO, -(SP)

acssnocr

:GIVE THIS DRIVE
R PASS

.BYTE

,,rvps1 DIGIT(S)

,,sn E RO FOR TYPEOQUT

:GO TYPE--OCTRL ARSCII

SUPPRESS LERDING ZEROS

7ST
BEQ

Rl
63

INC

ann DRIVE NUMBER

BGT
BIT
BEQ
TYPE
RSTRT1: TST
BNE
JMP

RSTRT1
.35000 INTSTNMS
RST
NOCLOK
ORVSEL
18
START2

} YES--BRANCH
:NO--ANY TIMING TESTS TO BE PERFORMED”
:NO--BRANCH
.
P"NO KWll-P CLOCK TIMING TESTS WILL NGT BE PERFORMED
:ANY DRIVES SELECtED
:BR IF YES
‘GET DRIVE SELECTION ENTRY
:8 RESTART AT BEGINNING ------=m-m-ecmmmeeae )

18:

cnxonv

;INIT.

7s:
021226

:CLERR SEEK
F

oo SEEK BEFORE onrq TRANSFER?

bnssnocr

.BYTE

021234
001324

#SW08, 8C . SWR

CLR
MOV
BNE
TYPE

TYPOS

045367

SEG 00&9

BNE
CLR

INC

000

005701
001404

006146
006150
0061

SS%:

001

006134
006136

006140

4s:

PAGE 39

8%:

TYPE

BR
MOV
TST

CLR

MOV

006224 G33737 001336 001312 RSTRT2: BIT

BNE

h
VES?
NO--BRQNCH

COMMA

68
aasewocr JuSEOPCT
a-CL s
:KWl1-P AVAILABLE

MSK

onOnsx DRVSEL

DRVOK

THE CHECK DRIVE KEY

'START TO CHECK DESIRED DRIVES

xs THKIS DRIVE SELECTED?
YES--GO CHECK IF CRIVE

IS READY FOR TESTING

006234
006240
006244
006250
006.

012706
005237
106337
103753
000764

001100
0C1334
001336

RESTART: MOV
INC
ASLB
BCS
BR

#STACK, SP
CHKDRY
DRVMSK
RSTRT1
RSTRT2

sevup THE STRCK POINTER
‘MOVE TO NEXT DRIVE NUMBER
:POSITION THE MASK
:BRANCH IF THE DRIVE NUMBER NEEDS INITIALIZED

0062S4

013702

001334

DRVOK:

MOV

CHKDRV, R2

:PICKUP THE DRIVE NUMBER

006264

00300S

BGY

' YES,

006270

043737

00133¢

BIC

DRvnsx DRVEEL

;CLEAR DRIVE'S SELECTION BIT

C0e300

010237

00420e

Mov

R2,3I8DPB. A

006260
006266

006276

105762

104011

0007SE

(36610

1STB

ERROR

001312

1$:

DRVSTAR{RZ)
RES-ARY

;18 ocsxneo ORIVE ON-LINE?
BRANCH

:DRIVE SEL ECTED IS _NOT ONLINE
:RETURN
:SET

THE DRIVE NUMBER

INTO THE DPB°S

MC-11- D‘RHF B RMO3/ RHOE EXT;NDED DRIVE
CIRMFB. Pll
14 10
21-NOV-7

R2,d#0PB.B

0Qu4e2ee
004246
004266

027010
021052
000020
000001

R2.a80P8. C

8»—-.—-»——»—-»-»40—»-.—
DM NN LWl

PC, d8LDCMD
0 QD COMMAND INTO DPB.B AND DPB.C
#$E£0P _ 38BYPRSS 1 F RROR GO TO END OF PROGRAM
ASSUME 16 BIT FORMAT
sFMT22/256. ,DPB. A+ 1
tT Egnnar REQUESTED *
#BIT00, C.SWR
P! b

001332
0g4207
0013C0
004210

nJrofurunuivrunanurng
00000000

PAGE 40

l"\

237

GET

FOb

MACYLl 30(1046)
22-Nov-77
(08:04
VALUE FOR SOFTWRRE SWITCH REGISTER

2s
iB R
iC L EAR THE ‘FMT22' BIT
DPB.A+]
8SETFORM, DPB. R+2
iSET THE FORMAT BIT PER DPB.A+!
RO, 98CALL .A
:Go XECUTE THE COMMAND
sRECAL aoope R+2
RECAL =COMMAND
RO, I8CALL.A
; GO XECUTE “THE COMMAND
; TESTING DRIVE
TESTNG
; snvz R2 FOR TYPEQUT
TYPE--OCTQL RSCII
m

oo4210

l‘"ll'"\ Dv-om

006304
006310

TESTY

ha -(SP)
1
0
,MSG.SP

046141
045S01
000004
004336

SERIRL

RH.REG+30,R1

SEB%QL NUMBER

3%:

TYPE DIGIT(S)

: SUPPRESS LERDING ZEROS
fv SPRCES
°'SERIQL NUMBER
;FOUR DIGITS TO T\PE

:PUT THE NEXT DIGIT
NTO R2

sMAKE
AVE

D00060

4$:

0oec0C

13737

g0ol1l1lc

SCRLF

ERR.CT, SERMAX

IT ASCII
IT

;s TYPE
;ALL DIGITS TYPED?
;NO -- BRANCH

i SETUP MAX ERROR COUNT

SEG 0070

GO6

MD-11-DZRMF-B RMO3 RMO2 EXTENDED DRIVE TEST
MACY11l 30(1046)
22-NOV-77
08:04
CORMFB. P
21-NOV-T7 1M4:10
GET VALUE FOR SOFTWARE SWITCH REGISTER

2041

204¢e

.SBTTL

2043

LANIPE ANCIVE ANDZ
AR AR EE AN
ANE ANIE ANIS

R
R

ANIE
ANNZ

ANDL
ANPL

JNDE

ANNL

PAGE 41

w#sse TESTS nsss

ANIZ ANIZE ANDZL ANDL
ANPE ANNZ ANNZ ANVE
ANNE ANPL ANNE ANDL

ANDZ ANDL ANDE ANNL
ANPL ANNZ AN ANIE
ANNZE ANNZL ANIZL ANFE

ANDL
ANIE

ANWVL
AN RZ
ANNE

ANN4

ANDE
ANRE

AN
ANIE

AW
AN

ANRE

*IN THE DESCRIPTIONS OF THE BELOW TESTS THE VARIABLES USED

GQND THEIR DEFAULT VALUES (UNLESS SPECIFIED OTHERWISE) RRE:
QHNEHONIC

VALUE

VARIABLE

;!'

;*#R

*FC

#_C

ITERATIONS (REPERTS)

FIRST

1
FC+1C

INCREMENT VALUE
NEW OR MODIFIED CYLINDER
ADDRRESS

41C OR BlY

%
:#NC OF NCI
.

:#NCe

LC-1IC

i 4

CYLINDER

ADDRESS

LAST CYLINDER ADDRESS

NEW OR MODIFIED CYLINDER

ADDRESS

oFT

FIRST

FT«17

NEW OR MODIFIED TRACK RADDRESS

#L7
X DO

18
1

:#FS

LAST SECTOR ADDRESS

S
IR PARNE
FERY EERAY YSAN YARN
A YRRYERN
YEEE FEZAN FVERNY VEEN
YAEE

YERS

VERE

ADDRESS

FIRST SECTOR RDDRESS

TRACK

LAST TRACK ADDRESS
INCREMENT VALUE

VERNY VERN

¥YEEE

BERAN
FERN

FERNY VARNY VERN
FEEN PEAN FEAN

VAR
VAN

VERY
VEAN

VERN
VERN

YEAS VEAN
PERY VERY

VARY
VRN

VAR |
PN

NEAY

YERN

FERN

FEARY

VERNY

YEAN

FEAN

TEEE

2
ef??

VEAN

.SBTTL

YARNX

### SEEK

TESTS ##

RS EENE

ANNE

ENIE

BEYL

AUDL

ANDE

AENE

ANDE

ANNE

AV VE

ANPLE ANIE

ANINE

AN-IVE AN

HEE JEEIE
A
BV NS

SNIE
AL

SNIE
ANNE

ANPE
ANNL

ANE
INES

SNNE
ANPDL

ESVZ
ANDZ

ANWZ
ANPZ

AL
ANDZ

AL
AL

ANFE
ANNE

ANDE
ANDE

ANIE
AN NE

ANIDE
ANDL

AP
ENEE

AW
2SN

;#THE

SEEK

TESTS WILL BE EXCUTED USING

IMPLIED SEEKS

:#IMPLIED SEEKS WILL BE PERFORMED BY "READ
HEADER AND
; #DATR*TM

COMMANDS

TRACK

“FT*

SECTOR_“FSTM

THE

ANNE
ARNE

S
B

THESE

DESIRED

CYLINDER.

:#THE WORD COUNT WILL BE _SET SUCH THAT ONLY THE CYLINDER AND
:#TRACK/SECTOR WORDS OF THE HERDER ARE READ.
HEEE

VEEN
YRR VEAE Y42S
AR

VAR

[

VAT

VAN

FENE

nruny
OO0
OO0
WU P«

VAR

PEEE

VRN

VERN
YRR

VEAN

VAN
VERR

YERN

VEEN

VRN

FERN

VEAN

Y22S

YERN

VERN

VEAN

YEAN

EEENY

FEARNY

VAN

VERYE

FEEN

YERX

VAN

PERNY

PERY

FIEN

PERY

FEAN |

FEANY

VARN

VERE VEEN

CRRE RN SRR ERR R

**EC' 0

VERN

VERAY

RBE IR SRR R

VERR

JEEN

IR|

R RERRRRERFRRRRRRERERPILARRRRR
LIRS

RECAL -SEEK TEST

SEG 0071

nLW—OLom-)

)

Wwwwnn NI
W

O A

Ol e ot S

(GG U JF ot S oY o
4% o <38 ¥ o
s
- WO NN
L
-0

ruRIrur
R RO R RRVRB N RURL AU MUV VL U R TVTUVTV L N PV YTV VAU

RN
Y- +—
NN
L WU OWOo NN LWU—O0Mm

O NNNHMHFHP’—"’—HH"HF'DOO

UV LRV U RV TUN RS FLIV D TV NIV RV UV PV TLTUNY urury

'é

DZRMF-B RMO3 RMO2 EXTENDED DRIVE TEST
Pll
21-NOV-77 14:10
10

006506

006510

WILL

CRUSE

EXECUTE

SEG D072

THIS

CH CKED

NSURE

DRIVE

PRGE 42

connnno cYC E AND TH N SEEK FORWARD TO CYLINDER “LC” AT
EHP*STS

THE

(08:04

i #

38""““82 gtnrus

ERRORS OCCURRED.

chanapars

INDICAYIONS

QRE

RRERBEBRERRBRBESRBRBEREERE
B RR AR RRERERLERBREER R AR ER I AR R REREL S

000240

033737

teto:

001002
000137
012737

001506

001314

006714
000000

001102

006532

004737

026632

006544

013777

801102

001570

001204

806516
00eS20
006524

TEST

22-NOv-77

‘e

006506

HOG

MACY1l 30(1046)
RECAL /SEEK TEST

NOP

BIY

J9BITS+0#2>, TSTNMS

;CQ_THIS TEST?

BNE
JMP
MOV

ss
TST
0, aosrsrnn

006536 012737 006676 001110

JSR

uresro JUSLPERR ' ;SETUP THE LOOP ON ERROR ADDRESS

066552

MOV

013737

648:

MOV

172370

MOV

006560 112737 000031 001115
00eSee

012737

000000

001224

MOVB

006574

Q032777

010000

172336

006602

0601413

006610

042700

006620

010046

006b22

104402

00eb04 013700 001102
COeE14

006624

006625

104401

THIS

177000

000

001215

006632

112737

000107

006640
006646
006654
006bb2
ooss;o

113737
113737
013737
012737
012;37

006706
00e712

004037
000004

001606
001600
001574
006712
005578

882905 855039 885684

027206

004236
004237
004240
001332
001106

EXITO:

ITERATION COUN

:SET TEST NUMBER IN APT MAIL BOX

IS A MACRO TO TYPE OUT THE TEST BEING Execurzo

#SW12, ISUR

; CHECKFOR suxrc

rqsx OUT

R0, -(SP)

"§2§$
RO Egs TYPEOUT

.BYTE

,,rvps 2 DIGIT(S)

TYPE

,SCRLF

MOVB

rESTO

nnx ERRORS ALLOWED FOR TEST

8177000,
]0

.BYTE

004210

20, StESTN

825, tennnx

BIC

MOV

208%:

GET

-IF

TYPOS

104401

ong TH? TEST NUMBER ;Nro THE DISPLAY REGISTER

sRPT.§

208

TYPE

002

TSTNM’ goxspLav

aeo

MOV

001218

006626

006632

MOV

LODPRM

YES--BRANCH
:NO--GO TO THE NEXT TEST
:SET UP TEST NUMBER AND
:CLEAR THE ERROR FLAG (SERFLG
:LOAD THE PARMETERS FOR THE TEST

MOVB
MOVB
MOV
nov
n

scops

s:;rnn RO
$CRLF

SET

IF SWi2

N DON’ T TYPE TEST NUMBER

ss fvp; THE NUMB

THE HIGH O DER BYTE

: GO TYPE--OCTQL RSCII

:: SUPPRESS LEADING ZERCS

SRECAL , d8DPB. A+2

: RECAL =COMMAND

auFS, dkOPB.B+10
OsFT.QuDPB.B+11
dsLC QeDPB. B+12
csxx?o 38BYPASS
';svo gkpnon

;FS
FT
'LC
;GO TO EXITO ON ERROR
ge;uSPngzCnogoss§ER

RO, 8CALL
.e

co
stcurs THE COMMAND
ik

8aocALL

EXECUTE THE COMMAND

H ;l»Qlll!lil!lllli!lll}}!lillil!iil!!I'llilliilll!lll«llll{liiiillli

;#TEST |
¥

SEEK/SEEK TEST

THIS_TEST WLL

DR vs

EXECUT

FORWARD SEEK

‘e
Pe

é 58 é" ?55
L& FOL 20 8 Esvsnse SEEK CYCLE TO
"FC” “F
AT THE COHPLETION or EACH SEEK, THE PROPER

i 4

“LC* WILL DEFAULT TO 128 AND “FC*,
WILL DEFAULT TC O

¥
e

OPERATION.
xnoxtnrons RRE Exnnxnso TO ENSURE PROPEP
*F
“LT", “FSTM, AND "LS"

IS SET

MD-11-DZRMF-B8 RMO3 RMO2 EXTENDED DRIVE

CTRNFB.PLI
2183

2154

006714

21-NOV-T7

[4:10

000240
033737
001002
000137
012737

001S10

001314

007142
000001

001102

0067?40

004737

026632

2163

006752

0137?77

001102

Si%é

006774

2164
2165

T1
R

006714
(06716
006724
006726
(006732

0067?44

012737

MACY1l

007124

001110

64%:

172162

MOV

STSTNM QDISPLAY

2169

007002

0327?77

010000

172130

8i7

2171
2.i72

0070i2
007016

013700
042700

001102
1770GC

007026

010046

5189

007030
007032
007033
007034

007040

104403
noe
JOO
10401

0O0l215

2182
2183
2184
2185
2186
2187
2188

007040
007044
007052
007060
7068
007074
007102

GOS037
113737
113737
113737
113737
013737
013737

001446
001606
001610
001600
001602
001572
001574

2190
2131

007116
007124

012737
012706

007124
001100

2193
gigg

007134
007140

004037
000004

2173

2174

217s
2176
2177
2178
2179

2189

cl92

£19€

007022

007110
007130

001413
10440!

012737
004037

001224

MOV

-THIS

BEQ

MOV
BIC

001215

007140
027410

027206

TYPE

#1,38STSTNM

sTEST1,98SLPERR

dsRPT, $TIMES
825, , $ERMAX

s, S$tESTN

;SET UP TEST NUMBER AND
:CLEAR THE ERROR FLAG (SERFLG)
;LOAD THE
PARMETERS FOR THE TEST

';SETUP

THE LOOP ON ERROR ACDRESS

:LOAD THE TEST NUMBER

INTO THE DISPLHY

:GET THE ITERARTION COUNT
:MAX ERRORS ALLOWED FOR TEST

IS A MACRO TO TYPE OUT THE TEST BEING EXECUTED

#SW12, ISKR

:CHECK FOR SWITCH 12 SET

208

:IF = 0,

STSTNM, RO
8177000, RO

IF SWl2

THEN DON'T TYPE TEST NUMBER

SCRLF

TYPOS
.BYTE
.BYTE
TYPE

2
DO
, SCRLF

CLR
MOVB
MOVB
MOVB
MOVE
MOV
MOV

BRSFLG
S8FS,d8DPB.B+10
asLS,980PB.C+10
Q8FT,380PB.B+11
Q8LT,980PB.C+11
Q8FC,asDPB.B+12
asLC,a80PB.C+12

;CLEAR BAD SECTOR ENCOUNTER FOR
;FS
;LS
;FT
;LT
;FC
;LC

TESTL:

MOV
MOV

#TEST!,SLPARDR
#STACK . SP

;SETUP LOOP RDDRESS
:SET THE STACK POINTER

EXIT1:

JSR
SCOPE

001332

MOV

JSR

: s SAVE RO FOR TYPEOUT

:: TEST NUMBER
;GO _TYPE--OCTAL ASCII
:s TYPE 2 DIGIT(S)
; ; SUPPRESS LERDING ZEROS

THE

sEXIt1,38BYPARSS (GO TO EXIT1 ON ERROR

RO, 9#CALL.C

:GO EXECUTE THE COMMAND

RO, 38CALL.B

AERERRERERR RN RN

RN AR

:GO EXECUTE
:LOOP
EE AR R R

RN EREERRRRRRRERRREER
AR LR ERRS

(hTEST 2

2199
2200
2201
2202

i #
"
‘e
¥

THIS TEST WILL COMMAND FORWARD SEEK CYCLES TO ADVANCE THE
CYLINDER ADDRESS FROM "FC” TO “LC" BY THE INCREMENT “IC".
WHEN THE RESULTANT CYLINDER ADDRESS (NC) EXCEEDS
“| C* REVERSE SEEK CYCLES ARE INITIATED: STARTING

2204

UNTIL *NC” IS LESS THAN “FC”.

e20¢

2e0€

SSS%

i¢

INCREMENT/SEEK TEST

THE COMMAND

gigg

2202

AT THE LAST LEGAL “NC* AND DECREMENTING BY “IC”

AT THE COMPLETION OF EACH

SEEK COMMAND THE PROPER INDICATORS ARE EXAMINED TO

ENSURE PROPER OPERATION.
AR AR RN R SRR R R R AR AR

IS SET

‘ELSE, ' 'PE THE NUMBER
:MASK OUT THE HIGH ORDER BYTE

RG, -(SP)

004236
004256
004237
004257
004240
004260

:sSET TEST NUMBER IN APT MAIL BOX

MOV

20%

001106

SEG 0073

PC, L ODPRM

MOV

MOV
MOV

007010

JSR

00I204
001115

2170

PRGE

d8BITS+(1%2>,TSTNMS ;D0 THIS TEST?
64
; YES--BRANCH
TSTe
:NO--GO TO THE NEXT TEST

001570
000031

2168

08:04

NOP
BIT
BNE
JMP
MOV

013737
112737

000001

TEST

106

22-NOV-7??7

ERERBRERREERRRRE L URERERRERERAERELEREREERERRRER
LR R AR LR L REEARRRLS

006760
006766

012737

30(1046)

SEEK/SEEK

2185
2186
2157
2158
2159
2160
2161

2162

TEST

PR R ARSI R

RPN AR RN R B R RS RPN

AIC RN

DRIVE

(Dl

st e 2 0

)

IV LWN—O WD

b pe b

OWw

P00

[AVIAS

VUV
rBrVND VLN Ao £
AV VgV Ia VTV aWiaV]aViaWya¥]aVigV]

(@]
'

DZRMF-8 RMO3/RMO2 EXTENDED DRIVE TEST
P11
21-NOV-77 [4:10
T2
007142
007142

000240

007152

001002

007160

012737

007166
007172
007200

007144
0071849

T8 2:

033737

001512

001314

000137

007424

000002

001102

004737
012737
013777

026632
007316
001102

001110
171734

007236

001413

007240
00724

013700
042700

£A72S6
007260
007261

104403
062
000

007764 0100496
007250

007262
007266
007266

104401

64%:

012737

007274

007275
007302
067310
007316
007324

113737
113737
012737
013737
012737

001606
00isC0
007422
001572
007324

007336

004037

027206

gggggg 012706 0011060
007342
007350
007356

004236
004237
001332
004240
001110

004

007400

004037

027206

007422

000004

88;353 012706 001100
007404
007412
007420

001106

163737
023737
002767

001576
001572

001110

82, 28STSTNM

g2, STESTN

18:
TEST2:

INCEK

JSR

oECSK
EXIT2:

‘ELSE, 'YPE THE NUMBER
"MASK' OUT THE HIGH ORDER BYTE

:IF = 0,

:‘';SAVE
RO FOR TYPEOUT
TEST
NUMBER

@
O

160 TYPE--OCTRL ASCII
PPTYPE 2 DIGIT(S)
. 'SUPPRESS LERDING ZEROS

818, SLPADR

:SETUP LOOP RDDRESS

, SCRLF

aFS, 3uDPB.B+10
O8FT Q80PB.B+11
sEXIt2 JBYPASS
a:rc JkoPB.B+12
${PERR

:FS
FT
GO TO EXIT2 ON ERROR
FC
'SETUP THE ERROR LOOP ADDRESS

RO, 38CALL .B

:GO EXECUTE

osfncx SP

:LORD THE STACK POINTER
THE COMMAND

osiC,980P8.B+12 ;MOVE TO NEXT CYLINDER
9uLC.980PB.B+12 :0UT OF CYLINDERS?
INCSK
: NO--BRANCH

MOV

osfncx SP

:SETUP_THE ERROR LOOP ADDRESS

RO, 98CALL.B

:GO EXECUTE THE COMMAND

MOV

SUa
CMP
BLE

SCOPE

aoLc J8DPB.B+12

${PERR

asiC,9u0PB.B+12
98FC, J8DPB.B+12
DECSK

IF SWl2

THEN DON'T TYPE TEST NUMBER

ADD
CMP
BGE

JSR

004240
004240

S§TSTNM. RO
o177000 RO

ho -(SP)

MOV

THE TEST BEING EXECUTED

s CHECK _FOR SWITCH 12 SET

MOV

MOVB
MOVB
MOV
MOV
MOV

. SET TEST NUMBER IN ARPT MAIL BOX

#SW12, ISWR

208

MOV

,D0 THIS TEST?

YESZ-BRANCH

IS A MACRO TO TYPE OUT

BEQ

TYPE

SEG 0074

SET UP TEST NUMBER AND
:CLEAR THE ERROR FLAG (SERFLG)
PC, LODPRM
:LOAD THE PARMETERS FOR THE TEST
sTEST2, 98SLPERR ';SETUP THE LOOP ON ERROR ADDRESS
STSTNM QDISPLAY
:LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER

THIS

20$:

O00IS74

007366

¢ET THE ITERATION COUNT
:MAX ERRORS ALLOWED FOR TEST

TYPOS
.BYTE
‘BYTE

004240
004240

012737

OsRPT $TIMES
825, teanax

TYPE

001576
001579

013737

NO--GO TO THE NEXT TEST

MOV
BIC

063737
023737
002367

007360

007366

7573

MOV

001215

IMP

MOV
MOVB
MOV

171702

PAGE 44

JEBITS+ (252>, rsrnns

JSR
MOV
MOV

001102
177000

104401

NOP

D08:04

BIT

BNE

007206 013737 001570 001204
007214
112737 000031 060111S
007222 012737 000002 001224
007230 032777 010000

JOb

MACY11 30(1046)
22-NOV-?7
INCREMENT /SEEK TEST

:LORD THE STACK POGINTER
:LOOP

;-iiliii!il!i}ililill!l}lllllli!Ilillliiliilllili!lilll!liili*i*l

S&TEST 3

Q¥
e
-

STEPPING SEEK TEST

256, AT THE
Ehcfi éEéK
cbnnbuo64,128,
THE PRbPERAND INDICATORS
ARE COMPLETION
EXAMINED TOOF ENSURE
PROPER
rnxs

rssr WILL connano SEEK CYCLES

TO CYLINDER
O

IS SET

no 11-DZRMF-B RMO3- Rnoa EXTENDED DRIVE
ZRMFB. P11
21-NOv-7
10
SSEE

2267

2268

269
2270

TEST
T3
;¥

007424
007424
007426

KOb

MACY11 30(1046)
22-NOV-77
STEPPING SEEK TEST

000240
033737

001514

001314

007664
000003

(CO01102

NOP
BIT

001002
000137
012737

2275

007450

004737

026632

2277
2278
2279
Sgg?

007462
007470
007476
007504

013777
013737
112737
012737

001102
001570
000031
000003

171452
001204
001115
001224

MOV
MOV
MOVB
MOV

2283

2282

007Sle

032777

010000

171420

817

2286

007526

042700

&4S:

2276 007454 012737 007600 001110

001413

2285 007522 013700 001102
2087

007532

104401

2288 007536 010046

2289
2290

2291

22392
2293
Sggg
2296

2297
2298

007543
007S44
007550

000
1044901

‘BYTE
TYPE

012737

007556
007564

.BYTE

007556

001106

001600

004237

113737

O001£06

113737

012737
013737
012737
012706
004037

007662
001572
007606
001100
027206

2305
2306
2307
2308
2309

007630
007636
007642
007646
007652

012737
012706
010137
0049037
006301

007630
001100
004240
027206

2314

007624

007654
0076E0
007ee€2

013701

020137
003770
000004

208 :

001576

004236

001332
004240
001110

1$:

TEST3:

13:

001574

EXIT3:

MOVB
MOVB

S§TSTNM, RO
§CRLF

ho -(SP)
2

O
SCRLF

,cHECKron SWITCH12 SET
THEN DON'T TYPE

ELSE TYPE THE NUMBER

PETEST o

2317
2218
2213

-~
‘e
it

TEST NUMBER

. sSAVE RO FOR TYPEOUT

:'TYPE 2 DIGIT(S)

: 'SUPPRESS LEADING ZEROS

81$, SLPADR

;SETUP

S8FT 80PB.B+11

TEST LOOP RDDRESS

MOV
MOV
MOV
MOV
JSR

sEXIt3 38BYPASS
S8FC,9k0PB.B+12
., SCPERR
.
sStack sp
RO, asCALL.B

;GO TO BYPASS ON ERROR
:FC
SETUP THE ERROR LOOP ADDRESS
:LORD THE STACK POINTER
;GO EXECUTE THE COMMAND

MOV
MOV
MOV
JSR
ASL

8. SLPERR
sStack, spP
R1,980PB8.B+12
RO, 28CALL.B
Rl

:SETUP THE ERROR LOOP ADDRESS
"LORD THE STACK POINTER
:DESIRED CYLINDER
:GO EXECUTE THE COMMAND
novs TO NEXT CYLINDER

ChP
BLE
SCOPE

R1,38LC
18

IS SET

i3 TEST NUMBER
) TYPE--OCTQL RSCII

98FS,98DPB.B+10 :FS

IC.R!

IF SW12

'MASK'OUT THE HIGH ORDER BYTE

:CYLINDER

ON
O--LOOP

RREREENEEEREEEEESEEEEREEEWEEEE RN E LR NN EE SRR

ggig

£325

MOV

001110

#SW12, 3SWR
o177ooo RO

TYPOS

LOAD Hg PARMETERS FOR THE TEST

IS A MACRO TO TYPE OUT THE TEST BEING EXECUTED

BIC

MOV

YES--BRANCH
:NO--GO TO THE NEXT TEST
:SET UP TEST NUHBER AND
CLena THE ERROR FLRG (ssanc)

STSTNM' SDISPLAY :LORD THE TEST NUMBER INTO THE DISPLAY REGISTER
J3RPT,$TIMES
:0ET THE ITERARTION COUNT
825, , $ERMAX
:MAX ERRORS ALLOWED FOR TEST
83, $TESTN
::SET TEST NUMBER IN ARPT MARIL BOX
208

TYPE

001215

ODPRM

BEQ

MOV

062

007872
007600
007606
0076I4
007620

2310
2311
ggig

crtsra J8SLPERR ';SETUP THE LOOP ON ERROR ADDRESS

104403

2293
2300
2301
2302
2303
2304

JSR

THIS

177000

_;DQ THIS TEST?

ss
TSTY
83, J¥STSTNM

MOV

001215

J¥BITS+(3%2>, TSTNMS

BNE
IMP
MOV

007540

007542

SEG 007S

l!!lv!lIlll!lillllllillllil!llilli!llli!i*llll!llllllll!ili!lllI»

ti13

007434
007436
007442

007520

PAGE 45

OPERATION.

2271
2272
2273
2274

2284

08:04

OSCILLATING SEEK TEST

R LR EREEEEEER SR EE R R

ruxs TEST WILL connnno SEEK CYCLES FROM “FC" TO "NC* AND BACK
T0 "FC".
*“NC" STARTS AT “FC" AND INCREMENTS BY "IC” UP TO CYLINDER
“LC*, THEN IS DECREMENTED BY "IC" BACK TO CYLINDER “FC”.
AT THE

CcOMPLETION OF EVERY SEEK COMMAND THE PROPER INDICATORS ARE

-2

MF-B RMO3 RMOZ EXTENDED DRIVE

21-NOV-77

14:10

; ST

007664
007666

007674
007676
067702
007710

LO6

30(1046)

E-NOV-??

OSCILLATING SEEK

TEST

08:04

PRGE 46

33 X23222 2232222222222 222 2232222222222

000240
033737

001002
000137
012737

004737

1y,
00iS16

001314

010316
000004

001102

026632

SEG 0076

EXAMINED TO ENSURE PROPER OPERATION.

HE4

007664

MACY11

&4%:

NOP
BIT

JBITS+ 42>, TSTNMS

JSR

PC, LODPRM

BNE
IMP
MOV

EY4S
Ts75
84, 8STSTNM

22222

iYL

;D0 THIS TEST?

YES--BRANCH
INO--GO TO THE NEXT TEST
:SEY
TEST N
R AND
CLEQ THE ERROR FLRG (SERFLG)

LOAD THE PARMETERS FOR THE TEST

007714
007722

012737
0137?77

0I00S4
001102

001110
171212

MOV
MOV

sTESTY, ISLPERR ' ;SETUP THE LOOP ON ERROR ADDRESS
STSTNM JOISPLAY
:LORD THE TEST NUMBER INTO THE DISPLAY REGISTER

007744

012737

000O0M

00122%

MOV

84, SYESTN

007?52

032777 010000

171160

81T

007766

042700

007730 013737 001570 001204
007736 112737 000031 O00il1S
007760

001413

007762 013700 001102
007772

104401

007776 010046

010000

0100062

010003

0co

010010

012737

010024

010032
010040
010042

0100S0
010052
010054

010060
010064
010072
010076
010102
010106
010110
010112

004237

010314

001401
0051
01370f

0050
012737
012706
010137
004037
005702

010000

030606

013737

001572

004037

005702
0C14i3
004037
00141E
00S237

004236

027206
030606
0CI41E

18:

001332

,SCRLF

MOVB

TESTY:

001110
18:

2%:
.

81S, SLPADR

S8FT JsDPB.B+11

BEQ
COM
MOV

TESTY
R2
J8FC . R1

CLR
MOV
MOV
MOV
JSR
757

_WORD

SIF

THEN DON’T TYPE

'ELSE, ?vpe THE NUMBER

SW12

TEST NUMBER

"MASK'OUT THE HIGH ORDER BYTE

; s SAVE RO FOR TYPEOUT

:1TEST

NUMBER

160 Tvpe--ocrnL

PITYPE 2 DIGIT(S)

ASCII

: ' SUPPRESS LERDING ZEROS

;SETUP LOOP RDDRESS

: NO--BRANCH
i YES--SET SWITCH
:SET NC
TO

d8STALLD
.. SLPERR
#StACK, SP
R1,a80PB.B+12
RO, 38CALL.B
R2

:START AT ZERO IF STALLS REQUIRED
:SETUP THE ERROR LOOP ADDRESS
:LORD THE STARCK POINTER
:NC
co EXECUTE THE COMMAND
s

STALLD

Txne POINTER

RO, 98CALL .B

co EXECUTE THE COMMAND

33
RO, wSTALL
STALLO
a-STnLLo

no--ana CH
'YES--GO TO STALL ROUTINE
i TIME POINTER
'UPDATE THE TIME

2$
RO, 38STALL

FC, aoopa B+12

157

rRe'

BEQ
JSR
.WORD
INC

TEST BEING EXECUTED

sEXIty J8BYPASS GO TO EXIT4 ON ERROR
R2
:CLERR STALL SWITCH (NO STALL)
#SW12,38C.SWR
:STALL REQUIRED?

MOV

JSR

THE

; CHECK FOR SWITCH 12 SET

asFS, 9sDPB.B+10 iFS

MOVB

BEQ
JSR

004240

TYPE our

ko -(SP)

TYPE
MOV

sSET TEST NUMPER IN APT MAIL BOX

§CRLF

MOV
CLR
BIT

001300

001572

001416
010064
001100
004240
027206

001403
004037

010126
010134
010136
Cloi42
010144

001600

012737
005002
032737

001416

010132

001106

csr THE ITERATION COUNT
nnx ERRORS ALLOWED FOR TEST

$TSTNM, RO

BYTE
BYTE

010016

001606

113737

a17”cob RO

MOV
208:

#SW12, ISWR

BIC

TYPE

001215

1S
A MACRO

20$

TYPOS

113737

010116

010120

177000

001215

J8RPT, $TIMES
825, tennnx

BEQ

MOY

062

104401

010016

THIS

104403

10004

010010

MOV
MOVB

0--BR NCH
YES-GO TO STALL ROUTINE

;FC

(STALL?

IS SET

MOG

MD-11-DZRMF~B RMO3-RMO2 EXTENDED DRIVE TEST
CZRMFB.P11
21-NOV-77 14:10
T4

2377

010150

023737

001442

53-3
002037GR8s42
$3a0 DIDIE0
BiBied 283937
.

001416

Q01

2381 010170 020137 001274

2382
2383
2384
238S
2386

010174
818553
01
818310
010314

003740
013701
012737
8157
1

2388
2389

010224
010226

005702
001403

2391

010234

1416

2393
2394
2395
233

010244
0106250
010252
010254

001574
010202
88‘§°8

2332

010230

01023

4037

030606

013737

001574

004037
005702
001413
004037

027206

10274
010276
010302
0106306
010312
010314

347
005037
163701
020137
002340
000004

3s:

eLR
Ao

4s:

BLE
MOV
MOV
MOV
MOV

aonxsraL #STALLO

004240

001416
001576
001572

EXIT4:

2407v

Txne TO axcv

JSR

RO, asCALL.B

R1,990PB.B+12

JSR

RO, 98STALL

18’
3s8LC,R!
s. S(PERR
astack gp

R2
S$

NO--BRANCH
ser NC TOLC
.ssrup THE ERROR LOOP RDDRESS
:LORD THE STACK POINTER

:GO EXECUTE THE COMMAND
:STALL?
No—-aan CH

YES--GO TO STRLL ROUTINE

STALLD

TIHE POINTER

no,abcn
R2
6$
RO, d¥STALL

: GO EXECUTE THE COMMAND
'STALL?
: NO--BRANCH
PYES--GO YO STALL ROUTINE

4§
J8STALLO
981C R
R1,akFC
4g

NO-vss--ssr STRLL TIME BACK TO ZERC
'NEXT CYLINDER
: DONE?
: NO--BRANCH
:LOOP

MOV

dsLC

'fiORD

STALLO
TI"E Pox?EE
TIME
nxs#kL ausrnLLo9&n§
? hi

én
8GT

6S:

SEG 0077

CMP

JSR
T57
BEQ
JSR

001416

PAGE 47

65-onex?
TART OVER
ATTNDER
ZERO
NOVE
&L
Lnsr CYLINDER COMPLETED?

.WORD

S$:

08:04

S3sTALLO
SRIC
R
RI, ath

157
BEQ

030606

Sggg
gigggg ooéqlg 00141
2333 818596 §§g§g7
1442

24
2401
2402
2403
2404
g:gg

CMP

001110

2387 0l 320 06u037 027206
2330

MACY1l 30(1046)
22-NOV-?7
OSCILLATING SEEK TEST

CLR
SuB
CHP
BGE
SCOPE

anopa B+12

Y Y2222 222X222222222222X222

2222222222222 T2

'ATEST S

2410
2411

. %
‘e

THIS rssr WILL cnuse THE QRAVE T0 EXECUTE FORWARD AND REVERSE
sssxs
Ron “NC1% AND “NC2"
RESPECTIVELY,
“NC1" WILL BE INCREHENTED

2414

E gunu THE IN] ¥§LOBLUE-OF
2Re1ee o}e COMPLETION OF

ENSURE PROPER OPERATION,

S:i%

2415

s:{g

2416

2"419

2420
2421
2422

2423
2424
2425
2426

010316

010316
010320

010326
(010330
010339

000240
033737

001002
000137
012737

$§1s:!
001520

001314

010562
000005

001102

2429
818 Sy 815? vd 8 110 196%68
2430 010362 013737 001570 001204
&

2431

2432

010370

01037

112737

012737

000031

000005

Q01115

001224

64S:

CONVERGING/DIVERGING SEEK TEST

L L)

5388

nr o “?fig” “I%r BE oecasnEN750299;xc*UNTIL "NC1TM IS
’.m

1ed

EQCH SEEK COMMAND

“FC®

AND “LC"TM

THE °ROPER

INDICATORS ARE EXAMINED TO

“NC1* AND “NC2* DEFAULT TO

RESPECTIVELY.

Y2222 22222222222222221222222
XXX 2222222 X2
NOP
BIT

BNE
IMP
MOV

J¥BITS+(5#2>, TSTMNMS

648
1576
ns,aoSTSTNn

;DO THIS TEST?

YES=-BRANC
*NO--GO TO THE NEXT TEST
SETQEP TEST NUMBER
A
THE ERROR anc

(SERFLG)

MOV
MoV

§§
go?ganv¢ETSngTHETHExrsnnrxon
T NUMBER
'NTO THE oxsan. REGISTER
acRpr ttxnss
COUNT

MOV

85, STESTN

MOYB

825. . $ERMAX

!MAX ERNORS ALLOWED FOR TEST

P.SET TEST NUMBER IN ARPT MAIL BOX

Q00
nnn
oL

THIS

IS A MACRO

[

3 V]

|=)

p—

TEST BEING EXE%UTED

MOV

ko -(sp)

'MRSK’ OUT THE HIGH ORDER BYTE

IS SET

; ; SAVE RO FOR TYPEOUT

:1TEST NUMBER
) TYPE--OCTQL RSCII

2
O

S1TYPE 2 DIGIT(S)
: 'SUPPRESS LERDING ZEROS

, SCRLF

81$, SLPADR

;SETUP LOOP ADDRESS

asFC,R
aoLc Rb

i START NC1 AT FC
:START NCE AT LC

MOV
JSR
MOV

RI, acobe B+12
Rg
(.8
aooPe B+12

CMP

R2,a%FC

NC1
co EXECUTE THE COMMAND
NC2
co sxscurs THE COMMAND
'NEXT NC1
INEXT NC2
: DONE?
.
' YES--BRANCH

MOV

osfncx SP

${ PERR

RO’ 98CALL.B
asiC,R1
98IC R2
R, 9kLC
Ex}TS
3

IF SWi2

THEN DON’T TYPE TEST NUMBER

9eF
S, 9%DPB.B+10 FS
JsFT 3sDPB.B+11 ;FT
cexx?s J88YPASS (GO TO EXITS ON ERROR

BGE
SCOPE

SEQ 0078

'ELSE, fvpe THENUMBER

MOVE
MOVB
MOV

JSR
ADD
SUB
CMP
BGY
EXITS:

THE

a17’000 RO

MOV

19:

$TSTNM, RO

QUT

; CHECKron SWITCH 12 SE

$$gs

MOV
MOV

TESTS:

TO TYPE

#SW12, ISWR

VIF =

MOV

19:

001110

000004

PRGE 48

208

TYPE

20s:

003003
020237
002356

08 04

MOV

BYTE

001106
004236
004237
001332

NOB

@2-NQv-77

BEG

TYPOS
.BYT

CMVNMJ&?UQMJN

30(1046)

170526

001102
177000
0ol21s

Ww
NNN

;RaRRezeze?

RRRAR
OrRSE5ES O LORANT
6

0000000000000 000000

Dt Bt Pt Pt et ot ot Pt Pt Pt Pt Pt Pt Pt Pt Pt P

000
104401
e etetetwiadSreye

436

010000

MACY1l

CONVERGING/DIVERGING SEEK TEST

104403
08e

0000000

P
Pt o Pt s P

592259
[Yy]

o]olelole

432

Pt Bt

Bt ot o

n P

CO0O00

032777
001413
013700
042700
104401
010046

TEST

;

:SETUP THE ER non LOOP ADDRESS

Lono THE STACK POINTER

: NO--BRANCH
R

S PR30 36 36 96 36 98 3 30 38 3 36 96 3 36 36 36 36 36 36 38 36 3 3 36 30 98 3% 6 38 36 36 3 36 0 3k 36 36 3 36 26 04 3 36 36 3 36 3 3 3 3 2 36 3% 36 3 2 3 3 3 2 2 X

1
8
.8 8
B

000240
033737
001002
000137
012737

011072
000006

004737
Q12737
013777

026632
010736
001102

PROPER
0 3

3 3

b4%:

INDICATORS ARE EXAMINED TO ENSURE PROPER OPERATION.

3 3 36 0 36 36 3% 36 36 36 36 36 3% 36 36 36 36 36 36 36 36 3¢ 36 06 36 3 06 3 36 08 36 96 3 3 3608 3¢ 06 3 36 96 3 3 36 3 2 3 3 3 30 X 2 2 2

NOP

BIT

0o0l1s22

IS UPDRTED

Y “IC” AND THE RBOVE SEQUENCE IS REPEARTED UNITL “LC* IS
EXCEEDED BY RNY OF THE ABOVE VALUES.
THE INITIAL VALUE OF “NC"
IS“FC*
AT THE COMPLETION OF ERCH SEEK COMMAND THE

wewe

FR8 RRERRR
o
O
QINTET
£
R

Y WY
Y N
[

o g3

SERVO RDDRESSING LOGIC NOISE GENERATOR

IN THIS TEST A SEEK 1S DONE TO CYL “NCTM THEN A SEEK T 0
NC+4 THEN NC+1 THEN NC+3 THEN NC+2 THEN NC+S.
NOW “NCTM

mewewe

ir;sr

000 COBOOO

2433
434

000000

HD 11- DcRHF 8 RHO3/RMO° EXTENDED DRIVE
RMFB. Pll
21-Nov-7? 14:10

JUBITS+(bx>, TSTNHS ;00 THIS TEST?

BNE

MOV

86, J#STSTNM

JMP

JSR

MOV
MoV

1517

YES~-BRANCH

NO--GO TO THE NEXT TEST

SET UP_TEST NUMBER AND
iCLEAR THE ERROR FLAG (SERFLG)
PC,LODPRM
:LOAD THE PARMETERS FOR THE TEST
sTESTE, 8SLPERR ';SETUP THE LOOP ON ERROR ARDDRESS
$TSTNM,Q0ISPLAY :LOARD THE TEST NUMBER INTO THE DISPLAY REGISTER

MF-8 RH03’RH02 EXTENDED DRIVE TEST
10

[

08:04

PRGE 49

’

SERVO RDDRESSING LOGIC NOISE GENERATOR
MOV

J8RPT . STIMES

:GET THE

SEC 0079

ITERATION COUNT

0.273?

MOVB
MOV

032777

010000

BIT
BEQ

8SW12, 9SWR
20$

IF =

g&gg

0137000 RO

:MASK' OUT THE HIGH ORDER BYTE

TYPOS
.BYTE

; 5 GO T»°E--ocrnL ASCI!
PTYPE 2 27GIT(S)

TYPE

,SCRLF

MOV

104401
010046

104403

‘BYTE

nunooeo
N

001213

§§§23388:

s o gt ps pa )

82S. , $§ERMAX
6, StESTN

nn ERPORS ALLOWED FOR TEST
;SET TEST MUMBER IN APT MAIL BOX

i THIS IS A MACRO TO TYPE our T'

MOV

001106

§TSTNM, RO

TEST

BEING exscuveo IF Swi2 1s SET

on sux CH12 SET
N DON’ r TYPE TEST uunesn

ELSE, TYPETHE NUMBER

ho -(SP)

; ;9AYE RO FOR TYPEOUT
PITES. NUMBER

,.suppaess LSADING ZEROS

818, SLPADR

:SETUP LOOP ARDDRESS

O8FT QuOPE.B+11

.S,

11S RV QILRBLE FOR TESTING

MOVB

acré 98DPB.B+10 ;FS

001332

MOV
MOV
MOV

sExIte 98BYPRSS ;GOTO EXITE ON ERROR
asFC, R}
‘PICKUP ~FCTM
9sL.C R2
:FORMLAST CYLINDER THAT

001110

MOV
MOV
cMP

8. SLPERR
8StACK, SP
R1,R2

MOV

aé,goope.e+1a

MOVB

SuB

&3
7

BGY
JSR

004240

L.B

co EXECUTE THE COMMAND

JSR

RO, 38CALL.B

co sxecuve THE COMMAND

JSR
sUp
JSR

RO, 98CALL.B
81 980PB.B+12
RO, @8CALL.B

co EXECUTE THE COMMAND
:NC42
co EXECUTE THE CCMMAND

JSR
RDD

RO’ aoanL 8
asic,

co EXECUTE THE COMMAND

ADD

BR
SCOPE
X

R ,goc

84, 980PB.B+12

NC+4

.3, .ng.a+12
82,

]

vss-—ennuc

JSR
ADD

004240

ExtTe

co exscurz THE COMMAND

SuB

004240

;SETUP_THE ERROR_LOOP ADDRESS
LORD THE STACK POINTER
LQST CYLINDER

RO, 98CALL.B

ADD

004240

[o]

22-NOVv-77

001570
000031
000006

o
~
e
S Y DY SRy WPy Sy Sy

BO7

3001046}

013737
112737

8o 882882

g FR
RRRR
RRER =58 3 g CRFARBNES FR=8s F3TEFE
0000000000
0000
~
NONNNN
o

e et et Pt Bt Bt Bt e Pt ot Bt

0000000000 000000000000NO00

50 Bt Pren Bt Bt Pt et Pt e Bt s Bt Pt Bt o

[SY S

ERRRERAR

Pt bma Dt Bt e

e Pt s P

RRBRRRRRRRG X
:gJNDVGWHCQNUFCJ

Pt Pt Bt Bk Pt

ODCOO

Pt o Pom e bt pm

ODODOO

RRE
2R

21-NoV-7

MACYLll

NC+

900P8
. B+12

NC+3

83 Q80PB.B~12

NC+S

: LCGP

Y2222 222222222222:2:22222:X2X22X2Y2XTXXXXXXXXXYT2I2ESXT
LS

irssr 7

RANDOM SEEK TEST

THIS TEST PERFORMS RANDOM SEEK OPERRTIONS BETWEEN CYLINDERS

'LC’

RFTER ERCH SEEK,

'FC°

THE POSITION OF THE DRIVE IS VERIFIED BY

READING A SECTOR FROM YHE CURRENTLY ADDRESSED CYLINDER AND TRACK.
THE TRACK ADDRESS

INCREMENTED FOR ERCH SEEK SO THAT VERIFICATION

BETWEEN PRARAMTERS

'FT'

OF POSITIONING OCCURS USING ERCH HERD.
R ERRE ARSI R R RN RER AR RRREE

AND

'LT®

R RRRERR

TRACK ADDRESSES ARE INCREMENTED

IR RRBERRRERRERERRA RN

RO RRR

MC-11-DZRMF-B RMO3 ‘RMO2 EXTENDED DRIVE TEST

CZRMFB.PIL
2548

2S46

011072

911374

21-NOV-77 1M:10
000240

3737

TST?:

001524

001314

MACY1l

50 Sxxxxo 8?2§g7 866359 001102 b4S:

5 81x1§8
Bl 8157
pom7 meE
o
ggéa
11
196664
2555 011136 013737 801570 001204

NOP

MOV
MOVB
MOV

2561

011i60

011166

032777

010000

167752

BIT

2663

011174

042700

177000

011206

104402

0ll12l2

104401

001413

2See 011170 (013700 001102
2Se4

01i200

104401

2565 011204 01004¢
2566

2667
2668
2569

2570
Sg;é

011210
gxiexx
011216

002
000

2681

2582

012706
013737

011300

001422

011272

023737

S?Sg 8113?5 863032
eseg

0}1314

013?}5

001100
881572
1§72

004240
001574

20$:

TEST?:

001574

s T u3 7857 "S

:CLERR THE ERROR anc (SERFLG)

X E

#SW12, ISWR

208

ho -(SP)

=177000 RO
$CRLF

S RLLOWED

FOR TEST

:.GET TEST NUMBER IN APT MRIL BOX

IS A MACRO TO rvpe our T

TVPE

rsgu gexnc EXECUTED IF SWl2 IS SET

N DON’ T TYPE TEST NUMBER

ELSE fYPE THE NUMBER

*MASK'OUT TME HIGH ORDER BYTE

; 1SAVE RO FOR TYPEOUT
:TEST NUMBER

.,co TYPE--OCTAL RSCII

.BYTE
BYTE

2
O

MOVB

FT,DPB. a+11

;LOAD STARTING rékcx ADDRESS

MOV
MOV

uexxr? YPASS

2“84

;ofiiausHsgggsss
OF THE RH.a
:ERROR TERMINATION ADDRESS

1873

, SCRLF

SPTYPE 2 DIGIT(S)
: 1 SUPPRESS LERDING ZEROS

MOV
MOV
MGV
CMP

8TEST?. SLPARDR
8STARCK| 5P
FC,DPB.B+12
FCILC

.gETUP ruE LOOP ON TEST RDDRESS
:SETUP THE
STACK POINTER
;I“ITngg CY&
n
DRESS
:CYLINDER L nx
SAME °

CLR

cfi-(sp)

:EHSIv 8

BEQ

"SX

Sége
811353 ?23912 00157
2589 011326 004737 0256234

MAX

.7, S?ESTN

STSTNM. RO

TYPOS

001215

825,

MOV
MOV

2676
011538 61573« 885536
2677 0lledd 012737 011514 001332
2678 0l12s2 012737 011260 001106
011260
0ll2e4

BEQ
BIC

2673 011216 113737 001600 004237
2679
2580

. THIS

001215

3.21TS¢<7!2> TSYNHE gflrnls TEST?

RO 3 ’EP
pcnn 1100
08 mgngfls
o ?otk 5ISPLQ{
s
E?
SQBPT
E
E
REGISTER
acRPT TIHES
ssr THSOATER“T ON CQUNT

00111S

2660

SEG 008G

B0
MOV

000031

2559

PAGE SO

o§ fiosrsrmn

112737

SEES 011152 012737 000007 001224

08:04

MOV

011144

o°S6

22-NOV-77

RANDOM SEEK TEST

2651

CcO?7

30(1046)

,BR 1 THEY

ronn THE oxvxson

2590 011332 062637 004240
2691
011336
005726
5593 8iiawo 013737 004240 004220 s

RDD
TST
MOV

ré(SP)
o1v

2594

(011346

012737

259
2597

011360
811394

ostncx SP

:[0RD THE STACK POINTE

2€93

01:376

os?acx Sp

:LORD THE STACK POINTER

JSR

§u8R53§7
THE LOWER LIMIT
:DIVID

(s¢)+ DPB.B+12 n?g THE REMAINDER TO THE INITIAL Cr.INCER
CARD THE QUOTENT
opa a+12 DPB. n+xé :COPY NEW CYLINDER ADDRESS

2€9s 011354 012706 001100

011346

001110

MOV

2638

004037
812737

027054
11364

001110

JSR
MOV

RO I8CALL.A
SLPERP

113764

00420&

000010

MOVE

DPB.A,RMCS2(RY):SELECT THE DRIVE

260C

011372

011404

012706

Olewde

001100

0000620

MOV

$SLPERR

RMLA(RY), = (SP)

:SETUP THE ERROR LOOP ADDRESS

:GO EXECUTE THE COMMAND
:SETUP THE ERROR LOOP RDDRESS
:GET THE LOOK AHERAD REGISTER

MACY 82(104
)
22-NOv-77
RANDOM
SEEK T

006316
006316
000316

e2
a4
e5
30

001401
105216
105216
112637

nnhoahsrsrfltifLfttftLLrsssss£scsrs

Pt Pt Pt s e Pt Pt P Pt Pt Pt Pt Prast Pt Pt Pt Pt Pt ot ot Pt et s

O0000000000000000000000

10
12
14

s Bt et Bt Bt ot ot Dt Pt

e o

s Pt B

Bt P

10S766

00000!

013746

4
46
S0
Se
Se&
22

122837
103007
103403
105037
000403
112737

000001

004037

027206

2
76
04
06
14

00S216

108237
123737
101403
113737

000004

TS718

001712

004276
004276

004237
004237

001802

001600

004237

32:

EXIT?:

JSR

RO, JuCALL.B

'ncx'

1S xucnsnenrso By vaLus
IS
COMPLETED WHEN

*IC’

"NC1’

RND

COMPLETION OF

AND THE SEQUENCE

INCREMENTED BEYOND

gggx;ag¢ SEEH%RPROGRRH THEN ISSUES
A WRITE HERDER AND DATA COMMAND

‘e

ERRORS IN THIS TEST INDICARTE THAT THE SERVO SYSTEM MAY NOT BE ADJUSTED

MARGINAL SERVO TRACKS IS MOUNTED ON THE DRIVE.

CORRECTLY,
THIS

TEST

THAT THE DRIVE IS MALFUNCTIONING,

IS VALID ONLY

THE

OPERATION

033737

001526

000137

0l266&

001002

012737

000010

HUNDRED MICRO-SECONDS RFTER SEEK DONE OCCURS.

INTO

OR THAT A PACK WITH

‘s

RANGE TO PERMIT THIS TEST TO BE EFFECTIVE.

THE NECESSARY

TIME DEPENDENT PARAMETERS OCCUR FREQUENTLY ENOUGH WITHIN THE REQLIRED

00131y

001102

‘LC°

IS STARTED WITHIN A FEW

i *

i0:

SEEKS,

THE PROGRAM READS THE DRIVE'S LOOK-AHERD

*s:iliiiliiilfllllllllil!lllllil!iilll!lliIi!l!l}llil!ifiiiliiilii

000240

(10)

IS REPEATED.

‘e

COMPLETES,

MRS BEEN

'NCL+IC’

100c

THE

SEEK

'NC1’'

THE

'FC’

WHEN

ISSUED aeruszn cv INDERS

STARTS
AT VALUE

e e

LOOP

TEST

dannonun

;GO EXECUTE THE COMMAND

: INCREMENT THE TRACK ADDRESS
IMAXIHUM 7
iBR IF NOTY
RELORD STARTING TRACK RDDRESS

THE

000000

;NEW ECTOR RDDRESS TOO LARGE ~?
;BR IF
N
;BR_IF ROORESS IS 2 GRERTEFR
;RES;T TQ SECTOR ADDRESS O
; CON *NUE
; RESET RDORESS TO SECTOR !

SERVO SETTLE DOWN TEST

"NC1'

‘e

CTOR ADDRESS ON THE STACK

222XX2222XX2X22Y2222
S

nnnoon SEEKS nRe

DPB.B+11
DPB. B*ll LT
EXIT?
FT,0PB.B+11

‘a

;INCREHE

THIS TEST VERIFIES THART THE SERVO MRS SETTLED DOWN AND THAT
THE DRIVE IS ON CYLINDER WHEN THE DRIVE INDICATES SEEK COMPLETE.

(SP)

; IN THE 1ST 204 OF SECTOR ?

(SP)+,DTADPB+10
4s
39
DTARDOPB+10
4§
8l ,DTADPB+10

XXX

o %
Py

;BR_IF YES
,INC&EHENT THE SECTOR ADDRESS
; INCREMENT THE SECTOR ADDRESS
;bORD TH;
PB

tMPB
BHIS
BLO
CLRB
BR
mMove

SCOPE

SEG 00€el

cs
(SP)
(SP)
(SP)+ DTADPB+10

PRMLMY+22, -(SP) ;PUT LRS

INCB
cMPB
BLOS
MovB

PRGE 51

;ALIGN THE SECTOR RDDRESS
;ALIGN THE
SECTOR RDDRESS
; PUT_ADDRESS
IN LOWER BYTE

MOV
INC

004276

08:04

(SP)
(SP)
(SP)

1(SP)

BEG
INCB
INCB
MOvB

2s:

004276

ASL
ASL
SWAB

iTEST 10

St Pt Pt Pa Pt p—a

ROOR

AV n IAV1AY] U
n
oo
oo,
o
=t
e
Pt
Pt
pee
Pt
P Pt
014V n Ll
~OuWw
o
NN
L Whur—

¢_3

nr;
-0

Da7

F-B RMO3 RMQ2 EXTENDEU DRIVE TEST
21l -NOvV-77 14:10
17

NOP

BIT

98BITS+<10#2>, TSTNMS

IMP

TST

BNE
&4S:

MOV

;DO THIS TEST?

&4 s

; YES->BRANCH

nxo.ansTSTmn

'SET UP TEST NUMBER AND

NO--GO TO THE NEXT TEST

:CLERR THE ERROR FLAG

(SERFLG)

MD-1]1-DZRMF-B RMO3/RMO2 EXTENDED DRIVE TEST
CZRMFB.PL1
21-NOV-77 [M4:10
T10
2657

011542

2669
2660

011554
011562

2668

2661
5251
2664

2665

004737

026632

011646

012737

OCl17?0

0115870
011576

112737
012737

000031
000010

013777
013737

167326

817

010000

O0libl4
011620

013700
042700

001102
177000

011630

010046

011632

104403

011636

104401

O0cCi215

gggg

giiggg

012737

011650

2680

011650

112737

000105

2683
2684
2685
268

011672
011700
011706
011714

013737
013737
013737
013737

001672
001572
001572
001576

2690

011740

004737

032602

011612

2669

011624

2667
2668
2670

2671
2672
2673
2674

011634
01163S

gg;;

0116492

2681
2682

2687
2688
2689
2691
26
2633

2699
Sggg
2697

2698
2699
a7
2701
2702
2703
2704
27
2706
2707

2708
2709
2710
2711
2712

011686
011664

011722
011730
011736
Q011744
011746
011752

011786
81{;?8
011770

011776
012002
012010
012014
012016
012020
012024
012030
012032
012036

Gl12042
012050
012056
012084
D.:2072

001413
104401

002
000

112737
113737

012737
012737
005000
005001
113701
(013704

TYPE

000161
001600

176000
051776

208 :
s

004210

004270
004277

004272
00<c74

O00!110

TESTIO

167432
001470

012620
031274
000010
000040
000010

18:

000000
024662
001424
0000:0

2%:
3%:

$CRLF

RO, -(SP)

THEN DON'T TYPE TEST NUMBER

'ELSE, YTYPE THE NUMBER
*MRSK’ OUT THE HIGH ORDER BYTE
; ;SAVE RO FOR TYPEOUT

sSETUP THE LOOP ADDRESS

MOVB

8SEEK,

; SEEK=COMMAND

. SCRLF

38DPB. A+2

SWRITE, DTRDPB+2 : COMMAND
FT,0TAOPB+11
:TRARCK ADDRESS FOR THE WRITE

MOV
MOV
MOV
MOV

FC,OPB.A+12
FC.DTA0PR+ (2
FCINCI
IC.DELTA

:CYLINDER
:CYLINDER
:STARTING
: CYL INDER

JSR

PC, SETBUF

:LORD THE WRITE BUFFER

JSR
MOV

PC, CLRQUE
#EXIT10,BYPRSS

!CLEAR THE OPERATION QUELES
:ERROR EXIT FROM TEST

:SETUP THE ERROR LOOP ARDDRESS

MOV

167432
001456

STSTNM. RO
#177000, R0

:CHECK FOR SWITCH 12 SET

'IF = 0,

#1$, SLPADR

MOV
MOV
15T

177776

#SW12, ISWR

208

MOV

TYPE

MOV
MOV
CLR

004206
036736

001100
000340
001324

:MAX ERRORS ALLOWED FOR TEST
2 SET TEST NUMBER IN APT MAIL BOX

2
O

CLR
MOVB
MOV

011770

;SETUP THE LOOP ON ERROR ADDRESS

.BYTE
'BYTE

MOVB
MOVB

004220
004300
001614
001430

012737

#25S. , $ERMAX
#10,$TESTN

:LOAD THE PARMETERS FOR THE TEST

PITEST NUMBER
GO TYPE--OCTAL ASCII
"ITYPE 2 DIGIT(S)
: :SUPPRESS LERDING ZEROS

TYPOS

001332

012776
012777
012737
012764
110led

BEQ

MOV

001106

#TESTI0, JuSLPERR’

-THIS IS A MACRO TO TYPE OUT THE TEST BEING EXECUTED IF Swl2 IS SET

001215

044616
012664

001415
100405
017746
013746
000404
017746
013746

MOVB
MOV

MOV
BIC

004737
012737
012706
012737
00S?37

§TSTNM, JOISPLAY :(0AD THE TEST NUMBER INTO THE DISPLAY REGISTER
IsRPT, $TIMES
;8ET THE ITERATION COUNT

MOV
MOV

032777

PRGE 52

PC, LODPRM

167360
001204

00111S
O0Gli224%

08:04

JSR

MOV

001102
001570

011604

2666

001110

EQ7

MACY1: 30(1046)
22-NOV-7?7
SERVO SETTLE DOWN TEST

BEQ
BMI
MOV
MOV
BR
MOV
MOV

MOV
MOV
MOV
MOV
MOVE

ADDRESS FOR THE SEEK
RDDRESS FOR THE WRITE
CYLINOER
6ncnsnsnr VALUE

8-(2S6. %4, DTADPB+4
:WORD COUNT
#BUFFER,DTROPB+6
:BUFFER ADDRESS
RO
sPATTERN POINTER (WC PATTERN

RI
DPB.R,R!
RMAUR | R4

SLPERR

8StACK , sP
#PR7 . 94PS
cLksta

38
18
SPKV, - (SP
PKV, > (SP)
2%
dLKV, = (SP)
LKV, = (SP)

:CLERR REGISTER
*LOAD DRIVE RADDRESS
"UMIBUS RODRESS OF THE RH70

'LORD THE STACK POINTER
:SET PRIORITY 10 7
:SEE WHICH CLOCK ON SYSTEM

:BR IF NO CLOCK
:BR IF KW1l-L CLOCK
:SAVE
THE VECTOR
:5AVE
THE VECTOR RDDRESS
: CONTINUE
'SAVE THE 'L’ CLOCK VECTOR
:SAVE THE VECTOR ADDRESS

875Y108,3(SP)
:CHANGE THE VECTOR
SDORTI, RMVEC
:CHANGE THE RMO3 VECTOR
#8.,
SEKTMR
'LORD THE SEEK TIMER
s8I Y05 RMCS2(RY)'
;INIT THE MASSBUS
R1,RMCE2(RY)
;RESELECT THE DRIVE

SEG 0082

MO-11-DZRMF-B RMO3 ‘RMO2

g
CZRMFB.PILI

2713

2-14
2715

012076

012104
0l2ll2

21-NOV-77 14:10
013764

004220
000105

105764

000012

012120

005037

2718

012130

100402

719

Qlelay

127776

T10

000G3Y

4s:

012152
012154

001412
012702

2726
2727

012164
012166

104023
Ol2764

000040

000010

2729
2730

012200
012206

012777
00S?37

041566
001324

024532

000002
000004

000000

0l2226

001110

012160
012174

012212
012214
012222
012226
012226

012234
012240
012244

2°39
2740
2741
2742
2743
2744
2745
2746

012250
012252
012254
012256
012264
012266
012270
012272

2748

012302

2747
2749
2750
2751
2762
2763
2754

012276
012304
012310
012312
012314
012320
012322

0O4737
110164

001405
016676
062706
012737

012706
110164
016446

006316
006316
000316
122766
001001
105216
105216
112637

012356

00SD37

2763
2764

(012374
012902

112761
006301

27ee

Ol24ez

008027

c76S
27€E
27e7

Qlie404
0levl2
Clevld

000300

012364
012364

012737
610137

012761
006201
GI37eM

6§:

TST10A:

2%:

000001

004272
000Il1
000002

004276

000000

000004
000006

004304

004266
036722

036650

000001

03e600

001750

036702

004270

00C00O

[7777¢

3%:

;LOAD THE CYLINDER ADDRESS

8PS

:CLERR THE PRIORITY

'BR

BIT

#BIT{4, RMDS(R4Y)

MOV

#PR7 , 38PS

68
s0PB.RA,R2

JSR

PC, SVRAH70

MOVB

R1,RMCS2 (RY)

MOV
TST

BEQ
MOV
RDD
MOV

ASL
ASL
SWAB
CMPE
BNE
INCB
INCB
MOVB

: HRS

TH?

DRIVE

IT HRS

FINISHED

'WAIT FOR THE OPERATIGN TO COMPLETE

: CONTINUE

:CHANGE PRIORITY

':ERROR ?

TO MAX

;B8R IF NOT
:DPB PQINTER

:SAVE

THE REGISTERS

23
:ERROR DURING SEEK
#B8I1T0OS, RMCS2(RY) ' : INIT THE MASSBUS

#18R, JRMVEC
cLksta

;RESELECT THE DRIVE
:SETUP THE RMO3 VECTOR
;WHICH CLOCK

TST10R
2(SP), d(SP)
84, SP

‘BR IF NONE
'RELOAD THE CLOCK VECTOR
:CORRECT THE STACK POINTER

8.,

:SETUP THE ERROR LOOP ADDRESS

SLPERR

#SYACK SP
R1,RMCS2 RY)
RMCACRY),-(SP)

'LORD THE STACK POINTER
'SELECT THE DRIVE
:GET THE LOOK ARHERD REGISTER

(SP)
(SP)
(SP;
#300, 1(SP)
28
(SP)
(SP)
(5P)+, DTADPB+10

‘ALIGN THE SECTOR ADDRESS
:ALIGN THE
SECTOR ADDRESS
:PUT
_ADORESS IN LOMWER BYTE
:IN THE LAST 20% OR SECTOR °
:BR IF NOT
: INCREMENT THE SECTOR ARDDRESS
: INCREMENT THE SECTOR RDDRESS
:LORD THE DPB

(SP)

: INCREMENT PAST THE MAXIMUM ADDRESS

MOV

PRMLMY+22.-(SP)

CMPB
BHI
BLO
CLRB
BR
MOVB

(SP)+,DTADPB+10
4§
38
DTADPB+10
43
81, DTADPB+10

:NEW SECTOR ADDRESS TOO LARGE °
:BR IF NOT
:BR IF ADORESS IS 2 GREATER THAN MR
‘RESET TO SECTOR ADDRESS 0
: CONTINUE
:RESET ADDRESS TO SECTOR |

MOV
MOV

(R3)+,RMBA(RY)
(R3)+_RMDR(RY)}

:LOARD THE BUFFER ADDRESS
:LOAD THE TRACK/SECTOR ADDR

#0TADPB, TRNSWT
RI,DTUW

:LOAD ' TRANSFER' DPB RDDRESS
; ADDRESS OF DRIVE TRANSFERING

INC

004276

PRGE

SEG

DPB.A+12,RMDC(RY)

MOV
MOVB
MOV

000001

004276

2760

012362
012370

001100
000010
000020

122637
1061007
103403
105037
000403
112737

012703
012764
0.2364

2761
c762

000010

001712

012330
012334
012342
012346
012352

O44IdY

013746

005216

27?65
2756
2757
2768
2769

BMI

ERROR
MOV

0000!2

08:04

TEST

RMDS (R4)

BEQ
MOV

040000

DOWN

7578

CLR

004206

032764

S%:

SETTLE

FO7

22-NOV-?7

OPB.A+12 CYL.DS ;CYLINDER RDDRESS FOR ERROR MESSAGE
8SEEK,RMESI(RY) :START THE SEEK

WarIT

177776

30(1046)

MOV
MOVB

000340

773

2723
2724

2736
2737
2738

MOV

001350
000GO0

012737

012144

2731
2732
2733
2734
2735

SERVO

01213

2722

2728

MACY11

000001

0121

2725

TEST

012132

2-20

2721

004220

013737
112764

2716
717

EXTENDED DRIVE

MOV
MOV
MOV

':PUT MAXIMUM SECTOR ADDRESS ON THE STRCK

s0tADPB+Y, R3
:POINTER
8ORVCI.LR, RMCS1 (R4}
: CLERR THE DRIVE
(R3)+,RMWC(RY)
;LOAD THE WORD COUNT

CLR

DTADPB+16

MOVB
ASL

81 DRVACT(R!)
R1

:SET DRIVE ACTIVE INDICATOR
:SHIFT DRIVE ADDRESS

JePS

:CLEAR THE PRIORITY

MOV
MOV

MOV
RSR
MOV

CLR

:RESET

'DONE’

INDICATOR

81000.,TIMER(RL)
~:SETUP THE OPERATION TIMER
Rl
-RESTORE Rl
DTADPB+2,RMCR4)
S1
~.START THE OPERATION

IMUM

0082

oK,
ol
"‘2

N
h RRRREL
LL£L L
L
Y
i
R8N roRBRNERFFLERS

6S:
004220

RO, DRVCL
1

CLR

SEXCNT

CMP
BNE

FRRHERAAR

po4220

004300

go4220
011770

004300

po14ey

AV AV VIV

000040
000019
000002

19:

;FINISHED SEEKS
?
:BR IF NOT

:ADD THE

,CLE AR THE SEEK COUNT
INCREMENT

:CHECK THE DIFFERENCE
:DIFFERENCE GREATER THAN THE INCREMENT °

SEACNT

:COUNT THE NEXT SEEK

LC,DELTA

BHI
MOV

68
IC,DELTR

CHP

FC,LC

MOV
JSR

NC1,0PB.A+12
PC, $RAND

MOV

DELTQ -(SP)

INC

BNE
IMP

MOV
JMP
TST108: DEC
BNE
MOV

000000

;WAIT FOR OPERATION TO COMPLETE

SEKCNT, #1000.
6$
NC1

SEG 0084

NCl1 . DELTR
1¢,0ELTA

ADD
157
ggg

uGoGCiC

SUB
CHP

JSR

004206
044134

PAGE

NCl.LC
ExItio

INC
ISR

025634
004220

08:04

CMP
BHIS

MOV
CLR

p<
o

—

82
88RBAERr
2R
W LWO— WNW—WWWW

JSR

MOV

FRRES
R ST

)
nuny [0y
une
£0ZL

S§:

GO7

MACY1l 30(1046)
22-NOV-77
SERVO SETTLE DOWN TEST

ADD

ol oAlalealeal
e oo,
oL L
LVONNOO

24 VTV

ot s Pt Pes Bt Pt Pt Pt s Pt Pt Pt et Pt Pt Pt

ERROR
MOV
MOV
MOV
gg
1

:EXCEEDED THE CYLINDER LIMIT °
:BR IF IT MAS
:GET

THE NEXT

’'ZONE’

ADDRESS

‘BR IF IT IS
:USE THE ICREMENT PARAMETER

:BEGINNING AND ENDING CYLINDERS THE

7S
TESTIO

;BR
'BR

sutmun -({SP)
-(SP

‘USE THE HIGH RANDOM NUMBER
:CLEAR THE UPPER DIVIDEND

I INCREMENT
‘DIVIDE

IF NOT
IF THEY ARE

SAME

‘RESET THE CYLINDER ADDRESS
:CYCLE THE RANDOM NUMBER GENERATOR

FORH THE DIVIS

<rb>+ope
A+12 ADD
THE REMAINDER ro THE INITIAL CYLINDER
(Sr
DISCARD THE QUOTENT
o;e n+1a DTRDPB+12R ?nqs cvgxnoen SELECTED RS LAST TIME
DPB.A+12,0TADPB+12
:COPY NEW CYLINDER ADDRESS
TESTIO
: CONt INGE
SEKTHR
:DECREMENT THE SEEK TIMER
18
:CONTINUE IF NOT DONE
lOPB
:DPB ADDRESS

PC, svnfi*o

‘SAVE THE REGISTERS

24
s TIMEOUT DURING SEEK
#8170S RHCS&(RH)
INIT THE MRSSBUS
R1,RMCSC (RY)
RESELECT THE DRIVE
2(8pP) J(sP
pssrons THE CLOCK VECTOR RDDRESS
ExITib
2505; THE TEST

EXIT1I0: SCOPE

LOOP ?

CEBREREERRRERRRERERERREREERRERE
R R RSB RREREREERRRRE R REPERERERERER

THE DISK DRIVE CAN SEEK FROM ERCH CYLINDER

TO ALL OTHER CYLINDERS.

BEGINNING WITH CYLINDER

'FC',

THIS TEST VERIFIES THRT

Cizeee
Ci2tek

ALL SEEKS TEST

iTEST 11

nnnyLAV AV AVTAV NI VT gV TV gRTaV)
oo [eloalealanTesdssleafualoalyn)
rror U
0o 0 e o st ot e e
WwhyrM=
OO
MU L WMy

2geq

0e7e3e
001426

s et s P
s Pt Pt Pt ot Pt P Pt Pt Pt Bt Pt Pt Bt ot Pt P Pt Pt

=
T

000000000000 00000O000000000000N00D0O0O0O0000D

—

~
) SININCEN NI
NYUVUNNNNNYUN"UNNNNH.;
N
g]
Mmoo
Wy (D‘J‘J‘J\JG%‘Q‘\I‘!‘J‘JU‘
o|
OV
ICCNLW—~0OLr

rid

784

F-8 RMO3 RMOS EXTENOED DRIVE
21-NOov-77 14 10

TEST
T10

THE TEST SEEKS TO EACH CYLINDER

BETWEEN 'FC’ AND 'LC’ FROM CYINDER_‘FC'.
ADDRESS

THE BEGINNING CYLINDER

INCREMENTED AND THE TEST SEEKS BETWEEN THE NEW CYL INDER

ADDRESS AND ALL

CYLINDERS BETWEEN

'FC’

AND

'LC’.

CONTINUES UNTIL ALL CYLINDERS HAVE BEEN CHECKED.

THE SEQUENCE

SRR RAR R R R R EERR PR R R E R AR R AR ERERERRRRRARFRRRRRERPRERRRERRERARRRRRS

002240

HOP

MD-11-CZRMF-B RMO3 RMO2 EXTENDED DRIVE

CCRMFB.PII
2825

21-NOV-77 14:10

012670

033737

001S3C

TEST

T11

00131W

2808
0157oq 812537 868 11 001102 b&4%:
2829
[

[

2830
2831

283
283

2834
sggg
2837

2838
2839
2840
284!
284¢

012712
012716

004737
012737

026632
013072

012754
(Qlevbe
012764
012770

032777
00I413
013700
042700

010000

166156

013006

104401

001215

G©l130l12

012737

013020

Sg;g
285]

gggg

01300S

013012

0{3022

000

ii3;3;

ooisoe

oiaosg

013;3;

0812;2

aesg

013102

00493;

2865

013122

002365

.THIS

oe7egs

013124

2869

012146
0:3150

013737

001572

20%:
001106

004236
4

18:

004240

sgR THE
T STERROR
NUMBER
QNB
FLAG (SERFLG)
-

IF SWl2

TYPE

, SCRLF

MOV

ho,-tsp,
O

.,suppnsss LEADING ZEROS
;SETUP THE LOOP ADDRESS

nove
MOVB

F:BRE:
&Y
FT.0PB.C+11

i¥R&lR
goBBfiéé
: TRACK ADDRES

MOV

aEk?T?l
B\'Enss ?
§ 598 ? t ?
#STACK, &P
sevup THE srncx POINTER

FS, b;a a+io
+

sec;gs goo s

FC,OPB.B+12

s;gn;xnc C¥L§§°ES ggggggg

RO, 38CALL. c

co EXECUTE THE COMMAND

l&:BEB:kiiE

ECE"TP
ExCEEDTRE HR%
T UM

gov

§c,oPe.czxa

RESET Engxqaecv%ég9§zcngggsggs

BGE
SCOPE

:BR IF NOT
:LOOP ?

gsn

§o 98CALL .B

BGE

BRR

IS SE”

. s SAVE RO ron TYPEOUT

%18, SLPADR

2038

JSR

EXIT11:

IS A MACRO TO TYPE OUT THE TEST BEING EXECUTED

155711: MOV

oo:eso

:MAX ERRORS ALLOWED FOR TEST
1.SET TEST NUMBER IN APT MAIL BCX

TYPO
.BYT

MOV

‘

TNM ?DISPLQY 6%?ngHs TERATION
SST NUMBER
INTO THE DISPLAY RPEGISTEFR
COUNT

.,TEST NUMBE
) rvps--o?rng RSCII
ITYPE
2

MOV

SBBZ Bidt3f B89%47 BBk BB3syB
002353
0O0O0O4

oo THIS TEST?

s CHECK FOR SWITCH 12 SET
:IF = 0, THEN DON'T TYPE TEST NUMBER
'ELSE, PYPE THE NUMBER
:MASK ' OUT THE HIGH ORDER BYTE

BYTE

8883 BI31% B84347 BBiE7% §B4sed
aesg

SEG 008¢S

8SW12, ISWR
20%
$TSTNM, RO
177000 RO

TYPE

gggs
8138 4 81 737 81515 881538
gggg O}SS;E 012706 001100

2861 813075 0gN037 027410

-xxSOSTSTNH

MOV

5824
81§§ 8 u§7 5 BB1EBR BR4s3%
2855 0130492 113737 001600 004257

aesg

MOV

B17
BEQ
MOV
BIC

001215

2848

2847

aoexfs»<11-e> TSTNMS

MOV

001102
177000

104403
002

BiT

PAGE S5

n PT, §TIMES
#25. #Ennnx
#l1,8TESTN

00111S
001229

813082
013004

D08:04

MOV
MOVS
MOV

000031
000011

o844
2845
2846

ALL SEEKS TEST

PC, LODPRM
Lono THE PARMETERS FOR THE TEST
.765711 JuSLPERR’ ETUP THE LOOP ON ERROR ADORESS

112737
012737

104401

22-NOV-77

JSR
MOV

012740
012746

012774

30(1046)

001110

8157
4 81013737
77 ngégs
6361204
10
12732
1

2843 013000 010046

MACY11l

IE-BER:-BiS

EXECUTE THE gOHSQNCYLINOER CDORESS
F NO

ENGBERERG ARGiRLA

MD-11- DZRHF B RMO3 RHOE EXx
T
ENDED DRIVE TEST
C<RMFB.P
21-NOv14:10
Tl
2872
gg:a

.SBTTL
-

.
.

107

MACY1]l 30(1046)
ALL SEEKS TEST

22-NOov-77

08:04

ANEIRS
ANEIEE

ANCIR ANIVE ANIE
AWIY AN ANIE

ANIE
ANDZ

ANIZE ANIE
ANPE AL

ANNL
ANDE

ANDL
ANDE

ASDE
ANPE

ANNE
ANNL

ANFE
AL

AR ANNE
ANUVE ANWIE

ANEE
ANEIE

RS
REEE

W
BN

[ ANIPE

ANIZ

ANYE

ANNZ

ANDE

ANNE

RURE RS

ANIL

SEG COCee

%% TIMING TESTS s

[ ANCEEE
[ AN

ANIE

PAGE 56

ANUDE

;#THE TIMING TESTS WILL ENSURE THAT THOSE FUNCTIONS BEING
:#TIMED RRE WITHIN THE TOLERANCES SPECIFIED IN THE “RMO3

(#ENGINEERING SPECIFICATIONS®
;#THE

SEEK

TIMING

:#*QPERATIONS.

’;5328 THE

WILL

PERFORMED

USING

EXPLICXT

SEEK

AT THE COMPLETION OF EACH OF THE TIMING

MINIMUM,

MAXIMUM

AND

AVERAGE

TIMES

VEEN

WILL

HAY

FEARY

VLAY

EEY

FEAY

EEEN

XEAY

PERY

PEAN

VERNY FEAY

PEIEY

SIEAY

ZEEE

PERE

FERN

RNRN

MENEYEEY
PR EEEY

FEARN

VAR

YEEE FARY

FENNY

VERNY PEENY VAN

VFERY

VERR FARN

VAR

MERY

VERN

RSN

VEAN

VERANY FVARN

VSN |

R R BB RRRREER AR SRR RS RERARRREDE

VERY

FEARN

FEEX

R EE R AR R R

LTEST 12
X}

THIS

TIMES

rvruuryrurung
DD DOD DD

2918

tevia:
001832

013164

D00137

Q14042

000012

001102

013176
013202
013210
013216

004737
012737
013777
013737

02663c
013152
001102
00lS?0

001110
65724
001204

JSR
MOV
MOV
MOV

013232

032777

010000

165700

013242
013246

013700
042700

001102
177000

013240

012252

001413
104401

013256 (C1004e
0132E0

Cil3eee

10wM402

0Ce

001218

THEN

START
A SERARCH

TO CYLINDER

THE

AVERAGE

TIME

IS CRLCULRTED

IS WITHIN TOLERANCE:

TRACK

SECTOR

AND

CHECKED

16.67 MS/REV + OR - 2% IF BOMZ

R R RN R F R R

000240
033737

D013

0il3eed 112737 000031 00111iS

WILL

16 67 MS/REV + OR - 2.5~ IF SOMZ.

SRR

012737

TEST

ENSURE

013152
013154

013170

R SRR

001002

R R R RN

0.
RS SOON AS THE INTERRUPT OCCURS,
THE GO BIT IS SETAGAIN
AND THE OPERRTION IS TIMED.
THIS PROCEDURE 1S REPERTED 1C

013162

ROTATIONAL SPEED TIMING TEST

i
R
X

013182

&4S:

NOP
817

R R R

R AR R R

adsBITS+c 22>, TSTNHS

BNE

b4 S

MOV

812,d88TSTNM

IMP

MOvB
THIS

825, QERHRX

an ERRORS ALLOWED FOR TEST

1S
A MARCRO

TO TYPE QUT

#SWl1e, JSHR

ho -1SP,

.BY7E

DO THIS TEST?

YES--BRANCH

NO--GO TO THE NEXT TEST

TYPE

TrPCS

RERRRRIRERRS

SET UP TEST NUMBER AND
CLEQR THE ERROR FLAG (SERFLG
PC, LODPRM
LOQD THE PRARMETERS FOR THE TEST
lTSTla JOSLPERR SETUP THE ERROR LOOP RDDRESS
.~
STSTNM. aDISPLAY
LORD THE TEST NUMBER INTO THE DISPLAY REGISTER
JsRPT $TIMES
¢ET THE ITERATION COUNT

208

MOV

R R R R RN AR R AR AR

78713

BEG

MOV
8IC

RN R E

STSTNM, RO
ll??OQfi
RC
SCRLF

THE

TEST BEING EXECUTED

;CHECK FOR SWITCH 12 SET

;IF = 0,

; :SAVE RO FOR TYPEOQUT
;GO

SuWl2

THEN DON'T TYPE TEST NUMBER

ELSE tYPE THE NUMBER
HQSK OUT THE HIGH ORDER BYTE
,,TEST

NUMBER

TYPE--OCTAL RSCII

TrPE e DIGIT.S,

1S SET

MD-11-DZRMF-B RMO3 RMO2 EXTENDED DRIVE TEST
SZRMFB. P11
21-NOV-77 [4:10
T12

2928
2929

013263
013264

000
104401

2932
2933
2934
2335

013270
013274
013276
013302

005737
003002
000137
012?37

2937

013314

000402

ggg?

2936

2338
2939
2990
2941

2942
2943
2944
2945

013270

013310

013316
013322
013330
013334

013342
0123uc
013354

004037
000137
013764
013746
113766

0l2664
012737

00500S

©O0121S

20%:

001324

014042
013302

031112

014040
001572
001606
001600

000006
014040

00i106

000034

000001

013360
013364

010046

113700
032737

2953
2954
2955

013372
013374
Q013400

001417
012703
012737

2957

Q13414

001424

2959
2960
2961

Q0i3422
013430
013432

012737
000416
012737

2963

013444

2956
2958

2962
2964

2965
2966
2967
968

013406

013416

013440
013452

2973
2974
29

2976

2977
2978

2979
2980
2961
2982

2963

013514

013522
013526

013€34

003056
003056

014026

122760

00140S

036620

003076
003076

014026

001100
00001¢

0127?77

013714

012777
005077
012777

012714

000001
042777

013556
01350
013Se2

00I4IS
104412
012702

013SeE

000004

012706
012701

032764

004737

031276

031274

165736
000131

000131
000101

040000
00426&

044134

157
BGT
IMP
MOV

J#CLKSTA
18
15113
819, SLPADR

:KW11-P CLOCK?
:YES--START TEST
INO--GO TO NEXT TEST
'SETUP LOOP ADDRESS

:RETURN HERE IF NO ERROR

JSR

RO, 98SRCHOO

JMP
MOV
MOV
MOVB

EXIT1R
O98FC,RMDC(RY)
8FS . -(SP)
IsFT 1(SP)

SRETURN HERE
FC
:FS
FY

CLR
MOV

RS
#77Q, R3

:LOUNT UP
:60HZ PARAMETERS

BEQ

TESTI12

MOV

RO,

BEQ
MOV
MOV

3%
#778,R3
8778’ TPSO

*BRANCH IF SO
150 HZ TRBLE FOR RMO3
S0 HZ TABLE FOR RMO3

BEQ

'BRANCH

MOV
BR
MOV

#T7B1, TPSO
4s
#T7R, TP&0

:
TEXIT
'60 HZ

s4, DAVTYP(RO)

;R RMO3 DRIVE ?

8T7A1, TP&0
#T7R1.R3
(SP)+.RO

:OTHERWISE LORD THE TABLE FOR RMO2
;
{RESTORE RO
TEXIY

BIT

MOV

MOVE
BIT

036620

012703

013540
013542

013550

014036

000004

014036

004737

013506

003066
003066

003106

013sp02

2972

001300

003106

012737
012703
012600
000240

013472
Q013476

004266
000100

012703

013454
013462
013466
013470

2969
2970

2971

[22760

: : SUPPRESS LEADING ZEROS

;
013356

O
SCRLF

MOV
MOV

001208

2947

2951
2952

2$:

CMPB

MOV

3%:

TEST12:
165742

023216
165726
165712

000012

MOV

CMPB
4§ :

#SWOL, A8C.SWR

#778,R3
- (SP)

DTADPB, RO
#SWO6, d8C.SWR
s4 DAVTYP(RO)

#7781,R3

8T78'R3

MOV
MOV

#STACK , SP
#10.,R

MOV
MOV
MOV
NOP

:D0 A MASSBUS INIT & RECAL
IF ERROR

(SP)$ RMDAR(RY)
:LOAD FT/FS
sEXIT12, SESCAPE : .ESCAPE TO EXIT12 ON ERROR

BEQ

60 HZ?

: YES~-BRANCH

:NO--50 HZ PRRAMETERS
{SETUP PRAMETER TRBLE FOR RMO2/RMO3
:SAVE RO

‘DRIVE ADDRESS
60 HZ ?

A RMO3 DRIVE °
IF SO

"OTHERWISE LOAD THE TABLE FOR RMO2

TABLE FOR RMO3
160 HZ TABLE FOR RMO3

'BRANCH

IF SO

:SETUP STACK
;TIH$ 10 SERRCHES

JSR

PC,JkSTRTMR

PINITIALIZE THE TIMERS

MOV

8DORTI,JRMVEC

;:SETUP RMO3 VECTOR

MOV

18:

PRGE S7

.BYTE
TYPE

B8R

2946
2948
2949
2950

1§:

JO7

MACY1l 30t¢1046)
22-NOV-7?7
08:04
ROTATIONAL SPEED TIMING TEST

87¢,

IPKV

:SETUP VECTOR

IN CASE OF OVERFLOW

CLR
MOV

JPKB
8131, IPKCS

:START COUNTING AT ZERO
.
"INT.EN., COUNT UP RT 100KHZ

WAIT
B’C

8101,

"WAIT ON INTERRUPT
:STOP THE CLOCK

MOV

BIT

BEQ
SAVREG
MOY

JSR

8SERACH, (RY)
IPKCS

#BIT14, RMDS(R4)

#DTADPB,

PC, J#SVRHZO

'START A'SERRCH
:ERROR?

NO--BRANCH
' SAVE RO-RS
:DPB POINTER

:SAVE ALL THE RH70/RMO3 REGISTERS

SEG 0087

MD-11-DZRMF-B RMO3. RMO2 EXTENDED ORIVE
CIRMFB.P11
21-NOV-77 IN4:10
2984

2985
2986

013572

013600
013606

012764

013764
104413

2987
2988
2989

013610
(0l136l2
013616

2991
2992

013630
013632

00000l
042777

2999
2935
29%

013646
013650
013652

001415
104412
012702

2990

2993

013622

013640

2997
2998
2999
3000

013656
013662
013670
013676

3002

3001

3003
3004

3005

3006
3007
3008
3009
3010
3011

3012
3013
3014
3615

30lo
3017
3018

3019
3020
3021
3022

3023
3024
3025
3026
3027
3028
3029
3030
3031
3032
3033

303

104017
005077
012714

012777

032764

000040

004266
165646
000131

165622

013702

004737

031342

013712

000424

013706
013710

013714
013722
013726
013730
013732
013734

013780
013744
013752
013760

013762
013764

013764

005301
003304

042777
005037
012600
005726
104412
012702

004737
012764
013764
109413

000CI2

000101
177776

012764

013764
004737
012777
032737

014020
014022
014026
014030
Ci4032
014036
014040

001004
004037
00205e
000403
004037
002066
000004

000040

004266
026116
041566
000100

031474

000CLO

000010

022726
001360

:
:
:
LTy

TPE0:
EXIT.A:
TPSO: ~
ExXITie:

303¢

SRR

3029

gggg

8101,

SEG 0088

:MRSSBUS CLEAR

; START THE COUNT AT ZERC
:START A SEARCH

(R4)

8131, dPKCS

:START THE CLOCK

aPKCS

#BITI4, RMDS(RY)

iWRIT ON INTERRUPT
!STOP THE CLOCK

1S “ERR=1%7

sDTAOPB, R2

; NO--BRANCH
: SAVE _RO-RS
:DPB POINTER

:DISK_ERROR OCCURRED

DEC
BGT

R1
18

:DONE
?
: NO--BRANCH

BIC
CLR
MOV
TST
SAVREG
MOV

#101,3PKCS
asPs
(SP)+,R0
(SP)+
$DTADPB, R2

:STOP THE CLOCK
:DROP_THE PRIORITY
:PC_OF WAIT+2
'POP THE PS FROM THE STACK
: SAVE RO-RS
:DPB POINTER

:CLOCK OVERFLOWED

JSR
MOV
MOV
RESREG

PC, 38SVRH70
:SAVE ALL THE RH70/RMO3 REGISTERS
#B81 705, RMCS2(RY) ' ;MRSSBUS CLEAR
J8DTRDPB,
RMCS2 (R4} :SELECT DRIVE
;RESTORE RO-RS

JSR

PC, 4COUNT

ERROR

B8R

JSR
MOV
MOV
RESREG

000010
000010

104020

013772
014000
014004
014012

7$:

004266

044134
000040
0042066

WAIT
BIC
BEQ
SAVREG
MOV

3s:
165540

17
oPKB
#SEARCH,

BIT

000010
000010

#B]705,RMCS2(RY)

PAGE 58

J8DTRDPB, RMCS2 (R4} : SELECT DRIVE
;RESTORE RO-RS

ERROR
CLR
MOV

MOV

0042Lb

044134
000040
004266

104017

MOV
RESREG

2s:

00010l

KO?

MARCY1l 30(1046)
@22-NOV-?7
08:04
ROTATIONAL SPEED TIMING TEST
MOV

000010

165632

004737
012764
013764
104413

013700

000010

000131

040000

TEST
T12

ERROR

MOV

BNE
REPORT
BR
REPORT
BNE
JSR
T7A
BR
JSR
17B
SCOPE

THIS

IYES--GO TO THE EXIT

PC, 98SVRH70
:SAVE ALL THE RH70/RMO3 REGISTERS
88} 705, RMCS2(RY) ' ; MRSSBUS CLEAR
asDTADPB,
RMCS2 (R4} :SELECT DRIVE
; RESTORE RO-RS
#B]IT0S,RMCS2(RY)

MOV
JSR
MOV
BIT

(RTEST 13

*UPDATE THE COUNT

;MRSSBUS INIT,

98DTADPB, RMCS2 (R4} : SELECT DRIVE
PC, anST. LK
s INVTIRLIZE THE CLOCK
#I5R, IRMVEC
'RESTORE RH70/RMO3 INT. VECTOR
#SW0E,a8C.SWR
160 HZ?
)

9§
T7A
EXITI2
178
EXIT.A
RO, a8TYPTIM

'NO -- BRANCH
‘REPORT THE TIMES
{GO TO EXIT

; NO-BRANCH
:TYPE THE TIMING
: TRBLE ADDRESS
JEXIT
:TYPE_THE TIMING
: TRBLE ADDRESS
:LOOP ?

EXIT12
RO, 38TYPTIM

000 I

0060

00000

060000 00

06 0000 T

00636

TEST WILL COMMAND FORWARRDC SEEK CYCLES TO ADVANCE

THE

ONE CYLINDER SEEK TIMING TEST

00060

MD-11- o‘nnr B RMO3 RMO2 EXTENDED DRIVE

CZRMFB. P11

21-NOV-77

I4:10

TEST

T13

MACYL1

30(1046)

ONE CYLINDER EE

LO?7

a; NOV-77

0B8:04

IMING TEST

PAGE

SEG 0089

3040
3041

TM
i #

CYLINDER BY ONE UNTIL THE INCREMENT IS GREATER THAN THE
CYLINDER °*LC’,
THEN REVERSE SEEK TO CYLINDER ’'FC’.
THE

3043

EXCEED THE MRXIMUM TIME PERMITTED FOR A ONE CYLINDER SEEK.

3042

3832

3095

3047

3048
3049

3050
3051
3062
3053
3054
3085

L x

014042
014042
(014044

000240
033737

001534

001314

NOP
BIT

JBITS+<13#2>, TSTNMS

;D0 THIS TEST?

JSR
MOV

001570
000031
000013

001204
001115
001224

MOV
MOVB
MOV

J8RPT $TINES
£25. , $ERMAX
#13,$TESTN

010000

165002

BIT

013777

014136

001413

014144

042700

001102

3068
3069

014154

0100496

014156

104403

014161
014162
014166

000
104401

001215

THIS

001215

0I4166

005737

001324

014172
014174
014200
014206
0i4212
014214
014220

003002
000137
012737
004037
000402
000137
012703

3085
3086
3087
3088
3089

014236
014244
014250
014252
Q14286

013737
37
0£0S00S
004737
012777

3083 014224 012737
3084 014232 0127

014550
003116

'MASK' OUT THE HIGH ORDER BYTE

2s:

001572
004300

004300

031276
014444

165172
18:

§TSTNM, RO
SCRLF

THEN DON'T TYPE

'ELSE, fvps THE NUMBER

RO, -(SP)

: :SAVE RO FOR TYPEOUT

PITYPE 2 DIGIT(S)

;: TEST NUMBER
:1GO TYPE--OCTQL

SW12

TEST NUMBER

ARSCI1

'BYTE
TYPE

O
“SCRLF

: 'SUPPRESS LERDING ZEROS

157

J8CLKSTA

:KW11-P CLOCK?

BGY
IMP
MOV
JSR
BR
IMP
MOV

13
rsrxq
818, SLPADR
RO, 9 #SRCHOO
2s’
sxxrxa

IYES--START TEST
:NO--GO TO NEXT TEST
ssrup THE LOOP ADDRESS
:DOA MASSBUS INIT. AND RECAL
:NO ERROR RETURN
:
ERROR RETURN--SCOPE LOOP CALL
PRRRHETER POINTER

MOV
INC
CLR
JSR
MOV

rc asotapPB+12
ovhope+1a
RS
PC ausrnrnn
Y%

ART uxru BEGINNING CYL INDER
INCREHENT THE aecxunxnc C\LINDER
1SET THE UP/DOHN suxr T0
U
SINITIRLIZE THS ERS
:SETUP INCRSE r ovzanou

0i4550 001206
MOV
001100
TEST13: MOV

3030 O0l4264 012777 031274 02244€
3091
014272
005077
165166
3082 0l4276 013764 004300 000C34
3093 014304 012714 00C10S
3094 014310 0127?77 000131 165144
000cC!

#177000, RO

.BYTE

1§:

TEST BEING EXECUTED

; CHECK ron SWITCH 12 SET

BIC

MOV

001106

IS A MACRO TO TYPE OUT THE

#SW12, 3SWR

XNTO THE DISPLAY REGISTER

IF =

TYPOS

014552
014200
031112

":LOARD THE TEST NUMBER

csr THE ITERATION COUNT
‘MAX ERRORS ALLOWED FOR TEST
2 SET TEST NUMBER IN RPT MAIL BOX

208

TYPE

20§ :

$TSTNM QDISPLAY

BEQ

MOV

002

3076
3077
3078
3079
3080
3081
3082

(QI42Ie

MOV

177000

014150

014160

104401

165034

648
TSTIY
#13,388TSTNM

2 L)

001110

64S:

BNE
IMP
MOV

026632
O0I4042

3066

209c

2R Y2 22X 2SI X222 222222

004737
012737

3064 014140 013700 001102

3075

10MS.

014066
014072

032777

3071
3072
38;3

THAN

001102

014130

3070

LESS

014552
000013

3061

3067

YES-~-BRANCH
iNO--GO TO THE NEXT TEST
:SET UP TEST NUMBER AND
iCLEAR THE ERROR FLRG (SERFLG)
PC, LODPRM
:LOAD THE PARMETERS FOR THE TEST
#T5T13, 98SLPERR :SETUP THE ERROR LOOP ADDRESS

0!3737
1.2737
0i2737

3065

MUST

001002
000137
012737

014106
0I4114
014122

3063

+8113:

TIME

014052
014054
014060
014100

3062

THE

(2T XXX

3056

3057
3068
gggg

TIME T0 PERFORM EACH SEEK 1S CHECKED TO ENSURE IT DOES NGT

MOV
CLR
MOV
MOV
MOV

WATT

osxxtla SESCAPE | cnps TO EXITI3 ON ERROR
8STACK, 5P
s;

ooohrz annvec :SET RMOZ VECTO
§TART THE couurzn AT ZERO
anDTRDPB+12 Rnoctnq) Lono DESIRED CYLINGER
¥SEEK
,srnn? SEEK
£131, épvcs
:START THE CLOCK
JPKB

‘WRIT ON INTERRUPT

IS SET

no 11- oznnr B RMO3 RMO2 EXTENDED DRIVE TEST
ZRMFB.PLI
21-NOV-77 14:10
13

MO?7

MACY11l 30(1046)
22-NOV-77
08:04
ONE CYLINDER SEEK TIMING TEST

14
5134
309? 814358
8342777
764 8QO8086 680612

gi?

3100

MOV

3098
3099

014334
014335

00INIS
oqqés

3101

014344

4737

014340

goqass

000040

O94I3N

BEQ
SAVREG
JSR

3102

014350

012764

000010

3104

014364

104413

3106
3197
3108

014370
014374
014400

004737
004737
005705

031342
030570

2s:

2
023737

004300
004300

3s:

177777

0l4426

005337

004300

81'-0442

314

JPKC
oé?*lw
RMDS(R4)
sDTADPB R;

TOP THE CLOCK
;ANY
DISK ERRORS?

NO--BRQNCH
8 -R

ve nLL THE RH?O/RHO3 REGISTERS

61708, RMCS2(RY) '

3103 01435k 013764 004266 000010

asOTROPB, Rncsarnui kE T onévs

3105

ERROR

014366

104017

3109

oxqug

88§°55

3112

014416

002725

3110
3111

3113
3114

3115
3116

3117
118

0144
014410

014420
Ol4seN

014432

1444

(023727

3119
3120

Ol4444
014452

(042777
00S037

3123

014462

109412

3121
3122

014486
014460

0126
726

3124
3126
3126
3127

Q14468
014470
014474
014502

012702
004737
012764
013764

3129

014512

104020

3128

014510

104413

004300

DOC101
177776
004266
044134
000040
004266

001574

000000

165010

RESREG

313N
2i35
3136
3137

3139

3140

%i:é
3f33

014834
Qluey2
014848
014550

012777
94037
00311
oooooq

041566
031474

J8DTADPB+12
‘M vs “78 NEXT CYLINDER
380TADPB+12,LC ;bUT OF CYLINDERS?

MOV

#-1,RS

gsr HP’BS“" suxrgu ro ooun

DEC

J8DTARDPB+12

novs ro NEXT CYLINOER

EXIT13:

cMP

J8DTRDPB+12, 80

éz

BIC
CLR

;

YL*

T0 T

8101, IPKCS
8PS

NEXT SEEK

svop THE LOCK
gnop THE pnéonxrv

(SP)+,R0
(SP)

POP THE PS FROM THE STACK

MOV
JSR
MOV
MOV

sDTADPB, R2
PC, 38SVRH70
oetrgg RMCS2 (R
J8DTADPB, RMCS2

ERROR

MOV
MOV
JSR

:NO--GO
DO THE NEXT
S

RESREG

022176

cou~1 Tués
EKS TIME
STRLL ro 2 MILLISECONCS
,up

4§

SAVREG

3139 813819 oie7ew
oooowo ooooio O
3132 014§§2 81 764 884 66 000010
3133 014530 004737 026l16

N
LMP

MOV
TST

000010
000010

RO R

PC, 38COUNT
PC, a8 TWOMS
RS’

831’

78:

JSR
JSR
TST

BLY

4s:

SEG 0090

P8 POIN

PC, 38SVRH?0

MOV

PRGE B0

sn £ RO-RS

:OPB POINTER
snve ALL THE RH?O/RH03 REGISTERS
2983 cbg
7
xve
REPORT CLOCK ovsanou

] BITOS
RMCS2(RY) : (M
NT .
acOTASPB S 45 32 D xvs

PC,38ST.
éLx .xniTanxzs
THEC
8I8R IRMVEC
'RESTORE RH?O/RH03 INT VECTOR

MOV
ISR

10
SCOPE

RO, Q4TYPTIM

‘38 TYPE

POINTE
:LOOP 7

THE TIMES

R 2XX222:22Z22222222X22X222222X22XX2
X2 2T
S

ETEST 14

RCCESS TIME MERSJREMENT TEST

THIS Tegr EéLL gggnnnoasvrgguzngnggeer?gn CYLINDE§ 0 70

31:;

¢z§ EHI"N’HE,§°LE§“"CE nLgousonron THS
nccsss TIME MEASUREMENT.

3149

i ¥

CYLINDER "LC’

gst
gzue
éi§9
whdewd

‘e
‘e

HRd

tiBE

[

RMO3.

’

B80TH @ E §1nr nns Eusgxso 98 EN8URE THEY

352 SEE §§

FOR

E S Egcé gccé E
T1 8
HUST as LESS THAN 30 MS.

OEFQULTS TO 136 (10)

FOR AN RMO3/5 OR TO 255

«10)

R A A LN [N IR (A TR N TR [ IR TR TN TN INTATA TS TR TR IR TNTRIRINTATARTATRTAIRIATRIRTAIATATATATRTATATRTN X
e
D D DD DDDDDB 1§ 3 < < I VT 00 0 T DT T AN D A
=8(0400100100000
O 8\flgmJHJ**%D&GTQOUL:NgL43mfl;3@atflun»—OdflbVUHHI&”UHging\MPdegm

DZRMF-B RMO3/RMO2 EXTENDED DRIVE TECT
P11
21-NOV-77 [4:10

014552

MACY!]
ACCESS

000240
033737

001536

014564

000137

015334

004737
012737
013777
013737
112737
012737

6632
014552
001102
001570
000031
000014

001110
164324
001204
001:1S
001224

JSR
MOV
MOV
MOV
MOVB
MOV

0I46N0 032777 010000

164272

014570
014576
014602
014610
014616
014624
014632

0010

012737

014646

001413

014654

042700

014664

010046

014666

104403

000014

014650 013700 0011G2
014660

614670
014671
014672

014676

014676
014702
014704

104401

002
000
104401
005737
003002
000137

015334

015332

014772
014776

015004
G1S012

005077
013764

012764
012777

015020

00000!

015030

032764

0I1S040
015042
015046
01502

104412
0127027
004737
012774

018022

018036

G15060

042777

00I4IS

013764

JMP

TST1S

MOV

THIS

SEG 0091

00:106

003126

1§:

000034

000101

164432

000105
000131

040000
004266
044134
000040

004266

000000
164442

000012

000010

#1494, J8STSTNM

ssr gp ST NUMBER AND

PC L ODPRM
T8Ti4, 98SLPERR
TNM’ SDISPLAY
aonpr $TIMES
825. , $ERMAX
814, $TESTN

:LOAD THE PARMETERS FOR THE TEST
;SETUP TnE ;Rnoa LOOP ARDDRESS
':LOAD T
EST NUMBER xnvo THE DISPLAY REGISTER
;GET THE ITERATION COUNT
:MAX ERRORS ALLOWED FOR TEST
:;SET TEST NUMBER IN APT MAIL BOX

NO--GO TO THE NEXT TEST

:CLER

IS A MACRO TO TYPE OUT

#5W12, ISWR

ERROR FLAG (SERFLG)

THE

TEST BEING EXECUTED

cuscx ron SWITCH 12 SET

CIF =

BIC

n177oob RO

:MASK' OUT THE HIGH ORDER BYTE

§TSTNM, RO
$CRLF

R0, -(SP)

.BYTE
BYTE
TYPE

2
O
SCRLF

157
BGY
IMP

JUCLKSTA
13
15715

MOV
JSR

818, SLPADR
RO, 9#SRCHGO

JMP

EXITIH

2s:

MOV

18:

CLR
MOV

HEN DON'T TYPE TEST NUMBER

,,;2¥$
RO
ggs TYPEOUT

1160 TYPE--OCTRL ASCII

2YTYPE 2 DIGIT(S)
: 'SUPPRESS LEADING ZEROS

Ku11 P CLOCK?
YES--STRRT TEST
NO--GO TO NEXT TEST

ssr THE LOOP noonsss
:D0A MASSBUS INIT 3 RECAL

"RETURN HERE IF NO ERROR
:RETURN HERE ON ERROR

'PARAMETER POINTER

aPKB
LC, RMDC (RY)

:START COUNT AT ZERO
P"MIDDLE’ CYLINDER

BIC

8101,

1STOP CLOCK

BEQ

MOV
MOV

WARIT
81T

SAVREG
MOV
JSR
MOV

MOV

IF SWl2

'ELSE, tvpe THE NUMBER

£T11

015332 001206
MOV
001100
TEST14: MOV
000200
MOV
031276
JSR
015226 164472
MOV
031274 021746
MOV

164466
001574

YES--BRANCH

208

MOV

20$:

;D0 THIS TEST?

64S

BEQ

MOV

001324

0137

012737
012706
012701
004737
0i2777
012777

64$:

TYPE

001215

0147249

014734
014742
014746
014752
014786
014764

JUBITS+C14%2>, TSTNMS

TYPOS

014710
031112

012703

001102

NOP
BIT

BNE

177000

012737
004037

014722 000402

001314

001215

014710
014716
014730

PAGE b1

cRBRERSERBRBARERESERBRREERRERERREREERRERRRRE
RSB
EAE AR RERREEERRNRREL

taT1y:

014552
014554

0i4Se2

NO7

30(1046)
22-NOV-?7
08:04
TIME MERSUREMENT TEST

ssxxtxu SESCAPE ::ESCRPE TO EXITI4 ON ERROR
osr CK, 8P ;
éETUP STACK
R1
REPEAT ~0-136-0" 128 TIMES
PC acérnrnn
INIT THE COUNTERS
'SET UP VECTOR IN CASE OF OVERFLOMW
oooer aanvsc :SETUP RMO3 VECTOR
#SEEK RMCS1(RY) :START A SEEK
8131, 9PKCS
:START THE CL
JPKCS

“WAIT ON INTERRUPT

$BIT14, RMDS(RY) ;ERR 1?

NG--BRANCH

' SAVE RO-RS
$DTADPB, R2
:DPB POINTER
PC, 98SVRH7O
:SAVE ALL THE RH?O/RH03 REGISTERS
s81 708 RMCS?(PH) MASSBUS CLEAR

JsDTRDOPB, RMCS2 (R4S GELECT DRIVE

IS SET

[ o )]
- O
VN

RMF-8B RMO3 ‘RMO2 EXTENDED ORIVE

DONN
E WO

ittty RRR
KRRRR
nro
SE53% HEREER-BIBY FRED s~

Pt P

Gt P

Pt ot Pt

%fig%%%%%%%%%&%%
38

21-NOV-77 I4:10

015066

104413

018072

00S00S

015100

737

015070

0150674

015104
015110
015116

0137ed
gx 76M

0151
015134

000001
042777

0161S0
CiS152
015154

001415
104412
Q12702

015153

187

2s:

031342

030670

164354
001572
1gs
000101

004737
012764

0127205

015320

00301

015210
016214

Ni5222

004737
004737
00044
gggg??

018240
018242
G15344
015246

012600
005726
1094]2
012702

815252

004737

016272
8%2532

104413
104020

16286
018264

012764
013764

015276

012764

015316
0:5324

012777
004037

015304
018312
015330
0i3332

013764
004737
00312¢
000004

000101

177776

000040
004266

8131,b

:STRRT THE

000210
000010

MOV

'éo# IPKCS

s8] lw,nn05(aq) (ERR=1"

sDTADPB, R2

PC, 38SVRH70
o8} 708 RMCS2(R

: NO--BRANCH
i SAVE_RO-RS
:DPB POINTER

snvs ALL THE RH70/PMO3 REGISTERS
MASSBUS CLEAR

8-1,RS

SET UP.-DOWN suxrcn YO DOWN

BGT

,No--annugn

BR
BIC

8PS

JSR

PC . a8SVRH70

RESREG
ERROR

041566
031474

021414

MOV
JSR

8s
8101, aPKCS

CLR

MOV

YES--EX]T
:STOP THME CLOCK

'DROF TYE PRIORITY

(SP)+,RO
(SP)+

‘PC OF WAIT+2
"POP THE PS FROM THE STACK
:SAVE RO-R
;OPB POINTER

sDTADPB, R2

: SAVE %
Tuc RH?O/RHUB REGISTERS

881705 RMCS2(R4) ' nnssau
980TADPB, RMCS2 (R4S . SELECT onxvs

;RESTORE
:CLOCK

881 TOS,RMCS2(R4)

MOV
JSR

EXITI4:

CLOCK

WAIT ON INTERRUPT
:STOP THE CLOCK

uponre THE COUNT
iSTALL FOR 2 MILLISECONDS

0000iC

0000i0

JPKB
THE COUNT AT Z2ERC
FC,RMOC(RY)
,esgsnuxfic
CYL INDER
#SEEK ncsx(nw) :START RHEEE

PC, 38COUNT
PC. 3% TWOMS

0040

004266
026116

oare THE COUNT

JSR
JSR

MOV
MOV

PC, 38COUN

JsOTROPE, RHCSZ
SELECT ORIVE
RESREG
EQ
RE RO-RE
ERROR
17

MOV
o
SAVREG
MoV

0C4266

044134

MOy

MOV

78:

:RESTORE RO-RS

gvg§$ 2 MILLISECONDS

DEC

164226

SEg JC9%¢

pC anTuons

JSR
MOV

3s:

PAGE &2

ISR

BEQ
SAVREG
MOV

003263

018224
oxggsa

01l

177777

031242
03067

08:04

;SET UP/DOWN SWITCH TO UP

BITt

000010

BO8

22-NOV-?7

JSR

164320

015172 013764 004266 000010
018200
104413
016202
104017
018208

CLR

WAIT
BIC

,
0DO4266

044134
000040

ERROR

CLR
MOV
MOV

131 164330

30(1046)

ACCESS TIME MEASUREMENT TEST

000034
000UC0

018142 0327eM 0O4O00C 000012

015160
015164

MACY1l

RESREG

104017

TEST

RO-RS
OVERFLOWED

:MASSBUS

INIT.

InDTADPB, RMCS2(RY) : SELCCT DRIVE
PC,a8ST. (LK
s INFTIALI2E THE CLOCK

111
SCOPE

8I8R, JRMVEC
RO, JkTYPTIM

,nesrons RH70/RMB3 INT. VECTOR
,co TYPE THE TIMES
{POINTER
SLOOP 7

X ZITITTIITITITZIZIIIIIZISSIISSSZI
RIS ISR SIS
22222222222 22222 33

MAXIMUM SEEK TIMING TEST

i'esr G
,

s ¥

TMIS TEST WILL COHHRND FORWARD SEEK FROM CYLINDER O 70

CYLINDER 'LC’,

THEN
R REVERSE SEEK FROM CYLINDER

'LC°'

CYLINDER 0. OTHHEEEKS
ARE TIMED QNO CHECKED 10 ENSURE

TIME.

Y ARE WITH

TYMIS SEQUENCE

OLERANCE

RLLOWED FOR

1S REPEATED

128 TIMES

THE

nnxxnun SEEK

THE nnxxnun SEEK TIME nusr BE LESS THRN
A TOTAL OF 256 SEEKS)
€4 MS.
°LC’ DEFAULTS TO 410 (10) FOR RMO3-5°S AND T0 8I4 (10,

MO-11-DZRMF-B RMO3 RHOE EXTENDED DRIVE TEST

CZRMFB. P11

21-NOV-77

14:10

T1s

3522
3266

. ¥

015334

3293

815336

88373

001S40

01534
0153c2

000137
012737

016116
000015

3271
3272

3223

015334

18394

oooewg

1002

737

$é115.
001314

001102

015414

012737

00001S

001224

3282

015422

032777

010060

163510

gggg

nguas

o427

$g7goo

0I1S4S0
015462

104403
062

3281

3583

015430

00IY13

3284 018432 013700 001102
18442

104401

3387 O01S44% 010046

&4$:

015453
018484
015460

000
104401

001215

3295

015460

005737

001324

3298

0{ 472

12037

016116

oiss?s

3508 Bi2

o?o;

NOP

IMP
MOV

JSR

n8v
MOVB
MOV

;THIS

817

BEG

MOV
IC

1218

3288
3289
3290
3291
32
ggga

£%
gize
29
154

YPE

MOV

TYPOS
.BYTE

85???5

208 :

001106

oxsiéz

3382 812533 864784 1 92
015 :2

1S§:
25

012777

xso%g

éS?IéS

3388
Siggsu 0{3;5:
77 ?Z&;oq
18:
33{0
oissso
001?74
88088q
3413
i2esk Qistey; RAier 009009
33i3 012285
777

UUU

3314
3315

01
015612

2777
03276d

331
3318
3319

i5
015624
01Se30

6 4Ylg
Ole702
004727

3319

166

TIMING

TEST

08:04

PRGE 63

SEG 0092

ogxuxc

00010!
040000
DO426E
044134

163650
000012

achrs+<1s-a>, TSTNMS '83
THIS TEST?
by

TSY g
815, 98STSTNM

YES-

:NO--GO
ssrngp

xT TEST
E

0 TLE PERflOflE LAZ (s$RFLG)ST

T
R
g
3
Bp?"s??nép
Gt?n?HEHSTESS¥I
*
82S. tsnnax
:MAX ERRORS ALLOWED FOR TEST
815 $TESTN

IS A MACRQ TO TYPE QUT THE TEST BEING ExECUTED IF SWi2 IS SET

csula JSWR

; HEC on

uxrcn 12 SET

‘MRSK 'ouT

THE chu ORDER BYTE

oon T TYPE TEST NUMBER

§T~n RO

EL £, ?vp;

ho -(SP)

: s SAVE RO FOR TYPEOUT

'i 7090 RO

:'TEST NUMBER
: 160 TYPE—-OCTQL RSCII
PITYPE @ DIGIT(S)
. i SUPPRESS LERDING ZEROS

2
O
SCRLF

157

SHCLKSTA

?gg

axsbsgggggo

serupflgue LgOPN?QDREEECQL

EXITIS

gg;uan ESRE
ON ERROR

:83

péagcs$&rnn

JINIT, T T&MERS

283

LC
Rnoségw}(nq) &nun
CYL INDER

BiC
BIT

8101, IPKCS
:STOP THE CLOCK
#BIT14, RKDS(RY) :ERR=1?

.
MP

%nc

JSR

CLR
MOV
WAIT
go

SAVREG
MOV
JSR

1.SET TEST NUMBER IN APT MAIL BOX

‘BYTE
TYPE

3385 81?215 815739 18114 001206
MOV
gaou 0{5524 015;05 001100
TESTI1S: gox
3307

SEEK

RMD3'S.

3279

FOR

g
TR
357
812408
81
737
881§98
681 04
3278 015406 112737 000031 001115
I

MAXIMUM

S-NOV-77

CRBRRBRBEERRBABRRERNREBRPEBRERBERRREREFRRRERER BB R ARRR AR R RERREREEE2RL S

3267
3268

cos

MACY] 1 3g<éow?

116

[

Kulx
-P CLOCK

Sl
NG--G8
TOANy
NexY TEST

i Re 10N PERE
1P O ERROR

nsx?fxg ssscnps ; 9355 T0 gxxrxs ON ERROR
éET STACK 0" 128 TIMES
ohrx aflnvsc

9
S Re2
[]

sCTADPB, R2
PC. asSVRHTO

:SETUP xfisgos
IN CASE OF OVERFLOW

35 T COUNTINS ?non 2ERO
TART ONP&l
ock
unxr
INTERRUPT
: NO--BRANCH

'SAVE RO-RS
'DPB PGINTER
:SAVE ALL THE RH70/RMO3 PEGISTERS

MD-11-DZRMF-B RMG3-RMO2 EXTENDED DRIVE

CZRNFB.PLI
3320

21-NOV-77

oxssaq

012764

3321

0}3764

3323
3324

015652
015654

10401
00S00S

332

650

1Q441

14:10

000040

004266

TEST

T1S

000010

MACY11

MOV
MOV
WRIT

gtsxSHCSI(RH) 3533 3 g E
8131, 9PKCS
:START THE
C
TWRIT ON xursnnupr

3332
3333
3334
3335
3336

015716
015724
015732
015734
015736

042777
032764
0B0I4IS
104412
012702

000101
040000

163536
000012

BIC
BIT
BEQ
SAVREG
MOV

3338

01574

12764

0D00040

000010

MOV

015762

104413

4737

004266
0Q44]34

JSR

3339 QIS57S4 013764 004266 000010

3340

3341
3342

016764
015766

104017
012705

33%4
3345
3346
3347
3348
3349

015776
016002
016004
016006
016010
015055

004737
005301
003263
000424
04."77
005037

3352

016026

104412

177777

33s0
3351

3383

0160
016024

016030

012600
726

012702

3354
3355

016034
016040

004737
012764

3367
3388

(016054
016MSe

104413
104020

3356
3359

3360

016046
(016060

013764

23€c
33€€

000101
177776

163444

004266

044134
000040

004266

000010

000040

000010

016074
016100
QlelD6

004737
012777
Q04037

026ll6
041566
031474

020632

?Sk c71 onévs

RO-R

sSET THE UP/DOHN SWITCH TO UP

:UP THE COUN
;STALL FOF @ HILLISECONDS
srnn;fic“aurvf}floen

8101, IPKCS
: STOP THE CLOCK
#BIT14,RMDS(RY) :TMERR”=
3s
NO--BRRNCH
:SAVE RO-FS
oornopa Ra
ope POINTE

? gv

avg § THE
RH70/8M03 REGISTERS

REPORT THE ERRO
SET THE upxooun SWITCH TO DOWN

PC. 38TWOMS
RI
1$
83
8101, IPKCS
8PS’

STRLL FOR 2 MILLISECONDS
: DONE?
:NO--BRANCH
PYES--EXIT
srop THE CLOCK
ROP T
anonxrv

wB!ito

Rncse(nw) MASSBU

aoornobe Rncselnqi §ekgcr
onxvs

MOV
TST

(SP)+,R0
(SP)+

sDTADPB, R2

DATE THE COUN

C OF
T+2
POP THE PS FROM THE

sn € R? RS

STACK

:bPB POINTER

JSR
MOV

PC, 98SVRH70
snv ALL THE RH70/RMO3 REGISTERS
88} 705, RMCS2(RY)' S MRSSBUS CLEARR

RESREG
ERROR

MOV

JSR
MOV
JSR

EXITIS:

PC, 38COUNT
PC’ 98TWUOMS
gpka

pcbncounr

JSR
DEC
BGT
BR
BIC
CLR

MOV

8s:

RES

JSR

MOV

012764

00313
000004

7§:

ERROR
MOV

SAVREG

016060

Cieile
Gle.l+

RESREG

030670

3361 016066 013764 004266 000010
3362
33€3
324

MOV
3s:

3343 015772 004737 031342

JSR
JSR
ch

SEG 0094

:MASSBUS CLEAR

17
RS

031342
030670
xsagge

81574

ERROR
CLR

015656 004737
015662 004737
oissgs
g77

3337

#BITOS, RMCS2(RY)

PAGE

asDTADPB, nncsa(nqi

3325
3326
3327

3353 813908 813 84 88 10 888880
3330 015706
0127?77 000131 163546
3331 015714 8aooox

08:04

MOV

RESREG
2s:

22-NOV-77

MAXIMUM SEEK TIMING TEST
MOV

000010

D08

30(1046)

Tie
SCOPE

JsDTRDPB, RMCS2 (R4} 2 SELECT DRIVE
#BITOS,RMCS2(RY)

RssTORE RO-RS
:CLOCK OVERFLOWED
:MASSBUS

INIT.

J8DTRDPB, RMCS2(Rqs SELECT DRIVE

PC. a8ST. LLK
#I14R, ARMVEC
RO.JETYPTIM

.INiTIRLIZE THE CLOCk
"RESTORE RH70/RMO3 INT. VECTOR
GO TYPE THE TIMES

:POINTER
:LOOP *

EOB

MD-11-DIRMF-B RMO3 'RMO2 EXTENDED DRIVE TEST
CoRMFB.F1L
21-NOV-7"T 14:10
T1S
3367

3368

MACY1! 30(1046)
22-N0v-77
MAXIMUM SEEK TIMING TEST

.SBTTL

3369
K
R
R

AR
ANETE
ANIR

;#THE

ANEL
ANRE
ASIE

AL
ANNE
AN

AUNZE ANPE
ANFE ANNL
ANVL AVNZ

ADDRESSING

TESTS

EEY BEAY

ANFE
ANPE
ANN4

ANIE
ANNZ
ANNL

ENSURES

AL
AUNZ
ANDL

AN
ANNE
AVNZ

PROPER

[

ANTE AL
ANNLE ANIE
ANNE AL

SNNE
ANNZ
ANNE

ANDE
ANPL
ANDE

ANVE
ANVE
ANNE

ANNE
ANDE
ANPL

OPERATION

THE

TRACK

ANEE
AVEE
ANWE

2ANIE
ANIE
AENE

SEG D09S

RN
AN
AN

VERN

FERN

FEEN

ZEAN

FEAN

FEAX

VAN

YERAN

YEAN

FEANY YEAN

VERAN

YEAX

FEAN

YEAN |

ZEAR

VEAN

VERN

VAR

VERN

VRN

VAR

YEAN

VAN

VEARN

VRN

FEAN

YEAN

PEANY VRN

EEAY

YEAN

FEAN

22X

Y22

VRS

YARS

YARN

FVERN

FEARN

VERRY VEAN

YVERAN

FARN .

IEAN

PAGE bS

#%% ADDRESSING TESTS x##

:®#AND SECTOR RDDRESS CIRCUITRY.
BOTH RDDRESSING TESTS
:#wl
L BE PERFORMED ON CYLINDER FC.
AN

08:04

3383
3384

;'lliii!lilllllll!iilll!lllllll!lill{illlllllii!i!ili!l!il{l!ilfl

3387
3388
3389

R
o
R

THIS TEST WRITES DATA INTO ALL SECTORS OF TRACK "FT*.
THE
DATR WILL BE 256 WORDS
OF THE SECTOR RADDRESS OF THE SECTOR
BEING WRITTEN.
A WRITE CHECK IS PERFORMED,
THE BUFFER IS

3391
3392
3393

; #
o
;¥

IS REWRITTEN RND SECTORS O - 21 ARE WRITE CHECKED.
THEN
SECTOR 1 IS REWRITTEN RANC SECTORS 0 - 21 ARE WRITE CHECKED.
THIS REWRITE AND WRITE CHECK PROCEDURE IS CONTINUED UP THROUGH

gggg

(RTEST 16

3390

%ggg
3396

339"

3398
3399
3400

3401
3402
3403
3404

340S
3406
407
3408
g:?g

016116

Q0lelie
0i6l20
O0Olelee

016130
016134
Q16142

CLERRED (TQ 177400) AND THE DATR IS REAC AND COMPARED.

e REERRERERRERRRERRRBERE
RN RRRRRE N RN RRRRERRREERERERREERERERERRRLE

000240
033737
001002

000137
012737
004737

MY
001S42

Q001314

016560
000016

001102

026632

6&4S:

NOP
B1Y
BNE

IuBITS+1b#2>
, TSTNMS ;DO THIS
e4%
; YES--BRANCH

JSR

PC,LODPRM

JMP
MOV

012737
013777
013737
113737
012737

016256
001102
001570
001444
000016

001110
162760
Q01204
001115
0OOCleecHd

MOV
MOV
MOV
MOVB
MOV

4le

016204

032777

010000

162726

817

3414

0leeld

013700

001102

Q0leeed

104401

001215

3413

Q0leele

001413

341S

016220

3417

016230

010046

(016232
0lbe3d
0le23c
Clec3e

104403
00¢
000
1044C!

241&

3418
3419
3420
3421
342

THEN SECTOR O

REWRITE SECTOR 21 AND WRITE CHECK SECTORS 0-21.

Q16146
OlbiS4Y
0lblee
016170
016176

3411

SECTOR ADDRESSING TEST

042700

177000

0Clels

-THIS

TST17
816,388TSTNM

TEST?

;NO--GO TO THE NEXT TEST
;SET UP TEST NUMBER AND
;CLEAR THE ERROR FLAG (SERFLG)
;LORD THE PARMETERS FOR THE TEST

8TESTI6, JUSLPERR’ ;SETUP THE LOOP ON ERROR RDDRESS
STSTNM, JDISPLAY :(0AD THE TEST NUMBER INTO THE DISPLAY REGISTER
JsRPT $TIMES
;bET THE ITERATION CUUNT
ERR.
C} SERMAX
;MAX ERRORS ALLOWED FOR TEST
816, STESTN
;;SET TEST NUMBER IN APT MAIL BOX
IS A MACRO TO TYPE QUT

sSlle, dSKR

THE

TEST BEING EXECUTED

;CHECK FOR SWITCH ]2 SEY

BEQ

c0s

;

BIC

#177000, RO

;MASK OUT THE HIGHM ORDER BYTE

MOV

TYPE

STSTNM, RO
SCRLF

MOV

kD, -(sP)

TvPOS
.BYTE
By TE
TYPE

e
a
BCRLF

= 0,

THEN DON’'T TYPE

;ELSE, tYPE THE NUMBER
; ;SAVE RO FOR TYPEOUT

;: TEST NUMBER
;GO _TYPE--OCTAL RSCII
;3 JYPE @ DIGIT(S)
: : SUPPRESS LEARDING ZEROS

SWle

TEST NUMBER

IS SET

MD-11-DZRMF-B RMO3/RMO2 EXTENDED DRIVE TEST
CZRMFB.P11
21-NOV-77 I4:10
Tie

3429
3430
3431

016266
016274
016302

013737
113737
1
7

001572
001600
004276

004300
004277

3433
34
3435

016314
016322
016330

012737
012737
012706

0S1776
016322
001100

004274
001110

3441
3442

016366
016372

DO4037
012737

027612
016372

001110

3445
3446
3447
3448

016410
016416
OlE422
016426

012737
008037
004037
012700

000171
027612
032232
051776

004270

016434

001110

3427 01
012706 001100
3428 016262 004737 032126

001332

MOV

TEST16: MOV
JSR

MOV
MOVB
CLRB

3432 016306 013737 001432 004272

MOV

3436 016334 012737 000161 004270
3437 016342 004037 027612
3438 016346 012737 000151 004270
3439 016354 012737 016354 001{10
3440 016362 012706 001100

MOV
JSR
MOV
MOV
MOV

3443

016400

012706

001100

3444 016404 004037 032164

3449
3450

016432
016434

01
012737

3451 016442 012706 001100

MOV
MOV
MOV

3455
3456

016466
016472

110137
004037

004276
027612

3458
3459
3460

016504
016510
016516

012706
012737
013737

001100
000151
001432

016532
016536
016542

105037
004037
062700

3457

016476

012737

016476

34pl 016524 012737 0S1776 004274

342
3463
34e4

016546
016550
016554
016556

005201
023701
103334
(00DDOM

001712

EXIT16:

ER, 98DTADPB+6’ aurrsa ADDRESS
c SL- AR
:SEYUP THE ERROR LOOP ADDRESS

:START A DATATRANSFER
:SETUP_THE ERROR LOOP ADDRESS

MOV
JSR
JSR
MOV

#READ, 9tD nopa+a <COMMAND = RERD
RO, 98DRVCAL
;STnnT DATA TRANSFER
RO, 9%CKSCTR
: CHECK THE SECTOR DATR READ
sBUFFER, RO
;BUFFER RDDRESS

uunxre anornopa+é: COMMAND=WRITE DATA
S8DRVCAL
:StART A DATA TRANSFER
oukcxo 28DTADPB+2"; COMMAND=WRITE CHECK DATA
SLPERR
sSETUP_THE ERROR_LOOP RDDRESS
cstncx SP
:LORD_THE STRCK POINTER
sStAcK, S

:LOAD THE STACK POINTER

RO achReur

i CLEAR BUFFER

:FIRST SECTOR
;ssrup THE
ERROR LOOP ADDRESS

SLPERR

sstACK, SP

ORD THE STACK POINTER

MOV
MOV
MOV

SURITE acornopa+éconnnuoua:re DARTA
8SCTRWE, a8DTADPB+4’ : WORD COUN
RO aoorhope+ ; BUEFERnoonsss

MOV

MOVB
JSR

1,38DTADPB+10
Ro,aoon CAL
'SLPERR

;SEC
:START A DATA TRANSFER

:SETUP_THE ERROR LOOP RDDRESS

MOV
MOV
MOV

sStRCK, SP
:L0AD THE STACK POINTER
uuncxo' 38DTADPB+2 ; COMMAND=WRITE CHECK DATA
TRCKWC 38DTADP8+4 ; WORD COUNT

CLRB
JSR
ADD

980TADPB+10
RO, 98DRVCAL
£512. RO

MOV

chuc ac TADPB4Y " ; WMORD COUNT

INC
CMP
BHIS
SCOPE

oeurrsk J8DTROPB+6’ ; BUFFER ADDRESS

R
PRMLMT+22,R1
18

;SECToa
:START_R DATA TRANSFER
:MOVE TO NEXT SECTOR

;:DONE?
: NO--BRANCH
:LOOP 7

3470

H !*l!l!l!liiillll!!l!ill!!i!lI!lllillll*llll!lllllll*i!lll!!l!li

W
£
~
(8]

3465
2466
3467
gggg

004276
027612
001000

asfc, acornopa+1a ; CYLINDER
aurr auornoPa+11 TRACK
¥:ot 6
RECTOR

RO, 38DAVCAL
%, . SLPE
RR

MOV

004270
004272

;SET THE STACK POINTER
iFILL THE BUFFER WITH SECTOR ADDRESSES

JSR
MOV

CLR
MOV

001110

;SETUF THE LO0P nooness

LOAD THE STACK POINTER

JSR

8STARC 59
PC athL

a5¥ACK, SP

MOV

3452 016446 012737 000161 004270 1$:
3453 016454 012737 177400 004272
3454 016462 010037 004274

osxxrxs J8BYPASS

ures 16.SLPARDR

001106

016256

016556

012737

016250

20%:

016242

SEQ 00S&

3474
3475

3476

3477

3478

it
o

i ¥

TRACK ADDRESSING TEST

333%

wr us—

3425

3426

PRGE 66

THIS TEST WILL WRITE DATA _IN THE FORM OF TRACK_ RDDRESSES

IN_CYLINDER “FC*”
SECTOR "FS* OF EVERY TRACK WITH ERCH TRACK
GETTING ITS OWN TRRCK ADDRESS.

A WRITE CHECK IS THEN PERFORMED ON EACH TRACK- TO ENSURE
THE DATA_IS
VALID.

THEN TRACK O IS REWRITTEN AND TRACK 1

THROUGH TRACK 18 IS WRITE CHECKED.

ebemnd

THEN TRACK 1 IS

maratmmonS

S
e

016242

08:04

[E
4

3qgg

FO8

MACY11l 30(1046)
22-NOV-77
SECTOR ADDRESSING TEST

MD-11-DZRMF-B RMO3 RHOE T
ENDED DRIVE
CoRMFB.PIL
21-NOV-77
10

3479
3480

. ¥
e

338§

3483

3484

(C16560

016560
016562

3488

016572

3489
3490
3491

016570

016576
016604

MACY11 30(1046)
TRACK RDDRESSING

GOS8

22-NOV-77
TEST

AND

WRITE

CHECKING

000240
033737

001002

000137

001544

017244

012737

000017

004737

026632

001314

001102

648:

IMP

Ts720

MOV

JSR

:SET UP TEST NUMBER AND
c EAR THE ERROR FLAG (SERFLG’

(01664

032777

010000

16226M4

IS
A MACRO TO

TYPE

ho -(SP)

104401

3504 016672 01004
350s
06

016674

3508

016677

3507

3509

016676

001215

TYPQS

002
000

ggi?

016704

104401

001215

3512

016708

012737

017242

016712
016720

MOV

104403

016700

3513
3514

BEQ
MOV
BIC

001102
177000

012737
012706

016720
0011060

3615 016724 004737 032126

208 :
001332

LORD THE PARMETERS FOR THE

#SW12, aSWR

TYPE QUT THE

208
STSTNM, RO
0177000 RO
RLF

TYPE

SCRLF

#EXIT17, 38BYPASS

: SAVE RO FOR TYPEOU~

.,TEST UMBER

JSR

PC acriLsur

$TEST1? SLPRDR
#STACK

: . SUPPRESS LERDING ZEROS

:SETUP THE LOOP ADDRESS
:SET THE STACK POINTER

:FILL THE BUFFER NITH TRACK RDDRESS

016730
016736
016744

012737
013737
113737

000161
001572
001606

004270
004300
004276

MOV
MOV
MOVB

sWRITE, 38DTADPB+2
:connnno WRITE DAT
asrFC,9bDTADPB+12 ;YL IND
I¥FS’ sDTADPB+10 cron

3520
3521
3822

016760
016766
016770

012737
00S000
012737

051776

004274

0i6?70

001110

MOV
CLR
MOV

8BUFFER. 38DTADPB+6 :BUFFER ADDRESS
RO
: TRACK=
SLPERR
ssrup “THE ERROR LOOP ADDRESS

624
3525
3526
3527
3528
3529

017002
017006
017012
017020
017022
(017026

110037
004037
062737
005200
022700
003365

MOVB
JSR
ADD
INC
CMP
BGT

RO, 98DYAROPB+11
ancx oo£SS
RO’ #DRVCAL
:START
A DATR TRANSFER
8256. #2. , 8DTRDPA+6
: UPDATE BUFFER ADDRESS
RO
:UPDATE TRACK NUMBER
%S, RO
our OF TRACKS?
18’
-BRANCH

331
3€32

017036
017040

005000
012737

CLR
MOV

3523 016776 012706 001100

004277
027612
001000

18:
004274

00000S

2630 017030 012737 0S)776 004274
017040

3c32 (17046 01270e 001100

MOV

001110

2€24 17082 012737 0001SI 004270

MOV

MOV
MOV

MOY

SWi2

“IF = 0, THEN DON'T TYPE TEST NUMBER
‘ELSE, YTYPE THE NUMBE
'MASK' OUT THE HIGH onoen BYTE

316
3C17
3518

3519 016752 012737 177400 004272

SITYPE 2 DIGIT(S)

MOV

MOV
TEST17: MOV

TEST BEING Exscureo

CHECK FOR SWITCH 12

16O TYPE--OCTRL RSCII

001106

TEST

§§117 JUSLPERR’ ; SETUP TH; LOOP ON ERROR ADDORESS
NM, 9DISPLAY Loao THE TEST NUMBER INTO THE DISPLAY REGISTER
acRPT $TIMES
-¢E THE ITERATION COUNT
ERR.CY, SERMAX
nnx ERRORS ALLOWED FOR TEST
817, STESTN
:SET TEST NUMBER IN APT MRIL BOX

.BYTE
BYTE

NO--GO TO THE NEXT TEST

PC LODPRM

3498

001413
013700
042700

TEST?

817, 38STSTNM

MOV
MOV
MOV
MOVB
MOV
THIS

;D0 THIS

; YES--BRANCH

001110
162316
001204
001115
00122%

016666

SEGC 0097

648

016720
001102
001570
0014944
000017

3503

18.

J8BITS+c1782> ,TSTNMS

BNE

012737
013777
013737
113737
012737

016654
016656
O0lebbke

TRACK

NOP
BIT

016610
016616
Q01624
016632
01664C

3500
3501
3502

PAGE

EEEBRRRRERREBRERERRRERRREREEERERERERERRREFRRERERRRERRR
AR REES

$e117.

3492
3493
3494
3495
3:39

3499

(08:04

REWRITTEN AND TRACK 2 THROUGH TRACK 18 1S WRITE CHECKED.
THIS PROCEDURE IS CONTINUED UP THROUGH REWRITING TRACK 17

3485
3486

348°

TEST
17

#SCTRWC, asornope+4TWORD COUNT

ns?ncx SP

LORD THE STACK POINTER

saurren anquoPelaaurrsn ADDRESS
SLPERR

nsfn

sSETUP THE ERROR LOOP ADDRESS

LORD THE STACK POINTER

uuPCKDaaDTnoPB+é: COMMAND=WRITE CHECK

1€ SE

MC-11-DZRMF

SIRMFB.PLL

3535
3836

B RMO3 RMO2 EXTENDED DRIVE

Q0I1T0e0
017064

21-NOV-T?

14:10

110037
004037

004277
027612

022700

000005

3537 017076
017070 88572007 001000 004274

3638

3539

(017100

354!

Q017106

3540
3842

017104

003365

017110

110037

005000

004277

TEST

T1?

2s:

MARCYL11

MOVB
JSR

RDD
INC
CMP

3%:

3545
3546
3547

Q17124
017126
017130

005301
002411
062737

001000

004274

DEC
BLY
ADD

1715

MOV

SE“S

817138

89877

10737

D17140

001110

3551
3552

O0171Se
017160

012737
004037

00016l
027612

004270

3554

017172

105237

004277

3550 017146 012706 001100

4s:

5%:

3563 Q17164 062737 001006 004274 6%:
3585

(017176

012737

356 017204 0127

3587 ox;axo 01573

017176

001100

001110

017230

003355

362
3ces

0I7240
017242

003323
000004

‘FIRS

Tnncx ADDRESS

FORM

BUFFER ADDRESS

NO--?R

}

Tnnc

oBOF ER, 280TADPB4E: BUFFER ADDRESS
ss
8256. #2. , 980 TADPB+6

MOV
JSR

SWRITE auornopa+é COMMAND=WRITE DATA
RO, 98DRVC
stRRT A DATA TRANSFER

INCB

aoorng
1130

ngz

oucho oornope+é1SR?"“"°Q¥§ ;sgggggg DATH

MOV

ADD

gnpe
S

EXIT17:

BGT

1285 Bi2698 893988 ooooow

:0UT OF rnncxs

MOV

32@8 8*7555 93293; 860865 ooue??
3560

MOV

009151 004270

#S, RO

agSs %2. aaornope+g AYE gponTRACK
E BUFFER
ADDRESS
NUMBER
RO aoornope+11

MOV

PRGE 68

TRQCK ADDRESS
START A
DATA TRANSFER

MOVB

CLR

81000

051776 00427M4

08:04

RO, 38DTADPB+11
RO d8DRVCAL

017114

012737

@22-NOV-77

BGT

3543

3849 Q17116

30(1046)

TRACK ADDRESSING TEST

scops

SLPERR

cs?ncx SP

:SETUP THE ERROR LOOP ADDRESS

:LOAD THE STACK POINTER

8256, #2. aoornopé+s UPDARTE BUFFER ADORESS
ERR

nsf g

novt TO NEXT TRALK

ssrup THE ERROR LOOP ADDRESS

8 THE STACK POINTER

SOBTQS b+11 OUT OF TR cxs
83

Ng;;e§Rg
H o

Nu--BPQNCH

3. RO

BEY oF TRACKS

wRITE

SEQ 0098

108

MD-11-DZRMF-B RMO3.RMQ2 EXTENDED DRIVE TEST
MACY1l 30(1046)
coRMFB.P11
21-NOV-T7T 14:10
#2% DATA TEST »xx

3222

LSBTYTL

3567

;

gggg
357

NB.04

PAGE &9

SEG 0099

#%% DATA TEST ##»

RRREREERBRERRBEEREBEREERARERRRRER AR REREEER L ERERR AR AR LR ERERER LR

irss* 20
. #

22-NOV-77

DRTA TEST

THIS TEST PERFORMS DRTAR STORAGE AND RETRIEVAL ON CYLINDERS

3571

“FC" THROUGH “LCTM BY THE INCREHENT
“1C* USING THE DATA PATTEPNS

3574

NRXTE THEN WRITE cuccx “FS" THRO GH “LS" OF TRQCK “NT"

3ETe
ke

¥
D #

q.
5.

INCREMENT “NTTM BY
*
REPEAT STEPS 1-4 FOR Encn DATA PATTERN

35T
3?7

ggz
¢

3580
3581
3582
3583
3584
358¢
3586

gggé

gggg

3591
3592

SPECIFIED. THE FOLLOWING ssou e OCCURS FOR ERCH CYLINDER
3.

READ_THEN SOF TWARE

s ®

2
i
x

IF A WRITE CHECK ERROR OCCURS THE ERROR IS REPORTED AND
THE TRACK IN ERROR IS REWRITTEN AND CHECKED. THIS CHECK 1S
ACCOMPLISHED BY PERFORMING TWO(2) SUCCESSIVE ERROR FREE
WRITE CHECKS. IF THE CHECK FRILS THE ERROR IS REPORTED AS

I
x
»
ta

REPERT STEPS 1-S FOR “FC"” THROUGH “LCTM ADVANCING BY *"IC"

FRTAL AND NO READ OCCURS.
FS DEFAULTS TO 1 AND LS DEFAULTS 1O O
PAT DEFAULTS TO 177777 (ALL POSSIBLE PATTERNS)
THE

POSSIBLE

PAT

#0000

ememeecs

[

133333

166566
133333
166556
133333
166666

3599

166685

3630
360!
3e02
3603
3604
3608

Iz
¥
i #
%
X
i

;l'

3&8‘

3289

mememme

3ell
3ele

P
¥

3614

L #

3613

000000
177777
177777
177777
000000

021042
031463
042104
052525
063146

000777

177000

177777

104210

177400

000000

oo—oo-

052525

007417

026455

052525
125252
125252
125252
052525

007417
170360
170360
170360
007417

026455
151322
151322
151322
0264SS

0S25eS

007417

026455

073567

052525

007417

026455

125252

170360

151322

177777

000000

151322
026455
151322
026455
151322
026455

PAT

1777?77

000020

177757

133333

000200

165668
132333
166EE5

PAT

170360
007417
170360
007417
170360
007417

16655656

P #
i
it

socoo=

82
062525
125252
0682525
125252
052525

1858655
172666

3ele
313
3e2C

PAT

114631
125252
135673
146314
156735
167356

177775
177773

133333
165665

e-coes

177777
000000
177777
000000
177777
000000

000002
000004

‘e
i

000000
010421

PRT

176000
174000
170000
160000
140000
100000

133333
166566

3t1€
3E16

ss-eces

177770
177760
177740
177700
177600

Ssssses

166555

PAT

(000007
000017
000037
000077
000177

000NOC

sosses

133333

co-mes

so-ccea

3€17

PAT

000000

001777
003777
007777
Q17777
037777
077777

PAT

177774

ARE:

177776

133333
166655
133333
166656
133333
166666

000003

000377

133333

PAT

cccococes

133333

2610

ecccce

000001

s ¥
S w
Iz
Da
(¥

s %

PAT

PATTERNS

1656555

3593
3594
359¢
359¢
3597

3598

COHPRRE “FS* THROUGH “LS” OF TRACK “NT*

000001

000010

000040
000100
000400
001000
002000

177?76

177767

177737
177677

177S?7

177377
1767?7?°
(76777

177777

soos=se

137777
157777

O0&5667
153333

173727

153333

077727

155885

167777

165555
1726bb

1655688

172666
15868585
172666

esssos

172666

125252

175777
176777

1727377

177877
177677
177737

170360

Sosoe—

1777?27
177777

000000
(000000

177777

00000C

000000

066667

177777

066667

183333
O0bbbbkr
183333

Sossos

153333

066667
153333

151322

177777

000000

177777
177777

000000
(000000

1777?77
177777
17777

00000C
000000

17?77?7

000000
000002

MD-11-CZRMF-B

CoRMFB.F11

RMG3 RMO2 sxvemoso DRIVE

21-NOV-o7

I4-10

3621
3622
3623
3624
gggg

3629

017244

3631

017246

3630

3632

3633

3634
3635
3636

MRCY1l

30(1046)

i #
i *
e
‘x
s a

133333
165565
133333
166655
133333

004000
010000
020000
040000
100000

T20

k' ¥h

3628

TEST

017244

000240

017254

001002

033737

001506

017256

000137

020044

017270

0DO4737

026632

017262

DRTA TEST

(22222

+&720:

012737

00002C

001316
(01102

NOP

173777
167777
1S7777
137777
077777

08:04

155555
172666
158566
172666
165555

T 2 IEX2 SRR

BITS+<20%2-40>, TSTNMS+2

IMP

TsT21

MOV
JSR

PAGE

177757
177767
177773
1777275
177776

SEG 0100

066667
153333
066667
153333
066667

S22

BI7T
8NE
64%:

JO8

22-NOV-77

177777
177777
177777
177777
177777

S2ZS2 SR

000000
000000
000000
000000
000000
Y 2

DO THIS TEST *

YES- -BRANCH

NO--GO TO THE NEXT TEST

820, 98STSTNM

ser UP TEST NUMBER AND
:CLEAR THE ERROR FLAG (SERFLG)
:LOAD THE PARMETERS FOR THE TEST

LODPRN

3637 017274 012737 017512 CO1110
017310
017316
017324

0137?77

001102

ortsrao 98SLPERR’ ;SETUP u;LOOP ON ERROR RDORESS

3639
3640
3§3é

017302

MOV

001570
0014944
000020

00!204
00iliS
001224

MOV
MOVB
MOV

acnpr $TIMES
R.CY,SERMAX
cao"STESTN

3644

3643

017332

032777

010000

161600

A17

IS A MACRO TO

BEQ

208

3647

017346

042700

BIC

0177000 RO

3638

3645

017340

013737
113737
012737

001413

3646 017342 013700 001102
3648

017352

104401

3649 017356 010046
3650

365]

017360

104403

3653
3654
3685
3656
3657

017363
017364
017370

096
104401

3652

017362

161632

MOV

THIS

MOV

177000

001215

TYPE

MOV

TYPOS

002

.BYTE

001215

20%:

gggg
3660

017370

017376
017900
017402
017406
017412

3667

017414

gg;g

017422

3671
3672
2673

374
3E7S
3€7E

#SWie, aSWR

STSTNM. RO
§CRLF

ho -(SP)
2

O
.SCRLF

:(ORAD THE

TEST NUMBER INTO THE DISPLAY REGISTER

csr THE ITERRTION COUNT
:MAX ERRORS ALLOWED FOR TEST
1.SET TEST NUMBER IN APT MAIL BOX

TYPE OUT THE

TEST BEING EXECUTED

,c ECK ron SWITCH 12 SET
CIF

SWi2

IS SET

HEN DON'T TYPE TEST NUMBER

ELSE 1vp£ THE NUMBER

:MASK'OUT THE HIGH ORDER BYTE

: SAVE RO FOR TYPEOUT

,.TEST UMBER

GO TYPE-'OCTQL

:2TYPE 2 DIGIT(S)

ASCII

: ' SUPPRESS LERDING ZEROS

:SET UP THE TRACK WORD COUNT FOR DATA TRANFER

3661
3662
3663
3664
gggg
3668

‘BYTE
TYPE

STETNM. ADISPLAY

012737

00S000
005004
013701
163701
002004
063701

017420

005201

017424
017430
017432

062704
00301
002374

017439
01743
C17440

017370

001106

MOV

001610
001606
001712

DOSHO4
01040S
005700

000400

18:

sSETUP THE LOOP ADORESS

RO
RY
LS, RI
S8FS RY
1

ADD

PRMLMT+22.Rl

coM

,Sc1

$256. ,RY
RI
18

; WORDS/SECTOR
LS - FS SECTORS MINUS ONE
INCR WORD COUNT IF NO SELTURS STILL

INC

005100

#.,SLPADR

CLR
CLR
MOV
SUB
BGE

ADD
DEC
BGE

NEG
MOV
TST

RY
RY,RS
RO

:CLEAR SWITCH
'FORM WORD COUNT IN R4
:LOAD LAST SECTOR
:COMPRRE WITH FIRST SECTOR
:SKIP NEXT IF FS ¢ OR
= LS
:ADD MAXIMUM SECTOR ADDRESS

‘NAKF_THE DIFFERENCE POSITIVE
SWITCH FOR FS >

"FORM NEGATIVE WORD COUN
:COPY NORMAL WORD COUNT znro SMALL WC
‘FS > LS SWITCH SET?

MD-11-DZRMF-B RHOB/RHOE
EXTESDED DRIVE

CZRMFB.P11

21-NOv-77

TEgg

MACY11l 30(1046)
DATAR TEST

%&Z?

017442

001412

BEQ

3679
3680
3681
3682
3683
3684
3685
3686
3687
3688
3689
3690
3691
3692
3633
3694

Dl7444
017446
017452
017456
017462
017464
017466

00S00S
013701
163701
062705
00S30l
002374
00S40S

CLR

SuB

J8FS,R]

DEC
BGE
NEG

Ri
2s
RS

3695
3696
3697
36398
3693
3700
3701
3702

3703
3704
3705
3706
3707
3708
3709
g;i?
3712
3713
3714
371S
3716
3717
3718
3719
3720
3721
3722
3723
3724
3725
3726
3727
3728
3729
3730
3731

3732

MOV

28:

ADD

KO8

22-N0v-77
;NO,

08:04

PAGE 71

SEG 0101

SKIP NEXT

;FORM WORD COUNT FOR FS

iMAX_SECTOR RDDRESS
;SUBTRACT THE FIRST SECTOR
:WORDS/SECTUR
iNO SECTORS MINUS ONE
PINCR. WORD COUNT IF NO. SECTORS STILL +
:FORM NEGATIVE WORD COUNT FOR THIS CASE

PRMLMT+22,R1

sess ,RS

sSET UP FOR DRTR TRANSFERS AND PATTERN VRARIATIONS
01?470
017475
017504
01?51e
Q17516
017522
017526

113737
012737
012737
012706
005037
013701
000407

017530
017532
017536
017540
017544

005720
022700
003004
004037
000536

004276
004274
001332

38:

ngge

TEST20:

MOV
MOV
CLR
MOV

B8R
198:

1S7

CMP

a%FS, 98DTADPB+10

(RO)+

816.#2.,R0

BGTY

extT20

JSR

; SECTOR

sBUFFER, 98DTADPB+&
TM ; DRTA BUFFER
#EXI1T720. 38BYPRSS
#STACK, 5P
LOQD THE STACK POINTER
ISWCEFLG
:CLEAR THE WRITE CHECK ERROR FLAG
98FC,RI
;PICKUP FIRST CYLINDER
2s
iSKIP PATTERN SET-UP FIRST TIME THRU

RO, asINCCYL

:MOVE TO NEXT DATAR PRTTERN

:0UT OF PRTTERNS?
*NO, STAY ON THIS CYLINDER UNTIL DONE
:MOVE TO NEXT CYLINDER
:0UT OF CYLINDERS

;D0 NEXT CYLINDER
017546
017550
017556
017560
017564
017570

005000
036037
001764
013702
010137
110237

017574
017600
017602
017606
017610

Q20127
001003
020227
001515

001466

017610
017614
017620
017622
017626
017630
017634
017640
017642
017646
017650
017654

010437
023701
003005
022702
003002
0105837
017703
005103
032703
001436
004737
032777

oo4272
001574

017662
017664
017e72

001012
012737
0l270e

001506

CLR
BIT
BEQ

00lele

001600
004300
004277

4$:

FIfiSGO BQSK AND GET ONE THART WAS

MOVB

R2. 98DTADPB+11

;LORD THE CYLINDER
{LORD THE TRACK

CMP

R1,

#822.

BEQ
MOV

000004
004272
161300

cs:

000030

017664
001100

MOV

CMP

108:

032602
000020

MOV

BNE

000004

16125¢
ootlio

;START WITH PATTERN O
; THIS PATTERN SELECTED?

RO
BITS(RO), asPAT
s

Rl, abornopa+xa
10$

extveo
R4, 38DTADPB+4

CMP
8GT
CMP
8GT
MOV

LC.RI
Ss
#4,R2
oS
RS, 38D TADPB+4

COM
BIT
BEQ
JSR

R3
osuoqzsuoa R3
73
PC, 9#SETBUF

BNE
MOV

MOV

BIT

MOV

JSWR,R3

$SU04, ISWR
$LPERR

cs?QCK SP

;CHECK FOR LRST DISK CYLINDER

ISKIP LAST TRQCK CHECK IF NOT
iLAST DISK_TRACK
iDON’T TEST LAST TRRCK AS IT HRS BRD
;BLOCK INFORMATION STORED ON IT
:LOAD THE WORD COUNT

LRST oxsx CYLINDER TO TEST *

sr DISK TRRCK TO0 TEST ?
NO
SKIP TRACK CHECK

SKIP NEXT
:SHORT WORD COUNT
:INHIBIT WRITE AND
SWRITE CHECK?
; YES--BRANCH

:MOVE DATAR PRTTERN INTO THE BUFFER
INHIBIT WRITE?
DO NEXT PORTION OF

TESTING

ETGP THE ERROR LOOP RDDRESS

LORD THE STRCk POINTER

MD-11- DZ?Tr-B RMO3/RMO2 EXTENDED DRIVE
21-NOvV-77 14:10
CIRMFB.P
3733
3734

017676

3737
3738
3739
3740

017704
017710
Qi7716
Q17720

32~36

3741

3742
3743
3744
3745
3796
3747
3748
3743
3750
3751
3752
3753
3754
3755

3756
3767
758
3759
3760

012737

000161

TEST
T20

nncvxx 30(1046)
DATA TEST

MOV

004270

LO8

22-NOV-77

SWRITE,38DTADPB+2

08:04

PARGE

;COMMAND=WRITE DATA

:D0 A DATA TRANSFER

017726

017732
017790
Q17744
017750
017782
017760
017762
017770
017772
020000
020004
020012
016

020026
020032
020036
020040
020042

004037
032777
001012
012737

012706

012737
004037
005737
001404
032777
001424
032777
0010
012737
012706
012737
004037
032777
001

004737
0Q4037
000634
000653
000004

0ezele
000010

161222

004270

000001

161160

000004

161150

017772
001100
000002

JSR

g§g
MOV

001110

017720
001100
000151
ge7ele
001414

032672
032022

MOV

7S:

RO, 38DRVCAL

csaoa JSWR
SLPERR

os?n*

:START A DATA TRANSFER

$ggxaér
unxrs CHECK?

‘SETUP THE ERROR LOOP ADDRESS

:[0RD THE STACK POINTER

MOV
JSR
75T

SWRCKD DOOTADPB+é connnno-unxre CHECK DATA
RO, d8DRVCA
,sf R DATA TRANSFER
oacerLc
;unxre CHECK ERROR FLARG SET?

Séé

ssuoo,asun

: NO--BRANCH

001110

BIT
BNE
MOV

#SW02, 3SR
qs
$LPERR

:INHIBIT READ DATA AND SOF TWARE COMPARE"
! YES--BRANCH
:SETUP THE ERROR LOOP ADDRESS

004270

MOV

SREAD, 38D TROPB+2’: COMMAND=RERD

161114

BIT
BNE

8%:

BEQ

MOV

JSR

9s:

JSR
gs

EXIT20:

SCOPE

nsfncx SP

RO, 380RVCAL
#SN01, aSKR
9§

PC, 38DATCMP

RO, 98 INCTRK
18’

P%RFgRHgeno AFTER FATAL "“WCE"?

:LORD THE STACK POINTER

srnnrA DATA TRRNSFER
:COMPRARE THE DRTA
uo--sannc
YES--DO IT

novs TO NEXT TRACK
our OF TRACKS GO TO NEXT PATTERN
LOOP

SCOPE LOOP

SEG 010¢

MO8

"8 "é
RHF B RMO3 nnog EX
T oso DRIVE TEST
MACY1l 30(1046)
21-NOV-7%
Iy
s¥% EXERCISE TEST s#s
g;gé

.SBTTL

3763

3322

STARTING AT “FC” AND coch SEQUENTIALLY TO "LC” THE DISK

PACK

33‘-}8

FOR

;

3774

3775

020044

3732

(020046

3791

000240

020054

1002

)

4)
5)
6)

?7)

e
S

9)
10)

t&ra1:

NOP

001510

001316

020056
(020062

000137
012737

020702
000021

001102

797

737

858338

3799
3800
3801

020102
020110
020116

013777
013737
113737

001102
001570
001944

161032
001204
001115

oeoise

032377

010000

161000

H10 Bs3izE

47805%¢

MOV

3812

104403

TYPOS

3794
3795
3796

NERRTE n Rnno

64S:

ENERQ
RRT

TOR _ADDRESS

JMP
MOV

S T?ESN AT ? DDORESS

u "RANDOM SECTOR RDDRESS

HE o xcxnnL RANDOH PACK DAT
DO
érs K OF THE onrn WRITTEN

cenannt

A NEW nnuoon SECTOR ADDRESS

Esg T?E sscrga AT
G
RA
.

THE

IN 2

RDDRESS

DO R SOF TWARE CHECK OF THE DATAR READ
DO
R WRITE CHECK OF THE DARTR WRITTEN

0 0336236 0

8337 7

3793

1000.

§§ sic
nr THE ADDRESS
B TF TuRe CHECK OF THE DATA READ IN 4 AGAINST

c J It

020044

DEFRULTS TO

e
x
¥
o

3790

THE TEST THEN PERFORMS THE FOLLOWING SEQUENCE "R” TIMES

“R*

tx
TM

3786
g;gg

SECTOR.

GS 5

378]
3782
37 q
78S

THAT

THE FIRST TWO WORDS

WILL BE THE BRSE OF THE RANDOM GENERATOR

‘r
I~

3783

IS WRITTEN WITH
A RANDOM PATTERN.

OF ERCH sscro

3776
3777

g;ze
3780

SEG 0103

RANDOM RDDRESS AND RANDOM PATTERN TEST

3721

PRGE 73

REERRAEREERERRRR
RN AR RN RN E RN EE RN AR R RARRERR RS SRR R

767

3768

08:04

#x% EXERCISE TEST ns#

iTEST 21

3766

22-NOV-77

IN 8
IN 2

9696 3 3 00 6 3 30 3 96 0 3 3 3% 96 3% 3¢ 0% 3k 3 3 3 b 3 3 3 3 3 3 3 3 3 3% 3 % 3% % % %% X %K%

BITS+<21%2-40),Tsrnns+ERgo THIS TEST
s

Tste
.21, aosrsrnn

o—-co TO THE NEXT TEST
{SET UP TESY NUHBERND
c

AR THE

001110

MOV

Pg ggopan

3885 020124 012737 300021 O00Cle24

MOV
MOV
MOVB

MOV

$TSTNM DISPLRY Long
T NUMBER INTO THE DISPLAY REGISTER
JsRPT, $TIMES
HE &TE nrxon COUNT
ERR.CY, SERMAX
nnx ERRORS ALLOWED FOR TESTY

821, srtsrn

798

3804

3305

74 812? 4

ge
8581%2 8?5768 001102
3808 02014 03538? 65;292
020160

38i§
858
25
3815
020164
3816

020170

104401

DOl21S

THIS

g
!

5
?525
. Y¥E

20%:

TYPE

THE P

gng (S;RFL?

JSR

WTEETS] SWSLPERR' ;5 TUP

1:SET TEST NUMBER IN ARPT MRIL BOX

IS A MACRO TO TYPE QUT THE TEST BEING EXECUTED

#SW12, aSUR

i?grnn
RO
'133890 RO

AS, -(sp,

S,SCRLF

EST

ON ERROR ADDRESS

IF SWi2

pec 0ronsuxrgN'TaTygE TEST NUMBER

éLSE
fvpeTHE
"MASK' OUT THE HIGH ORDER BYTE

,,; ROFOR TYPEOUT
i

-;Ubln ascll

::sugsnésg Lé£6§NG ZEROS

IS SET

MD-11-DZRMF -B RH03/RH9§ EXTENDED ORIVE TEST
CZRMFB.P11
3817

21-NOV-77

I4:10

3818

020170

012737

020170

3820
3821

020204
0e02le

812737
012737

176543
1234

3819

3822
3823
3824
3825
3826
3827
3828

3829
3830

020176

020220
020226
020242
02
020256
02

020ce4

020270

012737

013737
013737
012737
012737
032737

025630
025632

MOV
MOV

8176543,
8123456

004300
004272
004274
004270
001300

QCl2737

020270

004276

020276

3833

020302

004037

027612

(20312

122737

000005

004277

005237
023737

004300
001574

004300

012737
012737
012737

177400
020360
020360

004272
001106
001110

3834

3835

3836

3837
3838

3833
3841

3842
3843
3844

gg:g
3847

3848
3849
3850
3851
38

020302

020306
020320

020322
020326

020334

020336
(020344
020352

020360
020364

105237

003370

002353

001100

001110

3831

3832

012706

001572
001432
051776
000161
100000

004277

012706

001100

004037

03346M4

004276
004300
000161
051776
004274

001420
001422
004270

3863
3854
3855

013737
013737
012737
0l1e7D0l
010137

020426

012737

020426

3859

(020444

004037

033464

3866
gggg

020506
020510

100402
004037

033232

3856
gggg
3860
3861
3862
3863
3864
3865
3869

3870
3871
3€72

G2
020440
020450
020456
020464
020472
(020476
020502
020514

020522
020530
020536

004037

012706
004037
012737
012737
012737
012706
004037
005737
013737

013737
012737
012737

000171
052776
020464
001100
0276i12
001446
001420

001422
000iS1
051776

PAGE 74

s%pnon

sEXIT21, 38BYPAS

SEG 0104

:SETUP THE LOOP ADDRESS

QESHINUM
oakonun

; PRINE THE RANDOM NUMBER GENERATOR

98FC, 9s0TADPB+12 ;CYLINDER
TRCKWC, 38DTADPB+4 ' ; WORD COUNT FOR 32,30 SECTORS (FULL TRACK)
#BUFFER, 98DTROPB+6’ ;: BUFFER RDDRESS
SWRITE, 980TADPB+2 : LOMMMAND
8SW1S, 8C.SWR
;WRITE THE oésx PACK BEFORE TESTING?

BNE
JSR

38
RO ?UFILRRN

:NO--BEGIN TESTING
*FILL DRTA BUFFER WITH RANDOM DATA

MOV

:SETUP THE ERROR L~ 7P ADDRESS

CLR

380TADPB+10
SLPERR

:SECTOR AND TRACK

MOV

#StACK, SP

JSR

RO, 3¥DRVCAL

:START A DATA TRANSFER

CMPB

85, 8DTADPB+11

. TIME FOR NEXT CYLINDER

INCB

330TADPB+] |

8GT

BGE

INC
cMP

3$:

08:04

RANDOM PATTERN TEST

MOV
MOV
MOV

TEST21: MOV
JSR

:LORD THE STACK PO

TER

:NEXT TRACK

'NO~--DO NEXT TRACK ON THIS CYL.

J8DTADPB+12
: INCR CYLINDER RDDRESS
98L.C,380TAOPB+12" ; OUT OF CYLINDERS?

:NO--CONTINUE SEQUENTIAL RANDOM WRITE

$SCTRWC, 38DTADPB+4
#TEST21
. J¥SLPADR
87EST21 J8SLPERR

;WORD COUNT

#STARCK, 5P

:SET STRCK POINTER

RO, 38RANADR

. GENERARTE A RANDOM RDDRESS

RO, I8RANPAT

'GENERATE RANDOM 256 WORD PATTERN
:AND PUT INTO THE WRITE BUFFER
:SETUP THE ERROR LOOP ADDRESS

MOV
MOV
MOV
MOV
MOV

298DTADPB+10, 3#SVADR :SAVE THE TRACK/SECTOR
J8DTROPB+12 985S /ADR+2 ; SAVE Tng CYL INDER
SWRITE, 98DTADPB+2 ; COMMAND=WRITE DATA
8BUFFER, R1
"WRITE BUFFER RDDRESS FOR "RANPAT"
R1,a80TADPB+6
:INTO THE DATR PARAMETER BLOCK

001110

MOV

004270
004274
001110

MOV
MOV
MOV
MOV
JSR
I57

$READ, I8DTROPB+2’ : COMMAND=REARD DATA
8BUFFER+512. ,380TADPB+6 ; READ BUFFER ADDRESS
. SLPERR
:SETUP THE ERROR LOOP RDDRESS
#StRCK SP
:LORD THE STACK POINTER
RO, 98DRVCAL
‘START A DATA TRANSFER
BRSFLG
'IF BAD SECTOR ENCOUNTERED,SKIP NEXT CALL

MOV

J8SVADR, 28DTADPB+10

033430

0011060
027612

MOV
MOV
MOV
MOV
817

2s:

020370
020376
Q204
020412
020416
020422

MOV

18:

2-NOV-77

RANDOM ADDRESS AND
MOV

001332

033210

MACY!11l 30(éoqs>

001106

020700

001027
004037

005037

T21

NO8

JSR

#SYACK SP
RO, 9#DRV. QL

'LORD THE STACKk POINTER
:START A DATA TRANSFER

JSR

RJ, 38RANADS

; GENERARTE A NEW RANDOM ADDRESS

L +6
RO, 8RANCK

'DON'T COMPARE DATA
:SOF TWARE CHECK THE DATA

BMI
TSR
004276

004300
004270
004274

SLPERR

MOV
JSR

MOV
MOV
MoV

;GET ADDRESS OF WHERE THE LAST

J8SVADRY2, 98DTADPB+12 ;WRITE WAS PERFORMED
$IRCKC, anOTADPB+2 ; COMMAND=WRITE CHECK DATA
#BUFFER, 3#DTROPB+6 ;DATA BUFFER ADDRESS FOR HRARDWARE

()

-.1-CZRMF -B RMO3 nnogsv*snoeo ORIVE
RMFB FLli
21-NOV-77
: 10

3873

3ETMY

387S

ggosww

ggzg

220562

012737

0552 86~g

gggg 020556

037

3880
858293 8
S 37
3881
812737
K

3e82

709

rssv

nn;xoo

001110

MOV

ISR

RO, aoohvcaL

03349?

00427

ggs

't 7ao

0276le

MOV

%75 004274
901110

MOV

MCV

020626

004037

033232

38R

020632

013737

001420

004276

3891
2

020654
20662

012737
012737

051776
020662

004279
001110

3894
gggg

(020674
020700

004037
000004

027612

020640

013737

0Cl422

004300

JSR
EXIT21: SCOPE

R‘n
surrzn RDDRESS
; 5 P AGDRESS

os?ncx

'§

RO, ISRANCK

Son°¥"
Snpnaa
gata If so
;SOF TWARE CHECK THE DATA

;

raz SYRCK POINTER

S8SVvRDR 2 g

TR BA0 SECTOP2

ACPB+12LQST WRITE

THE

sWRCKD, asd n899+°
: COMMAND=WR] TE CHECK DATA
csfncx SP

:LORC THE STACK POINTER

RO, 98DRVCAL

STRRT A DATA TRANSFER
:LOoP

[ XY 222222222222232222
222X
3322222222222 22222 2222223

irssr 22

3958

3903

3204
390s

L a
'y

0207

3903
3310

C207Ce
020704

3912

020714

020712

000240
033737

0015!2

00i002

020720

012737

000137

021052

020726

004737

026632

3917
3918
3919
3320
3921
3322
3923
3324

02074C
020746
020754
020762
020770
020774
021002
021010

013777
013737
112737
012737
012706
013737
[12737
4037

001102
001576
0O00IM4
020770
001100
001574
00010s
027054

3927
3926

021022
02i03C

013737
112737

001572
00010S

000022

001316

001102

3916 020732 012737 020776 001110

(021014

RMO3 RCCESS TIME RDJUSTMENT TEST

THIS TEST PERFORM

opsnnron T0 ROJUS

se KS ssruc r chxnoens 0 ®

ACCES

136 TO ALLOW THE

ME ON nu RMO3 USING THE

DOU.
THE PROGRAM STQLLS nppaoxznqrva SECONDS BE TWEEN SEEKS
60 THAT THE ACCESS TIME INCICATORS ON THE DOU MAY BE OBSERVED.

BB ERRRRERBERREEERRPRREERL
IR AP R RN R RN R ERR LSRR RN SRR ERER RN REES S

t&v122.

3913
3914
33915

332

n?$§+212 PgOST

A 33“ RANDOM ADDRESS

##% RMO3 ACCESS TIME ADJUSTMENT TEST sx#

338?

3911

csnsnar

naurFek a.ornope«s onrn BUFFER RODRESS
SLPERR
SetUP THE ERROR LOOP QODR‘SS

MOV

3908

srant DATA TRANSFER

MOV
MOV

3833 020670 012706 ©001i00

3907

RROR LOOP RDDRESS

J8SVRDR, 38DTROPB+i0 czr DISK RNDRESS OF

MOV

3899

THE

rne STRCK POINTER

MOV

.SBTTL

csfncx

S°s°'°‘”““
+6

3890 020646 012737 000151 00470

gggg

SLPERR

125

BM1
SSR

gggg

SES ClCE

:CHECK OF THME DATA

OSYTM

300
30 00e73r DG14ue
388S 858253 1004
3669

BOS

MACcY]l 30} g Nsa
-NOV-77
Q?‘ 4
PRGE 7S
RANDOM RDD ES
RANDOM PRTTERN TEST

004037

3926 021020 001440

160174
001204
0OO111S
N01:06

004220
004210

030606

64S:

NOP
BIT

;DO THIS TEST

648

; YES--BRANCH

MOV

822, 38STSTNM

1SET UP TEST NUMBER ANU
:CLERR THE ERROR FLRG (seanc)
:LOAD THE PARMET ns FOR THE TEST

IMP

JSR

MOV

MOV
MOV
MOVB
MOV
TEST22: MOV
MOV
MOVB
JSR
JSR

004220
0042:i0

axrs+<aa-a 40>, TSTNMS+2

8NE

. WORD

MUY
MOVB

$EOP

or£§TPe a-sLPean

STETNH ADISPLAY
JsRPT, $TIMES
nxoo '
SERMAX
0T$5Té2 SLPADR
#STRCK, 5P
LC,DPB A+12
8SEEK anope A+2
no a.c
ALL.A
LL

STA

:NO--GO TO THE END or

SETUP H; %

YE PROGRAM

ON ERROR RDORESS

:(ORD THE TEST NUMBER INTO THE DISPLAY REGISTER
¢£r THE ITERRTION COUNT
: MAX ERRORS ALLOWED FOR TEST
;SETUP THE LOOP ADDRESS
:SETUP THE STACK POINTER
'ENDING CYLINDER
:SEEK=COMMAND
co EXECUTE THE COMMAND
STALL

nooness OF STALL VALUE

FC cpe R+12
'STARTING CYLINDER
#SEEK, 98DPB. A+2 ' SEEK=COMMAND

MD-11-DZRMF-B RMO3 RMO2 EXTENDED DRIVE TEST

CZRMNFB.PLI
3929

930

1035

21-NOV-7?7 1N4:10
004037

4037

440

Te2

027054

RMO3
JSR

(£30606

3335

gggg
3938

ACCESS

TIME

coS
Ss- v-?77 98-94 !fi!k 76
ADJUSTMENT

RO, a8CALL.R

JSR

00M

3833
393N

nacvxé Sgtgow?)
.ugne

Rg STALL
ACL3

SCOP

.SBTTL

END OF PRSS ROUTINE

Y Y Y Y

XY eI

‘ETth

:LOOP

IRz

ixNCREHENY THE PASS NUMBER (SPRSS)

394}
gg:g

:#IF THERES ngn
GO 10 I
:#1F THER ISN JUMP TO RESTART

3944

3945

3946
3947
3948

:#INDICAT

021052

021082

021056

021100

104401

000410

3949

(021100

00s737

001312

3951

021106

104401

021114

3950
3982
3953

021104
021112

3955

Q21126

3968
3959
3960
3961
3362

02113S
021136
021142

3955
3356
3957

021126
021132
021134

021170

001434
000%0S
013746
104403
0ge

000
104401
000412

3963
3964

021170
851174

013746
68448§

3367

021206

005037

3965
3966

1176
021202

3323 oaigxs

50
005037

SEOP:

021060

..6558:
L4s:

bes:

021144
..£98:
tas:

001112

001112
001102

18:

001204

gg;é

85{225

000019

SEOPCT:

3974
3375
397%

021
021236
021240

6010
021226
104401

SENDCT:

3979

p2l2eM

3381
2982

021270
021274

3973 oalggg §239§7

3980

3983
39e4

021244

02i2eMd

(C2lé7e
021300

00040?
104401

O01370C
00140S
00000C
004710

021246

..6E8:
g4s:

021314

000042

658

;3 TYPE ASCIZ STRING

64§
GET OVER THE ASCIZ
<CR><LF><LF»>
/END OF PASS,

TST

J8DRVSEL

&£7$

13 ;

MOV
TYPOS
.BYTE

d#CHKDRY, - (SP)

.ASCIZ

BYTE
TYPE
BR
_ASCIZ
MOV
TYPOC

ON DRIVE~

: ANY gnzves SELECTED”

‘NO--BR

2. TYPE RSCIZ STRING

P1GET OVER THE RSCIZ
,,snvs I8CHKDRY FOR TYPEOUT
,;co YPE--OCTRL ASCII
E
T(S)

suppn sS Lsnoxnc ZEROS
693
,,rvps RSCIZ STRING
£8s
ET OVER THE ASCIZ
.
ERRORS DETECHED=/
SERTTL, -(SP)

.,snve aosEnTTL FOR TYPEOUT
: gg —-o;rak RASCII(ALL DIGITS)

CLR
CLR

SSERTTL
$TSTNM

'2ERO ERROR TOTAL
.,ZERO THE TEST NUMBER

é?g
DEC

2988800
$PRSS
ugcw

"635RE"55I05HE
gggs SBRSES
i1Lo0P

<SC)§,a<ch¢

EERESTORE COUNTER

65$

..TYPE RSCIZ STRING

SENULL

TYPE NULL CHARACTER

CLR

73; ?86888 Doleze

3970 85125% 33%337

3977
3978

TYPE

BR
RSCIZ

TYPE

001334

ENO-0OF - PR GRAM nrv; 8. PASSES THRU THE PROGRAM

8ER
..678:

$S OF STALL VALUE

222X Y22 Y222 Y222

3939

3940

SEG 0106

;GO EXECUTE THE COMMAND

; 88

ExiT22:

YES

STIMES

QE?RD

g'oncn

.WORD
SEOPCT
TYPE

MOV

B8R
.RSCIZ
TYPE

ITERATIONS

t4s
GET OVER THE RSCIZ
<CR><LE>/END OF }EST/

$GETH2: MOV
BEG

J842 . RO
$DOAEN

$ENDHD:

PC, (RO

RESET
JSR

:ZERO THE NUMBER OF

*.GET MONITOR ARDORESS
::BRANCH IF NO MONITOR
i :CLEAR THE WORLD
220 70 MONITUR

MD-11-DZRMF-B RMO3 RMO2 EXTENDED DRIVE

CZRMFB.PLI

21-NOV-77

3985
3986
3987

021302
021304
021306

000240
000240
000240

2989
3990
399

021310
Q21312
02134

000137
006234
3"
N

988

399¢

021310

B2L3ec

[4:10

TEST

000

30(1046)

END OF PRSS ROUTINE

$DOAGN:

37T

MACY1l

SRTNAD:
SENULL:

NOP
NOP
NOP
ImP
.WORD
.BYTE
.EVEN

DOS

22-NOV-77

08:04

PRGE 77

; : SAVE ROOM
::FOR
:1ACTIL
2(PC)+
RESTART
~-I.-1,0

+ ; RETURN
; sNULL CHARRCTER STRING

SEG 0107

MD-11-D-RMF-B RMO3/RMO2 EXTENDED DRIVE TEST

CZRMFB. P11

21-NOV-77 [4:10

3993

.SBTTL

112737

4OC1
4002

021334
021336

000403
112737

4004
4005

021344
021346

010046
010146

021354
021386

001450
122737

4006

4007
4008
4009
4010
4C1]l
40l2

4013

4014

021326
021344

021350
021364
021366
021374
021376

021402

021410

112737

105737

001031
132737
001425
017600

4018

021424

001376

4021
4022

4023
4024

402
4026
4027

021426
021432

021434
021440

021446
021450

021456
Ocl464
021470

105720

163700
006200

062766
013746
004737

021526

062766

000000

105737

001241

000004

001220

000002
177776
022422

000004

021EE3
C21Ses

000
0

auls)

#1,$FFLG

::
7O REPORT FATAL ERROR

S$ATYY:

BR
MOVB

satyc
81,S$FFLG

::TO ONLY REPORT FATAL ERROR

MOV
MOV

RO, - (SP)
R1.-(SP)

::PUSH RO ON STACK
:'PUSH RI ON STACK

BEQ
CMPB

c$
SAPTENV, SENV

: IF NOT:
BR
: 'OPERATING UNDER APT?

SATYC:

18:

000004

3%:

4§
cg.

10%:

001220

000002

021564

MOVB

11%:

001222

D00054

8l SMFLG

SMFLG

: 'SHOULD TYPE R MESSAGE”

3s
: IF NOT:
BR
8APTSPOOL
, SENVM : ; SHOULD SPOOL MESSAGES?
3s
1 1F NOT:
BR
J4(SP),RO
: GET MESSAGE ADDR.

TST

SMSGTYPE

::SEE IF'DONE W/ LAST XMISSION®

(RO +

P FIND END OF MESSAGE

SUB
ASR

$MSGAD, RO
RO

::SUB START OF MESSAGE
: GET MESSAGE LNGTH IN WORDS

B8R

RDD
MOV
JSR

82, 54(SP)
172776, -(SP)
PC,STYPE

1578

SFFLG

MOV

J4(SP),SFARTAL

ADD

BNE
MOV

TSTB

BNE

MOV

LWORD

BEQ
TST
BEQ
T€T
BNE

RDD

INC

82, 4(SP)

18
RO, SMSGAD
2s

RO, SMSGLGT
84 SMSGTYPE

J41SP)

129
SENV
12$
SMSGTYPE
118

82, 9(SP)

D11F NOT:
WAIT
:1PUT ADDR IN MAILBOX

SIPUT LENGTH IN MAILBOX
PTELL APT TO TRKE MSG.

: :PUT MSG ADDR IN JSR L INKAGE

. . BUMP RETURN ADDRESS
: :PUSH 1772776 ON STACK
' 'CALL TYPE MACRO

: :SHOULD REPORT FATAL ERROR”

: IF NOT:
BR
: 'RUNNING UNDER APT?
(UIF
NOT:
BR
P FINISHED LAST MESSAGE?
2 IF NOT:
WAIT

;:GET ERROR &

.. BUMP RETURN ADDR.

:;TELL APt 7O TAKE ERROR

SLFLG
SMFLG
(SPi+,R1
(5P)+.R0
PC

:'CLERR LOG FLAG
: CLEAR MESSAGE FLAG
1:POP STACK INTO Rl
1 POP STACK INTO RO
: 'RETURN

O
G

:1LOG FLAG
:iFATAL FLRG

SFFLG

$MFLG:

.BYTE

.BYE
.BYTE

: -BUMP RETURN RDOR.

SMEGTYPE

CLRB

CLRB
CLRB
MOV
MOV
RTS

12%:

§LFLG:
§FFLG:

::T0 TYPE A MESSAGE

BNE
BITH
BEQ
MOV

MOV
MOV

001240

021563
021562

105037
105037
012601
012600
000207

105037

MOve

SATY3:

2s:

021564

001220

021644
021850
0215684
021556
021560

Y2123 222z222222222122:32222222X2X2X22222XXX1T22XXTXXXXXXZ2X2X2XRXTXYS

001234

005237

404C
404l
4O4e
4043
4044

021562

000100

000004

021534

“04e
4047

001240

017637

4038

021540

000001

021474

4037

4045

SEG 0108

#x% SYSMAC SUBROUTINES ~#%

TSTB

000004

001416
005737
001413
005737
00137S

4039

PAGE 78

$ATYI:

021562

0I7637

000413

021502
021504
021510
021512
021516

021520

021564

001220

4031
4032
4033
4034
4035

4036

021562

001236
000004

021474
021476

021476

021564

010037
012737

4028
4029

4030

000001

001234

00S737

001375
010037

4019
4020

000001

000002

021414
021416

021422

000001

062766

4G1S
4016

4017

08:04

: *CLEAR FATAL FLAG

: 'MESSG. FLAG

N 4

Q21320

4003

22-NOv-77

.SBTTL APT COMMUNICATIONS ROUTINE

3999

4000

MACY1l 30(1046

END OF PASS ROUTINE

3332

3397
3998

EOQS

FOS

MD- 11—D¢RHF-B RMO3-RMO2 EXTENDED DRIVE TEST
MACY1]l 30(1046)
22-NOVv-77
CZRMFB.P
21-NOvV-?7 14:1!
RPT COMMUNICRTIONS ROUTINE
4049
4050
40S1
405
:823

006200
000001
000100
0000<0

08:04

PRGE 79

APTSIZE=200
APTENV=001
APTSPOOL =100
APTCSUP=040
.SBTTL
ERROR HANDLER ROUTINE

405S

REBRARRRFERRRRER
RN RERBER R RERRRERERRRRRRRERRRA RS RN RN ARRRSS

405k
40587

iTHIS ROUTINE HIL# INCREMENT THE ERROR FLARG AND THE ERROR COUNT,
iSQVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL

4058
4058
4060

GQND GO TO TYPERR ON ERROR
iTHE SWITCH OPTIONS
OVIDED BY THIS ROUTINE RRE:
,*Sle:
HALT ON ERROR

40€E2

; #SW10=1

4061

; #SW13=1

4063
4064
:822

021566

40E9
4070
4071
4072

021570
021576
021600
021604

40?3

40749
407S

4076

021566

021606

OG2i&ld
021622

021626

104407

Q32777
001411
005737
001406

013737

SERROR

000400

001502

D13737
105237

001504
001103

00177S

021630
021636

0137?77
032777

001102
002000

4080

021l646

104401

001210

4081

021644

021652

001402

00s237

1587342

DO1310

4077
4078

4079

INHIBIT ERROR TYPEOUTS

; #SW09=1
; #CALL
X
ERROR

4067

Y068

0011S0

001152

79:

,,DISPLRY TEST NUMBER AND ERROR FLAG
,.BELL ON ERROR?

BEQ

TYPE

122737
001007

000001

001242

4093

021734

004737

021336

O0011!4

021740

4082

021726

113737

4034
409S
4096

021740
02174)
021742

000
000
000777

4098
4099

(021750
021752

4101

02174

021786

100002
000000
104407

021764

001402

4097

4100

4102

103
410+

(021744

021766
021?72

005777

20s:

2es:

187170

032777

001000

01371e
008737

001110
0OCle0e

2%:

€714

3§:

4s:

;NQO
- SKIP

: :SKIP TYPEQUTS
;G0 TO USER ERROR

CMPB
BNE

SAPTENY, SENV
=3 3

,,RUNNING IN RPT MODE
+NO,SKIP APT ERROR REPORT

JSR

PC,SQT?H

,,REPORT FRTAL ERROR TO APT

.BYTE
.BYTE

8]
0
229%

TYPE

I57

(SP)

SERRPC
PC

SLRLF

SITEMB,21S

JSWR

BPL
HARLT

817

#BIT09, dSUR

CKSUR

BEG

MOV
TST

$LPERR, (SP)
$ESCHPE

ZERC

.,RING BELL

208
PC, TYPERR

MOvVB
21s:

BNE
JSR

BIT

021716
021716
021724

; s SKIP TYPEQUTY IF
SET

157234

4089
4090
4091

FLRG

8BIT13, JSWR

020000

001218

THE

QSERRPC SITEMB

032777
104401

LET

MOVB

021676

021712

;OON’T

$ERTTL

4085

4088

$BELL

YES--SETUP STATUS

INC

001116

022034

IN SOFT-SWR

S$TSTNM, DISPLRY
lBITlO JSUR

dsLPS, d8u8TPS

BEQ

MOV
SuUB

001004
004737

TEST FOR CHANGE

RNO BUFFER REG. S FOR LINE PRINTER
,.SET THE ERROR
F

001116
000002

021704
021706

ITEM MNUMBER

J8LPB 288 TPB
SERFL¢

011637
162737

117737 16722¢ 001l

; s ERROR=EMT AND N=ERROR

MOV
INCB

021656
02162

4084 021670

SEND ERROR MESSAGE TO TTYy?
YES-—BR
IS THERE fl LINE PRINTER AVAILABLE~
NO--BR
ANCH

MOV
BIT

13:

LOOP ON ERROR

#SW0B, dSHR
ré 3
QOLPTRVL
7S

MOV

157304
1S7274

001112

CKSWR

BELL ON ERRO

BIT
BEQ
TST
BEQ

4082
40P3
4086
4087

SEG 0109

; s COUNT THE NUMBER OF ERRORS

; ;sGET

RDDRESS OF ERROR

INSTRUCTION

;;STRIP AND SAVE THE ERROR ITEM CODE
ROUTINE

::SEY ITEM NUMBER RS ERROR NUMBER

; ;RPT

ERROR LOOP

; sHALT ON ERROR

::SKIP IF CONTINUE
;s HALT ON ERROR!
;s TEST FOR CHANGE IN

,.LOOP ON ERROR
;BR

SOFT-SWR

SWITCH SET?

,,FUDGE RETURN FOR LOOPING
:;CHECK FOR AN ESCRAPE RDDRESS

GOS

MD-11-DZRMF-B RMO3 RMO2 EXTENDED DRIVE TEST
MACY1l 30(1046)
C2RMFB.PII
21-NOV-77 IM4:10
ERROR HANDLER ROUTINE
4105

021776

001402

013716

001206

4108
4109
4110

022004
022012
022014

2737
001001
000000

021300

000042

4liz

022016

013737

001476

001150

:iig

022032

000002

:igg

4111

4113

855888

022016
022024

012737

001500

6$:

001182

22-NOV-77

08:04

SEG 0110

BEQ

: :BR

CMP
BNE
HALT

#SENDRD, 342
63

::ACT-11 AUTO-RCCEPT?
: 'BRANCH IF NO
; s YES

MOV

J8TPS, J8STPS

:SET STATUS AND BUFFER REG.'S

MOV

SESCAPE, (SP)

MOV

J8TPB. 38

RTI

TPB

_IF

PRGE 80

NONE

: :FUDGE RETURN ADDRESS FOR ESCAPE

JFOR

TTY

:RETURN FROM ERROR CALL

4116

HIN REFREFESRABEEREREREREERRREEREERERRRRRRRRERRREESREERRRERREEEEREE

4118

:THIS ROUTINE USES

4120
wicl

:TABLE” (SERRTB),
AND REPORTS tHE APPROPIATE INFORMATION
:CONCERNING THE ERROR.

:isg

RE TURN

JSR

PC, 38 TYPERR

TYPERR:

MOVB

JuSTSTNM, duSTMPC

suB
MOV

#4,RO
RO, WSREGO

4117

48TTL

4119

‘WHICH ERROR

422
4123

: CALL
:

4126

022034

4128
4129

022044
022050

4127

022042

113737

001102

162700
010037

00000H
001162

010337

001170

010537

001174

104412

4130
4131

022054
022060

4132

022070

010437

4135
4136

022100
022104

113700
01000}

4132

4134

4137

022064

022074

022106

010137
010237

JudITEMB, RO
RGO, R1

DEC

000240

022134
022136

001447
104401

001215

4147
4l48
4i49

4150
4161

4162
4163
4164
416

4i6e

41€7
4lEg

41E3
4160

022142
022144
(022146

022152
022154
(022160
Q022162
(022168
022170
022172

022176
(22204

022204

104401
000000
162701

100440
013701

10301
006301
(2702
0uJs003
104401

000402
012827

004410
022144

000041

2%:

0043Se

022200

..6C§:

0Qezeee

Lig:
3%:

:SAVE THE TEST NUMBER

:8AVE RO - RS

:FORM TEST PC
i
:COPY RO-RS IN SREGO-SREGS

RS’ Q#SREGS

:PICKUP ERROR ITEM NUMBER
"AND COPY IT INTO Rl
:FORM

INDEX FOR ERROR TRBLE

RO
RO
RO

ADD

#ITEM41-SERRTB,
RO ; YES--FORM OFFSET

BEQ
TYPE

4
,SCRLF

'BRANCH IF
:“CARRIAGE

TYPE
.WORD
SuB

O
s41.Rl

;"EM” POINTER GOES HERE
:SPECIAL ERROR ITEM NUMBER?

ROD
MOV

BMI
MOV
ASLB
ASL
MOV
CLR
TYPE

001340

TO DETERMINE

FROM THE “ERROR

ASLB
RSLB
RSLB

BCC

18:

(SITEMB)

IT THEN OBTRINS,

SSREG3

MOVB
MOV

MOV

106300
106300
106300

062700
012037

R3.

001114

062700

4i48
4146

MOV

R1. J%SREG]
R2, 98SREG2

RY, JESREGH

022120
022124
022130

“ITEM CONTROL BYTETM

MOV

4142
4143
4144

SAVREG

MOV
MOV

00S300

103002

THE

1S TO BE REPORTED,

001172

022110
(022112
022114
022116

001176

001164
001166

4138
4139
4140
414]

TYPERR - TYPE ERROR ROUTINE

.15

8$ERRTB, RO
(RO)+,28

: FORM RDDRESS
:GET ERROR MESSAGE (EM) POINTER

377

THERE ISN'T ONE
RETURN - LINE FEED

XT3

658

: NO-~BRANCH
:GET STATUS/ERROR INDICATOR
:STRIP "DONETM BIT (BIT07)
:STRIP “ERROR” BIT (BIT1S)
15T ADDRESS ON STATUS MESSRGE_POINTERS
:CARRIAGE RETURN-LINE FEED SWITCH
1 TYPE ASCIZ STRING

.R21+,5%

:MESSAGE

.ASCIZ

7%
J8SVSTAT ,R1

ERROR

R
Rl

_
8STATBL ,RE
R3

::GET OVER THE ARSCIZ
PCINTER

MD-11-DZRMF-B RMO3 -RMO2 EXTENDED DRIVE
CZRMFB.PLL
21l -NOv-"7 14:10
41kl

0eeel10

oigs

001215

4.
cs:

TYPE
TYPED

fs?
W

it
4

+ SCRLF

MSG. SP

327;

peaes2

b6$
7Y/

0e2270

0c1e1s

e Pt et
s bt

175
RS
SCRLF

e bt e b 4
e
e bt Pa pa
Bt Bm

4290

013146
10440S
00s303
001403

12%:

13%:
O46 141

14%:
0clelc
Q4elyd]
022376
4 £ XL
nonrg

“ele

oolels
SLIBLD

THIS MESSAGE?

gs--$v°2A “CR" & “LF">

: g'BRQ

;"SE§Q?S POLNTER GOES HERE
; NO--BRANCH

YES--SPRCES
LOOP

BRQNCH IF NOT FINISHED

;s TYPE ASCIZ STRING
; ;GET OVER THE ASCIZ

:”DH” POINTER _GOES HERE
;PICKUP
DATR
TRBLE (DT) POINTER

(RO)+,R2

118:

SEG 3111

(20)4 RO
10%:

TYPE

PRGE 81

;P1CK UP DARTA HEADER

20$

001215

08:04

(RO)+,
8%
9s
.SCRLF
(RO)+,R1

e B

e Bt

e e pe Bt e

s P

I NI
3\.04)\00
[s e RN Toal
T, ] fwm~o.nm-agm.cwm-o.nm
J O DD DD 0 @mM@MEOMED
N LW

012037
001404
104401
104401

MACYl! 30(1046)
@e2-NOV-77
TYPE ERROR ROUTINE

O4B1i4l

0oQ401

ASL

006301

104401
104401

frfrEL L L4 Lt
r48rsk

TEST
TYPERR

{RQ)+,R3
(R )+ RH

5(31)4,-(5P)
13%
dIR1+,-1SP)

1:sc SP
11§ ’

208
SCRLF

159

MSG.SP

15%:

{RO+, 168

16$:

Dschr
RS
108

,MSG.SP

(DH)}

iBRANCH IF NONE
: CARRIAGE RETURN-LINE FEED

POINTER

:BRANCH IF NON

BEY INBS SW
TR _FORMAT

(

POINTER

iNUMBER OF DH'S TO TYPE
: BRANCH IF DH NUMBER IS O

:NO_INDENT
: CARRIAGE RETURN-L INE FEEC

NUHBER OF DRTQ
H?RES TO TVPE

; AND HOW TO
T
;OCTAL OR DECIHQL7
DECIMA

b(R1)+OR TYPEOUT
..58
;GO TYPE"OCTQL ASCII(ALL CIGITS.
; ;SAVE 3(R1)+ FOR TYPEOUT
:GO TYPE--DECIMAL ARSCII WITH SIGN

hons NUHBERS T0 TYPE"
: NO--BRAN

; SS;'TYPE
He

sspsnnrons

HORE DH*°S?

NO--BRANCH

YES--STRRT A NEW LINE

; INDENTY

; NO--BRANCH
:YES--TYPE SPACES
iGET NEXT DH
{AND TYPE IT

:DH POINTER GOES
HERE

%QSEIQGE RETURN-LINE FEED
:NO--BRANCH
: YES--TYPE SPACES

109

MD-11-DCRMF-B RMO3 RMOZ2 EXTENDED DRIVE TEST
MRCY11l 30(1046)
@2e-Nov-77
CoRMFB.PIL1
21-NOV-T7 14:10
TYPERR - TYPE ERROR ROUTINE
4217
4218
:S’%

.SBTTL

TYPE ROUTINE

4223

HF Y YYYYYTETYZ ISR 2222222222222
L2222 222 L2

4225
4226

:#THE ROUTINE
: #®NOTE L :

ILL INSERT A NUMBER OF NULL CHARARCTERS AFTER A LINE FEED.
SNULL CONTARINS THE CHRRRCTER TQ BE USED AS THE FILLER CHARACTER.

355%

; #NOTE3:

SFILLC CONTAINS THE CHARACTER TO FILL RFTER.

00020

4224

RYS

; #NOTE2:
; #CALL:

:ggg

;’OR

4221

;%#1)

USING A

TYPE

TRAP

HE]

4E3S

MESADR

STYPE:

71S7B
BPL
HALT

4234

4236

4a4e

4243
4244

4245

4e4e

Ye4?7

T %

022422
022426
022430
022432
022434

022436
Q22442
(022450

(Qee4Se

022460

10873
100002
000000

000002
000001

001240

132737

000100

00124l

022472

001011

00140S

010037

4es0

022472

000000

4251
4252

42563

4254

022474
022502

(022504
02

4255

022510

4257

022514

4259

022522

4256
4258
4260

02251¢e

D0O4737

021326

132737
001003

000040

112046

005726

012600

062716

00000z

122716

00001l

122716

000200

000002
001430

4e2be

022534

001006

4265
4266
Y4267
4268

(022842
022544
0c2550
022552

001215
105037
000755
004737

4263
4264

4§§9
4270
4271
“c72

022530

0225
022540

022SSe
02256
022SE8

0OCl241

62%:

60%:

38:

H4$:

12372¢

0013<0
01374

RO, -(SP)

BNE

629

;sNO,GO CHECK FOR RPT CONSOLE

MoV
CMPB

022634

00115¢
QO 1CH4

cs:

63:

2tsPy, RO
IRPTENO,SENV

;;GET ADDRESS OF RSCIZ STRING
s sRUNNING IN APT MODE

SAPTSPOOL , SENVM ;;SPOOL MESSAGE TO APT

628

;3 NO, GO CHECK FOR CONSOLE

MOV

RO,618

;;SETUP MESSAGE ADDRESS FOR APT

. WORD

s s MESSAGE RDDRESS

(RO)+,-(SP)

;;PUSQ CHARACTER TO BE TYPED ONTO STACK

(SP)+

;3
IF TERMINATOR POP IT OFF THE STACK

JSR

PC,3ATY3

; ; SPOOL MESSAGE 70 RPT

BITB
BNE

SAPTCSUP, SENVM ; ; RPT CONSOLE SUPPRESSED
60%
;; YES,SKIP TYPE OUT

BNE

MOvB
TST

MOV

RDC

RT]

cMPB

(SP)+ RO

lE.(S@)

;;BR IF

ISN'T THE

TERMINATOR

; ;RESTORE RO

; ; ADJUST RETURN PC

; ;RETURN

#HT, (SP)

; BRANCH IF <HT»

8CRLF, (SP)

; s BRANCH IF NOT <CRLF>

(SP,+

SCRLF
CLRB
BR
JSR

;;POP_
«(CR><«LF> EQUIV
::TYPE A CR AND LF

SCHARCNT
4 3
PC,STYPEC

: ; CLEAR CHARACTER COUNT
;:GET NEXT CHARACTER
; ;G0 TYPE THIS CHARRACTER

BNE
MOV

28
$NULL, -(SP)

::IF NO GO GET NEXT CHRR.
;:GET 8 OF FILLER CHARS. NEEDECD
:;AND THE NULL CHRR.

BEG

BNE

TS7
TYPE

022700

STPFLG
18 .

MOV

CHMPB

00572E
10440)

; ;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

;: 1S THERE A TERMINAL?
::BR IF YES
;sHALT HERE IF NO TERMINAL
; s LEAVE
;s SAVE RO

BEQ
blg:

INSTRUCTION

, MESADR

TYPE

BIlT8B

cs:

00100S

022

4261

18:

017600
122737

022462
022466

001157

000430

010046

4248

4249

;RETURN

SFILLS CONTRINS THE NUMBER OF FILLER CHRARACTERS REQUIRED.

4230

4241

; LOOP
;RESTORE RO - RS

;iROUTXNE TO TYPE RSCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE.

4227

4237
4238
4239
N240

10%

SEG 2112

BR
RESREG

0ee4el

000737
104413

PRGE 82

208 :

:Ség

QJcedld
0co4le

(08:04

CMPB

sFilLC, (SPi+

;: IS IT TIME FOR FILLER CHARS.®

427S
4e7b
N7
¥e?s
4279
4280
4281
4282
4283
4294
4285
4286
4287
4288

022570
022574
022576
022602
022606

105366
022770
GO473?7
105337
000770

30(1048)

4 ¥

DECB

1(SP)

022634
022700

112716
00N73?
132737

000040
022634
0oooo?

022700

8%:
9s:

STYPEC:

156310
156302
000002

022700
0o0012

022702

000207

000002

19%:

PAGE 83

..OOES A NULL NEED TC BE TYPED”
R IF NO--GO POP THE NULL OFF OF STRCK

,,GO TYPE A N

,.DgogOT COUNT RS A COUNT

TRB PROCESSOR

Move
JSR
BITB
BNE

(SP)

8PL
MOVEB
CMPB
BNE
CLRB
BR

CMPB

,,REPLRCE TAB _WITH SPACE

pc,$T1YPEC
37" §CHARCNT

,,BRQNCH IF NOT AT

(SP)+

;i POP SPACE OFF STACK

2(SP)

TYPE
R SPACE

; TRB STOP

; ;GET _NEXT CHRRACTER
; sWAIT UNTIL PRINTER

7578

BEQ
INCB
$CHARCNT:
. WORD
$TYPEX: RTS
.SBTTL

08:04

SEG 0113

schaRCNT

TST

000002
00001S

JOS

22-NOv-77

PC, STYPEC

; HORIZONTAL

4289

4290
4291
4292
4293
4294
4295
4296
4297
4298
4299

000001

TYPE

MACY11
ROUTINE

§CHARCNT
STYPEX

: 115 CHARACTER A LINE FEED?

SLF,2(SP)

STYPEX

; ;BRANCH_IF YES
*COUNT THE CHARACTER

(PC)+

: : CHRRRCTER COUNT STORAGE

BINRRY TO OCTAL

IS RERDY

; ;LOAD CHAR_ TG BE TYPED INTO DATA REG.
*11S CHARACTER A CARRIAGE RETURN?
::BRANCH IF NO
,.EE%;-CLERR CHARACTER COUNT

d$TPB

-ga,atsp)

4e°3
4274

TEST

o
w

MD-11- DZRMF-B RMO3-RMO2 EXTENDED DRIVE
CZRMFB. Pll
21-NJVv-77 14:10

(RSCII)

AND TYPE

!lilllIli*fill!lill’illllllii*llllilllllllill!ll!llliiiii!iif!i!

LTHIS ROUTINE IS USED TO CHANGE
R 16-BIT BINARRY NUMBER TO A 6-DIGIT
;#0CTAL

(RSCIT)

NUMBER_AND

TYPE

IT.

MOV
TYPOS
.BYTE
.BYTE

NUM, -(SP)

,,NUMBER

N
M

PiN=1 50 8 FOR NUMBER OF DIGITS TO TYPE

:#$TYPOS--~ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
.

:#CALL:

432l

=
*

X
1R]

#CALL:

s #®
X

OR STYPOC

MOV

TYPON

XEEIEOC-—-ENTER

STYPOS:

TYPED

=TYPE

THE

SAME

LERDING ZEROS

0 SUPPRESS LERDING ZEROS

; ¥STYPON----ENTER
i $TYPOS

TO_BE

;CALL _FOR TYPEOUT

[STS{Treteraretase

8JNDVUNHIQMUw

LLELLELELELEL
L
[NINININININININININ]

MOV
TYPOC

HERE

(SP)
NU-M,

TYPE

OUT

WITH

: sNUMBER

TYPED

:;CALL FOR TYPEOUT

HERE FOR TYPEOUT OF R
NUM, -(SP)

TO BE

PARARMETERS

1b BIT NUMBER

s sNUMBER TO BE TYPED
$ICALL FOR TYPEOUT

; sPICKUP THE MODE

;:LORD ZERQ FILL SWITCH
: ;NUMBER OF

DIGITS

TYPE

THE

LAST

CZR MFB.P11
4329
4330
4331

RMO3-/RMO2 EXTENDED DRIVE
21-Nov-77 14:10

TEST

BINARY

000001
000006
00000S

4332

4333
4334
4335

$TYPOC:

$TYPON:

MOVB

MOVE
MOV

ocooole
18:
2s:

023130
177770

4§:

000060
000040
023124
23124
Ge31eb

5%:

BNFRENSHoRZRE

e ot Pt pn P
s
et Dt ot

WM
MM MY = —

[ e Bt P

oO
nN
WWwWWWwWwwwww

023076

XY
000004
8s:
0
000000

MOVB
MOVB
MOVB
MOV

NEG
RDD
MOVE

000006

000002

82,

MOV
MOV

023131

$OCNT:
SOFILL:
§OMODE:

.SBTTL

22-NOv-77
AND TYPE

MACY11

ADD

231 27
231 31
231 =

K09

30(1046 )
TO OCTAL (RSC:I )

000002

0eerzee

000

MO-11- DZRMF-B

CLR
ROL
BR
ROL
ROL
ROL
ROL
DECB
BPL
BIC
BNE

8], SOFILL
86, SOMODE+
1
85, SOCNT
R3.-(SP)
R4, -(SP)
RS’ -(SP)

$OMODE+!
, RY

RY
RY
86,
RY . SOMODE

$OFILL,RY

12(SP) RS

3
$OMODE
7s
$177?770,R3
4§

INC

BEQ

5§

BIS
8IS

MOVB
TYPE
DECB

BGT
BLT
INC
BR

MOV

MOV
MOV
MOV
MOV
RTI
BYTE
BYTE

.BYTE
.BYTE
.WORD

SEG Oliw

;;SET THE ZERO FILL SWITCH
;sSET FOR SIX{(&) DIGITS
;;SET THE ITERATION COUNT
; ;SAVE R3
; s SAVE R
; ; SAVE RS
;;GET THE NUMBER OF DIGITS 10 TYPE
;s SUBTRACT IT FOR MAX. ALLOWED
;:SAVE IT FOR USE
;;GET THE ZERO FILL SWITCH
+;PICKUP THE INPUT NUMBER
;;CLEAR _THE OUTPUT WORD

; ROTATE MSB INTO "C*
; ;GO DO MSB
; ;FORM THIS DIGIT

RS,R3

TST

PAGE

; ADJUST RETURN RADDRESS

(SP)

$TYPON

R3
RS
33
RS
RS
€

MOV

08:04

#'0,R3
#’
_R3

R3, 8%
8¢
$0CNT

2$
68

RY
2%
(SP)+,RS
(SP)+,RY
(SP)+,R3
2(SP)
. 4(SP)
(SP)+. (SP)
O
O
O

;i GET LSB OF THIS DIGIT
;:BR IF NO
; ;GET _RID OF JUNK

;3 TEST FOR O

; s SUPPRESS THIS 07
;sBR IF YES
; sDON’T SUPPRESS ANYMORE 0°S
; ;MAKE THIS DIGIT ASCII
;:MRKE ASCII IF NOT ALRERDY
; ;SAVE FOR TYPING
;;G0 TYPE THIS DIGIY
; ;COUNT BY |
;:BR IF MORE TO DO
; sBR _IF DONE
;3 INSURE LAST DBIGIT ISN'T A BLANK
DO THE LRST DIGIT
i
; ;RESTORE RS
; ;RESTORE R4
; tRESTORE R3

;;SET THE STACK FOR RETURNING
; s RETURN
; ;STORARGE FOR ASC1I DIGIT
:; TERMINATOR FOR TYPE ROUTINE

;3 OCTAL DIGIT COUNTER
;s ZERO FILL SWITCH

O
O

; ;NUMBER OF DIGITS

TO TYPE

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

S RESREEEERRRRRRERERE
R R RERRERRND R BB R RN AR RN B R R RRE AR R R SRR AE RS

;4THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A S-DIGIT
:#SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER “HE
; *NUMBER

POSITIVE

NEGATIVE

SPACE

MINUS

SIGN

WILL

TvPEC

LOS

MD-11-DZRMF-B RMO3 RMO2 EXTENDED DRIVE TEST
MACY1!l 30(1046)
22-NOV-7?
08:04
PARGE 85
CZRMFB.P11
21-NOV-77 14:10
CONVERT BINARRY TO DECIMAL AND TYPE ROUTINE
4385
4386

: #BEFORE THE FIRST DIGIT
: #REPLACED WITH SPARCES.

4388

4387

: %CALL:

3333

‘e

4391
4392

Q23132
023132

010046

4394

023136

010246

4396

023142

4393

4395

4397

023134

010146

023140

010346

023144

012746

010546

4398

023150

016605

4400

023156

00S40S

Y402

023166

005000

023174

112723

4399
4401

4403

4404

(023154

023160

023170

100004

0000SS

012703

023346

023200

005002

Y407

023206

160105

4410
4411

023214
023216

4408
4409

4412
4413

023202

023210
023212

016001

005702
001002

023232

103003

023242

062702

4421
4422

023252
023254

116223
005720

4424
4425
4426

(23262
023264
023266

002746
003002
010502

Y414
4415
4416

023224
(023226
023230

4418

023234

4417

4419

4420

4423

4427
Y428
4429
4430
4431

4432

4433
4434

4435

4436

4437
4438
4433
4440

023246

023256

023270
023272
023279
023276
023304

116663

000001

052702

000040

020027

1000063
116663
105013

023314

012601

023320
023324
(023332

023334

3s:

177777

;;PUSH RO ON STACK

MOV

R2.-(SP)

1PUSH

MOV

RS’

CLR

MOVB

s’

R1,RS

c§:

TSTB
BMI
ASLB

00000z

INPUT

NUMBER

IS POS.

: 'MAKE THE BINARY NUMBER POS.
THE

ASCII

NUMBER

NEG.

112ERO THE CONSTANTS INDEX

:'SET THE FIRST CHARARCTER TC A BLANK
THE

:'GET THE CONSTANT

::FORM THIS BCD DIGIT
::BR IF DONE
! INCRERSE THE

BCD DIGIT

: ;ADD BACK

CONSTANT

THE

BCC

BIS

#'0,Re

MOVB
TST

R2. IR3)+
(RO, +

:PUT THIS CHARARCTER IN THE OUTPUT BUFFER
11JUST INCREMENTING

BLT
BGT
MOV

os
8s
RS, R2

1160 DO THE NEXT
:1GO TO EXIY
:1GET THE LSD

MOVB
8IS

BR
TSTB

BPL
MOVE
CLRB

MOV

1 :CHECK IF BCD DIGIT=0
:FALL THROUGH IF O

R2
cs

MOV

000004

STACK

75T
BNE

012600

0126l€E

STACK

BCD NUMBER

SuB

MOV
MOV

02334e
000002

:CLERR

$O0T2L (RO),RI

4s:

: PUSH RS

OUTPUT POINTER

3s
R!,RS

8s:

STACK

:'SETUP THE

THE

::PUSH R3 ON STACK

#SDBLK,R3

BR
ADD

6S:

:MAKE

,(RY)+

ALWAYS

ON STACK

8'-,1(SP)

CLR

MOV

:BR

MOV

::PUSH R1

ROUTINE

NEG

MOVB

BINARY NUMBER

THE

(iSET gLnnx SWITCH AND SIGN

20(SP) .RS

012603
012602

104401
O0lee6E

-(5P)

WILL

s20200, - (SP)

MOV

CMP

177776

R3.-(5P)

4§
R2

000010

177777

Rl,-(5P)

BLT
INC

73:

000764
105726

012605

023316

000060

18$:
2s:

023336

105716
100407
106316

0233

023310
023312

000040

000774
06010S

023220
023222

RO, -(SP)

::GO

THE

ZEROS

MOV

BPL

000001

LERDING

::PUT

MOV

000020

NUMBER.

NUM, - (SP)

TYPDS

MOV

020200

THE

MOV

112766

4405

4406

$TYPDS:

SEG C11S

(SP)

. STILL
“IBR IF
1 i1MSD

1(SP),-1(R3)

i YES--SET

RO, 810

X
(SP)+

93
-1(SP),-2(R3)
(R3)

(S5P)+,RS

(5P)+ ' R3
(5P)+.R2

MOV

(S5P)+.R1

TYPE
MOV

$0BLK
d(SP7,u(sP)

MOy
RTI

(§P)+

(SPi+. (SP)

YIBR

DOING
YES

IF NO

THE

LERDING

0°S”

SIGN

:iMAKE THE BCD DIGIT RSCII
1'MAKE

A SPACE

: CHECK THE TABLE

NOT

ALREADY A DIGIT

INDEX

DIGIT

1160 CHANGE TO RSCIT
:'WAS THE LSD THE FIRST NON-ZERO”

iy
N
::YES--SET THE SIGN FOR
:'SET THE TERMINATOR

::POP STACK INTO RS
:'POP STACK
1iPOP STACK

INTO R3
INTO R2

::pOP STACK

INTO

. :RETURN

USER

: :POP STACK INTO RI

: NOW TYPE THE NUMBER
: 'ADJUST THE STACK
TO

TYPING

MO9

MD-11-DZRMF-8 RMO3 RMO2 EXTENDED DRIVE TEST
MACYL11l 30(1046)
22-NOV-77
08:04
PAGE 86
CORMFB.PILI
21-NOV-77 I4:10
CONVERT BINRRY TO DECIMAL AND TYPE ROUTINE
4441
Y442

Y443
Y444

:::g

023336
0283340
023342
Q23344

023346

023420
001750
00014M
000012

$DTB.:

000004

$DBLK:

:::g

.SBTTL

Y449

4450

oegags

008880

iTK§NT

4484

023364

000002

$TKQSRT:

wq?g 853353 8 000

023366

; #TK

iTH

3:&3

::ga

% ]

3366

033365

005037

015737 33&

23360

::e7
34
013737 3aso 23362
8 B Bierar Boalh BEHRED

;1 TTY

4474

JSR

4478

ALIZE THE TTY KEYBORRD INPUT QUEUE

"oy

asggeaSsz

SERVICE

INTERRUPT

PC.STKINT

STKQIN

; ;CLEAR COUNT OF ITEMS IN QUEUE
,,novs

THE

STARTING ADDRESS

THE

$TKQIN, stkaouT
QUEUE INTO ;:E égsggggoerEQSRPOINTepc.
STV AT
|

MM
H

.?v REQ?ING

P DONEFLQ RARD INTERRUPT

ROOBRR 10YCAELER

’

ROUTINE

“I% nz
ERVICE

e
THE

TTY KEYBORRD

HARACTER FROM THE INPUT

(ulF THE cunnncrsn IS A

::79

KEYBOARD QUEUE

o¥1xosnr

:#THIS ROUTI

::;

ROUT

WILL

MOV

MOV
6

: #TK

4475

:IOUTPUT POINTER

IN QUEUE

INTERRUPT VE n AND TURN ON THE KEYBOARD

$TKINT: CLR

::7
;7;000 o%oioo isssi
55510
Hoh BEER Rl

“CONTROL-CTM

INTERRUPY

BUFFER AND PUTTING

(1C) STKINT IS CALLED AND

:#UPON RETURN EXIT IS MRDE TO THE “CONTROL-C* RESTART ADDRESS (START2)

Y4Bl

023436

giga

B83uds BRiRES

17746

155504

oea::a

042713

65688g

023454

[10M401

024566

oea:;z

80137
oexsaz

004762
000007

i geue

44g] 8535
::gg

023506

4494

023510

4495
448E

.BLKB

RETURN

44
::eq

-'?HSB RP8F *Tsns

OUTINE

;lCRLL:

::as

%SETUP THE

4462

2222222222222

figgg

é”;"“& EE

446 ]

::ag

INPUT ROUTINE

LSB

STKQEND=.

4458

4466

TTY

5u?

Y457

4465

.BLKW

(2222222222222

"iNRBL

::sx

::gg

10000.
1000.
100.
10.

SEG Clle

(02310
023%1e

§TKSRV:

gy cese

001500

000002

JSTKB, - (SP)

o¢g§725(59)

TYPE

fiscanc :

JMP
CMP

srnnva
ésp"'7

88§9g7 000176 001140
022737
001004

MOVB

eéc

023356

18:

;PICKUP THE cunnnctsn

,,srnxp THEON
NK o

::éagl.E a

:TYPE R
A CONTROLRR

(1C)

..CONTROL RESTRRT
: nnfiT
A CONTROL G?

BEG

oguREG,SuR

cMP
BNE

82, STKCNT
33

:: 1S THE QUEUE FULL”
: BRANCH IF NO

,,? SPT sufi SELECTED?
::GO TO SWR CHANGE

MO-11- D¢RHF B RMO3/RMO2 EXTENDED DRIVE TEST

CIRMFB.PLL
4497

4498

023520

21-NOV=-?7 14:10
104401

023524

005726

4500
4501

023530
023534

021627
00102l

4503

023542

005726

4499

4502
4504
4S50S
4506

(023526

023536
(023544

0e35S0
023552

4607
4508
4509

023556
023562
023566

4511
4512

023576
023600

4510
4513
4514

4515

000451

105777

155374

042716
0eeee?
001366

000100

023604

021627

000140

021627

00017S

023ble

002405

023616

003002

042716

000040

4519

023630

005237

023360

4521
YSee

(023642
023644

001003
012737

023620

:gsa

023634

023652

023727

000002

023366

023364

023360

452S

023654
023662

022737
00lleM

4533

02370

100121

4532
4534

4635
4536
:ggg

0236b4

023672

023676
023702
023706

000176

105777

155254

117746

155250

042716
021627
001300

00140

4546
4647

:ggg
465]

482

313
9STKB,

;sWAIT FOR
R
- (SP)

..LOOP NTIL ITS THERE
;GET THE CHRRACTER

STKCNT

RETUR
,,COUNT THIS CHARACTER

BLT

: s BRANCH

YES

BGT

;BRANCH

YES

INC

$TKQIN

BNE
MOV

Ss
BRRNC IF NO
8STKQSRT,STKQIN ,,RESEY THE POINTER

BIC

MOVB

CMP

RTI

2 e 2222 TR

8100, d8TKS
(5P), 8140

(SP),#17S

(SPS»aSTKQIN

REENARBLE TTY KEYBOARD

;:1S

INTERRUPTS

IT UPPER CRSE”

.,IS IT A SPECIRL CHRR”?

HQKE 1T UPPER CRSE

,,RND PUT IT IN QUE JE
,,UPOQTE THE POINTER

STKQIN, 8STKQEND ; ;GO OFF

THE END”?

; s RETURN

2SR

AT AT I AT IS LA TILATZI AL S22 22222222 222222222ty

iSOFTHRRE SWITCH REGISTER CHANGE ROUTINE.
}ROUTINE 1S ENTERED FROM THE TRARP HQNDLER AND WIL
:SERVICE THE TEST FOR CHRNGE IN SOF TWAPT SWITCH REGISTER TRAF
:%CALL WHEN OPERRTING IN TTY INTERRUPT
ODE
QCK:NR CMP
#SWREG, SWR
IS THE SOFT-SWR SELECTED
BNE
15%
,,EXIT IF NOT
1STB

9%87vsS

MOVB

9STKB,

BIC
CMP
BNE

159

;IS R CHQR WRITING?

-(S1)

#¢C177 (5P)
(SP), #?
2s

I NOT,

EXIT

m E IT 7-BIT ASCII
!1S IT A CONTROL-G?
IF
No;t PUT IT IN THE TTY QUEUE

o 3646369636 36 30 08 36 06 36 06 36 3 36 36 36 30 36 36 36 36 36 36 48 36 36 36 36 36 36 36 36 06 36 36 36 3 36 36 36 36 36 36 38 3648 36 36 36 36 3 3 36 36 96 3 3 3 3 4 2 ¥

Q023710

4Ys4yg8

,,CLERN CHRR OFF STACK

9STKS

iCONTROL 1S PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE
!ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL
R RESULT OF A

4544

4E45

(SP)+

RTI
INC

cMP

177600
000007

4541
YS4ye

4543

..éS ITA CONTROL S?
3 RANCH
IF NO

,,HQKE 1T 7-B17T ASCII
+IS IT A CONTROL-Q?
,,BRRNCH IF
NO

BPL

4539
4540

(SP), 823
328

2$C177, (5P)
(SP)+,521
318

MOV

4526
4yge?
4528
4529
4630
4531

; : DISABLE TTY KEYBORRD INTERRUPTS

BIC
CMP
8NE

SS:

TTY BELL

; ;CLEAN CHRRACTER OFF OF STRACK

J48TKS

cMpP

023360

THE

SEQ 0117

CLR

BPL
MOvB

4s:

;s RING

ISPr+

PRGE 87

;s EXIT

1978

328:

SBELL

08:04

3 3

155346

4518 023624 112677 177530
4520

22-NOV-77

CMP
BNE

319:

023356

4S16

4517

39:

177600
000021

012777

023610

155370

023570

000002
005237

TYPE

000023

155402

NOS

30(1046)

TTY INPUT ROUTINE

001210

005077

100375
117746

MACY1l

123727

001134

023720
(023722

00S726
004737

023366

023732

1127?37

000001

104401

024600

(023716

023726

023740

023744

001674

005077
104401

1585212

024605

000001

: ¥CONTROL-G BEING TYPED,

cMPB

BEQ

=3 3

CLR

asfks

ST
JSR

001135

MOvVB

SGTSWR:

$AUTOB, b1

TYPE

AND THE SOF TWARE SWITCH REGISTEh BEING SELECTED.
;sARE WE RUNNING IN AUTO-MODE"?

,,BRQNCH IF YES

(SP)+
PC,STKINT

,,CLERR CONTROL-G OFF
;s FLUSH THE TTY INPUT

81,3INTAG

:;SET

, SCNTLG

SNSNR

STACK
QUEUE

;;DISABLE TTY KEYBOARD INTERRUPTS
; ;ECHC

INTERRUPT MODE
THE

CONTROL-G

INDICATOR
(1G)

;3 TYPE CURRENT CONTENTS

MC-.1-DIRMF-B RMO2 RMO2 EXTENDED ORIVE TEST

CoRMFB Pl

¥y INPUT ROUTINE

21-NOV-77 14:10

: IPROMPT FOR NEW SWR
: 'CLEAR COUNTER
s THE N;H SWR
| CHAR H;R:?
{1 IF NOT TRY AGAIN

155146
:?7600

MOVB
BIC

J$TKB, - (SP)
81Ci77 . (5P)

:;PICK UP CHAR
''MAKE IT 7-BIT ASCII

000003

CHP
BNE

(SP), %3
9%

ADD

b, SP

::15 IT A CONTROL-C?
: 'BRANCH IF NOT
i
P1YES, ECHO CONTROL-C (1)

4555
4S5e
4ES?
4Es8
3523

(023785
023762
(23764
A237eb
023772

10443
882846
46
106777
10037%

Oevele

4SEl
:ggg

023774
024000

11779
042716

4554
4She

4SpE

(024004
02401C
024012

021627
001018
1794G1

024566

9568

024022

123727

GO113€

00000}

4§70
:531

024032
024040

012777
000137

000100
004762

155104

24044

021627

000025

4569

024016
024030

062706
001003

: :SAVE SWREG FOR TYPEOU

, SMNEW
lrep;
-(8P)
I$TKS
78

000176

4567

PAGE 388

TYPE
CLR
CLR
fsTe
BPL

01374
1GYNU2

08:0%

SWREG, - SP.

0237

023789

B10O

22-MOV-77

MOV

4553

4S54

MARCYI] 300.046.,
TYPOC

19%:
~Y:

1685152

000006

TYPE

: :CLEAN UP STACK

CHMPB

3INTAG, 81

MOV
IMF

8100, 3$TKS
sTart2

:ALLOW TTY KEYBOARC INTERRUPTS
: 'CONTROL-C RESTART

(S2) ., 825

;215 IT A CONTROL-U?

BNE

8s:

$CNTLC

1160 TYPE--OCTAL ASCIT ALL DIGITS

! 'REENABLE TTY KEYBOARD INTERRLPTS>

: 'BRANCH IF NO

§4673

4674

uwE?5
4E57&

CME

024056
024062

001005
104401

062706
000737

024573

000006

208%:

ADD
BR

4581

024064

021627

0000iS

108:

cMP

4583

Q24072

005766

000004

(24100
024106

016677
062706

000002
00000S

155032

001135

000001
155010

4577
:gzg

024053
024052

BNE
TYPE

108
SCNTLU

: 'BRANCH IF NOT
'YES, ECHO CONTROL-LJ (tU)

(SP), 815

;318 IT A <CR»*

T
19¢

- IGNORE PREVIOUS INPU~
::LET'S TRY I AGRIN

4580

4582

4584

4585
4586

4597

4588
4569

(02407C

024076

024112

024116
Q24124

0017922

001403

104401

123727

0C. J03

001215

45a0

(24126

012777

000100

4532

(24136

004737

022634

4S9l

4593
4534

4595
4536

024134

(24142
(024146

000002

021627
002420

000060

(024150
(024154

021627
00301

000067

4538

(024ibe

005766

000002

4500

0o4!70

4597

4599

<601
w602
4603

4604

4605
460&

4€C7
=£08

(024156

(024165

024172
024179
024176

024202
024206
024210

Ded2l4

042726

001403

118:

148

168:

0S6ElE
000667
104401

000720

000002

177776

0012:v

MOV
ADD

2(5P), aSWR
%6, SP

: 'SAVE NEW SWR
. 'CLEAR UP STACK

CMPB

$INTASG, 8!

MOV

8100, 98TKS

TYPE

RTI

118

P ECHO (CR> AND <LF>

15%

::BRANCH IF NOT

PC, STYPEC

BLY

18%

CMP

: '2RANCH IF YES

SCRLF

JSR

(SP), 860

'IRE-ENABLE TTY KBD INTERRLPTS”

' 'RE-ENABLE TTY KBD INTERRUPTS
:

RETURN

'ECHO CHAR

:ICHAR <« 07

: 'BRANCH IF YES

(SP), 867
18%

2ICHAR > 77
: 'BRANCH IF YES

75T

2(SP)

::1S THIS THE FIRST CHAR

ASL

(SP)

PINO,

-2(SP), (SP;

:'SET IN NEW CHAR

BIC

BEG

860, (SP)+

178

178:

ASL
ASL
INC

(5F)
(SP)
2(SP)

18%:

BR
TYPE

73
$QUES

.DSRB.

IS IT THE FIRST CHAR”

PIYES,

cHP
8GT

000060

: 'BRANCH IF NG

Y4(5P)

BNE

15%:

16%

TST

8EQ

006316

006316
006316
00S26€

BNE

8IS
BR
LSB

208

: iSTRIP-OFF ASCII

: BRANCH IF YES

SHIFT PRESENT

;1
'CHAR OVER TO MAKE
i1
ROOM FOR NEW ONE.
: 'KEEP COUNT OF CHAR
P 'GET THE NEXT ONE
:TTYPE ?(CR><LF>

: 'SIMULARTE CONTROL-U

Cl0

22-Nov-77

MC-11- DZRHF B RMO3 RM
CoRMFB P
21-NOv-

;

(08:04

PRGE 89

Illil|ll}lll}{llllllll!ll!IlIIllllll!llll!lil!lll!lllllllllliii

iTHIS ROUTINE WILL INPUT
R SINGLE CHARACTER FROM THE TTY

;#CALL:
.l
RDCHR
e

RETURN HERE

SRDCHR:

MOV

000004
000004

000002

De424e

023356
177102
023362
023362
000002

023364

WITH PARITY BIT STR'PPED OFF

~(SP)

,,PUSH DOWN THE PC AND

MOV

4(sPy,2(sP)

CLR
MOV
RTI

-(5P)
8648, - (SP)

LipUY gE
ON STACK
1ipUY
ON
“STACK
1 POP NEW Pc AND PS

18:

$TKCNT

:;WAIT ON A CHARACTER

OSTKQOUT 4(SP)

,,GET ONE CHARACT E

CLR
48:

023356

(SP),

;::GETA CHARACTER FROH THE GQUEUE

..CHQRQCTER IS ON THE STR

000004

BEC
MOv8

023366

CMP

0233ee

MGV

INC

BNE

2s:

RTI

4(5P)

KCN

KQOUT

:THE PS

iGET REROY FORA CHARACTER

: s DECREMENT THE COUNTER
UPDQ E THE POINTER

TKQOUT OSTKQEND :0ID IT GO OFF OF THE END”

SE ;

$STKQSRT,STKQOUT' | .RESET

THE POINTER

Il!lllll!l!il!lflll}iilll!ilfllI!!“ililllillflllllill!lliliil!l*ilii

brgxs ROUTINE WILL INPUT A STRING FROM THE TTY

..INPUT STRING FROM THE TTY
DRESS, OF FIRST CHQRRCTER WILL BE ON THE STRACK
TERMINATOR WILL BE
A BYTE OF ALL 0°S

ROL IN
RETURN HERE

000177

108:

R3,-(SP)

-(5p)

(SP)+,

(R3)

8127, IR

(SP)

0001 34
024540
1777277

024540

6%:

o2us42

D440
Ce4s0e

'c REARD ONE CHARACTER FROM THE TTY

PgET cu CTER

IT A nuaour
,.ég

::ég ¥HISOTH£ FIRST RUBOUT?

6$
$’'\,9%
qg

IITYPE A BACK SLASH

R3
R3, sSTTYIN

,.svn?x Eggrvr

k-1, (sP)

884248

(R3), 93
”3
i

000134

LSP;
7%
g’ ,9%

Ce4E4C

; CLEAR THE RUBOUT KEY

ngg..aaéfirr;g
FULL’

M TTY}N
sTTY

,,Sfl E R3

MoV
CLR
MOV
cMP
BLOS

SRDLIN:

ET THE RUBOUT KEY
ACKUP BY ONE

,,881ypT0 TYPEOUT THE DELETED CHAR.

) REQD ANOTHER CHAR.

,.RUBOUT KEY SET?
IF NO

{ITYPE A BACK SLASH

SEG 0119

MD-11

D2RMF-B RMO3-RMO2 EXTENDED DRIVE

CZ2RMFB.PILI
4665

024414

21-NOV-77 14:10
104401

46bb
46b?
4668
4669

024420
024422
024u
024

005016
122713
0061003
104401

4671

024y

122713

4675

024452

4670

4672
4673
4674

4676

4677

4678

U679

4680

024439

024d42
024444
024446

001011
105013
104401

024456

000717

QOoN46Y4

000712

024472

104401

024460

024466

4681

024476

4683

024504

4682
484

4685

4686

4687

000726

024S02

024510

104401

105063
104401

024536

000002

02454l
Q024542
024566

000
0000RY
041536

024612

036440

4£99
4?00

024blb
024624

4638

3Z8§

001215

024542

024540

012766

136
043536
015

020040
02007%

024630

::1S CHARACTER A “tR"?

..co chxup ANOTHER CHACTER

,,CLERR THE BUFFER AND LOOP

TYPE

MOVB
TYPE

: 'BRANCH IF NO
..CLERR THE CHARACTER
E
8
“LF”

$§TTYIN

TYP

SQUES

THE INPUT STRING

STYPE
R

(R3),98

:ECHO THE CHARACTER

biS, (R3)+

,,cnscx FOR RETURN

1(R3)

. CLERR RETURN (THE 15)

757

1Sp)+

.,CLEAN RUBOUY KEY FROM THE STACK

MOV

(5P,

RTI

LBYTE

BYTE
.BLKB
.RSCIZ

00SOIS
006525
005015
051412

D00
000012
000
0Sl127

SCNTLU:
SCNTLG:
SMSWR:

.ASCIZ
.RSCIZ
.RSCIZ

042516
000

020127

SMNEW:

.ASCIZ

000040

MOV

$TTYIN:
S$CNTLC:

‘BR IF

:TYPE A CONTROL y"
::G0 START OVER

38
(R3)
,SCRLF

MOV

SEG 3120

BNE
CLRB
TYPE

MOV

000

822, (R3)

TYPE

000604

PRGE

cMPB

CLRB

000002

08:04

:CLEAR THE RUBOUT KE'f
,,xs canancrsa CTRL U”

CMPB

00J216

024642

22-NOV-77

{SP)
825, (R3)
es
SCNTLU

BNE

177777

000004

D10

30(1046)

CLR
CMPB
BNE
TYPE

TYPE

012603

4690

(024573
024600
02460S

8%:

00001S

011696

4635
4E9E
4697

000022

22723

016666

4632
4633
4694

024573

3%:

024520

024540

024522

469]

000025

111337

005726

(024530

TYPE

4§:

4688
4689

024540

001214

001305

MACY1]l

TTY INPUT ROUTINE

104401

024514

024516

TEST

:LOOP IF NOT RETURN

SLF

*ITYPE A LINE FEED

(5P)+,R3

: 'RESTORE R3

2(5pP)

; {ADJUST

THE

STACK

AND

PUT

ADDRESS

4isP} . 275P)

,.sronnos FOR ASCII CHAR. TO TYPE

sSTTYIN,
S (SP)

NEW

COF

: RETURN

0
20.
/#C/<1S>¢12

/tU /<15 ¢i2>
/#G/<18>¢12>
<15>¢12>/SWR

FIRST RSCII CHARACTER ON 1T

* TERMINATOR
: 'RESERVE 20. BYTES FOR TTY
: {CONTROL “C*
=

: :CONTROL
: *CONTROL

INPUT

*U*
"G"

.EVEN

4;83

.SBTTL

47038

SCOPE HANDLER ROUTINE

XY T22X22X2222X22222:2222:Xx2%::22X:X2:XX2X22222XXXTXXYXTYYXYZIZETIYYZ
L]

470€

*§THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS.

4708

‘#AND LOAD THE ERROR FLAG (SERFLG)

471l

cSWl]=1

4797
4709
4718

: #SW09=1
‘#CALL

4714

]

4715
4716

024630

4718

024632

4713

4720

INTO DISPLAY¢15:08>

'#THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE RRE:
: #SWIY=]
LOOP ON TEST

4712
4713

4717

IT WILL INCREMENT

:#AND LOARD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0 |

024630
(024680

104407

032777
00I110!

$SCOPE:

0O4000C

184200

1$:

INHIBIT

ITERATIONS

LOOP ON ERROR

SCOPE
CKSWR

BIY

BNE

; :SCOPE=10T7

-91719 JSWR

$OVER

;TEST

FOR CHANGE

IN_SOF T-SWR

,,LOOP ON PRESENT TEST
YES

SW14=]

.su¥u8START OF CODE FOR THE XOR tESTERNNRES

THE

HO 11-DIRMF-B RMO3 RMOQ EXTENDED DRIVE
JRMFB.PLIL
21-NOV-77 14:10
4721

024642

000416

4723

02464

013746

4°2S
4726

024656
024662

47e8

024670

000004
024670
177060
000004

(08:04

PAGE 91

SEG 0121

MOV

J8ERRVEC,

- (SP)

MOV
TST

858, 98ERAVEL
81?7060

sSviLAd

SSV

(§P)+ IRERRVEC

(SP)+ J8ERRVEC

(SP)+, (SP)+

PITHIS

INSTRUCTION TO & “NOPTM

(NOP=240,

;1 3AVE_THE CONTENTS OF 1 4€ ERROR VECTOR
,.SET FOR 7IMEQUT
QUT_ON XOR?
i TIME
; {RESTORE THE ERROR VECTOR
1160 TO THE NEXT TEST
,,CLERR THE STACK AFTER A TIME OuT
'RESTORE

THE ERROR VECTOR

LOOP ON THE PRESENT TEST

63:; as8u8END OF CODE FOR THE XOR ?ESTER...

001115

001103

001000

154214

0c1110

0011086

7S:

154162

001104
001204

001104

000001
02s06.

001104
001204

-0
uno

00leey4

B8R

SOVER

CLR

STIMES

MOV

4s:

004000

BHI
BIT
BEQ

SERFLG
33
SERMAX, SERFLG
3s
#BIT09, 3SKR
4s

STB
BEQ
CMPB

2s:

001103
001204

00001

cMP

S§:

E10

22-NOv-77

;.
IF RUNNING ON THE “»7R" TESTER CHANGE

MOV

001103

025060

30(1046)

SCOPE HANDLER ROUTINE

000004

4729

024666

MACYL11l

§XTSTR:

GWU**UWDE%UHND

427

024650

0000

4724

AU
o
n
[o1)

4~ee

TEST

CLRB

$SVLARD:

,,SET LOOP ADDRESS TO LAST SCOPE

SERFLG

; ; ZERQO_THE ERROR FLRG
; ;CLEAR _THE NUMBER OF ITERRTIONS TG MAKE
; ;ESCAPE _TO THE NEXT TEST
,,IgHIBIT ITERATIONS?
IF YES

363

: ;COUNT _TEST NUMBERS

MOV
MOV
CLR

(SP), S{ PADR
(SP) ' SLPERR
ssschps

MOVB

MOV
SOVER: MOV
.SBTTL

;BR_IF NO

SLPERR, SLPADR

INCB

MOV

MOVB

SMXCNT:

.,LOOP ON ERROR?

i i INCREMENT ITERATION COUNT

MOV

18:

,,ggx FERSORS FOR THMIS TEST OCCURRED?

#BIT11,aSKR
1s
sIC
srxnss SICNT
so ER

BIT
BNE
INC
CMP
BGE

3%:

"HRSI?N SRROR OCCURRED?
BR

RTI

snkcnr STIHES

srsrnn STESTN

.,CHECK THE NUMBER OF ITERQTIONS MADE
;BR _IF MORE ITERATION REQUI

,,REINITXQLIZE THE ITERQTION COUNTEP
;SET NUMBER OF 1TERARTIONS TO DG

;;SET _TEST NUMBER IN ARPT MRILBOX
; ; SAVE SCOPE LOOP RDDRESS
,.SRVE ERROR _LOOP RDDRESS

;CLEAR THE ESCAPE FROM ERROR RDDRESS

iONLY ALLOW ONE(1) ERROR ON NEXT TEST
,,DISPLQY TEST NUMBER

STQTNM ADISPLAY
,,FUQGE RETURN ADDRESS
(SP)
8l

MAX

§LPADR.

S PS

: iMAX. "NUMBER OF ITERATIONS

SAVE ANC RESTORE RO-RS ROUTINES

SRERRRERERRREDERE
SRR EREERRERERRARER R SRR ER ARG RR R AR RN R RN R S

’iSRVE RO-RS
; #CARLL
¢

SAVREG

iUPON RETURN FROM $SAVREG THE STARCK WILL LOOK LIKE:

iTOP---(¢16)

(e +2---(+18)
i#

+4---RS

‘e +p---RY
;% +8---R3
; #+10---Re
(#+12---R]
; #4149---R0O

F10

MD-11-DZRMF-B RMO3 ‘RMO2 EXTENDED DRIVE TEST
MACY1l 30(1046)
22-NOV-77
21-NOV-77 14:10
SAVE AND RESTORE RO-RS ROUTINES
CZRM FB.F11
4T
4°8
U
4780
478l
4782
4783
4784

025062
S06
025064
02506
0?
S072
0-50794

010146
010246
010346
010446
Q010546

4786

025102

016646

4789
4790
4791
4792
4793
4794

025116

000002

(025120

479%

025124

478S

4787
4788

479

025106
025112

016646

016646
0i6b46

025130
02Sl
025140
025142
025144

012666
012666
012605
012604
012603

4805
4806
4807
4808
4809
4810
4811
48le
4813

025154

4815
4816
4817

025156
025160
025164

4230
4821

000022

MOV

000022
000022
000022

SEQ Qlee

: sPUSH RO ON STACK

Rl.-(SP)
R2.-(5P)
R3. -(SP)
RY.-(SP)
RS -(SP)

:1PUSH
1 PUSH
: 1PUSH
::PUSH
: *PUSH

22(5P) ) -(5P)
22(5P) | -(5P)
22(SP) | -(5P)

: :SQVE PC OF MRIN FLOW
:1SAVE PS OF CALL
:1SAVE PC OF CALL

22tsPy, -(sP)

MOV
MOV
gg¥

4797
4798
4799
4800
4801

4818
4819
4g820
4821
4822
4823
4824
4825
4826
4827
4828
4829

RO, -(SP)

PARGE 92

Rl
R2
R3
R4
RS

ON
ON
ON
ON
ON

STACK
STACK
STACK
STACK
STACK

1'SAVE PS OF MAIN FLOW

: *)RESTORE RO-RS

012666

4814

MOV

MOV
MOV
MOV
MOV
MOV

;%CALL:

025120

4802
4803
4804

$SAVREG:

010046

08:04

025146
025150
025152

012666

$RESREG:

000022
000022

000022

RESREG

MOV
MOV

(SP)+,22(SP)
(SP)+.22(SP)

: sRESTORE PC OF CALL
:'RESTORE PS OF CALL

MOV

(SP)+.22(SP)

: 'RESTORE PS OF MAIN FLOW

MOV

(S5P)+ R3

MOV

000022

(S5P)+.22(SP)

MOV
MOV

MOV
MOV
S?¥

012602
012601
012600

000002

.SBTTL
S

:sRESTORE PC OF MAIN FLOW

(SP)+ RS
(SP)+ RY

:1POP STACK INTO RS
:'POP STACK INTC R4

(SP)+ R2
(5P)+ . RI
(SP)+ RO

:1pOP STACK INTO R2
:1pOP STACK INTO RI
:1POP STACK INTO RO

:1POP STRCK INTO R3

TRAP DECODER

EERBEREEEREE

R RN

RN R RN

R RN E AR

RERRERS

;#THIS ROUTINE WILL PICKUP THE_LOWER BYTE OF THE "TRAPTM INSTRUCTION

;#AND USE 1T TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING RDDRESS
; #0F THE DESIRED ROUTINE.

; #GO

025166
025170
025172
025176

01004
016600
00574

11100
00630
016000
00020

STRAP:

0o00c2
0esele

THART

ROUTINE.

THEN USING THE ADDRESS OBTRINED

MOV

RO, -(SP)

; s SAVE RO

757
MOVB
ASL

-(R0O)
(RO),RO
RO

;s s BACKUP BY 2
;3 GET RIGHT BYTE OF TRAP
; s POSITION FOR INDEXING

;:G0 TO ROUTINE

MOV
MOV

RTS

2(5p) RO
$TRPAMN(RO) ,RO

IT WILL

; ;GET TRAP ADDRESS
;s INDEX TOQ TABLE

; :THIS IS USE TO HANOLE THE “GETPRI* MACRO
025200
025202
025210

01164
0l6E6E
00000

000004

000002

$TRAP2:

MOV

RTI
.SBTTL

(SP),-(SP)

4(spP).2(spP)

: ;MOVE THE PC DOWN

:iMOVE THE PSW DOWN

! RESTORE THE PSW

TRAP TABLE

;#THIS TABLE CONTRINS THE STARTING AODDRESSES OF

THE ROUTINES CAL.ED

MD-11-DZRMF-8

JoRMFB

P11l

RMO3

RMO2

21-NOvV-"7

EXTENDED

14:10

DRIVE

TEST

TRAP

TABLE

;#BY

THE

4833
4834

:ggg

4837

QeS2l2

4841

(025222

025224

023132

:g:;
4846
4847
4848
4843
:gg?

4838
4839
4840

:g:g

025200

CEG 0123

INSTRUCTION.

022744

STYPON

TRAP+1(104401)
TRAP+2(104402)
TRAP+3(104403)

TTY TYPEOUT ROUTINE
TYPE QOCTAL NUMBER (WITH LERDING Z2EROS)
TYPE OCTAL NUMBER (NO LERCING ZERCS)

;;CALL=TYPON

TRAP+4 (1ON404)

TYPE

02Seee

023744

$SGTSWR

; ;CALL=GTSWR

TRAP+6(104406)

GET SOFT-SWR SETTING

025230
025232
025234
(25236
02c24C

023654
024216
024306
025062
0251290

SCKSWR
SROCHR
SROLIN
$SAVREG
SRESREG

; ; CALL=CKSWR
; : CALL=RDCHR
;;CALL=RDLIN
; ;CRLL=SAVREG
; ;CALL=RESREG

TRAP+7(104407)
TRAP+10(104410)
TRAP+11(104411)
TRAP+12(104412)
TRAP+13(104413)

TEST FOR CHANGE IN SOFT-SWR
TTY TYPEIN CHARACTER ROUTINE
TTY TYPEIN STRING ROUTINE
SAVE RO-RS ROUTINE
RESTORE RO-RS ROUTINE

STYPE
STYPOC
STYPOS

$TYPDS

.SBTTL
R

;;CARLL=TYPDS

SINGLE LENGTH BINARRY

221X

TRAP+S(10440S)

TO DECIMAL

OCTAL

NUMBER

(RS PER

TYPE DECIMAL NUMBER

;;ggEEGNED
;’

48EQ

<858

:gg?

025242

016637

000002

Q04737

02527k

012666

000002

4864

025250

4866

025260

062716

025270

000207

025254

025264

025272

012746

000000

025272

MOV

RSC1Z ROUTINE

SIS IZIIZZISZILISZ22 X222

22T

00000C

DECIMAL

RSCIZ

L XY

NUMBER,

NUMBER.

- (SP)

: PUT

BINARRY NUMBER ON

THE

STHCH

. 8

JSR

RETURN

PC.du8582D

: TCALL

$SB2D:

MOV

2(SP),

; : SAYE BINARY

JSR

PC, a88DB2D

s ;CALL DOUBLE LENGTH CONVERT

MOV

(Sfi)#,E(SP)

;:PICKUP POINTER

00000S

:gz

MOV

RDO

1%:

.SBTTL

RTS

. WORD

21§ -lsp

85,

; s RDDRESS OF

THE

::SET POINTER

(SP)

0,0

1ST

ASCIZ CHAR.IS

NUMBER

;sONLY ALLOW FIVE CHARRCTERS

; s RETURN

DOUBLE LENGTH BINRRY TO DECIMAL ARSCII CONVERT ROUTINE

4873

4874

RRRERSA RS RR R RN R

R RR R RERR PR R RN E R R R R R

AR AR AR R R

RARERSRRD

;iTHIS ROUTINE WILL CONVERT A 32-BIT BINRRY NUMBER TO AN UNSIGNEC

4875
487¢

;#DECIMAL (RSCII)
; #POSITIVE.

4277

; #CALL

4878

4879

MOV

i ¥

RETURN

4880
4gel

4882
48823

488

LAST

(WITH SIGN

;iTHIS ROUTINE WILL CONVERT A [6-BIT UNSIGNED BINARY NUMBER TO AN

:ggg

PARGE

; ;CALL=TYPE
;;CALL=TYPOC
;;CALL=TYPQOS

:gég

4868

08:04

STRAP2

4854

4867

“TRRAP"

22-NOV-77

ROUTINE

¢ TRPAD:

0eevee
0Nee730
12704

4B85¢S

4865

G1lO

30(1048)

.WORD

02S2i4
(25216
(25220

:g?g

4862
4863

MARCY11

025304

104412
016602

000002

01006&

0060032

012700

c122C!

02545€

$082D:

NUMBER.

SsPNTR,

- (SP)

JSR

PC, 3840820

SAVREG
MOV

2(SP),R2

MOV

RO, 2(SP}

MOV

THE SIGN OF THE BINARY NUMBER MUST P:

:;POINTER 7O LOW WORD OF BINARY NUMBER
;s THE FIRST RDDRESS OF
::1S ON THE STACK

RSCIZ

: ;SAVE REGISTERS
: PICKUP THE DATA POINTER

#$DECYL , RO

:iGET ADDRESS OF "SDECVLTM STRING

(RE&J+.R]

::PICKUP THE BINARY NUMBER

::PUT ADDRESS OF ASCIZ STRING ON STMACK

THE

STACK

CALLJ

MC-11-DZRMF-B RMO3 RMO2 EXTENDED DRIVE
CJRMFB P11
21-NOv-77 14:10

4889

325316

0lee0e

gaooie
025406
02sH410

TEST

MACYLi

3001046}

22-NOV-?77

(08:04

PAGE

DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE

025374

18:
23:

MOV
MOV

(R21+,R2
.&g. 43

CLR
SuB
SBC
SuB

R3
(R4) ,R1
R2
(RS),R2

: :CLEAR PARTIAL
: :SUBTRACT TEN POWER

INC
BR
RDD

R3
2$
(R4)+,R]

S:ADD 1 TO PARTIAL
. LO0P
::RESTORE SUBTRACTED VALUE

MOV
MOV

BLTY

3%:

4y :

STNPUWR:

: ;

TO DO

ADDRESS OF

10 CONVERSIONS

TEN POMWER

::BR IF TEN POWER TO LARGE

RDC

BIS

80, R3

: i CHANGE PARTIAL TO ASCII

(Per+

: : DONE”?

18
(ROs+

::BR IF NO
: i TERMINRTOR
. :RESTORE REGISTERS

218]9]
CMP

000060

;;551 EP

s$TNPWR, RY
#s$TNPUWRS2
RS

(R4)+,R2
(RS)+ (RS+

MOVB

R3, RO+

. WORD

RYS
145000
35632

DEC

BNE
CLRB
RESREG

: ;MOVE

TO NEXT TEN POWER

tiSAVE IT

: RETURN
;:1.0E09

160400
2765
§582°°

;;1.0E08

.:1.0E07

041100

::1.0E06

103240

::1.0E05

3420

::1.0E04

6750

::1.0€E03

644

::1.0E0

ée

;:1.0€01

;; 1.0E0C

SDECVL:

.BLKB

.SBTTL

TYPE NUMERICAL ARSCIZ STRING SUPPRESS LERDING ZEROS

(AR R REER

le2.

; sRESERVE STORRGE FOR ASCIZ STRING

SRR R SRR R R

R R

R R AR

A RPN R R

R IR RN RN RS

:#THIS ROUTINE 1S USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE
;!LEEEING NUMBERS.

;#CA
‘a

MOV

JSR

PC, 988S(PRS

§SUPRS:

MOV

RO, -(SP,

i#
0ecu?2

01004¢

SNUMADR,

-1SP)

;;FIRST ADDRESS OF RSCIZ STRING

;s SAVE RG

SEG Olev

MO-11-DZRMF-B RMO3 RMOQ EXTENDED DRIVE
CCRMFB.PLL
2L-NOV-77 14:10
4945

4946
4947
4948

025474

025500
(025502
(025504

4949
4950
4951
4952
4953

025510
025Sie
025514
025520
025522

:ggé

025530

4954
4955

025524
02SSee

(016600

105710
001403
122720
001773
005300
010037
104401
000007

000004

I10

TEST
MACYLl 30(1046)
22-NOV-77
08:04
PAGE 95
TYPE NUMERICARL ASCIZ STRING SUPPRESS LERDING ZEROS
MOV

18:

TS78B
BEQ
CMPB

000080
025522

2s:

38:

012600
QCleble

;s PICKUP

(RO)
2%
%'0, RO+

THE

POINTER

; + TERMINARTEOR?
;iBR IF YES
;1S THIS AN RSCII
*“0"

19
RC
RO, 38

BEQ
DEC
MOV
TYPE
.WORD

H¥
IF_YES
|
; s BACKUP BY
*1*
; i SAVE FOR TYPING
;GO _TYPE
;sASCIZ POINTER GOES HERE

RTS

; s

MOV
Mov

000207

4(SP),RO

SEG Olg¢

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

; sRESTORE RO
; iRESTORE THE STACK

RETURN

:ggg

.SBTTL

4960

(I RRRERBERRNERRRRERERREREERRE
RS RNRRRRRR RN R RRERERRRERERRERE R L RSN

4962

;#WITH A RANGE OF O TO 2(+33)-1.

4961

;#THIS ROUTINE IS A DOUBLE PRECISION PSEUDO RANDOM NUMBER GENERATOR

49¢€23

; #CALL:

4364
49ES
4366

4367
4368

i
X
L
025532
025532
025534
025536

010046
010146
010246

4974

02SSM4

013701

4975
4376
4977

025540
025550
025554
025556

013700
012702
006300
006101

4978
4979

5S60
(025562

005202
001374

4982

025572

063701

4980
4381

4983

0eSSe4
025570

025576

001057

4387

(025614

010137

4989
4990
4991
4992

:ggs

:gg&
4997

499g
4933
£GCC

025620

010037

012602

(025622

(12601

025632

12345k

025624
025626
025630

177771

062700

005501
062701

GeS610

025632

;;CALL THE ROUTINE
; ;RETURN HERE THE RANDOM
; sNUMBER WILL BE IN

012e00
000207
17eS543

oV
MOV
MOV

RO, - (SP)
R1,-(SP)
R2,-(5P)

; ;PUSH RO ON STACK
; ;PUSH R1 ON STACK
; sPUSH R2 ON STACK

MOV

SHINUM, R]

;3SET Rl WITH HIGH

MOV

025630

025632

025602
025604

4988

PC, SRAND

; s SHINUM, SLONUM

SRAND:

063700
005501

4984
4985

4398t

JSR
RETURN

4969
4970
4971
497

4973

RANDOM NUMBER GENERARTOR ROUTINE

MOV
ASL
ROL

18:

;3SET SHIFT COUNT
; sSHIFT RO LEFT AND
; yROTATE _CRARRY INTO R1

ROD
RADC

RDD

81057, R0

; ;ADD _LOW CONSTANT

ADD

025632

025630

i
CK FOR DONE
; s CONTINUE SHIFT

R1
847401

129

; ;ADD NUMBER TO MAKE X

129

; ; PROPOGATE CRRRY
; ;RDD_HIGH CONSTRNT

,R1

RO, SLONUM

MOV

(SP)+,R2

; +POP STRCK INTO R2

(SP)+ RO
PC
176543

:;POP STACK
: ; RETURN

MOV

; s SAVE RO

R1,SHINUM

(SP)+,R1

E Rl

; ;POP STACK

SHINUM:

MoV
RTS
.WORD

.SBTTL

INTEGER DIVIDE ROUTINE

.WORD

.
RND

MOV
MOV

SLONUM:

LOOP

; ;RDD_NUMBER TO MAKE
; ; PROPOGARTE CARRY

SHINUM, RI

RDC
ADO

04740l

;3SET RO WITH LOW

8-7,R2
RO
R1
Re
18
SLONUM, RO
R1

INC
BNE

025630

SLONUM, RO

INTO RI
INTO

123456

y CRSRBEEERAREE SRR RARRERRFERRDRRERRRERR
AR AR RAERRRER AR AR RS

:#THIS ROUTINE WILL DIVIDE A 32-BIT TWO'S COMPLEMENT INTEGER
;#0IVIDEND BY R _16-BIT TWO’S COMPLEMENT INTEGER DIVISOR GIVING
;%A

16-BTT

TWO'S COMPLEMENT

INTEGER QUOTIENT AND A

16-BIT REMAINDER.

no 11-DZRMF-B RMO3 RMO2 sxrsnoeo DRIVE
CZRMFB. P11
21-NOV-77 14:10

5001

J10

TEST
MRCY11l 30(1046)
INTEGER DIVIDE ROUTINE

22-NOV-77

f%SVE SIGN RS THE DIVIDEND.

5004
8005

T
‘x

5009
€010
8011

e
2
-

S013
S0i4
38{2

X
X )
e

STACK

emesmems

5006
5007
S008

P¥

ggig

6024

5025

5027
5028

€029

u
025634

025634
025636

104400
042716

025644

010146

025652

00SO46

025642
025646
025650
025654

025660

010046

025726

025730

:'PUSH R1 ON srncx

MOV
MOV

R2.-(SP)
R3’ -(5P)
817..-(SP)

-(5p)

,,PUSH RO ON STAC

:1PUSH R2 ON STACK
;1 PUSH na ON STACK

i iSAVE R_PLACE FO

: 10IVISOR OF 0 IS A NO-NO
%
T Ry
8 ~C”

012700

_J0424

005266

025762
025754
02576
(25760
(25762

103001
010300
006101
00S3le
00137

€

0eS7ee

C2S7e4

.,PUSH OLD PS4 AND PC ON STACK
TRIP AWAY conoxrxon CODES

33
83,

£0s0
€061
€0f2
£0S3
€0E4

025750

817, (SP)

-(SP}

ALL ONES

BGT
BIS

006100
010003

049

eecccccceesse--

ALL ONES

ALL ZEROS

RO, =(SP)

CLR

ALL ZEROS

CIVIDE BY ZERG
00

QUOTIENT

MOV
MOV

seccee=e

,,chxup THE DIVISOR

025744
025746

025742

REMAINDER

OVERFLOW
000

000020

002407

000401
00S402
000241

E047
So48

ecmescscs

R1
RO
20(SF),R2

005300

025734
025736
(025740

€046

TRAF
BIC

NO ERROR
|

NEG
SBC
MOV

003011
(0S2766

025722

ATTEMPTED TO DIVIDE BY ZERO

000003

025712
0e5714

02€710

000017

“C»=]

TOP

: sQUOTIENT & REMARINDER ARE ON THE STACK

IMPLIES NO ERROR
IMPLIES ERROR OCCURRED
#c»=0
OIVIDE OVERFLOW OCCURRED

22(SP3 RO
{s
3(sP)

5038
€039

043
So44
SO45

oz
“v*=]

MOV
BPL
DECB

005401
005600
016602

S042

DIVISOR, -(SP)
PC,SDIV

000022

016601

025700
(025702
025704

6041

MOV
R
RETURN

MOV

5035
€036

SO40

LOW DIVIDEND, -(SP) .,THE KIGH DIVIDEND MUST BE ¢ 1,2
HIGH DIVIDEND, -(SP
RS LARGE RS THE DIVISOR

000021

016600
100005
10S366

65037

SEG Ol

012746

025664
025670
025672

025676

SDIV:

010246
010346

5031
5032

5033

MOV
MOV

5017

5023

[

(e
¥
ta

5012

S021
S022

PRGE 96

;#DIVISION WILL BE PERFORMED SO THAT THE REMAINDER 1S OF THE

2885

§020

08:04

000NOS

00002

000003

177777

000002

MOV

NEG
1§:
000014

MOV

2s:
3%:
4g:
5§:

060203

00S701

1000CE

BLTY

INC

BR
NEG
cLe

14(SP)

s-1 RO

2(SP,
43
R2

:SETUP THE

ITERATION COUNTER

::PICKUP THE DIVIDEND
; s CHECK _THE SIGN
:KEEP TRACK OF THE

SIGN

,,nno NEGARTE THE ORIGINAL
UMBER

" ICHECK THE SIGN

ser REHQINDER TO ALL ONES
T

;;KEEP TRACK OF DIVISORS SIGN
; ;NEGATE THE
*CLERR “C"

ORIGINAL

NUMBER

' 'EYART FORMING QUOTIENT

ROL
MOV

RO
RO, R3

BCC
MOV
ROL
DEC
BNE

6%
R3,RO
R1
(5P
s§

;iBR IF DIVIDEND > DIVISOR
: 'REMAINDER AFTER THIS LOOP
; ;QUOTIENT BIT ENTERS HERE
; ; DONE
?
IF NO

BPL

;:BR IF NO

ADD

6S:

24(SP) Rl

75T

R2.R3

,,POSIYION MSB’S

,,conpans DIVIDEND & DIVISOR

..OVER‘LON’

no 11-DZRMF-B RMO3-RMO2 EXTENDED DRIVE

ZRMFB. P11

505T

025770

S059

026000

5061
5062

026004
06

5058
5060

21-NOV-77

14:10

0S2766

000002

025776

005000

026002

005726

026010

00S400

S0t

026020

005726

SO64
5065
6067

026012
026016
026022

105066
005316

026024

00S40!

5070
5071

026032
026036

010066
012603

6073

026042

5069
5072
5074
S07S
gggg

026026

010166

026040

012602

026044
026046
026052

012600
012666
000002

CLR

8s:

9g .

SEGQ 0127

IN RETURN STQTUS uoao

:'CLEAR COUNTER FROM STACK

: 'NEGARTE REMARINDER

1(SP)
(SP)

COPY

INC_R

INTO QUOTIENT

,,Rsnnrnoen SIGN CORRECTION NEEDED?
:BR IF NO
,,CLERR SIGN
:BUT DON’T FORGET QUOTIENT

(SP)+

,,auorxsnr SIGN CORRECTION NEEDED?

108

‘BR IF NO

NEG

,,NEGRTE QUOTIENT

MOV
MOV

RO I6(SP)
(SP)+,R3

,,Rsnnxnoen 10 USER
:1POP STACK INTO R2

(SP)+ RI]

;1 POP STACK INTO Rl

MOV

MOV
MOV
RTI

000002

SET "v*

PRGE 97

(SP)+

CLRB
DEC

MOV

012601

08:04

,.SET R nnanosn T? ALL

(SP)
93

TST

108:

000016

82, 14(SP)

15T
BGE

BEQ

K10

22-NOV-7?7

RO,R1

NEG

000020

30(1046)

MOV

TST

000001

001401

5068

BIS
78:

005716
002004

MACYLl

INTEGER DIVIDE ROUTINE

000014

010001

S063

TEST

R1,20(SP)

'RETURN QUOTIENT AND

(SP)+ R2

::POP STACK

(SP)+.RO
(SP)+.2(SP)

INTO R2

:1POP STACK INTO
R
,.ssrup TO RETURN ronoxwxon CODES
' RETURN

2829

LSBTTL

5080
5081
5082
€083
5084
2832

:SET "LPTAVL" TO THE PROPER STATE.
:TLPTAVL = O IF NO LINE PRINTER AVAILABLE
: LPTRVL = 1 IF LINE PRINTER IS RVRILABLE
: CALL
:
JSR
PC,d8LP.AVL
:
RETURN

5087

026054

5088
5089

026060
026066

509]

026076

8090

092
5093

5094

ggg&

026072

026102
026104

026106

026114

00S037

001310

012737
005037

026104
000006

005237

001310

005777

00040}

022626

012737

000207

000004

153404

E150

€101

€10e
€103
£104
€105
£10€
£i07
€106
€109
€1:0
€111
€l.z

CLR

MOV
CLR
TST

INC

000006

00CO0M

§097

509e
£099

LP.AVL:

2#x PROGRAM SUBROUTINES #xx

18:

2%:

B8R

CMP

MOV

RYS

JsLPTAVL

:START WITH NO PRINTER AVARIABLE

ILPS

xs THERE
A LINE PRINTER?

81S, I8ERRVEC
ISERRVEC+2

SWLPTARVL
2s

(SP)+_

YES--SET AVAILABLE SWITCH

(SP)+

NO--POP STACK

sERRVEC+2, ansanvtc

: THIS ROUTINE WILL DETERMINE

:SETUP THE TIMEOUT VECTOR

RESTORE TIMEOUT VECTOR

ReYURN

THERE

IS A CLOCK

THE

SYSTEM

:AND IF THERE IS IT WILL SETUP THE VECTOR AND START THE CLOCK
-"CLKSTQ” WILL INDICATE THE CLOCK TYPE
= NO CLOCK

,+1- KWll-P

i~1= KWll-L
:THTS ROUTINE WILL ALSO SETUP “TICKMSTM (TIME
P
CLOCK TICK IN MILLISECONDS) AND "TICKUS*
:
E PER CLOCK TICK IN MICROSECONDS) RS
; ®ER SWO00.
;SW00=0 -- BOHZ
:5W00=1 -- SOMZ
:CaLL
:
JSR
PC,2857T.CLK
:
RETURNM

m 1

AY]
r
@O NN LW~ OO IO

]

Now

Pt s Pt Bn Bor et Pt B
Bt Bt Bt ot B

bbat
[l
oalealsal o
T
EECCET
T ORI
£ £ £ £ & £ ££ £ £
ot w
Bt Bt s

'U'\J

ninunuininununininniuin Xr1‘
TWITNODNT NYUIUT N

e oo Pe Pe Pt Bt Bt Bt Pt Bt Pt ot Pt P

N NN NI
AU
NN U
AU

RMF-B RMO3-RMO2 EXTENDED DRIVE

026116

21-NOV-77
010146

14:10

026120
02cleN

012701
011146

000006

026132
025132
026142
Ce614€
026154

012711
037
0057277
012737
004737

026162
001324
153314
000001
02626M

oasxgg
0261

00501 1
014146

026160
026162

00041y
022626

026174

012737

026206
026210
pee2le
026214

000401
022626
0i26ll
0le62l

026164
026170
026202

026216

0262
026226
026230
026236
064y
G2ee4e

012711
005777

026210
153300

004737

026326

012601

032
001407
012737
012737

000406
012737

1777?77

1s:
001324

000020
047040

001326
001330

000016

001326

012737
000207

040432

026264
026264

032737

000040

001300

026362
000300

153154
1531580

026310

001014
012777
0127?77

0127?77

0600001

001330

000207

026326
026326

032737

4$:

5§ :
ST.PCLK:

153124
153120
183114

026334
026336
026344
026352

001011
012777
012777
012777

026362
000300
000100

026362

013746

001326

026360

026366
026372

0006207

004737
00000c

0431¢€0

BR
CMP

SRVCLK:

3$
(SP)+.

(SP)+

#-1.CLKSTR

38
(SP)+, (SP)+
(SP)+. (R1)+
(5P)4+ (R1)+

:LEVEL O

160 TO EXIT
:CLEAN UP THE STACK

:IF TIMEOUT GO TO 28
115 THERE A KWll-L?

:YES-- SET STATUS TO KW1l-L

'START THE KW1l-L

TEXIT
:CLEAN UP THE STACK
'RESTORE THE TIMEOUT VECTOR

(S5P)+.R1

:RESTORE K1

MOV
PTS

3
816, I8TICKMS

816666. ,98TICKUS’ rxcx ron 60HZ
eC
,hs

sSETUP TIME PER

BIT

#SLOS,38C.SWR

;ALLOM sorrunns TIMEOUTS?

BR
MOV

#SWO6, a8C.SWR
;50HZ OR BUMZ?
4§
eanncn IF S0
820, 98T ICKMS
s TUP TIME PER
820000. ,38TIckus’ ;TICK FOR SOHZ

1€
8SRVCLK , aPKV
:300 IPKV+2

1, aPKB

oxls JPKCS

RTS

BIT

#SWOS, d8C.SWR

BNE
MOV
MOV
MOV
RTS

MOV

JSR
RTI

: NO--BRANCH
:SETUP THE KW11-P VECTOR

:COUNT ONE TIC

SSINT.EN.* counv DOWNTM, “MODE 1 (REPEAT)",

-“LINE Fneb" AND “RUN
‘RETU

;ALLOW SOFTWARE TIMEOUTS?

18
#SRVCIK, LKV
8300, dLKV+2
8100, LKS

:START THE KWll-L

J8TICKMS, -(SP)

;TIME PER TICK

PC, 38RPTHR

:THIS ROUTINE SETS UP DEFRULT
'Egfifl ED OR WHEN THE VALUE OF

JSR

SEG DlzB

:SAVE R|

:GO TO 1S ON TIMEOUT
:SET CLOCK srnrus TO NO CLOCK
:1S THEREA
KW11-P?
{YES--SET srnrus TO KW11-P
'START THE KW11-P

PC,8T.LCLK

MOV

18:

81S, (R1)
CLKSTA
JPKCS
8],CLKSTR
PC.ST.PCLK

JSR

MOV
ST.LCLK:

PRGE

:SAVE AND SETUP TIMEOUT VECTOR

828, (R1)
ILKS

BR
cHP
MOV
MOV

08:04

SERRVEC+2,RI
(R1),-(SP}

MOV
TST

BNE
MOV
MOV

18:
001300

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

BIT
BEQ
MOV
MOV

1531946

000040

CLR
MOV

MOV

026316 012777 000115 153136
026324

L10

22-NOV-7?7

Rl,-(SP)

MOV
2%
33

001300

30(1046)

MOV

MOV
MOV
MOV
CLR
75T
MOV
JSR

001324

000100

MACY1l

#2% PROGRAM SUBROUTINES ###

ST.CLK:

0262S4
026262
6272
026279
026302

TEST

PC,LODFLT

:NO--BRANCH
ISETUP THE KWll-L VECTOR
* RETURN

IN MILLISECONDS

:COUNT THE ELRSPED TIME
'RETURN RFTER INTERRUPT

PRRAMETER anuss WHEN THE ppocpnn
BITOO IN 'C.SWR® IS CHANGED

M10

-11-DZRMF-B RMO3-RMO2 EXTENDED DRIVE TEST
MACY1l 30(1046)
22-NOV-77
FB.P11
21-NOV-77 14:10
#%% PROGRAM SUBROUTINES ###

5169
8170
51;1

:
0253;:

S8 Bebvs Bidie
>

S17S

S176
8177
6178

5179
5180

5181

5182
§183
G184

026402

010346

02640M
0264l
0264

012737
812? 7
127

026432

012021

026M
0264

026434
026436
026440

012701
010102
020002
103775
012700

5185
5i86

026444
026450

012701
012021

5188
5189

026456
026460

133774
032737

S187

(26452

LODFLT:

1004

020027

001314
001316
18:

003606
003206

2s:

003646
000001

001300

737
1;

160000

001432

001;15

g%es

012;37

008035

§198

026536

012701

001620

026546

(032731

002000

séfifi 815737 ?21888 88%452
£

5139

7?7

170

0000

13
SSEEZi 86521
2507 :EES;U 103902 000002
3588 8522?5 88@385

210

ESié

026600

001372

83?739

ggs
F
66o4

012603
81 602
012601

gggx

026630

000207

6220

segs
g4

026626

#PRMO . R1
R],R2

: TABLE POINTER
:STOP ADDRESS

CMP
BLO
MOV

RO, R2
18
8PAT8, RO

CMP

RO, sPATS

MOV
MOV

MOV
B8R

4§

MOV

MOV
157

BIT

68:

8s:

012600

'-(8P)

(

libn AL QN EA
:1pUSH R2

8176777, 1STNMS
83, TSTNMS+2
#0fLT,RO
(RO)+, (R1)+

STACK

:SELECT TESTS 0-10, 12-17
: SELECT TESTS 20 8’21
:DEFAULT PRRAMETERS POINTER
'MOVE DEFRULT PARAMETERS INTC
‘RUN TIME TABLES #¥ DONE”
: NO--BRANCH
:PATO DEFALLLTS TO PATTERN 8

8PATO RI
(RO)+. (R1)+

2s
8BIT00,C.SWR

:16 BIT MODE

3§1
PRMLMT+22 'ERTIEF§9 Ef;x9°?5 31
831, PRMLMT+2Y EsET L8 LIMIT TO 31.

n-<a$s.¢3e.>,rncxu8 -WORD COUNT FOR R 16 BIT TRACK
4s
s CONTINUE
ngg.,;g:Ln}+ga

;ge;

SPRMPT R1

: ADDRESS OF $SEEEEIE" POINTER TARBLE

'FS’

txn{; ;o ag.

-286. 0.>,¥ncku§ -bgflo éounr 905 AN 18 BIT TRACK
RL1)

8CTTI0,3(RL)+

;

; LS’

SELECTED

fiSv

-g(Rl) R2

‘BR_IF

MOV

(éfi)
:s R2
Rg

2833§§ TSE ggfififlé¥§n
‘Zfic&g ”fl¥ ?Egopnnnnersn TABLE ADDRESS
: COUN "guc PARAME TER

Hov

ASR
288
DEC

. 2)'§§sp)

#ll.,

;Bnnfi ?ga TRBLE ADDRESS

.
g
RT ¢ nLLochxgg ?égixnun) BEFORE i °LS o

: B8R AF NOT Tngns YET

cHP

(R2),PRMLMT+22

026620
026620

MOV
MOV

gox

0o1712

2513
{5 DEERi0
832212 ROA7SY
781 oisia

216
5217
ssxg
31

; : PUSH R? ON STACK

3s:

§§§§ ggggég §Té§9§ 177776

SEG 0129

R3,-(SP)

MOV

(SP)

MOV

285
MOV

1 ¥

BLO
BIT

5%30
:96 §?19§§
?
1712
%195 85247
157 7 888837 881714
5193
5194

MOV

MOV
MOV
MOV

002412

PAGE 99

RETURN

MOV

176777
000003
001746

08:04

<ap)+

;?gn sgr

100

TACK PQINTER

LARGE FOR

THE MODE SELECTED

BLOS
33

BAMLMTs22,
(R2) ‘Enség
YaLUE FOR MODE USED
X3
;CSN INUE

MOV
MOV
MOV

(gp)o,n
(EP)+.R
(8P)+ RI

; ;POP
:'pOP
:1pOP

RTS

*RETURN

MOY

(S5P)+ RO

;

STACK
ETACK
STACK

iNTO Rg
INTO R
INTO RI

::POP STACK INTO RO

.THIS ROUTINE FILLS THE PARAMETER TABLE THE CURRENT TEST.
:CALL

MD-11-DZRMF-B RMO3/RH02 EXTESOED
«ZRMFB. Pl1
21-Nov-77 14

DRIVE

TEST

2#%

MACY11

PROGRAM

SUBROUTINES

MoV
JSR
RETURN

02663
gesb3e

30(1046)

LODPRM:

N1O

22-NOV-77

##x

STESTNUM, STSTNM

PC.LODPRH
Rl,-(SP)
R2,-(SP)
R3,-(SP)
RY,-(SP)
RY

JGET T

001620
0015686

PRHPT(RH) R1
8PRM, R2

001334

CHKDRV , RY
(R1)+, tR2)+
PRM
28
(R1)+, (R2)+

001566

000003

036620

000002
001566
00000e
001566

us:

000002
162702

000736

000004

es:

012604

027006

iSETUP

Rl
R2
R3
R4
RMY

100

SEG 0130

TEST NUMBER

ON
ON
ON
ON

STACK
STACK
STACK
STACK

TEST nunasn

TO_ADDRESS

WORDS

:GET THE TEST'S Pnnnnsrsp TRBLE ACDRESS
Pnannsren sxscurxon TRABLE
R3

1S JSED AS
A COUNTER

onxvs S ADDRESS
! PARAMETER SPECIFIER
1THIS PARAMETER USEC IN THE TEST ?
:BR IF NOT
Lono THE VALUE
ONTINUE

(R2)+
CLERR THE UNUSED PRRAMETER LOCATION
R3
:COUNT THE ,POSITION IN THE OUTPUT TRBLE
R3, #12.
:FINISHED
7
6
'BR IF YE>
R3, #3
‘DOING THE CYLINDER ARDDRESSES *
18
:BR IF NOT
.BITOE.DRVTYF(PHi
pnoa ?
A
cs
sIF'IT 1S, OVERLAY FC 8 LC WITH FC’ 8 LC°
#2,R3
:COUNT THE BYPRSSED PRRAMETERS (FC' 8 LC’)
PRM
‘SHIFT THE COUNTER
4§
‘BR IF FC' IS NOT USED
#2,R1
'MOVE THE INPUT POINTER
PRM
*COUNT THE PARAMETER
18
:BR IF LC' NOT USED
#2,R1
'MOVE THE INPUT PINTER
18
'KEEP GOING
13
'KEEP GOING
84, P2
:BACKUP THE OUTPUT POINTER
18
*KEEP GOING

000014

000004

PRGE

;LORD THE

::PUSH
::PUSH
i PUSH
: PUSH
;CLEAR

srsrnn RY

oo110e

08:04

(SP)+,RY

: ;POP STACK

INTO RY

(5P)+'R2
égp)+,nx

:'POP STACK
,kPOP
STARCK

INTO R2
INTO RI

(S5P)+.R3

000207

::pOP STACK INTO R3

ROUTINE LORDS A READ HERDER RAND DATA COMMAND OR A SEEK

DPB.B+2 AND DPB.C+2,
JSR

PC.asLDCMD

BIT

#SW07, 38C. SWR
18

RETURN

027010
02”016

032737
oclico?

000200

001300

BNE

COMMAND

DEPENDING ON THE STARTE OF “CCNTROL SWITCHTM

;00 EXPLICIT SEEKS”

; YES--BRANCH

TEST
sss

Bll
PROGRAM

0Que 30
004es0

004230

004eS0

SUBROU

OREADHD,

MOV
MOV

1%:

2s:

SREADHD,

; THIS ROUTINE

WILL

170 COMPLETE.
;CALL

FékL

CALL.R:

18:

100000

00C200

oo4224
030+41C

PEQ

MOV

4s:

COMMANC

THEN WRIT

IS REPORTED.

INFORMATION

:NO ESCAPE RDDRESS
:CALL RMD3 DRIVER

J80PB. A+16

; DONE?

4§

' BRONGH IF NO ERRO

uas SESCAPE

ON THC FUNCTION

NO--LOOP

ESCAPE TQ 3% ON ennoa

anDbG m+ie, decyL|bsCYL INDER

J80PB.R+1
1. 98 TRK.DS TRRC
d80PB.R+10. aasec 05 g
8DPB_ A+ 16 - (5P) ;STAYD /ERROR INDICATOR ARDDRESS
PC acsnxnbx
ronn DISPATCH INDEX
<s¢)+
REPORT PROPER ERROR

ERROR
ERROR
ERROR

ua
43
44

18T

RH REG+RMER!

ERROR
MOV
g;g

gpa.n+1s -(SP)
c.Lop.ck

BNE
29
38:

JP FOR REAC HEADER ANL

MOV
MOVB
MOV
JSR
gggon

NOP
004350

RO, d8CALL.A

CALL.A

757

RMO3 DRIVER AND

“DPB” WITH COMMAND

B8R

MOV

004322

THE

J9SESCAPE
RO, d8RMO3

BAPL

07174

BENSREEF ERELEN TR

RRRERERRRRRRRRRRER

NN NNNNNN NN VINNNNINNY

PU U 0= 0= 0t bt st P Bt Pt ot Pt Pt st Pt Pt ot o P
Q
£

NNNNNB

A gidnnvaoiin
o
W Wit LYW WL WD
LI
[y Py G
Gy U
n
(] N LW

AtA

oo4224

CALL

CLR
JSR

OPB.A

;NO--SET

g:g:SETUP FOR SEE®

IF AN ERROR OCCURS

RE TURN

001206
037502

J00PB.B+E

3a0PB.C+2 (DATA COMMANG

c$
:EEEK,g:SP

MOV
MOV
RTS

SEG Clzl

a"ee

BIT
BNE

; THIS ROUTINE

PRRITY ERROR
{UNSRFE ERROR
NON 1/0 ERROR

TO SYNC THE CALLING SEQ OF ERINDX

BRANCH

RN onxvs ERROR

:exsz RM. R£c+nntaeRANCH IF
-eno SPOT ERROR

1/0 ERROR
:STATUS WORD
SE$U§‘ LOOP, RBORT, OR CONTINUE

IS THE SAME RS “CALL.R"” EXCEPT FOR THE DPB USED AND IF
TRACK,

:THE COMMAND IS
A READ HEADER AND DATA THE HEADER (CYLINDER,

:AND SECTOR) RERD 1S CHECKED FOR VALIDITY.
;i CARLL

001206
037502

027226

0o177¢

004244

FILL DPB
RC,d8CALL.B
JS R
RETURN

S#SESCRPE

;NO ESCHPE RDORESS

CALL.B
OPB.B+16
13

:DONE”
; NO--BRANCH

RO, 38RMO3

:CALL RMO3 DRIVER

-DZRMFCZIRMFB.
MD-1

8337

233

gRF-8
027230

Rfl03/RHQ; E:T%BDED DRIVE
21-NOov-

Cll

s3+ proGRAN SUBRBUITINBY J§§hOV-77 D0B:0% PAGE 102

TEST

100047

5§BP§EE§“§EacCYL$ESCABE T8RS ON ERROR
; BRANCH IF NO ERROR

BPL

Bi5o3? 884348 BBI5ES

34878 8214 34SEC 88 12pcton

001354
001352

113737

030450

00432e

177677

004322

100000

004350

00424
030510

004230

001434
000230

2s:

pPB. a¢1s -(SP)
PC,LOP.CK

Ono,acvsnxrv
001300

004264

027540
00o4eeld
004257
004256
004264
3304&0

CARLL.C:

1$:

;BSE ERROR

; /2

RANCH IF SO

:STATUS WORD
scs IF LOOP,

RBORT, OR CONTINUE

No--ean

JSR

:STALL

SYES--CALL STHLL ROUT INE
sgnbb TIME POINTER

IS THE SAME AS "CALL.B" EXCEPT FOR THE DPB USED.

FILL DP 8
RETURN

nO--BRAN

:YES--GO cuecx THE DRTR
;ERROR DURING VERIFY

RO, d8STALL
n
STALL1

6S:

R I

SSW14,d8C.SWR

S%:

’

0274

:TO SYNC THE CALLING SEQ OF ERINDY: RT.

gopa B+2, onsnoub HSSXNG Inétxtb SEEKS?

ys:

’

027420
027422

gnva ERR

03060e

38307 334E88

RM.REG+RMER]

#BIT15, RM.REG+RMER2

;ESEE ROUTINE

7419

pnner ERROR
UNSAFE ERRS
:NON-1/0 ERROR

857410

qa
43
Yy

cfcxoo,Rn.Rec+Rntnx .GEE IF ONLY 'HCE®' SET
4s
sBR IFTIT IS

030750
040000

nfus/sanon xnoxcnron ADDRESS
FORH ? gpnrcu
REPOR
ROPER snnon

38:
000173

#0P8_B+16,-(S
PC acanxnbx
#)#

RO, 38CALL.C

#SESCAP
T
CAL

aoopa C+16
18

838, SESCAPE

:NQ

ES np

ADDR

AR ESkAS DRPOER®

: DONE?
NO--LOOP

vzs--ennncu IF NO ERROR
-ESCAPE TO 3% ON ERROR

J90PB. 412, auCYL . BS s; CYLINDER

980PB.C+11.a8TRK.DS : TRACK
980PB.C+10.38SEC.DS

:SECTOR

80PB.C+16, -(SP) STQ?US/ERROR INDICATOR RDDRESS
PC, J8ERINDY
:FORM DISPARTCH INDEX
<?¢:+,pc
:REPORT PROPER ERRGR
4

SEG 3132

MD-11-DZRMF-B RMO3 RMQe EXTESOED DRIVE
CIRMFB. PL1
21-NOV-77 IN:

€393
c394

Sz
533?

027500
027502
027504

£338

009339

032737
00102S
104045
013746

5406

MACY1l

ERROR
ERROR

004322

100000

0043S0

004264
030410

°3:

001300

S%:

n—-OWm

v wn
P o o O
¥ iy ¥ o £
(V]2 V] VRN S Yoy Sy

027610

; BRANCH tFso

DPB.C+16,-(SP)
gg,LOP.CK

:STATUS
WORD
:SEE IF LOOP, ABORT, OR CONTINUE

: 170 ERROR

J8DPB. C+2, SREADHD booxnc IMPLIED SEEK”
5s
i YES--CHECK THE DATA
ORO INVERIFY
6%

#SW14, d8C.SWR

0306086

RO, 38STALL

ROUTINE

FILL

OPB

THE

SAME

; ERROR DURING VERIFY

,S ALL?

s NO--BRANCH
YES--CALL

gahLLl

6%:
; THIS

.BSE ERROR ONLY

030750
040000

UNSRFE ERROR
NON 1/0 ERR
'T0 SYNC THE CQLLING SEG COF ERINDX:
8§IVE
r

oexrxs,an.Rsc+Rnena

39:
4%

103

ifClOO RM.REG+RMER]
SEE IF ONLY °'HCE' SET
4s
. BR 1£°1F 1Is

BIT

000173

PRARGE

;PARITY ERROR

RH REG+RMER]

BEQ

08:04

SEG 0133

43
Yy

oo4322

177677

D11

22-NOV-77

ERROR

0042s0

001434
000e00

30(1046)

2% PROGRAM SUBROUTINES #x#

104042
104043
104044

00 1404
032737
001412

£399
S400
S401
sS40
5403
5404
S40sS

TEST

STALL

ROUTINE

STRLL TIME POINTER
RS

“CALL.RTM

EXCEPT

FOR

THE

DPB USEC

AND

:ON AN ERROR LOCATION "ERR.CT" IS EXAMINED. IF ERR.CT IS EQUAL ~0¢
gSE[LG EXIT IS TO THE NEXT TEST

423

’
.

’

005037

DRVCAL:

DRVCLI:
100402
000127

012737
013737
113737
113737
012746

104049

18:

JSR

RETURN

CLR
CLR
J
DTADPB

RO, d8DRVCAL

JWSESCAPE

;NO_ESCAPE_ADDRESS

RO, 38RNO3

iCALL RMO3 DRIVER

JBWCEFLG
DRVCAL

u-ornope+1s

DRVCL
1s
108

828, SESCAPE

[CLEAR WRITE CHECK ERROR FLAG

; DONE

: NO--LOOP
iBR IF ERRORS
'NO ERRORS
;ESCRPE TO 2% ON ERROR

3801A0PE+
12, auCYL ‘DS chx NDER
9sDTADPB+11.9#TRK.DS

0304S0

; TRACK

980TADPB+10, @8SEC.DS :SECTOR
SsOTADPB+16, - (SP) :STAYUS/ERROR INDICATOR ADDRESS
PC, ISERINDX
.FORM DISPATCH INDEX

&?fi)* PC

REPOR

pnnxrv ERROR

NON I1°0

PROPER ERROR

: UNSRFE ERROR

ERRGCR

RT.

"C 11 D¢RHF B RHO3/RH02 EXTENDED DRIVE
Pll
21-NOV-77 14:10
5449

Q27720
027722
027726
027730
027736

000240

TEST
#x%

MACY11

PROGRAM

SUBROUT

NOP

C043ee

Ell

30¢ i ? E X

757
BNE

RM.REG+RMER]
22%

BEQ

228

ERROR

4§

BIT

NOV-77

(08:04

PAGE

104

SEG 0134

;TO SYN THE CALLING SEG OF THE ERINDA:

:ANY DRIVE ERROR
:REPORT THE 1/0 eanon IF SO

8BIT1S,RM. REG+RMERD

.BAD SPOT ERROR ?

100000

004350

1777227
030370

001446

000020

pol10e

004304
030410
000151

004eT0

040000

004316

CMPB
BNE
BIT

000020

15i1186

8I7T

#SWOY, ISKR

000161
001206
037502

004270

MOVB
CLR
JSR

SWRITE aoornopa+é-SETUP FORA WRITE
J8SESCAPE
NO“ESCAPE ADDRESS
RO, asanoa
‘D0 THE WRITE

157

28DTADPB+16

: DONE?

BSL

it 3

,ves--annncn IF NO ERROR

MOV
MOVB
MOVB
MOV
JSR
RDD

9801A0PB+12, awcY(' DS ;CYLINDER
980TADPB+11. 98TRK.DS ; TRACK
J8DTADPB+10. 98SEC.DS :SECTOR
8DTADPB+16, - (5P) :STAYUS/ERROR INDICATOR ADDRESS
PC, JSERINDX
.#ORM DISPATCH INDEA
(SP)+,PC
REPORT PROPER ERROR

004304

MOV
JMP

CMPB
BNE
MOV
JSR

BEQ

BNE

3%:

DTRDPB
NOP

BEQ
MOV

030344
004300
poM277
004276
004304
030450

ERROR

ERROR
ERROR
ERROR
NOP

004322

100000

0043s0

172772
030370

001448

000151

004270

03750

004304

“4S§:

0C+43204

TEST 207
:NO--BRANCH
ovaope+1s -(SP) STRTUS WORD
CK
:SEE IF LOOP,
128

128

#8%, SESCAPE

42
43
44

NOZ-BRANCH

YES--BRANCH

:NO--LOOP

:ESCAPE TO 88 ON ERROR

pnnxrv ERROR
IUNSAFE ERROR
*NON-1,/0 ERROR
:TO SYN THE CALLING SEG OF ERINDX

REPORT THE

J8DTRDPB+16
cs

; DONE7
:NO--LOOP

NOP

TST
BEQ

NGP

78T

op CONTINUE

:INHIBIT WRITES?

MOVB
JSR

ABORT

ouhcxo aoornopa+é;DOING A WRITE CHECK
128
-BRANCH
391714 JERM. Rsc+lo ;xs “WCE"=1"

ERROR

DTADPB
te:

820, IS TSTNM
8s

RH REG+RMER]

BM]
JSR

037c0e

F NOT

1SET eno SECTOR sncounren FLAG
oruenuxss _DON'T REPORT THE BSE

15T

BNE
BIT
BEG
MOV
JMP

DTRDPB

gs:

#-1,BASFLG
108’

BRA

: ANY onxvs ERROR ?

44§
:BRANCH IF SO
cBITlS RM. REG+RMER2
.BAD SOPT ERROR
44§
“BRANCH
{F NOT
8-1,BRSFLG
‘SET ano SECTOR ENCOUNTER FLAG
JEXIT
108’
I1/0 ERROR

SWRCKD, 3#DTADPB+S;COMMAND=WRITE CHECK DATA
RO, 38RM03
;D0 THE WRITE CHECk

78
RO, 29RMO3

:YES-~BRANCH IF ERROR
00 A 2ND WRITE CHECK

28DTADPB+1¢E

: DONE"

MD-11- oanr 8 RMO3 Rnoa EXTENDED DRIVE TEST
MACY11 30¢ o &)
22-NOV-?7
CoRMFB.PLL
21-NOV-77
[M:10
»2% PROGRAM SUBROUTINES ###

S50

030226

001775

506
6507
§508
SS09
SS10
SS11
6512
6513
SS14

030230
030232
030240
030246
030254
030262
030270
030274

6516
§517
§518
5519
520

030304
030
030310
030312
030314

104042
104043
104044
000240
005737

6523

030330

001404

6515

8521

030302

0303

100057
012737
012737
013737
113737
113737
01274
004737
062607

BEG

000001
030344
004300
004277
004276
004304
030450

00I4l4
001206
0013S0
001354
001352

7§

104041

061010

€522 030322 032737

S§S24
6525
5526
6527
6528

(030332
(030340
030342
030344
030350

012737
000413
104046
013746
004737

€530
5531
€532
§533
S534
6535

0303b2
030364
030370
030376
(030400
030404

101002
013700
032737
001403
004037
001436

030406

105

SEG 013€

NO--LOOP

res--annncu IF NO ERROR
8], ISWCEFLG
'SET THE WRITE CHECK ERROR FLAG
884 SESCRPE
:ESCAPE TO 88 ON ERROR
anofnope+1e,aocvt 0S CYLINDER
J8DTADPB+11. a8TRK.DS ; TRA
980TADPB+10, 38SEC. DS sscron
8DTRDPB+16, - (SP) :STRYUS/ERROR INDICATOR ROCRESS
PC, 98ERINDX
#onn DISPATCH INDEYX
<s¢)+ PC
psponr PROPER ERROR

ERROR
ERROR
ERROR
NOP
75T

42
43
44
RM.REG+RMER1

PRRITY ERROR
:UNSRFE ERROR
*NON-1/0 ERROR
:S0 SYN THE CQLLING SEQ OF ERINDX:
;th onxvs ERROR

BEQ

g8s

;s BRANCH tF N

Y41

100000

004350

BNE

177777

001446

MOV
R
ERROR
MOV
JSR

8-1,BASFLG
108
46
ornopa+1s -(SP)
.CK

:SET BRD secroa ENCOUNTER FLAG
:OTHERWISE EXIT
:REPORT THE FATAL WRITE CHECK ERRGR
;STATUS WORD
:SEE IF LOOP QBORT OR CONTINUE

BHI
MOV
BIT
BEQ
JSR
_WORD

10
aoevpnss RO
#Sii1y, 98l .SWR
118
RO, 38STALL
STALL2

NO--BR
vss--cer sxxr ADDRESS
:STALL?
: NO--BRANCH
:YES--CALL STALL ROUTINE
'STALL TIME POINTER

BIT

88%:
83

004304
030410

6529 (030354 123737 001444 001103 12%:

ggg;

PAGE

8PL
MOV
MOV
MOV
MOVB
MOVB
MOV
JSR
RDD

ERROR

004322

08:04

001332
040000

001300

9%
i0$:

030606

00020C

118:

S53g

cHPB

RTS

BRANCH IF SO

881715, RM. REG+RMERD

no sopr ERROR ?

antna cT, 303:RFLGGO TO Nsxt

gggg

Egnons 41, 42, 43, 44, 45, AND'46.

: THIS SUBROUTINE CHECK FOR LOOP,

RBORT,

E54]

MOV

DTA+16, -(SP)

:STATUS WORD FROM OPB

ggza

RE TURN

#5439, ISR

:LOOP ON ERROR

SESCAPE

CLEAR ERROR ESCAPE FLAG

5E42

6646
SS4g&
EE47
SSye

030410

030416
030420
030424

032777
001402
000177
005037

001000
150464

001206

150522

SE4q (030430 032766 072006 200002
€Se0
€5C ]
€662

030436

001402

(030440

000137

ggg:

03044e

000207

SES3
EEEE
€cE?
£EEg

ggza

Q30444

O0Dlokle

021052

JSR

LOP.CK: BIT
18:

2s:

PC,LOP. CK

BEG
JNP

18
SSLPERR

BEQ

IMP

$SEOP

RTS

CLR

BIT

MOV

OR CONTINUE SWITCHES AFTER
IN USE

:BR IF
NOT
srnnr AT THE LOOP ADDRESS

sBITIY! exrxa'axrle'exrlo-extoa'exrox 2(SP)

(SP)#,(SP)

:RDJUST nsruan noonsss

THIS ROUTINE FORMS AN INDEX THAT WILL BE USED TO DISPATCH
; TG THE PROPER ERROR CALL.
THE INDEX IS FORMED BY EXARMINING
{THE STATUS-ERROR INDICATOR OF THE APPLICARBLE OPB.

: INDEX

STATUS “ERROR

cnecx snaop TvPE

:BR IF DRIVE NOT OFF(INE, UNLORDED
:PERSISTENT unsnrs OR FAtaL MAassBuS PQPXT\
: TERMINATE DRI

MD-11-DZRMF-B RMO3 nnoa EYTENDED LRIVE TEST
MACY]l 30(1046)
22-NOv-77
CoRMFB.PLI
21-NOv-77
[4:10
ax% PROGRAM SUBROUTINES ###

08:04

PAGE

5561
g562

:
:

5564
gggg

:
& BITOSIBITO3!<BITO9 & COMMAND=NON-1-/0’
"QLLlo BITOG! <BITO9 8 COMMAND=1/0>

§5623

€671

;

030450

010046

8572
§673
€574
§E~5
§576
8577

030462
030454
(030460
030464
030466
030470

010146
016600
011037
005001
032710
020402

§579
5580

(030474
030476

032710
006004

030502
030504

032710
050020

§578

030472

6681

030500

5584

30506

S582
€583

6585
5586

4 BIT12'BITOM

[

5568
gggg

J30510
030512

JSR

I5R
RE TURN

PC, IsERINDX

#DPB+16,-(SP)

;ADDRESS OF STATUS-/ERROR

ERINDX:

MOV

RC, -(SP)

:SAVE RO

: YES--BRANCH

: YES--BRAMCH

000006
061390

001037

R1.-(SP)
:SAVE RI
6(8P) RO
:GET STATUS/ERROR INDICATOR °QINTER
(RO),d8SVSTAT
;SAVE THE STATUS/ERROR INDICATOR
Rl
:START INDEX AT ZERG
(PC)+, (RO)
:FORM INDEX OF 07
BIT13!BI708:81701

BIT
WORD

(PC)+, (RD)
'FORM PARITY ERROR OR PORT REQUEST INDEX .2 °
BIT11!BIT10'BITO

17
WORD

(PC)+, (RO)
:FORM UNSAFE INDEX (4,7
BITinlBITI2'BITOY

BIT
.WORD

(PC)+, (RD)
BlTos!BITO3

0010332

BNE

001027

BNE

001023

BNE

; YES--BRANCH

5589
5530

030520
030522

000100
001017

WORD
BNE

BITO®
1§

: YES--BRANCH

.WORD

BITO9

CMPB

8150, -16(R0O)

§59]

032710

030524

032710

§533

(0305

001420

SE95

(030540

003011

(030546

001005

6592

594

€596
SE97

(030526

030532
(030542

122760

0001S0

005737

004322
10000C

(030550
(030556

032737
001401

e8]l

0305

005201

5603
5604
Se0S

030566
030570
030872
030574

5602

S607
€608
gg?g
gell
Eele

030560

030564

030600
030602
030e04

BIT

001000

€98
€599
S600

BIT

005201

012601
012600
000207

8GT

004350

00000&

NO--BRRNCH

BRANCH

IF SO

'SKIP

NOT REPORT BSE ERROR

$BIT1S, RM.REG+RMERZ
.BSE ERROR
X3
; BRANCH {F "NOT

INC

INC
INC
RSL
MOV

MOV
MOY
RTS

; INDEX=10---ERROR=4S OR 46

R1
Rl
Rl
R1,B(SP)

: INDEX=4--~ERROR=43
: INDEX=2~--ERROR=42
: INDEX=0---ERROR=41
;RETURN_INDEX TO USER

(SP)+.R!
(5P)+ RO
PC

: INDEX=6---ERRCR=44

:RESTORE Rl
:RESTORE RO
'RETURN FROM CALL

: THIS ROUTINE WILL PROVIDE R STRLL IN HILLISECONDS FOR
A SPECIFIC
SAMOUNT OF TIME IF BIT13 OF C.SWR = O OR
A RANDOM AMOUNT OF “IME

:1F BIT 13 OF C.SWR = 1,

:\4

;nnv DRIVE ERROR °

€el2

EE13
EE*E

NO--FORM INDEX OF O

'YES--1,0

BIT
BEQ
INC

38
q%:
c§:

'SOF TWARE TIMEOUT?

RM.REG+RMER]

INC

2s:

(PC)+, (RD)

:FORM 1.0 ERROR INDEX .10.°

TST

BNE

18:

005201

005201
005201
006301
010166

BEQ

177762

(PC)+, (RD)

)

:FORM NON-I/0 ERROR INDEX (&,”

030514

030516

INDICATOR

MOV
MOV
MOV
CLR
BIT
-WORD
BNE

032710
000050

:FORM INDEX
:INDEX IS ON THE STACK

€587

5588

SEG 2136

0 e*rstgxrxa:gxroeeexrox
2 BIt1iigiri0iBITOR

;

106

:STALLL CONTAINS SPECIFIED TIME FOR
;ggnvnzns THE TIME FOR TESTS 16-21.
Lb

TESTS O

AND STALL2

o RMF -8 RMO3 RMQQ EXTENDED
Eil
21-NOv- . 14:1C

DRIVE

7 EST

22#

020000

001300

025532
025632
177700
000001

000cee

08:04

PRAGE

107

JSR

TIME POINTER

sWHERE TO FIND THE STALL TIME

STALL:

MOV

d(RO)
4+, -(SP)

:PICKUP STALL

8EQ
JSR

18
PC, 98SRAND

: NO--BRANCH
: YES--FORM RANDOM NUMBER

BIC

8tC77, (SP)

1%:
23:

000e0c

H1ll

22-Nov-?7

0000C2

30(*?:2)

SUBROU

BIT
MOV

000144

030682
030664
03066¢

MA_Y] 1

PROGRAM

CLR
SUB

BLO
MOV
1ST
DEC
ESE
CMP

RTS

#s»

8 8STALL

#SW13,48C.SWR

as8LONUM, (SPY
-(SP)
£1,2(SP)

SEG

TIME

:USE A RANDOM TIME”

:AND USE IT FOR THE STALL TIME

:BUT NEVER > €4 MILLISECONCS
:CLEAR TEMP. LOCATION
*MORE STALL REQUIRED”?

T S
£100., (SP)
RO
0(SP)
g:

: NO--BRANCH
:STALL FOR ABOUT 1 MILLISECOND
:NOP TO KILL TIME
:COUNT
:LOOP IF MORE COUNTS NEEDED

(SP)+, (5P )+

:CLEAN OFF THE STACK

SEXIT

SOUTIE 10,2°QVI0E 8.2.0%, S1BK- B TER. BHRK JERRSIION
I LeE SRR
TiELLE
:IN THE RMO3.
;CALL

030670

1772776

830302

PeBESg

030732
000310

000101

030742
03074¢

000207

00000
150514
177?76

177776
15084¢e
1580542
15053¢

RETURN

JER

PC.J8TWOMS

TWOMS :

:ox

ac2555(595 oc

18 :

n8v

MOV
MOV
MOV

wagT
MOV

MOV
RTS

;REUIINE

:CAL

:”

JPKV . - (SP)
8¢5#32.)>

818, JPKV
8200, , aPKB
8101, OPKCS

4. 5P aPKy
(SPY+,

(SP)+, 3PS
PC

1S NOT

INCLUDED IN THE CALCULATED SEEK TIMES.

;sn¥£T;gep;gsgegrnpggcsgsgg $anus

;§5vs THE OLS 8L80K vé?ran RDSRESS
;

:SETUP NEW VECTOR ADDRESS
:LOAD THE CLOCK BUFFER
:START THE CLOCK

H
R
RenTS
RETURN
;AESYSEE
0L8 TACK
CLOCKFORVECTOR

:RESTORE
IRETURN

TO SOFTWARE COMPARE HERDER ON

ISR

RO, J8VERIFY

THE

OLD PROCESSOR STATJS

IMPLIED SEEKS

ADR POINTER

:ADDRESS CF DPB+10 (SECTOR NUMBER.

VERIFY:

n8v

MOV

R}.-(SP)

:SAVE R

BIC

(fi0)+ R1

CHP

nxsoogo J8BUFFER :STRIP FORMRY AND

J8BUFFER, 2(R1)

;CYLINDER NUMBER

cCHP

goeurren+a,(nx) ‘YE§°°"°” ABOUT TRACK SECTOR"

MOV
MGVB

J8BUFFER, a8CYL.RO ;SAVE THE EXPECTED AND THE
I8BUFFER3, 98TRK.RD ;RECIEVED CYLINDER., TRACK.

838788

THIS STALL TIME

- 00000000
= = OV ON £ o=
(W L) W= L) »—= N N0
NNNLENONNO—
WWWE-O0CWO
L
AN
N
W= (P

RE TURN

BNE

1$:

BEG

MEVE

;EET noéness OF DPB+10

i NO--BRANCH

:BRANCH IF GOOD

I8BUFFER+2.8SEC.RC

:AND SECTOR

BAC SECTOR BITS FRGM CiLINDER NUMBER

Ok?

MD-11-DZRMF-B RMO3 RMQ2 EXTENDED DRIVE

CoRMFB.P1I

S6r3
674

5675
Serb
S677
S678
5679
5680
5681
682
5683

S684
5685

Se86
gggg

031022
031026

031032
031036
031044
031046
031050
031056
031062
031066
031074
031076
031102

031106
031110

21-NOV-77

14:10

112137
112137

0013S2
001354

011137
012737
005740
109012
012737
004037
005037
032777
001404
000177
062700

012601
000200

001350
031050
000107
027054
001206
001000

222

004210

2%:

150044

150006
000002

4g:

:
:
:
031112
Q31114
031120

177776
041566

013704
012764
00S037
005037

036736
000040
004276
004300

5705
5706

031156
031162

005037
00%037

001206
037502

22-NOV-7?7

08:04

PARGE

00S612

000010

SEG 0138

(R1), a8CYL.DS
828 $ESCAPE
-(R®)
12
8RECAL ,DPB.AR+2
RO aochLL A
SESCAP
8SK9, asun
4§

: :ESCAPE TO 2% on ERROR
hnx IT TEST PC+M
REPORT THE ERROR
;LORD RECAL IBRATE ORDER COOE
:GO EXECUTE THE COMMAND
:CLEAR ennon ESCRPE FLAG
:LO0P ON ERR
'BR IF NOT

(SP)+,R1
RO

'RESTORE RI
TEXIT

JSLPERR
82, R0

:RETURN TO ERROR LOOP ACDRESS
: INCREMENT RETURN RODRESS

CLR
CLR
MOV

: INCRSE OF ERROR

(TYPTIM,

:SETUP

VECTOR

CLR
JSR

J8SESCAPE
RO, 98RMO3

4§
DTRDPB+16
18
3s
82, SESCAPE

001206

031216

113737

004277

0C13%4

MOVB

€715

031224

113737

031232
031236
031242

0127?46
004737
062607

031246

1C 042

031264
031266
031260
031262

104045
005720
000404
00S064
0D0OS0E4
00020C

£719

031244

€721
£722

031250
031262

03l2e€
01272

004300

DIADPB

Q004276

004304
030450

001350

001352

sRECAL aoornopa+éconnnuo = RECAL IBRATE

JsDTADPB+10. 9#SEC.DS

9sDTADPB+1[, J#TRK.DS

104043
104044

ERROR
ERROR

43
44

ERROR
TST
BR
CLR

CLR
RTS

; TRACK

:SECTOR

8DTADPB+16, - (SP) srn?usxsnnon INDICATOR ADDRESS
PC, d8ERINDX
# M DISPATCH INDEX
(SP)+,PC
REPORT PROPER ERROR

ERPROR

4g:

: TAKE NonnnL EXIT IF NG ERROR
:ESCAPE TO 2% ON ERROR

MOVB

ERROR

39:

;OPE POINTER
oueue IS FuLL
WAIT ON DONE

JsDtA0PB+12, ascyl' Ds : CYL INDER

1040491

00000E
00OO3W

:NO ESCAPE QRDDRESS
CALL THE DRIVER

MOV

MOV
JSR
ADD

2s:

INTERRUPT

J#RMADR, RY4
:PICKUP noonsss OF RMCS!
#B1 705, RMCS2(R4Y)' nnssaus INIT
98DTADPB+10
1Rncx-o SECTOR=0
98DTADPB+12
YLINDER =0

031256

013737

R1
INPS
8ISR, JRMVEC

MOV
MOV
CLR
CLR

757
BEQ
BPL
MOV

031210

AND RY

:D0 A MASSBUS INIT. AND RECA.
:RETURN HERE IF NO ERROR
"RETURN HERE ON ERROR

FIV

18:

FOLLOWED BY

JSR
RO, SRCHOO
RE TURN1
RE TURN2

004266
000440
005737
001775
10C030
012737

004304

108

(R1)+, 38SEC.DS
(R1)+ 98TRK.DS

THIS ROUTINE DESTROYS R1I

031166
031170
031172
031176
031200
031202

€213

€727
Sree

SRCHOO:

§704 031150 012737 000107 004270

€723
€724
€72
€726

MOV
RTS

ggls

031126
031132
031140
031144

€720

30(1046)

ruxs ROUTINE WILL PERFORM
A "MASSBUSTM INIT.
A “RECALIBRATE” ON THE DRIVE UNDER TEST.

§700
€701
€702
€703

E71&
€717
€718

IMP
ADD

3%:

5633
§694
gggg

£714

MOV
MOV
TST
ERROR
MOV
JSR
CLR
BIT
BEQ

00:206

gggé

707
€708
§709
€710
€711
712

MACY1l

PROGRAM SUBROUTINES ##»

MOVB
MOVE

5689
§690

6697
S698
6699

TEST

pnnxrv ERROR

45
(RO)+
4§
RMDALRY)

:1/0 ERROR
*ADJUST FOR ERROR EXIT
GO TO THE EXIT
: TRRCK AND sscron =0

RMDC (RY)
RO

: UNSAFE ERROR
'NON-1-/0 ERROR

:CYLINDER =
"RETURN

F-8 §M03 RMO2 EXTENDED DRIVE TEST
1M

000Ccoe

IS AN RTI

DORTI:

WHICH

O—-000-0000-

WWLIwWwWwWwWwwwn

[SrSrSiereretatereraded

EQWNE sno
=00o0
-

JSR

RETURN

STRTMR:

SAVREG

18:

IS USED BY

RTI

08:04

MOV
MOV

INITIALIZE

TIMING

THE

(RO)+
RO, R1
18

RTS

:START nr TIM.UP (MINIMUM)
srop AT TIM.PT
s CLEAR
ONE?
NO--BRANCH

#BUFFER, (RO)
szrup POINTER
$+CBITIE, aeTIM. P,sSET MINIMUM TIME TO MAXIMUM
81CBITIS,98TIM.DN :POSITIVE NUMBER
RESTORE RO-RS
'RETURN

ADD

s ot Pt ot P
s ot Pt

££
£L
£

Bt Bt (et Dt Bt e
s Bt B

£
n
£

S B

COUNT:

012702

OO00000000000000000000000
(W IV W W W W W Wt Wt
L) W
W W W W WL W

e Dt s et

18:

2s:
3s:
4s:

S§ -

THIS ROUTINE

MOV

THE E_APSED TIME

8TP,R3

FLAG,RS

JSR

PC, 38COUNT

MOV

TO THE AVERAGE

COUNTER AND

DESTROYS R2

MOV

RETURN

SERVO SETTLE

TIMERS USED BY THE “"TIMING ROUTI

:MAINTRIN THE MINIMUM AND MAXIMUM TIMES.

THE

: SAVE RO-RS

8TIM.UP,RO
$TIM.PT RI

: THIS ROUTINE WILL
ESEE

TESTS 8

PC,38STRTMR

CLR
CHP
BLO

MOV
MOV
MOV
RESREG

THE

PAGE 109

:RETURN FROM INTERRUPT

:ES{E ROUTINE WILL

WWwww
00008009000
Whwwww

J11

22-NOV-77

##% PROGRAM SUBROUTINES #%#
: THIS

UUNUU%
NN EW

urnnuniniviinnio
SIN NN IN
)

v-r7

MACY1l 30(1046)

8TIM.UP,R2

:PARAMETER POINTER

:FLAG=0=COUNT UP

:FLRG=-1=COUNT DOWN

RS
13

CMP

JPKC, (R+

LESS THAN PREVIOUS LOW?

MOV

IPKC, -2(R2)

vss-—snvs 17

3s
(R2)
(R2)+
9PKC, (R2)+
4s

: NO--BRANC
PYES--COUNT IT
: ADVANCE THE POINTER
'GRERTER THAN PREVIOUS HIGH"
;NO--BRRNCH

9PKC. B{R3)

GRERTER THAN THE HIGHLIMIT”

MOV
8GE

CHMP

BGE
INC
1sT
CMP
BLE

#TIM.DN,R2

IPKC|4 (R3)

MOV

aPKC, -2(R2)

BLE

CMP

chxup THE “UP” POINTER

15T
BEQ

TUSE I7
vss--enn CH

NO--PICKUP “DOWN" POINTER

NO--BRANCH

LESS THQN THE LOW LIMIT?

:YES--SAVE

NO--BRANCH

INC
IsY
ADD
ADC

(R2)
(R2)+
JPKC, (R2)+
(R2)4

CMP

$BUFFER+<4#814.>. 98TIM.PT

INC

BLCS
MOY

vss--counr I7
"ADVANCE THE POINTER
SADD THIS COUNT TO THE TOTAL

(R2)

:COUNT THIS READING

:NO--BRANC b

JPKC,ATIM.PT

;SAVE THIS COUNT”

:YES--WELL SAVE IT THEN

DOWN

TEST

MD-11-DZRMF-B RMO3/RMO2 EXTENDED DRIVE

CZRMFB.PIL
ST85
Ezgg

031464
031472

21-NOV-77 [4:10
062737
000207

000002

001412

'R - X4

TEST

MACY]l

30(1046)

KLl

22-NOV-77

a%% PROGRAM SUBROUTINES ###

6S:

ADD
RTS

#2,38TIM.PT
rC

PRGE

110

SEQ 3140

: ADVANCE THE POINTER
:RETURN

5788

: THIS ROUTINE

§790
§79]
E;gg

:1T WILL ALSO CHECK THE TIMES TO ENSURE
:THEY ARE WITHIN TOLERANCE AND IF NOT FLAG THE BAD TIMES.
ESTE THIS ROUTINE DESTROYS R2-RS

§794

JSR

;

RE TURN

783

1S USED TO TYPE

08:04

THE MINIMU

:MAXIMUM, AND AVERAGE TIM
ss FOR THE TIMINC TESTS

§79g

gzgg
{3

TRBLE

RO, I#TYPTIM

:GO REPORT

THE TIMES

'POINT TO THE PROPER TRBLE

5738

; TABLE: MSGADR
1

; ADDRESS OF ASCIZ MESSAGE NUMBER

5800

'MINIMUM TIME ALLOWED

§799

gggé
803

6804
6805
806
5807
5806
6809

5810
6811

5812
6813

S814
6815

031474

03i476
031504
031506
031512
021514
031516

031820
031524

031526
031530

031834
031536

012002

032777
001145
012237
012205
012203
011262
12704
10440]

000000
00S764

001527
104401

000100

147434

MSGADR2

MAX. ALLOWED

TYPTIM:

031526
001356

000014

18:

2%:

MIN.ALLOWED

MOV

LWORD
757

O
14(RY)

1ASCTZ MESSAGE POINTER GOES HERE
oxo ANY COUNTS QCCUR?

MOV
JSR
JSR
TYPE

IRY)+. -(SP)
PC, a8$5B2D
PC’ anssupns
nSGo

PUT (R4)+ ON THE STACk
CHRNGE tRY)+ TO DECIMAL ASCIZ
rvps WITHOUT LERDING ZEROS
“0 Js*”

BEQ

; NO- -BRANCH

MOV
TYPE

#TIM UP,RY

6$
MSGMIN

012446
004737
004737
104401

5821

031562

00142l

031570
031574
031600
031604

O0le446
004737
004737
104401

177776
025242
025472
0496033

MOV
JSR
JSR
TYPE

L2TRY), -(SP)
PC, 98$582D
PC’ 98SSUPRS
MBEL OW

031616
031622
031626
031632
(031634
031640
Q31644
031650
(031652
031654
031660
031664

004737
104401
104401
012446
004737
004737
104401
005724
000421
104401
O0le44t
004727

025472
046026
046010

JSR
IYPE
TYPE
MOV
JSR
b
IYPE
TST
BR
TYPE
MOV
JSR

PC’ JuSSUPRS
,MSGOUS
' MSGMRX
tRY)+,-(SP)
PC, a8$sB82D
PC’ 38§SUPRS
MSGOUS
tRY)+
4§
,MSG.SP
22TRY),-(SP)
PC, 3885820

5822

€823
£824
§825
826

031564

104401

157

046141

TYPE

£827 031610 010346
6828 031612 004737 025242

€829
€830
£831
€832
6833
6834
€835
€e3c
6837
€e38
5833
€B4C

025242
025472
046026

0O4614]
17777&
(025242

MOV
JSR

3%:

TRBLE POINTER

xnuxaxr TIME REPORTS?
: YES-~BRANCH
:ADDRESS OF MESSAGE NUMBER
:ADDRESS OF MESSAGE NUMBER 2
"PICKUP THE LOW LIMIT
TAND THE HIGH LIMIT

031542
031544
031550
031554

€820 031560 005724

sPICKUP THE

:suos JSWR
78
(R2)+,2%
(R2)+.RS
(R2)+'R3
(R2),Re

5816
6817
6818
6819

025242
025472
0460z6

‘MAXIMUM TIME ALLOWED

eIT
BNE
MOV
MOV
MOV
MOV

BEQ
TYPE

046001

(RO)+,R2

!nq)+

,MSG.SP

ha -(SP)
PC. 3885820

!QDDRESS OF ASCIZ MESSAGE NUMBER 2

,PQRQMETER POINTER
YPE THE MESSAGE
NO--BRANCH
“MIN="

nnv sssxs BELOW THE LOW LIMIT

;

PUT -2(R4) ON THE STACK
: CHANGE P2(R4)T0 DECIMAL ASCIZ
:TYPE WITHOUT LEADING ZEROS
*BELOW THE nxnxnun OFTM

T R3 ON THE STACK
; CHANGE ha TO DECIMAL ASCIZ
'TYPE WITHOUT LEADING ZEROS

: *MAX="

PUT (RY)+ ON THE STACK
: CHANGE tR9)+ TO DECIMAL ASCIZ
:TYPE WITHOUT LERDING ZEROS
;ANY SEEKS RBOVE THE HIGH LIMIT
:NO--BRANCH
ves--nsponr HOW MANY
PUT -2(R4) ON THE STACK
: CHANGE P2URY) T DECIMAL ASCIS

MO-11~ DcRHF B RMO3- RHOE
EXTESDED DRIVE
\&

MFB.PL11

8841
S842
5843
5844
5845
€846
S847
S848
S849
S850
6851
5852
S8S3
58c4
5855
5856
S8S7
S8S8
S859
S860
S8l
S8
S863
S864
5865
S866
€867
5868
S8ES
SB870
5871
5872
SE7T3
5874
£87S
EB7e
5877
s8?
S879
S880
c881
5882

5883
S884Y
5885
£886
S887
c888
58689

£890
€89}
S89¢
€893
Sea4
689S
SE9

(031670
031674
0%1700
031702
(031706
031712
(031716
Q031722
031724
031726
031730
031734
031736
Q31740
031742
031742
031746
031752
131756
(31762
031766
031772
031776
320
032006
032010
032012
032014
032020

21-NOov-7

004737
10440)
0i0e4
00473
004737
104401
104401
0l2446
012446
0l12446
004737
006126
100001
005216
004737
004737
104401
104401
016446
004737
004737
104401
010537
001404
00S00S
000644
104401
000200

TEST
=22

MACY11l

PROGRAM

025472
o46062
025242
Qas4ze
Q46026
046017

SUBROUTINES

JSR
ISR
TYPE

PC. 3985820
PC’ 388SUPRS
, M8GOUS

TYPE

MOV

MOV
MOV

.’

:”

:FORM THE AVERAGE

PC, 3885820

;CHANGE

PC ' 388SUPRS
SGO
s

LERDING ZEROS

T Re on THE STACK

JSR

IYPE

;1S THE REMARINDER OVER HALF?

TO DECIMAL ASCIZ

:TYPE WITHOUT LEADING ZEROS

MOV
JSR

E(RH) -(sp)
Jusse2d

;CHANGE -2(RY) TO DECIMAL RSCIZ

TYPE
MOV

MSGNUN
hs 2s

i"SEEKS
T

BEQ
CLR
BR
TYPE

78:

tRY)+,-(SP)

(R4)+, -(SP)
(R4)+’ -(SP)

SEG J14l

: CHANGE ha TO DECIMAL ASCIZ
:TYPE WITHOUT LEARDING ZEROS

;i NO--BRANCH
; YES--ROUND UP

TYPE

68:

MSGAVG

WITHOUT

s§
(5P)

JSR

Quelee

ha -(SP)

; TYPE

111

: "ABOVE THE MAXIMU

PC,3s$D1IV
(SP)+

JSR

031526

MABOVE

PAGE

JSR
ROL
BPL
INC

SS:

(0B:04

###

PC, 38SSUPRS

MOV
4s:

L1l

22-NOvV-77

JSR

TYPE

025634

025242
025472
046026
046141

30(1046)

RTS

PC ' 388SUPRS

RS
18
MSGNON

;PUT -2(R4)

ON THE

STACK

i TYPE HIT?Ogg LERDING ZEROS
; NEXT HESSQGE POINTER

:IF NONE EXIT
:NO MORE THAN 2
JEXIT

; THIS SUBROUTINE WILL INCREMENT THE TRACK
;NUMBER (R2) BY THE AMOUNT SPECIFIED BY 'IT’.
i CALL

;

JSR

RETURN]

032022
032026
032030
032034
032040

032042
(32046
032050

020237
001410
063702
020237
003402
013702
005720
000200

001602

INCTRK:

CMP

i YES--EXIT

CMP
BLE

R2,IbLT
1€’

:TRACK TO BIG”

TST

(RO)$

QEJSST FOR RETURN 2

; 7141S

RTS

_SUBROUTINE

THAN LTI1S

; LAST TRRCK COMPLETED”

es’

MOV

cs:

R2,JsLT

BEGQ
ADD

18:

; TRACK NUMBER GRERTER

: TRACK NUMBER INCREMENTED

RETURN2

001604
00le0e

001e0e

RO, 38 INCTRK

aslT R2

aoLT R2

WILL

INCREMENT

NO--UPDRTE TRACK
iNO--EXIT

:YES--SET TRACK TO LAST TRACK

THE

CYLINDER

iNUMBER (R1) BY THE AMOUNT SPECIFIED BY 'IC’.

{CALL
;

(220€2
02208t

0e0137
0O014iC

ooice7y

JSR

:
;

RETURNI
RE TURNZ

INCCYL:

CMP
BEG

RO, a8 INCCYL

;CYLINDER NUMBER GREATER THAN LC1S

:CYLINDER NUMBER INCREMENTED
R1l,JsLC
2%

LRST CYLINDER COMPLETED"
YES--EXIT

MD-11-DZRMF-B RMO3 RMO2 EXTENDED DRIVE

CZRMFB.P11
897

sage

032060

oaaogw

21-NOV-77 14:10
063701

oaoxag

gggg

032076

032100

00572

18:

oooaoo

:
:

2388

910

032102

€912
5913

032114
832115

d8IC,RI

gng

“},9bLC

TST

(RO

MOV
RTS

032116
32124

113766

005366

100003
013766

000207

004314

000002

001716

000002

CLR
R

RETUR |

DECSEC:

MOVB

;sNO--UPDATE CYL INDER

-ngxggs$ TO BIG”?

; 25 gr CYLINDER TO LAST CYLINDER

RETURN

noJus

FOR

RETURN 2

18:

g gnn THE STACK
! SUBROUTINE ENTRY

RM.REG+RMDQ,2(SP)

.PUT THE SECTOR nooasss ON THE STACK

; DELR;
MENT THS ?

RTS

tTURN

8L
MOV

Is
'BR IF
NOT CORREC xon NEEDED
PRMLMT+22.,2(SP)
OVERFLON OCCURED. FORC' TO MAXIMUM RODRESS

:
oaaias

6926
5327

032136 012702
0321:5oxooex

104418

2355 835133 8?3981 051776

Bl
b
1
O

IS USED TO FILL THE

oaeise
. 3367

2335 835128
G413
032162 oooeov

000400

RETURN

JSR

PC, 38F ILBUF

FILBUF:

%R;REG

18:
2% :

MOV
MOV

8256. R2
go (RIH+

001712

£936

nbv

s
INC
cnp

Es%gsc
RTS

gggg

ogurrsn R1

DRTA BUFFER

SK g oR

3 9 CLIN EEE

oo ess WORDS

no--uponrs oxsx ADDRESS

9857
RE So - RS
:RETURN

T;nLnT+ea,Ro

: THIS ROUTINE WILL CLERR THE eurrsn BY

£937
£938

:SETTING EACH WORD TO *177400"
‘CALL

gg:?

53939

59S2

SEG 0142

2(SP

5320

€947
5942
§949
€950
€96]

112

‘WITH ADDRESSES FROM O TO 21 WITH EACH RDDRESS
.eeznc STORED IN 256 CONSECUTIVE LOCATIONS

5321
5922
sqea

€943
€944
594G
5946

PRGE

DEC

: THIS SUBRGUTINE

5917
gg}g

€942

08:04

5:Lc Rl

-(SP)
PC,DECSEC

5916

5931

M1l

22-NOV-77

.ngs ROUTINE DECREMENTS THE SECTOR RDDRESS.
.l.

5906
§907

ggig

30(1046)

ADD

001574

gggg

6911

MACY11l

228 PROGRAM SUBROUTINES ###

001576

3303 835872 803 8 001574

6301

TEST

032164

104412

032166
032172
83517
2

012701
012702
815723
10122

032216

OQllliec

032208
0@5503
(3221
032212
032214

010122
810155
101
010122
010122

177400
051776
077776

CLRBUF:

18:

JSR

RE TURN
SAVREG

MOV
MOV
MOV
MOV

MOV
MOV
MOV
MOY
MOV

MOV

RO, 38CLRBUF

:SAVE RO - RS

#177400,R]
SWORD TO FILL BUFFER WITH
8BUFFER | R2
‘FIRST noonsss OF BUFFER
caurrgni §12.#22.> ,R3 B ADDRESS+2 OF BUFFER
R, (R2)+
FYLL LiGRDS 1, 9,...249,...5625

Rl (R2)+
RL,(R2)+
R1.(R2)+
Ri,(R2)+
R1.(R2)+

Rl1,(R2)+

;FILL
"FILL
‘FILL
'FILL
"FILL

WORDS
WORDS
WORDS
WORDS
WORDS

2,10, ...250,
...562¢
3.11....251,...8627
§.12,...252....5628
S.13,...263,...5629
B, 14....254,...8630

;FILL WORDS 7,15,

255,

...5631

N1l

MD-11-DZRMF-B RMO3/RMO2 EXTENDED DRIVE TESTY
MACYL1l 30(1046)
22-NOV-77
CIRMFB.PILL
21-NOV-77 14:10
##% PROGRAM SUBROUTINES #x#»
S953
S9S4
9SS
$956
gggg
5959
S960
S961

032220
032222
Q32224
032226
032230

0i0i22
020203
103766
104413
0006200

MoV
cMP
BLO
RESREG
RTS

; CALL
;
;

S966
S967
$368

032232
032234
032240

104412
162706
005001

000004

5970

032246

005066

000002

5971

5972
5973

032242

032252

012716

0S1776

012702

000020

5974
975

032256
032260
032260
03¢262

020123
001063

5977
5378
S979

032266
032270
032272

00106l
020123
001057

5976

032264

011603

CKSCTR:

18:
2s:

JSR
RETURN

SAVREG
sSuB
CLR

;FILL WORDS 8,16,...256,...5632
; DONE?
; NO--BRANCH
;RESTORE RO - RS
;RETURN FROM CALL

MoV

MOV

816.,R2 ;LOOP COUNT (16#16=256)

CLR

MOV
cMP
BNE

020123

CMP

;GET

Rl,(R3)+
7S

; WORD 1
; BRANCH

;BRANCH IF BRD
; WORD 3
; BRANCH IF BRD

; WORD 4
; BRARNCH IF
;WORD S
;BRANCH IF
; WORD &
; BRANCH IF
; WORD 7
; BRANCH IF
; BRANCH IF
;WORD 9
; BRANCH IF
; WORD 10
; BRANCH IF
;WORD 11
; BRANCH_IF
;WORD 12
; BRANCH_IF
;WORD 13
;BRANCH IF
;
WORD
14
; BRANCH_IF
; WORD 15
; BRANCH IF

R1l,(R3)+

cMP
BNE
CMP
BNE
cMP
BNE
CMP
BNE

5989
5990
5391
99¢
€993
5994
5935
$99%
5987
£998
£999
6000
6001
6002
€003

032316
0323
032322
0323
0323
032330
032
032334
0323
032340
032342
032344
032346
032350
032352

001045
020123
001043
020123
001041
020123
001037
020123
001035
020123
001033
020123
00103}
020123
001027

BNE
CMP
BNE
CMP
BNE
cMP
BNE
cMP
BNE
CMP
BNE
cMP
BNE
cMP
BNE

7S
R1,(R3)+
78
R1,(R3)+
78
Rl.(R3)+
4 )
Rl,(R3)+
4 )
Rl, (R3)+
4 )
Rl, (R3)+
73
R1, (R3)+
7

600S
6006
€007
€008

032356
032360
032362
0323e4

001025
005302
001336
06271&

BNE
DEC
BNE
ADD

020123

CMP

020123

CcHP

00:000

3¢:

; NO ERRORS

(SP),R3

020123
0010SS
020123
001083
020123
001051
020123
001047

032354

BNE
CMP
ENE

2(SP)

032274
032276
032300
032302
0323
032306
032310
03231e

032314

;SAVE RO - RS
;RESERVE TEMP. STORARGE ARER
; FIRST SECTOR
;FIRST RDDRESS OF DATA BUFFER

84, 5P
Rl
8BUFFER, (SP)

S980
5981
S3982
983
s984
5985
5386
5987

6004

113

RO, a8CKSCTR

4 )
R1,(R3)+
7S
R1,(R3)+
7
Rl, (R3)+
4 )
Rl, (R3)+
78
R1,(R3)+
4

€988

PRGE

; THIS ROUTINE IS USED TO CHECK THE DRTAR BUFFER
;FCR ADDRESSES O THROUGH
21 WITH ERCH_RDDRESS
;BEING STORED IN 256 CONSECUTIVE LOCARTIONS

S362
5963
gggg

599

R1, (R2)+
Re,R3
13

08:04

R1l, (R3)+

R1,(R32+

73
R2
cs
#512., (SP)

1ST RDDRESS OF THIS SECTORS DRTA

; WORD 2

;WORD 8

; WORD 16

IF BRD

BRD
BARD
BRD
BARD
BRD

BRD
BARD
BRD
BROD
BRD
BRD
BRD

;BRANCH IF BAD
;FINISHED WITH THIS SECTORS DARTR”
; NO--BRANCH
; YES--FIRST ADDRESS OF NEXT SECTOR

SEQ 0143

Bl2

MC 11-DIRMF-B RMO3 RMQO2 EXTENDEC DRIVE TES”
MuCY LD 30 1046,
22-NOv-?T
JCRMFB P
21-N0¢=-77 14:4C
#e2s PROGRAM SUBROUTINES esa
6009
60i6
6011
soxg

0332370
O 372
7%

005201
02370
1

601
6019
6015

Q032406
032414

123737
oxogg

6018

N32426

6016
6017

13?

104413

0000J2

001444

032430
032432
03243
03243

000200
010304
161604
C1040S

K024

032442

042705

177740

012705

000040

£025

032440

006204

001002

6027

032454

006305

062705

032260

o239
6031
6032
6033
6034

032470
032474
032476
032504
032512

00S766
001015
013737
113737
0i2737

000002

6036

032522

105166

000002

032530

012737

032540

001206

032540
03354

032777
001323

001000

146372

000002

146352

001444
000040

001103
146342

6028

0324

6029 032462 016337 177775 001126

6035 032520 104021
6037
6038

032526
032530

6040

032536

6039
6041
6042

000404

104022

6043
6044
6045
6046
6047

(0322550
(0325
(032560
032566
532670

77
001310
123737
101713
032777

2833

032600

CO0I1S

6048

032576

001272

c§:
£S:

HOV
RDD

J#BYPASS RO
84, SP

RTS
MOV
SUS
MOY

RO
aa RY
<s¢) RY
q,RS

004300
004277
032522

8f.u
£ 9PB
PH]

RESREG

es:

001350
001354
001206
9s:
108:

11S:

:MCOVE TO NEXT SECTOR
: DOME?
:NQ-v
s ERFOR_OCCUR”

£S
: NO- anangflofl
SEERR.CT, acsERrLc“MAX. E
OCCUSRED?
6$
6-;anga
onE

nerunn raon CRLL
:FORM WORD NUMBER AND
:ADDRESS TO CONTINUE FROM

; WORD NUMBER

8NE

:BRANCH IF NOT A MULTIPLE OF 16

ASL

157
BNE
MOV
MOVB
MOV

2(S
:FIRST ERROR?
10;
: NO-~BPANCH
J8DTADPB+12, ascyl. DS chxuosn NUMBER
980TADPB+1
], J8TRK. os : TRACK NUMBER
§9S, SESCAPE'
; ScAPE 7O 98 ON ERROR

coMB

2(SP)

MOV

RDD

MOV

EPROR
BR

MOV

ERROR
BIT
BNE

81C37,RS

840, RS

:SFT TO WORD ib
: ADDRESS

-a(h3> J8SBNDPT :SAVE BAD DARTA

11§

hsponr THE ERROR

'SET ERROR SWITCH

811S, SESCRPE

; :ESCAPE T0 115 on ERROR

#SW09, ISWR
S

; LOOP ON snnonv
YES

' REPORT THE ERR

BIT
BNE
CMPB
BLOS
BIT

#SWO1, ISKR
srop DATA COMPARE?
4§
! YES--BRANCH
J8ERR.CT, aosrantnnx rnaonqv
5%
YES-#5W0S, ISWR
REPORT ova 1ST ERROR PER SECTOR”

IMP

(RS)

BNE

YES--BRANCH

605 1

:THIS ROUTINE WILL MOVE THE 16 WORDS OF THE

£0S4

MOV

SETBUF:

SRVREG

gggg

,QEEERED PATTERN INTO THE ORTAR BUFFER.

gggg
£057

6058
€059
€060
]

6062

€063
£0e4

PASE 1IN

ASR
Bic

03244

a324

R}
PRMLMT+22 Rl
18
a(sp,

0G!1103

001332
Q0000w

5019
5020
6021
6322
6023

4§:

INC
CMi
BHIS
761

001712

08:04

:
032602

104412

032604
(32610
032614
0322

012701
013702
016003
0123¢l

032624
(32626

012321
012221

032622

012321

051776
004272
003146

18:

#NX, RO

sPATTERN NUMBER INDEX TO RO

MOV
MOV
MOV
MOV

#BUFFER,R1
a-ornové+q,aa
PAT.PT(RO) |R3
(R3)+, (R4

'FIRST noonsss
:WORD COUNT
chxup PATTERN POINTER
MOVE WORD 1 INTO DATA BUFFER

MOV
MOV

(R3)+. (R1)+
R3)+.(R1)+

‘MOVE WORD 3 INTO DATA BUFFER
*MOVE WORD 4 INTO DATA BUFFER

JSR

MOV

PC, 98SE TBUF

(R3,4+ (R1)+

:SAVE RO
- RS

nov

WORD 2 INTO DATA BUFFER

SEY Suue-

MD-11-DZRMF-B RMO3/RMO2 EXTENDED DRIVE TEST

CZRMFB.PLIL
6065

21-NGV-77 14:10

032630

MACYL1

012321

MOV

S0es
o3oed 0153
b6 Bises
818381

Mv
mv

6071

MOV

6069
6070

oaesuo
wa

607

20(1046;

22-NOV-77

#%% PROGRAM suenourznss T

012321
812331

MOV
MOV

18321

012321
815351

0~ O3eee
Joaa13
Sl
GRS iR

(RBel(RL)e
(RPTRDS
’

PAGE

n°¥‘
HoRg &3 INTO
HOvE HORB
INTO BATR
BATA BUFFER
BUFFER

novs WORD 9 INTO DATA BUFFER
novE Rg io §nr
onrn UFFER

MOV

(R3)+. (R1)+

: MOV

MOV
ADD

(Rg‘w’(mn
8VE ug8 12 img Bam EUFFER
#16.,R2 ;DONE”?

(R3)+, (R1)+

(R3)+. (R1)+
+

MOV

INT

nov

uon

INTO DARTR

13 iuvo onrn

BrEeec 3
b
:

MOV

gggg

RE TURN

ggnxnsr THE DATA BUFFER

6086

6085

032672

6082

032704

104412

032674
032700

012701
Q13702

051776
004272

032706

016003

003146

DATCMP:

JSR

SAVREG

Pc,bconrcnp

:PATTERN NUMBER INDEX TO RC
:SAVE RO - RS

MOV
MOV

#BUFFER,R1
aaornopé+u R2

MOV

qu PT(RO),R3

PRTTERN POINTER

suB
BNE

(R3)+, (R1)+
4§

: CHECK WORD 1
:BRANCH
IF oérrsnsnr

£100 032724 001040

BNE

4§

6102

032.30

001036

2%8;

835;34

°8é°3T

6111
El12

032752
032784
032756
032760

162321
00I0eu

6094
6095

(032712
032712
0327148

5046

16232!
001044

6097 032716 1€2321
6101

03¢

162321

18:

23:

CLR

SUB

(R3)+, (R1)+
+,

NO ER oa

; CHECK usao

;agSNCH F D?FFERENT

BNE

SUB

y§

i CHECK WORD 4

6106 0327 601332
gffié
832;:5
15?825
6109
032746
?22331
£110 032750 001026

ese

gn
Sge
gu
BNE

?33)

1 S
3R3)¢'(R1)*
(23)0,(91»
4§

:BRANCH 1F DIFFERENTY

€113

SUB

€103 032732 162321

£i26

(032762
002764
032766
032770
032772
032774

162321

001022
162321
001020
1£2321
0010.6
162321
OCICI+

SUB

:FIRST noonsss OF BUFFER
uono cou

(R3)+, (R1)+

114
EllS
E116
£.17
£1.8
€113

BUFFER

S°’?B§e
R &8 - rs

6085

6093

FFER

UFFER

: THIS ROUTINE COMPARES
A 16 WORD DATA PATTERN

609G
6091

SEG OIS

:MOVE WORD S INTO DATA BUFFER

6082

gggg

115

(R3)+, (R1)+
(Rg)+,<R1)+

MOV

607 ?
28 S{Sggi
60
326
062762 000020

(R3)+, (R])+

08:04

(R3)+,(R1)+
+

Riye

SUB
BNE

(R3)+, (R11+
wa

BNE
SUB
BNE
SUB
BNE
SUE

4%
(R3)+, R1)+
4$
(R3)+, (R1)+
4$
(R34, (R11+

BHE

(R3)+,(R1)+

'BRANCH

: CHE

IF ogrrensnr

usao

ggSNCH“iPo?rrsnenr
RRNCH
F DIFFERENT
8
u&mg
Bnnncn IF DIFFERENT

:CHECK WORD 9
: BRANCH 5; DIFFERENT
: CHECK
D 10
'BRANCH IF DIFFERENT

:CHECK WORD 11
:BRANCH IF DIFFERENT
:CHECK WORD 12
:BRANCH IF oxrrsnsnr
:CHECK WORD 13

!BRANCH

CIFFERENT

MD-11-DZRMF-B RMO3 Rnoa EXTENDED DRIVE
CIRMFB.PLIL
21-NOV-77
14:10

6121

08:04

PRGE

116

162321

SuB

(R3)+, (R1)+

,pHscx WORD 14

61249 033004 601010

BNE

4§

snnncn IF DIFFERENT

6125
6126
6127

032776

Dl2

TEST
MACY11 30(1046)
22-NOV-77
s24 PROGRAM SUBROUTINES ###

033006
033010
033012

162321
001006
062702

0158 B33028 o0i3x

00CO20

6130 033022 084413
6131 033024 600207
6132

033026

010104

6134

033034

006204

6133

6135
6136

6137

6138

033030

03303
033040
033044

03304

162704

113737
016600
012737
jud013
016600
105116

033154
033156

6160

033166

£169

£€l6l

6162
eie3

E;é:
Pg

(033164
033174

033176
033204
033206

:WORD NUMBER

ASL

MOV
MOV
MOV
MOV
157
BNE
MOV

R1, 99$BDAC~
!SAVE THE ERROR INFORMATION
R3’ JuSGOACR
:
(R1)+, 98$B0DAT ;
(R3)+. 388GOORT
(SP)
' 1ST DATA COMPARE ERROR>
68
: NO--BRANCH
J8DTADPB+12, 3%CY(. DS chxuoen

MOVB
MOV
MOV
ERROR
MOV
coMB

980TADPB+10, ansec os sscro
16(SP),RO
T tEST
P
#SS, SESCAPE
: ESC e ro ss ou ERROR
13
QEPORT THE ERR
14(SP),RO
:PATTERN NUMBER xnoex
(SP)
:SET THE ERROR SWITCH

001122
001120
0Cl1126
00lia4

033114
033122
033126
033134
033136
033142
033146

ADD

£148
6149
6150
6151
£152
6153
€187
£158

ASR

032712

010137
010337
012137
012337
00S716
001023
013737

033144
(033146

:FORM THE WORD NUMBER

suB

062705

006305

113737

RDD

004300

001350

004876
000016
033136

001382

004277

001354

000014

c§:

000404

012737

03316

CO1206

000002

145754

123737

001444

001103

013766
000705

001332

00001t

(04014
032777

001315
101004

000118

MOVB

001206

£%:

7§:

MOV

ERROR
BIT

880FFER,
RY

R3,RS
PAt.PT(RO),RS

828, R

-(né) -(R])

:FORM RDDRESS TO CONTINUE FROM

DRESS

RECONSTRUCT THE SAD WORD

S80TAOPB+
11, I8 TRK.0S ; TRACK

87$, SESCAPE

14
#SW01, ISWR

. :ESCAPE TO 7$ ON ERRCR

:REPORT THE ERROR
:STOP DATA COMPARE”?

BNE

BHI

IMP

(RS

:NO--CONTINUE AT NEXT WORD

CMPB

8s:

No--enng
AN UP STACK
REETORE 58 - RS

R1,RY

00314&

033054
033060
033064
033070
033079
(033676
033100

6169
£155
£166

:CHECK WORD 16
annncu IF DIFFERENT
: DON

MOV

MOV
SUB

6140
bl41
6142
6143
6144
£145
6146

033106

051776

(R3)+, (R1)+
4s
#l6.,R2

gk
t8p)e
RESREG

010305
166005

6139 033052 064341

£147

SUB
BNE
ROC

SEG S1ME

MOV
B8R

YES--EXIT

J8ERR.CT. 9$ERFLE:MAX. ERRORG?
NO-~-BRANCH

J8BYPASS, 16(SP; ; YES--ERROR EXIT
3s_

EL16E

ers ROUTINE WILL FILL THE DRTA BUFFER (256#22 WORDS) WITH

ElE8
£169

'BE THE aass OF THE RANDOM NUMBER GENERRTOR FOR THE
"NEXT 254 WORDS.

Ei71]

SCALL

EIE?

A_RANDOM PATTERN.

£170
€172
€173
e174
£i?5

€176

THE FIRST

TWO WORDS OF EVERY

256 WILL

:NOTE: THIS ROUTINE DESTROYS Rl AND R2

033210

023214

012701

01370z

0S177¢

0OCi7ie

)

:
:

JSR
RE TURN

FILRAN:

MOV

MCY

RO,
3%F ILRAN
#BUFFER,R!

PRMLMT+22,R2

:MAXIMUM NUMBER OF SECTORS

MD-11-DZRMF-B RMO3/RMO2 EXTENDED ORIVE

CZRMFB.P11
6177
6178
6179
gig?

21-NOV-77 14:10

033220
033224
033226
033230

004037
005302
10037M
000200

03343C

6190
6191

033232
033236

013746
013746

025630
025632

6193

246

01270f

053776

6199
6200
6201
6202
6203

033242

3252
033254
3260
033266
033272
033276
033302
033304
033306
(033310

012702

010103
011237
016237
004037
012637
012637
00SO4E
162322
001441
012737

5204
6205

033316
033320

064342
010237

6207

033330

012237

6206
6208
6209

6210

6211
6212
£213
6214
£215
6216
6217
€218

6219
g220

M -

€221
g222
223
e224
£22S
geek
E22?
€228

20(1046)

Eld

22-NOV-77

JSR
DEC
8PL
RTS

08:04

PAGE

117

SEG 0147

RO, 98RANPAT
R2
1S
RO

; THIS ROUTINE USES THE FIRST TWO WORDS OF THE
:READ BUFFER TO GENERATED A RANDOM PATTERN.
THEN
:THE READ BUFFER IS COMPARED TO THE PATTERN GENERATED.

£185
£186
6187
g{gg

6194
6195
6196
6197
6198

MACY1l

#%% PROGRAM SUBROUTINES ###»
18:

6182
6183
6184

€192

TEST

033324
033334
033390

033342

016337
012337
010204

162704

03334
033350
033352
033384
03335
033360
0333
033370

006204
005716
001002
105116
104015
104016
032777
001012

033402
033410
033412
033414
033416
033420
023422
032426

032777
001002
00103
101333
005726
001402
013700
000200

033372
033400

123737
101406

'NOTE:
:CALL
:
:

THIS ROUTINE DESTROYS R1-RY4
JSR
RETURN

RO, 38RANCK

RANCK:

MOV
MOV

J8SHINUM, -(SP)
J8SLONUM. ~(5P)

052776

MOV

025632
000002
033430
025632

MOV
MOV
MOV
JSR
MOV

MOV

025630

18:
033362

001206

MOV
CLR
SuB
BEQ
MOV

sBUFFER+1024.
,R1’ : RANDOM PATTERN ADDRESS

R1,R3
(R®) ,a8SLONUM
2(R2Y, 3uSHINUM
RO, 98RANPAT
(SP)+,@8SLONUM
(SP) +. J8SHINUM
-(SP)
(R3)+, (R2)+
4s
83$, SESCAPE

RDD
MOV

-(R3),2(R2)
R2, 98$BDADR

001126

MOV

(R2)+,9%8BDDAT

MOV

001124

0S277¢&

145850

001444

001103

000002

145530

2%:
3%:

¥
001332

6%:

: GENERATE A RANDOM PATTERN
:RESTORE PRESENT RANDOM NUMBER
:NO ERRORS
'ARE THESE TWO WORDS DIFFERENT”
: NO--BRANCH
:-ESCAPE TO 3% ON ERROR

:RECRERTE THE BRD WORD
:ADDRESS OF BAD DATA
: ADDRESS OF GOOD DRTA

:BAD DATA

(R3)+.988GODRT
RZ, R4

ASR
157
8NE
COMB
ERROR
ERROR
BIT
BNE

RY
(SP)
28
(SP;
15
16
#SW09, ASWR
5§

:FIRST ERROR
: NO--BRPNCH
'YES--SET ERROR SWITCH
:REPORT THE ERROR
‘REPORT THE ERROR
1L 00P ON ERROR?
: YES-~-BRANCH

BIT
BNE
CMP
BHI
TST
BEQ
MOV
RTS

85W01 , ISR
s
R1,R3
18
(5P)+
68
J8BYPASS, RO
RO

:STOP COMPARING?
: YES--BRANCH
A
:ALL DATA BEEN COMPAREC”
: NO--BRANCH
:ERROR OCCUR”
NO--BRANCH
: TAKE ERROR EXIT
CEXIT

CMPB
BLOS

4§

R3’ 9#8GDARDR

;L0PY IT INTO R3 FOR LATER USE
:PRIME THE RANDOM NUMBER GENERATCR

MOV
MOV

SuB

001000

THE PRESENT RANDOM NUMBER

#BUFFER+512.
,R2 ;READ BUFFER ADDORESS

001122
001120

;SAVE

$B0FFER+512.
,RY4

:GOOD DATA
:FORM WORD NUMBER

TC 256

98ERR.CT, I#SERFLE :MAX. ERRORS OCCURREC”
c$
: YES--BRANCH

:THIS ROUTINE FILLS 2 E?B WORD BUFFER WITH A RANDCM

;PATTERN OF WHICH T H
;OF THE PRTTERN.

RST

TWO WORDS ARE

THE

BRSE

MD-11o’nnr-6 RTM01 Rnoa sxrsnoso DRIVE TEST

CeRMFB.PLI

21-NOV-7

a2®» PROGRAM SUBROUTINES &

6233
6234

s CALL
:

gggg

6235
4

033430

010246

62490
6241

033436
033440

000402
004737

6239
6e42
6243
6c94
6245
6246
2535

033432
033444
0334s0
033484
0334Se
033460
033462

012702
013721
013721
00S30
003370
012602
000200

000200
025532

025632
025630

249

NOV
-77

:ARDDORESS OF THE BUFFER

RETURN

RANPAT:

MOV

R2,-(SP)

:SAVE R2

1$:

BR
JSR

2$
PC, 8SRAND

: GENERATE
A RANDOM NUMBER

2$:

MOV

MOV
MOV
DEC
8GT
MOV
RTS

8286. /2. ,R2

9#8LONUM, (R13+
JuSHINUM. (R1)+
R2
18
(sp)+,na
RO

:GENERATE 256 WORDS
PUT LOW WORG IN BUFFER
:PUT HIGH WORD IN BUFFER
:DONE?
: NO--BRANCH
:RESTORE R2
CEXIT

NOTE: THIS ROUTINE DESTROYS R1-R3

gggg

6258
6259

:CALL
:

033464

004737

025532

033474

113702

025633

033470
033500

113701

013703

6260
6261
geb2
6262
6264
6265
6266

033504
033506
033510
033514
033516
033520
033522

105701
002403
123701
103003
000241
106001
000772

62
6269

033526
033530

(002403
122/02

0335

000241

6267

033S24

0335

6e72
8273
274
6275
6276
£27?
£278
€279
€280
g2l
€282
£283
£284
E28S

033540
033542
033544
033550
3
033554
033556
033560
033Se2
033564
033566
033570
033572
(033574

106002
000772
023703
003413
000241
003
005503
001371
010103
03
060203
005203
003364
005402

6267
EcBe

(033600
033e04

02370
002003

ee86

033576

063003

0007e2

RANADR:

025630

001712

18:

3%:
00GOOS

4g:
cs .

001572

0C1E74

£$:

7s:

nno szcron

3 DTADPB+12).

JSR

RO, 38RANADR

JSR

PC, 98SRAND

: GENERARTE
A RANDOM NUMBER

MOVB

QusLONLMS | 1R2

'FORM TRACK IN R2

RE TURN

MOVB
MOV

2s:

105702

6270

6271

025632

SEG Jlu4e

8ADR, Rl

ADDRESSES AND SAVES THEN IN THE DPB (DYRDPB+10),

£252
6253

118

RO, abRANPAT

6261

6257

PAGE

: THIS ROUTINE GENERATES RANDOM CYL INDER, TRACK

£250

6256

08:04

JSR

6238

MACYIl 30(1046)

FlE

1518
BLT
CMPB
BMIS
cLC
RORB
BR

8$LONUM, R1

aasu:nun RA

as
PRMLMT+22.R1
38

Rl
18

7518

BGT

68’

RORB
BR
CMP
BLE
cLC
ROR
ADC
BNE
MOY
SWAB
ADD
INC
BGT
NEG

R2
ys
I#FC.R3
78
R3
R3
68
R1,R3
3
R2.R3
R3
X
R3

CMP
BGE

Q8LC.F3
83

BLT
CMPB
cLC

8rR

S
85, R2

:FORM SECTOR IN Rl

FORH CYLINDER IN R3
ENSURE

THE SECTOR

IS BETWEEN 0O ANC 31

: CHECK MAXIMUM SECTOR ADDRESS

;ENSURE THE TRACK

:ENSURE

IS BETWEEN O AND 4

THE CYLINDER

_
15 BETWEEN FC AND .C

MD-11-DZRMF-B RMO3/RMQ2 Exrenoso DRIVE TEST
MACY1l 30(1046)
22-NOV-77
CoRMFB.PII
21-NOv-77
10
s2% PROGRAM SUBROUTINES x#*#»
6289
6290
6291
6292
6293
6294
6295
629

6297

6298
6299
238?

033606
033610
033612
033614
033620
033622
033624
033626

000241
006003
000772
023703
003403
005203
000303
000764

033634
033640
033644

110237
010337
000200

033630

110137

001572

8% :

004276

9§

004277
0C4300

6302

6305

:NOTE:

*CALL
:

5382

6310

033646

032777

000200

3l2
£213
6314
£31S

033656
03362

104401
000410

033664

6318
6319

033714
033720

012703
013704

004037
000771

045154
001300

033740

€321

033724

013737

001300

£320

£322
2353

MOVB
MOV
RTS

R2.3sDTADPB+1]1
R3.98DTADPB+12
RO’

MOVB

R1,380TADPB+10

IS USED TO

033654

033704

033704
033710

033722

033732
033736

001430

000240

010437
000207

00130C

6325

145264

JSR

RETURN

GETSWR:

BIT

. . §58:
L4s:
18:

BEQ

;SAVE SECTOR ADDRESS

:SAVE TRACK ADDRESS
:SAVE CYLINDER RDDRESS
:RETURN

2s:

#SW07, ISWR

; (C.SWR)=DESIRED CONTROL SWITCHES
:RERD CONTROL SWITCHES?
NO--BRANCH

TYPE
BR
_ASCIZ

6SS
,,TYPE RSCIZ STRING
t4$
GET OVER THE ASCIZ
<CR>(LF>/SET SWRiH7>=0/

MOV
MOV

#MSG.CS,R3
a8C.SWR . RY

JSR
BR

RO, 3uGE tNUM
18’

MOV

C.SWR, SAVCSW

NOP

001302

PC, 38GETSWR

MOV
RTS

RY, a8l. SWR
PC’

“CONTROL SWITCHES="
;PRESENT CONTROL SWITCH SETTINGS

:GET THE NEW SWITCH SETTINGS
; _COMMA
:PERIOD

:SAVE PREVIOUS VALUE

: "DOUBLE PERIOD-SAVE NEW SWITCH SETTING
*RETURN FROM CALL

TYPE AN ASCIZ MESSAGE AND THEN

PINPUT AN RSCIZ STRING ANC CHANGE THE STRING TO OCTAL
:1F REQUIRED.

INOTE:
:CALL
:

THIS ROUTINE DESTROYS Rl

£333
€334
6335
£336

:
:
:
:

RETURN]
RE TURN2
RE TURN3

GETHUM:

MOV

€331
£332

;
:

£337
Eggg

£343
344

SEG 0149

INPUT THE “CONTROL SWITCHESTM.

£328
£229
£33C

€341
e342

119

THIS ROUTINE DESTROYS R3 AND R4

: THIS ROUTINE WILL

8226
£327

€340

PARGE

{IF SWR(07>=]1 THE PRESEMNT SETTING WILL BE TYPED AND THE NEW
:SETTING IS RERD AND STORED.

6206
£307

6316
6317

R3
7%
38FC,R3
qs
R3
R3
78

ers ROUTINE

£303
6304

6311

cLe
ROR
BR
CMP
BLE
INC
SWAB
BR

08:04

MOV

MOV
JSR

8ADR,R3

BNUM, kY
RO, o/#3C TNIIM

:
:
033740

033744
03374¢
033750
(023782

010337

104401
000020
O1044E
1044Ce

03374¢

18:
2s:

: ADDRESS OF ASCIZ MESSAGE

OCTRL NUMBER

; INPUT_TERMINATED WITH A COMMA
WITH a SERI0D
uxrn DOUBLE PERIOD
:RY=INPUT NUMBER AND

:R2=R4#32 FOR ALL
1 THREE RETURNS
TYPE
LWORD

MGV
TYPOC

R3,2$

R4, -.SP,

:SAVE MESSRGE POINTER

:TYPE THE MESSAGE
'MESSAGE POINTER GOES WERE
:SAVE R4 FOR TYPEOUT
..GO TYPE--OCTAL RSCIIALL

)
DIsl7s

MC-11-DIRMF-B RMO3 RMO2 EXTENDEDC DRIVE
CCRMFB. Pll
21-NOv-77 14:10

534S
6346

033754

104401
104411
86260
403

033744

#x2

MACY11l
PROGRAM

p4s20C

30(1046)

SUBROUTINES

éé”
036450

22-NOVv-77

, SLASH

MOV
an

(SP)+ Rl
RO, a8tk .CHR

;

118
CEC

RO, 3#CK . NUM

Ts‘nu

—-s

(R1)

n --L op
YES--EXIT

BEQ

IYES--EXIT

BNE

(R1)

ves--rennxnnvonv

(R1)

ROUTINE

TERMINQTOR AFTER A PERIGCOD?

8., (R1)+
18

157

NO--DOUBLE PERIOD”
:NO-~LOOP
NO--LGOP

(RO +

DCUBLE PERIOD

RY,R2
R2
R2

connn--vosxr:on THE
*NUMBER IN CRSE IT
11S THE PRIORITY LEVEL

RO+

PERIOD

R2
Re
RO
IS

(EXIT

USED

CHANGE

MODIFY

; THE TEST PARAMETERS.
1T
GIVES THE OPERATOR
i THE CAPABILITY OF SPECIFYING HHICH DRIVES TO TEST, WHICH
i TESTS _TO RUN_AND HOW MANY TIMES TO

;REPEAT EACH TEST
8 407

4iQ
03W104
034110

03u4lek

L3413
Q34140

AB2als

PRHgnvnsc

1304401
00040¢

é4g§s:

104411

034100
£3410C

TYPE

036210

"ASCIZ

DRVSEL
65¢

GT.PRI
GT.PR]

:SAVE

:NO

- RS

DRIVE SELECTED

..TYPE RSCIZ

STRING

;GET OVER THE ASCIZ

<CR><LF/ DRIVE(SYL)

SDLIN
(SP+ RI
Jgfi
ng.aatw.cun
Y

IR 4

“CR*

TERHINATOR AFTER A COMMRA?

13
108

MOV
SWAB
ASR

NPUT NUMBER

ENE
R

ASR
ASR
RTS
:THIS

; CHECK THE NUMBER
.ILLEG INPUT

P TERMINATED NITH o
DOUBLE PERIOD
3
Enéo?

(RO)+
(RO)+

757

00ce00

(1]

;]
TERMINATED NITh “ v
TERMINATED
W
n ol

CMPB
BNE
7578
10%:

”

:picIT 0-9
:DECREMENT THE INPUT POINTER

TSTB

9§ :

:ADDRESS OF FIRST CHARACTER
: CHECK ONE CHARACTER
:ILLEGAL CHARACTER

7578

0000s8e

:READ AN ASCIZ STRING

. 00 00

SSV

SEG 0180

i CARRIAGE RETURN

4%
757
TST

Al ;

120

63
S§

£S:

PAGE

JSR
18

:
c§:

08:04

###

TYPE

RDL IN

03ec!t

§§§§§?
pO4037
033744
034026
034024
034022
005720

TEST

no
ngTY F R
TRING
2 3n8 8335 2

LLEGRL cnanncrsn
.ynnnxncs RE TURN

MD-11-DZRMF-B RMO3 RMOZ EXTESDED
CIRMFB. Pll
21-NOv-77 14

222

PROGRAM

30(1046)

SUBROUTINES

lHE

22-

# »e

Ov-77

00000~
036264

08:04

PAGE

121

: [1] /n

GT.PRI
GT.PRI
GT.PR!

034100
D34100
034100
p34]1Se
005301
012702
004037

MACYll

:DIGIT 0-9

[V)
1]

Q34142
D341I4Y
034146
034150
034182
034154

DRIVE TEST

87.R2

UPPER LIMIT OF INPUT
,CHECK THE DIGIT(S)
s ILLEGAL INPUT

RO, J8CK. bic

: INPUT TO LARGE

ool3l1e

034204
034206
034210
034214
034220
g34eee
034230
034232

o0131e

034234
034234
034240

GT.PR2:

J8TSTNMS
TSTNHS+2
GTTIST

RESTO
xxr

;s TYPE

; RERD AN RSCIZ STRING

; DOUBLE PERIOD’
i NO--BRANCH

000001

I
- OCRUI ’

18:

GTvSTRE:!

000123

1%:
001314

00010l

cs:
001314

000104
034%00
024406

052737
o0ogees

00000l

3%:
CCl3le

YES--EXIT

TSTNMS+2

OPNFLG
OPNFLG+2
(R13,8#’S

8777,

0Cl314

000124

140000

STRING

;POINTER TO
R

0G1314

036000

ASCIZ

!{GET OVER THE RSCIZ

000002

000777

ES--SELECT TEST

QTQBIT(RE) DRVSE( SET EHEUSELEgTED DRIVE BITS

0000S6
0000se

DESELECT ALL TESTS

034250

A ..

nrnexr<aa> DRVSEL :SET THE onxve SELECTED BIT
ubsTHE LINE TERMINATED?
:NO-GET THE NEXT DRIVE
ES

3%:

GTTST!L:

034a4e

W
TER MINARTED
WITH

s TERMINRTED WITH
A “,“ OR "CR"
TERHINQTED NITH .

TSTNMS

611513

(R1),8'7
2s
036000 TSTNMS
TTST3
(Rl) 8'A

33
8140000, TSTNMS
GTTST3
(R1),%'D

4§

TSTNMS+2

NO TEST SELECTEL
;NO

TESTS

;ALL

SEEK

:NO--BRAN

TO BE OPENED
TESTS’

YES--SELECT TESTS 0-10
;ALL

TIMING YESTS’

: NO--BRANCH
: YES--SELECT TESTS 12 18

;ALL ADDRESSING TESTS?

; NO=-BRANCH
: YES--SELECT TESTS 16 8 L7
;DATA_TEST?

:NO--BRANCH

:YES--SELECT TEST 20

SEG JIEl

11-DZRMF-B RMO3 RMO2 Ex ENDED
|1
JIRMEB Fil
10
21-NOv-7T7
MC

S ET
(458
6459

6460
6461
6462
6463
646M4
6465
6466
B467
6468
6469
6470
6471
6472
6473
6474
BH47S
6476
bN77
6478
6479
6480
6481
b482
&483
c484
648S
6486
6487
6488
6489

034410
034414
034416

121127

000105

000002

001316

036134

S§:

036134

pocoe2

X¥

034660
000017

001506

000055

001314

CMPB

sxencxssn TEST?

JSR

RO, a8CK.OCT

;OCTAL DIGIT?

BR
MOV
INC
JSR
BR
INC
ASL

ASL
ASL
RDD

034660

MOV

R2 R4

8GT
MOV

034660

8s:

000037

C34e32

00ec04
DSeceM

OCl150e

00!13i4

conaxns HIGH 8 LGW DIGITS

VALID TEST NUMBER

BIC
ASR
ASR
ggs

817, RY
RY
RY
Rg

:CLEAR UN+ TED BIT
'SHIFT THE BITS
'SHIFT THE BITS
'SHIFT THE BITS

BIS

BITS(R2),TSTNMS(R4)

ADD

cMp
8GT
CMP

(R1),8"GTTsty
Rl
RO, I8CK.OCT
GTisT1

R2.RS
RI
RO, 38CK.OCT

RS, R2

:COMBINE HIGH 8 LOW DIGIT

RS
RS

R2. 8§TN-1
GT¥sTi
9% ,R2

GTTST1

RSL
RSL
MOV
BIC

9
R2
R2,RY
o3? RY

BlS

;SELECT TEST

TEST ST RING’
NO--BRANCH
vss--novs TO NEXT CHARACTER
S0CTAL DIGIT?
: NO--BRANCH

78
R1
RS

R2,-(SP)

ASR
RSR
RSR
ASR

:CONVERT T °ST NUMBER INTO AN INDEX

'YES--SAVE IT
IMOVE TO NEXT CHRRACTER
:0CTAL DIGIT
:NO--BRANCH
! YES--MOVE TO NEXT CHARACTER
:SCALE HIGH DIGIT

MOV

034660

NO--BRANCH
vss—-sn £ 17
:MOVE TO NEXT CHARACTER
:OCTAL DIGIT
:NO--BRANCH
'MOVE TO NEXT CHARACTER
:SCALE HIGH DIGIT

o--en NCH
snvs THE TEST NUMBER

MOV

034660

: NO--BRANCH
PYES--SELECT TEST 21

GTtsT,
R2,9%

BGE

Q34572
034574
034576
034602

RS
RS
RS, R2

R2’ #$TN-1

ASL

03454
034566

GT¥sSTY
R2, RS
RI
RO, 38CK.OCT
63
R1
RS

CMP

ASL
ASL

i ¥

122

(R1),8'E

BR
INC

000022

PAGE

g;
ea?gsgnns+e

MOV
INC
JSR

036134

08:04

BNE
gés

CMPB
BNE
INC
JSR
BR

036134

6430
B4y

E4g32
6493
b49Y4
&435
6436

J1l2

DRIVE TEST
MACY11l 30(1046)
22-NOV-77
2%% PROGRAM SUBROUTINES x#a

3§’ R2

(s¢)+ 93

nq
RY
RY

:VALID TEST NUMBER”
: NO--BRANCH
*1S THE FIRST NUMBER OF THE
:STRING SMALLER THAN THE LAST?
yo--eRQNCH
.:avr ENDING TEST NUMBER

iGET STRRTING TEST NUMBER

:STORE ENDING TEST NUMBER

'SHIFT ENDING TEST NUMBER
:SHIFT TEST NUMBER
:COPY TEST NUMBER INTO R4
:CLERR LOWER BITS
:SHIFT
'SHIFT
;SHIFT
SHIFT

exrslpaJ,TSTNMS(bq)

THE
THE
THE
THE

TEST
TEST
TEST
TEST

NUMBER
NUMBER
NUMBER
NUMBER

:SELECT THE TEST

SEQ Jlse

HD 11-DZRMF-B RMO3-RMO2 EXTENDED DRIVE
SRMNFB.P11
21-NOV-77 IN4:10

6513
6514
6515
8516

034640
034644
034650
034652

062702
020237
101761
162702

6518

034660

000000

6517

6519
6520
6521
6622
6523
6524

Q34656

034662
03466N
034670
034672
034676
034700

000402

00520}
121127
00144]
00S737
001005
00S737

6525
€526
6527
6528

034704
034706
034712
034716

001002
000137
121127
001004

6530

034726

00040S

6S33
6534

034736
034742

000137
005201

6536

034746

001402

6538
£539
BSY40
6541
6542
£S43

034754
(034760
034?62
034766
034770
034774

00S737
001042
00S737
001037
000137
006201

654

035002

001414

(035006

001402

000002
034660
000002
9%:

6535

6537

6544

6546

6547
6548
6549

6550
£551
6663
6554

6655
£S5c
£557

£558
€559
£S60
£S6l
gggg

034°30
034734
034744

03470

034776
035004

035010
(03S014

035020
035022
0350
03S030
035034

035036
035040
035042

03504
(035052
0350S4
035060
035062

121127
001402
105711

000137

121127

£S6E

034320

001320

001322
034234
0000SE

3%:
4$:

000137
00%737

001022
005737
001017
000137
005201

105711
001+02
000137

00S737
001005
00S?37
001602
000137

:STORE TEST NUMBER HERE

00:322
034230
034234

001320

R}
(R1),8'
G175t
TSTNMS
18
TSTNMS+2

18
GTTSTI
(R1),#'/
2%

B8R

BIS

CMPB
BEQ

(R1),8",
38

:BR IF YES
;
“OPEN""?
NO--BRANCH

; YES--SET BITS FOR TEST TO OPEN

; "COMMATM?
:BR IF YES

GTTIST]
Rl

:NO
novs TO NEXT CHARACTER

BEQ

BR IF 'CR*

OPNFLG
OPNTST
OPNFLG+2
OPNTST
GTTSTI
Rl

:ANY TESTS TO OPEN
:BR IF YES
*ANY TESTS TO OPEN *
‘BR IF YES
:NO--START AGAIN
novs T0 NEXT CHARACTER

BEG

GTTste

YES--BRRNCH

BEQ

ves--aanncu

TST8

JMP

JMP
TST

(R1)

GTTST2

(R1),

8’

(R1)

GTTSTI
OPNFLG

OPNTST
OPNFLG+2
OPNTS
GT.PR2
Rl

1¢:

OPNFLG
OPNTST
OPNFLG+2
OPNTST
GT.PR2

034230

:MOVE TO NEXT CHARACTER
1 "PERIODTM?
: YES--BRANCH
'ANY TEST SELECTED THIS CYCLE?
'BR IF YES
'ANY TEST SELECTED THIS CYCLE ?

BITS(R2), OPNFLGfRH)

BNE
TST
BNE
JMP
GTTSTE: INC

001322

; CONTINUE

JMP
INC

CMPB

18:

GTHsTy

BNE
JMP
CMPB
BNE

TSTB

034234
001320

IS8
BEQ
JMP

TST
BNE
TST
BNE
IMP

(R1)
18
GTISTI

;NO--GO GET NEXT CHARACTER

“PERIOD"?
“CR"

;ANY TESTS

TO OPEN

03E070
028072

10441z

00027
000C0C

OPNTST:

SAVREG

CLR
JPN.CT: .WOPD

(PC1+
D

:BR IF YES
:ANY TESTS TO OPEN ?
:BR IF YES
:NO--GO START TESTING
novs TO NEXT CHRRACTER

“CR"?
,YES--BR NCH
:NO--GO ASK FOR

TEST

:ANY TESTS TO OPEN °
:BR IF YES
:ANY TESTS YO OPEN ?
‘BR IF YES
:NO--GO START TESTING

:OPEN THE SELECTED TEST FOR (HANGES
03S06E

SEG 01€3

TST
BNE
TST
BNE
JMP
GTTSTS: INC

105711

22&;

6Se7
£ESEE

034234

2s:

123

.WORD

18:

0000S4

PRAGE

: INECREMENT THE TEST NUMBER
; SEE xr FINISHED
:BR IF
N
.CORRECT TEST NUMBER

034234
000057

001314

08:04

#2,R2
R2, 9%
[
82, R2

001316

0000Se

Kl2

22-NOv-77
#¥»

ADD
CMP
BLOS
SUB

GTTST3: INC
GTTSTY: CMPB
BEQ
TST
BNE
TST

6529 034720 0Sebeb4 001506 001320
6531
6632

TEST
MACY11 30(1046)
=22# PROGRAM SUBROUTINES

:SAVE RO - RS

:START WITH TEST O
:COUNT STCRED HERE

MD-11-DIRMF-B RMO3 RMO2 EXTENDED ORIVE
CCRMFB. Pll
21-NOVv-77 14:10

035
83s172
P

035072
000022

035072

034234
03s0Te

OPN.1:

OPN.2:

iMOVE TO THE NEXT TEST

{NO--OPEN_THE NEXT TEST
iRESTORE RO
: YES--GO_ASK FOR MORE TESTS
SETUP TO USE THE

GTTSTL
OPN.CT,RS
RS
OPN CT,R3

EST NUMBER RS AN INDEX

001215
001620
0o1isee

18:

,,TYPE ASCIZ STRING

TEST

; ;GET OVER THE RSCIZ

OPN.CT,-(5P)

; ;SAVE OPN.CT FOR TYPEQUT

2
0

,,TYPE DIGIT

SCRLF

OPNPRM:

00lses

i%:

es:
001670

39:

iPICKUP PARAMETER POINTER
:SAVE THE VARIABLE INDICATOR
;FIRST ADDRESS OF TABLE

(SP)

;CHECK FOR
A VARIRBLE

2s
2[
18

(RO}+, (R2)+

% 3
J8PRM, (SP)
RY
(SP)

33
OPNPRM
(R4)+

18
PRMLMT (RY)
OPNPRT
MSG. SP

PRMMSG
(RY) , 4%

038302
4s:

fSUPPRESS tEQDING ZEROS

PRMPT (RS ) , RO
(RO), - (5P}
#PRM, R2

(R2)+

cs:

NUMBER
i3 TEST
NU

; 5 GO TYPE--OCTQ% RSCII

OPNPRM

hPT(RH) -(SP)
€0

PC, 3885820

0leel!

SEG 0154

:TEST NUMBER TOO BIG?

104403
0

045200

124

; SKIP THE INCREMENT

OPN.2
OPN.CT
#8$TN-1,0PN.CT
OPN.2

) cs

03s07e

Q46141
001720

PAGE

OV VD=

001320

03slee

013746

08-04

GE INOEX
7.R3’
;CLEAR LOWER TEST BITS
iSHIFT TEST NUMBER
3
iSHIFT TEST NUMBER
3
:5 HIFT TEST NUMBER
OPEN THIS TEST?
1 T sins>opanc(ka)
P
N
NO--MOVE TO NEXT TEST

03507e
000017

001506

L12

22-NOv-77
###

MACY11 30(1045)
PROGRAM SUBROUTINES

NO»

poo41l
00523?

n SR ERERRREBZRG

e P b
s pme
s
e Bt oee
Pt
s Pt o
Pt

o
n

80
A

035074
035076

(o]] 00000000 00
(%] WWWWwWWwwWwWw W)
v, v

6569
ec70
634 1
gST2
6573
6574
6575
6576
6577

TEST
223

PC . 9n8SUPRS

., SLASH

(SF)+ R}

:G0 MOVE THIS ONE
; DONE
;BUMP THE POINTER
;MOVE

THIS VARIABLE

INTC

THE

: COMMON AREA
iGET THE VARIABLE INDICATOR
;ZERO THE INDEX

:CHECK FOR A VARIABLE
;GO _GET IT
:0UT OF VARIABLES
{UPDATE THE INDEX
;IS THE MAX.

MAGNITUDE NEG?

:YES--THEN IT IS THE PATTERN
! TYPE SPACES

iTYPE

THE

T YPE

(1] l.

NAME

THIS

RPT(RY)

VARIABLE

THE

STACK

:: TYPE_WITHOUT
CHANGE hpr(nq>LEADING
TO DECIMAL
ARSCIZ
ZERGS
9

{READ AN ASCIZ STRING

MD-11-DZRMF-B RMO3/RMO2 EXTENDED DRIVE
CZRMFB.PLL
21=-NOV-7?2 14:10
6626
ssag

035334
035340

004037
035260

5629

035346

035354

ggag

035354

Mle

TEST
MACY11l 30(1046)
22-NOV-77
»#%# PROGRAM SUBROUTINES ¥x#

036210

JSR
33

eess Bledig B3eqya
6630
6631

03
035

105731

Ss:

1711

6%:

0353;2

122721

b4l

035402

00632

6643

(035410

005301

83241

8 b4

sgwg Sggw

8334

R B

0323e 00613

ggas

gggg

BE90 032308 198310
pb42
6644

6645

6646

038404

C35412

6650

03S430

6654

uas:ua

000137

03002
000056
036020

8g157o

104:01

6660

035470

104411

5662

4724y

8%
:

0351:1

OPNPAT:

1036512
035514

6671

036520

£670

035516

6672 0355e4 D01346
6673

035

6675
£E76

035532
03534

6674

(035530

£E78
7
BEnn
6673 035842
6680

035544

18:
0000SH

cnpe

BAN. N2

gs--co CLOSE THIS TEST

NS--R K rgnTHI?
vnnxneLs AGAIN

DEC

:BACK THE POINTER UP BY ONE

MOV

PRMLMT(RY),R2

;UPP R

ke
M

PN. X2

RO,d8CK.0IG

gPU'XI
R2,RPT(RY)
98
i
;¥gs

PQT

R
nev A
P

28
kPT(RHJ -(SP)
msc.spe1

MOV

(SP)+ Rl

28
1578

BEQ

VARIA

V509
R -CREAPtER"FRe BoteLe PERIOD?
5--LLOS

IMIT OF

CHE

INPUT

HE DIGIT(S)

ERMINATE ?§HA *,” OR "CR"

OPN.N1

RO, a8tk. CHR

TERMINATED NITH n "l

sgv
I?flI
°h
"
‘MovE TO NEXT vng&EeLs

T;gg 522 ES

L
snv; RPT(RH% rogsg¥?§ngL DIGITS)
B
OhESBKLE:
- -

Rsno RSC1Z srnch

PICKUP POINTER

?
L

g
:" (R1)

NE Snanng

RGE

HARACTER

RETURN

oxch 0-9
“CR" AFTER THE PERIOD"

op~ N2

vss--co CLOSE THIS TEST

(R1)

-"cn" AFTER
A DOUBLE PERICD"

BR
DEC

OPNPAT
R1

:NO--LOOP
'BACKUP THE RSCII POINTER

JSR

RO. I8CK . NUM

BNE

1578

036450

VORATRRE

A "CR"” AFTER THE PERICD”

gouats zszxgA THIS

CMPB

cs:

& vARIA

;’.,(R1)+

BEG

000743
005301

(03%cce

BTSNTR

ggnpnn
18

105711

(035442

SNPRT

001533
004037

(5§)

PNPRM

0353534
10S711
122721

Tara

Jgn

001531

(R1)

ROL IN

2222 ggg
035338
6667 oaséig 035514
6668
6669

nga

036210

SEQ 0155

:CHECK ONE CHARACTER
éhksggkecg?§figgsn

ol
:DIGIT 0-9
;cn"ngY 0

JSR

125

;“.r

68
78

035776

pE22 Bf2id8
{8 Byeiss
6657 oas:ss oxs:ua 001570
gg2q Bi2ugs 1BIBT overwe
472

78:

bo64

ee2l 035:38
§f§§‘3
001570
832433
Bs

6661

BYS:

PRGE

0835362
038410

RO, 98CK.CHR

08:04

OPNPART

(R1)+

opnbnr

OPN, X2

NO--PER10D?

NO--LOOP

'YES--GO START TESTING
: CHECK THE NUMBER

:TLLEGAL INPUT

:TERMINATED WITH A

“,"

“CR"

MD-11- DZRHF 8 RM03/RHOE EXTENDED DRIVE
CZRMFB. P11
21-Nov-77 14 10

035546

035776
036014

TEST
=#%#

MACY]11

PROGRAM

30¢( 0 6)

SUB ROU TINES

22-N Ov-77

ys:

R2,RPT(RY)
R2

OPNPRM

003206

104401
000403
010046

035600

RO
#PATO,RY

OPNWDS:
1$:

WD/

RO, -(SP)
PC,d8385820

PC QOSSUPRS
MSG.E
| (SP)
tR9) (SP)+ _RI

RO, 3#lK.CHR

036210

126

: TERMINATED WITH
A

iSAVE THE INPUT NUHBER
:OPEN PATTERN 0?

SEQ 01Sk

; NO--START aT BEGINNING OF PARAMETER TABLE

iSAVE RO -

:START WITH WORD O
-,'YPE

659

tus

025e4e
02sH472
o4s1se

PRGE

; TERMINRTED WITH
R *.*

OPN.NI}
001570

08:04

RSCIZ

ST RING

; iGET OVER THE RSCIZ

T RO ON THE STACK

: CHANGE ko T0 DECIMAL RSCIZ

TiSEWITHOUT LERDING ZEROS

.snvs (R4) FOR TYPEQUT

GO TYPE--OCTAL RSCII(QLL DIGITS)

ksno RSCIZ STRING
:PICKUP THE POINTER
CHECK ONE CHARRACTER

:ILLEGAL CHARACTER
cnnnxnce RETURN

:piGIT 0-9

:BACKUP THE RSCII POINTER

RO, J8CK.
NUM

R2,

(R4)

(RY)+

0357854

035754

7%:

RESREG

MoV

JSR
RESREG
BR

:TERMINATED WITH
A ".“
i TERMINATED WITH
A
*

iSAVE THE INPUT

iMOVE _TO NEXT WORD

P INCREMENT THE COUNT
COUNT TO LRRGE?
NO--BRANCH

; YES--GO CLOSE THIS TEST

iNO--PERIQOD?
iNO--BRANCH ILLEGAL INPUT STRING

[+ 1]

000056

; CHECK THE NUMBER

i ILLEGARL INWPUT
i TERMINATED WITH
A =, OR "CR"

YES--BRQNC
:”CR" AFTER THE PERICD?

:*CR* AFTER THE "PERIOD-PERIOD""

—B00-8858rk8

£ OO0 L E£C0—N—N)r
~N

Q
Q

g3s7se

cs:

000020

6720

O
IO —-4DOm—
DDMO~ ATt
uoODVMNZ X IMULN TOIZUVIOWMBBIAY
DL
O mT (3]
VO~
D

33:

4s:

LHWO
L2 17

e
s B
e

U EWMe-

e Bt
Pt 0t Pt

036450

DO N

oo oo
NNNNAINNNN

6710

108:
cs:

Or-UN
MOw
OWM

; YES--GO START

RZ,(R4)+
PC, a8CLSWDS

OPN.N2
Re, (R¥)+

PC, JHCLSWDS

OPN. X2

i NO=--LOOP
:SAVE THE INPUT

TESTING

;CLOSE THE DATA_PATTERN
{RESTORE RO
- RS
IMOVE TO NEXT TEST
{SAVE THE INPUY
:CLOSE THE DRTQ PATTERN
{RESTORE RO : START TESTING

SZRYF -8 RMC2 RMQD ax'anos: SRIVE TES®
Pl

035754
035760
035762
35
Q357
772

Q35774

036010

00320&

000017

CLBWDS:
i8:

;

000137

001870
036054

035076

00:57

036022

004737

C360S4

020527
002403
104413
000137

000034

00S72%

005725

026044
036050

036503
001364

Q36084
036056
03062

104412
012700
016501

012002

012103
012704
030402
001403

G36106
036110

011011
0B30403

03€l14
036116
036121
03612z
036126
036130
036132

005721
00572C
006304
032704
001763
1GW413
0002C7

036112

034230

00iS06

000765

036070
036072
036076
036100
036102
03604

SPRTO.R!
RC
815. RO
2$
WRl:e, RY.4

012701

010264

036052

MOV
INC
cHe
8.7
[ [0}Y

sew POOGRAM

036014

036030
Q34
036036
036040

301,046,

14:1C

083S776

36002

MRCYL1

S1-NQV-77

121

001566
001620
000001

2s:

SUBROLTINES

RTS

OPN.N1: MOV
OPN.N2:

197

JSR

IMP

22:NCVv 77

sas

Ra RPT(RY)
(SP)+

PC, CLOSE

OPN, [

OPN.X1:

MOV

K2, RPT(¥4)

1$:

JSR

P(, CLOSE

cHP
BLY
RESREG
IMP

RS, 8162
k3

CPN.X2: TS7

3s:
CLOSE:

18T

BIY
BNE

18:

3s:
002000

(RS )+

GT.PR2

EagE

.27

.FIRST AODRESS
CF Jfifn PATTER
sCOUNT THE LRST woRD "HRT W°S S70G0¢.
(ENC OF TABLE
:Yg§~-Ex!7
:
LOPY
:LOOP

*RETURN

:SAVE TKIS VARIABLE

;CLEAN OFF THE STACK
:CLOSE THIS TESY

:GO OPEN THE NEXT TEST

:SAVE THIS VARIABLE

:CLEAN OFF THE STACK
:CLOSE

THIS TEST

:UPDATE THE INDEX

: INDEX TO B15”
; NO--BRANCH
;RESTORE RO - RS
:GO 10 EXIT

:1S THIS TEST OPEN FOR CHANGE®
vss--co CLOSE IT

SAVREG
MOV
MOV

8PRM, RO
PRMPY(RS) ,R!

snvs RO- RS
; "FROM~ ADORESS
:*T0" ADDRESS

MOV
MOV
BIT
BEQ

(R1)+.R3
#1,RY’
RY. R2
es’

170" INDIC
‘TEST BIT srnn* A “RPT"
'PARAMETER TO BE MOVED”
No--ennuc

MOV
BIT

(RG:, (R1)
RY,R3

;s--nove ~FROMTM TO “ToO"
o~ Pnanners

TST
15T
ASL
BIT
BEQ
RESREG
RYS

(R1)+
(RO)+
RY
#BIT10,RY
18

Yss--uvonrs THE POINTER
:UPDATE FROM PQINTER
POSITION THE TEST BIT
: DONE?
: NO--BRANCH
'RESTORE RO - RS
RET RN

BIT
BEQ

2s:

5P+

NB:04

BITS(RS),R3
18

MOV

030403
001404

001401

B13

BEQ

(RO)+,R2

RY,R3
3s

NO--MOVE TO NEXT TEST

: *FROMTM Iuoxcnron

R PLACE TO PUT
NO--BRANCH

IT?

NG-~BRANC

PC
- THIS ROUTINE IS USED TO CHECK If A

.gscxr CHARRCTER IS A DIGIT BET NEEN 0 AND 7.
:

MOV

:
:

RE TURN2

CK.OCT:

CMPB
BLU

(R1),8'0
18

BHI
MCVE

18
Rl

:
:

036134
036140

036142

C3ei4e
038180

121127
103407

121127

101004
111102

000060

000067

8ADR, Rl

JSR
RO, 3kCK.OCT
RETURN}

CMPB

(Ri/,8'7
,R2

noonsss OF ASCII

CHARACTER

CHECK THE CHARACTER
cuaaacrsn IS NOT asrussn 0-7

:CHARRCTER IS IN R2 RS
f
:0CTAL DIGIT
;LESS THAN ZERO?
YES
-- BRANCH

cnsnrsn THAN SEVEN"
YES -- BRANCH
uET THE CHARACTER

e 2187

MF -8 RMO3-RMOE

21-Nov-77
04e702
005720
000200

EXTENDED DRIVE

14:10

TEST

nncvé

a2x PROGRAM

177770

:THIS

BIC

#¢C7 R2

RTS

ROUTINE

[@ [,VVIF SLVENEN]

U=
e b () NNe= D)o L +—
nNOOO O

§ID—C’NDN

Qtet—m e pap
o

USED

:STRIP AWAY THE ASCII

CHECK

CHRARACTER

nooness or

CK.DEC:

ggge

i;x),s'o

LESS THAN zERov

gs$uan
RETURN ko, akCK.DEC
cHMPB

(R1),8'9

000060

18:

MOVB
BIC
TST

YES

(R1),R2
2’0, R2
(ROY+

RTS

MOV
&gn

RETURN

ADRY

RETURN

ADRE

:
:

;

CK.CHR:

TURN

RETURN
RETURN

TSTB

:GREATER THAN NINE”

BRANCH

:RETURN

CHARACTER 70

8ADR, Rl
R8
3BCK.CHR

OF RSCII CHARACTER
ERESS éug
ng?fi&

ADR2

cnnnxncc RETURN ¥ (R1)=zADR+]

ADRI

WN CHARACTER

ADR3

ASH %

MMA

ADRS

(R1)-n8R+1

RIOD #

(R])=ADR+1

(

1)-non+1

DIGIT BETWEEN O

(R1)

; "CARRIAGE RETURN"?

,Ygs

000056

BEQ
MPB

2s
(R1),s'.

ves == BRANCH
:*PERIOD*

036162

JSR

RO, 3#CK . DEC

1ST

(RO)+

CMPB
8EQ
CMPB

0000S4

BR
18:
2% :
38

qs:

757
157
157

757

INC

ggg

; THIS RQUTINE

AND 9.

RE = DIGIT # (R1)=ADK+!

BEQ

0000S?

CHARACTER

csr THE CHARACTER
:STRIP AWAY THE ASCII
:RDJUST FOR RETURN

nscxx

;88
LHECK
EN 8
nfioeg
uEETN5

*s ROUTINE “I&# CHECK AN ASCII
Ennxne WHAT
is.

28888
BRES
o e
1t et P e e R
N2 QL L L LN

ASCII

IS A DIGIT BETWEEN O AND 9.

$ADR,R1

BHI

128

ngJ“s. FOR RETURM

MOV

000071

00000

PAGE

036206

08:04

SEG Clse

(RO

:ggELDETERHINE

000060

ae NOV-7?7

SUBROUTINES =%

787

18:

Cl3

8 +? E

(R1), s’
3$
(R1),8',

BRANCH

~ECAGH"?
i YES -- BRANCH
COMMA*TM2

PYES

-- annnca

‘NO --

i*BIGITTM
oxcxr

(RO)+
(ROJ+
(RO)+

: PERIOD
; COMMA
: SLASH

ETNEEN 0-9

(RO)+

*CARRIAGE RETURN

ééfl).fio

unxuoun CHARACTER

CHECKS

'MOVE POINTER TO NEXT CHARACTER

ASCII

STRING

:CHRRARCTERS ANC FORMS & DECIMAL

FOR

LEGAL

VALUE BINARY NUMBER
Py

IN &2,

MO-11-DZRMF-B8 RMO3 RMO2 EXTENDED DRIVE
CcRMFB. Pl
21=-NOV-TT7 14:10

TEST

2%%

ws
e
mu
@
82
me
80
@t

PAGE

129

MoV
ngv
JSR
RETURN
RE TURN
RETURN
RETURN
RETURN

IQDR Rl

; ADDRESS OF ASCIZ STRING

RDA|

'CHECK DIGIT
; ILLEGAL CHRRACTER -- Rg="

SUBROUTINES

###

RO abcx DIG

SEG 159

i MAX, HQ? {TEDE OF INPUT NUMBER

INPUT NUMBER TO LRRGE -- R2=?
MMRTM

-- R2 = NUHBER

=
; "PERIODTM -- R2

NUMBER

:“PERIOD-PERIOD” -- RE = NUMBER

; SAVE R4
: SAVE R3

CK.DIG:

010446
010346

R
RO, JuCK.CHR

19:

ASL

o
s

R3
R3 -(SP)

R3’

(SP)+,R3

R2.R3

RO, a@8Ck .CHR

036210

'CHECK ONE CHARACTER
; ILLEGAL CHRRACTER
CQRRIRGE RETURN
we

BANARN

[2]

;SAVE THE MAX. SIZE ON THE STACK
:START WITH O
Q)
|3}
o
n

:piGcIT 0-9

25nvs %2
8

(le)+(§2)°110

UPDQTE THE INPUT NUMBER
:CHECK ONE CHARACTER
ILLEGQL CHARACTER
; CARRIAGE RETURN
bl
s

BSCngcTHE CHARACTER POINTER

cs:
38

(R4)+
(RY)+

:*PERIOD"

17777¢

pooosH4

es:
0el42C

; CON

:“COMMA*OR “CR"

RO, J8CK.CHR

; CHECK ONE CHRRACTER

-“Eenxoo-Penxoo"

. et

4§

— L

03e2is

:piGIT 0-9

9s:

I
oo~
~
PLV T il]

36264
66

08:04

30(1046)

PROGRAM

;CRALL

D13

22-NOv-77

MACY11l

i ILLEGAL CHARACTER
CQRRIQGE RETURN

:DiGIT 0-9

; YES--BRANCH

-2(R1), 8",

NSS CH?RQCTER BEFORE

R3,(SP)
e
Pfl.RO

: INPUT TQ LARGE”

:YES -- BRANCH
{ADJUST RETURN ADDRESS

THE DIGIT R COMMR®

~-11~-DZRMF-B RH03 RHOE EXTENDED DRIVE
¢ RHFB P11
14:
M

036432

00S720
g2

TEST

MARCYl1l

28%

PROGRAM

s X
8s:

MoV

30(1046)

SUBROUTINES

ELl3

22- NOV-77

##»

TST

08:04

130

SEG 0180
;NUMBER

TO R2

; CLEAN Hfléa SIZE OFF OF STACK

RE R4

;

GETURETURN RDDRESS

036446

; THIS ROUTINE CHECKS RN ASC IZ STRING FOR LEGRL CHRRACTERS
;AND FORMS AN OCTAL NUMBER IN R2
CALL:
8ADR, R1
MOV
;ADDRESS OF RSCIZ STRING

CK.NUM:

036134

; SAVE R3

—-Ww

—

Qo
O

O
x

RO, d#CK.CHR

IS THIS AN OCTAL DIGIT?
NO--FIND OUT WHART IT IS

;SAVE THE _OCTAL NUMBER
iSTART WITH ZERO INDEX
; CHECK ONE CHARACTER
: ILLEGAL CHARACTER
CRRRIQGE RETURN
;OIGI 0-9
*
100"

-&SERéOD
PERIOD"?
YES--ROVQNCE

oo
- -2
+0
D~
(@] 0
w

O3kttt

NO--BRANCH

YES--HQKE 1T PART OF THE NUMBER

23,R8

+ +

cs:

;START NUHBER RT ZERC
OCTQL DIGIT
HOVE TO NEXT CHARACTER
:FOR THE OCTAL NUMBER IN R3
iDON'T LET IT GET T0 BIG

exn
=W

N0 D000

036134

0000Se

23,-(SP)

“PERIOD” --R2=NUMBER

RO,JwCK.OCT

1%:

036210

”PERIOD-PERIOD”--PE NUMBER

B DO

010346

iGO FORM THE NUMBER
ILLEGQL CHGRQCTER IN THE INPUT STRING
,”COHM OR_"CR*--R2=NUMBER

ADR2
ADR3
ADRY

036450

RO, abCK. NUM
ADR1

WWRWRONIWMWWMWKWL—LOW

JSR
RETURN
RETURN
RETURN
RETURN

VD~ ~ D~~~V
~ —~
ODUNWEN
0 D D MD D

ocoocooooooem
[VaIVo VO IV IV o Vo IV IV o Y o IV o}
U+ = et st s e e Pt pe
OWwW- IV LW

PARGE

THE

-“PERIOD PERIOODTM

POINTER

;. "COMM
L]
Rll,

NO--BRANC

YES--SRVE THE OCTARL NUMBER
;RESTORE R3

SéCKUP EXIT RODRESS

MO-11- D RMF
-B RMO3 RMO2 EXTENDED DRIVE
CZRMFB.PLIL
21-NOV-"7 14:10

F13

TEST
MACrll 30(1046)
22-NOv-77
222 PROGRAM SUBROUTINES ##»
P

69S9
€960
6961
6962
6963

.SBTYTL
SINGLE/DUAL PORT RH70/RM0O3 DRIVER
;NEW DRIVE TYPE ID FOR RMO2 R¥#RErinsx

£966

;COPYRIGHT

gggg

6967

ERRRRERE R

08:04

RN BN AR BB ARERERERARRE R R RN SR R

(C)

MAYNARD,

R RERE R EERRE

RMERRS

69"
£97

0365°C
036576

00000C
000000

00000C

000000

RMERRS:

036600
03660!
036602
036603
036604
03660¢
036&06
366C7

000
00C
00C
00C
00C
00C
000
000

DRVACT:

THBLE

%ggg

;882

701
7011
7Cie
7013
7ol

RMERZ2,

E R AR AR IR R AR AR RERRRREREF

AND RMMR2 ON AN ERROR *2"

.WORD

0,0,0,0

TRBLE OF DRIVE ACTIVE INDICATORS (DRVACT=8 BYTES)
sORVACT=C IF DRIVE IS IDLE
;DRVACT>0 IF DRIVE IS ACTIVE WITH A COMMAND
;DRVACT«0 IF DRIVE IS ACTIVE WITH AN ERROR RECCVERY CPERATION

£996
€997
&998

7006

RMERI

= RMDS’

RN RN RN

RHERRS+S = RMMR2

6382
£983
6984
Eggg

7007

RN AR AR

RMERRS*E = RMER]
RMERRS#H = RMERZ2

2227

7004
700S

R R AR

STORRGE FOR RMDS,

€374

7001
7002
7003

(REV S.1)-24-AUG-77

MR 0}754

Bgré
£97
£97

£993
gggg

ARR RS RRS SRR SRS

1977

AUTHOR(&): JIM LACEY/CHUCK MESS/C. CHEN

6991

SEG 01&l

DIGITRL EQUIPHENT CORP.

£968

£387
6988
6989

131

10-AUG-77 #esssassnss

ggge

6979
ggg?

PAGE

.BYTE
.BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE

0
0
0
0
0
0
0
0

sials]
000
00C

DRVSTA:

O
1
2
3
N
S
&
?

OF DRIVE STATUS INDICATORS (DRVSTR=8 BYTES)
;DRVSTRA=0 IF DRIVE IS OFFLINE OR NONEXSITENMT
;DRVSTR
0 IF DRIVE IS ONLINE

; ORVSTA«O IF DRIVE

036610
036&1l
Q036612

;ORIVE
;sDRIVE
;DRIVE
;ORIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE

IS UNSAFE

.BYTE
.BYTE
.BYTE

8]
0
0

;:DRIVE 0
;DRIVE |
;DRIVE 2
:DRIVE
:DRIVE

3
4

036613
036614

00C
000

.BYTE
.BYTE

0
0

(036ELE

8C0

;DRIVE S

.BYTE

:DRIVE

036615

036617

GG0

goc

.BYTE

;DRIVE

TABLE OF DRIVE TYPES (DRVTYP=8 BYTES)
;DRVTYP=0 IF DRIVE IS NONEXISTENTM
:DRYTrP=S ]F DRIVE IS RMD2 #s2zss
;:DRVTP=4 IF DRIVE IS RMO3
DRVTYP=-1 IF NOT RMO3

)
(DRVSTAR=0,

_
wWLS.

LR1
tiOo
D

D‘RHF B RMO3 RMQ2 cXTENDED DRIVE TEST
MACY1l 30C(1046)
22-Nov-77 08:04 PRGE 13e
Fll
21-NOV-7"7 14:10
SINGLE-DUAL PORT RH?O0/RMO3 DRIVER (REV S.1)-24-RAUG-77
036620
036621
036kee
036623
036624
036625
036626
036627

000
000
000
000
000
009
0Co
ooc

DRVTYP:

.BYTE
.8BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

O
O
O
O
O
O
O
O

: TABLE OF DUAL PORT

;DRIVE
;ORIVE
;DRIVE
;ORIVE
;ORIVE
;DRIVE
;DRIVE
;ORIVE
INITIALIZATION

O
1
2
3
H4
S
&
7

INDICATORS

;DPINT=0 IF INITIALIZATION IS NOT ACTIVE ON THE ORIVE

:OPINT<Q IF INITIALIZATION IS IN PROGRESS
036630
036631
c3e622
036633
036634
036635
036636
036637

000
gcoc
000
000
000
000
0ac
090

DPINT:

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

O
O
O
0
O
O
O
O

;ORIVE
;DRIVE
;ORIVE
;DRIVE
:DRIVE
;DRIVE
;ORIVE
;ORIVE

O
1
2
3
4
S
&
7

: TRBLE OF PENDING DUAL PORT REQUESTS

;:DPRQS=0 IF THAY
A DUAL PORT REQUEST IS NOT PENDING FOR THAT CRIVE

:OPRQS<0 IF THATA DUAL PORT REQUEST 1S PENDING FOR THAT DRIVE
03664C
036641
g36642
036643
036644
036645
03664¢
03bE4?

0]8]8)
000
00g
000
00C
000
000
goo

DPRGS:

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BrTE
.BYTE
.BY'E

O
O
O
O
O
O
O
O

: TRANSFER_WRIT FLQG

; THIS

:DRIVE
;ORIVE
;DRIVE
;ORIVE
;ORIVE
;DRIVE
;DRIVE
;:ORIVE
(TRNSWT=1

WORD)

IS A_ONE WORD QUEUE.

:"DPB” OF THE 1/0 OPERATION
83eeSC

0C0CCOC

TRNSWT:

.WORD

O
1
2
3
4
S
&
7

IT WILL CONTAIN THE ADDRESS OF

;SEARCH WARIT KEYS (SRCHWT=1 WORD)
.
;THIS IS
R ONF WORD QUEUE THAT NILL CONTARIN A KEY FOR _EACH JF

:THE DRIVES THAT ARE PERFORMING
R SEARCH COMMAND FOR THE I 0

:REQUEST THART IS AT THE TOP OF THEIR REQUEST QUEUE.
:EACH DRIVE IS ASSIGNED ONE BIT, STARTING AT BITOO FOR DRIVE 2.
03teS2

2000380

SRCHWT:

.WORD

YTE
;RMO3 DRIVER QCTIVE FLAG (RCTDRv=1 BYT
:ACTDRV=0 IF NRIVER IS INARC T IVE

:ACTDRV>0 IF ORIVER IS ACTI VE

C3etsH

oisis

ACTDRY:

.BYTE

SEG 0162

MD-11-DZRWF-B RMO3 RMO2 EXTENDED DRIVE
ZRMFB.FIL

21-NOV-r7

~0r1
~9:8

14:10

TEST

MACYI1

;SOFTWARE

000

~g~=

ACTSTR: .BYTE
UL FLG>

-9

.~§§§ §§2§§?
-84
BIRLL0

7085
7086

036661
036662

803
050
000

~058

036664

800

036663

036665

7098

UL L W=
O WD NN L W= OO \ngfll Wr—0

TRV TUNUNUN
- #< b2 b2 b2 p 2 e d-0 0= = (YOO O OO OO

e Bt § =0 Bt Pt §0 Pt Pt Pt Bt P2 Pt b B0

e §a Bt B

.0 Bt Bt Do Bt Bt

SIN N NNNNI
NN
NN N INNININININ
N N

7099

{FNO

TIMER ROUTIN

BYTE)
INACTIVE

ACTIVE

UNLORD COMMAND

F UNLOR

olals)

.BY

LOFLG: -BYIE

MMAND
H

IN PROGRESS

03666¢
7/

(036572

036673

BiEe%d

200

500

iBRIVE 7

‘BYTE
'BYTE
‘BYTE

0
D
©

BYTE

'DRIVE S

'DRIVE

'BYTE

!DRIVE 2
!DRIVE 3
'DRIVE 4
b

‘BYTE
0O
'DRIVE 7
:LOOK AHEAD COUNT (LACNT=8 BYTES)
'LACNT WILL

0% 036671
936E87

>097

)

800

-0%8
)

(ACTSTR=)
ROUTINE

{ULDFLG<O IF UNLORD COMMAND IN WAIT GQUEUE

383;

133

;ULDFLG=Q"

707

Z983
709]

PAGE

{UNLOAD FLAG (ULDFLG= a BYTES)

7078

~087

FTWARE

08:04

(REV 5. 1)-24-AUG-77

TIMER ROUTINE ACTIVE FLAG
ACTSTR=0"TE SQF TWARE TINER

;n 121R>

036655

H13

22-NOV-?7?

SINGLE/DUAL PORT RH?0/RMO3 DRIVER

2023

totg

30(1046)

LACNT:

.gz;s

INDICATE

THE NUMBER OF LOOK

05135 9

8 fvE &

800

'BYTE

'DRIVE 3

900

BYTE

'BRIVE ©

000

'BYTE

:SAVE

'DRIVE

REGISTERS

;SAVEFG

‘BRIVE 5

FLRG

AHEADS PERFORMED

(SAVEFG

IF SAVE

WORD)

THE RH7?0/RMO3 REGISTERS WHEN THE

:OPER "1ION 1S COMPLETED AS PER (DPB+13).
:SAVEFG=0 IF SAVE THE RH?O/RHOB REGISTERS, AS PER

; (DPB+14),

03667

00CC0C

SAVEFG:
:SEEK

.WORD

AFTER AN ERROR

FLRG (SEEKFG=1 WORD)
;SEEKFG=0_IF WHEN THE DISK RDDRESS

ISN’T

IN THE WINDOW

;FOR A DATA TRANSFER START
A SEARCH COMMAND

:SEEKFG<O IF DATA TRANSFER WILL DO IMPLIED SEE¥S,
;DISREGARD THE WINDOW
03e?30

177777

SEEKFG:

.WORD

; TIMEQUT TABLE
:THIS

Q3e7Ce

026704
Q3e’0e

¢3eziQ
S3e7iz2

177777

(77777
177777

1772727
177777

TIMER:

.WORD

.WORD
.WORD

- WOR
. WGR

-1

(TIMER=8 WORDS)

TABLE

-1

-1
-1

CONTARINS

THE

;ORIVE O

:DRIVE 1
iDRIVE 2

;DRIVE
;DRIVE

3
M4

TIME

ALLOWED

FOR

AN OPERATION

SEQ 0183

UIRIYTUTIUIUIUY

TEST

MACY11l

I13

3001046

22-NOV-77

SINGLE/DUARL PORT RH70/RMO3 DRIVER
.WORD
.WORD
.WORD

-1
-l
-1l

08:04

PAGE

134

(REV S5.1)-24-RUG-77

SEC Oled

:DRIVE S
;DRIVE &
:ORIVE 7

;DATRA TRANSFER UNDERWAY INDICATOR (DTUW=] WORD)
;DTUWD IF NO DATA TRANSFER UNDERWRY
;DTUW=+N (WHERE N=0 TO 7) IMPLIES DATR TRANSFER UNDERWARY ON DRIVE N
g3e722

- oy oy oy o

DTUW:

l' (A

.WORD

-1

036724
03672S
036726
036727

RTABIT:

e
94

.
.BYTE

036732
036733

10
e0

10 0
200

; DRIVE

:FSRMO3 TO RH?0 "MASSBUS CONTROL BUS PARITY ERRORS”
:CALLING IT FATAL (MCPEMX=1 WORD)

G3E734

000003

MCPEMX:

.WORD

TO ERCH DRIVES

NN
L Wwhu—-0

{ATTENTION BITS TRBLE (ATABIT=8 BYTES®
; THIS TABLE CONTRINS THE CORRESPONDING BIT
;ATTENTION BIT

(MCPE)

ALLCWED BEFORE

:STCRAGE FOR RMADR

(THE FIRST ADDRESS

(?76700)

OF THE RH70/RM0O3)

:RMVEC (THE VECTOR ADDRESS (254)). AND RMVEC+2 (THE BR LEVFI
036736
036740

17670C
p00254

000240

RMADR:
RMVEC:

.WORD
.WORD

(&1},

176700
254,5%32.

:MAXIMUM NUMBER OF LOOK AHERDS ALLOWED IS 4 (MXLACT=1 WORD)

O
NN NN
OO O O
MO0 I

B et ht B s Do Bt Bt B

Bt Pon Poe Po e Pt e B Pt P

SN N INININ NI N NN N NIV NN NN N NN NN N NN

NN
T N 1 NN 1 NN~ 8t 1
e 19
it it Pt Pt Pt Gt (et Pt Pt e Pt B cm Pt Pt Bt Pt Dt Pt s Pt 0 ot Bt § 4 $mt Bt Pt et b Pt Pt Pt B¢ Pe P Pet s P

N - 3000 NEN
L W00 0m uwm:wg;v-g.ng ~NoenEw
g
x:mm:
- O0O
&SP
NN LWN—~ODOD
Ebros zwwwuuuuguwmmm
N LW
= ODm"}

MO-11-D <RMF-8 RMO3-RMO2 E XTENDED DRIVE
21-NIv-77 1 4:10
CZRMFB.P 1

036744

000004

MXLRACT:

.WORD

IS 8 SECTORS

(MXDLTAR=1

WORD)

036746 - go1000

MXOLTR: .WORD
B.#B4.
;MINIMUM DELTAR DELAY IS 2 SECTORS

(MNDLTA=1

WORD)

03e7SC

MNDLTR: .WORD
2#bM.
:MRAXIMUM SERRCH FOR 1-/0 WINDOW

C3e75se

0002co

; MAXIMUM DELTA DELAY

MXWNDW:

. W

IS S SECTORS

WORD)

sDEFINITIONS OF THE RH70'RMO3 RUURESS
RMCS1=0
RMWC=2
RMBAR=4
RMDAR=t
MLS2=10
RMDS=12
RMERL=1HY

(MXWNDW=1

INDEXES

; CONTROL AND STATUS REGISTER sl (DRIVE REG. 00,
; WORD COUNT REGISTER (NOT R DRIVE REG)
; UNIBUS RDDRESS REGISTER (NOT R DRIVE REG!
_
;DESIRED SECTOR/TRACK RDDRESS REGISTER (DRIVE REG .
;CONTROL _AND STQTUS REGISTER #2 (NOT R DRIVE REG)
;DRIVE STATUS REGISTER (DRIVE REG O1)
;ERROR REGISTER sl (DRIVE REG. 02,

Qs:

no-xx D-RMF-B RMO3-RMO2 EXTENDED DRIVE
SRMFB.F!
21-NOV-7"7 14:10

T183

000016

~13C

000034

7192

000040

~184
=185
~186
~18°
~189
=189
~19]

~193
194
;igg

J13

TEST
MACY!1 3011046)
22-NOV-77
(08:04
PAGE 135
SINGLE /DUAL PORT RH70/RMO3 DRIVER (REV S.1)-24-AUG-77

RMRS=16

SEQ 0168

sATTENTION SUMMARY PSEUDO REGISTER

(DRIVE REG.

GO4)

‘DESIRED CYLINDER ADDRESS REGISTER

(DRIVE

12,

000020
000022
000024
000026
000030
000032

RMLA=20
RMDB=22
RMMR 1 =24
RMDT=26
RMSN=30
RMOF =32

:LOOK AHEAD REGISTER (DRIVE REG. 07)
:DATA BUFFER REGISTER (NOT A DRIVE REG.
'MAINTRINARBILITY REGISTER (DRIVE REG. 63
‘DRIVE TYPE REGISTER (DRIVE REG. O&)
'SERIAL NUMBER REGISTER (DRIVE REG. 10}
:OFFSET REGISTER (DRIVE REG. 11)

000

RMHR=36

:DUMMY

RMDC=34

RMMR2=40

000042
000044
000046

'MAINTENANCE

RMER2=42
RMEC =44
RMEC2=46

v1a7

(DRIVE REG.

INITIALIZATION CODE

HIS ROUTINE WILL DETERMINE WHICH RMO3 DRIVES ARE

~199

nvnanaLE FOR TESTING AND SET THE DRVSTA INDICATOR

;ggé

'NOTE: THIS ROUTINE CALLS DRVINT

7200

:T0 THE PROPER STATE FOR ERCH DRIVE.

7203

sCALL

=205
‘ 28

:
;

;ggg

:NOTE:

Te04

7210
7211

036754
036756

104412
QI3746

72l2
~213
T2l
7215
7216
7217
7218
7219
7220
7221
7222
7223

036762
036770
046774
037000
037004
037006
037010
037012
037016
037022
037024
037026

7226

037042

7228
7229
7230

037062
037056
037062

7233

037076

004037

7235

037104

000402

224
7225
7227

037032
037036
037046

012737
004737
012701
012702
005021
020102
103775
012702
012721
020102
101774
005037

177776

000240
04461
036570
036700

7836

7e37
TZ2E

037102
0371068

041566
036742
03673t

MOV
MOV
MOV

036740

C2rile
037114

10S0€l

00E201
0842701

SAVREG
MOV

CLR

013703

000401

'P'

036616

177777

7231
037066 012764 000040 00OCIO
7232 037074 00S00]

7224

THE

036610

036722

036612
036614

012723
013713
012704

17777

JSR
RETURN

MOV
JSR
MOV
MOV
CLR
CHP
BLO
MOV
MOV
CMP
BLOS
CLR

005037
005037

005037

AMINIT:

18:

2s:

CLR
CLR

03716k

3%:

03ee10

4§

17TTTC

c§

"ERROR REGISTER #2 (DRIVE REG. 15)
:ECC POSITION REGISTER (DRIVE REG. 1E&)
:ECC PRTTERN REGISTER (DRIVE REG.
17

RH?O/RH03 ODRIVER

7198

ADDRESS REGISTER

PC,RMINIT
OR

'L’

CLOCK MUST BE STARTED

8PS, - (SP)

$<5%32.5,398PS

PC, CLRQUE

sRMERRS, R1

8SEEKFG. R2

(RI)+
Rl R2
18’
$DTUW,R2
#-1_ (R1)+
R1,R2
2s’
DRVSTA
ORVSTA+2
DRVSTAR+Y
DRVSTA+6

:SAVE RO - RS
:SAVE THE PRESENT PROCESSOR STR7.S

:CHANGE THE PRIORITY 10 &
'CLEAR ALL REQUEST QUEUES
:FIRST ADDRESS 10 BE CLERREC
:LAST ADDRESS TO BE CLERRED
:CLERR
nRE WE DONE”
*BRANCH IF NO
'LARST RADDRESS
SINITIALIZE
:DONE ?
:LOOP IF NO
"SET ALL DRIVES TO OFFLINE

MOV

RMVEC,R3

MOV
CLR

-axros
RMCS2(R%)’:SYART
nnsse
gs INIT
RI1
WITH DRIVE O

JSR

8ISR, [R3)+
ans¢+e (R3)
MADR, RY%
RO,DRVINT

:SETUP THE RH70-RMO3 VECTOR

:FIRST ADDRESS OF RH70-/RMO3

xnxr THE DRIVE

:'DVR’ NOT ssr OR PRRITY ERROR

CLRB

DRVSTA(RL)

'SET DRIVE STATUS TO OFFLINE

IHC

gIé

81C7,R1

:NORMAL RETURN

:G0 TO NEXT DRIVE
:MASK

OUT

UNUSED

BITS

REG.

no 11- oznnr B RMO3- RMO2 EXTENDED
RMFB.P11
21-NOV-77 14:10
T239

037120

001366

T290
To41

037122
037126

012701
005037

7243
To4Y
7245

037136
037140
037144

001405
004737
105761

7247
7248

037152
0371549

005301
100366

To42

746

T249
7250
zggé

037132

037150

03r1Se
037162
037164

105761

001375

012637
104413
000207

DRIVE

TEST
MACY!l 30(1046)
22-NOV-77
08:04
PAGE 136
SINGLE. DURL PORT RH7?0/RMO3 DRIVER (REV §.1)-24-RUG-77
BNE

000007
177776

036630

X¥

044252
036630

7%:
8%:

17777k

:DRIVE

~254

~285

72€3
7260

:BR_NOT WRITING
:SET INTERRUPT
;DRIVE SWITCHED PORTS °

DEC
BPL

Rl
X

ODPINT(R])

BNE

THIS

ROUTINE

7262
~263
7264

7265
7266
7267

:
:

;

RETURN]
RE TURN2

DRVINT:

MOV

:
037166

7268
7269

037170
037174

7e71
7272
7273
7274

7276
7277
7278
7279
7280

010546

DRIVE

EXIST

“READ-IN PRESET"

AND

ISSUED AND FMT22

MOV

JSR

oonvnun Rl

RMADR,

RO, BRVINT
RS,

-(SP)

TUNIBUS noonsss OF RH?O/RHO3 (RMCS1;

;CALLED BYA JSR

:ERROR OCCURRED (PARITY)
: NORMAL RE TURN
:SAVE

037204
037210
037216
037224

010164
112764
032764
001403

000010
000ill
010000

000010

MOV
MOVB
BIT
BEQ

037232
037234
037240
037246
037250

000507
105061
032764
001750
004037

000000

BR
CLRB
BIT
BEQ
JSR

63
LERVE THIS ROUTINE
DRVSTA(RL)
'SET DRIVE STATUS TO OFFLINE
$BIT11,RMCS1(RY)’
.SEE IF DRIVE AVRILABLE
DULP
ak IF DRIVE NOT AVAILABLE
RO, RD.RM
:READ THE DRIVE TYPE REG.

MOV

(SP)+,RS

037200

037226

105061

004737

037262

7286
7287
7288

03727%
037276
037302

001420
022705
00415

037316

001407

037260

037270
037304
037312
037320
037329
037326

000026
037476

012605
112761

022705

036656

000000

044252

036610
004000

JSR

043562
000004

020024

00000S
020025

022705
0OG1404

024025
177777

18:

RMDT
8%

036620

024024

112761
022705
[127El

CLRB

036620

03e620

MOVB

cCMP

DRYSTA(RL)
DRVTYP(R1)

:DRIVE NUMBER TO
R

OULP: = CLRB
CLRB

7284

7294

036610
036620

037254
037256

7232
7283

:RESTORE THE PROCESSOR STATUS
:RESTORE RO - RS
:BYE-BYE

DETERMINES

NOT

105061
105061

7281
7282

7291

:GO TO THE NEXT DRIVE
:CHECK NEXT DRIVE

: INSURE THEY ARE
ALL ON
AND DEPENDING ON THEIR STRTE,
‘DRVSTA IS SET TO THE PROPER CONDITION.
MOV

7289
7290

:BR

INITILIZRTION ROUT INE
:

TWAITING roa DRIVE TO SWITCH PORTS 2

(SP)+, 3PS

;

7285

8s
PC,SET. IE
DPiNT(Rl)

7518

7261

7283

BEG
JSR
7578

: CALL
:

7275

onxvss

:START WITH DRIVE
'CLEAR THE PROCESSOR STATUS

;1S SET 10 R “i=. ?HEN HOL DPR DRY, AND VV ARE CHECKED 10

i
~2E8

7270

87 Rl
JuPs

;nn RMO3.

~256

MOV
CLR

MOV
RESREG
RTS

T283

:BR

SEQ 0l&6

ULOFLG(R1)

PC,SET.IE

M DROTYP(RI)

SET

. ERROR

“IE*”

WITHOUT

:SET RMO3 INDICATOR

:SET RMO2 INDICATOR
:SINGLE PPRT RMO2 °

824025, RS
2%

:DURAL PORT RMO2 *
:BRANCH IF SO

#-1,DRVTYP(Rl,

“TRE"

RETURN ADDRESS

85 DRVTYP(R1)
#20025, RS

2¢

:PUT DRIVE TYPE IN RS

"SINGLE PORT RMO3 ”

BEG

MOYB

s20024

2s
824024, RS
2

CHP
BEG

:CLERR THE UNLORD FLRAG

RI,RMCS2 (R4)
SELECT DRIVE
s1l1 RMCS1(R4)
:DO
A DRIVE CLERR COMMAND (8 SEIZE DRIVE:
#BIT12,RMCS2(RY)" ; NONEXISTENT DRIVE?
18
fio---e
RANCH

BEQ
CHP
BEG

MOVB
CMP

:START onxvs srnrus RS OFFLINE
:CLERR THE DRIVE TYPE INDICATOR

:BR IF YES
:DUAL PORT RMO3 ”
'BR IF YES

*BRANCH IF SO

:SET INDICARTOR TO

'GTHER®

MD-11-DZRMF
-B RHO3/RH02 EXTENDED DRIVE

CSRMFE. P11

21-NOV-77 IN4:10

7295
T29%

037334
037336

000446
012746

7298

037346

00CCa0

737

037342

004037

7299
~300

037350
037352

037476
0l2746

7302

037362

000032

=301

7303
7304

7305

7306
7307
7308

037356

037364
037366

037372

004037

037476
004037

000012

037374
037376
037400

037476
012605
100015

037410

004037

000121

TEST

7311
T312

037414
037416

000014
037476

7314

037422

100004

7313

7315
7316

7317
7318

037420

037424
037432

043742

167077

7320
7321

037444
037452

112761
005720

000001

7323

037486

006301

7325
7326

037466
037470

7322

7324

7327
zggg

037484

DODNIO

037460

012761

037476
037500

(12606
000200

006201
112761

060000

036702

17777~

036630

8s
MOV
8PL

(SP)+,RS
4§

:AND SAVE IT IN RS
BRANCH IF ATA=0

JSR

RO,RD.R

rxnb OUT WHY ATA=

QTQBIT(RI) Rnn5(hq) CLEAR QTTENTION BIT
(SP)+

013

MOVB
BR

#-1,DRVSTA(RL)
68

BNE

COoM
BIC

68:

MOVS
15T

01 DRVSTA(RL)
b)+

ASR
MOVB

Ri
8- opxnr(nx)

MOV
RTS

UNSRFE?

:SET UNSARFE
SEXIT

INDICATOR

RS
:CHECK MOL, DPR, DRY, AND VV
#1C<BIT12'BITOB!'BIT07!BITOE> RS’

ASL

MOV

:1S

‘BR_IF NOT

860000, TIMER(R1)

(sPi+.R
RO

:BRANCHIF nbL DPR, DRY, OR Vv IS CLEAR
:SET DRIVE STAtUS TO ONLINE
;STEP OVER THE ERROR RETURN
SEXIT

.cnnncs INDEX TO ADDRESS WORDS
STRRT

SEC

TIMER

Rt
:SET PORT INITIRLIZE INIDICATOR

RESTO E RS
TEXIT

:CALL

7333

7335
733E

:
:

7334

7337
;ggg

7347
7348
7243
7350

RMDS

7332

7341
7342
7343
7344
7345
734%

;RERD

:REQUEST PRE-PROCESSOR-HANDLES SUBSYSTEM REQUEST

7340

RO,RD.RM

ys:

8s:

zggq
7

8%
JSR

8PL

78:

SEXIT
:D0 A "READ-IN PRESET"

FMT22=1

RMERI
8$

036610

0, WRT.

137

:SET

ROL

00S10S
042705

-(sp)

PAGE

8BIT12,-(SP)

MOVB

036610

6%
o1ex

08:04

(REV S.1)-24-RUG-77

RO, WRT . RM

RMDS

043562

177777

22-NOV-77

JSR

RMOF

043562

037434
037436

7319 037442 001003

JSR
gs
MOV

010000

006126

112761
0

BR
MOV

RMCS1

7309 037402 116164 036~24 0000!6
7310

30(1046)

SINGLE /DURL PORT RH70/RMO3 CRIVER

2s:

043742

MACYLl

:
037502

037506
037514
037822
0375
037626
037532

037534
037S40
(037€44
037S4e

013746

013737
112737
104412
011002
005062
111201

013704
105761
003014
10S7el

177776

036742
0GOCO!

0°J016

03673t
036610
036&5E

RMO3:

177776
036654

JSR

PNTRDR
RETURN]

RO, 38RMO3

RE TURN2
MOV

MOV
MOVB
SAVREG
MOV
CLR
MOVB

MOV
1578
8GT
TS78

:CALL

THE RMO3 DRIVER

: ADDRESS OF POINTER OF onxvss PARAMETER BLOCK
'RETURN HERE IF QUEUE IS FUL

:RETURN HERE IF REQUEST IS IN QUEUE OR THERE
:IS AN ERROR CONDITION
8PS,

-(SP)

RMVEL+2 auPS
81, ACTORY

(RO) ,R2
16(R2)
(R2) R1

RMADR , RY
DRVSTA(RI)
13
ULDFLG(RIJ

snve

THE

CRLLING

STATUS

:DON'T ALLOW ANY RMO3 INTERRUPTS
:SET “ACTIVE DRIVER* FLAG
:SAVE RO
- RS
:PICKUP THE DRIVE PARAMETER BLOLK POINTER
:CLERR THE STATUS/ERROR INDICATOR
:PICKUP THE DRIVE NUMBER

'UNIBUS ADDRESS OF RMCS1
! CHECK DRIVES STATUS
:BRANCH IF ONLINE
SUNLOAD COMMAND IN GUEUE”

SEQ 0167

MD-11-DZRMF-B RH03/Rn02 svrsnoso

CZRMFB.PL1

21-NOV-77

T35]1

037552

001036

?
354
7355
7356

7 gg

104
4037
000434
105761

7 ss

7357
?ggg
7

?55Y

037566
037570
(037574
7S
76

§76]

003445
6857 1
1031

14:10

037616

7365

122762
001003
112761

7367

881 q;

7366
7368

764

TEST

036610

036640

18:

000103

000002

106761

177777

036656

4737

037774

2%:

;393
03;6q6 000;“0 120000 000016 3%
2377 B3k Q&I%S
7372 037660 004737 0410Sw4
4s:

7373
7374

Oflg;
6340

7375

(€37

000431

7377

037700

001023

7379
7380

037706
037710

000420
105761

044714

S§:

7376 037674 032714 000100
7378

037702

004737

7381

037714

002412

7383

0377

108761

0442s2

7382 037716 012762 140000 000016
7384

0377

100?

6S:

036620

;389
03;;30
800;03
110000 000016 783:
7338
77
16541
0377

739]

037786

7390

7382
7393
7394

;ggg

00S720

037754

000401

037760
037762

005720
105037

037772

000200

037766

104413

012637

?NE
SR

s
0,DRVINT
ys
DRVSTA(R])

9% :

108$:

036654

177776

08:04

:BRANCH

68
gPRQS(Rl)

*ERROR RETU
IS onrvs srnrus ONLINE?
:BR IF
N
ogr§rnuggnc PORT REQUEST FOR THE DRIVE ?

oK
2R

Eé-BSSSSé"“’
§

3‘&‘?5
T”Ss%ués*i IN QUEUE
e 12 Fo

BNE

CMPB
BNE

MOVB

2103,2(R2)
as
ULDFLG(R1)

xs
R

ggv
BR

8’1115'51713
16(R2)
:SET THE “UNLORD IN QUEUE"TM ERRGR FLAG
o%
Ex1t

TS18

JSR

DRVhCT(Rl)
C,o0PT

PC,CI?

THE

, DRVQUE

BR
1518

gs’
onvsrn<n1)

TST8

DRVTY

‘QUEUE IS
F

7405

040002

146137

7409 8 7776

DI13786

17777¢

036724

7406 040010 10S0el 03E640

bp1:

038652

IN QUEUE

; IE_BIT ser 5t

C,SET.IE

ssr THE INTERRUPT

YES

RE TURN
sss IF ovas OFFLINE OR UNSAFE

#BIT] gxtxw15(&51 ET OFFL NE ERROR INDICATOR

sBIT15!BITOL, 15(&2)

FLIN

OR NONEXISTENT

REPORT onxve NONEXISTENT

TST

(RQ)+

:SETUP FOR NORMAL RETURN

108

FéN*gH
upP THSN EXIT

157
CLRB

(RO)+
RC TDRV

:CORRECT THE RETURN ADDRESS
CLgaR "nc71v§ DRIVERTM FLAG

RYS

ESREG

(SP)+.

8PS

MOV

JSR
SAVREG

MoV

8ICB

CLRB

SORVNUM, R1

=Ps*

USER

nsrunn TO CALLER

[1]

88IT06, (RY)

;:8;

10441

OPTIMIZER

. PUT REQUEST

:CALL
7774

FLRG

BRv
egITls'BITIE 16(&60
Tb sxv IS UNSAFE
RSSREG
5% ORE S g
E

) HRNDLE THE PRRITY ERROR

83
gs

MOV

IN QUEUE”

””

BNE

MOV

“UNLORD

BLT

THE

ron AN UNLORD?

xs THIS DRIVE RCTIVE”?
QLL

BIT

rnxs REQ
IF NO

7399

YES

BR
1578
BLE
7578

: OPTIMIZER-CALLED FOR A PARTICULAR DRIVE

7403

SEQ O1E8

IBR IF v
: GO er THE DRIVE

;ggg

138

STRYING TQ INIT THE DRIVE

MOV

7900

PAGE

(REV 5.1)-24-AUG-77

PINT(R1)

BNE

7385 037732 012762 100002 0000!6

7389

22-NOV-7?7

JSR

036610

30(1046)

BNE

1578

037166

036600

MACY1l

SINGLE /DURL PORT RH70/RMO3 DRIVER

036630

230
oFel0
9h%s 899918
2380
BI7R19 833537

7363
7 364

DRIVE

: DRIVE NUHBER 10 R1

PC,OPT

:SETUPA COMMAND

8PS, - (SP)

gnvE PSOC Ernrus

ATABLT(R1),SRCH wt

DPRQS (R1)

LEVEL

LEAR LA SERACH FLAG

:RESET TAE PORT REG FLAG #xa»

MD-11-DcSRMF-B RMO3 RMO2 EXTENDED

CCRMFB.P11
T407

21-NOV-77

I4:10

Q04737

044770

0M001M

7408
7409
410
7411

040020
040022
040024
040030

7413

ONOONM

00446

7415
7416

0052
0400S4

003014
0049737

045012

7418

040066

105761

036610

080102

000447

7412
7414

005702
001472
010164
O0l276d

040036

032764

040046

105761

000010
000111

004000

DRIVE

TEST

0QN0072

1000S3

JSR

000000

7422

7423

040104

424
7425
7426

7487
7428
7429
7430

036610

10S:

040112

(22762

000150

7431
7432
7433

040114
040120
040122

004737
000440
005737

040440

7435

040130

005737

036700

040136

004037

041812

439

Q40IM4

000463

7441

040152

000423

040160

000420

74349

040126

7436

040139

7438

040142

7437

7440

040'46

002012
100404

000427

000002

036722

3s:

004737

040340

4s:

040162
040120
040172
040174

112761
010103
006303
012763

177777

036640

060000

036702

7449
7450

Q40204
040210

004737
032714

041054
000103

7462
7463
7464

040216
080222
040226

004737
012637
104413

044252
177776

7451

;:gg

2457
7458

7489
7460

74E ]

74E2

040214

040230

000402
001002

SS:

6$:
7%
8s:

000207

:COMMAND
X

‘CALL
:

PQUE

139

POINTER OF

:DVA se ”

xs onxvs ONLINE
YES--BRAN
o—-nenovs

REQUEST

DRVSTA(R])

g DATVE uusnrs 7

BRANGR TO EXIT

#111,-(SP)

:LORD COMMAND ONTO

8BIT11, (RY)
qs

:DRIVE RVAILARBLE ~?
:BR IF NOT

: YES-~-BRANCH

sBITIS!'BITI2, 15(#2,

RO, WRT.RM

#150,2(R2;

JSR
BR
757

PC,CIY
8s
DTUM

TST

SEEKFG

BGE

GUEJE

TO0

EXIT

IF
N

SET uusars svnvus/snnop INDICATOR
THE

:LOAD THE REGISTER
‘REGISTER INCREMENT
:ERROR RETURN RDORESS

115 THE

STACK

REQUEST FOR 1/07

4$
3s

vss--—a

RE TURN chs

RO,LA

B8R

JSR

PC,CI1

JSR

PC,CI3

FROM

SET OFFLINE STATUS/ERROR INDICATOR

'CALL THE connnno INITIATOR
'BRANCH TO EXIT
:DARTA TRANSFER uuoenuav~
:YES--GO STARTA SERRCH

JSR

REQUEST

1 TO PROT REQUEST ,IF NOT

JSR
RMCS1
63

SEG 2169

*1S THERE
A REOUEST IN QUEUE”
*NO--BRANCH TO EXIT
LOQ%RTHE
DRIVE ADDRESS s%sxsas
VE

BPL

BIT
BEQ
CMPB
BLTY

040232

LGET_"DPB"

s8IT11, RMC 1R’

DRVSTA(RI1)

PAGE

oatvxs-exrxq 15(&2)

:
:

004737

08:04

(REV S.1)-24-RUG-77

MOV

7444
7445
7494&
7447

040202

1578

BMI

ON01S4

7448

BGT
JSR

MOV

2s:

7442

7443

:
:
:

002403

BEQ

MOV

1%:

PC,GETREQ

R2’
78
R1 RHCSE(R )
#s1l1 RMCSI(RY)

1578

.
040104

N13

22-NOv-77

157
BEQ
MOV
MOV

BIT

7420 040074 0l2”62 110000 000016

7421

30(1046)

SINGLE /DUAL PORT RH?C/RMO3 DRIVER

T417 040060 012762 140000 000016
7419

MACY1l

: 00

IHPLIED

sssxs’

NO--D0 LOOK

QHE 0

ON A PARITY

co STARTA SEARCH

ERRCR

:START A DATR TRANSFER
:START
A SEARCH

160 TO THE EXIT

MOVB
MOV
RSL
MOV

#-1,0PRQS(RL)
:SET PORT REQUEST INDICATCR
R1,R3
:SET UP TO ADDRESS
WORDS
R3
:CONVERT TO WORD INDEX
860000, TIMER(R3) "
;START 10 SEC TIMER

JSR
BIT

PC,CI7
#8706, (RY)

ekx

BNE

‘BR

RTS

JSR
MOV
RESREG

PC,SET. IE
(SPY+, 8PS

:PROCESS THE PARITY ERROR
;sss xr *1E* ALRERDY SET
IF

SET

'SET “IE* WITHOUT A “TRE"
:RESTORE PROC. STATUS
‘RESTCRE RJ - RS

INITIATOR

MOV

JSR

oonvnun Rl

¥0PE, R

P, ci7

:DRIVE NUMBER

:ADDRESS OF DPB

cxyv CI1,C13, OR CIMY

nc-..-o:nnr B RMO3 RMQ2 chencsc ORI /E

CSRMFB P,

2i-MNle-

46
~465

040232

~SeT0

772

0OM0350

7473
~474

ONQ2

4
080260

004737

0103”7

0) D203

QNS0:2

Q04037

0-374:

040312

041054

~48S

040314

7487

040224

00CCOe
04105+
01234

0Ol1624

MoV

MOV

~488
7489

749C

7481

7482

7493

7494

7495
7436
7497

7449

7499
7200

7501
7502
7603
7E04

Q40326
(040330

041054
010137

DM0340

013704

040334

040344

040350

040354

04G360
040362
080384

040370
040372
040376
040404

000137

000010

004037

ON3742

016246

000034
041064
116203

040420

004037

7509

7E10

7€1]
7E12

713

7€14

7815

040414

040424

0GO000

RO, ?
W

:LOAD

°‘COMMANDAGUTM. “RA178M16",

cI?
MOV

Ri,DTUM

:SEY

MOV

RMADR , RY4

“RMCS

12tR2), - (SP)

!DESIRED CYLINDER ADORESS

JMP
MGV
JSR

:
:

is:
000001

(RJ)+, Re)+
(R3,+. (SP)

-(SP)

c1e

R1,RMES2(RY )
RO, WRT’RM
10/R2),R3

SUB

MXWNDIK| R3

BGE
ADD

:Loab
:LORD

COUNT

FER RODRESS
SECTOR AND TRACK

]

"DATA TRANSFER JNDERWAY"
nooncss

:SELECT DRIVE

;PICKUP

SECTOR

ADDRESS

"BACKUP BY MAX. SEQRCH FOR I/C WINDGW

MOV
BIC
MOVB
JSR

R3 -lsp)
8177740, (SP)
11(R2), 1 (3P)
RO, WRT'RM

conexnc THE ADJUSTED SECTOR W1Th
:CHOP
OF ALL EXENTED BITS ,IF ANY
:THE DESIRED
T
L ORD DESIRED rnpcx 8 SECTOR

MOV

0131

-(59)

:START

JSR

RMCS1

0O40M26

041054

040440

013704

0236736

116203

060002

MOVB

2(k2)

;PICKUP THE REQUESTED COMMANG

000CIC

BNE
MOY

13
10(R2),-(5P

:BRANCH IF NO
:LOAD DESIRED TRACK

Q40430
040426

040444

040450

156137
000567

010i64

036724

060010

40460
DO404€2

061007
Cie24e

cl?z

0, WRY,

03e652
CIY:

Biss
BR

ATABIT(RL)},SRCHWT
218

MOV

Rl RHCSE(PH)

MOV

CMPB

RMADR,

8131,h?

:RMCS}

:SET “SERRCH WRITTM

KEY

ADDRESS

:SELECT DRIVE

'15 IT A SERRCH COMMAND?
8

SEZTOR

WND “PSE_"

18
oaa

RMDR
cI?

043742

716 0O~0484 122703 000131
7€17
7E16

2(R

000010

000131

7508

7507

(R3¢, -(SP:

RMDC
c17
MOVB

0127%

000006
041054

RO, WRY.

MOV

177740
0000l11
083742

Q404IC
040412

JSR

000012

010346
042716
116266
004037

7505
06

THE LORD(WRITE) ROUTINE

JSR

SOUNT

S INGEX OF REGISTER 0 LAAC
:ERROS RETURN ARLORESS
"LORC CYLINDER AUDRESS

RMCS1

C13:

‘Gl

036736

O01Cl64

&°

DRI

RO WRY .RM

Moy

041016

‘35? T

JSR

RMDC

036722

652 RY;

: LORD

RMDA
c1?
MOV

T48p 040320 004037 043742

RANSFER

(88,4, (R

MOV
MOV

000002

SES 170

nansrzn WATT SUEUE

.g:g

:DES
1AL
: RIC

040304

Q45310

0N3TH:

~483

RGO
RGO

004637

“484

MOV

:PuT

0C0OC4
OJ0CSS

012324
012346

i4C

: REMC xsa:au:cr FROM “DRIVES WAITTM GUE.E

R2. TRNSKT

062733
062704

Q80272

T482

or POPQUE

0Ci0

~478

(040276
g4C300
0M0302

JSR

MOV

hgg

Q12324

~47?9
=480
TYe;

SCINZNOT oara

MQY

0101eN

PRGE

S. 1, ~2N-RUG-77

367

Q40ceY

04
G4027u

89
o4

QUITOY

7475

7476
~477

036ES0

ca REJ

.r;::ggrn
'R
icies
s ED BY DATG XFER

468

l
; WHE

:
:

:729

2001046

INGLE oJuL poRY nu7o'nno

~963

469

MaCY)!

MO-L1-DZRMF-8 RMO3/RMOZ EXTENDED DRIVE

CZRMFB.PLL

21-NOv-7

T519
30
=31
>822

QWO466
Q40472
040479
(040476

004037
000006
041054
000903

=524

Q40504

1007

7526
7627

040512
040516

~623
>35S

7528

0Q40s00

043742

040824

536

122703

043742

000115

3s:

043562

000107

122703

000103

112761

00000

036600

112761

000001

036656

043742

040574

7646

040602

7548

040614

7650
7SE]
7663
7553

040624
(040630
(40632

Q40634

004037
000000
041054
Q7

7855

Qu0ed42

001014

Q40600

001016

040610

105061

040622

(<0636

Q40644

010349

000143

004037

043562

116266

000001

QuOeSQ
0406

7860

Qd0Ebe

QOMO37

040672

000436

(40654

QOO
1024

c2eb BuBese BRUBEs
040674
040700
040702

036E10

[22703

7557
7658

7564
7365
>E6E
~Eg7

cle

BNE
ISR
RMOF

4
RO,RD.RM

OWI7HZ

116237
116005

>€71
7€78
763
~E-3

Q40724
04CTo6
[NC730
242°TE

000000
041054
£12623
Q23708

"€70 Q40720 004037 043562
ouiTew

080724

8s:

3§ :

COMMAND?

;;gng?anIser AN TO CENTER?
;égnncu
IF YES

BNE

5§

'BRANCH

CLR8

DRVSTA(R])

'BUT DRIVE STATUS TO OFFLINE

MOV

R3'-(SP

RST

BNE

'BPANCH IF
N

CMBB

#107.R3

#103,R3

#1,DRVACT(R1)
81, ULOFLG(RL)

RO,NRT RM

#]43,R3

RO, RD.RM
1(R2,,1(SP)

RO, WRt.RM

128

000010
000011

040706
040714

IT AN "OFFSET"

51°7.R3
& ,

MOVB

.15

!BR IF NO
' MERGE THE OFFSET VALUE INTO AMOF
'BUT DON'T CHANGE THE UPPER

3ESs
BEQ

ISR

00000e

16y START THE COMMAND

RMOF
c17

!LORD DESIRED CYLINDER

c16

CMPEB

ISR
RMCS1
c17

000141

#115,R3

IT A SEEK COMMAND

B8R

MOVE

000GO!

12R2), - (5P,

'16

1Re).SP)
RO,
WRY.RM

MOVB

53:

®105,R3

SEG 0171

Sve
JSR

CMPB

122703
Q01ge3
016253

7568
7€63

fMPB

RMOF
c17

7Syy

7563

B8R

C17

220
Bugeee TBISES oooiyr
4
2235
GiEes8 885233

7659

RO, WRT

Q40520

000032
Q41054

7556

ISR
RHDC

MOV

Q40552
040554

7554

'BRANCH

28:

23
00001
636 gegeag
8:8245 digsd
665559 843742

7649

000012

001013
004037
000032

7547

BNE

Ole246

040530
Q40532
(4063

7645

GO LORD CYLINDER

Q40606

7631
7532
>33

~249

CMPB

04105

7833

RO, WRT.RM

18:

004037
000034

30(104E)

ISR
RMDA
C17
BR

000105

(40502

7537
7638

MACYJL

122703

~559

7830

C21‘+
Z2-NOV-77
08:04
PAGE Lul
SINGLE /DUAL PORT RH?0./RMOS DRIVER' (REV 8. 1)-24-AUG-77

TEST

CMPB
BNE
MOV

#141,R3
j0§
&(R2),R3

nove
MOVB

10(R2),95
11(R2.

ISR

RMCS1
C17
MG
CHP

RO, RD. A

(SPi+, R34
9§ RS

.BYTE
WHEN (RMOF)
LOADING THE
{REGISTER
16

IT
A "RECALIBRATE”

IT AN "UNLORD"
IF

COMMAND?

:SET

THE PRYVE ACTIVE

ISET

“UNLOAD

!START

THE

COMMAND”

INDICATOR

IN PROGRESS®

“UNLORDTM

FLAG

COMMAND

N TO g§

T A “SEY

FORMATTM COMMAND”

'RERD THE OFPSET REGISTER
COMBINE

"FMT22","ECI",

AND

“HCI"

'LoAn “FMTa2". "ECcI*, AND-OR “HCI".
;1S IT A “GET REGISTER” COMMAND”
; GRANCH” [F "N
'POINTS
10 1ST ADDRESS OF WHERE
!70 PUT THE REGISTER(S)

'INIT. THE INDEX FOR THE FIRST REG.
' INDEX OF LAST REG. TO MOVE

!READ_RH70,RMO3_REGISTER
: INDEX OF REG.

TO READ

.GET THE CONTENTS OF RH70
{LAST REG. BEEN REAC"

RMO3 REG.

MD-11-DIRMF-B RMO3-RMO2 EXTENDED DRIVE

CZRMFB. P11

21-NOV-77

TSTS

QW0736

g*?

832745

~S76
78

7878

~§3?

DOLYIM

000002

133203

000145

108:

oxoawg

43742

118:

501

128:

(40784

040756

OOI40S

583

040766

041054

7585

0774

052762

7584
7686

0770

%7237

0206

041002

005737

036676

OM1CI0

004737

044134

590

041016

006301

~632

(041026

006201

7687

041006

7889

0O4i0l<

7688

7691

7593
7694

0OM1020
(041030
Q41036

100002

000207

000001

036600

004037
000000

043742

7698
6§99
5630

(041050
(041062
041054

041054
000761
032764

7601

010000

7602

041062

005702

7604
T60S

0O4106M
041066

001001
000207

0l2762

104000

7608
7609

(41076
041102

01274
004037

000111
043742

7€1]1
7E12

041110
Q41112

041154
004737

7€15

041126

7603
7606
~607
7e10

7613
7614
TEIE
7E17

7618
7£19

7620

041070
DO41106

041116
0OM1122

000000

041132

020237

036650

041136

00100S

OM1IN8

012737

005337

7€2]l
7622
7663

041152
041184
DO411Se

006207
104412
032764

7625

0O4116M

00S00!

7624

7686
7627

7628
7ec3

TE3C

041166
041170

0M41i74

2417

005003
10S7el

00l002

10STEl

000010

0000le

CIT:

036&00

036ENC

IF YES

82,98

: INCRERSE THE INDEX BY 2

#145,R3

128

' BRANCH IF YES

JSR

PC, POPQUE

-REHOVE REQ. FROM QUEUE

757

SAVEFG

:SAVE THE RH?OIRHOS REGISTERS?

ISR

PC, SVRH70

ASL

?8;

RMCS1
cI?

Bls
RTS

MOV

gg fié%Pfin

881707, 16(R2)

138

#1,DRVACT(RL)
PC

JSR
RMCS
|

RO.WRT.RM

c1?
BR
BIT

BNE

ELECT DRIVETM COMMAND?

:LORD THE COMMAND

,ss THE “DONE" BIT
BRQNCH IF

YES--GO snvs

R3,-(SP)

CIS
#81T12,RMCS2(RY)

cie

THE

RETURN 10 USER

860000, TIMER(R1)

MOVB
RTS

MOV

,&gop--nons READ

REGISTERS

:SET A ONE SECOND TIMER
;SET THE DRIVE ACTIVE
RETURN 1O THE USER

' LGRD THE COMMAND

:DRIVE

NON-EXISTENT

ak IF YES

SANYTHING IN QUEUE ?

2%:
.

MOV
JSR

2$
PC

:BRANCH IF oueue IS THERE
:OTHERWISE EXIT

OBIT[S'BITll 1s(ha>
:SET “PARITY” ERROR INGICATOR
PC, SVRH?0
snve THE RH7?0/RMO3 REGISTERS

000010

:GET OUT

SEQ 0172

2s:

010000

142

8EQ

BNE
RTS
MOV
JSR

18:
c1s:

.
18:

c178

‘BR IF NOT

s1ll1, -(5P)
RO, WRT.RM

oo “DRIVE CLEAR"

CI8
JSR

PC,EMPTYQ

;EMPTY

CLRB

ORVACT (R1)

'GRIVE 1S IDLE

CMP

RI. DTUW

.IF THIS DRIVE HAD AN I-0 REQUEST

RMCS1

03e722

PRGE

75T
BEG

tize:

177777

12%

0B:04

(REV S.1)-24-AUG-77

036600

136650

D14

22-NOV-77

MPB

ARSR

Cle:

044674

036640
03:656

105061

cis:

is:

10S061
105061

041180

138:

112761
000207

30(1046)

8PL
036702

010346

RDD

000016

060000

Q41040
041042
Q41046

Q40724

012761

7€95
~596
~537

BEQ

062737
0QQ7&Y

MACYL1

SINGLE /DURL PORT RH70/RMO3 DRIVER

040?490

7582 838725 383880
'

1M:10

TEST

CLRB
CLRB

CHP
BNE

DPRQGS(R])
ULDFLG(RI1)

R2, TRNSWT
1§’

CLR

TRNSWT

RTS
SAVREG
BIT

CLR

BEG
BNE

S$
22%

MOV

BNE

¢LR
7578

TSTB

THE

QUEUE

CLERR THE PORT REQUEST FLAG
CLERAR THE UNLORD IN QUEUE FLRG

:1F THIS DRIVE HAD AN 1-0 REQUEST

*IN PROGRESS CLEAR ALL OF THE FLRGS

$-1,0TUl

$8IT12,RMCS2(RY )

R3
DRVACT(R1)

DPRQGS (R1 )

;SAVE RO - RS
xs NEO SET

:DRIVE ACTIVE"

:BRANCH IF NO
'BRANCH IF IN ARCTIVE

:PORT REQUEST

MD-11-DZRMF-B RMO3. RMO2
CIRMFB. Pil
21-Nov-77

Q41202
Qul2o04
g41210

001443
013702
020137
001402
004737
005702
001413
032764
001404
012762
000403
012762
012763
105061
105061

020137

[

22222222 222
WOLLLLE LW
KrS8RZY ord

El4

MACy] i 3001046
463
22-NOV-77
TEST
(08:04
PAGE 143
SINGLEDURL P OR T RH? O/RHO3 DRIVER (REV S. 1)-24-AUG~77

TRNSWT,

22es:

044770

R1,DTUW
28’

010000

ooco1l0

100002

000016

102000

000016

39:

177?727

036702

521712,RMCS2 (R4)

17?77?27
036650
044616
000040
O4467Y
036&10
036620
0442582

;

#BITIS!BITOL, 15(#2)

iSSE "DRIVE NON-EXISTENT' INDICATOR
ug
CONTEN
cexrxs;eérxo 1s(he) SET “NON-CLERRABLE PSRITY" ERROR INDICATOR

n-i TIMER(R3)

€avé "RH70/RMO3 REGISTERS

srop THE TTMER
DRVACT(R1)
'SET “DRIVE ACTIVE"” ro IDLE
DPRQS(R1)
:CLERAR PORT REQUEST
F
R1,DTUW
1S TpxsDRIVE SETUP ron A TRANSFER
ss
iBR_IF NOT
DTUW
'RESET THE INDICATOR
TRNQuT
iCLEAR THE TRANSFER GUELE
ULDFLG(R1)
;CLEAR UNLOAD FLAG
#8IT12,RMCS2 (RY)’ NED” SET

036722
036722

000019

; BRANCH IF NOT

iGET THE “TRANSFER WAIT" QUEUE
;DID THIS DRIVE HAVE AN 1,0 IN PROGRESS®
BRANCH IF YES
iGET THE DPB POINTER
; QUEUE ES}RY FOR DRIVE 7

Pg GETREQ

2s:

Y H

000002
177770

W
wn
o

Q41406

C36650
036722

177777
036650
036656
010000

041364

o41410

EXTENOED DRIVE
14 10

&8
R1
82,R3

:BRANCH

etl7 Rl

03e7e2

DTUW

TRNQuT

YES

;HOVE TO THE NEXT DRIVE
IF MORE DRTVES

;NO_DATA TRANSFERS UNDERWAY
'CLEAR THE 'TRANSFER WAIT' QUEUE
:CLERR RLL OF THE REOUEST QUELES

oetros RMCS2(R4)’ ‘D0 A MASSBUS INIT

000010

6%:

EMPTYG

DRYSTA(
JS
RESREG

000207

RTS

. LONTINUE
‘CLERR THE DRIVE'S QUEUE
'SET DRIVE TO OFFLINE

:CLEAR THE DRIVE TYPE INDICATOR
SET “IE” WITHOUT *“TRE
:RESTORE RO - RS

RETURN

:=0O0K RHERD ROUTINE

Bt Bt B
s B
Pt bt

L£rXfsrx
WIININ)
= »—
oot

(@]
o
P 22EEET

:’RLL

013704

02272¢

MOV
MOV

JSR

RETURN1
RETURN2
RETURN3

MOV
MOV
JSR
RMDS
49
BIC
CMP

SDRVNUM,
R1
#0PB, R2

LA
RO,

RMADR , RY

Rl, Rntsatnq)
RO.RO.R
lfLOEDEOO {SP)

8200, (SP)+

:DRIVE NUMBER

;POINT TO DPB
GO CHECK THE WINDOW

; ERROR RE
;START A SERRC
;STARTA DATA TRANSFER
;GET RMCS1'S ADDRESS

;SELECT DRIVE
:READ DRIVE STATUS

ERROR RETURN ADDRESS

. 8N CYL INGER

:PIP=0,DRY=1"

SEQ 0173

MD-11-DZRMF-B RMO3.RMO2 EXTENDED DRIVE

SSRMFB.PLL
~B8T

21-NOV-77 14:10

Q41442

CO104M

Q41456

003033

7688
7689

DO4i444
Q41450

105261
126137

036666
036666

769
T632
~633

Q41460
Q41464
Q41466

116203
000303
006203

000010

7695

Q41472

Q12737

000340

~697
7638
7699
7700
~T0l
7702

Q41504
041506
Q41510
Q41814
041516
Q41520

000620
Q41560
021664
001402
005726
00D41S

704

041824

002002

TrDb

Q41532

023703

~708
~709
TT10

Q41840
Q41544
O4iS4e

=690
7694

7636

7703
7705

-707

~T11
~712

TT13

7719
7718
t

Q41470

041500

Q41532
041596

041536

0415852
041854

Q41556

041560

O4ISe4

006203

004037

043562

002406

023703
002003
105061
(005720
005720

000402

Q04737

000200

INCB
CMPB

BGT

MOVE
SWAB
ASR
17777

BS:

000020

T8
004000

036746

18:

036750

036666

28:
38:

041054

30(1046)

F1Y4

22-NOV-77

SINGLE-DUAL PORT RH70/RMO3 DRIVER

036744

4§ :

53:

; BRANCH IF AYes

10(R2),R3
R3
R3

JSR

RO,RO.RM

43
cHP
BEQ
15T
BR

(SP),RMLA(RY)
78
(SP)+
33

BGE

CcMP

MXDL TR, R3

CHP
BGE
CLRB

MNDL TR, R3
3
LACNT(RI)

S§

RTS

RMLA

SuB

ADD

BLT
18T
18T

JSR

PAGE

144

SEG 0174

LACNT(RI)
INCREHENT THE LOOK AHEAD COUNT
LACNT(RI) ,MXLACT' ;EXCEED
M

ASR

MOV

(08:04

(REV S.1)-24-AUG-77

8340,

29PS

:GET DESIRED SECTOR RODRESS AND
SMULT. BY B4--ALIGN WIT
:LOOK AHERD REGISTER
;PRIORITY LEVEL

“7*"

{READ LOOK BNEAD REGISTER
;CORRECT LA NUMBER
:YES
:NO, CLEAR STACK

(SP)+,R3

;CALCULATE

THE DELTA

8032.264.0.R3

MAKE

(IF IT IS WITHIN THE

(RQ)+
(RO)+

;ADJUST THE RETURN ADCRESS

PC,CI7

PROCESS THE ERROR

THE DELTA POSITIVE

:CHECK THE DELTA
TO SEE

i WINDOW---1F YES, ZERO
i THE LOOK AHMEAD &OUNT
!AND TAKE THE 1/0 EXIT
EXIT

I RETU

o747
¢

MACY11

BNE

162603

062703

TEST

: INTERRUPT SERVICE ROUTINE

7719

Q41566

112737

0000C!

7721
7722

041576
041602

013704
013701

036736
036722

7724
7725
7726
7727
~788

041610
041614
Q4iele
O41B22
Q41634

004737
000402
004737
104413
105037

041632

7720

7723

Q41574

041606

041630

104412

002403

000002

036654

041632

7735
773t
7737

Q41644
O4lede
041654

7733

7738

7739
7740

774

TTHZ

Q41636

042002

18:
2%:

036654

041856

041662
Q4iBGE

041674
041700

036600

006301
012761
006201

177777

036722

177777

03e702

013702

036650

0S2762

000200

005037

Q10164
004027

036650

000010

Q43Sk2

#1,ACTDRV

;SET_"ACTIVE

MOV
MOV

RMADR, RY
DTUW, R1

: ADDRESS OF RMSCS1
GET "DATA TRANSFER_UNDERWAY" INDICATOR

JSR
BR

pe, 0
23
PC.SC

iCALL TRANSFER DONE
JEXIT
iCALL SPECIAL CONDITIONS
RESTORE RC
- RS
CLERR "ACTIVE DRIVER" FLAG

SAVREG

ACTDRV

: TRANSFER DONE

ROUTINE

T0:

:SAVE RO
- RS

;SET

RSL
MGV
ASR

1
-1, TIMER(RL)
R1

;CANCEL

CLR

BIS

MGV
ISR

TRNSWT, R

RNSWT’

181707 16(R2)

F1,RMCS2(RY)
RO.RD.RM

FLAG

;RETU

DRVACT(RI;

8-1,0TUW

DRIVER"

'BRANCH _If NO DATA TRANSFER JNDERWAY

CLRB

MOV
MOV

000C1e

RESREG
CLFB
RTI

105061

012737

MOVB

BLT

7731
7733

1ISR:

DRIVE

ACTIVE

INDICATOR

:NO DATA TRANSFERS UNDERWAT
:GET

ID.E

TIMEOUT

"DPB"

ADDRESS

FROM

THE

: TRANSFER WAIT QUEUE--C EAR SUEJE
SET DONE

'SELECT THE DRIVE

: TRANSFER ERROR.TRE=]

Mo-11- D ‘?HF
-B gnoa-RMO2 EXTESDED DRIVE

CCRMFB.P
ST43

Q41704

-NOV-+7

0410SH
006126

7747
TT4g

041714
041720

005737
100002

004737

041

T7S1

041726

004737

044770

TTS4

ON4173e

004737

03777

n743
ToS2
7063

7785
~r86

Quizée
Q41732
Q41734

041742

100417

005702
001403

0DOO417

c1?7
ROL

036676

TTE?

OM4ITHY

012714

000113

o769

G472

DpS2762

100100

TTbe

Q41770

012714

2763

042000

000400

~7€8 Q41750 000414

TT60
TTEL
TTB3

041760
ONIZEY
Q41774

30t1C4s)

Gl4

22-NOv-77

(08:04

PAGE

'45

(REY S.1)-24-FJG-77

RMCS1

Q41706
Q41710
Q41712

MACYJ]1

SINGLE-DUAL PORT RH707RMO3 DRIVER

000000

S48
T745

Stwh

TEST

004737
004737

04467
Q44I3Y

012714

000113

(SP)+

BMI

;BR

JSR

PC, SVRH70

YES--SAVE THE REGISTERS

TST
8PL

JSR

15T
BEG

JSR

SAVEFG
13

PC,GETREG

R2
2$

PC,OPT

_YES

:SAVE THE RH70/RMO3 REGISTERS”
;BRANCH IF NG
;GET

_DPB

POINTER

ENTRY FOR DRIVE ?
;B8R IF NOT

:CALL OPTIMIZER

BR
SC
: CHECK OTHER DRIVES
IHE RELEASE DRIVE connnno IS FORECD TG ENTER FOR DUAL PORT GPERATION

000016

MOV

38:

BIS

Q40111

(RY)

,RELEQSE THE _DRIVE

8¢

JSR
JSR

PC,EMPTYQ
PC. SVRH70

MPYY THE “DRIVE'S WAIT" QUELE
snve THE_RM70/RMO3 REGISTERS

MOV

8113, (RY)

: 155UE
A RELERSE ¥6 THE ORIVE

MOV

B8R

CHECK FOR OTHER DRIVES

WBITLSIBITO6, 15(#2) :SET DATRA_ERROR FLAG
840111, (R4,

;1SSUEA “DRIVE

CLEAR"

;CHECK FOR OTHER DRIVES

=Bt
258

:SPECIAL CONCITION ROUTINE

T770

042002

To7P

Qu3BiS

7m71

116403

0D0COLE

§04037

043562

042006

001019

042014

000000

77TS

042016

042036

T779

042030

104001

DODE:

7776
7777
T778

7780
7781

042020
042022
042024

042032
042036

106126
100405
004037
004737
000207

7782

042040

00SO46

7784

042044

012702

042052

030316

7783

7785

7786

7787
788
7789

7790

042042

042050

042054
Q42056

042060
Q42062

110316

005001

044252

SCY:

106303

001373

105761

038630

000137
105761

043012
D3ee4C

7797
7798

042074

001402

C8Z2i06
042110

001402
O00C12T

Q42076
042102

043Cle

18:

RO, RD.RM

;READ CONTRNL AND STATUS REGISTE
;EXIT

FAIL

BITS SET_

READ

JSR
RTS

PC,SET.IE
PC

RETU

MOVB

R3,.SP)

AN“ATA"=z]

CLR

BNE
INC

SCt
RI

CLR

BIT

ASLB

-(SP)

81,R3

R3,

(SP,

:REPORT AN ILLEGAL INTERRUPT

iSET INTERRUPT ENABLE

pnocsss ALL DRIVES THRT HAVE
;ATR=17

: YES--BRAN
iMOVE TO HE NEXT DRIVE

SC3

:BRANCH

RTS

iRETURN TO USER

BEQ

TST

SCS:

“RMAS"

!BRANCH IF _ANY 'ATAR’

;IS "1E"=
:YES, NO DRIVES TO CHECK
;SAVE THE ADDRESS IN 'SESCAPE’

BNE

042070

;REA.

(SP1+
1§
RO,ES. SAV

MOV
SC3:

7733

7795
779

18:

RMAS(RY),R3

ROLB
BM]I
JSR

ERROR

0000G!

005726

7794

RACS1

28:

00100S
005201
000207

BNE

JSR

045060

Q42064

042066

MOVE

7791

7792

1ST8

INP
7578

BEQ
IMP

(5P +

DPINT(RI:
SC13
DPRGS(RI)
2$
SC13

_TO

CHECK"

;CLEAN OFF THE STACK

xnxrxaLx‘xnc THE DRIVE °?
:BR_IF NOT

{PROCESS THE DRIVE
;PORT REQUEST OUTSTANDING °

IF
iSTART

NOT
THE

OUTSTANDING COMMANC

SEG 017%

MC-11-DZRMF-B

RMO3

CoRMFB. Fll

21-NOv=-77

14:10

SINGLE DURL

105761
003025
105761
003422
004737

03661C

2%:

g4el iy
g42le0
guzgleae
Q42126
Q42130
42134
42150

RMO2

g4else

0 Mo

) “INIt
g

Busied

042166
84 17
42174

036600

cs:

105761

036630

A TB&3EL

Q4ee20
042222
042230

100412
032737
001013

042232
04223
Q4eeM
Quaou4
Q42246
D42250
Q42254
042256

012746

6%:

036610

020000

036702

2
ScY

{5 EhebE

YES -- PXCKUP RHERl QNO

BELEQSE EOHHQND

DRIVE LERR

éTETEHE CBMHQND

INTO

MCS2 (RY)

RMCS!

PRRITY EXIT ADDRESS
'PICKUP (RMAS)
FORE THE ERROR
:SAVE THE RODRE
IN "SESCRPE'’
'SESCRPE"

;REPORT THE ADDRESS PLUG CHANGE
STOP

“E?’?HE BEB BEINFeRPPREA"1re oLeue

RO,RO.RM

PROCESS THE SERRC
‘READ THE RMO3°'S STQTJS REG.

ES;, RS

;AND PUT

DRVACT(R1

ECK DRIVE’

SRLL

{REPORT THE UNEXPECTED ATTENTIGON
:GO CHECK FOR MORE ATA'S

§E$P THE
48" aEBRE<8
kS
TIMER

SOR?HicK 8?Q¥ggE DRIVES
EE
éK
iE
gf
U
iBR_IF

scil

003Cle

Rs
QN ERROR”

; SAVE _THE RDDRESS IN

s-1,TIMER RI1)

RMMRZ

DRIVE COMETM ONLINE?

RO,ES.SAV

PC,GETREQ

00010
042640
043se2

O<3cee

LES.Sav

03e600

0046327
COCCid4

P).RS

8s:

44770

100210

-(SP)

RO, WRT.RM

048060

10164

BSVSTQ(RI)
8111

O43742

177272727

80 S RIVE iNIT (thxut;

HQS T

DP&NT(RL:

THE DRIVE STATUS

AVE"THE
RH70/RNMO3 REGISTERS
RM s RMER],
RMER2,
AND

881714, RMERRS

11
RMERRS+2.RS
Bgsn
VACT(R1)
SC6
PC,SCle

SEQ 3178

N INE
N RO RESS?
'BRANCH IF NO
GET OPB POIN ER
5

0?13.-(SP)

N00L1L1

04S0860

' BRANCH
' UNLOAD

gBITl3,RnERRS+HQDDRESS

004037
104008

s CHECK

E§v519(91>

Y4 3

036574

i §8§7&1
g gesS)
Que3le

036570
3%:

Q42206

DRVSTR(R]
11

PC.8C12

Quee40
036s57e

042750

1ST8

PC . SYRH?0

036610
040000

3001046)
22-NOv-77
08:04
PAGE 146
PORT RH70/RMO3 DRIVER (REV S5.1)-24-RUG-77

MACY11l

ULDFLG(RI)
cs
PC,GETREG

Q44770

0ooM4737

D42264

TEST

036656

042200
042202

342588

DRIVE

% AR

A48t AB3AR
>812

EXTENDED

IN RS

HQS THERE
AN ERROR”

g%f*xs-axror'exrog lg(Rngvs foaxsug ;HOPRESgGR RECCVER CCMPLETION

RO.RD.RM

+READ ERROR REGISTER

81l

HD 11-0CcRMF-B RMO3 RMO2 EXTENDED DRIVE
SRMFB.PII
21-NOV-77 14:10
TS5

042360

7857
7858
>R59

042364
(042370
Q42374

~863

Q42406

T856

~860
861
7862
7864

I14

TEST
MACYll 30¢1046)
22-NOV-77
08:04
PAGE 147
SINGLE DUAL PORT RH70/RMO3 DRIVER (REV S.1)-24-AUG-77

Q42610

042362

012605

042400
042402
042404

000000
042610
00610S

004737
0l2746
004037

sc8

MOV

044134
0001!!
043742

JSR
MOV
JSR

SCeA:

100406

(SP)+ RS

PC, SVRH?0D
o111, -(sPy
RO, WRT RM

RMCS1
SC8
ROL

BMI

:AND SAVE

SEG 2177

IN RS

: SAVE RH?O/RH03 REGISTERS
:7eSEA DRIVE CLERR
: WRS “unsnrs"

aanncn IF ves

SC?

IF
NOT

~865

Q4412

042410

005702

001447

BEQ

TST

7857
T863

Q42422
042424

000443
004037

BR
JSR

RO RD RM

:RERD DRIVE STATUS REG.

7872

042436

006126

(SP),RS

; SAVE RHOS

8PL

'BR IF NO—-UNSRFE CLERRED

JSR

c.8VRH?0

: SAVE RH70/RMO3 REGISTERS

7866 042414 052762 10024C 000016

T8E9
~870
871

~873

TBTH

042430
042432
042434

D42440

Q42442

000012
042610
01160S

100011

11276l

TBTS

Q42450

(004737

7877
7878
7879

042462
042464
Q42470

000423
032705
001015

042500

112761

043So2

BIS

18:

ROL

177777

0M4134

036610

MOVB

S8rk O4e4S4 0S27b2 110000 000016

~880
7881

7882
7883
7884
7885
7886

Q42472
042506
042510
{4¢slb

112761

006301
02?6l
006201

010000

MOVB

072460

03e702

042056
100220

ASL
MOV
RASR

000016

105061

036600

T890

042536
042542

004737
105761

045012
036656

7892
7893

042550
(042554

10S06!
1lEle4

036656
036724

~89]

042546

003002

042562

105761

7894

7895
~E9E
7897
7898
7899
7900
79C1

043566

042570
042574
Q42600
042602

100406

00011l
043742

105761

036600

000137

7903

042614

001405

7904
7905
7906

Q42610

036610

0l2746
004037
000000
042610

CO4e604

7902

042056

Q42630

004737
004737
000402

044720
041054

7907

04266
042622
042626

7933
7210

(<2630
C42e34

004727
00CI2~

Qui07e
D420SE

7308

2s:

BR
817
BNE

036600

000137
062762

042532

Bis

177777
000001

042520
042524

7887
~888
~889

RMDS
SC8
MOV

036610

MOVB

3§:

8C7:
:

JHP
BIS

CLRB
JSR
JSR

1S:

2s:

SC8:

18:

;

2%:

cexrxs'erfo 'exrbs 16(R2)
(5pr+

o 1 onvsvn<n1)

"ERRTM=

#-1,DRVACT(R]l,

81,DRVSTA(RL)

QUEUE

”

s INFORM USER OF ERRGR
#l

IN RS

:DRIVE IS UNSAFE

091715'91712 16(R3)
SC?
8BIT12,RS
33

: INFORM USER OF UNSAFE ERRCR

s”MOLTM
:BR_IF

= |
YES

ACTIVE ERROR RECOVER

:ONLINE

Ri
#30000..TIMER(RL)
R1

SCH
#BIT15!BITO7!BITOM,

:START

SECOND

16(R2)

TIMER

: INFORM

USER

1578

DRVACT(R])
PC,EMPTYG
PC . POPQUE
ULOFLG(RD)

CLRB
MOVB

ULDFLG(RI])
: CLERR UNLOAD FLRG
nrnexrtax),nnns<hu)
.CLERAR RTTENTION BIT

BMI
MOV
MOV
JSR
RMCS1
S8

2s
$113,-(SP)
8111, -(SP,
RO, WRT.RM

1518

DRVACT(R1)

BGY

000016

nvruxuc

CONDITION =17

1578

DRVSTA(R] )

SCY

BEG

DRIVE IS IDLE
DUHP THE QUEUE
‘REMOVE THE QUEUE
:UNLORD IN RMOGRESS OR QUELE”

S THE DRIVE UNSRFE *

'BR IF IT IS
'RELEASE COMMAND
onxvs CLERR COMMAND
RITE THE COMMAND INTO RPCS1
Rscxsren INDEX
‘PARITY EXIT ADDRESS
:CHECK FOR MORE DRIVES

:IS DRIVE IDLE?
: YES~--BRANCH

PC.GETREG
PC.CI7
2$

‘GET DPB POINTER
:PROCESS THE PRARITY ERROP
: CONTINUE

JSR

PC,C17

:PROCESS THE PARITY ERROR

PC.CI7B
3]

i
ERRJP

'BR_IF NOT

JSR
ISR
BR
JER
THP

:PROCESS THE UNCORRECTABLE PRRIT: ERRCR
: CHECK MORE DRIVES

DRIVE

TEST

105761

036656

SCl11l:

136137

036656
036600
036724

19%:

Q4abeY4

001012

004737

043004
043006
043010
p43012
043014

Q9s0le
000200
036676

036652

000016
036652

177777

036702

037774
Q4e0se
000010
000012
000014
000042
000C40

036570
036572
026574
036576

177777

036702

000010
036724

000016

036630

004737
000414

(08:04

PRGE

148

(REV S.1)-24-RUG-77

ULDFLG(R1)
13

:”UNLORD IN PROGRESSTM?
:BRANCH IF NO

DRVARCT(R1)

:SET DRIVE IDLE

ULDFLG(R1)

:CLERR UNLORD FLAG

nrnexr(nx),sncnuf

:DOING A senncu OPERATION FOR
:ON 1/0 COMMAND?
:BRANCH IF YES
REMOVE REQUEST FROM QUEUE

.81107 16(R2)

.ss “DONETM

PC,

YES--SAVE ALL

SVRH?0

BIT

:SAVE THE REGISTERS?
:BRANCH IF NO
OF

THE an7o/nn03 REG'S

nrhsxf(nx) RMAS (AY) :CLEAR ATTENTION BIT

sCle:

ATABIT(R1).SRCHWT
-CLERR IMPLIED SEEK SET
Rl
:WORD INDEX
8-1,TIMER(RI)
:STOP CLOCK
R1
:RESTORE R}
PC,OPT
'START A REQUEST
SC4
:CHECK FOR MORE DRIVES
R1,RMCS2(RY)
:SELECT DRIVE
RMOS(RY), RMERRS :SAVE THE FOUR REGISTERS THART

RMER] (R4}, RMERRsi3

sWILL TELL US SOMETHING

RMER2
(R4 ) . RMERRS
+4
RMMR2 (RY) R
| HERRS+6
RO,DRVINT’
sINIT. THE srqrs OF THE DRIVE
13
:TAKE ERROR EXIT
or
*RE
TURN
(SP)+
:POP PC OFF OF THE STACK
SC8
‘PROCESS THE PARITY ERROR
RI
:SETUP TO ADDRESS WORDS
ng TIMER(R])
svop THE TIMER
18:

R1,RMCS2(RY)

'SELECT THE DRIVE

DPINT(R] ;

'CLEAR THE INIT INDICATOR

ATABIT(R]L, RMAS ARG
:CLEAR THE ATTENTION 8IT
B;INT(R1)
égITiflLIZING THE DRIVE °
RO, DRVINT

DRVSTA(RL}
2%
R2

036610

044770
140000
O44134

J14

22-NOV-77

SAVEFG'
2$

036630
037166

0S2762
004737

30(1046)

OPQUE

000016

BH4134
036724
036724

MRCYLll

SINGLE “DURL PORT RH70/RMO3 DRIVER

Q4eeN0
Q42644
Q42646
Queese
042656

£ WLWRININY+—+—

TIINN) ] MR MY J
OO ODDDDDOD O
[0V ] 2N o e Ry R ey Sy oy ) [
~ 0O I LWN—

MD-11-DZRMF-B RMO3. RMO2 EXTENDED
21-NOv-77 14:10
CIRMFB. Pl

REQ

;co INIT THE DRIVE

:DUMMY PRRITY ERROR RE TURN

onrvs ONLINE ?
:BR IF YES -- START ORDER
!QUEUE ENTRY FOR THE DRIVZ
:BR IF NOT
GET DPB_ADDRESS

chTlS'BITlH 161R2) ; INFORM USER THAT DRIVE OFFLINE

0D000ie

PC,SVRHZ0
PC.EMPTYQ
PC| POPQUE

o4scle

004000

000COo0 12‘:

0e0000

03e70e

3s’

#BIT11,RMCSI\RY)

R}l

:SAVE' THE REGISTERS
:EMPTY THE REQUEST GQUEUE
'REMOVE

THE

GQUEUE

:DVAR SET

:SET THEN CALL OPT

;?OODO.TIHERLRl)

4g:

33
PC.OPY

:START

THE

PENDING REGUEST

SEQ Q178

Kl4

MO-L1-DIRMF-B RMO3 RMO2 Exrenoeo DRIVE TEST
MACY1l 30(1046)
22-NOV-77
08:04
PAGE 149
CZRMFE.PLL
21-NOV-77 14:10
SINGLE/DUAL PORT RH70/RMO3 DRIVER (REV 5.1)-24-RUG-77
2367

OM3IM4

LDCIIT

OM20SE

3s:

7969

;égtea

7971

;

7974

Q43150

005737

036654

7976

043156

112737

000001

7978

043166

7975

7977
7979
7980

7981
0982
7983
7984
-985
7986
7987

-988
7989
-93C

7991
7332

043154
043164

043170
043172

043176
043200
043206
043210
(043214
043216
043220

043224
043226
043230

043234
0Cy323e

001027
104412

RPTMR:

036655

002406
166663
003002
004737
005201
005723
022701

003362
104413
105037

012616
000207

036702

000002
043240

18:

036702
2s:

000010

036655

ScH

3s:

4s:

;PROCESS OTHER DRIVES

TIMER ROUTINE
MOV

ITIME

TST

ACTDRY

MOVB

#1,ACTSTR

JSR

- (SP)

;ELASPED

RPMR

BNE

SAVREG

005001

00S003
005763

IMP

SEQ 0179

TIME

"ACTDRV

MILLISECONDS

;CALL RMO3 TIME ROUTINE
; CHECK

4§

;IF_NON ZERO EXIT
;SET

;SAVE

THE

STACK

ACTSTR"

_“ACTSTRTM
RO
-

CLR

BLY
SuB
BGY
JSR
INC

2%
2(SP), TIMER(R3)
2$
PC,ST0
Rl

: BRANCH_IF NO
;COUNT THE INTERVAL
:BR IF_NO_SOF TWARE TIMEOUT
;CALL SOFTWARE TIMEOUT ROUTINE
;MOVE TO NEXT DRIVE

BGT
RESREG
CLRBTM

BRANCH IF NO
;RESTORE RO
- RS
: ZERO_ACTIVE SOF TWARE TIMEOUT ROUTINE FLAG

CLR
ST

:START WITH DRIVE O

R3
TIMER(R3)

157
CHP

MOV
RTS

(R3)+
8. ,Rl

ACTSTR

(SP)+, (SP)
PC

;1S

THE

;OUT

TIMER

RUNNING”

DRIVES?

no:usv THE STACK
; RETURN

Zgg:
/

: SOF TWARE TIMEOUT ROUTINE

7996

;NOTE:

~99;

7998

7999
8000

8001
803¢
8004

800S
8006
8007
8008
8009
8010
8011
e012
8013
8014

8015
B0l
8017
8018
8019

8020
8021
gGzc

Q43242
043244
043246
043250
043254
043260
043264

043266
043270

043272
043274
043300
043302
043306

043310
043314
043320

010146

010246
0iG346
010446
013704
010164
004037
000012

STO
MOV

570:

MOV

036736
000010
043562
;

0435S0
105726

100436
10S761
001033
105761
00103C

013702
020137
0014CY

036630
036640

036650
03b722

;CALL:
;

:
;
Q43240

THIS

3T01:

ROUTINE

GRERTER

JSR
RETURN

MUST

ENTERED

PRIORITY

8DRVNUM,R1
PC,ST0

;ORIVE
: CALL

R1,-(SP)

; SAVE R1

NUMBER

MOV
MOV
MOV
MOV
MOV
JSR

R2, - (SP)
R3, - (5P)
R4, -(SP}
RMADR , RY
R1,RMES2(RY)
RO,RD RM

:SAVE R2
; SAVE R3
: SAVE RY
:GET _ADORESS OF “RMCS1TM
:SELECT THE DRIVE
;RERD “DRIVE STATUS REG"

BMI
TSTB
BNE
TSTB
BNE

ST02
DPINT(RI)
ST102
DPRQS(RI)
S10e

(SP)+

;15 TORY =17

RMDS
S705
S109
7578

MOV
CHP
BEG

TRNSWT, R2
R1,OTUM
13

;BR_IF YES
TRYING TO INTIALIZE THE DRIVE °
;BR_IF YES
oursrnuoxnc PORT REQUEST FOR THE DRIVE °
;BR_IF YES
PICKUP TRANSFER WAIT QUEUE
: TRANSFER_UNDERWAY ON THIS CRIVE®
:BRANCH IF YES

MD-11-DZRMF-B RMO3 RMQZ EXT%BDED DRIVE
CZRMFB. PLl
21-Nov-77

g433ee
Q43326
Q43332
043340

000137
004737
0s2?7
00473

Q43344

Q43SS0
044770
101000
O44134

L14

TEST
MACY]1l 30(1046)
22-NOv-?7
(0B8:04
PAGE 150
SINGLE“DURL PORT RH70/RMO3 DRIVER (REV S.1)-24-RUG-77
sroe

18:

000016

81S

S102:

MovB

ST03:

7578

18:

MOV

O411S4

ST0S:

gSR

ggnga

036630
036610
1777277
044770

ST06:

CLRB

0
1727?27

036722

000016
036724

036630
036640
036630

036640

177777

036702

140000

000016

1777727
036640
044770

036702

100004
0449674
044134

000016

-xr NOT DON’T BOTHER DRIVES
T DP8 ADDRESS

oatrxs'axroq 16(#2) .SET THE ERROR FLAGS
SVRH?0
RH?7 /Rnoa REGISTERS
081705 RMCS2 (R4’ -"INIT“ HE MRSS BUS
REQ

DRVACTLR!)
ULDFLG(RI)
TRNSWT
#-1.DTUW
ST04
RMAS (RY) RS
ATABIT(RI) RS
ST03
DPINT(R1)
ST06
DPRQS(R1)
S707
5709
DPINT(R1)
1$
DPRQS(R1)
ST09
8-1_ TIMER(R3)

036600

SEGQ 0180

;ORIVE IS IDLE
:CLERR THE UNLORD FLAG
:CLEAR DPB ADDORESS
:CLE
nn
TRANSFER DRIVE @
:DON'T BOTHER OTHER DRIVES
Rsno ATTENTION REG
IS ATTENTION FOR THIS DRIVE UP *
YES--BRNCH
STRYING TO INTIALIZE THE DRIVE ?
iBR IF YES- DRIVE NOT ONLINE
oursranoxnc PORT REQUEST FOR THE DRIVE 7
:BR
YES - NO RESPONSE TO REQUEST
oru WISE EXIT
SINITIRLIZING THE DRIVE 7
'BR IF INIT PENDING
:PORT REQUEST PENDING "
:BR IF NOT
srop THE TIMER

sroé

TEXIT

DPINT(RL)

:CLEAR THE INITIALIZE

DRVSTA(R])
#8-1_TIMER(R3)
PC,lETREQ
5709

:GO HANDLE THE PARITY ERROR

:SET UNIT OFFLINE
éTOP THE TIMER

INOICATOR

GET THE DPB ADDRESS
'REQUEST IN QUEUE ?
BR

IF NOT

ggégxs'exwxq 1s<h2iN émronn THE USER DRIVE NGT AVAILABLE
ST107:

MOV

-1 . TIMER(R3)

:CLEAR PORT REQUEST INDICARTOR

s 09

PC.GETREO
ST08:

JSR

ST09:

MOV

;ROUTINE

:CALL

:GET DPB RDORESS
QUEUg
ENTRY FOR DRIVE 7
NONE

.exrxs'axra 16(RY)
:INFORM USER OF PORT REQUEST ERRGR
PC,EMPTYQ
:CLE AR THE QUEUEan THE DRIVE
PC’ SVRH70
ISAVE THE REGI
(SPY+,RY
{RESTORE
R
(SP)+ R3
;RESTORE R3
(SP)+.R2

‘RESTORE R2

RE TURN

(SP)¢ R1

000e0?

:STOP THE TIMER

opabs(nx)

RESTORE R1

TO REARD A RH70/RMO3 REGISTER

;
;
:

JSR
INDEX
ERRADR

RE TURN

RO,RD.RM

GO RERD A REGISTER

REG.

INDEX FROM BRSE

ERROR ADDRESS--PROCESS ERROR STARTING
AT THIS ADDRESS
;CONTENTS OF REG. IS ON THE STACH

MD-11-DZRMF-B RMO3. RHOE EXTEBDED ORIVE

CZRNFB.P11

8079

8080

21-NOV-77

043562

013737

036734

043730

888§
B:Sé;g 815939 036736 043606
8083 043600 062037 043606

8084
8085
8086
8087
8088

043608
043606

OHasxg
043612
(M

8089 o«asgg

013727
000000
013766
Sé 746

043610
036736

010000

716 000010

8090
8091
8092
8093

043630
043634
043636
8: 42

032736
001037
017746
8 2763

8095
8096

043650
043652

022620
000432

8094
8097
8098

8099
8100
8101

8102

8103

8104

810S
8106
8107

646

043654
043654

043660
043662
043666

0O4037

104003
005737
100405

043670

032716

043676

005726

043679

001402

043700
043702
043706

0O0041S
0S2716
000316

043716
043722

005237
112637

8108

043710

8111
8112

043724
0437

0100000
005327

043732

002324

8109
8110

8113

043730

giis

8:3;32

119

013737

000002

TESY

MACY1l

)

AD.RM:

gov

MOV

RO.WRD:

036722

040000

036736

043724

BIT
BNE
MOV
17

#BIT12,3(SP)+
RD.RM3
annnon,-(sp)
IT13)(SP)

'CHECK THE 'NE
:BR IF DRIVE NON EKISTENT
:RERD RMCS]
852 HCP§ SET?

CMP
BR

(SP)# (RO)+
RD. RMY

'ADJUST FOR RETURN
TEXIT

RO,ES.SAV

:SAVE

BEQ

BR
BIS
SWAB

RD.RM3
#BiT1Y, (SP)
(SP)

INC
MOVB

3s
(SP)+,Q(PC)+

_WORD
DEC

8%1000

RD.RM3: gox

.WORD

BGE

gfig 843538 BAg34E

RO.AM4: RYS

geég

:ROUTINE

i CALL

2121

8128

043742

013737

eieg

o:g;so

0%6637

8132
6133

043764
043766

00I01S
122737

036734

000002

8131 845738 815359 044032
€133

043774

00291l

000150

044120

044030
044030

WRT.RM:

8BITIY4, (SP)

:READ THE D SIRED REGISTER OF THE RMO3
noonsg 45 FORMED HERE

M THE

NCH

ADD E s or RMCS2

THE

YES

noonsss

*$ESCAPE’

:REPORT “MCPE" ERR
:DATR TRANSFER unosnunvo
NO--BR NCH

NO--"TRE"=17
NO--BRANCH

(SP)+

YES--CLERN OFF THE STACK AND

RMADR, 3%

'FORM ADDRESS OF HIGH BYTE

:TAKE THE FATAL ERROR EXIT
'CLEAR “MCPETM BY SENDING
A “1" TO "TRE"
:POSITION BEFORE WRITING

sWRITE

THE HIGH BYTE

O
(PC)+

: ADDRESS STORAGE
"EXCEEDED MAX. RETRYS

RD.RM]

:BRANCH

ERS} R?SP)

RMCSI

IF NO

'FATAL ERROR EXIT

TO WRITE A REGISTER

5155

eiaq

#RMCS2, (SP)

3
DTUW
2s

ROD.RM2:

Q(PCHE, (PCH+
O

ERROR
751
BMI

000003

;MAX. RETRYS RLLONED

R£§ ou ENTS PUT HERE
T 10 TH
8; ngg g g on TdE STACK

MOV

3%:

SEG 0181

O
RD.WRD, 21 5P)
RMADR -(gp)

TST

043724

151

.WORD
MOV
MOV

BIT
2%

PRGE

?oXfi
?Be BES?EEB
noonsss
‘USING
AND THE INDEX

ADD

18:

MCPEMX,RD.RM2

(08:04

(REV §.1)-24-AUG-77

5396&
&8 &DR
(RO)+ .ROD.ADR

ADD
RD.RM1: MOV
RDO.ADR: .WORD

040000

22-NQv-77

SINGLE/DUAL PORT RH?0/RMO3 DRIVER

173074
020000

045060

Ml4

30(1046)

?8¥

INOSX

MOV

BB,uhT.gn
-(

)

MCPEMX,WRT.R2

§<§§1.?R;3uo

ang
CMPB

18
8150, WRT. WD

BLT

xnosxsor THE REGIS;%ROLOREEEkgggED

BRRSRSPaLE BETLRN

gox

n8v

ATA
10 B
o) THE STA
ALL Eob??RE 18 LOA (unx?E) THE RES.

(80>+:u T.RD

;MAX RETRYS ALLOWED

gnvs ;H;Huono
T0 WRITE

gi ?NOEX REGISTER TO BE WRITTEN
RANCH
S THE

IF NOT MCS!
onnnno FOR DRTA TRRNSFERS“

wss--oom GET THE OLD Ri& 3

AI7, 8 PSE.

MD-11-DZRMF-B

CoRMFB. P11
8135

(043776

RMO3

RMO2

21-NOV-77
004037

€136

0440G2

000000

8138
8139

044006
084010

000316
042716

8137

8140

Q44004

044014

EXTENDED

IM:10

112637

036736

814~
8148
8.43
8150
8151
g8iS2
8153
8164

044044
044050
Q44062
044056
Q44060
044062
044066
044070

032736
001025
004037
0O000IM
044124
032726
001420
016037

010000

8156
B1S7
8158
6159
8160
161
8162
8163
8164

084102
044104
044106
044112
044114
044116
044120
044122
Ou4l2N

000000
0O44]24
004037
104004
005726
005327
000003
002341
0110¢D

816
gigg

044130
044132

8155

8165

Qu4076

044126

JSR

RMCS

177770

044031

004637

044032

036736

1§:
WRT.R1:
WRT.WD:
WRT.AD:

000010

000010
17?776

043562

084102

18:

000401

005720
060260

PRGE

152

:NO---COMBINE A168RA17,

SEQ 0182
& PSEL WITH

'THE COMMAND BEFORE SENDING IT TG
: THE RH70/RMO3

ADD
MOV
.WORD
.WORD
MOV

RMADR | IRT . AD
(PC)+.J(PC1+
O
@
RMADR, - (SP)

;FORM THE ADORESS OF THE DISK REG.
:LORD THE DESIRED REG.
!WORD TO WRITE GOES HERE
:ADDRESS IS FORMED HERE
‘PUT THE ADDRESS ON THE STACK

BIT
BNE
JSR
RMER]
WRT.R3
BIT
BEQ
MOV

#BIT12.9(SP)+
WRT.R3
RO, RD.RM

:CHECK THE 'NED’ BIT
:BR IF DRIVE NON-EXISTENT
'CHECK FOR PARITY ERROR ON WRITE

MOVB

JSR

WRT.R3:
WRT.RY:
WRT.RS:

TST
RS

WRT.R2:

RO, RD.RM

08:04

(REV S.1)-24-RUG-77

(SP)
#1C7,

_WORD
WRT.R3
JSR
ERROR
TST
DEC
.WORD
8GE
MOV

045060

22-NOV-77

SWAB
BIC

RDD

043562

30(1046)

PORT RH70/RMO3 DRIVER

WRT.R3

063737
012737
000000
000000
013746

062716

MACYLl

SINGLE "DURL

044124

044020
044026
044030
044032
044034

Q44040

TEST

043562

8141
8142
8143
8144
8145

SI14&

DRIVE

(SP)

(SPY4 WRT.WD+1

#RMCS2, (S°)

:FORM THE ADDRESS OF RMCS2

#BIT03, (SP)+
WRT.RY

:BRANCH

RG, RO . RM

‘READ THE

-2(R0,

RO,ES.SAY
Y
(SP)+
(PC)+
3
WRT.R]
(RO}, RO

WRT.AS
(RO)+
RO

'PICKUP

IF "PAR=0"

THE

INDEX

REG.

REG. INDEX
‘RETURN TO THIS ADDRESS ON ERROR
:SAVE THE RDDRESS IN ’SESCAPE’
:REPORT THE PARITY ON WRITE ERROR
'CLEAR OFF THE STACK
:DECREMENT THE ERROR COUNT
:RETRY COUNTER
STRY AGRIN IF NOT FINISHED
'TAKE THE "PRRITY ON WRITETM ERROR EXIT

JEXIT

"ADJUST FOR ERROR FREE EXIT

g}gg

:ROUTINE TO SAVE THE RH70-RPO4/5/RM0C3 REGISTERS AS PER DPB+14

8171
8:72

SCALL
:

giza

8175
8176
8177

8178

044142

104412
005702
001442
013704

8181
8182

044156
Q44160

001433
005037

8186

044202

8179
8180
8i83
B184
8185

8187

8188
8:83
8190

044134
044136
044140

044146
044152

111264
016203

0Qu416M
044172
044174

023727
001006
032764

Q44204

005023

044206
Q44210
0Ow4214

0010062

0004CS
004037
000008

SVRH70:

036736

044214

000010
0000i4

MOV

JSR

SAVREG
TS7
BEQ

000022

000200

000010

1S:

2%:
EL Y

:SAVE RO - RS
:QUEUE ENTRY FOR
:BR IF NONE

BEQ
CLR

6
33

(EXIT IF NO ADDRESS
:COUNTER & POINTER

BNE

:BR IF SET

BR
JSR
WORD

4§
RG,RD.RM
O

: CONTINUE
{READ THE SELECTED REGISTER
:REGISTER INDEX

cHP
BNE
BIT

(R2),ARMCS2(RY)
14(R2,R3

:SAVE THE DRIVES REG’S

MOV

CLR

043562

:DPB POINTER TO R2

R2
63
RMADR , RY

MOVE
MOY

044214

#0PBNUM, R2

PC,SVRH?0

THE DRIVE

;SELECT DRIVE
:GET THE ERROR TRBLE POINTER

33, sRMDB
:REACHED THE BUFFER REGISTER
28
‘BR IF NOT
$BITO” ,RMCS2(RY)’ :'OR’ SET 7

(R34

'STORE RMDB RS Z2EROES

38R
258—

Y
e Sy
R
R
T e

ADD

04N gg

301406

062737

200002

QM42492
guugNE

004737
108413

DW11Sw

WYSNE 0007S1

duugder

cs
£s:

000e0?

VO IT U L Wiu—O

R R

Pt pt

et Pt P

o B =

s o

R R

00 020 €D
0 (K O 00 0 {0 2N L0

O94252

010445

044254

013704

Qu4264
ON4366

11446
052716

036"3¢

gu4260 QiCle% 900010
Gu42.2
Qw4279
044300

Q44306

000316
112714
033764

RTS

001602

044310
0s4312
044314

005726
000402
[12664

Qu43c2

000207

44324

£00

044320

012604

044325
0436
ON4327

A00
090
900

O4433]
4432
4433

00g
500
006

044330

000100
OJ10CO0

00030

TO SET

MOV

RETURN

SET.IE:

MOV

JSR

0OM0000
0GGC!O

1§

000

82,38

{ETORE Tvg REGISTER CoNTENTS
:REAcHED THE €

;

"CONTINUE

- RETURN

THE

INTERRUPT WITWOUT GETTING A "TRE"

SDRVNUM R

PC,scT. LE
R4,

- (SP)

Qu4344
QMUYE
Q44350
04432

ON4Y416
C44436
D4H45p
DNNYTE
D445 16
CH4E s
O44E5E
Qw<E7€

:DRIVE NUMBER T0 R!

(SET ~IE”
:SAVE RY

MOV
BIS

MOV

SWAB
MOVB
BIT

(R4) -(SP}
nexriu (SP)

§ 230 RMCSL
.
)
:5ET THE “TRE” BIT OF THE WORC REARC

(SP
:ACJUST FOR DATO
sexros (RY )
:SET “I1E"
#BITI2.RMCS2(RY) ;IS “NED"=1"

T5°
BR
MOVB

(SP)¢
28
(5P)+, ) (R}

RTS

MOV

TUBYTE

Rl anése<nu)
18

(GP)+. RY

:S€ ECT DWNIVE

;955--CLERR “TRE"

:CLEAN orr THE

:RLTURN TO CALLER

;ORIVE O

.BYTE
‘RYTE
‘BY1E

O
F

:DRIVE 1
‘ORIVE 2
‘DRIVE 3

BYTE
.BYTE
‘BYTE

0
@
O

:DRIVE S
‘DRIVE &
‘GRIVE 7

_WCRC
.WORD
.WORD
.WORD

“WORD
-WORD
.WORD
_LORC

QDR/VE
QORV]
GDRVE
GORV3
QDRVS
QORVS
QDRVE
QCRY?

OeN41E
Aaay3g

a0UTPT:

.WORD
CWCRC

QORVO
QDKVI

STACK

;CLEAR “TRE"

*RESTORE RY

‘DRIVE 4

:DRIVE
:DRIVE
:DRIVE
:ORIVE

:DRIVE
:ORIVE
‘DRIVE
‘DRIVE

O
|
2
3

4
S
b
7

: QUEUE OUTPUT POIHTERS
ON423E4
I4u3Ce

ING nz REGISTERS

Pnocess THE _UNCORRECTABLE PARTT¢ £RF R
‘RESTORE
R
RS

:PICKUP ADDRESS OF RMCSI

SYTE

GINPT:

ncn rgs REG]STER INCE¥

:GLEUE INPUT POINTERS
QYN33%
O44326
O4435C
ON4342

153

RMADR . RY

QUEUE COUNT

EEnto

PRGE

MOV

BNE

JSR PC.C17
RESREG

-ggurxue

cCARLL

240

BEG

QN42iv

08:0%

DRIVES (REV §.1.-2%-AUG-7"

sOKIVE O
:DPIVE |

| I\

Pie
(R3
3§, srbECD

RWFC/RMO3

Rov
CHP

SINGLE DUAL POR®

Bauss8 0)eod
o~~358 05595? Qu421Y 00004e 9S:

B1S

22-NOV-77

3001CH6.

Zi1-Nov-~

TEST

Mactli

DPRIVE

»—

Lol

RRR

‘Url

lUl

v A

.
Pty

€O D (0 (0 O QKL ) (0 (O

RIeF -8 RMC3 RHO; EHYENOEE

MO-11-DZRNF-B RM03 Rngg EXTENDED DRIVE TE?T

CIRMFB.FPLL
8247
ea:e

g88dd

21-NOV-77

ONUY3E0
oq:aes

Suushd

[4:10

"“C‘Ag JO0CIEYs)

SINGLE -pUAL

ONNM4SE
§quw’

PORYT

.HORD
.gonfi

guusib

- ok

Cl5

RHZO/RMOI

23-NCV-77

QDRV2
§§233

PAGE

1S4

SEQ 2184

‘DRIVE &
;gnixg a

08:Q4

DRIVER (REV'S.1)-24-aud-77

‘BRIVE 2
’

8251
ggsa

D0O4M4320
Q44372

044556
D4457Te

.WORD
.WORD

QDRVE
QDRV?

:DRIVE 6
iDRIVE 7

8254
8255

0QYNI7Y
QuM3TH

QuNMY1E
044436

QSTART: .WORD
|TOP: ~ .WORD

QDRVO
QDRV!

:DRIVE O START ADDRESS
:DRIVE O STOP ncons§s
8 DRIVE

8257
8258

Du4402
QNM404

044476
0NNG16

"WORD
. WOR

856

Q44400

044456

B8589 (Qu44de (044338
8260
B2E1

gggg

ONM4IG
Q4u412

044414

044586
O4457E

8267

8268
8269
B2°C
g271
8272
273
gszg

0Ows616

.BLKW

044456
044476
QM4516
044836
044556
044576

00001G
00G01N
10
0060I0
000010
000010
O99E1E

QORV2:
QORV3:
QORVY:
QORVS:
QDRVG:
QORVZ:
QTERM=.

.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW

10
10
10
10
10
10

QORV1:

828:

Q44616

858

Od4dese

(C4+620
uwzfeu

104412

012702
00S022

044324

005022
0:12703

000010

O44632
044634

.BLkiW

8289

OM4644

(12122

044650

001375

Q44656
044662

012701
012122

J\d.

lol=

p44eS2

'ST0P ORIVE ?

ON4664
044666
044670
O044E72

005303
00137F
104313
00CeC?

18:

JSR

044274

2%:

:EMPT¢
;

THE

REQUEST QUEUES

PC, CLRPQUE

SAVREG

MOV
g;g

$QCNT,R2
Ega)+

CLR
MOY

Ra;¢

:SAVE RO - RS

:ZERC THE ousue COUNTS
onxgo a

(REYS

N Eg

MOV

n@:tnnr Rl

'RODRESS OF THE QUEUE INTO

DEC

MOV

#8.

DEC
BNE
RESREG
RTS

R3
2%

MOV

(R1)+, (R2)+

BNE

000010

CLEAR ALL

012703

¢LR

8288 044640 012701 044374
044646

CLRQUE:

292058

8286
8287

ggga

;570° DRIVE 5--START DRIVE &
:STOP DRIVE 6--START DRIVE 7

GTERM

QDRVO:

QOCCGI0

s CALL

8296
€297
gggg

i2t5p DRIVE 4--8TART ORIVE 5

:ST0P DRIVE 2--STGRT GRIVE 2
1570P BR’VE 3--START onzvg 3

QDRVE
QDRV?

092010

gség

8293
B294

QDRVS

Qw4416

044436

8278

8291

'WORC

QDRV3
QDRVY

RIVE 2

:DRIVE REQUEST QUEUES

:ROUTINE

8290

:STOP DRIVE 1--STA

- WOR

8278

8282
ggga

QDORvVZ

.WARD
- WUR

8322
8266

.WORD

MOY
MOV

THE

.R3

8QStART R1
(R1)+, (R2)+

GUEUE SPECIFIED BY Rl

:DRIVES
MOVE THE srnnrx NG

: THE QUEUE INPUT POINTER

:MOVE THE STRRTING ADDRESS

:OF THE QUEUE INTO THE
:QUEUE OUTPUT POINTER
:RESTORE RO - RS

STARRT ADDRESS

MD-11-DZRMF-B RMO3 RMO2 EXTENDED DRIVE
CCRMFR Pl
21-NOV-77 14:10

TEST

8303
8304
o44324

o0D (D U0 (D 0D 00 00 (D
W) WwwwWwuwww
oy
-0 DI
LW

Q44700
QN4702
Qu4T10
Quy?12

D44334

EMPTYQ:
044354

155

;:DRIVE NUMBER TO Rl

C%RB

gcnr(nx)

:CLEAR NUMBER OF

g}NPT(Rl),QOUTPT(Rl)

TO PUT A REQUEST

SEQ J18%

ITEMS

IN QUEUE

;SET OUTPUT QUEUE PCINTER=INPUT POINTER

JSR

’

RETURNI
RETURNZ

’

000010

D443ed4

DRVQUE:

Q44334
000002
044334

Q44334
044376

O44379

044334

e2s:

‘CALL

GET

000207

ASL

2%:

RTS

;ROUTINE

(CALL
:

:
DuNd3e4

CLR

19:

POPGUE.

:BR IF YES-TAKE RETURNI

RE JQINPT(R

:PUT

P INCREMENT QUEUE COUNT

(RO)#

MOV

THE

: TRKE

THIS REQUEST

IN QUEJE

*“DPB”

RETURN 2

:RETURN TO USER
ADDRESS

SORVNUM, R1

PC.GETREG

NEXT REQUEST

ACNT (R

IN QUEUE

:DRIVE NUMBER TO RI

:GO GET THE REQUEST
‘R2="DPB" RDDRESS OF THE REQUEST

:R2=0 IF

NO REQUEST IN GUEUE

: IS THERE QNY REQUEST

IN GUELE"

: NG---BRANC

g?OUTPT(Rll.RE

;PICKUP DPBTM” POINTER FOR THIS DRIVE

;RETURN TO USER

TO "POP*”

THE REQUEST FROM QUEUE

MOV
J
RETURNM

oDRVNUN Rl

;DRIVE NUMBER 10 Rl

DECB
ASL

gENT(Pl;

:DECREMENT QUEUE COUNT

v
po]

044354

GETREQ:

:1S QUEUE FULL?

RETURN

O44 324

:GO PUT REQUEST IN GUEUE
;RETURN HERE IF QUEUE IS FUL
'RETURN HERE IF REQUEST IS IH GQUEUE

:ADORESS OF PARAMETER BLOCK

OSTQRT(Rli oxnprtnl)vss--Ressr POINTER

JSR

00s002
105761
001404
006301

RO, DRAVQUE

.l OINPT(R11
:UPDATE THE QUEUE POINTER
QINPT(RL), QSTOP(RI) :TIME TO RESET THE POINTER
18
8RANCH IF NO

RTS

:ROUTINE

:DRIVE NUMBER

ocnr(nz)

MOV
QADD
cMpP
BNE
MOV
ASR
TS7

18:

coavuuw R1

#10,QCNT(R1)

CMPB
BEQ
INCB
ASL

o44324

jole]
(o]e]

g;om

o000~
=]/

Sy
Rz

owun
v U=
O
YW
(] noocoocoNooc
o
OO
= (W) 0= 0t bt s ps s po

’

IN QUEUE

sDPB, R2

MOV

’

[y
V]

PRGE

[ope

08:04

(REV S.1)-24-RUG-77

DRVNUM, R1

:CALL

Qo0
yy 4
mn
OO0

22-NOV-?7

PC,EMPYYQ

ASL

:ROUTINE

045010

30(1046)

JSR

MOV

;
QuHE7Y

8311

MACY1ll

SINGLE
- DURL PORT RH70/RMO3 DRIVER

PGUE

‘CALL TO REMOVE REQUEST
:R2=ADDRESS OF DPB REMCVED

MACY11l 30(1046)
22-NOv-77
(08:04
PAGE 156
fiQRILBDL?HF B RHO3 RHOE EXTESDED DRIVE TEST
.
SINGLE"DURL PORT RH70/RMO3 DRIVER (REY S.1)-24-RUG-77
e
al14

g4s0e0

045056

017102
005071
062761
026161
001003
016161
00620}

o444 354

QY4354
803302

MOV

O443SY

O443S4
Quu3Te

o443y

044354

QQOUTPT(R1),R2

:ROUTINE

RTS

:RETURN TO USER

UTPT(R1)

TO SAVE

:UPDATE THE QUEUE POINTER

THE CONTENTS OF

:
:

JSR
ERROR

RO,ES.SAV
N

ES.SAV:

MOV

ssscn#s -(SP)

:
04S074
001206
001206

18:

001208

MSG.R:

TN - UN—

e
=

—

N
—

= O
— -0
T of Tl of o of o o141
-~ Ne—
N (@B o
Lol

A A T2F 28

NNN*"-‘RO
NLEOE—-P
L

— (19— =~

~UNOoO

[w]elnle]

m?oo

o40s

00007S

RETURN
CLR
.WORD

MOV

RTS
.SBTTL

MSG.FC:

000124
009
000123
000124

047503
02011M
044103

'SESCAPE’

; : THE ERROR CALL

'$WE RETURN IS Pnsr THE ERRGR CALL
;:GET THE ERROR CALL

$ESCA
O

.CLEAR THE ESCAPE RETU
:THE ERROR CALL IS novzo HERE

;SAVE THE RDDRESS XN 'sescnps

(SP)+,8ESCAPE

;RESTORE THE ESCAPE ADDRESS

'RETURN

ASCIZ MESSAGES
.RSCIZ

.ASCIZ

WHEN THE ORIVER

(ROY+

’

/R~

/FC/

MSG.LC: .ASCIZ
MSGFCP: .ASCIZ
MSGLCP: .ARSCIZ
MSG.IC: .ASCIZ
MSG.FT: .ASCIZ
MSG.LT: .ASCIZ
MSG.IT: .aSClZ2
MSG.FS: .ASCIZ
MSG.LS: .RSCIZ
MSG.PAT:
MSG.EQ: .ASCIC
M3G.CS: .ASCIZ

/LC/
/FC'/LC'.
/IC/FI/
/LT~
/IT/rs/
/LS~
.ASCIZ
/PAT
=
«CR><_F>.CONTROL

SLASH:
SvsTAT:

.ASCIZ
.ASCIZ

& /. @
~/UNIT STATUS:

027440
0471es
o4osey
00S01S
pS1104
O47440
042516
0010

g0010s
D445 1Y

UNTMSG:
UNTOFF:

.RSCIZ
.RSCIZ

~DRIVE~ OFFLINE-

O44E 1Y

UNTON:

.ASCIZ

/ ONLINE~/

Cel.el

ge0iay
C4710¢

NOTPRS:

.ASCIZ

o4esie

POINTER

oobvprtnl),osvoptal)- TIME TO RESET THE POCINTER”
18
RANCH TQ EXIT
g§7na7<nx>QOUTPT(RI)s YES--RESET THE POINTER

:REPORTS AN ERROR DIRECTLY.

;CQLL

"DPB”

:REMOVE DPB ADDRESS FROM THE GUEUE

CMP
BNE
gg;
’

THE

OQOUTPT(Rl)

ACO

;GET

CLR

NOT

PRESENT

SWITCHES=.

(CRs«LF. LF:

SEQ Jl186

MC-11

CIRMF-B

Ao S

il 092558

RMO3

RMO2

EXTENDED

21-NOV-= 14:10

DRIVE

TEST

MACY1l

ASC1Z MESSAGES

822450 csisie ow3101 NOTSAF: .ARsciz

415

0452

41T
8418

O4i. -6
(046300

000105
047040

0S2117

0S10M0

8423

(Q4S33l

0l1S

042012

044522

B426

Q453S2

0%5824

052123

0421058

124

FLS

30(1046)

22-NOV-77

NOTRM:

@ NOT RMO3.RMO23

DRIVES:

.RSCIZ

<CR><LF>/DRIVE(S)

om0 Mg

8430

045371

015

047012

020117

8435
8436
8437
8438
B439
8440
8441
S44c
8443
8444
g44S
g::g

Q4S42e
045434
Q45442
045450
Q45458
045457
O4SHe4
Q45472
(045500
Q45501
0Q4S506
045514

051524
020114
042502
047506
000
01S
0S2123
0S1104
000
123
020114
051108

0S3440
047516
0S004C
046522

046111
020124
0S1105
042105

005012
047111
053111
0S110S
052516
000040

8448

045520

00SCL1S

0S1012

PAGE

157

TO BE

TESTED

mE o

NOCLOK:

.ASCIZ

<CR><LF>/NO KWll-P CLOCK,

Q42524
020107
020105

TESTNG:

.ASCIZ

<«CR/,<LF><LF,/TESTING DRIVE

040S11
O0O4111S

SERIAL:

.RSCIZ

/SERIAL

NUMBER

TIMING TESTS WILL NCT BE PERFGORMED/

8449
8450
g:gé

Q4S5e6
045534
8:%%;5

052101
020114
gggigg

047511
0S0j23
Q44524

040516
042505
04251S

0S2117

MSG7:

LASCIZ

<CR> «<LF><LF>/ROTATIONRL

8453
8454
8455

045552
D4SS60
045566

005015
Q041440
042504

047412
046131
020122

042516
Q472111
042523

MSGIOA:

.ASCIZ

<«CR><LF»<LF>-ONE CYLINDER SEEK TIMES/<CR><LF:,-/

020052

MSGIO0B:

.RSCIZ

<«CR><LF>/

MSGLlIA:

.ASCIZ

<CR><LF><LF>/ACCESS TIME MEASUREMENT-<CR‘<LF>.

MTMMSGLlB:

.ASCIZ

“CR><«LF>/

B4SE
B4S7
B4SE
B4S9
840

Q45574
045602
045610
(O4SblE
045821

(Q4SS0S
0S1S05
043040
0O42]122
01S

062040
00S01S
OS1117
00Q
020012

8463
8464
B46S
8B4eb
€467
B4EE
9483
e-7C

04Sed4
Q4SBS2
04S6B0
0O4Skbbb
04574
(C4E£702
0-E70S

051505
2515
052523
052116
Q43040
O0Ou42lee
OlS

020123
046440
042522
00S01S
O0S1117
slels
0200le

SEG 2187

UNSAFE /

.ASCIZ

flgERe Gup g o
122
030115
000062
g“Sé
8:%353 o4ese2
031460
000 ISRMO2:
ISRMO3 ..AS
RSE%% ;gggg;
4

S5 Bk VA Cems

08:04

SPEED

TIMES~

# FORWARD-

046511
025040
040527

HEL fiem g S ORI
045636
00SOLS
Q40412
041503
Q44524
0O40S0S
042515
025040
0O80S27
020052

# REVERSE/

& REVERSE/

# FORWARD.

MC-11-DZRMF-B
CZRMFB Pll

g4l
Q4T

2473
847y
84S
8476
84T

Qusrle

Q4s720

RMO3-RMO2

EXTENDED DRIVE

21-NOV-77 1 4:10

Q4esee

08:04

PRGE

158

guedl
04652c

0s410}
051440
aussay
g200i2
053see

MSGl2R:

.RSCIZ

<CRY (LF><LF>/MAXIMUM SEEK TIMES//CR><«LF>/ # FORWARD/

0S110S

051040
04as23

M5G128B:

.RSCIZ

<CR>«LF>/ » REVERSE/

D4e412

ILFSPP

MSGMIN:

.RSC12

<CR><LF>/M]IN=/

040S15

036530

MSGMAX¢

.RSCIZ

«CR>
«LF)> /MAX=/

040412

043s26

MSGRVG:

.RSCIZ

<CR> (LF> 7AVGs/

051525
g42s0e

000
Q47S14

MSGOUS
:
MBELOW:

.ASCIZ
.RSC1I12Z

0_US/
7/ BELOW THE MINIMUM OF ~/

MABOVE:

.RSCIZ

RABOVE

MSGNUM:

.RSCIZ

SEEKS TIMED-/

MSGNON:

.ASCIZ

NOT

MSG.SP:

.RSCIZ

.SBTTL

ERRCR HERDER

EML:

.RSCIZ

TIMED~/

;TWO

(EM)

(2)

SPACES

MESSRGES

INTERRUPT OCCURRED

(RMARS = 0)-

/UNEXPECTED ATTENTION OCCURRED~

gEM2:

O——-0DWo
NN
L£00

MAXIMUM

EM3:

.ASC1I2Z

‘MRSSBUS PARITY ERROR(MCPE=1;-

EMs.

.RSC1Z

+MASSBUS PARITY ERROR.PAR=1,
-

oo
nru—Nhe—

A42340

-RH70

THE

— (NN

051501
050040
020131

044440
gs2s2e

00
£ L

030067
pS110S
047440
p4esee
040518
024460
g4esie
42524
042SeH
p2oile
psliee

052040
0c0

oOo00000
noLrnvnNeE

[ I

D @ NN LW

WMOOMMIDMD
GG
G IGIT,]

22-NoV-77

gsisee

gsellz
g4210S
000040

QGGG

GlS

30(1046)

o4a2ses

046525
0og
Q45505
o42s1s

TEST
MACY1l
RSCIZ ME SSAGES

SEQ J188

MD-11-DZRMF
-8B RMO3-RMO2 EXTENDED DRIVE

21-NOV-77

14:10

3255 Buedss B3pMAC RGeS
UL MES]

20124

030067

0S1057

042522
020104
o42104

050123
Q47Se4
QM2See

833111

020108

020124

047117
000

O
~N

[

—

0S011S

EMS:

.RSCIZ

~/ADDRESS PLUG CHANGE BIT SET~

EMIC.

.ASCIZ

"RH70/RM03 FRILED

EMLL:

.RSCIZ

/DRIVE SELECTED IS NOT ONLINE~/

MESSRGES

08:04

020122
051105

0Qu4esSl0
042040

047522

EMle:

.ASCIZ

- IMPROPER HERDER DRTAR/

046517
043040

40Se4
040520
044501

041440
Q42S22
0SeSi4

EMI3:

.ASCIZ

+DATA COMPARE FRILURE~

8554
BSSS
BS56
8557
8558
8559
8560
gE61
8562
8563
8564
8565

046553
0O4eS60
046566
046574
Qweblz
D4660S
Q46612
Q46620
Q46626
OMBE3IY
Q4642
046650

104
0S110S
047111
047111
052123
103
024040
050055
0S1105
044440
Q44515
051505

051511
047522
0S2040
020607
00
047514
053513
020051
Q46106
020116
043516
000124

020113
020122
0465:1
042524

EMIT:

.RSCIZ

-DISK

045503
030961
053117
053517
044524
052040

EM20:

.ASCIZ

/CLOCK

EM23:

.ASCIZ

/CISK ERROR DURING SEEK~

8Ep8
8563
8570
BE71
2572
873
BE74
BE7S
BETE
EE°7
EE78
EET9
EEBC
SEE.
SCEZ

046670
Q46676
(046703
046710
Q46716
Q46729
Q46732
Q4e74C
O4E743
(046750
Q4E7S6
Q467E3
QNETFT
I4E77E
D<To0N

051125
042523
123
Q47516
0S0115
0G3I44C
020116
0615185
122
046532
OSlle?
106
DE344G
O414~C
OuEedC

097111
045505
042505
020led
Q42514
052111
03106]
000
033510
Q031460
051117
082101
Q4N522
OWw3EI0
DEl1ZZ

Q42440
042040
020107
000
020113
047503
(042524
044610

EMe4:

.ASCIZ

~SEEK

027460
042440
0gg
OQ4&15i
O42ted
(O4E553

EM41:

.ASCIZ

“RH70/RMO3 ERROR"TM

EMYe:

.
.ASCIZ

o
n

n
o

Q46534
Q46542

QY6654
OM

Q44504
0S1122

(0456523
0S1117

159

SEG 0189

TO RESPOND TO ADDRESSING”

8551
8552

8566
8567

PRGE

23138

B2:88 843398
o
£
~

i pwetai i

0S150S5
43525

(EM)

o
£

~
£

¥4
oo
£L

Z
o

b1}
wn
)
wn

o]
Al
£
un

0S1104
48 2

ERROR HMERDER

22-NOV-?7

m
n
n
(@]

SISH jow

8534

046366
0M6372

g2t Rib4e8

042101

? 222
Z227RRZZRZO
P 2R
NOCO £V~
2R
? 00
pa Pt st Bt (fV 0 [ D

046336
Q4634

Q
£
L
Qn
n
£330
N
MY
n = == LV —= N U o (N N

8S29
8S30

MACYLll

ERROR

(KW11-P)

TIMING TEST~/

OVERFLOW

NOT COMPLETE WITHIN

IN TIMING TEST/

120 MS/

020060

v
FATAL WRITE CHECK

ERROR/

QEllic

YN,

CIRMFB.PL1

3001046}

H1S

TEST

a4TClR

1 4:10

N
=y~
— o= = OO
N~
-0
L LN
—r— L NWO oo~y

(@]

? RR22 £

043106
Q47440
040523
044532
0S050S
042108
Q46116
020104
020105
051505

08:04

PRGE

160

.SBTTL

STRTUS/ERROR

MSGBI4:

.RSCIZ

‘OFFLINE OR UNSRFE DRIVE REQUESTED~

MSGB13:

.ARSCIZ

/JINLOARDED DRIVE REQUESTED-

gsisll
0Se440
00010S
0sS4Se4
0s1l1?
gs112s

MSGBl2:

.RSCIZ

/PERSISTENT

MSGBLll:

.RSCIZ

/PRRITY ERROR OCCURRED~/

020114
Qsu4Sey
051117

MSGB10:

.RSCIZ

‘FRTAL

053524
Q44SeH
geolay

MSGBOS:

.ASCIZ

/SOFTWRRE

040527

MSGBOB:

.RSCIZ

/SOFTWARE TIMEOUT ON ANOTHER DRIVE~

MSGBO6:

.RSCIZ

“ERRCR OCCURRED DURING

MSGBOS:

.RSCIZ

“ERROR OCCURRED DURING NON-I-0O OPERRTION"

MSGBOY:

.RSCIZ

/UNSRFE OCCURRED~

MSGBO3:

.RECIZ

044514

INDICATOR MESSAGES

Ou4eseH
UNSAFE~/

PRARITY ERROR-

TIMEOUT ON THIS DRIVE~/

Q44s10
0S3111

[

80&-»—Q2R RSA-orR

00000000
nnLnenuon

e e o

n e bt e pe (O 0
wn LondaN
1+ ol Y Ta RN ]

2ARNZ22ROR22ZRAT

U0 UV 0e pme (Y0 bt B Bt s () s bt (Y0

(@]
n
O NNU——O
N r——wWMno

)

Q43117
02010S
0S2s1?
052040
osiio4

Q
L
~

e pe
e ps pn
e
e
e

@ NN LWy

0]
mmgmmmo:o
[eakealealealoalial l [

ERROR

I1S

MACYL1 30(1046)
22-NOV-77
HERDER (EM) MESSAGES

000

044522
0sllee

8eig

TEST

00
L

]

€ XTENDED DRIVE

Q47440
gz01c2

i i

RMO3 RMOE
21-NOv-77

o0
4L
L

MC-11- CZRMF-B

AUTOMATIC

RECALIBRATE

I-0 OPERATION"

SEQUENCE

OCCURRED

MC-11-CZIRMF-B

CoRMFB .Fll

8639
840
8641
8642

8643
8644

8645
8646
8647

guus2
Q4460
047466
QN747Y
Q47502
047506
Q47514
047522
047530
047536

EXTENDED DRIVE
21-NOv-77 14:10
RMO3

RMO2

o40S03
0s210t

O4M4S1IM
02010S
Q4710S

J15

TEST
MRCYILl 3 0(1046)
22-NOv-77
STRTUS-ERROR IND ICATOR MESSRGES

08:04

PAGE

16!

SEG 0191

051102
Q42523
042503
0s11es
MSGBOe:

.ASCIZ

‘ORIVE HRS NOT RESPONDED TO PORT REQUEST/

Qu7594

020108
Q47S16
0s0l1e3
020104
051117
0sesel

MSGBO!
:

.RSCIZ

/DRIVE HRS BECOME NON-EXISTENT/

p47572
047600
047606

0e010S
Q42502
047040
044530
go0ley

.SBTT.

CATA HERDER

Q471N
047622
047630
Q47631
047636
Q47644
047652
047660
047666
047674
047702
Q47710
gN771E

gsza123

0S110S
020040
000
10S
020103
Q4a5e6

Q4a4ss
o4710S

(DT)

MESSAGES

020122
046522

p4l1seo
0515801

DH1:

.ASCIZ

7ERR PC

RMAS~

gsliliee
Q42040
020040
020123

0S0040
044522

Dre:

.RSCIZ

/ERR PC

DRIVE

RMRS

DH3:

.asC12

/TEST

ERR PC

ADDRESS DATAR~

DHY:

.RSCIZ

/TEST

ERR PC

RDORESS GDODRTA

BODRTAR~

020061
020122

DH10:

.RSCI2Z

7RMCS
]

ERR PC~/

g4eses
0slliee

DH1!:

.RSCIZ

‘DRIVE

ERR PC/

020040
geglae
051524
020040
02C10S

DHlZ:

.RSC12Z

- TEST

ERR PC

TST PC

CYLNOR

Q47724

RMOS

RMER!

RMMR2

RMERZ-

TRACK

SECTOR

Q47732

047240
047746

0S1104
020C4C

Q47114

DRIVE

MD-11-DZRMF-B RMO3 RMO2 EXTENDED DRIVE
CORMFB.PIL
21-NOV-77 14:10

8695
869
8697
8698

050124
050132
0S0140
0S0i46

0S1i04
04iS0.
0J42523
00

020040
0e0il3
052103

O0S1l
0200
051l

8700
8701
8702

050154
050162
050170

020040
045522
0S1504

043440
020040
0S2103

0Sel
Q43440
020122

8699 0S0147
8703

050176

109 041504 Q46 1

KL1S

TEST
MACY1l 30(1046)
22-NOV-77
DATA HERDER (DT) MESSAGES

08:04

PAGE

162

DHl2AR:

.ASCIZ /GDCYL

GDTRK

GDSCTR BDCYL

BDTRK

050204

020040

041040

Q41504

046131

8707
8708
8709
8710
8711

0S0226
0S0234
050242
0S0250
050256

042107
020040
020124
041504
042107

0Q40S04
042102
020040
052116
Q421C1

020124
040504
0S1127
020040
020122

DHI3R:

.ASCIZ

/GDDAT

BODAT

WRDCNT

GDADR

BDADR/

8714
8715
8716
871"
8718
8713
8720
8721
3722
8723

0S0274
050302
050310
0S0316
050324
050332
0S0340
0S0346
050354
050362

042524
020040
041520
053111
Q0486522
020040
020040
030522
046515
0S1040

052123
051105
020040
020105
051503
046522
051040
020040
031122
042515

020040
020122
0S1104
020040
02006l
0S1504
042515
051040
020040
031122

DOHI17:

.ASCIZ

/TEST

ERR PC

DRIVE

RMCSI

RMDS

8725
8726
8727
8728
8729
8730
8731

050371
050376
050404
0S0412
0S0420
0S0426
0S0434

124
020040
050040
052123
042040
020040
042116

051505
042440
020103
0S0040
044522
041440
020122

020124
051122
052040
020103
042526
046131
052838

DHel:

.ASCIZ

/TESTY

ERR PC

TST PC

DRIVE

CYLNDR

8733
8734
87
3736
8737

0S0447
050454
GSCG4b2
0S0470
050476

107
020040
05¢101
042122
0SIN40

Q42104
041040
020040
047103
041505

0S2101
O042l04
0S3440
020124
047524

DOH2lA:

.ASCIZ

-GDDRT

BDDRT

WROCNY

SECTOR-

8739

0SUSO6

042524

0S2123

020040

DH23:

.ASCIZ

/TEST

ERR PC

DRIVE

CYLNDR

RMCS1

0S0600
0t0e0e

l22
020040
O023ll2e

042515
0S1040
020040

0
030522
OQ4eSIS
051040

DH23R:

.ASCIZ

-RMERI

RMMR2

RMER2

RMDC

RMHR

8704

041040

SEG 0192

BDSCTR/

052104

8743
B7SC

RMERL

RMMR2

TRRACK-

RMCS2

RMDS

RMEFR2~

CCRMFB P11

050614
0S06ee2
050630

04esS1S

PAGE

163

SEG 0193

L0
oW

DH41:

.RSCIZ

/TEST

ERR PC

TST PC

DRIVE/

DHY2:

.ASC1IZ

‘TEST

ERR PC

TST PC

DORIVE

DHY43A:

.RSCIZ

/RMER1

RMMR2

RMERR2~

DHYHA:

.RSCIZ

“RMCS1

RMCS2

RMDS

DH44B:

.RSC1I2

/RMER1

RMMR2

RMER2.

DH45SA:

.RSCIZ

/RMER1

RMMR2

RMER2

RMCSI

RMCS2

RMDS~/

—NNLL—NLLr—
NIOOUTNOOWN

Q= Qo

RAZ
RBRA2EER? KR
A

Koo Bros

Al
£00

020040

aTnnse
£000MN

0000000

RRRRRRARRRARRRRRARAARR
QRREOCSRR ns I%g’—v—

050776

R T e P P

s s e ()

RS2L
—

08:04

020040

RERAR
fiuo—
8

82063

RMHR

RMWC

RMDC

RMBH

RMDA-

RMCB
-

£
o

O
n
o
o

0S1040

00010e

O 0N UNUN—
=
() NI
NN Yo
oocoocccooros

2828808 |@]
|=]
LW &

onoOONNEO
wNN'—F—g\l\J

Pt P
Pt Pt P

UMY
-

009
Q00
(RARABADA

.EVEN

S s P

8-51
8752
8753

L1S

MARCY11 30(1046)
RMO3-RMO2 EXTENDED DRIVE TEST
2e-Nov-77
21-NOV-77 14:10
DRTA HERDER (DT) MESSAGES
L0
O

MD-11 -DZRMF-B

.SBTTL

DRTA TRBLE

DT1:
DT2:

. WORD
. WORD

gERRPC,SREGI,SREG3,RHERRS.RHERRS*E.RHERRS+H,RHERRS+6

RRPC, SREG3

036572

001170
036574

00ll1e

043606

DT3:

. WORD

$TMPO, SERRPC,RD.ADR,
RD. WRD

goilie
O43e10

044032

CT4:

. WORD

$TMPO, SERRPC, WRT . ADR, WRT.WD,RD.
WRD

[N - (o)

PARGE

16M

W
W
N— LN
oL

SEG 0194

01352
01346
00liee
001354

DT12R:

. WORD

CyL.DS, TRK.DS,SEC.DS,CYL.RD, TRK.RD,SEC.RD

DT13:

- WORD

$TMPO, SERRPC, SREGO, CHKDRV, CYL .DS, TRK. DS, SEC.DS

=)
(W) r+=te e

N
bo
p 32

(08:04

RH, RDR ,

oci172

DT13A:

.WORD

SGDDRT, SBODART, SREGH, SGDRDR, $BDADR

001334
00322

DTL7:

. WORD

$TMPO, SERRPC , CHKDRV,RM . REG,RM.REG+12,RM.
REG+ 14, RM. REG+40,RM. REG+42

DT21:

. WORD

$TMPO, SERRPC, SREGO, CHKDRV,CYL . DS, TRK. DS

001172

DT21RA:

. WORD

SREG1,$BDDAT,
SREGH, SREG!

001334
004316

C1e3:

.WORD

$TMPO, SERRPC, CHKDRYV,CYL.2S,RM.REG,RM
. REG+10,RM.REG+12

004350

DT23R:

. WORD

RM.REG+I4,RM REG+40,RM.REG+42,RM REG+34,RM.REG+36

0oll1e2

DTY.:

. WORD

$TMPO, SERRPC,
SREGO, CHKDRY

gol1l62
004316

DTH2:

. WORD

$TMPO, SERRPC, SREGO, CHKDRV ,RM.REG,RM.REG+10,RM.REG+12

884318

DTN3:

. WORD

$TMPO, SERRPC, SREGO, CHKDRV,RM_.REG,RM.REG+10,RM.REG+12

DT43RA:
DTuy4:

. WORD
.WORD

Rn.asc+éq Rn.nsc+qo RM.REG+42

DTHYA:

. WORD

RM.REG,RM.REG+10,RM.REG+12,RM.REG+36,RM.REG+34,RM.REG+06

Rr FOFO3TRG

001354

884342 BB4314

—~A——

1
1
1

fu—0

[N
2 un
[V Ly ~N
oooo o

5
-

ood

(NINT Ty

- Ww Cad () = e 0= (W) =2 () () == e e
N LN
o

)

22-Nov-77

.WOR
.WOR
. WORD

(=}
v‘.
88
888
8888
88
8838
Lo »—-v—r—gI o TSR T Sy S O ey-y W

[Sy— o —

30(104%)

$TMPO, SERRPC, SREG 1, SREGS, RMERRS , RMERRS +2 , RMERRS +4 , RMERRS +6

000

(DT)

. WORD

gRéG%.*gSRPC
TMPO

$ERRPC

. SERRPC , SREGD, CHKDRV, CYL . DS, TRK . DS, SEC. DS

$TMPO, SERRPC
, SREGO, CHKDRV, CYL . DS, TRK. DS, SEC.DS

004346

004350

DT44B:
DTHS:

. WORD
. WORD

RM,REG+14, RM.REG+40,RM. REG+42

004316

004320

DT4EA:

- WORD

RM.REG,RM.REG+10,RM.REG+12,RM.REG+36,RM.REG+34,RM.REG+06

DT4SH:

. WORD

RM.REG+!4,RM.REG+40,RM
. REG+42,RM.REG+2 ,RM.REG+4,RM. REG+22

.SBTTL

DRTA FORMAT

881448 881368

L i e
cooggy

MACYL1l

DATA TRBLE

DTS:

36548

~
£

88888888888 9 a8
3585588
OCFETEFFR SRR RO
I
-

[

~
N

l$l

—-L
8828888888 8 8888883888888
oot
b L L L e bt e et s e

§N i

NN NN
mg}m
N
[l
FSnd Ka FERBRZR B33
SRELESRBRRRER IERTERLRY
£
o
W

et Gt Pt Pt P Pt Pt Pt ot Pt Pt Pt et Pt Pt s P Pt G (et Pt Pt Pt Pt Pt P Pt Pt Pt Pt P

RRRARRRRRRRARRARARRARARR RRARRRRRRRRRARBRAAARABAR
PR

LN oo
n nn
n v

gag23

0S1250

Q
n

MO
wam
[0 0]
[eo]e o1 4][seTe eTeeTeeles)
rorury 0t Dt Pt ot Pt P Pt P Pt
nNe—0O OO NN
L WMo

8810

1176

TEST

MC-11-DZRMF-P RMO3'RMO2 EXTENDED DRIVE
CZRMFB .Pl1
21-Nov-77 18:10

DF1:

-HORP

.BYTE

$TMPO, SERRPC , SREGO, LHKDRV, CYL. DS, TRK. DS, SEC. DS

(DF)

TABLE

|NOFBER 8 RoRBs
R BATa TaeLe

{ALL 3 NUMBERS RRE OCTAL

MD-11-DZRMF-B RMO3-RMO2 EXTENDED ORIVE
CZRMFB.PLI
21-NOV-77 14:10

TESTY
MACYLl]l 30(1046)
DRATA FORMAT (DF) TABLE

8863
8864
gggg

051626
051630
0S1631

00000l
0Q7
000

OFe:

. WORD
.BYTE
.BYTE

8867

0S1632

000001

DF3:

.WORD

8871
8872
gg;g

0S1636
0S164C
0Sie4l

000001
Cos
000

8875
8876
gg;;

0S1642
0S16M44
051645

8879
8880
gggé
8883

8868
ggQg

0S1634
051635

004
000

N1S

22-NOv-?7

08:04

PRGE

165

1
7
O

.BYTE
.BYTE

M
O

DFY:

- WCRD
.BYTE
.BYTE

1
S
O

000001
002
000

DF10:

. WORD
.BYTE
.BYTE

1
2
O

0S1646
0S1650
051651

000001
00e
000

OF11:

. WORD
.BYTE
.BYTE

1
¢
O

0S1652

.WORD

8884
8885
8886
8887
gggg

0S1654
(0S16SS
0S1656
0S1660
0S1661

000002

00~
160
050147
006
000

DFl2:

8890
889
8832
8833
8894
gggg

0Si662
0SieeH4
051665
0Si66b
051670
0S1671

000002
007
160
0S0226
00s
oo4

DF13:

8897

0S1672

000000

DF 14:

8898
gggg

051674
oc" 7S

8901
8902

0S1676
0S1700
0s1701

000001
010
000

830S
8306

0S1702
051704

000002
006

ggga

0gs
oo

8307

0S170S

0S170&
Q<1710
0c1711

0S0447
004
014

8912
B913
ggig

0Si7i2
051714
0s171S

00000C
004
Cl4

8916
83917
8318

0S17iE
QJ€1720
0c€i7el

000002
co?
Cig

8308
8309
ggi?

7
160
DHleR
&
O

;7 DATA WORDS FOLLOW THE 1ST DH
:WORDS 1-4 QRE OCTAL S-7 ARE DECIMAL
RDDRESS OF 2ND DM
6 DATA WORDS FOLLOW THE 2ND DH
{ALL WORDS ARE OCTAL

.WORD
.BYTE
.BYTE
.WORD
.BYTE
.BYTE

2
7
160
DHI3R
S
M4

;WORD 3

IS DECIMAL

.WORD

;WORD 3

IS DECIMAL

;WORD 4

.
IS DECIMAL

.8YTE
.BYTE

S
¥4

DF17:

. WORD
.8YTE
.BYTE

1
108
O

DFel:

.WORD
.BYTE

2
&

#1°%]

;2 DH’'S TO BE TYPED

.BYTE
.BYTE
.WORD
.BYTE
.BYTE

.BYTE

DFee:

.WORD
.BYTE
.BYTE

O
4
14

DF23:

.WORD
.BYTE
.BYTE

¢
7
10

.WORD
.BYTE
.BYTE

DHZIR
M4
14

SEQ 0198

280573
a0s
00C

0S1731

20000
o0

o L J

ggS§

051758
Q517

2928
8929
833C
8931
8332
8923
8934
8335

JS1732
0S5.734
05173S

00000.
0g?
20C
~
00°.C2
207
30C
050763

DFye:

8355
8960
831l
8952
8363
6364
8365
8366
3967
8968
8369
8970
8971
89"¢
§973
B3TY

.
051776
052004
0S2012
052020
2Ueh
(052034
0S2042
02050
052052
0S2060
206t
(0S2074
0S21n2

OL»

OFY4:

W
D

OWwOO I
p «
£

000003
oo
160
O0S1Cl]
006
230
05106F
003
000
_
000003
00?
16C
05101}
006
000
0S1113
006
330

o
HY4R

H448

DF4S:

c
HY4'4R

.EVEN

0S177¢

BUFFER-=.

00S01S
043115
046522
115
2sed
02040
052040
000012
ME01S
0S1S0S
053.il
(04e522

TITLE:

(CR)(lf)(LF)/CZRHFBO/(CR)cLF>

JRMO3VRMO2 EXTENDED DRIVE TESTR«CR«LF>

00654
Qu/7S24
0e0le
020105
o46122
a44iey

052040
081104
OMic0l
cecligs

LORDRV:

.RSCII

‘CR,¢LF»~T0 TEST DRIVE O REPLACE THE °xXDP° PACK ON DRIVE O-<«CR:.LF-

[ G

(6k

O -

NF=3:

0023
coo

GR2ri0S

PRGE

n
v

051762
0SiTe4
051765
051766
051770
05177}
(S1772
0S1774
(S177¢

aoCC

Ow QOO I

0S1746
0S17SC
0Si7S]
051752
051754
(0S5175%
(0S1756
0S1760
051761

08:LY

8942
8942
8944
B94S
9946
8947
8948
8949
89S0
8951
8952
§953
8354
8355
8956
gec?
B89S8

JSi74N4
05745

22-NOV-TT

p£o

893t
8937
8938
8939
894C
8941

D M2 IR
S

J6i722
2JSiTgH
0S!i7cs

0Si173¢
Q0S17H0
0SITw]
0E1Tw2

TwBL

u
TM

TEST
DATA

QOO0 W

83,9
8920
89¢,
89c2
8923
8924
3925

LIC4S

MC-.1.-OlRMF-B RMC3 RMOE EXTENOEC CRIVE
21-NQv-"% 14-:C

JIRMFQ R

Clb

Q47117

042130
041501
Q42040

023520
020113
0DM4Se2

Z
o
R

054047

(S2

7
b
&

8975

3 ROFERYSE

iw-11-DIRMF-B RMO3. RMO2 EXTENDED GRIVE TEST
ACY1i 30(1046)
CIRNFB.PLI
21-NOv-77 (4:10
DATM R FuRHa
(DF) TABL

§3§§§2 gg ?gg ggBS&E

2000
3001

0S2322
052330
052336

§§§

gsu4se

02
0O425¢e
0521e4

0535c2
047105

.EVEN

gggg

.SBTTL

Sgu8

9005

1]
9011

010046

O0iCI4e

052362

0i0600

364

6044g9

3823

062372

oxazgz

3025

0NS2406

005721

9027
3028

082412
02w,k

11€-701
010006

000002

3C3C

Nc24e4

D12€27

0CLLO4

235S¢ 81*7w
1374
366

0126

aoSa 8?5388 86§71x
H

9026 062410 000775
aZece

JSR

R R AR

R A IR

ER R

R A G R RRR AR R R R

R R F RN

AF AR R R R RRR PR AR LS

PC,$SIZE

.s'svno WILL CONTAIN THE LAST AVAILABLE MEMORY LOCATION
052350

02i

RERR SRR
RE TURN

38{5

3819
}
3018
3019

ROUTIME TO SIZE MEMORY

iCQLL

§52346

0C€2420

012637

$SI2E:

ggooou
0006
000006

828368

0Q000E

338G 3197

/THE PROGRAM/<CR>:LF>

QuwsSae
00SC1S

3004
9005

9014

PAGE 167

818? NOLOAD: .ASCIZ <CR.,«LF>/SVSTEM HAS 16X MEMURY, 'XXDP' LORDER WILL BE OVERWRITTEN-‘lR .

9003

301S

08:04

L.RSCTI /WITH ANOTHER PACK, CLEAR MEMORY LOCRTION 40, AND RESTART/«CR-<F:

.ASC12
8991

@22-NOV-77

MOV

RD -(SP)

rov

(SP)+, aoERRvec+e

MOV

RI -(§

; i SAVE RC ON THE srnc«
:SHVE R1 ON THE STAC

MGV
g ERRVES
(SP;
,.snvz PRESENT ERROR v;croa PS 8 PC
nov
sERRVECS2,
-SAVE THE STACK POINTER
::SET THE ennvsc Pé TO THE Pnecsfif

0000a4

18:
2%:

ngz

§Snenflvsfi

187

fn1>+

TST

B8R

#2,Pl
RO, SP

(SP .+,

MOV

OLD Psu nno PC ON STACK

AVE HE PSW IN a8ERRVEC+2

§zfl ;oh ngg

’

?
THiS RDDRESS

;;STEP TO

SuB
MOV

,,fnv nuo

xr ADDRESS

..DROP BARC
s RESTORE *HE STACK

(SPT+, JNERRVEC+2’ : ;RESTORE ERROR vEZTOR
JBERRVEC

MD-11-DZRMF-B RMO3/RMO2 EXTENDED DRIVE
CIRMFB. P11
21-NCv-77 14:10

0Sa+30
0S2434
0Se438
5440
0Se4de

01013.

SLSTAD:

030000

D16

MACYLl 30(1046)
TO SIZE MEMORY

MOV

0Ssauvue

012600
000207

22-NOV-77

R1,$LSTAD

08:04

PRGE

168

SEG C198

,.Lnsr ADDRESS

MOV
E?g

SPI+. R
é%P)#'R0

RESTORE Rj
' 'RESTORE RO

.WORD

: ;CONTARINS THE LAST ADDRESS

P RERBRERRERERERBRRERERBERRARRRBRERARRRERRAR
SRR R D RS AR LRI SRR

GETADR - GET BUS RDDRESS ANC VECTOR RDDRESS

; THIS ROUTINE IS USED TO ENSURE THE BUS RDDRESS
;OF THE RH70/RMO3 IS SETUP TQ RERD THE PROPER VALUE.

;1T WILL ALSO RERD THE ADDRESS FROM THE TTY IF

:REQUIRED.,
ggrs THIS ROUTINE DESTROYS RO-R4
:

0os737
001427
005037

001306

GETACR:

001306
0Cly50
0Seee2

18:

03374C

JSR

PC,38GETADR

71ST

J8BUSRDR

RETURN

BEQ
CLR
MOV
MOV

2% :

052712

: NO- -BRANCH
PYES--~CLEAR THE REQUEST FLAG
rxnsr ADDRESS

JSR
BR

RO, JMGE TNUM
2s

'GET NEW RMCS1
,connn

BR
MOV
MOV
MOV

c§
RY. (ROD)+
mkuvsc R3

:DOUBLE PSRIOD
; SAVE_NEW RMCS!

3s’
3
5¢
RY, (RD)+
R4’ (RG)
J8ERRVEC,R1
oes ISERRVEC

1 COMMA
‘PERIOD
:DOUBLE FERIOD
: SAVE NEN RHVEC
:SAVE INP
:SAvE THE snnon VECTOR
‘SETUP FOR TRAP

MOV

JSR

033740

00C401
-0
ONN

o ~N N
= ==

000004
052570
126702
000004
Q01450
036736

0oogoou

000004

3%:
c§:
3§

SR
BR
BR
MOV
MOV
MOV
MOV

ROa&cernun

PQESENT RMCS! ADDRESS

!PERIOD

L SRHVEC="
'PRESENT nn7o VECTOR RDDRESS

:GET NEWRHVEC

a ADK

MOV
MGV
MOV
RTS

SRMAOR, R1
(RO)+.{R1)+
(RO)+. (R1)+
PC

:FIRST ADDRESS OF WHERE TQ PLT THEM
:BUS ARDDRESS
vecroa AODRESS
'RETURN

CMP

(SPY+, (SP+

:CLERAN OFF THE STRCK

757

AITE

‘1S

CLR
CLR

J8DRVSEL
JNSEOPCT

:YES--NO DRIVES SELECTED
*NO PRSSES

HOV
MOV

ERROR
BEG
NP
MRMCS1:

(RO) R4’

TST

MOV

8% :

: INPUT FROM TTY REQUESTED?

78
J8BUSADR
#RH. ADR, RO
cnnncsx'R3

—

0S2444

O000000000
Ro8Pt
s ot Pt o () e D0 Pt e
n OO
PNNONINW
oo
OO
NN NN 22
— NW

9031
9032
9033

TEST
QOUTINE

.ASCII

assnnvec

RA AGR, RC

R1, d¥ERRVEC
10
18

ERROR VECTOR

:FIRST ADORESS OF NEW PARAMETERS

:RESTORE ERROR VECTOR
!REPORT THE ERROR
THERE

A MONITOR?

*NO--GO RSk FOR RDDRESS

JuSEOP

<CR,<LF.

CHECK FOR RH70/RMO3

;RESTOR

:GO TO END OF PROGRAM
ENTER

SIx

OCTAL

DIGITS,FOLLJWED By

ANDG

MD-11-DZRMF-B RMO3- RHOE XTESDED
CCRMFB. PL1
14
21-NOov-?

0Se630
052636

g20i22
Q41s1?

300001

QY4523
g4osSeM
044507
Q46117
020104
040440
0s1103
051012
000C?sS
o4ylee
ooc

DRIVE

TESTY

30(1046)

ELB

22-NOV-77

0B8:04

GETADR - GET BUS RDCRESS AND VECTOR RODDRESS

023130
020114
0S1Se4
047514
0s4s0e2
o4elle
376
04isl1s
042526

MACYl]l

MRHVEC:
.ENC

.RSCIZ

<«CR.<«LF-/RMCSl=/

.ARSCIZ

<CR><LF»/RHVEC=/

PRGE

169

MO-11-DZRMF-B RMO3 RMO2 EXTENDED
CCRMFB.PLL
21-NOV-T7 1M4:10
RBRSE
RCDW]1

=
=

(200000
000000

AcPUoP= 0OONOD
[y

RCTLCRY

ACTSTR

$36654

(036655

RAD0DWO =
RODW1 =
RODW10=
RODW11=

000000
000000
000000
000CQO0
ROCW12= 000000
RODW13=
0000

ADDW14=
RDDW1S=
ADDW2 =
RADDW3 =
RADDWY =
QDDWS =

$33
833

£33

sug

7393+

70758

797B®

7990+%

533
833
533
533

533
533
£33
833
533
S33
533
833
£33

533
633
533
S33
533
533
S32
533
533
533
533
533

570

RPASS =
RPRIOR=
APTCSU=

000000
000000
000040

533
S33
40528

s38

AFTSPO=

000100

4010

YOSle

4246

RTRBIT
#TESTN=

03E724
000000

1943
533

B414
g37

420

GIy oz= 100000
TC
RTi
=Tz

= 000C01
= C000Ce
= OCOCOd4

SEG 0200

7719

T728%

7974

7309

740S

533
575
544
545
S36
Skl
S6S
568
571
555
563
11)
Se9
S41
S42
535
S56

000000
000000
000000
000000
000000
000000
00000C
000000
00000C
000000
000000
000000

APTENV= 000001
APTSIZ= 000200

171

S33

AMRDR4=
AMAMS1=
AMAMSe=
MRAMS3=
AMAMSY=
AMSGRD=
AMSGLG=
AMSGTY=
AMTYP1=
ANMTYP2=
AMTYP3=
AMTYP4=

= 001000

PAGE

533
533

ADDW? = 0000C0
ADDWB = 000000
A0CDWY = 000000
AROEVCT= 0Q0000C
ADEVM = 000000
RENV
= 000000
AENVM = 0000
#FATAL= 000000
AMARDR 1= 000000

AOE

FLE

@22-NOV-77
08:04
USER SYMBOLS

574

7342+

533
533
533
533
533
533

AMADR2= 000C0C
RMADR3= 000000

TEST
MRCvll 30(1J46)
CROSS REFERENCE TRBLE --

70689

000000
000000
000000
000000
000000
000000

RA0DWe = 000000

DRIVE

833

$33

c84ys

4008
1831

332
3338
334s

Se4

Se7

42Sl

40508
40498

4090

Ha24y4

71418

7511

7893

7918

7923

r 924

T44

8034

MD-11-DZRMF-B RMO3 RMQ2 EXTENDED DRIVE TEST
MACY1l 30(1046)
SIRMFBUFLL
21-Nov-rr 14:10
CROSS REFERENCE TRBLE --

AT3
AT4

ATS
AT6
ATT

AUNIT

= 000CIQ
= 000020

=
=
=

337
3388
339

= 000000

533

= 0000

5§33

AVECTi= 000000

5§33

AVECT2= 000000
Al6
= 000400

00i000
000010
001446
uC'soe

BITQ
BITO0
81701
81702
81703
BIT04
BITOS

=
=
=
=
=
=
=

00000:
000Q0)
000002
00000S
000010
000020
00004G

BITO&
81707
81708
BIT09

=
=
=
=

000100
000200
000400
001000

BITI
BITI0
8IT11
BIT!2

=
=
=
=

81713
BIT14

= 020000
= 040000

)

000002
002000
004000
01000C

BITIS =

100000

BI72
=
BI*3
=
BiT4
=
BITE
=
BITE
=
8177
=
BIT8
=
BI79
=
BPTYEC=
BUFFER=

000004
0000i0
000028
000040
000100
000200
000400
001000
000014
0S177¢

BUSADF
BrPASS
.

001306
001332

SAL.A
AL
B

D270%M
D2r20e

PAGE

172

SEQ 0201

3358
3368

000040
000i0C
DO020

A1T
=
BRI_ =
BaSFLS
BITS

Glb

22-NOV-77
0B:04
USER SYMBOLS

833
207

547

572

5§73

2088
2258
6308
6478

2182
£ids

3865
21S6

3884
2211

S4S4¥
2270

S49L¥
2326

5524s
2922

1828
1728
1718
i70s
1698
1688
1678

182
18I
180
179
178
_177

B47
648
649
650
651
52

663
664
665
666
667
668

1931
S543
8252
5586
5583
2711

1953
5577
5849
7851
7886
2727

2008
7385
5580
BIS2

5189
7640

2803

2984

2998

akc

Sses

Srol

P23l

7450
7851

7759
7866

8213
7886

7919

BIBS

3155

3431
4

540

1668
1658
16498
1638

1818
1628
1618
1608

3269

3013

2825

€528

3018

2907

ES82

3122

3043

B7S6

7318
7585

7376
7740

5592

8025

B57
658
659

4078
4743
5543

5201
5580
§883

SS49
7278
7273

5580
7412
7300

6775
7806
7318

7BM2
7960
7387

7420

TEOO

7623

7638

7652

660
6kl

4085
2722

5543
2979

5577
2933

7370
3097

7822
3201

8093
3213

2315

3333

4718

5463

5549

b6
7387
80S5
8062

5316
7417
BOE2

5355
7420

5402
7606

S8e2
7759

5598
78S1

Srue
7Bee

STd4r
086

7370
7BBE

7382
7955

1345

2417

139

38S1
8925
S83s

386l
5944
1782+

3872
5345
1789¢

3613+

3691s

3819+

2012
2140

eSle

5589
7318
7318
4?36

7382

2006+
20i4
2183

7809

1393

3860
5969
1787s

7955

2688

3891
B0SA
1789¢

BOSS

S452
7e40

3433

Sebo*
6090
9049

eY81

6B
670
5§77
94101

B21Y

338

3910

653
654
685
656

8147

330

3792

176
175
179
173

8090

3ewk

3706

3241

5583

5928

3631

.
265

3224

7878

i5?7s
7385
8028
1808
1798
1788
1778
1768
1758
1798
1738
1838
1321

3486

2547

3206

7826

1598
1588

3399

2481

B102

BIOE

3448

346l

S489
7eN2

Seek
6i33
9051

B2ll

3520

3530

3S44

3690

382

5668
€175

5670
B192

5671
BI93

567
G210

5745
8960w

5782

2136+

2189¢

2240

2299

2355

24Sle

2510%

25T"s

2695%

2858

3425k

2139
2245

263
2253

3929
2303

3329
2308

52958
235

5298
2371

S6BQ
2387

2393

2457

2459

259

5531

6016

6le2

6227

MD-11-DZRMF-B RMO3 RMO2 EXTENDED ORIVE TEST

CIPMFB.PIL
CALL.C

027410

CHKORY

001339

21-NOV-77 14:10
2521

2192

633s

2523
2861

[985s

8843
749688
7491w
75038
7812
7833

SITE
QY10TE
g1
041159
CKSCTR
032232
CKBWR = 109407

76088
7611
3947
4068

7309
76228
53668
4100

K DEC

bBOEs

6B36

QY0232
048348
QWI0IE
041040

I17
-

owiosd

Ck.CHR

036210

Ck.DIG
Sk NUM

O3boEY
036950

036162

Ck.0CT

036134

SLKSTA

LOSE
SR
=
CLRBUF
CLROUE
CLSWDS
CNTRLC
SOMMA~

001324

036054
DOOONO
032164
0W9616
035754
001304
095367

SOUNT
T Dar34s
X
= 0DODIS
-

CRLF

ZvL.DS
j

= 000200

SfL.RD

001350
001342

7372
7868

6348

E908
£3€7

o8ss

6796
2278
3994
2694
67230
SBas
1971

3008
e

7443
75e2

PAGE 173

2529

2618

2862

5331w

533

1390

1395

3955

5240

8812

@817

822

8825

8823

8834

883

7599
7843

7595w

79e8
7598

749
700

7506
7714

75i0
7744

7521
7905

7528
81S7

7534

7538

7SSE

6702

5828%

6865

6878

6889

B3I0

b7BE®

6925

6935

3295

5119+

51218

33
3303

STels
E518"
B473

B4B3

e3ss

839

o5
8487

8962

B836%

8970

8849

75908
7841

780
7572

5381

744
7583

4717

4BMEN

6646
B678

6859
6711

6323w

1978

2700

27an

6750

sgu2s
7213
6734
1785
@423y

3106
B,

]

BOW?

b66e

bub5

SEG D202

2527

538w

6625

64BS

6753

BYB3

2932

3006

7660
6737w
1730

8281w
1883

1927

3211
344

3229
353

33
338
8470
3094

8473
9036

31Bl

@23

@430

guug

8453
8989

BYe0
89392

B4b3
9086

6008
@815

2714%
8817

G6303»
8825

5339%
8829

5386#
8843

G5439»
8849

S476*

55094

S567S#

5713+

6032%

Bl4bs

8812

5@0s
5279

1930
5366

1933
S413

1948
5632

2008
Se2l

2357
6317

2952
6321

3022
6322

3826

SI134

Sl44

SIS4

5189

277

2780+

2789

388

5378

426!

SE70#

DATCMP
OCK__
=
DCISP =
DECSEC
DECSK
DE.TA
DFLT
OF 1
OF10
DFI1
CFi2
CFI3
CF14
OF17

032672
100000
177570
032102
007400
001430
00179
01622
081642
DBlENE
051652
0Elgb2
081672
QE1676

3756
2308
1048
53108
22528
G2ls
7438
1482
1546
156
1569
1582
1590
1621

2256
26Bbe
5178
8859
8875
8873
8883s
1603
161l
163l

EFey
fr2z

CEivCe
DEI7IZ

1644
legz

B3065s
esize

1992

6089

503

1822

4300

8815

1819
2776s

88908
8974
3G1n

8ee3s

2TTTe

B4eS

S127s

B448
8979

00130C

98 1E2€E

08:04

2525

6398

£.SWR

H1E

22-NOV-77

CROSS REFERENCE TRBLE -- USER SYMBOLS

8833
7440
7442
7931
7430
7529

CI1
{33
RSO
$Is
S16

MACY.l 30(1046)

1664
1502
1512
1709
1719
1731
1746

1676
88678
88718
89248

8916#n

D476 1M
0s0022
0SO04}
0s00
0S0147
0s0226

1480
154y
1654
1567
8699
8707%

8659
86834
B686S
1580
8886
8893

1776

89498

DHe
DH21
DHE IR
DH23
OH23R
DH3
D4
DM ]
DHN2
DHY3A
DHY4A
DHY4B
DHYSA
DISPLA

047631
60371
0S044?
050506
0s0s73
047716
047783
0S0640
05067
050763
0S1011
0S106S
DS1112
0OClli42

CISPRE
DLY
=
oMD
=
DORTM]
OPB.A

000174
100000
Q000C1
031274
004206

1520
87254
8908
1674
8919
86718
8676
%
87SSs
1729
893S
8942
B94S
8955
1819#
3056+
1827

oeg.RB

00422¢

1490
1642
87338
1662
87488
1500
1510
1707
1717
87698
87738
87818
878Ss
S03s
2914
628
2378
2948
2709
13168
2’13
£299

03630
DC0400
036640
(04533}
0040
036E00

ORvYCAL

027612

DRYCLR= 00C1:1
LR/LL
C27e3¢
DRIINT
DZ71EE

8760#
89s2
1827*
3le2x

3090
2007
#
272
S304

2580+«

2590#

13648
§380
70298
cb4s
70428
195y
3SSs
2763#
7902
3437
3857
43ls
e7ES
7233

§333

2456

§33S

2003
£382
7e4e

2184s
£386
7248

2358
8423

7406#

69879
7914%
3441
38e4
2756
E4338
TeeTs

7366
8028+
3446
387¢
S4234
T3CY

26592

2832

2683+
3928+

2692

224b*
2386%
2528+
2868

2247
2392«
2573+
5281«

g282#»

£285#
8049+

J
L ¥

257S#

DFINT
DPR
=
DPRQS
DRIVES
DRG
=
ORVYACTY

8739

2133
225s

E284#»

B&89s

86628

2002*
ceSH4s
2450+

SEQG 0203

‘JQ’\IU\NNQNU‘NNU\

00424¢

313
2973
2001l#
2714
§303

174

87148

12u0y
2249+
2449

OFB.C

1629

PAGE

1619

1774

1601

(08:04

USER SYMBOLS

o
WPOW—
O O00WD LW

05027~y

1761

I16

22-Nov-77

8041
8058+

TS93e

7615

880+«

3463
3894

3525
S428s

3783

DHi7

0s176e2

892688
89328
893S

M ACYLL

OFu4S

DMl
DHIO
DHll
DH12
DH12R
DH13R

081716
0S1632
0S1636
0S1726
081732
0S1736
051746

14:10

30 (1046)
CROSS REF ERENCE T RABLE --

TEST

o
Ww

DF 23
DF3
Of 4
DFY]
DF4e
DF43
DF 44

21-NOV-T7

DRIVE

CCRMFB.PLL

RMO2 EXTENDED

MD-11-DZ2RMF-B RMO3

5297

MD-11-DZRMF-B RMO3 RMO2 EXTENDED DRIVE

CoRMFB.PIL
DRVMSK
DRVOK
DRVQUE
DRVSEL
DRVSTA

001336
D0B254
044714
001312
036610

21-Nov-r7

594ys
1388
7361
S85s
1897

7348

J16

MACY1]l

30(1046)

1987

1991%

1399

8321
1343+
199

1953%
7001w

1957
7223%

1980
7224%

1914

1917

2956

20049*

2754s
3014
3132
3356

1818
2608%

9755
3013
3204
3361

2611

5509

gs10
6032

6033

6059

gigg.

7219

7433

7489

[4:10

1986#
1995w
7374
1338
1941

735k

TEST

CROSS REFERENCE

7380

7914

TRBLE

22-NOV-77

08:04

-- USER SYMBOLS

PAGE

175

SEG 0204

PS47x

1987
7225%

7eeds

1999«
7026%

3943
7236e

£3%1e
7268

EYl4s
7277%

£420¢
7315e

9082s
73204

293

5252

7016

7269

7284

7289¢

7294%

7383

766S#

2bl14%

2616

2681%

gsle

5527
6091

6146

T620%

B33

79I

7799

7BO7

7820

7874

7BBIs

789N

DRVTYP
036620
DRY
= 000200
OSWR
= 1775-0
OTADPE
004266

1900
2638
1038
13888

27S2%
3011
3127
3353

§S0e

LTE
Cla

) §o]

DTUW

pT00
DY0l
£T02
O1C3
DTO4
DTOS
0108
LT3
008
071
D*1C
D1l
DTie
D712k
DT13
DT13A
pY1?
OTe
pT21
DTelm

= 010000
= 000020

= 020000
036722

2871
3178

3268

sggii

§71S

3468
3478
3488
349ps
3S0s
JSls
352
3538
3548
148}
154
155
1568
881Ss
1581
4589
1620
1489]
1643
1651

1602
1610
1630
1521
88258
88278

L723A
gv2
]

0S1430
gclele
QSleee

BB3cH
1501
1581}

8803s
8805Ss

DI“Q
D,Hg
CVH3A

3514§2
TE1470
2CiE0E

1718
1730
8Bu4cs

0Si4}]2

BS1luNe

§716

000001
000002
00000
060010
000020
000040
000100
0800200
000400
051170
0S1254
051260
0SiceH
051302
051316
051334
0S1346
0S1174
051366
051402

D723

=
=
=
=
=
=
=
=
=

S714

1663

1708

8799s
8810s
88l1ls
ggles

1678

88348

88364
8e39s

8817
88208
88ces
8800+«

88294

27b0%
308S*+
3207
3429

2761
308e*
3222
3430%

SSl1

2767
3092
3225
3931%

2794
3100
3239
3432

2682+

2684

2687%

2796
3103
3242
3433%

2951
3110+
3247
3436s

2982
311l
3318
343G+

S702*

§703»

S704#

7647

“E49s

7658+

B147

6i48

2985
3115¢
3321
344S#

2688%

299
3ile
333
I45os

27464

2749

STo7

S7Q09

ST13

———

—

6297+

re2e

£c98e

7734

9999
3124
13339
3953«

6299+

8021

MO-11-DZRMF-B RMO3 RMO2 EXTENDED DRIVE
CZRMFB.FLI
2L-NOV-77 I4:10
D44
DT8R
DT44B
DI4S
CT45R
DTY4SB

gS1S14
051532
0S1S4e
0S1554
0OS1IS?e
0S1606

1745
88468
8848
1760
8852s
8854s

88438

DULP
DvR
EBL
ECH
eCI

=
=
=
=

037170
004000
020000
000100
004000

72688
2578
307s
c2B8ls
398s

7279

D4467Y

7’612

7663

OHe44Y

15853

ohg-t

EMPTYQ

051234

EMTVEC= 000030
EMI
Q46144
EMI0
Q4637

EML]

8807

1775

192
1479
1543

1802%
8507
8S34s

KLb

TEST
MRCY1l 30(1046)
@22-NOV-77
08:04
CROSS REFERENCE TRBLE -- USER SYMBOLS

7760

8063

1641

8S50s

1803#

85418

1566
1579
1616
1489
1628
1661

85464
1600
85Su4s
8S13s
8559
85668

EM3
EMY
EM4!

046245
Q46302
Q46743

1499
1509
1706

85138
8524s
1716

1728

1743

1758

85768

ERINDX
Q030450
ERR
= 040000
ERRVEC= 00000+

S307
2708
185s8

S343

S330

S443

s480

5813

GS71s

1828#

4723

YZeur

4726#

ERPR.CT
ESRC
=
ES.SAY
EXIT.A
EXIT0
EXITl
EXITI0
E«ITi1
EXITle
EXITI3
EXITIN
EXITIS
EXITIE
EXIT1?
Ex1Tg
EXA1T20
EXITel

001444
004000
045060
014032
006712
007140
0l2664
013150
014040
014550
015332
O0lell4
016556
Q17242
007428
020042
020700

6278
305
7778
3027
2136
2189
2t9s
2858
2938
3081
3187
3301
3425
3512
224y
3691
3819

3495

3640

3801

S829

076k

2299

EXIT22

ExI173
E£1T4
E/17e

021050

0IC3iv
0;3c<¢

1673

017

3932s

23s¢
2451

SEQ 0208

8306

Q46501
046526
046553
g46207
Q46605
Q46654

046703

176

8849

EMie
EMI3
EMIT
EM2
EM20
EM23

gEMed

PRGE

85708

1816

902i%

1817%

2040

S022%

3408

9029%

7830
2031s
cl4ls
21l94s
277%
2870s
2943
3083
3189
3303
34688
35648
2e57s
3704
3895

7834

8098

2806

2808+

3030
31378
32524
33668

3033#

3718

37608

2312

e40Ss
24&3

2HEE

S030%#
818

9068

83768

9069%

5717
4729%

5088%

S089%

S5094*

6014

604S

6160

6219

9071s

9077#

Sli4

016

MACY11l 30(1046)
~ £ST
22-Nov-77
08:04
CROSS REFERENCE TRBLE -- USER SYMBOLS

PRGE

177

SEG 020

2452
2939

2464
3085

2238

2449

2508

28se

28s3

2239

2450

2s09

2573

7954

8024

2403
2866

2580
3328

2581
3429

2940

3518

3664

2622

2e8e

2854

28ss

80Se

8059

B8342s
4844

]

2370
28

2532

000002
000004

HHNP

001600

nMMmhTm
N Ll

001606

WuW

L ¥

Ralalnalnglng)
N Zre-aM

2sio
asz?
Yed
2588
3517

OO —0 N
DODmh»-—
LN

ENDED DRIVE
1Y4: 10
W

nmm

Ox
>
e

21-NOV-77

L0 LN
WWoHDWUI
N~
OLfoW—NN

o 3x

1O
DD

9062
7803

3961

REBERE

002000
001S78

3978

4175

4849

4850

6394

6427

4838

4839

4840

4g41

4842

6486

6497

6526

6533

b542

6548

BS57

6574

6456
65208

6460

6402
6755

6409

6410

2304

2380

2460

24€1!

2530

2686

2773

3249

3363

7228

7719

2254
s8s7”

1801+

3134

b {

6586

6632

4300

kBx

000100

VDV —42('\(\1)"!
[

LR
e L L
L L
Ll la il
4 ANNNDOZZZIE M

il4 X
D 40O
m

000001
10494086
034234
034320
034662
034664
034774
035034
034076
034100
034230
000200
002000

7840

MD-11-DZRMF-B RMO3 RMO2 EXTENDED
CZRNFB.PIL
21-NOV-T7 14:10
NIPARD=

TACNT
eC

aasssa

D3e6he

001574

3012

703w

7eeer

gege

g/74

6788

LKS
LV

00i4TY
001470

589
200
Jo8
g448
8979
p40s
639

LODPRM

026632

2111

LOP.Ck
LPB
LPS
LPTAVL
LP.AVL
Ls
-SIT
=
LT
=
o7
MABOVE
MBELOW
MC_K
=
MCPE
=
MCPEMX
MOF
=

030410
001504
001502
001310
026054
1610
000002
002000
001602
04606e
046033
004000
020000
036734
000180

€320
b44s
6438
Sg4s
1874
684s
295
2664
68is
5842
§826
324
2108
7iS3s
313

LDCMD
LF

027010
= 000012

LODPLY B36374

MI
=
MNDLTA

1538

3274

0DOOQY
036750
= 0DO00

3158
71638
321w

= DOO4O0
= 002000
MRHVEC
052712
MRMCS |
2
MS
= 0D0Q4J
M5C
=
000002
MSEN
= 010000
MSER
= 000200
M5GAYG
046017
MSGBOl
047556
M5GBO2
047506
MSCE03
Q47436
M3GBOY
O4741E
M5GBOS
Q47346

2308
3238
906
9053
318
314
3254
320w
5847
1450
1449
1448
1447
1446

M5GBOE

047240

1444

MEGEID

Q471SE

1442

MOC
MOH
MOL
MPE
MRD

M5GBOE

M5GB0Y
MEGEL]

MEGBI2

= 020000
= 010000

047302

0472C]

Q47130

047i0E

DRIVE

213

900
52798
5798
8453
8989
5126
2706
21kl

1443
1441

1440

7683

2188

2Bed

2310

2381

2383

2392

2463

24e2

25i2

392

58%

3948
BYe0
8992
5158#

3979
BY63
9086

4294
8470
9094

4300
8473
930%

6315
BYTY

395
8483

8399
BY8S

8405
B4B7

8423
8962

B4Y30
89EM

8440
8970

2707

5156

SIE7¥

2216

2275

2331

2427

2486

2552

2657

2830

2912

3054

3180

Bu0p

5S40

5528

E54Es

5090
5087%

S091#

5881

€883

6287

2620

80BC

8128

gedys

6378
6348
36278

8e21s
gelISH

36038

6058

g0l
e

85988

3636

3797

3915

3663

2186
8494w
84908

84878
BeSlw

SEG 0207

2249

3891

9036
¢
908es

178

2782

3404

7708

PAGE

erp

517

8359
4074
4073
4071
5087s
2184

771ps

MLlE

22-NOV-77
08:04
USER SYMBOLS

2247

139"

3o
2688

144

TEST
MACY1] 30(1046)
CROSS REFERENCE TRBLE --

5878

5229

31%

330

3719

3838

258l

BOl

MD-11-DZRMF-B RMG3/RMOZ EXTENDED DRIVE TEST
MACY11 30(1046)
22-NOV-77? 08:04
CZRI¥B.P11
2'-NOV-77 1I4:10
CROSS REFERENCE TRBLE -- USER SYMBOLS
MSGB13
MSG3iN
MCGFCP

Q47055
047017
QYS1]4
=830

MSGLCP
MSGMAX

1439
1432
72
730

6010

5831

MSGNON

9“0126

5868

MSG.EQ

04S182

MSGNMIN

6331

MS
mco rE

46111
QN5154

MSG.FC
MSG.FS
MSG.FT
MSG.IC
MSG.IT

0O45106
045140
(Qu5127
0Ou4SieM
Qu4S13S

681

6316
6618
707
735

4a3s

Ols

49848
83998

6656

8387
8395¢
83328
8391s
83948

6697

£398s

0O4Sl11l
04SiMN3
0Qu6132

MSG.SP

ONE1Y!

éggg

1995.

1912

2020

4170

046026

S819

830

5835

5846

5859

84898

045520

987

992

998

1003

8448

2774

2777

MSGI0R
MSG108
MSGilA
MSGl1B
MSGI2R
MSG12B

045552
045621
045636
045705
045722
Qu4S76M

MUR
=
M¥P
=
MXCLTR
MXF
=
MXLRCT
MXSTAL
MYWNOM
NBR
=
NC}
NC2
NED
=
NEM
=
NOCLOK
NOL ORD
NONE
=
NOTPRS
NCTRM

001000
000GI0
036746
001000
036754
001442
036752
100000
001614
00lEiE
010000
004000
(04537]

0BCK

100000

MSG?7

NOTSARF

OBEN

045362

000101}

045253
(045300

045270

= 0400600

ocC
= 100000
OFFDIR= 000001
OFFSET= 000115
oM
= 000001

1008
1009
1013
1014
1018
1019

3228
316
71668
c3ls
71638
bobs
71728
358
6868
687
2348
233
1979
1856
1959
4o7s
1905
1903
1309

3288

3278

3098
39618
433s
2618

SEG 0208

8593
8587
83898
aaggo

732
731
734
728
736
733

MS5G.LC
TMSG.LS
MSG.LT

PAGE 179

83888
83968
8393s

84538
g4y608s
84638
84708
8473
84798

7706
7689
2377

2399

2685

2773%

84308
8992
84288
8413
1919

g4lbs

8418

2785

4209

4216

g822

s83e

5853

6614

6654

CcOl

MD-11-D2RM
-8 RMO3 RMO2 EXTENDED DRIVE TEST
MACYLL 30C1046)
2p-NOY-77 08:04
CIRMFB.Pi!
21-NOV-77 14:10
CR0SS REFERENCE
YABLE -- USER SYMBOL
OPI

OPNFLG
gPNEAT

= 020000

001320
035442

o
OPMOS
oPN.CT

deN.NL
OPN. N2
OPN.X]
OPN.X2
OPN.1
oPN.2
OPT
Ok
=
PRCX
=

PAR
PAT
PAT.PT
PATD
PATI
FATIO
PAT11
PA1le
PATI3
PATIH
PATIS

035564
(036072

03677E

036014
(036320
035076
03520
037774

000200
000123
= 0O00I0

2088

6878
ebl3

00364

1032

PRT?
PATS

003546

POR -

= DOOM0D

FeM

= 001000

PGE

PIP
PIRy

=
=

PYY

PLFS

1630
1031

302

232

177772

269s
1028

PRB.
T 207469
PHC"
001466
PKCS

1025

00200G

001462

6575

6577

6588

BTu4e
6232
b7uBs
6736
6747
5758
7759

PATY

6571

BRI

1026
1087
1028
1089

PRTZ

BS540
6679

6650
3
6651
6642
65708
6569
7368
2298
4368

65688

003346
003406
Q03446
003506

DONCH6
0ON1D6

6538
pb7S

PAT3
PATY
PATS
PATE

003706
003746
004

6529%
pb72

BeNT"
6721

(OY146

(031496
003266
DC324

HYMO%
Bee3

£E39
66878

2788
6858
10238
1023
1024
1033
1034
1935
103
103
1038

001612

E439%
bbRys

6570%
B6B2
BE74
6583
6572
74038

3706

E060
10428
1059

BERD

6560

682

esees

7928

7966

6136
6688

6737

9ggs *
e

3091 *
3031

95% *
A3

3213 *
B

9s %
2P/

3327 #
B

4gs
AR

S649%

3314#
2704

3330
2972

J332%
3089*

3348¢
3193%

5120
3307%

5149
Sl4es

5650«
SI47#

3198#

3200

32164#

SeNH7

Se48+#

S653*

5195

S196%

5212

S214

6093
G185

1283w
12808
12978

10768

1093
1110w
11278
114us

116ls
11788
119ss

5184
5187

2658

3018

6338
6388

gles

297 Y%
£765

2970s

001456

12%
2703

304

278e

2990%

0945012

7416

7468

7584

7883

PRMLMT

001670

Zige
693]

ge03
6010

001720
001620
002412
002426

6558

67498

POPOUE
PRMMSG
PRMPT
PRMO
PRMI

6551

12128
12298
12468

3234
6358

201566

BERY

SEG 0209

B74Ss

= DOZ000

PRTM

BEES

6S49

PAGE 180

6748

7268
6908
690
£91

6238

6615
GSj98
8008
808

GS242¥

2392

7918

eru7
6176

6255

34k
6b2ke

5268

5237
5179

6594

676l

b7
bbi2

JoO6s

3038k

7958

83578

3680
6E4S

SIlx

£S86

BBOS

J0%6e

6760

Sidex

3119

32184+

5913

PAGE 181

SEG 0210

HitHRRHRUDN

-0

NN EWN—-0O

MACY1l 30(1046)
2e-Nov-7?
08:04
-11-DIRMF-B RMO3/RMO2 EXTENDED DRIVE TEST
CROSS REFERENCE TARBLE -- USER SYM8BOLS
P
21-NOV-77 M:10

177776

2699
1875#
SeS4#

2721
1885#*
S698#%

2699#*

2716#

8343

8357x

8329
B8361#

8362

6623

6660

6700

7556
B81SS

7570

7682

7212%

7241%

2721%

7249

7340

7341#

3007#

3120%

3235*

3349#

7742

7772

7843

7853

7868

2768+

7394»

74904

74S3%

002000
177276
003024

8323#%

J43e04

8189

8364#*

7696

EOL

22-Nov-77
08:04
MO -11-DZRMF
-B RMO3/RMOZ EXTENDED DRIVE TEST
CZRM¥B.P11
CROSS REFERENCE TRBLE -- USER SYMBCLS
21-NOv-77 14:10
MACY11l

RD.RM2

0ON3730

RY.RM3

RO.RMY
RO.WRD
READ
=
REAOMD=
READIN=
RECAL =
RELEAS=
RESREG=

30(1046)

PARGE

182

SEQ 0211

811Ss

Q43734

0423740
QO4»!0
00017}
000173
00012;
00010
000113

8803
3752
Sesl

3340
6731

104413

48508

6?77

RESTAR
D06234
RESVEC= 000010

RMAS
RMBA
RMCS1

= 000C:6
= 00DCOM
= 000000

00
000022
DOOC3Y

RMDT
=
RMEC]1 =
RMEC2 =
RMERRS
RMERL =

DO00CH
DOOO44
000046
0365
000014

RMER2 =
RMHR
=
RMINIT
RMLA
=
RMMR1 =
RMMRZ =
RMOF
=
RMR
=
RMSN
=
RMVEC

000042
0000
(36754
000020
000024
00000
000032
000004
000030
036740

RMUWC
=
RPM.REGC

000002
004306

RPMO3

027c02

RMDS

= 000012

74i1%
7899

7412
7960

2999#
%
3224
3361%

3013»
3225%
S701%

7638

8209
7527

7822

5399

7652

8214

7683

7844

7854

7932

5489
7699
ses

=
=
=

N
NNV
YNNI
e P
pa e O D
()= )

QMDA
RMDB
RMDC

8082

NI NI NN

RMCS2 = 00001G

8008

NW
Ne=

036736

8= D W)
=~}

RMARDR

NOND
Do)

X
= 010000
RHVEC
001452
R+.ADR
001450

7557

7561

3090#

3134#»

3308#

3363#

7159

7227

5350
£536

5352
£538

5397
8822

S399
8829

7340#

FOL

MACY11l 30(1046)
22-Nov-77
08:04
CROSS REFERENCE TRBLE -- USER SYMBOLS

MD-11-DZRMF-B RMO3-RMO2 EXTENDED DRIVE TESTY

CZRMFB.P11
RPT

a01s70

RPTMR
RSTRT]

Q43150
006200
006ee4

RSTRTZ2

14:10

a2le4
3407

2219
5994

19804

1992

2334
3500

PAGE

183

SEQ 0212

2430
3918

2489
6619

2555
e652%

266
665

Jezl
6089

3238
6390

3317
6566

3335
€686

7901

7910

7929

7967

7900

79028

7939

S478x

S511%

5673%

5715%

6148%

eslz2

8815

8817

3197

3218

3311

3329

3923

3928

sag4

s28s

2es80

3923

3328

7780

8207

ee43
28593

e2esl
2969

2302
3084

2306
3190
3692

2363
3304

3732

2385
3427
3741

S41S
239!

5534
239?

Se20#
2398#*

2399

291¢S
6744

3057
67484

48498
7343

=
RTC
SAVCSUW
SAVEFG
SAVREG=

21-NOV-77

026362
= 001100

030606
001416
001434
DO143e
001940

3533
3893
3930
237?

3550
3921
5368
2379%

3556

2s1s
3440
3831

GOl

MD-11-DZRMF-B RMO3-/RMO2 EXTENDED DRIVE TEST
MACY1l 30(1046)
22-NOV-77
08:04
CZRMFB.P11
21-NOV-77 14:10
CROSS REFERENCE TRBLE -- USER SYMBOLS
START
STRRT1
START2
START3
STARTY
STRTBL

004774
004740
004762
004730
004752
004356

STKLMT=
STO
S701
S102
ST03
ST0S
ST06

177774
043240
Q43274
043370
Q43420
04344y
34Se

ST109

043550

ST.CLK

026116

STRTMR
STRTIA

ST.LCL

031276
004744

8018

8033s

8004+
8017
8041s
8049s

B804Y

8046

1788
1878

3020

3133

3248

3362

S113s

3849%

3869

3870

3888

5'?3.
ggg:

2434
6310

638

=
=
=
=
=
=
=
=
=
=
=
=
=
=
=

000001
000001
000002
000004
000010
000020
000040
000100
000200
000M
001000
000002
002000
004000
010000

SWi3
Sll4
Suls
Sie
SW3
S

=
=
=
=
=
=

020000
040000
100000
o4
000010
000020

1S4s
1448
1438
1428
JCPE |
1408
1398
138»
137s
1368
135s
153
1348
1338
1328
3062
1318
130%
1298
1528
1S1s
1508

Sue

= 000100

488

1498

SEQ 0213

4571

8040

27es
7588

= 000040

4488

803

SWC
SWO0
SW01
Su02
SWC3
SWO4
SW0S
S
SW0?
S
SW09
Sl
SWI10
SuWll
SuKl2

SuWe

1982

8023

044134

000176

17918
17848
17898
17828
17878
4154

8013

2971
1783

siz28

EEETQT 88%?:8
SWREG

14388
101®
7984
8016%
801S
803S
8047
8037

026326

EJQSSL 88?5%3
SVRH70

1786
79
8l
83

PRGE 184

3088
1785¢s

S153s

gé:g:

3192

2801
7748

2983
7761

2560

3306

57398

2397
7804

3012
7857

665

838

2919

3062

1826

1864

4491

4530

45583

184
183
182
151
150
149
148
147
146
145

3746
3754
3748
3726
372t
S144
2952
5279
1948
p041

6043

6158

6221

3022
6310
4069
6217

S465
6047
5134

S804

2119
3168
Skl
S3E6
3826

2169
3282

2224
3412

2283
3499

2339
3644

g413

5832

?;gé

?gi;:

1820

3738
3729
S154

1826%

3101
7875

1833%

8048

3689
3125
7922

80S4

8C61

8065#

3205
7956

3223
8026

3240
8064

3319
8175

3337

3354

186M

2119

2169

2224

2283

2339

2435

2357
3805

2435

2494

2s60

2665

2838

2919

3168

3c8e

3412

3499

3644

3724

3729

nuw

Eg.

-~)

MD-11-DZRMF-B RMO3 RMO2 EXTENDED DRIVE
CZRMFB.P11
21-NOV-77 14:10

AP
Y

888363

= 8:0880

TBITVE=

TESTNG
TESTO
TESTI
TESTIO

TESTI1

TEST12
TESTI3
TESTIN
TESTIS

TESTI6
TEST1?

TEST?2

TEST20
TEST2]l
TEST22
TEST3
TESTY
TESTS
TESTH
TEST?

¥IE§HS

1478
1468
14Ss

5545

840Ss

TEST

MACY11l 30(104&)
22-NOv-77
08:04
CROSS REFERENCE TRBLE -- USER SYMBOLS

PARGE

185

SEQ 0214

se82

O000IM

Q41632

(Q45y4S?
006676
007124
011770

2797

013072

013472
014232
014742
(015524

016256
016720

0073i6

017512
020360
020770
007600
010054
010472
010736
011260

3845

001326

Si6l

THeERs 834938

7447

8057x

76Mu4%

7736%

7838+

7883+

7926#

7941

7963»

TIM.ON
TIM.PT
TIM.UP
TITLE
TKVEC =
TPB
1PS

001374
001412
001356
051776
000060
001500
001476

TPSQ
TP&0
TRAPVE=
TRCKWC

014036
014026
000034
001432

S197+#

TRK.DS

001354

S477s

S510+

S7 14+

6033+

6luTe

8812

001344
(036650
00001
D01314

7632

7650+

7738

8020

803C»

2270
3631
6459

2326
3792
4Bl

2481
E176e
6522

254,

268¢

282S
g418

TPVEC

= 000064

= 040000

TRK.RD
TRNSWT
TRIVEC=
TSTNMS

TETD

006506

TET1O
TETIOA

0llcle
Dle2ete

1571

0OE7 14

S784#
5761

21548
26S0s
2734

Y
652+

6417

881s

2907
G437

101

MO-11-DZRMF-B RMO3-RMO2 EXTENDED DRIVE TEST
MACY1]l 30(1046)
22-NOvV-77
(08:04
CZRNFB.P11
21-NOV-77 14:10
CROSS REFERENCE TRBLE -- USER SYMBOLS
TSTiIOB
IST11
IST12
TSTI3
TSTI4
ISTIS
ISTIe
TST17

Jieked
0lebed
01315
0l4042
014852
01S334
016116
016560

TS120
IST21
ISTe2
IST3
ISTY
TSTS
TST6
IST7
TWOMS
TYPDS
TYPE

017244
020044
02070¢
007424
007664
010316
010562
011072
030670
10440S
104401

IST2

00714e

=
=

2708
2654
2827
2909
3051
3157
3271
3401

27984
cga3s
290Ss
ey
3077
3183
3297
3484s

3488
3633
3794
2213
eeze
2328
a4eM
2483
3107
4199
1843

36298
3790s
3908
2268
2324s
24208
24798
2545
3212
4842s
1848

2504

eSeY4

el1s8

1912
2123

022034
104402
104404
104403

TYPTIM

031474

T10
Ti1

003116
003126

T12
T76

T17A1
ULDFLG
UNLOARD=
UNS
=
UNTMSG
UNTOFF
UNTON
UPE
=
usli
=
use
=
usH
=

VERIFY

000040

3344

Se4SH

1856

1873

1887

1888

1895

1896

1903

1905

1907

1909

1911

1954
2228

1959
2234

1971
2es?

1979
2293

2015
2343

2020
2349

2021
e439

2036
2445

2039
2498

3286
3976
4189

3292
3980
Y202

3416
4080
4206

3422
4088
4209

3503
4i46
Yell

3509
4147
4213

3648
4156
4216

3654
4165
4264

3809
4166
4361

3815
4170
4437

3945
4173
4485

3951
4179
4497

3959
4180
4551

Sg4e
6593

S846
6bl4

S847
6616

858
6618

S859
ebae

5863
654

S868
6655

63le
6656

6341
6659

6345
6690

6392
6697

6425

6584

4554

48398

2017
3135

4087
39%4
4g4ls
1892

4555
4684

41268
4195
1966

2926

3069

10088
1013s

3082
3188

3028

036656
000103
040000
Q45224
Q45232
045243
020000
000001
000002
000004
030750

N
3325

22098

1922
2179

10188
9878

= 000100

3230

SEQ 021S

1920
el73

n03136
003056

3076

S
3161
7S

186

1919
2le9

4552
4680

TYPERR
TYPOC =
TYPON =
TYPOS =

1
30478
31538
32678
33978

PAGE

3031

2570

4566
4g38s

3175

3136
3eS1

2669

4576
4952

6344

6658

6699

2126

2176

223l

3250

3364

SB03s

9988

2965

3365
2962

3029

708¢s
4e84
289s
8408s
1907
1911
2358
c2es
eec3s
cc4s

7270%

7350

736S5%

8363

ckas

2998

84094
B4lls

410

Sbb3s

2848

46SY
s819

3289

4587
5811

egye

4606
S81S

330¢
2961

2966

2675

3419

7548#

3506

76l4x

2923

2929

4660
S822

4665
$826

2290

2346

a4y

78Sls

7801

7890

3651

381e

3956

3066

4669
5830

3072

317e

3178

4674
5831

4675
5835

2501

2567

2672

284S

7892%

7911

7913+«

8029

48408

6590

4677
S838

JO1

187

SS07#

3438

3459

3534

3557

3742

3871

3890

5461

S49y

3436

34s2

3516

3551

3733

3825

3850

S467

7486
7859

7494
7898

7504
8128s

7508

7519

7526

2173
2570
3416

2179
c669
3422

81lb4s
8805

DBODOD
Y N©

S429

3
g3t B2%
BREEEaRE

SEG 0218

3744

8827

4694

1809

1810

S19s

520

S194

S20s

&8 RIRBUBS
RN Jai

U s b P\ ) 0= ()

Pt Pt Pt

v98 SRREEREAR
8

e oo pome

021326

PRGE

3693+

£
o

2&8

| nd ol st atd ol 2ond

MACY11l 30(1046)
22-Nov-77
08:04
MD-11-DZRMF-B RMO3/RMO2 EXTENDED DRIVE TEST
CZRMFB.PIL1L
CROSS REFERENCE TARBLE -- USER SYMBOLS
21-NOvV-77 1NM: 10

ela3
2S04
3286

416S

3974s

eles
2564
3292

4189

4206

7536

7550

7560

KOl

MD-11-DZRMF-B RMO3-/RMO2 EXTENDED DRIVE TEST
MACY!]l 30C(1046)
@22-NOV-7?7 08:04
CZRMFB.P11
21-NOov-77 1M4:10
CROSS REFERENCE TABLE -- USER SYMBOLS
SENULL

021314

3980

3991

SENVM
SEOP
SEOPCT

(00124l
0210Se
(02leet

S4Ss
1961
1806#

1831
2006
1974#

SENV

001240

SERFLG
SERMAX

001103
0011158

SERROR

(021566

SERRTB
SERTTL

0OQ4410
DOl1lle

SERRPC

SESCRP

001116

001206

SH4 8

001240
001300
001222
021564
001156
0011SS
001120
001124
021c70
(023744

SHIBTS

000220

SINTRG
SITEMB

001135
001114

SLFLG

S_PRDR

SHINUM
SICNT
SLF

SLONUM

SLPERR

025630
001104

SMADR]1
SMRADRZ
$MRDR3

SMAIL

4760
2335%
3801%

5529
2431%
3919%

6014
2490+
4734

604S
2556
47€Ss

6160
obbl
4760

6219
2834%

4928
8817

4082#*
8822

4083
882S

4084
8829

4115
8834

8799
8836

8800
8839

8803
8843

8805
8849

8807

8810

8811

g81e

4o8]#

4115

S438%

3303+«

Y104

4106

4115

4754 %

S295»

S302*

7778

7830

7834

8098

8158

8368

8377

1802

146Ss
4898

Yi4e
3%3

Y143
3965

5§338%

§378#%

£385#

S4oB#*

4030
4300

4039#

6206
6208%

8820
g8e0

2584
1876%

2787
474Sx

3820%
Y4746

4974
4748%

4118

4300

4684

4694

5244
%

S43s
474
5368
3999
Si0s
5098
493
4qSs
39818
HS??I
4698

1807#%
48648

001250

$MAMS3
sMAMSY
$MBADR

001260
001264
000222

SMFLG

1B10#

5039»
57648
4036
40Gos
4269
4300
bluls
6i43%

1808#

001254

pei1se2

3821#

1812#%

€S5s

4973

4588
4115

4000

6203%

SYLEx

S47S»

55084%

5548%

S676%

S6814#

49924

6190

6196#%

6199

6195#»

65198%

beue

3920#%

4738

4752#%

§331%

S705#*

S712%

6243

6259

65257

6258

8378%

4047

Hob#

gsx #*

3731#

3740#

4738
9031 %

42y

3405%

4753#%
90358

c34s

4701
4135

4986 %

4a82
4759

49938

4987 %

5624

6191

2237%

2296#

2352

2448

2507

162
2514#

217%
2553

ccHex
2594 #»

2esS0x
2597#»

2276#
2658»

e301%
2697#%

3750%

3798#

3830#*

3844Y%

385S#

2166

eeel

S434#
4759

1830

2835

3059

3185

4006

YoY%

404

5638

Sebs
5698
4708

3189

4980

1i2%
487

3275#

2662

4568
4092

181 3%
24SYy#»

3ib1*
Sbls
S658
Se8s
S718

61S6#»

2190%

3184#*

4103
i8s"!

6150%

3083

2137%

3078%

4gBs
24c8s

2943%

484y

4878

sMAMS1

Y0678

001106

001220

9084

4740%
2279
3640%

40468

001252
001256
001262
001266

Youy

4734
2220
3495#

Y040#*

0S2442

4251
6552
S083%

4732
2165%
3408#*

3637%
SLSTRD

4090

4708
2115#
3278+

021563

001110

4246
G4y s
975

4115
2040%
31e4#

4YS49x
4084 #

(025632

4032

407S#«
1811#%
3058#

SO0s
4908

001216

4008

4010
3912
39718

SEQ 0217

4858
4q9ls
2916%

ggga#
SETABL
SETEND
SFRTAL
SFFLG
SFILLC
SFILLS
SGDRDR
$SGDDAT
SGETY4E
SGTSHWR

1862

PRGE 188

3439%

3660%
3442%

S547

See4

1862

2lle

3279

3409

3818#
3450%

3496

3843#
3457%

3641

2678%

2851

235#%
735%

2332*
2831x®

2352
2913

2384#*
3055*»

3862%*

3874

3881+«

3892*

3916#%

2280

2336

2491

-1-v4

3492

3802

2578

352c ¢

4030

3532+

2432

Y4y

4?5?7

3549

4751

2935*

4759

3555+

LO1

MACY11l 30(1046) @22-NOV-77 08:04
MD-11-DZRMF-B RMO3/RMO2 EXTENDED DRIVE TEST
CZRMFB.P11L
21-NOV-77 1M:10
CROSS REFERENCE TRBLE -- USER SYMBOLS
4SSS
SYls

%‘%16
1234

SMNE W
SMSGARD
G

001236

GTY

SYes

001220

5358

45Sse

024605

SSes
Se4s
56748
5708
4749
sogs

001251
0012SS
00lebl
001265
025060
00ilS4

SMTYP1
$MTYP2
$MTYP3
SMTYPY
SMXCNT
L_

SNWTST= 000001

20935s
2470
32548

4OI19

40IM

40c2#

4759
427l

4300

402lw

4O34

4038#

2i43s
36
33848

2145
2bebs
3386

21968
ggce
708

2198
e8l0s
347e

4332®

4337

4340®

43Si®

4377

1830%

3968%

3969%

3991

4300
43698

4606
5623

4677
624l

4694
6256

8825

5833

46978

4
e534s
3256

SOCNT

023126

SOVER

025044

SQUES

001214

SROCHR

024216

SROLIN
SROOCT=
SRDSZ =
SREGAD

024306
#issus
000024
001160

4Ye4ee
4849
46358
Sles

4848

001164

SiSs

4130%

3130

$PASS
SPRSTH

001162

SREGZ2
$R°3
SRE.¥
SREGS
SRESRE
SRTNRD

001166
001170
001172
001174
02S120
021312

SREGL

$SB2D

SSCOPE

##suxs

025062

02Se4e

024630

SSETUP= 000167
SSIZE

052346

SSUPRS

025472

= 167000

SSTUP = 177777
$SVLRD
025010
$SvPC = 000200

SSWREG
001242
$SWRMK= 000000

STESTN

4719

5388
4yz7es

2583

46198

##%44#

SREGO

SSAVRE

4328#%

001226

SRDOEC=

SRR

4333%

46998

u0le#*

00le2ew

4362%

4739
4115
2786
4847

1835

MN3758

Y747

47568

Si4ys

4l29%

8812

8817

Sles
S178
S18s
Si98
4794s
3990

4131s
4l32%
4133%
4134#
4850

8811
87
8820
80

8800
8827

47788

4849

47168

s824

£828

48S
1

48638

17828

5817

23148
2895
37638

2316
3036s
3765

8834

8836

8839

8843

8849

5840

c844

5856

5861

6620

6695

4717

1810

1812

1859

90148

4701

1809

185

4525

4q44s

S818

seas

5829

5834

S84l

5845

s857

S862

6621

669

1810
2917
3991

1812
3059
4059

:;éé

4712

S46s
4713

1833

6378

3279#

21l1b*¥

3409%

1806

1807

24078
3038
38998

4495

47508
74

1804

2261
28358
369

4494

4727
698

1802

8827

22598
e8l2
35678

4489

1782

1800

8807

SEQ 0218

4108

4100

1799

8800

PRGE 189

4534

se3

2409
31408
3901

24688
3142

3966

4068

S25

1809

1813
3165
4060

2116
3279
4061

216b
3409
4062

2221
3496
4063

2280
3641
4078

2336
3802
4085

e43e
3920
4037

2431
3941
4104

2557
3967
4115

2662
3983
4709

2835
3989
4710

216b®

2221+

2280

2336%

2432%

2491x

2557%

2662

2B835%

3059%

3165»

4713

3496x

4718

3b4lx

4730

3802%

4732

H7Sl#

4733

4734

4741

4742

4743

4753

4756

MOl

MACYL11l 30(1046)
22-NovV-77
08:04
MD-11-DZRMF-B RMO3/RMO2 EXTESDED DRIVE TEST
21-NOV-77 1¥4:
CROSS REFERENCE TRBLE -- USER SYMBOLS
CZRMFB.PI1

STIMES

001204

$TKB
STKCNT
STKINT
STKQEN=
STKQIN
$TKQOU
STK@SR

001146
023356
023366
023366
023360
023362
0223364

TK
TK

STMPO

144
36

001176

STHP]
12
sSTMP2
001202
$TN
= 000023

4532

5208
8843
§Sél
s
é.

8817

STPFLG
$TPS
STRAP
STRAP2
STRP
=

001157
001150
025156
025200
000014

Sils
Sg6s
1804
48268
48308

STRPAD
$TSTM
$TSTNM

025212

STTYYIN

i}g@:

vee

STYPEC
STYPEX
STYPOC

024542

SUNITM
)
SVECT1
SVECT2
SXTSTR
SSGET4=
SOFILL

4820
47ls
4g4s
2329#

023le?

Y750

46938

Y64y

4268
4293
43318

001244
001270
001272
Q024642

2e73x
25s4
30
3634#%

5173,
37¢8

(22634
022702
2730

4848s

48518

:§§3

2660%

47496

2833%

4749%

2915+
4759

5078

ll!:ll

B33

25554

Y741

25368

025406

001102

2489x
3967%

SEQ 0219

4Ysoax

STNPWR

001152

4Ys61

SOSs
44Sls
1858
44558
Y4528
4Y4S3s
Y454
s

2547
833
164
3484
38028
4891

s$TPB

2334#
3AB00#*

5238

3057+

PAGE 190

4333 s

4592

408

Y4738
S478
5728
573s
47218
39838
H4327#

433i#

4341

43768

48504

NO1

MD-11-DZRMF-B RMO3/RMO2 EXTENDED DRIVE TEST
MACY1l 30(104€)
22-NOV-77
(08:04
CZRMFB.P11
21-Nov-?77 14:10
CROSS REFERENCE TRBLE -- USER SYMBOLS
SHOCRT- snaper |

= 052723

Y087

578
1797

2697
3740
39928
3523
.SASTA= asxXxaxs |
.$X
= 006ee0

4000
4see

4718

PRGE 191

SEQ Q0220

bis
i8sle2
2735
3750

9
1813
3434
3818

70%
eaye
3439
3830

7o
2eso
344
3855

74y
2301
3450
38862

774
2305
3457
3866

4c8
2362
35¢ee
387N

4598
2384
3532
3881

4618
2454
3549
3888

Y63
2514
3555
3892

4ygls
25
3660
39488

Se9
2597
3731
3991

760

4932

65878

82ebs

82674

82688

82698

82704

82718

82728

82738

8274

HOHBI
9003
463

4115

41598

4300

Y4y4Se

4450

YuSyy

4yycs

4456

46938

469y

47018

BOe

MD-1]1-DZRMF-B RMO3/RMO2 EXTENDED DRIVE TEST
MACY1l 30(1046)
22-NOV-77
08:04
CZRMFB.P11L
21-NOV-77 14:10
CROSS REFERENCE TRBLE -- MACRO NAMES
CKCHR

17788

406
356
204M

66
6677
2079

6628

6662

6710
2875

3370

17788

2012

2014

139

el40

2192

17788

gg;?

Kb b

3446

3456

3463

CKDIG
CKNUM
COMMEN

17788
17788
1978

ComMND

DODTR
DRV.IN
ENOCOM
ENDP
ERRCAL
ERRENO
ERRCR

2457

4
17788

6348

2013

e4s9

7833

8097

8158

1998

2726

2802

2987

3004

S719

5720

5721

5722

ESCRPE

17788
17788
1878

40&9
5303

GETPR]
GE TSWR

197s
18

FMORETA

MSG

MULT
NEWTST
POP

PUSH
REPORT

RMC3.D

4538

252es

7830

ERRTYP
ER.NDX

MORE.S

523

3923

3359
3379

S310
S446

17788
gggg

esel

€679

2888

$309
S4Y4S

LOOP

es19

es74

3894
245

301
2072
3976
7778
M112

S678

el3e

6702

3888
313

1978
17788
6908
17788
9ls

6398

2943

1978

2242
3450

578

5311
44?7

6889

6940

2193

2eMs

2es3

2303

2308

2365

2371

2387

2393

3525

3536

3Sse

3558

3737

3743

3753

3832

3857

3928

e5e?

2529

3016

3105

6035

6040

3209

6151

6157

5386

5439

5476

5509

571

2250
3457

2301
3522

2305
3532

2362
3549

2384
3558

2454
3731

eed?
3790
2145

2268
3908
21968

2324

420

2479

2198

22598

2261

30358
3901

3038

2020
18S9

3189

3303

5302

5338

S34§
£48S

23148

143
67

219
3763

2259
3899

2314

2407

2468

es3y

1978
1978

40063
17788

4026
3250

4391
3364

4988

4779

5071

5216

5265

6960

4432

2823

290s

3047

3183

3267

2316

24078

2409

e468s

2470

2534s

2626

2810

2893

3036

3140

3254

5023

3335

33s2

3033

3137

3252

3366

2906

3048

3154

32¢8

689

2035

2103

3396
4381

3473
4449

3483
4525

31408

5171

5ee9

3i42

2312

e40s

2466

3203

3221

253¢e

2623

3238

3217

2eoe

2870

SETTRA

48308

4839

4B4C

4841

4842

4844

4846

4847

4848

4849

4850

SET.Th

17768

2105

21cs

eelo

2269

2325

2421

2480

2546

2651

e8ey

SKIP
SLASH
SPACE
STARS

1978
197
197
2649
3587

1978

2810
3eee

201

2196

egee
3763

243

ce08

2893
3789

e4?

2es9
2904
3899

4oy

eeb?
3036
3907

455

2314

304¢
3938

7838

3439
3881

2as?

21523

7831

3424
3874

2194

3358

2734
3862

2995

2143

3123

3341

2696
3855

2981

214l

S680

§39¢S
s518

17788

328

3099

4969

£393
8S16

3929

5394
55817

SAV.RH

SCOPE

3010

4799

7?7

2650

2095
3470

4005
313S

6216

254S

1978
3384

4043

6215

2597
3830

ggxe
638

8042

3323

2593
3750

28li0s
3563

1978

3244

a2Sid
3740

e
35678

2895
38998

3924

S404
5526

2154
3629
21438

c832s
3765

2862

3227

S39¢
5518

2104
3484
2097

cb25s
3472

2860

8357
5493

17788
3397
209Ss

2536
3?29:

ebl?

3129

S346
S483

3083

S347
S48y

2596

S34S
S4B2

5723

SEG DOeel

6878

5318
5456

$339

5312
5448

6865

PAGE 193

457

2323
3140
3998

464

2407
3182
40ES

N7?7

2419
3254
4116

S29

c468

3266
4223

32548

532

2478
3384
4303

325t

2534

3384s

sS4y

3386

2626

TARIRP

1STTYP
TYPBIN

454

ubaye
5.
'=7.

1778

EXTENDED ORIVE
14:10

coe

_08:04
TEEOSS REF?SEN E3?£68263- RACR v-77_
NAMES

PRGE 194

SEQ 0222

N611

4635

470S

4763

4809

4gsy

4873

4936

4960

4997

6959

6971

3008

9037

2117
3497

2167
3642

ez222
3803

2esl

2337

2433

a492

2558

2663

2836

2917

3060

3166

32680

5816

$823

5827

832

839

s843

5855

860

6619

6694

TMD -11-D2RMF -B RMO3CZRICQ Pli
21-Nov-7

558

2344
6:88

2440

2499

2565

2670

2843

2924

6312

63%e

b42Y

6584

6689

2407

2468

253%

2626

2810

2833

3036

3140

3254

4846

4847

4848

4849

4850

1814y

4197

39S

oD
owdos

1889

3863

0 B Bt 1 Bt et ot Pt et et Pt Pt B 4 Bt ot Pt ot St s Pt Bt Bem s (Ve B Pt B
BTN LETEURETENTRENRR

o
©

3945
Si4
520

D02

MD-11-DZRMF-B RMO3/RMO2 EXTENDED DRIVE TEST
MRCY11l 30(1046)
22-NOV-77
08:04
CZRMFB.PII
21-NOv-77 14:i0
CROSS REFERENCE TRBLE -- MRCRO NAMES
ERRORS DETECTED:

PRAGE

RMD3: CZRMFB, RMO3: CZRMFB.LST/NL:MD: MC: CND: TOC/SOL /CRF=RMO3: RMORVS. P11, RMO3: CZRMFB. P11

RUN-TIME: 33 27 2 SECONDS

RUN-TIME RATIO: S58/64=8.6
CORE USED:
47K
(83 PAGES)

19S

SEQ 0223