Digital PDFs

AH-E251B-MC

January 1979

75 pages

Original

3.6MB

view download

OCR Version

3.1MB

view download

Document:	CZRLFB0 RL11,RLV11 DRIVE COMPATIBILITY JAN 1979 bw
Order Number:	AH-E251B-MC
Revision:	000
Pages:	75
Original Filename:	CZRLFB0__RL11,RLV11__DRIVE_COMPATIBILITY__AH-E251B-MC__JAN_1979_bw.pdf

OCR Text

R L1 1 i R LV1 1

ERZIVREf;';:)ATAB'L”v

JAN 1979

1
FICHE1 OF

MADE IN USA

IDENTIF ICATION

THE

INFORMATION

SEQ 0001

PRODUCT CODE:

AC-E250B-M(

PRODUCT NAME:

(ZRLFBO RLO1

DATE CREATED:

11-0(T-78

MAINTAINER:

DIAGNOSTIC ENGINEERING

AUTHOR :

THIS

DOCUMENT

DRIVE

COMPATABILITY

DEKNIS

SUBJECT

CHANGE

WITHOUT

NOTICE
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION
ASSUMES
NO
RESPONSIBILITY
FOR
ANY
ERRORS
THAT
MAY APPEAR IN THIS
THE

SOF TWARE

PURCHASER
AND

(AN BE

NOTICE)

PROVIDED

DESCRIBED

UNDER A LICENSE
COPIED

(WITH

ONLY FOR USE

THIS DOCUMENT

FOR USE

INCLUSION

IN SUCH SYSTEM,

NOT

USE

IN WRITING BY DIGITAL.

RELIABILITY OF

SUPPLIED BY DIGITAL.
COPYRIGHT

(()

1977,

ITS

1978,

FURNISHED

COMPUTER

DIGITAL'S

THE

SYSTEM

EXCEPT ASMAY OTHERWISE BE

DIGITAL EQUIPMENT CORPORATION ASSUMES
THE

ON A SINGLE

SOF TWARE

DIGITAL

RESPONSIBILITY
ON EQUIPMENT

EQUIPMENT

FOR

THAT

CORPORATION

TEST

Page 2

SEQ 0002
*1

cC
TABLE OF

CONTENTS

s 2

Wl —O
N

ASSUMPT IONS

OB WWWN
= 2 20

GENERAL

INFORMAT
0N

OPERATING INSTRUCTIONS
HOW TO RUN THIS DIAGNOSTIC
THE

SIX STEPS OF

DETAILS OF COMMANDS AND SYNTAX
TABLE OF COMMAND VALIDITY
COMMAND SYNTAX

EXTENDED P-TABLE DIALOGUE

HARDWARE PARAME TERS

O
«

PERFORMANCE AND PROGRESS REPORTS
DEVICE

ERROR INFORMATION

[

SOF TWARE PARAMETERS

INFORMATION TABLES

SUMMARIES

LAl

C(
1

EXECUTION

SAMPLE RUN-THROUGH
HOW TO CREATE A CHAINABLE FILE

N —

N -+

SYSTEM REQUIREMENTS
RELATED DOCUMENTS AND STANDARDS
DIAGNOSTIC HIERARCHY PREREQUISITES

2 = 2

PROGRAM ABSTRA(T

NONUNURNUNONTONINUIVNY

TH
W)
W]

Fl
W]

TC
LA
u?
*1

DF
*1

TH
Pf

Tk
Th

D
Page 3
1.0

GENERAL

1.1

PROGRAM ABSTRACT

1.1.1

STRUCTURE OF

INFORMATION

PROGRAM

THIS DIAGNOSTIC OCCUPIES 14.5K WORDS OF MEMORY AND

IS COMPATIBLE

WITH

BOTH
XXDP AND
ACT.
IT CAN BE RUN STANDALONE UNDER XXDP, AND CAN BE
CHAINED UNDER XXDP, ACT AND APT IN ACT MODE (SEE '‘CREATE
CORE
IMAGE’'
COMMAND BELOW
FOR
DETAILS
OF
CHAINING PROCEDURE).
IT IS A SINGLE
PROGRAM FROM THE

STANDPOINT

THE

DIAGNOSTIC

USER,

BUT

HAVE

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

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, INDICATED
BY
A
PROMPT
C(HARACTER
(DS B>).
AT COMMAND MODE THE OPERATOR MAY ENTER
ANY OF SEVERAL COMMANDS AS DESCRIBED BELOW.
THE

SUPERVISOR CODING FOLLOWS

IMMEDIATELY THE DIAGNOSTIC

TEST

THE RLO1

DRIVE

INFORMATION

COMPATABILITY TEST

SYSTEM REQUIREMENTS

1.2.1

HARDWARE REQUIREMENTS

IS A PDP-11

(LSI=11)

PDP=11/LSI-11 PROCESSOR WITH 16K OR MORE OF MEMORY
CONSOLE DEVICE (LA30,LA36,VT50,ETC.)

RL11/RLV11 CONTROLLER(S)
1 - 8 RLOT DRIVES
1 - 8 RLOTK CARTRIDGES WITH BAD SECTOR FILE
Kw11P, KW11L (OPTIONAL)
LINEPRINTER(OPTIONAL)

1.2.2 SOFTWARE REQUIREMENTS
CZRLFBO RLO1

DRIVE

COMPATABILITY

(FORMERLY MD-11-DZRLF-A)

IS
*

0l
TH

FL
*N

BASED

PROGRAM

THAT
WILL
TEST
INTERCHANGABILITY OF CARTRIDGES BETWEEN DRIVES.
TEST PERFORMS WRITES, READS, OVERWRITES, ADJACENT CYLINDER
WRITES
PROVE COMPATABILITY.

1.2

CODING,

BUT
THE
SUPERVISOR
LISTING
HAS
BEEN
SUPPRESSFTM
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.2 DIAGNOSTIC

SEQ 0003

THE
TO

2.
TH
FC
AS

BE
FC

Page 4

1.3

RELATED DOCUMENTS AND STANDARDS

RLO1

USERS MANUAL

(EK=-RLJ1-UG-PRE)

XXDP USERS MANUAL

1.4

DIAGNOSTIC HIERARCY PREREQUISITES

SUBSYSTFM

SHOULD

CZRLABO
CZRLBBO
CVRLAAQ
CZRLCBO
CZRLDBO
CZRLEBO
1.5

HAVE

RL11/RLVIY1
RL11/RLV1T
RLVIT RLOT1
RLOT DRIVE
RLOT DRIVE
RL11/RLV1T

SUCCESSFULLY

RUN

THE

FOLLOWING

RLO1 CONTROLLER TEST (PART 1)
RLOT CONTROLLER TEST (PART 2)
DISKLESS TEST (RLV11 ONLY)
TEST (PART 1)
TEST (PART 2)
RLO1 PERFORMANCE EXERCISER

IN
Ut

ASSUMPT IONS
RLOT
SUBSYSTEM
IS
ASSUMED
TO
WORK
REPORTED [F THE PROCESSOR, ETC., DO NOT

2.0

OPERATING INSTRUCTIONS

2.1

HOW TO RUN THIS DIAGNOSTIC

2.1.1

THE SIX STEPS OF EXECUTION

THIS DIAGNOSTIC

PROCEDURES.
THE

DIAGNGSTIC

WHEN

SHOULD

EA AR

LOADED

AND

STARTED

USING

NORMAL

XXDP

THE START COMMAND SHOULD NOT SPECIFY AN ADDRESS, BECAUSE
HAS

THE

THIS DIAGNOSTIC

« STEP 1

PROPER

TRANSFER ADDRESS

iS STARTED,

THE

CODED

INTO

FOLLOWING STEPS WILL

1IT.

OCCUR:

AR
AN AR

A SHORTM

SERIES OF

'HARDCORE

QUEST I

THE

DEFAULTS

FOR EXAMPLE,

ASKED:

IS POSSIBLE

________

1S THERE AN L-CLOCK?
'
"t P=CLOCK?
IS THE POWER 50 CYCLES (AS IN EUROPE)?
IS MACHINE AN LS]?
IS THERE A LINE PRINTER?
HOW MANY K OF MEMORY ARE THERE?

(SHOWN AFTER EACH QUESTION)

CARRIAGE RETURN.

ASKED:

QUESTIONS'' WILL BE

MEANING

L=CLK (L) N ?
P=CLK (L) N ?
S50HZ (L) N ?
LSI (L) N ?
LPT (L) N ?
MEM (K) (D) 16 ?

THE HARDWARE
OQTHER
THAN
THE
PROPERLY.
FALSE ERRORS MAY BE
FUNCTION PROPERLY.

CAN BE

THAT NOT ALL OF

YOU SAY "'YES''
TC

THE

SELECTED

HITTING

THE QUESTIONS WILL BE

L-CLOCK

QUESTION,

THE

RASIEIERRK

THE
RLOT
PROGRAMS:

SEQ 0004

F
1
Page 5
P=(LOCK QUESTION WILL

IF NEITHER P OR L

TYPE

NOT BE

ASKED.

CLOCK ARE ANSWERED YES THE OPERATOR WILL BE ASKED TO

TWO CHARA(CTERS &

SECONDS APART.

AN TOERNRRD

* STEP 2 «
ATERANANON

WHEN YOU HAVE ANSWERED ALL

THE HARDCORE QUESTIONS,

THE DIAGNOSTIC WILL

ISSUE
THE
PROMPT
°'DS—8>'',
FROM THIS POINT UNTIL THE TIME WHEN YOU
RESTART XXDP, YOU WILL BE TALKING TO THE
DIAGNOSTIC,
NOT
XXDP.
WE

WILL
REFER
TO
THE
PRESENCE
OF
THIS PROMPT AS BEING
COMMAND MODE, AS OPPOSED TO XXDP COMMAND MODE.
AT

THE

THIS POINT

THE

YOU WILL ENTER A *'START'® COMMAND.

THIS

XXDP '‘START'' COMMAND, WHICH YOU ALREADY

XXDP DOT PROMPT.

THIS

'SSTART''

(OMMAND

(AN

IN DIAGNOSTIC

IS NOT

THE

SAME

ISSUED IN RESPONSE
TAKE

NUMBER

COMMAND AT

THE

SWITCHES
AND
FLAGS
(ALL
OPTIONAL) AND THE DETAILS OF THESE ARE SET
FORTH IN '2.3 DETAILS OF COMMANDS AND SYNTAX''.
HOWEVER, IN
ORDER
TO
USE THE PROGRAM, ALL YOU NEED TO SAY IS SOMETHING LIKE THIS:

STA/P
: 1/FLAGS
ASS
: HOE
THINGS

TO NOTE

ONLY

HERE:

THE

FIRST

THREE

CHARACTERS OF

'DS-B>'' LEVEL NEED TO BE

THIS OR ANY

TYPED.

THE "PASS'' SWITCH SPECIFIES HOW MANY PASSES

PASS

CONSISTS

UNITS BEING TESTED
PASS

IS SPECIFIED

RUNNING

(THIS WILL

IN THE

THE

ABOVE

MAIN USEFUL

LOE

A NUMBER OF

FLAGS.,

EXPLAINED

ONES ARE:

HALT

IER
HOE

A
ALL

SHORTLY).

ONE

BUT

LOOP ONE ERROR

HOE

THE

DESIRE.
AGAINST

EXAMPLE.

THE "FLAGS'' SWITCH MAY SPECIFY ANY OF
THE

YOU

DIAGNOSTIC

FULL

ON ERROR

INHIBIT ERROR PRINTOUT

FLAG

SPECIFIED

THE

ABOVE

EXAMPLE

(WE'LL

SEE

WHY

SHORTLY).

ANTS

* STEP
3 «
AP AAATEEY

WHEN YOU HAVE TYPED IN A ''START'' (OMMAND,
THE
DIAGNOSTIC
WILL
COME
BACK
WITH
THE
QUESTION
"%
UNITS?''
TO WHICH YOU SHOULD RESPOND BY
TYPING

THE

NUMBER OF

DEVICES

YOU WISH

TEST.

SEQ 0005

Page 6
A WORD OF

OEVICE

WARNING HERE:

THE NUMBER OF

THE DIAGNOSTIC.

AT A DISK DRIVE,

UNITS

FOR EXAMPLE,

THEN THE NUMBER OF

UNITS

DEPENDS

THE

NUMBER

THE DIAGNOSTIC

WOULD

TARGET

IS DIRECTED
OF

DRIVES
TO BE
TESTED.
WHEREAS IF THE DIAGNOSTIC WAS DIRECTED AT THE
DISK CONTROLLER, THEN THE NUMBER OF
UNITS
WOULD
BE
THE
NUMBER
OF
CONTROLLERS.
THE
TARGET
DEVICE
OF
A
DIAGNOSTIC
CAN
ALWAYS
BE
DETERMINED BY INSPECTING THE 'HEADER'' STATEMENT NEAR THE BEGINNING
OF
THE
SOURCE
CODE.
SHOULD BE THE DEVICE

ONE
TYPE

OF
OF

THE
OPERANDS OF
THE DIAGNOSTIC.

SEQ 0006

THIS 'HEADER'' STATEMENT

T+
(1
CC
TE
T

EF
AL
I»

EF
Wi

EF
EF
W

Page 7

SEQ 0007

A A224022844

« STEP 4 =

ARNERRAANEY

WHEN YOU HAVE

TYPED

DIAGNOSTIC

WILL

?Eg%ES“.

ONE

I‘,'.*HE

ASK

YOU

THESE QUESTIONS ARE USED

THE

NUMBER

UNITS

TO BUILD TABLES

HARDWARE

TO BE_

°‘HARDWARE QUESTIONS''.

P-TABLE

CORE,

TESTED,

THE ANSWERS

CALLED

THE

‘HARDWARE

WILL BE BUILT FOR EACH UNIT TO BE

C/
THERE ARE

SEVERAL

HARDWARE

POSED N TIMES, WHERE N
THIS

REPRESENTS

QUESTIONS AND

THE

IS THE NUMBER OF UNITS.

NEW

PHILOSOPHY

ENTIRE

SERIES

WILL

B8E

DIAGNOSTIC

ENGINEERING.

DIAGNOSTICS
IN
THE
FUTURE WwILL NOT BE WRITTEN TO AUTOSIZE OR ASSUME
STANDARD ADDRESSES:
INSTEAD, THEY WILL ASK THE OPERATOR FOR
ALL
THE
INFORMATION THEY NEED TO TEST THE DEVICE.
:

AERAARAEE
N

STEP S

14222224244

AFTER YOU HAVE ANSWERED ALL THE HARDWARE QUESTIONS (SEC 2.5)
FOR
ALL
THE
UNITS, YOU WILL BE ASKED '‘CHANGE SW?'' IF YOU WANT TO BE ASKED THE

SOf TWARE QUESTIONS THAT DETERMINE THE BEHAVIOR OF THIS
PROGRAM,
'Y,
IF
YOU WANT TO TAKE ALL THE DEFAULTS TO THESE QUESTIONS,
W',
IF YOU TYPE 'Y'' YOU WILL BE ASKED THE
SOFTWARE
QUESTIONS

2.6),

AND

THE

ANSWERS

WILL BE PUT INTO THE SOFTWARE P-TABLE

PROGRAM.
THE SERIES OF QUESTIONS WILL BE ASKED JUST ONCE,
Of THE NUMEER OF UNITS TO BE TESTED.

TYPE
TYPE
(SEC

IN THE

REGARD_ESS

A\ A8222222

* STEP 6 «
AR

AREN

AFTER YOU HAVE ANSWERED

THE

THAT

DEPENDING

BEGIN

EXECUTE

CAN HAPPEN

THE

NEXT,

SOF TWARE

HARDWARE

QUESTIONS,

TEST CODE.
ON

WHETHER

ENCOUNTERED
AND
ALSO ON WHAT SWITCH VALUES
COMMAND.
(ONSIDER THE POSSIBILITIES:

IF NO ERROR IS ENCOUNTERED,

EXECUTE
THE
DESIRED
MOCE (PROMPT DS-B>).

THE

DIAGNOSTIC

THERE ARE
A

HARDWARE

WILL

THINGS

ERROR

YOU SELECTED ON THE

THEN THE DJAGNOSTIC

NUMBER OF

SEVERAL

WILL

START

SIMPLY

PASSES AND RETURN TO (OMMAND

B)
RE

Page 8

[IF AN ERROR IS ENCOUNTERED, THEN ONE OF THREE THINGS HAPPENS,

DEPENDING ON THE
HOE

SET:

LOE

SET:

THE
THE
THE

SETTINGS OF

THE HOE AND LOE FLAGS.

T
cc

ERROR WILL BE REPORTED ON THE CONSOLE AND
DIAGNOSTIC WILL RETURN TO COMMAND MODE.
DIAGNOSTIC WILL LOOP ENLESSLY ON THE BLOCK

OF CODE THAT DETECTED THE ERROR.
NEITHER HOE NOR LOE SET:
THE ERROR WILL BE REPORTED ON
THE CONSOLE AND NORMAL EXECUTION WILL RESU“IE
AS 1F NO ERROR HAD OCCURED.

2.1.2 SAMPLE RUN-THROUGH
LET'S SEE HOW ALL
ENTERED

THE

TYPICAL WAY

THIS WORKS IN A

COMMAND

TO RUN THE

gé?‘%&DREQUESTED

REAL

SITUATION.

NO ERRORS ARE

'‘STA/PASS:1/FLAGS:HOE''.

PASS

DIAGNOSTIC.

WILL

If AN ERROR IS ENCOUNTERED,

EXECUTED

2.
3.

THE

MCSY

AND

THE

RECALL

THAT

ISSUE ANOTHER '‘START'' COMMAND

WOULD BE A VERY

ENCOUNTERED,

PROMPT

(THUS GOING THRU ALL

THE

WILL BE

FLAG IS SET).
AT THIS POINT
THE PROGRAM GOING AGAINS:

2. %, 4, 5, AND 6 AGAIN)

PROMPT

THERE

STEPS

ISSUE A 'RESTART'' COMMAND (SAME AS START COMMAND EXCEPT

THAT

ISSUE A "'CONTINUE'' COMMAND

THE

HARDWARE

QUESTIONS ARE

NOT ASKED)

(EXECUTION

WILL

RESUME

BEGINNING
OF
THE PARTICULAR HARDWARE TEST (MOST DJAGNGCSTICS
CONSIST OF A NUMBER OF THESE) THAT IT WAS IN WHEN
THE
ERROR
HALT OCCURED.

THIS

THE ERROR WILL BE REPORTED AND THE

WILL
BE
REISSUED (BECAUSE THE HOE
ARE FOUR DIFFERENT WAYS YOU CAN GET

SEQ 0008

NO QUESTIONS ASKED.

ISSUE A "PROCEED'® COMMAND:
EXECUTION
WILL
RESUME
AT
THE
INSTRUCTION
FOLLOWING
THE
ERROR
REPORT (THIS IS A SPECIAL
COMMAND AND (AN BE ISSUED ONLY AT A HALT ON ERROR).
TYPICAL

THING

TO DO HERE

DIFFERENT FLAG SETTINGS.

ISSUE

THE

PROBABLY YOU WOULD WANT

PRO/FLAGS: IER: OF : HOE -0

PROCEED,

TO SAY

BUT

WITH

J
Page 9
THIS WILL

STUDY

THE

FOLLOWING:

TURN ON THE

TURN ON THE LOE FLAG

TURN OFF

RESUME

THE

IER

EXECUTION AT

ERROR OR SCCPE

CHOICES:

START

RESTART

CONTINUE

FLAG

THE HOE FLAG

WHEN YOU'VE SEEN ENOUGH,
QUT
OF
THE
LOOP
AND
THREE

(INHIBIT ERROR PRINTOUT)

INSTRUCTION AFTER ERROR REPORT

IT OR WHATEVER.
YOU MAY HIT CONTROL/C.
THIS
WILL
TAKE
YOU
PUT YOU BACK INTO (OMMAND MODE.
YOU NOW HAVE

LET'S SAY YOU'VE REPAIRED THE DEFECT FOUND ABOVE AND
RUNNING

THE

DIAGNOSTIC.

YOU WOULD

TYPE

WANT

FINISH

AND

RESUME

CON/FLAGS:HOE
: JFR-C:LOE -0
THIS WILL

RESTORE

ThE

FLAGS

THEIR

ORIGINAL

VALUES

EXECUTION
AT
THE BEGINNING OF THE HARDWARE TEST YOU WERE IN.
ERROR DOES NOTM RECUR, "HE EXECUTION WILL FLOW RIGHT
ON
THRU
NEXT ERROR OR TO END OF PASS.
ELO?EFEND OF

PASS

START

RESTART

YOU WANT

TO RUN THE

YOU WCJ
D (HOOSE ONE, DEPENDINC
RARDWARE QUESTIONS AGAIN.

DIAGNOSTIC

ON WHE THER

AGAIN,

YOU WANTELC

YOU

IF
TC

THE
THE

HAVF

TWO

ANSWER

THE

SEQ 0009

Page 10
FROM

THE

ABOVE

DIALOGUE MIGHT LOOK LIKE

UNIT 2

? 0O

N
8

(0)

DRIVE

(SR (0) ?
VECTOR (0) ?
BR LEVEL (O) ?
DRIVE (0) ? 1
CHANGE SW (L) ? N
gggK:fTHARD ERR 00004

?
VECTOR (0) ?
BR LEVEL (O)

? 2

(D)

UNIT 1
(SR (0)

# UNITS

TST 003 SuB 002 P(:004130

AR AN N RN AR AR

THIS POINT

THE

ERROR UNTIL

AR R AR AR AR

THE DIAGNOSTIC

DS-B>PRO/FLAGS:
JER:LOE : HOE-O
AR R AR

RRR AR R

IS LOOPING ON THE

ERROR WITHOUT PRINTING ANYTHING.
YOU HAVE

AR AR

LOCATED

YOU CAN SCOPE

1T,

THEN “C

OUT

CHANGE

(L)

? N

L)
-

CHANGE SW (L) ? N
DZRKXX EOP 1
DS-B>RESTART/PASS:
1

OO0

LA SRR S2Rdadtiidti
iz
ss
s
sltsd
TSR
TR EY

~C
DS-B>CON/FLA
:HOE : 1ER:LOE=0
GS

T
1L
N

MEM (K) (D) 16 ?
DS-B>STA/PASS:1/FLAGS
:HOE

OCOO0O0O0

COO0O0O0

N 2

SOHZ (L) N 2
LSI (L) N?
LPT (L) N ?

KXX

DZRKXX
L=CLK (L)

THIS:

8y
WHOM
ENTERED

jrivivioiviviviviviolvivivivivlelvivivivieole
o)

R DIR

PRINT-OUTM

OO0

FULL

\rivliviviels]

THE

SEQ 0010

Page 11

2.2

HOW TO CREATE A CHAINABLE FILE

THE DIAGNOSTIC

CHAIN MODE.

AS RECEIVED FROM RELEASE ENGINEERING CANNOT BE

THA IS WHY

IT BEARS THE EXTENSION 'BIN'' INSTEAD OF

$SSBSEI§0? WAY, HOWEVER, TO

C(REATE

CHAINABLE

PROGRAM

RUN

FROM

'BIC''.

WHAT

IT CONSISTS OF RUNNING THE PROGRAM WITH
THE
SPECIAL
COMMAND
'‘CCI'’
ISSUED
WHERE
YOU WOULD NORMALLY ISSUE A START COMMAND (TO THE PROMFT
DS-8>.
THIS
COMMAND
C(AUSES
THE
DIJAGNOSTIC
TO
GO
THRU
ALL
THE
QUESTIONS AND ANSWERS AND THEN TO HALT, JUST WHERE IT WOULD ORDINARILY
BEGIN EXECUTION OF THE HARDWARE TEST CODE.
AT THIS POINT YOU CAN DUMP
EHEE

g?ggRfigchS

HERE

IS A SAMPLE

XTEN

)

SITS

DIALOGUE

.R UPD2

RESTART:

CORE

THE

LOAD MEDIUM,

WITH

THE

NEW

TG ACCOMPLISH THIS:

XXXXXX

*(LR
*L0AD DIAG.BIN

XFER:200
CORE:0,60602
*START 200
L=CLK (L) N ?

DS-B>CC(I

# UNITS

(D)

CHANGE SW
PTAB END:

72 4

(L) ? N
60632

1222222202200
822 2223823323 82232221

*AT THIS POINT THE MACHINE HALTS AND*
*YOU MUST RESTART AT ADDRESS
XXXXXXx
LA 22282020802

2220280222232

2222

*HICORE 60632

CORE:

0,60632

*DUMP DKO:

THE RESULT OF

DIAG.BIC

DOING THIS

CONTAINING THE XXDP COMMAND

THAT

YOU (AN NOW BUILD AN XXDP CHAIN

FILE

.R DIAG.BIC
AND THE DJAGNOSTIC WitL EXECUTE WITHOUT MANUAL INTERVENTION,
ANSWERS THAT YOU GAVE IT WHEN YOU DID THE (Cl COMMAND.

USING

THE

SEQ 001

2.5

DETAILS OF

2.3.1

TABLE OF

THERE

ARE

SUBSETS OF

COMMANDS AND SYNTAX

COMMAND VALIDITY

FOUR WAYS OF

ENTERING DIAGNOSTIC

COMMAND MODE,

HOW ENTERED
1.

AND DIFFERENT

THE DIAG COMMAND SET ARE AVAILABLE WITH EACH:
LEGAL

OPERATOR ENTERED

'R'UN DIAG'

COMMANDS

START
PRINT

DISPLAY
FLAGS

ZFLAGS
2.

DIAGNOSTIC HAS FINISHED ALL
ITS REQUESTED PASSED

START
RESTART
PRINT
DISPLAY
FLAGS

ZFLAGS

OPERATOR INTERRUPTED THE

AN ERROR WAS ENCOUNTERED

START

DIAGNOSTIC WITH CTRL/(C

WITH

THE

HOE

FLAG SET

RESTART
CONT INUE
PRINT
DISPLAY
FLAGS
ZFLAGS
START

SET

RESTART

CONT INUE

PROCEED
PRINT

DISPLAY

FLAGS

ZFLAGS

2.3.2 COMMAND SYNTAX
AR AR AR AR AR AN RN A AR A A RANA RN AR AN AR AR R

A RN CAAANRANRARANANNRARNANRE
AR RN

STA(RT)/TESTS:TEST=LIST/PASS
:PASS=CNT/FLAGS :FLAG-=LIST/EOP:EOP~-INCR
AR

RARSRRRd

THE DIAGNOSTIC

SPECIFIED.

dal

IN CORE

ittt

IS EXECUTED

etttz

ACCORDANCE

THE MESSAGE '# UNITS?'' IS PRINTED.

WITH

222822228 X

THE

SWITCHES

THE START COMMAND MAY

BE ISSUED WHEN DIAGNOSTIC COMMAND MODE HAS BEEN ENTERED VIA ONE OF THE
FOLLOWING:
A)
OPERATOR TYPED 'RUN DIAGNOSTIC'' B) DIAGNOSTIC fINISHED
EXECUTING () ERROR WAS ENCOUNTERED
WITH
HOE
FLAG
SET
D)
OPERATOR
ENTERED CONTROL/C.

SEQ 0012

M
Page 12

AFTER THE OPERATOR RESPONDS TO '# UNITS?'', THE
HARDWARE
DIALOGUE
IS
INITIATED.
WHEN
IT
IS
COMPLETED,
THE
QUESTIONS
‘''CHANGE SW?'' IS
ISSUED, AND THE ANSWERS, IF GIVEN, BECOME THE NEW DEFAULTS.
THEREFORE
ll)gFAlIJETSh‘ECESSARY TO RELOAD THE PROGRAM IN ORDER TO RETURN TO THE LOAD
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

THE

NUMBER

(ALL SELECTED TESTS) AGAINST ALL
UNITS
SUMBITTED.
THE
DEFAULT
NON-ENDING
EXECUTION..B
'FLAG-LIST'' IS A SEQUENCE OF ELEMENTS OF

IS
THE

HOE

HALT ON ERROR, CAUSING COMMAND MODE TO BE

ENTERED

LOE

LOOP ON ERROR, CAUSING THE DIAGNOSTIC TO

LOOP

LARGEST
TEST
NUMBER IN THE DIAGNOSTIC.
THEY MAY BE SPECIFIED [N ANY
ORDER.
TESTS WILL BE EXECUTED IN NUMBER]JCAL ORDER REGARDLESS
OF
THE
ORDER OF SPECIFICATION.
THE DEFAULT IS TO EXECUTE ALL TESTS.
"PASS-CNT*' IS A
PASSES.

PASS

DECIMAL
IS

NUMBER

DEFINED AS

INDICATING

THE

FORM <FLAG>, <FLAG=1>, OR <FLAG=0>,
HAS ONE OF THE FOLLOWING VALUES:

IER

IBE

IXE
PR]

ERROR

THE

EXECUTION OF

SEPARATED BY

THE

FULL

COLONS,

IS ENCOUNTERED

WITHIN
THE
SMALLEST
DEFINED
BLOCK
OF
SUBTEST, OR TEST) CONTAINING THE ERROR
INHIBIT ERROR REPORTING

DJAGNOSTIC

WHERE

<FLAG>

WHEN

CONTINUQUSLY

C(ODING

(SEGMENT,

INHIBIT BASIC ERROR REPORTS

INHIBIT EXTENDED ERROR REPORTS
DIRECT ALL MESSAGES TO A LINE PRINTER
PRINT NUMBER OF TES BEING EXECLUITED

PNT
BOE
UAM

BELL ON ERROR
RUN IN UNATTENDED MODE, BYPASSING MANUAL

1bU

INHIBIT DROPPING OF UNITS BY DIAGNOSTIC

ISR

DESIRED

INHIBIT STATISTICAL

REPORTS

INTERVENT]ON TESTS

SEQ 0013

Page 13

Page 14
THE FLAGS NAMED OR EQUATED TO1

ARE

SET,

"EOP-INCR'’ IS A DECIMAL NUMBER

INDICATING

CLEARED.
A FLAG NOT SPECIFIED IS CLEARED.
GIVEN ALL FLAGS ARE CLEARED.
PASSES)
DEFAULT

IT
IS
DESIRED THAT THE END OF
IS AT THE END OF EVERY PASS.

AR AR AR

AR AR A AR A AR

AR AR AR R AN

THOSE

[IF

EQUATED

ARE

THE FLAGS SWITCH IS NOT

HOW

OFTEN

(IN

TERMS

PASS MESSAGE BE PRINTED.

R AN AN RN RN RAN

THE

NN AARARARAANNRAAARARRNRANNRRANAS

RES(TART) /TEST: TEST=LIST/PASS :PASS=CNT/FLAGS
: FLAG=LIST/EOP:EOP-INCR/UNITS:UNIT-LIST
AR

A A

A A N

R R

R R R A

R AR A

A AR

R AR R AR A AR A A AR A AR AR AR AR AR R RNRRRRARRRRR AR

THE DIAGNOSTIC IN CORE IS EXECUTED IN
ACCORDANCE
E(F;E?EI;}!\’ED.SESWEVER' NEW P-TABLES ARE NOT BUILT.
USED.
THE QUESTION "'CHANGE

NEW
DEFAULTS.
ENTERED VIA A)
THE

SW?'' IS ASKED,

GIVEN BECOME

THE

THE
COMMAND
MAY BE ISSUED WHEN COMAND MODE HAS BEEN
DIAGNOSTIC IS FINISHED B) HALT ON ERROR () CONTROL/C.

SWITCH ARGUMENTS ARE AS

AND THE ANSERS

WITH
THE
SWITCHES
INSTEAD, THE ONES IN

IN THE

START

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 COMMAND.
THE

UNIT-LIST DEFAULTS TO 'ALL THAT
HAVE
NOT
BEEN
DROPPED
BY
OPERATOR
COMMAND''.
THE EFFECT OF THE UNIT=LIST LASTS UNTIL
THE NEXT START (WHERE IT IS AUTOMATICALLY RESET TO "‘ALL'"»
OR
THE NEXT RESTART.

L3RS

ALL UNSPECIFIED FLAG SETTINGS ARE UNCHANGED.

AR shildtslililasdsisssasiszalssslasyy

CON(TINUE) /PASS : <PASS-CNT/FLAGS : <FLAG=LIST>
L0828 0daRddddilisldisdsdisdissitissss
ey y

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 THAT WAS BEING EXECUTED WHEN THE HALT OR
(ONTROL/C
TOOK
PLACE.
SOF TWARE
DIALOGUE
MAY OPTIONALLY BE REEXECUTED.
HARDWARE PARAMETERS
MAY NOT BE CHANGED.
THE

SWITCH ARGUMENTS ARE

THE

START

COMMAND EXCEFT:

DEFALT FOR PASS-CNT

UNSPECIFIED FLAG SETTINGS ARE UNCHANGED

THE

PREVIOUS START OR RESTART

UNSATISFIED

PASS-CNTM

FROM

THE

SEQ 0014

Page 15
L 4222230033202

08228223208323222322]

PRO(CEED) /FLAGS : <FLAG-LIST>
A33233803020220
02 222 2 2]

COMMAND MODE MUST HAVE BEEN ENTERED VIA A HALT ON ERROR.
THE
EFFECT
OF
THE
COMMAND
IS
TO BEGIN EXECUTION AT THE LOCATION FOLLOWING THE
ERROR CALL.
NEITHER HARDWARE NOR SOF TWARE PARAMETERS MAY BE ALTERED.
THE

SWITCH ARGUMENTS ARE

AR AR A AR

THE

SAME AS

THE

START

COMMAND EXCEPT:

UNSPECIFIED FLAG SETTINGS ARE UNCHANGED

RN AT AT AR A AR AR AR AN AN

AN N AR RRRANANRAANNRARRARAARNAR
RS

CCI/TEST:TEST-LIST/PASS:PASS~CNT/FLAGS:FLAG-LIST/EOP:EOP-INCR
LAAAAARAd

Rl anl

222

222223

THE DIAGNOSTIC EXECUTES THRU ALL OPERATOR DIALOGUE AND
HALTS
AT
THE
HARDWARE
TEST
CODE.
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
RUN
MANUALLY
OR
IN
CHAIN
MODE.
IF RUN MANUALLY IT CAN BE

EITHER WITH A “'START'' (IN WHICH CASE

IT
IS
INVOKED
IT WILL BEHAVE LIKE THE BIN FILE:

THE
PRE-GENERATED
ANSWERS
TO OPERATOR QUESTIONS WILL BE IGNORED) OR
UHH SE'REEEI)\RT" (IN WHICH CASE
THE
PRE-GENERATED
OPERATOR
ANSWERS
WILL
V)
.

If RUN IN CHAIN MODE, AUTOMATIC EXECUTION
WwILL
COMMENCE
IMMEDIATELY
EERG?SSLEOE XXDP COMMAND ''.R DIAG''.
THE COMMAND PROMPT ‘DS-B>'' WILL NOT
ANY SWITCHES SPECIFIED ON THE CCI COMMAND WILL CARRY OVER WHEN THE BIC
FILE
IS
RUN
IN CHAIN MODE (EXCEPT THAT UAM IS ALWAYS SET THERE) BUT
WILL NOT CARRY OVER WHEN IT IS RUN MANUALLY.

TO DO A CCI

ON A FULL

SIZED DIAGNOSTIC

(14.5K WORDS),

MACHINE

SIZE

LARGER
THAN
16K IS REQUIRED.
THE EXACT SIZE NEEDED DEPENDS ON WHICH
UTILITY IS USED TO EXECUTE THE DIAGNOSTIC AT C(C1 TIME.
L0228 22203002282¢2
221

DRO(P) /UNITS:UNIT-LIST
(3222203222820

THE UNITS

ggOCLE’E“I;IL
THERE

22220202222

SPECIFIED ARE

START

DROPPED FROM TESTING UNTIL

(OMMAND

THEY ARE

IS GIVEN.

A DROP CANNOT BE

IS ALSO A 'DROP'' MACRO INTERNAL

TO THE DIAGNOSTIC,

THE
FACILITY
OF
AUTO-DROPPING.
THE
DURATION
HOWEVER, IS ONLY UNTIL THE NEXT START OR RESTART.

ADDEC BACK

FOLLOWED BY A

WHICH

GIVES

A PROGRAM DROP,

SEQ 0015

Page 16
4288022003220
8 222

ADD/UNITS:UNIT-LIST
\ A82233223203233
0 32221

THE UNITS SPECIFIED ARE ADDED BACK (THEY
MUST
HAVE
DROPPED
BY
THE DROP COMMAND) TO THE TEST SEQUENCE.
FOLLOWED BY A PROCEED.
TR

BEEN
PREVIOUSLY
AN ADD CANNOT BE

RNR

PRI(NT)
Atk Akt

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

A8 8222

THE

a0ddlildiissislls
]

DIS(PLAY)/UNITS:<UNIT-LIST>
L8230 32

0232323223232

2222222232322

THE HARDWARE P-TABLES FOR ALL UNITS UNDER TEST ARE PRINTED OUT IN
FORMAT IN WHICH THEY WERE ENTERED.
ANY UNITS THAT WERE DROPPED BY

OPERATOR 'DROP'' COMMAND ARE SO DESIGNATED.

THE
THE

L32482
24

FLA(GS)
TR
AN Y

THE

CURRENT

L2 4208

SETTINGS OF

ALL

FLAGS ARE

PRINTED.

8484

ZFL (AGS)
L2282848
&4

ALL

2.4
THE

FLAGS ARE

CLEARED.

EXTENDED P-TABLE DIALOGUE
FULL

CAPABILITY OF

THE

HARDWARE

DIALOGUE

FOLLOWING DISCUSSION OF WHAT HAPPENS INTERNALLY.

REVEALED

THE

AS SOON AS THE QUESTION '# UNJTSY?''
]S ANSWERED
(WITH
THE
NUMBER
N,
SAY)
SPACE
IN CORE IS ALLOCATED FOR N P-TABLES.
ALL OF THE P-TABLES
ARE OF THE SAME FORMAT,
AND
THERE
IS
A
ONE-TO-ONF
?SA:EEN
THE HARDWARE PARAMETER QUESTIONS AND THE SLOTS

(ORRESPONDENCE
IN THE P-TABLE

SEQ 0016

Page 17
ON_THE FIRST TRIP THRU THE QUESTIONS, ALL OF

P-TABLES

ARE

FILLED.

THE

THE SLOTS IN ALL

OPERATOR TYPES

IN LESS

THE

THAN N EXPLICIT

VALUES IN RESPONSE TO A PARTICULAR QUESTION, THESE VALUES
ARE
PLACED
IN
THE P-TABLES (ONE VALUE GOING INTO THE PROPER SLOT OF EACH P-TABLE
BEGINNING WITH THE FIRST
P-~TABLE)
UNTIL
THE
STRING
OF
VALUES
IS
EXHAUSTED.
THE LAST VALUE THAT SLOT IN THE REMAINING P-TABLES.
ON_SUBSEQUENT TRIPS THRU THE QUESTIONS, THE SAME
PROCESS
IS
CARRIED
OUT, EXCEPT THAT THE EARLIEST P-TABLE NOT TO HAVE RECEIVED AN FXPLICIT
VALUE IN ANY OF ITS SLOTS NOW ASSUMES THE ROLE THAT TABLE
NUMBER
ONE
PLAYED IN THE FIRST TRIP,
THE SERIES OF QUESTIONS IS REISSUED UNTIL AT LEAST
RECEIVED N EXPLICIT VALUES FROM THE OPERATOR.

ONE

QUESTION

HAS

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 VALUES MAY BE GIVEN AS A RANGE (6-10 FOR EXAMPLE).
IF THE
VALUES
REPRESENT
PURE NUMERICAL DATA, THIS SAMPLE RANGE TRANLATES T0
THE STRING
6.,7.8,9,10
(AN
INCREMENT
OF
1).
IF
THE
VALUES
ARE
ADDRESSES,
THE
SAMPLE
RANGE
TRANSLATES
TO
THE
STRING 6,8,10 (AN

INCREMENT OF 2).

NOW LET US SEE HOW WE COULD USE THESE CAPABILITIES TO CONSTRUCT A
SET
Of
P-TABLES.
ASSUME THAT WE HAVE 64 UNITS, AND THAT THERE ARE THREE
HARDWARE PARAMETERS FOR
EACH
(THREE
SLOTS
IN
THE
P-TABLE,
THREE

HARDWARE
QUESTIONS
IN
THE DIALOGUE).
LET THE DESIRED VALUE FOR THE
FIRST PARAMETER BE THE NUMBER 75 FOR ALL 64 TABLES.
LET
THE
DESIRED

VALUE
FOR
THE
SECOND
FARAMETER
BE
FEQUAL
TO
THE
UNIT
NUMBER
(1,2,3,...,64) EXCEPT FOR UNIT 50, WHICH SOULD RECEIVE THE
VALUE
49,
LET THE DESIRED VALUE FOR THE THIRD PARAMETER BE THE NUMBER 76 FOR THE
FIRST 20 UNITS AND THE NUMBER 77 FOR THE LAST 44 UNITS.
THE

FOLLOWING DIALOGUE

# UNITS

(D)

UNIT 1

<QUESTION 2> ?

UNIT 21

WOULD ACCOMPLISH

1-20

<QUESTION

3> 2?2 77

<QUESTION 2> ? 21-49,,51-64

THIS GOAL
:

SEQ 0017

€2

F
2
Page 18
THE FIRST TIME THE SERIES IS ASKED, SLOT ONE RECEIVES A 75 IN
TABLES.
SLOT TWO RECEIVES THE VALUES 1,2,3,...,20 IN TABLES 1

AND A CONSTANT 20 IN

TABLES

CONSTANT 76 IN ALL 64 TABLES.

THRU

64.

SLOT

THREE

ALL
64
THRU 20
RECEIVES
A

THE SECOND TIME THRU THE SERIES, TABLES 2! THRU THE END ARE
GOING
TO
BE
AFFECTED
(NOTE
THAT THIS PIECE OF [(NFORMATION IS PRINTED OUT FOR
THE OPERATOR IN THE FORM 'UNIT xX'' AT THE BEGINNING OF EACH SERIES).
QUESTION 1 IS RESPONDED TO BY A <CR>, 350 SLOT ONE STAYS A CONSTANT
75

TABLES 21

THE

DIALOGUE

THRU 64, SINCE NO NEW EXLICIT VALUES ARE TYPED IN.

SLOT

TWO GETS THE VALUES 21,22,23,....49 IN TABLES 21 THRU 49, AND
GETS
A
49
IN
SLOT 50, AND GETS THE VALUES 51,52,53,...,64 IN TABLES 51 THRU
64.
SLOT THREE GETS THE VALUE 77 IN TABLES 21 THRU 64.
IS

EXPLICIT
VALUES
QUESTION 2).

2.5
THE

TERMINATED

HAVE

BEEN

WwHEN

GIVEN

THE

FOR

SOFTWARE

THAT

(NAMELY

HARDWARE PARAMETERS
FOLLOWING QUESTIONS WILL BE

ASKED ON A START

LOCATED
TO
THE
LEFT
OF THE QUESTION MARK
WILL BE TAKEN ON A CARRIAGE RETURN RESPON(CEt.
RL1T

(L)

BUS ADDRESS

(0)

AN RL11

(0>

(0)

THAT

CONTROLLER,

NO(N)

YOU

HAVE

"HE

CONTROLLER.

INTERRUPT VECTOR OF

THE

CONTROLLER.

ANSWER WITH THE

DRIVE

VALUE

330?

ANSWER WITH THE

BR LEVEL

IHE

174400?

ANSWER WITH THE BUS ADDRESS OF

VECTOR

COMMAND.

IS THE DEFAULT VALUE

¥?

ANSWER YES(Y) IF YOU HAVE
RLV11 CONTROLLER.

INTERRUPT PRIORITY OF

THE

(ONTROLLER.

TO THE

C(ONTROLLER.

ANSWER WITH THE DRIVE(S)

2.6

RECOGNIZES

AT LEAST ON QUESTION

CONNECTED

SOF TWARE PARAMETERS

THE FOLLOWING QUESTIONS ARE ASKED IF REQUESTED ON A START, RESTART, OR
CONTINUE.
THEY ALLOW FLEXABILITY IN THE WAY THE PROGRAM BEHAVES.
THE
SOF TWARE PARAMETERS GIVE THE PROGRAM FLEXIBILITY IN THE WAY
T
RUNS.
THE
PARAMETERS
(AN
BE
MODIFIED ON A START, RESTART, OR CONTINUE BY
ANSWERING (Y)ES TO THE FOLLOWING QUESTION:

SEQ 0018

Page 19
CHANGE

S.wW.

A YES ANSWER WILL ASK

THE

FOLLOWING SOF TWARE PARAMETER QUESTIONS, WITH

THERE

PARAME TERS.

THE
PRESENT
DEFAULT
VALUE PRINTED TO THE LEFT OF THE QUESTION MARK.
(THE LAST ANSWER GIVEN [S THE DEFAULT) THE DEFAULT IS TAKEN ON A <(CR>.
ggg;ROL
Z
(1)
WILL
DEFAULT
ALL REMAINING QUESTIONS AND START THE

ARE NO SOF TWARE

3.0 ERROR INFORMATION
ERROR INFORMATION IS COMPLETE IN
GIVING
ALL
INFORMATION
NECESSARY.
ALL
REGISTERS
ARE GIVEN AS WELL AT TRACK, SECTOR AND DRIVES INVOLVED
IN ERROR.

3.1

ERROR REPORTING

ALL ERROR INFORMATION IS PRINTED ON THE CONSOLE DEVICL.
ERROR REPORTS
ARE AIMED AT BEING SELF EXPLANATORY.
THE GENERAL FORMAT ]S:

DZRL?

XXX

ERR

YYYYY

TST

227

SUB

PPP

P(:

RRRRRR

:
WHERE
?
XXX

IS PROGRAM LETTER
IS SFT - SOFT ERROR
HRD - HARD ERROR

DV FAT - DEVICE FATAL ERROR
SYS FAT - SYSTEM FATAL ERROR

YYYYY

117

PPP
RRRRRR

THE

IS
IS

THE SUBTEST NUMBER
THE PROGRAM LISTING LOCATION

IS THE

ERROR NUMBER

TEST NUMBER

ERRORS GIVE THE REGISTER CONTENTS BEFORE AND
AFTER
WITH A ONE LINc DESCRIPTION AND RELEVENT DATA.

THE

ERROR

ALONG

:
EXAMPLE

ONE LINE DESCRIPTION
(OPTIONAL
(OPTIONAL

BEFORE
AFTER

SECOND LINE)
THIRD LINE)

CS:XXXXXX BA: XXXXXX DA:XXXXXX MP:XXXXXX

CS:XXXXXX BA:XXXXXX DA:XXXXXX MP: XXXXXX

OTHER PERTINENT

INFORMATION IS GIVEN AT

THIS

FOUND

IN SECTION S.0.

TRYING

TO READ VERIFY

TIME.
FRROR DESCRIPTIONS

ERROR READING SECTOR
ERROR WAS ENCOUNTERED WHILE
WAS WRITTEN BY

THE

SAME

DR]IVE.

THE

SECTOR AFTER

SEQ 0019

Page 20
MINIMUM OF

TWO DRIVES REQUIRED

THE PROGRAM REQUIRES AT ([ EAST

MAXIMUM OF
THE

TO PROVE

COMPATABILITY,

FOUR DRIVES ALLOWED

PROGRAM ONLY ALLOWS A MAXIMUM OF

CAN'T FIND FIVE ADJACENT
THE

TWO DRIVES

PROGRAM REQUIRES

FOUR DR]IVES.

TRACKS

TEN SETS CF

FIVE

ADJACENT

SPOTS
ACRQOSS
THE
PACK.
IT WAS UNABLE
ADJACENT TRACKS IN THE LIMITS GIVEN.

TRA(CKS AT PREDETERMINED

TO FIND FIVE

COMPLETELY GOOD

ERROR WRITING SECTOR
AN ERROR WAS ENCOUNTERED WHILE

OVERWRITE

THE

GIVEN SECTOR.

ERROR

AN ERROR WAS ENCOUNTERED WHILE

BY ONE

TRYING TO WRITE

DRIVE.

BOTH DRIVES

TRYING

TO READ DATA AFTER AN

INVOLVED ARE

OVERWRITE

GIVEN.

READ RECOVERY ERROR

AN ERROR WAS ENCOUNTERED WHILE
ADJACENT

TRACK

TRYING TO RECOVER ANOTHER DRIVES DATA,

TEST

AN ERROR WAS ENCOUNTERED wHILE

DESCRIPTION IS GIVEN.

THE

ADJACENT

TEST

PARY,

FLRTHER

3.2 ERROR HALTS
ERROR HALTS ARE
/FLAG:HOE.

4.C PERFORMANCE

4.1

SUPPORTED PER DESCRIBED

THERE

ARE

IN THE PREVIOUS

NO OTHER HALTS.

AND PROGRESS REPORTS

PERFORMANCE REPORTS

THIS PROGRAM WILL

NOT GIVE

ANY PERFORMANCE REPORTS.

4.2 PROGRESS REPORTS
THIS PROGRAM wILL

NOT

GIVE

ANY PROGRESS REPORTS.

SECTION

WITH

SEQ 0020

€2

5.0 DEVICE

INFORMAT|ON TABLES

AN}
B
I
B
- B IO I
LI I

BIT
BIT
BIY
BIT
BIT

S VOANOVO

—
—

—

@
@

BIT 1
BIT 1
BIT 1
BIT 1

CONTROLLER HAS
SUBSYSTEM,

THE RLT1/RLV11
CONTROL OF THE

THF

EXTENDED BUS ADDRESS

NOANE WO

FOUR(4)

COMPOSITE ERROR
DRIVE ERROR
NON EXISTANT MEMORY ERROR
HEADER NOT FOUND (WITH BIT 10 SET)
DATA LATE (WITH BIT 10 CLEAR)
HEADER CRC (WITH BIT 10 SET)
DATA CRC (WITH BIT 10 CLEAR)
OPERATION INCOMPLETE
~ DRIVE SELECT (0-3)
CONTROLLER READY
INTERRUPT ENABLE
EXTENDED BUS ADDRESS (BIT 17)

BIT 3-1 - FUNCTION CODE

BIT

FOLLOWING

NOP

(PDP=11)

WRITE

CHECK

GET DRIVE
SEEK

(BI!

MAINT

16)

(LSI-11)

STATUS

READ HEADER
WRITE DATA
READ DATA
READ WITHOUT

HEADER COMPARL

0O - DRIVE READY

RLBA = BUS ADDRESS REGISTER

(XXXXX2)

BITS 15-1 BUS ADDRESS OfF DATA TRANSFER
BIT O SHOULD BE O
RLDA - DISK

ADDRESS REGISTER

FOR READ/WRITE

(XXXXX&4)

FUNCTIONS

T 15 - MUST BE ZERO(0Q)
T 14-7
- CYLINDER ADDRESS FOR TRANSFE®
T 6 = SURFACE FOR TRANSFER
T 5~0 - SECTOR FOR TRANSFER (0~47)
FOR SEEK

BIT

FINCTION

15 - MUST BE 7ERO(0)

REGISTERS

FOR

SEQ 0021

Page 21

Page 22
1

IRV ]

3
P

R
I

7 - DIFFERENCE TO NEW CYLINDER
= MUST BE ZERO(O)
SURFACE
MUST BE ZERO
SEEK DIRECTIONC 1 - IN / O - OUT
MUST BE ZERO
MUST BE ONE(1)

)

GET STATUS FUNCTION
15-4 - IGNORED SHOULD BE

3 - DRIVE RESET
2 =~ MUST BE ZERO
1

ZERO

- MUST BE ONE

0 - MUST BE ONE
RLMP ~ MULTIPURPOSE

FOR READ/WRITE

FUNCTION

BIT 15 = 0 - WORD COUNT(TWO'S COMPLIMENT)
FOR READ HEADER FUNCTION

BIT 15-0 - DISK HEADER OF

SECTOR (FIRST READ)
= ZERO WORD (SECOND READ)
= HEADER CRC (THIRD READ)

FOR GET

STATUS FUNCTION

b
b
—t

Pt St Pe

| WSO NOOOVO —=NIWEH N

]
]

)

g P

et e

St Bt By by

Bt Bt St By P

oofoolusfookeouefoedooduotoskoofoodookos)

o ~—f —f

HAS DRIVE

STATUS
WRITE DATA ERROR
CURRENT HEAD ERROR(CHE)
WRITE LOCK STATUS(WL)
SEEK TIME OUT(SKTO?
SPIN ERROR(SPE)
WRITE GATE ERROR(WGE)
VOLUME CHECK(V()
DRIVE SELECT ERROR(DSE)
RESERVED
(0)
SURFACE
COVER OPEN
HEADS HOME
BRUSHES HOME

2 0 -STATE BITS
0 - LOAD STATE
1

= SPIN UP

2 = BRUSH CYCLE
3 - LOAD HEADS

SEQ 0022

NO NS

Page 23
SEEK = TRACK COUNTING
SEEK = LINEAR MODE
UNLOAD HEADS
SPIN DOWN

6.0 TEST SUMMARIES
THE FOLLOWING IS A BREIF DESCRIPTION OF THE WAY THE PROGRAM
EXECUTES.
THE
PROGRAM
WILL
CHE(K COMPATIBILITY BETWEEN 2 - 4 DRIVES USING THE

SAME RLOTK CARTRIDGE.
THE

PACK BETWEEN THE

PLACE

THE PROGRAM WILL ASK THE OPERATOR

DRIVES GIVEN
PACK

IN DRIVE

UNLOAD DRIVE
PLACE

PACK

SEQUENCE

DRIVE

WHEN

THE

FOLLOWING MANNER.

SEQUENCE

N ON CONTROLLER X AND LOAD

IN DRIVE

IN THE

N+1

ON CONTROLLER

X AND

LOAD

ON CONTROLLER X

ORDER

THAT WAS GIVEN

IN THE

HARDWARE

? 0,1,2,3

PROGRAM WILL

SEQUENCE 0,1,2.3.2.1.0

PROGRAM WILL

SEQUENCE

FIRST DRIVE

N ON CONTROLLER X

UNLOAD DRIVE N+1

THE PROGRAM WILL
QUESTIONS.
.E.

IN THE

IS LOADED

THE

1,0,3,2.3.0.1

PROGRAM WILL ATTEMPT

FIND

TEN

SETS
OF
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
IS
DONE
THE
OVERWRITE
TEST
IS
PREPARED(FIRST
DRIVE
CAN'T
OVERWRITE) AS WELL AS THE ADJACENT TEST.
AS

THE

PACK

CYCLED BETWEEN CRIVES

THE

FOLLOWING

CHECKS ARE

MADE
:

EACH DRIVE CAN OVERWRITE EACH OTHER DRIVE

EACH DRIVE

CAN RECOVER EACH OTHERS DATA

tACH DRIVE CAN WRITE ADJACENT TO EVERY OTHER
DRIVE WITHOUT DISTURBING THE OTHER'S DATA.
READS AND WRITES

BOTH DIRECTIONS.
ADJACENT WRITES

TAKE PLACE AFTER SEEKS FROM
TAKE PLACE

TO BOTH SIDES OF

EACH WRiTE

SEQ 0023

Page 24
TESTS ARE

PERFORMED AT

ALL

TEN SPOTS

ACROSS

THE

PACK.

SEQ 0024

MAIN.
MACY11 30A(1052)
22-NOV-78
CZRLFB.P11
22-NOV-78 15:47

26
84

253
293

400
699

1902

15:54
TABLE OF

CONTENTS

GLOBAL EQUATES SECTION
GLOBAL DATA SECTION

GLOBAL TEXT SECTION
GLOBAL ERROR REPORT SECTION
INITIALIZATION SECTION
GLOBAL SUBROUTINES SECTION

DIAGNOSTIC SUPERVISOR =-- LOW CORE SET UP

SEQ 0025

CZRLFB.P11

22-NOV~78 15:47

PAGE 1

002000

.=2000

000000

Sv(
SVCINS=0
SVC(TAG=0

000000

002000

/R/
/L/
/F/

0
0

/B/

/0/
0

bSHARD

L SHW
0
LSLAST

$DISPAT(H

002112
002112
000000
000000
000014

002070
002072
002074
002076
002100

Pol

(4)
(4)
(4)
(4)
(5)

<
<

LASCI1
LASCII
LASCII
.BYTE
BYTE
.BYTE
LASCI
LASCI1
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

103

132
122
114
106
000

MDHEDR
HEADER
CZRLf .8,0,0,0,0,RLO1,1
LASCII /¢/
LASCI] 2/

002000

002001
002002
002003
002004
002005

BGNMOD

—

002000
002000

POINTER NONE

—

(4)

(4)
(4)
(4)
(4)
(6)

15:54

—=O0O ~re or- slelslolelgliglelelelgfellole]
o~
Lo
Lol
ad

002000

}?
12
13
14
15
16
17
18

22-NOV=-78

.ENABLE AMA
.ENABLE ABS
.NLIST
ME,CND,MD

2
3
5
9
8
9

30A(1052)

SEQ 0026

MACY11

ASSEMBLY ROUTINES

ASSEMBLY ROUTINES
MACY11
CZRLFB.P11
22-NOV~78 15:47

(4)
(4)
(4)

002102
002104
002106

30A(1052)

22-NOV-78

000000
022052
023324

15:54

WORD
.WORD
.WORD

B .3
PAGE 1-1

SEQ 0027

0
LSINIT
LSCLEAN

ENDMOD

DEVREG

000000
000001
046122
002122

030460

000

.WORD
.BLKW

DEVTYP
.ASCIZ
.EVEN

<RLO1>
/RLO1/

.SBTTL GLOBAL EQUATES SECTION

.DEF INITIONS
31

002122

BGNMOD

GLBECAT
EQUALS

000000
000002
000004
000006

(S=0
BA=2

000600

CSR=0
VEC=2
DSB=4

s CONTROLLER ADDRESS
sVECTOR OF CONTROLLER

PAT=6

;DRIVE SELECT
;PATTERN UNIQUE TO DRIVE

DRDY=8B]TO0

:DRIVE READY

ERR=BIT1S
DERR=BIT14

s COMPOSITE ERROR
;DRIVE ERROR

DA=4
MP=6
;CONSTANT OFFSETS FOR

INTEN=BIT6

NXM=BIT13

;CONTROL AND STATUS OFFSET
;BUSADDRESS OFFSET

;DISK ADDRESS OFFSET
¢MULTI PURPOSE OFFSET
INDIVDUAL DRIVE BUFFERS

: INTERRUPT ENABLE
sNON-EXISTANT MEMORY ERROR

DLT=BIT1?2

;DATA LATE

HCRC=BITI
HNF=BIT1?

sHEADER CRC ERROR
sHEADER NOT FOUND ERROR

BA17=8BITS

;EXTENDED BUS ADDRESS BIT 17

DCRC=BIT11

OPI=BIT10
CRDY=BIT7

BA16=B] T4

CRSET=8BIT1

GSTAT=BIT?
SEEK=BIT1!BIT?
RDHDR=BIT3

WRITE=BIT3!BIT?
READ=BIT3!BIT2

DRST=BIT3!BIT1!R]TM"
GSBIT=BIT1!BIT0

;DATA CRC ERROR

;OPERATION INCOMPLETE ERROR
;CONTROLLER READY

;EXTENDED BUS ADDRESS BIT 16

;CONTROLLER RESET FUNCTION CODE

;GET DRIVE STATUS FUNCTION CODE
s SEEK FUNCTION CODE
:READ HEADER FUNCTION CODE

;WRITE FUNCTION CODE
JREAD FUNCTION CODE
;DRIVE RESET COMMAND CODE FOR DRIVE COMMAD WORD
;GET STATUS COMMAND CODE FOR DRIVE COMMAND WORD

ASSEMBLY ROUTINES
MACY11
CZRLFB.P1
22-NOV~78 15:47

83
gg

1-2

SEQ 0028

;MARKER BIT FOR DRIVE COMMAND WORD(SEEK,GET STATUS)

000020
000100

SKHS=BI T4
HEAD=BIT6

JHEAD SELECT FOR SEEK
JHEAD SELECT FOR READ,WRITE,GET STATUS

SIGN=BIT?

:DIRECTION FOR SEEK(0=AWAY FROM SPINDLE)

;JOFFSET FOR HARDWARE P-TABLE
000000
000002
000004
000006
000010

CsR=0
VECT=2

PRIOR=4
DRBT=6
RLCNT=10

002122

ENDMOD
.SBTTL GLOBAL DATA SECTION

86
87
88
gg

002122

BGNMOD

GLBDAT

91
92
93
94
95
9
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122

002122
002124
002125
002126
002127
002130
002131
002132
002133
002134
002135
002136
002137
002140
002141
002142
002143
002144
002145
002146
002147
002150
002151
002152
002153
002154
002155
002156
002157
002160
002161
002162

HDRFND:
ouT10:
ouT20:
our30:
OUT40:
OuT50:
ouT11:
our21:
ouT31:
OUT4l:
oUTS1:
oQu1Q:
0Qu20:
oQu3Q:
0Qu40:
oQuU50:
oQull:
oQL21:
oou3l:
oQuel:
ooUS1:
MID10:
MID20:
MID30:
MID40:
MID50:
MID11:
MID21:
MID31:
MID41:
MID51:
TQU10:

.WORD
.BYTE
.BYTE
.BYTE
.BRYTE
.EYTE
B¥YTE
.BYTIE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BY'E
.BYTE
.BYTE
.38YTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.RYTE
.BYTE
.BYTE

123

MK=B1T0

;2
75
76
7
78
79
80
81
82

22-NOV~78
15:54
PAGE
GLOBAL EQUATES SECTION

000001

000004

70
;}

30A(1052)

002163

000000
000
000
000
000
000
600
000
000
000
000
000
000
000
000
000
000
000
000
000
000
000
000
000
000
000
000
000
000
000
000
000

000

TQu20:

.BYTE

0
O
0
O
0
0
0
0
O
0
O
O
0
O
O
O
0
O
0
0
O
O
O
0
O
0
0
0
0
0
O
0

;1-HEADER IN BAD SECTOR LIST

ASSEMBLY ROUTINES

CZRLFB.P1

MACY11
22-NOV=-78 15:47

002164
002165
0021€6
002167
002170
002171
002172
002173
002174
002175
002176

22-NOV-78
15:54
PAGE 1-3
GLOBAL DATA SECTION

.BYTE

TQU4O:
TQUSO:
TQU11:
TQU21:

.BYTE
.BYTE
.BYTE
.BYTE

TQU4l:
TQUS1:

.BYTE
.BYTE

TQU31:

INN10:
INN2O:
INN30:
INNGO:
INNSQ:
INN11:

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

O
0
O
0
O
0

INN31:
.NN41:
INN51:

.BYTE
_BYTE
.BYTE

.EVEN

SEQ 0029

.BYTE

0
O
O
O

.BYTE

INN2T:

—_—

30A(1052)

TQu30:

S LNy
=

—

SOEIRGKR WN=2O000~N

_a;_a.a_a_a_a_a_a_a,a_n_a_»
WA CIWWNINOND

124
125
126

O
O

0
J
0

;SECTOR LIST FOR LAST DRIVE WRITTEN
;MAP OF 16 SECTOR DRIVE BITS
000020

SECLST:

.BLKW

16,

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

ad ond ek

O@\:O\hbwf\)doog\l&m QOOOO\nmmmmv\m
W=
OV
NN NSW

000170

SECBUF:

5%24.

D el e

sLIST OF TRACKS USED TO OVERWRITE TEST.
;FIRST FIVE ARE BYTE ADDRESSES OF TOP SURFACE.
;LAST FIVE ARE BYTE ADDRESSES OF BOTTOM SURFACE.

OVWTRK: 0OUT30

0Qu30

b e

mMID30
TQU30

INN30
ouT31
0Qu31

b —t

MID31
TQU31
INN3

002171
002203
PATLST:

.WORD

—O——

152525
133333
066666
155555

FOWR :
FAD,:
TEMP:

.WORD
.WORD
.WORD

REASON:

,WORD

OOOOO0O

b
b
e eed
md
) —md
D emd
el el
ed
d

NANNNNNNNNNOPONQRON

—

.BLKW

.WORD
.WORD
.WORD

LSTCLR:
ERFLG:

.WORD
.WORD

JLAST CONTROLLER
;DRIVE ERROR REASON
JERROR FLAG

ASSEMBLY ROUTINES
MACY11
CZRLFB.P11
22-NOV~78 15:47

180

181
182

183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208

002676

002700
002702

002704
002706
002710
002712
002714
002716
002720
002722
002724
002726
002730
002732
002734
002736
002740
002742
002744
002746
002750
002752
002754
002756
002760
002762
002764
002766

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

003010

000000

209
210
211
212
213
214
215
216

002770
002772
002774
002776
003000
003002
003004
003006

218
219
220
221
222
223
224
ggg

003012
003014
003016
003020
003022
003024
003026
003030

gsg

017030

217

232
240
(1)
(1)
(1>

g};

000000

000000
000000

017030
017032
017034

017036

30A(1052)

22-NOV-78
15:54
PAGE
GLOBAL DATA SECTION

STFLG:

.WORD

ADJDIR: .WORD
DRSTAT: .WORD
HSFLG:
.WORD
OSECT:
.WORD
HEADO1: .WORD
DIRC:
.WORD
DESCYL: .WORD
REVSK:
.WORD
FORSK:
.WORD
WJT:
WORD
SECT:
.WORD
LSTDRV: .WORD
GDATA:
.WORD
BDATA:
_WORD
WCOUNT: .WORD
SECWRD: .WORD
OFFSET: .WORD
LSTTRK: .WORD
FRTTRK: .WORD
PRSTRK: .WORD
SURFACE: .WORD
TRKFND: .WORD
TRKCNT: .WORD
E.CS:
.WORD
E.BA:
.WORD
E.DA:
.WORD

0
0
O
O
O
O
O
0
0
0
O
O
O
J
O
0
O
0
O
0
0
O
0
O
O
O

ADJLOC:
ADJFLG:

.WORD
.WORD

1-4

3
SEQ 0030

;PROGRAM START UP FLAG

O
0

sTRACK INDEX FOR ADJ. CYL TEST
;FLAG FOR ADJ. STORE OR RETRIEVE

sADJACENT SEEK DIRECTION

s SURFACE FLAG
;DIRECTION OF SEEK
sPACK SURFACE
sREVERSE SEEK
:FORWARD SEEK
sUNIT UNDER TEST
:SECTOR
sLAST DRIVE
:GOOD DATA
sBAD DATA
sWORD COUNT
:SECTOR WORD
s INCREMENT
sLAST TRACK OF SEARCH
sFIRST TRACK OF SEARCH
sPRESENT TRACK
s SURFACE
; TRACK FOUND
¢ TRACK COUNT
s IMAGE OF CSR
;IMAGE OF BUS ADDRESS
;IMAGE OF DISK ADDRESS

000000
000000
000000
000000
000000
000000
000000
000000

E.MP:
E.MP1:
E.MP2:
B(S:
BBA:
BDA:
BMP:
SERNM1:

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

O
O
0
0
0
0
0
O

s IMAGE OF MULTI-PURPOSE WORD 1
;
'
"
2
;s
o
'
"3
s COMMAND LOADED
sBUS ADDRESS LOADED
;DISK ADDRESS LOADED
;WORD COUNTI LOADED
;SERIAL NUMBER OF CATRIDGE

000000
000000
000000
000000
000000
000000
000000
006000

ADJTRK:
ADJWT:
ADJLCZ:
ADJLC3:
ADJLC4:
STSEC1:
STSEC:
BUF :

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.BLkw

0
O
O
O
0
O
0
3072.

s INSIDE/OUTSIDE FLAG
JUWT FOR "ADJCYL''
;TEMP LOC FOR '‘ADJCYL"'
S
"
"
"
;v
'
'
"
JSECTORS TO WRITE "‘ADJCYL"'
s
N
N
N
JBUFFER FOR 24 SECTOR READS

SERNM?:

_WORD

DRBUF :

002000
000002
000004

000006

;DRIVE INFORMATION BUFFERS

(SR
VEC
DS8

PAT

sCONTROLLER ADDRESS
JVECTOR
;DRIVE SELECT BITS

;PATTERN UNIQUE TO DRIVE

017040
017042
017044
017046

000000
000002
000004
000006

SEQ 0031

017050
017052
017054
017056

000000
000002
000004
000006

CSR
VEC

s CONTROLLER ADDRESS
;VECTOR

PAT

JPATTERN UNIQUE

DSB8

sDRIVE SELECT BITS

TO DRIVE

CSR
VEC

;CONTROLLER ADDRESS
JVECTOR

PAT

JPATTERN UNIQUE

(SR
VEC

;CONTROLLER ADDRESS
;VECTOR

PAT

JPATTERN UNIQUE

DSB8

017060
017062
017064
017066

;DRIVE SELECT BITS

017070

DSB8

000000

ENDBUF:

017072

——d
e
i

;DRIVE SELECT BITS

.SBTTL GLOBAL TEXT
GLBTXT
BGNMOD

017072

b ed

.WORD

TO DRIVE

JEND OF DRIVE BUFFERS

ENDMOD

046124
047522
047522
044516
054101

020122

—r

Y =

_ QO

—d

d \ N\

—

ON—=ONIFVN
nonO
=N NWVINWNOIO
N &

RISIRER

i \ S|

= OO
——

QNNO—‘NNOO
POPNLWVI NN — N

b md e \S) b

H TMo
(¥,]
NN = (N = O NN

;GLOBAL

TEXT

CNTTOT:
INITWR:
DCKER:
FEW:

.ASCIZ
_ASCiZ
.ASCIZ
LASCIZ

OWMES:
RECMS:
ERRFND:
OWER:
RECER:
FUNERR:
SKER:

.ASCIZ
_ASCIZ
_ASCIZ

MANY :
NONE :

—d

d
D
)

PN PN

N
o

N PN

Nl "

D d d cnd d

22-NOV~78
15:54
PAGE 1-5
GLOBAL DATA SECTION

) ed e

N TN NN PN

N
N

d
d
D
—d

Nl "l N

PN TN TN LN TN

30A(1052)

ASSEMBLY ROUTINES
MACY11
CZRLFB P11
22-NOV~-78 15:47

FWD:
REV:

WRITI
READ1:
ADJTXT:

LASCIZ
LASCIZ

_ASCIZ
.ASCIZ

.ASCIZ
LASCIZ

.ASCIZ
ASCIZ

.ASCIZ
_ASCIZ
,ASCIZ

SECTION

/CNTLR TIMED OUT/
/ERROR ON RECOVERING INITIAL WRITE BY FIRST DRIVE
/ERROR ON READ/
/MINIMUM OF TWO DRIVES REQUIRED/

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

/TRYING TO OVERWPITE DRIVE /
/TRYING TO READ DATA WRITTEN BY DRIVE
/CAN'T FIND FIVE ADJACENT TRACKS/
/OVERWRITE ERROR/
/READ RECQVERY ERROR/
/ERROR IN SEEK OPERATION/
/MIS SEEK ERROR/

/FORWARD/
/RCUVERSE/

/ERROR WRITING SECTOR/
/ERROR READING SECTOR/
/ADJACENT CYLINDER TEST/

CZRLFB.P11

30A(1052)

22-NOV-78

15:54

GLOBAL TEXT SECTION

6 3
PAGE 1-6

SEQ 0032

.EVEN

017756

ENDMOD

017756

.SBTTL GLOBAL ERROR REPORT SECTION
BGNMOD
GLBERR

017756

BGNMSG

017756
017756
017762
017772
017776
020002

013746
013746
013746
012746
012746
010600

020006

062706

017766

104014

PRINTB
MOV
MOV
MOV

002754
002746
002750
021270

MOV
MOV
MOV
EMT
ADD

000004
000012

L 10000:

104023

BGNMSG

005046
156416
016446

012746
012746

000010
0¢5144

L10001:
BGNMSG

002730
(9)

(8)
(8

002720
020126

002721

#FRM10,FRTTRK,LSTTRK,SURFACE
SURFACE ,=(SP)
LSTTRK,=(SP)
FRTTRK ,=(SP)

#FRM10,=(SP)
#4,-(SP)
SP,RO
(SPNTB
#12,SP

ENDMSG

EMT
ERR2

CSMSG

PRINTB

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

[ 01Y)

#3,-(SP)

CLR
81S8
MOV
MOV

000005
000000
020771
000003

ERR1

MOV
EMT
ADD
JSR
ENDMSG

EMT
ERR3

=(SP)
DSB+1(R&4)
, (SP)
CSR(R4) ,-(SP)
#FRMS
- (SP)
SP.RO
CSPNTB

#10,SP
PC ,REGDMP

JREGISTER DUMP ROUT INE

CIMSG
’

PRINTB
CLR

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

MOV

#FRM4
, = (SP)

MOV
EMT
ADD
JSR
PRINTB
MOV
CLR
8158
(LR

SP,RO
CSPNTB
#1C,SP
PC ,REGDMP
;REGISTER DUMP ROUTINE
#FRMS5,<B,DESCYL+1>,<B,DESCYL>,SECT
SECT,=(SP)
-(SP)
DESCYL, (SP)
= P)

8158
MOV

MOV

BISB

DSB+1(R4), (SP)
CSR(R4) ,-(SP)

#3,-(SP)

DESCYL+1,(SP)

~>»
|

MACY11
22-NOV-78 15:47

ASSEMBLY ROUTINES

ASSEMBLY ROUTINES
MACY11
CZRLFB.P11
22-NOv-78 15:47

(7
(6)

020132

(3)
(4)
(4)

(9)
(9)
(8)
(7)
(6)
(3)
(4)
(&)
312

#12,SP
‘§§916'CSR(R3)'<B'DSB+1(R3)>

000005
000000
021621
000003

DSB+1(R3),
(SP)
CSR(R3) ,-(SP)

010600
104014

062706

021032

HFRMS,=(SP}
#4 ,~(SP)

SP,RO
CSPNTR

N#FRM16,~(SP)

#3,-(SP)

000010

ADD

L10002:

104023

BGNMSG

005046
156416

016446
012746

(3)

012746
010600

(4)

062706

104014

318
319

004737

10)
(9
(9)
(8)
(8)
(7)
(6)

013746
005046
153716
005046
153716
012746
012746
010600

104014

000005
000000
020771
000003

000010
025144
002730
002720

002721
021032

000004

062706

000012

1
10)
(9)
(8)

013746
013746
013746
013746

(6)

002732
002670
002732
002672
021101
000005

(4)
(4)

000014

(7)

(3)

321
020350
020354

002716
021122
000002

SP,RO
CSPNTB

#10,SP

ENDMSG

EMT

CIMSG

ERR4
PRINTB

(4)
(4)

320

SEQ 0033

000012

156316

(4)

062706

016346
012746
012746

(9)
(9)
(8)
(7)
(6)

(8)
(7)
(6

15:54
PAGE 1-7
GLOBAL ERROR REPORT SECTION

000004

005046

313
(3)
(3)
314
315
316
317

22-NOV-78

012746
012746
010600
104014

30A(1052)

CLR
BISB
MOV
MOV
MOV
MOV
EMT
ADD
JSR

PRINTB
MOV

CLR
B1SB
CLR
BISB
MOV
MOV
MOV
EMT

ADD
PRINTB

MGV
MOV
MOV

#FRMG4 ,CSR(RG) ,<B,DSB+1(R4)>

(SP)

,
(5P)
DSB+1(R4)
CSR(R4) ,-(SP)

NFRM4
- (SP)

#3,-(SP)

SP,RO
CSPNTB

#10,SP

PC ,REGDMP

;REGISTER DUMP ROUT INE

#FRMS,<B,DESCYL +1>,<B,DESCYL>,SECT
SECT
= (SP)

=(SP)
DESCYL, (SP)
=(SP)
DESCYL+1, (SP)
#FRMS
.- (SP)
#4,-(SP)

SP RO
CSANTB

#12,SP
#FRM6 ,REASON,LSTDRV,LSTCLR,LSTDRV
LSTDRV,~(SP)

LSTCLR.~(SP)
LSTDRV.=(SP)
REASON.
= (SP)
NFRMG,~ (SP)

#5,-(SP)
SP.RO
CSPNTB

214 ,SP
#FRD
M7
IRC

DIRC,=(SP)

#7°M7
- (SP)

n2,-(SP)

ASSEMBLY ROUTINES
MACY11
CZRLFB. P11
22-NOvV-78 15:47

020360
020362
020364
020370
020370
020370

30A(1052)

15:54
PAGE 1-8
GLOBAL ERROR REPORT SECTION

010600
104014

062706

MOV
EMT
ADD

200006

L10003:

104023

020372

BGNMSG

005046
156416
016446
012746
012746
010600
104014

062706
004737

000010
025144

L 12004:
BGNMSG

005046
156416
016446
012746

012746

010600
104014

062706
004737

000610
025144

013746
010146
012746
012746
010600

002770

104014

062706
020516

020520

021032

047045
045
047045
045
040445

ERRS

PRINTB

L 10005:

CSPNTR

CSMSG

‘igg?.CSR(Ré).<B.DSB*1(R4)>
,
(SP)
DSB+1(R4)
CSR(R4) ,-(SP)

#10,SP
PC ,REGDMP

EMT

CIMSG

ENDMSG

ERRG

PRINTB

#FRML
, - (SP)

#3,-(SP)
SP,R0O
CSPNTB

#FRg4.CSR(R4),<B.DSB41(R4)>
=-(SP)

DSB+1(R4),
(SP)
CSR(R&) ,-(SP)

HFRM4 ,~(SP)

MOV

#3,-(SP)
SP,RO

ADD

#10,SP

PRINTB

HFRM17
R ,E .MP
E.MP,-(SP)
R1,-(SP)
#FRM17 ,~(SP)
#3,-(SP)

JSR

000010

MOV
MoV
MOV
MOV
MOV
EMT
ADD
ENDMSG

EMT

CSPNTB

PC ,REGDMP

SP,RO
CSPNTB

#10,SP
$MSG

:FORMAT

STATMENTS

040445

FRM1
:

042510

FRMS:
FRMS:

LASCIZ
LASCIZ
.ASCIZ

FRM?:
FRM3:

SEQ 0034

#6,SP

MOV
MOV
MOV
MOV
EMT
ADD
JSR

EMT

021706
000003

104023

EMT

CLR
BISB
MOV
MOV
MOV

000005
000000
020771
000003

ENDMSG

CLR
BISB

000005

104023

22~NOV-78

ASC12

ASCIZ

/INXAUNLOAD DRIVE %Z01XA ON CONTROLLER X06XA AND REMOVE PACKIN/
/INXAPLACE PACK IN DRIVE XO01XA ON CONTROLLER XO6XA AND LOADXN/

!XNXAWRONG PACK

# IS X05X05XA # S/B %0S%OSXNAN!

/ ACONTROLLER: XO6XA DRIVE:
/%AHEAD: %01ZA (YL: XZ3%A SECTOR:

XZ2%N/

CZRLFB.P11

021101
021122
021162
021226

MACY11
22-NOV-78 15:47
045
040445

022524

022516

30A(1052)

22-NOV-78
15:54
PAGE 1-9
GLOBAL ERROR REPORT SECTION

030517

FRM6 :

LASCIZ

/XTXO1%A ON ZO6IN/

FRM8:
FRMO:
FRM10:
FRM11:
FRM12:
FRM13:
FRM14:
FRM15:
FRM16:
FRM17:

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

'XAWORD: XZ3%A S/B: X06XA WAS: YO06IN!
/XD3XA WORDS BAD OUT OF 128 READIN/
/XABETWEEN XZ3XA - XZ3XA HEAD: Y01XIN/
/INZAPWR FAIL NOT SUPPORTEDIN/
/XABEFORE CS: Z06%A BA: X06%A DA: X06XA MP: %06/
/XINXAAFTER
(S: YO6XA BA: Y06XA DA: Y06ZA MP: XO6IN/
/XNXA DRIVE STATUS: %06/
/XNXACAN'T FIND BAD SECTOR FILE/

ENDPAS:

.ASCIZ

/XNXA END OF PASSINAN/

045104
023520
047125
020101

FRM? :

LASCIZ

FRM18:

_ASCIZ

/XASEEK DJRECTION: XTINXADATA:IN/

/XAADJACENT WRITTEN BY CONTROLLER: Z06%A DRIVE:
/XAEXP'D: Y¥O6X%A REC'D: X06XN/
/INXAUNLOAD ALL DRIVES TO BE USEDXN/

LEVEN

022032

ENDMOD

022032

022032
022032

022034

BGNMOD

000005

HPTCODE

BGNHW

174400
000160
000240
000000
000001

.WORD

L10006-L$HW/?

LWORD
.WORD
.WORD

174400
160
240

.WORD
WORD

0
1

ENDHW
L 10006:

022046

ENDMOD

022046
022046
022050

BGNMOD

000001
031056

DISPAT(CH

022052

022052
022052

DSPCODE

.WORD
.WORD

—f
b

022046

ENDMOD

.SBTTL
BGNMOD

INJTIALIZATION SECTION
INITCODE

BGNINIT

SEQ 0035

XO1IN/

ASSEMBLY ROUTINES

ASSEMBLY ROUTINES
MACY11
CZRLFB. P11
22-NOV-78 15:47

404
405

(3
(3)

406
407
408
409
410

(3)

(%)
(5)
&

412

022052
022052
022056

012700

200340

022060
022066

023727
002005

002012

104041

022070
022070
022072
022074
022076

000023
017212
000137

022102
022110

023727
003405

022112
022112
022114
022116
022120

022124
022132
022134
022140
022144
022150
022152
022152

30A(1052)

22-NOV=78

000002

023300
000004

90%:

023300
002012

002726

017030
002652
002726

91%:

002012
017030
002664
002662
000034

103010

104017

.WORD
JMP

FEW
CMPENA

MP
BLE

44
LSUNIT
91%

021334
000001

002726

END:

SEQ 0036

JMORE THAN TWO
JYES, OKAY

;CLEAN CODE WHEN < 2 DRIVES

;MORE THAN FOUR
.NO,

OkAY

20. ,MANY
T$ERCODE

WORD
.WORD

20
MANY

CMPENA

;CLEAN CODE WHEN > 4 DRIVES

MoV
CLR

LSUNIT,uUT
R1

MOV

HPATLST ,R2

;GET NUMBER OF UNITS
JINIT P-TABLE
;SET UP DRIVE BUFFER
;GET LIST OF PATTERNS

BEQ

END

TST

GPHARD
MOV
EMT

002726
000010

022262

TSERCODE

MOV

1%:

K
3
1-10

19.,FEW

TRAP

JMP

000004
000006

012746
012746
010600

LSUNIT
42
908

TRAP

000000
000002

012700
104050

MP
BGE

ERRSF

010100

005037

#340
#340,R0
($SPRI

LWORD

104421

013737
005001
012704
012702
005737
001422

SETPRI
MOV
EMT

ERRSF

002012

PAGE

INITIALIZATION SECTION

104421

000024
017251
000137

15:54

MOV
MOV
TST
MoV
MOV
TST
INC
DEC
ADD
BR
MOV
MOV
CLR
CLR

READEF

#DRBUF ,R4
wJT

R1,R0
R1,R0

C$GPHRD
(RO)+,CSR(R4)
(RO)+,VEC(R4)
(RQ)
+

(RO) ,DSB(R4)
(R2) ,PAT (R&)
(R2)+
R1
wT
HPAT+2
R4
1%
LSUNIT,uuUT
#DRBUF ,R4
FADJ
FOWR
#EF .PWR

MOV
#EF .PWR,RO
EMT
C$REFG
P
SET
BNCOMPLETE
BCC
SETUP
PRINTF
MOV
MoV

MOV

EMT

#FRM11
#FRM11,-(SP)
#1,-(SP)
S~ ,RO
CSPNTF

P-TABLES LEFT?
;ANY
:NO,GO TO END

JGET A P-TABLE

;GET CSR
;GET VECTOR
;SKIP PAST BR
;GET DRIVE
JNEXT P TABLE
JNEXT DRIVE

;GET BEGINNING OF BUFFER
;CLEAR ADJ. TEST FLAG
;CLEAR OVERWRITE FLAG

(4)

443

022264

062706

30A(1052)

22-NOV=-78
ADD

;WE ATTEMPT TO LOCATE
;ACROSS THE PACK.

446

SEQ 0037

#4 ,SP

;INITIALIZE ROUTINE

445

PAGE 1-11

INITIALIZATION SECTION

000004

444

15:54

;THE S SPOTS ARE:

5 PERFECT ADJACENT TRACKS AT 5 SPOTS

(EACH SURFACE)

;OUTER - TRACK 0 = 16
:INNER - TRACK 238 - 254
;MIDDLE - TRACK 120 - 136
;ONE QUARTER - TRACK 56 - 72

;THREE QUARTER - TRA(CK 184 - 200

:IF WE FIND ANY BAD SPOTS, WE WILL REPORT SO
022270
022274
022302

005237
012737

002676
177777
177777

012746

021742
000001

MOV

000004
030460
030030
027374
002124
000031
177777

ADD

012737

003006
003010

SETUP:

027562

022374

022376
022402

005737
001005

002756

017462
017756
000404

022416
022422

012700
004537

002124
027774

022426
022432

004537
000001
000001
000

027562

#1,-(SF)
SP,RO

MOV

#25. RO

DEC
BNE

RO
1%

;GET SERIAL NUMBER

;MERGE BAD SECTOR FILES
JINITIALIZE ALL TRACKS

#177777.(R1)+
RS, FNDTRK

0,16.

;TRY TO FIND FIVE
* INWARD SEARCH
:TOP SURFACE
*TRACK RANGE

TRKFND

;WAS SEARCH SUCCESSFUL??7??

ERRHRD
TRAP
.wORD

10.,ERRFND,ERR1

{3ERCODE

TRACKS

TYES
;NO TRACKS

.WORD
.WORD

ERRFND
ERR1

2%:

MOV
JSR

#0UT10,RO
RS, FIXCYL

;STORE AWAY TRACKS FOUND

JSR

RS ,FNDTRK

;TRY TO FIND FIVE

BYIE

0,16.

020

#0UT10,R1

;TELL OPERATOR TO LOAD

JSR
1
0
.BYTE
BNE

104463
000012

CSPNTF

#4,SP

JSR

MOV

;INDICATE A START (COMMAND

HFRM18,-(SP)

RS5.LOAD
RS, SERNUM
R5 ,MERGE

MOV

020

022404
022404
022406
022410
022412
022414

MOV
MOV

JSR
JSR

1%:

STFLG

#-1,SERNM1
#-1,SERNM?
#FRM18

EMT

001374

004537
000001
000000
000

INC

MOV
MOV
PRINTF

------------

1
1

. INWARD SEARCH
;BOTTOM SURFACE

s TRACK RANGE

TRACKS

ASSEMBLY ROUTINES
MACY11
CZRLFB. P11
22-NOV=78 15:47

490

022440
022444

005737
001005

30A(1052)

22-NOV-78

15:54

TST
BNE

INITIALIZATION SECTION

002756

022446
022446
022450
022452
022454
022456

ERRHRD
TRAP

022460
022464
022470
022474
022476
022500

002131
027774
027562

022502
022506

002756

4%:

5%:

356

NV IV, TV, IV, [V, [V, IV, IV, 1V, IV, 1V, ]

e N T

OO0 NS

NN SO

PAOVIVNIWNINN
— b =
D b b b 2

TRKFND

10. ,ERRFND,ERRT
TSERCODE

.WORD
. WORD
. WORD
BR

10
ERRFND
ERR1

MoV

#0UT11,RO
RS,FIXCYL
RS ,FNDTRK

JSR
J?R

0
.BYTE
TST

022510
022510
022512
022514
022516
022520
509

M
3
PAGE 1-12

s WAS

JYES

SUCCESSFUL????

;NO TRACKS

’54.,238.
TRXFND

BNE

ERRHRD

10. .ERRFND ,ERRT
TSERCODE
10
ERRFND
ERR1
7%

TRAP

SEQ 0038

sSTORE

TRACKS AwWAY

JFIND NEXT 5 TRACK

;OUTWARD SEARCH

;TOP SURFACE

: TRACK RANGE
JWAS

JYES

SEARCH SUCCESSFUL?

:NO TRACKS

;SKIP

022522

002174
027774

6%:

#INN10,RO

;STORE AWAY TRA(CKS FOUND

022532
022536
022540
022542

027562

’%:

RS ,FNDTRK

JNEXT SET

022544
022550

002756

022526

022552
022552
022554
022556
022560
022562

022564
022570

356

254.,238.
TRKFND

8%
TRAP

.WORD

017462
017756
000404

012700
004537

022604

;OUTWARD SEARCH
;BOTTOM SURFACE
: TRACK RANGE
;SEARCH SUCCESSFuUL?

JYES
;NO TRACKS

002201
027774

8%:

MOV
JSR

#INN11,RO
RS,FIXCYL

;STORE AWAY

027562

9%:

JSR

R5,FNDTRK

JNEXT SET

210

005737
001015

.WORD
.WORD
BR

10. ,ERRFND ,ERR1
TSERCODE
10
ERRFND
ERR1
9%

ERRHRD

104463
000012

022574
022600
022602
022606
022612

RS,FIXCYL

002756

0
TST

126.,136.

TnvYFND
10%

TRACKS FOUND

; INWARD SEARCH

. TOP SURFACE

:; TRACK RANGE

:DID WE FIND A SET
JYES

ASSEMBLY ROUTINES
MACY11
CZRLFB. P11
22-NOV-78 15:47

533

022614
022620
022622
022624

004537
202

170

022626
022632

005737
001005

002756

022634
022634
022636
022640

177777

00000

30A(1052)

)

22-NOV-78

JSR
0

104463

022642
022644

022646
022652

012700
004537

002150
027774

022656

004537
000001
000001

027562

176

210

022670
022674

005737
001015

022676
022702
022704
022706

004537
202

170

022710
022714

005737
001005

002756

177777

000001

RS,FNDTRK

SEQ 0039

JNEXT SET (OTHER SIDE)

;OUTWARD SEARCH
. TOP SURFACE

AYTE

130.,120.

s TRACK RANGE

1ST
BNE

TRKFND
108

;DID WE FIND A SET

ERRHRD
TRAP

10.,ERRFND,ERR1
T$ERCODE

.WORD
.WORD

JYES

;NO TRA(CKS

ERRFND

.WORD
BR

ERR1
118

0$:

MOV
JSR

AMID10,RO
RS,FIXCYL

:STORE AWAY

JSR -

RS.FNDTRK

BYTE

126.,136.

JNEXT SET
. INWARD SEARCH
JBCTTOM SURFACE
+ RANGE

002756

1ST
BNE

TRKFND
128

s SUCCESS?
JYES

02562

J?R

RS ,FNDTRK

1
.BYTE

130.,120.

;BOTTOM SURFACE
JRANGE

TST
BNE

TRKFND
128

s SUCCESS?
;YES

022716
022716
022720
022722
022724
022726

000012
017462
017756
000404

022730
022734

012700
004537

002155
027774

022740
022744
022746
022750

004537
000001
000000
076

027562

022752
022756

005737
001015

022760
022764
022766

004537

ERRHRD

104463

177777
000000

PAGE 1-1 3

INITIALIZATION SECTION

027562

000012
017462
017756
000404

15:54

10.,ERRFND,ERR1

;LOOK THE OTHER SIDE

; OUTWARD

;NO TRA(KS

TRAP

T$ERCOUDE

"WORD
.WORD

ERRFND
ERR1

128:

MOV
JSR

AMID11,RO
RS,FIXCYL

;STORE AWAY

THE

138:

RS.ENDTRK

JNEXT SET
s INWARD

.WORD

138

0
BYTE

62.,72.

002756

1S
BNE

TRKFND
148

s SUCCESS?

027562

JSR

RS.FNDTRK

;LOOK OTHER SIDE
s OUTWARD

110

;TOP SURFACE

s RANGE
;YES

s TOP SURFACE

TRACKS FOUND

O >

ASSEMBLY ROUTINES
MACY11
CZRLFB. P11
22-NOv-78 15:47

ASSEMBLY ROUTINES
MACY11
CZRLFB. P11
22-NOV=78 15:47

582
583
584
585
586
(3)
()
(5)

s
~

NOWNESB
WO =0

o Yo Yo Ne Yo Yo Yo Yo 0

—ld_l—l-.l—l—l—l%

~es

[V, 1V, 1V, 1FY)

S2R0R808838¢%%

(5)
587
588
589
590
591
592
593
594
595

022770

102

070

022772
022776

005737

002756

001005

30A(1052)

22-NOV=-78

15:54
PAGE 1-14
INITIALIZATION SECTION
BYTE

66..56.

J RANGE

TST

TRKFND

s SUCCESS?

BNE

ERRHRD

104463
000012

SEQ 0040

14$

10.,ERRFND,ERR1

TRAP

TS$ERCODE

.WORD
.WORD
BR

ERRFND
ERR1
15%

LWORD

JYES

:NO TRACKS

023010

017462
017756
000404

023012
023016

012700
004537

002136
027774

14%:

MOV
JSR

#0QU10,R0
RS.FIXCYL

;STORE AWAY NEXT SET

023022
023026
023030
023032

004537
000001
000001
076

027562

15¢:

oSR

RS .,FNDTRK

;LOOK FOR NEXT SET

.BYTE

62..72.

023034
023040

005737

002756

TST

TRKFND

16%

;YES

004537
177777
000001

027562

JSR

RS ,FNDTRK

;LOOK FOR ANOTHER SET

102

070

BYTE

66.,56.

005737
001005

002756

TST

TRKFND

ERRHRD
TRAP

10.,ERRFND,ERRT
T$ERCODE

023052

023054
023060

001015

110

023062
023062
023064
023066
023070
023072

017462
017756
000404

023074
023100

012700
004537

002143
027774

004537
000001
000000
276

027562

005737
001015

002756

004537

027562

618

002000
302
023136
023142

BNE
-1
1

BNE

104463
000012

177777

005737
001005

1
1

.WORD
.WORD
.WORD

B8R

310

270
002756

e b:

MOV

16%

. INWARD
;BOTTOM

:RANGE

;SUCCESS?

;OUTWARD
;BOTTOM

; RANGE

;SUCCESS?

JYES
;NO TRACKS

10
ERRFND
ERR1

17%

JSR

RS, FIXCYL

#0QU11,R0O

;STORE AWAY TRACKS

JSR

RS5,FNDTRK

JNEXT SET OF TRACKS

0
BYTE

190.,200.

;TOP SURFACE
;RANGE

TST

TRKFND

2 SUCCESS?

JSR

RS ,FNDTRK

;LOOK OTHER SIDE

0
RYTE

194.,184.

;TOP
. RANGE

TST
BNF

TAYFND
18%

s SUCCESS
JYES

BNE
-1

18%

. INWARD

JYES

;OUTWARD SEARCH

ASSEMBLY ROUTINES
MACY11
CZRLFB.P11
22-NOV=-78 15:47

629
630
(3)

(5)
(5)
(5)
ggl

023144
023144

ERRHRD
TRAP

000012
017462
017756
000404

633
ggg

023156
023162

012700
004537

002162
027774

6
637
638
228

023166
023172
023174
023176

004537
000001
000001
276

027562

641
gz%

023200
023204

005737
001015

644

023206

004537

645
646
gzg

023212
023214
023216

649

023220

652
(3)

023226
023226

229

023224

22-NOv-78
15:54
PAGE
INITIALIZATION SECTION

104463

023146
023150
023152
023154

[

30A(1052)

177777
000001
302
005737

001005

18%:

MOV
JSR

#TQU10,RO
RS, FIXCYL

;STORE TRA(CKS AWAY

19%:

JSR
1
]
.BYTE

RS ,FNDTRK

190..,200.

JNEXT SET
; INWARD
;BOTTOM SURFACE
s RANGE

002756

TST
BNE

TRKFND
20%

s SUCCESS?
JYES

027562

JSR

RS,FNDTRK

;OTHER SET

310

-1
1
BYTE

270
002756

TST

023236

655
ggg

023240
023244

012700
004537

002167
027774

20%:

658
659
660
661
662
663

023250
023254
023260
023264
023266
023270
023272
023272
023274
023276
023300
023302
023306
023306
023310
023312

012700
012701
122720
001016
005301
001373

002124
000062
000377

21%:

669
670
671

023314
023316
023320

005300
001373

;NO TRA(CKS

023230
023232
023234

010100
104053
005201

10.,ERRFND,ERRT
TSERCODE

SEQ 0041

10
ERRFND
ERR1
19%

(5)
(5)
(5)
222

104421
000003
017310
005001
013700

1-15

.WORD
.WORD
.WORD

104463
000012
017462
017756
000404

(3)
(5)
(5)
665
666
667
(3)
(3)
668

€

194.,184.

;OUTWARD
;BCTTOM SURFACE
s RANGE

TRKFND

s SUCCESS

BNE

20%

ERRHRD
TRAP

10.,ERRFND,ERR1
T$ERCODE
10
ERRFND
ERR1
21$

MOV
JSR

#TQU11 RO
RS, FIXCYL

;STORE SET AWAY

#0UT10,RO
#50. R1
#377,(RO)+
EXIT
R1
22%
3. NONE
T$SERCODE
3
NONE
R1
LSUNIT,RO
R1
R1,R0
C$DODU
R1

;DID WE FIND ANY AT AlLL

.WORD
.WORD
.WORD

002012

MOV
MOV
22%:
(MPB
BNE
DEC
BNE
ERRSF
TRAP
.WORD
.WORD
CMPENA: CLR
MOV
24%:
DODU
MOV
EMT
INC

DEC
BNE
DOCLN

RO
L3

JYES
;NO TRACKS

;DO DROP UNIT

CZRLFB.P11

023320

MACY11

22-NOV~78 15:47

30A(1052)

22-NOV=78

104044

EMT
EXIT:

023322
023322
023322

L10007:

104011

023324
BGNMOD

023324

SEQ 0042

C$DCLN

ENDINIT

EMT

CSINIT

CLNCODE
BGNCLN

000240

NOP

L10010:

104012

023330
023330
023330
023350
023332
023332
023332
023334

ENDMOD

023324

023326
023326
023326

PAGE 1-16

INITIALIZATION SECTION

023322

023324

15:54

ENDCLN

EMT

C$CLEAN

ENDMOD
BGNMOD

000c40
L10011:

104055

DRPCODE
BGNDU
NOP
ENDDU

EMT

C$DU

ENDMOD
.SBTTL GLOBAL SUBROUTINES SECTION
BGNMOD
GLBSUB

023334

;ALL COMMON OR GLOBAL SUBROUTINES GO HERE
JROUTINE

PRIy
¥)
A B
B
ANOO
HSNNVV=

—
e
ek

02335¢
023362
0253564
023370

SRS 228

023352

(AN 1,81V,1OO0
Y21 Y2
WY
—
£ 08
WW
oo
NN

elelole]

JCALL:
;

TO PERFORM OVERWRITE

RS ,OVWPER
JSR
SECTORS TO WRITE FORWARD
SECTORS TO WRITE REVERSE

OVWPER: MOV

MOV

MOV
MOV
CLR
MOV
MOV

002724
002722
002626
177777

1%:

MoV
MOV
CMPB
BEQ

RO,=-(SP)

;SAVE RO, R1, R2, R3

R2.=(SP)
R3,-(SP)
RO
(R5)+,FORSK
(R5) +,REVSK

;RO HAS COUNT IF RO<S.
JUSE TOP SURFACE, [F RO>S,
:ggfiEBOTTOM SURFACE, IF RC>

#OVWTRK ,R1
(R1) ,R2
n2) A-1
3%

JGET START OF LIST OF TRACKS
;GET POINTER TO TRACK
JLEGIT TRACK?22272?
JNO, EXIT

R1,=(SP)

ASSEMBLY ROUTINES

ASSEMBLY ROUTINES
MACY1 1
CZRLFB.P11
22-NOV-78 15:47

023372
023376

005037

30A(1052)

22-NOV-78

CLR

2%:

023542
023544
023546
023552

023554
023556
023560
023562
023564

CLRB

DESCYL

INCB
JSR

DESCYL+1
RS, SKCYL

(R2) ,DESCYL
RS,SKCYL
FORSK ,R3
R5 . WRSEC
28.

MOV

002720

BIS

#377 ,DESCYL

CLRB

JSR
JSR

CLRB

JSR

002722
023566
017645
025622
026206

RO, #5
2%

002716

002720
002720
024716
023512
023516
023522
023524
023532
023536

DESCYL

cMP
BLT

B1S8
JSR
MoV
JSR
.WORD

023566

0
000377
024716

E 4
PAGE 1-1 I4

GLOBAL SUBROUTINES SECTION

002720
000005

017635
025622

15:54

002716

000012

012603
012602
012601
012600
000205

RS5.,VEROW
RS,VERQOD
DESCYL

R5,SKCYL

sCLEAR CYLINDER/HEAD FOR SEEK
. TOP/BOTTOM
: TOP,

BRANCH

;BOTTOM SURFACE
;SEEK TO CYLINDER
s SEEK TO PROPER CYLINDER

JSECTORS TO WRITE
;GO WRITE SECTORS

sSET FORWARD DIRECTION
;VERIFY OVERWRITE
¢VERIFY OTHER DRIVES DATA
;SET UP FOR SEEK TO
s INNER_GUARD BAND
;DO THE SEEK

BISB
JSR

DESCYL

(R2) ,DESCYL
R5,SKCYL

sSET UP FOR SEEK TO
:DESIRED TRA(CK
;DO ANOTHER SEEK

MoV
JSR
.WORD

REVSK,R3
RS ,WRSEC
28.

;SECTORS TO WRITE
SWRITE THEM

JSR
JSR

#REV,DIRC

R5,VEROW
RS,VEROD

;SET DIRECTION
;VERIFY OVERWRITE
;VERIFY OTHER DRIVES DATA

TST
INC
CMP
BNE

(R1)+
RO
RO,.#10.
1%

; INCREMENT TO NEXT TRACK
JACCOUNT FOR IT
;DONE?
sNO, GO BACK

MoV
MOV
MOV
MOV
RTS

(SP)+,R3
(SP)+,R2
(SP)+,R1
(SP)+,RO
R5

;RESTORE REG.

MOV

3%:

#FWD,DIRC

SEQ 0043

JEXIT

JROUTINE TO WRITE SECTORS
;USED IN OVERWRITE TEST;ADJACENT CYLINDER TEST
JSR
RS, WRSEC
;CALL
;

. WRD

:STARTING SECTOR

*R3 HAS BITMAP OF SECTORS TO WRITE

;R4 HAS DRIVE BUFFER POINTER

WRSEC:

003030
000200
000006

2%:

MOV
MOV
MOV
MOv
MOV

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

DEC
BNF

MOv

:SAVE RO

;SAVE R1
;SAVE R?2

JWRITE PATTERN INTO

:MEMORY THAT WE
;WILL WRITE ONTO

JPACK FOR THIS

;DRIVE

ASSEMBLY ROUTINES

CZRLFB.P11

MACY11
22-NOV~78 15:47

012701

30A(1052)

100000

002720

000100

3%:

4%:

001452

162737

012737
013702
004537
000012
005737
001416
005737
001007

002710
177600
003002
002666
177700
000047

000050
003030
002666
030560

003004

023766
023770
023772
023774

MOV
8158
SWAB
ROR
BIT
BEQ
BIS
BIS

6%:
11%:

002674

CLR

HSFLG

8EQ

BLE
SuB
MOV
MOV

JSR
WRITE
TST

BEQ

002710

10%:

023776

5%:

RN XX XXX
BB R

024016
024022
024026
024034
024040
024044
024046

003012

ADJCY.:

003014
002700

005037

002704

21%:
20%:

RS ,LDFUNC
ERFLG

T$ERCODE

.WORD
.WORD
INC
8R

WRIT1
ERR?
HSFLG
11%

TRAP

TSERCODE

ERRHRD

;0, SKIP

;SET BOTTOM HEAD

JSTART AT SECTOR 36

::SITE THIS SECTOR?

:LOAD WORD COUNT

;LOAD DISK ADDRESS

;SAVE DISK ADDRESS

sLOAD BUS ADDRESS
JRESTORE DISK ADDRESS
;GO WRITE

JERROR IN WRITING
NG, OKAY

110.,WRIT1,ERR?

INC
CLC

BCC
MOV
MoV
MOV
RTS

4%
(SP)+ ,R2
(SP)+ ,R1
(SP)+,R0
RS

CLR

ADJTRK

MOV

#1,ADJUJT

CLR

;JWHICH SURFACE

100

110
WRIT1
ERR?

MoV
MOV
BNE

;MASK FOR BIT MAP
JGET CYLINDER
JPUT IN HIGH BYTE
JALIGN FOR DISK ADDRESS

108
100.,WRIT1,ERR?

.WORD
.WORD
.WORD

CLR

SEQ 0044

¥
R2

6%
#40, ,BDA
#8UF ,BBA
TEMP R2

TRAP

ROR

024014

#-128. ,BMP
R2,BDA
R2 . TEMP

HSFLG

.WORD

002710

TST

BNE
ERRSOFT

104463

#100000,R1
DESCYL.R2
R
R
#400,DESCYL
3$
#HEAD ,R2
(R5)+,R2

R1,R3

(MP

003002
003000

PAGE 1-18

BIT

MOV
MOV
MOv

104464

000144
017655
020014
005237
000760

15:54

GLOBAL SUBROUTINES SECTION

002720
000400

005037
012737
010237
010237
042702
020227
003403

22-NOV-78

HEADO1

#0UT10,R"
(R5)+,ADJLOC
13

ADJDIR

JNEXT SECTOR
;sCLEAR CARRY BIT
.DONE?
JNO GO BACK
JREGISTERS AND EXIT

s INSIDE/OUTSIDE TRACK FLAG
JINIT TO TOP SURFACE
sSTART OF TRACK LIST

*PICK UP TRACK OFFSET
1S THERE ONE?

Al
Ci

CZRLFB.P11

MACY11
22-NOvV-78 15:47

024052
024054
024060
024064
024070
024074

003016
003020
003022
002700
000020

30A(1052)

2%:

024102
024104
024106

024110
024112
024120
024126
024130
024136

3%:
105722

062737
022737
003366

MoV

MOV
MOvVB

RS
(R5)+,ADJLC2
(R5)+,ADJLC3
(R5)+,ADJLC4
ADJLOC,RO

JGET OFFSET
;STARTING SECTOR IS 16

MOV

R1,R2

JGET START INTO R?

DEC
BEQ

RO
4 3

;DOWN COUNT OFFSET
JFOUND IT?

(R2)+

2 INDEX (R2)
sNO, NEXT SECTOR

162737
000762

000050

003026

#40. ,STSEC

121227

000377

000137

024570

024152

005037

002720

024156
024162

005737
001403

002714

024164

052737

000400

026172

004537

024716

024176

111237

002720
024716
017635
002701

4%:

5¢:

002720
0%:

002716

024222

000377

024226
024234

000047

003026

024236
024244

000050
003026

003026
024256

024252
024256
024260
024266
024272
024274
024302
024306
024310

023566

024256
026534

024272

024272
026770

024306

003026

003024

JNO EXIT
JYES, GET REST OF INFO

#16.,STSEC

#34. ,STSEC
#60. ,STSEC

024146

SEQ 0045

MoV

003026
003026

001002

024202

RTS
MoV

000042
000050

024140
024144

15:54
PAGE 1-19
GLOBAL SUBROUTINES SECTION
1%:

003026

22-N0OV-78

sBACK FOR NEXT

(R2) #4377
5%

JYES,

13%

;NO PICK UP NEXT SET

DESCYL

;SET UP FOR OUTER TRACK

HEADO1
6%

JWHICH HEAD?

#400,DESCYL

;LOWER HEAD, SET IT!

RS,SKCYL

;SEEK TO OUTER TRACK

(R2) ,DESCYL

;GET DESIRED TRACK

RS, SKCYL

ADJLOC+1,R3
R3
4377 ,R3

;SEEK TO IT
sSEEK DIRECTION
JGET SECTORS TO WRITE
JALIGN IT
sCLEAR OUT HIGH BYTE

#39.,STSEC
7%

;OVER FORTY?
sNO, CONTINUE

#40. ,STSEC

JYES BACK

RS ,WRSEC

JWRITE SECTORS

RS, VAJWR

JVERIFY THIS WRITE

STSEC,STSEQ

¢GET OTHER SECTORS TO WR]TE

#FWD,DIRC

7%:

8%:
108%:

208%:

STSEC,8%

0
8%.,108%

0
108$,208%
SS.BSVUR

sLEGAL TRACK?

CONTINUE

;TOP, SKIP

IT UP

sSTARTING SECTOR

]

ASSEMELY ROUTINE S

CZRLFB.P11

MACY11
22~NOvV-78 15:47

30A(1052)

H &4
22-NOV=-78
15:54
PAGE 1-20
GLOBAL SUBROUTINES SECTION

SEQ 0046

024316
024324
024332

062737
022737
002003

000010
000047

003024
003024

ADD
CMP
BGE

#8.,STSEC
#39.,STSECT
9%

;8 SECTORS GONE BY
;GONE PAST 40?

024334

162737

000050

003024

SUB

#40.,STSECT

JYES BACK IT UP

024342

013703

003016

MOV

ADJL(C2,R3

JGET SECTORS TO WRITE

024346

013737

003024

MOV

STSEC1,10%

;STARTING SECTORS

024354

004537
000000
013737
004537
000000
013737
004537
000000

023566

RS ,WRSEC

JWRITE SECTORS

10%.,110%
RS, VAJWR

JVERIFY THIS WRITE

9% :
024360

024360
026534

024374

0246374
026770

024410

004537

112737

000377
024716

002720

024424

111237

002720

024430
024434
024442

004537

024716
017645
003021

024446
024450
024454

000303
042703

024462
024466

004537
000000

023566

024470
024476

026466
026534

024502

024502
026770

024576

024524

013737
004537
000000
013737
004537
000000
013703
013737

024532
024536

004537
000000

023566

024540
024546
024552

013737
004537
000000

024536
026534

024552

024554
024562
024566

013737
004537
000000

026552
026770

(024566

024412
024420

012737
113703

013737

10%:
110%:

210%:

002716

]

000377
003026

003022
003024

JSR

.WORD

MOV
JSR

MOV
JSR
.WORD
MOVB
JSR

110%,210%
RS.BSVWR
0
#377 ,DESCYL
R5.,SKCYL

MOVB

(R2) ,DESCYL

;SEEK BACK YO PROPER TRACK

JSR
MOV
MOVR

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

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

SWAB

JALIGN IT

JSR

RS ,WRSEC

JWRITE

MOV
JSR

11%$.7111%
R5,VAJWR

JVERIFY THIS WRITE

111%,211%
RS ,BSVWR
0
ADJLC4,R3
STSEC1,12%

;GET SECTORS
;GET SECTORS TO WRITE

BIC
MOV

024466
11%:

111%:

211%:

024536
12%:

228

:NO, OKAY

.WORD

MOV
JSR
.WORD
MOV
MOV

JSR

#377.R3
STSEC,11%
0

JVERIFY ADJ CYL + 1
;SEEK TO INNER TRACK

;CLEAR OUT HIGH BYTE

.WORD

RS ,WRSEC

JWRITE

MCV
JSR
.WORD

12%.112%
RS, VAJWR
0

JVERIFY

MOV
JSR

112%,212%
RS ,8SVWR

.WORD

PROPER SECTOR

PROPER SECTORS

THIS WRITE

JVERIFY ADJ CYLINDERS + 1

~>
|

ASSEMBLY ROUTINES

026570

005737

30A(1052)

002714

22-NOV-78

TST
BNE
INC
B8R

002714

024622

000137

14%:
99% .

005737

002664

END OF

18%:

003012
024034
003012
003014
003014

15%:

16%:

024710
024714

CLR
INC
CMP
BEQ

002726

024034

TRACK LIST NEXT

JMp
TST
BNE
CLR
RTS

17¢:

002704

JROUTINE

TO SEEK

SEQ 0047
JWHICH HEAD WERE WE DOING?

14$
HEADO1
99%
HEADOQ1
#5.R1
R1,#INNSY
18%
2%

TST
BEQ
CLR
B8R
TST
BNE
INC
JMP

002664

003012

HEADO1

CLR
ADD
MP
BGE
JMP

024070
;AT

024626
024632

4
I
PAGE 1-2

GLOBAL SUBROUTINES SECTION

13%:

002714
000005
002205

15:54

JNEXT SET OF

;NO GO BACK

GROUP OF

FADJ

15%

FADJ

WRITES

;FIRST SET?

JNO, CONTINUE
JYES, CLEAR FIRST
JEXIT
;DONE BOTH INSIDE OUTSIDE

s TRACKS,

ADJWUT
ADJWUT ,uUT

17%
21%
(RS5)+
17%

ADJDIR

TO A DESIRED

;CALL:

JSR

RS,SKCYL

SKCYL:
90%:

MOV
JSR
RDHDR

R1,=-(SP)
RS,LDFUNC

TST

ERFLG

TRACKS

JNEXT SET OF TRACKS
JEND OF LIST
JEND OF TRACK LIST

YES 16%

;NO, SET INSIDE FLAG
;GO DO INSIDE TRACK
;BACK TO OUTSIDE TRACK
;DONE WITH ANOTHER
-DONE TABLE FOR ALL WUT?
JYES,

FOR EXIT

+NO, GO BACK FOR NEXT
JBUMP EXIT TO END OF
:EA?%E FOR PROPER RETURN
JEX

CYLINDER

;ROUTINE HAS DESIRED CYLINDER IN LOC 'DESCYL''
024716
024720
024724

010146
004537
000010

024726
024732

005737
001074

024734
024736
024742
024744
024746
024754
024760
024762
024764
024766
024772
024776

005001
153701
000301
006001
042737
163701

032737

030560

002674

BNE
(LR
BISB
SWAB
ROR

002720

000177
002770

000004
000001
000400

002770

BIC

SUB

B8PL
=

002720

5S¢

R1
DESCYL.R1
R
R1

#177.E.MP
E.MP.R1

NEG

BIS

#SIGN,
R

8IT

#400,DESC
YL

B8R

BIS

# Ri

;SAVE R1
;GET PRESENT PGSITION

JERROR FLAG SET

JYES,

SKIP

cGET DESIRED CYLINDER
:GET IN HIGH BYTE
JALIGN IT
JCLEAR PRESENT HD:SEC
cCALCULATE DIFFERENCE WORD
JIF POSITIVE SET DIRECTION
JNEGATE
JSKIP SETTING DIRECTION
JSET FOR FORWARD SEEK

;SET MARKER BIT

JWHICH HEAD

ASSEMBLY ROUTINES
MACY11
CZRLFB.P11
22-NOV-78 15:47

993

025004

22-NOV-78 15:47

001402

994
995
996
ggg

025006
025012
025016
025022

052701
010137
004537
000006

000020
003002
030560

999

025024

005737

002674

1002
1002

025032
025036

004537
000010

030560

1007
1008
1009

025054
025056
025062

}88?

1004
1005
1006

1010

025030

025040
025044
025046

025064

001035

005737
001027
042737
005001
153701
000301

006001

30A(1052)

22-NOV-78

BEQ

3%:

002770

ERFLG

;ERROR?

JSR
RDHDR
TST
BNE
BIC
CLR

RS, LDFUNC

;VERIFY POSITION?

ERFLG
5%
#77 ,E.MP

JVERIFY POSITION

SWAB
ROR
BIT
BEQ
BIS
CMP
BEQ

032737
001402
052701
020137

1017
(3)
(5)

025110
025110
025112

104462
000014

ERRDF
TRAP
.WORD

(5)

025116

020432

.WORD

(5)

}8}8
1020

(3)
(5)
(5)
(5)
1021
1022

1023
1024
1025
102¢
1027
1028

(11)
(10)
(9)
(8)

025106

025114

025120
025124

025124
025126
025130
025132
025134
025140
025142

025144

025144
025150
025154
025160
(7)
025164
(6)
025170
(3)
025174
(4)
025176
(4)
025200
1029
025204
(11) 025204
(10) 025210

001414

4%:

017616

000137
104462
000015
017566
020372
000137
012601

.WORD

024720

JMP
5%:

024720

000205

013746
013746
013746
013746
012746
012746
010600
104014
062706

003004
003002
003000
002776
021371
000005
000014

013746
013746

002770
002766

6%:

;TOP

TST

BISB

002720

SEQ 0048
.BOTTOM
;LOAD DIFFERENCE WORD
;EXECUTE SEEK

025066
025074
025076
025102

}8}2

1-22

#SKHS ,R1
R1.BDA
RS .,LDFUNC

1011
1012
1013
1014

000100
002770

BIS
MOV
JSR
SEEK

BNE

002720

000400

PAGE

GLOBAL SUBROUTINES SECTION

002674
000077

15:54

ERRDF

TRAP
.WORD
.WORD
.WORD
JMP
MOV
RTS

R1
DESCYL,R1
R1

#400,DESCYL
4%
#HEAD ,R1
R1,E.MP

;YES, SKIP

;IS CORRECT AND

JNOT CORRECT THEN
sRESEEK

12.,SKER,ERR6
T$ERCCDE
12

;SEEK ERROR

SKER

ERR6

90%

13. ,FUNERR,ERRS

T$ERCODE
13
FUNERR
ERRS
90%
(SP)+,R1

;FUNCTION ERROR IN SEEK

;CANT GET
JEXIT

;ROUTINE TO PERFORM REGISTER PRINTOUT DUMP
JCALL:
JSR
PC ,REGDMP
REGDMP: PRINTB
#FRM12,B(S,BBA,RDA,BMP
MOV
BMP,~(SP)
MOV
BDA,=(SP)
MOV
BBA,-(SP)
MOV
B(CS,~(SP)
MOV
#FRM12,-(SP)
MOV
#5,-(SP)
MOV
SP,RO
EMT
CSPNTB
ADD
#14,SP
PRINTB
#FRM13,E.CS,E.BAE.DAE.MP
MOV
E.MP,~-(SP)
MOV
E.DA,=(5P)

THERE

CZRLFB.P11

MACY11

ASSEMBLY ROUTINES

CZRLFB.PI
(9)
(8)
(7)
(6)

(3)

(4)
(4)
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
(8)

30A(1052)

025214
025220
025224
025230

013746
013746
012746
012746

002764
002762
021450
000005

025236
025240
025244
025252
025254
025260
025266
025274
025302
025310
025316
025320
025326
025326

104014
062706
032737

001437
016403
012763
012737
056437
013763
032763

000014
040000
000000
000013
000004
000004
002776

000200

0000CC

016337

000006

002706

013746

002706

025234

010600

001774

K &4
22-NOV-78
15:54
PAGE 1-23
GLOBAL SUBROUTINES SECTION

002762

MOV
MOV
MOV
MOV
MOV
EMT
ADD
Séé

£.BA,=-(SP)
E.CS,=(SP)
#FRM13,~(SP)
#5,-(SP)
SP_RO
CSPNTB
#16,SP
1§1114.e.cs

000004
002776
002776
000000

MOV
MOV
MOV
BIS
MOV

CSR(R4) ,R3
#13,DA(R3)
#4 BCS
DSB(R4) ,BCS
BCS,CS (R3)

MOV

MP (R3) ,DRSTAT

MOV

DRSTAT ,~(SP)

2$%:

PRINTB

021533

MOV

000002

025352

000207

000006

Séé

MOV

Mov
EMT
1%:

ADD

RTS

SEQ 0049

ggoé.csca3>

#FRM14 ,DRSTAT

AFRM14
- (SP)

#2,-(SP)
SP.RO
C$PNTB

#6,SP

JROUTINE TO SET DRIVE IN SECTOR LIST
;CALL:

JSR

RS,SETLST

;RO HAS SECTOR

R1,-(SP)

;SAVE R1

SUB
BPL
ADD
MOV

#28. ,RO
3%
#40. RO
#SECLST,R1

;START LIST AT O

BEQ
DEC

2%
RO

JBRANCH IF YES
;DECREMENT SECTOR

;GO BACK

;DRIVE GOTTEN FROM R4
1047

025354

010146

1049

025356

162700

SETLST: MOV

000034
000050
002206

3s:

1%:

TST

025406
025410
025412

010411
012601
000205

S
NS
lole]

— —

FRRERRER

1058
1059
}829

2%:

7ROUTINE

MoV
g?g

JBEGINNING OF SECTOR LIST
;FOUND SECTOR?

(R1)+

JNEXT ENTRY

R4, (R1)

IN LIST

;STORE DRIVE BITS IN LIST

égP)*,R1

JRESTORE R1

TO STORE OR RETRIEVE ADJACENT CYLINDER SECTOR DRIVE

; INFORMATION FROM THE 24X5 '‘SECLST'' BUFFER.
JENTER WITH RO = SECTOR REQUEST

JEXIT WITH RO = ADJACENT CYLINDER DRIVE

INFORMATION FOR SECTOR

JEXIT WITH RO = O IF SECTOR REQUESTED IS NOT IN BUFFER MAP
JCALL 1:
JSR R5,RSADJS

025414
025416

010
010246

WORD

JRETRIEVE SECTOR INFO.

WORD

;STORE

:CALL 2:

JSR R5,RSADJS

RSADJS: MOV

R}.-(SP)

;

MOV

R2.=(SP)

SECTOR

INFO.

MACY11
22-NOV-78 15:47

ASSEMBLY ROUTINES

1073

025420

010346

1076

025422

042700

1076

025432

012701

1075

1077
1078
1079
1080
1081
1082
1083

025426

025436
025442
025446
025452
025454
025456
025462

002702

012702
012703
123701
001413
005201
062702
062703

002246
000020
002700

025466
025472
025474
025500
025502

020327
002765
162703
000762
012701

1090
1091
1092
1093
1094
1095
1096
1097

025510
025512
025514
025516
025522
025524
025530
025532

001413
005722
005203
020327
003402
162703
005301
001365

1101
1102
1103

025544
025546
025550

001401
010412
011200

1089

1098
1099
1100

1104

025506

025534
025536
025540

025552

020003

005000
000405
005737

012603

MOV

1%:

000060
000042
000050
000050

$%:

000047
000050

002702

4%:

5%:
6%:
7%:

R3,-(SP)

SEQ 0050

BIC

#177700,R0

sSAVE SECTOR BITS

MOV

#1,R1

;START WITH TRACK

MOV

000001

000030

22-NOV-78
15.54
PAGE 1- 1-24
GLOBAL SUBROUTINES SECTION

177700

012537

1084
1085
1086
1087
1088

30A(1052)

MOV
MOV
CMPB
BEQ
INC
ADD
ADD

(R5) + ,ADJFLG

#SECBUF ,R2
#16. ,R3
ADJLOC.R1
2%
R1
#48. ,R2
#34.,R3

CMP
BLT
SUB
BR
MOV

R3,440.
1%
#40. ,R3
1%
#24. R1

BEQ
TST
INC
CMP
BLE
Sus
DEC
BNE

5%
(R2)+
R3
R3,439.
48
#40. ,R3
R1
3%

cMP

CLR
BR
TST
BEQ
MoV
MOV
MOV

RO,RS

RO
7%
ADJFLG

6%
R4, (R2)
(R2) ,RO
(SP)+,R3

sSAVE RETRIEVE/STORE FLAG
(N=2)

;START OF 24X5 BUFFER
;SECTOR 16 START FOR (N-2) TRACK
sCHECK TRACK INDEX
:
o INDEX TRACK REFERENCE
sUPDATE BUFFER TO NEXT TRACK REF.
;UPDATE SECTOR START FOR NEXT TRACK

H
;SET COUNTER FOR 24 SECTORS

s COMPARE SECTOR TO SECTOR TABLE

JYES,STORE OR RETRIEVE SECTOR INFO.
s INDEX SECLST BUFFER IN WORD FORMAT
s INDEX SECTOR COUNT
s COMPARE SECTOR COUNT FOR <40
SKEEP SECTOR COUNT<40

;PASSED 24 SECTORS?
;COMPARE NEXT SECTOR

;SETUP RO FOR EXIT
SEXIT ROUTINE,SECTOR NOT FOUND

;FLAG=0 FOR RETRIEVE

;STORE DRIVE INFO. INTO BUFFER
;SAVE DRIVE INFO. INTO RO FOR EXIT

O >

ASSEMBIY ROUTINES
MACY11
CZRLFB.P11
22-NOV-78 15:47

1106
1107

}}83

025554
025556

025560

012602
012601

MOV
MOV

000205

RTS

1110
1111

025562

010146

1116
1117
1118
1119
1120
1121
1122
1123
1124
1125

025570
025572
025576
025602
025604
025606
025610
025612
025614
025616

100002
062700
012701
005700
001403
005300
005721
000773
011100
012601

1156

SEXIT

*ON EXIT RO=DRIVE

1114

1126

(SP) +,R2
(SP)+.R1

SEQ 0051

:ROUTINE TO LOCATE DRIVE THAT WROTE SECTOR LAST
TCALL:
JSR
RS ,FNDDRV
SRO-CONTAINS SECTOR

}}}%

1115

M4
22-NOV-78
15:54
PAGE 2
GLOBAL SUBROUTINES SECTION

025564

025620

162700

FNDDRV: MOV

000034

SUB

000050
002206

3s:
1$:

28:

000205

8PL
ADD
MOV
ST
BEG
DEC
ST
BR
MOV
MOV

RTS

R1,=-(SP)

#28. .RO

38
#40. RO
#SECLST R
RO
28
RO
(R1)+
1$
(R1) ,RO
(SP) +,R1

:SAVE R1

“START LIST AT 0
;START OF LIST
*FOUND SECTOR?
‘YES, GET DRIVE #, EXIT
*NO, DOWN COUNT SECTOR
*NEXT ENTRY IN LIST
1GO BACK
*GET DRIVE BUFFER POINTER
*RESTORE R1

CEXIT

1129
}};9

*ROUTINE TO VERIFY THAT THE OVERWRITE DID ACTUALLY OVERWRITE
"PREVIOUS DATA ON THE PACK.

1132
1133
}}gg

‘CALL:
:
:

JSR

RS, VEROW

USES R3 AS BIT MAP OF SECTORS TO
CHECK.
R3 IS LOADED PRIOR TO
WRITING SECTORS.

VEROW:

MOV
MOV
MOV

RO, ~(SP)
R1.-(SP)
R2.=(SP)

:SAVE REGISTER CONTENTS

#100000, R

;BIT MASK FOR VERIFICATION

MOV
MOV
BIC
BIS

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

;SET UP READ-ONE SECTOR
*BUS ADDRESS
“CLEAR OUT SECTOR BITS
*SET SECTOR

BEQ
JSR

5¢
RS, LDFUNC

*NO, BRANCH
*READ

£.CS

1136
1137
1138

025622
025624
025626

010046
010146
010246

1140

025636

012701

1139

025630

012737

000034

002730

MOV

#28. SECT

016437

000006

002734

MOV

PAT(R4) .GDATA

177600
003030
000077
002730

003004
003000
003002
003002

100000

}}25

025642

1143
1144
1145
1146

025650
025656
025664
025672

012737
012737
042737
053737

1148
1149

025702
025704

001521
004537

030560

1152

025712

005737

002762

1155

025720

005737

002662

1147
}}29
}}gz
1156

1157
1158
1159
1160
1161

025700
025710

025716
025724

025726
025734
025742
025750
025752

030103
000014

100107

001412

012737
016437
016437
000415
012737

MOV

1$:
2%:

BIT

READ

BPL

017112
000000
000005

002672
002670
002732

017361

002672

21%:

R1.R$

:START VERIFY AT SECTOR 28

:GET PATTERN FOR THIS DRIVE

:DO WE READ THIS ONE?

: ERROR

*NO (ONTINUE

FOWR

SINITIAL WRITE

BEQ

21$

*NO

MOV
MOV
MOV
BR
MOV

THE

#INITWR,REASON
:SETUP INITIAL WRITE OF SECTOR
CSR(R&) _LSTCLR
DSB+1(R4)
L LSTDRY
22¢
#OVMES ,REASON
;SET MESSAGE FOR OVERWRITE

30A(1052)

ASSEMBLY ROUTINES
MACY11
CZRLFB.P11
22-NOV-78 15:47

1162
1163
1164

1165

1166
(3)
(5)
(5)
(S)
1167
1168
1169
1170
1171
1172
1173
(19)
(9)
(8)
(7)
(6)

(3)

025760
0257646
025770

025776

026004
026004
026006
026010
026012
026014
026020
026024
026030
026034
026036
026042
026042
026044
026050
026054
026060

062706

026074

005722

026076
026102

026110

1180
(8)
(7)
(6)

026112
026112
026116
026122

(&)

026130

(3)

011246
013746
013746
012746
012746

026070

1175

}};g

104462
000015
017522
020206
005037
005037
012702
023712
001417
005237

010600

026066

1176
1177

116037

026064

(&)

#7.‘)'

013700
004537
016037

104017

002730
025562
000000

002732

002740
002734
002742
021162
000004

000012

013746
012746
012746

002740
021226
000002

000200

010600

026132

062706

00000¢

1182

026136

013700

002730

1185
1186
1187
1188
1189
1190

026146
026152
026160
026162
026170
026172

005237
023727
001003
162737
000241
006001

002730
002730

000050

002730

1193
1194
1195
;}

026176
026200
026202
026204

012602
012601
012600
000205

}}gz

1
11

8RLR

}}3}

026142

026174

004537

ERRDF
TRAP
.WORD
.WORD
.WORD
CLR
(LR
MOV
(TMP
BEQ
INC
PRINTF
MOV
MOV
MOV
MOV
MOV

13.,0VWER.ERR4
;PRINT ERROR
TSERCODE
13
OVWER
ERR4
WCOUNT
;CLEAR BAD WORD COUNT W/IN SECTOR
SECWRD
“CLEAR WORD IN SECTOR
#BUF ,R2
‘GET BUFFER START
GDATA, (R2)
*1S DATA CORRECT?
31
‘YES CHECK NEXT
WCOUNT
*NO ACCOUNT FOR IT
#FRM8,SECWRD,GDATA,
(R2)
(R2) ,~(SP)
GDATA,
- (SP)
SECWRD, ~(SP)
NFRM8
.= (SP)
#4,-(SP)

EMT

CSPANTF

MOVB

153

SNEXT

‘N0 GO BACK

CNEXT
"DONE WITH SECTOR?
:PRINT

SUMMARY

SP.R0

CSPNTF

#6,SP

4$:

MOV

JSR

RS.SETLST

SECT,RO

;SET SECTOR

5¢:

INC
cMP
BNE

SECT
SECT,#40.
6$

:NEXT SECTOR

BCC

R1
1%

MOV
MOV
MOV
RTS

(SP)+,R2
(SP)+ R1
(3P)+.R0
RS

6$:

’

;GET THE DRIVE

(R2) +

#FRM9,WCOUNT
WCOUNT
, = (SP)
#FRMS
= (SP)
#2,~(SP)

ADD

103225

#12,5P

PRINTF
MOV
MOV
MOV
EMT

;FIND DRIVE THAT LAST WROTE
*SECTOR
:GET IT'S (SR

SP.RO

SECWRD
SECWRD,#128.

MOV

025354

DSB+1(RO).LSTDRV'

INC
(M

BNE

SEQ 0052

SECT,RD
RS ,FNDDRV
CSR(RO) ,LSTCLR

ADD

31s:

MOV
JSR
MOV

MOV

026126

1;;;

22%:

002740
002742
003030
002734

002742
002742

104017

22-NOV-78
15:54
PAGE 2-1
GLOBAL SUBROUTINES SECTION

002670

000005

005237
023727

001347

30A(1052)

SUB
cLe
ROR

#40.,SECT

‘CREDIT OF

IN LIST

TO THE

THIS DRIVE

;CLEAR CARRY
*NEXT BIT

:IF CLEAR NEXT
:RESTORE R2-RO, EXIT

JROUTINE*TO VERIF/ THAT A DRIVE CAN RECOVER ANOTHER DRIVE'S DATA,

[
Y

ASSEMBLY ROUTINES
MACY11
CZRLFB.P11
22-NOV-78 15:47

ASSEMBLY ROUTINES
MACY11
CZRLFB.P11
22-NOvV-78 15:4 7

30A(1052)

22-NOV-78 15:54 PAGE 3-2

G LOBAL SUBROUTINES SECTION

Juur Qs Guar Gy Gunry

026234
026242

~
W
~

(@]
—J—Jo
0800000
N
=SurNO
O

HEBRNR
‘Vo“fl’%Nn»dChoarVOWA:wflnLacfiz =3

026232

2737

116037

JSR

VEROD:

100000

002730

177600

003004
003000
003002
003002

003030
000077
002730

002730
025562
000000
000005
000006

RS,VEROD

USES R3 AS BIT MAP OF SECTORS TO
CHECK,
R3 IS LOAD BY WRSEC (WE
USE R3 COMPLIMENTED.

RO, ~(SP)
R1.-(SP)
R2,=(SP)

:SAVE RO-R2

#100000,R1

;BIT MASK FOR SECTORS

FOWR

sCHECK FOR FIRST OVERWRITE

#-128. ,BMP

JSET UP READ (ONE SECTOR)
;8BUS ADDRESS
;CLEAR SECTOR BITS
JSET IN SECTOR BITS
sCHECK THIS SECTOR?
:NO BRANCH

SECT,RO
R5,FNDDRV
CSR(RO) ,LSTCLR

¢FIND DRIVE

#28.
. SECT

6%
1%:

SEQ 0053

2%:

;START WITH SECTOR 28

THAT WROTE

;SECTOR LAST
sGET CSR OF DRIVE
DSB+1(RO) ,LSTDRY ;GET DRIVE
PAT (RO) , GDATA
;GET PATTERN

002670
002732
002734

026314

016037

026322
026326

004537
000014

030560

R5,LDFUNC

JREAD

026330

005737
100060
012737

002762

E.CS

sERROR?

#RECMS ,REASON

sSET READ RECOVERY MESSAGE
sREPORT ERROR

WS O S

T W

NINIPNIRD
A~~~ o~ PNINININININGNINNINI
N [\SIASIASTANTaN
AN TS TaN [pN 1o N, NT, 8 1,8
NN NN
POPOMNINININ) S a0
N~
e ) =

,'CALL:

000034
002662

017414

002672

14. ,RECER,ERR4
TSERCODE
14

104462

026350

026352

000016
017542
020206

026354
026360
026364
026370
026374

005037
005037
012702
023712
001417

002740
002742
003030
002734

026376

005237

002740

011246
013746
013746
012746
012746
019600

002734
002742
021162
000004

062706

000012

104017

005722

sNO, NEXT SECTOR

RECER

ERR4

WCOUNT
SECWRD

3%:

BEQ
INC
PRINTF
MOV
MOV
MOV
MOV
MOV
MOV

EMT
ADD

4(%:

TST

#BUF ,R2
GDATA, (RZ)
4%

;CLEAR BAD WORD COUNT
;CLEAR WORD W/] SECTOR

:START OF BUFFER
;DATA COMPARE
JYES, CHECK NEXT

WCOUNT
;ACCOUNT FOR ERROR
#FRM8, SECWRD,GDATA
(R2)
,
JPRINT ERROR

(R2) ,=(SP)
GDATA,=-(SP)
SECWRD,
= (SP)

#FRMB,
- (SP)
#4,-(SP)

SP,RO
CSPNTF
(R2)+

JNEXT

ASSEMBLY ROUTINES

CZRLFB.P11
1264
1245
1246

026436
026442
026450

MACY11

3CA(1052)

002742
002742

000200

22-NOV~78 15:47
005237
023727
001347

22-NOV~78

15:54

PAGE 2-3

GLOBAL SUBROUTINES SECTION
INC
CMP
BNE

SECWRD
SECWRD ,#128.
3%

SEQ 0054
JNEXT WORD IN SECTOR
;DONE?
;NO

ASSEMBLY ROUTINES

CZRLFB.P11

MACY11
22-NOvV~-78 15:47

1248
1249
(8)

30A(1052)

D
15:54
PAGE 3
GLOBAL SUBROUTINES SECTION

22-NOvV-78

PRINTF

202740
021226
000002

(7)

(6)

000050

002730
026520
026522

103244

026524
026526
026530
026532

012602
012601
012600
000205

#FRM9,WCOUNT
WCOUNT ,~(SP)
#FRM9,
= (SP)
#2,~(SP)

sPRINT SUMMARY

SECT

JNEXT SECTOR

SP,RO
CSPNTF
#6,SP

000006

002730
002730

SEQ 0055

5%:

7%:

INC

cLC
BCC

6%:

MOV

Mov
MOV
RTS

SECT,440.

4]
SECT
R1
1%

JNEXT B8IT MAP

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

JRESTORE R2-RO, EXIT

JROUTINE TO VERIFY THE ADJ. CYL. WRITE IS GOOD

;USES R3 AND WORD FOLLOWING CALL

;IF WRITE WAS GOOD,SECTOR WILL BE STORED [N MAP
;USING RSADJS/.WORD 1
VAJWR:

100000

002720

000400

ROR

002720

000100

3%:

4%:

e SEIR

177600

—

N
O

003004

003002
002666
003600

—d

—d cd —d

—d

1285

000014

030560

MOV
MOV
MOV
MOV
MOV
CLRB
BISB
SWAR

6%:
Cs:

BIT
BEQ
BIS

BIS

BIT
BEQ
MOV
MOV
MOV
8IC
(MP

BLE
SuB
SUB
MoV
(LR
MOV
JSR

READ

RO,=(SP)
R1.~(SP)

:SAVE REGISTERS

#100000 ,R1

;BIT MASK FOR CYLINDER

R2,=(SP)

(RS)+,R2

RO
DESCYL .RO
RO
RO
#4C0,DESCYL

;STARTING SECTOR

#HEAD ,RO

§1,R3
$

#-128. ,BMP
RO.BDA
RO, TEMP

#177700,R0
RO.#39.

#40. ,BDA
#40.,TEMP
#8UF ,BBA
JREAD FUNCTION

ASSEMBLY ROUTINES

MACY11
22-NOV=78 15:47

o
n

026674

-y

o
n
o
~

026702
026706

o
n

026714
026716
026720

004537

no
o
~no

026740

GLOBAL SUBROUTINES SECTION
TST

ERFLG

TST

HSFLG

BEQ

002710

BNE

SEQ 0056

118

ERRSOFT 120.,READ1,ERR2

104464

000170
017702
020014
005237
000760

o
n
[e
~
W
o

(O 1V, V[V

22-NOV~78 15:54 PAGE %-1

002674

TRAP

002710
11%:

'$:

0¢5414

5%:

T$ERCODE

.WORD
.WORD
.WORD

120
READ1
ERR?

BR
ERRHRD
TRAP
.WORD
.WORD
.WORD

10%
130.,READ1,ERR2
TSERCODE

130
READ1
ERRZ

JSR
.WORD
MOV
INC

R5,RSADJS
1
(SP) +,R0
RO

INC

WN=O

38R

005737
001416
005737
001007

MOV

HSFLG

RO,=(SP)

CLC
ROR

MOV
MOV
MOV
RTS

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

B8CC

=OVO NN

RIROKIROKRIK A = b b b o b —d —d b i

;STORE ADJ.

CYL. SECTOR INFO.

JRESTORE RO

;ROUTINE TO VERIFY THAT WRITE DID NOT DISTURB ADJACENT TRACKS

JWRITTEN BY OTHER DRIVES.

;CALL
:

JSR R5,BSVWR
.WORD

;STARTING SECTOR

*USES "‘ADJLOC'' TO GET +1/-1 CYLINDER OFFSET

*USES R3 FOR SEFTOR MAP, USES MAP AT '‘SECBUF'' FOR INFO
0
0
0
0 013746
0 O1
123727
001455
162716
100002
1

]

o
ro
N

o
o

026770
026772
026774
026776
027002
027004
027012
027014
027020

N
~

gf\)
RSNV
VIS
AN =00

RRRERY A
AN AN

b
b ol
d
—d e
D nd e
b
D e

N NN NN NN N NN

)
D
d ed
D
d
b ad o
b
d
b
D
d o
kb
b
b
d
D
d e
D

NANWAIN N NN
N NN
INWNINW
WO
CONAN B W

A~~~

~ e
\ N

—b e

(WYL

J6 o)

— d b b

BEGGCLEEY

CZRLFB.P11

30A(1052)

37
37
37
37
37

BSVWR:

002720
002700

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

MOV
(MP8

(R5)+,-(SP)
ADJLOC,#3

MOV

000003

000042

000050
002700

MOV
MOV
MOV

BEQ

BSEXIT

ADD

#40., (SP)
ADJLOC,#
INAWR
ADJLOC
DESCYL

SuB

000001

002700
002720

027170
002720

INAWR:

DESCYL,=(SP)

BEQ
DECB
DE(B
JSR
INCB
INCB
ADD
(MP

g24.,(SP)

RS, CHECK
DESCYL

AD JLOC
#c8., (SP)
(SP) ,#40.

;SAVE REGISTERS

;SAVE PRESENT POSITION
sGET STARTING SECTOR
;ON MIDDLE TRA(CK???
JYES,

THEN NO CHECK

cSETUP SECTOR START FOR OUTSIDE
;IF POSITIVE OKAY ELSE FIX

JFIXIT

cON OQUTER LIMIT?22?
;YES,SKIP CHECK

;OUTER ADJ TRACK
;CREATE CYLINDER
;GO CHECK ADJ SECTORS
JFIX BACK

s INNER SECTOR START

JWITHIN LIMITS?2?

MACY;1
22-NOvV-78 15:4

ASSEMBLY ROUTINES
NVONONSWN—=20000~N o~

027072
027074
027100

22-NOV-78

000050
002700

8LT

000005

002700

002720

FERERILEE

002720

1%:

LR
?‘O‘OO
W)
— BEEERBPULEE B\I\IV\J\I
0O ~NOMN
I WN—=0OV0

F
S5
PAGE 3-2

#40., (SP)
(SP) ,#40.
18
#40.
, (SP)

ADJLOC
. #5
BSEXIT

ADJLOC
DESCYL
R5,CHECK

MoV

ADJLOC
DESCYL
(SP)
+
(SP)+ ,DESCYL
(SP) +,R2
(SP)+,R1
(SP)+,R0

RTS

JSR

T S

SUB
CMP
BLT
suB

CMP8
BEQ
INCB
INCB
JSR
DECB
DECB
BSEXIT: TST
MOV
MOv
MOV

024716

RS, SKCYL

SEQ 0057
;YES, OKAY
+FIX SECTOR

JINNER LIMIT??

JYES,SKIP CHECK
JFIX FOR INNER

160 CHECK ADJ SECTORS

‘FIX BACK

*THROW OFF SECTOR
*GET OLD CYLINDER

: SEEK BA(CK
JRETURN

JROUTINE TO VERIFY AN ADJACENT SECTOR
;CALLED FROM BSVWR

NN
NN AN

b —D P NN S
d
b
b ad —ad
d
D
d e
d
b
el
—

AN NN

1395

15:54

GLOBAL SUBROUTINES SECTION

000050
000050

VAL IV VL IV IV, IV, 1V, IV

S
S
ST W
U
S
S
G
S

N NN NN NN NN

CZRLFB.P11

30A(1052)

027170
027174
027200
027202
027206
027210
027212
027220

012701
004537
005002
153702
000302
006002
032737

100000

CHECK:

024716
002720
000400

002720

000100
000002

3¢

ROR

BIT
BEQ
BIS
8IS

BIT

BEQ
MOV

BIC

000050

025414

027322
027324

#100000,R1
RS, SKCYL
R2
DESCYL.R2

SWAB

177700

027272
027274
027300
027306
027312
027314
027320

MOV
JSR
CLR
BISB

6% :

cMP
BLT
SuB
SUB
JSR
.WORD
TST

003002

177600
030560

002674

002730

003004

BEQ
MOV
MOV
JSR

READ
TST

BEQ

MOV

:SECTOR MASK
sJGET TO DESIRED CYLINDER

;CREATE ADDRESS

#400,DESCYL
3$
#HEAD ,R2
2(SP) .R2

R1.R3

JHEAD SET???

JNO

;SET IN SECTOR
;THIS SECTOR IN LIST?2??

5¢
R2,RO

sNO, NEXT

RO,#40. ;SECTOR
63
#40. RO
#40. .R2
RS,RSADJS
0

OKAY??2?

5¢
R2,BDA
N-"28. ,.BMp
RS, LDFUNC

;NO
.LOAD DJSK ADDRESS
JLOAD W(

ERFLG

;WAS READ GOOD

#177700,RO

R2,-(SP)
ke, SECT

;COPY SECTOR
JONLY SECTOR LEFT

JYES

JFIX SECTOR
JFIND [F SECTOR PREVIOUSLY WRITTEN
JWAS

JT??

. LOAD

ASSEMBLY ROUTINES

010003

027332

042737

MOV
177700

002730

SEQ 0058

RO.R3
#177700,SECT
140. ,ADJTXT ERR3

104463

TSERCODE

140
ADJTXT

ERR3

104463
000156
017702
020014

-WORD

005202
000241
006001
027372

GLOBAL SUBROUTINES SECTION

000214
017727
020054
012603

mvvvvwg
NSO
NOWVSs

3
—

d =D
D
] o
d
d
—— ——d

22-NOV=78 15:47

027330

Nt N

SN
DAAAAD A~
(VL lV, ]V, |
—_,—t et
2 D A OQONNNWND

CZRLFB.P11

MACY11 30A(1052) 22-NOV-78 15:54 PAGE %-3

INC
cLC

ROR
BCC

103320

000205

RTS

;ROUTINE

;ENTRY

(SP)+,R3
110. ,READ1 ,ERR2
TSERCODE
110
READ1

ERRZ

JNEXT SECTOR

R1
4%
RS

JSHIFT MASK

TO MERGE BAD

SECTOR FILES

INTO THIS ROUTINE WILL OCCUR AFTER THE

;1S PERFORMED.

JFIRST 400(8>

;THIS ROUTINE

''SERNUM'' ROUTINE

THE FACTORY BAD SECTOR FILE WILL BE LOCATED IN

LOCATIONS.

WILL

STORE

THE

FIELD BAD

SECTORS

INTO

;400 LOCATIONS AND THEN MERGE THE FACTORY BAD FILE

;WITH THE

THE

FIELD BAD FILE.

;FACTORY BAD AT BUF
;FIELD BAD AT BUF + 512,

027374
027376
027400
027402
027410
027416

MERGE:

003430
077724

177400
030560

003000
003002
003004

97%:

MOV

MOV
MOV
MOV
MOV
MoV
JSR

002674

027440
027446
027454
027456
027456
027462
027466
027470
027472
027476
027476
027500
027502

000004
077750

003002
003002

003040

JSAVE R1,

R2, R3

R3,-(SP)
#8UF +400,BBA
877724 ,BDA
#-256. ,BMP
RS5.LDFUNC

JBUFFFR START FOR FIELD BAD
;DA OF FIELD BAD SEC. START
JSETUP TO READ TWO SECTORS
;LOAD READ FUNCTION

ERFLG
98%

;TEST ERROR FLAG
;YES;MERGE BAD SECTOR FILES

#77750,8DA

;COMPLETED FIELD BAD SECTORS?
;NG.DO NEXT FIELD BAD SECTOR

#4 BDA

97%
NFRM1S
#FRM15
- (SP)

021562
000001
000004

R1,-(SP)
R2,-(SP)

s TRY NEXT

FIELD BAD

JGET PAST

ID ETC.

969%:
8% :

MOV

#BUF +10 R

SECTOR FILE

ASSEMBLY ROUTINES
MACY11
CZRLFB. PN
22-NOV-78 15:47

1444
1445
1446
1447
1448
1449
1450
1451
1452
1453
1454
1455
1456
1457
1458

1459
1460
1461
1462
1463
1464
1465
1466

027506
027512
027514
027516
027520
027522
027524
027526
027530
027534
027540
027542

012702

000176

000176
003440

027544
027546
027550
027552
027554
027556
027560

027562
027566

30A(1052)

H S
22-NOV~78
15:54
PAGE 3-4
GLOBAL SUBROUTINES SECTION
1%:

2%:
3%:
4%

MoV
TST
8MI
TST
DEC
BNE
BR
TST
MOV
MOV
MOV

BM]

MoV

5%:

DEC
BNE

MOV

MOV
RTS

012537
012557

002744

002754

FNDTRK
: MOV

MOV

#126. ,R2
(R1)+

SEQ 0059

JMAX = 126
JSECTOR OR END
JEND, GO GET FIELD

JREST OF

SECTOR

JMAX REACHED
;NO, KEEP GOING

JYES,

SKIP BACK UP

JBACK UP PAST TERMINATOR

JSET 126 MAX

(RI+,(R1)+
5$
(R2)+,(R1)+
R3
49

;GET FJELD SECTORS
;MERGE AT END OF FACTORY
.DONE?
;NO, MERGE REST OF SECTOR
; DONE

*NO, GO BACK

(SP)+,R3
{SP)+ ,R2

‘RESTORE R3, R2, R1

CEXIT

(RS)+,OFFSET
(R5)+,SURFACE

JGET INCREMENT/DECREMENT
;GET HEAD (SURFACE)

(SP)+ R1

ASSEMBLY ROUTINES
MACY11
CZRLFB PN
22-NOV-78 15:47

1468
1469
1470
1471
1472

1473
1474
1475
1476
1477
1478

1479
1480
1481
1482
1483
1484
1485
1486
1487
1488
1489
1490
1491
1492
1493
1494
1495

027572
027576
027602
027606
027612
027620

112537
112537

005037
005037
013737
004537
005737
001003
005237

002750
002746
002756
002760
002750

30A(1052)

[
15:54
PAGE &
GLOBAL SUBROUTINES SECTION

22-N0V~78

MOVB
mMove

002752

027704
002122

1%:

002760
002760
002760

000005

2%:
3%:

CLR
CLR
MOV

TRKFND
TRKCNT
FRTTRK ,PRSTRK

JSR
TST
BNE
INC
BR

RS,FNDBSC

(LR
MP

002756

027702

NNNN—A—A—I—D—A—D_J.—.-J-J%%
WA
2OV NN WO

D ol
)
d e wnd e
b
D oD
e
D e
e

IV TV, IV TV, TV, LV, LV, LV, TV IV, IV, 1V LV, ]V, 1V, ]

e
—b e

(AN

HDRFND

TRKCNT

TRKCNT
, #5
43
TRKFND

002752

002746

«%:

CMP

002744

002752

5%:

ADD

PRSTRK ,LSTTRK

5%
RS

?;FSET,PRSTRK

JBEGINNING TRACK

JENDING TRACK
:CLEAR OQUT FLAG FOUND
;CLEAR OQUT TRACK COUNT
;GET FIRST TRACK

;IS TRACK IN BAD SECTOR FILE
SWAS IT?
JYES, CLEAR TRKCNT
;NO, INDICATE GOOD TRACK

;CON TINUE

sSTART COUNT OVER

JFIND 5 TRACKS YET?

JNO, CONTINUE
JYES, EXIT WITH GOOD FLAG
JEXIT
;JARE WE DONE?
;NO, KEEP LOOKING
JEXIT WITH NOT FOUND
JNEXT TRACK

JROUTINE TO FIND BAD TRACK IN FILE

027704
027710
027712
027714
027720
027722

002122

003040

FNDBSC:

CLR

1¢:

MoV
MOV
MOV
TST

002752

027746
027752

005237
000405

027754
027756
027760
027764
027766
027770
027772

005721
005202
020227
001355

027774

002122

000004
000005

JINITIALIZE FLAG

#BUF+10,R1

:ggggP FOR BEGINNING OF FILE

JIF MINUS AT END, EXIT
;CYLINDER CORRECT?

R2.-(SP)
(R1)

+
(R4)
SURFACE, (R1)
43
=(R4)

;SAVE R1, R2

JNO,

JUPPER HALF OF WORD
;CORRECT SURFACT

INC

HDRFND

sSET FOUND

TST

JNEXT WORD
JACCOUNT FOR IT
sDONE?

2%:

MOV

(R1)+
R2
R2.#252.
1%

FIXCYL:

MOV

000374

002752
002744

HDRFND
R1,~-(SP)

PRSTRK, (R1)+

002754

(R5)+,FRTTRK
(R5)+,LSTTRK

SEQ 0060

(SP)+
R

(SP)+ ,R2
RS
PR3TRK ,R1

OFFSET
1%

#4 ,R1

#S,R2
R1,(R0)+
A

:NO, KEEP CHECKING
JRESTORE RZ2, R1, EXIT

;GET TRACK WHICH IS GOOD
JWHICH WAY WERE WE LOOKING
;IN WORD, BRANCH
JBACK IT UP BY FOUR

;GOING STORE AWAY 5 TRA(CKS
;STORE THEM

ASSEMBLY ROUTINES
MACY11
CZRLFB.P11
22-NOV~78 15:47
1

22-NOvV-78

15:54
PAGE 4-1
GLOBAL SUBROUTINES SECTION

001374
000205

BNE

RTS

5
SEQ 0061

VNNV
SISO
NN N
OO NN
WO VOO NI WWNN) — OVOONOWVEBWN=O
ety

h e
i
D
D
)
D rd
od
e
i
i

s CALL

D
D
d e
)
d
) e
D
)
D
d
d
D
d
D
e

JROUTINE TO GET SERIAL NUMBER

A AV L L LV, LV, LV, 15

)
D
el

N S VAN

—

oaviviviauinwoaun

030024
030026

30A(1052)

012737
004537

000013
030560

063002

030560
002770
000077
077700
000100
077600

030560

SERNUM: MOV
JSR
GSTAT
JSR
RDHDR
MOV
1%:
BIC
CMP
BEQ
BIC
MOV
SUB
MOV

003002

030560
002770
077700

077700

003030

177400

030560

003002
003000
003004

2%:

97%:

;GET STATUS

R5.LDFUNC

;READ HEADER

E.MP.RO

;GET THE HEADER

¢IF SO, DON'T SEEK
s CLEAR HEAD
sLAST CY._INDER
;CALCULATE DIF OF SEEK
;SET UP DIF WORD
;SEEK IN, HEAD 1
; SEEK

#77 ,R0O
RO, 477700
#100,R0

#77600,R1

RO,R1
R1.BDA

#25 .BDA

MP
BGT
MOV
MOV
MOV
JSR

#77700,R0
1%
#77700,8DA
#BUF ,BBA
#-256. ,BMP
R5.,LDFUNC

[ DFUNC

;VERIFY POSITION

E.MP,RO

:GET HEADER
;COMPARE AGAINST LAST
;IF WRONG, RE-SEEK
¢BAD SECTOR DA START
JREAD IN BAD SECTOR FILE

#4 ,BDA

#77724 .BDA

98%:

000002

003010

3%:

'A ¥

;READ

. TEST ERROR FLAG
;JYES,COMPARE SERIAL NUMBERS
sNO,SETUP FOR NEXT FACTORY BAD SECTOR
JEND OF FACTORY BAD FILE?
JGET NEXT FACTORY BAD SECTOR

97%
99%
#BUF ,R1
SERNM1

; COMPARE SERIAL NUMBERS
JHAVE WE GOT ONE TO COMPARE

(R1) ,SERNM1

sNO, CALL THIS ONE IT

003010

;CLEAR SECTOR BITS
cON LAST TRA(CK

R5,LDFUNC

98%

003002
003002

003006
000002
003006

000002
020712
000005

#13,BDA
R5,LDFUNC

ERFLG

003030
003006

003006
003010

R5,SERNUM

BIS
JSR
SEEK
JSR
RDHDR
MOV

002674
000004
077724

JSR

2(R1) ,SERNM?

(R1) ,SERNM1
4%

2(R1), SERNMZ
5%

JREPORT ERROR

cYES,

BRANCH

s SERNUM OKAY
;NO, PRINT ERROR
;OTHER HALF OkKAY
cYES, EXIT

#FRM3,2(R1),(R1),SERNM2,
SERNM1

- (SP)
SERNM1,

. - (SP)
SERNM2
(R1) ,=(SP)

2(R15,~(SP)

#i°M3.-(SP)
#5,-(SP)

ASSEMBLY ROUTINES
MACY11
CZRLFB.P11
22-NOV-78 15:47

(3)

(4)
(4)

030310
030312

010600
104017

062706
004537
004537
000637

200014
030360
030460

012746
012746
010600
106017
062706

021562
000001

104022

030356

000776
000205

000004

30A(1052)

K 5
22-NOV-78
15:54
PAGE 4-2
GLOBAL SUBROUTINES SECTION
MOV
EMT
ADD

99%:

999%:
5%:

SEQ 0062

SP.RO
CSPNTF

#14,SP

RS ,UNLOAD
R5,LOAD
SERNUM

N#FRM15

#FRM15,-(SP)
#1,-(SP)
SP,RO
CSPNTF
4 ,SP

C$BRK
990¢
R5

sLET OPERATOR CHANGE
sPACK
;GO CHECK IT AGAIN.

sMESSAGE

ASSEMBLY ROUTINES

CZRLFB.P11

1584
1585
1586
1587
1588
(9)
(8)
(8)
(7)
(6)
(3)

MACY11 30A(1052) 22-NOV-78 15:54 PAGE %

22-NOvV~78 15:47

GLOBAL SUBROUTINES SECTION

:ROUTINE UNLOAD

:CALL
016446
005046
156416

(4)
(4)

012700
104026

000005
020520
000003

000000

2%:

000012

005301
001367
000741
000205

3%:

LOAD:

000000

WAITMS
MOV
EMT
DEC

UNLOAD

RTS

JSETUP 60 SECOND TIMER

s CHECK DRDY FOR ZERO
sPACK UNLOADED
JWAIT 1 SECOND

JHAS 60 SEC PASSED?

sNO, RETEST DRDY, CONTINUE WAIT
JYES, REPEAT MESSAGE CONTINUE WAIT
JRETURN WITH PACK UNLOADED

000170

001006

030554

012700
104026
005301
001367
000741

000200
000004
000000
000007
000012

JSR

RS, LOAD

MOV

PRINTF

#FRM2 ,<B,DSB+1/R4)>,(SR(R&)
CSR(R4) ,-(SP)

BISB
MOV
MOV

DSB+1(R4),(SP)
#FRM2
- (SP)
#3,-(5P)

ADD

#10,SP

MOV
BIS
MOV
BIT
BNE

#200,R0
DSB(R4)
RO
RO,CSR(R4)
#DRDY ,3CSR(R4)
38

MOV
EMT

000010

DA
NN —

#FRM1,<B,DSB*1(R4)>,(SR(R&)

CSR(RL) ,<(SP)
~(sP)
DSB+1(R4),
(SP)
HFRM1
- (SP)
#3,-(SP)
SP_RO
CSANTF
#10,SP
#60. R
#200.R0
DSB(R4) ,RO
R0, 3CSR(R&)
#BRDY
, 3CSR (R4)
3s
#10.
#10. ,RO
CSWTM
R1

CLR

000005
020615
000003

NE W= =000

RS, UNLOAD

;ROUTINE LOAD

016446

— ) b e e b

MOV
CLR
BISB
MOV
MOV
MOV
EMT
ADD
MOV
MOV
BIS
MOV
BIT
BEQ

BNE

;CALL

) ——d

JSR

UNLOAD: PRINTF

000000

000010
000074
000200
000004
000000
000001

1589
1590
1591
1592
1593
1594
1595
(3)
(3)
1596
1597
1598
1599
1600
1601

—

SEQ 0063

MOV

000000

2$%:

-(SP)

SP.RO
CSPNTF

#120. .R1

WAITMS

#10.

EMT
DEC
BNE

CSWTM
R1
2%

MOV

B8R

#10. ,RO

LOAD

;SETUP 120 SEC TIMER

cSETUP CONTROLLER READY BIT
sSELECT DRIVE

ASSEMBLY ROUTINES
MACY11
CZRLFB.P11
22-NOV-7815:47

?g}g

030556

30A(1052)

000205

38:

1619

;CALL

1622

030560

1624

030564

1625

1626
1627
1628

1629
1630
1631

010046

030562

010346

030566

005037

030572
030576
030604

030612
030620
030624

010146

016403
013763
013763

013763
011537
056437

000000
00300«
003002

003000
002776
000004

012701
052737
013763
016337
042763
032763
001034

012700
104027
005301
001367

000144

1643
1644
1645
1646
1647
1648
1649
(3)
(5)
(5)
(5)

016337
016337
016337
016337
016337
016337

000000
000002
000004
000006
000006
000006

}2??

030710
030716
030724
030732
030740
030746
030754
030754
030756
030760
030762

030764

104462
000322
017072
020372

1652
1653

030766
030774

016337
016337

000000
000002

1655
1656
%ggg

031010
031016
031024

016337
016337
016337

000006
000006
000006

1659

031032

005737

002762

1661
1662
1663
1664
1665
1666

031040
031044
031046
031050
031052
031054

005237
005725
012601
012603
012600
000205

002674

1660

031036

000031
000200
002776
000000
000200
000200

000006
000004
000002

002776
000000
002776
000000
000000

1%:

002762
002764
002766
002770
002772
002774

000425

016337

100002

000004

002762
002764

2%:

002766

4%:
3%:

R5,LDFUNC
RO,~(SP)

CLR

ERFLG

;CLEAR ERROR FLAG

BBA BA(R3)
(R5) ,BCS
DSB(R4) ,BCS

;LOAD BUS ADDRESS
;GET FUNCTION TO LOAD
JSELECT BITS

R1,-(SP)

MOV
mMov
MOV

CSR(R&) ,R3
BMP MP(R3)
BDA,DA(R3)

MOV
8IS
MOV
MOV
BIC
BIT
BNE
WAITUS
MOV
EMT
DEC
BNE

#25. ,R1
#200,8CS
BCS,CS(R3)
CS(R3) ,BCS
#200,CS(R3)
#200,CS(R3)
2%
#100.
#100. RO
CSWTU
R1
1%

MOV
MoV
MOV
MOV
MOV
MOV
ERRDF
TRAP
.WORD
.WORD
.WORD

(S(R3) ,E.CS
JREAD 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 TiMEOUT
TSERCODE

MOV
MOV

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

MoV

002770
002772
002774

SEQ 0064

R3,-(SP)

MOV
MOV
BIS

002776

MOV

002674

030632
030636
030644
030652
030660
030666
030674
030676
030676
030702
030704
030706

031002

JSR

LDFUNC: MOV

1632
1633
1634
1635
1636
1637
1638
1639
(3)
(3)
1640
122;

16546

RTS

;ROUTINE LDFUNC

}gg?
1623

22-NOV~78
15:54
PAGE 6
GLOBAL SUBROUTINES SECTION

;SET WATCHDOG TO 250MS

sLOAD FUNCTION
;CNTLR READY?
JYES, GO
SWAIT 10 MILLISECONDS

210
CNTTOT
ERRS

;READ ALL REGISTERS

DA(R3) ,E.DA

MoV
MOV
MOV

MP(R3) ,E.MP
MP(R3)
,E .MP1
MP(R3) ,E.MP2

TST

E.CS

INC
TST
MoV
MOV
MOV
RTS

ERFLG
(R5)+
(SP)+,R1
(SP)+,R3
(2°)+,RO
RS

8PL

JGET CSR
;LOAD MUL TIPURPOSE
;LOAD DJSK ADDRESS

JANY ERRORS?

JYES, GO SERVICE

ASSEMBLY ROUTINES

CZRLFB.P11
1667
1668
1669
1670
1671
1672
1673
1674
1675
1676
1677
1678
1679
1680

MACY11

22-NOV-78 15:47

30A(1052)

031056

5
SEQ 0065

BGNTST
;CONTROL SECTION COMPATABILITY PROGRAM
*PRINT UNLOAD AND LOAD DRIVE MESSAGES
;PERFORM SERIAL CHECK ROUTINE
;PERFORM READ/WRITE CHECKS ON DRIVES

031056
031062
131066
031070

012701
012700
005021
005300

002246
000170

1689
1690
1691
1692
1693
1694
1695
1696

031074
031100
031104
031106
031110
(031114
031120
031124

005237
004537
177400
000377
005037
005237
005237
004537

002662
023334

1699
1700
1701
1702
1703
1704
1705
1706
1707
1708
1709
1710

031134
031136
031140
031142
031146
031152
031156
031162
031166
031170
031172
031176

003
007777
000000
004537

1712
1713
1714
1715
1716
1717
1718
1719
1720
1721
1722

031204
031206
031210
031212
031214
031216
031220
031222
031224
031230
031236

1711

PAGE 6-1

ENDMOD

1684
1685
1686
1687

1697
1698

15:54

GLOBAL SUBROUTINES SECTION

031056

1681
}gg%

1688

22-NOv-78

031072

031130
031132

031202

001375

003
170000

062704

004537
004537
004537
000360
000017
005237

004537

002

000000
002
000000
004
000000
004
002000
000000
004537
023727
001002

COMPAT:

'A ¥

BNE

INC
JSR
177400
377
CLR
INC
INC
JSR

002662
002664

002704
024016

377

BYTE
"WORD

000

BYTE
JWORD
.WORD
JSR

030360
000010
030460
030030
023334

ADD

002704

024016

C17
360
017

000002

#SECBUF ,R1
#120. ,R0
(R1)+
RO

sADJ. CYLINDER BUFFER
*ADJ. CYLINDER BUFFER COUNT
cCLEAR ADJ. CYL. BUFFER AT STARTUP
*BUFFER CLEARED?

FOWR
RS .,OVWPER

JSET FIRST OVERWRITE FLAG
;PERFORM OVERWRITE ON FIRST DRIVE

JX;

;CLEAR FIRST OVERWRITE

ADJDIR
RS,ADJCYL

‘P = 1

FADJ

3.%77
170000

3.0
7777
0.
R5,UNLOAD

#PAT+2 R4

ADJDIR

.BYTE

2,560

WORD
BYTE
WORD
BYTE
WORD
BYTE
WORD
WORD
JSR
(MP
BNE

*CLEAR NEXT BUFFER WORD

FOWR

JSR
JSR
JSR
360
17
INC

JSR

260

030360
002726

MOV
MOV
CLR
DEC

RS, LOAD
RS ,SERNUM
RS.,0OVWPER

RS, ADJCYL

O
2,17
O
4,360
O
4,17
0
O
RS ,UNLOAD
uot 40
108

;SET FIRST ADJ.

FLAG

;TRACK AND SECTORS FOR
*INWARD SEEK

*TRACK AND SECTORS FOR
*OUTWARD SEEK
; TERMINATOR
JUNLOAD PACK FROM DRIVE UNIT

;UPDATE POINTER FOR NEXT DRIVE
*LOAD INTO SECOND DRIVE UNIT
;CHECK PACK SERIAL NUMBER
:PERFORM R/W OVERWRITE

;IN 1/0 OUTSIDE
;0UT 1/0 OUTSIDE
:IN 1/0 INSIDE
:0UT 1/0 INSIDE
JUNLOAD PACK FROM DRIVE UNIT
"CHECK FOR > 2 DRIVES
*YES,GO TO NEXT DRIVE

000137

LNN—‘OO&\I

NNNNNNN

JMP
ADD
JSR
JSR

R5,LOAD
R5, SERNUM
RS5.,OVWPER

:LOAD PACK FOR THIRD DRIVE

;0UT 2/0 OUTSIDE

000

4,0

030360
002726

7400

000010
030460
030030
023334
002704
024016
060

QOWVNOWVNIO—=20O

000003

;PERFORM R/W OVERWRITE ON THIRD DRIVE

2.0

170000

100

s CHECK SERIAL NUMBERS

;IN 2/0 CUTSIDE

000

200

;UPDATE DRIVE BUFFER FOR THIRD DRIVE

7400
4,0

100

SEQ 0066
;GO TO FIRST DRIVE

170000

200

HPAT+2
R4

ADJDIR
RS ,ADJCYL

000

031456

15:54
PAGE 6-2
GLOBAL SUBROUTINES SECTION

22~N0v-78

10%:

002704
024016
000

b
d
b
D ed
- ed

NSNS

25
26
27

031240
031244
031250

30A(1052)

JIN 270 INSIDE
;0UT 270 INSIDE

,200

;IN 2/1 OUTSIDE

,100

;O0UT 2/1 OUTSIDE

200

;IN 2/1 INSIDE

100

;0UT 2/1 INSIDE

1723
724

d\l\l\l\l\l
NN
QAN
W= O000

22-NOv-78

CZRLFB.P

ASSEMBLY ROUTINES

RS ,UNLOAD
uuT 43

1%
HPAT+2
R4

R5,LOAD
RS, SERNUM
R5,0VWPER

; TERMINATOR
JUNLOAD PACK ON THIRD DRIVE
;CHECK FOR > 3 DRIVES

sNO, GO TO 2ND DRIVE
;UPDATE DRIVE BUFFER FOR &4TH DRIVE
sLOAD PACK ON 4TH DRIVE
;CHECK PACK ON FOURTH DRIVE
;PERFORM R/W OVERWRITE

ADJDIR

RS,ADJCYL

;IN 3/0 OUTSIDE

000

;0UT 3/0 OUTSIDE

C00

JIN 3/0 INSIDE

000

;0UT 370 INSIDE

040

;IN 3/1 OUTSIDE

020

;0UT 3/1 OUTSIDE

040

;IN 3/7 INSIDE

020

;0UT 3/1 INSIDE

000

;IN 372 OUTSIDE

000

;0UT 3/2 OUTSIDE

ASSEMBLY ROUTINES

CZRLFB.P11

MACY11

22-NOV-78 15:47

1779
1780

031460
031462

1782

031466

1784
1785
1786
1787
1788
1789
1790
1791
1792

031472
031474
031500
031506
031510
031514
031520
031522
031526

000000
004537
162704
004537
004537
004537
020000
010000
004537

1794
1795

031532
031534

000200
001

1797
1798
1799

031540
031542
031544

005
000200
005

1801
1802
1803
1804
1805
1806
1807
1808
1809
1810

031550
031552
031556
031562
031566
031572
031576
031600
031602
031606

1812

031612

1781

1783

1793

1796

1800

1811

1813

031464

031470

031530
031536

031546

031610

031614

1814
1815
1816

031616
031620
031622

1818

031626

1820

031632

1822

031636

1824

031642

1826
1827
1828
1829
1830
1831
1832
1833
1834

031646
031650
031654
031660
031664
031670
031674
031676
031700

1817

1819

1821

1823
1825

031624

30A(1052)

22-NOV-78

000

.WORD
.BYTE

005

000

BYTE

040000

001

000100

WORD
JSR
SUB
JSR
JSR
JSR
4040
2020
JSR
BYTE

0
RS, UNLOAD
#PAT+2 R4
RS,LOAD
RS, SERNUM
RS,0OVWPER

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

RS ,ADJCYL
1,0

;IN 1/2 OUTSIDE

1,0

;0UT 1/2 OUTSIDE

5,0
20000
5.0

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

1,0

;IN 1/3 OUTSIDE

1,0

;0UT 173 QUTSIDE

5.0

;IN 1/3 INSIDE

5.0

:0UT 1/3 INSIDE

0
RS, UNLOAD
#PAT +2 R
RS,LOAD
RS . SERNUM
RS ,OVWPER

: TERMINATOR
*UNLOAD PACK FROM 2ND DRIVE
“SET DRIVE BUFFER FOR 1ST DRIVE
*LOAD PACK INTO FIRST DRIVE UNIT
*CHECK SERIAL NUMBES
JPERFORM R/W OVERWRITE

000

005

000

005

000

000020

000000
004537
162704
004537
004537
004537
001042
000421
004537

WworD

000

0,0

031644

; TERMINATOR
*UNLOAD PACK FROM 4TH DRIVE
*SET DRIVE BUFFER FOR 3RD DRIVE
*LOAD PACK ON 3RD DRIVE
*CHECK FOR PACK SERIAL NUMBER
JPERFORM R/W OVERWRITE ON 3RD DRIVE

;IN 2/3 INSIDE

000

000040

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

5.0
200
5.0

001

031640

;0UT 3/2 INSIDE

BYTE
WORD
.BYTE

BYTE

000

000020

5.0

40000

000

031634

;IN 3/2 INSIDE

100000

200
1.0

005
020000
005

000040

40000
5,0

.WORD
.BYTE

000

031630

WORD

SEQ 0067

024016

001

010000

WORD
JSR
SUB
JSR
JSR
JSR
20000
10000
JSR

024016
000

010000

.WwORD

030360
000010
030460
030030
023334

000000
004537
162704
004537
004537
004537
004040
002620
004537
001

020000

PAGE 6-3

GLOBAL SUBROUTINES SECTION

040000
005

100000

15:54

030360
000010
030460
030030
023334

030360
000010
030460
030030
023334
024016

WwORD

1%:

-WworD
BYTE

-WwORD

.BYTE
.WOoRD
.BYTE

-WwORD

BYTE

1.0

100

20000

10000

WORD

WworRD

WwoRD

.BYTE

BYTE

RS ,ADJCYL

WORD
JSR
SUB
JSR
JSR
JSR
1042
421
JSR

RS,ADJCYL

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

;0UT 2/3 INSIDE

ASSEMBLY ROUTINES
MACY11
CZRLFB. P11
22-NOV~78 15:47

031704
031706
031710
031712
031714
031716
031720
031722
031724
031726
031730
031732
031734
031736
031740
031742
031744
031746
031750
031752
031754
031756
031760
031762

000

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

000

BYTE

000

BYTE

000

BYTE
.WORD
BYTE

004
¢10

004

000

032016
032016

032016

BYTE

032020
032020
032020

032022
032022
032024
032026
032030
032030
032032
032034
032036

;0UT 0/2 OUTSIDE

5.0

:IN 072 INSIDE

5.0
2000

:0UT 0/2 INSIDE

:0UT 0/3 OUTSIDE

;IN 073 INSIDE

5.0

;0UT 0/3 INSIDE

#ENDPAS
#ENDPAS
, - (SP)

EMT

BREAK
EMT

EMT

:IN 072 OUTSIDE

1.0
4
5,0

PRINTF
MOV

ADD

:0UT 0/1 OUTSIDE

;IN 073 OUTSIDE

&
0

JSR

:IN 071 OUTSIDE

1,0

WORD
WORD

104001

1.0

4000

MOV
MOV

032014

INSIDE

WwOrRD

000

1%:

:0UT 0/1

2000

WwORD

030360

INSIDE

WOorRD

000

SEQ 0068

SIN 071

4000

BYTE
WORD
BYTE

1,10
O
1.4
0
5,10
0
5.4
0
1,0

WORD

000

000004

15:54 PAGE 6-4
GLOBAL SUBROUTINES SECTION

22-N0Ov-78

010

S8E

i G

00 00 00 00 0 00 00 00 00 0O

N S

PPPPPRPPPP

WA= OVONO NS WA= O

1835
1836
1837
1838
1839

30A(1052)

RS, UNLOAD

: TERMINATOR

*UNLOAD PACK

“END OF

PASS

#1,-(SP)
SP.RO

CSPNTF

#6,SP

C $8RK

CSETST

HRDPRM

000025

004130
032074
000001
000031
032101

160000
177776

BGNHRD

.WORD L10013-L$HARD/2

GPRML
.WORD
.WORD
"WORD
GPRMA
JWORD
.WORD
"WORD
"WORD

RLMSG,RLCNT,1,YES
TSCODE
RLMSG
1
(SRMSG,CSR,0,160000,177775,YES
T$CODE
(SRMSG
T:.OLIM
TSHILIM

ASSEMBL Y ROUTI NES

CZRLFB.P1
1875

1883
1884

15:54
PAGE 6-5
GLOBAL SUBROUTINES SECTION

BRMSSéPRIOR,O,340.0.7,YES

-WORD

000007

032074
032074
032074
032101
032106
032114
032115
032122
032126
032134

L10013:
046122
1

042104
000
102

042526
042526
G00

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

003032
032135
003400
000000

o
n

1880
1881
1882

032072

22-NOvV-78

002032
032115
000340
000000
000007

1877

(2)
(3)

30A(1052)

001031
032126

(4)
(4)
(4)
(4)
1876
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
1878
1879

MACY11
22-NOV=-78 15:47

TSHILIM

ENDHRD
.EVEN

030461
051525
042522

000
040440
051523

RLMSG:

CSRMSG:

LASCIZ
LASCIZ

/RL11/
/BUS ADDRESS/

020122
000114
052103

042514

BRMSG:

LASCIZ

/BR LEVEL/

051117

VECMSG:

LASCIZ

/VECTOR/

SEQ 0069

MACY11
22-NOV-78 15:47

ASSEMBLY ROUTINES

CZRLFB.P11

032135

032142

104

000

032144

044522

30A(1052)

22-NOV-78
15:54
PAGE 7
GLOBAL SUBROUTINES SECTION

042526

DRMSG:

.ASCIZ

/DRIVE/

.EVEN

032144

ENDMOD

032244

.=32244
;AREA RESERVED AS PATCH AREA FOR DIAGNOSTICS.
;THIS DIAGNOSTIC DOES NOT RUN IN APT MODE.

032244

LASTAD

032244

L $LAST::

.EVEN

SEQ@ 0070

ASSEMBLY ROUTINES
MACY11
CZRLFB .SUP
23-0(T1-78 09:53

000000
000000
000000
000000

063052

000200

30A(1052)

22-NOV-78

15:54

PAGE 8

DIAGNOSTIC SUPERVISOR -~ LOW CORE SET UP
.SBTTL
DIAGNOSTIC SUPERVISOR -~ LOW CORE SET UP
WORD
O
:SPACE FOR USER POOL POINTER
.WORD
O
JSIZE
WORD
0
s CHECKSUM (NOT CURRENTLY USED)
.WORD
O
JSIZE OF H.W. PTAB. ALLOCATION
END.SUPV=.
42
.END 200

SEQ 0071

000045

($RESE= 000033

alAalalaTA)
(211l

_ed e
O
OIS W= OO0
¢

MTMTMTTMTMTTM

mmmmmmm

o
o
OO
o

~-c23¥3¥208
n—

FLAGS1

FLAGTA
FLAG.!
FLA.SE
FLG.MA

(21~]

- [en]

(9] w -

032504
057734
032502
060340
061342
061476
032542
037312
023324
037566
023300
017072
056010
032314
055624
031056
061422
000200
051722
000002
000000
000000

002736
032244
051520
000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
000002
002000
004000
010000
020000
040000
100000
000004
000010
000020

(alalalalalalalalalalalalalalalalalalalalal

BDATA
BGN.SU=
BINMSG
BITO
=
BIT00 =
BITO1 =
BITOZ2 =
BITO3 =
BITO4 =
BITOS =
BITO6 =
BITO7 =
BITO8 =
BITO9 =
BIT1
=
BIT10 =
BIT11 =
BIT12 =
BIT13 =
BIT14 =
BIT15 =
BIT2 =
BIT3
BIT4
-

DRPCOD 023330
DRST
= 000013
DRSTAT
002706
DSB
= 000004
DSPCOD
022046
DUNIT.
032512
DVC.FT
045572
DSAAG
046476
DSAAH
046514
DSAAI
051262
DSAAJS
051266
DSAAK
051304
DSAAL
051322
DSAAM
051332
EF.CON= 000036
EF .NEW= 000035
EF .PWR= 000034
EF .RES= 000037
EF .STA= 000040
EFO1
= 000001
EFO2 = 000002
EFO3
= 000003
EFO4
= 000004
£FO5
= 000005
EFO6 = 000006
EFO7 = 000007
EFO8
= 000010

003000
002776
003002

= 000040

DLT
= 010000
DPDVD
062206
062074
DPMUL
DRBT
= 000006
DRBUF
017030
DRDY
= 000001
DRMSG
032135

BBA
BCS
BDA

000002
000025
000047
000041
000037
000013
000031
000026
000027
000004
017174
004000
051534
040000
002720
032256
000000
032576
002716

> >

034200
000010
037046
037062
037074
037102
037116
037126
000002
000020

BRMSG
BSEXIT
BSVWR
BUF
B$AAB
BSAAF
CALLPC=
CALLPS=
CALLSP=
CALLTC=
CAL.CL
CAL.TI
CHECK
CHKLUP
CHKSTR
CHKTTY
CHK.MA
CHK.PC
CHK. SW
CHRCNT
CH.FLA
CH.PAS
CLEAR.
CLKACC
CLKBFR
CLKCNT
CLKJUM
CLKRES
CLKSER
CLKSON
(LK,SE
CLNCOD
CLR.MA
CMPENA
CNTTOT
CNVT
COMMAN
COMMTA
COMPAT
CONTCL
CRDY
CRLF
CRSET
¢S
(SR

CSREVI=
CSRPT =
C$SEFG=
C$SPRI=
C$SVEC=
C$TPRI=
CSUNBU=
CSWTM =
CSWTU =
DA
=
DCKER
DCRC
=
DECMSG
DERR
=
DESCYL
DEV.CO
DIAGMC=
DIAG.T
DIRC

032276

APT.ER
ASSEMB=
ASAAV
ASAAW
ASAAX
ASAAY
ASAAZ
ASABA
BA
=
BA16
-

BA17

8LD.HW
BLOCK
B8MP

SEQ 0072

—~ et
e [TI Prs

053210

AFS]

032101
032252
032254

ALLOC

CSRMSG

oOo

035050
024016
002704
002702
003016
003020
003022
002700
003012
017727
003014

000040

PAGE 9

ABO.FM
ADJCYL
ADJDIR
ADJFLG
ADJLCZ
ADJLC3
ADJLC4
ADJLOC
ADJTRK
ADJTXT
ADJWIT

BITS
BIT6
BIT?7
BIT8
BIT9

SYMBOL TABLE

15:54

[alalalalalalalalalalalaTal

032570 G
032506

22~NOv-78

ABOFLA
ABOPAS

30A(1052)

(2 Ialalala)

ASSEMBLY ROUTINES
MACY11
CZRLFB.SUP
23-0CT1-78 09:53

FUNERR
FWD
FSAU

= 000015

F$BGN = 000040
FSCLEA= 000007
FSOU
= 000016
FSEND = 000041
F $HARD= 000004
F$HW
= 000013
FSINIT= 000006
F$JMP = 000050
FSMOD =
FEMSG = 000011
F$PWR = 000017
FSRPT = 000012
FSSEG = 000003
F$SOF
T= 000005
F$SRV = 000010
FESUB = 000002
FESW = 000014
FSTEST= 000001

GARBAG
GDATA
GETCHR
GETCMN
GETPAR
GETSWI

ISCLN
18DV
I$HRD
ISINIT

053074
002734
051600
055164
(046656
054160

HO! DSP=
HPTCOD
HRDPRM
HSFLC
HW.ADR

H$AAB
INAWR
ININIT
INITCO
INITIA
INITWR

INIT.M
INIT.R
INN10
INN1

I$MOD
1$MSG
[$PWR
I$RPT
I$SEG
I$SRV
1$SUB
I$TST
JSIMP
KBPTR

L$DU
LSDUT

LSDVTY

LSEF
LSEFLG

LSEXP1
LSEXP2

LSEXP3

L $HARD
LSHPCP
LSHPTP
LSHW
LSICP
LSINIT
LSLADP
LSLAST

LSMREV
L SNAME
LSREPP

KBUF
LDFUNC
LINE.F
LOAD
LOAD.F
LOGMSG
LPBFR
LPCNTR
LPT.AD
LPT.RE
LSI.RE
LSTCLR
LSTDRV
LSTTRK
LUP
LUP.AD

LSAPT

002174
002201

L SAUT
L$CCP
LSCLEA
L$CO
L$DEPO
L$DESC

002011
002102

LSREV
L$SPC
L$SPCP
LSSPTP
LSSTA
LSTIML
LSTIMU
LSTIM
L$TSTI

tSUNIT

002064

[alalalalalalalalalalalalalalalalalalalalalnlalalalalalalalalalalalalaYa]

FRM6
FRM7
FRM8
FRM9
FRTTRK

021533
021562
021621
021706
021742
020615
020712
020771
021032
021101
021122
021162
021226
002750
017566
017635

SEQ 0073
LSDEVP
LSDISP
L$DR
LSDRCT
L$DRS
LSDRST
LSDTP

FRM?

F_M3
FRM4
FRMS

021450

FRM17
FRM18

INTEN
INTFOR
INVAL.
INVINT
INV.SW
IN.SUF
I$AU

FRM14
FRM1S
FRM16

002175
002202
002176
002203
002177

[a]9)]

FRM13

U27562

053730

[

046140
002724
002662
053446
020520
021270
021334
021371

FNDTRK

PAGE 9-1

(219}

FORM.T
FORSK
FOWR
FREE
FRM1
FRM10
FRM11
FRM12

GET.TW
GLBDAT
GLBEQA
GLBERR
GLBSUB
GLBTXT

SYMBOL TABLE

15:54

[alalainlalalal

027704
0025562

22-NOV-78

nnnn

FNDBSC
FNDDRV

30A(1052)

ASSEMBLY ROUTINES
MACY11
CZRLFB.SUP
23-0C71-78 09:53

001244
062444
041346

L 10000
L10001

002142
002147

002712
002124
002131

PWR.FA
PWR.FL
PWR .MS
PWR.SA
PWR.UP
P.CLK.
RDHDR
READ
READ.P

002125
002132
002126
002133

002127
002134
00213C
002135
017361
017522
023334
002626
000000
000000
000000
000000
000000
000000
000001

PAT

PATLST
PRINTC

PRINTF

PRIOR
PRIOO
PRIOY
PRIOZ

=
=
=
=

G
G
G
G
G
G
G
G

063050

ERRORS DETECTED:

SPEC.U
SPV.SE
STARTC
STF.G
STRCHR
STRT.T
STSEC

037136
000400
061416 G
002676
052430

[219]

ST.SET
SUNIT.
SUPERV
SUPF LA
SUPV.T
SUP.PR
SURFAC
SVCGBL=
SVCHAN
SVCINS=

SVCTAG= 000000
SYCIST=
SWCHAN
SWITCH
SW.ADR
SW.PTA
SYS.FT
SSLSYM=
TEMP

TERMI

TERMTA

TEST.M

TQU10
TQU11
TQU20

024716
017616
000020

TQU4O
TQU41

000
0

DSKZ :CZRLFB,DSKZ : CZRLFB=CZRLFB/ML ,(ZRLFB.P11,(ZRLFB.SUP
RUN-TIME: 28 25 . 9 SECONDS
RUN-TIME RATIO: 99/54=1.8
(29 PAGES)
15K
CORE USED:

SEQ 0074
TQU50
TQUS1

TRKCNT
TRKFND

TST.AB
TST.TO
TYPEC
TYPEPC
TYPFLA
TYPLIN
TYPNUM
TYPSTR
TYP.ER
TY.UNI

002166
002173
002760
002756
041460
033662
052066
045762

002165
002172

T$CODE=
T$ERCO=
TSERRN=
TSEXCP=
TSHILI=
T$LOLI=
TSLSYM=
TSNEST=
TNSKO=
TINSK1=
T$SAVL=
T$SEGL=

UNIT.D
UNI.MA

030360
032524
032526
002726
026534
032764
VAL.LA
033604
. SW
VAL
037250
VEC
= 000002
VECMSG
032126
= 000002
VECT
VEROD
026206

UNLOAD
USER.P
USER.T
wT
VAJWR
VALID.

VEROW
WCOUNT
WIDTH

WRITE = 000012
WRIT1

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=
XS$OF
F S=
X$TRUE=
$BREG
$SENDAD
$SAV2

TS$TEST=
T$TSTM=
T$TSTS=
T$SCLE=
T$$DU =
T$SHAR=
TSSHW =
T$S$INI=
T$IMSG=
TSSTES=

TIMFLG
TIM.CO
TIM.OP
T700.MA

TQU21
TQU30
TQu31

T$TAGL=
TSTAGN=
TSTEMP=

TERML]

SERNM?

SERNUM
SETLST
SETUP
SET.MA
SHIFT
SIGN
SKCYL
SKER
SKHS

PAGE 9-2

Sv(isSuB=

SECBUF
SECLST
SECT
SECWRD
=
SEEK
SEGSTA
SERNM1

PRIO3 =
PRIO4 =
PRIOS =
PRIO6 =
PRIO7 =
PRNTST
PRO.CM
PRSTRK
PTAB.S
G
PUTCHR 051554

. ABS.

—

RECER

RECMS
REGBAC
REGDMP
REGSAV
REQN.P
REQN.T
REV
REVSK
RE.SET
RLCNT =
RLMSG
RSADJS
RSTACK
SAVEDO=
SEARCH

15:54

STSEC1

REASON

051224
032260 G

002652
053050
056356
000004
000000
000040
000100
000140
000200
000240
000300
000340
052740
027210
002752
032530

SYMBOL TABLE

OWER
OVWPER
OWTRK
O$APTS=
0%AU =
O$BGNR=
O$8GNS=
0s0U =
OSGNSW=
O$POIN=
O$PWR = 000000
PARSES
055236
PAR.LA
PASS.C

22-NOV-78

062700 G

[=]
o
N

OSECT
QUTI0
ouT11
QUT20
QuT21
QUT30
QuT31
QuT40
QUT41
QUTS0
ouTS51
OWES

30A(1052)

[21a]alala)

ASSEMBLY ROUTINES
MACY11
CZRLFB.SUP
23-0C7-78 09:53

$SAV3

$SAV4
$SAVS

037140

063050