Digital PDFs

AC-E250B-MC

October 1978

48 pages

Original

4.7MB

Document:	CZRLFB0-RL01-Drive-Compatability-Test
Order Number:	AC-E250B-MC
Revision:	0
Pages:	48
Original Filename:	http://bitsavers.org/pdf/dec/pdp11/xxdp/diag_listings/RL01/AC-E250B-MC_CZRLFB0-RL01-Drive-Compatability-Test_Oct78.pdf

OCR Text

IDENTIFICATION

PRODUCT CODE:
PRODUCT NAME:
DATE CREATED:
MAINTAINER:
AUTHOR:

AC-E250B-MC
CZRLFBO RLOI DRIVE COMPATABILITY TEST
11-0CT-78
DIAGNOSTIC ENGINEERING
D. DEKNIS

THE INFOR~ATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUtJES
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS
MANUAL.
THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE
PURCHASER UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM
AND CAN BE COPIED (WITH INCLUSION OF DIGITAL'S COPYRIGHT
NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT ASMAY OTHERWISE BE
PROVIDED IN WRITING BY DIGITAL.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR
THE USE OR RELIA8ILITY OF ITS SOFTWARE ON FQUIPMENT THAT IS
NOT SUPPLIED BY DIGITAL.
COPYRIGHT {C} 1977, 1978, DIGITAL EQUIPMENT CORPORATION

SEQ 0001

Page 2

SEQ 0002

TABLE OF CONTENTS
1.0
1.1
1.2
1.3
1.4

1.5
2.0
2.1
2.1.1

2.1.2

2.2
2.3
2.3.1
2.3.2
2.4
2.5
2.6
3.0
4.0
5.0
6.0

GENERAL INFOR~ATION
PROGRAM ABSTRACT
SYSTEM REQUIREMENTS
RELATED DOCUMENTS A~D STANDARDS
DIAGNOSTIC HIERARCHY PREREQUISITES
ASSU~PTIONS

OPERATING INSTRUCTIONS
HOW TO RUN TPIS DIAGNOSTIC
THE SIX STEPS OF EXECUTION
SAMPLE RUN-TUROUGH
HOW TO CREATE A CHAINABLE FILE
DETAILS OF COMMANDS AND SYNTAX
TABLE OF COMMAND VALIDITY
COMMAND SYNTAX
EXTENDED P-TABLE DIALOGUE
HARDWARE PARAMETERS
SOFTWARE PARA~ETERS
ERROR INFORMATION
PERFORMANCE AND PROGRESS REPORTS
DEVICE INFORMATION TABLES
TEST SUMMARIES

Page 3

1.0
GENERAL INFORMATION
1.1
PROGRAM ABSTRACT
1.1.1 STRUCTURE OF PROGRAM
THIS DIAGNOSTIC OCCUPIES 14.SK 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 ~ORE IMAGE"
COMMAND BELOW FO~ DRTAILS OF CHAINING PROCEDURE). IT IS A SINGLE
PROGRAM FROM THE STANDPOINT OF THE DIAGNOSTIC USER
BUT WE HAVE
INCORPORATED INTO IT A CONTROL MODULE WHICH WILL LiTER BE RELEASED
INDEPENDENTLY AS A DIAGNOSTIC SUPERVISOR.
WH~N THIS DIAGNOSTIC IS STARTED AT ADDRESS 200, CONTROL GOES FIRST
TO
THE SUPERVISOR PORTIoN L WHICH WILL ASK CERTAIN "HARD CORE" QUESTIONS
ABOUT THE ENVIRON~ENT. THEN IT WILL ENTER COMMAND MODEl INDICATED BY
A PROMPT CHARACTER <OS B». AT COMMAND MODE THE OPE~ATOR MAY ENTER
ANY OF SEVERAL COMMANDS AS DESCRIBED BELOW.
THE SUPERVISOR CODING FOLLOWS IMMEDIATELY THE DIAGNOSTIC TEST CODING,
BUT
THE
SUPERVISOR
LISTING
HAS BEEN SUPPRESSED FOR GENERAL
DISTRIBUTION. A LIMITED DISTRIBUTION HAS BEEN MADE TO FIELD SERVICE
OF THE SUPERVISOR ASSE~BLV LISTING, AND IT MAY BE CO~SULTED IN EVENT
OF A SOFTWARE PROBLEM.
1.1.2 DIAGNOSTIC INFORMATION
THE RL01 DRIVE COMPATABILITY TEST IS A PDP-l1 (LSI-11) BASED PROGRAM
THAT WILL TEST INTERCHANGA8ILITY OF CARTRIDGES AETWEEN DRIVES. THE
TEST PERFORMS WRITES, READS, OVERWRITF.S, ADJACENT CYLINDER WRITES TO
PROVF. COMPATABILITV.
1.2
SVSTE~ REQUIREMENTS
1.2.1 HARDWARE REQUIREMENTS
PDP-li/LSI-Il PROCESSOR WITH 16K OR MORE OF MEMORY
CONSOLE DEVICE (LA30 t LA36,VT50,ETC.)
RL11/RLVll CONTROLLEK(S)
1 - B RLOl DRIVES
1 - 8 RLOIK CARTRIDGES WITH RAD SECTOR FILE
KWIIP l KWIIL (OPTIONAL)
LINEPKINTER(OPTIONAL)
1.2.2 SOFTWARE REQUIREMENTS
CZRLFBO RLOI DRIVE COMPATABILITY
(FORMERLY MD-II-DZRLF-A)

SEQ 0003

Page 4

SEQ 0004
1.3
RELATED DOCUMENTS AND STANDARDS
RL01 USERS MANUAL (EK-RL01-0G-PRE)
XXDP USERS MANUAL
1.4
DIAGNOSTIC HIERARCY PREREQUISITES
THE RLOI SUBSYSTE~ SHOULD HAVE SUCCESSFULLY RUN THE
FOLLOWING
PROGRAMS:
CZRLABO
RLII/RLVII RLOI CONTROLLER TEST (PART 1)
CZRLBBO
RLII/RLVII RLOI CONTROLLER TEST (PART 2)
CVRLAAO
PLVII RLOI DISKLESS TEST (RLVll ONLY)
CZRLCBO
RLOI DRIVE TEST (PART 1)
CZRLDBO
PLOI DRIVE TEST (PART 2)
CZRLEBO
RLll/RLV11 RLOI PERFORMANCE EXERCISER
1.5
ASSUMPTIONS
THE HARDWARE OTHER THAN THE RLOI SUBSYSTEM IS ASSU~ED TO ~ORK
PROPERLY. FALSE ERRORS MAY BE REPORTED IF THE PROCESSOR, ETC., DO NOT
FUNCTION PROPERLY.
2.0
OPERATING INSTRUCTIONS
2.1
HOW TO RUN THIS DIAGNOSTIC
2.1.1
THE SIX STEPS OF EXECUTION
THIS DIAGNOSTIC SHOULD BE LOADED AND STARTED USING NORMAL XXDP
PROCEDURES.
THE START COMMAND SHOULD NOT SPECIFY AN ADDRESS, BECAUSE
THE DIAGNOSTIC HAS THE PROPER TRANSFER ADDRESS CODED INTO IT.
WHEN THIS DIAGNOSTIC IS STARTED, THE FOLLOWING STEPS WILL OCCUR:
**********
'I<

STEP 1 *

**********

A. SHORT SERIES OF "HARDCCRE QUESTIONS" WILL BE ASKED:
QUESTIOr;
MEANING
L-CLK (L) N ?
IS THERE AN L-CLOCK?
P-CLK (L) N ?
" " " P-CLOCK?
50HZ (L) N ?
IS THE POWER 50 CYCLES (AS IN EUROPE)?
LSI lL~ N ?
IS MACHINE AN LSI?
LPT L ~?
IS THERE A LINE PRINTER?
HEM K (D) l6?
HOW MANY K OF ~EMDHY ARE THERE?
THE DEFAULTS (SHOWN AFTER EACH QUESTION) CAN BE SELECTED 8Y HITTING
CARRIA.GE PETURN. IT IS POSSIBLE THAT NOT ALL OF THE QUESTIONS WILL BE
ASKED: FOR EXAMPLE, IF YOU SAY "YES" TO THE L-CLOCK QUESTION, THE

Page 5

P-ClOCK QUESTION WILL NOT BE ASKED.
IF NEITHER P OR L CLOCK ARE ANSWERED YES THE OPERATOR WILL BE ASKED TO
TYPE TWO CHARACTERS 4 SECONDS APART.
**********

" STEP 2 "

**********

~HEN YOU HAVE ANSWERED ALL THE HARDCORE QUESTIONS£ THE DIAGNOSTIC WILL
ISSUE THE PROMPT "DS-B>".
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 BfING IN DIAGNOSTIC
COMMAND ~ODE, AS OPPOSED TO XXDP COMMAND MODE.
AT THIS POINT YOU WILL ENTER A "START" COMMAND. THIS IS NOT THE SAME
AS THE XXDP "START" COMMAND! WHICH YOU ALREADY ISSUED IN RESPONSE TO
THE XXDP DOT PROMPT. THIS "~TART" COMMAND CAN TAKE A NUMBER OF
SWITCHES AND FLAGS (ALL OPTIONAL) AND THE DETAILS OF THESE ARE SET
FORTH IN "2.3 DETAILS OF COMMANDS AND SYNTAX". HOWEVER! IN ORDER TU
USE THE PROGRAM, ALL YOU NEED TO SAY IS SOMETHING LIKE TPIS:
STA/PASS:1/FLAGS:HOE
THINGS TO NOTE HERE:
1. ONLY THE FIRST THREE CHARACTERS Of THIS OR ANY COMMAND AT THE
"DS-B>" LEVEL NEED TO BE TYPED.
2. THE "PASS" SWITCH SPECIFIES HOW MANY PASSES YOU DESIRE.
A
PASS CONSISTS OF RUNNING THE FULL DIAGNOSTIC AGAINST ALL
UNITS BEING TESTED (THIS WILL BE EXPLAINED SHORTLY).
ONE
PASS IS SPECIFIED IN THE ABOVE EXAMPLE.
3. THE "FLAGS" SWITCH MAY SPECIFY ANY OF A NUMBER OF FLAGS, BUT
THE MAIN USEFUL ONES ARE:
LOE
LOOP ONE ERROR
HOE
HALT ON ERROR
IER
INHIPJT ERROR PRINTOUT
THE HOE FLAG IS SPECIFIED IN THE APOVE EXAMPLE (WE-LL SEE WHY
SHORTLY).

"**".,,***"

" STEP 3 "

**********

WHEN YOU HAVE TYPED IN A "START" COMMAND L THE DIAGNOSTIC WILL CO~E
BACK WITH THE QUESTION "# UNITS?" TO ~HICH YOU SHOULD GESPOND BY
TYPING IN THE NUMBER OF DEVICES YOU WISH TO TEST.

SEQ 0005

•
Page 6

SEQ 0006
A WORD OF WARNING HERE: THE NUMBER OF UNITS DEPENDS ON THE TARGET
DEVICE Of THE DIAGNOSTIC. FOR EXAMPLE, IF THE DIAGNOSTIC IS DI~ECTED
AT A DISK DRIVE THEN THE NUMBER OF UNiTS WOULD BE THE NUMBER OF
DRIVES TO BE 'TESTED. WHEREAS IF THE DIAGNOSTIC WAS DIRECTED AT THE
DISK CONTROLLER f THEK THE NUMBER OF UNITS WOULD BE THE NU~BER OF
CONTROLLERS.
HE TARGET DEVICE OF A DIAGNOSTIC CAN ALWAYS BE
DETER~INED BY INSPECTING THE "HEADER" STATEMENT NEAR THE 9EGINNING
OF
THE SOURCE CODE.
ONE OF THE OPERANDS OF THIS "HEADER" STATEMENT
SHOULD BE THE DEVICE TYPE OF THE DIAGNOSTIC.

Page 7

SEQ 0007
**********

" STEP 4 "

**********

WHEN VOU HAVE TVPED IN THE NUMBER Of UNITS TO BE TESTED, THE
DIAGNOSTIC WILL ASK VOU THE "HARDWARE QUESTIONS". THE ANSWERS TO
THESE QUESTIONS ARE USED TO BUILD TABLES IN CORE, CALLED "HARDWARE
P-TABLES".
ONE HARDWAPE P-TABLE WILL BE SUILT fOR EACH UNIT TO BE
TESTED.
THERE ARE SEVERAL HARDWARE QUESTIONS AND THE ENTIRE SERIES WILL BE
POSED N TIMES, WHERE N IS THE NUMBER OF UNITS.
PHILOSOPHy
IN
DIAGNOSTIC
ENGINEERING.
THIS REPRESENTS A NEW
DIAGNOSTICS IN THE FUTURE WILL NOT BE WRITTEN TO AUTOSIZE DR ASSU~E
STANDARD ADDRESSES: INSTEAD L THEY WILL ASK THE OPERATOR FOP ALL THE
INFORMATION THEY NEED TO TEST THE DEVICE.
**********

" STEP 5 "

**********

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 3E ASKED THE
SOFTWARE Q6ESTIONS THAT DETERMINE THE BEHAVIOR Of THIS PROGRAM, TVPE
"V".
If VoU WANT TO TAKE ALL THE DEFAULTS TO THESE QUESTIo~S, TYPE
"N". IF YOU TYPE "Y" YOU WILL BE ASKED THE SOFTWARE QUESTIONS (SEC
2.6)
AND THE ANSWERS WILL BE PUT INTO THE SOFTWARE P-TABLE IN THE
PROGAAM. THE SERIES Of QUESTIONS WILL BE ASKED JUST ONCE, REGARDLESS
Of THE NUMBER OF UNITS TO 3E TESTED.
**********

,. STEP 6 ,.

**********

AFTER YOU HAVE ANSWERED THE SOFTWARE QUESTIO~S
THE DIAGNOSTIC WILL
BEGIN TO EXECUTE THE HARDWARE TEST CODE. fHERE ARE SSVER~L THINGS
THAT CAN HAPPEN NEXT, DEPENDING ON ~HETHER I HARDWARE ERROR IS
ENCOUNTERED AND ALSO ON WHAT SWITCH VALUES YOU SELECTED ON THE START
COMMAND. CONSIDER THE POSSIBILITIES:
1. If NO ERROR IS ENCOUNTERED l THEN THE DIAGNOSTIC WILL SIMPLY
EXECUTE THE DESIRED NUMHER OF PASSES AND RETURN TO CO~~AND
~ODE (PROMPT 05-8».

-s

41lk

ililli'
~

Page 8

If AN ERROR IS ENCOUNTERED THEN ONE OF THREE THINGS HAPPENS,
DEPENDING ON THE SETTINGS 6F THE HOE AND LOE FLAGS.
HOE SET! THE ERROR WILL BE REPORTED ON THE CONSOLE AND
THE DIAGNOSTIC WILL RETURN TO COMMAND MODE.
LOE SET: THE 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 RESUME
AS IF NO ERROR HAD OCCURED.

2.1.2 SA~PLE RUN-THROUGH
LET'S SEE HOW ALL THIS WORKS IN A REAL SITUATION.
RECALL THAT WE
ENTERED THE COMMAND "STA/PASS:l/FLAGS:HOE".
THIS WOULD BE A VERY
TYPICAL WAY TO RUN THE DIAGNOSTIC. IF NO ERRORS ARE ENCOUNTERED( THE
SINGLE REQUESTED PASS WILL BE EXECUTED AND THE PR8MPT WILL RE
REI~~UED.

IF A , ERROR IS ENCOUNTERED£ THE ERROR WILL BE REPORTED ANn THE PROMPT
WILL BE REISSUED (BECAUS~ THE HOE FLAG IS SET). AT THIS POINT THERE
ARE FOUR DIFFERENT WAYS YOU CAN GET THE PROGRA~ GOING AGAINS:
1. ISSUE ANOTHER "START" COMMAND (THUS GOING THRU ALL OF STEPS
2, 3, 4, 5, AND 6 AGAIN)
2. ISSUE A "RESTART" COMMAND (SAME AS START COM~AND EXCEPT THAT
THE HARDWARE QUFSTIONS ARE NOT ASKED)
3.
ISSUE A "CONTINUE" COMMAND (EXECUTION ~ILL RESUME AT THE
BEGINNING OF THE PARTICULAR HARDWARE TEST (MOST DIAGNOSTICS
CONSIST OF A NU~BER OF THESE) THAT IT ~AS IN WHEN THE ERROR
HALT OCCURED. NO QUESTIONS ASKED.
4. ISSUE A "PROCEEr" COMMAND:
EXECUTION ~ILL RESU~E AT THE
INSTRUCTION FOLLOWING THE ERROR REPORT (THIS IS A SPECIAL
CO~MAND AND CAN BE ISSUED ONLY AT A HALT ON ERROR).
THE MOST TYPICAL THING Te DO HERE IS TO ISSUE THE PROCEED, RUT WITH
DIFFERENT FLAG SETTINGS. PROBABLY YOU WOULD WANT TO SAY
PRO/FLAGS:IER:LOE:HOE=Q

SEQ 0008

Page 9

THIS WILL DO THE FOLLOWING:
1. TURN ON THE IER (INHIBIT ERROR PRINTOUT) FLAG
2. TURN ON THE LOE FLAG
3. TURN OFF THE HOE FLAG
4. RESU~E EXECUTION AT INSTRUCTION AFTER ERROR REPORT
THE DIAGNOSTIC WILL NOW LOOP ON THE BLOCK OF CODE THAT DETECTED AND
REPORTED THE ERROR~ BUT NO ERROR PRINTOUT WILL OCCUR. THUS YOU CAN
STUDY THE ERROR OR S~OPE IT OR WHATEVER.
WHEN YOU·VE SEEN ENOUGH, VOU MAY HIT CONTROL/C. THIS WILL TAKE YOU
OUT OF THE LOOP AND PUT YOU BACK INTO COMMAND MODE. YOU NOW HAVE
THREE CHOICES:
1. START
2. RESTART
3. CONTINUE
LET'S SAY YOU'VE REPAIRED THE DEFECT FOUND ABOVE AND WANT TO FINISH
RUNNING THE DIAGNOSTIC. YOU WOULD TYPE
CON/FLAGS:HOE:IER=O:LOE=O
THIS WILL RESTORE THE FLAGS TO THEIR ORIGINAL VALUES AND RESU~E
EXECUTION AT THE BEGINNING OF THE HARDWARE TEST YOU WERE IN. IF THE
ERROR DOES NOT RECUR, THE EXECUTION WILL FLOW RIGHT ON THRU TO THE
NEXT ERROR OR TO END OF PASS.
IF AT END OF PASS YOU WANT TO RUN THE DIAGNOSTIC AGAIN, YOU HAVE TWO
CHOICES:
1. START
2. RESTART
YOU WOULD CHOOSE ONE, DEPENDING ON WHETHER YOU WANTED TO ANSWER THE
HARDWARE QUESTIONS AGAIN.

SEQ 0009

Page 10

SEQ 0010
THE FULL PRINT-OUT fROM THE ABOVE DIALOGUE MIGHT LOOK LIKE THIS:

.R DZRKXX
DZRKXX
L-CLK (L) N ? Y

50HZ (L) N ?
LSI
LPT ~Ll
L N
N??
MEM K
D) 16 ?

DS-B)S A~PASS:l/FLAGS:HOE
# UNITS (D) ? 2
UNIT 1
CSR (O) ?
VECTOR (0) ?
BR LEVEL (0) ?
DRIVE (0) ? 0
UNIT 2
CSR (D) ?
VECTOR (D) ?
BR LEV EL (0) ?
DRIVE (0) ? 1
CHANGE SK (L) ? N
OZRKXX HAPO ERR 00004 TST 003 SUB 002 PC:004130
ERR HLT
OS-B)PRo/FLAGS:IER:LOE:HOE=O

BY
WHOM
ENTEREO:

o
o

0,0

D
D

0,0
0,0

0,0
0,0
0,0

D,O

D,O
0,0
0,0

D,O

0,0
D

[)

0,0

*************************************************

AT THIS POINT THE DIAGNOSTIC IS LOOPING ON THE
ERROR WITHOUT PRINTING ANYTHING. YOU CAN SCOPE

I~~*~~~2~*~~T!~*¥2~*~~~~*~2~~T~~*!I,*I~~~*:;*~~!*

OS-B)CON/FLAGS:HOE:IER:LOE=O
CHANGE SW (L) ? N
DZRKXX WP 1
DS-B)RESTART/PASS:l
CHANGE SW (L) ? N

0,0

D,e

0,0

D,O

Page 11

SEQ 0011

2.2
HOW TO CREATE A CHAINABLE fILE
THE DIAGNOSTIC AS RECEIVED FROM RELEASE ENGINEERING CANNOT BE RUN IN
CHAIN MODE. THA IS WHY IT BEARS THE EXTENSION "BIN" INSTEAD OF "BIC".
THERE IS A WAY, HOWEVER, TO CREATE A CHAIN ABLE PROGRAM FROM WHAT
YOU·VE GOT.
IT CONSISTS OF RUNNING THE PROGRAM WITH THE SPECIAL COMMAND "CCI"
ISSUED ~HERE YOU WOULD NORMALLY ISSUE A START COMMAND (TO THE PROMPT
DS-B). THIS COMMAND CAUSES THE DIAGNOSTIC TO GO THRU ALL THE
QUESTIONS AND ANSWERS AND THEN TO HALT£ JUST WHERE IT WOULD ORDINARILY
BEGIN EXECUTION OF THE HARDWARE TEST CuDE. AT THIS POINT YOU CAN DUMP
THE PROGRAM AS IT SITS IN CORE TO THE LOAD MEDIU~, WITH THE NEW
EXTENSION "BIC".
HERE IS A SAMPLE DIALOGUE TO ACCOMPLISH THIS:
.R UPD2
RESTART: XXXXXX
*CLR
*LOAD DIAG.BIN
XFER:200
CORE:0,60602
*START 200
L-CLK (L) N ?
DS-B)CCI
# UNITS (D) ? 4
CHANGE SW (Ll ? N
PTAB END: 60632
*************************************

*AT THIS POINT THE MACHINE HALTS AND*
*YOU MUST RESTART AT ADDRESS XXXXXX*

*************************************

*HICORE 60632
CORE: 0 60632
*DUMP DK6: DIAG.PIC
THE RESULT OF DOING THIS IS THAT yOU CAN NOW BUILD AN XXDP CHAIN FILE
CONTAINING THE XXDP CO~MAND
.P DIAG.SIC
AND THE DIAGNOSTIC WILL EXECUTE WITHOUT MANUAL INTERVKNTION, USING THE
ANSWERS THAT YOU GAVE IT WHEN YOU oro THE CCI COMMAND.

&111

Page 12

2.3
DETAILS OF COMMANDS AND SYNTAX
2.3.1 TAPLE OF COMMAND VALIDITY
THERE ARE FOUR WAYS OF ENTERING DIAGNOSTIC COMMAND MODE, AND DIFFERENT
SUBSETS OF THE DIAG COMMAND SET ARE AVAILABLE wITH EACH:
HOW ENTERED
LEGAL COMMANDS
OPERATOR
ENTERED
-RUN
DrAG1.
START
PRINT
DISPLAY
FLAGS
ZFLAGS
DIAGNOSTIC HAS FINISHED ALL
START
2.
ITS REQUESTED PASSED
REST ART
PRINT
DISPLAY
nAGS
ZFLAGS
OPERATOR INTERRUPTED THE
START
3.
DIAGNOSTIC WITH CTRL/C
RESTART
CONTINUE
PRINT
DISPLAY
FLAGS
ZFLAGS
AN F.RROR WAS ENCOUNTERED
START
4.
WITH THE HOE FLAG SET SET
RESTART
CONTINUF.
PROCEED
PRINT
DISPLAV
FLAGS
ZFLAGS
2.3.2 COMMAND SYNTAX
***********w******************************************************

STA(RT)/TESTS:TEST-LISi/PASS:PASS-CNT/FLAGS;FLAG-LISTIEOP:EOP-INCR
******************************************************************

THE DIAGNOSTIC IN CORE IS EXECUTED IN ACCORDANCE WITH THE SWITCHES
SPECIFIED.
THE MESSAGE "# UNITS?" IS PRINTED. THE START COM~AND MAY
BE ISSUED WHEN DIAGNOSTIC COMMAND MODE HAS BEEN ENTERED VIA ONE OF THE
FOLLOWING: A) OPERATOR TYPED "RUN DIAGNOSTIC" B) DIAGNOSTIC FINISHED
EXECUTING C) ERRUR WAS ENCOUNTERED wITH HOE FLAG SET D) OPERATOR
ENTERED CONTROL/C.

SEQ 0012

Page 13

SEQ 0013

AFTER THE OPERATOR RESPONDS TO "I UNITS?"£ THE HARDWARE DIALOGUE IS
INITIATED.
WHEN IT IS COMPLETED
TH~
QUESTIONS "CHANGE SW?" IS
ISSUED, AND THE ANSWERS, IF GIVEN L BECOME THE NEW DEfAULTS. THEREFORE
IT IS NECESSARY TO RELOAD THE P~OGRAM IN ORDER TO RETURN TO THE LOAD
DEFAULTS.
THE SWITCH ARGUMENTS ARE AS FOLLOWS:
"TEST-LIST" IS A SEQUENCE OF DECIMAL NUMBERS (1:2 ETC.) OR RANGES OF
DECIMAL NUMBERS (1-5:8-10 ETC.) THAT SPECIfY THE TESTS TO BE EXECUTED.
THE NUMBERS ARE SEPARATED BV COLONS. THE NUMBERS RANGE fROM 1 TO THE
LARGEST TEST NUMBER IN THE DIAGNOSTIC. THEY MAY BE SPECIFIED IN ANY
ORDER. TESTS WILL BE EXECUTED IN NUMBERICAL ORDER REGARDLESS Of THE
ORDER OF SPECIfICATION. THE DEFAULT IS TO EXECUTE ALL TESTS.
"PASS-CNT" IS A DECIMAL NUMBER INDICATING THE DESIRED NUMBER OF
PASSES.
A PASS IS DEFINED AS THE EXECUTION OF THE FULL DIAGNOSTIC
(ALL SELECTED TESTS) AGAINST ALL UNITS SUMBITTED.
THE DEFAULT IS
NON-ENDING EXECUTION •• S "FLAG-LIST" IS A SEQUENCE Of ELEMENTS Of THE
FORM <fLAG)L <FLAG=1>, OR <FLAG=O>, SEPARATED BY COLONS, WHERE <FLAG)
HAS ONE Of THE FOLLOWtNG V~LUES:
HOE
HALT ON r.RRORf. CAUSING COMMAND MODE TO BE ENTERED WHEN AN
ERROR IS ENCOUNTERED
LOOP ON ERROR, CAUSING THE DIAGNOSTIC TO LOOP CONTINUOUSLY
LOE
WITHIN THf. SMALLEST DEFINED BLOCK OF CODING (SEGMENT,
SUBTEST, OR TEST} CONTAINING THE ERROR
INHIBIT ERROR REPORTING
IER
INHIBIT BASIC ERROR REPORTS
IBE
INHIBIT EXTENDED ERROR REPORTS
IXE
DIRECT
ALL MESSAGES TO A LINE PRINTER
PRI
PNT
PRINT NUMBER OF TES BEING EXECUTED
BELL ON ERROR
BOE
UAM
RUN IN UNATTENDED MODEL BYPASSING ~ANUAL INTERVENTION TESTS
INHIBIT STATISTICAL REPORTS
ISR
INHIBIT DFOPPING OF UNITS BY DIAGNOSTIC
IOU

'I'

Page 14

SEQ 0014
THE FLAGS NA~ED OR EQUATED TO 1 ARE SET, THOSE EQUATED TO 0 ARE
CLEARED. A FLAG NOT SPECIFIED IS CLEARED. IF THE FLAGS SWITCH IS NOT
GIVEN ALL FLAGS ARE CLEARED.
"EOP-INCR" IS A DECIMAL NU~BER INDICATING HOW OFTEN (IN TERMS OF
PASSES) IT IS DESIRED THAT THE END OF PASS MESSAGE BE PRINTED. THE
DEFAULT IS AT THE END OF EVERY PASS.
***********************************************************************************

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

***~************************************************** *****************************

THE DIAGNOSTIC IN CORE IS EXECUTED IN ACCORDANCE WITH THE SWITCHES
SPECIFIED. HOWEVER, NEW P-TABLES ARE NOT BUILT. INSTEAD, THE ONES IN
CORE ARE USED.
THE QUESTION "CHANGE SW?" IS ASKED, AND THE ANSERS IF GIVEN BECOME THE
NEW DEFAULTS.
THE CO~MAND MAY BE ISSUED WHEN COMAND MODE HAS BEEN
ENTERED VIA A) DIAGNOSTIC IS FINISHED B) HALT ON ERROR C) CONTROL/C.
THE SWITCH ARGUMENTS ARE AS IN THE START COMMAND EXCEPT:
1. "UNIT-LIST" IS A SEQUENCE Of LOGICAL UNIT NUMRERS 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 §PECIFIED MUST
NOT HAVE BEEN DROPPED BY THE OPEPATOR 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.
2. ALL UNSPECIfIED FLAG SETTINGS ARE UNCHANGED.
*******************************************

r.ON(TINUE)/PASS:<PASS-CNT/FLAGS:<FLAG-LIST>

*******************************************

COMMAND MODE MUST HAVE BEEN ENTERED DUE TO A HALT O~ ERROR DR 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 CONTROL/C TOOK PLACE.
SOfTWARE DIALOGUE MAY OPTIONALLY BE REEXECUTED. HARDWARE PARAMETERS
MAY NOT BE CHANGED.
THE SWITCH ARGU~ENTS APE AS IN THE START COMMAND EXCEPT:
1. DEFALT FOR PASS-CNT IS THE UNSATISFIED PASS-C~T FROM THE
PREVIUUS START OR RESTART
2. UNSPECIFIED FLAG SETTINGS ARE UNCHANGED

Page 15

SEQ 0015

***************************

PRorCEED)/FLAGS:<FLAG-LIST>
***************************

COMMAND MODE MUST HAVE BEEN ENTERED VIA A HALT ON ERROR.
THE EFfECT
OF THE COMMAND IS TD BEGIN EXECUTION AT THE LOCATIDN fOLLDWING THE
ERROR CALL. NEITHER HARDWARE NOR SOFTWARE PARAMETERS MAY BE ALTERED.
THE SWITCH ARGUMENTS ARE THE SAME AS THE START COMMAND EXCEPT:
1. UNSPECIFIED FLAG SETTINGS ARE UNCHANGED
*************************************************************

CCI/TEST:TEST-LIST/PASS:PASS-CNT/fLAGS:fLAG-LIST/EOP:EOP-INCR
*************************************************************

THE DIAGNOSTIC EXECUTES THRU ALL OPERATOR DIALOGUE AND HALTS AT THE
HARDWARE TEST CDDE. NOW THE OPERATOR CAN DUMP THE CORE IMAGE TO THE
MEDIUM WITH A BIC EXTENSION.
THE BIC fILE MUST BE HANDLED DIfFERENTLY DEPENDING ON WHETHER IT IS
RUN MANUALLY OR IN CHAIN MODE. If RUN MANUALLY IT CAN BE INVOKED
EITHER WITH A "START" (IN WHICH CASE IT WILL BEHAVE LIKE THE EIN fILE:
THE PRE-GENERATED ANSWERS TO OPERATOR QUESTIONS WILL BF. IGNORED) OR
WITH A "RESTART" (IN WHICH CASE THE PRE-GENERATED OPERATDR ANSWERS
WILL BE USED).
IF RUN IN CHAIN ~DDE~ AUTDMATIC EXECUTIDN WILL COMMENCE IMMEDIATELY
FROM THE XXDP CDMMAND ".R DIAG". THE COMMAND PROMPT "OS-B>" WILL NOT
BE ISSUED.
ANY SWITCHES SPECIFIED ON THE CCI COM~AND WILL CARRY OVER WHEN THE BIC
FILE IS RUN IN CHAIN MDDE (EXCEPT THAT UAM IS ALWAYS SET THERE) BUT
WILL NOT CARRY DVER WHEN IT IS RUN MANUALLY.
TO DO A crr ON A FULL SIZED DIAGNOSTIC (14.5K WOROS)L A ~ACHINE SIZE
LARGER THAN 16K IS R~QUIRED. THE EXACT SIZE NEEDEv DEPENDS DN WHICH
UTILITY IS USED TO EXECUTE THE DIAGNOSTIC AT CCI TIME.
**********************
DRorp'/UNITS:UNIT-LIST
**********************

THE UNITS SPECIFIED ARE DROPPED FROM TESTING UNTIL THEY ARE ADDED BACK
OR UNTIL A START COMMAND IS GIVEN. A DROP CANNOT BE fDLLOWED BY A
PROCEED.
THERE IS ALSO A "DRDP" ~ACRO INTERNAL TD THE DIAGNOSTIC c WHICH GIVES
THE FACILITY OF AUTO-DROPPING.
THE DURATION DF A PROGRAM DROP,
HOWEVER, IS ONLY UNTIL THE NEXT START OR RESTART.

Page 16
*******************

ADD/UNITS:UNIT-LIST

*******************

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

BEEN PREVIOUSLY
AN ADD CANNOT BE

*******
PRIfNT \

*******

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

THE

***************************

DIS(PLAY)/UNITS:<UNIT-LIST)
***************************

THE HARDWARE P-TABLES FOR ALL UNITS UNDER TEST ARE PRINTED OUT IN THE
FORMAT IN WHICH THEY WERE ENTERED. ANY UNITS THAT WERE DROPPED BY THE
OPERATOR "DROP" COMMAND ARE SO DESIGNATED.
*******
FLA(GSl

*******

THE CURRENT SETTINGS OF ALL FLAGS ARE PRINTED.

********
*******ZFL(AGSl

ALL FLAGS ARE CLEARED.
2.4
EXTENDED P-TARLE DIALOGUE
THE FULL CAPABILITY OF THE HARDWARE DIALOGUE IS REVEALED BY THE
FOLLOWING DISCUSSION OF WHAT HAPPENS INTERNALLY.
AS SOON AS THE QUESTION "n UNITS?" IS 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-ONE CORRESPONDENCE
BETWEEN THE RARDWAPE ~APA~ETER QUESTIONS AND THE SLOTS IN TilE P-TAELE
FORMAT.

SEQ 0016

Page 17

SEQ 0017

ON THE FIRST TRIP THRU THE QUESTIONS, ALL OF THE SLOTS IN ALL OF THE
P-TABLES ARE FILLED.
IF THE OPERATOR TYPES IN LESS THAN N EXPLICIT
VALUES IN RESPONSE TO A PARTICULAR QUESTION L THESE VALUES ARE PLACED
IN THE P-TABLES (ONE VALUE GOING INTO THE ~ROPER 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 SAVE PROCESS IS CARRIED
OUTL EXCEPT THAT THE EARLIEST P-TABLE NOT TO HAVE RECEIVED AN EXPLICIT
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 ONE QUESTION HAS
RECEIVED N EXPLICIT VALUES FROM THE OPERATOR.
IN GIVING A STFING 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 NU~ERICAL DATA, THIS SAMPLE RANGE TRANLATES TO
THE STRING 6 7,8,9 10 (AN INCREMENT OF 1).
IF THE VALUES ARE
ADDRESSES, THE SA~PLE RANGE TRANSLATES TO THE STRr~G 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 PARAMETER BE EQUAL TO THE UNIT NUMBER
(1 2 3 ••• 64) EXCEPT FOR UNIT 50 WHICH SOULD RECEIVE THE VALUE 49.
LEf fHf DE§IRED VALUE FOR THE THIAD PARAMETER BE THE NUMBER 76 FOR THE
FIRST 20 UNITS AND THE NUMBER 77 FOR THE LAST 44 UNITS.
THE FOLLOWING DIALOGUE WOULD ACCOMPLISH THIS GOAL:
# UNITS (D) ? 64
UNIT 1
<QUESTION 1> ? 75
<QUESTION 2> ? 1-20
<QUESTION 3> ? 76
UNIT 21
<QUEST ION 1>
<QUESTION 2> ? 21-49,,51-64
<QUESTION 3> ? 77

Page 18

FIRST TIME THE SERIES IS ASKED SLOT ONE RECEIVES A 75 IN ALL 64
TABLES. SLOT TWO RECEIVES THE VAL6ES 1,2,3, ••• ,20 IN TABLES 1 THRU 20
AND A CONSTANT 20 IN TABLES 21 THRU 64.
SLOT THREE RECEIVES A
CONSTANT 76 IN ALL 64 TABLES.
THE SECOND TIME THRU THE SERIES! TABLES 21 THRU THE END ARE GOING TO
BE AFFECTED (NOTE THAT THIS ~IECE OF INFORMATION IS PRINTED OUT FOR
THE OPERATOR IN THE FORM "UNIT XX" AT THE BEGINNING OF EACH SERIES).
QUESTION 1 IS RESPO~DED TO BY A eCR>! SO SLOT ONE STAYS A CONSTANT 75
IN TABLES 21 THRU 64, SINCE NO NEW ~XLICIT VALUES ARE TYPED IN. SLOT
TWO GETS THE VALUES 21,.22,23£ ••• ,49 IN TABLES 21 THPU 49 f AND GETS A
49 IN SLOT 50, AND G~TS TH~ VALUES 51 L 52£53 o • • (64 TN ABLES 51 THRU
64. SLOT THREE GETS THE VALUE 77 IN TAHLE~ 21 TH~U 64.
THE DIALOGUE IS TER~INATED WHEN THE SOFTWARE RECOGNIZES THAT 64
EXPLICIT VALUES HAVE BEEN GIVEN FOR AT LEAST UN QUESTIUN (NAMELY
QUESTION 2).
TH~

2.5 HARDWARE PARAMETERS
THE FOLLOWING QUESTIONS ~ILL BE ASKED ON A START CCMMAND.
THE VALUE
LOCATED TO THE LEFT OF THE QUESTION MARK IS THE DEFAULT VALUE THAT
WILL BE TAKEN ON A CARRIAGE RETURN RESPONCE.
RLII (L) Y?
ANSWER YES(Y) IF YOU HAVE AN RLII CONTROLLER, NO(N) IF YOU HAVE AN
RLVII CONTROLLER.
BUS ADDRESS (0) 174400?
ANSWER WITH THE BUS ADDRESS OF THE CONTROLLER.
VECTOR (0) 330?
ANSWER WITH THE INTEPRUPT VECTOR OF THE CONTROLLER.
BR LEVEL (0) 5?
ANSWER WITH THE INTERRUPT PRIORITY OF THE CONTROLLER.
DRIVE (0) O?
ANSWER WITH THE DRIVE(S) CONNECTED TO THE CONTROLLER.

SOFTWARE PAPA~ETEPS
THE FOLLOWING QUESTIONS ARE ASKED IF REQUESTED ON A STAKT, RESTART, OR
CONTINUE. THEY ALLOW FLEXABILITY IN THE WAY THE PROGRA~ BEHAVES. TH~
SOfTWARE PARAMETERS GIVE THE PROGRAM FLEXIBILITY IN T~E wAY IT PUNS.
THE PARAMETERS CAN BE MODIFIED ON A START, RESTART, OR CONTINUE BY
ANSWERING (Y)~S TO THE FOLLOWING QUESTION;
2.6

SEQ 0018

Page 19
CHANGE S.W. ?
A YES ANSWER WILL ASK THE FOLLOWING SOFTWARE PARAMETER QUESTIONS, WITH
THE PRESENT DEFAULT VALUE PRINTED TO THE LEFT OF THE QUESTION MARK.
(THE LAST ANSWER GIVEN IS THE DEFAULT) THE DEFAULT IS TAKEN ON A (CR>.
CONTROL Z (AZ) WILL DEFAULT ALL REMAINING QUESTIONS AND START THE
TEST.
THERE ARE NO SOFTWARE PARAMETERS.
3.0 ERROR INfORMATION
ERROR INFORMATION IS COMPLETE IN GIVING ALL INFORMATION NECESSARY.
ALL REGISTFoRS ARE GIVEN AS WELL AT TRACK, SECTOR AND DRIVES INVOLVED
IN ERROR.
3.1 FoRROR REPORTING
ALL ERROR INfORMATION IS PRINTED ON THE CONSOLE DEVICE. ERROR REPORTS
ARE AIMED AT BEING SELF EXPLANATORY. THE GENERAL fORMAT IS:
PC: RRRRRR
DZRL? XXX
ERR YYYYY
TST ZZZ
SUB PPP
WHERE:
?
IS PROGRAM LETTER
XXX
IS SFT - SOfT ERROR
HRD - HARD ERROR
DV fAT - DEVICE FATAL FoRROR
SYS FAT - SYSTEM FATAL ERROR
IS THE ERROR NUMBER
YYYYV
IS THE TEST NUMBER
ZZZ
IS THE SUBTEST NUMBER
PPP
RRRRRR IS THE PROGRAM LISTING LOCATION
ERRORS GIVE THE REGISTER CONTENTS BEFORE AND AFTER THE ERROR ALONG
WITH A ONE LINE DESCRIPTION AND RELEVENT DATA.
EXAMPLE:
ONE LINE DESCRIPTION
(OPTIONAL SECOND LINE)
(OPTIONAL THIRD LINE)
BEFORE CS:XXXXXX BA:XXXXXX DA:XXXXXX MP:XXXXXX
AFTER CS:XXXXXX RA:XXXXXX DA:XXXXXX MP:XXXXXX
OTHER PERTINENT INFORMATION IS GIVEN AT THIS TI~E.
REGISTER DESCRIPTIONS CAN BE FOUND IN SECTIO~ 5.0. ERROR DESCRIPTIONS
ERROR READING SECTOP
ERROR WAS ENCOU~TERED WHILE TRYING TO READ VERIFY THE SECTOR AFTER IT
WAS WRITTEN BY THE SAME DRIVE.

SEQ 0019

Page 20

SEQ 0020
MINIMUM OF TWO DRIVES REQUIRED
THE PROGRAM REQUIRES AT LEAST TWO DRIVES TO PROVE COMPATABILITY.
MAXIMUM Of fOUR DRIVES ALLOWED
THE PROGRA~ ONLY ALLOWS A MAXIMUM OF FnUR DRIVES.
CAN'T FIND FIVE ADJACENT TRACKS
THE PROGRAM REQUIRES TEN SETS OF fIVE ADJACENT TRACKS AT PREDETERMINED
SPOTS ACROSS THE PACK.
IT WAS UNABLE TO FIND fIVE COMPLETELY GOOD
ADJACENT TRACKS IN THE LIMITS GIVEN.
EHROR WRITING SECTOR
AN ERROR WAS ENCOUNTERED WHILE TRYING TO WRITE THE GIVEN SECTOR.
OVERWRITE ERROR
AN ERROR WAS ENCOUNTERED WHILE TRYING TO READ DATA AFTER AN
BY ONE DRIVE. BOTH DRIVES INVOLVED ARE GIVEN.

OVERwRITE

READ RECOVERY ERROR
AN ERROR WAS ENCOUNTERED WHILE TRYING TO RECOVER ANOTHER DRIVES DATA.
ADJACENT TRACK TEST
AN ERROR WAS ENCOUNTERED WHILE IN THE ADJACENT TEST
DESCRIPTION IS GIVEN.

PART,

3.2 ERROR HALTS
ERROR HALTS ARE SUPPORTED PER DESCRIBED IN THE PREVIGUS
/FLAG:HOE. THERE ARE NO OTHER HALTS.
4.0 PERFORMANCE AND PROGRESS REPORTS
4.1 PERFORMANCE RHPORTS
THIS PROGRA~ WILL NOT GIVE ANY PERFORMANCE REPORTS.
4.2 PROGRESS REPCRTS
THIS PROGRAM WILL NOT GIVE ANY PROGRESS REPORTS.

A FURTHER

SECTION

WITH

Page 21

5.0 DEVICE INFORMATION TABLES
THE RLl1/RLVl1 CONTROLLER HAS THE FOLLOWING FOUR(4)
CONTROL OF THE SUBSYSTEM.
RLCS - CONTROL AND STATUS REGISTER (XXXXXO)

REGISTERS

SEQ 0021

FOR

BIT 15 - COMPOSITE ERROR
BIT 14 - DRIVE ERROR
BIT 13 - NON EXISTANT MEMORY ERROR
BIT 12 - HEADER NOT FOUND (WITH BIT 10 SET)
- DATA LATE (WITH BIT 10 CLEAR)
BIT 11 - HEADER CRC fWITH BIT 10 SET~
DATA CRC (101 TH BIT 10 CLEAR
BIT 10 - OPERATICN INCOMPLETE
BIT 9/8 - DRIVE SELECT (0-3)
BIT 7 - CONTROLLER READY
BIT 6 - INTERRUPT ENABLE
BIT 5 - EXTENDED BUS ADDRESS ~BIT 17~
BIT 4 - EXTENDED BUS ADDRESS BIT 16
BIT 3-1 - FUNCTION CODE
o - NOP (PDP-II) MAINT (LSI-II)
1 - WRITE CHECK
2 - GET DRIVE STATUS
3 - SEEK
4 - READ HEADER
5 - WRITE OAT A
6 - READ DATA
7 - READ WITHOUT HEADER COMPARE
BIT 0 - DRIVE READY
RLBA - BUS ADDRESS REGISTER (XXXXX2)
BITS 15-1 BUS ADDRESS OF DATA TRANSFER
BIT 0 SHOULD BE 0
RLDA - DISK ADDRESS REGISTER (XXXXX4)
FOR READ/WRITE FUNCTIONS
BIT 15 - MUST BE ZERO(O)
BIT 14-7 - CYLINDER ADDRESS FOR TRANSFER
BIT 6 - SURFACE FOR TRANSFER
BIT 5-0 - SECTOR FOR TRANSFER (0-47)
FOP SEEK FUNCTION
BIT 15 - MUST BE ZERO(O)

,
Page 22

BIT 14-7 - DIFfERENCE TO NEW CYLINDER
BIT 6-5 - MUST BE ZERO(O)
BIT 4 - SURfACE
BIT 3 - MUST BE ZERO
BIT 2 - SEEK DIRECTION( 1 - IN / 0 - OUT
BIT 1 - MUST BE ZERO
BIT 0 - MUST BE ONE(I)
fOR GET STATUS fUNCTION
BIT 15-4 - IGNORED SHOULD BE ZERO
BIT 3 - DRIVE RESET
BIT 2 - MUST BE ZERO
BIT 1 - MUST BE ONE
BIT 0 - MUST BE ONE
RLMP - MULTIPURPOSE REGISTER
FOR READ/WRITE FUNCTION
BIT 15 - 0 - WORD COUNT{TWO·S COMPLIMENT)
fOR READ HE~DER FUNCTION
BIT 15-0 - DISK HEADER Of SECTOR (fIRST READ)
- ZERO WORD (SECOND READ)
- HEADER CRC (THIRD READ)
FOR GET STATUS FUNCTION
HAS DRIVE STATUS
BfT 15 - WRITE DATA ERROR
BIT 14 - CURRENT HEAD ERROR(CHE)
BIT 13 - WRITE LOCK STATUS(~L)
BfT 12 - SEEK Tr~E DUT(SKTO}
PI'!' 11 - SPIN ERROP(SPE)
BIT 10 - WRITE GATE ERROR(WGE}
BIT 9 - VOLUME CHECK(VC)
HI'!' 8 - DRIVE SELECT ERROR{DSE)
BIT 7 - RESERVED(O)
BIT 6 - SURFACE
BIT 5 - COVER OPEN
BIT 4 - HEADS HOME
BIT 3 - BRUSHES HOME
BIT 2-0 -STATE BITS
o - LOAD STATE
1 - SPIN UP
2 - BRUSH CYCLE
3 - LOAD HEADS

SEQ 0022

Page 23
4 5 6 7 -

SEQ 0023

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 CHECK COMPATIBILITY BETWEEN 2 - 4 DRIVES USING THr:
SAME RLOIK CARTRIDGE. THE PROGRAM WILL ASK THE OPERATOR TO SEQUENCE
THE PACK BETWEEN THE DRIVES GIVEN IN THE FOLLOWING MANNER.
PLACE PACK IN DRIVE N ON CONTROLLER X AND LOAD
UNLOAD DRIVE N ON CONTROLLER X
PLACE PACK IN DRIVE N+1 ON CONTROLLER X AND LOAD
UNLOAD DRIVE N+l ON CONTROLLER X
ETC ••••••
THE PROGRAM WILL SEQUENCE IN THE ORDER THAT WAS GIVEN IN THE HAPDWARE
QUESTIONS. I.E.
DRIVE? 0,1,2,3
PROGRAM WILL SEQUENCE 0,1,2,3,2,1,0
DRIVE ? 1,0,3,2
PROGRAM WILL SEQUENCE 1,0,3,2,3,0,1
WHEN THE FIRST DRIVE IS LOADED THE PROGRAM WILL ATTEMPT TO 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 TUREE QUARTERS. AFTER
THIS IS DONE THE OvERWRITE TEST IS PREPARED(FIRST DRIVE CAN'T
OVERWRITE) AS WELL AS THE ADJACENT TEST.
AS THE PACK IS CYCLED RETWEEN DRIVES THE FOLLOWING CHECKS ARE MADE:
EACH DRIVE CAN OVERWRITE EACH OTHER DRIVE
EACH DRIVE CAN RECOVER EACH OTHF.RS DATA
EACH DRIVE CAN WRITE ADJACENT TO EVERY OTHER
DRIVE WITHOUT DISTURBING THE OTHER'S DATA.
READS AND WRITES TAKE PLACE AFTER SEEKS FROM
BOTH DIRECTIONS.
ADJACENT WRITES TAKE PLACE TO BOTH SIDES OF EACH WRITE

, c,'"

lSSEMBLY ROUTINES
MACYlI 30A(052)
CIRLFB.PII
22-NOV-78 15:47

II
l~
l~

1
4

002000

.=2000

gggggg

SVC
SiCI NS=O
SVCTAG=O

002000

BGNMOD

88o

OOfSOO
88
OO~

BB!BS'
gg 81 9

g!2U

4
4

.BYTE
.ASCII
.ASCII
.WORD
.WORD
.WORD
.WORD
.WORD
• WORD
.WORD
.WORD
.WORD
.WORD

~8r ~Inu

00~032

000000

88
00 05f

3
4
4

0205
808~m

002056

4
5

00~060

0
0

.~ORD

0
0
LSDVTYP
0

• WORD

tmST
0

22-NOV-78

£4

15:54

III 88dU

END MOD
DEVREG
.1l0RD
.BLKW

J 002102

000000

~O 00~110

888m

!~l mw mm 030460

U
IIII

DEVTYP
• ASC I Z
• EVEN

000

BGNMOD

000000

gg88g~

000006

000001
000100

818888
004000

n
~~

56
51

A~8888

;CCNTROL AND STATUS OFFSET
CS=~
8A=
;BUSAODRESS OFFSET
DA=
;DISK ADDRESS OFFSET
HP=6
;CONSTANT OffSETS FOR INDIVDUAL 6~~bFB~~H~~E OFFSET
CSR=O
VEC=2
DSB=4
PAT=6

CONTROLLER AODRESS
VECTOR OF CONTROLLER
DRIVE SELECT
PATTERN UNIQUE TO DRIVE

DRDY=BITO
INTEN=BIT6
ERR=8ITI5
DERR=BIT 14

DRIVE READY
INTERRUPT ENABLE
COMPOSITE ERROR
DRIVE ERROR
NON-EXISTANT MEMORY ERROR
DATA LATE
DATA CRC ERROR
HEADER CRC ERROR

~f~;mH

mgmH

888m

~m;m~

000020
000002

8S8
°8a
000 810

8888H
000003

GLBEQAT

004000

EQUALS

WWN

.S8TTL GLOBAL EQUATES SECTION

002122

;DEFINITIONS

002122

PAGE I-I
SEQ 0027

I ~ mm mm

• WORD
• WORD
.WORD

444

SION

:~m

ASSEMBLY ROUTINES
MACY11 30A(1052)
CZRLF8.P11
22-NOV-18 15:41

:~m

.WORD
• WORD
.WORD
• WORD

!lIBil
go 010
002i l2

IBI
101

0
0
L$HARD
0
L$HW
0
L$LAST
0

f$DISPATCH

:~8~8

888888
000000
000000
000000

:=8tiB
.WORD
.WORD
.WORD

00008 0

mm
8~ 8H mA~
~ o roo 888m
4

MDHEDR
~i~gif I~~RLF,B,O,O,O,O,RLOI,I
.ASCII IZI
.ASCII IRI

:~m

4
4

SEQ 0026

:mn H:

iA6

888

ma
~8~gm~ mm
m 888m
mm
88~m
m 00080~

4
4
4

PAGE 1

POINTER NONE

002000

~
~
~

15:54

.ENABLE AMA
• ENABLE ABS
.NLIST
ME,CND,~D

5
8

22-NOV-18

000012

HNF=BITI2
OPI=BITIO

BU6=BIT4
CRSET=8ITl
GSTAT=BITf
SEEK=BITI BIT2
RDHDR=BIT
WRITE=BITtIBITl
READ=BIf
BIT
IBITO
GSBIT=BIT11 BITO

DRST=BIT~ BIT~

a~t~~~I~~TI~gg~~L~~~O~RROR

CONTROLLER READY
EXTENDED BUS ADORESS BIT 17
EXTENDED 8US ADDRESS BIT 16
CONTROLLER RESET FUNCTION CODE
GET DRIVE STATUS FUNCTION CODE
SEEK FUNCTION CODE
READ HEADER FUNCTION CODE
WRITE FUNCTION CODE
READ FUNCTION CODE
DRIVE RESET COMMAND CODE FOR DRIVE Co~~AD WORD
GET STATUS COM~AND CODE FOR DRIVE COM~AND WORD

ASSEMBLY ROUTINES
MACYII 301(1052) 22-NOV-78 15154 PAGE 1-2
CZRLFS.Pll
22-NOV-18 15147
GLOBAL EQUATES SECTION
6
0808~IO~~
MK=BITO
,MARKER BIT FOR DRIVE COMMAND WDRD(SEEK,GET STATUS)
~
SlGH:B'Ti
iD1RECTlON FOR SEEK10=AWAY FROM SPINDLE,
i
~EY~;llt6
~Et~g~ ~gft R~A~,WRITE,GET STATUS
iOFFSET FOR HARDWARE P-TABLE

SEQ 0028

tUEf3

111111

T22
fR!9 R=4

~f~A;~10

002122

BGMMOD

002122

II'" i

I
!

!.! I 81
1

!ii Ii!
~ nI~I

III

II I II III

GLBDU

~~ri
r: ~n'll
MOt
.81
~UI

,1=HEADER IN BAD SECTOR LIST

.BY E
E

I
Ii
I

08 1 :IYIIE
.8Y
gauuUTt :I• .BY
.BYTE
QQU

~8g

OQu. ~I

.BYTE

:nl~

OQU rl

.ByTE
.BYTE

MIDi:

.BYTE

883 Ii :un 8
8
ggg
OQU I :nu
• BYTE
=13 i

:m~

UIB 8i :Im

mig :un
MID
MID il:
MID :

.BYrE
.BYTE

.BYT§

m i :mE

ASSEMBLY ROUTINES
MACYII 30A(1052) 22-NOY-78 15:54 PAGE 1-3
CZRLFB.Pll
22-NOV-78 15147
GLOBAL DATA SECTION

I j' !II

IIII II iii1.1
III

002206

000020

002246

000170

tmgl :Km

t88b! :UfI

11~3111
IN= ! mn
m ! .BYT~

.BYTE

laBilO! ~nh

hil! :UU
.EVE

SEQ 0029

f~~~T8~ rls~E~~gRL~~Iv~R~rfsWRITTEN
SECLST: .BLKW
16.
iBUFFER TABLE FOR 24 X 5 MATRIX USED FOR ADJACENT CYLINDER TESTING.
SECBurl .BLKW
5*24.

PULST: .1I0RD
.WORD
• liaRD
• liaRD
FOWR:
• liaRD
.1I0RD
F~R~i
.WORD
'STCLR: .lIORD
EASON:
ERFLGI :~g=8

155555

80
0
8

,LAST CONTR~L~ER
,DRIVE JRfO
EASON
,ERROR L G

ASSEMBLY ROUTINES
MACYll 30A(l052) 22-NOV-78 15: 54 PAGE 1-4
GLOBAL DATA SECTION
CZRLFB.Pll
22-NOY-78 15:47
STFLG: • WORD
0
180 002676 000000
0
ADJLOC: .WORD
gggo03
ADJFLG: .WORD
0
ADJDIR: .WORD
0
DRSTAT:
0
•
WORD
0
8 0000
WORD
amGj •.WORD
0
HEAD~I: .WORD
DIRC:
.WORD
3
DESCYL: .WORD
0
REVS~:
.WORD
0
fORSK: .WORD
0
2 888888
UUT:
.WORD
0
3~
SECT:
0
LSTDRV: :~g~g
0
o 77 ~ 08 0
GDATA: .WORD
BDATA
.WORD
3
880888
.WORD
0
88
mmj .WORD
888888
OFFSET: .WORD
&
88 P4 000000
LSTTRK: .WORD
0
000000
88 ~6 000000
FRTTRK: .WORD
0
PRSTRK: • WORD
SURY ACE: • WORD
TRKFND:
•
WORD
0
~56
TRKCNT: • WORD
0
o 76~
E.CS:
0
000008
8~
E.BU
0
E.DA:
.WORD
0
888880
88
U2 000000
E.MP:
.WORD
0
E.MPI:
.WORD
77~ 8888
E.MP2: • WORD
&
BCS:
.WORD
0
008 0
0
BBA:
• WORD
8DA:
.WORD
0
BMP:
.WORD
0
8888d
0
mmj :~m
0
888888
ADJTRK: • WORD
0
ADJUUT: • WORD
0
tg~~W :=8~g 00
ADJLC4: • WORD
0
888888
STSECI: • WORD
0
000000
STSEC: • WORD
88
BUF:
.BLKW
~072 •
00308~20 88g888
DRBUF:
017030

la~ !11l8l •.,88!

il~ ~J 9
ISg Sp ~mi8
83 3
88
ii~

dgg L9

i} j8r
o
mm

:=m

8m 88

SEQ 0030
PROGRAM START UP fLAG
TRACK INDEX fOR ADJ. CYL TEST
FLAG fOR ADJ. STORE OR RETRIEVE
ADJACENT SEEK DIRECTION
;SURfACE fLA~
;DIRECTION a SEEK

$~E~M~R~m
~&2nAH~D~~E¥EST

lCmoCRIVE
;GOOD DATA
;mDDmNT
$sECTOR WORD
;INCREMENT
;LAST TRACK OF SEARCH
;F IRST TRACK Of SEARCH
;PRESENT TRACK

mmC~OUND

;TRACK COUNT

~I=.~g~ 8~ ~ij~ ADDRESS

·IMAGE OF DISK ADDRESS
?rM~GE RF MULTI-PUHPOSE wgRD 1

SCO:MAND"LOA~ED

r•

Ii mm
UnYi 8&8m

~BUS ADDRESS LOADED

III

lBUFfER FOR 24 SECTOR READS
;DRIVE INFORMATION BUFFERS

88i81~

I.!
Hi

8m~~
8lm6

• UUT FOR "ADJCYL"
!TEnp LOC r.OR "4DJCYLfln

JSE~XORS T~ ~RI~E "ADJ~YL"
;CONTROLLER ADDRESS
;VECTOR

CSR
VEC
DSB
PAT

g8~m

00 006

;e~~~ ~88~,sfokg~gED

iSEHIAL NUnBER UF CATHIDGE
;INSIDE/OUTSIDE FLAG

~~~~~~R~Eb~~~U~It~ DRIVE

ASSEMBLY ROUTINES
MACYIl 301(1052) 22-NOV-78 15: 54 PAGE 1-5
ClRLFB.PII
22-90V-78 15:47
GLOBAL DATA SECTION
I

i
I
1

I
4
4

SEQ 0031

CSR
VEC
DSB
PAT

CONTROLLER ADDRESS
VECTOR
DRIVE SELECT BITS
PATTERN UNIQUE TO DRIVE

o 78~~ 8888d

88888 0

CSR
VEC
DS8
PAT

;CONTROLLER ADDRESS
19~~~~RSELECT BITS
;PATTERN UNIQUE TO DRIVE

8p8~~

00008~

CSR
VEC
DSB
PAT

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

81~m

OOOOO~

81 044
046

888882

8i~850

017 56

8 m2

mh2

017070

000000

ENDBUF: .WORD

017072

;END OF DRIVE BUFFERS

ENDMOD

n
~5

iig4

8l 7072

~i~ °iUU
~pno

is o

ill

.SBTTL GL08AL TEXT SECTION
BGNMOD GLBTXT
;GLOBAL TEXT

017072

7411
017462

CNTTOT: • ASCIZ
INITWR: .ASCIZ ~~~~b~ 6~M~~c8~I6ING INITIAL WRITE BY FIRST DRIVE 1
mm mm o8~8Fi
o~~ DCKER: .ASCIZ tERROR ON READ6
051~05

04\n

~iim

047522

IMINIMUH OF TW DRIVES RfQUaREgl
8mH ml FEW:
MANY:
:mH
1M AX MUM OF FOUR DRIVES LL WE I
NONE:
.ASCIZ
8~~W m 41° OVMES: .ASCIZ ITEST ABORTED - CAN'T FIND ANY GOOD SPOTSI
044531 043~1~ RECMS: • ASCIZ ~I~~~~g t8 ~~~§W§ltt e~I¥fE' BY DRIVE 1

023516

020124

ERRFND: .ASCIZ

ICAN'T FIND FIVE ADJACENT TRACKSI

OVWER: .ASCIZ tOVERWRITE ERRORI
051l0!
04210
RECER: • ASCIZ
mm 04752
8m~~ FUNERR:
• ASCH ~~~~8pRr~0~~~~ 5~~~~tIONI
SKER:
75
mm
020123 SUB
SEEK ERRORI
• ASCIZ
FWD:
76
.ASCIZ IfORWARD!
106 OSfl7
.ASCIZ
8~ Ig~ 8ml~ REV:
glm~
WRIT!: • ASC IZ mmS~~ITING SECTORI
m
mo 7702 051105 04 h2 020122 READI: .Ascn tERROR READING SECTORI
01752~

um6
017616
017635

28 0 017727

~d
284

IMIS

0405~7

101

045104

041501

ADJTXT: .ASCIZ

IADJACENT CYLINDER TESTI

ASSEMBLY ROUTINES
MACYI! 30A(1052) 22-NOI-78 15:54 PAGE 1-6
CZRLFB.Pll
22-WOV-78 15147
GLOBAL TEXT SECTION

SEQ 0012

.EVEN
ENOMOD

B~a~~& G&~R4kRERROR REPORT SECTION

104023

111111
104023

!!~!~
BGNMSG

mm iiU.I(R4)~(SP)
ERRl

BISa

MOV

MOV
MOV

EMT

ADD
JSR
PRINTS

Mel

fina
CLR

BIsa

#FR~4,CSR(R4),(B,DSB+l(R4»

CSR(R4)f- SP)
IFRM1nS )
P

§hi¥

~f~NS~

PC ABGDMP
IREGISTER DUMP ROUTINE
.,fiNs, (a ,DESCYL.l),(
B, DESCYL>, SECT
~~H -(Se)
o S~ L,(SP)
ii

~JL.l'(SP)

ASSEMBLY ROUTINES
KAeYll 30A(052) 22-NOY-78 15:54 PAGE 1-7
CZRLFB.Pll
22-601-78 15147
GLOBAL ERROR REPORT SECTION

j ~

=8~

i iiJ!11 !!~:~:

IImmIlilill ! ~! !

MOV
EMT
ADD
PRINTS

'! IIIII1 li!!!1

002120

~~ ~i z!1 8aig~~

t g I Z8 b62~A6
IH ~
~ 8 II III!!! II!, II
a 81~~lg d h
! ll!! •••• ,.
4

!
i
Ii
iii
o

000012

~ 81~~1i g~fl~~

Cl~NTa

~~~8 11/111
11;;;;;:"""""""
n
m
EMf
ADD

,#ft~s~
'ii' ~)

~10002' ENDMSG

104023

020206

SEQ 0033

1~~~1 §p! SP)

8GNMSG

EMT

C$MSG

ERR4
PRINTS

#F RH4,eS R(R4), (B,DSB +1 (R4) >

l!iiil!'!I!W

DX~B

·r"

m ~:

~i~NTB ! 1~"!'~"""!"""""""'"
,

~f~B

B S8
MV
HOV
MOV
EMT
ADD
PRINT8
MOV
MOV
MOV
MOV
MOY
MOY
HOV

ED P

o se L,(SP)

i- sp

se L+hp P )
)

~~~ §p)

Ci~CTB
l2

SP
FR~6~REASON,LSTDRv,LSTeLR,LSTDRV

STDR '-rPj
LSTCLR,SP

~mR~,: ~~

rRMg§!\ P)
~'iiS P

MT
ipRiNTS
cJh~9
a~
MOV
Re ,DIRC
-(SP
MOV
b~1§pIS~)
MOV

ASSEMBLY ROUTINES
MACY11 301(1052) 22-HOV-18 15: 54 PAGE 1-8
CZRLFB.Pll
22-NOY-78 15: 47
GLOBAL ERROR REPORT SECTION
MOV
SP RO
0~036~ 010600
EMT
Cg~NTB
bmb~ 000006
ADD
# ,SP

IIIj~

m3~8

020ho

t 88~81H
8H

Ll0003 :

104023

BGNMSG

005046

8 ~l~m
A4014

000005

lil IIil 1 mm mm
iIll!

L 1 0004:

II ~~uu mu
,~ Ijillluhl mmmm mmmm
!II~ 8 mm
104023

BGNMSG

000~05

oHm

8~8 ~o

8~~8aa

oooool

013746

002770

A 4 A~

oo~h

8
82047
8m8

2 8m

0~OS16

020S16
020516

I~
mo

nl
u~

SEQ 0034

EMT
ERRS
PRINTB
CLR
BISB
MOY
HOV
HOV
MOV
EMT
AOD
JSR
ENDHSG
EMT
ERR6
PRINTB
CLR
BISB
HOV
HOV
MOV
HOV
EMT
ADD
JSR
PRINTB
MOV
HOV
MOV
HOV
MOV
F.~T

000010

LI0005:

104023

ADD
ENDMSG
EMT

C$HSG
#FRM4,CSR( R4 I, (B, DSB+1 (R41)
-PPl
o
B+ ~R41,~SPI
CSR(R
1,- PI
rRH4§-< S I
3'-~
P R PI

Ci~N S~

~C,fiEGDHP
C$HSG
#FRM4,CS R( R4 I, (B, DSB+1 (R4 I >
-~SPI
D B+ !R4 I~~SP I
CSR~R I r PI
rR 4§I
~'ii~ P

C~~NTB
o Sf

~ fihGDMP

!F H17~R1~E.HP
.HPr SP
Rl I

S
h;bS I
ii~~§~

r~M 7r(SPI

CSMSG

;FORMAT STATHENTS

°fm

ENDMSG

8615
S2O

0478l~
047845

0404l~

84~m

0~0445

mm ~ml

FRMl:

05~127

mm 8hH1 ~ml

.ASCIZ
• ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

~:~:i~~ig~Dp2~kV~N\g~}~EO~oiiIT~~L~5fiT~gf~~RA~g6~iM~~5 r~x~l~~

m~~m~rLmK\og\PD~~m5tAIM/B l05\OSlNtNl
/\AHEAD: \Ol\A CYL: lZ3tA SECTOR: \Z2tH/

ASSEMBLY ROUTINES
MACYll
CZRLFB.Pll
22-"OV-78 15:47

040~~~

0~0445

042502

SEQ 0035

mm 8mB
o
&H 3s
04104~ 040~4~
odl~ sum
gm8~
78~5

040m
047045
045

040445
022516

.EVEN
BGNMDD
000005

BGNHW

40 g

mU~

ENDMOD
HPTCODE
.WORD

LI0006-L$HW/2

• WORD
.WORD
.WORD
.WORD
.WORD

~60
40
0
1

174400

ENDHW
L10006:
ENDMOD
BGNMOD
000001
031056

DISPATCH

DSPCODE
.WORD
.WORD

1
Tl

ENDMOD

• SBTTL INITIALIZATION SECTION
BGNMOD INITCODE
BGNIN IT

ASSEMBLY RDUTINBS

tIILFS.P!1

MACVll 301(1052)

22-HOY-78 15t41

22-90'-78

PAG! 1-10

SEQ 0036

~nPRI mlllo

000340
002012

15154

INITIALIZATION SECTION

000002

iU~

~8¥NJT"2

nu~6KE

tbm

023300
002012

000004

&f¥N1T,#4

90$1

UR~§F
.11 RD

UE~~m

CMUNA

.11 RD

002126

91$:

ICLEAN CODE WHEN ( 2 DRIVES
f~8~EomN rOOR

,CLBAN CODE WHER > 4 DRIVES

OF UNITS

,,§tTN~~¥'«

fm UP DRlh BWER

~ilJ LIS~_IIB[is f~~~?

1$:

mfGf J~TA=eE

888m

Jm mT~R
fmPDmE BR

888m

mu CRm
002726

END:

liFt RET1NNI!~ 9F pUFFER
,ctRtR 6V~RWAI't ~tt8

000034

ASSEMBLY ROUTINES
HACYll 301(1052) 22-NoV-18 15154 PAGE 1-11
CZRLFB.Pl1
22-NoV-78 15:41
INITIALIZATION SECTION
022264 062706 000004
ADD
J4,SP

SEQ 0037

l6;1!1.~~!' i8Ul6~fTE 5 PERFECT ADJACENT TRAC~S AT S SPOTS
J+~~ iSsJofs tfi~j (EACH SURFACE)
SiUTIR :

'I~~~ ~ - !6 2

hIU5aHltiEiK!llb~~1~i41~ 200

Jlr VB FIHD ANY BAD SPOTS, WE WILL REPORT SO ••••••••••••

8fl~l~ l~~~i~ 88!8fa

)INDICATE A START Co~MAND

SETUP'

11111

mlU mJU

mm 88im

Imm mUI

1$1

027562

RS,FNDTRK

020
002756

0,16.

!!!!I! !!ll!! mm
021562
020

TST
BNE
ERHHRD

2$:
3$1

J~K'ND

~=~CR
.wD~H

lhfND

]gl

R~~mfef

RS,V.DTRK

.BYTE

lE~~~~~ND'ERR1

0,16.

JJ~~Alg ~I:RckIVE TRACKS

Jt2tC~Uft~N~~
~~4~

SEARCH SUCCESSFUL????

)No TRACKS

)STORE AWAY

TRACKS FOUND

"
15: 54
PAGE 1-12
22-NOY-7B
ASSEMBLY ROUTINES
MACY11 30>(052)
22-NOY-78 15:47
INITIALIZATION SECTION
CZRLFB.Pll

m mm
m
41

g05737
01005

002756

iti~1 I~~m rm!~m

TST
BNE
ERRHRD
TRAP

~99

5ZZ

0~2131
g~P60 8~~~r g
m~

mm~U ° 4d
8

181 mm
58

500000
376

356

005731
001005

002756

mm
~~~Iti
111 o
mm mm
mm

4$ :
5$:

*nhi
51

8Am9

027562

gm~~ g8~m

002756

8n~f
o ~d

o8i~~~2
~5~
o 2560
o 2562

J
m
3

022564
022570

5~B

8m~4

0~260g
o 2604

8mu
000000
176

027562

SUCCESSF UL?? 11

;NO TRACKS

HOY
JSR
JSR
-1
0
.BYTE

R5,FNDTRK
254.,23B.

;FIND NEXT 5 TRACK
;OUTWARD SEARCH
;TOP SURFACE
;TRACK RANGE

TST
BNE

TRKFND
6$

iYES

"~~mfn

10.~ERRFND,ERR1

;STORE TRACKS AWAY

;WAS SEARCH SUCCESSFUL?

;NO TRACKS

HE CODE
ERRFND
ERRI
7$

;SKIP

6$:

MOV
JSR

!~~mt~~

;STORE AWAY TRACKS FOUND

7$:

JSR
-1
1
.BYTE

R5,FNDTRK
254.,23B.

;NEXT SET
;OUTWARD SEARCH
;BOTTOM SURFACE
;TRACK RANGE

TST
BNE

TRKFND
B$

;YES

EHRHRD
TRAP
.WORD
.WORD
.WORD
DR

18 .~ERRFND,ERRI ;NO TRACKS
T E CODE
1
ERRFND
ERR1
9$

356

mm
mm
mm mm

HE CODE
ERRFND
ERR1
5$

ERRHRD
TRAP
.WORD
• WORD
.WORD
BR

5!0

10.~ERRFND,ERRl

SEQ 0038

iWAS
iYES

:~m

.WORD
BR

456

TRKFND
4$

;SEARCH SUCCESSFUL?

B$:

MOV
JSR

u~mf~e

;STORE AWAY TRACKS FOUND

9$'

JSR
1
0
.BYTE

R5,FNDTRK

;NEXT SET
;INWARD SEARCH
;TOP SURFACE
;TRACK RANGE

TST
BNE

TRKFND

210

h~ mm mm 002756

126.,136.

10$

;010 WE FINO A SET
;YES

22-NOY-78
15: 54
PAGE 1-13
MACY11 30A(1052)
ASSEMBLY ROUTINES
INITIALIZATION SECTION
22-NOV-7B 15: 47
CZRLFB.Pll

m8n~f~ ~mH
533

537

o02262
6

mm
8

Oom

005737
001005

027562
170
002756

m~r~
017
6
°j~~~i
264
8m8~

III mm mm mm
5l

54~

U; °n8 ua 883m
022656

662

OOom

UI mm gmu
55
554

m 8~~m °mH
8 m: boom
557
558

10$:

130.,120 •

;NEXT SET (OTHER SIDE)
;OUTWARD SEARCH
;TOP SURFACE
; TRACK RANGE

TST
BNE

TRKFND
10$

;010 WE FIND A SET
;YES

ERRHRD
TRAP
.WORD
.WORD
.WORD
BR

10. ~ ERRF NO ,ERRI ;NO TRACKS
HE CODE
ERRFND
iRRl
1$

MOV
JSR

"~!m~~r

;STORE AWAY

ISR
1
• BYTE

R5,FNDTRK
126.,136 •

;NEXT SET
;INWARD SEARCH
;BOTTOM SURFACE
;RANGE

002756

TST
BNE

TRKFND
12$

;SUCCESS?
;YES

027562

JSR
-1
1
• BYTE

R5,FNDTRK
130.,120 •

;LOOK THE OTHER SIDE
;OUTWARD
;BOTTOM SURFACE
;RANGE

TST
BNE

TRKFND
12$

)SUCCESS?
;YES

ERRHRD
TRAP
.WORD
.WORD
.WORD
BR

10.~ERRFND,ERR1 ;NO TRACKS
13E CODE

12$:

MOV
JSR

ft~!mf~r

13$:

JSR
1
0
• BYTE

R5, FNDTRK

m~MET

62.,72 •

;TDP SURFACE
;RANGE

027562

11$:

210

002756
~~~ 022710
022714 881m
U
~2 02f l 6
3

170

8~m~
Hi 8~ MmU
mm 8Hm m·m
Wmm
~~I
56~

R5,FNDTRK

SEQ 0039

JSR
-1
0
• BYTE

oo 27
27~4
6

~2B

ERRFND
ERRl
13$
;STORE AWAY THE TRACKS fOUND

88~m
ooogn

027562

005737
001015

002756

TST
BNE

TRKFND
14$

;SUCCESS?
; YES

5~8 m~~~ ~Hm
66
00000
~80 022

027562

JSR
-1
0

R5,FNDTRK

;LOOK OTHER SIDE
;OUTWARD
;TOP SURFACE

022750

5 5
576
577

110

"
ASSEMBLY ROUTINES
MACY11 30A(1052) 22~NOY-1B 15154 PAa~ 1-14
22-NOY-78 15147
INITIALIZATION SECTION
66.,56.
022770
102
070
• UTE

SEQ 0040

CZRLI'B.PU

mm snm

mm mm
mm mm mm
mm mm
027562

lri ;ll:::

88~m

A¥~m

! mm 88m~

070

nh~

!rJh

14$1
15$1

110
002756

027562

OO~8~

m mm

002756

mlli mm

R{NO
5$

HOV

nmUf~~
R5,FNDTRK

i
m mm
SR

~fR

R5,FNDTRK

fLOOK FOR ANOTHER SET

1
.BYTE

66.,56.

iRANGE

fST
BNE

TRKFND
16$

;SUCCESS?
;YES

nA~RD

;NO TRACKS
IIMERRFND,ERRl
CODE

16$1

MOV
JSR

R~~m~n

17$:

~SR
.BYTE

R5,FNDTRK

iill!l

JSUCCESS?
;YES

Rgm~D

RFND

027562

I!'

J~OOK FOR NEXT SET

'RMm~
;RANGE

62.,72.

:MB
.WORD

310

,STORE AWAY NEXT SET

.BYTE

8~~~~3 8At~R~ 8~1~~1

I! !I!i!! !!i!!l
f g~il~~ g8I~i~

JmcuS?

Wfi~mND,ERRl INO TRACKS

JSR

,UNGE

;STORE ANAY TRACKS
;NEXT SET OF TRACKS
HNWARD

190.,200.

m~G~URFACE

002756

TST
8NE

TRHND
18$

ISUCCESS?
;YES

021562

JSR

R5,FNDTRK

0
.BYTE

194.,184.

,LOOK OTHER SIDE
;OUTWARD SEARCH
;TOP
JRANGE

TST
BNE

TRKFND
18$

;SUCCESS
;YES

-1

270
11!11!
~ 8~~i~~ ggr6~J 002756

ASSEMBLY ROUTINES

CZRLFB.Pl1

MACY11 301(1052)
22-NOV-78
15:54 PAGE 1-15
INITIALIZATION SECTION
22-NOY-18 15.47
ERRHRD

II! illill 11!111

:mD

, :~gftg

miND
19$

"~~mfef

18$1

021562

19$:

JSR
1

mm SUm

1
• BYTE

;STORE TRACKS AWAY

R5,FHDTRK

IH~XT SET

190.,200 •

SRon~~
SURFACE
ANG

mm mm

002756

mm mm

027562

~fR

R5,FNOTRK

~BYTE

194.,184;

~ET
f'i~iER
~J~~

mm mm

310

270

m
mp
:=m

002756

mill mm
II Sllll~ Sll!!! S!ll!l

II!

I! 8I '~I illill
A8a4~1
, 8 S!l!!!
III ' '"m ..,."
til

U·~ERRFND'ERR1 ;NO TRACKS
E CODE

mm sum mm

SEQ 0041

II 1111

!!il!l

111111

JmCESS?
SURF AC E

m~CESS

r·~~RRFND'ERRl ;NO TRACKS

.1I0RD
BR

RE ODE
RFND
~RR1
1$

20$:

~~x

R~~m~n

;STORE SET AWAY

21$:

=8~
me

i~r2~RO
l ~~( 0»

IDID WE FIND ANY AT ALL

22$1

DEC
BNE
¥RRSF
RAP
.WORD
.WORD
CMPENA: CLR
MOV
24$:
DODU
MOV

DEC
BNE
DOCLH

2~$

3. NONE
1$bCODE

~~NE
hfUNIT,RO
R RO
WODU
2 $

JDO DROP UNIT

MACVll 30A(1052) 22-NOV-7B 15: 54 PAGE 1-16
ASSEMBLY ROOTINES
INITIALIZATION SECTION
CZRLFB.Pll
22-NOV-78 15:47
EMT
CSDCLN
023320 104044

m
~i~ sum
674

~BO

EXIT:

023322

LI0007:

104011

023324
023324

BGNMOD

~ai 023324
023324

NOP

000240

023330

~h 111111

000240
1040S5

,gg 023334
~8i
70

s
n
7 gf
70

p 88in~~
~~

818~:i

010 ~

E! him g~~M
81
mm
Hi mm mm
537

ENDCLN
EMT
CSCLEAN
ENDMOD
BGNMOD DRPCODE
BGNDU
Nap
ENDDU
LI0011 :
EMT
CSDU
ENDMOD
.SBTTL GLOBAL SOBROUTINr.S SECTION
BGNMOD GLBSOB
;ALL COMMON OR GLOBAL SUBROUTINES GO HERE
;ROUTINE TO PERFORM OVERWRITE
SCALL: ~~~TORS ~fi'exr~~RFORWARD
,
SECTORS TO WRITE REVERSE
;SAVE RO, Rl, R2, R3
OVWPER: HOV
Rl,- SP
MOV
RO'TPf
MOV
~~~: ~~
MOV
RO
;RO HAS COUNT IF Roes.
CLR
MOV
j~~~ ~g~TBMR~~*~lc~~ ~3>~O>1
HOV
m!!~~~m
;DONE.
;GET START OF LIST OF TRACKS
MDV
rVWTRK, Rl
;GET
POINTER TO TRACK
1$:
MOV
R11,R2
;LEGIT TRACK??????
CMPB
,#-1
}NO, EXIT
BEQ
LI0010:

104012

694

J~i

ENDINIT
EMT
CSINIT
ENDMOD
CLNCODE
BGNCLN

m
m
mm

002626

177777

ASSEMBLY ROUTINES
MICYll 30A(1052) 22-90V-7B 15:54 PAGE 1-17
ClRLFB.Pll
22-NOV-78 15:47
GLOBAL SUBROUTINES SECTION
721
CLR
DESCYL
;CLEAR CYLINDER/HEAD FOR 5 EEK
88~m
2
CMP
RO,#S
;TOP/BOTTOM
BLT
002721
INCB
5~SCYL+l
i~8~to~R~m ACE
2S:
JSR
;SEEK
TO CYLINDER
7~6
00451~ 024r6
~~§~~EYL
CLRB
002 ~O
UO IgI~3
BISB
w~~mCYL
JSR
;SEEK TO PROPER CYLINDER
m71~
MOV
;SECTORS TO WRITE
FofisK§R3
8~m6
JSR
RS,lIR EC
;GO WRITE SECTORS
0000 4
• WORD
28.
02344~ 012737 017635 002716
MOV
;SET FORWARD DIRECTION
R~w~fgW
JSR
;VERIFY
OVERWRITE
00451' g~56~~
JSR
~~§mOD
S~~~I&~ ~6~E~E~~I¥aS DATA
m45O4 fO~~
OO~~ 0
CLRB
737 o 346~ Og2737 000377 002720
BIS
;INNER GUARD BAND
8~;~~mCYL
023472 004537 024716
JSR
;00 THE SEEK
10S037
CLRB
DESCYL
;SET UP FOR SEEK TO
151237
BISB
;DESIRED TRACK
~~~~~g~ECVL
74} 8~m~
o 3506 004537 024716
JSR
;00 ANOTHER SEEK
013703
MOV
;SECTORS TO .RITE
0235F
JSR
~~!~~§~~
;WRITE THEM
71 5
• liORD
28 •
002716
MOV
;SET DIRECTION
a~E~f2W
48 8m 2 0~~53
JSR
749 023536 004537 026206
JSR
R5~VEROD
i~~~I~~ 8~~~~R~~fvES DATA
3$:
TST
;INCREMENT TO NEXT TRACK
~§1)+
88~m 000012
INC
,ACCOONT FOR IT
CMP
~~,#10.
754 8m~~ g~im
BNE
m~E~o BACK
755
MOV
756 023S54 012603
;RESTORE REG.
757 023556 012602
MOV
SP
+,R2
rr,R3
023560 gl~68a
MOV
MOV
~~ !:~A
~~S
60
0~0~05
RTS
5
IEXIT
;ROUTINE TO WRITE SECTORS
$g~Ef
INJgXERWRI~~,~~~~tADJACENT
CYLINDER TEST
764
765
SECTOR
SR3 HAS Br~~AP OF SECTORS TO WRI+~TARTING
;R4 HAS DRIVE BUFFER POINTER
WRSEC: MOV
SAVE NO
0~3S66
810046
RO,-!SPl
MOV
SAVE Rl
~~,: ~~
MOV
SAVE R2
MOV
WRITE PATTERN INTO
#r~~:R~2
MOV
MEMORY
THAT WE
02j600 g 27~~
000006
~AT(R~),
(RI)+
2S:
HOV
~m
mTM~TO
DEC
R2
8~
776 o 3612 001374
BNE
DRIVE
2S

mm
HI mU
02340~ mm

°r
H~
HI 8°r
Hi

hi g m~
W mn~ 8h~l~

mm
mm
P 8m~~ g83~ll mm
~t

mmm
mm

m
m

8
U
77~ him °i~~U mm

SEQ 0042

m 8 gH

SEQ 0043

ASSEMBLY RQUTINES

CZRLFB.Pll

MACY11 301(1052)

22-NOV-78 15:47

:!:~:!

Q02m

000100

22-NOY-18

15154

PAGE 1-18

SEQ 0044

GLOBAL SUBROUTINES SECrION

I'~QV8 fl::::::::L

Hi~!

ifm;~~

;LOAP WORD COUNT
;LOAD DISK ADDRESS
;SAVE DISK ADDRESS

003004

·LOAD BUS ADDRESS
$RESTORE DISK ADDRESS
;GO WRITE

6S'
11$:

Ji~~8~A~N WRITING

002614
002710

002710
10$1

5$1

xfg

ROR

m
MOV
MOV
RTS

8~~H2

88hd

sIa~JD~60¥6~I~5R1~~~K FLAG

ADJCYL: CLR

003014

ml ~~!

;START OF TRACK LIST
lPICK UP TRACK OffSET
;IS THERE ONE?

BHE

CLR

002704

ASSEMBLY ROUTINES
HACYl1 30A(1052) 22-NOV-7S 15154 PAGE 1-19
CZRLI"B.Pl1
22-NDV-78 15147
GLOBAL SUBROUTINES SECTION

003026
024102

010102

g~~18~

88rlf~

O~~l1R

1~57~~

3$:

MHij~

000371

024146
024152

000137
005037

024570
002720

1 mm smn
024164
024172
024176

052737
004537
111237

~iil!1 ~1~~li !!!!!!
mm
8~mI

000047

mM~WhcTOR IS 16
;GET START INTO R2

;DOWN COUNT OFFSET
;FOUND IT?

m~;~me

lA3~EM~2hcTOR

UO.,STSEC
~~21,#377

4$1

JMP
5$1

002714
000400
024716
002120

Rl,R2

2$1

Ii hnil bUn ~~~~;~ ~~!~~:
4

13$
DEscn

eLR

m n

AD01

002720

BIS

6$:

JSR

MOVB
JSR

002116

m
=8h

8~~2l~ br~~~~ 88g8~g 8glg~t

7$1

IIIIII 111111 jill!! :::::: :::::

;BACK FOR NEXT
lm!LcmmE
; NO PICK UP NEXT SET
;SET UP FOR OUTER TRACK

m~~HsmD?

IT,

#400,DESCYL
R5,SKCYL
(R21,DEsen

;SEEK TO OUTER TRACK
;GET DESIRED TRACK

RF SKCIL

;S~EK TO P

#!77,R3

;e lAR OOT HIGH BYTE

h~e6g.r~R3

m fl

003026

SEQ 0045
;NO EXIT
,YES, GET REST OF INFO

1$:

9 .,STSEC

'~hf~UEC

;LOWER HEAD, SET

!~ ':~~~¥~~~I~M WRITE

m~Rcmnh

mMm

gs,WRSEC

uCnR
,WRITE SECTORS

u~~mR

,VERIFY THIS WRITE

STSEC,STSECI

IGET OTHER SECTORS TO WRITE

hShm$
o'

ASSEMBLY ROUTINES
~ACY 11 301(1052)
22-NOV-1B
15: 54 PAGE 1-20
CZRLFB.Pll
22-NOV-1B 15 '41
GLOBAL SUBROUTINES SECTION

in mm g~m1
881

024316

06273

000010
000047

003024
003024
003024

024334

162737

000050

024342

013703

003016

024346

013737

003024

ADD
CMP
BGE
9$:

024360

eii
02~r4 03 4537 023566
19
10$:
024374
S~4 ~~ Mm

mm
n~
88m~
U
mm
IImi ~dJU Um~ mm
8fH4

0244 0
024424

m mm

111237

STSEC1,10$

,STARTING SECTORS

JSR
.WORD
HOV
JSR
.WORD
HOV
JSR
.WORD
MOVB
JSR

~5,WRSEC

'~RlTE

A~~~lm
0

;VERIFY THIS WRITE

1~0~§210$

SECTORS

VWR

,VERIFY ADJ CYL + 1

nm~mCYL

;SEEK TO INNER TRACK

tlH J 824716
mH

i~~eKCr~c

SWAB
BIC
HOV

,ALIGN IT
'CLEAR OUT HIGH BYTE

JSR
.WORD

R5, WR SEC
0

;WRITE PROPER SECTOR

HOV
JSR
.WORD
HOV
JSR
.WORD
HOV
HOV

H~~lm

,VERIFY THIS WRITE

~¥~~H~H$

)GET SECTORS
,GET SECTORS TO WRITE

JSR
.WORD

g5,WRSEC

,WRITE PROPER SECTORS

023566

mm
mm
mm mm
013737
S04537

002716

024466
11$:

024502

111$ :
W T~8~ oml~
024516
~;3 8 mg sm 0
211$:
8 ~~~4
024536
HI
924
88mJ 023566
12$:

~r 024540 Op737 024536 024552

m
Mm
m
m mm SWH mm
m
024546
024552

024566

,GET SECTORS TO WRITE

MOV

;SEEK BACK TO PROPER TRACK

004537
000000

)YES BACK IT UP

ADJLC2,R3

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

8mn

9 ~
9 B

#40., STS EC 1

HOV

(R2),DESCYL

SUB

HOVB

8~0~8~
o8~m8
4454
od 3

'B SECTORS GONE BY
,GONE PAST 40?
;NO, OKAY

~9.,STSECI

JSR
HOV
MOVB

~05

mm
H3 mm

210$ :

002720

SEQ 0046

8 .,STSEC1

002720

304Sr

~8~

110$:

024410

m~t~~l$

~11~§211$
~5,
VWR

112$:

MOV
JSR
.WORD

~~~~lm

)VERIFY THIS WRITE

212$ :

HOV
JSR
.WORD

mhm$
0

)VERIFY ADJ CYLINDERS + 1

026534

024566

000000

DJLtS+l,R3

22-NOV-7B
15: 54
PAGE 1-21
HACYll 30A(1052)
ASSEMBLY ROUTINES
22-NOV-7B 15:47
GLOBAL SUBROUTINES SECTION
CZRLFB.Pll
937

iii o8P~~ 8U~U
m 8 tm 8gM~
1602

U~
~4~

02 6!4

8m2~

928
949

~50
o8~UI~
26 4
9~~
95
~54

9~g

957

02012

smH

g8~~37

8M2~ 0056~~
ggh3~
g~lm
02 654
000137
024660

005037

m o8TI!3 °mH
~01402
~~4
ms m~~
~~~
4678

96~

965

024714

0013 6
005037
000205

002714

13$:

002714

88m~

002205

024070
002664

18$:

002664
003012

15$:

003012
003014
003014

16$:

002726

024034

17$:

002704

HEADOI

UI
ft~ 2P

)WHICH HEAD WERE WE DOING?

D01

1; #INN51

j:~~t ~~i 3t t~~~~~

,END Of LIST
)END OF TRACK LIST
; NO GO BACK

TST
BEQ
CLR
BR
TST
BNE
INC
JHP
CLR
INC
CMP
8EQ
JHP
TST
BNE
CLR
RTS

FADJ

mm
183m
mm
mJ

ADJUUT
JUUT ,UUT

t~t

lD3DIR
R5

;FIRST SET?
)NO CONTINUE
11.~~f CLEAR FIRST
lDONE BOTH INSIDE OUTSIDE

l~~!C~~f r~~I~~$FLAG
l*~C~OT~N5b¥~Ifi~Aj~ACK

)DONE WITH ANOTHER
;DONE TABLE FOR ALL UUT?
'YES fOR EXIT

!Ufl~;G~X~~C~oF~~DN~~T

?~~r~E F~R PROPER RETURN

)ROUTINE TO SEEK TO A DESIRED CYLI NDER

l~Ab~iNEJ~~S DESV~f5K~~rINDER IN Loe "OESCYL

)

973

m o8~2m Sb~m
976
911
9n

4724

000010

gel

024734

005001

9~4

1744
4 7~~

mm smn
m o8~:m mm
y~~m

hcYL:
90$:

030560
002674
002720

8024~60 Im8~ g8mb 002770
M
987
024162
88lim 800004
m
24764
05~~01
~~o 8
00001
W
99~

BR
CLR
ADD
eHP
BGE
JMP

) AT END OF TRACK LIST NEXT GROUP OF WRITES

968
969

~80

TST

SEQ 0047

dnu

8~ 7n

000400

002720

HOV
JSR
RDHDR

~~~i:m~c

)SAVE R1
;GET PRESENT POSITION

TST
BNE

ERFLG
5$

)ERROR FLAG SET
)YES, SKIP

CLR
B 158
SWAB
ROR
BIC
SUB
BPL
NEG
BR
SIS
SIS
8IT

R1
2pCYL,R1
i1n,E.HP
• MP, Rl

U
!~~G~tRl

406,DESCYL

GET DESIRED CYLINDER
GET TN HIGH BYTE
ALIGN IT
CLEAR PRf;SENT HD: SEC
CALCULATE DIFFERENCE WORD
IF POSITIVE SET DIRECTION
NEGATE
SKIP SETTING DIRECTION
SET FOR FORWARD SEEK
SET MARKER BIT
WHICH HEAD

II
ASSEMBLY ROUTINES
MACYll 30A(1052) 22-"OV-78 15,54 PAGE 1-22
CZRLFB.Pl1
l2-NOV-'S 15147
GLOBAL SUBROUTINES SECTION

.$'

!II
!!:~B~:~c
il~K
~~FLG

RS,LDFUNe

SEQ 0048

If~i~O~IFFERENCE
WORD
/EXECUTE SEEK
'ERROR?
,YES, SKIP
;VERIFY POSITION?

~~FLG

ft 77 ,EoMP

002710

0~SCYL,R1

~tOO'DESCYL

i~EADI.R1

002720

,VERIFY POSITION
iIS CORRECe AND IF
$n~~E~~RRE T THEN

1,E.MP

4$'

12.,SKER,ERR6
BEKCODE

,SEEK ERROR

S~ER

M
6

5$:

1!o,FUNERR,ERR5 ,FUNCTION ERROR IN SEEK
T [KCODE
~ NERR
~RR5

d~l+'R1

6$ :

,CANT GET THERE

,EXIT

,ROUTINE TO PERFORM REGISTER PRINTUUT DUMP
'CALL: J5R
PC REGDMP
~EGDMP: PRINTB
#FdM1ILBIS,BBA,BDA,BMP
HOV
BMP,- .P
MOV
BDA,- SP
MOV
BBA,- SP
MOY
BCS - SP
MOV
ttFR~l ~- SP)

~g~

EMT

§~'iioS )
Ci~NTB

~B¥NTB #F~~~3'E.CS,E.BA'E.OA,E.MP
~gl
~:~~::I~~l
ASSEMBLY ROUTINES
MAeYI1 3DACI052) 22-NDY-78 15:54 PAGE 1-23
CZRLFB.Pl1
22-NOY-78 15,47
GLOBAL SUBROUTINES SECTION

I 14 i ~il~ii
mm

002762

IIIIII IIIIII ,•.

000006

025354

SE:Q 0049

002106

SETLST, MOV

010146

Rl,-(SP)
J~8.,RO

000034

I~D.'RO

~rCLST'Rl
2$1

SRll+
~~ (Rll

~~~I+,Rl

,SAVE R1
,START LIST AT 0

ASSEMBLY ROUTINES
MACYll 301(1052) 22-NOV-78 15154 PAGE 1-24
CZRLFB.Pll
22-NOV-7a 15:47
GLOBAL SUBROUTINES SECTION

II Inl Il~ 11!ll!
I' ·I.. I 1'1 ..
~ ! mm
I'I IlII!!.
" \III ......

1$:

I
.
.
,
.
nr
j,••

1'1

,i Ilillllljl~IAlA~
!

rill'"

=~~
M

5A+' 6J LG

MOV
MOV
CMPB

§!dUF,R2

iJL6~~R1

8E~
IN

'I':i~~

!29
BLf

000047
000050

4$:

002702

5$1

gKB
MOV
CliP
BE¥
Uc
CMP
BLE
SUB

m
BR
TST

m ~5~

80~0

554
m2

MOV
MOV

1 ,. O.

ll:~;:~
5 '

i
f o.,n
2)+
41,·39.

ij""

rR~f~aA
SP +,R3

SEQ 0050
;SAVE SECTOR ",T,
;SAV! REIRIEV . S ORE F~AG

;~It,~ ~FT~4T~ ~nFl~R2
Ss
C OR 16 S~ART FeR (N-2) TRAC~
;CHECK
INDEX
TRAC~

f;~NBE'
P A ETRAfK
BU FERREFERE,C¥
T N X TR CK RE •
;UPDATE SECTOR S¥AR

FOR AEXT T~AC~

$SET iUUNTER FOR ~4 SECOORS
ECT R tAR LE
;C~MP RE SEC30U
;Y
S~STORE 0
E RI VE SEC
a INFO.
;INB X S£CLST BUFF,R IN WORD FORMAT
sc~ ~IR~ ~Ig¥o*og~uNT FOR <40

t i

111!~iR:~!~ii~~~~t~:O
JExl¥PRH8TfaE~i~~TOR
NOT FOUND
;FL1G=0 FOR R TRIEVE
;STORE DRIVE INFO. INTO BUFFER
;SAVE DRIVE INFO. INTO RO FOR EXIT

MACYll 301(052) 22-NOV-78 15:54 PAGE 2
ASSEMBLY ROUTINES
GLOBAL SUBROUTINES SECTION
22-NOV-7B 15:47
CZRLF8.Pll
MOV
SP I+,R2
8~5554 812~n
MOV
~P +,Rl
RTS
;EXIT
OA~2
;ROUTINE TO LOCATE DRIVE THAT WROTE SECTOR LAST
;CALL: JSR
R5,FNDDRV
fH2-~~V~A~~~D~'~lOR

Ii om8
It

Ilnn
If IIlli!
U8) aJiUI
srYJ
~Isli
nil
o ds

FNDDRV: MOV
SUB
9PL
ADD
MOV
3i:
1
TST
BEQ
DEC
TST
BR
2$:
"OV
MCV
RIS

000034

88~m

56 0

'Ii

SF.Q 0051

l
f

Rifi-(SP)
.,RO

h~cd¥'RI

liu.
l~h~21

mUTRCm AT 0
; START OF LIST
;FCUND S¥CTOR?
;YES, GE DRIVE ~f ExrT

~=~~TD~=¥R~O~=TLrsiTOR

~~~T8ailv~ 1BUFFER POI~TER

ESTO F.
;EXIT

iRROTIN~
TO VERIFY ~~AT eHE OVERWRITE DID ACTUALLY OVERWRITE THE
P EV a S DATA ON T PA~.
SCALL:
;
VEROWI

~ 8~~m

mIl mm
msn mm
I~ lIt,!~ !~ illill
Ijl mm mmit~ !
I~il Ilim~lli 111~1
mm mm
olh ~
8d ~ij84~

Ilr
o

1$:

2$:

RO'-l SP
R!,R - SP
SP

MOV
MOV
1I0V
MOV

002662

21$:

h~o6~~
~I
T(R ):GDATA

TST
BPL
TST
BEe
=8v
MOV
BR
MOV

g~~~~~3 a~ ~~TL~1&EgFp~¥gAo~8 TO
WRITING SECTORS.
;SAVE REGISTER CONTENTS

~tLDFUNC

;BIT MAS~SJ~~Tv~~~J~~A~To~ECTOR
;GET PATTERN FOR THIS CRIVE
;SET UP READ-CNE SECTOR
;BUS ADDRESS
;CLEAR @¥T SECTOR BITS
;SET SF. OR
;DO WE R~AD THIS ONE?
S~~lDBRA CH

~$CS

s~~Rg~NTINUE

m IW:Ci

m
READ

002762

002672

MOV
MOV

BIT

030560

017361

R5,VEROW

=g~

002730
002734

sm30

JSR

fMP
F.ct~8DA
Rl,R

FOWR
;INITIAL WRITE
niITWR,REASON S~~TUP INITIAL WRITE OF SECTOR
R(R4~ LSTCLR
9~B+1( ~),LSTDRV
#CiMES,REASON
;SET ~ESSAGE FOR OVERWRITE

t
ASSEMBLY ROUTINES
MACYI! 30A(10521 '2~NOV~18 15:54 PAGE 2~1
22~NOV-78 15147
GLOBAL SUBROUTINES SECTION
CtRLF8.Pll

II'I mm
~ Iii 11M
mm
mm
mm
I
sum

22$:

3S1

000012

3lS:
000200

000050

002130

illill !!Ilil

0 6

5$ ,

6$.

NTF

~RO

~DRT'~~R2)
t~UlIT

,i TD~¥A CORa ~T?

;~5S m~TNm IT

M~V

ri!!'r-dl)'

~~~

rWI Wn8,U2a. 11~~loW~IMKSECTDR?

RM §~l
4,P

M ii~~ ~

C~~~9f~:~m

=8
MV
V
MOV

l~,~l§p\ PI

ADD
MOV
JSR

~g;~f.¥EST

;PRINT SUMMARY

C~hTF
# ,SP
SECT

;SET SECTOR IN LIST TO THE
,CREDIT OF
DRIVE
,NEXT SECTOR

THIS

m
m

SECT, #40.

M hm NEXT

~g~

!~pl:;Rf

,RESTORE R2-RO, EXIT

8 o~ ~o

a~D W~RD iO¥NT W/IN SECTOR
i;€L~AR
~ .AU ~ ~R I ~ C OR

f~ ~B!~f~WRD'GDAfA'(~ )

eMP

EMT

mm mm mm

~gUN'1

PR~HTF

4$'

co E

11111! 1111!1 000006

!
i 8~~~6! ~l~ggf

!!~:
~~ Rn"
Ui~~

I~l@¥ ~RIVE THAT LAST WROTE

I!!! !1r:liU..::nd iil:il",
~E

002740

Hictfi!~R

M~i

SEQ OOS2

~lO.,SECT

~P +Jo

'~LiAR

CARRY

;ROUTINE Tn VERIFY THAT A DRIVE CAN RECOVER ANOTHER DRIVE"S DATA.

ASSEMBLV ROUTINES
MACY 11 30 A(1 052 I 22-NOV-78 15: 54 PACE 2-2
22-NOV-78 15:47
GLOBAL SUBROUrINES SECTION
JSR
R5, VERon

CZRLFB.l'l1

fALl.:

lill
'I! IiP~~~1

1$:

MO~

l~~~ ~&D~~~B (ONE SECTOR)

2$1

iI¥

002130

!~I~II ili~l~ ~i~!!~ ~~I~~~
liji~i itl~iJ i~I~li ~~~~Ii

~ 8'~~1~ 8833?~
~

Ij'i J19' m
~4

51~

B E

030560

002762

~8~3il

ii!lil

3$.

~4~0 81~~3~

g 004

gt ~ ib461~
062~06 000012

0 6 30
026434

005722

4$.

ir6B
J~RaAA

R~C~&!~RV

=8~B

A
6~TA
R5,LDFUNC

JSR
READ
1ST
BPL
HOV
¥RRDF
RAP
.WORD
.WORD
.WORD
CLR
CLR
MOV
CMP

SEQ

INC
PRINTY
HOV
HOV
MOV
MOV
MOV
MOV
EMT
ADD

Iii!'3 III!!!
Ililj; i;i;;;
8

r12S0fiBMP

~~8

MOY

~2 8~o~o

111!!l 111!ll

I o ~ 4~ !!"'j 017414 002612
6

USE ~j COMPlIMEN ED.

,SAVE RO-R2

VEROO'

111111 II Ill! li!!!l

SEQ 0053

8Rf~ R3 ~~ B~TLMf& ~~ ;~~igRSw~O

1ST

,BIT HASKS~~~TSE£;~RiECT R 28
)CHECK FAR FIRS~
WRI¥E

DVE

jCti AR

S~~e~~ BIT1

jfNO BC~NTH~S
~C¥~ ~
ANC
;~l~¥oRRlX~TTHAT WROTE

9~;~R 6~STgf~RVlGE~E~sg OFgDRIVE

(l ),

E.es

f~ECMS REASON

4.~RE~ER,ERR4

HE CODE

'G~T AT~~~N

'READ
) ERROR?
NEXT SECTOR
)SEf READ ~ECOVERY MESSAGE
)REPORT ER OR

'NO

UW
weOUNT
S~li~RB2
!oAT1,(R2)
4$
WCOUNT

IFRM61~ECWRD'GDA

mC-m~

ICLEAN BAD WORD COUNT
mm
M~R~umRsECTOR
)DATA COMPARE

;YES, CHECK NEXT
fACCOUNT FOR ERROR
A,(R2) ;PRINT ERROR

SECWR6,-!s )
n~~~§pl P)

ii~~s~
(R2)+

(

INEXT

ASSEMBLY ROUTINES
MACY11 301(1052) 22-NOV-78 IS: ~4 PAGE 2-3
22-NOV-78 15:47
GLOBAL SU8ROUTINES SECTION
CZRLFB.Pll
INC
SECWRD
005~37
124~
CHP
000200
CWRD ,#128.
g~hH
BNE

m6 mm

SEQ 0054
;NEXT WORD I N SECTOR
IDONE?
INO

MACY11 30A(1052) 22-NOV-78 15: 54 PAGE 3
ASSEMBLY ROUTIHES
GLOBAL SUBROUTINES SECTION
22-90V-78 15:47
CZRLFB.Pll

1 44

8pm mm
u~ f
I 'glll!!
mm gnm
it 3~m~

PRINTF

o 6472

062706

000006

gg~m

iii 3o ~m

6522

805m
000241
006001
103244

000050

002730

7$:

H~ BUM 8!~~n
0265~4

6$:

01~~02

IIli

i ~i7~
1

ii!l!!
Ir!i!
m9
8

~~ o

~~5g

~ 5 00

II o 6~hi J 3U1H

n g~~~8 85~i8~
8265

o 66

o~o 0

100000
002720
000400

002720

000100

mm mm
mm
~~1~~9
Il1!9~l og~gw~ 12M
mm
mm m~18
mgi~
B4

001 6

uii

8~M~

62737

888m

01~m

0026 6
030560

880014

eFRH9tWC~UNj
CRUN ,- S~
H9§-\ P
~'ii~ P
hTF
Ci
# ,SP

SECT
SECT, #40.

'NEXT SECTOR

UCT
,NEXT BIT HAP

RI
1$
tr,R2

~~ !=~~
R5

,RESTORE R2-RO, EXIT

WRITE IS GOOD
'g~~!I~l I~DV5~~bYF6~EoO¥~G 8It~
II, WRITE WAS GOOD 6SECTOR WILL BE STORED IN MAP
,USING RSADJSI.WOR 1
,SAVE REGISTERS
VAJWR: ~OV
P
MOV
RO'T
~~,: ~~
MOV
;BIT ~ASK FOR CYLINDER
HOV
f50 OO~RI
;STARTING SECTOR
MOV
§5)+,R
CLRB
DESCYL,RO
BISB
SWAB
~8
ROR
BIT
UOO,DESCYL
BEQ
BIS
n~E~D,RO
BIS
BIT
BEQ
MOV
nol~3A,B~P
MOV

003004

003000

~l~P~

~OV

000047

66
026642
026650

MOV
MOV
MOV
RTS

818°1g

654g

5$:

HOV
HOV
EMT
ADD
INC
CMP
BNE
CLR
CLC
ROR
BCC

SEQ 0055
IPRINT SUMMARY

6$:
10$:

BIC
CHP
BLE
SUB
SUR
MOV
CLR
~OV
JSR
READ

ft~;;m'RO

0, #39.
UO.,BDA
rO.,TF.HP
m~B8A

~~~r6~8NC

;READ f'JNCTION

ASSEMbLV ROUTINES

CZRLFB.fll

MACV11 30£(1052)

22-NOV-7S 15147
002674

Illmu

002710

•

002710

IIIII Ii .,',.,

BI 111111 III

I!II'"

22-UOV-78

15154

PAGE 3-1

SEQ 0056

GLOBAL SUBROUTINES SECtION

U$:

7$:

5$:

!""

Ill:;!!!""'"
A A~l

!I--;.
:wijls 11!·;m",""
,~~1
HM
JSR

!ar
R~~

Mr
n

R8 -H 0P3S

R ~R

hPJ+,RO

;STORE ADJ. CYL. SECTOR INFO.
;RESTORE RO

Ih~:~~!
~p +,R

000003

ASSEMBLY ROUTINES
MACY1! 30A(1052) 22-NOV-78 15:54 PAGE 3-2
CZRLFB.P11
22-NOV-78 15:47
GL08AL SUBROUTINES SECTION

I I II' Iiiiili ....., :::,.,' I I:

;jNNER LIMIT??
) ES,SKIP CHECK
) IX FOR INNER
SGO CHECK ADJ SECTORS
jFIX BACK
;THROW OFF SECTOR
;GET OLD CYLINDER

III

II I!! Il! i ,.,',.
I ~lli 81~ ~

il!

~¥~

024716

I I
8

~1!~582
0~i7l ~4
4 R 0 1 R 177700

~~0

BIC

~ ~~3 Dig ~8~7 000050

i&i

705
7 6

'I 111II

6
0

Ilil

8RR8~~
02~414

6$'

SUB
JSR

I illiB!

Iii"

! ill;!! :i;!!! :::::: ..,..,

SEQ 0051

;SEEK BACK
;RETURN

R ,R '

~ ~~~OO'RO

i ,n40.
#

;SECTOR

!THIS SECTOR IN LIST???

$~8~yN~~tTOR

,ONLY SECTOR LEFT

y~~~???

48:'~~
5,R§ADJS

)FIX SECTOR
)FIND IF SECTOR PREVIOUSLY WRITTEN

ll'!i'

Iii:·':;:, ... ,'"

!;!' :!;:;:::~' ;:::g,:.. ,.•.

MACV11 30A(1052) 22-NOV-7B 15:54 PAGE 3-3
ASSEMBLY ROUTINES
GLOBAL SUBROUTINES SECTION
CZRLFB.Pl1
22-NOV-79 15:47
MOV
RO,R3
I~Oj 027330 010003
BIC
042737 177700 002730
SECT
ERRHRD fl~7700
'fAD~TXT,ERR3
TRAP
ODE
.WORD
88g~~~
• WORD
ADJTXT
.WORD
02547
~d6 f7
MOV
1
070
2 03
R3
ERRHRD
10.~hADl,ERR2
TRAP
b04463
Tr~R ODE
.WORD
.WORD
hA~l
.WORD
ERR
o 7360
;NEXT SECTOR
INC
R2
5$:
805202
CLC
; SHI FT ~ASK
ROR
Rl
7~6g 0024

ll!~ 8"jllli
d~

HoR

fm.

'Ii 8~iHU 8mu1
itf

°r~~
8 Hh bmh

1~2¥~IN¥N'8 ~~'iERSfi~I~~C~¥~LF6~E~R AfTER THE "SERNUM" ROUTINE
;~~R~fR~ggM~~'L6~~Ti~~§~RY BAD SECTOR fILE WILL PE LOCATED IN

ITH~S ROUTiN WILL STORE THE fIELD BAD SECTORS INTO THE NEXT

;40 LOCATIONS AND THEN MERGE THE FACTOAY BAD fILE
/WITH THE fIELD BAD FILE.

i1~

mmR~A3ARTAlufU~ 512.

°r~74
IUS
2 3
8
h8~ o8t8~~l
003430 003000
017724 003002
1t3~

8i~iP
o 4531

o
mm
f~U BiB
o 7418
416
1 4i4

117400
030560
002614

003004

MERGE:

97S:

003002
074
o 74 6 8m 7 mm 003002
m
027454 001363
1m021456

JiI

0014P

mm
g~ m mm
bb 0600
80274~6
H'2
6~m 000004
~mn 003040
o 7468

1m mm

999$:
9B$:

MOV
MOY
MOV
MOV
MOV
MOV
JSR
READ
TST
BEQ
ADD
C~P
BNE
PRINTF
HOV
MOV
MOV
EMT
ADD
BREAK
EMT
BR
MOV

;SAVE Rl, R2, R1

R~'-lSPl
~3': ~~

77724,B
6F 40 A
BP1

•

5;l~r6W

ERFLG
98S
!~ hso,
RDA BOA

t~M15
fRMb5r
1,- S ) (SP)

T~ ~~~5i3 m~oI
r~
o 7~
8U~~i mm
lill og~m~ 81M

P R

C~~NTF

C~HRK

~Bg~+10, Rl

mu!

m~ o
ltU o8 HhS oB 81

T
t:~i

it mm mm

i~T'R3

g Hi8 g

88~m

FUDTRK: HOV
MOV

;BUFfER START FOR FIELD BAD
;DA OF fIELD BAD SEC. START
;SETUP TO READ T~O SECTORS
;LOAD READ fUNCTION
;TEST ERROR FLAG
)YES;MERGE BAD SECTOR FILES
)TRY NEXT FIELD BAD SECTOR FILE
)COMPLETED FIELD BAD SECTORS?
;NO,DO NEXT FIELD BAD SECTOR

# , SP

ASSEMBLY ROUTINES
MACYll 30A(1052) 22-NOV-78 15: 54 PAGE 3-4
GLOBAL SUBROUTINES SECTION
CZRLFB.Pll
22-NOV-7B 15: 47
MOV
8mo~ 8m~~ 000176
~m+'R2
1$:
TST
DMI
TST
1).
DEC
2
BNE
BR
TST
- R )
~ov
# 2L ,R3
753~
HOV
lBUF.UO i R2
R2).,(R ).
4$ :
HOV
BMI
8~W~
St4
MOV
2 ).,(Rl).
DEC
805iO!
BNE
54
MOY
5$:
15
MOV
SP .,R2
0i26 2
MOV
~P .,Rl
~m
RTS

14~~

SEQ 0058

am~~&~mE

)GET PAST 10 ETC.

SEQ 0059
;MAX = 126
;SECTOR OR END

l~~~f 8~ ~~tTb~ELD

/WAX REACHED
)NO, KEEP GOING

i~i~~ fl~I~A~~C~E~~INATDR

;SET 126 MAX
;GET fIELD SECTORS
;MEqG!': AT END OF FACTORY
}Om'E?
lS8h~ERGE REST OF SF.CTOR

l~~§Tg~EB~j~ R2, Rl
;EXIT

19~, l~inE'~~~'R~i.EMf.NT

ASSEMBLV ROUTINES

I Iit

CZRL'S.Pll

MACH! 30A(1052)

22-NDV-7e 15147

22~IWV-78

=8~S

f i !i~1 ~~I~i~ ~I!lil 002152

~ 88 1 ~~~~~~

CrR

~5e

PAGE 4

SEQ 0060

IS'

002146

4$1

002744

002752

5$:

~RKhf

~~~¥~K,PRsrRK

T KeNT

f!mt#5

!TIKFND

002156

002152

S~51:~r~tifi~

R~LFNDBSC
q
.FND

J ~ 88~m 000005 Hi

I Ii

15154

GLOBAL SUBROUTINES SECTION

STRK,LSTTRK

FSET,PRSTRK

,ROUTINE TO FINO BAD TRACK IN FILE
FRDBse: C~~
mW~r;Z~lLAG

002122

003040

lSI

=~V
M~V

,SETUP FOR BEGINNING OF FILE

H~D~INUS AT END, EXIT

~MI

nTBk

002752

002754

CMPB

lCYLINHR CORRECT?

S~~~E~ AlLF OF WORD
,CORRECT SURFACT

¥~c

002122

;SET FOUNO

3$1

000374

2S:

m
m
MOV
MOV

RTS

'UeYL: ~~¥

881m

BMI
SUB
MOV
MOVB

000004
000005

INC
OEC

ASSEMBLY ROUTINES

CZRLFB.Pl1

MACY11 301(1052)

22-NOY-78 15:47

22-NOV-1B 15154 PAGE 4-1
GLOBAL SUBROUTINES SECTION

SEQ 0061

;ROUTIHE TO GET SERIAL NUMBER
R5,SERliUM
003002
030560

K~~(mNC

,GET STATUS

R5,LOFUNC

,READ HEADER

003002

030560

,VERIFY POSITION

mm mm

! ~AD ~~~¥6R IlA §~

IGI~AC~i~DI~A~~~i ~AST
D

002674

881m

000002

gm¥8

98$:

003010

3S:

003010

4$:

ART

IN BAD SECTOR FILE

22-90V-78 15:54 PAGE 4-2
~ACYll 30A(1052)
ASSEMBLY ROUTINES
GLOBAL SUBROUTINES SECTION
22-NOV-78 15,47
CZRLF8.Pll
HOV
o 0
0g0600
EP f~~F
EMT
~O 1
JSR
03 460
~~~ij8AO
BR
PRINTF
99$:
MOV
FRMr~-(SP)
MOV
S )
C h F
~~¥
# ,SP
ADD
062106 000004
999$ :
AK
BR
~~~~K
RTS
o8 205
5$'

4~~~

Il ! H ~dh gggm
mm

m
hd linn 88

nb~rOAD
rRMI~

,I! nII mm

SEQ 0062

ILET OPKRATOR CHANGE
;PACK
;GO CIIECK IT AGAIN.
IMESSAGE

l'R

ASSEMBLY ROUTINES
HACYl! 30A(1052) 22-NOV-18 15: 54 PAGE 5
GLOBAL SUBROUTINES SECTION
22-NOV-18 15:41
CZRLFB.Pll
,ROUTINE UNLOAD
15r
;CALL
JSR
R5,UNLOAD
UNLOAD: PRINTF ~FRMlt<B,DSB.l(R4»,CSR(R4)
030368
MOV
SR~R ),-(SP)
000000
CLR
mU4
BISB
A5~m 000005
.~OV
#FRM -(
020520
MOV
000003
§Vi;~~P)
MOV
EMT
ADD
ISETUP 60 SECONO TIMER
gl~M 888m
MOV
~60.'RI
MOV
200 PO
BIS
SB(~4~ RO
~ov
PO BCS ~R41
I CHECK DRDY FOR ZERO
BIT
d4~2
888m 000000 2$'
r~ Y,@ SR R4) ;PACK
BEQ
U~LOADED
001406
WAIT~S
IwAIT 1 SECOND
MOV
000012
EMT
HPO
g3m~
IHAS 60 SEC PASSED?
DEC
Rts
BNE
INO§ RETEST DRDY CONTINUE WAIT
8gr,g~
BR
fi~LOAD
lYE 6 REPEtT ~ES§AGE CONTINUE ~AtT
000 4;
R5
;RET RN WI H PACK UNLOADED
35:
RTS
59~ 030456 00020

U~!

mm smu

iiH+i(R4~~\SP)

mm ~!61~6

48A~

~f~~H

Ugi!~ 8W88 888m

IIII sum mm
mm

fo.

Ju 818m

1~~1
~81

r!!

IROUTINE LOAD
,CALL

8g~m

LOAD'

000000

8007
8a~i h~m 80~8gb5
00 ~

n~~u
slhgg gM
11m 8dm 819m
888m
88m
030~06

68,

U85H

1611
16F

030540
030542

0000,0
88

001006

o8j8~4l
05~0 b8mr

iii~ mm

012100

88HH

000012

000000

2$:

JSR
PRINTY
MOV
CLR
BISB
MOV
MOV
MOV
EMT
ADD
MOV
MOV
BIS
MOV
BIT
BNE
WAlTMS
MOV
EMT
DEC
SNE
BR

R5,LOAD
~FRM2t<B,DSB+I (R4) ),CSR (R4)
SR~R ),-(SP)

iin~!(~U~lSP)
#3,-¥§P)
SP R

Cl~N Y

i!3~~;~1

SB(fi4) RO
RO ~CSR~R4)
jDfiOY,@ SR(R4)

uio.

~~2HRO
25
LUAD

,SETUP C6~mrLUORm/~w
;SELECT DRIVE

SEQ 0063

SEQ 0064

IS~ILR READY?

;wAif ~g ~lLLISECONDS

~~!"Il:~:~f

IREAD ALL REGISTERS

llA ~ , .SA

~~ R&=~1

MP R F. MP2
21 ., 'TTOT,ERR5;CNTLR TIMEOUT
HijPCODE

CNnO!
ERRS
4$

MOV
MOV

MOV

HOV
MOV

CstRll,Eoes
BA
,E.BA

J'E.~P~

MOV

MP R
liP

1ST

~.CS

INC

i j+

BPt.

1ST
MOY
MOV
MOV
RTS

}READ ALL REGISTERS

g~ ~ ~tB~
,B.MP

E~FLG

; ANY ERRORS?
IYES, GO SERVICE

R5
SP +,Rl

SP +,R3
SP .,RO

ASSEMBLY ROUTIMES
MACYll 30A(1052l 22-00Y-18 15:54 PAGE 6-1
CZRLFB.PU
22-NOY-?B 15:41
GLOBAL SUBROUTINES SECTION

SEQ 0065

ENOMOD

BGNTST

ITRACK ANn SECTORS fOR
D
FOR
;OUTWARD SEEK
;TERMINATOR

mm A~5EhcTORS

!H~~~~~ ~a~~Tk~O~o~Rl!~TU~~IvE

;LOAD INTO SECOND DRIVE UNIT
;CHECK PACK SERIAL NU'lBER

)PERfORM R/W OVERWRITE
)IN I/O OUTSIDE

lOUT 110 OUTSIDF.
lIN I/O INS ICE
,aUT I/O INSIDE

000002

15:54 PAGE 6-2
22-NOV-78
MACYlI 30A(1052)
ASSEMBLY ROUTINES
GLOBAL SUBROUTINES SECTION
22-NOV-18 15'47
CZRLFB.Pll
JMP
000137
1723
03h 654
ADD
IDS.
11240
JSR
8
0m
JSR
81
JSR
8 m~
831 64 88
INC
~DJDIR
JSR
256ADJCYL
o 1 74
.BYTE
000
.WORD
~~8000
.BYTE
000
7~00
.WORD
00140
.BYTE
000
004
.WORD
110000
,0
.BYTE
000
004
7400
.WORD
007400
1133
.BYTE
200
A,200
.WORD
ooogSA
.BYTE
~,IOO
100
tun om
.WORD
oooogA
5,200
.BYTE
200
005
.WORD
oooso~
.BYTE
tlOO
100
0
:~m 25 UNLOAD
o
JSR
f
CMP
000003
U~ ,#3
BEQ
15 0
ADD
62704
AT+26 R4
000018
83 ]s6
JSR
R~~~~aNUM
JSR
oFm
R5,OVWPER
JSR
o 3334
115
21040
sm4Z
1m
10420
010420
ADJDIR
INC
005237 00p04
JSR
~56ADJCYL
004m
02
.BYTE
.WORD
3&0
.BYTE
000
16~ 03i4 6
.WORD
l63
.BYTE
000
1 64
3~g
.WORD
031424 000360
000
004
4~0
oooSH
.BYTE
040
40
.WORD
000000
1,20
.BYTE
020
001
.WORD
0
00088~
.BYTE
040
3,40
.WORD
000000
5,20
.BYTE
020
005
1174
.WORD
0
00088~
.BYTE
000
i68000
• WORD
17~ 8
lOOm
1,0
.8YTE
000
17B

m~ od~U

UAl~j6R4

88~~g~

iH3 8Ii~~8 ~8nU mm

lui
m~

s!hU 17088~

p4~

~dm

t~gooo

rT
mM

tlU UUJ! md

mm
8
Ilil °wj~ 0~31~~

him

08~~F g~mo

W~t1
Illi mm
~~~m

&AS

:um

Hi! ~mn
mi ~Iim
p~5

~~~5m~~

81 ud

SEQ 0066
GO TO FIRST DRIVE

ebR~T~Ag~I¥~RB¥~i~~ ~R~vlHI~D DRIVE
CHECK SFRIAL NUMBERS
PERFOR~ R/W OVERWRITE ON THIRD DRIVE

;IN 210 OUTSIDE
lOUT 210 OUTSIDE
;IN 2/0 INSIDE
lOUT 2/0 INSIDE
/IN 211 OUTSIDE
lOUT 211 OUTSIDE
;IN 211 HlSIDE
lOUT 211 INSIDE
)TERMINATOR
)UNLOAD PACK ON THIRD DRIVE
)CHECK fOR> 3 DRIVES

In~6A~~ 6~I~~DB8~~~~ FOR 4TH DRIVE
j~a~gKP~itKO~N4F~uB~~V5RIVE
)PEPFOR~

R/W OVERWRITE

;IN 3/0 OUTSIDE
lOUT 3/0 OUTSIDE
)IN 3/0 INSIDE
lOUT 3/0

INSID~

)IN 3/1 OUTSIDE
lOUT 3/1 OUTSIDE
) IN 3/1 INSIDE
lOUT 3/1 INSIDE
;IN 3/2 UUTSIDE
lOUT 3/2 OUTSIDE

ASSEMBLY ROUTINES
MACYlI 30A(l052)
22-NOV-78
15:54 PAGE 6-3
CZRLFB.Pll
22-NOV-1B 15 :41
GLOBAL SUBROUTINES SECTION
1779

0J1460

Ur him

040000
005

.WORD
.BYTE
.WORD
.BYTE
.WORD
.WORD
.)SR
SUB
JSR
JSR

000

1OO88~
000
11~4 03 410 m888
113
mm
004531 030360
162704 000010
1M
1187 mm 004537
030460

l~n

t1~i

031510

8jlW
03 5 ~

00453~

m~~o

Uil sum
un °ji 000i8~
031534
536
8m

010000
004gn

00020~

mm
nu ~hm gm

000 00
005

g3W~

031516

004040

dl~~2 omH
t8m sum
mm
06
01

°F~j8
131~ him

U~ 8M~8
lBI

13t~

iB 8
1819

031630

6
o 1640

Ur~ OjU
U~i

8j16~i

lim!
U~j 8r
m

113f
1834

654
o
om
831610
oj
031100

02088A
0l088A
005
020000
005
010000
001
000040
DOOm
005
000040
005
888m
004531

OHm
000
000
000
830360
08 01
O~ 46
8 m4

024016
000
000
000
000
000
000
000
000

mm5lf 818m

gS4
0542
004531

IS:

038360

023334

024016

2S:

moo
10000
JSR
• BYTE
.WORD
.BYTE
.WORD
.BYTE
• WORD
.BYTE
.WORD
.WORD
JSR
SUB
JSR
JSR
JSR
4040
2020
JSR
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.8YTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.WORD
JSR
SUB
JSR
JSP

1~h
421

JSR

40000
Nooo
46000
0
R5 1UNLOAD

ftUo~6R4

R5,SERNUM
R5,OVWPER
R5 6 ADJCYL

~60

168

N
~60
1

R5 UNLOAD

~~ [~l6R4

~5~SERNUM
5,OVWPER

P6ADJCYL
26000
i6800

~6Soo
~6800

l6°
~6°

46 0

SEQ 0067
JlN 312 INSIDE
lOUT 3/2 INSIDE
)TERNINUOR
)UNLOAD PACK FROM 4TH DRIVE
IlRIoD~I~1 RBF§I§ ~~rvIRD DRIVE
)CHECK FOR PACK SERIAL NUMBER
;PERFOR" R/W OVERWRITE UN 3RD DRIVE
) IN 2/3 OUTSIDE
lOUT 213 OUTSIDE
)IN 2/3 INSIDE
lOUT 213 INSIDE
)TERMINATOR
)UNLOAD PACK FROM 3RD DRIVE
) SET DRIVE BUFFER FOR 2ND DRIVE
;LOAD P~CK ON THIRD DRIVE
;CHECK PACK SERIAL NUM8ER
IPERFOR~ R/N OVERWRITE ON 2ND DRIVF
)IN 1/2 OUTSIDE
lOUT III OUTSIDE
)IN 112 INSIDE
;DUT 112 INSIDE
JlN 1/3 OUTSIDE
lOUT 1/3 OUTSIDE
;IN 113 INSIDE

~6°

lOUT 1/3 INSIDE

n~Am6R4

mDD~m ?~WM~~ ~~MRmT

0
R5,UNLOAD

R5~SERNUM

R5,OVWPER
R5,AOJCYL

TERMINATOR
UNLOAD PACK FROM 2ND DRIVE
C~ECK SERIAL NUMBER
PERFOR~
OVERWRITE

R/W

ASSEMBLY ROUTINES
MACYlI
CZRLFB.Pll
22-NOV-1B 15147

SEQ 0068
/IN 0/1 OUTSIDE

010
004
010
004
000
000
000
000
000
000
000
000

lOUT 011 OUTSIDE
liN 011 INSIDE
lOUT 0/1 INS TOE
liN 0/2 OUTSIDE
lOUT 012 OUTSIDE
;IN 0/2 IIISIDE
lOUT 0/2 INSIDE
;IN 0/3 OUTS lOr.
lOUT 0/3 OUTSIDE
)IN 0/3 INSIDE
lOUT 013 INSIDE
;TERMINHOR
;UNLOAD PACK
;END OF PASS

030360

000004

ENDTST
LI0012:
BGNMOD

CSETST
EMT
HRDPRM
BGtlHRD
.WORD LI0013-LSHARD/2
GPRML
.W~RD
.W
RD

.W RD
GPRMA
.WORD
.WORD
.WORD

.WORD

RLMSG~RLCNT,l'YES

m~g
1

CSRMSG,CSR,0,160000,117116,YES

mm
tmm

ASSEMBLY ROUTINES
MACYll 30A(10S2) 22-NOV-78 15:54 PAGE 6-5
CZRLFB.Pll
22-NOV-78 15147
GLOBAL SUBROUTINES SECTION
1

~&R~

:=
~G

::
~!

:=
:~8ftD
032074

t
1883
1884

032074

LI0013:

~~mo

~~~~~a: :t~gl! f~b!l'OORESSI
8Im~
gmn 042514 RRMSG: .ASCIZ /BR LEVELl
052t&~

051117

VECMSG: .ASCIZ

IVECTORI

S~Q

0069

,
MACY11 30A(1052) 22-NOY-78 15:54 PAGE 7
ASSEMBLY ROUTINES
CZRLFB.Pll
22-NOV-78 15147
GLOBAL SU8ROUTINES SECTION
1886
044522 042526 DRMSGI .ASCIZ IDRIVEI
.EVEN
ENOMOD
032144

mm 032fU

;

032244

032244
032244

ASSEMBLY ROUTINES
MACY11
CZRLFB.SOP
23-0CT-78 09153

SEQ 0070

.=32244

JtDIA Cli~~~~¥I~SO&~!C~otR~~NF~U ~~tG~88J.~CS.
LASUD

.EVEN

L$LASTI I

SEQ

0071

SEQ 0072

ASSEMBLY ROUTINES
~ACY11 30A(1052)
22-NOV-78 15:54
CZRLFB.SUP
23-0CT-78 09:53
SYMBOL TABLE

PAGE 9-1

SEQ 0073

22-NOV-18
15: 54
~ACVll ]OA(1052)
ASSEMBLY ROUTINES
SYMBOL TABLE
23-0CT-18 09 :53
CZRLFB.SUP

PAGf. 9-2

SP EC. U
SPV.SE
STARTC
STFLG
STRCHR
STRT.T

031136
000400
061416 G
002676
052430

S1.SE
SUNIT •
SUPERV
SUPFLA
SUPV.T
SUP. PR
SURFAC
SVCGBL=
SVCHAN
SVCINS=
SVCSUB=
SYCTAG=
SYCTST=
SWCHAN

034046

OSECr

002112

gSH

g8ir
ur A ~8~lji

00
2
882 26

OO~ ~~

8Hi!A
UT
B

gOH34

~i
8m~ ~r~i

oHm

mm 88i~

oo BGNR=
AU
= 808180
8
GNS =
o8 8
Ggsw; 0
8
o PO!N= oooor
o
k~
5= 8m 2
~lR.fA 0
4

"1' ' ' 88""8

~~~~~T

RLCNT =
RLHSG
RSADJS
PSTACK
SAVEDO=
SEARCH
SECBUF
SECLS1
SECT
SECWRD
SEEK =
SEGSTA

PRIO

60 G
06

= 008
= 000

G
0 G

mu;; 888m g

...... "T"

032530 G
051554

•

063050

ABS.

ERRORS DETECTED:

STS~C
STS C~

8Fm
0lh42
0174!4
06~4 0 G
o~ 144
g

8 ~3~3

8hP~g~

034

~~!m

m4
mX mm

8~7m

00~024

832510 G

31 662 G
03 6~0
8m 3

04153~

o~~o~

b~0~3°
bH 6

l
8

M~
°m~~
TERMEr
8555~0
1ER~TA

TEST.M
TIMFLG

m:8~

TOO. HA

taHH

TQU20
TQU21
TQU30
TQU31
TQU40
TQU41

000
0

RSKZflZRLF~~D~~Z:CZR~F3=CZRLFB/ML'CZRLFB.Pll'CZRLFB.SUP
UN- ME:
.9 S C NDS

~g~ET~~~D~A Igi 91~~4pIG~S)

SEQ 0014

18 G
8r
SN.PTA
o
'01
SYS. FT
5585
SlLSYH=
100

00~006

SERNUH
SETLST
SETUP
SET.HA
SHIFT
SIGN
L
SKHS
= 000020

S ;; 888 38 g
nI8
PRIO~ = 000 40 G
m~~~ 8 52 18
PRSTRK
O~~ 52

PUB.S
PUTCHR

063022
063024
0 6650
o 0010

uim
liltil
mm msu
mm
8374~t

8
8O~I~~
P~lSRF= B ~
~Rlof
~o
PISS.C
PAT
=

~ATLST
RIRi C

062100

mm
= 8
Mm

PWR.FA
PWR. FL
PWR.MS
PWR.SA
PWR.UP
P.CLK.
RDHDR
REAO
=
READ.P
READ!
REASON
RECER
RECMS
REGBAC
REGDMP
REGSAV
REQN.P
EQN T
EV •

0515 2
0r15O
0 ~500 G
G
84
051472
88 2

00~!63

8m1~

0021q~

002 6
002172

TQUSO
TQU51
TRKCNT
TRKFND
TST.AB
TST. TO
TYPEC
TYPEPC
TYPFLA
TYPLIN
TYPNUM
TYPSTR
TYP.ER
TV.UNI
T ARGC=
T CODE=
T ERCO=
T ERRN=
T f.XCP=
T HILI=
T LOLI=
T LSYM=

~ ~m~

002166
002113

041460

033662

052066

m7~~

~62

051
8Hijg4
045612
838m
88gW
00 322

88
000000
010000

T NSKI= OOOor
T SAVL=
T SEGL=

HH ~

tT TAGN=
mE~
010014

TEMP=
TEST= 888m
TSTH=
TSTS=
010010
T DU =
T HAR=
T HW = 010006
T INI= 010007
T HSG=
T TES=
031056 G
1
UNIT.D
G
T
T
T
T

,!",.
U~I.MA

8188B

mm
mm

UNLOAD
USER. P
USER. T
UUT
VAJWR
VALID.
VAL.LA
VAL. SW
VEC
VECMSG
VECT
=
VEROD
VEROW
WCOUNT
WIDTH
WRlTE =
WRITl
WRSEC
XEQDIA
XEQSUB
XEQ.CL
XEQ. CM
XEQ. IN
XEQ. LA
XEQ.OP
XEQ.PR
XEQ. TE
XTmE
XTIMEN
XTIMST
XXDP. D
LWA
x
XrFALS=
X OFFS=

mm
mm
mm
mmH
mm
g1m~
mm
mu

030360

G
G

032764
033604
037250
000002
026206
838 5
017g55
023566

040146

0604~~ G

8ms5

036614
000000
000040
000400
000020

1m" mm
ENDAD
SAV2
SAY3
SAY4
SAV5

G
062572 G

8~2m G
G

Od644 G
063050