PDF Printing 600 Dpi MAINDEC 11 DZRKL E E_RK11 RK05 Dynamic _Apr77 RK11 Apr77
MAINDEC-11-DZRKL-E-E_RK11-RK05-Dynamic-_Apr77 MAINDEC-11-DZRKL-E-E_RK11-RK05-Dynamic-_Apr77
User Manual: MAINDEC-11-DZRKL-E-E_RK11-RK05-Dynamic-_Apr77
Open the PDF directly: View PDF 
.
Page Count: 67
MACYl1
MO-I1-DZRKLoE, RK11-RK05 DYNAMIC TEST
DZRKL~.P11
26-APR.77 12127
3ti~1046)
i4-JUL-?7
08:03
PAGE 2
.REM ,
IDENTIFICATION
l.
PRODUCT CODEs
PRODUCT
NAME.
MAINDEC@11 e DZRKL-EaD
RK11/RK05 DYNAMIC TEST
DATE CREATEDZ
APRIL, 1977
MAINTAINER.
DIAGNOSTIC GROUP
AUTHOR!
JIM KAPADIA
REVISED BYU
PERVEZ ZAKJ:
TOM SAWYER
CHUCK HESS
THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO
CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS
A COMMITMENT BY DIGITAL EQUIPMENT
CORPORATION.
DIGITAL
EQUIPMENT
CORPORATION
ASSUMES
NO
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN
THIS MANUAL.
THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED
TO THE PURCHASER UNDER A LICENSE rOR USE ON A SINGLE
COMPUTER SySTEM AND CAN BE COPIED (WITH INCLUSION OF
DIGITAL·S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN
WRITING BY DIGITAL.
DIGITAL
EQUIPMENT
CORPORATION
ASSUMES
NO
RESPONSIBILITY FOR THE USE OR RELIABILITY or ITS
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
DIGITAL.
COPYRIGHT eCl 1975,1977 BY DIGITAL EQUIPMENT CORPORATION
MD.l1·DZRK~.E,
DZRKLE.Pl1
PKI1-RK05 OYNA~Ie TEST
26-APR-77 12827
MAClil 30(1046)
14-JUL-77
08:03
TABLE OF CONTENTS
1.0
ABSTRACT
2.0
2.1
2.2
2.3
REQUIREMENTS
EQUIPMENT
PRELIMINARY PROGRAMS
EXECUTION TIME
3.0
STARTING ADDRESSES
4.0
4.1
4.2
4.3
4.4
PROGRAM CONTROL MODES AND OPERATOR ACTION
PAPER TAPE
RKDP DUMP MODE
RKDP CHAIN MODE
ACT1!
5.0
DRIVE SELECTION
6.0
SWITCH OPTIONS
7.0
7.1
PROGRAM DESCRIPTION
PERMISSIBLE USER PROGRAM MODIFICATIONS
8.0
SEEK TIMER AND GRAPHS
9.0
FUNCTION SELECTION PROGRAM
10.0
ERROR INfORMATION
11.0
UNEXPECTED TIMEOUTS
12.0
COMMONLY USED SUBROUTINES
13.0
~AMPLE
GRAPH AND TIMER OUTPUTS
PAGE 3
HD-ii-DZRKL-E, RK11-RKOS DYNAMIC TEST
DZRKLE.Pl1
26-APR-77 12127
1.0
MACY11 30(1046)
i4-JUL-77
08z03
PAGE 4
ABSTRACT
THE RKI1/RK~S DYNAMIC TEST AIMS AT
1. DEMONSTRATING THE ELECTROMECHANICAL INTREGRITY
OF THE DRIVE.
2. CHECKING THE LINEAR POSITIONER CONTROL AND SPEED
CONTROL
3. VERIFYING THE INTREGITr or THE READ/WRITE LOGIC
4. PROVIDING A TIMER fOR THE SEEK FUNCTION.
THIS IS A TEST ONE LEVEL HIGHER THAN THE BASIC
LOGIC TESTS.
2.0
REQUIREMENTS
2.1
EQUIPMENT
A.
B.
C.
D.
2.2
RKt1
PDP11 WITH CONSOLE TELETYPE.
9K Of MEMORY
RK1! OR RKV11 CONTROLLER
l u 8 RKOS OR RKOSF DRIVES (DRIVE TYPES MAY BE MIXED)
PRELIMINARY PROGRAMS
RK11 LOGIC TEST I (MAINDEC-l1-DZRKJ)
RK11 LOGIC TEST II (MAINDEC-l1-DZRKK)
2.3
EXECUTION TIME
ERROR FREE FIRST PASS ON PDP11/20 WITH CORE MEMORY
TAKES APPROXIMATELY 5 MINUTES (WITHOUT THE SEEK
TIMER AND GRAPH, ADDITIONAL 3.5 MINUTES FOR THESE).
LESS FOR FASTER MACHINES OR MEMORIES.
3.0
STARTING ADDRESS
200 FOR ANY NORMAL MODE OF OPERATION.
ALL SWITCHESS
DOWN
210 FOR FUNCTION SELECTING
MODE).
4.0
PROGRAM
(CONVERSATIONAL
PROGRAM CONTROL MODES, OPERATOR ACTION
PAPER TAPE LOADING
RKDP DUMP MODE
RKDP CHAIN MODE
ACT1!
MD~li*DZRKL~t,
DZRKLE.P11
RK11-PK05 DYNAMIC TEsT
12&27
26~APR~ii
4.1
PAP~R
TAPE LOADING
MOAD PROGRAM INTO MEMORY
rOR ABSOLUTE TAPES.
USING
STANDARD
PROCEDURE
MAKE SURE THAT THE DRIVES TO BE CHECKED ARE LOADED
WITH DISKS AND ARE IN "RUN", *WRT ENABLE" THEM.
CHECK THAT 'WRT PRO" LIGHT ON THESE DRIVES IS OFF.
PUT DRIVES THAT ARE NOT TO BE TESTED ON 'LOAD".
4.1.3
LOAD ADDRESS 200
4.1.4
sn swnCHES IF DESIRED (SEE SEC 6.0)
PRESS START.
4.1.5
THE PROGRAM IDENTIFIES ITSELF
RK11 DyNAMIC TEST
MAINDEC·11~DZRKL~E
THEN IT PROCEEDS TO FIND WHICH DRIVES ARE PRESENT
AND PRINTS OUT THE DRIVES FOUND. IF AN RK-05F
IS DETECTED, AN F IS APPENDED TO THE DRIVE NUMBERS
DRIVESPRI!:SENT
o
1
AFTER TYPING OUT THE DRIVE NUMBER THAT IS
BE TESTED, EXECUTION OF THE TESTS START.
GOING
TO
AFTER ALL THE TESTS HAVE BEEN EXECUTED ON ONE DRIVE
THEY ARE EXECUTED ON THE NEXT DRIVE, IF PRESENT.
THIS IS REPEATED TILL ALL DRIVES ARE TESTED.
AT THE END Of A PASS THE FOLLOWING IS TYPED OUT:
END PASS X
)(1110,1,2 ••••••
CONTROL IS TRANSFERRED BACK TO THE BEGINNING OF
PROGRAM AND REeEXECUTIUN BEGINS.
THE
RKDP DUMP MODE
THE PROGRAM IS LOADED BY THE RKDP MONITOR.
SET 5A=200.
START.
SELECT ANY SWITCHES YOU WANT AND
THE PROGRAM IDENTIFIES ITSELF AND PRINTS OUT:
PRESS
MD.l1·DZ~KLeE,
DZRKLE.Pl1
~Kl1~RK05 DYNAMIC
26·APR~77 12827
TEST
MACY11 30(1046)
14~JULw7!
08g93
PAGE 6
'TO TEST DRIVE "N" HALT P~OGRAM, ~EMOVE ~KDP PACK AND REP~ACE IT
WITH A WO~K PACK, CLEA~ LOCATION 40, AND RESTART PROGRA~'
4.3
RKDP CHAIN MODE
THE PROGRAM IS CHAIN LOADED FROM RKDP PACK ON DRIVE
'N'. AFTER IDENTIFYING ITSELF, THE FOLLOWING MESSAGE
APPEARS.
DRIVE 'N' WILL NOT BE TESTED SINCE THE RKDP PACK IS
THAT D~IVE.
4.4
ON
ACT11 MODE
THE PROGRAM IS LOADED BY THE ACTt! MONITOR.
AFTER
IDENTIFYING ITSELF, ASCERTAINS THE NUMBER OF DRIVES
PRESENT AND PROCEEDS TO TEST EACH OF THEM AS BEFORE.
5.0
DRIVE SELECTION
IF ANY PARTICULAR DRIVE IS TO BE SELECTED FOR
TESTING, PUT THAT D~IVE ON 'RUN', ·WRITE ENABLE'.
PUT THE ~EST OF THE DRIVES ON "LOAD", 'WRITE LOCK'.
THEN START AS USUA~.
6.0
SWITCH OPTIONS
IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR (I.E. AN 11/34)
THE PROG~AM WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER IS
NOT PRESENT AND WILL USE A eSOFTWARE& SWITCH REGISTER. THE
·SOFTWARE" SWITCH REGISTE~ IS LOCATED AT LOCATION 176 (8l. THE
SETTINGS or THE "SOFTWA~E· SWITCHEs A~E CONTROLLED THROUGH A KEYBOARD
ROUTINE WHICH IS CALLED BY TYPING A ·CONTROL G·. THE PROGRAM WILL
~ECOGNIZE THE ·CONTROL G' WHENEVER THE PROG~AM ENTE~S
THE SCOPE ROUTINE OR BEGINS A NEW TEST. THE
·SOFTWARE· SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE
TO THE PROMpT FROM THE SWITCH ENTRY ROUTINEs
NEW
~.
EACH TIME swITCH SETTING A~E ENTERED, THE ENTIRE SWITCH ~EGISTER
IMAGE MUST 8E ENTE~ED. LEADING ZE~OS ARE NOT REQUIRED., 'RUaOUT' AND
·CONTROL U· FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS
DURING SWITCH ENT~~.
PROCESSORS WITH HARDWARE SWITCH REGISTERS, THE 'SOFTWARE' SWITCH
REGISTER MAY BE USED. IF THE PROGRAM FINDS ALL 16 SWITCHES IN THE
eup· POSITION, ALL SWITCH ~EGISTER ~EFERENCES WILL BE TO THE
~N
MDgl1~DZRKLmE,
DZRKLE.P11
RK11 e RK05 DYNAMIC TEST
12827
MACri! 30(1046)
14$JUL~77
08803
PAGE 7
26~APR~77
wSOFTWAREe REGISTER AND THE PROCEOURES DESCRIBED ABOVE MUST
BE FOLLOWED.
5\11<15);111
SW<14>:::1
S\II< 13>111 1
81'1<12>::111
SW
zi
SW<10ul
51'1<09>1:1
51'1<011>=1
81'1<06>=1
51'1<05>=1
81'1<04);;:1
SW<03>=1
81<1<02>::111
SW;;:l
6.1
t{)f)
t~~
~O
HALT ON ERROR
LOOP ON TEST
INHIBIT ERROR PRINTOUTS
CYCLE ON ERROR TO THE
PREVIOUS
'SCOPE e STATEMENT
DUMP ALL RKil REGISTERS ON ERROR
RING BELL ON ERROR
LOOP ON SPECIFIC ERROR
LOOP ON TEST INDICATED BY USER (SEE
SEC. 6.11)
TYPE SEEK TIMER
TYPE THE GRAPHS
PRINT THE COMPLETE GRAPH
TERMINATE FUNCTION SELECTED BY USER
DROP THE DRIVE AFTER MAXIMU~
ALLOWABLE NUMBER OF ERRORS OCCUR
ASK FOR PATTERN TO BE WRITTEN OR
WRITE CHECKED (FUNCTION SELECTION
PROGRAM)
SW<15>
THE PROGRAM HALTS ON ENCOUNTE~ING AN ERROP, AFTER
TYPING
OUT
THE
ERROR
MESSAGE AND PERTINENT
INFORMATION. PRESSING "CONTINUE" RESTOPES NORMAL
OPERATION OF THE PROGRAM.
THE PROGRAM LOOPS ON THE SUBTES! THAT IS BEING
EXECUTED WHEN THE SWITCH IS PUT ON. THIS SWITCH IS
USED NORMALLY ALONG WITH 5W 15,
6.3
SW<13>
THIS SWITCH lNHIBITS ALL ERROR MESSAGES.
NOR~ALL¥
USED WHEN LOOPING ON TEST (SW 14) OR LOOOPING ON
EFIROR (Sill 9).
THIS SWITCH ALLOWS THE PROGRAM TO CYCLE FROM THE
POINT OF ERROR TO THE PREVIOUS SCOPE STATEMENT.
NOTE THAT IN DOING so AN¥ INITIALIZATION BEING OONE
MD.l1~DZRKL~E,
DZRKLE.Pll
RK11~RK05 DYNAMIC TEST
26-APR-77 12327
MACY!! 30(1046)
14-JUL e 77
08103
PAGE 8
AT THE BEGINNING OF THE SUB TEST WILL B~ DONE AGAIN
AND AGAIN. SEE SEC. 6.7 FOR A DIFFERENT KIND OF
SCOPE LOOP.
6.5
SW<11>
THIS SWITCH ALLOWS DUMPING OF ALL RK11 REGISTERS
ENCOUNTERING AN ERROR.
O~
RINGS A BELL ON ERROR, USEFUL WHEN ERROR TYPEOUT
INHIBITED.
IS
THIS SWITCH PROVIDES THE TIGHTEST POSSIBLE SCOPE
LOOP.
NOTE THAT UNLIKE SW12 THE INITIALIZATION OF
PARAMETERS IT THE BEGINNING OF THE SUB lEST MAY NOT
BE DONE IN THIS CASE. THIS SWITCH IS HELPFUL WHEN A
PARTICULAR pART OF A SUBTEST IS BEING REPEATED USING
DIFFERENT pARAMETERS AND yOU WANT TO SCOPE ON THE
PARAMETER IN ERROR, [EXAMPLES RKOA IS BEING WRITTEN
AND READ BACK WITH COUNT PATTERNS FROM 1 TO 177777.
PATTERN 561 IS GIVING ERROR, YOU MIGHT NOT WANT TO
GO THROUGH THE 560 PATTERNS BEFORE HITTING ERROR ON
THE 561TH PATTERN. IN THIS CASE SW 9 WILL GIVE YOU
A SCOPE LOOP ON THE 561TH PATTERN ONLY.>
6.8
51<08>
THIS SWITCH IS USED TO SELECT A PARTICULAR TEST FOR
EXECUTION.
WHEN THE PROGRAM IS STARTED (200) WITH
THIS SWITCH SET; THE FOLLOWING MESSAGE APEARS:
OCTAL
TEST~?
THE USER SHOULD REPLY WITH THE TEST NUMBER (OCTAL)
HE WANTS TO SELECT, FOLLOWED BY CARRIAGE RETURN.
THE SELECTED TEST IS EXECUTED AGAIN AND AGAIN.
TO
GET OUT OF THIS LOOP, PUT SW 8 BACK TO O. THIS WILL
RESUME NORMAL OPERATION OF THE PROGRAM.
NOTE THAT
BEFORE T~ST 4 CAN BE EXECUTED TEST 2 SHOULD HAVE
BEEN DONE AND TEST 6 SHOULD HAVE BEEN DONE BEFORE
TEST 1.
MDel1~DZRKL9E,
DZRKLE.Pl1
RK11-RK05 DYNAMIC TEST
12127
26~APRg77
MACY1! ]0(1046)
14 u vUL e 77
08.03
PAGE 9
THIS SWITCH WHEN SET MAKES THE PROGRAM TYPE THE SEEK
TIMER.
THIS SWITCH CAN BE SET OR RESET BEFORE OR DURING THE
SEEK TIMER EXECUTION, AND EVEN WHILE THE TYPEOUT IS
OCCURING.
6.10
SW
THIS SWITCH MAKES THE PROGRAM TYPE THE GRAPHS.
IF
RESET BEFORE THE GRAPHePLOTTING ROUTINE IS ENTERED,
THE GRAPHS WILL BE SKIPPED ENTIRELy. IT CAN BE RESET
EVEN AFTER SOME OF THE POINTS HAVE BEEN PLOTTED, TO
SKIP PLOTTING REST OF THE POINTS.
THIS SWITCH IS USED TO SELECT THE COMPLETE GRAPH
OUTPUT (SEEK TIMES OF ALL CYLINDERS ARE PLOTTED)
NORMALLY WHEN THIS SWITCH IS NOT SET, THE SMALL
GRAPH (ONLY SELECTED CYLINDERS PLOTTED) IS PRINTED
OUT.
6.12
SW<03>
THIS SWITCH WHEN SET TE~MINATES THE EXECUTION OF THE
fUNCTION SELECTED BY THE USE~ (SA=210).
A NEW
FUNCTION MAY 8E INITIATED NOW. IF YOU WANT TO KEEP
ON LOOPING ON THE SAME FUNCTION, PUT SW 3 DOWN. SEE
SEC. 9.0.
6.13
8W<02>
THIS SWITCH ALLOWS THE PROGRAM TO D~OP A DRIVE FROM
THE SELECTION LIST
AND
TESTING,
AFTER MAXIMUM
ALLOWABLE ER~OR COUNT (TOTAL NUMBER Of ERRORS) ON
THAT DRIVE IS EXCEEDED. THE MAXIMUM ALLOWABLE ERROR
COUNT IS 6. AFTER 6 ERRORS HAVE OCCURED THE DRIVE IS
DROPPED IND A MESSAGE (D~IVE # XXXXX DROPPED) IS
PRINTED.
.
THIS SWITCH IS TO BE USED
WITH
THE FUNCTION
SELECTION P~OGRAM (51=210). IF A WRITE OR A WRITE
CHECK
FUNCTION IS SELECTED WITH THIS SW SET, THE
PROGRAM WILL ISK FOR THE PATTERN TO BE WRITTEN OR
WRITE CHECKED (PATRN?). THE USER SHOULD TYPE IN THE
(OCTAL) PATTERN,
THIS PATTERN ~ILL BE WRITTEN (OR
WRITE CHECKED) ON THE DISK. FOR FURTHER INFORMATION
REFER TO SEC. 9.0.
MD-l1 u DZRKL.E, RK11 e RK05 DYNAMIC TEST
DZRKLE.Pl1
26-APR-77 12127
7.0
MACY11 30(1046)
14~JUL.77
09103
PAGE 10
PROGRAM DESCRIPTION
THE fIRST TEST IS AIMED AT DETECTING IMPEPENDING
ELECTROMECHANICAL FAILURES IN THE DRIVE AND
IN~ER/OUTER LIMIT SWITCHES.
IN THE NEXT TWO TESTS, THE DISK IS FORMATTED AND
CHECKED FOR CORRECT fORMATTING, IF THE DISK IS
AN RK-05f, THE ENTIRE DISK IS FORMATTED EACH TIME
THE EVEN DRIVE IS TESTED. NO FORMATTING IS DONE WHEN
THE ODD DRIVE IS TESTED. THE DISK IS CHECKED EACH
TIME FOR PROPER FORMAT, HOWEVER.
IN NEXT TWO TESTS THE SEEK LOGIC, POSITIONER, ETC
ARE CHECKED OUT BY DOING IMPLIED SEEK, USING TWO
DIFFERENT SEEKING PATTERNS,
THE FIRST ONE IS A
DECREASING
SAW~TOOTH
PATTERN
.(0.312 0.311.0.310 •••• ),
THE SECOND
ONE
IS
A
CONVERGING-DIVERGING
PATTERN
(0-312.1·311·2·310 •••• ).
ON GETTING
AN
ERROR,
FURTHER ANALYSIS IS DONE TO FIND OUT MORE ABOUT THE
NATURE OF ERROR. MANY TIMES ADDITIONAL INFORMATION
IS GIVEN FOR THE CONVIENCE OF THE USER. RETRIES ARE
DONE WHENEVER AN ERROR OCCURS.
9
IN THE SUBSEQUENT TESTS EXTENSIVE WRITING
usING MORE THAN 2000 DIFFERENT PATTERNS.
IS READ, (SOFTWARE) COMPARED, AND WRITE
IS DONE
THE DATA
CHECKED,
EVERYTIME AN ERROR OCCURS RETRIES ARE DONE, TO CHECK
If IT WAS A RECOVERA8LE ERROR OR NOT. THE USER CAN
CHANGE THE PATTERNS TO BE wRITTEN ON THE DISK. THE
DATA TRANSFER BUFFERS CAN BE RE-LOCATED BY THE USER
TO DIffERENT PARTS OF MEMORY. REFER TO LOCATIONS
·P8UFO·, "PBUF!", "PAT1", 'PTRN01" IN THE LISTINGS
FOR MORE DETAILS. SEE SEC 7.1,
THE SHUNT CURRENT CHANGE TEST WRITES, READS AND
CHECKS FOR ERRORS ON CYLINDERS 127 AND 128. THIS
REGION HAS CRITICAL "PACKING DENSITY" TO "WRITE
CURRENT" RATIOS.
THE SEEK TIMER PROVIDES SEEK
TIMES
AND
GRAPHS
AS
EXPLAINED IN SEC 8.0
A FUNCTION SELECTION SUB-PROGRAM IS PROVIDED
USER SELECTION OF FUNCTIONS. SEE SEC 9.0
FOR
EVERY TEST IN THE PROGRAM IS PRECEEDED BY AN
EXPLANATION OF THAT TEST, THE USER IS ADVISED TO
REFER TO THAT, IF MORE INFORMATION IS NEEDED.
7.1
PERMISSIBLE USER PROGRAM MODIFICATIONS
I,
MD-l1-DZRKL.E, RK11=RK05 DYNA~IC TEST
DZRKLE.Pll
26-APR-77 12127
MACY!1 30(1046)
14-JUL-77
08103
PAGE 11
THE USER CAN MAKE MINOR CHANGES IN POINTERS, TABLES,
ETC.
TO TAKE CARE OF HIS SPECIAL NEEDS. IT IS
ADVISABLE TO MAKE CHANGES IF ANy, RIGHT AT THE
BEGINING.
7.1.1
SEEK TIMING CAN BE DONE BETWEEN ANY TWO CYLINDERS,
BY MAKING CHANGES DESCRIBED IN THE CYLINDER ADDRESS
TABLE AT LOCATIONS 'SOAO' AND 'SIAD'
IN
THE
LISTINGS.
7.1.2
IN CASE YOU HAVE A LINE PRINTER AND WANT YOUR OUTPUT
ON THE LINE PRlIIITER, CHANGE LOCATION 'UPS' TO
177514 AND LOCATION '$TPB' TO 177516 (LINE PRINTER
VECTORS),
7.1.3
INPUT/OUTPUT DATA BUFFERS (FROM WHERE DATA TRANSFERS
WILL SE DONE TO AND FROM THE DISK) CAN BE RELOCATED
TO ANYWHERE IN-THE 281( OF MEMORY (DO NOT OVERLAY THE
PROGRAM). THIS CAN BE DONE BY CHANGING THE CONTENTS
OF LOCATIONS 'PBUFO' AND 'PSUFl' TO THE STARTING
ADDRESSES OF THE TwO USER SELECTED BUFFERS. IT
SHOULD BE NOTED THAT EACH OF THE TWO BUFFERS SHOULD
BE 768 (DECIMAL) WORD LONG.
7.1.4
FOUR DIFFERENT PATTERN GENERATOR ROUTINES HAVE BEEN
USED IN THIS PROGRAM I A.
PTGENO B, PTGEN! C.
PTGEN2 D. pTGEN3.
THEY HAVE BEEN DESCRIBED IN
DETAIL AT CORRESPONDING LOCATIONS IN THE LISTING.
THE ORDER IN WHICH THEY ARE CALLED IS DESCRIBED AT
THE BEGINING OF TEST 6. THIS CALLING ORDER CAN BE
CHANGED BY MAKING CHANGES IN THE FOUR POINTERS
A.'PATO' B. 'PAT1~ C. 'PAT2' D. 'PATl', THESE 4
POINTERS CONTAIN THE STARTING ADDRESS OF
EACH
ROUTINE.
7.1.5
AS A SPECIAL CASE OF THE ABOVE, YOU CAN WRITE THE
SAME TWO (OR ONE) PATTERN/S ON THE ENTIRE DISK USING
'PTGENO' ROUTINE. TO WRITE THE SAME ONE PATTERN:
CHANGE LOCATION 'PAT1' TO 'PTGENO' (STARTING ADDRESS
OF PTGENO)
CHANGE LOCATION 'PAT2' TO 'PTGENO' (STARTING ADDRESS
OF PTGENO)
CHANGE LOCATION 'PAT3' TO 'PTGENO' (STARTING ADDRESS
OF PTGENO)
FILL LOCATIONS 'PTRN01' AND 'PTRN02' WITH
THE
PATTERN YOU WANT.
TO WRITE 2 DIFFERENT PATTERNS (IN
ALTERNATING
SECTORS):
CHANGE 'PATi', 'PAT2' AND 'PAT3' AS DESCRIBED ABOVE.
FILL 'PATRN01' AND 'PATRN02' WITH THE TWO PATTERNS
YOU WANT.
7.1.6
IN TEST 10, IF YOU WANT TO WRITE AND CHECK CYLINDERS
127 AND 128 WITH PATTERNS OTHER THAN THE 12 USED,
CHANGE ANY OR ALL OF THE 12 POINTERS 'SPi' THROUGH
MD .. l1 .. DZF!I. THE
PATTERN WILL 8E WRITTEN ON THE DISK. NOTE THE NUMBER
OF WORDS TO BE WRITTEN AND THE DISK ADDRESS S~OULD
BE SPECIFIED.
FOR A WRITE CHECK FUNCTIONS IF SW 0 IS SET TO 1, THE
USER IS ASKED FOR THE PATTERN TO BE WRITE CHECKED.
PATRN? THE USER SHOULD T~PE IN THE (OCTAL) PATTERN.
FOR A SEEK FUNCTIONs ClL1? CYL2? IN REPLY TO THESE,
TYPE IN THE CYLINDER NUMBERS (OCTAL) BETWEEN WHICH
THE SEEK IS TO BE DONE. IF A NON EXISTENT CYLINDER
IS TYPED IN THE QUESTION IS REPEATED AGAIN.
THE FUNCTION IS EXECUTED AGAIN AND AGAIN.
TO GET
OUT OF THIS LOOP SW 3 SHOULD BE SET, AT THIS POINT
THE QUESTION (FUNCTION?) IS ASKED AGAIN.
IF UPON EXECUTION OF A FUNCTION AN ERROR OCCURS IT
IS REPORTED. ALL SWITCH OPTIONS WHICH APPLY TO ANY
OTHER ERROR, ALSO APPLY TO THIS ERROR,
MDall~DZRKLDE,
DZRKLE.Pl1
RK11~RK05 DYNAMIC TEST
26 m APR 77 12827
MACY11 30(1046)
14~JUL~77
08r03
PAGE 14
5
IF ON INPUTTING A NUMBER OR COMMAND A MISTAKE LS
MADE, THE INPUT STRING CAN BE DELETED BY HITTING
BRUSOUT' KEY, THE N~W STRING CAN BE TYPED IN AGAIN.
10.0
ERROR INFORMATION
WHENEVER AN ERROR MESSAGE IS PRINTED OUT, ALL
REGISTERS AND OTHER. DATA PERTAININNG TO THE ERROR
ARE ALSO GIVEN.
RKDS, RKER ••• RKBA INDICATE THE
CONTENTS OF THE CORRESPONDING REGISTERS AT THE TIME
OF ERROR.
EVERY
ERROR MESSAGE CONTAINS A PC.
THIS
PC
THE POSITION IN PROGRAM WHERE THE ERROR
CALL IS LOCATED.
THE ERROR MESSAGE, BECAUSE OF
PRACTICAL
CONSIDERATIONS
IS
MADE
SHORT
AND
MEANINGFUL. THE USER IS ADVISED TO LOOK UP THE PC
IN THE PROGRAM LISTI~G, WHERE HE WILL FIND MO~E
INFORMATION ABOUT THE ERROR~ IN MANY INSTANCES, A
SINGLE FAULT WILL GIVE RISE TO MORE THAN ONE ERROR
REPORT.
A
LITTLE
DELIBERATION
AND
CAREFUL
EXAMINATION OF THE DATA GIVEN WILL BE CERTAINLY VERY
HELPFUL. A BRIEF EXPLANATION OF WHAT IS BEING
CHECKED IN THE SUBTEST IS GIVEN AT THE BEGINNING OF
EVERY SUBTEST. ALL THE NUMBERS GIVEN WITH ERROR
MESSAGES ARE IN OCTAL.
INDICA~ES
AT TIMES WHEN AN ERROR OCCURS BESIDES THE ERROR
PRINTOUT MORE PRINTOUTS OCCUR. THEY ARE GIVEN TO
HELP THE USER UNDERSTAND THE PROBLEM.
11.0
UNEXPECTED TIMEOUTS AND RK11 INTERRUPTS
WHEN AN UNEXPECTED TIMEOUT OCCURS, THE PC AT WHICH
TIME OUT OCCURRED IS TYPED OUT AND THE PROGRAM
HALTS. IF IT IS INTACT, IT CAN BE RESTARTED BY
PRESSING CONTINUE.
IF AN UNEXPECTED RKII INTERRUPT OCCURS THE PROGRAM
TYPES OUT THE PC AT WHICH THE INTE~RUPT CAME IN AND
THEN HALTS. PREsSIlIlG CONTINUE WOULD RESTAflT THE
PROGRAM FROM BEGINNING.
12.0
COMMONLY USED SUBROUTINES
A BRIEF EXPLAIIIIATION OF EVERY SUBROUTINE 15 GIVEN IN
THE
LISTINGS
(JUST BEFORE THE CODE FOR THAT
SUBROUTINE). ALL SUBwROUTINEs ARE LISTED IN THE
PTABLE OF CONTENTS· FOUND AT THE BEGINNING OF
LISTINGS. THESE ARE TWO WAYS 1111 WHICH ROUTINES ARE
CALLED, 1.
JSR PC, ROUTINE 2. THROUGH AN ENCODED
TRAP INSTRUCTION. THE LOWER BYT! or THE 'TRAp·
INSTRUCTION IS USED TO INDEX THROUGH THE TRAP TABLE
MO.l1-DZRKL.E, RK11-RK05 OY~AMIC TEST
OZRKLE.Pl1
26-APR-77 12127
MACYl1 30(1046)
(STRPAD) rOR THE STARTING
POUTINE.
13.0
14-JUL-77
ADDRESS
OF
08.03
THE
PAGE 15
DESIRED
SAMPLE GRAPH AND SEEK TIMER OUTPUTS
'. or SEEKS' INDICATES THE NUMBER OF TIMES A PARTICULAR
'SEEK TIME' WAS OBTAINED. NOTE THAT TIMES ARE ~ECORDED FOR
BOTH FORWARD AND REVERSE SEEKS, BETWEEN A SET OF CYLINDERS.
SEEK TIME SCALE FACTOR=O.Ol MILl SECS
OF
II
SEEKS
SEEK
TIME
CYU.0-202
FRWRD
tOO
9075
825
1155
1485
3135
100
1155
100
\
1485
100
3135
REVRSE
3795
CYLS,O-100
FRWRD
100
1155
REVRSE
CYLS.0 .. 32
FRWRD
100
100
REVRSE
CYLSsO ... 16
FRWRD
100
.9075
REVRSE
CUSI0 .. 3
FRWRD
100
100
REVRSE
CYLSI179-181
FRWRD
100
SEEK
TIME
REVRSE
CUSIO .. 1
FRWRD
100
•
OF
SEEKS
100
3795
REVRSE
5775
100
5715
MD-l1-DZRKL-E, RK11-RKOS DYNAMIC TEST
DZRKLE.Pl1
MACY!1 30(1046)
12827
26G~PPU77
14-JUL-77
u
SEEK TIME- MILl SEes
Y AXIS - CYLINDER SEEKED FROM 0
X AXIS
o
10
IB.~.I
30
20
40
50
60
08103
**SAMPLE OUTPUT**
so
70
90
2"
3"
4u
6"
8"
10"
12"
14"'
16"
18"
20 ..
2S ..
30.. .
35"
40"
45-
SO ...
SS"
60"
65"
70 ..
75"
80"
85"
90 ..
95"
100"
105"
uo ..
US ..
120 ..
125"
uo ..
i3S"
140"
145"
150'"
155"
160"
165"
170 ..
175'"
180"
185"
190"
19S"
200 ..
202'"
100
110
120
130
•• ~·I~p.·lmQ~eI~u··I.~$81 •• ~BI •• ~.I •• 8~lm •• ~Ig •• BI ••• ~I.ueGI
0.. X
1"
PAGE 16
X
X
X
X
X
X
X
X
x
x
x
x
x
x
x
x
x
x
x
x
x
x
x
x
x
x
x
x
x
x
x
x
x
x
x
x
x
x
x
x
x
x
x
x
x
x
x
x
MD-I1-DZRKL.E, RKI1-RK05 DYNAMIC TEST
DZRKLE.Pl1
26-APR-77 12127
MACYll 30(1046)
14-JUL-77
08103
PAGE 17
MO-U-DZRKL_E, PKII-PK05 OYNAMIC TEST
OZPKU,PII
26-APR-77 12127
825
826
MACYll ]0(10461
14-JUL-77
PAGE 18
OBI03
,TITLE MO-II-0ZRKL-e:, RKU-RK05 DYNAMIC TEST
,-COPYRIGHT ec) 197411977
,-OIGITAL EQUIPMENT CORP,
I*MAYNAPO, MASS, 01754
827
828
829
8]0
8]1
,*
,.,.PROGRAM JIM
,*THIS PROGRAM WAS ASSEMBLED USING THE PDP-II MAINDEC SYSMAC
8]2
8]]
8)4
BY
KAPADIA
,.PACKAGE
(MAINDEC-I~-DZQAC-C3),
,.
1975
JAN 19. 1977.
8]5
8]6
,*,"JANUAIIY
837
8]8
839
,*REVISED MARCH 1976 BY TOM SAWYER
,.REVISED BY CHUCK HESS, AUGUST, 1976
840
841
842
843
,.,.,SBTTL
,.,*
844
,.
845
846
847
848
8f9
850
851
853
854
855
A64
865
861
MO.II-OZRKL_E. RKlt-RKO! DYNAMIC TEST
DZRKLE,PII
26-APR-77 12127
001100
873
874
875
889
890
89\
892
893
894
89~
896
897
898
899
900
901
902
90)
904
905
906
907
90B
909
910
911
912
913
914
91S
916
917
918
919
gao
931
922
923
MACYII 30(1046) 14-JUL-77
'BASIC DEFINITIONS
,SBTTL
872
887
888
11
USE
HALT ON ERROR
LOOP ON TEST
INHIBIT ERROR TYPEDUTS
CYCLE ON ERROR TO PREVIOUS 'SCOP!'
BELL ON ERROR
LOOP ON ERROR
SELECT TEST TYPEO IN BY USER
EXECUTE THE SEEK TIMER ('TEST 11)
TYPE THE SEEK TIMER GRAPHS (TEST III
TYPE THE COMPLETE GRAPH (ALL SEEK TIllES)
NOTE, OTHERWISE yOU GET SMALL GRAPH
TERMINATE FUNCTION SELECTED BY USER
(rOR FUNCTION SELECTION PROGRAM SA-~10)
DROP THE DRIVE AFTER MAXIMU~ ALLOWABLE
NUMBER OF ERRORS HAVE OCCURED
ASK FOR PATTERN TO BE WRITTEN (OR WRITE
CHECKED), IN FUNCTION SELECTION PROGRAM
DUMP OUT ALL RKII REGISTERS ON ERROR
YOU ARE ADVISED TO READ THE DOCUMENT FOR THIS PROGRAM,
FUNCTION SELECTION PROGRAM STARTS AT 210,
866
895
886
6
5
4
,*
,"
,"
,"
"
863
881
882
883
8A4
9
9
I'
862
879
880
U
12
10
1*
857
858
859
@60
861
876
14
,*
856
877
978
15
",*,*
I·
,*
1*
,*
,.
852
868
869
870
871
OPERATIONAL SWITCH SETTINGS
SWITCH
000011
000012
000015
000200
177776
177774
177772
177570
177570
000000
000001
000002
000003
000004
000005
000006
000007
000006
000007
000000
000040
000100
000140
000200
000240
000300
000340
100000
040000
020000
010000
004000
002000
001000
000400
000200
000100
000040
000020
000010
000004
08103
PAGE 19
BASIC DEFINITIONS
,*INITIAL ADORESS OF THE STACK POINTER *** 1100 ***
STACKa 1100
,EQUIV EMT,ERROR
"BASIC DEFINITION or ERROR CALL
,EQUIV IOT,SCOPE
"BASIC DEFINITION OF SCOPE CALL
,.MI8CELLANEOUS DEFINITIONS
11
"CODE FOR HORIZONTAL TAB
12
"COOE rOR LINE FEED
Ch
IS
"CODE FOR CARRIAGE RETURN
CRL'..
200
"COOE FOR CARRIAGE: RETURNoLINE E!ED
PSa
177776
"PROCESSOR STATUS WORD
,EQUlV PS, psw
STKLMTa 177774
"STACK LIMIT REGISTER
PIRQs
177772,
"PROGRAM INTERRUPT REQUEST REGISTER
DSWP=
177570
"HARDWARE SWITCH REGISTER
DDISP. 177570
I,HARDWARE DISPLAY REGISTER
HTa
LFa
I *GENERAL PURPOSE
RO.
'1<0
Rip
U
Ram
'112
Us
113
lib
U
P5.
R6s
U
'6
Us
SPa
.,
U
PC"
U
DEFINITIONS
IIGENERAL REGISTER
" GENERAL REGISTER
"GENERAL REGISTER
"GENERAL REGISTER
"GENERAL REGISTER
"GENERAL REGISTER
"GENERAL REGISTER
"GENERAL REGISTER
"STACK POINTER
"PROGRAM COUNTER
~EGISTER
,.PRIORITY LEVEL DEFINITIONS
PROs
0
"PRIORITY
40
PRI"
"PIIIORI'I'Y
PR2a
100
"PRIOUT!
PRJ_
140
"PRIORITY
PR4m
200
, ,PRIORITY
PRS_
240
I ,PIIIORITY
PR6B
300
"PRIORITY
pR7a
340
IIPRIORITY
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
,.·SWITCH REGISTER' aWITCH DEFINITIONS
100000
40000
20000
awu- 10000
SlIlIe
4000
SWIO.
2000
S1I091000
SWOla
400
SW07.
200
/IliUm
100
awOS"
40
81>104"
20
111103"
10
aWlS..
8NI4..
SWUa
111102..
4
0
I
2
J
4
5
6
7
MDell-DZRKL.E, RKII-RK05 DYNAMIC TEaT
DIRKL!. PII
2S-APR-7? 12127
924
925
926
aWOla
SWOOa
,lQUn
,lOUn
,EOUn
,!QUn
,EQUn
,!Oun
,EOUIV
,EOun
,EQUiV
,EOUIV
000002
000001
927
92B
919
930
931
932
933
934
935
936
937
931
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
2
I
81109,1119
81108,8118
81107,8117
81106,1116
IW05,8N5
81104,1114.
81103,SW3
81102,8112
81101,8111
S1I00,8110
,.BASIC ·CPU· TRAP VECTOR ADDRESSES
ERRVEC. 4
"TIME OUT ANO OTHER ERRORS
RUVEC_ 10
"REIIERVED AND ILLEGAL INSTRUCTIONS
TBITVEC_14
II'T" BIT
TRTVECa 14
"TRACE TRAP
000014
000020
000024
000030
000034
000060
000064
000240
BPTVEC .. 14
10TVEC= 20
PIIRVEC. 24
EMTVEC. 30
TRAPVEC_34
TKVICs 60
TPVEC- 64
PIRQVEC=240
MD-II-DZRKL.!, RKII-RK05 DYNAMIC TEST
26-APR-77 12127
DZRKLE,PII
"BREAKPOINT TRAP (8PT)
"INPUT/OUTPUT TRAP (lOT) **SCOPE**
" POWER rAIL
"EMULATOR TRAP (EMT) **ERROR**
II "TRAP" TRAP
"TTY KEYBOARD VECTOR
"TTY PItiNTER VECTOR
"PROGRAM INTERRUPT REQUEST VECTOR
TRAP CATCHER
MACYI1 30(1046)
TRAP CATCHER
14-JUL-77
08103
PAGE 21
,.0
000.000
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
1001
1002
1003
1004
PAGElO
000004
000010
000014
000014
",SBTTL
980
981
982
08103
,*DUA 8IT DEFINITIONS (aITOO TO UTIS)
81TI5_ 100000
BITI4. 40000
BITI3a 20000
BITI2- 10000
SITlle 4000
BlTlOs 2000
BITOh 1000
BITOI- 400
BlT07. 300
81T06- 100
BITOSa 40
BIT04_ 20
BlT03- 10
BIT02. 4
BlTOI- 2
BITOOe I
,EOun BXT09,BIT9
,EQUlV BIT08,BIT8
,EQUlV BIT07,8IT7
,EQUlV BlT06,BIT6
,EOUIV BITOS,BITS
,EQUIV BIT04,BfT4
,EQUIV BIT03,BITl
,EQUIV 81102,BIT2
,EQUlV BITOI,eITI
,EQUIV BITOO,BITO
100000
040000
020000
010000
004000
002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001
939
940
941
MACYI1 30(1046) 14-JUL-17
&AlIIC DEFINITIONS
000174
000176
000174
000000
000000·
000200
000137
002462
000210
000214
on0210
105237
000137
001216
002462
,*ALL UNUSED LOCATIONS FROM 4 • 776 CONTAIN A • ,+2,HALT'
,*SEOUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTII
,_LOCATION 0 CONTAINS a TO CATCH IMPROPERLY LOADED VECTORS
,-174
DISPREG I ,IIORD
"SOFTIIARE OISPLAY REGISTER
SWREG,
,IIORD 0
"SOFTWARE SWITCH REGISTER
,S8TTL STARTING ADDRESS(ES)
JMP
._START "JUMP TO STARTING ADDRESS OF PROGRAM
,
,1iJ210
,88TT!.
INC8
FrUNC
JMP
.,START
ACTll HOOK8
,SET FLAG INDICATING SELECTION Dr
,FUNCTION PROGRAM,
,,*************
......;(************************************* .... *** .. **
,HODKS REQUIRED BY ACTl1
000046
000052
000220
000046
015330
000052
000000
000220
UYPC-,
.846
SENDAD
,SAYE PC
I,I)SET LOC,46 TO ADDRESS OF sENDAD IN ,.EOP
.-52
,WORD
,-UVPC
,
112)SET LOC,S2 TO ZERO
" RESTORE PC
MD-II-DZRKL_E. RKU-IU(05 DYNAMIC
DZRKLE,PII
a.-APR-?? 13121
'ItaT
MACYU 30(046)
COMMON TAGS
14-o1U"-77
08,03
PAGE 23
1005
1006
,SSTTL
1007
, J
,*TH18 TABLE, CONTAINS VlllIOUS COMMON STORAGE LOCATIONS
'''USED IN THE PROGIIAN,
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022
1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
lOll
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
******... *****.....** •• ***.***.... **.********* ..............
SCMrAGI
,PASSI
nSTNMI
SERFLGI
nCNTI
,LPADIII
fLPERRI
tERTTLI
UTENBI
,ERMAX,
tERRPCI
$GDADIII
SBDADRI
8GDDATI
8BDDATI
,WORD
,BYTE
,BYTE
,WORD
,WORD
,WORD
,WORD
,BYTE
001102
001103
001104
001106
001110
001112
001114
001115
001116
001120
001122
001124
001126
001130
001132
001134
001135
001136
001140
001142
001144
00lt46
001150
001152
001154
001155
00lt56
001157
001160
000000
000
000
000000
000000
000000
000000
000
001
000000
000000
000000
000000
000000
000000
000000
000
000
000000
177570
177570
177560
177562
177564
177566
000
002
012
000
000000
,WOIID
,WORD
SAUTOBI ,BYTE
UNTAGI ,BYTE
,WORD
SWRI
,WORD
DISPLAYI ,WORD
,TKSI' 177560
UKBI
177562
8TPSI
177564
UPBI
177566
SNULLI
,BYTE
,FILLS I ,BYTE
'rILLCI ,BYTE
GTPFLGI ,BYTE
'REGADI ,WORD
001162
001164
001166
001170
001172
001174
001176
000000
000000
000000
000000
000000
000000
000000
,REGOI
,REGI'
SREG21
SREGll
,REG41
8REG51
SREG61
001200
001202
001204
001206
001212
001213
001214
000000
000000
000000
177607
077
015
000012
• REG7I
,WORD
'REG101 ,WORD
eESCAPEIO
'BELLI
.Ascn
SQUESI
,Ascn
sCIlLFI
,Ascn
SLF!
,ASCIZ
000377
,BYTE
,WORD
,WORD
,WORD
,WOIID
"WORD
,WORD
,WORD
,WORD
,WORD
,WORD
,WORD
.wOPD
"START OF COMMON TAGS
"CONTAINS PAlla COIINT
"CONTAINS THE TEST NUMBER
"CONTAINS ERROR F"AG
"CONTAINS aUBTEST ITERATION COUNT
"CONTAINS SCOPE LOOP ADDRESS
"CONTAINS SCOPE RETURN FOR ERRORS
"CONTAINS TOTAL ERRORS DETECTED
"CONTAINS ITEM COIi'TROL BYTE
"CONTAINS MAX, ERRORS PEII TEST
"CONTAINS PC OF LAST ERROR INSTIIUCTIDN
"CONTAINS ADDIIESS OF 'GOOD' DATA
"CONTAINS ADDRESS OF 'BAD' DATA
I,CONTAINS 'GOOD' DATA
"CONTAINS 'BAD' DATA
"RESERVED--NOT TO BE USED
o
o
o
o
o
o
o
o
I
o
o
o
a
o
o
o
o
"AUTOMATIC MODE INDICATOR
"INTERRUPT MODE INDICATOII
a
o
"ADDRESS Of' SWITCH REGISTEII
"ADDRESS OF DISPLAY REGISTER
"TTY KBD STATUS
"TTY KBD BUFrER
"TTY PIlINTER STATUS REG, ADDRESS
"TTY PRINTER BUFFER REG, ADDIIESS
"CDNTAINS NULL CHARACTEIIFDR rILLS
"CONTAINS f OF FILLER CHARACTERS IIEQUIRED
"INSE,RT FILL CHARS, AFTER A "LINE FEtD"
,,"TERMINAL AVAILABLE" FLAG (BITC07>.O=IESI
"CONTAINS THE ADDRESS FROM
"WHICH
(tREGOI WAS OBTAINED
"CONTAINS «8REGADI+01
"CONTAINS «$REGADI+21
"CONTAINS ((8REGAD)+4)
"CONTAINS (CIREGAD)+6)
"CONTAINS (C8REGAD)+10)
I,CONTAINS (SREGAD)+12)
"CONTAINS (('IIEGAD)+14)
DSNR
DDUP
o
2
12
o
o
o
o
o
o
o
o
o
"CONTAINS ((8REGAD)+16)
"CONTAINS «( 8REGAD) +20)
"ESCAPE ON ERROR ADDRESS
<207><377><377> "CODE FOR BELL
"QUESTION MARK
111
"CARRIAGE RETURN
<15>
"LINE FEED
<12>
" **-*****.***.****.******** ... ***.*.******* ••••••• *.*.*.****.**._*
14-.1UL-77
MACYlI 30(1046)
TAGS
08103
PAGE 23
CO~MON
,IN CASE YOU WANT THE OUTPUT TO COME OUT ON LINE PRINTER, (IF YOU HAVE
,ONE), MAKE THE FOLLOWING CHANGES ABOVEI
,CHANGE CONTENTS OF "TPS' TO 177514
,CHANGE CONTENTS OF "TPB' TO 177516
(LPT VECTOR)
( . 0)
,TAGS AND GENERAL DATA AREA
FrUNC I
XXDPMDI
, WORD
,WORD
0
0
000
LUPSWI
,BYTE
0
001223
000
DRVDDN,
.BYTE
0
001224
noo
DRIVS.
,BYTE
001216
001220
000000
000000
001222
001226
,FLAG SET, TO INDICATE ENTRY INTO FUNCTION PROGRAM
,IF PIIOGRAM LOADED BY XXDP, THE
-,LOWER BYTE HAS THE DIlIVE NUMBER
,AND THE UPPER BYTE CONTAINS THE RKOS 'XXDP' CODE
,FLAG, SET TO INDICATE THAT A
'PARTICU~AR TEST WAS SELECTED BY USER (SN 8)
,CONTAINS NUMBER OF DRIVES THAT HAVE
,BEEN ALREADY CHECKED
,CONTAINS TOTAL • OF DRIVES PRESENT
,EVEN
001226
000000
DRVPTRI
001230
000000
DRIVADI
001232
001234
001236
001240
001242
001244
001246
001250
000000
030000
040000
060000
100000
120000
140000
160000
DRIVOI
DRIV11
DRIV21
DRIV3J
DRIV4,
DIIIV5.
DRIV61
DIIIV7,
001252
001254
001256
000000
000000
000000
RETRY I!
RETRUI
RETIlYlI
,GENERAL REGISTERS
001260
001262
001264
000000
000000
000000
INA,DRI
0
OUTADRI 0
TIMEIII
0
,CONTAINS INNER ADDRESS
,CONTAINS OUTER ADDRESS
001266
001320
001352
000015
000015
000015
Bun,
,BLKW
Burllli
BUFR21
,8LKW
,CONTAINS POINTER TO INDICATOR STARTING
,WHICH CHECKING SHOULD BE DONE FOil NEXT
,AVAILABLE DRIVE
,CONTAINS THE ADDRESS OF THE DIliVE
,BEING TESTED
000000
020000
040000
060000
100000
120000
140000
160000
,THESE ARE FLAGS TO INDICATE
,THAT A PARTICULAR DRIVE IS
,PR,ESENT, BIT 0 IS SET TO
,INDICATE THAT, BIT8 13, 14, 15
,CONTAIN THE LOGICA~ DRIVE
,ADDRESS
1099
1100
1101
1102
1103
1104
1105
1106
1107
1108
1109
1110
1111
1112
1113
1114
1115
1116
**.--.* ••••*
,_1100
001100
001100
001100
MD-II-DZRKL_E, RKI1-RK05 DYNAMIC TEST
DZRKLE,PII
26-APR-77 12127
1061
1062
1063
1064
1065
1066
1067
10b8
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
,1090
1091
1092
1093
1094
1095
1096
1097
1098
COMMON TAGB
,BLItIl
u,
u,
u,
,GENERAL BUrFERS
MD-U-DZRKL_E, RICI.S-RIC05 pYNAMIC TEaT
DZRICLE.Pll
26-';PR-77 12127
1117
1118
1119
1120
1121
1122
1123
1124
1125
1126
1127
1128
1129
1130
1131
1132
1133
1134
1135
1136
1137
IU8
1119
1140
1141
MACYll 30(1046)
COMMON TAGS
14-.JUL-77
01103
PAGE 24
,IN CASE, YOU WANT TO USE BUFFERS STARTING AT SOME OTHER MEMORY
,ADDREU YOU CAN DO SO BY CHANGING THE FOLLOWING POINTERS,
,BOTH THE BUFFERS SHOULD BE 768 (DECIMAL) WORDS LONG.
001404
026446
PBurOI
IOBUI"O
001406
031446
pBUF 11
IOBUFl
001410
001412
000000
000000
BUFLGO, ,ilOilO
BUFLGII ,lI0RD
001414
010106
PATO I
PTGENO
,A~RES
001416
010170
PATI'
PTGENI
,ROUTINE
,ADRES
001420
010272
PA T21
PTGEN2
,ADRES OF 'PATRN GENRATOR 2'
001422
010334
PATH
PTGEN]
001424
000000
PRSPATa
,WORD
0
·0
0
0
,POINTER TO THE STARTING ADDRESS OF THE
,BUFrER USED TO READ INTO rROM DISK.
,POINTE~ TO STARTING ADDRtBS OF BUFnR
,IN WHICH PATTERNS ARE GENERATED, (WRITING
,IS DONE FROM THIS BUFFER)
,FLAG FO~ • IOBU'O'
,FLAG FOR 'IOBurl'
OF
or
'PATRN GENERATOR 0'
'PArRN GENERATOR I '
,ADRES OF 'PATRN GENRATOR 3'
,CONTAINS THE POINTER TO THE
,ADRES OF I OF THE 3 'PATRN
,GENRATOR" ROUTINES
,SAME AS ABOVE
1142
1143
001426
000000
NXTPATI ,WORD
1144
1145
1146
001430
000000
PGSUBRI
,WORD
001432
DOOOOO
DSKADRI
,WORD
001434
000000
BUSlDRI
,WORD
,CONTAINS BUS ADRES (BA)
1150
1151
001436
000000
WRDCNTI
,WORD
,CONTAINS WORD COUNT
1152
001440
000000
WDSKAD'
,WOIID
,CONTAINS DISK AORES
001442
000000
NBUSAD I
,WORD
001444
000000
WWRDCN I
,WORD
001446
000000
BurNOI
,WORD
001450
000000
ADRES I
"WORD
0
.,CONTUNS DISK ADRES (DA)
1147
1148
1149
1153
1154
1155
1156
1157
1158
1159
1160
1161
,CONTAINS BUS AD RES
0
,CONTAINS WORD COUNT
,CONTAINS STARTING ADRES
1162
,RKU REGI8TERS
1163
,IF rOR ANY REASON THE REGISTER ADDRESSES ARE DIFFERENT FROM
,THESE (BELOW). THE CONTENTS or THE APPROPRIATE POINTERS SHOULD
,BE MODIFIED SO THAT THE CORRECT REGISTER ADDRESS IS USED,
1164
1165
1166
1167
1168
t169
1170
1171
1172
001452
001454
001456
001460
001462
177400
177402
177404
177406
177410
MD-II-DZRKL.E, RK11-RK05 DYNAMIC TEST
DZRKLE.PII
a6-APR-77 12127
1173
1174
RKDSI
RKERI
RKCS.
RKWCI
RKBA.
177400
177402
177404
177406
177410
MACYII 30(1046)
COMMON TAGS
001464
001466
177412
177416
RKDAI
RKDBI
177416
001470
000200
RKPRI.
200
001472
000220
IIKV~CI
220
001474
001476
001500
001502
000000
000000
000000
000000
INDXII
INDX2.
IRDXl.
INDU.
0
001504
001506
001510
001512
001514
001516
001520
001522
000000
000000
000000
000000
000000
000000
000000
000000
ERCNTII
ERCNTaI
ERCNTll
ERCNTtl
ERCN1'51
ERCNT61
ERCNT7.
ERCNT81
0
0
0
0
0
0
0
0
14-vUL-77
08.03
PAGE 25
177412
1175
1176
1177
1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
,CONTAINS THE CPU LEVEL (4) AT WHICH
,RKII NORMALLY INTERRUPTS,
THIS WORD
,SHOULD BE CHANGED IF RKll IS DESIGNATED
,A BR LEVEL OTHER THAN 5.EXPI IF IT
,IS CHANGED TO 6. THE CPU LEVEL WOULD
,BE 1 LESS (5) , HENCE THIS WORD
,SHOULD BE 240 (BIT POSITIONS ARE
I IDENTICAL TO THE PRIORITY BITS IN PSW)
,CONTAINS THE NORMAL VECTOR ADDRESS
,TO WHICH THE RK11 INTERRUPTS, IF THE
,VECTOR ADDRESS HAS BEEN CHANGED, MODIFY
,THIS WORD,
1188
1189
1190
1191
1192
1193
1194
1195
1196
1197
1198
1199
1200
1201
1202
1203
1204
1205
1206
1207
1208
1209
1210
a
,GENERAL INDEX REGISTERS
0
0
I GENERAL Rjj;GI STERS
,GENERAL REGISTERS
,GENERAL REGIST&RS
,*THE FOLLOWING TABLE CONTAINS THE CYLINDERS BETWEEN WHICH THE SEEKS WILL BE
,*TIMED. THEY HAVE BEEN SELECTED TO GIVE SOME TYPICAL SEEKS TIMES rOR THE
,*3 SEEK SPEEDS, IF rOR ANY REASON YOU WANT TO TIME SEEKS BETWE5N ANY·
,-OTHER SET OF CYLINDERS, MAKE CHANGES IN THE CORRESPONDING SEEK CYLINDER
,*ADDRESSEII.
..
1211
1212
1213
1214
1215
1216
1217
1218
1219
1220
1221
1222
1223
1224
1225
1226
1227
1228
001524
001526
001530
001532
001534
001536
001540
·000000
000000
013140
000000
000000
000000
000000
001542
001544
001546
001550
001552
001554
014500
000040
013240
000140
001000
002000
,*OUTER CYLINDER ADDRESS, FROM WHERE SEEK WILL BE DONE
,CYLINDER
·SOADI
0
,
• 0
a
,
179
13140
,
0
o
o
a
o
,
0
,
0
,
0
I*INNER ADDRESS, TO WHICH SEEK WILL BE DONE
,CYLINDDER 202, LAST
SUDI
14500
140
,
,
,
1000
2000
,
16
,
32
40
13240
•
1
181
3
MD-lI-DZRKL.E, RKlI-RK05 DYNAMIC TEST
DZRKLE,PII
26-APR-77 12127
1229
1230
1231
1232
1233
1234
1235
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
1290
1281
1282
12B3
1284
001556
U04262
004626
005124
005614
006622
007360
010440
012176
012740
001602
005015
14-,JUL'77
08103
6200
006200
001560
001562
001564
001566
001570
001572
001574
001576
001600
lOO
,FOLLOWING POINTERS ARE USED TO TRANSFE~ CONROL TO THE
,TEST SELECTED B~ USING SW 8, IF AN~ MORE TESTS ARE
,ADDED TO THIS PROGRAM ADDITIONAL POINTERS SHOULD BE INSERTED.
PTII
TST1+2
TST2+2
PT2.
PU.
TST3+2
TST4+2
PT4.
PT5.
T8T5+2
PT6.
TST6+2
PT7.
TST7+2
PT10.
TST10+2
PTIII
TSTl1+2
044523
000116
,MESSAGES"
ASCII STRINGS
MSGII
,Ascn <15><12>/SINI
005015
045523
000105
NSG21
,Ascn
<15><12>/SKEI
001616
001624
001632
005015
021440
052122
042524
040440
042105
052123
047502
000072
MSGlI
,ASCIZ
<15><12>/TEST • ABORTEDII
001640
005015
040440
042105
051120
047502
000
043517
052122
MSG41
.ASCIZ
<15'<12>/P~OG ABO~TEDI
001646
001654
001657
001664
001672
001700
001706
001714
015
020104
047440
U46517
020102
000105
051012
042110
020113
041440
041101
040505
051522
051106
046131
053117
MSG5.
.ASCIZ
<15><12>/~EAD
001716
001724
001732
054105
044040
000
041520
051104
042124
020075
MSG61
.ASCIZ
IEXPCTD HDRe 1
001733
001740
040
000040
050040
036503
MSG71
.ASClZ
001742
005015
047103
051124
MSGIOI
,ASCIZ
<15><12>/CNTRL PDY DIDN'T SET!
001750
001756
onl764
020114
044504
051440
042122
047104
052105
020131
052047
000
001771
001776
002004
002012
002020
002026
123
020040
050040
020040
050040
000
041505
054105
044055
042522
044055
051124
041520
051104
053103
051104
HSG111
.ASCIZ
ISECTR
MD-II-DZ~KL.E,
RKII.~K05 DYNAMIC TEST
26-APR-77 12127
002027
002034
002042
002050
015
051457
047040
052105
002053
002060
040
021440
002064
002072
HDRS OK FROM CYLB ABOVEI
PC= 1
MACHI 30(1046)
COMMON TAGS
EXPC
14-JUL-77
P-HD~
0810]
<15><12>'~/W/S
053457
054504
051440
MSG121
,ASCIZ
052040
000072
054522
MSGIlI
.ASCIZ
005015
020105
051104
000
053111
MSGI4.
.lSCa
<15><12>/DRIVE 1
002075
002100
002101
002102
002103
002104
002105
002106
002107
002110
002111
040
040
040
040
040
040
040
040
040
040
040
020040
BLNf(13'
BLNKIOI
BLNKS91
BLNKS81
BLNKS71
BLNKS61
BLNKS51
BLNKS41
BLNKS31
BLNKS21
BLNKSll
,ASCII
,ASCII
,ASCII
,ASCII
,ASCII
,ASCII
,ASCII
,ASCII
,ABCll
,ASCII
1
I
1
1
1
,ASelZ
1 I
002114
002116
002120
002114
000000
000000
000000
051012
051040
052117
000
000
.EVEN
FDRIVEI 0
FD~VE1' 0
DRHOLD. 0
TRY '11
I
1
I
1
I
I
1 I
1 1
1 1
I I
RECV P-HDRI
PAGE 27
ROY NOT SET'
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299
1100
1301
!l02
1303
1304
1305
1306
1307
1308
1309
1310
1311
1312
131 3
PAGE 26
001610
DZRKLE ,PI!
1285
1286
1287
1298
1289
MACYlI 30(1046)
COMMON TAGS
MD-I1-DZRKL.J;, RKIl-IIKOS DYNAMIC TEST
DZRKLE,PII
26-...,11-77 12127
,snn
1314
illS
1320
,.,.
,-,-
1360
1361
1362
1363
1364
1365
1366
1367
1368
1369
,ITEM
002122
002124
002126
002130
TO
TO
TO
TO
"POINTS
"POIns
"POINTS
"POINTS
OF
THE
THE
THE
THE
EIlROR MESSAGE
DATA HEADER
DATA
DATA FOIlMAT
ITEMS TABLE
I
EMI
DHI
DTI
024314
025500
026334
000000
,CNTIIL ROY DIDN'T SET AP"I'ER SEEK
RKER
RKDS
RKDA
,PC
R~CS
,IEIIIIPC IIIEGO
,REGI
IIIEG2
IREG3
0
,ITEM
EM2
DHI
002132
002134
002136
002140
024373
025500
026334
000000
002142
002144
002146
002150
024407
EM!
025500
DHI
DTI
0
OTt
,SIN 'ON SEEK
,PC
R~CS
,GERRPC eREGO
RKER
IREGI
RKDS
,REG2
RKDA
GREGl
,ORE ON UEK
,PC
RKCS
,URRPC SREGO
RKER
GREGI
RKDS
8REG2
RKDA
GREGl
0
,ITEM
026334
000000
,ITEM
002152
002154
024423
025500
EM4
DHI
,'ERR' ON SEEK
,PC
RKCS
RKER
R~D5
RKDA
002156
002160
026334
000000
DTI
0
,URRPC • REGO
GREGI
8REG2
GREG3
002162
002164
002166
002110
024441
025500
026334
000000
EMS
DHI
DTI
0
,'DRU' ON SEEK, PUT DRIVE ON 'LOAD' BACK TO -RUN"
RKCS
RitER
R~DS
RKDA
,PC
SREG2
,eERRPC SREGO
UEGI
8REG3
,InM
MD-II-DZRKL_E, RKII-IIK05 DYNAMIC TEST
DZRKLE.PI!
26-APR-77 12127
1370
1371
1372
1373
1374
1175
1376
1377
1378
1379
1380
1381
1382
EM
DH
DT
,,,ERROR
,
1342
1343
1344
1345
1146
1347
1348
1349
1350
1351
1352
1353
1354
1355
1356
1357
1358
1359
ERROR POINTER TABLE
URRTS.
002122
Iln
1333
13H
IH5
1336
1337
1338
1339
1340
1341
PAGE. 21
08'03
,-TH15 TABLE CONTUNS THE INFORMATION rOR EACH ERROR THAT CAN OCCUR,
,-THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER rOUND IN
,.LOCATION UTEMB, THIS NUMBER INDICATES WHICH ITEM IN THE TABLE III P~RT1NENT.
,.NOTEII
lr UTEMB IS 0 THE ONLY PERTINENT DATA IS ItERRPCl,
,*NOTE2,
EACH ITEM IN THE TABLE CONTUNs 4 POINTERS EXPLUNED AS FOLLOWS,
1316
1317
1318
1319
1321
1322
1323
1324
1325
1326
1321
1328
1329
IHO
IHI
MACYlI 30(1046)
14-.:IUIo-71
ERROR POINTER TABLE
MACYI! 30(1046)
14-JUL-77
ERROR POINTER TABLE
OSl03
PAGE 29
,ITEM
002172
002174
002176
002200
024510
025500
026334
000000
EM6
DHI
DTI
0
,R/~/S RDY NOT SET AFTER SEEK
RUR
RKDS
RKCS
,PC
,SERRPC $REGO
GREGI
SREG2
RKDA
,REG3
E~7
,SIN ON WRITE f'HI
RKER
RKCS
IPC
,SERRPC nEGO
SREGI
RKDS
$REG2
RKDA
SREG3
CYLINDER
GREG4
,'ERR' ON DOING WRITE FNT
RKiR
RKDS
,PC
RKCS
,$ERRPC SREGO
IREGI
GREG2
RKDA
'IIEG3
CYLINDER
IREG4
,ITEM
002202
002204
002206
002210
024545
025576
026350
000000
002212
002214
002216
002220
024564
025576
026350
000000
002222
002224
024615
025653
EMil
DHI!
002226
026366
DTII
002230
000000
002232
002234
002236
002240
024633
E~12
025576
DH?
026350
000000
DT7
002242
002244
002246
002250
024655
025750
000000
015456
DH7
DT?
0
1383
1114
1385
1386
1387
1388
1389
1390
1391
1392
1393
1194
1395
1396
1197
1399
1199
1400
1401
1402
1403
1404
1405
1406
1407
1408
1409
1410
1411
1412
141l
,ITEM
,ITEM
,ITEM
1416
1417
1418
1419
1420
1421
1422
1423
1424
IU5
024704
025767
02USO
000000
002262
002264
002266
024757
025750
READ FMT
Rl(CS , RKER
CYL
SUR
$REGO
• REG./.
IREG5
.REG6
RKDS
SEC
GREG2
fREG7
RKDA.
,'e:~R' ON READ FMT
RitER
,PC
RKCS
,GERIIPC SREGO
eReGI
RKD5
REG2
RKDA
SREG]
CYLINDER
$REG4
13
,WRONG HEADERS FROM 'SEC •
,SECTOR .,
HEADER RECVD
"USE THIS SUBROUTINE FOR TYPING OUT ERROR DATA
14
EM\4
DHI4
Dr7
0
lITEM
000000
,SIN ON
,PC
,DRV'
,SERIIPC
,IIlEG4
12
EMil
DH13
0
ESRIl
,ITEM
002252
002254
002256
003260
II
0
,ITEM
1414
1415
10
EN10
DH7
DT7
0
,ERROR ON IMPLIED SEEK FROM CYLA TO CYLB
CYLA
CYLB
RKER
RKDS
,PC
TRYI
,GERRPC: GREGO
$REG2
GREG]
.REG4
'REGI
IS
M815
DMU
0
,READ WRONG HDRS FROM cnB ABOV
HEADER RECVD
I SEC.
MD-II-0ZIIKL.E, RIIII-RKOS DYNAMIC TEST
DZRKLE,PII
26-APR-77 12127
1426
1427
142B
1429
1430
1431
1432
1433
1434
1435
1436
1437
1438
1439
1440
1441
1442
1443
1444
1445
1446
1447
1448
1449
t 450
1451
1452
1453
1454
1455
1456
1457
1458
1459
1460
1461
1462
1463
1464
1465
1466
1467
1468
1469
1470
1471
1412
1473
1414
1475
1476
1477
14H
1479
1480
1481
002270
E5RI5
015364
,ITEM
025021
026046
026350
000000
EMU
OH16
OT7
0
002302
002)04
002)06
002)10
025126
026123
026410
000000
002312
002314
002)16
002)20
025174
025150
000000
015532
002)22
002)24
002326
002330
025262
025500
026334
000000
002332
002334
002336
002340
025316
025500
026334
000000
002342
002344
025341
025653
EM2)
Dati
002346
026366
DTI!
002350
000000
002)52
002354
025)62
026161
EM24
OH24
002356
026422
DT24
002]60
000000
,ITEM
OH17
OT17
0
,ITEM
,READ WRONG HEADER ON IMPLIED SEEK FROM 'CYLA' TO ·CYL.B'
,SECTOR • HEADER RECVO
,U8E THIS SUBROUTINE FOR TYPING OUT
EH26
DHII
002)76
026366
DTI!
002400
000000
002402
002404
025456
026161
,ITEM
002412
002414
002416
002420
025473
025500
026334
000000
RKOS
$REG2
RKO'
GREGl
IHE ON DOING READ
PKCS
RKER
,PC
SUR
,ORH
CYL
,SERRPC SREGO
'REGI
$REG6
ISREG4 SREGS
RKOS
SEC
$REG2
SREG7
RKDAt
,CSE ON
,PC
,ORVI
,SERRPC
,SREG4
RKER
SEC
$REGI
SREG7
RKOS
READ
TRYI
CTL
,REGIO
SREGS
,ITEM
RRCS
SUR
.REGO
SREG6
08103
RKOAI
'PEG2
PAGE 31
25
025440
025653
000000
,SIN ON DOING WRITE
RKCS
RKER
,PC
,nRPpe CREGO
;REG!
24
002372
002374
002410
RKDA
SREG3
23
EM25
DK25
0
ESR2S
,ITEM
OATA
22
025376
026266
000000
015620
026422
,EROR ON DOING WRITE ON OSK
RKER
,PC
RKCS
RKDS
,SERRPC • REG,O
SREG1
$REG2
MACY11 30(1046) 14-JUL-77
E~ROR POINTER TABLE
,ITEM
~RROR
21
002362
002364
002]66
002]70
002406
,READ FIRST WORD FROM SECTOR I, "eYLS" ABOVE
,p~
CYLB
EXPCT
RECVD
,REG2
,SERRPC aREGO
8REGI
0
ESR20
EM22
OHI
OTI
0
,ITEM
,READ WRONG, FIRST wORD FROM SECTOR 0, "eILB" (ON IMP~lED SEEK FROM CYIIA
,PC
CYLA
CYLa
EXPCT
fRYI
RECVO
SREG1
aREG2
SREG3
SREG4
,SERRPC SREGO
DHU
EM21
OHI
OT1
0
,ITEM
,GO TO "E5RIS" FOR TYPING OUT
20
EH20
,ITEM
PAGE 30
17
MIII7
,ITEM
08103
16
002272
002274
002276
002)00
MO.11-0ZRKL_E, RK11-RK05 DINA~IC TEST
OZRKLE,PI!
26-APR-n 12127
1482
1483
1494
1485
1486
1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498
1499
1500
1501
1502
150)
1504
1505
1506
1507
1508
1509
1510
1511
1512
1513
1514
1515
1516
1517
1518
MACYIl 30(10461
14-.IUII-77
ERROR POINTER TABLE
,DATA ERROR ON READ FROM DISK ADDRESS
RECVO
,WORD. EXPCT
CYL
SUR
SEC
,USE THIS ROUTINE FOR ERROR REPORTING
26
,HE ON WRT CHK
,PC
IIKCS
,DRV#
CYL
,SERRPe BREGO
,.REG4 .REGS
RKER
SUR
GREGI
8REG6
RKDS
SEC
$REG2
SREG?
RKCS
SUR
,REGO
GREG6
RKER
SEC
tREGI
IREG7
RKER
RKDS
fREG2
RKDAI
27
EM27
DH24
,WRT CHI( EROR
,PC
TAil
DT24
,DRVi
CYL
,SERRPC .REGIO
,.REG4 .REGS
IIKDS
fREG2
30
EM)O
OHI
DTI
0
,ERROR
,PC
RKCS
,URRPC SREGO
'RE~1
RKDA
'REG)
RKDA.
MD.!I@OZ~KL.E.
DZRKl-E,PII
RKII·RK05 DlNAMIC TUT
2S-APR-n 12121
1519
1520
I THIS IS THE
, RESTART THE
1521
1522
1523
1524
1525
1526
1527
1529
1529
1530
1531
1532
1533
1534
1535
1536
1537
1538
1539
1540
1541
1542
1543
1544
1545
1546
1547
1548
1549
1550
1551
1552
1553
1554
1555
1556
1557
1558
1559
1560
1561
1562
1563
1564
1565
1566
1567
1568
1569
1570
1571
1572
1573
1574
002422
002424
002426
002430
002434
Ol1600
005740
022626
104401
000407
BADTMO!
MOV
TST
eMF
(SFl,RQ
UNEXPECTED TIME OUT, PRESSING CONTINUE WILL
1SAVE PC WHERE TIME OUT OCCURED
-(M)
(SP)tdSPH
,658
,ASCIZ
Mav
RO,-CSP)
104402
THDC
HALT
64$'
000000
000005
002464
002472
002474
002500
002504
002512
002514
002516
002520
002522
002524
002526
002530
023737
001016
005077
012100
032777
001006
005001
005301
00137.
005300
001367
000000
5TARTI
002530
002534
002536
002542
002544
012706
005026
023706
001374
012706
001140
002550
002556
002564
002572
002600
002606
002614
012737
012737
012737
012737
012737
012737
012737
011006
000340
017162
000340
022702
000340
023010
000020
000022
000030
000032
000034
000036
000024
002622
002630
002634
002642
002650
012737
005037
112737
012737
012737
000340
001204
00000 !
002642
002650
000026
002656
002662
002670
013746
000004
002716
177570
"GIVE
000042
000046
176764
000250
000200
176140
20$1
RESET
,CLEAR THE BUS
DRIVES TIME TO RELOAD HEADS IN CASE OF AN APT START
eMF
@#42,@#46
,ARE WE IN ACT!! AUTO MODE?
BNE
STAPTA
, NO, SKIP DELAY
CLR
@RKDA
,SELECT UNIT 0
MOV
«250,RQ
,WAIT FOR"f
BIT
e200,@RKDS
,DRIVE READY,t
SNE
,IN CASE n
STUU
C~R
RI
APT u
DEC
R!
:START, BUT n
BNE
,DONlIT WAIT~<:l
,-2
DEC
RO
,FOREVER,
8NE
.0$
HALT
;RKD5 BIT 7 (DIRVE READy) NEVER SET
STARTA.
012737
012737
001100
00 II 00
,SBTTL INITIALIZE THE COMMON TAGS
, ,CLEAR THE COMMON TAGS (SCHTAG) AREA
MOV
UCMTAG,R6
"fIRST LOCATION TO BE CLEARED
, ,CLEAR MEMOR! LOCAT ION
CLR
CRSH
CMP
#SWR,R6 IIDONE?
eNE
"LOOP alCK IF NO
,"6
HOV
#STAC~,SP
nSETUP THE STACK POINTER
FEW VECTORS
" INITIALIZE
MOV
OGSCOPE,@orOTVEC "lOT VECTOR FOR SCOPE ROUTINE
MOV
o340,@IIDTVEC+2 "LEVEL 7
MOV
#SEBROB,@#EMTVEC "EMT VECTOI FOR ~RROR ROUTINE
MOY
B40,@#EMTVEC+2 "LEVEL 7
MOV
#STBAP,@ITRAPVEC "TRAP VECTOR POR TRAP CALLS
MOV
#340,@#TRAPVEC<2,LEVEL 7
MOV
IGPWRDN,@#PWRVEC "POWER FAILURE VECTOR
#340.@IPWRYEC+2 ; ,LEVEL 7
SESCI?!
"CLEAR THE ESCAPE ON ERROR ADDRESS
U, $ERMAX
I ' ALLOW ONE ERROR PER TEST
MOV
:, INITIALIZE THE GOOP ADDRESS FOR SCOPE
*~I$LPAD~
MOV
:, SETUP THE ERROR LOOP ADDRESS
«" SLPERR
"SIZE FOR A HARDWARE SWITCH REGISTER, IF NOT FOUND OR IT IS
IlEQUAL TO A ~~1", SETUP FOR A SOFTWAPE S'HTCH REGISTER,
MOV
@#ERRVEC,-(SP)
"SAVE ERROR VECTOR
$64$,@IERRVEC
MOV
;:8ET UP ERROR VECTOR
MOV
#OSWR.SWR
'ISETUP fOR A HARDWARE SWICH REGISTER
MOV
CLR
001115
001106
001110
000004
001140
RKII-PK05 O¥NAMIC TEST
12,27
26·~PR-77
177570
OOIU:l
177777
176226
002714
002716
002722
002724
002732
002740
000403
012716
000002
012737
012737
012637
002744
002750
002756
004737
023737
001416
020622
000042
002760
002764
002766
005227
001043
104401
! 71771
005737
001006
QOaCH
1597
1598
1599
1600
1601
002772
002776
003000
003006
003010
003012
003014
023727
001140
000116
000001
001134
1602
1603
003022
Move
MACHI 30(\0\16)
14-JUI.-77
INITIALIZE THE COMMON TIGS
MOV
eM?
B~JE
1595
1596
1604
1605
1606
1607
1608
1609
1610
002724
000176
000174
000004
64$1
001140
001142
000046
65.
165$, (SP)
003024
001005
104406
000403
!l273?
003022
003074
003014
003100
001102
003106
003112
~Ol!
16
OOli 20
003124
1614
003126
1615
105737
001404
1050]7
000137
012700
105020
020027
001314
012701
O~2720
003136
UP
1618
003140
009201
OOIlH
MOV
UWREG, aWR
.;IPOINT TO SOFTWARE SWR
*OISPREG,DISPLAY
(Sr,.,@#ERRVEC
"Rli:STORE ERROR V.CTOR
JSR
PC,UKINT
eMF
@#42,@~46
BEO
69$
SR
,ASCIZ
116881
6731
BURTt. TSTB
67$
/RKI!
BEQ
FFUNC
1$
001216
eLRB
FFUNC
023172
001220
uHF
MOV
CLRB
CMP
iiFUNBEG
IXXDPMD, RD
CRO).
M,IDRlVAIH2
SNE
55
001216
001232
117170
000003
6i'i
,INITIALIZE THE TTY HANDLER
j ARE WE IN ACT!! AUTO MODE?
,YES, SKIP TITLE
"GET OVER THE ASCIZ
DYNAMIC TEST/CII.CI2./MAINDEC-II-OZRIL-E/.CRLr>
,FUNCTION PROGRAM SELECTED?
,NO
,YES, CLEAR THE fLAG
,GO TO 'FUNTION SELECTION PROGRAM'
,CLEAR FLAGS FROM
:~XXOPMD~
TO
~DRIVAD~
MOV
DIC
@m\O,RI
U,(ROl+
,CLEAR BIT O'S IN 'DRI VE
INC
R'I
,PRESENT'"
SNE
6@
ITHE FOLLOWING
1619
FLAGS~
CODE FINDS OUT THE PROGRAM CONTROL MODEl
,PAPER TAPE (MANUA!.), ACT! I, RKDP CHAIN OR DUMP
\620
1621
122737
000002
00001j!
CMPS
#2.4!
001160
013737
000010
001220
SUE
MOV
ST2
0031 52
IU6
003160
122137
000010
001220
CMPB
~IO,UDPMD
1627
003166
003170
003lN
003200
105037
005737
1630
"AND A HARDWARE DISPLAY REGISTER
, ,TRY TO REfERENCE HARDWARE S"R
"BRANCH I f NO TIMEOUT TRAP OCCURRED
, ,AND
THE HARDWARE SHR IS NOT • -I
"BRANCH IF NO TIMEOUT
; ,SET UP rOR TRAP RETURN
70$'
003132
1628
1629
33
TYPE PROGRAM NAME
" TYPE THE NAME or THE PROGRAM If FIRST PASS
INC
#-1
"FIRST TIME?
SNE
67$
"BRANCH IF NO
TYPE
,6S$
"TYPE ASCIZ STRING
,BDTTL
GET VALUE FOR SOFTWARE SWITCH REGISTER
T5T
@~42
" ARE WE RUNNING UNDER XXDP/ACT?
BNE
II BRANCH I f YES
693
SWR, ';SWREG
eMF
"SOFTWARE SWITCH REG SELECTED?
BN£:
"BRANCH I f NO
708
GTSWR
'IGIT SOFr-SIR SETTINGS
SR
70$
MOVS
*I,SAUTDS
"SET AUTO-HOOE INDICATOR
69$'
000424
1616
1633
1624
1625
PAGE
,BaTTL
1611
1612
1613
lua
65e,
66S.
SR
MOV
RT!
MDV
MOV
08,03
UDOISP,DISPLAY
n-I,@SWR
56$
1578
1584
1595
15S6
1587
1588
1589
1590
1591
1592
1593
1594
,SET UP FOR TYPING OUT PC
,GO TYPE OUT OCTA~ PC
,or
012737
022777
001012
1593
PAGE 32
010046
002676
002704
002712
1579
15BO
1581
1582
OSI03
rRESTORE STACK POINTER
"TYPE ASCIZ STRING
645
"GET OVER THE ASCIZ
<15>. 12>/TIMOU'f' PCM I
002462
MD.lI~DZRKL.E,
14"JUL-n
HANDLER rCR
PROGRAM,
TYPE
SR
002436
,,65 $1
002454
002454
002456
002460
DZRKLE ,PI!
1575
1576
1577
MACYI1 30(1046)
ERROR POINTER TABLE
003142
003150
101002
001424
001220
000042
20 ~
40,XXPPMD
BH!
2$
CLRB
TaT
BEo
U
U
XXDPMD
,LOAOED FROM AN RK05 ?
,SR IF NOT
,GET DEVICE INDICATOR AND DRIVE ADDRE~S
,LOADING RKOS
JDRIVE ADDRESS 7 OR LESS?
,SR IF YES
,DRIVE ZERO LOADED THE PROGRAM
,CHAIN MODE OR ACTII AUTO ACCEPT
,SR IF NEITHER
or
MD-lI-DZRKL_E, RKlI-RK05 DYN~MIC TEST
DZRKLE,PII
26-APR-77 12127
104401
000413
1631 003202
1632 003206
1633
1634 003236
1635 003236
1636 003240
1637 003244
1638 003246
1639 003247
1640 003250
1641 003252
1642 003256
164J 003260
1644 003264
1645
1646 003310
1647 003]10
1648 003312
1649 003316
1650 003320
1651 , 003321
1652 003322
1653 003]26
1654
1655 003412
1656 003412
1657 OU3416
1658
1659 003512
1660
1661
1662 003512
1663
1664
1665
1666
1667
1668 003520
1669 003524
1670
1671 003550
1672 003550
1b73 Ou3554
1674 003556
1675 003562
1676 003564
012702
005003
005737
1677
1678
1679
003570
003572
003576
001403
120337
001411
1680
1681
1682
1683
1684
1685
1686
003600
003604
003610
003612
003616
003622
003624
010177
105777
100004
105237
052712
005722
005203
0032-10
"U ••
169~
169b
1697
169~
1699
1700
1701
1702
1703
1704
1705
1706
1707
1708
1709
1710
1711
1712
171l
1714
1715
1716
1717
1718
1719
1720
1721
1722
1723
1724
1725
1726
1727
1728
1729
1730
1731
1732
1733
1734
1735
1736
1737
1738
1739
1740
1741
1742
TYPE
SR
,ASCa
.658
:rTYPE ASCIZ STRING
"GET OVER THE ASCIZ
<15><12>/NOT TESTING DRIVE I
64$
6411
005046
113716
104403
001
CLR
001220
MoVS
000
000520
005227
001115
104401
00041 I
3*.
177777
003266
1167$1
66$1
005046
113716
104403
001
000
104401
000431
104401
000435
MoVB
TYPOS.
,BYTE
,BYTE
TYPE
003330
003420
002422
000004
ST2.
-(SP)
,CLEAR WORD ON STACK
,GET DRIVE ADDRESS
,TYPE THE ADDRESS
,ONLY 1 CHARACTER
1
,SUPRESS LEADING ZEROS
o
,GET NUMBER OF DRIVES
5T2
,FIRST TIME THROUGH HERE
#-1
,BR IF NOT FIRST TIME
5T2
,678 •
"TYPE ASCIZ STRING
,.GET OVER THE ASClZ
668
<15><12>/TO TEST DRIVE I
XXDPMD, (5P)
,CLEAR WORD ON THE STACK
,GET DRIVE ADDRE8S
,TYPE THE DRIVE ADDRESS
,ONLY 1 CHARACTER
I
,SUPRESS LEADING ZEROS
o
,698
"TYPE ASCIZ STRING
"GET OVER THE ASCIZ
I HALT PROGRAM, REMOVE RKDP PACK AND REPLACE IT/<15><13>
-(SP)
XXDPMD,(SP)
.ASCIZ
68'
TYPE
BR
.ASCn
,71$
"TYPE ASCIZ STRING
708
,:GET OVER THE ASCIZ
IWITH A WORK PACK, CLEAR LOCATION 40, AND RESTART PROvRAMI
MOV
#BADTMO,E~RVEC
BA
117UI
70$1
012737
TYPOS
,BYTE
.BYTE
BR
INC
B'E
TYPE
BR
,ASCIZ
CLR
001220
,SET TIMEOUT VECTOR FOR
,UNEXPECTED TIME OUT
,THIS CODE FINDS WHICH DRIVES ARE PRESENT, PRINTS OUT THE DRIVE
,DRIVE NUMBERS THAT WERE rOUND ON LINE,
104401
000411
003526
TIPE
BR
1165$1
64$1
105037
001224
001232
111
001220
175660
175642
001224
000001
2S1
TEsT
001354
003634
003640
003644
003646
003652
004737
105737
001010
104401
00040)
024250
001224
003662
003662
000117
015246
003666
003670
003674
003676
003700
003702
003704
003706
003710
003711
003712
003716
003720
003724
005002
012700
105710
001414
104401
001213
010246
104403
001
000
032710
001404
104401
000401
003730
003730
003732
003734
003740
005202
005720
020027
002755
CLR
TST
,65$
"TYPE AselZ STRING
648
:,GET OVER THE ASCIZ
<15><12./ORIVES PRESENT I
ORZVB
RI
.DRIVO,R2
R3
,INITIALIZE NO, or DRVS PRESENT
XXDPMD
,INITIALIZE COUNT TO
,LOADED FROM AN RK05
BEQ
CMPS
BEQ
6$
R3,XXDPMD
2$
,BR IF NOT
,CHECKING THE LOAD DRIVE
,SR IF YES
MOV
TSTS
BPL
INca
BIS
RI,'RKDA
3RKDS
28
DRIVS
#1, [R2)
TST
(R2)+
INC
113
,ADRES A DRIVE
,IS I T PRESENT?
,NO, BRANCH
:INCREMENT TOTAL. OF DRVS
,SET FLAG INDICATING THIS DRV PRSNT
,INCREMENT COUNT
MACYI! 30(1046) 14-JUL-77 0810l PAGE
GET VALUE FOR SOFTWARE SWITCH REGISTER
35
noooo,Rl
u
,ADFES THE NXT DRV
,CHKO ALL 8 DRIVES?
,IF NOT, GO CHK IF NEXT DRV PRSNT
PC, SIZEF
DRIVS
3S
,67S
6U
I NONEI
,FIND WHICH ARE FS
,WERE ANY DRIVES FOUND?
,YES, BRANCH
"TYPE ASCIZ STRING
"GET OVER THE ASCIZ
JMP
SEOP
3S1
CLR
5$1
MOV
T8T8
R2
#DRIVO,RO
,IF NONE WERE FOUND, GO
ITO THE END OF PROGRAM
:DRIVE NUMBER
:TABLE OF aVAIL DRIVES
,DRIVE HERE?
,NO
020000
062701
003632
CLIIS
MOV
001220
003626
,ASClZ
eLR
OOSOOI
MO-l1-DZRKL.E, RKII-RK05 DYNAMIC
DZRKLE,PII
26-APR-77 12.27
1687
1688
1689
1690
1691
1692
1693
1694
MACYI! 30(1046) 14-.1UL-77 OSl03 PAGE 34
GET VALUE FOR SOFTWARE. SWITCH REGISTER
AOD
BNE
JSR
003654
,,67'1
TST8
BNE
TYPE
8R
,ASClZ
66$1
001232
(ROI
BEQ
TYPE
4$
MOV
R2,-(SPl
ICRLF
000002
00373.6
1169S.
6811
481
001251
TYPOS
.BYTE
,BYTE
BIT
BEQ
TYPE
BF
,ASCIZ
1
o
#2, (RO)
4S
,698
68$
IFI
INC
R2
TST
CMP
RO,#DRIV7+1
BLT
(~Ol+
58
;PUSH NO ON THE STACK
;TO TYPE OCTAL NO,
:TYPE 1 DIGIT, SUPRESS LOG
,IS
O's
IT RKOSF?
,NO
:,TYPE ASCIZ STRING
"GET OVER THE ASCIZ
,POINT TO NEXT DRIVE
,NEXT DRIVE IN TABLE
,ALL DONU
,NO, CHECK REST
,FIND OUT THE FIRST (FROM 0-7l DRIVE THAT 15 PRESENT, PUT THE ADDRESS
,Of THAT DRIVE IN 'ORIVAD', INDICATE THAT DRIVE 3 WILL
,S! TESTED,
003742
003750
003754
003760
003764
003770
003774
004000
004002
004006
004010
004014
004020
004022
004026
004032
004036
004040
012737
105037
005037
105037
005037
013701
032721
001005
020127
001372
000137
010117
014104
005017
00$017
032704
001410
005217
001232
001223
001230
001102
001112
001226
000001
001226
5T31
MOV
CLRB
CLR
NUDRV. CLRB
CLR
u.
00,1252
41.
015246
001326
281
002116
002114
000002
002116
MoV
BIT
SNE
CMf
BNE
JMP
MOV
MDV
CLR
CLR
BIT
BEQ
INC
# Dlllva, DRVPTR
DRVODN
DRIVAD
nSTNM
.ERTTL
DRVPTR,Rl
11,(111)+
28
Rl,.DRIV7+a
18
$lOP
Rl,DRVPTR
• (Rll, JI4
FDRVEI
FDRIVE
U,M
73
FDRVEI
,RESET TEST NUMBER TO 1
,CLEAR ERROR COUNT FOR THIS DRIVE
;IS THI8 DRIVE PRESENT?
,YES, BRANCH
,CHECKED THE WHOLE LIST?
,ND
,YES, EXIT
,NO, GD AHEAD
,GET DRIVE NO, TO BE TESTED
,SHOWS F IF -1
IRK-OS'"
,NO
,SHDWS F
MD.II.DZ~KL.E,
DZRKLE,PII
1743
1744
1745
1746
1747
1748
1749
1750
1751
1752
1753
1754
Ins
1756
1757
1758
1759
1760
1761
1762
1763
1764
1765
1766
1767
1768
1769
1770
1771
1772
1773
1774
1775
1776
1777
1778
1779
1780
1781
17B2
1783
1784
1785
1786
17B7
~KII~~K05
DYNAMIC
TUT
26-lPR-n 12127
004044
004050
004052
004060
004064
00407$1
004074
004076
004100
004102
004104
004106
004110
004112
004113
032704
001003
012737
042704
010437
104401
000241
006104
006104
006104
006104
01.0446
104403
001
000
030000
004114
004120
004122
004136
005737
001404
104401
000401
002116
117777
002114
BIT
UOOOO,II4
,EVEN DRlVE'
8Na:
H
.-j,rDRIV!!:
lila
R4,DlIlVAD
,MSG14
,SET UP DRIVE-ADRES
R4
,TYPE OUT THE DRIVE NO,
1I0V
SIC
781
000003
001330
002064
MOV
TYPE
CLC
ROt.
ROL
RDL
ROL
MOV
ryPOS
n,R4
A4
114
R4
M,-CSP)
TST
BEQ
TYPE
004130
BR
,Allen
,,65$1
64 ..
FDItVE!
,RK-05r7
INO
, ,TYPE Aile lZ STRING
"GET OVER THE A8cn
6$
,653
648
IFI
6$,
,IF SW 8 IS ,sn THEN FIND OUT WHICH TEST NUMBER IS
,SELECTED AND JUMP TO THAT TEST,
105037
032771
001445
001222
000400
004144
004146
004146
004152
104401
000410
004154
eLliS
BIT
174774
0·04174
004174
0041 76
004200
004202
004306
004210
004214
004216
004220
004226
004234
104412
012600
001762
020027
003357
110037
005300
006300
0lb037
013737
\05237
004240
000177
004244
004246
005000
005001
08118,UWR
,CLEAR FLAG INDICATING 8W8 SET
,all 8 SET?
,NO. BRANCH
TST;
TYPE
"TYPE ASCIZ STRING
"GET OVER THE ASCIZ
668
<15>/CCTAL TEST#71
581
811
,AOCIZ
1167$,
LUP8W
BEQ
,67.
6681
RODCT
000011
MOY
-(SP).,PO
8EQ
5$
CMP
MOV
RO,Ul
58
Ro,nSTNM
110
110
PTlI RaJ, eLPADR
SLPADR,SLPERR
INca
LUPSW
J"P
98LPADR
BGT
Move
001102
DEC
0015&0
001106
001222
AS"
MOV
001106
001110
1788
1789
1790
1791
1792
I RKosr AND EVE:N
,BYTE
,BYTE
004132
004132
004132
004136
I4ACYU 30(1046) 14·JUL-n 01103 PAGE 36
GET VALUE 1"011 SOFTWARE SWITCH REGlITEII
174642
,CHECK TYPED IN TEST
#
,IS LEGAL, IF NOT ASK
,FORM POINTERS rOR THE TEST
,AD"U8T POINTERS rOR SCOPE
,LOOP, !TC,
,SET FLAG INDICATING TEST
,SELECTED
,aD TO THE TEST SELECTED
1793
1794
1795
179b
1797
1798
,ON RECOVERY FROM POWER FALIURE RETURN HERE
PWRrLl
MD-\I-DZRKL-E, RKII-RK05 DYNAMIC TEST
DZRKLE,PII
1799
004250
IBOO
004252
\801
004254
004256
!B02
1801
1804
1805
26-APR-n 12127
005201
001376
105200
001374
1818
!B19
.1820
1821
1B22
1823
!B24
1825
1826
1827
1828
1829
1830
1831
1832
1833
IU4
1835
1936
1837
IUB
lU9
1840
1141
,"TEST I
004260
004262
004,64
004266
004270
005001
005002
012737
JJ
00U22
U52
1853
1854
U
012703
012704
012705
000402
004314
004316
004]30
004322
005703
001403
005003
10MIS
004324
104416
004326
004334
004]40
004344
004]46
004352
013777
050277
105777
100406
004737
104030
004354
004356
004360
00520]
005205
001515
004362
004]70
OOOOU
004372
013777
005200
001007
004374
004400
004737
104001
016163
004402
004404
004406
004410
001502
000403
005203
005204
.*__**_*._.*_*__
*._.***.**_* ••••***********
CHECK INNER LIMIT SWITCH , ELECTROMECHANICAL INTEGRIT~
,"THIS TEST PERFORMS 200(8) PURE SEEKS rROM CYLINDER 0
I.TO CYLINDER 312 AND BACK TO 0, IT IS SUPPOSED TO
,.CHECK THE INNEP LIMIT SWITCH AND THE MECHANICAL
,.INTEGRITY or THE DRIVE, NOTE THAT A VISUAL CHECK FOR
,ANY MECHANICAL FAILURES WOULD 8£ VERY HELPFUL,
**".****
••***************.**.******* •• *.. *************....*****...*SCOPE
001110
II!
MOV
U03,SLPERR
MOV
Bil
1$,
u
nUFR,R3
*-11,M
'-10,R5
R3
CLR
3$
113
CON,nsn
DRV,RESET
001230
175130
175124
175106
3S'
016162
TSTS
DRlVAD,@IIKDA
R2,'RKDA
'RltDS
aMI
218
MOV
8IS
J8R
PC,GT4RG
ERROR
30
INC
U
INC
115,
BEQ
175066
2131
4$1
-MOV
INC
UG
Oil •• IIKes
RO
SNE
5$
JaR
PC, GT4RG
I
INC
INC
113
114
I ..
U
EItROR
BEQ
BII
,INITIALIZE COUNT
,INITIALIZE COUNT FOR • OF SEEKS
,CONTAINS SEEK ADRES
,SET RETURN ADRES rOR LUPING
,ON ERROR
I INITIALIZE POINTER TO THE TABLE
,ALLOW ONLY 9 CNTRL-RDY, SIN, OR R/W/~ RDY ERORS
_ ,ALLOW ONLY 8 DRU+DRE+ERR+DRY ERRORS
2D
Tn
-SEQ
aSI
2081
110
CLR
CLI!
eLR
MOV
MOV
OOI3U
177767
177770
004276
004302
004306
004312
1849
1850
iesl
U
RO
8NE
TaTII
000004
005000
1842
1843
1844
1845
1846
1847
1848
RI
INca
,,*.e.********_*••• ___
1810
1811
1812
1B17
INC
SNE
1807
IB08
1809
IBl5
1816
RO
RI
MACYlI ]0 (1046)
14-.lUL-77 0810l PAGE 37
GET VALUE FOR SOFTWARE SWITCH REGISTER
181
1806
1813
IBI4
CLII
CLR
,WAS THERE ANY ERROR7
,NO, BRANCH
ICLR ERDR FLAG
,GO DO CNTRL RESET, SUB ROUTINE
,AT 'CNT,RST'
,GO TO 'DRY,RST' t DO DRV RESET
,ADRES THE DRIVE
,SET SEEK ADRES
,DRIVE ROY?
,YES
,NO, GET RKCS, Ell, OS, DA
,DRIVE RDY BIT IS NOT SET
,IN RKDS
I SET ERROR FLAG
,ALLOW ONLY 5 EROIIS, IF MORE
,ABORT
,GO, SEEK
,WAIT rOR CHiRL ROY
IWAITED LONG?
,IF YES, ERROR
,GO, GET RKCS, Ell, OS, DA
,CNTRL ROY DIDN'T SET AFTER
,SEEK WAS DONE TO CYLINDER
IS~OWN IN RKDA. GO TO '~KII LOGIC TESTS'
,SET ERRDR FLAG
,EXIT THIa TEST IF THI!:RE II 5 OR. MORE ~RRORa
MO-II-OZRKX,_E, RK!I-RK05 DYNAMIC TEaT
26-APR-17 12127
DZRKLE,PII
1855
1856
1857
1858
004412
105777
00441.
100364
004420
005000
1859
004422
004430
032777
18bO
1861
004432
1862
004434
001372
004436
004737
104006
1865
1866
004444
1867
1 R68
004446
004450
005203
005204
001461
004452
032777
004460
004462
004466
001406
004737
104002
004470
004472
004474
00447&
004502
005203
005204
001447
005777
100006
004504
004510
004737
104003
18B 3
004512
1884
004514
OO4S16
005203
005205
001767
004520
004524
004526
004532
005777
100006
(104737
104004
004534
004536
005203
005205
001425
/ i:~~
1871
IB72
1873
1874
1875
1876
1877
1 B7~
IB79
I B80
I BS I
1982
1885
18B6
1887
1888
1889
1890
1891
lR9?
1893
189'
1895
004540
1896
1897
1898
1899
1900
004542
004550
004552
004556
5$1
T5TS
BPI.
651
000100
175022
001010
005200
1863
1864
004442
175040
MACH! 30(1046)
14-JUL-77 0810) PAGE 3B
CHECK INNER X,IMIT SWITCH & EX,ECTROMECHMIICAL INTEGRITY
T1
016162
CX,R
BIT
aNE
INC
BNt
JSR
174772
7$,
016162
SCI
174752
016162
10$'
032777
001406
002000
004737
016162
174702
12$1
,INITIALIZE COUNT
SET?
;YES
,WAIT rOR R/W/S ROY
,R/W/S' ROY
R4
;GET RKCS, ER, CS, PA
,R/W/S ROY DID NOT SET WHEN SEEK
,WAS DONE TO CYLINDER INDICATED IN RKDA
,SET ERROR FLAG
,rr MUM EROR COUNT, ABORT
leG
UOOO,@RKDS
, SIN ERROR?
PC,GT4RG
R3
BIT
BEQ
JSR
ERROR
8$
INC
R3
Pc,GHRG
2
INC
R4
BEQ
18$
TST
BPL
@RKER
10$
JSR
ERROR
PC, GT4RG
3
R3
1<5
8$
@RKCS
~ NO, BRANCH
fCC, GET RKCS, ER, DS, DA
, SIN ERROR, ON DOING SEEK TO
,en AS SHOWN IN RKOA
ISET ERROR FLAG
,Ir MAXM EPOR COUNT REACHED,
,ABORT THE TEST
,ORE ERROR?
;NO, BRANCH
fGO, GET PRes, ER, os, OA
,ORE ON DOING SEEK TO CYLINDER
,AS SHOWN IN RKDA
18ET ERROR FLAG
,IF MAXM EROR COUNT REACHED,
:ABORT TH~ TEST
JSR
ERROR
PC,GT4RG
INC
INC
R3
8EQ
18.
;-EPF' BIT IN RKCS SET?
:NO, BRANCH
,GO, GET RKCS, ER, OS, DA
J "E~FI' IN RKCS SET, ON DOING SEEK
,TO CYL A8 SHOWN IN RKDA. NOTE
,WHICH 8IT IN RKER SET?
,SET ERROR FLAG
,If MAXM EROR COUNT REACHED.
IABORT THE TEST
~2000.@RKDS
:DRU
15S
5
;NO, BRANCH
1GO, GET RKCS, ER, OS, OA
:DRU SET, THIS IS AN IRRECOVERABLE
R3
R5
18 S
HENCE PUT THE DRIVE ON
JLOAD, BACK TO RUNe
DPU ERROR
,SHOULD BE CLEARED, IF IT IS NOT
;11 THE HEAD POSITION TilANSDVCER LAMP
; IS INOPERATIVE
;21 OR ERASE OR WilT CURRENT PRESENT
:WITHOUT ~WRT GATE'
,SET ERoR FLAG
;ALLoW ONLY 5 ERRORS
; IF MORE THAN 5
TST
BPL
BIT
BEQ
JSR
ERROR
104005
FlO
,OlD CNTIlL ROY SET?
,IF NOT WAIT FOR IT
63+2
INC
INC
INC
INC
174732
UoO, BIlKOS7$
6
8EQ
016162
RO
UROR
BEQ
001000
@RKCS
41
12.
4
R5
PC, GT4RG
1901
1902
1903
1904
1905
SET?
;ERROR t
1906
1907
1908
004560
005203
1909
1910
004562
004564
001413
INC
INC
BED
005205
MD-Il-DZRKI,.E, R~ 11 -RK05 DYNAMIC TEST
DZRHE.PII
26-APR-77 12:27
MAC¥11 30(1046) I'-JUL-" OS.03 PAGE 39
CHECK INNER LIMIT SWITCH & ELECTROMECHANICAL INTEGRITY
TI
,GO TO THE END Of THE PROGRAM
1911
1912
191 J
1914
004566
004570
15S,
005702
001402
TST
R2
,WAS SEEKING TO 0 OR 3121
BEQ
16$
;TO 0,
BRANCH
,TO 312.
,SEEK NXT TIME TO
,GO BAK & SK TO 0
1915
1916
004~72
005002
1917
004574
OOOb47
004576
012702
004602
004604
005201
022701
Ins
004610
001241
BNE
1$
,If NOT, GO BAK
004612
000404
BP
T5T2
II EXIT
1926
1927
1929
004614
104401
1929
004620
000137
TYPE
JMP
T5T12
CLR
SR
1911=1
t 91 9
014500
! 6$ I
MOV
#14500, HZ
,SEEK NXT TIME TO 312
t~20
1921
1922
1923
19,4
INC
CMP
000200
001640
015224
; DONE SEEKS 200 TIMES?
,
~lSG4
1930
1931
1932
19)3
1934
! 935
1936
1937
19lA
19H
1940
1941
1942
1943
1944
1915
1946
004624
000004
004626
1947
004634
004640
013737
005737
001003
005737
001125
001230
002114
1948
194'
012702
177152
177764
17777 3
1950
1951
1952
1953
1954
004642
004646
004650
004650
004654
012703
012701
1955
004660
004664
004670
004674
004676
1959
004700
005000
1960
1961
1962
004702
005777·
1955
1956
1957
012105
013704
104415
104416
002116
177773
001230
0021 20
1r***************************************************************
,*TEST 2
FORMAT THE DI8K
,*1HI5 PROGRAM ASSUMES AN UNFORMATTED DISK AND ITS
;*FORMATTING IS DONE IN THIS TEST. A SECTOR IS FORMATTED
,oAT A TIME, THE FIRST OWRD OF EVERY SECTOR IS WRITTEN
I*TO BE A PSUEDO-HEADER CONTAINING THE DRIVE I, CYLINDER
I*~' SURFACE AND SECTOR I.
THE FOLLOWING IS CHECKED
,*1, 'SIN' IF 'SIN' OCCURS, A DRIVE RESET IS DONE
,.AND THE SAME SECTOR IS FORMATTED AGAIN. THREE
I*RETRIES ARE DONE BEFORE AN ERROR MESSAGE IS PRINTED,
1*2. 'ERR' ON FINDING THAT THE 'ERR' BIT SET, RKER
,*SCANNED TO FIND OUT WHAT CAUSED IT AND THE
,.ERROR IS REPORTED.
,,**.************************************************************
T512.
SCOPE
MOV
URIVAD,PRHOLD
ISAVE DRIVE NUMBER
YORH!
;SEE IF EVEN RK-05F DRIVE
TST
SNE
,YES
IU
TST
FORVEI
1000 RK-05F1
BNE
TST3
,DO NOT FORMAT IF 000 RK-OSF
MOV
MaV
MOV
MDV
j-626,R2
.-14,R3
l-s,RI
j#'M5,R5
MoV
ORIVAO, R4
CON.RESET
DRV,RESET
CLR
RO
100001
TST
@RKCS
004706
BPt
3$
004710
104415
CON,RESET
004712
005046
eLR
174550
,203 CYLINDERS, (406 TRAKS)
Ii 2 SECTORS
,ALLOW ONLY 5 'SIN' ERRORS
IALLOW ONLY 5 'ERR'S
,STORE ADRES OF DRIVE,
,GO TO 'DR-RST' • 00 DRIVE RESET
,KEEP COUNT OF 'SIN' ERORS
,ALLOW 3 RETRIES ON SIN
,ERR?
,NO
1963
1964
1965
1966
-(SP)
IGO TO 'CN-RST' • DO CONTROL RESET
MD.II-DZRKL.I:, RIII1-RK05 DYNAMIC TE8'1'
DUKLE.PII
2S-APR-7? 12 137
1967
1968
1969
1970
1971
1972
1973
1974
1975
1976
1977
1978
1979
1980
!9BI
1982
1983
1984
1985
1986
1987
1988
1909
1990
1991
1992
1993
1994
1995
1996
1997
1998
1999
2000
2001
2002
2003
2004
2005
2006
2007
2008
2009
2010
2011
2012
012746
000002
010437
004722
004746
012777
010477
012777
012737
036446
174524
177777
004674
174512
001110
004754
012777
002003
174474
004762
004764
004772
004774
005000
104421
004714
004730
004722
004726
004734
0047~0
005002
005004
032777
026446
001000
IIACl'Il 30(1046)
T2
MOV
R'U
13$1
174526
174460
sel
M,OUTBur
MOV
n003, 'RKCS
.0UTBur, fRKBA
R4, .RKDA
'-I,UKWC
H.,ILPERR
UOOO,@RKDS
SEQ
U
JSR
PC,GT5RG
ERROR
7
CON ,RESET
DRV,RESET
005006
104416
U05200
005010
022700
005014
001332
005016
005201
INC
RI
005020
005022
005026
005030
005034
001436
005777
100005
174430
9$ .
.RKCS
004737
016136
SEQ
TST
BPL
JSR
ERROR
INC
BEQ
INC
INC
.R5
104010
000003
005046
005205
001426
005204
00520)
001314
005050
005054
012703
042704
000017
005060
005064
062704
000020
005202
005036
005040
005042
005044
2013
2014
005066
005070
2015
005074
2016
2017
2018
2019
005076
005237
001004
062737
005104
000661
68.
INC
M
CMP
BNE
#3;RO
18+2
'81
! 77764
81.
001304
002114
020000
001230
005106
005114
0137]7
000402
002120
001230
005116
004737
016772
lOll
981
MD-II-DZRKL_E, RK11-RK05 DYNAMIC TEST
DZRKLE,PII
26-APR-77 12127
2023
8NE
9S
M
R3
IS
MOV
BIC
.-!4,Rl
U7,M
ADD
INC
'20,114
R2
,AORES THE NXT TRAK TO
,ALL TRAKS FMTED?
u
,IF NOT GO BAK B FHT NXT
,EVEN RKOSF?
,NO
,FORMAT ODD DRIVE OF
eNE
INC
BNE
ADD
BR
MOV
7$
PC,GT5RG
10
.. DRIVE
lOS
B~
noooo,DUVAD
lie
DRHOLD,DRIVAD
TST3
JSR
PC.ABRT
,"TEST 3
2036
2037
2038
2039
2040
2041
2042
2043
2044
2045
cn,
SUR
PAGE 41
READ FORMAT OF THE DISK
IN THIS TEST, THE HEADE~S FROM ALL THE SECTORS ARE READ
, CHECKED IF THEY ARE CORRECT, THE FOLLOWING IS THE
TEST SEQUENCE,
I, READ 12 SECTORS (HDRS ONLY) AT A TIME
2, IF THERE IS A 'SIN' ERROR RETRY ONCE MORE, IF SAW AGAIN
REPORT ERROR & READ HEADER FROM NEXT CYLINDER
'" 3, IF THERE IS 'ERR"IN RKCS, DO A CONTROL RESET, ~EPORT
, .. ERROR' READ HEADER FROM NEXT CYLINDER, IF THERE ARE
I. MO~E THAN 5 ERRORS OF THIS KIND, THIS TEST WILL BE EXITED
,.4, THE 12 HEADERS ARE CHECKED, IF THEY ARE CORRECT· THE
'" NEXT CYLINDER IS READ,
I. IF THEY ARE NOT CORRECT, A RETRY IS DONE, IF AGAIN CORRECT
1* HEADERS ARE NOT RECIEVED, AN ERROR IS REPORTED. THE
I. SECTOR ,'S GIVING THE BAD HEADERS, , THE BAD HEADERS ARE
I . STORED,
I. 5, IF INHl8IT TYPEOUT' SWITCH IS NOT 5ET, THE FIRST WORDS OF
I. THE 12 SECTORS (P5UEDO-HEADERS) ARE READ. IN A PREVIOUS
r. TEST THE FIRST WORD OF EVERY SECTOR WAS WRITTEN
,. AS A SOFTWARE HEADER (CONSISTING OF DRIVE I, CILI, SUR,SEC.)
THEN THE SECTOR. GIVING SAD HEADER, EXPECTED PSUEDO-HEADER,
r. & THE PS-HEADER RECIEVED ARE TYPED OUT. THIS WOULD
,. WRONG, HEADER WAS RiAD WRONG, ETC,
,_ 6, THE NEXT CYLINDER IN LINE IS READ, ORDER OF READING 15
,. CYLO,SURO
CYLO,BURI
CYL312,SURI
,*
2046
2047
2048
2049
".*.***********************************************************.
TST31
. SCOPE
005122
000004
005124
012737
177773
001504
MOV
'-5,ERCNTI
005132
012737
012737
177766
MOV
'-12,ERCNT2
177773
001506
001510
MOV
001230
177152
MDV
MOV
i-s,ElleNT3
DRIVAD.AS
001476
005140
005146
013705
2056
2057
2058
005152
005160
104415
CON ,RESET
2059
005162
104416
ORV,IIUET
2060
2061
012737
005164
005037
001254
2062
2063
005170
005037
001252
2064
2065
2066
2067
005174
012777
026446
174260
005206
005214
010577
012777
012737
174256
177764
005160
114244
001110
002005
174326
005202
2069
2070
005222
012777
2071
2072
2073
2074
0052]0
104421
005232
005240
2075
005242
032777
001420
004737
005246
104011
'-626,INOX2
CLR
RETRn
CLR
RETRY!
,ALLOW 2 RETRIES IF HORS READ WRONG
,ALLOW 2 RETRIES FOR 'SINS'
381
MOV
MOV
MOV
MOV
'QUTBUF,@RKBA
RS,ORKDA
i-14,.RKWC
U$,8LPERR
,RD HDRS INTO LaC STARTING AT THIS
,FROM THIS DSK ADRES
,12 HDRS TO BE READ
,SET RETURN ADRES FOR LUPING ON ERROR
MOV
12005, .RKCS
CON,RDY
001000
016214
17UI2
,ALLOW ONLY 5 ERRORS (Df BAD HEADER
,KINO FROM 5 CYLINDERS)
,ALLOW ONLY 12 'ERR'S
,ALLOW ONLY 5 ERRORS
,SET DRIVE #,CYL ADRES80
1313 ClLS 1626 TRAKS) TO BREAD
,GO DO CONTROL RESET
,GO DO DRIVE RESET
1S'
2"
BIT
BEQ
JBR
2076
2077
2018
FMTED
,.
, ..
,.
,.
,,,
, ..
2034
2068
8
,RESTORE DRIVE ADDR
" EXIT
MACil! 30(1046) 14-JUL-77 08103
T3
READ FORMAT OF THE DISK
2035
2055
,GO WRT FHT
,WAIT FOR CONTROL READY
,WAS THERE A SIN?
,NO, SKIP DOING DRV RESET
,GO, GET RKCS, Ell, OS, OA, CYLINDER
,SIN ERROP ON TRYING TO
,WRT FMT ON CYLINDER AS
,INOICATED IN RKDA, 3 RETRIES
,AU· DONE
,NOTE THAT BEFORE
,RETRYING A DRIVE RESET WAS DONE
,GO TO 'DR-RST' & DO DRV RESET
,INCRMNT SIN COUNT
,ALLOW 3 RETRIES WERE THERE 17
,IF HOT, GO , RETRY
".*******************************.*******************.**********
2024
2025
2026
2027
2028
2029
2030
2031
2032
2033
2050
2051
2052
2053
2054
ISET PRIORITY TO ZERO
,NRITE THIll WORD
,FROM THIS ADRES
,ON THIS DISK SECTOR
,WRlTE 1 WORD
,SET RETURN ADDRESS FOR
,LUPING ON ERROR
,ALLOW ONLY 12 SIN ERRORS
,IF MORE THA~ 5 EXIT THIS TEST
,IF MORE THAN 5 EXIT THIS TEST
,DID 'ERR' BIT SET IN RKCS?
,NO, BRANCH
,GO, GET RKCS, ER, DS,DA,CYL
,'ERR' OCCURED WHILE DOING
,WRT FMT ON SECTOR, CYLINDER
,AS INDICATED IN RKDA,
,ALLOW ONLY 5 'ERR'S, IF
,MORE THAN 5 EXIT THIS TEST
,INCRMNT DISK ACRES TO NXT seTR
.ALL 12 SECTORS DONE?
,IF NOT, GO BAK & FMT NXT BCTR
,IF YES
,RESET COUNT FOR 12 SECTORS
ICLR OUT SEC BITS
2020
2021
2022
PAGE 40
#l21.-(8P)
MOV
MOV
MOV
MOV
MOV
BIT
016136
104415
01,03
CON,RDY
001413
00473?
104007
14-.:IUI<-77
rORMAT THE DUl<
ERROR
,GO, RD FMT OF THIS CYLINDER
,WAIT FOR CNTRL ROY TO SET
UOOO •• RKDS
U
,'SIN' ERROR?
INO, BRANCI!
PC,GETINF
,'SIN' OCCURED WHEN DOING RD rMT
,FROM C.YL SHOWN III RKDA, IT
MD-II-DZRltL_E, RKll-RK05 DYNAt+XC
26-APR-77 12127
DZRXLE,PI1
2079
20BO
20B 1
2092
20B3
2084
2085
20B6
2087
2088
2089
2090
2091
2092
005250
005252
005254
005260
005266
104415
104416
005237
072737
001342
005270
005274
005276
005237
001002
000137
005302
005]06
005310
005314
005777
100010
004737
104012
005316
104415
005320
005237
005324
005)26
001532
000520
TEST
MACYI1 30(1046)
T3
2114
2115
211b
2117
2118
2119
2120
2121
2122
2123
21H
DRY ,RESET
INC
CMf
BNE
RETRY!
#2,RETRY1
001510
INC
8NE
EReNT!
005606
.IMP
68
16 •
TST
BPL
JaR
ERROR
fRKes
7.PC,GT5RG
001252
174150
68 I
016136
2130
001506
005330
004737
007260
005737
001513
001500
005342
005350
012737
005170
005352
005 ]56
005364
005237
0'2737
001301
001254
000002
005306
005237
001504
005372
001505
104013
781
001110
001254
032777
001072
020000
005402
005404
012701
177764
MD-II-DZR~L_E.
2135
2136
2137
2139
2139
2140
2141
2142
2'13
2144
2145
2146
2147
2148
2149
2150
21~ I
2152
2153
21 S4
2155
2156
2151
2158
2159
2160
2161
21b2
2163
2164
RK II-RK05 DYNAMIC
26-APR-n 12127
005410
005414
005422
010577
012777
012777
005430
005436
005440
005444
005450
012771
104421
005777
100002
104415
000441
005452
005454
005201
001362
005446
INC
ERCNT2
TST4
148
174050
173536
TEST
177777
174040
174030
000005
174020
026446
,DO CNTRL RESET
,GO. DO DRIVE RESET
,ALLOW ONLY 2 RETRIES FOR THIS ERROR
, IF TRIED 2 TINE6 REPORT
, ERROR., OTHERWISE GO SAK & RETRY
,WAS TRIED TWICE, BUT 'SIN',
,ALLOW 5 ERRORS AT MOST
I'E~R' IN RKCSl
rNO, BRANCH
,GO, GET RKCS, ER,DS,DA,CYLNDR
,'ERR' SET WHILE DOING RD FMT
;FROM CYL SHOWN IN RKOA
,GO DO eNTRL RESET
,ALLOW ONLY 12 ERRORS OF TH18
,KIND, IF MORE THAN FIVE ERRORS
I SKIP TH15 TEST
I ,EXIT
,GO SET UP TO RD FMT fROM NXT
,cn IN LINE
,CHECK THAT CORRECT HEADERS WERE RECVO,
,SEeTR • HAVING BAD HDR IS STORED ALONG
:~!TH BAD HDR
JSR
PC,CHKHDRS
;GO CHECK IF CORRECT HEADERS WERE READ
INDX3
,WAS THERE A MISCOMPARISON?
IIF NOT, GO SET UP TO RD FMT
INXT eIL IN LINE
14a
MOV
ERROR
128, $LPERR
INC
eMP
BilE
RETRYJ
#2. RETRY2
28
INC
ERCNT!
8EQ
168
13
,CORRECT HoRB WEltE NOT REevo
,FROM SECTRS AS TYPED OUT,
;THE SAME CYLIND~R WAS REAO TWICE
IRETRY RO FMT ON SA.E CIL AGAIN
,TRIED RCING SAME C~L TWICE
,Ir NOT. GO RD AGAIN
;YES, ~EPORT ERROP
;ALLDW ONLY 5 ERRORS OF THE
;ABOVE TYPE, IF MORE THAN 12
; EXLT THIS TEST
;THE PSUEDO-HEADERS (FIRST WORD OF EVERY
,SECTOR) FROM THIS CYLINDER (A80VE,
BIT
.20000,.SWR
8NE
148
MOV
.-14, RI
ITHE CYLINDER THAT GAVE WRONG HEADERS)
,WILL BE READ, NOW, FOLLOWING WILL S·TXPD oun
,SECN. EXPCTD PSUEDO-HDR. RECVD PHDR,
,IF "INHI8IT TYPEOUT" SW IS SET THIS ENTIRE
IR~ADING , TYPING WILL BE SKIPPED
,INHIBIT TYPEOUT?
,YES, SKIP THE FOLLOWING & GO
,SET UP TO RD F~T NXT en IN LINE
IREAD FROM 12 SECTRS
MACYIl 30(1046) I4-JUL-77 OB 103
T3
READ FORMAT or THE DISK
10$,
174012
158,
PAGE 42
TST
BEQ
2081
005374
DZRKLE,PII
12
BEQ
8ft
005334
005340
005374
30
CON,RESET
2125
2126
2127
2128
2129
2131
21 ]2
2133
2134
08103
Dum
CON ,RESET
001252
000002
2093
2094
2095
2096
1097
2098
2099
2100
2101
2102
2103
2104
2105
210f>
2107
2108
2109
2110
2\11
2112
2113
I4-JUL-77
READ FORMAT or THE
MOV
HOV
MOV
R5, .RKDA
10UTBUF,@RKBA
.-I.UKWC
PAGE 43
,FROM THIS DSK-ADRES
;INTO THIS BUS-ADRES
;~D 1 WRD
MOV
IS,@RKes
CON,RDY
TST
.IIKes
BPL
IS.
CON ,RESET
811
14$
,GO, RO
,WAIT FOR C~TRL ROY
rANY EIIOR?
INO, PROCEED
,CLEAR THE ERDR
,EROR. SO COULDN'T READ P5UEDO-HCRS
INC
SNE
,READ FROM ALL 12 SECS
,1P' NOT GO RD THE NXT ONE
RI
10.
;TYPE OUT PSUEDO-HDRS CORRESPONDING TO
,THE SECTORS WHICH GAVE BAD HEADERS
:TYPEI SEC #, EXPC P-HDR, REeVD P-HDR
005456
005460
005462
10440\
001771
012701
00546&
005470
104401
001213
005472
005474
011102
012703
005500
005502
005504
005506
005510
005702
001403
005302
005723
000773
12$1
2170
DOSS 12
005514
005516
005517
011146
104401
002
000
1381
2171
,BYTE
;SUPRE5 LOG 0'5
005520
005522
104401
002105
TYPE
BLNKS5
,TYPE 2
005524
005526
005530
010546
051116
104402
MOV
8IS
TYPOC
005532
005534
104401
002 I 03
TYPE
BLNKS7
2185
2186
2187
005536
005540
011346
104402
MOV
TYPOC
tR31.-(SPI
,CO TYPE PSUEDO-HEADER REeVD
2188
2199
2190
005542
005544
005550
001346
TST
CMP
BNE
IR!H
(Rl),#177777
US
,IF NOT GO SAK & TYPE fiXT
21.~
2166
2167
2\69
TYPE
:TYPE OUT
MSGlI
001266
~OV
1181
TYPE
SCRLI'
MOV
MOV
0264~6
#BUFR, RI
,SEC .'S ARE STORED HERE
; TYPE CR, LF
(RIl,R2
SOUTSUF,Rl
,PSUEDO-HEADERS WHICH WERE
,READ ARE STORED HERE
TST
BEQ
DEC
TST
8R
1<2
138
R2
,IS THIS SEC. CORRESPONDING TO THE
,ONE IN ERROR
IR2 CONTAINS THE SEC S
MOV
TYPOS
(RII,-tSP)
(R3)+
12s
2169
2172
2173
2174
2175
2116
2117
2178
2179
2180
2191
2182
2163
21H
005721
021127
,GO TYPEOUT SEC • GIVING
,MISCOMPARISON OF HEADERS
II BYTE
177777
RS.-CSf)
BLANKS
,GO TYPE EXPCTO PSUEDO HEADER
(RII.csP)
ITYPE 2 BLNKS
,TYPED OUT ALL SEC $'S IN ERROR,
MD·!!·DZ~KL_E,
DZRKLE,PII
~KI1.~K05 DYNAMIC TEST
26-APR-77 12127
MACY!! 30(1046)
T3
14-JUL-77
OSI03
PAGE 44
READ FORMAT OF THE DISK
2191
21n
005552
104401
001733
005556
005562
012746
IOH02
005374
TYPE
MOV
TYPOC
,MSG?
,aoe,-eSP)
2194
2195
005564
104401
001213
TYPE
,eCRLF
2193
,TYPE OUT PC
,TYPE ROUTINE ENDS HERE
2196
2197
:FIND OUT NXT TRAK TO
2198
2199
READ
,FORMATTED
2200
2201
2202
005370
005574
062705
000020
005237
001476
2203
2204
2205
005600
005602
001404
000137
005164
BEa
JMP
2206
005606
004737
016772
JSR
ADD
INC
$20,R5
INOX2
TST4
,SET ADRES FOR SUR 0, NXI CYL I~ LINE
:READ ALL 31l CYLINDERS (626 TRAK5l1
" EXIT
:If NOT, GO BAK t READ,NXT
IS
PC,ASPT
2207
2209
JJ***************************************************************
,0TEST 4
SEEK PATTERNS, 0-312-0-3!1-""USING IMPLIED SEEK
2209
2210
I****TEST 2
1**** DOING
,*THI5 TEST
,.FOLLOWING
2211
2212
2213
2214
(WRITING PSUEDO-HEADERS) SHOULD HAVE BEEN DONE BEfORE****
THIS TEBT****
PERFORMS SEEKS (IMPLIED SEEKS USING 'READS') IN THE
PATTERN,
J*O@312·0*311~O·310wti~~$O$tuO~O
2215
22\6
2217
221R
2219
2220
2221
,>THE FIRST WORD OF EVERY SECTOR IS A PSEUOO~HEADER (WRITTEN IN
,.A PREVIOUS TEST) CONSISTING OF DRIVE NO, CYLINDER NO" SURFAC~
"AND SECTOR NO, AN IMPLIED SEEK IS DONE BY ISSUING A 'READ' FOR
I>THE PSEUDO~HEAOER OF SECTOR 0, SURFACE 0,
,OIF A 'SIN' OCCURS TWO TRIES ARE DONE BE raRE ABORTING, I f A 'SKE'
,O, THERE WAS~
J NO, THERE WASN'T, HORS OK
,ONLY 2 TRIES FOR SKE
,BRANCH IF THIS WAS A 2ND TRY
,TYPE OUT THAT HORS WERE READ
1COFRECTLY ~
THIS WAS TRY # 1
2112
2333
2334
2335
2336
2337
2338
006164
001006
006166
006172
00.174
005237
1106200
000405
234,
006202
005237
23 '9
2350
2351
2352
2353
2354
006206
Of) 1411
2339
2340
2341
2342
234 3
234<
2)45
2340
TST
INDX3
RNE
10$
001252
INC
BEQ
RETRYI
001657
TypMSG
,MsG5
BR
11$
INC
RETRY!
I HDRS WERE READ INCORRECT,
,AuLOW 2 TRIES FOR SKE
BEQ
14$
; BRANCH,
.IS
; THERE WAS SKE ON DOING IMPLIED
; SEEK TO 'CYL B"~ T~EN HORS WERE
001414
104420
128
2347
006210
104417
lOS.
001252
MESAGE
0000 I 5
JREAD
IF THIS WAS 2ND TRY
F~OM
C¥L S, WMNG HDRS
I REeVD
2355
2356
2357
006214
104423
2358
006216
004737
1>10",,11 ""OZFlKL,,,,,E,
oZRKLE,PI!
21Sg
006222
I! S.
RESOON
JSR
006526
RKII-RK05 DYNAMIC TEST
26-APR-77 12127
PC,SBRI
,WAIT FOR PREVIOUS DRIVE RESET
; TO BE DONE
;GQ, REPOSITION HEADS
MACYl I 30(1046)
14-JUL-77
OSI03
PAGE 47
SEEK PUTERNSI Om312""00311~,~~,USING IMPLIED SEEK
T4
SR
000634
4$
236()
'2;b 1
2362
236 J
2164
230S
2366
2367
2369
2369
2370
237!
2372
2373
2374
2375
2376
2377
2378
2379
2390
23" 1
23B2
2383
2384
2385
2386
2387
2388
2389
2390
2391
2392
2393
2394
2395
; 2ND TRY f
006224
! 04420
006230
000402
006232
104417
001657
12$1
TYPMSG
, MSG5
8R
lGS
MESAGE
,15
SKE THIS TIME ALSO
; READ
aRE THIS
HDRS FROM
,GAVE
eKE, THEY WERE
;2ND TRY,
006236
104423
000240
005237
006244
000246
001002
000137
006252
006254
005704
001007
14$ ,
000015
16S.
001506
INC
ERCNT.
!7$
0066!4
BNE
J"P
179 I
TST
BNE
cr.
IWAIT fOR PREVIOUS
;TO BE DONE
RESoON
INCORRECT,
DRIVE RESET
,ALLOW ONLY LESS THAN ! 0 ERRORS
,THIS TYPE (SU)
,EXIT THIS
TEST IF
MORE
R4
, WENT
JOUT
LAST
TIME IN
OR
OUT?
;IN
006256
006260
005703
001005
TST
RJ
BNE
19$
,WERE
HDRS CORRECT?
,NO
:YES
006262
006264
005204
004737
006526
JSR
R4
PC/SSRI
006270
000137
005656
JM?
1$
rGO SAK &: SEEK OUT NOW
006214
006]00
005237
001547
001476
INC
,ALL SEEK PATTERNS DONE?
BEQ
INDX2
TSTS
2397
006302
162737
000040
aUB
$40,INADR
2398
2399
006310
005004
etR
R4
,SET ADDRESS YOR THE NXT
,INNER CYLINDER
rINDICATE THAT NOW SEEK IS
HOI
2402
006312
000137
JMP
1$
,GO BU .. SEEK IN TO
~INAtlRt!i
2403
2404
2405
006316
,IY THERE WAS NO SIN
,ENTER HERE
OR
19$1
198 I
INC
2396
001250
005656
20$1
2406
006316
012737
005700
2407
240B
006324
020537
001471
013737
026446
2409
241,
2413
2414
006330
006332
006340
006346
062737
004737
001254
000003
016376
001110
001172
001172
MOV
U@,$LPERR
CMP
BEQ
R5,oUTBur
24e
MOV
ADD
JSR
,GO POSITION HEADS BAl< ON INNER
:cn
"EXIT
GOING
rTO BE IN
2400
2410
241 1
SUT
TIME ALSO,
THAT
EXT4
19$
if
,READ HDRS CORRECTLY fROM
,OLINDER THAT GAVE SKE
I NOTE THIS WAS THE 2ND TRY
,TYPE OOT THAT HDRS WERE
,READ CORRECTLY,
RETRY" $REG4
SKE
,SET RETURN ADRES FOR LUPING
,ON ERROR
,CORRECT PSUEOO-HEAOER READ?
,YES, BRANCH
,GET TRY •
.3,$REG4
PC,ERRI
,GO GET ClL .'8 BETW'N
,WHICH IMPLIED SEEK (READ)
,WAS DONE
OF
MO-I1-DZRKL.E, PKI1-RK05 DYNAMIC TEST
DZI!KLE, PI!
2415
2416
2417
2418
2419
2420
2421
2422
H23
2424
26-APR·n 12127
006352
006356
006)64
010537
013737
104016
001166
026446
006)66
005237
001254
006372
006374
001402
000137
005706
006400
004737
006552
006404
006410
006412
005737
001003
104420
006416
000402
006420
! 04417
006424
006426
006430
006434
006442
006450
006456
006460
010500
005200
010077
O! 2777
012777
012777
104421
010537
004737
010037
013737
104417
MACYlI 30(046) 14-JUL-77 08103 PAGE 49
T4
SEEK PATTERNS I 0-3Ia-O-311-, •• ,U5ING IMPLIED SEEK
MOV
RS,SREG2
MOV
ERROR
OUT8UFdIREG3
INC
BEQ
JMP
RETRH
21$
JSR
PC,SBR2
001500
TST
8NE
001657
TYPM5G
INQX3
22.
,MaGS
001170
16
;GET EXPCTD P5UEDO-HDR
,GET PSUEDO-HDR REevo
;IMPLIED SEEK FROM CYLA TO CYLB WAS
IREAD PSEUDO-HEADER OF SEC 0,
,C¥LB (IN ERDR ~IE8AGE), BUT
,THE WRONG PSEUDO.HEADER WAS
D~NE,
,RECEIVED
13$
2425
2426
2427
2428
242g
2430
2431
2432
2433
2434
2435
2436
2437
2438
2439
2440
2441
2442
2443
2444
2445
2446
2447
2448
2449
2450
2451
2452
2453
2454
2455
006464
006470
006474
006502
21$1
000015
173030
026446
177777
000005
001162
Q 16434
001164
026446
000017
BR
23~
22$1
MESAGE
.15
23$ •
MOV
R5,FlO
INC
RO
MOV
MOV
MOV
NOV
CON,RDY
MOV
JSR
MOV
173020
173010
173000
DOl! 66
:GO READ HEADERS (12) FROM
,THIS CYLINDER, & CHECK THEM,
I IF MISCOMPARISON I1'DX3 WIL'L
IBE > 0,
,WRONG P5UEDO-HOR WAS READ
, BUT WHEN HDRS "ERE READ
,FROM THE SAME CYLINDER, THEY
,WERE CORRECT
RO.@RKDA
$OUTBUF,@RKBA
'-I,@RKWC
#5,@RKCS
R5 rSREGO
PC,GCYL
RO,UEGI
MOV
OUTBUF.3REG2
MESAGI
,\7
2457
fGO GET CYL I • STORE IT IN SREGO
,GET II.eT 'SUEDO-HOR FROM SEC I
,PSUEDO-HEADER FROM SEC I, elLB
WAS READ.\l
THE EXPCTO
1& REC'D DATA WORDS ARE REPORTED,
,ALLOW ONLY LESS THAN 10 ERRORS
I Of' THIS TYPE (WRONG PS-HORSI
1 (IN MESAGE)
2456
006506
005237
006512
001440
006514
006516
005704
001266
006520
006522
005204
000137
001510
INC
ERCNT3
BEQ
EXT4
245~
2459
,WRONG PSUEDO.HDR WAS READ
,rFlOM 'elLS' (IN ERROR MESAGE).
:THEN HEADERS WERE READ fROM THE
,SAME CYLINDER, THEY WERE ALSO
;WRONG Iir
: NO,", READ THE PSUEDO.HEAOER
,FROM THE NEXT SECTOR Ci l
,SAME CYLINDER
2460
2461
2462
2463
2464
2465
2466
248,
005656
TST
R4
BNE
19$
rNC
R4
JMP
IS
2467
2468
I THIS ROUTINE IS USEP IN THIS TEST ONL~.
,R4.0 INDICATES SEEK BEING DONE fROM
,eYL 0 TO INNER CYL,
2469
2470
MO·ll-DZRKL.E, RKII-RK05 D~NAMIC TEsT
DZRKLE,PII
2.-.PR-77 12127
MACYII 3D(1046) 14-JUL-77 08103 PAGE 49
14
SEEK PATTERNS' 0-312-0-311-""USING IMPLIED SEEK
,R4=1 INDICATES SEEK SEING DONE fROM
,INNER elL TO 0, THIS ROUTINE POSITIONS
,THE HEADS ON 'INADR' elL IF R4=1
2471
2472
2473
2414
2475
006526
2476
2477
2479
2479
2480
006530
006532
006540
006546
006550
248 I
2482
248 J
2484
2485
2486
2487
2488
2489
2490
2491
2492
003704
001407
013777
012777
104422
000207
URI.
OOlJ60
00001!
006552
006556
012700
2493
006572
2494
2495
2496
006604
R4
1$
ns
006562
006566
006576
006606
004737
006612
000207
006614
004737
171764
02644.
! 72672
172670
PC
SBR21
MOV
.""'14,FO
MOV
#OUTBUF ,PI
RG,8RKWC
RI,@RKBA
R5,@RKDA
MOV
MOV
002005
MOV
MOV
#2005,@RKCS
CON,RDY
oonso
vSR
PC,CHKHORS
RTa
PC
JSR
PC,ABR!
172666
249B
2499
TST
BEO
MOV
INADR,@RKDA
MOV
# 1!,@RKCS
TST,RW5
! 12724
172710
,THIS ROUTINE IS USED I~ THIS TEST
,ONLY, IT READS 12 HEADERS FROM CYLINDER
,WHDSE ADRES IS IN P5, THEN IT CHECKS
,IF THE EXPECTED HEADER IS RECEIVED,
,If IT IS NOT, INOX] 18 INCREMENTED INDICATING
:THE ERROR
012701
010017
010177
010577
012777
104421
2497
,SEEKED IN OR OUT LAST TIME?
~If OUT, GO SEEK NXT INNER CYL
~IF IN, GO SEEK BAI TO 0
,INDICATE THAT SEEK OUT (OJ
1 WILL BE DONE rww
,READ 12 HDRS
:INTO THIS ADRES
: fROM THIS CYLINDER
fJD FMTI GO
: GO CHECK If CORRECT HEADERS 'IERE REAO
2500
2501
2502
2503
j'***************************************************************
,'TEST 5
PERFORM CONVERGING-DIVERGING (IMPLIED) SEEKS
,*THIS TEST PERfORMS A CONVERGING-DIVERGING SEEK PATTERN
,.USING IMPLIED SEEK (READ fORMATl,
THE SEEK SEQUENCE IS.
2504
2505
2506
I *0~3! 2·1·311·2~31 0·3·307······-31 0-2-311- 1 -312
2507
2509
,ALL READ FORMATS ARE CONE FROM SURFACE 0,
,*THE CYLINDER ADDRESSES, BETWEEN WHICH THE IMPLIED SEEK 15
,*PERFRORMED, ARE CONTAINED IN 'OUTADR' • 'INlDR', IF 'SIN' OCCURS
,*AN ERROR IS REPORTED AND A RETRY IS DONE, ON READING INCORRECT
,*HEAOERS AN ERROR IS REPORTED AND A RETRY IS DONE, NOTE THAT IF
,*ALL THE It HEADERS ARE INCORRECT, IT COULD MEAN THAT THE HEADS
,*COULD NOT POSITION CORRECTLY, THIS WOULD BE CONfIRMED IF IN
,*PREVIOUB TESTS BAD HEADERS WERE NOT REeIEvED FROM THE SAME
I*CYLINDER, IF THAT CYLINDER GAVE BAD HEADERS IN ALL THE PREVIOUS
,*T£515 THE PROBLEM COULD BE DIFFERENT,
I*MAXIMUM 12 ERRDRS or ANY KIND ARE ALLOWED,
,-IF MORE THAN 12 ERRORS OCCUR THE TEST IS ABORTED,
2509
2510
2511
2512
2513
2514
2515
2516
2517
2518
2519
2520
2521
2522
2523
006620
006622
006624
000004
104415
2524
2525
006626
2526
016172
••
'J**~****
******~********.*********************"***** **********
TST5!
SCOPE
104416
CON,RE3ET
DRV,RESET
,GO,DO CONTROL RESET
,GO,DO DRIVE RESET
005004
CLR
I!R4)aO SEEKING FROM 'OUTADR' TO 'INADR'
IIR4l'l SEEKING fROM 'INADR' TO 'OUTA~R'
MD-II-DZRKL_E. Rltll-RK05 DYNAMIC
26"AP~-77 13127
TEST
DURLe,PI!
MACYlI 30(1046)
14-o1UL-77 08103 PAGE 50
PERFORM CONVERGING-DIVERGING CIMPLIED) SEEKS
TS
2527
2531
2HO
2541
2542
2543
2544
2545
2546
2547
2548
2549
2550
2551
2552
2553
2554
2555
001476
012737
012700
010037
010037
00\504
001506
006652
006656
005037
012737
001262
014500
006664
006666
006670
006674
006700
005704
001005
013705
053705
000404
006702
006706
013705
053705
001262
001230
006712
(J06716
006724
006726
006730
006732
005037
012737
000404
104415
104416
004731
001254
177717
006736
OQ6744
006750
OQ6756
012777
010577
012777
012737
177764
172514
026446
006726
172504
001110
MOV
MOV
006764
012777
002005
172464
MOV
006772
104421
006774
007002
OQ7004
007012
007020
007026
007Q34
032777
001443
017737
017737
013737
062737
OQ4737
007040
007044
104420
IQ4014
006630
006636
2532
2533
2534
2535
2536
2537
2538
2539
177466
177764
006642
006646
'528
2529
2530
001260
lSI
RD. ERCNTI
RO,ERCNT2
:AL!.OW ONLY 12 ERRORS
CLR
MOV
OUTADR
814500,INADR
, INITIALIZE 'OUTAOR' TO 0
/INITIALIZE 'INADR' TO 312
TST
R4
2.
INADR, R5
DRIVAD,'R5
,GOING IN OR OUT?
,GOING OUT,BRANCH
,SET CIL ADRES BITS FOR GOING IN
,FORM DISK ADRES rOR INNER CYLINDER
BNE
MOV
BIS
SR
001260
001230
001252
2$1
MOV
BIS
3$1
CLR
481
S8.
007224
172514
7S1
3·"312.INDX2
'-14. RO
3.
OUTADR,RS
DRIVAO'!'5
2SSB
2559
2560
2561
2~62
256.1
2564
2565
2566
2567
2566
2569
2570
2571
2572
,ALLOW 2 RETRIES
,WHEN ERRORS OCCUR
MOV
#S$.8LPERR
:READ ALL HDRS FROM THIS CYLINDER
,FROM THIS CYL, SEC 0
,INTO THIS BUS AORES
ISET RETURN ADRES FOR LOOPING ON ERROR
#2005.~RKCS
;READ FORMAT,GO
UOOO.@RKDS
,SIN?
,NO, BRANCH
,SHE RKER
:SAVE RKDS
,GET PETRY'
MOV
.-14, ,RKWC
R5,@RKOA
30UTBur •• RKBA
2513
2574
2575
2576
2577
2576
2579
2580
2581
2582
001000
172450
BIT
BEQ
88
172444
172434
001252
000002
016320
001166
001170
001172
00a'72
MOY
MOY
MOV
ADD
@RUR,$REG2
@RKDS,8REG3
RETRY!. SREG4
n , SREG4
PC,ERR2
JSR
TYPMSG
ERROR
,MSGI
2592
2593
2594
2595
2596
2597
259B
2599
2600
2601
2602
2603
2604
2605
2~O6
2607
26u8
2609
2610
2611
2612
007046
007052
007054
007060
007062
007064
005737
001403
005237
000722
104415
104416
001252
007066
005237
001504
TST
BEQ
INC
001252
BR
6S1
001527
007074
007100
001106
007110
010577
012777
104422
000424
172364
000011
007 tl2
004737
007260
007116
007124
007130
0071 32
012737
005737
001414
104020
006716
001500
007134
007140
007146
007150
007154
007156
005237
022737
001263
005237
001002
000137
001254
000002
007162
007164
005704
001006
RETRY!
tiS
5.RETRY!
007166
2614
001170
2615
261.
2617
2618
007176
0627 37
000137
INC
ERCNTI
PAGE 51
14-JUL·77 08103
PERFORM CONVERGING-DIVERGING (IMPLIED) SEEKS
EX15
007202
005004
007204
007212
162737
005237
007216
001457
007220
000137
MOV
R5,@RKDA
MOV
HIoUKCS
TST,RWS
SR
III
881
00 III 0
JSR
MOV
H8,8LPER~
lNDU
118
20
ERROR
INC
CMP
001254
SNE
INC
001506
1161
RElRn
001260
12 ..
48
2622
2623
2624
2625
2626
2627
2628
2629
2630
006664
007224
007226
007230
007236
007240
TST
114
SNE
12.
,'INADR~ TO ·OUTAOR', BRANCH
,POUTADR' TO 9INADR'
INC
R4
,INDICATE THAT NXT TIME GOING
,FROM 'IN'DR' TO 'OUTADR'
,INCREMENT CYCI.oINDER ADRES
,GO BAK , DO IMPLIED SEEK
,FROM 'XNADR' TO 'OUTlDR'
,IF MORE. EXIT THIS TEST
,GOING WHICH WAY?
ADD
HO,OUTADR
JMP
18
nR
R4
SUB
INC
Uo.IMADR
tNDU
,DECREMENT CYLINDER ADRES
,DONE ALL 312 FORWARD-BACKWARD
,SEEK PATTERNS
BED
TSTS
"IF YES, EXIT
J"P
1$
,IF NOT, GO BAK , DO IMPLIED
,SEEK FROM 'OUTADR' TO 'tNADR'
,INDICATE THAT NXT TIME GOING
1FROM
~OUTAOR·
TO
~INADR~
172226
001262
172216
1$1
000403
013177
I GO TRY 2ND TIME
,ALLOW ONLY 12 ERRORS
001260
005704
001404
013777
,WRONG HEADERS WERE READ FROM
,'SEC ,'5. ON DOING AN IMPLIED
,SEEK (RDFMT) FRO~ 'ClLA' TO 'CYLS'
,ALLOW 2 TRlES
,THIS SUBROUTINE IS ENTERED ArTER A 'SIN' ERROR aCCUREO ON GOING FROM
,'CILA' TO 'eYLB' AS INDICATED IN THE ERROR MESSAGE, BEFORE RETRYING THE
,HEADS HAVE TO BE POSITIONED BACK TO 'ClLA', NOTE THAT A DRIVE REBET
,WAS DONE TO CLEAR SIN,
,11480, INDICATES SEEK IS BEING DONE FROM 'OUTleR' CYLINDER TO 'INADR'~YLINDER,
,R4 m1, INDICATES THAT SEEK IS BEING DONE FROM 'IMlDR' TO 'OUTADR',
,GOING WHICH WAY?
SBRl.
TST
114
BEQ
,IF FROM 'OUTADR' TO 'INADR', BRANCH,
18
MOV
INADR"RKDA
2631
2632
2633
2634
2635
2636
2637
2638
,SET LUP ADDRESS
,WAS TKEPE A BAD HDR?
;NO, BP:ANCH
J"P
2bl9
2621
,If NO SIN, ENTER HERE
;GO CHECK IF CORRECT HEADERS WERE READ
92, RErRn
2613
000040
001476
,ABOVE KIND
,IF MORE SKIP THIS TEST
,SIN OCCURED WHEN GOING TO en CIN
,fl:Sl lI
A DRVE RESET HAS BEEN DONE,
,NOW TRY POSITIONING HEADS ON
;THAT ClL,
I SET e n ADRES
,SEEK,GO
ERCNT2
118
EXTS
SNE
007352
PC,CHKHDR5
TST
BEQ
001262
,ALLOW LESS THAN 12 ERORS OF THE
MACHI 30(1046)
T5
172350
000040
006664
IERDA MESAGEl,
,DONE 2 TRIES?
,YES. BRANCH
INO, RETRY
CON,RESET
ORV,RESET
BEQ
007072
005204
2620
,T¥PE "SIN"
14
25~4
2585
2586
2587
2588
2589
2590
2591
,GET ClL "5 BELOW "'N WHICH
,SEEK WAS TRIED
,'SIN' OCCURRED ON DOING IMPLIED
ISEEK FROM 'ClLA' TO "C'XLS" CIN
MD-n-DZRKL_E, RKII-RKOS DYNAMIC TEST
DZR~LE,PII
26·APR-77 12127
2583
,GO REPOSITION HEADS
,WAlT FOR CONTRL ROY
CON,RDY
001602
,SET CIL ADRES BITS rOR GOING OUT
,FORM DISK ADRES FOR GOING OUT
RETRn
MOV
'-I. RETRY!
SA
7S
CON,RESET
DRY,RESET
PC,5B~3
JSR
255.
2557
:SET COUNT FOR DOING 312 TIMES
MOV
MOV
MOV
MOV
BII
28
MOV
OUTADR,@RJ(DA
MO.11-0ZPKL_E, RKII.RK05
DZRKLE,Pll
2639
2640
2641
2642
2643
2644
2645
2646
2647
OQ7246
007254
007256
D~NAMIC
TEST
012777
104422
000207
000011
MACYI! 30(1046)
T5
2&-APR·77 12127
172202
2$,
14-JUL-77
09103
PAGE 52
PERFORM CONVERGING-DIVERGING (IMPLIED) SEEKS
MOV
U\,@RKCS
TST,RW5
PC
RTB
,CHKHDRS
,THIS ROUTINE CHECKS THAT THE HEADERS READ PREVIOUSLY WERE CORRECT,
,IF NOT. THE BAD HEADERS AND THE SECTOR *'5 FROM WHICH THEY WERE READ
, ARE STORED.
, ON ENTRY!
,RS CONTAINS DISK ADDRESS FROM WHERE HEADERS WERE RE~C,
,CUTBUr • 12 HEADRERB READ PREVIOUSLY ARE STORED STARTING II'OUTBUFP ,.
2648
2649
2650
2651
,ON EXIT;
2652
,INOX31l110, IF THE HEADERS WERE CORRECT
,INDX3 E I, IF THE HEADERS WERE INCORRECT
,SUFR - SECTOR " 5 GIVING BAD HEADRERS ARE STORED STARTING AT 'BUFR',
,BUFRI • BAD HEADERS FOR THE ABOVE SECTORS ARE STORED STARTING "BUFR1"111
,THE BAD SECTOR TABLE IS TERMINATED BY A '177777' WORD,
2653
2654
2655
2656
2657
005000
2661
26b2
266J
007302
2664
2665
007310
012702
012703
010537
042737
005037
2666
007314
007]20
007322
007324
023711
001406
011123
010022
001120
007326
007332
007336
007340
007342
007346
007350
O12T!2
005237
005721
005200
022100
001362
000207
177777
001500
007352
004737
016712
2660
26b7
2668
2669
2670
2671
2672
2673
2674
2675
2676
2677
2678
2679
26BU
2&81
2682
012701
RO
CHKHDRSI CLR
007260
007262
007266
007272
007216
2658
2659
026446
001266
001320
001120
160037
001500
IOUTBUF,RI
MOV
MOV
~BUFR,R2
MOV
I BUFRloll3
R5,SGOADR
1160037, eGDADR
INOX)
MOV
001120
BIC
eLR
98 I
000014
$GOAD?, CAll
,HEADER OK?
r~ov
RO,(R2,.
~
MOV
U77777,(R21
INDX3
IPUT TERMINATR ON SECTR TABLE
,S8T FLG INDICATING BAD HDR
: INCRMNT PTR TO NXT HOR
,ALL HDRS CHKD?
lOS
: YES, BRANCH
(PIl,
I SAVE BAD HDR
~R3l+
TST
(Rll +
INC
RO
H4,RO
CMP
~XT51
,GET EXPCTD HEADER
ICL? fLG INDICATING BAD HORS
CMP
BED
MOV
INC
10$ ,
;INITIALIZE FOR 14 ~PRS
: INITIZLIZE PTR TO HDRS RECVD
IINITIALIZE PTR TO SECTOR TABLE
I INITIALIZE PTP TO BAD HDR TABLE
SNE
RTB
98
JSH
PC, ABRT
SAVE BAD SECTR #
:IF NOT, LUP BAR
PC
l J *,***~,~**#***~**************************************** **********
,pAT01" PAIRN
,ALL DONE?
MOV
#·400, R2
RI
RI,(RO)+
R2
2$
'-400,R2
PTRNO., HI
MOV
RI,(RO)+
INC
SHE
R2
3$
,ALL OONE?
RTS
PC
, RETURN
COM
MOV
INC
SNE
MOV
2853
2862
,BET RKOA
PC, GT4RG
gRROR
21
CON,RESET
INC
ERCNTI
BNE
12e
JMP
EXT6
BIT
#BIT9,@RKDS
BEQ
7S
PC ,GT4RG
JSR
ERROR
22
CON,RESET
INC
BNE
JMP
001410
007764
007772
001774
010QOO
052737
128 ,
0\0432
000004
DZRKI,E. P 11
JSR
001506
022705
001231
286t
PAGE 54
DRV,RESET
00'1756
007762
MD",11""'DZRI(LmE.: 9
BIT
171630
0\6162
2800
2854
2855
2856
2857
2958
2959
2B60
08103
MOV
MOV
MOV
HOV
001504
010432
001000
000017
001432
2941
2842
2843
2844
2845
2846
2941
2848
2849
2850
2851
285.
14-,jUL-77
4$1
BEQ
042737
050037
005205
2840
1046)
WRITE PATTERNS ON THE DISK
016162
UQ7750
2923
2824
2825
2826
2827
2828
2829
28 JO
2831
2832
28 l 3
2834
2835
2936
2837
2838
28H
3~!
CON,RDY
104421
032777
001411
004737
104021
104415
005237
001002
UOOl37
032777
001412
004737
104022
104415
104416
005237
001002
000137
001754
2807
2808
2809
2i'! 1 I)
2811
2812
2813
2814
2815
2810
28 !7
2818
2S! 9
2820
2B21
2922
MACYlI
TS
1(3 X 400) WORDS
007616
007620
007626
007630
007634
007636
007640
007644
007646
007652
007660
2799
2803
2804
2805
280b
171142
171732
171722
013777
013717
012717
012777
219'
28u1
2802
TEST
2S-APR-" 12127
,COMPLEMENT 'PATOI' PATAN
,GENERATE 2ND BLOCK WITH
,'PATOI'S COMPLEMENT PATRN
,ALL DONE?
,GET PATRN TO BE GENERATED
,FOR 3RD BLOCK
,GENERATE 3RO BLOCK USING
,J!'PAT0241' PATRN
010164
010166
125252
OJ 0421
PTRNOI! 125252
PTRN02, 010421
,CHANGE THESE LOCATIONS IF
/10U WANT ANY OTlIER PATTERNS
BurR
MD.ll·OZ~KL_E,
QZRKLE,PII
RKI1-RK05 DYNAMZC TEST
26-APR-?7 12127
2863
2864
2865
2866
2867
2868
2888
2889
2890
2891
2892
2893
2894
2895
289b
2897
2998
2899
2900
2901
2902
2903
2904
2905
2906
2907
2908
2909
2910
2911
2912
2913
2914
WRIT~
14-JUL-?7
08103
PATTERNS ON THE DISK
,.
,"FIRST BLOCK-256 WORDS 000001
000003
"I"
I·SECOND
,0
2874
2887
To
PAGE 56
I*PTGENI
"THIS ROUTINE GENERATES A 768 (3X256) WORDS
,oLONG BUFFER CONTAINING THE FOLLOWING PATTERNS I
2869
2870
2871
2872
28n
2875
2876
2877
2878
2879
2880
28B 1
2882
2893
2884
2885
2886
MACYII 30(1046)
FILL 1 '5
in?77
BLOCK
177776
177774
FILL O'S
I
I'
000000
"
,oTHIRD BLOCK
000001
I·
000020
I'
FLOAT A I
I
,*
100000
,*'BUFN09 CONTAINS THE STARTING ADDRESS
or
THE
I*BUrFER.
010170
010174
010200
010204
010210
010212
010214
010216
010220
010222
010224
012703
012704
013700
012702
010301
010120
000261
006101
103374
005202
00137!
010226
010232
010234
010236
010240
010242
010244
010246
012702
010401
010120
000241
006101
103774
005202
010250
010254
01270.
010301
010256
010260
010262
010264
010266
010270
010120
006301
103375
005202
001372
000207
000001
PTGEN 11
177776
001446
177760
MOV
MOV
MOV
MOV
lSI
281
MOV
MDV
SEC
ROL
Bce
INC
BNE
177760
3$1
4$ ,
MOV
MOV
MOV
n.R]
U77776.R4
BurNO,RO
#-20,R2
R3,RI
RI.cRO)'
001371
177760
581
6$1
,GENERATE THE FIRST
;BLOCK USING
1"5 11
R2
I ALL DONE?
1$
U-20. R'
IINITIALIZE PATRN
R4,Pl
RI.CRO).
RI
8NE
R2
38
MOV
i-20,R2
MOV
R3,Fll
MOV
RI. (ROl.
RI
6S
INC
SNE
RIS
~rILL
2$
INC
ASL
or
RI
ROI.
Bce
r GET 5TARTWG ADRES
,SET COUNT
,INITIALIZE PATRN
,GENERATE 2ND BLOCK
~USING "FILL 0'5 N
CLC
sca
,INITIALIZE PATRNS
4$
,DONE?
I SET COUNT
, INITIALIZE PATRN
I GENERATE THE 3RD BLOCK
~USING
"FLOAT A lW
R2
;DONE?
:RETURN
58
PC
2915
2916
, .PTGEN2
I*TH15 ROUTINE GENERATES A 768 (lX256) WORDS LONG
,.SUFFER CONTAINING THE FOLLOWING PATTERNS,
2917
2918
HD.ll-DZRKL.E. RKII-RK05 DYNAMIC TEST
DZRKLE.PII
2S-APR·n 12127
2919
2920
,.I*FIRST
2921
2922
2923
","
2924
2925
2926
2928
2930
2931
2931
2934
2935
2936
010272
005001
2941
2942
2943
010274
010300
010302
010304
013700
010120
10520 I
001375
010306
010310
010312
010316
010)20
005001
2952
2953
2954
000000 COUNT PATRN-HIGHER BYTE
000400 '0-377
001000
I
177 400
000000
000401
010322
010]24
010]30
010332
UI
010120
062701
2$1
000400
005001
010120
062701
103374
000207
36 ,
000401
LOWER BYTE
177777
RI
MOV
MOV
BUFNO, RO
RI,CROH
B"E
RI
U
INca
CLR
MOV
ADD
1\1
eLR
MOV
ADD
RI
RTS
PC
Bce
103374
&
CONTAINS THE STARTING ADDRESS OF THE BUFfER,
PTGEN21 CLR
001446
COUNT PATRN-HIGHER
0-377. 0-377
I
,.'BurNO'
2939
2HO
2950
2951
,.nCOND BLOCK
.","
2937
2938
2948
2949
I
000377
,oTHIRD BLOCK
2932
COUNT PATRN-LOWER BYTE
0-377
I"
,.
,.
2929
2947
BLOCK-256 WORDS 000000
000001
000002
,.
",.
2927
2944
2945
294.
MACH! 30(1046) 14-JUL-77 OB.03 PAGE 57
T6
WRITE PATTERNS ON THE DISK
Bce
;INITIALIZE PATRN
IG~NERATE
1ST BLOCK USING
; USING "COUNT UP LOWER BYTE'
~
DOftE?
,GENERATE 2ND BLOCK
,USING 'COUNT UP HIGHER BYTE'
,DONE?
RI,(ROl+
HOO,RI
28
,GENERATE lRD BLOCK USING
,'COUNT UP HIGHER & LOWER BYTE'
,ALL DONE?
,RETURN
RI,CROH
UOI,RI
3Z
2955
2956
2957
2958
2959
2960
2961
2962
2963
2964
2965
2966
2967
2968
2969
2970
2971
2972
2973
2974
,PTGEN]
,.THIS ROUTINE GENERATES A 768 C3X2561 WORDS LONG
I*BUFFER CONTAINING THE FOLLOWING PATTERNS,
r
,*FIRST BLOCK OF 256 WORDS,
167356 (COMPLEMENT OF 010421)
I>SECOND BLOCK
FLOAT A 0
,ii-, '
,*,*
,*THIRO BLOCK
I"
1*
,.
177776
177775
I
077777
000377
000776
COUNT UP HIGHER eYTE 0-377
COUNT DOWN LOWER BYTE 377-0
I
171400
I.'BurNO· CONTAINS THE STARTING ADDRESS OF THE BUFFER,
BurR
MD-II-DZRK~.£,
DZRKLE,PII
2975
2976
2977
2978
2979
2980
2981
2982
2983
2984
2985
2986
2987
2988
2989
2990
2991
2992
2993
2994
2995
2996
2997
2998
2999
3000
3001
3002
3003
3004
3005
3006
3007
)008
3009
1010
3011
3012
3013
3014
3015
1016
3017
3018
3019
3020
RKII-RK05 DYNAMIC TEST
26-APR-77 12127
010]34
010340
010344
010350
010352
010354
010356
013700
012702
013701
005101
010120
005202
001375
001446
010360
010364
010366
010372
010374
010376
010400
010402
012702
000261
012701
010120
006101
103775
005202
001370
177760
MACYll 30(1046) 14.~U~.77 08103 PAGE 58
T6
WRITE PATTERNS ON THE DISK
PTGEN3I MOV
MOV
177400
010166
MOV
481
COM
MOV
INC
8NE
.BUrNIl, RO
'-400,112
PTRN02, RI
RI
RldRO)'
R2
4$
,GET PATTERN
,CO.PLEM.ENT 'PAToa' PATRN
,GENERATE 1ST BLOCK
:ALL DONE?
:2ND BLOCK
MOV
SEC
MOV
MOV
ROL
177776
Bea
INC
BNE
'"20,R2
11777V6,RI
RloIRO)'
RI
ee
R2
H
I
ALL DONE?
,3RD BLOCK
010404
010410
010412
0104\4
010416
010422
010424
012701
010102
010120
060201
022701
001373
000207
010426
010427
010430
010431
006
003
011
000
010432
0,4737
000377
981
177777
MOV
MOV
MOV
ADD
CMF
BNE
IITS
U77.RI
RI,~2
RldRO).
R2.Rl
'-1, RI
9S
PC
,GENERATE 3RD BLOCK USING
,'COUNT DOWN LOWER BYTE'
,'COUNT UP HIGHER BYTE'
,ALL DONE?
, RETURN
,SECTOR POINTER TABLE, DATA TRANSFERS ARE DONE IN BLOCKS 13 SECTORS
,EACH) IN THE CYCLIC ORDER I 0-2. 6-10. ]-5, 11-13. 0-2. AND SO ON,
SECPTRI .BYTE
6
.BYTE
3
.BYTE
11
,BYTE
0
EXT61
016772
JSR
PC,ABAT
,,***************************************************************
,*TE5T 7
READ, SOFTWARE COMPARE, WRITE CHECK OF THE PATTERNS
1****TE5T 6 (WRITING PATTERNS ON DISK] SHOULD BE DONE BEfORE UOING****
,****THIS TEST,****
,OIN THIS TEST THE PATTERNS THAT "ERE WRITTEN BEFORE (IN THE
,*PREVIOUS TEST) ARE READ BACK AND SOFTWARE COMPARED,
,*WHILE THE SOFTWARE COMPARISON IS TAKING PLACE, AN OVER~APPING
,.·WRITE CHECK' IS DONE fOR THE SAME SLOCK, THE READING
,*BACK or EACH BLOCK 14 SECTORS) IS DONE IN THE SAME
,*MANNER AS DESCRIBED IN THE BEGINNING OF PREVIQUS TEST,
,*OVER~APPING OPERATIONS AND STAGGERING OF BLOCKS ARE DONE IN
,oA SIMILIAR MANNER,
,0THE FOLLOWING IS A DESCRIPTION OF HOW ERRORS ARE HANDLED,
,.IF A 'SIN' OR 'HE' OCCURS IT IS REPORTED AND THAT BLOCK
,0IS SKIPPED, IN THIS STAGE OF TESTING THESE ERRORS SHOULD NUT
,.NORMALLY OCCUR,
,*IF ~ CHECKSUM ERROR OCCURS, CONTROL IS TRANSFERRED TO
3021
3022
3023
3024
3025
302&
30"
3028
3n29
3030
MD-I1-DZR~L.E,
DZPKLE.PII
RKII-RK05 DYNAMIC TEST
26-APR-77 12127
MACY! I ]0 (I 046) a-JUL-n 0810] PAGE 59
T7
READ, SOFTWARE COMPARE, WRITE CHECK OF THE PATTERNS
,.·CSERROR', FIRST THE CSE IS REPORTED. TH~ SECTOR GIVING
,*CSE IS READ AGAIN, IN ALL 3 TRIES ARE DONE, IF STI~w
,*THE ERROR PRESISTS THAT SECTOR IS ABORTED AND THE REST
,OOF THE SECTORS ARE READ AND CHECKED FOR CSE. IF
,*AGAIN SOME OTHER SECTOR GIVES CSE, REPORTING AND RETRIES
,oAPE DONE AGAIN,
I*NEXT SOFTWARE COMPARISON IS DONE OF THE DATA THAT WAS
,*READ BACK. ON GETTING A DATA MISCOMPARISON
,.THE RELEVANT INFOIGOOD DATA, BAD DATA, ADDRESS ETC,) IS
,.STORED, AFTER THE WHOLE BLOCK HAS SEEN CHECKED, THE DATA
,.ERRORIS lSI ARE REPORTED, THEN THE B~OCK IS READ AGAIN, IN ALL
,*THREE TRIES ARE DONE,
,.WHI~E THE DATA COMPARISON (SOFTWARE) IS GOING O·N THE 'WRITE
,.CHECK' IS AliSO IN PROGRESS, IF A WRITE CHECK ERROR OCCURS THE
,*CONTRO~ IS TRANSFERRED TO 'WCEROR',
WRITE CHECK OF THE SECTOR
lOTHAT GAVE weE IS DONE AGAIN, IN ALL THREE TRIES ARE OONE, ,oNOTE THAT EVERY wCE IS REPORTED, IF ALL THE 4 SECTOR or
,*A BLOCK GAVE WCE'S, ALL 4 WI~L BE REPORTED AND RETRIED,
3031
3032
1033
]034
30J5
]036
3037
3038
]0]9
3040
3041
]042
3043
3044
3045
](l46
3047
3048
]049
,.DEPENDING ON THE NATURE OF THE PROBLEM, THE ABOVE ERRORS
,.CAN OCCUR IN ANY COMBINATION, IT IS RECOMMENDED THAT ALL
,oTHE ERROR MESSAGE BE CAREFULLY CO·RE~ATED AND EXAMINED, IT
,.WILL PROVIDE A DEEP INSIGHT INTO THE PROBLEM,
3050
3051
3052
3053
,,***************************************************************
3054
3055
010436
]056
010440
01044&
010454
010462
010470
010476
010504
010512
000004
012737
012737
012737
012737
TST7 I
I
012737
012737
005037
177764
177773
177742
177742
177764
177742
177152
001476
010516
010524
012737
013737
001230
001424
001450
010532
010536
010542
0050)7
010556
005037
012737
012737
012737
001504
001506
177775
177776
000003
001252
001254
001256
010564
0\ 05 72
0\3737
013737
001450
001406
010600
012737
176400
001444
]081
010606
010614
013737
3082
010632
013737
001450
176400
001404
001432
001436
001434
010630
000404
3057
3058
3059
3060
3061
3062
3063
3064
3065
3066
3067
012737
001414
001510
001512
001514
001516
001520
001522
001474
SCOPE
MOV
MOV
MOV
MOV
HOV
MOV
CLR
'-14,ERCNT3
#-s,ERCNT4
'-36, ERCNT5
'-36,ERCNT6
'-14,ERCNT7
'-l6,ERCNT8
.-626,INOXI
INDX2
,ALLOW 12 ERRORS AT THE MOST
,ALLOW S ERRORS AT THE MOST
,ALLOW 10 ERRORS AT THE MOST
,ALLOW 10 ERRORS AT THE MOST
,ALLOW 12 ERRORS AT THE MOST
,ALLOW 10 ERRORS AT THE MOST
,5ET COUNT FOR 626 TRACKS
,CLR COUNT FOR 4 BLOCKS ON A TRACK
MOV
MOV
'PATO,PRSPAT
DRIVAD,ADRE5
I INITLZE PTR TO PATRN GENRTR
,INITLZE DRVe.ADRES
CLR
CLR
MOV
MOV
ERCNT!
ERCNT2
t e 3,RETRy!
,-z,RETRY2
,IF> 0, MEANS THAT RETRIES
,DONE AFTER caE OR CSE CHKD
,RETRY COUNT FOR CSE
,RETRY COUNT FOR SFTWRE MISCHP'N
:RETRY COUNT FOR WCE
MOV
MOV
AllRES, WeSKAD
PBUn. WBUSAD
MOV
'-1400. WWRDCN
MOV
MOV
MOV
ACRES.OSKADR
'-UOD,WRDCHT
PBUFD,BUSlDR
BR
RDAGAIN
MOV
]068
3069
3070
3071
3072
3073
]074
3075
3076
3077
3078
3079
]080
3083
3084
3085
3086
01 0550
012737
BEGtN.
MoV
001440
001442
READ.
S],RETRYJ
,DISK ADRES TO WRT CHK WITH
,USE THIS SUrR I TO WRT CHK
,OR THE BurR INDICATED BY THE USER
,WRT CHK I B~OCK.3SECS.1400 WRDS
,DISK ADRES '1'0 READ FROM
/1 BLOCK. 3 SECTORS e 1400 WRDS
,USE 'lOBUrO' TO READ INTO
,OR THE BurR INDICATED BY THE USER
1I0-\I-DZRKL_E. RUI-RKOS DYNAMIC
DZRKLE,PI1
36-APR-n 12127
]087
3088
3089
010632
010634
010636
TEaT
MACYII 30(1046)
I4-JUL-77 08103 PAGE 60
T7
READ. SOFTWARE COMPARE, WRITE CHECK 01' THE PATTERNS
LUPSINI CON ,RESET
DRY.RESET
RDAGAIN
811
1044IS
104416
000401
3090
3091
]092
010640
104415
3093
010642'
010650
010656
013777
LUPHEI
CON ,RESET
OU777
001432
00lU6
001434
170576
MOV
DIIKADR •• RKDA
,READ FROM THIS DSK-ADRES
MOV
WRDCNT, eRKNC
,THIS • Of' WORDS
,INTO THIS 8urR
BU8ADR,.RKBA
010664
012777
000405
170564
MOV
.405,@RKCS
,ItEAD,S5E.GO
010672
010700
010706
013737
017737
004777
001406
170520
001446
001430
MOY
PBun, BurNa
,SET UP STARTING ADPES
PC,tPG8UBR
,GO GENEItATE A BUfFER
,OF 1400 WORDS USING THIS
,PATIIN GENRATR
3106
3107
3108
3109
3110
3111
lII2
3113
010712
104421
010714
010722
032777
001416
040000
3114
010724
010732
010736
010740
010742
010746
010750
010754
010760
010766
012737
004737
104023
104415
005217
001002
000137
000117
032777
001417
010640
016214
012737
004737
104011
104415
104416
005237
001002
000137
010632
016214
3131
3132
010770
0\ 0776
011002
011004
011006
011010
011014
011016
3133
011022
000\37
011512
1$1
.IMP
FINISH
011026
011032
011034
005737
oOIOll
005237
001504
NOS IN,
T5T
ERCNTI
WRTCHK
ERCNTI
011040
011046
011050
032777
000002
170406
BIT
001433
012737
010532
001110
BEQ
MOV
309.
l09S
3096
3097
3098
013777
170614
170602
RDAGAINI
MOV
3099
3100
lIOI
3102
3103
3104
MOV
JSR
170516
3105
3115
3116
3117
3118
3119
3120
3121
3122
3123
PPRSPAT,PG8UBR
CON,RDY
BIT
170534
BEG
001110
001510
012170
011512
001000
170464
18.
NOHE,
,DONE WITH PATRN GE~RTNG,
,WAIT rOR CNT RDY TO SET
,(FROM PREVIOUS READ)
.BITU, 'RKes
NOHE
MOV
_LUPHE,SLPERR
JS~
PC,G~TINF
ERROR
23
CON,RESET
EReNT]
INC
8NE
U
JHP
EXT7
J~P
rINI/iH
BIT
UIT9,@RKOS
NOSIN
SEQ
,CNT RDY SET
IHARD ERROR?
,HARD ERROR
IA~LOW
12 ERRORS AT MOST
,IF MORE, EXIT
,SIN SET?
,NO
3124
3125
3126
3127
3128
3129
3130
3134
3135
3136
3137
3138
3139
3140
3141
3142
JSR
001512
012170
SHE
INC
001504
MO-II-0ZRKL.E, RK11-RK05 DYNAMIC TEST
DZRKLE,Pll
26-APR-77 12127
3143
3144
3145
3146
3147
3148
3149
3150
3151
3152
3153
3154
3155
3156
3157
3158
3159
3160
ll6l
3162
MOV
.LUPSIN, 'LPERR
PC,GETINF
ERROR
11
CON,RESET
DRV,RESET
ERCNT4
INC
S·NI:
U
J~P
EXT?
001110
UITI,@RKER
WRTCHK
UEGIN, $LPERR
:51N ON READ
;ALLOW 5 ERRORS AT MOST
: IF MORE, EXIT
,CHECKING CSE FOR 1ST TIME
:NO,BRANCH
,INDICATE THAT caE HAS BEEN
,CHECKED ONCE
,CHECK SUM EROR?
MACYII 30(10461
14-,JUL-77 08103 PAGE 61
T7
READ, SOF·rWARE COMPARE, WRITE CHECK OF THE PATTERNS
JSR
PC,GETINF
RETRyt,SREG10
i4,SREGIO
011056
011062
011070
011076
011100
011104
011106
011112
004737
013737
062737
104024
005237
001002
000137
000137
016214
001252
000004
012170
011654
UI
JMP
JMP
EXT7
CSEROR
,IF MORE, EXIT
,GO, SERVICE caE
OIl! 16
005037
001506
WRTCHX, eLR
ERCNT2
011122
011130
022737
001016
000003
CMP
SHE
,CLR FLAG INDICATING SOFTWARE
,COMPARE DONE
,WRT CHK DONE BEFORE OR
SFTCMP
,IT' 5 1ST rIME?
,II" DONE, BRANCH OTHERWISE DO IT
011132
011140
011 146
013777
013777
013777
001440
001444
001442
170312
170]06
WDSKAD, @IIKI1A
WWRDCN,@RKWC
WBUISAD,@RKBA
,WRT CHK FROM THIS OSK-ADRES
,THIll • '0 WORDS
,WITH THIS BUFFER
170274
MOV
ADD
ERROR
INC
BNE
001202
001202
001514
24
ERCNT5
11
,GET THE RETRY #
,SAVE IT FOR TYPEOUT
,CSE
,ALLOW 10 ERRORS AT MOST
I
001256
170324
IICAGAIN I MOY
MOV
MOV
n,RETRY]
011154
012777
000407
MOV
#407,ORKCS
,WRT CHK,GO.SSE
3163
3164
011162
005337
001256
DEC
RETRY!
,INDICATE WRT
3165
3166
01116&
011172
005737
001060
001506
snCMPI TST
BNE
ERCNT2
WCREPT
011174
005237
001506
INC
ERCNT2
,SFTWARE CMPARE DONE ONCE BEfORE?
,IF srTWARE CMPARE HAS BEEN DONE
,ONCE DOH'T DO IT AGAIN, OTHERWISE,
,DO IT, INDICATE IT IS DONE,
,MORE THAN ONCE SEFORE,
,If THIS IS 1ST TIME THRU ,
,WRT CHf( WAS DONE ONCE BEFORE
,DO SOFTWARE COMPARISON OF
,THE DATA THAT WAS REAO FROM
,THE DISK
011200
012702
001266
MOV
#BUFR,n
011204
012703
012704
001'320
UUFRI,R3
001353
MOV
MOV
011214
005031
001500
011220
013700
012737
013701
012737
021011
001602
000U7
005720
005721
001404
177764
001406
176400
3167
lUS
3169
3170
ll7l
ll72
3173
3174
ll75
3176
31.77
3178
] I 79
011210
3BurR2,R4
3180
3\81
3182
CLR
31&3
3184
3185
31U
3187
011224
011232
011236
3188
U1l244
3189
0\1246
011250
011254
011256
011260
3190
3191
3192
3193
1I94
JUS
3196
3197
3198
011264
005237
012016
001260
001367
011266
005737
011272
001420
001500
001502
001260
COMPARi 1I0V
MOV
MOV
MOV
CMPAGANI CliP
BEQ
U.
DONE
,INITLZE PTR TO BUFR 5TO~ING
, lORES OF U·O OAT A
,STORE EXPCTD DATA STARTING HERE
,8TORE RECVD (BAD) DATA
I STARTING HERI!:
INDX3
ICLR FLAG INDICATING MISCMPRE
PBUFO,RO
,INITLZE PTR TO 'RECVD DATA' BurR
,STORE AND REPORT 12 OR LESS DATA ERRORS
,INITLZ! PTR TO 'EXPCTD DATA' BUFR
,SET COUNT
,CORRECT ~ORD READ FROM DISK?
.~14, INDX4
PBun,RI
1-1400,IHADR
(ROI.CRII
IS
.IMP
MISCNP
IRO)+
TST
(~tl+
TaT
C~K
INC
INADR
liNE
CMPAGAN
TST
tNDU
BEQ
lICREPT
,BRANCH IF MISCMPRE ERROR
,INCRMNT PTR!
,TO NXT WORDS
,DONE WITH CMPRISON7
,IF NOT, COMPARE THE REST
,WAS THERE A BAD DATA WORD
,(EVEN AFTR RI!!'lRYING)
,NO, BRANCH
MD-II-0ZRKL_E, RKII-RK05 DYNAMIC TEST
DZRKLE,PII
2S-APR-77 12127
3199
3200
3201
3202
3203
3204
3205
3206
3207
3208
3209
3210
3211
3212
3213
3214
lllS
3216
3217
3218
3219
010606
011274
011302
011]04
011310
011312
011]16
011322
011324
011330
012737
104025
005231
001002
000137
005737
001404
005237
000117
001110
011334
10",421
011 ])6
022737
')11344
011]46
011350
011)52
011360
011366
011374
001417
000401
104415
013771
013777
013777
012777
011402
011404
011412
')11420
104421
012737
032777
001410
011422
011426
011430
004737
104026
005237
00 I 002
000137
016214
032777
001420
004737
000001
170004
016214
000003
001256
001202
001202
MACYII 30(046)
14-JUL-77 08103 PAGE 62
T7
READ, SOfTWARE COMPARE, WRITE CHECK or THE PATTERNS
REPMSCI
001516
012170
001254
1$1
001254
010606
MOV
ERROR
INC
8NE
JMP
TST
BEQ
INC
JMP
IREAD,OLPERR.
25
ERCNT6
EXT7
RETRY2
WCREPT
RETRY2
READ
WCREPT: CON,ROY
177776
CMP
001254
001440
001444
001442
000407
170104
170072
170066
170054
011350
040000
001110
170032
,DATA ERROR
,ALLOW 10 ERRORS AT MOST
U
.-2, RETRY2
BEQ
ERWCHK
SR
LUPWCE+2
LUPWCE, CON ,RUET
MOV
WDSKAD,@RRDA
HDV
ilWRDCN •• RKWC
MOV
WBUSAD,@RKBA
MOV
U07,@RKCS
,IF MORE, EXIT
,WAIT FOR CNTRL ROY FROM
,PREVIOUS WRT CHK
,IF THERE WAS A RETRY AFTER MISC
,-OMPARISoH. DO WRf CHK AGAIN
: WRT CIIK WITH THIS OSK.ADRES
;TIIIS , or WORDS
,THIS BUS ADRES
3220
3221
3222
3223
3224
3225
3226
3227
3228
3229
3230
3231
3232
3233
3234
3215
3236
3231
3236
3239
3240
3241
3242
3243
3244
1111434
011436
011442
011450
011452
011456
011464
011472
011474
011500
011502
1}11506
012737
163737
104027
005237
001002
000137
000137
CON,RDY
ERWCHK, MOV
001520
012170
XH!,
001522
012170
012062
BEQ
#LUPWCE,SLPERR
#BITI4,@RKDS
XHE
JSR
ERROR
INC
BNE
JMP
PC,GETINF
26
ERCNT7
XHE
EXT7
,IF
BIT
BEQ
#BITO,@RKER
,WRITE CHECK EROR?
SIT
18,
PC,GETINF
n,SREGIO
RETRYl.GREGIO
ERROR
27
INC
ERCNT8
SNE
18
EXT?
WCEROR
3251
3252
3253
3254
011512
011520
011522
011530
011532
()22737
001404
062737
000403
o 12717
001422
001424
FINISH I CMP
BEQ
000002
001424
~DD
#2,PRSPAT
8R
28
001414
001424
MOV
~PATO.PR5PAT
MO-l1"OZRKL.e, RKII-RK05 DYNAMIC TEST
1'65
3266
3267
3268
3269
3270
3271
3272
3273
3274
3275
3276
3277
327A
3279
3280
328 I
3282
3283
3284
3285
H86
3287
3288
3289
EXIT
:GET TRY'
,SAVE IT FOR TYPEOUT
,WRT CHK EROR
,ALLOW 10 ERRORS AT MOST
,IF MORE, EXIT
~THERE
DZRKLE,PII
3255
3256
3257
3258
3259
32&0
3261
3262
3263
3264
~oRE,
WAS NO weE. DONE
,WITH ALL CHECKING FOR 50FT
,ERORS,ETC. MODIFY PARAMETERS
,TO CHECK NXT BLOCK ON
,THE DISK
3245
3246
3247
3248
3249
3250
,HE ON WRT CHK
,ALLOW 12 ERRORS AT MOST
FINISH
JS~
MoV
SUB
JMP
JMP
,HARD EROR 71 FROM WRT CHK)
,NO, BRANCH
011540
011544
011550
01155&
26-APP-77 12127
013701
116101
042737
050137
001476
010426
000017
001450
011562
005237
001476
011566
011574
022737
001025
000004
011576
005037
001476
011602
011610
032737
uOl407
000001
011612
062737
000040
011620
011626
042737
00040]
000020
011630
052737
000020
011636
011642
011644
005237
001002
000137
00147:4
012174
011650
000137
010532
IS'
U
38,
MOV
MOVB
BIC
SIS
001476
INDX2,RI
IIECPTR(RIl,RI
U7,ADRES
RI,ADRES
INC
INDX2
eMP
BNE
H,INDX2
DONTRKI etR
'PATO·PATI·PAT2·PAT3-···PATO.
:FoRM SECTR , TO BE USED NEXT
,GET SECTR ,
,MASI( SECTR BITS
,FORM THE NEW DISK.ADRES
,FORM THE NXT BLOCK TO BE
,CHECKED,
;DONE ALL 4 BLoCKS(l SECS
,EACH) ON THIS TRAcn
GOBAK
,IF NOT, GO SAl< & DO THE
,NXT BLOCK ON THIS TRACK
tHOU
,REINITLZE COUNT rOR
,4 BLOCKS ON THIS TRACK
:WHICH SUR TO DO NXT7 0
,BRANCH, DO SUR ! NXT
BIT
UITO,INOXI
BEQ
DOSUR!
001450
ADD
Ho,ADRES
001450
BIC
BP
no,ADRES
DONE
,CLR SUR BIT, DO SUR
NXT
001450
DoSURl, 815
#20, AD RES
,SET SUR BIT, DO SUP
NXT
,DONE WITH ALL 626 TRACKS?
JMP
INDXI
GOBAK
TST10
JMP
BEGIN
,IF NOT, GO BAli ,
,THE NXT TRACK
001474
DONE'
GOBAK,
INC
BNE
,CSERoP
OR I
CHECK
,THIS is THE ENTRY POINT
,FOR SERVICE ROUTINE FOR CHECK
,SUM EROR, CONTROL IS XFERED
,HERE ONCE CSE OCCURS
CSERORI
0\1654
,rIND OUT THE NXT PArRN GENRATR
,TO USE FOR GENRATING THE
,BUFR,SToRE POINTER TO
,GENRATR ROUTINE IN 'PRSPAT'
,hOTE THER R 4 PAT.GENRATR5
MACHI 30(1046)
14-"U"'77 08103 PAGE 63
T7
READ, SOFTWARE COMPARE, WRITE CHECK Dr THE PATTERNS
281
001450
.PATl,PRSPAT
3290
3291
3292
3293
3294
3295
3296
3297
3298
3299
3300
011654
011660
011662
011666
0\1670
011674
017700
010001
032700
001002
162700
005300
011676
020037
3301
0\1702
001021
3302
3303
3304
011704
005237
3305
011110
001021
3306
3307
3308
3309
3310
@RKDA,M
167604
MOV
MOV
000017
BIT
RO,P'
#17 ,RO
BNE
SUB
DEC
U/RO
RD
CMP
RO,DSUDR
000004
111
001432
001252
IS
BNE
28
INC
RETRY!
BNE
3.
,GET RIIDA ArTER CSE
,SAVE RKDA
,FORM THE AD RES OF THE BECTR
,WHICH GAVE CSE
,RO CONTAINS DSK.ADRES WHERE
,CSE OCURED
,DID A PREVIOUS RETRY (IF ANYl
,GIVE CSE ON SANE AD RES
,NO, THIS IS A FRESH CSE, SRANCH.
,IF THIS WAS A caE ON A
,RETRY INCMNT RETRY COUNT,
,BRANCH IF ] IIETUES HAVEN'T
,BEEN DONE
I GO REPORT CSE
I1F CSE WAS IN THE LAST BECTR Dr
,THE 3 SEC BLOCK, GO TO 'WRTCHK'
lOTHERWISE CHECK THE .REST or
,THE SECTORS rOR C811:,
MD-I1-DZRKL_E, RKI1-RK05 DYNAMIC TEST
DZRKLE,Pl1
26-APR.77 12127
3311
3312
Ull
3314
3315
3316
3317
3318
3319
3320
3321
3322
332]
3324
3325
3326
3327
010102
042702
001002
000137
162702
100372
011734
011736
011744
010100
012737
000403
177775
011746
012737
177776
011754
010037
001432
011760
011764
011766
011770
001450
3331
011712
U32
012000
012006
012010
012012
104415
000137
n2B
3329
3330
33)3
3334
3335
3336
MOV
011712
011714
011720
011722
011726
011732
163700
005200
005300
001407
062737
062737
000767
MACil1 30(1046) 14-"UL-77 01103 PAGE 64·
T7
READ, SOFTWARE COMPARE, WRITE CHECK OF THE PATTERNS
BIC
RI,R2
U77760,R2
7G1
SNE
U
Sfl
"MP
SUB
BPL
7$
177760
011116
000003
681
'-l,RETRY!
3$
2'1
MOV
,'w2,RETRY!
,ALLOW 2 MORE TRIES FOR
,THE CSE ON SAME DISK-A~RES
381
MOV
i!O,PSKAPR
SUB
ADRES,1tO
RO
RO
5.
IIOOO.BUSADR
1400. NRDCNT
,SAVE DSK-ADRES FOR DOING
,THE RETR i-nAP
,MODUY THE
,BUS ADRES & WORD COU~T
,TO BE USE ON RETPY,READ
481
001000
000400
RI, RO
MOV
SR
001252
001252
MOV
WRTCHK
U,R2
001434
001436
5$,
010642
INC
DEC
BEQ
ADD
ADD
BII
4e
CON ,RESET
RDAGAIN
"MP
3337
,CLR THE CSE IN RKER
,GO BACK, READ AGAIN
,RETRY
3338
3339
3340
3341
3342
3343
3344
3345
,MISCMP
3346
3347
3348
3349
3350
3351
012016
104421
012020
012026
012030
032777
012032
010022
3356
012034
3357
012036
012040
012044
012050
3352
3353
]354
3355
3358
,THIS IS THE ENTRY POINT
,FOR SERVICE ROUTINE, FOR
,DATA EROR (MISCOMPARISON)
,ON SOfTWARE COMPARISON
,OF DATA READ FROM THE DISK BLOCK
MISCMPI CDN,RDY
040000
BIT
167430
,WAIT FOR CNTRL ROY FROM
,PREVIOUS WRT CHK
IBITI4,OUCS
BEQ
18
CON,RESET
001401
104415
MOV
RO,
012123
MOV
(RIl+'(R3l+
,CLR WCE IN RitER
,BUT STILL DATA EROR ENTER HERE
,STORE MEM ADRES WHERE
,DATA EROR OCCURED
,SAVE EXPCTD DATA
012024
005237
001500
NOV
INC
IROH, (R4).
INOXl
,SAVE DATA REeVD (BAD)
,INDICATE MISCMPRISDN
005237
001402
001502
INC
BEQ
INDX4
41
,STORE ONLY 12eDEC) ERORS
,IF 12 ERORS, GO REPORT THEM
012052
000137
011244
JMP
CMPAGAN
:GO BACK & CMPARE THE REST
012056
000137
011274
JMP
REpMSC
181
(112)+
13S9
3360
3361
3362
3361
3364
3365
481
3366
MDwll-DZRKL_E. RKlI-RK05 DYNA~IC UST
DZRKLE,PII
26-APR-77 12127
MACYlI 30110(6) 14-JUL-77 08.03 PAGE 65
T7
READ, SOFTWARE COMPARE, WPITE CHECK OF THE PATTERNS
3367
3368
,THIS THE ENTRY POINT FOR
,EROR SERVICE ON GETTING A
,WRITE CHECK EROR.
3369
3370
3371
3372
005737
003035
001256
012070
012737
000003
3390
012136
012140
017700
010002
042702
001002
000137
162702
100372
010001
161700
010137
005200
005300
001407
167362
3388
012076
012102
012104
012110
012112
0\2116
012122
012124
012126
012132
3373
3374
012062
012066
WCEROR, TST
BGT
RnpYl
CLRERR
3375
3376
3377
3378
3379
33BO
3381
3382
33Bl
3384
3385
3386
3387
UU
U91
3392
3393
3394
3395
3396
3397
3398
3399
012142
012144
012152
012160
012162
012164
012170
MOV
U,RETRYl
,SET CONT FOR RETRIES
'RKDA, RO
RO,R2
#177760,R2
3$.
MOV
MOV
BIC
BNE
JMP
FINISH
4$1
SUB
'3,R2
;IF WCE wAS IN THE LAST SECTOR
,OF THE BLOCK, NO MORE SECS
,TO CHECK, GO TO 'FINISH'
IIF IT WASN'T LAST SECTOR OF THE
,BLOCK, THEN CHECK REMAINING
,SECTORS, (STARTING FROM THE
,SEC AFTeIl THE ONE GIVING WCE)
,SAVE DISK AD RES
001256
117760
011512
000003
BPL
38
MOV
SUB
MOV
RO,RI
WDSKAD,RO
Rl,WDSKAD
INC
PO
2'1
DEC
RO
CLItERR
.IOOO,WBU8AD
HOO, WWRDCN
BEQ
062737
001000
000400
001442
001444
ADD
000137
011132
ADD
BR
2.
CLRERRI CON,RESET
JMP
WCAGAIN
004n7
016772
EXTH
HOO
3401
,GET SAVED DISK ADRES
,P'O~ THE NEW BUS ADREa
,FORM THE NEW WORD COUNT
PC,ABRT
,,*T£8T
'*********************************************************
..
10
WRITE, WRITE CHECK ON CYLINDERS 127, 12B
3402
HOl
3404
*.-..*
,*THIS TEST WRITES 12 UNIQUE PATTERNS (ONE FOR EACH
.r*8ECTOR) ON CYLINDERS 127 AND 128, THEN WRITE
,-CHECK IS DOllE TO SEE IF THEY WERE WRITTEN
,.CORRECTLY. IT SHOULD BE NOTED THAT THERE IS
,-CHANG! IN 'WRITE' CURRENT AT THIS CYLINDER,
,.PATTERNB ARE RELOCATED ON THE CYLINDERS AFTER EACH
I.MRlrE/WRITE CHEC~ CYCLE, THUS THE FIRST TIME
I.PATTERN '8P1' IS WRITTEN ON SECTOR O. PATTERN 'SP2' ON
,*SECTOR 2, ETC, ~rTER THIS WRITE/WRITE CHECK CYCLE
,*18 OVER PATTERN 'SP2' IS WRITTEN ON BECTOR 0, PATTERN
,.,'SP3' ON SECTOR 1 AND SO ON. THIS WRITE/WRITE
,-CHECK CYCLI!: IS REPEATED 12 TIMES, THUS
I*THE LAST WRITE/WRITE CHECK IS DONE USING
,.PATTERN '8P12' ON SECTOR 0, PATTERN 'SPI' IS
,*WRiTTEN ON SECTOR 1, PATTERN 'SP3' ON BECTOR 2,
,.ETC, IF YOU WANT TO WRIT! ANY OTHER· PATTERNS
,"FlLL IN THII: PATTERNS YOU WANT IN LOCATIONS
,.-S'1', ·SPZ'" •• tTC.
1405
3406
3407
3408
3409
HIO
3411
3413
3413
3414
3415
3416
3417
.3418
3419
3420
3421
3432
4$
lSI
001440
001440
062737
000767
104415
,DONE 1 TRIES?
)IF NOT SKIP, OTHERWISE REPORT
,. C EROR
012174
000004
, , •••• **-* •• _•••••_.-.......*•••• * ........ *•• *•••••• *.*.* •• *.*.* •• ** ••
UTIO,
SCOPE
MO-l1-0ZRKL.E, RKt I-RKOS O¥NAMIC TEST
26-APR-77 12127'
DZRKLE,PII
3423
3424
3425
3426
3427
3428
3129
3430
3431
3432
1433
HH
3435
34 J6
3437
3439
31J9
3440
3441
3442
3443
3444
3445
3446
~447
3148
34 \9
3450
3451
012176
012204
012212
012220
012224
012126
012232
012236
012240
012242
012246
012254
012260
012266
0l.2270
012276
012300
012306
012312
012314
0123' b
012322
012324
010017
[11277 7
010177
012777
104421
032771
001414
012737
Otl47J7
104021
104415
0()S237
001002
000\37
177764
171764
177723
012702
167160
001110
012732
4$.
012366
012372
012376
020327
001321
000030
032700
001405
012700
053700
007700
~l58
012400
012404
012406
012412
H69
() 12416
000707
J45B
HOV
MOV
MOV
MOV
CON,RDY
~RITE
012730
;ALt.OW 12 ERRORS AT MOST
,ALLOW 15 ERRORS AT MOST
,INITIALIZE POINTER TO PURN
:SET UP CYL ADRES BITS (127 J
:SET Up DRIVE n BITS
RO,@RKDA
$-400,@RKWC
Rl,'@RKBA
#4003,@RKC8
012700
3$ •
000014
000017
000020
INC
PO
INC
CMP
BNE
MOV
TST
C.P
BLT
BNE
MOV
BIC
R3
HPI2,R!
3$
#SPI-2,RI
(Rtl>
~3, #\4
WRLO
21
R2,Rl
# 17, Fl.O
!20,PO
Brs
128
1ALLOW 12 ERRORS AT MOST
:APRES THE DRIVE
::WRITE 1 SECTOR
: USE THIS PATTERN
: WRITE, GO
U4000Q,@RKCS
BIT
BEQ
4$
MOV
#WRERR,SLPERR
JSR
PC, G14M
ERROR
21
CON,RESET
INC
EReNTI
BNE
4$
JMP
EXTIO
001504
3459
1454
3455
3'56
3457
167170
012240
016162
~q60
3153
WRLOI
167204
140000
012340
012342
012346
012350
012]54
012356
012360
012362
('12332
012334
DOWRT,
MOV
n-14,ERCNTI
MOV
#-j4,ERCNn
MOV
i-55,ERCN!)
MOV
nSFI, R2
MOV
Rl,RI
MOV
27740,FlO
BIB
DRIVAD,RO
R3
CLR
CON,RESET
001504
001506
00 \51 0
WRLDI.
WRERR.
167216
177400
167202
004003
PAGE 66
14-JUL-77
08 I 03
CHECK ON CnINDERS 127,
WRITE,
007740
001230
005200
005203
022701
001002
012701
005721
020327
002132
001005
010201
042700
052700
3452
012330
012737
012737
012737
012702
010201
012700
053700
005003
104415
MACYlI 30(046)
TIO
IANY ERROR?
:SET
ADRES fOR LOOPING aN ERROR
,GET TKCS, ER, OS, DA
,ERROR OCCURRED ON DOING A "RITE
:CLEAR THE ERROR
:ALLOW 12 ERRORS ONLY
,KEEP COUNT
: USE PATTERNS IN
A CYCLIC fASHION
;INCREMENT POINTERS TO NEXT PATTERN
;DONE SURfACE 01
;NO
: YES, IF CHANGING HEADS
:SET UP CORRECT ADDRESS ETC,
3461
3462
3463
3164
l465
3466
J467
21,
C~1P
BNE
WRHII
BIT
#noo,po
;DONE wITH BOTH CYLINDERS
BEQ
: YES
; NO, DO CYLINDER 12B
BIS
DOWCHK
#I0000,RO
DRIVAD,RO
SR
.RLOI
: GO BACK
Mav
010000
001230
,DONE WITH WRITING SURFACE 11
: NO, BRANCH
R3,OO
WRLO
;C~LINDERS
34Hl
347 I
-
127 & 12B1
127 AND 12B HAYE SEEN
3472
3473
3474
3475
347.
J4 77
3178
012420
012422
01.2430
012434
012440
012442
DOWCHK.
010201
012737
012700
053700
005003
010077
177775
010000
001230
001252
WCHI! •
WCERR.
167016
MD-t l. .. DZRKTJ .. E f RKII-RK05 DYNAMIC TEST
DZFKLE,Pll
26-APP-77 12127
34 79
3480
Hal
34_2
3483
3484
HH5
3486
HB7
H9S
3489
3490
3491
3492
J49l
3494
l495
3496
1497
]499
3499
J500
3501
3502
350 J
3504
3505
3506
35u7
350.
3509
3510
3511
3512
35! 3
3514
3515
3516
351 )
351B
3519
3520
3521
3522
3523
3524
3525
3526
3527
l528
3529
3530
012446
012454
012460
171400
167002
004007
166770
012466
012777
010177
0\2777
104421
01.2470
012416
012500
012504
012506
012512
o 12~ 14
012522
012524
012532
012536
012544
012552
012554
012560
012562
012566
012570
032777
001406
(104737
104026
005237
001507
032777
001425
012737
004737
013737
062737
104027
005237
001330
005237
001461
012737
040000
166754
012576
012600
012602
012606
012610
012614
012616
012622
012624
012626
012630
a I 26 34
005200
005203
022701
001002
012701
005721
020327
002711
001005
010201
042700
052700
0126 4 0
012644
020327
001300
000030
012646
012652
012654
012660
012664
032700
001005
012700
053700
000665
007700
012666
012670
012674
0126 7 6
001420
000137
30(1046)
~2,
14-JUL-77
~
RETRY COUNT
:00 CYLINDER 128 FIRST
: ADFIES
0810J
MOV
#"'400,@RKWC
MOV
Rl,@RKBA
HOV
14007,@RKCS
CON,RDY
,WRITE CHECK I SECTOR
:WITH THIS PATTERN
,WRITE CHECK, GO
BIT
!4000Q,@RKDS
; HE?
BEa
JSR
PC,GETlNf
ERROR
INC
BEQ
BIT
26
ERCNT2
EXTIO
IBITO,@FKER
iGl
u
166732
BEQ
48
012442
016214
001252
000004
001110
MOV
001202
001202
MOY
ADD
ERROR
IWCERR,$LPERR
PC, GETIf'ff
RETRY 1, ®I (}
'4,SREGIO
27
001252
INC'
RET~Y!
001510
SNE
INC
aEQ
MaY
WCERR
EReN!3
EXTIO
!-),RETRY!
INC
RO
R3
JSR
001252
4$ •
INC
eMP
01273'0
aNE
3$1
000014
000017
000020
2$ I
WCLO.
,NO
JHE ON DOING "RT CHK
, ALLOW 12 ERRORS ONH
; IF MORE, EXIT
,WCE?
,NO
I SET ADRES fOR LOOPING ON ERROR
,GET INFO ON ERROR
;WCE ON DOING WRITE CHECK,
; PATTERN STORED IN Rl
;00 3 TIMES IN ALL
WITH
: ALLOW 15 ERRORS ONLY
,IF MORE, EXIT
:KEEP TRACK OF DISK-AORES
:ANO COUNT
I USE PATTERNS IN CYCLIC
3$
ISPI-2,RI
(RI)+
eMP
R3,114
IFASHION
IINCREMENT POINTER TO NEXT PATTERN
,DONE SURFACE 01
BLf
SNE
MOV
WCHr
;NO
SIC
BIS
U7,RO
#2Q,RO
CMP
R3,~30
BNE
WCHI
BIT
SNE
MOV
BIS
SR
f7700.RO
REPEAT
#7740. RO
DRIYAD,RO
REPEAT I TST
012224
~SPI2,RI
128
TST
MDV
012700
012732
PAGE 67
WCHI,
000001
007740
001230
THE DRIVE
WRITE, WRITE CHECK ON CYLINDERS 127 I
001506
171775
NOW DO WRITE CHECK
POINTER TO FIRST PATTERN
~IN!T!ALIZE
RO,@RKDA
28
R2, F!
: IF CHANGING HEADS (0-1) ,
: AOFES BITS
SET CORRECT
IOONE WRITE CHECKING SURFACE !?
, NO, GO BACK
IDONE BOTH CYLINDERS •
,YES, BRANCH
,00 CYLINDER 127 NOW
127, 12B7
WeH!!
( R21+
Ra, UPI •••
eMP
SEQ
T5TII
JMP
DOWRT
353\
3532
35 J3
3534
:WRITTENt
PI
I-.,RETRYI
IIOOOO,RO
DRIYAD,RO
R3
TIO
016214
005722
020n7
167004
M~CYII
MOV
MOV
flOV
BIS
CLR
MOV
, PATTERNS TO BE USED
,RELOCATE THE PATTERNS ON THE
,CYLINDERS AND DO IT AGAIN
I,EXIT
ITHIS TEXT)
MD-II-CZRKL.E. RK Il-RK05 DYNAMIC TEBT
DZRKLE,PII
3535
3536
26-APR·77 Il.27
3539
3540
3541
3542
3543
012720
3544
012722
012724
012726
012730
102041
010101
04020 I
000401
031463
070107
001417
041020
012732
004731
3538
3545
3546
3547
3548
3549
SPlI
SP2,
177717
012702
012704
012706
012710
012712
012714
012716
3537
MACYlI 30(1046) I4-JU~-17 08103 PAGE 58
WRITE. WRITE CHECK ON CYLINDERS 127, 128
TID
052525
SF]I
SP41
BPS,
SP5,
IIII!!
010421
177777
052525
f~WRD
111111
,WORD
~WORO
010421
102041
010101
040201
000401
031463
070707
007417
041020
JSR
PC, ABRT
,WORD
$WORD
SF7,
~WORD
SPS.
Spg.
SPIOI
SPlI •
SPl21
,WORD
UTIO.
016772
,WORD
,WORD
~WORD
"WOFtO
"WORD
,IF YOU WANT TO WRITE ANY
,OTHER PATTERNS, CHANGE THESE
;12 LOCATIONS TO A~Y PATTERN
,YOU WANT,
3550
3551
3552
3553
3554
3555
,.********~******************************************************
SEEK FUNCTION TIMER
3556
3557
3558
3559
,'TEST II
,"SEEK TIMER
,*IN THIS PART Of THE PROGRAM SEEKS ARE TIMED BETWEEN A PARTICULAR BE'j'
,.OF CYLINDERS, BOTH IN THE FOR.RAD DIRECTION (0-312) AND REVERSE(ll:l-01.
,**** ••• CAUTION*** •• *
3560
,*IT SHOULD BE NOTED THAT THE SECTOR COUNTER (IN RKDS) IS USED AS THE REAL
,*TIME CLOCK TO DO THE SEEK TIMING, FOR THE TIMES TO BE RELIABLE. THE
3561
)562
::~~~i~~ COUNr;~OS~~~L~ :~ !igR~~gs~~~~I:3:~~ ~iiiI~~g;~~~~o~~
3563
3564
3565
35&6
3567
,*VARIATION • • -30
012750
012754
012756
000004
032777
001002
000137
104415
104416
3S74
3575
3576
3577
3578
3579
]590
012760
012737
177771
012766
012772
104401
000424
012774
)581
3582
)583
3584
3585
3596
3587
3598
3589
3590
013044
013050
3568
3569
3570
3571
)572
3573
012136
012740
012746
000100
SCOPE
BI'f
BNE
166172
014106
RPM
# SW6,@SWR
, INHIBIT TIMER?
,+6
PLTGRPH
CON,RESET
JMP
DRV,RESET
001252
MOV
#-7, RETRYI
,COUNI FOR 7 OIrRNT SEEK TIMES
TYPE
,658
,,'UPE ASCIZ STRING
SR
646
fTO BE RECORDED
1/65$ ,
0131 14
013114
011120
104401
000421
TYPE
013 OS 2
,,67$,
666.
104401
000421
013122
,,696 i
QI3164
Oll164
,Ascn
SR
,61$
66$
,ASCIZ
<15><12><12'1
TYPE
BR
,ASCIZ
69$
6BG
<15><12>1 SEEKS
012737
001542
001250
MOV
#SIAD,INADR
r
;;TI'E ASCIZ STRING
nGET OVER THE ASClZ
SEEK
OF
i
SEEKI
OF
;,TYPE ASCIZ STRING
II GET
OVER THE Asca
TIME
SEEKS
TIME/<15><12>
MACYI! 30(1046)
I4-JUL-77
08,03
SEEK FUNCTION TIMER
013172
012737
001524
001262
~ov
013200
017777
166056
166256
REPTIM. MOV
013206
013214
166250
013222
013224
053717
012777
104421
104422
001230
000011
3597
005037
012704
001474
027026
CLR
012705
027426
MOV
012737
177634
013250
013254
013702
001464
001474
013260
00io05
013262
013266
013272
017712
013274
013300
013304
011712
053712
165762
0012)0
004737
014776
013310
013314
013316
013320
005'137
001474
013324
000751
013326
013330
olons
005037
001474
013334
013340
005237
001476
005737
:INlTLZE PTRTO INNER ADRES
PAGE 69
Til
3593
3594
3595
3596
013232
013236
013242
MILl SECSI
68$ •
3591
3592
013226
/I GET OVER THE ASCIZ
/SEEK TIME SCAL~ FACTORoO,OI
641.
013044
MD-I! ·DZRKI.-E, RKI1-RK05 DYNAMIC TEST
DZRKLE.P! t
26-UR-n 12.27
3598
3599
3600
3601
3602
360l
3604
3605
3606
3607
3608
THE DISK
',.* ••••••••••••••••••••••••••••••••• ** ••••••••••••••••••••••••••
T5TII ,
,INITLZE
,POSITION HEADS TO OUTER CYLlNDER
,BEFORE STARTING TO TIME
ISET DRIVE # BITS
,SEEK, GO
,WAIT FOR eNTRI. RDY
,WAIT FOR R/W/S ROY
81S
DRIVAO,@RKDA
MOV
#11.@RKCS
CON,,:RDY
166234
TST$RWS
MDV
001476
MOV
BEGSK,
PTR TO OUTER ADRES
I SOAD. QUTADR
@OUTAOR.@RKDA
,
INOXl
SSUFRIO,R4
#BUFRl1 , RS
#-144, INOX2
IINDXI • 0, GOING IN, OTHERWISE OUT
,STORE ,WPD SEEK TIMES IN THIS BUFR
,STORE REVRSE "
,SET COUNT FOR # OF SEEKS
MOV
TST
BNE
,GOING FWHD DR REVRSE1
,PEVRSE, BftANCH
3609
3610
3611
3612
3613
3614
3615
3616
3617
05371 2
165772
001230
000404
BIS
UNADR,@R2
DRIVAO.@R2
BR
MOV
28
MOV
BIS
JSR
@OUTADR.oR2
DRIVAD,@FJ
pc,@nIMSEK
361B
3619
3620
3621
3622
3623
3624
3625
3626
3627
3628
3629
3630
3531
3632
3633
3634
3635
3636
3637
3638
3639
001004
010324
005237
001341
001474
TST
INOXI
SNE
MOV
lNC
SR
33
BEG5K
MOV
eLR
F3, CRS).
INDXI
INC
BNE
INDX.
BEGSK
R3,C@4l+
INDXI
IF.RD, SET INNER eXL
,SET DRIVE # BITS
ADRES
,SET OUTER CYL ADRES
,SET DRIVE • BITS
,GO,-TIME THE SEEK FROM CYLINDER
,0 TO THE ABOVE cn. RETURN WITH
,F3 CONTAINING THE TIME (MS, SCA~E
,FACTOR= 0,01) REQUIRED FOR THE SEEK,
,STORE TIME TAKEN FOR FRWRD SEEK
,SET FLAG FOR DOING REVNSE SEEK
,GO DO IT
, STORE TIME TAKEN FOR REVRSE SEEK
,CLR FLG FOR DOING fRWRD SEEK
,RECORDED 144 SEEK TIMES
:IF
NOT. GO BAR
:~iL~~~~R~O;~~R~~~OS!E~~V~~~~ ~i~~c~~~~~~ME~o~~~=~E~E~~O
,TIMES ARE STORED IN TABLE STARTING AT 'BUFRIO' REVERSE
,STARTING AT 'SUFRII',
THE FOLLOWING CODE FINDS OUT THE
,NUMBERS OF TIMES A PARTICULAR 'SEEK TIME' WAS OBTAINED,
,EXAMPLE! OUT or 100 TIMES THE SEEK WAS DONE BETWEEN
,CYLINDER 0 , LAST,
,70 TIMES IT TOOK 95 MILl SEes
3640
,20 TIMES IT TOOK 85 MILl SEes
3641
110 TIMES IT TOOK laO MILl SEes
3642
3643
3644
,THIS INDICATES HOW CONSISTENT WAS THE SEEKING TIME,
,NOTE THAT ONLY 5 DIFFERENT 'SEEK TIMES' WILL BE TYPED
,OUTII>
3645
3646
,SORTING ROUTINE
MD.lI o DUKL_E, ~ltl I-RKOS 'DYNAMIC
DZRKLE,PII
2S-APR-n 121,27
3647
3649
3649
3650
3651
3652
3653
3654
3655
365&
3657
3658
3&59
3660
3661
3662
3663
)664
3665
TEST
MACYll )0(10461 14-JUL-77 08103
SEEK FUNCTION TIMER
T11
sonl
013)46
013354
011362
011370
012705
012737
012737
012737
012737
177776
027026
027030
026526
D26606
013376
013402
013406
013412
013700
013701
012702
005003
001162
001164
013414
013416
013420
013422
013424
013426
013430
011432
013436
013440
013442
0210tl
003404
011004
011110
010411
00520)
005720
005721
005202
001366
005703
001355
3672
3673
3674
3675
3&16
3677
36H
367"
3680
36ij 1
3682
3.83
36H
36R5
3686
3687
3686
3689
3690
3691
3692
013444
013450
013454
013460
1113462
013464
013466
013470
013472
013474
013700
013701
00702
010204
005024
005024
005024
005024
005024
012703
013500
013502
013506
013510
Oil 011
012703 ' 177634
022011
001411
013512
013514
013520
013522
013526
005721
016011
005722
012712
005203
3693
3694
3695
3696
3697
013530
013532
001404
000765
013534
013536
013540
005212
00520]
001362
5$1
013542
013544
005205
001415
681
366b
3667
36b8
36b9
3&70
013342
013434
001162
001164'
001166
001170
181
177635
2$1
38,
MOV
PAOE 70
."2, A5
MOV
MOV
MOV
MOV
,COUNT FOR FRWRD, REV liS!
.BurRI 0, .REGO
,INTLZE PTR TO 'SEEK TIME'
UUFRIO+2, 'REGI
I8UFR4,SREG2
,INTUE PTR TO 'f or TIMES'
nurR5,. REG3
MOV
MOV
HOV
CLR
,REGO,RO
aREGI,RI
j"IU,R2
R3
,PTR T 'SEEK TIME'
,COUNT FOR 143 ITEMS TO SORT
CMP
(RO)'(RI)
&LE
38
MOV
MOY
MOV
(RO),M
(1111,(110)
INC
TST
TST
INC
,SORT THE ITEMS' PUT THEM
,IN DESCENDING ORDER
,LARGER ITEMS AT TOP IlF LIST,
,SMALLER AT THE BOTTOM
~4,(Rll
113
(RO).
(Pllt
112
SNE
2.
TST
BNE
R3
MOV
MOV
MOV
MOV
CuR
CLR
CuR
CLR
CLR
MOV
IREGO, RO
$REG2,RI
IREG3,R2
R2,R4
(R4)+
(R4).
(R4)+
(R4)'
,sonED ALL lTEMsY
,IF NOT LOOP BACK
U
3~71
3~98
3099
3700
37(11
001162
001166
001170
177773
4$1
177776
00000 I
,PTR TO 'SEEK TIME'
,SAVE 'SEEK TIME' HERE
,SAVE " or TIMES' HERE
,CLR OUT 5 WORDS OF
," OF TIMES'BUFR
(R4)'
.0S, R3
;SAI/E ONLY 5 DIFRNT 'SEEK TIMES'
MOV
MOV
CMP
(ROldRI)
JFIND OUT THE "
'-144,~3
,EACH
'SE~K
OF TIMES'
TIME' WAS
(RO)+,(RII
BEQ
5$
,OBTAINED
1ST
MOV
TST
MOV
INC
CRtl+
w2CROl,cRII
JSAVJ£ 'SEEK
TIME"
~KEEP
'rIMES"
SEQ
BR
6$
4$
INC
INC
BNE
(R2)
R3
4$
,INCRMNT ' . OF nMES'
,ALL DONn
,IF NOT, GO SAl<
INC
BEQ
RS
GOTYPE
,SORTED BOTH FRWRD, REVRS!
,'SEEK TIMES', IF YES GO TYPE
(R2l+
II, CR2)
R3
". or
]702
MDwll-DZRKL.E, RKII-RK05 DYNAMIC TEST
DZRnE.PII
26-APR-77 12127
3703
37114
3705
3706
013546
013554
0135&2
013570
012737
012737
012737
012737
3707
3708
013576
0,00677
027426
027430
026666
026746
MACYlI 30C 1046)
I4-JUL-77 08103
Til
SEEK FUNCTION TIMER
001162
001164
001166
001170
PAGE 71
MOV
MOV
MOV
MOV
,BurRI I , UEGO
,IF NOT, INITLZE PTR TO 'SEEK TIME'
#BurRII +2, .REGI
'BurR6,SREG2
,SAVE 'SEEK TIME'
#BUFR7, SREG3
,SAVE 't OF TIMES' HERE
BR
18
,GO BAK ,
DO SORTING FOR REVRSE SEEK TIMES
37t}9
3710
3711
3712
3713
3714
3715
371.
3717
3718
3719
3720
3711
372<
3723
3724
372~
3726
3727
3728
3729
3730
3731
3732
3733
3734
373~
3736
3737
3738
3739
3740
3741
3742
3743
3744
3745
3746
3747
3748
3749
3750
3751
3752
3753
3754
3755
3756
3757
]758
,TYPE OUT CXL ,'S BETWEEN WHICH SEEK
,WAS TIMED,
"QUTADR" TO II'INADRq "INADR- TO ·OUTADR"
013600
013602
013604
013610
104401
001213
104401
00040)
GOTYPEI TYPE
eCRLF
TYPE
013612
I/6SS.
64$1
013620
0\3620
013624
013626
013630
013632
013634
013636
013640
013642
013646
017100
006200
006200
006200
006200
006200
010046
104424
104401
000401
013652
013652
1113656
013&60
013662
013664
013666
013670
013672
013674
013700
017701
006201
006201
006201
006201
006201
010146
104434
104401
000405
013714
013714
013720
013724
104401
104401
000404
165436
,65'
64.
,ASClZ
lelLs,1
MOV
@OUTADR,M
110
110
RO
RO
RO
RO,-(SP)
ASR
0136~0
,,6781
66$1
165402
ASR
ASR
ASR
ASR
HOV
TYPDSS
TYPE
SR
.ASCIZ
MOV
ASR
ASR
ASR
ABR
ASR
MOV
TYPDSS
013702
TYPE
BR
,,6981
6851
002101
013726
1171$1
013736
"TYPE ASCIZ STRING
"GET OVER THE ASCIZ
8R
,TYPE IT OUT IN DECIMAL
"TYPE ASCIZ STRING
"GET OVER THE ASCIZ
,678
668
I-I
UNADR,RI
RI
III
III
RI
III
1It,-(SP)
,69'
,GET OUTER elL I
,AseIZ
688
<15><12>1
TYPE
TYPE
SR
,lSCIZ
,7U
,GET INNER CYL
,TYPE IT OUT IN DECIMAL
"TYPE Asca STRING
, ,GET OVER TH! ABC IZ
FRWRDI
,BLNKS9
70'
IREVRSEI
"TYPE ASCIZ STRING
"GET OVE~ THE ASCIZ
70"
,TYPE OUT THE 't or SEEKS' & ' SEEK
ITIME' OBTAINED FOR EACH or THOSE
,SEEKS
013736
013740
013742
013744
013746
013752
013754
005000
005005
104401
001213
016046
001424
104405
TiPTIMI CLR
CLR
lSI
026606
110
115
TYPE
SCRL'
MOV
BEG
Tnos
BUI'RS(RO),"(SP) ,GET ' . or SI!:EKII', IF NONE (01
,SKIP TYPING U'RMRD SEEK)
U
,GO TYPE OUT CECIMAL ' f or SEEKS'
MD-II-DZRKL.E, RKII-RK05 DYNAMIC TEST
DZRKLE,PII
26-APR-n 12127
3759
3760
3761
3762
3763
3764
3765
3766
3767
3768
3769
013756
013760
013762
013766
3772
013770
013774
013776
014000
014002
014006
014010
014012
3773
014014
3770
3771
104401
002110
016046
104405
016046
001416
MACYII 30(1046) 14.~UL-77 08103
I'll
SEEK FUNCTION TIMER
TYPE
BLNKS2
026526
IIOV
026746
MOV
BEQ
TST
BEQ
TYPE
TYPOS
TYPE
BLNKS2
MOV
TY.PDS
005705
001402
104401
104405
104401
002110
016046
002075
681
026666
3774
014020
3775
3776
014022
104405
000406
3777
014024
014026
014030
005126
005205
000757
3$1
014032
014034
014036
005726
005705
001004
.$1
014040
014042
014046
005720
020027
001335
014050
014056
014064
014070
014072
062737
000002
062737
005237
001406
000002
3778
3779
3780
3781
3782
3783
3784
3785
3786
3797
581
000012
3790
3791
3792
3793
3794
3795
3796
3,.7
3798
3799
014100
014102
001260
001262
001252
032777
000100
001402
000137
013200
165040
BUFR4(RO),-(SP) ,GET 'SEEK TIME' rOR EACH or
,or THAT 'I OF SEEKS', 'GO
,TYPE OUT IN DECIMAL
BUFR7(RO)'-(SP) ,GET " OF SEEKS', IF NONE (0)
4$
,SKIP TYPING (REVRS! SEEK)
RS
6S
,BLNKI3
,TYPE OUT IN DECIMAL
TYPDl!
BUFR6(RO),-(SP) ,GET 'SEEK TIME' & TYPE IT
,OUT IN DECIMAL
BR
58
T8T
INC
(SI'I<
RS
BR
28
TBT
TST
BNE
R5
TIMDON
(51')+
TST
CMP
SNE
3788
3789
PAGE 72
(RO"
RO,U2
I
TIMDON. ADD
ADD
INC
BEQ
BIT
BEQ
uHP
IS
n,INADR
.2,OUTAOR
RETRYI
PLTGRPH
#SW6,PSWR
PLTGRPH
REPTIM
,POP STACK
I POP STACK
,INCREMENT PTR TO TABLES
,ALL DONEl
,IF NOT GO BAK
,INCRMNT POINTER TO NEXT
,INNER & OUTER ADRES
,ALL DONEl
,INHIBIT TIMER? FURTHER
,YES, BRANCH
,GO, BACK AND TIME REST
,OF SEEKS
,PLOT GRAPH or 'SEEK TIME' VIS 'CYLIDERS SEEKED'
3800
3801
,PERFORM SEEK FROM CYLINDER 0 TO EVERY OTHER CYLINDER AND TIME IT,
,0
0,0
1,····0 312, NOTE 'SECTOR COUNTER' IS USED AS A READ
,TIME CLOCK TO TIME THERE SEEKS. AFTER OBTAINING THE SEEK TIMES A
3802
3803
3904
,GRAPH IS PLOTTED OF 'SEEK TIME' VIS 'CYLINDER',
3805
3806
3807
3808
3809
3810
3811
3912
l81l
3814
0'4106
014114
014116
014122
014124
014126
014134
032777
000040
001002
000137
104415
104416
015224
012737
177465
012704
027026
165024
001500
MO-ll-DZPKL_E, RK11.R~05 DYNAMIC TEST
DZRKLE.PII
a-APR-" 12,27
014140
005037
001260
3916
3817
3818
3819
014144
014152
013777
053777
001260
001230
3820
014160
004737
014776
0\4164
010324
042777
3~IS
3821
3822
3923
3824
3925
3826
3827
3828
3829
3830
3UI
3832
014166
014174
014202
014204
014206
014214
014220
013777
104421
104422
062737
005237
165312
,TIME THE SEEKS
PLTGRPH. BIT 'SW5,@SWR
BNE
,+6
JMP
TSTI2
CON,RESET
DRV,RESET
MOV
$-313,INDX3
MOV
nUrRlo,R.
165270
165254
000040
001500
00U60
,YES, BRANCH
,PERFORM 1I3 SEEKS 0-0,0-1,0-312
,STORE 'SEEK TIME' HERE
MACYII 300046) I4·JUL·77 09103
SEEK FUNCTION TIMEP
PAGE 73
TIl
IS,
165304
017777
000011
,SKIP THE GRAPHl
CLR
INADR
,CLR cn ADRES SITS
MOV
BIS
INADR,tRKDA
DPIVAD, 'RKDA
,ADRES THE RIGHT CYLINDER
,ADRES THE RIGHT DRIVE
JSR
PC,TIMSEK
HOV
BIC
113, (lI4)+
,GO TIME THE SEEK FROM CYL 0
,TO TijE ABOVE CYL, RETURN WITH
,R3 CONTAINING 'SEEK TIME' IN HS
iSCALE FACTOR or 0,01
,STORE 'SEEK TIME'
,SEEK BACK TO eYL 0 FOR
,TIMING NXT elL SEgK
,WAIT FOR CNTRL ROY?
,WAIT rDR R/W/S ROY
,FORM NXT eYL ADRES
#17771, 'RKDA
MOY
#1I.@RKes
CON,RDY
TST,RHS
ADD
UO,INADR
SNE
lNDU
1$
INC
001151
,PLOT A GRAPH USING 'SEEK TIMES' RECORDED BEFORE
3833
3834
3835
3836
3837
3938
3839
3840
3841
3842
3843
3844
3845
3846
3847
3848
3949
3850
3851
3852
3953
3954
3855
3856
3857
].958
3859
3860
3861
3862
3863
3864
014222
014222
014226
3810
104401
000422
014230
,,6581
0142.74
014274
014300
014352
014354
014356
014]60
014362
014]64
014366
TYPE
SR
,ASCIZ
"TYPE ASCIZ STRING
"GET OVER THE ASCIZ
<15><\2><\2><\3>/X AXIS· SEEK TIME - MILl SECSI
,65.
648
64$1
104401
000423
014302
,,678.
66f1
014350
014350
104401
002103
005000
010046
005700
001411
022700
003010
022700
002412
104401
002110
000404
104401
002111
104401
002107
062700
000154
014426
014430
014432
104401
00121l
104401
014434
002103
TYPE
SR
.AseIZ
,678
668
"TYPE ASCIZ STRING
, ,GET OVER THE ASC IZ
<15><12>/Y AXIS • CYLINDER SEEKED FROM 0/<15><12><12>
TYPE
BLNK&7
101
104424
014112
014374
014400
014402
014404
014406
014410
014412
014414
014416
014420
014424
3865
.3866
3867
3868
3869
PLOT.
CLR
MOV
RO
RO.-!SP)
TYPD5B
BEQ
TST
RO
23
BG'f
U44.RO
48
000144
eMP
000170
CMP
BLT
TYPE
BLNKS2
BR
281
481
000012
351
5$1
TYPE
BLNKSI
TYPE
BLNKS3
ADD
BR
TYPE
GeRL ..
TYPE
BLNltS7
#l70,RO
5.
38
#I2,RO
18
,TYPE OUT THE TIME UNITS
,(MILl SECS) FOR THE X-AXIS
,LUE THISI
]0
,0
20
40!l
tI i'
III ,
MD-II-OZRKL.E, RKI '-RK05 DYNAMIC TEST
DZRKLE, PI!
26-APR-77 12 r 27
len
3~71
O! 4436
014442
012700
177763
)873
3814
014442
014446
104401
000403
014450
3975
3~ 7b
3877
014456
014456
3878
3879
014460
MACYlI
Tl!
PLTll
30(1046)
14-JUL-77
Og,03
SEEK rUNCTION TIMER
MOV
:EY?!
TYPE
:,TY?E AseiZ
SR
,ASCIZ
INC
aNE
005200
001370
HO
1$
,IF IW 4 IS SET THEN TYPE THE COMPLETE GRAPH,
014462
014470
OJ2777
001054
3~Fl8
014472
005000
3 R!:I9
')14474
014502
014504
014506
OJ2777
001445
3902
3903
J904
3905
3906
3 q {l7
3908
3 Q 09
3910
3911
3912
391 J
3914
3915
J 916
J 91 7
J9t 9
3919
I-AXIl "ARKERS
STRING
nGET OVER·THE Isea
38 B 1
1890
1891
3892
3893
1894
3895
J896
3897
38 ~8
3899
J900
3901
THE
OUT
1$,
3880
HB2
3883
3884
3885
38B6
3" 8 7
PAGE 74
000020
164450
BIT
BNE
SMGRP,
000040
164436
CMPGRP
CLR
PO
BEQ
5S
BIT
IS,
#IW4,gSw'P
104401
00!213
TYPE
SCRLF
IlI0046
104405
MOV
NOT
IF
UPE THE SMALL
GRAPH,
,TYPE COMPLETE GRAPH?
: YES BRANCH
:1, NOT, TYPE SMALL GRAPH
,SKIP HEST Of GRAPH?
,rES
:IN THIS GRAPH SEEK TrMES
,PLOTTED ONLY FOR SELECTED
,CYLINDERS (NOT ALL) SHOWN BELOW I
~SW5,@SWR
JO,l,2,3,4,
ARE
6,8,10,12,14,16,18,20,
203
J2S,30,35'~$tf190,195,200,
014510
u 14512
014514
014520
014524
014524
01452"
014530
() t 4:5 34
014540
014544
U14s46
104401
MOV
ASL
MOV
027026
000751
022700
003403
062700
0146 00
01.602
000735
(l14fl06
00140 3
{) 1 '+610
() 14614
014616
062700
000727
01)0137
000743
022700
0{)3403
062700
022700
nTYPE ASCIZ STRING
"GET
RQ,R1
jfORM THE ADRES
RI
BUFRIOCRll.R3
PC,PLTPT
:GET THE St:EK Tll-iE
JIR
000004
C"P
BLE
#4, flO
,PLOTTED UPTO
2$
:YES
INC
BR
RO
2$ ,
000024
eMP
BLE
ADD
000002
SP
eMP
3$ ,
000310
BLE
ADD
000005
ASCIZ
OVER THE
014736
005200
014550
014552
011556
n 14560
014564
0145b6
014572
014574
:TYPE THE MARKERS
TYPOl
TYPE
BR
,ASC I Z
014522
000401
010001
006301
016103
004137
022700
003402
RO,-CSP)
'SEEK
TIME~
JGO PLOT IT
4?
1S
#24,RO
O~
en
,PLOTTED UPIO
en
201
36
#2,RQ
1$
1Il310,RO
:PLOTTED UPTO CYL 200?
4S
#5,RO
IS
~312,RO
000312
,PLOTTED ALL CYLS?
5$
000002
ADD
#2,PO
015224
SR
JMP
TST!.2
5$ :
,I'
sw
1$
4 IS SET THE COMPLETE GRAPH IS PRINTED OUT. IT GIVES TIMES FOR
(0,1,2,3~H202)~
,SEEKS FROM CYLINDER 0 TO ALL OTHER CYLINDERS
MO.,,-0ZPKL_E, ?KI!-PKOS DYNAMIC
DZPKLE,P!1
2S-APR-7) 12127
TEST
MAO!!
Til
JOCI046)
14-JUL-77
08:03
SEEK FUNCTION TIMER
PAGE 75
J9~7
)928
3Q29
3930
3931
]q32
19 3 J
39.3 4
J9 35
39 J6
J9n
3938
3939
3940
3941
3942
J913
3944
3945
3946
3947
194R
3949
39 50
)951
195.
3953
)054
3955
3956
395)
J958
J959
3960
3961
3962
3963
3964
3965
3966
3967
3968
3969
3970
3971
3972
3973
3974
3975
1976
3977
3978
01"'622
005000
0\4624
014640
012701
U12702
104401
001213
000412
014642
Ol2771
014,30
Ot4634
014636
014650
014652
014656
014660
014662
014661;
CMPGRP'
177773
027026
001005
012701
RO
MDV
MOV
UBUrfl.l0,R2
BR
#SW5,@SW~
015224
BNE
JMP
INC
T5T12
BNE
4$
17777 3
MOV
#""5,Rl
164270
010046
MDV
104405
TYPDS
000402
BR
1)14674
0116"
014700
014700
014704
104401
002104
,SKIP REST OF GRAPH?
,+6
Rl
RO,-(SP)
; TYPE QUT ¥"'AXIS MARKER PC'lL
~'
,IF REQUIRED
iTXPE 'CYL
u~
ON
Y~AXIS
1(IN DECIMA.L)
5$
TYPE
BLNKS6
sa:
TYP~
014706
1165$.
BR
,65$
64$
.ASCIZ
I-I
n
TYPE
~SC
rz
STRI NG
ASCIZ
:,GET OVER THE
64$ ,
014".11 {)
014710
011712
012203
014716
014720
014722
014724
014730
014732
104401
001213
004737
014736
(R21+.R3
PC. PLTPT
:GO
,GET SEEK TIME
PLOT THE POINT
TYPE
SCRLF
005200
022700
001344
000137
May
JaR
000312
INC
eM?
RO
*312,RO
; ALL DONE?
SHE
JMP
23
TSTI2
:IF NOT,
GO BAR
IPLTPT
,THE ROUTINE IS ENTERED WITH R3 CONTAINING HORIZONTAL AXIS
,COORDINATE' SEEK TIME
,PLOT THE ACTUAL TIME ON THE GRAPH.
,CONVENTION A NUMBER LESS THAN HALF
IN KEEPING viITH NORMAL
THE CELL WIDTH IS
,CONSIDERED AS fALLING UNDER THE PREVIOUS CELL, A NUMBER
,GREATER THAN OR EQUAL TO HALF THE CELL WIDTH FALLS UNDER THE NEXT cttL
,EX,
IF SEEK TIME IS 11,5 MS,
,HENCE
IT WILL
,IT'S
BETW'N 10
,AS 10,0 M5
014736
014742
162703
002403
000310
PLTP! I
SUB
BLI
IT'S BET"N 10 & 12. BUT> 11
IS 10,8 HS,
BE PLOTTED
PLOTTED AS 12 IF SEEK TIME
& 12, BUT < 11 HENCE IT WILL
BE
,fIND OUT HOW MANY BLANKS TO
,INSERT TO PLOT THE POINT
,NOTE THE fIRST CELL. 0 MB
014744
104401
I'Y?E
3980
3981
014746
014750
014752
002111
000772
BL"KSl
BR
3982
014756
3979
: I~I!LZE COUNT
: INITLZE COUNT FOR Y-AXIS MARKER
,INlTLZE PTR TO SEEK TIMES
3$
BIT
000040
0'14670
Ot4672
104401
000401
w"'S,Rl
TYPE
SCRLF
001002
000117
005201
CLR
062703
002402
000144
ADD
BLT
MD.ll-DZ~KL.E,
DZRKLE,PI!
~K!I.RK05 DYNAMIC TEIIT
U-APII·77 12127
3983
014760
104401
3984
3985
3986
]987
3988
014762
002111
014764
0147&4
014770
104401
000401
TYPE
,,6581
648.
000207
4007
4008
4009
4010
4011
4012
4013
4014
4015
4016
4017
4018
401 9
4020
40H
4022
4023
4024
4025
4026
4027
40,28
4029
40]0
4031
4(132
4033
40]4
4035
PAGE 76
,653
64.
IXI
"TYPE ASCIZ STRING
"GET OVER THE ASCIZ
PC
,THIS ROUTINE I"INDS OUT THE TIME REQUIRED TO
BEE~ TO THE CYLINDER
,INDICATED IN RKDA.
,._.CAUTION ••• SECTOR COUNTER IS USED AS A REAL TIME CLOCK TO KEEP TIME,
PC , TINSEIt
,ENTRY, JSR
RKDA CONTAINS THE CYLINDER TO 8E SEEKED FROM THE PRESENT POSITION,
,RETURNI
Rl CONTAINS THE SEEK TIME IN ~ILI SECS, SCALE FACTOR. 0,01,
,
3999
4005
DR
,ASCIZ
US
3997
]998
.006
OBl03
,TINSEK
3993
3994
3995
3996
4000
4001
4002
4003
4004
a-JUL-??
SEEK FUNCTION TIMER
8$,
014772
014774
014774
Til
TYPE
BLNKSI
]989
3990
3991
3992
MACYlI 30(046)
014776
015000
015002
015006
015010
015014
010246
005003
0131<11
011102
032702
001774
015016
015022
032702
001771
015024
015026
015032
015034
1115036
U15040
015044
011102
032702
001774
021102
001372
032702
001367
015046
012777
015054
104421
015056
015060
011102
032702
015064
015066
015070
015072
015100
015104
001774
020211
001372
032702
001025
032702
001764
015106
015110
011102
032702
QI5076
TIMSEK, MOV
001452
111
000400
000010
281
000400
000017
000011
164402
CLR
MOV
MOV
BIT
R2,-CSP)
R3
RKDS,Rl
ORt. RZ
UOOiR2
BEQ
15
BIT
BEQ
18
MOV
BIT
SEQ
eMp
SNE
BIT
UIT3,R2
38.
000100
,WAIT FOR SECTOR 10 SO THAT
,U CAN START WAITING FOR
,INDEX, SEC 0
1400,U
28
,WAlT FOR SEC OX
'111,112
28
,WAIT fOR SEC O. INDEX MARK
lAS SOON AS IT IS SEC 0, ISSUE
IA SEEK & START TIMING
SNE
2.#17,112
MaV
#lI,.RKCS
,,ISSUE A SEEK,
MOV
BIT
SRI,1I2
1400,112
,GET IIKDS
,WAIT rOR SDK
BEQ
CMP
BNE
BIT
BNE
3.
U,SRI
38
UOO,R2
SKDON
#17,R2
BIT
000017
,WAIT FOR SDK
.1t1,1I2
CON,RDY
000400
,R] WILL COUNT REVOLUTIONS OF
,DISK (FROM INDEX MARK TO INDEX MARK)
;40 MILl SEes fOR EACH REV
BEQ
START TIMING
ITHE SEC COUNTER
,WAIT rOR CHTRL RDY
38
, INfO COIIIIECT7
,NO
,II/W/S ROY SET?
1IF YES, BRANCH
,WAIT rOR SEC CNTR TO MOVE
,FROM 0 TO 1
@RI,R2
HOO,Rl
,WAIT FOR SDK
4016
4037
4018
481
000400
MP-II-Dun.E, RKII-RK05 DYNAMIC TEST
DZRKLE,PI t
26·APR-" 12.27
4039
4040
4041
4042
4043
4044
4045
4046
4041
4048
4049
4050
4051
4052
MOV
BIT
MACYII 30(1046) 14-~UL-77 08103
SEEK FUNCTION TIMER
PAGE 77
Til
000100
BEQ
eMP
BNE
BIT
000017
BIT
015114
015116
015120
015122
015126
1115130
015134
001774
020211
001372
032702
001005
032702
001364
015136
015140
005203
000746
015142
015146
015/50
0)2702
00100\
005203
000017
015152
015152
015156
015160
015164
015166
015\10
015174
012746
010346
004'/.37
012616
012603
042702
060203
000014
177760
8IC
ADD
015176
015202
015204
015210
015212
015214
012746
010)46
004737
013616
012603
000512
MOV
HOV
020500
~SR
0627-03
000245
BNE
HNE
50 ,
4$
n,PRl
U
UOO,R2
58
"7, R2
4S
INC
~3
B~
3$
BIT
BNE
SKDON
INC
113
#17,R2
MOV
MOV
J&R
HOV
#U,-UP)
R],-(SP)
PC,SUNULT
MOV
(SPl+,Rl
U 77760, R2
,R/./S ROY SET, SEEK DONE?
, YES, BRANCH
,IF NOT KEEP TRACK OF SEC
,COUNTER, INCREMENT R3 AT
,EVERY INDEX MARK, EVERY
,4P MILl SECS
IGO BAK, KEEP TIME
:CHECK, IS IT INDEX MARK -SEC 0
,IF NOT, SKIP
IIF YES, INCREMENT COUNT
4053
,SEEK DONE, SAVE IIKDS-SEC COUNTER,
4054
4055
4056
4057
4058
4059
4060
4061
4062
4063
4064
4065
4066
4Q67
4068
4069
SKDONI
020500
(SP)., (SPl
R2.~1
'S12,-CSP)
R3,-(SP)
PC,@UMULT
MOV
(SPl+, (SP)
(SP)+,R3
ADD
U45,Rl
MOV
RTB
PC
MOV
4070
4071
4072
4073
4074
4075
4076
4077
4078
4079
4080
015220
012602
015222
000207
,*THIS IS NOT A TEST BUT IS JUST A
,.PROVIDED TO TEliT ALL THE DRIVES,
4083
4087
4088
4089
4090
4091
4092
4093
4094
-
"*********************************************************tt*****
,-TEST \2
END OF PROGRAM
4081
4082
4084
4085
4086
(SPl+,R2
/lPUT THE MULTIPLER ON THE STACK
"PU! THE MULTIPLICAND ON THE STACK
:,CALL THE MULTPLY ROUTINE
1I0ISREGARD THE MSB'S
"GET THE LSS'S OF THE PRODUCT
,SEEK, TOTAL TIME=(IN DECIMAL)
:((R3lXI2+SEC COUNTERlX]30XO,Ol
1NOTE THERE IS A SCALE FACTOR
"PUT THE MULTIPLER ON THE STACK
"PUT THE MULTIPLICAND ON THE"STACK
"CALL THE MULTPLY ROUTINE
"DISREGARD THE MS8'S
"GET THE LSB'S OF THE PRODUCT
,ASSUMPTION THAT EACH SECTOR
:TAXES 3,] MILl SECS, IF THE
,DIS~ SPEED IS VERY MUCH DlrRNT
,FROM THE SPEC SPEED OF
,1500 RPM (40 MS/REV), THEN
:SEC COUNTER WOULO NOT BE AN
,ACCURATE TIME CLOCK,
,POP R2 SAK
,RETURN
015224
015226
015232
0.t5240
015242
000004
105337
12J137
******************************************************it****
.....
SCOPE
J•
f8TUI
001223
OOI2U
BEQ
DRVDDN .
DIIVDON,DRlVS
,+6
JMP
NX'I'DRV
INca
001224
8TEOPI
001402
000137
LIN~AGE
003760
,SBTTL
eMPS.
END OF PASS ROUTINE
p,-***"_*---****-***_._.**._**** •••• *--*********.************ .. **.
,_INCREMENT THE PASS NUMBER (SPASS)
MO.lI-DZRKL.E, RKII-RK05 DYNAMIC TEST
DZRKLE,PII
26-APR·77 ! 2127
4095
4096
4097
4098
4099
4100
4101
4102
41 0 l
4! 04
4 I 05
4106
4107
4 I 08
4109
4110
4111
41 !2
41 I J
4114
4115
4! 16
4117
41 I ij
4119
4110
4121
4122
41<3
4124
4125
4126
4! 27
4118
4t19
MACY11 30(1046)
14-,JUL-77
END OF PASS ROUTINE
08103
?AG£ 78
,"INOICATg END-Or-PROGRAM AFTER I PASSES THRU THE PROGRAM
,OTYPE "END PASS IXXXXX' (WHElIE nux IS A DECIMAL NUMBER)
,oIF THERES A MONITOR GO TO IT
"IF THERE ISN'T JUMP TO BT3
015246
015246
015250
015254
015260
015266
015270
015272
015274
015276
0.5300
015302
015306
015312
015314
015320
015324
015326
015330
015332
015334
015336
,,15 J 40
0(5)40
"15342
015344
015347
Ot5154
015]62
OEOPI
000004
005037
005237
042737
005321
000001
003022
012737
000001
015270
104401
013746
104405
104401
013700
001405
000005
004710
000240
000240
000240
SCOPE
001102
001100
100000
CLR
INC
BIC
DEC
0011GD
BEopeT.
fjWORD
BGT
MOV
SENDCT.
~WORD
SEoper
TYPE
MOV
rYPDS
015347
001100
TYPe
015344
000042
GGET421
MOV
BEY
RESET
SENDAOI JSR
NOP
STSTNM
HASS
#100000, .PASS
(PCl<
I
3DOAGN
(PCI.,@(PCl+
I
J I ZERO THE TEST NUMBER
I,INCREMENT THE PASS NUMBER
I,DON'T ALLOW A NI!:G& NUMBER
I ' LOOPT
" YES
, ,RESTORE COUNTER
i,TYPE "END PASS
,UNDMG
SPA55,-CSP)
#"
"SAVE 8PASS FOR TYPEOUT
; , GO TYPE-·DEC IMAL ASC II WITH SIGN
IITYPE A NULL CHARACTER
IIGET MONITOR ADDRESS
"BRANCH If NO MONITOR
,SENULL
@i42,M
$DOAGN
THE WORLD
"C~EAR
PC, (Rol
:IGO TO MONITOR
"SAVE ROOM
, ,fOR
nACTII
N()P
NOP
GDDAGNI
000137
003742
377
015
050040
000043
JMP
377
042412
05\501
000
042116
020123
MD·II-OZRKL.E, RK11-RKOS DyNAMIC TEST
DZRnE,Pll
26 0 APP-77 12.27
SRTNAOI ~wORD
S ENULL I ~B:tTE
SEND"G. • ASC I Z
@(PCl+
BTl
"RETURN
""1,"'1,0
;, I\lULL
CHARACTER STRING
<15><12>/END PASS ,/
MACYl! 30(1046) 14-JUL-77
END OF PASS ROUTINE
0810]
PAGE 79
I COMMON SUBROUTINES AND HANDLERS
41 J 0
4! 1I
4 I 32
41 .1 J
41H
4! 35
,SBTTL ESRIS
,ESRI5
,THIS ROUTINE IS USED TO THE OUT ERROR DATA FOR ITEM 15
,OF THE ERROR nSLE,
AT THE 1l1'E Of ENTRY !NTO THIS
,ROUTINE P5 CONTAINS THE DISK ADDRt;SS FROM WHICH THE 12
,HEAOERS WERE READ, THE SECTOR " 5 WHICH GAVE BAD HEADERS HAVE
,BEEN STORED STARTING AT 'SUH'.
THE CORRESPONDING BAD HEADERS
,HAVE BEEN STORED STARTING AT 'SUfRI'.
4136
4137
4138
41 3q
4140
4! 4!
4! 42
JTHE PRINTOUT LOOKS LIKE.
4143
.
4 I 44
4145
4146
,SEC'
HDR REevo
,AI
BBBBBS
,
l.oSAO SEC'
,EXPCTD HDR=XXXXXX
4147
B8SBBB_SAD HEADER
TRU_
41 -18
4161
015364
015364
015366
015370
015374
a I 5400
015402
015404
015405
015406
015410
015412
015414
015416
015420
41 b4
() 15 422
4165
015424
01542.
41(,19
41 SO
4151
4152
4153
4 I 54
4155
4156
4157
415B
415.
4160
4161
4162
4166
4]'67
4168
4169
4170
417!
4112
4173
4114
4175
4176
4177
4178
4119
4180
41 8 1
4182
4183
4184
4185
[SRI5.
01543'2
010146
010246
012701
012702
012146
104403
002
000
104401
002107
012246
! 04402
104401
002106
104401
001213
022711
001362
015434
015436
015440
015442
015446
\04401
001716
010546
042716
104402
015450
015452
015454
012602
012601
000207
001266
001320
1 $,
~10V
RI,-CSP)
MOV
R2.-CSPl
MDV
MOV
MDV
ISUfR,RI
IBUFRI,A.
"PUSH RI ON STACK
:, PUSH R2 ON STACK
,SEC ,'5 STORED HERE PREVIOUSLY
,BAD HORS STORED HERE PRVSLY
(Rll+,-(SP)
TYPOS
,BYTE
,Bnl
TYPE
BLNKS3
,GO TYPE OUT BAD SEC. (OCTAL)
: ON"! 2 DIGITS
MDV
; GO TYPE OUT BAD HEADER
;SUPRES LDG
O~5
,TYPE 3 BLNKS
TYPOC
TYPE
177777
160037
BLNKS4
TYPE
SCRLF
CMP
BNI
TYPE
MSGS
MOV
SIC
TYRDC
MOV
MOV
RTB
077777'(RI)
IS
R5,-CSP)
; ALL BAD
SEC
o'S
TYPO OUT?
,If NOT GO BAK
,TYPE OUT EXPCTD HEADER FOR
!160037, (SP)
;THAT CYLINDER
(SP)+,P2
(SP)+,R!
PC
, ,POP STACK INTO R2
"POP STACK INTO RI
,BBTTL ESR!l
,ESR! 3
,THIS ROUT!NE IS USED WITH 'ERROR lJ"
TO TYPEOUT OUT ERROR
,DATA,
THE SECTOR .'5 WHICH GAVE BAD HEADERS HAVE BEEN STORED
,STARTING AT 'SUFR', THE CORRESPONDING BAD HEADERS HAVE
,BEEN STORED STARTING AT 'BUFRI',
R5 CONTAINS THE EXPECTED
MD-II-DZRKL.E, RKII-RK05 DYNAMIC TEST
DZRKU.PII
26-APR.77 12127
4186
4187
4188
4189
MACYII 30(1046)
ESRIl
14-JUL-77
,HEADER FOR THAT CYLINDER,
I SECf
lAA
BBSBBS
004737
104401
000404
ESRIl.
015364
015470
, ,658.
4196
4197
4198
4199
4200
4201
4202
4203
4204
4205
4206
4207
4208
015500
015500
015502
015506
015510
015512
THE TYPEOUT LOOKS LIKE
AAaBAD SEC'
BBBBBBaBAD HEADER
SURaZ
TRY'. Y
:EXPCTD HDRaXXXXXX
015456
015462
015466
PAGE 80
HOR RCVD
4190
4191
4192
4193
4194
4195
08103
JSR
PC,ESRI5
TYPE
,658
SR
648
.A8CIZ
I
CLR
-(SP)
Uo,R5
BEQ
INC
TYPOC
IS
TYPE
HOV
INC
TYPOC
RTS
,MSGIl
RURU,-(SP)
(SP)
SUR:I
"TYPE ASCIZ STRING
"GET OVE~ THE ASCIZ
64$1
005046
03270S
BIT
000020
001401
005216
104402
015514
104401
015520
015524
015526
015530
013746
005216
18,
002053
001254
104402
000207
,SUR 0 OR II?
(SP)
PC
nOg
4210
4211
4212
4213
4214
4215
,SBTTL ESR20
,ESR20
,SUBROUTINE TO TYPE OUT ERROR DATA FOR 'ERROR 20', AT THE TIME
,OF ENTRY. TABLE STARTING AT 'BUFR' CONTAINS SECTOR ,'S THAT GAVE BAD
,HEADERS, TABLE AT, 'BUFRI' CONTAINS BAD HEADERS, RS CONTAINS EXPECTED
,HEADER FOR THE CYLINDER, 'INADR' AND 'OUTADR' CONTAIN THE CYLINDER ,ADDRESSES BETWEEN WHICH THE IMPLIED SEEK WAS TRIED.
4216
42\7
4218
4219
4220
4221
4222
4223
4224
4225
4226
4227
4228
4229
4230
4231
4232
4233
4234
4235
42J6
4237
4238
4239
4240
015532
015536
004737
004737
015456
016320
015542
015546
104401
000404
015550
ESR20.
,,65$1
015560
015560
015564
015566
015567
015570
015574
648.
013746
104403
003
000
104401
000404
015576
013746
001164
RES,RO
015744
010037
001170
MOV
RO •• REG3
015750
004737
016220
"SR
PC,BRRCA
,GO BREAK ABOVE DISK AD RES
,INTO CYL', SUR', SECt
015754
015760
015762
015763
015764
013746
001174
MOV
TYPo.S
,BYTE
$REG5,-(SPl
,GET THE CYL.
,TYPE IT
,ONLY 3 DIGITS
,NO LEADING O'S
015766
000300
005300
104403
003
000
104401
002107
381
,BYTE
TYPE
BLNItU
; PO CONTAINS THE DISK
,ADRES FROM WHICH THE (BAD)
,DATA WAS READ
)
MD-l1-0ZRKL.e:, RK II-RK05 DYNAMIC TES,!
DZRKLE,PII
26-APR·77 12127,
4298
4299
4300
4301
4302
4]03
4304
015770
015774
015776
015777
013746
104403
016000
016002
104401
002106
016004
016010
016012
016013
013146
104403
002
000
016014
016016
MACYll 30(1046)
EaR25
MOV
TYPOS
001176
14-,JUL-77
lREG6,-(SP)
PAGE 82
,GET SUR
,TYPE
~
,I DIGIT ONLY
• BYTE
~Ol
0810]
,BYTE
000
TYPE
BLNKS4
4305
43tJ6
4307
4308
4309
4310
4311
4312
4313
4314
43\5
431.
4317
4llP
4319
4320
4321
MOV
TYPOS
8REG7,-(SP)
,GET SEC.
,SYTE
,BYT!:
2
12 DIGITS
0
005722
020205
TST
CMP
(R2).
R2,RS
016020
016022
016024
016026
016032
016036
016040
016041
001306
104401
002053
013746
062716
IOH03
001
000
BNE
TYPE
MSG13
MOV
ADD
TYPOS
1&
016042
000207
001200
001254
000003
;T~PE
,INCREMNT PTR
,TYPED OUT ALL BAD DATA
,INfO?
,If NOT LUP BAK
TP~
RETRY2,-(SP)
'3,(SP)
• S~
,GET RETRY COUNT
,fORM THE RETRY NO.
,TYPE IT OUT
,BYTE
,BYTE
43:;2
4323
,IF YES, RETURN
PC
,MESSAGE HANDLE~
,THE MESSAGE HANDLE~ IS USED fOR TYPING OUT MESSAGES , DATA
,RELATED TO THE MESSAGE, IF SWI3 IS SET. THE TYPEOUT 15
,INHIBITED, THE CALL lSI
MESAGE ,XX
,XXX IS THE MESSAGE NUMBE~ , PROVIDES AN INDEX TO THE
,'ERROR ITEMS TABLE' WHERE THAT ~ESAGE IrE~
,IS LOCATED,
,THE HESAGE ITEM CONTAINSI
POINTER TO THE ASCII MESAGE
MSI
OHI
POINTER TO THE DATA HEADER
DTI
POINTER TO THE DATA
TERMINATOR
0
,IF 'DT' IS 0 THE DATA IS TO BE PRlNTED USING THE SUBROUTINE
I INDICATED IN PLACE Of THE TERMINATOR
4$1
432'
4325
4116
4327
4328
4329
4330
4331
,
,
,,,
4332
4333
4334
4335
4336
4317
4336
4339
4340
4311
4342
4343
4344
434~
43.6
4347
4340
4349
020000
163056
016044
016052
016054
016060
032777
001012
011637
1~2737
001116
000002
001116
016066
016074
117637
004737
000000
017446
001114
016100
01610.
Q62716
000002
000002
MD-II-DZ~KL_E,
4359
4)"2
4363
.36.
43.5
4366
4367
4368
4369
4170
4371
4372
4373
4374
4375
4316
4371
4378
4379
RK11-RK05 DYNAMIC TEST
26-APR-77 12,27
016106
01611'
016116
('16124
016126
016130
032777
nOl005
017637
104401
000000
062716
016134
000002
016136
016142
016146
016150
016152
01615.
016156
017746
042716
006316
006316
006316
000316
112637
020000
163024
000000
016126
000002
001172
MOVB
JSR
II(SP),81TEMB
PC, UERRTYP
ADD
PTl
~2.(SP)
,INHIBIT TYPEOUT?
,IF YES, EXIT
IGET ADRES OF "MESAGe;' CALL
I STOPE IT
IGET MESAGE • (I~DEX TO ITEM TABLE)
,GO TO ·E~RTYP· , tYPE OUT
,INFO
,ADJUST RETURN ADORES
,EXIT
MACYII ]0(1046)
ESR2S
14-JUL-'7
08103
PAG~
B3
TY,MSGI BIT
SNE
MOV
TYPE
1$/
0
2$1
ADD
'S~!3.@5WR
2S
@(SP)",
#2, CSP)
016162
016170
016176
016204
016212
017737
017737
017737
017737
000207
163270
163260
163250
163254
,ADJUST RETURN ADRES, SKIP OVER
;POINTEP ON RETURN
;EXIT
001162
001164
001166
001170
GT4~GI
MOV
MOV
MOV
MOV
US
II~KCS,'~EGO
8RKER,$REGI
eRKDS,$REG2
IIRKDA,8REG3
PC
,IGET RKCS
RKER
RKDS
;
RKOA
IEXIT fROM THIS ROUTINE
, GETINf
,THIS ROUTINE SAVES THE CO~TENTS OF RKCS IN $REGO
,RKER IN SREGI, RKOS IN 'REG2. THEN IT BREAKS RKDA
,INTO D~IVE NO, CYLINDER t, SU~FACE AND SECTOR "
lAND SAVES THEM IN GREG4, .REGS, SREG6, ,REG7.
016214
016220
016222
016224
016226
016232
0lU36
016240
016244
016246
004737
010046
010146
010246
012700
013101
010102
042702
010240
006201
016162
001202
001170
GETINF, JSR
BRKDAI HOV
MOV
MOV
MOV
MOV
!IOV
177760
THE
;INHIBIT TYPEOUT?
;YES, EXIT
;GET POtNTER TO ASCII MESSAGE
;GO TYPE ASCII STRING
,GT4RG
ITHIS ROUTINE TRANSFERS THE CONTENTS Of RKCS, RKER, RKDS
,RKDA TO IREGO, GREG!, GREG2, $REG) RESPECTIVELY, $~EG'S
,ARE USED FOR TYPING OUT THE~E'CONTENTS AT THE TIME OF ER~OR
4395
4396
4397
4398
4399
4400
(SP), SERRPC
U,SERRPC
,GTSRG
,THIS ROUTINE EXT~ACTS THE CYLINDER. FROM RKDA AND STORES IT
,IN $REG4, THEN TRANSFERS RKCS. ER, OS, DA TO SREGO, GPEGI, aREG2, GREG)
GT5RGI MOV
fRKDA,-(SP)
,PUSH RKDA ONTO STACK
SIC
U60037'(SP)
;MASK OUT NON-CYLINDER BITS
ASL
(SP)
ISHIFT 8 BITS OF CYL ADRES TO LO BYTE
ASL
(SPI
ASL
(SP)
SWAB
(SP)
MOve
(SPl+,SREG4
,UP STACK
163332
160037
4393
4394
4401
4402
4403
4404
4405
4406
4407
4.08
4409
1$
MOV
SUB
Rrt
4396
4392
#SWI3.UWR
SNE
,TRAP INSTRUCTION,
ITHE POINTER TO THE ASCII MESSAGE TO BE TYPED IS LOCATED I"
,.O~D fOLLOWING THE "TYPMSG" CALL.
438C
438 I
4382
4383
438.
4385
4lB7
4388
4389
4390
4391
BIT
,TRIS POUTINE 15 USED FOR TYPING OUT ASCII MESSAGES. BEFORE
,THE MESSAGE IS TYPED SWI3 IS CHEC~ED , If SET THE
,TYPEOUT IS INHIBITED, AN EXIT IS "ADE.
,THE CALL FOR THIS ROUTINE IS "TYPM5G', AN ENCODED
DZPKL£. PIl
4360
HoI
MSGEI
IS,
43'0
'351
4352
4353
435'
.35'
4356
4357
1358
RTS
BIC
MOV
ASR
PC,GT4RG
RO,-eSP)
Rl,-(SP)
R2,-(SP)
UREG7+2,RO
$REG3,RI
Rl,R2
II 77760, R2
R2.-(RO)
RI
MD.II·DZ~K~_E,
DZ~KLE,PII
4410
4411
H12
4413
4414
4415
4416
4417
441 B
4419
4420
4421
4422
4423
4424
4425
4426
RKII·~K05 DYNAMIC TEST
26-APP-77 12127
006201
006201
006201
016256 010102
016260 042702
016264 010240
016266' 006201
016270 010102
016272 042702
016276 010240
016300 000301
016302 042701
016306 010140
01631n 012602
016312 012601
016]14 012600
016)16 ()Q0207
A5~
AS~
016252
ASR
MOV
016254
177776
SIC
MOV
ASR
I
.
I.THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE,
,*SWI4-1
LOOP ON TEST
,*SW09_1
LOOP ON ERROR
,*CALL
,.
SCOPE
"SCOPE_lOT
4616
4617
4618
4619
4620
4621
4'22
4623
4624
017006
017006
017010
017016
104407
Ol2777
001053
000400
162122
4630
4631
4632
017020
017026
032777
001047
040000
162112
4633
017030
000416
4625
TIMER
181
001264
4b12
4613
4614
4615
4626
4627
4.28
TSTPWS, CLR
SNE
4603
4604
46U5
46U6
4607
TST.RWS· WAIT FOR R/w/S ROY
SSCOPEI
4629
CIISWII
BIT
SNE
FOR CHANGE IN SOFT-aWR
,WAS aW8 USED TO SELECT
,A TEST? IF YES, SKIP OVER
ITHE REST, U ARE LOOPING ON
1$1
BIT
.BITI4,PSWR
I,LOOP ON PRESENT TEST?
SlfE
eOVER
,. YES xr SWl4a!
I ••••• START OF CODE FOR THE XOR TESTERU."
$XTSTR. 8R
6.
"IF RUNNING ON THE "XOR" TESTER CHANGE
Iswa,PSWR
.OVER
IITEST
MD-l1-DZPKLd, RU1-RKOS DYNAMIC TEST
26oAPRo77 12127
DUKLE,PlI
4634
4635
4636
4637
4638
4639
4640
4641
4HZ
4643
4644
4645
4646
4647
4648
4649
4650
4651
4652
4653
4654
4655
4656
4657
4658
4659
4660
4661
4662
4663
4664
4665
4666
4667
4668
4669
4670
4671
4672
4673
4674
4675
4676
4677
4678
017032
017036
017044
017050
017054
017056'
017060
017064
017066
017066
017072
017074
017102
017104
017112
017114
017120
017124
017130
017134
017140
017146
017154
017160
OU746
012737
005737
012637
000421
022626
012637
000407
000004
017056
177060
000004
105731
001412
032777
001404
011737
000415
105037
105237
011637
011637
005037
112737
013777
013716
000002
001103
000004
000004
001000
162036
001110
001106
001103
001102
001106
001110
001204
000001
001102
001106
001115
161766
MACYlI 30(1046) 14-O/UL·77
SCOPE HANDLER ROUTINE
08103
PAGE as
"THIS INSTRUCTION TO A "NOP' (NOP.240)
UERRVEC,·(SP!
"SAVE THE CONTENTS OF THE ERROR VECTOR
ISS, UERRVEC
"SET FOR TIMEOUT.
TST
81177060
"TIME OUT ON XOR?
MOV
ISPI+,.URRVEC "RESTORE THE ERROl> VECTOR
BR
UVLAD
"GO TO THE NEXT TEST
CMP
18P)+,(SP)+
"CLEAR THE STACK AFTER A TIME OUT
51'
MOV
(SP1+,'URRVEC "RESTORE THE ERROR VECTOl>
SR
7S
"LOOP ON THE PRESENT TEST
UI,UIUEND OF CODE rOil THE XOP TESTER.UU
TSTB
URFLG
"HAS AN ERROR OCCURRED?
a81
BEQ
SSVLAD
"BR IF NO
BIT
IBIT09,UWI\
I ,LOOP ON ERROR?
BEQ
,,81\ IF NO
U
MOV
, ,SET LOOP ADDRESS TO I.A8T SCOPE
SLPERR,ILPADR
7'1
BR
SaVER
481
CLRB
URFLG
"ZERO THE ERROR FLAG
nSTNM
esVLADI INca
"COUNT TEST NUMBERS
HOV
(SP),SLPADI\
"SAVE SCOPE LOOP ADDRESS
HOV
(BP),8LPERR
"SAVE ERROR LOOP ADDRESS
I,CLEAR THE ESCAPE FROM ERROR ADDRESS
CLR
sESCAPE
HOVB
II,URHAX
"ONLY ALLOW ONEIl) ERROR ON NEXT TE~T
MOV
STSTNM,@DISPLAY "DISPLAY TEST NUMBER
sOVERI
MoV
"FUDGE RETURN ADDRESS.
'LPADR,CSP)
RTI
"FlXES PS
MOV
MOV
J'**.****** ••• *** ••
,SBTTL
*-•• _.************-********.*.*._.********
ERROR HAND.LER ROUTINE
HALT ON ERROR
INHIBIT ERROR TYPEOUTS
BELL ON ERROR
LOOP ON ERROR
,*SW09=1
CYCLE ON E~ROR TO PREVIOS 'SCOPE' STATEMENT
,*SWI2 B I
,*GO TO ERRTYP ON ERROR
,*NOT FRO- SYSMAC
,*SWI5~1
,*SW13=1
,*SW10~1
4679
017162
017164
017170
017172
017200
017206
017210
104407
105237
001775
013777
032777
001402
\04401
4680
4681
017214
017220
005237
011637
001112
001116
017224
017232
0172H
017242
032777
001404
023727
101044
000004
161706
001112
000006
017244
017252
162737
117737
000002
161640
001116
001114
001103
001102
002000
161742
161732
SERROR. CKSWR
INCB
7$.
BEQ
MOV
BIT
BEQ
001206
1$.
)
,CHECK FOR SOFTWARE SWITCH REGISTER REQUEST
,SET THE E~ROR FLAG
SERFLG
,DON'T LET THE FLAG GO TO Zt:RO
71
STSTNM,'DISPLAY
UW10,8SWR
11
TrPE
,$BELL
INC
MOV
IE~TTL
BIT
BEQ
CMP
SHI
fSW2, pSWR
5.
IERTTL, ,6
68
SUB
Mova
'2, SERRPC
@SERRPC,UTEMa
(SPloSERRPC
4682
4683
4684
4685
4686
4687
4688
4699
MD-II-DZRKL_E, RIUI-RKOS DrNAMIC TEST
DZRKLE,PII
26·~PP-77 12127
4690
4691
4692
4693
4694
4695
4696
4697
4698
4699
4700
4701
4702
470]
4704
4705
4706
4707
4708
4709
4710
47\1
4712
4713
4714
4715
4716
4717
4718
4719
4720
4731
4722
4723
4724
4725
4126
4727
4728
4729
4730
4731
4732
4733
4734
4735
017260
017266
017270
017274
017300
017306
011310
017314
017316
017320
017322
017330
017332
017]36
017344
017346
017352
033777
001004
004737
104401
023737
001403
005777
100002
000000
104407
032777
001402
013716
012777
001402
013716
000002
020000
017)54
017]60
017364
017370
017374
017400
017402
017404
017406
017410
017412
017414
011420
013746
001226
000002
000377
002064
001230
162716
042736
104401
013746
000241
006116
006116
006116
006116
104402
104401
000405
017446
001213
000042
5 ••
MACHI 30(1046)
I4-JUL-77
EPROR HANDLER ROUTINE
161652
000046
28,
161610
381
161624
010000
BIT
BNE
JSR
TYPE
eMP
BEQ
TST
BPI.
HALT
CKSWR
BIT
BEQ
001106
001000
MOV
BIT
161574
001110
481
5$1
BEQ
MOV
RT!
MOV
SUB
BIC
TYPE
MOV
CLC
ROL
ROl<
1I0L
017422
• ROL
TYPOC
TYPE
BR
1,65f,
,ASCIZ
6481
017434
017434
017440
017442
105337
022626
000137
001224
DECS
015232
CMP
JHP
017446
011446
017452
017454
017456
017462
104401
010046
005000
153700
001011
001213
TYPE
001114
017464
013746
017470
017472
017474
017476
017502
017504
017506
017510
017512
104402
104401
001733
013746
104402
000440
005300
006300
006300
4741
4742
4743
4744
4745'
08,03
PAGE 89
nWll,pswp
2$
PC,@IERRTYP
,eCRLF
"42,8#46
,+10
PSWR
31
,ARE WE IN ACTlI AUTO MODE?
,YES, HALT ON ERROR
,SWPIS IHALT ON ERROR] SET1
,BRANCH IF .OT
,HALT ON ERROR
,CH~CK FOR SOFTWARE SWITCH RE~ISTER REQUEST
45WI2,@SWR
,+6
8LPADR,CSP)
.SW09,@aWR
48
8LPERR, (SP)
DRVPTR.-(SP.l
12,(SPl
U77,8CSPl+
,MSGI4
DRIVAD,-CSP)
:GET POINTER TO DRIVE •
:CLEAR THE DUVE PRESENT FLAG
,GET THE DRIVE •
(SP)
ISP)
(SP)
(SP)
,65$
64$
I DROPPED I
,TYPE IT OUT
"TYPE ASCIZ STRING
"GET OVER THE ASCIZ
PRESE~T
DRIVS
(SPI·,(SP)+
BTEOP
,DECR"NT t OF DRIVS
,RESTORE STACK
rEXIT
CLR
BlSB
BNE
,GCRLY
RO,-CSP)
RO
'"ITEMB,RO
1'1
,'CARUAGE ~ETURN' & LINE FEED"
,SAVE RO
,PICKUP THE ITEM INDEX
MOV
URRPC,-(SP)
ERRTYPI
MOV
GOl! IS
4736
4737
4738
4739
4140
;DRDP THE DRIVE?
15W NOT SET, SKIP
,MORE THAN 6 ERRORS ON THIS DRIVE?
,YES, DROP THE DRIVE
TYPOC
TYPE
MSG7
MOV
TYPOC
001116
1$,
DR
68
RO
RO
RO
A8L
I TXPE THE PC OF THE ERROR
,SAVE IERRPC FOR TYPEOUT
,ERROR ADDRESS
,GO TYPE.-OCTAL ASCII(ALL DIGITS)
URRPC,-(SP)
DEC
ASL
,IF ITEM NUMBER IS ZERO, JUST
,GET OUT
,ADJUST THE INDEX SO THAT IT WILL
WORK FOR THE ERROR TABLE
,
/
MD-II-DZP~L_E,
DZRKLE,PII
4746
4747
4748
4749
4750
4751
4752
4753
4754
4755
47S6
4757
475B
4759
4760
4761
4762
4163
47&4
47&5
476&
4767
47&B
4769
4770
4771
4772
4773
4774
4775
477b
4771
4718
4779
4780
4791
4792
017514
017516
017522
017526
017530
017532
017534
017540
017546
()17S50
017554
017556
017560
ot7~62
017566
Qt7~12
017574
017576
017602
0.7604
017606
017610
ot 7614
017616
017616
017620
017622
RKII-RK05 DYNAMIC 'rI!:ST
26-APR-77 12127
006300
062700
012037
001404
104401
000000
104401
032777
001042
012037
001412
104401
000000
104401
062700
005710
001017
162700
011000
001004
012600
104401
000207
002122
017532
2$1
001213
004000
381
017560
4&,
001213
000002
000002
58 I
611
001213
1<0
UERRlB,RO
,WORD
0
,SCRLF
ISWI!, 'SWR
lOG
CRO)+,4$
TYPE
BIT
SNE
MOV
BEQ
TYPE
.WORD
TYPE
ADD
TST
8NE
SUB
MOY
BNE
MOY
TYPE
RTB
MOY
TYPOC
TST
017626
017632
017614
017640
017642
0lH44
017650
(117652
104401
001733
013746
104402
000755
001116
017654
004737
017662
002110
000000
961
47P 3
4784
4H5
4Hb
4787
478B
ASL
ADD
MOV
BF.Q
TYPE
:FONK TABLE POINTER
;PICKUP 'ERROR MESSAGE' POINTER
,SKIP TYPEOUT IF NOT POINTER
,TYPE THE "ERROR MESSAGE'
,"CARRIAGE RETURN" , LINE FEED"
;PICKUP 'DATA HEADER" POINTER
;DUMP OUT ALL RK REGISTERS
I YES, BRANCH
;PICKUP "DATA HEADER" POINTER
; SKIP TYPEOUT IF 0
,TYPE THE RDATA HEADER'
,"DATA HEADER' POINTER GOES HERE
,'CARRIAGE RETURN" , LINE FEED·
;FORM POINTER TO TERMINATOR
;15 THE TERMINATOR 01
;IF NOT, BRANCH
,YES, IT IS 0, REPaINT TO "DATA"
,GO TYPE OUT DATA AS USUAL
,PICKUP "DATA TABLE" POINTER
,GO TYPE THE DATA
,RESTORE RO
;"CARRIAGE RETURNR & LINE FEtD"
,RETURN
(ROl+,aS
38
5$
0
,SCRLF
U,RO
(ROl
9$
12, AO
(RO),RO
7$
CSP)+,AO
,SCRLf'
PC
,SAYE Ii! (RO) + FOR TYPEOUT
,GO TYPE-·OCTAL ASCII CALL DIGITS)
,IS THERE ANOTHER NUMBER?
,SR IF NO
~(ROl+,-CSP)
BEQ
UP!
CRO)
66
,BLNKB2
BA
JSR
PC,@CROl
TYPE
MSG7
MOY
TYPOC
SERRpC,-CSP)
7$
SI<
6$
JSR
PC,DMPREG
SR
6$
,GO TO THE SPECIAL ERROR
;DATA HANDLING SUeRoUTIN~
;NOTE THAT THIS "OUTINE IS
;THE ONE INDICATEO 1" 1HE
:LAST WORD or A" ERROR
lITEM IN THE ERROR TABLE
I(STARTING AT SERRTS)
IGO BACK, TO THE
:FOR -ERRTYP"
4789
4790
4791
4791
017660
PAGE 90
7$1
013046
104402
005710
001770
104401
000771
004770
017624
161372
08103
MACYlI 30(1046) 14-,jUL-77
ERROR HANDLER ROUTINE
10$1
000752
EXIT POINT
4793
4794
4795
4796
4797
4798
4799
4BOO
4801
,DMPREG
,DUMPS OUT ALL RK REGISTERS WHEN SW II IS SET
017662
017662
017666
DMPREG,
104401
000441
TYPE
BN
017670
MD.II-DZRKL_E. RKII-RK05 DYNAMIC TEsT
DZRKLE.Pll
26-APR-77 12127
4802
4803
4~04
4805
4806
4807
'\
4808
4809
4810
48 II
4812
4813
4814
4815
481 &
4917
4B 19
4819
017772
017772
017776
020000
1120004
020006
020012
020014
020016
020022
020026
020030
020032
001116
002110
1$'
4936
4B37
483B
4839
4840
4841
4842
4843
4844
4845
4846
4847
4848
4849
4950
4851
4952
4853
4854
4855
4856
4951
MOY
TYPOC
TYPE
CMP
MOY
RTB
,SBTTL
PC
PAGE 91
RKDS
RKER
RKCS
RIIWC
RKBA
,BLNKS2
RO,-(SP)
_RKDS,RO
'(ROH,-CSP)
,BLNIIS2
RO,'RKDB
18
CSPl+,RO
PC
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE
rt****·-·*·*··**·-*·*-*·********·****·***·*****··****************
,*THIS ROUTINE IS USED TO CHANGE A 16-B1T BINARY NUMBER TO AS-DIGIT
"SIGNED DECIMAL CASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE
,*NUMBER JS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN ~ILL BE TYPED
,*BEFORE THE FIRST OICIT OF THE NUMBER, LEADING ZEROS WILL ALWAYS BE
.*REPLACED WITH SPACES,
,*CALL'
MOV
;,PUT THE BINARY NUMBER ON THE STACK
NUM.-CSP)
TypDS
I,GO TO THE ROUTINE
4827
4834
$ERRPC,-CSP)
BLE
4828
4929
4930
4A31
4832
4833
(15)<12)1
TYPE
4821
4B22
4823
4B24
4925
4826
4Sl5
,ASCIZ
MOV
002110
001466
08103
MOY
TYPOC
MDY
001452
4820
.,TYPE ASCIZ STRING
;,GET OYER IHE ASCIZ
MACYlI 30(1046) 14-JUL-77
ERROR HANDLER ROUTINE
,,65$1
6481
013746
104402
104401
010046
012700
011046
104402
104401
020027
003771
012600
000207
,65$
64$
,.,.
nOOH
020034
020036
020040
020042
020044
020046
020052
020056
020060
020062
020070
020072
020076
020102
020104
020110
020112
020114
020116
020120
020122
020124
020126
020130
sTiPDS,
010046
010146
010246
010346
010546
012746
016605
100004
005405
112766
005000
01270)
112723
005002
016001
160105
002402
005202
000774
060105
005702
001002
105716
100407
MOV
020200
000020
000055
000001
1$1
020250
000040
MoV
MOV
MOY
MOV
MaY
HOV
BPL
NEG
MOVB
CLR
MOV
MOVS
2$.
020240
38.
4$1
CLR
MOV
SUB
BLT
INC
SR
ADD
TST
SNE
TSTS
BMI
RO,-CSP)
RI,-CSp)
R2,-CSP)
R),-CSP)
RS,-CSp)
120200,-(SP)
20(SPI,RS
U
RS
,'·,l(SP)
RO
UDBLII,R3
I' oCR]).
R2
fDT8L(RO),RI
RI,RS
48
R2
3t
RI,A5
R2
U
,.cap!
nPUSH RO ON STACK
, ,PUSH RI ON STACK
II PUSH R2 ON STACK
; ,PUSH R3 ON !STACK
"PUSH RS ON STACK
I,SET BLANK SWITCH AND SIGN
I,GET THE INPUT NUMBER
IIBR If INPUT IS pas,
"MAKE THE BINARY NUMBER POS,
"MAKE THE ASCII NUMBER NEG,
"ZERO THE COHaTANT! INDEX
"SETUP THE OUTPUT POINTER
I,SET THE FIRST CHARACTER TO A BLANK
"CLEAR TKE BCD NUMBER
"GET THE CONSTANT
"FORM THIS BCD DIGIT
, rBR xr DdNE
"INCREASE THE BCD DIGIT BY 1
"ADO BACK THE CONSTANT
"CHECK U" BCD DIGITao
THROUGH Ir 0
"STILL DOING LEADING O·S?
"BR IF YES
"r ALL
RIIDA
RIIDB/C
MD.I!·DZRK~.t.
DZRKLE,PII
4858
4859
4860
4961
4862
4863
4864
4865
4866
4867
4868
4869
4870
4871
4872
4873
4814
4875
487.
4877
4878
4879
4880
4881
4882
4883
4884
4985
48ij6
4887
020132
020114
020136
020! 44
020150
020154
RKI!-RK05 DYNAMIC TEsT
26-APR-n 12\27
052702
052702
110223
020156 , 005720
020027
020160
002746
020164
020166
020170
020172
020114
020176
020~OO
020206
020210
020212
020214
020216
020220
020222
020226
020234
020236
020240
020242
020244
5$1
106316
103003
116663
MAeYl1 30(1046) 14 w YUL.17 08103 PAGE 92
CONVERT BINARY TO DECIMAL AND TYPE ~OUTINE
000001
000060
000040
177717
ABLB
(SP)
Mova
U
I (SF) ,-IIR3)
Bce
6$1
SIS
#- "0, R2
181
BIS
$6 ,R2
Mova
TST
000010
! ,MSD?
I,SR IF NO
"IES"SET THE SIGN
"MAKE THE BCD DIGIT ASCII
"MAKE IT A SPACE IF NOT ALREADY A DIGIT
r,PUT THIS CHARACTER IN THE OUTPUT &U~FEP
"JUST INC~&MENTING
"CHECK THE TABLE INDEX
"GO DO THE NEXT DIGIT
R2,IRll+
eRa,.
eMF
RO.IIO
BLl
2$
B$
003002
BGT
010502
000764
MOV
R5,R2
BR
6$
I, GO CHANGE TO ABC II
9 BI
T5r8
BPI.
(SPH
93
-1(SP),-2(Rll
9$ I
CLRB
MOY
CR3l
(SP)+,R5
MOV
MOV
(SPl+,R3
Csp,., R2
(SPl+,Rl
tSPl.,RO
"WAS THE LSD THE FIRST NON-ZERO?
: J SR IF NO
, ,YES··SET THE SIGN rOR TYPING
"SET THE TERMINATOR
"POP STACK INTO RS
"POP STACK INTO R3
"POP STACK INTO R'
"POP STACK INTO AI
II POP STACK INTO RO
, ,NOW TYPE THE NUMBER
"ADJUST THE STACK
105726
100003
116663
105013
O!260S
177777
117776
012603
012602
Mova
~ov
O! 260 I
012600
MOV
104401
020250
01666.
012616
000002
023420
001750
000144
00001:1
000004
000002
000004
TYPE
,SOBLR
MOV
MOV
2(SP)'4(SP)
"GO TO EXIT
,rGET THE LSD
(SPl+o\SPl
RTl
sDTBLI
I,RETURN TO USER
10000,
1000,
100,
$DBLKI
10,
,BLKW
4899
,SaTTL
TYPE ROUTINE
4890
4891
"**.** ••• *•• *~**.*.* •••••• *•• *••••••••• * •••••••• *••• *••••• *•••••
020246
020250
4888
,.ROUTINE TO TrPE ASCIZ MESSAGE, MESSAGE MUST TERMINATE WITH A 0 BYTE,
,"THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED,
,oNOTEl1
$~ULL CONTAINS THE CHARACTER TO BE USED AS THE fILLER CHARACTER,
,oNOTE21
GFILLS CONTAINS THE NU~18ER Of FILLER CHARACTERS REQUIRED,
,*NOTE3'
SfILLC CONTAINS THE CHARACTER TO FILL AFTER,
4892
4893
4894
4895
4896
4897
4898
4899
4900
4901
4902
,.
nPE
4903
"
MESA DR
,.CALLI
","I)
USING
A TRAP INSTRUCTION
TYPE
,HESAOA
"
nMESAOR IS fIRST ADDRESS OF AN ASCIZ STRING
I!jOR
4904
4905
4906
4907
020260
020264
4909
4909
020266
020270
4910
4911
4912
020272
020274
020300
020302
4913
MO-I t -DZRKL •• ,
DZRKLE, PI I
4914
4915
4916
4917
4918
4919
4920
4921
4922
4923
4924
4925
4926
4927
492S
4929
4930
4931
4932
4933
4934
4935
4936
4937
4939
4939
4940
4941
4942
4943
4944
4945
4946
4947
494B
4949
4950
4951
4952
4953
4954
4955
4956
4957
4958
4959
4960
4961
4962
4963
4964
4965
4966
4967
496B
4969
105731
100002
000000
000407
010046
017600
112046
DO! 157
T5TB
3S
.OV
RO,OlI(SP)
MOV
000002
001005
RKII-RKo5 DYNhMIC TEST
26-APR·77 12127
005726
012600
062716
000002
122716
001430
122716
OCI006
00572.
10440 !
001213
105037
000755
004737
12372.
001350
013746
020364
020370
020372
020]76
020402
105366
002770
004737
105337
000710
00000\
02040.
020410
020414
020422
020424
020426
020430
020434
020436
020444
020452
020454
020460
020462
020470
112716
004737
000040
020430
000007
@2(SPl,RO
Mova
(ROl .. -CSP)
4$
TST
0,010,
020306
020310
020314
020316
020322
020324
020330
020332
020334
020336
020]40
020344
020346
020]52
020356
020360
!8
SHE
MACYlI 30(1046)
TYPE ROUTINE
"IS THERE A TERMINAL?
"BR IF YES
"HALT HERE IF NO TERMINAL
:,LEAVE
"SAVE RO
"GET ADDRESS OF ASCIZ STRING
" PUSH CHARACTER TO BE TYPED ONTO STACK
"BR IF IT ISN'T THE TERMINATOR
UPFLG
8PL
HALT
BR
14-JUL-n
08103
(SP)'
60$ ,
MOV
(SPl.,RO
000002
3$1
ADD
*2, (SP)
000011
43.
CMPS
SEQ
RTI
000200
020474
020430
001156
S$!
6$1
HI
, ,RnURN
#H1. (SP)
, ,BRANCH IF
CMPB
, ,BRANCH If NOT
BNE
5$
TST
(SP,.
TYPE
SCRLF
CLRB
SF
"POP AND
SINTAG, i l
~ ,t 71
BGT
IRG
BIC
TST
BEQ
ASL
AIL
'60dS?).
2 CSP)
: , BRANCH IF YES
"STRIP-OFF ASCII
;, IS THIS THE FIRST
17$
(SP)
~/,BPANCH
,,1\10,
CHAR
IF YES
000002
177776
11$.
SR
7G
001212
I B $1
TYPE
BF
.SQUES
20$
; ,SIMULATE CuNTROL"U
,OSABL
LSB
(SP)
ASL
(Sp)
INC
BIS
2 (SP)
-2CSPl,cSP)
1,TYPE ?
'J********************~***********************~***********~******
I*THIS FOUTINE WILL INPUT A SINGLE CHARACTER FROM THE 111
,.,.
,>CALL.
,"
5164
5165
5172
;tI5 IT A ?
SHIfT PRESENT
CHAR OVER TO MAKE
11
ROOM FOR NEW ONE,
11
"K~EP COUNT OF CHAR
"StT IN NEW CHAR
;,GET THE NEXT ONE
5161
5170
PT!
JIR
Cl'-1P
SLI
eMP
000067
516l
SH6
ADD
TYPE
CMPB
BNE
MOV
(SPI.IIS
16$
4(SP)
MAcYIl 30(1046)
14-JUL-77
TTY INPUT ROUTINE
15$ ,
020430
000060
5162
5167
5168
5169
BEG
"'OV
157662
001213
eMP
BilE
'IST
021366
021370
02 I 376
021402
Q21404
021410
Q21412
021412
021416
021420
021424
021432
021436
021444
021446
021454
GRDCHR I
011646
016666
005066
(005046
000004
000004
012746
021412
000002
000002
RoeHR
RETURN HERE
MOV
MOV
CLR
CLR
MOV
RTI
;,GET A CHARACTER FROM THE QUEUE
"CHARACTER IS ON THE STACK
,,'I~H PARITY BIT STRIPPED Off
(5P),-(8P)
"PUSH DOWN THE PC AND
4(SPl.2(SP)
4(5.)
: ,THE PS
~(SPl
364$,-(5P)
" GET READY FOR A CHARACTER
:: ,PUT NEW PS ON STACK
; ,PUT NEW PC ON
STACK
"POP NE~I PC AND PS
64$,
005737
001775
005337
IS,
020612
TST
BEQ
DEC
020612
117766
177166
000004
Move
005237
023727
001003
0.12737
000002
020616
INC
020616
020621
CMP
020616
BNE
MOV
020620
25,
RT!
$TReNT
"WAlT ON A CHARACrER
1$
STRCNT
"DECREMENT THE COUNTER
@STKQOUT,4CSPI
I,GET ONE CHARACTER
STKQQUT
;, UPDATE TRE POINTER
STKQOUT. #$ TKQEND II0lD IT GO OFF
THE END?
II BRANCH IF NO
25
UTKQSRT, STKQOUT II RESET THE POINTER
" RETURN
0,
JJ****w********************w**~**************~******** ***********
,0THIS ROUTINE WILL INPUT A STRING FROM THE TTY
,*CALLI
RDLIN
"INPUT A STRING fROM THE TTY
1*
RETURN HERE
"AODRESS OF rIRS! CHARACTER WILL BE O~ IHE STACK
"TERMINATOR WILL BE A BYTE or ALL O'S
I·
sus
,"
5196
5197
5188
5169
02145.
010346
S190
5191
021460
021462
005046
5192
021466
021472
5193
012703
022703
101455
$ROLINI
021712
021722
HI
2$1
MOV
R)."CBP)
CLR
-(SP)
MOV
~$TTYIN,R3
eMf
UTTYIN+B" R3
46
BLOS
"SAVE Ro
, I CLEAR THE RUBOUT
"GET ADDRESS
"BUFFER FULL?
"SR IF YES
KEY
MO-II-0ZRKL.E, RKII-ItK05 OYNAMtC TEST
OZRKLE,PII
26-APIt-n 12.27
5194
5195
5196
5197
5198
5199
5200
5201
5202
5203
5204
5205
5206
5207
520~
5209
5210
5211
5212
5213
5214
5215
5216
5217
5218
5119
~no
5721
5222
5223
5124
5225
5226
5217
5229
5229
sno
5231
5232
5233
5234
5235
5236
5137
5239
5239
5240
5241
5242
5243
5]4'
5245
5246
5247
5248
5249
104410
112613
1227\.3
oOlon
005716
001007
112737
104401
012716
005303
020327
103434
111337
104401
000746
005716
001406
112737
104401
005016
122713
001003
104401
000726
122713
001011
105013
104401
104401
000717
104401
000712
111337
104401
122723
00tl05
105063
104401
021474
021476
021500
021504
021506
021510
021512
021520
021524
021530
021532
1)21536
021540
021544
021550
021552
021554
021556
021564
021570
02lS72
021576
021600
021604
(121606
021612
021614
(121616
021622
021626
021630
021634
(121636
021642
021646
021652
021654
021660
021664
u21666
021670
021672
021700
1121706
021710
1121711
000177
lOG!
000134
021710
177777
021710
6$'
021712
021710
021710
5$.
000134
021710
000010
052536
136
005015
020075
040
036440
021712
()]1722
021727
021734
'121742
011745
021752
\
BNt
000025
78
#"\,9$
,98
CMP&
BNE
021722
8$,
000022
001213
021712
001212
4$,
021710
021710
000015
3S1
171777
001214
000004
021712
BEQ
00.0002
000004
TYPE
SR
CMPS
BNE
CLRB
TYPE
TYPE
BR
TYPE
BR
MOVB
TYPE
CMPB
• "\, is
,9$
'-I'(SP)
R3
R3,UTTYlN
4S
(R3)'9$
,98
2.
(SP)
TTY
~HAR.
"CLEAR THE RUSOUT KEY
"IS CHARACTER A CTPL U1
"BR If NO
n TYPE A CONTROL ·u·
: ,GO START OVER
"IS CHARACTER A .-pn?
"BRANCH If" NO
"CLEAR THE CHARACTER
(SP)
325, (Ul
88
, SCNTLU
1$
'22, !UI
38
(R3)
,tCR'"
, &TTYIN
2$
,SQUES
J,TYPE A ·CRw & qLF"
"TYPE THE INPUT STRING
"GU PICKUP ANOTHER CHACTER
"TYPE A ' , '
"CLEAR THE BUfFER AND LOOP
"ECHO THE CHARACTER
U
bNE
(R3) ,9$
,9$
IIS'(R3l+
28
CLlIS
-1(Rl)
TYPE
,SLF
TST
MOV
I'OV
MOV
MOV
(SPlt
(SPl+,R3
"CHECK ,OR RETUR~
"LOOP IF NOT RETUR~
"CLEAR RETURN (THE 15)
,.TYPE A LINE FEED
"CLEAN RUBOUT KEY FROM THE STACK
, ,RESTORE R3
"ADJUST THE STACK AND PUT ADDRESS or TME
fIRST ASCII CHARACTER ON IT
II
(SPI,·CSP)
4(SPl.2(SPI
UTTYIN,4(SPJ
"RETURN
"STORAGE FOR ASCII CHAR, TO TYPE
,anE
J,TERMINATOF
,BYTE
00SOl5
006507
053523
000
047040
000040
T~E
, ,SET THE ImBOUT KEY
, ,BACKUP BY ONE
, ,STACK EMPTY?
,.8R IF YES
"SETUP TO TYPEOUT THE DELETED
"GO HPE
"GU READ ANOTHER CHAR,
"RueOUT KEY SET?
"BR IF NO
IITYPE A BACK SLASH
RTI
9$1
PAGE 98
"GO READ ONE CHARACTEP FROM"GET CHARACTER
II IS IT A RUBOUT
nBR IF NO
"IS T~IS THE FIRST RUBOUT?
nBR IF NO
nTYPE A BACK SLASH
(SPl+, (It])
68
TYPE
CLR
711
OB.03
U77'(Rl)
58
(SP)
BNE
MOVB
TYPE
MOV
DEC
CMP
BLO
MOVB
TYPE
8R
TST
MOVS
021710
0~5726
012603
011646
016666
012766
000002
000
000
RDCHR
MOVB
CMPB
TBT
B,
000
000012
020122
$TTUN,
8CNTLU,
$CNTLG.
$MSWR'
,BLKS
,ASCIZ
,ASCIZ
,ASCIZ
053505
SIINEw.
,ASCIZ
,SBTTL
READ AN OCTA/, NUMBER FROM THE TTY
MD·II-DZRKL.E. RKII-RK05 DYNAMIC TEST
OZRKL!',Pll
26-APR-n 12127
5250
5251
5252
5253
5254
5255
5256
5257
5258
5259
5260
5261
5262
5263
5264
5265
5266
5267
5268
5269
5270
5271
5172
5273
5174
5275
5176
5277
5278
5279
5280
52B I
5282
52e3
5284
5295
5286
5287
5288
5289
5290
5291
5292
5293
5294
5295
5296
5297
5298
5299
5300
5301
5302
5303
5304
5305
MACHI 30(1046)
14-JUL-77
TTY INPUT ROUTINE
I"U/<15><12>
I·G/<15><12>
<15><12>/SWR
NEW
" RESERVE 8 8YTES FOR TTY INPUT
, ,CONTROL "U'
, ,CONTROL "G'
I
=I
MACHI 30!! 046)
14-JUL-n 08' 0 3
READ AN OCTAL NUMBER FROM THE Tn
PAGE 99
,,*********************.*****************************************
I.THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER ,ROM THE TTY AND
I.CHANGE IT TO BINARY,
,·CALL,
ROOCT
"READ AN OCTAL NUMBER
RETURN HERE
"LOW ORDER BITS ARE ON TOP OF THE STACK
"HIGH ORDER BITS APE IN SHIOCT
,.,.
021756
021760
(121766
0'1770
021772
021774
021776
022000
022002
022004
022006
022010
Q22012
022014
022016
022020
022022
1122024
022030
022032
022034
022036
022042
022046
022050
022052
022054
022056
<
011646
016666
010046
010146
010246
104411
012600
005001
005002
112046
001412
006301
006102
006301
006102
006301
006102
042716
062601
000764
005726
010166
010237
012602
012601
012600
000002
000000
"
'RDOCT, MOV
000004
~OV
000002
MaV
lSI
2$,
MOV
MOV
RDLIN
~OV
(SPl+,RO
eLR
CLR
RI
Move
SEQ
177710
3S1
000012
022056
(SP) ,-(SP)
4(SP),2(SP)
RO,·(SP)
RI,-CSP)
R2,-CSP)
R2
(ROI"·(SPJ
3$
ASL
RI
ROL
ASL
ROL
AS"
ROL
BIC
ADD
R2
RI
R2
RI
R2
'·C7'(SP)
(SPl+,RI
BA
2.
TST
MOV
MOV
MOV
MOV
'IOV
(sPl+
Rlr12(SP)
R2,'HIOCT
(SP)+,R2
(SP)."II
(SPl+,RO
nI
"PROVIDE SPACE ,OR THE
"INPUT NUMBER
"PUSH RO ON STACK
"PUSH HI O~ STACK
" PUSH 1\2 ON STACK
"READ AN ASCIZ LINE
"GET ADDRESS or 1ST CHARACTER
"CLEAR DATA WORD
"PICKUP THIS CHARACTER
"IF ZERO GET OUT
n*2
n*4
Jr*8
"STRIP THE ASCII JUNK
"ADO IN THIS DIGIT
"LOOP
"CLEAN TERMINATOR FROM STACK
"SAVE THE RESULT
"POP STAC~ INTO R2
"poP STACK INTO PI
"POP STACK INTO PO
, ,RETURN
"HIGH ORDER BITS GO HERE
SHIoeT,
,WORD
,SBTTL
BINARY TO OCTAL (ASCII) AND TYPE
,,*************.**.***********************.********.*.**e_** •••• *
,*THIS FOUTIHE IS USED TO CHANGE A 16-811 BINARY NUMBER TO A 6.DIGIT
,.OCTAL (ASCII) NUMBER AND TYPE IT,
,.$TXPOS.··EHTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
,·CALL,
HOV
NUM,·(SP)
"NUMBER TO BE TYPED
TYPOS
I! CALL FOR TYPEOUT
N
,BYTE
"Nal TO 6 FOR NUMBER Of DIGITS TO TYPE
,BYTE
M
IIM:I OR 0
"I-TYPE LEADING ZEROS
I! O-SUPPRESS LEADING ZEROS
,.,.,,.,.
,-
,-
'.UYPON····ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS A8 THE LAST
I.$TYPOS OR • TYPOC
,-CALLI
MOV
NUM,~(SP)
"NUMBER TO 8E TYPED
TYPON
"CALL rOR TYPEOUT
,.,-
MD'!I·DZR~1.E,
DZRKLE,PI!
PKII-RKOa DYNAMIC
TEST
26.APR-77 121.7
MACYII 30(1046) 14-i/UL-77 09103
BINARY TO OCTAL (ASCII) AND TYPE
5306
5307
,",.jTYPOC"."ENTER
530e
, ·CALLI
,.,*
5309
5310
5311
5312
5313
5314
5315
5316
5317
5319
5319
5320
5321
5322
5H3
5324
5325
5326
5327
532S
5329
5330
5331
5332
5333
5334
,335
533&
5337
5338
5339
5340
5341
5342
5343
5344
5345
5346
5347
5349
5349
5350
5351
5152
5353
5354
5355
535b
5357
5BB
5359
5360
5361
022060
022064
022072
022076
022102
022\ 04
0221 !2
022120
072126
022130
022132
022134
022140
022142
112637
062716
000000
000001
022305
000002
022303
000406
112737
000001
112737
112737
000006
000005
02230)
022305
022302
010346
010446
010546
113704
005404
062704
SOHODE.I,P4
R4
*6, R4
11370~
022303
000012
MOV
022172
022IH
022176
022200
022202
022206
022210
022214
022216
022220
02222?
022224
022230
072234
022240
022244
022250
022252
021254
022256
022260
022262
022264
022266
022274
022276
022300
022301
027302
022303
022304
000744
012605
012604
012603
016666
012616
000002
000
000
000
\$,
CLR
POL
BR
251
POL
022304
ROL
POL
MOV
ROL
DECS
177770
BPL
BIC
3$ •
HI
000060
000040
022300
02.,00
02n02
R4,SCMODE
SOl"ILL.R4
12(SPI,RS
R3
R5
l$
RS
RS
5$ •
78,
68.
RKII-PKOS OYNAM!C TEST
26-..APFl w 17 12121
000
"GET THE
ZERO
FILL SWITCH
"PICKUP THE INPUT NUMBER
"CLEAR THE OUTPUT _ORO
.,ROTATE MS6 INTO 'Co
"GO DO MSS
"FORM THIS DIGIT
'I TYPE THIS DIGIT?
~~B~IFND
; I GET RID Of JUNK
BNE
rST
R4
BEQ
5S
R4
iJ'O,R3
INC
BIS
If'
,R3
Move
R3.88
TYPE
DECca
BGT
,9$
; !TEST fOR 0
"SUPPRESS THIS 07
;lSR IF YES
:,OON'T SUPPRESS ANYMORE O'S
"MAKE THIS DIGIT ASCII
"MAKE ASCII IF NOT ALREADY
"SAVE FOR TYPING
, ,GO TYPE THIS DIGIT
"COUNT BY !
BLI
SOCNT
2S
68
INC
R4
"INSURE LAST DIGIT ISN'T A
BR
MOV
28
, I GO DO THE LAST DIGIT
~ , RESTORE R5
(SP).,R5
(SP).,R4
(SPl+,R3
2(SPl,4(SP)
(SPl+tCSPI
;;8~ IF MORE TO 00
IfeR IF DONE
BLANK
"RESTORE R4
, I RESTORE R3
~ J SET THE STACK FOR RETUR'ING
RT!
'11 RETURN
,8YTE
,BYTE
"STORAGE FOR ASCII DIGIT
"TER"INATOR FOR TYPE ROUTINE
,BYTE
"OCTAL DIGIT COUNTcR
MACYlI 30(1046)
14-JUL-77
oe,03
BINARY TO OCTAL (ASCIO AND TYPE
SOFILL.
GOMODE.
nooooo
TYPE
"SUBTRACT IT rOR MAX, ALLOWED
"SAVE IT fOR USE
1!77770,R3
40
MOV
$ OC' T,
FILL SWITCH
;ISET FOR SIX(61 DIGITS
"SET THE ITERATION COUNT
"SAVE R3
"SAVE R4
nSAVE R5
"GET THE NUMBER OF DIGITS TO
7G
MOV
8S I
I ADJUST RnURN ADDRESS
.,GET LSB OF THIS DIGIT
SOHODE
!-\ov
000004
~
"SET THE ZERO
PS ,.1'3
1'3
MQV
000002
FOR TYPEOUT
IIPICKUP THE MUDE
I' LOAD ZERO FILL SWITCH
~ ,NUMBER OF DIGITS TO TYPE
1'5
BIS
.BYTE
~ WOFtD
PAGE 101
"ZERO FILL S"ITCH
r ,NUMBEf.! OF DIGITS TO TYPE
,SBTTL
TYPOSS • TYPE DECIMAL, LEADING ZEROES SUPPRESSED
,nPDSS
,ROUTINE fOR TYPING OUT DECIMAL NUt<8ERS, LEADING D'S ARE SUPPRESSED
I THE NUMBER 15 LEFT JUSTIFIED, NOTE THE 16 BIT BINAPY NUMBER SHOULD
,BE POSITIVE tBIT 15= 0),
MOV
,CALLI
NUMSER,-tsP)
~PUT BINARY NUMBER ON STACK
TYPOSS
,GO TYPE DECIMAL
,
5372
5171
5375
R4,-(SP)
R5,w(SPI
NEG
110437
022166
022170
R3,-(SPl
MOVB
016605
022164
Is.eOCNT
022305
02215.
022162
005003
006105
000404
006105
006105
006105
010503
006103
105337
100016
042703
001002
005704
001403
005204
052703
052703
110)37
104401
105337
003347
002402
005204
U,$OFUL
36, SONODE.,
MOVS
MOVe
MDV
MOV
022146
022152
OF A 16 BIT NUMBER
nYPON
Mova
Mav
5311
5376
5377
5 l78
5379
5380
538 !
53g2
5383
ijTYPON.
#2,!SPl
100
I ,NUMBER TO BE TYPED
I,CALL
9(SP)'-(SPI
I (SP), SOrILL
(BPl.+. SOMODE.,
Mova
ADD
aR
ADD
HOVS
MOVS
MD-U-DZRKL.E,
5374
STYpQC I
TYPEOUT
TYPOC
,TYPOS I HOV
MDVS
000006
022304
DZF1KI;E:",PU
5362
5363
5364
5365
5366
5367
5368
5%9
5370
017645
116637
HERE fOR
NUM,"CSP)
MOV
PAG~
022320
016637
012746
004737
000004
022346
022506
072324
(l04737
022352
022330
022336
000002
000002
022344
016666
011666
005726
000002
022346
000000
000000
022306
022314
022346
TYPDES. MOV
MDV
JSR
,GET THE NUMBER
I PUT PTR ON THE STACK
,ao CONVERT BINARY NO, TO
,ASCII STRING
,GO TYPE OUT OgCIMAL STRING
4(SPltlS
H$,w(SPl
PC,@lSOB2D
JSR
PC,@USUPRS
MOV
2(SPI,4(SP)
(SP),2(SP)
(SP) •
;SUPRESING LEADING 0$5
022342
000004
MOV
TST
,ADJUST RETURN
,ADJUST RETURN ADRES
I POP STACK
RTI
7 flE'l'URN
5384
5385
5386
5387
5388
5389
539C
3391
5392
539 J
540'
5405
5406
5407
5408
5409
5410
5411
5412
,SSTTt
TYPE NUMERICAL ASCIZ STRING -SUPPBgSS LEADING ZEROS
WORD
~ ,*********.a,*,*Ij;****.a-*****-I>'ij*********************************,*****
,.
,.CALL
5395
5400
5401
5402
5403
~
,oTHIS ROUTINE IS USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE
,>LEADING NUMBERS,
5394
5396
5397
5398
5399
0,0
lSI
"
0223"
022354
022360
022362
027364
022370
022372
022374
022400
0?2402
022404
022406
022410
010046
016600
10571 0
001403
122120
001773
005300
010037
104401
000000
012600
012616
000207
000004
MOV
JSR
#NUMADR,-(SP)
PC,@#$5UPRS
$SUPRS. MOV
MOV
iSl
000060
TsrB
BEG
2$1
BEQ
DEC
3$1
MOV
l'¥PE
,WORD
022402
" PICKUP THE POINTER
:, TERMINATEOR?
I JBR IF YES
"IS THIS AN ASCII "0 "
"SR IF YES
nBACKUP BY "1 i1
I'SAVE FOR TYPING
"GO TYPE
"ASCIZ POINTER GOES HERE
, ,RESTORE RO
II RESTORE THE STACK
" RETURN
#~O,(PO}+
IS
0
(SPl+,RO
(SPH, (SP)
MOV
RTS
S~VE
nSAVE RO
4(SP),RO
(RO)
RO
RO,3$
MQV
,SBTTL
RO,-eSP)
21
CMPB
, J FIRST ADDRESS or Ascrz STRING
PC
AND RESTORE RO-RS RUUTINES
541 3
5414
5415
5416
5417
Jt***************************************************************
,*SAVE RO-RS
I"CALLI
,"
SAVREG
MD.II-DZRKL.E, ~~II'RK05 DYNAMIC 'TEST
OZRKLE,PII
26-APR-n 12127
,*UPON RETURN FROM 8SAVREG THE STACK WILL LOOK LIKEI
5420
,*TOP···(+161
, . +2···(+.18)
5421
',. +4,uRS
+6···R4
5412
,*
5423
5424
5425
5476
I. +S···R3
I*+10"·P2
,*.12·"RI
,·.14--·RO
5427
5433
5434
5435
5436
5437
5438
5439
5440
5441
5442
544l
5444
S445
5446
5447
544f!
5' 49
5450
5451
5452
545l
5454
5455
5456
PAGE 102
,.
54\8
5419
5428
5429
5430
5431
5432
MACYI! 30 tI 046) 14-JUL-77 Oea03
SAVE AND RESTORE RO-RS ROUTINES
022412
022412
022414
022416
022420
022422
021424
022426
on432
021436
022442
022446
022450
022450
012454
022460
022464
022470
022472
022414
022476
022500
022502
u22504
8SAVREGI
01004.
010146
010246
010346
010446
010546
016646
016646
016646
016646
000002
012666
012666
012666
012666
012605
012604
012603
012602
012.01
012600
000002
MOV
MOV
MOV
MOV
MOV
MOV
MOV
000022
000022
000022
000022
~OV
MOV
MOV
RO,·UP)
RI,-(SP)
R2,-(SP)
Rl,-(SPI
1l4,-(SPI
ps, ·UP)
22(SP),"(SPI
22(SP),-(8P)
22(8P),-(5P)
22(SP)'-(SP)
" PUSH
IIPUSH
IIPUSH
" PUSH
I,PUSH
"PUSH
"SAVE
"SAVE
"SAVE
I,SAVE
RO
RI
R2
R3
A4
RS
PS
PC
PS
PC
ON
ON
ON
ON
ON
ON
STACK
STACK
STACK
STACK
STACK
STACK
MAIN FLOW
OF MAIN FLOW
Of' CALL
OF CALL
or
RTI
,*RESTORE RO-R5
I*CALLI
RE5REG
I·
SRESREG,
MOV
(5P)+,22(SP)
MOV
(SP1.,22(SPI
Mav
(SPJ+.22(SP)
~OV
(SPl+.22(SP)
(SP)+,RS
~OV
~OV
(SP)+,R4
MOV
(SP).,R3
MOV
(SP)+,R2
MOV
(SP) •• RI
MOV
(SP)+,RO
PTl
000022
000022
000022
000022
, ,RESTORE PC or CALL
'tRESTORE PS OF CALL
"RESTORE PC OF MAIN FLOW
,"~ESTORE PS OF MAIN FLOW
"POP STACK INTO RS
"poP STACK INTO R4
"POP STACK INTO R3
IIPOP STACK INTO A2
nPOP STACK INTO RI
pPOP STACK INTO RO
54~7
,SBTTL
·.*·..
5459
5459
5400
54.,
sr···***********·*********···-••
*****.***.****** ***********
,*THIS POUTINE WILL CONVEPT A 32-BIT BINARY NUMBER TO AN UNSIGNED
5462
I*DECTMAL (ASCII) NUMBER. THE SrGN or THE BINARY NU"BER MUST BE
5463
,*POSITIVE flI
540"
54b5
,-,-
I*CALL
54~6
54b7
54b8
5'69
5470
5471
5412
547 J
"
022506
0225'0
022514
104413
016602
ot2700
SDB2DI
54B!
5482
5483
S4ij4
5485
5486
5481
548~
5489
5490
5491
5492
5493
5494
5 4 95
5496
5497
5490
5499
5500
5501
5~02
5503
5504
55n~
5506
55(J7
5508
5509
5510
5511
5512
5513
5514
5515
5516
5517
5518
5519
5520
5521
022520
1)22524
022526
1121530
022536
012542
022546
022550
022552
022554
022556
022550
012562
022564
022566
022570
022572
022574
022600
022602
022604
022606
022610
022612.
022614
022616
022620
022622
022624
022626
022630
022632
022634
022636
022640
022642
022644
012646
022650
022652
022654
022656
022660
022662
022664
022666
010066
012201
012202
0'2737
012704
012705
005003
161401
005602
161502
002402
005203
000772
062401
005502
062402
022525
062703
110320
005327
000000
001357
105020
104414
000207
145000
035632
160400
002765
113200
000230
04\100
000017
103240
000001
023420
000000
001750
000000
000144
000000
000012
000000
000001
000000
OCOOl4
'PNTR,·(SP)
PC'~",DB2D
PETURN
"POINTER TO LOW WORD OF BINARY NUMBER
"THE FIRST ADDRESS OF ASCIZ
" IS ON THE STACK
SAVREG
.ov
2CSP),R2
UDECVL,M
IISAVE REGISTERS
"PICKUP THE DATA POINTER
I,GET ADDRESS OF "SOECVL" STRING
MACYII 30(046)
14-./U1.-77 OS,03
PAGE 103
DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT
~OV
000002
000012
022616
on620
MOV
JSR
~OV
000002
022666
MD., ,-DZRn.E. RKt I-RK05 DYNAMIC TEST
DZRKLt:,Pl1
26-APP-77 12127
5474
5'75
5476
5477
5419
5479
5490
DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE
MOV
MOV
MOV
MOV
022604
~ov
181
2S1
lSI
000060
4$1
CLI!
SUB
SBC
SUB
BLT
INC
SI!
ADO
ADC
ADD
CMF
BIS
MOVS
OEC
l1li
WORD
BNE
CLRB
RES REG
RTB
UNPWR, 145000
POUTI~E
PO,2(SP)
(P2).,RI
(R2).,R2
"PUT ADDRESS OF ASCIZ STRING ON STACK
"PICKUP THE BINARY NUMBER
'IO,,4S
"SET UP TO DO 10 CO~VERSIONS
"ADDRESS OF TEN POWER
ISTNPWR. R4
UTNPWR+a,R5
113
(R4)'RI
R2
(RS) ,R2
3&
R3
2.
(R4l.,RI
R2
(P4l+,R2
(RSl+'(R5l+
• ·0, R3
113,(RO)+
(PC)+
0
18
(ROH
PC
IICLEAR PAnaL
IISUBTRACT TEN POWER
II BR IF TEN POWER TO LAPGE
,'ADD I TO PARTIAL
"LOOP
" RESTORE SUBTRACTED VALUE
"MOVE TO NEXT TEN POWER
/I CHANGE PARTIAL TO ASCII
"SAVE IT
nOONE?
"BR IF NO
, I TERMINATOR
"RESTORE REGISTERS
nRETURN
"I,OE09
35632
;,1 0 0£08
160400
2765
113200
230
041100
"I,OE07
r' 1 ,0£06
17
,,1~OE05
103240
I
23420
0
1750
,,1.0F-04
,,1.OE03
0
144
"I,OE02
0
12
0
I
"I,OEOI
"I.OEOO
a
8DECVLI
,BLKS
,SBTTL
TRAP DECODER
12,
"RESERVE STORAGE FOR ASCIZ STRING
5522
5523
5524
5525
5526
5527
5528
5529
p,.******* •• ********* •• ****-****.**** •• *** •••
*._......******.****
,*THIS ROUTINE WILL PICKUP THE LOWER BYTE or THE 'TRAP' INSTRUCTION
'''AND USE IT TO INDEX TH!lOUGH THE TRAP TABLE FOR THE STARTING ADDRESS
,*or THE D!8IRII:D "OUTINE, THEN USING THE ADDRESS OBTAINED IT WILL
I"GO TO THAT ROUTINE,
MO-Il-0ZRn.E, RK I1-RK05 DYNAMIC
DZRKLE,PII
26-APR-77 12.27
5530
5531
022702
022704
022710
022712
022714
022716·
022722
010046
016600
005740
111000
006300
016000
000200
5542
022724
5543
5544
022726
022734
011646
016666
000002
5532
5533
5534
5535
5536
5537
T~8T
MACHI 30 (1046)
TRAP DECODER
STRAP,
000002
08! 03
PAGE 104
MOV
MOV
RO,"ISP)
HSP),RO
~,GET
TST
"IRO)
"BACKUP BY 2
MOVS
(ROl,RO
IIGET RIGHT BYTE of TRAP
HO
aTRPAO (RO), RQ
RO
"POSITION FOR INDEXING
ASL
HOV
022736
14-JUL.77
RTS
"SAVE RO
TRAP ADDRESS
" INDEX TO TABLE
"GO TO ROUTINE
5538
5539
5540
5541
"THIS IS USE TO HANDLE THE 'GETPRI' MACRO
STRAP2.
000004
000002
MOV
MOV
(SPl.-(SP)
4C SP), 2C SP)
: f (-lOVE THE PC
DOWN
; J MOVE THE PSw DOWN
RTI
" RESTORE THE PSI>
5545
,BBTTL
5546
5547
5548
TRAP TABLE
I*T"15 TABLE CONTAINS THE STARTING ADDRESSES Of THE ROUTINES CALLED
I*BY THE 'TRAP' INSTRUCTION,
5549
5550
5551
,
I
5552
HRPADI
ROUTINE
,WORD
STYPOC
STIPOS
STYPON
$THDS
STRAP2
, ICALLsTYPE
I,C."LoUPOC
, ,CALL-TYPOS
, ,CALLoTYPON
, ,CALLoTYPOS
TRAP.IOOHO!)
TRAP+21104402 )
TRAP+3(!044031
TRAP+4(104404)
TRAP+5(104405)
TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NOL~ADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)
SGTSWR
"CALL'GTSWR
TRAP." (104400)
GET SOFT-SWR SETTING
SCKSWR
I ICALL=CKSWR
, ,CALL_RDCHR
, ,CALL_ROLIN
"CALL'RDOCT
, ,CALt=SAVREG
"CALL=RESREG
TRAP+7(!04407)
TRAP.IO(!044!O)
TRAP+IHI04411l
TRAP+t2(!04412)
TRAP+!J(104413)
TRAP+14(l044!4)
TEST FOR CHANGE IN SOfT-SWR
TTY TYPEIN CHARACTER ROUTINE
TTY TYPE IN STRING ROUTINE
?EAD AN OCTAL NUMBER FRU~l Tn
SAVE RO-R5 POUT INE
..
RESTOPE PO-P5 ROUTINE
022750
022724
020260
022104
022060
022120
020034
022752
021154
022754
022756
022760
022762
022764
022766
021064
021366
021456
021756
022450
$ROLIN
SRDOCT
SSAVREG
SREIREG
022770
01&602
CN,RST
"CALL_CON,RESET
TRAP+15C!04415) CONTROL RESET ROUTINE
022772
016470
DR,RST
nCALLoDRV,RESET
TRAP+l6(I04416) DRIVE RESET ROUTINE
016044
MSGE
"CALL=MESAGE
TRA'.17(104417) MESSAGE HANDLER
5575
022776
016106
TI,MSC
"CALL_rIPMSG
IRA.+20(104420) MESSAGE TYPEOUT ROUTINE
5576
3577
5578
023000
016620
CN,RDY
"CALL_CON,RDY
TRAP+21(104421)
5553
5554
5555
022736
022740
5556
022744
5557
5558
5559
5560
5561
5562
5563
5564
5565
5566
5567
022742
02'2746
srHE
$RDCHR
022412
TYPE DECIMAL NUMBER (WITH SIGN)
5568
5569
5570
5571
5572
5573
5574
5579
5580
5591
WAIT FOR CONTROL READY
023002
016716
TST~IS
"CALL-TST,RIS
TRIP+22(104422) TEST R/./S ROY SET
023004
016514
RES,DD
nCILL'REIDDN
TRAP+23(!04423) DRIVE RESET DUNE?
023006
022306
TIPDES
"CALL=TYPDSS
TRAP.Z41104421l rYPE DECIMAL, SUPRES .DG o'S
5592
5593
5584
5595
MD-ll-DZRKL.E, RK! \-PK05 DYNAMIC TEST
DZPKLE. P! 1
2G-IPR-n 12,27
5596
~5BTTL
55B7
5598
5592
5593
5594
5595
5596
023010
023016
023024
023026
023030
023032
023034
5597
023036
5598
5599
023040
023044
073050
023056
023060
5600
560!
5602
5603
5604
5605
5606
5607
3608
5609
56'0
36! I
5612
5613
5614
561.5
5616
5617
56! B
5619
S620
5621
5622
5623
5624
5625
5626
5621
5628
5629
5630
5631
5632
012737
012737
010046
010146
010246
010346
010446
010546
017746
010637
012737
000000
000776
023154
000340
ooooH
000026
156074
023160
023062
000024
oe'03
PAGE 105
POilER DOWN AND UP ROUTINES
'* '*
5599
5590
5591
MACHI 30(1046)
14-JUL-n
POWER DOWN AND ue ROUTINES
'*
** ****** '*
*** **it ** ~***** *il-ft *
'* *·~**·~HHl' <\l' ~ * * «J , *****~ flo
,POWER DOWN MUTI NE
$PWPDN, MOV
OSILLUP,@'PWRVEC " SET FOR FAST UP
~iOV
~340,@lPWRVEC+2 nPRJO:7
~OV
RO,-ISP)
"PUSH RO ON STACK
MOV
RI,-(SP)
1,PUSH R1 ON STACK
MOV
R2,-(SP)
~ ,PUSH R2 ON STACK
MOV
P3,-eSP)
:i PUSH R3 ON STACK
MOV
R4,-(SP)
"PUSH R4 ON STACK
R5,-(SP)
MOV
, ,PUSH R5 ON STAe_
MOV
@SWR,-(SP)
~JPUSH @SWR ON STACK
MOV
SP,SSAVR6
~JSAVE Sf
MOV
#SPWRUP,UPWRVEC "SET UP VECTOR
HALT
SR
1JHANG UP
,
'* '* *'* '* *- *# '* ** *'*
-.
,,POWER
, ***********************************************
*'* -II- *************
UP ROUTINE
023062
023070
023074
023100
023104
0231 06
023112
023114
0231 16
02 3! 2 0
023122
023124
023126
023134
023142
023144
023146
0231 50
023152
023154
023156
023160
023162
023170
012737
013706
005037
005237
001375
012677
012605
012604
012603
012602
012601
012600
012737
012737
104401
023!62
012716
004244
000002
000000
000776
000000
005015
000122
023154
023160
023160
023160
000024
156026
$PWRUPI MOV
MOV
eLR
1$,
INC
8NE
MOV
MOV
MOV
MOV
MOV
MOV
023010
OOOHO
MOV
MOV
MOV
TYPE
000024
000026
@PWRMG,
~
SF"RAD,
MOV
,WORD
RTI
WORD
#SILLUP,@>PWRVEC : ,SET FOR fAST DowtJ
S8AVR.,SP
1,GET SP
SSAVA6
"WAIT LOOP fOR THE TTY
,SAVRS
"WAIT FOR THE INC
~ORD
IS
-': ,OF
(SP)+,UWR
"POP STACK INTO @S'R
(SP)+,R5
"POP'STACK INTO R5
n POP STACK INTO R4
(SPlt,R4
ISP»,R)
"POP STACK INTO R3
(SP)+,R2
"poP STACK INTO R2
ISPh,RI
"POP STACK INTO Rl
"POP STACK INTO RO
ISPl+.RO
UPWRDN,@,PWRVEC "SET UP THE POWER DOWN VECTOR
1340,UPWRVEC.2 IIPRIO.,
,REPORT THE PO"ER FAILURE
HOWER
"PUWER FAIL MESSAGE POINTER
(PCJ+,csP)
"RESTART AT PWRFL
PWRFL
~,RESTART ADDRESS
$ILLUP, HALT
BR
047520
042527
$SAVR6,
$POWER,
0
,ASCIZ
,EVEN
,-2
>(12)l-lpOWERil
, ,THE POWER UP SEQUENCE WAS STARTED
:, 8EFORE THE POWER DO,/N wAS COMPLETE
"PUT THE SP HERE
MD-ll-DZRKL.E, RK11-RK05 DYNAMIC TEST
DZRKLE,Pll
26-APP.77 12127
MACYll 30 (! 046)
14-JUL-n
08 I 03
PAGE 106
FUNCTION SELECTION PROGRAM
,S5TH _ FUNCTION SELECTION PROGRAM
5633
5634
,THIS IS THE FUNCTION SELECTION PROGRAM,
,ON ENTERING THIS SUS-PROGRAM THE FIRST QUESTION ASKED IS
,
FUNCTION?
IN REPLY TYPE IN ONE OF TME FOLLOWING COMMANDS,
ICON"ANDS.
CR • CONTROL RESET
I
DR " DRIVE RESET
,
SK • SEEK
,
WR • WRITE
5635
5636
5637
563B
56,0
5640
5641
5642
5643
5614
I
RD - READ
,
we • WRITE CHECK
,
He -, READ CHECK
,TERMINITI EVERY COMMAND WITH eCR>, FURTHER QUESTIONS (RKBI' • RKDA? •
,INORDS? ) WILL BE ASKED, TYPE IN THE BUS ADDRESS (OCTAL), DISK ADDRESS
,lOCTALl, AND NUMBER OF WORDS TO BI TRANSFERRED (OCTAL). IF A NON-EXISTENT
,CYLINDER OR A NON.EXISTENT SECTOR IS TYPED IN, THE QUESTION (RKDA?) WI~L
I BE ASKED AGAIN,
5645
56!!!6
5647
5646
56 11 9
5650
,IN CASE Of SEEK FUNCTION, SEEK IS DONE BETWEEN A SET OF CYLINDERS GIVEN
,SY THE USER
(CXLI?, CYL2?), IN REPLY TO ICXLI?, CYL2?) TYPE IN THE OCTAL
,CYLINDER NUMBERS BETWEEN WHICH THE SEEK IS TO ~E DONE, SET SWITCH
,REGISTER BITS <15-13> TO THE DRIVE # ON WHICH SEEK IS TO BE DONE,
5651
5652
5653
5654
5655
5656
I III CASE OF A WRITE fUNCTION IF SW 0 IS SET TO 1 THE PROGRAM "ILL ASK
5657
5656
565<;1
,THE USER fOR THE PATTERN TO BE WRITTEN,
,
PATRN1125252
,THE USER SHOULD TYPE IN THE (OCTAL) PATTERN HE WANTS TO WRITE,
5660
5661
,SOUNDS or THE SISTEM,
,NOTE THAT THE NUMBER Of WORDS TRA'
,THE USER SHOULD TIPE IN THE (OCTAL) PATTERN TO BE ORITE CHECKED,
5663
5664
5665
5b66
5bb7
5666
5669
5670
5671
"IOBU,O' ONWARDS ARE RESERVED fOR DAT~ BUfFERS, IOU CAN USE
,THESE LOCATIONS FOR DOING DATA TRANSfERS IN THIS PROGRAM (OR yOU CAN
,USE ANY OTHER BUf,ER FOR DATA TRANSFER AS LONG AS IT OOES Nor OVERLAY
,UOCATIONS
, THE PROGRAM)
~
5&72
5676
,THE SAME FUNCTION IS PERFORMED AGAIN ~ND AGAIN, THUS PROVIDING
IA VERY GOOD SCOPE LOOP, IF YOU .ANT TO GIVE A NEW fUNCTION PUT SW 3 UP,
,THE QUESTION IFU-CTION?) WILL 8E ASKED AND YOU CAN STAPT ALL UVER AGAIN,
I IF ON EXECUTING A FUNCTION AN ERROR OCCURS, IT IS REPOTRED , WITH
5677
I
5£-73
5674
5675
RELEVANT REGISTER CONTENTS GIVEN,
SoH
5679
,82 CONTAINS RKCS CONTENTS
56B0
56R 1
5bt12
,R4,RS CONTAIN THE OLINDER @S BETWEEN
,WHICH SEEK IS TO BE DONE.
5683
56R4
5685
5686
5687
56Be
; R3 CONTAINS RKDA CONTENTS
023172
023 [72
0231 76
5689
569 1i
5691
5692
5693
5694
569'
1569b
5697
5698
56Y9
57Ul)
5701
5702
5703
5704
571)5
571)6
57D7
5'108
5709
571\1
5711
5712
5713
5714
5715
5716
5717
5718
5719
5720
5721
5722
5723
572 4
5725
5726
5727
5728
5729
5130
5731
5732
5733
5734
5735
5736
5737
5738
5739
023200
,,65S;
023216
023216
MD .. j 1-LlZRKL .. E,
DZFlKt.F
rUNBEG,
104~Ol
0')040;
~Pt
1
RK11-RK05 OYNAMIC T~5T
26-APR.7? 12,27
02]2Sf
023256
023260
023264
023272
023276
012702
OO{)521
121 ')27
OO! 342
004737
012702
000523
023100
023304
012702
000506
000007
023306
023312
023314
023320
023322
023326
023330
023334
023336
023)42
120127
001014
121027
001003
012702
000475
121027
001316
000122
01270.
000013
023352
023356
023360
02336-1
023366
02>372
023374
023400
023402
023406
023410
023414
023416
023422
023424
; ,-J'YPE AselZ STRING
"G~T
<15>(12)IFUNCTION?
OVER THE ASCIZ
I
PDLIN
10441 I
012600
112001
120127
001026
121027
001010
004737
012702
(005)6
023344
023350
,65$
64$
64S I
023220
023222
023224
023230
023232
023236
023240
023244
023250
02326'
TYPE
BR
,ASCIZ
MACn 1 30(1046) 14-JUL-77
fUNCTION SELECTION PROGRAM
NOV
MOVS
CMPB
000127
000122
024064
00400]
120127
001006
121027
001274
012702
000533
JSR
PC,CHKSWO
1400l,R2
NXTDA
(~o),#"R
U
9$1
MOV
Il,R2
BR
NXTBA
000103
IS.
CMPB
(RO),#'C
BNE
FUNBEG
JSR
PC,CHKS"O
14007, ~2
NXTDA
~ov
MOV
#7,F2
BF
NXTBA
28 I
CMPB
Rl,#"'~
8S,
CMPB
BNE
MQV
BF
CMPS
000104
000005
000103
BNE
BNE
000501
120127
001006
121027
001305
012702
000470
CSP)+,FW
2$
BP
000 I 04
lSI
3$
tl5,R2
NxrBA
(RO), #'C
FUNBEG
113, R2
BF
NXTOl<
(MFB
BNE
4$
Rl, $"'0
C~P8
(R01,#""R
BNE
MOV
BR
FUNBEG
000015
000103
CMPB
R1,.'C
U5,R2
NXTDA
BNE
58
000122
CMPB
(RO),$'R
FUNBEG
000001
8NE
MOV
H,R?
EXEC
CMPB
R1, # 1'5
8NE
FUNBEG
120127
001266
! 21 027
001263
-000123
000113
CMPB
(Ra),
000011
BNE
MOV
FUNBEG
012102
104401
000404
023436
5S!
,CHECK SW 0 SET?
(RQ), #.!'D
MOV
BR
,CHECK SW 0 SET?
8$
000122
48 I
10?
(ROH.RI
OOOOOl
024064
004007
PAG~
Rl,~'W
BNE
C,'.I!PB
BNE
1>IOV
SR
OB.03
.'f(
I1bR2
5140
5741
5742
5743
5744
023430
0234]0
023434
6S!
1167$1
TYPE
8R
,ASen
,67~
"TYPE ASCIZ STRING
66$
II GET OVER THE ASCI-Z
lefLI?
MD.ll·DZR~L.~
,
DZRKLE,Pll
5745
023446
5746
023446
023452
023454
5747
5748
5749
5750
5751
5752
5153
5154
5755
5756
5757
5758
5759
5760
576!
5162
5763
5164
5765
5166
5767
5768
5769
5770
5771
5712
577 3
5774
5775
5776
577"1
5778
5779
5790
5781
5782
5783
571J4
5785
5786
5187
5788
5789
5790
02345>6
023462
59114
sa 06
5801
58 08
581)9
5810
5811
5812
5813
5B14
5815
58 \ 6
5817
58 IS
5S19
5820
5821
58n
S821
5824
JSR
BR
MOV
TYPE
SP,
"69$ ,
S8S,
024032
JSR
155430
017777
alC
BIS
BIS
5829
5830
5831
5832
5933
5834
5835
5816
5837
5UB
5839
5840
5841
5842
5843
5BH
5845
5846
5847
5848
5849
5850
5854
5855
5856
MOV
(SPl+,INDX2
104401
000404
023554
TYPE
BR
.ASCIZ
,656
64$
104412
012600
010001
006201
006201
006201
006201
006201
042101
020127
003354
"' 0001
042701
ROOC!
MOV
MOV
ASH
ASH
ASH
ASH
ASR
SIC
CMP
BGT
MOV
177400
00031 2
023642
023642
023646
!o4401
000405
023650
000015
PKI!·RK05 DyNAMIC TEST
,b·APR-7? 12,27
(SP". RO
RO, Pi
RI
PI
RI
RI
HI
#l77400.RI
RI, nl2
NXTDA
RO,R!
'177760,PI
BF:Q
RI,U3
NXTDA
fW,P3
# 15, R2
EXEC
TYPE
BR
,65$
64$
MACYlI 30(1046)
14-JUL-77
FUNCTION SELECTION PROGRAM
~ASCIZ
"TYPE ASCIZ STFING
"GET OVER THE ISCIZ
08.03
PAGE 109
tUORDS? I
64$ ,
104412
0054!b
012631
000401
\04415
02:170.
001005
020403
001402
010403
000401
010503
01)777
010377
013777
010277
105777
100375
022702
001401
104423
RDOCT
001502
EXEC II
EXEC,
000011
(SP)
(SP)+.INDX4
EXEC
CON ,RESET
eMP
HI,B2
BPVE
2$
eMP
R4,iH
BEQ
3$
Mav
84. RJ
S"
001476
155534
001502
155536
HI
2$ ,
MOV
MOV
MOV
Mav
155522
155514
MOV
155510
131
TSTB
BPL
eMP
BEQ
OOQOO I
\40000
155470
U,
032777
000010
155142
CHSW,
001737
000137
023172
024004
OHOl2
024020
024024
024026
024030
012737
012737
004737
104030
104415
000757
024032
024014
024036
024042
024044
024046
024050
024052
024054
024062
100412
012600
020027
003007
006300
006300
006300
006300
006300
06271.
00Q207
024064
024072
032777
001416
02]674
023674
016162
001 II 0
00 II 06
rUNERR,
2G
INDX2,0RKBA
Rl,@RKOA
IMaM,@RKwC
R2,@RKCS
@RKCS
,If IT'S CON PESET FUNCTION
,DONT WAIT fOP R/W/S RDY
,R/"/S ROY?
BIT
BNE
BIT
FUNERR
,YEO
#SW3,@SWR
:TERMINATE THIS FUNCTION OR REPEAT?
BEQ
EXEC
J"P
rUN BEG
;REPEAT
:TEBMINATE
MOV
UXECt. $LPERR
,SET UP FOR LUPING
MOV
~EXEC!.*LPADR
U 40000,@RKCS
~e:PROR?
NOV
eMP
(SP>+,RO
RO,UI2
BGT
'1$
A5L
RO
ABu
RO
ASL
ASL
RO
PO
PO
#2,(SP)
ABL
000002
,REPORT ERROR
,CLR ERROR
RDaeT
INPTI
13,
ADD
PTS
CHKSWO I
BIT
BEQ
024102
,WAIT fOR CNTRO" RDY
IS
*4$1, R2
PC, GT4RG
ERROR
30
CON ,RESET
SR
CHaw
155046
,NO
: IF SEEK, I'SERT THE RIGHT
,CYLINDER ADDRESS
J5R
000312
000001
~C~R EBOR, CONTROL RESET
,SEEK FUNCTION?
R5.R3
RESoON
032777
001006
104401
000404
NEG
MOV
B~
023760
023766
023770
023776
024000
024074
024100
J,GET OVER THE ASCIZ
NXTWC,
,,65 $ I
024056
"TYPE A5CIZ STRING
IRKDA?
640,
02363'1
023634
023640
023746
023750
02375.
023756
"TYPE ASCIZ STRING
"GET OVER THE ASCIZ
NXTOA,
5851
5852
5853
/RKBA?
He
023736
OHH2
FROM SW REG'
UNWANTED BITS
,SET DRIVE i IN DSK ADRES
,eLF
ROOCT
001476
5825
5826
5827
5828
,65S
640
,ASCIZ
CM?
eGT
MOV
CMP
023674
0:/3676
023702
023704
023706
02>710
023712
023714
023716
021724
023730
:GET DRIVE i
U 7777, PO
M,M
TYPE
SR
! 17760
023662
OH662
0'13664
02366&
023672
PC,INPT
n
RO, RS
@SWR,PO
RO,RS
EXEC
0000\.3
023630
"TYPE ASCIZ STRING
"GET aVER THE ASCIZ
,69$
68$
/CYL2?
SF
020127
u03H6
010003
022702
001416
023620
PC,INPT
68
RO,R4
64el
1044\ 2
012637
,,658,
023564
023564
023566
023570
023572
023574
023576
023600
023602
023604
023610
023614
023616
PAGE 108
NXTBA,
023530
023540
023546
02]546
023552
,ASClZ
SR
MOV
MOV
n65 $,
023540
023542
08103
7$,
104401
000404
DZPKLE,PII
591)5
023464
023522
023522
023526
MO",t1"'D'U~KL.",E,
5BOl
104401
000404
004737
000766
010005
017700
042700
050004
050005
000466
5793
59UI
58n2
024032
023414
023474
023500
023502
023504
023510
023514
023516
023520
021624
5800
14·.lUL-77
FUNCTION SELECTION PROGRAM
MACYlI 30! 1045)
56$1
004737
000766
010004
023456
5791
5792
5794
5795
5796
5197
5798
5799
Rill-RIDS DINAMIC TEST
26-APR·71 12127
TYPE
BR
PC
#SWO,@8WR
1$
,NO
,6S$
64$
,VES, ASK FOR PATTERN
"TYPE ASCIZ STRING
"GET OVER THE A5CIZ
I WRITE A PATTERN GIVEN BY USER?
MD.II-OZRKL.E. RKII.~K05 DYNAMIC
DUXLE,PII
26-APRon 12.27
5857
5858
5859
5860
5861
5862
5863
5864
5865
5866
5807
5"68
5~b9
5870
5871
5872
5673
5874
5B7~
5876
5971
5878
5879
5880
588 I
5882
5B81
5BS4
58.5
588'
5S87
5888
58B9
5R90
5991
5092
$,!93
(
5,94
5.9S
5890
5~97
5899
5.99
59l}O
024112
024\12
024114
024120
024126
024\30
024134
024136
024140
Q24142
0241 50
024156
024160
OHISS
024170
024 176
024204
024212
014214
024222
024224
014232
024234
0141)6
024244
024246
024250
024254
024260
024262
024264
024270
"24217
024276
014100
024304
024312
024314
024316
1)24324
024]30
024332
TEST
MACYlI 30(10461
14-.JUL-"
FUNCTION SELECTION PROGRAM
,,6H'
6481
012637
012737
000207
062716
000207
104416
104415
013737
032737
001404
042737
000403
052737
013777
0' 2777
104421
013777
1 ~4421
032777
001001
005725
013737
104416
000205
005037
0\2700
105710
001413
1057&0
001410
004537
031446
031446
~ov
001476
tel
000006
001230
020000
002130
001230
020000
001230
020000
001230
000011
001230
155260
155244
002120
155242
000100
155220
002120
001230
001230
001232
RT!
ADD
RTS
lSI
281
3$1
SIZEF.
000002
(SPI+,IOBU'1
nOBuFI,INDX2
PC
16,(SPI
PC
SR
2.
SIS
MOV
MOV
CON,RDY
MOV
CON ,RDI
BIT
nOOOO,DRIVAD
DRIVAD, VRKDA
#11,@RKCS
,SAVE THE PATTERN
,SKIP NXT 2 INST ON RETURN
000002
2$1
001230
JSR
SR
BIS
BIS
TST
TST
ADD
CMf
SCT
FTS
,SAVE DRIVE ADRR
,SEE IF ODD
,MAKE Eve;N
,MAKE ODD
,DRIVE ADDR
,DUVE SEEK
,OTHER DRIVE
DRHOLD, .RKDA
UOO,UKDS
SNE
38
(RS).
1ST
MOV
DRHOLD,DRlVAD
PRV,RESET
RTS
R5
CLR
DRIVAD
MOV
#DRIVO,RO
(RO)
TSTS
BEQ
2$
TSTB
2(ROI
B~Q
024136
040000
001251
IPATRN7I
~~~~~~:g:~~~~
4$1
000002
000002
PAGE 110
rCHECK. DRV,RESET
CON ,RESET
MOV
BIT
BEQ
IS
BIC
120000,DRIVAD
(H1040S
052710
0527&0
005720
'105720
062737
022700
003353
000207
.lSCn
RDOCT
M·OV
104412
01103
2$
R5,FCHEC~
2.
n,CRO)
U,lCROI
CRO)+
(RO).
HOOOO,DRIVAD
.ORIV7+I,RO
,HEAEOS IN MOTIONN?
,NO SO RK-05J
,IES RK-OSF
,RESTORE ADOR
,HART AT ORO
,TABLE OF AVAIL DRIVES
,THIS DRIVE HERE?
,NO
,COMPLEMENT HERE?
,NO
,SEE IF F MODEL
,J MODEL
,SET SIGN FOR F
,BOTH DRlVES
,NEXT PAIR OF DRIVES
,NEXT ACTUL ADOP
,CHECKED ALL?
,NOT YET
U
PC
590!
'59 1)2
,ERROR MESSAGES
1)90)
5904
5905
047103
0'2122
047104
052105
020122
000
051124
020BI
052047
040440
042523
020114
044504
051440
052106
045505
EMI,
, ASCIZ
ICNTRL ROY DIDN'T SET AFTR SEEK!
5ql1)
024Jl4
024342
02 4 350
024356
024304
024372
5911
,912
024)7l
123
047111
047440
EM21
,ASCIZ
ISIN ON
5~116
r;Qv7
59l)9
S9l1Q
Mn-l1-DZ~'L_E.
DZRKLF 'lIPt 1
5q'l
5914
P"I-PK05 DYNAMIC TEST
26-APp-n 12,27
SEE~I
MACYlI 30(10461
14-o,JUL-77
fUNCTION SELECTION PROG~AM
PAGE III
08'03
020116
000
042523
045505
024407
Q24414
014422
104
020116
042522
042523
047440
045505
EM3.
,ASCIZ
lORE ON SEEK!
0?4423
024430
')24136
047
047440
045505
051105
020116
000
023522
042523
EM4.
,ASCIZ
!'ERR' ON SEEK!
024441
024446
024454
024462
024470
024476
024504
104
020116
020054
051104
023440
020047
047125
052522
042523
052520
020126
047514
020046
000047
047440
045505
EMS.
,ASCIZ
IDRU ON SEEK; PUT DRV ON 'LOAD' ,
024510
024S16
024524
024532
024540
027522
042122
020124
043101
042523
027527
020131
042523
042524
045505
020\23
047516
020124
020122
000
EM6'
,ASCIZ
"R/W/S ROY NOT SET AFTER SEEK"
024545
123
020116
047111
051127
000124
047440
020124
EM7.
,ASCIZ
!SIN ON wn FMTI
112440')
0244 C)b
5915
5916
5917
59,.
5919
59?O
5021
5922
59?l
5914
5925
5976
5927
5928
5929
5930
1)00
'PUN'I
020124
047117
042101
051047
59 J I
5932
5933
5934
5H5
5Hb
5.31
5938
5939
5940
5941
5942
5943
5944
5945
5946
5947
5948
5949
5950
5951
5952
5951
5954
5955
5956
5957
014552
024560
046~06
nH564
024572
024600
024606
024614
024615
024622
Q24630
024633
Q24640
074646
024654
024655
024662
024670
024676
042447
047117
043516
042524
000
051122
042040
053440
043040
020047
044517
044522
052115
EHIO.
,ASCIZ
!'E~R'
123
047111
042122
000
051105
020116
043040
047440
043057
EMU.
,ASCIZ
·SIN ON RD/FMT'
023522
042522
052115
EMI2,
,ASCIZ
!'!RR' ON READ rMTI
047522
051104
046517
021503
043516
020123
023440
000047
EMU.
,ASCIZ
IWRONG HDRS
024704
n24712
0,.720
024726
024734
024742
024750
024756
051105
020116
042511
045505
020115
023501
041447
000
-051117
046511
020104
043040
041447
052040
046131
047440
046120
042523
047522
046131
020117
023502
EMI4.
,ASCIZ
!EROR ON IMPLIED SEEK FROM 'CILA' TO 'CYLS'I
024757
122
040505
020104
MSI51
,ASCn
IREAD WRONG HDRS FROM
020116
052115
047
047440
042101
000
127
044040
051106
042523
ON DOING WRITE FMTI
rRO~
'SEC#'!
5958
5959
5960
5961
5962
5963
59~4
5965
5966
5967
5968
·eYLa·
ASOVEi
MD·II·0ZR~L.E,
DZRKLE,PII
5969
5970
5971
5972
5973
5974
5975
5976
5977
5978
5979
5980
5981
RKl1-RK05 DYNAMIC TEST
26-APR-77 12.27
024764
024772
025000
025006
025014
047522
046131
047502
047117
020107
051522
020115
023502
043040
041447
040440
000
042526
"eYLS' (ON IMPLIED SEEK FROM 'CYLA')I
,ASCIZ
IREAO WRONG,
MSI7,
,ASCIZ
IREAD 1ST WHO FROM SEC I, 9C¥LB' ABOVEI
EM20 ,
, ASCIZ
IREAD
025126
025134
025142
025150
025156
025164
025172
042522
05212l
043040
042523
023440
020047
000105
042101
053440
047522
020103
054503
041101
030440
025174
025202
025710
025216
025224
025232
n2S240
042101
043516
020lll
050115
051440
0511 06
054503
047524
041114
053440
044040
047117
025254
042522
047522
051104
044440
042105
02011 3
023440
020047
054503
025262
025270
025276
025304
025)!2
051105
020116
020 I 07
020105
051511
051117
047504
051127
047117
000113
047440
047111
0521 II
042040
EM21'
, ASCIZ
IEROR ON DOING WRITE ON DISKI
025316
025324
0253]2
044523
042040
053440
020116
044517
044522
047117
043516
042524
EM221
,ASCIZ
ISIN ON DOING wRITEI
6015
6016
6017
6018
6019
6020
6021
6022
61)23
025140
000
025341
025346
025354
110
042040
051040
020105
044517
040505
047117
043516
000104
EM23,
,ASC IZ
IHE ON DOING READI
025362
025370
051503
051040
020105
040505
041117
EM24,
,ABelZ
ICSE ON READI
6024
025376
040504
040524
042440
EM2S,
,AselZ
IDATA EROR ON READ fROM DISK ADRESI
6002
025246
052123
043040
042523
023440
020047
046511
020104
043040
041447
000051
020104
026107
053440
047522
020103
054503
047450
046120
EMI6.
Q25122
6003
6004
6005
6006
6007
6008
0009
6010
60\1
6012
601.3
6014
040505
047117
PAGE 112
122
051127
030440
042122
020115
026060
041114
020116
042511
045505
020115
1)23501
5982
5983
5994
5985
5986
5987
5988
5989
5990
5991
5992
5993
5994
5995
5996
5997
5999
5999
6000
6001
02502!
025026
Q25034
025042
025050
025056
025064
025072
025100
025106
025!! 4
0511 27
042110
08.03
MACHI lOt 1046)
14-ol'UL-77
FUNCTION SELECTION PROGRAM
042523
047522
0461J!
042122
020115
026061
041114
053117
6045
6046
6047
6048
6049
6050
605!
6052
6053
6054
6055
6056
6057
6058
6059
6060
606 !
6062
6063
6064
6065
6066
6067
6068
6069
6070
6071
6072
6073
6074
6075
6076
6077
607S
6079
6090
WRO~G
HDRS ON IMPLIED SEEK
rRO~
'elLA' TO §CYLB'/
044514
042505
046517
040514
023440
000047
000104
MD·II-DZRKL.E, RR\ \-pK05 DYNAMIC TEST
DZPKLE,PII
26-APP-7? 12.27
6025
6026
6027
6028
6029
6030
6031
6032
6033
6034
6035
6036
6037
6038
6039
6040
6041
6042
6043
6044
18T WRo FROM SEC 0,
MACYlI 30(1046)
14-JUL·77
fUNCTION SELECTION PROGRAM
OB, 03
025404
02541.
025420
025426
1)25434
047522
05 \ 040
051106
051511
042522
020122
040505
046517
020113
000123
0471 17
020104
042040
04210!
025440
025446
025454
042510
051127
000113
047440
020124
020116
044103
EM26'
,ASCIZ
IHE ON WRT eHKI
025456
025464
025472
051127
020!!3
000
020124
051105
044103
051117
€M271
,ASCIZ
IWRT CHK ERORI
025473
105
047522
000122
£"301
,ASCIZ
IERORI
PAGE 1\3
,DATA HEADERS
025500
02550.
025514
025522
(125530
025536
025544
020040
020040
020123
042513
05104Q
020040
000101
041520
051040
020040
020122
042113
051040
02554.
025554
025562
025570
042523
020040
047111
051122
045505
042523
020107
051117
025576
025604
025612
025620
025626
025634
025642
025650'
020040
020040
020123
042513
05! 040
020040
020101
046131
025653
025660
025666
025674
025702
025710
025716
025724
025732
025740
025746
025750
025756
025764
042126
020040
DHII
,ASCIZ
PC
021440
045505
042440
000123
OMS'
,ASCIZ
ISEEK #
041520
051040
020040
020122
042113
051040
020040
000
020040
04lS13
05! 040
020040
020!23
DH? ,
,ASCIZ
PC
040
020040
020123
042513
051040
020040
020072
054503
020040
020040
000103
050040
051040
020040
020122
042113
045522
051104
020114
052523
0200·40
020103
041513
051040
020040
020123
040504
020040
020040
020122
DHII'
,ABCIZII
042523
042523
021503
020040
OHI3I
,ASCIZ
042110
020122
000
041522
RKCS
RKER
RKDS
RKD'I
RKDS
RKDA
041513
051040
020040
020123
042113
SEEKING
Rxes
ERRORSI
RK~R
CUI
042113
041440
PC
ISEC#
RKCS
HDR ReVDI
RKER
RKDS
RXoA, DR
eYL
SUR
SECI
4
MD-I1-DZ~KL-E,
OZ~KLE.PII
609 I
6082
6083
6084
6085
6096
6087
6088
6089
6090
6091
6092
6093
6094
6095
6096
6097
6098
6099
6100
6101
61Q2
6103
6104
6105
6106
6107
6108
6109
6110
61 II
6\12
61\3
61 !4
6115
6116
6117
(
6118
6119
6120
6121
6122
6123
6124
6175
6126
6127
6128
6129
6130
6131
6132
6133
PKI1-~K05 DYNAMIC
26·AP~·77 12127
TEST
MACYI1 30(1046)
14·~UL·77
FUNCTION SELECTION PROGRAM
PAGE 114
08103
cns
RKE~
015767
025774
016002
026010
026016
026024
026032
016040
040
020040
040514
054503
010040
020122
051504
052040
050040
020040
020040
041114
051040
020040
020040
054522
020103
054503
020040
020040'
042513
045522
020040
000043
OHI41
,ASCIZ
PC
Cn.·A
026046
026054
026062
016070
026076
026104
026112
026120
020040
020040
020101
041114
054105
020040
020104
021531
041520
041440
020040
020040
041520
042522
020040
000
020040
046131
054503
020040
020124
053103
DHI61
.ASCIZ
PC
eYLA
eiLS
EXPCT
026123
026130
026136
026144
026152
020160
040
020040
041114
050130
051040
000
050040
020040
020040
052103
041505
020103
054503
042440
020040
042126
OHI71
,ASCIZ
PC
CiLe
EXPCT
RECVDI
026161
026166
026174
026202
026210
026216
026224
026232
026240
026246
026254
026262
040
020040
021531
041513
051040
020040
020123
03510\
041440
0'0040
020040
042523
050040
020040
020040
020123
043513
051040
051040
042040
046131
051440
020040
000103
020103
051124
051040
020040
020122
043113
042113
020122
020040
051125
020040
OH241
.ASCIZI
026266
026274
026302
926)10
026316
026324
026332
047527
042440
020040
042126
046131
020122
000
042122
050130
051040
020040
020040
051440
020043
052103
041505
0;ij1440
052523
041505
OH251
,ASCIZ
~KDS
~ECVD
PC
IWORDI
RKCS
TRYf
EXPCT
~KER
~ECVD
CYL
~KDS
SUR
RI
Source Exif Data:
File Type : PDF
File Type Extension : pdf
MIME Type : application/pdf
PDF Version : 1.3
Linearized : No
XMP Toolkit : Adobe XMP Core 4.2.1-c043 52.372728, 2009/01/18-15:56:37
Format : application/pdf
Creator : anonymous
Title : PDF printing 600 dpi
Create Date : 2006:12:06 10:37Z
Creator Tool : Oce-Technologies
Modify Date : 2013:11:26 12:26:07-08:00
Metadata Date : 2013:11:26 12:26:07-08:00
Oce Identification Number String: 4572
Oce Image Tag Orientation : 1
Oce Scan Application Selector String: Scanjob
Oce Scan Compression : 8
Oce Scan Host Computer : PR343
Oce Scan Image Logic : 1
Oce Scan Job Description : PDF printing 600 dpi
Oce Scan Model : 235000119
Oce Scan Resolution : 600
Producer : Adobe Acrobat 9.55 Paper Capture Plug-in
Document ID : uuid:05061dc6-183f-40b1-8718-60f35463e7f8
Instance ID : uuid:286fe30a-4207-4b62-b5f3-3e6cba47193c
Page Count : 67
Author : anonymous
EXIF Metadata provided by EXIF.tools