Digital PDFs

MAINDEC-11-DZRKK-D-D

December 2002

83 pages

Original

5.7MB

Document:	RK11 Basic Logic Test II Dec76
Order Number:	MAINDEC-11-DZRKK-D-D
Revision:	0
Pages:	83
Original Filename:	http://bitsavers.org/pdf/dec/pdp11/xxdp/diag_listings/RK11/MAINDEC-11-DZRKK-D-D_RK11_Basic_Logic_Test_II_Dec76.pdf

OCR Text

IDENTIFICATION
..............
PRODUCT CODE:

MAINDEC-l1-DZRKK-O-O

PRODUCT

PKll BASIC LOGIC TEST II

r-IAME&

DATE CPEATEDI

DECEMBER, t916

MAINTAt~ERI

DIAGNOSTIC GROUP

AUTHOR.

·JIM KAPADIA

REVIS!D BYI

PERVE! 2AKI
TOM SAWYER
CHUCK HESS

THE INFORMATION IN· THIS DOCUMENT IS SUBJECT TO
CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS
A COMMITMENT BY DIGITAL EQUIPMENT
CORPORATION.
DIGITAL
EQUIPMENT
COPPORATION
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 PELIABILITY or ITS
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
DIGITAL.
COPYRIGHT eel 1915,1916 8Y DIGITAL EQUIPMENT CORPORATION

SEQ 0001

QUICK LOOK-UP OPERATING INSTRUCTIONS
FOR A QUICK RErERENCE, LOOK UP THE FOLLOWING SECTIONSI
ABSTRACT
2.0
REQUIREMENTS
4.1
LOADING AND OPERATOR ACTION
7.0
SWITCH OPTIONS
FOR A MORE COMPLETE EXPLANATION REFER TO THE TABLE or
CONTE~TS
8ELOW AND THE FOLLOWING DOCUMENT.

1."

TABLE or CONTENTS
ABSTRACT
REQUIREMENTS
EQUIPMENT
PRELIMINARY PROGRAMS
EXICUTIO" TIME
STARTING ADDRESS

'.4

'ROGRAM CONTROL MODES , OPERATOR ACTION
PAPER TAPE
RICDP DUMP MODE
ItieD' CHAIN MODE
ACTll

s.e

DRIVZ SELECTION

6.8

OIUVZ-LEII TEIT

7.'

SWITCH OPTIONS

1.1

SCOPE LOOPI

4.0

'.1
4.2

t.l

PRO GRIM I!RUC7U~!
lET-UP PHAIE
DRIVE DEPENDENT CONTROLLER TEITS
10.0

ERROR REPORTING

11.0

ERROR INTERPRETATION

12.0

HANDLERS AND COMMON RoutINES
TRAP HANDLER
SCOPE HANDLER
ERROR HANDLER
CONTROL RESET ROUTINE
CONTROL READY ROUTINE
DRIVE RElEt' ROUTINl."
TIME DELAY ROUTINEWAIT rOR INTERRUPT R~UTtN!
OTHER ROUTINES
TTY HANDLER (1/01, ERROR TY~EOUT ROUTINE
POWER DOWN/POWER UP ROUTIN!

12.1
ll.2
12.)
12.4
ll.5
12.6
12.7
12.8

12.9

13.8
14.0

UNEXPECTED TIMIOUTS , RKll INTERRUPTS
QUICK VERYFYING MODE

SEa 0002

SE~

1.8

ABSTRACT
TH! R~tl LOGIC TESTS CONSIST OF A SERIES OF TESTS
AIMED AT CHECKING THE BASIC LOGIC or THE ~Kl1
CONTROLLER, THIS PP6GRAM IS THE SECOND PART OF THE
TwO-PART ~Kll LOGIC TESTS. IT SHOULD BE NOTED THAT
LOGIC TEST I AND LOGIC TE8T II TOGETHER CONSTITUTE
A COMPLETE PROGRAM AND BOTH OF THEM SHOULD BE RUN.
WHEN USED IN CONJUNCTION WITH A DRIVE IT IS

or DETECTING rAULTS IN THE DRIVE ALSO,
USED CORRECTLY THIS PROGRAM CAN
ANALYTIC AND DIAGNOSTIC TOOL.

2.8

REQUIREMENTS

2.1

EQUIPMENT
A.
B,
C,
D,

2.2

CAPABLE
EFFECTIVE

POP11 WITH CONSOLE TELETYPE.
a~ or MEMORY
RKll OR RkVlt CONTROLLER
I-a RK05 OR RK05F DRIVES OR THE RK05 SIMULATOR
CDRIVE TYPES MAY 8E MIXED)

PRELIMINARY PROGRAMS
RKII BASIC LOGIC TE8T I (MD-11-DZRKJ)

2,3

EXECUTION TIME
ERROR rREE FIRST PASS ON PDP11/20 WITH CORE MEMORY
TAKES APPROXIMATELY TWO MINUTES. CONSIDERABLY LESS
'OR FASTER MACHtNES O~ MEMORIES,

1.0

STARTING ADD~ESS
200 rOR ANY MOD! OF OPERATION.
ALL SWITCHES DOWN,

4,0

NORMAL START UP WITH

PROGRAM CONTROL MODES' OPERATOR ACTION
PAPER TAPE LOADING
RKDP DUMP ~ODE
RKDP CHAIN ~OOE
ACTt1

0001

4.1

PAPER TAPE LOADING
LOAD PROGRA~ INTO MFMORY
FOR .ABS TAPES.

SEQ 0e0.
USING

STA~D.RD

PROCEDURE

MAKE SURE THAT TH~ DRIVES TO BE CHECKrD ARE LOAOED
WITH DISKS AND ARE IN 'RU~'. 'WRT ENABLE' THEM.
CH[CK THAT 'WRT PROT' LIGHT ON THESE DRIVES IS orF.
PUT DRIVES THAT ARE NOT TO BE TESTED ON 'LOAD'.
LOAD ADDRESS 200
4.1.4

SET SWITCHES IF DESIRED CSE' SEC 7.0) IF TESTING
SIMULATOR PUT SW<ll> Up.

PRESS START.

THE PROGRAM IDENTIFIES ITSELF (NAME,MAINDEC
THEN THE FOLLOWING QUESTION IS ASKED.

NO),

DRIVES TO 8E TESTED?
TH! USER SHOULD TYPE IN THE DRIVE NUM8ERS THAT ARE
IN 'RUN' AND TO BE TESTED. CARRIAGE RETURN SHOULD
TERMINATE THE ST~ING. I' AN RK-05F IS TO BE TESTED,
TYPE THE SU'FIX 'r' WITH THE FIRST DRIVE OF THE PAIR.
rOR EXAMPLE, IF DRIVES 2 AND 1 ARE ON AN RK-05F, TYPE
ONLY

2'.

EXMP.

DRIVES TO BE TEITED7 0,1,2<CR>

THE DRIVES DO NOT HAVE TO BE IN LOGICAL ORDER.
IXMP,

DRIVES TO BE TESTED? 2,4<CR>

rr ANY ONE DRIVE 18 TO Rt TESTED, TYPE
NUMBER. IT DOES NOT HAVE TO BE DPIVE I.

THA!

THUS A NOR~AL SEQUF.NCE WITH DRIVES 0,1 WOULD BEl
RKtl LOGIC TEST II
~AINDEC-lt·DZpKK-D

DRIVES TO BE TtSTEO? 0,lcCR>
THERE IS A -RUBOUT" FEATURE WHICH ALLOWS RU8BING OUT
AIY NUN!ER OF CHARACTERS THAT WERE TYPED IN WRONG.
TH! ~U8BED OUT CHARACTEPS ~RE eCHOED BACK WITHIN
SLASHES.
··U· DELETES THE ENTIPE LINE
IF REPLY TO ANY OF THE ABOVE QUESTION IS IN l wpnNG
'ORMAT CEX. 012<CR>,0,8<CR., 0,A<CR>, M<CR> [TC), IT
IS AUTOMATICALLY REJECTED, A "11" IS PRINTEn OUT,

THE CORRECT ANSWER CAN NOW BE RETYPEO-AGAIN.

IEQ 0005

THE DRIVE NUMBER BF.tNG TESTED OUT IS PRINTED.
DRIVE N ,N.0,1 ••• 7
Ir THE DRIVE IS AN RK-0Sr, AN F IS APPEND gO
AT THE END or A PASS THE FOLLOWING TYPE-OUT OCCURS
END PASS • X
WHERt X. PASS NUMBER (1,2,3-·-), CONTROL IS PASSED
TO THE BEGINNING or THE PROGRAM AND RE-EXECUTION
BEGINS. NO QUESTIONS ARE TO BE ANSWERED AGAIN.
ERROR rREE PASSES or THE
BELOW,

PROGRAM

APPEAR

SHOWN

THE

RKDP

RKII LOGIC TEST II
MAINDEC-l1-0ZRKK-O
DRIVES TO BE TESTED?
",I<CR)
DRIVE 0
DRIVE 1
END PASS • 1

DRIVE 1
END PASS • 2

..., ,,

4.2

RKDP DUMP MODE
THE PROCRAM -IS LOADED INTO THE MEMORY
MONITOR

START AS NORMALLY USING SA 200
THE PROGRAM IDENTIFIES ITSELF (NAME,MAINDEC NO,).
ON FINDING OUT THAT THE LOADING WAS BY RKOP (DUMP
MODE), THE FOLLOWING MESSAGE APPEARS I
'TO TEST DRIVE 'N' HALT PROGRAM, REMOVE RKDP PACK AND REPLACE IT
WITH A WORK PACK, CLEAR LOCATION 4", AND RESTART PROGRAM'

IF DRIVE 'N' IS TO BE TESTED, THE RKDP PACK ON THAT
DRIVE SHOULD BE REPLACED BY ANOTHER PACK, THE DRIVE
SHOULD 8E PUT ON 'WRT ENABL' (BECAUSE RKDP WRITE
PROTECTS THE DRIVE),

4,J

IF DRIVE 'N' IS NOT TO BE
SHOULD BE IGNORED.

CHECKED,

AFTER THIS, THE SEQUENCE
EXPLAINED IN src 4,1.5.

RKDP CHAIN MODE

THEN

THE

QUESTIONING

MESSAGE
IS

THE PROG~AM II CHAIN-LOADED FRO~ THE PKDP PACK ON
DRIVE 'N'.
AFTER THE PROGRAM IDE~TlrIES ITSELF THE
FOLLOWING PRINTOUT OCCURS.

THERE IS NO OPERATO~ INTERVENTIO" REQUIRED.
PROGRAM FINDS OUT THE NUMaE~ OF DRIVES PRESENT.
4.4

THE

ACT11 MODE
THE PROGRAM IS LOADED BY THE ACTt1 MONITOR.
ON
STARTING, ID!NTIFIES ITSELF, ASCERTlINS THE NUMBER
or DRIVES AND PROCEEDS WITH THE EXECUTION OF TH!
TESTS AS BErORE.

5.0

DRIV! SELECTION
IF ANY PARTICULAR DRIVE IS TO BE SELECTED FOP
TESTING, PUT THAT DRIVE ON '~UN', ·WRITE ENABLE-'
PUT REST or THE DRIVES ON 'LOAD', -WRITE LOCK- ~NO
IN REPLY TO THE OUES- TIONVES TO BE TESTED?)
TrPE IN THE DRIVE NUMBER FOLLOWED 8Y CR.
SEE SEe
4.1.5.

6.0

DRIVE-LESS TEST
USE RK11 BASIC LOGIC TEST II WHICH IS ACTUALLY THE
FIRST PART or THE TWO-PART RKll BASIC LOGIC TESTS.
SEE SEC 1.0, ~.2.

7.0

SWITCH OPTIONS
IF THE PROGPAM IS BEING RUN ON A SWITCHLESS PROCESSOR (I~E. AN 11/]4)
THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWIT:H REGISTER IS
NO! PRES!NT AND WILL USE A 'sorTWARE' SWITCH R!GISTER. THE
'sorTWl~E' SWITCH REGISTER IS LOCATEO AT LOCATION 176 (8).
THE
SETTINGS OF THE 'SO'TWlRE' SWITCHES ARE CONT~OLLED THROUGH A KEYBOARD
ROUTINE WHICH IS CALLED BY TYPING A 'CONTROL G'. THE PROGRAM WILL
RECOGNIZE THE 'CONTROL G' whenever the program enter.

the seop. routine or beqlns • new test. the

'SOFTWARE' SWITCH VALUES ARE ENTE~ED AS AN OCT~L NUMBER IN RESPONSE
TO THE PROMPT 'ROM THE SWITCH ENTRY ROUTINE:
'SWR • NNNNNN

NEW.'

EACH TIME SWITCH SETTING ARE ENTERED, 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 'SOFTWARE' SWITCH
REGISTER MAY BE USED. I' THE PROGRAM FINDS ALL 16 SWITCHES IN THE
'up' POSITION, ALL SWITCH REGISTER REFERENCES WILL BE TO THE
'SOFTWARE· REGISTER ANO THE PROCEOURES DESCRIBED ABOVE MUST
BE FOLLOWED.

IEQ 0006

SEQ 01007

SW<15>81
SW<14>81
IW<13>81-

SN<12>81
SW<11>·1

SW<10>81
SW<09:>*1
SW<09:>·1
SW<06>al
7.1

HALT ON [RROR
LOOP ON TEST
INHIBIT E~ROR PRINTOUTS
e~CLE
ON ERROR TO THE
PREVIOUS
'seOPE' STATEMENT
INHIBIT ITERATIONS
TESTING ON SIMULATOR
LOOP ON SPECIFIC ERROR
LOOP ON TEST AS PER 5WC07.00>
DROP THE DRIVE AFTER MAXIMUM
ALLOWABLE NUMBER OF ERRORS oeCUR

IWC15>

THE PROGRAM HALTS ON ENCOUNTERING AN ERROR, ArTER
TYPING
OUT
THE
ERROR
MESSAGE AND PERTINENT
INFORMATION. PRESSING "CONTINUE" R£srORES NORMAL
OPERATION or THE PROGRAM.
7.2

SW<14>
THE PROGRAM LOOPS ON THE SU8TEST THAT IS BEING
EXECUTED WHEN THE SWITCH 18 PUT ON. THIS SWITCH IS
USED NORMALLY ALONG IN 15. SEE SEC 8,0,

7.3

SN <13~
THIa SWITCH INHIIITS ALL ERROR MESSAGES.
NORMALLY
USED WHEN LOOPING ON TEST (SW 141 OR LOOPING ON
ERROR (aw 9).

7.4

SN C12>
THIS SWITCH ALLOWS THE PORGRAM TO CYCLE FROM THE
POINT 0' ERROR TO THE PREVIOUS SCOPE STATE~ENT.
NOTE THAt IN DOING sb ANY INITIALIZATION BEING DOME
AT THE SEGINING or THE SUBTEST WILL 8E DONE AGAIN
AND AGAIN. SEE SEC 8.0 FOR DIFFERENT ICOPE LOOPS
AVAILABLE.

7.5

SW <11>
EACH BUBTEST WILL BE EXECUTED ONLY ONCE.
NORMALLY
ArTHE FIRIT PASS, EACH SUB TEST IS ITERATED A
NUMBER or TIMES (USUALLY 50, !
IN SOME CASES).
SETTING TKIS SWITCH INHIBITS ITERATIONS, SO THAT
QUICK PASSES CAN BE MADE.

7.6

8W <10~
THIS SWITCH WHEN SET INDICATES THAT TESTING IS BEING
DONE ON A SIMULATOR, THE SWITCH SHOULD BE PUT UP
BEFORE START- ING THE PROGRAM, NOTE THAT RK11C IS
NOT COMPATIBLE WITH THE SIMULATOR.

1.1

SN <09>

SEQ 0088

THIS aWITCH PROVIDEI THE TIGHTEST POSIIBLE ICOPE
LOOP.
NOTE THATK! IW12 THE INITIALIZATION or
PARAMETERS AT THE BEGINNING or THE SURTEST MAY NOT
BE DONE IN THII CASE. THIS SNITCH IS HELPFUL WHEN A
PARTICULAR PART OF A SUBTEST IS BEING REPEATED USING
DIFYERENT PARAMETERS AND YOU WANT TO SCOPE ON THE
PARAMETER IN ERROR. (EX)MPLEI RKOA IS BEING WPITTEN
AND READ lACK WITH COUNT PATTERNS FROM 1 TO 117777.
PATTERN 561 I I GIVING ERROR, YOU. MIGHT NOT W1NT TO
GO THROUGH THE 560 PlTTERNS BErORE HITTING ERROR ON
THE 561TH PATTERN. IN THII CAIE SW 9 WILL GIVE YOU
A SCOPE LOOP ON TH! 561TH PATTERN ONLY

1.8

·av <08~

THIS SWITCH II USED TO SELEC' A PARTICULAR TEST (AS
PER IW<0e-07» rOR EXECUTION AND SUBSEQUENT LOOPING.
THUI
TEST 15 II TO BE SELECTED THE SWITCH SETTING
WOULD IE 008415.
IT SHOULD BE NOTEO THAT BEfORE
SELECTING TEST 15, ALL THE PREVIOUS TESTS (1·14)
WILL BE EXECUTED.

1.9

IW<06>
THIS SWITCH ALLOWS THE PROGRAM TO DROP A DRIVE fROM
THE SELECTION
LIST
lND TESTING ArTE~ MAXIMUM
ALLOW1BLE
ERROR COUNT (TOTaL NUMBER or ERRO~8) ON
TH1' DRIV!
EXCEEDED. THE MAXIMUM ALLOWAILE [RROR
COUNT 18 5, lr'ER 5 [RRRORS HAVE OCCURtD DRIVE
IS DROPPED AND A MESSAGE (DRIVE' XXX DROPPED) IS
PRINTED.

8.0

SC~PE

LOOPS

THIR! ARE THREE KINDS or SCOPE LOOPS AvaILABLE
1.

SV14a LOOPING IS DONE FOR THE ENTIRE sue-TEST

SW121

LOOPING IS DONE FROM THE POI~T OF ERROR
BACK'O THE PREVIOUS ·SCOPE- STATEMENT.

SW09i

PROVIDE THE TIGHTEST POSSIBLE SCOPE
SIE IEC. 7.7

EXAMPLE I
T8Tl1
SCOPE

INITIALIZATION
I

ERROR 1
I

ERROR 2

LOOP

ERROP )

IEQ 0809

ERROR 4
I

TST21

SCOPE

THF. SEQUENCE or LOOPING rOR DIFFERENT CASES II
EXPLAINED aELOW.
NOTE TH~T 'TST1' AND 'TST2' ARE
TAGS WHICH DErINE THE BOUNDARY or A TEaT, (IN THIS
CASE TEST 1). TEST 1 STARTS AT 'TST1' AND ENDS JUST
BEFORE 'TST2'.
IN THE ILLUSTRATION BELOW •• ~ INDICATES THE POINT
fROM WHERE RETURN 18 MADE AND LOOPlNG 11 DONE.
I.

ERROR 2 OCCURS, SW 14 SET.

TITI •• ERROR 2 •• TST2-·)TST1 •• !RROR 2 •• TIT2-->T8Tl •••
2.

ERROR 2 OCCURS,

sw 12 SET.

TSTI ••• ERROR 2-->TSTl, •• ERROR2-->TST1 •••
3.

ERROR 2,1, IW 14 SET.

TITI •• ERROR 2 •• £RROR 1 •• TST2--~TIT1 •• ERROR

2 •• ERPOR

1 •• T'T2-->TST1 •••

tRROR 2,l, IN 12 SET.

TITI, •• ERROR 2-->TST1 ••• ERROR 2.·)TSTt ••••
NOTE THAT LOOPING IS DONE 'ROM THE VERY rIRST ERROR
ENCOUNTERED.
THE MORE BASIC AND ERROR THE EARLIER
IT OCCURI AMb IS DETECTED AND SHOULD BE rIXED.
IN THE alOVE EXAMPLE NO PART or THE SUB-TEIT IS
BEING REPEAlING DIF'ERENT PARAMETERS, HENCE IT
.0 HAPPENS THAT SN 9 AND 12 GIVE THE SAME KIND 0'
LOOP'. ;THe EXAMPLE BELOW WILL OEMONSTRATE THE
DIFrERENcE BETWEEN sw 9 AND 12.
T.Tl.

INITIALIZATION
I

ERROR 1
C

MOV
t'l

,-SLPERRCONTAINS
JTHE ADDRESS TO LOOP
i8ACK ON ERROR- SW 9

.1.,.LPERR

I
I

N REPETITIONS
I

TST2.

SM 12
REPETITIONS
1.

9.e

....

seOPE
SET,

ERROR

OCCURS

SEQ 0010
DURING

SN 9 SET, ERROR 2 OCCURS DURING K.TH REPETITION

PROCRAM ST~ueTURE
!HIRE ARI THAEE DIITINC! PARTS or THE 'ROG~lM.
SET-UP pHA.E
DRIVE-DEPENDENT CONTROLLER TESTS

9.1

SET-UP PHAI!
SETTINC UP or INITIAL POINTERS, VECTOPS, TABLES IS
DONE IN THIS PAPT. IN THIS SECTION THE OECISION IS
~ADE ABOUT THE PROCRAM MODt-PAPER TAPE,
RKOP DUMP,
CHAIN OR ACTlt.
I' IN A NON-INTERVENTION MODE
(CMAIN, lCTII) NUMBER OF DRIVES AND THE TX'E or
CONTROLLER IS FOUND OUT. 'LAGS ARE SET TO INDICATE
WHICH DRIVES ARE TO BE TESTED, ETC.

9.2

DRIVE DEPENDENT CONTROLLER TESTS
THII SECTION rORMS 1 MAJOR PART OF THE
WHEREIN MOST or THE CONTROLLER IS CHECKEO.

PROGRlM

JUST BEFORE €NTEAING THIS SECTION THE PROGRAM 'INDS
OUT WHICH DRIVE II TO BE CHECKED. Ir IN RKDP CHAIN
MODE, DRIV! -N- IF PRESENT, IS SKIPPED AND THE NEXT
AVAILABLE DRIVE IS SELECTED.
THE DRIVE NUMBER BEINC TESTED IS PRINTED OUT'
DRIVE N
THE TESTINC fS DON! IN A LOClCAL HIIRCHY,
THINGS FIRIT, tHEN MORE COMPLEX AND 80 ON.
IN

ONE

SIMPLER

THE TESTS THE ENTIRE DISK PACK IS
CHECKS ARt MADE 'ON ERROR CONDITIONS.
TH! rIR.t WORD or EYERY SECTOR IS WRITTEN AS A
PSUEDO-H!ADER, REFLECTING THE ABSOLUTE ADDRESS OF
THAT SECTOR (DRIVE I, CYLINDER I, SURfl=E I, SECTOR
.).
EXAMPLEI THE PSUEDO-HEADER FOR SECTOR 5,
SURFACE 0, CYLINDER 29, DRIVE ~wOULD BE 0i1005.
rO~M~TTED,

IN THE NEXT TEST THE HEADERS 'ROM THE ENTl~£ PACK
ARE
READ
AND CHECKED FOR CORRECTNESS.
IN A
SUBS~QU[NT T~ST ALL THE PSUEOO-HEAOERS lRE R~AO
~NO
VERIFIEO.

ALL THE rUNCTIONS APE CHECKED OUT.
·SEEK' IS
CHECKED IN THE THREE DIFFERENT VELOCITY MODES (HIGH,
MEDIUM, LOW). VARIOUS ERRORS LIKE 'NXD', 'NXC',
ETC. ARE SIMULATED AND CHECKED.
HARDWARE POGIC IS CHECKED USING ALL THE
THAT HAVE 8E!N INDICATED.

DRIVES

AT THE END OF THIS SECTION, A CHECK IS MADE Ir ALL
INDICATED DPtVES HAVE 8EEN TESTED, IF NOT, CONTROL
IS TRANSFERRED TO THE BEGINNING or THIS SECTION.
THUS ONE PASS OF THE PROGRAM INVOLVES DOING
SU8TEST '1 ONCE
DRIVE-DEPENDENT
DRIVES.
1.
2.

18.8

TESTS

rOR

ALL

THE

SELECTED

ERROR REPORTING
CONTAINS
THE ERROR TABLE STAPTING
AT
.ERRTB
INFORMATION PERTAINING TO EVERY ERROR THAT eAN
OCCUR. EACH ITEM IN THE TABLE CONSISTS or FOUR
ENTRIES.
A.

EM • THIS IS A POINTER TO THE ERROR MESSAG!
8E TYPED OUT WHEN THE ERROR OCCURS.

DH • THIS IS A POtNTER TO THE DATA HEADER TO
TYPED OUT.

DT • THIS IS A POINTER TO THE DATA WHICH IS
8E TYPED TYPED OUT UNDER THE HEADERS.

END

8 • THIS· IS A TERMINATOR SIGNIFYING THE
THE ITEM.

THE ERROR CALL IS AN EMT INSTRUCTION WITH ITS LOWER
BYTE ENCODED TO INDICAT! TH! ERROR NUMBER. THUS
OR l w WOULD BE (EMT+l) IE 104001.
EVERY ERROR CORRESPONDS TO AN ITE~ IN THE ERROR
TABLE. THUS "ERROR 14 w WOULD CORRESPOND TO ITEM 14.
AS FAR AS POSSIBLE, THE ERPOR MESSAGES HAVE BEEN
KEPT SHORT, BUT CLARITY IS NOT SACRIFICED FOR
BREVITY. INSPITE OF THIS, IF THE USER rINDS A NEED,
HE CAN LOOK UP THE ENTIRE E~ROR MESSAGE IN THE ERROR
ITEMS TABLE rOUND IN THE BEGINNING or THE LISTINGS.
THUS FOR "ERROR 14", "ITEM 14" IN THE ITEM TABLE CAN
BE LOOKED UP.
WHEN THE ERROR INSTRUCTION
IS
EXECUTED 1 TRAP OCCURS TO THE ERROR HA LOCATED
AT tERROR WHICH PROCESSES THE ERROR CALL.
SEE SEC
12.3

11.0

ERROR INTERPRETATION
WHENEVE~
AN [RROR MESSAGE IS PRINTED OUT, ~LL
REGISTERS AND OTHER DATA PERTAINING TO THE ERROR ARE

SEQ 0011

ALSO GIVEN. R~OS, ~KE~ ••• RKBA INDICATE THE CONTENTS
or THE CORRESPONDING REGISTERS AT THe: TIME or ERROR.
EVERY ERROR MESSAGr. CONTAINS A PC.
THIS
PC
INDICATES THE POSITION IN PROGPAM WHERE THE ERROR
CALL IS LOCATEO.
THE ERROR MESSAGE, 8ECAUSE or
PRACTICAL
CONSIDERATIONS
IS
MADE
SHORT
AND
MEANINGFUL. THE USER IS AOVTO LOO~ UP THE PC
IN THE PROGRAM LISTING, WHERE HE WILL FINO MORE
INFORMATION ASOUT THE ERROR. IN MANY INSTANCES, A
SINGLE FAULT WILL GIVE RISE TO MOR! THAN ONE ERROR
REPORT.
A LITTLE
DELIBERATION
ANO
CARE'UL
EXAMINATION OF THE DATA GIVEN WILL BE CERTAINLY VERY
HELPFUL IN PINPOINTING
THE
FAULT.
A BRIEr
EXPLANATION or WHAT IS BEING CHECKED IN THE SUBTEST
IS GIVEN At THE BEGINNING OF EVERY SU8TEST. ALL THE
NUMBERS GIVEN WITH ERROR MESSAGES ARE IN OCTAL.
12.0

HANDLERS AND COMMON ROUTINES
THE COMMOSED ROUTINES USED IN THE
CALLED IN TWO WAYS.

12.1

PROG~AM

AS A SUBROUTINE THROUGH ·JSR· CALL

THROUGH A ·TRAp· HANDLER

ARE

TRAP HANDLER
MANY COMMONLY USED ROUTINES IN THE PROGRAM ARE
CALLED USING THE TRAP INSTRUCTION AND THE 'TRAp·
HANDLER, THE LOWE~ BYTE or THE TRAP INSTRUCTION IS
ENCODED DlrrERENTLY rOR DIFrERENCT ROUTINES. THE
TRAP. HANDLER IS LOCATED AT '.TRAp·, WHEN A CALL rOR
A ROUTINE IS EXECUTED, A TRAP OCCURS TO THE HANDLER
ARIP'. THE ·HANDLER PICKS UP THE LOWER BYTE or
tHE ·CALL INSTRUCTION" AND USES IT TO rORM THE
STARTING ADDRESS OF THE ROUTINE TO GO TO rOR
SERVICE.

12.2

seOPE HANDLER
THE '10T- TRAP IS USED BI THE ·SCOPE· STATEMENT.
WHEN ·SCOPE- IS E~ECUTED, AN lOT TRAP OCCURS TO
MEMORY LOCATION -'SCOPE'. THE SCOPE HANDLER STARTS
AT 'SCOPE.
DEPENDING ON THE SWITCH SETTINGS THE
HANDLER DECIDES TO LOOP ON TEXT, INHI!IT ITERATIONS
ETC, THERE ARE CERTAIN POINTERS AND FLAGS WHICH ARE
ADJUSTED. THUS, IT IS NOT ADVISABLE START THE
PROGRAM AT ANY GIVEN LOCATION SINCE THE VARIOUS
POINTERS AND FLAGS MAY NOT BE CORPECTLY ADJUSTED.

12.3

ERROR HANDLER
AN EMT TRAP INSTRUCTION IS USED BY THE E~ROR CALL.
THE LO~ER BYTE IS ENCODED TO GIVE DIFFEPENT ERROR
CALLS.
(EXt ERRO~ 1 ~ t0400U+1, ERROR 16
•
t04000+16). WHEN THE ERROR STATEMENT IS EXECUTED, A

SEQ 0012

T~AP OCCU~S
HANDLE~
IS

TO MEMORY LOCATION "E~ROR'. THE ERRO~
LOCATED AT '$£P~O~'. THE HANDLER FORKS
THE POINTER TO E~ROP TABLE, WHICH IS USED IF AN
ERROR MESSAGE IS TO BE TYPED OUEPENOING ON THE
SWITCH SfTTtNGS, A DECISION ABOUT HALTING ON ERRO~,
INHIBITING TYPEOUT, LOOPING ON ERROR ETC. IS MADE.
I' AN ERROR MESSAGE IS TO BE TYPED OUT AN EXIT IS
MADE TO THE ERROR MESSAGE TYPEOUT ROUTINE LOCATED AT
'.ERPTYP'.

12.4

CONTROL ~ESET ROUTINE
THE CALL FO~ THIS ROUTINE IS "CNT.RESET" AND IS AN
ENCODED 'TRAP- INSTRUCTION.
WHEN "CNT.RESET" IS
EXECUT!O THE CONTROL PESET ROUTIN! STARTING AT
"CN.RS!' IS ENTERED. A CONTROL PESET IS ISSUED
THE PPOGRAM WAITS TILL THE CONTPOL READY SETS, ON
WHICH THE ~OUTINE IS EXITED. IF CONTROL PEAOY DOES
NOT SET WITHIN A CEPTAIN TIME AN ERROR 18 RF.POPTED.
THE
PC
TYPED OUT IS THE LOCATIO~ wHERE THE
"CNT.RESET" CALL IS LOCATED. THE WAITING TIME IS
2.8 MS FOR 11/20 AND 560 US rOR 11/45 WITH BIPOLAR
MEMORY.

12.5

CONTROL READY ROUTINE
THIS ROUTINE IS CALLED 8Y "CNT.RDY" (AN ENCODED
-TRAP' INSTRUCTION) AND IS LOCATED AT "CN.RDY". THE
ROUTINE WAITS FOR THE CONTROL READY TO SET AND WHEN
IT DOES, EXITS IF CONTROL RIADY DO!S NOT SET
WITHIN A SPECIFIED TIME AN ERROR MESSAGE IS GIVEN
CNTRL POY DIDN'T BET
PC •. XXXXXX
RKCS .' YYYYYY
THE PC IS THE LOCATION AT WHICH THE ·eNT.RDY" CALL
IS LOCATED.
THE WAITING TIME II 949 MS FOR 11/20
AND 189 MS FOR 11/45 WITH BIPOLAR MEMORY.

12.6

DRIVE RESET ROUTINE
THE DRIVE • RESET ROUTINE II LOCATED AT "DRESET" AND
IS CALLED BY A "JSR". IT ISSUES A DRIVE RES!T AND
WAITS FOR THE RIWIS ROY TO SET, ON WHICH THE ROUTINE
IS EXITED.
THE WAITING TIME IS 4959 MS rOR 11/20
AND 991 MS FOR 11/45 WITH BIPOLAR MEMORY.

12.7

TIME DELAY ROUTINE
THIS ROUTINE PROVIDES A VARIABLE TIME DELAY.
THE
CALL IS DELAY ,N WHERE Nal TO 177777 (OCTAL) TIME
DELAY PROVIDED- 7.5 TIMES( X ) N MICRO SEes FOR
11/20, 1.5N US FOR 11/45 (N CONVERTED TO DECIMAL
BEFORE COMPUTING DELAY) IF THE USER WANTS TO CHANGE
THE DELAY AT ANY POINT IT CAN 8E DONE BY SIMPLY
~HANGING VARIABLE 'N'.

SEQ 001)

12.8

WAtT FOR

I~TERPUPT

ROUTINE

SEQ 0014

THIS ROUTI~E PROVIO~S ~ VA~lAPLE TIME LIMIT DURING
wHICH RKl1 INTERRUPT MAY OCCUR. THE IS
NAT.I~T
.N
Nal TO
1777777
(OCTAL)
WAITING TT~~.7.S Tl~€S( X ) N US FOR 11/20, 1.5~ us

FOR 11/45 UPON ENTERING THE ROUTINE CPU PRIORITY
DROPPED SO THAT RKII CAN INTERRUPT.
12.9

OTHER ROUTINES
THERE ARE OTHER COMMONty
BELOW •

USED

ROUTINES

LIlTED

• TYPE.
TYPE ROUTINE FOR TYPING OUT ASCII STRINGS.
LOCATED AT ".TYPE"
CALLED BY ·TYPE"
'TYPO~I
ROUTI~E

rOR TYPING OUT OCTAL NUMBERS.
LOCATED AT ".TYPOC·
CALtED BY "TYPOC"
'TYPOSI
ROUTINE FOR TYPING OUT DECIMAL NUMBERS.
LOCATED AT ".TYPOS"
CALLED BY "TYPOS·
.ROLIN.
ROUTINE FOR 'INPUTTING ASCII STRINGS FROM TTY.
LOCATED AT ".ROLIN"
CALLED BY "ROLIN"
.ERRTYP:
ROUTINE rOR TYPING OUT ERROR MESSAGES.
LOCATED AT .ERRTYP
CALLED BY "JSR .ERRTYP"
'PWRDNI
ROUTINE FOR HANDLING POWER FAILURE.
LOCATED AT ,PWRDN
CALLED WHEN THERE IS A POWER FAILURE.
SPWRUPI
ROUTINE rOR HANDLING POWER UP AFTER A POWER 'AIL.
LOCATESPWRUP
CALLED WHEN POWER RETURNS AFTER HAVING GONE DOWN.
13.0

UNEXPECTED TI~EOUTS AND RKII INTERRUPTS
WHEN AN UNEXPECTED TIMEOUT OCCURS, THE PC AT WHICH
OUT OCCUR£D IS TyPED OUT ANO THE PROGRAM HALTS.

TI~E

IF IT IS TNT.CT, IT CAN
CONTINUE.

RESTARTED

PRESSING

IF AN UNEXPECTED RK11 INTERPUPT OCCURS TH~ PPOGRAM
TYPES OUT THE PC AT WHICH THE INT~RRUPT CAME IN ANO
THEN HALTS. PRESSING CONTINUE WOULD RESTART TH~
PROGRA~
FROM BEGINING. Sw 9- LOOPING CAITY IS
PROVIDED AS A TROUBLE SHOOTING AID.
14.0

QUICK VERIPYING MODE
THE FIRST PASS or THE PROGRAM IS A QUICK VERIFYING
MODE.
ALL THE TFSTS ARE DONE ONLY ONCE, ON
SUBSEQUENT PASSES THE TESTS ARE ITERATED (NORMALLY
50 TIMES, 5 IN SO~E CASES). THUS THE FIRST PASS
TA~ES A S~ORTER TIME TO COMPLETE. WHEREAS SUBSEQUENT
PASSES T~KE MORE TIME.

SEQ 0015

MAINDEC-\1-0ZRKK-D
MACYll 27(1006) ~4-0CT-7& 16106
DZRKKD.Pll
22-SEP-76 08147
TASLE OF CONTENTS
23
48

15'1
\61
t69

179
312
965

1002
la07
1312
1388
1442
1490

1528
1549

1568
1666
1704
1729

1786
1850
\900
20\]

2121
2248

2344

2454
2616
27.2
2902
3035

3140
3262

3374
3454

3541
36)0
3743
1808
3920
3995
4078

4156
4222

4295
4376
4462
4515

4602
4671
47]8
4801
49rU
4963
4979

OPERATIONAL SWITCH SETTINGS
BASIC OEFtNITIONS
TRAP CATCHEP
STARTING ADDRESSCES)
ACTt1 HOOKS
CO~MON TAGS
ERROR POINTER TABLE
INITIALIZE THE CO~~ON TAGS
TYPE PROGRAM NAME
GET VALUE rOR SOFTWARE SWITCH REGISTER
Tl
CHEC~ THAT THE DRIVES THAT ARE NOT SPECIFIED ARE NOT rOUND TO BE PRESENT
T2
fINO OUT NEXT DRIVE TO 8E CHECKED
T3
CHEC~ THAT DRIVE IS SUPPLIED WITH POWER-DPL 8IT
T4
CHECK THAT 'DRIVE UNSAFE' IS CLEAR, 'HDEN' IS SET, 'WPS' IS CLEAR
TS
CHEC~ THAT 'DRIVE READY' IS SET IN RKDS
T6
CHECK THAT 'SOK, BIT CAN SET
T7
CHECK THAT 'SECTOR COUNTER' CAN COUNT FROM 0-13
T10
CHECK THAT SC~SA CAN BE GENERATED
Til
CHEC~ THAT 'R/w/S ROY' IS SET ~ 'StN' IS CLEAR
T12
CHECK 'DRIVE RESET'
Til
CHECK 'SEEK' TO CYLINDER 0
T14
CHECK R/w/S ROY IS CLEAR WHEN HEADS ARE IN MOTION
Tt5
CHECK 'WRITE' rORMAT FUNCTION·CYLINOER ~, SECTOR 0
T16
CHEC' 'READ FORMAT' rUNCTION-CYLINDER 0, SECTOR 0
T11
CHECK 'READ' fUNCTION·CYLINDER e,SECTOR 0
T20
CHECK 'WRITE rORMAT' ·CYLINDER 0, SECTOR 0-13
T21
CHEC~ 'READ rORMAT'·CYLINDER 0, SECTOR 3-13
T22
CHECK 'REAO',CYLINDER 0, SECTORS 0 TO 13
T21
CHECK 'WRITE rORMAT' or THE ~ISK
T24
CHECK 'READ FORMAT' FOR THE ENTIRE DISK
T25
CHECK 'READ' or THE ENTIRE DIS'
T26
CHICK 'SEEK' FUNCTION, WI!H DlrFERRENT VELOCITY MODES
T27
CHECK DRIVE RESET 'ROM LAST CYLINDER
T30
'WRITE' - 256 WORD BLOCK ON SECTOR 0, CYLINDER 0
T31
CH£C~ THAT WRITE WAS DONE CORRECTLY
T32
CHECK 'READ CHECK' FUNCTION - CY~INDER 0, SECTOR 0
Tl3
CHECK THE 'WRITE CHEC~' FUNCTION - ON CYLINDER a, SECTOR 0
T34
CHECK THAT IBA INHIBITS INCREMENTING or RK8A
T35
CHECK THAT R~11 INTERRUPTS WHEN IDE IS SET
T36
CHECK THAT WITH IDE SET RK11 INTERRUPTS AFTER INTIATION , COMPLETION or SEEK
T37
CHECK THAT WITH IDE SET R~11 INTERRUPTS WHEN R!AD IS DONE
T40
CHECK THAT RK11 INTERRUPTS AT BRS ONLY
T41
SIMULATE , CHECK 'OVR' ERROR
T42
SIMULATE , CHECK PGE ERROR
T43
SIMULATE , CHECK NXM ERROR
T44
SIMULATE , CHECK NXD ERROR
T45
SIMULATE , CHECK NXC ERROR
146
SIMULATE , CHECK NXS ERROR
T41
SIMULATE , CHECK WCE
T50
CHECK THAt SSE STOPS ALL CONTROL ACTION ON sorT ERROR
T51
CHECK THAT RK11 INTERRUPTS ON sorT ERROR WHEN SSE' IDE ARE SET
T52
CHECK THE MEX BITS IN RKCS
T53
TRANSFER F~OM DISK TO TTY
T54
CHECK THAT RKaA CAN COUNT CORRECTLY
T55
CHECK FOR R~-05r
T56
END OF PROGRAM

SEQ 001&

MAINOEC-I1-0ZRKK-O
MACY!t 27(1006) 04-0CT-76 16106
OZRKKO.Pll
22-SEP-76 09.47
TABLE OF CONTENTS
5003
5237
52A3
5289

5297
5)15
5337
5395

5US
5416

5449
5471
5495
5525
5552
559~

5619
5642
5684
57~9

5726
5770
S838
59",8
5956
6027
6~95

6173

6341
6364 .
6401
6Ue
6996

7009

TS7
CHECf(' HARDWARE POl.I·ING LOGIC
END or PASS ROUTINE
GT2RGI ROUTINE rop GETTING RKCS,RKER
GT3RG: ROUTINE fOR GETTING RKeS, PKEP, RKDS
GT4RG. ROUTINE rOR GETTING RKCS, PKER, RKDS, RKDA
TYERM: SPECIAL ERROR MESSAGE ROUTINE
80A0, 8DA41
BREAK OISK ADDRESS INTO SEC, SUR, CYt, DRIVE
SHFTRTI SHIFT RIGHT ROUTINE
CHKHEI CHECK FOR 'ERR'OR
CHKHE11 CHECK FOR 'ERR'OR
CHKOAI CHECK IF RKDA INCPEMENTED CORRECTLY
CHKWC: CHECf(' If RKWC OVERFLOwED
CHKER. CHECK PKER CONTENTS
TSTRWSI WAIT rOR R/W/S ~OY ROUTINE
DRESET: DRIVE RESET ROUTINE
TSTSIN: CHECK 'SIN' ROUTINE
DELAY: TIME DELAY ROUTINE
WAT.INTI
WAIT rOR INTERRUPT ROUTINE
CHKCRD~I
CHECK CONTROL READY
CON.RESETI
CONTROL REST ROUTINf
CNT.RDY'
WAIT FOR CONTROL READY ROUTINE
SCOPE HANOLER ROUTINE
ERROR HANDLER POUTINE
EPROR MESSAGE TYPEOUT ROUTINE
TYPE ROUTINE
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE
BINAFY TO OCTAL (ASCII) AND TYPE
TTY r~PUT PO~TINE
TRAP OECODER
TRAP TABLE
POWER DOWN AND UP ROUTINES
ERROR MESSAGES
ERROR DATA POINTERS
ERROR HEADERS

SEQ 0017

MUNOEC-U-D!RItK-D
MACYll 27(10"6)
DZIIKIW.Pl1
22-SEP-76 .,8847

"4-0CT-16

161"

PAGE 1

SEQ "018

I
2
]

4
5

6
7
8
9

• TITLE MUNDEC-l1-DZRKK-O
I.COPYPIGHT tC) 1974,1916
,.DIGI'UL EQUIPMENT CORP.
,."'AYNARD. IIASS. ""54

1"
11

I.PROGRAM BY JIM KAPADIA
I·
I .THIS PPOGR~14 WAS ASSEMBLEO USING THE. PDP-l1 MUNDEC SYSMAC
I.PACKAGE (MAINDEC-ll-DIQAC-C2'. SEPT 14, 1976.
I·
I"PRO(lItAII PEVISED BY TOM lAWYER, MARCH, 197&
,.PEnSED BY CHUCK HESS, aOGUST, 1976
.S9TTL OPFRATIONAL swnCH SETTINGS
I·
USE
SlllTCR
I·
HAuT ON ERROR
15
LOOP ON TEST
14
I·
INHI9IT ERPOP nPEOUTS
Il
I·
CYCLE ON ERROR TO PREVIOUS 'SCOPE' STATEMENT
12
I·
INHIBIT ITEfIlTlONS
11
I·
TEafING ON SIMULATOR
10
9
LOOP ON ERROR
LOOP ON TEST IN SItiR<7a 0>
8
6
DROP THE DRIVE IF MORE THAN 5 ERIIORS
I·

15
16

,9
2"
21

23
74

..... --- .............

25
26
21
28
,9

,.,.,.

11
)2
)l

35
16
)1
)e
)9

.................................................................

'041

:YOU ARe:

,ON GETTING AN ERROR REFER TO THE LISTINGS AT THE PC POINTED
,OUT TN THE EIIROR MESSAGE. ADJaCINT [RROR "rSSAGES IF FOLLOWED
,CAIIEFULLY COULD LEIIO TO AN EASY PINPOINTING or THE FAULT

TO READ THE DOCUMENT BEFORE USING THIS PPOGPIIM.

.......................•....•...................•................

to;
46

.59TTt.

47
411
49
o;t!

~f\VISe:D

"fIJI 1.0

'11

'52

1II\5IC DEFINITIONS

,-INITlAL ADDRESS OF THE STACK POINTER ••• U" ...
STACKa
It0'"
.EQUIV EMT,ERPOII
"BASIC DEFINITION or ERROR CALL
rOT. SCOPE
"BASIC DEFINITION or SCOPE CAuL
.EQUrV

0;)

55
5b

"""811
,".812

,.MISCELLANEOUS DEfINITIONS
It
"CODE FOR HORIZONTAL TAB
12
"CODE FOR LINE rEED

liT-

LF-

MAUOEC-I t-OZRKK-D
MACYII 27(10"6) 04-0CT-76 16106
DlIIKk".PI t
U-SEP-" flllil47
BAS!:: DEf"IIiITIONS
57
59
59

63
61
62
6)
61
65
66
"7
611
6'i
71iJ

7t
12
71
14
75
76

""0f1115
00020.
117776
171774

111712
177570
177570

Alt

AI
92

114

SEQ 0019

15
20"
177776
PS.PSIII

, 'CODE rOil CAIIRIAGE PETUIV.
"CODE FOR CARRIAGE IIETUAN-LINE rEEl)
I I PIlOCElSOR STATUS 110110

117774

"STACK I. lICIT REGIST~R
, , PROGRA" INTERRUPT PEQUEST RFGISTER
" HARDWUE SIiITCH REGISTER
, ,HARDWARE OIIPL" Y REGISTER

177772
17751.
117570

,.GENERAL PURPOSE REGlST!:R OEFIUTlONS
, ,GENERlL REG I STEil
tl
"GENERAL REGISTER
, ,GENF.RlL REGISTER
t2
l)
r ,GENERAL REGIST~R
, ,GENERAL REGIStER
U
"GENERAL REGISTER
ts
I ,GENERAL RECISTER
t6
"GENERaL REGISTER
t'
to
"STACK POIIITER
pc, , PROGRAM COUNTER
t?

110:0

'"'

"'0""'00
0"001IU
"'000"2
"000U
00""04
"00",",5
""8006
808"117
8.,88.6
080"87

RlR2"
Rl114liS116111.
SP_

'0"9'0
'00040
"'''010O
000140
00020'"
""024il

,.PRlOP [TY LEVe:L OEFINI'UONS
PII"'"PRIORITY LEvtL 0
PRI=
, ,PRIORITY LEYEL I
4"
PP2·
, t PRIORITY LEVEL 2
I"''''
, 4<1
PRJ.
, r PRIOJITY LEVEL 1
PR4=
, ,PRIORITY LEVEL 4
20"
PP5.
, ,PRIORITY LEVEL 5
24"
PP6=
I r PRIORITY LEVEL b
l"il
Pill:
, , PRIORITY LEVEL 7
]4"

77
78
19

CRCRLf:l
Psa
.F-Qun
STKL"'TPTRya
DSIilPa
00T5 P a

PAGE

""01~0

116

"0.H"

117

119
119
9e'

ql
92

q)
q4
9'5
~6

97
99
119

le,,909
8480""
"""0"
"llt0.0
"lt40""
''''200O
0""'0"
"It.. 00
1119112"0
"0"10"
~0"040

I""
'01

."•• 2.

hl4

"""""2
00""01

,,,2
I,,)

'05
1"6

IIJ7

hl9
109

1t0
111
112

""""'0
3"""'''4

,·"SWlTCH REGISTER" SWITCH DErINITIONS
SWIS.
1""'''''8
SWI4.
4""00
SWlh
2"000
Swl2:o
1"000
510111"
4~"'0
5111"".
2"0O
S1ll0911'1"'0
SilAS.
40"
S1I07_
2""
S"'I'Ib100
511105=
4il
Sw1ll4_
20
S1II03:o
10
SIIIi>l2:o

SW01.
Sill"",.
.EQUIV
.EQllIV
.EQUlV
.[QUIV
.EQUIV
.tQUTV
.EQUIV
.£QUTV

•,
2

S"09.5W9
S,,"A,SIII8
SW"',5117
Sill0b.5W6
S .. 00;,5W5
S:.I04.S1114
5WIH.SIII3
5101"2,5112

IIIUNOEC-Il-DZRU-O
IIIACYII 27(1816) e4-0CT-" IbiIU.
DZRKlfO.PII
22-StP-76 11147
BASIC DEFINITIONS
.EQUIV
• tQUIV

II)

114

115

PaGE)

SEQ •• 21

SIII01,SlIl
S1I00. SWill

,.DA'" BIT DE'UITIONS (lI'1'tl. TO BITU)

1'6
11'7
1.8

"II

I • .""
0""0e"
'21t.e.
B100"'"
B04e""
BIII2000
"011110"
000400
0"'0200
01""1100
B,""040
BB0020
"00010

I)'"

""1I~0'4

1110\l1lJ"2
"'60001

1t9

'20
121
122

12)

'24
125

12&

117
129

RITUBITUBITlh
BITU-

RITIIBITI0BIT0'-

9lT"ez
BIT0lBITI!J6a
BITIII'SBIT0 ...
BITrol3RIT.,2:1
lIlT01:1
BIT00:1
.[QUIV
.tQUIV
.EOUIV
.£QUIV
.EOUIV
.EQUIV
.EOUIV
.EQUIV
.[QUIV
.[OUIV

114
115

11&
117

118
1)9
140

.41
\42

1''''''11111
4.00"
2"0ee
t'''0''
401110
U011
10I1B
401t
21110
till"
411
20
UI
4
:II
I
IHT09,8U9

BtTIi!I8,BITII
BlTI'I7,BITl
BIN6.BIT6

BlT05,8lT'S
BlT04,BIU
I\lT01,81U
8IT02,BIT2
BITIlt,BtTl
IIlT00,BITB

14)

150
I'll
152
151
I'H

01110004
".,0010
000014
""111014
111111111014
""0a20
0011)924
"111111010
11)00034
01110060

1~5

0.0064

l'i&
1'i7
158
159
I!>"

000248

145
146
147

149
149

,.BASIC ·CPU· TRAP VECTOII ADDRESSES
"TIME OUT AND OTKER ERRORS
tRRVEC" 4
"RESERVED lND ILLEGAL INSTRUCTIONS
IIESVE:::- "'
T8ITVEC;14
BIT
"TRACE TRAP
TFlTVEC'- 14
BPTVEC'. 14
"BRElICPOINT TRAP (BPT)
"INPUT/OUTPUT TRAP (lOT) "SCOPE ••
IOTVE::" 20
P",PVE::::o 24
"POIIER rUL
"EMULATOR TRAP (£"'T) .-ERROR"
EMTVtC" 10
,,"TRAP· TRAP
TIIAPVFC-]4
TKVECa 60
, , TTY KeYBOARD VECTOR
TPVEC- 64
"TTY PRllltr.R VECT!lR
"PROCOR"M INTERRUPT REQUEST VECTOR
PIRQVEC-240
.SBTTL TRAP CUCHER

,,"T·

.-"

00"'000

'''1
162

1)001 '74

161
I"'.
"",eu.
110""00
160;
16'>
167
169

0111,,116

"&tne.

,,''''' .. 0

001l11J7

''''12616

,.I\I.L UNUSED LOCAUO"S FPOM 4 - 716 CONTUN A ".+2,HALT"
•• SEQUENCE TO CATCH ILLEGAL TRAPS AND UTEPRUPTS
,.LOCATION " CONTAINS III TO CUCH IMPflOPERLY LoaDED VECTORS
.a174
DISPREG • • WORD "
"SOFTIIAIIE DtlPLU PEGUTtR
SIIII('(;'
.WORD"
"SOFTWARE IIIITCK REGISTER
.581Tt STARTING AOI)AESS(t:a)
J"IP
.'SUIIT "JUMP TO SURnNG ADDIIESS or PROGRaM
.S8TTL ACTI' HOOKS

"AINOEC-11-0ZIlKK-O
"'ACYI1 27(1006)
04-0c:t-76
161116
OlP~.O.PII
22-5£P-76 08147
_CIII HOOIrS
169

11"
17'
172

17)

174

iii 00"411

170;
11&

IMIlI"52

171

""0204
0.,111046
020646
.00052
08"0'"
"IUl204

paGE.

...............................................................

:HOOK5 REQUIIiED ElY _CTll
UvPCa.
.-46
IrNOAD

,SUE pC
u1)ln LOC." TO ADDIIESS or .ENDAD IN .I£OP

.-~2

.~OIlO

1,2).e! LOC.52 TO ZERD

• aUVPC

I' RE.TORE PC

SEQ 0021

MACYII 27(1886) 84-0CT-'7& 16186
MUIIOEC-II-0IRKK-0
22-S£,P-76 "8147
COMMON TAGS
DIRKKO.Pl1
•• BTTL

1111
179
lBe
181
tA2

.-11"0

'''1100
1011"8
881u,e
""1 un
eeU8)

881184
•• 1186

Hill"
""1112
881114
8"1115
801116
""112"
801122
"81124
"1IJ1126
".111"
.011)2
"011H
""tl15
"81136
,,"114"
."1142
0'" 144
"".146
.01150
"01152
.O1154
"01155
1IJ01156
1IJ0t157
1IJ01160
""1162
IJfJl164
"" 166
"0117"
1t011?2

.CMTAGI
,PASSI
ITSTN"'I
IERrLGI
nCIITI
ILPADIU
.LPERR,
.ERTTLI
• ITE"9 I

.IIIORO
.8YTE
.9YTE
.tiORO
.ilORO
• WORD
.WORD
.9YTE
SERlIIUS .BYTE
'ERRPC: .1I0RO
SGOADRI .ilORO
IBOAORI .ilORO
.GDDAT, .wORO
'BDDAt: .WORO
• WORD
.IIORD
SAUTOBI .BYTE
GtNTAG: .9YT!
.110110
SWRI
.ilORD
OISPtoAYI • WORD
STKS:
111560
111562
.TKBI
STPSI
177564
UPB:
177566
nULLI
• BYTr.
'F"ILLS: .BYTE
IFILLCI .BYTE
STPFt.GI .RYT!
$R"GADI .IIORO

00"000
000
011t"
00'''0'
""'0""
0'''0''''
1'10""0O
"08
""1
81188"8
008000
00"~00

"0""""
"00008
"0008"
00'UJ1II0
099
11180
"00"1'1"
177570
177570
t 1756"
171562
177564
177566
000
""2
012

"""

0"000"

80""00
0000""
""1'1000
""""0111
".""'00

".1174 ".,,"""
2'll ""1176 ".0"00
224
225
276
221
218
229
H8
211
232
211

""1200
0"1202
OiH 2"4
"012"6
""121"
0"1212
"012U
001214

0""000
00"00P
""0"0O
"0"""0

"01216

"051115

.".,,""
071
"15
"""I" 2

851104

il5l1 11

""
"
"
,"
0

III

°
°0
~

iii

., ADDRESS OF SWITCH REGISTER
II ADDREIS or OISPtoAY REGISTER

"TTY KBD STATUS
, ,TTY KBD BurrER
J ,TTY PRINTER STUUS REG. ADDRESS
, ,TTY PRINT£R BurnR REG, ADDRESS
, ,CONTAINS NULto CHARACTER rOR FILLS
"CONTAINS' OF FILLER CHARACTERS REQUIRED
" INSERT rILL CHARS. AFTER A -LINE FEED,,"t'l:RMINAL AVAILABLE" rLAG (Blf<t1I7>aeaYEI)
, ,CONfAlNS THE' ADOR!SS FROM
, ,WNICH UREGIII) liAS OBTAINED
"CONTAINS (('R!GAO)+")
"CONTAINS CCSREGAOH2)
"CONTAINS «(SIIEGAD)+4)
"CONTAINS (( 8R£GAD)+6)
, ,CONTAINS ((.R£GAD1+10)
"CONTAINS (UREGADHI2)
"CONTAINS (UREGADHl4)
, ,COITAINS ((SREGAD)+t 1»
: ,CONTAINS «(fREGAD)+20)
"CONTAINS (( IPEGAD).22)
"MAX. NU'4BEII OF IT£RUIONS
: IESC"PE ON ERROR ADDRESS
J ,QUESTION MARK
,'CARRIAGE RETUPN
J,LINE nED

"
"

2
12

,REG01
.ilORD
IREGtI
.ilORO
IREG21
.IIORD
IREGll
."ORD
8REG41
.IIORD
8REG51
.WORD
IREG61
.IIORD
IREG11
• WORD
IREGte: .WORD
'REG! 11 • ilOilO
.TIMES, "
erSC"PEI"
,QUESI
.lSCII
.CRI.'1
.UCH
Uf'I
.ASCI!

,
""
""

MSGI I

<U><12>/ORIVE PRESHTI

°III
0

,,.................................................................
.ASCU

<15>
<12>

paGE 6
SEQ 0023

051505

041516

042516

MSC21

.EVF::N
.ASCIZ

<15><12>/NONEI

015
,,51"4"
IH21 11
"4252)

041412
054594
023516
0fl0124

052116
042040
920124

MSGH

.ASCll

<15><12>ICNT ROY DIDN'T SETI

O05015
0201"5

05111"4

051111

MSC41

.Ascn

<tS><12>/DRIVE I

O31300
0iH )03
90Ul"

IUS
942040

041'1412
051172

046114
123

MSG51

.ASCll

<tS><12>/aLL ORVSI

"01U5
001122

04.
0"6594

951104
"0'''12

"!!0117

145Gb I

.ASCll

1'/01224
1181232

217
238

0012]&
091244

02"105
"52116
0"12]6
"05015
""0

""1245
001252
"01260
"81266

24'>

0~1272

246
247
248
249

24)

"AUTOMATIC MODE INDICATOR
" INTERRUPT 1400E IIIDIC1<10R

0
DSWR
DOISP

1"5112"
0011

214
215
216

142

: ,START or COMMON TAGS
,:CORTAINS PASS COUNT
J :CONTAINS THE TEST NUMBER
J :CONTAIIIS ERROR rUG
J ,CONTaINS SUB TEST ITERAflON COUNT
, ,CONTaINS SCOPE LOOP ADDRESS
, ,CONTaINS SCOPE RETUIIN rOR ERRORS
J ,CONTUNS TOTAL ERROIIS DETECTED
, ,CONTAIRS ITEM CONTROL BYTE
J ,CONTUIS MAX. ERRORS PER TEST
"CONTAIIIS PC OF" LlST ERROR INSTRUCT ION
, ,CONTAINS AOORI!:SS or 'GOOD' DATA
J ,CONTAINS ADDRESS or 'BAD' DATA
"CONTUNS 'GOOD' DATA
, ,CONTUNS 'RAO" DAU
J ,RESEIIYEO--NOT TO BE USED

MAIHDEC-U-DZRItK-D
MACYU 27( 1".6) "4-0CT-76 16106
DZRKlCD.PII
22-S!P-76 "8141
COMMON TAGS

219
140
241

IEQ e'22

C0I4'4011 TAGS

J, •••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
,.THIS TA~LE CONTUNS VARIOUS COMMON STORAGE LOCATIONS
J .USED IN THE PROGRAM.

IU
184
195
1116
181
198
11'19
191'1
191
192
193
194
lea5
196
,q1
198
199
21'18
201
21'12
21U
204
205
236
2lt1
208
2,,9
210
211
212
21 J
21t
215
216
211
21'
119
2'le
221
222

PAGE

214

""'''

25~

251
252
251
254
255
256
2'57

I R!': 1 I R!GISTF.:RS
: IF rOR ANY REASON THE REGISTER ADDRESSES AilE DIFFERENT FROM THESE
I (GIVEN 8ELOll), THE CONTENTS or THE APPROPRIATE POINTERS SHOULD BE
''''OOrFtED so THn TH!!: CORRECT ADDRESS IS USED.

25~

2sCl
2603
261
252
26)
264
265
266
267
268
269
274
211
272
271
274
275
276

177
279
279
2U
2111
292
211)

2114
2t1'i
2116

297
2AB
2119

OROPO/<15><12>

.EVE'N

"0t126
041)]9
""I ))2
091)]4
001 HI>
091 )41'1
1'191342

117400
177402
177404
177496
17141"
171412
177416

RICOSI
RKERI
FlKCSI
IIKWC'
IIKBU
RKDA.
RII:OSI

.EVEN
171490
11741'12
171494
177406
177410
177412
171416

,,TAGS ANO GF.'IIERAL DATA AREA
I
"1'/1144
""1146
1"'" 3591
""tlSl

9"""08
0"80111"
0"""""
"01"""'''

SlMULI
YTITLEI 0
DRIVlDI
DRyao,,:

"0U5t

0000""

ORVPTRI

001)56
""1 )60
"01362
""131>4
0"13&10
"0131"

"I"""'
'!
"1l30""

TNDX11
0
INDX21
COU"T:
COIINTII
TIMlRI
EYLG11
9

"""'
'1'1'
",11""1""
"0"~"'1l

0401"'''''''

"""
"

IFLAG TO BE SET TO 1 IIHfoN ON SIMULATOII
,FLAG FOR PRINTING PROGRAM TITLE
,CONTAINS ADDRtSS OF r .. E DRIVE UNDER TEST
,CONTUNS THE NUMBER or DIlIVES CHECKED.
f IT IS INCREMENTED EACH TIME TilE TESTS rOR
,A DRIVE II COMPLETED.
,CONTAINS T.. E POINTER TO THE DIlIVE FLAG (DRIVU
,-DRIVE7) or THE DRIVE TO BE CHECKED NEXT.
,GEN£RAL INDEX FOR KI':EPING COUNT
, GENERAL INDU
, GENEII"!. COUNT IIEGISTER
,COUNT REGISTER USED rOil 'ORESET' SUBROUTINE
ITIMER REGISTEII
,SET, TO INDICATE • PARTICULaR
,I':RIIOR :ONO ITtClN

NA!NDEC-U-DZRU-D
"_Cl11 27(U.6) 04-0CT-76 16,1'
DZIU{II:D.PIl
22-SEP-76 1111147
COMMO" TACS
29"
291
292
29)
294
295
296
297
298
299

I".
),,'
ll'l2

••'11 ••

.""0'

""" 376

• 01800
814500
0.fl28e

SEEK".
SEEKII
SEEK21
RICPRI.

'0"
188 •
145 ••
2."

1101482

8"fIllfl

RKVECt

0e14114
801406

"""8"
".""".,

FFLAGI II
OOOEV", e

fflJl )72

"8U74

Jill)
)34

).5
1,,6
107
109
)09

II'U 410
e\!llH2

".".".
.0".IUI

PAGE

,UllO TO DETERMINE WHICH or RIt-IISr DRIVES aCTIVE
" IF EVEII DRIVE
,-I Ir ODD ORI'E
, " PROGRAM LOADED FROM RIt'S, CONuua
,ADDRESS or DRIY! IIIH RItDP PACI{
,COIfUIII TIE 'UIIU" or DRIVES PREIENT

DDPeH'
DRlval

SEQ 0.a4

0'
0'

CYLINDEII 2
,CONTUNS ADD.Rrss
CYLINDER 23
'CONTAINS ADOPESI
,eo,.uus ADDRESS or CYLIJIDER 112
,CO"TUNS THE cPU LEVEL U WHICH
'~KIl IIO,MALLY IllTERRUPTS. THIS 1I0RD
,SHOULD IE CHANGED IF RUt IS DESINGATEO
,A IR LIYEL OTHER THU 5. E.G. IF IT IS CHANGED
,TO 6, TMIa WORD SHOULD BE CRANGED TO n ••
,COITAlIIa THE 1t0RMAL VECTOR aDORESI TO WHICH
,RItH IITIRRUPTa. Ir ntIS IS "OT 80, CHUGE
,THIS WORD 'to COIITU" MODIFIED VECTOII ADDIIf;.S.

•

)10

111
H2

,THE fLAGS BELOW (BIT e) All! SET TO 1 TO 110IeATE THU A PARTICULAR DRIVE

r IS PRESENT AND IS tCJ 8E TEat". liT 12, Ir .IT, IIIDICATES THAT THE DRIVE
r liAS DROPPED a"tR MAXIMUM ALLOIlAILE 'VMIE" or EIIRORS OCCVItED ON tHAT

ltl
314
115

rDlIlVE (SW 6 SET).
OCCUR IN tHE HARDWIRE POLLIIG fEST (LASt)
,THEN ALL DRIVEl AilE DROPPED. BUt BIT 12 II NOt SET.

,Ir NOlI!: tHAM 5 ERIIO'"

116
117
liS
119

12"

n2
12)

114
125
J26

091414
"01416
0.,420
001422
001424
80t 426
8IiUU"
"01412

11110"""
l'''0000
1100"0"
1100000
".".0"0
1108"00
1'1"00811
,,~.IlJl"8

DRlY01.
DlilYt.
DRtv2.
DRIVlI
DRlY4.
DRnS.
DIIIV6.
DIIIV7.

8"1434
"1'11416
1'1111440

""0"0"
1'1 """9ij
8119''''''

n6F"Le. 0
PHfORV. 8
SIlYU. e

127
U9
1'19
H0

"
II

°"0
0
0

•

,rUG act· TO • OEI DRIYE • PRes't,.
,rOItDRIYI 1
,rOIt DillY! 2
,rOR DRIY! J
,rOR DalY! 4
,roa DinE 5
,rOil DalYE 6
,rOR DalYE 7

"AINDEC-1l-0lRKK-0
MACtII 27(1""1"
IH-OCT-76 16106 '_GE 8
[lZIlKKO.Ptl
22-SF"P-16 98 •• 7
[RIIOR POINTFII TAIII.E
• s,<rTt.

SIl:Q 11025

["1<011 POINUP TABLE

))2

:-rlll$ rULE CO"UI~'S THE IMFOIiMIITlON fOil UCH ERROR THAT CAN OCCUR.
"THE INfORMATION IS 08TaINED Sf USING THE !IIOEl[ .UMUR fOUND II
"LocnION IITEM8. tHIS NUM8ER INOICATES WHICH ITEM IN tHE flaL! IS PERTIN[NT.
,oNOTEU
If nre:M8 IS " THC ONLY P[RTIN!NT DATA IS <tERRPe).
:oNOTE2.
E'CH ITEM IN THE tAU! COt.lUlNS 6 POINTERS E~PtoUN!D AS rOLLOWSI

)))

).14
ll'5

))6
)11

,-,-

))9

IH
H)
H4
)4'5

A"1442

EM
OH
DT
0'

"POI"TS
"POINTS
"POINTS
, ,POINTS

TO
TO
to
TO

TNE ERROR "ESSAeE
tHE DAU HnDER
THI: DATA
TItE Dua 'OR"AT

SEPRT81

)46
147
)49
)49
)~0

J"II
152
)'5)

)'5"
1'55
)'16
)"17
J5~
)5~

)6"

)61
)62

16J
)64

)65
)66
)67
1MI
J69
17111
HI

Jl2
)7)

114
n5
176
111

)79
HId

UI
1112
)Q J

)R4
)P'5

]P6

: THE EFlROil ITEMS TISLE C:ONSIIITS or ALL THE POSSIBLe: ERROR MESSAGES

:usrll IN TillS PRoeRAIli. AN ERROR CUL IN THE PRoeRAM CORRESPONDS TO
: HiE: ITEM NIJIII8ER IN THE F.RROR TlBtoE. THUS "ERROR

I" IN THE
: PROGRAM COIlRESPONDS TO "ITEM
t" IN THE ERROR TABLE.
; 'EM . . . " IS THE POINTER TO 'HE UROI! MIESSACE IIHICH WILL BE TYPED
,flUT IN caSE THAT ERROR If ERE TO OCCUR. THUS rOR "ERROA .. THE ERROR
:liIf.SSlGE TYPE OUT WILL BE "TIME OUT 0" RUI REG'.
'O~""
IS THE POUTER TO THE HEADER BLOC!! IIHIC:H IIILL 8E TYPED OUt
: IMMEDIaTELY ArTER THE ERROR MESSIIGE.
, '0 U"" SERVES AS A POINTER TO TIfE ME!oIORY LOC:ATIONS IIHERE
:THE tNfOR"_TION RELEYANT to THE ERROR TYPE Dura (LIKE PC. CONTENTS
: or RKes ETC.' WILL 8! PICI{ED UP 'ROM.
,THE LAST 1I0W CONn INIlle 'e' SERVES AS " TERMIIATOR.
IEXAIoIPLEI
; Ir ON RUNNING THIS PROGRAM II 'fIMEDUT IIERE TO OCCUR 01 ADDRESSING RKDS
: (17 74011), BECAUSE or SOME ,aULt, THE rOLOWIIC TYPEOUT 1I0ULD
,OCCUII ON THE TtLETY".

TIME OUT ON RKll REG
PC
IIEe
......
1774011
:"10rF THAT . . . . . . WOULD lU; THE ACTUAL PC: If HERE "ERROR

I" IS LOCAnD.

THE FRIIOR HIINDLER II LOcutD AT 'URROR". THE ERROR CALL lIS _N "EM'"
INSTIIUC:TION WItH ItS LOIfER BYTE ENCODED TO PROVIDE INDEXING TO THE
ITEMS IN THF EIIROR UBLE.
THUS "ERROR
'"
IS 1"4"fl1
"ERIIOII
10)" IS U4lZ6
ETC.

II.CHI 27Ci806) 8"-OC"-76 16&0& PlGE
MAUOEC-II-oZAU-o
ERPOA POINTER TABLE
22-SEP-76 08:47
DIIIUo.PII
rITEI'II

181

)88
]119
)90
J91
J92
lU
)94
195
196
J97

)'Ia

1~9

4110
41U
402
401
404

US
406
48'7

111442
'IUH4
.11446
.01451

1'25]80
0]2225
931641
8e •• 011

011452
031454
00,456
001460

1'27151
0]2.11
1']1661

412
413
414

415
416
U7
4ta
419
423
421
122

£1412

OH44
OT20
101

,,11170
DHI4

OT26

00~0011

,ITEM

Hili
HI
4)2
Hl
H4
415
416
4)1
4111
419

44"

HI
442

RiCER

,AEGI

RltOS
.AEGI

IIICDl
tREGJ

O01462
11111464
001466
.31478

E'I16

025125
0]1745
GU16]0
1'0111000

'CNTAL ROY DIDN·! SEt ON RElD/Fn FROII DISP: AODRESS
RKNC
AltER
,pC
RKCS
,AEGa
tREGt
,UARP:: IREG.

"
0""
oT2

• RItOA "ROIIC ArTlR SSE
RECVO
EXPC1
,PC
IAEGI
.. tRRPC 'REG0

0
:lTtl'll

""1t72
00111474
001476
"0158"

025154
0)2111
011622
,,0""""

101582
P"150"
"01506
""nI0

025]66
0)2053
8)1660
IJ0"0A0

EIII21
OH14
OTI
8
rITEI'II

EM3"
OH1.
DT26
rITEM

00"512
001514
"01516
1'101520

020;376
IU205)
,,316&0
31'000"

,AltOS ERROR
RIO'
'ItAAPC UEGfJ

••c

5
I ·OP1o° lIT SIt, CHECI DAIVE POIIEA
AKtR
RltOS
ItXC'
'PC
IREG2
tREGt

, nRAPC IRI.

421

424
425
426
427
428
4,9

,"5tH" IS SET
,pC
AKCS
, SEAAPC IREG8

:tTtr.l

4"a

409
4'0
411

SEll •• 26

IMU
OH3.
DT26

I "OIlU· lIT SET, CHtCK DIIIVE
IlKEA
RltDS
RKCS
,PC
IIIEGI
UEG2
JlERRPC' 'REGe

INJ2

,ORr85" BIT NOT SET
,PC
RKOS
,.EARPC IREG"

•
,ITEII

001522
081524
0111526
901530

025406
el211 t
"1t622
""'000"

ONU
DTI
lITEM

9il1512
8"IS)4
1'1015)6
""154'"

"Ul
E,..n
OMU
OT20

1'125421
,,32225
"1l648
0001'108

, "DRY· 1I0! lET
,PC
IIKCS
UERAPC 'REG"

illER
eRECI

RlD.
IREG:Z

RKOA
'AEGl

MACYll 27(1"06) 1OI4-0CT-76 1611'6 PaGE l '
MAINOtC-I 1 -OZRKI<-n
ERROR POYltTER TAALE
2)-SF.:p-76 89141
DZRI(I(O.Pll
IlTFM

441

444
445
446

447
448
449
450
4'51
452
4'53
454
455
t56
457
458
459
46O
461
462
461
464
465
166
467

169
469
47"
4'11
472
411

414
475
476

177
418
479
480
4Al
192

4114
495
4116
48'7
488

419
490
491
492
493
494
495
496
4'11
499

01'1542
""1544
1'1"1'>4&
001550

[1414

(l25H7
032111
0)1 &'22

DH14

IlTI

"""0O'

""1692
"0t604
1101606
e0161"

025605
IIUln
031630

EM36
OM)6
OT2
,ITEM

025551
031745
0316J0
1100000

, 'arc COUNTII' DID,oT COUNT TO "
SEC-CIITR
fPC
It tllRPC I REG"

1125521
1'112141
1'131b)0
,,"'00"0

001572
I"'U574
0015'76
"'01b1'l9

12
£1435
OM)5
OTI

1'125466
1'132t27
0)lb22
0,,"'.!l00
rlTEM

"01562
001S64
"'01566
"'tl570

,'SOIC· DID NO! SET
,PC
AICDS
,IERRPC IREGI

i'I

fITEI!
001'552
"'0150;4
00t!)'>6
1'11011560

SEQ 0"27

EM37
DM4
OT2
0
,ITEI4

.,
, ITEM

025645
,,)2111
031622
00000"

"01622
001624
001626
01'11610

825JU
031745
,HUl.
''''I'I391l1

IM1612
001614
1I'01U6
001640

1'25702
032046
"31654

£"443
OH21
Of71

1J1l0~"'''

EMU
DIi14
OTI
0

, £RROR-oR/III8 ROY' SHOULD 8E SET
AKOS
,SERRPC IAEG8

,pc

11
EI413
DH4
DU
0

f ITEM

,DIDII·T GIf sc-sa FOR THIS seCTOR
,PC
SECTOR RKOS
eAEGl
f URAPC UEG"

0"1612
PII1614
901616
0"162"

,ITE'"

,'UCTOR COUNTER' INCREMENTED IIROlla
,PC
ElretD RECYD
IIIE<:1
,IEARPC IlliG.

15
FM40
OH40
012

".,"' ' ' '"

,'SEC COUNtR' DID.oT nCREMENT
PASNt-COun
NIT-COUn
IPC
IIIEGI
nEAltPC IAI08

,AKBl ERROR
,PC
EXPCT
,URIIPe SAEGIJ

RECVD
IREGl

20
: IJltEXPECTEO RII11 INTERRUPT
rpc
r8ERRPC

MACYll 21(1.e6) .4-0CT-16 16.86 PAGE 11
MUIDEC-Il-DIRKK-D
22-8EP-7. 111.47
ERROR POI"tER TABLE
DIIUCkD. P 11
499
58.
581
5.2
sel
584
585
586
587
se.
5.9
518
511
512
5tJ
514
515
5t6
517
518
519
528
521
5?2
521
524
525
526
527
528
529
5}A
5Jt
S12
5Jl
514
'i)5
5)6
5)7
5)8
5}9

IlTEIt
•• 16n
"81644
•• 1646
18165.

8257)4
.12225

,)1648

,ITEM
ee16S2
881654
.81656
1I1H668

.2681e-

....II.

')164'

"0UU
.016.,4
1101676
"017"0

"26i14
"1l745
8)16)8
8811.e0

001112
1101714
1101716
111"1219

1926205
1132225
031640
000000

5 ••
541
S42
543
S44
545
546
547

001122
lI11t724
1101726
0111730

026268
011145
831638
.88.8A

001H2

82U8S

Iii,. 714

BUUl

111117]6
011114"

0)1668
I"'J'000

,'RIWIS ROY' DID NOT CLEAR
AItEA
RIDS
IPC
IIKCS
I URAPC IAEG.,
'REG2
'REGI

26
EM51
DR . .
DT21t

•

, 'R/II/S ROY' DID." SEt AFTEA .IEK OR DRIYE RElET
AICf:A
RKDS
RItDA
,PC
RKCI
IIIEG3
,.ERAPC IRE08
IIIEG2
IAEGI

27
EMU
DR4
DT2
0

, IT!It

,RItCS CHANGED AFTER rUNCTION Wu 0011
REC\fD
,PC
EXPC!
IRFoGI
,IEARPC IIIEG.

25
EMS0
DR3 •
DT26
0

,ITEM

5t8
549
'i5"
551
5S2
'553
554

•

,ITEM

'RKER 8 IT, ON SEEIt OR DRIVE AESE!
RItDS
RitER
RKCS
,PC
IREG2
IREGI
,IERRPC IREGI

:24
EIt"
DR4
OT2

I ITEM
026156
83205)
IHU60
8800011

23
E""46
OM)0
OT26
0

,ITEM

"IJl702
•,," 7114
001786
081710

,'EAR' OR 'RE' SET ON SEEK OR DRIVE AEeI!
RltDA
RKER
RltDS
RKCS
,PC
IREG2
IAEGI
,lEAIIPe IREGe
'"EG)

lit

• ITEM
826156
'U2en
811668
.'''00'

, 'CNTIIL ROY' DID"'! SET ArTER SEEk OR DlllYE RIIET
RKDI
RICDS
IIKER
AKCS
,PC
IREG].
IREG2
IREGI
,URRPC IAEGe

22
FIlII.5
OM"
DT28

.U22S

801662
8111664
•• 1666
081678

'1
F.ltU
DNU
DT211
0

......

'RKDII CHaNGED AnER .I:I:K
EXPCTD REGVO
rPC
,IERRPC IAEat
IAEGI

10
E"I53
OM3'
OT26
0

, 'CIITRL ROY· DID.'! CUIR AI GO If AI lET
,PC
RItER
RID.
RKC'
,.ERRPC IAEGfl
IREG2
IRECI

M_CYlI 27 (1086) 14-0CT-76 16111. PAG!
""II.lNOEC-II-0ZAH-0
ERROR POlitTE!! TABLE
21-S!P-76 lIil.47
OZAKKO.PII
555
556
'i'l7
5"18
5"19
'if,lII
'561
562
'5~J
5~4

,ITEM
82b351!1

EM54

1101144

032272

DR54

01111746

n1672
(111,.,.11110

01'54

,ITEM
1101752

026442

E~55

111111754

P)2272

01154

'571 '

11111756

(11)\672

01'54

572
573

1101761!1

110 iii 80.

•

0111762
0ltt 764

1:126521
1'1)24111

EN56
DH56

"017611

lUI Ii 72

D'I'S4

0"'117'"

81l0"80

""117:1

021.>560
0ll"7)
1U1622
"""1'11'1'"

574
575
'516
577
'579
'579
58"

lITE""

~II)

584

1I1EM

"CURt. ROY' 0%011',. .ET 011 DOING "UTt/'M! SnRTI~C
, rAOM COaK-ADRIS>
RKER
IPC
Rilca
RKDS
RItDA
,DR"
crr. cD'It·ADRI:'~
.UR
SECTR
,UARPC .RIGe
U!G!
IAICI
UEO)
,.AEG. UIOI
IREGI
IRIO.

, OM!' OR "ERR' O' WRUE" .. T STAATUG rAOM
I CDSK-AORES~
RitER
RKCS
AID.
rPC
RItDA
,DRft
Cl'L <DIK-ADR!I>
SUR
S!CfA
,UARPC .AIGfJ
IAtG)
IREOI
IAEGI2
.RIG6
"AU. IRIGI
IREG"

SAl

582

SEO 0829

565
'561>
567
568
569

IlIllU2

001150

110 1.28

IIIKDA INCRIMEnED NAONG 011 IIIIITE OR IIAITE rORMAT
IPC
CIL
EXPCTI
DRY'
SUA
IECTR
SUR
,AECYDI DAVI
CIL
SECT ..
IIIEG.
'URRPC
'AEGI
.AElla
IAEG3
nEGI
tREG7
UREG. ,REG5

58~

586
597
'i98
5,,9
59a
591

S'U
59)
594
5'15
H6
597
598
'599

60'"
6111
6192

"al714
""1776
1102"19"

"02"192
0821lA4
11821906
1'112"18

6118

609
6U

026611;
.U7U
1316)"

1It21c122
002024
1102"'2&
"070H'

1126712

311

E""111

DIf]8
DT26
0
• ITEM

1'11\745
IBI6)11
Ailll""'0"

, Al!.8A INCREMENTED NAONG 014 WAITE OR WRITE rORMAT
,PC
RECVO
EXPCT
IREGI
,URAPC 'R!G0

0
,ITE"I

026655
IIIJ 21'1 51
IIIJl661
"0"'"'

35
[1461
DM4

"'8"""

812012
002(114
. . 2816
190""'2111

I RKWC OlDN'I OVERFLOW 011 WAlfE OR IIRI1'I 'ORMU
I Pc:
IIECVD
,IERRPC IAEG8

0
,ITEM

6194
605
6116

617

EN57
DRS
Drt

,RKER ItT, ON WRITE/READ/rOAMAT
,Pc
RKCS
RKER
RKDS'
I IEARPC CREGe
tREOI
.REr.2

["'62
DH4
OT2
1'1

'"KDB EAIIOII
I PC
EXPCT
,UIIRPC • REG'"

IIECVD
'IIEGI

MAINI)~C-tl-OZRXJ{-D
DZM~I(D.'II
22-SI!!P-16

611
612
611
614
615
616
617
619
619

IIIACYII 21 Cl096) 04-0CT·16 16 r 86 PlGE
89141
EAROR ."UIITU TABU

e~2334

OH56

802016

1931672

OT54

£lIIft)

&41

644
64'i
646
641

,ITEM
0"2042
002044
002046
011'2"'50

•

""00811

,ItEIi
0.n052

002054
002056
1102060

1J27ftUJ
"31145
UI6).

,RKlfC DID lOT OYERnOIf ON AnD OR lElD rORMAT
r PC
RKlfl:
RKDA
• IERRPC IRIP
IIIEGI

42
EM65
OM4
OT2

I AKBl INCREME..,EO WRONG 011 READ OR READ FORlln
IPC
upe'1'
RECYD
UI!!RRPC .REG8
IREGt

0000""

u
002062
1102364
002066
0212070

1927.,'71

EII66
OM66
oT2b

032532

031669
.tTE"

002072
002074
002ot76
002100

027136
012570
031668
00"'1'1"0

002102

0271 ~ I

002104

1'132212

002106

03t672

• INCORAEC'1' HElDER FROM 'SECTOR'
r PC
SI!!CTR
EXPC'I'
FlECYD
,.ERRPC .REGS
UEGI
$AEG2.

0001!J"0

44
EII67
OH61
oT26

rDlTl ERROR
,PC
EXPCT
r URAPC· 'REG"

AlCVI)
IREGt

[lSK-ADRES
.REG2

oT54

656

&51

,RKDl IIiCRININ'rID WROIG 011 READ OR RElD rORMAt
fPC
EIPCI' DR"
CYL
IUR
SECIIt
CIL
IUR
IECTR
,AECYOr OItY,
IAIG2
IRIGl
, UARPC
IREGe
IREGI
UREG4 ,REGIS
IREC6
.REG?

u
EM64
DH64
OT2

02617"
032506
tnlUe

&49
&49

&50
1>51
652
&'53
654
655

, 'CNTRL ROY' OIOI'T SET ON DOING READIFMT STARnNG
• FRON COIK-ADREI>
RKe'
AltER
RKOI
RKDA
• PC
,DRV,
CIL
CDIK-AO'EI>
SUIl
SECIA
, .ERRPC .IlIGI
IREGt
.REGZ
'RtGl
• ,AEG4 .REGS
'RtG6
.REG?

0<12110

658
6511
66it

.ITE"

661
662

092112

663

002114

012272

DH5.

664
665
666

002116

IUI672

DT54

E"'ll

, 'HE' OR 'EAA' I n StT 0" READ"MT STUTIIG
, rAOM COSlt-ADRES>
,PC
RKCI
AKER
AICOS
RlCoA
, DRY'
CYL
COSK-lDRES>
SUR
IIeTA
,.ERRPe .REG.
.REGI
IREG!
,REG)
URIG4 SREGS
'REG6
,REGl

MlCYll 21 (1306) 04-0CI-16 16."6 PAGE 14
MAl "IoEC-ll-DZAKK-D
UIIOR POINnA TAB!.I
22-SEP-76 88.47
oIFiKIID.P11
667
668
669
670
611
612
671
674
675
6'76
671
678
679
6911
681
692
68)
694
695
696
687
688
689
6911
691

692
693

694
695
696
691
698
699
780
101
132
703
7"4

185

106
797
10a
709
710
111
112
70
714
715
716
117

002120

"0"""8

01'12122
1il1t2124
I'I"2t26
eUU8

02H2"
1il31145
"HU0
""e"s"

002112
002134
0e214e

027)62
"nUl
0Hue
00"""

002142
""2144
002146
0"2150

027414
,,32ue
031622
"0e0s8

JlTEM

0275"4
"32U'
,,)1622
",,,es0

0"2162
0"2164
0"2166
002170

1/121554
0ll"34
011622
""'0"

•

1'102112
""2J74
""2176
002100

.27611
031745
,,]1630
""0000

1'102202

1'10221~

027654
An651
031660
11101J01U

0"2212
110:1214
0a2216

"27617
11Jl222'5
0316411

0"22114
0022116

118

.SCP DID lOT sn u n , WAI DONE
JPC
RKCI
• SEARPC IIIEG'

r RKoA CHANGED A''fER 'ORIVt: RESET·
npCT
rPc
RECVo
,SERRPC 'FiEGIl
UEGI

55
[ 01 100

DHU"
oT26
til

: ITEM

•

54
E"'77
OH4
OT2

.I'1'£M

, 'oRIVE t" DID NOT INTERRUPT DURING HARDWARI POLL
,PC
DRIVE
•• IRRPC IIIEGe

EII16
OM117
DTI
8
r ITE"4

, HAROIfARE POLL, I"'1'IARUptINGI DRIVE • NOT PRE.EN'!'
,pc
DRIVE'
,UARPC IREGe

52
E"715
DM74
OTt
8

rIU"

, HARDWARE POLL, DRlVE 10 IITICU-15) SHOULD BE CLEAR
RKDS
,.ERRte· IIIEGe

,pc

51
[M14
DH14
DTI

'l'l'IM

,iIIROIG DRIVE 10 IN RKDS AF!EII S EEJ:
fPC
EXPCT
RECVD
IIItGI
,IERIIPC IAtG"

58
tMU
DHU
OT2

, lUll

002152
e02154
0A2156
082160

n
EM12
ON4
DT2
3

,tTEM

0~2t]6

SEQ 1031

lOATA ERROR AT WORD'
rPC
EXPCT
WORD'
tREGI
,RF:GIJ

• $ ERRPC

RECVD
.REG2

119
720

111
722

1.1.

0.n0.0

6)4

6)5
616
637
()18
6J9
6i0
611
642

IIQ

,ITEIII
826724
"32401

00:Z012

()211

621
622
623
6"
615
626
621
628
()29
630
6Jl
6Jl
611

£"'1'"

n~4'

o f2"

I eNTRL ROY 011' NOT SET _HEP RElD CHECK

FiKes
'SF-RAPC SREG0

IP:

~KEII

SREGI

RK08
SREG2

RKDA
IREGl

MACYll 27( lIiI'6) 84-0CT-76 16 •• 6 PAGE 15
MAJIIDEC-l1-0ZRII-0
ERROR POIlTEIl TABLE
:Z2-5,;P-76 BI.47
OIRJ[KO.Pll
12)
124
725
726
121
728
729

13'

1)1
732
131
734
135
7J6
117
738
7)9

.,."

141
142
741
144
745
146
·141
148
149
150
751
H2
75]
154
155
156
757
1'58

.B222'

rITE'"
082222
1"'2224
.12226
•• 2U"

.,,741
1112.5)
.31661/1

161
164
765
766
761
1611
169

...".

•

rUEH

,'EIIII' OF 'HE' SET 011 READ CIIECI
R![ER
RICOS
RXCS
IIIEG2
8REGl
,IEIIAPC ,AEGe

,pc

i,iJ
<!

.822)2
e12234
0e2216
"224"

E"','3
OIel",3

.27765
e12106
eU622
e".ee.

OTI

'B2242
•• 2244
'02246
11022511

'''''3
e32722
U1U"
e.'•• 8

'02252
002254
B02256
110226"

8l.8U
.U741S
03163.

011184

OT2
0

,.""""

0"2362

•
,ITEM

'''2212
'''2214
002216
'''2100

")UU

802302

HTEII!

770

802)04

111
772
17)

.02106
'0311"

0"2312
"02314
,.,1l6

8].241
012"5)
1U166111

, rUM

,HEMORY WORD CHANGED ArtER READ CHECK
RECVO
,PC
LOC
ElPCT
IREG2
.RlGl
.. ERIIPC tREG'

6!1
EMIli
OH44
OT2.
8

714
715

,RK81 CHANGED AtTER REaD CHECK
RECYD
EXPCT
,IERRPC IREGe
IREct

,PC

EM181
0111'"
OyU
8

')2746
031668
000'''0

,IIKDA tllCREHENTEO WRONG 0" IIEAD CHICK
RECVD
EXPCT
IPC
IIERRPC tREC8
IREGI

"61
EIIUU,
DR4
OT2

IfllUt2
011745
.1163.
0000"8

'RKIIC DID NOT O'£RFLOII ON RtAD CHICK 011 IfIlIfE CHECK
RKCS
IPC
HC'D
IIIEGI
,UPRPC IIiEGe

62
E"'1'5
DR4
OT2

,ITEII

"o2264

{, ~,

E"'tli!~

,ITEM

O12266
0.221.

'"CS,' ON IIEAD CHECK
,PC
RKP
IIERR.C IR£Ge

,ITEII'

0lfIJ2"4
832225
IUI64fIJ
. .80fIJl

111)
711
17e

57
EH1.2
OK)'
OT26

7~9

760
161
162

SIO •• 12

•

•• e0••

'CURL ROY DID .OT . n ArtER WRUE CHECK
RKDA
RKDS
,PC
RKC.
RKER
illIG]
IREGt
IREG2
•• EPRP&: IREG'

66
t .. lll
DM3.
Of26

'HE OR tRR BIT .ET AnER DOING WRITE CHICK
,PC
RUR
RKCS
RKO.
tREGI
'REG2
'''RRPe .RIGf

MAINOEC-Il-D!RKK-O
MACYII 27(10'6) 84-oCT-16 1611116 PAGE t6
ERROR POINTEI' TABLE
DlIIKKO.PIl
22-SEP-16

"'I'"

179

002320

7QtI

lITE!'

1@!

1112
7U
,,,4
785
186
781
711"

802322
002324
.02)26
102U0

U0214
01205]
01166.

8023)2
"02334
"32336
002340

IIHI1U

SEQ 0833

•

0"10ee

EM1I2
011)8
0126

....

,IT!:'"

, WRITE CHECK ERROR
,PC
IIKER
RKCS
,IEIIR,C IRECI
IREGl

lIoa
IREG2

111

799

79O
7'11
H2

79]

E"'lll
0114

0.H145
1I11611'1
'H18000

on
8

'RKDA I'CREMENTIO WRONG 0" WRITE CHECK
REcro
EXPCI
JPC
IREGI
, 'IEI'RPC "'lee

794

795
7'16
797
79Q
7'19

A1110

,ITEM
002142
802344
882146
802158

O]03'54
031145
0ll6)1
"11'000

Ill"

,RKBA INCREMENTED NRONG ON WRlTE CHECK
EXpe!
RECVO
'PC
IREGt
,IERRPC IRIG'

III

, ITEM

8,,2

71
ENIl4
DM4
1lT2
12

QII)
Q~4

QR'5
81116
807
88e
889
8111
At I

812
811
814
915

"02)52
002154
802156
002360

0)941]
")1145
8316)"
008000
J ITE"

882362
882164
'1'12366
002310

810441
1'1)2651
031668

921
822
82]
U4
82'5
1126

827
A28
8]9
810
8)1
812
8ll
8)4

lITE"
O02312
"'1112314

"'nul)

"8240£1

1'1)3522
03]1'04
011622
808000

002482
"'824W4
0"24"6

0)A567
0H084
0lt622
"00"'00

1192'12
0a2414

01"'642
0))8il4
"31622

""2410

'IIROIIG Mr.l40RY LOCATION CHANGED IiIlTH 18A sn
Exper
,PC
RECVO
IIORD'
.REGI
,nRIIPC IREGt
IREG2

IRKll DID NOT INT!IIIWPT WHEN lot liAS SET
RKCS
IPC
, IERRP!: .REGfI

15
[111120
OMlll
OTI
0

: Tn ..

1'102416

['1117
011111
DTI
, JTEM

'RK8A I'CR£MtNTED II!TII lea SET
RECVO
EXPCT
IREGt
J SERRPC IIIle.

,pc

E"'116
014108
OT26

'0~008

816
817

818
819
820

EIi4115
OM4
012

'RKll 010 NOT IlirERllUPT AnER' SEEK liAS IIIITIATED
,PC
RKca
'tEAIIP!: III!Ge

76
EII121

DHI17
OTI

, SCP SET BErORE n£K COMPLETED
PJl:CS
JPt=
rtF-IfPPC: .RJI;G0

MACYlI 27( t ••I) '4-01:'1'-76 161'6 PAGE 17
MlINOEI:-II-O!RII-D
EIIROR POINTER TABLE
22-SEP-76 81147
DIIIKID.PII
8]5
116
8:17
8]1
8]9
84'
841
1142
841
844
845
846
841
848
849

"n42"

.,,""'"
,ITEM

"82422
"n424
"82426
ilIiI2ue

'32853
'3166/11
6e",,""

~62

963
864
965
866
861
B6A
B6'
871d
871
872
873
1J74
815
976
977
918

n'747
"U""4
831622
e",."".

"82442
"'2444
002446
"1I245e

e]1006
'U"04
031622

rIT!M
002452
082454
002456
00246111

03105.,
031716
031610
110IUI0"

002462
1'102464
"02466
002470

1'1111'"
I'IH020
011610
0009"0

01'12472
.,02474
002476
002509

011150
0H.,20
0HU0
01'109'"

892
991
8R4
8B5
986
887
889
889
B9t1i

002502
892584
802506
002510

831212
1'1)]946
8]1668
"90000

01'12512
8112514

831247
0))105

, RKII DID NOT UUIIROP' AT I:PU LEVEL
,PI:
LEVEL
llCS
IREGS
, URRPC' .REGe

194

IM127
OH126
DT2

'RU I IN'l'ERRUPfEO AT WROIG CPU LEVEL
,PC
RICCI
LE'EL
IREGI
,URAPC .RIOI

185

EMil'
DHU0
0126

rITEH

,CNTRL REsn DID NOT CLEAR REGISTER
,PI:
REGAOO RICVD
'REGI
'URR'I: "'EG"

101

0T2

, ITEM

'RKlI DID NO! II'IRIIO" AfTER RIAD WAS DONE
,PC
RICC.
, URR'I: "'EGe

EM126
OM126

lITEM

-se'- IU

102
EMI25
DM2
DT2

,n!'"

'I:ft'fRL RI'E! DID 10! CLllIl
,PC
RKI:'
,URRPC' .RI.

181
EMU4
01(111
DTI
e

,"Je'8'

.RKlI DID NO! InIRAO" ArTIII lEEK 1:0MPLErlD
IUCDI
,pc
RKER
RICI
IREG2
IREGI
• "RRPC' 111101

I'"

1"123
OH117
DTI
0
,ITU

87'

990
891

•
, ItEM

".2412
'II2U4
"82436
88244"

77
IM122
OH3'
OT26

In'7'"

85'

851
852
853
854
855
856
857
858
8'59
9611
B61

. n '.34

, "ERR BIT- DID lOT SEf IN RKER
,pc:
RKER
ERR lilT
RKCI
, URRPC UEG.
,REGI
.REG2

186
EllUl
OH!]1

,HE OR ERR DID 10! SEf
,PC
RICER
IIICCS

MACY11 27( 10116) 04-0CT-76 H,lt6 PAGE 18
HA tHOr-C-l 1 -DZRKK-D
ERROR POINTER TAIILE
2l-SEP-76 09141
OZRK'O.Pll
891
892

002516
002520

"31618
"00000

002522

031274
011745
031639
01'1""""

DTZ
0

SEQ eelS

I.ERRPC: 'REG"

SREGI

'RKE. ERROR
IPC
EIPCT
"tRRPe UEG0

RECVD
.REGI

891

894
995
896
897
898

99'
901'1
'"1
992
9113
904
9~5

9,,6

lITE'"
1I~2524

1'102526
002530

,tTEM
01'12512
"02514
"02536
002540

'1'19
91 "

IlHIH

1'131660
011""1'10

911
912
9tl
914
915
916

'17

918
919

'20

921
922
911
'24
925
926
927
92.

,ITEM
002542
002544
002546
9025511

031Ul
0UI05
831630
0"9008

802552
002554
""2556
082561'1

UU72
1'131745
031618
80'088

002562
..,2564
002566
e82570

038204
8]2011
1)31660
1'11'10""9

'l0
911
'32
9))

9)4
935
9)6
917
9)11

9)9
940
941
942
941
944
945
'H6

81112572
"82574
082576
""2600

1U1421
032225
8Jt64"
00"e.e

•• 2682
082604
P82606
"02611'1

011445
0))171
0)1640
0190"1919

002612

IIlUI4

, R!ttl DIDI"' II1'ERRUPT Oil Sort tliROR
,pc
RIC'ER
RItC'
,URAPe 8ItEGt
l"EGiI

112
,MEX BITS IICAIM£III£D WRONG IN RICCS
,PC
nPC'fD RIeYD
IAEGI
, URRPC' IAEGt

III

EIIII"
DMU
OT26
,ITEftI

RKDA
UEG2

III

EMUS
OM.
DT2
0
IITEII

,NXI: BIT DID .OT SET
,;>C
RKER
RKCS
UEGI
UEGiI
fPC

EMUt
DHllt
OT2
9
,ITEM

,,9

111'
E,MIU
DKIU
OT26

"11l06

901
90A

107
!"'132
OH4
OT2
0

'CNTAL ROY DID 10' SET ArTER "'''T CHIC
,pc
RKIIC
RItER
RKCI
UEGI
UEG2
II ERR'\: IREOI

"114
EMU7
DHU
DT2.

, -"'PS" NOT CLIAR
RKER
,PC
RItC'
.REGI
, URRPC .RE.

RKD'
.REG2

JlKOA
tRIG]

,ITE"

115

EIol141J
NIl41J

on"
0

IITEIol

'DATA ERROA 01 TRANSFER 'ROM DISK TO TTY
RECVD
RKBA
EXPCT
RKCS
IREGI
'IERRPC 1111108
'REG)
'REGi2

,pc

116

E"'141

'"DRIVE ,. PRESENT. BU'J NOT SPECIFIED

M_Cn 1 27(1"6) 04-0CT-76 t6l.6 PAGE 19
MUIIOEC-ll-OZIUUC-D
22-SEP-76 .8147
ERROR POINTER TABLE
DIRIClCO.Pll

941
948
949
95'

•• 2614
812616
H2620

1126J8
o)1622
"00000

OHH
DTI

•

,ITEM

9~1

952
953
954
955
956
957
958
959
968
961
962

002622
OO2624
802626
80263.

025266
0B745
131610
0"8000

802612
002634

,)1560
'''0808

1t7

EMil
OH4
OT'2
0

,IT':"

110 "36

DRIVI •
,PC
UERRPC IREGe

,RKIIC ERROR
,PC
EXPC'I'
"ERRPC .REG'

RCCVD
.REGI

12.

E'U42
8

MAlNOEC-lt-DZRKK-D
MlCYtl 27(1006) 114-0CT-76 16.16 PAGE 28
OlRIO<D.Ptl
2l-SP.:P-76 08147
tRROII POINTER TABU
9f; )

007616

1100005

1192640
082644
0f1l2646

012706
005026
022'06
001114

964
~65

966
91> '7
~6Q

969
910
911
972
971

914
97~

916
977

978
919

980
981
992

983
984
9a5
986
981

81112652

0011011
1101141

1102654

012706

1111'1 tell

002660
902666
0112674
110271U
907710
002116
002124
ll02n2
002748
002144
002158
002756
0112164

11U2Ul
11121)7

1122046

00"020

808)4IJ

1112731

02232"

0121)7
0127]7
012737
,,.21)7
0127]1
005,)7

800]411
824574
081114.

01110en
0.8IUe
091'10)2
0000]4

82461'

000036
0011.14
1'10 •• 21

1121)7
.12137

I'I.58n

00U40
""12"6
0'!l2111
0"'8111
0"2756

'1112137

002164

IIflll

1108004
"")U2
1775711
117518
117777

0"'11"
11111141
"'" 142
176112

001111

011t"

0{12172

1'111746

1101776

'127)1

1111)004
110)012
IH'lll21l
01H026

IU27]1
0127)1
022771

00)0)0

18041H

00)IH2
0rn0l6
901040

.12116
100092
012737

0n040

997

001)176

I'lIH 140

999
9"9

""3046

1009
10111
'91'12
'911)

1'1127]7
012&37

009114
0001'184

001142

1'1''1054

1101061'1

005227

177777

1101064
1'101066

1'101944
10441'11

Ill'lH24

O0)072
1'10)076
1'10ll00
IiIIHII'I6
081110
"")112
0U114

0115737
0'''006
021121

000042

988
989
990
991
992
991
994
995
996

hIli 4
1005
1"86
1""7
I ollie

U09
I"H'

"'"
un

10\2
1014
1015
1816

teP
,,,,,8

001012

use.

FlTl

6511
6611

111"'11411

000116

111000111

'HIlll4

1'1"'100'1
104496

001/140)
112737

000U5

"b8S I

012100

MOY
MOY
MOV

' ' It 418

UWREG.SWR
.,POINT TO aOFTIlARE awit
.DUPREG,DISPLAY
(SP)+ ... ERRYEC HRESTORE ERROR VECTOR

.saTfL TYPE PROGAlN NAMI
"TYPE THE UME or THE PROGRAM Ir ruST PUS
INC
'-I
"nRSf TIME!
8ME
6U
I ,sRANCH tr NO
TYPE
,6"
"TYPE ucn STUIIG
.SATTL Gn VltV£ rOR SOFTWARE SWITCH REGISTER
TST
"42
"ARE WE RUNNIIiG UNDER XXOPIlCT?
B~E.
691
"BRANCH IF YEa
C'4P
aWR, ISIIREG
I' BOrTUR! s"nCH REG aELECTED?
"BRUCH IF NO
R~£
'
"
'
erSI/R
., GET sorT-SNR SETTINGS

""1172
0.Hl'2

SEQ 0037

SUIITI RESET
,CLIU THE BUS
.SlTTL UlTULUI THE COM MOl flGS
I'CLEAR THE COMMON TAGS (lCNUe) uu
MOY
UCMTU.R6
"FIRST LOCATION fO IE CLUIIED
C!.II
(R6).
"CLEAR MEMORY !.OCAflON
IIIIII,RI ,,00Nlt
CM'
BNE
.-6
"LOOP lACK IF 110
NOY
JaneK,SP
.,SETUP THE IUCI': POINTER
, ,lNITULIIE
rEII VE(fORS
MOV
"SCO'E, "IO'1''IIC "lOT nCTOR rOR ICOPE ROUTIIIE
MOY
II4I,.,107'ICC•• "LEVEL 1
MOY
UERROR, .. E"'VE:' "EMT nCTOR FOR ERROR ROUTINE
MOV
U411 ... ENTYEC+a .,LEYEL 1
MOY
.nRaP,UTRAPftC' "Til., VECTOR rOR TRA' CALLS
MOV
U411,.ltRlP'EC+2.LEY£L 7
MOY
"'WROIi, . . PlIJtfEC U.OIIER rAILURI neTOR
HOY
UU,,,PWRVEC+2 "LEVEL 7
eLR
UINII
" IlIltULIIE NUMBIR or ITERATIONS
CLoR
n.CAtE
,. CLUR THE ESCAPE ON ERROR ADDREaa
MOVB
.. , .ERHU
"ALLOII ONE ERROR PER fElT
HOV
' . , .LPADR
, ,IIIITIALIZE THE LOOP AODRII:.a rOR aCOPE
MOV
' •• tLP!RR
"lETUP TH! ERROR LOOP ADDltss
"SIIE rOil A IUOWAIIE SIlITCH REGIS'l'ER. IF NOT rOUND OR If tI
,,!QUAI. TO A -.1", lETUP rOR A 1I0rTlfUE allITCH REGlaTER.
MOY
'IER"VEC,-CIP) flSlYE ERROR VECTOR
"0'1
1I . . ,unRUC, ,lET UP ERROR VECTOR
MOV
nallR,allR
,rSETUP rOR A HARDIIARE alllek REG laTER
MOV
'ODUP,DU'LAf JlAND A HARDIIlRE DUPLAY RIGISTER
CMP
'-I,tlWR
"TRY TO REr£RENCt: MARDnRS SNR
"NE
661
J ,IRAIICN IF 110 !IMIOUT TAl' OCCURRED
"ANO TH! HARDNlRE SltR II NOT. -1
SR
".
"IRAIICN tr 110 IIMEOUT
6411
MOV
UP)
" a n UP rOR TRAP RETURII

6711

llJS

MOV8

11, IAUrOB

BR
• UC IZ

MOV

'ODPCH,RIl

J' SET AUTO-MODE UDrcnOR

"GU OVER THE AlScn
<C~L'>/RIIi11 LOGIC TEST n 1< I S>C12>/MUNOEC-ll-DZRKK-D/CCIILr>

UCYli 2'7 ClSI6) 14-0CT-76 16186 PAGE 21
MAINOEC-Il-DZRKK-D
GET VALUE FOil sOnllAIIE SIiITCH lEGISTIR
OIRKKD.Pll
U-SEP-16 Ilin
Uti
1828
1821
1022
11121
UJ24
1825
1826
1027
1821
1829
10)1

88)202
(8)206
IIU211
.,13212
I'U214
883228
81)222
III(U226
.83234

812781
00502.
1052'111
""U75
015227
801028
113746
812717
005717

80)24.
IIIU242

800416
IU7n

177'7615
UI

177717
"'••14

IIUU

"'14' 1114,. 211
lfl)2 101251 112716 .83256
18)) IIl254
"""""2 """4
,,..
10)256 11112U7
11)4

10~)

1054
1055
te56
10,7
1058
1059
1060
1061
11'162
11'161
1064
11116'
1066
10.'
1068
1069
107.
1071
1072
1013
UI74

'-1

TST
8R
MOl'

U
Utl,RnR!

MOl'
RT!
10V

ne,clP)

,FIRST STlRT ,
J8R IF 101'
,SAYI IRROR VECTOR ADDRESS
J NEN vECTOR ADDRESS
,SEE IF PROGIUM CAN RIFERENCe 'fll
,PROCeSSOR STATUS WORD
,8R It REFERENCE OIDIf'T ClUII 'fRAP
,SITUP IN'fERRUPTINQ puoun 'f0 nLUE
,"HIall WILL ALLON INflRRUPT ON AI L.I-U
,SETU'· RETURN ADDRII'
,RUURII
,RESTORE THE ERROR VIeTOR

U,)+,ERR'!C'

,rIND OUT IF ACTU, 'UDP' eHUN OR DUMP MODE

111)262
.n266
.n272
1111274
011)216
I.U"
IIUI6
IIU10

112711 "1411
112'UI1 ; 1 '77"
1.5821
881211
18U1S'
122131 .88ee2
011166
813137 "818"·

1.1U6
eeU24
10U26

nun
101te'
105e31

1"",

0n]]2
081]]6
lUlU
IIUl44
10U46
•• U52
811U52
08U56

015131
081U2
011'7]1
0.1882

111142

19~0

1051
1052

'-U,RI
(R8)+
111
18
STOTI
ERRne,-(Sp)
U.,CIlRYEC
PS

MOl'

.'la14

1"776

unl

10)5
10)6
U)7
10)1
10)9
t0411
1041
1042
1043
1944
19t5
1946
1047
1048
1049

MOl'
CLI!
INC
8NE
INC
8NE
MOV

.10 "'U

BME

"""41
HUll
11141.

'.141.
211

HI4I.

"""U1 114111

11144"1
10"411

lTARfll MOV
MOl'
CLR
III
INC;

085146
IU7U
114481
111
00"
,,"U7
".'227
18111S
184481
008411

"U6I

18141.

IIU1'
111'717

111441

,,1711

001462
.91462
0U464

.ISl46
113716

It
62,41

CM'B
BlfE
MOV

1'f2
40.0DPeR

CIIlPB
BHI
CLRe

TST
BEQ
'faT

u·

,LOADED FROM AM RIt.5 ,
,8R IF Not
,OU OlnCE INDICA'fOR AND DRIVE ADDI." or
, LOAD lWG Rlt8S
,VALlO' DRIVE NUMIER tM BYU 41 ,
,8R IF JE'
IE DRIVE !lRO IIHICH LOlDED
, tHJ'· 'ROGRAM
,CHUII MODE 01 ACTtl AUTO ACC£P'f
NEITHO
'RVNI~IG FROII Alf RkeS ,
,8Llt· YES
,F 0 'bUT IUliln or DR IVEI

tl.,DDPeK

,,,u...
,I. "

DDPCR
U

JMP

ODf'CH
U
Sfl

'tyPI
IR

• 6 !It
641

81ft

,CLlAR OUT DRIVE TilLI AREl

(R')+
Rl

,,6.11
6411

003486
183416
0nU8
IU414
881416
.01411
0IUU8
111414
011141.
00)412
InU6

'OOPCR",,'

.-12,1'1·

" ..
.,14t1)

, ,tY'E ASCII URING
"GEt OVER fHE ASCII

• ASCII CU><12>/IOt TutUG DRIYE 1
tLR
MOY8
fYPO'·
.Inl:
.8nE
oJ"p
INC
8NE
nPE
IR

.lSen

CLR
MOVI

-CIP)

'CLEAR "01tO Oil SUefC
,GE'f DRIVE lDDREII

DDPCH, (SP)

,'ft.1 THI ADDRESS

,ONLI 1 CHARACTER
,'UP"E'8 LEAoue IEROS

•

,eEt NUMBER or Oll'fE8

ITJ

'-I

,FIRST 'tIIIE tHROUP RERE
,IR IF NO!
Irl
"TYPE ASCI! STRlIG
.6"
, , GET OVER THE
661
CIIIUI2>1T0 'tEl! DRIVE I

AScn

,CLEAA IIORD ON THI .tacK
• GET DRIVE lDDRESI

-C·If,
DDlCR, (IP)

MUNDEC-tl-DZRU-O
DZRKICO.Ptl

M1Cni 21(1'86' 14-0C'I'''16 161.6 PAGE 22
22-S"-" ...
n
tit "LUI: '0" .onURE ainCH RIGISTER

1075
1"76
1077
U79
1079

1090
UA1
10112
108)

1094
1095
10116
le97

80147e
0e1472
00347)
003474
003581

1844191
001
0ee
184401
080Ul

003564
003564
003S70

184401
8011415

•• J5112

'.lI'72

'0]664

U99

1099
tt00
lUll

1182
ttl)
tte4
1185
1186
tte?
Illla
1109

012708
1112701
005020
005201

811412

"''']670
"''']674
00)67b

0U780
001702
00)706

104481

081711

0819415

00)664

11))742
001742
1'101744
0,,)746
001752
1'101754
001760
011764
eune
el]714

171761

",un

18Ht1
012"'1

et 27"1
1120"2
"42702
0127m
012714
012785
9285"2

17177"
1774",
801414
t 7177'
0~""61

ttle
1 til

1112
111)
1114
1115
1116
1117
tUI
ftl9
1120
1121
1122
tl2]
1124
1125
1126
1127
1129

1129
11 J0

,...

II'
.lae~1

,TYPE 'HE DRIVE ADDRESS.
,ONLY 1 CHARACTER
,SUPRESS LEADING IERDS
,698
"TIPE ASCI! STRING
, ,GET OVER THE lICU
I HAL't PAOGI'AM, REM01;E RItOP PlCt( lND REPLACE I'1'/<15><12>

,711
nfYPE ASCIZ ITRtNG
7"
nGIT OYEII tHE AsCn
IWITH A WOIUt PAC«. CLEAR LOCAtION 40, AND RElTARt PROGRAM I

,'IND OUT 'ROM USER IIHICH OlIVES (LOGICAL ADDREsSta) ARE TO IE
,TU'1'I:D (DAIVI' TO 81 TESTED
IN REPLY THE USER SHOULD TTP[ IN THE
,LOGICAL ADDUISES SEPEIIAT!D BY COMMAS. 'fHUS If' 2 DRIVES 0,1 ARE PRESENTa
,
'ORIVS fO 8 TatD"
,
'1,1 <CR)'
1 CAR. RE't. SHOOLD BE 'lTPED TO TERMINUE THE LIST.
ITa.
1I0V
.ORIVS, A0
NOV
'-U,Al
U..
CLR
(R0)+
!lfC
Rl
INE
lU
TYPE
,658
,'TYPE ASCII STRING
811
641
"G!T OVER THE ASCtz
JJ6511 .AScn <ts><12>/DRIYEI. to IE 'rESTED 7/<11><12>
6 ...
RDLII
MOl'
(5P)+,R0
,GET ItARTJNG AD RES OF llell stRING
ItOY
'-U,Rl
, SET UP COUNt
Man
(RI)+,R2
U.
,GET lieu CHARActER
IIC
'17HIt.A2
,ltASIt U•• UTtD 81'1'1
IIOY
'DRIYIf,Rl
MOl'
'-U,II4
MOl'
'60, AS
CMP
211
A5,R2
'fHI: 'l'YPED IN CIlIRACTER
: A NUIIIIII 8ETlItER 0-71
8EQ
U
JYEa, BRANCH
IlfC
R5
,NO. JlCREMENT
CAl)+
TS't
,INCRDENT POINTER TO DRY FLAG
R4
INC
'CHARACTER THAT liAS INPUT
IHE
21
,SHOULD 8E ~.7, I' UY OTHER
,TIPE n , _GUN ASK rOR
,ORIlS TO BE raT01
taT
112
,IS IT A TERMINATOR?
BEQ
It
HES, lIlT. NO DRIVES IlfDIClTED.
411
TyPE
,67t
, ,TYPE ASCI!· S'tRING
8R
668
"Gn Ov[R THE ASCII
,,67e, .11Cn lUI
6611
8A
Sf2
,GO, AGUN UK QUESTION
lei
TST
,Rl
, SEE IF ALL IIElDY SELECTED
8NE
4S
,ERROl' IF SELECTED ALL RElDY
IIIC
.Al
,SET UP FLAG FOR THI!: DRIVE
INC
ORTVS
,INCR!MENT TOTAL NO 0' DRIVES PRESENT
Move
(lR~, R2
lUI
,GET NEXT CHAA

10119
10911
11'191
1094
1"95
"'196
1097

.,691'
6'" tyPE
JJ7IU

1099

U92
109]

TYPO.
.BnE·
.Bne
TY'E
8R
• Ase"l

10)776
004000
8e41102
e04804
084106

881414
.85285
0"5721
085214
88']72

004810

""57e2
"81461

004012
",,,.014
""4114
elU20
0e4026
034826
004030
004032
084014
1'1941il3b
08.842

18U01
8lt482
0"8716
IJ057tl
""1]70
00521l
."52)7
, , 10"2

8"4022

081412

,liAS

SEQ le)9

IIACIll 21(1"6) .4-OCT-'6 161"6 PAGE 2J
MAIMOEC-t I-OZRICIl-D
GET YlLUI FOil SOFtwARE aWITCH IIcOISTER
22-SEP-76 • 1.47
OIIlIlKO.Pll
illl
1132
tU3
1134
IUS
1116
II 17
It )8
109

11...,
1141
1142

ll4l
IU4
1145
1146
It 47

ll48

1149
1150
1151
1152
1153
1154
t155
1156
11'17
1158
1159
116'

1161
1162
1163
1164
1165
1166
1167
1168
1169
1170
1171
1172

Itn

ItH
1175
1176
1177
1119
1179
1189

11.t1
1182

lIU
It 84

11115
1186

177.8.
••• 11116

,,'.044
0'4'5111
..,4054
0'4056
.Ue62
•• 4866
.1487.
0ue74
e,.'76
"041.4
004106
""4112
004114
004122
IUI4126
1111II4U.
084112
."4il6
"0414'
0"4142

e427e2
11122782
.01826
0S27lJ
832715
.81487
'05763
eeU47
• 12163

084144
0'.146

0004114
1.5720

""4158
09US2
"04t54

"952"1
0"1217
880717

084156
11.4162
8'4178
884172
0114176

905817
932777
"810U
8050)7
080502

8814411
8820"

004200
1842"6

012731
0"0476

8'8e'l

. . 1144

"04210
.1/14216
984224
1iJ0U10
884234
804242
0"4244
884246
804252
084256
I'IIU68
.,IH262
".,4266
.04272
1104276

eU711
012737
1iJ85777
1iJ05177
812737
1844f11
e0Ut6

1'7717
"4378
175076
175"'4
804462

1.1441
. . . . .4

111271'11'

117771
111412

. ,."

H5763
•• 1)4'
.12163
9052J7
18572.
e,,,,744
e227'2
""14.3
"05782
OO1324

0"59)7
'0501)1
".5084
012782
01"177
fl2"117
'01405

IItC
CIilP
liNE

1. . . .111
81.88.

&11
atT
lEO
T87
BNE

177776
Ie••••

117716

. . . . .2
1. . . . 1
•• 1412

,..

88.0.2
II..

•• 9.54

MOY

BII
'1ST
8NE
IIOY
INC
"Til
BR
CliJP
810
TIT
8Ne-

511

Bit
TITB
INC
IllS

17475'

...

.IU44

. . . . .4

.11414
115046
1750012

111

.11

CLA
BIT
&liE
CLR
II'
MOY
IR

SEQ •• 4•

,CHAilACIER ONLY
,IS IT F?
,MO, GO ON
U
,'!T BIT 15 TO SHOll RU5F
'lII1lS,,1l
,EYEN DIIIVn
nIT'. liS
,IVEN DIIIV! 80 IIRANCH
,CHECK EVEN DRIVE
-2(113)
I EYEN ALL IIEADY SELECTED
,SELEe1' EVEN DRlYE
'1IIT15II1IT.,-2CRJ)
,CONTINUE
,CHECIC ODD DRIVE
2CU)
,ERIIOR I' aELtC1'ED 8EFORE
4.
,SELECT 000 DRIVE
tlUtSIBITI,2(U)
,COU1fT DIIIVES SELECTED
oans
,POINT
TO
NEIT CHAR
Uti) +
tCIlECK FOR COMMA
It.
,15 IT l 'COMMA'?
. . 4,R2
, YEI •. GO . PROCESS NXT IIORO
5'
,itO. IS IT A teRMINATOR?
R2
, IF
SOMEtHING IIRONG
4.
,GO lSK OUESTION AGU.
,EUT, IF A Tl!:RM.IlfATOR
61
J INCREMERT PTR TO NXT BYTE
(1")+
,III INPUT BUFFER
,'flfERI: fHOULD BE NO MORt THAN
Rl
J It DRIVE', HeNCE IF MORE
U
,THAN' DIFFERENT NOS. TYPED IN, ER1l0RI
,GO AGUII ASK THE QUESTION
II 774'8.112
""R2

..,....

"0.,.

SIZyET
U.ftll,ISIIR

.,.

ItIlUL
IT4
1l,IIIIIUL

,110 SIZI"G "EEDED

,TUUNG ON IlMULATOR?
,tI.,
BRANCH
,NO. CLR FLAG
,.ET FUG TO IIIDIClTlE SIIIIULATOIt

''1'4

,ctlEC' !fUMBlER 0' DRIVES
IIOY
'-1, SIIUT
IIIOY
IS." ..
TIT
fRlCDS
TIT
'RIIDA
IIOV
'IIAOTIIO,,,4
TYPE
M8GI
1II0V
"1I1,R.
CLR
DAIV'
Rl
CLR
114
CLIt
IIOY
'ORIYI,R2
111
"Oy
Rl"RKOA
CNP
1I1"RI(OA
BItO
If

ITI.

,CBECK ,.OR RK0Sf' UnR
,SIT UP AORES ,.OR TlliJe;-OUT VECTOR
,REFEIIENCE RKDS
,RIFERENCE RKD"

, IIfITIALIZE COUIIT ,.OR THE 8 DRIYES
,INITIALIZE • OF DRIVEl PRESENT TO .,
,INITIALIZE ADDRESS TO DRIVE'
, ADDIIEas THE DRIVE
,CHECK, WAS IT ADDRESSED?

,ns

MACYI 1 27 (1006, 84-0CT-76 16 .. 6 PAGI! 24
Mo\lNOI!:C-II-DlIIKK-D
GF.T VALU! FOR IOrT"ARE IlIneH REGI8'tER
DZRlQrn.Pll
22-SEP-76 08.47
1187

,,,19
It 88

11911
tt91
119l
119 )
1194
1195
1196
1191
tl98
1199
12,..,
1201
U02
1203
1204
U0~

\286
1207
1'08
120 9
1210
Uti
1212

1211
12"
1215
1216
1217
1218
1219
122"
1221
1222
1223
1224

MOV
JSR

tU,R3
PC,TIIRM

III

BA
81t

"04109
"'041114

012113
N4717

828134

.04110
804312

0"'''411
0n771

.e.2"

IUl:!1f

1'101407

1104322
904124
"o4326
01143]2
"94])4
.94136
094340
004342
0"'4346
"04350
1'104152
0"4354
00436'
"94162
"'lt4164
O04366

_11"'213
905237
" .. 5212
11111446
"'44112
0AS722
062791
805294
0f11520"
€'''l1345
005737
"'0"'11
",4401
'01236
"00406

"04370
''''.14172
084314
''''144010

81160]
022626
062183
""4731

"'4404
1'84410
919441 4
804416
""U22
00U26
"'84434

005037
905137
0"1"04
0047]1
80"131
!H2n7
00'037

0,,.434
8et412

"1'1444"

1'050)7

1Je1l!5,.

904444

0127J7

004462

0801'104

MOV

'RADTMO""4

P04452

012177

0114526

114722

MOV

'BAD INT f .RICVEC

0"U0"

175 . . 6

1~441/Jl

. . 1412

411
029""

eEO
TY'E
.CIL'
INC
IffC
MOV
TTPOC
TS'l
AOD
INC
INC
INE

TIT

111412

BNE

.,e•• tRlol

12)1

1232
121)

1234

12]5
12)6
1217
1318
12)9
1240
1241
1242

,IIHIL! CHECItING NUMBER 0' DRIV!
, U"DtR lO!!-MlHUA!.. MODE 1, RltDA HAD TO Bt ADRESED IIUT
' I f W~S roUltO THAT THI! DRIVE NO
,THAT IIAI IIRUTIN .COUliO NOT 8E READ BACK
,COIIREC'lLt.
'CHECK "
,PRIESENT

·DRY' erT IS SI:T, IF SET ORtYl; IS

DRIV'
Cl2)

,rF PRstIU. INCAEMEItT • OF DRIVES
,SI!T UP FLAG INDICATING THII DRIVE PRESF.NT

II4,-(IP)

CA2l.
12"800,111
R4
R.

,.HIFT POI"TER TO NIT ORIYl: INDICatOR
,SET UP ADDRESS rOR THE NEIT OIlIVE
,RAVE U CHECKED rOR ALL' DRIVES

DRIYS
1T4

TYPE

581
171776
820134

MSG2
8R

8T4

MOY
CM"
ADD
JSA

U')oR)
UP)+,CSP,.
'-2,113
PC,TYER"

CIIR
TST
8NE
JSP
JNP
MOV
CLII

T56FLG
DRlYS
II
PC,IIATIME
II':OP
'DAI V", DIIVPTR
DAVDON

CLII

DRrVAI')

12?~

1226
1221
1228
1229
1210

SEQ lUlU

'2165"
021560
.81614
.8U52

ST4.

881154

Itl

,GO CHECI 'tHE DRIVE INDEPENDENT
,CONTROLLER LOGIC
,GET PC IIHERE TIMEOUT OCCUAED
,AESTDRE S'lACK
,GO TYPIE ERROR MESSACE
,WHILE CHECKING rOR THE "UMBER OF
,DPlYE8 IN NON-MANUAL MODEl,RKDS AND RKDA HAD TO IE REFERENCED. 'I'1MEOUT
,OCCURED ON IIEFERENCUG.PC III THE ERRDM
,ME8UGE I"DICATEI WHER! THE TIMEOUT OCCURED.

, INITIALIZE THE NO. OF DAIVES
, THAT HAVE !'1E'f CIIECICED
,1IIlTlALtzE DRIVE ADDIIESS TO
,THE FIRST DAIVE
,SET TIM! OUT VECTOR 'OR UNEXPECTED
,TIllE OUTS
,SET UP RKll INTERRUPT VECTOR rOR
,UNEXPECTr.D tHTERRUPTS FIIOM RJ(l1

MlINDEC-ll-OZRICK-O
M1CYl1 27(1806) 8t-OCT-76 16186 P1GE 25
DZRKKD.Pll
22-8EP·76 81147
GET flLUE FOR SOFTUIIE SWITCH REGISTER
1241
1244
i245
1246
1247
1248
1249
1253
1251
1252
1253
1254
1255
1256
1257
1258
1259
126.
1261
1262
126)
1264

884468

".8465

884462
8Itt464
8.4466
e84478
804474

8tt 600
,851t.
822626
t844rn
eee407

8845t4
884514
"04516
804528
.84522

ete846
11'4482
'8088'
8881

,THIS ROUTINE HANDLES UNEXPECTED TIME OUTS

8ADTMOI MOV
TST
CMP
TYPE
BR
,,6511 .lSCn
6411
MOV
TYPOC
HALT
JMP

884476

.02636

12~)

(SP),1I0 ,un PC IIHEIIE TIME OUT OCCURED
-CR8)
(SP)+,(SP)+
,RESTORE STACK POINTEII
,651
rrTYPE AlIcn STRING
641
HGET OVER THE ASCll
c15>Ct2>/TIMOUT,

pc.,

R0, -cap)
UST1RT

"04526
"045)8
e84532
884548
884542
8"4544
884546
8114550

011608
085748
1!132777
80t01t
104481
0"UU
104401
025102

"94552
904556

184401
00fl48)

004566
004566
004570

918046
trl448'

004512
094600
094602
094604

032777
""1483
022626
011'" 77

1191889

l'Ii<!4610
004616
il04628
1'104622

8)2777
""1481
000082
800000

8400.8

0114624

"001 J7

802636

"2"'"

BADIIITI MOV
TST

BlT

174400

BNE
TYPE
ICRLF
'l'YPE
EIIU

110456"

(sP)'R0
-(RI)
'28118,alwR
IS

MOV
TYPOC
174340

111

174122

2 ..

174276

'SAYE PC W-HERE INTERRUPT OCCURED
'INHIBIT ERROR TYPEOU'l'7
,YES, DOII"T UPE OUT

,'l'YP! 'UNtXPEXTED RKiI IITERRUPT'
,flP! • AT PC.'
"UPI! ASCII URIIIG
, ,GET OVlR THE lSC IZ

TYPE
BR
.ASCII

BIT
BEO
CMP
JMP

1l000,tsWR
21
[IP)+,[SP).
flLP1DR

JMP

. . START

1294
1295

1296
1297
llCJ9

rSt! UP rOR TYPING OUT PC
,GO TYPE OUT oeTAL PC

rTHYS 1I0UTI'! HANDLes UNEXPECTED INTERRUPTS FROM RUI
:SI1i ., :ORO le FOR LOOPUS 011 !RROR
, AND LOOPING ON TEST II IiHICH TIMEOUT
,OCCURRED, IRE PROVIDED.

12~S

1266
1267
1268
1269
1270
1271
1272
127)
1274
1275
1276
1277
1279
1279
1280
12111
t 282
12Al
1294
1285
1286
1287
1298
1299
1290
1291
lH2

TSTl

SEQ 8142

rCO TO TEaT 1

,au UP FOR TrPING OUT PC
,do TYPE OCTAL PC WHERE BAD
,INTERUPT OCCURED
,LOO' O' ERROR?
,NO, SRANCH
,YES, REPOIlTION SUC«
,GO TO 'lifE STARflNG ADDRESS OF
,THE TEST THAT GAVE UNEXPECTED INTERRUPT
,LOOP 011 rEI11
,NO, IRlICH
,na, LOOP. GO BACK IIIfER U INTERRUPTED FROM.
,UNEXPECTED INTERRUPT OCCUR ED AS
UIDIClt'CD til THE TYPE OUT.U CAN LOOP
,Oil ERROR, TEST,OR INHIBIT TYPEOUT BY
,stTTIIIG APPROPRIATE aIlITCHES.
,GO B1CK TO 1lfE arAR'f OF THE
rPROGRAM. THUS PRESSING CONTINUE

MAI'IDEC-II-DlRKK-O
MACYlI 27(1806) 84-0CT-16 1610' PAGE a6
OlRHD.PI I
22-SEP-16 elI47
GET VALUE FOR 10nWARE Sillfti "RCGUTER
1299

SEO 8tn

,AFTER THE A80VE HILl' ifILL
,REstART THE PROGRAM

Ill'''
11;'11

1 J~2

13'"
1334
1 HIS
l3a6
1 )01
!l09
1]09
131'
III t
1112
111l
IJt4

,RESTART AFTER POWER rUL
'THE PROGR1M WOULD RESTART HERE IF POWER CAME BACK ArtER A FALIun.
0046]0

804137

021651

PFltRTI JSR

IllS
1116
n17
l.lla
1119
I J28
IJ73
1324
1)25
1326

004634

8"'00114

"04636
004642
. .4644
084646
'''4652
.94654
894660
.04662
804666
0U672

012'1'18
'05"81
885002
805111
fl'1403

0.4&74

1140
1141
13U
1141

1344

1127
1329
1129
13)0
Inl

In2
lJ))

1))4

Ins

1))6
1))1
1 ))9

ICOPE

..................................................

140'
CLR
CtR

1'12

,,.............."

TSTt I
0111414
8.1Ue

ISf

211

IEQ
CMPB
ItO
MOV

8flue

'DRlve, RI
Rt
DOPCH

rsn

905He

fiT

fR.

.84676

0"1026

811!

804700
"0"04

"U'237
1841 \6

MOV
ERROR

R2,IRECt
116

0U7,,&
08471"

805718
"0\421

TST
8EQ

801415
0lG1l77
185777
1"'885

174452
174nt

BPL

"01162

1)49

1350
1)51

un
IJ'Il
1J5C

CHECIt THAT THE DRIVES 'fHAT ARE NOT SPECIFIED ARE NOT rOUND TO B!: PRESENT
, *THIS Tr:ST CIfECJ(I 'flU tHE DRIVES THn ARE NOT IPECIFIED
,*011 RESPONI! TO -DRIVI TO 8E TSTD?") ARE NOT FOUND TO IE PRESENT.
,*£VERY DRIVE rROIC' TO 7 IS ADDRESSED. IF A PARTICUL1R DRIVE
,.GIVES 'DRY' (IN RItDS), IT II CHECKED THl! THII DRIVE
'.WAS~"SPE:I,.IrD BY THE VIER, IF IT liAS NOT All ERROR IS
,."EPORTED, GUING THE DRIVE NUMBE1I. IT II LIKELY TRAT THE USER
,.MAY HAYE FORGOTT!:1t TO PUT THE DRIV! (Till! IS NOT 'PECIFIED) ON
,.'LOAO·. Ir THIS IS THE CASE THEN PUT THIS DRIVE ON 'LOAD'.
,.IF 'fIiIS IS NOT THE CAl!, THUE IS 1 GENUINE ERROR. [TWO DlrFERENT
,.DRIVE ADDREIS!S MAY 8E RESULTING IN THE stLEcno. OF TH! SAME
,.PHYSICAL DRIVE.)

tt2,DOPCH
U
Rl,fRItDA
'RKD'

1 ))9

1)45
1146
1)47
1348

1219237

,KILL 'fIME

...............•..•......•..•..• .............................

,.'f£ST 1

1)2t
1122

PC,IfA'l'IME

)11

!!IRe

, INI'l'lALI!.E POliTER
J INITIALl!C DRIVE ADRES 8
,IIIITIALUE ORIn: • •
,1.01DEO FROM AI ttKes 1
,8 IF 110'1'
,LOADED FROM THII DRIY!
,IR IF UI
,1DRES THt DRIVE
,DRlYE READT?
,HO, THIS ORIn: IIOT PRESENT
,YES, THIS DRIVE SELECTED
,WAS THla DRIVE SPECIFIED BY
,THE USER?
,tU, OK
,110, THIS DRIVE •
NOT SPECIFIED
,8Y THE USER, IUT STILL IS GIVING
, 'DltY' WII!N ADRtaED. REPORT EROR.
rGET DRIVE',
'TIiIS DRIVE' "AS NOT SPECIFIED BY
,THE uaE", IIUT IIHCN ADRtsED GAVE
, ·DRY·. CHECK tH1T THIS DRIVE • IP'
,PHYSICALLY P~E5E'T IS ON ·r.OAD". IF
'TH18 IS "OT THE CAlE, THEN ONE DRIY!
,MAY BE GUTING SELECT,.O BY TWO DUP'ER!IIT
,r.OG1:::Ar. ADOME.tIES.
,CHECIl TKAT THIS DIIlVE "AS NOT INDICATED
, If IT WAS, , IT IS Nor ,.OUPID 'to IE
,PAES!NT CORY CLEAR), REPORT ERROR.

If"

"t"

MACUI 27(1886) .4-0Ct-16
PAGE n
MAINOEe-ll-01Il KK -0
CHECK tHAT THE ORlya tHAT A"t lOT SPECIfiED ARI NOt 'OUIOtO II ",IDt22-SI:P-76 .a147
!1
01IlKI(D.'1I
US5
US,
US7
ula
U59
1)6'
1161
1162
1163
U64
U65
1166
1167
1168
1]69
1311
1)71
1112
U73
U14
1175
1116
U71
1l7a
U79
ll80
U81

8.4712
8.4716

.1.7]7
1I40U'

.2.712

JSR
EIIROR

Ull
U95
1)86
1181
UIi8
1389
1391
1391
1392
13U
119"
1195
1396
1397
11911

1)99
14"0
1481
14,2
140.1

1411"
1485
1406
1407
14811
14,,9
14U'

80472'

'8"'1'

eLR

,"0

184722
18472 ..
1147]1/1
8".. n4
. .4141/1
• 847 ....
•• 415.
884154
•• 4756
1/184168
88476 ..

.te0l]
16271]
14271/1)
8627.)
... 2723
'4271)
.1/I5]l'7
••52.2
81/1572 •
862711
,81U.

1I0V
IU8
IIC
ADD
IIC
IIC
DEC
IIIC
tiT
ADO
BIfE

lII.n

.014t4
111/111'.3
81 . . 14
I'••"
1". . . .

....

• ... 12

12.8.,

IIUDRY,

""4766

"o4766
'9477"
""4776

11'''.84
"12717
.12137

,,O5004
"0581"
8058t4
005016
005022

01/15017
""51)1
111"802
0"'ll7
1'1111111

.05026
"1il5.n
"85014
.05042
1l1il5044
.O5046
"05852

fI]2121
111/11.'5
flU7)7
801171
"00764
11195711
"014U
01H46

II"'"''

00"80
005102

111110116
00&216
886216
1186216
110&216
1106216
1226)7
Jl1155
8111U7

8115106
"1iIS112
""5116
0a5122
1105126
1i1051 )0

litHIl
1111746
,,0"1)7
005037
O1160.
1"'4403

80502
".S1l4
it05136
OO5142
"05144
005150

081
11061 ••
00516'
1"0006
104411
0004ti

005154
OO5154
005160
005162

005217
111144"1
891211

1105"6foII
005062

1414

1I1l506&
"0581111
0851!7:Z

IHI
1412
14))
1414
Ins
14)6
IUl
14]11
1419
lU0
1441
1442

1441

1444
1445
1446
1441
1448
1149
1450
1451
14'2
I"']
1454
1455
1456
It!>7
145~

14'59
1468
1461
1462
14&]
1464
1465

1466

:'DRIYAD P COITUNS II 111'1 U,14,U 'HE ADORal 0' tHE
,DRIVE IEING CUIlRE",L! Cue«tD.
I

...............................................................

FlIID OUt ffl:1'f DRnl '0 II CHECIttD
I·'EST ,
,1'HlI CODE rIlDS OUT THE JlIX! DRIY! tHl! II 'RElENt lifO TUI UTI U'
I tHI AODDRIII IN DRIVAO (lnl U ,14, IS J. THUI '"AGUGIOUI 'HI 'OLLOWING
,1111 DRlYE fUnD II til DltlYE IIHOOIE ADORI!:8S II II '01 no'.

14t\
1412
14t ]

IHIl

'DRIYI,RJ
u.n
.DRlYI,n
......",(R])+
U . . . .8, (IIU
ORIYS
R2
(R')+
.,8H •• Rl
It

,tHIS DRIYE IS NOT 'OVID fO 81 'IlElSEI'I
'HEliCE DROP IT rROM tilE .ELlCtlOI 'lULl.
.0RIft lDDR
,MIIUI orrlET 'OR "'ILl
.EVlII DRIYl 0' PUR
'POINt TO EVEN 0' PAIR IP RItOS ,
,II0t IPECIFIED 11 , ·ItODIL
.1A1i1
,DICRIIIIII'I DRlYl cOUIIr
'1ICltllll' DRlYl •
'IICR"'" PO 111 '1111
,IICRMI' AOREI to IIXt' DRill
, LU. IAIt IF 1I0t 0011

, THIS ,IIlT Of '1'Il1: ,ROoD 1& OOIIG to II RI,lltD rOR
, !lCH DRIVE PRESDIt

005064

iii''',.

"'85164
885166

,t··········....······..·...··•·······..•··..····....•••·..······

IIt2.
.88".1
"e8"'2

0'12"6
.81102

""1112
""1412

""8""1

., "

'fiHISt

211

BIt

611

1"1
ADO

III"8"R1)+
II
n . . . . ,DRIYAD
2.

,IUl51

.+.

Dlnl

no.

DR"'fR,Rl

...

II
'lit'
lEO
MOY

04-oC1'-76

OOPCH

DRlYAO.-(I')

,PROGRAM LOADED 'ROil All lUIS ,
,110, IRAICH
,PUT Tilt ""'In lDDRlI' Oil tHI ST1C«

16'"

lit

...l I
A'R
lSR
AaR
ASR
asR
CM,.
BEQ
HOY

.,1272
8'H358
nllfl6
".1484

TYPE
MOY

JaR
CLR
HOY
TYPOI

08'
111414
"85U2

".51,

6 ....
0014.4

.IIYT!
UL
tar
BPr.
TYPE
BR
• ASCII
INC
TYPI
ICRLr

(SP)

UP)

(lp)+,DDPell
bl

RI,D"'PTR
,MI04
DRlYAD,-(R.)
PC,SH'TRT
"LAG
(R6),R.
1,0
R0
ORlYI(R"

,65.

6 ...
,,,

"LAG

IIQ 8845

, snup TO RIGHt Juatin till ADDIIU
'RIGHt JUITIfY t'HI ADDll'l
,RIGHT JUln" !HI ADDll"
, RIGHt JU.TIn THI lDDRI••
, RIGHt JUlftrr '1111 ADOltlll
, RIGHr Jusun t'1II ADD Ill"
,P"OGRAM LOIDIO nOli '1111. D"lYl ,
IIR IF YES, 00.-' tl" tHI DRlYE
,ITORI POIlrlR '1'0 till IIX!'
IDRIYI FLAG
, GIT 'III 011Y1 ADDRE'I
,ClO IKIFt It 'fO tHE RIGHT
,DRIVE IUIIIIR
,GO "PI till OCtlL • rOR THE
,DRlY! THat II IIINO CHECItED
J INDEX to TULE
IS!! IF"
,10
, , TYPE lIcn ItRlNe
, I GEt onlt THE UCII

IIEt , rUG

...............................................................

5 ..

,,8084
1044U

eov""

PaGE 28
FlIID OUt IIIXT DRIVE to 81 CHECIID
UP)
UP)
UP)
(lP)

Ift.E CR, L'

,.'1E1T 3
CHeCIt THAt DRIVE II .U"LIID IIUH POIII:I-DPL lIt
, I····· ..........................................................
un. SCOPE
CNT. RISE!
,GO, DO COII'fRDL RISEt
,THIS IS A CALL 'OR IHI: 'en"L'RElET' I'OU'I'IIIE. A C NIROL RISET II
, IIIUED AND lrTER A CERTAlN 'UMt
,IF THE 'CURL ROY' DOES 110'1 IE'I
,AN tRROR IS RIPORTID. IIOtE THU
,THE PC IN ERROR MUUGE
tHt
IPC WHERE 'CIIT.AE,n' IS LOCATeD.
,THII IS A VERy IUIC ERR' If IT
,OCCURS GO lACK TO tilt 11
MOV
UDa,R"
MOY
DRIYAD,.RKDl
I AOORISI THE OR! VI: 0110111 TEIt
Tst
lit 0
ICHECI IF 1MY BIT or RIDS II SET?
BNI
11
,I' In, BUNCH
MOY
It;ET !tKDI
.R0, 'R!G0
ERROR
,AKOB ERROAI "KOI Ir ADOREISED
'CORRECTLY SHOULD 81: 10N-II"0
111
,ISSU! _ DRY R!SET, IF DRVE
MOV
III,UKe!
'POWER IS LO, DPL WILL SET
C[,R
RI
211
AIT
11 1'1088, ,Re
I IS 'DPL" BIT SET't
BHE
11
,DPL IS SF.T, BUNCH
INC
RI
'WAIT 'OR SOME TIME 1'0
BIL
2t
,SEE t, DPL "OULD llET

e8511e
005114
"",5202
eI52".
.152.6
.15212

e1H81
1'111711

11111/131
10.0.4

.81162

"15214

812117

"'leu

U!I2H
005224
.05Be
005232
"'05234

e85t181
83271"
8811111]
0"5211
01'11313

""'
!!1,,,
0011/103

"01]36

•• IUI

eu"e"

1141)6

•

114110

'"'ll

, 100 1 ITIRl'fIOI
,AESE' .0InER to 'I'HII 'I'EIt
,NO. CRAJIGI 'HI' (2) II CUE tHE
ITEIT 10. CHAIIGII
,CLIAR fOTAL EMOIT
, R tHUI lilY DRIRI '"EIEI'I"
JlEI, IRAIICH
aND, JII' '0 '"I lID
IGET tIlt' POIIItlR to tHI IEXt
,DRIVE 'LAG
1t8 fHIf DRIVI 'RI.Un
rYES
,rOIlM Ilf DUYI Aur.

8.1411'
.,11)54

'l.nIMES
... itatNM

.U'U

tel41.

SCO.,
MOY
MOV

eLR
TIT
BNt
JMP
MOY

... ,

.,8561
eel154

IIACytt HOlle>
MAINDtC-l1-DZRKK-D
DIRI(lcD.PII
22-SEP-76 11147

141 !i
1416
1417
14t1l
1419
lU0
lUI
IU2
IU)
IU4
IUS
lU6
1427
1428
1429

lEI ....

.Get RKCI, ER, oa, OA
,DRIY! • [AI III IIKDA) lfU III0lCUED I t
JlHE UIlER, BUT liAS NOt ,OUIID to IE '"ESEI'.
,CHEC« THA! THE ROtaRY DR lYE SELICtlO'
'IIIITCH ON THI MODULE II
to tHE RICHt
,DRIYE ••

,It

1182
13114

PC,GT4RG

JIG""

MAIIIOEC-Il-OIRKX-O
MACltl 21(11'186) 84-0C.,-16 16"'6 PAGE 29
OIRKKD.PIl
22-II:P-76 81.41
'I'J
CHECK THU' DRIVE II SUPPLIED IIITN POIIER-DPL BIT
1461
1468
1469
1418
1471

1472
1473
1414
1475
1416
1471
1418
1419
148'
1491
1482
1493

885236
80524'
805244

8118483
884'711
184e85

e05246
e.5258
8.5254
•• 5256
.'5262
885264
885266
8e5214

885eel
.32711
.01 •.18
1"4417
'052'1
891311
'177]1
1.4816

821718

III

"'U"

CLR

. . . .11

174.14 •• 1112

.e5216
0053ee

BIT

8RI
DELAT
INC
Bill:
IIOY
IRROR

Rl
1t8'"R'

Ut4

,TIME DELlY
,1I1IT rOR R/IIIS ROY

fRIOS, 'REG'
16

'GET RKDS
'Rill" ROY DID 10'! SET .FUR
,DRIVE RISIT. DflIVE RESEf
DONE
,TO CHECI( 'DPL'BIT • TRII fliT
HS lOt rOR CRICKING DRIll Ollt.
,U IIIGBT IIANT to UIE THE TElt PIOVIDED
, rOR CBECIING DRIY! REliT.

"
",."Elt 4

''''''4
184413

t.T4.

1494
1495
1496
1497
1498
1499

lStl

005)02
885U0
"85U4
805328
.85322
015326

eUl17
,,,n8e
0)218"
B814el

88ll5e
1741'12
.82e.e

A1I4737

0'011'

"05])8
0053)4
885])6
00514.

0n'''"
.0100.
'111)7
1040'"

08488.
11]71'

881162

085346
0"5354
IUI5356
Be5362

B32717
88U"]
0"4H7
18U14

e80"4'

111152

IIOY
IIOY

174838

BIT
8EO
JSR
ERROR

104"86

BIT

ttl

8NE
MOV
ERROR

DRIV1D,fRIDA
.RKDS,RB
U.IIJ,R8
11
PC,GT3RG
6

1411f/",RI2I

'RKDS, IREG8
1

1512

lSt)
15H
1515
1516
1517
1519
1519
1520
1521
1522

!IA'

CffEC« THAt 'DRIfE u...atl' II CLEAR, 'III)£N' IS 'Et, 'liPS' I. CLEAR

SCOPE
cn.REIIT

1493

1580
1581
1502
15113
1584
1505
1506
15111
1581
1589
1518

,DID RIIIIS RDI an 11'1'1

'flEI, Exn

,ll
Rl

................................................................
..............................................................

1484
1485
1486
1481
1488
1489
1498
1491
1492

• OK, DPL lOT SET
,GO, GET RKCS, ER, OS
,DPL
or RIDS II SU, CHECI ORnE 'Ollllt

SR
JIR
ERROR

BIT
IEQ
JIR
ERROR

2 ..

028782

,GO, DO COR'rROL RESEt
,THI' IS A C1LL rOil fRE 'CRtRL,REltt' ROUUIE. A COITROL RESEt II
,IIIUII) AND lrtER A CERtUI 'fIMI
,Ir TIlE 'CURL ROY' DOE. lOT ' I t
,AN ERROR II REPORTED. NOtl: 'fHAt
, THE PC IN ERROR MISIACI I, THE
,PC IIHERE 'CNT.REIIT' I. LOCATED.
.tHII II 1 YERI BlIIC' ERI , IF It
,0cCORS GO B1CK TO r!l'1' 18
,aEt DRIVE ADDRESS
,CET RKDa
,IS 'DRU' BIT or RIDS SET!
'NO
,GO, GET RKCS, ER, D'
, 'DRU' BIT or RKDS II iEt, CHECI
,ORIY 8f PUTtIRG RUN/LOID
TO L01D
I THEN BACK TO RUN
I IS ·HDEI" I n SEtt
,YES, IRANCH
,GET RKDI
'~RROR, 'RI'S' BIT II Not 8I:!

.11

. . t"RKOS
Tars
PC·,GT4RG

lIS 'liPS' CLEAR?

lit

J 'WPS'-WRrfE PROTJ:e'l' sutu.- BIt or

r ,ftS, !xU'

, GET RKCS, ER, OS, 01

, or RKD• • HOULD BI CLUR, Ir tRII DRIVE

,1' IIRITE !MAILED, CHECK , SEE IF THII
,DRIVE IS IIRITE ENABLED, IF IT II NOT,
, WRITE ENABLE IT.

MUNOEC-tt-OZRKK-O
MACYtl 27( 1IIl86' 84-0CT-76 16.06 PAGE l"
DZRKKD.Pll
22-SEP-16 "8.41
TI
CHECK THu 'ORIVE RElDY· 11 SET IN RKO'
1523
1524
1525
1526
1521
1528
1529
1510
15)1
15)2
15]1
1514
15)5
1516
1517
15)8
1539
1548
1541
1542

...............................................................

,.fE.T !I

885J64
0"5366

8001104
'04413

0"5]70
1185376
"05482
0"5404
885418

811777
185777
10040)
8"'41]7
104010

1578

CHECK THAT 'DRIVIE READ'· II SE! II RKDI

TST5.

SCOPE
CNr.RESET

,GO, 00 COIltROL RE.n
,THIS IS 1 CALL ,.OR THE 'CNTRL,RESET" ROUTINE. 1 CONTRin. RESE! IS
, IS.UED 1110 AF!'ER A Ct:Rt'ltli TIMI:
,lr THE 'CIfRL RDI' DOli lOT SET
,AN ERROR IS REPORtED. MOTl! tHAt
,THE PC IN I!!RROR MESSlCI IS THE
,pc !lHtRl!! 'CIT.RESU' IS LOCAtED.
,THIS IS A VERI BlSle EftI' , IF
,OCCURI GO B1CK TO 'fElT Ie
, ADORS THE DRIVE

88U511

17)742

MOY

173724

TSTB
8MI
JSR
ERROR

020182

1543
1544
1545
1546
1547
1548
1549
1558
lS'U
1552
155]
1554
1555
1556
1557
15158
1559
156'"
1561
1562
1563
1564
1565
1566
1561
1568
1569
151e
1571
1572
1571
1514
1S75
1576
1577

8I:Q lIn

, I •••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

"
8""084
011717
005801
"'32717
801006
0"52111
1101]72

8177)7

000'0"

11]662

11]711
173674

11111162

11'41111

CLR
8IT
8NE
INC
aNE
MOY
ERROR

DRIYlD, 'RKDA
RI
,RKOS
TSTl
RI

,lDDRS THI DRIVE
, INITIALIZE COUNT rOR tINIIC WAIT LOOP

'4"8,

,II SOK .Et?

J WAITED LONG'
,GEr RXDS
, WAITED LONG BUt 'SEC OK' BIT DID NOT
,SET

'RKDI, 'REGe

"III!
,110, !lAIT

...............................................................

,.TEST 7

"08"'04

SCOPI:
MOY

til

0115450

CIIECft tHAt 'SOK' lIT ClN SET
,. THIS rEst CHECK' THAT WITHIR A et:RTAIN TIMI:
,. ' SOl' II 'f CANSI!', I,. I! DOh NO! AN ERROR II RSPORtED

..•..............................•..•.......•...•.••.••••••..•.

TlTII
.01358

,rl '01'1' lET?
IIYI!!S, 01
,GO. Ott RICS, ER, D., DA
, 'DP,' Not SET

,
"'
...............................
_...............................

,.TE'T 6

005412
.05ti4
1105422
085424
085432
O854)4
"85U6
885U0
0115446

DRUAO, tRJl:DA
'RKDS
TlT6
PC, Gt4RG

CHECK THl'l' 'SECtOR COUNTER' CAN COUNT rROM 8-13
,. THIS TEST CHECKS TH" THE SECTOR COUNTER CAN COUNt rROM
,. 0-U
, . 1) rIRST, rOR INITIALIZING PURPOSts THIRE II A TIMED LOOP
I. DURING WIIICH SECTOR COUNTER SHOULD COUIT DOWN '1'0 e. I f tHII
,. lS IIOT DOlE AN ERROR IS REPORTED
,. 2' AFTER • COUIIT 0,. " IS REACHED, rHt PROe:UM WAIT.
,. FOR A CERTUN TIME, OURINe: IIHICH THE SEC COUlTER
,. 18 SAMPL'::D. I" THE :OUNTER DOES NOT CHANGE WITHIN THIS
,. TIME PERIOD AN ERROR IS REPORTED.
,. 3) UPON ,.INDING THAT THt COUNTER HAS CHANGED, IT IS CHECKED
,. 1" IT INCIIEMEIITI!!D CORRECTLY.
Ir IT DID NOT AN ERROR IS REPORUP
,. 4) IF IT INCREMENTED CORRECTLY, THE PROGR1M AGUN WAITS IN A
I· LOOP TILL THE COUNTER CHAMGES. (STEPS 2,),4 ARE REPEATED
,. TILL THE COUNTER COUNTS UP TO 13)

....................................................................

TST71

SCOPE

MACYll 27(186) 14-0C!-76 16116 PAGE ] t
IIIUIJDEC-II-DIRKl-D
!7
CRECK !HAT 'SECTOR COUNrlR" CU COUIfT FROM '-1]
aa-ISEP-16 .1147
DIRItKD •• U
1579
158'
ISlt
1512

"545~

l.t4U

8.5454
885462
".5466
88!1472

811777
81]7o,
105817
815805

181358
1111326
1101356

".5474
O81580

812704
O1270]

177764
880081

CNT.REIET

1584
1585
151'
1517
1588
1519
1598
1591
1592

1594
1595
15,6
1597
1598
1599
16oO
161111
1692
1603
16e4
16115
16e6
16e7
161118
161119

UHJ
1611
1612
1611
1614
1615
1616
1611
1618
16t9
16211
1621
1622
1623
1624
1625
1626
1627
162'
1629
161"
16)1
1612
16))
11'114

885584

8051137

801368

8,,!l510
8115514
".5516
0.5522

11052)7
'0144111
005217
1111111441

111111356

11115524
0"5526
".5532
"855)4
111115536
0.5548
"85544

01181111
032701
11101771
821081
801363
8437"1
"o1357

0.5546
885550
885552
".5554
885556
81115560
""5564
""5566
"115510
"O5572
885576
88!161118
"85682
"05604
11111561116
''''!l610
1111115b12

00'5204
11101447
li10'1205
"'''411
1111002
1113271112

lU656

111

OO136.

211

01111114.8

177768

III

.11
.811408

11,,1172
021802
0"U7"
1'4271112
"2111201
81'1764
''202''3
""11123

""5614

0"5203
"o5201
1II"!10"!
000754

8.5b16
8.5622

010131
,164012

177760

''''1162

MAClll 27(1806)
MA t~DEC-' I-OIIIICIC-O
22-SFP-16 . . . 47
DIRKKD.PII
1635
16)6
1611
1618
16)9
tU0
1641
1642

1643
1644
1645
1646
1647
1648
1649
1650
Ib5t
1652
16! )
1654
1655
1656

"05624

111"0421

1105626
"05614

"17717
104''11

005636

"160414

805640
805644
0056511

810217
81111117
t1ll41H)

11105652

P"110406

8"5654
"0566"
005664

IH0337
IH0ll7
104814

IIIB5666

"160747

171474

0"1162
101164

0111162
11"1164

001162

1682
1681
1684
1685
HI!6
1687
1688

1699
1690

MOV
MOY

'-14,R4

CLR

IlIon

tNC
aEO
INC
lEO

INOXl
68
IlIon

1t,1Il

MOY
BIT
B!Q
CMP
8NE
BIC
BNE

'R8,Rl
1480,Rl
2.
.R.,Rl

INC
BEO
INC
BEO
MOV
BIT
BEO
CliP
aNE
alc
CN'
IIEQ
CMP
BNE

R4
TS'U'
R5

111116'.,Rl

tR',1I2
1488,R2
.R',R2
4.
'1177&11,12
R2,Rl
41
R2,Rl

,GET RItDS
, II 'SOK' SET?
INO, WAIT rOR IT TO lET
,MAIti SURI: THU 2 CONSECUTIVE
,READINGI or SlC-CNTIt ARE SUE
IYEI, MASIt OUT NON-IEC cnR BITS
,IS IT .I:CTOR It, IF NOT LOOP BACK ,
,WAIT rOR .ECTOR III
.KEEP TUCK or 8ECTORS CHECKED
"EXIT,IF ALL lECTOR. CHKO
,KEEP TtNING rOR 'ERROR l6'
,IR , RI.ORT ERROR IF NUTEO LONG
,GET RltDI
,II SOK .1:17
,NO, Nut rOR SDK
,NUE SURE THAT 2 CONSECUTIVE
,RIADING. or SEC-CNTR ARE SAME
,MASI( NOII-SEC-CItTR BITS
, HAS IEC CllrR INCREMENTED!
,NO, NAIf FOR IT TO CHANGE
,YE8, DID n INCREMENT CORRECTLY?
,110 • REPORT ERROR

IffC
IIIC
CLR
8R

III
111
R5

rrNCREliIllIT -NEXT I;OUNT,INCRIMENT -PRIYlOUS COUNT"
f INITIALIZE AGUN rOil TINING 'IRROR l I '
,GO, CHECK THE NEXT SECTOR COUNT

III

MOV
[IlROIt

fll,IRIG'
12

fGET 'SEC CNTR'
,IIAtTED LONG, aOf SECTOR COUNTER

84-0CT-76 16.O6 paGE n
CHECK THU 'SEC'I'OR COUITI:It' CAN COUNT FROM '-11

7 ..

.,
"I

IIR

tS!t'

MOV
EIIROR

.RKOS.IREGe

,DID NOT
"txn

coun fO II

,GlT RKDII
J II AI TED LONG, BUT 'SDK' IIIT DID
,NOT an

BII

TSTU

"UIl'

MOV
MOV
ERROA

R2,UEal
R],II\iCI

TSTU

,GET SEC CNTR (PRElENT COUIIT)
,GET -NEXT COUNT"
,WUtED LONG. BUT THE SECTOR
'COUNTER DID NOT INCREMENT rROM
,THE PRESENT COUNT TO THII!: N!:XT COUNT
,fEXIT

MOY
MOY
ERROR

Rl,IAEG'
12,IR£ll

,GET 'NEXT COUNT' !SEC CNn SHOULD BE THIS)
.GET PRESENT COUNT (WHAT SEC CNTII IfU)
,src CNTR INeREMENTED WRONG, DID
,IIOT INCREMENT rROM PRESENT COUNT
, TO NEXT COUNT

, f····· ••
"TEST 10
CHECK TIIAT IIC-'A CAN BE GENERATED
J' fHIS TtST CHECKS !IIAT IC-U CAN BE GENERUED rOR
, . EVIRY lECTOR
, f······· ...............................
TITUI
SCOPE
,GO, 00 CONTROL AUET
CRT.AISET
J THIS IS A CALL rOR THE 'CNTRL,RESET' POUTINE. A CONTROL RElET 18
,ISSUED AND ArtER II CERTAIN TIME
,IF THE 'CNTRL ROY' DOES NOT IIET
,AN ERROR IS REPORTED. NOTE tHAT
J THE PC IN ERROII MESSAGE I. THE
JPC IIHERE 'CNT.RESEt' IS LOCATED.
,THIS IS A VERY BASIC ERR , IF IT
,OCCURS GO BACK TO TEST 10
MOV
OllIVAO,Rt
NOV
RKDS,R0
MOV
,INITIALIU COUNT fOA • or IItCTORS
'-14,11)
1*,
MOV
,ADORESI THE OAl VE
At,tRKOA
CLR
,INITIALIZE COUtfT - FOR TIMING ERROR
R5
21,
INC
R5
,KEEP TIMING "011 EIIAOR
]I
BEO
,REPORT ERIIOR IF WAITED LONG
MOV
,GET IIKDS
.RI,Rl
BIT
f IS SCaSA SETl
1l"RI
,NO, IIAI'I' rOil IT
IlEO
21
41,
f ADORS THE NEXT SECTOR
INC
R4
R)
• AliI' IILL SECTORS CHEelCED rOR se-SA
INC
BNt:
,NO, GO " CHECK NEXT
11
BR
UT11
"US, EXIT

··.* •••••••••••••••*•••••

"05670
"05672

""8004
10441)

B1I5674
1'1057"0
11105784
8"!710
81115714
005116
"05720
fl8!72:i1
1185724
0"57311
01157)2
""5734
"05716
005749

11)7".

005742
USH6

tU4]7
811'1131

IU37"0
8127')
810477
iJ8501!15
805205
001410
11111101
032781
11101 772
1118531114
110521Jl
II'" )64
111"'4116

801350
IIU 326
177764
173424

8008'111

1101162
11101164

MOVB
MOV

R4,IfIEG0
At,UtG!

It"

.INUULUE
,'COUNT' - TO fIMt 'EIIROII 3!S'
,INITIALIIE 'COUNT' - TO TIME
f 'ERROR 36' (NIIT LOOP)
rINtTIALIZE "COUNT" - rOR THE 12 IECTORI.
'Al COIITUNI TIE 'NEXT' COUNT or IEC-CNTR
,R1 CONTUNI THE 'PREVIOUI" COUNT or IEC-CNtR
,RZ CONTAtNS THE' 'PRESENT· COUNT OF StC-CNtR
UllIn ALliE 'COUNT' - TO TIME
,(WlIT LOO') '!RROR U'
,ItEFP TIMING rOR 'IRROR 35'
'BRANCH' REPORt ERROII IF WAITED LONG'
JItEEPtIMtNG rOR "ERIIOR 34'
JBRANCH , RKPORt' tRROR IF WAITED LONG'

**••••• *••••••••••••••••• **.**·*··**.*••••••••••••••••••

1672
1673
1674
1675
1676
1677
167'
t679
1698
Inl

DRIYAO,.RICDA
RKDS,R8
IIIDXI
115

511

t6~1

1659
1659
166"
1661
1662
1661
1664
166!
1666
1667
1668
1669
1678
167t

MOY
1I0Y
CLII
CLR

liD,

,GO, DO CONTROL RESET
'THIS II ,. CALL rOR THF 'CNTRL,RESET' ROUTINE. ,. CONTROL RISET II
I ISSUED AND ArTER A CERTAIN TIME
f IF THE 'CNTRL RDJ' DOEI lOT 51!:!
f lit ERROR II REPORTED. NO!! THU
,THE PC IN ERROR MESSAGE II THE
,PC WHERE "CNT.IlESET· IS LOCATED.
fTHII IS A YERY BAStC ERR' IF IT
,OCCURS GO BACK TO TEST 18

I GET neTO" ADDRESS
ICET II~DI

lEO fJlJ49

MACnl
tllINOEC e l1-0IRlCIt-D
22-SE.-l, .8147
OIRUO.Pll
1691
1692
t693
1694
1695
1696
1691
1691
1699
1110
1101
11112
170]
17,4
11.5
1106
1781
1108
1189

1710
1111
1712

885152

10UU

0"5754

.'0166

neu,,,,

.4-0CT-76 16186 PAGE 3l
CHECK THAt
Cli BE GtlERATED

se-"

'U.

ERROR

800"84
184411
0U111
805801
811700
832188
'''1'''5
0"'281
HUll
'1,,,)1
1114016
032700
O014".1
.04137
104"81

'1'St111

0'U5'

nus.
tel

17UlI
.18180

801162
281

001.""
11128,.2

tie

CHECK tHAT 'RIIIIS ROY' 11 IU ,

ICOPE
CNT.RIIEf
DRnAD,IAKDA
MOY
Rl
CloR
IRKDI,AI
MOV
BfT
'U0,A8
8NE
2e
Rl
INC
BNt
U
RII,IREG"
MOY
ERROR
Ii
BIT
'U8.,IUI
BEQ
UTn
PC,Gt4RG
",SR
1
ERROR

i~;:
1715
1116
1117
1118
1119
1720
1721
1722

,GO, DO CONTROL RElET
,ADDRESS THE DRIVE
,GET RKOS
,IS R/IiIS ROY SEn
rYES, 8RANCH
,IIlITED LONG tHOUGH?
,IF NOT LUP BAit , IIAIf
,GET RKOS
,RIIiIS ADY Ili0ULD Bt IE'
J IS SIN CLEAR!
" n s , EXIT
,GEr RKCS,ER,DS,DA
" SIN' SHOULD HAVt BtlN CLEAR
j IT ~AS NOT C:":"R
,NEXT TEar IS GOIIIG 10 CHtCK
,DRIVE RESET, lIN SHOULD Bt
,CLI!:AREO THEN. IT IIILL IE catcnD
,THtRE.

.................•••......•.•.............•.......••..•.......•

"
8060)2
"1116014

"""084
104413

81l60l6
00"'42
006844
006052
8"'8"

"U""
0"501l4
O13177
012710
104412

806860

10482t

.......•....•...••....•.....•...•...•.•.....•...........•••....

TITU,

SCOP!!
CRt. RESET

17)4

11)5
17)6
lHl
17)8
11)9
1140
1141
1742
1741
1744
1745
1746

'Sll' II CLEAR

CHECK 'DRllE, RtSET'
,.TIIT 12
,.'HIS TEST CHECKS THt VERY BASIC DRtvE RU!!T LOGIC.
,.SIIICI: 'HI: H!tADS ARE U CYLIND!!JI 0 (GOING INTO THIS
,.TEIT) DRIVE RESET RETRACTS THtH BACK 8EYOND CYLINDER "
,*ArtER IIHICH THEY ARE PUSK!!D rORWARD TO CYLINDER 0 AGAIN.
,.IN THE t.UER PART OF THIS PROGRaM fKERE IS A DRIV!: REIIET
,.TEIT WKICM 00£. 'l'HE R£l1tT FROM LAST CYLINDER.

1723
1724
1725
1726
17'21
1728
1729
17]0
1711
1732
17U

11:0 •• 11.

,COULD NOT GET IC.U FOR TaU
,'lECTOR lDORESI'
I GO CHI FOR THI! RES'

,
,,••....•.•...•.....................................••..•.......•
,,...............................................................
,.TElf 11

885156
805761
185162
005110
005112
805116
'060"2
086804
0,,006
00'"10
086014
0861U6
O06022
086.24
186030

RKCS,A0
NOV
Jt4
CLR
DRIVAD,IRI(DA
MOV
MOV
115,11'10
CHltCRDY

001.132
"0U58
0"0815

173266

ERROR

,GO, 00 CONTROL RElIT
,tKU II A CALL rOR THE ~CNTRL,REISET' RounNE. A COMIROL RElET IS
,IIIIUED AND AFrER A CERTAIN TIME
,IF 'l'HE 'CNtRL ROY' DOEI NO'l' lET
,AN ERROR IS RePORTED. "on THAT
,THE PC II ERROR MESSAGE IS TNt
,PC IIHERE 'cn,REIEt' IS LOcATED.
,tHU IS • VERT BAlIC ERR , IF IT
,OCCURS GO BACK TO TEn 1IJ
,INUULU C.OU"f - TO TIME ERROR
, ADD Rill THE DRIVE
, 'DRIVE REftT', GO
,GO CHECf(
CONTIIOL ROY IS SET
J IF
IKI. THE EROR MESSAGE.
: CHTRL ltD! DID NOT SET AFUR
,SEND INC! elL ADDR to THE DRtv.

so,

MAINDEC-t I-DZRKIC-D
IIACYII 27 (1111"',) 04-0C'I'-16 .16,86 PAG! H
'1'12
CHtCtt 'DAlVE, RElStT·
22-SEP-16 tel41
DIRUD.Plt
1141
1148
1749
1750
1751
1752
1753
t 754
1755
1756
1151
1158
1759
116O
1161
1162
1763
1764
1165
1766
1767
1768
1769
1710
1711
1712
1713
1714
1715
1716
1717
1118
1119
1780
1781
1782
1781
1784
1785
1786
1181
1198
1789
1190
1791
1792
1193
1194
1795
1196
1191
1798
1799
1800
181111
181112

032771
001005

080100

0061162
006070
0060'2
006074
01il61iJ16
01il6l1J2

001312
O04137
104..,26

02011112

086184
006112
"'06114
006120

"32771
"0140)
""'4711
104001

1112"782

006122
006126
0"6ll"
I/IIJ6134

032710
001403
004717
104022

113216

211

006136

022710

006142
006144
006152
"06156

001406
012137
8110)1
194024

",ueIll8

173214

14"0"8

808214

BIT
BEQ
JSR
ERROII

1t01hlRKDS
JS
U
2.
PC,GT4RG
26

'Ulle,aRKDS

PC,GT4RG
1

581

BIT
BEQ
",SR
ERROA

• 1400.0,tRrI
U
PC',G!'4RG
22

4 ..

CMP

U14,IAI)

8EQ
MOV·
MOV
ERROR

tSTIl
1214,IRECIII
IR',IREGI
24

0201"2

.88214
ell 164

BIT
BNE
INC
BNI
JIR
EIIAOR

0~!\204

11101162

SEO 0051
, • ADO ACK' SHOULD HlYE COM!! 81CIt
,,.'OM DI'IVE. THEREUPON SETTIJIG 'CN ROY'
,DID R/lf/S ROT lET?
,YES, BRANCH
,WaITED LONG?
'IF NOT LUP UK , IIUT
'CO, CE'!' RKC', ER, OS, DA
,R/W/I ROY DID NOT sn AFTI:A
,DRIVE RElEt
,DID IIII SET1
:,.0, BRANCH
,GO. GET RKCS,ER,DS,DA
,SIN SET, lFTER A
,DRIVE RESET.
,liAS 'ERA' BIt OR 'HE' sn SET?
,NO
,GO. GET RKCS. EIII, OS, OA
"ERR' OR 'HE' sn IE'!' WHILE DOING
,01'11 VE RtlltT
,OOU RKCS STILL CON TUN '!'HE
,'ORIV RtS' BITI
"YES, EXIT
:GET EXPCTD RKca
,GET RKCS, RECVO
,NO - RI(CS SHOULD CONTUN THE 'DRIV RES'
,FUNCTION, ERROR If DIFFIRENT.

" ••••••••••••••••••••••••••••••••••••••••••••••••••••••••••*••••

,.tEIT 1)
CHECK "EEK' TO CYlolllOER "
,. THIS teST CHECI(I THE lEEK LOGIC DOING I£I:~ TO CYLINDEIII 0.
,. NOTE tHAT SINC! THE HEADS lRE ALREADY ON eYLIIDtR 0, NO
,. HEAD MOVEMENt II INVOLVEDN AND THE STRESI 11 0111 THE BASIC SEEK
,. LOGIC.

006160
086162

............•...•......................••..•.•...•.•.••..•.....

000004
104411

TITIJI

086164

104421

006166
006172

013700
013717

01111332
0013!10

"0620"
"06204

.12710
104412

01118011

"06206

104021

ICOPE
CNT .REIET

TST.SIN
11314"

MOV
MOV

RKCS,R0
DRlYlD,IRKDl

MOV
'lI,IR"
CHKCRDY
ERROR

,GO, 00 CONtROL RESET
,THIS II A CALL FOR THt 'CNTRL,RESET' ROUTINE. A CONTROL RESE'I' IS
,ISSUED AND ArTER A CERTAIN TIME
,lr THE 'CIllfRL ItDY' DOts NOT StT
,AN ERROR IS REPORTED. NOTE THAT
,THE PC IN ERROR "tSIlG! IS THE
,PC WHtllE 'CNT.RESET' II LOCATED.
,THIS IS A VERY BASIC ERR" IF IT
,OCCURS GO BACIt TO TEST 1111
,GO CHECI( IF SIN Itt. IF sn
,,, 00 ORtvF RI!:SET TO CLEAR IT
,ADDRESS THE DRtvE
, 'SEEK' GO
, GO CHECK IF
, IF 80, SKIP
,'CNTRL ROY'
I CYL AODR TO

CONTROL ROY IS SET
THE EROA MESSAGE.
DID NOT SET AFTER SENDING
THE DRIVE, 'ADO ACK'

110 ..112
1811
18,4
lI,5
1t16
18,,7
18.8
lI,9
11111
lIti
1812
1811
1814
1815
1816
1817
1118
1819
1828
1821
1822
1923
1824
lI25
1826
1821
1821
1829
18]8
1831
1832
183]
18)4

18)5
18)6

,SHOULD HAYE COME IACI( 'ROil THE
,DRlYE, THEREUPON 8I:TTIIIC 'CIl1'RL ROY'
2,.

816218
8116212
81162211
"6222
886224
.86226
.'6232
.16214
816242
.86244
"62'SII

885885
1132777
8'11"5
'.52'5
'8U72
1114737
1!J4f26
• 32777
"1147]7
184.81

.21702

816252
'862'S6

IJl21U
1181481

1418.",

. . 6268
1186264

11847n
1"4122

8217112

.16266
'86272
816274
116188

115777
• ,,14fJ
8• . , n
184.21

"1161.2
0063.6
110Ut0
086)16
0116122

0227111
"01406
1112737
8t te37
1114'24

'''1483

1811111"

.2117112
11'181"

11]". .

4'.

83871.
8111112111
800211
1i10t".

BNE
IlfC
8lfE
JSR
ERROR
BI1'
BEQ
JIR
ERROR

5',
8111112

18)7

115
111'8,'"KDS

31
R5

2. . 2
PC,Ct4RG
26
. . . . . ,.RII:OI
U

PC.GtOG
1

BIT

1t4. . . . ,.R.

SEO

JIR
ERROR

PC,G1'4RC
22

TST

IRKIR
5•
'c,eTJRe
2l

lEI
JSR
IRROR

19)1

CM'
BEQ
Mof
MOV
IRROR

'U"'R.
'fIf14
n18"RIG8
,R., . . IGt

,DID 1I/lf/S ROY BIT u n
,lEI, BRAMCI!
,WUTED LONG EIOUGH?
r IF lOT, LUP ell! , WUT
,GO, GCT RKCS, ER, 01, DA
,R/W/. ROY DID NOT Itt AfTlR SEEK
,IUD SII SEtr
,NO, aRAliCH
,GO. GET RKCS,ER,DS,DA
,,111 SET ON DOIlG StEil.
,to CIL " NOTE 1'HIS IS THI:
,rlRn TIME THE HEADS HA"
,BEIN MOVED

,WAS 'ERR' OR 'HI' B11' 8ET~
,GO, CET lutCS, ER, OS. Da
,'tRR' OR 'HE' BIT SI! WHILE DOUG '1111('

,iI"
,.,0 ANt I!IIT tN RKER snt
,co, GET RKCI, tit, DI

,RKER SHOWS Alf ERROR atT, ClICK
,DOES PICCS SULL COlifUN 'SIEK' rUNCnON
nUS, EXIT

,GEt EXPCTD RICCS

,lOp RKea RECYD

,NO. RKes IHOULD IE STILL CONTUIING
,'SEIK' 'UICtlON IRAOR - IF It CHANGED

...............................................................
,

,.fElI 14
CHICK R/II/S ROY IS CLEAR IIHEI HEADI lRI '" MOfIOI
,.'HII Tl:Sf CKleu fHAt 111111 DOES CIT CLEARED
, ••HEI fHI IIUDS AliI II ~IOM. IINet: '''DYE L' 01
(RI,5) GUElllTltl TIts SIGNAL, AIIIIICE
,.11/11/1 RDI-CUAR COULD M"'. l rAULT 0" 111782
,.WNUI 'MO.l L' II GI'!ICRATID.
,.10tl TIll II IIIE rIRIT' fIliIl: HIADS ARE MADE TO MOVE BY SI'!EKING
CfLIIIDIR I.

18)9

1940
194\
1942
1843
1844
\945
1946
1841
.848
1849
185111
ln1
1952
1851
ln4
1855
1856
1857
lUI

1718)6

CLR

BIT

1nl16

,."77"

"
886324
8"126

,.to
................................................................

TatUI

"".084
U/44U

IeO'1

cn.ItCln

,GO, DO CONTROL RESET
,THU IS l CALL rOR THE 'CNTRL'~EStr' ROUTINI. A CONtROL !tElET 11
,ISIUED liD AfftR A CERUlli TIllE
• IF fill 'CIITAL ADY' DOES lOT SET
.AN ERROR U It!PORTED. !fOtE TItAT
,tH! PC r. ERItOIt MESSAGE 1* THE
IIHIRI 'CMT.AESIT' IS LOCATED,
,1111 IS A VERY BASIC ERII , Ir I f
,OCCUI'S GO UCK TO TEtiT 18

,pc

MU"D£C-J I-D1RKK-n
MACYll 2H1811' "'-OC'·'6 tic,. 'AGE U
DZRKKD,PII
22-5£'·76 88.47
T14
CMECI( R/N/I ADY II CLEU IIHU HEADS ARt IN MorIOIL

tar,SlI

''''6)]''

104421

1'161

0i1J6ll2

""6)]6

I'841n
11114826

1121412

\862

1HJ6H"
0.,6]42

1185.85

00615"

852711
11\ 178t
"12717
i1127tl
11181415
1852'5

I.ll,.
17271.
881U8 172712

\859

1160
\116J
\11&4
1865

1866
1967
1868
1"69
1810

1871

IBn

U73
1814

"116156
1'186)62
8"637il
1'116374
""637&
"1f64"1
"1f6482
1'1116486

,,'3171

881126
8118111
1.810"

172712

jlR
11'1'0"

'C,DRElEf
26

C:Ll'
NOY

R'S
DAI~aD,'R"'D.
Utl"PlKDA
RKD.,Rl
fll,.'AKe.

au
U.

Illnl

MOV
1I0V

lIT

SIQ
INC
8Pt

.84731
'84821

1128718

8147)7
114.16

821344

u .. ,.u

11177
11118
11179

0U4t"
118"tt

Jsa

Pc,rUPlW!
16

1880

tAU
1982
1884
11185
1886

lIIn

UBI
1819
11191
1891
1892

...............................................................
,.1)
,·U
,,.".,

11194
1895
1896
1897
1898

.
" ...........•.....•..................•..........................

806416
'0.428

11001t.4
11441]

806422

lIlH21

TIT151

ICOPE
CNT,RElET

19.,7
19.8
1919

1918
\9\1

191 )
191 ,

0,.

,."

1199

Ue4
19,,5
19e6

,GO, IIUT 'OR R""/S ROY TO SET
,IIl1l11 RD! DID NOT SET ArTER lEEK
,WlS tRIID TO CYLINDIR 2 (AIOVE) ,
I lion THts 11101 THE "IRIt !IIIE A SE£Il
'"AI TRIED TO A elLINDER OTRIA THU

,.'fL!!1IT 15
CfU:Ck '11UfE' rORMU 'UNCnON-CYLINDER 8, lECTOR 8
,.fHII TlIf· CHlelS fill LDelC INVOLVED III THE IIRIft 'MT
•• FUIICtION, 011 USurlG l WPiT 'NT, THI rOLLOIIlle IS CHECKED
CNfAL ROY "AI CLEARID AI 00 .... In.
,.2' CNTAL ROJ IEtI WITHI' A CEnUI TINE ON COItPLUION
,UNCTION
IF 'HS' OR ...... an .ETt
,·4) IP' RICDA INCRIMENTED C:OIIRICTLY nOM e TO u
IF RICKe OVEII'LOIfID eORIIICT[,t TO . ,
IF RKI. INCPINIIITID COPPICfLY BY 2t
IF awl lIT III RIlER SETr
,.1) IF TH! 'WRT rM,' ,.UNcnOIl IITI AliI SULL IN THI RKCS?
,.10tE Tliar ONl: ilOilO 'U5252' II" IIRITTlII ON SECTOR
,*II .. IT IIILL IE CHICKED IN THI IIU TeaTS.

1891

1911

,AIIIIS PlOY NU IIOT CLEAR WHU HEADti
,IIERE lEEKING TO cn HIDER 2

'''.

1883

1988
1ge1
1912

tI£EK, GO
,DID RIIIII ADY CLR?
: YES, aRANCH

It
PC,GT:JRG
25

ERIOII

,SEEK CYLINDER

JSII
URDA

1975

1976

SEQ 0851

,GO eHECK I" atN 1. lEt
,IF SET DO DRV-RElET TO eLI' IT
I MAKE SURI HElDS R ON CtL II
,R/II/S ADI OIDI'T lET
,AFTER THI AI on; DRV RIIET

TST.IIII

, GO. DO CONTAOL RIIEf
,THIS IS A ClLL 'OR THE 'CNTRL,RESET' ROUTtlE, A COIITROL RESET II
,IISUED AID Anu A CIRTAIN TIME
'lP' THE 'CURL ROY' DOli IIOT nT
,AN EAROR 11 REPORTED, .0Tt THAT
,THE PC IN IRRO" MESSAGE IS THE
,PC IIHIA! ·CIIT.AElET' II LOCATIO.
,THIS IS A VERY 8UIC ERII , If" IT
,OCCUR' GO I!IACK TO TEST 10
,GO =HECK Ir 1111 IS sn
,IF In, DO DAIVE Run TO eLI! IT

MUIfDEC-U-OIRIK-O
MACYll 21(10'86) 84-DCT-16 1611" PAGE 31
OZRIUI'D.Pl1
22-SE'-76 .8141
T15
eRECK -IiUTe' FORMAT rUNC'fIOII-CYLINDER 8, SECTOR 8
1915
1916

.06424

8127"3

MOY

8332411

.00T80r,R3

I'll

StU
1919
192'
1921
1922
1923
1924
1925
1926
1927
1928
1929
193'
lUt
19)2
19])
19)4
19)5
19)6
1931
1938
1939
1940
1941

1942
1943
1944
1945
1946

1947
1948
1949
1950
1951
1952
1953
19,4
19S5
19"
19s7
1958
1959
1960
1961
1962
196)
196t
1965
1966
1967
1968
1969
1970

,THIS CODE sETa UP A 256 IIOAD BUFrEP
,WHICH IIILL BE USED TO if RITE 1 SECTOR
,ON THE DIU
U.IIU
,1.t WORD
177777 2" COMPL!IIIENT
,2"0 WORO
.80 •• 2 OF lion
,JRD WORD
177776
,4TH liORD

. ..

.2SlRD WORD
,254T8 IIORD
,2SSTH WORD
,256TH IIORD

816418

8127.8

0"434
0"6436
0'644'
006442
"'.6444
"86450
"'86452
."6454

1".0U
.10013
80'4U
•• 52""
"227""
1127U

125252

""646'
•• 6464
0111647.
086474
806476
.06504
.06512

I,. 2783
el171111
813782
01111312
112777
8U777
012711

.3324.
'01H2
'.lll6

006516
0"652'
.06522
0"6526

1.5711
100081
0841]7
1.401"

8"653'
"06532
006514
."65)6
."540

'''''8.0
1.5111
108411
"052'"
"aU74

0"6542
006546
""6554

'''47)7
"U717
104416

.06556

184.31

.06568

","4717

806564

U'4012

"1371

88S081

'ti

1774"

",use
002013

"ET COUNT

MO'
MOY
NEG

R8, (Al).
R.,(Rl)
(RU+
R.

,SET UP DATA WORDS

CM•

CLR
MOY
MOY
MO'
MOY
NOY
MO'
MO'
NOY

172630
1'2626
I ..

'1'118

BPL

.2871'

ERROR

211

CLR
I'ITa
8NI

11Ie:
82.782
"0U58

.1113.2

,.n ••

,R8

,DOME!

(RU.
'12I252"R'

,SET 25ITH WORD TO •
,SET 256TH 1I0RD

'O~Bor,RJ

,REsn POINtER TO OUTBur

Rles,IU
RIt8A,RZ
RI"RZ
'-4N,tRIIfe'
DRnaD"RKDA
n.8),IIRl

,rROM HERE-'!T UP CURRENT ADDRESS
,In UP 1I0RD COUNT 4'8 1I0RDS
"ET UP DiSK ADDRS, 'EC'fbR 8, CYLINDER 8
,IIRITE rORNn, GO

'R1

pc, GURe;
3e
Re
'Rl

II
Ie

Bill

2h2

.JaR

PC, Gr41G
DAlYAD,IRIOU

110'
B"KOlt

III

IJ2U42

ERROR

."1'

PC'fCHKHI:

ElUtOR

'liAs 'CIITRL RDI' CLEARED AS GO illS SET'
,RS, BRANCH
,GO, GET RKCS, ER, OS
,'eNTRL RDI' DIDN'T CLEAR AS GO
,IU SET to 'IIRlTE rORMU"
'liAS 'CNTIU. ROY' SET ON COMPLETION or IoIRITEJ
,tES. BRANCH
,10, If AVE U lIutED LONG ENOUGH?
,IP' NOT, LOOP lACK" WAIT
, IF YES, REPORT ERROR
GET RICS, ER, DS,DA

,GO,

,GO 1'0 'BDU' 'BREAK CON TOTS or
,IREGI. lUG DR ',CTL,SUR,SEC BITS
, 'CURL RDY' DIDN'T SET ON eONPLETlON
,or 1111.11'1 FORIIAT
, NAT rMT illS DONE STARTING AT CDSIC-ADRES>
, INDICATED IN EROR MSGE.
,GO CHEe< IF 'HE' OR 'ERR' BU SET,
f IF YES, laVE RICCS, Ell., OS, DA.
,RETURII HIRE IF ERROR.
, 'HE' OR 'ERII' BIT SET IfHILE DOING

IUINOEC-I1-DZRKIC-D
IIACYII 27(1086) .4-0C,,-76 ·Ut1l6 PACE 11
O!RKICO.Ptl
22-SEP-76 tl14'
'I'll
CHECK 'IIRITE- FORMAT FUIIC'UOIl-CYLtNDER "
1971
1972
1971

1974
1975
1976
1977
1978
1979
19,.
1981
1982
198)
1994
1995
19B6
1987
1988
1999
1990
1991
1992
t 91Jl
1994
1995
1996
1997
1998
1999
200"
2"",
20"2
20")
2"94
2"'85
2086
2",,7
2.,,8
2",,9

8116566

111"4737

806572

1IJ4"U

.2117.

4'1

511

JSR

022112
001406
lH2737
IU12)7
1.4835

11114240

6 ..

CliP
BEO
MOV
MOY
ERROR

"06624

094731

.212511

7 ••

JIR

0"6610

UH036

8"6632
006616
806640
."6646
006652

022711
001486
012737
0111]7

.02282

881

CMP
BEQ
NOY
NOV
ERflOR

804717
1.4.34

8.6602
0"6606
006610
"06616
""6622

104.Z4

ERROR

nU40
.el164

".1162

ERROR

.82282
"81164

".1162

lECTOR III

JA IIRITE FORMAT
,IIRT 'NT WAS DON£ STAR'UIIG AT COSK-ADREI>
J IND%CUED IN EROR MSGE.
,GO CIfECIC Ir RKba INCREMENTED CORRECTLY
'C.. CHIDl
, IF lOT,. RI:'J'URN HERE.
U
,RKDA SHOULD HAVE llfCRINENTED BY
, I SECTOR, IT DID NOt
PC,CHItIlC
,CKECIt IF 11011.0 .COUNT OVERFLOWED, IF
,lOT RE'J'URII HERE.
It
,RUC DID NOT O\'l:RrLOII '1'0 " AFTER
,xrER 011 1111. IU FORMAT
.0UTIU,.'10'. ,R2
,DID RKBa INeREMINT CORRECTLY,!,
,YES, IRANCH
.0UTlUF. . . . . ,.RE. ,GEt EXPCTD RICIA
,GET ACtUAL RJ(8A
.RI,IIIEGI
JS
,RlCBA DIDN'T INCREMENT IY 100' AFTER
,IIRItE rORMAT or 40. NORDS
,CHECK lor ANY l I t II RUR lET,
'C<rCHKER
IIr YES RUURN HIR,.
l6
,11111. BIt lET Oil DOING 1 WORD
,aRITE FORMAt
,DOEI RICCs STILL HAVE 'lIltT FM'r' IITS"
12202"ftl
TSTl6
"fEl, EnT
,GET EXPCTD RICca
122"2. IREG.
,GET ACtUAL RKCS
'RI,aREGl
24
,RICI DIDN'T CONTAIN ""Itt FMT' IITa
,AFTER THE FUNCTION illS eOMPLE'l'ED

,
...............................................................

,,.TEST
, 16

CHECK 'READ rORMAT· rUNCTION-CIT..IIDER I, lECTOR.
,*THII TEST CHECK8 THE LOGIC INVOLn:D IN THE NRIfE FlIT
,·"UNCTION. ON ISSUING A IIRT 'MT, THE FOLLOWING IS eHECICED
,*1) CNTRL ADY WAI CLIARED AS GO liAS lET.
,·2) CNTRL ROY SETS IIITHIN A CERTAIN TJIoIE ON COMPLE'l'ION Dr FUIICTIO'
, .:1) IF' 'HE' OR 'EflR' BIT SET!
,.4) IF RItDA IlIeRENEIITtD CORRECTLY FROM " TO 17
,·5) IF RIWC OVEPFLowED COflR!CTLY TO 11
'*6) IF RKaA INCREMENTED CORRECTLY BY U
IF AllY BIT IN flKER ItTt
)
IF THE CORRECT HEADER liAS ·RECEIVED'
FOR RKl1C. ArTER I'D FNT RIC DB CONTUIIS THE eflECJ(8UN
,.rOR THAT SECTOR. (125252 II THIS CASE, BECAUIE THE
,.FIRST WORD IN SEC 0 liAS WRITTEII AS 125252 III
,.THE PREVIOUS lEST)
,·18) rOR RK11D, AFTF-R flO FMT RKOB SHOULD CONTAIN
'.A ZERO
,·11) Ir THE 11.0 r"'T FUNCTION BITS AI\E S'l'ILL IN
,.THE RKCS7

,."
,,.9)

2"'"

2011
2.12
20tl
2"14
2815
21116

2.P
2.t8
2et9
2112111
2e21
2022
2021
20,.
'''2'
2.26

JIR
ERROR

.21224

""6574
"0""

125252

Il,R8

Bit

1II.,en

111110177
177681

MOY

lie

•".2••

......

""6654
"06656
0"666.

"""'1lI4
"n.e.
10HU

................•.••...•...••.......................••••...•..•

TlTUI

SCOPE
CLR
11."
CNT.RESET

rGO, 00 CONTROL RESET
,THIS IS A CALL rOR THE ~CNTRL·
,RESET' ROUTINE. A CONTROL RESET II
I ISSUED AND ArtER A CERTAIN TIME
J IF' THE 'CMTRL ROY' DOES II0T SE'I'

SEQ •• 55

MACfU 21(886) ,.-oe'l'-16 161.6 l»aG[ )9
MA III8EC-ll-DZRKIC-O
T16
CH[CK 'RIAD 'ORMAT' FUIiCTlOII-ClLIIID[R ., SECTOR •
22-81P-16 • ,.41
OIRllltO •• ll
2'21
2'21
2'29
2.)'
2.11
2.12
21l)
2.14
21n!l
2')6
21)1
2,18
2819
28.'
2"41
20U
284]
2044
2045
2046
2047
2048
2-"49
21J!I'
2851
2052
2115)
28S4
2855
20S6
2"Sl
20S8
21J'59
21J68
2;'61
2062
2861
:Z06t
2"65
2t166
2061
206'
2069
21,.,"
21J71

8,,6662

184421

"6664
0.661.
.16614
"861"

81H81
.13182
01218)
'10112

• lf67.2
",,611'
"06716

.12177 117177
.U771 IIUlS,
1112111 . 8n0.5

.'6122
0.6724
"06726
006H2

to"11
1"0•• )
0.4137
104.1.

086H4
""(7)6

•• 5O••
105711

.,06748
"06742
006144

10.411
"'0528"
00U14

8e6746
"86752
"'.67"

8IJUn
"U1l1
104416

"86162

t04045

'''t6764

8"'4n7

80617'"

104846

TST.SI'
MOY
MOV
MOV
MOV

RKCS,RI
RKBA,R2
'OUtBUF,A]
11], ,R2

MOY
MOY
MO'

'-l"RIU.C
DRlYAD,.RI(DA
12'05, eRI

ttl

I'STB
BPt.
JIR
ERROR

,Rl
2.
PC,G'flRG
)0

2 ..

CLR
TST8

R8
IIRI

8MI
INC
INE

R'2h2

881))2
•• lll6
.U24.
11242 •
112.22

.2.71.

.2.'82
e'1150

0e12.2

JlI

02ltU

".,6772

(041)7

886776

184"48

80100"

81t4?]1

0"'78.4

11!140U

.e7tilIJ6
.11711112
""'71114
.07;'22
".7826

.22112
'01486

InU42

"t21J1

Ill2U
1J01164

821178

4 ..

2en
287t
2"75
2076
2077
2""
2019
21Jlle
2081
2.U

IH 12)1
10t042

82122.

PC .. GT4RG
ORnAD, .REGUI

ERROR

JSR

'C,CHItHE

ERROR

JSR

PC,CHKOA

ERROR

••

611

2it8)
~1l1!4

11010)8

2087
2888

111047)7

1J1I5711

6107849
901.42
007846
81J7I52
8.70S6

"1407
0.50]1
18SeJ1
1111)7
1111404)

.01060
887064
881066
.01074
807t88

822111
11"1486
012131
Att 131
104024

001162
00JU4
. . t166

002204
801164

911
1181162

210]

21".
21,,5
2106
211J7
211J8
211J9
2110
2. It
21U

2114
21. 'i
2116
2117
2118
2119
212"
2121
001102

2123
2124

1!1f71 III 4

'CHECK Ir RIfIIC OVERFLOWED TO e, IF
,NOT RETURII HIRI.
,RKIIC DID 110' OVERFLOW '1'0 "
,ArTER lCrER 011 READ FORMAT
.ounur.2,IIR2
,010 RKBl I"CREME'T TO NXT 1I0RO ADDRS?
, YES, BRAIICH
'OUTlOF+2,eRIG. , en !lPCTD RKIA
,GET ACTUAL RItIA
,R2,UICiI
,R!tea DIDII''!' IICRIN1:HT BY 2 ArTER
U
PC,CfllIfC
41

JIIR

.CIICIIKER

ERROR

TIT

.RI

BEQ
eLR
CL"
MOV
EFIROR

9.
.RIG0
.RECI
'RJ,IREG2

C!'IP
BI!:Q
MOY
Io'OY
ERROR

12284,.,1
Utl1
UI'4,U£G0
IIRI,IREGI

0"0004
104413

.................•.••..........................................

TSTll,

SCOPE
CIfT.RESET

212"
2127
2128
2129
2110
21 Jt
lin

111,,71 "6

1,,4421

""'IIIJ
0"7114

".3101
8\"15000
01 ""2
111127"]

TST.SIN

2114

2\ 1&
21)8

, ' READ FORMAT' OF 1 WORD
ICHECK IF ANY BU' IN RI(ER lET, IF
I US RETURN HERE.
,RKER BIT SET ON DOING
,I WORD READ rOAMAT
,DOES OUTBUF CONTlIN THE HEADER
,IIORD-IJ
I YES, IJlAlfCll
, GET SECTOR NO.
, EXPCTD HEADER
,GET HElDlR "ECVD
,CORRECT HEADtR 1I0AD-.-wlS
,NOT RECIIVED ON READ FORMAT
,00[5 RItCS HAVE TME 'RDFNT' BITS'
, , YES, lRANCH
IGET EX.CTD FlKCS
,Gn ACTUAL RICCS
,RItCa DIDN'T CONTlIN 'RD FMT'
,BIT' aFTER rUNcnON wu
, COMPLETED

....................................................•••..••....

212~

2117

,GO TO 'BOU' " BREAI( COHUNTS OF
UPE,,0 INTO DR ',Cn,.UR,SEC BnS
,'CN'I'RL ROY' DIDN'T SET OH COMPLETION
,OF READ FORMn
,READ FMT IIl1 DONE STARTING AT <DSK-IORES>
J INDICATED IN tROR NESCE
,CHECK IF 'ERR' OR 'HE' BIT lET, IF
HES RETURN HERE.
,'HE' OR 'IRII' BIT SET IIHILt
,DOING a 'READ FORMU'
,RElD FNT !faa DONE STARTINC AT CDSK-IDRES>
,INDICATED III EROR MESCE
'CHECK tr RKDA IIICREMENTED CORRECTLY
,IF NOT, RETURN HERE.
,RKDI SHOUIoD HAVE IHCREMEN'l'ID
,BY 1 SECTOR, IT DID NOT

,.6)

2122

2n~

,wAS 'CII'I'RL ROY' SET ON COMPLETION OF
,TRANSFER
HES, BRANCH
,RO, HAYE U IIU'I'ED LONG ENOUGH?
, IF HOT, [,00' BACK " WAn
J IF yI!:S, REPORT ERROR
,GO, GET RltCS, ER, DS,DA

,.TEIT 17
CHECK "READ' FUNCTION-CYLINOER 0,SECTOR •
,.THIS IS THE P"IRST TIME A PUFIE READ IS PRfFORMED IN THIS
,.TEST SEQUENCE, THt FOLLOWING IS CHECKED
,.t) CNTRL ROY CLEARS AI GO IS SET
,.2) CNTRL ROY 'US WITHIN A CERTUN rIME ON COMPLETION
,.or FUNCtION
,.)) IF 'IfE' OR °IRR' BIT IIET?
, .4) IF AKDI IIICREMENTED CORRICTL Y?
,.5) IF AKIIC OVERFLOWED TO 8?
IF RK81 IffCFlE"'ErnCD CORRECTLY?
i.7) IF lIfY RKER BIT SEtt
,*8) IF THE CORRECT PSUEOO-HUDER ( n RST WORD) liAS
,.REAO FROM lECTOR II
1.9) IF TIfE 'RUD' FUNCTION ,ITS aRE STILL IN RKCS

2111

21))

,WAS 'CNTRL RDY' CLEARED AS GO liAS SET'
, lES, BRAIICH
'CO, GE' RKCS, RXER
,CNTRL ROY 010"-' CLEAR AS GO "'AS
,SET TO 'READ FORMAT'

I.-OCT-" 16 ... PAGE 4.
CHECK °RIAD rORMAT' FUNCTION-CYLINDER I, SECTOR IJ

II"

00221'4

,SETUP ADRS IIHE!'!I HUDER IIORD IS '0 B[
JX-FERRED
,SI!:T U' WORD COUNT
,SET UP DISI( ADRI·, SEctOR 0, CYLINDER 0
,READ FORNAT, GO

'16
111

0~1258

2~119

2e'J'
20'JI
2"'J2
2193
2i1194
'.9S
'''96
2097
2099
210199
2100
2101
2102

MOY
MOV
ERROR

1048)6

11071)6

CM,

BEO

MAINDEC-Il-DZRKK-D
MACYll 21[1.16)
22-SfP-16 1'18.41
DZPKKO.PII

'2"86
' fl!5 "070]4

JSR
ERROR

1J1I163

JSR
MOY
BRKDl4

:Z1l72

1J~7116

"07t22

UI])2
0011lb
U1240

MOV
cr.R
HOV
MOV

110 I t "

,All ERROR IS RIPORTED. NOTI THAT
,TH[ 'C IN ERROR MESIAGE II TH[
,pC WHERE 'CNt.RESET' II LOCATED.
,THIS IS A YERt 8lSIC IRR , IF IT
,OCCURS CO BACIt '0 fElf I'
'CO CHECI< IF SU II I n
IIF SET, DO DRIVE RESE'I' '0 CLA tT

RKCS,Rl
A0
Rt(BA, R2
IOUTAUP', Al

, CO, DO CONTROL RESET
,THIS IS A CALL FOR TME 'eNTRL,RESU' ROUTltIE. I CONTROL RESET II!
IISSUEO AND IF'fER A CERTUN TIME
,IF THE 'CNTRL ROY' 001:8 NOT SET
,AN !RROR IS REPORUD. NOTE THAT
,THE PC IN EPROR MESUGE IS THt
,pc IIHERE 'CNT.RESET' IS LOCATED,
, THIS IS A YEU BAS IC ERR , IF IT
, OCCURS CI) BACK 10 TEST III
,GO CHECK IP' SIN IS sn
IIF aET, DO DRtv! RESET TO CLR IT

SEQ 0057

MACYII 27 (111"6) 04-OC:T-76 16a.6 PAGE 41
MAINOEC-II-DZRKK-D
22-s£P-76 0aU7
T17
CHECK °RUD" FUNCTION-CYLINDER 0,SECTOR I
D1RKKD.Pt I
81117126

IIHUl2

2141

1I.?tlil

2142

II1U6

11112777
813771
812711

,,17158
.117152
807154
0117160

1115711
11'"0'10]
104H7
10.030

007162
007164

8950"0
1057t 1

""7166

,,,'
71'"
"07172

100411
"0520"
"01)74

O07174
00728"
1i107206

004737
813737
104416

"~12~0

104~~5

"97212

804137

001216

104046

807228

8041]7

887224

1114848

007226

804717

2119
2148

:I1U
2144
2145
2146
2141
2148
2149
21511
2151
2152
215)
2154
2155
21'56
2157
21'58
2159
2160

2161

,,"7144

177408
"01350
8'"805

172116
172174

111
120"0
2 ..

020702
0"U50

00121i12

MOV

1Il,'R2

MOV
MOV
MOV

• - . . . "RKwC
DRlYAD"RKDA
n"R1

TUB
BPI.
JaR
ERROR

PC,GT1RG
11

CLR
!STB

R0
(lAI

BICI
INC
BNE

JSR
MOV
BRKD . .

PC,GT4RG
ORIYAD, tREG10

ERMR

JSR

rCHECK tr "ERR" OR "HE' BIT IS SET
J IF YES, RETURN HERE.
I 'HE" OR ·ERR' BIT SET WHlLE
,DOING A READ.
,READ IIlI DOrtE STARTING AT <DSK-ADRES>
IINDICATEO IN EROA MESGE
rCHECK IF RKDA INCREMENTED CORRECTLY,
PC,CIIKO,.,
IIr NOT RETURI HERE.
r RKDA DID NOT INCREMENT
,BY 1 (SECTOR)
,CHECK I' RKIIC OVERfLOWED TO
'C,CHKWC:
,IF NOT RETURN HERE.
,RKWC DID NOT OVERFLOW TO 0,
41
,AfTER X-fEll ON READ
,DID RKBA INCREMENT CORRECTl.Y1'
.OUTBU'.100fif,IIIR2
,tts, BRANCH
,GET npC'!'D RKBA
'OUTBUF+ 10"", 'REG0
,GET ACTUAL IIKBA
'R2,aREGI
,Rl<PA DID NOT INCREMENT BY
42
IAfTER ·RUD" or I WORD
'CHECK I f ANY BIT IN RitER stT,
PC·,CRKER
r IF n:s RETURN HERE.
,Rf(ER B!T SET ON DOING 1
J6
,WORD 'READ"
1l,1R)
rDOES OUTBUF' CONTAIN THE IIIGHT
,DlTA 1I0ltO
9,
IrES SRANCH
rGET EXPCTD DATA WORD
.. ,Ute8
(RJ),UEGI
r GtT RECVD DlTA 1t0Ro

'Rl

R0
2 •• 2

2162
21&J

1164

~I"
~166

al67
2168
2169
2.,0
2171
2172
2171
2174
2175
2176
2171
2178
2179
2190
2191
2182
2183
2184
211)5
2186
21S1
21Aa
2199
2190
2191
2192
7193
21 Q4

III

821142

EAROR

A21110

JSR

021224

5 ..

JSR

6 ..

CMP
BEQ
MOY
MOY
!RROR

ERROR

001232

104041

0117234
007240
007242
"07250
007254

02'712
111014"'6
",,1)7
1II11H7
11'141'142

034240

0\H256

004737

021250

7S1

,",!lR

"",7262

IIHIl36

@07264

02271 J

000001

It.

CMP

"872111
93721.2
007300

0,,14\1
012717

90001111

IIIllH7

0~1164

ERROR

0'1)4240
""11 &4

.eI162

ERROR

BEQ

MDV
ICOV

elH162

alQ •• 11

r SET UP ADOIIS IIHERE DATA WOAD IS
: TO 8E X-FEIIRED
r SET UP WORD COUNT .
rSET UP DISK AOIIS, SECTOR 0, CYLINDER"
:READ, GO
rWAS "CNTRL ROY' CLEARED AS GO WAS SEU
rYES, 811A11CH
:GO, GET RKC" ER
rCNTAL ROY DID "OT CLEAR 18 GO
,WAS SET TO 'READ"
J WAS elf'rllL ROY SET ON COMPLETION
r or TRANSP'ERI
JYES, BRAlCIl
:NO, HAVE U WAITED LONG ENOUGH'
fIF NOt, LOOP BACK' WAlT
ur n:s, REPORT ERROR
rGO, GET RKCS, ER, OS,D,.,
,GO TO ·SDA4· , BRUK CONTE"TI OF
,SREGI0 IIITO OR ',Ctr.,SUR,SEC BITS
JCNTRt, ROY DID NOT SET ON
rCOMPLETtOIl Of RUD
,READ WlS DONE STARTING AT eDSl-ADRES:'
'INDICatED IN EROR MESGE

PC .. CHKHE
46

MA INf'EC-II-DlRICK-1l
MACYll 27 (lee&) 04-0CT-76
"r96 PAGE 42
DZRIClcD.PII
22-SEP-76 0e 147
T17
CIfECK "RUD' FUNCTION-CYLINDER 8,SECTOR 0
2195
-2196
2197
21 Q8
2199
221110'
2201
1202

00H"4
001317

"'13717
104044

001150

091166

MOV
EIIROR

ORIVAD,tlREG2
44

rSEC 0,

2204
22"~

2209
007314
007322

02"77

n,)

1'1"7324

1IH21J7

2214
2215
2216
2217
221A
2219
2220
2221
2222
222]
2224
2225
2226

"073)2
907140

"'17737
104,,)7

0071.2
007146
007159
007356
007362

022711
0014111'
012737
011137
104024

007364
0"'7366
007)72
007374
A07402
0014U

10441 )
01115777
001407
01)737
817717
1"4102

222a

2229
2219

125252

172929

125252
11209.

"01162
811114

001407

011162

lUI
17175t1
10t142
1717)4

01i11164
001164

2231

2213

CM'
BtQ

140'

11181

900204
0""284
001164

2232

1125252, ,ItKDB

1'"
'125252, aRIG0

MOV
ERROR

,RIDB, UEGl

CMP
BEQ
MOV
IIOV
tAROR

121., 'Rl

III

f204,IIIEG2I
'RI,aRlGl
24

CNT.RESET
IRl08
TST
BEQ
Tst2"
MOY
RltDB, fREGI
MOY
IRKDB,.REGI
ERROR
102

,IT 50 HAPPENS THU WITH THE SECTOII
:THAT WAS RUO, RItDS CONtAINS THt
'SAME INFORMAT!ON FOR BOtH RKllC
,AND RKllD
rDon RICOB CONTUN THE EXPCTD WORDI
IYEa, BRANCH
JGET EXPCTD RICDB
,GET RECVD RKDB
:RICDS DOESD NOT CONTAIN tHE
:':XPCTD WORD "'''TER A REAO Of SEC e
rCYL ,
roOES RKCS HAVE TH! "kUD" BITS?
I TES , BRANCH
,'£T EXPCTD RKCS
,GET RECYD RKes
JRICCSDtD NOT CONTUN ·READ"
J'UNC~IOIt BITS A'TER OPERlTION
,lflS COMPLETED
J GO DO CONTROL R':.Et
1010 CONTROL RESET CLEAR RKoB!
utE" EXIT
,GET reORES or RKD.
,GET CONTENTS OF RKD.
,CONTROL RESET DION"T CLR RKDB

,.......•.....................•.•....•.......•.......••...••....

,·nST 211
CHECK 'IfRITE fOllMAT" -CYLIRDER iii, SECTOR 0-13
, .THIS TEST GOES ONE STEP FURTHER , PER'ORMS A WAT
,.P'MT ON CYLINDER 1 , CHECl<8 THE FOLLOIlING
I ' CflTRL ROY SET wITHIN A CERTAIN TIME ON COMPLETION
,.OF THE 'UNCTION
,·2)
I f "HE" DR "ERR' BIT SET?
,.))
IF tHE RICDA INCREMENTII CORRECTLY?
,.4)
IP' THE IIKDB T8 CUAR?
,.WRT r .. T IS DONE ONE SECTOR U I TIME
,.TIfF. fIRST WORD 0' EVERY SECTOR IS WRITTEN AS "
CYLINDER ., SURFACE
r .PSUEDO-HEAOER CONSISTING Of DRIVE "
I." SECTOR •• THIS ifILL BE READ " CHECKED IN THE FOLLOWING TEST.

2234

22]'
2B6
2217

,.1)

2218
2219
2240
2241
2242

2241
2244
2245
2246
2247
1248
2249
22'>il

cn. 9, SUR"

22"'6
2201
22,,9

2227

SEQ 0059
~ONE

,AFTER 1 .ECTOR READ RItDB CONTUNS
r"OIl RICl1C
I THE CHECKSUM FOil THlIT SECTOR
,"OR RICllD
'Til&: LAST WOIIO TRUSFERRED TO MEMOR Y

220)

22t0
2211
2212

r GET DISK ADRS 'ROM WHICH RUD IiU
I DID NOT READ THE COARECT
IOATA 1III0RD-.rROM DISK AoRES,

0117412
007414
007420
001424
00741"

r , •••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
""01'104

TIIT20 I

~Inll)

0"13]2

912702

171764
001 )40
0"135"

'" 1104
;'117tH

SCOPE
HOV
IoIOV
"O~

HOY

RKCS,H3
'-14,R2
IIKDA,A4
DRIVAD,PI

,SET UP COUNT fOil 12 SEerORII
IGET DRIVE ADDRESS

IIAcrll 27U'''' nl'.-OC"-"CHECK".H
PiGl: U
"VRITI rORMU' -CILIMDER

"AI.o~.II.DIRltIt-D

OIIl«l(O.PII

2251
22U
laS)
22,.
2255
2256
US?

n-aEP-" . . . . ,

..,.K

.11.1t

"U.'

11'1'5
18n.s
lUlU

"'4f6

'lOY
INC
MOY

HUI.

"'.46 1f'''U

I ..

RI.R5
RI
'U;'I.PERR

cn.uan

use

US,

2211
2261
2262
226)
221.

e11451

.... 11

TII.'II

2261

,.,452

2268
U69

•• 7.5.

les . ."
IIIU7

BIU.,

CLII
MOY

2212
UU ."461
Ul.
2215 •• .,."

"12'717

.1l2..

2265

2266

it, SECTOR

.-u

,SET RUURN ADRES FOR LOPING
ERROR (SW 9)
,ON
,GO, DO CONTROL IIESET
'THII II A CALL rOR THE "CN1'II1.,RUU' ROUTlIIE. A CONTAOL RESET II
, ISSUED AND ArTER A CtRTalN TIME
,IF THE 'CITRL ROY' DOEI NOT SET
,AN IRROR IS RIPOR1'£O. IOTt THAT
, THE PC IN ERROR MESSAGE II !HE
,pc IIHERI 'CNT.R£SCT' II toelTtD.
,THII I I A VERI IASIe IRa' IF t1'
,occuas GO lAC It TO TEst II
'CO CHECI IF SII IS sn
, IF liT, DO DRIVE RtSE'I' TO CLI! IT

III.
Rl.0UTlur

171.'"

MO.

""41. '12111
...11. 111111 11164.
2211 •• 1416 e1211l . . 2•• )

MOV
MOV
MOY

tTHIS WORD TO BE X-FERRa. FIRST
, WORD 0' EACH lECtOR WILL It TH!
tACTUAL DRIVE-ADORS eOlllltING OF
tOllIYiI: 10, CIL IODAI. SURfACE
t lECTOR 110.
,10RS '"OM WHICH OUI IIORD IS TO
• OUYlUF , ,RKIA
,X-FIRREO
, SET UP NORD COONT
...... RKNC
111, ,R. , ADORS TH! DRIVE, CYL 8, , CORREC'f SECTOR
,wRITi
rORMAT, GO
n'''l"U

Tl18
8111

.RKes
It

221'

2211

2276

2218
2219

22'"
2281
2212
221J

. .1582 105111
. .,5'6
11151 • •852ee
• 81512 '111]11

'0.ft. 11162.

281

INC

8NE

2•

JaA
HOY

pC, GftRG

,DID 'CNTRL ROY' SEl!
,YES, IRAIICH
,NO. HAVL!: U WAITED LOll"
, IF 10', LOOP BACK , itAlY
, IF IU, REPORT EIIROR
'CO, Qlf RKC., ER, D',DA
JGEf Dliit ADRS (UNIT.CIL,aUR,SEC) TO WHICH
J ",RnE rOll"AT WAS OOIfE
JGO TO 'IDU' .. BREAK CONtENTS OF
;tJtEG1I INTO DR •• CYL,.UR,SIC BITS
"CNTAL ROY' DID NOT . n ON COMPLETIOII
'WRITE FORMAT'
; WAT FNT WlS ~OlE ITARTING AT CDSK-lDRES:.
J INDICl'I'lD IN EROA IISCE.
'CHECK IF 'ERA" OR 'HE' 8IT IS atT,
,IF Tla RETURN HtRt.
,'HE' OR 'ERR' BIT SE' WHILE DOING
,WRITE roRMAT 01 CYLINDER I,
,lECTOR III ERROR I. AS SIOWN III
,0lSlt-IORES BITS '·3
, WRT rliT WAS DONE 'TUTIliG AT <DIK-ADRES:'
, INDICATtD IN EROR MSGE.

2214

•• 1514

0"47]1

221S

."52.

tI.1J7

2286
2287

lfiJ1524

184416

BRIOU

•• 1526

1114811

ERROR

1I,15l1

•• 47)1

JSR

PC.CHItHEl

'111514

le.U!

ERROA

'115)6

'047)1

JSR

pe"CHKOAl

'CHECK IF AKOA INCIIE'ItITEO CORRICTLrt

• nau

I •••

ERIlOR

,IIKDA DID NO'l' IIICIIEMtllT eOllAECT
,AnER 1 !fORD 'WRITE 'OMAT' 011
,C:YLUOER 1', SEC'Oll 1" tilROR I.

2288
2289

22Q"
2291
12.2
229J
229.
2295
2296

82"'12
.8U.2

"21U.

J ..

22"
22Q'
22,9
21"

H'"

2102
211l1J
2)" •

...

121 1 16

Rl, ,nGI'

21.5
2116

,0'

IIACIII 21 (l1l1ll6) .4-OCT-16 16.16 PACe . .
MUNDIC-II-O&RKK-D
CHECIC 'WRITE FORIIAT' -CYLINDER "
DlllltKO. Pli
n-SEP-'" 11.41
'1'2'

2311

U ••
23.9
2)10
2)11

U12
2JU
HI4
2115
2116

2)(1

tt" ..

1.5711

171512

81'551
811553
.I1SS1
•• 1564

lei . .'
,,5.n

.lIl162

8,,.,n

171568

. .1566
",,11

• ..,,"8

885281
"1'5285
12Z'PI'JS
'0'882
,627"!

111614
.81616

,,"52e2
lei Jt 7

2119

.. ,512

232'
2121

11"16

2)22
212)

232.

"116.

11.,)7

611

taT

,RKD'

IEQ
CLII
MOV
EAROR

IttC

Rl
R5

INC
CMPI
8NE
ADD

""014

1118""'.

INC
8Nt:

2)26
2321

illIG'
.1110', 'AlGI

' .. ,1111
.+6
I4.RS
R2
It

, R U;OIlG 1'0 CHECIt TH! LAST SECTOR?
,IF NOT, IRANCH
,IF ria, IICREI4CNT AS CORRICTLY TO ' !XPCTD RICOA'
,arTER HAYING CHECKED THI LAST SleTOR
,HAVE U rOAMATTED ALL 12 IECTORI?
rlF JlDT, IRANCH UCK , LOOP
,IF YES, EXIT

...............................................................
,.4)

2))4
Ul5
2))6

,,.1)
,.)

2111

2))9
214.
Uti

2JU

,.111
.............•...........•............•....•...•...............

:un

Ut4
2US
''''''1'

''''6&2

. . . .e.
,e!",

. .1114

.,441J

1.1616

1.4UI

T8'I'21.

SCOPE
R!I
eLA
CNT. "ESIT

Has
2)51

2]52
2J5.)
2154

2155

2)56

21'2

,·0

un
un

2]5'
2)'S'
2)'S9
2)68
Ull

SECTOR "-U

,LESS !HAII THAT IHOWII I. EJPCTD AlCOA
,CHECK 'IIAT RKDB oors COI'UII l e
,AFnR WItT 8ECAUSI: LAST IIORD "RITTEN
,IIA' IERIll.I.Y SHIntO 0U'l' TO THE 0151<
, rEi, BRANCH
,THI. IS WHU RKDI aHOULD CON!UN
,GET RItOI
, RI<OI '1I0ULD II I A,."A IIRT IINCE THE
,LU! "ORO wU"U IIAI .IIlIALLY IHIFTI!!D
,OUT or RKOS
, INCRtltl.T OAIYt ADDRS TO NIT SECTOR

,.TEST 21
CHICI "RCAD fORMU··CYLINOER ., SECTO .. '-U
'.THIS nIT Pl:RrOR'" l RD FMT ON THt U SECTOR. or CILINDEA
, ·TH! FOLLOWUG I. CHIC KED
If CI,RL ROY II! IIITHIN A CERTAIN YIM! ON COMPLETION
, .or THC rUIiCUOI
,.2) IF 'HC' OR 'EAR' lIT SU,
,e]) IF THC RII:DA IIICRlM!IITS CORRtCTLt7
RICIA IIfCflEIllElItlD CORRECTLY I'JY le (OCTAL)
,.5) RkIIC O'ER'LOIIID TO " FROM -14 (OC'l'IL)
CORRECT HEADER VAS RECEIVED FRO III ALI. U SICTORS.
RKCS ifILL COI'UN, THt ·RD rlt'l" "UNCTiON Ins.
. ,.IF THERE II A READ ERROR 1M THIS TtSf OR ANY
'.OTHER TEiT' !HE USER SHOULD NUl SURE THAT
,.IT II AN IRRECOVERABLE ERROA ANO NOT A TRlNlIEllf
,.ONE. !HI. CAN IE DONE 8Y LODPIIIG 011 !HE nSf
QUESTION. UaUAI.", a TRANSItllT tRROR
,.DI8APPEARS ON RETRIES, WIfEREAS A LOGIC ERROR DOIS NOT.

2U8
2)29
2])8
2lU

2)46
2141
214'
2149

511

TaT.SIli

",,:I' ''In''l 1777'.

111624

..,6111

"1218'
1II1J1112

. . IH2

MOV
MOV

.8U40

MOV

IEQ ....

,STORE If

RIICS,RI
'-1., Rt
RKDa,lI:1

:GO, 00 CONTROL RUIT
ITHIS IS A CALL FOA THE 'CNTRLI RESET' ROUT! NE. A CON'ROL RESET IS
,ISSUED UO AFTER A CIUUN TIM!
,IF THE 'CNTRL ROY' 00E8 IIOT SET
,AN ER"OR IS REPORTED. II0Tl: THAT
1 THE PC III EillIOA MESIAGE IS THE
,PC WHER! ·CNT.llnn' 15 LOCnED.
JTHIS IS A VERY elSIe !IIR , IP' IT
,OCCURS GO U::K TO TEST IIlI
, GO CIfEC:K If" liN IS SET
II S SFT, 00 Oil YVE RUET TO CLR IT
I SI!!'r UP coum FOR 12 SECTO"S

SEO 8'''1

MAIIIDEC-l t-OIRKK-O
"ACYl 1 27(1886) .4-0CT-76 16.86 PAGE 45
t21
CHECIC -READ FORMlt--CILIIIDER lit, SECTOR Iit-ll
22-SEP-76 "147
DIRUO.PlI

2J6l
2364
2365

UIS6
2367
2368
2369
23711
2)71
2)72
2)73
2374
2175
2376
2377
2378
2379
2l8"
2181
2382

2lU
2194
2195
2396
2397
23119
2389
239a
2191
2392
219l
2394
2)95
2396
2397
2398
2399
248"
241111
24,2
241'3
2484
248'
248.
24,,7
241'8
2409
2Hd

24t!

Ht2
24tJ
2414
2415
24t6
2."
2418

8"'U4
80764.
18'644
1076se

.U712
.12784
.11417
.12771
112777

,,"7664
0117671
001612
887674

11'5777
11"411
"52.5

•• 7656

elU51
8)]248

171466
17'7764

111456

"2'"

11144'

lSI

171442

HUH

"8'7676
"071e2
118111'

'14737

801712

1.4045

O87714

0"47)7

007720

104!146

897722
097726

O13705
'62705

eetl!hJ
088820

0877]2

804737

021176

007736

t04e40

087748
O87746
0"'750
8"'756
887764

122777
1101407
e12737
017737
Ilt4042

8U2711

171378

8]"J278
PU.4

801162
801164

88776&

8047)7

021224

887772

1114041

"87774
807776
818098
01.e04
"1"812
"18016
810.22

8"5724
0014n
011.1837
"62731
005037
,,'44]7
"'48U

el0824

8"5724

81)731
184416

82.'02
"tUl5"

081282

2 ..

O21142

lSI

DRIYAD,'R2
.OUnU"A4
R4"RICBl
'-14,IRKIIC
• 2185, ,RltCS

T57B

.RICCS

.010 CNTRL RDY SET Oil COMPLETIOII?

BMI
IIC
BilE

:II
R5

'''0.

511

PC.GT4RG
DRnlO, eAEGlt

IRROR

61.
0tU162

UDIIS to WHICH X-'ER DATA 'ROM DSIt
rSET UP WORD coun 'OR 12 HElDEPS TO BREAD
,READ rORMAT, GO
,YES. BRUCH
W1IT 'OR
TO sn
,IF WAnED LONG ENOUGH REPORt
'ERROR. OTH!RWISE LOOP IACIt , NUT
,GO. GET RltCS, ER, DS,DA

,GO TO 'BDU' , BREAK CONTEIITS OF
,'RI!:G10 IIITO oRl,CYL.SUR,II!:C BITS
,CNTPL ROY DID NOT SET ON COMPLI!:TION
,OF READ 'ORMAT-OF CILtNDER It,
,SECTORS 0-13
:READ F"T WAS DONE STARTING AT <DSIC-ADRES>
, INDICATED IN EROR MESGE
'CHECK IP' 'ERR' OR 'HE' 8IT IS SET,
J If' YES RiTURN H~RE.
,'ERR' OR 'HE' BIT SET ON DOING
,II!!:AD ~1'-O~ cn.:!NOER fl. SEC 0-U
,READ rNT WAS DONE SURTING AT <DSIC-ADRtS>
rlNDIClTED IN EROR MESGE

JSR

PC,CIIKHE

ERROR

MOV
ADD

DRIVAD,RI
120,R5

JSR

'CHECk Ir RKDA INCREMENTED CORRECTLI,
tIt NOT, RETURN HERE.
,RltDA DID NOT INCREMENT BY 12
,AP'TER A 'RD rNT' OF 12 HEADB:RS OF
,CYLINDER 8, SECTORS fI-U
,RKSA SHOULD INCREMENT BY 24 BYTES
: AT THE END OF X-ra:R
.oUTBur+J0,PRItBl ,DID RKBA INCREMENT CORRECTL1'1
J Y[S, BRANCH
51
J G!:T EXPCTD RKBA
'OUTBU'+30, .RItG0
,GET ACTUAL RICSA
.RKU, eREGI
,RKSA DID HOT INCREMENT COIIR!CTLY
U
,AP'TER READ FORMAT or 12 HEADtRS
PC:',CHKIIC
I GO CHECK IF RKWC' OVERFLOWED TO 0
I IF NOT RETURN HERE.
IRKWC DID NOT OVERFLOW TO
U
, AFTER 'RO rMT- OF 12 KEADERS
,OP' CrLIHDEII 0
(R4)+
,WAS THE CORRECT HEADER RECllvtD'
7.
aTES, BRUCH
Rt,IRIGS
,GET SECTOR FOR WHICH THE HEADER
,COULD ItOT BE READ CORRECT
'14, uta.
.REGI
JEXPCTD HEADER-0, FOR CYL "
-(R4),'RE02
,GET WPONG HtlDER RECVD
,HEADER illS HOT READ RIGHT rOR
4l
:SECTOR US lit ER MSGE), , ClL 0
(R4).
7 WAS THE CORRtCT HEADtR RECVD?

CMP
BEQ
MOV
MOV
ERROII
JSII
ERROR

801162
01.10814
001164
1101166

JIR
MOV
8RKD14

ERROR

...

SEQ 8"'2

,ADDRESS THE ORlYE

IIOV
MOY
MOY
MOV
MOY

TST
BEQ
MOV
ADD
CLII
MOV
ERPOP
TaT

,RKDA SHOULD HAVE INCREMENTO TO (R2)

PC.,CHICDAl
48

MUIfDtC-U-DIRKK-D
MACYII 27(18"6) .,.-OCT-76 16106 PAGt 46
DIRKltD.Pll
22-$!P-76 08141
T21
CHECI( ·IIElO 'ORMAT'-CYLINDER ' . lECTOR 0-13
2'19
242"

'16lit26
"'80J0

8"526.
8"U&1

010012

"04737

810036

104036

0t8040
,,,'044
flt9.,46
fll""54
IH.e,,,

022711
"01496
012737
"11 U7
104024

IitC

IYES, HAVE U CHECItED FOR lLL 12 SECTORS?
, IF NOT, LOOP BACIt , CHK HDR FRM NXT SECTR

SNE

H21
2422
2421
2424
2425
2426
2421
2428
2429
241"
2411

021250

002284
002204
001164

881162

JSR

PC,CRICER

EPROR

CMP
BEG
IIOY
MOV
ERROR

12284"Rl
Tun
U2&4,tREG"
,RI,SREGI
24

ZH2
24))
2414
24]5
2436
2437
24]8
2419
244"
2441
2442

............................•..................................

,.TIST 22
CHECK ·READ',CYLINDER 0, SECTORS III TO 13
,.THIS TtaT PIRrOIlMS A READ or ALL THt SECTORS or CYLINDER "
,., CHECItS THE P'OLLowING
,.1) CIITRL ROY SETS WItHIN A CtRTAIN TIME ON COMPLETION
,.or THE rUMcno"
,.2) IF 'If!' OR 'ERR· BIT SEn
IF tHE CORRECT PSt/EOO-HEADER (FIRST !fOIlD or EVERy)
,.SECTOR, WRITTEN IN A PREVIOUS TEST) WAS RECEIVED,
,.4) IF RieDS CONTAINS THE CORRECT !fORO.
,.4) IF RKOA INCREMENTED CORRECTLY.
,.5) IF REST or THE (377) WORDS IN EACH SECTOR APE '0' , NOTE
,.PREVIOUSLY ONE !fORD Wls WUTTEN !>ER SECTOR.
,.6) IF RKCS STILL CONTUNS THE 'READ' FUNCTION BITS
IF COtfTROL RUET CLEARS RIC08.
,. Ir TESIING IS BElltG DONE ON A SIMULATOR ONLY LAST SECTOR(13)
,.IS READ SECAUBE !HI SIMULATOR CAN STORE ONL! 1 SEtTOII (256 WORDS).
,.HENCE ONLY tHE DlTA WIIITTEI LAST CAN 8E READ BACK.
J
TST221
SCOPE
MOV
111"LPERR
,S[T RETURN ADPES FOR LUPING
,011
ERROR (SW 9)
MOV
RKCS,A)
MOV
DRIV10,RI
"lOY
Rl,R5
MOY
.ourSUF,R4
:TESTING ON SIMULATOR?
TST
SI"UL
BEQ
91
:NO. BRUCH
: IF TESTING ON SIMULATOR READ
ISECTOR 13 .ONLY
BIS
'11,Rl
,SET 8ITS rOR SEC 13
81S
128, R5
,IIKDA SHOULD tNCRMNT TO THl S AP'TER REAIl
BP
11
9sa
, SET COUNT FOR 12 SECTORS
MOY
'-14,R2
IltC
R5
, RKDA SflOULO INCPEMF.:NT TO
: TilTS A~·TER 1 SECTOR READ
CNT.RESET
: GO, DO CnNTROL RESF.T
rTHIS IS A CII.LL FOP THE 'CNTRLIRF:SET' ROUTINE, A CONTROL RESEl [S

,.l)

2Hl
2444
214'
2446
2447
2418
2449
2450
2451
2452
2453
2454
2455
2456
2457
2458
2459
2468
2461
2462
2163
2464
2465
2466
2467
2468
2U9
2470
2471
2472
2471
2474

'CHtCK IF ANY BIT IN RKER IS SET,
IIF YES, RETURN HERE.
,RKEII BIT SET ON OOING RD FliT
,OP' C:YL ", SECTORS 0-13
,DOES RKCS STILL CONTAIN FUNCTION B1TSY
, ,YES, EXIT
,GET EXPCTD IIKCS
,eET ACTUAL RKCS
lRKCS DID NOT CONTUN 'RD FMT'
:FUNCTION BITS O~ COMPETION OF
:THE 'UNCTION

,.7)

,*.*••••••••••••_••••••••••••••••••••••••••••••••••••••••••••••

010862
810064

009004
812737

"10072
1918076
1'1.tll2
.1IJ18.
1119118

e1l18]
8117et
018105
e12794
8857)7
0"1405

001]]2
80U50

052701
852105

00001)
000820

.llJlt4
81iB 16
'1"122
81e126
8teU0
Bt.U4

"''''H0l
812702

.1.U6

t114413

80.2115

0111136

013240
001)44

177764

"01118

SEQ "861

MACYll 27(1886) U-OCT-76 16.16 PUE . ,
MAINOEC-S S-OIRICK-D
!22
CIIECIC 'READ' ,CYLIIIOER "
U·S!:'-16 .a147
DZAICKD.PlS
2475
2476
2477
247a
2479
24U

2481
2482

11.14'

1.4421

2414
2485
2486
2487
2488
2489
2498
249.
2492
2491
249.
2495
2496
2497
2498
2499
2518
25111
25,,2
25(U
25,,4
25,,5
2';116
2501
2588
25,,9
251'
2511
2512
2511
2514
2515
2516
251'
25,a
2519
252.
2521
2522
2521
2524
2525
2526
2527
2578
2529
2 'U"

818142
118146
1.1152
"10160

••• 177
11.477
812777
8U7U

"'18164
1118166
.18178
IHIU72
IIt8174

11858"
105713
1"8418
885288
8.137.

81 •• 76
8182"2
81.28i

11847)7
"UU7
1114416

81"21'

184845

111.212

"41)7

.18216

104846

11.228

.Ul14

818222
81822.
8182)'
818234
81.248

111687
. . 8U7
811U7
.18U7
.8.044

""1162
""tI64
""1166

.18242

l.nJ7

.21176

'''IU6

11.840

TSf.lta
171172

171164
1174"",

17UU

&8"'''&5
2 ..

"2"792
""12"2

8211)4

5 ..

MOY
MOY
MOY
NOY

Rl"RKDA
Rf,'RItIA
••••• ,.lUClle'
n,'R3

Cr.R

TIn

RI
-R)

8Ml
INC
8NE

1111
2.

JSR
MOY
BRICDI.

PC .. G!4RG
Rl.'REGl.

ERROR

415

JSR

PC,CHItHEl

ERROR

CMP

Rl,(R4)

IEQ
MOY
MOY
MOY
ERItOR

5.
Rt,.REG"
(RU"REGI
A1,IREG2

JIR

p:: .. CHItDlt

ERROR

259~

2581
25A2
25H
2'5H
258'1
25R6

,DID CKTRL RDr SET ON COIPETION?
,YES, aRINCH
,NO, WAlT rOR IT TO IEf
,I" IIAnEO LONG ENOUGH, REPORT
,ERROR, OTHERIiISE LOOP 81K " UIT
,GO, GET RKCI. ER, 01.01
,GET srCTOR ADORES IIHERI ERROR OCCURED
'CO TO 'BDU' " BREAK· eONTENTS OF
,IAEGUI UTO DR • ,eYL,IUR,SEC BlTI
,cnRL ROY DID NOf 1£1' ON COMPLETION
,or REID 0,. CYLIIDER 8, 'ECTOR
,AI IHOWN IN COSK-AORES>
,READ IfA. DONE SURTING AT CDSK"ADRES>
,INOICUED tN EROR MUGE
,CHECK IF 'ERR' OR 'HE' lIT IS SET,
' I f III REfUR. HERI.
,HE Olt ERR BIT SET
,ON 'READ' or CYLtNOER II, SECTOR
,AS SHOIIN IN CDSK-lDRES>
,READ WAS ~Oli STARTING AT CDSK-ADRES>
,lNOICUED IN EROR MEIGE
,liAS l' HE DATA IIORD RECVD, CORRECT1
,fHE ,.IRIr DATI .ORD 0" EACH SECTOR
,IS AN ADRS WORD COMRISING or DRIVE NO,
,CYLINDER AORI, SUR, SECTOR AORS
,GET E1PCTD DATA WORD ,.RON DISK
,GET THIE DATA 1I0RD RECYO
,GET OISK ADREI
,DID NOT RECIEVE CORRECT DATA IIORD ON
,REID, 0,. CYLINDER ", SEC:TOR AS SIIDIIN IN 'OSK
,AORES' or EXPCTD DATA IIORD
'CHECK tr RKOA INCREMENTED CORRECTLY,
,IF NOT RETURN HERE.
J RaOA DID NOT INCREMENT CORRECTLY
,AFTER READ 0,. 1 IIORD, rROM CIL 8
,SEC IN ERROR IS 1 LESS THAN THAT
,IIHOWN IN !:XPCTD RKDA

T~;-OC'-~:Ee~ !::II)~!:~L::OER 0, SECTORS 0 TO U
6

2HZ

2511
2572
2513
2574
2575
2576
2577
2578
2579

,UsUID AND AFTER A CERTAIN TIME
,IF TilE 'CNTAL ROY' DOES NOT SET
11M ERROR IS REPORTED. NOTE THAT
,tHE PC· IN ERROR MESSAGE IS TlfE
,PC IIHERE 'CNT.REsn' II LOCATED.
,1' HIS IS A VERY BlSIC ERR" If IT
,0ecuRS GO BACIt TO TEIT 1111
,GO CHECK I,. lIN IS SET
,IF aEf. 00 DRIVE PESU TO eLP IT
,ADDRESI THE DRIVE
,lOR' TO WHICH X·FER DATI rROM DISK
,lETUP IIORD COUNT
,READ,ao

, rIRIT IIORD or lYERr SEctOR IS NON-

asJl

257~

SEQ .864

;18 A RESULT or 'IIRT ,.NT" 1M A PREVIOUS TEST

MACYI I 27(1006)
IIlAlNDEC-II·DIRKK-O
22-IEP-76 08141
DIRK!(O.Plt

25n
25J4
2'B5
2516
2';)7
2'1)9
25)9
25411
2542
25441
2541
2544
2545
2546
2541
2549
2549
25'"
2551
2552
255l
2554
2555
2556
2551
25'18
2';59
2568
2561
2562
2'163
2564
2565
2566
2561
2568
'569

SECTORS '" TO 1 3

U0258
1118ZS6

.1.3'2
110114
8lU86
.IUU

"12717
"U780
"127]7
,1Il51 I"
111"'5
18572"
085211
""1372
""0412
"05"l1
112,,)7

".H6

811" 31

81U22

184044

011324
018]]0

'05217
101357

.10262

111271
".272
1"'274

"8276

171775

0"1371

0)]242
1774t1

""U62

lUI

""1362
0"1162
101164
"fl1166

12'1

"ell18

001344
",.n2 1857)7
1"1811

818U6

018348
81 .. 342
l1e344
11111)5"

fllIIS,,, 1
.e5205
122705

MOY
MOV
MOY
'1ST
ellE
TIT
INC
8NI:
8R
CLJI
MOY
MOY

.-I,EfLCU
• OUflUr.; , Rill
'.)77,COUIIT
'AI

ERROR

INC
BNE

E"LGI
lit

TIT
RNE

SINUL
18.

12.

(RI)+
COUNT
III

71
UIEGe
(RO)+.IRIGI
Rl "RIGa

1'I1035l

"""'2
"627"5 0080.4

INC
INC
CNPB
8HE
.lDD

lIel56
file 361

805202
1101266

JNC
BNE

1l10l62
018366
018)711
1l10J16
1618482

02211 J
""1486
,,12731
.11 )]1
1114824

CMP
BEQ
MOV
MOV
ERROR

1204,tR]

'111404

114441l

"""0U

"81'12114
080204
""'1164

U ..

181162

all

Rl
ItS

1l4,R5
.+6
I4,R5

11
II
'2I4,8REG.
.1I1,UEGI
24

CNT.RESET

,!ERO (PSUtOO-HOP), REST 177 !lORDS
JARE ALL e·s.
'CHECK IF THE REST or THE )'77
,IIORDII ARE ALL 0' S
,ALLOII ONLY ) ERRORS
,INITIALIZE PTR TO 2ND IIRO IN 8ur~
,CHICK )77 1I0RDS IN THE 8U,.n:R
,IS THIS IIPD 01
,NO. ERROR
: INCRNNf PTR TO NXT IIRO
ICHKD ALL 377 WRDS?
I rE., BRANCH
I GEf ElPCTD IIORD
I QET 1I0RD RECVD
I GIT DISK AORta, ERROR III THII
,SECTOR
JO~fA ERROR, THt LAIT ]77 WORDS
, READ FROM bCH SECTOR SHOULD 8E "
,IN A PREVIOUS TEST, rtRST 1I0RO 0,.
,tVERr /JEC (CYL II) WAI IIRItTEN AS A
"aUEDO-HDR, RIIT or THE wORoa IN THE
,IIECTR ARE AUTONATICALLY !lRITTEIl AI
,,'s. THIS ERROR MAY M!U THAT IT
,DtON'T HAPPEN 60
,ILLON OILY 3 DATA ERORII or THIS UNO

,,'£SUNO ON SIMULATOR'
flU 8RAltCH
ur 1I0! TESTING ON SIMULATOR GO AHEAD
J , READ ALL 12 SECTORS ON CYL "
, INCREMENT DRIV·ADIIEI TO NXT SECTOR
,INCREMENT '!XPCTO ORIV-IDlES'
,R U GOING TO READ THE LIlT SECTOR?
,I,. NOT, BRANCH
J t,. YlS, INCRE"ENT 'ExpefD RKOA'
'CORRECTLY
, itA V!: U READ ALL U IECTORU
I I,. NOT LOOP BACK , READ THE
,NXT SECTOR
,OOU RKCS, aTILL HA'IE THE 'READ' rUNCTlON
,YES, IRANCH
,GET ExpeTO RKCS
J GET RKCS RECvO
,RKes SHOULD STILL CONTAlN THE 'READ·
,,.UNcrrON BITS
,GO ,00 CONTAOL RESET
,THIS II A C~LL rOR TH! 'CNTRL,RF-SET' ROUTY HE. A CONfROL RESET IS
; ISSUED AND AFTER A CERTAIN TIME
,Ir tHE 'CNTRL ROY' DOIS NOT aET
, - N ERROR IS REPORTtD. NOTE THAT
I THF. PC IN P.:RROR MESSAGIE IS THE
IPC WHERE 'eNT.RESET' IS LOCATED,

SEQ U65

MACYtl 27(1""6) 84-0CT-76 16186 PAGE 49
MAINOEC-l1-0ZRKK-D
CHECK 'UAO·,CYLINDEII 8, SECTORS a TO 13
T22
22-SEP-76 .8147
OZRI(I(O.Pll
2587
25"
25119
259"
2591
2592
2593
25,4
2595
2596
2591
2598
2599
26""
2601
2602
2683
2604
2605
2606
2(",7
26011
2689
261"
2611
2612
26U
2614
2615
26\6
2617
26\8
2619
2620
2621
2622
2623
2624
2625
2626
2627
2628
2629
2630
26)1
26]2
2613
26)4
26)5
2616
26)7
2638
26)9
2640
2641
2642

81.486
'1'412
"t.414
.t.U2
.1.418

'0~777

17.n8

'81407
IU'7l7
1,.7737
114182

'0t342
170714

!ST
BEO
NOV
MOV
ERROR

801162
8"1164

,RK08
UT2l
RKDB"REG"
.RICDII,UEGI
102

SEOIl66

,TNII IS A VERY BASI:: EPR , IF IT
,OCCURS GO BACK TO TEST 111
,DID CNTRL RESET CLUR RKD8'
nYES, EXIT
, GET ADRES or RICDB
, GU CONTENTS or RKDB
,CONTROt. RESET DID NOT
,CLUR RKDB

........••..........••..••••.••................................

,.rur 21
CRECK 'WRl'fE FOlMU' or THE DISK
,.THI' TEST MRITE rORMAT' THE ENTIRE DISK. THf. FIRST
,.WORD OF EVER! SECTOR II WRITTEN TO 8E A PSUEOO-KElDER
, ~ONSIU'ING or THE DR lYE " CYLINDER " SURFACE , lECTOR
,.1 SECTOR IS WRITTEN AT A TINE. THE WRITING IS DONE
,*IN THIS ORDER I CYL 0-aUR 0, eYL "-SUR 1, eYL 1-IUR 0
,.CYL I-SUR t, CYL 2-S-UR 0, CYL 2-SUR t----- CYt. )12-SUR 1.
, .IMPOR'l'AlfCE OF THIS TEST SHOULD BE REALIZED, THIS IS
,.THE rIRST TIME EACH' EVERY SECTOR ON THE OISIC IS
,.ACCESSED , IIRITTEN ON, THIS IS THE rIPST TIME RKOA
,.IS BEING MADE TO INCREMEIIT OVER THE ENTIRE DISK (rROM
,.00111000 '1'0 e145~a) I' A 'lIN' OCCURS AT ANY PO IN,.
,.A DRIVE R!:.n IS DONE BErORE OOUG NRT piT FOR THE NEXT
, .SECTOI!.· AU OTHER ERROR IS Ct.EARED THROUGK A CONTROL RESET.
'.THE rOLLOWING CHECICtIU. II DONf: AFTER WRITING EACH
,.CYLINDER.
,.1. CIfTRL ROY SETS WI'I'KIN A CERTAIN TIME ON COMPLETION
,.0' THE FUNCTION.
,.2. IF 'SIN' OCCURRED'
,.). IF 'liE' OR 'ERR' BIT SET?
,.4. IF RKDA INCREIoIENTBD CORRECTU, INCLUDING BOUNDARY
'.CONDITIONS (SECTOR COUNTER 8ITS OVERrt.owING INTO SURFACE,
,.SURFACE 8IT OVERFLOlliNG UTO CYt.INDER BITS) AT THE END
, .or THIS pOINTERS ARE INCREMENTED ADJUSTED, ETC.
,., 'WRT F'MT' ON THE NEXT SECTOR 18 DONI.

•...........••.......••...••••......•.....•..•.................

0111432
810434
010442

011000.
0127)7
11112737

810450

005003

11118.52
01"456
010462
018466
010470
010472

012704
012702
81 )701
010105
005295

TS!'2) ,
0110001
0111472

001206
001110

177465
177764
0~1 350

1044t)

SCOPE
NOV
MOV

H,ITIMES
'U,SLPERR

CLR

.-3U,R4
MOV
,-14,R2
MOV
DRlYAO,RI
MOV
R1,R5
MOY
R5
INC
CNT.RElET

" DO 1 ITERA'lION
;SET RtTURN AORES FOP LUPUG
,ON ERROR (SII 9)
; (R)-e, SURrACE 0 BEING IIRI'I'TEN
; (R3)-l, SURFACE 1 BElNG IIRITTEN
;SET UP COUNT F'OR 203 CYLINDERS
; SET UP eOUNT 'OR 12 SECTORS
:GET DRIVE AORta
;STOR! IT
, GO, 00 CONTROL RESF:T
,1'HII IS A CALL rOR THE 'CNTRLI Run' ROUTIIIE. A CONTROL RESET 15
, ISSUED AND A'TER A ClRTUN TIME
,IF THE 'CNTRt. ROY' DOES NOT SET
r AN ERROR IS REPORTED. NOTE THAT
,THE PC IN ERROR MESSAGE IS THE
,pc IIH!RI!: 'CNT.RESEr' IS [,OCUED.

MACYt! 27(1006) 84-0CT-76 16106 PAGE 50
MAINDEC- tt-DzRKIC-D
Tn
22-SEP-76 08147
CHECK 'WRlTE 'ORMAT' OF THE DIIK
DIRKICO.PII
2643
2644
2645
2646
2647
3648
2649
3650
26S1
2652
265)
2654
2655
2656
2657
26511
2659
26611
2661
2662
2663
2664
2665
2666
2667
2668
2669
26711
2671
2672
267)
2674
2615
2676
2677
2678
2679
26110
2681
26112
2691
2694

,THIS IS A VERY BASIC ERR' Ir IT
rOCCURS GO 8ACK TO TEST 10
,GO CHECIC IF SIN IS SET
rIP' StT, DO DRIVE RESET TO CLR IT

810t74

104421

010476
01"582

005037
"10117

901362
0))248

TST.IIN

0195GJ6
01"514
010522

012777
013777
81111'71

0)3240
177777
1'70612

1711622
170612

8""26

012777

002081

178576

1'10534
81"54"
1110542
8.0546

185777
100411
0A5217
00\ 172

170572
00UU

INC
8NE

COONT

01"550
810554
010"0

0047)7
1110U7
104416

"21171'12
0"1202

JSR
MOV
BRKD"

PC,GT4RG
IH,IREGU

1110562

1940)1

ERROR

1110564
"10572
IIH,574
010600
IU060.

032777
0014"5
0047)7
01eU7
104e01

001000

8IT
BtO
JSR
IIOV
ERROR

PC,GT3R<O
Rl,IRCGl
I

11110606

1J047)7

0211)4

018612

11148)2

781

21.

CLR
NOV

COUNT
RlrOU!'Bor

IIOV
MOV
MOV

.oursur, !!IRKBl
'-1, .RKIIC
Rl,t"KOA

MOV

n'0),'RKCS

UTI
8141

170534

311

i'/20710
0111178

411

IRKes
U

...

11"'0", 'RKDS

JSR

PC,CIIKHEt

ERROR

268~

269(>
2697

26119
2690
2691
2692
269)
26<H
2695
2696
26'H
2698

"111614

0047)7

elfJ62"

1ll411H

.10622
.UI624
81062&

"05201
005205
02271'12

1119612
"1"6)4
elf64l'1

e9t01t2
06271'5
""5202

021176

5*,

611
177776
000004

JSR

PC,CHKDAI

ERROR

INC
INC
C"'P

Rl
R5
'-2,R2

B'It

• +6

AOD
INC

H,P5
P2

:THIS WORO TO BE WRITTEN.
THE FIRST
,IIORO or EACH SECTOR WILL 8E THE ACTUAt.
,DISK-AORES, CONSISTING OF THE DUVE NO,
,CYt. AORES, SURFACE BIT SECTOR AORES
,lORES FMM WHICH ilOilO IS TO 8 X-F'ERRtO
,UT UP WORD COUNT
,ADRES THE ORIV!, I1I1'H CORRECT CIL
" SItCTOR ADRES
I WRITE 'ORIIAT, GO
I DID CNTRt. ROY SET
,YES, BRANCH
,NO, NAVE U WAITED LONG £NOUGK?
,IF' NOT, t.OOP BACK' WAIT
IIF YEI, REPORT ERROR
,GO, GET RKCS, ER, DS,PA
,GtT DISK ADRES, WHtRE EPROR OCCUREP
,GO TO 'BOU' ,aREAK CONTENTS Of
,UEGl0 INTO DR .,cn,SUR,IEC BITS
,eNTRL ROY DID NOT SET ON COMPt.ETlON
,0' 'WRITE F'ORMAT·, ON SECfOR AS
.SHOWN IN <OSK-AORE8>
,WRT F'MT WAS DON! STARTING AT <OSK-ADRES>
,INOICATtO IN EROR IISGE.
,DID SIN BIT SEn
, NO, BRANCH
,GO, GET RKeS, ER, OS
: GET. DISK-AORE, WHERE ERROR OCCUREO
,SIN SET IIHILE ,!OING "RT FMT
I TO DISK-'DRES UI IN SREG3)
ICHECK IF 'ERR' OR 'H!' eU IS SET
, I ' ItS, RETURN HERF.
I Ht OR ERR SET IIHILE DOING IfRIT!
,FORMAT ON SECTOR AS INDICATED IN
, COSK-ADRES>
,MRT F'MT WAS DONE STARTING AT <OSK-ADRES>
,INDICATED IN tROR ,",SGt,
,CHECK If RKDA INCREMENTEO CORIIECTLY,
,IF NOT, RETURN HERE.
,RKDA DID NOT INCREMENT CORRECTLY
,A"TER "IIRITE rORMAT' liAS DONI:
,TO THE SECTOR PREVIOUS TO THAT
, INDICATED IN "UPCTO' RKOA
, tNCREMENT TO THE NXT SECTOI!
I INCREMENT R5, TO WHU UOA WILL INCREMENT
,R U GOtNG TO FORMAT TH! LAST SECTOR
,IN TilE CYLINDER?
rIF NOT, BIIANCH
r INCREMENT R5 CORRECTLY TO 'UPCTD RKDA'
: HAVE U 'ORMATTE:D ALL 12 SECTORS

S[Q

1'1067

MUNDEC-II-DZRU-D
NACYIl 27(1'86) et-OCT-16 16116 PAG! 51
DIIIKJ(D.Pll
22-8EP-16 . . . 47
T2J
CHECK "IIRUI rORMU" or IHE DISIt
2699
21..
2781
2702
218J
2111'
27.'
2706
2701
2708
2189
21t0
21ll
2712
271)
2714
2715
2116
2717
2718
2119
2720
2721
2722
272)
2724
2725
2726
2721
2728
2729
2130
21]1
2712
27))
2734
27)5
2716
2117
21]8
27]9
2140
2741
2142
2743
2144
2145
2146
2147
2118
2149
27,0
21'51
27'52
27'53
27'54

818642

.8UU

IUIU4
IU,658
'186'4
8te656
'1"660
.le662
818666
118618
.18612
81.614
8U"."
9t01.2
IH078.
IH.786

812782
841181

Bill!:

MOV
8lC
TST
BHE
INC
ADD
MOV
INC
81'1
ADD
MOV
INC
CLR
INC
BME

'·I.,R2
117,111
Rl

,ON rHIS CYLIffD2:R
'lr Nor, LOOP IACI{ , FORMAT IHE
,NtXT ,!CTOR

,YES

1t..,1"

"."IlI)

""UJIlt6
'0520]
e627"1
.HU85
'0'528'
'80617
e621.1
81011115
8852.5
'0508)
"5204
0"1271

111764
. . .831

0'8821

0000'8

U
12.,Rl
111,1\5
R5
U
148,111
Rl,R5
R5

. ,REan THE COUNT rOR 12 seCTORS
,Cf.tAR 'lHI IIC ADRES IUT.
,.URFlCE It
8MlleH
, NO, SET 'UG
,tllCflEM£IIT TO THE NXT IURrACE
,THIS IS IfIfA~ RItOA SHOULD
, t"CREMENT TO.
DO IXT IURFACE
,INCRENE"T TO NXT cn.
,POsntON rOR
, EXPCTD RKDA

,n:s,

,00,

II)

,MlVE U rORMATTED ALI. 20J CTLIND!:RS

114

'If NO'l, LOOP 8~CI{ , rORIilAT THE

,NEXT CYLINDER

" .......................................................*........... "•••
1.TEST 24
CttlClI. 'READ FOAMAT" P'OR THE ENTIRE DISK
,.THIS nST IIEAD rORMATS THE ENTRE DISK, WHICII WAS WRT
,."ORMATTED IN THE PRfVIOUS TEST. THE P'OLLOIlING CHECKING
,.IS DOllE
CNTRL ROY SET. lIIIIIIN A CERTAIN TIME ON COMPLETION
,.or rUNCTION
,.2. Ir 'lIN' OCCURRED!
,.). IF 'III' OR 'ERR" OCCURRED?
r *4. RKDA IlfCRENENTED CORRECTLY.
,.5. IF THI CORREC'!' HEADER WAS READ.
,"6. Ir RItNC OVERFLOWED CORRECTLY.
,.12 seCTORS (l CYLINDEIt) ARE READ AT A TIME, IF 'SIN'
,.OCCURI A DIlIVE RCIEt IS DONE IErORE READING THE NEXT
,-SECTOII. RCADIIG IS DONE IN TIlIS ORDER CYL 0-SUII I,
,-CYL .-auq 1, CIL
0, cn I-SUII 1, CYL 2-SUR I,
,.CYL 2-SlIR 1, -----CTL )12-SUR 1. Ir TESTING ON SIMULATOR, ONLY
,-THE LAST CYLIttDER (lU), LAST SECTOR CU), SURUCE 1 IS REIID,

,.1.

l-'U"

.................................................................

TST24.

010712
810714
910722

"0.8.
'127]1
11Jl2731

.11.011
011086

"'81286
1101111

SCOPE
NOY
MOV

tI,nIMEI
'U,.LPERR

linn.

110'0J7

881356

CLR

INOI1

.... n4
911'174£1
81,,142
.,10146
.. 0150

113781
010182
00,7U
'0141'
852781

001]"

MOV
MOY

.0U44

1ST

DRIUO,Rl
RI,R2
SIIiUL

fl145H

8EQ
BtS

12t
""U,Al

'lIJ'54

'527'2

'14541

BIS

,,00 I ITERATION
,SET RETURN AORES FOR LUPING
ER~OR (511 9)
10N
1INDU-0, StlRrACE: " SEING READ
;INDUal, SURFACE 1 8!IttO READ
;GET DRIVE ADRES
,TESTING ON SIMULATOU
,NO, BRAIfCH
,SET BITS rOR CTL 312, SEC H, SUR I
,ON SIMULATOR, CHECK ONLY CIL 312,
,SECTOR 1), SUR"ACE 1
,R~DA SHOULD INCR!oIliT TO TtHS _FTR

MACYlI 27 (l8e6) 1J4-0CT-76 16186 PAGE 52
Ml f'tDEC-ll-DZRKK-D
T34
22-SEP-76 11147
CHECK 'ilIAD 'ORMU" rOil THY ENTIRE OISK
DZRI<KD,PlI
27'S!!
21'!16
27'57
2158
27'5\}
2768
276'
2762
216)
2764
2165
216&
2767
2168
2769
2170
2771
2172
2771
27H
2775
2776
2771
2778
2779
2780
2781
2182
219]
2784
:l785
2786
2787
27118
2789
279 ..
2791
21<Jl
21<Jl
2794
27Q'5
27Q6
2797
27'18
2799
2900
2881
21UJ2
2803
28114
28e5
2886
2901

IRQ rMT or 1 SECTOR

110768

fU27)1

818766
11177111
f1UllH

"0A41!17
1H271!15
0121)7

171465
177764
. .1820

17777'"

fI 11 112

162702

f1ll116

104413

ill "10

tlJ4421

011'12
"'11016
1122

01278)
085 1'1 l'J
IUIB17

0])240
081361'1
110H8

0t 1t26

01)771

'''U7,

081170

MOV

hl,EFLGI

12 ..

MOY
NOV

it
..313,R5
'·14,EFLGI

ADD

I2I1,R2

II.

CNT,RESET

i!01ll"

TST.SIN

lU.

,SET UP COUNT rOR 20] Crc,INDEIlS
,SEt COUNT rOil 1 a HDIIS TO IE
,READ fROM EACH cn INDEII
I THII IS .. HU RlDA SHOULD INCREMENT
18Y, ArTER '1'10 rMT' 0" EACH CYLIIIOEfI
I GO, 00 CONTIIOL RESET
,THIS IS A CALL rOR THE 'CNTIIL,RESET' ROUT INE. A CONTROL RESET IS
,ISSUED AliD AFTER A CERTAIN TIM!
I If THE 'CNTRL ROY" DOES NOT SET
,AN ERROR IS REPORTED. NOTE THAT
, THE PC IN ERROR MESSAGE IS THE
;PC WHERI: 'CNT.RESET" II LOCATED,
I THIS 11 A VERY BASIC ERR , Ir IT
lOCCURS GO UCK TO TEST til
; CHECK IP' atN IS SET
; If SET DO DR V-RESET !O CLR IT

HOV
CLR
MOV

.outeur, R.J
INDxa
R],.RKBA

MOV

ErtCI , 'PI(IIC

,STOPE ADRES OF BUP'f'l:R
I AD RES TO IiH tCH DAtA IS TO BE X-FERREll
I rROM !HI: Dl$K

17,)0'

I SfT UP 1101'10 COUMT rOR 12 HEADERS
I TO BE RUD orr EACH CYLINDER
I (ONLY 1 rOR IIMULATOfl)

f1110)4

0119177

170)0"

f1llf1U

1'112777

ee2885

"1104&
"11052
11 ... 54
8111611

1115777
1110411
0052H
.,." J12

81 tlJ62
ell"66

1141]7
"8137

178264

2..

11 III 261

"11368
1'120702
8.12112

MOV

Rl"RKDA

NOV

".,,5"RI{CS

TiTB
BMt
INC
liNE

(tRKCS

JSR
MOY

PC,Gf4RG
Rl"REGte

,NO, IfAY! U UIT!O LONG ENOUGH?
I If NOT, LOOP eACK , WAlt FOR IT
lIP' YES, REPORT ERIIOr,GO, G!T RKCS, ER, DS,OA
,GET ORn-AOIIES STARTING IIHIC"
,'READ rDRMAT· was DONE
I GO TO "SD14" , BREAK
CONTENTS OF
"REG10 INTO OR ',CYL,SUR,SEC BITS
,CNTRL ROY DID NOT SET _nER
,RE~O FORMAT, 'PKDA" IN EROR MSGE
I GlVE:5 THE CONTENTS or RKOA AT THE
,TIME or ERROR,
, RUD rM! WAIl nOM! STARTING IT <DSK-~OR!:S)
: INDICATED IN EROR MSGE.

104416

BRKDU

104845

r;RIIOR

0110'76
III ,,,.
81 111116

012717
80141'15

"8101'1"

'19~8

"~nJ7

BIT
BfQ

2~1t9

""112

i""IH

8207",
0011'"

JSP
!olD V

J DID CNTAl RDY nT?

lYr.s, BRANCH

lNDX2

.IU'"

17122'

: AOR£I THE DRIVE WITH CORRECT
ICYLIlfDER , SECTOR ADIIES
, READ rORMAT, GO

81U72

21Jt "

,SET COUNT fOR RUDING HOR
,rROM 1 UCTOR ONLY

IIUIIl,IIRKDS
PC,GUPG
PI, SRF.G3

010 '51N' SET?
NO, ~RANCH
GO, GET Rf(CS, EP, OS
GET DIS~-AORf5 WHERE 'SIN'
OCC!lPFO

SEQ 0069

MACYl1 27[UI06) 04-0CT-16 16186 PAGE 53
MUNotC-! I-OIRll-O
T24
CHECK 'RtAo 'ORMAT" 'OR THE ENTIRE oUK
22-SEP-16 81147
OIRno.Ptl
2911
2912
2Ul
2114
2815
2816
2811
2818
2919
282'
282t
2822
2823
2824
2825
2826
2821
2828
2929
21130
2831
28)2
28))
28)4
28)5
28)6
2811
2918
2839
2848
2841
2842
2841
2844
2845
2e46
2841
2948
2849
2850
21151
2852
2953
2954
2855
2956
2857

.lIlllt

1"'40'1

.11128

,,"41]7

.1 tl24

821114

411

104146

JSR

PC-,CHlH!:i

ERROR

,CHECK IF" 'ERR' OR "HE:' 61T IS SET,
, I f TES, RETURN HERE.
,liE OR ERR WHILE DOING A READ
,rORMAT. "lllDA' III EROR M.aE GIYES
:TIIE CONTENTS
RIlOA AT THE TIME Of ERROR
:REAo P'NT IIAI OON£ STARTING AT <OlK-ADRE6>
: INDICATED II EROR NESGE
,010 RlDA IIICRENEIIT CORRECTLY 8Y 12 stC

.11126
8Ull2
8l1llt
811 14.

1128271
1814111
1118237
114415

81tt42
.11 IS"

1t1111
184416

"'11152

104840

811154

013180

81 t168
811162
811166
811170
811112
.11176
111282
IU12H

810184
042704
820413
"1412
"10411
811lJ1
8'0031
862131

811214

18.841

17828&

•• 1202
118112

801282

CNP
8EQ
MOY
IRKDlI

R2,IRKOA

MOV
BRKDA4

IIRICDA.IREGI8

ERROR

081370

6$1

168'Hl

111
081164
8.1166
081162
888014

"el162

011216

'05123

111228
011222

110521118
88061

811224

084711

8tl23e

104041

011212
0t 1216

0851)1
8010ll

01/11144

011 240

8057)1
801011
085211
062701
310102

001356

021224

51
R2,IIIEOI8

••

MOV

ErLeU,R8

MOV
BIC
CMP
BEQ
MOV
MOV
1iI0V
ADD

Rt,R4
'U0817,R4
R4,(R3)

ERROR

011244
811246
811252
811256

'II

TST

(113)+

INC
BNE

JSR

'C-,CHKlfC

ERROR

TST
8NE

SINDL

TST
BNE
INC
ADO

001156
"88"20

MO.

: GET Expcro RKOA
:GO ro "BD18' , 8REAK COITENTS or
:UEG18 INTO DR .,elL,sua,SEC 8ITS
, GET RECVD ROU
:GO TO '8DA4' , 8REAK COITENTS Of
,IIIE018 IIITO DR ',CTL,SUR,SEC BITS
,RlDA DID NOT INCREMENT BY 12 SECTORS
, ArTER RD ,MT illS DOllE. ADRES
,Of CYLINDER III ERROR CAN 8E OBTAINED
,rROM 'EXPCTD' RDDA
,SET UP COUNT rOR 12 HEADERS TO B CHKo
: CONLI 1, I f 'IMULlTOR)
: GET DRIV-lD'Uta fROM IIHERE ItDrMT WAS DONE
: GET rHE CYLIIIDER ADRtI ONLY. (HEADER)
, IS tHE RECVD HEADER SAME AS EXPCTD?

U
R",UEGI
(U),IREG2
R•• tREG0
'14,IIIEa8

29~8

2959
2860
2861
2q62
21161
2A64
2965
2866

SEQ 0818

:SIN ERROR ON DOING Ro 'NT
,TO CYL l"OICAT!D IN UEal

ERROR

TaU5
INDU

10.

IHDXl
120,Rl
Rl.R2

: GET ExPcrD HEADER WORD
I GET HElDER WORD REC VD
, (JET THE SECTOR (OCTAL NO) WHICH DID
IIIor aIVE THE CORRECT HElDER
JDID NOT RECIEVE THE CORRECT HEADER
,WORD rROM 'SECTOR' AS INDICATED
: (NOTE SECTOR. IS OCTAL)
: INCREMENT POINTER TO THE NIT WORD
, IN MEMORY WHERI'; THE RECVD HDR IS STORED
,HAYE U CHEC KED ALL 12 HEADERS?
lIP' NOT, LOOP BACK. CHIC THE NXT.
,YES, ALL HEADERS FOR THIS CYLINDEP
'CHECKED.
,CHECt< IF RKWC- OVERFLOWED TO 0, If'
, NOT RETURN IIERE.
I RlUtc DID HOT OVERFLOW ArTER DOING
IADFMT or 12 .ECTORS ON THE CYLINDER
:1I0TE THAT 'RKDA' IS THE INCREMENTED
,III(DA AFTER THE RorMT
,TSTING ON SIMULATOR?
I H' YES, EXIT
,110
:DOING SURFACE 1
, YES, BIIAMC H
;NO
,INCREMENT DRlV ADRES TO tHE tlXT suprACE

1iI1INI)EC-tt-DzRICK-0
MACYll 27(1"8"
04-0CT-16
16106 PAGE 54
DZRKKD.Pll
22-SEP-76 0tl4'7
124
CHECK 'II!AD FORMAT' FOR THE ENTIRE DISK
1967
2869
296'i
2870
'871
2872
2871
2874
21175
2816
2e77
2818
2879

811268

86271012

80"0211

011 264
011 278
011214
81U88
"11184
01 U06
01U12
81UI4
01 UI6

110ell7
80!10H
042781
0621et
011192
.62182
8"52115
80ue2
000111

811096
081356
ge08H
0.a1l40

ADO

t8"

81 t"06

U
INoxt
1)7,Rl
U0,Rl
Rl, R2
U0,R2
R5
T8T25
18

SEQ 0871

,THlS IS WHAT RKoA SIIOULD INCREMENT
I TO, ArTER READ rMT Of rHE CYLINDER
, GO RO P'MT THE NXT SURFACE

,CLR SEC, SURfACE BITS
, INCREMENT TO NXT
ITHIS IS wHAT RKDA SHOULD BE
, AFTER RD P'HT
CYLINDER
,HAVE U DONE ALL CYLINDERS?
,'EXIT
, I f NO!, LOOP BACK , READ FMT FROM
,THE NXT CYLINDER

cn.

I'.·····..·.....·..........·.....·..•......··...·.·..............

2881
2892

,.TUT 35
CIIECIC 'READ" Of 1'HE ENTIRE DISK
,.READ Of' THE ENTIRE DISK (ONE IIORD PER SECTORl I I DONE
,.IN THIS TEST.
IN A PREVIOUS TEST THE P'IRST WORO Of
, .EVERY SECTOR illS IIRITTEN LIKE A PSUEDO-HEADEP (DRIVE "
,.CYloUDER I, SURfACE. SECTOR " .
TIIESE PSUEoO HEADERS
,.WILL BE READ. CIIECI<Eo IN TIIIS TEST, PROVING THlT ANY
I.SECTOR CAN SE ACCESSED AIID READ.
,.THE rOLloOIlING CHECKING IS DON!
'.1. CNTRL NlY SEra IIITHIN A CERTAIN TIMt ON COMPLETION
, .or rUIICTION.
"SlN' OCCUItRED'
,.3.
'IIE" OR "ERA" oeCURRED?
,.4. THE COItAECT FIRST lORD fROM EYERY SECTOR
,.WAS RECEIVED.
THIS WORD REP'LECTS THE ABSOLUTE
,"DISK AoDREIS (ORV ., C-YL I, SUR, SEC.) 0' THAT SECTOR.
Ir RKD8 COHTUNED TH! CORRICT WORD.
'SU" OCCURS DRIVE RESET IS ~ONE BErORE READING
,.THE NEXT SECTOR.
READ IS DONE III THIS ORDER SEC 0-11
I.CYL 8 SUR 0 .~ SEC 0-11 CYL 0 SUR 1 -~ SEC 0-11
1, ••••
,·If' TESTIIIG ON SIMULATOR ONLY LAST CYLINDER !JU), LAST
,.SECTOR (Ul. SURnCE 1- IS IlEAD.

28Bl
28114
2885

2886
2881
21J88
2889
2898
2891
2892
2893

,.2. I'IF

2n4
2895
29'J6
2897
2898
2999

,.5.
,.1'

cn.

29~"

11111)22
811124
el1132

"8"84
.12737
812137

11111348

'11)44

812783
'85084

81tl46
.1 tJ52
'11)56
111 t 160
111164

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

T$12S1

SCOPE
MOV
MOV

I1,UI!lES
'U"LPERR

033240

MOY
CLR

'OUT8U"R3
R4

I'IU7IH
81157)7
1JIIl1411)
152711
H1484

8"llSe
8ell"

DRIYAO.RI
SIMUL
10.
114531,Rl

811166

812708

811372

.12705

177764
177465

'"'1

"OV
TST
BEQ
BIS
BR
HOV
MOV

81U76

184411

CNT.RESET

980001
011 37&

881206

.eott10

0145))

2918
2919
292111
2921
2922

BIC
ADD
!lOV
ADD
INC
SEQ
J"IP

2890

291iH
2982
290)
29,,4
2985
2986
2901
2908
2909
2910
2911
2912
291]
2914
2915
2916
2911

J!lP
CLR

120,R2

It
'-14,R8
.-lD,RS

liDO 1 ITERATIOII
,SET RETURN ADRES rOA
:LOOPINa ON ERROR (SW9l

,'LAG, CLEAR IIHEN READ I NG SURFACE 0
,SET WHEN READING SURfACE 1
,GET DRIVE ADDRESS
: TSTING 011 SIMULATOR1
: If' NOT SRANCH
,SET ADRES BITS rOR lolIST CIL (12)
,LAST SI!:CTOR (13l. SURFACE 1
: SET COUIIT rOR 12 SECTORS
,StT UP COUN'!' rOR 20] CYLINDERS
,GO, 00 CON'l'ROr.. PESE!
ITlltS IS A CALL FOR TilE 'CNTRL,RESET' ROUTINE. A CONTROL RESET IS
,ISSUED AND AFTER A CERTAIN TIME

... ..,

MAC'll
MUIOEc-t t·OIR1nt-O
22-aE,-76
DZRIUlO.Pl1
292]
2924
2U5
292'
2917
2928
2929
29]'
2931
29]2
29]]
2914
29]5
2916
29)7
29]8
29]9
294"
2941
2942
2943
2944
2945
2946
294'7
2948
2949
295'
29'51
2952
29'53
29'54

a 27U8'6)

16."

PA!;E 55
14-0Ct-76
T25
CliEtt 'READ' 0' Tlfl INTIAE DUK

.114 ••

11HZ!

.114.2
• 11416

8858J7
111)77

.81156
167724

.11412
11142f

112717
811t77

177777
167714

117714

16"""

8U424

.12777

leee"5

115777
t"e41 t
1185237
1IJ81J72

16'7674

111446
IlU52
• tt4S6

e84137
.UB7
184416

.1146.

"U4!I

811462

2~S5

"l14'7e
Iltn2
Itt 476
111582

.32771
Bt14.5
",4737
818137
18411111

8115.4

8847]7

UISI'

10U46

.11512
.11514
811516
'11522
'11526

.21Ull
181417
.111137
Itt331
110137
1.4.44

IIUJ2

~ AN ERROR IS REPORTED. IIOTE THAT
~THE PC IN ERROA MESSle!: IS THE
"C WHIRE 'CMf.AESET· IS LOCATED.
,THIS IS I VlRt IAIlC ERR' I' IT
,OCCUAS GO lACK TO fEST 18
,GO CHECK SIN, If SET DO
,DRIVE RESET TO CLR IT

UT.'U

.114]2
IUU'
IU44.
.11444

2956
2957
2958
2959
2960
2961
2962
29U
2964
2965
2966
2967
2968
2969
2910
2971
2913
297]
2974
2975
2976
2977
2971

I ..

2..

Bln35t
12"712
881212

•• t . .e

16'6]6

U •

"2'71'
11181178

821UC

5 ..

181162
164
'"1166

CLI!
liD •

111011
U"RIt.A

MO.
IIOY

'-I,.PKIIC
AI,IRItDA

1I0V

n,IRItCtl

raft

IRKCS

IMI
INC
INE

.JSR
MOY
IRKDA4

PC,OT4AO
Al"RE.1I

ERROA

4!1

JUliES TO "IIICH DUA IS TO 8 X-"EAAED
,rROIi THE DIS!!
,SET UP 110110 COUIIT
r ADIIES THE DRlYE IIITH CORRECT
,CYLINDER , SECTOR ADRES
,READ, GO
~DID CIITRL RDI SET1
JlES, BRANCH
,liD, HAYE U IIAItED LOIIG '"0UGH
,IF NOT. LOOP lAC K , IIUT FOR IT
,IF YEa, REPOII! ERROR
,GO, CET AltCS, tA, DS,DA
,GET DISK-AORta IIHERE EIIROR OCCURED
,GO TO 'IDA4' , BREAt CONTIIITS 0 ..
"REGI8 INTO DR .,ClL,SUR,SEC BITS
,CIITAL RDf DID NOT St! ArtER 00 INC
fA 1 IIORD READ FROM ADRES AI
~ INDICATED IN <DISK-ADRES>
,'IIK[lA' IN EROR MsaE GIVII THE
~CONTENTS or RKDA AT THE TIME or [RAOR

INDxt

'''IB,.RKDS

81T

lEO

.JSR
HOV
ERROIII

PC,GnRG
AI,IREGI

JSR

PC,eHItHEl

ERROA

CM,
BEQ
MOY
MOY
MOY
ERROA

lilt. (Rl)

II
1'1, .RltG0

JDID 'SIN' SEf1
,NO, BRANCH
,GO, GIET RKCS, ER, os
JGET DISl\-ADREI IIHERE 1111 OCCUREOl
,'5111' ERROR ON QOING READ 'ROM
,DISK-ADRES IIiDIeATED IN 'IIEG]
'CHECK IF 'ERR' OR 'HE' BIT IS SET,
J IF IE., RETURII HERE.
,'HE' OR 'ERA' ON DOING A READ or
r 1 IIORD FAOM ADRES AS INDICUED
J tN <DIIK-ADPEI~
,'RKDI' IN EROR MSGE GIVES THE
'CONTENTS 0 .. RKDA AT THE TIME or EROR
,WAI THE CORPECT DATA 1I0RD RECY!)1
,GET EXPCTD DATA NORD
,GI!:T DATA WORD RECYO
,GET DIIK-lDRES
,DID NOT RECIEVE THE CORAECT
,OArA WORD .. ROM DISK Oil DOnG
,1 110110 READ rROM 'DISK-ADRES'
,AI INDICATED BY 'UPCTD' DATA IIORD
,liOn THU III A PREVIOUS TEIT THE
,FIRST 1101'0 or EACH S1CTOR IS UNIQUELY
,WRITTEN IIITH A IIORD GIYING THE

(RI),SltEGl
Rl,IREII2

16,..

IIAIIIOIC-U-DIRU-D
MACYlt 27(1"" . . -oe.,-"
'ACE 56
DIRKKO.PIl
n-SEP-76 88 s 41
f25
CHECK 'RIEAD' or THE UnR! DISK
1979
2998
29111
2982
291))
2984
2985
2981
2987
2981
2989
299'
2991
2992
299)
2994
2995
2996
2997
2998
2999
)",,,e

)"1!J1

30"2

llteJ
Ue4

1"'85
1086
3;)e7
10111_
)009

'11514
.11548
.U5U
.11546
ttl554

1211,71
101406
""'1l7
'177]7
1840]7

IlttS56

""57)1
IJIU22
. . 5201

el1562
811564
'11566
.11518
8\ 1572
811 576
81161112
"IU8C
'1l6"
l116t.
.1l614
111616

.U62e
II tl24
111626

167612

001162
\67S1,

fl1I1164

801144

18528111
88t)02
.1271118
142781
I1J5704

177764
18111.]'7

Ie 10e"
'''511l4
IIJUlIH

18102'

.18670

II.

1050114
162701
115205
H12U

)'12

1.U
1014
letS
1016
J0t 7

TST
8'1E
INC
INC
8NE

SIICUL

MOY
BIC
Ta1'
BNE
INC
ADD
8R
CLR
ADD
INC
8NE

'-I4,Rft
1)7,Rl
R4

"163"
lIun

10''''''4
1127)7

811648

'1270)

11 1644

3.27

8\ 1651
1I116!14
8116611
1,,664

)829
J030

'raT"
Al
Re

Rt
"0,At

•...............................................•.•...•........

SEO 0073

CHECK 'SEEK' FUNCTION, IIITH DIFnRltEIIT VELOCITY MODES
,. THIS TUT CHECKS SUf( IN DIFFERENT VELOCI'fY MODEll CDIr, <],
, . ) < 01" < H,
11). FOR THEn 1 8lSIC Vl!LOCnIES SEEK IS DONE BOTH
,. IN '110 AND REV DIRECTION TO CHECK THE ADDER" DIFFERENCE LOGIC.
Ir
,. WHILE DOING I SEEK 'SIN' OCCURS, .. DRIVI RISI:! IS DONE TO INITIALIZE
,. THE POSITtOIiING LOGIC

................................................................

IIT26 I

SCOPE

totO¥

""12116

MOV

u,nl .. ES
'SEEU,R)

1I111l56

eLR

INOxt

MOV
MOV
MOV
,,"OV

RK:::8,R0
RKDS, RI
RKER, R2
II., .LPEIIR

flll'0"
11)7el

""1))2
0i1132"

8111112

001H~

iH2717

111111>12

~01 t 10

lll]l

811672

81!1"'24.a

18ll

011614

hl44IJ

I' DO 5 I1'ERA TIONS
I UITIILIZE POINT!A TO THE FIRST
AODR!!S
,INOXI, WHEN iii INDICAtES SEEK 1'1 FIIO OIRlCTION
WHEN 1 INICITEI SItEIt IN REV rlIIIEcnON

I SUK

"85017

Jell
11]4

?
Rl,.REG0
'RKOB, tRItCH

our)

1825

]e28

,INCREMF.NT TO NX'l' eYL
, HI VE U CHKD ILL a8J CYLINDERS
I I .. NO'l, LOOP laCK , CHK THE NXT CYLINOFR

Rl,tRKot

'024

3.,.

R4
141,1'1
RS
U

eMP
BEQ
MOY
MOY
EAROR

,·fEST 26

leu

Jeu

,A8S0LUTI 10DREII OF THu SECTOR IN
,'lERNa or, ORIY ., CIL ADRES. 6l1R, SEC IIOMS,
1DOe:s RKD8 CONTUN COARIeT NORD
,YES, 8RANCH
I NO. GET EXPCTD RKOB
~GET RKDI AECVO
,1I~D8 ERROR OM READ.
,rOR RKIlC, IFTER A READ RltD8
,CONTAINI CHECKSUM rOR THE .ECTOP
rRElD.
,IIHEAEAS FOR RKlID, IFTER READ
,"KDB CONTII liS THE LAI'l' IIORO
,READ rRO". THAT SEC1'OR "
r X-nAREO TO "1EMORY
I TESTING ON SIMULUORr
n 1P' rES, EXIT
,INCREMP:"T TO AOPts MEXf SECTOP
I HAYE U CHKO ALL 12 IECTOAS?
IIF' NOT, LUP BAlI , CHit THE NXT
,IF YEa".
, !lEaET TN! COUNT .. OR 12 IEC'lOR6
ICLEAR SECTOR, aUR .. ACE IITI
,DOING SURFACE 1 t
HES, BRANCH
,NO
, INCR!MENT THE lOR ItS TO I n 8URnCE
,GO RElD IUIIFACE 1

I YEs

lell
18U

J0t9
)02'
)"21
)"22

IEQ .112

rIF THE 'CNTRL ROY' DOES IIOT SET

111

2',

,SET RETURN AORES rOR LUPING ON
:EROA (SW 9)

NOP
CNT.IH"SET

:GO, DO CONTROL AfSET
:T~IS [S A C~LL rOR THE 'eNTAL-

MACY 11 27( 1006) 14-0CT-76 16l1t6 PAGE 57
MAr.DEC-' 1-DIIucK-O
'1'26
CHECK 'SItEK' FUNCTION, WITH DIFrERII1!:NT VELOCITY MODES
22-S£P-76 .8141
DIRIU[D.PtI
l8l5

3.)6
)8)7
lll8
)839
3•• '
38.. 1
J942
3... 3
l844
l8.5
3846
3847
lll41
31149

3858
l"51
3852
3"5l
)854
3055
)056
3857
l058
)059
J060
)061
)062
3063
J064
'065
3066
)067
l068
3069
3070
3"71
lliH2
10n
)"74
l81S
31'176
30"
3.78
1079
1090
1081
3882
3"83
3094
)1195
).,86
U81
3688
)"89
)090

T5t.11I

'U1676

"'4421

'11788
IH1784
1117116
f111712

813704
05Utl4
819477
812716'

8!lU6

11'4412

CHKCRDY

"11720

104021

011122
011724
811732
811734
0U7J6
011742

0"501t5
0)2711
081085
085285
IJfi1U71
0fi14737
104026

811744
011159
011752
''11756
"11760
011764
011766
1'11772

U2711
081403
,,"4737
1840"1
032110
001493
004137
1041122

011774
012"""
812002
812006
812814

022710
001406
0110)7
812737
184024

812"16
el2022
.12824
812"l0
012036

"20477
00141/16
810437
817717
1041127

8011&2
167104

912040

1,,"477

167274

"It 730

DIUVAD,R.
CR3).R4
R4"RKDA
Ul"R0

, GEt DRlY-lDREI
ISET C'l'LINDER BITS
I ADDR. THE DRIVE
:SET ",£EIt", "GO'

ERROR

I GO CHECIC IP' CORTROr.. IIDt IS aET
I IF
IKIP THE EROR MESUCE,
I 'CNTRL ROY' DID NOT SE'I' ArTER
"£"DlIfO cn ADD TO THE ORIV, 'ADO ACK"
I'ROM DRIVE SHLD HAVE COME BACIt
,THEiEUPON SETTING "CNTRL ROY'

CLR
BIT
BNE
INC
BHE
JIR
ERROR

R5
1188"Rl
6.
R5

IlC1lll58

MO.,
BI.

167126
0""811

1'10"

MO'

U,
800100

5 ..

020782
001009

6.,

029702
7S1

14880"

BIT
BEQ
JSR
ERROR
BIT

0"1164
""0210

PC.GT4RG
26

'10"0"RI

PC,ClT4RG
I
tl4'0"e"R'

CMP
BEQ
MOY
MOY
I!:RROR

911

CMP
BEQ
MO'
MOY
ERROR

""".RKDA
10.
R4,IRC00
'RKOA, tREG!
21

1010 RKDl CHANGE?
,NO
,YES, en tXPCTD7
,OET RICDA
,RKDA CHANGED AFTER DOING: alEK

11""

HOV

U,.RKOA

,AOREI THE DRIYE,SEC 8

08tl62

t67Jt&

1010 "R/II/S ROY In?
,YEI, 'RANCII
,NO. WAIT
,WlI'l'ED LONG?
,GO, GET RICCS, ER, D', OA
,RIIIIS RDY DID NOT SET ON
,COMPLEtION OP' SEEK
, DID IfN SET?
INO, BRANeH
,GO, GET FIKes, ER, 01, DA
IIIN IE! ON DOING 'EEK
,DID "HE' OR 'ERR' SET?
IYES
,GO. GET RKCS, ER, OS, DA
I 'ERR OF' 'HE' au lET IIKtN
,ntuNG TO crL 18 INDICATED
, III RKDA

PC,(lT4RG
22

""0218

.0,

JSR
ERROR

02"702

8"1164

1210,IIR0
.R0"REGI
'218. SREGe
24

,DOE' RKCS STILL CONTUIf THE 'SI!:I!:I(' FNCTION
, n ' - EXIT
,NO, GET RKCS RECVO
,GtT EXPeTo Rltel
:RKC6 a"OULD COITAIN THE 'SEEK' BITS
,Ir NOT, ERROR

MACYll 27(1066) 04-0CT-76 16,"6 PlQE !l8
MAINDEC-t 1-0ZRKK-O
T26
22-SFP-16 08,47
CHEel( ·II!:EK" FUNCTION, KITH DIFFERRI!:NT VELOCITY 1II0DES
DZRkKD.Pt 1
1P91
3092
)"93
)094
)095
3096
1091
3098
3099
310"

tl120'"
012052
012066
iH2064
012066
012012
012"74
012100
1112104
012112

012777
012777
IH271'"
104414
021337
1101410
805037
IHI317
013737
104043

0)]240
177777
002005

012114
012110
012122
"12124
012130
812132
012136
912149
012142
012146

805737
0"1007
"05721
022183
081268
805237
8"574)
005743
11122703
0"1251

80t 356

161264
167254

I'IOY
'oUTBUr"RK8A
MOV
'-I,'RlWC
MOV
121185,'R0
CNT .RDY
CMP
(R1),OUTaUF
AFQ
111
CLR
.REGe
MOV
(RJ)"IU:GI
MOY
OUTeup',' REG2
ERROR
43

0H240
001162
001 164
013240

•• 1166

lUI
3102
J103
3104
U8S
lU6
31,,7
1108
3109
3110
3111
3112
3111
li14
3115
3116

lU,

,,"141'8

TST
BNE
TST
CMP
eNIt

8.,U56
12 ..
801370

INC
fiT
TST
CMP
BNI!:

IHaXI
12S
(R3)+
'SEEK2+2,Rl
if
INoll
-(Rl)
-CRl)
UEIl0-2,R]
18

I READ ONt HEADER INTO THIS
,BUS lDRES
,OO,RElO FORMAT
,lIAn FOR CNTRL IIDY
,lIAa THt COIIRECT REAO!4 R READ CP'ROM
,CYLIIjDI!:R TO WHICH SEEK WAS DONE BEFORE)
I STORE SEC • ,ROME WHERE HDR WAS RD (0)
,GET I!:XPCTD HEADER
, GET HDR REe vo
1 WRONG HDR WAS RECVD P'ROM CYLINDER (ADRES
,IN ER MIGE). NOTE THAT A PURE SEEf( WAS
,DONE TO THIS CYL IEFORE READING HoR
;USING READ FORMAT
,SEEK IN REVkSE OIArCTIONl
I YES, BRANCH
,NO, INCREMF:NT PTR TO NXT SUit AoRES
IDONE WITH A.LL aKS IN P'itO DIRl'
,NO, GO (, 00 NXT ONE
fUT P'LAG INDICATING 5K IN RlEvRSE
, POSITrON PTR TO NXT IK IN REV
,DOHE WITH ALL?
,IP' NOT, DO NXT ONI

3111

" ..........................................* ••••••••••••••••••••• *.

1118
JII9
312111
)121

I.TElT 27
CHECK DRIVE REitT FROM LAST CYLINDER
'.TRE HtADS ARE POSITIONED ON THE LAST CYLINDER COOING
, .AII IMPLII!:D SEEK-READ). THE" A DRIVE RESET IS ISSUED,
,.Ir-, CHECKI!:o If' THE HEADS iIIl!:RE FlROUGHT BACK TO fJ BY
,.DOIRG A. 1 WORD READ' CHECKING THAT TH! CORRECT liORD
,.WAI RECEIVED. IP" TESTING ON SIMIJLATOR THIS TEST IS SKIPPEO.
, I . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . * ••••• * •••••••••••••••••••••••
T1T2?, SCOPE
MOV
'5,tTIMES
liDO ~ ITERATIONS
TST
SlMUL
:R U ON A SIMULATOR?
RNE
TSTlIil
JlYES. EXIT
MOV
RKCS,Rt
CNT.Run
; GO. 00 CONTROL RESET
,THIS IS A CALL FOR THE 'CURL,RESET' ROUTINE. A CONTROL RESET IS
,ISSIlED AND UTER A CERTUN TIME
f IF THE 'CNTRL ROY" OO[S 1f0T SET
,AN ERROR IS RI!:PoRTED. NOTE THAT
,THE PC IN ERROR MESSAGI IS THE
,pc WHERE 'eNT,RESET' IS LOCATED.
,THIS IS 11. VI!:RY BASIC ERR' IP' IT
,OCCURS GO BACt( TO TUT 18
CLR
R0
MOV
'OUTBn',R)
,ADRES O'HP:Rr D-.n WILL FIt READ I1'<TO
MOV
DRlVAD,R4
MOV
R4,R5
8IS
114500,R5
15FT en ~DPES=312 (OCTAL)
I!OY
R5,.RKoA
IADRES THE DRIVE, LAST CYLINDER
,",ov
_-I,IIRKWC
I REArl 1 WORD

3122

lI2l

3124
1125
lU6
)121
3129
3129
]1)9

012150
012152
il12t6e
812164
1112166
"12112

00001114
"1'2137
8057)1
801124
81 )781
1"441)

812174
812176
"12282
012286
012210
812214
"12220

"050""
812103
813704
810405
0527"5
010577
IH 2777

800"05
901144

801206

081112

)1)1

1132
l133

3114
305
31)6

3137
lUI
J139

J148
3Ul
H42

1144
3145
1146

013240
01Hl58
0t458"
16712t1
177777

1671"'6

SEQ 1874

; RElET" !lOUTINE. A CONTROL RUET II
I ISSUED AND ArTER A CERTAIN TINE
, IF TilE 'CNTRL ROY' DOES NOT SET
, AN ERROR IS RJPORTED. ROt! THAt
I THE PC IN ERROR MESIAGE II tHE
I PC WHERE 'C.'I'.R£SET' II LOCAtED.
,THIS IS A VERY BASIC ERR (, IF IT
J OCCURI GO 8lCK TO TEST 10
,GO, CRECK I' SIN IS lEt, IF SET
,DO DRY-RESET TO CLEAR IT

SEQ 0075

IIACUI
MAlIIOEC-U-DIRKIt-D
:U-IS£P-7, 8.141
DPJ(J(O.PSI
ltc7
U41
JU9
JISIII
3151
3U2
liS)
31H
U55
3U6
li51

US.
J159
Jl6'
3161

1162

316]
3164
3165
l166
3167
3168
1169
)17"
)171
3112
3tH
)174
3175
It'76
Ji71
1178

1179
)lU

lUI
HA2
118)
)1114
1195
)1 A6
lIA7
HIIIl
1189
1190
1191
1192
1191

fl1222.

112232
.12U6
• 1224.

1110)77

. ,""
812111

27U.'6)

16 ••• PAGE 59
fl4-0CT-"
CRECl DRIVE RESE! rROM LAST ctLIRDER

T21

1611114

NOY

Rl,.,IIK81

,INTO THIS MEMORY ADRES

lI.fI •• 5

MOY

n,llill

:RE1D, GO

CLl
Cllt.RDY

It •

1.4414

812242
1/112244
.12246
812252
012256
812262

'2"51]
,fU481
.U5n
ell3)7
,Inn

"12264
812210

I1I2Ul
10.414

0.2272
81221.
"12382
0123114
012110
"12312

1II"5.ell!
.32717
"8lett
11112782
1105202
"'01176

012)14
812116

1/185200
e1l1166

812)2"
012324

".4131
11'14026

8211702

012326
III 'U12

.1211 I
.eI48)

1411"'''kI

fIl12))4
012340

0'41)1
1:114.,,2

'2M1"2

2"
e81162
"81164
.01166

1IU044

88P015

1I/00U18

)$,

167024

...

t 17163

H'H
lt95
11911
1197
1198
)19'}
nell
UIII
12M2

Sf,

CII'
81:0
IIOY
MOV
MOY
ERROR

R5,.U

U
115,.IIE08
!!IU"REGI
R5,aREG2

U5,.,RI
MOV
CII'I'.RDY

CLR
BIT
8NE
MOV
INC
BilE

R.
11111,,,,.,RKOS

:THIS IS 1 C1LL rOR CII.RDY ROUTINE
:WHICH WAITS rOR CNTRL ROY TO sn.
,A RETURN [5 MADE lf'TER CNTRL ROY
:SETS. IF WITHIN A CERTAIN TIME
:CIITRL ROY DOESII'T SET AN IRIIOR
IMESSAGr IS GIVEI. WllTING TIME
,881 MS rOR 111l', 175 MS rOR 11145
,illS THE CORRECt IIORO READ?
rYES, SEEIt TO 312 WAS DONE CORRECTLY5,1l
rGET EXPCTD 1I0RD
:GET WORD RECfD
,GI!:T DIK-ADRES rROM WHERE IIORD liAS READ
,DID NOT RE.AD B1CK CORRECT IIORD FRO'"
'LAS! CYL, SEC II. IF TEST 45 , 46
,IIERE SUCCESSFULLY DONE !HII
,ERROR MEANS THAT IMPLIED lEEK
:TO CYL 312 COULD NOT B OOIiE
,DRIVE RESET, GO
;THIS IS 1 CALL FOR CN.RDY ROUTINE
: IIHICN IIAITS rOR C"'I'RL R!)r TO SET.
J A RETUPII IS MADE UHR ClftRI. ROY
~ SETS. If' WITHIN a CERTAII TIME
,CNTRL ROY DOESN'T SI!:T AN ERROR
P.jES'AGE IS GlVEN. IIAI'fli. !lMt
J88) MS rOR 111211, 115 MI· rOR 11/45

JNC
AN!

RII

JSR
ERROR

PC,GT4RG
26

8lT
BEO

,DID RIIiIS ROY SET?
,yt., 8RAIICH
,IF U R ON A SLOWER MACHI"E
,. DO NOT NEED SUCH A LARGt: MACHIN~
'!lME LOOP, CHANGE THEIlE 3
J INSTRUCTIONS TO 'NOP' THE
,LOOP TIME WILL BE REDUCED
:TO 110'" MS
J
,TH! TOTAL TIMI!: rOR THE ABOVE
,LOOPS (W/O PUTTING 'NOP'S) IS
,UII. MS rOR 11/20 AID
J 1"61 MI FOR 11/45 WITH MOS
,OR BIPOL&P MEMORY
,WlITEO LONG?
,If' NOT, LUP SAl( • WAtt
, IF YES, ERROR
,GET RKCS,ER,DI,DA
,R/IiIS ROY DID NOT StT ArTEfl
,DOING DPIYf. RESET
:010 HE OR ERR BIT aET?
,If' NOT, BRAltCH

JSR
ERROR

PC,CT4RC
22

:GET RKCS,ER,OS,OIl "OR ERROR MESSAGE
INt 011 ERII BIT SET ON DOING DRIVE

'-U,R2
R2
.-2

1l4110f1l0"RI

SEQ '1176

""CY! I 21(18116) 84-0Ct-16 161 •• PAOE 68
CHECK DRIVE RESIT 'ROM LAIT CYLINDER
:n-SEP-16 1U,47
'27

MllNOEC~1 t -DZRKK-O

DZRKIW.PIt
U"'~

1284
1211~

3206
320 1
)208
11119
)2111
]211
1212

32tl
HI4
1215
12t6
1211
1218
1219
12211
)221
)222

611

012142
IIU344
012158
'IH'U
1112J56
012164

'05235
8''''77
'01486
.USH
811131
til4AH

01H66
1112314
14124.M

1112771
"IU17
1110417

111771
166H6
1661)4
"110"'05

1l124U

111271 I

8124tfIJ

.0!10.11

IIIUI2

104414

3225
1226
H27
U28
3229
1210

1'112414
"11416
1112420
1112424
11124311

1211

012434

01"'413
00/1141'17
I!t"U7
II11H7
011'1U1
104""

166170

MOV
MOV
MOV

,-t,IIRKIiC
P],IIIIK81
R4,.,RKOA

,RtllT rROM LA" CYLINDER
, PO. IT 1 ON RS TO I:lPCfO RltDA
I DID THE CYI. ADRE. sns IN RKDA GET CHANGED?
,NO, 8RANCH
I GET EXPCTD RltOl
,GET RItOA RECVD
,CYLINDIR lDRU ItTS IN AKDA
, GOT CI . . GlD A''1'IR
,DRIVE RlatT, fRON LAST C'rLIND[R
:RUD I lORD
:INTO Tlita AORI,I
SEC 8
,rllOIi THII OSK kDRIS-en "

MOV

H,'At

,READ, GO

INC
CMP
SE~

11.1162
1"7511

MOY
MOV
ERROP

IlUIU

16674.

It,

R5
R5,!lRKOA

RS,aREGIl
.,RKDA,SRECI
!i4

111'1
CLR
CMT.RDY

1221
1274

12)2

9 ..
11"1162
1101164
"81166

CM'
8EQ
MOY
MOV
MOY
ERROP

"4"R3
unll
R4,IRItGIl
'RI,.REGI
R4"RtG3
44

12lJ
3214
)215
)2)6
)2)7
)218
3219
124111
1241
1242
3H)

.......•................................................•......

,.TEST )1'1
'IIRITE' - 256 WORD 8LOCK ON lECTOR fIl, c:tLINDtll •
''I'H! TlI5T B!LOII SHOULD BE COISIOERED AS A SET UP PHAIE rOR
,THE FOLLOWING TEST.
tT WRITIS A BLOCI( 0" 256 WORDI IN
,UCTOR III, CYLINOEP • wITH A IPICUIC PATTERN AND TH18 WRITrtN
,81.0CK IIILt. BE MAD! USE 0 .. II THE NEXT TEST TO CHECK
,OUT 'WRITE-CHECI(' AND 'RItAD CHECK' rUNCTIONS. '

U44
1145
1246
1241

012436
111124411

000004
1114411

012442

1"4421

1148

,,............................•..................................

TSTllll1

SCOPE
CIIT.Run

1249
12511
1251
12'12

32'51
J254
U55
n~5

3251
1258

I TKIa II A CALL FOR CN .IIDY ROUTtN£.
,WHICH WAITS rOR CIITRL RDr TO SET.
,A RETURN II MAD I AFTER CITRL IIOY
,SETI. If WI'rHU A CERTUII TIME
,eNTRL ROY OOIiN'T SIT IN ERROR
,NEIIAGE IS GIVEII. WUTtNO TIME
,8Il Ma rOR 1113'" 115 HI rOR 11/45
,WAS THE CORRECt WORD RI1O'
"YlI, Exn
, Gn EXPCtO 110110
, GET IIORJ) RECVO
,GItT DIU AORE. WHERE ERROtI. OCCURED
,DID 10f READ (OItJECT NORD FROII
JCfL I, .cc e t IF fElT 45 • t6
, WERI IUCCE8IrUL!.1 DONI THII
~ ERROR COULD MElM THAT ORIn-RESET
JOID 10! BRING HEADS BACK '1'0 ".

TST.8IN

~ GO, DO CONTROL RESET
I THII IS l CALL FOR TH! 'CNTRL,RESU' ROUTINE, A CONTROL RESET IS
,ISSUED ANO lIFTER .. CERTUN TIM!
,If' THE 'CNTIIL IIOY' DOES NOT SET
,AH ERROR IS REPORHO. NOTE THAT
, THE PC IN ERROR MESSAGE IS THE
,PC WHERE 'CHT.RESET' IS LDCATED.
,THIS IS A VERY BASIC ERR' IF IT
:OCCUIIS GO BACII TO UST III
'CHECK IF SIN IS sn, Ir UT
;00 ORIVl!: IIEsn TO CLtAR IT

SEQ 0077

SEQ 0078
1259
H6e
1261
3262
3263
U64
la65
3266
3267
3268
3269
3270
1271
3272
1271
)274
1275
3216
1271
)278
1279
3280

1291
1282
3291
3294
1285
1296
3287
1289
3289
1290
329t
1292
3291
3294
3295
1296
3297
3298
3299
HI0
])81

Be2
]303
)),,4
]3",5
])1J6
1301
H08

812444

81 HI4

MOV

IfJ1l32

RKCS,R4

:TH! FOLLOIilING CODE IS rOR SETTING
.UP THE 110 surFEIl IN MEMORY (STARTING AT
:OU'!'9Ur), IIITH A PARTICULAR 256 IIORD PATTERN.
,STARTING rROII THE rIRST WORD 1M THE 8UFFER
.THE 1.0 BYTE 1111.1. BE A COUNT PATTERN
,rROM fJ TO 255 (DECIMAL), WHEREAS THE
,HI-BYTE WILL BE THE COMPLEMENT OF 1.0 8YTE,
DECREASING COUNT PATTEKN FROM 255 TO a.
,I.E.THE BUFF£P. WILL LOOK LIKEI
,0UTBur
(t 111 111 1 00 000 000)
,OUTBUF+2
(t 111 111 IJ 00 080 001)

:UST WORD
'12458
812454
812468
812464

812700
012701
11Jt27.2
012783

812478
812472
812474
012500
8125112

010120
"05202
06010)
0i6320
0052112
"",U74

012504
812512
012528

1.. 2777
012777
013777

177400
033240
001150
011000J

iH:H;&

1'112526

1J12714

012512
012534
012536
012542

105714
U"'00)
1'104717
104030

012544
012546
812552
812554
812556

0050~2

105777

831248
177401
177488
11'748'"

166622
166616
166612

MOV
INC
ADD
PiGV
IRC
8NE

Al, (R0l+

2,.
020710

"052"'2
001)7)

; I'lRITE 256 WORDS
:snRTING 'II0M THIS BUS 10RES
;TO THIS DISK ADRES, CYL 0, SEC 0

MOV

1l,IIR4

,WRITE, GO

T5TB
8PL
.JSR
EIlROR

'114
U-2
PC·,GTlRG

HEll, BRUCH

TST8
BMI
INC
BNE

"'3737

JSR
MOV
BRKDi14

PC,GNRG
OIlIVAD,eREGtril

104416

012574

1"4031

ERROR

012576

0!H1l1

JSR

PC,CHKHE

I1'H2112

BIJ9

H10
))11
1312

Btl
llH

MACY! I
MUNDEC-I t-OZRKK-D
22-SEP-76 08147
OIRKIID.Pll
Ht5
3116

0126112

1"40)2

"12b04
012610
012612
012616
012624

1'20071
0"'1406
010tH7
017117
104015

012626

1'1"4737

012612

1"'034

012b34

004737

4t1

021142

27(1006)

,,4-0CT-7b
16106
T31'
'WRITE' ERROR

CMP
BEQ
MOV
MOV
ERROR

110,aRKBA
6C
R0"REGI'I
PRKBA,'REGI

JSP

PC, CliKWC

Btl

1122

5$1

166526
001162
166514

0"1164

3127
3328
1329
3))0
13)1

1312
3113

021224

6'1

ERROP

34
PC,CHKDII

11211711

7 ..

JSP
ERROR

021250

8t1

JSR

PC,CHK!R

ERROR

CMP
BEQ
MOV
MOV
ERROR

'202, .R4
TS1)1
'2112,UtG0
"R4,SREGI
24

lJ14
13]5
))16
1))7
J1]8
))19
))40
3141
H42
1343

))41
))45
H4f>
)147
1)48
1)49
11'50
))'51

1!112640

,"40H

1!112642

P041l7

1!112646

104"36

012650
012654
IH2b'56
1!112664
012670

022114

0002112

406
012717
811437
'''4024

1'11111202
1'1111164

I"""

1369

II u:s. !!:XIT

; GET I!:XPECTEO RKCS
;GET PKCS RECVD
; RKCS DID NOT CONTAIN THE 'WIIITE'
IBlTS ArTER THe: "UNCTION WAS DONE.

CHECK THAT WRITE WAS DONE CORRECTLY
,·TfoIIS TEST CHECKS IF THE 'WRlTE' OF 256 WORDS DONE HI PREVIOUS
,.TEaT IS GOOD.
THE SEQUENCE Of' OVERUIONS IS liS rOLLOWINGl
DO A READ or 256 1I0ROS f'ROM SFCTOR 0, CYLINDER 0
INTO A BUf'rER STARTING AT ·OUTSU,'.
,.2) COMPARE' CHECK THe: DATA THAT IS REIID (STARTING AT 'OUTBUr')
I·
IIITH THE DATA THAT IIIIAS GENEIt4.TED PREVIOUSLY
, . ) ) REPORT AN ERROR I ' TME DATA READ BACK FROM DISK DOES
NOT COMPARE WITH DATil THAT WAS SUPPOSE TO HAVE (lEEN WRITTEN
I·
* ." •••••••••••
1 , ................
TIT]lr
SCOPE
CNT.RESET
l Go, 0" CO"lTROL RES!!:T
,THIS IS A CALL rOR THE 'CNTRL;RESET' RO!ITINE. A CONTROL RESET IS
IlSSUED AND ~rTER A CERTAIN TIME
IIF THE 'C"ITRL ROY' OOES NOT SET
,AN ERROR IS REPORTED. NOTE THAT
,THF PC r N "RPIl" MESSaGE IS THE
,PC WHEP~; 'CNT,PESET' IS LOCATED.
,THIS IS A VE~Y BASIC !':RP' IF IT
:OCCURS GO ~ACK TO TEST 10

,.,.1)

))~.

1178

: If YES, RETURN HE:Rf:
: liE OR ERR RIT SET ON DOING WPITE OF"
: 25b WORDS ON CYL 0, SEC "
; WRITE WAS DONE STARTING AT <DSK-ADRF.S~
: INDICATED IN EROR MseE
; 'RKDA' IN EROR MSGE elVES THE
,CONTI!:NTS or RKDA AT THE TIME OF EROP
:010 RKSA INCREMENT CORRECTLY?
; YES, BRANCH
; GET EXPCTD RKM
;GET RKRII RECVD
: RKSA DID NOT INCRE"'''"'''T CORRECTLY
; (BY 1000 OCTAL BYTES) AP'TER WRITE
rOf 4a0 (OCTAL) WORDS ON SEC 0, eYL "
;CHECK IF RKWC OVERFLOWED TO 0,
: If NOT RETURN HERE.
:R~WC DID NOT OVERfLOif, liFTER A
;WRITE Of 256 WORDS O'l CYL 0, SEC ill
;CHECK IF RKDA INCREMENTED CORRECTLY,
IH NOT RETUPN HERE
,RKOII DID NOT INCREMENT 8'( 1 AFUR
; A \'IRITE or 256 1I0RD5 IN CYL 0, SEC '"
ICHF.CK IF ANY BIT RKER IS SET
;IF YE5 RETURN HtRE.
:RKER BIT SET ON DOING WRITE ON
:CYLINOP.:R 0, SECTOR"
: DOES HKCS 5T I LL CONTA HI THE WRITE BITS?

, , .*.**.* •• * •••••••••••• *•••••• *.* ••• * •• *.* *•••• ** •••• * .* •• * •• *••

H51
3)S4
U55
H56
U57

3167
1161

: DID CNTRL ROY SET?
: yES, BRANCH
,Will TEO LONG ENOUeH?
I IF NOT, LUP BAI!: " WAIT
,IF YES, ERROR
;GD, GET RItCD, tP. os. DA
J GfT THE STARING AORES
;BREAK CONTENTS or SRtG10 INTO
;ORV I , CYL, SUR, SEC'
,CNTRL PDY DID NOT SET ON COMPLETION
;Of WRITE OF 25b WORDS ON CYL 0, SEC"
: 'RKOA' IN EROR MSGE GIVES THE
:CONTENTS 0' RKO~ AT THE TIME Of' EPOP
: WRln: WAS DOlfE STARTlNG AT <OSK-AORES>
11 "'DICATED TIf EROR MSGE
;CHECK IF 'EPR' OR 'HE' BIT IS SET,

,.TElT 11

3)~2

))59
31611
136t
))112
))6)
1364
))65
1)66

"01162

: WAS CNTRL ROY cLEARED AS GO WAS SET?
,eET RKCS, ER, OS
ICNTRL ROY DID NOT CLEAR AS GO illS SET
ITO 'wRlTE'

PAGE 62
256 1101'(1 BLOCK ON SECTOR 0, CYLINDEII "

13tB
1319
H2'"
3321

))2)
))24
)),5
))26

,sn

• _400, IIRIOIC
.OUTBur,IIRK8A
DRIVAD, ,RKDA

012560
012564
012572

0'lillf12
11101350

: PATTERN GENERATING NUMBER
,SET UP COUNT FOR 256 WORDS
UP THE FIRST PATTERN TO B WRITTEN

Rl. (Re)~
R2
is

R2
Rl,R3

CLR
311

lb6560

(0 000 "'0" 0 11 111 Itt)

, SET UP FIRST WORD IN 110 BUFFER
'INCREMENT COUNT
ISET UP NEXT WORD PATTERN
:W!H!E !T IN NXT lIO BurFER WORD
: HA VE U WR ITTEN ALL 256 WORDS
: IF NOT GO , WRITE NEXT PATTERN

NOV
MO'
MOV

Hl041l

0d4717

MOV
MOV
MOV
MOV

'OUTBUF,R0
U7HU,Rl
'-'00,R2
II 77400,Rl

"'12&72
012674

0111111004
10441 )

*................. "..........

*••••••••

SEQ "079

MACYI I 27 (le86) 8.-0CT-76 16186 PAG! bl
MUIIOIC-11-0IRI(I(-O
Tlt
CHEcr; tMAT wRITI!: was DOli! CORRECTLY
U-SEP-7' 08147
D11I1(1(0.PII
))71
])72
])71

llH
))75
))76
1177
))78
))79
)]80
HI!1

))82
))83
U84
U85
H86
))87
Hili
H89
U90
))91
]]92
B9l
])94
))95
))96
))97
))98
))99
3480
)481
)4e2
He1
]494
)405
141116
1407
3409
14,,9
3110
l4t1
3412
Hil
1414
]415
H16
1411
BIB
HI9
H28
lUI
)422

TSt,StH

812676

1"4421

.1218.
.12".
112718
812712
.12714
.12716
el2720
812726
012734

812700
812701
0051'121
'152'''''
081375
0850e0
.12777
112771
01 )777

17'740111
"ln40

1774ee
IIIU240
01111150

166486
166402
166176
166162

.12742

.12777

.00'1115

"12750
11112754
812756
'12760

105777
10eU 1
"0521110
00ll7l

1661'56

012762
"12166
012714

111,4737
013711
11'4416

021102
0"U5"

012776

104045

811080
8U016
1II1l118
8U014
811020
Bll"24
011838
1'113014

11112777
8"1 Ill]
.1271111
fl1271112
8t21Al
8127"5
862782
nl21l

...
HI

901202

11181880

166120

3415
H2.

2 ..
581

11748"
177111
011248
111773
177401

'01414
810111
,,627]1
818337

""1162
0""41'11
00111>4

01]056
01)062

1II11H7
104855

"01166

8111164
11)066
01)070

1111153115
""1403
1N5123

8t )072
113874

805281
8.t 355

RI
'-400"RKWC
'OUTeur, .RII8A
OAlVAo, 'RlCoA

, READ 256 1I0RDS
eIliTO tHIS AORES
,STARTING FROII THIS DISK ADREI

15,'RI(CS

,READ, GO

JBR
MOY
BRKo14

PC,GT4RG
ORIVA!), 'REG10

,1)10 CNTRL ROY lET?
HEI, BRANCH
,WAITED LOIIG EIOUGH7
Jlr NOT, t.UP BAK " WAtT
1I:RROR, IF YIS
;GO, GET RKCD, ER, OS, DA
; GET THE STARTING ADRES
,GO TO 'BDA4' , BREAI< CONTENTS OF
,'REGI" INTO DRY I, CYL, IUR, SEC BITS
,CNTRL ROY DID NOT SET AFTER READ
,0P" 400 WOFIDS rROM CYL 0, SEC III
, 'RKOA' II EROR MSGE GIVES TH!
,CONTENTS OF RKOA AT THE TIME OF EAOR
: READ liAS DONE STARTING U <OSI<-AOIIE8>
: INDICAtED IN EROR MESGE
,IS SIN SEn
: ,IF YES, EXtT

BtT
BNI:
MOV
MOV
MOV
MOY
ADD
eMP

MOV
IPROR

INC

'RI(CS
2.
R.

MOV
ADO
MOV

0,,11&2

,CHECIt IF SU IS SET, Ir SET
,00 ORlYE RElICT TO CLEA!! IT
,IEl COUNT FOR 400 WORDS
, TO Bt: CLEARED IN THE 8urFEA
,CLR THE 400 1I0RO Bu,rEA
,STUTING AT 'OUTPUF'

MOY

SEQ

0U0l6
"1)040
013044
1111]052

'-4elll,A0
'OUTsUF,RI
(RI)+
R0

TlTB
8MJ
JNC
811E

ERROR

HZ)

142.

MOY
MOY
eLR
INC
BilE
CLR
MOY
MOV
MOY

BEQ
Tat
INC
BilE

1100""RI(08
T81'32
'-48",Rl
tt71717,R2
'OUTSur,Rl
.-5,R5
11774"I,R2
R2'[Rl) IWAS THE READ WORD SAME AS THE WORD
:THAT WAS SUPPOSE TO 8E WRITT':N
,YI!:S, BRANCH
7t
,"0, EIIROA
,GET THE • OF WOIIO
Rl,$REG0
,THAT IS IN ERROR (F.:XAMPLE-lt2·-376,J77,4f\ill
. . oJl, .RE«00
,GET ExpeTD IIORD (THAT liAS SUPPOSED TO
R2, .REGI
:111" WRITTEN)
;GET wOIIo RECVD (tHAT WAS III!:AD BAK)
(R),.REG2
:010 NOT READ BlCI< wORD THAT WAS SUPPOSED
55
ITO HAYE 8EEN WRITT£fi PREVIOUSLY. POSITION
:or WORD IN ERROR IS AS INDIC"TEO BY
: .. 01'1[1 • (IREG0), SEC 0, CtL 0
R5
, ,EXIT
UTl2
CAl)+
'INCR£MI!:NT POIMtER TO NIt IIORO (THAT
IWAS READ BACK)
, HAVE U CMKD ALL 256 1I0RDS!
Rl
6,
: IF NOT, LUP BAit , CHK THE NXT WORD
IIr YES, EXIT

MUNDEC-1l-0IRItK-O
MACYIl 27(1"'06) "-OCT-16 16 •• 6 PACE 64
D%RI(I(O. Pit
22-5EP-76 1111147
fll
CHECK TRAT if RITE liAS DONE CORRECTLY

.................................................•.............
" •........•.••.••............................•......•.•..••.....

1.,7

lU8

Ha9

,.UIT 12
CHECK 'A!AD CHEe«" rUNCIION - cnUDIR 0. 'ECTOR '"
,.TH15 TtST CMEcn OUT THE BASI:: IRUD CHECK' LOCIC, USING THE DATA BLOCI<
,.'CYLINDER, SECTOR ") WIITTEN IN A PREVIOUS TEST.
HENCE THE TEST WHICH
,.WlIltlEl tMF OUA 8t.OCK IMOULD 8£ DONE PRIOR TO THII TEST,

14)8
1411

J412

un
1414
uu

el1876
ellie.

TaTUI

'0""4
104411

ICOPE
CNT.RlCln

1416
lU7

14)'
HJ9
)440
344t
3442
1443

Jut
3445
U46

el1l82

18442t

3441

0U184
I'IllI te
0U114
0UU8
IU124
'UU2
lI11ll6
8U142
elll46

111171111
II )102
01378)
813184
.127l7
.12712
81l7tl
.12714

811152
8U154
813156
81 U62
'UlU

105711
110ellll
.04711
1848111
104412

1448
H49

)l5.
1451
1452
1451
3454
1455
)456
1457
3458
3459
1460

lt61
3462
3461
H64

1465
3466
l467
1461
1469
3470
lUI

1414
1415
lUI>

).., 7
1418
14"19

lUll
Hili
)492

.12111

'1l166

1I141t56

013110
81 3174
813176
8'UIl

832711
.hlt 41'IJ
804737
11'14051

011214
913212
1113214
II un

11277'1
111111484
8177)7
U4IJ61

"11224
1113226
tllUlli

""5712
""1485
IJI 1217
IIl1'll
,".;'161

,HUU
0112.,

TIT.IlN
.IIIIH2

MOY
MOV
MOV
MOY
MOY
'lOY
MOY
MOY
MOY

"'11]4
.81140

.eDJb
'52525
17741JI

.0U5.
81124111
".011
ttl

"2"71'

211

8211711
1118012

166116

16611"

001162

til

81111164

BIT

'''0"",,,'111

ee;Q

JSR
[RROII

PC,GnRG
57

BIT

8EQ
HOV
ERPOP

511

0"1162

RICI,RI
Rr;wc,RZ
RKOA,A]
RKU,R4
'U525,OUTBU,
'-41110,'1'12
DRIVlO,I!IRl
.ounUF,1tA4
'U,IRI

TSTB
tU
IIPL
JSR
PC,CTlRG
IRROR
l0
CHKCRDY
ERROR

III

14e"""

TST

BEQ
MOY
MOY
[RAOR

SEQ tlfll

'2"RKER
tRKER, .REG0
U

,R2
IR'2,. REG0
iliA 1 , tREGI
6t

,GO, DO CONTROL R£8£'1'
,TH I S IS A CALL FOR THE 'eNTRL,RESET' ROUtINE. A COff'l'ROL RESET IS
,ISSUED AIID AP'TER A CCIlTAII tIME
'If THE 'CNTAL ROT' DOEI NOT SET
; AN ERROR IS REPORTlCD. 10TE THAT
,THE PC IN ERROR ME.IACI IS THE
,pc WHERE "CN'l'.RESET' IS LOCATED.
,rHIS IS A YERY eUlc IRR, IF IT
,OCCURS CO BACK .,0 TEIT till
'CHECK Ir SIN II In, IF 8ET
: DO DRIVE RElET TO CLEAR IT

,READ CHECK 256 wORDS
;ST""TING rROM CYL e, SECTOR 0
,READ CHICI(, GO
,010 CNTRL ROY CET Ct.!:A.RED AI GO WAS SET?
IYES, BRANCH
,GET RKCI, ER, 08
,CNTIlL ROY DID NOT CLEAR AS CO
,GO CHECK IF CONTROL ROY IS lET
; IF SO, SKIP '1'HE EROR MIllAGE.
,WIIS SET TO 'RllD CHECK'
,CNTPt. ROY DID lOT SET ON OOUC
,'R£AO CHECI<' FROM CYL 0, SEC"
,010 'ERA' OR 'ME' BIT SET?
,NO, 811ANCH
.GO, aET RICCS,EII,DI rOR ERROR MESIIAGt
,'EAR" OR 'HIt' BI'l' SET ON DOING
,'REAO CHECI' ON CYLINDER O, SEe 0
,010 'CSE' BIt lET IN RK[R7
,NO, 8RANCH
,GET RitER
,SOFT EAROR - cst - ON DOING "AEAD
'CHECK" ON CYLUDER I, SECTOR Ii
,U SHOULD HAVE GOT ERRROR 102 ALSO
,DID WOIID COUIfT OVERnow TO I?
!YES, BRANCH
: GET RI<"'C
,I;ET RKes
:~ORO COUNT oro Nor OVERFLOW
ION oOIliG 'PEAO CHK' o~ CYL 0, BEC i'

SEQ 0081

IIACYll 27(1'86) 84-oCT-76 lbl"6 PAGE 65
MAIIfDEC-11"DZRII:K-D
CHECK 'READ CHECK' "UNCTION - CYI.INDER "
'U2
22-8!P-76 .8147
DZRICICD.PII

3481

Hat

14115
3196
3497

34119
3498

8U242
813246
tU258
1.1252
81]254
"U26"
IIIIU264

8U182
885282
8202U
1i1l14f1S
.UIU7
l1li11 )]7
1841'162

"U266
IIIIU212
"11374
.U102
IIIIUJe6

"22714
De 14"6
"121]7
"114)7
18406)

13]241
.et 164

eUll"

"22731

852525

.HU8

8tBIb

001412

''''B20

"un7

']3240
852525
']]248

0"1162
66iii4
fiJ1I1166

1491
)492
U91

HU
)495
H96
H97
1498
lt99
1500
1501
)502
J58)
1504
)5.5
)5,,6
)507
151'8
J509
1510
1511
J512
1513
1514
15t'5
3'516
15t7
)s18
1519
J52a
1521
J522
352)
1524
1525
]')26
1527
1528
1<;29
)5)fiJ
3511
3512
15)1
1H4
15)5
15)6
l'Hl
!51i!

iliU2a

fii~7;;

,,1]3)4
IIIU42

813137
1841'164

""1158

.01162
"01164

l1li))241

711
•• 1162

Pi';)

)0;0;4
150;5
)0;'56
1557
l>'5 R
1'>5'1
156"
1'561
1562
J'\61
)'564
156'5
15b6
15&1
1568
),)69
''nil
)';71
1572
3'57)
157&

)571
J'J79
1579
1510

1581
)582
1511)
)594
)585
)516
)591

U
R2,lft':G'
'Rl,IRtGI
62

CMP
8EO
MOV
MOV
[RROR

'OU!8Ur,IIR4

It
'OUT8ur,IREGe
,R4,UIGI

CMP

nI525.0tn'8UF

BtQ

TITU

HOV

'OUTIUP'.UEG"

ERROR

OUTIUr, UIG2
U

j!ll125,iRiGi

lin

SEa

~0e 3

,RKo. SHOULD INCREMEIT
,TO tHlS RFTER 'Ro CHK' 18 DONE
'DID RKoA INCRtMt"T CORREctLY!
,GET EXPCTo RItDl
,GET RICDA RECVD
,RKDA DID !fOT IIICREMENT CORnCTLT
JC9Y 1) Oil DOING 'PEAD CHK' Oil
,CYL 0, IEC "
,DID AK8A (JE! CHUGED'
:110, 8RANCH (RII:8A WOII'T CHANCt, 110 NPR'S)
, GET EXPCTD RItIA
: GET RKBA PECYtI
rRK81 CHANGtD ArTER DOING 'RElD CHIC'
:ON CYLINDER 0, SECTOR 0. SHOULD
,NOT CHANGE, FOR, 110 NPR'S.
: 'OUTBur' SHOUI.D 8'1'11.1. CO.'tUII 'tHE
,SAME WORD AS U' DID BErOIl 'RD CHK'
=IIOTt THAT AT THE StOlllIIIG OF THIS TEST
,52525 wAS WRITTEN INTO 'OUT8ur'
"ytS, EXIT
,REPORT ERROR Ir '0l1T8Ur' CHarGED
: GtT AORES or OUT8ur
,en EXPCtu wORO IN ·OUT80Y"
,GrT ilORO rOUND IN 'OUTBU"
,AS MEIITIOIIED UOYE, IF 'wRITE' OF"
,256 ilORD DATA BLOCK liAS DOllE
,CORRtCTI.Y BtrORE, TH!N THIS ERROR
,COULD MtAN TlilT AN NPR WAS DOllE
,ON 'READ CHECK'.

=*TIIT ])
CHICK 'tHl! 'WItI'l'I CHtCK' FUNCTION· ON CYLINDER ", SECTOR 0
'.THII TES! eHECKS Out tHE BASIC 'WRITE CHECK' LOGIC, USING THE 256
,.IIORD OAU BLOCK (StetOR fiJ, CYLINDER 0) WRITTEN IN A PREVIOUS
,*TEST. THI BurrER IN MEMORT. USED rOR COMPARIION OF DATA, IS THE
,.Olft STARTlIfG AT 'OU'8""'. HENCE THE TEST IIHICH WPITES THE
,.256 WORD BLOCIt Olf THE DISK (AS WELl. AS CREATING THE 25b
,.256 WORD MEMORY BUrrO) SHOULD Bt ~ONE BErORt THIS TEST.
: I •••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

1/111344
01B46

1'00004

TST1H

UHI)

"13150

104421

1"3152
Iflll56

01 n01
1'11770'"

0tH62

~t27@2

IH ))66
01Un
01)376
1'11400
fiJ1141'12
01341'14
011412
811426

01271'1 J
"67703
81"'322
''''521'10
1'11'11173
012717
812777
III '771
012711

011432
1'111434

",,'
;'10"
105711

'HUN

"U436
01 )440
011444

10"'''''1)
"1147 J7
104""0

!!1)446

104412

1'1 )450

1114065

01)452
01 J456
1:11)460
'''1464

011711
.,01401
1104137
104066

"1)466
"13414
011476
0U5112

032111
1101403
0,,47)7
1"41'167

ICOPE
CNT.R!'tT

TST.SIN
MOV
MOY
MOV

001))2
1774o"
I'IH240

177717
177401

177480
11'13240
1'1"" 150

16572:2
165716
165712

I'IH~e07

2 ..
!!21'PI0

311

411

1'20711:1
0"'0001

165634

RKCS,RI
'-4.",R8
'OU!8Ur,1I2

04-0::T-76 16U'6 PAGE 66
CHECIC THE 'MRITE CHECIC' rUieTION • ON CYLINDER 0, SECTOR •

!II

1401'1/1"

,GO, DO CONTROL RESET
,THIS IS A CALI. rOR THI 'CNTRI.,RESET' ROUTINE. A CONTROL RESET IS
,ISSUtD AND ArTER A CERTAIN TIME
fIr THI 'CNTRL ROY' ODES NOT SET
JAN ERROR IS REPORTEO. NOTE THAT
,TME PC IN ERROR MtSSlG! III THE
,PC WHERE 'CNT.REStT' IS LOCATED.
'THIS II A VERY BASIC ERR' 1P' IT
,OCCURS GO BACK TO TEST 10
'CHECK Ir SIN IS SI!:T, IF SET
,DO DRIVE RI':SET TO CLEAR IT

5' I

1'120711'1

MOV
ADD
MOV
INC
BNE
NOV
MOV
MOV
MOV

tt77717,R]
1177431,R)
R), (R2)+
Ril

IS
1-4tlll,@lRKWC
• o ITT IIU,. , 'RK:BR
DRlVAD,'RltOA
n,'RI

, wRnE CHECI( 216 WORDS
, STARTING AT THIS 8U5 ADRES
,NITH TRIS DISI<; DATA BLOCK (CYL 1'1, SEC'
filRI'l'£ CHECK, GO

1'1)

,GIVE SOMt TIMt
1010 CNTRI. ROT tUAP AS CO WAS SET?
,ns SRANCH
P::,GT3RG
,GltT RKCS. Ell, O.
10
,CIITRL ROY DID NOT CLEAR AS GO "AS
ISET TO flO ijRIT!: CktCK
CHKCRDY
IGO CHECK IP' CONTROL ROY IS S[T
: Ir SO, SI<;IP THE tROR MESSAGE.
ERROR
65
ICNTRL ROY DID NOT SET ArTER
ICOMPt.ETING IoIRITE CHECK ON
,CYLI NOER ~, SECTOR "
BIT
I DID HF: OR ERR BIT seT
U40000"Rl
BEQ
5,
1110, BRANCH
JSR
PC,GTlRG
I GO ~ET PI<;C S til OS rOR ERROR MESSAGE
ERROR
66
,HI': OR ERR BIT SET ON DOING W~lTE
JeHK ON crLINOER ", SEC 0
BIT
t1,IRKEI'
,DID IICt stT IN IIKtR?
8[Q
,NO, BRIINCH
51
JIIR
PC,GT1RG
JYe:& GET RI<;CS, ER, OS
ERROR
67
IWCE ON WRITE CHECK OF CYL 0. SEC a
,NOTE THAT IP' A PREVIOUS TEST
THEN COMPARED WITH !I[MORY BurrER
,TO SEE IF IT liAS WRITTEN CORRECT WAS
,DONE RIGHT BEF"ORE, THIS [RIIOR SHOULD NOT
,HAPPEN UNLtSS THERE IS A nULT I~ THE
'COMPARING LOGIC or 'WRT CHK'
TST
IIRKWC
,DID AICWC OvtRrLow7
f\~~O
7e
,YI!:S. BRANCH
NOV
.RICWC,IRtG0
,NO, GtT RKWC
M'lV
,GET AKCS
IIRI,'REGI
EIlROR
61
,RKIIC DID NOT OvtRrLOIlf AfTER
~ WRlT! CHECK ON ::YL OJ, S!C 0
NOV
DRIVAD, R4
,AI<;DA SHOULD INCREMENT
INC
R4
,TO THIS AFTER WRT CHK
CMP
A4,IIRKOA
:DJD RKDA INC'RENFNT CORI'ECTLY7
!'f.Q
9.
:ytS, BRIINCH
M,1V
114 •• RE00
:NO, GET rxPCTD RKOr.
MOV
IIRKDA,.AEGI
,GET RKOR RECVO
tlllloR
7"
I RKDl DID NOT TN::REMENT CORRECTLY
: (8Y 1 SECTOR) AP"TtR ~n CHK Oil 5[( ,', C YL
c"p
'OtlTBIIF"+1 ~'IH', (lRK8. lOll:' RK"" INCF1I!:MF;NT CORRECTLY?
BrQ
95
IYrs. rXlT
MOV
"'uTRUF+h''' ... SAEC,' I GfT fP("TO RKP.
NOV
~'~KI'''. ,RfGI
,Gn RK8A RECVO
[II",)~
,R~1'1 010 NOT INCPE"fNT CORRECTly
:(flY 1;'0'" BYTES) lrTF:R A "RT CHK
CLR
TITB
8PL
JSR
EAIIOR

R"
aRI

011504
"'115111
I'll )512
"'13521'
IfI1524

1105717
0111406
(177)7
011137
104061

IltJ'526
"1]5)2
Itt )514
"1)54",
III )541
011546
fill )5'14

1'1l7!!4
005104
'2"'477
801486
810411
0P717
11140711

81 )556
II 1S64
81)'566
0U514
01)602

1121777
PI 1'1 I ~1'I7
017117
0177]7
1 "'4"71

Ib';b14
1 b'lbl to
".111104

loll

11101162

""'I JOiO

1&5 .. "",
1'0'162
tb~~6b

0011&4

Ii!U14I'

1 b5'i'i2

~IHH"

"' .. II b2
11011 b4

J~9A

15119
)590
15 4H
lS9l
1Hl
1'j94

BEO
MOY
MOV
EIlIlOR

"0'
MOY

JS74
PH '5

DRIfRD,R2
R2
R2".1

IEQ

, , ...............................*•••••••••••••_ •• _ •••••••••••*

MR I II0ECO-! I -DIRKK-O
MACYI! 27C 1006)
22-SFI"·7b 1'18147
DZRI(KD.PI I
lH9
1540
3541
)542
354.!
1544
3'545
1546
],)41
3548
)'549
3550
)';51
)';52

811

NOY
INC
CMP

lECTOR l1li

I I>5~ JI>

8S I

IUCYlt 21(11116)
i114-0CT-76 "11)6 PAGE .7
MUNDEC-I t-DZRItK-D
22-SEP-7. tern
Ul
CHECK THE '!tRlTE CHECK' rtlNCnOIl - ON CYLINDEII 16, lEctOR ~
DIRnD.Plt
]51)5
3596
1597
3598
3599
36811
)611
)612
361'13
)614
l685
]616
)6lt7
1688
1619
1610
16tl
1612

1")604
0U611'1
"1)612
.1362.
011624

1122111
1101411
'121)7
011137
104824

088286
111"'206
0"1164

911

11111162

12116,111'11
TSU4
1l86,UEGIL
IlIt.8REGl
24

,.n

"
811626
.U610

,.AS
.................•...•••.•........•.......................•....

TaUt.

"00"I!4

104411

.COPE
CNT.RE.ET

,IIEII1" ROUTINE. " CONTROL RElET I '
: IISUED UD lrtER I CERUIJ TIME
J Ir THE 'eNTRL ROY' DOES NOT aET
; AN ERROR IS REPORTED. NOTE THAT
J THE PC IN ERROR MtSSIiCE rl THE
;PC IIHERE 'eNT.RElET' IS LOCATED.
;THIll IS A VERY SAIIIC ERR' IF IT
,OCCURS GO 8ACK TO TEn 10
,CHECI IF SIN IS sn. IF SET
,00 DRlYE RESET TO CLEAR IT

114421
.U7tt
.12780
812102
81120]

)6)7
)6)1

813652
.1 )654
ell656
ell661!
'1 )666
.1l672

1'11'I521UJ
8It375
11277'7
I'IU317
01'177

17'74.0
165444
881)51!

1619
16411
l641
1642
36H
1644
)645
1U6
3641
1649
)649
)658

e1 )700

iJl2711

"04111115

040V

'4005,.Rl

11)704
11117111
01)112
III ]114
ill 31211
01 )122
013726
11)1}4

0"'51"11

001362

CLP
TSTII
8041
INC
IlNE
JSII
"lOY
eRIt'D'"

~0'1NT

UJl
)6)4
36)5
)616

,GO. DO CONTROL AEIIET
I THII II 1 CALL FOR THE ' CNTRL-

80632

)629

SITS?

..................•...•............•...........................

.\)614
813640
81)644
.13650

31>1'
36)1
3612

CH~

SEa "'84

,*TEST J4
CIIECK THat IBl INHIBITS INCIlEMENTtNG 0' IlKSI
,.THIS TEiT CHECIS TH1T THE sus lDDRESS DOES /fOT INCREMENT WHEN
,.THE III BIT IS SET. SmQUEMCE or OPERAtIONS.
,*1) CLIElR OUT 216 IIORD BurrER IN "EMORy (ourBur)
,.2) READ rROM IICTOII 0, CYLINDER 1'1 THE 256 WORD BLOCK THAT ilAS
,.WRITTEN IN I PREVIOUS 'lEST (NOTE' THl! UST SHOULD HaYE S[EN
,.DDIIE BErORE 'I HI') • IBA BIT ta lET DURING READ lACK.
CHECK THlt RICBl DID NOT I1CREMEMl
,.4) CHECK 1'HU 'l'HE EIITIRE BLOCK II ... READ INTO THE lAME MEMORY
,.110110 (OU1'Iur) .. THE IIUT or THE WORDS IN THAT 8ur,.EII AilE"
PAEVIOU'L! CLEAAED OUT.

Ull
)614
)6U
16t6
3617
1618
1619
1620
1621
1622
362)
)624
)62'
1626
)627
]62'

CMP
IEQ
MOV
MOV
ERROR

,Of' 256 IIORDS 011 CYL 1'1, SEC'
,DOES Rltel STILL CONTAIII THE IIPT
"YES, BRANCH
,NO, GET ExPCtD R~CS
,GU RKCS RECVD
,RKes IITS CHANGED Arn:R WRT CHK
,liAS DOllE

TST .SIN
11813)2
1774.0
UU40
111

'''S82J

CLf<
INC
liNE

161446

"'OV

"'OV
"IOV

lS'
'''1)62
12""82
0~1 )!II

RKCS,Rt
,·40"RII
IOUTIU,,1I2
R2.U

165448

1~~1I1

I "1l412
,,"'52)7
00117)
0J41)1
01 nu
1044 I 6

MOV
MOV
MOV
MOV

1601212

(11)+

'·41., 'RKWC
1l3.IRKBA
'JPIVlD.IRKDl

IIRI

11
::OUNT

P:, ;T4RG
~PIUO, IPrGlI

, SET UP COUNT ,.OR 25. 1I0ROll

ICLEAR OUT T'I<: 256
,wOIID MEMORY ~lIrFER STAPTING
,A'l 'OUTBU"
IRUD B1CK 356 WORDS
,INTO 'l'HIS BUI ADIIES (IBA WILL B lET)
"1'014 THIS aSK AORU (SEC I. CYL 8)
,NOTE' atC " H1S IIEEN "RnnN IN A
,PREVIOUS TEST IIITH A U/fIQUI: PATTEU
,READ. CO, IBl sn
: 010 CNTRL ROY SET?
,YES. BRANCH
"IAlTED LONG ENOUGH?
II' NOT, LUP elK " >lAlT
IGO, CET PlKCS. ER. 06, OA
,Gn 'lHE IITAIITlNG IDIIEII
,flREAIC CONTU-TS 0,. IRE;'"

I4UNnEC-I\-OlRKK-!'
IoIAC'tli 27(1006) 04-0:T-7. 1611'" PAG! 68
OZR!C~D.PII
32-SEP·a 18141
T34
CHECK THAT IS_ INHIIIITII I'lCRE'4ENTIIiG 0' FlKeA
011736

EFlIIDP

1<1411145

,INTO DR t, cn, IIUR. S~C
;<:NTIII. ROY DID NOT sn ArTEII DOxr;C
! Rr.AO

01)740

821142

~I ]144

.. 211271
!!II 416
010237
0t 1737
104071

AI)710
111)776
>!14081i1
U 14"114

032171

ill 4" 12

1<"4044

1!140H
" 14J16
1f14J42
314"44

",,';722

11141114&

"12105
lias 2"8
.101 ~ 17
8215722

A140~1I

~817H

p 14 035 2

1853)7
1142)1
ill ~i'''4

HU56
,H4;\62
~14.lH
1!114~1e

~0UItll

1'''1164

165330

51.

012"11l9
023712
lill411
8127)7
811211
013737

014~12

165364
001162
1653'2

09I0H

01402"
014024

0140110

,IF YES, RETURN HERE.
IERI! BIT lET ON DOINC READ rllOM SEC 'l,
,ClL 8 (tIllDICATEO
III <DIIK-jI,DPf:S»
: 'RKOI.· III [IIOR .. IGE GIVES TH[
:CONTENTS 0' IIKDI. AT THE TI"E Of' [PC'P

ERPO"

" 11746
"13752
013154
011760
011766

1'11,2114
II P' 417

CMP
BEQ
MOV
MOV
EPIIOP

P2""1<8A
51
P2, IRE;.,
IIRKII~. IREGI

;010 IIKB" INCREMENT'
:01( IF" NOT. BRUCH
,Gn EXPC1'D PKSA

,"~BA

8IT
8NE
MOV

11300"IIK05
TIT35
'-410,111

:::fIIP

1)71,8112

9[(;1

1100177

eelU4
001)511

17777]

801164
8e 1166

"""162

1110 V
MOV
MOV

".1166

sn.

,CHECK I,. '[PR' OR 'ME' IItT IS

JI"

U
U77.IR[G0
(112), IREGI
DIUllO.IPtG2

(R2) +

; Ca:T 1I1t'8" !If-eYD

INCRE"ltITtD IIHEN 18A BIT

,sn, SHOULD NOT HlVE
,IS SIN SET?
Ill,. ns, EXIT

~AS

,CHECK THIIT THt fII'ST WOIIO IN

: 'OUTS!!F"' IS 171 (LAU 1101'10 or SEC ~.
,cn ill. 'IOH THAT pUD ~"S OON£
,INTO T'I IS 5.1< 'AE IIRD WITH 181 StT
I GET EXPCTC WORD (LAST 1101'0 or TME e'J,",!:p
,GET "OFID RECVD (LAST lI~o rROM SEC III
,OIaK aIJPE6 ,;HEIIE ERPO .. OCCUREo
,(SEC ~, CTL .l L"ST WOPD)
,onl ERROP
,THE FIRST 0I0PD IN "'EM 8urrER (OUTBUfl
,IIHOULD 9E ~O'l·ZE:PO , SHOULD CONTAIN
,THE LAST WOPD PE~D UC, rRO" SEC ~
,CTL III,THIS 010 NOT HAPPEIf If' THE Eln~o;> 0C::::'1RS
: IIICREMEMT POINTER TO THE NXT WORD
: aLLOIl ONLY 5 "'£UGEI ,.OP EPR 116
,CHICO ALL 256 1I0RDII IN THI: SUrrER!

TST
1110 V

'-5, .. 5

INC:

1'3

81Q
TST

TSU5
(R3l +

"ru, un

8F:Q

7•

; YES, LUP BAit' " CHII THE "U 100R07

CLR

wov

, 1'1£141
-(R2),IRr.G2

: EPROR. GET UPCT[O iofO.-D • "
I cn 1I0~D THAT WAIl 'OUIID IN THE

''''v

PIII.1I4

ADD

wov

lUI, R4
1'14, aREGe

,IS TNU "ORO ill
lIurrE:~

ITH16 'II'lRD "
IN "!['10RT BurrER
,SHOULD HavE i5EF:" lEI'IO
,THI: 256 WO~D BU"EII (STaIlTI'IQ AT
,OUTBUP') ,.... s CL£AflEO eE'ORE FlUDI~G
,UI( SEC Il I~ro IT. SINCE THt rei
:IIIT .. I.e sn D'J~ING t~E IIUD. ONLY
: THE rIPST .0110
(0'jT8U" SHOUL:>
IHavE CHA'IG~O, THE PUT
THE io/O?)~
,SHaULl) !lE STILL':. Ir THIS ERRO~
:OCCUPS, '~r;p, "
(,r TME BUffE?) ~;
; INDl:ATED 1'i T~E O:ROP I4[SAC!:) GOT
:CHAIiGfC ",,!;/, PH: .U 'O~E rpo"l
:THr :H~'. r"'~!=~TlW; !'i_T II!'!';'; B.
; SET J.~U- .~ S ~"'7 ',.,~!: I ~TC !~E

fJ,

MUNOEC-U-OZAKK-O
MACrtl 2"OIlIl,}
iI.-OCT-16
16106 PAGE 69
OZRKIID.Pll
22-SEP-76 98147
T14
CHECK THAT IBA INHIBITS INCRE14ENTItiG or RKSA
]101
]7,,11
]189

l7tlll
l71l
3712
371]

814076
IH410"
BtUIlI2

INC
BF'O
BP

"052"5
"1401
IIQl3757

R5
TSTJ5

**.**......

,"TEST 35
CHECK THAt RKll INTERRUPTS .. HEN IDE IS SET
: "THIS 1'EST eNECKS IF RIO I INTERRUPTS TO ITS DESIGNATED VECTOR
:.aDDRESS liNEN IDE BIT IS SET, IIU'H CONTROL READY SE! , GO CLEAR.
... 11 IS NORMALLY 220, UNLESS IT HAS BEEII CHANC!O. IF IT HAS BEEN
; "CI!II.NGED "Kl1 WILL INTERRUPT TO 'RKVEC'. NOTE 'RKVEC' HAS
,.TO PoE SET UP 8Y THE USER.

3716

3717

, , .................. "...........................*••• *...........**.* •••••••
1lI1411114
014106

T5T)51

1lI0""04
104413

SCOPE
CMT.RESET

1724
3725
1726
)127
3728
3129
31)3
3711
)1)2
)7)1

3714
)135
3736
37)7
3738
)719

374.,
1141
1742
)H)

3H4
3145
3746

014110

t04421

314112
1114116
014122
014124
1114124
0141 30
0141H
014140
"14144
tl14146
1'1141'50
1114154

e12746
017746
00111992

00"340
314124

0137461
IH37t1"
012120
e1271"
1"5711
10,,376
812711
1"4420

031332
0"1402
0141'71t
0003411
1lI0"lIh6
0111'11005

"14160
014164

III I 117

1101162

1114166
IU417"

0004110
022626

TST.SIN
MOV
'10V

3749
375111
1751
1752
3753

'H0,-tSP)
UU,-UP)

6411
MOV
MV
"0\1
MOV
TST8
BPL
HOV
WAT.INT

RKes,"l
RKVE!:,R8
11', (Rith
U40,(RII)
.111

MOV
F.RIIOR

.111. ,REG0

104074

lSi

8R
CMP

IS
(SPU, (SP)+

014112

022626

014174

012177

014210

t04420

0000115

I b5290

C14P

(SP)+. (SP).

HOV

'2',GlRKVEC

31~9

)160
3161
1162

; CET POINTER TO 11K VECTOll ADRES
, SET UP INTERRUPT VECTOR FOR RK 11
I SET psw ON INTERRUPT

,WUT FOR CNTIIL ROY TO SET

.-2
111118, 1lA1

37<;4

)755
1756
3151
1158

; GO, DO CONTROL RESET
,THIS IS A CALL FOR THE 'CHTRL: RESU' ROUTINE. A CONTROL RESET IS
: ISSUED AND AFTER A CERTAIN TIME
, IF' THE 'CNTRL ROY' DOES NOT SET
JAN ERROR IS REPORTED. IIOTE THAT
rTHE PC IN ERROR MESSAGE IS THE
:PC WHE"E 'eNT.RESET' IS LOCATED.
:THIS IS A VERY BASIC ERR' IF IT
: OCCURS GO 8ACK TO TEST 10
;CHECK IF SIN IS SET, IF S!T
:00 DRIVE RESET TO CLEAR IT

itT!

3747
3748

"EXIT

: I . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . " ...... " . . . . . . .

11!4
HIS
ntll
nt9
)721l1
)721
)722
)121

SEQ 0086

,SA14E MEMORY LOCATYON. 'WORD . '
: fS OCTaL' SPECIFIES THE POIITIOk
UN THE BUfFER (FIRST 1I0RD IS 'WORD t' I)

WAT,INT .5

:SET IDE BIT IN RKCS
: WAI T FOR I NTERPUPT, ATLEAST
:11 US FOR 11/20, 7 US fOR 11/45
:GET IIKCS
:RIC11 DID NOT INTERRUPT wHEN IDE
:liAS SET, WITH CNTRt.E ROY SET I. GO
:CLEAP
; R~ 11 INTERRUPTED COPRECTLY TO
;THIS. RESTORE STACK POINTER
: (FIIO!! PK 11 IIITERRUPT)
1 RESTORE STACK POINTER
: (FPO'!
WAT.INT)
,IF THERE IS FAULTY POLLING OR I NTEPIIPT
, LOGIC SECOND INTERRUPT MIGHT OCCUP
plAIT FOR INTtRRUPT,IF ANY
:DUE TO FAULTY LOGIC

MAINDEC-tl-DZRKK-O
MACYl 1 27C ""06)
04-0CT-7b
16106 PAGE 7'D1Pl{ICD.Pll
Z;Z-SEP-76 9814'7
115
CHECK THAT RKl1 INT~~PUPTS WHE'N lOr. IS SET

1161
171;4
3765
1166
3767
3768

0142116

9004"3

814211l
1114212
014214

IH2626
022626
I,He21!

B1!.

CMP
C"'P
E~POR

(SP)+, (SP)+
(SP)+'(SP)+
20

MOV

.AAOINT,\I1RKVEC

MOV
MOV

IH0,-(SP)
'658,-(SP)

11f>9

377.1
1771
)772
)77)

1174
3715
1176

1'114216

012111

A~14526

0\4224
0142313

1'12746
1'112146
itll0092

0"'9H0
'" 42)6

IHUH

t 6515b

b511

01423b

, , ............. ***.*** •••••• ** ....... ***.***.***.*** •• **4** .. ** ......... .

n79

J -TEST 36

eHECI( THAT hUH ID!: SET RKlI INTERRUPTS AftER 1 NU ATION & COMPLETION or
,.THIS TEST CHECKS TH~T AN INTI':RtlUPT ,.ROM RKU OCCURS AFTER
,"A SEEIC IS INITIATED IIITij 'IDE' BIT SET, AND THEN A SECOND
,.INTERRUPT OCCURS ArTF-R THE SEEK IS OON&:. IT ALSO CHEC!(S THAT
,.AFTlP THE FIPS1' INTERRUPT 'scpo BIT IS NOT SET, WHEREAS AFTER
,.THE SECOND INTERRUPT 'scpo IS SET.
,*THIS TEST ALSO CHECKS A PART OF THE POLLING LOGIC.

nee

r , ••••••• " •• - •• *." ...............................................*••••••••
014236
014240
014246

1'1"0004
IH 21)7

014250
"14254
814262
814266

itl370"
1111 )117
0047)1
104926

801332

01427111
1"4271
014)00
81U04
81UI2
814316

0\ n"l
41112721
01211 I
052117
11121 J"
1';4420

..,..,1 t02
014He
00"'"4'"
000111
0"11100

165026

1114122
014])0
314334

A12777
311037
1 "'41'175

804526
0AI I 62

165852

Tsn61

"90005

80121116

1"'441 3

SCOPE
MOV
'!S,UI14ES
CNT. ~~~se T

)79)

HH
1795
3796
3797
1798
)799
3883
3981
1802
3AIl3
3804
)895
3806
38,,7
3808
]809
38t8
31111

1I1I13~'"

140V

IU856

021412

DIlIVAD,~R~DA

JSR

PC,DRESET
2&

[PROR
211

110~14"

MOV
"OV
MOV
BIS
MOV
WAt.TNT

,AOIIFS THE DRIVE
IGO, DO DRIVE RESET
;R/W/S ROY DION'T SET ArtER DOING
:ABOVE DRIVE RF.SET

'''(VEe,RI

O',(R1)+
'340,(Rl)
• 40 ,.RKDA
'111,$R0
,H10

)812
MOV
MOV
ERROP

~ 100 5 ITERATIONS
:GO, DO CONTROL RESET
; rHIS IS A CALL FOR THE 'eNTRL:RESET' ROllTINE. A CONTROL REStT IS
: ISSUED AND AFTER A CERTAIN TIME
: IF THE 'CNTRL RDr' DOES NOT SET
r AN ERROR IS REPORTED. NOTE THAT
; THE PC 1"1 ERROR MESSAGE IS THE
IPC WHERE 'CNT.RESET' IS LOCATED,
;THIS IS A VERY BASIC ERR" IF IT
IOC'e'URS GO P>ACK TO TEST 10

RKCS, RI1I

"lor

3et]
19t4
38t5
18t6
381'7
1818

: RESTO~E STIICt< P1'R (FROM RI<! 1 tNTRUPT)
:~ESTORE STAe'K PTP (fRO .. WAT.tNT)
: AN UNF:XPECTED RKII INTERRUPT
; OCCUREO. THERE SHOULD HAVE REEN
:ONLY 1 INTERRUPT (TO IS ABOVE:)
: PESTOPE VECTOP ADPES FOR
: UNEXPECTEO RKI I INTERRUPT,

RT!

3177
3778
3781
)782
1781
)'784
3785
3786
l7n
3789
1789
37911
)791
)192

3S1

SEQ 0081

'I'\.&OT"T,IIRI<VEC
IIPd, SR!,;G0
700;

: SET UP VECTOR ADRES ,.OR RK 11 INTERI'PT
1 Sr.T UP PSW ON INTERRUPT
,ADRts CYLINOER It
rSf.EK, GO WITH IDE SET
INAIT FOR THE DRIVE TO
: 1 NTERRUPT AfTER AORES NAS PEC VD
p·r.ITINC TINE''' 1.4 MS FOil 11120
:2ij0 US FOR 11145
:EPROR, IF INTERUPT DID NOT OCCUR
,8Y NOW
: RFSTDRE UNFXPECTED RK 11 INTERRUPT
: GET RKCS
: INHPFlUPT DID NOT OCCUR AF'TEP
; SEH WAS B ITIATED WITH IDE SFT

3U9
3821
3921
1822
3921
]824
31125
3826
3827
1828

814H6
114348

.104"2
.. 22626

814H2

122626

014144
014352
014J56
814360
814364

012777
0)2710
"0148)

014411"
02004"0

0110)7

""1162

014366

1.441.

1".

CIoIP

(SP)+, (SP)+

MOY

1650)"

BIT
6£0
IoI0V

104076

ERIIOP

)1129

]8)0
]8)1
18)2

BR
CI4P

4',

(SP)+, (SP)+

U',IIRKVF.C
120111"0,,1'1'"

'RI,'REGI!
76

WAT.INT ,56700

l8U
38)4
3815
)8J6
1817
18U

814)12

.12771

014400
814404

".,4737

3819
3840

014406
014410

""04f11
nU26

11114526

lIII4017

1841
lI42
lI4)

NOV

165""2

014412

022626

1114414

012777

'''''4526

014422
11114426
"14410
014414

032711
011"8)
ett0)1

11101162

014H6
014442

011701
'42701
0'0111
011414

164664
.11711
0013!10

"' 4454
1114460
1'114464
014410
014412
014416

0UHf>

01113511
021106
001162

014502

lil4"47

1114504
"14'\04
0145U
el4514

012746
"12746
01"082

]144
1845
3846
)847
3848
3849
3850
3851
1852
)853
31S4
18!15
)856
38!17
3858
1859
3860
)861
3862
l8U
3864
1865
3866
1867
1868
3869
3870
3871
)812
l871
3874

"14446
"14452

164161

02'0.,0

1"405)

"047)7
IH26)1
010146
0'47)7
0126)1

611

JSP
tRROP

Pt,GT1RG
77

8R
CI4P

!U+2

CMP

(SP)+, (ap)+

'"'0 V

I8lDl NT, IFlKVEC

BIT
BNE
MOV
I':RROII

~14~16

tRltDS, PI
,,7777,RI
1I1,DRIVlD

MOV

DRIVAO,·(SP)
PC,SHFTRT
(SP)+,IREG0
Rl,-(SP)
PC,SHP'TRT
(lP)+,IREGI

MOV
MOV
JSII
MOV
tRPOR

880148
"14516

12"""",IIR0
IR0, ,REG0

MOV
BIC
CMP
BEQ
JSII

021106
0"'1164

UP)+,(SPh

MOV
MOV
liT!

:OK, IF RK11 INtERRUPTED TO THIS
:FlESTORE STACIC POINTER (FROM RKII INTERRUPT)
:RESTORE snclC POINTER ('ROM
IwAT.INT)
,SftT UP NEW VF;CTOII AORE. ,.OR RIO I
lIS SCP CLEAR
,n:s, RRANCH
IGET III1CS
,SCP SET BEFORE SEU TO LUT
ICYLINDER WAS DOllE
I WA IT FOR DRIVE TO INTERRUPT
: 'FTER SEEK liAS COMPLETED
,WUTIII:G TIMEall0 MS FOR 11/28
: 36 MS rOR 11/45
: n's AN ERROR I' BY T"1I TIME
; INTr.RRUPT HAS NOT OCCURERf,O
,GO GET IIKCS, Ell, OS
;RKII 010 NOT INTERRUPT AftER SEEK (TO
,LAST CYLINDER) WAS DONE WITH IDE lET
,OK, IF RIIlI IIITERUPTED TO THI. AFTER
,SEEK liAS COMPLETED. REStORE
,STACK POINTER (FROM RlCll INURRUPT)
,RESTORE STACI< POIIITtR (rROM
IIIAT.INt)
I RESTORE RK 11 INTERRUPT VECTOR AORES
,FOR UNEXPECTED INTERU'l's
:010 SCP ~IT SET?
HES, BRANCH
IGET RKCS
:SCP 010 PlOT SET AF'l'ER RKU IITERRUPTEO
I INDICATING SEEK WAS OONE
IGET RKOS
:MASK NON-ID BITS IN RKDS
I CORRECT 10 B IT. IN RKOU
: YES, BRANCH
: PUSH DRV ADRES ON THE BTAelt
:GO, SHIFT flIGHT OIlV •
,GET EXPCTO OIlV •
: PUSH 10 BITS ON THI'! STACK
, GO SHIFT THEil RIGHT
,POP THE RECVO 10 BITS
,WIIONG 10 BTTS WERE RECVO IN
,RICDS AFTEP SEEK liAS DONE (INTRUPT
IMODE). '!XPCT' tNDICATES TliE DRIVE
" THAT SHOULD HAVE BEEN IN THE
110 BITS, '''ECVO' INDICATES THE
,OIlIYE • THAT WAS RE::VD Itl THE In BITS

')40,-(SP)
164S,-(lP)

6481

~AJNDEC·II·DZRII'I(-O

D111ICIIO. Ptl
'H4516
014520
014526
814514
III 4 '';} 6
1114544

MACYl! 27 ( l 80' J 04-0CT-76 16106 PAGE 72
l2-SEP-76 118.41
T36
CHECK THAT WITH IDE SU III< II t NTf.RRUPTS lFTER INTlATION ,
10441)

I b4612
Hi4512

"11717
IU1111
"'0'4"4
IJl7H7
,1140511

eMT.IIESET
MO"
DRIVAD,III1KOA
e
",'AKOS
~EQ
9$
NO"
.1I1C0S,SREGOl
5111
ERIIOP

1645"4

COMPLFTlON OF S

: r;o DO CONTI'OL RESET

116""""

: A.ORES THE Of! I VE
:010 eNTR!. RESET CLI'::,R DPIVE: rr. BITS'!'
I YES, BRANCH
: GET RKDS
:CONTROL PESET OIDN'T CLEAR THF

CMP

1200dlRIII
1STH
~P'" tREG"
11110

''''AS SCP BIT CLEAIIED BY CNTRL RESET?
II YES, I':XJT
I GET R~CS
IC'lTRL prSET nIO NOT CLHII SCP BIT

IORIVE 10 BITS (13-15) IN P"'OS
1'14546
"14552
014554
01456111

0227 h'
1i1I1401
0110)7
t041it0

00020e

81!:Q

11111162

MOV
tRIIOR

J , . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ** ••••••••••••••••

I·TEST ]7
CItECK THAT IIlTH IDE: SET RK II I'lTlj;flRUPTS WHEII P[AD I SOON!
I.THIS TEST CHECKS THAT WHEN A DATA TRANSFER FUNCTION IS DONe:
,.WtTH IDE BIT SET, RKIl INTERPUPTS ~HEN THE FUNCTION IS CO"PLETED
,.FUNCTION USED IN THIS TEST IS READ.

"
1-114562
'114564

001100.
1114413

014566

184421

"'14570
014574
014600
11146114
1'114611/1
el4614
11114622
"14624
1'114&)0
014634
"1464.,
1'114644
1114&50

1111 )700
111117112
01)7<14
01nl-l'
052701
012777
310112
AI1714
111131",0;

001112
""Uti!

"' 2125
312715
111127104
'''4420

'!I 4672

014654

~1777 7

~ 14662

011 "11

"14666

111141 ('I

..........................................._.......................

TIT 37 1

SCOPE
tNT. R!S!T

TST.SIN
MOV
MOV
MOV
NOV

IIKCS, p0
IIKDA,R'
ilKBA, R4
DRIVAO,lIl
BrS
'13, Rl
.-,,,,,, I!IRI<WC
MOV
MOV
Pl,IR2
MOV
'OUT8U',IIR4
MOV
IIKYEC,R5
MOV
IU, (115)+
~OV
')40, (115)
MOV
'105, 1IR0
IiAr.INT ,\27710

01l. ))&

01'11150
01l01'1l1
177600

164512

1'11)240

001402
00014"
0tl0 I !'I 5
127710

";"4526
..Hl1162

: GO. DO CONTROL R[SI!:T
: THt S IS A CALL 'OR THI 'CNTRL:RESET' ROUTJ'IE. ,. CONTROL RESET IS
I ISSUED AND ArtER A COTUN TIME
: IF' THE 'CNTRL ROY' DOES NOT SET
,AN ERIIOR IS REPORTED. NOTE THAT
,THt PC Itl tRIIOR Me:SSAGE IS THE
;PC WHERE ·eNT.RESET' IS LOCATED.
I THI S IS ~ V!RY BASIC ERR" IF IT
IOCCUIlS GO !lAC!( TO TEST t 0
,CHECK IF' SIN IS SET, IF' SET
100 DR I Vt RESET TO CLElII IT

164~2"

MOV

MaV
ERROR

II.

IIUOINT,fiRKVEC
I!IR8"R[G0

101
1$+10
r Sp) +. (S"""

: 51':T BITS rOR SEC 11
,READ ~II0 (OCTAL 1I0ROS)
,F~ON THIS OISIC ADPES (CIL 0, SI':C 13)
I INTO THIS BUS ADIIES
,SET UP VECTOP AORES FOR RK II TO INTPIJPT
; SET PSW ON I NTEIIUPT
;READ, GO, IOE SET
: WAIT rOR RK!1 TO INTEFIRUPT ON
:COIolPLt:TI('I"l OF READ
:WAJT1NC TI"Ea H7 MS FOil 11128
:"7 ~s FOi< 11/45
,RESTOIIE Ulln;PCT!:!) I>JU:PIIIlPT V[CT'lR AORE S
: r.e:T RKCS
:~n I OtD ~OT JNTfPRUPT Hlf.1I I'OG
:wAS 00'11':. l'lf. BtT SET.
:OK,

If 11K! 1

T~l"~PlJPT[D

1('

T~lS

SEQ 0il89

U:06 PlGE H
PllCltt 27C11!J8U
04-0CT-'6
!l!UNDEC-l1-DIRICK-O
DONE
137
CHtCK THlT IIITH lOP. S!:! RKll INTERIWPTS II liE II RE~D 15
22-SfP-76 88147
DZRlClCD.PI I
3911
3932
1933
39)4
3935
3936
3937
3939
39J9
)940
)941
3942
)941
)941
3945
1946

014674
014676

"22626
'1112777

084526

014794

11114737

.21250

lit 47 UI

184P16

"t4712
"14716
914728
0141]2
014726
814n2

962781
828112
"01485
0111137
IUI217
104048

If 147) 4

,,"47)7

014740

104041

164476

4$1

08'''8S
.IU162
8.1164

021224

21:

CliP
MOY

(SP)+. (SP)+
·BADINT.IIRKVEC

"SR

PC,CHKER

[RROR

ADD
CMP
BEQ
MOY
MOV
ERROR

IS.Rt
RI.tR2

JSR

PC,CHKilC

ERIIOR

MOV
MOV
RT!

')4IiJ.-(SP)
11641,-CSP)

CliP
BEQ
MO'
MOV
ERPOR

.OUTBUF+400,fiR4 ,DID RKBA tNCREMENT CORRECTLY?
, ,YES, EXIT
1Sf40
'OOTBOF+49 •• SREG0 ,GET EXPCT PKBA
,GET RKBA RECVD
,U,SREGI
,RKBA DID NOT INCRtMENT CORRECTLY
U
,AFTER A READ OF' 288 NORDS

U
Rl"REG0
'R2 •• REGl
48

)947
3948
}949
3950
3951
3952
3953
39'S 4
3955
3956
1957
3958
3959
3960
)961
3962
396 )
1964
)965
3966
3'167
3968
3969

IH47n
814742
014746
014152
014754
814754
"14760
014762
014770
01477.

III
012746
012746
001/1002

000340
014754

"2'1714
001486
0127J7

1113364.

64 ..

811437

033640
001164

'''"162

104042

................................................................

CHECK THAT RKII INTERRUPTS AT BR5 ONLY
,.TEST 40
IF IT
,*THIS TEST CHECK' THAt' RKlt CAt! ITERRUPT AT BR5 ONLY.
,.INTERRUPTS AT A LEVEL HIGHER THAN BP5 AN ERROR IS INDrCHED.
'.IF IT DOES NOT INTERRUPT AT BR5 ORLOIIER THEN ALSO AN
IF FOR SOME REASON THE lIfTERRUPT
r.ERROR 15 lIfDICATED.
,.LEVEL IS CHANGED FROM BR5. THEN CONTENTS or RKPRI WILL
,.HUE TO BE CHANGED ACCORDIIGLY un STILL TEXT IIILL
,.CHECK FOR THIS BR LEVEL.

3970
3971
)972
3(7)
3974
1975
)976

1114776
''15888

000004

,................................................................

TS!40 1

1<l4411

SCOPE
CNT.PESET

1971
1979
3979
3998

)981
3982
3981
1984
3995
)996

0151f82

104421

015084

912717

TST.stN
IH5i14\l

~OV

1'10111>1

'U,tLPERR

; GO, DO CONTROL RESET
; THIS IS A CALL FOR THE 'CNTRLIRESU' ROtrTHIE. A CONTROL RESET IS
,ISSUED AND AFTER A CERfAIN TIME
I IF THE 'CNTRL ROY' OOES NOT SET
, AN ERROR IS REPOfl TI!:D. NOTE THAT
I THE PC IN ERROR MESSAGE IS THE
,PC IIHERE ·CNT.RESET· IS LOCATED.
,THIS IS A VERY BASIC ERR' IF IT
10CCURS GO 8ACK TO nST 10
,CHECK IF SIN IS SET, IP' SET
,00 DRIVE RESET TO CLEAR IT
I SET PETURN AORES rop LUPINe

16106 PAGE 74
04-0CT-76
M~CYlI 27C 11'06)
MAtIlDEC-I 1 -DZRKK-O
1'40
CHECk THAT RKiI I"TtRJUPTS AT BPS ONLY
22-SEP-76 08147
DZRKJ(D.PI1
)987
3998
19119
3990
)991
3992
1993

;0,. ERROR (SII 9)
815012
015alb
015024
8150ltl
015034

913100
01 )717
"12701
012702
0U70J

091)32
1:101350
8001f07
000)414
00141""

0151f40
015044
015050

Itl1hJ4
012724
012714
910246
012746

001482
015152
1109140

MOV
MOV
MOY
MOY
IIOV

RICCS.R0
DRlVAD,IIRKDA
n.Rl
U40.R2
RKPRI,Rl

MOV
MOV
MOV
MOV
MOV
RTl

RKVEC,R4
. n . (R4)+
1340. (R4'
R2.-UP)
14',-(5P)

'00180
177760

NOV
MOY
INC
8NE
CMP
BGT

1100,IIR0
'-20, RS
RS
• -2
R2, R3
2S

elfl162
011UI64

MOV
MOV
[RIlOR

RI"REG0
fiR0,.REGI

CLR
ADD

fiR0
1-40,R2

DEC
BIE

Rt
IS

164114

1994
39Q5
1996
3991
3998
3999
4i1lfe
40iJi
4082
teel
4084
4005
4006
4i107
4008
4089
4010

4011
411112
4013
4014
1"'15
4016

I"'t1

4018
1(119
4",1!'
4111,1
40n
411121

4d24
4025
4"'26
4"21
'029
.029

."UJ
4011
4812
40H
40)4
411J15
4Ale>
.11}7
40)8
40)9
41140
41<141
41114~

SEQ 009O

:RESTORE STACK POINTER (FROM RKU INTERRUPT)
:RESTORE ST~CK POINTER (FROM WAT.INT)
J RESTOIIE UNEXPECTED RICII INTERRUPT
:VEcrOR ADRES
,CHECK IF ANY SIT IN RnR IS SET.
, IF ns, RETURN HERE.
,RICEII SET ON DOING READ FROM SEC 0.
r CIL 11 IN INTERRUPT MODE
,RICDA SHOULD HAVE INCREME,.TED TO THIS
: DID RKDA INCREMENT CORRECTLY?
JlES BRANCH
,GET EXPCTD RTOA
:GET RKDA RECVD
,RKDA INCREMENTED WRONG ON DOING
:A RUD ON Cn. 0. SEC 1)
:CHECK THAT PKIIC OVERrLONED TO 0.
:1F NOT REtUPN HERE.
: RnC DIDN'T OURf'LO AFTER
: _ READ OF 200 WOPDS

''l15e~4

815"56
01,O62
015064
IH5~64

015070

015064

0i~""lIl2

411
"12711<l
01270'5

,,.51674

01'152~S

11115016
015100
815102

"'0t 376
02020)
1t03~0S

015I1J4
015110
015114

"11037

0111137

015116
015120

905'H0
"62702

191'5124
"15126

005301
001344

815110

1112717

004526

010;136
915142
0l'5146
91'51'S0
171'51'S0

012146
012746
"00002

",99]40
\!llS151il

''''5152
1,.51154

0221>26
1'112777

81~t62

01O;jf>4

620203
":'1754

01516&
1115172
,n 'S 116

0101\31

8111162

"'1111)7
11141"4

0~116.

'111410)

2 ..
1777...,

164244

IAl

NOY

.aADINT •• RKVEC

MOV
MO'
RTl

1340,-(IIP)
'6U.-eSP)

IPRIORITY LEVEL 7
IBR LEVEL 7 rOR PSW
,NOTE. If' RKI1 INTERRUPT LEVEL IS
:CHANGED rROM 5 TO ANY OTIIE!! LEVfL
:THEN CHANGE CONTENTS 01'" "RKPIII'
I ACCORDINGLY
,SET UP ADRES P'OR PKll TO INTERUPT
,SET UP PSW ON INTERUPT
,SET PROCESSOR PRIORITY LEVEL AS

,INDICATED BY R2
,SET THt IDE BIT
,WAlT rOR THE RKll INTERRUPT
'WAITING TIME-78 US FOR 11/20
113 US FOR 11/45
,WAS THE CPU PRIORITY LEVEL LESS THAN
I THE RK 11 LEVEL 7
IF YES. RKll
I SHOULIl HAVE INTERRUPTED. ERROR.
:IF IT DID NOT
,GET CPU AR LEVEL
,GET RKCS
,THOUGH CPU LEVEL WAS LESS THAN
ITHI RUI LEVEL (5), IIKl1 010 NOT
, INTERRUPT
,CLEAR RKCS
lDECREASE THE PRIORITY LEVEL (rOR
,CPU) BY 1
,CPU WILL B AT THIS LEVEL
:LUP BAK , CHK FOil THIS BR LEVEL,
IDONE IIITH CHKING rOR ALL LEVELS.
,REStORE UNEXPECTED 11K It INTERRUPT
,VECTOR

6411
800414

3 ..
.94526

164220

TST4t

: II!:X1T,TO NXT TST

CMP
MOV

CSP)+, (SP)+
'BAOINr"RKVP;C

CliP
BLE

112. III

:RESTORE STACK POINTER
,RUTORE UNEXPECTED IIKll INTERRUPT
,VEcrOR
IIF THIS INTERRUPT OCCUREO WHEN
:CPU LEVEL WAS I,EIIS THAN THE
' RKlI PRIORITY LEVEL (5) THEN IT IS
,OK.
l ' NOT SO. ERROR
I GET CPU BR LEVEL
:GI!:T RKCS
,RICl1 INTERRUPTED IIIIEN TilE CPU
,LEVEL, (AS PO [NTED BY R Il WAS
:IIIGHER OR SQ14e: 1\5 THt PKll
:LEVEL (5)

140V
MOV
ERROR

Rl.I"EG0
'''". '~I!:Gl
Ul4

SEQ 0091

IlEQ 8"2

.,41

11528.

4.44
4.45
4.46
•• 47

••n

.."

.es4

, GO BACII ,

SIMULATE ~ CHECK 'OVR' ERROR
,.THIS TEST IIMULATES OVERRUN ERROR AND CHECKS IF TilE OVR
,.8IT IN RUR GITS SET. tHEN IT IS CLEARED USIIG CN!PL RESET
r.~ CIIECK£O fHAT IT WAS CLEaRED.
O'R COIIOITtON IS SIMULATED
,.8Y DYIIIG TO AEAD 4t111(0CTAL) WORDS rROM LAST CYLlNDEROU),
,.LAIT SECTOR ct
SURFACE I.

.,............•_.................................................
n,

"15282
.15284

••••84
184413

"5206

1If4421

."110
.15214

811101
852701

'.13se
I t 45]]

.15220
.15226
"15234

112777
112777
'10177

117377
0U,."
16410.

1641811
164182

8'.'e5

164864

Tlf411

SCOPE
Cn,RI!:SET

.055

4.57
4858
4059
4068
4061
4062
406)
4064
4065
4066
.867
U68
4169
4.,,0
4871

U5241

812771

• 071

115246
If 152511
IU5254

1105,.02
105711
1011141 •

. . 78

"15256

"052112

115260

Ml)7]

e15262
815270
1115214

11111)7
004711
104.02

015276

812777
,ete86
'047n
"127)1
1"418'

4,U

4014

.,76

........40"
....
•• 82

•• n

4. . 4
4885

MOV
BIS

DRIUD,IH
t145H,Rt

MOV
MOY
MOY

,-4et,tAUC
.0UTBur I 'AKBA
Rl,IIUtOA

164046
82e7l6

16.856

"eU66

HOV

IS,IIMCS

CLR
TlfB
BMI
INC
INE

lIZ
,RKCS

MOY

.1811
P;RIIOR

2e
A2

Ie
-AKIIIC, .Ra:G2
PC,GT2RG
2

••86
4.81

.889

•• 91

,GO, DO CONTROL RESr.T
,THlS IS A CALL fOR THE 'CNTRL,REatT' ROUTINE. A CONTROL R!:SET IS
,ISSUI:D AND AfTER A CERTUN TIME
J IF TlfE 'CNTRL ROY' DOES NOT SET
I AN ERROR IS REPORTED. Non THAT
I THE PC III ERROR MES:! II.Gt IS THE
fPC If HERE ·CNT.RESET' IS LOCATED.
JTHIS II A VERy BASIC ERR. If' IT
,OCCURS GO BACK TO TEST
,CHECK It SIN IS SET. If
,SET, DO DRIVE RESET TO CLR If
I GET ADAES or DAI VE
, SET BlTS rOR LAST CYLINDER (312),
,SUR 1, LIST SI!:CTOR (13)
,READ
IfORDS
, INTO THII MEMORY BU'FER
,'ROil THIS DSK AORES, LAST CYL,
'LASf SEC, SI1lIUCE 1
,READ, GO

..,J

tST.SIII

4.72

4.75

CHII THE NIT LEVtL

'.ftST U

4""

41149
4.5.
4.,51
4'52

.•.....................•.......................................
BR

'8"146

.15304
'15316

41191

8.5112
"1512'

4896
41'97
41198

",!I))2

,480''''
.2111716
"4",,"

164124

2. .

'01166

."92
4. . ]
115)22 1122777 14020. 164882 UI
."'4
4895 .15))" ''0 l41J 3
'I!UJ6

",,4H7
1"4106

.20''''

BIT
.NE

"'0.0,IAIIER

Jill

PC,GT2RC
'..,lf09, tII"2
t.5

140Y
tRAOR

CMP
BEQ
Jell
EIlIlOR

"'1

'DID CHTRL ROY SET?
rYES, BRANCH
,NO, IfAIT FOR IT
,If' IIUTEO LONG, RIPORT EAROR MESSAGE BECAUSE
,OVR SHOULD HAVE SET HE CAUSING
,CNTRL ROY TO SET IIY NOli
.GO, GET RKCS, ER
'CNTAL IIDY DID NOT SET ArTER DOING
,AM OlR READ,
HE SHOULD HAVE OCCURED
,SETTING eNTRL ROY (HE BICAUSE OF
,OVII CONDITION',
; DID OlR BIT lET fN RKIR1

,tt'2.4"RKCI

PC,G'2RG
106

'GET RKCI, ER
,THII BIT (OYR) DID NOT SET.
,OVI\ ERROR lIT DID NOT StT IN RKEII
,ON SIMULATING O'R CONDITIONS
.010 HE , ERR SET IIHEII OVA SET IN RKER!
J YES, BRANCH
,Gn IIKCS, Ell
• Ht OR EIIR aIT DID NOt SET IN RKCS IIHEN
IAN OVII ERROR liAS StMULATEO

MA(,Y11 31(10'6) .4-0CT-76 16,06 PAGE 76
MUNDF.C-II-OZAKK-D
T41
22-SFP-76 tI.n
DZPI(!fO.PII
'IMULATE , CHICK 'OVR· ERROR
4099
41 ••
41 fll
4102
41el
4104
41",5
41,,6
411117
418"
41,,9
4at"
Uti
4t12

1115H0

10441 ]

"U]U

"041)7

If 15346

1\f4l02

"15158

If 1-1 4111

4 ••

CNT.Ann

JSR

"21264

PC .. CHKa:CLR

ERAOR

JSR

PC .. CHKCCLR

ERROR

1.2

JSR
E:RROR

PC,DREsn
26

4I1l
4114

021 H0

511

02t412

6',

4115

4116
41\1
4".
4t 19
4110
4Ut
4\22

115)54

10411112

If 15156

1041)7
104O26

115162

4121

ttz'

4U8
4129
41H
41J2

.............•..............•..................................

,.TUT 42
SIMULATE , CHIef( PGE ERROR
,.THIS TEST SlMULAT!I ·PROGRAMMING ERROR' , CHICItl lr IT IS
,.OETECTED BY pat BIT III RKEP.
TH!N A CNTAL REatT IS DONE "
,.IT IS CHECI!D IF PGE: BIT liAS CLEARED.
IT IS ALIO CHECKED IF
,.THE lETTING " CLEARING OF' PGE BIT BETS " CLUIIS. HE, ERR
,.BITS IN RKCS.

4124
U25
4126

41)'

:
815164
'15]66

,............................•.......................•..........

TSTUI

811100.4

t0UU

SCOPE
cn.RESET

4tH
41)4
41l!5
4tl6

41)7
4U'

4t 19
4140
4141
4142
4141
4144
4145
4t 46
4141
4148
4149
415.
4151
4152

815)711

U4421

'15172
015H6

011"1"'1
01 )777

0AtH0
flfII351'1

11154"

£lIU177

003011

If 15412

U4411

815414

Pln7t 1

UT.SIN

I6J7H

MOV
MOY

FlKER, Rl
ORIVAD,UKDA

163139

MOV

.2011 ,tAKCS

cn.ROY

4\~]

41S4

,cLUR OVER, tRR, Ht BITS
,GO, 00 CONTROL RESET
'THIS II A CALL '011 THE 'CltTRL'
,AtStT' ROUTINE. A CONTROL REStT IS
,ISSUtD AND AFTER A CERTAIN TIME
,IF THE 'CNTRL ROY' DOES NOT SET
,AN ERROR IS REPORTED. NOrt THAT
,THE Pc IN ERMR MESIIAGE IS THE
,PC IIHERE 'CNT,REsn' IS LOCATED,
IfKII IS A VERY BASIC a:RR' IP' IT
,OCCURS GO BACK TO TEST 10
'CHECK rr 'OVR' BIT WAIl CLEARED BY
,COI.REIET. IF NOT RtTURN NERE.
'CHTRL RESET DID NOT CLEAR OVR
'BIT IN RKER
'CHECK U 'ERR' , 'HE' BIT GOT CLURE:D EOY
ICON,RE~I:T, IF' NOT RETURN HERE.
,CNTltL RESIT DID NOT CLUR
,HE OR ~"R BIT IN RKC ••
,GO DO ORtvE RESET
IRIII/S ADY DI~N'T SET
,AF'TEFI TH! AEIOVE DRIVE RESET

ee."'110

IIrT

""00,8IR!

,;0, DO CONTAOL RESET
,THIS II A CALL FOR THI 'CNTRL,RESU' ROUTINa:. A CONTROL RESET IS
,ISIUED AND AfTER A CERTAIN TIME
,IF THE 'eNTRL RDY' DOta NOT SET
,AN ERIIOR IS REPORTED. NOT! THAT
,THE Pc IN ERROR MESSAGE II THE
,PC IIHERa: 'CNT.RESn· IS LOCATED.
ITHIS II A nR't BAllc EAR' IF IT
:OCCUPS GO BACK TO TEST II
,GO CHECK IF' SIN IS SET, IF
,SET DO DRlYE RESET TO CLR IT
'ADRES THt [)IIIV!, CYLINDER
,SEEK, aD WITH FMT SET
,THIS IS A PCE SIMULATION
,THIS IS A CALL FOR 'CN .ROY'
,ROUTtN! WHIC H WA ITS ~OR CNT
I ROY TO In. IF CNTPL RDY 00[8
,NOT SET WITHIN eel !o1SI I1·U
1<116 MS FOil 11-45 IIITH BIPOLAR)
,AN ERROR rs HEPORTElJ
,DID PC! 8IT IN RK!R sn?

SEQ 009]

I'IAIIOEC-ll-OIRKK-D
MlCYll 270"86) 1t4-0CT-'6 1611;6
DIRI[I[O.PI1
22-SI!:P-76 gun
T42
SIIIULAU ,
tU5
4156
4151
4U8
4159
416i1
4161
4162

un
4164
4165
4166
4161
4168
4169
4110
4171
417:2
417)
4174
4175
4176

IU542"
"15422
1J154J0
1t154J4

"818"6
"12737
811141]7
184185

815U6
815444
'15446
"15452

022717
""140)
'04711
194106

"15454

.84411

,'4'"
820716

".1166

14221"

IU6U

181

"2"716

BNE
MOY
JSR
ERROR

11
. . . e •• IREG2
PC,CT2RC

CMP
BEQ
JSR
£RIIOII

'U22liJ,ilRKCS
2S
PC,CT2RG

lIS

116

: YES, BRANCH
:THIS BIT Iii RKER (PGEl 010 1t0T BET
:CO GET RKCS, Ell. FOR MUAGE
,PGE BIT DID NOT SET IN RitER
SIMULATION OF PGE CONDITION
,$REG2 CONTAINS THE RKtR BIT (PGE)
,THAT SHOULD HAVE SET.
:010 HE , ERR 8ITS SET?
I YES, BRANCH
:CO, GET RKCS. tR
,HE OR ERR BIT DID NOT SET WHEN
,PGE SET IN RKER.
,CLEAR PGE. HE. ERR BITS
:CO. 00 CONTROL RESET
,THIS IS A CALL FOR THE 'CNTRL,RESET' 1I0UTINE. A CONTROL RESET IS
,IUUEO AND AFTER A CERTAIN TIME
, IF THI!: "CNTRL ROY' DOES NOT lET
ERIIOR IS REPORTED. 1I0TE THAT
,THE PC IN ERROR MESSAGE IS THE
,PC WHERE 'CNT.RESET' IS LOCATED.
,THIS IS A VERY sAlIC ERR" IF IT
'OCCURS GO BACK TO TEST 10
:CHECI< If 'PGE' BIT GOT CLEARED IIY
:CONTROL RESET, IF NOT RETURN HEliE.
'CNTRL RESET 010 NOT CLEAR
rPCE BIT IN II~ER
,CHECK IF 'ERR" BITGOT cLEARED BY
:CON.RESET. IF NOT RETUIIN HERE.
,RKCS SITS HE OR ERR DID NOT
rGET CLEAUD BY CNTRL REin

,0'

015456

"041]7

815462

194102

IU546.

.041]1

01547"

1"411n

JIR

'21264

lS,

"2UU'

PC.CflKtCLR

ERROR

1112

JSR

PC:, CKKCCLR

ERROR

182

..................................................................

:.TEST U

SIMULATE' CHECK NXM ERROR
,.THIS TEIT SIMULATES A NON-EXISTENT MEMORY ERROR (NXM) AND
,.CHECKS IF IT IS DETECTED BY NXM BIT OR RKER.LOCATION 7b0000
,.IS REFERENCED' IT HAPPENS TO RE A NON EXISUNT LOCATION
,.(rOR DIAGNOSTIC PURPOSES LIKE THIS). IT ta ALSO CHECKED
HE , ERR BITS ALSO I n UO ALL 1 BITS CAN BIf! CLEARED
, . BY CONTRO" RESET.

,.If"

015472
11115414

,,•................••............................................

TSTn.

""0004
104413

aCOPE
CNT.IIESET

015416

104421

TST.sn

0155""
015502

0~5082

CLII
MOY

0tl700

801112

rGO. 00 CONTROL RISET
,THIS IS A CALL rOR THE "CIfTRL,RESEY' ROUTINE. A CONTROL RESET IS
,ISSUED AND ArtER A CERTAIN TIME
,IF THI!: "CNTRL ROY" DOES HOT SET
JAN ERIIOR IS REPORTED. NOT! THAT
,THE PC IN ERROR MESSAGE II THE
,PC WHERE 'CIT.RESIT' IS LOCATED.
, THIS IS A VERY BASIC EIIR. IF IT
,OCCUR, GO BACK TO TEST 10
,GO CHECK IF SIN IS SET
r IF I n DO DRIVE RISET TO CLR IT

R2
RICS,FlIt

MACYlI 27(10,,6) 04-0CT-76 16.16 PAGI 78
"UNOF.C-ll-0ZRU-D
Tn
SJMULATI: , eHECI NX'4 ERROR
22-5£P-16 0!1I41
OZRlqCD.Pll
177771
160000
001350
11101"'167
163572

015506
015514
015522
015510
015534
01'554"
1'115543
IU5544
015546
015552
1<115560

IH2771
012117
013777
''''2710
105717
100411iJ
1"15202
0"4737
IU71)7
104113

820716
163556

015562
015570
015572
1H'5576
015604

1'J32717
80109'
"047)7
0121)1
104185

0021'101:1

015606
e15612
015614
0156211

022710
001401
0047)7
11'14116

IU5622

le44l)

11115624

904737

1115610

\214192

4251

01")6)2

01:147)7

4152
H51

81563!>

11'I"11l2

01")64,,,

.11'41)1

815644

104~t6

4111
4Z12

4113
4214
4215
4216

Ut7
4218
42,9
422'
4221
4222

163620
161614
163610

lSI

1lI1'l1 )7)

001166

MOV
MOV
MOV
MOV
T5T!l
BMI
INC
BNE
JSR
MOY
ERROR

'-I,IRI(WC
tl60800,IR~BA

DRIV1D. ,RKDA
167"R0
IRKee
2'
RZ
II
PC,G!2RG
.RKIC •• REG2

113

4221
4224
4225
4226
4227
4229
4229
U)0

Ul1
4212
4211
4114
42)5
42)6
4217
4218
4119
424"
4241

11201111
0820"8
140266

16)540

211

001166
3 ..

02071b

411

Bn
BNE
JSR
MOY
ERROR
CMP
B£Q
JSR
ERROR

U0",(IIRICEIl

It
PC.\JT2RG
ue.8.IREG2
10!

1140266,IIIRI:I

Pc.GT2RC
106

CNT.RESET

U42

UU
U44
U45
4246
4247
4249
4249
420;0

821264

021311l

5*,

4254

420;")
42")6
4251

11121144

6$1

42")9

42,,)9
4260
4261
.262

JsP

PC.CHK£CLR

tRROR

102

JSR

PC.CHKCCLR

tRROR

102

JSR

PC,TSTRWS

[RROII

I WRITE: CHECK 1 NORD
,AT THIS BUS lDRES
,WITH THIS DlS~ AORI!:S <CfL 0. SEC ll)
I WRT CHK, GO, "'EX BITS SET
I DID CNTAt. ROY SET AS A RUULT or HE'
, 'lES. BRANCI{
, WAITED LONG ENOUGH'
: If NOT LUP IU , NUT
,G£T RKCS. 11:11
,G£T RKWC
,CNTRL ROY DID NOT 6ET 011 DOING
,A WRT CHK wnH A NXM LOCATION.
I THIS HE SHOULD HAVE lET THE
rCNTRL ROY en IN RKCa
,DID NXM BIT IN RKER a,,1
,Y£I. BRANCH
,GO GET RKCS, RUR
!THIS BIT (ltlM, DID NO! lET IN RKER
,NXM elT DID NOT ItT IN IIKER ON
,SIMULATING IXM COIDITIO".
:rlID liE , ERR BIT l I n
,YES. BRANCI!
, GO. GIEt RICCS, RJ[!R
,HE: OR ERR BIT DID NOf liT WHEN
,NXM ERROR ItAS IIMULATED
,CLEAR NXM, HE, ERR Bnl
,GO, DO CONTROL RESET
,1H I S IS A CALL FOR THE ' eNTRL: RESU" ROllTINE. A CONtROL RESET IS
,ISSUED ARD AFTER A CERTUN TIME
,Ir THE "CNTRL ROY" 0011:1 NOT SET
: AN ERROR !II REPORTED. NOTE fHAT
,THE PC IN tRROR MESSAGI IS THE
,PC IiHERE 'CNT.RUt1'" III LOCATED.
I THIS IS A VERY BASIC ERR' IF IT
:OCCURS GO BACK TO TEIT 18
:CHECK IF "NXM' BIT GOf C,LtlRED BY
I CON. RtIET, I F' NOT RETURN HERI!:.
rCNTRL REaET DID NOT CLEAR
,NXM BIT IN RKER
:CHECK IF 'HE' , 'I!:RII' BIrS GOT CLEARED
IIH CON.RESET, IF NOT RETURN HEllt.
,CNTIIL RESn DID NOT CLEAR
:HE. OR ERR BIT III RKes.
,GO CHECI< IF' AIIIIS ROY IS SIT ,
plAIT rOR IT.
8KIP ERROR rp' tT 15 SFT
,RhIlS ROY IS ItOT SET

r: . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
,.TEST 44
SJIIIULATt , CHECK NXD ERIIOR
,.THIS TES! SIMULATES NON-EXISTENT nISK ERROR, CHECKS IF
,.IT IS DETECTED IIY NXD ~1T OF' RKER.
II" ALL EIGHT ARE PRESENT
'.Tlit'" THIS TEST 1·5 ABORTED fOR SIMULATION CUNDY BE DONE.

426)
4?64

4165
4266

SEQ '194

,AN

4171
4178
4179
4190
41111
4192
1193
4184
4J1'I5
41 A6
4Ul1
41118
4199
4190
4191
4192
419)
4194
4195
4196
4191
4199
4199
4200
4291
42112
42")
42".
H05
4206
4201
1209
4209
4210

PACE 77
CHECI PGE ERAOII

"'15646
1'151>50

0"'001014

10Hl)

;r··.· ............... * .......... ** •• ••• .............* ..................

T5T44 :

SCOPE
C'IT.RESET

:GO, DO CONTROL RESET

SEQ 0095

MACYI t 27(1M6) 84-0CT-76 16116
MUNDF.C-ll-DZRKII:-D
T44
IIMOLATE ,
22-SEP-76 "147
OZRII:I(0.'11

PlGE 79
CII!!:CK NXO ERROR

4267
4268
4269
427.

un
un

4172

4214

4275
U76

.15652

10U2l

'" 5654
"1566'

' " )70111

"121U

801112
lbe01.

.15664
.15678

'1"277
104417

163450
.0.0.1

.15674
"157'"
.15702

105777
1""04

163426

4277
4278
4279
42ft3

4281
4282
4283
4294
4285
4286

'627~2

TIr.III

16""00

MO'I
MOV

IIltes.R"
,,68'''',R2

110'1
DELAY

R2.aRIOA
.1

TBTB
BPL
ADD

'RKOI
2S
'-2,0.0,R2

1291
4289
4289
4290
4291
4292
4293

1,.5786

'01366

RNE

.15110

1J0.4l5

TS'I'45

O15712
O15716

1'12710
104417

""9106

MOV
DELAY

'15,1.1110
,186

015122
8.,'26
tU5730
Ill5H4
"15742

105771
011U""
004137
012737

T5T8
8NE
JSR
MOY
P:RAOR

'RKER

"2",716
.002."

4294
4295
4296

4291
4298
4299

43"'
4)01"

2$1

0'''''HS
163402
'01166

10H~5

It
PC,GT2RG
'lU0,Uta2

4102
4M3
4lflli

4105
4306
41tH
U08
4309
4)1"

4311

4112
HIl
4114
HIS

016

4117

O15744
015758
CU5152
1'115156

.227U
fl0t401
."4737
18410&

'" 516.

10441)

)11

"'8214
.20716

4..

CMP
BEQ
JIll.
ERROR

S!!:O . . 96

ITHIS II A CALL FOR THE 'CNTRL,RESET' 1I0UllRE. A CONTROL RESET IS
,ISSUI!:D AND "FTER A CEPTAIN TIM!
IIF THE 'CNTIIL ROY' DOES NOT SET
,AN EAROA IS REPORTED. NOTE THAT
ITHE PC 1M ERAOR MESSAG!!: IS THE
,PC IIHEPI!: 'CRT.RESET' IS LOCATED.
JTHIS IS " VERY BASIC EAR' IF IT
:OCCURS GO BACK TO TEST 1.
:CHECII: IF SIlt IS sn, If' IE!
,00 DRY AEln TO eLR IT

1l411214,~R0

pc,GnRG

It6

CNT.U:SEl

4118
4319
4)20

tUl
4122

;AOREI DRIVE 7 TO rIND
r IF IT I S PRESENT
,AORES DRIVE • POINTED TO BY A2
,TtME DELAY, 7.5 OS ON 11/2",
:1.5 us ON 11/45
; II J T PAESENT?
,NO, BIIUCH
,ADRES THE NXI DRIVE ur THE
JREVERSE ORDER. I.E. ',6 ••••
: LOP BAK , TRY TO rtND A DRIYE
:THAT'S NOT PRESENT
J ,EXIT TO THE NIT TST
,DRIVE RESET, ON A NX DRIVE
,TIME DELAY, 525 US ON U120
J US US ON 11145
,010 IIXD BIT IN RnR sn?
,YES, BRANCH
,CET RKCS, IIKER
,THIS BIT (HlD) IN RKER DID NOT SET
,NID BIT DID NOT atT ON TRYING
,TO PERf'ORM A rUNCTIOPf ON A
,NON-EXISTENT DRIVE
,CHECI( TH"T THE JOMPER CARD CONTAINING
,JUMPERS rOil DRIVES PRtsENT IS PROPERLY
,CONNECTED
,NOTE THAT 0If RKilC If' A DRIVE
J IS OFFLINE BUT PHYSICALLl' PRESENT
,CI!. DRY IS eLI' "OR THAT DRIfE)
A rUNctIoN IS INITIATED ON T'fAT
,DRIfE IlID NOIf''I' sn, BUT U WILL
,GET ONLY A DRE,HE " EAR.
,DID liE , ERR sET WHEN NID SET?
,rES BAANCH
, HE DR F.RR 8 IT DID NOT SET
,WHEN NXD WAS SIMULATED
,CLEAII NIO, HE, ERR BITS
,GO, DO CONTROL RESET
,THIS IS A CALL FOR rHE 'CNTRL,RESET' ROUTINE. A CONTROL RESET IS
J ISSUED AND AFTI!:R A CERTAIN TIMI!:
: IP' THE 'CNTRL ROY' DOES NOT SEt
I AN EAROR I S REPORTED. NOTl!: THAT
,THE PC Itf ERROR MESSAGE IS THE

,I.

U-OCT.1b
161.6 PAGE 8"
MACYI I 27(1"'06)
MAl HDEC-ll.0ZPKK-D
144
22-SEP-16 "8141
DIRI(1I0.PlI
STMULATE " CHECK UD tAROR
4)'2)

4114
Hl'5
1'115762

0114737

~15766

\\14HJ2

41N

015170

IhH 13 1

4111
41)2
4131

8.'5774

104\1'12

41)4

815776

004717

11160"2

104016

4126
4J2 7
4)28

.JSP

.21264

pc·, CHKECtR

ERROII

102

J8R

PC,CHKCCLR

4]1'1

4115
43)6
4)')7
4))8
4))9
4340
H41
4342
4141

581

IUUII

021344

4148

4149
41'0
43'51
4152
4151
4154
4l5'S
4)56
H'i7
41'58
43'59
436'"
U61

\02
PC.TSTRWS

F:PROR

J' •••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
,.TEST 45
SIMULATE" CHECK !>Ixe ERROR
,·THIS TEST SI'4U!.ATEI THE NON-EXISTENT CYLI NDER EflROR , CHECkS
:.If' IT IS DETEcnD Bl' IMI': !tXC BIT OF RIIER, HE , ERR BITS
,.0' RIICS.
IT IS CHECKED IF THEY CAN BE CLEARED BY CONTROL
,.IIESET

,,...............................................................

HH
414'i
4346
4141

F:RROR
JSP

1'116.,.,4
016."'6
1116"12
1116020
0161-124
1'11610111'1

.8f1ell.
110700
012737

8t60J6

UHll

1111l7~2

.52702
.12737

!STU,
"01ll2
177773
.0ll5B
814549
81 6 I'll 6

001 )62

2S1

",01110

SCOPE
MOY
MOV
MOY
BIS
MOV

RltCS,II0
'-5,COUNT
DRIVAO,R2
'14541'1,R2
'U,ILPf:RR

C!>IT.RESI!:T

4362

4J6J
4164
436'5
4)66
4367
4368
4)69
431111
4371
4172
4111

1116040

1104137

1116844
1116046

10411\6
104421

81611511
016"54
8161116'"

11110277
01271i1
\04412

III 16862

lI1JU21

1116"64
"'16"'12
01611174

1'117171
111I10]1l
0,,4717

1'121144

JaR

PC,TSTRwa

ERROR
16
TaT.SIN
163~64

R2, aRK!)A
MOY
MOY
.u,'RB
CHIICRDY

"'.01111 I

ERROR

Br T

• 11'11', IIP,KF:P
4S
"C,GnRG

1374
4)15
4)'76
4 )11
4378

SEQ

,pc WHERE 'CNT.RESET' IS LOCATED.
:TNIS IS A YEFlY 8ASIC ERR' If IT
10CCURS GO ""Cil TO TEST 16
:CHECK If' 'NXD' 8IT NAS CLURED 8Y
,CON. IIESET. IP' NOT, RETURN HERE.
,CNTAL RESET DID NOT CLEAR
l'lXD BIT IN RKER
:CHECII: If' 'HE' , 'ERR' BITS Wl!:lIt CLEAPED
,BY eON.RESET. I f NOT RETURN HERE.
,CNTflL RESET DID NOT CLEAR
,HE 011 ERR BIT IN IIKCS
,GO CHECK' WAIT FOR RINIS ROY
,TO SET.
IF SU SKIP ERROR
,R/W/S SHOUl.O BE SU, IT'S
,NOT

11'I"11'J0

16)236

9$1

Rf..IF'

Ill>l716

JSR

,ALLOW 'ERROR lU' ONLY I TIMES
, GET ADIIES Of' DIIlV!
,SET 8ITS f'OR CIL U3
J SET RETURN ADRES f'OR
I[,OPING ON EROR (lIW9)
,GO, 00 CONTROL RESET
,THIS IS A CALL FOR THE 'CNTAL,AISET' ROUTINE • • CONTROL RISET IS
, ISSUED AND AFTER A CERTAIN TIMI:
J It THE 'CNTRL ROY' ODES NOT SET
,AN EIlIlOR IS REPORTED. NOTE THAT
i THE PC III E!'POR MESSAGE III THI!:
, PC WHERE 'CNT. RESET' IS LOCATED.
,THIS IS A VERY BASIC ERR. It IT
,OCCURS ao BACK TO TEST 11'1
,GO CHECK , W~IT ,.OR R/IIII POl'
iTO SET. If' SET SK IP EflROR BELOW
:R/Il/S ROY IS r;OT SET
JCHP;CI< If' SIN IS SET, IF S!T
,no DRlYE RESET TO CLR IT
IAORES DRIVE, NXC CYLINDER
,SEEK, GO TO'NXC CYL
I GO CHECK I' CONTROL ROY II SET
,[P' SO, SKIP THE EROR MESSAGE.
,SEEK WAS TRTED TO A NOli EXUTENT
; C IL I NOER, NX C SHOULD HAVE OCCUREO
,SI!:TTlr.G CNTflL ROY, BUT CNTRL ROY
,OlD Nor SET.
:OID NXC SET?

:H:5,

aOAilCH

:'>0 GET RI(CS, EI'I

""~97

MlIIIDEC-tl-OIRKIC-O
MAC'YI t '''0'86) 1iJ4-0CT-76 16106
DIIIKKD.Pll
22-SEP-16 88. n
,.5
SIMUUrp; ,
4179
4380

liJl6180
016186

IU7U1
Ut4t 18

1&)214

"16118

804717

821344

016114
816116
I1Jl6128
816124

104016

001166

PAGE 11
CHECK NXC ERROR

MOY
F.RROF

IIRKDA, tREG2

JSII

PC, TS'I'RNS

ItA

4)81

4182
431l
4384
438S
4186

4387
4388
4389
4398
4391
4193
4194

816126
816132
0161)4
816140

4395

1"6144

4192

4396
4397
4398
4199
4400
4401
4402
"83
4404
4405
4406
4407
4409
4409

ERAOA
16
CNT.IU:SET
PC, DRES~T
JSR
ERROR
26

111440
8047)7
1041126

021412

11115217
801405
862702
.32702
891H4

81'11)62
UI

81'10048
IH7149

IllC
8EQ
ADO

BIT

COUNT
58
'4I,A2
".,74",A2

BNE

Bn
8NE
JSR
EAPOR

1400""

'140000. 'RI

016146
016152
016154
816168

0l271"
09t003
894711
1041""

016162

1e4U)

016164

1'104137

JSR

PC.CHKECLA

016170

1~41~2

ERIIOA

102

032710
1101405
810037
.11037
104102

BIT
BEQ
MOV
!'IOV
ERROR

t14000",RIIt
TST46
R0,'REli0
aR0"REGI
102

821H16

6$1

U
PC, GURe;

106

CNT.RESE'I'

44H'I
4411
4412
4413
1414
4415
4416
44t7
44111
4419
4420
4421
4422
4423

016172
016176
1:H6200
016204
I1l6210

021264

140080
001162
001164

4t24

SEQ 0098

,GET RKOA
,NXC DID IIOT SET WHEN StEK
,WAS TRIED '1'0 CYLINDER 11 INDICATED
lIN RKDA
,CH£CI{ , ilATT rOA fl/illS RDY.
I I f SET SKIP ERROR
• P/III/S SHOULD BE sn
; GO DO CONTROL RESET
,GO 00 DRIVE fll!:Sn
: NXC DID NOT Sl!:T AND OltIYE MAY
I HAYE TRno TO 00 A SIlK, AF'fER
fWHICH fl/W/S AOY DID NOT lET
,ALLOW ONLY 5 MESSaGES FOR
rERROA III
"'ORES THE IIXT CYLCIN NON-EXISTENT lONE)
ICMKo rOR ALL UC'S?
,IF NO'l', LUP BAle " CHIC THC NXT NXC
,DID HE " ERR BIT SET IIHEN HIC BIT SET?
JYESr BRANCH
rGET RKCS, ER
r HE OR EPR BIT DID NOT SET IN RKCS
,WHEN NXC ERROR wAS SIMULATED
rCLEAR HE, ERR, lixe in8
:GO, 00 CONTROL RES!!!T
,THIS IS ~ CALL F'OR 'I'ME 'CH'I'RL"
I RESET' ROUTI NE. A COM'I'II0L RESET IS
,ISSUED AND AFTER 1 CERTAIN 'fINE
,Ir THt 'CNTRL ROY· DOES NOT SET
,AN ERROR IS REPORTED. NOTE rHAT
,'I'HE PC IN ERROR MESSAGE II THE
,PC wHIRE 'CNT.RESU' IS LOCATED.
,'I'HIS IS 1 VERY BlSIC ERR' IF' IT
,OCCURS GO SACK TO TEST 1.
:CHECK I f 'NXC' BIT WAS CtiUREo 8Y
,CON.RESET. I f NOT, RETURN HERE.
:CNTRL RESI:! DID NO'l' CLEAR
,NXC BIT IN RUR.
,DID HE , ERA aITS GET CLEARED?
nYES, EXIT
,G!T ADRES OF" RKes
,GET AKCS CONTENTS
,CNTRL RESET DID NOT CLEAR
:IiE OR tRR BIT IN PKCS

...................................""..............."..".........

H2S
H2b
H27
44211
H2'i

,.TEST 4&
SIMULATE" CHECP: NXS ERROR
: "THIS TES'I' SIMULATES NON-EXISTENT MCTOP ERROA , CHECKS THAT
'''IT IS DETECTED IIY NXS BIT OF' RKER. IT IS CHECKED THAT
HE " ERA Of RKER ALSO SETS, AND ALL THREE
' .... HEN NXS
,.CAN BE CllEARED BY CONtROL Af!:SET.

iHI:I
401
4H2

I , ••• "" . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . " . " ••• " . " . " " ••••••••••.••••••

sn.

1116212
016214

TST46 I

000004
1It)44 1 J

SCOPE
CNT.PESET

44H
4414

IGO. 00 CONTROL PEsn
I'I'H1S IS A C .. LL r:lp THI. 'CN'I'RL,REsn' ROUTINE. A CONTROL RESE'f IS

'4A1NOEC-II-DZAKK-O
MACYl 1 27(10116)
IH-OC'I'-76
16106 PIIGE 82
OZRKKD.Pt t
22-S£P-76 08: 47
T4&
SIMULATE' CHECK NU ERROR

44)5
441&
4H7

4419

,pc

Hll}
444~

4441

4442

4444
4445
4446
4447
'449
4HI}
44501
4451
4452
44S}
4454
4455
44'56
44'57
44'111
4459
4460

001132
0013511
1'00014
177777
031240
1'100005

016216
016222
8162l11t
IH6216
111"244
016252
016256

I'll H00
01 )777
052777
012777
1'112717
0127111
104414

016260
016264
016270
016272
016276
016104

0177112
0)2702
001006
004737
012737
11114105

016306
11116312

,,4271'12
001407

8""'040

1116314
016112
016)]0

012737
.17H7
11:14107

011t""40

IH6JJ2
016))6
"16H0

816144

022710
00141/1)
0047)7
, "'4\06

816146

104411

'" 6 35"

'047)7

1'116354

104102

MOV
MOV
eIS
MOV
MOV
MOV
CNT.ADY

163110
16111lt2
1&)070
1&1064

163044

RKCS, R8
oRtVAo, !lRKDA
'14, IiIItKDA

'-I, ~RKWC

.OUTsur, !lAKBA

'5. ,,,11,

000040

MOY
eIT
8NI:

APKiR,tl2
'4d,R2

02111716
090040

JIll

PC .. C'f2RG

MOY
ERROR

. . lt8RI!!G2

"01166

44"1
4462
446)

11
10'<

BIC
BEQ

4464
4465
4466
4467

163002

001162
081164

MOV
MOV
ERROA

4468

"If,.REGII
'RlCtR" REGt

le7

4469

4U0
4471
4412

U71

4474

140204

CI4P
BEQ

JSR
EAROA

4U9
44A0
4Ut
4492
4481

4494
44115
4411&
H87
U88
44119
4UII

211

UI!I716

U75
4476
4417
4479

SEQ 0099

: ISSUED AfiD AfTER A CIRu%N TIME
lIP" THE ·CNTIl.L Ror' DOES ItOT aET
'AN F:EflOR IS REPORTED. NOTE THAT
,THE PC IN EflROR MESSAliE IS THE
WHERE 'CNT.RESET' IS LOCATED.
,'I'HtS IS A VERY BASIC IAR, IF IT
,OCCURS GO RACK TO TEST 10

02\264

1148204,111'.0

PC,GT2RG

106

CN'I'.RESET

I GET AD RES

or 01'.1 V!

:SET BITS fO~ SECTOR 12 (DECIMAL)
,RUD 1 WORD
I INTO THIS BUS ADRl':S
IREAO, G0 erROM NX SECTOR)
:THIS IS A CALL rOil 'CII.RDY'
,ROU'l'IN! WHICH wAna rOR CNT
: ROY TO IIET. I f CURL ROY DOES
: NOT SET WITHIN 183 MIl Il-ZI
, (176 MI F'OR 11-45 IIII'1'N BtPOLAR)
I AN ERROR IS REPOR'l'ED
,tlXS ERAOR SHOULD OCCUR NOli

:010 NXS 8IT SET IN RKER1
I YES, BRANCH
,GO GET RKCS, RK~R
,'I'HIS BIT (N1$) IN RKER DID NOT SET
,NXS BIT 010 NOT SE'!' ON stMULA'l'ING
,NXS ERROR
'''ASIt NXS Rn
:CHECK I f ANY OTHER
,RK!R BIT SET
,GET !:XPCTD RK!!!R
,GET RKltA RECVO
,ONLY 'NIS' SHOULD BE lET
,IN RKER, ANOTHER RKER BIT
,WAS SE'I'. (NO'l'E 'illS' IUS
,SIMULATED)
,010 HE " ERP lilTS lET?
rnS, BRANCH
,GO en RKCS. RnR
I HE OA ERR eIT DID NOT SET WHltN
,HXS ERROR OCCUREO
,CLEAR NXS, HE, ERR BITS
,GO, DO CONTROL RUtT
,THts IS A CALL fOR THE 'CIfTRL,AESE'I" ROUTINE. 1 CONTROL RIIET IS
: ISSUED AND AfTER A CERUlli TIM!
: IP' THE 'CNTAL ROY' DOES lOT SET
: AN EAROR IS AEPORT!:D. NOT£ THAT
,THE PC I N ERROR MESSAGE IS 'I'HE
,PC "'HERE ·CNT.REIIET' IS tiOCATED.
,THIll IS A VERY SASIC ERR' I f IT
: OCCU~S GO BACK TO TEST 10
,CHE:CK IF 'NXS' BIT WAS CLURED BY
,CON.RESET. IF' NOT, RE'fUEN HERE.
:CNfPL RESET DID NOT CLEAR
,'IXS BIT TN AJ(!R

MACYll 2'7(1086) 8'-OC'I'-76 161116 PAGE Il
MAINOEC-ll-0ZRKK-D
.IMULUE .. CffECt( MU ERROR
22-SEP-76 81141
T46
OERKKD.Pll

4491

816156

004737

.16162

111'4102

481

'21310

4492

4491
4494
4495
4496
4497
4498
4499
4538
4501
4502
450)
4504
4535
4'06
4507
4508
45.9
4510
4511
4512
45U
45t4
4515
U16
4517
4518
4519
4521t
4521
4522
452]
4524
4525
4526
4527
4529
4529
4510
4511
4512

ISH
45J4
4515
4516
45)7
45)8
4S19
4540
4541
454l
4541
4544
4545
4546

.5~1!

4549
45'10
4551
.55~

45'IJ
4554
4555
4556
4557
4'S5'
4'S59
4560
4561
4562
4561
U64
4565
4566
4567
4569
4569
4S7it
4571
4572

"
016364
11116366
11116372

1111118094
191]709

1~:Z

..................•.....•.•.............•..............•••.....

InU.LATE , CHICK litE
,.THIS TE8'l' SINULAT!S A wRITE CHECK ERROR AND CHECttl fHAT IT
,.15 DETECTED IT WCE BIT or RKER, rOR COMPUUON I'f US!S
,.THE 256 WORDS DAtA BLOCK WRt'l'TEN ON nCfOR 8, CtLtNOER 0
,.IN A PAEYIOUS TEST. TIiIS BLOCK IS COMPARED WItIf fHE 256 WORDS
,.MEMORT BUrrER lTAR!IIIG AT "OUT8U'". WCI IS SIMUlolrED BY
,.OROPPING A I n rROM ONIE or THE IIORDS IN THE MEMOlY BUrFER.

...............................................................

1044t3

ICOPE
MOV
RKC.,R'
CNf.RISET

TST.SIN

"ST4"1
'01H2

11116374

U!44'1

1'16376
IH6402
016406

012701
812702
812793

el324"
17740"
177717

1I164t2
016416
IH6420
1'16422

.6210.
019]21
"05202
1111111173

1774et

016424

812717

170007

83]256

140'

016432
fl16440
"16446
0U454

812.,77
012777
O11711
O12711'

177400
.1324.
..,1 ]5.
'008111"

l62674
l62670
162664

MOV
MOY
MD'
MOV

"16460

104412

CMKCIIOY

016462

134065

IRfiOR

1'16464
016472
016474
"1658.
1It6!106

IU2711
"01006
0047]7
812717
10410S

",,",001

III

162636

8111510
1'116514
1'16516
016522

022710
!'I014")
8"'47]7
1141"6

"'16524
1116526

le44t]
1104737

1116532

U4I62

816514

.04731

1116548

104102

)11

MOV
MOV
MOV

.0unUr,R!
.-.,,8,R2
'1,.,777,RJ

ADD
MOV
lIfC
8NE

1&77401, Rl
Rl, (111)+
R2

lIT

I"E

021"16
""1191

JIR
NOV
ERROR

111.1166

511
1121264

611

459'"
4S9t
4592
4SU
4')94
4595
4'596
4597
4S98
4599
461"
46111
4682

1l"RECl2

1'5'

000n.,
,LAST WORD
,HlYE: U GI!!IIERUED ALL 256 WORDS'l
,I,. NOT, LUP RU , GENERUE NXT

,GO CHECK I' CONTROL ROY 1& 81T
,IF SO, SKIP THE E"OR MElSaGE.
,eNTRL ROY DID NOf SET
J AFTER WflT CHK
,DID liCE 8IT lET'
'CO, GET RKCS, RKER
ITHI8 lIT (WCE) DID NOT I n
,WCt DID NOT SET OR SlNUL.UNC
IIiCE CONDITtON!

PAGE it
CHECI( liCE

Bf:Q

JSR
ERROR

pC,GT2RG
11'16

CNT.RESET
J5R
PC,CHKECLR
ERROR

102

JSR

I'C/eHKeCLR

ERROR

102

SEQ 0101
,IS RKC8 CORRt;CT?
I YES, lAUCH
IGO, OET RKC!, RKEft
I HE OR ERR BIT 011 NOl' SET II HEN
,WCE 1118 .1MULUEO
,CnltL· RElIn
,WAS 'liCE" eIT CLEARED?
'If NOT, RUURH HERE.
ICNTIIL REII!:T DID NOT CLEAR
,lfCa: BIT IN RKC"
,CHECK IF 'ERR" BIT WAS CLEARED. IF
J NOT RnURN HeliE.
,CN"L RESET DID HOT CLEAR
,RKes

,,.................•..•.•.....•..............••............•....•

,*TUT 50
CHICf( "HAT 5SE STOPS ALL CONTROL AcnoN ON sort ERROR
,.THIS TEST CKICKI THAT WHEN 'ITOP ON sorT ERROfl' ,lIT IS SET IN
,.PKCS AND A SOFT ERROR IS ENCOUNTERED ALL CONTROL ACTIO" IIILL
,·STOP AT TilE END or THE CURRENT IICTOR IF IDE I n 11 CLEAR.
,.SOFT tPROR IS SIMULATtD·8Y A Wce: II. IN 'l'HE PREVIOUI
,.TEIT. TH£· PREVIOU8 TEIt , THE 11:8T WHICH WRlna DATA
'·SLOCI( ON (YLUDER 0, SICTOR It, SHOULD BE DONI PRIOR
,.fO THIS Hn. A TWO SECtOR "IIAT CHK' WILL BE 'ONt,
,.CONTROL ACTION .HOULD stop Art!R THI FIRST "CTOR DURI"G
,.IIHICII A sorT ERROR II IIMUUTe:D,

1116542
U6544

...............................................................

TaTSil

II III 08 fil 4
10441 )

SCOPE
CN1.IIES£T

45 I! 3

45118
"89

'1 ,,"KIR
4,
Pe~GTlAG

1I.8206"R0

U1II

.,n

CII4P

4579
4590
4581
4581
4584
4511S
1596

,GO, 00 CON'fROL RISET
,'1'1116 IS A CALL rOR THE "etttRL,REIU' ROUTINE. A CONTROL usn IS
J I61UI0 AND ArnR A CERtUN 'UMt:
,Ir TilE -eNTRL ltOY" 00&:8 HOt lET
' AN EIlROIt IS RIPORTED, lOTI: tHAT
, THE PC IN J!:RROiI MESSAGE 'f tlfE
IPC: WHERE ·CNT.RESET' Ia LOCATED,
; THIS IS A VERI IAIIC· IR", tr IT
,OCCUR' GO BACi TO TEST 11
,tHECK It SIN • SU, Ir
,SET 00 DRV-RtIlT TO CLR, IT
,THIS CODE SEnu. A MEMORt
I BUrFER 0' 256 !tORDS STARTlNG
IAT OUTBUF
,rIRST II0RD 17748.
ISECOND
177"1

U7,007,OU"RUF+16 ,WeE IIILL !! SIMULATED IIY DROPPING
IBIT IN THE EIGHTH WOllD WHICH IS
,aUPPOSItD TO II 1.,."'7
,WRT CHI< .00 WORoa
.-4,0"RItWC
,STARTING AT TMta BUS ADRIS
.OVTSUP', 'IIK8A
DRIVAD, .RkDA
,WITH THIS DISK ADREa, .ec· " CYL
• .",R8
,WilT CHK, G9

IIIt-OCT-.,6 11"'6
SIRUUT! ,

820716

.2U10

Tt'
4,.

111"216

UH
4')'14
4')75
4')76
4517

ERROR

SEQ nfe

,CHECL IF 'HE" , 'EI\R~ I n l WERE CLEARED
,8T CON.RESET, I' NOT, RUURN HERE.
,RKCS UTI ERR OR HE IfERE NOT
,CL!ARED 8Y CNTRL RElEt

,.!Est 47

MACYll 27(18'6)
MAINOEC-Il-DZRKK-O
22-SEP-16 118147
OIRUD.PII
"41

.JlIR

PC ,CHKCCLR

fill6546

U4421

111655/1
1116554

ell7.,,,
1IJl2717

.01332

1'\6562
1116566
1116574
116603
""6"16
1116612

0131f11
812771
112177
"lAl77
1'12710
104412

1013511
177.".,
03)240
lUSn
00'41'17

flt66! 4

IIH065

TlT,SIN
178007

tUn56

162540
162514

MOV
MOY

'CO, 00 CONTROL RESET
,1'HIS IS II CALL FOR THE 'C"TRL,RESU" ROIITINE. A CONTROLll8l:T IS
J ISSUED AND Ar'l'!l A CUTUN TIME
I IF THE 'eNTRL ROY' 0011 N01 lET
I'lf ERROR 15 RIPORtED. 1I0Tl: TIIU
; THE PC I N ERROR ME'SlC! IS THE
;PC WHERE "CNT.RElET" II LDCATED.
;THIS IS • VERY BlSIC' ERU I ' IT
; OCCURS GO BACK TO TEn It
,CHECK I f SIN U an, It
: SET 00 ORIY!: RCIU TO eLR IT

RKCI,RIl
tt7e007,OUl'BUF'+l6 ,WCE IS SIMULATED BY DROPPING A SIT
J IN THE EIGTH 110110 (WHICH II AC/fUlLLY
J 174007). NOTE THIIT 256 WORD MEMORY
,BUF'HP 1 S CREATED IN THE PREVIOUS TEST.
MOV
DRIVAD,RI
MOV
plPT CHI( 10"" (OCTAL) "OROS, 2 SECTORS
'-UIII0"PKWC
NOV
'OUT8U', QR~!l4
:'''OM THIS BUS ADfiES
MOV
IWITH THTS OISK AORES, SIC o, CYL II
Rl"RKDA
14o,
,WRT CHI(, GO, SSE
'41/J1, 'R0
CHI(CROY
;GO CHF.:Ctc l ' CONTROL ROY IS SET
lIP' SO, SKTP TH! IIIOR M!IIAO!.
EPIIOR
65
,C~TRL RD~ 010 NOT SET AFTER WRT
ICHK. A son EIIROR (wCE) IN
: Sr.CTOR II ~'lOULD HUE StOPPEO
: AI.!., :ONTPOl, "CTlON.

MUIIoEe-I1-DIUIt-D
IIIIACtll 27(1'86) "'-OCt-16 16s06 PAGI 85
DIRKItD •• 11
22-I£P-76 1118147
15111
CHEeK THAT SSE &'fOPS ALL CONTROL ACTION ON 10FT EUOII
46111)
46,,4
4"'5
4686
4681
4",8
4689
461'
46t1
4612
t611
4614
4615
46t6
4617
4UI
4619
462'
4621
4622
462)
4624
4625
4626
4627
4628
4629
461'
46)1
4612
4611
4614
4615
4616
4611
4618
4619
464111
4641

1110.0.1

BI661~

022777

816124
"16616
• 16614
816642

"81481
.12717
117717
184187

tl1II0.1
16247 •

1166U
.16646

8852"1
.2.177

162466

IH6652
816654
.166611
.16666

'814.86
1II1.U7
'1'7737
U4878

0.1162
162454

162St4

281

11181162
til 1'4

.1.,RltER

litO
MOY
1'0'
ERROR

1t,IAEG0
.RICER •• REG1
lI1J7

INC
CM.

Rl"RKDA

BEQ
MOY
MOY
ERROR

HUl4

••

firs 1
Rl •• REG0
,RICOA, .REGa
78

,.TE.T
r ••••••••••••
•••••
..•••
...•••••
•••••••••••••••••••••••••
II
CHIC«
THI'
RKU ...
IITERRUPTS
ON sort ERROR IHEN•••••
lIE' IDE ARE SU
•• tHII TIlt CHECkS IfMil 'Sf In II IU WnM IDE . n AND A 'OF'T
,.ERROR OCeUIIS, 'lHP I.LL eOlnO.. AC'l'ION wILL S'fO" AID A BUS
,.REOUlar CIUIRR:T) IIILL. OCCUR AT THE SID or 'l'HE. CURRINT
,.IECtOR. ,o,t IR OR I • • IMOLAtED II WCI AI II ,REVIOUS
, ·TE.T. PRERIQUIlItS., rOR TIlii TEST ARt !lfE lilliE AI THO.t
,.rOR 'l'1IE 'RIVIOU,TE.f.

, ,......................................*••• .....................
~

1116670
816612

,"011184
104411

UTIlI

.16674

104421

816676

012717

118017

.n2l6

016704
"16110

113701
"12717

101158
117"0"

162416

SCOPE
CNt.RISET

,GP, DO eOHIIOL RESIT

,THU IS A CALL FOR THE 'C"TRL,RESET' ROUTINE. A CONTROL RESET IS
, ~SUED liD AFTER A CERTAl" TIllE
, If' fHE 'CRTRL ROY' DOE. 1I0t lIT
,111 nROR %S REPORTED. IfOfETRlT
,1'II1t PC IN laROR "I.,AGE II, 'HI!
,P(! IIHIRI 'CI'l,R£StT' IS LOcATED.
,tHIS I. a YEAY BlUC IR" IF IT
,oceuu CO BACK 1'0 Te:S'f 1f
fST,81N
'C~teK IF lIN III In. IF'
; liT DO DRIVE IIl1lEt TO CLI n
1,.,0e87,OUTBU'.U '"Ct I' ItMUtl'l'ID BY DRO"%IIe: A etT
MO'
,11 THI ·n GHTH IIORO (WHI eM II 114887)
,NOtl T . ' tHS 256 ilOilO MEMOli
,eu""'. CIURttU A'l' ounur, IS
,CREAteD IN.A PU¥tOUI 'Ut,
MOV
DRIVAD,R1
,OT .t:M« 10.0 (OctaL) IIORD •• 2 II!C'l'ORS
• -1 it00. 'RKIfC<
MO'

6642
46n
4644
4645
4646
4641
4648
4649
4658
4651
4652
465)
4654
4655
4656
4651
4658

CliP

MACYll 270"6) .4-0t:,-76 16106 PAOf 16
MAtNDEC-ll-DZRKK-O
'f51
tRteK THAT illC! I1TEIUWPTI ON sof'r !IIROR WHIN lllE ,
22-IEP-76 08r47
DtRItKD.PII
4659
4668
4661
4662
4661
4664
4665
4666
4667
4668
4669
467111
4611
46H
4673
4614
4675
4676
4677
4678
4679
4690
4681
4692
4611)
4694

116716
016724
0167]0
016114
I16H8
"16744
016752

012777
010177
01 )7"'0
012720
"12710
"12177
1114420

833240
162410
001482
016766
"0348
.,,"5e7
171717

016756
816762

,,"4737
104111

'2"716

1Jl6764

"""417

016766
016118
016112

022626
022626
"12777

004!!26

017"""
"170"2

""5201
0128177

l62l)2

'" 1006
017"10
011"'1.
"11022

"014"6
"10137
011717
104"")

"01162
162120

012746
11112746
,,"0802

'."l4'
1II178!6

468~

162412

162JtIII

tel

•Ot"""

It., '"".

,at! paw ON lif'l'ERRU'T

01511
IUOR

'c,aTno
111

e...

.o,
eM'

162482

IRC:

(".)+,U')+
CI'~+,(lP"

nUII!"RJCVIC

ellP

Rl
R1ilRlDA

BIQ

MO'

ItS ,IItEG0
,.KeA,.REG1
J.

1'0'

1811.4

CMOR

01N24
"170)0
0110)4
011016
IIfl1")6

"05971

471jJ9
4710

4711
47\2

471)

4714

,I(IT Cfllt, GO, lIE. IDE '1:'1'
"UT rOR INTERRUPT nOIll IIKII
,,.Ut ••nll· MS rOR 1112111,
, • ., liS rOR Ults.
,U/IilII
I RUI DID1I0T INTERRUpt ,.,flR A lOP'!
ICR~DR tarMuLATED) IN
'ICtOIl •
IREltORI!; StAtlt POINTEII ,rllOM Rltll INTRUPTl
,POP ITICK (F'ROM WAf.INT)
,lInrOIl! RIC11 IllTERRUPt VECtOR
,ADllta rOR UNl:lPtt:'lI:D INURRUPT8
,CIIECIt l'HAf RkDA INettEMEN'l'CD
, n ONloY 1 'iCTOR &ErORl INIERRUPT
,I>tCORJt!D

rGET txPC'l'D RKDA

,GET lltDA ru:c VD
, RKDl SHOULD If AVI: nC:~IMtR_ BY
,I IECTOA ONLY. IF ALL CIlfAL ACTION
, HAD STOPPED Af'T.:1t :g,t ERltOl
, ,SIMULUED) IJf
R " IT DID NO'1'.

MO'
MO'
Rn

1l4e,-UPl

CLII

,RlCeS

U.. ,-U"

64 ..

16221",

'CLI!:lR '1'HC tOE aIT

...............................................................

,,*'fElT
, S2

470)

47a4
4105
41,,6
4187
4109

,.ET UP II1ERRU'T VEC~OR rOR RUI

'Ie!

21.

1'1 17 "H

IDI ARE SET

,'10M THI' BU. AORta
IIfIrH THU DIIK ADREI, nc. 0, CtL

MOY
,RICIl·
1I0V
fllt'IIItDA
MOV
RI(Y!t:,R'
11Of
1I0Y
U4 ••••"
MOV
'U7, • •as
WAT.INT,I77777 .

4686

4687
4689
4689
4698
4691
4692
4691
4694
4695
4696
4697
4b91i
4699
4700
41"1
4702

SEQ 011/12

,CHECK ONLY 'WCE' eIT .HOULD
IBE SU?
~YES, BRAIICH
I GET ItlPCTD RitER
,GET RitE!! RECVD
10Nlo' lIT 'WCE' or RJER
,saOOLD Be: SET UCE illS
[;lROR
~ 8 nULATED ABOVE).
IIr U's ROT
sCIlECIt THAT RKOA IIICIIII:MItN'1'EO BY
,I IEC'l'OR ONLY IMPLYING TH1T
:CIfTIIL AC'lION DID ITOP ArTtR
,son ERROR lit StCTOII 8
"YES, EXIT
,GET £XPCfO "ItDA
,GET RItDA RECYO
,RItDA ,HOOLD HAVE INCRMUD
,IT 1 lECTOR ONty, IT OID"·T.
'liCE IIAI SIMULATED IN THI
,rIRST SceTOR " A IfRT e.u
J or 2 I!CTORI If AS IIIOI!&;"
'CONtRO~ER SHOULD 1t0P AFTtfI
,DETEC'l' IG liCE IN THE rIRS!
,'£CTOI. HENCE RltD1 'MOULD
,lNCliEMENT . t 1 SECTOR OIlLt

01Nn
11117"44

800084

1117054
01'/:"56

"81))2
177774

"171664
"17070
"17074
I'IIN76

;'",4711
104016
I.H41)

"'4411

081'1142
821344

"'110~"

...............................................................

tarSi.

01371f"
1111271'11
,,8SA0a
8127)7

"17e64

CIIECK 'lHE MEX Inl II RItCS
,.THIS TEST CHECItS OUT THE EXTENDED IIEIiORf IITI or tHE RKCS.
, .THIE RUA IS In TO 117776 lIID A ONt IIORD IIRIfE CHECK II TRIED.
,.THIS COULD GIVI R~81!: TO IIXII ERROR. IUT EVEN THtlf !BE RltBA
,.'HOULD OVERFLOW 1 TO THI!: MEl BITi. SlMILlARIoY IT I. CHECKED
,.THAT filE OVERrLOlIlNG aIT CAN MAKE THE MEX BITS eOUNT
,"1,18.11,.8.

e8UlI

tel

SCOPE
MOV
NOV
CLII
MOY

RKeS,R'
.-t. Rl
R2
'11, SI.PERR

DELlY
r142
JSR
PC.TSTRIfS
ERROR
16
City. RESET

,lET UP THF. COUNT
I INITIALIZE MEX BITS TO B sn IN Rkes
,S!T RETURII "OR£S rOR
,LUPING ON EROR (1119)
,TI"!! DELlY
IlIIAIT F'OR RIIfIS ROY
'RlloIlS ROY IS NOT SItT
,GO. DO CI)NTROL RESET

SEQ 0103

MACYII 27 (1886) 84-0CT-76 16186 PAGe: 87
IUINDEC-ll-DlRKK-O
22-Sf P -16 1118,41
T52
CHECK THE IIIEX BITS IN RKCS
DIRKKD.PII
4715
4116
4717
4H8
411'1
47,",
4721
41?2

4173
472.
4125
4726
472 1
4728
4729
4730
47Jl
4712
471)
41)4
47)5
41)6
4717
4H8
4719
4740
4741
4742

4141
4144
4145
4141)
4741

917180
017102
017110
017116

01~2t0

1'12117
O13717
1'12117

177717
"01 )51J
171776

017t24

9I52111'l

000001

0171)0

1"4412

817112
017tH
"I7U6
017142
1'117146
01115O
0171'54
017156
011160
017164
017170

tlll4065
0102fl5
"b2105
842105
01lllP4
04271/14
"20504
001405
010531
010417
104112

011t12
017116
017200
0112.,4
017206
017212
017224

017"')
"10105
04210l
oiii I 4 lI!
042705
''105)1
0117)7
11114107

017226

06270J

~t7212

''''521'1 ~
0111111 J

162224
162222
162212

MOY
MOV
MOY
MOV

R2,tilRII
'-I.IRUC
DRIYAD,.RKDA
'177776,IRKBA

BIS

.".P0

CHKCRDY

1$1

0000211
0981011

177117
881162
0"1164

ERROR
flOV
aDD
BtC
HOV
BIC
CMP
BEQ
MOV
MOY
ERROR

65
A2,R!!
'20,R5
'U8,A5
IIRIII,R'
U77117,R4
R5,R4

R5, SREG0
R4,SREGl
112

4H~

4749
41')0

41'51
4152
4753
41'54
41')5
4H6
47,)7
4158
4759
4760
41b1
41.,2
41b)
41&4
H65
4166
4167
416'1
176-'

,u7216

ilt7214

162112

411

171776
"M 162
162106

MOY

MOY
BIC
BEQ
BIC
MOV

8111)1'101

5*,

1'''.00'''

ERROR

'177776,"5
R5"REG0
IAKER,IREGI
107

ADO
INC
8NE

140Y

1111111164

I!IAKER,Rl
Rt,R5
UIIUJt.R)

UIII,R2
R1

,THIS IS A CALL rOR THE 'ClilTPL,RES!:!' ROUTUE. A CONTROL RESET IS
,ISSUED AND ArTER A CERTAIN TIME
,IP' THE 'eNTRL ROY' DOES NOT lET
: AN ERPOR IS REPORTED, NOTE THAT
: THE PC III ERROR MESSAGE II THE
,PC WHERE 'CIIT."nET' II LOCATED.
,Tl!IS IS A VERY BUIC ERR' If IT
,OCCUPS GO BACII TO TEST 10
,SET MIX BITS (AS IN R2) IN RKCS
: WRT CHK 1 1i0RD
:THIS DISK AOItEl, SEC 8, CYL III
:THIS BUS ADRES, NOTE THIS IA
: IN CONJUCTION IIITH MEX BITS OF RICCS
rWRT CHK, GO
,THERE MAl SE A NXM OR WCE BUT
,WHATEVER THE CASE RKBA SHOULD
,0VERrLOIf MAKIIG THE MEl BITS COUNT
:GO CHECK I ' CONTROL ROY IS SET
: Ir SO, SKIP THE EROR ME5IAGE.
rCNTRL ROY DID NOT SET AF1'tR WRT CHK
rM~X

Bltl SHOULD IHefl!MUr BY 1 TO THIS
:MASK OUT IDE BIT POaITIO", IF SET
,GET RKeS
,MASK OUT ALL BITS EXCEPT MEX
,DID MEX Ins INCREIIE." CORRECTLY?
,lEI, BRAICH
rGET EXPcrD MEX BITS
rGET MEX 111'8 RECVD
,HEX IIITS 010 110,. ileUM!., AS
,'EXP:IJ'D' IIHEN RKBA OVERFLOWED.
:NOTE THAT BIT POIITION 4 , 5
,REFLECT MEX BITS" " 1 IN THE
,ERROR MIISAC!.
,GET RICER

,MAlK WCE,OLT,"XM BIT, IF SET
,BRANCH IF REST OF RKER CLP
,MUK NON-NCE BITS
'THIS 18 THE EXPCTD AKER
,GET RKER RECVO
IT SHOULD
'ERROR IN RKER.
:8E AS EXPECTED IN
,ERROR MESSAGE
'INCREMENT TO IIX'l MEX BIT
,HAVE U CHilD THE MEX Ins 4 TIMESl
r Ir NOT, LUP BlCIl

.
.

, r···· .. 51
••• .. •• .. •••••••••••••••••••
.. ••••••••
TRAlarU ,1t0M DISK
TO TTY .. • .. •••• .. ••••• .............
'.TEST
THIS TEIt ellECKI THI HIGH ORDER BITI 0' THE lDDRESS
LINES. ,IAIT A ONE WORD (00) 18 WRITTEN ON SECTOR,
r· 2, CIL t. fUI IT IS RIAD BlCIl, 8UT THE NPR IS DONE
NOT TO THE IIEIIORY, BUT THE TELETYPE BU,. .. ER (TKS 177568)
AND IT CHECICED THAT TH! 1i0RD illS RECIEYED CORPECTLY.

,,.
,.,

"U'InEC-II-DlPI(K-D
"'ACYl I
OlRKI(".PIl
22-Sf.P-76 88:47

27(1006)

IJ4-0CT-76
16186 PlG! 88
TRANSFER 'POM DISK TO Tn

T51

"
11117216
"172111

1'10""0t
,,, 2737

"17246
017254
"'172611

1!1i'J~731

11117266
IH7270
1117272
111171111111
16IH04
017)la

1'1 \21l 1
0117)7
"'0"'520
922626
"127)1
012746
911146

lST511
9012"6

017270
I 771QHl
004462

0""''''04

"'04462
lII"'A140
017112

00"004

"'P)20

812NI
01J1ll4

1'1013)6

91211 1

00~' 100

012771
01 )71'12
0''127-'12

01:11 350

"10271

lU7U

811176
~IH"2

1'174116
017410
11117412
I!17H0
"'17414
1J11411'1

'1, STIMES

.,S, .. 4
IIIt7778'"
'I:UOTMO, . . 4
TST54
(SP)+,(lP)+
I8AOfMO,,,4
Ut,,-UP)
"",-UP)

; J 00 1 ITERAT rON

'THIS CODE FINDS our 1,. THE CPU
lIS IN 11/05 OR ELSE.
ION AN U/05, RII (111700) ClM 8E
:ADDRE.SED AS A MEMORY LOCATIO~, BUT
JON ANY OTHER CPU IF 11770~ IS RFFfflENCED
J A TIME OUT WILL OCCUR.
,SET UP TIME OUT YECrOIl
rREF!RENCE R0
,110 NA8 RErF'IIENClD W/O Tl"lEOUr
,HENCE 11/85
: ,SKI P THtII TEST
J Ri!:STOpr SfACK POINTER
,RESTOIU TIMEOUT VECTOR

641.
0117011
104111

1'117114

SCOPE
IilOV

BR
eMP
MOV
MOV
MOV
RTI

1110\))2

"'17312
",7)16

"17))4
III 11142
1'11146
1117),)2
1117)56
II1lJ6t
III 17 ]64
11111)66
1117 H0
017372

Itt' IT IS NOT, IN ERROR IS REPOl'TED. THIS TEST IS
,.SKIPPED ON AN 1l/05.

MOV
TIT
MOV

1"'00"'2

0t7lt2

IIIH24
..,PH8

....................................................................

MOY
RKCI,R0
CNT,REI!:T

0l]?.0
177171

161772

88"~07

"" 0114
1112710

"0501il1
10'5710
180410
"A520)
"I'll )74
094H7
"1102)1
10114411>
18401\

11120792
0t'1202

1112717
"lil271

117777
16\ 714

1111714

PIli! 1144
16151 il

""'1071

1&1714

MOV
NOY
MOY
MOY
NOY
BIS
MOV
MOV
NOY
CLA
TST8
8MI
INC
BNE
JSP
MOV
BRKD14
[A PO "
MOY
MOV
MOV
CLR

'OUTSU"R1
RK8a, II.
'!IJ""Rl
hi , (I!lKHC
DAIVAD,R2
'2,R2

IGO, 00 CONTIIOL RES!T
,THIS IS A CALL rOil TH! 'CNTRL'RESET' ROUTINE. A CONTROL RElET IS
,ISSUED AND AFTER a CERTAIN TIME
,Ir TflE 'CNTRL ROY' DOES Nor lIT
JAN ERltOR I S REPORTED. NOT! TflAT
,THE PC n ERROR MESSAGf: IS THt:
IPC WHERE ·CNT.RESET' IS LOCl'I'ED.
, THII II A VERY 8ASIC ERR' IF IT
r OCCURS GO BACK 1'0 nST 1111
,WRITE THIS HORD
j HI' ITE 1 HOPD
rON CYL 0, SEC 2

~:Z,IRKDl

Rl,'R4
'l,IR0
R3
IRe

,FIIO" THIS '1EMORY LOC
JHPITE. GO

2.
R)

\I
PC,GT4RG
R2"REGllil

.-\ "IR~wC
R2,UI(DA
ITKS,~R4

'SrKS

GET RKCS, ER, OS
GET THE STARTING AORES
BREAK IT INTO DIW " CYL, SUR, SEC •
CNTIIL AOY DID NOT SET ArTER
WI' rtf OF' 1 WORD ON cn ", SEC 2
RE_D I wnRr
fROM SEC' 2, CYL "
INTO TTY STA"S REGISTER
CLE"" TTY HY BRD STUUS REG

SEQ 81U

IlAUDEC-II-OZRKK-O
MACUi 2H1IJ1J6) U-OCf-7& 1611'16 PAGE 89
DIRKKD.PI1
22-SEP-16 08147
f51
TRANSFER 'ROM DISK TO TTY
4927
4828
4829

48313
4811
4832
48))

4814
48)5

Un
4837
4939

017434
811440
"11442
"17444
011446
811450
"11452
017456
1,.1462

812710
0"501ll
105710
100410
1'105203
001314

0"0tt65

3:l471 ,

11:18732
1"12112

l ..

1"1464

010217
Hl4416
184045

017466

19)2131

1.0111'0

1'117474
iHl416
017502,
011506
817512
017516
017522
1'17526

081015
IJll105
110517
05H05
0U517
011431
GHI017
104115

161442
"01164
0.fl100
801162
"81166
.01170

MOV
CLF!
TST8
BNI
INC
BilE
.lSI'
MOV
BRKDU
[APOR

U5,eR0
Rl
lIR0

4841
4848
4849

4850

4951

001144

PC,GT4RG
R2.SPEGU
45

4852
41153
4854
4855
4956

4957
4158
4859
486"
4861
41162
486 )
4964
4865
4966
4867
4868
4869

01l""'04
"12737
'''''5001
012702

000"'1'12

487'5
4876
4817

01755~1

"'12117

IH 1562

4978

01'556
1117562
ijl7566
017571'1
''11572

"'3705
0.,47)1
104016
104411
012777

001336
1'21344

4871

un
411ll
4A74

41tH
41190
4q!l1
4882

TST54
UTKS,R5
R5,.REGI
1100, R5
R5,SREG0
,1I4,8REG2
'R0,'REGl
115

I GET THE STARTI~G ADRES
IBREAK IT INTO DU, CYL, SUII, SEC'
ICNTRL AOY 0108'1' SET AFTER
, AEAD OF 1 1I0RD FROM CYL 0, SEC 2.
,III EROR "SGE, COlJ(-AORIES> GIVES
, AORES IIHERE READ BEGlIf. 'IIKDA'
IGIVES CONTI':NTS OF R((Dl AT TIME Of' EI'OA
:WAS THE CORRECT 1I0RD RElD INTO
,THE TTY STATUS REGISTER?
"YES, EXIT
,GET THE WORD RECYD rROM DISK
,THIS WORD ilAS EXPCTD
,STOf\E EXPCTO WORD
,GET IIK81
,GET FIKes
JDATl ERROR. A ONe: 1I0RD (H'0)
,rtPP illS TRIED rROli DISK TO
,TTY KEYBOARD STATUS REGISTER
,(t 7756) • 8IT 6 SHOULD HAY! Bll:EN
: SET AS RESULT OF THIS
,BUT IT WAS NOT

..•..........•..............•.......................•..........

, .UST 54
CHECK THAT RKBA eAN COUNT CORRECTLY
,.THIS TEST CHECKS THAT II((BA CAN COUNT CORRI':CTLY. IT IS SET
,.TO THE DESIRED IrtlTllL VALUE. THEN A ONE WORD WRITE CREC((
,.15 TRIED, WITH MEl (MEMORY EXTENSION) BITS SET. Ir THERE IS
,.NO "'EMOP! PRESENT (rOR CERTllrt 8US ADDRESSES), THERE
,.IIILL BE AN HIM I':RROR STOPPING CONTROt.t.ER ACTION. BUT RKBA
,.SHOULD HAVE INCREMENTED BY I rROM ITS INITIAL YALUE. IF I1'
,.HAS NOT, AN ERROR IS REPORTED.
011530
017512
ellS 10
1""542
III 7544

4870

BIT
BNE
MOY
MOV
BIS
NOV
MOV
"OV
ERROR

; READ, "'EX BITS SET

49)9

4841
4841
4842
4841
4844
4845
4846

..........................................................•.•..

TS'I'541
1""'''005

001206

,,14421

117177

SCOPE
MOV
IS,UIMES
TST.SIN
CLR
Rl
MOY
'2,112

'SET RETURN ADAES rOil LUPING
ION EROR

MOV

801110

lSi

161534

"DO 5 ITERATrONS
:CHECK IF SIN SET, If' SET DRY RESET
,INITIALIZE (VALUE OF RKBII)
,INITUt.IZE (INCMN'I'D VALUE OF RKSA)

140V
RKSA, R5
JSR
PC, TSTRWS
EIIROR
16
CNf.RESET
MOV
.-l,lIRKWC

,IIIAIT FOil RIWIS ROY
,RIWI S ROY IS NOT SET
,DO CONTROL RESET
JWRITE CHK 1 WORD

"'A ['IDEC-I1-0lRKK-0
MAC'!'11 27(1006) 04-0CT-76 16106 PAGE 90
OZRKKO.Pl I
22-SEP-16 B8147
T54
CHECK THAT RK!!A CAN COUNT CORRECTLY
0176.,0
"'17M'2
017610
"'17616

01011!i
013777
012777
104412

017620

104865

017622
"17b26

0"52)7
001417

1l176li!

020215

4998
4999

1l17bll
0176)4
1117640

00141d
010137

4900

017~44

4881

H84
4~85

4qa6
11197
4911a
4QI!9
U9./J

4991
4992
H9)

H94
4895
B96
4997

10135.,
000067

MOV
Rl.lIR5,TMIS BUS ADRES
MOV
ORtvAO, 'RKDII
'SET DISK ADIIES
MOV
'67, ilRKCS
,W~ITE CHECK, GO, MEX BITS SET
CHIICRDY
,GO CHECK If' CONTROL ROY IS SET
, IF SO, SKIP THF: EROR MESSAGE.
ERROR
,CNTRL ROY 010 NOT SET AP'TE~
,WRT CHK WAS TRIED TO NXM LOC
,U MIGHT WANT TO USE TI':STS
'CHECKING MEX BITS' NXM.
INDXl
INC
,ALLOW ONLY 5 ERRORS OF ABOVE KIND
BI!:Q
5$

161530
161514

001356

3S1

BEQ
MOV
NOV
ERROR

0"t 162

011517
104017

00'161

005H7

001360

CMP

;010 RKSA INCREMENT BY 1 FROM
,ITS INITIAL VALUE?

4.
Rl, ,REG0
'RS,tREGI
17

491<11
4902
HI<I3

49A4
49~5

491<16
491<11
49A9

49'111
491 "
491 I
4912
19\)
HI'

017646
011652
1l11b54
"17656
1'17660
At 7664

""'141l5
0602111
01AUl2
0627112

411
0011002

IIAllHi

1915
4'116

INC
BEQ
ADD
MOV
ADD
BilE

tHOU

R2,A1
AI,A2
I2,R2
11

,ns, BRANCH

, GET EXPCTO RKBA
,GET RKBA RI':CVD
,RIIBA DID NOT INCREMENT BY
,1 f'ROM ITS INITUL VALUE.
lONE WORD IIRT CHK wU TRIED
ITO A NXM LOCATION. THEAE
,WILL BE U NXM ERROR,
,BUT STILL RIIB .. SHOULD
'INCREMENT BY 1 FROM ITS
,INITIAL VALUE.
,ALLOW ONL'!' 5 ERRORS OF
ITHE AIOVE KIND
,UT NIT VALUE or AKBA
:IET EXPCTO YALUE or R((SA
I ALL ~ONE?
,DUMMY EXIT POINT

4911

J, ..... ** .... ** ..... ** ••• ** •••••••••••••• ***** ......................*

4'l1 ~

4l, ~
H2A

; .TEST 55
CHF:CK fOR RK-05r
,*THI S TEST CHECKS RII-0SP' TYPE DRIVES
,oTO INSURE THAr I,. SEEKS ARE IssUED ON ONE
Ion!! [V.:, Till'; OTHER DRIVE BECOMES 8USY

49'1\
4q]1

4Hl
49)4
H]'i
492()
4"111
4129
~n9

49114
4911
49)2

4Hl
4'H4
49)0;

H)6
4917
49JA

SEQ .106

; '** .................... *** ..... *** ....................................

"1'76""

~"?I'i"4

AI7"7~

1112117

1<11767&

"'11'5111

~'ll1"2

1111104
017110

017112

1ST55:
k/01206

SCOPE

MOV
TST
Hf:a
JSR
ERIIOR

"''''14,n
0>1\5 !7
' .. 4thl

H,.TIMES
f""LAG
18

II!), FCHr.n
1 ~.,

"DO 1 ITERA'IION
,SH IF RK-II!5r
,NOT,
,sn; l ' OTHER COf;S BUSY

til

,.................................................................

: .T\:.ST 56
F'lO Ot' PPOGRA"
,.TH\S [S NOT II TF"ST, FlUT II LINKAcr PROVIDED TO PERf'ORM
; oTflF. ARovr sUI-n s rs rOR ALL, DRIVES THAT ARE PRESENT.
I-,.,on: Tf/AT THE Nf n TEsr- HARD~ARE PI'lLLING LOGIC,.ts r,ONF IISt",G 111.1. THE 1)~IVES THAT ARE INDICATED PRESENT.

SEQ "'107

fl4-0CT-76 161116 PAGE 9t
MACYl 1 27 (t1J06)
IIUNOEC-I1-DZAKK-O
T56
END or PROGRaM
22-SEP-76 .,8147
DIRKJ(D.PII
4919
4940
4941
4942

4943
4944
4945
4946

4941
4948
4949
495'
4951
4952
4951
4954
4955
4956
4951
4958
4959
496111
4961
4962
496]
4964
4965
4966
4967
49&8
4969
49711
4971
4972
497)
4974
497'5
4976
4977
4179
4979
498e

4981
4992
4'J8J
49"4
4985
UA6
4987
4988
4989
4'190
4991
4992
4991
HCl4

SEQ 0ua

,.00 NOT LOOP ON THIS 'TEST'.
011712
917714
017722

000094
812737
11"52]1

1117726

'117]2
"11714

11"4117
1,,4.26
"21111

"611412

9"U52

811742
In7144
. . 1152

8f11485
9621)1
8"9137

929098
1'104166

0fl1l5.

111156

11050]7

""1112

800991
"611352

81111296

821412

II.· •• • •••••••••••••••• •••••••••••••••••• .. •••••••••••• •••••••••••
TST561
SCOPE
lI,nIIiES
IIOY
"00 1 11 EflAnON
,INCREMENT THE COUNT rOR THE !lUM8ER
OfIYOON
INC
,or OAI YES THAT foRE CHECJ<I!:O
I RESET THE OR lYE
PC,DAUET
..JSR
IRIWIS DIDN'T SfT ArTER ORlYE RESET
ERMR
26
IHAVE
U TESTED ALI. TIfE DRIVES
DRlYS,DRYDON
BTEOPI
CMP
,THAT ARE PRESENT?
,IF n:s, EXIT
BEQ
U
,AORn TilE NXT POSSI SLE DRIVE
'29.8e,ORIVAD
ADD
,GO BACK AND fEST THE NEXT
IIUORY
JMP
,O"IYE PRESE"T
nRTTL
CLR
lSi

......................_....•...•..............................

,.TEST 57
CHECK HARDWARE POLLING LOGIC
,.THIS TESt CHEtlCS THE HAflDIIARE POLL LOGIC, USING ALL THE OIHYES
ATLEAST TIIO DRIVES SHOULO BE PRESENT
,.PRESENT 011 THE RIC 11.
,.TO DO A MEANINGFUL HAROIIARE POLL. SEQUENC. or OPERATIONS IS
,.AS FOLLOWING.
!fUH8ER or ~RIVE8 ON THr. RUI IS AseERUUED.
,.3) HAVING 1o0C ED OUT ALL INTERRUPTS (CPU PR 7), 'EEII. IS INITIATED
,.rOIl ONE DRlvl!! AT A TIME, ONLY IIIIEN 'CNTRL ROY' II S!:T.
,.3) CPU PRIORITl IS DROPPED TO • SO THAT RK 11 CAN INTERRUPT, THI INCOMING
,.INTERRUPT IS PROCESSED TO CHECI< Ir IT us DUE TO 'SEEK DONE' BY
,.ONE or tHE DRlVES.
,.4) IF BY THE END or TH! SET TIME A DRIVE HAS NOT INTERFlUPTED
,.AN I!!RROR MESSAGE 18 GIV!':N INDICATING NHICH ORIYI: DID NOT
, • I MTIRRUPT AFTER SEEK NaS DONE.

,.0

"
"'7762
"17764
"17772
017776

82."""

828"04
112801"
02 •• 14
0l.0"
02882"
020824
nIJ026
11200)'"
U08)2
02"m4
f2811140
0128(1142
02111.46
028852
82111154
02t.6i1
"281164
.2.,n8

""",o04
8l21l1
"05217
""h'0~
11041)1
"05011
111270"
61111571"
8"1405
0111'5237

"",nt"

1"111001
"8572"
"0572.'
"20021
802765
\ll1I~0J7

0 .. 5717
801002
"0e1l7
""5217
II117f1ll4

111"'51111

................................................................

TSTS7.
08t)005
"01440
''25202
001436
"01414

00121116

25'1

U ..

9"14)6

22 . .
IIIIH4H
"01406
8141412

T561

"'"568
111"1434
001H2
001]56

2""

SCOPE
HOV
INC
8NE
JSR
CLR
MOY
T6T
BEQ
IIiC
TST
BPL
TST
TST
CMP
BloT
CLP
TST
8NE
JMP
INC
IIOY
CLII

lS,eTtNE'
SIITET

PC,sutr
PRYORY
.DRIve,RIII
(R0)

liDO 5 ITERATIONS
,FOUNR PKI15F YET?
,YE6
,FINO WHICH ARP: IlK-0'5r
:NUMBER OF ACtUAL ORIVES
,TABIoE
;ORIVE HERE+?
,NO
,COUNT DRIVF
,RK05'?

23.
PRIORY
CR",
221
:"0
(RI)+
,00Nt COIUiT I' TWICE
,NEXT DRlVl
(A')+
,ALI, YEr
R0, • DRIY'I+ 1
INa
2l.
OOOP:VN
,EVEN DRIVES 'IRST tr ,
,ANY Oil rVES PRESENT?
ORIVS
JYES
2'"
nop
,"0
T5irLG
AKCS,Re
, FLAG TO INDI:An:1
INDxt

1Il4-0eT-76 1&"'6 PAGE 92
MACHt l7(!006l
MAlNOEC-l1-DZRJ(I(-0
T57
CIIECK HAROWARE 'OLUNG LOGIC
n-SEP-16 8At 47
DlPKKD.PII
49'15
4996
4997
49911
4999
5900

028974

111150]7

020100

1044\ J

029102
1129106
020119
020112
"20114
0201211
021'1124
1120130
0201H
020U6
020140
020142
O2.146
0'1'1152
1i!Z1t152
821f156
1'12'162
021f164
0211164
'21" 70
8211172
1i!Z0174
82M176
120202

"057)7
09 I filII 2
005"""2
1'18(14\12
0127ft2
;oIt 2101
"1'27"3
1112705
1f05 1012 '5
",05293
1I11ln5
",121..,3
1112105

[oII'I1MI

15.,

CLI!

INOlCl

5 lit III I

5002
5.1IU
5"'94
5""
51lJI'I6
5lt07

CNT .RE8ET

5 •• 8
'5"'1119

5.11"
5011
'5"12
Silt)

5014
5015
5016
511117
5tU a
'51lJt9
5i12.
5021
5022

'\"21

5,124
'5"'25
'i1l26
5027
5"28
5829
50"
51U
511H
5ltll
51114
'53)5

51)6
59)7
'50)8
5919
5 '!til
50U
5042
5U)
51144

12.2114

801156

"Oil 2 011J
001414
177770
0))2411

117170
"])2.9

INOXl
.+6
R2
.+6
.20",R2
.0RJVII,RI

IIOV
MOV
RTl

Ute,-ClP)
'6 . . ,-(SP)

'-to,R]
.01lT8ur,R5
(R5)+
III
.-4
'-I;J,R]
'OU18U,,1I5

101'1141
020164

1112711
Ihll 4lJ
0115711
1010013
IU2182
.81404
IIiI'1131

"0""'''t

64 ..

821l110"
001496

1111423

.,1214
112.221
112.222

.".,,17

90141t6

nll224

IIU725

III 7 7'17

820218
82112)2
021'1214
fIIU2J6

0"5004
",57 til
180405
111052iH

1iJ041U
11057)7

16 ..

17*,

fU1215

BIT
eEO
TST
(lPL
BIT
BEQ
TST
BEQ
8R
TST
BIIY.
NOV

'nT., (Rl)
(Rl)

.
.

'BITn,AZ

'68

ODDEVN
tH
ODOEVN
R2, (R5)

~1I45

5946
'5i147
'50.8

,,,.9
'50S0

, SET AORES FOR FOURTIl CYLINDEP
,1NTTULUE" POINTEII
,SET COUNT rOR 8 DRIVES
: INITIALIZE POINTt:R TO INDICATOR ARFA
,CLEAR OUT TH!': a-NORD rNOICATO~
: AREA "HICH IS USED P'OR DOING
,SOn"AfI[ POLLI .. C UfER ON
,SI':T COUNT FOP ij POSSIBLE DRIVES
,INITIALIZE POINTtFl TO INDICATOR AREA

III
11112746
1'112746
1... 0082

".210
furUll

TIlT
liNE
Clofl
BR
MOV
MOV
NOV
MOY
CLR
INC
BNE
NOV
MOV

,(INOX1)=oI POLLING ~ONE ArTEP ALL
lOR IYES 'EE"I( TO en II
,(INDXl )-t POLLING ~ONE ArTER ALL
,DRIUS SEEI( TO CYL 4
,rUG INOICi'TING TYPE 0' INTERRUPT
,SET TO NI)N-ZERO TO I'IOICATE
JTHAT THE INTERRUPT IS DUE TO
J SEEIC IlONE
JGO, DO CONTROL RESFT
,THIS IS A CALL FOR THE 'CNTRL,RE8ET' POUTINE. A CONTROL RESEt IS
r ISSUED ANO ArtER A CP:RTAlN Tt~E
,Ir THE 'CNTRL ROY' DOES NOT SET
,AN ERROR IS IIEPOPTEO. NOTE THAT
ITHE PC Iii EPROR MESSAGE IS THE
,PC "'HERE 'CNT .RESET' IS LOCATED.
JTHIS IS A VfRY BASIC ERR' IF' IT
,OCCURS GO 8ACK TO TUT 10
,PERF"RM 1 NG SEEKS TO CIL 4
/YES, BRANCH
:NO

BIt:
eLf'
211

UTa
Bill I
['lC

'177'77.(115)+
114
·PI'I
lS
H4

: IS THIS DRIVE PIIESENT?
; TF' NOT, BRANCH
: R'Hl6P'?
lNO, CONTINUE
,OR lYE tYEN?
:YES
,00 \II! IIA~T ODD?
,NO, SO 00 NOT TEST
;AOD THIS DPIYE to LIST
: 00 WE" WANT EVEN'
SO SKIP
,SET UP THIS NORD IN THE
,1NOICATOP AREA. SHOWllIG THAT THIS
10PIVE (AI" IN flTTS 13-\5 or RZ)
,IS PRFSE'IT
: -'ASK nUT IINWANTt:O tlITS ccn,SUR,SEC RITS)

="'0,

I fS CNTRI, ROY SET?
: YEI", IIPaNCH
: ~O, ioiA IT rOR IT

SEQ 011:'9

MACYll 21(1e'6) e4-0CT·76 16:("6 PAGE 93
II11NDEC-ll-DZRltK-O
T51
CHECK Hr.ROIllAR!: POLLIIiG LOGIC
22-8EP-76 118141
OIRnO.Pll
5.51
5.52
5"51
5QJ5.
5855
5856
5057
51658
5QJ59
5060
!QJ61
5062
5063
5e64
511165
5066
5QJ67
5868
511169
507QJ
5!f11
5872
5iJ13

50'"
5075
5"16
51177
5018
5079
5"U
5381
'''82
5iJ83
5094
5iJ85
5096
59181
5089
5089
SJ9QJ
5091
5492
5091
5094
51195
5096
S097
5098
5099
"011
SUI
5102
5Ul
SUIt

,QJU14

82.24'
.2.242
.2.246

",un

.2.25.

11110277

16U64

.28254
82e26.
112"262
.2.266
82.271

.12718

111.111 II

.21782

1114"21

.05121
11627QJ2
".521111
lIIeU38

82.272
.2111274
.211111118
92'1'4
028lU
02e114
021i132ii
,,2U22
,,2.l24
828126
92.U.

"8511104
IIIU102
11112722
11112712
013746
012146
606094
111""240
1II1S2.4
011U75
111.8452

n"ll2
020334

QJ22626
fl05731

1120]48

"01021

02,,)42
0211)41>
820)50
82.354

032710
80148)
011037
1114076

828356
1"2111162
"28)66
828)70
028]74

"17701
032701
88U81
QJI81l7
IU0S.

"28316

01115231

Ue41iJ2

000734

I ..
UI

02.QJIIIQJ

0QJU.2
82QJll2
'0.H.
'0UQJIII
1112"322

5 ..

U ..

51.
00136"

111200QJ.
11101162

168744
168000

111.1162

80136"

Btl

8N!:
JSR
ERROR

2.
PC,GTUG
21

'lOY

!l2"RKOA

MOY
Ts!
ADD
INC
BNE

11 11, lIIIe
(RU+
U00.e,f12
Rl

CLR
MOY
MOY
MOV
MOV
MOV

R4
RKYEC,R2
.6.,(112)+
·1348,(R2)
RKPIU,-CSP)
118S, -( SP)

Rl'l
NOP
INC
8NE
8R

R4
III
lIS

CMP
TST

(SP)+,(8P).
INDX2

8NE

8IT
BEQ
MOY
ERROR

1200"0.tIR"

11
'PI'I, SFEGII

76
"II(OS,Rl
116000'''RI

MOV
BIT
8EQ
MOV
ERROR

Rl,.REGe
50

INC

INDn

,SET ADRts rOR PKll TO INTERUPT
; SET PSW ON I NTERUPT
:DROP CPU PRIORITY TO 4 SO THAT
IRK11 CAN INTERUPT
I TH18 IS A TIME LOOP DURING
I WHICH ALL DRIVES PRESENT nOULD
I INTERRUPT
,BRANCH AND CHECK Ir ALL AVAILABLE
rOPIVES INTERRUPTED CORREC'l'LY
IRESTORE STACIC POlltTER
,flAS THIS FIRST IMTERRUPT
,DUE TO 'ADRES ACK' ArtER INITIATION
,OF SEEK?
IIF YES, CHECK THE FOLLOWING
ICHECK THAT SCP II NOT SET
,BRANCH IF SCP CUAR
,GET RKCS
,ArtER THE FIRST lNTI!:RRUPT WHICH
JIS DUE TO INITIATION OF SEEK, SCI'
,SHOULD NOT HAVE SET. IT DID
,RKOS BITS 15-13 SHLOULD aE CLR

StillS

5U6

,GIT RKDS
,SEEK, wITH IDE SET WAS ISSUED TO
,ALL AVAILABLE DRIYES. THE FIRST
,IMTERllPT IS DUE TO SEEK INITIATED
,81' FRST DRY. DRY 10 BITS 13·15
,'HOULD IE CLR AnR THIS FRST tNRUPT.
,'l'Htl WERE NOT IF 'l'HIS ERflOR OCCURS.
,SIT UP FLAG INOICUING
, THAT THE rIRST INHRRUPT DUE
; TO lIITIATION or 'EEK WAS
,PROCtaSED
UCIC TO THE NUT LOOP , WAIT

n:o

QJ4-0CT-76 16.06 PlGE 94
MAl NDEC -ll-DZRItK-D
M~CYI1 27Cl"86)
DZRKK!).Pll
22-SEP-76 08141
T57
CHECK HARDWIIRE POLLI"G LOGIC
5107
5108
5109
51 I'
5111
5112
5111
5114
5115
5116
5117
5118
5119
5120
5121

028404
028410
828414
QJ2e420

813783
QJ1270S
0171QJt
042701

028424
02QJ426
02QJU0
02QJU2

92111125
001411
QJIIS10)
QJ01174

028434
029416
11128442

BI8146
0QJ4117
812611

828446

lU0S1

1112.450
828452

8004"1
110524'1

111211454
82.456
02'462

0e8701
8137QJJ
11112705

828466
828418
02"472
82.414
02.590

105715
88108'
011546
0"47]7
QJ126J7

001436
033240
160706
QJ17777

9t1

MOY
MOY
MOY
ItC

CNP
BEQ
DEc
liNE

PIfYDRV, R3
_OUTBur,RS
'RKO', Rl
tt 7717, Rl

Rl
.-6

~U6

St41
5148
S149
5158
51st
5152
5151
51~4

5155
5156
5157
5159
"1159

5UIi)
5161
5162

MOY
JSR
MOV

Rl,·(R6)
PC,SHP'TRT
(fl6 H, IREG"

ERROR

10,.

8R
JNC

-CR5)

lU.

8R
MOV

0211QJ6
001162

110143'
0))248

14'1
82110'
81111162

18T8
eNE
MOV
JSR
MOY

(RS)
131
CR5),-(!!6)
PC,SHFTRT
(R6).,8REG0

ERROR

52 .

ADD
DEC

'2,R5
Rl
141

104052
1!1621QJ5
805)8)
181164

Il.80n

82ItSt6
828522
1'1211524
1l2"538

,,05737
.0U'''4
185211
1881)7

081356

tsT

001356
11120.'74

BNE
INC
J'IP

1311

5.
PHYDRY, Rl
'OllTBUF, R5

82.U6
828512
82/i1514

811£

18RANCH IF INTERRUPTING DRIVE WAS FOUND
,HII VI!: U CHKD ALL DlIVS PR!Sun
I If "'OT LUP UIC , CHII
, REPORT ERROR IF THE INTERRUPTING
,DRIVE' (U IN RICDS 13-15) WAS NOT
,IINY ONE OF THOSE THAT ARE PRESENT
IGET IIORO TO B SHnD RT
,GO SHIFT IT
, THIS DRIVE • WAS flECVD IN RKD' AS
,THE I'ITERRUPTING DRIVE, BUT THIS
IORIVE IS NOT PHYSICALY PRESENT
'RKOS' I"'DTCATES AN INTEflRUPTING
,DRIVE' CDURING H'UflE POLL) 8UT
,THAT DRIVE IS ~CTUlLLY NOT PRESENT

Ut+:z

'10V

028504

IrOR REXT INTERRUPT rROM RKiI
,sn COUNT Of • OF DRIVES PRESENT
JIIiITlALIZE POINTER
,GET flKOS
,MAlIK SlTS 0·12
,THE FOLLOWING CODE IS • SOFTWARE
,POLL WHICH nNOS OUT WHICH DRIVE
,CAuacD THE PRESENT 1 NTERRUPT
,AND SETS UP " FLAG BIT FOR
,TH£ DRIVE I, INDICATING THAT
,THIS DRIVE' INTl:RRUPTtD

Rl'(R5)+

10.

~122

5123
5124
5125
5126
5127
5128
5129
51)"
51H
5112
51U
5114
5115
5116
5117
5U9
51)9
51U
5141
5142
SUI
5144
5145

SEQe11"

I If wAITED LONG REPO!!T E!!ROR
rGO, GET RKCS,E!!,DS,OA
:CNTIIL ROY DID NOT SET "HER r.CC£PTING
, ADRn rROM PREVIOUS SEEK
IAD!!E! THIS DRIVE, CII. QJ Ofl CYL
I (WHICHEYER THE CASE MAY BE)
I SEEIC , GO, IDE SET
,NEXT D!!IVE DATA
,INCREMENT DRIVE ADRES CBlTS 15,14.13)
,TO NEXT ONE
,B!!ANCH Br.CK IF ALL DRIVES ARE
I NOT CHECKED TO SEE IF THE NUT
,DRIVE IS PRESENT (' IF SO ISSUE A
ISEE/( TO IT)
,BY NOli SEEKS HUE SUII ISSUED
J TO ALL DRIVES PRESENT , POLLING
JHlS B!:GUII

IND11
T8TENO
INDU

15t

,SET UP FLAG INDICATING THAT
,THE INTERRUPT rOR THIa DRIVE
J (AFTER IT HAD COMPLETED ITS lEEK)
,flAS PROCESSED
, GO SAK' NAIT FOR FURTHER IHTflUPTS
I GET • or DRIVES
I INITIALIZE POINTER
'DID THIS ORIn: INTERRUPT?
IYEI, SRANCH
,GET THI. DRIVE •
,SHIrr IT TO THE RIGHT
,THIS DRIYE • DID NOT INTP:RRUPT
,DURING H'NARE POLL
,DRIVE. (AS IN .REG/iI) DID NOT
,INTERRUPT DURING HARDIilRE POLL
IINCIIEM!!:NT POINTER TO THE NEXT FL~G
ICHKD rOR ALL DRlVES'
I IF NOT LUP lACK
I DONE POLLI NG FOR SEEKS TO eYL 1127
I IF YES, EXIT
: IF NOT, INCREMENT nAG
IGO 00 IT
JINDICArOR TABLE
ITHE 8·wORD INDICATO!! TAI'ILt USED IN
:THF. FORMEP PART Of THIll SllB-TEST
lIS LOOTED STARTING AT 'OUTBUP".

SEO 0111

MaCYlI UUI06) 84-0CT-76 16.,6 palO!: 95
IIA tlDEC-ll-DIRltI-D
CHECIC HaRDIURE POLLIIIG LOGIC
T57
22-SEP-l6 1 •• 47
DIRnD. PS 1
,IIORDI AilE SET UP TO IIiDICATE
'SUI
,PRESENCE Of" a DIHVE EG. IF
5U.
,DRIVES 1,1,2 aR!: PflESEIIT, IT 1111010
5115
,LOOIC LIn;
511.
.0000. BITS n, 14, 15
,OUT8U,.
1117
020000 COlTall THE
Sill
040001 ORIn: NO.
511'
800009 REST . ' .
sn.
: IfHtN a ORIY!: IIITtRRUPT' aFTER SEU
5171
,IS DON' BIr • OF THE CORRESPONDING
5112
,INDICATOR WORD IS SET. THU. rOR THE
StU
,ABOVE EXAMPLE Ir ALL ORIV'I IIITERRUPTED
51'7.
,CORRECTLY THP IT WILL LOOIC LIItE'
517'
,
121.
I n • lET
S171
1:l001t TO INDIcate:
r
51'77
04008S DR INTERRUPTED
5nl
000000 REST 0'S
51'79
5181
5111
fllOIl ODD Ir RICI5f"
OODEYII
TITENO' INC
5182 12'5J4 1052]7 011416
,SEE IF DONE
U,OODEVN
CMP
51U 12,,5.' e:z:n]7 1.0.,,2 "".06
,ALL
DONE
BEQ
211
12,,546
8.14·n
5184
,TEST aGAIII
T56
JMP
5185 Ul55. . . . 13'7 020046
T56FloG
CLR
fUI1U.
2U.
.ISln
82"55.
S1II6
5t87
SUI
ROUTINE
.18TTL EIIO or
5119
5198
!H'l
'.INCRE"IENT THE PAl. IIUMBER UPUS)
5192
, *INDICATE END-Or-PROGRAM ArtER 1 PASSES THRU THE PROGRAM
5ltl
,.ttPE "EIIO PASS nuxx· (IIHERt XXXXX II a DEC·IMAL NUM8ER)
5194
,.Ir THERES A MONITOfl CO 'f0 IT
5195
,*Ir tHER!: IS,,'T JUMP TO ST4
5196
!H"
tEOP •
SUfi • 2.561
SCOPE
5199 • 2e56. e81." •
"URO THE TEST NUMBER
nSTNM
CLR
52. . .2.562
""UI2
'fZERO THt "UM8ER or ITERATIONS
nIMES
CLR
5281 82es66 .,158l1 leU86
, , INCREMENt TH!: PUS NUMBER
. . ASS
INC
'12.2 8285'72 105231 0IUII.
nDON-T ALLON a IItC. NUMeER
SIC
,.,a88
52.) U,,5'7b • .,n'7 hl0"'''' .e1100
(PC).
DEC
52.,. 8216". ••5327
"LOOP'
1
'EOPe!1 .110110
5:l8!1 e211b16 8.,lIIft81
100AGI
IGT
un.
52" 1211611 10)ft22
(PC)+,t(PC)+
"RESTORE COUNTER
MOY
52e7 82,,612 112117
1
.EIIDCT • .. MORD
5:l,,1 .21614 "IHt
'EOPCT
5289 ,,2.616 82"11
, .EMDMG
TYPE
, , TYPE -'NO PASS .!Utl 121128 18"11
'2"15
, ,SAVE .,US rOR TYPEOUT
MOY
'Pasa,-(SP)
5Hl .28624 IU'746 . .ltlfl
typos
"GO TYPE--OECIM1L asCII WITH SIGN
5:li2 .2.ne 11....
tyPE
, , TYPt a NULL CHARACTER
,IENULL
5211 "216)2 18. .81 121662
IGET42 , MOV
"GET MOIIITOR ADDRESS
"42.,R0
5214 "216J6 I Ill . . 1"."'42
,,8RUCH t,. 110 MOItITOR
8EO
100aG"
52t!1 e2.642 I . . .e,
: ,CLEAR tHE WORLD
RESET
!l216 828644 . ."eIl5
PC,(R.,)
,
, GO TO MON nOR
n:.oao,
JIR
82.646
1147111
5:l17
NoP
"san: ROOM
5:111 121"1 1'1140

S!:Q '9112

,
,

1110"""1

,AI,
..•.....•....•........................•...•....................

•.,.,n

.u."••

MlIIID!C-U-DIRKIC-D
lIaCVII 27 (tte6) 1.-OCT-16 16186 PAGE 96
DIRKKO.Pll
22-IEP-16 '8,41
EItD or PUS ROUTINE
5219
522'
522i
5222
522J
5224
5225
5226

5221

'216!12
8216!1.
.21.56
.21656
.2166.
• 2866:2
• 2.665
.216U
.2.718

''''ll'7
1844'.
17'7
815

85.".,
810841

37'

042412
85ues

'"' '

.42116
,211121

5'UI
5229
5211
52)1
5212
52)]
521.
5215
5216
52)'7
5HI!
52)9
52..,
5241
!l242

5241
!l244
!IUS
5241
524'7
5UI
5249
525'
52S1
!l2'5;1
520U
!l254
52!15
5256
5:l57
5nl
5259
5260
5261
5262
526l
5264
5265
5266
526'7

'un
5269

sne
H71

5212
"271

'12.,.

nOAGlit
JNP
IR'fHAD. .WORO
nVULL • .BfTE
nIfOMG • .lIcn

.88fTl..

SEQ 011)

, ,FOR
l,.eTll

NOP
ItOP

••• 248
lin."

, ,RtTURN

(I (PC>+

sr.

, ,NULL CHARACTER I'I'UltG
<15»(12)/IND P",s I I

-t ,-1,0

Gt:lIlC,

ROUTINE rOR GETTING RlCCS, RnR

,SU8I1nUTlNE rOR rllANSrEIIRIIiG THE CONTEItTS or RICCS, RICER
no IAEG", IItEGI IlESPECTlVELY BErOR!: tyPING OUT AN ERROR MESSAGE.
,CUL, JSP
PC,GTlRG
.8enL

CURIO'

ROUTINE FOR GnTING RKCS, RKER, RkDS

fGT311G
ISlISAI)IJTtrtE rOR TRuSr'"UIIG THE CONTENU or RkCS, RitER. RICDS
,ro IIIEG., fREG1, IREG2 RESPECTIVELY 8f:f"ORE TYPING OUT AN
,(RROR NESSAGE.
fCILL. JSII
PC,GTlAG
.SIITTL

GURG'

ROUTINE rOA GETTING RKCS, flKER, RKDS. RKDA

,GT4AG
'SVIIROUTJIIE rOR TRAIISP'EPRING CONTENTS or PICCS, RICER, RKOS
,PKoa TO
tRl!:Gl, tArG2, tRECl RUPECTt Vr.LY UrORr
,TYPING OUT aN ERROR MF.SSlGE.
,CILL, Jifl
PC,CT4RC

'fI'Ge.

.2.182
82.71.
128116
12.12.
e21'17] 2

01'77]7
01 '7'7]7
fl 7'1] 1

IU7)7
"""'21'1'

16.4:12
161412
16....
16"12

.0117e
.81166
..U64
"1l6l

CUflG,
CTlRGI
GT2RG.

MOV
MOV
MOV
MOY
RTS

'RlCDA, 'REG]
"-KOS,IIIEG2
IIRUA,tREGt
.IIKCS, UF.G'"
PC

.S8TTL

rYERII'

,GET RKOA
'GET RKDS
,Gn RKER

SPECHt. [IIROII M!!:SSAGr POUTIN!

,nEP"
,THIS ROUTtNF: Typrs OflT 'EROR AT PC-X'
,x IS THE PC WHERe: TilE EXPUNurO N U TO .HAT HAPPENED IS GIVEN,
; 15 lJ!EO ONt,Y rOA >ln~."'ANIJAL "aD@: 0' TH~ "Q"r,~AM,
IC_LL,
JSP
TYERN

T>'rs POUTINe:

JlAlfD£C-U-OZRltK-D
"ACYU 27(1886) 84-0CT-76 16106 P~GI!: 97
: DJ.iUD.Pll
22-5EP-76 lun
'rUR!!! SPECIAL tRROR Mt8S~GE POUTTNE

5n5
527'
5.277
121'
5219

528'
5211
52U

'2,7:)4
8287:)4
.:a.140
.2.756
828756
.:a.,6.
821762

SEQ 0114

TYER .. ,
1.44('1
.... 486

112.142
,,6SfI
6411

,t.346
UJ441i12
8"8201

TYPe:
BR
.lSCn

,6!U
I,TYPE ASCrz STRING
641
I,!;ET OVER THE ASClZ
<!5><12>/EROR,PC-'

MOV
'l'JPOC
RTS

.S~TTL

8DlB, 80~41

R3,-CSP)

521l
5214

SUS
5286

5287
5288
52119

529'
5292

,TKIS ROUTINE BREAKS II DISK ADDPESS (BITS 0-15) INTO DRIVE"
ICYLINDER
SUAFlCI, StCTOR t. THE ROUTINE IS CALLED 8Y USING EITHER
IBRItCIA0 OR BflKDA4, 80TH 8!ING 'TRAP' YIISTRUCTIOS WITII THEIR LOWEll 8YTES
IUeOD!D to PROVIO! INDEXING TO 'SOU' OR '8DU'. (lEFOR! eALLING
j!lfE ROIJTINE THE 0111( ~DDRr.sS WHICH IS TO 8E 8ROKEN AS AlOVt
,IS DEPOSITED IN tREGU.
8RKOU PUTS THE
I 'PKDA0' PU'S THE
DRIVE • INTO 'AEG4
,DRlYE • INTO tREG8
CYLINDER • INTO tREG5
ICYLINOER • INTO SAEGI
SUAFlCE I INTO .REG6
,SURFACE' IN'O IRt!;2
5[CTOII • INTO SREG7
,'!CTOA • INTO UEG!
8RK0A4
,CALL'
BRKD~e

529]

52U
5295
5296
5297
5298
5299

5)00
51111

51112
S)In
5)",4
5)1,'5
5)"'6
5)",
5)",9
'5109

11011764
1128766
028712

010946
8127111
8.11411

e81112

.21/11714
.21176

818e46
817'88

891202

1l2J 002
1211110

.32771
1181,,)4

821012
821014
ft2U16

011H46
lII3246
1113701

821"'22
1121026
821010
82 ..n4
0210)6
021040
021042
821"44
e21046
021352

842701
813140
111)781
1'186281
886211
31'16281
. . 621n
11.11/112
342702
818248

HIe
SHI
5112
S)ll
5114
5115
HI6
'5117
5119
S1l9

snll

!l21
5)22

sn)

5)24
'\)25

5126
5)27
5)211

5129
StM

8RF:AK OlSI< ADDRESS INTO SEC, SUR, CYL. DRIVE

,1101111, sou

5291

92003"

160110

BOA0I

MOV
MOV
8A

R0,-(8P)
"RECh2,R0
8DU

I PUSH R0 ONTO THE STACIt
,SET UP POINTER

BOU.

MOV
MOV

R0,4I(8P)
URIt,7.2,R0

,PUSH R0 ONTO THE STACK
,SET UP POtlfTER

BOAR.

8IT
8t1!

1201'8,.SWP

IINHTIIIT TYPEOUT'l
,yES, BRANCH TO EXIT POINT

!lOV

At,-(SP)
R2,-(8P)
tRUte,RI

,PUSH Al ON STACK
,PUSH R2 ON STACK
JGET THE aDDRESS t.'HICH
,HAS TO 8E BROKEN
JEXTRACT SECTOR BITS 0-)
PIOVE SECTOR RITS TO SAEG) OR .REG7
,GET THE DSK-~DRES TO BE BROKEN
,SHIFT AIGHT 4 TIMES

MV
MOV

t 1176.

IIIC
MOV

0ijl202

MO'I

111716

-SR
ASP
ASR
ASII
!oIOV
IHC
~OV

1177168,R1
Rl,-(R0)
'REGle,Rt
RI
Al
Rl
RI
RloR2
'177176,R2
P2,-(P3)

,STORE THIS
,EXTRaCCT THE SURrACE 8 IT
: "lOVE SliPFACE BIT TO tREG) OR 'RE!;6

MAINDEC-U-OZRICK-O
'4~CYl1 27(10116)
04-0CT-16 16106 PlGE 98
O!RKKO.P!!
22-'EP-76 ee I n
SDA0. SOHa
8R@:AIC DISK AIlDi<ESS !HTO SEC, SUR,
'Inl
5H2
!Il))

5114

5)]5
"iH6
5))1
5H8
5))9
'5)40

5)41
'5)42
5)41
5)44
'5)45
5)46
'5347
"i348

011054
02h156
021060
021064
021"'66
1121010
O21014

006201
0111102
1142702
0111248
0011301
8427111
111114O

821076
11211"'0
921102
"21104

112692
812691
812608
1100002

171400
177178

2S1

53'50

5360
536\

U62

~OV

(SP).,R2
CSP} .... ,RI
(SP).,R0

MOY
MOV
RT!

.SBT'rL

53'51

5lSA
5159

PI
Rl,R2
1177400, R2
R2,-(R0)

PI
*177770,RI
Rt ,-(R0)

e1l" ORIVt

,STORE IT
,EXTRACT THE CYLINDER BITS
/'40VE CYLINDER SITS TO tREGI OR aREGS
,SWAB HI-LO BITI!:S
If:XTR~CT THE DRIVE'
: '10Vf. DRIVE • '1'0 ,RtG0 OR ,RtC4
,RFSTOR! p2
,RESTORE PI
,RF;STORE R0 FRO., TliE STACK
: RF.TURN rROM INTF.RRUPT, EXIT THIS
I ROIHIN!

SHP'TRTI SHtP'T RIGHT POUTlNI!:

,SHrtRT
ITHIS ROUTIIE 'KIP'TS A WORD TO THE PIGHT 13 TIMI!:S. THE W':JRO TO BE SHIFTEll
,IS PUT Off TNt StACK BEFOP! ENTERING THIS ROUTINE AND IT IS POPPED UP
IrROM THE .TACK AFTER TH! SHIrT HAS BEEN DONE.
JSR
pc,SHnRT
ICALLI

5149
5352
5151
'5)'54
53'55
5)56
5357

ASR
"lOY
BIC
MOV
SWIIB
BIC
MOV

821 106
821114
821116
321122
82tl26
"21 110
021132

1112731
801241
8"6366
'852]7

l"U73
"'1237
8Itel980

1717U
8.8'92
821112

0211)2

SlIrTPTI MOY
CLC
III
ROR
IIIC
8NE
RTS

281

h15,2S
2(R6)

28
II
PC

,SET UP A CO!]!fT OF t 3
,CLEAR THA C lilT
,POTATE RIGHT THE WORD '1'0 B SHP'TD
,SHIFTE:D 1) TIMES?
IIF NOT LUP BAK , SHIFT
: I': XIT FROM THIS SUBROUT INE

5363
5364

5165
5366
U67
5)69
!l)69
5110

5111
5HZ
511 )
5174

5115
5)16

5)77
5)1'
Sll'
51U
'5)91
S)U

5)81
5)q4

HAS
5196

.'BTTL
.58TTL

::HKtlEI CHECK P'OR 'EPR'OR
::HKHEll CHECK rOR 'ERR'OR

, ,CHKHE
ITHIS AOUTINE CHE:KS IF 'HE' OR 'EPP' BITS IN RKCS ARE SET. IF ANY OF THE
,TWO BITS ARr. SET, THE COIITENTS OF RIICS, ER, OS. ~NO 01 AR! lAVED AND A
,RETURN IS "'ADE TO THE EPROR MESSAGE FOLLOWING THE 'JSR' CALL.
,AT THE TIME or ENTRY 'DRlYAD' CONTAINS THE "lSK ADDRESS WHIeH IS TO
,B! BROKEN DO.,N UTO DRIVE I, CYLINOFR. SURFACF" ~NO SECTOA t. THIS INrORMAnON
,IS SAVED TO BE USED LATER rOR ERROR RFPORTING. IF THE 8ITS ARE NOT SET,
:RF:TURN IS IoIADE TI) SKIP THE FoRROR "'ESSACE.
,CHKIIEI
'THIS ROUTINE CHECKS IF 'HE' OR 'ERR' BITS I~ PKCS ARE SET. Ir ANY elF" TilE
:TwO IITS ~P.E SET, THE ::ONTENTS OF RKCS. 1'.:1'. OS, AND OA ARE SAVED A~O 1
,RETURN IS ,.ADE TO THE r.RROP MI!:SSAGE FOLL"W INr. THE • JSP' CALL.
lIT THE TIM! 0' [!fTRY RI CON'I'AIIIS TItE DISK ADDRESS IIIHICH IS TO BE BROI(Eti
,DOwN INTO DPIVE ., ::YI.!NOEP, SUR'ACE AND Hcro!> t. THIS INFORMATION IS
rSAYe"O TO liE tlSEr) t.ATE~ rOR !PAOP ~I'POIlTI~r,. IF: THE artS ARF.: IIOT Sf:T,
IPF"TIJPN IS "lADe: rn Sqp THE FflROR ~·FS~J\GF".

SEQ 8115

MAINDEC-II-DI"KK-D
IIACYtI 27(10111"
14-0CT-7& 1611/'6 paG! 99
OlllKICO.PI I
n-'E,-7, ••• 47
CHKHEI J CHECIC FOR '!RR'OR
5187
51.'

5189
U9.
5191

5J91
53U
5394
5195
5396
U97
539'
U99
54 ••

11121134
"2114'

"21142

81.U7
01)731
032177

fl8U58

011282
16'154

831168

1841)7
184416

821166

0.8287

RTS

.seTTL

CHKDAI

14.8""
nl'.2

54iJ6

5418
5419
5428
5421
5422

,SAVE THE OISIC ADRES

,ts 'KF.' OR 'ERR' BU StT?
,NO
,GET RKca,ER,oa, oa
IGO TO '80A4' , BRUit CONTENTS 0
JIREGU INtO DR', CIL, SUR, 5!C BITS
,RETURN TO THE ERROR M!S5AGE

CKECK IF RICOA INCREMENTFO CORRECTLY

:i:~~A ROUTINE CHECKS IF RKDA INCREMENTED CORRECTLY. IF RltOA INCRPIENTED

5"4
5485

5411
5412
54tl
5414
5415
54t6
5417

DRtVAO, 'R!GlIlI
'1408.8, ,RlCca
CP!TRN
PC,GURG

.2U64

.81467

54.3

5418

CHKHEI
CHEI.

"OV
BIT
BEQ
JSR
I\RI<.Oa4

02115.
1121156

54et
54192

5481
5"8'
5489

ISAV! THE DISK AORE&

('IIKH!11 MOV
QR

801282

118.4ftl

SEQ 011 Ii

821178
.21174
.21176
.2121112

.Ul.5
1185285

1110U58

12''577

168136

.21204
8212'"

0115)7

.21212
.21228

.11137
",'4416

821222

"00217

.81455
'''''1212

184415
16.122

001282

'COR"ECTLY RETURN IS ",aOE TO SKIP THE ERROR "ElSAGE.
JIF RKDA DID NOT INCIlEItENT OORRlCTLY, THE EXPECTED AND RECIEVED UilUr;s
,OF RltOA aRE SAVED AND a RETURN IS MAOI TO THE ERROR "ESS"'E FOLLOWING THE
J 'JaR' CALL.
CHKDA.
MOV
DRIYAO, R5
,RKOA SHOULD INCREMENT TO TIfIS
INC
P'
IAFTER DAn TRUlrER IS DONE
CHKOAt I CMP
R5, ,RICDA
: 010 RItDA I NCREItENT CORRECTLY?
Bro
CRURN
: Ir YES, BRANCH
J IF NOT, REPORT ERROR
MOY
R5, ,RIG10
,GET UPCTD RKOA
BRKDU
I GO Tn '80110' 'BREAK CONTENTS OF
:IIIEG10 INTO DR ',CYL,SUR,SEC SITS
1I0V
.RICOl.IREG'"
: GET "CTUlL RICO"
8RKo,,4
:GO TO 'BDA4' 'BREAK CONTENTS Of
,IREGl0 INTO DR ',cn"SUR,SEC BITS
RTS
PC
I RUIIRN TO TH! ERROR "ItSSAGE

.S8TTL

5421

CHKIICI

CtlECK Ir RItWC OVERFLOWED

5424

5425
5426

5421
5428
5129
541~

54)1
5412
54)3
5414

821224
11212)8

1105177
001442

168\04

.21212

IU 77]7
IIP717
"'01'12"7

160076
160074

821240
821246

.,0un
001164

,CHlllC
,TMIS ROUTINE CIIECItS IF RKWC OVERfLOWED TO If. If' IT DID A RETURN IS MADE
ITO aKIP TH! ERROR '1ESSAG!!:. IF NOT, THE CONTENTS or RKWC AND RKDA ARE S~VEo
,AND A RETURN II "lADE TO TH! ERROR MESsaGE FOLLOWING THE 'JSR' CALL.
CHKlfCI
TIlT
IRKIiC
,DID WOlio COUNT OVERrLOw TO I'll
8[Q
CREfRN
,IF YES, BRANCH
JlF NOT, ERROR
MOV
aRKoiC,eREG0
,GET RKNC
MOV
aRKO., I REGt
: GET RICDA
RTS
PC
,RUUR" TO TilE ERROR MESS.QE

54]5
5436
5417

.SRfTL CKKF;RI
CHr.CK RICER CONTENTS
rCIfKER
nNIS ROUTINE CHf.:::KS IF ANY BlT IN RKER 5!T. IF NO! RETURN IS MADE TO SKIP
,THE IRROP MESSAGE. IF AllY till IS IU THf: CONTENTS or RKCS, RnR, RK!)S AilE
,SUED UD A AETORN IS MADE TO THE ERROR "'~SSlIGE.

5418
5419
54411
5441

5442

MUIIDI!!C-II-DZRKK-D
"'''CYtl 27(1"'''6)
.4-0CT-1I 161"6 p~eE 100
DIRKI!O.'l1
22-SEP-76 "8147
C.II~£R'
CHECK IUCER CONTENTS
821350
82U54

805171
0"1430

16.054

5446
5447

82135&

1184737

"2ln10

!H48

82U62

0""207

5441
5144

CKItERI

TST
8EQ

tRKER
CRF:TRN

"SR

PC,GT1RG

544'5
RTS

SEQ 9117

1010 ANY 8IT IN RICER SET?
,NO, IRANCH
:YES, ERROil
I GO, GET RKCS, ER, OS
: RETURN TO THE [RROR NEISAGr.

5449
54'58
JCHIlECLR
ITHIS ROUTIIIE CHICKS TIlAT RKEiI II CLEAR. If' NOT, THE CONTENTS OF RI<ER
,"R! SAVED AND A ilrTURN IS "'ADE TO THt p:AROR MESSAGE rOLo1.0W J NG THE • JSp·
,CALL. Ir RitER IS CI.E"R THI': ERROR MUSAGE IS SKIPPEO ON RnURN.

5451
54'52
5451
5454

5t55
54"16
5'\"17
5458

5459
546111

i'21264
821278
02U72
111213"0
82 tl86

085117

16.04"

011117
110112"7

1108024

"",n2
11111717 01unl 111162

CHKECLR I

"111164

TST
BEQ
MOV
!COV
RTS

aRKEP
CRETRN
RKER,.REG0
IRII;ER"REGl

JAn BIT IN RKER SET?
INO
,en AORES 01" RKfR
J GET CONTENTS OP' RKER
,liE TURN TO THI': fRROR MEIUGE

'5·Hil
5462

5461
54&4

5465
5466
5467

5468
'5469
5410
5471
5472
'47)
'474
5475
5476

021334

022777
01ll4l'l7
IIU7]7
0117]7
8"'1Il21"7

"213)6
"2U42

862716
01102"7

821lt"
821316
02112"
021326

88821110

1680t 4

"'HHl

"'11163

1&""""

"81164

000002

,CRKCCLR
ITMI!! ROUTINE CHECICS THAT RltCS IS CLEAR. IF NOT, THE CO.UNTS Of' PKCS ARE
,IUEO AIIO A RETURN IS "~OE TO THE ERROR M[SSAeE. IV RkCS IS CLUI> THE
,ERROR "IUUGE IS SKIPPED Oil RETURN.
CHKCCLR I CMP
-:2110, !lRKCS
I IS RKCS CLEAR'
BEQ
CRETRN
I YEI
MOV
RKCS,IR!G0
,saVE ADRES OF RKCS
MOV
IRKCI, .RIGI
,SAVE THE CONTENT OF RKCI
RTS
PC
: RETURN TO tHE ERROR MESSAGE
CReTRNI ADO
RTS

5477

,TatRNS
I THIS ROUTJ"£ WAITS VOR R/N/S ROY TO SET. WHEN n SETS, THE RETURN PC
lIS INCREMENTED SO 'HlIT Ott RETURN (TO TifF. MUN PROGP"~) THt I!!RROR
IMF.I5SAGE FOLLOWING TH!!: 'JSR' CALt. 15 SKIPPED. IF R/IUS ROY OOEI Nor SET
, THI':N a RETURN 18 NADF. TO TilE ERROR MESSaGE (FOLLOWING tHE 'JSR' CALL).
IUlTIlla
IS VPAOX. 1IiJ40 "S POP U120, apPROX. 208 MS rOR 11/45
,caLLI
JSP
TSTPWS

5481

54R3
'54U
5U4

u.,t

021144

548A

.31352

5411'1
54'111
!l491
5492
5n)
5n4
"I4!l5
549&
5497

821356

~1\lR

I 15K IP tRPOR MESSAGE ON
: RETURN

.S8TTL • TSTRW'J WAlT FOR PIWIS ROY ROUTINE

5478
'479
54110

54115
54116
5487

n,csp)
PC

:11)777
""'5"17
")'777
1110H187
"""1237

8nl64
821366
82t 372
I12tl74
0214"2

811717
10"2"'7

'21404

1'162716

02141"

"'11 HI

11'" 150

157761

81111166
8111111"'"

TSTAWSI MOV
CLR

157742

8Nf;
INC

8fJI ) 11ft
1577,&

flIT
FI"f:

1"011 U

MOV
ATS

211

D~ t VlO, IAKOA
TIMER
ll"fII,(lPKOS

TIllER
11
aRKDS. SREGll
PC

, "OPES THE ollIn:
!INITULIZE COUNT
I DID RIWIS AOY SET?
I YES, BRANCH
IWAIT rOA RIWIS ROY
: EPROP IF IT'S NOT SP;T 8Y NOW
IGI':T RK!)S
:~XIT (TO ERROR rOOLOwI'IG 'JIIR TSTRWS"

AnD

n,(sp)

~TS

:ADJUST "qrlFPI AORF.S Tf'I SKIP OVE!!
:F.R~nr~ CfOt.LO"UG 'Jl'Ili 'I'STJ.'WS')

;F:XIT

NUNOEC"U-OlillClC-D
"ACY11 27(1006)
.t-O::T-76 16106 PAGE 101
OIRlCIo.PH
22-SF.P-l, 01.47
TITRNSI WUT rOR RIWIS ROY ROUTINE
5499
551'
5511
SS.2
551)
558t
5515

.$8rTL

SEQ 0118

ORESETS DRIYE "Eln ROUTINE

55!!'

:~:~:!:OUTINE DOES A DRIV! R!:SET ON THE DRIVE WHOOSE ADORnS 1& IN

55.1
55.9
551"

,IIIeDA. MULTIPLE "P:'fURN ADDRtlSES rOR TIlII ROUTINF.: ARE PIIOYIDto.
rIF !HER! IS 110 ERROR (lUIlIS IIDY SITS WITHIN C!PTAIN U"IEl • THEN BErOPE
rEXI!NG rROM THIS ROUTU! THE RETD,ltN ADDRESS IS INCPEMENTED BY 2. TOSJ(JP
,THE ERROR MESSAGE ON RETURN. Ir THERE I I All ERPOP, THE 1 JlEGIITEIIS (CS,ER,DS)
,ARE STOIlEO AID THEIl " NORMAL EXt! IS MAOt rAOM THIS ROUTINE TO THE
,tAPOR MESSAGE FOLLOWING THE CAl.I. rOR THIS POUTINE.
,CALL'
JSR
PC.DRESET

55.7

SSt!
5512
5511
5514
5515
5516
5511
5518
5519
552'"
5521
5522
552J
5524
5525
5526
5527
5529
50;29
5538
5511
5512
55)1
5514
55)5
55)6
55]7
55)A
55]9
5540
5541
5542
5543
5544
5545
5546
5547
5549
5549

021412
,,21416
'2142t
'21412

o"lIon
"U777
,,12777
104414

.01364
""U5"
000015

157714

IS"00

IIIIITIALIZE THF.: COU'fT
, lOPES THE DR IVE
,ORIVE RESET. GO
,THIS IS A CUL rOA ·CN.Roy·
rROUTINE WHICH WlITS rOR CNT
j ;lDi

TO SET. IF Cr:TRL RDT DOl:

:NOT srT WITHIN 883 MSI 11-2'

.21414
1!J21442
1!J2144t
02 t 45'
031452
021454
1121456
"21462
021464
02147"

821472
1121416

.32777
1!J"11!J13
1"2746
"05'21 6
00U16
,,05726
fl05237
81!Jl364
0847)7
""8402
1162116
"00201

""'0100

1$7664

181

17777"

1'I1!J1364
0207r.J2

BIT
BilE
MOY
INC
Brt!
'!'ST
INC
BilE
"SR

, (176 MS '"OR 11-45 wITH BJPOLAR)
r AN ERROR IS III':PORTED

'100, (lRICDS

'.\0.-(SP)

CIP)

rDID RIWIS ROY SETf
: PUSH COUNT ON SP
'COUNT IT DOWN

.·2
,POP UP .P
IIr NOT WAIT
plAtTF:D tONG?

(SP).

COUNTI

RTS

PC:,GTtRG
28+4
12,,.R6
PC

. . .TTL

TITSINI CHECK ·51 ... • ROUTINE

tit

2..

800"(112

IDD

,TSTUN
:THII ROUTIN! CHE.CKI IF ·SU· IS SET, Ir IT ts SET A
'DRIYI': RESET til DONE TO CLUR 'su' AND INITaLI!E POSITIOIIER.
rCALL'
TIT.SIN
I I ' ON DOING DRIVE RESET RIWIS ROY DOES NOT SET
A MESSAGI!:
,
ERROR PC-XXXXXX IS GIVEN.
,XXXXXX.PC IN THE MAIN PROGRAM I!IHEPE 'TST.STN· CALL IS LOCATED.

5""
5551
5552
555]
5554

COUNTI
DRESE!' CLR
DRIVAD. 'RKDA
MOV
US.tRKCS
MOV
CNT.ROY

02158"
021506
021514

011777
A32777
00149)

001350
"0101'1"

1576)2
157612

TSTSINI MOV

StT

ORIVAD, tRKDA
• UJ1I0, !aRKDS

KEQ

: AORES THE DRIVE
: IS SIN SET?

MAlNDEC-II-DZRIeK-D
MACHI 27( l01!J6)
04-0CT-7&
16,86 PAG! 1112
DZRKKD.PI1
22-SEP.16 09147
1STS1II1 CHECK '1111" ROUTINE
5555
5556
5557
55~9

5559
556~

5561
5562
5563
5564
5565
5566
5561
5568
5569
5578
5571
5512
5571
5574
5575
5516
5577
5578
5579
5580
'iS81
5'>112
'i581
5594

021516
021'522
021524
"21526
021514
821S]6
821542

",,4737
000401
000002
0)2777
01!J1 J71
104401
080406

.21560
021560
021562
921566
921570

1'111 &46
062716
184402
000755

011412

020091'1

157404

lSI
2S1

821544
Ir41!1U
6411
11777&

JSII
fiR
IITI
8fT
BNE
TYPE
BR
.ASCII

PC"DRESP.:T

MOV

.00

(SP). - (SP)
'-2, esP)

TYPOC
BR

.SIITTL

OELAYI

2$
UI!I\ ],aSIiP

11
,65S
64&
IERROR

pc- I

SET

IlNIlIItT TYPEOuT?
ItF YES, SUP TYPEOUT
"TYPE llSCll STRING
"GEt OVFR THE' ASCIZ

:GET THE PC WHERE 'TST.SIN' IS LOCATED
,GO TYPI': OIlT r;>C

fINE DELAY ROUTINE

,OELAY
I THIS ROUTINE PROVIDES A VARU!lLE TIMg DnAY. THE CALL rOR THIS
,ROUTINE IS AN ENCODED 'TIUP' INSTRUCTION.
,CALLI
DELAy,N
N IS ANY OCTAL NO. 'ROM 1 TO 177777
;THE DELAY PROVIDED IS 7.5N US (CONVEPT N TO DECIMAL) FOR 11/20
rl.5N tiS FOil 11/45
rIr TH! USFR WANTS TO CHAIIGE THE nELAY TIME (EXHPI SHORTER DELAY TO
rGET A TICHTER SCOPE: LOOP) THE VARIABLE '14' fOLLOWING 'DUAY' SHOULD
,BE CHANGEO TO SUIT THE TNDIVIDUAL NEED.
821572
021611"

1'1176)7
062716

"''''9000
""8002

021604
021610

005))7
"(01)75

00tl66

O21612

"001182

"01366

OELA. YI MOV
ADD

(!Iegp) ,TIMER
'2, (SP)

lSI

TI"IEII

5595
5586
'>591
5598
55119
559"
5591
5592

SEQ 0119
,GO DO DRIVE RESET. SIN
,RItPORT ERROR

DEC
RNE

;GET 'AMOUNT' (N) rOR WHICH
; DELA Y IS TO BE PROVIDED
IADJUST STACK POINTER TO SKIP OVER 'N'
reOUNT DOliN TO 0

RT!

IRETUIIN TO "'AIN PROGRAM

5591
5594

.SBTTL

5595
5596
5597
5598
5599
56"'''
5601
5682
5601
5684
5685
56,,6
5687
5&98
5689
5610

WAT.INTI

WAlT rOR INTERRUPT ROUTINE

,WlT.INT
rTHIS ROUTINE PPovroe:s II VARIABLE TYroIE WAIT LOOp DURING WHICH AN INTERRUPT
IrROM RKl1 CAN OC::UR. THE CALL IS AN ENcon'-D 'TRAP' INSTRUCTION.
,CALL:

WAT.INT ,N

N IS ANY OCrAL NO. FROM 1 TO 177771

, WAIT LOOP TIME- APPROX. 7.5N US (CON VERT N TO DEC 1"'11.) rOR 11120
rAPPROX. 1.'5N US FOR 11/45
:UPO>l ENTEPT'fG THE HOUrINE THe: :PU PPIOIlIH IS OIlOPPED SO THAT
;IIKII CIIN INTEIIRUPT. NOTE THAT WHEN "KII [I'ITF:HRUI'TS THIS ROUTINE
: IS r:xrn:o "JTHOUT POPPING THE STAC~, TillS POPPING IS DONE AFTER GETTING
:TO R~II INTERRlIPT HANDI.ER.
! l ' FOI' ANY REASON TH, ';1 IT LOOP TI ME HAS TO BE CHANGED IT CAN 8E DONE
;8Y SI"P[,Y CHlNGING THE: VARlAflLl 'N" f0LLOWTNG THE 'iiAT. I ... T'.

MUNO€C-U-OIRKK-D
MACYI! 210"06)
04-0CT-76
DIAKKD. P11
2'-S€P-76 '" 147
IIAT. INTI

5611
5612
561 ]
5614
5615
5616
5617
5611
5619
562'
5621
5622
562]
5624

'2t614
'216U
.21626
021612
.21616
02164.
821644

'176)7
.67716

00.,"00

8'''l66

"'0""'2

)146
812146
11,,""'02

8."4811
.2164i1

I~5n7

""1366

arSP),TIMER
U,(SP)

MOV
MOY
flTl
OFC
8NE

RKPRI,-(SP)
,,,,-(SP'

lSI

SEQ 012111

,GET 'A"'OUNT' (N) rOR NHICH
,lfAlT ING I S TO BE DONE
;ADJUST STACK POINTER FOR CORRECT RnURN
,DROP CPU PRIORITY SO THAT RUI CAN
, INTERRUPT
,lOA IT rOR RU 1 TO INTEARUPT
,Ir INTERRUPT HAS NOT OCCURED BY NON
,RETURN AND REPORT ERROR
,EXIT

,IIATIME
821658
821652
"21654
"21656
821660
821662
1121664

WATIME' CLR
CLR
1$1
INC
8NE
INCe
BNt
RTS

"850""
00501'11
00521'10
1'1"'376
11'15201
001 )74
"11"2.01

Ri)

Rl
RII

I.
Rt
11
PC

,seTTt.

CHKCRDYI

CHIECI( CONTROL READY

, ,CN,CRDY
:THta ROUTIN! IIAITS rOR THE CONTROL AEAOY TO SET, IF THE CONnOL A!ADY BIT
'DOl' NOT srT WUHIN A CERTAIN TIME, THIEN THE CONTENTS or RICCS, RI(£R, RI(08
,A"O AKOA ARE SAVED AND AN !XI! MADE TO THE ERROR MESSAGE rOLLOWING THE
,'JIR' CALL FOR THIS ROUTINE,
,IF CONTROL READY SEts THIN THE "STURN ADDRESS IS ADJUSTED TO SKIP THE
,tRROI! MESSAGE ON AETURII.
,CALLI CHKCADY
,
£IIIIOA
,IIETUIIN HEAE lP' ERROR
,
,REf URN HERE IF NO ERROR

~641

5649
021666
021612
021676
02170"
02171'14
.217116
121712

0"S037
105777
108406
8"52)7
8'" 172
004737
'011"02

001366
157414

11217t4
02112"

062116
,,00i102

"110002

CM ,CROY leLA tIMER
eRKCS
UI
TSTB
2.
8MI
TIMF.R
INC
8NE
11
PC,GURG
JSR
IIU

0"1366
021171'12

ADD

.1!8TTL

rCNTRL ADY SETl

,yts

,NO, lOUT
,SAV! IIKCI, ER, OS,

[11\

12, CSP)

: ADJUST RETURN I\DORESS TO
: SKIP ERAOR HESSAGE ON RETURII

CON,RESET'

CONTROL "ES'l ROUTINE

RT!

,CON,RESF.!
,THlS ROUTINE ISSUES A CONTROL RU!! AND WAITS rOR
,THE 'CNTRL ROY' rUG TO SET. "YEN THt FLAG SETS
,All !lIT II MAOt OUT or THE RO!lTINt.
Ir 'CITRL-ADY'

MUNDEC-It-OZRKII-D
MACY11 27(1886) .4-0CT-1I
DZRICICD.PII
22-5EP-76 118147
COII.RESET'
!J1>67
5669
!!1>69
!l670
5671
5612
5671
5674
5675
!J676
5677
51>19
51>79
5bU
5691
56«12
'16 A)
'i6Q4
5h95
'i6!!1>
5687
56118
'i689
5690
5691
51>92
5693
5694
5695
5696
5697
5698
5699
51,.
5701
5782
57,,)
571114
5115
57116
511111
5108
57.9
51,,,
5711
5112
571]
5114
51t5
5716
5711
5711
5719
5721i11
5721
5722

TIMEP
U

R1'I

.21646

5641
5642
5641
5644
'5645
5646
5647
5649
565"
5651
5652
565l
5654
5655
5656
5657
5651
5659
5668
5661
'iflb2
5661
5664
5665
5656

IIATINTI MOY
ADO

"'01)75

~625

5626
5627
5621
5629
5630
5631
5632
56]]
5614
5615
5636
56)7
5631
5619

1Ii.86 PAGE 10l
NUT FOR INTERRUPT AOUTIIIE

1610' PAGE 10.
CIlNTROL REST ROUTINE

,DOES NOT SET WItHIN A CEII!AIN TIME AN ERROR MESaAGE
I
CIIT ROY DIDN'T SEt
I
pc-uun RKCs-nUn
,115 GYVEI. NOTE THAT XXXIII IS THE PC WHERE 'CNT.RESET' OR 'eNT,ROY'
,II'! CALLEO,
,CALLI

CIfT.RESET

.S8TTL

02t722
0217]0
021711>
021740
021744
02115i1
1'121752
0217!J6
021760
021766
921170
021772
021774
0221111.

012771
012737
1'1004C!12
0"'50]7
U5777
10"U5

"'''''01
17750"

"~5H7

091"170

01'11 )12
"]2771
0010'-6
1044111
11.1245
111)44"1

....n

92211113
622610
'22'12
"H0t6

"11646

922020
02:2024

11'14481
""0404

822136
822111J6
.22042

017746
liJ4402

"n044

1"'1'1092

!SHII2
001170

""11711
U7162

1!J7152

8221'102

'62716
11'144"2

ISH7.

I:NT.ROYI

NUT rOR CONTROL RUDY ROUTINE

:CN,ROY
ITH1S ROUTINE WAItS rOR THE CONTROL READY BIT TO SET AND WHEN IT
,lETS EXITS OUT. Ir NITKIN A CERTAIN TII4E CNTRL ROY DOES
,NOT SET AN ERROR IS REPORTED. "UTIIG TIME IS 993 '4S FOR 11/20
,175 MI! FOR H/4S NUH BIPOLAR "EMORY.
,CALLI CNT,RDY
CN.RSTI MOY
'1,8RICCS
,ISSUE A CONTROL RESET
MOV
,SET UP COUNT
'-l"8.'"EG3
8R
, SKIP OVER eN. ROY
CN.RDY+4
CN,ROYI CLI!
'REG)
111
TST8
(lRKCS
rDIO CNTRL-ROY SET?
BMI
ncts, tXIT
U
INC
,1I1IT€D LONG?
'REG]
8NE
,IF NOT, GO 8AK , lOUT
U
2..
811'
,INHIFlIT TYPEOUT'P
tawl1,UWR
BNE
,IF YES, SKIP TYPEOUT
U
TYPE
!lSGl
TYPE
,65a
JlTYPE ASCI! &TRING
8R
6411
JI GET OVER THE ASC I Z
, ,6U,
,asCIZ <lS»C12>/Pcal
6U,
(8P),-(SP)
MOY
SUI
'2, (SP)
TYPOC
,GO TYPE PC IN THE MUN PROGRAM,
, WHERE ERROR OCCURRED
,61$
TYPE
"TYPE UCII STRING
BR
66$
; ,GET OVIR THF 18C IZ
• ASCII I RIIC,a/
,,6'"
66 ..
,GET RICCS
MOY
UKCI,-CSP)
,GO TYPE IT
TYPOC

311

RTI

,RnURN FROM THIS
,ROUTINE TO THE MUN
; PROGRaM

'THIS P"RT OF THE PROGRAM CONTUNS THE. COMMON ROUTINES CALLED
:rRnM THE SYBMAC.S'IL !>ACI(AGE
;
,~I\TTL

SCOPE IUNDL,ER ROUTtN!

SEQ 1'1121

IIUNOEC-Il-OZRKK-D
MACYll 27(1006)
04-0CT-76 16106 PAGE 1e5
OZRKKD.Pll
22-5EP-76 08147
SCOPE HANDLER I'OUTINE

" ...................................... "...... "

5721
5124
5125
5126
5727
5728
5129

5778

...................."................

,.THIS ROIlT1t1E COliTROL5 THF. LOOPING OF SUBt'[St'S. IT IIILL INCREMENT
,.ANO LOAD THE TEST NU",SERUTSTNM) INTO THE oISPLA'C REG. (OISPLAY<71f!!>'
,*AND LOAD THE [PROR FLAG UER .. LG) INTO DISPLAY<15108>
:.THE SWITCH OPTIONS PAOvrOI!:D BY THIS ROUTINI!: AREI
,.111\4-1
... OOP ON TEST
,.Slft l-l
lIIH!IHT ITERATIONS
,.SII89-1
LOOP ON ERROR
,.11109.1
LOOP ON TEST IN SIIR<718>
,.CALL
,.
SCOPE
II scon-l OT

SHe
51)1
5H2
57)1
5714
51)5
57)6
5717
57)8
57)9
5740
5741
57U
574)
5744
5145
5746
5147
5748
5149
5750
5Hl
5752
575]
5154
5755
5756
5751
5758
51'19
5160
5761
5762
576 J
5764
5765
5766
"67
5768
5769
5713
5171
5172
517J
5174
5175
5776
5777

SEQ '122

022046
022046
8228'19
022056

.sCOPE I

104407
0J2777
901 t 11

022060

000416

022062
022066
822074
022i011J
822104
In2106
11122110
822114
822116
022116
022124
822126
0221 )4
022136
822142
822144
022l'i2
822154
022162
022164
022172
022174
022200
022204
822206
022214
022216
022222
022224
0222]0
8222)6

"UH6
012137

02224~

927246
022254
022260
022264

1I~5137

9126J'1
09046)

040"'00

1100004
022186
177060
00008.

157062

000004

:1122626
012637
001H23

0.,0004

832777
901404
1 27717
001462
11:'57)7
001421
123737
101015
032771
001404
0tl7)1
1100441
105017
1'105031
800415
1'1]2777
001011
005737
01iJ1406
005237
0237J7
002(.121
012737
013717
105237
011637
0111631

000400

157014

157006

001102

001103
001115

001103

0CHI''''0

156756

001110

001106

001103
001206
004000

156724

001100
001104
01'1121'16
0001101
022316
001102
001106
0111110

I,TEST FOR CHANGE IN 10FT-SIiR
CKSWR
"LOOP ON PRESENT TEST?
BfT
.BITU,ISwR
: ,YES IF 51114-1
SOV!'.:R
liNE
TESTER
.....
...... START OF' COOE FOR THE XOR
: I IF RUNIfING ON THE ·XOR" TESTER CHANGE
UTSTRI BII
68
"THIS INSTPUCTION TO A "NOp· (NOp,.240)
"EI'RVEC,-(SP)
nSAVE THE CONTENTS OF THE ERROR VECTOR
MOV
'5.,UERRVEC
: I SET FOR TIMEOUT
MOV
",77060
rr TIME Ol'T ON XOR?
TST
(SP)+diliE:ilRlj2:C
rrRESTORE THE ERROr< vECTOR
MOV
ISVLAO
IJ GO TO THE NEXt' TEST
BR
(SP)+'(SP)+
"CLEAR THE STACIf AFTER A TIME OUT
CMP
5$1
(SPl+,IUERRVEC
: ,RESTORE THE ERI'OR VECTOR
MOV
,.
. : , LOOP ON THY PRESI!:NT TEST
BR
6$1J· .... £ND OF CODE FOR THE XOR TESTER . . . . .
'RIT09,tlSWR
"LOOP ON SPEC. nST?
BIT
2.
nBR IF' NO
BEQ
$WR<710>
UWR,STSTNM
"ON THE RIGHT TEST?
CMPB
.OVER
: ,BR IF YES
8[0
SERFLG
: J HAS AN ERROR OCCURRED?
TST8
211
1,
'HIP IF NO
BEQ
'ER'UX,IERP'LG
: IMAX. ERRORS FOR THIS TEST OCCURRED?
CHPB
H
:I8R IF' NO
BHI
: J LOOP ON ERROR?
UIT09,liSWR
BIT
BEO
U
"BRIF'NO
:, SI!:T LOOP AI'lDRESS TO LASt' SCOPE
MOV
StoPERP,&LPADR
711
8R
'OVER
: ,ZERO THE ERROR FLAG
SER ..LG
4$1
CLPB
: ICLEAR THE 'lUMBEP or ITERATIONS TO MAKE
nIMES
CLR
BR
" ESCAPE TO THE NEXT TEST
u
" INHIBIT ITEIHTIONSl
311
'BITU,IISWR
BU
17BR Ir YES
BNE
U
IF nRST PIISS OF PROGRAM
TST
'''SS
:,
INHIBIT ITERATIONS
81!:0
11
I IINCRE"IENT ITERATION COUNT
INC
'ICNT
"CHECK THE NUMBER OF ITERATIONS MADE
.TIMES, S ICNT
CMP
I ,8R IF MORE ITERATION REQUIRED
lOVER
BGE
, ,REINITIALIZE THE ITERATION COUNTER
MOV
H,nCNT
III
, ,lET NUMBER 0 .. ITERATIONS TO DO
MOV
,MXCNT,nlMES
nSTNM
, J COUNT TEST NUMBERS
ISVLADI INCR
(SP),U,PAOR
, ,SA VE SCOPE LOOP ADDRESS
MOV
CSP), .... PERR
, I SA V£ F.IIROR LOOP ADORES!
MOV

1t1

.01104
001104
"'01206

04-0Cf-76 16106 PAGE 106
MATNOEC-l1-0ZRKK-D
MIICY!! 27( 11106)
SCOPE HANDLER ROUTINE
22-SEP-16 08147
DZRKKD.Pll
5179
5180
5781
57'12
57A)
57R4
57q5
5786
S7A7
5788
57A9
5190
5791
5792
5793
5794
57<15
57'16
5797
'1798
5799
580"
5801
5802
5A0)
51104
5895
5806
5807
5808
5809
5810

sail

5A12
5813
5814
5815
5816
5911
5Bl11
5919
5920
5821
5822
59ll
5824
5825
5826
5927
5928
51129
58]11
Sill
'5832
5813
5814

"22270
022274
1'122302
022110
022314
02231 b

1'105037
117B7
111 ]"177

811116
000002

001210
000001
0.,11,,2
0111106

"'H115
156612

01110~50

CLR
MOVB
NOV'
'OVFIII
MOV
RTI
'",XCNTJ 50

ERROR HANDLER POUTINE

:.swl~.1

:.SWI1-1
:.SW1>I_l
:.50109-1
:.SWI2-\
,.SW06_1
,eco TO SERRTYP
U:I'RORI CI<SIIR
711
INca
!lI!:Q
MOV
lSi
INC

(22)2"
022322
022326
"22)]'"
1/122331>

104407
U5237
:J01715
010777
1105?17

022142
822J50
0I22J'52
022)60

"32777
01/114A4
021727
''''11'147

0"'0110"

156570

I<IT

001112

1/100005

CIoIP
RHI

1'122)62
022166
1122174
0224"2
1<'22410
822412
822416
'2'422
022426
022410
022412

0116~7

0101116
11011002
156516
320088

.22414
022442
022444

.2245.
822456
.2246O
822464
022470
922472
022476

162737
1\7717
032177
0"'1.,.,4
0047)7
11114401
005777
1 \.4.,A02

0011102
11111112

156604

!If-Q

&11
al'l1116
0.,1\14
15(5)111

022632
0'!f2U
1!56!512

2 ..

0~0"'IcI~

HI441c11
032777
001402
1111716
012777
901402
1'113716
0"!5H7
0014112
0111716
a0 01 011'1 2

0225"'''

0~O;H7

'225"4

"''''14el

01d0,'"

156476

110111'16
001000

156462

8011111
001210
"AI21'"
001434

SEQ 0123
: ICLEAR THE ESCAP! F'ROM ERROR AOOR!SS
" ONLY ALLOw ON! e 1) ERROR ON NEXT TEST
: 10ISPLAY nST ~U"'BER
"rUOGE RETIJRN ADDPtSS
.,rurs PS
• ,MAX. "'''''BER OF IT1!:RATION,

....."......."............"......................".."".............""."".......

.S8TTL

001103

USC APE
I1,URMAX
nSTNM,lIDISPLAY
etPAOR, esP)

481

5',
~SI

HALT ON F:RI'OR
INIolIBIT ERROR TYPEOUTS
n:STING ON SIMULATOR
LOOP ON ERROR
CYCLE ON FRROR TO PRrVIOUs ' SCOPE'
DROP DRIVE AFTER MAXIMUM (At.LOWABL!) ERRORS ON THE DIlIVE
ON ERROR
'CHECK FOR SOFTWARE SWITCH REGISUR REQUEST
,SET THE ERROP FLAG
'DON'T LET THE P'LAG GO TO ZERO
nSTNM, .DISPLAY : D ISPI.AY TFST NUMIIER AND !:PROR P'LAG
.ERTTL
I COUNT THE NUM8ER OF' ERRORS

.,.

'I!:RFLC

'BlT6,IiSWR
6,
IERTTL,I'I

MOV
SUR
IoIOY8
AlT
BNI!:
JSR
TV PI!:
TST
APL
HALT
CI'SWR
BIT
BEQ
MOV
RIT
BEO
"IOV
TST

tSIf12,t5I1R
.+6
ILPAOR, (SP)
'SW09"SIIP
4$
.LPF;PR, (SP)
'I!:SCAPE

BfQ

MOV
RT!

.ESCAPE, (SP)

TST

T56nG

I"'"C)

10.

(SP)' SERRPC
12,'P:RI'PC
"I!:RRPC, 'ITEMB
1SII1l,IISIIR
2.
PC'.'SI!:RRTYP
,.CALF
.SIIP

IIlF:SI!:LlCT DFlIVE all SET?
,NO
,'40RE THAN '5 EPRORS ON THI S DRIVE?
I yFS, DI!:SELCT THE DRIVE
,r::ET AODRESS 0 .. EI'ROl' INSTRUCTION
ISTRIP AND SAfE THE ERROR ITl!:'" CODE
,SKIP TYPEOUT IV lET
ISKIP TYPEOUTS
I GO TO USER ERROR ROUTINE
,HALT ON ERROP
,S~ IP IF CONTINUE
,HALT ON fRROl'1
,CHECK FOR SOP'TWARE SWITCH !>EGIlTER RlOUEST
'SW 12 srT?
,NO, RI'ANCH
I ADJUST R!!:TURN ADRES FOP Sw 12
,LOOP 0"1 ERROP SWITCH SET?
,AR IF "'0
J FUDGI!: RErUR" FOR LOOPING
,CHECK FOR U ESC APE ADDRESS
,RR I .. NONE
,FlIDGE RETllRN ADDRESS FOR ESCAPE
,RETIIRN
,IF EROR WAS IN L"ST TEST (POLL)
:OROP ALL THE OPlYES

IUCYlI 21C 1B"6) 114-0CT-76 UIe6 P1GE 107
MUlfOEC-ll-0IAKK-D
ERROR HIINDUA RnUTINE
22-SEP-'76 88147
DZRKKD.PlI

5815
5816
58)7
511)11
51119
584"
SUI
5942
5841
5844
5845
5946
5847
5848
5849
58~"

5851
5852
5853
51S4
51S5
5856
5857
5958
5959
596"
5861
5862
5861
5864
5865
5866
5861
5868
5869
597"
5871
5812
5971
5974
5815
5816
5977
5978
5819
5891'1
59Rl
58A2
'I9Al
5994
5QAS
5886
5997
5989
51l!l9
5998

822586
822512
822516
82252"
822524
8225)"
822514
12254111
1'22544
822550
822554
022562
"22566
"22572
B22576
fl226"2
02261116
"22612
822614
822620
• 22624
fl22626

t~44"1

'HU3113

fl85011
822626

fl01412

ItIll!1 17

020568
"'H154
""""fl2
"UJ50
021186
0""1611
8111U4
""'''''0
"08""2

813146
162716
In 1146
1II1J4717
042116
(162716
11142776
06271 6
042716
1&12716
104401
B13746
01f4717
I 044f12
184401
,,"5)37
022626
"""137

lit""""

10..

""""""

0180""
""12'72
""1351'1
021106
801315
f1101412

9 ..
"17734

TYPE
CLR
CliP
oJ"'P
MOV
lUI
MOY
JSR
BIC
lDD
IIlC
100
BIC
MOY
TYPE
MOV
JSR
TYPOC
TrPE
DEC
CMP
oJ"'P

SEQ 1124

, ",SG5
DRIVS
(5P)+,(lP)+

nop

,DAOP rHE DR lYE rROI rHE
,SEL!C'J'IOII LIST
,DAIVE lDDA TO SUCIt
,RlCHT JUSTI'Y
,MIKE f:Yf:"
,POlIfT' ro TABLE
f:VEI DRIV'
,TEl! Af:I(llllUG DRlYE AS AK.n
,POINT TO 000
,TEIT AI AI(-esE
IINOICln THIS DRIVE O"OPPED

DIIYPfA. -(SP)
12, (SP)
DRIYlD,-CSP)
PC,SHFJRT
Il,cR6)
IORIve, (SP)
IBITt 5, ,(R6)
12,(A6)
IBlTI5,II(SP)+
nITu"r,p).
,MIG4
DRIVAD,-(R6)
PC,SHFrAT

'0"

.PUSH DRIVE' ON ITACIt
,IHIFT IT BErORE TYPING
,TYPE OUT DRIVE.

, MSGr.
DRIVS
(5P)+, CSP).
8'l'I!!OP

,DECREM!lfT • OF DRIftS PREINT
,RESTO«E SUCK
,GO 8lelt TO THE END 0' PROGRM
,LUUGE.

"......................................................··f······
.S8TTL

EIlROR MESSAGE !YPEOUT AOU'flN!

,.THfS ROUTINE USES THE ~ITEM COITROL IYTE" CUTtMfl) TO DETERMIN! WHICH
,.ERROR IS TO BE REPORTED. IT THEN OBTAINS, rROM THE "ERROR T1BLE" CURRTB),
•• 1ND REPORTS THE apPROPRUTI: IN'O''MlTIO'' CONCERNING THE tRROR.

.!:ARTYPI

022b12
"22632
"22636
822648
1122642
"22646

1"44"1
"" ""46
"0500"
15H00
"0,,,104

1l0121]

022650

011746

0"1116

"22654
fl22656
022660
122662
022664
"226&6
82267f1
822614
82270"
822702
022704
82Ue6
"22712
82271 6
82272"
022722

0011 14

1044112
""., l26

181

,,05J0"
"0610t1l

006 '"''
01l61""
0621"0
1'112,,)7
B014"4
1"441'1

001442
0"71'14

,"I""""
10<14401 0!J1211

A22772

012037
!IIB4"4
104401
eo""""0

481

,.eRLF
R',-CS!')

TYPE
MOV
CLA
1\189
liNE

'UITE'IB,R"
it

MOY

IERRPe. -UP)

fTPOC
AR
DEC
lSL
ASL
ASL
AM
HOV
IIEO
TYpe
.wORD
TYPe:
MOV
IIEO
TYP';
.WORD

It
Itl
RI
110
R"
UERR!8,R"
(Re)+,21

""CPLF
(A.h,U
S.

II"C~RRUGE REfORN" , "LIIIE 'EEO"
nSlYE R8
" PICKUP THE ITEM INDEX

I,Ir IrEli NUMBER II URO, JUST
I , TYPE THE PC or THE ERROR
11S1V£ .ERRPC rOR TYPEOUT
I' ERROR lDDRESS
nGO TYPE--OCT1L lICIHALL DICITS)
I,GET OUT
: , AOJU.T THE INDEX SO TH1T IT WILL
110"1( FOR THE E"ROR TABLE

I ,rORM flBLE POlllrER
, 'PICKUP ~t!lROR MESIAGE" POlITER
: ,SKIP ntrlluT IF NO POlITER
I ,rype THE ·ERROR IIEIS1""
,,-E"ROR 14El&lCE" POINTER GOES HERJI;
I' "ClR"IlGE RETURN" , ·LIIII: rEED"
II PICKUP "DATI HEADER" POINTIER
I,SKIP TYPIOUT IF 8
IITYPE THE "OlTA HElDER"
" "OUI HEADER" POINTER aOES HERE

M_CYll 21(1086) 04-0CT-16 16101 PAGE 108
MlJNIlF.C-II-OZRH-O
EIIROR MISUGE TYPEOUT ROUTtNE
22-SEP-16 "8141
DZRKI(D.PII
58H
5U2
59q)
5~94

5895
5996
5891
5898
5899
59"",
5901
'1902
5903
590'

022124
0211 )0
022712
~22 714
022116
022742
022744
022144
022146
02275"
022752
022754
1122760
022762

5~"'5

1"440\
fl110"0
00. 0"41
"12lo01'1
104481
00"201
01 J046
104482
"'85710
01'1171111
1044"1
000711
02004"
1'122766

01'1213

5 ..
611

"tit 211

022762
"01"

598lo
59117
591'8
5909
591<1
59H
5~1 2
5913

811

"CRLf'
<R"J, R0
71
(SP)+,110
,.CRLr
PC

,,"CaRRIlGE RnUIIN" , "LIME rEED"
IIPICI(UP "DAti TA8LE· POlllfE"
ar CO TYPE THE OkrA
, I RESTOII'; Rt
,,·CARRIAGE RETURN" , "LIIIE '';ED"
I ,RETURN

MOV
TYPOC
TST
BEQ
TYPE
BR

II(R0)+,-(SP)

"SAY'; ~(R'h rOR TYPEOUT
"GO TYPE--OCTAt ABC!IULL DIGUS)
, ,IS THlliE ANOTHF.R IIUMflER7
, ,8R Ir 110
I,TYPE TII0(2) SPICES
IILOOP
IITWO(2) SPACES

(II'"
U
.81
11

.~SCIZ

.[VEN
.SBTTt

TYPF: ROUfINF.

' I · · · · · · · · · · · · · · . · · · · · · · · · · . · . · . · · ••• •••••• ••••••••••••••••••••••
:.AOUTlNE Tn TYPE ASCn "'EShGE. "'l!:SSAGE MUn TI!!RMINnE WlTH " 0 BYTE.
I.TH'; ROUTINE ifILL INSERT A NUMB!R or NULL CH1R1CTERS a'TER A LINE rEED.
,.NOTE1,
INULL CONTUNS TH! CIIAII1CTER TO 8E USf:D AS Til! rILL!II CHARACTER.
IUOTP:21
.FILLS CONTUNS TIfE IIUMBER 0' FILLER CH1II1Cn:R8 REOUIRED.
,.NOTE),
.rILLC CONTlINS TilE eHAR~CTER TO rILL arTER.

5~t4

5915
5916
'1911
59tQ
5919
592"
5921
5922
592)
5914
5925
'1926
5927
59211
59)9
5910
59)1
59)2
59)]
5914
59]5
59)6
5937
59)8
59)9
5940
5941
5942
594)
59"

.,.,

SE~

'l'YPP:
MOV
8NE
HOY
TYPE
RTS

:*CALLI
,.1) USINC A TRAP INSTRUCTION
TYPE
.MESADR
I·
,.011
TYPE

,.,.
,.
"22766
022772
822774
.227.76
823000
fl21""2
821886
8233U
UUI2
821014
02]016
fI 23 "'22
1121024
023111"
.,230)2
823<1"
8"040
"23~42

IJ23wJU
021<146
023i!'i2

5945

1123"S4

')946

023.'160

U')7]7
1"0"'''2
B"""""
"""401
011'1046
011601'1
11'046
"111005
""5726
.12608
1&62116
011"'0"'2
122716
8014)0
122716
,".1 (1'06
01'15126
104401
'hit 211
10511)1
00n55
0141)7
12H2&

01'11151

nYPEI

111
000"82

2.,

"'El'aOR

T5T8
RPL
HALT
RR
'10V
MV
MOVf\
8NE
TST

'''01'1''2

60U
UI

"".,011

41,

'I'I82\H'

MOV
ADD
RTJ
CMPiI
BFO
r"'PB
BNE

TST
TYPF
'CPLP'
CLIIR

8232"2
112)!l6

""t! !ib

5 ..
6 ..

I,Mf:6ADR IS rIRST lDDRESS or AN ASCIZ STRINC

1111
JSR
C'~PII

IHT, (SP)

, , IS THERI A TERMINAL?
,,8P IF YES
"HALT HERE tr NO TERMINAL
: 'L~avE
"san: R.
, ,GET ADDRESS or ABCll STRING
" PUSH CHallACTER TO II[ TYPED ONTO STACK
"IIA IF IT UN"T THE T!AMINATOR
II IF URNIUTOR POP IT orr TME STACI{
: ,IIESTORE R8
,,1DJIIST RETUIIN PC
"IIETURII
, ,9RANCII IF <HT>

Be
'CRlJP',( SP)

I,PI1UCH Ir NOT

!It
(SP)+

, ,poP

ITPF'LG
U

U
R0,"(SP)
'2(3P).RI'I
(II").,-(SP)

CSP)+
(8P).,R0
'2. (8P)

'~HA"(:>H
]8

PC, STYPI':C
'FILL::, (liP).

'CRLr~

<CR>'LF) rQUlV
: ITYPF A CR UD LP'
ICL! ~P CHARACTER coun
,Gn '.EXT CHARACTER
,1;0 TVPE THts CH""aCTr.R
lIS IT TlhlE fOR P"1LLI';P eHIIPlI.?

"125

MAlIfDEC-11-0ZRKK-D
'IACYll 2H 1"6) 84-0CT-76
l6.e.
OIRIfKO.PIl
22-SI:P-76 01147
TYPE ROUTINE
5947
5949
59f9
595"
!l951
5952
5951
5954
5955
5956
5957
5959
5959
5960
5961
5962
5961
5964
5965
5966
5967
5969
5969
5979
5971

5'172
59U
5974
5975
5976
5977
5978
5979
59U
5981
5992
5\183
5984
59115
5986
5987
5\188
5989
59,0
5991
5992
59'13
5\194
5995
59'16
59'17
599!!
5\199
6"'011
600t
6002

.23064
0U866

80U5"
8tl746

821072
823076
023100
8231"4
823ii"

105366
88277111
8114717
105])7
0ee7711

SNE
MOV

08U54

7..

"0801)1
8231)6
821202

DECB
BLT
",SR
DECB
eR

PAGe:

1/11'

SEQ 0126

PC.l1tPEC
eCHARC"T

JJ I ' 110 GO GET NtXT CMAR.
r ,GET I OF' rILLER CHARS. lltEOEO
nUo THE IIULL CHAR.
r ,DOES A NULL NEtO TO BI: tyPEO?
, ,SR I ' NO--GO POP THE NULL OFf
"GO TYPE A IIULL
"DO IIOT COUll! 11 A COUNT

j,i.OOP

2.
nULt.,-(8P)
leSP)

or STACK

, HORIZO"TAL TAB PROCESSOR

8UU2
0U116
02U22
023ue
023U2
0231]4
0231]6
823142
023144
021152
02116"
82)162
023166
02]170
023176
023280
021292
023204

1I2716
"o47)7
1]2117
0"U72
005726
0911124
105777
100)75

801'1840
0211]&
11180"07

116617

808002
911"015

1 22766
001893
1051117
900406
122766
0iU402
105227
"""090
0"0287

e..

1561)06
156"00
0011082

023202
"00012

MOVB
JSR
BITI!
BNE
TST
BII
ITYPECI TSTB
BPI.
MOVB
CMP8
BNt:
CLRS
SR
111
CMP8
BEQ
INCB
.CHARCNTr ."'OPO
nyPEX: RTS

981

0110802

• SBT1'L

t' , (SP)
PC,UJPEC
t7, eCHARCNT

UP)+

2.
IISTPS
eTYPEC
2(IP)"''l'PB
'CR,2(SP)
U
.CHARCNT
STiPEX
'LF,2(8P)
eTYPEX
(PC')+

"REPLACE TAB WITH SPACE

r ,TYPE A SPACE
, , SRANCH U' NOT at
"TAS STOP
f ,POP SPACE O'F STACIC
, ,GtT NEXT CHARACTER
: .WlIT UNTIL PRINTER IS RF:ADY
"LOAD CHAR 1'0 BE TYPED INTO DATA IIEG.
I I IS CHARACTER A CARIIUG[ REfURN?
f ,BRANCH IF NO
r ,Y!:S--CLF.AR CHARACTER COUHT

"EXIT
" IS CHARACTEII A LINE FEED'

r ,IIIANCH IF YES

"COUNT THE CHARACTEII
, , CHARACTER COUNT STORAGE

CONVEIIT BINA"Y TO OEC'IMAL AND TYPE ROUTINE

, 1 1111 • • *.********•• ***.** •• **•••• *******.*** •• ******.*** •• * •• ****.
,*THIS ROUTINr. IS USED TO CHANGE A 16·BIT BINARY NUMB!!R TO A 5-DIGIT
,UIGNED DtCIMAL 'UCrI) NUMBER AND TYPE IT. DEPENDING ON WHETIIER THE
,*NUMBER IS POSITIVE 011 NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
,*BErORE THt: FtRST DIGIT OF THE NUMSEII. LEADING ZEROS IIILL ALWAYS BE
,.REPLACED WITH SPACES.
,*CALLI
MOY
NU,",,·(SP)
II PUT THE BINARY NUMBER ON THE STACK
"GO TO THE 1I0UTlNE
TYPDS
1*

,II

02]2116
021206
02321"
023212
023214
021216
023220
023224
0232311
823212
023214
023242
"23244

nypDSI
'"0046
0Ull46
010246
010146
11110546
812746
A16605
10011114
00"1405
112766
8051110"
012181

02020',1
000020

8110855

8011081
181

"21422

MOV
'IOV
'40V
'40Y
040V
MOV
MOV
BPI.
NEG
MOVB
CLII
MOV

RI'I,-(SP)
1I1,-(SP)
112,-(SP)
Rl, -(IP)
RS,-(SP)
120288,-(SP)
20(SP),R5

II
R5
" - , \ (SP)
RII
UOBLK,R3

JI PUSH R0 ON STACK

I,PUSH Rl ON SUCK
"PUSH 112 ON STACK
II PUSH 113 ON STACK
I ,PUSH A5 ON STACK
: ,SET BLANK SWITCH AND SIGN
" GE:T THE INPUT NUMBER
:,BR I ' INPUT IS POS.
I,MAK! THE BINlRY NUMBER POS.
II MAKE fHE ASCII NUMBER NEG.
II Z!IIO THE CONSTANTS INOEX
, ,SETUP TH! OUTPUT POINTER

16106 PAGE 11 f/I
04-0CT-76
MACYll n(1006)
HAINOFC-l1-0ZRKK-D
CONVEIIT 8INAIIJ TO DECIMAL AND TYPE IIOUTINE
22-SEP-76 08147
DZRKJ(O. PII
6,,11'71
6004
6005
601'16
61<1'"
60;'Q
601/19
601"
601\
6012
6011
6014
61115
6016
6011
6019
6t119
602"
6821
61'122
61<123
6024
61125
6026
6027
6029
61'129
60)0
6nt
6"32
60]1

6014
61115
60)6
6,,)7
60~9

6019
6040
&041

61142
604)
6044
6045
6046
6847
61)4'
6"49
6050
6051
61152
605)
6054
611155
6056
6051
6058

023250
O23254
0H256
1/123262
021264
02126b
1'123270
023272
023274
1121276
1'12331'10
023302
1'123304
02H06
A:ZHlIil
023316
02H22
"23326

"23330
023312
1123316
1123348
112HU
023)44
02B46
1'12)359
112))52
02))60
92])62
023364
02])66
023)70
1'121)72
1)2))74
021401r1
112141'16
021410
1123412
1<123414
023416
023428
921422

112723
005A02
0161'1''1
160105
002402
005202
000774
061/1105
005702
0011'102
105716
100407
10611"
11'11003
11666 J
052102
05271'12
110223
8057211
820027
00;>746
003"1'12
1110502
01'10764
105726
11'1080)
'1666)
1058U
012605
1'11269]
1'11260'
IH268t
1111261'1"
104491
1'116666
0126'6
000002
,,2)420
"01150
8"0144
001'11'112
0090114

e00A4~

023412

111

4t1

5S1
800001
0000&"
000"4"

177771
6"

711

80001"

8"
117117

171176

023422
88111)02

0080".

'DTBLI

140Y8
CLR
MOY
SUs
SLT
lNC
BR
ADD
TST
BNE
TSTB
BMI
ASLB
Bce
MOYS
BU
BIS
MOVI
TST
CMP
BLT
BGT
MOY
BR
TSTB
BPt.
MOV8
CLIII
MOV
MOV
MOV
MOV
MOY
TYPE
MOV
MOV
RTl
11'1000.
101)O.
10il.
10.

I ' ,(R])+
R2
'OT8L(1I0),1I1
Pl,1I5

U
R2

SEQ 0127

"sn TilE FIRST CHAIIACTER TO A BLANK
IICLIAIl THE BCD NUMBEII
: ,GET THE CONSTANT
"FORM THIS BCD DIGIT
I,BII IF DONE
" INCREASE 'I'HE BCD DIGIT BY I

Rl,R5
R2

!If

.,.

(SP)

1(8P), -HAl)
• '0,112

. ' ,112
R2, (P3)+
(R0)+
A0,U0
2.

U
115,R2

Up)+

-l(1P),-2(!IJ)
(Al)
(8PH,1I5
(SPH,1I3
(5PH,R2
(SP)t,AI
(SP)+,1I8
,.DBLK
2(SP)'4(5P)
(IPH, (SP)

IIADD BACK. THE CONSTANT
, ,CHECK Ir BCD DtGITa0
l,nLL THROUGH IF'
"STILL DOING LEADING 0'S!
IIBR IF Yr.!>
I,MSD?
,,811 IF' NO
I ,YES--'ET THE SIGN
, ,MAIlE THE BCD DIGIT ASCII
"MlK!! IT A SPACE IF' NOT ALREADY l DIGIT
II PUT THIS CHARACTER IN THE OUTPUT BUFrER
"JUST INCREMENTING
: ,CHECK THE TABLE INDEX
: ,GO DO 'l.'HE NEXT DIGIT
I,GO TO EXIT
: I GET THE LSD
"GO CIANGE TO ASCII
"WAS THE LSD THE F'IIIST NON-tERO?
: ,BII IF 190
I,YES--SEt THE SIGN 'OR TYUNG
:, lET rHE TERMINATOR
"POP .TACK INTO R!
"POP STACK INTO II)
"POP STACK INTO R2
" POP STACK I~'1'O 111
" POP STACK INTO RI!
, I NOW TYPE THE NUMBER
I ' ADJUST THE STAC!!

I IIIETURN TO USER

IDBLKI

.6LKW

.SRTTt.

8INAIIY TO OCTAL (ASCII) AND T'lPE

I , ......................***.****** ........ ****.* •• * ...... *******.* ........
;*THIS ROUTI"'E IS USED TO rHAMG! A 16-BIT lUNARY NU"4S!:R TO A 6-I)IGtT
'·OCTAL (ASCII> NUI"IBEII "NO TYPE IT.
,*UYPOS---ENTER HEliE TO srTUP SUPPRESS ZEROS AIID HUMnR OF DIGITS TO tyPE
:·CALLI
:.
~ov
NUM,-eSp)
: I NUMBER TO AE TYPED
:.
TYPOS
, 'C ALL FOR TYPEOUT
I·
.BYTE:
II Ne t TO 6 FOP NUMBER 0' DIGITS TO TYPIE
.BYTE
:,M.l OR 0
:*
, .1 ~TYPE LEADl NG ZEROS
"l1IaSlJPPPF.SS LEADING ZEROS
:

"'ACYl 1 2'7(10e6) 84-0CT-16 . . . . . PAGE 111
Mil NDEC-II-OZRltK-D
BINARY '1'0 OCTAL (lIScn) uo TYPE
n-UP-16 eR14'7
DIRKKD.Pl t

U59
6068

••• 'l'YPOIf.· •• E"TER HERE TO T'{PE OUT IIUH THE IlME PARAMETERS
,.nyPOs OR UYPOC
,.CALLI
, ,NUMBER TO BE TYPEO
"UN,·(6P)
MOY
, ,CALL rOR TYPEOUT
TYPON

6061
U6l
6064

6'65

•• ITYPOC·_·EHTlR HERE rOR TYPEOUT or A 16 B1'I' NUMBIR
,.CALLI
1 ,NUM8ER TO BE nPEO
NUM,-(SP)
HOV
I ,CALL rOR TYPEOUT
ntoc

If"

6911
6114
6117S
6876
6077
6878
6079
6991
611181
6892
6083
6984

6985
6086
6087

6888
6"89
611190
6091
6092
6093
6094
r..n5
6096
6097
61119'
6899
6118
611111
611)2
6111!
61(14

6185
6106
61117
6188
61,,9
61tl
6111

6112
61tl
6tH

as THE LUT

,.,.
,.
,.,.

6062

"67
6el'
U69
6071
6e71
6872

l[oe128

nun
"23416
823444
823450
123454
823456
823464
823472
e2J5lt8
823592
023504
02lS06
023512
1123514
112352.
02352.
023530
823534
1123536
023548
823542
823544
121546
1J2355e
1123!!52
82)554
823560
1123562
"21566
123578
823572
123574
1123576
11123602
"23606
113612
82]616
112)622
.,23624
U3626
IJ2J63.
1121632
111236)4
12)616

""46
116617
1126]7
1162716
111111111486
112731
1121J7
112737
81"346
11119446

""e • .,
••e.91
82361'7
IIe80111'
8811"'11
8e8886
e8"".5

,,!PO,' IIpy

821655
e21657
823654

81"~46

t 1)104
1195404
1162704
IUI4]7
11)104
016605
005083
806105
.0041t4
1106105
0"6105
006105
!H0!!0)
88610]
105337
100016
1114279)

823657
1I.8S86
823656
.23655
9 ••812

123656
111770

"lin

",,5704
00141113
8"5:1"'4
85271'13
85218)
1101)7
10441'11
105))7
110]]47
•• 24112
"521'14
111"8744
1112605
112604
B1260)

II~YB

02)615

ItOV8
ADD
BA
tryPOC .. IIOve
MOve
,",YPOllt l1li0"
NOY
MOY
MOV
MOV8
lEG
ADD
NOVB
.. OVB
MOV
CLR
AOL
U.
Bit
ROL
2U
ROL
AOL
MOV
)a.
JlOt.
DECB
BPL
Ble
8Nt;
1ST

te,
'''086''
000.40
023652
823652
821654

5al

611

BEQ
INC
815
818
MOVB
TYPE
DEell
8GT
8L'I'
INC
Bit
MOV
MOV
MOV

t(&P),-"P)
HSP)"'P'lLL
(IP)+"OMODE+I

n,csP)

UYPON
It,UP'lLL
",aOMOOE+l
15 •• 0CNT
R),·(sP)
Rt,-{ liP)
1t5.·(5P)
aOMODE+l, !l4
R4
1&,11.
R4 •• 0MOM
UP'lLL,R4
t2(SP),R5
R]
R5
38

P5
RS
R5
115,RI
Rl
10MOOE
7.
-17777',R)

R4
51
R4

"',In

•• , R)
Pl,"

.8.

.OCNT
2.
61
R4
2.
(IPl+,"
(SP)ot,1l4

UP).,...,

"PICKUP THE MODE
IILOAD ZERO fiLL SWITCH
: ,NUMBER or DIGIT. TO typ!:
, ,ADJUST RETURN ~DDRES'
"SET THE ZERO rILL ."tTCH

"sn rOR SIlel) OIGITI
IISET THE ITERATION coun

,ISAYE R!
118AY!: R4
~ I SAVE R5
I I GET THE NUMBER or DIGITS TO TYPE
,IIURTRACT IT FOR MAX. ALLOWED
IISAVE IT rOR IJSE
: ,GET THE ZERO FILL SWITCH
: IPICKUP THE INPUT NUMBER
• , CLEaR THE OUTPUT 1I0RD
,."onTE MSI INTO ·C·
"GO DO MSB
"rORM tHIS OIGIT

"Gn LS8 or THIS DIcn
I,TYPE THIS DICIT7
,,811 Ir NO

I' GU un or JUNK
: ,TtIT rOR "

TH IS 01
,,8R IF YES
I,DON'T IIUPPRESS U'llilOItE 0'S
:, MAKE THIS orcn JIIICII
,.MAKE lieU 11" NOt ~LPEAD'l
I ,SAYt rOil TlPING
"GO TYPE 'l'HtS OICIT
• ,COUNT BY I
"BR IF MORE TC DO
, ,81l 1r 'DONE
I,INSURE LUT OIGn UN"! A 8UNK
"CO DO THI: LasT DIGIT
J ,PEITORE R5
, I RII1'OI1lE R4
"REUOItE II)
I ,8UPPRt:as

MUNDIC-U-01.RKK-O
MACYJ1 21"lt6) 94-0CI-" 16.86 ,AGE 112
DZRKI{D.Pl1
U-SEP-76 09147
BINaR! TO oCtAL (IISCII) AND 'l'fh
6115

6116
6111
6118
6119
6UII
6121
6123
6tH
6114
6125
6126
6121
6128
6129
61)0
6tll
6112
61H
6114
6115
606
6tH
6lJ8
6119

6140
6tH
6142
6143
6tH
6145
6146
6147
6148
6149
6150
6151
6152
615)
6tS4
6US
61S6
6151
6151

12364.
13164&
112]65111

nun

1123653
1123654
121655
8216!l6

.16666

088 . . 2

812616

.....

118802
111111
008
."'0
000
'11"800

..,

MOV
MOV
AU
.8YTE
.8YTE
10CNTI
• II!TE
.lIrILLI • BYTE
,O"OD[, .IIORD

SEO 0129

2{SP),.UP)
(S.)+, caP)

" lET THE lUCK rolt RETUIHIIIG

o
o
o

"nORAGE FOR ~SCII DuaT
" 'rtItMINATOJl FOR TYPE RODTlIIE

•
8

, ,RETURN
"OCTAL DIGIT COUlITlIl
,rIERO rILL SWITCH
,.ItUMIER 0' DICITS TO TYPE

...............................................................
,,...............................................................
.'BT'rL

TTl U'UT ROU'l'INt

.EMUL

821660
823666
1I:U67111
e2)674
123676
9n71112
8231116
112)112
011714
IIn722
0U724
IU731
"217)4
0237411
023742
023146
8allSILL
023752
IIU756

1'122137
11010"
1115177
t1t811'71
117746
842'716
1'1221'26
,0"'62

"110176

121727

0"1134

155244
17760"
""01'187

001456

10440t
104401

0f1tl.8

1552511

824545
824552
110"176

"""981

LIB

,*SO"WARt IWITCH REGISTER C.""OE "OU1'INI.
,.ROUTINE II EIITIRED fROM THE TltAP HAlIDLIP, liND IIILL
,.SERYlCE 'HE TES1' roR eHUGI: II sorTWARt SWITCH IIEOIl"R TRAP CALL
,.wHIN OPERnING IN TTY rLAO MOOE.
,eluIWII, CMP
UNREe.,wA
"IS 'HE SOFT-SIIR SELECTED!
8N1:
1 sa
, ,'AAIICH I' NO
TST8
UTKI
I,CHU THER£1
BPL
15t
IIIr NO, DON'T IIUT UDUND
MOVB
'UKI,.UP)
IISAVE THE CHAII
IIIC
'-CI77, (8P)'
"STR!p.or, THE ueu
CMP
17, (SP)+
"IS IT A CONTROL G'
BNE
1 Sf
"NO, RtTURN TO USER
CIIPII
nUToe,11
"ARI: WE RUNlltlG IN lUTO-MODE'
BEQ
I!U
,,811UCH tr YES
TYPE

"ECHO ?HE CONrIlOL-G (-G)
, • 'l'YPt CURRINT CONTEIT.
, ,lAVE SWIIIG rOR TlPIOUT
"GO TYPE--OCTAt. UCUULL DIGIn)
I ,PROMPT rOR ~EII IliA
I' CLIAR COUNTER
"THE IfU SIIR
, ,CHAR !HERE?
, I IF NOT TRY AGAIN

"2376.
.23164

1111411
"42716

15 !I 162
t 17680

Mon
BIC

"!Ke,-UP)
'-CI77'(SP)

'I PICI< UP CHAR
"MAKE n '-BIT ASCIt

11123770
021774
1121776
82411112
024;)06

8:21 627
'01""'5
104491
8"786
1II"117!1

0"8025

CliP
liNE
TYPE
liDO
811

CSP),U5
101
, SCNTLU
1Ii.8P
19t

: lIS IT A CONTROL-U'
'I BRANCH I,."'OT
IIUS, ECHO CONTRO"-U (-U)
I' IGNORE P!lF.VIOUS INPUT
'ILFT'S T~Y IT aGUN

112401111
8241114
824016
024022

821627
.01022
,,85161>
011114i'13

0"'''''15

CMP
8NE
TST

4(5P)

SF-a

III

11)146

"".4112
1044111
8"5046
805046
105777
1011)7!1

"24563
155166

'GTaw". TYPE
MOV
TYPOC
TYPE
1911
Ct.1!
CLII
H,
TSTB
BPL

,.CNTLG
""'8I1A
IWlltC,-(SP'
, • "NEIl
-(IP)
-(5p)

. . TICS

6151
6168
6161
6t62
616)
6164
6165
6166
6167
6169
6169
6110

024'549
00110"6

(8P), f15
161

IllS IT A <C~)7
IIBIIANCH
NO
III IT THF: flRST CHAII?
: 18~ANC'" Yf VES

"ns.

MAINDEC-U-DZRKK-D
MACYll 2H 1906) 04-0eT-16 16106
22-SE .. -76 "8147
Tn INPUT ROUTINE
DZRKlCD.Pll
6171
6172
6113
6174
6175
6176
6171
6118
6179
6180
6181
6192
6193
6184
6185
6186
6187
6188
6189
6190
6191
6192
fi193
6194
6195
6196
6197
6198
61119
6200
6201
6202
6203
6204
6205
6206
62r(11
6208
6209
6210
6211
6212
6213
6214
6215
&216
6211
6218
~219

6220
6221
~2'22

b223

6224
62}5
6226

024t'124
0248]2
024036
024042
924it50
024052
024060
024062
024066
024072
024074
024100
824102
024106
824112
1'l24114
024116
024128
0241U
024126
024112
024134
024!40

1116677
"'62706
104401
12)727
81'11003
1'1127'77
01111082
01147]7
"21627
""24211
1121627
803015
042726
01'15766
00140]
006116
086116
006116
005266
056616
000707
1Ii!4401
!'JEl0720

IS5186

00"802
008'86
801211
'01U5

""''''881

800100

155064

11..

HI!

15"
1611

1'123136
1'1110060

000067
0"0061'1
90"01'12

00"';"1'12
17'7776

17"

0"'1212

lUt
.DU'L

MOV
ADD
TyPE
CMPB
eNE
MOY
RTI
JSR
eMP
8LT
CMP
8GT
lIe
TST
IEQ
ASL
ASL
lSI.
INC
818

PAG! 1 U

2(SP),UNR
16.IP
,.CRLF
nNTlG.t1
15.
lIit . . . . rKI
Pc,UYPEC
(SP) .160

IU
(SPI, . . 7
188
UfJ.(SP)+
2(IP)

(SP)
(SP)
CSP)
:iI(SP)
-2(8P),(8P)

TYPE

,'OOES

LIB

, , •••••• " •••••••••• **........ " ••• ,,* .................................
,.TRtS ROUTINJ: WILL INPUT .. SINGLI': CHARACTER '11014 THE TTY
j'C~LLI

,*
,.,.

,
924142
!!24144
024152
024156
112416il
024166
1'124174
1'l24202
024204
024210
024212
024216
"24222
"242<16
1'124230
024232
024240
024242
024250
024252
024260

,l11f,46
1'11 .. 666
11"5'177
10.1375
t 17166
",.2166
0261,27
001013
10~177

100175
t 17146
042716
I-} 21

&17

"'H 366
000H0
Il266?7
00241<17
1126627
003"'''3
1142166
110 il "'":'

000804
15476b
154762
1'76".,
0110004

000004
1'00084
000(2)

'ROCHR, MOV
MOV
le.
TST8
BPL
MOVB
BIC
CMP
BNE

1541H

2'1

311
809175

'0~e40

"90004

... ,

un.
te

"TK8,4(SP)
.-cct71~,4(SP)

4(8 .. ),123
]I

UTKS

8IC

fnU,-(SP)
,·e17'1.csP)
(IP)+,121

r.MP
SHE

01'1"004

(SU,-csp)
HIP). 2 CIP)

TST8
BPI.

Move

154130
117600
000021

8R
eMP
SloT
CMP
BOT
BIC
RlI

U
4(IP', .. 40

..
4IJ

4CsP',H75
IU,USP)

PAGE 114
:"EQ fillH

,.fllIl ROUtINE WILL INPU'f A .TIIING FROM Tilt TTY

,.,.,II

,·CAIoLI

5211

62)5
62)6
6217
62]9
6n9
6241'1
6141
61$2
6243
6244
6245
6'246
6247
6248
6249
6250
6251
6252
(25)
6254
62'55
6256
6257
6259
6259
6268
6Ul
6262
6261
6264
6265
6266
6267
6268
6169
6271'1
6271
62'72
6271
6174
6275
6276
6277
6279
62H
6281'1
6281
62A2

, ,PUSH DOWN THE PC
, ,UVE THe: PS
IIiIAIT FOR
, , A CHARACTER
II REAO THE TTY
"CIT RIO 0' JUNK 1 P' ANY
niS IT A CONTROL-57
, 'BRANCH I ' NO
"WUT roll. A CHARACTER
aLOOP UNfIt ITS THe:R£
r ,OET Cf(ARACTEfI
: IMAI(E IT 7-BTl ASCII
:J IS IT A CONTROL-a?
" I,. NOT DISCARD IT
, I YES, RESUME
:, IS IT UPPER rASE?
"IRANCH IP' 'tES
,rIS IT A SPFCtl\L CHAR?
1,8RANCII IF YES
"MAle!: IT UPPER CUE
II GO BACK TO USP:R

, , •••••• * •• * ••••••• _ •••••••• * ••••••• **** ................ *••••••••

6217
6229
62,Q
62111

62)4

II INPUT A SINGLE CHARACTER FROM THE TTY
"eflARACTER IS ON THE sUeK
"IIITH PARITY BIT STRIPPED OF'

1I0CHR
RETURN HER!:

04-0Ch76 16.06
MACYlI 2H I ~06)
MAINOEC -ll-02;RKK-D
Tn INPUT ROUTINE
22-SEP·16 118147
D!PKKD.Pll

62 j2
62})

IEQ0U.
"SAVE lEW SiolR
J 'CLEAR UP SUCK
, I ECHO CCR> AIID cLr>
"RE-!IIA8LE TTY KID INTERRUPTS?
1,8RANCH IF NOT
fI RE-EIIULE TTY ICBD tlITERRUPTS
I,RtTURN
: ,ECHO CHAR
"eHAR < 0'1
J' BRANCH I f YES
"CHAR ~ 7?
I 'BRANCH I f YES
"STRIP-OFr ASCII
J ,IS THIS THI: fIRST CHAR
, ,BRANCH If YES
"NO, SHIrT PRESENT
:,
CHAR OVER TO MAKE
"
ROOM FOR NEW ONE.
"nEP COUNT 0' eHU
"IET IN NEW CHAR
"GET THE NEXT ONE
, ,TYP! 7<CR><I"F>
, ,SIMULATE C'ONTfiOL-U

a24262
024264
1'124266
~24272

il24216
1'124100
024102
924304
il243111J
"'24112
IIHH4
\'12431 b
024)24
024130
0241]4
024))6
1:124342
024344
824350
014154
024356
024160
024362
O24370
1'124174
1124316
02U"2
"'24484
024410
1124412
1)24416
024420
024422
024426
024412
"24414
924440
il2U42
02U46
024452
024456
024469
024464
024470
824472
824474
024476
024'504
024512
024514

0j>lHf095il4&
IH270)
022103
IIH4'56
1044H!
112613
122111
001022
095716
091097
112737
104401
012716
01'1510)
828127
1111414
111H7
104401
000146
005716
001406
t 12731
104401
119S0t6
122713
0.11003
184401
1'10"'26

1227U
0"1011
10501)
1044f11
184401
800'717
10448'
0"8712
'IU)7
104401
122123
001305
1051016]
104401
005126
1'11160)
011646
016666
012166
1'1011.)1'11
00'"

RDLIN
IIE'I'URII HItRE

024516
024540

IROLII" MOV
Ct.R
MOV'
21.
CM'
ILOII
ROCHI!

900171

191.

II.

Move

CMU
INE

fiT
001'11)4
024514
177771

024514

611
1'124516

~00134

024514

1124514
7 ..

991ft"5
824540

a..

000022
801213
024516
001212

411

024514
024514

leI

000~15

177777
081214

140"

'-I,C8P)
Rl
113,UTTYIN
41
(Rlh91
,9.

DEC
eMP
ILO

"'801!l02
"011804
9$1

•,91'"t.

811

alto

MOV8
'lYP!
eLR
eMPI
8NIt
TYPt
8R
CMP8
8NE
CLRB
TYPE
TTPr
8R
TYPE
II'
MOVI
!YPE
C14P8
BNE
CLR8
TYPE
TST
I4QV

00801'14
024516

(SP).,(U)
'177,(P))
5,
(SP)

"PI!:
It.

"''l'YIN,Rl
. . TTYIN+22,Rl
U

eN!:
MOYa
TYtE

ItO'll

O24514
O24514

R3,-CSP)

-(81')

MOV
MOV
M'V
PH
.BYT!

UP)

• " , 9,
,91

CSP)
125. (A3)
,'CNTLU
11
122, (11)

U
CU)
.ICRLr
,ITTUM
2.
.'QU!S
U
(Rl) ,9'
,9.
U5, CR)+
:iI'
-I (R))
,.LF
(SP).
CSP) .. P)
(SP) ,-(SP)
4CIP',2C8P)
II'1'T'fYN,4(SP)

"INPUT A STRING FROM THE TTY
, ,ADDRESS OP' n f'sr CHARACTER WILL Bt ON THE STACK
"T!!:RMINATOR WILL U A BYT! 0' ALL 0'S
"SAVE Rl
I ,CLEAR THE RUBOUT KEY
, ,GET ADDRESS
:,8U,.,.£,R rULI,,?
: ,8R IF YES
: ,t;o RFAD OIl CHUr.C!I!:R rROM THE TTY
, ,GET CHARAe'I'ER
"IS IT ,. RU80UT
"SR Ir NO
" IS THIS THE P'IRST IIl/BOUt'?
, ,8R rr NO
, ,TYPE A SACK SLASH
, ,SET Tlit RU80UT k[f
, ,8ACKUP 8Y O"E
"STACK EMPTY?
,,8I1IP' Yl!:S
, ,SETUP TO TYPEOUT THE DELETED CHAR,
, ,00 TYPE
, ,GO READ ANOTHtR eHAR,
, ,RUIOIIT Kty sn?
"BIt IF NO
, ,np!: A BACK SLASH
"CLEAR THE Pl/BOUT KEY
, ,IS CHARACTER .. eTRL U1
"BR IF NO
, , TYPE A CONnOL
J I GO START OVER
J,1I CHARIICTf:R ,. ··R-?
HBPANCH IF NO
: ,CLEAR THE CHARACTER
I,TTP! A ·CIt" " "Lr·
, 'TYPE TH! INPUT STU"G
"GO PICKUP ANOTHrlt CHACTtJI
"TYPE" '1"
"CLEAR THE BurrER AND LOOP
, 'ECHO THE CHARAenR

·u·

"CHEt:K rOR RETURN
" LOOP IF NOT RETURN
, ,eLtAII RETURN (THE 15)
, ,UP!!: A LINE "EED
"CLEAN RU80tlT I(EY FROM TH!: STACK
I ,RtSTORE R1
"ADJ06T THE SUCK AND PUT .DDRESS OF THa:
P'IR5T UC II CHARACTtR 0'1 IT
II
I,RETURN
:, STORAGE ,.OR asCII CHAR. TO TYPE

MUNDEC-U-DIRKK-D
MACYll 27(1"6) 04-0CT-1I'; 16116
DIRnD. Ptl
22-5EP-76 11147
TTY INPUT POUTINt

6291
6284
628'S
6286
6287
6281
6289
629'

824'115
024516
"U54.
824545
024552
824560

B2U61
1245'7'

01'11
000022
052536
136
005915
020075
84"
IU6440

"SillS
106507
IU521
0"0
"470411
'8f1040

028122

.BYTE
InllNI .Bl.KB
ICNTLU, .~SCIZ
leNtLG' .lSe II
'MaWRI
."sen

05:1585

''''NEW:

'''0

'8"12

6299

024574 010046
n".
6181 824576 IH6601'1 000082

6H2

fRAP DECODER

02461112
.2.60.
124606
024610
014614

,,,,,5740
111""0
910631'10
016000
000200

024616
024620
924626

011646
016666
910110112

UIIAP.

,.ov

"246l0

U95
6386
6)87

U88
6389
63II1II
"91
11)92
6J9J
6194

"SAVE RI
"GET TRAP ADDRESS
U8ACICUP BY 2
II GET RIGHT BY1! 0' TRAP
"POSITION FOR INDEXING
" INDEX TO TA8LE
, ,GO TO ROUT! II!

"TH IS I S USE TO HANDLE THE -GnPRI· MACRO
0flfl., iii 4

011"002

(SP),-OIP)
4(5P),2eSP)

ITIIAP2. MOV
MOY
RTT
.S8TTL

, ,MOVE THE PC 00111"
"MOV! THE PSw DO".
, ,RESIORt THE PSW

TUP IABLE

'.THI5 TA!LE CONTUNS THt: STARTING ADDRESSES or TRt ROUTINES CALLED
,.B~ THE "TRAp· INSTRUCTION.

02461"
024632
024634
024636
fl246 • .,
824642

r
r

824616
fJ22166
1'123456
023432
fl234H
823206

ROUTINE

URPAD' .WOPO
ITYPE
ITYPOC
nyPOs
U'YPON
UYPOS

U'AP2
, ,fALL-rTPE
, , eILLaTtPOC:
, ,clLL-TYPOS
, ,CALLaI'YPOII
, , CALL-nPDa

, j CALL·CKSWR

1'123730
1114646
024650
"24b52

023660
024142
024262

'C~SWR
'~OCHR

, JC: _LL.p[!Ctlll

IRDLIN

" CALL.ROLIN

1124654

021666

eN.CRDY rrCALLaCHICCRDY

024656

021122

024660

1'121740

TIIAP+I(104401)
TRAP+2( lId4402)
TRA1'+)(10440»
TRAP+41 104404)
TIIAP+5(UU05)

TTY TYPEOut ROUTINE
TYPE OCTAL IiUICBER (IIITH LEADING lEF10S)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECfMAL IIUMB!!:R (WITH SIGN)

TFAP+6(1"44"6)

GET SO'T-SWR lETTING

Til ~p+ 1( 104407 ) T!ST rOR CHANGE J N SOP'T-IWR
TRAP+HI(1'44111) TTY TYPUN CHARACTER ROUTINE
nAP+11 (104411) Tn T¥PI1N STRING ROUTINE
TlllP+12(l04412) CHECK CONTROL READY
TRAP+ 1 J( 184413) CONTIIOL RESET ROUTINt

16106

PilOE 116
SEQ rl)l

CN.RDf

, ,CALL-CNT.PDY

TUP+14( 104414) MUT rOR CNTIIL ROY TO SIT

In4!!b2

020764

SOU

"CAt.L-eRKDUl

tA~P+15( 184US)

"'24664

IH0174

!!IDU

" CALLaI\RKD~4

TRilP+t6( 104415) BRtAK RKDA INTO

&RtAK IIKD~ INtO DR j ,

cn, .OR, 5~C B1 TS

DP ',CU,SUR,S!:: SITS

024666

021572

DELA. r

, ,CALL-DILA Y

TPAP+11(104417) TIME DELAY POUTINE

824610

021614

IIATINf

, ,CALL-IIU. INT

TPU+20(184420) MUT 'OR RKII INTERRUPT ROUTINE

824612

III:ZU''''

TaTSIN

t ,CALLaTn.SIN

TRAP+H (U4421) TraT 5111 ROUTINE

..................................................................

.SIITTL

"
824674
1'1247Q12
11I247t1l

824712
024114
824716
11124120
824122
fl24724
024110

024134
024742
824744

1'1127)7
8127)7
010046
8H1146
1110246
010)46
01111446
818546
011146
01116)7
1'J121)7
001'10'*0
11"0776

02'511l40
81'10)40

0011024
00""26

U4210
11251'144
0)4H6

008024

US"""

0e0924

1'124746
824754
1U4760

"24164
02477e
"24772
024776
0250"0
025002
1125104
825"06
eU010
11251112
eas82'
825026
825eJ0

"ulln

825-014
1125136
825040
825842
025"'44
0251i146

0127)7
1'J13106
005031
805211
00\ )75
012677
012695
012604
01260)
"12602
IU26fll
012600
012737
0121)7
1 i944"1
025046
012716
804610
Ulil1ll02
""0000
01:10176
000\"'"
PJ'5rtl5

025144
fI2!1844

112511144
154142

.24674
",,"H0

080024
001026

"4752111

042527

POWER DOIN AND UP ~OUTlNU

,POWER DOliN ROUTINE
I'WRONI MOY
UILLUP,UPIIRYEC "I[T fOR rUT UP
MOV
fl40, UPIIIRYEC+2 " PRIOl7
MOV
AB,-CSP)
"PUSH 110 ON STACK
MOY
al,-(SP)
, ,PUSH Rt ON STACK
MOY
, ,PUSH R2 ON SnCK
R2,-CSP)
MOV
IU,-UP)
"PUSH Rl ON SUCK
MOV
114,-(8P)
,'PUSH R4 ON aTACK
MOV
h,-esp,
, ,PUSH RS ON STACK
MOV
, ,PUSH ISIIR ON SUCII:
"WR,-(SP)
MOV
IP,saAVR6
"UVE SP
MOV
"PIIRUP" .. PWRVtC "SET UP VECTOR
HIILT
IIR
, IHANG UP
.-2

6372
6]'7]
6)74
6375
6376
6)17
(\178
6319
6U0
6381
6382
6313
6Je4

R0,-ISP)
2(8P),R0
-(R0)
(R0),RI
R0
nRPADCRa),R0

MOV
TST
MOve
ASL
MOV
RTS

MACYI I 270.,86) 114-0CT·76
NUNDEC-ll-DlRKK-D
TU.P UBLE
12-SEP-76 91".4'7
D!RKKO.PI I
6))9
61411
'141
6142
6HI
6144
6)45
6146
6141
6149
6149
61'50
6151
6)52
6151
6J54
6155
6)56
6157
6)'U
6)59
6)60
6361
6162
6)61
6)64
6165
6)66
6)67
U68
6)69
6170

,*THIS ROUTINr IIlLL PICKUP THt LOWER BYTE OP' THE "TRAP" INIfIlUCTION
,.AND USE IT TO INDEX THROUGH THE TRAP TABLE roll THE .nRTtNG ADDREIS
,.or THE DESfRED ROUTINE. THEN USING THE ADDRESS OeUlNED IT lULL
,.CO TO THAT 1I0UTt HE.

6296
6297
6299

Ii)))

NIII •

.ASen

,,................................................................
.sarTL

6292
629)
6294
6295

(1)4
6))5
6)16
6))7
6))8

11
"TERMINUOR
22
I I RESERvr 22 BYTEa rOR TTY INPUT
I·U/<15><12>
"CONTROL "U·
I-G/<I5><12>
"CONTROL "G"
<15><12>/aWR • I

ICONTRDL U, RUBOUT COAlILUY

6291

n.2
6J1)
ne4
6315
n06
61.'7
61.8
6)19
61Ul
6111
6112
61U
6)14
6315
6)16
6117
6318
6)19
6321'1
6121
6122
6)23
6124
6125
6126
6)17
6128
6)29
6n",
6H1

PAGE 115

...............................................................

, POIIJ.:R UP ROUT I NI
.PlfIlUP. MOV
UILLUP,UPIIIRVEC IIstT rOR FAST DOlfll
MOV
eSAVR6,SP
"GET SP
CLR
rr IIAIT LOOP rOR !HE Tn
'SAVR6
U,
INC
UAYR6
" lolA IT fOR THE INC
eNE
11
"or WORO
HOV
(SP)+,~SIIR
"POP SUCK INTO ISWR
MOV
UPh,IIS
"POP STACK INTO M!I
MOV
(8P)+,1I4
"POP SUCK INTO It4
MOV
(ap)+,R)
"POP STACK INTO Rl
MOV
, ,POP STACK INTO R2
(aP)+, R2
MOV
(8P)+,RI
IIPOP STACK INfO lit
MOV
UP)+,RI1I
II POP STAeK INTO 1111
MOV
. . PIIRDN, IUPWIIVIe: "SET UP THI POMER 0011,. neTOA
MOV
U48, . . PIIRVEC+2 , IPRIO,7
TYPE
,REPORT THE POWER 'AlLURE
tpWRMG • • IIORO
II POWER P' III I, "'£SSAGE PO 1 NTER
"OIlEP
HOV
(PCh, (SP)
" RESTART at PfSTRT
"WR~O I .WflPO
prSTRT
: 1 ~P;START ADDRESS
RU
ItLLUPI HUT
: , T~E POWER UP SEQUENCE WAS sun!:"
BA
• -2
II SHORE THE POWER DOWN WAS COIIIPLETr
..,AVR6. 0
1 J ~IJT THF SP H!!:R!
,POWER, .ASCtz <15~(12)·PO''[R·

MACYlI :27(1006) "-OCT-'6 16106 P.GE 117
MAINDEC-II-DZRU-D
POWER OONtt .ND UP ROUTINIS
22-SEP-76 811147
DIRKKD.Pll
6]95
6)96
U91
6399
6199
U8e
6481
6492
64e3
6484
Ul5
6406
6401
6489
6489
6410
6411

6412
6413
6414
6415
6416
6411
6419
6419
6t2"
6421
6422
('421

6424
6U5
6426
6421
6428
6U9
6Be
6411
6H2
64Jl
6434
64)5
6431>
6437

025t!54

800122

82511156
825862
825064
825066
It 2 !UI 14
02511'12
O25104
1125112
825114
O25122
o25110
.251)6
02514e
825146
025150
025156
025160
1'125162
025170
025114
825116
025200
e25202
025206
025212
025214
025216
825222
025224
0252]0
825232
e25236
025244
025246
02!12511
1'125256
925262
025264

111..,47)7
104DJ26
10441]
013711
8327)1
801404
842731
03041/1)
1152717
013771
012777
104414
011771
llJ4414
1132177
"01081
"'05125
"un7
0047)7
104026
000205
000ee0
005037

SECI '134

.EVEN

Vl12700

005710
00141l
005160
0014H'!
004531
800405
0527 lk'
052760
011572e
005720
062H7
022700
VI,,3J5)
""0207

021412

•• 1351
828'88

ne,,,,,,

02.288
00U51
00USI

920'8'"
001]5O
0110011

01111"
154211
154174

0252110

"4172

!!l00100

154150

1!I2520e
02141 2

881)5111

0011!Hl
081414
000802
82511156
100000
1IJ00811

ellll.1I2

PC,DRESET
rCHECKI JSR
26
ERPOP
CMf.RESET
DflIUO,DRHOLD
MOV
U0080,DRIYAO
BIT
REQ
U
'28001t,DRlYAD
SIC
RR
,21100"',DRIVAD
I,.
BIS
OR I VAD, .IIKDA
kDV
2U
.1 I ,IRKCS
MOV
CNT .PDY
ORHOLD,IRKDA
MOV
CNT.RDY
t100,ClPKDS
BIT
BNE
3S
(ASH
TST
DRHOLD, DRlVAD
MOV
JlI
PC,DAESET
JSII

211
e4e000
081433

!:~ROP.

£ITS

115

DRIiOLO. II
CLII
SUEP"
"IOV
TST
411
BEQ
TST
BEQ
JSR
8R
SIS
BIS
TST

TST
liDO
CMP
BCOT
IITS

0el1S0

OPIVAO
.DRlve, R0
(R0)
2.
2(110)

2.
R5.'CHECK
2S
IUl1I0011, (£10)
It 00000,2 (Re)
(fl0,.
(R0)+
1401100, DPIVAo
'ORIV1+1, £10
U
PC

I RESETS DRIVE
,lAVE DfilVE .DRII
,SEE I' ODD
,MU! EVEN
IM.X!: ODD
:OUVE ADDR
'DRIVE SEU
,OTHER DRln:
,HEUOS IN MOTIONN?
,NO SO RK-1II5J
'YES RIC-05r
, RESTORE 1000£1
,IIA IT 'DR RESET

,ST.RT AT OR0
,TABLE OF AVAIr.. DRIVES
,THIS DIIIVa: HERd
,NO
,COMPLE"IEN! HEllEf
,NO
'SEE If P' MODEL
,J MODEL
,SET SIGN FOR ,
,SOTH DRIVES
,NEXT PAIR 0' DRIVES
,NEXT ACTUr.. .00£1
,CHECKED ALL?
,NOT YET

.EPROR MESSAiES

(,4Ji

64)'1
6440
6441
6442
6443
6144
6445
6146
6441
6148
6449
64'111

.aSTTt

EIIROR MESSAGES

841527
00012]

042U8

EMili

.ASCIZ

IIIKlte· ERDRI

~25274

045522
047522

1125J0'"
1125 JAI>

044523
051U0

020116
"'52105

0!11511
090

EMI2I

.IIscn

ISIN II SETI

1125)1)
025320

122
051105

04111]
051111

02'''"1
000

EMUI

.ASCll

IRK8A ERORI

025266

MACYIl 27 (1886) U-OC'f-76 16,06
MAINN:C-l1-DZRKK-D
ERROR MESUQFS
22-5[P-76 89147
DZPKKO.Pll
640;1
64'12
64'13
6454
6455
6456
6451

PAGt 118
S!O 0135

n.t'1

r.1I16 ,

.ASCII

IIIKO. WRONG

851504
H.122

14244111

EMUI

• ASC II

IAKoS ERORI

05111104
000124

820114

84252'

IMJ0,

.lICU

10PT. S!TI

1925316
025404

05111'1.
000124

028125

e42523

IMUI

• ASCI!

IDRU SETI

825406
825414
025422

"'45522
052111
851440

1!Il246S
047114"
11152135

841IH.
852117
0.111

EMUI

.AScn

IRKlt5 8IT NO! SETI

025427
025434
825442

1,,4
052111
051440

11154522
1114784.
05210!1

'41"40
052117
elle

EM)]I

.llcn

lORY BIT MOT aETI

825447
825454
025462

123
IU2Ul
042523

045517
02J!516
••• 124

.42048
02111124

EM 34 I

.Asell

ISOK DIDN"T SETI

825466
025414
025502
825518
025!116

042523
051124
023516
847125
81e040

.26103
.UIII4.
1112812.
02111124
e0e

8471'"
842111
847501
847524

EM351

.Ascn

ISEC-CN!R DIDN'T COUNT TO 01

825521
825526
0'5!1H
025542
02555e

113
.52116
8471"4
041516
"00

.4U1II5
tll28122
052.47
11146522

.41455
11144504
8444.,
052116

EM)6.

.AScn

ISEC-CNTR DIDN'T INCflIoINTI

eU551
fU5556
"25564
025572
025600

123
052517
841111
052116
1'147522

841595
852116
II!IUIl
142205
841516

"41455
020122
.,42515
85lUIII
eH

1:14171

.ASClZ

IS!C-COlJNTR INCIlMENTED NRONGI

825605
02!1612
025620
025626
825634
02!1642

104
02"'124
1141523
047506
A51511
051124

042111
1142517
1151475
020122
051448
til.

UJ!I 1 6
11211124
82 I'll 01
044124
841585

EM4'1

.lsen

IDIDN'T GET se-u '0£1 THIS SEC:'I'RI

025645
025652
825660
1'12566(,
1125674

105

047522
1127521
020tH
842114
04252)

026522
820123
044123
04111140
1100124

F"I411

.Ascn

"EROP-R/W/S RDY SHOULD BE SET"

042122
\152'>17
n0105

112512!1
925H2
02534Q1
025346

112
051121
04U.t
1"51441

04211 )
047117
042524
042521

025354
025362

1'145522
047522

025366
1125374

lrTt~

'SSE' I

n0lf7
e2B122
.ellllln

&4~q

1>40;9

6Hi(,J
6461
&462
646 J
64&4
6i60;
6466
6461
6469
64&9
6470
6471
6172
6471
6414
6415
6176
6177
6418
6419
6480
6481
6492
6483
6484
648'5
6496
6487
6498
6499
6490
649t
6492
64CJ)
6494
64'15
6496
6491
6498
(,499
6500
658t
6502
65el
6504
650S
6506

10'127522

"'ACYl 1 2708.6) 84-0CT-76 Ul1t6
MUIIDEC-11-DIRItK-O
EPROR "'EIIAGES
22-SEP·76 08147
DIRI(I(O.PlI
6517
6588
6589
65t0
61StI

6512
6513
6514
6515
65t6
6517

6518
6519
1S28
6521
6522
652J
6524
6525
6526
6527
6528
6529
65J'
6531
6512
65)1
65)4
6535
65)6
6531
65)8
65J9
6540
6541
6542
6541
6544
6545
6546
6547
6548
6549
6550
6551
6552
6553
6'554
6555
6556
6551
6558
6559
6560
6561
6562

PAGE 119

SI{,/ .n6

847125
1!J211U
.)0!U)
,42524
.88124

8'54185
042105
820161
05t122

04252.
051040
047111
850125

EM41.

.ASCn

IUIIElflC'ICD RIOt IN1[RRUPTI

.25716
825124
825732
0257)4
025742
02575.
825756
.25764
.2S772
826"'0
.26006

847t01
042122
8471"4
0521'"
051185
.20113
.2.122
00f1124

.51124
8201)1
.52847
040440
.51448
051117
0.2522

02'U4
044584
8St44.
812t16
.42585
842.4.
'4212)

IMUI

• ASCII

ICITIIL ROY DIDN'T IE,. AFTIR SEIK OR DR RIIETI

• 2601.
8260\6
026024
026912
026040
"261'l46
826054

051105
.44040
020124
84711 7
02011 )
020122
80f1124

02.122
028185
"42521
05144'
"51lt7

EM45 •

• ASCI!

IERIII OR III 111'1' SIT ON lEEK OR DR RtSUI

.425:n

811117
.U582
02.124
042585
fl4284.
04252)

0261'l56
8261164
026872
02610'
826106

045522
052111
.51440
0'5. I 17
042'522

• 51105
"21t.,,54
.U505
041048
84252)

041.4 •
047117
82011)
020122
088124

EM46'

.Alc,n

IRUR an, ON .UK OR DR R!SET I

826114
126122
026130
.,26136
826144
026152

04552a
0471111
052106
041516
..53440
047ltl

05150]
842107
.215122
.44'?4
05J501
11100'05

04144.
840448
0525.,6
047117
842040

EM47.

• ASC II

IAKC' CH'GO lrtR fUIIC'l'IOIt wAS DONEI

826156
026164
826112
026208

027522
042122
047104
042514

127527
020lJI
0521547
0!11.01

02012J
044504
041440

EM58.

.uell

"R/Ii/' RDl' DID.'! CLEAR"

02620'
02Ull
026220
026220
026214
026242
136250

053457
05451114
11121516
0201124
'5144'
051117
042522

051457
042"4'
020124
1}43101
042585
114214.
0U51]

EMSI.

.Ascn

-R/N/S ROY DIDN',. stT arT" InK OR OR" RUU"

0~6256

122
051048
042111
04252]
051t24
820111
"2fl132
""'fl124

02626.
026266
026274
0263'2

1145522
0411111
05"06
114'5595

.,411504
042107
1120122
0.0

1141440
1114844.
.,42521

E.. 52.

.lIen

IRKOl CHNOO AFTR SUK I

82"82

.3571.

.ee

MA UDEC-II-nZRKK-O
MACYII 27 (10116) '4-oCT-" 16.1116
[RROII ~ElalGES
2'2-SEP-76 "'8.47
O!IIKI(D. P 11

PAG[ 12'
SEQ 11137

826 )1'15
.26)12
1126 )20
026126
0161H
1!126142

10)
0510411
1f421 t 1
046111)
041440
02AI23

052116
054584
011516
020122
020117
042521

U61 n
042840
1120124
051501
040521
1II1!I1!I124

(145)1

,UCIl

ICNTRL ROY DIDN'T CLR AS GO WAS S!:T I

0261'514
0263'56
026364
'26112
.26400

051124
02"131
"52.47
04744.
1'.121524
852123
841516
828115
848455
800876

82'114
0445.4
1115144'
82111116
04658'
051181
043848
0421174
851104

EII541

.lICU

-C:NTRL PDr DIDN'T an ON WRTlP'MT STARTI"O nOM CDSK-"DI1r:a>"

026414
026422
026410
1126436

(114710]
042122
04 7t 0.
052105
051121
02fi11H
044524
1'147'522
045523
851505

826442
826450
826456
026464
.26472
826501'.1
826506
"26514

11142518
'51185
851440
.521 IS
052122
05t106
05151'"
.,42522

841440

820122
047.17
8Ues7
'48524
028187
U6U.
042101
.e,

I:MSS.

.lScn

"HE OR ERR ON

026521
026526
8210534
826542
02f>558
026556

122
047.11
042124
041516
051127
"'0124

042111
851103
8SH4"
841448
026!l'l4

82llll,

EM56.

,lICl!

IMKDA urCI\MN!D WRONG ON WRT-'MTI

847115
'47522
82'116
8461106

11126560
1!126566
e26574
826602
026610

045522
042111

041521
023116
I!IU122
IU116
1461106

O4284'
'20124
047St4
051127
100124

[14'57.

.ASCII

IRKIIC DIDN'T OVRno ON IIRT FMTI

6603

.26616

6604
6685
6686
6607
66,8
6619
66U
6611
6613
66t]
66"
6615

026624
'26632
826640
026646
026654

1'145522
041516
0211184
'20107
1''52122
000

.,41502
.46522
1'.1 !I 11 27
047117
0U'te

844441
052116
047117
05:1441
0'Ull

£"611'

.ASCI!

IRKU IJIICRMHTO WRONG ON WRT

12l
042523

02111122
047111
04744.
04'1448
8""'124

1"61.

,AICII

IRIIER SET, ON IiRT OP liD OR fM1/

"U440

["621

.~SCIZ

IRKOS

6'j6 )
1\~64
6'jb~

6';&6
6567
6569
6569
6570
6511
6572
6573
6514
6575
6576
6571
6578
6579
6580
6581
65112
6~83

6584
6585
6586
6587
651)8
6589
6'198
6591
6592
659)
6594
6595
6596
6'597
6598
6599
6680
66 I'll
6602

6616
66P
6618

"26~1I6

(115)117

il4744"
11120124

82812~

052122
051440
1147111
0465.7
026513
817123

"26655
1'126662
82&671'.1
1126676
1126704

"21'122
820122

042513
026124
8521:12
042122
846506

11126712
026721'1

"45522

.,.1104

1147522

0ee122

0~344"

[~ORI

WRT/f~T

STARTING fROM <OIK-lORn.-

"~TI

MACYll 21(1986) ",4-0CT-76 1611.6
MAIND£C-II-DZRKI(-D
!IIROP MESSAGES
22-SEP-16 1>19147
DZRKKD.PI1
6619
6620
6621
6622
6623
6624
6625
6626
6627
6628
6629
6630
6631
6632
66)1
6634
6635
66)6
66}7
6bJ8
6619
66 ,HI
6641
6642
&&43
6644
6645
6646
6&4 7
6649
6649
6650
66,,1
6652
6653
6&~4

6&55
660;6
6657
66~8

6659
666'"
6661
6662
666)
6664
6665
6666
6667
6668
6b69

PAG£ 121

SEQ IU.

026124
026732
flJ26140
026746
fl26754
026762

145522
041516
flJ2011cl4
020187
8201f1J4
020104

1141i'504
046522
051127
047111
1/151117
046506

0444411
0521t6
047117
1'l51f1J4fIJ
flJ51040
00U24

EMUI

.ASCn

IRKDA lIICRMIITD IIIRON' ON RD OR PO rlilTI

026770
026716
027"''''4
"'l1012
021020
827026

;145522
1142111
0531 t1
flJ47440
047440
flJ43040

041527
"'23516
043122
02"'116
020122
052115

1042040
020124
047514
1'142t:l2
042122
011.,

[10464:

.ASel!

IRKioiC DIDN'r OYilfLO ON 110 Oil RD FMTI

flJl70)]
027040

041113
ilSI103
053440
04'1440
041440
043040

fJ2flJlflJl
i147It5
047522
02f1J116
1120122
052115

,.,,651

.AIICIZ

IRKBA INCRMII'fD IIRONG ON RD OR RO F'IT I

1127054
027062
"'27070
027076

122
047111
042124
043516
042122
A42122
000

1"27071
021104
1:127112
827120
027126
0271]4

ltl
042522
1'!4"51:1S
051106
042523
000047

flJ4l!116
0521ln
flJ42SP4
046517
052103

051117
044040
020122

E1466.

.Ascn

IINCORRECT HilDER FM~ "SECTOR"'

027U6

040504
051122

flJ40524
051111

Ql42440
000

[M67'

.Ascn

IOATA ERRORI

lin

046122
04:;1040
021124
047117
046506
051101
04)040
042014
051104

[14701

.ISCIZ'

·CNTRL ROY DIDN"T SET ON RO/rMT STARTING FROM COIK-AORES>"

027~46

1I~7144

027151
027156
027164
0271H
027200
027206
027214
027222
027230
027236

02H411
051117

1'147522

052116
054504
023516
020124
1'127504
flJ52123
"'43516
02Q1115

045523
05151'15

1100"'6

027242
027:2511
02125b
027264
027272
02731'10
027Jn6
02HI4

0425 I \~
05111'15
051040
020124
1H4524
047522
040;523
1'15151;5

0474411
02A122
027504
052123
04)516
020115
040455
000076

020122
047117
046506
051101
043040
042014
11151104

IMTtI

• ASCII

"HE DR ERR ON RO/FIIT STARTING FROM <OSK-AORIS>"

027 320
021326
027)H
1'127342

1;51127
"'51104
042111
1'14'i522

047117
0511 II
044441'
051504

02011'11
020105
1'120116
040441li

E1472.

.ASCIZ

IWRONG DRIVE ID IN RKOS AFTER SEEKI

051040
042 til
042521
05""40
020174
344524

'H~455

6b70

6671
6672
6673
6674

MAT'lDEC-l 1 -OZRKK-O
M"CYII 17 (1001) 04-0CT-76 1611'6
7.2-~E:p-16 0A 147
IRROR 'IE8SIGe:S
DZRKKD.PII
6675
&676
6671
6679
6679
668"
6681
6692
(68)
6694
6695
6686
6687
6698
66119
6690
6691
6692
6691
6694
6695
6696
6697
6698
6699
6780
6791
6702
67113
6784
6705
6706
67117
670'
6709
6710
171l
67t2

671l
6714
6715
6716
6717
67111
6719
6720
6121
6722

6723
6724
6725
6726
6127
6128
6729
6H0

,,;1 122

021350
027156

1'511\'6
(I4''i05

021362
02H7fIJ
021316
0274"'4
027412
027420
027126

051 1t0
1151194
MI1l40
1131461
1'51440

053504
046111
020126
052111
030455

A2~105

0461193

027434
027442
827450
017456
021464
827472
0275."

"51110
0SA040
0471 11
014524
"'44522
"47516
047123

853504
046117
851124
141516
920126
020124
01,H1II24

"42522
10;'26514
1'150125
1142048
020043
95112.

£M741

.Ascn

IH"DWRP.: POLL-IITRUPTING DRIV t NOT PRINTI

0275f1J4
1127!112
8275"
027526
1275)4
.27542
027550

051104
il42040
1120124
05"125
A41.524
115.1504
1146117

fl5J111
042111
047111
020124
020122
04252'
000114

1121441
02)516
851124
0HUU
1'51110
A59040

IH7!!11

.ASen

IDRIV • DIDN'T lIfTRUPT AF1[1I HRDWRE POLLI

027554
027562
027570
flJ27516
.27604
827612

1141523
047Hl4
1'152105
05t 1'15
02011)
114751'14

02"'12"
052047
040440
051 U0
048527
11.2516

0445.4
051441
052186
042581
02012)
0'"

EM76.

.Alcn

ISCP DIDN'T ItT AFTER SEEK WAS DONEI

027617
.27624
827632
027640
021646

122
84411H
1140440

042113
047181
052106
044522
042523

020101
042107
1'151105
021'1126
010124

£M17:

.lIcn

IRKDI eHlIIClO lITER DRlY Rtl5£TI

827654
827662
127670
127676

04~504

040524
020122
051117

042440
052101
021504

[!IUS,

• ASCII

IOUA ERO.- lf IIOROII

046 122
0421140
02"'124
.43101
142122
"8"

IMI011

.lscn

ICNTRL ROY OID.'T s n "rT£I" 110 CHICI

041440

05211 b
054504
0215 If.
021H24
flJ20122
045510

105
1110122
il20116
1'14551A

051122
1142511;
"'4?122
01W

841449
041440
fU1U9

Ellte2.

.AScn

IERR 011 HE nil 110 CHKI

827677
0277f1J4
827712
"'27720
827726
1127734
827741
027146
027754
1121762

05~040

84~040

041522
1147522
0514411
00"
191
l'I~t040

0421 I I
042523

".2')24

04b110

051440
0U522
026514
042111
024121
024465
1l4l104
000122

IMnl

.AScn,

IHRDIfRI: POLL-DIW 10

SEQ 01)g

051105
0~01 11

BITs( 13-15) SHLOBt CLRI

MACYI I 27(1"6) .4-0U-'" 16 •• 6
MA 1Il0EC-U-0!RKIC-O
ERROR MESSAGES
U-SEP-76 0914'
D!RII'KO.PII

6731
6H2
6731
6114
67]5
67)6
67)7
6H9
67)9
6140
6141
6742
6741
6744
6145
6746
6147
fiB'
6749

675"

6151
6752
61'53
67,.
61'55
67'56
6757
b758
6759
676"
6161
6762
676)
676'1
6765
6766
b167
6168
6769
1)170'1
6711
6712
(77)

6114
6715
b716
6777
6718
6719
6180
6181
to 782
619 )
6794
6185
67116

PAG! 121

110 1114'

1127765
821772
9)90"

183
8211116
845510

1142523
842122
0011

1'147440
i'l4I44.

EMUll

.ASCTI

I:SE ON RO CHIfI

(13,,"83
030011l
0381116
1l)0"24
0J,,")2
el1l04.
111"046

122
9445114
1147440

8281.]
052047
043122
820116
e45510
1151 U7
000113

ENIII41

.ASCI!

IRKWC DIOH-r OVERFLO ON RO CHK OR IIRr CHili

1942122
047440
,,21lU4

853513
0471114
.42526
847440
04144.
028122
944101

038,,54
810862
,uelll0
1I11l1176
11)0104

11145522
1141516
02 . . .,4
"211187
020104

048504
046122
e51127
"4711 7
844.,,1

044441
052116
047117
05104.
••0113

EM11I5.

.A.cn

IRICOA I"CRMlltD WRONa O. RO CHltl

01.112
0l0121l
0111126
1139134
030142

1145522
1}40510
043101
042122
008

04"502
04)516
042524
041440

04144.
"20104
020122
0455 ••

EM1061

.ABCll

IRKBA CHANGO AFTtE! RO CHICI

8)IH43
IHel50
010156
030164
Bl0172
1n.201l

115
<1211111
01414411
1142105
11511£15
A4411!ll

046505
047527
040510
0404411
051040
000111

05111 7
04212:1
043516
052106
0201114

EMI.,7.

.ascn

IM!MORY IIORD CHANGED AFTER RD CHKI

010284
030212
1!H0220
930226
030214
0)024:1

04711'13
042122
047104
052105
051105
i"41440

051124
020111
052"47
'40440
053440
1'145511'1

02111114
044504
85H4.
1152106
052122
000

EM11'"

.A.cn

Ic.rR~ RDT DIDW'T SET ArTER WRT CHIC I

0)1l241
IU0254
030262
In.270

11'"
042440
021'1111>
1144103

"20105
851121
051127
"01Ull

051117
047440
021'1124

1"'1111

.ASCI!

IHE OR ERR ON IIRT CHI(I

0J0274
030302

11151127
044111)
1151105

"52111
041505
0'5t 117

1120185
020113
0110

11011121

.AScn

IWRITE CHECK ERORI

04211 J
05110)
05144('
047440
020174

020101
041115
"'47522
020110
04410)

P:Mllll

.A'CU

IRKOA INCRMNrD WRONG ON IIRr CHKI

0HU44
0JI1l52

1:12
1147111
0421 H
8H516
051127
0"011 )

010354

045522

84051112

.44440

1141141

.ASCU

IRICI!\A INCRMNtO WRONG ON IIRT CHKI

'~j"H0

030lt 5

111]0322
1+111)30
IH"))6

,,,.,514

04-nCT-76 16106
fo(ACYII '27(101'1',)
14U'lOEC-II-OZRKI\-O
22-SEP-76 1'9147
ERROR MES'AGES
DZRKKO .P1I

PAGE t 24
SEQ

~5:1t 16

01")62
100310
1'1111176
IlJI141H
01114 t:l

1141 SI6
020104
020107
052122
000

046522
051127
047117
"'UUIl

11)041]

122
047111
1142124
1,.4124
1I'i1440

1'14111 J
051101
920854
1'144440
852'05

,>20101
1'147115
1144527
.,40502
0"0

EMil 51

• ASCII

IRK8A INCRMNTD. WlTH I8A SETI

IH1'I42"
030.26
0104)4
0J0442
"Jil447
0J0454
0)"462
')0470
.38476
0305"4
810512
8105'0

121
046440
UIlIH
1i144524
840510
05 J440
"'41111
"00124

04'527
046505
1147514
0471 17
041516
052111
0:101"1

041516
951117
1'140501
041448
1142105
020110
"42521

1141161

.lIScn

III/RONG MEMORY LOCATION CHANGED WITH I8A SETI

0111522
IU05)0
0305)6
0J0544
0105')2
IUes60
IIJ0566

045522
042111
047111
"211124
044440
051501
000

010461
021516
051124
044127
042504
051440

042040
020124
050U5
047105
05H40
1152105

EMt 171

.ASCII

IRK! t ~ION'T INTRUP", IIHEN IDE WAIl

")0567
030574
IlJ0602
1l1061A
010616
0)0624
010612
010b40

122
0445114
044440
1152120
051 '0'5
040527
"'S2111
000104

03051 !
047104
1)52116
04044111
051449
112012)
049511

"2e1l61
052047
05252:1
052106
1120113

EM1201

.ASCIZ

IRK! t DIDN-r INTRUPT ArTER 51( WAS INnUr~1

010642
IIl0650
'Heb56
")061)4
0)1672

1'1'1521
112"'124
042522
1129111
IH2514

020120
04251/1:1
951441'1
0"'SlU
042574

042523
047506
0U5e!
050115
01l0t"4

Ell 12 I 1

.ASCn

ISCP u t BrrOR! SttlC COMPLETEDI

IYl0''''''
AJ070b
1130714
If ""22
"lIlH!!
"]1'17 )6
II )0144

84'5522
1142111
1141111
021011 :l4
112i" U
046517
11142105

0J8461
IIll516

042040
1120124
050125
042524
041440
05211115

EMt 221

• _SCU

IRIUI DIDN'T rWr,WPT AFTER SK C:014PLE1'EDI

b8 )9
Ii "'9
bRU

030747

052116
051 !H'5

.ASCTZ

l:flTRL Rr.SET DIDN'T CLEAR 'SCP'I

0)07t;~

6A12

1110111'1

1141»122
1152195
A2HI6
041i'50S

EI4I231

I>HI

1113
1'151040
"42"'40
1'120124

"lR 1
678A
1>7119
b19"
61QI
b792
&193
6194
b795
67Q6
&197
6798
679Q
6980
61101
6802
6801
6904
6805
61'106
6801
6808
6819
6810
6911
6812

6813
6814
6815
6816
6817
6818
6819
6820
6821
6822
68'2)
6A24
692'5
6826
6871
692.
6829

68]'
691l
68)2
6111]
6914
&8 )5

6R 16
69 l7

8307~~

851124
841llH
045523
041> 12"

"47117
Il~H4'"

045510

e4111 t
042524

01Hl

11421' ,
lI4illPl3

anI

~141

MAl NDEC-Il-DIRICK-D
M"Cnl 27(1006) 04-0e,-76 16106
12-SEP-76 08147
ERROR MESSAGF:S
DZRKKD.Plt

6941
6844
6845
6946
6847
6848
6849
6850
6851
6952
6SS)
6eli4
6955
6956
6857
6858
6859
6860
6861
6962
6863
6864
6865
6866
6867
6968
6869
U70
6871
6872
6873
6874
6875
6"176
6877
6878
61179
6890
6881
6892
6893
69114
68115
6896
6887
6988
6qR9
6~9"

61191
6892
11891
6894
6895
6896
68<;7
IIII<;!!

PAGE 125

SCQ 1142

010776
0H004

020122
1100047

051'447

0511"]

IUU06
03111114
"11022
031010
0110]6
0)1044

045522
042111
1'l47111
020124
02'1J122
047117

030461
"23516
051124
14110!
.42122
'''0105

"42040
a20124
05"125
"42524
".2040

EM124.

.ASrIZ

Illn 1 OION', IN'rIlU'T AFTEIl RO OONEI

fill 05"
031056
0H064
011072
0lU00
011106

"nun

0511 24
.42521

.Ascn

'CNTRL Illan DIDN'T

8SU14
851511

020114
020124
852047
851040
051124

IMU5.

1142522
044504
IIU440
04]505

1120061
a52047
052522
020124
042514

IM126,

,ucn

IRK 11 0lDII'1 INTIlUPT AT CPU LEVELl

0~0101

010511
041104
852116
84044"
828125

84'71et

eLl REGISTRI

000

011107
031114
0111H
llIll1 10
1U1116
IBU44

122
1144504
044440
05212a
042526

ij~iii4

1'13t150
0HU6
011164
011172
031208
"3U06

045522
1'152116
042105
"51121
858103
042526

011J461
052522
04111440
047117
1120125
0""t14

044440
052120
020124
1120197
0425 t4

!MU 7 1

.ucn

IIlKl1 IITIlU'UO AT WRONC CPU LEVELl

IH1212
011220
IHI226
1!131234
011242

042447
,,52111
047104
052195
"45522

851122
82"047
1152047
044449
05! IllS

041040
044504
05144"
02"11&
"0"

EMUIII

.lscn

I'ERR BIT" DIDN'T .ET IN RKERI

011247
011254
031 262
0)1270

110
,,4244"
942111

051117
04204111
020124

[MUll

.lsell

IHE Oil ERR OIOI'T SETI

042~23

820105
051122
023SIb
030124

Bl1274
"11382

1145522
1147522

0511 05
"0"122

042440

[IoIU21

._sca

IRKER EIlORI

8)1386
8)tH4
"31122
0)13)0

054116
020124
052041
IH'0

820103
04451'14
051440

044502
847104
052105

!':Mllll

._SCll

INXC BIT DIDN'T SETI

9)1331
03t336
IllIH4
"lU52
"31360
031366

122
044504
044440

030511
047104
"52116
0474411
052106
090122

02"061
052"41
952522
029116
042440

PlIHI

._scn

IRK 11 DION"or t"TIIUI'T ON son [RORI

"~21211

041';21
041522

"'ACYl I 27(1006) 1"'-0::T .. 16 1'196
EPROR "'!SSAC!8
22-SEP·76 1-19147

~AT"OEC-II-OZRKK-!)
DZR~YD. PI 1

PAGe

12'

f>~9<l

~Q'H'
(,'l,jl

&""2
6Q?'1
I.Cj;, ~

691'5
\>90"
';-J ill ,

6'l"S
691'19

1)91 "
69\1

6H2
691 ]
6914
6915
r, ~ 1 b

6917
6H9
1>91 ~
691.1
6Q'I
6972
69H

69H
6<l1~

6926
6q2 7
6919
£d29

031372
031400
"31406
"'11414
11)1422

842'i15
051524
"'46522
051127
0.'1';23

1"2"13"
844441'
05211&
IH71t7
0515"')

1144502
041516
020104
026507
e00

!MI lSI

.lScn

IMU BITS INCfU(NTO WRONG-RKCSI

IHt427
031434
031442

127
052111
051101

85152"
041440
000

047040
942514

EMI171

.lScn

IWPS 1I0T CLEAIII

11)1445
031452
0H460
011 466
831474
IHtS92
0H510

052191
9511 17
051124
051105
82"'115
1152040
1J00111

020101
047440
947101
041040
0445114
020117

E1414111

.lScn

ID_TA EIlOR 01 nIllSF!:R 'ROM DUK TO TTYI

920116
04)\ 21
047512
04S521
052114

044522
050940
052116
02U124
047111
042524
0281 t7
047440
842510
843114
045522
000

020126
042522
020054
047516
044504
090104
052502
020116
028122
047449
0]9M5

!Mt4l1

."SClI

"DRrY I' PRESENT. BUT NOT INDICATEOI

EM1421

• ASC I!

I NO

1l115t4
0J1512
IH1510
9)15"
031544
031552
"31550
1131 566
031574
031&02
931610
031616

A~1105

1.'421'l47
023443
8'2SH
9'52'502
0201H
04050)
047040
054523
0521 17
A405Hl
"201~6

IIH065

Bun ON OTHER HH' 0' Rl<-05P'1

6Q]1tl

6911
6<112
69Jl
6934
&9 JS
6936
6'117
&9]8
6919
6940
6941
6942
"90
6944
6945
6'146
6947
6948
6'l49
1;9'i8
69'i1
6952
6~~ )
6~i4

0H~2(

.EVEN
.SBTTL

E"ROR DATA POINTERS

~]t622

~"'111 b

001162

08"000

OTll

.!oIORD

S!:RRPC. e RtG0 of!

03163'"
011 61&

"01 tl6
"083"0

01.11162

801154

DT21

• !oIOI>O

IERRPC. $REOII,IREGI, •

0lt640
tlHb46

11101116
1-1"'ll,b

Itlll) 162
"1II117\)

""1164

DT11111

.WORO

SERRPC. SREG0. IREGt .UEC2. UFG3. 0

1111654

",,'I I 16

"0\1001-1

OT211

.!IIORD

S[RPPC.Iil

011660
1'11666

01'111 "
""'11 ~I;

;.'1"1 lb2
"0000"

"'''1164

OT2&1

.!oIORD

SEFlRPC. a!tECI, Ue:Gl. n!G2.1!1

0111172
"3170.,
0317"6

0"1116
0111 100
"''' 1114

0"1) 62
1t"'1170
Mill'"

001164
081172
"91200

OT541

.WOPO

&!RRPC:, IREG" •• REGI , 'PEC2. SIII':(;) •• PEG4 •• REG5 •• REG6 •• PEG1 • Ii!

0000'1!

SEQ 1"143

IIACYt I 27CUII6) .4-0CT-76 16,11' PAG! 127
IIUNDEC-,I-DIRKIf-O
ERROR nATA POINT!RS
n-SF.p-76 08,47
OIRKKD,PIl
695'5
69'56
6q!l7

0Jt714

IHI III 000

nt7l6
0)1724
0)17)2
,U1140

"28040
0'5104'"
1920104
04159!1

0415210t
04]505
020040
042116

028040
842191
051040

0)1745
011752
0)1160
011766

040
020040
052103
041'51'15

0591'140
042440
020040
04212b

83177)
8)2000
832006

940
821'11'140
842126

832011
032016
8)2024
012012
0)2040

040
020940
020in
04251 )
051040

051040
020040
020122
1<153513

III 2 ,,,.,

020040

IH2"'5)
032"'60
032t1l66
IB2014
(1132102
1132110

til 4"

05150]
045522
020040
001'1

012111
1112116
.. n124

040
020940
051504

0)2127
1132134
1132142
0)2147
11)2154
032162
(1132110

SEQ IIU

6~!l8

6959
6960
6961
6962
(96)
6964
6965
6966
6'167
6968
6'169
6970
6971

6n2
6973
6974
6975
6976
6oJ77

6919
6919
69"'"
f;9AI
691]2
69Al
69114
6985
69116
fd~l

691j1!
6'1R9
1>'l90
6~91

6'192
699)
6994
6'1'15
6H6
6'191
6998
6999
7"0"
'''01
1\'02

.SRTlL

IRROR HEADER.

OM2.

.Ascn

A!GADO

'Ke'DI

020101
.. 50110
0511140
01110

DK4.

.ASCI!

EXPCT

!tI£CtOI

050040
0!1U'40
"00

02011H
841505

OM5.

.ASCl!

RECVDI

05004~1

020103
0U513
051040
020040
0100181

DM14.

• ASC II

RICCS

!tn.

RKWCI

"4152~

090

"H211

.ASCII

050'411
020040
020"40
051105
045522

02(OJU)
045522
020040
02"'!!lUi
051504

DMHll

.ASCII

RICCS

AKER

RKDSI

1150(1140
020"40
1100

"'20103
045522

nM14'

.ASCIl

RICDII

040
02004",
til4H ~!

050040
"42521
;151124

020103
11126503
000

nH)!i1

,Ascn

SEC-CIIUI

~50e4"

02011")
"'51120
041040
.,52116

011)61

.lIscn

PC'

PII'.!

MaT-CITI

020940
021"24
041455

nH4"'1

.ASCII

SEe'!o~

.ICDSI

""'" DH441

.ASCtl

IIKC.;

RI(ER

020~40

Olhl

70~1

<'n176

1<140
020"40
047123
952110
Vl00

1004
''''05
1006
7"A'
''''08

1112117
113:>2"'4
IH2212
,n2220

<'40
"20940
941524
045522

11J'5"1'40
051440
010122
051504

02010)
041505
82"041>1

10t0

012225

1'140

11J5011'411

02"'1")

H.H

PCI

- MIiCYl t 27(1006) 04-0CT-1. 16111J6
~A I tilln: -11-D1.RKK-D
EPIlOIl HEADERS
12-SEP-76 09147
DlRklW.PII

11;),1
7"12
7013
''''14
7iH 5
lAIf,
7kll1
7019
1019
1020

1112232
0)2240
01224t.
011254
0372f;2
113221,1

020040
e20121
Pl4251J
"51041/1
021'11140
"''''''Ii'll

051040
142004'"
,,23122
042111
05104'"

041511
1151040
nll"40
1'12'12)
0UIU

:'I20~41'1

0415211
1145522
020t1l41'l
11200414
0'51504
045522
1'14204",
0271'5f;
1'1)61'156
042101
1152523
,14159"1

1130"4"
05150)
0455;'2
03'''40
02004101
040504
053122
041456
11151504
0'51522
027122
090

RKDS

AKDII

PIGE 12.
SeQ 0145

OM'54.

.ASCIl

AICI

Rnll

11K OS

AKDA

''''2'J
711}eI
,,41'1 11415214 0200.11 DM561
113241'11
"SUitS 041520 020072
'''32 012406
1112414 0S1104 "'70043 1120040

.UCII

PC'

Expe. DItI

SUP

SEC

.~SC:I1

PC:

IIIUIC'

RICDAI

,lISCIl

SECT!!

EXPC!

RECVDI

EX.CT

RECVD

DSII-AIJPSI

7~11

''''22
1023
71121
7"25
''''6
7021

,,,,R

IH2272
812300
012)0&
03731.
032322
,,323111
012336
032144
032352
('13236111
0]2361>
1112374

"20114111
02004~

list I 115
1'145522
11120"'40
0200414
027043
0461 JI
026511
11:171176
051456

""11

7~n

054503 020114 0211"40
'"H 032422
1!I124311 0201140 052523 020122
7.!1.!~

7.'-16
71')7
""111
70J9
704"
784\
7042
11141
1044
1045
10411

012436
1112444
")2452
1132460
1')2466

19151
1iJ52

"41~05

051441'1
1142522
051 t04
954593
0208411
020040
11J'II)103

05310J
020043
020114
05252)
0211104'

032502

1'120040
11)20"40
02111112
!'I20111.VI
021""140
02"122
11)4252]

11J250t.
1'132514
1'32522
('ll2510

0200416
02001411
1'12"041ot
011P1 HI I

041520
045522
051040

02004"
041537
II)42tH

"J2546
011554
IIJ251>2

02~122

11121""40
'2"124

854111J5
020140
11J08104

032414

Ofl64 1

'''4'
70\8
tIlH520 02004O OH661
''''49 1131512 0211104('1 "U5H
,.,50 11125411
052101

10~)

71154
''''55
1115b
11<151
701511
1059
7 AU
111'61

7d61
7"'6 )
1il164
HI65
1 ~66

02"'04~

II1157"
032576
0J260.
i'32b 12
01211211
0)2626

841520
1'14?522
"211~4"

1'12111'1411)
02"'124
"5111'1)
1'145521
111'1'12 J

85)11113

1U1521!

'HI115
02011)40
11201114
1iJ4045'5

0".04.
841520
"425H
042040
.,51104

OH671

• asCII

PC:

OM141

,,,sell

I'HI ~i'li

• Asr l1.

1'1)21>]\1

II 2 fll? 4 lot

032&)6

020040
"53111

lit I 521'1
021'11!14111
02144.'

020040
115111'14

1132b44

11321>51

~1f0

I"SIP."

02111(1)

DRIV '1

Q'00

WORD •

EXPCT

IiFCVPI

DRVI, •• ,cn, <DSK-AOIIS> .SUR, • ~£C l

ueVl DR'

Cn.

SUP

SECI

!lACYll 2HUUt6) 84-0CT-76 16106
MAINDEC-l1-0l RKK - O
2?-SEP-76 0A147
[RROR HEADERS
DlRKKD.Pll
7067
7068
7069
7070
70'71
7072
7071
7074
70175

7076
7871
7078
7079
7890
78111
7092
71983
lilA4
7095
7086
71:1,,7
70118
7i!89
'''90
7-091
7892
71/193
1094
U9'i
7096
7"'91
7098
7099

1100
7101
7102
710)
7104

11)2656
032664
032672
03170"

1'153448
020841
841526
842522

851117
02"048
821'124
051lill

828184
1154105
8201140
808184

032106
IU2714

028040
0518411

041528
042511

828840
8"0122

DHlilll

.Ascn

012722
1132730
0)2736
")2744

020040
851040
020048
8.0123

"41528
1141585
85111.8

820940
842126
841511

DH1"'41

• ASCII

012746
IH2754
032762
832770
032776

828il48
1128040
828"40
841'i28
042522

"4152~

028040
041511
854185
820041
.00184

DHhl71

046040
!!I28848
828124
1!153UU

0)]004
033012

820040
1151040

041520
041513

028040
00012J

0)3028

1'120040
8201'40
020114
11141'513

041520
8.2514
820040
"""123

0)]104

0200419
0201640
020123
r11425 1 3
1'151122
01'10

0B105
B33112
9H120
013126
033133
"H140
013146
IH]154
I'IJ3162

!>AGE 129

SEQ 0146

RnRI

RECVD

RltC"

• ASCII

LOC

IIPCT

DH1l11

..lscn

RltCSI

02084"
042n6
051040

DII1261

.lSCII

LETEL

Rlte.,

0tl520
051040
02"040
0201'22
1J41040

02"8'0
0415U
0510 ••
04244"
052111

Oll1l01

.lSCI!

RKCS

RKIR

040
020041')
051503
045522

05""'4"
020040
020040
05111115

02"11J3
045522
020040
000

DHUlI

.lscn

flKC'

RKERI

050"'40
.201640
021'104'"
1151105
045522

020103
045522
920040
02004.
04"5'4

DM1B.

.ASCI!

RttC:'

RItER

RKOAI

Anl1"

040
020('140
1'151503
045512
0200411
JI"0

"'31171
0H176
011204
013212
11112211
BH221>
I'IH2H

040
020040
1'152HH
041505
112004"
020040
05151'13

0511040
1942440
1120"40
~421 '26
045522
020040
"00

92.1")

DMI401

.ucn

EIPCT

RECVO

USA

05811"
0St840
028040
040502
045522

Inl~26

0330)4
"))042
0U046
033054
1'1)062
IU)0'70
0nW76

REC'DI

ERI! BITI

11,,5
7106
1197
710'
71e9
7110
1111
7tt2
71tl

1114
11 15
1116
71 I 7
7118
7t 19
7120
7121
7122

03324'"

• EVE.

MAiNDEC-II-DZRKK-O
MA~Y11 27(1006)
B4-0CT-76 16.06
D!RKKO.Pll
n.s!o:p-76 PlR: 47
IRROR HEADERS
712]
7124
7 I 20;
7126
7127
1129
1129

1'1 H 240

001'!409

OU18ur: • BLKW

PlGt 1)0

256.

SEQ 1"141

,!HII 256 WORD RUrrER IS rOR
,OUl TRANSFER' FROM AND

,to THE DZSK.
01'10"01

flKCSI

.END

MACYlI 27( tel'6) 1'14-0C"·"6 16106
MUND£C-1I-DZPICK-0
SyMBoL TABLE
22-SEP-76 88147
OZIIUD.PI I
• 00001'5
CII
CIIUAN 02l.JU
•
0002fH1
CPL"
DOySP • 177570
001410
DOPCH
DELAY a 184417
DELA.Y 021'572
032651
DHt0"
01210&
OHl111
012122
DHI04
0]2146
DHtI,7
DHIl7
8ll0'4
111]]0211
DII126
OHIl0
8:n046
DHIlI
813105
DHlll
033133
OH14
812'tl
0])171
DHt40
DH2
011716
O32046
DH2!
OH30
032053
OH34
03211 I
032127
Dh35
DH16
IU2147
DH4
011745
032177
DH40
DH44
012225
DH5
031773
DM54
012272
DM56
0U401
DH64
0U500
DH66
1132512
DH67
1I1257!l
0]261r.'!
DH74
DtSPLA 001142
DUPIlE 000114
DHE5ET O21412
DRHOLD 025200
DIIJVAO "1I1l50
DArYl
"01412
DFlIVII
001414
DRTVt
081416
DRrv2
001420
DFltV)
001422
DRIV4
001424
ORIV5
8.1426
DIlIV6
001410
DRJV7
0111412
DFlVnON 00U52
D~VPTP
0111)54
OSW~
a 171570
0)1622
OTt
DU
03161tl

BADINT 0114526
8ADTIII0 004462
1J2h102
80AR
020764
BDU
11120774
BOU
BIT ... • 000001
8ITil8 • 0001101
BIT'" • .. 8111,,02
8IT02 • 800004
BITe] ·1I1J1f0111
BIT04 • 0"00211
BIT05 - 0110048
00tUI'll'J
BIT06
BIT81
8"1112"0
81TII8
01104"0
001"00
8ITII9
800002
8ITt
802000
BITle
81TH
8ITI2 • 0le000
BITt) • 020"00
BITU • 040000
8nlt; • 10"""11
IUT2 • 000"0.
800010
BIT)
000;120
BIT4
BITS "' 0.,fI.,.0
IHT6 • 080100
8IT1 • 000200
BIT'!
"' ''''840''
0fll000
8IU
BPTVEC'" 000014
8RKO.0- 104415
8RI(o""' 104416
017714
BTf"OP
021150
CHEI
CHKCCL 02Ute
CHKCROO: 104412
CHICOI
02117'"
021170
CH~OU
CHKF;CL 021264
O21250
CHKEP
021142
CHICIlE
CHKHEI ..,21134
('HKitC
e2t 224
CM.CIID 02166~
CICSIIR '" ,Iot4487
CHT.RD- 104414
C:NT.IIE~ hl4411
CN.ROY ~2'748
CN.RST 1121722
COUNT
"'"UU
COUNTI .Ioftl64

····
·•

• 011"' '1' '

··
·

811640
OT20
011654
OT21
111166£1
0126
0]1672
OT'54
8.1171J
EFLGI
EMTVEC· 808.10
EIoI101J
027654
021677
£11101
1127741
EII102
827165
EMtI"l
01000]
EN104
EMIIIS
0311054
EMt86
8l01U
II.:M107
01"143
025266
EMU
EM11(1
(lU2U
0311241
EMttl
EM112
018274
EMUl
IUlun
030354
EMU4
0304lJ
EM115
030447
EMU6
0)0522
EM117
025]00
EMU
030561
EM120
fJJ0642
EM121
[14122
0:187"0
018147
EMUl
0)1006
EMU4
EM125
.lU5"
031107
"14126
EM127
831150
EMU
e253U
EMil"
'lt212
EMUI
')1247
Elfl32
011274
EN1H
UUII
EIII14
'lllli
111135
.U172
EMlll
.Uta7
EM140
1Jl1441
t:Ml41

.31514

EMIU
EII16
EII21
EM3.
I!: 101 1 1
EM32
EM31

.U5'0
'2531'
025354
825366
.25)76
U5486
025427
O25447
1125466
125521
835551

flol34

EMlS
EM16
EM)7

MACHI 27(006) "4-0CT-" lbl06
MAtNOEC-II-OZRU-O
SYMBOL TAiU
DZlllfltD.PI I
22-SEP·76 1J11141
51117

SW",
SII09
5111
alii II
SWIl
SII12

TST21
T5T22
T5T2]
TSTH
T5't25
TST26
T5T27
TST)
TST)i!I
TSTH
'ST12
TSTU
l'ST34
TSn5
TST)6
'5T37
fST4
fSU0
TlT41
T8T42
TSTU
TSTH
TST45
TST46
TST47
TST'i
TST50
TST'51
TSTS2
TST5]
TST54
TST55
TST!l6
Un7
T5T6
TST7
TYF:RM
TYPOS •
Typ!: -

• ''''828''

= '"'1'4'''''

,. 0A100(!1
'" 00001f2
,. 0"2'''10
a ""4"'''''''
- 01"000
swn • 02"'000
8l1li14
.. 041",.,0
SWt5 • 1"0000
SW2
"' ""0004
SW)
0: 0.,0010
z .,QlP;121'1
SII4
SII'>
:0 ",000140
SW6
a 90"10'"
IIW7
a 00"'2~0
SW8
• 001'1400
SII",
- fJ011J00
TBITH- "a0014
.. 01161i
TIIIEII
TKVE(' - 000~60
TPVEC ,. 000064
TRlPVE- 0011014
TRTYf"C- 001'lIeH4
TSTENO fJ205H
T'TRiliS 021144
TSrsrN 021509
TaT.IU- 104121
TSTI
004614
TaTIa
1f051> 7"
TSTtl
0"S7'l6
TSTI2
0061.'112
rSTI}
""'6160
T8TI4
01f6]2i
TS'II'5
006416
TST16
006654
TSTt7
007102
T5T2
""4766
TST2"
I'lfn412
•

A!:IS.

8]4240

0117610
0ltl862
0t0U2
019712
fiJI 1)22
011n0
012158

"'.ltl4

0U4)f,
812672
01 )1116
01U44
11113826
0141.4
O14316
014562
""5276
014'776
0152'2
015364
015472
1115646
0160'4
016212
O16364
!l05)64
016542
,,16670
017042
O112)6
017!UII
017666
fl17712
017762
005412
00545.
0207)4
104405
104481

1'1"0

[PROFIS DETECTED 1 I!J
DE'lULT GLOflALS GENERATED'
DZP"CO,DZPK~O/LI '''F;/ffLI MC 1"0 I C:ffD/SOL/NSQ.,DZRKKO. PII

Rl/ff-rIMES 0'> 62 I srCOffD5
IIUff-TIlilE IIHtl)1 505/U0a).R
CORE US II.: 0 I 2411: (47 PAGES)

PlGE In

SEQ 0148
02560'5
02'564'5
EM4I
02'5782
£'44)
3257)4
EM44
026818
EM4'5
026056
EII46
f1I26114
EMU
il26156
£11450
02628'5
tM51
02626111
£M52
IJ2Ull5
EMS)
"26358
EM54
1126442
EMS5
026521
EIoI56
826560
ENS7
826616
E'I60
026655
EM61
026712
EM62
026724
EMU
026770
EMU
027/Ul
E"65
[M66
027077
0271)6
EM67
F.M70
027151
EM71
027242
027320
E!H2
027362
EMU
827434
EM74
827504
EM'"
O27554
EM76
027611
EM71
ERRVEca 0'8"04
rCHECK 025056
0014.4
,,"LAG
.. TITLE 001348
GTSIIR • 104486
028716
GT2RG
GT1RG
028718
CT4RG
020702
a 000011
HT
00U56
tHOX1
O81)60
INDX2
IOTVEC:. 00002.
L,.
• 8"0012
MSGt
0.1216
M5G2
0"12)6
MSCl
O01245
MSG4
"'01272
MSG5
0"1303
MSG6
001315
004766
MUDRY
ODDEn 001486
OUTIU' 033241

PUTR" "'046]0
PRYDAV 001436
PIIIQ - 177772
PIRQVI- .0024fJ
PR8
• 88"018
PRI
• "08Q140
PII2
• 0""108
PiI1
• 000140
PR4
808280
PR5
0IJU40
PII6
• 800)00
PR7
• 80iJl40
pa
• 177776
PSW
• 177776
'WRVEC. 0"14024
RDCHR • 104410
ROLIN. 104411
RESVEC. "'000'"
001])6
IlKBA
0i11112
FlKCS
001 )40
RKOA
RKDB
001142
RKDS
"'''1126
RICEFI
0"lH0
001400
RKPRI
001402
RICV!C
RKWC
001H4
R6
.'000006
R7
""0000"7
SEEK0
0"1172
001374
SEEKI
SEEK2
001376
SH"TAT O21106
001144
SIMUL
O25202
SIZEr
SInET 081440
STACK. 081100
0026]6
START
START1 0"3262
$TnMT. 177774
003664
5T2
8Tl
"04210
0044..,4
8T4
511R
001140
SWAEG
0"176
SWII
• 1108001
SII"0 • 0""fl01
008002
5'"01
5N02
000804
0110010
SW0J
811.4 • 0"'0020
51105 • "8004'
81106 • 0"0100

0f11120
001124
020636
02)7)0
0"811"
'811f4
025840
0'1 U5

001176
.REG6
""1200
'REG'
.RTUD 020660
es_VR6 025"44
esc OPE 022046
UE"U'. 0"0117
UfU' • 177777
UVLAD 1122254
.SVPC • 000204
UWR
165400
UIIRMlC- 000000
UIMES '01286
.,01146
ITK8
101144
irKS
UN
• .00960
UP8
.81152
IrPrLG 0'1157
UPS
001150
nRAP
.24514
ITRAP2 024616
URP
808022
URPAD 024630
UnlM 0.1182
nTYIIf 024516
nYPDS e:l3206
022766
tTYP!:
UYPIC Il2U16
UynX 02U04
tTYPOC 021456
ITYPON 023472
UYPOS 0:23432
UTS'!'R 0221160
"GETh 0'U'8"0
I0fILL 0a3655
• 014240

[11440

··

PlGE III
SEQ 0149

TYPOC· 1844"2
TYPON
1114484
TYPOS
1044'3
T56
0211'46
T56FLG '"414
IIATIME '21651
WA7INT 021114
WAf. It. 184421
IlU,.O, "'lilt
nOAD. 801122
.8DDlf "'1126
'CHARC 8:2328a
.CU".. 02]66.
.CMTAG 1101188
080.12
ICMI
.eM2
00"824
.CM3 • 000012
'CNTLG 8245411·
.CNTLU 824548
.CRLF
"01211
,0llLK
823422
'OOAON fJ206156
,DTBL
023412
IENDAO 020646
.ENDCr 020614
.tNOMG 020665
UNULL 0211662
1E0P
82016"
.F-OPCT 020686
.EIIFLG 0011113
HRMAX 001 itS
IERROR 022320
e!RRPC 801116
URRTB 001442
*ERRTY 022632
IERTTL 0"1112
UaCAP 001210
trILLC 1'101156
trILLa 001155

·•

.C01DR
.GDOlf
'GnU
.GT'tlR
,HD
•

IIcn

ULLUP
.UTAG
.ITEMB
.LF
'LPADR
.LPERR
~J.:::tI

0.1114

801214
0011ft6
001110
,MNEW
02456)
II4SIIR
024552
'MXCNT 022316
,NULL
00115.
INlfTlT • • 00001
021654
'OCNT
IOMODI!: 021656
.ovla
"22J02
"ua
00110'
'PO"tR 1125.46
"WRAD 025014
'PWRON 0246'74
.,lIaMG .258)0
'PWRUP 024746
,QUEa
001212
.RDCHR 024142
'ROLIN 024262
,RDS! • 000022
.REOAO 0011611
,REO.
"01162
SREGI
081164
'REGU 001202
.REdll 001204
eRIG2
001166
,REC::'
"01170
.REGiI
0.1172
'REGS
0.11 "

·
•