Digital PDFs

MAINDEC-11-DZRKH-F

December 1976

85 pages

Original

5.1MB

Document:	RK11 RK05 Performance Exerciser
Order Number:	MAINDEC-11-DZRKH-F
Revision:	0
Pages:	85
Original Filename:	http://bitsavers.org/pdf/dec/pdp11/xxdp/diag_listings/RK11/MAINDEC-11-DZRKH-F_RK11_RK05_Performance_Exerciser_Dec76.pdf

OCR Text

!OENTIFICATION
.......•......
PRODUCT COOEa
PRODUCT NAMEI

RK11/RK05 PERFORMANCE EXERCISER

DATEI

DECEMBER, 1976

MAINTAINERI

DIAGNOSTIC GROUP

AUTHOR I

JIM KAPADIA

REVISION!.

TOM SAWYER, GEORGE GALLANT, 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 FOR USE ON A SINGLE COMPUTER SYSTEM AND
CAN BE COPIED (WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY
FOR USE IN ,SUCH SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN
WRITING BY DIGITAL.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE
USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS ~OT
SUPPLIED BY DIGITAL.
COPYRIGHT CCl 1974,1976 BY DIGITAL EQUIPMENT CORPORATION

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.3
4.4

PROGRAM CONTROL MODES
PAPER TAPE LOADING
RKDP DUMP MODE
RKDP CHAIN MODE
ACTt1

5.0

DRIVE SELECTION

6.0

SWITCH OPTIONS

7.0
7.1
7.2

PROGRAM STRUCTURE AND DESCRIPTION
NON-EXERCISER TESTS
EXERCISER PROGRAM

8.0

LOOPING CAPABILITIES

9,0

TRANSFER DATA LOGGING

10.0

ERROR LOGGING

11.0

ERROR REPORTING AND RECOVERY

12.0

SUBROUTINES AND HANDLERS

4.2

1,0

ABSTRACT
THE RKll/RK05 PERFOPM~NCE EXERCISER IS A HIGH LEVEL EXERCISER
PROGRAM AIMED AT SIMULATING A RKll/RK~5 SYSTEM ENVIRONMENT AND
CHECKING FOR ERRORS THAT
ARISE
IN
SUCH
AN
ENVIRONMENT
(INTER~CTION,
POLLING, ETC),
IT ALSO PROVIDES A MEANS OF
EVALUATING A SYSTEM THROUGH ITS ERROR LOGGING AND DATA-TRANSFER
LOGGING FACILITIES,
AT THE BEGINNING OF THE PROGRAM THERE IS A SERIES OF TESTS
SPECIFICALLY AIMED AT DETECTING AND ANALYZING FAILURES ASSOCIATED
WITH BOUNDARY CONDITION TRANSFERS,
THE LATTER PART (AND THE MORE SIGNIFICANT
EXERCISER.

2,0

REQUIREMENTS

2.1

EQUIPMENT

ONE)

CONSISTS

THE

A, PDPl1 WITH CONSOLE TEL TYPE
B. 8K OF MEMORY • 12K FOR CHAIN MODE
C. RKll OR RKV11 CONTROLLER
0, l·e RK05 OR RK05F DRIVES (DRIVE TYPES MAY BE MIXED)
2,2

PRELIMINARY PROGRA~S
SINCE THIS IS A HIGH.LEVEL EXERCISER PROGRAM THE CONTROLLER AND
THE DRIV! SHOULD BE FREE OF BASIC FAULTS. IT IS POSSIA8LE TO HANG
THE PROGRAM IF THE HEAD POSITIONING LOGIC IS FAULTY ON DUAL
DENSITY DRIVES. THUS THE FOLLOWING PROGRAMS SHOULD BE RUN BErORE
ATTEMPTING TO USE THIS PROGRAM,
A, RKll BASIC LOGIC TESTS (1 AND II)
B, RK11/RK05 DYNAMIC TESTS
C. RK05 UTILITY PACKAGE (IF NEEDED)

2.3

EXECUTION TIME
THIS VARIES FROM 30 TO 90 MINUTES FOR A PASS~ IT SHOULD BE NOTED
THAT THIS IS AN EXE~CISER LEVEL P~OGRAM AND SHOULD BE PRErERRABLY
~UN FOR A LONG PERIOD OF TIME.

1.0

STARTING ADD~ESS
200 • ALL SWITCHES DOWN.

SEE SEC.

6.0 fOR SWITCHES.

210 • RESTART ADDRESS. THE RESTART ADDRESS PROVIDES THE USER WITH
AN ABILITY TO GO STRAIGHT TO EXE~CISER PART Of THE PROGRAM
(SKIPPING TESTS 1-1). THERE IS A SWITCH OPTION (SW 4) WHICH
ALLOWS THE USE~ TO INHIBIT THE ~EWRITE OF RANDOM PATTERNS ON ALL
DRIVES, ON RESTART, SEE SEC· 6.9.

4.0

PROGRAM CONTROL MODES AND OPERATOR ACTION
PAPER TAPE LOADJNG
RKDP DUMP MODE
RKDP CHAIN MODE
ACTt1

4,1

PAPER TAPE LOADING

4,1.1 LOAD PROGRA~ INTO MEMORY USING
TAPES.

STANDARD

PROCEDURE

FOR

ABSOLUTE

4,1,2 MAKE SURE THAT THE DRIVES TO BE CHECKED ARE LOADED WITH DISKS AND
ARE IN 'RUN'. 'WRT ENABLE' THEM, CHECK THAT 'WRT PROT' LIGHT ON
THESE DRIVES IS OFr. PUT DRIVES THAT ARE NOT TO BE TESTED ON
'LOAP'.
4.1.3 LOAD ADDRESS 200
4.t.4 SET SWITCHES I ' DESIRED (SEE SEC 6,0) AND PRESS START
4,1,5 THE PROGRAM IDENTIFIES ITSELF
MAINDEC-11-DZRKH-F
RKII/RK05 PERFORMANCE EXERCISER
THEN IT PROCEEDS TO TEST THE DRIVES.
4.2

RKDP DUMP MODE

4,2,1 THE PROGRAM IS LOADED BY THE RKDP MONITOR.
4.2.2 SET SA a 200,

SELECT ANY SWITCHES YOU WANT AND PRESS START,

4.2.3 THE PROGRAM IDENTIFIES ITSELF AND PRINTS oUTe

4,3

'TO TEST DRIVE 'N' HALT PROGRAM, REMOVE RKOP PACK AND REPLACE
WITH A WORK PACK, CLEAR LOCATION 40, AND RESTART PROGRAM'

IN RESPONSE TO THIS MESSAGE, PERFORM THE ACTIONS REQUESTED IF
DRIVE ON WHICH THE RKOP PACK 15 MOUNTED IS TO SF TESTEO a

THE

RKDP CHAIN MODE
THE PROGRAM IS CHAIN LOADED FROM RKDP PACK ON DRIVE
IDENTIFYING ITSELF, THE FOLLOWING MESSAGE APPEARS I

'N'.

AFTER

'DRIVE 'N' NOT TESTED'
DRIVE 'N' WILL NOT BE TESTED SINCE T~F RKDP PACK IS ON THAT DRIVE.

4.4

ACT11

~ODE

THE PROGRAM IS LOADED BY THE lCT11 MONITOR.
AfTER IDENTIFYING
ITSELF, ASCE~TAINS THE NUMBE~ OF DRIVES PRESENT AND PROCEEDS TO
TEST EACH OF THEM AS BEFORE.
5.0

DRIVE SELECTION
PUT ALL THE DRIVES THAT ARE TO BE EXERCISED AND TESTED ON 'RUN',
WRITE ENABLE THEM.
MAKE SURE THAT THE 'WRT PROT' IS OFF. THE
PROGRAM RECOGNIZES THAT THESE DRIVES ARE ON LINE AND PROCEEDS TO
TEST THEM.
RK0SF DRIVES WILL HAVE THE LETTER , TYPED AFTER THE
DRIVE NUMBER.
IF A FATAL ERROR OCCURS ON A DRIV! WHILE THE PROGRAM IS RUNNING
THE DRIVE IS AUTOMATICALLY DESELECTED ('DSELer') AND DROPPED FROM
THE DRIVE SELECTION LIST.

6.0

SWITCH OPTIONS
IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR (I.E.
AN
THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWITCH
REGISTER IS NOT PRESENT AND WILL USE A 'SOFTWARE' SWITCH REGISTER.
THE 'SOFTWARE' SWITCH REGISTER IS LOCATED AT LOCATION 116 (8).
THE SETTINGS OF THE 'SOFTWARE' SWITCHES ARE CONTROLLED THROUGH A
KEYBOARD ROUTINE WHICH IS CALLED BY TYPING A 'CONTROL G'. THE
PROGRAM WILL RECOGNIZE THE 'CONTROL G' Whenever the prOQram ent!rl
the seooe routine or beqlnl a new telt. the 'SOFTWARE' SWITCH
VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE TO THE PROMPT
FROM THE SWITCH ENT~Y ~OUTINEI
11/34)

'SWR a NNNNNN

NEW.'

EACH TIME SWITCH SETTING ARE ENTE~ED, THE ENTIRE SWITCH REGISTER
IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT REQUIRED" 'RUBOUT'
AND 'CONTROL U' FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS
DURING
SWITCH
ENTRY.
ON PROCESSORS WITH HARDWARE SWITCH
REGISTERS, THE 'SOFTWAPE' SWITCH REGISTER MAY BE USED,
IF THE
PROGRAM FINDS ALL 16 SWITCHES IN THE 'UP' POSITION, ALL SWITCH
REGISTER REFERENCES WILL BE TO THE 'SOFTWARE' REGISTER AND THE
PROCEDURES DESCRIBED ABOVE MUST BE FOLLOWED.
SWC15>·t
-SWCl3>.1
SW<12>a1
--SWCll>.1
SWcl0>a1
Swc09>.1
-~·SWC08>.t

SW<06>at
8WC0S).1
SW<04>al
SWc03>·l
-SWC02>.1

HALT ON ERROR
INHIBIT ERROR PRINTOUTS
TYPE OUT THE ERROR HISTORY
DUMP OUT ALL RK11 REGISTERS
RING BELL ON ERROR
LOOP ON SPECIFIC ERROR
DUMP OUT TRANSrER DATA AND ERROR STATISTICS
SELECT BUS ADDRESS LIMITS FOR DATA TRANSFERS
HALT BEFORE DOING THE NEXT SET OF COMMANDS
DO NOT REWRITE THE DISKS ON 210 RETSART
TYPE OUT ELAPSED TIME AT ERROR
DROP DRIVE ArTER MAXIMUM ERRORS

SW<0t>at
SW<0,,>a1

TYPE SE~IAL NUMBEP OF ER~OPING DPIVE
TYPE ONLY ELAPSED TIME IF SW<08> AND SW<03> - 1

THE PROG~AM HALTS ON ENCOUNTERING AN ERROR, AFTER TYPING OUT THE
ERROR MESSAGE AND PERTINENT INFORMATION.
PRESSING "CONTINUE"
RESTORES NORMAL OPERATION OF THE PROGRAM.

6.2

swell>
THIS SWITCH INHIBITS ALL
LOOPING ON ERROR CSW 9).

ERROR

MESSAGES.

NORMALLY

USED

WHEN

IF THIS SWITCH IS SET WHEN AN ERROR OCCU~S, INFORMATION ABOUT
HISTORY OF THAT ERROR IS TYPED OUT.

THE

THE FUNCTION THAT WAS BEING PERFOPMED ON THE RKll IS TYPED OUT.
THE FUNCTION COULD BE EITHER A READ, WRITE, WRITE CHECK, READ
CHECK. BESIDES THESE NORMAL FUNCTIONS, IT COULD BE A CONTROL
RESET, DRIVE RESET OR POSITIONING OF THE HEADS (SEEKING). FOR THE
FOUR FUNCTIONS THE INITIAL DISK ADDRESS, BUS ADDRESS AND WORD
COUNT (2-S COMPLEMENT) ARE ALSO GIVEN.
fOR DRIVE RESET AND
POSITIONING THE DRIVE NUMBER OR WHICH THE OPERATION WAS BEING
PERFORMED IS GIVEN.
SIMILAR INfORMATION IS TYPED OUT ABOUT THE rUNCTION THAT WAS
JUST BEFORE THE ONE GIVING THE ERROR.

6.4

swett>
IF THIS SWITCH IS SET WHEN AN ERROR OCCURS, THE
RK11 REGISTERS ARE TYPED OUT,

6,5

DONE

CONTENTS

ALL

SW<09>
THIS SWITCH PROVIDES THE TIGHTEST POSSIBLE SCOPE LOOP. LOOPING IS
DONE WHEN AN ERROR OCCURS, NOTE THAT THEPE ARE TWO CLASSES or
ERRORS AND HENCE TWO CLASSES or EPROR LOOPS, REFER TO SEC 8.0 FOR
THE DIFF!~NECE IN THE ERROR LOOPS PROVIDED BY SW 9.

6,6

SW<~8>

WHEN THIs SWITCH Is SET, THE ERROR AND TRANSFEP DATA STATISTICS
WHICH HAVE BEEN COLLECTED UNTIL THAT TIME, ARE TYPED OUT.
THE TRANSFER DATA STATISTICS GIVE THE NUMBER OF WORDS WRITTEN AND
READ ON EACH DRIVE THAT IS PRESENT. IT SHOULD BE NOTED THAT READ
CHECK AND WRITE CHECK APE CONSIDERED TO BE ESSENTIALLY READ
OPERATIONS.
THE ERROR STATISTICS GIVE THE NUMBER or ERRORS THAT HAVE

OCCURRED

CIF ANY)
PRESENT:

THE

FOLLOWING

CATEGORIES,

ON THE DRIVES THAT ARE

CHECK SUM ERROR
WRITE CHECK ERROR
DATA COMPARISON ERROR
HARD ERROR
SEEK ERROR
SEEK INCO~PLETE
ABORTS • WHEN AN ERROR OCCURS THE FUNCTION IS RETRIED TWICE.
IF
STILL THE ERROR PERSISTS THE FUNCTION IS ABORTED AND THE ABORT
COUNT IS INCREMENTED FOR THAT DRIVE.
6.7

SW<06>
THIS SWITCH ENABLES THE USER TO SELECT THE LIMITS OF THE MEMORY
BUS ADDRESSES BETWEEN WHICH THE DATA TRANSFERS WILL BE DONE.
NORMALLY THE TRANSFERS ARE DONE BETWEEN THE LOWER LIMIT (BAsE8A)
AND THE HIGHER LIMIT CMAXBAl.
THESE TWO LIMITS ARE NORMALLY
SELECTED BY THE PROGRAM AND USE THE MAXIMUM AVAILABLE MEMORY.
IF
THE USER WANTS TO DO DATA TRANSFERS BETWEEN SELECTED MEMORY
ADDRESSES (EXI BETWEEN 12K AND 16K) THEN THIS SWITCH SHOULD BE
SET AT THE STARTING OF THE PROGRAM.
THE FOLLOWING MESSAGE
APPEARsZ
TYPE OCTAL BUS ADDRESS FOR DATA XFER, BETWEEN XXXXXX AND YYYYlYY
LO LIMIT?HI LIMIT?
IN RESPONSE THE USER SHOULD TYPE IN ANY TWO BUS ADDRESSES (OCTAL)
BETWEEN XXXXXX AND YYYYYY. IF THE USER TYPES IN ANYTHING OUT OF
THE X AND Y RANGE THE QUESTION IS ASKED AGAIN.
THIS SWITCH COULD BE QUITE USEFUL IN DETERMINING WHETHER THE
PROBLEM IS WITHIN THE RKll OR OUTSIDE (IN MEMORY). NORMALLY, IF
THE PROBLEM IS WITHIN THE RK11, ERRORS WILL ~EEP ON OCCURING
REGARDLESS or WHERE IN THE MEMORY DATA TRANSFERS ARE TAKING PLACE.
ON THE OTHER HAND IF THE PR08LEM IS MEMORY RELATED, THE ERRORS
WILL TEND TO DISAPPEAR FOR DATA TPANSFERS TO CERTAIN MEMORY BLOCKS
AND WOULD REAPPEAR FOR OTHER ONES.

THIS SWITCH PROVIDES THE USER A CAPABILITY TO HALT THE PROGRAM AT
A KNOWN POINT.
THE HALT IS DONE AFTER THE CURRENT SET OF EIGHT
COMMANDS IN THE QUEUE HAVE BEEN EXECUTEO. THE nHALT" IS LOCATED
AT THE BEGINNING
THE-GEN8RQ' ROUTINE, JUST BEFORE A SET or 8
NEW COMMANDS IS GENERATED. AFTER THE PROGRAM HALTS, THE EXECUTION
CAN BE RESUMED BY PRESSING CONTINUE, OR THE PROGRAM CAN BE STARTED
BACK AT 200 OR RESTARTED AT 210.

6.9

SW<04>

THIS SWITCH PROVIDES THE USER WITH AN ABILITY TO SKIP THE TIME
CONSUMInG REWRITE OF ALL THE DISKS WHEN THE PROGRAM IS RESTARTED
AT 210. THIS SWITCH CAN BE USED ONLY WHEN RESTARTING THE PROGRAM
AT 210 WITH SW 4 SET.
ON RESTARTING THE PROGRAM AT 210, THE
INITIAL BOUnDARY CONDITION TESTS (TST1-TST7) ARE SKIPPED.
IF
SWITCH 4 IS SET, THE REWRITE OF ALL THE DISKS (WHICH WOULD HAVE
BEEN NORMALLY DONE) IS ALSO SKIPPED. THE USER IS CAUTIONED TO USE
THIS SWITCH CAREFULLY.
THE DISKS SHOULD HAVE BEEN WRITTEN WITH
RANDOM PATTERNS AT LEAST ONCE BEFORE RESTARTING THE PROGRAM AT
210.
IT SHOULD BE NOTED THAT TESTS 1-7 WRITE ON CYLINDERS 0,1,
ON RESTART, THE STATISTICS COLLECTED SO FAR ARE SAVED.
6.10

SWc03>
THIS SWITCH ALLOWS THE TYPEOUT OF THE ELAPSED TIME AT WHICH ERROR
OCCURRED.
THE TIMING STARTS AT THE BEGINNING OF THE EXERCISER
PROGRAM. THIS SWITCH SHOULD NOT BE SET IF KW11L LINE CLOCK IS NOT
AVAILABLE ON THE SYSTEM.

6.t1

SWc02>
THIS SWITCH CAUSES DRIVES WHICH EXCEED A MAXIMUM NUMBER OF ERRORS
TO BE DEASSIGNED BY THE PROGRAM. THE PROGRAM CONTINUES TESTING
OTHER DRIVES WHICH HAVE NOT ACCUMULATED THE REQUIRED NUMBER OF
ERRORS.

6.12

SW<01>
IF THIS SWITCH IS SET, THE PROGRAM ALLOWS A SERIAL NUMBER TO BE
SPECIFIED FOR EACH DRIVE TESTED, THE SERIAL NUMBER IS TYPED WITH
EACH ERROR MESSAGE FOR THAT PARTICULAR DRIVE.

6.t3

SWc00>
IF SW<08> AND SW<03> ARE SET, SETTI~G THIS SWITCH
ELAPSED TIME FROM THE START OF THE PROGRAM.

TYPES

OUT

THE

7.0

EXE~CISER

PROGRAM

THE EXERCISER PROG~AM ATTEMPTS TO SIMULATE A DISK OPERATING SYSTEM
ENVIRONMENT BY DOING RANDOM EVENTS (rUNCTIONS) USING RANDOMLY
SELECTED PARAMETERS (DISK ADDRESS, BUS ADDRESS, wORD COUNT,ET:).
AN ATTEMPT IS MADE TO DETECT INTER-ACTION PROBLEMS, OVERLAPPING
SEEK PROBLEMS, ETC.
FOR EXAMPLE, OVER 500 MILLION BITS ARE
TRANSFERRED PER HOUR ON A TYPICAL RK11/RK05 SYSTEM (BASED ON 2
DRIVES, PDP11/50, 28K SYSTEM).
EIGHT JOBS OR COMMANDS ARE GENERATED AT A TIME (GEN8RQ) AND PUT IN
A QUEUE TO BE PROCESSED.
THE ALGORITHM WORKS AS FOLLOWS,
COMMANDS IN THE QUEUE ARE PREPOSITIONEO (HEADS) BY PREFORMING
OVERLAPPING SEEKS. WHILE SOME or THE DRIVES ARE BEING POSITIONED,
THE LAST AVAILABLE (AND EXECUTABLE) COMMAND IS PERrORMED.
THUS
WHILE SOM! DRIVES ARE BUSY POSITIONING THEIR HEADS, SOME DRIVE IS
PERFORMING A FUNCTION (DATA T~ANSFER,ETC).
AS SOON AS THE
CONTROLLER IS FREE , A CHECK IS MADE TO SEE IF THERE IS ANY DRIVE
WHICH HAS ALREADY POSITIONED ITS HEAD.
IF ONE IS FOUND THE
COMMAND IS EXECUTED ON THAT DRIVE AND THE CONTROLLER AGAIN BECOMES
BUSY. IF NO POSITIONED COMMAND IS FOUND, A CHECK IS MADE TO SEE
IF THERE IS A COMMAND THAT IS TO BE POSITIONED. IF YES, IT IS
POSITIONED AND THE LAST AVAILABLE COMMAND IS EXECUTED. IF IT IS
FOUND THAT NO DRIVE NEEDS TO BE POSITIONED (THIS COULD HlPPEN IF
THERE IS ONLY ONE COMMAND LErT IN THE QUEUE O~ THE REMAINING
COMMANDS IN THE QUEUE ARE TO BE PERFOR~ED ON THE SAME D~IVE), THEN
THE COMMANDS lSI ARE EXECUTED.
THE ABOVE ALGORITHM HELPS SIMULATE A REAL ENVIRONMENT, AT THE SAME
TIME MAXIMISING THE RATE or DATA TRANSrERS. THE EXERCISER PROGRAM
GIVES AN ELABORATE ERROR DETECTION CAPABlLITY. THE STATE or THE
PROGRAM IS CONTINUOSLY TRACKED BY SOFTWARE KEYS, FLAGS, ETC.
THESE FLAGS AND KEYS HAVE BEEN EXPLAINED IN DETAIL AT THE BEGINING
OF THE LISTINGS, WHE~E THEY ARE DEFINED, ON DUAL DENSITY DRIVES,
ONLY ONE LOGICAL DRIVE IS SELECTED DURING EACH QUEUE BUILD.
THIS
INSURES THAT OVERLAPPED SEEKS WILL NOT INTErER WTTH THE HEAD
POSITIONING LOGIC.
THE PARAMETERS USED FOR DOING THE COMMANDS ARE SELECTED RANDOMLY
USING A RANDOM GENERATOR •
THE FUNCTION TO BE PERFORMED IS
SELECTED RANDOMLY FROM ONE 0' THE FOURI WRITE, READ, WRITE CHECK,
OR READ CHECK.
THE DRIVE NUMBER IS SELECTED F~OM THE AVAILABLE
DRIVES. THE DISK ADDRESS IS SELECTED OVER THE ENTIRE RANGE AND
THE WORD COUNT AND BUS ADDRESS ARE SELECTED RANDO~LY IN SUCH A WAY
THAT A NON-EXISTENT MEMORY ERROR OR OVERRUN CONDITION DOES NOT
OCCUR.
RANDOM DATA BLOCKS ARE WRITTEN ON THE DISK,
THE FIRST WORD OF
EACH SECTOR BLOCK IS A NUMBER (2'S COMPLEMENT) INDICATING THE
TOTAL NUMBER or WORDS WRITTEN IN THAT SECTOR,
THE ~EST OF THE
WORDS IN THE BLOC~ ARE GENERATED USI~G THE DISK ADDRESS (OF THAT
SECTOR) AS THE RANDOM SEED NUMBER.

8.0

LOOPING CAPABILrTIES:
SWITCH 9 GIVES LOOPING CAPABILITIES,
CLASSES OF E~RORS'

EPROR.

THERE

OCCURING IN THE NON-EXERCISER PART or THE
(ERROR NUMBERS UNDER 100 IN THE ERROR ITEMS TABLE)

ARE

TWO

ERRO~S

PROGRAM

ERFORS OCClJRING IN THE EXERCISER PART OF THE PROGRA~ (ERROR
NUMBERS STARTING FROM 100 AND UP IN THE ERROR ITEMS TABLE)

NON-EXERCISER SCOPE LOOPS' IN THIS CASE, THE PROGRAM LOOPS ON
A spECIFIC ERROR GIVING A NARROW SCOpE LOOp, THIS SCOPE LOOp
IS SJMILIAR TO THE ONi PROVIDED IN THE RK11 BASIC LOGIC TEST
AND DYNAMIC TEST, WHICH THE USF.R MIGHT BE FAMILIAR WITH,

EXERCISER SCOPE LOOPS' WHEN AN ERROR OCCURS (ArTER TYPING OUT
THE ERROR MESSAGE) CONTROL IS TRANSFERRED TO THE BEGINNING or
THE COMMAND-QUEUE.
THE COMMANDS FROM THE FIRST COMMAND
ONWARDS, ARE EXECUTED AGAIN TILL THE POINT or ERROR, THIS
LOOPING PROVIDES THE USER WITH A CAPABILITY TO RECREATE A SET
OF EVENTS THAT LEO TO THE ERROR.

9.0

TRANSFER DATA LOGGING
IN THIS PROGRAM, WHENEVER A DATA TRANSFERTA~ES PLACE IT IS LOGGED
WHETHER IT IS READ, RE~D CHECK, WRITE OR WRITE CHECK. SEPERATE
COUNTS ARE KEPT FOR DATA TRANSrERS TA~ING PLACE ON EACH DRIVE IN
THE SYSTEM.
AT ANY GIVEN TIME THE USER CAN GET THESE TRANSFER
STATISTICS BY SETTING SWITCH 8 TO 1 (SEE SEC.6.6).
THIS IS
HELPfUL FOR EVALUATING A SYSTEM.

1~.0

ERROR LOGGING
THROUGHOUT THE EXERCISER PROGRAM, wHEN AN ERROR OCCURS IT IS
LOGGED. TAE FOLLOWING CLASSES OF ERRORS ARE LOGGED FOR EACH DRIVE
IN THE SYSTEM:
CHECK SUM ERROR
WRtTE CHECK ERROR
DATA COMPARISON ERROR
HARD ERRORS
SEEK ERROR
SEEK INCOMPLETE ERROR
ABORTS
THE ERROR STATISTICS CAN BE OBTAINED BY PUTTING SWITCH 8 TO 1.
THE ERROR STATISTICS CAN BE USED IN CONJUNCTION WITH DATA TRANSfER
STATISTICS TO GIVE AN IDEA OF THE SYSTE~ PEPfOF~ANCE (NUM8ER Of
WORDS TRANSFERRED PER ERROR, eSE fREQUENCY, F~COVERA8TJE VERSUS
NON-~ECOVERABLE ERRORS ETC.).

11.0

ERROR REPORTING AND RECOVERY
WHENEVER AN ERROR OCCURS IT IS REPORTEO ALONG WITH RELEVANT
INFORMATION.
THE RK11 REGISTERS REPORTED IN THE ERROR MESSAGES
REPRESENT THE CONTENTS AT THE TIME OF ERROR. EACH ERROR MESSAGE
CONTAINS A ~PC' NUMBER, THIS IS THE PC LOCATION IN THE PROGRAM
WHERE THE ERROR CALL IS LOCATED. THE USER IS ADVISED TO REFERENCE
THIS LOCATION IN THE LISTINGS, IN CASE MORE INFORMATION ABOUT THE
ERROR IS DESIRED.
SOME (SYSTEM) ERRORS REFER TO SOFTWARE FLAGS AND KEYS WHICH ARE
USED TO MONITOR THE ONGOING ACTIVITIES ON THE SYSTEM. THESE FLAGS
ARE EXPLAINED AT THE BEGINING Of THE LISTINGS AND SOULD BE
REFERRED TO, IF THE NEED ARISES.
IF A FATAL ERROR CONDITION IS DETECTED (LIKE DRIVE UNSAFE, WRITE
PROTECT SET, DRIVE READY CLEAR, ETC,> THE DRIVE IS REMOVED FROM
THE DRIVE SELECTION TABLE AND DROPPED FROM FURTHER TESTING,
A
MESSAGE IS GIVEN INDICATING DROPPING or THAT DRIVE. FOR FURTHER
INFORMATION, REFER TO THE 'CHKDRV' AND 'DSELCT' ROUTINES IN THE
LISTINGS.
RECOVERABLE ERRORS ARE RETRIED THREE TIMES,
IF THE
ERROR
CONDITION FAILS TO CORRECT OR A IF A DIFFERENT ERROR OCCURS THE
FUNCTION IS ABORTED. MESSAGES ARE PRINTED ONLY ONCE FOR EACH
ERROR.
AFTER EIGHT ABORTS ARE RECORDED ON A DRIVE THE DRIVE IS
DROPPED. DUAL DENSITY DRIVES ARE ALWAYS DROPPED IN PAIRS.

12,0

SUBROUTINES AND HANDLERS
THERE ARE TWO WAYS IN WHICH MOST OF THE SUBROUTINES USED
PROGRAM ARE CALLED.
1.

THIS

THROUGH THE NORMAL JSR CALL
JSR

REG, SUBROUTINE

2. THROGH THE 'TRAP' INSTRUCTION, THE TRAP INSTRUCTION wITH ITS
LOWER BYTE ENCODED SERVES AS A CALL FOR SO~E ROUTINES, WHEN THE
'TRAP' IS EXECUTED A TRAP OCCURS TO THE TRAP VECTOR ~ND THE TRAP
DECODER IS ENTERED,
THE TRAP DECODER ('TRAP) WILL PICK UP THE
LOWER BYTE or THE 'TRAP' INSTRUCTION AND USE IT TO INDEX THROUGH
THE TRAP TABLE ('TRAPAD) FOR THE STARTING ADDRESS OF THE DESIRED
ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL GO TO THE
DESIRED ROUTINE.
3.

fSCOPE· THE SCOPE HANDLER

THE SCOPE HANDLER IS ENTERED THROUGH THE EXECUTION OF THE 'lOT'
INSTRUCTION.
IT KEEPS TRACK OF VARIOUS POINTERS, FLAGS AND
DECIDES IF LOOPING IS TO BE DONE ON ERROR (SW 9).
IT SHOULD BE
NOTED THAT THIS HANDLER IS USED MOSTLY IN THE NON-EXERCISER PART
OF THE PROGRAM,
4.

fERROR. ERROR HANDLER ROUTINE

THE ERROR HANDLER IS ENTERED THROUGH THE EXECUTION Of THE 'EMT'
INSTRUCTION.
THE LOWER BYTE OF THE EMT INSTRUCTION IS ENCODED TO
GIVE AN IDENTIFIER TO THE ERROR CALL. THUS 'ERROR l' IS 104001,
ETC.
THE ERROR ROUTINE DECIDES If ANY ACTION IS TO BE TAKEN
DEPENDING ON THE SWITCH SETTING (LIKE, ~ALT ON ER~OR, INHIBIT
ERROR TYPEOUT, ETC.l.
MOST OF THE SUBROUTINES RESIDE IN THE LATTER PART OF THE PROGRAM.
THE USER CAN REFER TO THEM TROUGH THE CROSS REFERENCE TABLE AT THE
END OF THE LISTINGS OR TABLE OF CONTENTS AT THE BEGINING,

MAINDEC-I1-DZRKH-F
MACY11 27(1006) 04-0CT-'6 11.29
DZRKHF.P11
22-SEP-76 08157
TAILE or CONTENTS
15
38

168
177
190
202
260
645
966
998
1003
1262
1301
1398
1441
1572
1717
1927
1973
3769
4450
4477
4506
4521
4573
4602
4741
4779
4819
4906
4976
'5015

5077

5078
5106
'5153
5240
5285
5341
5419
5511

5635
5678
5701
5729

OPERATIONAL SWITCH SETTINGS
BASIC DEFINITIONS
TRAP CATCHER
STARTING ADDRESSeES)
ACT11 HOOKS
MEMORY MANAGEMENT DEFINITIONS
COMMON TAGS .
ERROR POINTER TABLE
INITIALIZE THE COMMON TAGS
TYPE PROGRAM NAME
GET VALUE FOR SOFTWARE SWITCH R!GISTER
Tl.
PERFORM WRITE or 401 WORDS (1 SECTOR + 1 WORDS)
T2
READ , CHECK THAT 411 WORD WRITE WAS DONE CORRECTLY
T3
PERFORM WRITE or 12 SECTORS + 1 WORD
T4
READ , CHECK THAT 6001 WORD WRITE WAS DONE CORRCTLY
T5
CHECK DATA TRANSFER AROUND 12K BOUNDARY
T6
CHECK DATA TRANSfER FROM ~8K TO 32K
T7
PERFORM THE LARGEST POSSIBLE DATA TRANSFER
EXERCISER PROGRAM
ROUTINE TO SIZE MEMORY
DRV.RESET - DRIVE RESET ROUTINE
CON.RESET - CONTROL RESET ROUTINE
TYPMSG - TYPE MESSAGE ROUTINE (SWI3l
KWSRVE - KWI1L CLOCK SERVICE ROUTtNE
END OF PASS ROUTINE
TTY INPUT ROUTINE
READ AN OCTAL NUMBER FROM THE TTY
READ A DECIMAL NUMBER FROM THE TTY
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE
TYPE ROUTINE
DOUBLE LENGTH BINARY TO OCTAL ~SCII CONYERT ROUTINE
DOUBLE LENGTH BINARY TO DECIMAL ASCII CONYERT ROUTINE
SUPRS - TYPE NUMERICAL ASCIZ STRING, REPLACE LEADING 0·5 BY BLANKS
SUPRSL • TYPE NUMERICAL ASCIZ STRING, LEFT JUSTIfY
INTEGER MULTIPLY ROUTINE
INTEGER DIVIDE ROUTINE
SAVE AND RESTORE R0-R5 ROUTINES
RANDOM NUMBER GENERATOR ROUTINE
BINARy TO OCTAL CASCII) ANO TYPE
ERROR HANDLER ROUTINE
ERROR MESSAGE TYPEOUT ROUTINE
SCOPE HANDLER ROUTINE
TRAP DECODER
TRAP TABLE
POWER DOWN ANO UP ROUTINES

~A!N!)EC-ll-DZRKH-F

DZRKHF",PII

MACYl! 27(11'!06)
22-5EP-76 08157

04-0cr-76

13129

HGE
SEQ 0014

TITLE
~AINDEC-11·0ZRKH-f
*COPYRIGHT eCl 1973,1976
*DIGITH EQUIPMF.:NT CORP,
*MAYNARo, MASS, ~1754

**PROGRp.M BY JIM KAPAoIl!.

**THIS PROGRA~ WAS ASSEMBLE'o USING THE PDP-II MUNoEC SYSMAC
10

*PACKAGE eMAINDE:C-ll-DZQAC-C2), SEPT 14, 1976.

II
t2

**REVISED BY GEOPGE GALLANT,TDM SAWYER

MARCH 1976
*PEVISED BY CHUCK HESS - AUGUST 1976
,58TTL OPE:RATIONAL SWITCH SETTINGS
1*
SWITCH
USE
1*
1*
15
HALT ON E:RROR
1*
LOOP ON TEST
14
1*
TYPE OUT E:RROR HISTORY
12
1*
I@
BELL ON ERROR
r*
9
LOOP ON ERROR
:*
TYPE OUT tr:;:POR AND TPANSFER DATA STATISTICS
e
:*
SELECT BUS ADDRESS LIMITS FOR DISK DATA TRANSFERS
6
:*
BEFORE DOING NEXT SET Of COMMANoS(GEN8RQ)
HALT
5
:*
DO NOT REWRITE THE DISKS ON RESTART AT 210
4
1*
TYPE
OUT ELAPSf;D TIME AT ERROR
3
1*
DROP DRIVE ArtER MAXM ERORS ON THIS DRIVE
2
:*
TYPE
SERIAL NUMBER OF ERRORING DRIVE
1
:*
I f Sli8=I, ONLY TYPE ELAPSED rIME
0
1*
DU",P
OUT
ALL RK 11 REGISTERS ON ERROR
11
1*

14
t5
16

------ ........... _--

t7
1~
19
'-~

21
22
23
24
25
26
27

29
2<1

31
32
33
34

YOU ARE ADVISED TO READ THE DOCUMENT fOR THIS PROGRAM.

'IAINOfC-II-0ZRKt-l-F
"'AC¥l1 27(111HI6)
~4-0CT-76
13:29 PAGE 2
(lZPI"HF,Pll
n-SEP.76 08157
oPERATInNAL SwITCH SETTINGS

SEQ 0015

,S8TTL

1R
19
40
41
0

0~1100

43
44
45
46
47
48
49

0"'0011
000012
000015
01'10201'1
177771>

0;1'1
';1

177774

52
'53
"i4
55
"ill
'57
'58

59
60
61
62
63
6,1
65
66
67

177772
177570
1 77570

00001'1'"
1'00001
0\l0002
01'101'103
000004
0001'105
"''''00e6
"'00007
000e06
0~0007

69
71'1

11
72

14
75
76
77
711
79
R0

ql
P2
83
R4
95
qf,

R7
AS
R9

0~"000

000040
"1'10100
000140
0~0200

000240
000300
0"'034'"
!~001i1",

040000
020000
010~00

il04000
002000
001000
0e0400
000200
000100
000040
"'00020

BASTC DEfINITIO/-IS

: *IN ITUL A[)D~E5S Of THE STACK ~O INTER *** 1100 ***
STACK:
1101'1
,EQUIV EMT, ERROR
,:BASIC DEFINITION OF ERROR CALL
,EQUIV
lOT, SCOPE
I :BASIC OEfINITION OF SCOPE CALL
: *"'ISCELLANEOUS DEFINITIONS
HTa
, ,CODE FOR HORIZONTAL TAB
11
Lfa
12
I JeODE rOR LINE FEED
15
CP·
, 'CODE fOR CARRIAGE RETURN
200
CRT,f·
"eODE FOR CARRIAGE RETURN-LINE FEED
PS.
177776
,rPIlOCESSOR STATUS WORD
,EQUIV Ps,PSw
STKL'IT= 177774
IISTACK LIMIT REGISTER
PIIlQa
177772
" PROGIUM INTERRUPT REQUEST REGISTER
177570
DSWR·
" HAR[')WARE SWITCH REGISTER
177570
DoISP"
"HAROWARE DISPLAY REGISTER
: *GENERAL PURPOSE REGISTER DEFINITIONS
Rl'lz
, ,GENERAL REGISTER
Rl=
\1
,'GENERU REGISTER
112=
, ,GENERAL REGISTER
\2
P3=
"GENERAL REGISTER
\3
R4, ,GENERAL PEGl STER
U
1'15.
tS
II GENEIUL REGISTER
R6.
'IGENERAL REGISTER
R7=
r, GENERA'" REGISTER
%7
SPa
, ,STACK POINTER
\"
, ,PROGRAM COUNTER
PC=

'"
'"
,7

I*PRIORITY LEVEL DEfINITIONS
PRI'I=
0
1 :PRIORITY
PR1=
40
, :PRIORITY
PR2,.
101'
: ,PRIORITY
PR3=
140
I,PRIORITY
PR4=
200
, :PRIORITY
PR5:
24\l
I ,PRIORITY
, IPRIORITY
PR6300
P1l7=
340
r JPRIORITY

LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

;*"Swrr::H REGISTER" SWITCH DErI/-IlTIONS
SW1Ss
100000
S\ll14=
40000
SW13:c
20000
10000
S"12=
S\II11=
4000
2000
SWI0S.,0!b
1000
4e0
S1008=
SW01=
200
SWI'I6=
100
SW05=
40
SW04 ..
20

'4AINDEC-ll-DZFU(H-F
MACYl1 27(1006)
04-0CT-7b
13129
flZRKHF,Pl1
22-SEP-76 08,57
BASIC DEFINITIONS
SW0l510102"
51001"
810100_
,EQUIV
,EQUIV
,EQUIV
,EQUIV
,EQUtV
,EQUIV
,EQUIV
,EQUlV
.EQUIV
,EQUIV

000010
000004
000002
800001

91
92
93
94
95
96
91
98
99
100
101
102

103
104
105
106
107
108
109
110
tt2
It 3
114
115
1 \6
117
118
t \9
120
121
122
123
124
125
126
127
128
129
110
111
132
113

III
135

000010
000014
000014
1100014
000020
000024
000030
000034
000060
009064
000240

1)8

1}9
14'"
141
142
143
144
145
146

4
2

t
810109,51019
SW08, Sirl8
SW07, Sirl7
SW06, SII6
SW05,SWS
SW04,SW4
SW03,SW3
SW02,SW2
SW01,SWl
SW00,SII0

MAINDEC-II-OZRICH-F
MACYtI 27(1006)
04-0CT-76
13129
OZRICHF,PII
22-SEP-76 08151
BASIC DEFINITIONS

141

SEQ 00\6

I *BASIC ·CPU· TRAP VECTOR ADDRESSES
ERRVEC" 4
I' TIMt OUT AND OTHER ERRORS
RESVEC- 10
"RESERVED AND ILLtGAL INSTRUCTIONS
TBITVEC=14
,,"T" BIT
TRTVEC- 14
, ,TRACE TRAP
, ,BREAKPOINT TRAP (BPT)
BPTVECo: 14
IOTVECa 20
" INPUT/OUTPUT TRAP (lOT) **SCOPE**
PloRVEC= 24
"POWER rAIL
EMTVEC- 30
"EMULATOR TRAP (EMT) **ERROFl**
TFlAPVEC.34
II"TRAP" TRAP
TKVEC:I: 60
, I TTY KEYBOARD VECTOR
TPVEC:s 64
"TTY PRINTER VECTOR
PIROVECa240
, ,FROGR.M INTERRUPT FlEOUEST VECTOR

0~0004

1]6
137

;*DATA BIT DEFINITIONS (BIT00 TO !HT15)
BIT1S- 100000
BITlh 40000
BITI }a 20000
BITI210000
400~
BITIU
BIT100:
2000
BIT09.
1000
BIT08_
400
BIT070: 200
BIT06 ..
100
BIT0S .. 40
BIT04- 20
EIlT0310
BIT024
BIT010: 2
BIT001
,FOUIV SIT09,RIT9
, EOUIV
BIT08,BIT8
,E.OUIV
BIT07,BIT7
,rQUI V BIT06,BIT6
,EOUIV IHT0S,BITS
,EQUIV BI104,BIT4
,EOUIV BIT03,BIT3
,EQUlV
BIT02,BIT2
, EOUIV SIT0l,BITI
,EOUIV STT00,BIT'"

100000
040000
020000
010000
004000
002000
001000
000400
000200
001'1100
000040
000020
000010
000004
000002
000001

Itl

P~GE

000100

PAGE 4

,KWI1L ::1.0C'; VECTOR

KWLVEC=100

148

149
150
151
152
153
154
ISS
1<;6

157
158

159
160
161
162
163
164
165
166
167
168
169

,tOUIV
,EQUrV
,EQUIV
,EQUIV
,EQUIV
, EQUtV

!lIT12,DPL
(lIT10,ORU
BIT09,SIN
BYT07,DRY
BIT06,RWS
BIT05,WPS

,EQUIV
,EQUIV
,FQUIV

BIT12,SKE
BIT01,CSE
BYT00,WCE

,SBTTL

TRAP CATCHER

,_0

171

172
173
174
175
176

000174
000176

000174
000000
000000

177

000200

000117

003376

000210
000214

000210
105237
000137

001253
003376

178
179
181

BIT1S,tRR
BIT14,HE
SIT13,SCP

000000

170

180

, EQUtV
.EQUIV
,EOUIV

,*ALL UNUSED LOClTIONS FROM 4 - 776 CONTAIN A ".+2,HALT"
,*SEQUENCE TO C~TCH ILLEGAL TRAPS ~ND INTERRUPTS
,*LOCATION 0 CONTUNS 0 TO CATCH IMPROPERLY LOADED VECTORS
,-174
DISPREGI ,WORD
~ ,SOFTWARE DISPLAY REGISTER
SWREG:
• WORD
0
: ,SOFTWARE SWITCH REGISTER
,SBTTL STARTING ADDRESS(ES)
JMP
IiI.START I,JUMP TO STARTING ADDRESS OF PROGRAM
,-210
INca
JMP

FRSTRT
I!t START

182
183
11'4
185
186

187
188

,RESTART ADDRESS, IF RESTART IS
;DONE AT 210, THE BOUNDARY CONDITION
;TESTS (TSTI-7) ARE SKIPPED. IF SW 4
I IS SET THEN THE DISKS ARE NOT REWRITTEN
; (WRDSK) WITH RANDOM PATTERNS, NORAMALLY
; ALL THE DISKS PRESENT ARE COMPLETELY
,WRITTEN WITH RANDOM PATTERNS, AT THE
18EGINING DF THE
:EXERCISER PTIRT OF THE PROGRAM,

189
190

,SBTTL

191

I '**** ********* *********** ** ****** **************** ***************
IHODKS REQUIRtD BY ACTll
esvPc-,
,SAVE PC
.-46
ItNDAD
,,!)SET LOC,46 TO ADDRtSS or SENOlD IN ,SEOP

192
193

194
195
196
197
198
199
20"
201

202

000046
000052

000220
1/100046
022656
000052
00001'10
000220

ACTl1 HOO!(S

,-52
,WORD
, •• SVPC

n2)SET LOC,S2 TO URO
"
RESTORE l?C

IKT11 REGISTEII DEFINITIONS
,SP'I"l'L
""VORl( "A'I~Ge:"lEIiT ,)!:l'"I~ITION5

04-0CT-76
13129
PAGE 5
I4ACYll 27(1006)
MAINDEC-I1-DZRKH-F
ME.r..;OR'i MANAGEMENt DEF'lNIl'IJNS
22-sEP-76 1'16: 51
OlRj(t!F', I'll
2;J3
204
205
2'16
2",7
208
209
21"
211
212
213
214
21 <;
216

1'100250

;*KTll

vECTOR ADDRESS

MMVEC=

250

SEQ 0018

:*KTl1 STATUS REGI STER ADDRESSES
177572
177574
i 77576
172516

S1l0=
SRl=
SR2:o:
SR3=

172Hl0
1723132
172304
172106
172310
172312
1 7 2314
172316

KIPDR0=
KIPDR1=
K1PDR2=
KI PDR3=
KIPDR4=
I<IPDR5=
K IPDRb=
KIPDR7",

17232O
172322
172324
172326
172330
172332
172334
172336

KDPDR<l=
KDPI)Rl=
I(DPDR2=
KDPDR3=
KDPDR4=
KDPDP5=
KDPTlR6=

172340
172342
172344
172346
172350
172352
172354
172356

KIpAR0=
KIPARII< IPAR2:r
f( IPAR3=
I<IPAR4::r
I<IPAP5=
KIPAR6=
KIPAR7:r

1 7 2360
172362
172364
172366
172370
172372
172374
172376

KDPAR"=
KDPAR1:
KDPAR2:o:
I<DPAR3=
KDPAR4=
KPPAR5=
I<DPAR6=
KDPAR7=

177572
177574
177570
172510

:*KF:RNEL "I" PAGE DESCRIPTOR REGISTERS

217
7.18
219
220
221
222
223

274

172300
172302
172304
172306
17231O
172312
172314
172316

: *I(EP~EL "0" PAGE DEsCPIPTOIl PEGISTEI1S

215
226
227

228
229
2)0
211
l32
231

~DPDR7=

235
216

172320
172322
172324
172326
172330
172332
172334
172336

: *KERNEL • I" PAGE ADDRESS REGISTERS

237
2)8
219
240
241
242
243

244
245

24"
241

172340
172342
172344
172346
172350
172352
172354
172356

:*I<ERNfL "0" PAGE ADDRESS REGISrERS

24A
249
25"
251
252
2<;3
254
255
256
257
l5ij

MAINDEC-II-DZPKH-F
II'AC'ill
DZRKI·;F". PII
22-SEP·76 08 :57
25'1
26<1
261
262
263

27(1006)

172360
172362
172364
172366
172370
172372
172374
172376

04-0CT-76
13129
COW·ION TAGS
, S8TTL

PAGE 6
SEQ 0019

COMMON TAGS

::*THTS
'***************************************************'************
TA~(,E CONT~TNS V.~RTOUS COMMON STOR'!'GE LOCATIONS
:*USED IN THE PROGRAM.

264

265
26b
267
268
269
2""

001100
001100
1'101100
1'101102

,::110"
SCMTAG:
SPASS:
STSTNM:
HRf'LG:
SICHT:
SLPAOR:
SLPERR:
SERTTLI
SITf'MB:
SEW'IAX:
SERRPC:
SGOADR:
SBOADR:
SGDDAT:
$BOOIIT:

28'"

0~1126

0003000
000
000
000000
000000
.,000003
000000
000
001
01Hl000
..,00000
000000
000000
0"000'"

281

1<l01130
"'''1132
e';\IIH
1"''1135
0'11130
1'01140
001142
031144
0\;11146
001150
"o1152
001154
001155
001156
001157
001160

00000.,
0"'0
"'00
00000'''
177570
17757"
177560
177562
177564
177566
O00
002
Ilt 2
00"
0"001'10

.WORD
.BYTE
,BYTE
.WORD
.WORD
,WORD
,;lORO
.BYTE
• Bi'TE
,wORD
.WORD
.WORD
.wORD
.000RD
.wORD
,IiORD
SAliTOBI .BYTE
$ Iii/TAG: .BYTE
,wORD
SWR:
.WORD
DISP(,·H: ,,,ORO
STI<S:
177560
snH:
177562
$TPs:
177504
STPRI
t 77566
SNULL:
.BYTE
HILLS: ,BYTE
SF TLL::: .BYTE
STPFLG: ,BYTE
SREGIID: ,WORD

\;1"1162
"'HI64
001166
l<letl170
1l"'1112
001174
001176
1j01200
1l1<l1202
001204
001206
001212
001213
001214

1'1.,,0000
000000
00001cl0
00000O
000000
001<1000
'100000
000000
000000
000000
117607
077
015
000012

.wORD
SPEG"':
SREGI:
,wORD
$REG2:
, .. ORO
$ REG]:
.WORD
SREG4:
.WORD
$REGS:
.WORD
$REG6 :
.i-;ORD
$REG1 :
,WORD
SREG101 .WORD
HSCA.PEI0
.BELL:
,ASCIZ
$QUESI
,ASCII
SCRLF 1
• ASCI!
SLF'I
.AsCIZ

312
313
314

001216
00t 220

177400
177402

271
272
273

274
275
27b

217
27il

279

2Al
28 I
294
2R<;
2ql)

297
lA Q
?99
290

291
]92
293

294
295
2~6

291
298
299
301O
3;a1

1<12
303
304
);>15
106
30 7
30 R
31119
>10

""lliH
001104
001106
001110
001112
001114
01<l1115
0"1116
001120
001122
001124

~00001<l

00",377

;ISTART OF COMMON TAGS
;1.cONTAINS PASS COUNT
IICONTAINS THE TEST NUMBER
: ICONTAINS ERROR FLAG
;ICONTAINS SUBTEST ITERATION COUNT
; ,CONTAINS SCOPE LOOP ADDRESS
; :CONTAINs SCOPE RETURN FOF! ERRORS
: :CONTAINS TOTAL ERRO~S DETECTED
:1 CONTAINS ITEM CONTROL BYTE
: ICONTAINS MAl(. ERRORS PER TEST
; ;CONTAINS PC OF LAST ERROR INSTRUCTION
; ,CONTAINS ADDRESS Of' 'GOOD' DATA
I :CONTAINS ADDRESS OF 'BAD' DATA
: 'CONTAINS 'GOOD' DATA
: ICONTAINS 'BAD' DATA
; I RESERVED--NOT TO BE USED

:: AUTOMATIC MODE INDICATOR
II INTERRUPT MODE INDICATOR

0
DSwR
DDtSP

:1 ADDRESS OF SwITCH REGISTER
nADDRESS OF DISPLAY REGISTER
:ITTY KBD STATUS
: ; TTY I(BD BUFFER
: ,TTi' PRunER STATUS REG, ADDRESS
: ;TTY PRINTER BUFFER REG, ADDRESS
II CONTAINS NULL CHARACTER FOR FILLS
: :CONTAINS I OF FILLER CHARACTERS REQUIRED
2
12
:JINSERT FILL CHARS, AFTE~ A "LINE FEED·
II "TERMINAL AVAILABLE" FLAG (BIT<07>:r13=YES)
I<l
: I CONTAINS THE ADDRESS FROM
(SREG0) WAS OBTAINED
:,WHI::H
: ,CONTAINS (C8REGAD)+0)
: I CONU INS ( ($REGAD)+2)
: I CONTA INS ( (SREGAD)+4)
; ,CONTAINS C(SREGAD) +6)
: ;CONTAINS (C'REGAD)+10)
"CONTAHIS (CSREGAD)+12)
: ,CONTAINS ( (SREGAD)+14)
: ICONTAINS ( (SREGAD)+16)
: ,CONTAINS ( ('REGAD)+20l
; ,ESC API!: ON ERROR ADDRESS
<2.n><317><317> : I COO E FOR BELL
111
: ,QUESTION MARK
<15>
: J CARRIAGE RETURN
<12>
: ILINE FEED

II ***************************************************************
RJ<DS:
t 77400
,WORD
RKER:
.wORD
177402

, I 1 NOEC·l1·DI~KH-r
rf'RKHF.l't1
22-SEP-H

MACYI'

~7(l0I'1b~

e,g:!i7

PAGe:

U-OCT-76
13.29
CONMON UGS

Sf,Q

,WOPO
,WOPD
,WORD

177416
177546

'"<CS,
FlKWCI
RKBAI
RI<OAI
RKDBI
KIIILS:

.WORD
,wORD

177404
177406
177410
177412
177416
171546

001236

000372

PCNTR 1

.wORD

250.

125

"0124O
001242

000220
000222

RKVEC:
R.!(STAT'

.WORO
.WORD

220
222

,NORMAL RU1 INTERRUPT VECTOR ADDRESS
'PSW TO 8E USED ON INTERRUPT

326
327

0''1244

000240

PPRLVLI

.ilORD

240

328
329
130

001246

000340

I<IIIP1.V1.I

.WORO

34O

'PROGRAM PRIORITY LEVEL8S, PRIORITY LEVEL
,AT WHICH THE PROGRAM OPE~ATES CAN Be: CHANGED
,BY A1.TERltlG TIUS LOCATION.
,PRIORITY t.EVEL OF THE KIIIl11. CLOCK SERVICE
,ROUTINE,

00125"

177777

SRORV'

,WORD

177777

3)9
340

001252
~01253

000
O00

FTITLEI

141

.BYTE
.BYTE

lIS
3t6
317

318
319
320
121

J22

001222
001224
901226
001230
001232
001234

177404
177406
177410

177413

,WO~D

,SUTUS REGISTER FOR 10il1L

323
324

HI
332

3)3
134
)]5
H6
337

,'SRORV' CONTAINS THE DRIVE NO WHOOSE SERIAL
,NO IS TO BE TYPED OUT WHEN AN ERRO~ OCCUFlS,
,IF Sli 1 IS SET, WHEN (SRDFlV).-1 SEFlIAL NO
,IS NOT UPPED OUT, BECAUSE THE ERROR WAS NOT
,POSITIVELY ATTRI8UT18LE TO A SPECIP'JC D~IVE.

))8

'IATNOEC-I1-DZRKH-r
""~Y1!
?2-S[P-1!j ~a!5~

"',RIOIF".PlI

FRST~TI

27(l~0~:

,FLAG FOR RESTART AT 210

04-0CT-76
13129
COMMON UGS

PAGE 8

,THIS TULE CONUINS (IN ASCENDING OROtR) THE DRIVE NUMURS THAT ARE
,PRESENT, THUS IF 3 D~IVES 0.1,2 A~E PRESENT I PDR WILL CONTAIN
PDRl WILL
.CONnI" 1 AND PDR2 WILL CONTUN 2,
THE UPPER BIT OF EACH 'PD~' BYTE IS SEi IF !~E
,CORRESPOItDING DFlIVE IS AN 'F' DRIVE,

342
341
344
145
346
447

148
349

Hi!

001254

0"'001'"

PDR.

,8LK8

"I! 126 4

000000

D~VPRSI

.WOFID

10
,CONTUNS TOUL NUMBER OF DRIVES

P~E&e:NT

351

)52
!53

'THE FOLLOWING 1.OClTIONS CONTUN SERIAL NUMBERS CORRESPONDING TO tACH
'D~IVE, THE SERIAL NUM8E~S A~E KEYED IN BY THE USE~, WHEN THE PROGRAM
,IS STARTED WITH SWITCH 1 SET TO 1. THIS rEATU~E IS NORMA1.1.Y USED IN
,PPODUCTION ENVIRONMENT.

354
)55

356
357
358
3'59
360
161
362

001266

,,"'0010

8~NOI

.BLKW

'SERIAL NO'S

rop DRIVES 0.7

ITHE .. OLLOWING 8 KEYS A~E FO~ THE 8 COMMANDS IN THE QUEUE, TO 8E
/EXECUTED ON DIFFERENT DRIVES. EACH KEY IS ASSOCIATED WITH AN EXECUTABLE
,CONMAND ON THE RKll. VARIOUS BITS OF THE KEY DESCRIBE A COMIo!AND
,AS INDIC~TED 8ELOW

)63
364
165

,<0_2>
,<4>

166
367
368
369

,,<15>

DRIVE NUM8E~ ON WHICH THE COMMAND IS TO BE EXECUTED
INDICATES THAT THE HEADS ARE 8EING/OP HAVE BEEN
POSITIONED ON THE DRIVE
INDICATES A 'WRT CHK' SHOULD BE DONE FOLLOWING THE 'WRITE'
INDICATES A W~ITE CHECK FUNCTION HAS BEEN INITIAtED
INDICATES THAT A FUNCTION 18 IN PROGRESS (IT IS NOT SET
wHEN POSITIONING IS 8EING DONE ON A DRIVE)
INDICATES THE POSITION OF THIS KEY IN THE a-KEY TABLE
(POSITIONS BEING 0,1,2,3,4,5,6,7)
INDICATES THAT FUNCTION CORPESPONDING TO THIS KEY HAS
BEEN A80~TED
INDICATES HICH PRIO~ITY P'O~ THE CO"'MAND (NO~MAL1.Y
SET AFTER AN ER~OR OCCURED ON THE COMMAND)
INDICATES THAT THE CO~MAND CORRESPONDING TO THIS KEY HAS HEN
ABO~TED BECAUSE THE DRIVE WAS DESELECTED (DSELECTl
INDICATES THAT THE COMMAND HAS BUN COMPLETED
(ALSO SET WHEN COMMAND IS ABOPTr.D AFTE~ RETPIES)

KEY'

,8LICW

,<5>
,<6>
,<7>

370

371

,,<8-10>
,,<11>
,,<12>

372
373
374
315
316
377

1<14>

378
379
380

391

392
383
)94

395
386
387
388

389
390

001306

2100010

1111

,KEY rOR THE

COMMANDS IN QUEUE

I THE PARAMETERS TO BE USED FOR EACH COMMAND IN THE QUEUE
IARE STOPED IN " UBn STARTING AT 'CMNO'. BITS <&-10>
IOF T1.!E COMMAND KEYS (KI!:Y, KEY2. ---KEyS) ARE USED TO ?OIN~
IT':! 'hI!!: PIGHT !lET
PA'<AMETERS.

391
392
393
394
395

iiOIlD
WOIID
'1i01l?

396

.~():p

397

CONTUNS RKDA TO In U8tr.D
CONTUNS RKCS (FUNCTION BITS ONLY)
CONTUNS RKWC (W~1I0 CO';!;! 2'5 ::C~Pl
CO'ln!NS '1l(Il~

e'0~~

1.\11 T NOEC-l1-DZRKH-F
MACY 11 27C 100& l
n-SEP-76 1118157

DZ~KHF.PII

398
399

1101326

000040

04-0C1-76
13129
COMMON TAGS
CMND:

.BLK'"

PlIGE 9
SEQ 0022
,STORAGE TABLE

:THESE liRE BUSY nAGS FOR THE DRIVES, IF A DRIVE IS BUSY PERFORMING
,ANY FUNCTION (INCLUDING POSITIONING) THEN BIT 7 OF THE FLAG FOR THAT
,DRIVE IS SET. BITS 0-3 CONTAIN THE OFFSET TO KEY t WHICH MADE THE DRIVE
:BUSY. EX: DRIVE U WAS MADE TO DO A WRIT!!: BY COMMAND
:KEY5, HENCE "BUSY)' WILL CONTAIN 210, NOTE THAT 10 IS THE
:OFFSET FOR KEY5 (TAKING KEY AS BASE),
KEY •• OFFSET(0-3>/2 +

HI"

4<11

i02
403
404
405
4i/lb

4",7
408

001426

01<10010

BUSY!

.eLKB

,BUSY HAGS FOR DRIVES 0-7

~09

'THESE FLAGS WHEN SET INDICATE THAT A DRIVE IS BEING
:PDSITIONED OR HAS Il.LREADY BEEN POSITIONED.

41 "

411

112
413
414
lIS
416

001436

0~0010

pOS:

.BLKB

,DRIVE il POSITIONED

: RETRY COUNTS FOP A PARTICULAR P"UNCTION ON A DRIVE THE FUNCTION IS ABORTED
: ON II D~ t VE WHEN THE RETRY COUNT ~EACHES 3,

'H7
418
419
42~

0"1446

00~011i1

RETBY:

.BLKB

,DRIVES 0-7 RERTY COUNTS

421
422

0"1456

000000

WCF'LGI

• WORD

,IF BIT 15 IS SET WRITE CHK IS TO BE DONE
,FOLLOWING THE ;flUTE, BITS 0-3 CONTAIN THE
,OFFSET TO KEU (FROM BJ,SE:lKEY)

001460

B0B000

QSCNTI.ilORD

'''H462

000090

PRSFNC:

• WO~D

001464

000000

PSTf-NC:

• wORD

001466
0il1470

000001'1
00001'10

CICNTI
CICNT1:

,wORD
,wORD

0 .. 1472
1'101474
001476
001500

030303
1'1';10000
00331'10
000000

TIMER:
ERCODU
DRVPTR I
DRVCI/T I

• WORD
• WORD
• wORD
.000BD

"'01502

QDRV:
QCYL:
QSUR:
QSEC:
OFNC:
QBUSAD:
QW?CN! 1

• WORD
.wORD
,WORD
.WORD
,WORD
• WORD
• WORD

421
424
425
426
427

'THIS IS A COUNT FOR KEEPING TRACK or THE TIME
,TAKEN BY ALL THE 8 COMMANDS IN THE QUEUE,
,IF THIS COUNTS DOWN TO 0 AN ERROR IS REPORTED

429
429

410

411

:COTAINS INFO ABOUT THE PRESENT COMMAND
IBEING PERFORMED ON THE RK11
,CONTAINS INFO ABOUT THE COMMAND PERFORMED
,BEFORE THE • PRSCMND'

432
4H

414
4)5
416
437
419

'THIS Is A COUNT-TIMER USED FOP KEEPING TRACK
,OF THE TIME TTtKEN BY ANY FU'lCTION TO BE
,COMPLFTED. IF THE COUNT GOES To " AN ERROR IS REPORTED,

439
440
441

442
443

4H
H5
446
447
Hil
44'l
4'50
451

"'''1512

"1000"'0
001'1000
030000
0'l0000
000001'1

~S2

1-101514

~~"'000

4'53

1'101516

900000

001504

001506
0101510

MAINOEC-l1-DZRKH-F
MACYll
OZPKH,,".Pll
22-SEP-7b 09:57

27(1006)

"
'"

,TEMPORARY REGISTERS USED BY 'GENSRO'
,ROUTINE: TO STORE VARIOUS PARAMETERS
,OF A C::>MIolAND AS THEY ARE GENE~ATED,

3
3

04-0Cr-76
13:29
COMMOr. TAGS

PAGE 10
SEQ 0023

454
~'i5

:THIS TllBLE CO~TAINS VARIOUS MAPPING FACTORS TO BE USED
:FOR GE'lERUING RANDOM PARAMETERS rROM RANDOM NUMBERS

456
451
458
4'59

001520

4b<l

1'131522

461
462
463
l64

001524
001526
031531:1
001532

000000
000000
"'00000
000000
0000<l1/j
"'00000

DPt.lAP:
CYI,MAp:
SECIo411,P:
FNMAPI
BAMAP:
!oCMAP:

IMAPPING
,MAPPING
,MAPPING
IMlIPpING
,MAPPING
''''APPING

.wORD
,WORD
.WORD
.0101'0
• WORD
.WORD

FACTOR
FACTOR
FACTOR
FACTOR
FACTOR
'ACTOR

FOR
FOR
FOR
rOR
FOR
rOR

GENERATING RANDOM DRIVE NUMBER
CyLINDER
SECTOR
FUNCTION
BUS ADDRESS
WORD COUNT

465

46b
467
468

: THESE TWO P'LAGS CORRESPOND TO THE 2 INTERRUPT HANDLERS ( RUt) USED
: TN TH 1 S PROGRAM, WHEN THE INTE~RUPT HANDLER IS ENTERED THE FLAG IS
:CLE4REf) OR SET,

469
47kl

471

301534

472

901535

473
474
475
476
477

031536
0.11540

01-130"'0

",o0000

49"
481
4R2
4~3

-198
1B'l

.BYTE
.BYTE

SAVJ<EY:
ECOUNTI

.WORD
• WORD

,FOR ' INTHND "
,FOR 'INTtSKo,

CLEARED ON ENTERING HANDLER
SET ON ENTERING HANDLER

ITHIS TABLE CONTAINS COUNTS FOR THE NUMBER OF OF ERRORS OCCURING ON A
;DRIVE; (NOT": ONLy TIIOSE ERRORS WHICH ARE POSITIVELY ATTRIBUTABLE TO A
KEPT ONLY IF SWITCH 2 IS SET, WHEN THE COUNT
: SPECIFIC DRIVE). THE COUNT
;REACHES THE MAXl'lUM ALLOilABLE (USUALLY 3) THE DRIVE IS DROPPED FROM
,TESTING AND IS TAKEN OUT OF THE DRIVE SELECTION TABLE.

478
479

484
195
4!!6
187

INTFLGI
INTlFL:

001542

ill/j0010

ERORV:

001552
'''11554
001556
001560

""'''1'1013

KWHR:
.WORD
KW,"U:
• WORD
KWSECI
• WORD
KWCOUIIT: .WORD

000000

3000"''l
00001/j0

.BLKS

,COUNT FOR DRIVES 0-7

'COUNTS
'COUNTS
,COUNTS
,COUNTS

°
0

HOURS (2' S COMPLEMENT)
MINUTES (2'S COMPLEMENT)
SECONDS (2'S COMPLEMENT)
CPS FROM KW11L (2'S COMPLMNT)

:THIS TABLE CONTAINS COUNTS FOR HARD EPRORS ON A PARTICULAR DRIVE.
:EX HECN2 WILL CONTAIN THE. TOTAL NUMBER OF HARD ERRORS THAT OCCURED ON
:DRIVE 2

49'"
491
492

493
494

001562

0"'0010

HFCNI

.BLKW

I DRIVE 0-7 HARD ERROR COUNTS

495

196
497
t98

499

'THIS TABLE CONTAINS COUNTS FOR SEEK ERRORS
ION A PIIRTICULAR DRIVE.

001602

000010

SKECN:

.BLK!!

,DRlVI!: 0-7 SEEK ERROR COUNTS

530
501
502

ITHIS TABLE CONTAtNS COUNTS FOR SIN ERRORS Of.! A
:PARTICULAP DRIVE

503
504

505
51'16
5~7

508
509

0016:22

"''''0'''le

SINCN:

.~LICB

,DRIVE 0-7 SIN COUNTS

:THIS !lIBLE CONTAINS COUNTS FOR WRITE CHECK ERRORS
: THAT O:CURED ON A PARTICULAR DRIVE

'-'AINOEC-1l-0ZRKH-F
MACYll 27(1006)
04-0CT-76
13129
DZIIKHF. "11
22-SEP-76 08157
COMMON TAGS
510
511
512
513
514
515
516
511
518
519
520
521
522
52)
524
525
526
527

001632

000010

WCECN:

534
5)5
516
517
538
539

001652

001672

000010

CSECN I

001712

000010

ABORT:

000010

DATER:

,SLKW

ICSE COUNT FOR DRIVES 0-7

IABORT COUNT FOR DRIVES 0-7

000000
000000
000016

NWRTL I
NIoI):!TI'II

001772
001174
001776

000000
"00016

~020)2

0132034
0<l2036
~"2040

01<1000~

001326
001336

~02050

,iilOPD
• WORD

,DRIVES 0.7

PA.GE 12
SEQ 0"25

.BLK~

0
0
14.

ILO WORDI OF THE 2 WORD COUNT-GIVING TOTAL
,HI WORDII OF WORDS ilRITTEN ON DRIVE 0
'YOR REST OF DRIVES 1-7

NRDL:
NROH:

• WORD
• WORD
,BLKW

"
0
14.

rLO WORDI
WORD COUNT GIVING TOTAL
,HI WORDI • OF wORDS READ ON DRIVE 0
/p'OR DRI VES 1-7

PCMNO:

.WORD
.WORD
.wORD
.WORD
,WORD
.WORD
.wORD
.WORD

C14ND
C"IND+10
C"IND+20
CMND+30
CMND+40
C"IND+50
CMND+60
CMNO+7l'J

I POINTERS TO PARA!4ETERS FOR COMMIINDS IN QUEUE
,POINTER TO SECOND COMIoIANO
,POINTER TO THIRD COMMAND
,POINTER TO FOURTH COMMAND
,POINTER TO FIrTH COMMAND
,POINTER TO SIXTH COMMAND
,POINT!:R TO Stv!:NTH COMMUD
,POINTER TO EIGHTH COMMAND

~01346

001356
01<11366
001376
001406
001416

.BLKW

04-0CT-76
13:29
COMIAON TAGS

001732
901734
001736

002042
002044
002046

Sq)

,BLKW

ICOUNTS FOR NUMREP OF DATA ERRORS THAT OCCURED ON INDIVIDUAL DRIVES.

54~

582

I WCE COUNT FOR DRIVES 0-7

'THIS TABLE CONTAINS COUNT OF NUMBER OF rUNCTIONS
JTHAT WERE ABORTED ON A PARTICULAR DRIVE, A
;FUNCTION IS ABORTED ONLY AFTER DOING RETRIES

541
542
543
544
545
546
547
549
549
5'50
'551
552
553
5'54
555
556
557
558
559
560
561
562
563
564
565
566
567
569
569
570
571
572
573
574
575
576
577
578
579
580

581

SEQ 00H

,9LKW

;THIS TABLE CONTAINS COUNTS FOR CHECK SUM ERROR THAT
;OCCURED ON A PARTICULAR DRIVE

,OITNOEC-II-0ZRKH-F
!!!lCYU 27(1006)
OZRIOIF .Pll
22-SEP-76 08:57
528
52 9
5)0
531
532
5)3

PAGE U

~02052

000000

BIISESA I

• WORD

002054

000000

MAXBA:

.WORD

002056

000000

REPCNTI.WORD

002060

000000

XXDP~DI

002062
002070
002076
002104
002112
002120
002126
002133
002140
002141
002146
002154
002156
002164
002165
002172
002200
002201
002206
002214

005U5
005015
005015
005015
042440
047440

'CONTAINS THE LOWEST BUS ADDRESS STARTING WHICH DATA TRANSFERS
ICAN BE DONE
,CONTUNS THE HIGHEST 8US ADDRESS TO WHICH DATA TRANSFERS
'CAN 8E DONE.
,CONTAINS THE REPETITION COUNT- TH!: NUM8ER
,OF TIMES Q R!:QUESTS WILL BE GENERATED, WHEN THIS
,COUNT GOES TO 0, IT MEANS AN END OF PASS, HOWEVER
,NOTE THAT THERE IS NO TRUE END OF PASS, IN TI1IS KIND
,OF EXERCISER PROGRAM. THE EXERCISER RESUMES FROM
I THE POINT IT LEFT OFF, A~TP.:R TYPING OUT THE END IF
,PASS MESSAGE.
,LOW BYTE CONTAINS ADDRESS OF RK05 DRIVE
,WHICH PROGRAM WAS LOADED rROM, HIGH BYTE
rCONTAINS THE RK05 'XXDP' CODE.

.WORD

: ASC II IoIESSAGES

041111
127
000
122
1'151127
000113
11142122
000
015
052122

045523
041527
051503
040510
047522
020116
020107
044522

000105
000105
000105
042122
000122
047504
01'10
042524

MSGll
MSG21
MSG31
MSG41

.Ascn <15><12>/SKEI
• lISClZ< 15><12>/WCEI
,ASCIZ<15><12>
ICSEI
.ASCn <15><12>/HARD ERORI

MSG51

,ASClZl ON DOING

MSG61

,lscn

040505
020124

1100104
044103

MSG71
MSG8:

.~scn

12l
",44120

."sell

IREADI
IWRT :::HKI

< 15>< 12>1 ABORTED/< 15>< 12>

041440

045510

MSG91

040412
042105

047502
elI5015

MSG101

,lIScn
.lI.scn

042505
041520
051511

000113

MSG111
MSGi21
'I5G1 3:

,Ascn

ISEEKI

i1!41040

.ASCIZ
./ISCIZ

<15><12>/Pca/
IPIHS BA-I

000
005015

I\tIRITEI

~0"075

IRD CHKI

'4AINDEC-II-DZPKH-f
"'ACYl 1 27(1006)
22-SEP-76 08: 57
DZRKflf.Pi i
584
Sg5
586
597
5R9
589
590
591
592
593
594
595
596
597
598
599
6(;j0
6al
602
6<!1~

61'14
6135
6~6

or;7

6il8
009
61 "
611
612

613
6t4
615
016
017
618
619
62kl
621

622
623
624
625
b26
627
628
629
630
6J!
b 32

6)3
oH
6]5
636
6n
b~8

002222
002225
002232
902249
992245
1302252
002260
002266
002274
002302
1302305
002312
002320
002326
002334
0023]6
0132344
fl02352
002360
002362
002370
1102372
0..,2375
"O2377
1/102404
002412
0~2420

002426
002434
002442
002450
002456
002464
9"2472
0"2474
002502
002510
902516
602524
1302532
902540
002546
902554
1<102562
002570
002571:1
002&04
002612
0'12620
00262&
002634
~02642

002650}
01'126'52
002660

036501
015
351104
051522
915
0213105
047104
135'2116
020124
020122
015
0341355
051525
051440
3130072
1305015
3501213
044522
1300040
005015
1311011'15
020054
106
~15

042526
0515114
047124
051504
1'120104
042523
04 t 527
942524
020040
0"A040
905015
02eJ105
045523
047502
020040
005015
042514
046103
051105
eJ43101
044124
051124
0"'S1l15
020122
052111
046103
02elA4
1352105
21092149
0il'5015

000
047012
951526
352116
1342012
920043
952047
051105
0431131
000
1345412
13201340
1326531
020122

020117
0591340
099
953122
9445134
044440
050125
042524
054595
041040
000067
047516

042040
1342105
042526

047522
042040
021440

051104

053111

000
090
.;4~"i 2
029040
053440
02004<1
(1151040
029040
020041j
02A195
051122
04404il
051104
029049
029195
052122
044523
047125
0520411
040505
047522
eJ42524
042522
042511
051105
041503
047511
040505
047117

~44522

13129
04-0:::T-76
TAGS

PAGE 13
SEQ 0026

CO~MON

MSG14 :

.ASCIZ

<15><12>/NO DRVS PRSNTI

,",SGI5:

• ASCIZ

<15><12>/DRVE • DIDN'T INTERUPT AFTER I

MSGI6 :

.ASCIZ

< 15>< 12> IKEY-8

MSGI7:
"'SC181
MSGI9:

• ASC II
.ASCn
.ASCIZ

<15><12>1 DROPPED DRI VE • I

MSG20:

.ASCIZ

<15>< 12> IDRIVEI

MSG24:
MSG25:

I, I
IF I

MSGtfl:

.ASCIZ
• ASCI Z
.ASCIE

<15>~12>/ORIVe:

wROS ilPITN

MSG26A:

• ASCIZ

< 15>< 12> /DRIVE

SKE

MSG27 :

• ASC IZ

<15><12> IUNABLE TO CLEAR ERROR AfTER THREE: TRIESI

MSG28 :

• ASC 1 Z

<15><12>/ERROP :ONDITION CLEARED ON RETRY. /

MSG29:

• ASCIZ

<15><12>ITIME I

BUSy-71

I SR NOI
III

WROS READ

eSE

WCE DATERR

951127
044522
051127
040505
041440
020040
040594
929049
020105

~54522

053111
020940
1340440
020040
000116
041 HI1
020117
020122
021i1122
020122
..,20105
000123
047522
042116
020116
042522
0510421
212144'"

044524

942515

ABORT

SINI

00~040

639

"IAINOEC-11-0ZRKH-F
MACYI1 27(12166)
04-0cr-76
13129
DZRI(,.r ,P!1
22-SEP-76 08:57
COMMON TAGS
64>l
041
642

902662
0212663
CJ02664

040
2140}
MH'J040

PLNKS3: .ASCII
F!LNKS2: • ASC II
BLNKS1: .ASCIZ
.EVEN

PAGE 14
SEQ 02127
I

MAINOEC-11-0ZRKH....
MACYU 2' (l096)
04-0CT-76
1]129 PAGE 15
OIR!O",. p11
22-5I:P-76 0815'
EPROR POINTER TABLE
,SBTTL

644

ERIIOR POINTER TABLE

645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671

,.THIS TABLE CONTAINS THE IN .. OIIMUION .. OR EACH ERROR THU CAN OCCUR,
,.THE lliI'ORIIATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN
,.LOCATION UTEMB, THIS NUMBER INDICATES WHICH ITEM IN THe: TABLE IS PEIITINENT,
,.NOTEll
I ' SIUMB IS 0 THE ONLY ptRTINENT DATA IS (fERRPC',
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FO.LL(.'wSI
,.NOTE21

,.,.
:.

I·
002666

EM
DH
DT
OF

, 'POINTS
I' POINTS
, IPOINTS
, ,POINTS

TO
TO
TO
TO

THE
THE
THE
THE

ERROR MUUGE
DATA HEADER
DATA
DATA FORMAT

$ERRTB:
,.THERE ARE TWO CLASSES OF ERRORS I
,.1. ERRORS IN EXF.RCISER PART OF THE PROGRAM • ERROR NUMBERS BELOW 10e
,42, ERRORS IN THE NON-EXERCISER PART or THE PROGRAM .. ERROR NUMBERS EQUAL
I.TO AND GREATER THAN 10e,
,.THE DOCUMENT CONTAINS MORE INFORMATION ON THESE,
:.THE FOLLOWING ERRORS OCCUR IN THE EXERCISER PART OF THE PROGRAM,

lITEM

6741

e02666
002670
002672
002674

e27530
0]1626
032320
000000

673
674
675
676
677
678
679

802676
002700
002702
002704

027546
O31674
032334
000000

002706
002710
002714

027621
03\ 626
03413213
000000

0027 t 6
00272O
902722
002724

027644
031626
032320
000000

002726
002H0
002732

027667
031626
032320

EMl
DHI
DTl
0

'ERROR ON WRITE
RKER
RKCS
IPC
iREGl
I nRRPC 'REG0

EM2
OH2
DT2
0

,ATTEMPT TO INITIATE FUNCTION ON 'BUSY' DR!VE
DRIVE
IPC
,SERRPC aREG0

£r.!l
OHI
OTt
0

I CONTROL READY NOT SET
RKER
RKCS
IPC
SREGl
,$ERRPC SREG0

RKOS
SREG2

RKDA
SREG3

E"4
DHt
OTI
0

I RIWIS READY NOT SET
RKER
RKCS
I SERRPC SREG0
GREGl

RKDS
'REG2

RKDA
'REGl

EM5
DHI
OTt

,CONTROL READY NOT SET AFTER rIPST INTERRtlPT ON ISSUING SEEI"
RKCS
RKER
RKDS
RKDA
$REG2
SREGl
I nRRPC 'REG0
'REGl

RKOS
'REG2

RKOA
'REGl

, ITEM

b80

691
6R2
683
6tH
695
6116
697
698
6R9
690
691
692
693

lITE'"

0027141

lITEr.!

,pc

b94

695
696
697
698
699

, ITE"

,pc

MAlIfOEC-l1-DZRKH .. F
04-0CT-76
13 J 29 PAGE 16
"'ACYll 27( 1006)
rllROR P()lNTFIl 'neLE
DZRK",'. PI t
'i-SEP-H ~~ I $'7
700
731
702
703
7e4
7,,5
706
707
708
709

e02734

000000

0"27)6
002740
0"2742
13"'2144

027754
e)1626
032320
lIeee.0

1102746
002750
002752
002754

010"'13
031674
e32334
000000

O02756
002760
002762
002764

03OO60
011674
"32334
0000013

lITEM

030135
031626
0323213
00000"

1302776
13030130
01331302
0031304

11)]0215

003,,,,,6
00301"
0"3012
"83014

030267
0U 626
812320
,,0"01313

148

083U6
003"2e

749

VJ0ltZl

750
751
752
753
754

1303024

010342
031626
132320
0""eee

e03B26

11Jl1ll415

15'5

01l3~]0

2131626

7]5
716
737
7)9

EM7
DH2
DT2
0

I 'BUSY' FLAG CLEAR ON INTERRUPTING DIIlYE
DRIVE
,nRRPC .REG0

I ITEM

,'ERR'OR SET AFTER l"IRST INTERRUPT ON 1SSUING SEEK
,Pc
RKCS
RKER
RKOS
RKDA
tREG)
,REGI
SPEG2
I URPPC .REG0

12
EM12
DHI
DU
0

1331626
032120
130130011

I 'POSITIONING' 'LAG rOR INTERRUPTING DRIVE CLEAR
DRIVE
IPC
,URRPC UIEG0

EMU
OHl
DTI
13
,ITEM

,pc

10
EMU
DH2
DT2

lITEM
002766
11102770
11102772
1302774

134

,WRONG BITS IN RKCS, EXPECT SEEK
RIIER
RICDA
RKDS
RKCS
IPC
tIIEGI
I IERRPC 'REGe
'REGl
'REG2

lITEM

71"

711
712
713
7\4
715
716
717
718
719
720
721
722
721
724
725
726
727
728
729
7]0
7]1
732
713

EM6
OHI
DT1
0

,SCP SET A'TER rIRST INTERRUPT ON ISSUING SEEK
,PC
RKER
RKDS
RKD ..
RKCS
OEG2
J nRRPC 'REG0
'REGl
'REGl

7]9
140

741
742
743
744
745
146
147

EMU
OHl
OTt
0
: ITEM

14
EM14
DH!
OTl
III

lITEM'

I CONTROL READY NOT SET AFTER SEEK DDNE INTERRUPT
pKDS
,PC
RKER
RKD ..
RKCS
'REG)
,SERRPC 'REG0
'REG2
'REGl

I INTERRUPTING DRIVE [SEEK DONE) WAS NOT 'eUSY'
RKER
RKDS
RKCS
PKDA
IPC
.REGI
.REG2
.REGl
,URRPe 'REGe

15
EMU!
DHl

IR/W/S READY NOT SET rop INTERRUPTING PUYE (SEEI( oorlE)
!'IKER
?KOS
R~Dk
f/i\CS
I PC

51"':'

tACJ"O

MACY11
MA r NDEC-II-0lRKH-F
22-SEp-76 08157
OIRKHF.Pll
756
757

003032
003034

032320
"00000

003036
003040
003042
003044

030501
r;J31626
,,32320
BPl0000

003046
003050
003052
003054

030512
031626
032320
000000

0rtl3056
003060
003062
003064

"30540
031626
632320
O1110000

27(1006,

13129
04-0CT-76
PAGE 17
ERROR POINTER TABLE
OTI
0

I SERRpC SREG0

SEQ 0030
SREGl

SREG2

UEG3

RKER
SREGl

RKDS
SREG2

RKDA
SREG3

RKDS
'REG2

RKOA
SREG3

He
759
761<1
761
762
763
164
765
766
767
768
769
7HJ
771

I ITEM

16
E.,16
OHI
OTl
0

, ITEII

"51'1' ERROR
, PC
RKCS
r SERRPC 'REG0

17
E'M17
DH!
OTI

I "ERR"OR ON DOING SEEK
RKCS
RHR
r PC
,SERPPC SREG0
SREG1

772
: ITEM

773
774
775
77b

777
778

7'19
:ITE"!

79'"
191
7~2

783

20
EM20
OHI
OTl

003066
003070

IH0MH
031711

E"'21
DH21

003O72

032342

OT21

003"'74

000000

1!l03076
"0Be'0

0013000

~31711

DH21

01<13102

,,32342

0121

003UH

",O000O

003106
003110
003112
003114

03061t.
032006
03232O
"'00000

0031lb
003n0
003122
003124

030645
031626
032320
","'0000

7~4

785

786
787
788
789
7910
791

792

: ITE~

795
796
797
798

lITE'"

: SOFT ERROR
:SERRPC RKCS
SUR
'~YL
I SERRPC SREG0
r $REG4 SREGS

RKER
SEC
SREGI
SREG6

RKDS

, SERRPC RYCS
SUR
'CYL
,SERRPC SREG0
,$ REG4
$REG5

RKER
SEC
$REGl
$REG6

RKDS

RKOAI

$REG2

DRV'
SREG3

791
7'14

'SCI' DID NOT SET AFTER SEEK WAS DONE
,PC
RKCS
RKDS
RKDA
RKER
SREG2
SREG3
SREG1
'SERRPC SREG0

RKD'"

6REG2

DRV.
SREGl

79<j
~01O

A01
932
~03

R04
R0S
ql1lb
907
80~

R;lJ9
910

E"23
DH23
OTI

I DATA (COMPARISON) ERROR
RKBA
EXPCT
RECVO
IPe
$REG2
I SERRPC SPEG0
.REGI

RKDA
SREGl

:ITE'"

24
E"'24
OHI
DTI

INTERRUPT AFTER RK FUNCTION
: CONTROL PEADY CLEAR ON
RKes
RKEP
RKDS
RKOA
,PC
$R£.Gl
SREG2
SREGl
: SERRPC 'REG0

I.'

B1\

04-0CT-76
13:29 PAGE
"ACYl 1 27(\006)
ERROR POINTER TABLE
22-SEP-76 08 :57

~p. I 'lOEC-I1-DZRKH-r
OZR!(~F'.Pll

:ITE..,

912

18
SEQ 0031

~t3

814
~t 5

e,6

Bt7

O03126
003130
003132
003134

000000
O32053
032364
0"'0000

0031 16
003140
003142
003144

030nt
032320
00000O

003146
003150
003152
01<13154

030714
"32133
032402
000000

8I9
~t q

OH2S
oT2S

RKDS
.REG2

RKDA
'REG3

DRIVE
SREG4

IPC
RKCS
, SERRPe SREG0

RKER
SREGI

'STIJCK IN LOOP,
PKCS
,SERRPC SREG0

e Q-COM'IANOS SHOULD BE DONE BY NOW
RKER
RKDS
RKDA
$REG2
SREG3
GREGl

0
lITEM

~2<!

921
q22

9H
~24

EM26
DHI
OTt
0

~31626

,pc

ii25

, ITEM

~;"

;'28
S2~

810
8U
832

"n
8]4
81';
~'6

837
838

E1427
DH27
OT103

:ITE"
IIilHlS6
003tt;;j
003162
00)164

i'l311H5
032211
032314
000000

003166
00317O
0~31 72
91913174

031130
031674
032334
000000

,UTEMPT TO 00 WRITE CHECK BEFORt WRITE
IPC
KEY
FUNCTION CODE
SREG0
SREGI
'PC

°30
EM30
OH30
OT2
0

'UTEMPT TO REEXECUTE 11 COMMAND IN PROGRtSS OR ALREADY FINISHED
KEY
IPC
: SERRPC $REG0

8~9

~4"

: ITEM

941
~42

843
1j44
845
846
847
q48

'49
Q';0
90:;1
8';2
853

:ITE14
0<'3176
003200
O03202
0"3204

031221
032163
032402
0",000'"

01113206
00321O
0;03212
003214

"31 253
O32163
032402
000000

003216
003220
003222
003224

031330
031626
1'132320
",00000

~54

R55
856
957

lisa
959

32
'UNEXPECTED DRIVE INTERRUPTED
EXPCT
RECVD
'PC
SREGl
:SERRPC 'REG0

33
E"433
DHl03
OT103
0

, ITE'1

, 'FUNCTION IN PROGRESS" FLAG FOR INTERRUPTING DRIVE IS NOT SET
, PC
DRIVE
ISERRPC SREG0

EM32
DH103
DT103
0

lITE'"

661
962
fl6]
1!64
865
966
ij67

EM31
DH2
DT2

I wRONG FUNCTION CODE IN RKCS AFN':FI INTERRUPT
IPC
EXPCT
RECVO
$REGI
'SERRPC SREG0

34
EM14
DHt
OTI
0

IDRIVE READY CLEAR
,PC
RI<CS
RKER
'SERRPC $REG0
IREGl

RKDS
SREG2

RKDA
SREGl

MAlNOEC-ll-DZRKH-F
MACYlI
OZRKHF .PII
22-SEP-76 1118157
B6B
B69
87111
871
872
873
874
875
876
877
878
879
880
B81
8112
883
884
895
896
997
898
889
1190
891
892
S93
894
895
996
~97

898
899
900
901
91112
903
91114
905
906
907

21(1006)

PAGE 19
04-0CT-76
13129
ERROR POINTER TASLE
lITEM

003226
0032)0
003232

1""3234

031347
031626
032320
00011100

003236
003240
003242
01113244

11131365
11131626
03232111
000000

003246
003250
003252
003254

031401
031626
032320
900000

EM35
OHI
OTI
111
,ITEM

,ORIVE POWER LOw
RKER
FlKCS
IPC
,SERFlPC 'FlEG0
'FlEGt

RKOS
tFlEG2

RKOA
.REG)

'DRIVE UNSAFE
fPC
RKCS
,SERRPC SREG0

RKER
'REGl

RKOS
$REG2

RKOA
'REG3

IWPS SET
,PC
RKCS
'SERRPC SREG0

RKER
'REGI

FlKOS
SREG2

FlKOA
SREG3

36
EM36
OHI
OTI
0

111EM

SEQ 0032

37
EM37
OHI
DU
0

1*
I*THE FOLLOWING ERRORS OCClII~ IN THE NON-EXERCISER PART OF THE PROGRAM.
1*
lITEM
003256
003260
003262
003264

030616
032006
032320
9000111111
: ITEM

01113266
01113270
1/)03272
003274

031411
1/)31626
032320
00000O

909
9t0
9\ I
912
9\)
914
915
9t6
917

1:li!3276
I,H!J330"
003302
003304

931451
031620
1'132320
9"9000

9\8

0~3l12

919
920
921
922
923

9933t 4

031465
032163
032402
9901'100

1/)03310

031513

190
EM23
DH23
OTI

FtKOl
SREG3

11111

EM101
OHI
DTI
0
:ITEM

IDATA (COMPARISON) ERROR
,pC
EXpeT
RECVO
RKSA
I fERRPC SREG0
SREG1
SREG2

I INTERRUPT DID NOT OCCUR AFTER WRITE
RKDs
RKDA
RKER
RKCS
IPC
$REG2
8REG3
'REGI
'SE,RRPC 'REG0

102

9~8

EM102
DHI
DTI

lITEM
003390
003310

RKER
.REGI

RKDS
SREG2

RKDA
'REG)

EM103
DH103
OU03
0
: ITEM

,'ERR'OR SET
,pC
RlfCS
,SERRPC $REG0

INCREMENTED WRONGLY
'RKDl
,pC
RECVD
EXPCT
I SERRPC 'REG0
'REGl

II:l4
EM104

'RKBl INCREMENTED WRONGLY

MAINorC-t l-DZRKti-F
"'ACYl I 27{Hl061 1t14-0:T-7b 13129 PAGE 20
ERROR POINTER TABLE
DZRKHI". Pit
n-SEP-76 ~B: 57

924
925
92&
927
928
929
9)0
911

'132
9)3
914
9)5
9)6
917
9)8
939
94<')
941

09])29
903322
093324

DHI0)
DTU)

03216)
9)2402
00G'J0G'JG'J
~ ITE~

OO3326
00333O
003332
003334

IH1541
1'132225
032402
0OO000

003336
11103349
11103342
003344

o31571
031626
O32320
0000OO

11111I3l46
093350
903352
11103354

939016
032163
03240l
909000

O1113356
003360
OO3362
003164

031610
032252
032320
000009

942

SEQ 0033
RECVD
$REGI

EM105
OH105
OU03
G'J
~ ITEM

,PC
EXPCT
, .ERIIPC 'REG9

'RKWC DID NOT OVERFLOW TO
RKDA
RICWC
,PC
tFlEGI
'SERRPC 'REG0

106
EMUfo
OHI

OTt

,'lEX BITS INCORRECT
,pC
RKCS
RKER
$REGI
,SERIIPC: .REG0

PKDS
SREG2

RKOA
SREG)

0
~ ITEIo\

107

943

944
945
946
941
948
949
950

'151
952
953
9'54

EIo\23
DHl0l
OTU)
G'J
IITE~

,DATA (CO!4PARISON) ERROR ON READ
,pC
EXPCT
RECVO
SREGI
'SERRPC SREG0

11O
E~110

DH1l0

01'1
0

'WRITE CHECK ERROR
,PC:
RICER
RKCS
,SERRPC: allEG0
$REGI

RKBA
SREG2

RKOA
$P.ECJ

,",AI "DEC-l1-DZRKH-F'
MACY 11 27 (1006)
04-0CT-76
13: 29
HGt 21
DZRI<HI'".PII
22-SEP-16 08:57
ERROR POINTER TABLE
I IF POWER FAILED,
003366
003372

004737
! 05237

~03 376

000005

03340'"
003404
003406
003412
0<13414

012706
005026
1'12270b
001314
012706

001100

1'103420
003426
003434
003442
0034510
003450
003464
003472

012137
012737
012737
012737
012/37
012737
012737

027102
1'100340
027246
000340
027346
000340
003464
1'103472

000020
000022
0031i'34
0210036
000024
0001026
01HI106
0101110

0035010
003504
003512
0111352()
0"'3526
0iH534

013146
012737
012737
1112737
022777
001012

"'00004
003540
171570
177571'1
177777

0100004
101011410
001142
175404

1103536
0"3540
003544
003546
003554
003562

000403
012716
00,11:1'-"2
012737
012737
012631

003566
003572
003574

005227
1'101052
104401

1'103600
1'103604

01115737
001006
023727
001005
104406
000403
!! 2737

01636~b

,HI3614
003616
0<1362111
0~3622

~12737

022536
001253

PFSTRT I

001140
001100

003546
000176
000114
000004

01011410
001142

PC,WATIME
FRSTRT

,WAIT SOME TIME
IINDICATE THAT THE STATISTICS HAVE
ITO BE SAVED, ON RETRN FROM PiiR FAIL.

START:
RESET
;CLEAR THE BUS
.SB!TL
INITIALIze: THE COMMON TAGS
; ICLEAR THE COMIolON TAGS CIC"lTAG) AREA
'"'OV
U:::MTAG,R6
I,FIRST LOCATION TO BE CLEARED
CLP
(R6l+
: ,CLEAR MEMORY LOCATION
CMP
'SIiR,R6 "DONE?
BNE
• -6
; ,LOOP BACK IF NO
~OV
iSTACK,SP
: ISETUP THE STACK POINTER
;;INITIALIZE A FEW VECTORS
MOV
HSCOPE. @If tOTVE: II lOT VECTOR FOR SCOPE ROUTINE
MOV
'340,UIOTVEC+2 ; ,LEVEL 7
'"'OV
UTRAP, IlURAPVE::: JI TRAP VECTOR FOR TRAP CALLS
MOV
*343,UTRAPVEC+2,LEVEL 7
MOV
UPWRDN, UP"RVEC "POWER P'AlLURE VECTOR
MOV
'340,~iii"iiRVEe~2 "LEVEL 7
MOV
' . , SLPADR
;, INITIALIZE THE LOOP ADDRESS FOP SCOPE
MOV
I. , S LPERR
; ,SETUP THE ERROR LOOP ADDRESS
;ISIZE FOR A HARDWARE SWITCH REGISTER. IF NOT F'OUND OR IT IS
;, EQUAL TO A "-1", SETUP FOR A SOFTWARE SWITCH REGISTER.
MOV
IlURRVEC,-(SP); ,SAVE ERROR VECTOR
MOV
.64S,@URRVEC
nSE! UP ERROR VECTOR
MOV
.DSIIIR, SWR
"SETUP FOR A HARDWARE SWICH REGISTER
MOV
#ODISP,DISPLAY: lAND A HAROWARE DISPLAY REGISTER
eMP
.-I,ilSWR
"TRY TO REFERENCE HARDWARE SiiR
BNE
6&$
; ;BRANCH IF NO TIMEOUT TRAP OCCURRED
; ,AND
THE HARDWARE SliR IS NOT" -1
BR
65$
,rBRANCH IF' NO TIMEOUT
64$:
MOV
.65$, (SP)
; ,SET UP FOR TRAP RETURN
RTI
65$:
MOV
#SwREG, Swi'<
I,POINT TO SOFTWARE SWR
MOV
IDISPREG,DISPLU'
6&$:
MOV
(SP) +, IlURRVEC
:, RESTORE ERROR VECTOR
TYPE PROGRAM NAME
.SB!TL
: :TYPE THE NA~E Of' THE PROGRAM IF FlRST PASS
"nRST TIME?
INC
BHE
67$
: : BRANCH IF 110
TYPE
,68$
: ,TYPE ASCIZ STRING
GET VA.LUE FOR sorrwARE SiiITCM REGISTER
.SBTTL
TST
,.. 42
I,ARE WE RUNNING UNDER XXOP/ACT?
BNE
69$
:, BRAt-ICH IF YES
C"IP
SWR, .SWREG
"SOFTWARE SWITCH REG SELECTED?
BNE
70S
: ,!RANCH IF' NO
: ,GET SOFT-SWR SETT I '4GS
GTS"P
BR
7;1)$

'-1

177777
00363:?
000042
01111140

JSR
PoICB

SEQ 0034

ON RETURN OP' POliER ENTER HERE.

1000176

"'OVFI

001! 34

1\,SAUTOB

,:SET AUTO-MME INDICATOR

"'03610

lolA PjO~C-l1-DZRK H-.
MACYll 27( 1006)
04-0CT-76
13129
PAGE 22
DZRI<!-W.PII
22-SEP-76 ,,8:57
GET VALUE FOR SOFTWI\RE SWITCH REGISTER

101 I
1012
10'l1 3
1.,14
1 '.lIS
1016
1 "17

003630

003433

: ,68$:

~W3742

012137
013737
0127 n
013737

026114
001244
0224610
001246

01110030
\'j00032
0\'j0100
000102

1 ~I R
1 <'2"

linE>
II/lH

1,t13R

Hng
1<14.:\
1041

H142
I (j4 3
1"44
1045
11114&
1 i:l4 7

ilI03750
003754
0"3762
1003764

iH15037
122737
0<1llb0
013737

0"3772
004000
00400.
00400b
004012
004;1)14
004"20

1227]7
101002
105037
005737
001424
104401
0004\ 3

"04050
"041050
004"52
""4056
01114,,60
0'-"4061
0<14,,62
01114,,64
fi04<170
1'10411172
004"7&

005046
113716
104403
001
000
01'10<;210
005127
1'l1il1115
1044 .. 1
000411

004122
0,»4122
"M124

1 ,.,<;2
11053
1 J54
1055
1';56
111157

01114132
004133
1/l04134
004140

lfo0;8

000041

00('11'40

002060

001'l1'l10

002060

002060
0021042

2S:

HERROR, ~'EMTVE:::
PPRl,VL, UEMTV[C~2
HWSRVE,UKWLVE::
I(wPLVL,@IIKWLVEC+2

~'J4130

:;72S:
71 S:
1:l021116l:!

177777

3S:

004324
004326

TYPE
BR
• ASC IZ
CLI<
MOVS
TYPOS
.BYTE
.BYTE
BR
INC

BNE
TYPE

21104100

,EMT VECTOR FOR ERROR ROUTINE
ILEVEL 5
;KW11L CLOCK SERVICE
,LEVEL 7

BR
.ASCIZ

:CLEAR 'XXDP' LOAD DEVICE STORAGE
: LOADED FRO'"' AN RK05 1
;BR If' NOT
IGET DEVICE INDICATOR AND DRIVE ADDRESS OF'
I LOADING RK05
:VALID
DRIVE ADDRESS?
.10, XXDPMD
IBR IF YES
2$
:CHANGE
TO DRIVE ZERO
XXDPMD
;CHiUN MODE OR IICT11 AUTO ACCEPT?
42
:
SR
IF
NEITHER
3S
:;TYPE I\SCIZ STRING
.72S
: ,GET OVER THE ASCIZ
71$
<15><12>/IIOT TESTIII!G DRIVE 1

XXDPMD
'2,41
ST2
40, XXOPMD

-(SP)
XXDPMD, (SP)

:CLEAR IIORD ON STACK
:GET DRIVE ADDRESS
I TYPE THE ADDRESS
:ONLY 1 CHARACTER
1
J SUPRESS LEADING ZEROS
o
: GET NUMBER OF' DRIVES
ST2
,FIRST TI"IE THROUGH HERE
:BR
IP' NOT
ST2
nTYPE IISCIZ STRING
,74$
I : GET OVER THE ASC IZ
73$
<tS><12>iTO TEST DRIVE 1

'-1

73$:
0;15046
113716
1 ~440 3
111111
0110
104401
000431

004142

: : 76$ I
004224
1'l04224
004230

CMPfI
SHl
CLRB
TST

BEQ
004022

CLR
,",oVB
TYPOS
.BYTE
.BYTE
TYPE
BR
• ASCIZ

-(SP)
XXDPMD, (SP)

TyPE

,788
:ITyPE ASCIZ STRING
77$
: ,GET OVER THE ASCIZ
IOIITH A WORK PA::K, CLEAR LOCATION 40,

: CLEAR WORD ON THE STACK
: GET DRIVE ADDRESS
: TYPE THE DR IVE ADDRESS
10NLY 1 CHARACTER
1
,SUPRESS LEADING ZEROS
: I TYPE ASC IZ STRING
, 76$
: : GET OVER THE ItsC IZ
75$
1 HALT PROGRAM, REMOVE RKDP PACK AND REPLACE lT/<15><12>

758 :
104401
000435

004232

1061

1"'62
1061
1;1)64
1 "65
1"66

MOV
MOV
MOV
MOV

eLR
CMPB
BHE.
MOV

0021061:l
QW0 I:lIO 2

:,74$ I

101 R
lil49
1.-15"
1<10;1

1.:\59
111160

67$
: :GET OVER THE IIscn
<CRLF>*RKll/RK05 PEPFORMA'ICE EXERCISERH15><12>*MAINDEC-11-DZRKH-FHCRLF'

:THE ~·OLLOWING CODE FINOS OUT THE PROGRAM CONTROL '"'ODE:
'PAPER TAPE ("IIINUU), ACT11, RKDP CHAIN OR DUMP

Pl9

1iI21
1 "22
110 2 3
1"24
1"25
1"26
1lJ27
1 "28
H29
I" h'l
1031
1"32
IV1H
11'134
1,,.5

BR
./ISCIZ

67$ :

.,03 7 2~J
003120
003726
ilI03734

SEQ 10035

104416
0<15037

"01264

:, 78S:
77. :

.ASCIZ

S12I

CON. RESET
CLR
DRVPRS

:nllD WHICH DRIVE

AND RESTART PROGRAMI

,'S ARE PRESENT

IIAUOEC-II-OZRKH-F
MACU!
DZRKHP'.Pll
22-SEP-76 e8157
1067
1068
1069
1070
le71
1072

1073
11'174
1875
1076
1077
11'178
11'179
1880
le81
11'192
1083
1084
1085
11'196
1087
1088
1099
le90
h)91
1092
1093
1094
109~

1096
1097
le98
1099
110e
1101
1102
1101
1104
1105
1106
litO
1108
1109
1113
11 t 1
1112

0e4332
0e4334
084H6
0e4342
0e4346
084352
094356
004362
084366
0e4372
08441'10
1'184402
094406
984410
084414
084416
084422
1'104424
e04426
004418
1'184434
004440
904442
004446
e04450
084454
004456
004462
004464
004466
004472
084474
004476

0051'10e
0e5002
0e51'131
0e5037
0e5e37
885837
1'112781
012703
11111277
032717
081415
I'lle237
t 1'14420
995737
91'11483
121'1837
01'11404
118e21
811'1221
085237
0627e2
0e5208
022101'1
0el347
013703
0015Hl
e12701
005000
005e02
104401
111102
010200
002472

1'101254
e01256
001268
001262
01'11254
e01306
1146)6
e8e2111'1

27 (101'1"

e4-oCT-76
13129 PAGE 21
GET VALUE rOR SOFTWARE SWITCH REGISTER

1$1
174616

1'll'l15e2
882061'1
80286"
2'1
01'11264
02e0e0

3$1

000010
0e1264
001254

002362
HI

CLR
CLR
CLR
CLR
CLR
CLR
MOV
MOV
MOV
BIT

R0
R2
POR
PDR+2
POR+4
PDR+6
'PDR, Rl
UEY,R3
R2,.RKDA
'2ee,IRKDS

BEG

MOV
R2,QDRV
DRV.RESET
UOPIID
TST
BEQ
2.
CMPB
R8,XXDPMD
BEQ
H
Re, (R1)+
MOV8
R2, (R3)+
MOV
INC
DIWPRS
ADD
12000e,R2
R0
INC
CMP
U.,R0
8NE
U
MOV
ORVPRS,R3
8EQ
ST4
MOV
'PDR,Rl
R0
CLR
R2
CLR
TYPE
,MSG20
(Rl )'R2
MOVe
R2,R0
MOV
B['T
9S

004500

104401

004504
004506
0045Hl
084511
0e4512
004514
004516
004520
884522
004524

010246
le4403
0el
0e8
01'1e241
006002
086002
0e6082
006002
0427e2

00453"
084534

010237
104420

001502

MOV
R2,QDRV
DRV.RESET

004536
0e4542

032702
001003

020fd00

BIT
8NE

004544
804550

052702
0e0402

028000

BIS
BR

.20000,R2
68

SEQ

00~1i

·<'1:0

~0P

;CLEAR DRIVES PRESENT TABLE

I SELECT A DRIVE
lIS IT IN SYSTEM?
INO
,LOAD DRIVE ADDRESS INTO QDRV
,RESET THE DRIVE
J PROGRAM LOADED FROM AN RK0S
laR IF NOT
,LOADED FROM THIS RK8S ?
18R I f YES
I STORE THE DRIVE NUMBER
,STORE ADDRESS IN KEY TA8LE
,8UMP THE NUMBER OF DRIVES COU~ITER
INEXT DRIVE ADDRESS
,NEXT DRIVE NUMBER
:OONE ALL DRIVES???
,LOOP TILL DONE
,FIND WHICH DRIVES ARE TYPE
,eR Ir NOT DRIVES PRESENT

: GET DRIVE NUIoI8ER

002372

TYPE

,IoISG24
R2,-CSP)

; TYPE THE DRIVE NUMBER

017777

MOV
TYPOS
.8YTE
.BYTE
cr..c
ROP
ROR
ROR
ROR
8IC

p2
R2
R2
R2
U7777'R2

;IoIOVE DRIVE NUMBER TO SITS 15,14,13
,BIT0 TO CARRY
;BIT0 TO BITt5
IBITe TO BIT14
'BIT8 TO SIT13
ICLEAR ANY EXTRANEOUS 8ITS

11 I 1
1114
1115
1116
1117
1118
1119
1128
1121
1122

'211e80,R2

; RESET THE DRIVE VU QORV

: EVEN DRIVE NUMBER???
INO - C['EAR BIT
IMAKE IT AN DOD DRIVE

04-0cr-76
13129 PAGE 24
"'AINOEC-l1-0ZRKH-P'
"'ACYl 1 27 (1096)
GET VHUE fOR SOFTWARE SW Ire fo! l<!:GISTEP
[lZPKHf. Pl1
22-SEP-76 UI57
1123

004552

04270~

820e00

084556
004562
0114571'1

U0277
932777
11111420

174446
080208

174426

0e4572
8e461'1e
804602
004610

012777
104417
U2777
001010

0001'111

174422

8081e0

1744e6

004612
004616

15:1111
104401

0"0200
0"2375

084622
1'10463e

93:1777
001774

000Ue

084632
0e4636

105737
001812

001253

004648
0e4646

932777
001406

000082

0"4650
004654
004656
004668

le4401
le4413
086300
012660

ee2326

0114664
004666
004670
004672

005201
005 3e3
00]]11'0
1044el

511

tU4
1125
1126
1127
1128
1129
11 )e

11)1
11)2

6.,

BtC

,2e800,R2

PlAICE IT AN EVEN DRIVE

MOV
8IT
BEQ

R2,(lRKDA
.200,.RKDS

I SELEI: T THE NEW D~ I VE
IMAI<E SURE DRIVE III IN SYSTEM
lIP' NOT, SKIP THIS TEST

11]3
1134
1115
11)6
1117

lB8
1139
1140
1141
1142
1143
1144

174366

.ll,IRKCS
MOV
CON.RDY
1100,IRKOS
BIT
8NE
II

1152
1153

1154

'2ee, (~1)
,1I!lG25

I YES - SET THE P' TYPE

711

BIT
SEQ

IWAIT FOP HEADS TO STOP

It.

TaTS
BNE

BIT
BEQ

'SW1, (lSWP
9.

ISERUL NO. SW SET?
:NO

TYPE
RDDEC
ASL
MOV

, MSG17
R0
CSP)+,SRNOtR0l

NO·
,TYPE "SR
:READ FROM TTy INPUT
ISAVE SERUL NO FOR THE DPIVE

174272

0e1266
981

801213

BIT

BlIiB
TyPE

U00,tRKDS

rRSTFlT

1145
1146
1147
1148
1149
1150
1151

ISTART A SEEK TO cn
,WAIT ro~ CONTROLLER
: IS IT IN MOTION'l11
INO - J TYPE DRIVE

INC
DEC
BGT
TYPE

R]
U
, .CPLF

MAINr>FC-ll-0ZRKH-F
MACYI127(1006)
04-0CT-76
13129
PAGE 25
OZflKHF,Pll
22_SEP_76 "8157
GET VALUE FOR SOP'TWARE: SWITCH REGISTER

II,
: A.
I AND
: B.
:ARE

116a

1161
1162

1163
1164
1165

1178
1179

118"
llSI
11 ~2
11 q 3

1'1"4676
""47"2
0047"6
01'14712
,,"4716
16"472~

,,"4724
",,471""
"~4732

0"4736

1194

1604742

1185

"<14744
004746

1196
11 A7
1188

1189
119""
1191
1192

1193
1194
1195
1196
1191
1198
1199
123"
t 2,,1
1202
12",3
1204

1205
1106
1207
12,,8
1209

12t"

IF' KTll IS NOT PRESENT,
AND THE PROGRAM IS RUN UNDER XX!:!P, THEN THE TOP 1.5 K IS RESERVED
THE
'MAXBA' IS COMPUTED "LSTAD-60BI'I).
AND THE PROGIUI4 IS NOT RUNNING UNDER XXDP, THEN THE TOP 321<' WORDS
RESERVED F'OR 'MOM' ,LOADER,!':TC. AND THE 'MUBII' IS COMPUTED (eLSTAD-S00),

:2, IF KTll IS PR.E:SENT,
:A.
AND "!ORE THAN 28K MEMORY IS PRESENT, THEN THE MAXIMUM BUS ADDRESS
lIS 147776 (OCTAL'.
: B.
AND LESS THAN 28« IS PRESENT, THEN THE TOP 2K IS RESERVED fOR P.KOP
:MONITOR AND 'MAXBA' IS COM!'UTED.
,fIGURE OUT THE AVAILABLE MEMORY AND 'MAXBA'

1166

1167
t 168
1169
tlH
1111
1172
1113
1174
1175
1176
1177

SEQ 0038

,'MUBA' IS T'1.E HIGHEST BUS ADOflESS (MEMORY) TO WHICH DATA TRANSFERS CAN
I BE ~ONE BY THE PROGRAM.
/'MAXBA' IS FIGURED USING THE FOLLOWING ALGORITHM 1

1155
1 t 56
11 ~7
1159
11 '59

0014737
<112732
012703
005737
1001'122
013700
1320027
0021312
162700
012701

017374
002e!2
1'102054
017432

ST41

017700
001540

I GO SIZE THE MEMORY
: INITIALIZE: POINTERS

SKTII

,KTll AUIloABLE?
:NO
: GET THE LAST BliNK OF MEMORY
:281( OM ;,;oREi
:YES

4$
HSTBK,R0
R0,11540

:BACK U~ 2 «'S (RKOP MONITOR, ETC.)
;AND FORM THE MAXI"IUM BUS ADDRESS
:FOR DATA TRANSFER

2$ :

ASL
INC
BNE:
SUB
BR

35:

MOV

4147176. CR3)

MOV

$LSTAD,R0

:;<T II NOT PRESENT, GET THE LAST
:II VAILABLF. ADDRESS

TST

: ' XXDP' LOADED PROGRAM
:YES
: NO, SAVE THE LAST 320 WORDS

0"4754
004756
004762

012713
000413

147776

""4764

1'113700

~ 1 7676

4$ :

1'104770
1'104774
""4776
005"1'12
1'105004

005737
0011003
16270'"
000402
1&2700

01"0040

5$:

"05010

010013

0rJ5rJ12
1'105016
005024
e"5026
005"32

012712
1"32777
0015t0
104401

001'1002

"06000

Fl1
1$
t2,RI?J
6$

:fOR 28« OR MORE,

THIS IS THE 'MUBA'

8$1

BR
SUS

,.40
8$
1500,P:3
6$
.6000,R0

6$:

!oIOV

Re, (Rl)

7$1

MOV
BIT
BEQ
TYPE
BR
.l<SCIZ

'PGEND, (R2)
.sw06,!lSWR
ST3
,65S
:I TYPE lISCIZ STRING
64S
: : GET OVER THE ASC IZ
<tS><t2>ITYPP; O:TAL BUS ADDRESSES FOR DATA XFER. BETWEEN I

B"IF
SUB

032412
001'111'11'1

P:,SSIZE
'BASEBA, R2
'MAXBl,R3

SUB
MOV

"00040
177772

006300
01152I?J1
001375
1627(10
0"0415

0""4 7 50

JSR
MOV
MOV
TST
BPL
MOV
CMP
BGE

174114

005034

"o0432

; SAVE THE LAST 1.5K OF Mt:;MORY (RKDP
:MONITOR, ETC.)
:SAVE THE P-1AXIMUM BUS ADDRESS(MlXBA) TO
IWHICH aATA TRANSFER CAN BE DONE SAFELY
• 'BASEBA'

005120

04-0CT-76
toIAl'IOEC-ll-DZR«K-F
PAGE 26
MACYlt 27(1006)
13129
GET VALUE FOR sorrwARE SWITCH REGISTER
22-SEP-76 08157
DZRl<lolf. PI I

1212

0<15120
"<15122

1213

0~5124

t 214
1215
1216

005130

1211

~<l5136

1218
1219
1220
1221
1222
1223
1224
1225
12;H,
In1
1228
1229

0<15140
0"5142
005142
005146

IH"

123~

12)9
1240
124 t

IH2
120

1245
1246
1247
1249
1249

005132
; ,67$:
66' :

0;;15136

1217

12H
1212
11H
12H
123S
1216
ln7

011246
1044e2
1114401
000402

111"'5166
005166
005170
1'05112
0fl5114
005176

0052.W
i'1'I5202
005204
0<15204
0<15210
1'105230
''''IS23e
005232
"'''5234
005236
0"5240
005242
1605244
005246
005254
"~5256

0"5264
005270
005272

011346
le4402

MOV
TYPOC
TYPE
BR
.l<SCIZ

SEQ 0039

(R2) ,-(SP)

: 'BASEBA'

,67$
66$

: ITYPE Ascn STRING
: 'GET OVER THE ASCIZ

MOV
Trpoc

(IH)'-(SP)

TYPE
BR
.lIscn

,69$
: ,TyPE: ASCIZ STRING
688
: :GET OVER THE Ascn
<15><12>/LO LIMIT? I

POOCT
MOV
C"'P
aLO
CMP
BHIS
MOV

(SP)+,R0
Re, (R2)
9$
R0, (Fl3)
9$
R0, (Fl2)

TYPE
SR
.Ascn

,71S
:ITYPE ASCZZ STRING
7fl$
: I GET OVER THE ASC IZ
<15><12>/HI LIMIT? I

: 'MAXBA'

9S1
le44~1

1?J05150

1?J00407
; ,698:
68$ :
104412
~12600

020012
101762
11'20013
103360
1?J10012

: CORRECT La LIMIT?
:CORRECT LO LIMIT?
; 'SASEB .. '

l~S :

104401
01'10407

O05212
:: 7lS1
70S:

104412
1'112600
020013
101362
020012
H1I7b0
1'110013
023727
002"03
012737
105737
01'11402
0el'l137

RDOCT
MOV
CMP
8Hl
CMP
BLOS

002054

03747&

037476
001253

"02054

007716

sT3:

161

~OV

(SP)+,R0
Rfl, (R3)
II?JS
R0, (R2)
10$
RI?J, (R3l

:'MAXBl'

CMP
SGE
MOV
TSTB
BEQ
JMP

MAXBA.07476

:81( MEMORY -

137476.MAXBA
FRSTRT
BC1'ST
EXR::SR

: CORRECT HI LIMIT?
: CORRECT La LI"In?

CLOSBER XXDPT

sUT SAVE LOAOEP.
PROGRAM RESURTED AT 2101
NO
YES, S«IP TEST 1 TO 7

04-0CT-76
13: 29
PAGE 27
"'A INDEC-ll-DZRKH-F
MACYII 27(1006)
GET VALUE FOR SOFTWARE SWITCH REGISTER
22-SEP-76 08157
DZRKHF .Pll
1250
1251
1252
1253
12'54
12'55
1256
1257
1258
1259
1260

005276
005304
005312
005320
005326
005332
005334

012737
013737
017737
062731
005331
100002
000131

001306
001264
174160
000002
001580

001476
001500
001502
001476

001116

I FIND OUT THE DRIVE NU"IBER TO BE TESTED.
MOV
HEY,DRVPTR
INITIALIZE PTR TO DRV'
FlCTST:
DRVPRS,DRVCNT
NUMBER OF' DRIVES PRESENT
MOV
@lDRVPTR,QDRV
SAVE DRIVE '(BITS 15-13)
NXTDRVI MOV
INCRMENT PTR TO NXT DRH
ADD
'2,DRVPTR
DONE ALL DRlVES?
DEC
DRVCIIT
BPI.
NO, GO TEST THIS DRIVE
TSTI
ALL DONE, GO TO EXERCISER PART
JMP
EXRCSR

04-0CT-76
13129 PAGE 28
MAPIDEC-II-DZRKH-.
"'ACYl I 27C 10(6)
PERfORM WRITE OF 401 ,;ORDS (1 SECTOR + 1 WORDS)
22-SEP-76 08157
Tl
DZRKHF.PII
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270
1271
1212
1273

1174
1215
1276
1277
1278
1279
1280
1291
12R2
1283
1284
1285
1286
1287
1288
1289
1290
1291
1292
1293
1294
1295
1296
1297
1298

SEQ 0040

:THIS. IS THE BEGINING OF THE CONSTRAINED TESTS AIMED AT CHECKING THE
,DIFFERENT BOUNDARY CONDITIONS or RK11/RK05

: : ***************************************************************
PERFORM WRITE OF 401 WORDS (I sECTOR + 1 WORDS)
,*TEST 1
,THIS TEST PERFORMS A wRITE OF 401 WORDS (1 SECTOR + 1 WORD) AND
ICHECKS If RKDA,RKBA,RKWC INCREMENTED CORRECTLY. WRITING IS DONE
,ON CYLINDER 0, SURFACE 0, SECTORS 0,1 AND 10,11. IT SHOULD tiE
,NOTED THAT THIS IS A BOUNDARY CONDITION TRANSFER. THE VALIDITY
101" THE TRANSFER IS CHECKED IN THE NEXT TE6T.
,DATA PATTERN iiRITTEN IS 1111 11.
:, ** •• *******.***************************************************
UTI I
SCOPE

005340

000334

005342
005346
035350

013701
010102
062702

001502

005354

012737

005362

005362
005364
005366
005370
005376
005402

104416
104420
104416
012137
012703
004737

005406
005410
005414
005416
005422

104101
01114737
104102
004137
104103

005424
005410

004737
104105

005432
005436
005440
005444
005450

032101
001005
062701
062702
000747

000002
0011 til
lSI

111111
000401
006230

032412

2$1

140V
MOV
ADD

QDRV,Rl
Rl,R2
'2, R2

:GET RKDA
;SAVE RKDA
; EXPCTD RKDA AFTER WRITE IS DONE

MOV

U',SLPERR

; RETURN ADDRESS FOR LUPING

CON. RESET
DRV.RESET
CON. RESET
MOV
Ul1111,DBUF
MOV
1401,R3
JSR
PC,DOWRITE
ERROR
JSR
ERROR
JSR
ERROR

101
PC,CHKCS
til 2
PC,CHKDA

020136

JSR
ERROR

PC,CflKWC
11115

000010

BIT
BNE
ADD
ADO
BR

110,Rl
T512
1l2,Rl
116, R2
2.

020020
020034

000012
00,,""16

;CLEAR I4ASK BITS IN POLLING LOGIC
; PATTERN TO BE WRITTEN
;WORD COUNT FOR WRITE
,GO DO WRITE
I INTERRUPT DID NOT OCCUR AFTER WRITE
:CHECK ERROR eIT IN RKCS
IERROR BIT IN RKCS SET ON DOING WRITE
; CHECK IF RKDA INCREMENTED RIGHT
IRKDA DID NOT INCREI4ENT RIGHT AFTER
, A WRITI!: OF 401 WORDS.
;CHECK IF RKWC OVERFLOWED TO 0
I RKWC DID NOT OVERFLOW TO o AftER
IA WRITE OF 401 WORDS.
,SECTORS 10,11 WRITTEN?
; YES
IRKDA TO BE USED NEXT (SEC 10)
,EXPCTD RKDA AFTEI! WR ITE IS DONE
,GO WRITE SEes 10,11

SEQ 1!J041

MAIND';C-ll-DZPKH-F
MACYlI
DZPIOIF.PII
22-SEP-76 08157

27(13136)

1299

WORD WRITE WAS DONE CORRECTLY

SEQ 0042

"***************************************************************
,*TEST 2
READ' CHECK THAT 401 WORD WRITE WAS DONE CORRECTLY
I THIS TEST PERP'ORIIIS A READ orr THE 401 WORDS WRITTEN IN THE
,PREVIOUS TEST AND CHECKS THU THEY WERE CORRECTLY READ.MOREOVER
:IT CHECKS THAT ONLY ONE NON-ZERO WORD (401TH) WAS WRITTEN IN THE
,SECOND SECTOR AND THE REST OP' THE WORDS ARE ALL ZEROS.

1.300
1301

13.,2
1303
1304
1305
1306

04-0CT-76
13129
PAGE 29
T2
REAO , CHECK THAT 401

005452

1'133004

305454
005400
035466
035473
005472

''113701
012737
104416
104420
134416

II ***********************************************.;,0***************
TS12:
SC(,)P!!:

n.,7

IHI8
H0 9
1310

1311
1312
1313
1314
1315
1316
1317

005474

001532
005466

001110
1$1

0"6360

MOV
QDPV,Rl
MOV
U $, SLPERR
CON .RESET
DRV. RESET
CON.IIESEr

JSR

PC,CLHNBUP'

01215500

012703

001000

MOV

005504

0",4737

006350

JSP

PC, DOR!!:AU

005510

1,,4101

ERIIOR

11211

005512
005516

004737
11114102

021'102121

JSR
FRROR

PC, CHK::S
102

01t!5520
005524
fJ05526
005532

012704
010402
12104737
1;!!4H14

12132412

'10v

32012156

MOV
JSR
ERROR

#DBUF, R4
R4,R2
PC,CHKBl
1"'4

005534
00554121
005544
12105546
00550;4
005561:1

012705
022712
00 141 fJ
012737
0lH137
1041'10

177764
111111

005562
005564
005566
0121557121
005574

00521215
001421
005122
020227
001361

005576
00561'10
03561212
00561216
0"'5612

005712
001407
005037
0('14737
11214100

IGET DIIIVE t
: .. DDRESS FOil LUPING ON EROR

:CLEAN liP THE DATA allFFER
: INTO WHICH READ WILL
:BE DONE
: WORD COUNT

IH8
131 9
1}?0
1321

t 322
I ~2 3
1324
1325
1326

1377
1328

1329
1330
1331

102
1333

IH4
IH5

1316

111111

MV
2$ :
001164

305644

CI.lP
BEQ
MOV
JSR
ERR(')R

'-14,R5
'111111, (R2)

: GO DO A READ OF 2 SECTORS
I FIIOM DISK ADDRESS GIVEN IN Rl
:INTERIIUPT DID NOT OCCUR AFTEII
I READ Of' 40i WORDS WAS DONE.
,CHECK IF EIIOR BIT IN RKCS SET?
IEROR aIT IN RKcS SET ON DOING A
, READ OF 401 WORDS.
:STARTING BlIS ADDRESS, INTO WHICH READ
:WAS DONE
,CHECK IF RKBA INCIIEMENTED RIGHT
I RKBA DID NOT INCREMENT RIGHT AFTER READ
:OF 401 WORDS.
,ALLOW 12 EIIIIORS, AT THE MOST
,CORRECT DATA READ?

:YES

iI111111,SREGl
PC. ERINf'l
100

: GET EXPCTD OAT A WORD
: GET ERROR INFORMAT ION
: DATA ERROR OCCURRED WHEN A
: READ OF 401 WORDS I'IAS DONE
:THE DISK ADDRESS FRO'" WHERE
;THE DATA WAS READ INCOIIRECTLY
: IS GIVEN IN THE ERROR MESSAGE

1317

Ins

1339
1340
1341
1342
1343
1344
134';
1340
1347
1348
1349
13<;0
1351
130;2
130;1
13<;4

3$:
033414

461
12101164
31215b44

~AI'lDEC-l I-DZRKIi-F
MACYll
22-SI':P-76 38:57
DZRKHF. Pll

130;5
1356
1357
130;8
130;9
136 0
1361
1362
1363
1364
1365
1366
1 ~6 7
136Sl
1 ~69
1 37~
1371
1372
13H
1374
1375
1376

005614
"'''5616
005620
005622
005626

13~2

IJq4
1J~r;

1386
1387
t 3~8

13q9
1 ~9'"
1391
1392
1393
1394

: REPORT 12 ERORS AT MOST

(R2)+
R2, .DBUF+1002

: HiCREMENT POINTEII
;CHECKED ALL 401 WOIIDS?

2$
(R2)

5$
SREG1
PC,EPINF1
100

; CHECK THAT IIEST OF 377 WORDS
;ARE ALL 0'S
I GET EXPCTD OAT A WORD (0)
:GEr ERIIOR INFO
:DATA EIIROR.
IN A PREVIOUS
ITEST A WR!T! OF 401 WORDS
I (! Se:CTOR + 1 WDRD) WAS DONE

04-0C1-76
13:29
PAGE 30
T2
IIEAO Ii. CHECK THAT 401 WORD WRITE WAS DONE CORRECTLY

0"5630
005634
005636
005642

0"5205

0d1404

5$1

005722
020227
01:J1363

034412

0327~1

00121~t0

1210Hl30
062701
000711

65:

;REPORT 12 ERORS AT MOST

C~lP

RS
6S
(R2) +
R2, 'DBUf'+2000

BNE

;II' NOT GO BAK

BIT

H0,Rl
ISl3
U2,R1
1$

;WERE SECTORS 10.11 READ
:YES
1 P'RO~ NEW RKDA, SEC 10
1 GO BACK AND READ FROM SECS 10.1 1

INC
BEQ
TST

BNE
lDD
BR

1210~0! 2

:ALL WORDS CHECKED?

:ERINn
: AT THF.: TI"E OF ENfRn
:112 CONTAINS ERRORI'lG BUS .. DOIIESS (wHERE DATA ERROR OCCURREO).
,(R2) CONTAINS B"D DATA THAT iIIAS READ BACK FROM DISK.
:RI CONTAINS DISK ADDRESS WHERE READ BEGAN,

137~

I 3R 3

1ST
BEQ
CLR
JSR
ERROR

: NOW THESE 2 SECTOIIS WERE
: READ IN THE SECOND SECTOR
: THE FIRST WOIID IS A NON-ZERO
; WORD (WHICH WAS ",RITTEN BEFORE)
:THE REST OF 377 WORD
; SHOULD BE ALL ZEROS, IF
:THE WRITE WAS DONE CORRECTLY
:(& READ IS DONE CORRECTLY)

1371
tn9
13Rd
I 3R 1

27(1006)

INC
BEQ
TST
CMf'
eNE

0165644
005650
1Il0r;654
00:15656
005662
005664
0"5b66
00567"
\'105674
005676
0;!!5702
005""4
@05710
1111115714

010237
011237
010146
"120227
003001
00531b
005216
032716
00141'15
032716
0V1141"2
062716
012637
00021217

0"'1162
001166

ERINf'l1

333410

1$1

003010
000004
00001214
001170

2$ :

MOV
MOV
MOV
CMP
BGT
DEC
I~C

BIT
BEQ
BIT
BgQ
ADD
MaV
RTS

p2, SIIEG9
(R2l,SREG2
Rl,-(SP)
R2,IDBUF+7'7b

18
(SP)
(SI»
.10, (SP)

2S
14, (SP)
2S
14, (SP)
(SP)+,SREGl
PC

;GET BUS ADDIIESS OF DATA ERROR
: GET BAD DATA WORD (READ)
:FIGURE OUT THE DISK ADDRESS
: WHERE DATA ERROR OCClIRRED

SEQ 0043

~UNOEC·Il-DZItJ(~.r

'HIIKHF ,I'll

MlCYI1 2'!Hl<1t61

'1-6ll:P-7t. 011151

U-lCT-76
1l1:n PlGl U
PEPrORM WRIT! or 12 UCTOItS + 1 WOIID

" ** ••• **0** •••••••••••••••••• * •••••••••••••••• •••• ••••••••••••••
,*T€ST 3
PEIIFORM WRITE or 12 SECTORS + 1 1010110

1)95
1396
t397
1398
1399

,THIS TUt CHECKS rOfl ~NOTHER 80UNDARY CONDITION,
IT
,PERrORMS ~ WRITE of' 12 SECTORS • 1 WORD,
PKDA "~KBA,
I RKWC: ARE eHECKED TO SEE: IF THn ARE INC:REMENTED CORRECTLY.
,VALIDIrY or THE DATA WRITTEN IS CHECKED IN THE NEXT
OAT A IS WRITTEN ON SECTO"B 0-11, BURP'ACE "
I TEU,
,CYLINDF.R 0 (6001T'" WOR,) ON SECTOR 0, SURFACE 1, CYL 0),
I ALSO ON SECTORS 0-11, SURrACE 1 (6001TH WORD ON SECTOR
,0, CYL 1)

140"
1401
1482

140]
1494
1405
1406
1407

1408
1409
1410

1411
1412
14\1

1414
1415
1416
1417
!. 41 8
1419
1420
1421
1422
1.23

1424
1425
1426
1427

, , •••• *.............*........... *•• ***.*** ••••• ****.** •• *•• *** •• **.
TSTl:

001'1004

El05716
005720
005724
005732
005734
0"'5740
005744
005746
005750

012737
01011'12
062702
012703
104416
104420
104416

005752

012737

044444

005760

004737

006230

011701

001502
005744
000021
006001
lSI

005764

104lal

005766
005772
005774
0060"0

004737
10411'12

020020

"947)7

020034

SCOPE
MaV
QDRV,Rl
MOV
'11, ILPERR
MOV
Pl,R2
ADO
'21,112
MOV
.6001,Rl
CON.RESET
DRV.RESET
CON ,RESET
.,OV

il44444,DBUF

'PATTERN TO BE WRITTEN

JSII

PC,OOWRITE

:GO 00 WRITE

ERROR

101

JSR
ERflOR
JSII
ERIIOR

PC, CHKCS
102
PC ,CHKDA

JSII
ERROR
BIT
8NE
MOV
ADO
MOV
BR

PC, CHKWC

; InERUPT DID NOT OCCUR ON
1COMPL!!:TION or WRITE
'CHECK IF EROf! BIT IN RKCS SET
IEROII BIT IN RKCS SET ON DOING WRITE
ICHECK l ' RKDA INCREMENTED RIGHT
; RKDA DID NOT INCREMENT CORflECTLY
,AFTER A WRITE 0' 6001 (OCTAL) WORDS.
;(12 SECTORS. 1)
,CHECK IF flKWC OVERFLOWED TO 0
i RKWC DID NOT OVERFLOW TO 0
,-'RlTTEN ON SURFACE 17
IYES

032412

104103

103

1428
1429
14J0

1431
1412

1433
14]4

14)5
1436

~06"fJ2

006006
006010
006014
006016
006020
086024
006010

904737
104105
032701
001006
010201
062702
012103
\'100745

820136
0(110020

000020
005401

IGET DRIVE.
I LUP ON EROR TO ' u'

105
'20, Rl
TST4
R2,Rl
.,0,112
'5401,R3

;SURFACE 1
I WORD COUNT
IGO WRITE SURFACE

:.;~[NDEC-I1-DZRKH-r

!lZRIO!f ,Pt 1

MACHI 27(1006)
04-0CT-76
13129 HGE 32
22-SEP-H 1U15?
T4
REAl) , CHECK THAT 6001

I '* •• ** ••• ** ••• ** ••• ** •• **.*.* •••••••••• ***** •• *.* ••• ***** •••• ***

1tl7

,.TEn 4

t4~9

H19
1440

1441
1442

1441
1414
1445
1446
1447

1448
1449
14,0
1451
14'52
1453

READ' CHECI( THAT 6001 WORD WRITE WIIS DONE COflRCTLI
,THIS TEST CH!;CKS TH~T THE 6001-wORD WRITE THAT WAS DONE IN THE
,PRfVIOUS TEST WAS CORRECT, ESPECIALLY THE LAST 401 WORDS. THE
,f'lRST 1010110 or THE SECTOR( IN WHICH THE 6001 TH WORD) 18 IIRITUN
I IS THE ONLY NON-ZERO I>ORO IN THAT SECTOR, THE REST 377 IIOROS ARE
,ALL ZEROS, lP' THE Will TlHG WAS DONE CORRECTLY.

" * •••• " ••••••• *••••••••• ** t* ......... *.* •• *** •• * •• *••••• *•• *••••••
006040
"06044
0a61tl52
986054
006056

000004
013701
062701
0127)7
10441&
h!4420
10441 &

006060

004737

006360

JSR

006064

012703

001000

MOV

006070
006074

004737
104101

006350

006076
006192
006194
986110
006112
006116
006120
006124
006130
006132
006140
006144

0047)7
104102
012704
010402
004737
\04104
012705

020020

006032
006034

TST4:
001502
90001 3
9011052

001110
lSI

SCOPE
140V
QORV, Rl
ADD
113, Rl
"'OV
_U,.LPto:RR
CON.RESET
DRV, RESET
CON,RESET

,CLEAN UP THE BurrER INTO WHICH
,READ WILL IE ~ONE
ISET UP RKO~
,SECTOR 11, SURrAC".:
:WORD COUNT

JSR
EIIROR

PC:,DOPUO
101
PC, CHKC:S
\Ill 2
• D8Uf', 114

1114100

JSR
ERROR
MOV
MOV
JSR
ERROP
MOV
CMP
8£Q
MOV
JSR
ERROR

IGO READ 1000 WORDS (2 SECS)
,INTERRUPT oro NOT OCCUR AFTER
I CO",PLETION or READ
'CHECK IF ER~R BIT IN RKCS SET
I EROR (RKCS) SET ON DOING RE_D
,STARTING BA or D"TA BurER

005205
001421
005722
020227
001361
0057t 2

BEQ

TST
CliP
8HE
TST

(R2)+
R2, 'OBur. 1 ~02

IINCIt!:MENT POINTER TO BA
ICHECKED
WORD!?

(R'll

CLR
.]SR

5.
'RtGI
P:, ~:l=I.rJ4fl

:CHECK THAT THE REMAINTNG 377
,WORDS Of THE LAST SECTOR (SEC '0)
:WERE READ BACK AS ""S

r.RROP

! ~z

IDATA ERROR.
IF WRITE
lIN THE PREVIOUS TEst,
10F' THE DATA at.jC~ (12
l s!,':;~'r.: CCNTU'! O"LY l

1455

1460

146\
1462

1463
1464
1465

1466
1467

1469
1469

1470
1471
1472
1473
1474
1475

1471'>
1477
1478
1479
1490
1481
14112

1483
1484
1495
1486
1487
1498
lug

1490
1191
\492

006146
001'150
006152
006154

006160
006162
906164
006166
006172

fH'61 Hi

: GET CRIVE •
,DISK ADDRESS rROM WHERE READ IS DONE

PC, CLEANBur

1454
1456
1457
1458
1459

"ORO WRIl'E WAS DONE COIIRCTLY

032412
920056

177764

02271 2

044444

001410
012737
004737

044444
0056H

INC

BEQ

001.07
00'5037

001164

iHl.p3~

il;~5"'t4

\04 t?!~

2$1

114,112
104

I RK8A INCREMENTED CORRECTLl?
I RKBA DID NOT INCREMENT CORRECTLY

'-14, R5
BU44, (R2)

IDUA WORD OK?

PC,:::HICI3I1

H
H4444,SREGI

1':, E'RINF"l
1 all

,NO, GET EXPCTD DATA iiORD
:GET, OTHER ERROR INf'O
I D~ TA ERROR.
A WR ITE or 6001
I WORDS 02 SECS + 1 WORD) WAS DONE
,IN ~ PREVIOUS TEST.
TH!:: LAST TWO
,SECTORS (LAST 401 (I10RD8) WEn RUD
IBACI(,
THIS ERROR !NDICATES THAT
: SEC 111 (LAST SUT ONE SECTOR) GAVE
I BAD DUA WORDS
,REPORT 12 ERORS AT 140ST

lolA! DONE CORRECTLY
THE LUT SECTO'1
UCS + 1 WOR.Dl
ernST) "fC'RO

SEQ 01045

04-0CT-76
13129 PAGE 33
MACnl 27CtiH16)
MA HI"EC-I1-DZRKH-F
PEAD , CHECK THAT 6IOlfl)!
22-5Ep-16 08:57
14
DZIlKI!F'. I'll
1493
1494
1495
1496
1497
1499
1499
150'"
1501
1502
1501
1504
150S
1506

006200
906202
006204
006206
006212

005205
001404
005722
020227
001363

006214
006220
006222
1606226

032701
001070
062701
000711

581
034412
000020

6$1

000020

UC
BEQ
TST
CMp
eN£:
BIT
BNE
ADD
BR

WORO

~RITE

WAS DONE CORR::T!.'t

SEQ 0046

I AS NON-ZERO. THE REST )77 SHOULD BE
IALL 0'S,
THIS ERROR II'IDICArES THAT
,THE SOME OF ]?7 WORDS
I WERE NOT CORRECT
: PEPORT 12 ERORS AT MOST

U
(112) +
R2,'DBUF+2000

4S
.20.ll1
T5T5
'20. Rl

: INCREMENT POINTER
,CHECHO ALL WORDS?
INO
; DONE CHECKING FOR SURFACE
'YES
J SO SET UP FOR BURnCE 1
;GO BACK" READ SURF'ACE 1

04-0CT-76
13: 29
PAGE 34
lolA I N"EC-II-DZRKH-f
MAcnl 27 (1006)
DZRKtlF. I'll
22-5£1'-76 08157
T4
READ " CHECK THAT 6001 ;.JOIIO WRITE WAS DONE CORRCTL't
;DOWRITE
: TkIS ROUTINE PERFORMS A ¥illITE ON A DISK. AT THE TIME OF ENTRY, Rl CONTAINS
:DISK AODRESS (RKDA) WHERE WRITE IS TO BE DONE, R3 CONTAINS THE WORO COUNT
: (RKWC1, 'OBUF' CONTAINS THE DATA TO BE WRITTEN. NOTE leA BIT IS SET,

1507
1508
1509
1510
1511
1512

:WIlITE IS DONE IN INTERRUPT MODE. IF THE INTERRUPT DOES NOT OCCUR WITHIN
: A CERTAIN TIME, RETURN IS MADE TO THE ERROR MESSAGE FOLLOWING THE 'JSR'
:CALL. IF THE INTERRUPT OCCURS, RETURN ADDRESS IS ADJUSTED TO SKIP OVER
:THE EIlROR MESSAGE.

, 513
1514
1515
t 5li'
t 517
151 q
1519
1520
1521
1522
1523
1524
1525
1'i26
152 7
152 S
10;29
15 )0
15 )\
15 )2
1')31
1'51 4
15]5
15)6
1537
15) 8
1519
154'"

1'06230
"'06236
006242
006246
006252
006260
0166266
"'06270
e"'6274
00627b
006304
O",6310
006316
006322

012777
0110177
01\0377
005477
1'112777
012777
005046
012746
000002
052717
005037
1'12737
005237
1'101375

004002
172766
172756
172752
e32412
006340

006324
006330

005237
(lI0D'2

001470

01cl6332
e06336

0114737
0002il7

02174e

0106340
006342
1106346

022626
1'62716
0\!J0207

t 72764

172746
172752

0e6276
00e101
01H466
177760
001466

172716
001470

DOWRITEI MOV
Doxn:R: MOV
MOV
NEG
MOV
MOV
CLR
MOV
RTI
lS:
BIS
CLR
MOV
2$1
INC
SNE

lSI
il000e2

# 4002, (iRKCS
Rl,(ilRKDA
R3.IiRKWC
(ilRKwC

: WRITE, IBA
: ADDRESS THE DRIVE
:XFER THIS. OF WORDS

ID!!lJF,IiIRKB~

:USE
:SET
:NEW
:SET

BS,IIRKVEC
-(SP)
U$,-(Sp)
U01,I!IRKCS
CICNT
'-20, crCNTI
CICNT

THIS BUS ADDRESS
UP INTERRUPT VECTOR
PSW
NEW PC TO STACK **********

:SET IDE. GO (WRITE,IBAI READ)

PlAIT

rOR INTERRUPT

.-4
CIC~Tl

INC
BNE

JSR
R1'S

PC, GT4PG
PC

:TIMED OUT, INTERRUPT DID NOT OCCUR
I RETURN TO THE EROR MEASGE

C"IP
ADD
RTS

(51')., (SP)+
PC

: RESTORE STACK POINTER
: ADJUST RETURN ADDRESS TO SKIP OVER
: EROR MESAGE ON RETURN

12, (sp)

SEQ 0047

IoIUNOEC-1l-0ZRKH-'
MACYll 27( 1006)
04-0CT-76
13129
PAGE 3S
DZRKHF,Pll
22-SEP-76 08157
T4
READ' CHECK THAT 6001
1541
1542
1543
1544
1545
1546
1547
1548
1549
1550
1551
1552
1553
1554
1555
1556
1557
15')S
1559
1560
1561
1562
1563
1564
1565
1566

006350
006356

012777
000727

000004

172644

Ibl1l5
161116
1607
161118
1609
1610
16tl
1 b12
1613
1614
1615
1616
lbt7
161 S
1619
1620
1621
1622

DOREAD:

MOV
SR

U,IIRKCS
DOXFER

:READ

:CLEANBUF
:CLEANS OUT THE DATA BUFFER (ALL WORDS WRITTEN TO 177777) INTO WHICH THE
,READ FROM THE DISK WILL BE DONE,
DATA SUFFER STARTS AT 'DBUF'AND IS
: 1000 (OCTAL) WORDS LONG.
0i16360
006364
006370
006374

012702
012705
012725
005202

006376
006400

001374
111011121117

177000
032412
022222

CLEANSU,.U'OV
ICOV
lSI
MOV
INC

BNE
RTS

'-1000,R2
'D8UF,R5
122222, (R5)+
R2

'SET COUNT
, INITIALIZE SA
: DONE ALL WORDS?
,BUFFER STARTING AT (PHYSICAL) 8US
:ADDRESS 177000 (177000-200776)

: YES RETURN

04-0CT-76
13129
PAGE 36
T5
CHECK DATA TRANSFEp APOUND 32K BOUNDARY
:, ***************************************************************
:*TEST 5
CHECK DATA TRANSFER AROUND 32K BOUNDARY
,*THIS TEST PERFORME! A WRITE
2 SECTOIIS ON THE DISK FROM MEMORY
,*LOCATIONS AROUND THE 32K BOUNDARY,
SECTORS 0,1, CYL 0, SURFACE
,*0 ARE WRITTEN.
PHYSICAL SUS ADDRESSES FOR THE DATA BUFFER:
:* 177000 TO 200776 I.E. 02K-256) TO 02K+255)

00641112
006404
11106412
006414
01'16420
006426
006434

fl00004
11123727
103002
1111110137
012737
012737
012737

017700

002000

11106764
11101600
002000
1110011101

172352
172354
177572

15~7

1598
1589
159111
15 tH
1592
1593
1594
1595
1596
1597
1598
\599
If' 00
161111
161112
Ibl1l3
1604

SEQ 0048

:READ IS DONE IN INTERRUPT "ODE. IF THE INTERRUPT ODES NOT OCCUR WITHIN
: A CERTAIN TIME, RETURN IS MADE TO THE ERROR MESSAGE FOLLOWING THE 'JSR'
,CALL. IF THE INTERRUPT OCCURS AS EXPECTED, RETURN ADDIlESS IS ADJUSTED
:TO SKIP OVER THE ERROR MESSAGE,

MAINOEC-U-oZRKH-F
MACYU 27(101116)
DZRKHP'.Pll
22-SEP-7608157
\567
1'568
1569
1570
1571
1572
1'573
1574
1'575
1576
15'77
1578
1579
1580
1581
1582
1593
\584
1595
1586

WORD WRITE WAS DONE CORRCTLY

:THIS ROUTINE PERFORMS A READ ON THE OISK,AT THE TIME OF ENTRY Rl CONTAINS
ITHE DISK ADDRESS FROM WHERE THE READ IS TO BE DONE, R3 CONTAINS THE WORD
:COU~T (RKWC), READ WILL BE DONE INTO DATA SUFFER AT 'oeur',

,.CHECKING IS DONE TO SEE IF MEX SITS, RKBA, RKDA, RKWC INCREMENTED
,*CORRECTLY, THEN DATA BUFFER IS CLEARED OUT AND A READ IS DONE
,*INTO IT.
A CHECI< IS "lADE TO SEE IF THE CORRECT DATA WAS RECIEVED.
,*ONLY 12 DATA ERRORS ARE REPORTED.

* .... **********.*.**********************************************
TST5:
SCOPE
ILSTBK,12000
CMP
,33K OR MORE OF MEMORY?
BHIS
18
HES
,IF' NOT, DONT 00 THIS TEST
JMP
TST6
MOV
H61110,UI<IPAR5
:MAP 29-32K THR.U PAR 5
1$:
MOV
t2000,UKIPAR6
:MAP 32-361< THRU PAR 6
MOV
11,II.SR0
,TURN ON MEMORY MANAGEMENT
'SET UP DATA BUFFER (11111110 OCTAL WORDS LONG) FOR WRITING TWO SECTORS
ION THE DISK.
THE TRANSFER IS DONE AROUND THE 32K BOUNDARY FROM
,BUS ADDRESS (PHYSICAL) 177000 TO 200776, (32K-256) TO (32+256)

006442
006450
006452

012737
104416
104420

006450

0111110

:DATA IN THE BUFFER IS A COUNT PATTERN STARTING FROM 1 FOR THE FIRST
,WORD TO (000 FOR THE LAST WORD.
,PHYStCIIL BUFFER ADDRESS.
177000 TO
21110776 021<-256 TO 32K+256)
MOV
US,SLPERR
:LUP TO 2. ON EROR (SW 9)
2S1
CON.RESET
DRV. RESET

006454

IH270111

000001

MOV

11 ,R0

1110646111
01116464
006466
006470
01116474
01116476
11106504
006512
006520
006526

11112701
01011121
00521110
020027
001373
11113777
012777
012777
11112777
104417

137000

MOV
MOV
INC
COoIP

I1n00111,RI
R0,(R1)+
R0
R0,11001

006530
01116534

004737
104102

11106536

01114737

006542

lSI
"1111001

'INITIALIZE DATA PATTERN TO BE
,WRITTEN
,SA TO START PHYSICAL ADDRESS-17?000
I WRITE COUNT PATTERN (1-1000)
,INTO DATA BUFrER (PHYS ADORES
1171000 TO 200776)

BN!

MOV
MOV
MOV
MOV
CON. RO¥

QORV, lIRKoA
• -1000, IIRKWC
117701110,IIRKBI!
H,IIRKCS

,SUR 0, SEC 0, CYL 0
;WORD COUNT -2 SECS
I BUS ADDRESS,
,WRITE,GO
,WAtT FOR C~ITROL ROY

020020

JSR
ERROR

PC,CHK:S
11112

: ANY EROR IN RKCS?
,'ERR' SET IN RKCS, ON DOING A
,WRITE OF SECTORS (0,1) rROM
,(PHYSICAL) BUS ADDRESSS 177000
1077000 TO 20077&)

21221112

JSR

PC, CHKMEX

01111502
177000
17701110
00111003

172524
172512
172506

172474

: CHECK THAT RKBA OVERFLOWED INTO
,EXTENDED MEM. BIT (0) or RKCS (BIT 4)
:EX MEM BIT 0 SET?
IGET RKCS,ER,DS,DA
;/oIEX SITS INCORRECT, BIT 4 or RKCS
I ("'EX BIT e) SHOU!..O ~IWE SET

SEQ 0049

MAINOEC-I1-0ZRKH-F'
MACYll 27(11606)
04-0::T-76
13129
PAGE 37
DZRKHF'.Pll
22-5E;>-7;; 166:57
'is
CHECK DATA 'iRr.N5FER AROUND 32K BOUNDARY
162]
1624

1625
1626
1627
1628
1 b29
16116

006544
0166550
0166554
006560

0127163
012704
0:il4737
1 :il41164

16010160
177000

006562

01HI1I2
1662702
004737

0015162
16000162
020034

021605b

MOV
MOV
J5R
ERROR

J1300, R3
1177161616,R4
PC,CHKBA
1164

MOV
ADD
JSR
ERROR

QDRV,R2
#2, R2
pC,CHKDA

16H
1632

1633
1634
16J5
1616

","656b
"'06572
006576

1041~3

HI)

1637
1638
1639
1640
004137
1041.05

1641
1642

020136

:CHECK IF RKWC OVERFLOWED CORRECTLY
IRKWC DID NOT OVERFLOW TO 16 ON
:DOING A WRITE OF 2 SECTORS FROM
:BA :a 17700k'l

JSR
ERROR

1643
1644
1645
1 a46
1"47

;NOW, RE:'O IS DONE OF THE DATA
ITHAT WAS WRITTEN TO SEE IF IT
:CAN BE READ CORRECTLY

1648
1 649
1050
1651
1 052

SEQ 33516

I AFTER RKBA OVERFLOVIED ON DOING
; A TRANSFER OF 2 SECTORS FROM BUS
; ADDRESS (PHYSICAL) STARTING AT 177161616
; WORD COUNT
,STARTING BUS ADDRESS
,CHECK IF RKBA INCREMENTED CORRECTLY
; I RKSA DID NOT INCREMENT CORRECTLY
; AFTER WRITE IF 2 SECTORS FROM A DATA
;BUFFER STARTING AT (PHYSICAL) BUS
: ADDRESS (17701616-2016776)
: GET EXPECTED
: DISK ADDRESS
:CHECK IF RKDA INCREMENTED CORRECTLY
: RKOA INCREMENTED VlRONGLY AFTER
: A WROTE OF 2 SECTOR (16,1) FROM
:DATA BUFFER STARTING AT BUS
:ADDRESS (PHYSICAL) 17716160.

006b00
0166614
1606616

012737
104416
104420

0166620
006624

012701
005021
0216127
001374

006614

0011116
4$1

MOV
US, $LpERR
CON. RESET
DRV. RESET

:LUP TO 4$ ON EROR (SW 9)

1053
1654
1655
16'56
lb57

016662b
006632

1371600
5$1
141000

MOV
CLR
CMP
BNE

f1370160,Rl
(Rl)+
Rl, U41000
5$

: CLEAR THE 116160-WORD DATA
:BUFFER (PA 1771600 TO 200776)

I ALL DONE?

160;8
1659

; foIOW, READ RACK INTO THE
: SAME BUFFER 2 SECTORS
: WRITTEN PREVIOUSLY

16616
1061
1662

1663
1664

1665
1666

0066)4
0i!16642
"'06650
006656

013777
012777
012777
012777

0161502
1770016
17716160
"'1616005

172366
172354
172350
172336

MOV
"IOV
MOV
MOV

OORV, IOlRKDA
t-l:il00,ilRKWC
'1770160dlRKBA
#5,IOlRK:::S

:ADDRESS THE DRIVE
0,
: READ 2 SECTORS
: INTO THIS RUS ADDRESS
:READ, GO

SEC 0,

1':, CHKCS

: ANY ERROR IN RKCS?
:ERROR BIT SET IN RKCS ON DOING
:11 READ OF 2 SECTORS (16,1), CYL 16,
:SUR 16, I'ITO DA.TA BUFFER STARTING
: AT BUS ADDRESS 177001/10, NOTE AFTER
: 1777776, RKBA WILL OVERFLOW (16)
: INTO MEX BITS (BIT 4) OF R!(CS.
IIF THE ENTIRE TRANSFER (1000 WORD)
:wA5 DONE RKB1\ WILL CONTAIN 116160

1667

1668
1669

0"'6664

\1'14417

16716

006666
006672

1",14737
104102

1671

"IA IT FOR CNTROL ROY

CON.RDY
020020

JSR
ERR'lR

102

1672
11;73

1674
1675
1676
1671

1678

lolA I~DEC-11-DZRKH·F'
MACHI 27 (11!l06)
22-SEP-76 169:57
DZRKHF.PII
1679
169'"
1691
16!!2
16B]
16''14
16q5
1 "'86
161;17
1688
1699
1690
11;91
1692
16'H
1091
109'5
1696
1697
1698
1699
1730
17al
\ 7~2
\7iH
1704
17;15

t7""

\707
17:il8
11.:19
1110

104-0::T-76
13:29
PAGE 38
TS
CHECK OATil TRANSFER AROUND 321( BOUNDARY
:AND BIT 4, OF RKCS (MEX)

006614
01!l6701!l

312705
161271!l2

111764
137000

006104

012701

16016001

00671'"
1006712
1-I:il67 I 4
00671 "
006720

lil20112
031414
005705
001420
0<1'52105

0~6 722

010137

0!:l6126
16166732

6$ :

/oIOV
MOV

1-14,R5
# 137:il00,R2

SEO 16051
WILL BE SET.

MOV

# 1, Rl

:REPORT ONLY 12 ERRORS.
:STARTIflTG ADDRESS OF BUFFER
: (PA;I770160)
: INITIALIZE DATA PATTERN

C"P
BEO
TST
BEQ
INC

Rl,(R2)

ICORRECT DATA WORD RECVD?

01-:1162

MOV

Rl, $REG0

; GET EXPCTED DATA WORD

1611237
1341'17

001164

MOV
ERROR

(R2), $REGI
107

:GET DATA WORD RECVD
:DATA COMPARISON ERROR ON DOING A
: READ OF 2 SECTORS (0,t, CYL 16, SURFACE 0)
: INTO DATA BUFFER (PHYSICAL ADDRESS
: 177000 TO 200776)

0i!16734
"H16740

104421
1'1"4737

1602214
"'17702

TYPMSG
JSR

, MSG13
PC, TYPOBO

:TYPE 'PHYSICAL BUS ADDRESS'
:TYPE THE 6 DIGIT PHYSICAL BUS ADDRESS
: WHERE THE DATA ERROR OCCURRED.

006744
1606750
011167'i2
00670;"

062702
005201
k'l22701
001354

ADO
INC

#2, R2

: INCREMENT POINTER TO BA

I'll

1606760

005037

7$ I

01i!0002

8$ 1

C.,p

11011601

177572

9$ :

: REPORT THIS ERROR?

9$
R5

1l001,Rl

BNE

CLR

iI.SR16

:COUNT ERORS

:CHECKED THE ENTIRE BUFFER?

:**OFF
:TURN OFf' MEMORY MANAGEMENT

\lUNOEC-U-O!I!l(H-,.
"'ACYlI 2Hlj1106l
04-0CT-16
13129
PAGE 39
)l.R~ IIF'. Pll
2 ~-SEP-;r~ 08157
16
CHECf( DATA TRANSP'EI'l FflO"l 281' TO 12K

1711
171 2
1113

, ,*.*.************ .. ** .... **** ********* .******** ******** ****** .... ****
,*TEST 6
CHECK OAU TRANSFEfI FROM 28K TO 321<
I *THIS TEST DOES A WRITE OF 4K WORDS FP.OM A BUFFER LOCATED AT 28K
,*THEN THE DATA IS READ BACK INTO THE SAME BUFFER(281(-1210 AND IS
,*CHECKED TO SEE IF IT IS CORRECT.
NOTE THAT THE BUFFER IS FILLE,'
,*WITH ALL I'S B!FOflE DOING THE READ.

1714

t 7\ 5
1716
1717
1718
1719
1720

0"6764

000004

1721
1722
1723
1724
1725
1726

006766
1606774
006776
"07002
"070H1

1523127
103002
000137
012737
012737

I*TliE. WRITE IS DONE STARTING "T CYLINDER 0, SECTOR 0, SURFACE 0,
, , ***************************************************************
TST61
SCOPE
0177"",
007320
001600
"00001

001740

172352
177572

1$1

C"'P
8HIS
JIIP
MOV
MOV

'LSTBI<,U740

U
TST7
11500,UKIPAR5
11,IUSR0

,32K OR MORE OF MEMORY?
IYES
: IF NOT, DONT DO THIS TEST
,MAP 29-3211 THRU PAR 5
,TURN ON MEM MANAGEMENT

1727

1728

'WRITE A COUNT PATTERN (1-10000) INTO DATA BUFFER (PHYSICAL ADDRESS
,160300-177776).
THIS DATA BUFrER WILL BE USto rOR WRITING ON THE DISK.

1729

1710
1711

1712
1111
17]4

1715
1736
1717
1738
1739

0,,7024

~0'050

012737
104416
104420
012700
012701
010"21
0"'5200
0215027
001373

00'7052
007060
007066
007074

011777
012777
012777
012777

001502
17"00!!
160000
00f1l003

007016
"07024
0"7"26
0"'i30
"07034
007040
00N42
007044

"01110

211
000001
1200""
010081

MOV
'2','LPERR
CON. RESET
DRV.RESET
MOV
'1,R0
MOV
'120""",Rl
MOV
R0'(Rl)+
INC
110
CMP
R0,H0001
BNE
3S

, LUP TO 2. ON EROR

,INITIALIZE DUA PATTERN TO 8E WPITTEN
: INITIALIZE SA (PAaI60"00) 28IC
,WRITE COUNT PATTERNS (t -10000)
, INTO DATA BUFFER (PA 160000 TO
:177776, 28K-32K)

1740

1741
1742

1743
1144

173150
172136
172132
172120

MOV
MOV
MOV
MOV

QORV,~RKDA

PC,CHI(CS
102

, ANY ERROR IN RKCS?
,'ERR' 8IT SET IN RKCS ON DOING
lA WRITE Of' 4K WORDS FROM 160000
,(2911-32K).
DISK WRITE BEGAN ON
ISEC 0, CYL 0, SUR 0.
IF ALL 4K
: WORDS WERE WRITTEN RK8A SHOULD OVEPF'LOW
,AND CONTAIN 0.
BIT 4 OF RKCS
:(HEX BIT) SHOULD BE 1
ICHECK IF RK8A OVERFLO~ED AND MEX
18ITS (4) IN RKCS WAS SET.
: I MEX 8IT 4 NOT SET AFTER OVERLFOW GlI"
;R~BA.
WRITE
4K WORDS (28K-)2K) "A5

.-100"011!IRKWC
_160000, 'Rf(sA
I3dlRKCS

'WRITE ON SEC 0,
0, SURI
;4K WORDS
:FROM THIS SUS ADDRESS
I WRITE, GO

1745
1146

01/17102

104417

1!l167104
1!l1ll711"

004737
104102

02002'"

J5R
ERROR

1757
1758

007112

904737

020112

JSP

PC,CHKMEX

1759

007116

104106

[RflOIl

106

1747
1748
1749
1750
1751

; WA IT rOR CONTROL READY

1752
1751
1754

1755
1756

t 760

1761
1762
1764
1765

1763

1'1111130
"1!l7124
151571)0

1766

007134

IH 2703
01271/)4
",,4737
104104

MOV
MOV
JSP
ERPOR

0"'0""
160000
"215056

110"0",R3
116000",R4
PC,CHf(BA
104

[)O~jE.

: RETURN HERE IF NO ERROR
:WORD COUNT
I STARTING BUS ADDRESS
: CHECK IF RKBA INCREIoIENTED COflREC't'L Y
, RKBA DID NOT OVERFLOW TO AP'TER A WR I TE 1F 4 i(

,,4-(',:T-76
13129 PAG! 40
MACY11 27(101\6)
il-SEP-H 08157
T6
CHECK DUA TPANSrEil rp~\4 281\: TO 32K

~HNOE::·II-DZIlI(H-F

DZRKHP", \)11

1769

""'1ll1
007142

0i!4737
104105

0201311

1770
1771
1772
1773
1714
1775
1776
1777
1178
1779

001144
"07152
007154

012737
111'4416
104420

007152

O07156
"'''7162
0"7164
007170

012701
005021
022701
1!101374

0117 172
8012180
"07206

013777
1812777
1'112777

001502
1700180
160"00

007214
007222

012771

0!!'0!!'0S

907224
007230

004737
III 41 02

0200:10

11187232
0",236

11112705
012702

177764
120000

"'OV
MDV

1120000,fl2

007<142

If 127 QI1

"0001111

MOV

H,fll

001246
007250
007252
007256
O07262

0201 t2
001413
010137
011237
104107

CMP

007264
007:170

104421
"04737

007274
007276

005205
001406

007300
0,,73"4
1107306

062702
005201
022701

1780
1791
1782
1783
1794
1785
1786
1797

1199
1799
1790
1791
1792
1793
1794
1795

17116
1197
1798
11119
1880
1801
1802
1803
1804
1805
1906

181!1?
tuB
:.809
1910
1811
1812
18 t 1
1914

1815
1816
1917

JSR
ERROR

1"1'1110

4$1
120009

1'107312

0lell 355

"0Hl4

"e;50)7

PC, CHK"'C
10!!

MOV
U',ILPERP
CON.RESET
DRV.RESET

It 28000,fll

MOV
CLR
CMP
SHE

172030
172016
!7at2

MOV
IoIOV
MOV

QDRV"RKDA
'-10000,flflKWC
_16"0"0, .RKSA

j72f'!0~

MOV
'5"'RKCS
CON.ROY

51,
140000

1164417

18' 8

tR\ 9

SE~

: WORDS (160000 TO 177776)

1767
1768

JSR
ERFIOR

(Rl )+

'CHECK RKWC OVERFLOWED CORRECTLY
'RKWC DID NOT OVEFLOil TO 0
; AFTER A WRITE or 4K WORD (1600'")
,TO 177776)

I RETURN ADDRESS rOR LUPING

;CLEAR tHE DATA BUFFER BEFORE
,DOING " READ INTO IT

1140000,Rl

PC,CMKC!

102

.-14,R5

iREAD FROM SEC 0, SUR 0, CYt. 0
141( WORDS
: INTO THIS BUS ADDIIESS
iREAD, GO
IWAIT FOR CHTROL ROY
: ANY ERROR IN RICCS?
IERROR 8IT SET IN RKCS ON DOING
: A READ or 4K WOflDS I NTo MEMORY
J (160000-111776)
,REPon 12 ERRORS AT MOST
I STARTING ADDRESS Of" BUrFER
J (PA-160000)
I INITIALIZE DATA PATTERN

fll,(R2)

:CORIIECT DUA ilORD?

BEQ

001162
1!01164

MOV
MOV
ERROR

Rl,.REG0
(R:Zl, .REGl
107

002214
017702

TYP\lSG
JSR

,MSGll
PC,TYPDBO

: GET EXPCTD DATA ilORD
J Gn DATA WORD RECVD
:DATA ERROR ON DOING A IIEAD or
,41C WOIID' STARTING FROM SEC II,
,CYL 0, SlIR " INTO MEMORY (16000011777776)
: TYPE 'PHYSIC AL BUS ADDRESS'
, TYPE OUT THE PHY8ICAL BUS ADDRESS
:WHEIIE DUA
, ERROR OCCURRED.
R2 CONTA INS
I THE VIRTUAL flOOIlESS

1:!02"002

151

U10;J1il

, ~157'

INC

R!!

SEQ

ADD
INC
Ct.;P
SNE

Rl
U"00,IH
6$

'POINTER TO N£XT 8A
J NEXT PATTEI'lN
, ALL ClONE?
: NO

c!"p

,'sp!'

; TUPN orr MEl>!

12,112

M~NlIG~:"I@:"T

ZZ51

MAINOEC-II-OZIlKH-F
MACYll 27(1006)
OlIlKHF.pll
22-SEP-76 ,,8157
182d
1821
1822
1823
1824
1825
1826
1827
\ 828
1829
1 B 3;1
18H
18)2
18]3
1814
1835
1816
1837
1838
1 q]9
1 R4"
1 B41
1842

ITHIS TEST PERFOIU!S THE LARGEST DlTA TRII.NSFER POSSIBLE
,WITHIN AVAILABLE MEMORY.

lP" KTll IS PRESENT" WRUE OF 16K WORDS IS DONE ON
:THE DISK (PROVIDED 28K OR MORE IS PRESENT).

11)

12) IF KTI1 IS NOT PREUNT THEN ALL BUT TOP 1.5K OF MEMORY WILl" BE USED
IFOR WRITING (RKOP MONITOR),
IALL DATA TRANSFtRS ARE DONE: STARTING AT BA 'PGEND'.
IALL WFlITES ARE DONE BEGINNING AT SECTOR 0, CYr..INDER 0,
ISURFACE 0.
,UTER DOING THE 'WRITE' A 'WRITE CHECK' IS DONE
,ro SEE ! f TIi!!: WRITE "AS DONE CORRECTLY. ANY WRITE
,CHECK ERROR IS REPORTED.

I , •••••••• *•••••• *•••• *•••••••••••••••••••••••••••••• *••• *•••••••
00001114
005717

i a:1 3

607330

021727

1844
1845
1 il4b

007336

01'2034

16",7340
007344
007350
007352

11113703
162703
000241
006003

007354
007356
007360
007362
","7366
007372
0,,7374
0",7376

005001
010346
005M6
(1112146
004737
['105726
01'1401
005201

007400

0626"'1

007402
007404
00741111
0117412
037416
007420
0,,7424
007426

30511102
lb2701
100403
062702
000772
1162701
050102
000404

00743<)
kl~7 434

012703
012702

1848
1849
1850
1 R'51
1852
1853
lR54
1855
11156
1857
18'58
11159
18bll
1861
1862
18b]
t 864
1865
186b
\867
11168
1869
IBN
1871
\ 872
1873
1874
lA75

TST71
017432

100~~4

0i77~0

00i540

IS:

002054
032412

000400
025120

2$1

000014

3$1

0000:10

SCOP~

TST
BPL

SKTll
1$

eMF'
BGE

iL5i'BK,iiiS40
XFP16K

:MEMORY MANAGEMENT PRESENT?
:NO
: YES
128K OR MORE?
,yES

MOV
SUB
CLC
ROR

MAXBA,Il3
'PGENo,R3

: F'IGURE OUT THE MAXIMUM
:Xre:R THAT CAN BE DONt

1'3

: FROM ' PGEN:;)' TO THE
:'MAX!!A'

CLR
"IOV
CLR
MOV
JSR
TST
BEQ
INC

Rl
R3,-(SP)
-(SP)
1400,-(SP)
PC,USDIV
CSP)+
2$
Rl

ADD

(SP)+, Rl

CLR
SUB
BMI
ADD
BR
ADD
BIS
BR

P2
'14,Pl
4$

000014

4$1

040000
1600124

XFRI6K: MOV
MOV

MAIP,lDEC-l1-DZRKH-r
M~CYll 27(1006)
DZRKHf .Pll
22-SEP-76 08157
1876
1877

0," 4 40

053702

001502

007444

012737

007452

001110

007452
007154
007456

104416
104420
013777

001502

171544

007464
0,,7470

010377
11105477

171534
171530

007414
007502

012777
2112777

140000, R3
1124,R2

1881
1883

188 ~
I !l9'S
18116
1 ~R7
11388

XFRI

BIS

QORV,R2

MOV

I1S,SLPERR

1$1

CON,RESET
DRV.RESET
'10V
QDRV, IiIRKOA
MOV
NEG

R3,I!IRKIiC
aRKW:::

MOV
MOV

# PGEND, I!IRKBA
#3, (iRKCS

113119
18·91
1892
1~93

18H

1~91

:R2 CONTAINS e:XPCTD RKDA
: UTER WRITE IS DONE

: ' OF WORDS"' 16K
IRKDA SHOULD INCREMENT TO
,THIS AFTER A TRANSFER OF 16K
p"OIiOS START!NG AT DISK
:ADDRESS " '" (CYL 2,SUR 1.SEC 4)

04-0CT-76
13129
PAGE 42
PERFORM THE LARGEST POSSIBLE DATA TRANSFEP

1990

t Q9'S
1896

:GET • OF SECTORS REQUIRED TO
: DO WRITE OF • OF WORDS
: (CONTAINED IN R2J). Rl CO'lTAINS
: I Of SECTORS
: FORM THE EXPECTED 0 I SK
: ADDRESS - AfTER THE WRITE
:IS DONt:.

1880
1882

:PUT DIVIDEND ON STACK (LO)
: (HIGH PART)
,DIVISOR
:GO TO DIVIDE ROUTINE
: POP OFF REMAINDER FROM STACK

#20,1'12
38
"14. RI
!II, R2
xrR

11378
1979

SEQ 0054

11*******************************·*···*******······*··
•••••••••• *
:.T~ST 7
PERfORM THE LARGEST POSSIBLE DATA TRANSFER

0~7 320
0;,,322
00732b

1847

04-0CT-76
13129
PII.GE 41
T7
PERfOR"I THE LARGEST POSSIBLE DATA TIUNSFER

171524
171512

SEQ 0055

I ADD THE DRIVE • TO
,EXPCTD RKDA ArtER XFER
I LUP BAK TO '18' ON ERROR
,(SW 9)

:ADDRESS THE ORIVt:,
,SEC 0

cn 0,SUR 0,

:WORD COUNT (IF MORE THAN
:28K IS AVAILABLE A TRANSFER
lOP' 201< WILL BE DONE, IF
I LESS THAN 2BK. THE
: LARGEST TRANSFER wITHIP,l THE
I UAILABLE MEMORY WILL
:BE DONE. IN BOTH
I CASES, DATA TRANSFER
,WILL BE DONE STARTING
:AT 'PGENO'
: START wRITE FROM HERE
;wRITE, GO

I ~98
1999

"'07510

104417

007512
007516

004737
1041"2

020020

007520
007524

004737

1607526
0075]2

012704
0"'4737

007536

104104

007540
007544

01'14737
104105

02013b

1607546
007554
007556
007560
007566
16,,7572
00757b

012737
104416
1044216
013777
0116377
005477
012777

007554

001110

01H502
171432
171426
032412

171442

007604

012777

000407

171410

1929
IH0

007612

1044t 7

1931

0217614

004737

CON.ROY

: wAI T FOR CONTROL READY

190~

19:il1
l'Ia2
1903
1904

190')
19ab

JSR
~RROR

PC, CHKCS
102

:CHCK RKCS fOR ERROR?
:ERROR BIT SET IN RKeS ON
IDOING A LARGE 'WRITE'

020034

JSR
ERROR

PC,CHKOA
103

:CHECK IF RKDA INCREMENTED CORRECTLY?
: RKDA DID NOT INCREMENT
:CORRECTLY

032412
020056

MOV
JSR

'PGEt.lD,F4
PC, CHKBA

ERROR

1"'4

JSP
ERROR

PC, CHKWC
105

1~41rn

19",7

190 R
1109
Bl~

19\ 1
1912
1911
1914
1915

1916
1917
19113
1919

1920
1921

1922
1923
1924
1'l25

1926
19:27
1928

: CHECK THAT RKWC OVERFLOWED
:RKWc DID NOT OVERFLOW TO
I ZERO AFTER A WRITE

'2.' ON EROR CSW 9)

ILUP BU TO

3$1

MOV
'2I,SLPERR
CON,IIESET
DRV. RESET
MOV
QDRV,!lRKDA
1010 V
R3,IiRKWC
NEG
IiRKWC
MOV
'PGEND ,IIIRKBA

4$ I

MOV

IWRITE CHECK, SSE, GO

171422

1407, IIRKCS

CON,RDY
020020

ICHECK THAT RKBA INCREMENTED
I CORRECTLY?
:RKSA DID NOT INCIlEMENT
:CORRECTLY

JSII

:ADDRESS THE DRIVE,

c:YL 0,SEC 0,SUR

ISTARTING Sil.

: WAlT rOR CONTROL ROY
PC,CHKCS

: ANY ERROR IN RKCS

13.29 PAGE 43
MACYl1 27(11'106)
84-0CT-76
MAINOEC-ll-01RKH-'
T7
PEPFORM TH! LARGEST POSSIIILE DATA TPANSF!P
OZPKII,.pl1
22-SEP-76 1U.57
1932
1933
1934
19)5
19]6
19)7
1939
1939
1940
1941
1942
1943
1944
1945
1946
lH7
1948
1949
1951'1
1951
1952
1953
1954
1955
1956
1957
1 9~8
190;9
1960
1961
1962
1963
1964

1'11'17621'1

11'1411'12

01'17622
1'11'17630
1'11'17632
1'11'17641'1

1'132777
1'11'111'130
032777
1'10141'16

1'11'17642
007646
1'187b54

ERROR
04001'10

171372

1'11'101'11'11

171361'1

1'11'14737
1'117737
11'14111'1

1'1217411
171354

1'11'11166

1'107656
1'11'17662

005777
01'11413

171342

1'11'17664
1'11'17673
01'17674
1'107676

1'117705
1'142705
01'1631'15
161'1577

171334
177760

1'100017

007702

1'142777

1'107710

01'10735

007712

01<)0137

581

BIT
SNE
BIT
IIEQ
JSR
MOV
ERROP

681

171324
171314

'SIT14.~RKCS

'SKIP CHECKING FOP WCE IF HE SET

78
neE.,RKEP
68

,WRITE CHECK ERROR?
'NO

PC.GT4RG
liRKBA. 'REG2

,GET RKCS.ER.DS.DA

110

; WRITE CHECK ERROR. RKDA GIVES THE DISK ADDRESS
: WHERE wCE OCCURRED. (NOTE THE SECTOR IN
,ERROR IS OBTAINED BY BACKING OFF 1 SECTOR).
,NOTE THAT THE DATA aUFFER WHICH WAS WRITE
,CHECKED IS NOT ON A SECTOR BOUNDAR¥
ICLIKE 256, 512 WORD ETC.), BUT IS SOME
,SECTORS' A FRACTION (LIKE 31'11'1 WORDS ETC.)

@lRKWC

J WAS THE ENT I RE DATA BUFFER
J WRlTE CHECKED?

TST
agQ

MOV
eIC
ASL
SUB

IIPKWC,1I5
1177760,R5
R5
R5"RKBA

BIC

'17.IIRKWC

: FOP,", THE RKBA AND RKWC
I TO BE USED FOR DOING
I WRITE-CHECK IF THE REST
:OF THE DATA BUFFER
:GO DO WRT-CHK FOR
: IIEST OF THE BUFFER

:GO CHECK THE IIEST OF THE DIIIVES.
7S1

1'105312

JMP

NXTDRV

04-0C1-76
MACY11 2T( 1006)
13: 29
(2-8EP-76 08.57
EXERcr8fP PROGPAM

~AHlDEC-11-0ZPKH-F

OZRKHF. PI 1
1965
1966
1961
1968
1969
l'n0
1971
1972
1973
1914
1975
1976
1977
1978
1979
1980
1981
1982
1993
1984
1985
1996
1987
1988
1999
1990
1991
1992
1993
1994
1995
1996
1997
1998
1999
20e0
2001
2002
2"03
2004
2005
201'16
2el'l7
201'l8
2009
2010
2011
2012
2"tl
21'114
2015
2016
2017
2018
21'119
20N

SEQ 0056

102

.S8TTL

EXERCISEII

PAGE 44
S::Q 1'057
PROGR~M

:BEGINING OF THE EXEPCISER P~PT OF THE PROGRAM.
,IF THE PROGIIAM wAS RESTARTED II.T 210, THEN THE STATISTICS COLLECTED
'SO FAR WILt NOT BE CLF-ARED.

001716
001720
001724
907726
007732
007734
007740

104416
012700
01'1'5020
1'1201'127
1'101374
105737

007742
1'11'17744
007751'1

005020
020027
001374

1'107152
1'107756
007762
007764
007766

012700
012701
010120
010121'1
010120

007770
1'107774
011'1"00
010004
1'110010
010014
010020
1'110024
0111010
010034
1'110040
010044
0101'150

EXPCSP: CON.PESEI
.I<EY,R0
MOV
(R0)+
1$.
C["II
CI4P
R8, .K"'HR
BNE
1$
TS18
'IISTRT
BNE
3S

001306
001'552
001253

00104~

2$:

:CLEAR UP THE LOCATIONS FROM
,'KE¥' TO 'KWHR' (EXCLUDED)

,RESTARTED AT 2101
:YES, SAVE THE STATISTICS COLLECTED
IUPTILL NOW, DONT CLEAR THEM

CLR
CI4P
BNE

(p0)+
R0, .PCMND
2$

ICLEAR LOCATIONS FROI4 'HECN'
ITO 'PCMNO' (EXCLUDED)

001554
177704

MOV
MOV
MOV
MOV
MOV

'KWMIN,R0
'-60.,111
111, (110)+
Rl'(RI'I)+
R1,(II0)+

I INITIALIZE COUNTS FOil MINS,
J SECS, KWll

012700
IH272;J
O12720
012720
012720
1'112720
IH2720
012720
012720
012720
012720
012720
1'112720

025636
123456
176543
001201
1'162465
176105
174532
157650
830753
131547
1'132070
123456
176543

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

'RSDRVL,R0
'123456,(R0)+
1176543, (R0)+
11281'(R0)+
'62465, (R0)+
117611'J5,(R8)+
'174532, (R0)+
U57650, CR0l+
U0753'(R8)+
'131547,(R0)+
02070, (R0)+
H23456, (R0)+
It 76543, (R0)+

: INITIALIZE PTR TO RANDOM NO. SEEDS
J USED BY THE RANDOM NUMBER GENERATOR
J SET UP RANDOM NUMBER SEEDS TO BE

0101'154

un37

01'11236

MOV

PCNTR, REPCNT

'REPETITION COUNT. WHEN THIS COUNT GOES
ITO 0, IT'S CONSIDERED TO BE AN END OF PASS.
ITHE NEXT PASS WILL START WILL START RIGHT
J FROM WHERE THE EX!RC ISER LEFT orr.

1'l10062

01'14737

022564

JSR

PC,CHOPII!

,CHECK IF ANY DIIIVES ARE PRESENT
'IF NONE, GO TO 'EOP, END
PASS

IPUT LOW DIVIDEND ON STACK
'CLEAR HIGH DIVIDENO ANO PUSH
I IT ON STAC~
IPUSH DIVISOR ON SUCK

002032

01'12056

lSI

010066
1'110072

1'112746
005046

177177

MOV
C["R

1177777 ,.(SP'
-(SP)

0101374

0\3746

O01264

~ov

DRVPRS.-CSP)

MA TNDEC-II-OZRKH-F
MACYII
22-SEP-76 08157
DZRKHr.Pl1
21121
2"22
2"23
2<'24
2"25
'''26

~10H'Il'1

0~4731

27C 1<'06)

04-0::T-76
13129
EXERC I BEi< PROGIUM

02512O

PAGE 45
SEQ O058

JSR
TST

PC,USOIV
(SP)t

MOV
MOV
MOV
'lOV

(SP)+,DRMAP
.504, C1LMAP
'5463.,SECMAP
11 3111'7., FNMAP

GO TO THE "DIVIDE" SUBROUTINE
DISCARD THE REMAINDER. QUOTIENT IS
NOW ON TOP OF THE STACK
GET MAPPING FACTOR FOR ORIVES
GET MAPPING FACTOR FOR CYLINDERS
GET MAPPING FACTOR FOR SECTORS
GET MAPPING FACTOR FOR FUNCTION

MAXBA, R0
BASEBA,R0

;COMPUTE THE "IAXIMUM ALLOWABLE
;WORo COUNT FOR DATA TRANSFERS

010104

005726

IHel"'6
011'J112
010120
"'H1126

012637
012737
012737
012737

001520
000504
012527
031463

2;129

0113134

l03"

a137",0
16]700
0"0241
"'0600'"

002054
992052

2v)32

01014"
010144
1'110146

MOV
SUB
CLC
ROR

;CONVERT TO WORDS

20]3
2,,14
2;135

eH1I5"
010154

1'l12746
1'105046

177777

MOV
CLR

4171777,-(SP)
- (SP)

20J9

010156
010160
1'110164

010046
",1'14737
0"5726

,",OV
JSR
TST

R",-(Sp)
PC,liUDIV
(Sp) +

2040
2"41
2042

;PUT LO,; DIVIDEND ON STACK
:CLEAR HIGH OIVIDEND AND PUSH
; IT ON STACK
:PUSH DIVISOR ON STACK
;GO TO THE "DIVIDE" SUBROUTINE
;DISCARD THE REMAINDER. QUOTIENT IS
;NOW ON TOP OF THE STACK

010166
010170

1'105216
012637

l"C
'10V

(SP)
(SPl+,BAMAP

2{12 7

0"1522
001524
0"1526

',178

2Hl

2~J5

2" J7
2038

1'125121'1

O161530

..,AI"OEC-ll-DZRKH-F
'1ACYII
DZRI<HF.Pl1
n-::;Ep-76 1l8:57

21(11'106)

04-0CT-76
13129
EXEPCISER PROGRAM

:SAVE THE MAPPING FACTOR FOR BUS ADDRESS

PAGE 46
SEQ 0059

;THE E"'TIPE DISK (ALL ORIVES) IS wRITTEN WITH RANDOM PATTERNS. THE FIRST
:WOR!l Of" £eACH SECTOR GIVES TfoIF.: NUI.4BER DE WORDS (2"5 COMpLEMENT) WRITTEN IN
;TIiAT SECTORS. REST OF THE DATA WORDS FOR THE SECTOR ARE GENERATED USING
;THE ABSOLUTE DISK /l.DDRESS liS THE RANDOM SEED.
; If" THE PROGRAM .. AS R~STAPTED /l.T 210 THEN CIiF.CK IF Si'I 4 IS SET. If" IT IS
:THEN DO NOT PEWRITF. THE DISK WITH R/l.NDOM PATTERNS. If" SOl 4 IS NOT SET THEN
;ALL THE DISKS (PRESENT) ARf. WRITTEN WITH RANDO'" PATTERNS.
011il174
011'12"'0
01021'l2
01021'16
010214
"'10216

105731
0161407
1"5037
03"17
0"1401
0";1654"

011J1253

011'1220
0Hl225
0HI232
"'10236
010242
010244
'110250
"10254
011:'255
010260
010262
010264
;111'1266

",12717
0127tA2
013703
0127"'0
1122"'1
04270\
",11'1137
1'11<10241
0,16001
;106001
0061601
006001

010236
1'l1l1254
0012&4
011410

0U:H 17

1711736

010272
010276
010302
0H'I304
01;1310
;110312
010116
010321<1

"'13704
163704
1""6204
;142704
01'10304
020427
003402
012704

0162<154

01",324
010326
1l1033f1!
010332
1111'1334
011"336
01034;1
... 10344
1'110351'1
010354
010356

31"4111
",21'1411"
01H401
010001
"'''031'1\
005401
o\loll 37
0H1I77
004537
000000
1'132412

010360
010366

012777
161277;

012412
011001'13

010374
011'1376
011:l402

104417
1'1104737
11'141'101

020020

001253
000020

wRDSK:

170724

0011h'

1 $:

2$:

11777rJ
00151'12

TSTS
BEQ
CLRB
BIT
SEQ
SR

FRSTRT
1$
ERSIRT
#sw4,liS.rR
IS
Bt::GEXI

MOV
"'OV
MOV
MOV

I2S,SLPERR
#PDI<,R2
DR.II'PRS,R3
14872.,1'10

~IOV8

(R2)+.RI

[HC
MOV
CLC
ROP

#177770,Rl
Rl,QDRV

1'101<
ROR
ROR
"'OV

~02"'52

000377
iiJIl0014
I'I11J0"14

3$:

4$ :
IH0354
171'1654
016612

551
110640
1 7~626

;RESTARTED AT 211'11
PIO
; YES, CLEAP THE RESTART FLAG
;Sw 4 SET?

;NO
;YES, DONT PEWRITE ALL DISKS WITH
: RANDOM PATTERNS
;LUP TO '2S" ON EROR, SW 9 SETI
;POINTER TO DRIVE '"S TABLE
:# OF DRIVES PRESENT
; NUMBER OF SECTORS PER DISK
;GEr THE FIRST AVAILABLE DRIVE
;POSITION THE BITS (15,14.13)

Rl
RI
Rl
Rl
Rl,~RKDA

;BASE DISK

MOV
SUB
ASR
RIC
SwAB
CMP
RLE
"'0 V

MAXBA,R4
BASEBA,R4
R4

;CALCULATE MAXIMU"I BurFER

MaV

R4, I'll
R4,R0
4$
P0,RI
Rl

C"IP
SLE
MOV
SWAB
NEG
MOV
MOV
JSR
.wORD
.WORD
MOil'
MOV

077,1'14

~DDRESS

;CONVERT TO WORDS
;KEEP OIlLY WHOLE BLOCKS

1'4, t 12.
3S

; 'lAX 01'" 12 SECTORS

.12.,R4

I'll
PI,5S
Rl dlRKWC
P5,GENBUF

: GENERATE RANDOM DATA BUFER

DBUF

ISTARTING ADDRESS OF DATA BUFER

• DBUF, "RKBA
O,IIRKCS

; FROM THIS BUS ADDRESS
;wRITE, GO

CON.RDY
JSR
P~,CHKCS
ERROR
1

; WAIT FOR CONTROL RDY
;!\NY ERROR?
; /IN ERROR OCCURED WHILE DOING WRITE

MACYl I
22-SEP-76 1IB.57

'HI I>JOEC-1I-0ZIIKH-'
::>ZRKHF'.Pll
2A99
2110
2101
2102
210)

2184

2105
2Ut6
2107
2108
2109
211"
2111
2lt2
2113
2114
2115
2111)
2117
2118
2119
2121(1
2121
2122
2123
2124
2125
2126
2127
2128
'129
2130

27(1006'

04-0CT-"16
13129
EXERCISER PIIOGRAM

011'1404
010412
010414
010420
010422
010426

032777
"01435
8327'"
001032
\04401
000421

000400

170526

8IT

1'100377

BIT

H77,1I0
6.

SHE
010430
,,6581
6411

'8IT8,IIISWFI

SEQ

TYPE
SR
.UCIZ

010502
010506
010510
010512

104401
104407
160400
00H04

001213

010514
010516

005301
001247

010520
010526

032777
001403

000010

170412

8EGEXlI 8IT
BEQ

010530

052777

000100

170476

815

"'A 1 NDEC -l1-DZRKH-'
MACYll
DZRKHP'.Pll
22-SEP-7608157

27 (~£l06)

04-0CT-76
13129
EXERcrSER PROGRAM

681

TyPE
CKSWII
SU8
8GT
DEC
BNE

:IF SW ]

,npH:

i
ASCIZ STIIING
,55.
nGET OVER THE ASCII
<15><12>/WRITTING RANDOM PATUliN, DIIIVE

001502

MOV
TYPOS
.8YTE
.8YTE

ITHE CURRENT STATUS

IIU

013746
10440]
001
000

QORV,-(SP)

, 'CIIL'
R4,R0

'CHECK P'OR SOP'Ti/ARE SWR CHANGE
,DECREMENT SECTOR COUNT

R3
25

IMORE DRIVES TO DO?

IS SET, ENABLE THE LINE CLOCK AND INITIALIZE COUNTS.
'sW3,(oISWII
BEGNEX
tlHT6,(oIKwts

IKilllL CLOCK PRESENT?
' I f NOT. SKIP. NOTEIlY KwllL IS
,NOT PRESENT SWl SHOULD NOT 8E SET
,0THERIfISE, A TIMEOUT WILL OCCUR.
,ENA8LE KWllL CLOCK
,SERVICED AT PRIORITY 7 (KWSRVE)

PAGE 49

,THE PROGRAM IS GOING TO LOOP BACK TO THIS POINT AT THE ENO 0' A PASS.

2Ul
2132
21]4
21 ]5
2116
2137

SEC 0060

ION THE OISK. YOU AliI!: ADVUI!:O TO USE
IBASIC AND DYNAMIC Tl!:STS.

010472
010472
010476
010500
010501

2111

PAGE 47

010536
01e540
010544
010550
11110552

104416
012706
005737
8014"'2
004737

001100
001264
014406

8EGNEX I CON. IUSEr
MOV
'8TACK,SP
TST
DRVPRS
BEQ
QI4NGER
JSR
PC,GEN8RQ

,CLEAR EYERYTHItlG IN DRIVES
'RESET STACK
IANY DRIVES LEFT IN nSTEM?

I GO GENERATE 8 COMMANDS '01'1 THE Q

21)8
2139
2140
2141
2142
2143
2144
2145
2146

2147
2148
2149
21S0
2151
2152
2153
2154

2155
2156
2157

2158
2159
2160
2161

2162
2163
2164
2165

,CHECK IF THERE IS ANy UNrINISHED COMMANO IN THE Q, WUTING TO 8E EXECUTED,

' I f THERE IS NONE, GO TO THE 'Ge:N8RQ' AND GENERATE 8 REQUESTS (COMMANDS)'
JAND PUT TH!M IN THE Q. n THERE IS AN UNfINISHED COMMAND, rIND OUT IP'
ITHERE IS A PRIORITY COIIMAND TO 8E EXECUTED IMMEDIATELY.
010556
010562
010566

013746
012746
000002

001244
010570

010570
010574
010576
010602

0"'5737
001040
104401
000432

001264

010670
010670
0111672

11"0000
000137

010676
010702
010704
010706
010112
1110714
010720

012700
005720
100006
020027
00137]
004737
000460

010722
010726
010732
010134
010736
010740
010742

012700
032710
001484
005710
100402
105710
100165

011.1744
010746
010752

005720
020027
001365

QICNGEIII MOV
MOV

PPRLVL,-(SP)
fU,-(SP)

,Nt;w PSW ,
,RETURN

DRVPRS

'ANY DRIVES IN SYSTEM?

RT!
111

0106114
" 65"
64.,
003376
001306

2 ..
HI

TST
8NE
T'tPE
8R
.ASCIZ

"TyPE ASCI! STRING
641
"GET OYER THE ASCI!
<15><12>/HALTING - PRESS CONTINUE TO IIESTAPT AT '200 '/< 15><! 2>< 12>< 12>

HALT
Jr.lP

START

MOY

TST
8PL
Cf04P
8NE
JSR
1111

0111326
014406

RAISE PRIORITY

Pc ***************

2.
,651

.KEY,1I0
(R0)+

IANY UNFINISHED COMMAND
,IN Q

R0,un+20

PC,GENBRQ
CH'A'N

,If' NOT, GO GENERATE 8 MORE COMMANDS

2166
2167
2168

2169
2170
2171
2172
2173
2174
2175
2176
2177
2178
2179
2180
2181
2182
2183
2194
B5

21 AI'!

001306
010000

41,
511

MOV
BIT
8EQ
TST

8141
UT8
BPI.

001326

TST
CMP
8NE

IKEY,R0
'etT12, (110)

(R0)
U
(R0)

'ANY HIGH PRIORITy COMM~ND IN Q
, FINISHED?

,YES

PRICMND

I IN EXECUTION?
/NO, GO PROCESS HIGH PRIORITY

(p0)+

'CHECK THE

ENTI~E

InND OUT IF TliERE IS A WIIITE CHECK fUNCTtON TO 8E
,~ "PlTE:, THAT WAS DONE: PRf;;VTClVSLY.
IH0?!!4
010760

005737
1.00040

001456

R0,IKU+20
51

TST

WCP'LG

BPL

Clil"Arll

~ONE

I~Me:!1IATELY

J IS WRITE CHECK TO F'OLLO¥i
JWIIITE1 IF NOT, 8PA~CH
:l:'E~

Af':'~ll.

MACnl
MA T'lDF:C-ll-DZRKH-F
22-SEp-76 08157
DZRKHF,PII

27(1006)

13129
04.0CT-76
EXERCISEP PROGRAM

2187
2189
2189

i! 10762

01076&

0137011
042700

001456
1774o",

MOV
BIC

2190

A!0172
010776

01600!
062700

002(H2
001306

!IOV

011002
011010
011312
011 ~1&
011024

022761
001413
(/111037
016137
104027

911026
12'11932
12'IUB6

012'1456
1012''''012'

011M0

905937
05271 i:!
91'10&47
12'12761

011046

0427112'

174340

1191
2192
2193
2194
2195
219&
2t 97
21
2199
220'"
2201
2202
2203
220 4
2205
2296
2'21'17
220R
220 9
2210
221 I
2212
2213
2214
2215
2216
2217

'Ie

000002

1100002

001162
000002

001164

00912'02

7 SI

SEQ 0062

WCFLG, R0
,,774"'0,RiJ

ADD

pC'1ND(R0) i Pi
UEY,Ro

CMp
BF:Q
MOV
"lOV
ERROR

'2. 2(Rl 1
7$
(RIll,SREG0
2(Rll,$REGI
27

::LR
BIS
MOV

WCFLG
'eITIS. (RiO
QI!NGER
'1),2 (Rll

alC

t114340, (RI2')

12'012'12'06

PA.GE 49

01112'52

0527112'

91112'109

BIS

ISlT6, (RI2')

011Vl56

9Vll'lt37

P'11520

JMP

EXCUT

13: 29
12'4-0CT-1f>
,.,ACYI1 27(112'06)
EXF.IlCISER PROGRA"!
22-SFp-76 0& :57

1o\AI~OEC-ll-0lRKH-F
DZ~KHF" ,PI!

2n0

'-2H
2214
2225
2226
22'}7
2228

222'l
2230
2lH
'232

SEQ 12'12'63

INO HIGH PRIORITY ::OllllllllAND WAS FOUND IN THE Q,
:COMMAND IN THE Ih FOR EXECUT I ON,
R0
,WAIT FOR ANY IMIoIF.:DIATE INTERUPT
CHrAF'NI CLR
-(51')
:NEfi PSW
CLR
: RETURN FOR RT!
MOV
'IS,-(5P)
RT!

"'11062
12'11064
011"'66
011"72

I'h,,512'110
0"'512'46
012746
12''''912'02

911"'74
12'1 t~76
01 t 112'0
911104
011110

105212'0
012'137&
12'13746
012146
011912'92

12'11112
011121')
011122
011124
1111120
0111312'
011134
011140
",'114:?

012700
0057112'
1"''''430
11:15710
10MH
011001
0 4 2701
105761
11:10426
H'I5761

WlI1146

12'01023

BtH:

CH2

"'1 t 150

ij1iH'I02

MOV

R0.R2

TST
BMI
TSTB
a"ll
MOV
BIC
TSTf<
8MI
CMP
BEQ

( R2l
28
(R2 )
2$
(R2). Rl
It 17710,R3
BUSY(R3)

12'11074

lS:
12''''1244
011112

INca

!lNE
MOV
MOV

PPRLVL.-CSP)
'2$,-(51')

,-2

PTI

,NEW PSIII, LOCK OU1' CPU
: RETURN FOR RT I

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

2213
2234
223'5
22H.

?2n

2238
221'l
224-i
2241
2242

22H
2244
224'5
2Hf>
214 7

~11116

12'01306

2$1
CHI:

MOV
TST
B~I

TSTB
B~I

MOV
eIC
T5T8
8!4I
TSTB

17177'<l
001426
0014)0

• KEY, ~'"
(R0)
Cli2
(R0)
CH2
(R>'Jj,Rl

011152

0"'12'414

2251

011154
011156
011160
011162
iH1164
011166
011172
011176
011212'0
1'111212'2

0.)';712
10'5712
10il4112'
011203
1')42703
105763
100402
020301
12'01441

177170
001426

2265
226"
2267
V6ij
2269

011212'4
011206
12'11212

005722
020227
00130'"

001326

22'"

011214

000470

011216
011220

005720
029027

2254
22'55
2250
2 257

2158
220;9
226~

2261
27.62
2263

1 s:

1~2'412

;15 THIS DRIVE BUSY?
;HAS THIS DRIVE BEEN POSITIONED
: FOR ANY OTHER COMMA NO ,
IF YES.
,SKIP,
IF NOT, PROCEED

:CHECK IF' THERE IS AY OTHER COMMAND
ION II DRIVE THAT IS NOT THE SAME
:AS THE PREVIOUS DRIVE,
THIS COMMAND
;SHOULD NOT BE IN PROGRESS
; AND SHOULD NOT HAVE BUN COMPLETED
: UNFINISHED COMMAND?
: IN PROGRESS?

:IS THE DRIVE BUSY?

21
P3, III
POST ION

22,,4
2$ :

,IN PROGRESS?

C~2

POSeR! )

n5~

2251
2252

;UNFINISHED COMMAND?

'117110,~1

BUSyeRl)

2HA
2H'~

TST
CMP
BNE

(R2l+
R2, .KEY+20

EXNSK

TST

(R0l+
R0,IKEY+20

lIS THIS COMMAND ON THE SAME DRIVE?
: IF YES, GO AND POSITION THe: COMMAND
: POINTED TO BY R0, (aECAUSE THERE IS
: ONE "lORE COMMAND THAT CAN 81!: PERFORMED
ION THE SAME DRIVE)
I CHECK REST OF THE Q

2271

; IF THERE WAS NO EXECUTABLE COMMAND
: ON ANY OTHER DRIVE, THEN EXECUTE
:COMMANO POINTED TO ay R0

2272

2274

CH2:
001326

C~P

PAGE 512'

FIND OUT THE FIRST _VAILABLE

221 'I

'2222

,SET UP B ITS FOR WRT CHK
PlOW
:CLEAR OUT THE UNNECESSARY
; FLAGS P'ROM T HE KEY
;SET FLAG FOR IlRITE CHECK, P'OR
:TH1S KEY

INO HIGH PRIORITY cOMMAND IN Q

2218

2221

:GET wC FLAG
:LOWER BYTE CONTA.INS KEYU2 ( OFFSET FROM
; KEY), OF THE WRITE FUNCTION
:GET POINTER
I FROM ADDRESS OF THE KEY
IwHICH WAS USED FOR PREVIOUS
: WRITE
;CHECK THAT THE FIJNCTION
: WAS A WIUTE
: GET KEY CONTEN TS
:GET THE FunCTION INDICATED BY THIS KEY
I IF NOT, ERROR
rBEFORE DOING A WRITE CHECK A WRITE IS
I ALWAYS DONE, OCCUPANCE OF THIS ERROR
: INDICATES THAT SOMEHOW AN UTEMPT IS BEING
I MADE TO DO WRITE CHECK BEFORE A WRITE IS
,PERFOIHIED, TIiE KEY IN ERROR MESSAGE wAS
;THE ONE I'IHICH GAVe: RISE TO THIS ATTEMPT,
:THE FUNCTION CODE IS THE FUNCTIOIi ASSOSClATED
''''IrH THAT KEY
; ABORT THIS IlRlTE CHECK

'CHECK ENTIRE Q

13129
04-0CT-76
MACYlt 27(1006)
I4AINDEC-ll-DZRKII-f
22-SEP-76 08157
EXERCISER PROGRAM
DZRKHF.Pll
2275
2276
2217
2278
2279
2280
2281

22112
2283
2284
2295
2286
2287
2288
2289
229'"
2291
2292
2293
2294
1295
229b
2197
2298
'299
230'"
H01
2102
2303
2304
2305
2306
2307
233R
2339
2lt0

011224

01H334

BNe-

SEQ 0064

CHI

INO (UNPOSITIONED) EXECUTABLE COMMAND WAS fOUND IN TH! Q. CHECK I f TilER!
;IS ANY POSITIONED COMMAND IN THE Q, WAITING TO BE EXECUTED.
105777

167770

911226
011232
911234

1'/90137

021344

11111240
011244
l1I11259
011252
IH 1254
011256
011260
911262
011264
011270
011274
01127b

012790
I:J)2710
001414
"-'05710
109412
105710
10"-'410
O11001
042701
105761
1110402
000137

001306
000020

911392
011394
011310
"11312

00572O
020027
0"'1355
1'1""137

TSTB
BMI
JMP

1004~2

1$:
2$1

177770
001426
01152'"
3$ :
901326
021344

MOV
BIT
SEQ
TST
BMI
TSTB
BMI
MOV
BIC
TSTB
B .. I
JI4P
TST
CliP
!lNE
JIIP

~RKCS

18
STATUS
'KEY,R0
'8IT4, (R9)

IANY POSITIONED COMMAND AND EXECUTE

JIT
I "lAKE SURE CO .. MAND IS POSITIONED

(R0)
3$
(R9)

H
(R0),Rl
II 77170,Rl
BUSY(RI )

lS
,GO EXECUTE THE COM!lAND IF THE

(R0)+
R0,UEY+20

:ABOVE CONDITIONS ARE SATISP'IED
I CHECK ALL COMMANDS IN Q

2$
STATUS

011316

000137

011520

PRICMNI JMP

EXCUT

011322
011326

,,32710
001333

900020

011330
011334
011340
011346
011350
011354
01115&
'" 1156
01 \362
011364
1:'11372

004737
004737
012777
005046
012746
000002

012072
020256
000111

105737
01H 775
012777
090137

001535

POSTION: BIT
ANE

JSP
JS~

167654

MOV
CLR
MOV
RTI

011356

-SIT4, (R0)
:H2

I ALREADY POSITIONED?
:YES, GO BACK AND CHECK IF REST OF' THE
,COMMANDS IN THE Q ARE TO BE POSITIONED

PC, pOSK
PC, POSCMND
1111,(iRf(CS
-(SP)
'U,-CSP)

: GO CHECK, " SET UP FLAGS
:SAVE INFO A80UT PRESENT" PAST COMA NO
:POSITION THE COMMAND
:NEW PSIII, DROP PRIORITY
: RETURN FOR RTI

IS:
013164
011062

TST8
BEQ
MOY
JMP

167646

lNTlfL
.-4
UNTHND, (lRKVEC
CHFAF''I

2314

~EQ

lIS THERE ANY POSITIONED COMMAND IN
:THE Q.
rINO OUT? IF THERE IS
,ONE EXECUTE THE POSITIONED COMMAND,
leUT FIRST POSITION THE COMMAND (KEY)
,POINTED TO BY R0

23)4

2371

,WAIT FOR INTERRUPT
,RE-ESTABLISH RK INTERRUPT VECTOR
: GO BACK AND CHECK IF ANY COMMANOS TO BE
,PDSl TI ON EO OR EXEC UTED

PAGE 52

2332
2H]

2344

: GO EXECUTE NON-SEEK COMf.lAND.

: ENTER THIS IF A COI4MAND IS TO BE PREPOSlTIONED (BEFORE EXECUTING A
;FUNCTION)

23]1

2345
2346
2347
2148
2349
2350
23'51
2152
215]
2354
2355
2356
2357
2158
2359
2360
2161
2362
2363
2364
2365
2366
2367
2368
2369
2370
2371
2372

:COMMAND IS UNFINISHED,
,IT IS NOT IN PROGRESS,
:THE DRIVE IS NOT IN BUSY

EXCUT

1]129
MACYlI 27(1906)
04-0cr-76
"'AINDEC-l1-DZRKH-F
EXERC I SER PROGFl ~ M
22-SEP-76 08: 57
DZPKHF'.Pll

2315
2336
2337
2319
23)9
2340
2341
2342
2343

,IF' THE CONTROLLER IS BUSY GO TO
,STATUS AND WAIT F'OR INTERRUPTS
,If' THE CONTROLLER IS NOT BUSy FINO

:ENTER HERE IF' THEilE IS II PRIORITY COMM1IND TO 8E EXECUTED.

Bll
2312
23tl
2114
2315
231 b
2317
2318
2119
2320
2321
2322
2l2J
2324
2125
2126
2327
2129
2329
23]0

PAG! 51

011376
011402
011406
011411'1
011412
"11414
011416
011420
011422
011426
011432

012701
032711
001412
005711
100410
105711
109406
1'11111'12
942702
105762
101'1005

001306
000020

011434
011436
911442

905721
020127
001357

1'111444

000425

'" 1446

910137

001536

EXNSK:
1$:

MOV
BIT
BEQ
TST
B~I

TSTB
8MI
MOY
BIC
TSTII
BPL

177770
001426

28:
001)26

38:

tKEY,Rl
'BIf4, (Rl)
2.
(R1)
2$
(Rl )

2$
(R1),R2

II 77770,R2
8USY(R2)
3$

:DRIVE BUSY?

TST
CMP
BNE

(Rl )+
Rl, tKEY+2"

,CHECK ALL COMMANDS 1'1 Q

EXCUT

MOV

R1,SAVKEY

011452

O04737

012072

JSR

PC, POSK

011456
IH1462
011470
O11472
IH1476

9047]7
"12777
005046

020256
"00111

~12746

011590

JSR
MOV
CLR
MOV
RTI

PC, POSCMND
'111,(lRKCS
-(SP)
H.,-(SP)

011500
011504
0115"6
O11514

105737
001775
012777
013700

167532

990002
4$ :

"01535
013164
0015)6

16"1524

,HEADS POSITIONED?
: '"UNCTION COMPLETE01
: YEs, BRANCH
:FUNCTION IN PROGRESS?

TST8
BEQ
MOV
MOV

INT1FL

4S
'INTHND. I!IR[(VEC
SAVKEY,R0

:NO POSITIONED COMMAND WAS
I FOUND IN THE Q. SO EXECUTE
,COMMAND POINTED TO BY R0

I AN ALREADY POSITIONED COMMAND HAS
,BEEN rOUND.
,SAVE POINTER TO THE COMMAND(KEY)
,WHICH IS ALREADY POSITIONED
:GO AND POSITION THE CO!!MAND(KEYl
,POINTED TO BY R0
,SAVE INFO A90UT PAST" PRESENT COMANO
,SEEK, IDE, GO
,ALLOW FIRST INTERRUPT
I RETURN FOR RTl ••

*••• ** ••

DID INTERRUPT OCCUR?
BR I f NOT
REESTABLISH INTERRUPT ADDRESS
RESTORE THE SAVED POINTER TO KEY

0065

MAINDEC-II-DZRKH-r
MACYl1 27(1006)
"4-0CT-76
13%29
DZRJ(/oIF.PlI
22-SEP-76 08%57
EXERCISER PROGRAM

PAGE 53
SEQ 0066

2375
2376
2317
011520
011522
011526
011530
011532
011536

011001
042701
005710
100004
011037
104030

01154"
011542
011544
011546
01 t 552

000512
105710
1.,0004
011037
10403'1

BH 011554
2394.
2395
2396
2397
01 t 556

000504

2n8
2379
2H"
2381
2392
2 3~3
2384
239';
2386
2387
;>HIA
B!!9
2Hkl
:2 391
2J92

\kl5761

EXCUTI
177170

001162

IS:
001162

36:

001426

~1 iS62

jrJ00~4

011564
011570
011572

010137
1,,412'02
000470

011574
011600
011602
011606
011610

105777
100404
004717
104003
0'10461

011612
011614
011616
011622
fHI624
011026

12'11002
f'iHi!302
042702
0"6302
010204
(:116205

002032

011632

011517

167372

011 &36
011644
011646
011652
011656
011b60

032777
001006
01"'137
004737
lI'J4004
000435

MOV
BIC
TST
BPL
MOV
ERROR

4S:

5S:
177770

107352
001250
021140

:GET I<Er
I IF rES, ERROR

"BRTI

I AN ATTEMPT WAS "lADE TO REEXECUTE A COMMAND
lTHIlT IS IN PROGRESS (ON DRIVE NO. GIVEN
I IN EROR "lESAGE)

TSTB

BUSY(RI)
4$
Rl,$REG0
2
ABRT

TST8
8MI
JSR
ERROR
SR

MOV
SwAB
BIC
ASL
MOV
MOV

~RKCS

5$
Pc,GT4RG

3
"BRT
(R0) ,R2
R2
'177770,R2
R2
R2, R~
PC"IND(P2l,R5

MOV

(R5 " 41RKDA

SIT
BliE
MOV
JSI<
ERROR
BR

.RtlSdIRKDS
&$

Rl,SRDRV
P:::,GT4RG
4
lBRT

011662

~16503

00el!l02

0116&6
"'11672

122703

0~0002

~<'I1437

011674
01170'1
011704
1'11712

"'16511\3
052703
016577
016577

000002
000501
000004
000"'01>

6S:

: IS THE DRIVE BUSY?
: GET DRIVE ,
: 'BUSY' FLAG FOR THE DRIVE (CONTAINED
I IN R1) IS SET, INDICATING THAT THE DRIVE
lIS 'BUSY' AND ENGAG!:D IN AN ACTIVITY,
;STILL AN ATTEMPT liAS MADE TO INITIATE
: A FUNCtION ON THIS DRIVE.
THIS IS AN
,UNEXCEPTED ERROR CONDITION.
: CONTROL READY SET?
:YES
:GET R{(CS, ER, OS, DA
: CONTROL READY IS NOT SET.
THIS IS AN
: UNEXPECTED ERROR CONDITION AT THIS
I POINT OF EXECUTION, CONTROL SHOULD
,BE NORMALLY READY.

: FORM THE ADDRESS OF THE
:PARAMETER LIST FOR THIS
: COMMAND

: GET THE FIRST ITEM FROM LIST
; DISK ADORES
,R/W/S ROY SET?
:YES
;GET DRIVE t, FOR TYPING SERUL •
;GET R{(CS, ER, OS, DA
:R/w/S ROY IS NOT SEt FOR THE DRIVE.
: A (NON-SEEI<) FUNCTION WAS SUPPOSED
;TO BE EXECUTED ON THIS DRIVE.
THIS IS
JAN UNEXPECTED ERROR CONDITIONS AT THIS

PAGE 54

:lHI
2H2
2134
21)5
7136
;>H7

I IS IT IN PROGRESS?

I14-0:::T-76
MHNOF:C-ll-DZRKH-F
13%29
MACYlI 27C 1"1!l6)
flZRlo!F. PI I
22-SEP-76 ~8: ';7
EXEflCISER PROGRAL1

21n

lGE! KEY
,IF NOT, ERROR
I AN ATTEMPT WAS "lADE TO REEXECUTE A COMMAND
I THAT HAS ALRE~Dr BEEN EXECUTED BEFORE.
I (ON DRIVE NO. GIVEN IN ERROR MESSAGE)

(R0),$REGIll
30

Sf!

167422

(R,,),SREG0

ABRTI
(R0)

BPL

021740

:THIS COMMAND UNFINISHED?

BR
TSTS
BPI,
MOV
ERROR

MOV
ERROR

001162

(R0), fl.l
1177770,RI
(R0 l

EXECUTE THE COMMAND POINTED TO BY R0
R0 CONTAINS THE POINTER TO THE
COMMAND KEY
GET DRIVE NO

SEQ 0067
:POIIIII OF EXECUTION RhUS ROY SHOULD
: BE NORMALLY SET.
: GET f-UNCTION TO BE DONE

MOV

2(R5),R3

Ci"PB
B(I;O

n,R3
WRF'NC

: IS IT A WRITE FUNCTION?
:YES, IT IS wRITE
lIT'S NOT A WRITE fUNCTION

2(R5l,R3
.51211,R3
HR5l,IiIRKI'/C
6 (1'151, liIH(BA

:GET
ISET
:GET
IGET

243~

2439
;>44'"
2441
2442

167312
16730&

NWRFNC: MOV
BIS
,",DV
MOV

FUNCTION TO BE DONE
SSE,IDE,GO BITS
WORD COUNT
BUS ADDRESS

HO
2H4
2145
2146
2H7
244"
2149

11\1172'"

01214737

020300

JSfl

PC, FNCMND

: SAVE I NFO ABOUT PAST. PRESENT COMAND

011724

011'1371

167272

140V

F/3,IiIRK:::S

;SET SSE, IDE, FUNCTION, GO

01113.0
011.734

052710
0527"14

000200
01<l0200

BIS
BIS

'BtT7,(R0)
tlHT7,R4

011740
011744
01175'"

11"461
110437
000137

001426
001534
021344

"lOVS
!lOVB
JMP

R4,BUSYCRtl
1'14, PITFLG
STIITUS

IS£T FLAG INDICATING FUNCTION
: IN PROGRESS
I R4 CONTAINS OFfSET TO THE: COMMAND KEY
: (FROM 'KEY') BITS 0-3, BIT 7 IS SET
;SET FLAG INDICATING DRIVE BUSY
:SET FLAG FOR INTERUPT USE

"'11754
011760
1111764
011766

01'4737
01-!4H7
000240
0"0137

014334
016446

AEIRTI

P:::,DRVABT
PC, :::HKDRV

010556

AFlRTll

JSR
JSR
NOP
JMP

240;0

2451
24'52
240; J

21'54
2455
24'S&

240;7
2158
245'l

QMNGER

: ABORT THE FUNCTION
:GO CHECK, DR IVE ERRORS

94-0::T-76
13129
'4A!tlDEe-t 1-0ZRKH-P'
MACYlI 27 (1996)
22-SEP-76 08157
nRKHF.PI!
EXERC UER PROGRA"
2460
2461
2462
2463
2464
2465
2466
2467
246@
2469
2470

2471
2472
2473
2474
2475
2476
2477

PACE 55
SE'? !!>06S

MOV
MOV
JSR
.WORD
.IIORD
8IS
MOV
MOV
JSR

4(R5),1$
6(RS), :u
R5,GENBUP'
9
U0l,R)
1 •• IIRKWC
2S •• RKBA
PC:.FNCMND

, THE FUNCTION TO 8E EXECUTED IS A
; WRITE rUNCTION
I con • or WOROS TO BE WR IrTEN
I GET STARTING 8A OF BurP'ER
; GO GENERATE BUP'FER
I SAVE • OF WORDS
,SAVE STARTING BUS ADDRESS OP' BUFFER
;SET IDE AND GO BIT
I SET WORD COUNT
,SET BUS ADDRESS
,SAVE INFO ABOUT PAST , PRESENT CO"AND

167154
000209
000200

MOV
BIS
BIS

R3 •• RKCS
'BIT7,(R0)
'8IT7,R4

'ISSUE WRITE, IDE, GO
ISET FLAG INDICATING FUNCTION IN
,PROGRESS

110461
110437

001426
1'01534

MOVB
MOVB

R4,BUSY(Rll
R4,INTrLG

ISET FLAG INDICATING DRIVE BUSY
,SET P'LAG FOR I NTERUPT USE
I R4 CONTAINS OFrSET TO THE CO/olMAND KEY
J CFRO., 'KEY') BITS 8-3, 8IT 7 IS SET

1'11/1013'7

021344

JMP

STATUS

911772
012090
012006
012012
012014
012016
012022
012031t
liH 21t36

016537
016517
004537
000000
000000
052703
011777
011777
904737

000Ul
012012
012014
920309

012042
012046
812052

010377
052710
1'152704

1'112056
012062
812866

000094
000006
016612

012012
012014

WRFN:: I

1&1

2'1

167174
167179

ill

2478
2479
2481l

MA nDEe -l1.DZRKH-F
MACYlt 21 ct 006)
IU-OCT-76
13129
D!RKHF.PII
n-SF.p-76 08157
EXERCISER PROGRAM

2481
24112
2483
2484
2485
2486
2487

012072
812074
IU2100
1'11211'14
1'112186
012112
012114

011081
942791
195761
1881'184
1/118137
11'14802
808470

POSKI

812116
012122
1'112124
1'112130
1'12132

105777
100404
004737
184003
0"'8454

812134
012136
"12141'1
812144
812146
01215,
1'112156
812164
812166
012172
812176
012280

81181'12
801'1302
042702
,,86382
816283
811377
032777
01'1101'16
810137
804737
104004
000431

812202
012286
IU2214
1'112220
012222
1'112230
0122]4
812216

110261
152761
,,32710
00tf106
112761
052710
""0482
052710

981426
1'88281'1
800810

812242
012250
1112256
012262

1'12777
811777
185937
"0821'7

012384
081244
801535

012264
1!112270
012274
912276

884737
804737
800240

1'14334

012308

1'l1l0137

177770
8"1426

MOV

SIC

""1162

PAGE 56

(pe).RI
117777e,pl
BUSHR1)

T518
8PL
MOV
EPPOP
BR

Rt"REG8

2494
2495

2496
2497
2498
2499
2580
2501
2502
251'11
2504
2505
251'6
2507
2508

2509
2510
2511
2512
2513
2514
2515
2516
25.7
2518
25,9
2520
2521
2522
2523
2524
2525
2526

2527
2528
2529
25]0
2531

2512
25)3

167190

1$1

021741'1

TSTB
BMI
JSP
ERROP
8R

PC,GT4RG

2'1
177778
1'11'12832
167952
081'1180

167832

881250
02174"

088377
888828

35 I
081426
801436

090200

4$1

166771'

5*,

166764

6'1

816446

'7, :

835726
318556

MOV
SWAB
BIC
ASL
MOV
MOV
BIT
BNE
MOV
JSP
ERROR
BR

'DRIVE BUSY?

It
2
71

2489
2499
219"
2491
2492
2493

'INITIAL CHECKING PRIOR TO DOING
1 POSITIONING COMMAND POINTED TO BY R0

I!JPKCS

2.
3
6$
CRe) ,R2
R2
H 7777e,R2
R2
PC'''ND(R2)'R3
(R3),I!JRKDA
'RWS, ,RKDS

H
Rt,SRDRV
PC,GT4RG

IGET DRIVE • FOR WHICH 'BUSY' IS SET
, 'Bun' FLAG rOR THE DRIVI!: (CONTAINED
J IN RI) IS SET, INDICATING THAT THE DRIVE
, IS 'BUSY' AND ENGAGED IN AN ACTIVITY,
,STILL AN ATTEMPT WAS MADE TO INITIATE
,POSITIONINGN ON THIS DRIVE.
THIS IS AN
,UNEXCEPTED ERROR CONDITION.
ICONTROL READY SET?
,YES
,GET RKCS, ER, OS, DA
JCONTROL READY IS NOT SET.
THIS IS AN
,UNEXPECTED ERROR CONDITION AT THIS
I POINT OF EXECUTION, CONTROL SHOULD
,8E NORMALLY READY.

:STARTING WORD OF COMMAND TA8LE

,R/W/S ROY SET?
rYES
FOR TYPING SERIAL •
I GET DRIVE "
JGET RICCS, ER, OS, DA
,ROilS ROY IS NOT SEt FOR THE DRIVE,
A
,(POSITIONING) SEEK wAS SUPPOSED TO BE
18E !XECUTED ON THIS DRIVE.
THIS IS
IAN UNEXPECTED ERROR CONDITION.
AT THIS
I POINT OF txP;CUTION RIWIS ROY SHOULD
18E NORMALLY SET.
ISET FUG INDICATING DRIVE BUSY

MOVB
BISB
BIT
8NE
MOVB
8IS
BR
BIS

MOV
MOV
CLRB

• INTI SK, I!JRKVEC
PPRLVL •• RKS'I'U
INTlrL

RTII

IPOSITIOH!D.
SET FLAG HIOICATING
IFUNCTION IN PROGRESS
;SET UP RKll VECTOR
I PSII ON I1ITERRUPT
,CLEAP P'LAG INDICATING - INTERRUPT
, OCCU~RED

JSP
JSR
NOP
TST

PC:,DPVABT
Pc, CHICORV

'ABO~T TH! rUIJCTION
,GO CHECK. DRIVE ERRORS

J"'F

QM~GEF!

R2.BUSHRl)
nIT7,BUSHR1)
nU3,CRe)
'377,POSCRt)
tBIT4, CR0)

,IS THIS • SEEK COMMAND
,SET FUG INDICATING, THIS DRIVE POSITIONS
,SET P'LAG INDICATING THIS COMMAND

51
'BIT7, (Re)

(SP)+

MAI'IDEC-II-DZRKH-F
IIACYII 27(1"06)
04-0CT-76
13!29
DZRI(HF.PI!
22-SEP-76 08157
EXERCISER PROGRAIoI

SEC 0070

:AFTER ISSUING A SEEK FOR POSITIONING, AN INTERRUPT IS ALLLOWEO TO TAKE
I*PLACE. THIS HANDLER SERVICES THE FIRST INTERRUPT, WHICH OCCURS AS A RESULT
:01" THE SEEK BUNG ACCf,;PTED.

2,,>]4
25J5

25 ]6
2517
2518

PAGE 57

2539

012304
012310

105237
053766

001535
001244

254VJ
2541
2542
2543

012316
012322

004737
104005

020200

012324
012332
012134

032777
001403
004717

012340

104012

012342
012346
012352
012356
012360
012364

011700
042700
022700
001403
"04737
104006

1111700
042700
000241
006100
0166100
006100
006100
010001
105761
1 !ol04163
010137
104007

INT1SK:
000002

INC8
8IS

INTIFL
PPRLVL,2CsP)

IINDICATE THAT INTERRUPT TOOK PLACE
,CPU PRIORITY TO 5 ON RETURN FROM
, INTERRUPT

JSR
ERROR

P::, CHKCRDY

:CDNTROL REAOY SET?
: CONTROL REAOY NOT SET AFTER THE FIRST
: INTERRUPT ON INITIATING SEEK

'SCP, !&RKCS

:SCP BIT SET?

2'144

2545
2546

2,47
2548

166670
022130

8IT
SEQ
JSR

ERROR

MOV
BIC

!lRKCS,R0
" 77760,R0
'HI, R0
2$
PC,GT4RG

P::, RG4SDR

2549
25~J

25<;1
2552
255 ]
2554
2555
2556
2557
255R

25'59
256<1
2561
2562
256]
2564
256'5
2566

1$:

166654
177760
"'001610

C~P

BEQ
JSR
ERROR

021740

2567
2568

'GET RKCS, ER, DS, DA ANO DRIVE. FOR
:npI~G SERIAL DRIVE.
:Scp SET AFTER FIRST INTERRUPT ON
:ACCEPTING SEEK.
A SEEK WAS INITIATEO,
: AS II Re:SULT OF WHICH (THIS) fIRST
: INTERRUPT OCCURRED, BUT SCI' SHOULO
:NOT lOt SET AFTER THE FIRST INTERRUPT.
I (IT GETS SET ONLY AFTER THE SEE!!:
;IS DONE).
:THIS IS THE FIRST INTERRUPT
: AFTER ISSUING SEEK
:CHECK THERE IS A SEEK FUNCTION
: IN RKCS
;GET RKCS,ER,DS,DA
:RKCS DOES NO! CONTAIN 'SEEK' FUNCTION.
: A SEEK WAS INITIATED AS A RESULT OF WHICH
: (THIS) FIRST INTERRUPT OCCURRED.
RKCS
:SHOULD CONTAIN THE SEEK FUNCTION BITS,
:BUT IT DID NOT

2'569
2570
2571

012366
012372

2'5H

012376

2573

012400
012402
012404
012406
012410
012412
012416
012420
012424

2,74
2575
2576
2577
2578
7.519
25S0
25A I

166636
017777

2S1

001426
0"'1162

MOV
BIC
CLC
ROL
POL
ROL
ROL
MOV
TST8
BMI
MOV
ERROR

I!IRKDA, R0
117777, R0

PI, $REG0
7

2'5S3
25q4
25'15
2596
012426

2SIl8

012412
1'-12436

2589

116100
042700
06271'10

3$ :

001426
177600
301306

MOVB

FROM RKDA

Ri3
R0
R0
R0
R",Rl
BUSY(RU

2592

2587

: GET THE DRIVE •

flrc

BUSYCRll,R0
#177600,R0

AOO

#KEY,RiI

MAINDEC-I1-DZRKH-F
MACYU 27(1006)
04-0CT-76
13:29
22-SEP-76 09157
EXERcrSER PROGRA'I

,CHECK THIS DRIVE NO. wAS BUSY
;OK. IF IT WAS
IGET DRIVE HFROM RKDA)
: 'SUSY' FLAG FOR THE DRIVE WAS NOT SET.
I THE DRIVE • (IN RKDA) WHICH CAUSED (?)
I THIS (F"lRST) INTERRUPT SHOULD HAVE BEEN
I ' BUSY' CSOFTWARE FLAG).
NOTE WHENEVER
:ANY OPERATION IS INITIATED Of( AN¥ ORIVE
; 'B\JS~' F'LAG FOR THAT DRIVE IS SET,
• FOIHl THE ADDRESS OF
i'rHIS KEY

PAGF 58
SEQ 10071

DZR~HF'.Pll

1'112442
012446
012450
012454

"'327 I~
A10137
104010

0161162

012456
012462
012464
012410

t 05761
001003
010137
104161'"

001436

012472

111'5777

166524

012476

1110044

!:lIT
BNE
MOV
ERP.OR

000"'20

001A~3

032737

4$1

5$1

0100040

001474

1601'1040

"'01474

012520

"'42737
00H'26
052737

012526

il0\H7

022130

012512

104011

012500
012506
1'112510
012516

001012

0000416

042710
1115061
1051'l61

"'12550
012554
012560
2112564
012572

,,,l4737

015714

0527 HI
1215261

010001'1
001446
0211446

012574

"'04737
005"'61

012610

000002

0il~037

TST
BPL

tlRKCS
8$

I ANY ERROR?
:NO - RETURN

BIT
SNE
BIC
8NE

'~IT5, ERCODE
6$
IBIT5,ERCODE

:SAME ERROR

SIS

_SIT5,ERCODE

JSR

PC, RG4SDR

.P,lT4, (RIO)
8IlSYCRt)
POSeR!)

CMPB
BLE

PC,CLRERR
-BIT12, (R0)
RETRY( Rt)
RETRY{Rl),O
8$

I CLEAR THE ERkOR
: INDICATE HIGH PRIORITY ON
: INCREMENT RETRY COUNT
:DONE RETRIES?
:NO

014334
001446
001474

7$1

JSR
CLR
CLR

PC,DRVIIBT
PETRy( Rl)
ERCODE

I ABORT THE F'UNCTION

811

RTI

SIC
CLIIE!
CLRB
JSR
BIS

IHCS
"0"'003

003406

0126210
012604

ns THE 'POSITIONING' FLAG SET?
I GET DRIVE • FROM RKDA
,THIS INTERRUPT IS SUPPOSED TO BE AS
:A RESULT OF INITIATING A (POSITIONING)
:SEEK.
WHENEVER A SEEK IS INITIATED
: TO POSITION THE HEADS THE POSITIONING
IFLAG (POS') IS SET. OCCURANCE OF THIS
: ERROR I NO IC ATED TH AT THE DRI VE •
: (FROM RKDA)GIVING THIS INTERRUPT DID
:NOT HAVE ITS POSITIONING P'LAG SET.

,GET RKCS, ER. OS. OA AND DRIVE.
: TYPING SERIAL ORIVE •
:SIT 15, 'ERR' SET IN RKKCS AFTER
; INTERRUPT - WHICH OCCURRED AFTER
IPOSITIONING SEEK WAS INITIATED.
,WILL CONTAIN ERROR 8ITIS
:CLEAR 'POSITIONING' 8IT
: CLEAR 'SUSY' FLAG
:CLEAR 'POSITIONING' FLAG

6$1

000020
"'01426
001436

IGET ORIVE NUMBER
:POSITIONING P'LAG (U THE Kty) IS NOT
:SET FOR THE INTERRUPTING DRIVE (GIVEN
:IN EROR M[SAGE)

POS(Rl)
5$
RI,SREG0
10

012534
0125421
012544

126127

001474

:IS THE KEY ACTIVE FOR 'POSITIONING'?

MOV
ERROR

TST8

SNE
1'101162

#SlT4, (R0)

4$
Fl1, SFlEG0

FOR
FIRST

A
RKER

04-0CT-76
13129
MAINOEC-l1-0ZRKH-F
MACYlI 27(1006)
EXERC ISER PROGRAM
22-SEP-76 08157
OZRKHF.Pl1
2640
2641
2642
2643
2644
2645
2646
2647
2648
2649
2650
2651
26'52
2653
2654
2655
2656
2657
2659
2659
2660
2661
2662
2663
2664
266'5
2666
2667
2668
2669
21:>70
2671
2672
2673
2674
2675
2676
2677
2678
2679
2680
2691
2682
l683
2684
2685
2686
2687
268B
2699
269'"
2691
2692
269)
2694
269'5

SEQ 0072
,THIS ROUTINE IS ENTERED UPON COMPLETION
:or A SEEK OPERATION UNDER INTERRUPT MODE

012612
IH2616

004737
104013

020200

SKCMPI

JSR
ERROR

PC,CHKCRDY
13

I CONTROL READY SET?
:CONTROL ROY NOT SET, AFTER A SEEK
:OONE INTERRUPTI

012620
012624

017746
004737

166372
022076

181

MOV
JSR

IlRKDS,-CSP)
PC,CROTLF

012630
012632
012636
012640
012644

012601
105761
100403
004737
104014

MOV
TST8
BMI
JSR
ERROR

(SP)+,R1
BUSY(R1)
2S
PC,GT4RG
14

: GET DRIVE I THAT INTERRUPTED
:ROTATE BITS 15,14,13 TO POSITION
:0,1,2
:GET THE ROTATED BITS (DRIVE 10 BITS)
:CHECK THAT DRIVE WAS BUSY

012646
1112652
012656
012662
012666
012670
012674

116100
042700
062700
"'32710
0111003
010137
104910

001426
177600
0111306
000020

MOVB
BIC
ADD
BNE
MOV
ERROR

BUSY(Rll ,R0
'177611l0,R0
U:Ey,R0
'BIT4, (R0)
3$
Rl,$REG0
10

012676
012702
012704
012710

105761
001003
010137
1040\0

001436

TSTB
BNE
MOV
ERROR

POS(RI )
4$
Rl, SREG0
10

012712
012716

91'14737
0011501

016446

JSR
BR

PC,CHKORV
PFTERR

001426
021740

2$ :

BIT

001162

3S1

001162

4$ I

012720

017777

166272

166302

MOV

(iRKDS,8RKDA

012726
012734
012736
012742
"'12746

032777
001005
004737
010137
104015

11011100

166262

BIT
8NE
JSR
MOV
ERROR

_RoiS,IiIRKDS
5.
PC,GT4RG
Rl,SRDRV
15

012750
012756

1132777
0111007

00101""

BIT
BNE

tsIN,fIIRKDS
PSINER

1121740
01"250
1662411

551

04-0CT-76
~A I NOEC-l1-0ZRII:H-P'
MACY11 27(1006)
13129
DZRKHF ,Pll
22-SEP-76 08157
EXERt: I SER PROGRA'"
2696
2697
2698
2699
270i<!

PAGE 59

1112160
012766

032777
001060

040000

012770
012774

105061
000207

001426

166234

I 'BUSY' FLAG FOR THE INTERRUPTING DRIVE
: (RKDS) WAS NOT SET.
DRIVE. (15,14,13 - RKDS)
: INTERRUPTED AFTI!:R SEE!( WAS COMPLETE, BUT
,'BUSY' FLAG CORRSPONDING TO THAT DRIVE
IF THE CORRECT DRIVE WAS
PIAS CLEAR.
: INTERRUPTING 'BUSY' FLAG SHOULD HAVE
IBEEN SET.
,FORM THE AODRESS OF THE
,KEY
,CHECK THAT POSITION BIT WAS SET
; GET DR I VE NUMBER
:POSITIONING FLAG (IN KEY) IS NOT SET
,SET P'OR INTERRUPTING DRIVE (GIVEN IN EROR
,MESAGE)
,CHECK POSITIONING FLAG WAS SET

,'POSITIONING' FLAG WAS CLEAR.
WHEN
;DOING A (POSITIONING) SEEK, THE FLAG
: 'POS.' IS SET TO INDICATE THAT DRIVE
,IS POSITIONING HEADS (SEEKING).
THIS
;ERROR INDICATES THAT FOR THE INTERRUPTINQ;
:DRIVE (RKDS) POSITIONING FLAG WAS
;NOT SET.
IGO, CHECK FOR DRV ERORS (OPL,DRU,ORY,WPS)
,IF THERE IS A DRV EROR, RETURN HERE
J THE ORI VE HAS 8EEII DESELECTED, ALL
:FURTHER COMANDS ON THAT DRIVE ABORTED
;RETURRN HERE IF NO DRIVE ERRORS
:GET THE DRIVE. FROM DRIVE 10 BITS
: IN RKOS AND ADDlIESS THE DRIVE
:R/W/S ROY SET?
;YES
:GET RKCS,ER,DS,DA
,GET DRIVE I, FOR TYPING SERIAL.
,R/W/S ROY NOT SET FOR INTERRUPTING
: DRIVE (RKDS), AP'TER SEEK WAS COMPLETED.
,'SIN' EPROR?
IYES, BRANCH

PAGE 60

BIT
BNE

• HE, I!IRKCS
PORKER

CLR8
RTS

BUSHRI )
P"

SE~

ANY HARD ERROR?
YES
NO ERRORS DETECTED ON POSITIONING
CLEAR 8USY P'LAG P'OR THIS DRIVE

",,17 3

04-0CT-76
13: 29
"!ACnl 27(1006)
EXERCISER PROGRAM
22-8EP-76 08 :57

/01 A 1 NDEC-ll-DZRKH-F

DZRKJ.lF, PI 1
2701
2702
2703
27'114
2705
2706
27'117
170 8
270 9
2710
271 I
2712

PAGE 61
SEQ 01074
: THERE WAS A 'SIN' ERROR ON
:DOING POSITIONING (SEEK)

10'11471 7
010137
1'114016
042710
105'1161
105061
004737

0001020
001436
1001426
016060

1013030

004737

016172

2713

013034

0010412

2714
2715
2716
2717
211 8
27, 9
2720
27'-1
2722
2723

013036
013042
013046
1l13,,52
013060
(1113062
013066

105261
1"'5061
105061
122761
001403
052710
0002",7

"13070
013074
013UI0
013102
"'13104
013110
013114
"'13120

~'52'1~

1~~4030

1051061
010102
006302
f'l05262
",42710
104421
000207

00144&

013122
013126

042710
"'00207

010000

PFTERR: BIC
RTS

_BITI2,(R0)
PC

:CLEAR HI PRIORITY BIT IF SET

013130
(1113134
013140

004737
010137
104017

021140
001250

PORKER: JSR
'lOV
ERROR

pC, GT4RG
Rl,SRDRV
17

IF" ANY ERROR BIT IN RKCS SET
FOR TypING SERIAL •
GET DRIVE "
ON DOING POSITIONING (SEEK)
ENTER HERE

013142
013146
013152
013156
IH3162

004737
04271 "
105061
1",51061
000725

015714
000020
001436
0101426

JSR
BIC
CLRB
CLRB
BR

P:,CLRERR
'BIT4, (R0)
POS(Rt)
SUSY(RI )
PSRTRY

GO CLEAR THE HARO ERROR
CLEAR POSITIONING BIT IN KEY
CLEAR POSITIONING FLAG FOR THIS ORIVE
CLEAR BUSY F"LAG FOR THIS DRIVE

2724

1125
2726
2727
2728
272 g
27H
2711
2732
2713
2H4
2735
273&

2737
2138
2719
2140
2741
2742
2743
2144
21<15

PSINERI JSR
MOV
ERROR
BIC
CLkB
CLRB
JSR

PC, GT4RG
RI,SRDRV
16
'BIf4, (RIO)
POS(RI )
BUSY (RU
PC,eLRSIN

1'112776
10130'112
1013'1106
1013010
1013014
1'11)020
013024

921749
0101250

001446
0101436

JSR

PC, SINCNT

PFTF.:RR

: KEEP COUNT OF 'SIN' ERRORS, IF MORE
:THAN 'MAX' DESELECT THE DRIVE
,RETUN HERE II" COUNT"MAX

PSRTRY;

INCB
CLRB
CLFB
CMPB
BEQ
BIS
RTS

"ETRY(RI )
POS(RI )
BUSY(RI )
O,RETRY(Rll
IS
'8ITI2, (R0)
PC

: RETURN HERE IF COUNT LESS THAN MAX
: INCRMNT REETRY COUNT
:CLEAR POSITION FLAG
: CLEAR BUSY FLAG
:DONE ALL RETRIES?
:YES
;SET HI PRIORITY ON RETRY
,RETURN

1 $:

RIS
CLRB
/oIOV

~1040~0, CiH~)

00142~

000003

0101446

010000

, RETRY(R1)
Rl, R2
R2
~Sl
IIBORT(R2)
INC
tBITI2, (R0)
BIC
TYPMSG
,r-lSGI0
FITS
PC

001672
010000
f'l02165

04-0CT-76
MACYll 27(1006)
13:29
'!A TND!':C-l 1 -D?RKH-F"
EXERC TSr:R PROGRA/o'
22-5EP-76 O8157
DZRKHI' .1'11
2746
2747
2149
2749
2750
2751
2752
2151
2754
27'55
270;6
2757
1758
2759
276'"
2761
2762
2763
2764
271>5
'}76&
2 767
276a

INTHND: CLRFI

1<111164

105037

001534

013170
013176
013202

013766
004737
1041024

001244
020201<1

000002

013204
013212
013214
013220
013222

032177
001403
",04737
000"'02
"'17746

020"0"

1661010

013226

004737

022076

011232
013240
013242
01324b

012605
1057&5
1,104"'3
a10537
104007

013250
013254
013260
013264
013270
013274
013276

1<1501>5
116500
042700
062101b
03271'1
001401
104020

01331'0
1013302
013304
1'13310

1057t 0
1010403
010537
1104031

1'113312
013314
013320
013322

I'! I 1002

0t32~4

MOV
JSR
ERROR

IS:

"12&12
1661002

2$ :

0"1421>
0i<J1162

BIT
BEQ
JSR
RTI
MOV

21<32
271'13
2784
2785
271lb
21A 7
7H9
271'19
2HiIJ
2791
2H2
2H3
2194
21q5
2H6
2791
2798
21g9
2800
2001

042702
;!J20502
001405

1!}01436

3$ I

00142b

INTF'LG
PPRLVL,2(SP)
PC,CHKCRDY
24

177760
001306
000010

'SCP,.-RKCS

4$ :

TSTB
MOV
ERROR

001162

5$:
177770

MOV
BIC

eMp
SEQ

SEQ 0075
:ENTER THIS ROUTINE wHEN AN INTERRUPT
10CCURS. NOH THERE IS ONE OTHER
:INTERRUPT ROUTINE- 'INTISK'
,CLEAR FLAG TO INDICATE THAT
: AN INTERRUPT OCCURED,
,CPU PRIORITY TO 5 Or-l RTI
:CONTROL READY SET?
:CONTROL ROY CLEAR AFTER INTRUPT ON COMPLETION
IOF FUNCTION, IT SHOULD BE SET
: SCP SET? SEARCH COMPLETE?
; GO TO SEEK COMPLETE ROUTINE
;GET THE DRIVE. TO "HICH
!THE COMl<lANO WAS ISSUED UNDER
: INTERRUPT MODE
:ROTATE BITS 15,14,13 TO POSITION
:13,1,2
: POP OFF THE DR I VE • FRO"! THE. STACK
;CHE:CK THAT DRIVE WAS BUSY

(SPl+,RS
BIJSY(R5)

B!H

: INCREMENT ABORT COUNT
: CLR HI PRIORITY
BIT
:PRINT ABORT MESSAGE

"RKOA, -(SP)

PC,CROILF"

BIT

ABORTED

P::,8KCMP

MOV
TSTB
B"I1
MOV
EPROR

SEQ
ERROR

COMMA~~D

JSR

CLRB
MOVS
file
AOD

; INDICATE

I CLEAR RETRY COUNT FOR I"UTURE USE

PAGE 62

R5,SREG0
7

216~

277"
2771
2172
27n
2714
7175
277b
2177
2778
2779
27R"
ngl

:GET DRIVE I, FOR TYPING SERIAL
,'SIN' ON DOING (POSITIONING) SEEK
:CLEAR 'POSITIONING' BIT
:CLEAR POSlTTIONING FLAG
: CLEAR BUSY FLAG FOR THIS DRIVE
: CLEAR 'SIN' ERROR

POSeRS)
BUSYCRS),R0
I 17176;!J,ReI
.KEY,R0
.BIT3, (110)
4$
20

(R0)
5S
R5,$REG0

(R0) ,R2
II 77770,R2
R5,R2
6$

: 'BUSY' FLAG FOR THE INTERUPTlNG DRIVE
I wAS NOT SET,
WHENEVER ANY ACTI VlTY
: IS INITIATED ON A DRIVE, THE (SOFTWARE)
: 'BUSY' FLAG IS SET TO INDICATE THAT
:DRIVE IS BUSY OOING SOMETHING.
:OCCURANCE OF THIS ERROR INDICATES
;THAT THE 'BUSY' FLAG FOR THE INTERRUPTING;
:DRIVE (RKDA) IS CLEAR I
,CLEAR THE POSITION FLAG
: GET THE ADORESS OF" THE
: COMMAND KEY
:CHECK IT'S NOT A SEEK FUNCTION
: (SOFTWARE) FLAG FOR THE INTERRUPTING
:ORIVE (RKDA) INDICATES THAT A SEEK
,FUNCTION WAS BEING EXECUTED ON THE
IF THAT'S THE CASE, SCP BIT SHOULD
:DRIVE.
; HAVE SET ON SEEK DONE INTRUPT, BUT IT
NOTE, HERE THERE IS A CHANGE
:wAS NOT.
: OF MULTIPLE ERRORS OR ERROR
: MISINTERPRETATION
: CHECK THAT FUNCTION IN
1 PROGRESS BIT WAS SET
,GET DRIVE NUMBER
: II" NOT, ERROR
: 'FUNCTIOr-; IN PROGRESS' FLAG (IN THE KEY)
: WAS NOT SET I"OR THE INTERRUPTING DRIVE,
,IF THIS ORIVE WAS BUSY DOING THE
,FUNCTION, THE ABOVE FLAG SHOULD BE SET,
: CHECK THAT THE INTERRUPTING
: DRIVE (IN RKDA) IS THE SAME AS
,THE DRIVE IN THE' KEY

13129
04-0CT-76
IIIACYll 27(1006)
14UNOEC-l1-0ZPKH-'
22-SEP-7S 08.57
EXEPCISI!:R PROGRAM
DZRKH' .Pl1
2802
28e3
2804
2905
2906
2907
2909
2909
2810
2811
28t2
2813
2811
2815
28t6
28P
2818
2819
2820
2821
2922
28H
2824
2825
2826
2927
2828
2829
2910
2831
28)2

28U
29)4
2835
2916
2837
2818
29,9
2940
2841
2942
2943
2944
2845
21.146
2947
2849
2849
2850
2851
28'52

010537
010237
104032
006302
011003
010037
000103
942793
9063.3
.17704
(1142704
016305

001162
0111164

013372
0133'76
013400
011406
013412
el3414
013420
013426
013412

e42710
142761
004737
0e0002

00e200
000200
016446

001426

013434
O13442
013444

032777
O01426
004737

0010e0

165554

013450
013452
01 ]456

104016
004737
004737

013462

00111002

013464
013470
013476
"13500
013504
.1351e

105261
122761
001405
052710
042710
"08002

001446
000003

e13512
01)516

""4737
800002

"IUl4

1113520
013526
013530
"13536
11113540

832777
001076
032777
"01'''2
000137

,,40"0frl

165474

1000.0

165464

013324
011130
013314
9UH6
01H40
013342
01U46
013350
013354
01H56
013362
013366

611
001536

MOV
MOV
ERROR
ASL
MOV
MOV
SWAB

R5, UU:G0
R2, .REGI
32
R2
(R0) ,R3
R0,SAVKEY
R3
It 77770,Rl
R3

177770

stc

165640
177761
002032

ASL
MOV
BIC
MOV

12651114

000002

CMPB

2CR5) ,114

001406
016537
010437
104033

000002
001164

BEQ
MOV
MOV
ERROR

2(R5),$R£G0
R4,SREGI
H

001162

'177761,R4
PCMNDCR3),R5

SIC
BICB
JSR
RTI

fBlT7, (R0)
'BIT7,BUSYCR1'
PC,CHKDRV

022130

BIT
BEQ
JSR

flSIN,'RKDS
10.
PC,RG4SDR

O16060
O16172

ERROR
JSR
JSR

16
PC,CLRSIN
PC,SINCNT

7$1

RTI

IGET POSITION OF THE PARAMETER
,LIST FROM THE KEY
ICLEAR ALL BUT FUNCTION CODE
:CHECK THAT THE FUNCTIOM IN
IRKCS AND THE KEY ARE SAME.
I If' NOT, ERROR
IGET EXPCTD FUNCTION CODE IN RKCS
I GET CODE RECVD
,FUNCTION CODE THAT IS IN RKCS AFTER THIS
I INTERRUPT OCCUR ED IS NOT THE EXPECTED ON~
,CLEAR 'FUNCTION IN PROC:RE~S' BIT
,CLEAR BUSY FLAG FOR THIS DRIVE
'CHECK FOR DRIVE ERRORS
,IF THER£ WAS ANY ORIVE EROR
: DESELECT THE DRIVE AND EXIT
I IF NO ERROR, RETURN HERE
18IN ERROR?
,GET RKCS, ER, OS, DA AND DRIVE • FOR
,TYPING SERIAL DRIVE •
:SIN ERROR
,HELP COUNT or SIN'S. IF MORE
ITHAN MUM ALLOWABLE, DESELECT THE DRIVE
IRETURN HERE IF CO~NTzMAX
I RETURN HERE IF LESS THAN MAX

INee
CMPS
SEQ
8IS
8IC
RTt

RETRYCR1)
U,RETRYCRll
8S
tBIT12, CR0)
UIT4, (R8'

8$1
9S1

JSR
PTI

PC,DRVAST

: ABORT THIS FUNCTION

1081

SIT
SNE
BIT
8NE
J14P

IHE,IlRKCS
HRDERR
H;RR,IIRKCS
SFTERR
NOEROR

IsorT ERROR?
,YES
INO

001446

010000
000020

O14206

04-0CT-76
13.29
MACHt 27(1006)
EXFRC rsER PROGI! AN
22-SEP-76 fltSI57

IHAPD ERROR?

PAGE b4

HQ !'0"
'THERE WAS

'II~]

SOFT ERROR

2854

2855
2856
2857
2858
2959
296O
2961
2862
2863
2864
2865
2866
2867
2868
2969
287O

2871
2872
2873

2974
2975
2876
2877
2878
2879
2980
2891
2992
2883
28f!4

813544
013552

032777
001417

00"001

165446

SFTEPRI BIT
BEQ

013554
013562
813564
0U572
013574

0)2737
001854
042717
001052
052737

0000"1

001474

0000el

001474

00"0'1

IihH474

011602
01 )606

005262
104421

001632
002070

813612
813620

"U777
"01417

000002

165400

011622
813630
01]632
013640
0U642

032737
0"1031
042737
001027
052717

000002

001474

000002

001474

000002

001474

013650
813654
013660
013664
0U670
013674
et 3700

005262
104421
104421
004737
004737
004737
1I!l402 I

013702
813706
013710

022704
00U02
004737

000084

O13714
01372O

000137
00013 7

1114066
O141:14

001652
002076
002120

211

1!l21644
021772
022134

"ICE dtRKEFI
11

:WCE?

SIT
8NE
BIC
BNE
BIS

'BIT0,ERCODE
3S
'BIT0,ERCODE
U
'BIT0, ERCODE

IALREADY wORKING ON A wc ERROR?
'YES - IGNORE THIS ONE
IANY OTHER ERROR?
I YES • ABORT THIS FUNCTION
I SET THE wC ERROR BIT

INC
TYP"ISG

WCECN(R2)
, MSG2

I INCREMENT wCE COUNT f'OR
I THIS DRIVE

BIT
BEQ

tCu,'RKER
2.

ICSE?

BIT
BNE
BIC
BNE
BIS

'BITI,ERCODE

IS ITI , ERCODE

IALREADY WORKING ON 11 CS ERROR?
IYES - IGNORE THIS ONE
,ANY oTHER ERROR?
,YES - ABORT THIS FUNCTION
,SET THE C8 ERROR eu

INC
TYPMSG
TYPMSG
JSR
JaR
JSR
ERROR

CSECN(R2)
,MSGl
, MSG5
PC,TYPf'N
PC,C:ETINF
PC,CTSORV
21

CMP
8NE
JSR

PC,!:'ATCHK

JIo\P
JMP

CMNERR
CMNJHlT

3S
.BIT1,ERCODE

2885
2886
2887
2888
2899
2990
2891
2892

1117"16
UI
411

eil7~

IGET EXPCTD DRIVE NO.
IGET DRIVE NO. RECVD
:UNEXPECTED DRIVE NO. INTERRUPTED

~RKCS,R4

~UNDEC-ll-DZRIOi-F

DZPKHP' .Plt

PAGE 63

I4,R4

'INCPEMENT CSE COUNT f'OR THIS DRIVE
, GO TYPE OUT THE FUNCTION THAT GAVE ERROR
,SAVE DRIVE ., FOR TYPING SERIAL •
J son ERROR 011 PERFORMING A DATA
I TRANS'ER RKDA PRINTED OUT IN ERROR
,MESSAGE IS BROKEN DOWN INTO DRVE "
,CYL • SEC I, SUR.
I WAS IT A READ FUNCTION?

U
IGO CHECJ( THE DATA READ

MAC ¥II
"AI"DE:C-! l-OZRKH-F
22-o5Ei'-'I6 illS 157
DZRIOIF. PII
289)
2894
2995
2996
2997
2898
28q9

21C 1;\(6)

032777
001421

010000

013734
013742
013144
01 )752
013754

03'2737
00t05t
042737
001064
052737

01d3004

001414

003004

001414

01d0004

"01474

013762
013766

0052&2
005262

001602
001562

011172

104421

0021d62

013176
014004

032777
01'11417

Ib7740

032737

01il01cH0
000~10

2~1 ij

014096
014.a14
MJ1401€i
014024
014.a2b

1152737

000010

001474

2.19
2'12-'
2'121

014034
014040

00S2b2
1,,4421

01')1562
002104

014~44

014050

104421
004737

002120
021&44

014354
014.a60
014;»64

004737
1l1'l4737
104022

021772
022134

014066
014072
014100

105261
,122761
001411

001446
009003

\114102
014110
0141 tb
014122

052777
042777
004H7
0;1""02

010000
000020
015714

014124
014130
1:114134
filI4140
""4146
014150
014152
"14156
1'114160

005037
104421
01il4717
1'132777
001416
104416
010137
0M241
006037

0111474
002532
014334
010000

2~",(I)

2~07

2908
291'19
2910
2911
2912
2913
2'114
B1S

2916
2911

PAGE 65

SEQ 00ii
; Ir THERE WAS A HARD
IERROR DURING THE OATA
J TRANSFER ENTER HERE

013724
013732

2901
B02
2903
2904
291/1'5
290 0

34-0CT-76
13129
EXERCISER i'ROGRA"i

165266

HRDERR I BIT
BEQ

ISKE?

BIT
SNE
BIC
BNE'
BIS

'BIT2,ERCODE
C"INERR
'SIT2,ERCOOE
C"'NABT
tBIT2,ERCODE

; UREAD'! WORKING ON A SI< ERROR?
n:ES - IGNORE THIS ONE
,AN'! OTHER ERROR?
f'{ES - ABORT THIS FUNCTION
I SET THE SI( ERROR SIT

INC
INC

SI(ECN(R2)
HECN(R2)

: INCREMENT COUNT FOR SKE
ION THIS DRIVe:

TYP"'SG

, "ISGI

BIT
BEQ

11677 40 diRKER
2$

001474

BIT
SNE

iSIT3,E:RCODE
:;MNERR

: ALREAD'! WORKING ON A He: ERROR?
,YES - IGNORE THIS ONE

0"1474

~IC

#8IT3.ERCODE

Iftn£

BNF
SIS

CMNABT
IBITl,ERCOOJi;

:YES - ABORT THIS rU~CTION
I SET THE HE ERROR SIT

INC
TYPI4SG

HECN(R2)
,IoIISG4

I INCREMENT HE COUNT rOR
;THIS DRIVE

TYP~SG

JSP

, MSG5
PC,TYPFN

;PRINT 'ON DOING'
: GO PRINT OUT THE FUNCTION
;WHICH GAVE THIS ERROR

JSR
JSR
ERROR

PC,GETINF
PC,GTSDRV
22

INCB
CMPB
SEQ

CMtl~BT

: INCREMENT RETR'! COUNT
13 TRIES IN ALL?
:YE:S, ASORT THIS FUNCTION

BIS
SIC
JSR

'SITI2,IiISAVKE'!
'BIT4,IiISAVKEY
PC, CLRERR

I INDICATE HIGH PRIORITY ON RETRY
'CLE~R 'POSITIONING HEADS', IF SET
,CLEAR THIS ERROR

165214

1$1

A~1024

,,42737

'SKE,IIRKER
1$

~01037

:AN'! HE BESIDES SKE?

OTHER ER~OR1

2922
2'1'23
2924

2S1

2'1,5
2926
2927
H28
B29
29].-l
2'lJ 1

2912
2913

29J4
<915
2'lH.
H31

2HSj
2H9
2940
29t1

2H2
2943
2'141
2945
2'14&
'947
2'149

01411>4
IU4110
014174
0142""
liH4202
0142;14

006037
01'16037
0",1;037
1;\442111
104416
1'1110002

lb5426
1&5420

RETR'!(RI ,
B,RETR'!(Rt)

liT!

165052

.HH502

CMNABTI CLP
ERCODE
Tt'PMSG
.~SG27
JSR
PC,DRVAST
BIT
ISKE,IRKEP
SEQ
3$
CON .RESET
MOV
Rl,QDRV

ct.c
ROR

001502

Mil. tNOF'C-ll-DZRK!i-F
MACHI
I)ZFlKHF.Pll
22-SEP-7& 08:57
294-1
29'5"
2951
2'152
29'S 3
290;4

CMNER.IH
001446

FOR rYPING SERIAL •
:SAVE DRIVE
I HAFlD ERROR ON DOING DATA XFER

2H 1o,,6)

QDRV

04-0CT-7b
13129
EXERCISER PROGRAM

0111502
001502
001502

36 I

ICLEAR ERROR CODE
'ABORT THE P'UNCTION
,SErf( ERROR?
:NO
I RESET THE CONTROLLER
ISET DRIVE NUMBER
,CLEAR THE
BIT
I LE'F'T JUSTIFY DRIVE NUMBER

'c'

PAGE 6&

ROR
QORV
QDRV
ROP
ROR
QDRV
DRV. RESET
CON. RI!:SrT
RTI

SEQ 0079
LEFT JUSTIn DRIVE NUMBER
LEFT JUSTIn DRIVE NUMBER
LEFT JUSTIn DRIVE NUMBER
RESET THE DRIVE
RESET THE CONTROL[,ER
THIS DATA TRANSP'ER

04-0CT-76
13129
I\AINDEC-II-0ZRKH-F
MACHI 27( 1006l
EXERCISER PROGRAM
22-SEP-76 08157
DZRKHF. Pll
2955
2956
2957
2958
2959
H60
2961
2962
2963
2964
2965
2966
2967
2968
2969
29701)
2971
2972
2973
2974
2975
2976

PACE 61
SEQ 0080
I IF THERE WAS NO HARD OR
;SOFT ERROR ON DATA TRANSFt:R
IENTER HERE

001441>

014206
014212
014214
014220
014224
014226
014227

105761
001406
104421
116146
104403
002
000

014230
014234
014240
014246

005037
11'15061
042777
004737

001474
001446
010000
020714

014252
014256
014260

022704
001002
004737

017016

014264
014270
014272
014300
014302

1'122704
001011
032777
001412
052703

000002

014306

010337

014312

000407

014314
014320
014322

022704
001''11'2

000006

0~5037

001456

014326
014332

052710
000002

100000

NOEROR I TSTB
BEQ
TYPMSG
MOVB
TYPOS
.BYTE
.BYTE

002b04
001446

RETRY(RI )
1$

,MSG28
RETRY(Rl),-(SP'

CLR
CLIIB
BIC
JSR

ERCODE
RETRy(IH)
'BIT12, f!lSAVKEY
PC,STATSTC

CIolP
SNE
JSR

t4,R4
2.
PC,DATCHK

'2,R4
3$
-BIT5, raSAVKEY

100000

CMP
BNE
BIT
BEQ
BIS

IBIT15,R3

001456

MOV

R3,weFLG

CNip
SNE
CLR

.6, R4
OICFLG

:CLEAR WR CHK FLAG

BIS
RT!

'BITlS, (R0)

ISET FLAG TO INDICATE THIS
lFUNCTION IS COMPLETED

1$1

165270

000td04

ICLEAR PRIORITY BIT IF SET
lCD, COLLECT STATISTICS ON THIS
:DATA TRANSFER
;ilAS IT A 'READ' FUNCTION?
: IF IT WAS 'READ', CHECK THE DATA

2q"17
2978
2979
2980
2981
2182
29tH
29114
29A5
29116
2987
2988
29A9
2990
2991
2992
2993
2994
2995
2996
29<J7
2998
2999

000040

2$1
165236

lS:

4$1
5Sl

"I"

3all
3"14
3",,5
31,,6

: wRT CHK FUNCTION?

MACYl 1 27 (1006l
04-0CT-76
13129
[NOEC-l1-DZRKH-F
EXFRCISER PROGIUM
DZRI<HF,PII
22-SEP-76 0$ I 57
N0i1l
3001
3002
3\103
hl04
3005
3006
3007
3009
3G109
3"10
3011
3012

;WAS IT A 'WRITE' FUNCTION?
: IS ' WRT CHK' TO FOLLOW THIS
: 'WilT' FUNCTION?
;SET FLAG BIT TO INDICATE
;THAT WRITE CHECK SHOULD
,FOLLOW THIS WRITE
ISET UP wC FLAG TO INDICATE
:THE ABOVE. THE LOWER BYTE
I CONTAINS THE POINTER TO THE
:COMMANO LIST, WHICH WILL
lAE USED, FOR DOING WRITE CHECK
: IF WRITE CHECK IS TO BE DONE, DONT
: SET BIT 15 OF THE KEY TILL wRT CHK
I IS DONE

PAGE 68
SEQ 0081
:ABORT THE FUNCTION ON DRIVE POINTED TO BY Rl
:CLEAR ASSOCIATED FLAGS
,DROP THE DRIVE IF MORE THAN 8. ABORTS

014334
01431b
014342
014346
014152
014354
014356
014362
014370
014372
014376
014400
014404

010246
105061
052710
042710
010102
006302
005262
026227
003402
000137
012602
104401
000207

001446
104000
010000

001672
001672
11116220
002165

000010

DRV AAT: MaV
CLPB
SIS
BIC
MOV
ASL
INC
CMP
BLE
JMP
1 $:
MOV
TYPE
RTS

R2,-eSP)
RETPYIRI )
1104000'(P0l
.BITU. (R0)
Rl,R2
R2
ABORT (R2l
ASOIIT(R2lo 110

:SAVE R2
I INDICATE" THAT FUNCTION IS ABORTED
;CLEAR HIGH PRIORITY lIIT IF SET

DSELCT
(SP)+,R2
,!(SG10
PC

1 DROP THE DRIVE
I RESTORE R2
:TYPE "ABORTED"
,RETURN

04-0CT-76
13129
MACYl1 27CHl06)
MA l'lOEC-II-0ZRKH-F
EXERCISER PROGRAM
22-5EP-76 08157
OZRKHF.Pl1

PAGE 69
SEQ 0082

: THIS ROUTINE GENERATES THE 8 COMMAND REQUESTS AND PUT THEM IN THE QUEUE. THE
: FOLLOWING PARAMETERS ARE GENERATED RANDOMLY!
DR! VE NUMBER ON wHICH THE COMMAND WILL BE PERFORMED.
:1.
FUNCTION TO BE PERFORMED.
;2.
DISK ADDRESS - CYLINDER, SURnCE, SECTOR.
: 3.
STARTING SUS ADDRESS.
:4.
WORD COUNT F'OR OATA TRANSFER.
:5.

3017
3018
H"19
3<120
3~21

3022
30~3

HJ24
:THE QUEUE IS LOCiiTED AT 'CMND'

3025
3026
3"'27
J028
3029
3:1)0
3031
3<n2
3033
Hi 34
303'5
3036
3037
h!38
3"39
3040
]1'141
3042
3"-4l
3044
304'5
31,'46
3347
304 B
3~49

3050
31'10; 1
3il52
31'10; 3
31154
3055
300;6
31'10;7
HI 0; 8
3059
3061!l
3i!l61
3062
3063
)<l6~

3iH\5
3066
3367
3068
31'69
3070
3il71
31372

014406
014411l
014414
014416
014424
014410

1.,4407
00533 7
001025
013737
104401
0004137

014450
014450
014454
014456
014460
1014464

013746
005216
104405
004737

2114470
014476
014500
014506
014510
014512
014514
01451b
014522
014526
01453"
1'114534
014540
014544
014552
014554

032771
001422
032777
001411'1
0215727
0210001l
01'11013
005237
004737
01'10406
005037
104401
004737
2132777
",o1401
",001l0'"

01455b
014562
014566
014571'1
014572
2114574
014600
014604
1'114606
2114612
014614
014620
014022
1'114624

01'14737
012700
2110004
005001
011(!l120
0627211
022701
001372
0121210
2110005
012101
005020
<105201
001375

~"0131

0112056
001236
014432

001100

0211124
022612
00~401'1

164442

000001

164432

3"~"

3081
].lR 2
30ij3
3084
]085
hlq6
3087
HlS,j
Ng9
Hl90
3091
3092
3091
3"94
]1l9r;
3"96
3"97
31'19~

3"99
3100
3101
311'12
3\03
3104
3\05
31 ill!>
JI :>17
3108
31\,9
3! 13
3111
]112

3113
31 t4
3115
3\ 16
3111
H18
J 119

31 '2"

3121
3122
Jl23

H24
3125
3! 26
3127
3128

1 $1

7S:
2114512
026556
1'114512
0211213
21211'124
001>040

8S:

164366

2$ :

2122564
001306

4$ :

5$ :
0li10400
01/140021
0211326
171740
6S:

"'1\ I'lOE:C-l1-DZRKH-F
MACYll
DZRKHF .Pll
n-SEP-76 08: 57
3 .. 73
3071
3<)75
)076
3077
3078
W79

1102056

GEN8RQI CKSWR
DEC
SNE
MOV
TYPE
BR
: 165S I
• 'SC I Z
646 :
MOV
INC
TYPOS
JSR
JMP

1<114626

21<14737

015676

014632
014640
014642
014644
1114646

1)22137
301002
2105000
001'1420
004137

0100001

27C100b)

001264

GENt:

:DECREMENT REPETITION COUNT
:CONTINUE IF' NOT 0
:REESTABLISH REPETITION COUNT F'OR EXERC ISER
: ITYPE ASCll STRING
:, GET OVER THE ASCll
PASSI

$PASS,-(SP)
(SP)
PC,REPSTAT
SEOP
#SW8,IiISWR
2$
#Sw00,@SWR
8S
(PC )+
21
2$

BEQ
BIT
SEQ
TST
.WORD
SNE
INC
JSf!
fiR
CLf!
TYPE
JSR
BIT
BEQ
HALT

PC,TIMTYP

JSR
MOV
MOV
CLR
MOV
ADD
C'IP
BNE
MOV
MOV
MV
CLR
INC
SNE

PC, CHDPRS
'KEY, R0
R0,R4
Rl
RI, (R2I)+
H00,Rl
#4001l, Rl
5S
.CMND, R2I
R3,R5
.-40,Rl
(R0) +
RI
6.

7S
2&
7$
, SCRLF
PC,REPSTAT
tSw5,@SWR

04-0CT-76
13: 29
EXERCISER PROGRA"I

22$:

025504

BIT

REPCNT
1$
PCNTR,REPCNT
,65s
1)4$
<15><12>/END OF

(TO ·CMNDS·).

; SWITCH 0 SET ?
:SR IF NOT
:CHECK INDICATOR
;TYPE TIME INDICATOR
: SR IF TIME ALREADY TYPED
,INCREMENT THE INDICATOR
;TYPE THE TIME (IF swR 03 SET)
;CONTINUE
;CLEAR THE INDICATOR

; HALT?
:NO
:YES, PRESSING CONTINUE RESUMES PROG EXECUTION
; CHECK IF ANy DRIVES PRESENT

; CLEAR THE 8 COMMAND KEYS
:SITS 9,9,10 INDICATE THEIR
IPOSITION 0,1,2,3,4,5,6,7
:CLEAR THE PARAMETER TABLE
: FOR THE 8 COMMANDS IN
: (8X4) WORDS IN ALL

PAGE 710

JSP

PC, CLRF'LGS

C'IP
BNE:
CLR
ElR
JSR

# 1, DRVPRS
22$
R0
3$
PC, SRAND

0146'52

025636

014054
1014661'1

013746
0(1)5046

0751)40

MOV
CLR

RSORVH,-(SP)
-(SP)

014662
014666
2114672

313746
01'14137
005126

Pl01521?
0251210

MOV
JSR
rST

DRMIIP,-(SP)
PC, ~I$DIV
(SP)+

014674
014676
014702
0141214
014706
014712
0141221
1'114724

012600
2120037
01'111001
00531'10
1105037
116037
11<>5737
101'1016

MOV
CMP
ElNE
DEC
CLR
MOVe
TST8
BPL

(SP)+,R3
R0,DRVPRS
3S
R0
QORV
PDR(R0) ,QDRV
QORV
32$

2114726
014734
314742

BlCB
BITB
P.EQ

I i ,QDRV

SEQ 10083
:CLEAR THE FLAGS PERTAINING TO THE 8
:COMMANOS IN THE Q
:R4 CONTAINS "KEY'
: R5 CONTA INS 'CMNO'
:ONLY 1 DRV PRESENT?
;1'10
:YE5
:GENEHATE A RANDOM NUMBER
:GET A RANDOM DRIVE NUMBER
:FROM THE AVAILABLE DHIVES

RSDRVL

001264

3S:

21111502
0111254
001532

01'11502

142737
132737
01'11404

0<11021'10
000001

00151'12
001502

2114744
014750
014752

005737
01/11730
000403

015b32

014754
2114 760

005737
001332

0151>32

014162
014166

01<>4737
025642

~25534

1014170
014774

III 3746

1"14776
015002
015006

'200,QDRV

:PUT LOW DIVIOEND ON STACK
;CLEAR HIGH DIVIDEND AND PUSH
:IT ON STACK
: PUSH DIVISOR ON STACK
:GO TO THE 'DIVIDE' SUBROUTINE
:OISCARD THE REMAINDER. QUOTIENT IS
:NOW ON TOP OF THE STACK
: MAKE SURE CORRECT MAPPING IS DONE
:'GlDRVE' CONTAINS RANDOM DRIVE NO.

: TEST IF TYPE F DRIVE
: NOT IF POSITIVE
:CLEAR THE FLAG BIT
:000 OR EVEN DRIVE ADDRESS

31S

TST
SEQ
BR

OOOEVN

31$:

TST
SNE

ODOEVN
22$

:MUST HAVE BEEN AN EVEN ONE
I NO GOOD - TRy AGAl N

32$ :

JSR
RSFUNL

PC,SRAND

: GENERATE A RANDOM NUMBEJ'{

025b44

MOV
CLR

RsrUNH,-(SP)
.. (SP)

PlIH46
004737
005726

001521>
025120

MOV
JSR
TST

FN~AP,-(SP)

015011'1
015014
015016
015020

021627
001001
005316
012631

0100003

CMP
BNE
DEC
MOV

(SP),13
20S
(5P)
(SP)+,QFNC

: PUT LOW DIVIDEND ON STACK
'CLEAR HIGH DIVIDEND AND PUSH
:IT ON STACK
; PUSH DIVISOR ON STACK
:GO TO THE 'DIVIDE' SUBROUTINE
IDISCARO THE REMAINDER. QUOTIENT IS
: NOW ON TOP OF THE STACK
: MAKE SURE CORRECT FUNCTION IS SELCTD

015"24

004737

025504

JSR

PC, 'RAND

0~5046

001512

20S:

GE~l

: MUST HAVE BEEN AN ODD ONE
,INSURE THAT ODDS WHAT WE WANT

32S

PC,USDIV
(SP)+

; THE FUNCTION THAT CAN BE PERFORMED
: GENERATE A RANDOM NUMBER

04-0CT-76
MACYlt 27(1006)
13129
EXtRC I SER PROCRAM
22-SEP-76 08157

~!~.tNOEr.-l1-0ZRJ(Il-F

DZRKHf,Pl1

PAGt 71
/iEQ 0084

RSCYLL

3129
31 )0

'''50311l

025646

1\31

015032
015036

III 11 74 Ii
005046

025650

MOV
CLR

RSCYLH,-CSP)
-CSp)

015040
015044
015050

1/l13741i
004737
005726

001522
025120

MOV
JSR
TST

CYL"lAP,-CSP)
PC,U.DIV
CSP)+

1/l12631

001504
001313

31 )2

1133
1134
3135
1136

31)7
3US
3119
3140
3141
3142
3143
lt44
3145
3146
3147
3148
1149
1150
3151
3152
3153
3154
3155
3156
3157
1I58
1159
3160
1161
3162
3163
1l1i4
1165
3166
1167
3168
3169
3170

015052
015056
815064
015066

8:r2737
801002
085337

881504

CSP)+,QCYL
'31l,QCYL

U
QCYL

,'QCYL' CONTAINS RANDOM CYLINDER NO,

lPUT LOll DIVIDEND ON STACK
'CLEAR HIGH DIVIDEND AND PUSH
,IT ON STACK
,PUSH DIYISOR ON STACK
,GO TO THE 'DIVIDE' SUBROUTINE
:DISCARD THE REMAINDER. QUOTIENT IS
,'tOW ON TOP OF THE STACK
, (8ETWEEN 0-1)/8)

015072
015072
015816

813746
005046

025650

MOV
CLR

RSCYLH,-(SP)
-esP)

015100
015104
015110

0U146
004737
005726

001524
025128

MOV
JSR
TST

SECMAP, .. (SP)
PC,U'DIY
esP)+

1515112
015116
015124
015126

012637
022737
001002
005337

001511!J
000814

MOV
CMP
8NE
DEC

(SP)+,QSEC
'14, QSEC
5S
oStc

015132
015140
015142

022737

077777

025650

008020

001501i

CMP
BHZ
MOV

n7777, RSCYLH

O1515O
015152

805001
000404

015154
015160

805037
IU2701

00l5111l

001510
5"

1010115

012731

Ii.:

1Il01506
e00014

3111
3174

3175

3193
3184

'BIT4,QSUR

CLR
8R

CLR
MOV

QSUR
1114,Rl

3U5
1187

3188
ltA9
BIl0
1191
3192
1193
1194
119!
3196
3197

1198

001!l311l1i

,.,

015164
015172
015174
015200

021727
002303
012701
000431

001504
177777

881

IoI152e2
015206
""5212

012700
163700
06111001

000014
301510

CNP
BGE
MOV
BR

QCYL,Ue6
9s
U77777,Rl
21$

MOV
SUB
ADO

QSEC,R@
R0,Rl

H4,~0

"15214
01!1220
815224
015230
015232
015236
015240
1'15242
815244
01!1250
0!!2!2
815256
10115260
015262

111:170)
16]703
812746
010346
004?17
11112616
012601
168101
112146
010146
004731
1112616
812603
1iH0301

MOV
SU8
NOV
MOV
JSfI
NOV
MOV
ADD
MOV
MOV
JSR
MOV
MOV
MOV

000112
001!114
000830
025086

000480
8251106

'312,R3
aCYL, Rl
'l0,-UP)
R3,-(SP)
PC,fUNULT
(SP)+, (SP)
(SP)+,R)
Rl,R)
"'8,-eSP)
R3,-(SP)
PC''',MULT
(SP)+, (lP)
(SP)+,R3
R3, R1

2UI

825654

MOV
CLP

RS8AH,·CSP)
-CSP)

013746
004737
005726

001530
025120

MOV
JSR
TST

BAMAP,-(SP)
PC,tI'DIV

015312
015316
015322

012617
006337
063737

001!114
01!11514
0020!52

MOV
ASL
ADD

(SP)+,QBUSAD
QBUSAD
BASESA, QBUSAD

015330
015334
01!1)40
815)42
01 !I 144

811703
163703
000241
1!11!1611@1
010302

002054
001514

MOV
SUS
CLC
ROR
MOV

MAX8A,R)
QBUSAD, R)

,FORM THE RANDOM 8US-ADDRESs
,BY ADDING flANOOM OFrSET TO
I THE BASE 8US-ADDRESS
,COMPUTE • or WORDS THAT
: CAN BE TRANSFERRED, USING THE

R3
R),R2

, ABOVE GENERATED BUS-ADDRESS WITHOUT
,CAUSING A NXM

1115346
iH5350

1/1 232 IJ1
tIIJ 141/1 1

CMP
8LO

R2,Rl

015352

310183

MOV

Rl, II)

'SELECT SMALLER or THE TWO
,WORD-COUNTS THAT WILL BE
: USED FOR GENERATING A RANDOM
,IIORD COUNT)

025584

015272
015276

013741i
805046

015300
1115304
015310

@@1514

lUI

(5.)+

111

~~p

'PUT LOil DIVIDEND ON STACK
:CLEAR HIGH DIVIDEND AND PUSH
: IT ON STACK
J PUSH 0 IV ISOfl ON STACK
,GO TO THE 'DIVIDE' SUBROUTINE
,DISCARD THE REMAINDEP. OUOTIENT IS
,NOW ON TOP or THE STACK
lBP.: USED

IR] CONTAINS THE MAXM WORD COUNT
'POSSIBLE. COMPUTE THE IIORO COlJIl'f
'MAPPING FACTOR FflOIol THIS.

118:

015354

1233

32)8
3239

I COMPUTE "'AXN WORD COUNT BASED ON
,AVAILABLE MEMORY SPACE.
,GENERATE RANDOM NUMBER

PC,.RAND

804737
025652

3230

3234
32)5
3216
l217

5~Q

,COMPUTE' OF' SECTORS AVAILABLE
J BEYOND THE CYLINDER SELECTED
I I PUT THE MULTIPLER ON THE STACK
, I PUT THE MULTIPLICAND ON THE STACK
IICALL THE MULTPLY ROUTINE
, ,DISREGARD THE MSB'S
"GET THE LSB'S OF' THE PPODUCT
,COMPUTE TOTAL C or SECTORS AVAILABLE
"PUT THE ,",ULTIPLER ON THE STACIC
"PUT THE MULTIPLICAND ON THE STACK
,'CALL THE MULTPLY ROUTINE
"DISREGARD THE NSB'S
"GET THE LSB'S or THE PflODUCT
,COMPUTE TOTAL • or WORDS-SPACE
,AVAILABLE ON DISI( rROM THE SELECTED

JSP
RSBAL

015264
015270

32t1

3231
3232

; IS THE RANDOM CYL • GREATER THAN 306'
,IF YES, MAKE SURE THAT THE
P'ORD COUNT IS SELECTED PROPERLY
,COMPUTE MAXM WORD COUNT BASED ON
:AVAILA8LE DISK SPACE
,COMPUTE t or SECTORS AVAILABLE ON
,CYLINDERS SELECTED

,cn •

]281

3218
3219
3220
3221
3222
3223
3224
3225
3226
)227
3228
3229

rSURFACE III
/14 SECTORS ON SUR 0

PAGE 72

1199
3200
3202
3203
3204
3205
3206
3207
3208
3209
3210
3211
3212
3213
3214
3215
3216

/SURFACE 1
J Rl CONTAINS THE MAX", WORD COUNT BASED ON
:AVAILABLE DISK SPACE.
,R2 CONTAINS THE MAXM WORD COUNT BASED ON
, AVAILABLE MEMORY SPACE.

13129
04-0:T-76
MAINDEC-l1-DZRICH-F
MACYll 27C 100lil
DZRf(HF,Pl\
22-Sf;P-H 118.57
EXe:flC!Sr;fI PROGRAM

1186

:SELECT SURFACE • RANDOMLY

iii

3180
3181
]182

,'QSEC' CONTAINS RANDOM SEC

:ASSUJoIING THU ENOUGH MEMORY IS AVAILA8LE THE MAXIMUM TRANSFER THAT CAN
:TAKE pLACE IS 201< WORDS. IF THE RAMDO,", CYLINDER • > OR • TO 307 AND THE
,SURFACE IS 1, CHANCES AFtE THAT THE NUN8ER or WORDS TO 8E TRANSFERRED MAY
IN THAT CASE, THE WORDS
,BE GREATER THAN THE SPACE AVAILABLE ON THE DISK.
:COUNT IS TO BE SELECTED IN SUCK AwAY THAT THIS OVERFLOW DOES NOT OCCUR.

1171
1172

3176
3171
11 '78
31H

MOV
CMP
8NE
DEC

001504

,PUT LOW 0 IV I DENO ON STAC K
:CLEAR HICH OIVIDtND AND PUSH
~ IT ON STACK
:PUSH DIVISOR ON STACK
,GO TO THt 'OIVIDE' SUBROUTINE
:DISCARD THE REMAINDER. QUOTItNT IS
,NOW ON TOP OF THE STACK
,(FROM 0-3U)

015354

015361/1

812746
1!I1Il50U

U5lli2
015364
015370

010346
1'!@4711
lIlil5726

177777

02512;,

MOV
CLR
MOV
JSR
TST

U77777,-(SP)
-UP)
R],-(SP)
PC, UIDI'l

(SF,.

'PUT LOW DIVIDEND ON SUCK
'CLU~ HIGH DIVIDEND AND PUSH
,IT ON STACK
,PUSH DIVISOR ON STACI(
,GO TO TilE 'CIVIDE" SLlBROUTur;
~ DISC "PO THI': REMIl.INDER. QUOTIENT IS
r,1fC* eN 1"° ",:r:- !HF, ·~~'!fI,Ci,~

1!1085

04-0CT-76
13129
MACYlI 27(1006)
IIA INOEC-l1-DZRKH-F
E:XERC rSER PROGRAM
22-SEP·76 08157
DZRKftF". PI 1

PAGE 73
SEQ 0086

INC
MOV

(SP)
(sP)+,WCMAP

: WORD COUNT MAPPING FACTOR

3241
1242
3243

015372
015374

0.,5216
012637

001532

3244

015400
015404

~04717

02551114

PerSRUID

lGENERATE A RANOOM NUMBER

025656

JSR
RSWCL

015406
015412

013746
005046

025660

MOV
CLR

RSWCH,-(SP)
-(SP)

015414
01542'"
015424

011746

001532
"'25120

MOV
JSR
TST

WCMAP,-(SP)
PC,tU$DIV
(SP)+

lPUT LOll DIVIDEND ON STACK
:CLEAR HIGH DIVIDEND AND PUSH
I IT ON STACK
:PUSH DIVISOR ON STACK
:GO TO THE 'DIVIDE' SUBROUTINE
,DISCARD THE REMAINDER. QUOTIENT IS
: NOW ON TOP OF THE STACK
: 'QWRCNT' CONTAINS THE RANDOM
, wORD COUNT THAT WILL BE USED
: MAKE SURE THE WORD COUNT IS
:NDT 0
:TUE CARE Of' ZERO liND NEG NMBRS

3245
3246
1247

n4R
32~9

32S.,
1251
320;2
3253
32S4
3255
320;6
320; 7
32'58
3259
326"
3261
3262
3261
3264
3265
3266
3267
3268
3269
3270
3271
3272
3273
3274
3275
3276
3277
3278
3279
3280
l2Rl
J2~2

329 }
32B4
3295
32q6
3lR 7
3 28~
3 2q ~

",M7J7
01:15726

.,15426

012637

001516

"OV

(SP)+,QwRCNT

"'15432
015436
IH5440
015444

11105737
003004
005437

0015\ 6

TST
BGT
NEG

1!1545~

113700
000241
006000
006000
006000
006000
013701

QWRCNT
12S
QwRCNT
OWIICNT
QORV,R0

015454
015456
"15460
015462
~15464

1-115466
015472
015414

~05237

INC
12$ :

001504

~"';H01

01550"
015502
015504
015506
015512
015516

000241
006001
006001
0i/16001
050100
053700
053700
010025

015520
015526
IiH55}1:1
015532
015536
015544
015546

022737
001412
003014
012725
023721
101010
052714

~15476

0,H516
001 '516
001502

0"'1 5! 1:1
001506

000001

000002
025660

c..,p

001512

1$:

077177

0001040

:POSITION THE DRIVE NUMBER IN
:aITS 15"4.13

,POSITION THE CYLINOER NUMBER
: IN eITS 12-5

PI
PI
111, R0
OSEC, R0
QSUfI,R0
RiI, (R5)+

H,OFNC
28
14$
'2, (R5)+
RSIIICH.n7717
ISS
.BIT5, (R4)

: READ FUNCTION CODE

14$:

MOV

H2, (R5)+

:REAO CHECK FUNCTION CODE

15S:

MOV

QilReNT, (R5)
(R5) +

; INSERT THE wOPD COUNT (RKWC)
; (2'S COMPLEMENT)

2$ I

3292
J293
32<H

015562

012725

0"'l:1e12

015566
015572

013715
01:15425

01H516

NEG

04-0CT-76
~:XERC 1SEH

13129
PROGRAM

PAGE 74

'lClV

QBUSAO,( 115)+

3~91

"15574

013725

0.,1514

3299
l29;l
3300
33011
3H2

015600

053724

001502

BIS

QOIlV, (R4l+

015604

02Vl421

10.,1326

CMP

R4,IKE.Y+2"

015611:1
015612

~~1402

000137

014632

BEQ
J"lP

GENI

015616
015622
015630

0"'52}7
042731
030207

0156H
177776

015632

"''''000(11

16$ :

lH3
13'~5
H-;jl>

33",9

BH3

17$:
015632

INC
BIC
RTS

3311

Bl..!

ODOEVN I

SEQ 0"'87
INSERT THE BUS ADDRESS (RKBA) FOR
THIS COMMAND IN TltE PARAMETER
TABLE
SET THE DRIVE NUMBER INSIDE
THE KEY FOR THIS COMMAND
GENERATED 9 COMMANDS IN
THE ~UEUE?

178

33<11
33",8

;READ
, READ CHEC'"
p~RITE FUNCrtON CODE
:SHOULD WRITE CHECK BE ~ONE
;Af"rER THE IIIRITE?
;SET FLAG IN KEY TO INDICATE
~ THU WRITE CHECK SHOULD BE
lOONE FOLLOwING THE IIRITE

15$

000004

H\i4

,R0 CONTAINS THE COMPLETE DISK
:ADORESS
: INSERT RKDA IN THE PARAMETER TABLE
, (FOR THE 8 COMMANDS)
: WHICH FUNCTION?
:0-READ CHECK, I-READ, 2-WRITE

14, (RS)+
lSS

012725
000402

~A 1 NDEC-II-DlRKH-F'
MACYlI 27(11:106)
22-sf'p-16 08157
IlZ!<KHF'. pi!

RZI
ROil
R"
OCVL, P.l
111

MOV
SR

000405

015554
015560

32'1"

BEO
BGT
MOV
Cr-!P
BHI
BIS

II~

Bf<

015552

3290
)2'11

3195

MOVIl
CLC
1I0R
1I0R
ROt<
ROR
MOV
SWlIB
CLC
ROR
ROil
POR
BIS
BIS
BIS
"'OV

OODEVN
117777b,ODDEVN
P~

IF' NOT, GO BACK AND GENERUE
THE NEXT COMMIIND AND THE
PAIiAHETEIIS (RKWC, BA, DA)
CHANGE f'ROM ODD/ENEN TO EVEN/ODD
KEEP ONLY ONE BIT
ALL B COMMANDS HAVE BEEN
GENEIlA TEO IN THE TASK-QUEUE

MAINOEC-ll-DZIII(H-F
MACYl t
OZIIKHF.Pll
22-SEP-76 08157

27(1006)

3324
3325
3326
3327
3328
3329
3330
3311
1332
1H3

PAGE 75
SgQ 0088

~ENTER THIS CODE Ir SW 9 HAS 8EEN SET AND LOOPING HAS TO 8E DONE ON ERROR
; CONTROL IS TRANn:RPED TO THIS, ON RETURN FROM THE I!:RROR HANDLER 'SERROR' •

3113
3314
HI5
3116
3317
33\8
HI9
3320
3321
3322
3323

04-0CT-76
13129
EXE:RC ISER PItOGRAM

015634

004737

015640
015642
015646
015652
015656
015660
015662

010146
012701
042721
020127
001373
012601
004737

015666
015672

012706
000137

015714

EXCRLUP: JSR

PC ,CLRERR
Rl, -(SP)
'KEY,RI
'114220.(Rl)+
Rl, IKEY+20

015676

foIOV
MOV
BIC
CMP
BNE
MOV
JSR

0011"'0
010556

MOV
JMP

'STACK,SP
QMNGER

001306
114220
001326

1$1

; WA IT rOR OTHER DRIVES TO GET DONE
:THEN ISSUE A CONTROL RESET
:CLEAR OUT THE COMMAND-KEYS

1*
(SP)+,Rl
PC,CLPFLGS

;CLEAR OUT THE VARIOUS FLAGS PERTAINING
I TO THE 8 COMMANDS IN THE Q
:REESTABLISH STACK POINTER
J START OVER AGAIN, PROCESS THE COMMANDS
;IN THE Q AGAIN. NOTE THAT ON LOOPING
; (ON EROP, WITH SW 9) AN ATTEMPT IS MADE
: TO RECREATE THE SET OF EVENTS WHICH LED TO
:ERROR.

H34
33]5
3336
3337
3338
3339
334'"
3341
1342
1343

3144

I CLPF'LGS
:THIS ROUTINE CLEARS OUT THE VARIOUS FLAGS USED FOR THE 8 COMMANDS IN THE QUEUE.
015676
015702
015704
015710
015712

012700
005020
020027
001374
000207

001426

CLPFI.,GSI
1$1

001462

lolA J NOEC-1 I-DZ~KH-F
MACYlI 27C 1006)
DZRIOlF". Pl1
22-SEP-16 08: 57
3345
3346
3347
3)48
3H9
33'50
13'51
33'52
3353
3354
31'55
3356
31'57
33'58
33'59
3360
3361
3362
3363
3364
3365
1366
3367
H6'3
3369
3370
3371
3172

3373
3374
3315
1376
1377
H18
3319
3180
33111
)392
3383

3384
3185
3396
3397
3388
3399
3390

3391
3192

"OV
CLR
CMP
8NE
RTS

04-0C:T-76
EXFRCISE~

'8USY,R0
(R0)+
R0,'QSCNT+2
1$

;CLEAR THE 8 8USY FLAGS
JALL OONE?
;NO

13: 29
PROGRA"

PAGE 7b
SEQ '11089

:CLRERR
ITHIS 1I0UTINE IS ENTERED WHEN A HA~D ERROR HAS OCCURPED AND IT HAS TO
ICLEARED.
THE DR HES THAT HAVE 8ElN BUSY ARE CHECKED TO SEE IF THEIR
;RaY BIT HAS SET.
WHEN RIWIS IS SET, CHECKING IS DONE FOR ANY ERROR.
: EPROR OCCUREO IT IS REPORTED, IF NOT, APPROPRIATE FLAGS ARE SET AND
:CLEARED rop THAT DPIVE. AFTER AlSOVE IS DONE rOR ALL DRIVES THAT HAVE
:SEEKING, A CONTROL RESET IS ISSUED TO CLEAR THE HARD ERROR.
015714
1115711>
015720
01'5722

010446
1'Jl0546
00500'5
1I!05077

015726
015732
015734
1'115740
015746
015750
015754
015756

105765
100035
00511!37
032717
1I!01015
005237
001371
004737

015762

104004

015764
015772
015774

032717
001403
004737

016011!0

104016

916002
016006
016012

116504
042704
01>2704

001426
1777611
001306

016016
016022

042714
105065

010000
001476

016026
1116034
1'116036
016042

1'162777
005205
022705
001331

016044
016050
016052
016054
016056

0047 37
104416
11!12605
012604
000201

CLRER~ I

MOV
MOV
CLR
CLR

R4.-(SP)
R5,-(SP)
R5
flRKDA

;SAVE R4, R4 ON THE STACK

1$1

TSTB
BPL
CLR
BIT
BNE
INC
8NE
JSR

8USY(R5)

;ilAS THIS DRIVE 8USY SEEt<ING?
;NO

163311!2
001426
001472
000100

163250

2$1

001472
022130

4$
TIMER
UIWS.flRKDS

lS
TIllER
2$
PC, RG4SDP

163224

022130

020000
0000\0

020246

lS:

163174

4$1

BEEN

,R/W/S SET?
IYES
; KEEP TIME
pl/AlT FOR RIWIS ROY
;GET PKCS, ER, OS, Oil AND DRIVE. FOR
: TYPING SERIAL DRI VE •
:R/il/S READY DID NOT
;FOR THIS DRIVE, WAITED LONG ENOUGH.
;SIN ERROR ON THIS DRIVE?

ERROR
001000

BE
RlwlS
U" A

BIT
BEQ
JSR

f1SIN.@lRKDS
PC,RG4SDR

ERROR

MOVB
BIC
ADD

BUSY(PS),R4
U77760,R4
IKEy,R4 ,BUSY

: FORM THE ADDRESS OF THE
:KEY WHICH MIIOE THIS DRIVE

BIC
CloRB

110000, (R4)
BUSY(R5)

; CLEAR HIGH PRIORITY BIT, IF SET
;MAKE THIS DRIVE FREE, AVAILABLE

ADO
INC
CMP
BNE

'20000, flR!<DA
R5
H0,R5

: ADDRESS THE NEXT POSSIBLE DRIVE
; INCREMENT COUNT
; ALL DONE
;NO

JSR
PC,CRCMND
CON. PESEI
(SP)+,R5
MOV
poIOV
CSP)+,R4
RTS
PC

;GET RKCS, ER, OS, DA AND DRIVE • FOR
;TYPING SERIAL DRIVE.
ISIN OCCURED ON THIS DRIY!!:

ISAVE INFO ABOUT THE PAST' PRESENT COMANO
, RESTORE R4,R5
: RETUR~

MAINDEC-ll-DZRKH-F'
MACYll 27(1006)
04-0CT-76
13129
DZRKHF'.Pil
22-SEP-i6 08157
EXERCISER PROGRAM
3393
3394
3395
3396
3397
339B
3399
3400
3401
3402
3401
34114
3405
3406
HIP
3408
3409
3410
3411
3412
3 4 11
3414
3415
34i I)
H17

PAGE 77
SEQ

016060
016066

017737
004737

163144
015714

01H516

CLRSIN: MOV
JSR

i!lRKDA.QWRCNT
CLRERR

016072
016100
016104

013777
004737
012777

001516
020222
000015

163130

MOV
JSR
MOV

QwRCNT,fiIRKDA
PC.DRCMND
#15,i!IRKCS

016112
016114
016120
016126
016130
316134
016136

104417
005037
032777
f'l01015
005237

163111'1

001472

CON. ROY
CLR
BIT
BNE
INC
8~JE

1d22130

JSfl

PC, RG4SDR

001472
000100

163070

1 S:

oe1371
0\!4737

P::,

TIMER
IRwS. r.JRKDS

3423

016142

104004

016144
016152
016154

032777
001403
004737

016161d

104016

016162
016166
016170

01'14737
104416
000207

1&3044

022130

BIT

'SIN,(iRKDS

SEQ
JSfl

PC. RG4SDR

ERROR

2& :

1'120246

MAINOEC-ll-DZRKH-f
MACYlI
DZRKHf.Pll
l2-SEP-76 08157

27(1006)

3432
3433
3435
3436

3417

3447
3448
H49
34<;0

fOR

JSR
PC.CRCMND
CON. RESET
PC
RTS

04-0CT-76
13:29
EXERCISER PROGIUo'4

:GET RKCS, ER, OS, DA liND DRIVE. FOR
:TYPING SERIAL DRIVE.
:A DRIVE RESET 1'1115 DONE ON THIS DRIVE
:TO CLEAR 'SIN', BUT 'SIN' DID NOT GET
:CLEARED
:SAVE INFO ABOUT THIS COMMAND
100 IT TO CLEAR OUT MASK F/F'S
;EXIT FROM THIS ROUTINE

PAGE 78
SEQ 0091

:SINCN!
:THIS ROUTINE IS ENTERED \'IKEN A 'SIN' ERROR OCCURS.
THE 'SIN' COUNT FOR
:THE DRIVE GIVING 'SIN' IS INCREMF.NTED.
IF MORE THAN 5 'SIN' ERRORS
:OCCURRED THE DRIVE IS DESELECTED.
AT THE TIME OF ENTRY Rl CONTAINS THE
:DRIVE NUMBER THAT GAV!!: 'SI~' ERROR.
:CALL:
JSR
PC.SINCNT
RETURN HERE IF SIN COUNT (MAXIMUM ALLOWABLE)
WAS EXCEEDED.
RETURN HERE I f TOTAL SIN COUNT LESS THAN MAXIMUM
ALLOWABLE.

34H

3438
14]9
3440
3441
3442
3443
3444
3445
H46

; GET RKCS, ER, OS, Oil AND DRIVE •
:TYPING SERIAL DRIVE I
;R/W/S ROY DID NOT SET liFTER
IDOING DRIVE RESET. TIMED OUT

3424
3425
3426
1427
3429
3429
3410
3431

:WAlT FOR R/W/S ROY TO SET

ERROR
001000

;SAVE DISK ADDRESS
:GO, WAIT FOP OTHER DRIVES TO COMPLETE:
: THEIR SEEKS (IF THEY ARE DOING ANY)
:THEN 00 CON.RESET TO CLP THE ERDR.
:ADDRESS THE DRIVE AGAU
;SAVE INFO ABOUT THE PAST" PRESENT COMAND
;00 DRIVE RESET ON THE
; DRIVE
:INDICATED IN RKDA

TIMER

1418
341Q
3420
1421
3422

~090

:CLRSH!
:THIS ROUTINE IS ENTERED WHEN TH!RE IS A 'SIN' ERROR.
AT TIME OF ENTRY
:RKDA CONTAINS THE DRIVE' THAT GAVE 'SIN'.
A DRIVE RESET IS OONE ON THAT
:DIHVE.
1>.FTER IT IS DONE. ROUTINE 'CLRHE' IS ENTERED, TO WAIT FOR THE
:OTHER DRIVES THAT HAVE SEEN DOING SEEKS.
WHEN ALL THE ORIVES GIVE
,'R/f//S ROY', A CONTROL RESET IS DONE. RETURN IS MADE BACK TO THIS
:ROUTINE-'CLRSIN'- AND FINALLY ::ONTROL IS TRANSFERRED BACK TO THE MAIN
:PROGRAM.

016172
016176
016204
01620&
iH6212

105261
122761
101403
Ql62716
01'10207

001622
000005

016211

000137

it11b220

SI'lC'lTI
001622

000002

1 $:

INCB
eMPB
BLOS
ADD
RTS

SINCN(Rl)
#S.SlNCN(lH)
IS
-2. (SP)
PC

JMp

DSELCT

: INCREMENT 'SIN' COU,,! FOR THIS DRIVE

:5 ERRORS OCCURRED?
:YES
: ADJUST PC FOR RETURN TO THE RIGHT POINT
,RETURN
:5 ERRORS OCCURRED, GO DESELECT

toIAINDEC-ll-DZRKH-,.
MACYll 27(1006:
IU-OCT-76
131~9
22-SEP-H 08157
EXERCISER PROGRAM
DZRKHF. Pll

0,.

3451
3454
3455

1456
3457

3458

3473
3474
3475
3476
3477
3478
3479
3480

3481

SEQ 0092

IDSELCT
,THIS ROUTINE Is ENTERED IIHEN A DRIVE Is TO BE DESELECTED (TAKEN
,OUT
SELECTION LIST), BECAUSE THE "ATAL ERRORS ON THAT DRIVE
,HAS RUCHED Ii MAXIMUM COUNT.
Rl CONrAlHS THE DRIVE NUMBEII THAT
,TMA'!' IS TO 8!: DESELECTED. THE l>RIVE IS DESELECTED IF 1. TOTAL SIN COUNT
,FOR THAT DRIVE RUCHES TilE MUIMUM ALLOWABLE 2.IF
A P'ATAL ERIIOR
,LIKE DRIVE UNSAFE, DRIVE POWER LOW OCCURS.
3. IF WPS GETS SET, OR !lRY
,IS CLUR.

3451
3452

3459
3460
3461
3462
3463
3464
3465
3466
3467
3468
3469
3470
3471
3472

PAGE 79

016220
916224
016230
016234
016236
016240
016244
016246
016~50

016252
016254
016256
016260
016264
016266
016270
016272
016274
IU6300
016302

012705
013702
062702
005205
1115IU
042703
020301
001403
020502
103770
900472
111502
020527
00\406
010504
005205
112524
922704
001374
105065

001253
001264
001253
177600

DSELCTI MOV
MOV
ADD
HI
INC
MOVB
BIC
CMP

eEQ

001264

2$1
5'1

381
001263
177777

411

CMP
BLO
BR
MOVB
CliP
BEQ
MOV
INC
MOVB
CMP
BNE
CLRB

'PDR-l, R5
DRVPRS,R2
IPDR-l,R2
R5
(R5),R)
'171600,1'13
R3,Rl

,NUMBER OF DRIVES BEING TESTED
,FOR END ADDRESS OF TABLE
,LOCATE THE DRIVE (TO BE
,DESELECTED) IN THE TABLE
,DROP THE r FLAG
,IS THIS THE ONE
;CON'UINItIG AVAILABLE DRIVES
,FINISHED?
IBR I ' NOT
;DRIVE "AS NOT FOUND IN TABLE, EXIT
,GET THE DRIVE NUMBER
; IS THIS DRIVE • THE LAST ENTRY IN TAPLE?
IYES

RS,R4
115
(R5)+, (R4)+
'PDR+7,R4

; IF NOT, TAKE OUT THIS DRIVE. FROM
; THE MIDDLE AND PUSH UP THE
,REST OF THE ENTRIES

U
-I (1'15)

ICLEAR LAST EIITRY IN TABLE

1'15,1'12

11
111
C1I5)'R2
RS,JPDR+10

341J2

3481
3494
3495
3486

JTHE DRIVE • T'tPED OUT WAS DESELECTED
,BECAUSE ERROR COUNT EXCEEDED THE
,MAXIMUM ALLOWABLE
,TYPE • DRYE DROPPED·
,PUSH DRIVE NUMBER ON STACK
I TYPE IT 011 THE TERMINAL

016306
916312
016314
1116316
016317
016320

104401
0U146
104403
001
000
004737

002336

026664

TYPE
MOV
TYPOS
.BYTE
.BYTE
JSR

3493
3494

916324

005]]7

081264

DEC

DRVPRS

3495

016330

004737

022564

JSR

PC, CHDPRS

1116334
016340

012746
0051146

177777

MOV
CLP

U71777,-(Sp)
-(SP)

016342
016346
016352

013746
004737
805726

001264
1'125120

MOV
JSR
TST

ORVPRS,-(SP)
PC,"'SDIV
(SP)+

916354

012637

001520

MOV

(SP)+,DRMAP

34117

)488
3499
3490

3491
3492

3496
H97
3498

3499
15EHl
3501
1582
3503
1504
]505
3506

,MSG19
Rl,-(SP)

PC,SNOTYP

1]129
04-0CT-711
toIA INDEC-l1-DZRKH-,.
MACYlI 27(1006)
U!RCZSEII PROGRAM
22-SEP-76 eel57
I'lZRKHF,PlI
3507
3508

3509
35Hl
35t!
3512
35t3
3514
3515
3516
3517
3518
15t9
1529
3521
3522
3523
3524
3525
3526
3527

816360
816364
016366
816372
816374
1116376
8164112
016484
.16410

012704
811405
iJ42705
.21185
"'''802
052114
005724
.23704
"01165

I'IliH 386

016412
016414
816416
fil16422
816424
916430
016432
816436

105702
100912
032701
001403
042701
800402
052701
800U7

"00"81
016220

9 ..

016442

000137

010536

681

MOV
MOV

PAGE

,GO TYPE OUT SERUL NO OF THE DRIVE,
; IF SlII 1 IS SET.
,DECREMENT THE TOTAL NU"'BER OF'
,DRIVES PRESENT
;CHECK IF ANY DRIVES PRESENT
; IF NONE GOT TO END OF PASS, nop

J PUT LOW DIVIDEND ON STACK
ICLEAR HIGH DIVIOEND AND PUSH
,IT ON STACK
,PUSH DIVISOR ON STACK
,GO TO THE 'DIVIDE' SUBROUTINE
,DISCARD THE REMAINDER, QUOTIENT IS
I NOW ON TOP or THE STACK
;TO BE USED P'OR GENERATING RANDOM
IDRIVE NUMBERS,

un,R4
(R4) ,1'15

SEQ 0093
,DESELECT THE COMMANDS
,IN THE 'COMMAND Q' eORRESPONOING
1 TO iHE D!iiELEC'ftD oRlVE

SiC

1171770,R5

CMP
BN!
BIS
TST
CMP
8HE

R1,Ft5

1'12

10'1

raTB
BPI.
BIT
BEQ
BIC
BR
BIS
JMP

fl,Rl
DULCT

,DROP CDRRI!:SPONDING DUVE

lUI

JIoIP

B!:GNEX

IGO RESTART I!:XERSISOR PART or TEST

17777fi1

104080
711
001326

all
000001
"00001

71
'1114000, (R4)
(1'14)+
'KEY+20,R4

I INDICATE COMMAND DESELECTED
J (AND COMPLi!:TED)

U
111

tl,Rl

"P" TYPE DRIVE ?
I NO - JUST EXIT
1000 OR EVEN DRfVI!: NUMBER

9t
'1,R1

10.

13129
04-0CT-'6
MAC'l11 27 (1006)
MAl NOEC·l1-0ZRKH-F
EXERCISER PROGRIIM
22-SEP-76 09157
OZPKHF.Pll

:"NOTE 1: IN THE ERROR MESSAGE WHERE RKDA IS PRINTED OUT. IT GIVES
:"ONLY THE DRIVE NUMBER (NOT CYLINDER, SUFACE AND SECTOR).
,CIILLI

JSP

35H

3'>72
3573
3514
3575
3576
3577
3578
3579
3SR0

SEQ 0094

: CHKORV
: THIS ROUTINE CHECKS FOR FATAL ERRORS OF THE DRIVE LIKE DPL, DRV
Ir ANY ONE OF THESE ERRORS OCCUR THE DRIVE IS DESELEcTED
:WPS.
R!
~AND NO MORE FUNCTIONS WILL BE PERFORMED ON THAT DRIVE.
,CONTAINS THE DRIVE NUMBEFI TO BE CHECKED.

3528
3529
35)0
35H
3512
)5H
3514
3535
3536
35)7
3538
3540
3541
30;42
3r;n
3'544
35 $5
3'546
3547
30;48
3549
3'550
35~ i
35"i2
3553
3554
3555
3550
3557
35'58
3559
1'560
3561
3562
3563
3564
3565
3566
3567
3568
3569
3570
3571

PAGE 81

016446
016452
016454
016456
016460
016462
016464
016466
0164 7 2
016501!l

017746
010146
000241
006016
006liH6
006016
006016
012677
032777
001403

016502

004ij7

016506
016510
IH6516
01652;'1

104035
032777
00141:'l3
004737

016524

104036

016526
016534
016536

032177
1'101403
004737

016542

104037

016544
016552
016554

032777
001004
004737

01656"

H14034

162556

162536
010090

1(2511)

022i30
002000

1 &2500

CHKDRV: MOV
MOV
CLC
FIOR
POR
ROR
ROP
!lOV
BIT
BEQ
JSR

lS:

022130

00004"

162462

2$1

022130

000200

Ib2444

3$1

022130

016562

000411

016564
016512
016574
016tl00
016604

032777
001005
012b71
1'162716
0"0207

,,121cl4fcj

016606

000137

016220

162424

48 :

162430
r.J90002

S$I

P::.CHKDRV
RETURN HERE IF ANY FUAL ERROR OCCURED
RETURN HERE IF THERE WAS NO FATAL ERROR
IilRKDA.-(SP)
Rl,-CSP)

:SAVE RKDII
:GET DRIVE'

(SP)
(SP)
esP)
(SP)
eSP)+,.RKDA
.OPL, liRKDS

: IIDDRESS THE DRlVi TO BE CHECKED
: DRIVE PowER LOW?

PC,RG4SDP

ERROR
BIT
BEQ
uSR

IORU, .RKOS
2$
PC:, RG4S0R

ERROR

BIT

• <IPS, .RKDS

BEQ
JSR

ERROR

BIT
BNE
JSP

'DRY, !aRKOS
4$
PC, RG4S0R

ERROR

PC, RG4SDR

BIT

U2040,~RKOS

FHH!:

MeV

CSP)+, (lRKDA

lDD
RTS

12, (SP)

JMP

D5£LCT

;GET RKCS, ER. OS, DA AND DRIVE
~P'OP TYPING SERIAL NUMBER
;DRIVE POWER LO. *NOTE 1 ABOVE
:DRIVE
,GET RKCS, ER, OS. Oil AND DRIVE •
I FOR TYPING SERUL NUMBER
:ORIVE UNSAFE BIT IS SET
,"NOTE I ABOVE
,WRITE PROTECT SET?
:GET RKCS, ER. OS, DA liND DRIVE •
: FOR TYPING SERIAL NUMBER
, WPS SET, CHECK WRTE PROTECT SWTCH ON DPIVE
: *NOTE 1 ABOVE
:DRIVE READY CLEAP?
,GET RKCS, ER, OS, OA AND DRIVE.
IFOP TYPING SERIAL NUMBER
,DRIVE READY CLEIIR, SHOULD BE SET
,*NOre: 1 ABOVE

J ANY ERROR?
:yES
,RESTORE RKOA
,1I0JUST RETURN ADDRESS

MI\lNnEC-ll-0ZRKH-1'"
MACYII 27 (1006)
04-0CT-76
13129
[lZRI(HI'".pll
22-SEp-76 08:57
F '(EPCISE"R PROGPAM

P_GE 82
SEQ 0095

:GFN8IJI'"
:THIS ROUrINf; GENERRU:S A BUP'FER FULL OF RAN~OM OATil WORDS. THIS BUFFER
: IS THEN USED TO WRITE OATil ON THE DISK.
lIT THE TIME OP' ENTRY. RKDII
:CO~!TAIP>lS THE DISK ADDRESS WHERE WPITE WILL BE DONE. SEED WORDS USED FOR
:THE RANDOM NUMBERS APEI
1) ABSOLUTE DISK 1I0nRESS CDPIVE .,
SEC ., SUR t) - .HINUM
2) COMPLEMENT OF THE AB:lVg WORD
,CALL:
JSR
H5,GENBUF
X
'X IS THE WORD COUNT (2' S COMPLEMENT)
y
: Y IS THE STARTING IIDDRESS OF THE
,MEMORY BUP'FER.

cn "

016612
016614

1"4414
016504
011593

000002

~lb62'"

016622
016626
016612
016b36

017702
010237
010237
0"'5137

162402
025664
025662
025062

016642
016646
016650
016652
0166'54

022703

177400

010305
005003
000404

016656
016662

062H3
1112705

GENRUI'"I SAVREG
MOV
MOV

1$1

C"P
BCT
MOV
CLR
BR

0030A3

0"0400

016666

IHlS205
1'101427

016674
016700
016702

0"'4737
025b62
012737
013737
000406
005]37
001763

02551'14

at 3737

0251>62
017014

~1671i<l

016716
"16720
016724
016726
016734
016740
016742
016740
016750
~16752

000;7)7
0"1767
013724
1'105205

000002
025664

0"571'13
001412

016756
91676'"

010246
C'!42716

TIns RAN~OM SEED

: GET LO RANDOM SEED
: IF THE BUFFER IS MORE THAN
:ONE SECTOR (400 WORDS) LONG.
: GENERATE THE BUFFER IN SUCH
: II WAY THAT EliCH SECTOR
: BEGINS WITH RANDOM DATA

MOV

R5, (R4)+

INC
BEQ

JSR
RSDTL
MOV
MOV
BR
DEC
BEQ
MOV
TST

PC. SRAND

, GENERUE DATA WORDS

n,RCNT
RSDTH. RNUM
6S
RCNT
4$
RSDTt., RNUM
RNUM
5$
RNUM, (R4)+
R5
4$

IP'ILL THE SUFrER. DON"T USE
: ALL DONE?
:NO

017"'12
017014
5S:

017014
6$1

SEQ
MOV
INC
BNE

017014

8S:

17776"

:GET

3$ :

001351

016754

'-400,1'3
R3. P5
R3

ADO
MOV

4$1

017012

liRKOA, R2
R2,RSDT"
P2,RSDTL
RSDTL

:SAVE REGISTERS
: GET STARTING ADDRESS OF BUFFER
:GET WORD COUHT C'
MiOROS TO
: BE GENERATED)

2S:

17740\1

016610
016672

MOV
MOV
MOV
CON

2(R5),Fl4
(R5)'R3

:WORDS GENERATED USING THAT
,SECTOR IIDDRESS AS THE RANDOM
:SEED
: FIPST WORD OF EVERY SECTOR IS
:A WORD COUNT (2'S COMP) INDICATING
•
: OF WORDS ACTUAl.LY WRITTEN IN THAT SECTOR
,ALL DONE?

TST
SEQ

MOV
BIC

R2,-(SP)
1171160, esP)

10$

: ANY MOPE DATA WOPDS eFOR
,REST OF THE SECTORS)?
:YES
,( lBSOLUTE DISK ADDRESS ,

ITS

04-0CT-76
13129
MAl NOEC-I1-DZRKH-F
MACYll 27(1006)
EXERCISER PROGRAM
22-SEP-76 09157
DZRKHF.Pll
3637
3618
3619
3640
3641
3642
3643
3644
3645
3646
3647
3648
3649

016764
016770
016772

022726
001002
062702

IH6776
017000

005202
000712

017002
1'117004
017010

104415
062705
000205

017012
017014

000000
000000

3650
16S1
1652
36'53
36'54
36'55
1656
3657
3658
3659
3660
3661
3662
3661
3664
3665
3666
3667
1668
3659
3670
3671
3672
3613
3674
3675
1676
3677
3678
3679
3680
3681
3692
3683
3684
3685
1696
3681
3698
3699
3690
3691
3692
3693
3694
3695
3696
3697
3698
3699
3700

3701
371'12
3703
1704
3195

SECl 009&

CliP
BNE
ADD

113, (SP)+
9t
14, R2

: COMPLEMENT) TO USE FOR
:GENERATING DATA WORDS
10f THE NEXT BLOCt<

9$1

INC
BR

R2
18

11-11 RANDOM SEED

10$ :

RESREG
ADD
RTS

14,1'15
R5

000013
000004

000004

: RESTOPE REGISTERS
: ADJUST RETURN ADDRESS
,RETURN

RCNTI
RNUM:

04-0CT-76
13129
MACYll 27(1006)
EXEHCISER PROGRAM
n-SEP-7& oiI8157

~At~OEC-II-DZRKH-F

DZRKHF,Pll

PAGE 83

PAGE 84
SEQ 0097

,DATCHK
:Tii15 ROUTINE IS ENTEIIED wHEN THE DATA THAT WAS REAO FIIOM THE DISK IS TO
IIIE CHECHD,
AT THE TIME Of' ENTRY R3 CONTA INS THE OFFSET OF POINTER TO
:THE ADDRESS OF THE PARAMETER LIST (RKcS,DA,We,BA). DATA IS CHECKED IN
'BLOCKS OF 1 SECTOR (4"0 WORDS),
EACH BLOCK IS GENERATED USING THE SECTOR
,ADDRESS (AND ITS COMPLEMENT) AS RANDOM SEEDS.
IIIHEN A DATA MISCOMPARISON
:OCCURS THE BUS ADDRESS, EXPECTED AND RECEIVED DUA ARE REPORTED.
017016
017020

104414
016303

017024
017030
017034

016304
01631'15
011301

0171i!36
917040

010146
004737

017044
017046
017050

DATCHK: SAVREG
MOV

002032

PCMND(R),R3

JSAVE R0-R5
I GET ADDRESS OF THE PARA!4ETER
:TABLE
: GET WORD COUIIT (2' S COMP)
I GET BUS ADDRESS
:GET DISK ADDRESS

MOV
MOV
MOV

4(1'1),1'14
6(R)'R5
(R3),R1

022076

MOV
JSR

Rl,-(SP)
P::,cROTLF

012602
006302
062702

001712

MOV
ASL
ADD

(SP)+,R2
R2
'OATER,R2

017054
017062
017066
01 H'J74

012731
011337
013737
005137

171764
025664
025664
025662

MOV
MOV
MOV
COM

'-14,ECOUNT
(R3) ,RSDTH
RSDTH, RSDTL
RSDTL

: CREATE RANDOM SEEDS TO
I BE USED rOR CHECKING DATA

017100
017104
017106
017110
017112

022104
003003
010403
005004
000404

177400

1$:

CMP
BGT
MOV
CLA
BR

'_400,R4
2.
R4,R3
R4

:DATA IS CHECKED IN 1 SECTOR
: BLOCKS. EACH SECTOR IS GENERATED
I USINC THAT SECTOR ADDRESS
J AS THE RANDOM SEED

017114
017120
017124

062704
012703
012500

000400
177400

2S1

ADD
MOV
MOV

1400, R4
.-400,R3
(R5)+,R0

017126

005200

INC

017130
017132

005203
001465

INC
8EQ

R)
14$

: SAVE THE FIRST NORD OF THE SECTOR.
: FIRST WORD OF EVERY SECTOR IS A COUNT
,(2'5 COMP) INDICATING • OF WORDS ACTUALY
I NRITTEN IN THAT SECTOR
: INCREMENT COUNT OF • or WORDS
(WRITEN)
: IN THE SECTOR
: INCRMENT COUNT OF DATA WORDS TO BE CHECKED
: 8RANCH, IF DONE

017134
017140
017142
017150
017156
017160
017164
017166
017174
017200

004137
025662
012737
013737
000406
005337
0(176)
013737
005737
001767

JSR
RSOTL
MOV
MOV
8R
DEC
8ECl
MOV
TST
BEQ

PC,tRAND

I GENERATE RANDOM DATA WORD

017202

905799

000004
000006

001540
025662

3$1

4$1

025504
009002
025664

017012
0171'114

017012
025662
017014

9$1

0171'114

10$1

TST

:ROTUE BITS 15,14,13 TO
:0,1 ,2
: POP OFr DRIVE • FROM THE STACK
I FORM THE ADDRESS OF DATA ERROR COUNT
,rOR THIS DRIVE

'2,RCNI
RSOTH, RNUM

US
RCNT

U
FlSOTl" RNUM
RNU"!
9,
R0

MA!~!)EC-11-0ZRKH-F

DZIIKHf".PII

MACYl1 27(1131361
04-0CT-76
13129
22-SEP-7608157
EXERCTSf.R PROGRAM

017204
017206

001401
01352130

017210
017214

023715
001431

017216
017220
017222
017224
017226
017232

005700
3010"5
005715
13131425
13135037
000403

017234
IH 7242
017244
017250
017252
01725b
017262
017266
017272

013737
005212
13135737
1301413
1310537
011537
010137
1304737
1"'41323

017214

005237

017300
017302
1117304

005725
005203
001313

8$ :

01731!lb
017310

1305704
13131427

14$:

017312

010146

017314
13173213
1317324
1317 326

342716
022726
"'011l02
0627131

)757
3758
1759

017332
1!l17B4
017342
017344
017350
iU7352
017356
017362
017366
017370

3760

017372

005201
032777
001403
320171
301407
010137
0113137
005137
000644
104415
1300207

3706
3707

PAGE 85

BEQ
INC

5$
RI'l

CMP
BEQ

RNUM, (R5)
8$

TST
SNE
TST
BEQ
CLR
8R

6$
(R5)
8$
SREGI

MOV
INC
TST
SEQ
MOV
MOV
MOV
JSR
ERROR

RNU'l,$REGl
(R2)
ECOUNT
8$
R5,$REG0
(R5),SREG2
Rl, $REG3
PC,GTSDRV
23

SEQ 0098

3HJ8
3709
371 "
37\1
3712

311 3
3714
3715
3716

3717
3718
3719

3720
3121
1722

3723
1724
]725
372b
3727

5$1

017014

301164

0171314

0131164

6$1
7$1

001540
001162
001166
0011713
022134

3128
3729
371"
3711
3112

37]3

37H

1301540

: EXPCTD \>jORD :; RECVD \>jORD?

:YES

:SAVE EXPCTD DATA WORD
: INCRMHT DATA EROR COUNT FOR THIS DRVE
:STORE DNLY 12 (DEC) OATA ERRORS
: IF MORE EXIT
,SAVE ERROR BUS ADDRESS
:SAVE ERROR DATA WORD
: SUE DRIVE I, FOR TYPING SERIAL #
,DATA (COMPARISON) ERROR ON DOING
~FlEAD FRO'" DISK NOFlMHLY O!olLY 12 OA'!.'A
: ERRORS WILL BE REPORTED.
THROUGH
:CHECKING WILL BE DONE, ERRORS
:EXCe:EDING 12 WON'T BE REPORTED.
IF
:YOU WANT MORE, CHANGE 'ECOUNT', TO
: WHATEVER • OF ERRORS YOU WANT REPORTED

rr,c

ECOUNT

1ST
INC
BNF

(p5)+
R3
4$

: DONE CHECKING?

1ST
BEQ

R4
17$

'ANY MORE SECTOR BLOCKS
:TO CHECK? IF NOT, EXIT,

3715

37)6
3737
37)8
3719
1740
3741
1742

3743

MOV

Rl,-eSp)

BIC
CMP
BNE
ADD

'177760,(SP)
#t3,(SP)+
15$
Rl

.4,

INC

3144

3745
3146

3147

3148
3149
1750

)75 1
370;2
1753
3754
3755

3756

177760
000013

ISS I
13013002

161656

161b60
025664
025662
025b62

Ib$ :

17$1

IIIAINOFC-l1-DZIH<H-F
"IACYll
DZRKHF.Pl1
22-SEP .. 76 08:57

27(1006)

3773

017374
017376
0174130
011402
017404
017410
017414

0113046
010146
01132 4 6
"'113346
1'113746
013746
\}1060'"

017416
017420
017424
0t 7430
017432
017434
017Bb
017444
017450
017456
017460
017464
017470
017476
017500
1317504
IH 7506
017512
017514
017522
017530
017532
017534
0175413
017546
017552
017556
1317562
1317564
017566
0t 7572
1317574

10440<3
012637
012701
105727
00"'20'"
100"'62
1312737
1'105737
052737
131351346
1312702
131271'13
"'12762
011622
0b2716
077307
"'12742
0135042
012737
"'12737
01'10401
022626
0135237
1312737
0135737
I!lb2712
1323712
101371
011202
005037
0"'0421
042737

SSIZE:

0"'1!l1!l04
0013006

n~4
37~6

3787
3788
37~9

3790
3791
1792
1793
3794
3795
3796'
3797
3799
3799

'80"
3801
ltI02

38,,3
3 B04
38-a5
3~\}6

3S~7

3B08
3809
381 ~
3811
3912
HI3
3814
3t115
3816

,RESTORE R0-R5
PC

ROUTINE TO SIZE M!':MORY

:: ***************************************************************

3770
3171
3772

liil5

: IF THERE WAS A CSE THEN CHECK
10NLY THOSE SECTORS THAT .. ERE READ

:*CIILLI
:*
JSR
PC,SSIZE
:*
RETURN
,*$LSTAD WILL CONTAIN:
:*
WITH KTll OPTION
-- LAST VIRTUAL ADDRESS OF THE LAST BANK
:*
wITHOUT KTll OPTION
-- LAST ABSOLUTE ADDRESS OF AVAILABLE MEMORY
:*$LSTRK WILL CONTAIN THE LAST BANK AS A SAF
:*SKTl 1 IS THE MEMORY MANAGE"IENT KEY
:*BIT07 == 0 DON'T USE Mf.MORY IIIANAGEMENT
MUST BE SETUP BEFORE THE CALL
:*
:*BITI5 == 0 DON'T HAVE MEMORY MANAGEMENT OPTION
:*
DETERMINE!) BY ROUTINE

3769

3174
l77S
l776
3177
3778
3779
3780
3781
3182
3783

#CSe:,~RKER

16$
R1 dlF~KDA
17$
RI, RSDTH
Rl, RSDTL
RSDTL

04-0CT-76
13:29
PAGE 86
ROUTINE TO SIZE I>IE"IORY
.SBTTL

3761
3762
3763
1764
)765
3766
3167
3768

BIT
BEQ
CMP
BEQ
MOV
MOY
COM
BR
RESREG
RTS

: GET THe: NEW RANDOIl1 SEEDS
: (ABSOLUTE DISK ADDRESS" ITS COMPLEMENT)
:TO USE FOR GENERATING DATA \>jORDS
,OF TfiE NEXT BLOCK

1313130136
003776

017574
177572
10001'10
172340
131301310
1'171406

001'1004
"'17432

1777413

1'1002"'0

1 77600
017532
00002t1

177572
017564
14377&
13"'13114'"
172356

000004
172516

0013004

177572
113110130

017432

MOV
RI!l,-(SP)
::SAVE R0 ON THE STACK
MOY
Rl,-eSp)
: :SAVE Rl ON THE STACK
MOV
R2,-(SP)
;:SAVE R2 ON THE STACK
MOV
R3, - CSP)
11 SAVE R3 ON THE STACK
MOV
lilERRVEC,-CSPl
nSAVE PRESENT ERROR VECTOR PS " PC
MOV
;lIIEPRVEC+2,-eSP)
MOV
sp,Re
: ,SAVE THE STACK POINTER
: J SET THE ERRVEC PS TO THE PRESENT PS
TRAP
: ,PUSH OLD PS\>j AND PC ON STACK
MOV
(SP)+,;ltERRVEC+2
nSAVE THE PSw IN UERRVEC+2
MOV
'3776,Rl
: ,SETUP ADDRESS
TSTS
(PC) +
:, USE MEMORY MANAGEMENT?
SKTtll
• WORD
21'113
,:SET TO USE MEMORY MANAGEMENT
BPI.
SCORE
: : BR IF NO
MOV
UKTNEX, UERRVEC : I SET FOR TIMEOUT
TST
;lUR0
"KTll ARE yOU THERE?
SIS
#100001!l,5KTl1
nYES--SET KTll KEY
CLR
-esP)
: ,INITIALIZE FOR ·PAR" LOADING
'40V
UIPAR0,R2
: ,ADDRESS OF F'IRST ·PAR"
MOV
'-08,R3
I,LOAD EIGHT ·PAR. ·S· AND EIGHT "PDR. 'S"
1$:
MOV
17741!l6,-40(R2)
"PDR" 4K, UP, REAO/WRITE
MOV
(SP),(R2)+
:,LOAD 'PAR"
ADO
'200, (SP)
:: UPDATE FOR NEXT "PAR"
SOS
R3 r1 $
II LOOP UNTIL ALL EIGHT ARE LOADED
MOV
tt7761!l0,-(R2)
"SETUP KIPAR7 FOR 1/0
CLR
-(R2)
: ,SETUP KIPAR6 FOR TESTING
",oy
• 2$, ~U:RRVEC
n CATCH TIMEOUT IF NO SR3
MOV
• 2'" U SR3
: I ENABLE 22 BIT MODE
BR
3$
II THIS PDP-ll HAS A SR3 REGISTER
2$:
CMP
(SP)+'(SP)+
nCLEAN OFF THe: STACK--NO SR3
3$:
INC
IHSR0
"TURN ON MEMORY MANAGEIo!ENT
MOV
H KTOUT, 1111 ERRVE:: I ' SET FOR TIME OUT
4$:
TST
IiItt 43776
:: TRAP ON NON-EX-MEM
ADO
U0,(R2)
nMAKE A 1K STEP
CII1P
IHKIPAR7,(R2)
nLAST OJlE?
BHI
4$
:,NO"-TPY IT
SKTOUT: MOV
(R2) ,R2
nGET LAST BANK+l
CloP
"'SR0
:, TURN orr MEMORY MANAGEMENT
BR
SSIZEX
SKTNEX: BIC
H00000,SKTll
nKTll NON-EXISTENT

SEQ 0099

04-0CT-?6
131 :n PAGE 87
I!AINDEC-l1-0zRKIf-r
MACY11 27( U06)
OZRI(HF.Pll
ROUTINE TO SIZE MEMORY
22-SEP-76 08.57
)817
3818
3819
3820
3921
3822
3823
3824
3925
3826
3827
3828
3829
38]0
l811
3832
]8ll

3834
38'35
38'36
3837

017602
017610
017612
017616
017622
017624
017630
017632
017636
0t 7642
017644
017650
017654
017660
017664
017666
017670
017612
017614
017676
817700

012737
005002
062701
062702
005711
922701
001370
162'01
162792
010006
IU2637
012637
011H37
IH0237
012603
012602
012601
012600
"90207
090000
900000

017632

000004

004000
000040
177776
004000
0001!140
"00006
000094
017676
017700

.COREI

MOV
CLR
ADD
1$'
ADO
TST
CMP
BNE
aCROUT I SUB
ulnxa SUB
MOV
MOV
MOV
MOV
MOV
"IOV
MOV
MOV
MOV
RTS
nSTAOa .WORO
ILSTBKI .WORO

SEQ 0100

,*CROUT,UERRVEC I,SET FOR TIMEOUT
R2
I !SET UP BANK
14000,Rl
INCREMENT n lK
'40,R2
,,1K STEP
(Rl)
"TRAP ON TIME OUT
I ,LAST ONE
1177776,Rl
11
I ' NO--TRY AGAIN
14000,Rl
.40, R2
"DROP BACK
, ,RESTORE THE STACK
R0,SP
(SP)+,'.ERRVEC+2 "RESTORE ERROR VECTOR
(SP)+,UERRVEC
Rl,SLSTAD
"LAST ADDRESS
J ,LAST BANK
R2,SLSTBK
(SP)+,R]
"RESTORE R3
(SP)+,R2
, ,RESTORE R2
UP)+,Rl
"RESTORE Rl
(SP)+,!!0
"RESTORE R0
PC
I,CONTAINS THE LAST ADDRESS
0
"CONTAINS THE LAST BANK

04-0CT-76
llr29 PAGE 88
IIIAttlDEC-II-DZRKH-r
MACHl 27(1096)
ROUTINI!: TO SIZE MEMORY
OZRKHF.Pll
22-SEP-76 98.57
38]8
3839
184i11
)841
)842
)843
3944
3845
3846
3847
3948
3849
)850
3951
3852
385)
3854
385!"
3856
3857
)858
31i159
3860
3961
3862
386]
3864
3865
3966
3967
3868
3869
3870
3871
3972
3873
3874
3875
3876
1877
3878
3879
3888
3881
18l!2

3883
3984

SEQ 1'1101

,TYPD80
!THIS ROUTINE CONVERlS A VIRTUAL. ADDREIIS TO PHYSICAL AODREU AND nns
lOUT rHE ii DIGIT pHYsICAL ADDRESS. Rl CONTUHs VIRTUAL ADORi!:SS AT TilE TIME
,or ENTRY.
,TYPE OUT IS INHIBITED IF Sli 13 IS SET.
1'117702
017710
017712
017714
017116

&)2777
011042
010346
018446
810546

017720
1117722
017726
1117'739

810246
.84737
.12683

1117712

"16304

0211090

161230

TYPDBOI BIT
BNE
NOV
MOV
MOV

022876

,,"63 III
172340

• SWll dlSWR

I INHIBIT TYPEOUT?
IYES

Rl,-CSP)
R4,-UP)
R5,-(8P)

MOV
JSR
MOV
ASL

R2,-(SP)
PC,CROTLF
(SP)+,R]
R3

'PUSH VA ON STACK
IROTATE BITS 15,14,13 INTO ",1,8
,FORM or"SET TO BE USED
,FOR KIPAR

MOV

KIPARIICP3),R4

eLR
MOV
ROL
INC
BNE

R3
.-6,R5
R4
R5

J GET THE aASE PAGE ADDRESS FROM
, KIPAR
,ROTATE LEFT 6 TIMES (MULTIPLY
,BY 108 OCTAL) TO GET TlfE
,BASE BUS ADDRESS (PHYSICAL)
,Rl CONTAINS MSB-2 BlTS

fU7736
017748
017744
1117746
017758

"058n
U27f115
.SU84
905205
'01375

"17752

018246

MOV

R2,·(SP)

ISTRIP OFF TOP 3 BITS FROM

817754
S 1 7760
U7762

842716
1'162604
005501

160090

BIC
ADD
ADC

1160000, (SP)
(SP)+,R4
Rl

817764
017'7'78
817774
1120000

010437
IU0ll7
012746
004'737

001162
981164
0111162
824372

MOV
MOV
MOV
JSR

R4, 'RI!:GII
Rl"REGl

02111194

1104737

024722

JSR

PC,.UUPRS

,GET THE O.... SET IIiSIOE THE PAGE
,rORM THE ENTIRE PHYSICAL
,ADDRESS. R4 CONTAINS LONER 16 BITS
,lt3 CONTAINS TOP 2 BITS
,SAVE LOWER 16 BITS 0 .. PA
,SAVE TOP 2 BITS OF PA
,PU8H POINTER TO Pl ON STACK
,CONVERT THE 18 BIT BINARY
,ADDRESSS TO OCtAL 'SICI NUMBERS ON RETURN
,POINTER TO THE FIRST ASC IZ CHARACTl!:RS
,IS ON STACK
,TYPE OUT THE OCTAL 6 DIGIT
,PHYSICAL AODRtsS.

010010
020012
0211014

012605
012604
012603

MOV
MOV
MOV

(SP)+,R5
(SP)+,R4
(sP)+,R3

020016

000207

RTS

PC:

177772
Ua

2S1

"REG~,-(5P)

pc,u.ono

VA ,

MAII;OEC-1I-0ZRKH-F"
~ACYll 27(10116)
04-0CT-76
11129
PAGE 89
DZRl(iiF'.Pii
22 .. SEP-i6 08157
ROUTINE 1'0 SIZE "'EMORY

SEO 01B2

ICHKCS
'THIS ROUTINE CHECKS IF' BIT 15 OF RKCS WAS SET. IF' IT WAS RETURN IS MADE TO
,THE ERIIOR MESSAGE FOLLOWING THE JSR CALL. IF' IlOT, THE ERROR MADE TO SKIP
lOVER THE ERROR MESUGE.
1l201il20
020<124
020026
020032

905777
\00073
"'04737
000207

CHKCS:

161176
021740

TST
BPL
JSR
RTS

~RI(CS

CO"'RET
PC'GT4RG
PC

nnT 15 SET?
:NO
:YES, GET RKCS, ER, OS, OA
I RETURN TO THE ERROR "'ESSAGE

ICHKDII
'THIS ROUTINE CHECKS IF' RKDA INCREMENTED CORRECTLY. IF' NOT, RETURN IS MADE
: TO THE ERROR ,"ESSAGE FOLLOWING THE JSR CALL. IF YES, RETURN IS MADE TO
:SKIP OHR THE ERROR ~F.:SSAGE.
IAt THE TIME OF" ENTRY, R2 CONTAUS THE EXPECTED RKDA.
020034
020040
020042
020046
020054

020217
901465
010237
U7737
000207

CHI(DAI

161170
"01162
161156

001164

C'Ip
BFO
"'OV
MOV
RTS

R2 "~RKOA
COMRET
R2, SREG9
IIRKOA,SREGI
PC

:010 RKDA INCREMENT ::;ORRECTLy7
I'tES
I GET EXPCTO RKOA
,GET RKOA RECVD
: RETURN TO THE ERROR MESSAGE

:CHKBA
1l'H15 ROUl'iiiE CHEeKS IF Rj(BA IH:RE:MENTED CORRECTLY. IF NOT, RETURN IS MADE
:TO THF. ERROR "lESS AGE: F'OLLOWING THE JSR CALL. IF YES, RETURN IS MADE TO
:SKIP OVER THF ERROR MESSAGE.
; AT THE TIME OF" ENTRY, R3 CONTAINS THE 1i0RO COUNT C. OF WORDS TRANSF'ERREO)
: R4 CONTAINS THE BUS ADDRESS WHERE THE TRANSFER STARTED.
020056
020060
020062
020064
0201166
020070
020074
0:10076
020102

0100241

l'I10437
'h10207

001162

020104

017737

161116

020112
020116
020122
02"'126
020130
",20134

017746
942716
022726
001432
034737
000207

I b1104
177717
"001021:1

CHKBA:

0061~3
06~304

~OL

AOD
CLC
ROR
CMp
8EO
'10V
PTS

~H"'241

~~60"'3

020477

C('C

161132

1'1101447

001164

CHKMEX I

27 (1006)

R3
R4dlRKBA
COMRET
R4,SREG0
PC

: rORM THE EXPCTD 8US ADDRESS

1010 RKBA INCREMENT CORRECTLY?
IYES
: GET EXPCTD RKBA
,IlETURN TO THE EROR MESAGE

MOV
!I~KBA, SREG1
I GET RKBA RECVD
I CHKMEX
:THIS ROUTINE CHECKS THAT IlKBA OVERFLOWED AND MEX BIT liAS SETIN RKCS CBIT 4)
I IF RKBA OVERFLOWED CORRECTLY, THE RETURN ADDRESS Is ADJUSTED TO SKIP THE
I ERROR MESSAGE ON RETURN.

021740

MA I i'lDEC-11-0ZRKH-F
MACHI
IlZR'<HF.Pll
n-SF,p-7(, 0~157

Rl
R3,R4

MOV
BIC
CMP
SEQ
JSR
RTS

'RKCS,-CSp)
H 17717, CSP)

IBlT4, (SP)+
COMRET
PC,GT4RG
PC

IGET RKCS
:GET MEX BITS 4,5
:CHECK BIT 4 SET?
: YES, OK
,SAVE RI(CS,ER,DS,DA
: RETURN

1:14-0CT-76
13129 PAGE 90
TO SIZE MEMORY

ROUTI~e:

SEQ 0103

ICHKWC
:THIS ROUTINE CHECKs IF RKWC OVF.:RFLOWED CORRECTLY AFTER A DATA TRANSP'ER
IIF IT 010 NOt. RETURN IS MADE TO THE ERkOR MESSAGE. IF IT 010, RETURN IS
: MADE TO SK 1 P OVER THE ERROR MESSAGE.
020136
020142
020144
021H52
020160

005777
"01424

161062

o17731

161060
161046

"17737
0"'0207

CHKWC:
O01162
"01164

tST
BEO
MOV
MOV
RTS

tiRKWC
COMRET
SRKOA, SREG0
tiRKWC.SREG1
PC

IRKWC OVERFLOWED?
In:S

,RETURN TO THE EROR MEUGE

:CHKRwS
lTHIS ROurrNE CHECKS IF RIWIS ROY BIT IN RKOS IS SET. IF' IT IS NOT SET RETURN
ns MADE TO THE ERROR MESSAGE FOLLOWING THE JSR CALL. IF IT IS, THE RETURN
: ADDRESS IS ADJUSTED TO SK IP OVER THE ERROR MESSAGE ON RERTURN.
02"162
020171'1
f:l20172
020176

032777
001011
1:104737
"'1:102",7

000100
O21140

161026

CHKRwS: BIT
BNE
JSR
RTS

'RWS, !lRKDS
CO'lRET
P:.GT4RG
PC

: RIiS ROY SET?
:YES
:GET RKCS, ER, OS, DA
: RETURN TO THE ERROR MESSAGE

I CHKCRDY
:THIS ROutINE CHECKS IF CONTROL READY BIT IN RKCS IS SET. IF IT IS NOT,
:RETURN IS MAO! TO THE ERROR MESSAGE F'OLLOWING THE JSR CALL. IF IT IS,
: RETURN ADDRESS IS ADJUSTED TO SKIP OVER THE ERROR MESSAGE.
020200
"20204
020206
fl21l212

105771
10"403
01:14737
000207

021<1214
1-120220

"62716
090207

161016

CHKCRDY:

TSTB
BMI
JSR
RTS

IRKCS
COif RET
P:::,GT4RG
PC

:CONTROL READY SET?
IYES
:GET RKCS, ER, OS. DA
: RETURN TO THE EROR MESAGE

COMpETI

ADD
RTS

12, esp)
Pc

: ADJUST RETURN ADDRESS TO SKIP OVER MESAGE

021740

01Hl002

MAINDEC-ll-DlRKH-F
MACYlI 47 (12106)
214-0CT-76
13129
PAGE 91
DlRKHF.Pll
22-SEP-75 218157
ROUTINE TO SIZE MEMORY

SEQ 21i04

:THIS ROUTINE KEEPS A HISTORY OF THE COOMANDS THAT ARE 8EING EXECUTED
,ON THE RKll. 'PRSrNC' CONTAINS INFORMA TlON ABOUT THE PRESENT COMMAND
,WHICH IS ABOUT TO 8E INITIATED. 'PSTFNC' CONTAINS INFORMATION ABOUT THE
,COMMAND THAT WAS EXECUTED BI1: .. 0RE THIS NEW ONE. THERE ARE MULTIPLE POINTS
10 .. ENTRY DEPENDING ON THE TYPE 0 .. COMMAND 8EING PRESENTLY INITIATED I

3972
3973
3974
3975
3976
3977
3978
3979
39821
39Al
3992
3983
3984
3985
3986
39117
39118

,DRCMND - ENTERED "'HEN A DRIVE RESET IS BEING INITIATED. DRIVE' IS SAVED
JIN BITS 21-2 OF 'PRSCMND' AND BIT 8 IS SET.
'CRCMND - ENTERED WHErl A CONTROL RESET IS BEING INITIATED. BIT 14 OF
,'PRSCMND' IS SET.
,POSCMND - ENTERED WHEN A POSITIONING SEEK IS BEING INITIATED. BITS 21-2
'CONTAIN THE DRIVE NUMBER ON WHICH THE POSITIONING SEEK WAS DONE. ALSO
:BIT 7 IS SET.
:IN ALL ABOVE CASES BIT 15 OF 'PRSCIIND' IS SET.

3ge9
3990

:FNCMND - ENTERED I'IHEN A COMMAND OTHER THAN ANY ONE OF THI1: ABOVE IS BEING
JINITUTED (EXI READ, WRITE, ETC).
,THE OFFSET TO THE COIIMAND KEY (BASE .. KEY) IS SAVED IN BITS 21-3 Of' ·PSRCMND·.

3991
3992
3993
3994
3995

lIT SHOULD BE NOTED THAT CONTENTS OF 'PRSFNC' ARE PUSHED INTO 'PSTFNC'
lAND SAVED, BErORE PUTrING INfO ABOUT THE PRESENT ~OMMAND IN ·PRSFNc'.

3996
3997
3998
3999
~21021

40211
421212
421213
40214
4"'05

40216
40217
4\1218
40219
~0121

421\1
4012
42113
4014
42115
42116
42117
42118
4019
40221

: R0 CONTlINS ADDRESS Dr THE COfolMAND KEY,
020222
020230
020234
2120240
0221244

1'112737
017746
004737
2152631
0211'1424

1210400
1621774
21221176
2101512

fil01512

DRC"'ND: HOV
MOV
JSP
81S
811

'8ITI 5+BIT8, QFNC
riRKDA, -(SP)
PC,CROTLf'
(SP)+,QfNC
P2

020246
2120254

012737
000420

140000

001512

CPCMNDI MOV
SR

t8ITl S+BIT14, QFNC
P2

"'20256
2120262
2120270
020276

011037
942737
052737
1'1004"'7

0211512
177770
1210200

001512
001512

020300
020304
2120306
020312

1'1052137
010046
162716
052637

21211512

020316
2120324
020312

2113737

013737

001462
001512

MOV

POSCMND:

21filI3216
2101512
21\114&4
001462

BIC
BIS
Bil

(p0),aFNC

U 77770,QFNC

orNC
R0,-(SP)
'KEY, (SP)
(SP)+,orNC

P21

PRSF'NC, PSTfNC
Qr~c, PRSFNC
Pc

MOV
MOV
Rrs

'GET DRIVE NO.

'SITI5+BIT7, QFNe
P2

rNCfdNDI CLR
PI:
/JOV
SUB
BIS

02121207

AT THE TIME OF ENTRY.

~4-0CT-76
13129
PAGE 92
MACYlI :l7 (t "'(16)
ROllTINE TO SIZE fIiIEtoIORY
22-SFP-H 218,57

~A IIIDEC-II-DlRKH-F

DZRKHF'. PI!

4V128
4029
4031<1
4031
421)2
40H
4"'14
4"35
42136
4037
42118
4019
40421
4041
4042
41'143
42144
4045
4046
4047
4048
4049
4050
4051
4052
4053
411154
4055
42156
4057
4058
42159
4060
4061
U62
41'163
4064
4065
4066
4067
4068
4069
40721
4"'71

4072
4073
42174
4IH5
4076

SEG \1105

: HISHY
:THIS pOUTINE TYPES OUT INFORMATION A80UT THE fUNCTIOI'i THAT WAS
:BEING pEpF'Op"'ED O~ THE PI< AT THE TIME OF ERROR AND THE FUNCTION
,THAT WAS PERFORMED JUST BEFORE THAT FUNCTION (WHICH LED TO
: THE ERRO!";). THIS ROUTINE IS CALLED WHEN AN ERROR OCCURS AND SW 12
: Iii SET.

4021
42122
4023
42124
42125
4026
42127

R0,-eSp)
Rl, -(SP)

MOV
TyPE
TYPE.
TYPE
TST
BPL
TST8

iPRSFNC, R2I
,"IHI
,MH3
,MH2
(Rkl)
3$
(R0)
2$
fBlTl4, (RI'I)

010046
211fil146

020340
020344
020350
020354
020360
020362
020364
020366
020370
020374

01271/10
104401
104401
104401
005710
10212153
105710
1021427
2132710
2101014

21211462
2120654
02072121
21206721

21400211:1

8IT
BNE

0221376
020402

12144211
0210410

020404

TYPE
8R
.ASCIl

,65,
: ,TYPE ASCIl STRING
64$
: .GET OVER THE ASCIl
IDRESET ON DRV 1

020424
020424

000425

TyPE
8R
.ASCll

,67S
661
ICRESET I

TyPE
BR
.ASCIZ

,69$
: ,TyPE ASCIZ STRING
691
"GET OVER THE ASCIZ
IPOSITIONING DRIVE 1

MOV
BIC
TYPOC
BR

(R0),-eSP)
U 77770, (SP)

MOV
MOV
MOV
JSII
TYPE
8R
.ASCn

(R0) ,Rl
PeNND eR1), R1
2(R1),R4
PC,TYprN
,71$
70S

020426
2120426
020432
020444
020444
2120446
020446
020452

HISTRY:

MOV
MOV

020334
020336

65 I

B~I

,,651'
64$:

:READ, READ CHECK,

wRITE,

,POSITIONING (SEEK)
,CONTROL RESET

111
12144fill
000404

020434
: ,67$:
66$1

0210463
2S'
104401
2100412

2120454
1169S1

"TYPE ASCIl STRING
:,GET OVER THE ASCIl

6UI

212,,500
02"500
0221502
0205216
e20510

011046
042716
104402
000441

020512
020514
020520
029524
020530
020534

011001
016101
2116104
0047)7
104401
0004213

020544
020544
020546
020550
020554

011146
t 04402
11'144211
021,,403

781
177770

lSI
002032
0021012
021644
02215]6

,,71$1

,tyPE DRIVE NO.

48
,GO TYPE OUT THE FUNC T I ON
; BEING PERFORMED
; ,TYPE ASClZ STRING
:,GET OVER THE ASCIZ

<15><12>/DA"1

'70$1

~205~1!i

NOV
TYPOC
TYPE
SR

(Rl) ,-eSP)

:TyPE OUT OISK ADDRESS

,73.

: ,TYPE ASCIZ STRING
I/GET OVER THE AS~IZ

72.

WRITE CHECK, SEEr;

MAINOEC-ll-0ZRKH-F
MACYII 27(1006)
22-SEP-76 08 :57
DZRI(HF. PI 1
4077
4018
4079
4080
4081
4082
4083
4"84
4085
4086
4081
4088
4089
4090
4"'1:11
4092
4f'!91
4094
41'195
4i!!96
4097
4"98
4099
4100
4UH
4102
4103
411114
41 ~5
41216

, ,73S:
020564
020564
020570
020572
020576

Ut7
4118
411 q
4 t 20
4121
4122
4t 23
4124
4125
4126
4127
4128
4t 29
411"
41H

SEQ 0106

.ASCIZ

BA:I

MOV
TYPOe
TYPE
BR
• ASe IZ

6(R1),-(5P)

MOV
TYPOC

4(Rll,-(SP)

5$:

CMP
BEQ
TST
TYPE
TYPE
tYPE
BR
TYPE

MHI:

1oI0V
PTS
• ASCIZ

R0, .PSTFNC
5$
(R0)+
, MH1
, MH4
,'4H2
68
, SCRLF
(SP)t,Rl
(SP).,R0
PC
<15><12>/FUNCTION I

MH2:

,ASCIZ

I ERROR I

MH3:
MH4:

,ASC! ?
,ASCn

IPRIOR TOI

72$1
1:116146
104402
104401
000403

000006
020600
: ,75$:
74$1

020606
020606
020612

016146
104402

000004

020614
020620
020622
020624
020630
020634
020640
1'120642
020646
020650
020652
020654
020662
"'20070
020676
020700
020703
020710

020027
001410
005720
104401
104401
104401
000647
104401
012601
012600
000207
005015
044524
042440
000040
052101
120
052040

001464

4$:

020654
020703
020670
001213

~Ov

052506
041117
051122
000
044522
000117

041516
000040
051117

051117

,75$

HS
I

:, TYPE ASCIZ STRING
: ,GET OVER THE ASe IZ

we"'l

IATI

.EVEN

~A I t'lJ)EC-t I-DZRKH-F
IoIACYt I
22-SEP-76 08: 57
DZPKHF",PII

41<'17
410R
41.,9
4110
4111
4112
41n
4114
4115
41 t 6

04-0CT-76
13129
PAGE 93
POUTINE TO SIZE MEMORY

27(1006)

04-0Ct-76
13: 29
PAGE 94
ROUnf.lE TO SIZE .. EMORY

SEQ 0107

:STATSTC
lAT THE np.lE OF" ENTRY I'll CONTAINS THE DRIVE NUMBER FOR WHICIi THE STATISTIC
1'15 CONTAINS THE POINTER TO THE PARAMETER TABLE, FOR
liS TO BE OBTAINED.
:THE COMMAND EXECUTED ON THE ABOVE DRIVE, R4 CONTAINS THE FUNCTION CODE
ARE TO BE TAKEN.
: (WRITE, READ, ETC) FOR WHICH STATISTICS
020714
020716
020720

010,,46
010246
310346

STATSTC:MOV
MOV
MOV

1'10,-(51')
R2,-(SP)
R3,-(SP)

02''''22
020724
02e726
e20730
020734
02917 36
020740
020744

005002
005701
001404
062702
005301
001]74
1'116500
e05400

C('R
tST
BEO
ADD
DEC
BNE
MOV
NEG

1'12
I'll
25
#4,R2
Rl
1$
4(R5),R0
R2I

020746
020752

1'105777
100004

160250

TST

"'RKCS
3$

020754
0207611
11120762

1'!17103
"'05403
160300

160244

020764
020710

022704
0012105

000002

02e172

001732
0,a17]4

4$ :

0210"'2

060062
005562
000404

02hHil4

060062

001772

e2101'"

005562

001774

021014
021 etl6
021020
021022

012603
012602
012600
0e0207

000004

1 s:

000004

2$ :

sn
MOV
NEG
SUB

IiRKWC,R3

1'13

;PUSH R0,
:STACK

R2, R3 ONTO THE

:ORIVE 01
: FORM THE OFFSET FOR THE
: 'WORDS XFERRED COUNTS ':NWRTL, NRDL
;GET WORD COUIIT (RKWC) FROM
:THE PARAMETER TABLE
:ANY ERROR DURING THE XFER1
: lES,
:GET THE t OF WORDS THAT
Po/ERE ACTUALLY X-FERRED

1'13,1'10

H12
4111
41 J4
4\35
4136
41J7
4118
4119
4140
4141
4142

~20776

lS:

#2,R4

CIoIP
BNE

ADD
ADC
ElR

R0,NWRTL(R2)
NWRTH(R2)
6$

5$ :

ADD

R0,NRDL(R2)

ADC

NRDH(R2)

66:

MOV
MOV
MOV
PTS

(SP).,R3
(SP).,R2
(SP)+,Re
PC

4143
4144
4145
4146
4147
4148
414q

: "RITE FUNCTION?
fYES, ADD THE • OF WORDS
:XFERRED (WRITE)
:NOTE IT'S 2-WORD COUNT LO,

: ADD THE • OF WORDS READ
:NOTE THAT WRT CHK,
: READ CHIC ARE ALSO CONS:IDERED TO BE 'READ'
:CARRY OVER TO THE HI WORD
:POP R3,R2,R0 FROM THE STACK

13129 PAGE 95
MACYII 27(10061
MAItfOEC-11-0!RKH-r
04-0CT·76
DlRKHr.Pll
MUTINE TO SIZE MEMORY
22"SI:P-76 08157
4150
4151
4152
4153
4154
4155
4156
4157
4158
4159
4168
4161
4162
4163
4164
4165
4166
4167
4169
4169
4170
4171
4172
4173
4174
4175
4176
4177
4178
4179
4180

021024
821030
021034

104401
U3780
1112701

002377
001264
001254

PEPS"I TYPE
MOV
MOV

,MSG26
DRVPRS,R0
'PDR, Fll

021040
021044
021046
821052
821054
021056
021057

001213

111

, SCFlLF
(Rl)+,R2
'177770,R2
R2,-(SP)

~21060

104401
112102
042702
11110246
1044fU
003
000
104401

021064
021066
02107O
021072
021076
02111'10

005004
019203
801404
36271'14
01'1531'13
1'101374

021102
021106
021110
0211 14
021120
021124
021130
0211l:Z
021136
821142

104401
013446
062716
004737
004737
104401
011'1446
062716
084737
01'14737

021146

006302

021150
021154
021160

104401
016246
104405

002664
001652

021162
021166
021172

10441'11
1'116246
1044""5

021174
021200
021204
921210

4201
4202
420)
421'14
4205

4181
4182
4183
4184
4185
4196
4187
4198
4189
4190
4191
41'12
4193
4194
4195
4196
4197
4198
4199
42,,0

SEQ 0108

,REPSTAT
,THIS ROUTINE REPOPTS ERROR STAnSTlC! AND DATA-TRANSfER STATISTICS,

177770

002662

TYPE
MOV8
BIC
MOV
TYPOS
• BYTE
.BYTE
TYPE

)

e
,8LNKSl

CLR
MOV
BEQ
ADO
DEC
8NE

R4
P2,R3

TYPE
MOV
ADD
JSR
JSR
TYPE
MOV
ADO
JSR
JSR

,8LNKSI
R4,-(SP)
'NilRTL. (SP)
PC,.D820
PC,SUPRS
,8LNKSI
R4,-UP)
INF:OL, (SP)
PC,80B20
PC,SUPRS

ASL

TYPE
MOV
TYPOS

,8t.NKSI
CSECNCR2),·CSP)

002664
01'11632

TYPE
MOV
TYPOS

,BLNKSI
W::ECN(R2),-(SP)

104401
016246
042716
104405

002664
991712
100000

TYPE
MOV
SIC
TYPOS

021212
021216
021222

'04401
016246
104405

1'102664
1'I1i'l1562

TYPE
MOV
TYPOS

,BLNKSI
HECN(P2),"(SP)

021224
1'121226
021230

005300
001104
10441'11

DEC
8NE
TYPE

RI'I

000004

2.,

1'102664

lSI

001732
024512
024722
002664
001772
024512
024722

01'12474

H
... R4
R)

, et.NKSl
D~TER(R2),"CSP)

• U0900,( SP)

18
,MSG26A

IOONT TYP! A NEGATIVE NO.

,FINISHED WITH THE ORIVES
,aR IF NOT
; REST or SUMMARY MESSAGE

1'14-0::T-76 13: 29 PAGE 96
~A(NOEC-l t"OZRKH·,
!4~CYll 27( 1006)
R.OtlTINE TO SIZe: MEMORY
i)ZRJ(HF.Plt
22·SEP-76 08157
4206
4287
4208
4289
4210
4211
4212
4213
4214
4215
4216
4217
4218
4219
4220
4221
4222
4223
4224
4225
4226
4227
4228
4229
4230

021234
821240
021244
021250
021252
021256
1'12126111
021262
021263
821264
821279
021272
1'121276
021302

1113700
1112701
104401
112102
142702
2110246
11'14403
"0l
1'11'10
104401
006302
104401

021304
021110
021314

104401
016246
104405

021316
021329
1'121324
021330

01'16202
104401
116246
104405

4231

021332
021334
1'1213)6

005109
0111343
"04737
1'100207

4232
4213
4234

021342

IU6246

0191264
0111254
1'11'11213
117770

882662
002664
1'101602

10441'15
002664
001672

002664
001622

926556

"'I

MOV
MOV
TYPE
MOVB
8IC
MOV
TYPOS
• BYTE
,BYTI:
TYPE
ASL
TYPE
MOV
TYPOS

ORVPRS,R0
'POR.IH
,.CRLF
(Rl )+,R2
'171770, R~
R2,-CSP)

T't'P!
MOV
TYPOS

,8LNICSI
A80RT(ft2),· (SP)

ASR
TYPE
MOVB
TYPOS

R2
,BLNKSI
SINCNCR2),·(SP)

DEC
8NE
JSR
RTS

)

0
,BLNKSl
R2
,8LNKSl
SKECN(R2) ,·CSP)

SEQ 0109
"'UMBER or DRIVES
; 'DRIVES PRESENT' TABLE ADDRESS
,CR-LF
,DRIVE ADORESS
,LEAVE ONLY DRIVE NUMBER
, PUT ON STACK rOR TYPEOUT
,TYPE 17 IN OCTAL
,TYPE 3 CHARACTERS
,SUPRESS LEADING ZEROS
,) BLANKS
,CONVERT TO A WORD TABLE INDEX

1'0
PC:,TIMTYP
PC

:TYP! THE TIME

ToIAINOEC-11-0ZRKH-F'
1o4ACYll 27 C1006)
04-0CT-76
13129
PAGE 97
OZRKHF'. P 11
22-SE:P-76 08:57
ROUTINE TO SIze: MEMORY

4242
4243
4244
4245
4246
4247

:QSCNT
ITHIS COUNT Is INITIALIZED EVERY TIME 8 COMMANDS ARE GENERATED. THE COUNT
lIS INCRENJEPlTED EVERY TIME THIS ROUTINE IS ENTERED. J.LL THE 8 COMMANDS
:SHOULD BE DONE BEFORE THIS COUPlT EXPIRES. IF THEY DO NOT AN ERROR CONDITION
,IS REPORTED. THIS COUNT HAS BEEN KEPT PRIMARILY TO IPlSURE THAT THE PROGRAM
JDOES NOT GET CAUGHT IN AN INDEP'INITE LOOP, BECAUSE
AN ERROR CONDITION.

4248
i249

42~"

4251
4252
42~3

4254
4255
4251>

SEQ 0110

,STATUS
: THIS ROUTINE IS NORMJ.LLY ENTERED WHEN THE PROGRAM IS WUTING FOR TilE
:CONTROLLER TO F'INISH IiHAT IT IS DOING. THERE ARE TWO DOUBLE PRECISION
'COUNTS KEPT IN THIS ROUTINE.
:CICNT, CICNT1
,THIS COUNT KEEPS TRJ.CK
HOW LONG THE CONTROLLER HAS BEEN SUSY AFTER
,A COMMJ.NO WJ.S INITIATED. THE CONTROLLER SHOULD FINISH WHATEVER IT IS DOING
:BEFORE THIS COUNT EXPIRES. IF IT DOES tlOT, THERE IS AN ERROR CONDITION AND
: IT I S SO REPORT EO •

4235
42]6
4237
4239
4239
4240
4241

021344
021346
021352

005046
012746
00"'002

STATUS: CLR
MOV
RT!

021354

-esP)
'lS,-(SP)

'DROP PRIORITr AND WAIT FOR INT
; RETURN FOR RT!
; NOTE THAT THE INTERRUPTS ARE ALLOWED ONLY
,AT CERTAIN PLACES IN THE PROGRAM, BECAUSE
; IT JUKES TROUBLESHOOTING OF FALIURES EASY.

4257
4256

: OTHER pLACES wHEflE INTERRUPTS ARE ALLOwED

4259

;TO TAKE PLACE:
; 'CHFAFN',
FIRST INTERRUPT AFTER ISSUING
,A SEEK FUNCTION.

4260
4261

4262
4263
4264
4265
4266

021354
021360
021362
021366

005231
00145&
105771
100514

001460

021370
021374

005037
012737

001466
! 77761

021402

105737

001534

02140&
021410
021414
021416
021422

1101507
005237
001372
005237
0013&7

021424
021430
021434
021436
1121442
021446

11 ]700

157634

INC
SEQ
T5T8
81011

QSCf'lT
QEROR
!;IRKCS
CNOBSY

CLI<
MOV

CICNT

TSTB

INTFLG

aEQ
INC
BNE
INC
BNE

SF:XIT
CICNT
CBSY
CICNT1
CBSY

1267

4l&R
4269

001470

#-17'~I~NT1

427'"
4271
4272
4273

CBSY:

4274
4275
427&
4277
4218

4279
1280
4281
4282
42Rl
42114
1285

42'16
4297
421i8

4289
4290

001466
001471t1

;FOR A NON-SEEK COMANOI
IINTFLG- BIT 7 Is SET, BITs 0-3 CONTAIN
; OFFSET TO THE COMt.\AND KEY (FROM KEY) I
:FOR WHICH THIS INTERUPT IS EXPCTD.
I WHEN THE INTERUPT OCCURS " ' INTHNO' IS
;ENTERED 'INTFLG' IS CLEARED.

/TIMED OUT WHILE WAITING FOR THE INTRUPT.
; ONE
THE COMMANDS DID PlOT INTERRUPT

042700
01000]
062700
0\ 1037
042H7

001534
177760
00130&
00117'1
177770

NIEHOR: MOVB
BIC
MOV
AOD
MOV

001172

BIC

If'lTP'LG,R0
'177760,R0
R0, R3
'KEy,R0
(R""SREG4
117"1770,SflEG4

13: 29
PAGE 98
04-0c:r-76
MA t~DEC:-l1-DZRKH-F
MACY\ 1 27(1006)
22-Sgp-76 08:57
flOUTINE TO SIZE ME"IORY
OZflK;.jF,Pl I
42'11
4292
4293
4294
429')
4296
4297
4298
42'19
4300

43IU

1121454

013737

001172

1121462
021406
021472
02147&
021502
021500

104421
016305
01&504
004737
004737
104025

002032
000"'02
021b44
021740

001250

0~2245

021510
021514

052710
000444

104000

021')1&
021522
021526

005937
004717
104026

001460
021740

0215 J0
021536
021540
021544
021550
021554
021560
0'215&4
021566
021570
1121574
021576
021600
021602
021603
0216<14
021606

1'132717
901924
104401
012700
012701
012702
104401
012046
104402
104401
1'0504&
112116
104403
003
",o0
005202
001364

021&10

004717

015714

021614

001'1137

011:!'B6

021&2111
021&22
"21&24
021626
11216]2
021636

1'1"'5004
00521114
11101376
013746
012746
000002

021640

1'100137

SEQ 0111

MOV

SREG4,SRDRV

;GET DRIVE ., FOR TYPlPlG SERIAL •

TYPMSG
MOV
MOV
JSR
JSR
ERROR

,,",SGI5
PCMNDCR3),R5
2(R5)'R4
P::,TYPFN
PC,GT4RG
25

;PRINT 'DRVE • DIDN'T IPlTRUPT AFTER'

BIS
811

;COIIMAND TYPED OUT IN EROR MESAGE DID
: NOT INTERUPT Ott COMPLETION.
I INDICATE THAT FUNCTION IS ABORTED
'BIT15+BITl \, (RaJ
SEXlT

CLR
JSR
ERROR

QSCNT
PC,GT4RC
26

BIT

.swI3,!;ISWR
2S
MSG16
'I<Ey,RiI
.BUSY,Rl
'-1",R2
,SCRLF'
(R0)+,-CSP)

4392
43,,3

4304
4305
430&
H07
4)08
43:119
4310

QERORI

4311
4312

4313
B14
4315
4316
4317
HIll
4119
4320
4321
4322
4123
H,4
H25
H,&
43,}7
0,8
432'1
4310

Bll
4312
4H3
4.04
4B<;
4nb
4317
43}8
4339
D40
4341
4342

020000

157402

BHE
"'02305
00'1306
00142&
1777701
01H 213

1$1

0026&2

001244
021640

TYPE,
MOV
MOV
MOV
HPE
MOV
T:iPOC
TYPF
CLR
Move
TYPOS
.BYTE:
.BYTE
INC
BNE

,8LNKS3
-(SP)
(Rl)+,(SP)

010556

: INHIBIT TYPEOUT?
;YES

;TYPE OUT COPlTENTS OF ALL KEYS
;KEY-KEY8

; TYPE OUT CONTENTS OF ALL SUSY FLAGS
; BUSY-BUSY7

l
0
R2

;DONE?

1"10

JSII

PC,CLRERR

J"!P

BEGNEX

:MAH SURE THERE' IS NO HEAD MOVEMENT ON
I J.Ny DRIVE " THEN DO CONTROL RESET
:GO. BlK AND CONTINUE

CNOeSY: CLR
INC
BNE
SEXlT:
MOV
MOV
RTI

R4
R4
• -2
PPRLVL,-(SP)
.RTIPC7, - (SP)

I RETURN FOR RTI

RTIPC7: JIIP

QI4NGER

2$ :

BO
4344

: REESUBLISH COUNT
;ALL 8 COMMANDS SHOULD BE DONE BY NOW, TIMED
lOUT. THE PROGRAM IS WAITING "OR ONE OF THE
:COMMANDS IN THE Q TO BE FINISHED AND THIS
:010 NOT HAPPEN OR FOR SOME OTHER REASON THE
: 'FINlSHEO' FLAG CBIT 15) OF ONE OF THE 8
:COMMAND KEYS WAS NOT SET. VARIOUS FLAGS 'POS'C-7)
:'SUSY'C·7), 'KEY'C-8) CONTAIN INFORMATION
:ABOUT THE SUTUS OF THE SYSTEM.

***********

04-0CT-76
MAIHOEC-II-0ZRKH-F
13:29 PAGE 99
MACYlI 27( 1006)
ROUTINE TO SIZE MEMORY
22-SEP-7fj 08:57
OZRKHF .P11
4345
4346
4347
4348
4349
4350
4351
4352
435)
4354
4355
43'56
4357
4358
4359
4160
4361
4362
4363
4364
4365
4366
4367

021644
021652
021654
021660
021662
021666
021672
921674
021700
021704
021706
021712
021716
021720
021124
021H0
021H2
021736

032777
001031
020427
001002
104401
022704
001002
104401
022704
0011'102
104401
022704
001002
104401
022704
001002
104401
000207

020000

4173
4)74
4375
4376
4377
4)78
4379
4390
4191
43R2
4383
4384
4395
4l1!6
43a7
4388
431!9
4190
4391
4392
4393
4394
4395
4396
4397
4398
4199
4400
44tH
4402
440)
4404
4405
4406
4407
4408
4409

157266

T'iPFN I

000002
002133
000004

1$1

002141
000012

2$ I

002156
000006

3$1

0112146
000010

45:

002201
5$:

MACYI t
MA TNOEC-ll-DZRKH-F
~2-SEP-76 1'18157
D!RKHF. "11
4368
4369
4370
4371
4372

SEO 0112

ITYPFN
:ROUTINE TO TYPE OUT THE FUNCTION (READ,WRITE,ETC>
I FUNCTION CODE AT THE TIME 0' ENTRY.
'SW 13, l ' SET INHI8ITS TYPEOUT.

(7(1006)

BIT
8NE
CMP
8NE
TYPE
CMP
8NE
TYPE
CMP
8NE
TYPE
CMP
8NE
TYPE
CMP
BNE
TYPE
RTS

'SW11,[lSWR

Sa
R4,.2

IP4 CO'lTAINS THE

I INHIBIT TYPEOUT?
lYES
,WRITE?

11
,MSG6
114, R4
2.
,MSG7
1l2,R4

I READ?

rREAD CHECK?

lS
,MSG9
.6,R4

plRITE CHECK?

4S
,'15GB
110,R4
5$
,MSGll
PC

: SEEK'l

04-0CT-76
13129 P~GF 100
ROUTINE TO SIZE MEMORY
:GT4RG
rGET CONTENTS OF RKCS, RJC:ER, RKOS, RKOAA

021740
021746
021754
021762
021770

017737
017737
017717
017737
"'00207

157264
157250
157240
157230

001170
11101162
001164
001166

GT4RGI
GT3RGI

MOV
MOV
MOV
MOV
IITS

IiIRKDl, tREG3
[lRKeS,'REGB
[lRKEII,UE:GI
~RKOS, .REG2
PC

,CETINF
'THIS ROUTINE GETS CONTENTS OF RKCE, RKEII, RKDS. THEN IT BREAKS DOWN THE
'CONTENTS OF IIKDA INTO ITS COMPONENT I CYL.INDER, SECTOR, SURFACE AND DRIVE
,NUMBER.
021772
021776
022000
022002
022004
022010
022014
022016
022022
022024
022026
022il30
022032
022034
022036
022042
022044
022046
022050
022054
022056
022il60
022il64
022066
022070
022072
022074

004737
010046
010146
il10l46
il12700
017701
010102
042702
010240
0062ill
006201
006201
006201
010102
042702
010240
006201
010102
042702
010140
000301
il42701
010140
1H2602
012601
012600
il00207

021146

ilil1200
157214
177760

177776

177400
177770

GETlNFI JSR
MOV
MOV
MOV
IIOV
~OV

MOV
BIC
MOV
ASR
ASR
ASR
ASR
"lOV
8IC
MOV
ASR
MOV
BIC
MOV
SWAB
BIC
MOV
MOV
MOV

MOV
RTS

PC,GT3I1G
RB,-(SP)
Rl,·(SP)
R2,-(SP)
UREG6+2,R0
[lRKOA,Rl
Rl,R2
'177760,R2
R2,-(R0)
Rl
Rl
111
Rl
IIl,R2
1177776,R2
112,-(R0)
Rl
Rl, R2
1177400,R2
R2,·(R0)
Rt
t177770,Rl
Rl ,-( Ril)
(SP)+,R2
(SP)+,R1
(SP)+,R0
PC

SEQ all)

04-0CT-16
13129 PAGE 101
MACYlt 27 (1006)
ROUTINE TO SIZE M"MORY
22-SEP-76 08157

MAr~DEC-I1-DZI1KH-F

DZRKHF,PII
4410

MOV
INO,-eSP)
~ PUSH NO, TO BE ROTATED ON STACK
PC,CROTLF
JSR
,THIS ROUTINE ROTATES BITS 15, 14, 13 OF A WORD INTO BITS 2, 1, 0. tHE
:REST OF THE BITS OF THE ROTATEO WORD ARE CLEARED.

4411
44\2
4413

4414
4415
4416
HI7
4418
4419
4420
4421
4422
447.3
4424
4425
4426
4427
4428
4429
4430
4431

SEQ 0114

~ CROTLF
~CALLI

022076
"'22104
022106
022112
022116
022122
022126

022110

042766
"00241
006166
006166
006166
006166
000207

004737

017777

000002

000002
000002
000002
000002

U7717,2(SP)

CROTLFI BIC
Cl,C
ROL
ROL
ROL
ROL
RTS

2(SP)
2(SP)
2(SP)
2CSP)
PC

IRG4SDRV
PC, RG4SDRV
JSR
:CALL:
:THIS ROUTINE GETS THE CONTENTS OF RKDS, RKER, RKCS, RKDA. THEN
~ IT SAVES THE DRlVE NUMBER FROII RKD1I IN ·SRDRV·.
RG4SDR: JSR
PC, GT4RG
:GET IIKCS, ER, OS, DA

021740

4432
4433
4H4
4435
4H6
4H7
44)8
441''/
4140
4441

,GTSDRV
PC, GTSDRV
,CALLI
JSR
:THIS ROUTINE EXTRACTS THE DRIVE' FROM RKDA (BITS 15,14,13) AND SAVES
:IT IN ·SRDRV· CBITS 0,1,2)
022114
022140
022144
022150

017746
004737
012637
000207

04-0CT-76
"lACy! 1 27(1006)
MAINDEC-I1-0ZRKH-f'
DZRKHF,Pll
22-SEP-7b 0f>l57
DRV. RESET -

4444

4419
440;0
H51
4452
4453
4454
4455
44'56

44'57
44'58
440;9

4460
4461
4462
441\3
4464
4465
4466
4467
44.,8

:GET BITS 15,14,13 FROM RKDA
:SAVE THE DRIVE #

13: 29
PAGE 102
DRIVE RESET ROUTINE

SEQ 0115

.SBTTL
DRY.RESET - DRIVE RESET ROUTINE
: DRV. RESET - DR IVE RESET ROUTINE
,If' R/W/S ROY DOES NOT SET WITHIN 11 CERTAIN TIME Of' DOING DRIVE RESET
: AN ERROR IS REPORTED,

4442
4H3
4445
4446
, 4447
444B

(iRKDA,-CSP)
PC,CIIOTLF
(SP)+,SRDRV
PC

GTSDRV: MOV
JSR
MOV
RTS

157"'70
022076
001250

022152
022156
022164
022172
022174
022202
022204
022210
022212
022214
022216
022222
022224
022232
022234
022240
022244
022250
022252
022256
022260
022262

005037
013777
012777
104417
032777
001026
012746
005216
001376
005726
005237
0"'1364
032777
001012
104401
ta4401
104401
011646
162716
10441"2
000002
000000

022262
001502
000015

157044
157030

000100

157014

177760

022262
020000
001213
.,27644
00220b
000002

15b706

DR,RST: CLR
MeV
MOV
CON,ROY
BIT
lSI
BNE
MOV
INC
BNE
TST
INC
BNE
BIT
BNE
TYPE
TYPE
TYPE
MOV
SUB
TYPOC
2$1
IITJ
Tl"lOUT: 0

TIMOUT
QDRVdlRKDA
H5,1!IRKCS
U00,(aRKDS

2$
h20,-CSPl
(SP)
.-2
(SP)+
TIMOUT
IS
'Sw13dISWR
2$
,$CRLF
,E'M4
,MSG12
CSP),-CSP)
'2, CSP)

, DID ROilS ROY SET?
: YES
:NO, wAIT pOR R/W/S

INHIBIT TYPEOUT?
YES
TIMe:D OUT, P/w/S ROY DID NOT SET
REPORT ERROR

~UNl'lEC-ll-DZRKH-"

DZRKHP' .P11
4469
4470
4471
4472
4473
4474
4475
4476
4477
4479
4479
4480
4491
4492
4483
4-494
4495
4486
4487
4498
4489
4490
4491
4492
4493
4494
4495
4496
4497

~ACYll

27 (tee"

22-SEP-76 08157

04-0CT-76
13129 PAGE 11'13
CON.RESET - CONTROL RESET ROUTI"E
.SBTTL
rCON.RESET
,CONTROL RESET ROUTINE
,CON.ROY
'CONTROL READY ROUTINE

022264
022272
022276
822302
022304
022318
022312
022314
022316
022322
022324
022332
022334
022340
022342
022346
022350
022354
022420
02242"
022424
022426

012777
005037
105777
100451
1'112746
005216
001376
005726
005237
1'101365
032777
001035
104401
011646
162716
194402
104401
000421

000001
001412
156720

156730

177750

001472
020000

CN.RSTI MOV
CN.RDYI CLR
1$1
Tst8
8MI
MOV
INC
BNE
TST
INC
8NE

BIT

156606

002296
000002
022356
065$1
6411

017746
104402
000002

156576
2$1

BNE
TYPE
MOV
SUB
TYPOC
TYPE
BR
.ASCIZ
MOV
TYPOC
RTI

11,IRKCS
TIMER
'RKCS

'-30,-(SP)
(SP)
0-2
CSP)+
TIMER
18
tSW13.I!ISWR
2.
,M8G12
(SP),-(SP)
'2, C8P)

I DID CONTROL ROY SET?
rYES
I WAIT FOR CNTRL ROY

, INHIBIT TYPEOUT?
;YES
,CNTRL ROY DID NOT SET, REPORT ERROR

, &5.
: ,TYPE ASC IZ STRI NG
641
: ,GET OVER THE ASC IZ
RKCS-I
<15><12>ICONTROLLER NOT READY ,RKCS,-CSP)

04-0CT-?6
13129 PAGE 104
MUNDEC-l1-DZRKH-F
NACYl1 27 (1006)
DZRI(HF,Pll
22-S!"P-76 08157
TYPMSG • TYPE I4ESSAGE ROUTINE (SW1] )
4498
4499
4500
45rU
4582
459)
4584
4585
4586
4507
4508
4509
4510

SEQ lit 16

CON.RESET - CONTROL RESET ROUTINE

,SElTTL

TYPI4SG -

TYPE foIe;SSAGE ROUTINE (SWl3)

,TYPMSG
,THIS ROUTINE IS USED FOR '1ESSAGE TYPEOUTS, IP' SW 13 IS SET THE TYPEOUT
,IS SKIPPED.
,CULl
TYPNSG
POINTER
,POINTER TO THE ASCII MESSAGE STRING

,
022430
022436
022440
022446
822450

4511

022452

4512

022456

832777
001005
017637

020000

1565112

000000

022450

TY,MSG:

104401

'SWll,I!ISWR

8NE
foIOV

1(8P).1S

, INHI!IT TYPEOUT?
,YES
~GET POINTER TO ASCII STRING

'2, (SP)

:ADJlIST RETURN lDDRESS TO SKIP OVER POINTER

TYPE

000080
1!62716
1!001!02

aIT

800002

lSI

.1I0RD

2S1

ADD
RTI

SEQ 0117

04-0CT-76
13129
MUNnEC-l1-0ZRKH-f
PAGE 105
MACYl1 27(1006)
22-SEP-76 08157
KWSRVE - KWllL CLOCK SERVICE ROUTINE
DZRKHF', Pll

;516
4517
40;1 e
4519
4520
40;21
4522
40;23
40;24
4525
40;26
4527
40;28
4529
4530
4511
4532
4533
4514
4'; 15
45 !&
4517
4518
4513
4H0
4541
4542
4543
4544
4545
4546
4547
40;48

(,l22460
022464
022466
022470
022476
0225"2
022504
022506
022514
022520
022522
022530

11112737
005237
001401
0,,"H'02
012737
",.,5237
0"'1005
"'12737
005237

022534

000002

005237
001401

001560

KWSRVE:

A~0002

177704
001556

0015&0

1$:

177704
001554

001556

21 :

177704
001552

INC
8EQ
RTI
MOV
INC
BE:C.l
RT!
MOV
INC
ElNE

.-60"KWCOUNT
KWSEC
2S

: RESET 60 CPS COUNT
; COUNT SECONDS
: OV!RF't.OWEO?
: RETURN
: RESET "SECONDS· COUNT
:COUNT MINUTES
, OVERFLOWED?
:RESET "MINUTES· COUNT
:COUNT HOURS

'-60"KWSEC
fCWMIN
'-60" KwMIN
KWHR

INC

3$ :

: COUNT 60 CPS
: OV!RF't.OW!D?

"IOV

,H11554

KWCOU'lT
1$

~TI

: RETURN

;IolA.TIME
: POUTI NE PROVIDES SOME WAITING TIME.
022536
022542
"'22546
022550
022552
022554
022556
02251>0
022562

013746
005237
001375
1111115216
001373
005726
000207
177730
000000

M~P'OEC-I1-DZRKH-f

DZRKH"pn
4549
455"
450;1
4552
4';0;3
450;4
150;0;
40;56
450;7
4558
150;9
4560
4561
4%2
45" 3
451)4

SEQ 0118

KWSFlVE • KIoI11L Ct.OCK SERVICE ROUTINE
,S8TTL
:Tlns ROUTINE SERVICES THE INTERRUPT .. ROM THE KWllt. t.INE CLOCK
:AND KEEPS TRACK 0 .. Et.APSED TIME.
; f(WCOUNT- CONTAINS CYCLES (PER SECOND) (2'5 COMPLEMENT)
:KWSEC- CONTAINS SECONDS (2'S COMPLEMENT)
:KwMIN- CONUINS MINUTES (2'S COMPLEMENT)
; KWHR- CO'lTAINS HOURS (2' S COr.oPLEMENT)

4511
4514
4515

0225610
022562

MACYI1 27(1006)

22-SEP-76 0lilS7

WATIME: MOV
lS:
INC
6NE
INC
ElNE
TST
RTS
2$ :
,wORD
3S1
.WORO

04-0::T-71)
KWSRVE -

2S,-(Sp)
3$
IS
(SP)
IS
(SP)+
PC
177130
0

13:29

COUNTER VALUE
COUNT
HANG IN THERE UNTIL COUNT WRAPS AROUND
COUNT AGAIN
GO THROUGH MINOR LOOP AGAIN
RESTORE THE STACK POINTER
RETURN
VALUE FOR APPROX 15 SEC DELAY
'MtNOR' LOOP COUNTER

PAGE 101)

KWllL CLOCK SERVICE ROUTINE

:CHPDRS
'THIS ROUTINE" CHECfCS IF THERE ANy DRIVES PRESENT (ON LINE), IF THERE
aPE, A RETURN IS MADE, IF THERE ARE NONE PRESENT, A MESSAGE IS PRINTED OUT.
: THE STACK POINTER IS RE-INITIA TED TO 1100 AND CONTROL IS TRANSFERRED
, TO THE END Of' PASS POUTHIE, 'EOP. BEFORE PASSING CONTROL TO $EOP, SOME
,TIME IS KILLED CillTIME), THIS ~S DONE TO KEEP THE NUMBER OF MESSAGES
: (END 01" PASS U) TO A SMALL AMOUNT.
022564
022570
022572
022574
022b00
022604
~22610

005737
001401
000207
1.,4401
004737
012706
000400

001264

002225
022536
001100

CHDPRS:

1$:

TST

DRVPRS

SEQ

RTS
TYPE
JSR

PC
,MSGI4
PC,WATIME
'STACK,SP
SEOP

MOV

: ANY DRIVES PRESENT?
:NO
:YES, EXIT
;NO, GIVE A MESSAGE
:KILL SOME TIME
:RErNITIALIZE STACK
:GO TO END OF PASS ROUTINE

SEQ 0119

04-0CT-76
PAGE 101
13129
MACUI 27(1096)
END or PASS ROUTINE
22-SEP-76 98157

~AINDEC-l1-DZRKH-F

DZRKHF ,Pl1
4565
4566
4567
4568
4569
4570
4571
4572
4573
4574
4575
4576
4577
4578
4579
4580
451'11
4582
4583
4584
4'585
45e6
4587
4588
45119
4590
4591
4'592
4593

.SBTTL

; '***************************************************************
I*INCREMENT THE PUS NUMl!ER (SPASS)
,*INOICAT!!: END-OF-PROGRAM ArTER 1 PASSES THRU THE PROGRAM
I *IF THERES A MONITOR GO TO IT
:*IF THERE ISN'T JU~P TO QMNGER
022612
022612
022614
022620
022624
022632
022634
022636
022641'1
1'122642
022644
022646
022652
022654
922656
022660
022662
022664
022666
1'122666
02267 ..

.EOPI
000004
005037
01'15237
042737
905327
900901
003013
012737
090901
922634
013799
01'11405
01'1901'1<;
004710
001'1240
001'1240
009240

09111'12
1'191100
1111001110

0111100
SEOPCT:
UNDCT:
$GET421

999942

SENDAD:

SRTNAD:

27( 10<16)

45q~

~6t1

4612
4613
4614
4615
4616
4617
4618
4619
4620
4621
4622
4623
4&24
4625
4626
4627
4628
4629
4630
4631
4632
4633
46)4
46)5

scoPe;
CLR
INC
BIC
DEC
.WORD
BGT
MOV
.io/ORD
SEOPCT
MOV
BEQ
RESET
JSR
Nap
NOP
NOP

$TSTNM
'PASS
1100900, SPASS
(PC)+
1
.DOlGN
(PC)+,II(PC)+
1
IiIw42,R0
SDOAGN
pc, (R0)

" ZERO THE TEST NUMBER
; 'INCREMENT THE PASS NUMBER
NUMBER
; ; LOOP?

lJ DON'T ALLOW A NEG.

; ,YES
, IRESTORE COUNTER
; ,GET MONITOR ADDRESS
; I BRANCH If' '10 MONITOR
; ,CLEAR THE WORLD
; ,GO TO MON ITOR
; ,SAVE ROOM
; ,P'OR
:lACTII

$DOAGN:
0"0137
010556

MAI'lDEC-I1-0ZIIKH-f'
MACYlI
()ZRKHr.PII
22-Sp;P-H ~8157

4595
459&
4597
4598
4'599
4&00
4631
46\!2
4&03
4604
4605
461'16
461'17
4608
4609
4610

SEQ IiHHI

END or PASS ROUTINE

JMP
.WORD

!lepC)+
QMNGER

"4-0CT-76
13129
TTY INPUT ROUTIN~
.seTn.

; ; RETURN

PAGE UB
se;Q el121

TTY INPUT ROUTlItE

; : .** •• ***.** ••• * ••••• ****** ..... ****.** •••• ***********************
• ENAHL

000176

022672
022700
022702
022706
022710
022714
022720
022724
022726
022734

022737
001074
H15777
100071
117746
1'142716
022126
001062
123727
031456

001140

022736
322742
022746
022752
022754
022760
022762
322764
022770

134401
10441'l1
013746
1044"'2
104401
035046
005046
105777
100375

323435

022772
022776

117746
042716

156150
177600

023002
023006
023010
023014
023020

021627
001005
104401
062706
000757

000025

9S1

023412
01'101'106

2051

023022
023026
023030
1'123034
023036
023044
023050
023054
023062
023064
023072
023074
023100

021627
001022
005766
001403
016671
062706
11'144111
123727
001003
012777
000002
904737
021627

000015

108,

156236
156232
177600
000007
001134

000001

323417
023424
000176

156154

loSS

;, ************.************.*************************************
;*SOf'Tio/APE SIolITCH REGIST~R CHANGE ROUTINE.
I*ROUTINE IS ENTERED P'ROM THE TRAP HANDLER, AND wILL
;*SERVICE THE TEST P"OR CHANGE HI SOfTWARE SWITCH REGISTER TRAP CALL
;*WHEN OPERATING IN TTY FLAG r>lODE.
WSWREG, SWP
SCKSWR: CMP
II IS THE SOFT-SWR SELECTED?
BNE
;, BRANCH IF NO
15S
, ,CHAR THERE?
TSTf!
UTKS
BPI..
IIIf' NO, DON'T WAIT AROUND
15S
MOVB
IIUKB,-eSP)
; ,SAVE THE CHAR
I-CI77, esP)
BIC
;, STRIP-OFf THE ASC II
17, esP)+
CMP
, ,IS IT A CONTROL G?
SNE
15$
" NO, RETURN TO USER
CMPB
;, ARE WE RUNNING IN AUTO-MODE?
UUTOB,11
BEQ
ISS
I,BRANCH If' YES
TYPE
SGTSWR: TYPE
MOV
TYPOC
TYPE
19$1
CLR
CLR
7$:
Tsr8
BPt,

,SCNTLG
,SMSWP
SWREG,-(SP)

"ECHO THE CONTROL-G e-G)
"TYPE CURRENT CONTENTS
: ,SAVE SWREG fOR TYPEOUT
: ,GO TYPE--OCTAL ASC I l ( ALL DIGITS)
; I PROMPT fOR NEW SWR
; JCLEAR COUNTER
, ,THE NEW SWR
, 'CHAR THERE?
, ,II" NOT TRY AGAIN

MOVB
BIC

UTKB,-(SP)
l·c177,(SPJ

, ,PICK UP CHAR
:IMAKE IT 7-BIT ASCII

CMF'
BNE
TYPF
AOD
BR

(Sp),125
10S
,SCNTLU
.6,SP
198

;, IS IT A CONTROL-U?
; JBRANCH IF NOT
;,YES, ECHO CONTROL-U (-U)
"IGNORE PREVIOUS INPUT
,'LET'S TRY IT AGAIN

CMP
BNE
TST
BEQ
MOV
ADO
TYPE
CMPB
BNE
MOV
PTI
JSP

(Sp),U5
16$
4(SP)

,IS IT A <CR>?
I BRANCH IF NO
,YES, IS IT THE FIRST CHAR?
'BRANCH If' YES
,SAVE NEW SWR
,CLEAR UP STACK
,ECHO <CR> AND <loP'>
,RE-ENABLE TTY KBD INTERRUPTS?
,BRANCH IF NOT
,RE-ENABL[ TTY KBD nTgRRUPTS
, RETURN
,ECHO CHAR
,CHAR < 07

, ,,,,NEW
-(SP)
-esP)
IUKS

~636

4637
4638
4639
4640
4641
4642
4643
4644
4645
4646
4647
4648
46411

000004
000002
0011006
001213
001115

156074

00011/10

! 56052

024322
0kl0060

115:
lUI
000001

15$ :
16S:

C~F'

11$
2eSp),UWP
.6,SP
, SCRLF
SINTAG, It
15.
'100,IIIUKS
PC,STYPEC
(SP),t60

MAINOEC-Il-DZRKH-F
"ACYll 27(1006)
04-0::T-76
13:29
OZRKHF ,Pll
22-S!!:P-76 08157
TTY INPUT FIOUTINE
4&5il
4651
460;2
4653
4654
4655
4656
4657
4658
460;9
4660
4661
4662
4663
4664
4665
4666
4667
4668
4669
4670
4671
4612
4673
4674
4675
4676
4677
4678
4679
46130
4681
H,!32
4bR3
4684
46135
46R6
4687
46RP
4689
46~0

46~1

4692
4693
1694
4695
4696
4697
4698
4699
4700
4701
4702
471'13
4704
4705

023104
023106
023112
023114
023120
021124
023126
023130
023132
023134
023140
~23144

023146
023152

002420
021627
003015
042726
a05766
001403
006316
a06316
006316
005266
056616
000707
104401
000720

000067
000060
000002

000002
171776

17$1

001212

18$:

BLT
CMP
BGT
SIC
TST
BEQ
ASL
ASL
ASL
INC

eIS

,OSABL

BR
HPE
BR
LSB

~728

4729
4730
47H
4H2

SEQ 0122

18$
(SP)"67
18$
.60, (SP)+
2(SP)

: BRANCH IF YES
,CHAR> 7?
'BRANCH IF YES
,STRIP-OFF ASCII
,IS THIS THE FIRST CHAR
: BRANCH IF YES
,NO, SHIFT PRESENT
,
CHAR OVER TO MAKE
,
ROOM FOR NEW ONE.
I KEEP COUNT OF CHAR
,SET I N NEW CHAR
,GET THE NEXT ONE
,TYPE 1<CR><Lf">
,SIMULATE CONTROL-U

11$
(SP)
(SP)
esP)
2eSP)
-2(SP),csP)

7S
, SOUES
20$

; : ***************************************************************
:*THiS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY
,*CALL:
RDCHR
I I INPUT A SINGLE CHARACTER FROM THE TTY
RETURN HERE
, I CHARACTER IS ON THE STACK
; J iH!" PARITY SIT STiUPPED OFF

023154
023156
023164
1'123170
023172
023200
1:'23206
023214
023210
023222
023224
023230
023234
0232410
023242
023244
023252
023254
023262
023264
023272

011646
016666
105777
100375
117766
042166
026627
f'0H'J13
105777
100375
117746
042716
022627
001366
000750
1!126b27
002407
02"627
003003
042766
000002

SROCHFlI MOV
0001004
155754

000002

155750
t 77600
000004

0000114
000004
000023

"I0V
1$:

155722

2$1

155716
177600
000021

000140
000004

000175

000040

000004

3S:

T5TB
BPL
MOVS
SIC
CMP
SNE
T5T8
BPI..
MOVS
SIC
CMP
BillE
BF!
CMP
B["T
CMP
BGT
BIC
RT!

CSP),-CSp)
4(SP),2(SP)
ta$TKS

: : PUSH ~OWN THE PC
: ,SAVE THE PS
"wAIT FOR
, : A CHARACTER
, I READ THE TTY
: I GET RIO OF JUNK IF ANY
:, IS IT A CONTROL-S1
, I BRANCH IF NO
: IWAIT FOR A CHARACTER
: I LOOP UNTIL ITS THERE
I I GET CHARACTER
: IMAKE IT 7-BIT ASCII
n IS IT A CONTROL-Q?
: :IF 'lOT DISCARO IT
, ,'iES, RESUME
;: IS IT UPPER CASE?
::BRANCH IF YES
II IS IT A SPEC !AI" CHAR?
nBRANCH IF YES
::MAKE IT UPPER CASE
: I GO BACK TO USER

IiISTKB,4(SP)
.-C<I77>,4(SP)
4(SP) ,423

3$
UTKS
2$
UTKS,-(SP)
.-Cl77,(SP)
eSP)+,121
2$
1$
4eSP) •• 140
4S
4CSP),#175
4$
H0.4(SP)

4$:
: J ........ ********* ......... *** ..................... ***** .......... ****************.*********
;*THIS ROUTiNE WILL INPUT A STRING FROM THE TTY
:*CALI.:
ROLIN
: I INPUT A STRING FROM THE TTY
RETURN HERE
, I ADDRESS OF' FIRST CHARACTER WILL BE ON THE STACK
1*
,:TERMINATOR WILL 8E A BYTE OF ALL fIl'S
1*

023274
023276
023302

010346
01270 ]
022703

SROLIIIII MOV
1$:
MDV
2$:
CMP

023402
1'123412

R3,-(SP)
UTTYIN,Rl
I$TTYlN+8,,1<3

04-0CT-76
13:29
MAPlDFC-I! -OZRKH-F
MAC't11 27(1006)
DZRKHF,PII
n-SEP-7& 08 :57
TTY INPUT ROUTI~E
4706
47il7
47,,8
47'19
47 \ 0
4711
47\ 2
4713
1714
47 \ 5
47 \ 6
47 \ 7
411 s
4719
1720
4121
4722
4723
4724
1725
4726
4727

PAGE 109

023306
023310
023312
023314
023320
023322
023326
021330
023334
023340
023344
023346
023352
023356
023360
023362
023370
023370
023400
023401
023402
023412
023417
023424
023432
023415
023442

Ifil14\l5
104410
112613
122713
001003
1114401
000763
111137
104411'1
122723

0"'0
0100012
020122

B["OS
ROCHR
MOVB
10S:
CMPB
BNE
4$:
TYPE
BR
3$:
MOVS
TYPE
CI'IPS
BNE
CLRS
HPE
MOV
MOV
MOV
MOV
RTl
9$:
,BYTE
,BYTE
STTYH;: .BLKS
SC"TLU: .ASCIZ
SCNTLG:
SMSWR:
.ASCIZ

053505

SM"EW:

00.H77
001212
023400
023400
000;j15

0~135b

10'5063
104401
012003
011646
016666
012766
000002
000
000
0011010
'15253&
136
0015015
020075
040
036440

177777
001214
000004
023402

01!15015
006507
053523
iii 00
047040
000040

000002
000004

.lIscn

, ASCIZ

; ,SAVE R3
: ,GET AODRESS
: ,BUFFER FULL?

PAGE 110
SEQ 0123

:'BR IF YES
, ,GO READ ONE CHARACTER FROM THE TTY
" GET CHARACTER
: : IS IT A RUB OUT
,:SKIP IF NOT
:,TYPE A '1'
: ,CLEAR THE BUFFER ANO LOOP
, : ECHO THE CHARACTER

(sp)+, (R3)
#177,(R3)
3S
,$QUES
1$

(R3),9$
,9$

tiS, (R3)+

, ,CHECK FOR RETURN
: I LOOP IF NOT RETURN
:,CLEAR RETURN (THE 15)
,: TYPE A LINE FEED
,:RESTORE R3
"ADJUST THE STACK AND PUT ADDRESS OF THE
FIRST ASC II CHARACTER ON IT
::

2$
-I (1<3)
,$LF
(SP)+,R3
(SP) ,-(SP)
4CSP)'2(SP)
UTTYIN,4 (SP)

, ,RETURN
, : STORAGE FOR ASCII CHAR. TO TYPE
IITERMINATOR
I' RESERVE 8 BYTES FOR TTY INPUT
::CONTROL "Un
I:CONTROL "G"

'B.
"
rU/<15><12>
rG/<15><12>
<15><12>/SWR
NEW'" 1

e4-0CT-16 13129 PAGE 111
MUNDEC-ll-DZRKH-F
IIACY11 27(1006)
OZ~J(HF,Pl1
RUD AN OCTAL NUMBER rRO"'l TNE TTY
22-SEP-H 08157
4733
4734
4735
4736
4737
47)8
4"139
4H0
4741
4742
4743
4744
4745
4146
4147
4748
4149
4750
4751
4752
4753
4754
4755
4756
4757
4758
4759
4760
4761
4762
4163
4764
4765
4766
4767
4768
4769
4779

,SBTTL

READ AN OCTAL

NUM8E~

, '********************* ** ••• ** •• ***.****.*.** ••• * ** * •• **.* Ii* ••• **
,*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND
,*CHANGE IT TO BINAIIY.
,*CALLI
, ,READ AN OCTAL NUMBER
ROOCT
f*
"LOW ORDER BITS ARE ON TOP or THE STAeT<
RETURN HERE
,*
J.
"HIGH ORDER BITS ARE IN SHIOCT
823446
023450
823456
023460
11123462
023464
023466
023470
823412
023474
023476
02)508
023502
023584
02)506
02)510
023512
1'123514
023520
023522
023524
923526
023532
023536
923540
023542
023544
823546

011646
016666
010046
010146
01111246
104411
012680
805001
005002
112046
801412
086)01
006102
006381
006102
006]01
006102
042716
062601
009764
005726
910166
010237
912602
1!l12601
912600
808002
000000

000004

000002

177778

900012
023546

'RDOCTI MOV
MOV
MOV
MOV
MOV
ROLIN
lt1
MOV
CLR
CLR
2$1
MOVB
BEQ
ASL
ROL
ASL
ROL
ASL
ROL
BIC
ADD
BR
TST
lSI
MOV
MOV
MOV
MOV
HOV
RTt
'HIOCT, .WORD

(Sp),-(Sp)
4(SP),2(SP)
R0,-(SP)
Rl,-(SP)
R2,-(SP)

,S8TTL

4771
4772

" PICICUP THIS CHARACTEII
I,Ir ZERO GET OUT
n*2

!II

n*8

R2
'-C7,(SP)
(SP)+,Rl
2.
(SP).
Plr12(SP)
R2, ,HIOCT
(SP)+,R2
(SP)+,Rl
(SP)+,R9

4809

4810
4811
49t2
481l

4814
48t5
4816
4817
48t8
4819
482111
4821
4822
4823
4824
4825
4826

11*4

,STRIP THE ASCII JUNK
IADD IN THIS DIGIT
,LOOP
,CLEAN TERMINATOR rROM STACK
I SAVE THE RESULT
,POP STACK INTO R2
I POP STACK INTO Rl
,POP STACK INTO R8
,RETUPN
,NIGH ORDER BITS GO HERE

TTY

READ A DEC IMAL NUMBER FROM THE TTY

t, *** •• * •••••••••• **.* •••• *** ••• *.**.* ••••• *.*.*** ............ * •••
,.THIS ROUTINE WILL READ A DECI"'AL (UCII) NUMBER rROM THE TTY AND
,.CHANGE IT TO 8INARY. IF TOO MANY CHARACTERS OR ANY ILLEGAL CHARACTERS
,.AR! READ" .,- rOLLOWED 8Y A CARRIAGE RETURN-LINE FEED WILL BE TYPED.
,*THE COMPLETE NUMBER MUST BE RETYPED. THE INPUT IS TERMINATED BY THE
,.USER TYPING A CARRIAGE RETURN, THE RANGE OP' THE INPUT NUMBER IS
,.POSITIVE )2767 TO NEGATIVE 327611.
,*CALLI
RDDEC
"READ A DECIMAL NUMBER
RETURN HERE
" NUMBEP IS ON TOP DP' THE STACK
'*

4713

48118

J 'PROVIDE SPACE rOR THE
, 'INPUT NUMBER
J, PUSH R0 ON STACK
"PUSH Rl ON STACK
"PUSH R2 ON STACK
"READ AN Ascn LINE
J ,GET ADDRESS or lST CHARACTER
"CLEAR DATA WORD

(SP).,R0
Rl
R2
(R0)., - (SP)
3$
Rl
P2
Rl
R2

04-0cr-76 13129 PAGE 112
IolAINDEC -11 -DZRICH-F
IIACYII 27(1806)
READ A DECIIIAL NUIolBER FROM THE
22-6EP-76 08157
OZRKHP'.I' 11

4774
4775
4776
4777
4778
4179
4180
4781
4792
4793
4784
4785
4786
4787
4788
4789
4799
4791
4792
4793
4794
4795
4796
4797
4798
4799
481111
4801
4802
4803
4804
4885
4906
4807

S£;Q 0124

FROM THE TTY

,.
I

023550
023552
023560
023562
023564
023566
02)510
023572
"23576
923600
"23682
023606
02)610
023612
823614
023616
02)622
023624
023618
023612
8236J6
923640
1123642
"23644
1123646
823658
021652
82)654
823668
023662
823664
023666
0:n671'1
823672
1123674
"237110
823702
82371'14
1'12]706

U1646
916666
818046
018146
"19246
104411
012698
010837
095946
005002
122710
801001
112"02
112801
0"1424
122701
803032
122701
002427
el2716
801824
1186)16
011646
0"6316
006lt6
862616
102416
162701
8"'116
182412
1198752
085702
001401
095416
012666
012602
0126111
812680
"0"1102

1'121718

005726
105011'1

023712

000004

023716

90""55

0011060
008011
179888

009060

900012

890002

'RDDEel MOV
MOV
MOV
MOV
MOV
1$1
ROLIN
MOV
MOV
CLR
CLR
CMPB
BNE
MOV8
MOVB
2 ••
BEQ
CMPB
BGT
CMPB
BU
BIT
BNE
AIL
MOV
ASL
ASL
ADO
Bva
SUB
ADD
BVS
BR
H.
TaT
BEQ
NEG
MOV
MOV
MOV
MOV
RTI

...
5$1

TST
eLRS

<SP),-(SP)
4(SP),2(SP)
R8,-UP)
Rl,-CSP)
R2,-(SP)
(5P)+, R9
R9,61
-(SP)
R2
• '-, (R9)
2.
(R,,)+,R2
(RII)+,Rl
]I

• '",Rl
5.
"9,Rl

, 'PROVIDE SPACE FOR
" THE INPUT NUMBER
"PUSH R9 ON STACK
J ,PUSH R1 ON STACK
, , PUSH R2 ON STACIC:
" READ AN Ascn LINE
"ADDR!SS or 1ST CHAR,
"SAVE INCASE or BAD INPUT
"CLEAR DATA WORD
HSIGN SET POSITIVE
"SEE IF A MINUS SIGN WAS TYPED
"BR IF NO MIliUS SIGN
"SA VE FOR LATER USE
"PICKUP THIS CHARACTER
I. GET OUT IF ZERO
f' MAKE StlRE THIS CHARACTER
, ,IS A DIGIT BETWEEN 8 , 9

58
'-C7777, (SP)
5'
(SP)
(SP),-(SP)
(SP)
(SP)
UPJ+, (SP)
51
• -", Rl

Rl, (SP)

51
2.
R2

U
(SP)
(SP)+,l2CSP)
(SP)+,R2
(SP)+, R1
CSP).,R0
(SP)·

elll!ll

"DON'T LET NUMBER GET TO BIG
" BR IF NUMBER WOULD OVERFLOW

".2

,'SAVE rDR LATER
".4

,".8.
,·10.

"OVERFLOW ISN'T ALLOWED
"STRIP AWAY THE ASCII JUNK
"ADD IN THIS DIGIT
, ,OVERFLOW ISN'T ALLOWED
, ,LOOP
, ,CHECK Ir NUMBER IS NEG
,,8R IF NO
"YES--NEGATE THE NU!48EII
"SAVE THE RESULT
"POP STACK INTO R2
J ,POP SUCK INTO Rl
, ,POP STACK INTO RIo1
, ,RETURN
, ,CLEAN PARTIAL NUMBER "!l.O'" STACK
IISU ,. TE:R"'t"~TOR

SEQ 0125

13129
04-0CT-76
PAGE 113
MAC'i11 27(1006)
READ A DECIMAL NUMBER FROM THE TTY
22-SEP-76 08157

"'UNOEC-l1-0ZRK~-P'

OZIlKHP'.Pll

4827
4828
4929

4R 30

023714
023716
023721i
023124

104401
000000
1~4401

68t
001212

000720

TYPE
,WORD
TYPE
8R

, ,QUES
1$

SEQ 0126

: I TYPE THE INPUT UP TO BAD CHAR.
"POINTER GOES HERE
"CR" '"Lp'·
"TAY lGUII

J' -,-

04-0CT-76
13: 29
PAGE: 114
"'IlCYII 27C1i<l06)
CONVEPT BINARY TO DECIMAL AND TYPE ROUTINE
22-SEP-76 08157

~AINDE"C-ll-0ZRKH·F

DZRICIo/F .pl I

.S~TTL

4831
4~ 32

CONVERT BINARY TO DECIMAL AND TyPE ROUTINE

II ***************************************************************
,*flitS ROUTINE 15 USED TO CHANGE 11 16-B1T BINAIIY NUMBER TO A !5-DIGl!
,*SIGNED OECI"'AL (ASCll) NU"IBER AND TYPE IT. DEPENDING ON WHETHER THE
I*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR 11 MINUS SIGN WILL BE TYPED
,*BEFORE THE FIRST DiGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
I *REPLA:::EO WITH SPACES.
,*CALL:
MOV
NUM,-CSP)
I ' PUT THE BINARY NUMBER ON THE STACK
1*
: , GO TO THE ROUTI NE
TYPOS
:*

48H
4R 15
4~16

4817
4818
48'9
494"
4~41

4i142

isn
4844

4H5
4.H6
4847
4H8
48i9
4!'150
41.l51
4~52

480;)
4854
41155
11156
4R57
48511
480;9

481)0
4861
4862
4863
4864
4865
4966
41167
~B68

4%9
487"
4q71

H72
4973
4874
4875
4976
4877
4878
4879
48A0
1881
4882
4B83
4984
4895
4886

(23721)
023726
0217)0
0237)2
023714
021716
02174.3
"23744
023750
023752
023754
023762
023764
023770
023714
023776
024002
024004
024.";'6
024010
024012
024014
024016
024<120
024022
024024
024026
024030
024~36

024042
024046
024050
024052
024~1j6

024060
024062
024<164
024066
024070
024072

024100
024102
024104
024106

$TYPOS I
0101'141)
010146
PH0246
010346
010546
1'112746
01&605

021'1200
000020

1~0.304

00541"5

112766
005000
012703
112723
005(1102
"'160"'1
160105
0024;12
0052ft12
000774
060105
005702
001002
105716
100407

iM01'l55

001'1001
1St

024142
0~0040

211
024132
3S1

4$1

1~6.H6

103003
116663
1'152702
0527A2
110223
005720
820@27
11'02146
803002
0Hl502
000764
105726
1 1:1 0 111 A 3
116663
105013
012605
012603
012602

56:
000001
"'''01160
0"'004A

177777
6$:

7$:

000010

8$ :
177777

177776
9S:

MOV
MOV
MOV
MOV
MOV
MOV
MOV
BPL
NEG
MOVB
CLR
MV
MOYB
CLR
140V
SliB
Bl.T
III.C
BR
ADO
TST
BNE
TSTB
BMI
ASLB
BeC
MOVS
BIS
BIS
MOVS
TST
CMP
SLT
SGT
MOV
BR
TSTB
BPL
MOVEI
CLRB
MOV
MOV
MOV

Fl0, -(SP)
Rl,-CSP)
R2,-(SP)
Rl,-(SP)
R5,-CSP)
'20200,-CSP)
2itl(SP),R5
1$

RS
"-,HSP)
1'10
ISDBLK,R3
"
, (Rl)+
R2
$DTBl.(R0),R1
1'11,1'15
4$
1'12

, ,PUSH R0 ON STACK
IIPUSH Rl ON STACK
I,PUSH R2 ON STACK
IIPUSH 1'13 ON STACK
,: PUSH R5 ON STACK
:,SET BLANK SWITCH AND SIGN
I ,GET THE I NPUT NUMBER
I :BR IF INPUT IS POSe
:, MAKE THE BINARY NUMBER POS.
I ,MAKE THI!: ASC I I NUMBER NEG.
:, ZERO THE CONSTANTS INDEX
I rSETUP THE OUTPUT POIrITER
: I SET THE FIRST CHARACTER TO A BLANK
: I CLEAR THE BCD NUMBER
: ,GET THE CONSTANT
:, FORM THIS BCD DIGIT
: JBR If" DONE
: ,INCREASE THE BCD DIGIT BY 1

lS
RI, R5
1'12
5$
(SP)
7$
(SP)
6$
1(SP) ,-I (R3)
"0,1'12
. ' ,R2
R2, (R3)+
(R0)+
1'10,110
2.

lIS
R!5,R2

6S
(SP)+

9,
-t(SP),-2CR3)
(113)

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

: I ADD BACK THE CONSTANT
: I CHECK IF' BCD DIGiT.0
, ,FALl. THROUGH IF 0
: ,STILL DOING LEADING 0"S?
: IBR If" YES
IIMSO?
~:BR If" NO
: I YES·-SET THE SIGN
I ' MAKE THE BCD DIGIT ASCII
:, MAKE IT A SPACE IF NOT Al.READY A DIGIT
"PUT THIS CHARACTER IN THE OUTPUT BUFFER
:IJUST INCR~MENTING
: ICHECK TIfE TABLE INDEX
"GO DO THE NEXT DIGIT
"GO TO EXIT
: I GET THE LSD
nGO CHANGE TO ASCII
n WAS THE l.SO THE FI RST NON-ZERO?
: ,BR U' NO
:: YES--SET THE SIGN FOR TYPING
: I SET THE TERMINATOR
: I POP STACK INTO R5
:, POP STACK INTO 1'13
I I POP STACK INTO R2

SEQ 0127

04-0CT-76
13129 PAGE 115
MACYll 27(1006)
"'A I NDEC -11-DZRKH-F
CZRI(HF • PIt
22-SEP-76 08157
CONVERT BINARY TO DECIMAL A~D UPE ROUTINE
4887
4888
4899
4890
4891
4892
4993
4894
4il~5

1H6
4897

024110
024112
024114
024120
024126
024130
024132
024134
024136
024140
024142

012601
012600
104401
016666
012616
000002
023420
001750
000144
000012
000004

024142
000002

000004

SDTBL I

SDBLK 1

MOV
MOV
TYPE
MOV
MOV
RTI
10000,
1000.
100,
10,
,BLKW

(SP)+rRI
(SP)+,R0
, $CBLK
2(SP)'4(SP)
(SP)+, (SP)

, ,RETURN TO USER

IIAINDEC-I1-DZRKH-F
MACHt 27(100&)
04-0CT-7&
13129
DZRKIIF',PII
22-SEP-7fi 08157
TYPE POUTIN~
4898
4899
4900
4901
49,,2
4903
4904
4905
4906
4907
49,,8
4909
4910
4911
4912
4913
4914
4915
4916
4917
4918
4919
4920
4921
4922
4923
4924
4925
4926
4927
4928
4929
49]0
4931
4932
4933
49]4
4935
49]6
4937
4938
49)9
4940
4941
4942
4943
4944
4945
4946
4947
4948
4949
4950
4951
4952

41!153

• SElTTl.

PAGE 116

SEQ

TYPF: ROllTIlif

, ,***************************************** ..*********************
,*ROUTINE TO TYPE ASCIZ MESSAGE.. MESSAGE MUST TERMINATE WITH A 0 BYTE,
,*THE POUTINE WILL INSERT A NUMBER OF' NULL CHARACTERS ArTER A LINE rEED.
;*NOTE11
SNULL CONTAINS THE CHARACTER TO BE USED AS THE F'ILz.,ER CHARACTER.
I*NOTE2:
$FILLS CONTAINS THE NUMBER or FILLER CHARACTERS REQUIRED.
;*NOTElJ
$rILLC CONTAHIS THE CHARACTER TO FILL AF'TER.
;*CALLI

1*1) USING A THP INSTRUCTION
'*
,*OR
1*
;*
1*
024152
024156
024160
024162
024164
024166
024172
024174
024176
024200
024202
024206
024210
024214
024216
024222
024224
024226
024230
924232
024236
924240
024244
024250
024252

105737
100002
000000
N!l0407
"10046
017600
112046
001005
005726
012600
1'162716
000002
122716
001430
122716
1'101006
905726
104401
001213
105037
000755
004737
12372&
001350
013746

024256
024262
024264
024270
024274

105)66
002770
004137

105337

001157

STYPEI

lS:
1100002
2S1

000002

61'1S1
3$:

000011

481

000200

024366
5$ 1
6$ I

024322
001156
001154

7,.

000001
024322
024366

000770

TYPE

, MESAOR

I,MESAOR IS FIRST ADDRESS or AN ASCIZ STRING

$TPFLG
IS

"15 THEilE A TERMINAL?
I'SR IF' YE:S
;IHAI"T HERE I f NO TERMINAL
llLEAVE
J ISAVE R0
IIGET ADDRESS OF' ASCIZ STRING
; ,PUSH CHARACTER TO BE TYPED ONTO STACK
IIBR IP' IT ISN'T THE TERMINATOR
:, IF' TERMINATOR POP IT OFF THE STACK
, ,RESTORE R0
, I ADJUST RETURN PC
"RETURN
'I BRANCH IF' <HT>

TYPE
MESADR

TSTB
BPL
HALT
SR
MOV
MOV
MOVS
8NE
TST
MOV
ADO
RTI
CMPB
BEQ
CMPB
SNE
TST
TYPE
SCRLr
CLRB
BR
JSR
CMPB
BNE
MOV
DECS
BL!
JSR
Oe:CB
BR

35
R0,-CSP)
n(SP),R0
(R0H,-(SP)

u
CSP).
(SP)+,R0

'2, esP)
'IIT, (SP)

8.
ICRLf, (SP)

I I BRANCH IF NOT <CRLF>

5.
(SP)t

: ,POP
<CR><LF'> EQUIV
: ,TYPE A CR AND Lf

'CHARCNT

"CLEAR CHARACTER COUNT
: I GET NEXT CHARACTER
nGO TYPE THIS CHARACTER
JIIS IT TIME FOR FILz.,ER CHARS,?
n I f NO GO GET NEXT CHAR,
;, GET • OF FILLER CHARS. NEEDED
"AND THE NULL CHAR.
J J DOES A NULL NEED TO BE TYPED?
; I BR IF' NO--GO POP THE NULz., OF'F' or STACK
: ,GO TYPE A NULL
; 'DO NOT COUNT AS l COUNT
; ,LOOP

PC,STYPEC
'P'ILLC, (SP)+

U
SNULL,-(SP)
1(SP)

PC,STYPEC
'CHARCNT

,HORIZONTAL TAB PROCESSOR
024276
824302
02UIl6
024314
024316

112716
004737
132737
001372
005726

000040
024322
000007

8S I
9$1
l'!24365

Move
JSP
BITB
BNE
TST

SEQ £1128

;, POP STACK INTO RI
;'POP STACK INTO R0
, ,NOW TYPE THE NUMBER
, ,ADJUST THE STACK

•• , (SP)
Pc,ITYPEC
t7,SCHARCNT

(SP) +

"REPLACE TAB WITH SPACE
" TYPE A SPACE
; IBRAtiCH IF' NOT AT
"TAB STOP
: : pop SPACE orr snCK

~129

IIAIrfDEC-t t-DzRKH-F'
MACYII 27(1006)
22-SEP-76 08157
DZRr<H'. Pll
4~54

4955
4956
4957
H58
4959
P60
4961
4962
4963
4964
4965
4966
4967

024320
"24322
024326
024330
024336
024344
024346
024352
024354
024362
024364
11124366
024370

000724
105777
100375
116677
122766
001003
105037
000406
122766
001402
105227
000000
f'l002 III 7

SR
STypEC: TSTB

154622

BPt
"00002
000015

154614
"00002

024366
00"'H2

000002

MA r N(lEC -11 -DZRKH-'
"'4COI
DZRKHF', Pl1
22-SEP·76 fl81S7

27 (I "06)

496B
4969
4;lH
4971
4972
4973
4974
4915
4976
4977
4978
1'179
4980
498 I
49S2

4'H!3
4994
4995
49q6

B'n

49A8
49q9
BCl0
4991
4H2
H'I]
49'l4
4995
4'191>
4997
49'18
4999
501~0

5;101
5"'02
';003
5004
5"'35
5",,,,6

13129
04-0CT-76
TYPE ROUTINE

MOVS
CMPB
SNE
CLRS
BR
CliPS
lSI
BEQ
INCB
SCHARCI/TI,WORD
STYPEX: HTS

PlIG£: 117
SEQ 0130

2$
flTPS
nYPE::
2 (SF), !lSTPS
_CR,2(SP)
1S
SCHARCNT
STYPEX
nr,2(SP)
$TYPEX
(PC)+
0
PC

: : GET NEXT CHARACTER
: ,WUT UNTIL PRUTER IS READY
ILOAD CHAP TO BE TYPED INTO DATA REG.
,IS CHlIRACTER A CARRIAGE RETURN?
IBRANCH If' NO
/yES--CLEAR CHARACTER COUNT
:EXIT
: IS CHARACTER A LI"IE FEED?
,BRANCH IF YES
; COUNT THE CHARACTER
:CHARACTER COUNT STORAGE

134-0CT-76
t 3129 PAGE 118
DOUALE LeNGTH RINA.RY TO OCTAl, ASCII CONVERT ROUTINE
,SATTL

D(')UALE

LE~jGTH

SEQ 0131

BINltRY TO OCTAL ASCII CONVERT ROUTINE

: : **** ...... *********************************************************

:*THIS ROUT!Nt,: wILL CONVi::RT A 32-I;IT UNSIGNED bINARY NUMbER TO AN
:*UNSIGNEO OcrAL ~SCIZ t/u~BER,
: *CALL
#PNTR,-(SP)
MOV
,;POINTER TO LOW WOPD OF BINARY NUMBER
:*
PC,GlUDB20
: ,CALL THE ROUTINE
JSR
:*
Rf.TUPN
; I THE ADDRESS OF' TH E FIRST ASCIZ CHAR, IS ON THE STACK
;*

024372
024374
024400
024404
024410
024114
1'124416
024420
024422
024424
024426
024; 30
024432
024434
"24436
024442
024444
024446
0244513
024452
024454
024456
.,24460
024462
024464
024466
1124472
024474

$D820;

104414
0166~11

1'112705
012704
012703
012100
1'112101
00513"2
I J 0245
010002
005304
,,"3007
001405
005205
013566
1014415
000207
3"'6203
8060al
,,36000
"'06a01
3060a0
006"'111
036000
043302
0627a2
00375 ]

303016

11100002
024511
0130014
177770

Sl..VP.:G
MOV
~OV

1 S:

MOV
MOV
MOV
MOV
CLR
MOVB
"'OV
DEC
BGT
BEQ

INC
0"00102

2S;

lS:

160f11l""
SOCTVL:

MO.
RESREG
RTS
ASR
ROR
ROR
ROR
ROR
POR
ROR
SIC
ADD
BR
,6LKI;l

2CSP) ,Fll
HOCTVL+13"R5
_12" R4
'·C7,R3
(PI) +, R0
(RI )+, RI
R2
Fl2,-(RS)
R;»,R2
1'4
3S
2S
P5
R5,2(SP)
PC
R3
Rl
fl0
1<1
R0
PI
R0
R3,R2
• -0, R2
1$
14,

:SAVE ALL REGISTERS
;PICKUP THE POINTER TO LOw WORD
,POINTER TO DATA TABLE
:00 ELEVJ;:N CHARACTERS
: MASK
I LOWER WORD
IHIGH WORD
/TERMINAtOR
,PUT CHARACTER IN DATA TABLE
rGET THIS DIGIT
;COUNT TflIS CHARACTER
IBR If' NOT THE LAST DIGIT
IBP IF IT IS THE LAS! DIGIT
,TtLL DIGITS DONE-ADJUST POINTER FOR FIRST
;ASCIZ CHAR, i. PUT IT ON THE STACK
; RESTORE ALL REGISTERS
: RETURN TO USER
~POSITION THE MASK fOR THE LAST DIGIT
,POSITION THE BINARY NUMBER f'OR
THE NEXT OCTAL DIGIT

IMASK OUT ALL JUNK
,MAKE THIS CHAR. ASCII
:GO PUT IT IN THE DATA TABLE
,RESERVE DATA TABLE

13129 PAGE 119
"'.IN!)EC-11-DZRKH-,.
",ACYl 1 27( le06)
04-0CT-"
DOUBL[ LENGTH BINARY TO DECIMAL ASC II CONVERT ROUT IN!!:
OZRKHf',PII
22-SEP-76 081 S7

5(!lIJ7
5008
5009
51"0
5011
5012
50n
5014
5litl5
'5016
5017
5018
5019
5020
5021
5022
5021
!l024
5025
5026
5027
5028
5029
5010
50ll
50]2
5033
5034
51n5
50]6
5037
50]B
5039
5040
5041
5042
5043
5044
5045
5046
5047
5018
5049
50'50
51/151
50'52
5053
5054
5055
5056
5057
5059
5059
5060
5061
5062

.8BTTL

SEQ 013.

DOUBLE LENGTH BIKARY TO DECIMAL ASCII CONVERT ROUTINE

1,·····*·····**··*******·'H'*.****4I***********.* ..... 4 . . . . . . . . . . . . . . .
I*THIS ROUTINE WILL CONVEP.T A '2-BIT BINARY NUM8ER TO AN UNSIGNED
,*OECIMAL (A8CII) NUMBEFI. THE SHIN OF THE BINARY NUMBER MUST BE
I*POSITIVE.
:*CALL
MOV
'PNTFI,~(SP)
IIPOINTER TO LOW WORD OF BINAPY NU\!BE~
I·
JSR
PC.US0820
1*
RETUFlN
lITHE FIRST ADDRESS OF ASCIZ
1*
P IS ON THE STACK
024512
e?4514
024520
024524
"24530
024532
024534
024542
024546
024552
024554
024556
024560
024562
024564
024566
"24570
024572
024574
024516
{:'I 24600
024604
024606
024610
024612
024614
024616
024620
024622
024624
024626
024630
024632
024634
024636
024640
024642
024644
024646
1124650
1124652
024654
024656

104414
016602
012700
010066
012201
0d202
012737
012704
e12705
005001
161401

00liHH2
024622
0H624

00~602

161502
002402
005203
000772
062401
005502
062402
022525
052703
1 H!I320
005327
000000
00U57
105020
104415
000207
145000
035632
160400
002765
11:200
0002)0
041 100
1/100017
103240
00G10'"
023420
000000
1i101750
000000
000144

SAVpEG
MOV
MOV
MOV
I!OV
MOV
MOV
MOV
MOV
lSI
CLR
SUB
2$1
SBC
SUB
BLT
INC
8A
3$1
ADO
ADe
ADO
CMP
BIS
MOV8
DEC
4$:
,WORD
8NE
CLRB
RESREG
RTS
STNPWPI 145000
35612
160400
2765
113200
2]0
041100
*0820:

000002
024672
000002

000061'

024610

2(SP).R2
I$DECVL,R0
R0,2(SP)
(P2)+.Rl
(R2)+,R2
110.,4S
HTNPWR,R4
UTNPWR+2, R5
Rl
(fl4) .Rl
R2
(R5).R2

3S
Rl
2.
(A4)+,PI
R2
(R4)+.R2
(R5)+. (115)+
• '0, RJ
Rl, (R0)+
(PC)+
0
15
(R0) +
PC

IISAVE REGISTERS
IIPICKUP THE DATA POINTEP
II GET ADDRESS OF • SOECVL" STRING
I,PUT ADDRESS OF ASCIZ STRING ON STACK
; IPICKUP THE BINARY NUMBER
I,sn UP TO DO 10 CONVERSIONS
"AODRESS OF TEN POwER
" CLEAR PART IAL
~,SUBTRACT TEN POWER
; ,BR IF TEN POWER TO LARGE
" ADO 1 TO PARTIAL
;,LOOP
I ;RESTORE SUBTRACTED VALUE
I' MOVE TO NEXT TEN POWER
, ,CHANGE PARTIAL TO ASCII
"SAVE IT
IIOONE?
1,8R IF NO
: ,TERMINATOR
; I RESTORE REGISTERS
" RETURN
,,1.(/)£09
111.0E08
1,1.0E07
;,1.0E06

17
10324"
1
23420
0
1750
0
144

111.0E05
"I,0E04
; 11,0E03
:,1.0E02

~HNDEC-Il-DZRKH-r

?lRI(HF. PII
51:l63
'5064
5065
5066
5'167

5068

024660
824662
024664
824666
0246Hl
024672

"'ACYI1 nC1006l
04-0CT-76
13129 P~GE 120
2'-Srp-u. VJ8: 57
l'OUBLE LENGTH UNARY ro DECIMAL _SCII CONVERT ROUTINr.
000000
0001il12
000000
000001
000000
000014

0
12

nt.Iii!01

"
I
0

SDECVL I .BLKS

,,1.0£00

'2,

I' PESERVE STORAGE FOR ASCIZ STRING

SEQ 0133

13129
04"OC:T .. 76
!lAGE 121
PlACYll 27( 1006)
MA I NDEC-l1-0ZRKH .. F
SUPRS - TYPE NUMERICAL Asen STRING, REPLACE LEAOING 0'5 BY BLANKS
DZRKI'fF.Pt1
22-SEP-76 01i157
5069
5"'7'"
5071
5072
5073
5074
5075
5076
5077
5078
5079
5080
5091
5 "'FI 2
5168)
51694
5085
5086
5~1!7

5098
50'19
'i090
5091

024706
024710
024714
11124720

010046
005037
016600
900495

024722
024724
024730
024734
024734
024736
024740
024744
024146
024752
024754
024756
024762
024766

010046
016600
910037

5092

024770

5"91
5<194
5"'95
51i196
5097

024774
024776
02501'10
025002
;125004

105710
001406
122710
001006
112720
000770
005300
112710
005737
001002
r;10031
104401
000000
012600
012616
000207

024776
00011104

SUPRSLI MOV
CLI'!
MOV
SR

1'!0, .. (SP)
SUP2
HSP) ,R0
SUPI

,SAVE R0

MOV
MOV
MOV

1'!0, -esp)
4eSP1,RIl
1'!0,SUP2

I SAVE R0
,PICKUP THE POINTEI'!
;SAVE FOR TYPING

TSTS
SEQ
CMPB
fiNE
MOVB
BR
DEC
MOVS
TST
SNE
MOV
TYPE
.WORD
MOV
MOV
RTS

(R0)
2$
• '0, (R0)

:TERMINATOR?
: BR IF YES
: IS THIS AN ASCII "0"?
:NO
:REPLACE IT WITH "BLANK"

SUPRSI
000004
024776
SUP11
lSI
000060
000040
261
000060
024776

4$1

024716
5$1
SUP2:

48
140, (R0)+

IS
R0
• '0, e R0)
SUP~

5$
R(l, SUP:;

:BACKUP BY 1
;ASCII "0"
:LEFT JUSTIFY?

:!l0
;lE5
IGO TYPE

0
(SP)+,I'!'"
CSP)+, (SP)
PC

:RESTORE R0
:RESTORE THE STACK
,RETURN

04-0CT .. 76
13129
PAGE 122
I!AII'IDEC-Il-OZPKH-F
"ACYl 1 27 (11:'1l6)
oZPI(IoIF'.Pl1
22-SFP-76 08157
INTEGER MULTIPLY ROUTINe:
5('198
5"'9'1
51 ~'"
5101
0;1(;2
5un
51134
5105
5106
5107
5108
5109

.SBTTL

1:125006
1I!25"'06
025010
025012
025014
025016
0251i122
025024

512~

~25026

5121
5122
5123
5124
5 t 25
5126
5127
5129

025030
025034
il251i136
1:1251'140
025,,42
025"46
0251i1'50
"'251652
025054
0251i156
025060
025062
025",64
025066
025.H0
16251172
025"74
025076
025100
025104
025110
025112
025114
025116

512~

51\0
5131
502
5133
'5134
505
506
5tH
5139
5n9
5140
5tU

'51 42
51U
5144

SEQ 0135

INTF-GEI'! MULTIPLY ROUTINE

: ,.*.***.*.*.***** •• ****************************************~****
; *CALL
MOV
MULTIPLER, - esP)
:*
MOV
MULTIPLICAND, - CSPl
;*
PC,U$MULT
JSR
:*
, I PRODUCT IS ON THE STACK
RETURN
:*
:*
PRODUCT
STACK
,*
:*
:.
ToP
LSfI'S
MSS"S
+2
:*

o;lU
5111
5112
5113
5114
5115
5116
'i117
5118
5 119

SEQ 0134

SUPRS • TYPE NU!I!ERICAL ASCU STRING, REPLACE LEADING 0'S BY BLANKS
.SBTTL
.S8TTL
SUPRSL - TYPE NUMERICAL ASCIZ STRING, LErT JUSTIFY
,NOT rROM SYSMAC

Sr.-ULT:
010046
010146
1'110246
005046
1'116601
100002
1:'05216
005401
e'16&02
100002
005316
1'10541'12
012746
005000
103161'11
060200
006000
006001
005316
001372
022616
"'01403
005400
f')05401
005600
"'05726
010066
1'110166
1'112602
012601
012600
000207

000012

000014

000021

1$:

2$ :
3$ :
4$ :

"'OV
1ol0V
MOV
CLI<
MV
APL
INC
NEG
MOV
BPL
DEC
NEG
MOV
CLR
SCC
ADD
ROR
ROR
DEC
SNE

CMP

5$1
000012
110110116

BEO
NEG
NEG
SSC
TST
MOV
MOV
MOV
MOV
MOV
RTS

R0,-eSp)
Rl,"( SP)
R2,-(SPl
-(SP1
12(SP),I'n

U
esP)
Rl
14(SP) ,R2
25
esP)
R2
J 17., .. esP)
R0
4$
R2,R0
R0
Rl
esP)
3S
(SP)+, (SP1
5$
R0
Rt
R0
(SP)+
R0r12(SP)
R1 d0(SP)
(SP)+,R2
eSP)+,Rl
(SP)+,R0
Pc:

: I PUSH R0 ON STACK
, ,PUSH Rl ON STACK
" PUSH R2 ON STaCK
"CLEAR THE SIGN KEY
GET THE MULTIPLICAND
"SR IF PLUS
: I SET THE SIGN KEY
; ,MAKE THE MULTIPLICAND POSTIVE
: IGET THE MULTIPLIER
:,SR IF PLUS
: I UPDATE THE SIGN KEY
: I MAKE THE MULTIPLIER POSTIVE
:, SET THE LOOP COUNT
: ,SETUP FOR THE MULTIPLY LOOP
;, DON'T ADD IF MULTIPLICAND S

IPOSITION THE PARITIAL PRODUCT AND
I THE MULTIPLICAND
,HAS ALL BITS OF THE MULTIPLICAND BEEN DONE?
:SR IF NO
,SHOULD PRODUCT BE NEGATIVE?
IGO TO EXIT IF NO
J YES--SO MAKE IT SO

,CLEAR SIGN INFO, OFF OF STACK
,PUT THE PRODUCT ON THE STACK (MSS'Sl
, LSS'S
I POP STACK INTO R2
IPOP STACK INTO Rl
,POP STACK INTO R0

MA INDEC-' ,-DZRI(H-F
MACYlt 27(1006j
22-SEP-76 08157
OZRKHF.P11
5145
5146
5147
5148
5149
51'50
5151
5152
5153
5154
5155
5156
5157
5158
5159
5160
5161
5162
5163
5Ui4
5165
5166
5157
5168
5169
5170
5171
5172
5173
5174
5175
5176

5171
5178
5179
5180
5181
5182
'51 83
'5184
5185
5186
5187
5\88
5189
5190
5191
5192
5193
5194
5195
'5196
5197
5199
5199
5200

04-0Cr-76
13129 PAGE 123
INTEGER DIVIDE ROUTINE
.S8TTL
,*CALLI
'*
'*
,*
;*
,*

:*
;*
;*
,*
;*

;*
;*
'*
:*
:*
025120
025124
025132
025134
025140
025146
025154

013746
012737
104400
012716
016637
016666
000002

000034
025134

000034

025156
000004
01'10002

000034
000004

025156
025162
025164
025166
025170
025172
025174
,,25200
025204
025210
025212
025216
025220
,,25222
025224
025230
025234
025216
025240

04271 b
010046
010146
010246
010346
"05046
012746
016601
016600
100005
105366
005400
005401
0056"'0
016602
022702
001463
905702
002407
001iHI
052766
012700
000424
005266
000401
005402
000241
000405
006 I 0l1!

000017

~25242

025244
025252
1625256
025260
025264
025266
n5270
025272
025274

SDIVI

1S1

2$1

000021
000024
000022
000003

3S1

000020
000001

000003
177777

000014

451

000002

5$1
6$1

MACYI1 27C 1')06)
22-SI':P-76 ,,8: 57

MOV
MOV
MOV
JSR
RETURN
"V"=0
·V"a1

LOil DIVIDEND,-eSp)
HIGH DIVIDEND,-eSP)
DIVISOR,-eSp)
PC, 'DIY
IMPLIES
IMPLIES
"C··0
·C"·,

/10 ERROR

OVERFLOW

DIVIDE 8Y ZERO

ALL ZEROS
ALL ZEROS

ALL ONES
ALL ONES

MOV
MOV
TRAP
MOV
MOV
MOV
RTI

34,-(SP)
'1$,34

: SA VE CURRENT TRAP VECTOR
; SET UP TRAP VECTOR

'28, esP)
4(SP)'34
2(SP) ,4(SP)

: REPLACE NEW PC
;RESTORE OLD TRAP VECT
;SAVE PSW
:RESTORE PSW

'17, (SP)
R0,-(SP)
Rl,-eSp)
R2,-(SP)
R3,-(SP)
-esP)
'17., -(SP)
24(SP) ,Rl
22(SP) ,R0

;STRIP AWAY CONDITION CODES
;PUSH R0 ON STACK
,PUSH R1 ON STACK
;PUSH R2 ON STACK
;PUSH R3 ON STACK
;SAVE A PLACE FOR SIGNS
;SETUP THE ITERATION COUNTER
; PICKUP THE DIVIDEND

; CHECK THE SIGN
:KEEP TRACK OF THE SIGN
; AND NEGATE THE ORIGINAL
;NUMBER

BIC
MOV
MOV
MOV
MOV
CLR
MOV
MOV
MOV
BPL
DECB
NEG
NEG
SBC
MOV
CMP
BEQ
TST
BLT
BGl
BIS
MOV
SR
INC
SR
NEG
CLC
8R
ROL

3(SP)
R0
Rl
R0
20(SP),R2
'1, R2
13$
R2

4S
5$
Bd4(SP)
'-t,Ra

91
2(SP)

5231

MOV

liDO

1100002

000014
9$ :

trU:

000001

11S:
000020
0001d16

12$1

000002

0$1

BCC
MOV
POL
OEC
SHE
1ST
BPI.
BIS
CLR
MOV
TST
1ST
BGE
NEe;
CLRS
DEC
TST
BEQ
NEG
MOV
MOV
MOV
MOV
MOV
MOV
MOV
RTl
CMP
BR

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

: PICKUP THE DIVISOR
IIF THE DIVISOR IS 1 SKIP THE REST
rYES
:CHECK THE SIGN
IDIVISOR OF 0 IS A NO-NO
ISET ·V" , "C"
; SET REMAI NDER TO ALL OriES
;EXIT
,KEEP TRACK OP' DIVISORS SIGN

U
R2

: NEGATE THE ORIGINAL NUMBER
ICLEAR "C"
:START P'ORMING QUOTIENT
:POSITION MSB"S

8S
R0

IH-OCT-76

9$1

,QUOTIENT , REMAINDER ARE ON THE STAC!<
HO ERROR
ERROR OCCURRED
DIVIDE OVERP"LOII OCCURRED
ATTEMPTED TO DIVIDE BY ZERO

REMAINDER
QUOTIENT

INTEGrR DIVIDE" ROUTINE

1l10"03
060203
103001
010300
006101
005316
001370
01d5701
100005
052766
005000
010001
005726
005716
002004
005400
105066
005316
005726
001401
005401
010166
010066
012603
IH2602
012601
012600
012666
008002
022626
001'1763

,THE HIGH DIVIDEND MUST BE < 1/2
AS LARGE AS THE DIVISOR

TOP
+2

~fI1NDEC-ll-DZRKH-f

025276
1125 )00
025302
025304
025306
025310
025312
025314
025316
025320
025326
025330
025332
025334
025336
025340
025342
025346
025350
025352
025354
025356
025362
025366
025370
025372
025374
025376
025402
025404
025406

STACK

DZRKHF,Pll
52111
5202
52113
5204
5205
5206
5207
5208
5209
5210
5211
5212
5213
5214
5215
5216
5217
5218
5219
5220
5221
5222
5223
5224
5225
5226
5227
5228
5229
5230

SEQ <IUS

INTFGEP DIVIDE ROUTINE

13129

PAGE 124

Re, R3
R2,!'!]

Pl, "0
RI
esP)

71
PI
1"*
12,1H8P)
1'0
R0rRl
(SP)+
(SP)

lit
R0
1 eSP)
esP)
(SP)+
12.
Rl
Rl,20(SP)
R0,16(SP)
(SP)+,Rl
(SP)+,R2
(SP)+,Rl
(SP)+,R0
eSP)+,2(SP)
(SP)+'(SP)+

12S

S::Q 1<'137

:COPY
:CO"'P~RE DIVIDEND" DIVISOR
IBR If' DIVIDEND> DIVISOR
:REMAINDER AFTER THIS LOOP
;QUOTIENT BIT tNTERS HERE
I DONE?
;BR If' NO
:OVERFLOW?
1BR If" NO
; SET 'V' IN RETURN STATUS WORD
;SET REMAINDER TO ALL ZEROS
;COPY REMAINDER INTO QUOTIENT
:CLEAR COUNTER FROM STACK
;REMAINDER SIGN CORRECTION NEEDED?
;BR IF NO
;NEGATE REMAINDER
;CLEAR SIGN
ISUT DON'T FORGET QUOTIENT
:QUOTIENT SIGN CqRRECTION NEEDED?
'BR IF' NO
: NEGATE QUOTIENT
;RETURN QUOTIENT AND
IREMAINDER TO USER
I POP STACK INTO R3
I POP STACK INTO R2
,POP STACK INTO Rl
I POP STACK INTO R0
,SETUP TO RETURN CONDITION CODES
:RETURN
;POP THE STACK

MAl'lDEC-l1-DZRKH-F
MACYll
22-SEP-76 08:57
DZRKHF, Pll
5232
5233
5214
5235
5236
5237
5238
5239
524'"
5241
5242
5243
5244
5245
5246
5247
5248
5249
5250
5251
5252
5753
5254
5255
5256
5257
5258
5259
5260
5261
5262
5263
5264
5265
5266
5267
5268
5269
5;>70

5271
5272
5213

5274
5275
521&

,SPTTL

025410
.,2541.,
1125412
0254t 4
O25416
O25420

025422
025424
O2543O
025434
025440
025444

025446
025446
025452
025456
1'125462
t:l2546&
025470
025472
025474
025476
025500
025502

SSAVREG:
011'1046
010146
010246
1'110346
010446
Vli 0546
016646
016646
016646
016646
000002

0126&6
012666
012666
012666
012605
012604
012603
012602
0! 2601
012&0"
000002

MOV
MV
~OV

000022
000022
~00022

000022

MACY! 1 27(1006)
22-5EP-76 08 :57

Ri<l, -(SP)
HI, -(SP)
R2,-CSP)
R3,-(SP)
R4,-(SP)
R5,-(SP)
22(SP),-(SP)
22(SP)'-(SP)
22(SP),-(SP)
22(SP),-(SP)

*RESTORE R"'-RS
*CALL:
RESRFG
*
RESREG:
(SP)+.22(SP)
MOV
(SP)+.22(SP)
MOV
(SP)+,22(SP)
MOV
(SP)+,22(SP)
MOV
MOV
(SP)+.R5
(SP)+,R4
MOV
MOV
(SP)+,R3
(SP)+,R2
/'lOV
(SP)+.Rl
MOV
(SP)+,RI':
MOV
RTI

NU~BER

025504
025504
025506
025510
025512
025514
025516
025522
025524
025530
025534
il25536
,12554<'1
1'125542
1125544
025546
11'255511'
tJ25552
1"25554
~2556@

0255&2
025566
025570
1\25512
025576
1\251>00
l'!25604
1'12561'16
025610
"25612
025&16
0256211'
"25622
025624
1'125626
025630
1!251>H
"25636
025640
~:15642
~25&44

025646
il25650
025652
0251>54
025656
025660
025662
025664

R0
I'll
R2
R3
R4
R5
PS
PC
PS
PC

ON
ON
ON
ON
ON
ON
OF
OF
OF
OF

STACK
STACK
STACK
STACK
STACK
STACK
MAIN FLOW
MAIN FLOW
CALL
CALL

:RESTORE PC OF CALL
,RESTORE PS OF CALL
:RESTORE PC OF MAIN FLO ..
,RESTORE PS OF MAIN FLOW
:POP STACK INTO R5
,POP srACK INTO R4
,POP STACK INTO R3
:POP STACK INTO R2
,POP STAC/( INTO Rl
,POP STACK INTO R0

SEQ 0139

GENERATOR ROUTI NE

PC,SRAND

CALL THE ROUTINE
RETURN HERE THE RANDOM
NUMBER WILL BE IN
SHINUM, SLONUM

R~,-(SP)

PUSh R0 ON STACK
PUSH Rl ON STACK
PUSH R2 ON STACK
PUSH 113 ON STACK
PUSH R4 ON STAC/(
GET POINTER TO THE SAVED SEEDS
FOR GENERATING THIS RANDOM NUMBER
GET LO NUMBER SEED
GET HIGH NUMBER SEED
SET SHIFT COUNT
ZERO R2
SHIFT R!II LEFT AND
ROTATE CARRY INTO I'll AND
ROTATE CARRY INTO R2
CHEC~ FOR DONE
CONTINUE SHIFT LOOP
ADD NUMBER TO MAKE X 129
PROPOGATE CARRY
AOD NUMBER TO MAKE X 129
PROPOGATE CARRY
ADO LOW CONSTANT
PROPaGATE CARRY
PROpOGATE CARRY
ADD HIGH CONSTANT
pROpOGATE CARRY
AOD HIGHEST CONSTART
REPRIME R0 WITH HIGHEST DIGIT
PROPaGATE CARRY
SAVE R0-SLONUM (FOR USE NXT TIME)
SAVE RI-SHltlUM (FOR USE NXT TIME)

5282

,PUSH
:PUSH
:PUSH
,PUSH
:PUSH
:PUSH
,SAVE
:SAVE
/SAVE
:SAVE

13: 29
04-0CT-76
PAGE 126
RANDO"" N1]MBEp GENERATOR ROuTI""
RAf;DOM
,SBTn
:*CALL:
J5R
:*
FE'!'URN
:*
:*

5290

5309
5313
5311
5312
5313
5114
5315
5316
5317
531 B
5319
5370
5121
5 ~22
5323
5324
5325
5326
5327
5328
5329
5331'1
5 '31
5332

f><OV
f><OV
MOV
MOV
"'OV
MOV
MOV
PTI

000022
000022
00kl022
000022

52~ 1

5108

SAVE AND RESTORE R0-R5 ROUTINES

:*
:*TOP---(+16)
:* +2---(+18)
:* +4---R5
:* +&---1'1.4
:* +8---En
:*+10-··1'/2
:*+12---Rl
:'HI4---R0

5277
5278
5279

5192

SEQ 0138

1 *SAVE R0-1'15
:*CALLI
SAVREG
:*
; *UPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKEI

~AINOEC-ll-DZRKH-F

52'B
52 Q 4
5295
52'16
5297
'5)9ii
5299
'; 301'!
5HU
5302
5303
5",14
53il5
5306
5H!1

13129
PAGE 125
04-0CT-7&
SAVE AND RESTORE 1'/0-R.5 ROUTINES

: 1************** *** ************ ******************************* ---

DZRI(HF,pll

5283
521'4
52A5
5280
5287
5288
5289
529i?J
5291

27( t 006)

SRAND:
0101146
010146
010246
2110346
"'! 0446
017604

MOV
,"OV
MOV
~'OV

MOV
MOV

0l'!""12

~1140~

1'116411'1
!'I127i?J3
,,0501'12
1106300
006101
"06102
1,,'5203
1101373
061400
005')01
1'166401
01'15502
062700

IS:

000002
001057

11'~5501

0055112
1'162701
005511'2
062702
060211'''
0105501
011'1014
!'!IiH64
012604
012611'3
012602
11'12601
012600
062716
000207
1 2 3456
176543
1'101201
062465
1 7 611'15
174532
157650
030753
131547
032070
123456
176543

~OV

(R4) ,R0
2 (R4), Rl
#·1,R3

CLR
ASL
ROI.
ROL
PIIC

R0
I'll
1<2
P3

"OV
'"'0 V

0000!'12
177771

ADD
ADC
ADD
AOC
ADD

(1<4), R0
fit
2 (R4), I'll
R2
#Ul57,Ri?J
I'll
R2
#47401,Rl
R2
#6,R2
R2,P0
1<1
P0, (R4)
I'll, 2( 1<4)
(SP)+,R4
(SP)+,R3
(SP)+,R2
(Sp)+,Rl
(SP)+,R0
O,(SP)
PC

ADC
AOD
ACC
ADD
ADD
ADC
MOV
MOV
MOV
MOV
MOV
MaV
/lOV
ADD
RTS

0100"''''1>

000002

01'011'02
RSDRVL
RSDRVH
RSFUNL
RSFlINH
RSCYLL
RSCYLH
RSBAL:
RSSAH:
RSWCL:
RS",CH:
RSDTL:
RSDTH:

il2

fiNE:

~DC

047401

I'll, -(5P)
R2,-(5p)
R3,-(5p)
R4,-(SP)
I!l12(SP),R4

123456
176543
1201
62465
176105
174532
157650
30753
131547
32070
123456
176543

POP STACK INTO R3
POP STACK INTO 1<2
POP STACK INTO I'll
POP STACK INTO R0
ADJUST SP FOR CORRECT RETURN
RETURN
R:"NDOM SEED FOR DRIVE SELECTION (LOi
(HI)
RANDOM SEED FOR FUNCTION
(HI)
RANDOM SErD FOR CYLINDER (LO)
(HI)
RANDOM SEED FOR BUS -ADDRESS (LO)
(HI)
RANDOM SEED FOR WORD COUNT (LO)
(HI)
RANDOM SEED FOR DATA (LO)
(HI)

..
"

<I,uNOEC-ll-nRIOI·r
MACYII 2H 1006.'
04-0CT·a
13129 PAGE 127
")lRl(Hr.'='11
22-S£P-71> 08157
BINARY TO eCTAL (ASCII) AI'IO TYPE
.SBTTL

5313

BINAFIY TO OCUL (ASCII)

53'14

5335
5316
5337
5338

J , ••••••••••••••••••••••

I'THIS ROUTINE IS USED TO CHANGE A 16·BIT SINARY NUMBER TO A 6-DIG:;:r
"OCTAL (ASCII) NUMBER AND TYPE IT.
"$TYPOS-··EIlTER HERE TO SETUP SUPPRESS ZEROS AND NU"'BER or DIGITS TO Til'S
"CALLI
MOV
NUM,·CSP)
I I NUM8ER TO BE TYPED
~ ,CALL FOR TYPEOUT
TYPOS
"Nal TO S rOR NUMBER or DIGITS TO TYPE
.BYTE
"MalOR0
.BYTE
;'
;
111:T"iPE LEADING ZEROS
, ,0"SUPPRESS LEADING ZEROS
I'

,.,.

5)39
5340
5341
5342
5343
5344

5145
5346

;.STYPON····ENTFR HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
"$TYPOS oR STYPOC
,'CALLI
, ,NUMSER TO 8E TYPED
NUM,·(SP)
MOV
, ,CALL FOR TYPEOUT
TYPON
I'
"UYPOC-··ENTER HERE rOR TYPEOUT or A 16 BIT NUMBER
"CALL:
; ; NU148ER TO 8E TYPED
MOV
NUM,-CSP)
: ,CALL rOR TYPEOUT
TYPOr:

5347
53411
5349
5350
5351
5352

,.,.

5353
5354

,."

5355
53"16
5311)7

5358
5159
5360

5361
5362
5363
5364
5365
5366
5367

5169
5369
5370

537\
5112

51H
5J74
5175
5376
5377
5)"18

5379
53110

5181
53112
5383
5384

5385
5186

51P7
53gB

AND TYPE

*."-""",."".,.,,, •• , ••••••••••• , ••,

025666
025672
025700
025704
025710
025712
025720
~25726

025734
025736
025740
025742
025746
025750
025754
025760
1125764
025770
025772

025774
025776
02U00
026002
026004
026006
.,26810
026014
026016
026022
026024
021)02&

017646
116637
112637
062716
300406
112737
112737
112737
010346
01044&
010546
11)704
005484
062704
110437

113704
016605
005003
0116105
000404
006105
0116105
006U5
0U503
006103
105)37
1011016
042103
1110U02
11051CH
3014"')

000000
000001
026113
000002
000001
3000e6
"00005

026111

026111
026113
026110

026113
00000&
026112
026111
1'100"" 2

"26112

117770

$TYPOS I MOV
MOVS
Move
ADD
SR
8TYPOCI Move
Move
• TYPOI! I MOVS
MOV
MOV
HOV
Move
NEG
ADO
Move
MOVS
MOV
CLR
lSI
ROL
SR
2$:
ROL
ROL
ROL
MOV
381
ROL
OECB
BPI.
BIC
8NE
TST
BEQ

"SP),-(SP)
1 (SP), UFILL
tsP)+,SOMODE+l
'2,(SP)
nypON
'1,UFILL
_6,$OMOOE+l
'5,.OCNT
Pl,·(SP)
R4,-eSp)
R5,·(SP)
'OMODE+l, R4
R4
fb,R4
R4,801l0DE
S0FILL,R4
12(SP),1I5
Rl
R5

38
R5
R5
R5
R5,R3
Rl
10MOoE
7$

'171770,Rl
4$
R4

; 'PICKUP THE MODE
;, LOAD ZERO FILL SWI TeH
; ,NUMBER or DIGITS TO TYPE
, ,ADJUST RETURN ADDRESS
"SET THE
; ,SET FOR
~ISET THE
"SAVE R3
; ,SAVE R4
"SAVE R5
I ' GET THE

ZERO FILL SWITCH
SIX(6) DIGITS
ITERATION COUNT

NUMBER or DIGITS TO TYPE

: ,SUBTRACT IT FOR MAX. ALLOWED
I,SAVE IT rOR USE
~ ,GET THE ZERO FILL SWITCii
; ,PICKUP THE INPUT NUhlBER
~,CI.EAII THE OUTPUT WORD
,:ROUTE 1458 INTO "C·
"GO DO MSB
, ,FOIIM THIS DIGIT

; ,GET LSS OF THIS DIGIT
: ITYPE THIS DIGIT?
; ,811 Ir NO
; ,GET RIO OF JUNK
"TEST FOR 0
"SUPPIIESS THIS 07
;,SR IF YES

lH29 PAGE 128
04-0::T·76
.. AINDEC·l1·0ZRKH-r
MACYll 27(1006)
22-&Ep-76 i/8,57
8INARY "0 OCnL (ASCII> Al1Io TYPE
C'ZRK",. PI t
5199
5191t
5391
5392

5393
5394
5195
5396
5)97

5398
5399
5409
5401
54"2
5401
54.,..
54"5
5406
5407
54e8
5409
541\!!

0261130

005204

026032

BS271/ll

026036
026042
026046
026052
11126056
11126060
02U62
"261l64
026066
026070
026072
026074
026U2
026U4
026U6
026107
026110
026111
1126112

952703

\18)]7

104401
105337
00U47
002402
005204
000744
012605
012604
012603
",6666
1912616
000002
300
000
000
000
000000

000060
000040
026186
02611116
026110

41,

INC
SIS

5',

sIS

711

MOVS
TYPE
OEC!I
BCT
SLT
INC
8R

MOV
MOV
MOV
MOV
MOV
RTI
,BYTE
881
,BYTE
.OCNTI
.BYTE
UFILLI ,BYTE
.0llOOEI ,WORD

611

01'0002

000004

R4
• '0, Rl
. ' , R)
Rl,BI

,as

10CNT
2.

R4
2.
(SP)+,R5
[SP)+,R4
(SP)+,R3
2(8P)'HSPl
(5'1')., (SP)

SEQ 1l14\
"DON'T SUPPIIESS ANYMORE 0'S
: ,MAKE THIS DIGIT kSC II
, ,MAKE AlIcn IF NOT ALIlEAoY
I,SAVE FOR TYPING
"GO TYPE THIS DIGIT
"COUNT BY 1
; ,!III IF MORE TO 00
J ,811 IF DONE
I ' INSURE LAST DIGIT I8N'T A Br..A~!!(
, ,GO DO THE LAST DIGIT
: ,RESTORE 115
, ,RESTORE 114
"RESTORE Rl
" SET THE IITACK FOR RETUIINING
, ,RETURN
, ,STORAGE FOR ASCII DIGIT
; ,TERMINATOR FOil TYPE ROUTINE
I,OCTAL DIGIT COUNTER
, ,ZERO FILL SWITCH
; ,NUMBER or DIGITS TO TYPE

"IAlriDEC-l1-DZRIOi-P'
MACYll 27C10~6)
04-0CT-76
13129 PAGE 129
DZRKHF".Pll
22-SEP-a 08157
ERROR HANDLER ROUTINE

5411
5412

.sarTL

5411

,*SW1S s l
,*SWU s l
,*SwI2sl

HALT ON ERROR
INHIBIT ERROR TYPEOUTS
TYPE OUT THE ERROR HISTORY, THE FUNCTION THAT
WAS BEING PERFORMED ON RK AT THE TIME OF ERROR AND
THE FUNCTION PERFO'H4ED PRIOR TO THAT.
1
:*NOTE THIS SWITCH OPTION (12) IS MEANINGFUL ONLY FOR ERRORS OCCURING IN THE
1 *EXERC I SER PART OF THE PROGRAM.
DUMP OUT ALL RK REGISTERS
,*SWl11:1
BELL ON ERROR
,*SWI0=1
LOOP
ON ERROR
:*SW09=1
TYPE OUT TI14E AT WHICH ERROR OCCURED
I*SW33 s 1
DROP THE DRIVE AFTER IoIAXM ERORS ON THIS DRIVE
1 *S.,02:o1
TYPE OUT THE SERIAL NUMBER OF' THE ERRORING DRIVE
I*SW011:1
: *GO TO SERRT'{P ON ERROR

5H4

5415
541 &

5417
541 e
5419
5~20

5421
5422
5423
5424

5425
542&
5427
542A
5429
5433
54)1
5132

54H
5H4

5nS
543&

"'26114
026116
026122
026124
026132

Hl4407
105237
001774
013777
032777

.ERROR I
001103
01'11102
00201'11'1

02614;;

00i402

026142
026146

104401
005237

001206
001112

1026152
026160

0341777
1101415

000004

026162
026164
1l26171<1

"10146
(H3701
101'1410

1'126172
1'126176
02621'14
026206

105261
126127
101402
l'ltl0137

153011'1
15310011

1$:

5437
543B
54~9

Cf<SWR
INCB
BEQ
MOV
BIT
SEQ
TYPE
INC

SERF'LG
IERROR
STSTNM, ~DISPLA.Y
'SWI0,IISWR

is
,SBELL
SERTTL

BIT

152760

BEO

5441l

5441
5442

54H

"IOV
MOV

01i1125e

S"'1

Rl,-(SP)
SRDRV,l<l
2S

5444
5445

5446
5447
'SHB
5449
54'5111

5451

SEQ 0142

ERROR HANDLER ROUTH'E

026212

1'112601

1f26214
02622 ..
026226
1'126231'1
026234
026240
026242

1iI11637
1&2737
1'105046
117716
121627
002402
162716

"01542
01'11542

INCB
CMPE
BLOS
JMP

000003

016221'1

ERDRV(Rll
ERDl<V(R1), n

2$
DSELCT

,LOOK FOR A 'CONTRDL G'
; SET THE ERROR FLAG
: DON'T LET THE FLAG GO TO ZERO
: DISPLAY TEST NUMBER AND ERROR FLAG
: BELL ON ERROR?
;NO - SKIP
:RI19G BELL
:COUNT THE NUMBER Of' ERRORS
:COUNT • OF ERORS , DROP DRYE?
:NO
;YES
:SAVE R'.
:GET ERRORING DRIVE.
;If' CSRDRY)s -1, SKIP(BECAUSE THE
:EROR WAS NOT ATTRIBUTABLE TO ANY
:SPECIFIC DRIVE)
:COUNT _ Of ERORS ON THIS DRIVE
:. OF ERDRS GREAtER THAN ALLOwABLE?
:NO
: DROP THE DRl VE

25:

MOV

(SP).,Rl

:RESTORE Rl

3$1

r.lOV
SUP,
eLl<
MOVB
CMPB
BLT
SUB

(SP),SERRPC
il2,SERRPC
-CSP)
UERRPC, (SP)
eSP),1100
4S
140,(SP)

:GET ADDRESS

H52

545}
5454

5455
'545f>
5457

5458
54!';9
5460
5461

001116
000002

001116

152&62
000100
000040

5462
5463
5464
5465
546&

or ERROR INSTRUCTION

;STRIP AND SAVE THE ERROR ITEM CODE
:FORM THE C04&ECT ITEMS IF THIS IS AN
:ERO~ MESAGE EQUAL OR ASOVE
: NOTE THERE R 2 CLASSES OF ERRORS:
:1) $ITEMB'S BELOW 100
;2) $ITEM8'S ABOVE 100
:SUBTRACTION FACTOR HAS TOBE SUCH THAT
:THE C04SECT OFFSET IS SELECTED. THIS
: nCTOR WILL CHANGE IF THE TOTAL • OF
! ERIIOP MESSAGES HI CLASS 1 CHANGES.
: ."'100 -LAST ITEM IN • CLASS 1 - 1

H' ' .

04-0Cr-76
13129
MA I NOEC-I1-0ZRI<Il-f'
PAGE 13O
"ACyll 27(1006)
ERRoR HANDLER ROUTINE
22-SEP-76 08 :57
OZRKHf'.Pll
5467
5469
5469

5170
5171
54'72

5473
5474
5475
5476
5477
5HB
5479

541'1"
5481
51R2
5483
5 ~84
5 ~95
54116
5197
51118
51R9
519J

026246
"'26252
02626O
026262
O26266

1412637
032777
"01012
004737
104401

026370
001213

026272
1'126300
026302

O32777
001402
1'1104737

"'20334

1'12631'16
026312
026314
1126316
1126320
026326
026310
"'26336
1126340

005777
13001'12
00001'10
104407
1'132777
001411
123727
11'131'111
013746

"'26344
"26346

026352

4$ :

(SP) +, $ITEMB
'SW13,IiISWR
PC,ilUERRTYP
,SCRLF

BIT
BEO
JSR

'SW12,IiISWR
5$
PC,HISTRY

:TYPE ERROR HISTORY?
:NO
;YES

taSJojR
&$

:HALT ON ERROR
:SKIP If' CONTINUE
;HALT ON ERROPI
:[,001< FOR A 'CONTROL G'
;LOOP ON ERROR SWITCH SET?
:flR If' NO
: THERE R 37 ERROR MESSAGES IN CLASS 1

"01244

TST
P.PL
HALT
CKSWR
flrT
BEQ
CMPB
BHIS
MOV

PPRLVL,-CSPl

1'10572&
O12716

015634

TST
MOV

(SP)+
iEXCRLUP, esP)

012737

177777

MOV

a-I, SRDRV

0100010

152660

15264O

5$ :

152626

~0~A00

152612

001114

001'11'140

6$:

tSW09,IiISWR

SITEMB, f40

550""
50;;'11
50;1"2

001250

7S I

:SKIP TYPEOUT IF SET
; SI<IP TYPEOUTS
;GO TO USER ERROR ROUTIriE

5HI
5492
5493
5194
5495
5496
5497
5498
5!99

SEQ O143

MOV
BIT
BNE
JSR
TYPE

01<11114
02000'"

;LOCK OUT ALL INTERUPTS ON RETURN
:f'ROM THIS EROR HANDLER, IF THE EROR
1 IS IN EXERCISER' LOOPING IS TO
;BE DONE
; IF THIS ERROR CALL WAS FROM EXERCISER
;PART OF THE PROGRAM, GO TO 'EXCRLUP'
:OTHERWISE RETURN THRU 'SLUPERR'
: RESET SERIAL NO rLAG
rIf' (SRDRV)"-I, THEN THE SERIAL
:NO
THE DRIVE WILL NOT BE
:TYPED OUT.
:OTHERWISE, SERIAL NO FOR THE DRIVE
,I IN 'SRDRV' WILL BE TYPED.

026360
026362
1'126366

0''0002
013716
O00771

1"01111'1

BS:

RTI
MOV
BR

SLPERR, (SP)
7$

:FUDGE RETURN FOR LOOPING
;RETURN

"1AI,.OEC-II-DZRKH-F
MACYlI
')ZRKHI'". Pit
22-SEP-H ~8157
5503
5504
5505
5506
5507
5508
5509
5510
5511
5512
5'H3
55\4
5515
5516
5517
5518
5519
5520
5521
5522
5523
55';14
50;,5
5526
5527
5528
5')29
55)0
5531
5532
5533
5534
5535
5')J6
5537
55)8
5539
5540
5541
5542
5543
5544
5545
5546
5547
5548
5549
5550
5551
5552
5553
5554
5555
5556

27 (1006)

04-0CT-76
13129 PAGE 131
ERROR MESSAGE TYPEOUT ROUTINE
.SBTTL

SEQ 0144

ERROR MESSAGE TYPEOUT "'OUTINE

;*THIS ROUTINE USES THE "ITEM CONTROL BYTE" ($ ITEMS) TO OETERMINE ~HICH
: -ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE "ERROR TABLE" (SERRT8 l ,
; -AND "'EPORTS TilE APPROPRIATE INFORMATION CONCERNING THE ERROR.
001213

026370
026374
026376
026400
026404
026406
026412
026414
026416
026420
026422
026424
026426
026432
026436
026440
026442
026444
026450
026456
026460
026464

104401
010046
005000
153700
001004
013746
104402
000425
005300
006300
006300
006300
06270'"
012037
001404
104401
000000
104401
032777
001404
004737
104401

, SCRLF
RII, -(SP)
RI/)
litSITEMB,R0

J "CARRIAGE RETURN" " "LINE P'EED"
:SAVE R0
:PICKUP THE ITEM INDEX

; IF ITEM NUMBER IS ZERO, JUST
; TYPE THE PC OF THE ERROR

026730
001213

$ERRTYPITYPE
MOV
CLR
BISB
BNE
MOV
TYPOC
BR
1$:
DEC
ASL
ASL
ASL
ADD
MOV
BEQ
TYPE
2$ :
.WORO
3$:
TYPE
BIT
46:
BEQ
JSR
TYPE

026470
026474
026416
026500
026502
026506
026510

012037
001404
104401
000000
104401
011000
001406

026500

5S1

MOV
BEQ
TYPE
.WORD
TYPE
MOV
BEQ

(R0>+,6$
7$

026512
026514
026516
026522
026524

013046
104402
104401
005710
001372

MOV
TYPOC
nPE
TST
BNE

raCR0)+,-(Sp)

026526
026530
026534

012600
104401
123727

001213
001114

MOV
TYPE
CMPB

(SP)+,R0
, SCRLf
SITEMB,.40

026542
026544
026550

11/13004
004737
004737

026556
026&64

BHIS
JSR
JSR

108
P::.THITYP
PC, SNOTYP

026554

000207

RTS

0111114
001116

"'02666
026442

001213
004000

152462

661
001213
7$1

88 :
002663

981
000040

10$%

SERRPC,-(SP)

5S
R0
R0
R0
R0
HERRTB,R0
(R0)+,26
4S
0
, SCRLF
_s wl1,IISWR
5S
PC,DMPREG
,SCRLf

0
, SCRLF"
(R0) ,1'10
9&

,8LNKS2
(R0)
8S

;GET OUT
;ADJUST THE INDEX SO THAT IT WILL
,WORK fOR THE ERROR TABLE

: FORM TABLE POINTER
: PICKUP "ERROR MESSAGE" POINTER
: SKIP TYPEOUT IF NO POINTER
:TYPE THE "ERROR MESSAGE"
: "ERROR MESSAGE" POINTER GOES HERE
: "CARRIAGE RETURN" " "LINE FEED"
:DUMP OUT RK REGISTERS?
: GO TYPE OUT RK REGISTERS

:PICKUP "DATA HEADER" POINTER
:SKIP TrPEOUT IF 0
:TYPE THE "DATA HEADER"
:"DATA HEADER" POINTER GOES HERE
'"CARRIAGE RETURN" " "LINE fEED"
:PICKUP "DATA TABLE" POINTER

:TYPE AN OCTAL NUMBER
:SAVE (HR0)+ fOR TYPEOUT
;GO TYPE--OCTAL ASCII(ALL DIGITS)
:TYPE TWO(2) SPACES
: IS THERE ANOTHER NUMBER?
:BR IF YES
:RESTORE R0
: "CARRIAGE RETURN" " "LINE FEED"
I SKIP TIME .. SERIAL • FOR
:NON-EXERCISER ERORS
:TYPE OUT TIME IF SW 1 IS SET
: GO HPE OUT THE SERIAL I OP' TH!
: ERRORING DRIVE, IF Sill 1 IS SET.
:RETURN

13129 PAGE 132
MACHI 27(1006)
04-0CT-76
MAI"OEC-II-0ZRKH-F
nZRKHF .Pl1
22-SEP-U, 08157
ERROR MESSAGE TYPEOUT ROUT INE
5557
555B
5559
5560
5561
5562
5563
5564
5565
5566
5567
5568
5569
5570
5571
5512
5573
5574
5575
5576
5517
5578
5519
5580
5581
5582

SEQ 2145

:TIMTYP
:THIs ROUTINE TYPES THE T!ME !N HOURSIIHNISECS IF SW
:SII 3 SHOULD NOT RE SET IF KW 11 L IS NOT PRESENT.
026556
026564
02656&
026572
026576
026600
026604
026606
026610
026612
026614
026620
026624
026630
026634
026640
026644
026646
1'126652
026654
026656
026660

1'132771
001434
104401
111}4401
104414
012180
012001
01'10404
012001
01'11402
062701
010137
012746
1'104731
004737
020027
001403
104401
000756
104415
000207
000001l

000010
002&52
002662
001552

000074
026660
026660
024512
1'124706
001560
002334

"'"''''0'''

152354

TIMTYPI BIT
BEQ
TYPE
TYPE
SAVREG
MOV
MOV
BR
1$1
MOV
BFQ
ADD
211
MOV
MOV
JSR
JSR
CMP
BEQ
TYPE
SR
3$ :
RESREG
4$1
RTS
5$ I
.WORo

-SW3,IISWR

4S
,MSG29
, BLNKS3
'KWHR, R0
(R0)+,Rl
2$
(RI'Il+,RI
2$
_60., Rl
Rl,5.
'Ss,-(SP)
PC,IIUDB2D
PC, ralSUPRSL
R0,UIiSEC+2
3$
,MSGI8

: IS SW 3 SET?
: IF NOT SKIP TYPING TIME
; 'TIME'
; SUE RI'I~R4
; INITIALIZE POINTER

:TYPE OUT

: HOURS I MINS I SECS
;CONVERT TO Ascn STRING
:GO TYPE
: ALL DONE?

18
PC
0,0

:RESTORE R0-R4
:RETURN

U'"

MAI~DEC·ll-0ZRKH-F

OZRKHF. PI 1
5583
55q4
5585
5586
5se7
5588
5'599
5S90
5591
5592
'5593
5594
5595
5596
55'17
5598
5599
5600
5601
5602
56"']
5604
5635
5606
5637
50,,8
5609
5010
5011
5612

r.lACYll
22-SEP-76 08157

27C 1(.l06)

SEQ 0146

I SNOTYP
ITHIS POUTINE TYPES OUT THE SERIAL NUMBER OF THE ERRORING DRIVE, IF Sill
:IS SET. f<I0TE: THAT THE SERIAL NUMBER IS TYPED OUT ONLY WHEN THE DRIVE
:CA,N BE IDENTIfIED POSITIVELY, AS THE O'IE WHICH GAVE THE ERROR. IF THE
IERROR CANNOT BE .l.TTRIBUTED TO "NY SPECIFIC DRIVE < (SRDRV)= -I> THEN
ITHE SERIAL NUMBER IS NOT TYPED OUT.
026664
026b72
026674
02667b
026702
026704

032777
001415
010146
013701
006301
100407

0267iti6
026712
02b71b
026722

104401
104401
01614b
104405

026724
026726

012601
000207

000002

15224b

SNOTYP:

001250

001213
002326
00126b

IS:
2$ :

811'
BEQ
MOV
MOV
ASL
BMI

I TYPE OUT SERIAL n
INO
ISAVE Rl
IGET ERRORING DRIVE #
IIF (SRDRV)= -I, SKIP (BECAUSE
:THE ERROR WAS NOT ATTRIBUTABLE
ITO A SPECIFIC DRIVE)

.SW1, (ilSWR

2$
Rl,-(SP)
SRDRV,Rl
Rl
1S

TYPE
TYPE
MOV
TYPOS

, SCRLF
,MSGI7
SRIIIO(RI) ,-(SP)

"IOV
RTS

(SP) +, RI
PC

026730
026730
026734
0271340
027040
I'! 27 1344
02734&
027052
02,",54
027060
027062
027>164
"'27070
027;174
0271376
132710'"

ITYPE ·SR. NOI"
IGET THE SERIAL #
,TYPE IT OUT (DECIMAL)
I RESTORE Rl
:PETURN

:DMPRf,r.
/THIS pOUTINE DUMPS OUT ALL RKl1

REGISTERS WHEN SW 11 IS SET AND AN ERROR OCCURS.

D"'PREGI
104401
000441

026736

~bt3

5014
5615
5b16
5b1 7
5b18
'56 I ~
5620
5b:?1
5622
5b23
5624
5625
5&]6

04-0C,.-76
13:29
PAGE 133
ERROR MESSAGE TYPEOUT ROUTHIE

/l&5S:
64$ :
013746
104402
104401
010"'46
012700
01304b
104402
104401
020027
003771
i'i12600
000207

13131116
002663
001216
1$:

002b63
001232

TYPE:
8R
.Ascrz

,655
04S
<15><12>1

MOV
TYPoC
TYPE
MOV
MOV
MOV
TYPOC
TYPE
CMP
BLE
MOV
RTS

SERRPC,-(SP)

I :TYPE ASCIZ STRlf<lG
;: GET OVER THE TlSC IZ
RKER
RKDS
PKCS

RKwC

~KBA

,ALNKS2
R",IRKDfI
1S
(SPH,R(/I
PC

SEQ 0147

562 7
5628
5629

.SBTTL

56~0

:-THIS ROUTINE CONTROLS THE LOOPING OF SUsTESTS. IT WILL INCREMENT
;-AND LOAD THf, TEST NUMBER(STSTilM) INTO THE DISPLAY REG. (DISPLAY<7:0»
I_AND LOAD l'Hf. ERROR FLAG (SERF'LG) INTO DISPLAY<15:108>
I-THE S .. lTCH OPTIONS PROVIDED BY THIS ROUTINE AREI
;_S';14:1
LOOP ON TEST
I _SWfll9= 1
LOOP ON ERROR
:-CALI,
SCOPE
I :SCOPE=IOT

5616
56~7

SOH!
5b3'1

SoH'
5641
5642
5b43
5644
5645
5b46
5b47
5618
5649
5bSJ
5651
5652
5b53
5654
5655
5'>56

5657
5658
5659
Sh60
Sh61
5062
56&3
5664
5665
5666
5b67
5,,68
5669

SCOPE HA'lDLF.R ROUTINE

: : ************ *********************************** ****************

5015

027102
1027102
027104
027112

SSCOPE:
104407
032777
001047

Vl27114

000416

02711b
027122

"1374b
012737
1'05737
012637
0100421
1"22626
012637
0"''''407

1'1211310
1'127134

1'1271410
02714;>
1127144
"'2715"
027152
1'27152
1127156
10271610
027166
027171'1
02717b
027211"
02721'14
"'27210
"27214
1"27220
f127224
~127H2

fl27240
tl27244

1 "'5737
001412
032777
001404
013737
1'100415
105037

105237
011637
011637
005037
112737
",13777
013716
"'001"02

152026

CKSWR
I I TEST
FOR CHANGE IN SOFT-SwR
SIT
#SITI4,@SwR
nLOOP ON PRESENT TEST?
BHE
SOVFR
; :YES IF SWI4=l
;H#USTART OF COI)E FOR THE XOR TESTERUU'
SXTSTR: FIR
IF RUNNING ON THE "XOR" TESTER CHANGE
; I THIS INSTRUCTION TO A "NOp· (NOPa240)
!Uf.RRVEC,-(Sp)
"I0V
I I SAVE THE CO~TENTS OF THE ERROR VECTOR
MOV
.5S, aWERRVEC
;ISET FOR TIMEOUT
(ilU 77060
T5T
::TIME OUT ON XOR?
~OV
(SP)+,i!I#ERRVEC
I I PESTORE THE ERROR VECTOR
SSVLAD
I: GO TO THE NEXT TEST
(Sp)+, (SP) ...
eMP
; ;CLEAR THE STACK AFTER A TIME CUT
MOV
(SP) ... , (iI#ERRVEC
: I RESTORE TIiE ERROR VECTOR
BR
7S
; I LOOP ON THE PRESENT TEST
6S1 :'''#lEND Of :OoE FOR THE XOR TESTER'UU
2S:
TSTS
SERFLG
;HAS AN ERROR OCCURRED?
Bf.Q
SSVLAo
IBR IF NO
flIT
.AJT09,~SWR
: LOOP 0111 ERROR?
BEw
4S
;SR IF NO
7$ :
MOV
SLPERP,SLPADR
I SET LOOP ADDRESS TO LAST SCOPE
FIR
SOVER
4S:
CLRB
SERfLG
,ZERO THE ERROR FLAG
$SVLAO I INC!'
STSTNM
,COUNT TEST 'lUMBERS
MOV
(SP),SLPADR
: SAVE SCOPE L()OP ADDRESS
MOV
(SPJ,SLPEPR
; SAVE ERROR LOOP ADDRESS
CLR
SESOPE
,CLEAR THE ESCAPE fROM ERROR ADDRESS
MOVB
: ONLY ALLOw ONE(t) ERROR ON NEXT TEST
'1, SERM/IX
MOV
SOVER:
,DISPLAY TEST NUMBER
STSTN'M, filDISPLAY
SLPADR, (SP)
,FUDGE RETURN ADDRESS
"OV
RTl
:FIXES PS

1 S:

000004
327142
1770610
fl!00004

0013004

151752
0011016
001103
001102
1'101106
00111iti
001204
000001
<}01102
001106

001115
151702

RKDB/<

,8["NKS2
R0,-(SP)
#RKDS,R0
fiI(R0J+,-(SP)

"1AT"OEC-l1-DZRKH-f
~/lC'I11 27(11006)
04-0CT-76
13:29
PAGE 134
DZPKHF.pll
22-SEp-76 08:57
SCOpF. HANDLER ROUTINE

1)631
5612
5633
0:;634

RKDA

MAl "OEC-l1-DZRKH .. F
MAC Hl 27 (1006)
04-0CT-76
13129
DZRKHr.Pl1
22-SEP-7f', 08157
TRAP OECODER
.SeTTL

5670
5671
5672
5673

'HI~

5711
5712
5711
5714
5715
5716
5717
5718
5719
5720

SEQ 014P

TRAP DECODER

, , ••••• *•••••••• *•••••••••••••••••••••••••••••••••••••••••••••• *.
,.THIS ROUTINE WILL PICKUP THE "OWER BYTE or THE "TRAp· INSTRUCTION
,*AND USE IT TO INDEX THROUGH THE TRAP TABLE rOR THE STARTING ADDPESS
,.OF THE DESIRED ROUTIHE. THEN USING THE ADDRESS OBTAINED IT WILL
I.GO TO THAT ROUTINE.

5674
5675
5676
5677
5678
5679
5680
5681
5682
5683
5684
56115
56116
5687
5688
5689
5690
5691
5692
5693
5694
5695
5696
5697
5698
5699
5700
5701
5702
57,,3
5704
5705
5706
5707
570a
5709

PAG! 135

027246
027250
027254
027256
027260
027262
027266

010046
01660"
005740
111000
006300
016000
000200

027270
027272
027300

011646
016666
0"0002

$TRAPI
000002

MOV
MOV
1ST
MOVB

ASL
MOV
RTS

027 302

R0,-CSP)
2{SP),R0
-(R0)
(R0),R0
R0
URPAD(R0) ,R0
R0

"SAVE R0
, , GET TRAP ADDRESS
, ,BACKUP BY 2
"GET RIGHT BYTE OF TRAP
, j POSITION FOR INDEXING
"INDEX TO TABLE
" GO TO ROUTINE

" THIS IS USE TO HANOLE THE "GETPRl" MACRO
000004

000002

STRAP21 MOV
MOV

(SP),-(SP)
4(SP)'2{SP)

, ,MOVE THE PC DOWN
, ,MOVE THE PSW DOWN
; I FlESTORE THE PSw

RT!
• SBTT"

TRAP TAB"E

'.THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE IIOUTINES CALLED
'.BY THE "TIIAP· INSTRUCTION.

STRAP2
, ,CALLaTYPE
I,CALL-TYPOC
, ,CALL-TYPOS
I,CALL-TYPON
I,CALLaTYPOS

TRAP+! (104401)
TRAP+2 C104402)
TRAP+) (104403)
TRAP+4 (104404)
TRAP+5 (104405)

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEFlOS)
TYPE OCTAL NUMBER (NO LEADING l.EIIOS)
TYPE OCTAL NUMBER (AS PEFI LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)

022742

SGTSWR

, ,C ALL-GTSWR

TRAP+6 ( 1044166)

GET sorT-8WR SETTING

022672
023154
023274
023446
023550
025410
025446
022264
022272
022152
922430

SCMWR
.ROCHII
SRDLIN
SRDOCT
,RDDEC
UAVIIEG
'IIEtREG
CN.RST
CN.ROY
DR.RST
TY.MSG

TRAP+7C 194407)
TEST rOR CHANGE IN SOFT-SWR
" CALL-CKSWR
TIIAP+ 10 (1 04410) TTY TYPEIN CHARACTER R01.:THH;
"CALLaRDCHR
TRAP+11 (104411) TTY TYPEIN STFllNG ROUTINE
" CALLaRDLIN
TRAP+12(104412) READ AN OCTAL NUMBER rROM TTY
" CALL-RDOCT
, ,CALLaRDOEC
TRAP+I3(104413) READ A DEC IIIAL NUMBER FROM TTY
I , CALLa SA VREG
TRAP+14(104414) SAVE R0-R5 ROUTINE
, ,CALL-RESREG
TRAP+ 15 (104415) RESTORE R0-R5 ROUTINE
TRAPH 6 (104416) CONTML RESET ROUTI NE
, ,CALLaCON.RESET
, ,CALLaCON.ROY TRAP+I7(104417) WAIT FOR CONTNOL READY
TRAP+216(1*,4420) DRIVE RESET ROUTINE
I,CALLaORV.RESET
TFlAP+21 (104421) TYPE MESSAGE ROUTINE. SW13
"CALLaTYPMSG

027270
024152
925712
025666
025726
823726

027316
027320
027322
027324
027326
027330
027132
027134
027336
027340
027142
027344

STRPADI

ROUTINE
.WORO
$TYPE
• TYPOC
STYPOS
$ TYPON
STYPDS

9127302
027304
027306
027310
027312
927314

04 n OCT-76
13129 PAGE 136
MACYlI 27(1006)
MA INOEC-Il-DZRICH-F
2 2-SEP-76 08157
POWER DOWN AND up ROUTINES
"ZIIKHF.pll
5721
5722
572)
5724
5725
5726
5727
5728
5729
5H0
57JI
5732
57)3
57]4
5715
57]6
5717
57]8
57]9
5740
5741
5742
5743
5144
5145
5746
5747
5149
5749
5750
5751
5752
5753
5754
5755
!5756
5757
5758
5759
5760
5761
5762

5763
5764
5765

.S8TTL

027346
027354
027362
027364
027366
827370
021372
027374
027376
027402
027406
027414
027416

012737
11112737
010846
010146
010246
810346
1110446
810546
017746
010637
012737
0000"0
.,00776

027512
00e348

000024
1600026

151536
027516
027420

000024

027420
027426
027432
027436
027442
027444
027450
027452
027454
027456
027468
027462
027464
027472
.,27500
.,27582
027504
027506
027510
027512
027514
027516
027520

012737
013706
005037
"05237
001375
012677
012605
012604
012603
812602
012601
012600
012737
012737
104401
027520
012716
003366
000002
000000
000776
000000
005015
000122

021512
027516
027516
027516

S:::Q el14°

POWER DOWN AND UP ROUTINES

I , ••••••••••••••••••••••••••••••••••••••••••••••••••••
I POWER DOWIi POUT IN\:,
.'ILLUP, •• PWRVEC IISET rOR rAST UP
,PWRD", MOV
MOV
fl40, IItPWIIVEC+2
PIlIO 17
Re,-(Sp)
HOV
"PUSH 110 ON STACK
RI,-eSp)
MOV
JIPUSH Rl ON STACK
R2,-(SP)
MDV
: ,PUSH 112 ON STACK
MOV
R3,-eSp)
"PUSH Rl ON STACK
R4,-CSP)
MOV
I,PUSH R4 ON STAC!!
MOV
RS,-(SP)
" PUSH A5 ON STACK
MOV
ISWR,-{SP)
I I PUSH /lSWR ON STACK
MOV
SP,UAVR6
"SAVE SP
MOV
UPWRUP,IUPWRVEC "SET UP VECTOR
HALT
BII
J IHANG UP
.-2

* ••••••••••

, , ••••••••••••••••••••••••••••••• *•••••••••••••••••••••••••••••••

027526

000024

151470

027346
00"340

008024
000026

047520

042527

: POWER UP ROUT I NE
.PWRUP, MOV
UI"LUP,UPWRVEC "SET rOFl FAST DONN
MOV
,SAVR6,SP
: ,GET SP
CLR
ISAVR6
"WAIT LOOP rOR THE TTY
INC
UAVR6
1 ..
: I NUT rOR THE I HC
BNE
18
1I0F WORD
HOV
(l!P)+,ISWIl
: ,POP STACK INTO !lSwiR
HOV
{SPl+,R5
J IPOP STACK INTO R5
MOV
(SP)+,1I4
"POP STACK INTO R4
MOV
(SP)+,R3
"POP STACK INTO Rl
MOV
(SP)+,R2
: ,POP STACK INTO R2
(SP)+,RI
, ,POP STACK INTO Rl
MOV
MOV
(SP)+,R0
: , POP STACK INTO 110
MOV
UPWRDN, LU PWFlVE:: " SET UP THE POWER DOWN VECTOR
MOV
U40,UPWRVEC+2 : ,PRIOI7
TYPE
:REPORT THE POWER rAILURE
IPWRMGI .WORD
SPOWER
" POWER rAIL MESSAGE POINTER
MOV
(PC)+, (SP)
I ' RESTART AT PFSTRT
PFSTRT
I ,RESTART ADDRESS
.PWRADI .WORD
RTf
II THE POWER UP SEQUENCE WAS STARTED
ULLUPI HALT
BR
.-2
BEFORE THE POWEP DOWN WAS CO~PL:::T£
: ,PUT THE SP HERE
.SAVRS: 0
SPOWER, .Ascn <lS>CI2>"POWER"

,EVEN

,,4"0:::T-76 13: 29 P"GE 137
~A I'HlEC-U-OZR1(H-PMA011 27(10"6)
POWER DCI'lN AND UP ROUTINES
DZRKHF,PII
22·S£P·76 08157
5766
5767
5769
0; 769
577I'J
5771
5172
5773
5774
5775
577&
5777
5179
5779
578I'J
5781
5182
57q3
57A4
5785
57R6
5797
57B~

5199
579:11
5791
5792
5793
5794
5795
S7~6

57H
5798
57'19
5'10-'
5~01

5R02
5il0l
5994
5905
59(:16
5807
5B(:18
5809
5810
5B 11
5i112
5811
5914
5S15

027530
027536
il27544
027546
027554
"'27562
027570
027576
027604
~27612

027620
027621
027626
027634
027642
027644
"27652
1'J27660
027666
027667
2'27674
1'1 21i i'i2
027710
027716
",27724
"'27732
027740
1'127746
027754
027762
0277711
027776
030"04
030012
IH0013
039920
030026
030"'34
030042
030050
030056
030069
030066
030074
030102
1'130110
030116
030124

5~16

~30112

5919
~R 19

@30135
030142
1'130150

ssp
~~2,11

~30156

r;~21

030164

051105
02I'J116
000105
052101
052040
",52111
043040
047511
021440
0201347
000
103
020114
047516
000124
051057
051040
05211 7
000
103
020114
0475i6
020124
020122
047111
1'J20124
1'J51523
051440
051127
044502
020116
020054
020124
000
947
020047
041440
047440
1'J51124
043516
000195
050047
047511
020047
043040
052116
,,47tH
042526
051191
047
051117
040440
",3111440
052116

EMIl

,ASC IZ

IEROR ON WRITEI

052120
047111
042524
052103
047117
054523
0425211

EM21

,Asen

IATEMPT TO INITIATE FUNCTION ON 'BUSY' DRVEI

952116
042122
020124

047522
020131
042523

EM31

,Asen

I:NTROL ROY NOT SET I

053457
054504
051440

051457
047040
052105

EM41

,Asen

"/R/w/S ROY NOT SET"

052116
042122
020124
043101
051461
051124
047117
044525
1642505
047117
051524
045522
054105
042523

047522
020131
0425H
042524
020124
050125
044440
043516
000113
020107
044440
051503
041520
045505

EMS:

,,,selZ

leNTROL ROY NOT SET AFTER 1ST INTRUPT ON ISSUING SEEK/

EM61

,ASCIZ

IWRONG BITS IN RKes, EXPCT SEEK/

(:152502
0461",6
042514
020116
050125
042040

054523
043501
051101
047111
044524
053122

EM71

,ASCIZ

I'BUSY' fLAG CLE"R ON INTRUPTING DRVEI

051517
044516
946106
051117
052522
020107
041440
"'016
1651105
051440
05211'16
052123
051105

05211 1
043516
0435I'J1
1'J44440
052120
051104
042514

Et'-I",

,"sen

I'POSITIONING' FLAG fOR INTRUPTING ORVE eLEARI

023522
05211'15
051105
\'144440
052522

FM111

.Asell

I'ERR'OR SET AFTER 1ST INTERRUPT ON ISSUING SEEK/

051117
051121

047440

046505
020117
1'J40511
047125
020116
052502
051104

052111

MA P/DEC-l1-0ZRI(H-F
04·0eT·76 13129 PAGE 138
MACY11 27(1006)
OZRI(Hf" ,PI I
POWER DOWN "ND UP ROUTINES
n-SEP-76 08:57
5822
5 823
5R24
5825
5826
~R21

5828
5929
5830
51131
S'!)2
5H3
5934
5H5
~8)6

5S117
5938
Ijq 39
5<140
51141
51142
5843
5844
5845
5846
5q47
S84R
5849
';850
5B51

031'1172
03020~

031'1206
030214
030215
O316222
030230
030236
030244
~30252

@30261'1
.0"266
1139267
030274
16303"2
010310
"'30316
16316324
03"'332
030340
030342
030350
O30356
030364
030372
030400
~30406

5853
5R54
5855
51356
5857
5858

"30414
030415
030422
03",430
031'1416
03I'J444
030452
031'1460
0)0466
030474

5~59

~30501

5B60
5861
5R62
5863
5>'164
5865

030506
IH0512
030520
030526
030534
030540
030546
030554
031'1562
030570
030576
030604
030612
03061b
1'130624
030632
030640
1!130645

5~52

581,6

5867
586'!
5869
5871'1
5871
5872
5~73

5874
5875
5876
5877

SEQ 0150

,EPROR MESSAGES

05212O
051511
020107
"'00
123
052105
051105
044440
052120
051511
020107
000

047440
1652523
042523

020116
"4:7111
2'455165

@50103
040440
030440
052116
0474410
052523
042523

0514416
0521166
052123
1652522
"20116
047111
1645505

E~12:

,ASC rz

IS:::P 8ET AFTER 1ST INTRUPT ON ISSUING SEEKI

111)3

052116
042122
1'120124
043101
042523
047117
051124

047522
020131
1642523
042524
"45505
020105
051'1125

E~l.l:

• ASC Il.

I::NTROL ROY NOT SET AFTER SEEK DONE INTRUPTI

O51124
043516
020105
020113
O20051
047516
1'J51525

1'J50125
042040
051450
04751'J4
040527
020124
023531

EMI4:

,,,selZ

IINTRUPTING DIlVE (SEEK DONE) wAS NOT 'BUSY'/

~51457

EM15 :

,ASC IZ

"R/W/S READY NOT SET FOR INTRUPTING DRVE (SEEK DONE)·

054504
051440
051117
052522
020107
024040
042040
1'J00
I-14244I'J

1'J20114
~4 7516
020124
~20122

1'1421'140
047111
000124
1647111
044524
053! 22
042505
042516
020123
",41047
1300
122
051040
047040
052105
1'J44440
052120
051104
042523
1'147117
123
047522
042447
1120122
044517
042505
041523
1'J20104
042523
042524
045505
042040
047523
947522
040504
fl475I'J3
051511
1'J51105
1I'J3

053457
04051'J5
052117
IH3040
052116
047111
042526
~45505

024505
047111
000122
051122
0471P
043516
000113
020120
047516
020124
020122
0534401
047117
052106
000122
040524
050115
047117
051117
052116

EMI &:

,"SClZ

ISIN ERORI

047447
042040
051440

E".17:

.ASCIZ

I'ERR'OR ON 001 NG SEEK I

044504
020124
043101
042523
051501
00I'J105
042440

EM21H

,ASCIZ

ISCP DID NOT SET "FTER SEEK WAS DONEI

E~211

,ASCIZ

ISOfT ERORI

02404O
051101
020051

E"23 :

,Asen

10ATA (COMPARISON) ERORI

E"24 :

,"SCIZ

I:::NTROL ROY CLR ON INTRUPT AFTER RK FUNCTIONI

000

047522

SEQ 0151

M1\ I NOEC -11-DZRK H-F
MACYl! 27 (1006) 04-0CT-76 13129 PAGE 139
POWER DOWN AND UP ROUTINES
22-SEP-76 mlS7
DZRKHP'. Pit
5878
5879
5880
51'1111
5882
5883
5884
5985
5886
5887
5888
5889
5B90
5891
5892
5893
5994
5895
5896
5897
5898
5899
!>900

5901
5902
5903
59,]4
5905
5906
5907
5908
5909
5910
59\1
5912
5913
5914
5915
5916
5917
5919
5919
5920
5921
5922
5923
5924
5925
5926
5927
5928
5929
5930
5911
5912
5933

030652
030660
030666
930674
030102
030710
030716
030121
030726
030734
030742
930750
030756
030764
030772
030774
03101112
03Hl10
031016
031024
031032
031035
031 042
1'131050
031056
031064
031072
031100
031106
031114
031122
031130
031136
031144
11131152
031160
031166
11131174
031202
031210
031216
031221
1<131226
031234
11131242
031250
031253
11131260
031266
11131274
031302
031311"
031316
11131124
031330
031336

020114
046103
044440
052120
1'15111'15
052506
1'147117
123
044440
050117
046517
051440
029195
041040
000127
052101
f'l47524
051127
042502
053440
045510
101
1'152040
1'154105
020105
047101
050040
051505
040440
05451114
051511
11143047
047511
1150040
051505
020107
047111
1144524
044522
047123
052105
125
052103
044522
052116
04211115
125
1152103
041516
041440
047111
020123
020122
050125
051104
054504

042122
020122
052116
049440
051040
041516
000
052524
021i1l16
034054
041101
046110
047504
020131

020131
0471! 7
052522
052106
020113
944524
045593
047514
041440
951504
041104
042516
047516

E"'261

.ASCIZ

ISTUCK IN LOOP,S COMANDS SHLDBE DONE BY NOWI

050115
042040
052111
047506
052122
000
046524
020117
041505
047503
026504
047522
020123
051114
043040
042510
047125
020116
047522
1120047
047506
051124
043516
042526
052047
00111
042516
042105
042526
1152522
11100
042516
020104
044524
042117
051040
04311:'11
047111
000124
1142526
041440

020124
020117
020105
042522
041440

EM271

.ASCIZ

I ATMPT TO DO WRITE BEFORE WRT CHl<1

052120
042522
052125
046515
047111
051107
051117
040505
047111
01110104
052103
047111
051107
0461il6
020122
050125
11142040
044440
051440

EM301

.ASCIZ

IUMPT TO REEXECUTE COMMAND-IN PROGRESS OR ALREADY FINISHEDI

EM311

.IISCIZ

I'FUNCTION IN PROGRES' FLG FOR INTRUPTING DRIVE ISN'T SETI

050130
0420411
:2144440
1152120

EM321

.ASCIZ

IUNEXPCTEO DRIVE INTRUPTEDI

050130
052506
047117
02011115
041513
042524
1'151121

EM331

.ASClZ

IUNEXPCTD FUNCTION CODE IN RI<CS AFTER INTRUPTI

051040
042514

EM341

.ASClZ

IDRVE ROY CLEARI

MAINDEC-l1-DZRKH-PMACYt 1 27<10(6) 04-0CT-76 13: 29 PAGE 140
POWER !)~WN AND UP ROUTINES
DZRKHF. Fll
22-SEP"76 08157
5914
5935
5936
5937
5918
5939
5940
5941
5942
5943
5944
5945
5946
5947
5948
5949
5950
5951
5952
5953
5954
5955
5956
5957
5958
'5959
5960
5961
5962
5963
5964
5965
5966
5967
5968
5969
597~

031344
1!I31H7
031354
11131362
11131365
1'131372
031400
03141111
03141116
031411
031416
031424
031432
031440
031446
031451
031456
031464
031465
031472
031500
031506
IHI513
031520
031526
031534
031541
11131546
031554
031562
031570
11131571
031576
031604
031610
031616
031624

05111111
Hl4
114752111
A47514
Hl4
047125
000
127
052105
111
11150125
047104
052503
042524
042524
047
051117
000
122
04711 1
052116
047522
122
047111
052116
11147522
122
044504
047440
020117
000
115
052111
047117
051127
045510
0001n

01110
0'53122
042527
000
053122
040523

020105
020122

E",35:

• ~SC IZ

InRVE PO"ER LOI

020105
042506

EM361

• ASC I Z

IDRVE UNSAFEI

fd51440

051520
0110
052116
020124
052047
020122
020122
001:)
051105
051440

EM37:

.ASClZ

IWPS SET I

051105
1144504
047440
043101
051127

EM1011

.ASCIZ

IINTERUPT DIDN'T OCUR AFTER WRTEI

023522
052105

EM1f62:

• ASC IZ

I'EPR'OR SETI

042113
051103
042105
043516
041113
051103
042105
043516
053513
04711114
051126
047524

020101
042515
053440
000
020101
042515
053440
000
020103
052047
046106
030040

EM103:

.ASCn

IRKDA INCRMENl'ED WRONGI

EM1041

.ASCIZ

IRICBA INCRMENTED WRONGI

EM1051

.ASCIZ

IRKWC DIDN'T OVRFLO TO 01

054105
020123
000107
042524
042440

041040
051127

EM106:

.ASCIZ

I"'EX BITS IoIRONGI

~41440

Jl; Y I10:

,ISCIZ

IWPTE CHK EPOPI

047522

SEQ 0152

SEQ ":53

13:29
PAGE 141
04-0CT-76
MACYll 27(1006)
"!AINOEC-l1-DZRKH-f
pOwER DOWN AND UP ROUTINES
22-SEP-76 08157
DZRKHF'. P 11
5971
5~72

5973
5974
5975
5976
5977
5978
5979
59!'!0
5991
5ClR2
5983
5994
5985
S9R6
59!!7
'5'188
599~
599~

5991
5'192
5991
599l
5995
5996
5997
5991!
5Cl99
o <!il "
6.101
6002
61l1l]
61004
6'}05

6"016
6..,07
600tl
6~J09

bil10
6"11
6012
6;}11
60014
6;,)15
6"16
60\7
61116
6019
6"2il
6"21
6022

600'23
6024
60025
6026

031626
031634
031642
031650
031656
031664
031672

020040
020040
e20123
042513
051040
020040
000101

031674
031702
031710

6;'l~0

61!lH
6~32

6"'~3

6;q4
6i135

RKCS

RI<ER

RKDS

RKDAI

RKER

RKDS

DRIVE

EXPCT

RECVD

RKDA/

RKDS

RKDA

05104~

020040
020040
000

041520
051104

020040
02 t 526

DH2 :

• ASC I Z

ORVtI

031711
031716
031724
031732
.nl140
031746
031754
0317&2
031770
031776
032004

040
020",40
0515",3
045522
020040
020040
042526
054'503
020040
020040
000103

050040
020"'40
020040
051105
045522
042040
020040
020114
052523

DH21 :

.IISCIZ

RKCS

02004~

020103
045522
020040
020040
051504
044522
020040
020040
1120122
[1142523

032006
032014
0321'.122
032030
1'.1321036
032044
032.052
032053
032060
032066
032"'74
03211i12
032110
032116
032124

1120040
020040
020040
[1141520
1'142522
020040
000
040
020040
051503
042513
1'1511:)41'1
020040
020HlI
042526

041520
045522
020040
020124
05311'.13
045522

020040
0405G2
054105
020040
020104
040504

DH23 :

.ASCIZ

RKBA

05004Yl
02004il
020040
020122
042113
051fc!410
020040
000043

020103
045522
051040
020040
020123
042113
",51104

DH,5:

.~SCIZ

RKCS

RKER

032130
032136
032144
032152
032160
032163
032170
032176
032204

111200410
020040
020040
1'.152103
042504
040
020040
052103
04151'15

041520
045440
020040
\j20116
00'"
050040
042440
020040
042126

020040
054505
047106
11147503

DH27:

.IISC!Z

KEY

FNCTN CODEI

020103
050130
051040
01010

OH103 :

.IISClZ

EXPCT

032211
032216
032224
032225
032232

040
020040
000
040
020040

050040
04544.0

02011'13
054505

DH316 :

• ASCI Z

KEYI

050040
020040

020103
045522

DH1~5:

• Ase lZ

RKDA

DZPKHF'. P11
61027
6028
61'129

SEQ 0154

020040
041513
051040
020040
020123
042113

MAP1OI'.:C-ll-0ZRKH-F'
22-S~P-76

041520

lDATA HEilDEPS
.ASCIZ
DHI:

05104~

020040
020122
042113

MIICYII 27(1006)
08:57

032240
032246
032252
032260
032266
1.n2274
032302
0323110
032316

040504
053513
0200410
020040
020123
042513
051040
0200410
000101

020040
00011'13
1041521<l
1151041'1

"'32320
032326

Cn.

RECVD/

RKWCI

04-0CT-76
13: 29
PAGE 142
POWER 001'1111 AND UP flOUT!NES

SEQ 0155

051040
DH110:

041113
051040

001116
001166

0101162
001170

001164
001001"10

DTI :

.WORD

Sf.RPPC, SREG0, SREG1, SREG2, SREGl, 0

1132334

0101116

0il1162

010010010

DT2:

.WORD

SERRPC,SREGI!I,IO

032342
032350
032356
032364
032372
10324010
"32402
n324Hl

0"1116
001166
001174
0"'1116
001166
03"000
0131116
0000"'0

""1'11162
001170
001176
il01162
001170

001164
001172
101/10000
001164
"'01172

DT21 :

.wORD

SERPPC, SREG0, SREG1, SPEG2, SREG3, SREG4, SREG5, SREG6, '"

OT251

.WORD

SERRPC, SREG0, SREG1, SREG2, SREG3, SREG4, 0

1'1101162

0101164

DT103 :

.wORD

HRRP::, SREG0, SREG1, 0

0201n

.IISClZ

RKCS

RKER

RKBII

RKDA/

1"'3<>
6"'37

&Ina

.EVF.N

6,Q9
6<140

6041
6042
61<lO
6JH
6(1145
6046
6.14 7
6'048
6:l49
b1151<l
51'151
6,152
6053
6054

:THIS IS THE nATA BUFF'ER USED TO WRITE THE RANDO"! PATTERNS ON THE
:DISK AT THE BEGINING. 400 (OCTIIL) WORDS ARE WRITTEN AT A TIME, THUS
:THIS FlUtfER IS 400/8 wORDS LONG.

6~55

61056
6057
6"'58
6.,l'5~

f>il6"

032412
1'132412

i'I.,l1124'"
11<)0vl01

DFlUF':
PGENO:

~OP

.END

SECI

DRVEJI

020040
041513
1051040
02101040
10210101
042113

02004~

SUR

MAINDEC-1! -OZRKH-F
!<!ACY!1 2H 10"6)
04-0CT-76
13129
DZRKHF.Pl1
22-SEP-76 08157
SYMBOL TABLE
$SCOPE
SSETUP"
SSIZE
SSIUX
SSTUP •
SSVLAD
ssvPC '"

027102
000115
017374
01163&
177777
O27204
00"22"

~SS.

032414

•

SSWR " 143000
$SWRMK" 000000
001146
$T1<8
sn:s
001144
STN
" 00"010
STNPWR 024622
$TP8
001152
OO"

EPRORS DETECTED I
0
DEFAULT GLOBALS GENERATED I
DZR~ HF', OZRKHF ILt I ME/NL: MC P"O :CNO/SOL/NSQ-DZRKHF. pll
RUN-T IME I 1>4 47 1 SECONDS
RUN-TIME RATIO: 297/114.2,&
CORro; USED:
30K
(59 PAGES)

PAGE 146

STPFLG 001157
001150
srPs
STRAP
027246
027270
$TRAP2
STRP • 000022
CTRPAD 027302
$TSTNM 001102

SEQ 0158
STTYIN
STYPDS
STYPE
.TYPEC
STYPEX
STYPOC
STYPON

023402
023726
024152
024322
024370
025712
025726

STYPOS
UTSTR
UGET4.
80Ft!..I..
"

025666
027114
000000
026111
032414