Digital PDFs

AH-F130A-MC

May 1979

86 pages

Original

45MB

view download

OCR Version

70MB

view download

Document:	CZRLLA0 RL11,RLV11 RL01-02 DRIVE CPT MAY 1979 bw
Order Number:	AH-F130A-MC
Revision:	000
Pages:	86
Original Filename:	CZRLLA0__RL11,RLV11__RL01-02_DRIVE_CPT__AH-F130A-MC__MAY_1979_gray.pdf

OCR Text

R L1 1

R LV1 1

RLO1,02 DRIVE CPT

CZRLLAO

AH-FT30A-MC

MAY 1979

FICHE 1 OF 1

MADE IN USA

E!HEIIEII

IDENTIFICATION

PRODUCT

CODE:

AC=F131A=M(

PRODUCT

NAME
:

CZRLLAO

DATE

CREATED:

SEa 0001

RLOT/02

DRIVE

COMPATABILITY

TEST

5=JAN-79

MAINTAINER:

DIAGNOSTIC

ENGINEERING

AUTHOR:

DEKNIS,

CAMPBELL

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE
WITHOUT
NOTICE
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPON-

SIBILITY FOR ANY ERRORS THAT MAY APPEAR

IN THIS MANUAL.

THE

SOF TWARE

DESCRIBED

THIS

DOCUMENT

FURNISHED

THE

PUR-

(HASER
UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN
Bt COPIED (WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE)
ONLY
FOR
gSEDll?IiUCH SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING

DIGITAL EQUIPMENT
OR RngABXLlTY
CIGITAL.
(OPYRIGHT

((C)

CORPORATION ASSUMES NO RESPONSIBILITY FOR THE
1TS

1979,

SOFTWARE

DIGITAL

ON EQUIPMENT

EQUIPMENT

THAT

CORPORATION

IS NOT

USE

SUPPLIED BY

NO = ittt s

TABLE

.3
b

rorunro

rnory

2.1.1
e.1.4
2
.3
2e3.1
2s3.8

4,0

. |

GENERAL

CONTENTS

INFORMATION

PROGRAM ABSTRACT

SYSTEM REQUIREMENTS
RELATED DOCUMENTS AND STANDARDS
DIAGNCSTIC HIERARCHY PREREGUISITES
ASSUMPT IONS
OPERATING INSTRUCTIONS
HOW TO RUN THIS DIAGNOSTIC
THE SIX STEPS OF EXECUTION

SAMPLE RUN-THROUGH

HOW TO CREATE

DETAILS OF
TABLE

A CHAINABLE

COMMAND VALIDITY

COMMAND SYN1AX
EXTENDED P-TABLE

HARDWARE

FILE

COMMANDS AND SYNTAX
DIALOGUE

PARAMETERS

SOF TWARE PARAMETERS
ERROR

INFORMATION

PERFORMANCE

DEVICE
TEST

AND PROGRESS REPORTS

INFORMATION

SUMMARIES

TABLES

PAGE

SEQ 0002

e
e

1.0

GENERAL

PROGRAM ABSTRACT

tsdel

STRUCTURE OF

PROGRAM

THIS DIAGNOSTIC OCCUPIES

IMAGE'*

14.5k WORDS OF

MEMORY

AND

COMPATIBLE

IT CAN BE RUN SIANDALONE UNDER XXDP, AND
ACT AND APT IN
®ACT
MODE
(SEE
‘‘CREATE

COMMAND BELOW FOR DETAILS OF

CHAINING PROCEDURE).

IS A SINGLE PROCRAM FROM THE STANDPOINT OF

WE
HAVE
RELEASED

INFORMATION

WITH
BOTH
XXDP AND ACT.
CAN BE CHAINED UNDER XXDP,

CORE

PAGE

THE DIAGNOSTIC USER, BUT

INCORPORATED INTO IT A CONTROL MODULE WHICH WILL
INDEPENDENTLY AS A DIAGNOSTIC SUPERVISOR.

LATER BE

WHEN THIS DIAGNOSTIC IS STARTED AT ADDRESS 200, CONTROL GOES
FIRST
TO THE SUPERVISOR PORTION, WHICH WILL ASK CERTAIN ''HARD CORE'' QUESTIONS ABOUT THE ENVIRONMENT.
THEN IT WILL ENTER COMMAND MODE,
IN-

DICATED

BY A PROMPT (HARALTER

TOR MAY ENTER ANY OF

THE

SUPERVISOR

SEVERAL

(DS B>).

COMMAND MODE THE OPERA-

COMMANDS AS DESCRIBED BELOW.

CODING FOLLOWS

IMMEDIATELY

THE

DIAGNOSTIC

TEST

(OD-

ING,
BUT
THE
SUPERVISOR
LISTING HAS BEEN SUPPRESSED FOR GENERAL
DISTRIBUTION.
A LIMITED DISTRIBUTION HAS BEEN MADE TO
FIELD
SERVICE OF THE SUPERVISOR ASSEMBLY LISTING, AND IT MAY BE CONSULTED IN
EVENT OF A SOF TWARE PROBLEM.
1,1 ol

DIAGNOSTIC

THE RLO1 DRIVE
GRAM THAT WILL
THE

TEST

WRITES

leORHAYlON

COMPATABILITY TEST IS A PDP-11 (LSI-11)
BASED
PROTEST INTERCHANGABILITY OF CARTRIDGES BETWEEN DRIVES.

PERFORMS

TO PRCVE

WRITES,

READS,

OVERWRITES,

ADJACENT

CYLINDER

COMPATABILITY.

SYSTEM REQUIREMENTS

PDP=11/051=11
{ONSOLE

DevICE

PROCESSOR WITH

16K

OR MORE

M MORY

(LA3D,LA36,vTS0,ETC.)

Ok2 RLYI/RLVIT (ONTROLLER(S) WITH:
1 = 8 RLOT DRIVES WITH RLOTK CARTRIDGES CONTAINING

SECTOR FILE'
= B RL02 DRIVES WITH RLO2K CARYRIDGES (ONTAINING
SECTOR FILE'

°'BAD

'BAD

SEQ 0003

PAGE

* xWw11P, KW11L

(OPTIONAL)

* LINE

(OPT]ONAL)

1.2.¢

PRINTER

SOF TWARE

1.3

CZRLFB)

COMPATABILITY

RELATED DOCUMENTS AND STANDARDS
RLO1 USERS MANUAL
XXDP USERS MANUAL

1.4

DIAGNOSTIC

THE

(EK=RLO1-UG-PRE)

HIERARCY

PREREQUISITES

RLO1/02 SUBSYSTEM SHOULD HAVE

PROGRAMS:

RUN

THE

FOLLOWING

RLV1IT1 RLO1/02 DISKLESS TEST (RLV11 ONLY)

CZRLHAQD

RLT11/RLVIT RLO1/02 CONTROLLER TEST

RLT1/RLVIT

CZRLIAO
CZRLJAD
CZRLKAD
1.5

SUCCESSFULLY

CVRLAAQD

CZRLGAO

RLO1/02 CONTROLLER TEST

(PART

(PART 2)

RLO1/02 DRIVE TEST (PART 1)
RLO1/02 DRIVE TEST (PART 2)
RL11/RLVIT RLO1/02 PERFORMANCE EXERCISER

ASSUMPTIONS

THE

HARDWARE

PROPERLY.

NCT

2.0

SEQ 0004

REQUIREMENTS

CZRLLAOD RLO1/C2 DRIVE
(FORMERLY

OTHER
FALSE

THAN THE
ERRORS MAY

RLO1/02
BE

SUBSYSTEM

REPORTED

THE

ASSUMED
PROCESSOR,

T10

WCRK

ETC.,

FUNCTION PROPERLY.

OPERATING

INSTRUCTIONS

1
PAGE

2.1

HOW

TO RUN THIS DIAGNOSTIC

2.1

THE

SIX STEPS OF

THIS

DIAGNOSTIC

CEDURES.
THE

THE

DIAGNOSTIC

WHEN

HAS

LOADED

AND

STARTED

COMMAND SHOULD NOT

THE

THIS DIAGNOSTIC

SEQ 0005

EXECUTION

SHOULD

START

—

PROPER

iRANSFER

STARTED,

THE

USING

SPECIFY

ADDRESS

FOLLOWING

NORMAL

XXDP

PRO-

AN ADDRESS, BECAUSE

CODED

INTO

IT.

STEPS WILL

OCCUR:

TR RRTREREER

SIEP

]

teRRREPROERY

A SHORT

SERIES OF

''MARDCORE

QUESTION

L=CLK
P=CLK

SOHZ

LS]
LPT
MEM
THE

BE ASKED:
THE

N
N

(L) N ?

(L)
(L)
(K)

N ?
N ?
(D)

DEFAULTS

CARRIAGE

(L)
(L)

?
?

TWO

1S
=

THERE
o

AN L=-CLOCK?
B
el DO Y

1S THE POWER S0 CYCLES (EUROPE)?
IS MACHINE AN LSI1?
IS THERE A LINE PRINTER?

HOW MANY

(SHOWN AFTER

MEMORY

EACH QUESTION)

IS POSSIBLE

FOR EXAMPLE,

QUESTION WiLL

NEITHER P OR L
TYPE

ASKED:

MEANING

RETURN.

P=CLOCK

QUESTIONS'' wlLL BE

THAT

ARE

CAN BE

NOT

ALL

YOU SAY "'YES'' TO THE

NOT

ASKED.

THERE?
SELECTED BY

THE

HITTING

QUESTIONS WILL

L=-CLOCK

QUESTION,

CLOCK ARE ANSWERED YES THE OPERATOR WlLL BE

C(HARACTERS

SECONDS

APART.

ASKED

AR RRERTREN

« STEP 2

FREARRRERER

WHEN YOU HAVE

ISSUE

YOU RESTART

ANSWERED ALL

THE

THE PROMPT 'DS=B>''.
XXDP,

YOU WILL BE

HARDCORE QUESTIONS,

AS OPPOSED

YOU WILL

THIS POINT

SAME
PONSE

DIAGNOSTIC

TIME WHEN

TALKING TO THE DIAGNOSTIC, NOT

WE WILL REFER TO THE PRESENCE OF
COMMAND MODE,

THE

FROM THIS POINT UNTIL THE

XXDP.

THIS PROMPT AS BEING IN DIAGNOSTIC

TO XxXDP COMMAND MODE.

ENTER A ''START'' COMMAND.

THIS

NOT

THE

AS THE XXDP ''START'' (OMMAND, WHICH YOU ALREADY ISSUED IN RE>STO THE XXDP DOT PROMPT.
THIS
‘'START' (OMMAND
(AN
TAKE
A

NUMBER
OF
SWITCHES
THESE ARE SETFORTH
HOWEVER,

IN ORDER

AND
FLAGS
(ALL OPTIONAL) AND THE DETAILS Of
IN
"'2.3
DETAILS
OF
COMMANDS
AND
SYNTAX',

TO USE

THE

PROGRAM,

ALL

YOU NEED

TO SAY

SOME-

WiLL

——

THING LIKE

PAGE

THIS:

STA/PASS: 1/FLAGS : HOE
THINGS

TO NOTE

ONLY

HERE:

THE FIRST

THREE

THIS OR ANY COMMAND

THE "PASS'" SWITCH SPECIFIES HOW MANY PASSES YOU DESI RE.

A
ALL

THE "'DS=B>"" LEVEL

PASS

CONSISTS

NEEDL

SPECIFIED

TO BE

RUNNING

UNITS BEING TESTED

PASS

CHARACTERS OF
TYPED.

THE

FULL

(THIS WiLL BE

THE

ABOVE

EXPLAINED SHORTLY).

ONE

ANY OF

A NUMBER

FLAGS,

LOOP ON ERROR

HOE

HALT

IER

THE
WHY

AGAINST

EXAMPLE.

THE "'FLAGS' SWITCH MAY SPECIFY
BUT THE MAIN USEFUL ONES ARE:
LOE

DIAGNOSTIC

ON ERROR

INHIBIT ERROR PRINTCUT

HOE FLAG IS
SHORTLY).

SPECIFIED

THE

ABOVE

EXAMPLE

(WE'L L

LA A AR
R RS

* STEP 3 »
teRREREREREY

WwHEN YOU HAVE

TYPED

TYPING

NUMBER

EACK

WITH
IN

A WORD OF

DEVICE

THE

IN A "'START'' COMMAND,
OF

WARNING HERE:

THE

DIAGNOSTIC WILL

(OME

QUESTION “# UNITS?" TO WHICH YOU SHOULD RESPOND BY
DEVICES

THE

YOU WISH

NUMBER OF

DIAGNOSTIC.

TeST.

UNITS

FOR EXAMPLE,

DEPENDS

THE

DIAGNOSTIC

TAKGET

15 Cl-

RECTED AT A DISK DRIVE, THEN THE
NUMBER
OF
UNITS
WOULD
BE
THE
NUMBER
OF
DRIVES TO BE TESTED.
WHEREAS 1F THE DIAGNOSTIC WAS DI=RECTED AT THE DiSK CONTROLLER, THEN THE NUMBER OF
UNITS
WwOULD
BE
THE
NUMBER
OF CONTROLLERS.
ThE TARGET DEVICE OF A DIAGNOST 1C CAN
ALWAYS BE DETERMINED BY INSPECTING THE ''MEADER'' STATEMENT NEAR
THE

BEGINNING OF
STATEMENT

THE

SOURCE (ODE.

5SHOULD BE

THE

DEVICE

ONE OF
TYPE

THE OPERANDS OF
THE

DIAGNOSTIC.

THIS "'HEADER"

SEQ 0006

PAGE

TR RERRRERY

STEP &

rTEPRRERROERESY

WHEN YOU HAVE

TYPED

THE

NUMBER OF

QUESTIONS

USED

BUILD

UNITS

70 BE

TESTED,

C(ORE,

CALLED

?Eg¢€EES".

ONE HARDWARE P-TABLE WILL BE BUILT FOR EACH UNIT

TABLES

THERE ARE SEVERAL HARDWARE QUESTIONS
POSED N TIMES, WHERE N IS THE NUMBER

THIS

REPRESENTS

NEW

THE

DIAG-

ASK

ARE

YOU THE '‘HARDWARE QUESTIONS''.

THE

NOSTIC WILL

ANSWERS TO THESE

AND THE ENTIRE
OF UNITS.

PHILOSOPHY

‘‘HARDWARE

TO BE

SERIES wiLL

DIAGNOSTIC

ENGINEERING.

DIAGNOSTICS IN THE FUTURE WILL NOT BE WRITTEN TO AUTOSIZE OR ASSUME
STANDARD ADDRESSES:
INSTEAD, THEY WILL ASK THE
OPERATOR
FOR
ALL
THE

INFORMATION

THEY

NEED

TEST

THE

DEVICE.

TERRRERAEEN

STEP 5

TERATRRRARSY

AFTER YOU
ALL
THE
ASKED THE
PROGRAM,

HAVE ANSWERED ALL THE HARDWARE QUESTIONS
(SEC
2.5)
FOR
UNITS,
YOU
WILL BE ASKED "'CHANGE SW?'' 1F YOU WANT 10 BE
SOFTWARE QUESTIONS THAT DETERMINE THE
BEHAVIOR
OF
THIS
TYPE
"'v''.
IF YOU WANT TO TAKE ALL THE DEFAULTS TO THESE

QUESTIONS, TYPE *°N''.
IF
YOU
TYPE
"Y'
YOU
WILL
BE
ASKED
THE
SOF TWARE
QUESTICNS (SEC 2.6), AND THE ANSWERS WILL BE PUT INTO THE
SOF TWARE P=-TABLE
ASKED JUST ONCE,

IN THE PROGRAM,
THE SERIES OF QUESTIONS
WwWILL
REGARDLESS OF THE NUMBER OF UNITS TO BE TESTED.

TR REERRRREN

STEP 6 *

TRERNRERREREY

AFTER

BEGIN
THAT

YOU HAVE

ANSWERED

TO EXECUTE

THE

SOF TWARE

THE HARDWARE

(AN HAPPEN NEXT,

TEST

QUESTIONS,

CODF.

DEPENDING ON WHETHER

THERE

THE

ARE

DIAGNOSTIC

A HARDWARE

SEVERAL
ERROR

COUNTERED
AND ALSC ON WHAT SWITCH VALUES YOU SELECTED ON THE
COMMAND,
CONSIDER THE POSSIBILITIES:
.

WIlLL

THINGS

EN-

START

1F NO ERROR 1S ENCOUNTERED, THEN THE DIAGNOSTIC WiLL
SIMPLY
EXECUTE
THE
DESIRED
NUMBER OF PASSES AND RETURN 10
(OMMAND MODE (PROMPT DS=-B>).

SEQ 0007

AN ERROR

PENS,

HOE
THE

LOE

1S ENCOUNTERED,

DEPENDING ON

THE

THEN ONE OF

SETTINGS OF

THE

THREE

HOE

SET:

CODE

THE

THAT

NEITHER HOE
THE

CONSOLE

THINGS

HAP-

CONSOLE

AND

AND LOE

SET:
THE ERROR WILL BE REPORTED ON
THE
DIAGNOSTIC WILL RETURN TO COMMAND MODE.

PAGE 8

FLAGS.

DIAGNOSTIC WILL LOOP ENDLESSLY ON THE

DETECTED

NOR LOE
AND

THE

BLOCK

ERROR.

SET:

THE

NORMAL

ERROR WILL

EXECUTION

WILL

REPORTED

RESUME

ERROR HAD OCCURED.

SAMPLE RUN=-THROUGH

LET'S SEE HOW ALL THIS WORKS IN A REAL SITUATION.
RECALL
THAT
WE
ENTERED
THE
COMMAND °*'STA/PASS:1/FLAGS:HOE''.
THIS WOULD BE A VERY
TYPICAL WAY

;gElsglggLE

TO RUN THE

DIAGNOSTIC.

REQUESTED PASS WILL BE

NO ERRORS

ARE

EXECUTED AND THE

ENCOUNTERED,

PROMPT

wiLL

=1SSUED.

AN ERROR

1S ENCOUNTERED,

THE ERROR

WILL

REPORTED

PROMPT
WILL
BE
REISSUED
(BECAUSE THE HOE FLAG IS
POI?Y THERE ARE FOUR DIFFERENT WAYS YOU CAN GET THE
AGAIN:

1SSUE

ANOTHER ''START'® COMMAND

STEPS 2,

3, 4,

5, AND 6 AGAIN)

ISSUE A ""RESTART'' COMMAND

THAT

THE

HARDWARE

(SAME AS

QUESTIONS ARE

GOING

START

NOT

ASKED)

THE

THRU

ALL

OFf

COMMAND

EXCEPT

ISSUE A "'CONTINUE'' COMMAND (EXECUTION WILL RESUME
AT
THE
BEGINNING
OF
THE PARTICULAR HARDWARE TEST (MOST DIAGNOS=TICS

CONSIST

A NUMBER OF

ERROR HALT OCCURED.
4.

THE

(THUS

AND

SET).
AT THIS
PROGRAM
GOING

THESE)

THAT

NO QUESTIONS ASKED.

1SSUE A "PROCEED'' COMMAND:

WAS

IN WHEN

EXECUTION WILL RESUME

THE

BUT

WITH

INSTRUCTION
FOLLOWING THE ERROR REPORT (THIS IS A SPECIAL
COMMAND AND CAN BE ISSUED ONLY AT A HALT

MOST

TYPICAL

DIFFERENT

THING

TO DO HERE

FLAG SETTINGS.

PROBABLY

PRO/FLAGS: 1ER:LOE :HOE=0

ISSUE

THE

YOU WOULD WANT

PROCEED,

TO SAY:

SEQ 0008

]
PAGE

THIS WILL

STUDY

THE

SEQ 0009

FOLLOWING:

TURN ON THE

TURN ON THE LOE FLAG

TURN OFF

€.

RESUME EXECUTION AT

JER

(INKIBIT

ERROR PRINTOUT)

FLAG

THE HOE FLAG

THE ERROR Ok SCOPE

INSTRUCTION AFTER ERROR REPORT

OR WHATEVER.

WHEN YOU'VE SEEN ENOUGH, YOU MAY HIT CONTROL/C.
THIS WILL TAKE YOU
OUT
OF
THE LOOP AND PUT YOU BACK INTO COMMAND MCDE.
YOU NOW HAVE
THREE

C(HOICES:

START

RESTART

CONTINUE

LET'S SAY
RUNNING

YOU'VE REPAIRED THE DEFECT

THE

DIAGNOSTIC.

YOU wOULD

FOUND ABOVE

AND WANT

10 FINISH

TYPE

CON/FLAGS:HOE: IER=0:LOE=D
THIS WILL

RESTORE

THE

FLAGS

THEIR ORIGINAL

VALUES AND RESUME

ECUTION
AT THE BEGINNING OF THE HARDWARE TEST YOU WERE IN.
IF
ERROR DOES NOT RECUR, THE EXECUTION WILL FLOW RIGHT ON THRU TO
NEXT ERROR OR TO END OF PASS.
IF

TWO

AT END OF

C(HOICES:

PASS YOU WANT

START

¢.

RESTART

TO RUN THE

DJAGNOSTIC

YOU WOULD CHOOSE ONE, DEPENDING ON WHETHER
HARDWARE QUESTIONS AGAIN,

AGAIN,

YOU WANTED

YOU

TO ANSWER

EX-

THE
THE

HAV(

THE

e ———————

THE FULL PRINT-0UT FROM THE
(O=OPERATOR, D=DIAGNOSTIC):

ABUVE

DIALOGUE

MEM

(L) N?
(L) N ?

(K)

(D)

OOoCooo

(= jelele]

UNIT 2
BUS ADDRESS (0) 174400 ?
VECTOR (0) 160 ?
DRIVE (0) 0 ? 1
DRIVE TYPE = RLOYT (L) ? N

0000

(HANGE

(L)

UNIT 1
BUS ADDRESS (0) 174400 ?
VECTOR (0) 160 ?
DRIVE (0) 0 ?
DRIVE TYPE = RLO1 (L) ¥ ?

OO0 0OC

(D)

# UNITS

DS=B>STA/PASS: 1/FLAGS :HOL

N 2

OO0 COO

LS]
LPT

(L)

(L) N ?

S0HZ

" CZRLL
L=CLK

LOOK

R CZRLLA

MIGHIT

? N

(N=RLO2)

(ZRLL HRD ERR 00004 TST 003 SuB 002 PC:004130
ERR HLT

DS=B>PRO/FLAGS: 1ER:LOE :HOE=0

0.0

AR RRRE RN R PR RRRRRRRNRORRRRRRRARAROERRRRRARAROERRATREROYY

THIS POINT

THE

ERROR UNTIL

DIAGNOSTIC

1S LOCPING ON THE

ERROR WITHOUT PRINTING ANYTHING.
YOU HAVE

LOCATED

YOU CAN SCOPE

IT,

THEN

OUT

PP RRERRRRRRRRRERRARRORRORRRORRARARRROIRNARRRRERROERRETTY

DS=B>CON/FLAGS :HOE : JER:LOE=0

0.0

1
PAGE

THIS

SEQ 0010

PAGE

CHANGE

SW (L)

2 N

D.0

CZRLL EOP 1

DS=B>RESTART/PASS: 1

0.0

(HANGE

D.,0

“C

(1)

e e

? N

]

am o

- cececeeccecececcece
e
e-e-

HOW TO CREATE

THE

DIAGNOSTIC

A CHAINABLE

FILE

AS RECEIVED FROM RELEASE

ENGINEERING

CANNOT

RUN

IN CHAIN MODE.
THAT IS WHY 1T BEARS THE EXTENSION "BIN'' INSTEAD Of
"BIC.
THERE IS A WAY, HOWEVER, TN (REATE A (MAINABLE PROGRAM FROM

WHAT

YOU'VE GOT.

IT CONSISTS OF

RUNNING THE PROGRAM WITH THE SPECIAL

COMMAND

‘‘CCI'

ISSUED
WHERE
YOU
WOULD
NORMALLY
ISSUE
A START COMMAND (TO THE
PROMPT DS=B>.
THIS COMMAND CAUSES THE DIAGNOSTIC TO
GO
THRU
ALL
THE QUESTIONS AND ANSWERS AND THEN TO HALT, JUST WHERE 1T WOULD OR=
DINARILY BEGIN EXECUTION OF THE HARDWARE TEST CODE.
AT THIS
POINT
YOU
CAN
DUMP
THE
PROGRAM AS IT SITS IN CORE TO THE LOAD MEDIUM,

WITH THE NEW EXTENSION "BIC".
HERE

IS A

SAMPLE

DIALOGUE

.R UPD?2

RESTART:
XXXXXX
«(LR
*L0AD DIAG.BIN

XFER:200
(ORE:0,60602
«START 200
L=CLK (L) N ?

TO ACCOMPLISH

THIS:

SEQ 0011

1
PAGE

DS=-B>(C(1
UNITS (D)

(HANGE SW
PTAB END:

? &

(L) ? N
60632

AR ARl

*AT THIS POINT THE MACHINE HALTS AND+
*YOU MUST RESTART AT ADDRESS
XXXXXX*
\ARA R ARl

*H1CORE 60632
CORE:
0,60632
*DUMP DKO: DIAG.BIC
THE RESULT OF DOING THIS IS THAT
FILE CONTAINING THE XXDP COMMAND

YOU CAN NOW BUILD

XXDP

CHAIN

THE DIAGNOSTIC WILL EXECUTE WITHOUT MANUAL INTERVENTION,
ANSWERS THAT YOU GAVE 1T WHEN YOU DID THE CCI COMMAND.

USING

.R DIAG.BIC
AND
THE

SEQ 0012

2.3

DETAILS OF

2.%.1

TABLE OF

1
PAGE 13

SEQ 0013

COMMANDS AND SYNTAX

COMMAND VALIDITY

THERE ARE FOULR WAYS OF ENTE~ING DIAGNOSTIC COMMAND MODE,
AND
DIfFERENT SUBSETS OF THE DIAG COMMAND SET ARE AVAILABLE WITH EACH:
HOW ENTERED

¥,

LEGAL

OPERATOR ENTERED

"RUN DIAG'

START
PRINT
DISPLAY
FLAGS

‘

COMMANDS

ZFLAGS

D JIAGNOSTIC HAS FINISHED ALL

START

l TS REQUESTED PASSES

RESTART
PRINT

DISPLAY
FLAGS

ZFLAGS

OPERATOR INTERRUPTED THE
DIAGNOSTIC WITH CTRL/C

START

RESTART
CONTINUE
PRINT

DISPLAY
FLAGS

ZFLAGS
4.

AN ERROR WAS ENCOUNTERED
WiTH THE HOE FLAG SET SET

START
RESTART
CONTINUE
PROCEED
PRINT

DISPLAY
FLAGS

IFLAGS

2.5. 2

COMMAND SYNTAX

LAAA R

AL ARSRRl]

STA(RT)/TESTS:TEST=LIST/PASS:PASS=CNT/FLAGS:FLAG=LIST/EOP:EOP=INCR
PR R RN R RN RN RN R RN R R R R R R AR

THE

DIAGNOSTIC

SPECIFIED.

MAY

THME

CORE

RN RN AR R

IS EXECUTED

IN ACCORDANCE

MESSAGE ''# UNITS?"" IS PRINTED.

ISSUED WHEN DIAGNOSTIC

FOLLOWING:

RN RN RN RN ERETRRRNRRCERRERTERRRERRPRORRORRYY

OPERATOR

COMMAND MODE

HAS

WITH

THE

SWITCHES

START COMMAND

BEEN ENTERED

TYPED "RUN DIAGNOSTIC' B)

VIA CNE

DIAGNOSTIC

Vo TRl

FINISHED EXECUTING ()

OPERATOR

ENTERED

ERROR WAS ENCOUNTERED WITH HOE

(ONTROL/C.

UNITS?", THE HMARDWARE DIALOGUE

AFTER

THE

IS INITIATED.

FLAG

PAGE

SET

OPERATOR RESPONDS TO ''#

WHEN IT

IS COMPLETED,

THE
QUESTIONS
"'CHANGE
SW?'' IS ISSUED, AND THE ANSWERS, IF GIVEN,
BECOME THE NEW DEFAULTS.
THEREFORE IT IS NECESSARY TO
RELOAD
THE
PROGRAM IN ORDER TO RETURN TO THE LOAD DEFAULTS.
THE

SWITCH ARGUMENTS ARE

AS FOLLOWS:

"TEST=LIST" IS A SEQUENCE OF DECIMAL NUMBERS (1:2 ETC.)
OR
RANGES
OF DECIMAL NUMBERS (1-5:8-10 ETC.) THAT SPECIFY THE TESTS TO BE EXECUTED.
THE NUMBERS ARE SEPARATED BY COLONS.
THE
NUMBERS
RANGE
FROM
1
T0 THE LARGEST TEST NUMBER IN THE DIAGNOSTIC.
THEY MAY BE
SPECIFIED IN ANY ORDER.
TESTS WILL BE EXECUTED IN NUMERICAL
ORDER
REGARDLESS

THE ORDER OF

CUTE ALL TESTS.

SPECIFICATION.

"'PASS=CNT'" IS A DECIMAL NUMBER

INDICATING

PASSES.

THE

A PASS

IS DEFINED

THE DEFAULT

THE

EXECUTION OF

DESIRED
THE

TO EXE-

NUMBER

FULL DIAGNOSTIC

(ALL SELECTED TESTS) AGAINST ALL UNITS SUBMITTED.
THE
DEFAULT
1S
NON-ENDING
TEST
EXECUTION.
‘'FLAG=LIST'' IS A SEQUENCE OF ELEMENTS
OF THE FORM <FLAG>, <FLAG=1>, OR
<FLAG=0>,
SEPARATED
BY
COLONS,
WHERE <FLAG> HAS ONE OF THE FOLLOWING VALUES:
HOE

WALT

ON ERROR,

ERROR

CAUSING COMMAND MODE

TO BE

ENTEKED

WHEN

IS ENCOUNTERED

LOE LOOP ON ERROR,

CAUSING THE DIAGNOSTIC TO LOOP

CONTINUOUSLY

TEST, O TEST) CONTAINING
THE ERROR . o (oo S8

IER

INHIBIT ERROR REPORTING

IBE

INHIBIT BASIC ERROR REPORTS

IXE

INKIBIT EXTENDED ERROR REPORTS

PRI

DIRECT

PNT

ALL MESSAGES
NUMBER OF

TEST

TO A LINE

PRINTER

BEING EXECUTED

BOE BELL ON ERROR
UAM RUN

IN UNATTENDED MODE,

ISR INHIBIT

STATISTICAL

IDU INHIBIT DROPPING OF

BYPASSING MANUAL

REPORTS

UNITS BY DIAGNOSTIC

INTERVENTION TESTS

SEQ 0014

THE

FLAGS NAMED OR EQUATED

ARE

SET,

THOSE

CLEARED.
A FLAG NGT SPECIFIED IS CLEARED.
NOT GIVEN ALL FLAGS ARE CLEARED.

EQUATED

IS DESIRED

(AR R

DEFAULT
A

IS AT

THAT

THE END OF

THE

END OF

EVERY PASS.

PASS MESSAGE

ARE

THE FLAGS SWITCH

"EOP=INCR'" IS A DECIMAL NUMBER INDICATING HOW OFTEN
PASSES)

PAGE

(IN

TERMS

PRINTED.

THE

22222222222222222222

RES(TART) /TEST:TEST=LIST/PASS:PASS=CNT/FLAGS:FLAG=LIST/EOP:EOP=INCR/

UNITS:UNIT=LIST
(I AAAAAAAA A

AR AR AR

R Rl
22 RS2
RSS2 R

THE DIAGNOSTIC IN CORE 1S EXECUTED !N ACCORDANCE WITH THE

SPECIFIED.

ONES

IN CORE

HOWEVER,

ARE USED.

THE QUESTION ""CHANGE

NEW

DEFAULTS.

ESL%;SD/(VIA
C

THE

L/C.

THE

''P-TABLES'' ARE NOT BUILT.

SW?'' 1S ASKED AND THE

COMMAND MAY BE

DIAGNOSTIC

SWITCH ARGUMENTS

NEW

ARE

THE

ANSWERS GIVEN BECOME

THE

()

ISSUED WHEN COMAND MODE

FINISHED

IN THE

START

SWITCHES

INSTEAD,

HALT

HAS BEEN

ERROR

COMMAND EXCEPT:

"'UNIT=LIST'' IS A SEQUENCE OF LOGICAL UNIT NUMBERS
RANGING
FROM
1 THRU N (N = NUMBER OF UNITS BEING TESTED) SPECIFYING WHICH UNITS ARE TO BE TESTED.
THE LOGICAL UNIT NUMBER
DESIGNATES
THE POSITION OF THE P-TABLE IN CORE, ACCORDING

TO THE ORDER IN WHICH THEY WERE BUILT.
THE
UNITS
SPECIFIED
MUST NOT HAVE BEEN DROPPED BY THE OPERATOR DROP (OMMAND.
THE UNIT=LIST DEFAULTS TO "ALL THAT WAVE
NOT
BEEN

DROPPED BY OPERATOR COMMAND''.
THE EFFECT OF
LASTS UNTIL THE NEXT
START
(WHERE
IT
IS

RESET

TO "'ALL'") OR THE NEXT RESTART.

THE UNIT-LISi
AUTOMATICALLY

ALL UNSPECIFIED FLAG SETTINGS ARE UNCHANGED.

RN RN RN RN RN RO R RN ARTRRNRERRETROEROENRTRRRROERERY

(ONCTINUE) /PASS : <PASS=CNT/FLAGS:<FLAG=LIST>
(A

AR AR
RRRRRRd)

COMMAND MODE MUST HAVE BEEN ENTERED DUE TO A HALT
ON
ERROR
OR
A
CONTROL/C.
THE EFFECT OF THE COMMAND IS TO GO TO THE BEGINNING OF
THE TEST
PLACE.

THAT WAS BEING EXECUTED WHEN THE HALT
OR
CONTROL/C
TOOK
SOFTWARE DIALOGUE MAY OPTIONALLY BE RE-EXECUTED.
HWARDWARE

PARAME TERS MAY

NOT

C(MHANGED.

SEQ 0015

THE

SWITCH

ARGUMENTS

ARE

THE

START

PAGE

SEQ 0016

COMMAND EXCEPT:

DEFALY FOR PASS=(NT 1S THE
PREVIOUS START OR RESTART

UNSATISFIED PASS=CNT

UNSFECIFIED FLAG SETTINGS ARE UNCHANGED

FROM

THE

EF=-

ttTTRRERRSRREROERROERRORRRRORNRRY

PROCCEED)
/FLAGS: <FLAG=LIST>
tetRRRERRRRRERRERRRORERRROROERORORY

(OMMAND MODE MUST

HAVE BEEN ENTERED VIA A HALT

ON ERROR.

FECT OF THE COMMAND IS TO BEGIN EXECUTION AT THE LOCATION FOLLOWING
TN%EE:SOR CALL.
NEITHER HARDWARE NOR SOF TWARE
PARAMETERS
MAY
BE
AL
.

THE

SWITCH ARGUMENTS ARE
T.

THE

SAME

UNSPECIFIED FLAG SETTINGS

THE

START

COMMAND EXCEPT:

ARE UNCHANGED

\ AAA AR ARl
R0
Rl R

CCI/ZTEST:TEST=LIST/PASS:PASS=CNT/FLAGS:FLAG=LIST/EOP:EOP-INCR
L AAAAAAAAARAAARttt
Rl ]

THE DIAGNOSTIC EXECUTES THRU ALL OPERATOR DIALOGUE AND HALTS AT THE
HARDWARE
TEST
(ODE.
NOW THE OPERATOR CAN DUMP THE CORE IMAGE TO
THE MEDIUM WITH A BIC EXTENSION.
THE BIC FILE MUST BE HANDLED DIFFERENTLY DEPENDING ON WHETHER IT IS
RUN
MANUALLY
OR IN CHAIN MODE.
IF RUN MANUALLY IT CAN BE INVOKED

EITHER WITH A "'START'' (IN WHICH CASE
FILE:

1T WILL BEHAVE

THE

THE PRE-GENERATED ANSWERS TO OPERATOR QUESTIONS WwILL BE

NORED) OR WITH A 'RESTART'" (IN WHICH CASE THE PRE-GENERATED
TOR ANSWERS WILL BE

USED).

BIN
1G-

OPERA-

IF RUN IN CHAIN MODE, AUTOMATIC EXECUTION WILL COMMENCE IMMEDIATELY
FROM
THE
XXDP COMMAND ‘‘.R DIAG''.
THE COMMAND PROMPT "'DS-B>'' WlLL

NOT BE

ISSUED.

ANY SWITCHES SPECIFIED ON THE

CCl1

COMMAND WILL CARRY OVER WHEN

BIC FILE IS5 RUN IN CHAIN MODE (EXCEPT THAT UAM IS ALWAYS SET
BUT WILL NOT CARRY OVER WHEN IT IS RUN MANUALLY.

THE

THERE)

TO DO A CCI ON A FuLL SIZED DIAGNOSTIC
(14.5k
WORDS),
A MACHINE
SIZE LARGER THAN 16K 1S REQUIRED.
THE EXACT SIZE NEEDED DEPENDS ON
WHICH UTILITY IS USED TO EXECUTE THE DIAGNOSTIC AT CCI TIME,
sesRsRRdRRERERRRRRRROEN
RS

|S
——

DROCP) /JUNITS:UN]IT=L]ST

PAGE

THE UNITS SPECIFIED ARE DROPPED FROM TESTING UNTIL THEY
ARE
ADDED
gh(: ng(g:glL A START COMMAND 1S GIVEN.
A DROP CANNOT BE FOLLOWED
Y

THERE 1S ALSO A ''DROP'* MACRO
INTERNAL
TO
THE
DIAGNOSTIC,
WHICH
GIVES
THE
FACILITY
OF
AUTO-DROPPING.
THE DURATION OF A PROGRAM
DROP, HCWEVER, 1S ONLY UNTIL THE NEXT START OR RESTART.
ttreERRERRRORRYCROERR
Y

ADD/UNITS:UNIT=LIST
trRRRERERRRERRORRRERRRR
Y

THE

UNITS

SPECIFIED ARE

ADDED BACK

DROPPED
BY
THE DROP COMMAND)
BE FOLLOWED BY A PROCEED.

(THEY MUST

TO THME

TEST

HAVE

BEEN

SEQUENCE.

PREVIOUSLY

AN ADD CANNOT

LA AR S 224

PRI(NT)
tEERREREY

ALL
THE

STATISTICS TABLES ACCUMULATED BY THE
DIAGNOSTIC
ARE
ISR C(INHIBIT STATISTICAL REPORTING) FLAG IS CLEARED.

PRINTED.

I AAAA ARl
d A

DIS(PLAY)/UNITS:<UNIT=LIST>
teETRERRRRRRRORRRERRRPRRRROREY

THE
THE

HARDWARE P-TABLES FOR ALL
FORMAT IN WHICH THEY WERE

UNITS UNDER TEST ARE PRINTED
ENTERED.
ANY UNITS THAT WERE

BY THE OPERATOR ''DROP'' COMMAND ARE SO DESIGNATED.
LA R

]

FLACGS)

THE

CURRENT

SETTINGS OF

ZFL(AGS)
A S AN
(AL

ALL

FLAGS

ARE

C(LEARED.

ALL

FLAGS

ARE

PRINTED.

OuT
IN
DROPPED

SEa 0017

l.h

PAGE

EXTENDED P-TABLE DIALOGUE

THE FULL CAPABILITY OF THE WARDWARE DIALOGUE

FOLLOWING DISCUSSION OF

WHAT HAPPENS

AS SOON AS THE QUESTION "'# UNITS?'' IS ANSWERED
SPACE
IN
C(ORE IS ALLOCATED FUR ''N'' P=TABLES.
ARE

BETWEEN
P=TABLE

THE

SAME

THE

FORMAT,

HARDWARE

FORMAT.

AND

THERE

PARAMETER

REVEALED

INTERNALLY.

THE

(WITH THE NUMBER N),
ALL OF THE P=TABLES

ONE-TO-ONE

QUESTIONS

AND

(ORRESPONDENCE

THE

SLOTS IN THE

IN GIVING A STRING OF VALUES, COMMAS WITHOUT INTERVENING VALUES MAY
BE USED TO INDICATE A REPETITION OF THE LAST NAMED VALUE.
A STRING OF
THE

VALUES MAY BE GIVEN AS A RANGE

VALUES

REPRESENT

LATES TO THE
ARE

PURE

NUMERICAL

DATA,

(6-10 FOR EXAMPLE).
THIS

STRING 6,7,8,9,10 (AN INCREMENT OF

ADDRESSES,

THE

INCREMENT OF 2).

SAMPLE

RANGE

TRANSLATES

SAMPLE

1).

THE

RANGE

THE

IF
TRAN-

VALUES

STRING ¢,8,10

(AN

NOW LET US SEE HOW WE COULD USE THESE CAPABILITIES TO
CONSTRUCT
A
SET
OF
P-TABLES.
ASSUME THAT WE HAVE 8 RL UNITS, AND THAT THERE
ARE FIVE (5) HARDWARE PARAMETERS FOR EACH (5 SLOTS IN THE
P=-TABLE,

5 HARDWARE QUESTIONS IN THE DIALOGUE).

FOLLOWING IS THE DIALOGUE FOR THIS 8 RLOX DRIVE SYSTEM,
TEM
HAS
TWO (2) RL11 TYPE CONTROLLERS ALL TO BE SET AT

(ON

THIS
SYS"'BR LEVEL'

THE FIRST & DRIVES ARE RLO1'S AND THE LAST & DRIVES ARE
THE

# UNITS

SECOND

(D)

CONTROLLER):

UNIT 1
BUS ADDDRESS (0) 174400 ?
VECTOR (0) 160 ?
DRIVE (0) 0 ? 0-3
DRIVE TYPE = RLOY (L) ¥ ?

UNIT S
BUS ADDRESS (0) 174400 ? 175400
VECTOR (0) 160 ? 164
DRIVE (0) 0 ? 0=3
DRIVE TYPE = RLOY (L) ¥ 2 N

RLO2'S

SEQ 0018

THE

FIRST

TIME

THRU

THE

P-TABLE

USED FOR THE CONTROLLER TYPE
TROLLER (QUESTION #2),
#3),
THE
DRIVE
TYPE
#6).

THE

SECOND

ACTUAL

UNIT

TIME

THRU

QUESTIONS

THE

(QUESTION #1),

DEFAULT

Be o

PAGE

VALUES

(SR ADDRESS OF

THE

ARE

CON=-

THE CONTROLLER VECTOR
ASSIGNMENT
(QUESTION
(QUESTION #5), AND THE ''BR LEVEL' (QUESTION
NUMBERS OF THE RLO1'S FOR QUESTION #4& WAS AS-

SIGNED O THRL 3 FOR THE FIRST & P=-TABLE SLOTS.

TYPE

THE

P-TABLE

SECOND CONTROLLER),

CONTROLLER.

THE

QUESTIONS

(FOR

THE

RLO2 ASSIGNMENT

FIRST QUESTION DEFAULTED 70 "'RLIT"

SECOND QUESTION WAS

ANSWERED

REFLECT

THE

CHANGE IN CSR ADDRESS FOR THE RLO2 CONTROLLER (175400j).
THE SECOND
(ONTROLLER'S VECTOR WAS ALSO CHANGED TO 164 IN
QUESTION #35.
THE

RLO2
TEST
UNIT NUMBERS WERE ASSIGNED VALUES O TO 3 IN QUESTION #4
AND THE DRIVE TYPE WAS SET FOR RLOZ2'S FOR THE REMAINING & UNITS
IN
QUESTION
#5.
THE LAST QUESTION WAS DEFAULTED USING THE '""BR LEVEL"
FROM THE FIRST PASS.

e s

SEQ 0019

-y

2.5

HARDWARE

THE

2
PAGE 20

PARAMETERS

FOLLOWING QUESTIONS WILL.BE

ASKED

START

(COMMAND.

THE

TWAT WILL BE TAKEN ON A CARRIAGE RETURNCRESPONCES T Db RULT VALUE
BUS ADDRESS

(0)

174400?

ANSWER WITH

THE

BUS

ADDRESS OF

THE

VECTOR

(Q)

160?

ANSWER

WITH

THE

INTERRUPT

VECTOR

DRIVE

(0)

THE

DRIVE(S)

CONNECTED

TYPE

ANSWER

2.6

THE

CONTROLLER.

ANSWER WITH

DRIVE

CONTROLLER.

= RLOY
(N)

(L’

THE

CONTROLLER

DRIVE

SCF TWARE

AN RLO?

PARAMETERS

THE

FOLLOWING QUESTIONS ARE

C(ONTINUE.

THEY

ALLOW

"CHANGE

S.w.

ASKED

REQUESTED ON A

FLEXABILITY

IN THE WAY

START,

RESTART,

THE PROGRAM BE-

HWAVES.
THE SOFTWARE PARAMETERS GIVE THE PROGRAM FLEXIBILITY IN THE
WAY
1T
RUNS.
THE PARAMETERS CAN BE MODIFIED ON A START, RESTART,
OR CONTINUE BY ANSWERING (Y)ES TO THE FOLLOWING QUESTION:

YES

ANSWER WILL

ASK

THE

FOLLOWING

SOF TWARE

PARAMETER

QUESTIONS,

INFORMATION

NECESSARY,

WlTH
THE PRESENT DEFAULT VALUE PRINTED TGO THE LEFT OF THE QUESTION
MARK,
(THE LAST ANSWER GIVEN IS THE DEFAULT) THE DEFAULT IS
TAKEN
ON A <CR>,
(ONTROL Z (*7) WwILL DEFAULT ALL REMAINING QUESTIONS AND
START THE TEST.

THERE

ARE

SOF TWARE

ERROR
ERROR
ALL

INFORMATION

REGISTERS

VOLVED

PARAMETERS,

IN ERROR,

IS COMPLETE

ARE

GIVEN

IN GIVING ALL

AS WELL

TRACKk,

SECTOR

AND DRIVES

IN-

SEQ 0020

ALL ERROR
PORTS ARE

INFORMATION IS PRINTED ON THE CONSOLE
AIMED AT BEING SELF EXPLANATCORY.
THE

DZRLL

XXX

ERR

YYYYY

1S1T

212

DEVICE.
GENERAL

SUB

PAGE

€¢RROR
FORMAT

RE|S:

P(:

RRRRRR

ERROR

ALONG

SECTOR

AFTER

PPP

:
WHERE

?
XXX

YYYYY

111

PPP

ERRORS GIVE THE
wITH A ONE LINE

1S PROGRAM LETTER
IS SFT = SOFT ERROR
HRD = HARD ERROR
Dv FAT = DEVICE FATAL ERROR
SYS FAT = SYSTEM FATAL ERROR
1S THE ERROR NUMBER
IS THE TEST NUMBER
{g THE SUBTEST NUMBER
THE PROGRAM LISTING LOCATION

THE

EXAMPLE:
ONE LINE DESCRIPTION
(OPTIONAL SECOND LINE)
(OPTIONAL THIRD LINE)
BEFORE CS:XXXXXX BA:XXXXXX DA:XXXXXX MP:XXXXXX
AFTER

CSaXXXXX BA:ZXXXXXX

OTHER PERTINENT

DA:XXXXXX MP:XXXXXX

INFORMATION

IS GIVEN AT

FOUND

THIS

TIME,

IN SECTION 5.0.

ERROR DESCRIPTIONS:

"ERROR READING SECTOR"
ERROR WAS ENCOUNTERED WHILE TRYING TO READ VERIFY
1T WAS WRITTEN BY THE SAME DRIVE.
"MINIMUM OF
THE

THE

TWU DRIVES REQUIRED"

PROGRAM REQUIRES AT

"MAXIMUM OF

THE

LEAST

TWO DRIVES

TO PROVE

FOUR DRIVES ALLOWED'

PROGRAM ONLY

ALLOWS

A MAXIMUM OF

FOUR DRIVES.

COMPATABILITY,

SEQ 0021

“CAN'T FIND FIVE ADJACENT
THE

PROGRAM REQUIRES

TEN

PAGE 22

TRACKS"
SETS OF

FIVE

ADJACENT

MINED SPOTS ACROSS THE PACK.
1T WAS UNABLE
GOOD ADJACENT TRACKS IN THE LIMITS GIVEN.

TRACKS

TO FIND

PREDETER-

FIVE

COMPLETELY

"ERROR WRITING SECTOR"
AN ERROR

WAS

ENCOUNTERED

WHILE

TRYING

TO WRITE

THE

GIVEN

SECTOR.

DATA

AFTER

"'OVERWRITE ERROR"
AN ERROR WAS

ENCOUNTERED

OVERWRITE BY ONE DRIVE.

WHILE

TRYING

BOTH DRIVES

READ

INVOLVED ARE

GIVEN.

"'READ RECOVERY ERROR"'
a:Y%RROR WAS

""ADJACENT

3.2

ENCOUNTERED

TRACK

ENCOUNTERED WHILE

DESCRIPTION

IS GIVEN.

RECOVER

ANOTHER

DRIVES

THE

ADJACENT

TEST

PART,

FURTHER

ERROR HALTS
SUPPORTED PER DESCRIBED
IN
THERE ARE NO OTHER HALTS.

PERFORMANCE

AND PROGRESS REPORTS

PERFORMANCE

REPORTS

TH1S PROGRAM WiLL

TRYING

TEST"

AN ERROR WAS

ERROR HALTS ARE
WITH /FLAG:HOE.

‘.0

WHILE

NOT

GIVE

THE

ANY

PERFORMANCE

REPORTS.

ANY

PROGRESS REPORTS,

PROGRESS REPORTS

THIS PROGRAM wiLL

NOT

GIVE

SECTION

SEQ 0022

5.0

DEVICE
THE

RL1T/RLVTY

CONTROL OF

THE

INFOPMATION TABLES
CONTROLLER HAS

BIT
BIT
BIT
BIT
BIT

BIT

THE

FOLLOWING FOUR(«)

SUBSYSTEM.

RLCS = CONTROL

BIT
BIT
BIT
BIT

AND

STATUS REGISTER

(xxxxx0)

15
14
13
12

= COMPOSITE ERROR
= DRIVE ERROR
= NON EXISTANT MEMORY ERROR
= HEADER NOT FOUND (WITH BIT 10 SET)
= DATA LATE (WITH BIT 10 CLEAR)
11 = HEADER CRC (WITH BIT 10 SET)
= DATA CRC (WITH BIT 10 CLEAR)
10 - OPERATION INCOMPLETE
9/8 - DRIVE SELECT (0-3)
7 = CONTROLLER READY
6 = INTERRUPT ENABLE
S5 = EXTENDED BUS ADDRESS (BIT 17)
& - EXTENDED BUS ADDRESS (BIT 16)
3=1 - FUNCTION CODE
0 = NOP (PDP=11) MAINT (LSI=11)
1

= WRITE

CHECK

= READ HEADER

2 = GET DRIVE STATUS
3 = SEEK
5 = WRITE DATA

6 = READ DATA
7 = READ WITHOUT HEADER COMPARE

BIT

2
PAGE 23

O = DRIVE READY

RLBA = BUS ADDRESS REGISTER

(lXXlXZ)

BITS 15-1 BUS ADDRESS OF DATA TRANSFER
BIT 0 SWOULD BE 0
RLDA = DISK

ADDRESS REGISTER

(XXXXX&)

S - -

FOR READ/WRITE

FUNCTIONS

BIT 157 = CYLINDER ADDRESS FOR TRANSFER
Bl € = SURFACE FOR TRANSFER
BIT 50 = SECTCR FOR TRANSFER (1=40,)
FOR SEEX

FUNCTION

REGISTERS

FOR

SEQ 0023

O —=MIWST
O~ —

OR GET

BIT
BIT
BIT
BIT
BIT

SURFACE

(0=UPPER,

MUST BE ZERO

MUST BE ZERO (0)
MUST BE ONE (1)

1=LOWER)

1=IN 7 0=0uUT

)

STATUS FUNCTION

15-4 = IGNORED SHOULD BE ZERO (0)
3 = DRIVE RESET
2 = MUST BE ZERO (0)
1 = MUST BE ONE (1)
0 - MUST BE ONE (1)

RLMP = MULTIPURPOSE

BIT

(0)

SEEXK DIRECTION(

Y.}

5<7 = DIFFERENCE TO NEW CYLINDER
=5
= MUST BE ZERO" (0)

e b

4 —d
—t o

s bt >t bt b

OO ODDDD

15 = 0 - WORD COUNT

(TWO'S COMPLIMENT)

FOR READ HEADER FUNCTION

BIT

15-0 = DISK HEADER OF SECTOR (FIRST READ)
= ZERO WORD

= HEADER CRC
FOR GET

—

B
B
B
B
B
B
B
I
B
B

NDOO =W
WS VWO

STATUS

WRITE DATA ERROR
CURRENT HEAD ERROR (CHE)

s
s
—. et

WRITE LOCK STATUS

(wL)

WRITE GATE ERROR

(WGE)

SEEK TIME OUT (SKTOD)
SPIN ERROR (SPE)

VOLUME CHECK (vC()
DRIVE SELECT ERROR (DSE)

DRIVE TYPE 1S RLO2 IFf SET
SURFACE (0=UPPPER, 1=LOWER)
COVER OPEN

HEADS HOME

BRUSHES HOME
2=0 =STATE BIT1S
0 = LOAD STATE
[

—
e

O O I

4 b0 b2
% b2 b

4 —d —a —4 — 4 —4 -4 -4 —4
b

m b e b e -«

it
ot

e bt

(THIRD READ)

STATUS FUNCTION

HAS DRIVE

D Ob b 00 b T T TD T T

(SECOND READ)

PAGE 24

SEQ 0024

6.0 TEST

I
B
I
I
B
LN

NOWV SNy -

2
PAGE 25

SEQ 0025

SPIN UP
BRUSH CYCLE
LOAD HEADS
.
SEEK = TRACK COUNTING
SEEK = LINEAR MODE
UNLOAD HEADS
SPIN DOWN

SUMMARIES

THE FOLLOWING IS A BRIEF DESCRIPTION OF THE WAY
THE
PROGRAM
EXECUTES.
THE
PROGRAM WILL CHECK COMPATIBILITY BETWEEN 2 = & DRIVES

USING THE SAME RLOIK CARTRIDGE OR SAME RLO2K CARTRIDGE.
GRAM
WwILL ASK THE OPERATOR TO SEQUENCE
GIVEN IN THE FOLLOWING MANNER.
PLACE PACK

THE

PRO-

THE PACK BETWEEN THE DRIVES

IN DRIVE N ON CONTROLLER X

AND LOAD

UNLOAD DRIVE N ON CONTROLLER X
PLACE PACK

IN DRIVE N+1

ON CONTROLLER X AND LOAD

UNLOAD DRIVE N+¢1 ON CONTROLLER X
3 | SRR
THE

PROGRAM WILL

SEQUENCE

HARDWARE QUESTIONS.

1.E.

THE

ORDER

THAT

WAS

GIVEN

THE

PROGRAM wWilLL SEQUENCE 0,1,2,3,2.1.0

DRIVE ? 1,0,3.2
PROGRAM wILL SEQUENCE 1,0,3.2.3.0.1
WHEN THE

SETS OF

FIRSTY DRIVE

1S LOADED THE PROGRAM WILL ATTEMPT

TO FIND TEN

FIVE ADJACENT TRACKS AT PREDETERMINED SPOTS THAT CONTAIN NO

BAD SECTORS USING THE BAD SECTOR FILE.
THE 10 SPOTS ARE:
ON BOTH
SURFACES,
INNER,
OUTER,
MIDDLE,
ONE QUARTER AND THREE QUARTERS.
AFTER THIS 1S DONE THE OVERWRITE TEST 1S PREPARED(FIRST DRIVE
OVERWRITE) AS WELL AS THE ADJACENT TEST.

CAN'T

AS THE PACK 1S CYCLED BETWEEN DRIVES THE FOLLOWING CHECKS ARE MADE:
EACH DRIVE CAN OVERWRITE EACH OTHER DRIVE

EACH DRIVE CAN RECOVER EACH OTHERS DATA

EACH DRIVE CAN WRITE ADJACENT TO EVERY OTHER

PAGE 26

DRIVE WITHOUT DISTURBING THE OTHER'S DATA.
READS AND WRITES TAKE

PLACE

BOTH DIRECTIONS.
ADJACENT

TESTS

ARE

WRITES

TAKE

PLACE

PERFORMED AT

ALL

AFTER

SEEKS FROM

TO BOTH

SIDES OF

TEN SPOTS

ACROSS

EACH WRITE

THE

PACK.

SEQ 0026

CZRLLAD RLOY/2 DRIVE
TABLE

>
1=
.=
L=

CCNTENTS

22
80
g
41

9
1
1332=
1

MACRO v03.01

9=FEB=79 19:41:44

GLOBAL EQUATES SECTION
GLOBAL DATA SECTION
GLOBAL TEXT SECTION
GLOBAL ERROR REPORT SECTION

INITIALIZATION SECTION
GLOBAL SUBROUTINES SECTION

PIAGNOSTIC

SUPERVISOR == (0w (ORt

SET uP

SEQ 0027

CIRLLAD RLO1/2 DRIVE

MACRO v03.01

9=FEB=79 19:41:44 PAGE

1
1
]
1
1

S NN =OOON N NN
-

SEQ 0028

LTITLE

000000

002000

0020G)

.=2000

000000
000000

Sv(
SVCINS 0
SVCTAG 0

002600

POINTER

1 5 002000
16 002000

BGNMOD

002000
002001
002002
002003
002004
002005
002006
002007
002010
002011
002012
002014
002016
002020
002022
002024
002026
002030
002032
002034
002036
002040
002042
002044
002046
002050
0C>051
002052
002054
002056
002060
002062
002064
002066
002070
002072

002074
002076
002100
002102
002104

CZRLLAO RLO1/2 DRIVE

.ENABLE AMA
.ENABLE ABS
«NLIST
ME,CND,MD
JMCALL
SvC

MDHEDR
HEADER

LASCI]
LASCII
LASCII
LASCII
LASCII
.BYTE
.BYTE
.BYTE
LASCII
LASCI]
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WCRD
.WORD
.WORD
.WORD
.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

022146

.WORD.WORD
.WORD
.WORD

(PT

NONE

(ZRLL,A,0,0,0,0,RLO!

/C/

/117
/R/

L/
L/

LSDISPAT(H
0
0
0
CSREVISION
(SEDIT

CIRLLAD RLOY/2 DRIVE

(PTY

MACRO v03.01

9=FEB=79 19:41:44 PAGF 1=}

SEQ 0029
002106

023562

002110

000000

17 002110
18 002110

19 002114
002114
002117
002122
002125

.WORD

LSCLEAN

LWORD

ENDMOD
DEVREG
BLKW

1¢2
061
114
000

114
054
060

DEVTIYP
LASCIZ

060
122
062

<RLO1,RLO0Z>
/RLOT,RLO2/

EVEN

20
21

.SBTTL GLOBAL EQUATES SECTION

24
25
26
Sg 002126

;DEFINITIONS

BGNMOD

%8 002126
3
32
33
3?

EQUALS
000000
000002
000004
000006

gt;
78
39
40

«.;

GLBEQAT

(S=0
BA=?2
DA=4
MP=6

sCONTROL AND STATUS OFFSET
sBUSS ADDRESS OFFSET
;DISK ADDRESS OFFSET
sMULTI PURPOSE OFFSET

sCONSTANT OFFSETS FOR INDIVDUAL DRIVE BUFFERS
000000
000002
000004

(SR=0
VEC=2
DSB=4

sCONTROLLER ADDRESS
sVECTOR OF CONTROLLER
;DRIVE SELECT

000006

PAT=6

;PATTERN UNIQUE

000001

DRDY=BIT0

;DRIVE

DLT=BITI12

:DATA LATE

TO DRIVE

43
L4

45
L6
&7
48

000100
100000
040000
020000

INTEN=BIT6
ERR=BIT15
DERR=BIT14
NXM=BIT13

50
51
52

004000
004000
010000

DCRC=BIT11
HCRC=BIT11
HNF=BIT12

000014

53
54
55
56
S7
58
59
60
61

63
b

010000

002000
000200
000040
000020
000002
000004
000006
000010
000012

OP1=BI1T10
CRDY=BI117
BA17=BITS
BA16=BlT4
CRSET=BIT
GSTAT=BI12
SEEK=BIT1!BI12
RDHDR=BIT3
WRITE=BIT3!BI!1

000013

DRS1=BIT3!'BIT1!BIT0

000003

000001

;DATA CRC ERROR
;HEADER CRC ERROR
sHEADER NOT FOUND ERROR

JOPERATION INCOMPLETE ERROR
sCONTROLLER READY
JEXTENDED BUS ADDRESS BIT 17
;EXTENDED BUS ADDRESS BIT 16
sCONTROLLER RESET FUNCTION CODE
;GET DRIVE STATUS FUNCTION CODE
;SEEK FUNCTION CODE
:READ HEADER FUNCTION CODE
;WRITE FUNCTION CODE

READ=BIT3'BIT2

sREAD

GSBIT=BIT1!BIT0

GET

MK=B1T10

READY

s INTERRUPT ENABLE
;s COMPOSITE ERROR
;DRIVE ERROR
sNON=EXISTANT MEMORY ERROR

FUNCTION

CODE

;DRIVE RESET COMMAND CODE FOR DRIVE COMMAD WORD
STATUS COMMAND CODE FOR DRIVE

COMMAND WORD

;MARKER BIT fOR DRIVE COMMAND WORD(SEEK,GET STA'US)

000004
000020
000100

0000C)
000002
000004
000006

79 002126

9=FEB=79 19:41:44 PAGE

000000

N =DOVONO
NS
NN =00

"Dl
—h

it
s

il
-

v
v

-t

S v

—h
—
-

002172
002174
002176
002200
002202
002204
002206
002210
002212
002214
002216
002220
002222
002224

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

000000

000000
000000
000000
000000
000000

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

SEQ 0030

HEAD=BIT6

;HEAD

;HEAD SELECT

;OFFSET

FOR HARDWARE

(SR=
VECT=

0
2

TYPDR=
DRBT=

GLBDAT

HDREND:

.WORD

MID10:
MID20:
MID30:
MID40:
MIDSO:
MID11:
MID21:
MID31:
MID41:
MIDS1:
TQU10:

FOR SEEK

FOR READ ,WRITE,GET

STATUS

P-TABLE

ENDMOD
GLOBAL DATA SECTION

BGNMOD

OUT10:
ouT20:
OuT30:
0UT40:
OUTS0:
OuT11:
ouT21:
OUT31:
OUT41:
OUTS1:
0Qu10:
0Qu20:
oQu30:
0QU40:
0Qus0:
cQull:
oQu21:
oQu3l:
0QuU4&l:
0QuS1:

SELECT

&
6

IS THE LISY OF

; TRACKS ARE

002130
002132
002134
002136
002340
002142
002144
002146
002150
002152
002154
002156
002160
002162
002164
002166
002170

1-2

;DIRECTION FOR SEEK(O-AwAY FROM SPINDLE)

SKHS=B] T4

JHERE
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
106

SIGN=B1T?

.SBTTL

85 002126
87 002126

MACRO v03.01

;1=HEADER

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

.WORD
.WORD

_.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
,WORD

.WORD

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
L.WORD
.WORD
.WORD
.WORD
.WORD

IN BAD SECTOR LIST

TRACKS TO USE FOR THIS TEST

ENTERED BY
[sleleleleleleleleoleolelaloleleloleolelolalelelelslelelolelele]
)

CZRLLAO RLO1/2 DRIVE (PT
GLOBAL EQUATES SECTION

'FNDTRK'

ROUTINE

'FIXTRK®

:OUTER TRK HEAD 0

;OUTER TRK HEAD 1

;1ST

QUARTER

TRK HEAD 0

;1ST

QUARTER

TRK HEAD

:MIDDLE

TRK HEAD 0

;MIDDLE TRk HEAD !

s3RD QUARTER TRk WEAD 0

ROUTINE

CIRLLAD RLO1/2 DRIVE C(PY

WOONOVEWN
= OV ~NO NS~

il
il
i
)

23 002226
002230
002232
002234
002236

WWWWWWWWWWNI
NN
NN

GLOBAL DATA SECTION

—

Pl
ol o
WA
-

-l

S il

il sl

002240
002242
002244
002246
002250
002252
002254
002256
002260
002262
002264
002266
140 002270
002272

000000
000000
000000
000000
000000
000000
0000GJ
000000
000000
000000
000000
000000
(00000
000000
000000
000000
000000
000000
000000

MACRO v03.01

9=FEB=79

TQu20:

.WORD

TQU40:
TQUS0:
TQUI1:
TQU21:
TQU31:

.WORD
.WORD
.WORD
.WORD
.WORD
_WORD
.WORD

TQU30:

TQU4T:
TQUST1:

INN10:
INN2O:
INN30:
INNGO:
INNS50:
INN'1:
INN21:
INN31:
INNG1:
INNS1:
.EVEN

.WORD

.WORD
.WORD
.WORD
.WORD
.WORD
_.WORD
_WORD
.WORD
_WORD
.WORD

19:41:44 PAGE

;3
1-3

SEQ 0031

0
O
0
0
0

O
0

0
O
0
O
0
0
0
0
O
0

:3RD QUARTER TRK HEAD

;INNER TRX HEAD O

:
s INNER TRK HEAD 1

;SECTOR LIST FOR LAST DRIVE WRITTEN
002274

:MAP OF

16 SECTOR DRIVE BITS

SECLST:

.BLkw

16.

;BUFFER TABLE FOR 24 X 5 MATRIX USED FOR ADJACENT CYLINDER TESTING.
002334

SECBUF:

.BLKW

5+24,

;LIST OF TRACKS USED TO OVERWRITE TEST,
sFIRST FIVE ARE CYLINDER ADDRESSES OF TOP SURFACE.
;LAST FIVE ARE CYLINDER ADDRESSES OF BCTTOM SURFACE.
002714
00271¢
002720
002722
002724
002726
002730
002732
002734
002736

002134
002160
002204

002740
002742

152525
133333

002744

002746

OVWTRK: 0QUT30
oau30
Mi1D30
Teu30

002230
002254
002146
002172
002216
002242
002266

0660666
155555

INN3O
out3
oQull

MID31
Teut

INN31

PATLST:

.WORD

.WORD
LWORD
LWORD

152525

133333

066666

155555

GLOBAL DATA SECTION

PIRORI NI N

s il il i e

s e

N=OOVBNO
VNS W =00
N W

002750
002752
002754
002756
002760
002762
002764
002766
002770
002772
002774
002776
003000
003002
003004
003006
003010
003012
003014
003016
003020
003022
3 003024

& 003026

25 003030
26 003032
27 003034
28 003036
29 003040
30 003042
31 003044
32 003046
33 003050
34 003052
35 003054
36 003056

000000
000000
000000
000000
000000
000000
0000CJ
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

000000
000000
000000
56
57 017124

MACRO v03.01 9=FEB=79 19:41:44 PAGE
TEM:
.WORD
T.DRIVE:
FOWR:
.wORD
FADJ:
.%ORD
TEMP:
.WORD
LSTCLR: .WORD
REASON: .WORD
ERFLG:
.WORD
STFLG:
.WORD
ADJLOC: .WORD
ADJFLG: .WORD
ADJDIR: .WORD
DRSTAT: .WORD
HSFLG:
.WORD
.WORD
1) 34
HEADO1: .WORD
DIRC:
.WORD
:
SURF
.WORD
CyL:
.WORD
REVSK:
.WORD
FORSK:
.WORD
uuT:
.WORD
SECT:
.WORD
LSTDRvV: .WORD
GDATA:
.WORD
BDATA:
.WORD
WCOUNT: .WORD
SECWRD: .WORD
OFFSET: .WORD
LSTTIRK: .WORD
FRTTRK: .WORD
PRSTRK: .WORD
SURFACE: .WORD
TRKFND: .WORD
TRKCNT: .WORD
£.0S5:
.WORD
.WORD
.WORD
.WORD

:
:
:
:
:
:
:
:

.WORD
.WORD
.WORD
.WORD
.WORD

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

.WORD
BLKW

P lelelolelelelelelelslelelelslelslleleleleleleleleleleleleleleleleloleleleleleleleolololelelaoleolololeololeolele]

CZRLLAO RLO1/2 DRIVE (P1

072.

3
SEQ 0032

;LAST

CONTROLLER

;DRIVE ERROR REASON
;ERROR FLAG

;PROGRAM START UP FLAG
; TRACK INDEX FOR ADJ. (YL TEST
;FLAG FOR ADJ. STORE OR RETRIEVE

;ADJACENT SEEK DIRECTION

;SURFACE FLAG
;DIRECTION OF SEEK
;REVERSE SEEK
;FORWARD

SEEK

;UNIT UNDER TEST
;SECTOR
;LAST DRIVE

:GOOD DATA

:BAD DATA
:WORD COUNT
:SECTOR WORD
: INCREMENT
;LAST TRACK OF SEARCH
;FIRST TRACK OF SEAR(CH
;PRESENT TRACK
s SURFACE

s TRACK

: IMAGE
: IMAGE
: IMAGE
:1n56e

FOUND

COUNT

OF (SR

OF BUS ADDRESS
OF DISK ADDRESS
OF

MULTI=PURPOSE

WORD

: COMMAND LOADED
:BUS ADDRESS LOADED
:DISK ADDRESS LOADED
:WORD COUNT

LOADED

:SERIAL NUMBER OF CATRIDC:

“INSIDE/OUTSIDE FLAG

:UUT FOR ""ADJCYL"
STEMP LOC FOR “ADJCYL"
LA

:SECTORS 10 WRITE “'ADJCYL"

"BUFFER FOR 24 SECTOR READS
;DRIVE

INFORMATION BUFFERS

2
3

CIRLLAD RLOY/2 DRIVE
GLOBAL DATA SECTION

(PT

MACRO v03.01

9=FEB=79 19:41:44 PAGE

SEQ 0033

000004

LREPT

&4,

017124
017126
017130
017132

000000
000002
000004
000008

(SR
VEC
0SB
PAT

;CONTROLLER ADDRESS
;VECTOR
;DRIVE SELECT BITS
;PATTERN UNIQUE TO DRIVE

01713«
01713¢
017140
017142

000000
000002

(SR
VEC
DSB
PAT

: CONTROLLER ADDRESS
;VECTOR

017144
017146
017150
017152

000000
000002
000004

000006

(SR
VEC
DSB
PAT

;CONTROLLER ADDRESS
;VECTOR
;DRIVE SELECT BITS

017154
017156

000000
000002
000004
000006

(SR
VEC
DSB
PAT

:CONTROLLER ADDRESS
;VECTOR

017160
017162
13
17 017164
18 017166

000004
000006

0000060

ENDBUF:

.WORD
ENDMOD

;DRIVE SELECT BITS
;PATTERN UNIQUE TC DRIVE

;PATTERN UNIQUE

TO DRIVE

;DRIVE SELECT BITS
;PATTERN UNIQUE TO DRIVE
0

;END OF

DRIVE

BUFFFRS

———————

—

(PT

MACRO v03.01

9=FEB=79 19:41:44 PAGE

.SBTTL GLOBAL TEXT
GLBTXT
BGNMOD

017166

3
SEQ 0034

SECTION

= NINONINONINI
O O = NN N = U N —

NNRONOCNVWN
= NN = = NO OO

Dettt
T
R
————

il
il
il
il
Al
il
il
il
il
il
il —ll —ll
—ll
.
el

ONNO = =NONONINNOO
=N —
SN NNY=NONO = NINIWN
= = NON N

NNINNINWS
=S NN

it ol e
il
e
el
)
il
il
el
il
il
il
i
el
i
il

020003
020030

OCOOON D=ON—=OMNNIN
—= =000

;GLOBAL TEXT

(AW ] AW W
————
Y
o = OOV
NO NS W= OC

NS NN

CIZRLLAG RLOY/2 DRIVE
GLOBAL TEXT SECTION

CNTTOT:
INITWR:
DCKER:

_ASCIZ
_ASCIZ
,ASCIZ

/CONTROLLER TIMED OUT/
/ERROR ON RECOVERING INITIAL WRITE BY FIRST DRIVE

LASCIZ
LASCIZ

/MAXIMUM OF FOUR DRIVES ALLOWED/
/TEST ABORTED = CAN'T FIND ANY GOOD SPOTS/

FEW:

+LASCIZ

OVMES:

.ASCIZ

MANY :
NONE :

RECMS:

ERRFND:
OVWER:
RECER:

LASCIZ

.ASCIZ
.ASCIZ
.ASCIZ

FUNERR:

.ASCIZ

FWD:
REV:

.ASCIZ
+ASCIZ

SKER:

WRIT1:
READ1:

ADJTXT:

+ASCIZ
_ASCIZ
_ASCIZ
.ASCIZ

/ERROR ON READ/
/MINIMUM OF

TWO DRIVES REQUIRED/

/TRYING TO OVERWRITE DRIVE

/TRYING TO READ DATA WRITTEN BY

/CAN'T FIND FIVE ADJACENT TRACKS/

/OVERWRITE ERROR/
/READ RECOVERY ERROR/
/ERROR IN SEEK OPERATION/
/MIS SEEK ERROR/
/FORWARD/
/REVERSE/
/ERROR WRITING SECTOR/
/ERROR READING SECTOR/
/ADJACENT CYLINDER TEST/

.EVEN

020060

ENDMOD

020060

.SBTTL GLOBAL ERROR REPORT
GLBERR
BGNMOD

020060

BGNMSG

020060
020060
020064

020100
020104
020106
020110

0
0
1
0

020070
020074

48 020114
020114

020114

020116
020116
020116
020120

0
0

003050
003042
003044

021365

000004

EMT
ADD

000012

L10000:

104023

BGNMSG
000005

SECTION

ERR1
PRINTB
MOV
MOV
MOV
MOV
MOV
MOV

#FRMIO,FRTTRK,LSTTRK,SURFACE
SURFACE ,=(SP)
LSTTIRK,=(SP)
FRTTRK ,=(SP)
#FRM10,-(SP)
#4,-(SP)
SP.RO

($PNTB
#12,5P

ENDMSG

EMT

ERR?

PRINTB
(LR

B1SB

DRIVE

($MSG
#FRM4, (SR(R4G) ,<B,DSB*!(R4)>
=(5P)

(SP)
DSB+1(R&),

CZRLLAO RLOY/2 DRIVE C(PY

GLOBAL ERROR REPORT

020126
020130
020136

020140
020142
020144
52 020150
53 020154

020154
. 02015¢

55 020156
56 020156
020156
020160
020164
020170

020174
020200
020202
020204

57 020210
58 020214
020214
020220
020224

020230
020234
020240
020242
020244
59 020250
020250
020252
020256
020262
020266
020272
020274
. 020276

61 020302
020302
> 020302
6

SECTION

016446
012746
012746

010600
104014
062706
004737

000000
021066
000003
000010
02550¢

L10001:

104023

BGNMSG
005046
156416
016446
012746

012746
010600
104014
062706
004737
013746
013746
013746
012746
012746
010600
104014
062706
005046
156316
016346

012746
012746
010600
104014
062706

000005
000000
021066

000003

003024
003014
003012
021127
000004

000010
L10002:
BGNMSG

65 020304
020304
020306
020312
020316

005046
156416
016446
012746

020326
020330

010600
104014

020332

66 020336

012746

062706
004737

000005
000000
021066

000003

000010

025506

(SR(R&) ,=(SP)
FERMG ,-(SP)
#3,-(SP)

SP,RO
($PNTB
#10,5P
PC,REGDMP

;REGISTER DUMP ROUTINE

($MSG

ERR3
PRINTB
(LR
B1SB
MOV
MOV

W#FRM4,CSR(R4) ,<B,DSB*1(R4)>
=(SP)
DSB+1(R4),
(SP)
(SR(R&) ,=(SP)
FERMG
- (SP)

JSR
PRINTB
MOV
MOV
MOV

PC,REGDMP
;REGISTER DUMP ROUTINE
#FRM5,<SURF>,<CYL>,SECT
SECT,=(SP)
CyL,=(SP)
SURF ,=(SP)

ADD
PRINTB
CLR
B1SB
MOV
MOV
MOV
MOV
EMT
ADD

000005
000000
021716
000003

SEQ 0035

EMT

MOV
MOV
MOV
EMT

000012

104023

MOv
MOV
MOv
MOV
EMT
ADD
JSR
ENDMSG

MOV
MOV
EMT
ADD

000010
025506

63 020304

020322

J
3
MACRO v03.01 9=FEB=79 19:41:44 PAGE 4=}

#3,-(SP)
SP,RO
C$PNTB
#10,SP

#FRMS,-(SP)
#6,-(SP)
SP,RO
($PNTB

#12,5P
#FRM16,CSR(R3),<B,DSB+1(R3)>
=(SP)
DSB+1(R3),
(SP)
CSR(R3) ,=(SP)
#iRM16,-(5P)
#3,-(SP)
SP,RO
($PNTB
#10,SP

ENDMSG

EMT

($MSG

ERR4

PRINTB
(LR
B1SB
MOV
MOV

#FRM4,(SR(R4) ,<B,DSB*1(R4)>
=(SP)
DSB+1(R4),
(SP)
(SR(R4) ,=(SP)
#ERMG,
- (SP)

MOV
EMT

SP,RO
($PNTB

MOV
ADD

JSR

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

PC,REGDMP

JREGILTER DUMP ROUTINE

———

CZRLLAO RLO1/2 DRIVE CPT

GLOBAL ERRCR REPORT

67 020342
020342
020346
020352
020356
020362
020366
020370
020372
68 020376
0c0376
020402
020406
020412
020416
020422
020426
020430
020432
69 020436
020436
020442
020446
020452
020454
” 020456
71

SECTION

013746
013746
013746
012746
012746
010660
104014
062706

003024
003G14
003012
021127
000004

013746
013746
013746
013746
012746
012746
010600
104014
062706

003026
002762
003026
002764
021176
000005

013746
012746
012746
010600
104014
062706

003010
021217
000002

72 020462
73 020464
76 020464
020464

020466
020472
020476
020502
020506
020510
020512
75 020516
76 020522
020522
- 020522
78 020524
79 020524

020524
020526
020532

020536
020542
020546
020550
020552
80 020556

PRINTB

000012

000014

000006

020462

K
3
MACRO v03.01 9-FEB=79 19:41:44 PAGE &=?

L10003:

104023

BGNMSG

005046
156416
016446
012746

012746
010600
104014
062706
004737

000005
000000
021066
000003

000010
025506

L10004:

104023

BGNMSG

005046
156416
016446

012746
012746
010600
104014
062706
004737

000005
000000
021066
000003

000010

025506

#FRM5,<SURF>,<CYL>,SECT
MOV
SECT,=(SP)
MOV
CyL,=(SP)
MOV
SURF ,=(SP)
MOv
NERMS ,=(SP)
MOv
¥4 ,-(SP)
MOV
SP,RO
EMT
CSPNTB
ADD
#12,SP
PRINTB WFRM6,REASON,LSTDRV,LSTCLR,LSTDRY
MOV
LSTDRV,=(SP)
MOV
LSTCLR,=(SP)
Mov
LSTDRvV,=(SP)
MoV
REASON,=(SP)
MOV
¥ERMG,-(SP)
MOV
#5.-(SP)
MOV
SP,RO
EMT
(SPNTB
ADD
¥14,5P
PRINTB #FRM7,DIRC
MCv
DIRC,=(SP)
Mov
#ERM7 ,-(SP)
MOv
#2,-(SP)
MOV
SP,RO
EMT
($PNTB
ADD
#6,SP
ENDMSG

EMT

C($MSG

ERRS
PRINTB
CLR

#FRM4,CSR(R4) ,<B,DSB+1(R4)>
=(SP)

EMT

($MSG

ERR6
PRINTB

#FRM4,CSR{R4) ,<B,DSB+1(R4)>

BISB
MOV
MOV
MOV
MOV
EMT
ADD
JSR
ENDMSG

(LR
B1SB
MOV

MOV
MOV
MOV
EM1
ADD
JSR

DSB+1(R4),
(SP)
CSR(R&) ,=(SP)
#ERMG
, - (SP)
#3,-(SP)
SP,RO
($PNTB
#10,SP
PC,REGDMP

=(SP)
DSB+1(R&), (SP)
CSR(R4) ,=(SP)
#ERMG
, - (SP)
#3,-(SP)
SP,RO
CSPNTB

#10,5P

PC,REGDMP

SEQ 0036

CZRLLAO RLO1/2 DRIVE CPT
GLOBAL ERROR REPORT SECTION

81 020562
020562
020566
020570
020574
020600
020602
020604
82 020610
020610
- 020610

013746
010146
012746
012746
010600
104074
062706

003064
022003
000003
000010
L10005:

104023

84
85
86

92 020612
93 020707
94 021007
95 021066
96 021127
97 021176
98 021217
99 021257
100 021323
101 021365
102 021431
103 021466
104 021545
105 021630
106 021657
107 021716
108 022003
109 022037
33? 022102

045
045
045
045
045
045
045
045
045
045
045
045
045
045
045
045
045
045
045

MACRO v03.07 9=FEB=-79 19:41:44 PAGE 4-3

116
116
116
101
101
124
101
101
104
101
116
101
116
116
116
101
101
116
116

045
045
045
103
110
045
123
127
063
102
045
102
045
045
045
101
105
045
045

PRINTB
MOV
MOV
MOV
MOV
MOV
EMT
ADD
ENDMSG

W#FRM17,R1,E.MP
E.MP,-(SP)
R1,-(SP)
#ERM17,-(SP)
#3,-(SP)
SP,RO
CSPNTB
#10,SP

EMT

C$MSG

;FORMAT

STATMENTS

FRM1:
FRM2:
FRM3:
FRM4:
FRMS:
FRM6:
FRM?7:
FRM8:
FRM9:
FRM10:
FRM11:
FRM12:
FRM13:
FRM14:
FRM15:
FRM16:
FRM17:
FRM18:
ENDPAS:

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

/XNXAUNLOAD DRIVE X01X%A ON CONTROLLER X06X%A AND REMOVE PACKIN/
/XINXAPLACE PACK IN DRIVE XO1XA ON CONTROLLER XO06%A AND LOAD 1TIN/
'XNXAWRONG PACK
# IS XOSX05%A # S/B XOSXZOSINAN'
/XACONTROLLER: XO6X%A DRIVE: X01%N/
/%AHEAD: XO1%A CYL: XZ3%XA SECTOR: XZ2%N/
/%XTX01%A ON X06XN/
/XASEEK DIRECTION: XTXNXADATA:XIN/
'XAWORD: XZ3%A S/B: X06%A WAS: X06XIN!'
/%XD3XA WORDS BAD OUT OF 128 READXN/
/XABETWEEN XZ3%A - X23%A HEAD: %01XN/
/XINXAPWR FAIL NOT SUPPORTEDXN/
/XABEFORE CS: %06XA BA: X06%A DA: X06%A MP: %06/
/XINXAAFTER
C(S: X06XA BA: X06XA DA: X06%A MP: X06IN/
/%NXA DRIVE STATUS: %06/
/XNXACAN'T FIND BAD SECTOR FILE/
/XAADJACENT WRITTEN BY CONTROLLER: X06%A DRIVE: XO1%N/
/XAEXP'D: X06%A REC'D: X06XN/
/XNXAUNLOAD ALL DRIVES TO BE USEDXN/
/%NXA END OF PASSENXN/

112
116

117
118
119
120
121

.EVEN

}5; 022130

ENDMOD

1264 022130
125 022130

BGNMOD
HPTCODE
BGNHW

126
127
128
129

022130
022132

000004
174400

022136
022140

000001
000000

02213

130 022142

' 022142

132 02242

000160

LWORD
LWORD

L10CO6-LSHW/2
174400
;CSR

LWORD
LWORD

1
O

LWORD
ENDHW

L10006:
ENDMOD

160

:VECTOR

;RLOY OR RLO2 (RLO1=1)
:DRIVE #
:

SEQ 0037

CZRLLAO RLOY/2 DRIVE CPY
GLOBAL ERROR REPORT SECTION
133
134
135 022142
136
137 022142

022142
" 022144

1
139 022146

MACRO VO3.01

SEQ 0038

BGNMOD

000001
031658

mn3

9=FEB=79 19:41:44 PAGE 4-4

DISPATCH

DSPCODE

LWORD
.WORD

ENDMOD

N 3
MACRO v03.01 9<FEB=-79 19:41:44 PAGE 5

CIRLLAO RLOY/2 DRIVE C(P1
INITIALIZATION SECTION
1

.SBTTL

g 022146

BGNMOD

INITIALIZATION SECTION

INITCODE

g 022146

BGNINIT

6 022146
022146
? 022152

0127C)
104041

000340

SETPR]I
MOV
EMT

#340
#340,R0
($SPRI

8 02215¢
18 022162

023727
002005

002012

CMP
BGE

LSUNIT, #2
90%

022164

ERRSF

022164
022166
022170
}% 022172

104421
000023
C17313
000137

023536

14 022176

023727

002012

17 022206
022206
022210
022212
}g 022214

104421
000024
017352
000137

}2 022204

20
21
22
23
24
25
26

022220
022226
022230
022234
022240
022244
022246
022246
022250
27 022252
28 022256
29 022262
30 022266
31 022272
32 022276
33 022300
34 022302
35 022306
36 022312
37 022314
38 022322
39 022326

40 022332
41 022336

022336

022342

&2 022344

02234
4% 02236

0223%6

003405

000002

000004

012037
011064
011264
005722
005201
005337
062704
000752
013737
012704
005037
005037

012700

104050

918:

1%:

000000
000002

002752
000004
000006

003022
000010

002012
017124
002756

003022

002754

;CLEAN CODE WHEN < 2 DRIVES

CMP

LSUNIT, w4

:MORE

BLE

91%

20. ,MANY
TSERCODE
20
MANY
CMPENA

LSUNIT,uuT
R1
#DRBUF ,R4
#PATLST ,R2
uut
END
R1,RO
R1,RO
($SGPHRD
(RO)+,CSR(R&)
(RO)+ ,VEC(R&)
(RO)+,T.DRIVE
(RO) ,DSB(R4)
(R2) ,PAT(R4)
(R2)+
R1
uu1
#PAT+2
R4
1%
LSUNIT,UUT
#DRBUF R4
FADJ

MOV

#EF .PWR,RO

FOWR
WEF.PWR

CSREFG

BNCOMPLETE

BCC
PRINTF
MOV

SETUP
#FRM1)

THAN FOUR

:NO, OKAY

;CLEAN CODE WHEN > & DRIVES

MOov
(LR
MOv
MOV
TST
BEQ
GPHARD
MOV
EMT
MOV
MOV
Mov
MJv
MOV
187
INC
DEC
ADD
BR
MOV
MOV
CLR

EmMT

021431

END:*

19, FEW

TSERCODE
19
FEW
CMPENA

CLR
READEF

000034

103010

012746

003022

;MORE THAN TWO
;YES, OKAY

TRAP
.WORD
.WORD
JMP

ERRSF
TRAP
.WORD
.WORD
JMP

023536

013737 002012
005001
012704 017124
012702 -002740
005737 003022
001423
010100
104042
012064
012064

90%:

SEQ 0039

:GET NUMBER OF UNITS
:INIT P-TABLE
:SET UP DRIVE BUFFER
;GET LIST OF PATTERNS
: ANY
P-TABLES LEFT?
:NO,GO TO END
;GET A P-TABLE
:GET (SR
;GET VECTOR

;RLO1/2 TYPE
:GET DRIVE

... RLO1=1

sNEXT P TABLE
;NEXT DRIVE

sGET BEGINNING OF BUFFER
sCLEAR ADJ. TEST FLAG
:CLEAR OVERWRITE FLAG

SETUP

#ERM1 ], =(SP)

CJRLLAOD RLOY/2 DRIVE

(PY

MACRO vO3.0)

INITIALLZATION SECTION
02¢3%2
022356
02230
0023%2

012746
010600
104017
062706

000001
00000«

9=FEB=79

19:41:44 PAGE

MOV
MOV
Emt
ADD

#1,-(SP)
SP,RO
($PNTH
0 ,5P

5-1

SEQ CO&0

MACRG v03.01

CIRLLAC RLOY/2 DRIVE (P1
INITIALTZATION SECTION

;INITIALIZE ROUTINE
;WE ATTEMPT TO LOCATE
;ACROSS THE PACK.
:THE

NS
ONONET
NNV = OOV
NT

9=FEB=79 19:41:44 PAGE

SPOTS ARE:

SEQ 0041

5 PERFECT ADJACENT

TRACKS AT

SPOTS

(EACH SURFACE)

*OUTER = TRACK 0 = 16 (BOTH RLO1 & RLO2)

;INNER = TRACK 238 = 254 (RLOYV) OR 494 - 510 (RLO2)
sMIDDLE = TRACK 120 = 136 (RLOY) OR 248 = 264 (RLO2)
;ONE QUARTER = TRACK 56 = 72 (R_O1) OR 120 - 136 (RLO2)
s THREE

;1F
002770

022366
022372
022400
022406

177777
177777

003102
003104

022406
022412
022416
022420

022422

031260
030512
027766
002130

19 022426

20 022432
21 022436
22 022442

INC

MOy
MOV

TRACK

STFLG

W#FRM18
#FRM18,-(SP)
#1,-(5F)
SP,RO

ADD

#4,SP

JSR
JSR
JSR
MOV

(OMMAND

:TRY

000029

000020

.WORD
LWORD

0,16.
0,16,

35 022502
36 022506

005737
001005

003052

151

TRKEND

ERRHRD
TRAP

10.,.ERREND,ERRT
T$ERCODE

.WORD

ERRFND

SEAR(CH

TRACKS

;WAS

+¥ES

SUCCESSFUL????

;NO TRACKS

.WORD
BR

ERRI

MOV

#0OUTIO,RD

JSR

TO FIND FIVE

s INWARD

;TOP SURFACE

BNE

.WORD

2%:

CTART

RS,FNDTRK

002130
030456

JSR

000000
000000

012700
004537

;INDICATE

DEC
BNE

12 022472
33 022476

41 022%22
42 022526

(RLOZ2)

#50.,R0
W177777,(R1)+
RO
1%

000404

392

MOV
MOV

030214

017563
020060

376 =

;TELL OPERATOR TO LOAD
;GET SERIAL NUMBER
JMERGE BAD SECTOR FILES
JINITIALIZE ALL TRACKS

004537
000001
000000

104463
000012

RS,LOAD
RS, SERNUM
RS ,MERGE
#0OUTI10,R1

28 022462
29 022466
30 022470

36 022510
022510
022512
022514
022516
39 022520

(RLO1)

CSPNTF

001374

1%:

= 200

#-1,SERNM
#-1,SERNM?

23 022446
26 022452
25 022456
26 022460

000062
177777

184

PRINTF
MOV
MOV
MOV

EMY

000004

WE FIND ANY BAD SPOTS, WE WiLL REPORT SU........ g

SETUP:

022037
000001

QUARTER

RS,FIXCYL

:STORE AWAY TRACKS FOUND

—

PFOPRURUPUND
o s ot et
s =t et

S W=
O 0N N WA
-

OWQO
N
N~ NN —

CIRLLAO RLOY/2 DRIVE (PT
INITIALIZATION SECTION

000001
000000
000000

022552
022556

005737
001005

022560
022560
022562
022564
022566
022570

004537
000001

030214
0000¢0
000020
003052

000356
000756

022622
022626

005737
001005

003052

022630
022630
022632
022634

104463
000012

012700

004537

1
.WORD
.WORD

0,16.
0,16.

1S1
BNE

.WORD
.WORD
.WORD
BR

000376
000776

27 022642

RS,ENDTRK

TRAP

012700
004537
004537

022636
022640

19:41:44 PAGE

JSR

ERRHRD

022572
022576
022602
022606
022610
022612
022616

28 02264t

3%:

017563
020060
0004904

177777
000000

9-FEB=79

SEQ 0042

104463
000012

017563
020060
000404

¢S

022532
022536
022540
022562
022546

MACRO v03.01

002142
03045¢
030214

5%:

MOv
JSR
JSR
-1

10.,ERRFND,ERR!
TSERCODE
10
ERREND
ERR1
5%
#OUT11,R0
RS,FIXCYL
RS,FNDTRK

254.,23%8.

TST
BNE

.WORD

TRAP

.WORD
.WORD
.WORD
BR

6%:

0
.WORD

ERRHRD

002250
020456

TRKEND

MOV

JSR

510.,494.
TRKFND

10. ,ERREND,ERRY
T$ERCODE
10
ERRFND

ERR1

sTRY

TO FIND FIVE

s WAS

SEARCKH

; INWARD SEARCH
;BOTTOM SURFACE

JYES

TRA(KS

SUCCESSFUL?2???

;NO TRA(KS

;STORE

TRACKS AWAY

sFIND NEXT

TRACK

;OUTWARD SEARCH

;s TOP

SURFACE

;WAS

SEARCH SUCCESSFUL?

;TRACK RANGE

:¥ES
;NO TRACKS

JSKIP

#INN1O,RO
RS,FIXCYL

:STORE

AWAY

TRACKS FOUND

CIRLLAG RLOY/2 DRIVE

(PT

MACRO v03.01

—_—

[T 1 W], W P

=00V

—

OO
N NN

INITIALIZATION SECTION

022652
022656
022660
0226672
022666

004537

030214

000376
000776

00035¢
000756

022672
022676

005757
001005

003052

022700
022700
022702
022704
022706

177777
000001

7$:

9-FEB=79 19:41:44 PAGE
JSR

RS,ENDTRK

.WORD

254.,238.
510.,494.

1
.WORD

151

106463

TRKFND

BNE

ERRHRD
TRAP
.WORD
.WORD
.WORD
BR

10.,ERRFND,ERRT
TSERCODE
10
ERRFND

SEQ 0043
JNEXT

SET

;OUTWARD SEARCH
;BOTTOM SURFACE

sSEARCH SUCCESSFUL?

JYES
;NO TRACKS

022710

000012
017563
020060
000404

022712
022716

012700
004537

002262
03045¢

8%:

MOV

#INNTT,RO

RS,FIXCYL

;STORE

JSR

022722
022726
022730
022732
022736

004537

000001
000000
000176
000376

030214

:
9%

JSR
1

RS,FNDTRK

JNEXT SET
;s INWARD SEARCH

022742
022746

005737
001020

003052

151
BNE

TRKFND

;DID WE

022750
022754
022756
022760
022764
022770
022774

004537

030214

RS,FNDTRK

JNEXT

000000
000202
000402
005737
001005

JSR
-1

000170
000370
003052

.WORD
.WORD

130.,120.

258.,248,

s TRACK RANGE

BNE

10%

ERRHRD

10. ,ERREND,ERRY
T$ERCODE
10
ERRFND

022776
022776
023000
023002
023004
023006

023010
023014

177777

0
.WORD
.WORD

000210
000410

151

104463
000012

TRAP

.WORD
.WORD
.WORD
BR

017563
020060
000404
012700
004537

002200
(30456

10%:

Mov

JSR

ERR1
9%

126.,136.

254.,264,
10%

TRKEND

AWAY

:TRACK RANGE

JYES

FIND

SET

(OTHER SIDE)

;OUTWARD SEARCH

;TOP

SURFACE

:DID WE

JYES

FIND

:NO TRA(KS

11%

RS,FIXCYL

FOUND

;TOP SURFACE

ERR1

#MID10,RO

TRACKS

sSTORE

AWAY

SET

NS NN —

MACRO v03.01

023020
023024
023026
023030
023034

004537
000001
000001
000176
000376

VYO NS NN =D 0O N

—

Z~N

—

RLO1/2 DRIVE (PT
1ZATION SECTION

023040
023044

005757
001020

003052

023046
023052
023054
023056
023062

004537

177777
000001
000202
000402

030214

023066
023072

005737
001005

11%:

000210
000410

003052

000012
017563
020060
000404

023106
023112

012700
004537

002212
030456

12%:

004537
000001
000000
000076
000176

030214

13%:

003052

023144
023150
023152
023154
023160

004537

030214

023164
023170

005737
001005

023172
023174
023176
023200
023202

023204

&7 023210

177777

000000
000102
000202

TRKEND

s SUCCESS?
s YES

J?R

RS,FNDTRK

;LOOK THE
;OUTWARD

130.,120.
258.,248.

151

TRKEND

MOV

#MIDTT,RO

;STORE

{SR

R5,FNDTRK

0
.WORD
.WORD

62.,72.
126.,136.

JNEXT SET
: INWARD
sTOP SURFACE

:RANGE

151

TRKFND

s SUCCESS?

J?R

RS,FNDTRK

;LO0K OTHER SIDE

13%

RS,FIXCYL

14%

66.,56.
130.,120.

181

TRKFND

.WORD
.WORD

14%

10.,ERRFEND,ERR]

TSERCODE

THE

TRACKS

s YES

;OUTWARD

sTOP SURFACE
:RANGE

sSUCCESS?
24E
S

:NO TRACKS

ERRFND

ERRI

MOV

#0QU10,R0

JSR

AWAY

LWORD

BR
14%:

.WORD

TRAP

002154
030456

TRACKS

ERREND
ERRI

ERRHRD

020060
000404

sNO

.WORD
.WORD

BNE

017563

sSUCCESS?

:YES

T$ERCODE

0
LWORD

003052

;BOTTOM SURFACE

12%

10.,ERRFND,ERRI

OTHER SIDE

TRAP

BNE

000070
000170

12%

.WORD
.WORD

JSR

104463
000012

012700
004537

151

005737
001020

SNEXT SET
; INWARD SEARCH
;BOTTOM SURFACE

s RANGE

.WORD

023136
023142

SEQ 0044

126.,136.
254.,264.

ERRHRD

000110
000210

1
.WORD
LWORD

BNE

104463

RS,FNDTRK

000170
000370

{SR

BNE

023074
023074
023076
023100
023102
023104

023172

030214

9-FEB=79 19:41:44 PAGE

19%

RS, FIxXCYL

;STORE

AWAY NEXT SE!

FOUND

023214
023220
023222
023224
023230

004537
000001
000001
000076
000176

030214

023234
023240

001020

SEQ 0045

RS,ENDTRK

;LOOK FOR NEXT

000110
000210

.WORD
.WORD

62.,72.

;s RANGE

005737

003052

151
BNE

TRKFND

s SUCCESS?
s VES

004537

030214

JSR
-]
1
.WORD
.WORD

RS,FNDTRK

;LOOK FOR ANOTHER SET
;OUTWARD
;BOTTOM

—

15%:

9-FEB=79 19:41:44 PAGE

: INWARD

SET

;BOTTOM

126.,136.

16%

023242
023246
023250
023252
023256

177777
000001
000102
000202

023262
023266

005737
001005

023270
023270
023272
023274
023276
023300

106463
000012
017563
020060
000404

023302
023306

012700
004537

002166
030456

16%:

MOV
JSR

#0QU11,RO

;STORE AWAY TRACKS

17%:

RS.,FNDTRK

SNEXT SET OF
; INWARD

190.,200.

:TOP SURFACE
s RANGE

BNE

TRKEND
18%

sSUCCESS?
sYES

JSR

RS,FNDTRK

0
.WORD
.WORD

194, ,184,

000070
00170

003052

66..56.

s RANGE

1ST

TRKEND
16%

s SUCCESS?
TS

ERRHRD

10. ,ERRFND ,ERR1
TSERCODE
10
ERREND

BNE

TRAP
.WORD
.WORD
.WORD

023312
023316
023320
023322
023326

004537

030214

000276
000576

000310
000610

.WORD
.WORD

023332

005737

003052

151

023340
023344
023346

004537

030214

023350
023354

000302
000602

000270
000570

023360
023364

005737
001005

003052

02333¢

023366
023366
023370
023372
023374
023376

4“6

023400

flA(RO v03.01

&7 023404

000001
000000

001020
177777
000000

-1

104463

03045¢

18%:

17%

RS,FIXCYL

382.,392.

10, ,ERREND ,ERR
T$ERCODE
10
ERRFND

JSR

TRACKS

;LOOK OTHER SIDE

;OUTWARD SEARCH

;10P

586.,376.

ERRHRD

MOV

:NO TRACKS

ERR1

TRKEND

.WORD
.WORD
.WORD
BR

002224

130.,120.

181
BNE

TRAP

000012
017563
020060
000404

012700
004537

o —c

VONF N

= O 000N

IS (NR

—

CIRLLAD RLOV/2 DRIVE C(PT
INITIALIZATION SECTION

sSUCCESS

18%

JYES
sNO

TRACKS

ERR1
19%

#1QU10,R0
RS, FIxCyL

STORE

TRACKS AwAy

VNN
W= OV
N N W —

CIRLLAD RLO1/2 DRIVE (PY
INITIALIZATION SECTION

MACRO v03.01

030214

004537
000001
000001
000276
000576

023430
023434

005737
001020

0030%2

023436
023442
023444
023446
023452

004537
177777
000001
000302
000602

030214

023456
023462

005737
001005

023464
023464
023466
023470
023472
20 023474

104463
000012
017563
020060
000404

22 023476
23 023502

012700
004537

002236
030456

25 023506
26 023512
27 023516
28 023522
29 023524
30 023526
21 023530
023530
023532
02353
32 023536
33 023540
36 023544
023544
023546
35 023550
36 023552
37 023554
38 023556
023556

012700
012701
022720
001016
005301
001373

002130
000062
177777

&2 023562

19%:

{SR

000310
000610

.WORD
.WORD

s SUCCESS?
JYES

J?R

RS,FNDTRK

;OTHER SET

1ST

BNE

ERRHRD

;OUTWARD

;BOTTOM SURFACE

194.,184,
386.,376.

: RANGE

TRKFEND

sSUCCESS
JYES

20%

10.,ERRFND,ERRI

sNO

TRACKS

TRAP

T$ERCODE

.WORD
.WORD
BR

ERRFND
ERR1
2%

20%:

MOV
JSR

#1QU1T1,RO
RS,FIXCYL

;STORE

21%:

MOV
MOV

#0OUT10,RO
#50.,.R1

:DID WE FIND ANY AT

.WORD

22%:

#-1,(R0O)+
EXIT
R1

TRAP

T$ERCODE

.WORD

CMPENA:

CMP
BNE
DEC

BNE
ERRSF

002012

;BOTTOM SURFACE

TRKFND

.WORD
.WORD

; RANGE

20%

003052

190.,200.
382.,392.

SET

: INWARD

BNE

151

000270
000570

JNEXT

NONE
R1
LSUNIT,RO

MOV

R1,R0O

($D0DU
R1
RO
24%

104044

EMT

(SDCLN

Ex]T:

L10007:

ALL

.WORD
(LR
MOV

DOCLN

SET AWAY

22%
3. .NONE

EMT
INC
DEC
BNE

106011

RS,FENDTRK

010100
104053
005201
0053090
001373

40 023560
41 023560

023560
023560

19:41:44 PAGE

SEQ 0046

023610
023414
023416
023420
023424

104421
000003
01741
005001
013700

9-FEB=-79

;DO DROF UNIT

ENDINIT

EMY

ENDMOD

($IN]T

————

s s

ot
—

N =OVOoD
~,

NS
WNN

CIRLLAC RLO1/2 DRIVE (P1
INITIALIZATION SECTION

023562
023562
023562

023564
023564
023564

023566

023566
023566
023566
023570

023570

13 023572

MACRO v03.01 9=FEB=79 19:41:44 PAGE
BGNMOD

000240

104012

NOP

L10010:

BGNMOD

000240
104055

CLNCODE
BOGNCLN

L 100112

ENDCLN

Em1
ENDMOD

($CLEAN

DRPCODE
BGNDU
NOP
ENDDU

EMT
ENDMOD

($DU

SEQ 0047

SEQ 0048

.SBTTL GLOBAL SUBROUTINES SECTION
BGNMOD
GLBSUB

023572

sROUTINE TO PERFORM OVERWRITE
sCALL:
RS ,0VWPER
JSR
SECTORS T0 WRITE FORWARD
SECTORS TO WRITE REVERSE

N
=00

i
i
ot it

il e

WS S OOVONO VST WN

PORURU NI RO R

9=FEB=79 19:41:44 PAGE

023572
02357¢
023576
023600
023602
023604
023610

003020
003016

MOV
MOV

RO,=(SP)
R1,=(SP)
R2,=(SP)
R3,-(SP)
RO
(RS)+,FORSK
(RS)+ ,REVSK

002714

MOV
MOV

#OVWTRK
,R1
(R1),R2

;RO _HAS COUNT IF RO<S5.
;USE TOP SURFACE, IF RO>S.
;USE BOTTOM SURFACE, IF RO>1
;DONE.
;:GET START OF LIST OF TRACKS
:GET POINTER TO TRACK

sNO,

;CLEAR CYLINDER/HEAD FOR

: TOP/BOTTOM
: TOP, BRANCH

CVWPER: MOv

MOv
MOV
MOV

023614
023620
023622
023626

(LR

1%:

177777

023630
023634
023640
023644
023646
023652
023656
023662
023666
023672
023676
023702
023704
023712
023716
023722
023726
023734
023736
023744
023746
023754
023760
023764
023770
023774

005037
005037
020027
002402
005237
004537
005037
051237
004537
013703
004537
000034
012737
004537
004537
005037
022737
001004
052737
000403
052737
004537
005037
005037
051237
004537

024000
024004
024010
024012
024020
024024

013703
004537
000034
012737
004537
004537

024030
024032

005721
005200

003014
003012
000005

CLR
CLR
(MP

003012
025240
003014
003014
025240
003020
024054

017736
026164
026550
003014

2%:

BLT
INC
JSR
CLR
BIS
JSR

MOV

JSR
.WORD

003010

000001

002752

000377

003014

000777
025240
003014
003012
003014
025240

003014

MOV

50%:
51%:

JSR
JSR
(LR
(MP
BNE
BIS
BR
BIS
JSR
(LR
CLR
BIS

SURF
RS,SKCYL
cyL

(R2),CYL
RS,SKCYL
FORSK,RS
RS,WRSEC

28.

;SEEX TO PROPER CYLINDER
;SECTORS TO WRITE
;G0 WRITE SECTORS

RS,VEROW
RS.,VEROD

;SET FORWARD DIRECTION
;VERIFY OVERWRITE
;sVERIFY OTHER DRIVES DATA

50%

;RLOV?
:NO

#FWD,DIRC

cyL
#1,T.DRIVE

#377,CYL

51%
#777,0YL
RS,SKCYL
cyL

sSET 10 GO TO MAX (YL

sMAX CYL FOR RLOZ

sSEEK TO MAX CYLINDER ON DRIVE

REVSK,R3
RS,WRSEC

;SECTORS TO WRITE
:WRITE THEM

MOV

#REV,DIRC

RS ,VEROW
RS,VEROD

;SET DIRECTION
;VERIFY OVERWRITE
;VERIFY OTHER DRIVES DATA

181

(R1)+
RO

JACCOUNT

INC

28.

SEEK

;BOTTOM SURFACE
;SEEK TO CYLINDER

MOV

JSR
JSR

3%:

SURF
RO, #5

EXIT

;D0 ANOTHER SEEK

JSR
.WORD

003010

(R2) ,#-1

SURF
(R2),CYL
RS,SKCYL

JSR

003016
024054
017746
026164
026550

(MP
BEQ

;SAVE RO, R1, R2, R3

s INCREMENT TO NEXT TRACK
FOR

MACRO v03.01

CIRLLAD RLO1/2 DRIVE (P
GLOBAL SUBROUTINES SECTION

eyt

CZRLLAQ RLO1/2 DRIVE (P
GLOBAL SUBROUTINES SECTION

58 024034
gg 024040

020027
001267

61
62
63
64
65

012603
012602
012601
0126069
000205

024042
024044
024046
024050
0240%2

000012

MACRO v03.01

9=FEB=79

19:41:44 PAGE

13-1

SEQ 0049

(MP
BNE

RO,#10.
%

;DONE?
:NO, GO BACK

MOV
MOV
MCv
MOv
RTS

(SP)+,R3
(SP)+ ,R?
(SP)+ R
{(SP)+,RO
RS

;RESTORE REG.

SEXTT

CZRLLAO RLO1/2 DRIVE (PT

GLOBAL SUBROUTINES SECTION

MACRO v03.01 9-FEB=79 19:41:44 PAGE

;USED IN OVERWRITE TEST;ADJACENT CYLINDER TEST
;CALL
JSR
RS ,WRSEC

.WRD

:R3 HAS BITMAP OF

;R&

8 024054
9 024056

10 024060
11 024062
12 024066

13 024072
14 026076
15 0264100
16 024102
17 024106
18 0264114
19 024120

010046
010146

010246
012701
012702

016421
005302
001374

012701

012737
053702
006302
005337
001374
005737

024122
0264126
024130
024134
024136
0264142
024144
024146

001402
052702
052502
030103
001452

29 024150
30 024154
31 024162
32 024166
33 024172
34 024176
35 024202
36 024204
37 0264212
38 024220
39 024224
40 024230

005037
012737
010237
010237
042702
020227
003403
162737
012737
013702
004537
000012

024232
024236
024240
024244
024246

024246
024250
024252
024254

46 024256
47 024262
48 024264

;ROUTINE TO WRITE SECTORS

2
3

41
42
43
44
45

SEQ 0050

20
21
22
23
24
25
26
Sg

024264
024266
024270
024272

005737
001416
005737
007007

104464
000144
017756
020116

005237
000760

104463
000156
017756
020116

HAS

WRSEC:
003124
000200

000006

100000

000007
003014

2%:

120%:

003012
000100

003002
177600
003076
002760
177700
000047
000050
003124
002760
031360

3%:
6%:

003100

003076
003074

MOV
MOV

MOV
MOov
MOV

Mov
DEC
BNE
Mov

002750

DRIVE

68:

11%:

002766

MOV
BIS
ASL
DEC
BNE
187

BEQ
BIS
BIS
BIT
BEQ

:STARTING SECTOR

SECTORS TO WRITE

BUFFER

POINTER

RO,=(SP)
R1,=(SP)

R2,=(SP)
#BUF R
#128.,R2

PAT(RG),(R1)+
R2
2%
#100000,R1
#7,TEM
CYL,R2
R2

TEM
120%
SURF
3%
#HEAD ,R?
(R5)+,R2
R1,R3
5%

CLR
MOv
MOV
MOV
BIC
CMP
BLE
SuB
MOv
MoV
JSR
WRITE

HSFLG
#-128. ,BMP
R2,BDA
R2,TEMP
#177700,R2
R2,#39.
0%
#40.,BDA
#BUF ,BBA
TEMP ,R?2
RS, LDFUNC

TRAP
.WORD
.WORD
.WORD

TSERCODE
100
WRITI
ERR2

; SAVE RO
: SAVE R1

: SAVE R2
;WRITE PATTERN INTO
;MEMORY THAT WE

;WILL WRITE ONTO
;PACK FOR THIS
:DRIVE
;MASK FOR BIT MAP

:0, SKIP
;SET BOTTOM HEAD
;START AT SECTOR 28.
;WRITE THIS SECTOR?
:NO
:LOAD WORD COUNT
;LOAD DISK ADDRESS
:SAVE DISK ADDRESS

:LOAD BUS ADDRESS
;RESTORE DISK ADDRESS
;60 WRITE

187
BEQ
187

ERFLG
;ERROR IN WRITING
5%
:NO,OKAY
HSFLG
BNE
10%
ERRSOFT 100. ,WRIT1,ERR?

003002

10%:

INC
BR
ERRHRD

TRAP
.WORD
.WORD
.WORD

HSFLG
11%
.
110, ,WRIT1,ERRZ

TSERCODE
110
WRITI
ERR?

e—

CIZRLLAO RLOY/2 DRIVE CPT

GLOBAL SUBROUTINES SECTION

50 024274
51 024276
52 024300
53 024302

56 024304

55 024306
56 024310
57 024312

005202
000241
006001
103320

012602

012601
012669
000205

MACRO v03.01

9-FEB=79
INC

(LC
ROR
BCC

MOv
MOv
MOv
RTS

19:41:44 PAGE
R2
R1
4%

(SP)+ ,R2
(SP)+,R1
{SP)+,R0

&
14=1

SEQ 0051

sNEXT SECTOR
;CLEAR CARRY BIT
:NO GO BA(K

;REGISTERS AND EXIT

CZRLLAO RLO1/72 DRIVE CPT
=S OOWONOVES
W =O OO0
IS NN —

GLOBAL SUBROUTINES SECTION

005037
005037
012737
012701
012537
001003
005037
000205
012537
012537
012537
113700
012737

024400

010102

024402
024404

005300
001414

024406
024410
024416
024424
024426
0264434

005722
062737
022737
003366
162737
000762

27 024436
28 024442

021227
001002

177777

39 024444

000137

025112

32 024450
33 024454

005037
005037

003012
003014

35 024460
36 024464

005737
001403

003006

38 024466

052737

000001

40 024474

004537

025240

42 024500

011237

003014

44
65
46
47

025240
017736
002773

:g 024524

004537
012737
113703
000303

042703

000377

50 024530
g; 024536

022737
002003

000047

53 024540
54 024566
55
56 0264556
57 024560

162737
013737

000050
003122

004537
000000

024054

bt ot b

b it

h e

0264314
024320
0243264
024332
024336
024342
026344
024350
024352
024356
0264362
024366
024372

22
23
24
25

0265064
024510
024516
024522

003106
003006
000001
002130
002772

MACRO v03.01

SEQ 0052
ADJCYL:

003110

21%:
20%

002776
003112
003114
003116
002772
000020

9-FEB=-79 19:41:44 PAGE

1%:

2%:

003122

3%:

000042
000050

003122
003122

000050

003122

CLR

MOV
MOV

MOV
- BNE
CLR

‘

(R5)+,ADJLOC
1%
ADJDIR

1S THERE ONE?
JNO EXIT

ADJLOC,RO
#16.,STSEC

;GET OFFSET
;STARTING SECTOR IS 16

MOV

R1,R2

;GET START INTO R2

DEC
BEQ

RO
4%

sFOUND

(R2)+

: INDEX (R2)

MOVB
MOV

sYES, GET REST OF

INFO

;DOWN COUNT OFFSET

#36, ,STSEC
#40. ,STSEC
3%
#40.,STSEC
3%

sNO,

IT?

;BACYK

SECTOR

FOR NEXT

BNE

(R2) ,#-1

;LESAL TRACK?
;YES, CONTINUE

JMP

13%

:NO P.CK UP NEXT SET

CLR

SURF

sSET UP FOR OUTER TRACK

HEADO1

;WHICH HEAD?

CMP

CLR

TS1

cyL

BEQ

BIS

#1,SURF

JSR

RS,SKCYL

:SEEK TO OUTER TRACK

MOV -

(R2),CYL

;GET DESIRED TRACK

JSR
MOV
MOVB
- SWAB

RS,SKCYL
#FWD,DIRC
ADJLOC+1,R3
R3

#377,.R3

;SEEK TO IT
:SEEK DIRECTION
;GET SECTORS TO WRITE
;ALIGN 1T
;CLEAR OUT HIGH BYTE

003122

CMp
BGE

#39.,STSEC
14

:NO,

003122
024560

7%:.

SUB
MOv

#40, ,STSEC
STSEC,8%

;YES BACK T UP
;STARTING SECTOR

8%:

JSR .WORD

RS,WRSEC
n

;WRITE

003012

6%:

003010

FLAG

*PICK UP TRACK OFFSET

RS
(RS)+,ADJLCZ2
(R5)+,ADJLCS
(RS)+ ,ADJLCSG

1S1

5%:

#1,ADJUUT
#OUT10,R1

s | INSI DE/OUTSIDE TRACK
JII NIT TO TOP SURFACE
;STAR T OF TRACK LIST

RTS
MOV
MOV
MOV

ADD
CMP
BGT
SUB
BR
4%:

ADJTRK

HEADO1

BIC

:TOP,
;LOWER HEAD,

SKIP

SET

IT!

:OVER FORTY?

CONTINUE

SeCTORS

CIRLLAD RLOY/2 DRIVE CPT
GLOBAL SUBROUTINES SECTION

58 024562
59 024570
60 024574
024576
0246046
0264610
024612
024620
024626
02463¢

013737
004537
000000
013737
004537
000000
013737
062737
022737
002003

024636

162737

000050

024644

013703

003112

024650

013737

003120

024656
024662
024664
024672
024676
024700
024706
024712
024714
024722
0264724
024732

004537
000000
013737
004537
000000
013737
004537
000000
022737
001004
012737
000403

024054

024734

MACRO v03.01

024560
027076

024574

024574
027342

024610

003122
000010
000047

003120
003120
003120

9% :

024662

024676

024676
027342

0264712

0009001

002752

000377

003014

012737

000777

003014

024742

004537

025240

024746

011237

003014

94 024752

004537

012737
113703

025240
017746
c03115

024770
024772
024776

000303
042703
013737

000377
003122

025004
025010

004537
000000

024054

025012
025020
025024«
025026
025034
025040
025042
025046

013737
004537
000000
013737
004537
000000
013703
013737

025010
027076

025024

025024
027342

025040

025054

004537

024054

003116
003120

208%:

003120

024662
027076

0264756
024764

108%:

10%:

MOV
JSR
LWORD
MOV
JSR
LWORD
MOV
ADD
(mp

8%,108%
RS,VAJWR
O
108%,208%
RS,BSVWR
0
STSEC,SYSECT
#8.,STSECT
#39,,STSECT

15-1

SEQ 0053
SVERIFY

THIS WRITE

sGET OTHER SECTORS TO WRITE
;8 SECTORS GONE BY
:GONE PAST 407

8GE

sNO,

SUB

#40.,STSECT

JYES BACK T uP

MOV

ADJLCZ2,R3

;GET SECTORS TO WRITE

MOV

STSEC1,10%

sSTARTING SECTORS

RS,WRSEC

;WRITE

108,110%
RS,VAJWR

;VERIFY

JSR

OKAY

SECTORS

.WORD

LWORD

JSR
.WORD

RS5,BSVWR
0

BNE
MOV
BR

77%
#377,CYL
88%

77%:

MOV

#777,0YL

88%:

JSR

RS,SKCYL

MOV

(R2),CYL

:SEEK BACK TO PROPER TRA(K

JSR
MOV
MOVB

RS,SKCYL
#REV,DIRC
ADJLC3+1,R3

;SEEK TO PROPER CYLINDER
:SEEK DIRECTION
;GET SECTORS TC WRITE

SWAB

BIC
MOV

R3
#377,R3
STSEC,11%

JALIGN IT
;CLEAR OUT HIGH BYTE

JSR

RS,WRSEC

;WRITE PROPER SECTOR

MOV
JSR

118,111%
RS,VAJWR

JVERIFY THIS WRITE

110%:

210%:

003010

025010
11%:

111%:

211%:

025060

9-FEB=79 19:41:44 PAGE

MOV
JSR

MOV
(MP

.WORD

LWORD

110%,210%

THIS WRITE

SVERIFY ADJ

CyL

#1,T.DKIVE

MOV
JSR
LWORD
MOV
MOV

1118,211%
RS,BSVWR
O
ADJLCA,RY
STISEC,12%

JSR

RS ,WRSEC

;GET

SECTORS

;GET SECTORS 10 WwRI'E
;WRITE

PROPER SECTORS

CIRLLAD RLO1/2 DRIVE C(PTY
GLOBAL SUBROUTINES SECTION

025060

000000

025060

025076
025104

013737
004537

025074
027342

025112
025116
025120
025124
025126
025132
025136
025142
025144

005737
001003
005237

003006

000000

000402

005037
062701
020127
002002
000137

027076

025212
025220

025222
025226
025230
15% 025232
15¢ 025236

005737
001403
005037
000421
005737
001004
005237
000137
005037
005237
023737

MOV

112%:

025110

212%:
13%:

003006
003006
000012
002272

14%:
99%:

024366

001402
000137
005725

001376
005037
000205

002756

18%:

003106

0246332
00277¢

15%:

16%:

003022
17%:

15<2

SEQ 0054

0
12%,112%

JSR
.WORD

RS,VAJWR
0

MOV

112%,212%

VERIFY

THIS WRITE

JSR
LWORD

RS ,BSVWR
0

;VERIFY ADJ CYLINDERS + 1

1S1

HEADO1

;WHICH HEAD WERE

BNE
INC
BR
(LR

14%
HEADO1
99¢
HEADO1

BGE
JMP

18%
2%

ADD
(Mp

END OF

#10.,R!
R1,#INNST

TRACK

LIST

FADJ

(LR

FADJ

187

ADJTRK

INC
JMp
(LR
INC
CMP

ADJTRK
21%
ADJTRK
ADJUUT
ADJUUT ,LUT

BNE

BEG
JMP
1S7

BNE

CLR
RTS

15%

17%

16%

17%
21%

(RS)+

17%

ADJDIR
RS

JNEXT
JNEXT

SET
SET

OF
OF

LIST

JEND OF

DOING?

TRACKS
TRACKS

TRACK LIST

;END OF

sNO GO BA(K

181

BEQ

002756

003106
024332
003106
003110
003110

.WORD

025074

025150
025154
025156
025162
025164
025170
025172
025176
025202
025206

9=FEB=79 19:41:44 PAGE

12%:

013737
004537
000000

025110

MACRO v03.01

GROUP OF

WRITES

;FIRST

SET?

sNO, CONTINUE
JYES, CLEAR FIRST
SEXIT
;sDONE BOTH INSIDE OQUISIDE
s TRACKS,

YES

16%

sNO, SET INSIDE FLAG
;GO DO INSIDE TRACK
;BACK TO OUTSIDE TRACK
;DONE WITH ANOTHER
;DONE TABLE FOR ALL uLT?
sYES, FOR EXIT
sNO, GO BACK FOR NEXT
;BUMP EXIT TC END OF
;TABLE

JEXIT

FOR

PROPER

RETURN

CZRLLAG RLOY/2 DRIVE

(PT

= O OVONONST WM

P
—

YO NN

GLOBAL SUBROUTINES SECTION

MACRO v03.07

9=FEB=79 19:41:44 PAGE

5
SEQ 0055

sROUTINE TO SEEXK TO A DESIRED CYLINDER

sCALL:

JSR

RS,SkCYL

SKL{YL:
90%:

MOV
JSR

R1,-(SP)
RS,LDFUNC

;SAVE R1
;GET PRESENT

1ST

ERFLG

JERROR

CLR

BIS

cyL,R1

sROUTINE HAS DESIRED CYLINDER IN LOC ""CyL"

025240
025242
025246

010146
006537
000010

025250
025254

005737
001104

025256
025260
025266

005001
012737

025272
025274

025300
025302
025310
22 025314
025316
025320
025322
025326

025332

053701

006301
005337
001374
042737

163701
103002
005401
000402
052701

052701
005737
001402
052701
010137
004537

031360
002766

000007
003014

000177
003064

025356
025362

005737
001041

002766

025364
025370
025372
025376
025400
025406
025410
025416
025422
025424
025430
025432
025436
025440
025444
025450

004537
000010
005737
001033

0313560

025452
025454
025656

104462
000014

0177217

002750

MOV
120%:

ASL
DEC

BNE
BIC

003064

1%:

031360

002750

000100
003064

#MK R

;SET MARKER BIT

:10P

#SIGN,RI
SURF

POSITIVE

JNEGATE
:SET

FOR

SET DIRECTION

FORWARD

BIS

#SKHS,RI

JSR

RS.,LDFUNC

;EXECUTE SEEK

187

ERFLG

;ERROR?

JSR

RS,LDFUNC

JVERIFY POSITION?

R1,BDA

5%
;{7,E.HP

220%

BEQ
BIS
(mMp
BEQ

4%
#HEAD ,R!
R1,E.MP
6%

ERRDF

12..SKER,ERRG

.WORD
.WORD

12
SKER

TRAP

;BOTTOM

;YES, SKIP

:VERIFY POSITION

#7,TEM
Cy. R
R1
TEM

SURF

TSERCODE

SEEK

sLOAD DIFFERENCE WORD

ERFLG

MOV
BIS
ASL
DEC
BNE
181

sCALCULATE DIFFERENCE WORD

BIS

003012

SELECTED CYLINDER NUMBER

sSKIP SETTING DIRECTION

BNE
Blg

220%:

THE

RDHDR
1S1

000007
003014

JGET

BNE

003064

120%
#177 ,E.MP
R1

SEEK

000077

SKIP

R1
TEM

NEG

MOV

002766

FLAG SET

YES.,

s1F

181

3%:

POSITION

BEQ

000020
003076

#7,TEM

E.MP, R

BIS

2%:

SuUB

BCC

000004
000001
003012

000006

025452

BNE

00275C

025336
025340
025344
025350
025354

062737
005001
012737
053701
006301
005337
001374
005737
001402
052701
020137
001414

RDHDR

JSEEXR ERRUA

CIRLLAD RLOY/2 DRIVE (PY

GLOBAL

SUBROUTINES SECTION

0256460
22 025462
57 0256466
025466

025470
025672

025674
58 02%76
59 025%02
60 025504

020524
000137
1044672
000015
017667
020464
000137
012601
000205

MACRO v03.01

16=1

SEQ 0056

025242
5%:

025242

9=FEB=79 19:41:44 PAGE

.WORD
JMP

ERRO
9u%

ERRDF
TRAP
.WORD
.WORD
.WORD
JMP

13, ,FUNERR,ERRS ;FUNCTION ERROR
I%ERCODE

MOV
RS

FUNE PR

ERRS
90%

(SF)+,R1
RS

sCANT
sEXLY

GET

THERE

IN SEEK

CZRLLAGC RLO1/2 DRIVE (P
GLOBAL SUBROUTINES SECTION

MACRO v03.01

i
i
i
-

POV NN

O—-=00O0O0O00CO

746

746
746
746

REGDMP:

003100
003076
00307«
003072
021464
000005

EMT

ADD
PRINTB

003064
003062
003060
003056
021545
000005

MOV
MOV
MOV
MOV
MCv
MOV

MOV

EMT

ADD

003056

000000
00013
000004
000004
003072
000200

000004
003072
003072
00C000
000000

000006

003000

Bl
BEQ

2%:

003000
021630
000002

062706
000207

000006

JSR

PRINTB
MOv
MOV
MOV
MOV
MOV
MOV
MOV

00001¢

000014
040000

VNE W =000~

025540
025542
025546
025546
025552
025556
025562
025566
025572
025576
025600
025602
025606
025614
025616
025622
025630
025636
025644
025652
025660
025662
025670
025670
025674
025700
025704
025706
025710
16 025714

[o X e B
el
PO ONUNDIWNIWNWN
N
OO NN~N~N~N
Pt
il
P ol o
sfooooccroromr

025532
025536

19:41:44 PAGE

;ROUTINE TO PERFORM REGISTER PRINTOUT DUMP

sCALL:

OCOO0O0O0OOO0

2
3 025506
025506
025512
025516
025522
025526

9=FEB=79

MOv
MOV
MOV
BIS
MOV

BIT

BEQ

BMP,=(SP)
BDA,=(SP)
BBA,-(SP)
BCS,=(SP)

#ERM12,-(SP)
#5,-(SP)

SP,RO
($PNTB

"4 ,SP
WERM13,E.CS,F.BA,E.DAE.MP

E.AP,=(SP)
E.DA,=(SP)
E.BA,=(SP)
£.C5,=(5P)
#FERM13,-(SP)
#5,-(SP)

SP,RC
($PNTB

#14,5P
#BIT14,E.CS
1%

(SR(R4) ,R3

#13,DA(RY)
¥4 ,BCS
DSB(R4) ,BCS

BCS,CS(R3)

#200,CS(R3)

MOV
PRINTB
MOv
MOV
MOV
MOV

MP(R3) ,DRSTAT

ADD
RTS

#6,SP
PC

EMT

1%:

PC,REGDMP
#FRM12,BCS,RBA,BDA,BMP

#FRM14,DRSTAT

DRSTAT,=(SP)
#FRM14,=(SP)
#2,-(SP)

SP,RO
($PN1B

SEQ 0057

026046
026050
026052
026054
026056
026060
026062

SEQ 0058

0
O
0
O
0
0
0
O

005201
062702
020327

JENTER WITH RO = SECTOR REQUEST
SEXIT WITH RO = ADJACENT CYLINDER DRIVE INFORMATION FOR SECTOR
JEXIT WITH RO = 0 IF SECTOR REQUESTED IS NOT IN BUFFER MAP
LML 1t
JSR RS,RSADJS
.WORD
0
JRETRIEVE SECTOR INFO.
JSR RS,RSADJS
SCALL 2:
LWORD
1
;STORE SECTOR INFO.

RSADJS:

177700
002774
000001

002334
000020
002772

BIC

MOV
MOV
MOV

1%:

ADD
ADD

(mp

BLT

000050

020003
001413
020327

010412
011200

012602
000205

2%:
n:

SUB
BR
MOV
(mMpP
BEQ
151

000047

000050

005000
000405

MOV
(MFB

BEQ
INC

000060
000042
000050

000030

MOV
MOV
MOV

002774

4%:

5%:

6%:

7$:

INC
(mp
BLE
SUB
DEC
BNE

(LR
BR
1S17
BEQ

MOV

MOV
MOV
RTS

R1,=(SP)
RZ2,=(SP)

R3,=-(SP)

#177700,R0
(RS)+ ,ADJFLG
f LRI
#SECBUF ,R?
#6.,R3
ngLOC,RI

sSAVE SECTOR BITS
;SAVE RETRIEVE/STORE FLAG
;START WITH TRACK (N=2)

R1
#48. ,R?
#3,.,R3
R3,#40.
1%
#40, ,R3
1%
¥4, R

; INDEX TRACK REFERENCE
JUPDATE BUFFER TO NEXT TRACK REF,
;UPDATE SECTOR START FOR NEXT TRA(K

RO,R3
5%

(R2)+

R3
92.159

;START OF 24X5 BUFFER
;SECTOR 16 START FOR (N=2)

;CHECK

TRACK

INDEX

TRACK

2
;SET COUNTER FOR 24 SECTORS
:COMPARE SECTOR TO SECTOR TABLE

:YES,STORE OR RETRIEVE

SECTOR

sINDEX SECTOR COUNT
:COHPARE SECTOR COUNT

FOR <40

INFO

INDEl SECLST BUFFER IN WORD FORMAT

#40.,R3
R1

1%
RO
7%
AgJFLG
6

R4, (R2)
(RZ) RO
(SP)o R3
(SP)O,RB
(SP)+ R!
RS

JKEEP SECTOR COUNT<4D
sPASSED 24 SECTORS?

;s COMPARE NEXT SECTOR
sSETUP RO FOR EXIT

EXIT ROUTINE,SECTOR NOT
;FLAG=0 FOR RETRIEVE

FOUND

;STORE DRIVE INFO, INTO BUFFER
sSAVE DRIVE INFO, INTO RO FOR ExI?

JEXIT
S

40
41
42
43
46
45
a6

rorNorO PONRUNY

025754
025756
025760
025764
025770
025774
025776
26 026002
27 026004
28 026010
29 026012
30 026014
31 026016
32 026020
33 026024
34 026026
35 026032
36 026034
77 026036
38 026040
39 026042

9-FEB=79 19:41:44 PAGE

;ROUTINE TO STORE OR RETRIEVE ADJACENT CYLINDER SECTOR DRVE
; INFORMATION FROM THE 24X5 "'SECLST'' BUFFER.

02571¢
025720
025722
025724
025730
02573
025740
025744
025750

MACRO v03.01

b ettt

WS LATM = OOWONO NS

b et et e

W= OOON
NS NN -

CIRLLAD RLOY/2 DRIVE (PT
GLOBAL SUBROUTINES SECT] ON

L 1 LW o W TR
—

~ = OOVOYO
NS W
2O OO N

N NN
—

CZRLLAD RLOY/2 DRIVE (P
GLOBAL SUBROUTINES SECTION

MACRO v03.01

9<FEB=79

19:41:44 PAGE

;ROUTINE TO SET DRIVE

010146

026066
026072
026074
026100
026104
026106
026110
026112
026114
026116
026120
026122

1627C0
100002
062700
012701
005700
001403
005300
005721
000773
010411
012601
000205

23
24 0261264
25 026126
26 026132
27 026134
28 026140
29 026144
30 026146
31 026150
32 026152
33 026154
34 026156
35 026160
36 026162

S
SEQ 0059

IN SECTOR L1ST

JSR

RS, SETLST

;RO WAS SECTOR

SETLST:

MOv

R1,=(SP)

;SAVE

SUB
BPL

#28..R0
3%

;START

FSECLST,RY

;BEGINNING OF

000034

000050
002274

;CALL:

;DRIVE GOTTEN FROM R4
026064

ADD

#40. RO

151
BEQ
DEC

RO
2%
RO

3%:

MOV

2%:

BR
MOV

181

MOV
RTS

(R1)+

%
R&, (R1)

(SP)+ ,R1
RS

LIST

SECTOR LIST

;FOUND SECTOR?
;BRANCH IF YES
;DECREMENT SECTOR
SNEXT

ENTRY

IN LIST

.60 BACK
:STORE DRIVE BITS
;RESTORE

IN LIST

;ROUTINE TO LOCATE DRIVE THAT WROTE SECTOR LAST
;CALL:
JSR
RS,.FNDDRy
;RO-CONTAINS SECTOR
;ON EXIT RO=-DRIVE
010146
162700
100002
062700
012701
005700
001403
005300
005721
000773
011100
01260
00020%

000034

000050
002274

FNDDRV:

MOV

R1,=(SP)

3%:

MOV

ADD

#40. R0

SuB
BPL

;SAVE

;START

LIST

AT O

#SECLST,R!

;START OF

BEQ
DEC

2%
RO

JYES, GET DRIVE #, ExIT
:NO, DOWN COUNT SECTOR

MOV

(SP)+ RI

181

’%:

#28.,R0
3%

MOV

RTS

(R1)+

sFOUND

JNEXT

LIST

SECTOR?

ENTRY

;G0 BACK

(R1),RO

;GEY

JEXTT

DRIVE

;RESTORE

IN LIST

BUFFER POINTER

CIRLLAD RLOY/2 DRIVE (P
GLOBAL SUBROUTINES SECTION

MACRO v03.01

9-FEB=79 19:41:44 PAGE

;ROUTINE

;CALL:

;

9 026164
10 026166
026170

12 026172
13 026200

}g 026204

16
17
18
19

20
21
22
gz

S
SEQ 0060

THAT THE OVERWRITE DID ACTUALLY OVERWRITE

:PREVIOUS DATA ON THE PACK.

[

TO VERIFY

026212
026220
026226
026234

010046
010146

010246

012737
012701

VEROW:
003024

016437

00003«
100000

000006

003030

012737
012737
042737
053737

177600
0031264
000077
003024

003100
003074
003076
003076

JSR

(MECK.

IS LOADED PRIOR

RO,=(SP)
R1,=(SP)

MOV
MOV

#28. ,SECT
#100000,R1

:BIT

MOV
MOV
BIC
BIS

#-128. ,BMP
#BUF ,BBA
#77,BDA
SECT,BDA

;SET UP READ-ONE SECTOR
:BUS ADDRESS
:CLEAR QUT SECTOR BITS
:SET SECTOR

:ERROR
:NO CONTINUE

R2,=(SP)

PAT(R4),GDATA

:GET PATTERN FOR THIS DRIVE

030103
001521
004537
000014

25 026254
S? 026260

005737
100107

003056

1S1
BPL

E.CS
4%

28 026262
29 026266
30 026270
31 026276
32 026304
33 026312
34 026314
35 026322
36 02632¢

005737
001412
012737
016437
016437
000415
(12737
(013700
004537

002754

TS1
BEQ
MOV
MOV
MOV
o
MOV
MOV
JSR

FOWR
:INITIAL WRITE
21%
:NO
#INITWR,REASON
:SETUP INITIAL WRITE OF SECTOR
CSR(R&) ,LSTCLR
DSB+1(R&),LSTDRY
22%
#OVMES ,REASON
;SET MESSAGE FOR OVERWRITE
SECT,RO
:FIND DRIVE THAT LAST WROTE
RS,FNDDRV
:SECTOR

38 026340
36 026346
026346
026350
026352
026354
40 026356

116037

104462
000015
017623
020304
005037

MOVB
ERRDF
TRAP
LMORD
.WORD
.WORD
(LR

DSB+1(RO),LSTDRV
;GET THE DRIVE
13, ,0VWER,ERR4
;PRINT ERROR
T$ERCODE
13
OVWER
ERR4
WCOUNT
;CLEAR BAD WORD COUNT W/IN SECTOR

4% 026372

023712

(MpP

GDATA, (R2)

4i 026362
2 026366

&4 026376
45 026400
46 026404

0264064
026406
026412
026416
026422
026426
026430

016037

005037
012702

001417
005237

011246
013746
013746
012746
012746
010600
104017

031360

017213
000000
000005

002764
002762
003026

017462
003024
026124

002764

000005

003026

000000

003034
003036
003124

003030
003034

003030
003036
021257
000004

21%:

002762

MOV

22%:

i%:

CLR
MOV

BEQ
INC
PRINTF

MOV
MOV
MoV
MOV
MOV
MOV
EMY

R1,R3
5%
RS,LDFUNC

026242
026244
026246
026252

T? 026332

BIT
BEQ
JSR
READ

:SAVE

THf

SECTORS T0

MOV
MOV

MOV

2%:

USES R3 AS BIT MAP OF

WRITING SECTORS.

MOV

1%:

RS,VEROW

:D0 WE READ THMIS ONE?
:NO, BRANCH
:READ

CSR(RO) ,LSTCLR

;GET

SECWRD
#BUF ,R2

;CLEAR WORD IN SECTOR
:GET BUFFER START

IT'S CSR

:1S DATA CORRECT?

31
sYES CHECK NEXT
WCOUNT
sNO ACCOUNT FOR
#FRMB,SECWRD,GDATA,
(R2)

(R2),=(SP)
GDATA,=(SP)
SECWRD,=(SP)
#FRMB,=(SP)
#4,=(SP)
SP,RO
(SPNTH

S————

CIRLLAD RLOY/2 DRIVE (P1

GLOBAL

L7
48
49
50
51

SUBROUTINES SECTION

026432

MACRO v03.01

000012

026436
026440

0030%¢
003036

026444
026452

53 026454
026454
026460

31%:

000200

003034
021323
000002

026464
026470
026472
026474

003024
026064

58 026510
59 026514
60 026522
61 026524
62 026532
63 026534
66 026536

005237
023727
001003

003024
003024

000050

003024

026540
026542
026544
026546

SEQ 0061

187
INC
(mp
BNE

(R2)+
SECWRD

SECWRD,#128.
3%

:NO GO BAC(K

PRINTF
MOV
MOv
MOV

#FRM9,WCOUNT

;PRINT

WCOUNT ,=(5P)
#ERMG,-(SP)
#2,-(SP)

ADD

013700
004537

20=-1

#12,SP

EMT

000006

J_5

ADD

MOV

55 026500
56 026504

66
67
68
69

9=FEB=79 19:41:44 PAGE

SNEXT
JNEXT
;DONE WITH SECTOR?
SUMMARY

SP,RO
(SPNTF
#6,SP

MOV

SECT,RO
RS, SETLST

;SET SECTOR IN LIST TO THE
;CREDIT OF THIS DRIVE

SECT
SECT,#40.
6%

SNEXT

103225

INC
(mp
BNE
SUB
(LC
ROR
BCC

R
%

sCLEAR CARRY
JNEXT BIT
;1F CLEAR NEXT

012602
012601
0126C0
000205

MOV
MOV
MOV
RTS

(SP)+ R?

;RESTORE R2=RO, EXIT

162737
000241
006001

4%:

6%:

JSR

#60.,SECT

(SP)+ R
(SP)+ RO

SECTOR

CZRLLAO RLO1/2 DRIVE (P

GLOBAL SUBROUTINES SECTION

MACRO v03.01

9=FEB=79 19:41:44 PAGE

SEQ 0062

:ROUTINE

2
3

TO VERIFY

THAT

A DRIVE

JSR

RS, VEROD

USES R3 AS BIT MAP OF SECTORS 10

VEROD:

MOV
MOV
MOV
MOV

RO.=(SP)
R1.=(SP)
R2,=(SP)
#100000,R1

; SAVE RO=-R?

10
11
12
13
};

02655¢
026556
026562
026570
026574

010046
010146
010246
012701
012737
005737
001134

16
17
18
19

026576
026604
026612
026620

012737
012737
042737
053737

20 026626
g; 026630
23
26
25
26
27

030103
001103

100000
000034
002754
177600
003124
000077
003024

026632
026636
026642
026650
026656

013700
004537
016037
116037
016037

003024
026124
000000
000005
000006

29 026664
30 026670

004537
000014

031360

32
33
34
35

026672
026676
026700
026706
026706
026710
026712
026714

005737
100060
012737

003056

37 026716
38 026722
36 026726
40 026732
41 026736

005037
005037
012702
023712
001417

003034
003036
003124
003030

43 026740
44 026744

005237

003034

026744
026746
026752
02675¢
026762
026766
026770
026772

017515

003024

003100
003074
003076
003076

MOv
1S1

1%:

2%:

002762
003026
003030

MOv
MOV
BIC
BIS
BIT
BNE

#-128. ,BMP
#BUF ,BBA
#77,BDA
SECT,BDA
R1,R3
5%

MOV
JSR

MOV
MOVB
MOV

SECT,RO
;FIND DRIVE THAT WROTE
R5,FNDDRV
sSECTOR LAST
CSR(ROTSLSTCLR
;GET CSR OF DRIVE
DSB+1(k(),LSTDRV
.GET DRIVE
PAT(RO),GDATA
;GET PATTERN

JSR

RS.,LDFUNC

sREAD

181

E.CS

;ERROR?
:NO, NEXT SECTOR
;SET READ RECOVERY MESSAGE

TRAP

TSERCODE

LWORD

003030
003036
021257
000004
000012

3%:

FOWR

5§
#RECMS ,REASON
14. ,RECER,ERRS

;SET UP READ (ONE SECTOR)
;BUS ADDRESS
;CLEAR SECTOR BITS
;SET IN SECTOR BITS
;CHECK

THIS SECTOR?

:NO BRANCH

;REPORT

ERROR

.WORD
.WORD

RECER
ERR4

CLR
CLR
MOV

WCOUNT
SECWRD
#BUF ,R?

INC
PRINTF
MOV

WCOUNT
:ACCOUNT FOR ERROR
;PRINT ERROR
#FRMB,SECWRD,GDA TA,(R2)
(R2),=(SP)

MOV

#FRMB,~(SP)

(MP
BEQ

MOV
MOV
MOV

MOv

EMT
ADD

GDATA, (R2)
4%

GDATA,=(SP)
SECWRD,=(SP)
¥4 ,=-(SP)

SP,RO
CSPNTF
#12,5P

(WE

;BIT MASK FOR SECTORS
;START WITH SECTOR 28
;CHECK FOR FIRST OVERWRITE

BPL
MOV
ERRDF

002764 _

#28.,SECT

CHECK.
R3 I5 LOAD BY WRSEC
USE R3 COMPLIMENTED.

BNE

READ

104462
000016
017643
020304

011246
013746
013746
012746
012746
010600
104017
062706

CAN RECOVER ANCTHER DRIVE'S DATA,

TCALL:

8 026550
9 026552

K_5

;CLEAR BAD WORD COUNT
;CLEAR WORD W/]1 SECTOR
;START OF BUFFER
:DATA COMPARE
sYES, CHECK NEXT

CZRLLAD RLO1/2 DRIVE (PT
GLOBAL SUBROUTINES SECTION

46 026776

&7
48
49
50

027000
027004
027012
027014

005722

005237
023727
001347

003036
003G36

013746
012746
012746
010600
104017
062706

003034
021323
000002

027014
027020
0270264
027030
027032
027034

52
53
56
55
56
57
gg

027040
027044
027052
027054
027060
027062
027064

005237
023727
001002
005037
000241
006001
103244

60
61
62
63

027066
027070
027072
027074

012602
012601
012600
000205

MACRO v03.01

6%:
000200

000006
003024
003024

003024

000050

5%:

7%:

6%:

9-FEB=79 19:41:44 PAGE

151

INC
(MP
BNE
PRINTF

k..

(R2)+

SECWRD
SECWRD,#128.
3%
#FRM9,WCOUNT

21-1

JNEXT

;NEXT WORD

IN SECTOR

° ";DONE?
‘
:NO
;PRINT SUMMARY

;

MOV
MOV
MOV
MOV
EMI
ADD

WCOUNT ,=(SP}
#FRM9,-(SP)
#2,-(SP)
SP,RO
CSPNTF
#6,5P

INC
(mp
BNE
(LR
(LC
ROR
BCC

SECT
SECT,#40.
7%
SECT

sNEXT SECTOR

R1
1%

;NEXT BIT MAP

MOV
MOV
MOv
RTS

(SP)+,R2
(SP)+ ,R1
(SP)+ RO
RS

;RESTORE R2-RO, EXIT

SEO0 0063

VN WN =O0V00
O NS NN

CZRLLAO RLO1/72 DRIVE (PT
GLOBAL SUBROUTINES SECTION

SEQ 0064

;ROUTINE TO VERIFY THE ADJ. CYL. WRITE IS GOOD
;USES R3 AND WORD FOLLOWING CALL
;1F WRITE WAS GOOD,SECTOR WILL BE STORED IN MAP
sUSING RSADJS/.WORD 1

010046
010146
010246
012701
012502
005000
053700
012737

027126
027130
027134
027136
027142
027144
027150
027152
23 027154
26 027156
25 027164
26 027170
27 027174
28 027200
29 027204
30 027206
31 027214
32 027222
33 027230
34 027234
35 027240
36 027244
27 027246
38 027252
39 027254
40 027260
41 027262
027262
027264
027266
027270

006300
005337
001374
005737
001402
052700
050200
030103
001462
012737
010037
010037
042700
020027
003406
162737
162737
012737
005037
013700
004537
000014
005737
001416
005737
001007

N=O OOV

027076
027100
027102
027104
027110
027112
027114
027120

&2 027272
43 027276
44 027300

45
46
&7
4«8
49

nS5

MACRO v03.C1 9-FEB=79 19:41:44 PAGE 22

027300
027302
027304
027306

027310
027312
027316
027320
027322

1044064
000170
020003
020116

005237
000760

VAJWR:

(LR
BIS

002750

MOv

2%:

002750

003012
000100

3%:

4%:

177600
003076
002760
177700
000047

003100

000050
000050
003124
003002
002760
031360

003076
002760
003074

ASL

DEC
BNE

TST
BEQ
BIS
BIS

Bl
BEQ

MOV
MOV
MOV

6%:
10%:

002766

BIC
CMP
BLE
SUB
SuB

MOV

CLR

MOV

JSR

READ
18T

BEQ

003002

TST

BNE
ERRSOFT
TRAP

.WORD
.WORD
.WORD
INC

003002
11%:

104463
000202
020003
020116

010046
004537
000001
012600
005200

MOv

MOV
MOV
MOv

100000
003014
000007

MOV

025716

7%:

5%:

ERRHRD
TRAP

.WORD
.WORD
.WORD

MOV

JSR
. WORD

MOV

INC

RO,=(SP)
R1,=-(SP)
R2,-(SP)
#100000,R1

(RS)+,R2
RO
CYL,RO

:SAVE REGISTERS
;BIT MASK FOR CYLINDER
;STARTING SECTOR

#7,TEM

RO
TEM

#HEAD ,RO
R2.R0O

#-128. ,8MP
RO,BDA
RO, TEMP
#177700,R0
RO,#39.

#40. ,BDA
#40.,TEMP

#BUF ,BBA

HSFLG
TEMP,RO

RS.,LDFUNC

:READ FUNCTION

ERFLG
7%

HSFLG
11%

120.,READ1,ERR2
TSERCODE
120
READ1
ERR2

HSFLG

109

130.,READ1,ERR2

TSERCODE
130
READ1

ERR2

RO,=(SP)
?S.RSADJS

:STORE

(SP)+ RO

;RESTORE RO

ADJ.

CYL.

SECTOR

INFO.

50 027324
51 027326
52 027330
53 027332
5¢ 027334
55 027336
56 027340

000241
006001
103310
012602
012601
012600
000265

MACRO v03.01

9-FEB=79 19:41:44 PAGE

22-1

SEQ 0065
CLC
ROR

BCC

MOV
MOv

MOv
RTS

R1
6%
(SP)+ ,R2

(SP)+,R1
(SP)+ RO
RS

CZRLLAD RLO1/2 DRIVE CPY
GLOBAL SUBROUTINES SECTION

CZRLLAD RLO1/2 DRIVE (P

GLOBAL

SUBROUTINES SECTION

B_6
MACRO v03.01 9=FEB=79 19:41:44 PAGE 23
SEQ 0066

sROUTINE TO VERIFY THAT WRITE DID NOT DISTURB ADJACENT TRACKS

2
3
z

WRITTEN BY OTHER DRIVES.
sCALL
JSR RS,BSVWR
.WORD

JUSES ""ADJLOC'" TO GET

g
0273
02736
027350
027354
027360
02736¢
027370
027372
027376
027400

010046

000050

005337

002772
003014

123727
001412
105337

24 0274264
25 027430
26 027434
27 027440
28 027444
29 027450
30 027452
31 027456
32 027462
33 027464
36 027470
35 027476
36 027500
17 027504
38 027510
39 027514

004537
005237
105237
062716
021627
002407
162716
021627
002402
162716
123727
001412
105237
005237
004537
105337

.23 027420

40 027520
&1 027524
&2 027526

43 027532

0275%
027540
027542
027564
027550

BSVWR:

010146
010246
013746
013746
012546
123727
001455
162716
100002
062716

20 027404
21 027412
22 027414

46
5
&6
&7
48

CYLINDER OFFSET

sUSES R3 FOR SECTOR MAP, USES MAP AT ''SECBUF'' FOR INFO

9 02732

10
11
12
13
14
15
16
17
18
19

+1/=1

JSTARTING SECTOR

005337
005726
012637

012637

012602
012601
012600
004537
000205

003014
003012
002772

000003

000042

002772

000001

1%:

INAWR:

000050
060050
000005

1%:

002772
003014
027552
002772

003014

003012

003014

025240

CMPB
BEQ
DECB

BSEX]T:
NCHECK:

RO,=(SP)

R1,=(SP)
R2,=(SP)
CyL,=(sP)
SURF ,=(SP)
(RS)+,=(SP)
ADJLOC,#3
BSEXIT
#34.,(SP)
1%
#40.,(SP)

sSAVE REGISTERS

;GET STARTING SECTOR
sON MIDDLE TRA(CK???
;YES, THEN NO CHECK
sSETUP SECTOR START
;1F POSITIVE OKAY ELSE FIX
JEIXIT

ADJLOC, #1
INAWR
ADJLOC

;ON OQUTER LIM]IT?22?
JYES,SKIP CHECK
;OUTER ADJ TRACK

JSR
INC
INCB
ADD
(MP
BLT
SUB
CMP
BLT
Sus
(MPB
BEQ
INCB
INC
JSR
DECB

RS, CHECK
CyL
ADJLOC
#58.,(SP)
(SP) ,#40,
1%
#40., (SP)
(SP),#40.
1%
#40.,(SP)
ADJLOC,#5
BSEXIT
ADJLOC
cyL
RS,CHECK
ADJLOC

;60 CHECK ADJ SECTORS
;FIX BACK

DEC
187
MOV

CyL
(SP)+
(SP)+,SURF

MOV
MOV
MOV
JSR
Rio

(SP)+ ,R?
(SP)+,R1
(SP)+,RO
RS,SKCYL
|

DEC

027552
003014
002772
000104
000050

000050
002772

MOV

MOV
MOV
MOV
MOV
MOV
(MPB
BEQ
SUB
BPL
ADD

MOV

CyL

:INNER SECTOR START
WITHIN LIMITS??2?
;YES, OKAY
;FIX SECTOR

s INNER LIMIT?2?
sYES,SKIP (CHECK
FIX FOR INNER
2
;G0 CHECK ADJ SECTORS
FIX BACK
:THROW OFF

(SP)+,(YL

;SEEK BACK
sRETURN

SECTOR

FOR QUISIDE

———

CIRLLAD RLOV/2 DRIVE C(P1

SUBROUTINES SECTION

N N

N=OOVONT
NS W
=0 OO

NAY —

GLOBAL

MACRO v03.01

0275%2
027556
027562
027564
027570

027576

027600
027604
027606
027612
027614
027620
027624
027626
027630
027632
027636
027642

012701
004537
0050C2
053702
012737

006302

005337
001374
005737
001402
052702
056602
030103
001452
010200
042790
020027
002404

100000
025240
003014
000007

SEQ 0067

&0 027724

042737

177700

104463
000156
020003
020116

45 02775%

005202

&9 027764

000050
000050
025716

6%:

000241
006001
103320

000205

#100000,R!

;SECTOR MASK

(LR
BIS

R2
cyL,R?

;CREATE

JSKR

003076
177600
031360

#7,7EM
R?

1ST

SURF

DEC
BNE

MOV

R2.RO

JSET

IN SECTOR

sTHIS SECTOR

sNO, NEXT
;COPY

IN LIST?2?2?

SECTOR

JSR

RS5,RSADJS

SUB

;FIX

SECTOR

JWAS

1122

R2,BDA

;LOAD DISK

1§41
BEQ

ERFLG
5%

;WAS READ GOOD

MOV
MOV
MOV

R3,-(SP)
R2,SECT
RO,R3

BIC
ERRHRD

#177700,SECT
140, ,ADJTXT,ERR3

.WORD

READ

TRAP

LWORD
.WORD

#40. ,R2

#-128. ,BMP
RS,LDFUNC

:NO

SECTOR PREVIOUSLY WRITTEN

sLOAD W(
;LOAD

140

ERRHRD

110, ,READT,ERRZ

(SP)+,R3

TSERCODE

LWORD
.WORD

110
READI

ENE

sNEXT

JSHIFT MASK

.WORD
L

ROR

Bi(

RTS

ADDRESS

ADJTXT

ERR3

TRAP

sFIND IF

TSERCODE

.WORD

MOV

5%:

;NO

#177700,R0
sONLY SECTOR LEFT
RO,#40. ;SECTOR OKAY???
6%
:YES
#40. RO

MOV
JSR

003074

ADDRESS

BIC
Cmp
BLT
SUB

MOV

002766

#HEAD,R?
2(SP),R2
K1,R3

BEQ

:GET TO DESIRED CYLINDER

TEM
2%

BIS
BIS
BIY

BEQ
003100

RS,SKCYL

MOV
ASL

151

104463
000214
020030
020156
012603

027744
027746
027750
027752

46 027756
&7 027760
“B 027762

3%:

A Y

177700
000050

0C3024

MOV

3tQ

000100
000002

010346
010237
010003

42 027742
0% 027744

2%:

003012

36 027714
37 027716
38 027722

0277%
027740

002750

162700
162702
004537
000000
005700
001433
010237
012737
004537
000014
005737
001420

0277%2
027732
02773%

(HECK:

ERR?

<1
RS

————

;ROUTINE TO VERIFY AN ADJACENT SECTOR
s CALLED FROM BSVWR

23 027644
24 027650
25 027654
26 027660
27 027662
28 027664
29 027666
30 027672
31 027700
32 027704
35 027706
36 027772

9=FEB=79 19:41:44 PAGE

SECTOR

MACRO v03.01

POPOUPUNUN
o et bt b e s el et e

FANNVNOOVOINOVNTWNV=0OO0®C

S NN
—

CIRLLAD RLOY/2 DRIVE (PY
GLOBAL SUBROUTINES SECTION

9-FEB=79 19:41:44 PAGE

D_6
25

SEQ 0068

;ROUTINE TO MERGE BAD SECTOR FILES

;ENTRY

INTO THIS ROUTINE WILL OCCUR AFTER THE "'SERNUM'' ROUTINE

;1S PERFORMED. THE FACTORY BAD SECTOR FILE wILL BE LOCATED IN

;FIRST 400(8)

LOCATIONS.

;THIS RCUTINE WILL STORE

THE FIELD BAD SECTORS INTO THE NEXT

;400 LOCATIONS AND THEN MERGE THE FACTORY BAD FILE

;WITH THE

FIELD BAD FILE.

;FACTORY BAD AT

BUF

;FIELD BAD AT BUF

027766
027770
027772
027774
030002
030010
030012
030020
030022

MERGE
:

030030
030036
030042
25 030044
030050
030052
030060
030066
030070
030076

001357

030100
030106
0
0 114
0

0
0
0
0
0132
0
0
0144
0
0
0
0

;BUFFER START FOR FIELD BAD

R3,=(5P)

177724

003076

55%:

MOV

66%

177400

003100

66%:

MOV

#-256. ,BMP
RS,LDFUNC

077750

003076

022737
001353

177750

003076

012746
012746
010600

021657
000091

062706

000004

104022

003134
000176

100404

100403

#BUF +400,BBA
#1,T.DRIVE

003076

003076
002752

012221

;SAVE R1, R2, R}

077724

000004
000001

005721
005302
001373
000401
005741
012703
012702
012221

R1,=(SP)
R2,=(SP)

003074
002752

97%:

002766

000776
012701
012702
005721

512.

003524
000001

031360

104017

MOV
MOV
MOV
MOV
(MP
BNE
MOV

JSR
READ
181
BEQ
ADD

(MP
BNE
(MP
BNE

4«00%:

55%

#77724 ,BDA
#177724,BDA

(mp
BNE
PRINTF
MOV
MOV
MOV

EMT

999%:

98%:
1%:

ADD

BREAK
EMT
BR

MOV
MOv

181
BM]
181

ERFLG
98%

¥4 ,BDA

#1,T.DRIVE

000176
003534

2%:
1%:
6%:

#177750,BDA
97%
#ERM15
#FRM1S5,-(SP)

;YES;MERGE BAD SECTOR FILES
:TRY NEXT FIELD BAD SECTOR FILE

:NO,DO NEXT FIELD BAD SECTOR

#1,-(SP)

SP,RO
CEPNTF

¥4 ,SP

($BRK
999%
#BUF+10,R1
#126..,R2
(R1)+

;GET PAST ID ETC.
(MAX =

126

;SECTOR OR END
;END, GO GET FIELD

sREST OF SECTOR
sMAX REACHED
sNO, KEEP GOING

JYES, SKIP BACK UP
JBACK UP PAST TERMINATOR

MOv
MOv

#BUF+410,R?

MOV

(R2)#¢,(R1)

BM|

;TEST ERROR FLAG

400%
#77750,BDA
97%

DEC
BNE

PR
181
MOV

;LOAD READ FUNCTION

(R2)+,(R1)+
5%

:SET 126 MAX

sGET FIELD SECTORS
JMERGE AT END OF FACTORY
:DONE?

JNO, MERGE

REST

SECTOR

CZRLLAQ RLO1/2 DRIVE (PT
GLOBAL SUBROUTINES SECTION

52 030200
53 030202
5¢
55
5¢
57

030204
030206
030210
030212

005303
001373

012603
012602
012601
000205

MACRO v03.01

5%:

9=FEB=79 19:41:44 PAGE

DEC
BNE

MOV
MOV
MOV
RTS

R3
4%

(SP)+,R3
(SP)+ ,R?
(SP)+,R1
RS

6
25=1

SEQ 0069

; DONE
:NO, GO BA(K
:RESTORE
JEXTT

R3, R2, RI

NNNNNW
=
sy~

= OVOVONO
VN
WN = OO0 NN NS NN —

030214
030220
030224
030232
030234
030236
030240
030244
030250
030254
030260
030266
030266
030272
030276
030300
030304
030306
030312
030320
030322
22 030326
030334

o OCOO0O0O [=l=lelala)
—_
OO =y OON
— —
w YR NN O =N
~ OOV O~NUYWY
WWWWUHINIO
O WWW

CZRLLAOD RLO1/2 DRIVE CPTY
GLOBAL SUBROUTINES SECTION

030336

030342
030344
030352
030354
030356

51 030364

001003
005237
000402
005037
023727
001011
005237
022737
001002
062705
000205
023737
001001
000205
063737
000740

MACRO v03.01

003040

003050
000601

003044
003042
003052
003054
003044

FNDTRK:

002752

80%:

90%:

003048

030366
002126

003052
000001

000005

1%:

2%:
3%:

002752

000004
003046

003040

003042

003046

MOv
MOv

(MP
BNE
BR
(Mp

MOV
MOv

CLR
CLR

003054

003054
003054

9=FEB=79 19:41:44 PAGE

81%:
6%:

5%:

MOV

JSR
TST
BNE
INC
BR
(LR
(MP
BNE
INC
CMP
BNE

(RS)+,OFFSET

(R5)+,SURFACE
#1,T.DRIVE

HEAD

(SURFACE)

RS,FNDBSC

;1S TRACK IN BAD SECTOR FILE
JWAS T2
;YES, CLEAR TRKCNT
:NO, INDICATE GOOD TRA(CK
: CONT INUE

HDRFND

TRKCNT

TRKCNT,#5
4%

TRKFND
#1,1.DRIVE

;START

COUNT OVER

;FIND 5 TRACKS YET?

:NO, CONTINUE
;YES, EXIT WITH GOOC

81%

ADD

;GET

;CLEAR OUT FLAG FOUND
;CLEAR OUT TRACK COUNT
;GET FIRST TRA(K

RTS

;GET INCREMENT/DECREMENT

TRKFEND
TRKCNT
FRTTRK,PRSTRK

¥4 ,RS

RTS

SEQ €070

80%

90%
(RS)+,(RS)+
(RS)+,FRTTRK
(R5)#+ ,LSTTRK

ADD

(MP
BNE

F_6
26

PRSTRK ,LSTTRK

RS
OFFSET,PRSTRK
%

;ARE WE DONE?

sNO,

KEEP LOOKING

JEXIT WITH NOT FOUND
JNEXT

TRACK

FLAG

005721
005202
020227
001355
012601
012602
000205

030456
030462
030466
030470
030474
030500
030502
030504
030506
030510

013701
005737

SURFACE,(R1)
4%

—

;UPPER HALF OF WORD
;CORRECT SURFACT

=(R4)

;OET FOUND

181
INC
(mp

(R1)+
R2
;
R2,#252.

sNEXT WORD

2%:

MOV
MOV
RTS

(SP)+ ,R1
(SP)+ ,R?
RS

;RESTORE R2, R1, EXIT

FIXCYL:

MOV

PRSTRK ,R1
OFFSET
%

3%:

000374

—
—

——

HDRFND

—

sCYLINDER CORRECT?

BR
INC
BR

4%:

—
—
—

sNO,

(RG)+

—

PRSTRK, (R1)+

—

;1F MINUS AT END, EXIT

BNE

;ACCOUNT

;DONE?
;NO,

FOR

KEEP

CHECKING

ST
PN
SN
NN

WD/PER

THEM 1

;GOING STORE AWAY 5 TRACKS

;STORE

FOUR

SN AN

1T UP BY

RTS

;BACK

INC
DEC
BNE

"5 ,R2
Ri,(RD)+
R1
RZ

2%:

MOv
MOV

:IN WORD, BRANCH

1$:

#4 ,R1

;GET TRACK WHICH IS GOOD
;WHICH WAY WERE WE LOOKING

A~~~

012702
010120
00520°
005302
001374
000205

000004
000005

151
BM]
SUB

——————

100402
162701

003046
003040

030454

FILE

—

020436
030440
030442
030446
030450
030452

002126

;EsggP FCR BEGINNING OF

(R1)

——

030434

1STB

#BUF+10,R1

—

003050

151
BMI
(MP
BNE
1STB
(MPB
BEQ

JINITIALIZE fLAG

:SAVE R1, R?

—

003046

MOV
MOv

HDRFND
R1,=(SP)
R2,=(SP)

—

1%:

105744

000403
005237
000405

CLR

MOV

NO VN
VR WN =00

001402

003134

FNDBSC:

105724
123711

002126

—

10042?

023721
001011

IN FILE

=000

005711

TRACK

005037
010146
010246
012701

TO FIND BAD

SEQ 0071
—

;ROUTINE

PORUNRNUPURO
N
b s ad il b o s i et

MACRO v03.01

YER

S WNRY —

CIRLLAD RLOY/2 DRIVE (PT
GLOBAL SUBROUTINES SECTION

6_6
9=FEB=79 19:41:44 PAGE 27

;ROUTINE 10 GET SERIAL NUMBER

;CALL

JSR

RS, SERNUM

SERNUM:

MOV

#13,8BDA

SEQ 0072

000001

13 030552
14 030554
15 030560

001003
020027

17 030566

001443

16 030562

001446
020027

18 030570

042700

19 030574

030602
030604
030610
30612

001003
012701
000402
012701

25 030616
26 030620

160001
010137
052737
004537
000006

077700

77700
00010C

0000CY

£E.MP,RO

:GET THE HEALER

(MpP

#77,R0

#1,T.DRIVE

23%:

077600

32%:

;CLEAR SECTOR BITS

23%
RO,#77700

BEQ

2%
RO,#177700
2%

(Mp

#1,71.0RIVE

(MP

BIC

002752

177600

BNE
(MP
BEG

81C

#100,R0

BNE
MCV
MOV

32%
#77600,R1
338
#177600,R1

SUB
MOV
BIS
JSR
SEEK

RO,R1
R1,BDA

MOV

:CLEAR HEAD

31
32
33
34
35
36

030644
030646
030652
030660
030662
030666

;g 03067C

39 020674

40 030676
41 030704
42 030706

004537

000010
013700
022737
001003
022700
000402

022700
103321

003076

031360
003064
000001

JSR

002752

077700

177790

42%:

022737
00'004
012737

000001

002752

077700

003076

45 030716
46 030724
47 030732

012737
012737
012737

177700
003124
177400

003076
003074
003100

49 030744
56 030746

000014
005737

43 030714

48 0707640
51
52
5%
54

0307%2
03075
030762
030770

55 030772

5¢ 031000
57 031002

000403

004537
001421
062737
022737
001005

022737

001351
000453

031360
002766

000004
00000

003076
002752

077724

003076

(3%:
2%:

RDHDR
MOV
CMP
BNE
CMP
BR

(MpP

BHIS

:SET UP DIF WORD
;SEEK IN, HEAD 1
:SEEK

RS.,LDFUNC

:VERIFY POSITION

E.MP,RO
#1,1.DRIVE
42%
#77700,R0
43%

:GET HMEADER

#177700,R0
1%

(mp
BNE
MOV

#1,71.DRIVE
52%
#77700,BDA

MOV
MOV
MOV

#177700,BDA
#BUF ,BBA
#-256. ,BMP

RS.,LDFUNC

;READ

ERFLG

:TEST ERROR FLAG

RIS
52%:
97%:

#25,BDA
RS,LDFUNC

JSR

BEQ
ADD
(mp
BNE

(MpP

BNE
BR

97%

98%
#4,BDA
#1,1.DRIVE
62%

#77724,8BDA
97%
99¢%

AAINIANIAIALATI TN

30 030640

33%:

27 030624
28 030632
29 030636

003076
000025
031360

20
21
22
52

022737

002752

1%:

022737

;READ MEADER

12 030544

RS,LDFUNC

003064

030540

JSR
RDHDR

000077

013700

STATUS

042700

10 03053«

:GET

031360

RS, LDF UNC

GSTAT

004537
000010

JSK

8 030526
9 030532

003076

0000C4

031360

7 030524

000013

004537

012737

5 030512

& 030520

;

-1

19:41:44 PAGE

9=FEB=79

MACRO v03.01

CIRLLAG RLOY/2 DRIVE (PY
GLOBAL SUBROUTINES SECTION

:YES,COMPARE SERIAL NUMBERS
:NO,SETUP FOR NEXT FACTQORY BAD SECTOR

CIRLLAD RLO1/2 DRIVE (P
GLOBAL SUBROUTINES SECTION

S8 031004

59
60
61
62
63
64
65
66
67
68
69

001344
000446
012701
005737
100005
011137
016137
021137
001004
026137
001437

031060
031064
031070
031072
031076
031102
031106
031110
031112

013746
013746
011146
016146
012746
012746
010600
104017
062706

70 031060

02273%7

031012
031014
031016
031022
031026
031030
031034
031042
031046
031050
031056

C31116

72 031122
73 031126
74 031132

004537

004537
000137

031132
031136
031142
031144
031146

012746
012746
010600
104017
062706

031152

104022

75 031152

76 031156
77 031156

000776
000205

177724

MACRO v03.01 9-FEB=79 19:41:44 PAGE

003076

:
0031¢«
003102

98%:

003102
000002
003102

003104

000002

003104

003102
003104

62%:

1%:

4%:

000002
021007
000005
000014

031160

031260
030512

021657
00000?
000004

(MpP

#177724,8BDA

BNE
BR
MOV
151
BPL
MOV
MOV
(MP
BNE
(MP
BEQ

97%
99%
#BUF ,R1
SERNM1
3%
{R1),SERNTM]
2(R1),SERNM?
(R1),SERNMI
4%
2(R1),SERNM?
5%

MOV
MOV
MOV
MOV
MOV
MOV
MOV
EMT
ADD

SERNM1,=(SP)
SERNMZ2 ,-(SP)
(R1),=(SP)
2(R1),=(SP)
#ERM3,-(SP)
#5,-(SP)
SP,RO
CSPNTF
#14,5P

PRINTF

JSR

9G%:

1_6
28-1

JSR
JMP
PRINTYF

MOV
MOV
MOV
EMT
ADD

999% :

BRE AK

5%:

BR
RTS

EMT

SEQ 0073

sGET NEXT FACTORY BAD SECTOR
;REPORT ERROR
;COMPARE SERIAL NUMBERS
;HAVE WE GOT ONE TO COMPARE
;YES, BRANCH
;NO, CALL THIS ONE I7
:
s SERNUM OKAY
sNO, PRINT ERROR
:OTHER HALF OKAY
JYES, EXIT

WFRM3,2(Ri),(R1),SERNMZ,SERNMI]

RS,UNLOAD

RS,LOAD
SERNUM
WFRM1S

#FRM15,=(SP)
#1,-(SP)
SP,RO
CSPNTF
#4,5P
($BRK

999%
RS

JLET

OPERATOR

;PACK
:60 CHECK
:MESSAGE

CHANGE

AGAIN.

CIRLLAQ RLO1/2 DRIVE

GLOBAL

(PY

SUBROUTINES SECTION

MACRO v03.01

9=FEB=79 19:41:44 PAGE

;ROUTINE

;CALL

031166
031172
031176
031202
031204
031206
6 031212
7 031216

8 031222

9
10
11
12

13
16
15
16

17
8
19

016446
005045
156416
012746
012746
010600
104017
062706
012701
012700
056400
010074
032774
001406

031226
031232
031240
031242
031242

012700

031250
031252
031254
031256

005301
001367
000741
000205

031246

20
21
22 031260
031260
031264
031266
031272
031276
031302
031304
031306
2% 031312
24 031316
25 031322
26 031326
27 031332
28 031340

29 031342
031342
031346
30 031350
31 031352
52 031354
33
34 031356

104026

UNLOAD:

000000

104017

000C00

2%:

LOAD:

000005
020707
000093

000012

104026

BIT
BEQ
EMT
DEC
BNE
BR
RTS

#60. ,R1
#200,R0

;SETUP 60 SECOND TIMER

DSB(R4)
RO

RO,a(SR(R&)

#DRDY ,aCSR(R&)

#10.
#10.,R0
(SWTM

:CHECK DRDY FOR ZERO

;PACK

;WAIT

UNLOADED

SECOND

;HAS 60 SEC PASSED?

:NO, RETEST DRDY, CONTINUE WAIT
sYES, REPEAT MESSAGE C(ONTINUE WAIT

sRETURN WITH PACK

PRINTF

WFRM2,<B,DSB+1(R4)>,(SR(R4)
CSR(R&) ,=(SP)
-(SP)

MOv

CLR
B1SB

DSB+1(R4), (SP)

EMT

SP,RO
CSPNTF

MOV

BNE
WAL TMS

MOV

EM1
DEC
BNE
Hiv

3% :

SP,RO
CSPNTF

R5,LOAD

BIS

2%:

FERM1,=(SP)
#3,-(SP)

JSR

ADD
MOV
MOV

003000

DSB+1(R4), (SP)

UNLOADED

LOAD

MOV
MOV
MOV

005301
001367
000741
000205

BIS
MOV

MCvV

000000

012700

#ERM1,<B,0SB*1(R&)>,(SR(R4)
CSR(R4) ,=(SP)
=(SP)

WAL TMS

3%:

000010
000170
000200
000004
000000
000001

PRINTF

MOV

ADD
MOV
MOV

000012

062706
012701
012700
056400
010074
032774
001006

RS ,UNLOAD

EMT

;CALL

012746
012746
010600

JSR

MOV
MOV
MOV

;ROUTINE

016446
005046
156416

UNLOAD

(LR
B1SB

000005
020612
000002
000010
000074
000200
000004
000000
000001

SEQ 0074

5 031160
031160
031164

RT1S

#FRM2,-(SP)
#3,-(SP)

#10,5P

#120..R1
#200,R0

RO
DSB(R4)

RO,3CSR(R&)

#DRDY ,3CSR(R4)

#10.
#10..,R0

(SWTM

LOAD

;SETUP 120 SEC TIMER
sSETUP (ONTROLLER READY BIT

sSELECT DRIVE

CZRLLAO RLO1/2 DRIVE

(PT

GLOBAL SUBROUTINES SECTION

MACRO v03.01 9-FEB=79 19:41:44 PAGE

JROUTINE

:CALL

& 031360

010046

7 031366

005037

5 031362
6 031364

8 031372
9 031376

10
11
12
13
14

03140&
031412
031420
031426
031432

16
17
18
19

031444
031452
031460
031466

15 031436

20 031474
21 031476
031476
031502
22 031504
Sz 031506

2° 031510
26 031516
27 031524
28 031532
29 031540
30 031546
31 031554
031554
031556

010346
010146
016403
013763

LDFUNC: MOV

000000
003100

003076
003074
003072
000004
000031
000200
003072
000000
00020C
000200

012700
104027
005301
001367

000144

016337
016337
016337
016337
016337
016337

000000
000002
000004
000006
000006
000006

031560

031562
g% 021564

34 031566
35 031574

016337
016337

000000
000002

005737
100002
005237
005725
012601

003056

031602
031610
031616
031624

41
42
4%
46
45

031632
0316%
031640
031644
031646

46 031650
47 031652
43 031654

50 031656

016337
016337
016337
016337

012603
012600
000205

(LR

MOV
MOV

000006

000004
000002
003072

003072

000000
003072
000000
000000

1%:

‘

104462
0060322
017166
0204064
000425

36
37
38
Sg

MOV
MOV

002766

013763
013763
011537
056437
012701
052737
013763
016337
042763
032763

001034

LDFUNC

JSR

003056
003060
003062
003064
003066
003070

000004
000006
000006
000006

002766

2%:

003062
0C3064
003066
003070

6
SEQ 0075

RS.,LDFUNC
RO,=(SP)

R3,=(SP)
R1,=(SP)
ERFLG

{SR(R&) ,R3
BMP,MP(R3)

;CLEAR ERROR FLAG

:GET (SR
sLOAD MULTIPURPOSE

BDA,DA(RY)
BBA,BA(R3)
(RS) ,BCS
DSB(R&) ,BCS
#25..R1
#200,BCS
BCS,(S(R3)
CS(R3),BCS
#200,CS(R3)
#200,CS(R3)

MOV
MOV
MOV
MOV
MOV
MOV
ERRDF
TRAP
LWORD

(S(R3) ,E.CS
;READ ALL REGISTERS
BA(R3) ,E.BA
DA(R3) ,E.DA
MP(R3) ,E.MP
MP(R3) ,E.MP1
MP(R3) ,E.MP2
210.,CNTTOT,ERRS:CNTLR TIMEOQUT
TSERCODE
.
210

.WORD
BR

ERRS
4%

MOV
MOV

(S(R3),E.CS
BA(RY) ,E.BA

;READ ALL REGISTERS

151
BPL
INC
181
MOV
MOV
MOV
RTS

E.CS
3%
ERFLG
(RS)»
(SP)+
R

:ANY ERRORS?
JYES, GO SERVICE

BNE
WAITUS.
MOV
EMT
DEC
BNE

MOV
MOV
MOV
MOV

4%:
1%:

MOV
MOV
MOV
BIS
MoV
BIS
MOV
MOV
BIC
BIT

.MORD

003056
003060

ENDMOD

2%
#100.
#100.,R0
(SWiU
R1
1%

;LOAD DISK ADDRESS
;LOAD BUS ADDRESS
;GET FUNCTION TO LOAD
JSELECT BITS
;SET WATCHDOG TO 250MS

sLOAD FUNCTION
:CNTLR READY?

JYES, GO
sWALT 10 MILLISECONDS

(NTTOT

DA(R3) ,E.DA
MP(R3) ,E.MP
MP(R3) ,E.MP!
MP(R3) ,E.MP?

(SP)+,R3
(SP)+ RO
RS

CZRLLAD RLO1/2 DRIVE (P

GLOBAL

MACRO v03.01

SUBROUTINES SECTION

9-FEB=79 19:41:44 PAGE

L_6
31

;

3 031656

BGNTST

TCONTROL SECTION TOMPATABILITY PROGRAM

sPRINT

:PERFORM READ/WRITE

8 031656

16
17
18
19

031662
031666
031670
031672
031674
031700
031704

031706
031710
031714
031720

012701

000377
005037
005237

03
170000
003
007777
000000
004537
062704
004537
004537
004537
000360
000017
005237
004537

36 032004

000000

38
39
40
41
4«2
43

032010
032012
032014
032016
032020
032022

000000
004
000000
004
000000
000000

45 032030

023727

35 032002

17 032006

44 0320264

03203
032040
032044
032050

50 03205«
51 032060
52 032064
5% 032066
54 032070
55 0352074

56 032100
57 032102

002334

COMPAT: MOV

000170

6%:

002754
025572

00?2

000
031160
000010
031260
030512
023572
002776
024314

360

360
017

00100°
000137
062704
004537

032454
000010
031260

002
170000

003022

108 :

030512
023572

00277¢
024314

000

¥SECBUF R

MESSAGES

sADJ. CYLINDER BUFFER

;CLEAR FIRST OVERWRITE
:SET FIRST ADJ. FLAG
UP = 1

RS,SERNUM
RS,OVWPER

;TRACK AND SECTORS FOR
: INWARD SEEK
;TRACK AND SECTORS FOR
:OUTWARD SEEK
;TERMINATOR
:UNLOAD PACK FROM DRIVE UNIT
:UPDATE POINTER FOR NEXT DRIVE
;LOAD INTO SECCND DRIVE UNIT
;CHECK PACK SERIAL NUMBER
:PERFORM R/W OVERWRIE

RS,ADJCYL
3,377
170000
3,0
7777
0.
RS,UNLOAD
#PAT+2 R4
RS,LOAD

.WORD
BYTE
LWORD
.BYTE
LWORD
LWORD

O
4,360
O
64,17
O
0

CMP

uut,#?2

JSR
JSR
6014
1403
INC
JSR

RS, SERNUM
RS,OVWPER

BYTE
JWORD

e L

FOWR
FADJ
ADJDIR

BNE
JMP
ADD
JSR

sADJ. CYLINDER BUFFER (OUNT
sCLEAR ADJ. CYL. BUFFER AT STARTUP
sBUFFER CLEARED?
;CLEAR NEXT BUFFER WORD
;SET FIRST OVERWRITE FLAG
;PERFORM OVERWRITE ON f!RST DRIVE

LWORD

JSR

000002

#120.,R0
(R1)+
R)
4%
FOWR
RS,0OVWPER

ADJDIR
RS,ADJCYL

BYTE

CHECKS ON DRIVES

JSR
JSR
360
17
INC
JSR

BYTE

017

031160

004537
004537
006014
001403
005237
004537

JSR
.BYTE
.WORD
.BYTE
.WORD
LWORD
JSR
ADD
JSR

377

004537

MOV
(LR
DEC
BNE
INC
JSR
177400
377
CLR
INC
INC

002754
002756
002776

005237
004537 024314

20 031724
21 031730
22 031732
23 031734
24 031736
25 031740
26 031742
27 031746
28 031752
29 031756
30 031762
31 031766
32 031770
33 031772
3. 031776

46
47
48
49

AND LOAD DRIVE

JPERFORM SERIAL CHECK ROUTINE

9
10
11
12
12
14
15

UNLOAD

2,360

sIN 170 OUTSIDE

2,17

;0UT 170 OUTSIDE
sIN 170 INSIDE
;0UT

1/0 INSIDE

RS,UNLOAD

;UNLOAD PACK FROM DRIVE

10%
2%
#PAT+2 R4
RS,LOAD

JYES,GO TO NEXT DRIVE
:G0 TO FIRST DRIVE
JUPDATE DRIVE BUFFER FOR THMIRD DRIVE
;LOAD PACK FOR THIRD DRIVE

ADJDIR
RS,ADJC YL
2 0

(IN 270 OUTSIDE

170000

:CHECK FOR > 2 DRIVES

UNIT

sCHECK SERIAL NUMBERS
;PERFORM R/W OVERWRITE ON TMIRD DRIVE

SEQ 0076

GLOBAL SUBROUTINES SECTI ON

58 032104
59 032106
60
032110
61 032112
62 032114
63 032116
64 032120
65 032122
66 032124
67 03212¢
68 032130
69 032132
70
71
72
73
76

032134
032136
032140
032142
032146

75 032156
76 032156
77 032162
78 032166
79 032172
80 032176
81 032200
82 032202
83 032206
84 032212

85 032214
86 032216
87 032220
88 032222
89 032224
90 032226

002
007400
004
170000
004
007400
0G1
000000
001
000000
005
000000

005
000000
000000
004537
023727
001500
062704
004537
004537
004537

001042
000421
005237
004537
002
000360
002
000017
004
000360
004

91 032230
92 032232

000017
001

94
95
96
97
98
99
100
101

001
000000
005
000000
005
000000
001
100000

S NN =00V
NO

93 032234

032236
032240
032242
032244
032246
032250
032252
032254

000000

000

9=FEB=79 19:41:44 PAGE
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE

¢00
000

200

.WORD
.BYITE
.WORD
.BYTE
.WCRD

100

200
100

.WORD

331160
003022

030512
023572

g
000

000
000

000
040

020
040

020
000
000

.WORD

000003

JSR
CMP
BEQ
ADD

JSR
JSR
JSR
1042
421
INC
JSR
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD

004537
004537
020000

RS ,UNI.OAD

UuT,#3

1%
#PAT+2
R4
R5.LOAD
RS, SERNUM
RS ,OVWPER

2.0
360

6
31-1

SEQ 0077

;0UT 2/0 OUTSIDE
;IN 2/0 INSIDE

;0UT 270 INSIDE
;IN 271 OUTSIDE
;0UT 2/1 OUTSIDE
;IN 271

INSIDE

;0UT 271

INSIDE

; TERMINATOR

:UNLOAD PACK ON THIRD DRIVE

;CHECK FOR > 3 DRIVES
:NO, GO TO 2ND DRIVE
;UPDATE DRIVE BUFFER FOR &TH DRIVE
:LOAD PACK ON 4TH DRIVE
;CHECK PACK ON FOURTH DRIVE
;PERFORM R/W OVERWRITE

:IN 3/0 OUTSIDE
;0UT 3/0 OUTSIDE
:IN 3/0 INSIDE

;0UT 370 INSIDE
:IN 3/1 OUTSIDE

;0UT 3/1 OUTSIDE
:IN 371 INSIDE

;0UT 3/1 INSIDE

;IN 3/2 OUTSIDE
;0UT 3/2 OUTSIDE

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

JSR
SUB
JSR
JSR
JSR

5 ,UNLOAD
PAT+2 R4
R5,LOAD
RS, SERNUM
RS ,0VWPER

20000

ADJDIR

RS,ADJCYL

.WORD

2
2
SSIO
314
2 520

MACRO v03.01

OOWVIOWVO—=O
=N,
=~y
A
P o T
LI k)
- no - NOOOOOO
o
o
[=]
oo
O
O
o
o
o
o
(=]

CZRLLAQ RLO1/2 DRIVE CPY

:IN 3/2 INSIDE
;0UT 3/2 INSIDE
: TERMINATOR

sUNLOAD PACK FROM 4TH DRIVE
:SET DRIVE BUFFER FOR 3RD DRIVE
:LOAD PACK ON 3RD DRIVE

;CHECK FOR PACK SERIAL NUMBER
;PERFORM R/W CVERWRITE ON 3RD DRIVE

CZRLLAO RLO1/2 DRIVE (PT

MACRO v03.01 9-FEB=79 19:41:44 PAGE

010000

031160
000010
031260
030512
023572

000

148 032442

005

000

004537
162704
004537
004537
004537
001042
000421
004537
001
000000
001
000000

031160
000010
031260
030512
023572

167
168
169
170
171

032524
032526
032530
032532
032534

005
000000
005
000000
001
004000
001
002000
005

.WORD

000

005

032514
032516
032520
032522

JSR
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD

000

1646 032436

163
164
165
166

2020

024314

000040

032450
032456
032460
032464
032470
032474
032476
032500
032504
032506
032510
032512

1%:

000

2%:

024314

010
004

010
004
600
000

000

.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.WORD
JSR
SUB
JSR
JSR
JSR
1042
421
JSR
.WORD
.BYTE
.WORD
.WORD

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

b et Y =
O
O
[=]elelelelele
)

.WORD
.WORD
JSR
SuB
JSR
JSR
JSR
4040

O = NN
O
O

000

RS ,UNLOAD

6
31-2

SEQ 0078

;IN 2/3 OUTSIDE
;0UT 2/3 OUTSIDE
;IN 2/3 INSIDE

;0UT 2/3 INSIDE
: TERMINATOR

R5.LOAD
RS ,SERNUM
R5,0VWPER

;UNLOAD PACK FROM 3RD DRIVE
:SET DRIVE BUFFER FOR 2ND DRIVE
;LOAD PACK ON THIRD DRIVE
; CHECX PACK SERIAL NUMBER
;PERFORM R/W OVERWRITE ON 2ND DRIVE

RS,ADJCYL
1,0

;IN 172 OUTSIDE

FPAT+2
R4

20000
—

000

RS,ADJCYL

000

143 032430
144 032432

151
152
153
154
155
156
157
158
159
160
161
162

10000
JSR
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD

024314
Goo

= IS et d NN

140 032422
141 032424
1642 032426

010000
004537
001
000200
001
000100
0G5
000200
005
000100
000000
004537
162704
004537
004537
004537
004040
002020
004537

ONIWV
IS NN

032322
0323264
032330
032332
032334
032336
032340
032342
032344
032346
032350
032352
032356
832362
32366
032372
032376
032400
0326402

RS ,UNLOAD

;0UT 1/2 OUTSIDE
:IN 172 INSIDE

:0UT 1/2 INSIDE
;IN 1/3 OUTSIDE

;0UT 1/3 OUTSIDE

:IN 1/3 INSIDE
:0UT 1/3 INSIDE

;: TERMINATCR

’

#PAT+2
R4
RS.LOAD
RS,SERNUM
RS,OVWPER

:UNLOAD PACK FROM 2ND DRIVE
;
:SET DRIVE BUFFER FOR 1ST DRIVE"
:LOAD PACK INTO FIRST DRIVE UNIT
;CHECK SERIAL NUMBER
;PERFORM R/W OVERWRITE

RS ,ADJCYL
0

:IN 0/1 QUTSIDE

NN
== S = OWVNOWNO
—=O —
-~
On
O
—
s
OSSO0
&
o
o
o

VN VNS WN

OOV

WWWNIWNIWNIWRNI W N NI NN N NN NN NI NN R

NO VR WN =000~

GLOBAL SUBROUTINES SECTION'

;0UT 0/1 OUTSIDE
:IN 071

INSIDE

;0UT 0/1

INSIDE

:IN 072 QUTSIDE
;0UT 072 OUTSIDE

JIN 072

INSIDE

006882

2562

002000

000

.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.WORD
JSR
PRINTF

000

032564

o~
o

000000
004537
012746

032576
032602
032604
032606

012746
010600
104017
062706

032612

104022

186 032612
187 032614
188
189
190
191 032616

032616
032616

192
193 032620
194 032620

104001

032622
032624
032626

001031
032720
000000
000776

032642
032644
032646
032650
032652

003032
032727
003400
000000
000007

032654
032656
032660
200 032662

002130
032676
000001

199 032654

032662

EMT

i%:

L10012:

ADD

BREAK
EMT
BR

31-3

4000

SEQ 0079

5.0
2000
}60

;0UT 072 INSIDE

2.0

;0UT 0/3 OUTSIDE

?60

;IN 073 INSIDE

2.0

;0UT 0/3 INSIDE

: TERMINATOR

FENDPAS
#ENDPAS ,-(SP)

;END OF

R5,UNLOAD

;IN 0/3 OUTSIDE

s UNLOAD PACK
PASS

#,-(SP)
SP,RO

CSPNTF

¥4 ,SP

($BRK
3%

EMT

(SETST

HRDPRM

BGNHRD

.WORD L10013=L$HARD/?2

GPRMA
.WORD
.WORD
.WORD
.WORD
GPRMA
.WORD
.WORD
.WORD

177776

03263;
032634
032636
032640

198 032642

000004

BGNMOD

000031
032662
160000

032630

MOV
MOV
MOV

ENDTST

000020

197 032632

031160

000776

032620

195
196 032622

201

.WORD
.BYTE
.WORD

000

009

032572

MACRO v03.01 9=FEB=79 19:41:44 PAGE

000

W
o
W

VW =000
~N
W

il
il ekl il e
ol
il
il
il
—
p—
R

72 032536

0o
Co Co OO
NNNNNN~N

CZRLLAO RLOV/2 DRIVE (PT
GLOBAL SUBROUTINES SECTI ON

L10013:

GPRMD
.WORD
.WORD
.WORD
.WORD
.WORD
GPRML
.WORD
.WORD
.WORD
ENDHRD
LEVEN

(SRMSG,CSR,0,160000,177776,YES
T$CODE
CSRMSG
TSLOLIM
TSHILIM

VECMSG,VECT,0,0,776,YES
T$CODE
VECMSG
TSLOLIM
TSHILIM

DRMSG,DRBT,0,03400,0,7,YES
T$CODE
DRMSG

03400

TSLOLIM
TSHILIM

DRTYPE,TYPDR,1,YES
T$CODE
?RIVPE

———

CZRLLAO RLO1/2 DRIVE CPT
GLOBAL SUBROUTINES SECTION

202 032662
032665
032670
032673
203 032676
032701
032704
032707
032712
032715
204 032720
032723
032726
205 032727
032732
206

207 032736

208

209 033114
033114

102
040
104
123
104
126
1¢4
105
040,
060
126
124
000
104
126

033114

MACRO v03.01

125
101
122
123
122
105
131
040
122
06!
105
17

123
104
105
000
111
040
120
075
114
000
103
122

122
105

111
000

9=FEB=79 19:41:44 PAGE

31-4

(SRMSG:

.ASCIZ

/BUS ADDRESS/

DRIYPE:

.ASCIZ

/DRIVE

VECMSG:

.ASCIZ

/VECTOR/

DRMSG:

.ASCIZ

/DRIVE/

EVEN

.=3311¢4

(AsiaD

LSLAST::

ENDMOD
JEVEN

TYPE

SEQ 0080

= RLO1/

sTHIS IS A FIX FOR THE

'APT' MA[LBOX

CIRLLAD RLOY/2 DRIVE

DIAGNOSTIC
1

(PT

MACRO v03.01

SUPERVISOR == LOW CORE

SET

9=FEB=79 19:41:44 PAGE

7
SEQ 0081

LSBTTL

DIAGNOSTIC

SUPERVISOR == LOW CORE

SET

ASSEMBLY ROUTINES
PwR.FAIL:
POWER

85 063710

36 063712

37 063714
38 063716
)4
“

000000
000000
000000
000000
063722
000200

MACRO v03.01 9-FEB=79
INTERRUPT ROUTINE

19:41:44 PAGE

18!

SEQ 0082

LWORD
LWORD
LWORD
WORD

0
O
0
O

END.SUPY=.+2
JEND 200

:SP?EE

381

FOR USE® POOL POINTER

sCHECKSUM
JSIZE

(NOT

H.W.

CURRENTLY USED)

PTAB,

ALLOCATION

ASSEMBLY ROUTINES
TABLE

MACRO v03.01

033440 G
033356 G
035720
ADJCYL
024314
ADJDIR
002776
ADJFLG
002774
ADJLC2
003112
ADJLCS
003114
ADJLCS
003116
ADJLOC
002772
ADJTRK
003106
ADJTXT
020030
ADJUUT
003110
AFSI
033146
ALLOC
054060
APT.ER
035050
ASSEMB= 000011
ASAAY
037716
ASAAW
037732
ASAAX
037744
ASAAY
037752
ASAAZ
037766
ASABA
037776

B119
=
BLD.HW
BLO(K
BMP
BSEXIT
BSVWR
BUF
B$AAB
BSAAF
CALLPC=
CALLPS=

181-1

217124

PO T
LUN

033166
062370

ERR1
ERRIFO
ERR2

ERR3
ERRG

ERRS

ERR6
ESC.PC
Ev.COU
EXIT

100000

017563
046714
045514
066452
033116
046456
020060
047000
020116
020156
020304
020464
020524

045506

033120
023560
003060
003056
003062
003064
003066
003070
002756
017313
053240
000204
030456
033160
033162
056412
040146

056360
040106
030366
026124
030214
047010
003020
002754
054316
020612
021365
021431
021466
021545
021630
021¢57
021716
022003
022037
020707
021007
021066

$20006

P ]

—

ERRFND
ERRFOR
ERRHAN
ERR.HR
ERR.NU
ERR.SF

n43056

ERR

035734
040100
002766

033126
000000
033446
003010
010000

+ 900001
032727
DRPCOD
023566
= 000013
DRST
DRSTAT
003000
DRTYPE
032676
DSB
= 000004
DSPCOD
022142
033362
DUNIT,
DVCL.FT
046442
DSAAG
047346
DSAAH
047364
DSAA]
052132
DSAAY
052136
DSAAK
052154
DSAAL
052172
DSAAM
052202
EF.CON= 000036
EF .NEW= 000035
000034
000037
TA= 000049
000001
000002
000003
000004
v00005
000006
000007
000010
0000M
000012
000013
000014
000015
000016
000017
000020
033444
022314
ENDBUF - 017164
ENDPAS
022102
OF
.,D
EN
041470
END,SU= 063722
ENVIRO
EOP,.(H

EOP.FM
EOP.IN
ERFLG

052404
040000

[alalalalafalalalalalalalalalafalalalalAl
ANl

DRBUF
DRDY
DRMSG

Zz T TV T T T T T W T T T T T T TMY v T
o et
s et et et 2 DO OOOOOOOD
»
s
OOWVMEP NN = OV
NO VS W
—»

000033
000002
000025
000047
000041
000037
000013
000031
000026
000027
000004
017275
004000

DECMSG
=
DERR
DEV.CO
DIAGMC=
DIAG.T
DIRC
DLT
=
DPDVD
DPMUL
DRBT
-

TM mmmmmmmmmmmmmmm T

000020
000054
000022
000004
000002
000030
000046
000012
000006
000036
000044
000053
000024
000055
000002
000002
000003
000001
000004
000010
00000%
000003
000001
000032
000043
000042
000040
000052
000011
000020
000035
000034
000100
000051
000023
000014
000017
000016
000015
000040
000377
000007
000050
000045

(¥~

od
=

Hun
"

000100
000200
000400

023536
017166
056660
033164
056474
031656
062272
000200
052572
000002
000000
000000
032662
033122
033124
CURR.T
003014
CyL
(SAAD
045462
045474
(SAAE
(SAAK
046472
($AAL
046636
($ARRT= 000021

000040

053742
040066
040104
041502
033354
060604
033352
061210
062212
062346
033412
040162
023562
040436

(SESEG=

($ESUB=
($ETST=
(SEX]IT=
(SGMAN=
($GPHR=
($GPR]=
(SGTIM=
($INIT=
($INLP=
C$KWOF
=
(SKWON=
($LOOP=
CSMAN|=
($MSG =
C$PN1B=
CSPNTF=
($PNTS=
CSPNTX=
($POIN=

01,0004
000010
000020

CHRCNT
CH.FLA
CH.PAS
CLEAR.
CLKACC
CLKBFR
CLKCNT
CLKJUM
CLKRES
CLKSER
CLKSON
CLK.SE
CLNCOD
CLR.MA
CMPENA
CNTTOT
CNVT
COMMAN
COMMTA
COMPAT
CONTCL
CRDY
=
CRLF
(RSET =
(s
=
(SR
=
CSRMSG
CURR,.S

05251C
040360
045510
034550

C$CLP1=
($CVEC=
(SDCLN=
($D0DU=
C$DRPT=
($oU
=
(SEDIT=
CSERDF=
(SERHR=
(SERSF=
($ERSO=
(SESCA=

T
T
T
T
T
T
T
T
U
T
I
U

awowbww-———-—-—ooog
N wWh=O
VO~

)
)
)
)
)

100000

CHKTTY
CHK.MA
(HK.PC
(HK.SW

027552
042220
054422

($BSUB=
(SBUFF=
(SCEFG=
(SCLEA=

003074
BCS
003072
BDA
003076
003032
BDATA
BGN. SU= 033114
BINMSG
052370
B110
000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
000002
002000
004000
010000
020000
040000
BBA

(HECK
CHKLUP
(HKSTR

000026
000030
060602
060640

(SADR
($AU
($BRK
($BSEG=

BA17

(Al Al alalalalal Akl Alalalalalalalalalalalalal
ANl

000002
000020
000040

CALLSP=
CALLTC=
CAL.CL
CAL.TI

001000 6
040602
056214
003100
027524
027342
003124
042204
042116
000022
00002«

8A
BAlG

19:41:44 PAGE

SEQ 0083

ABOF LA
ABOPAS
ABO.FM

9=FEB=79

SYMBOL

ASSEMBLY

SYMBOL
FRMS
FRMG

FRM7
FRM8
FRM9
FRTTRk
FUNERR
FWD
F$AU
=

F$BGN =

ROUTINES

MACRO v03.01

TABLE

021127
021176

GSXFER= 000004
GSYES = 000010

021217
021257
021323
003044
017667
017736
000015

HCORED
HCOREC
HCORET
HCRC
=
HC.ADR
HC.DEF
HC.DIA

000040

HDRFND

FSCLEA= 000007

HEAD

F$OU
= 000016
FSEND = 000041
FSHARD= 000004

feHw
=
F$INIT=
F$JMP =
F$MOD =
F$MSG =
F$PWR =
FSRPT =
F$SEG =
F$SOFT=
F$SRV =
F$SUB =
F$SWw
=
F$TEST=

GARBAG
GDATA
GETCHR
GETCMN
GETPAR
GETSW!
GET.Tw
GLBDAT
GLBEOA
GLBERR
GLBSUB
GLBTXT
GSBIT =
GSTAT =
GSEXCP=
GSHIL1=

G$LOL1= 000001
GSNO = 000000
GS$OFFS= 000400
G$0FS1= 000376
GSPRMA= 000001
G$PRMD= 000002
GSPRML= 000000
GSRADA= 000140
GS$RADB= 000000
GSRADD= 000040
GSRADF= 000200
GSRADL= 000120

GYRADO= 000020
GSRADT= 000100

037656
037566
033402
004000
033152
033144
033142
002126

G
6
G
6

= 000100

G
G
G
6
6

HOLDSP=
HPTCOD
HRDPRM
HSFLG
HW.ADR
HSAAB
INAWR
ININIT
INITCO
INITIA
INITWR
INIT.M
INIT.R

INN10
INNT1
INNZO
INN21
INN30
INN31
INNGO
INNG1
INNS0
INNST
INPUTA
INTEN =
INTFOR
INVAL.
INVINT
INV.SW

IN.SUF
1$AU =
I$CLN =
1$DU =
I$HRD =
I$INIT=
I$MOD =
1$MSG =
I$PWR =
ISRPT =
I$SEG =
1$SRV =

000020
022130
032620
003002
033150
057206
027440
033372
022146
052420
017213
040504
033206

002250
002262
002252
002264
002254
002266
002256
002270
002260
002272
053346
000100
046644
037452
046502
034504

041454
000041
000041
000041
000041
000041
000041
000041
000041
000041
000041
000041

1$5UB = 000041
18151 = 000041

19:41:44 PAGE

181-2

JSJMP = 000167
KBPTR
033224 6

HEADOT
003006
HERTZ.
037526
HNF
= 010000

000013
000006
000050
000000
000011
000017
000012
000003
000005
000010
000002
000014
000001

053744
003030
052450
056034
047526
055030
054600
002126
00212¢
020060
023572
017166
000003
000004
000400
000002

9-FEB=79

6
6

LSTIMU
LSTIMT

00205% G
002052 6

NUM.NO
NUM.UN

033156 6
033564

020522

oQull

002166

KBUF
LDFUNC
LINE.F
LOAD
LOAD.F
LOGMSG
LPBFR

033226 6
031360
033442 G
031260
040102
052412
033222 G

LS$TSTI
LSUNIT
L.CLK.
L10000
L10001
L10002
L10003

LPT.AD

037544

L10005

020610

L10011
L10012
L10013
MAJ.IN
MAJ.LO
MAJ.US
MANY
MAN.TI
MAP16
MASK.B
MASK.W
MDHEDR
MEM.S1

023570
032616
032662
033176 G

oousC
oaus!
0QuUt0
oaus>1

001244
063314 G
042216
042214
002000 6
037554

outr2¢
ouT21
QuT30
0UT31
ouT40
ouT41l

LPCNTR

LPT.RE
LSI.RE
LSTCLR

6
G

SEQ 0084

LSTDRV
LSTTRK
LUP
LUP.AD
LSAPT
LSAUT
LSCCP

LSCLEA
L$CO
LSDEPO
LSDESC
LSDEVP
LSDISP

L$DR
LSDRCT
LSDRS
LSDRST
LSDTP
L$DU
LSOUT
LSDVTY
LSEF
LSEFLG
LSEXP1
LSEXP2
LSEXP3
LSHARD
LSHPCP
LSHPTP

LSHW
L$ICP
LSINIT
LSLADP
LSLAST
LSMREV
LSNAME
LSREPP
LSREV
LSSPC
L$SPCP
L$SPTP

L$STA
LSTIML

033220 6

037540
037534
002762

003026
003042
060506
045512
002036
002074
002106
023562
002032
002011
002102
002064
022144

002112
002070
002072
002112
002040
023566
002076
002114
002056
002034
002042
002044
002046
032622
002016
002022

022132
002104
022146
002026
033114
002050
00200C
002066
002010
002062
002020
002024

L10004

L10006
L10007
L10010

G
G
G

G
6
G
G
G
G

6
G
G
G
G
6
G
G
6
G
G
G
6
6
G
G

G
G
G
G
6
G
G
G
6
G
G
G

002030 6
002014 G

MERGE
MID10
MID11
MID20
MID21
MID30
MID31
MID4O
MID41
MID50
MIDS1
MIN.IN
MIN.US
MK
=
MODR
L4
=

MSG.AD
MSG.TY
MUL
NCHECK
NEWPRI
NEXTAR
NONE
NO.CLK
NO.FLA
NO.LPT
NO.PTA
NR
=

NUMBIN
NUM. LA

002100 G
002012 G
037512
020114
020154
020302
020462

0au20

022142
023560
023564

060606
033200 G
017352

027766
002200
002212
002202
002214
002204
002216
002206
002220
002210
002222
033172 6
033174 6
000001
062656 6
000006

033140
033114
062612
027536
062336
056576
017411
037502
056372
053710
037706
000000

047034
047202

NUNITS
NXM
=
NXTFOR
OCTMSG
OFFSET
orPI
=
0Qul0

G
6
G
6

oau2!
oau30
oau31

OSECT
out10
oulli

0UT50
ouT51
OVMES
OVWER
OVWPER
OVWTRK
0$APTS=
0$AU =
0$BGNR=
0$BGNS=
osou =
0$GNSW=
0$POIN=
0$PWR =
PARSES
PAR.LA

PASS.C
PAT
=
PATLST
PRINTC
PRINTF
PR100 =
PRIO1 =
PRI02 =
PRIO3 =
PR104 =
PRIOS =
PRI06 =

042172
020000
056652
052376
003040
002000
002154
002156

002170
002160
Q02172

002162
002174
002164
002176

003004
902130
002142

002132
002144
002134
002146
002136
002150

002140
002152
017462
017623
023572
002714
000000
000000
000000
000000
000000
000000
000001
000000
056106
052074

033130
000006
002740
053720
057226
000000
000040
000100
000140
000200
000240
000300

G
G
G
G
G
G
¢
PRIO7 = 000340 G
PRNTST 053610

PRO.CM

MACRO v03.01

ROUTINES

TABLE

SERNM?2

040060

PRSTRK
PT1AB.S
PUTCHR
PWR.FA
PUR.FL
PWR.MS
PWR.SA
PWUR.UP
P.CLk.

003046
03300 G
052424
063550 G
033204 G
063676
063672
063674
037520

READ
READ.P
READ!
REASON
RECER

000014
060610 G
020003
002764
017643

REGSAV
REQN.P
REON.T

REV

017515
063300 G
025506

063264 G
033170 G
040062

017746

REVSK

003016

RSTACK

062540 G

RE.SET
RSADJS

SAVEDO=
SEARCH
SECBUF
SECLST
SECT
SECWRD
SEEx
=
SEGSTA
SERNMY

. ABS.

034652
025716

035050
054546
00233«
002274
003024
003036
000008
03314 G
003102

ERRORS DETECTED:
VIRTUAL

DYNAMIC

SW.ADR

SW.PTA

063720

000000

003104

SERNUM
030512
SETLST
026064
SETUP
022364
SET.MA
040272
SHIFT
063376
= 000004
SIGN
SKCYL
025240
SKER
017717
SKHS
= 000020
SPEC.U
040006
SPv.SE
000400
STARTC
062266
STFLG
002770
STRCHR
053300
STRT.T
040064
STSEC
003122
STSEC!
003120
ST.SET
034716
SUNIT,
040070
SUPERYV
035752
033360
SUPFLA
033532
SUPV.T
SUP.PR
034470
SURF
003012
SURFAC
003050
SVCGBL
= 000000
SV(HAN
042406
SVCINS= 000000
Sv(SUB= 177777
SVCTAG= 000000
SVCTST= 177777
037700
SWCHAN
056552
SWIT(H

RDHDR = 000010

RECMS
REGBAC
REGDMP

9-FEB=79 i19:41:44 PAGE

181-3

SYS.FT

6
6

033154 G
037664

046432
SSLSYM: 010000
TEM
002750
TEMP
002760
TERM]
060576
TERML]
056400
TERMTA
052362
TEST.M
040020
TIMFLG
033350 6
TIM.CO
033202 6
TIM.OP
047006
T00.MA
052342
TQU10
002224
Taull
002236
1Qu20
002226
TQu21
002240
Tau3o
002230
Teudl
002242
TQu40
002¢32
TQU&1
002244
1GUS0O
002234
TQuUsS1

TRKCNT
TRKEND
1ST.AB
1S7.10
TYPDR =
TYPEC
TYPEPC

002246

003054
003052
042330
034532
000004
052736
046632
056254
052634
052216
052654
046462
041474

TYPFLA
TYPLIN
TYPNUM
TYPSIR
TYP.ER
TY.UNI
T$ARG(
= 000001

SEQ 0085
T$CODE
=
T$ERCO=
TSERRN=
TSEXCP=
T$HILI=
T$LOLI=
TSLSYM=
TSNEST=
T$NSKO=
TENSK1=
T$SAVL=
T$SEGL=
T$SUBN=
T$TAGL=
T$TAGN=

TSTEMP=
TS$TEST=
T$TSTM=
T$1ST1S=
T$SCLE=

002130
000062
000322
000000
000007
000000
010000

177777
000000
000004
177777
177777
000000
177777
010014

VAL.LA
VAL.SW
s
VEC
VECMSG
=
VECT
VEROD
VEROW
WCOUNT
WIDTH
WRITE =
WRITI
WRSEC
XEQDIA
XEQSUB
XEQ.CL
XEQ.CM
XEQ.IN
XEQ.LA
XEQ.OP
XEQ.PR
XEQ.TE
XTIME
XTIMEN
XTIMST
XXDP.D

XSALWA=
X$FALS=
X$0FFS=
X$TRUE=
$BREG
$ENDAD
$5AV2

$SAV3

$SAVS
$SAVS

034454
040120
000002
032720
000002
026550
026164
003034
047402
000012
017756
024054
062424
062412
042134
037444
041616

035706
041710
035110
041754
061276
062122
061320
037464
000000
000040
000400
000020
040160
062376
063442
063456
063474
063514

(AR
AN AR A

ASSEMBLY

SYMBOL

000
O

001

( 70 PAGES)
17720 WORDS
70
PAG
FOR
ES
MEMORY AVAlLABLE

MEMORY USED:

CIRCLABIN, (JRLLA-8SY(RT/M _(ZRLLA,DOCTOR