Digital PDFs

AC-9244F-MC

June 1978

88 pages

Original

11MB

Document:	CZRKKF0-RK11-Basic-Logic-Test-2 Jun78
Order Number:	AC-9244F-MC
Revision:	0
Pages:	88
Original Filename:	http://bitsavers.org/pdf/dec/pdp11/xxdp/diag_listings/RK11/AC-9244F-MC_CZRKKF0-RK11-Basic-Logic-Test-2_Jun78.pdf

OCR Text

MD-11-CZRKKF. RK11 BASIC lOGIC TEST 2
CZRKKF.P11
21-FEB-78 08:51

MACY11 30A(1052J

21-FEB-78

08:58

PAGE 2

.REM %

IDENTI FICATION

PRODUCT CODE:

AC-9244F-MC

PRODUCT

CZRKKFO RK11 BASIC LOGIC TEST 2

NAME:

DATE CREATED:

JUNE 1978

MAINTAINER:

DIAGNOSTIC GROUP

AUTHOR:

JW KAPADIA

REVISED BY:

PERVEZ ZAKI
TOM SAWYER
CHUCK HESS

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO
CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS
A COMMITMENT 8Y DIGITAL EQUIPMENT
CORPORATION.
DIGITAL
EQUIPMENT
CORPORATION
ASSUMES
NO
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEP:-' IN
THIS MANUAL.
THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED
TO THE PURCHASER UNDER A LICENSE FOR US: 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 RELIASILITY OF ITS
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
DIGITAL.
COPYRIGHT (Ci 1975, 1978 BY DIGITAL EQUIPMENT CORPORATION

SEQ 0001

MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2
ClRKKF.P11
21-FEB-78 08:51

MACY11 30A(1052)

21-FEB-78

08:58

PAGE 3

QUICK LOOK-UP OPERATING INSTRUCTIONS
FOR A QUICK REFERENCE, LOOK UP THE FOLLOWING SECTIONS:
1.0
ABSTRACT
2.0
REQUIREMENTS
4.1
LOADING AND OPERATOR ACTION
7.0
SWITCH OPTIONS
FOR A MORE COMPLETE EXPLANATION REFER TO THE TABLE OF
CONTENTS BELOW AND THE FOLLOWING DOCUMENT.

2.2
2.3

TABLE OF CONTENTS
ABSTRACT
REQUlfi._MENTS
EQUIPMENT
PRELIMINARY PROGRAMS
EXECUTION TIME

3.0

STARTING ADDRESS

4.0
4.1
4.2
4.3
4.4

PROGRAM CONTROL MODES & OPERATOR ACTION
PAPER TAPE
RKDP DUMP MODE
RKDP CHAIN MODE
ACT11

5.0

DRIVE SELECTION

6.0

DRIVE-LESS TEST

7.0

SWITCH OPTIONS

8.0

SCOPE LOOPS

9.0
9.1
9.2

PROGPAM STRUCTURE
SET-UP PHASE
DRIVE DEPENDENT CONTROLLER TESTS

10.0

ERROR REPORTING

11 .0

ERROR INTERPRETATION

12.0
12.1
12.2
12.3
12.4
12.5
12.6
12.7
12.8
12.9

HANDLERS AND COMMON ROUTINES
TRAP HANDLER
SCOPE HANDLER
ERROR HANDLER
CONTROL RESET ROUTINE
CONTROL READY ROUTINE
DRIVE RESET ROUTINE
TIME DELAY ROUTINE
WAIT FOR INTERRUPT ROUTINE
OTHER ROUT! NES
TTY HANDLER (I/O), ERROR TYPEOUT ROUTINE
POWER DOWN/POWER UP ROUTINE

13.0
14.0

UNEXPECTED TIMEOUTS & RK11 INTERRUPTS
QUICK VERYFYING MODE

1.0

2.0
2. 1

SEQ 0002

MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2
CZRKKF.P11
21-FEB-78 08=51

1.0

MACY11 30A(1052)

21-FEB-18

08~58

SEQ 0003

ABSTRACT
THE RK11 LOGIC TESTS CONSIST OF A SERIES OF TESTS
AIMED AT CHECKING THE BASIC LOGIC OF THE RKi1
CONTROLLER. THIS PROGRAM IS THE SECOND PART OF THE
TWO-PART RK11 LOGIC TESTS. IT SHOULD BE NOTED THAT
LOGIC TEST I AND LOGIC TEST II TOGETHER CONSTITUTE
A COMPLETE PROGRAM AND BOTH OF THEM SHOULD BE RUN.
WHEN USED IN CONJUNCTION WITH A DRIVE IT IS
OF DETECTING FAULTS IN THE DRIVE ALSO.
USED CORRECTLY THIS PROGRAM CAN
ANALYTIC AND DIAGNOSTIC TOOL.

2.0

REQUIREMENTS

2.1

EQUIPMENT

A.
B.
C.
D.

2.2

CAPABLE
EFFECTIVE

PDPi1 WITH CONSOLE TELETYPE.
BK OF MEMORY
RK11 OR RKV11 CONTROLLER
1-B RK05 OR ~K05F DRIVES OR THE RK05 SIMULATOR
(DRIVE TYPES MAY BE MIXED)

PRELIMINARY PROGRAMS
RK11 BASIC lOGIC TEST I (MD-11-DZRKJ)

2.3

EXECUTION TIME
ERROR FREE FIRST PASS ON PDP11/20 WITH CORE MEMORY
TAKES APPROXIMATELY TWO MINUTES. CONSIDERABLY LESS
FOR FASTER MACHINES OR MEMORIES.

3.0

STARTING ADDRESS
200 FOR ANY MODE OF OPERATION.
ALL SWITCHES DOWN.

4.0

NORMAL START UP ~ITH

PROGRAM CONTROL MODES & OPERATOR ACTION
PAPER TAPE LOADING
RKDP DUMP MODE
RKDP CHAIN MODE
ACT11

PAGE 4

MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2
CZRKKF.P11
21-FEB-78 08:51

MACY11 30A(1052)

21-FEB-78

08:58

PAGE 5

4.1

PAPER TAPE LOADING

4.1 .1

LOAD PROGRAM INTO MEMORY
FOR .ABS TAPES.

4.1.2

MAKE SURE THAT THE DRIVES TO BE CHECKED ARE LOADED
WITH DISKS AND ARE IN 'RUN'. 'WRT ENABLE' THEM.
CHECK THAT 'WRT PROT' LIGHT ON THESE DRIVES IS OFF.
PUT DRIVES THAT ARE NOT TO BE TESTED ON 'LOAD'.

4.1.3

LOAD ADDRESS 200

4.1.4

SET SWITCHES IF DESIRED (SEE SEC 7.0) IF TESTING
SIMULATOR PUT SW<10> UP.

USING

STANDARD

PROCEDURE

PRESS START.
4.1.5

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

NO),

DRIVES TO BE TESTED?
THE USER SHOULD TYPE IN THE DRIVE NUMBERS THAT ARE
IN 'RUN' AND TO BE TESTED. CARRIAGE RETURN SHOULD
TERMINATE THE STRING. IF AN RK-05F IS TO BE TESTED,
TYPE THE SUFFIX 'F' WITH THE FIRST DRIVE OF THE PAIR.
FOR EXAMPLE. IF DRIVES 2 AND 3 ARE ON AN RK-05F. TYPE
ONLY 2F.
EXMP:

DRIVES TO BE TESTED? 0,1,2<CR>

THE DRIVES DO NOT HAVE TO BE IN LOGICAL ORDER.
EXMP:

DRIVES TO BE TESTED? 2,4<CR>

IF ANY ONE DRIVE IS TO BE TESTED. TYPE
NUMBER. IT DOES NOT HAVE TO BE DRIVE O.

THAT

THUS A NORMAL SEQUENCE WITH DRIVES 0,1 WOULD BE:
RK11 BASIC LOGIC TEST 2
MAINDEC-11-CZRKKF
DRIVES TO BE TESTED? 0.1<CR>
4.1.6

THERE IS A "RUBOUT" FEATURE WHICH ALLOWS RUBBING OUT
A·NY NUMBER OF CHARACTERS THAT WERE TYPED IN WRONG.
THE RUBBED OUT CHARACTERS ARE ECHOED BACK WITHIN
SLASHES.
·~U·

DELETES THE ENTIRE LINE

SEQ 0004

MD-l'-CZRKKF, RK11 BASIC LOGIC TEST 2
CZRKKF.P11
21-FEB-78 08:51
4.1. 7

MACY11 30A(1052)

21-FEB-78

PAGE 6

08:58

SEQ 0005

IF REPLY TO ANY OF THE ABOVE QUESTION IS IN A WRONG
FORMAT (EX! 012<CR>jO,8<CR>; O,A<CR>; M<CR> ETC), IT
IS AUTOMATICALLY REJECTED, A "11" IS PRINTED OUT;

THE CORRECT ANSWER CAN NOW BE RETYPED AGAIN.
4.1.8

THE DRIVE NUMBER BEING TESTED OUT IS PRINTED:
DRIVE ~ ;N=O,1 .•• 7
IF THE DRIVE IS AN RK-05F. AN f IS APPENDED
AT THE END Of A PASS THE FOLLOWING TYPE-OUT OCCURS
END PASS # X
WHERE X= PASS NUMBER (1,2,3---). CONTROL IS PASSED
TO THE BEGINNING OF THE PROGRAM AND RE-EXECUTION
BEGINS. NO QUESTIONS ARE TO BE ANSWERED AGAIN.

4.1.9

ERROR FREE PASSES OF THE
BELOW.

PROGRAM

APPEAR

SHOWN

THE

RKDP

RK11 BASIC LOGIC TEST 2
MAINDEC-11-CZRKKF
DRIVES TO BE TESTED?
0,1 <CR>
DRIVE 0
DRIVE 1
END PASS II 1

DRIVE 1
END PASS Ii 2

4.2

RKDP DUMP MODE

4.2.1

THE PROGRAM IS LOADED INTO THE MEMORY
MONITOR

4.2.2

START AS NORMALLY USING SA 200

4.2.3

THE PROGRAM IDENTIFIES ITSELF (NAME,MAINDEC NO.).
ON FINDING our THAT THE LOADING WAS BY RKDP (DUMP
MODE), THE FOLLOWING MESSAGE APPEARS:

'TO TEST DRIVE 'N' HALT PROGRAM, REMOVE RKDP PACK AND REPLACE IT
WITH A WORK PACK, CLEAR LOCATION 40, AND RESTART PROGRAM'
IF DRIVE 'N' IS TO BE TESTED, THE RKDP

PACK

THAT

'--

MD-11-CZRKKF. RK11 BASIC LOGIC TEST 2
CZRKKF.P11
21-FEB-78 08:51

MACY11 30A(1052)

21-FEB-78

08:58

PAGE 7
SEQ 0006

DRIVE SHOULD BE REPLACED BY ANOTHER PACK. THE DRIVE
SHOULD BE PUT ON 'WRT ENABL' (BECAUSE RKDP WRITE
PROTECTS THE DRIVE).

4.3

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

CHECKED,

AFTER THIS, THE SEQUENCE
EXPLAINED IN SEC 4.1.5.

THEN

THE

QUESTIONING

MESSAGE
IS

RKDP CHAIN MODE
THE PROGRAM IS CHAIN-LOADED FROM THE RKDP PACK ON
DRIVE 'N'.
AFTER THE PROGRAM IDENTIFIES ITSELF THE
FOLLOWING PRINTOUT OCCURS.
'DRIVE 'N' NOT TESTED'
THERE IS NO OPERATOR INTERVENTION REQUIRED.
PROGRAM FINDS OUT THE NUMBER OF DRIVES PRESENT.

4.4

THE

ACT11 MODE
THE PROGRAM IS LOADED BY THE ACT11 MONITOR.
ON
STARTING, IDENTIFIES ITSELF, ASCERTAINS THE NUMBER
OF DRIVES AND PROCEEDS WITH THE EXECUTION OF THE
TESTS AS BEFORE.

5.0

DRIVE SELECTION
IF ANY PARTICULAR DRIVE IS TO BE SELECTED FOR
TESTING, PUT THAr DRIVE ON 'RUN', 'WRITE ENABLE';
PUT REST OF THE DRIVES ON 'LOAD', 'WRITE LOCK' AND
IN REPLY TO THE QUES- TIONVES TO BE TESTED?)
TYPE IN THE DRIVE NUMBER FOLLOWED BY CR.
SEE SEC
4.1.5.

6.0

DRIVE-LESS TEST
USE RK11 BASIC LOGIC TEST I. WHICH IS ACTUALLY THE
FIRST PART OF THE TWO-PART RK11 BASIC LOGIC TESTS.
SEE SEC 1.0, 2.2.

7.0

SWITCH OPTIONS
IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR (I.E. AN 11/34)
THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER IS
NOT PRESENT Ar;~ WILL USE A 'SOFTWARE' SWITCH REGISTER. THE
'SOFTWARE' SWITCH REGISTER IS LOCATED AT LOCATION 176 (8). THE
SETTINGS OF THE 'SOFTWARE' SWITCHES ARE CONTROLLED THROUGH A KEYBOARD
ROUTINE WHICH IS CALLED BY TY~ING A 'CONTROL G'. THE PROGRAM WILL
RECOGNIZE THE 'CONTROL G' WHENEVER THE PROGRAM ENTERS

MD-11-CZRKKF. RK11 BASIC LOGIC TEST 2
CZRKKF.P11
21-FEB-78 08:51

MACY11 30A(1052)

21-FEB-78

08:58

PAGE 8

THE SCOPE ROUTINE OR BEGINS A NEW TEST. THE
'SOFTWARE' SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE
TO THE PROMPT FROM THE SWITCH ENTRY 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. IF THE PROGRAM FINDS ALL 16 SWITCHES IN THE
'UP' POSITION, ALL SWITCH REGISTER REFERENCES WILL BE TO THE
'SOFTWARE' REGISTER AND THE PROCEDURES DESCRIBED ABOVE MUST
BE FOLLOWED.
SW<15>=1
SW<14>=1
SW<13>=1
SIII<12>=1
SW<11>=1
SW<10>=1
SW<09>=1
SW<08>=1
SW<06>=1
7.1

HALT ON ERROR
LOOP ON TEST
INHIBIT ERROR PRINTOUTS
CYCLE ON ERROR TO THE
PREVIOUS
'SCOPE' STATEMENT
INHIBIT ITERATIONS
TESTING ON SIMULATOR
LOOP ON SPECIFIC ERROR
LOOP ON TEST AS PER SW<07:00>
DROP THE DRIVE AFTER MAXIMUM
ALLOWABLE NUMBER OF ERRORS OCCUR

SW<15>
THE PROGRAM HALTS ON ENCOUNTERING AN ERROR, AFTER
TYPING
OUT
THE
ERROR
MESSAGE AND PERTINENT
INFORMATION. PRESSING "CONTINUED RESTORES NORMAL
OPERATION OF THE PROGRAM.

7.2

SW<14>
THE PROGRAM LOOPS ON THE SUBTEST THAT IS BEING
EXECUTED WHEN THE SWITCH IS PUT ON. THIS SWITCH IS
USED NORMALLY ALONG Sill 15. SEE SEC 8.0.

7.3

Sill <13>
NORMALLY
THIS SWITCH INHIBITS ALL ERROR MESSAGES.
USED WHEN LOOPING ON TEST (Sill 14) OR LOOPING ON
ERROR (Sill 9).

7.4

SW <12>
THIS SWITCH ALLOWS THE PORGRAM TO CYCLE FROM THE
POINT OF ErROR TO THE PREVIOUS SCOPE STATEMENT.
NOTE THAT IN DOING SO ANY INITIALIZATION BEING DONE
AT THE BEGINING OF THE SUBTEST WILL BE DONE AGAIN
AND AGAIN. SEE SEC 8.0 FOR DIFFERENT SCOPE LOOPS

SEQ 0007

MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2
CZRKKF.P11
21-FEB-78 08:51

MACY11 30A(1052)

21-FEB-78

08:58

PAGE 9

AVAILABLE.
7.5

SW <11>
EACH SUBTEST WILL BE EXECUTED ONLY ONCE.
NORMALLY
AFTHE FIRST PASS, EACH SUBTEST IS ITERATED A
NUMBER OF TIMES (USUALLY 50, 5 IN SOME CASES).
SETTING THIS SWITCH INHIBITS ITERATIONS, SO THAT
QUICK PASSES CAN BE MADE.

7.6

SW <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.

7.7

SW <09>

7.8

THIS SWITCH PROVIDES THE TIGHTEST POSSIBLE SCOPE
LOOP.
NOTE THATKE SW12 THE INITIALIZATION OF
PARAMETERS AT THE BEGINNING OF THE SUBTEST MAY NOT
BE DONE IN THIS CASE. THIS SWITCH IS HELPFUL WHEN A
PARTICULAR PART OF A SUBTEST IS BEING REPEATED USING
DIFFERENT PARAMETERS AND YOU WANT TO SCOPE ON THE
PARAMETER IN ERROR. (EXAMPLE: RKDA IS BEING WRITTEN
AND READ BACK WITH COUNT PATTERNS FROM 1 TO 177777.
PATTERN 561 IS GIVING ERROR, YOU MIGHT NOT WANT TO
GO THROUGH THE 560 PATTERNS BEFORE HITTING ERROR ON
THE 561TH PATTERN. IN THIS CASE SW 9 WILL GIVE YOU
A SCOPE LOOP ON THE 561TH PATTERN ONLY
SW <08>
TH1S SWITCH IS USED TO SELECT A PARTICULAR TEST (AS
PER SW<00-07» FOR EXECUTION AND SUBSEQUENT LOOPING.
THUS IF TEST 15 IS TO BE SELECTED THE SWITCH SETTING
WOULD BE 000415.
IT SHOULD BE NOTED THAT BEFORE
SELECTING TEST 15, ALL THE PREVIOUS TESTS (1-14)
WILL BE EXECUTED.

7.9

SW<06>
THIS SWITCH ALLOWS THE PROGRAM TO DROP A DRIVE FROM
THE SELECTION
LIST
AND TESTING AFTER MAXIMUM
ALLOWABLE
ERROR COUNT (TOTAL NUMBER OF ERRORS) ON
THAT DRIVE IS EXCEEDED. THE MAXIMUM ALLOWABLE ERROR
COUNT IS 5, AFT~R 5 ERRRORS HAVE OCCURED DRIVE
IS DROPPED AND A MESSAGE (DRIVE # XXX DROPPED) IS
PRINTED.

B.O

SCOPE LOOPS

SEQ oooe

MD-11-CZRKKF. RK11 BASIC LOGIC TEST 2
CZRKKF.P11
21-FEB-18 08:51

MACY11 30A(10S2)

21-FEB-18

08:S8

THERE ARE THREE KINDS OF SCOPE LOOPS AV~ILABLE
1.

SW14: LOOPING IS DONE FOR THE ENTIRE SUB-TEST

SW12:

LOOPING IS DONE FROM THE POINT OF ERROR
BACK TO THE PREVIOUS 'SCOPE' STATEMENT.

SWOg:

PROVIDE THE TIGHTEST POSSIBLE SCOPE
SEE SEC. 7.7

LOOP

EXAMPLE:
TSn:
SCOPE

INITIALIZATION
ERROR 1
ERROR :2
ERROR 3
ERROR'4
TST2:

SCOPE

THE SEQUENCE OF LOOPING FOR DIFFERENT CASES IS
EXPLAINED BELOW.
NOTE THAT 'TST1' AND 'TST2' ARE
TAGS WHICH DEFINE THE BOUNDARY OF A TEST, (IN THIS
CASE TEST 1). TEST 1 STARTS AT 'TST" AND ENDS JUST
BEFORE 'TST2'.
IN THE ILLUSTRATION BELOW --> INDICATES THE POINT
FROM WHERE RETURN IS MADE AND LOOPING IS DONE.
1.

ERROR 2 OCCURS, SW 14 SET.

TST1 •• ERROR 2 •. TST2-->TST1 •• ERROR 2 •• TST2-->TST1 •••
2.

ERROR 2 OCCURS, SW 12 SET.

TST1 ••• ERROR 2-->TST1 ••• ERROR2-->TST1 •••
3.

ERROR 2,3; SW 14 SET.

TST1 •• ERROR 2 •• ERROR 3 •• TST2-->TST1 •• ERROR
3 .• TST2-->TST"
4.

ERROR 2,3, SW 12 SET.

TST1 ••• ERROR 2-->TST1 ••• ERROR 2-->T5T1 ••••

2 •• ERROR

PAGE 10

SEQ 0009

MD-l1-CZRKKF, RK11 BASIC LOGIC TEST :2
CZRKKF.P11
21-FEB-78 08:51

MACY1i 30.11.(1052)

21-FEB-78

08:58

PAGE 11

NOTE THAT LOOPING IS DONE FROM THE VERY FIRST ERROR
ENCOUNTERED.
THE MORE BASIC AND ERROR THE EARLIER
IT OCCURS AND IS DETECTED AND SHOULD BE FIXED.
IN THE ABOVE EXAMPLE NO PART OF THE SUB-TEST [5
BEING REPEASING DIFFERENT PARAMETERS, HENCE IT
SO HAPFENS THAT SW 9 AND 12 GIVE THE SAME KIND OF
LOOPS.
THE EXAMPLE BELOW WILL DEMONSTRATE THE
DIFFERENCE BETWEEN SW 9 AND 12.
TST'! :

SCOPE

INITIALIZATION
ERROR
MOV

#1$,$LPERR

; '$LPERR'
CONTAINS
jTHE ADDRESS TO LOOP
iBACK ON ERROR- SW 9

1$:
I

ER
TST2:

N REPETITIONS
I

SCOPE

1•
SW 12
REPETITIONS

SET.

ERROR

OCCURS

DURING

K.TH

TST1 •• 1,2 .•• K.ERROR 2-->TST1 .• 1 ,2 ••• K.ERROR 2-->TST1 ••
2.

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

;$ .. K•• ERROR 2-->1$ •• K•• ERROR 2-->1$ .••

9.0

PROGRAM STRUCTURE
THERE ARE THREE DISTINCT PARTS OF THE PROGRAM.
SET-UP PHASE
DRIVE-DEPENDENT CONTROLLER TESTS

9.1

SET-UP PHASE
SETTING UP OF INITIAL POINTERS, VECTORS, TABLES IS
DONE IN THIS PART. IN THIS SECTION THE DECISION IS
MADE ABOUT TFt: PROGRAM MODE-PAPER TAPE, RKDP DUMP,
CHAIN OR ACT11.
IF IN A NON-INTERVENTION MODE
(CHAIN, ACT11) NUMBER OF DRIVES AND THE TYPE OF
CONTROLLER IS FOUND OUT. FLAGS ARE SET TO INDICATE

SEQ 0010

MD-1'-CZRKKF. RK11 BASIC LOGIC TEST 2
CZRKKF.P11
21-FEB-78 08:51

MACY11 30A(1052)

21-FEB-78

08:58

PAGE 12

WHICH DRIVES ARE TO BE TESTED, ETC.
9.2

DRIVE DEPENDENT CONTROLLER TESTS
THIS SECTION FORMS A MAJOR PART OF THE
WHEREIN MOST OF THE CONTROLLER IS CHECKED.

PROGRAM

JUST BEFORE ENTERING THIS SECTION THE PROGRAM FINDS
OUT WHICH DRIVE IS TO BE CHECKED. IF IN RKDP CHAIN
MODE, DRIVE 'N' IF PRESENT, IS SKIPPED AND THE NEXT
AVAILABLE DRIVE IS SELECTED.
THE DRIVE NUMBER BEING TESTED IS PRINTED OUT:
DRIVE N

;N=O,1,2 .•. 7

THE TESTING IS DONE IN A LOGICAL HIERCHY,
THINGS FIRST, THEN MORE COMPLEX AND SO ON.

SIMPLER

IN ONE OF THE TESTS THE ENTIRE DISK PACK IS
FORMATTED, CHECKS ARE MADE FOR ERROR CONDITIONS.
THE "FIRST WORD OF EVERY SECTOR IS W~ITTEN AS A
PSUEDO-HEADER, REFLECTING THE ABSOLUTE ADDRESS OF
THAT SECTOR (DRIVE N, CYLINDER N, SURFACE #. SECTOR
I).
EXAMPLE: THE PSUEDO-HEADER FOR SECTOR 5.
SURFACE 0, CYLINDER 20, DRIVE 0 WOULD BE 001005.
IN THE NEXT TEST THE HEADERS FROM THE ENTIRE PACK
ARE
READ
AND CHECKED FOR CORRECTNESS.
IN A
SUBSEQUENT TEST ALL THE PSUEDO-HEADERS ARE READ AND
VERIFIED.
ALL THE FUNCTIONS ARE 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 BEEN INDICATED.

DRIVES

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

10.0

TESTS

FOR

ALL

THE

SELECTED

ERROR REPORTING
THE ERROR TABLE STARTING
AT
$ERRTB
CONTAINS
INfORMATION PERTAINING TO EVERY ERROR THAT CAN
OCCUR. EACH ITEM IN THE TABLE CONSISTS OF FOUR

SEQ 0011

MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2
CZRKKF.P11
21-FEB-78 08:51

MACY11 30A(1052)

21-FEB-78

08:58

PAGE 13

ENTRIES.
A.

EM - TH1S IS A POINTER TO THE ERROR MESSAGE
BE TYPED OUT WHEN THE ERROR OCCURS.

DH - THIS IS A POINTER TO THE DATA HEADER TO
TYPED OUT.

DT - THIS IS A POINTER TO THE DATA WHICH IS
BE TYPED TYPED OUT UNDER THE HEADERS.

D. 0 - THIS IS A TERMINATOR SIGNIFYING THE
THE ITEM.

END

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

1'.0

ERROR .INTERPRETATION
WHENEVER AN ERROR MESSAGE IS PRINTED OUT, ALL
REGISTERS AND OTHER DATA PERTAINING TO THE ERROR ARE
ALSO GIVEN. RKDS, RKER ..• RKBA INDICATE THE CONTENTS
OF THE CORRESPONDING REGISTERS AT THE TIME OF ERROR.
EVERY ERROR MESSAGE CONTAINS A PC.
THIS
PC
INDICATES THE POSITION IN PROGRAM WHERE THE ERROR
CALL IS LOCATED.
THE ERROR MESSAGE, BECAUSE OF
PRACTICAL
CONSIDERATIONS
IS
MADE
SHORT
AND
MEANINGFUL. THE USER IS ADVTO LOOK UP THE PC
IN THE PROGRAM LISTING, WHERE HE WILL FIND MORE
INFORMATION ABOUT THE ERROR. IN MANY INSTANCES, A
SINGLE FAULT WILL GIVE RISE TO MORE THAN ONE ERROR
REPORT.
A
LITTLE
DELIBERATION
AND
CAREFUL
EXAMINATION OF THE DATA GIVEN WILL BE CERTAINLY VERY
HELPFUL IN PINPOINTING
THE
FAULT.
A
BRIEF
EXPLANATION OF WHAT IS BEING CHECKED IN THE SUBTEST
IS GIVEN AT T~~ BEGINNING OF EVERY SUBTEST. ALL THE
NUMBERS GIVEN WITH ERROR MESSAGES ARE IN OCTAL.

12.0

HANDLERS AND COMMON ROUTINES

SEQ 0012

MD-11-CZRKKF. RK11 BASIC LOGIC TEST 2
ClRKKF.P11
21-FEB-78 08:51

MACY11 30A(1052)

THE COMMOSED ROUTINES USED IN THE
CALLED IN TWO WAYS.

12.1

21-FEB-78

08:58

PROGRAM

ARE

AS A SUBROUTINE THROUGH 'JSR' CALL

THROUGH A 'TRAP' HANDLER

PAGE 14

TRAP HANDLER
MANY COMMONLY USED ROUTINES IN THE PROGRAM ARE
CALLED USING THE TRAP INSTRUCTION AND THE 'TRAP'
HANDLER. THE LOWER BYTE OF THE TRAP INSTRUCTION IS
ENCODED DIFFERENTLY FOR DIFFERENCT ROUTINES. THE
TRAP HANDLER IS LOCATED AT 'STRAP'. WHEN A CALL fOR
A ROUTINE IS EXECUTED, A TRAP OCCURS TO THE HANDLER
ARAP'. THE HANDLER PICKS UP THE LOWER BYTE OF
THE "CALL INSTRUCTION" AND USES IT TO FORM THE
STARTING ADDRESS OF THE ROUTINE TO GO TO FOR
SERVICE.

12.2

SCOPE HANDLER
THE 'lOT' TRAP IS USED BY THE 'SCOPE' STATEMENT.
WHEN 'SCOPE' IS EXECUTED, AN rOT TRAP OCCURS TO
MEMORY LOCATION '$SCOPE'. THE SCOPE HANDLER STARTS
AT $SCOPE.
DEPENDING ON THE SWITCH SETTINGS THE
HANDLER DECIDES TO LOOP ON TEXT, INHIBIT ITERATIONS
ETC. THERE ARE CERTAIN POINTERS AND FLAGS WHICH ARE
ADJUSTED. THUS, IT IS NOT ADVISABLE START THE
PROGRAM AT I-.;~Y GIVEN LOCATION SINCE THE VARIOUS
POINTERS AND FLAGS MAY NOT BE CORRECTLY ADJUSTED.

12.3

ERROR HANDLER
AN EMT TRAP INSTRUCTION IS USED BY THE
ERROR CALL.
THE LOWER BYTE IS ENCODED TO GIVE DIFFERENT ~RROR
CALLS.
(EX: ERROR 1
104000+1; ERROR 15
104000+16). WHEN THE ERROR STATEMENT IS EXECUTEu, A
TRAP OCCURS TO MEMORY LOCATION '$ERROR'. THE ERROR
HANDLER IS LOCATED AT '$ERROR'. THE hANDLER FORMS
THE POINTER TO ERROR TABLE, WHICH IS USED IF AN
ERROR MESSAGE IS TO BE TYPED OUEPENDING ON THE
SWITCH SETTINGS, A DECISION ABOUT HALTING ON ERROR,
INHIBITING TYPEOUT, LOOPING ON ERROR ETC.
IS MADE.
IF AN ERROR MESSAGE IS TO BE TYPED OUT AN EXIT IS
MADE TO THE ERROR MESSAGE TYPEOUT ROUTINE LOCATED AT
'$ERRTYP'.

12.4

CONTROL RESET ROUTINE
THE CALL FOR THIS ROUTINE IS "CNT.RESET" AND IS AN
ENCODED 'TRAP' INSTRUCTION.
WHEN "CNT.RESET" IS
EXECUTED THE CONTROL RESET ROUTINE STARTING AT

SEQ 01>13

MD-l1-CZRKKF, RK11 BASIC LOGIC TEST 2
CZRKKF.P11
21-FEB-78 08:51

MACY11 30A(1052)

21-FEB-78

08:58

PAGE 15

"CN.RST" IS ENTERED. A CONTROL RESET IS ISSUED
THE PROGRAM WAITS TILL THE CONTROL READY SETS, ON
WHICH THE ROUTINE IS EXITED. IF CONTROL READY DOES
NOT SET WITHIN A CERTAIN TIME AN ERROR IS REPORTED.
THE
PC
TYPED OUT IS THE LOCATION WHERE THE
"CNT.RESET" CALL IS LOCATED. THE WAITING TIME IS
2.B MS FOR 11/20 AND 560 US FOR 11/45 WITH BIPOLAR
MEMORY.
12.5

CONTROL READY ROUTINE
THIS ROUTINE I~ CALLED BY "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 READY DOES NOT SET
WITHIN A SPECIFIED TIME AN ERROR MESSAGE IS GIVEN
CNTRL ROY DIDN'T SET
PC = XXXXXX
RKCS = YYYYYY
THE .PC IS THE LOCATION AT WHICH THE "CNT.RDY" CALL
IS LOCATED.
THE WAITING TIME IS 949 ~S FOR 11/20
AND 189 MS FOR 11/45 WITH BIPOLAR MEMORY.

12.6

DRIVE RESET ROUTINE
THE DRIVE - RESET ROUTINE IS LOCATED AT "DRESET" AND
IS CALLED BY A "JSR". IT ISSUES A DRIVE RESET AND
WAITS FOR THE R/W/S ROY TO SET, ON WHICH THE ROUTINE
IS EXITED.
THE WAITING TIME IS 4959 MS FOR 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 N=1 TO 177777 (OCTAL) TIME
DELAY PROVIDED= 7.5 TIMES( X ) N MICRO SECS 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 BE DONE BY SIMPLY
CHANGING VARIABLE 'N'.

12.8

WAIT FOR INTERRUPT ROUTINE
THIS ROUTINE PROVIDES A VARIABLE TIME LIMIT DURING
WHICH RK11 INTERRUPT MAY OCCUR. THE IS
WAT.INT .N
N=1 TO
1777777
(OCTAL)
WAITING TIME=7.5 TIMES( X ) N US FOR 11/20, 1.5N US

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

SEQ 0014

MD-11-CZRKKF. RK11 BASIC LOGIC TEST 2
CZRKKF.P11
21-fEB-78 08:51

12.9

MACY11 30A(1052)

21-fEB-7B

08;58

OTHER ROUTINES
THERE ARE OTHER COMMON LV
BELOW.

USED

ROUTINES

LISTED

STYPE:
TYPE ROUTINE FOR TYPING OUT ASCII STRINGS.
LOCATED AT "STYPE"
CALLED BY "TYPE"
STYPOC:
ROUTINE fOR T~PING OUT OCTAL NUMBERS.
LOCATED AT "$TYPOC·
CALLED BY "TYPOC·
$TYPDS:
ROUTINE FOR TYPING OUT DECIMAL NUMBERS.
LOCATED AT "STYPDS·
CALLED BY "TYPOS·
SRDLIN:
ROUTINE FOR INPUTTING ASCII STRINGS FROM TTY.
LOCATED AT "SRDLIN"
CALLED BY "ROLIN"
SERRTYP:
ROUTINE FOR TYPI~G OUT ERROR MESSAGES.
LOCATED AT SERRTYP
CALLED BY "JSR SERRTYp·
$PWRDN:
ROUTINE FOR HANDLING POWER FAILURE.
LOCATED AT $PWRDN
CALLED WHEN THERE IS A POWER FAr LURE.
$PWRUP:
ROUTINE FOR HANDLING POWER UP AFTER A POWER FAIL.
LOCATE$PWRUP
CALLED WHEN POWER RETURNS AFTER HAVING GONE DOWN.
13.0

UNEXPECTED TIMEOUTS AND RK11 INTERRUPTS
WHEN AN UNEXPECTED TIMEOUT OCCURS, THE PC AT WHICH
TIME OUT OCCURED IS TYPED OUT AND THE PROGRAM HALTS.
IF IT IS INTACT, IT CAN BE RESTARTED BY PRESSING
CONTINUE.
IF AN UNEXPEC-~D RK11 INTERRUPT OCCURS THE PROGRAM
TYPES OUT THE PC AT WHICH THE INTERRUPT CAME IN AND
THEN HALTS. PRESSING CONTINUE WOULD RESTART THE
PROGRAM FROM BEGINING. SW 9- LOOPING CAITY IS
PROVIDED AS A TROUBLE SHOOTING AID.

PAGE 16

SEQ 0015

MD-11-CZRKKF. RK11 BASIC LOGIC TEST 2
CZRKKF.P11
21-FEB-78 08:51

14.0

MACY11 30A(1052)

21-FEB-78

08:5B

PAGE 17

QUICK VERIFYING MODE
THE FIRST PASS OF THE PROGRAM IS A QUICK VERIFYING
MODE.
ALL THE TESTS ARE DONE ONLY ONCE, ON
SUBSEQUENT PASSES THE TESTS ARE ITERATED (NORMALLY
50 TIMES, 5 IN SOME CASES). THUS THE FIRST PASS
TAKES A SHORTER TIME TO COMPLETE, WHEREAS SUBSEQUENT
PASSES TAKE MORE TIME.

%
852
853
B54
855
856
857
B5B
859
860
861
862
863
864
B65
866
867
86B
869
870
B71
B72
873
874
875
876
877
B7B
B79
B80
BBl
882
883
884
B85
8B6
BB7
BBB
BB9
B90
891
B92
B93

.TITLE MD-1i-CZRKXF, RK11 BASIC LOGIC TEST 2
,*COPYRIGHT (C) 1974,1977
;*DIGITAL EQUIPMENT CORP.
;*MAYNARD, MASS. 01754

;;*PROGRAM
*
BY JIM KAPADIA
;*

:*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC
.*PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977.
;*
:*PROGRAM REVISED BY TOM SAWYER, MARCH, 1976
;*REVISED BY CHUCK HESS, AUGUST, 1976
.SBTTL OPERATIONAL SWITCH SETTINGS
:*
USE
SWITCH
;*
.... _----------------------.*
HALT ON ERROR
15
LOOP ON TEST
14
.*
INHIBIT ERROR TYPEOUTS
13
;*
CYCLE ON ERROR TO PREVIOUS 'SCOPE' STATEMENT
12
:*
INHIBIT ITERATIONS
11
;*
TESTING ON SIMULATOR
10
LOOP ON ERROR
9
;*
LOOP ON TEST IN SWR<7:0>
;.
B
DROP THE DRIVE IF MORE THAN 5 ERRORS
6
.*

••
••

;*******.********.******~**************************************

;YOU ARE ADVISED TO READ THE DOCUMENT BEFORE USING THIS PROGRAM.
tON GETTING AN ERROR REFER TO THE LISTINGS AT THE PC POINTED

SEQ 0016

r~D-11-CZRKKF •

CZRKKF. Pl1
894
895
B96
B97
89B
899
900
901
902
903
904
905
906
907
90B
909
910
911
912
913
914
915
916
917
91B
919
920
921
922
923
924
925
926
927
92B
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
94S
949

RKll BASIC LOGIC TEST 2
21-FEB-7B OB:51

951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
97B
979
980
901
982

983
984
S85
986
9B7
988
989
950
991
992
993
994
995
996
997
99B
999
1000
1001
1002
1003
1004
1005

08:58

PAGE 1B
SEQ 00,7

;OUT IN THE ERROR MESSAGE. ADJACENT ERROR MESSAGES IF FOLLOWED
;CAREFULLY COULD LEAD TO AN EASY PINPOINTING OF THE FAULT

; *'" ** *' Ii<**** "" ***** "'>IE ** ** **>1<* *'" ***". **"'*** ** ** "'>it >I< **>11 ** **** ***'* ****$$*
.SBTTL

001100

000011
0000 12
000015
000200
177776

BASIC DEFINITIONS

;*INITIAl ADDRESS OF THE STACK POINTER *"'* 1100 ***
STACK=
1100
.EQUIV
EMT,ERROR
;;BASIC DEFINITION OF ERROR CALL
.EQUIV
IOT,SCOPE
;;BASIC DEFINITION OF SCOPE CALL

;>MISCELLANEOuS DEFINITIONS
; ;CODE FOR HORIZONTAL TAB
11
; ; CODE FOR LINE FEED
12
; ;CODE FOR CARRIAGE RETURN
15
; ;CODE FOR CARRIAGE RETURN-LINE FEED
200
;; PROCESSOR STATUS WORD
177776
PS,PSW
; ;STACK LIMIT REGISTER
177774
;; PROGRAM INTERRUPT REQUEST REGISTER
177772
; ; HARDWARE SWITCH REGISTER
177570
; ;HARDWARE DISPLAY REGISTER
177570

HT:;:

177774
177772
177570
177570

LF=
CR=
CRLF=
PS=
.EOUIV
STKLMT=
PIRQ=
DSWR=
DDISP,

000000
000001
000002
000003
000004
000005
000006
000007
000006
000007

; 'GENERAL PURPOSE REGISTER DEFINITIONS
; ;GENERAL REGISTER
RO=
%0
; ;GENERAL REGISTER
Rl =
%1
; ;GENERAL REGISTER
R2=
%2
; ;GENERAL REGISTER
R3=
%3
; ;GENERAL REGISTER
R4=
%4
; ;GENERAL REGISTER
RS=
%5
; ;GENERAL REGISTER
R6=
%6
; ;GENERAL REGISTER
R7=
%7
; ; ST ACK POINTER
SP=
%6
; ; PROGRAM COUNTER
PC=
%7

:*PRIORITY LEVEL DEFINITIONS
000000
000040

00 a 1 co
000140

000200

PRO=
PRt :::
PR2=

PR3=
PR4=
PR5=
PR6=

0
40
100
140
200
240
300
340

; ;PRIORITY
; ;PRIORITY
;; PRIORITY
;; PRIORITY
;;PRIORITY
;;PRIORITY

LEVEL 0
LEVEL 1
LEVEL 2
LEVEL 3
LEVEL 4

LEVEL 5
; ;PRIORITY LEVEL 6
; ;PRIORITY LEVEL 7

000240
00 0300
000340

PR7=

100000
040000
020000
010000
004000
002000
001000
000400
000200
000100

; '''SWITCH REGISTER" SWITCH DEFINITIONS
5W15=
100000
SW14=
40000
SW \3=
20000
SW12=
10000
SW11 :::
4000
2000
51110=
SW09=
1000
400
SWOB"
200
SW07=
100
SWC6=

MD-l'-CZRKKF. RK11 BASIC LOGIC TEST 2
CZRKKF.Pll
21-FE5-7B 08;51

950

MACY11 30A(1052)
21-FEB-78
OPERATIONAL SWITCH SETTINGS

000040

MACY11 30A( 1052)
21-FEB-78
BASIC DEFINITIONS
SW05=

0000.20

S\'J04=

000010
000004
000002
000001

SW03=
SW02=
5\'.101::;

swao=
• EDU[V
• EOU [V
.EQUIV
.EQUIV
.EQUIV
• EQUIV

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

08:58

PAGE 19

40
20
10
4
2
1
SW09, SW9
Sl.WS. swe
SW07. SW7
S!JJ06. SWS
SW05.SWS
SW04. SW4

.EQUIV

S~103, SW3

· EQUIV
• EQUIV
.EOUIV

SW02. SW2
SW01,SW1

SWOO,SWO

; *DA T A BIT DEFINITIONS
81T15=
100000
BIT 14=
40000
BIT 13=
20000
BIT 12=
10000
BIT11 = 4000
B1T10=
2000
B1T09=
1000
BITOB=
400
BITO?
200
SIT06=
100
BIT05:
40
31T04=
20
B1T03=
10
B1T02=
4
BITOt: 2
BITOO=
1
BIT09, BITS
• EQUIV
.EQUIV
BITOe,SITS
.EOUIV
BI T07, BIT7
.EQUIV
BITOS,BIT6
.EQUIV
SITOS, BITS
.EQUIV
BlT04, BIT4
BI T03, BIT3
• EDUIV
BI T02. BIT2
· EQUIV
.EQUIV
BIT01.E1T1
.EQUIV
BITOO,BITO

( SITOO TO BIT'S)

: "'BASIC tlCPU" TRAP VECTOR ADDRESSES
000004
000010

000014
000014
000014
000020
000024
000030
000034
000060

ERRVEC= 4
RESVEC= 10
TBITVEC=14
TRTVEC= 14
BPTVEC=

IOTVEC= 20
PWRvEC= 24
EMTVEC= 30
TRAPVEC=34
TKVEC=
60

TIME OUT AND OTHER ERRORS
RESERVED AND I LLEGAL INSTRUCTIONS
"T" BIT
TRACE TRAP
BREAKPOINT TRAP (BPT)
INPUT jOUTPUT TRAP (lOT) "''''SCOPE*t.<
POWER FAIL

EMULATOR TRAP (EMT) 1,o*ERROR>1I$
TRAP" TRAP
TTY KEYBOARD VECTOR
U

SEQ OD18

MO-"-CZRKKF. RKll BASIC LOGIC TEST 2
CZRKKF .Pl1
21-FES-79 08.$,
'006
'007
'008
, 009
10'0
1011
'0'2
'013
'0'4
'0'5

,o,e
'017
, 0' B
'0'9
'020
'02'
'022
'023
'024
'025
'026

'027

1078
'079
'080
,OB,
,OB2
'OB3
'084

PAGE 20

000000

•• 0
;'ALL UNUSED LOCATIONS FROM 4 - 776 CONT:.IN A ' .+2.HALT"
;-SEQUENCE TO CATCH II.I.EGAI. TRAPS AND INTERRUPTS
;,"OCATION 0 CONTAINS 0 TO CATCH IMPROPERI.Y lOADED VECTORS
•• 174
;; SOFTWARE DISPLAY REGISTER
DISPREG' .WORD 0
;; SOFTWARE SWITCH REGISTER
SWREQ.
.WORD 0
.seTTI. STARTING ADDRESS(ES)
..#START ; ;~UMP TO STARTING ADDRESS OF PROGRAM
~MP
.SBTTI. ACT11 HOOKS

000'74

000000

000200

000'37

000000

002636

SEQ 0019

; ;TTY PRINTER VECTOR
; ; PROGRAM INTERRUPT REQUEST VECTOR

000064
000240

; ; . til • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • •

000046
000052

;HOOKS REQUIRED BY ACT11
SSVPC ••
•• 46
$ENDAD

000204
000046
020740
000052
000000
000204

;S1,VE PC
;; 1) SET LOC, 46 TO ADDRESS OF SENDAD IN ,SEDP

.=52
; ;2)SET LOC.52 TO ZERO
;; RESTORE PC

.WORD
0
.-SSVPC

MD-I1-CZRKKF. RKI1 SASIC I.OGIC TEST 2
CZRKKF.P"
2'-FEB-78 08:51

'077

oe.S9

TPVEC. 64
PIRQVEC.240
.SBTH TRAP CATCHER

000174
000,76

1028

'029
'030
103,
1032
1033
'034
1035
'036
'037
'038
'039
'040
'04'
'042
'043
'044
'045
'046
'047
,04B
'049
'050
'OS,
1052
'053
'054
1055
,056
1057
'058
'059
'060
'06'
'062
'063
'064
'065
'066
'067
'068
'069
, 070
, 07'
, 072
1073
'074
'075
'076

MACY"
30A(1052) 21-FEB-7B
BASIC DEFINITIONS

MACYll 30A( ,052)
COMMON TAGS
.S8TTI.

21-FEB-76

08:58

PAGE 2,

COMMON TAGS

; :...................... ** •••••••••• ** ••• "••••••••••••••• * •••••••••
;-THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS
;.USED IN THE PROGRAM.

.-1100

001100
00"00
00,,00
0011 02
001103
0011 04
0011 06
0011 ,0
00'112
001114
001115
00" ,6
001120
001 '22
001124
001'26
001,30
001,32
00' ,34
0011 35
0011 36
00',40
001,42
00,,44
00,,46
0011 50
0011 52
0011 54
0011 55
001156
00"57
0011 60

SCMTAG.
SPASS:
STSTNM:
SERFLG:
SICNT'
SI.PADR:
SLPERR:
SERTTL'
SITEMB.
$ERMAX'
SERRPC:
SGDADR'
SBDADR:
SGDOAT'
SBDDAT.

.WORD
• BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.BYTE
.BYTE
.WORD
.WORD
.WDRD
.WORD
.WORD
.WORD
.WORD
SAUTOS' • BYTE
SINTAGI .BYTE
.WORD
SWR.
.WORD
DISPLAY: .WORD
STKS'
'77560
$TKS'
,77562
STPS:
'77564
STPB'
,77566
SNULL:
• BYTe
SFII.I.S: .BYTE
$FI I.LC, • BYTE
STPFLG: • BYTE
SREGAO' • WORD

000000
000
000
000000
000000
000000
000000
000
00,
000000
000000
000000
000000
000000
000000
000000
000
000
000000
177570
117570
177560
177562
177564
'77566
000
002

0'2
000
000000

SREGO.
SREG' :
SREG2:
SREG3:
$REG4.
SREG5:
SREG6'
SREG7'
SREG'O'
SREG' ,.

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

001'62
0011 64
001166
001,70
00"72
0011 74
001176
00'200
00' 202
001204
00'206
00'210
00'2'2
001213
00'2'4

0'5
0000'2

00'2,6

0050'5

• WORD
• WORD
• WORD
• WORD
• WORO
.WORD
• WORD
• WORD
.WORD
• WORD

o
o

o
o
o
o
o

o
1
o
o
o
o
o
a
o
a

o
o

DSWR
DDISP

o
2
12

o
o
o

o
o

o
o
o

iTIMES: 0

077

; ;START OF COMMON TAGS
; ; CONTA I NS PASS COUNT
; ;CONTAINS THE TEST NUMBER
; : CONTAINS ERROR FLAG
; ;CONTAINS SUBTEST ITERATION COUNT
; :CONTAINS SCOPE 1.00P ADDRESS
; ;CONTAINS SCOPE RETURN FOR ERRORS
; ;CONTAINS TOTAL ERRORS DETECTED
; ;CONTAINS ITEM CONTROL BYTE
; ; CONTA I NS MAX. ERRORS PER TEST
; :CONTAINS PC OF LAST ERROR INSTRUCTION
: ;CONTAINS ADDRESS OF 'GOOD' DATA
; ;CONTAINS ADDRESS OF 'BAD' DATA
; :CONTAINS 'GOOD' DATA
; ;CONTAINS 'BAD' DATA
; ; RESERVED--NOT TO BE USED
;; AUTOMATIC MODE INDICATOR
;; INTERRUPT MODE INDICATOR
;ADDRESS OF SWITCH REGISTER
; ADDRESS OF DISPLAV REGISTER
;TTY KBD STATUS
; TTY KBD BUFFER
; TTY PRINTER STATUS REG, ADDRESS
; TTY PRINTER BUFFER REG. ADDRESS
;CONTAINS NULL CHARACTER FOR FILLS
;CONTAINS H OF FILLER CHARACTERS REQUIRED
; INSERT FII.L CHARS. AFTER A 'LINE FEED'
; "TERMINAl. AVAII.ABLE" FLAG (BIT<07>.O-YES)
:CONTAINS THE ADDRESS FROM
;WHICH (SREGO) IIIAS OBTAINED
;CONTAINS (SREGAD)+O)
;CONTAINS ((SREGhD)+2)
;CONTAINS (5REGAD)+4)
;CONTAINS ((SREGAD)+6)
;CONTAINS «(SREGAD)+'Ol
;CONTAINS «SREGAD)+'21
;CONTAI:'S «SREGAD1+'4)
;CONTAINS «(SREGAD)+,61
;CONTAINS (SREGAD)+201
;CONTAINS (($REGAD1+221
;MAX. NUIABER OF ITERATIONS
; ESCAPE ON ERROR ADDRESS
; QUESTION MARK
; CARRIAGE RETURN
; UNE FEED

SESCAPE:O
.ASCII
SQUES.
SCRI.F.
.ASCI I
$I.F'
.ASCIZ

<15>
<12>

MSG"

<15><'2>/DRIVE P ESNT/

/?/

; :** ....... *"" ................. I8tI4l . . . . . . . . *.................. $ • • • • • • • $ • • • • • • • 181 • • • •

051104

053",

.ASCIZ

SEQ 0020

MD-"-CZRKKF, RK', BASIC LOGIC TEST 2
CZRKKF .Pll
21-FEB-78 08:51
, 085
1086
1087
, 088
1089
1090
1091
1092
'093
1094
'095
1096
1097
109B
1099

'100
1101
1102
11 03
1104

MACV"
30A(1052)
COMMON TAGS

051120
000

051505

047516

042516

MSG2:

.EVEN
.ASCIZ

<15><12>/NONEI

001245
001252
001260
001266

015
051040
042111
042523

041412
054504
023516
000124

052116
042040
020124

MSG3:

,ASCIZ

<15><12>/CNT ROY DIDN'T SETI

001272
001300

005015
020105

051104
000

05311'

MSG4:

.ASCIZ

<15><12>/DRIVE

001303
001310

015
042040

040412
053122

046114
123

MSG5:

.ASCII

<1S><12>/ALL DRVSI

001315
001322

040
006504

051104
000012

050117

MSGB:

.ASCIZ

1114

1 125
1 126

1127
112B
1129
1130
1131

1132
1133
1134

1135
1136
1137
113B
1139
1140

1143
1144
1145

001326
001330
001332
001334
001336
001340
001342

177400
177402
117404
177406
177410
177412
177416

RKDS:
RKER:
~KCS:

RKWC:
RKBA:
RKDA:
RKDB:

;TAGS AND GENERAL DATA AREA

001344
001346
001350
001352

000000
000000
000000
000000

SIMUU
FTITLE:
DRIVAD:
DRVDON:

001354

000000

DRVPTR: 0

001356
001360
001362
001364
001366
001370

000000
000000
000000
000000
000000
000000

INDX1:
INDX2:
COUNT:
COUNT 1 :
TIMER:
EFLG1:

0
0
0

0
0
0
0

0
0

MACV11 30A(1052)
COMMON TAGS

001372
001374
001376
001400

000100
001000
014500
000200

SEEKO:
SEEKI :
SEEK2:
RKPRI:

200

001402

000220

RKVEC:

220

001404
001406

000000
000000

FFLAG:
DDDEVN:

001410

000000

DDPCH:

001412

000000

DRIVS:

100
1000
14500

;FLAG TO BE SET TO 1 WHEN ON SIMULATOR
;FLAG FOR PRINTING PROGRAM TITLE
;CONTAINS ADDRESS OF THE DRIVE UNDER TEST
;CONTAINS THE NUM8ER OF DRIVES CHECKED.
; IT IS INCREMENTED" EACH TIME THE TESTS FOR
;A DRIVE IS COMPLETED.
;CONTAINS THE POINTER TO THE DRIVE FLAG (CRIVEO
;-DRIVE7) OF THE DRIVE TO BE CHECKED NEXT,
;GENERAL INDEX FOR KEEPING COUNT
; GENERAL INDEX
;GENERAL COUNT REGISTER
;COUNT REGISTER USED FOR 'DRESET' SUBROUTl'lE
;TlMER REGISTER
;SET, TO INDICATE A PARTICULAR
;ERROR CONDITION

21-FEB-7B

OB:58

PAGE 23
SEQ 0022

;CONTAINS ADDRESS OF CYLINDER 2
;CONTAINS ADDRESS OF CYLINDER 20
;CONTAINS ADDRESS OF CYLINDER 312
;CDNTAINS THE CPU LEVEL AT WHICH
;RKll NORMALLY INTERRUPTS. THIS WORD
;SHOULD BE CHANGeD IF RKll IS DESINGATED
;A BR LEVEL OTHER THAN 5. E.G. IF IT IS CHANGED
;TO 6, THIS ,jORD SHOULD BE CHANGED TO 240,
;CONTAINS THE NORMAL VECTOR ADDRESS TO WHICH
;RK11 INTERRUPTS. IF THIS IS NOT SO, CHANGE
;THIS WORD TO CONTAIN MODIFIED VECTOR ADDRESS.
;USED TO DETERMINE WHICH OF RK-OSF DRIVES ACTIVE
;0 IF EVEN DRIVE
;-1 IF ODD DRIVE
; I F PROGRAM LOADED FROM RK05, CONTAINS
;ADDRESS OF DRIVE WITH RKDP PACK
;CONTAINS THE NUMBER OF DRIVES PRESENT

;THE FLAGS BELOW (BIT 0) ARE SET TO 1 TO INDICATE THAT A PARTICULAR DRIVE
; IS PRESENT AND IS TO BE TESTED. BIT 12, IF SET, INDICATES THAT THE DRIVE
;WAS DROPPED AFTER MAXIMUM ALLOWABLE NUMBER OF ERRORS OCCUR EO ON THAT
;DRIVE (Sill 6 SET),
; I F MORE THAN 5 ERRORS OCCUR IN THE HARDWARE POLLING TEST (LAST)
;THEN ALL DRIVES ARE DROPPED. BUT BIT 12 IS NOT SET.

1168

1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
11'19
1180
l1Bl

DROPD/<15><12>

.EVEN
177400
177402
177404
177406
177410
177412
177416

1146
1147

114B
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163
1164
1165
1166
1167

;RK11 REGISTERS
; 1 F FOR ANY REASON THE REGISTER ADDRESSES ARE 01 FFERENT FROM THESE
; (GIVEN BELOW), THE CONTENTS OF THE APPROPRIATE POINTERS SHOULD BE
;MODIFIED SO THAT THE CORRECT ADDRESS IS USED.

MD-ll-CZRKKF, RK11 8ASIC LOGIC TEST:2
CZRKKF.Pl1
21-FE8-780B:51
1141
1142

SEQ 0021

.EVEN

"'0
1111
1115
1116
1117
1118
1119
1120
1121
1122
1123
1124

PAGE 22

001236
001244

" 05

, 112

08'58

020105
052116
001236
005015
000

00' 224
00'232

1106
11 07
11 DB
1109

1113

21-FEB-78

001414
001416
001420
001422
001424
001425
001430
001432

000000
000000
000000
000000
000000
000000
000000
000000

DRIVO:
DRIV1:
DRIV2:
DRIV3:
DRIV4:
DRIV5:
DRIV6:
DRIV7:

001434
001436
001440

000000
000000
000000

T56FLG: 0
PHVDRV: 0
SIZVEr: 0

0
0

0
0
0

FLAG SET TO 1 WHEN DRIVE 0 PRESENT
FOR DRIVE 1
FOR DRIVE 2
FOR DRIVE 3
FOR DRIVE 4
FOR DRIVE 5
FOR DRIVE 6
FOR DRIVE 7

MD-"-CZRKKF. RKl1 BASIC LOGIC TEST 2
CZRKKF .Pll
21-FEB-7S oe:51

.S8TTL

1182
,,83
1184
1185
1186
1187
1188
1189
1190
1191
1192
1193
1194
1195
1196 00,442
,,97
"98
1199
1200
1201
'202
1203
1204
1205
1206
1207
1208
1209
1210
1211
1212
1213
12,4
1215
1216
1217
1218
1219
1220
1221
1222
1223
, 224
1225
1226
1227
1228
'229
1230
1231
1232
, 233
1234
1235
1236
1237

1~76

1277
1278
1279
1280
1281
1282
1283
'284
'285
1286
1287
1288
1289
1~90

1291
1292
1293

08:58

PAGE 24

SEQ 0023

ERROR POINTER TA8LE

;.THIS TA8LE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR.
:.THE INFORMATION IS 08TAINED BY USING THE INDEX NUMBER FOUND IN
;.LOCATION $ITEMB. THIS NuM8ER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.
;.NOTE1:
IF SITEM8 IS 0 THE ONLY PERTINENT DATA IS (SERRPC).
;.NOTE2:
EACH IH.M IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS'

:
:

...

;
;'

::POINTS
;; POINTS
j i POINTS
: :POINTS

EM
DH
DT

TO
TO
TO
TO

THE
THE
THE
THE

ERROR MESSAGE
DATA HEADER
DATA
DATA FORMAT

SERRTS:

:THE ERROR ITEMS TABLE CONSISTS OF ALL THE POSSI BLE ERROR MESSAGES
:USED IN THIS PROGRAM. AN ERROR CALL IN THE PROGRAM CORRESPONDS TO
:THE ITEM NUMBER IN THE .RROR TABLE. THUS' ERROR
l' IN THE
;PROGRAM CORRESPONDS TO 'ITEM
"
IN THE ERROR TABLE.
: 'EMU"
IS THE POINTER TO THE ERROR MESSAGE WHICH WILL BE TYPED
lOUT IN CASE THAT ERROR WERE TO OCCUR. THUS FOR 'ERROR l' THE ERROR
:MESSAGE TYPE OUT WILL BE 'TIME OUT ON RK1' REG'.
: 'DH.#.' IS THE POINTER TO THE HEAOER BLOCK WHICH WILL BE TYPED OUT
: IMMEOIATELY AFTER THE ERROR MESSAGE.
: 'DTUM'
SERVES AS A POINTER TO THE MEMORY LOCATIONS WHERE
:THE INFORMATION RELEVANT TO THE ERROR TYPE OUTS (LIKE PC. CONTENTS
:OF RKCS ETC.) WILL BE PICKED UP FROM.
,THE LAST ROW CONTAINING '0' SERVES AS A TERMINATOR.
;EXAMPLE:
: I F ON RUNNING THIS PROGRAM A TIMEOUT WERE TO OCCUR ON ADORESSING RKDS
: (177400). BECAUSE OF SOME FAULT. THE FOLOWING TYPEOUT WOULD
:OCCUR ON THE TELETYPE.
TIME OUT ON RK11 REG
PC
REG

HN#UI

177400

:NOTE THAT NNMNNN WOULD BE THE ACTUAL PC WHERE' ERROR

l' IS LOCATEO.

:THE ERROR HANDLER IS LOCATED AT 'SERROR'. THE ERROR CALL IS AN 'EMT'
: INSTRUCTION WITH ITS LOWER BYTE ENCOOED TO PROVIDE INOEXING TO THE
: ITEMS IN THE ERROR TABLE.
: THUS • ERROR
1'
IS 104001
'ERROR
103' IS 104126
ETC.

; ERROR ITEMS TABLE

MO-ll-CZRKKF, RK11 BASIC LOGIC TEST :I
21-FEB-7S oe;51
CZRKKF. PI I
1238
1239
1240
1241
1242
1243
1244
1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
'261
1262
1263
1264
1265
1266
1267
126B
1269
1270
1271
,272
1273
1274
1275

MACY11 30A(1052)
21-FEB-78
ERROR POINTER TABLE

21-FEB-78
MACY11 30A(1052)
ERROR POINTER TABLE

08;58

PAGE 25
SEQ 0024

;ITEM
001442
001444
001446
001450

025402
032327
031742
000000

001452
001454
001456
001460

027253
032113
031762
000000

001462
001464
001466
001470

025427
032047
031732
000000

001472
001474
001476
001500

025456
032213
031724
000000

001502
00' 504
001506
00,510

025470
032155
031762
000000

001512
001514
001516
001520

025500
032155
031752
000000

001522
001524
001525
001530

025510
032213
031724
000000

001532
001534
001536
001540

025531
032327
031742
000000

EM12
OH44
DT20

; ITEM

RKOA
SREG3

;CNTRL ROY OIDN'T SET ON READ/FMT FROM DISK ADDRESS
RKER
RKWC
:PC
RKCS
$REG2
SREGI
: SERRPe SREGO

: RKDA WRONG AFTER SSE
ExpeT
;PC
REeve
SREG1
:SERRPC SREGD

4
EM21
DH34
OTl
0

; ITEM

RKOS
$REG2

3
EMIS
OH4
OT2
0

; ITEM

RKER
$REG1

2
EM70
OH14
OT26
0

: ITEM

; 'SIN' IS seT
:PC
RKCS
; SERRPe SREGO

; RKOS ERROR
RKDS
;PC
: SERRPC SHEGD

5
EM30
OH30
DT26

; 'CPl' BIT SET. CHECK DRIVE POWER
;PC

RKCS
; SERRPe SREGO

RKER
SREG1

RKDS
SREG2

0
; ITEM

e
EM31
DH30
OT26
0

; 'DRU I BIT seT. CHECK DRIVE
;PC
RKCS
RKER
RKDS
SREGI
SREG2
: SERRPe SREGO

EM32
OH34
DTl
0

; IRKOS! BIT NOT SET
RKOS
: PC
:SERRPC $REGO

; ITEM

10
EM33
DH44
OT20
0

'DRY' NOT SET
PC
RKCS
SERRPC $REGD

RKER
$REGI

RKOS
SREG2

RKDA
SREG3

MD-l1-CZRKKF. RKll BASIC LOGIC TEST 2
21-FEB-78 08:51
CZRKKF .P11

1294
1295
1296
1297

; ITEM
001542
001544
001546
001550

025551
032213
031724
000000

001552
001554
001556
001560

025570
031724
000000

001562
001564
00'566
001570

025623
032251
03'732
000000

001572
001574
00'576
00' 600

025653
032047
031732
000000

00'602
001604
001606
001610

025707
03230'
031732
000000

001612

025747

001614

032213

001616
001620

03'724
000000

025415
032047

1341

001622
001624
001626
001630

1342
'343
1344
1345
'346
1347
1348

001632
001634
001636
001640

026004
032150
031756
000000

1298

1299
1300
1301
1302
1303
1304

1305
1306
1307
1308
1309
'310
1311

1312
'313

OB:58

21-FEB-78
MACYll 30A(1052)
ERROR POINTER TABLE

; ITEM

; 'SDK' DID NOT SET
RKOS
; PC
; SERRPC SREGO

12
EM35
OH35
OTl
0

032231

SEQ 0025

11
EM34
DH34
OTl
0

; ITEM

PAGE 26

; I SEC COUNTR'
DIDN'T COUN'; TO 0
SEC-CNTR
;PC
: SERR PC SREGO

13
EM36
DH36
DT2
0

; 'SEC COUNTR' DIDN'T INCREMENT
PRSNT-COUNT
NXT-CDUNT
:PC
SREGl
; SERRPC SREGO

1314

'315
'316
'317
1318
13'9
'320
,32,

;ITEM

; ITEM

1322

'323
,324
,325
'326
'327
1328
1329
'330
1331
,332
1333
1334
1335
1336
1337
1338
1339
1340

14
EM37
DH4
DT2
0

,5
EM40
DH40
DT2
0

;ITEM

000000
: ITEM

: ERROR-' RjW/S
RKOS
:PC
: SERR PC SREGO

~:"Y'

SHOULD BE SET

17
EM13
OH4
OT2
0

031732

;DIDN'T GET SC,SA FOR THIS SECTOR
SECTOR RKDS
:PC
$REGl
:SERRPC SREGO

16
EM41
OH34
DTl
0

: ITEM

; 'SECTOR COUNTER' INCREMENTED WRONG
EXPCTD REeVD
;PC
: SERRPC SREGO
SREG'

: RKBA ERROR
: PC
EXPCT
:SERRPC SREGO

REeVD
SREGl

20
EM43
OH21
DT21
0

; UNEXPECTED RK11
:PC
:SERRPC

INTERRUPT

1349

MD-"-CZRKKF. RKl1 BASIC LOGIC TEST 2
CZRKKF. Pll
21-FEB-7B OB:51
1350
135,
1352
1353
1354
1355
1356
1357
1358
1359
1360
1361
1362
1363
1364
1365
1366
1367
1368
1369
1370
1371
1372
1373
1374
1375
1376
'377
'378
1379
1380
1381
1382
1383
1384
13B5
13B6
1387
1388
1389
1390
1391
1392
1393
1394
1395
1396
1397
139B
1399
1400
1401
1402
1403
1404
1405

MACYll 30A( 1052) 21-FEB-7B
ERROR POINTER TABLE
: ITEM

001642
001644
001646
001650

026036
032327
031742
000000

001652
001654
001656
001660

026112
032327
031742
000000

001662
001664
001666
001670

026160
032155
031762
000000

001672
001674
001676
001700

026216
032047
031732
000000

001702
001704
001706
001710

026260
032155
031762
000000

001712
001714
001716
001720

026307
032327
031742
000000

001722
001724
001726
001730

026362
032047
031732
000000

001732
001734
001736
001740

026407
032155
031762
000000

; IERR' OR 'HE' SET ON SEEK OR DRIVE RESET
RKER
RKOS
RKOA
:PC
RKCS
$REG2
$REG3
: SERRPC SREGO
$REGI

: RKER BIT. ON SEEK OR DRIVE RESET
fPC
RKCS
RKER
RKOS
$REG2
: SERRPC SREGO
SREG'

: RKCS CHANGED AFTER FUNCTION WAS DONE
EXPCT
REcve
:PC
: SERRPC $REGO
SREGl

: 'R/W/S ROY' DID NOT CLEAR
RKCS
RKER
RKDS
:PC
SREG2
:SERRPC SREGO
SREGI

; 'RN/S ROY'
:PC
RKCS
:$ERRPC $REGO

DIDN'T SET AFTER SEEK OR DRIVE RESET
RKDA
RKER
RKDS
SREG2
SREG3
$REG'

27
EM52
DH4
OT2
0

; ITEM

RKDA
$REG3.

26
EM51
OH44
OT20
0

: ITEM

RKDS
SREG2

25
EM50
DH30
DT26
0

lITEM

RKER
SREGl

24
EM47
OH4
DT2
0

: ITEM

; 'CNTRl ROY' DIDN'T SET AFTER SEEK OR DRIve RESET
RKCS
:PC
:SERRPC $REGO

23
EM46
DH30
DT26
0

; ITEM

SEQ 0026

22
EM45
DH44
OT20
0

: ITEM

PAGE 27

21
EM44
DH44
OT20
0

: ITEM

OB:58

: RKDA CHANGED AFTER SEEK
;PC
EXPCTO REGVD
: SERRPC SREGO
SREGl

30
EM53
OH30
DT26
0

; 'CNTRl ROY' DIDN'T CLEAR AS GO WAS SET
:PC
RKCS
RKER
RKDS
: SERRPC SREGO
SREG2
$REG'

MD-' '-CZRKKF. RK11 BASIC i.CGIC TEST :I
21-FEB-7S OS:S1
CZRKKF. PI I
1406
1407
1408
'409
14'0
141,
1412
'413
14'4
,4,5
'4'6
,4'7
,41B
'4'9
, '420
142,
1422
1423

,424
,425
'426
1427
'428
,429
1430
'43,
1432
,433
1434
'435
1436
'437
,439
'439
1440
1441

; ITEM

'445
'446
'447
1448
'449
'450
'45'
'452
'453
'454
1455
'456
'457
'458
'459
1460

'46,

001744

032374

DH54

001746

031774

DT54

001750

000000

00'752

026544

EM55

001754

032374

DHS4

001758

03,774

DT54

001760

000000

032503

EM56
DH56

001766

031774

DTS4

001770

000000
: ITEM

002002
002004
002006
0020'0

026720
032047
031732
000000

0020,2
0020'4
002016
002020

026757
032'55
031762
000000

'495
1496
1497
1498

; 'CNTRl ROV' DIDN'T SeT ON DOING WRITE/FMT STARTING
,FROM <DSK-AORES>
RKDA
RKDS
RKER
, PC
RKes
SECTR
SUR
CVL <OSK-ACRES>
,DRVN
SREG3
SREG2
SREG'
; SERRPe SREGO
$REGS
SREG>
,$REG4 SREGS

ON WRITE/FMT STARTING FROM
; <DSK-AORES>
RKDA
RKER
RKDS
RKCS
,PC
SECTR
SUR
CVI. (DSK-AORES>
;DRVN
$REG3
SREG2
SREGI
; SERRPC SREGO
SREG?
SREIl6
;$REG4 SREGS

; IHE' OR IERR'

; RKBA INCREMENTED WRONG ON WRITE OR WRITE FORMAT
RECVO
EXFCT
;PC
$REGI
,$ERRPC SREGO

: RKER SET. ON WRITE/READ/FORMAT
RKOS
RKER
RKCS
,PC
$REG:!
SREGI
; SERRPC SREGO

37
EM6:!
OH4
OT:!

0270'4
032047
03'732
000000

;RKWC DIDN'T OVERF~DW ON WRITE OR WRITE FORMAT
REcve
; SERRPC SREGO

;PC

36
EM6'
DH30
DT26
0

: ITEM

ON WRITE ·OR WRlTE FORMAT
CV~
SUR
SECTR
SUR
SECTR
SREG3
~REG'
$REG3
$REG7

35
EM60
OH4
OT2
0

,ITEM

; RKDA INCREMENTED WRONG
ExpeT:
DRV'
; PC
; RECVD: DRV#
en
; SERRPC
SREGO
$REGS
,$REG4 $REGS
\

34
EMS7
OH5
OT,
0

032075
031724
000000
,ITEM

002022
002024
002026
002030

; RKDB ERROR
ExpeT
; PC
,SERRPC SREGO

REeve
$REGI

:lI-FEB-7S
MACVl1 30A( 1052)
ERROR POINTER TABLE

; ITEM
027026
032503

EM63
DH56

002036

031774

OT54

002040

000000
; ITEM

EM64
DH64
OT2
0

027072
0326'0
031732
000000

002052
002054
002056
002060

027135
032047
031732
000000

002062
002064
002066
002070

02720'
032634
031762
000000

ON READ OR READ FORMAT
SUR
SECTR
_UP.
SECTR
SREG2
$REG3
iREG'
SREG7

RKDA INCREMENTED WRONG
ExpeT:
PC
ORU
REeVD: DRVN
CYL
SREGO
SERRPC
$REG4 SREG5
$REG6

002072
002074
002076
002'00

027240
032672

002102

027253

EM70

002104

032374

CH54

002106

031774

OT54

0021'0

000000

RKWC DID NOT OVERFLOW ON REAO OR READ FORMAT
PC
RKDA
RKWC
SERRPC SREGO
SREG'

RKBA INCREMENTED WRONG ON READ OR READ FORMAT
PC
EXPCT
RECVD
SERRPe SREGO
$REG1

43
EM66
OH66
DT26
0

lITEM

SEC 0028

42
EM65
DH4
OT2
0

; ITEM

PAGE 29

002042
002044
002046
002050

: ITEM

08:58

002032
002034

INCORRECT HEADER FROM
PC
SECTR
EXPCT
SERRPe SREGO
$REG'

SECTOR I
RECVD
SREG2.

031762

EMS7
OH6?
OT28

000000

DATA ERROR
ExpeT
PC
SERRPe SREGO

REeve
SREG'

DSK-ADRES
SREG2

'499
; ITEM

'500

,so,

'502
,503
1504
1505
'506
'507
1508
1509
15'0
1511
15'2
'5'3
15'4
1515
1516
1517

0021

026623

026662

SEC

001762
00,764

001772
001774
00'776
002000

PAGE a8

0
; ITEM

MO-' 1-CZRKKF. RK"
BASIC lOGIC TEST :I
21-FEB-7S 08:51
CZRKKF. P"
'462
1463
'464
1465
1466
1467
1468
1469
'470
147,
'472
'473
1474
1475
1476
'477
1478
'479
'480
'48'
1482
1483
,494
'495
'486
'487
'498
'489
'490
'491
'492
'493
'494

EM54

026452

; ITEM

Oe:SB

00'742

'442
'443
1444

21-FEB-78
MACV1' 30A('OS2)
ERROR POINTER TABLE

45
'CNTR~ RDV' DIDN'T SET ON DOING REAO/FMT STARTING
FROM ,OSK-ADRES>
RKDA
PC
RKER
RKDS
RKCS
SUR
SECTR
<OSK-ACRES>
DRV#
$REG3
$REG1
SREG2
SERRPe 5REGO
SREG7
SREG4 $REGS
$REG6

0
; ITEM

0021,2

027344

EM7'

002114

032374

OllS4

002116

031774

OT54

'HE' OR 'ERR' BIT SET ON READ/FMT STARTING
FROM <DSK-AORES>
RKDA
PC
RKOS
RKCS
RKER
SUR
SECTR
DRVN
<OSK-ACRES>
$REG3
SERRPC SREGO
$REG2
SREG'
SREG4 $REG5
SREG7
SREG6

MD-1 1-CZRKKF. RK11 BASIC LOGIC TEST 2
21-FEB-7B 08:51
CZRKKF. P11

1518
1519
1520
1521
1522
'523
1524
1525
1526
1527
1528
1529
1530
1531
1532
1533
1534
1535
1536
1537
153B
1539
1540
1541
1542
1543
1544

002120

000000

00212.2
002124
002126
002130

027422
032047
031732
000000

; ITEM

002132
002134
002136
002140

027464
032213
031732
000000

002142
002144
002146
002150

027536
032732
031724
000000

, 550

002162

1551

002164
002166

027656
033106
031724
000000

;WRONG DRIVE 10 IN RKDS AFTER SEEK
EXPCT
REevD
; PC
$REGI
; $ERRPC SREGO

50
EM73
DH34
DT2
0

DRIVE 10 BlTS(13-15) SHOU LD BE C LEi..l

;HARDWARE POLL,

INTERRUPTING DRIVE # NOT PRESENT

DRIVE #
; PC
; $ERRPC $REGO

52
EM75
DH74
OTI
0

: ITEM

:HARDWARE POLL.
; PC
RKDS
; $ERRPC SREGO

51
EM74
DH74
DTI
0

;ITEM

1547
1548

SEQ 0029

; ITEM

027606
032732
031724
000000

PAGE 30

47
EM72
DH4
DT2

; ITEM

002152
002154
002156
002160

1545
1546

21-FEB-78 . 08:58
ERROR POINTER TABLE

MACY,1 30A ( 1 052)

;IDRIVE

.' •

OlD NOT INTERRUPT DURING HARDWARE POLL

DRIVE
;PC
; $ERRPC SREGO

1549

1552
'553
1554

1555
1556
1557
1558
1559
1560
1561
1562
, 563
1564

1565
1566
, 567

002170

; ITEM

002174
002176
002200

027721
032047
031732
000000

002202
002204
002206
002210

027756
032753
031762
000000

002212

030001
032327
031742

002172

002214
002216

MD-11-CZRKKF,
CZRKKF • P11

1574
1575

RK11 BASIC LOGIC TEST 2
21-FEB-7B 08:51

002220

000000

002222
002224
002226
002230

030043
032155
031762
000000

002232
002234
002236
002240

030067
033010
03' 724
000000

002242
002244
002246
002250

030105
033024
031732
000000

002252
002254
002256
002260

030156
032047
031732
000000

002262
002264
002266
002210

030214
032047
031732
000000

002272
C02274
002276
002300

030245
033050
031762
000000

002302
002304
002306
002310

030306
032327
031742
000000

002312
002314
002316

030351
032155
031762

1576
1577

1578
1579
1580
1581

; RKDA CHANGED AFTER 'DRIVE RESET I
RECVD
; PC
EXPCT
$REGI
; $ERRPC $REGO

55
EM100
DH100
OT26
0

;ITEM

;SCP DID NOT SET AFTER WAS DONE
RKCS
; PC
; $ERRPC $REGO

54
EM7?
OH4
OT2
0

; ITEM

1568
1569

,570
1571
1572
1573

EM76
DH117
DT 1
0

;DATA ERROR AT WORD#
; PC
WORD.
EXPCT
; $ERRPC $REGO
$REGI

56
EM10l
DH44
DT20

;CNTRL ROY DID NOT SET AFTER READ CHECK
; PC
RKER
RKDS
RKDA
RKCS
$REG3
; $ERRPC SREGO
$REGI
$REG2

MACY11 30A( 1052)
21-FEB-7S
ERROR POINTER TABLE

; ITEM

RECVD
$REG2

08" 58

PAGE 31
SEO 0030

57
EM102
DH3Q

OT26
0

j I ERR I OF 'HE' SET ON READ CHECK
; PC
RKCS
RKER
RKDS
; $ERRPC $REGO
$REGI
$REG2

1582
1583
1584
15B5
1586
1587
1588
15B9
1590
1591
1592
1593
1594
1595
1596
1597
1598
1599
1600
1601
1602
1603
1604
1605
1606
1607
1608
1609
1610
16'1
1612
1613
1614
1615
1616
1617
1618
1619
1620
1621
1622
1623
1624

;ITEM

1627
1628
1629

READ CHECK

; RKSA CHANGED AFTER READ CHECK
;PC
EXPCT
RECVD
; $ERRPC $REGO
$REGI

;MEMDRY WORD CHANGED AFTER READ CHECK
; PC
LOC
EXPCT
RECVD
; SERRPC $REGO
$REGI
$REG2

65
EM110
OH44
OT20
0

; ITEM

64
EM107
DH107
OT26
0

; ITEM

; RKDA INCREMENTED WRONG
;PC
EXPCT
RECVO
; SERRPC SREGO
$REGI

63
£Ml06
DH4
DT2
0

; ITEM

; RKWC OlD NOT OVERFLOW ON READ CHECK DR WRITE CHECK
; PC
RECVO
RKCS
; $ERRPC $REGO
$REG1

62
EM105
OH4
DT2
0

;ITEM

; 1 CSE'
ON READ CHECK
; PC
RKER
; $ERRPC $REGO

61
EM104
DH104
DT2
0

; ITEM

1625
1626

60
EM103
DH103
OTl
0

;CNTRL ROY DID NOT SET AFTER WRITE CHECK
;PC
RKDA
RKCS
RKER
RK05
$REG3
; $ERRPC $REGO
$REGI
$REG2

66
EM111
OH30
DT26

; HE OR ERR BIT SET AFTER DOING WRITE CHECK
;PC
RKCS
RKER
RKDS
;$ERRPe $REGO
$REG1
$REG2

MO-" -CZRKKF, RK 11 BASIC LOGIC TEST 2
21-FEB-78 OB.Sl
CZRKKF. PI,
1630
163'
1632
1633
1634
1635
1636
1637
1638
1639
1640
1641
1642
1643
1644
1645
1646
1647
1648
1649
lG50
1651
1652
1653
1654
1655
'656
'657
1658
1659
1660
1661
1662
1663
1664
1665
1666
1667
1668
1669
, 670
1671
1672
1673
1674
1675
1676
1677
1678
1679
1680
1681
1682
1683
1684
1685

002320

000000

002322
002324
002326
002330

030376
032155
031762
000000

002332
002334
002336
002340

030417
032047
031732
000000

002342
002344
002346
002350

030456
032047
031732
000000

002352
002354
002356
002360

030515
032047
031732
000000

030624
033106
031724
000000

1714

1715
1718
1717
'718
1719
1720
'721
1722
1723
1724
1725
1726
1727
1728
1729
1730
1731
1732
1733
1734
1735
1736
1737
1738
1739
'740
1741

002402
002404
002406
002410

030671
033106
031724
000000

002412
002414
002416

030744
033106
031724

002420

000000

002422
002424
002426
002430

031002
032155
031762
000000

002432
002434
002436
002440

031051
033106
031724
000000

031152
032020
031732
000000

002462
002464
002466
002470

031211
033'22
031732
000000

002472
002474
002478
002500

031252
033122
031732
000000

002502
002504
002506
002510

031314
033150
031762
000000

002512
002514

03'351
033207

; SCP SET BEFORE SEEK COMPLETED
; PC
RKCS
; SERRPC SREGO

; RKll DID NOT INTERRUPT AFTER READ WAS DONE
;PC
RKCS
; SERRPC SREGO

;CNTRL RESET DID NOT CLEAR REGISTER
;PC
REGAoO RECVO
$REGI
; SERRPC SREGO

; RK11 DID NOT INTERRUPT AT CPU LEVEL
RKCS
;PC
LEVEL
$REGI
,SERRPC SREGO

104
EM127
OH12S
OT2
0

:RKll INTERRUPTED AT WRONG CPU LEVEL
;PC
LEVEL
RKCS
$REGI
;SERRPC SREGO

105
EM130
DH130
OT26
0

; ITEM

;CNTRL RESET DID NOT CLEAR 'SCP' 8IT
;PC
RKCS
; SERRPC $REGO

103
EM128
DH126
OT2
0

; ITEM

;RK11 DID NOT INTERRUPT AFTER SEEK COMPLETED
RKDS
;PC
RKCS
RKER
$REG2
; SERRPC $REGO
SREGI

102
EM125
DH2
DT2
0

; ITEM

PAGE 33

101
EM124
DH117
OTI
0

; ITEM

08:58

100
EM123
oH117
DTI

; ITEM

)

; RKI1 DID NOT INTERRUPT AFTER SEEK WAS INITIATED
;PC
RKCS
; SERRPC SREGO

77
EM122
DH30
oT26
0

; ITEM

002452
002454
002456
002460

; RK11 DID NOT INTERRUPT WHEN IDE WAS SET
:PC
RKCS
; SERRPC SREGO

MACYll 30A(1052) 21-FEB-78
ERROR POINTER TABLE

,ITEM

031110
033106
031724
000000

; WRONG MEMORY LOCATION CHANGED WITH IBA SET
EXPCT
RECVD
;PC
WORD'
$REGI
;SERRPC SREGO
SREG2

76
!!M121
CH11?
DTI

; ITEM

002442
002444
002446
002450

;RKBA INCREMENTED WITH taA SET
;PC
EXPCT
RECVD
;SERRPC SREGO
SREGI

75
EM120
DH117
OTI
0

; ITEM

; RKBA INCREMENTED WRONG ON WRlTE CHECK
RECVD
;PC
UPCT
; SERRPC SREGO
$REGI

74
EM117
oH117
oTl
0

; ITEM

;RKDA INCREMENTEO WRONG ON WRITE CHECK
EXPCT
RECVO
;PC
SREGI
; SERRPe SREGO

73
EM116
DH100
OT26
0

; ITEM

~KDS

SREG2

72
EMIl!
DH4
OT2

; ITEM

; WRITE CHECK ERROR
RKER
;PC
RKCS
$REGI
; SERRPC SREGO

71
EM114
OH4
DT2
0

; ITEM

002372
002374
002376
002400

SEO 0031

70
EM113
DH4
DT2
0

; ITEM

030551
032753
031762
000000

PAGE 32

67
EM112
OH30
DT26
0

; ITEM

002362
002364
002365
002370

oa:S8

a
; ITEM

MD-l1-CZRKKF. RK11 BASIC LOGIC TEST 2
21-FE8-78 08:51
CZRKKF. Pl1
.1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697
1696
1699
1700
1701
1702
1703
1704
1705
1706
1707
1708
1709
1710
1711
1712
1713

MACYll 30A(1052)
:a'-FEI-?B
ERROR POINTER TABLE

; 'ERR Bn' DID NOT SET IN RKER
;PC
RKER
ERR Bn
RKCS
$REGI
SREG2
; $ERRPC SREGO

106
EMI3,
DH131

;HE OR ERR 010 NOT SET
:PC
RKCS
RKER

SEO 0032

MD-1 i -CZRKKF.
CZRKKF.P11

RK11 BASIC LOGIC rEST
21-FEB-7B 08:51

1742
, 743
1744
1745
~ 746

002516
002520

031732
000000

1747
1748

002522
002524
002526
002530

031376
032047
031732
000000

002532
002534
002536
002540

031410
033235
03'762
000000

002542
002544
002546
002550

031433
033207
031732
000000

002552
002554
002556
002560

031474
032047
031732
000000

002562
002564
002566
002570

030306
032113
031762
000000

002572
002574
002576
002600

031531
032327
031742
000000

002602
002604
002606
002610

031547
033273
031742
000000

002612

031616

1749
1750
1751
, 752
1753
1754
1755
, 756
1757
1758
1759
1760
1761
1762
1763
1764
1765
1766
1767
1768
1769
1770
1771
1772

DT2
0
; ITEM

j RKER ERROR
ExPCT
; PC
:$ERRPC $REGO

REevo
$REGl

;NXC BIT DID NOT SET
RKER
RKCS
:PC
$REGO
$REG1

;PC

RKDA
$REG2

;RK11 CION'T INTERRUPT ON SOFT ERROR
RKER
RKCS
:PC
$REGl
; $ERRPC $REGO

112
EMi35
DH4
DT2
0

:ITEM

$REGl

111
EM134
DH131
DT2
0

;ITEM

SEQ 0033

; $ERRPC $REGO

110
EM133
DH133
DT26
0

: ITEM

PAGE 34

107
EM132
DH4
OT2
0

; ITEM

1i73
1774
1775
1776
1777
1778

06.58

21-FEB-78
MACY11 30A(1052)
ERROR POINTER TABLE

:MEX BITS INCREMENTED WRONG IN RKCS
EXPCTD
RECVD
;PC
$REGl
;$ERRPC $REGO

113
EM11 0
DH14
DT26
0

;CNTRL RDY DID NOT SET AFTER WRT CHK
RKER
RKWC
;PC
RKC5
: $ERRPC $REGO
$REGl
$REG2

1779
1780
1781
1782
1783
1784
1785
, 786
1787
1788
, 789
1790
1791
1792

, 793
, 794
1795
1796
1797

:ITEM

: ITEM

1798

1799
1800
1801
1802

002614
002616
002620

032732
031724
OOODOO

002622
002624
002626
002630

025370
032047
031732
000000

002632
002634

031662
000000

; 'WPS' NOT CLEAR
RKER
RKCS
:PC
$REGl
; $ERRPC $REGO

116
EM141

:lDRIVE #' PRESENT, BUT NOT SPECIFIED

MACYl1 30A(1052)
21-FEB-78
ERROR POINTER TABLE
DH74
DTl
0

; ITEM

;ITEM

RKDA
$REG3

:DATA ERROR ON TRANSFER FROM DISK TO TTY
EXPCT
RECVD
RKBA
RKCS
fPC
$REG3
$REGl
; $ERRPC $REGO
$REG2

08:58

PAGE 35
SEQ 0034

DRIVE #
:$ERRPC $REGO

:PC

117

, 803
1804
1805
1806
1807
1808
1809
1810
1811
1812
1813

RKDS
$REG2

115
EM140
DH140
DT20
0

: ITEM

MD-11-CZRKKF, RKll BASIC LOGIC TEST 2
ClRKKF.Pl1
21-FEB-78 08:51

114
EM137
DH44
DT20
0

EM11
DH4
DT2
0
120
EM142
0

: RKWC ERROR
EXPCT
: PC
: $ERRPe $REGO

RECVD
$REGl

MD-l1-CZRKKF, RKll BASIC l.OGIC TEST 2
CZRKKF.Pll
21-FEB-7B 06:51
1814

002636

000005

002640
002646
002650
002654
002660
002666
002670
002672
002674
002676
002700
002702
002704

023737

000042

000046

005077
012700
032777
001006
005001
005301
001376
005300
001367
000000

176464
000250
000200

176440

002704
002710
002712
002716
002720

012706
005026
022706
001374
012706

001100

002124
002732
002740
002746
002754
002762
002770
002776
003004
003010
003014
003022
003030

012737
012737
012737
012737
012737
012737
012737
012737
005037
005037
112737
012737
012737

022140
000340
022412
000340
024676
000340
024776
000340
001206
001210
000001
003022
003030

003036
003042
003050
003056
003064
003072

013746
012737
012737
012737
022777
001012

000004
003076
177570
177570
177777

003074
003076
003102
C03104
003112
003120

000403
012716
000002
012737

003124
003132

1615
1816
1817

1618
1819

1620
1621
1622
1623
1624
1625
1626
1827
1628
1629
le30
1631
1832
1833
1634
1635
1636
1837
1636
1839
1840
1841
1842
1843
1844
1845
1846
1847
1848
1849
1650
1851
1852
1853
1854
1855
1856
1657
1856
1859
1660
1861
1862
lB63
1864
1865
1866
1867
1866
1869

001016

001140
001100
000020
000022
000030
000032
000034
000036
000024
000026
001115
001106
001110

000004
001140
001142
176046

003104
001140
001142

012637

023737

000042

000046

001416

1911

1912
1913
1914
1915
1916
1917
1918
1919
1920
1921
1922
1923
1924
1925

003134
003140
003142

005227
001043
104401

003146
003152
003154
003162
003164
003166
003170
003176
003176

005737
001006
023727
001005
104406
000403
112737

65$:

177777
003200
000042
001140

000176

000001

001134

69$:
70$:

012700
012701
005020
005201
001375
005227
001020
013746
012737
005737

000004
003314
177776

000004

003312
003314

000406
012737

000140

001400

003322
003326
003330

012716
000002
012637

000004

#$WREG, SWR
;; POINT TO SOFTWARE SWR
NDISPREG. DISPLAY
(SP)+,II>NERRVEC
; ;RESTCRE ERROR VECTOR

67$
<CRLF>/RK11

MDV
MOV
CLR
INC
BNE
INC
BNE
MOV
MOV
TST

NODPCH,RO
/t-14 t R1
(RO)+
Rl
1$
#-1
START1
ERRVEC, -( SP)
'2S.ERRVEC
PS

2$:

BR
MOV

3$
H140,RKPRI

MOV
RTI
MOV

H3S,(SP)

3$:

001410
177764
1$:

177777

003330

(SP)+,ERRVEC

;FIND OUT IF ACT11.

003370
003376
003400
003404
003410
003412
003416
003420
003424
003424
003430

001410
177766

000002

000041

000040

001410

122731
101002
105037

000010

001410

005737
001432
005737
001002
000137

000042

104401
000413

003432

STARn: MOV
MOV
IS:
CLR
INC
BNE
CMPB
BNE
MOV

25:

001410
004262

PAGE 37
SEQ 0036

; ; GET OVER THE ASCIZ
LOGIC TEST 2/<15><12>/MAINDEC-l'-CZRKKF/<CRLF>

;FIRST START 7
; 6R IF NOT
; SAVE ERROR VECTOR ADDRESS
; NEW VECTOR ADDRESS
; SEE I F PROGRAM CAN REFERENCE THE
; PROCESS~R STATUS WORD
; 6R I F REFERENCE DI DN' T CAUSE TRAP
; SETUP INTERRUPTING PRIORITY TO VALUE
;WHICH WILL ALLOW INTERRUPT DN AN LSI-II
; SETUP RETURN ADDRESS
; RETURN
; RESTORE THE ERROR VECTOR

'XXDP' CHAIN OR DUMP MODE

HODPCH, RO
#-12,Rl
(RO)+
Rl
1$
#2,41
ST2
40,DDPCH

;CLEAR OUT DRIVE TABLE AREA

~MP

42
4$
DOPCH
3$
ST3

; LOADED FROM AN RK05 ?
; BR IF NOT
;GET DEVICE INDICATOR AND DRIVE ADDRESS OF
; LOADING RK05
;VALID DRIVE NUMBER IN BYTE 40 ?
;BR IF YES
;MUST BE DRIVE ZERO WHICH LOADED
; THIS PROGRAM
;CHAIN MODE OR ACT11 AUTO ACCEPT?
;BR IF NEITHER
; RUNNING FROM AN RK05 ?
;BR IF YES
; FIND OUT NUM6ER OF DRIVES

TYPE
BR

,65$
64$

; ;TVPE ASCIZ STRING
; ; GET OVER THE ASCIZ

CMPB
8HI
CLRB

001410

08:56

INC
#-1
;;FIRST TIME7
BNE
675
; : BRANCH I F NO
TYPE
,68$
; ;TVPE ASCIZ STRING
GET VALUE FOR SOFTWARE SWITCH REGISTER
; ;ARE WE RUNNING UNDER XXDP/ACT7
TST
"'#42
; ; BRANCH 1 F YES
BNE
69$
CMP
SWR, NSWREG
; ; SOFTWARE SWITCH REG SELECTED?
BNE
70$
; ; BRANCH IF NO
; ;GET SOFT-SWR SETTINGS
GTSWR
BR
70S
MOV6
HI, SAUTDS
; ;SET AUTO-MODE INDICATOR
BR
• ASCIZ

; ; 68$:
67$:

003250
003250
003254
003260
003262
003264
003266
003272
003274
003300
003306

MOV
MOV
MOV

MACY11 30A(1052)
21-FEB-78
TYPE PROGRAM NAME

000424

012700
012701
005020
005201
001375
122737
001166
013737

)

CMP
11>#42,"#46
;ARE WE IN ACT11 AUTOMATIC MODE?
SEQ
69$
;YES. SKIP TITLE
.SBTTL TYPE PROGRAM NAME
; :TYPE THE NAME OF THE PROGRAM IF FIRST PASS

.SBTTL

003334
003340
003344
003346
003350
003352
003360
003362

SEQ 0035

:CLEAR THE BUS
START:
RESET
; ;GIVE DRIVES TIME TO LOAD HEADS IN CASE OF AN APT START.
;ARE WE IN ACT11 AUTOMATIC MODE?
CMP
"#42,1;>#46
;NO. SKIP DELAY
START A
BNE
; SELECT UNIT 0
CLR
"'RKDA
;WAIT FOR ••
MOV
'250, RO
; DRIVE READY ..
20$:
8IT
'200."RKI)S
;IN CASE ..
START A
SNE
;OF APT ..
Rl
CLR
;START, 6UT ..
Rl
DEC
;DON'T WAIT ..
.-2
BNE
; FOREVER.
RO
DEC
20$
8NE
;RKDS BIT 1 (DRIVE READY) N~VER SET
HALT
STARTA:
.SBTTL INITIALIZE THE COMMON TAGS
; ;CLEAR THE COMMON TAGS (SCMTAG) AREA
MOV
NSCMTAG,R6
; ; FlRST LOCATION TO BE CLEARED
CLR
(R6)+
; ;CLEAR MEMORY LOCATION
CMP
NSWR, R6 ;; DONE?
;; LOOP 6ACK 1 F NO
BNE
,-6
; ; SETUP THE STACK POINTER
MOV
#STACK,~P
;;INITIALIZE A FEW VECTORS
MOV
NSSCOPE,<PNlOTVEC ;; lOT VECTOR FOR SCOPE ROUTINE
MOV
N340,@HlOTVEC+2 ; ; LEVEL 7
MOV
UERROR ,,,,.EMTVEC ;; EMT VECTOR FOR ERROR ROUTINE
MOV
'340,@#EMTVEC+2 ;; LEVEL 7
MOV
#STRAP ,"'.TRAPVEC ;; TRAP VECTOR FOR TRAP CALLS
MOV
N340,"'NTRAPVEC+2; LEVEL 7
MOV
#SPWRDN,,,,.PWRVEC ;; POWER FAI LURE VECTOR
MOV
N340,@.PWRVEC+2 ;; LEVEL 7
CLR
$TIMES
;; INITIALIZE NUMBER OF ITERATIONS
CLR
$ESCAPE
; ;CLEAR THE ESCAPE ON ERROR AODRESS
MOV6
#I,$ERMAX
; ;ALLOW ONE ERROR PER TEST
MOV
#, ,$LPADR
;; INITIALIZE THE LOOP ADDRESS FOR SCOPE
MOV
N. ,SLPERR
; ;SETUP THE ERROR LOOP ADDRESS
; ;SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
; ;EQUAL TO A '-1", SETUP FOR A SOFTWARE SWITCH REGISTER.
MOV
.NERRVEC,-(SP); ;SAVE ERROR VECTOR
MOV
N64$,II>'ERRVEC; ;SET UP ERROR VECTOR
MOV
.DSWR,SWR
; ;SETUP FOR A HARDWARE SWICH REGISTER
MOV
'DDISP,DISPLAY; ;AND A HARDWARE DISPLAY REGISTER
CMP
#-1 ,t'SWR
; ; TRY TO REFERENCE HAROWARE SWR
BNE
66$
: : BRANCH 1 F NO TIMEOUT TRAP OCCURRED
; ; AND THE HARDWARE SWR IS NOT • -1
;; BRANC~. IF NO TIMEOUT
SR
65$
N65$, (SP)
; ; seT UP FOR TRAP RETURN
64$:
MOV

66S'

MO-l'-CZRKKF, RK11 BASIC LOGIC TEST 2
CZRKKF.Pl1
21-FEB-7B 08:51
1870
1871
1872
1673
1874
1875
lB76
1877
1676
1879
1880
1881
1882
1883
1884
1885
1886
lB87
1888
1889
1890
1891
1892
1893
1894
1695
1896
1897
1898
1899
1900
1901
1902
1903
1904
1905
1906
1907
1908
1909
1910

PAGE 36

RT!

000176
000174
000004

012737

MACY1130A(10521
21-FEB-76' 06:56
ERROR POINTER TABLE

TST
BEQ
TST
BNE

HI a,DOPCH

25
DDPCH

3$:

MD-11-ClRKKF. RK11 BASIC LOGIC TEST 2
21-FE8-78 08:51
CZRKKF .Pll

1926
1927
192B
1929
1930
1931
1932
1933
1934
1935
1936
1937
1938
1939
1940
1941
1942
1943
1944
1945
1946
1947
1948
1949
1950
1951
1952
1953
1954
1955
1956
1957
1958
1959
1960
1961
1962
1963
1964
1965
1966
1967
1958
1969
1970
1971
1972
1973
1974
1975
1976
1977
197B
1979
19BO
1981

;;65$:
64$:

003460
003460
003462
003466
003470
003471
003472
003476
003502
003504
003510

005046
113716
104403
001
000
000137
005227
001115
104401
000411

003534
003534
003536
003542
003544
003545
003546
003552

005046
113716
104403
001
000
104401
000431

003636
003636
003642

104401
000435

001410

4$:

003512
; ;67$:
66$:
001410

003554
;;69$:
68$:
003644
; ;71$:
70$:

012700
012701
005020
005201
001375

001412
177765

104401

003762

104411
012600
012701
112002
042702
012703
012704
012705
020502

004050
004052
004054
004056

001414
005205
005723
005204

177770
177400
001414
177770
000060

MD-"-CZRKKF. RK11 BASIC LOGIC TEST 2
21-FEB-7S 08:51
CZRKKF" P11
1982
1983
1984
1985
1986
'987
1988
1989
1990
1991
1992
1993
1994
1995
1996
1997
1998
1999
2000
200,
2002
2003
2004
2005
2006
2007
2008
2009
2010
2011
2012
2013
2014
2015
2016
2017
2018
2019
2020
2021
2022
2023
2024
2025
2026
2027
2028
2029
2030
2031
2032
2033
2034
2035
2036
2037

004060

001372

004062
004064
004066
004066
004072

005702
001461

<15><12>/NOT TESTING DRIVE /

CLR
MOVB
TYPOS
.8YTE
.BYTE

-(SP)
DDPCH. (SP)

INC
BNE
TYPE
BR
.ASCIZ

;CLEAR WORD ON STACK
;GET DRIVE ADDRESS
;TYPE THE ADDRESS
;ONLY 1 ~HARACTER
1
; SUPRESS LEADING ZEROS
0
;GET NUM8ER OF DRIVES
ST3
; FIRST TIME THROUGH HERE
#-1
; BR IF NO""
ST2
; ;TYPE ASCIZ STRING
.67$
; ;GET OVER THE ASCIZ
66$
<15><12>/TO TEST DRIVE /

CLR
MOVB
TYPOS
• BYTE
.BYTE
TYPE
BR
• ASCIZ

-(SP)
DDPCH. (SP)

; C LEAR WORD ON THE STACK
;GET DRIVE ADDRESS
; TYPE THE DRIVE ADDRESS
;O~LY 1 CHARACTER
1
;SUPRESS LEADING ZEROS
0
; ;TYPE ASCIZ STRING
.69$
; ; GET OVER THE ASCIZ
68$
/ HALT PROGRAM • REMOVE RKDP PACK AND REPLACE IT /<15><12>

TYPE
SR
• ASCIZ

; ;TYPE ASCIZ STRING
.71$
; :GET OVER THE ASCIZ
70$
/lIIlTH A WORK PACK. CLEAR LOCATION 40 • AND RESTART PROGRAM/

MACVl1 30A(1052)
21-FEB-78 OB:5B
PAGE 39
GET VALUE FOR SOFTWARE SWITCH REGISTER
BNE

TST
BEQ

R2
6$

; SHOULD BE 0-7. IF ANY OTHER
;TYPE ?? & AGAIN ASK FOR
; DRIVS TO BE TSTD?
; IS IT A TERMINATOR?
;YES. EXIT. NO DRIVES INDICATED.

TYPE
BR
.ASCIZ

.67$
66$

; ;TYPE ASCIZ STRING
; ;GET OVER THE ASCIZ

BR
TST
BNE
INC
INC
Move
BIC
CMP
BNE
BIS

ST2
;GO. AGAIN ASK QUESTION
@R3
;SEE IF ALL READY SELECTED
4$
; ERROR IF SELECTED ALL READY
@R3
; SET UP FLAG FOR THE DRIVE
DRIVS
; INCREMENT TOTAL NO OF DRIVES PRESENT
@RO.R2
; GET NEXT CHAR
#177400. R2
;CHARACTER ONLY
# I F.R2
; IS IT F?
8$
;NO, GO ON
>BITI5.@R3
;SET B!T 15 TO SHOW RK05F
#BITO,RS
;EVEN DRIVE?
9$
;EVEN DRIVE SO BRANCH
-2(R3)
;CHECK EVEN DRIVE
4$
; EVEN ALL READY SELECTED
.BInSl BITO ,-2 (R3)
;SELECT EVEN DRIVE
10$
;CONTINUE
2(R3)
;CHECK ODD DRIVE
4$
;ERROR IF SELECTED BEFORE
NBITlSl BITO. 2( R3)
; SELECT ODD DRIVE
DRIVS
;COUNT DRIVES SELECTED
(RO)+
; POINT TO NEXT CHAR
11$
; CHECK FOR COMMA
.54.R2
;IS IT A 'COMMA' ?
5$
; YES. GD PROCESS NXT WORD
R2
;NO. IS IT A TERMINATOR?
4$
: IF NOT, SOMETHING WRONG
;GO ASK QUESTION AGAIN
6$
; EXIT. IF A TERMINATOR
(ROI+
; INCREMENT PTR TO NXT BYTE
; IN INPUT BUFFER
Rl
; THERE SHOULD BE NO MORE THAN
IS
; 8 DRIVES. HENCE IF MORE
4$
:THAN 8 DIFFERENT NOS. TYPED IN. ERROR I
;GO AGAIN ASK THE QUESTION

4$:
104401
000402

004074
; ;67$:
66$:

004100
004100
004102
004104
004106
004110
004114
004116
004122
004126
004130
004134
004140
004142
004146
004150
004156
004160
004164
004166
004174
004200
004202
004204
004210
004212
004214

000716
005713
001370
005213
005237
111002
042702
022702
001026
052713
03270S
001407
005763
001347
012763
000406
005763
001340
012763
005237
105720
000744
022702
001403
005702
001324

004216
004220

000404
105720

004222
004224
004226

005201
001277
000717

004230
004234
004242
004244
004250

005037
032777
001003
005037
000502

004252
004260

012737
000476

3$:
001412

lIS:
177400
000106
100000
000001

BIT

177776
100001

177776

9$:

000002
100001
001412

000002

lOS:

as:

000054

5$:

BEQ
TST
SNE
MOV
BR
TST
BNE
MOV
INC
TSTB
BR
CMP
BEQ
TST
BNE
BR
TSTB
INC
8NE
SR

001440
002000

6$:

CLR

BIT

174676

8NE
CLR
SR

001344

00000'

SEQ 0037

; FIND OUT FROM USER WHICH DRIVES (LOGICAL ADDRESSES) ARE TO BE
;TESTED (DRIVES TO BE TESTED 7). IN REPLY THE USER SHOULD TYPE IN THE
;LOGICAL ADDRESSES SEPERATED BY COMMAS. THUS IF 2 DRIVES 0.1 ARE PRESENT:
'DRIVS TO B TSTD?'
'0,1 <CR> I
A CAR. RET. SHOULD BE TYPED TO TERMINATE THE LIST.
ST2:
MOV
#DRIVS .RO
#-13,R1
MOV
(RO)+
13$:
CLR
INC
RI
13$
BNE
; ;TYPE ASCIZ STRING
TYPE
.65$
SR
64$
; ;GET OVER THE ASCIZ
; ;65$:
.ASCIZ <15><12>/DRIVES TO BE TESTED ?/<15><12>
64$:
ROLIN
; GET STARTING ADRES OF ASCII STRING
MOV
(SP)+,RO
>-10.Rl
; SET UP COUNT
MOV
1$:
;GET ASCII CHARACTER
MOVB
(RO)+.R2
;MASK UNWANTED SITS
BIC
"77400.R2
MOV
.DRIVO. R3
#-10.R4
MDV
MOV
#60,RS
;WAS THE TYPED IN CHARACTER
2$:
CMP
R5.R2
; A NUMBER BETWEEN 0-77
3$
;YES. BRANCH
BEQ
INC
R5
;NO. INCREMENT
TST
(R3)+
; INCREMENT POINTER TO DRV FLAG
R4
; CHARACT ER THAT WAS INPUT
INC

000415

004014
004014
004016
004020
004024
004026
004032
004036
004042
004046

.ASCIZ

~MP

004262
177777

003736

003736
003742
003746
003750
003752
003754
003760

PAGE 38
21-FES-78 08:58
MACY11 30A( 1 052)
GET VALUE FOR SOFTWARE SWITCH REGISTER

001344

7$:

MDV
BR

/77/

SIZYET
#SW10 t .SWR
7$
SIMUL
ST4

;NO SIZI·.G NEEDED
:TESTING ON SIMULATOR?
;YES. BRANCH
;NO. CLR FLAG

#1.SIMUl

;SET FLAG TO INDICATE SIMULATOR

ST4

SE~

0038

MD-"-CZRKKF, RKl1 BASIC LOGIC TEST 2
CZRKKF • P"
2,-FEB-7B 08: 51
2038
2039
2040
2041

2042
2043
2044
2045
2046
2047
2048
2049
2050
2051
2052
2053
2054

2055

MACY"
30A(1052)
21-FEB-7B oe 5B PAr;E 40
GET VALUE FOR SOFTWARE SWITCH REG I STER

177777
004442
175024
175032
004534

004262
004270
004276
004302
004306
004314
004316
004320
004324
004330
004332
004334
004340
004344
004350
004352
004356

012737
012737
005777
005777
012737
'04401
001216
012700
005037
005001
005004
012702
010177
020177
001405
012703
004737

004356
021026

004362
004364

0004'3
032777

000200

004372
004374
004376
004400
004404
004406
004410
004412
004414
004420
004422
004424
004426
004432
004434
004436
004440

001407
104401
001213
005237
005212
010446
104402
005722
062701
005204
005200
001345
005737
001011
104401
001236
000406

004442
004444
004446
004452

0,,603
022626
062703
004737

001440
000004

N-l,SI!':!T
N5$,!!>N4
!!>RKOS
@RKOA
#BACTMO ,@'4

: CHECK FOR RK05F LATER
: SET UP ACRES FOR TIME-OUT VECTOR
: REFERENCE RKDS
: REFERENCE RKOA

.-10,RO
DRIVS
Rl
R4
.ORIVO, R2
Rl,@RKOA
Rl,II>RKDA
3$
.2$,R3
PC, TYERM

: INITIALIZE COUNT FOR THE B ORIVES
: INITIALIZE. OF DRIVES PRESENT TO 0
: INITIALIZE ADDRESS TO DRIVE 0

25'

MOV
MOV
TST
TST
MOV
TYPE
MSGI
MOV
CLR
CLR
CLR
MOV
MOV
CMP
BEQ
MOV
uSR

35'

BR
BIT

4$
#200,II>RKDS

BEQ
TYPE
$CRLF
INC
INC
MOV
TYPOC
TST
ADD
INC
INC
BNE
TST
BNE
TYPE
MSG2
BR

5T3:

000004

177770
001412
001414
174774
174770

1$:

2056
2057
205B
2059
2060
20S1

2062
2063
2064
2065
2066
2067
206B
2069
2070
2071
2072
2073
2074
2075
2076
2077
2078
2079
2080
20Bl
20B2
20B3
20B4
20B5
20B6
2087
20B8
2089
2090

SEQ 0039

; CHECK NUMBER OF DRIVES

174734

001412

4$:
020000

001412

$$:
177776
021026

MOV
CM?
ADD
uSR

: ADDRESS THE DRIVE
: CHECK, WAS IT ADDRESSED?
:YES
:WHILE CHECKING NUMBER OF DRIVE
: UNDER NON-MANUAL MODE :,RKDA HAD TO BE ADRESED BUT
,IT WAS FOUND THAT THE DRIVE NO
,THAT WAS WRITTEN COULD NOT BE READ BACK
,CORRECTL Y ,
:CHECK I~ 'DRY' BIT IS SET, IF SET DRIVE 15
: PRESENT

DRIVS
(R2)
R4,-(SP)

:IF PRESENT, INCREMENT. OF DRIVES
,SET UP FLAG INDICATING THIS DRIVE PRESENT

(R2)+
#20000. Rl
R4
RO
1$
ORIVS
ST4

:SHIFT POINTER TO NXT DRIVE INDICATOR
,SET UP ADDRESS FOR THE NEXT DRIVE
,HAVE U CHECKED FOR ALL S DRIVES

ST4

:GO CHECK THE DRIVE INOEPENOENT
,CONTROLLER LOGIC
: GET PC WHERE TIMEOUT OCCURED
: RESTORE STACK

(SP),R3
(SP)+, (SP)+
#-2,R3
PC, TYERM

2091

)
"

: GO TYPE ERROR MESSAGE
:WHILE CHECKING FOR THE NUMB.R OF
:DRIVES IN NON-MANUAL MODE:: RKDS AND RKDA HAD TO BE REFERENCE::, TIMEOUT
:OCCUREO ON REFERENCING.PC IN THE ERROR
:MESSAGE INDICATES WHERE TH~ TIMEOUT OCCURED.

2092
2093

MO-l1-CZRKKF, RKI1 BASIC LOGIC TEST:2
CZRKKF.Pl1
21-FEB-7B oe:51
2094
2095
2096
2097
209B
2099
2100
2101
2102
2103
2104
2105
2106
2107
210B
2109
2110
2111
2112
2113
2114
2115
2116
2117
211B
2119
2120
2121
2122
2123
2124
2125
2126
2127
2128
2129
2130
2131
2132
2133
2134
213S
2136
2137
2138
2139
2140
2141
2142
2143
2144
2145
2146
2147
214B
2149

004456
004462
004466
004470
004474
004500
004506

005037
005737
001004

001434
001412

004n7

021742

000137
012737
005037

020652
00141.
001352

004512

005037

001350

MACYl1 30A(1052)
21-FEB-7B OB:5B PAGE 41
GET VALUE FOR SOFTWARE SWITCH REGISTER

5T4:

001354

IS:

CLR
TST
BNE
uSR
uM?
MOV
CLR

TS6FLG
DRIVS
1$
PC,WATIME
SEOP
#DRIVO,DRVPTR
DRVOON

CLR

DRIVAD

004516

012737

004534

000004

MOV

HBAOTMO,II>,4

004524

012777

004600

174650

MOV

HBAOINT ,fIIRKVEC

004532

000465

TST1

004534
004536
004540
004542
004546

011600
005740
022626
104401
000407

004566
004566
004570
004572
004574

010046
104402
000000
000137

SEQ 0040

: INITIALIZE THE NO. OF DRIVES
: THAT HAV~ BEEN CHECKED
: INITIALIZE DRIVE ADDRESS TO
:THE FIRST DRIVE
: SET UME OUT VECTOR FOR UNEXPECTED
:TIME OUTS
: SET UP RKl1 INTERRUPT VECTOR FOR
: UNEXPECTED INTERRUPTS FROM RK11
:GO TO TEST 1

:THIS ROUTINE HANDLES UNEXPECTED TIME OUTS
BAOTMO: MOV
TST
CMP
TYPE
BR
;i6SS:
.ASCIZ
64$:
MOV
TYPOC
HALT
uMP

004550

002636

(SP),RO ,SAVE PC WHERE TIME OUT oCCURED
-(RO)
(SP)+.(SP)+
:RESTORE STACK POINTER
,65$
: :TYPE ASCIZ STRING
64$
: :GET OVER THE ASCIZ

<15><12>/TIMOUT ,PC-I
RO.-(S?)

:SET UP FOR TYPING OUT PC
:GO TYPE OUT OCTAL PC

II>,START

;THIS ROUTINE HANDLES ~;.EXPECTED INTERRUPTS FROM RK11
: SW 9 AND 10 FOR LOOPING ON ERROR
: AND LOOPING ON TEST IN WHICH TIMEOUT
;OCCURRED, ARE PROVIDED.
004600
004602
004604
004612
004614
004616
004620
004622

011600
005740
032777
001014
104401
001213
104401
026004

004624
004630

104401
000403

004640
004640

010045

020000

174326

BADINTl MOV
TST
BIT
BNE
TYPE
$CRLF
TYPE
EM43

(SP) ,RO
-(RO)
'20000,fIISWR
1$

: SAVE PC WHERE INTERRUPT DCCURED
; INHIBIT ERROR TYPEOUT?
:YES, DON'T TYPE OUT

:TYPE 'UNEXPEXTEO RK11 INTERRUPT'

: TYPE
004532
: :65$'
64$:

AT PC=s I

TYPE
BR
.ASCIZ

,65$
64$
I,PCa/

: ;TYPE ASCIZ STRING
: ;GET OVER THE ASCIZ

MOV

RO,-(SP)

: SET UP FOR TYPING OUT PC

MD-11-CZRKKF. RK11 BASIC LOGIC TEST 2
CZRKKF.Pll
21-FEB-78 08:51
2150
2151
2152
2153
2154
2155
2156
2157
2158
2159
2160
2161
2162
2163
2164
2165
2166
2167
216B
2169
2170
2171
2172
2173
2174
2175
2176
2177
217B
2179
2180
2181
2182
2183
2184
2185
2186
21B7
21B8
2189
2190
2191
2192
2193
2194
2195
2196
2197
219B
2199
2200
2201
2202
2203
2204
2205

TYPOC

004642

104402

004644
004652
004654
004656

032777
001403
022626
000177

001000

004662
004670
004672
004674

032777
001401
000002
000000

040000

004676

000137

002636

174266

IS:

BIT
BEQ
CMP
JMP

.'000.iI'SWR
2$
(SP)+. (SP)+
IiISLPADR

174250

2$:

BIT
BEQ
RT!
HALT

#40000.Ii'SloiR
3$

JMP

IiINSTART

174224

3$:

2211

2212
2213
2214
2215
2216
2217
2218
2219
2220
2221
2222
2223
2224
2225
2226
2227
2228
2229
2230
2231
2232
2233
2234
2235
2236
2237
2238
2239
2240
2241
2242
2243
2244
2245
2246
2247
2248
2249
2250
2251
2252
2253
2254
2255
2256
2257
2258
2259
2260
2261

SEQ 0041

:GO TYPE OCTAL PC WHERE BAD
: INTERUPT oCCURED
: LOOP ON ERROR?
:NO. BRANCH
:YES. REPOSITION STACK
: GO TO THE START ING ADDRESS OF
: THE TEST THAT GAVE UNEXPECTED INTERRUPT
: LOOP ON TEST?
:NO. BRANCH
:YES. LOOP. GO BACK WHER U INTERRUPTED FROM.
:UNEXPECTED INTERRUPT OCCURED AS
: INDICATED IN THE TYPE oUT.U CAN U;.JP
:ON ERROR. TEST .OR INHIBIT TYPEOUT BY
:SETTING APPROPRIATE SWITCH-So
:GO BACK TO THE START OF THE
; PROGRAM. THUS PRESSING CONTINUE
; AFTER THE ABOVE HALT 1111 LL
; R~START THE PROGRAM

;RESTART AFTER POWER FAiL
:THE PROGRAM WOULD RESTART HERE IF POWER CAME BACK AFTER A FALlURE.
004702

004737

PFSTRT: JSR

021742

PC,WATIME

:KILL TIME

; ; *"'*.* .... **** ** ....... * ** * ** ......... ** ... "'* ... ****** ............ ** ** ...... ** ** * ....... ** ....... *
:*TEST 1

004706

000004

004710
004714
004716
004720
004724
004726
004732
004734
004740
004744

012700
005001
005002
005737
001403
120237
001435
010177
105777
100005

004746

005710

CHECK THAT THE DRIVES THAT ARE NOT SPECIFIED ARE NOT FOUND TO BE PRESENT
:.THIS TEST CHECKS THAT THE DRIVES THAT ARE NOT SPECIFIED
:. (IN RESPONSE TO "DRIVS TO BE TSTD?") ARE NOT FOUN~ TO BE PRESENT.
:-EVERY DRIVE FROM 0 TO 7 IS ADDRESSED. IF A PARTICULAR DRIVE
:-GIVES 'DRY' (IN RKDS), IT IS CHECKED THAT
THIS DRIVE
:-WAS SPECIFIED BY THE USER. IF IT WAS NOT AN ERROR IS
:-REPoRTEo. GIVING THE DRIVE NUMBER. IT IS LIKELY THAT THE USER
;'MAY HAVE FORGOTTEN TO PUT THE DRIVE (THAT I.S NOT SPECIFIED) ON
:.' LOAD'. IF THIS IS THE CASE THEN PUT THIS DRIVE ON 'LOAD'.
:-IF THIS IS NOT THE CASE, THERE IS A GENUINE ERROR. (T1ll0 DIFFERENT
: -DRIVE ADDRESSES MAY 8E RESULTING IN THE SELECTION OF THE SAME
: .PHYSICAL DRIVE.)

; : '" ** •• ** '" ** '" ** *** *** '" ****. *** ** *** "'* ** '" ** '" ** *** '" *•••• * *••• * •••••

TST1:
001414
1$:

001410
001410

2$:

174400
174362

MD-11-CZRKKF. RK11 BASIC LOGIC TEST 2
CZRKKF. P11
21-FEB-7B 08:51
2206
2207
220B
2209
2210

MACY11 30A(1052)
21-FEB-7B 08:58 PAGE 42
GET VALUE FOR SOFTWARE SWITCH REGISTER

SCOPE

MoV
CLR
CLR
TST
BEQ
CMPB
BEQ
MOV
TST8
BPL

.DRIVO. RO
Rl
R2
oOPCH
2$
R2.oDPCH
4$
il'RKDS
3$

TST

iIIRO

R1,(lRKDA

MACYl1 30A(1052)
21-FEB-78 08;58 PAGE 43
Tl
CHECK THAT THE DRIVES THAT ARE NOT SPECIFIED ARE NOT Fol!ND TO BE PRESENT
BNE

MoV
ERROR

R2. SREGO
116

TST
BEQ

IiIRO
4$

JSR
ERROR

PC. GT 4RG
10

005010

CLR

"RD

010003
162703
042703
062703
042723
042713
005337
005202
005720
062701
001330

MOV
SUB
BIC
ADD
BIC
BIC
DEC
INC
TST
ADO
BNE

RO.R3
.DRIVO. R3
'3,R3
.0RIVO. R3
.'00000.(R3)+
"00000. (R3)
DRIVS
R2
(RO)+
'20000. Rl
1$

004750

001026

004752
004756

010237
104116

004760
004762

005710
001421

004764
004770

004737
104010

004772
004774
004776
005002
005006
005012
005016
005022
005026
005030
005032
005036

; INITIALIZE POINTER
: INITIAL.ZE DRIVE ADRES 0
: INITIALIZE DRIVE # 0
: LOADED FROM AN RK05 ?
; B I F NOT
; LOADED F~oM THIS DRIVE
:BR IF YES
:ADRES THE DRIVE
: DR I VE READY?
;NO, THIS DRIVE NOT PRESENT
: YES. THIS DRIVE SELECTED
:WAS THIS DRIVE SPECIFIED BY

001162

3S:
020774

i THE USER?
:YES, OK
:No. THIS DRIVE' WAS NOT SPECIFIED
:BY THE USER. BUT STILL IS GIVING
; I DRY I
WHEN ADRESED. REPORT ERDR.
:GET DRIVE'
:THIS DRIVE' WAS NOT SPECIFIED BY
: THE USER ,. BUT WHEN ADRESED GAVE
i lORY'. CHECK THAT THIS DRIVE II IF
:PHYSICALLY PRESENT IS ON 'LOAD'. IF
;THIS IS NOT THE CASE. THEN ONE DRIVE
:MAY BE GETTING SELECTED BY TWO DIFFERENT
: LOGICAL ADDRESSES.
:CHECK THAT THIS DRIVE WAS NOT INDICATED
: IF IT WAS. & IT IS NOT FOUND TO BE
: PRESENT (DRY CLEAR). REPORT ERROR.
:GET RKCS, ER. OS. oA
:DRIVE • (AS IN RKoA) ~AS INDICATED BY
: THE USER. BUT WAS NOT FOUND TO BE PRESENT: CHECK THAT THE ROTARY DRIVE SELECTION
:SWITCH ON THE MODULE IS SET TO THE RIGHT

;DRIVE N.

001414
000003
001414
100000
100000
001412
4$:
020000

; THIS DRIVE IS NOT FOUND TO BE PRESENT
:HENCE DROP IT FROM THE SELECTION TABLE.
: DRIVE ~~oR
;MINUS OFFSET FOR TA8LE
: EVEN DRIVE OF PAIR
:PoINT TO EVEN OF PAIR IF RK05 F
:NoT SPECIFIED AS F MODEL
:SAME
: DECREMENT DR IVE COUNT
: INCRMNT DRIVE.
; INCRMNT POINTER
: INCRMNT AoRES TO NXT DRIVE
: LUP BAK I F NOT ~ONE

:THIS PART OF THE PROGRAM IS GOING TO BE REPEATED FOR
: EACH DRIVE PRESENT
;'DRIVAo' CONTAINS IN 8ITS 15.14.13 THE ADDRESS OF THE
:DRIVE BEING CURRENTLY CHECKED.
005040

NUDRV:

; ; ••••••• * •••••••••• ** ••••• ** ••••••••••••••••••••••••••••••••••••

005040
005042
005050

000004
012737
012737

:-TEST 2
FIND OUT NEXT DRIVE TO BE CHECKED
;THIS CODE FINDS OUT THE NEXT DRIVE THAT IS PRESENT AND THEN SETS UP
:THE ADDDRESS IN DRIVAD (BITS 13.14.15). THUS THROUGHOUT THE FOLLOWING TESTS
:THE DRIVE TESTED IS THE DRIVE WHooSE ADDRESS IS IN 'oRIVAD'.
;;
TST2:
SCOPE
MoV
".STIMES
: :00 1 ITERATION
MoV
.2. STSTNM
: RESET POINTER TO THIS TEST

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

000001
000002

001206
0011 02

SEQ 0042

MD-l1-CZRKKF. RK11 BAS Ie LOGIC TEST:!
CZRKKF. P 11
.1-FEB-78 08: 51
2262
2263
2264
2265
2266
2267
2268
2269

2270
2271
2272
2273
2274
2275
2276
2277
2278
2279
2280
22Bl
2282
2283
22B4
2285
2286
2287
2288
2289
2290
2291
2292
2293
2294
2295
2296
2297
2298
2299
2300
2301
2302
2303
2304
2305
2306
2307
2308
2309

2310
2311
2312
2313
2314
2315
2316
2317

005056
005062
005066
005070
005074

005037
005737
001002
000137
013701

005100
005104
005106
005114
005116
005120
005124
005126
005132
005134
005136
005140
005142
005144
005146
005152
005154

032721
001 DOS
062137
001371
000764
005737
001413
013746
000316
006216
006218
006216
006216
006216
122637
001755
010137

005160
005164
005170
005174
005200
005202

104401
013745
004737
005037
011600
104403

005204
005205
005210
005214
005216
005222

001
006300
005760
100006
104401
000401

005226
005226
005232
005234

005237
104401
001213

001112
001412
4$:

020652
001354

2S:

OCOOO 1

020000

001350

2321

2322
2323
2324
2325
2326
2327
2328
2329
2330
2331
2332
2333
2334
2335
2336
2337
2338
2339
2340
2341
2342
2343
2344
2345
2346
2347
2348
23<9

65'
1S,

001410

.+6

001350

AsR

3S'

001354

ASR
ASR
ASR
ASR
CMPB
BEQ
MDV

R1,DRVPTR
,MSG4
DRIVAD.-(R6)
PC,SHFTRT
FFLAG
(RS), RO

MOV
JSR
CLR
MOV
TYPOS

1,0
RO
CRIVO(RO)
5$

• BYTE

000
001414
005224
; :655:
64S:
001404
5$ :

;GET THAT POINTER TO THE NEXT
;DRIVE FLAG
; IS THIS DRIVE PRESENT?
;YES
; FORM NXT DRIVE ADRES

TYPE

001272
001350
021200
001404

; NO.

DRVPTR, R1

N20000,ORIVAO
2$
4$
DOPCH
35
ORIVAO,-(SP)
( S?)
(SP)
(SP)
(SP)
(SP)
(S?)
(SP)+,DDPCH

SWAB

001410

SEOP

NBITO, (R1 )+
1S

61 T
BNE
ADD
eNE
SR
TST
BEQ

ASL
TST
BPl
TYPE
BR
• ASCIZ

:TYPE CR.

005236
005240

000004
104413

MACY11 30A(1052)
21-FEB-7S
08:58
PAGE 45
T3
CHECK THAT DRIVE IS SUPPLIED WITH POWER-DPL BIT

SEQ 0044

;THIS IS A VERY BASIC ERRB IF IT
; OCCURS GO BACK TO TEST 10
005242

001326
001350

005256
005260
005264

013700
013777
005710
001003
011037
104004

000015

005:246
005254

005266

012777

005274
005276
005302
005304
005306
005310
005312
005316

005001
032710
001003
005201
001373
000403
004737
104005

005320
005322
005326
005330
005334
005336
005340
005346

005001
032710
001010
104417
005201
001371
017737
104016

005350
005352

000004
104413

005354
005362
005366
005372
005374
005400

013777
017700
032700

MOV
MOV
TST
BNE
MDV
ERROR

174064

001162

174036

010000

1$:

2$'

021002

35:

000100

4$:

000011

173762

001162

RKDS. RD
DRIVAD,I'RKDA
@RO
1$
Ii'RO, SREelO
4

MOV

#15.I'RKCS

CLR
BIT
8NE
INC
BNE
BR
JSR
ERROR

R1
#10000.@RO
3$
RI
2$
PC, GT3RG
5

CLR
BIT
8NE
DELAY
INC
BNE
MOV
ERROR

Rl
#100,@RO
TST4
,11
Rl
4$
i!'RKDS. SREGO
16

; ADDRESS THE DRIVE UNDER TEST
: CHECK I F ANY BIT OF RKDS IS SEn
; I F SET, BRANCH
; GET RKDS
; RK05 ERROR! RKDS I F ADDRESSED
; CORREcn Y SHOULD BE NON-ZERO
: ISSUE A DRV RESET. IF DRVE
;POWER IS LO, DPL WILL SET

;15 'DPL ' BIT SeT?
; DPL IS SET. BRANCH
;WAIT FOR SOME TIME TO
;SEE IF DPL WOULD SET
; OK. DPL NOT SET
;GO, GET RKCS, ER. OS
;DPL BIT OF RKDS IS SET. CHECK DRIVE POWER

4$-2

: DID R/W/S ROY BIT SET?
: ;YES. EXIT
; TIME DELAY
;WAIT FOR R/W/S ROY
; GET RKDS
:R/W/S ROY DID NOT SET AFTER
: DRIVE RESET. DRIVE RESET WAS DONE
;TD CHECK 'DPL'SIT • THIS TEST
; IS NOT FOR CHECKING DRIVE RESET.
; U MIGHT WANT TO USE THE TEST PROVIDED
; FOR CHECKING DRIVE RESET.

'DRIVE UNSAFE '

001350
173740
002000

001403

004737
104006

IS CLEAR,

IHDEN I

IS SET.

; ; ************>1< ***>1<************$*****"'>1< *** ** * *'" '* '" ** ***"'* 1\<",* ** ** **

TS14:

SCOPE
CNT. RESET

2361

2370
2371
2372
2373

; ; *****$*** "'*** *********"'** **** >l<*# ***** >I< **** >\I ** .. >1<>1<>1< ****** ********

;*TEST 3
CHECK THAT DRIVE IS SUPPLIED WITH POWER-DPL BIT
i ; '" ******** >10*******'*$ ****$****** >\< *"'******>1< '" '" *' ~* ... "'.'" ***** >I<
$****$
TST3:
SCOPE
CNT .RESET
;GO. DO CONTROL RESET
;THIS IS A CALL FOR THE 'CNTRL;RESET' ROUTINE. A CONTROL RESET IS
; ISSUED AND AFTER A CERTAIN TIME
; I F THE I CNTR l RDY I DOES NOT SET
;AN ERROR IS REPORTED. NOTE THAT
;THE PC IN ERROR MESSAGE IS THE
; PC WHERE 'CNT. RESET' IS LOCATED.

2362
2363
2364
2365
2366

2369

; DRIVE NUMBER
;GO TYPE THE OCTAL H FOR THE
;DRIVE THAT IS BEING CHECKED

;SET F FLAG

FFlAG

2351

2368

; GET THE DRIVE ADDRESS
;GO SHIFT IT TO THE RIGHT

;NO
; ;TYPE ASCIZ STRING
; ; GET OVER THE ASCIZ

64$
/F/

2352

2367

; PROGRAM I.CAPED FROM AN RK05 ?
; NO, BRANCH
; PUT TEST DRIVE ADDRESS ON THE STACK
;SETUP TO RIGHT JUSTIFY THE ADDRESS
;RIGHT JUSTIFY THE ADDRESS
;RIGHT JUSTIFY THE ADDRESS
;RIGHT JUSTIFY THE ADDRESS
;RIGHT JUSTIFY THE ADDRESS
; RIGHT JUSTIFY THE ADDRESS
; PROGRAM LOADED FROM THIS DRIVE?
,BR IF YES. DON'T TEST THE DRIVE
; STORE POINTER TO THE .NEXT
;DRIVE FLAG

;SEE IF F

2350

2353
2354
2355
2356
2357
2358
2359
2360

vMf:. TO THE END

;INDEX TO TABLE

,65$

INC
TYPE
SCRLF

SEQ 0043

; NO. CHANGE THI S (2) IN CASE THE
; TES T NO. CHANGES
;CLEAR TOTAL ERROR COUNT
,R THERE ANY DRIVES PRESENT?
; YES, 8RANCH

$ERTTL
DRIVS

CLR
TST
8NE
JMP
MOV

Mav

MD-ll-CZRKKF. RKll BASIC LOGIC TEST:I
CZRKKF.Pll
21-FEB-780B:51
231 B
2319
2320

MACY 11 30' ( 1 052)
21-FE8-78' 08: 58
PAGE 44
T2
Fl NO OUT NEXT DR I VE TO BE CHECKED

021002

173'156

MOV

Mav

BIT
BEQ
JSR
ERROR

DRIVAD.e>RKDA
@>RKDS. RO
'2000,RO
1$
PC,GT3RG
6

'WIlS!

GO. DO CONTROL RESET
THIS IS A CALL FOR THE I CNTRLRESET' ROUTINE. A CONTROL RESET IS
ISSUED AND AFTER A CERTAIN TIME
I F THE ' CNTR L ROY' DOES NOT SET
AN ERROR IS REPORTED. NOTE THAT
THE PC .N ERROR MESSAGE IS THE
PC WHERE ' CNT. RESET' IS LOCATED.
THIS IS A VERY BASIC ERR & IF IT
OCCURS GO BACK TO TEST 10
SET

DRIV~

ADDRESS

; GET RKDS
15 'DRU' BIT OF RKDS SET?
NO
GO, GET RKCS. ER. OS
'DRU I BIT OF RKDS IS SET, CHECK
DRIV BY PUTTING RUN/LOAD Sill TO LOAD

IS CLEAR

MD-l1-CZRKKF. RK11 BASIC LOGIC TEST 2
CZRKKF.P11
21-FEB-78 08:51
2374
2375
2376
2377
2378
2379
2380
2381
23B2
23B3
2384
2385

005402
005406
005410

0054,6
005420
005426
005430

005434

032700

004000

017737
104007

173712

001162

1$:

BIT
eNE
MOV
ERROR

#4000. Rr,
2$
@RKOS,SREGO
7

032777
001403
004737
'04114

000040

173700

2$:

BIT
BEQ
JSR
ERROR

#40.@RKDS
TST5
PC.GT4RG
114

020774

'HDEN'

>I<

01<

005436
005440

000004

005442
005450
005454
005456
005462

013777
105777
100403
004737
104010

'WPS!

IS CLEAR

SEQ 0045

; IS I WPS I CLEAR?
; ; YES. EXIT
;GET RKCS. ER. OS. DA
; 'WPS'-WRITE PROTECT STATUS- BIT OF
;OF RKDS SHOULD BE CLEAR. IF THIS DRIVE
;IS WRITE ENABLED. CHECK & SEE IF THIS
;DRIVE IS WRITE ENABLED. IF IT IS NOT.
;WRITE ENABLE IT.

>I<

CHECK THAT

; *TEST 5

IS SET,

: THEN 8ACK TO RUN
; IS I HOEN I BI T SET?
: YES. BRANCH
;GET RKDS
;ERROR. 'RKOS I BIT IS NOT SET

; ; '" *' '" >i< *' *" * >I: '" >I: >I: ** *** * "'* *' >I: ** * *' >I: '* '" ** "':+: *' '* '* >I: *
01<

DRIVE READY'

>I< >I<

* * * ** "':+: '* '" * '" '" 1ft. >« '" >1<.
>I<

IS SET IN RKDS

; ; *********
********** *********** '" ****** ***** *** * "'** ** **** ****** **
TST5:
SCOPE
;GO. DO CONTROL RESET
;THIS IS A CALL FOR THE 'CNTRL; RESET I ROUTINE. A CONTROL RESET IS
; ISSUED AND AFTER A CERTAIN TIME
; IF THE 'CNTRL ROY' ODES NOT SET
;AN ERRO° IS REPORTED. NOTE THAT
;THE PC IN ERROR MESSAGE IS THE
; PC WHERE I CNT • RESET I IS LOCATED.
;THIS IS A VERY BASIC ERR & IF IT
;OCCURS GO BACK TO TEST 10
;ADDRS THE DRIVE
; IS lORY I SET?
;; YES. OK
;GO. GET RKCS. ER.
DA
; I DRY I
NOT SET

CNT. RESET

104413

001350
173652

ORIVAD.@RKDA
@RKOS
TST6
PC.GT4RG
10

MOV
TSTB
BMI
JSR

173670

020774

ERROR

as.

; ; '" ******* >I< ****'****** *'" '" *******
*' *** ** >I< *** ** ****** "''''*'''''''''''''''
SDK ***** ***
CAN
; .TEST 6

CHECK THAT

BIT

SET

; * THIS TEST CHECKS THAT WITHIN A CERTAIN TIME
;

005464
005466
005474
005476
005504
005506
005510
005512
005520

000004
013777
005001
032777
001006
005201
001372
017737
104011

SDKI

BIT CAN SET.

IF IT DOES NOT AN ERROR IS REPORTED

; ; ****** SCOPE
*"'''' '" *"'*** ****** ********* **** *"'**** Ii' '" "'>It * ** ******** ** ****'**

TST6:
001350

173644

000400

173622

173610

001162

MOV
CLR
BIT
BNE
INC
BNE
MDV
ERROR

1$:

DRIVAD.e>RKOA
R1
#400.@RKDS
TST7
R1
1$
@RKDS.$REGO
11

; AODRS THE DRIVE
; INITIALIZE COUNT FOR TIMING WAIT LOOP
; IS SDK SET'?
:; EXIT
;NO. WAIT

;WAITED LONG?
;GET RKDS
; WAITED LONG BUT
;SET

'SEC OK 1

BIT DID NOT

; ; * ** ***** *** *'" ****>er"$l!< * ** ** *******"'****
****"'* **** ** '<11**"'** **>1<*$*""*
SECTOR COUNTER'1
; ",TEST 7

"D-11-ClRKKF.

ClRKKF.P11
2430
2431
2432
2433
2434
2<435
2436
2437
2438
2439
2440
2441
2442
2443
2444
2445
2446
2447
2448
2449
2450
2451
2452
2453
24S4
2455
24S6
2457
24S8
2459
2460
2461
2462
2463
2464
2465
2466
2467
24GB
2469
2470
2471
2472
2473
2474
2475
2475
2477
2478
2479
2480
2481
2482
2483
2484
2485

30A(1052)
21-FEB-78' 08;58
PAGE 46
CHECK THAT 'DRIVE UNSAFE' IS CLEAR.

001004

2386
2381
2388
2389
2390
2391
2392
2393
2394
2395
2396
2397
2398
2399
2400
2401
2402
2403
2404
2Ll05
2406
2407
2408
2409
2410
2411
2412
2413
2414
2415
2416
2417
2418
2419
2420
2421
2422
2423
2424
2425
2425
2427
2428
2429

MACY"
T4

RK11 BASIC LOGIC TEST:2
21-FE8-78 08:51

CHECK THAT

CAN COUNT FROM 0-13

MACY11 30A(1052)
21-FEB-78
08:58
T7
CHECK THAT 'SECTOR COUNTER'

PAGE 47
CAN COUNT

SEQ 0046

FROM 0-13

;'* THIS TEST CHECKS THAT THE SECTOR COUNTER CAN COUNT FROM
: '" 0-13

; * 1) FIRST. FOR INITIALIZING PURPOSES THERE IS A TIMED LOOP
;* DURING WHICH SECTOR COUNTER SHOULD COUNT Dmm TO O.
;* IS NOT DONE AN ERROR IS REPORTED

IF THIS

;* 2} AFTER A COUNT OF 0 IS REAC.,ED. THE PROGRAM WAITS
;* FOR A CERTAIN TIME. DURING WHICH THE SEC COUNTER
;* IS SAMPLED.
IF THE COUNTER DOES NOT CHANGE WITHIN THIS
TIME PERIOD AN ERROR IS REPORTED.
.* 3) UPON FINDING THAT THE CDUNTt;R HAS CHANGED. IT IS CHECKED
;* IF IT INCREMENTED CORRECTLY.
IF IT DID NOT AN ERROR IS REPORTED

•• 4)

IF IT INCREMENTED CORRECTLY. THE PROGRAM AGAIN WAlTS IN A

;* LOOP TILL THE COUNTER CHANGES.

(STEPS 2.3.4 ARE REPEATED

;* TILL THE COUNTER COUNTS UP TO 13)
005522
005524

; ; *******SCOPE
*********************** *** **** **** ** **** ** ***** *' ****** *'"
TST7;

000004
104413

CNT .RESET

GO.

DO CONTROL RESET
THIS IS A CALL FOR THE 'CNTRLRESET' ROUTINE. A CONTROL RESET IS
ISSUED AND AFTER A CERTAIN TIME
I F THE I CNTR L ROY 1 DOES NOT SET
AN ERROR IS REPORTED. NOTE THAT
THE PC IN ERROR MESSAGE IS THE
PC WHERE

ICNT.RESET '

LaCATED~

THIS IS A VERY BASIC ERR & IF IT
OCCURS GO BACK TO TEST 10
005S26
005534
00S540
005544

013777
013700
005037
005005

0013S0
001326
001356

005546
00S5S2

012704
012703

177764
000001

173604

MOV
MOV
CLR
CLR

DRIVAD.@RKDA
RKDS. RO
INDX1
R5

MOV

#-14.R4
#1.R3

INITIALIZE
I COUNT I
TO TIME 'ERROR 35!
INITIALIZE 'COUNT' - TO TIME

'ERROR 36'

005556

005037

001360

005562
OC5566
005570
005574

005237
001440
005237
001441

0013S6

005576
005600
005604
005606
005610
005612
005616

011001
032701
001771
02,001
001362
042701
001357

005620
OOS622
00S624
005626
005630
005632

005204
00'447
005205
001431
011002
032702

001360

MOV
1$:

CLR

INDX2

2$:

INC
BEQ
INC

INDX1
6$
INDX2
7$

SEQ
000400

177760

3$:

FOR THE 12 $I::CTOR5.
COUNT OF SEC-CNTR

'NEXT'

R1 CONTAINS THE
R2 CONTAINS THE

'PREVIOUS' COUNT OF SEC-CNTR
'PRESENT' COUNT OF SEC-CNTR

INITIALIZE 'COUNT ' - TO TIME
OoJAIT LOOP) 'ERROR 34'
KEEP TIMING FOR 'ERROR 35 1
BRANCH & REPORT ERROR IF WAITED LONG7
KEEP TIMING FOR 'ERROR 34'
BRANCH & REPORT ERROR IF WAITED ~ONG?

MOV
BIT
8EQ
CMP
8NE
SIC
BNE

@RO.R1

GET RKOS

H400,R1
2$
@RO.Rl
1$
.,77760. R1

IS 'SOK' SET?
NO. WAIT FOR IT TO SET
MAKE SURE THAT 2 CONSECUTIVE

INC
BEQ
INC

R4
TST10
RS
S$
@RO.R2
'400. R2

SEQ
MOV
000400

(WAIT LOOP)

INITIALIZE 'COUNT' 'R3 CONTAINS THE

BIT

READINGS OF SEC-CNTR ARE SAME

YES. MASK OUT NON-SEC CNTR BITS
IS IT SECTOR O. IF NOT LOOP BACK &
WA IT FOR SECTOR 0
KEEP TR'CK OF SECTORS CHECKED

:EXIT.!F ALL SECTORS CHKD
KEEP TIMING FOR 'ERROR 36 1
SR & REPORT ERROR IF WAITED LONG
GET RKDS
IS SDK SET?

MD-11-CZRKKF.
ClRKKF.Pl1

2486
2487
2488
2<;89
2490
2491

2492
2493
249'
2496
2496
2497
2499
2499
2500
2501

RK11 BASIC I.OGIC TEST 2
21-FEB-780S:S1

005636
005640
005642
005644
005650
005852
005654
005656

001772
021002
001370
042702
020201
001764
020203
001023

005660
005662
005664
00566S

005203
005201
005005
000754

005670
005674

010137

005676

000421

005700
005706

017737
104011

005710

000414

2510

005712

2511
2512
2513
251.
:.2515

00571
005722

010237
010337
104013

MACVn 30A(1052)
21-FEB-78
08:58
T7
CHECK THAT 'SECTOR COUNTER'

177760

5S:

001162

104012

2502

2503
2504
2505
2506
2507
2508

173422

001162

2509

005724

000406

2518
2517

005726

251 a
2519

005736

010337
010237
104014

005740

000747

005732

7$:

as'

001162
001164

BEQ

CMP

IiRO. R2

BNE
BIC
CMP
BEQ
CMP
BNE

4$
N177760, R2
R2, Rl
4$
R2, R3

INC
INC
CI.R

RS
Rl
RS

95:

001164

: INCREMENT "NEXT COUNT'
: INCREMENT "PREVIOUS COUNT"
:INITIAI.lZE AGAIN FOR TIMING 'ERROl. 36'
: GO & CHECK THE NEXT SECTOR COUNT

MOV

R1.SREGO

ERROR

:GET 'SEC CNTR'
:WAITED I.ONG, BUT SECTOR COUNTER
:010 NOT COUNT TO 0
: : EXIT

T5Tl0

MOV
ERROR

@RKOS,SReaO
11

: GET RKDS
:WAITED LONG,
:NOT SET

TST10

: :EXIT

MOV

R2,$REGO

MOV

R3,SREOl
13

: GET SEC CNTR (PRESENT COUNT)
:GET "NEXT COUNT"
: WA ITED LONG, BUT THE SECTOR
:COUNTER DID NOT INCREMENT FROM
: THE PRESENT COUNT TO THE NEXT COUNT
: ;EXIT

TST10

MOV
MOV
ERROR

R3,$REGO
R2,$REGl

2529
2530
2531

* *

** $"

*' *

TST 1 0:

000004
104413

SCOPE
CNT. RESET

2551
2552
2553
2554
2555
2556
2557
2558
2559
2560
2561
2562
2563
2564
2565

2566
2567
2568
2569
2570
2571
2572

25i3
2574
2575
2576
2577
2578

2579
2580
2581
2582
2583
2584
2565
2586
2587

;.THIS IS A CALL FOR THE 'CNTRL-

005746

013704

013700
012703

005752
005756
005762
005766
005770
005772
005774
005776
006002
006004
006006
006010
006012

010477
005005
005205
001410
011001
032701
001772
005204
005203
001364
000406

006014
006020
006024

110437
010137
104015

006026

000766

MOV

001350

MACY11 30A(1052)
21-FEB-78 08.58
PAGE 49
T10
CHECK THAT SC=SA CAN BE GENERATED
MOV
MDV

0013:26
177764
173352

MOV

CLR
INC
BEQ
MOV
BI T
BEQ
INC
INC
BNE
8R

2$:
000020

4$:

Move

3S:

001162
001164

ORIVAO,R4

RKDS,RO
#-14,R3
R4, <1'RKDA
RS
RS
3$
#20, Rl
2$
R4
R3
1$
TST11

MOV
ERROR

R4,$REGO
Rl,SREGl
15

SEQ 0049

: INITIALIZE COUNT FOR' OF SECTORS
: ADDRESS THE DR I V E
;INITIALIZE COUNT - FOR TIMING ERROR
:KEEP TIMING FOR ERROR
:REPORT ERROR IF WAITED I.ONG
:GET RKDS
: IS SC=SA SET?
:No, WAIT FOR IT
: AODRS THE NEXT SECTOR
: ARE ALL SECTORS CHECKED FOR SC.SA
: NO, GO & CHECK NEXT
: :YES, EXIT

@RO,Rl

: GET SECTOR ADDRESS
: GET RKDS
: COUI.D NOT GET SC.SA FOR THIS
i I SECTOR ADDRESS I
: GO CHK FOR THE REST

; : * **********.$*11<>11"'***>1<** "'* **'********** ... ** Ij<.* *'** *' ****** "'******'"
;*TEST 11
CHECK THAT 'R/W/S ROY' IS SET & 'SIN' IS CLEAR
; ; III '" * *$ * .1"1< l/I ~ '11>\11\'= >\< I\: *:$ >\l * >I< »0 **
*' *:\l * >It >!l * ¥ \II ~ >\: * '* "" * >I< "''''* "" '* *~ tl< *
>1<01<

006030
006032
006034
006042
006044
006050
006054
006056
006060
006062
C06064
006066
006072
006074
006100
006102
006106

000004
104413
013777
005001
017700
032700
001007
005201
001376
005201
001367
010037
104016
032700
001403
004737
104001

2588

TST 11 :
001350

173276

173256
000100

3$:

001162
001000

2$:

020774

; ; !ill II<

2589
2590
2591
2592

>I<

$ >It $.

SCOPE
CNT, RESET
MOV
DRIVAD,!>RKDA
CLR
Rl
MOV
@RKDS,RO
SIT
'100,RO
BI<E
2$
INC
Rl
BNE
3$
INC
Rl
BNE
1$
MoV
RO,$REGO
ERROR
16
BIT
N1000,RD
SEQ
TST12
JSR
PC,GT4RG
ERROR
1

**ol<*>1< '" ** ""** q,:

"'''''''''''* *' *'*

>11>1<

>\0 ...

>l<

>\< '"

1\1: $$

:GO, DO CONTROL RESET
:ADDRESS THE DRIVE
: GET RKDS
: IS R/\~/S ROY SET?
:YES, BRAI,CH
: INCREASE LOOP TIME
: FOR DRIVE RESET OF HEADS
: WAITED I.ONG ENOUGH?
: I F NOT LUP 8AK & ,lAIr
: GET RKDS
: R/W/S ROY SHOULD BE SET
: IS SIN CLEAR?
: :YES, EXIT
:GET RKCS,ER.DS,OA
; '51114 1 SHOULD HAVE BEEN CLEAR
: IT >lAS NOT CLEAR
: NEXT TEST IS GOING TO CHECK
: DRIVE RESET, SIN SHOULD BE
: CLEARED THEN. IT WI LL BE CHECKED
: THERE.

>I< 01< It >$: II< '" >I< >I< '" '" '" "" ",«<It:

lit'" '" * *'* "" ** '" ** *$ ** "'* '" *"' .. * '" **

;*TEST 12
CHECK 'DRIVE RESET'
:*THIS rEST CHECKS THE VERY BASIC DRIVE RESET LOGIC.
; -S I NCE THE HEADS ARE AT CY UNDER 0 (GO ING INTO TH I S
: 'TEST) DRIVE RESET RETRACTS THEM BACK BEYOND CYUNDER 0,
: 'AFTER WHICH THEy ARE PUSHED FORWARD TO CYLINDER 0 AGAIN.
:'IN THE LATER PART OF THIS PROGRAM THERE IS A DRIVE RESET
:'TEST WHICH DOES THE RESET FROM I.AST CYLINDER,

2593
2594
2595

2596
2597

""II< 01<* >1<** *.11< "'***** **'" $>4<***

; RESET' ROUTINE. A CONTROL RESET IS
: ISSUED AND AFTER A CERTAIN TIME
:IF THE 'eNTRL ROY' DOES NOT SET
:AN ERROR IS REPORTED. NOTE THAT
: THE PC I N ERROR MESSAGE IS THE
:PC WHERE 'CNT.RESET' IS LOCATED.
;THIS IS A VERY BASIC ERR 8. IF IT
: OCCURS GO BACK TO TEST 10

I<D-l'-CZRKKF, RK11 BASIC LOGIC TEST 2
CZRKKF.P11
21·~FEB-78 08:51

2546

"'!\Iii! "''''IIjI»< II< '"

: GO, DO ~ONTROL RESET

2537
2538

2547
2548
2549
2550

; ; """'****"''''* ***"'***"'** **$*>1<11/<$111<***

005742
005744

2535
2536

2542
2543
2544
2545

BIT 010

; : ... '''<>i! 1$ ... $: 0\< ....
'*' * '" '" oj!; >I< '" >\< >Ii '" '" 11< '" >1<'" * * "'.,. * '* >10 *". * II! '" '" >/I '" ** ,',,~. O/i * >I< oj!; * * '*>1< 01< III
:'TEST 10
CHECK THAT SC.SA CAN BE GENERATED
:. THIS TEST CHECKS THAT SC.SA CAN BE GENERATED FOR
:. EVERY SECTOR

2532
2533
2534

2539
2540
2541

BUT 'SDK'

;GET 'NEXT COUNT' (SEC CNTR SHOULD BE THIS)
;GET PRESENT COUNT ("HAT SEC CNTR WAS)
;SEC CNTR INCREMENTED WRONG, DID
:NOT INCREMENT FROM PRESENT COUNT
: TO NEXT COUNT

2520
2521
2522
2523
2524
2525
2526
2527
2528

SEO 0047

:NO, WAIT FOR SDK
:MAKE SURE THAT 2 CONSECUTIVE
: READINGS OF SEC-CNTR ARE SAME
:MASK NON-SEC-CNTR BITS
:HAS SEC CNTR INCREMENTED?
:NO, WAIT FOR IT TO CHANGE
:YES, DID IT INCREMENT CORRECTI.Y?
: NO - REPORT ERROR

ERROR

0011S2

PAGE 48
CAN COUNT FROM 0-13

006110

000004

MD-ll-CZRKKF. RK 11 BASIC LOGIC TEST 2
CZRKKF.Pll
21-FEB-7B 08:51
2598
2599
2600
2601
2602
2603
2604
2605
2606
2607
2608
2609
2610
2611
2612
2613
2614
2615
2616
2617
2618
2619
2620
2621
2622
2623
2624
2625
2626
2627
2628
2629
2630
2631
2632
2633
2634
2635
2636
2637
263B
2639
2640
2641
2642
2643
2644
2645
2646
2647
2648
2649
2650
2651
2652
2653

006112

104413

006114
006120
006130
006134

013700
005004
013777
012710
104412

006136

104021

006140
006144
006152
006154
006160
006162
006164
006166
006170
006174

012705
032777
001402
000137
005204
001370
005205
001366
004737
104026

006176
006204
006205
006212

032777
001403
004737
104001

006214
006220
006222
006226

032710
001403
004737
104022

006230

022710

006234
006236
006244
006250

001406
012737
011037
104024

006122

08: 58

MOV
CLR
MOV
MOV
CHKCROY

RKCS.RO
R4
DRIVAD.(IIRKDA
615.(IIRO

ERROR

MOV
BIT
BEQ
JMP
INC
BNE
INC
BNE
JSR
ERROR

'-2.R5
'100,(IIRKDS
.+6
3$
R4
6$
R5
6$
PC,GT4RG
26

BIT
BEQ
JSR
ERROR

61000.I>RKDS
5$
PC, GT4RG
1

5$:

BIT
BEQ
JSR
ERROR

#140000.&>RO
4$
PC.GT4RG
22

4$:

CMP

'214.@RO

BEQ
MDV
MOV
ERROR

TST13
#214.SREGO
(ORO .$REGI
24

001332
001350
000015

177776
000100

173210

173154

2$:
6$:

006176

020774

001000

173122

3$:

020774

140000
020774

000214

000214
001164

001162

PAGE 50

SEQ 0049

:GO. DO CONTROL RESET
:THIS IS A CALL FOR THE 'CNTRL:RESET' ROUTINE. A CONTROL RESET IS
: ISSUED AND AFTER A CERTAIN TIME
:IF THE 'CNTRL ROY' DOES NOT SET
:AN ERRO" IS REPORTED. NOTE THAT
: THE PC IN ER ROR ME SSAGE I S THE
; PC WHERE 'CNT. RESET' IS LOCATEO.
: THIS IS A VERY BASIC ERR & IF IT
: OCCURS GO BACK TO TEST 10

CNT.RESET

: INITIALIZ COUNT - TO TIME ERROR
:AODRESS THE DRIVE
;

DRIVE RESET'. GO

;GO CHECK IF CONTROL ROY IS SET
; I F SO. SKI P THE EROR MESSAGE.
;CNTRL ROY DID NOT SET AFTER
; S~NOING CYL ADDR TO THE DRIV.
; 'ADD ACK' SHOULD HAVE COME BACK
;FROM DRIVE. THEREUPON SETTING 'CN ROY'
;SET UP DELAY COUNTER
; CHECK FOR R/W/S READY

;GO. GET RKCS. ER. OS. OA
: R/W/S ROY 010 NOT SET AFTER
;DRIVE RESET

:010 SIN SET?
;NO. BRANCH
;GO. GET RKCS,ER.DS.DA
;SIN SET. AFTER A
: DRIVE RESET.
tWAS 'ERR' BrT OR 'HEI BIT SET?
;NO
;GD. GET RKCS. ER. OS. DA
:' ERR' DR 'HE' BIT seT WHILE DOING
;DRIVE RESET
:DOES RKCS STILL CONTAIN THE
j'DRIV RES' BITS
::YES. EXIT
; GET EXPCTO RKCS
: GET RKCS. RECVO
:NO - RKCS SHOULD CONTAIN THE 'ORIV RES'
; FUNCTION. ERROR IF DIFF£RENT.

;; .TEST
; .... * *"'**
. . '" *** .....CHECK
'" *** ... ** ... "'.., "'* * ** '" "' . . '" *** '* '" '" "' ... '" "' ........ * **.* ** '" '" ** ... * **
13
'SEEK' TO CY LINDER 0
;* THIS TEST CHECKS THE SEEK LOGIC DOING SEEK TO CYLINDER O.
;* NOTE THAT SINCE THE HEADS ARE ALREADY ON CYLINDER O. NO
:. HEAD MOVEMENT IS INVOLVEDN AND THE STRESS IS ON THE BASIC SEEK
; ' LOGIC.

MD-11-CZRKKF. RK11 BASIC LOGIC TEST 2
CZRI(KF.Pl1
21-FE8-78 08:51
2654
2655
2656
2657
2658
2659
2660
2661
2662
2663
2664
2665
2666
2667
266B
2669
2670
2671
2672
2673
2674
2675
2676
2677
2678
2679
2680
2681
2682
26B3
2684
2685
2686
2687
268B
2689
2690
2691

MACY11 30A (1052)
21-FEB-78
T12
CHECK 'DRIVE RESET'

006252
006254

MACY11 30A(1052)
21-FEB-78
OB:5B
T13
CHECK 'SEEK' TO CYLINDER 0

PAGE 51
SEQ 0050

; ; ** "'* ** "'* '" "'.* ** >$I"' ••• "'''' •• *"' •• "'* '" "' .. '" "' .. '" '" * '" '" "' .. '" ** '" '" *'!" "' •••• '" "'* "' •• "' ••

TST 13:

000004
104413

SCOPE
CNT. RESET

TST .SIN

006256

104421

006260
006264

013700
013777

001332
001350

006272
006276

012710
104412

000011

006300

104021

006302
006304
006312
006314
006316
006320
006324
006326
006334
006336
006342

005005
032777
001005
005205
001372
004737
104026
032777
001403
004737
104001

006344
006350

032710
001403

140000

006352
006356

004737
104022

020774

006360
006364
006366
006372

005777

172744

004737
104023

021002

006374
006400
006402
006410
006414

022710
001406
012737
011037
104024

000210

MOV
MOV

173046

MOV
#11.&>RO
CHKCRQY

2$:
000100

173014

020774
001000

RKCS,RO
DRIVAD.<IIIRKDA

172772

3$:

020774

ERROR

CLR
BIT
BNE
INC
BNE
JSR
ERROR
BIT
BEQ
JSR
ERROR

R5
'100,PRKDS
3$
R5
2$+2
PC.GT4RG
26
61000. (IIRKDS
6$
PC,GT4RG
1

; GO. DO CONTROL RESET
: THIS IS A CALL FOR THE 'CNTRL; RESET' ROUTINE. A CONTROL RESET IS
: ISSUED AND AFTER A CERTAIN TIME
; I F THE I CNTR L ROY I DOES NOT seT
:AN ERROR IS REPORTED. NOTE THAT
; THE PC IN ERROR MESSAGE I S THE
;PC WHERE 'CNT.RESET' IS LOCATED.
;THIS IS A VERY BASIC ERR & IF IT
; OCCURS GO BACK TO TEST 10
:GO CHECK IF SIN SET. IF SET
: A DO DRIVE RESET TO CLEAR ~T
: ADDRESS THE DRIVE
; 'SEEK' GO
:GO CHECK IF CONTROL ROY IS seT
: I F SO, SK I P THE EROR MESSAGE.
: 'CNTRL ROY' DID NOT SET AFTER SENDING
;CYL ADDR TO THE DRIVE. 'ADD ACK'
; SHOULD HAVE COME BACK FROM THE
;DRIVE. THEREUPON SETTING 'CNTRL ROY'
; DID R/W/S ROY BIT SET?
; YES. BRANCH
; WA ITEO LONG ENOUGH7
; IF NOT. LUP BAK & WAIT
;GO. GET RKCS, ER. OS. DA
: R/W/S ROY DID NOT SET AFTER SEEK
; DID SIN SET?
:NO. BRANCH
iGO. GET RKCS,ER,OS,DA
;SIN SET ON DOING SEEK
; TO CYL 0 NOTE THIS IS THE
; FIRST TIME THE HEADS HAVE
:BEEN MOVED

2692
2693
2694
2695
2696
2697
269B
2699
2700
2701
2702
2703
2704
2705
2706
2707
270B
2709

BIT

# 140000, <IIIRO

BEQ

JSR
ERROR

PC, GT4RG
22

:GO. GET RKCS. fR. OS. DA

4$:

TST
BEQ
JSR
ERROR

IiIRKER
5$
PC.GT3RG
23

WAS ANY BIT IN RKER SET7
NO
GO. GET RKCS. ER. OS
RKER SHOWS AN ERROR BIT. CHECK

5$:

CMP
BEQ
MOV
MOV
ERROR

#210,PRO
TST14
#210, SREGO
(IIRO.SREGI

DOES RKCS STILL CONTAIN 'SEEK' FUNCTION
:YES. EXIT
GET EXPCTD RKCS
GET RKCS RECVD
NO. RKCS SHOULD BE STILL CONTAINING
, SEEK' FUNCTI ON ERROR - I FIT CHANGED

6S:

001403

000210
001164

001162

;WAS 'ERR' OR

;

ERR I OR

'HE' BIT SET?

HE I~ Bl T seT WHI lE DOING

SEEK I

MO-l1-CZRKKF. RKll BASIC LOGIC TEST 2
CZRKKF.Pll
21-FEB-78 08:51
2710
2711
2712
2713
2714
2715
2716
2717
2718
2719
2720
2721
2722
2723
2724
2725
2726
2727
272B
2729
2730
2731
2732
2733
2734
2735
2736
2737
2738
2739
2740
2741
2742
2743
2744
2745
2746
2747
2748
2749
2750
2751
2752
2753
2754
2755
2756
2757
2758
2759
2760
2761
2762
2763
2764
2765

; ; *111 •• "' ••

PAGE 52

***.** ........ • •... ,..11< '" "' •• "' •• * "'."'.

000004
104413

006422

104421

006424
006430

004737

006432
006434

006442

",*", • • • "' . . . . .

006450
006454
006462
006466
006470
006472
006474
006500
006502
006506

005005
001350
000100

013701
012777
032711

001326
000011
000100

172676
172670

172650

001405
005205
100373
004737
104025
004737
104016

*"'''' •••••••••• "" Ill'"

'''* •••••••••••••••

021504

10402-6

013777
052777

SEO 0051

;.TEST 14
CHECK R/W/S ROY IS CLEAR WHEN HEADS ARE IN MOTION
:HHIS TEST CHECKS THAT R/W/S DOES GET CLEARED
:oWHEN THE HEADS ARE IN MOTION. SINCE 'MOVE L' ON
:.M7700 (RK05) GENERATES THIS SIGNAL, ABSENCE OF
; oR/W/S ROY-CLEAR COULD MEAN A FAULT ON M7702
;.WHERE 'MOVE L' IS GENERATED.
: oNOTE THIS IS THE FIRST TIME HEADS ARE MADE TO MOVE BV SEEKING
:'TO CHINDER 2.
i ; •••• "'''' ••••••••••••••••••••
$ • • ''' • • ''' . . . . . . .
TST14:
SCOPE
CNT • RESET
;GO. DO CONTROL RESET
;THIS IS A CALL FOR THE 'CNTRL; RESET' ROUTINE. A CONTROL RESET is
; ISSUED AND AFTER A CERTAIN TIME
; I F THE 'CNTR L ROY' DOES NOT SET
;AN ERROR IS REPORTED. NOTE THAT
; THE PC IN ERROR MESSAGE IS TH~
;PC WHERE 'CNT.RESET' IS LOCATED.
;THIS IS A VERY BASIC ERR & IF iT
: OCCURS GO BACK TO TEST 10
;GO CHECK IF SIN IS SET
TST .SIN
; IF SET DO OR V-RESET TO CLR IT
;MAKE SURE HEADS RON'
0
JSR
PC.DRESET
;R/W/S R~Y DIDN'T SET
ERROR
26
; AFTER THE ABOVE DRV RESET
R5
CLR
DRIVAD ,.RKDA
MOV
:SEEK CYL!NDER 2
Hl00 •• RKDA
BIS
RKOS.Rl
MOV
:SEEK. GO
MOV
'11 •• RKCS
;010 R/W/S ROY CLR?
1$:
BIT
'100.iIIRl
: VES. BRANCH
2$
BEQ
R5
INC
15
BPL
JSR
PC.GT3RG
; R/W/S ROV WAS NOT CLEAR WHEN HEADS
25
ERROR
;WERE SEEKING TO CYLINDER 2
111& • • • • • • •

006416
006420

021002

2S:

021436

JSR
ERROR

:GO. WAIT FOR -R/W/S ROY TO SET
: R/W/S ROY DID NOT SET AFTER SEEK
:WAS TRIED TO CYLINDER 2 (ABOVE).
;NOTE THIS WAS THE FIRST TIME A SEEK
:WAS TRIED TO A CYLINDER OTHER THAN

PC. TSTRWS
16

;0.

; ; **"" •• "' •••• **"' •••••• "'* •• "' ...... **** **"' •••••• "'''' *"' ...... ."'.* ••••• "' •• "'*
"'>II

;.T£ST 15
CHECK 'WRiTE' FORMAT FUNCTION-CYLINDER O. SECTOR 0
;OTHIS TEST CHECKS THE LOGIC INVOLVED IN THE WRITE FMT
; -FUNCTION. ON ISSUING A WRT FMT. THE FOLLOWING IS ~HECKED
: _1)
CNTRL ROY WAS CLEARED AS GO WAS SET.
:'2)
CNTRL ROY SETS WITHIN A CERTAIN TIME ON COMPLETION OF FUNCTION

MD-l'-CZRKKF. RK11 BASIC LOGIC TEST 2
CZRKKF. Pll
21-FEB-78 OB:51
2766
2767
2768
2769
2770
2771
2772
2773
2774
2775
2776
2777
2778
2779
27BO
2781
2792
27B3
27B4
27B5
2786
2787
27B8
2789
2790
2791
2792
2793
2794
2795
2796
2797
2798
2799
2800
2801
2802
2803
2B04
2805
2806
2807
280B
2809
2Bl0
2S11
2812
2813
2814
2B15
2816
2B17
281B
2B19
2820
2B21

MACVll 30A(1052)
21-FEB-78 oe.58
113
CHECK 'SEEK' TO CYLINDER 0

MACY11 30A(1052)
21-FEB-78 08:5B PAGE 53
T15
CHECK 'WRITE' FORMAT FUNCTION-CYLINDER O. SECTOR 0
IF 'HE' OR IERR' BIT SET?
;*4)
IF RKDA INCREMENTED CORRECTLY FROM 0 TO 1?
;*5) IF RKWC OVERFLOWED CORRECTlY TO O?
RKBA INCREMENTED CORRECTLY BY 2?
IF
;*6)
;*7)
IF ANY BIT IN RKER SET?
lOB) . IF THE 'WRT FMT' FUNCTION uITS ARE STl LL IN THE RKCS?
; <NOTE THAT ONE weRD '125252 J WAS WRITTEN ON SECTOR
;'0 /I IT WILL BE CHECKED IN THE NEXT TESTS.

;*3)

; ; *.. ****** ***181 •• 111 **** *•• *.!$:

006510
006512

TST15:

000004
104413

006514

104421

006516

012703

SCOPE
CNT .RESET

TST-SIN
MOV

033342

III '" '" "' ..... '" •• >\< ... ". * ..... '" '" ** "'. *'*' "'* ... * ......... * ••

:GO. DO CONTROL RESET
:THIS IS A CALL FOR THE I CNTRL; RESET' ROUTINE. A CONTROL RESET IS
; IssueD AND AFTER A CERTAIN TIME
; IF THE I CNTRl ROV I DOES NOT SET
;AN ERROR IS REPORTED. NOTE THAT
;THE PC IN ERROR MESSAGE IS THE
; PC WHERE 'CNT • RESET' IS LOCATED.
;THIS IS A VERY BASIC ERR & IF IT
: OCCURS GO BACK TO TEST 10
:GO CHECK' IF SIN IS SET
: IF seT. DO DRIVE RESET TO CLR IT

#OUTBUF.R3
;THIS CODE seTS UP A 256 WORD BUFFER
;WHICH WILL BE USED TO WRITE 1 SECTOR
;ON THE DISK
000001
;IST WORD
177777 2' scaMP LEMENT
:2ND WORD
000002 OF AeOVE
;3RD WORD
177776
;4TH WORD
;253RD
;254TH
:255TH
;256TH

006522

012700

006526
006530
006532
006534
006536
006542
006544
006546

010023
010013
005423
005200
022700
001371
005023
012713

006552
006556
006562
006566
006570
006576
006604

012703
013701
013702
010312
012777
013777
012711

006610

10571 I

000001
9$:

000200
125252
033342
001332
001336
177400
001350
002003

172536
1725,·\
1$:

WORD
WORD
WORD
WORD

000177
177601
000000
125252

MOV

*'.RO

:sET COUNT

MOV
MOV
NEG
INC
CMP
8NE
CLR
MOV

RO.(R3)+
RO. (R3)
(R3)+
RO
#200, RO

;SET UP DATA WORDS

(R3)+
# 125252 .PR3

; SET 255TH WORD TO 0
;SET 256TH WORD

MOV
MOV
MOV
MOV
MOV
MOV
MOV

#OUTBUF. R3
RKCS, Rl
RKBA. R2
R3.IIR2
#-400.Ii'RKWC
DRIVAD •• RKDA
N2003.IIRI

; RESET POINTER TO OUTBUF
; FROM HERE-SET UP CURRENT ADDRESS
; SET UP WORD COUNT 400 WORDS
:SET UP DISK ADDRS. SECTOR O. CYLINDER 0
;WRITE FORMAT. GO

1STB

.RI

:WAS 'CNTRL RDV' CLEARED AS GO WAS SET?

: DONE?

SEO 0052

MD-11-CZRKKF. RKll BASIC LOGIC TEST 2
CZRKKF.Pll
21-FEB-7B 08:51
2B22
2B23
2B24
2B25
2B26
2B27
2B2B
2B29
2B30
2831
2B32
2B33
2B34
2B35
2B36
2B37
2B3B
2B39
2840
2841
2842
2843
2B44
2B45
2B46
2B47
2848
2849
2B50
2B51
2B52

006612
006614
006620

100003
004737
104030

006622
006524
006626
006630
006632

005000
105711
10041'
005200
001374

006634
006640
006646

004737
013737
104416

006650

104031

006652

004737

006656

104032

006660

004737

006664

104033

006666

004737

2853

006672

104034

006674
006700
006702
006710
006714

022712
001406
012737
011237
104035

006716

004737

2854
2B55
2856
2857
285B
2859
2B60
2B61
2862

2863
2864
2865
2666
2B67
2B68
2669
2870
2871
2872
2873
2874
2875
2876
2877

006722

104036

006724
006730
006732
006740
006744

022711
001406
012737
011137
104024

021002
2$:

BPl
JSR
ERROR

2$
PC.GT3RG
30

ClR
TSTB

RO
(IIRI
3$
RO
2S+2

BMI
INC
BNE
020774
001350

00120~

3$:

021234

PC.GT4RG
DRIVAD.SREG10

ERROR

4$:

JSR

021316

5$:

JSR

034342

6$:

CMP
BEQ
MOV
MOV
ERROR

ERROR

034342
001164

001162

7S:

021342

JSR
ERROR

8$:

002202
002202
001164

001162

:WAS 'CNTRl ROY' SET ON COMPLETION OF WRITE?
: YES. BRANCH
:NO. HAVE U WAITED LONG ENOUGH?
: IF NOT. lOOP BACK & WAIT
: I F YES. REPORT ERROR
:GO. GET RKCS. ER. DS.DA

: GO TO 'BDM' & BREAK CONTENTS OF
:SREG10 INTO DR N.CYL.SUR.S':C BITS
: 'CNTRl ROY' DIDN'T SET ON COMPLETION
:OF WRITE FORMAT
:WRT FMT WAS DONE STARTING AT <OSK-ADRES>
; I~DICATED IN EROR MSGE.
;GO CHECK IF 'HE' OR IERRI BIT SET.
PC.CHKHE
:IF YES. SAVE RKCS. ER. OS. DA.
: RETURN HERE I F ERROR.
: 'HE' OR 'ERR' BIT SET WHILE DOING
32
;A WRITE FORMAT
:WRT FMT WAS DONE STARTING AT <DSK-ADRES>
: INDICATED IN EROR MSGE.
;GO CHECK IF RKDA INCREMENTED CORRECTLY
PC.CHKDA
: I F NOT. RETURN HERE.
: RKDA SHOULD HAVE INCREMENTED 8Y
33
: 1 SECTOR. IT DID NOT
:CHECK IF WORD COUNT OVERFLOWED. IF
PC.CHKWC
:NOT RETURN HERE.
: RKWC DID NOT OVERFLOW TO O. AFTER
34
: XFER ON WRITE FORMAT
NOUTBUF+l000.Il'R2
:010 RKBA INCREMENT CORRECTLY?
7S
;YES. BRANCH
NOUTBUF+l 000. SREGO : GET EXPCTD RKBA
(IIR2.SREGI
:GET ACTUAL RKBA
35
:RKBA DIDN'T INCREMENT BY 1000 AFTER
:WRITE FORMAT OF 400 WORDS
: CHECK IOF ANY BIT IN RKER SET.
PC.CHKER
:IF YES RETURN HERE.
: RKER BIT SET ON DOING 1 WORD
36
:WRITE FORMAT
;DOES RKCS STILL HAVE 'WRT FMT' BITS?
#2202.Il'RI
;;YES. EXIT
TST16
;GET EXF';TD RKCS
N2202. SREGO
PR1.$REGI
:GET ACTUAL RKCS
;RKCS DIDN'T CONTAIN 'WRT FfonT' BITS
24
;AFTER THE FUNCTION WAS COMPLETED

JSR

021262

SEQ 0053

: YES. BRANCH
:GO. GET RKCS. ER. OS
: 'CNTRl ROY' DIDN'T CLEAR AS GO
;WAS SET TO 'WRITE FORMAT'

JSR
MOV
BRKDA4

ERROR

CMP
BEQ
MOV
MOV
ERROR

; ; '" "'* '" "'* "' . . * ** ** *'" **"'. '" '" '" '" "'* * .... * •• " •• ** . . "' ••••• * ••••• "' ••• "' ..... * •• oil.

: >TEST 16
CHECK 'READ FORMAT' FUNCTION-CYLINDER O. SECTOR 0
:*THIS TEST CHECKS THE lOGIC INVOLVED IN THE WRITE FMT
;*FUNCTION. ON ISSUING A WRT FMT. THE FOLLOWING IS CHECKED
:")
CNTRl ROY WAS CLEARED AS GO WAS SET.
:*2) CNTRl ROY SETS WITHIN A CERTAIN TIME ON COMPLETION OF FUNCTION

MD-l'-CZRKKF. RKll BASIC lOGIC TEST 2
CZRKKF.Pll
21-FEB-78 08:51
2878
2B79
2880
28Bl
2882
2883
28B4
2B85
2886
2887
2B88
2889
2B90
2891
2B92
2893
2894
2895
2896
2897
209B
2B99
2900
2901
2902
2903
2904
2905
2906
2907
2908
2909
2910
2911
2912
2913
2914
2915
2916
2917
2918
2919
2920
2921
2922
2923
2924
2925
2926
2927
292B
2929
2930
2931
2932
2933

MACYll 30A(1052)
21-FEB-78 08:58
PAGE 54
Tl5
CHECK 'WRITE' FORMAT FUNCTION-CYLINDER O. SECTOR

MACYll 30A(1052)
21-FEB-78 08.58
PAGE 55
TlB
CHECK 'READ FORMAT' FUNCTION-CYLINDER O. SECTOR 0

;*3)

IF 'HE' OR 'ERR' BIT SET?

: *4)
IF RKDA It;:REMENTED CORRECTLY FROM
TO 11
:*5)
IF RKWC OVERFLOWED CORRECTLY TO O?
:-6)
IF RKBA INCREMENTED CORRECTLY BY 21
:_7)
IF ANY BIT IN RKER SET?
:-B)
IF THE CORRECT HEADER WAS RECEIVED?
: -9)
FOR RK11 C. AFTER RD FMT RKDB CONTAINS THE CHECKSUM
l*FOR THAT SECTOR. (125252 IN THIS CASE. BECAUSE THE
: - FI RST WORD I N SEC 0 WAS WRITTEN AS 125252 IN
; -THE PREVIOUS TEST)
:"0)
FOR RKI1D. AFTER RD FMT RKDB SHOULD CONTAIN
; -A ZERO
; *11)
I F THE RD FMT FUNCTION BITS ARE STl I I IN
: -THE RKCS1

006746
006750
006752

; ;.,. "'.** '" SCOPE
'" ••••• *.*

000004
005000
104413

TSTI6:

>11 • • • • • • • •

*** $"'* '" *. **."' •• * "'* * . . * '" *"' ••••• '" "''II ** *'" **

ClR
RO
CNT • RESET

006754

104421

006756
006762
006766
006772

013701
013702
012703
010312

001332
001336
033342

006774
007002
007010

012777
013777
012711

177777
001350
002005

007014
007016
007020
007024

105711
100003
004737
104030

007026
007030

005000
105711

007032
007034
007036

100411
005200
001374

007040
007044
007052

004737
013737
104416

007054

104045

TST. SIN
MOV
MOV
MOV
MOV

RKCS.Rl
RKBA.R2
NOUTBUF. R3
R3.Il'R2

MOV
MOV
MOV

#-I.(IIRKWC
DRIVAD,Il'RKDA
N2005.Il'RI

1$:

TST8
BPl
JSR
ERROR

(ORI
2$
PC.GT3RG

2$:

eLR
TSTB

RO
Il'RI

BMI
INC
BNE

3$
RO
2S+2

JSR
MOV
8RKDA4

PC.GT4RG
DRIVAD. SREGI 0

ERROR

172332
172330

021002

iii<

GO. DO CONTROL RESET
THIS IS A CA·ll FOR THE 'CNTRlRESET' ROUTINE. A CONTROL RESET IS
ISSUED AND AFTER A CERTAIN TIME
I F THE 'CNTRl ROY' DOES NOT SET
AN ERROR IS REPORTED. NOTE THAT
THE PC IN ERROR MESSAGE IS THE
PC WHERE 'CNT. RESET' IS lOCATED.
THIS IS A VERY BASIC ERR & IF IT
OCCURS GO BACK TO TEST 10
GO CHECK IF SIN IS SET
IF SET. DO DRIVE RESET TO CLR IT

SETUP ADRS WHERE HEADER WORD IS TO BE
X-FERRED
SET UP WORD COUNT
SET UP DISK ADRS. SECTOR O. CYLINDER 0
READ FORMAT. GO
WAS 'CNTRl ROY' CLEARED AS GO WAS SET?
YES. BRANCH
GO. GET RKCS. RKER
CNTRl ROY DIDN'T CLEAR AS GO WAS

SET TO 'READ FORMAT I

020774
001350

00120~

WAS 'CNTRl ROY' SET ON COMPLETION OF
TRANSFER
YES. BRANCH
NO. HAVE U WAITED lONG ENOUGH?
IF NOT. lOOP BACK & WAIT
I F YES. REPORT ERROR
GO. GET RKCS. ER. DS.DA
GO TO • BDA4' & BREAK CONTENTS OF
$REG10 INTO DR #.CYL.SUR.ScC BITS
'CNTRl ROY' DIDN'T SET ON COMPLETION
OF READ FORMAT

SEQ 0054

MD-ll-CZRKKF, RKII BASIC LOGIC TEST 2
CZRKKF.Pll
21-FE8-780B:51
2934
2935
2936
2937
293B
2939
2940
2941
2942
2943
2944
2945
2946
2947
2948
2949
2950
2951

2952
2953
2954
2955
2956
2957
2958
2959
2960
2961
2962
2963
2964
2965
2966
2967
2968
2969
2970
297'
2972
2973
2974
2975
2976
2977
2978
2979
29BO
2981
29B2
2983
2984

007056
007062

004737

MACYll 30A(1052)
21-FEB-78 08:58 PAGE 56
T16
CHECK 'READ FORMAT' FUNCTION-CYLINDER 0, SECTOR 0

3S:

021234

104046

007064

004737

007070

104040

021262

007072

d04737

007076

104041

007100
007104
007106
007114
007120

022712
001406
012737
011237
104042

033344

007122

004737

021342

007126

104036

007130

0057'3

~07132

007134
007140
007144
007150

001407
005037
005037
011337
104043

007152
007156
007160
007166
007172

022711
001406
012737
011137
104024

45:

55:

021316

PC,CHKHE

ERROR

; 'HE' OR 'ERR' BIT SET WHILE
;OOING A 'READ FORMAT I

JSR

PC,CHKDA

ERROR

; READ FMT WAS DONE STARTING AT <DSK-ACRES>
: INDICATED IN EROR MESGE
; CHECK IF RKDA INCREMENTED CORRECTLY
;IF NOT, RETURN HERE.
; RKDA SHOULD HAVE INCREMENTED
;BY 1 SECTOR, IT DID NOT

JSR

;CHECK IF RKWC OVERFLOWEO TO 0, IF
; NOT RETURN HERE.
;RKWC DID NOT OVERFLOW TO 0
;AFTER XFER ON READ FORMAT
; 010 RKBA INCREMENT TO NXT WORP ADDRS?
NOUTBU F+2, ClR:!
; YES, BRANCH
7$
NOUTBUF+2, SREGO ;GET EXPCTD RKBA
;GET ACTUAL RKBA
ClR2,SREGI
;RKBA DIDN'T INCREMENT BY 2 AFTER
42
; 'READ FORMAT' OF I WORD
;CHECK IF ANY BIT IN RKER SET, IF
PC,CHKER
; YES RETURN HERE.
; RKER BIT SET ON DOING
36
; I WORD READ FORMAT
;DOES OUTBUF CONTAIN THE HEADER
;WORD-O
;YES. BRANCH
9S
; GET SECTOR NO.
SREGO
; EXPCTD HEADER
$REGI
; GET HEADER RECVD
iI!IR3,SREG2
; CORRECT HEADER WORD-Q-WAS
43
:NOT RECEIVED ON READ FORMAT
;DOES RKCS HAVE THE' RDFMT' BITS?
N2204,IIRI
; ; YES, BRANCH
TST17
;GET EXPCTD RKCS
N2204, $REGO
; GET ACTUAL RKCS
ClRl,$REGI
;RKCS DIDN'T CONTAIN 'RD FMT'
24
; BITS AFTER FUNCTION WAS
; COMPLETED
PC,CHKWC

65:

CMP
BEQ
MOV
MOV
ERROR

15:

uSR

001 I 62

ERROR

as:
001162
001164
001166

9$:

002204
002204
001164

TST
BEQ
CLR
CLR
MOV
ERROR

001 162

CMP
SEQ
MOV
MOV
ERROR

; ; •• **"". ** '" ** '" "'., .. '" *"' .. "' ••• '" *"" * '"
III

*$ • • • • • • • • • • *$

;*3) IF 'HE' OR tERRI BIT SeT?

2986
2987
2988
29B9

; '4) IF RKOA INCREMENTED CORRECTLY?
;'5) IF RKWC OVERFLOWED TO O?
;'6) IF RKBA INCREMENTED CORRECTLY?

MD-l1-CZRKKF, RKli BASIC LOGIC TEST:I
CZRKKF.Pl1
21-FEB-78 09:51

MACY11 30A(1052)
21-FEB-78 08:58 PAGE 57
T17
CHECK 'READ' FUNCTION-CYLINDER O,SECTOR

SEQ 0056

:.7) iF ANY RKER BIT SET?
; *S) I F THE CORRECT PSUEOO-HEADER (F I RST WORD) WAS
; -READ FROM SECTOR 0
: .9) IF THE' READ' FUNCTION BITS ARE STILL IN RKCS

; ; . . . "" $$

007174
007176

TST I 7;

000004
104413

007200

104421

007202
007206
007210
007214
007220

013701
005000
013702
012703
010312

007222
007230
007236

012777
013777
012711

007242
007244
007246
007252

105711
100003
004737
104030

007254
007256

005000
10571 I

007260
007262
007264

100411
005200
00'374

007266
007272
007300

004737
013737
104416

007302

104045

007304

004737

007310

104046

*'"

*. '"

$ . $ • • • 111.",1/1111 .111$$1/<_

SCOPE
CNT ,RESET

TST .SIN

MOV
MOV
MOV

N-400,IIRKWC
ORIVAD,Ii'RKDA
N5,Ii'Rl

IS;

TSTB
BPL
JSR
ERROR

I'RI
2$
PC,GT3RG
30

25:

CLR
T5T8

RO
ClRI

BMI
INC
BNE

3$
RO
2$+2

JSR
MOV
BRKDA4

PC,GT4RG
DRIVAO,SREG10

ERROR

GO TO 'BDA4' & BREAK CONTENTS OF
SREG10 INTO OR N,CYL,SUR,SEC BITS
CNTRL ROY DID NOT SET ON
COMPLET .ON OF READ
READ WAS CONE STARTING AT <DSK-ADRES>
INDICATED IN EROR MESOE

JSR

PC,CHKHE

CHECK IF 'ERR' OR 'HE' BIT IS SET
I F YES, RETURN HERE.

ERROR

IHE' OR tERRI BIT

PC,CHKDA

DOING A READ.
READ WAS DONE STARTING AT <OSK-AORES>
INDICATED IN EROR MESGE
CHECK IF RKOA INCREMENTED COnnECTL Y,

172104
172102

021002

007312

004737

020774
001350

021234

021262

GO, DO CONTROL RESET
THIS IS A CALL FOR THE 'CNTRLRESET' ROUTINE. A CONTROL RESET IS
ISSUED AND AFTER A CERTAIN 11ME
IF THE 'CNTRL ROY' DOES NOT SET
AN ERROR IS REPORTED. NOTE THAT
THE PC IN ERROR MESSAGE IS THE
PC WHERE 'CNT .RESET' IS LO-~TED,
THIS IS A VERY BASIC ERR & IF IT
OCCURS GO BACK TO TEST 10
GO CHECK IF SIN IS SET
IF SET. DO DRIVE RESET TO CLR IT

RKCS, RI
RO
RKBA, R2
NOUTBUF ,;13
R3,IIR2

001336
033342
177400
001350
000005

'*.

*1/<. III III II< $ . $* o4£'" "' .... * "' •• * *. *.. '" * "'* .....

MOV
CLR
MOV
MOV
MOV

001332

3025
3026
3027
3028
3029
3030
3031
3032
3033
3034
3035
3036
3037
3038
3039
3040
3041
3042
3043
3044
3045

01: '" >Is "'oil • • '" . . . . . . . . . . "" 1/1

; .TEST 17
CHECK 'READ' FUNCT ION-CYLINDER 0, SECTOR 0
; <THIS IS THE FIRST TIME A PURE READ IS PREFORMED IN THIS
;'TE5T SEQUENCE.
THE FOLLOWING IS CHECKED
; *1) CNTRL ROY CLEARS AS GO IS SET
:*2) CNTRL ROY SETS WITHIN A CERTAIN TIME ON COMPLETION
: .OF FUNCTION

2985

2990
2991
2992
2993
2994
2995
2996
2997
2998
2999
3000
3001
3002
3003
3004
3005
3006
3007
3008
3009
3010
3011
3012
3013
3014
3015
3016
3017
3018
3019
3020
3021
3022
3023
3024

JSR

ERROR

033344
001164

SEQ 0055

:READ FMT WAS DONE STARTING AT <aSK-AD RES>
: INDICATED IN ERDR MESGE
iCHECK IF 'ERR' OR 'HE' BIT SET. IF
: YES RETURN HERE.

001202

3S:

4$:

"SR

SET UP ADORS WHERE DATA WORD IS
TO BE X-FERRED
SET UP WORD COUNT
SET UP DiSK ADRS, SECTOR 0, CHINDER 0
READ, GO
WAS 'CNTRL ROY' CLEARED AS GO WAS SEn
YES, BRANCH
GO, GET RKCS, ER
CNTRL ROY DID NOT CLEAR AS GO
WAS SET TO 'READ'
WAS CNTRL ROY SET ON COMPLETION
OF TRANSFER?
YES I BRANCH
NO, HAVE U WAITED LONG ENOUGH?
I F NOT, LOOP BACK & WAIT
I F YES, REPORT ERROR
GO, GET RKCS, ER, DS,CA

S~T

WHILE

',\O-ll-CZRKKF,
CZRKKF.P11
3046
3047
3048
3049
30S0
3051
3052
3053
3054
3055
3055
3057
3058
3059
3060
30G1
3062
3063
3064
3065
3066
3067
3068
3069
3070
3071
3072
3073
3074
3075
3076
3077
3078
3079
3080
3081
3082
3083
3084
3085
3086
3087
3088
3089
3090
3091
3092

30J3
3094
3095
3096

3097
309B
3099
3100
3101

RK"
BASIC LOGIC TEST 2
21-FEB-78 09:51

007316

104040

007320

004737

007324

i 04041

007326
007332
007334
007342
007346

022712
001406
012737
011237
104042

007350

004737

007354

104036

007356

022713

007362
007364
007372
007376
007404

001411
012737
011337
013737
104044

30A(1052)
21-FEB-78
08.5B
PAGE 5B
CHECK 'READ' FUNCTION-CYLINDER O.SECTOR

ERROR

5$:

uSR

PC ,CHKWC

ERROR
034342

6$:

CMP
BEQ

; BY

034342
001164

1 (SECTOR)

; CHECK IF RKWC OVERFLOWED TO O.
: I F NOT RETURN HERE.

ERROR

; RKWC DID NOT OVERFLOW TO 0,
; AFTER X-FER ON READ
#OUTBUF+, 000 ,I'R2
: OlD RKBA INCREMENT CORRECTLY?
7$
; YES, 8RANCH
#OUT8UF+, 000, $REGO
: GET EXPCTD RK8A
@R2,$REG1
;GET ACTUAL RKBA
42
; RK8A OlD NOT INCREMENT 8Y

JSR

PC,CHKER

ERROR

; CHECK I F ANY 81 T IN RKER SET,
; IF YES RETURN HERE.
; RKER BIT SET ON DOING 1

CMP

#1,@R3

;DGES OUTBUF CONTAIN THE RIGHT

MOV
MOV

001162

SEQ 0057

; I F NOT RETURN HERE.
;RKDA DID NOT INCREMENT

021316

;AFTER 'READ' OF 1 WORD
021342

7$:

;\lJORD 'READ'
000001

8$:

;DATA IlJORD
000001
001164
00'350

001166

; YES BRANCH

8EQ
MOV
MOV
MOV
ERROR

001'62

;GET EXPCTD DATA WORD

#1, $REGO
(R3]. $REG1

,GET RECVD OAT A WORO
; GET DISK ADRS FROM WHICH READ WAS CONE
; OlD NOT READ THE CORRECT
; DA TA WORD--FROM DISK ADRES,

DRIVAO.$REG2
44

;SEC 0,

CYL 0,

SUR

; AFTER 1 SECTOR READ RKDB CONTAINS
; FOR RK11C
; THE CHECKSUM FOR THAT SECTOR
; FOR RK 110

; THE LAST WORD TRANSFERRED TO MEMORY
;
; IT SO HAPPENS THAT WITH THE SECTOR
;THAT WAS READ,

007406
007414
C07416
007424
C07432

022777
001407
0'2737
017737
104037

C071134
OC7440

0227, ,
001406
012737
011137
104024

007442
007450
007454

007456
007460
007464
007466

'044'3
005777
001407
013737

125252

17'726

125252
171712

00' 162
001164

000204

'0$:

If 125252,@RKDB
10$
#125252, $REGO
@RKOB,$REG,
37

CMP

#204,€'R'
11$
#204, $REGO
€'R; ,$REG,
24

MOV

001162

MOV

11$:
171656
001342

RK11

21-FE3-78 08:51

001164

BASIC LOGIC TEST 2

017737
104102

CMP
BEQ
MOV
MOV
ERROR

ERROR

CZRKKF.P11
007474
007502

9$:

SEQ
000204
001164

MD-l1-CZRKKF,

3102
3103

MACY"
T17

17164:2

MACY,l
T17

001164

CNT. RESET

TST

@RKDB

BEQ
MOV

TST20
RKOB, $REG1

30A(1052)

21-FE8-78

CHECK 'READ'

RK08 CONTAINS THE

;SAME INFOR'MTION FOR BOTH RK1,C
; AND RK 11 D
; DOES RKDB CONTAIN THE EXPCTD WORD?
;YES, BRANCH
; GET ExPCTD RKDB
; GET REeVD RKDB
; RKDB DOESD NOT CONTAIN THE
,EXPCTD WORD AFTER A READ OF SEC
;CYL 0
;DOES RKCS HAVE THE
; YES
BRANCH

'READ'

BITS?

;GET EXPCTD RKCS
; GET RECVD RKCS

;RKCS DID NOT CONTAIN 'READ'
; FUNCTION BITS AFTER OPERATION
;l,IJAS COMPLETED
;GO 00 CONTROL RESET
; 010 CONTROL RESET CLEAR RK~81
;;YES, EXIT
; GET AORES OF RKOB

08:58

PAGE 59

FUNCTION-CYLINDER a.SECTOR

SEQ 0058

MOV

@RKD8,$REG1

; GET CONTENTS OF RKOB

ERROR

102

;CONTROl RESET DIDN'T CLR RKDB

3104

3105
3106

;;*TE5T
: '" ******
'" *** ** "'****'*
'" ** *** ** * ** '" .. "' . . *-CYLINDER
** *** '" '" '" '" **0,'" **SECTOR
"'******0-13
*' ** ****
20
CHECK 'WRITE FORMAT

3107

;*THIS TEST GOES ONE STEP FURTHE.. & PERFORMS A WRT
;*FMT ON CYLINDER 0 & CHECKS THE FOLLOWING

3108
3109

;")
IF CNTRL ROY SET WITHIN A CERTAIN TIME ON COMPLETION
; -OF THE FUNCTION

3110
3111
3112

:*2)
;*3)

3113
3114
3115

3 ~ 16
3117

3118
3119
3120
3121
3122
3123
3124
3125

3126
3127
3128
3129
3'30
3131
3132

IF 'HE' OR 'ERR' BIT SET?
IF THE RKOA INCREMENTS CORRECTLY?

;*4)
IF THE RKDB IS CLEAR?
; *~JRT FMT IS DONE ONE SECTOR AT A TIME
; *THE FIRST WORD OF EVERY SECTOR IS WRITTEN AS A
;*PSUEDO-HEAOER CONSISTING OF DRIVE #, CYLINDER #, SURFACE
i *& SECTOR /I. THIS l,'JIlL BE READ & CHECKED IN THE FOLLOWING TEST.
007504
007512
007516
007522
007526
007530
007532

000004
013703
012702
013704
013701
010105
005205
012737

007540

104413

007506

;; ****** * ****»1 "''''* **** *'" ******** '" ****** ****** *'" >0: *"'**************Ji!

TST20:

007540

MOV
MOV
MOV
MOV
INC
MOV

001110

,$:

>}:

SCOPE

MOV

001332
177764
001340
001350

RKC5, R3
#-14, R2
RKOA, R4

DRIVAD.Rl
R1 ,R5
R5
H1$,$LPERR

CNT. RESET

,SET RETURN AORES FOR LUPING
;ON
ERROR (S" 9)
,GO, 00 CONTROL RESET
;THIS IS A CALL FOR THE 'CNTRL;RESET' ROUTINE. A CONTROL RESET IS
; ISSUED AND AFTER A CERTAIN TIME

007542

104421

TST. SIN

007544
007546

005000
010137

CLR
MOV

033342

CNTR L ROY lODES NOT SET

,AN ERROR IS REPORTED. NOTE THAT
; THE PC I N ERROR MESSAGE I S THE
;PC WHERE 'eNT.RESET' IS LO-:'ATED.
,THIS 15 A VERY BASIC ERR & IF IT
; OCCURS GO 8ACK TO TEST 10
:GO CHECK IF SIN IS SET
;IF SET, DO DRIVE RESET TO CLR IT

3134
3135

31,lQ
3141
3142

FOR 12 SECTORS

; GET DRIVE ADDRESS
; STORE IT

: I F THE

3133

3136
3137
3138
3139

; SET UP COUNT

RO
Rl,OUTSUF

;THIS WORD TO BE X-FERREO.

FIRST

; WORD OF EACH SECTOR WI LL BE THE

3143
3144
3145
3146
3147

007552

012777

033342

'7'556

MOV

#OUTBUF ,Ii'RKSA

;ACTUAL ORIVE-ADDRS CONSISTING OF
,DRIVE NO, CYL ADDRS, SURFACE
,SECTOR NO.
; AORS FROM WHICH DATA WORD IS TO

3148

007560

177717

17'546

#-l,@RK.WC

; X-FERRED
; SET UP I'lORD COUNT

3149
3150
3151
3152

007566

MOV
MOV
MOV

3153
3154
3155
3'56
3157

007570

012777
010114
012713

007574
007600
007602
007604

105777
100410
005200
001373

171532

007606

004737

020774

002003
2$:

R1,@R4
;ADORS THE DRIVE, CYL 0, & CORRECT SECTOR
#2003,I'R3
;WRITE FORMAT, GO

TSTS
BMI
INC
8NE

"'RKCS
3$

DID' CNTRL ROY I SET?
YES, BRANCH

RO
2$

JSR

PC,GT4RG

HAVE U WAITED LONG?
I F NOT, LOOP BACK & WAIT
I F YES, REPORT ERROR
GO, GET RKCS, ER. OS,OA
NO,

MD-' , -CZRKKF,
CZRKKF.P,\
3,58

RK"
BAS I C LOGI C TEST:I
2'-F£8-78 09:5,

MACVI1

T20

MOV

007612

010137

007615

104416

001202

BRKOA4

007620

104031

ERROR

3' 59
3160
3161
3162

aDA ( , 052)
21- FE6-79
CHECK ,.,RITE FORMAT'

oe: sa

PAGE 60
-CYLINDER D, SECTOR

Rl,SREG10

3'63
3164
3165
3166
3167
3168

007622

004737

007626

104032

007630

004737

0212as

4$:

021270

3\ 76
3\ 77

JSR

PC,CHKHEI

ERROR

007634

104033

007636

005777

007642
007644
007650
007656

001406
005037

007660
007662

007672

005201
005205
122705
001002
062705

007675
007700

005202
001317

171500

3,83

3191
3192
3193
3\ 94
3195

3196
3197

007664
007670

017737
104037

001'62
171466

PC, CHKDAI

; C~ECK IF RKDA

TST

@RKDB

: RKOA 010 NOT !NCREMENT CORRECT
;AFTER 1 WORD 'WRITE FORMAT' ON
;CYLINDER 0, SECTOR IN ERROR IS 1
: LESS THAN THAT SHOWN IN EXPCTD RKOA
:CHECK THAT RKOB DOES CONTAIN A 0
:AFTER WRT BECAUSE LAST WORD WRITTEN
;WAS SERIALLY SHI FHD OUT TO THE DISK

BEQ

6$
SREGO
@RKOB,$REGI

CLR
MOV
ERROR

001164

6S:
000014
000004

37
Rl

; ; *$

INC
INC
CMPB
BNE
ADD

#14, RS

: R U GO I NG TO CHECK THE LAST SECTOR?

.+6

i I F NOT, BRANCH
;IF YES,INCREMENT RS CORRECTLY TO IEXPCTD RKDAi

INC

BNE

#4,R5

; ""THE FOLLOWING IS CHECKED
;")
IF CNTRL RDY SET W!THIN A CERTAIN TIME ON COMPLETION
: 'OF THE FUNCT ION

3206

;*2)

3207
3208
3209
3210

:*3)

IF tHE' OR tERR'

3212
3213

MQ-I1-CZRKKF, RKt1 BASIC LOGIC TEST
CZRKr: r: . P 11
21-FEB-78 08: 51

MACYtt
T21

30A(1052)
21-FEB-78
OB:58
PAGE 61
CHECK I READ FORMAT' -CY LI NDER O. SECTOR 0-13

:'ONE. THIS CAN SE DONE BY LOOPING ON THE TEST
;*IN QUESTION. USUALLY A TRANSIENT ERROR
: 'DISAPPEARS ON RETRIES. wHEREAS A LOGIC ERROR DOES NOT.

3216
3217
007702
007704
007706

; ; ~** >1'* >I<$*,* ********"'************* **$*** ** .. ** **'* ** *'" ** ** ******"'*

TST2 I :

000004
005005
104413

SCOPE
RS
CLR
CNT. RESET

iIF THE ICNTRL ROY'

007710

104421

007712
007716
007722
007726
007732
007736
007742

013701
012700
013702
013712
012704
010477
012777
0\2777

3240
3241

007750

3242

007755
007762
007764
007766

105777
100411
005205

3247
3248
3249
3250

TST.SIN

007770
007774
010002

004737

3251
3252

010004

001332

177764
001340
001350
033342
171374
17'/764
002005

171354
171354

MOV
MOV
MOV
MOV
MOV
MQV
MOV
MaV

RKCS, R1
#-14, RD
RKOA, R2

: SET UP COUNT FOR 12 SECTORS

ORIVAD,~R2

:ADDRESS THE DRIVE

#OUTSUF, R4
R4,Ii'RKBA
N-14,@>RKWC

#2005,IiiRKCS

TSTB
BMI
INC
8NE

\llRKCS

JSR
MOV
BRKOA4

PC,GT4RG
DRIVAD,$REG10

104416
104045

ERROR

171350

001373
013737

020774
001350

DOT 202

32G8

3269

;010 eNTRL. ROY SET ON CQMPL.ETlON?

;YES t

;NO, WAIT FOR IT TO SET
; IF WAI TED LONG ENOUGH REPORT
;ERROR. OTHERWISE LOOP BACK & WAIT
:GO, GET RKCS, ER, DS.DA

BRANCH

: GO TO 'BOA4' & BREAK CONTENTS OF
:$REG10 INTO DRd,CYL,5UR,SEC 8ITS
:CNTRL RDY 010 NOT SET ON COMPLETION

;OF READ FORMAT-OF CYLINDER 0,

3253

3266
3267

: AORS TO WHICH X-FER DATA FROM aSK
: seT UP '."ORO COUNT FOR 12 HEADERS TO BREAD
;REAO FORMAT, GO

3254
3255

3259
3260
3261
3262
3263
3264
3265

DOES NOT SET

:AN ERROR IS REPORTED. NOTE THAT
:THE PC IN ERROR MESSAGE IS THE
;PC WHERE 'eNT.RESETI IS LOCATEO~
;THIS IS A VERY BASIC ERR & IF IT
; OCCURS GO BACK TO TEST 10
;GO CHECK IF SIN IS SET
: IS SET, DO DRIVE RESET TO CLR IT

3.246

3256
3257
32:;8

:GO, 00 CONTROL RESET

;THIS IS A CALL FOR Tl-IE tCNTRL-

3232

3243
3244
3245

*'"

:RESET' ROUTINE. A CONTROL RESET IS
;ISSUED AND AFTER A CERTAIN TIME

3226
3227

3239

SEQ 0060

;*JT IS AN IRRECOVERABLE ERROR AND NOT A TRANSIENT

3214
3215

3237
3238

BIT SET?

IF THE RKDA INCREMENTS CORR"CTLY?
RKBA INCREMENTED CORRECTLY BY 30 (OCTAL)
;<5)
R,,\1C OVERFLOWED TO 0 FROM -14 (OCTAL)
; :6)
CORRECT HEADER "AS RECEIVED FROM ALL 12 SECTORS.
;*7)
RKCS STILL CONTAiNS THE 'RD FMT' FUNCTION BITS.
;.IF THERE IS A READ ERROR IN THIS TEST OR ANY
;*OTHER TESTS THE USER SHOULD MAKE SURE THAT

;<4)

3211

3236

;AFTER HAVING CHECKED THE LAST SECTOR
:HAVE U FORMATTED All 12 SECTORS7

i I F NOT, BRANCH BACK & LOOP

0/'*$****** ** *"'**"'* '" >!< ***'" II" *' '" **** *"''1' *"".-.Ie >I< '" *'" * '" ** ** "'* *******."' •• 11<

3203
3204
3205

3233
3234
3235

BRANCH

:THIS IS WHAT RKDB SHOULD CONTAIN
; GET RKDB
; RKDB SHOULD BE 0 AFTICR WRT SINCE THE
;LAST WORD WRITTEN WAS SERIALLY SHIFTED
: OUT OF RKDB
; INCREMENT DRIVE ADORS TO NXT SECTOR

;*TEST 21
CHECK 'READ FORMAT'-CYLINDER 0, SECTOR 0-13
:<THIS TEST PERFORMS A RD FMT ON THE 12 SECTORS OF CYLINDER

3202

3228
3229
3230
3231

j YES,

INCREMENTED CORRECTLY?

iIF YES. EXIT

3198
3199
3200
3201

3218
3219
3220
3221
3222
3223
3224
3225

;CHECK IF 'ERR' OR 'HE' BIT IS SET,
: IF YES RETURN HERE.
,'HE' OR 'ERR' BIT SET WHILE DOING
: WR ITE FORMAT ON CY LI NDER 0,
:SECTOR IN ERROR IS AS SHOWN IN
:DISK-ADRES BITS 0-3
;WRT FMT WAS DONE STARTING AT <aSK-ACRES>
; INDICATED IN ERDR MSGE.

ERROR

3\ 79

3\ 84
3185
3185
3187
3188
3189
3190

;DF 'WRITE FORMAT'

JSR

3\ 78
3180
3\ 81
3182

en,

:WRT FMT WAS DONE STARTING AT <OSK-ADRES>
: INDICATED IN EROR MSGE.

3169
3170
3\ 7\
3172
3173
3174
3\ 75

SEO 0059

0-,3

: GET DISK ADRS (UNIT.
SUR, SEC) TO WHICH
;WRITE FORMAT WAS DONE
: GO TO 'BDA4' & BREAK
CONTENTS OF
:$REG10 INTO OR •• cn.SUR,SEC BITS
: 'CNTRL ROY' DID NOT SET ON COMPLETION

010006

004737

010012

104046

010014
010020

013705

062705

010024

004737

010030

104040

; SECTORS 0-13
; READ FMT WAS DONE START I NG AT <OSK-ACRES>
; INDICATED IN EROR MESGE
;CHECK IF IERRI OR 'HE' BIT IS SET,
: I F YES RETURN HERE.
; 'ERRI OR IHE' SIT SET ON DOING
:READ FMT-OF CYLINDER 0, SEC 0-13
: READ FMT WAS DONE STARTING AT <DSK-ACRES>
: INDICATED IN EROR ME5GE

JSR

PC,CHKHE

ERROR

001350
000020

MOV
ADD

H20.RS

: RKOA SHOULD HAVE INCREMENTO TO (R2)

021270

JSR

PC, CHKDA 1

CHECK IF RKDA INCREMENTED CORRECT: Y,
IF NOT. RETURN HERE

ERROR

021234

DRIVAD. R5

RKDA DID NOT INCREMENT BY 12
AFTER A 'RD FMT' OF 12 HEADERS OF
CYLINDER 0, SECTORS 0-' 3

MD-"-CZRKKF. RKll BASIC LOGIC TEST 2
CZRKKF.Pll
21-FEB-78 08:51
3270
3271
3272
3273
3274
3275
3276
3277
3279
3279
3290
3291
3292
3293
32B4
32B5
3296
3297

3288
3289
3290
3291
3292
3293
3294
3295
3296
3297
3298
3299
3300
3301
3302
3303
3304
3305
3306
3307
3308
3309
3310

010032
010040
010042
010050
010056

022777

0333.72

171276

012737
017737
104042

033372
171262

001162
001164

010060

004737

021316

010064

104041

010066
010070
010072
010076
010104
010110
010114

005724
001413
010037
062737
005037
014437
104043

010116
010120
010122

005724
005200
001361

010124

004737

4$:

CMP
BEQ
MoV
MoV
ERROR

5$:

JSR

001407

ERROR

001162

TST
INC
BNE

7$:

021342

010130

104036

010132
010136
010140
010146
010152

022711
001406

002204

012737

002204
001164

011137

TST
BEQ
MoV
ADD
CLR
MoV
ERROR

6$:
001162
000014
001164
001166

8$:
00116~

104024

; ; '" '" >It '" '" $:

SEQ ooel

: RKBA SHOULD INCREMENT BY 24 BYTES
:AT THE END OF X-FER
'OUTBUF+30.iIIRKBA :010 RKBA INCREMENT CORRECTlY?
5$
:YES. BRANCH
NoUTBUF+30.$REGO
:GET EXPCTO RKBA
iIIRKBA.$REGl
:GET ACLAL RKBA
42
:RKBA DID NOT INCREMENT CORRECTlY
:AFTER READ FORMAT OF 12 HEADERS
: GO CHECK IF RKWC OVERFLOWED TO 0
PCtCHKWC
: I F NOT R[TURN HERE.
:RKWC DID NOT OVERFLOW TO 0
41
: AFTER 'RD FMT' OF 12 HEADERS
: OF CYLINDER 0
:WAS THE CORRECT HEADER RECIEVED?
(R4)+
: YES. BRANCH
7$
:GET SECTOR FOR WHICH THE HEADER
RO.SREGO
: COULD NOT 8E READ CORRECT
#14.$REGO
: EX?CTD HEADER-O. FOR CYL 0
$REGl
; GET WRONG HEADER RECVD
-(R4) .$REG2
: HEADER WAS NOT READ RIGHT FOR
43
;SECToR (AS IN ER MSGE). & CYL 0
; WAS THE CORRECT HEADER RECVD?
(R4)+
; YES. HAVE U CHECKED FOR ALL 12 SECTORS?
RO
; I F NOT. LOOP BACK & CHK HOR FRM NXT SECTR
6$

JSR

PC,CHKER

ERROR

CMP
BEQ
MOV
MOV
ERROR

#2204, SREGO

'2204,@lRl
TST22
iIIR1,$REGl
24

*. "'''' '" '" "' . . '" '" '" III "' ...

Ii: '" '"

;CHECK IF ANY BIT IN RKER IS SET,
: I F YES, RETURN HERE.
; RKER BIT SET ON DOING RD FMT
; OF CYL O. SECTORS 0-13
; DOES RKCS STI LL CONTAIN FUNCTION BITS?
;;YES t EXIT
; GET EXPCTO RKCS
: GET ACTUAL RKCS
: RKCS DID NOT CONTAIN 'RD F .:T'
: FUNCTION BITS ON COMPETION OF
; THE FUNCTION

"'* '" '" '" '" '" *'" * '" '" III • • '" '" '" "'. '" * *'" *"'. '" *lIII

1I/I: • • >Ie • • • • • •

:.TEST 22
CHECK 'READ' ,CYlINDER 0, SECTORS 0 TO 13
: *THIS TEST PERiDRMS A READ OF ALL THE SECTORS OF CYLINDER 0
:.& CHECKS THE FOLLOWING
: " ) CNTRL ROY SETS WITHIN A CERTAIN TIME ON COMPLETION

3311

3312
3313
3314
3315
3316
3317
3318
3319
3320
3321
3322
3323
3324
3325

j"'OF THE FUNCTION
;*2) IF 'HE' OR 'ERR' BIT SET?
: *3) I F THE CORRECT PSUEDO-HEADER (FI RST WORD OF EVERY)
:'SECTDR, WRITTEN IN A PREVIOUS TEST) WAS RECEIVED.
;'4) IF RKDS CONTAINS THE CORRECT WORD.
;*4) IF RKDA INCREMENTED CORRECTlY.
;'5) I F REST OF THE (377) WORDS IN EACH SECTOR ARE '0' , NOTE
:.PREVIoUSLY ONE woROWAS WRITTEN PER SECTOR.
;'6) IF RKCS STILL CONTAINS THE 'READ' FUNCTION BITS
:'7) IF CONTROL RESET CLEARS RKDB.
:.
IF TESTING IS BEING DONE ON A SIMULATOR ONLY LAST SECTOR(13)
;*IS READ BECAUSE THE SIMULATOR CAN STORE ONLY 1 SECTOR (256 WORDS).

MD-"-CZRKKF, RKll BASIC LOGIC TEST 2
CZRKKF.Pll
21-FE8-780B:51
3326
3327
3328
3329
3330
3331
3332
3333
3334
3335
3336
3337
3338
3339
3340
3341
3342
3343
3344
3345
3346
3347
3348
3349
3350
3351
3352
3353
3354
3355
3356
3357
3358
3359
3360
3361
3362
3363
3364
3365
3366
3367
3368
3369
3370
3371
3372
3373
3374
3375
3376
3377
3378
3379
3380
33Bl

MACY11 30A(1052)
21-FEB-78 08:58
PAGE 62
T21
CHECK 'READ FDRMAT'-CYlINDER O. SECTOR 0-13

MACV11 30A(1052)
21-FEB-78
08:58
PAGE 63
T22
CHECK 'READ' .CYlINDER 0, SECTORS 0 TO 13
;>HENCE ONLY THE DATA WRITTEN LAST CAN BE READ BACK.

; ; * •• '" "'. "' •• "' •••• "'.11< •• *. '" ** "' •• >II '" ** * * ... oil .... * '" '" >I< * "' •••• ** "' .. $* •• *'" '" ***.*

TST22:

010154
010156

012737

000004
010230

010164
010170
010174
010176
010202
010206

013703
013701
010105
012704
005737
001405

001332
001350

010210
010214
010220
010222
010226

052701
052705
000403
012702
005205

010230

104413

010232

104421

010234
010240
010252

010177
010477
012777
012713

010256
010260
010262
010264
010266

005000
105713
100410
005200
001374

010270
010274
010300

004737
010137
104416

010302

104045

010304

004737

010310

104046

010244

001110

033342

001344

000013
000020
9$:

177764

1$:

SCOPE
MOV

#1$,$LPERR

MOV
MoV
MoV
MOV
TST
BEQ

RKCS,R3
DRIVAD,Rl
Rl,RS
HOUTBUF, R4
SIMUL
9$

BIS
BIS
BR
MOV
INC

"3,RI
H20,RS
1$

N-14,R2
RS

CNT. RESET

TST .SIN
171100
171072
177400
000005

171062

2$:

020774
001202

021226

3S:

MOV
MOV
MOV
MOV

Rl,@lRKDA
R4,@lRKBA
6-400, PRKIrlC
6S,PR3

CLR
TSTB
aMI
INC
BNE

RO
PR3
3$
RO
2$

JSR
MDV
BRKOA4

PC,GT4RG
Rl ,SREGl 0

ERROR

JSR

PC,CHKHEI

ERROR

:SET RETURN ADRES FOR LUPING
:ON
ERROR (Sirl 9)

TESTING ON SIMULATOR?

NO, BRANCH
IF TESTING ON SIMULATOR READ
SECTOR
13 ONLY
SET BITS FOR SEC 13
RKDA SHOULD INCRMNT TO THIS AFTER READ
SET COUNT FOR 12 SECTORS
RKDA SHOULD INCREMENT TO
THIS AFTER 1 SECTOR READ
GO, DO CONTROL RESET
THIS IS A CALL FOR THE 'CNTRLRESET' ROUTINE. A CONTROL RESET IS
ISSUED AND AFTER A CERTAIN TIME
IF THE 'CNTRL ROY' DOES NOT SET
AN ERROR IS REPORTED. NOTE THAT
THE PC IN ERROR MESSAGE IS THE
PC WHERE 'CNT.RESET' IS LOCATED.
THIS IS A VERY BASIC ERR & IF IT
OCCURS GO BACK TO TEST 10
GO CHECK IF SIN IS SET
IF SET, DO DRIVE RESET TO CLR IT
ADDRESS THE DRIVE
ADRS TO WHICH X-FER DATA FROM DISK
SETUP WORD COUNT
READ,GO

DID CNTRL ROY SET ON COMPETIoN?
YES, BRANCH
NO, WAlT FOR IT TO SET
IF WAITED LONG ENOUGH, REPORT
ERROR. OTHERWISE LOOP BAK & WAIT
GO, GET RKCS. ER. DS,DA
GET SECTOR ADORES WHERE ERROR OCCURED
GO TO 'BDA41 & BREAK CONTENTS OF
$REG10 . NTo DR #, CYl, SUR, SEC BI TS
CNTRL ROY DID NOT SET ON COMPLETION
OF READ OF CYLINDER 0, SECTOR
AS SHOWN IN <DSK-ADRES>
READ "AS DONE STARTING AT <DSK-ACRES>
INDICATED IN ERoR MESGE

CHECK IF 'ERR' OR 'HE' BIT IS SET,
IF
HE
ON
AS

YES RETURN HERE.
OR ERR BIT SET
'READ' OF CVlINDER 0, SECTOR
SHOWN IN <DSK-ADRES>

SEQ 0062

MD-11-CZRKKF, RK11 BASIC ,OGle
CZRKKF.Pl1
21-FE8-7B OB:51
33B2
3383
3384
3385
3386
33B7
3388
3389
3390
3391
3392

010312

020114

010314
010316
010322
010326
010332

001407
010137
011437
010137
104044

010334

004737

010340

104040

TEST 2

MACYl1 30A(1052)
21-FEB-78
OB:58
PAGE 64
T22
CHECK 'READ',CYLINDER D, SECTO"S 0 TO 13

001162

001164
001166

CMP

Rl • (R4)

BEQ
MOV
MOV
MOV
ERROR

5$
Rl,$REGO
(R4) ,$REG1
Rl,$REG2

JSR

PC,CHKOA1

ERROR

3393
3394
3395
3396
3397
3398
3399
3400
3401
3402
3403
3404
3405
3406
3407
340B
3409
3410
3411
3412
3413
3414
3415
3.1.'116
3417
3418
3419
3420
3421
3422
3423

5$:

021270

;GET EXPCTD DATA WORD FROM DISK
:GET THE DATA "ORO REeVD
:GET DISK ADRES
:010 NOT RECIEVE CORRECT DATA we'D ON
:READ, OF CYLINDER 0, SECTOR AS SHOWN
:ADRES' OF EXPCTD DATA "ORO
:CHECK IF RKOA INCREMENTED CORRECTLY.
: IF NOT RETURN HERE.
:RKDA DID NOT INCREMENT CORRECTLY
: AFTER READ OF 1 WORD, FROM CYL
:SEC IN ERROR IS 1 LESS THAN THAT
:SHOWN IN EXPCTD RKOA

'DSK

; AS A RESULT OF 'WRT FMT' IN A PREVIOUS TEST
; FIRST WORD OF EVERY SECTOR IS NON; ZERO (PSUEDO-HDR), REST 377 WORDS
:ARE All
: CHECK IF THE REST OF THE 377

a's.

010342
010350
010354
010362
010364
010366
010370
010374
010376
010400
010404
010410

012737

012700
012737
005710
001005
005720
005237
001372
000412
005037

177775
033344
177401

001370

001362

12$:

001162

012037

001154

010137

001166

;WORDS AnE ALL OIS
;ALLOW ONLY 3 ERRORS

MOV
MOV
MOV
TST
8NE
TST
INC
BNE
BR
CLR
MOV
MOV

#-3,EFLGl
HOUT6UF+2, RD
#-377. COUNT
@RO
12$
(RO)+
COUNT
11$
7$

ERROR

INC
BNE

EFLGl
11$

:ALLOW ONLY 3 DATA ERDRS OF THIS KIND

: TESTING ON SIMULATOR?
; YES BRANCH
; IF NOT TESTING ON SIMULATO- GO AHEAD
& READ ALL 12 SECTORS ON
0
: INCREMENT DRIV-ADRES TO NXT SECTOR

SREGO
(RO)+,SREGl
Rl,5REG2

010414

104044

010416
010422

005237

3433

010424

005737

010430

001011

TST
BNE

SIMUL

3434
3435
3436
3437

010432

005201

INC

3424
3425
3426
3427
342B
3429
3430
3431

SEQ 0063

,READ "AS DONE STARTING AT <DSK-ADRES>
; IN~ICATED IN EROR 'lESGE
;\!JAS THE DATA wORD REevo, CORRECT?
,THE FIRST DATA WORD OF EACH SECTOR
; IS AN ADRS WORD COMRISING OF DRIVE NO,
;CYLINDER ADRS, SUR, SECTOR ADRS

; INITIALIZE PTR TO 2ND WRO IN BUFR
;CHECK 377 WORDS IN THE BUFFER

; IS THIS NRO 01
:NO, ERROR
; INCRMNT PTR TO NXT WRQ
; CHKO ALL 377 WRDS7
; YES, BRANCH
: GET EXPCTD WORD
; GET WORD RECVQ
:GET DISK ADRES. ERROR IN THIS
; SECTOR
;DATA ERROR, THE LAST 377 WORDS
: READ FROM EACH SECTOR SHOULD BE 0
; IN A PREVIOUS TEST, FIRST 'lORD OF
;EVERY SEC (CYL 0) WAS WRITTEN AS A
; PSUEOO-HDR, REST OF THE WORDS IN THE
; SECTR ARE AUTOMATICAllY WRITTEN AS
;0'5. THIS ERROR MAY MEAN THAT IT

;DIOI..jIT HAPPEN
001370

001357

3432

7$'

001344

MD-l1-CZRKKF. RK11 BASIC LOGIC TEST
CZRKKF.Pll
21-HB-780B:51

3439
3439
3440

3441
3442
3443
3444

10$

010434
010436
010442
010444

MACY11
T22

30A(1052)
21-FE8-78
09:58
PAGE 65
CHECK 'READ' ,CYLINDER 0, SECTORS 0 TO 13
INC
CMPB
BNE
AOD

005205
122705
001002

000014

062705

000004

010450
010452

005202

010454

;INCREMENT 'EXPCTD ORIV-AORES'

. , 4, RS

; R U GOING TO READ THE lAST SECTOR?
, I F NOT, BRANCH
;IF YES, INCREMENT 'EXPCTO RKDA'
: CORRECn Y
; HAVE U
EAD ALL 12 SECTORS?
: IF NOT LOOP 8ACK & READ THE
;NXT SECTOR
: DOES RKCS, STl LL HAVE THE 'READ' FUNCTION
: YES, 8RAI,CH
:GET ExPCTD RKCS
: GET RKCS RECVD
:RKCS SHOULD STlLL CONTAIN THE 'READ'
: FUNCTION BITS
:GO ,DO CONTROL RESET
;THIS IS A CAlL FOR THE 'CNTRL; RESET' ROUTINE. A CONTROL RESET IS
; ISSUED AND AFTER A CERTAIN TIME
: IF THE 'CNTRL ROY' DOES NOT SET
:AN ERROR IS REPORT EO. NOTE THAT
,THE PC IN ERROR MESSAGE IS THE

.+6

#4,RS

INC
BNE

R2
1$

10$:

CMP
BEQ
MOV
MOV
ERROR

#2D4,I1'R3
8$
H204,$REGO
@R3,$REGl

8$:

CNT. RESET

001266

3445

3446
3447
3448
3450

010470
010474

022713
001406
012737
011337
104024

3451
3452

010476

104413

3449

010460

010462

000204
000204
001164

001162

3453
3454
3455
3456
3457
345B
3459
3460

3461
3462
3463

3464
3465

3466
3467

;PC WHERE leNT.RESET'

010500
010504
010506
010514
010522

005777
001407
013737

017737

170636

TST

li'RKDB
rST23
RKOB. $RrGO
Il'RKD6, $REGl

BEQ
001342
170622

MOV
MOV
ERROR

001182
001164

104102

SEQ 0064

102

IS LOCATE.C.

:THIS IS A VERY BASIC ERR & IF IT
: OCCURS GO BACK TO TEST 10
:010 CNTRl RESET CLEAR RKDB?

; ;YES, EXIT
: GET ADRES OF RKDB
; GET CONTENTS OF RKDB
:CONTROL RESET DID NOT
;CLEAR RKDB

3468

3469

3470

; ;'PI'$Ija*",

3471

;*UST 2

3472
3473
3474

3475
3476

3477
3478
3479
3480

3481
3482

3483
3484
3485

* '"

*' '" *'

>I< ol< >I< '"
1'\< *- ** t(I rI< '"
oj! >I<
** '" '" >I< * '" >Ie * !Ie >I< *' >It *- *' '" '" * >\I >1<* 11: '" $ * >I< Ii! ** * 11(0 *'''' ob> $
CHECK 'WRITE FORMAT' OF THE DISK
.THIS TEST WRITE FORMATS THE ENTIRE DISK.
THE FIRST
'WORD OF EVERY SECTOR IS WRITTEN TO BE A PSUEDO-HEADER
'CONSISTING OF THE DRIVE', CYUNDER "
SURFACE & SECTOR N.
*1 SECTOR IS WRITTEN A"; A TIME. THE WRITING IS DONE
-IN THIS ORDER'
O-SUR 0: CYL O-SUR 1;
CYL 1-5UR 0
'CYl 1-SUR 1; cn 2-SUR 0: CYL 2-SUR 1----- CYL 312-SUR 1.

*IMPORTANCE OF THIS TEST SHOULD BE REALIZED. THIS IS
*THE FIRST TIMe EACH & EVERY SECTOR ON THE DISK IS
.. ACCESSED & \lJRITTEN ON.
THIS IS THE FIRST TIME RKOA
'IS BEING MADE TO INCREMENT OVER THE ENTIRE DISK (FROM
*000000 TO 0145.20) IF A 'SIN' OCCURS AT ANY POINT
*A DRIVE RESET IS DONE 8EFORE DOING WRT FMT FOR THE NEXT
'SeCTOR.
ANY OTHER ERROR IS CLEARED THROUGH A CONTROL RESET.
"THE FOLLOWING CHECKING IS DONE AFTER WRITING EACH

3486

"'CYLINDER.

3487
34B8
34B9

CNTRL ROY SETS WITHIN A CERTAIN TIME ON COMPLETION
",OF THE FUNCT I ON.
*2. IF 'SIN' OCCURRED?
*3. IF 'HE' OR 'ERR' BIT SET'?

3490
3491

3492
3493

*1.

'4. IF RKDA INCREMENTED CORRECTlY. INCLUDING BOUNDARV
'CONDITIONS (SECTOR COUNTER BITS OVERFLOWING INTO SURFACE,
.SURFACE BIT OVERFLOWING INTO CYLINDER BITS) AT THE END

MD-l1-CZRKKF, RK 11 BASIC LOGIC TEST 2
CZRKKF • P11
21-F EB-79 09: 51
3494
3495
3496
3497
3499
3499
3500
3501
3502
3503
350.
3505
3506
3507
3509
3509
3510
3511
3512
3513
351.
3515
3516
3517
3519
3519
3520
3521
3522
3523
3524
3525
3526
3527
3529
3529
3530
3531
3532
3533
3534
3535
3536
3537
3538
3539
3540
3541
3542
3543
3544
3545
3546
3547
3548
3549

3559
3560
3561
3562
3563
3564
3565
3566
3567
3568
3569
3570
3571
3572
3573
3574
3575
3576
3577
3579
3579
35BO
35Bl

3582
3563
35B4
3595
35B6
3597
3588
3589

3590

SEQ 0065

; -OF THIS POINTERS ARE INCREMENTED ADJUSTED, ETC.
; _& 'WRT FMT' ON THE NEXT SECTOR I S DONE.

; ;'" '" *$

010524
010526
010534

000004
012737
012737

010542

005003

010544
010550
010554
010560
010562
010564

012704
012702
013701
010105
005205
104413

T5T23:
000001
010564

'$:

0'0570
010574

001362
033342

010600
010606
010614

012777
012777
010177

033342
177777
170520

010620

012777

002003

010626

105777

170500

100411

005237

010642
010646
010652

004737

010654

104031

#l,STIMES
#lS,SLPERR

ClR

CLR
MOV

COUNT
Rl,OUTBUF

170530
170520

MOV
MOV
MOV

HOUTBUF ,flIRKBA

170504

MOV

'2003,flIRKCS

TSTS
BMI
INC
BNE

(oRKCS
3$
COUNT
2$

JSR
MOV
BRKOA4

PC,GT4RG
Rl,SREG10

ERROR

7$:

2$:

001362

001372

010137
104416

SCOPE
MOV
MOV

TST .SIN

104421
005037
010137

010634
010540

It. *' '" '" *' ."".:11 II< ..... * "' ... * •••••• "' ....... "' .. '" * .... '" "' ....... "' .. "' •••••• *

MOV
#-313,R4
MOV
#-14,R2
MOV
DRIVAD,Rl
MOV
Rl ,RS
INC
R5
eNT .RESET

177465
177764
001350

0'0566

010632

001206
001110

020774
001202

#-l,CiRKWC

Rl.flIRKDA

1(1 '" '" '" 11/1

* •• '"

; ;00 1 ITERATION
;SET RETURN ADRES FOR LUPING
;ON
ERROR (Sill 9)
;(R3)-O, SURFACE 0 BEING WRITTEN
; (R3)-l, SURFACE 1 BEING WRITTEN
;SET UP COUNT FOR 203 CYLINDERS
;SET UP COUNT FOR 12 SECTORS
;GET DRIVE ADRES
; STORE IT
;GO, 00 CONTROL RESET
;THIS IS A CALL FOR THE 'CNTRl;RESET' ROUTINE. A CONTROL RESET IS
; ISSUED AND AFTER A CERTAIN TIME
; I F THE I CNTR l RDY I DOES NOT SET
;AN ERROR IS REPORTED. NOTE THAT
; THE PC IN ER ROR MESSAGE IS THE
; PC WHERE 'CNT. RESET' IS LOCATED.
;THIS IS A VERY BASIC ERR & IF IT
;OCCURS GO BACK TO TEST 10
;GO CHECK IF SIN IS SET
;IF SET. DO DRIVE RESET TO ClR IT
;THIS WORD TO BE WRITTEN.
THE FIRST
;WORD OF EACH SECTOR WILL BE THE ACTUAL
; DISK-ADRES, CONSISTING OF THE DRIVE NO,
;CYL ADRES. SURFACE BIT SECTOR ,.ORES
;AORES FROM WHICH WORD IS TO B X-FERRED
; SE T UP WORD COUNT
;ADRES THE DRIVE. WITH CORRECT CYL
; & SECTOR ADRES
;WRITE FORMAT, GO
; DID eNTRL ROY SET
; YES. BRANCH
;NO, HAVE U WAITED LONG ENOUGH?
j IF NOT. LOOP BACK & WAIT
; IF YES. REPORT ERROR
jGO, GET RKCS.

ER,

DS,OA

; GET DISK ADRES, WHERE ERROR OCCURED
TO I BDA4' & BREAK
CONTENTS OF
;$REG10 -NTO DR ',CYL,SUR,SEC BITS
;CNTRL ROY DID NOT SET ON COMPLETION
; OF '\'IR ITE FORMAT', ON SEcn," AS
j GO

; SHOWN IN <DSK-AORES>

010656
010564
010666
010672
010676

032777
001405
004737
010137
104001

001000

170442

3S:

BIT
BEQ
JSR
MOV
ERROR

021002
001170

MD-ll-CZRKKF, RK11 BASIC LOGIC TEST 2
CZRKKF.P11
21-FEB-78 08:51
3550
3551
3552
3553
3554
3555
3556
3557
3558

MACY' 1 30A (1052)
21-FEB-79' 09: 59
PAGE 66
T23
CHECK' WRITE FORMAT' OF THE DISK

Hl000,flIRKDS
45
PC,GT3RG
Rl,SREG3
1

; WRT FMT \~AS DONE STARTING AT <DSK-ACRES>
; INDICATED IN EROR MSGE.
; DID SIN BIT SET?
; NO, BRANCH
;GO, GET RKCS,

ER, OS

; GET, DISK-AORES WHERE ERROR OCCUR EO
;SIN SET WHILE DOING WRT FMT

MACY11 30A(1052)
21-FEB-78 08:5B
PAGE 67
T23
CHECK 'WRITE FORMAT' OF THE DISK

SEQ 0066

;TO DISK-ADRES (AS IN SREG3)
010700

004737

010704

104032

010706

004737

010712

104033

010714
010716
010720

005201
005205
022702

010724
010726
010732

001002
062705
005202

010734

001313

010736
010742
010746
010750
010752
010754
010760
010762
010764
010766
010772
010774
010776
011000
011 002

012702

042;01
005703
001006
005203
062701
010105
005205

021226

021270

4$:

5$:

65:
177776

000004

177764
000037

000020

000677
062701
010105
005205
005003
005204
001270

000040

BS:

JSR

PC.CHKHEI

ERROR

JSR

PC,CHKDAI

ERROR

INC
INC
CMP

Rl
RS
N-2.R2

BNE
ADO
INC

N4,R5
R2

BNE

MQV
SIC
TST
BNE
INC
ADD
MOV
INC
BR
ADD
MOV
INC
ClR
INC
BNE

N-14,R2
#37.R1
R3
8$
R3
H20,R1
Rl,R5
RS
1$
#40,Rl
RI,RS
R5
R3
R4
1$

.+6

3591
3592

;CHECK IF 'ERR' OR 'HE' BIT IS SET
; IF YES. RETURN HERE.
;HE OR ERR SET WHILE DOING WRITE
; FORMAT ON SECTOR AS INDICATED IN
; <OSK-ADRES>
;WRT FMT WAS DONE STARTING AT <DSK-ACRES>
; INDICATED IN EROR MSGE.
;CHECK IF RKDA INCREMENTED CORRECTLY,
i IF NOT. RETURN HE-RE.
; RKDA DID NOT INCREMENT CORRECTLY
;AFTER 'WRITE FORMAT' WAS DONE
; TO THE SECTOR PREVIOUS TO THAT
; INDICATED IN I EXPCTD' RKOA
; INCREMENT TO THE NXT SECTOR
; INCRErAENT RS. TO WHAT RKDA WilL INCREMENT
; R U GOING TO FORMAT THE LAST SECTOR
; IN THE CYLINDER?
; I F NOT, BRANCH
;INC~EMENT RS CORRECTLY TO

'EXPCTO RKDAI

;HAVE U FORMATTED ALL 12 SECTORS
;ON THIS CYLINDER
; I F NOT, LOOP BACK & FORMAT THE
; NEXT SECTOR
;YES
; RESET THE COUNT FOR 12 SECTORS
;CLEAR THE SEC AORES BITS
;SURFACE 11
; YES. BRANCH

;NO. SET FLAG
; INCREMENT TO THE NXT SURFACE
;THIS IS WHAT RKOA SHOULD
; INCREMENT TO.
: GO, 00 NXT SURFACE
; INCREMENT TO NXT CYL
; POSITION FOR
; EXPCTD RKDA
;HAVE U FORMATTED ALL 203 CYLINDERS
; I F NOT, LOOP BACK /I FORMAT THE
;NEXT CYLINDER

3593
3594
3595
3596
3597
359B
3599
3600
3601
3602
3603
3604
3605

;

; >I<

i i.

$: iii . . . . >It If! >I<

* .. '" '" III *>11

$' '" '" "' . . . >It ..... '" >1< .. '" *>It '" . . . .

'*,. ... ** ...

>1< ..

"'*.* "" •• * ..

>1< • •

**.1IjI

;*TEST 24
CHECK 'READ FORMAT' FOR THE ENTIRE DISK
;-THIS TEST READ FORMATS THE ENTRE DISK, WHICH WAS WRT
;'FORMATTED IN THE PREVIOUS TEST.
THE FOLLOWING CHECKING
;*15 DONE
; *1. CNTRL ROY SETS WITHIN A CERTAIN TIME ON COMPLETION
: -OF FUNCTION

;*2. IF 'SIN' OCCURRED?
: 11<3. IF' HE I OR I ERR I OCCURRED?
; *4. RKDA INCREMENTED CORRECTLY.
;'5. IF THE CORRECT HEADER WAS READ.

MO-l I -CZRKKF, RK" BASIC LOGIC TEST 2
CZRKKF.Pll
21-FEB-7S 08:51
3606
3607
3608
3609
3610
3611
3612
3S13
3614
3615
361a
3617
361e
3619
3620
3621
3622
3623
3624
3625
3626
'3627

3628
3629
3630
3631
3632
3633
3634
3635
3636
3637
3638
3639
3640
3641
3642
3643
3644
3645
3646
3647
3648
3649
3650
3651
3652
3653
3654
3655
3656
3657
3658
3659
3660
3661

SEQ 0067

:06. IF RKWC OVERFLOWED CORRECTLY.
:.,2 SECTORS l1 CYLINDER) ARE READ AT A TIME. IF 'SIN'
:-OCCURS A ORIVE RESET IS DONE BEFORE READING THE NEXT
:-SECTOR.
READING IS DONE IN THIS ORDER cn a-SUR 0:
: oCYL O-SUR 1: cn I-SUR 0: en I-SUR 1: en 2-SUR 0:
: oCYL 2-SUR 1 :-----CYL 312-SUR 1. IF TESTING .ON SIMULATOR, ONLY
:oTHE lAST CYLINDER (312), lAST SECTOR (13), SURFACE I IS READ.

; ; ••••• "'.** ........................................................
TST24'

SCOPE
MOV
MOV

011004
011006
011014

000004
012737
012737

000001
011100

011022

005037

001358

ClR

INDXl

011025

001350

011034
011040
011042

013701
010102
005737
001410
052701

001344

MOV
MOV
TST
SEQ
SIS

DRIVAD, Rl
Rl,R2
SIMUL
12$
#14!533,Rl

SIS

"41140,R2

011032

001206

00'110

014533

011048

052702

014540

011052

012731

177777

001370

01 I 060
011062
01 1066

000407
012705
012737

177465
177764

001370

000020

01 I 074

062702

011100

104413

011102

104421

011 I 04
0",10
011114

012703
005037
010377

033342
001360
170216

011120

013777

001370

01" 26

010177

170206

011132

012777

002005

011140
011144
011146
011152

105777
100411
005237
001372

01 I 154
01 I ISO

004737
010137

#1,STIMES
#1$,SlPERR

MOV
12S:

BR
MOV
MOV

IS
N-313,RS
N-14,EFLGI

ADO

'20,R2

IS.

CNT .RESET

MOV
ClR
MOV

,OUTBUF, R3
INOX2
R3,.RKBA

170206

MOV

EFLG1 •• RKIr/C

MOV

Rl.0RKDA

170172

MOV

1200S •• RKCS

lIS:

170166

; :DO 1 IHRATION
;SET RETURN ADRES FOR lUPING
:ON
ERROR (SW 9)
: INDX1.0, SURFACE 0 BEING READ
: INDX1.1, SURFACE 1 BEING READ
;GET DRIVE ADRES
;TESTING ON SIMULATOR?
:NO, BRANCH
:SET 81TS FOR CYL 312, SEC 13. SUR
;ON SIMULATOR, CHECK ONLY CYL 312,
:SECTOR 13, SURFACE 1
;RKDA SHOULD INCRMNT TO THIS AFTR
; RD FMT OF 1 SECTOR
;SET COUNT FOR READING HDR
; FROM I SECTOR ONLY
;SET UP COUNT FOR 203 CYLINDERS
; SET COUNT FOR 12 HORS TO BE
;READ FROM EACH CYLINDER
: THIS IS WHAT RKDA SHOULD INCREMENT
; BY. AFTER 'RO FMT' OF EACH CYLINDER
:GO. DO CONTROL RESET
:T-HIS IS A CALL FOR THE 'CNTRl:RESET' ROUTINE. A CONTROL .·.ESET IS
: ISSUED AND AFTER A CERTAIN TIME
: IF THE 'CNTRl RDV' DOES NOT SET
;AN ERROR IS REPORTED. NOTE THAT
:THE PC IN ERROR MESSAGE IS THE
: PC WHERE 'CNT. RESET' IS LOCATED.
: THIS IS A VERY BASIC ERR & IF IT
: OCCURS GO BACK TO TEST 10
:CHECK IF SIN IS SET
: IF SET DO DRV-RESET TO CLR IT

TST .SIN

MD-l1-CZRKKF. RKI I BASIC LOGIC TEST 2
CZRKKF. P11
21-FEB-78 08:51
3662
3663
3664
3665
3666
3667
366B
3669
3670
3671
3672
3673
3674
3675
3676
3677
3678
3679
3680
3681
3682
3683
3684
3685
3686
3687
368B
3689
3690
3691
3692
3693
3694
3695
3696
3697
3698
3699
3700
3701
3702
3703
3704
3705
3706
3707
370B
3709
3710
3711
3712
3713
3714
3715
3716
3717

MACYI I 30A ( 1052)
21 - FEB-?S 08: S8 PAGE 68
T24
CHECK 'READ FORMAT' FOR THE ENTIRE DISK

:STORE ADRES OF BUFFER
:ADRES TO WHICH DATA IS TO BE X-FERRED
: FROM THE DISK
: SET UP WORD COUNT FOR 12 HEADERS
: TO BE READ OFF EACH CYLINDER
: (ONLY I FOR SIMULATOR)
:ADRES THE DRIVE WITH CORRECT
: CYLINDER & SECTOR ADRES
: READ FORMAT. GO

MACY11 30A( 1052) 21-FEB-7B 08:58 PAGE 69
T24
CHECK 'READ FORMAT' FOR THE ENTIRE DISK
2S:

001360
020774
001202

TSTB
BMI
INC
BNE

.RKCS
3S
INDX2
2S

~SR

PC,GT4RG
Rl,SREG10

MOV

;010 CNTRI ROY SET?
:YES, 8RANCH
:NO. HAVE U WAITED LONG ENOUGH?
:IF NOT. lOOP BACK & WAIT FOR IT
: I F YES. REPORT ERROR
:GO. GET RKCS. ER. DS.DA
:GET DRIV-AORES STARTING WHICH
: 'READ FORMAT' WAS DONE
: GO TO 'BDA4' & BREAK CONTENTS OF
:SREG10 INTO OR '.CYl.5UR.SEC BITS
: CNTRl ROY DID NOT SET AFTER
: READ FORMAT. 'RKDA' IN EROR MSGE
:GIVES THE CONTENTS OF RKDA AT THE
:TlME OF ERROR.
; READ FMT WAS OONE STARTING AT <DSK-ADRES>
: INDICATED IN EROR MSGE.

0",64

104416

BRKDA4

011166

104045

ERROR

01 I 170
01 I 178
011200
011204

032777

001000

OQ1405
004737
010137

BIT
6EQ

021002
001170

Hl000,.RKDS
4$
PC,GT3RG
Rl.SREG3

011210

104001

;DID 'SIN' SEn
;NO, BRANCH
:GO, GET RKCS. ER. OS
:GET OISK-ADRES WHERE 'SIN'
:OCCURED
:SIN ERROR ON DOING RD FMT
:TO cn INDICATED IN SREG3

uSR

PC,CHKHEI

ERROR

CMP
BEQ
MOV
BRKOAO

R2,ORKDA
6$
R2,SREG10

: CHECK IF' ERR' OR 'HE' BIT IS SET.
: I F YES, RETURN HERE.
;HE OR ERR WHilE DOING A READ
: FORMAT. I RKOA' IN EROR MSGE GIVES
: THE CONTENTS OF RKOA AT THE TIME OF ERROR
: READ FMT WAS DONE STARTING AT <DSK-ADRES>
; INDICATED IN EROR MESGE
:010 RKDA INCREMENT CORRECTLY BY 12 SEC

MOV
BRKOA4

.RKDA, SREGI 0

ERROR

MOV

EHGI.RO

MOV
BIC
CMP
8EC
MOV
MOV
MOV
ADD

Rl,R4
#160037. R4
R4. (R3)
8$
R4,SREGI
(R3) ,SREG2
RO.SREGO
U14.$REGO

ERROR

011212

004737

011218

104046

011220
011224
011226
011232

020277
001410
010237
104415

011234
011242

017737
104416

011244

104040

011246

013700

011252
011254
011260
011262
011264
011270
011274
011300

010104
042704
020413
001412
010437
011337
010037
062737

011306

104043

110130

35:

~SR

MOV
ERROR
4$:

021226

55:

170114
001202

170100

001a02

6$:

001370
160037

7$.
001164
001166
001162
000014

001162

: GET EXPCTD RKDA
; GO TO • BOAO I & BREAK CONTENTS OF
:SREGIO INTO OR •• cn.SUR,SEC BITS
: GET RECVD RDKA
: GO TO 'BDA4' & BREAK CONTENTS OF
:SREG10 INTO DR '.CYl.SUR,SEC BITS
:RKDA DID NOT INCREMENT BY 12 SECTORS
: AFTER RD FMT WAS DONE. ADRES
:OF CYLINDER IN ERROR CAN BE OBTAINED
; FROM I EXPCTD' ROOA
: SET UP COUNT FOR 12 HEADERS TO B CHKD
: (ONLY '. IF SIMULATOR)
:GET ORIV-ADRES FROM WHERE RDFMT WAS DONE
:GET THE CYLINDER ADRES ONLY. (HEADER)
: IS THE RECVO HEADER SAME AS EXPCTD?
:GET EXPCTD HEADER WORD
:GET HEADER WORD REevo
GET THE SECTOR (OCTAL NO) WHICH DID
NOT GI VE THE CORRECT HEADER
010 NOT RECI EVE THE CORRECT HEADER

SEQ 00S8

MD-"-CZRKKF, RK11 BASIC LOGIC TEST:I
CZRKKF.Pl1
21-FEB-780S:51
3718
3719
3720
3721
3722
3723
3724
3725
3726
3727
3728
3729
3730
3731
3732
3733
3734
3735
3736
3737
3738
3739
3740
3741
3742
3743
3744
3745
3746
3747
3748
3749
3750
3751
3752
3753
3754
3755
3756
3757
3758
3759
3760
3761
3762
3763
3164
3165
3166
3161
3168
3769
3110
3771
3112
3773

as:

011310

005723

011312
011314

005200
001361

011316

004737

011322

104041

011324
011330

005737
001031

001344

011332
011336
011340
011344
011350
011352

005737
001011
005237
062701
010102
062702

001356

011356
011362
011366
011372
011376
011400
0',404
011406
011410

000137
005037
042701
062701
010102
062702
005205
001402
000137

011100
001356
000037
000040

021316

95:

001356
000020
000020

,os:

000020
011100

;;'" *.

1ST

(R3)+

INC
eNE

JSR

PC,CHKWC

ERROR

TST
BNE

SIMUL
TsT25

TST
BNE
INC
ADD
MOV
ADD

INDXl
lOS
INDXl
620,Rl
Rl,R2
#20,R2

JMP
CLR
BIC
ADD
MOV
ADD
INC
SEQ
JMP

1$
INDXl
N37,Rl
'40,Rl
Rl,R2
'20,R2
R5
TsT25
1$

III • • • '" '"

SEQ 0089

;WORO FROM 'SECTOR' AS INDICATED
; (NOTE SECTOR N IS OCTAL)
; INCREMENT POINTER TO THE NXT WORD
; IN MEMORY WHERE THE RECVD HDR IS STORED
;HAVE U CHECKED All 12 HEADERS?
; I F NOT, lOOP BACK & CHK THE NXT.
;YES, ALL HEADERS FOR THIS CYLINDER
;CHECKED.
;CHECK IF RKWC OVERFLOWED TO 0, IF
; NOT RETURN HERE.
; RKWC DID NOT OVERFLOW AFTER DOING
; RDFMT OF 12 SECTORS ON THE CYLINDER
;NOTE THAT 'RKDA' IS THE INCREMENTED
; RKOA AFTER THE RDFMT
; TSTING ON SIMULATOR?
;;IF YES, EXIT
;NO
; DOiNG SURFACE 1
; YES, BRANCH
iNC
; INCREMENT DRIV ADRES TO THE NXT SURFACE
;THIS IS WHAT RKOA SHOULD INCREMENT
;TO, AFTER READ FMT OF THE CYLINDER
;GO RD FMT THE NXT SURFACE
;ClR SEC, SURFACE BITS
; INCREMENT TO NXT
; THIS IS WHAT RKDA SHOULD BE
; AFTER RD FMT OF CYLINDER
;HAVE U DONE All CYLINDERS?
; ;EXlT
; I F NOT, lOOP BACK & READ FMT FROM
; THE NXT CYLINDER

** ** "'oil '" ** "'* '" ** *'" '" *** .. "' .. * "" "' .... '" "'.* *. '" '" >Ie '" ** I/< "' .. "'* * '" '" _"' ••• *

;*TEST 25
CHECK 'READ' OF THE ENTIRE DISK
;-READ OF THE ENTIRE DISK (ONE wORD PER SECTOR) IS DONE
;*IN THIS TEST.
IN A PREVIOUS TEST THE FIRST WORD OF
;-EVERY SECTOR WAS WRITTEN LIKE A PSUEDO-HEADER (DRIVE N,
; -CYLINDER N, SURFACE & SECTOR').
THESE PSUEDO HEADERS
;-WILl BE READ & CHECKED IN THIS TEST, PROVING THAT ANY
; -SECTOR CAN BE ACCESsEO AND READ.
; *THE FOLLOWING CHECKING IS OONE
; *1. CNTRl ROY SETS WITHIN A CERTAIN TIME ON COMPLETION
j.OF FUNCTION.

;*2. IF 'SIN 1 OCCURRED?
; *3. I F I HE I OR I ERR I OCCURRED?
; -4. THE CORRECT FIRST WORO FROM EVERY SECTOR
; -WAS RECEIVED.
THIS WORD REFLECTS THE ABSOLUTE
;-OISK ADDRESS (DRV N, CYL N, SUR, SECN) Of THAT SECTOR.
;*5. IF RKD8 CONTAINED THE CORRECT WORD.
;*IF 'SIN' OCCURS DRIVE RESET IS DONE BEFORE READINr:
; -THE NEXT SECTOR.
READ IS DONE· IN THIS ORDER SEC 0-11
;-CYL 0 SUR 0 -> SEC 0-11 CYL 0 SUR 1 -> SEC 0-11 CYl 1, . . . .

MD-"-CZRKKF, RK11 BASIC LOGIC TEST 2
CZRKKF.Pl1
21-FEB-7B 08:5,
3774
3775
3776
3777
3778
3779
3780
3781
3182
3783
3784
3785
3786
3787
3788
3789
3790
3791
3792
3793
3794
3795
3796
3797
3798
3799
3800
3801
3B02
3803
3804
3805
3806
3807
38'08
3809
3810
3Bl1
3812
3813
3814
3815
3816
3817
38'8
3819
3820
3821
3822
3823
3824
3825
3826
3827
3828
3829

MACYII 30A(I052)
21-FEB-7B 08:58
PAGE 70
T24
CHECK 'READ FORMAT' FOR THE ENTIRE DISK

MACY11 30A(1052)
21-FEB-78 08:58
PAGE 71
T25
CHECK 'READ' OF THE ENTIRE DISK

SEQ 0070

;-IF TESTING ON SIMULATOR ONLY LAST CYLINDER (312),
;-SECTOR (13), SURFACE 1 IS READ.

; ; tl<

011414
011416
011424

000004
012737
012737

011432
011436

012703
005004

011440
011444
011450
011452
011456
011460
011464

013701
005737
001403
052701
000404
012700
012705

011470

104413

*'" !II • • *' * •• '" >II. '" *' '" "'.* ..... *'"

T5T25:

SCOPE
MOV
MOV

#I,STIMES
#IS,SLPERR

033342

MOV
ClR

NOUTBUF, R3
R4

001350
001344

MOV
TST
BEQ
815
BR
MOV
MOV

DRIVAD, R1

000001
011470

001206
001110

014533
177764
177465

011472

104421

011474
011500

005037
010377

001356
167632

011504
011512

012777

177777

0'0177

167622

0"5,6

012777

000005

011524
011530
0' 1532

167602

0"536

105777
100411
005237
001372

011540
011544
011550

004737
010137
104416

011552

104045

011554
011562
011564

032777
001405
004737

lOS'

SIMUL
lOS
#14533, Rl
1$

#-14,RO
#-313,RS

1$'

CNT.RESET

as:

CLR
MOV

INDXl
R3,II'RKBA

MOV
MOV

#-1,@lRKWC
Rl,II'RKDA

TST.SIN

167622

167606

2$:

001356

020774
001202

001000
021002

167544

3$'

Mav

#5,ORKCS

TSTB
BMI
INC
BNE

II'RKCS
3S
INDXl

JSR
MOV
BRKDA4

PC,GT4RG
Rl,SREG10

ERROR

BIT
8EQ

N1 000 ,II'RKDS
4$

~SR

PC,GT3RG

>I< $: • • III "' .....

"'oil. '" * "' ••

*. "'. '" '" **

lAST

lit.", • • >/I • • • • • • • •

;;001 ITERATION
;SET RET.RN ADRES FOR
; lOOPING ON ERROR (SW9)
; FLAG, CLEAR WHEN READING SURFACE 0
; SET WHEN READING SURFACE 1
;GET DRIVE ADDRESS
; TSTING ON SIMULATOR?
; I F NOT BRANCH
;SET ADREs BITS FOR lAST
(312)
;LAsT SECTOR (13), SURFACE 1
; SET COUNT FOR 12 SECTORS
; SET UP COUNT FOR 203 CYLINDERS

;GO, 00 CONTROL RESET
;THIS IS A CALL fOR THE 'CNTRL; RESET' ROUTINE. A CONTROL RESET IS
; ISSUED AND AFTER A CERTAIN TIME
;IF THE 'CNTRl ROY' DOES NOT SET
;AN ERROR IS REPORTED. NOTE THAT
; THE PC IN ERROR MESSAGE IS THE
;PC WHERE 'CNT.RESET' IS LOCATED.
;THIS IS A VERY BASIC ERR & IF IT
; OCCURS GO BACK TO TEST 10
;GO CHECK SIN, IF SET DO
; DRIVE RESET TO ClR IT
; ADRES TO WHICH DATA IS TO B X-FER~ED
; FROM THE DISK
; SET UP WORD COUNT
; ADREs THE DRIVE WITH CORRECT
; CYLINDER & SECTOR ADRES
;READ, GO
;010 CNTRl ROY SET?
;YES, BRANCH
;Im, HAVE U WAITED LONG ENOUGH
; I F NOT, lOOP BACK & WAIT FOR ! T
; I F YES, REPORT ERROR
;GO, GET RKCS, ER. OS,DA
;GET DISK-ADRES WHERE ERROR OCCURED
; GO TO '80M' & BREAK CONTENTS OF
;SREG10 INTO DR N.CYL,SUR,SEC BITS
;CNTRl ROY DID NOT SET AFTER DOING
; A 1 WORD READ FROM ADRES AS
; INDICATED IN <DISK-ADREs>
; 'RKOA' IN EROR MSGE GIVES THE
;CONTENTS OF RKDA AT THE TIME OF ERROR

;010 'SIN ' SeT?
;NO, BRANCH
;GO, GET RKCS,

ER, os

M~-11-CZRKKF,

CZRKKF.Pll
3830
3831
3832
3833
3834
·3835
3836
3837

RK11 8ASIC LOGIC TEST 2
21-FE8-78 09:51

011570
011574

010137
104001

001170
021226

011576

004737

011602

104046

011004
011606
011610
011814
011620
011634

02011 3
001407
010137
011337
010137
104044

011626
011632
011634
011640
011646

020177
001406
010137
0'7737
104037

011650
011654
011656
011660
011662

005737
001022
005201
005200
00' 302

001344

011664
011670
011674
011676
011700
011702
011706
011710
011712
011716
011720

012700
042701
005704
00,004
005204
062701
000670
005004
062701
005205
001263

177764
000037

MACY11 30A(1052)
21-FE8-78 08:58 PA~E 72
T25
CHECK 'READ' OF THE ENTIRE DIS'

45:

~SR

PC,CHKHEI

ERROR

3638
3839
3840
3841
3942
3843
3844
3845
3046
3847
3G4B
3849
3850
3851
3852

3853
3654
3B5S
3856
3B57
3858
3859
3860
3861
3862
3863
3864
3865
3666
3667
3866
3869
3670
3871
3672
3873
3674
3675
3676
3877
3678
3879
3980
36BI
3882
3883
3884
3885

5$:
001162
001164
001,66

1675,0
001162
167476

3894

3895
3896
3897
3896
3699
3900
3901
3902
3903
3904
3905
3906
3907
3906
3909
3910
391 I
3912
3913
3914
3915
3916
3917
3918
3919
3920
3921
3922
3923
3924
3925
392.
3927
3928
3929
3930
3931
3932
3933
3934
3935
3936
3937
3938
3939
3940
3941

7$:

TST
BNE
INC
INC
SNE

SIMUL
TST26
Rl
RO
1$

000040

;; IF YES, EXIT
; INCREMENT TO ADRES NEXT SECTOR
;HAVE U CHKD ALL 12 SECTORS?
; I F NOT. LUP BAK & CHK THE NXT
; IF YES •••
; RESET THE COUNT FOR 12 SECTORS
;CLEAR SECTOR, SURFACE BITS
;DOING SURFACE I?
; YES. B~.'.NCH

#-14,RO
N37,R1

R4
9$
R4
nO,Rl
1$
R4
#40,Rl
R5
1$

;NO
: INCREMENT THE ADRES TO NXT SURFACE
:GO READ SURFACE I
; INCREMENT TO NXT cn
;HAVE U CHKD ALL 203 CYLINDERS
; I F NOT, LOOP BACK & CHK THE NXT CYLINDER
:YES

MACY11 30A(1052)
21-FEB-76 oe.56 PAGE 73
T26
CHECK 'SEEK' FUNCTION, WITH DIFFERRENT VELOCITY MODES

;;

................ ..... ............ ..... .... ...............
"'

; .TEST 26
;'
;.
;.
;'
;'

SCOPE
MOV
MOV

"'.**. "' ••• '" "' •••• *

000004
012737
012703

000005
001372

Oil 736

005037

001356

011742
011746
011752
Oil 756

013700
013701
013702
012737

001332
001326
001330
011764

011764
011766

000240
104413

011770

104421

011772
C11776
012000
012004

013704
051304
010477
012710

012010

104412

CHKCRDY

012012

104021

ERROR

012014
012016
012022
012024
012026
012030
012034

005005
032711
00 I 005
005205
00'373
004737
104026

CLR
BIT
BNE
INC
SNE
"SR
ERROR

RS
#10D.I'RI
6$
RS
5$
PC.GT4RG
26

012036
012042
012044

03271'
001403
004737

BIT
8EQ
"SR

Nl0DD.iIIRI
7$
PC,GT4RG

00120&

00",0
2$:

111. '" '" '"

*...

$ . '" 1/1 • • •

* '*. '* *1\11/1 $. *' .111 • • *•• *•••

; ;00 5 ITERATIONS
; INITIAUZE POINTER TO THE FIRST

CLR

INDX1

;

MOV
MOV
MOV
MOV

RKCS,RO
RKDS,Rl
RKER,R2
#1S,$LPERR

NOP
tNT. RESET

MOV
SIS
MOV
MOV

001350
167334
0000"

4$:
5$:

020774

6$:

SEQ 0072

"'_

#5,STIMES
HSEEKO,R3

TST .SIN

001000

~~~~1 ~D~~~~S 0 INDICATES SEEK fIN FWO DIRECTION
WHEN 1 INICATES SEEK IN REV DIRECTION

1$'

020774

CHECK '~.;EK' FUNCTION. wI TH 01 FFERRENT VELOCITY MODES
THIS TEST CHECKS SEEK IN DIFFERENT VELOCITY MODES (OIFF <3,
3 < DIFF < 31, DIFF > 31).
FOR THESE 3 BASIC VELOCITIES SEEK IS DONE BOTH
IN FWD AND REV DIRECTION TO CHECK THE ADDER & DIFFERENCE LOGIC.
IF
WHILE DOING A SEEK 'SIN' OCCURS. A DRIVE RESET IS DONE TO INITIALIZE
THE POSITIONING LOGIC

; ;.* III • • • ill '" '" >11*
T5T26:

011722
011 724
011732

000100

;GET EXPCTO OATA WORD
; GET DATA WORD REeVD
; GET DISK-ADRES
;010 NOT RECIEVE THE CORRECT
;DATA WORD FROM DISK ON DOING
; I WORD READ FROM 'DISK-ADRES'
;AS INDICATED BY 'EXPCTD' DATA WORD
;NOTE THAT IN A PREVIOUS TEST THE
; FIRST WORD OF EACH SECTOR 15 UNIQUELY
;WRITTEN WITH A WORD GIVING THE
; ABSOLUTE ADDRESS OF THAT SECTOR IN
;TERMS OF, DRIV N. CYL ADRES, SUR, SEC ADRS,
;DOES RKD! CONTAIN CORRECT WORD
; YES, BRANCH
; NO, GET EXPCTD RKDB
; GET RKDB RECVD
; RKDB ERROR ON READ.
; FOR RKIIC. AFTER A READ RKDB
;CONTAINS CHECKSUM FOR THE SECTOR
;READ.
: WHEREAS FOR RK" D·. AFTER READ
;RKDS CONTAINS THE LAST WORD
; READ FROM THAT SECTOR &
;X-FERRED TO MEMORY
;TESTiNG ON SIMULATOR?

(R3) ,aREGl

R' ,$REG2

R1.flRKDS
7$
R' ,SREGO
IIRKDB,SREGI
37

000020

3893

R' ,SREGa

CMP
BEQ
MOV
MOV
ERROR

MOV
8IC
TST
SNE
INC
ADO
SR
CLR
AOD
INC
BNE

3886
3887
38ae
3889
3G90
3891
3892

6$:
001 I 64

MO-l1-CZRKKF, RKII BASIC LOGIC TEST 2
CZRKKF.Pll
21-FE8-780S:51

R', (R3)

CMP
SEQ
MOV
MOV
MOV
ERROR

SEO 0071

; GET DISK-ADRES WHERE SIN OCCURED3
;'SIN' ERROR ON DOING READ FROM
;DISK-ADRES INDICATED IN SREG3
;CHECK IF 'ERR' OR 'HE' BIT IS SET.
; IF YES. RETURN HERE.
: 'HE' DR 'ERR' ON DOING A READ OF
; I WORD FROM ADRES AS INDICATED
; IN <OISK-ADRES>
;'RKDA' IN EROR MSG! GIVES THE
;CONTENTS OF RKOA AT THE TIM~ OF EROR
;WAS THE CORRECT DATA WORD REeVD?

RI,SREG3
I

MOV
ERROR

DRIVAD,R4
(R3) ,R4
R4,IIRKDA
#1 I ,.RO

; SET RETURN ADRES FOR LUPING ON
; EROR (SW 9)
GO, 00 CONTROL ~ESET
THIS IS A CALL FOR THE 'CNTRLRESET' ROUTINE. A CONTROL RESET IS
ISSUED AND AFTER A CERTAIN TIME
I F THE 'CNTRL ROY' OOES NOT SET
AN ERRce 15 REPORTED. NOTE THAT
THE PC IN ERROR MESSAGE IS THE
PC WHERE 'CNT.RESET' IS LOCATED.
THIS IS A VERY BASIC ERR & IF IT
OCCURS GO SACK TO TEST 10
GO, CHECK IF SIN IS SET, IF SET
DO ORV-RESET TO CLEAR IT
GET DRIV-AORES
SET CYLINDER BITS
ADDRS THE DR I VE

SET 'SEEK',

lGOl

GO CHECK IF CONTROL ROY IS SET
I F SO. SKI P THE ERCR MESSAGE.
'eNTRL ROY' DID NOT SET AFTER
SENDING CYL ADO TO THE OR IV. 'ADD ACK'
FROM DRIVE SHLO HAVE COME BACK
THEREUPON SETT ING 'CNTRL ROY'

010 R/W/S ROY SET?
YES. 6RANCH
NO. WAIT
WA ITED LONG?
GO. GET RKCS. ER. OS. OA
R/W/S ROY DID NOT SET ON
COMPLETION OF SEEK
DID SIN SET?
NO. BRANCH
GO, GET RKCS. ER. OS. OA

\'ID-11-CZRKKF,

RKn 3ASIC LOGIC TEST 2
21-FE3-78 08:51

CZRKl<.F.Pl1

39Ll2

39';3
3944
39~5

3946
3947
3948
3949
3950
3951
3952
3953
3954
3955
3956
3957
3958

3959
3960

3961
3962
3963
3964
3965
3966

3967
3968

3969
3970
3971
3972
3973

012056
012060
012064

104001
032710
001403
004737
104022

012066
012072
012074
012100
012106

022710
00,406
011037
012737
104024

012850
012052

ERROR

7$:

140000

MOV
MOV
MOV
MOV
CNT. RDY

R4,@RKDA

033342

CMP

001162
001164
033342

BEQ
CLR
MOV
MOV
ERROR

(R3j,OUTBUF
11$
$REGO
(R3) ,$REG1
OUTBUF ,$REG2
43

TST
BNE
TST
CMP
BNE
INC
TST
TST
CMP
BNE

INDX1
12$
(R3)+
#SEEK2+2, R3
1$
INDX1
-( "3)
-(R3)
#SEEKO-2, R3
1$

167212

012132
012136
012144
012152
012156

010477

001164

104027
167202
033342
177777

10$:
167172
167162

002005

001410

012206
012212
0' 2214
012216
012222
012224

005737

001166

#OUTBUF ,!'RKBA
#-1.@lRKWC
#2005,@RO

3974

3975
3976
3977

3978
3979
3930

3981
3982
3983
3984

3935
3986
3987
3988
3989

012230

012232
012234
012240

11 $:

001356

001007
005723

022703
00'260
005237
005743

001400
001356
12$:

005743

022703

001370

001251

3990
3991

3996
3997

:ADRES THE DRIVE,SEC 0
: READ ONE HEADER INTO THIS
; BUS ADRES
; GO. READ FORMAT
:WAIT FOR CNTRL RDY
:\~AS THE CORRECT READE4R READ (FROM
: CYLINDER TO \;HICH SEEK WAS DONE BEFORE)
:STORE SEC # FROME WHERE HDP WAS RD (0)
: GET ExPCTO HEADER
: GET HDR RECVD
: WRONG HDR WAS RECVO FROM CYLINDER (ADRES
:IN ER M5GE). NOTE THAT A PURE SEEK WAS
; DONE TO TH I S CY L BEFORE
R.. ADING HDR
;USING READ FORMAT
:SEEK IN REVRSE DIRECTION?
; YES. BRANCH
: NO, INCREMENT PTR TO NXT SEEK ADRES
;DONE WITH ALL SKS IN FWD OIR?
;NO. GO & DO NXT ONE.
;SET FLAG INDICATING SK IN REVRSE
: POSITION PTR TO NXT SK IN REV
iDONE WITH ALL?
: IF NOT, 00 NXT ONE

; ; **~ 11':*"'***** **** * **** *$******** >I' ** ****** *"''''>i< ** * *** ** *******$ 111*"' '

MD-l1-CZRKKF.
CZRKKF.P11

4003

; GET RKDA

: RKOA CHANGED AFTER DOING SEEK

CHECK DRIVE RESET FROM LAST CYLINDER
;*THE HEADS ARE POSITIONED ON THE LAST CYLINDER (DOING
; "'AN IMPLIED SEEK-READ).
THEN A DRIVE RESET IS ISSUED.
; >I< IT' 5 CHECKED
I F THE HEADS WERE BROUGHT BACK TO 0 BY
; *DOING A 1 WORD READ & CHECKING THAT THE CORRECT WORD
:-WA5 R"CEIVED. IF TESTING ON SIMULATOR THI5 TEST IS SKIPPED.

3992
3993
399[.
3995

399B
3999
4000
4001
4002

; DID RKOA CHANGE?
;NO
; YE3. GET EXPCTD?

0~7737

013737
104043

OS,

R4,@RKDA
10$
R4,$REGO
@RKDA,$REG1
27

012122
012130

011337

ER,

BIT SET WHEN

CMP
BEQ
MOV
MOV
ERROR

001162

167224
001162

C !21 72
012176
012204

'HE'

MOV
ERROR

MOV

010437

005037

GET RKCS,

; 'ERR OF

:DOES RKCS STlLL CONTAIN THE 'SEEK' FNCTION
;YES - EXiT
:NO, GET RKCS REeVD
: GET EXPCTD RKes
;RKCS SHOULD CONTAIN THE 'SEEK ' BITS
; I F NOT, ERROR

CMP
BED

001164
000210

001406

012166

;YE5
:GO,

#210,@RO
9$
@"O,$REG1
#210,$REGO
24

000210

020477

012710
104414
021337

# 140000.@Ra
8$
PC,GT4RG
22

012242
012244
012252
012256
012260
012264

RK 11 BAS IC lDGIC TE5T 2
21-FEB-7B OB:51

000004
012737

005737
001124
013701
104413

000005
001344

MACY"
T27

30A ( , 052)
2' -FEB-78
DB: 5B
PAGE 75
CHECK DRIVE RESET FROM LAST CYLINDER

TST27 :

SCOPE
MDV

U5,$TIMES

TST

SIMUL

001:206

BNE
TST30
MDV
RKCS, Rl
CNT. RESET

001332

SEQ 0074

:;005 ITERATIONS
;R U ON A SIMULATOR?
:;YES, EXIT
; GO, DO CONTROL RESET

4004

;THIS IS A CALL FOR THE

4005

; RESET' ROUT! NE. A CONTRO L RESET IS
; ISSUED AND AFTER A CERTAIN TIME
;IF THE 'eNTRl ROY' DOES NOT SET
;AN ERROR IS REPORTED. NOTE THAT
: THE PC IN ERROR MESSAGE IS THE
;PC WHERE 'CNT.RESET' IS LOCATED.
; THIS IS A VERY BASIC ERR & IF IT
; OCCURS GO BACK TO TEST 10

4006
4007
4008

4009
4010
4011
4012
4013
4014

4015
4016
4017
4018

4019
4020
4021
4022

012266
012270
012274
012300
012302
012306
012312
012320

005000
012703
013704
010405
052705
010577
012777

033342
001350

010377

014500
167026
177777
167012

012324

012711

000005

0'2330
012332

005000

012334
012336
012340

020513
001407

167014

'CNTRL-

CLR
MOV
MOV
MOV
SIS
MOV
MOV
MOV

RO
#OUTBUF, R3
DRIVAD, R4
R4,R5
#14500, R5
R5,IilRKDA
#-1 ,@RK.'~
R3, !'RKBA

:SET cn AORES=312 (OCTAL)
:ADRES THE DRIVE, lAST CYLINDER
: READ 1 WORD
: INTO THIS MEMORY AORES

MOV

#5,@Rl

: READ,

:ADRES WHERE DAT.A WILL BE READ INTO

4023

4024
4025
4026
4027

1$:

104414

CLR
RO
CNT. RDY

4028

4029
4030
4031
4032
4033
4034

4035
4036
4037
4038
4039
4040
4041

4042
4043
4044
4045
4046

012344
012350

010537
011337

012354

010537
104044

012356
012362

01271 1
104414

012364

005000

012366
012374

032777

012376

012702

CMP
SEQ
MOV
MOV
MOV
ERROR

001162
001164
001166

3$:

000015

RS,@R3
3$
R5, SREGO
@lR3,$REG1

R5,$REG2
44

MDV
H'S,!'R1
CNT NDY

4047
4048
4049
4050
4051

4052
4053

SEQ 0073

: SIN SET ON DOING SEEK
;010 'HE' OR 'ERR' SET?

;SEEKING TO CYL AS INDICATED
: IN RKDft.

012~ 1 0

012777
012777

BIT
BEQ
JSR
ERROR

020774

012114
012116

012160
C12164

MACV1130A(10S2)
21-FE8-7B
08:58
PAGE 74
T26
CHECK 'SEEK' FUNCTION, WITH DIFFERRENT VELOCITY MODES

000100

001011

177763

166732

4$:

ClR

BIT

#100,"'RKOS
5$
H-15,R2

BNE
MDV

:THIS IS A CALL FOR CN.RDY ROUTINE
;WHICH lIJAITS FOR eNTRl ROY TO SET ~
: A RETURN IS MADE AFTER CNTRL ROY
;SETS. IF WITHIN A CERTAIN TIME
:CNTRL ROY DOESN'T SET AN ERROR
;MESSAGE IS GIVEN. ,.,.JAITING TIME
: 883 MS FOR 11/20, 175 MS FOR 11/45
; WAS THE CORRECT WORD READ?
;YES, SEEK TO 3'2 WAS DDNE CORRECTLY5,@

; GET
;GET
; GET
; DID

EXPCTD wORD

wORD RECVO
DSK-ADRES FROM WHERE WORD WAS READ
NOT READ BACK CORRECT WORD FROM
;LAST CYL, SEC O. IF rEST 45 & 46
;WERE SUCCESSFULLY DONE THIS
; ERROR MEANS THAT IMPLIED SEEK
:TO CYL 312 COULD NOT B DONE
:DRIVE RESET, GO
:THIS IS A CALL FOR CN.RDY RDUTINE
;WHICH \>lAITS FOR CNTRL ROY TO SET ~
;A RETURN IS MADE AFTER eNTRL RDY
:5ETS. IF WITHIN A CERTAIN TIME
: CNTRl RD ( DDESN' T SET AN ERROR
;MESSAGE IS GIVEN. WAITING TIME
:883 MS FOR 11/20.175 MS FOR 11/45

:DID R/W/S RDY SET?
; YES. BRANCH
;IF U R ON A SLOWER MACHINE

MD-I1-CZRKKF. RKll BASIC LOGIC TEST 2
CZRKKF ,Pll
21-FEB-7B OB:51
4054
4055
4056
4057
4058
4059
4060
4061
4062
4063
4064
4065
4066
4067
406B
4069
4070
4071
4072
4073
4074
4075
4076
4077
4078
4079
40BO
4081
4082
4083
40B4
4085
4086
4087
4088
4089
4090
4091
4092
4093
4094
4095
4096
4097
4098
4099
4100
4101
4102
4103
4104
4105
4106
4107
4108
4109

012402
012404

005202
001376

012406
012410

005200
001366

012412
012416

004737
104026

020774

012420
012424

032711
001403

140000

012426
012432

004737
104022

020774

012434
012436
012442
012444
012450
012456

005205
020577
001406
010537
017737
104054

65'
166676
001162
166664

012777
010377
010477

177777
166644
166642

012476

012711

000005

005000
104414

012506
012510
012512
012516
012522
012526

020413
001407
010437
011337
010437
104044

001164

.-2

INC
BNE

RO
4$

JSR
ERROR

BIT

#140000,@lR1

PC,GT4RG

BEQ

JSR
ERROR

PC,GT4RG
22

INC
eMP
BEQ
MOV
MOV
ERROR

RS
R5,@lRKDA
7$
R5,SREGO
"RKOA, SREGI
54

166646

7$:

BS:

95:
001162
001164
001166

4110
4111
4112

: GET RKCS, ER, OS, DA FOR ERROR MESSAGE
: HE OR ERR BIT SET ON DOING DRIVE
: RESET FROM LAST CYLINDER
: POS IT I ON R5 TO EXPCTD RKOA
;010 THE CYL ADRES BITS IN RKDA GET CHANGED?

;NO, BRP-"'CH
: GET EXPCTD RKOA
: GET RKDA REeVD
: CYLINDER ADRES BITS IN RKDA

MOV
MOV
MOV

H-1,@lRKIoIC
R3,IIRKBA
R4,@lRKDA

;DRIVE RESET, FROM LAST CYLINDER
,READ 1 WORD
: INTO THIS ADRES
:FRDM THIS DSK ADREs-cn 0, SEC 0

MOV

IS,@lRl

: READ, GO

RO
CLR
CNT ,ROY

CMP
BEQ
MOV
MOV
MOV
ERROR

R4,PR3
TST30
R4,$REGO
4!lR3,$REG1
R4,$REG2
44

,THIS IS A CAll FOR CN.RDY ROUTINE
,WHICH WAITS FOR CNTRl ROY TO SET.
:A RETURN IS MADE AFTER CNTRl ROY
,SETS. IF WITHIN A CERTAIN TIME
: CNTRL ROY OOESN' T SET AN ERROR
:MESSAGE IS GIVEN, WAITING TIME
; B83 MS FOR 11/20, 175 MS FOR 11/45
;WAS THE CORRECT WORD READ?
; ;YES, EXIT
; GET EXPCTO WORD
; GET WORD RECVD
:GET DISK ADRES WHERE ERROR :CCURED
:DID NOT READ CORRECT WORD FROM
:CYL 0, SEC O. IF TEST 45 & 46
,WERE SUCCESSFULLY DONE THIS
:ERROR COULD MEAN THAT ORIVF.-RESET
;010 NOT BRING HEAOS BACK TU O.

MACY11 SOA( 1 052)
21-FEB-78 08: 58 PAGE 77
T27
CHECK DRIVE RESET FROM LAST CYLINDER

seQ 007B

; ; •••• *".**.* •• "' ••••• "'. $"' •• "' •• *•• * •••• *** ........ "'''' ................. .
;oTE5T 30
'WRITE' - 256 WORD BLOCK ON SECTOR O. CYLINDER 0
;THE TEST BELOW SHOULD BE CONSIDERED AS A SET UP PHASE FOR
; THE FOLLOWING TEST.
IT WRITES A BLOCK OF 256 WORDS IN
,SECTOR 0, CYLINDER 0 WITH A SPE~IFIC PATTERN AND THIS WRITTEN
; BLOCK 1111 LL BE MADE USE OF IN THE NEXT TEST TO CHECK
lOUT 'WRITE-CHECK' AND 'REAO CHECK' FUNCTIONS.

4113

; ; . . . . . $$$'" III 101

012530
012532

rST 30'

000004
104413

012534

104421

012538

013704

.** •• $$OI8l'!IIIOI$$$$.$*. '" 111 • • • 4: ** "'.0* ** .... ** .1lI."'.
$$

SCOPE
eNT .RESET

Mev

$ ••

*•• $ lit.

,GO, DO CONTROL RESET
,THIS IS A CALL FOR THE 'CNTRL:RESET' ROUTINE. A CONTROL RESET IS
; ISSUED AND AFTER A CERTAIN TIME
; I F THE 'CNTR L ROY' ODES NOT SET
;AN ERROR IS REPORTED. NOTE THAT
: THE PC IN ERROR MESSAGE IS THE
,PC WHERE 'CNT.RESET' IS LOCATED.
;THIS IS A VERY BASIC ERR& IF IT
: OCCURS GO BACK TO TEST 10
;CHECK IF SIN IS SET, IF SET
; CO DRIVE RESET TO CLEAR IT

TST .SIN
001332

RKCS,R4
;THE FOLLOWING COCE IS FOR SETTING
THE I/O BUFFER IN MEMORY (STARTING AT
;OUTBUF), WITH A PARTICULAR 256 WORD PATTERN.
,STARTING FROM THE FIRST WORD IN THE BUFFER
;THE LO BYTE WILL BE A COUNT PATTERN
;FROM 0 TO 255 (DECIMAL), WHEREAS THE
:HI-BYTE WILL BE THE COMPLEMENT OF LD BYTE.
;A DECREASING COUNT PATTERN FROM 255 TO O.
;I.E.THE BUFFER WILL LOOK LIKE'
;OUTBUF
(1 III 111 1 00000000)
;OUTBUF+2
(1 111 111 0 00 000 001)

,up

4142
4143
4144
4145
4146
4147
414B
4149
4150
4151
4152
4153
4154
4155
4156
4157
4158
4159
4160
4161
4162
4163
4164
4165

;THE TOTAL TIME FOR THE ABOVE
:LOOPS (Il0l/0 PUTTING 'NOP'S) IS
: 5304 MS FOR 11/20 AND
: 1061 MS FOR 11/45 WITH MOS
lOR BIPOLAR MEMORY
: WAITED LONG?
: IF NOT. LUP BAK & WAlT
; I F YES, ERROR
: GET RKCS, ER, OS, DA
,R/W/S ROY DID NOT SET AFTER
,DOING DRIVE RESET
: DID HE OR ERR BIT SEn
: I F NOT, BRANCH

; GOT CHANGED AFTER

012460
012466
012472

012502
012504

55:

seQ 0075

; & DO NOT NEED SUCH A LARGE MACHINE
: TIME LOOP. CHANGE THESE 3
;INSTRUCTIONS TO 'NOP' THE
: LOOP TIME WI LL BE REDUCED
:TO 1100 MS

INC
BNE

MD-l'-CZRKKF, RKI I BASIC lOGIC TEST:I
CZRKKF.Pl1
21-FEB-7S OB:51

4114
4115
4116
4117
41 IS
4119
4120
4121
4122
4123
4124
4125
4126
4127
4128
4129
4130
4131
4132
4133
4134
4135
4136
4137
4138
4139
4140
4141

MACY11 30A(1052)
21-FEB-7B' 08'58 PAGE 76
T27
CHECK DRIVE RESET FROM LAST CYLINDER

; LAST WORD
012542
012546
012552
012556

012700
012701
012702
012703

012562
012564
012566
012570
012572
012574

010320
005202
060103
010320
005202
001374

012576
012604
012612

012777
012777
013777

177400
033342
001350

012620

012714

000003

012624

105714

033342
177401
177400
177400

15'

166530
166524
166520

2$'

MOV
MOV
Mev
Mev

HOUTBUF ,RO
#177401, RI
#-400, R2
"77400,R3

MOV
INC
ADD
MOV
INC
SNE

R3, (RO)+
R2
Rl,R3
R3, (RO)+

MOV
MOV
MOV

H-400,'RKWC

IS
NOUTBUF ,"RKBA

QRI VAD ,C>RKDA

(0000000011 III 111)

; PATTERN GENERATING NUMBER
; SET UP COUNT FOR 256 WORDS
;SET UP THE FIRST PATTERN TO B WRITTEN
; SET uP FI RST WORD IN I/O BUFFER
: INCREMENT COUNT
:SET UP NEXT WORD PATTERN
;WRITE IT IN NXT I/O BUFFER WORD
,HAVE U WRITTEN ALL 256 WORDS
; IF NOT GO & WRITE NEXT PATTERN
; WRITE 256 WORDS
;STARTlNG FROM THIS BUS ADRES
;TO THIS CISK ACRES, CVL 0, SEC 0

MOV

#3,PR4

,WRITE, GO

T5TB

Ii'R4

:WAS eNTRL ROY CLEARED AS GO WAS SeT?

MO-l1-CZRKKF, RKll BASIC LOGIC TEST:2
CZRKKF. Pll
21-FEB-78 08: 51
4166
4167
4169
4169
4170
4171
4172
4173
4174
4175
4176
4177
4178
4179
4180
4181
4182
4183
4184
4185
4186
4187
4188
4189
4190
4191
4192
4193
4194
4195
4196
4197
4198
4199
4200
4201
4202
4203
4204
4205
4206
4207
4208
4209
4210
4211
4212
4213
4214
4215
4216
4217
4218
4219
4220
4221

BPl
uSR
ERROR

3$-2

CLR
TSTB
BMI
INC
BNE

R2
@RKCS
4$
R2
3$

uSR
MOV
BRKDA4

PC,GT4RG
DRIVAD, $REG10

104416

012666

104031

ERROR

012670

004737

012674

104032

012676
012702
012704
012710
012716

020077
001406
010037
017737
104035

012626
012630
012634

100003
004737
104030

012636
012640
012644
012646
012650

005002
105777
100411
005202
001373

012652
012656
012664

004737

020714

013737

001350

021002

3S:

166466

001202

4$:

021234

012720

004737
104034

012726

004737

012732

104033

012734

004737

012740

104036

012742
012746
012750
012756
012762

022714
001406
012737
011437
104024

5$:

166434
001162
166422

001164

65:

021316

1$:

021262

ss:

021342

000202
000202
001164

9$:

001162

4244
4247
4248
4249
4250
4251
4252

4253
4;.54
4255
42564257
4258
42S9
4260
4261
4262
4263
4264
426!:)
4266
4267
4268
4269
4270
4271
4272
4273
4274
4275
4276
4277

JSR

PC,CHKH';

ERROR

CMP
SEQ
MOV
Mev
ERROR

RO ,lIRKBA
6$
RO,$REGO
lIRKBA, $REGI
35

uSR

PC,CHKWC

ERROR

JSR

PC,CHKDA

ERROR

uSR

PC.CHKER

ERROR

CMP
BEQ
MOV
MOV
ERROR

11202,PR4
TST31
N202,SREGO
@R4.$REGI
24

;010 CNTRL ROY SET?
; YES, BRANCH
;WAITED LONG ENOUGH?
; IF NOT, LUP BAK & WAIT
;IF YES, ERROR
;GO, GET RKCD, ER. OS. DA
;GET THE STARING ADRES
;BREAK CONTENTS OF $REG10 I~TO
;DRV N. CYL. SUR, SEC H
;CNTRL RDV DID NOT SET ON COMPLETION
;OF WRITE OF 256 WOROS ON CYL O. SEC 0
; 'RKDA' IN EROR MSGE GIVES THE
; CONTENTS OF RKDA AT THE TIME Or- EROR
;WRITE WAS DONE STARTING AT <DSK-ADRES>
;INDICATED IN EROR MSGE
;CHECK IF 'ERR' OR 'HE' BIT IS SET.
RETURN HERE

;HE OR ERR BIT SET ON DOING WRITE OF
;256 WORDS ON CYL O. SEC 0
;WRITE WAS DONE STARTING AT <OSK-ADRES>
; INOICATEO IN EROR MSGE
; 'RKOA' IN EROR MSGE GIVES THE
; CONTENTS OF RKOA AT THE TIME OF EROR
;010 RKBA INCREMENT CORRECTLY?
; YES,

BRANCH

; GET EXPCTO RKBA
; GET RKBA RECVD
; RKBA DID NOT INCREMENT CORRECTLY
;(BY 1000 OCTAL BYTES) AFTER WRITE
;OF 400 (OCTAL) WORDS ON SEC 0, cn 0
;CHECK IF RKWC OVERFLOWED TO 0,
; I F NOT RETURN HERE.
;RKWC DID NOT OVERFLOW. AFTER A
;WRITE OF 256 WORDS ON CYL O. SEC 0
; CHECK IF RKDA INCREMENTED CORRIOCTL Y.
; I F NOT RETURN HERE
; RKDA DID NOT INCREMENT SY 1 AFTER
;A WRITE OF 256 WOROS IN CYL O. SEC 0
:CHECK IF ANY BIT RKER IS SET
; IF YES :.ETURN HERE.
; RKER BIT SET ON DOING WRITE ON
;CYLINDER O. SECTOR 0
;OOES RKCS STILL CONTAIN THE WRITE BITS?
;;YES. EXIT
;GET EXPECTED RKCS
; GET RKCS RECVD
;RKCS DID NOT CONTAIN THE '''RITE'
; BITS AFTER THE FUNCTION WAS DONE.

MACY1! 30A(1052)
21-FEB-7S 08:58 PAGE 79
T31
CHECK THAT WRITE WAS DONE CORRECTLY

; ; '" '" *** *'" * '" '" '" "'* ... '" '"

SEQ 0078

"'.* ••• * *. '" "' •• ** ••
CHECK TI;H WRITE WAS DONE CORRECTLY

42n

4245
4246

PC,GT3RG
30

; I F YES f

012724

$I '" 11< '" *- '" '" '" '"

** '" >I< "' ... "'* '" ** ** '" '"

>i< '" '" '" ""

;*TEST 31
;*THIS TEST CHECKS IF THE 'WRITE' OF 256 WORDS DONE IN PREVIOUS
;*TEST IS GOOD.
THE SEQUENCE OF OPERATIONS IS AS FOLLOWING:
; *1) 00 A READ OF 256 WORDS FROM SECTOR O. CYLINDER 0
;*
INTO A SUFFER STARTING AT 'OUTBUF'.
;<2) COMPARE & CHECK THE DATA THAT IS READ (STARTING AT 'OUTBUF')
;.
WITH THE OATA THAT WAS GENERATEO PREVIOUSLY
;*3) REPORT AN ERROR IF THE DATA REAO BACK FROM DISK OOES
;*
NOT COMPARE WITH DATA THAT WAS SUPPOSE TO HAVE BEEN WRITTEN

012764
012766

; ; * •••• *************."'*."' •••••••• **"'********* ****** ********* ••• ".

TST31:

000004
104413

012770

104421

012772
012776
013002
013004
013006
013010
013012
013020
013026

012700
012701
005021
005200
001375
005000
012777
012777
013777

177400
033342
001350

166314

013034

012777

000005

166270

013042
013046
013050
013052

105777
100411
005200
001373

166264

013054
013060
013066

004737
013737
104416

020774
001350

013070

104045

013072
013100
013102

013106
013112

SEQ 0077

; YES, SRANCH
;GET RKCS, ER, OS
; CNTRL ROY 01 D NOT CLEAR AS GO WAS SET

;TO 'WRITE ',

MD-l'-CZRKKF, RKll BASIC LOGIC TEST 2
CZRKKF. Pll
21-FEB-78 OS:S1
4223
4224
4225
4226
4227
4228
4229
4230
4231
4232
4233
4234
4235
4236
4237
423S
4239
4240
4241
4242
4243

MACY1! 30A(1052)
21-FEB-18 08:59 PAGE 19
T 3 0 ' WRiTE' - 256 WORD BLOCK ON SECTOR 0, CYLINDER 0

SCOPE
CNT. RESET

TST.SIN
177400
033342

ss:

166310
166304

1$:

001202

032777

001000

2S:

001033
012701
012702
012703

177400
177777
033342

5$:

;GO, 00 CONTROL RESET
; THIS IS A CALL FOR THE 'CNTRL;RESET' ROUTINE. A CONTROL RESET IS
; ISSUED AND AFTER A CERTAIN TIME
; I F THE 'CNTRL ROY' DOES NOT SET
;AN ERROR IS REPORTED. NOTE THAT
;THE PC IN ERROR MESSAGE IS THE
; PC WHERE 'CNT. RESET' IS LOCATED.
; THIS IS A VERY BASIC ERR& IF IT
: OCCURS GO BACK TO TEST 10
;CHECK IF SIN IS SET, IF SET
;00 ORIVE RESET TO CLEAR IT
; SET COUNT FOR 400 WOROS
; TO BE c: EARED IN THE 9UFFER
; CLR THE 400 WORD SUFFER
;STARTING AT 'OUTSUF'

MOV
MOV
CLR
INC
BNE
CLR
MDV
MOV
MOV

11-400,RO
HOUTBUF, Rl
(Rl )+
RO
RO
#-400.@RKWC
HOUTBUF ,lIRKBA
DRIVAD,lIRKDA

;READ 256 WORDS
; INTO THIS ADRES
; STARTING FROM THIS DISK ADRES

MOV

N5,lIRKCS

; REAO. GO

TSTB
SMI
INC
eNE

tl>RKCS
2$
RO
1$

uSR
MeV
SRKOA4

PC,GT4RG
DRIVAD,SREG10

ERR~.1

BIT
BNE
MDV
Mev
MOV

# I 000 ,I!I>RKDS
TST32
#-400, Rl
#177777, R2
NOUTBUF ,R3

010 CNTRL ROY SET?
VESt BRANCH

WAITED LONG ENOUGH?
I F NOT, LUP BAK & WAIT
ERROR. I F YES
GO, GET RKCD. ER. OS, OA
GET THE STARTING ADRES
GO TO 'BOA4' & BREAK CONTENTS OF
$REG10 INTO DRV "
cn. SUR, SEC BITS
CNTRL ROY DID NOT SET AFTER READ
OF 400 WORDS FROM CYL 0, SEC 0
'RKOA' IN EROR MSGE GIVES THE
CONTENTS OF RKOA AT THE TIME OF EROR
REAO WAS DONE STARTING AT <~SK-ADRES>
INOICATED IN EROR MESGE
IS SIN SET?
; IF YES, EXIT

MD-ll-CZRKKF, RKll BASIC LOGIC TEST:Z
CZRKKF.Pl1
21-FEB-780B:51
427B
4279
4280

MACYll 30A(1052)
21-FEB-7S OB:58 PAGE 80
T31
CHECK THAT WRITE WAS DONE CORRECTLY

177773
177401

MOV
ADD
CMP

010137
062737
010237

001162
000401
001164

MOV
ADD
MOV

013150
013154

011337
104055

001166

013156
013160
013182

005205
001403
005723

TST

013164
01316e

005201
001355

INC
SNE

013116
013122
013126

012705
062702
020213

013130

001414

013132
013136
013144

4281

4282
4283
4284
4285
4286
4287
4288
4289
4290
4291
4292
4293
4294
4295
4296
4297
429B
4299
4300
4301
4302
4303
4304
4306
4306
4307
4308
4309
4310
4311
4312
4313
4314
4315
4316
4317
4318
4319
4320
4321
4322
4323
4324
4325
4326
4327
432B
4329
4330
4331
4332
4333

BEQ
001162

MOV
ERROR

INC
BEQ

#-5. R5
,177401,R2
R2. (R3) ;WAS THE READ WORD SAME AS THE WORD
;THAT WAS SUPPOSE TO BE WRITTEN
; YES, BRANCH
7$
;NO, ERF..R
; GET THE • OF WORD
Rl,SREGO
;THAT IS IN ERROR (EXAMPLE.',2--376,377,400)
'401,SREGO
;GET EXPCTD WORD (THAT WAS SUPPOSEO TO
R2,SREGI
;BE WRITT~N)
;GET WORD RECVO (THAT WAS REAO BAK)
(R3) ,SREG2
;010
NOT REAO 8ACK WORD THAT WAS SUPPOSEO
55
; TO HAVE BEEN WRITTEN PREVIOUSLY. POSITION
;OF WORD IN ERROR IS AS INDICATED By
;WORD N (SREGO), SEC 0, CYL 0
RS
; ;EXIT
T5132
; INCREMENT POINTER TO NXT WORD (THAT
(R3)+
; WAS READ BACK)
; HAVE U CHKD ALL 256 VlORDS?
Rl
; I F NOT, LUP BAK & CHK THE NXT WORD
6$
;IF YES, EXIT

:!;;;;*;;* *••• **~~:~: *; =;:~$ ~~=~~~. ;~~~~~~~ *: .~; ~ ;~~::.~: *;;~;~:$ 0
;*THIS TEST CHECKS OUT THE BASIC 'READ CHECK' LOGIC, USING THE OATA BLOCK
;_'CYLINDER, SECTOR 0) WRITTEN IN A PREVIOUS TEST,
HENCE THE TEST WHICH
; _WRITES THE DATA BLOCK SHOULD BE DONE PRIOR TO THIS TEST.

; ;* ••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
013170
013172

000004
104413

013174

104421

013176
013202
013206
013212
013216
013224
013230
013234
013240

013701
013702
013703
013704
012737
012712
013713
012714
01271 I

013244
013246
013250
013254

105711
100003
004737
104030

TST321

013256

033342

1$.

104056

013262
013266
013270
013274

032711
001403
004737
104057

013276
013304
013306
013314

032777
001404
017737
104060

013316
013320
013322
013326
013332

005712
001405
011237
011137
104061

013334
013340
013342
013344
013346
013352
013356

013702
005202
020213
001405
010237
011337
104062

013360
013364
013366
013374
013400

022714
001406
012737
011437
104063

013402

022737

013410

001412

013412
013420
013426
013434

012737
012737
013737
104064

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

RKCS,R1
RKWC,R2
RKOA, R3
RKBA. R4
N52525,OUTBUF
N-400,"R2
DRIVAD,I>R3
NOUTBUF ,I>R4
'13,I>Rl

TSTS

I>Rl
2S
PC.GT3RG
30

BPL
uSR
ERROR

021002

140000

BIT
BEQ
uSR
ERROR

#140000.IPRI
4$
PC,GT3RG
57

45'

BIT
BEQ
MOV
ERROR

#2,IPRKER
5$
I>RKER ,SREGO
60

5$'

TST
BEQ
MOV
MOV
ERROR

IIR2
6$
Il'R2,$REGO
Il'Rl,$REGl
61

MOV
INC
CMP
BEQ
MOV
MOV
ERROR

DRIVAD,R2
R2
R2,I>R3
7$
R2,$REGO
"R3,$REGI
62

7$:

CMP
BEQ
MOV
MOV
ERROR

'OUTBUF.Il'R4
BS
NOUTBUF, SREGO
"R4,$REGl
63

as,

eMP

#52525,OUTBUF

BEQ

T5T33

MOV
MOV
MOV
ERROR

NOUTBUF ,SREGO
'52525, SREGI
OUTBUF ,$REG2
64

021002
166024

16601e

001162

001162
001164
001350

6$'

001162
001164

033342
033342
001164

001162

052525

033342

033342
052525
033342

001162
001164
001168

CHKCRDY
ERROR

35'

000002

;GO, DO CONTROL RESET
; THIS IS A CALL FOR THE 'CNTRL;RESET' ROUTINE, A CONTROL RESET 15
; ISSUED AND AFTER A CERTAIN TIME
; I F THE 'CNTRL ROy' ODES NOT SET
;AN ERROR IS REPORTED, NOTE THAT
; THE PC IN ERROR MESSAGS IS THE
; PC WHERE 'CNT, RESET' IS LOCATED.
;THIS IS A VERY BASIC ERRI IF IT
; OCCURS GO BACK TO TEST 10
;CHECK IF SIN IS SET. IF SeT
;00 DRIVE RESET TO CLEAR IT

; READ CHECK 256 WORDS
;STARTING FROM CYL O. SECTOR 0
; READ CHECK, GO
;010 CNTRL ROY GET CLEARED AS GO WAS SET?
;YES, BRANCH
;GET RKCS, ER, OS
;CNTRL ROY DID NOT CLEAR AS GO

MACY11 30A(1052) 21-FEB-78 08:58 PAGE 91
T32
CHECK 'READ CHECK' FUNCTION - CY LINDER 0, SECTOR 0

2S'

104412

013260

SCOPE
CNT,RESET

TST,SIN
001332
001334
001340
001336
052525
177400
001350
033342
000013

MD-l'-CZRKKF, RK11 BASIC LOGIC TEST 2
CZRKKF, Pl1
21-FEB-7S OS. 51
4334
4335
4336
4337
4339
4339
4340
4341
4342
4343
4344
4345
4346
4347
4349
4349
4350
4351
4352
4353
4354
4355
4356
4357
435B
4359
4360
4361
4362
4363
4364
4365
4366
4367
436B
4369
4370
4371
4372
4373
4374
4375
4376
4377
4378
4379
4380
43Bl
43B2
4383
43B4
4385
43B6
4387
43GB
4389

SEQ 0079

;GO CHECK IF CONTROL ROY IS SET
; IF SO, SKIP THE ERDR MESSAGE,
;WAS SET TO 'READ CHECK'
;CNTRL ROY DID NOT SET ON OOING
; 'READ CHECK' FROM CYL 0, SEC 0
;010 'ERR' OR 'HE' BIT SET?
;NO, BRANCH
;GO, GET RKCS,ER,OS FOR ERROR MESSAGE
; 'ERR' OR 'HE' BIT SET ON DOING
; 'READ CHECK' ON CYLINDER 0, SEC 0
; 010 'CSE' BIT SET IN RKER?
;NO, BRANCH
;GET RKER
; SOFT ERROR - CSE - ON OOIN~ 'READ
,CHECK' ON CYLINDER 0, SECTOR 0
,U SHOULD HAVE GOT ERRROR 102 ALSO
; DID WORD COUNT OVERFLOW TO 07
; YES, BRANCH

;GET RKWC
;GET RKCS
;WORO COUNT DID NOT OVERFLOW
; ON DOING 'READ CHK' ON en 0, SEC 0
; RKOA SHOULD INCREMENT
;TO THIS AFTER 'RO CHK' IS DONE
;010 RKDA INCREMENT CORRECTLY?

; GET EXPCTO RKDA
; GET RKDA RECVD
;RKDA DID NOT INCREMENT CORRECTLY
; (BY 1) ON DOING 'READ CHK' ON
;CYL O. SEC 0
; DID RKBA GET CHANGED?
;NO, BRANCH (RKBA WON'T CHANGE. NO NPR'S)
; GET EXPCTD RKBA
; GET RKBA RECVD
; RKBA CHANGED AFTER OOiNG 'READ CHK'
,ON CVLiNDER 0, SECTOR O. SHOULD
; NOT CHANGE, FOR, NO NPR' S.
; 'OUTSUF' SHOULD STILL CONTAIN THE
; SAME WORD AS IT 010 BEFORE 'RD CHK'
,NOTE THAT AT THE BEGI~ING OF THIS TEST
,S2525 WAS WRITTEN INTO 'OUTBUF'
;;YES, EXIT
;REPORT ERROR .IF 'OUTBUF' CHANGED
; GET ADRES OF OUTBUF
:GET EXF·;TD WORD IN 'OUTBUF'
;GET WORD FOUND IN 'OUT8UF'
;AS MENTIONED ABOVE, IF 'WRITE' OF
: 256 WORD DATA BLOCK WAS DONE
;CORRECTLI BEFORE, THEN THIS ERROR
;COULO MEAN THAT AN NPRWAS DONE
; ON 'READ CHECK' •

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

;;
"'
;oreST 33
CHECK THE 'WRITE CHECK' FUNCTION - ON CYLINDER O. SECTOR 0
;oTH!S TEST CHECKS OUT THE BASIC 'WRlTE CHECK' LOGIC. USING THE 256

seQ OOSO

fAD-"-CZRKKF, RK11 BASIC LOGIC TEST:2
CZRKKF ,P11
21-FEB-7B OB:51
4390
4391
4392
4393
4394
4395
4396
4397
4398
4399
4400
4401
4402
4403
4404
4405
4406
4407
440B
4409
4410
4411
4412
4413
4414
4415
4416
4417
4418
4419
4420
4421
4422
4423
4424
4425
4426
4427
4428
4429
4430
4431
4432
4433
4434
4435
4436
4437
4438
4439
4440
4441
4442
4443
4444
4445

•• '" *"''''* "' ....... '" '" ** ****"'* '" "' ... *. '" *. . '"

013436
013440

TST33:

000004
104413

SCOPE
CNT .RESET

TST .SIN

013442

104421

013444
013450
013454
013460
013464
013470
013472
013474
013476
013504
013512
013520

013701
012700
012702
012703
062703
010322
005200
001373
012777
012777
013777
012711

013524
013526
013530
013532
013536

005000
105711
100003
004737
104030

013540

104412

013542

104065

013544
013550
013552
013556

032711
001403
004737
104066

021002

013560
013566
013570
013574

032777
001403
004737
104067

021002

001332
177400
033342
177777
177401

177400
033342
001350
000007

1$:

165630
165624
165620

2$:
021002
3S:

140000

000001

165542

005777
001406
017737
011137
104061

165532

013620
013624
013626
013632
013634
013640
013646

013704
005204
020477
001406
010437
017737
104070

001350

013650
013656
013660
013666

034342

165460

034342
16S444

001162
001164

013674

022777
001407
012737
017737
104071

013676
013702
013704
013712
013716

022711
001406
012737
011137
104024

000206

165524
001164

000206
001164

SEQ 00B1

CLR
TSTB
BPL
JSR
ERROR

RO
PRI
3$
PC,GT3RG
30

01< '" '" '" "' ... '" "' ... '"

** '" '" '" '" '" '" ** ** *. '" '" ** '" "' . . '" '" '"

;GO, DO CONTROL RESET
;THIS IS A CALL FOR THE 'CNTRL; RESET' ROUTINE. A CONTROL RESET IS
; ISSUED AND AFTER A CERTAIN TIME
; I F THE I eNTRl ROY I DOES NOT SET
;AN ERROR IS REPORTED, NOTE THAT
;THE PC IN ERROR MESSAGE IS THE
;PC WHERE 'CNT.RESET' IS LOCATED.
;THIS IS A VERY BASIC ERR& IF IT
; OCCURS GO BACK TO TEST 10
;CHECK IF SIN IS SET, IF SET
;00 DRIVE RESET TO CLEAR IT

'177401 fR3
R3, (R2)+
RO
1$
N-400,@lRKWC
NOUTBUF ,I'RKBA
DRIVAD, PRKDA
fl7.0Rl

CHKCRDY

4$:

BIT
BEQ
JSR
ERROR

N140000,I'RI
5$
PC,GT3RG
66

5$:

BIT
BEQ
JSR
ERROR

1I1 t ORKER

6$
PC,GT3RG
67

;WRITE CHECK 256 WORDS
;STARTING AT' THIS BUS ADRES
;WITH THIS DISK DATA BLOCK (CYL 0, SEC O)
;WRITE CHECK, GO
;GIVE SOME TIME
; DID CNTRL ROY CLEAR AS GO WAS SET?
;YES BRANCH
;GET RKCS, ER, OS
;CNTRL ROY 010 NOT CLEAR AS GO WAS
;SET TO 00 WRITE CHECK
; GO CHECK I F CONTROL ROY IS SET
;IF SO. SKIP THE EROR MESSAGE.
;CNTRL ROY DID NOT SET AFTER
;COMPLETING WRITE CHECK ON
;CYLINDER O. SECTOR 0
;010 HE OR ERR 8IT SET
;NO, BRANCH
; GO GET RKCS ER OS FOR ERROR MESSAGE
;HE OR ERR 8IT SET ON DOING WRITE
;CHK ON CYLINDER O. SEC 0
; 010 WCE SET IN RKER?
;NO. 8RANCH
; YES GET RKCS, ER, OS
;WCE ON WRITE CHECK OF CYL o. SEC "; NOTE THAT I F A PREVIOUS TEST
;& THEN COMPARED WITH MEMORY BUFFER
;TO SEE IF IT WAS WRITTEN CORRECT WAS
; DONE RIGHT BEFORE, THIS ERROR SHOULD NOT

MACYl1 30A (1052)
21-FEB-7B DB: 58
PAGE 83
T33
CHECK THE 'WRITE CHECK' FUNCTION - ON CYLINDER 0, SECTOR 0

001162

TST
BEQ
MOV
MOV
ERROR

7S:

MOV
INC
CMP
8EQ
MOV
MOV
ERROR

BS:

CMP
SEQ
MOV
MOV
ERROR

95:

CMP
BEQ
MOV
MOV
ERROR

001164

001162

j ; '" *"'1It

4476
4477
4478
4479
4480
4481
4462
44B3

RKCS, Rl
#-400, RO
NOUTBUF, R2
11'177777, R3

165506
001162
165474

MOV
MOV
MOV
MOV
ADO
MOV
INC
8NE
MOV
MOV
MOV
MOV

ERROR

6$:

013576
013602
013604
013612
013616

4475

IIIRKWC
7$
@lRKWC ,$REGO
l'Rl,$REGl
61

; HAPPEN UNLESS THERE IS A FAULT IN THE
;COMPARING LOGIC OF 'WRT CHK'
;010 RKWC OVERFLOW?
; Y ES, BRANCH
;NO, GET RKWC

JGET RKC:

; RKWC 010 NOT OVERFLOW AFTER
;WRITE CHECK ON CYL 0, SEC 0
DRIVAO, R4
; RKDA SHOULD INCREMENT
R4
; TO THI S AFTER WRT CHK
R4,ORKDA
;010 RKDA INCREMENT CORRECTLY?
8$
; YES, BRANCH
R4,$REGO
; NO. GET EXPCTD RKOA
I'RKDA, $REGI
; GET RKDA REeVD
70
;RKOA 010 NOT INCREMENT CORRECTLY
; (BY 1 SECTOR) AFTER WAT CHK ON SEC 0, CYL 0
NOUTBUF+l 000 ,IIIRKBA ; DID RKBA INCREMENT CORREen Y?
9$
;YES, EXIT
NOUTBUF+l 000, SREGO ; GET EPCTD RKBA
@lRKBA.$REGl
; GET RK8A RECVO
71
; RKBA DID NOT INCREMENT CORRECTLY
;(BY 1000 BYTES) AFTER A WRT CHK
; OF 256 WORDS ON
0, SEC 0
;DOES RKCS STILL CONTAIN THE WRT CHK BITS?
'20S,PRI
TST34
; ; YES. BRANCH
#206,SREGO
; NO, GET EXPCTO RKCS
@lRl ,$REGI
; GET RKCS RECVD
24
; RKCS BITS CHANGED AFTER WRT CHK
;WAS DONE

*. '" ** '" ** . . '" ** '" *. ** '" '" ** ** . . * .......... ** ** ** >1:"' ' ", .. "' ... '" **.* *** '" ** '" •• *••

;.TEST 34
CHECK THAT IBA INHIBITS INCREMENTING OF RKBA
;'THIS TEST CHECKS THAT THE BUS ADDRESS DOES NOT INCREMENT </HEN
; >THE IBA BIT IS SET. SEQUENCE OF OPERATIONS:
; " } CLEAR OUT 256 WORD BUFFER IN MEMORY (OUTBUF)
;'2} READ FROM SECTOR 0, CYLINDER 0 THE 256 WORD BLOCK THAT WAS
;'WRITTEN IN A PREVIOUS TEST (NOTE: THAT TEST SHOULD HAVE BEEN
;'DDNE BEFORE THIS). IBA BIT IS SET DURING REAO BACK.
;-3) CHECK THAT RKBA 01::, NOT INCREMENT
;.4} CHECK T-HAT THE ENTIRE BLOCK WAS READ INTO THE SAME MEMORY
;<WORD (OUTBUF) & THE REST OF THE WORDS IN THAT BUFFER ARE 0
;'AS PREVIOUSLY CLEARED OUT.

4484
44~5

4486
4487
448B
4489
4490
4491
4492
4493
4494
4495
4496
4497
4498
4499
4500
4501

SECTOR 0

;-WORD DATA SLOCK (SECTOR 0, CYLINDER O) WRITTEN IN A PREVIOUS
;*TEST. THE BUFF~R IN MEr.:ORY. USED FOR COMPARISON OF DATA. IS THE
,""ONE STARTING AT 'QUTBUF'. HENCE THE TEST WHICH WRITES THE
;*256 WORD BLOCK ON THE OISK (AS WELL AS CREATING THE 256
; *256 WORD MEMORY BUF FER) SHOULD BE DONE BEFORE THIS TEST.

MD-11-CZRKKF, RK 11 BASIC LOGIC TEST 2
CZRKKF.P11
21-FEB-780a:51
4446
4447
4448
4449
4450
4451
4452
4453
4454
4455
4456
4457
445B
4459
4460
4461
4462
4463
4464
4465
4466
4467
4468
4469
4470
4471
4472
4473
4474

MACY11 30A(1052}
21-FEB-78' OB'5B
PAGE 82
T33
CHECK THE 'WRITE CHECK' FUNCTION - ON CYLINDER 0,

013720
013722

; ; * ** .. "'** "'."' .. *11\1*****" ..... *** ... "' ...... * "' . . * ** *'" '" "'* ... *'" '" '" '" '" ** *.*'" * >I< **.,. iii *•••

000004
104413

013724

104421

013726

013701

TST34:

SCOPE
CNT.RESET

TST .SIN
001332

MOV

RKCS,Rl

GO, 00 CONTROL RESET
THIS IS A CALL FOR THE 'CNTRLRESET' ROUTINE, A CONTROL RESET IS
ISSUED AND AFTER A CERTAIN TIME
I F THE 'CNTRl ROY' DOES NOT SET
AN ERROR IS REPORTED. NOTE THAT
THE PC IN ERROR ",ESSAGE IS THE
PC WHERE 'CNT.RESET' IS LOCATED.
THIS IS A VERY BASIC ERR& IF IT
OCCURS GO BACK TO TEST 10
CHECK IF SIN IS SET, IF SET
00 DRIVE RESET TO CLEAR IT

SEQ 0082

MD-"-CZRKKF. RKI' BASIC lOGIC TEST 2
CZRKKF.P11
2'-FEB-780S:5'

#-400. RD
NOUTBUF. R2
R2.R3

; SET UP COUNT FOR 256 WORDS

ClR
INC
BNE
MOV
MOV
MOV

(R3)+
RO
#-400.iI>RKWC
R2 •• RKBA
DRIVAD •• RKDA

004005

MOV

N4005 •• R,

; CLEAR OUT THE 256
;WORD MEMORY 8UFFER STARTING
;AT 'OUTBUF'
; READ BACK 256 WORDS
;INTO THIS BUS ADRES (IBA WilL B SET)
;FROM THIS DSK ADRES (SEC O. CYL 0)
; NOTE: SEC 0 HAS BEEN IIIR I TTEN IN A
; PREVIOUS TEST WITH A UNIQUE PATTEk~
;READ. GO. IBA SET

001362

CLR
TSTB
BMI
INC
BNE

.R'

013732
013736
0' 3742

0,2700
0'2702
0'0203

0,3744
0' 3746
0' 3750
0'3752
0'3760
0' 3764

005023
005200
001375
0' 2777
0'0277
0' 3777

,77400
'65352
001350

0' 3772

0,27' ,

0' 3776
014002
0'4004
0'4006
0140'2
0'40,.
0'4020
0'4026

005037
'057'1
'004'2
005237
00'373
004737
0' 3737

0'4030

, 04045

4527

0'4032
0'4036

'04046

0'4040
0'4044
014046
0' 4052
0'4060

020277
001406
0'0237
017737
, 04072

0'4062
014070
014072
0,4076

032777
00'042
012700
022712

014' 02
0,4'04
0141,2
0'41,6

00,411
a12737
0"237
0'3737

4552

0'4124

'04044

4553
4554
4555
4556
4557

0'4'26
0'4'30

005722
0'2705

4546
4547
4548
4549
4550
4551

,$:

2$:
00'362

4558
4559
4560
456,
4562
4563
4564
4565
4566
4567
4569
4569
4570
457'
4572
4573
4574
4575
4576
4577
4579
4579
4590
45S1
4582
4583
4584
4585
45S6
4567
4568
4589
4590
4591
4592
4593
4594
4595
4596
4597
4598
4599
4600
460,
4602
4603
4604
4605
4606
4607
4608
4609
46'0
4611
46'2
46'3

COUNT

~SR

020774
00'350

MOV
BRKDA4

00'202

~SR

PC.CHKHE

ERROR

4$:

CMP
BEQ
MOV
MOV
ERROR

R2 •• RKBA
5$
R2.$REGO
.RKBA. $REG,

5$:

BIT
BNE
MOV
CMP

#IOOO.ii>RKDS
TST35
#-400, RD
#377,ii>R2

BEQ
MOV
MOV
MOV

6$
#377. SREGO
( R2).$REG,
DRIVAD.$REG2

ERROR

TST
MOV

(R2)+
#-5.R5

3$:

02'234

'65272
001'62
165260

00,,64

001000

'65236

,77400
000377

000377
00' ,64
00'350

001162
0011 66

6$:
'77773

BASIC LOGIC TEST:I
2'-FEB-7a 08:51

3$
COUNT
2$
PC.GT4RG
ORlVAD, SREG1 0

ERROR

MD-1I -CZRKKF. RK11
CZRKKF.P11

'65354
,65346

'044'6

004737

'04073

ERROR

INC
BEQ
BR

R5
TST35
75

0'4,66

0'4'70

005205

014172

00'40'

0'4174

000757

7$:

RO
TST35
(R2) ..
7$
SREG,
-(R2) .$REG2
RO.R4
'40, ,R4
R4. $REGO

005200
00'417
005722
00'774
005037
014237
0'0004
062704
0'0437

; DID CNTRl ROY SET?
;YES. BRANCH
;WA:TED LONG ENOUGH?
; IF NOT. LUP BAK & WAIT
;GO. GET RKCS. ER. OS. DA
;GET THE STARTING AORES
; BREAK CONTENTS OF $REG, 0
;INTO DR N. CYL. SUR. SEC
;CNTRL ROY DID NOT seT AFTER DOING
;READ
;CHECK IF 'ERR' OR 'HE' BIT IS SET.
; I F YES. RETURN HERE.
;ERR BIT SETON DOING READ FROM SEC O.
;CYL 0 (INDICATED IN <OSK-ADRES»
; 'RKDA' IN EROR MSGE GIVES THE
; CONTENTS OF RKDA AT THE TIME OF EROR

;010 RKBA INCREMENT?
,OK I F NOT, BRANCH
; GET EXPCTO RKBA
; GET RKBA RECVD
: RKBA INCREMNTED WHEN IBA BIT WAS
: SET, SHOULD NOT HAVE
; IS SIN SET?
:: IF YES. EXIT
; CHECK THAT THE FIRST WORD IN
; 'DUTBUF' IS 377 (LAST wORD OF SEC O.
;CYL 0). NOTE THAT READ WAS DONE
: INTO THIS SAME WRD WITH IBA SET
; GET E" CTD WORD (lAST WORD OF THE BUFFER
; GET WORD RECVD (lAST WRD FROM SEC 0)
:DISK ADRES WHERE ERROR OCCURED
: (SEC O. CVl 0 LAST WORD)
;DATA ERROR
:THE FIRST WORD IN MEM BUFFER (OUTBUF)
;SHOUlD BE NON-ZERO & SHOULD CONTAIN
: THE lAST WORD READ BACK FROM SEC 0
;CYL O,THIS DID NOT HAPPEN IF THE ERROR OCCURS
; INCREMENT POINTER TO THE NXT WORD
;AlLOW ONLY 5 MESAGES FOR ERR 1,6

MACYll 30A (1052)
21-FEB-7S DB' 58 PAGE 95
134
CHECK THAT lBA INHIBITS INCREMENTING OF RKBA
INC
BEQ
TST
BEQ
ClR
MOV
MOV
ADD
MOV

014134
0'4136
0'4,40
0'4'42
0,4'44
0'4'50
0'4,54
0'4'56
014162

SEQ 0083

MOV
MOV
MOV

177400
033342

4502
4503
4504
4505
4506
4507
4508
4509
45'0
4511
45'2
45'3
45'4
45'5
45'6
45'7
45'8
45'9
4520
452'
4522
4523
4524
4525
4526
452B
4529
4530
453'
4532
4533
4534
4535
4536
4537
453B
4539
4540
4541
4542
4543
4544
4545

MACYll 30A(,052)
2,-FEB-78 08:58 PAGE 84
T34
CHECK THAT IBA INHIBITS INCREMENTING OF RK8A

001164
00' '66
00040'
001162

; . . . . . 101 . . . . . . . .

SEQ 0084

:CHKD ALL 256 WORDS IN THE BUFFER?
:;YES. EXIT
: IS THIS WORD O?
;YES, lUP BAK & CHK THE NXT WORD?
; ERROR. GET EXPCTED WORD - 0
;GET WORD THAT WAS FOUND IN THE BUFFER
;THIS 'WORD N' IN MEMORY BUFFER
; SHOULD HAVE 9EEN ZERO
: THE 256 WORD BUFER (STARTING A1
; OUTBUF) WAS CLEARED BEFORE READING
; BAK SEC 0 INTO IT. SINCE THE IBA
;BIT WAS SET DURING THE READ. ONLY
:THE FIRST WORD OF (OUT6UF) SHOULD
:HAVE CHANGED, THE REST OF THE WORDS
;SHOULD BE STILL O. IF THIS ERROR
; OCCURS, 'WORD . ' (OF THE BUFFER) AS
: INDICATED IN THE EROR MESAGE) GOT
; CHANGED WHEN REAO WAS DONE FROM
:THE DISK, INDICATING THAT WITH IBA
:SET X-FER WAS NOT DONE INTO THE
:SAME MEMORY LOCATION. 'WORD N'
: IS OCTAl. & SPECIFIES THE POSITION
; IN THE BUFFER (FIRST WORD IS 'WORD N'

: ;EXIT

*** **!fC$.!II .* •• * ••••• "' ••••• '" •.

~."'

.. ., "' •• ..................

oTEST 35
CHECK THAT RK1' INTERRUPTS WHEN IDE IS SET
;<THIS TEST CHECKS IF RK1' INTERRUPTS TO ITS DESIGNATED VECTOR
; <ADDRESS WHEN IDE BIT IS SET, WITH CONTROL READY SET & GO CI.EAR.
;* IT IS NORMALI.Y 220. UNLESS IT HAS BEEN CHANGED. IF IT HAS BEEN
:.CHANGED RKll WILL INTERRUPT TO 'RKVEC'. NOTE 'RKVEC' HAS
: oTO BE SET UP BY THE USER.

014176
014200

;;.* ••••••

T5T35:

000004
'04413

0'4202

'0442'

0'4204
0'42'0
0142'4
0'42,6
0'42,6
0'4222

0' 2746
0'2746

III. "'_.*III$!II • • dI*. $ . $ $$ $loll.

SCOPE
tNT. RESET

TST. SIN
000340
0'4216

MOV
MOV

* ... "'."" .. '" "' ..... III iii .. III .. III • • • 111181111 • • * $ • • •

#340.-(SP)
#64S,-(SP)

RT!

000002
64$:
0' 370,
0' 3700

00' 332
001402

MOV
MOV

RKCS,R'
RKVEC.RO

;GO. DO CONTROL RESET
;THIS IS A CALL FOR THE 'CNTRl:RESET' ROUTINE. A CONTROL RESET IS
: ISSUED AND AFTER A CERTAIN TIME
;IF THE 'CNTRl ROY' ODES NOT SET
;AN ERROR IS REPORTED. NOTE THAT
: THE PC IN ERROR MESSAGE IS THE
;PC WHERE 'CNT.RESET' IS lOCATED.
;THIS IS A VERY BASIC ERR& IF IT
; OCCURS GO BACK TO TEST 10
;CHECK IF SIN IS SET. IF SET
;DO DRIVE RESET TO CLEAR IT

: GET POINTER TO RK VECTOR ADRES

MD-"-CZRKKF,
CZRKKF.Pi1

RK11 BASIC LOGIC TEST 2
21-FEB-78 08:51

MACY11
T35

30A(1052)
21-FES-7B
OB:58
PAGE 86
CHECK THAT RK11 INTERRUPTS WHEN IDE IS SeT
MOV

014226
014232

012720

014262

012710

000340

MOV

4617

014236
014240

105711
100376

4618
4619

014242

012711

014246

104420

000100
000005

TSl8
BPL
MOV
"AT .INT

014252
014256

011137
104074

014260
014262

022626

4614
4615
4616

4620
4621
4622
4623
4624
4625
4G26

MOV
ERROR

001162

,'$,

(RO)+
#340,(RO)
@Rl
"00,t'R1

1$:

8R
CMP

4628
4629

014264

022626

4630
4631

014266

ot 2777

014302

"Rl,$REGO
74

1$
(SP)+, (SP)+

4633
4634
4635

014274

104420

000005

4636
4637
4638
4639
4640
4641
4642
4643
4644
4645
4646
4647

014300

000403

014302
014304
014306

022626
022626
104020

014310

012777

004600

014316
014322
014326
014330

012746
012746
000002

000340
014330

eM?

(SP)+, (SP)+

MOV

#2$.@RKVEC

WAT.INT

2$:

CMP
CMP
ERROR

(SP)+. (SP)+
(SP)+. (SP)+
20

3$:

MOV

#8AOINT ,<'RKVEe

MoV
MoV

#340,-(SP)
'65$,-(SP)

165106

4632

INTERRUPT

; SET IDE BIT IN RKCS

; WAIT FOr( INTERRUPT. AT lEAST
7 US FOR 11 /45

4627

4648

;SET PSw ON

iWAIT FOR CNTRL RDY TO SET

.-2
; 37 US FOR 11 /20.
; GET RKCS

; RK11

DID NOT

;WAS SET.
; CLEAR

000400

SEO 0085

; SET UP INTERRUPT VECTOR FOR RK11

; RK11

INTERRUPT WHEN IDE

WITH eNTRLE ROY SET Ii GO

INTERRUPTED CORRECTLY TO

; THIS. RESTORE STACK POINTER
; (FROM RK11 INTERRUPT)
; RESTORE STACK POINTER
; (FROM
WAT. INT)
;IF THERE IS FAULTY POLLING OR INTERUPT
LOGIC SECOND INTERRUPT MIGHT OCCUR
;WAIT FOR INTERRUPT,IF ANY

JDUE TO FAULTY LOGIC

165064

;RESTORE STACK PTR (FROM RKl1 INTRUPT)
; RESTORE STACK PTR (FROM WAT .INT)
;AN UNEXPECTED RKl1 INTERRUPT
;OCCUREo. THERE SHOULD HAVE BEE~I
;ONLY 1 INTERRUPT (TO 1$ A80VE)
; RESTORE VECTOR AoRES FOR
; UNEXPECTED RK 11 INTERRUPT,

RT!

4649
4550
4651
46::)2

CHECK THAT WITH IDE SET RK11
;*THIS TEST CHECKS THAT

4653
4654
4655

4656
4657
4658
4659
4660
4651
.:j662

0"14330
0"14332
014340

(sepl

; *THE SECOND

IS SET.

INTERRUPT

000004
012737
104413

000005

4700

4701
4702
4703
4704
4705
4706
4707
470B
4709
4710

RKll 8ASIC LOGIC TEST:1
21-FEB-78 08:51

MACY"
T36

BIT IS NOT SET. WHEREAS AFTER

ITERATIONS

30A(1D52)
21-FEB-78
08:58
PAGE 87
CHECK THAT WITH IDE SET RKl1 INTERRUPTS AFTER INTrATION /I COMPLETION OF 5
;THIS IS A VERY BASIC ERR& IF IT
; OCCURS GO BACK TO TEST 10

014342
014346
014354
014360

o i 3700

014362

01370~

014366
014372
014376
014404
014410

01272~

013777

004737
104026

001332
001350
021504

164764

MOV
MOV
uSR
ERROR

RKCS. RO
DRIVAD.@RKOA
PC. DRE5ET

MOV
MOV
MOV
BIS
MOV
WAT.INT

RKVEC, R1
'3$,(R1)+
'340, (R1 )
#40,@RKOA
#111 ,@lRO
,300

;AORES THE DRIVE
;Go, DO DRIVE RESET
;R/W/S RDY DIDN'T SET AFTER DOING

;ABOVE DRIVE RESET

012711
052777
012710
104420

001402
014432
000340
000040

2$:

164734

000111
000300

; SET UP VECTOR AORES FOR RK11
; SET UP PSW ON INTERRUPT
; ADRES

INTERUPT

CYLINDER #1

;SEEK, GO WITH

IDE SET

;~oJAIT

FOR THE DRIVE TO
; INTERRUPT AFTER ADRES WAS r:ECVD
;WAITING TIME= 1.4 MS FOR 11/20

;2BO US FOR 11/45
;ERRoR, IF INTERUPT 010 NOT OCCUR
:BY NmoJ

014414

014422
014426

012777
011037
104075

004600
001162

014432

000402
022626

014434

022626

014436
014444
014450
014452
014456

012777
001403
011037
104076

001162

014460

1044.20

056700

014430

0327~O

164750

3$:

014502
020000

164736

4$:

MOV
MOV
ERROR

.BAOINT ,@RKVEC
@RO,$REGO
75

BR
CMP

3$+4
(SP)+, (SP)+

CMP

(5P)+, (SP)+

MOV
BIT
BEQ
MOV
ERROR

#5$ ,@RKVEC
#20000,@RO
4$
@RO,$REGO
76

WAr.INT

56700

;RESTORE UNEXPECTED RK11 INTERRUPT
; GET RKCS
; INTERRUPT 01 D NOT OCCUR AFTER
;SEEK WAS INITIATED WITH IDE SET
;OK, IF RK11 INTERRUPTED TO THIS
;RESTORE 5TACK POINTER (FROM RK'1
; RESTORE STACK POINTER (FROM
;WAT. INT)
; SET UP NEW VECTOR ADRES

INTERRUPT)

FOR RK11

; IS SCP CLEAR
: YES, BRANCH
; GET RKC5
; SCP SET BEFORE SEEK TO LA5T
;CYLINOER "AS DONE

;WAIT FOR DRIVE TO INTERRUPT
;AFTER SEEK ViAS COMPLETED
;WAITING T1ME=180 MS FOR 11/20
; 36 MS FOR 11 /45

014464

012777

004600

014472

004737

021002

014476

104077

164710

MoV

#BADINT .@RKVEC

uSR
ERROR

PC, GT3RG
77

;IT'S AN ERROR IF BY THIS TIME
-; INTERRUPT HAS NOT OCCURERED
; GO GET RKCS,
;RK11

DID NOT

014500
01450:2

00040 1

014504

022626

014506

012777

004600

02' f')26

5$:

014514

032710

020000

014520
014522
014526

001003
011037
104053

001162

014530

017701

164572

164666

6$:

55+2

eMP

(SP)+, (SP)+

CMP

(SP)+, (SP)+

MOV

.BADINT ,@RKVEC

BI T
BNE
MOV
ERROR

#20000,@RO
6$
@>RO,$REGO
53

MoV

@RKoS,R1

ER,

INTERRUPT AFTER SEEK

; LAST CYLINDER)

4711

4712
4713
4714
4715
4716
4717
4718
4719
4720
4721
4722
4723
4724
4725

OCCURS AFTER

IT ALSO CHECKS THAT

;GO. DO CONTROL RESET
;THIS IS A CALL FOR THE 'CNTRL; RESET' ROUT I NE. A CONTRO L RESET IS
; ISSUED AND AFTER A CERTAIN TIME
;IF THE 'CNTRL RDy' DOES NOT SET

4671

4699

'SCP'

; ;00 5

001206

4670

4692
4693
4694
4695
4696
4697
4698

FROM RK11

;AN ERROR IS REPORTED. NOTE THAT
;THE PC IN ERROR MESSAGE IS THE
;PC WHERE 'CNT.RESET' IS LOCATED,

MD-11-CZRKKF,
CZRKKF.Pll

4690
469'

INTERRUPTS AFTER INTIATION 1\ COMPLETION Of

BIT SET. AND THEN A SECOND

;*AFTER THE FIRST INTERRUPT

4666
4667
4668
04669

4679
4680
4681
4682
4683
4684
4685
4636
4687
4688
4689

IIDE(

;*THIS TEST ALSO CHECKS A PART OF THE POLLING LOGIC.

4665

4672

INTERRUPT

;*INTERRUPT OCcuRS AFTER THE SEEK IS DONE.

4663
46G4

4673
4674
4675
4676
4677
4678

;*A SEEK IS INITIATED WITH

(TO

WAS DONE WITH rDE SET

OK, IF RK11 INTERUPTEO TO THIS AFTER
SEEK WAS COMPLETED. RESTORE
STACK r'';INTER (FROM RK11 INTERRUPT)
RESTORE STACK

POINTER

(FROM

WAT.INT)
RESTORE RK 11 INTERRUPT VECTOR AORES
FOR UNEX,'ECTEO INTERUTS
DID SCP BIT SET?
YES. BRANCH
GET RKCS

SCP DID NOT SET AFTER RK11
INDICATING SEEK WAS DONE
GET RKoS

INTERRUPTED

SEQ 0086

MO-"-CZRKKF. RKll BASIC LOGIC TEST 2
CZRKKF.P11
21-FEB-780B:51
042701

017777

014540

020137

001350

014544

001414

4726
4727
4728
4729

014534

4730

014546
014552
014556
014562

013746
004737
012637
010146
004737

001350
021200
001162

012637

001164

473,
4732
4733
4734
4735
4736
4737
4738
4739
4740
4741
4742
4743
4744
4745
4746
4747
4748
4749
4750
4751
4752
4753
4754
4755
4756
4757
4758
4759
4760
4761
4762
4763
4764
4765
4766
4767
4768
4769
4710
4771
4772
4773
4774
4775
4776
4777
4778
4779
4780
478'

014564
014570
014574

021200

104047

0146,2
014620
014626
014630
014636

012746

000340

012746
000002

0,4610

NI7777.Rl
Rl.DRIVf.,
7$

:MASK ~ON-IO 8ITS IN RKCS
; CORRECT 10 8ITS IN RKDS?
;YES. BRANCH

MOV
uSR
MOV
MOV
uSR
MOV
ERROR

DRIVAD.-(SP)
PC.SHFTRT
(SP)+,$REGO
Rl.-(SP)
PC.SHFTRT
(SP)+.$REGI
47

: PUSH DRV ACRES ON THE STACK
;GO. SHIFT RIGHT CRV •
: GET EXPCTD DRV •
: PUSH 10 BITS ON THE STACK
:GO SHIFT THEM RIGHT
: POP THE RECVD 10 8ITS
:WRONG 10 BITS WERE RECVD IN
: RKOS AFTER SEEK WAS DONE (INTRUPT
;MODE). 'EXPCT' INDICATES THE DRIVE
: # THAT SHOULD HAVE BEEN IN THE
: 10 BITS. 'RECVD' INDICATES THE
: DRIVE. THAT WAS RECVD IN THE 10 BITS

MOV
MOV

'340.-(SP)
664$.-(SP)

SEQ 0087

RT!
64$:

104413
013777
032777
001404

017737

eNT .RESET
MOV
DRIVAD. PRKDA
BIT
NI60000.PRKOS
BEQ
B$
MOV
PRKDS. SREGO
ERROR
50

164520

001350
160000

164500

164472

001162

104050

: GO DO CONTROL RESET
:ADRES THE DRIVE
: DID CNTRl RESET CLEAR DRIVE ID BITS?
:YES. BR'NCH
:GET RKDS
:CDNTROl RESET DIDN'T CLEAR THE
:DRIVE 10 BITS (13-15) IN RKDS

014640
0'4644
014646
014652

022710
001403
011037
104100

BS':

000200
001162

CMP
BEQ
MOV
ERROR

:WAS SCP BIT CLEARED BY CNTRl RESET?
;:YES, EXIT
: GET RKCS
:CNTRL RESET DID NOT CLEAR SCP BIT

'200.PRO
TST37
PRO.$REGO
100

; ; '" * •••• ok'" *' •••• ** ...... "'*. "' . . "' ' ••

*. *** "''''. "'*'" **.* "' . .

:$ '" '" '" "''''

** *"' ••• *** ••••

,-TEST 37
CHECK THAT WITH IDE SET RK11 INTERRUPTS WHEN READ IS DONE
: *THIS TEST CHECKS THAT WHEN A DATA TRANSFER FUNCTION IS DONE
:*WITH IDE BIT SET. RK11 INTERRUPTS WHEN THE FUNCTION IS COMPLETED
:.FUNCTION USED IN THIS TEST IS READ.

014654
014656

000004
104413

014660

104421

; ; ... *. $" "'* ...... *........ *** ••••• **."'* "' •• *.*** ••• "'* *** ** **.*** .**"' ••••

TST37:

014662
014666

014672
014676
014702
014706
014714
014718
014722
014726
014732
014738
014742

014746
014754

013700
013702
013704

013701
052701
012777
010112
012714
013705
012725

012715
01271 0
104420

001332
001340
001336
001350
000013
177600

4802

014762

000404

4803
4B04
4805
4806
4807
4808
4809
4810
4811
4812
4813
481.
48'5
4816
4817
4818
4619
4820
4821
4822
4823
4824
4825
4826
4827
4828
4829
4830
4831
4832
4833
4834
4835
4836
4837

014764

022626

014766
014770

022626
012777

004600

014776

004737

021342

015002

104036

062701

011237

004600
001162

164426

IS:
164404

4$:

000005
001162
001164

104040

015026

004737

015032

104041

015034
015034
015040
015044
015046
015046
015052
015054
015062
015066

164420

000340
000105
127710

012777
011037
104101

020112
001405
010137

MACY11 30A( 1052)
21-FEB-78
131
CHECK THAT WITH IDE

033342
001402
014764

014760

015004
0'5010
015012
015014
015020
015024

SCOPE
CNT • RESET

:GO. DO CONTROL RESET
; THIS I S A CAll FOR THE 'CNTRl: RESET , ROUTINE. A CONTROL RESET IS
: ISSUED AND AFTER A CERTAIN TIME
:IF THE 'CNTRl ROY' DOES NOT SET
: AN ERROR IS REPORTED. NOTE THAT
: THE PC IN ERROR MESSAGE IS [HE
:PC WHERE 'CNl.RESET' IS lOCATED.
:THIS IS A VERY BASIC ERR& IF IT
: OCCURS GO BACK TO TEST 10
:CHECK IF SIN IS SET. IF SE;
,DO DRIVE RESET TO CLEAR IT

TST-SIN

MD-Il-CZRKKF. RK11 BASIC lOGIC TEST 2
CZRKKF. PI'
21-FEB-7B oe'51
4782
4783
4784
4765
4766
4787
4788
4789
4790
4791
4792
4793
4794
4795
4196
4797
479B
4799
4800
4801

BIC
CMP
SEQ

75:

014576
014576
014602
0'4606
014610
0'4610

MACY11 30A(1052)
21-FEB-78' 08:58 PAGE 88
T36
CHECK THAT WiTH IDE SET RK11 INTERRUPTS AFTER INTIATION & COMPLETION OF S

2S:

021316

oe:58

UT RK11

MOV
MOV
MOV
MOV
BIS
MOV
MOV
Mev
MOV
MDV
MOV
MOV
WAT. INT

RKCS,RO
RKDA, R2
RKBA. R4
ORIVAO. Rl
#13.Rl
1-200. PRKWC
Rl.toR2
'OUTBUF .iIIR4
RKVEC. R5
#1$. (R5)+
#340,(R5)
#105.@RO
.127710

MOV
MOV
ERROR

'BADINT .PRKVEC
PRO.$REGO
101

BR
CMP

1$+10
(SP)+, (SP)+

CMP
MOV

(SP)+. (SP)+
#BADINT .PRKVEC

uSR

PC.CHKER

ERROR

ADD
CMP
BEQ
MOV
MOV
ERROR

'5,R1
RI.PR2
2$
Rl.SREGO
PR2.$REGI
40

uSR

PC.CHKWC

ERROR

MOV
MOV

#340.-(SP)
'64$.-(SP)

PAGE B9
INTERRUPTS WHEN READ IS DONE

:SET BITS FOR SEC 13
;READ 20;' (OCTAL WORDS)
,FROM THIS DISK ACRES (eVL O. SEC 131
: INTO THIS BUS AORES
: SET UP V~CTOR ADRES FOR RKll TO INTRUPT
: SET PSW ON INTERUPT
: READ. GO. IDE SET
:WAIT FOR RK11 TO INTERRUPT ON
: COMPLETION OF READ
;WAITING TIME- 337 MS FOR 11/20
:67 MS FOR 11/45
: RESTORE UNEXPCTED INTERRUPT VECTOR ADRES
:GET RKCS
:RKll 010 NOT INTERRUPT AFTER READ
:~IAS DONE. IOE BIT SET.
:OK. IF RK11 INTERRUPTED TO THIS
:RESTORE STACK POINTER (FROM RK11 INTERRUPT)
: RESTORE STACK POINTER (FROM WAT .INT)
: RESTORE UNEXPECTED RKll INTERRUPT
: VECTOR ADRES
;CHECK IF ANY BIT IN RKER IS SET.
: IF YES. RETURN HERE.
; RKER SET ON DOING READ FROM SEC O.
: CYl 13 IN INTERRUPT MODE
: RKDA SHOULD HAVE INCREMENTED TO THIS
;010 RKDA INCREMENT CORRECTLY?
: YES BRANCH
; GET EXPCTD RTDA
: GET RKDA RECVD
; RKDA INCREMENTED WRONG ON DOING
:A READ ON en 0, SEC 13
:CHECK THAT RKWC OVERFLOWED TO O.
: I F NOT RETURN HERE.
: RKIrIC DIDN'T OURFLO AFTER
; A READ OF 200 WORDS

3S:
012746
012746
000002

000340
015046

022714
001406
012737
011437
104042

033742

RTI
64$'
033742
001164

001162

CMP
BEQ
MOV
MOV
ERROR

NOUTBUF+400. li'R4 : DID RKBA INCREMENT CORRECTLY?
TST40
; : YES. EXIT
NOUTBUF+400. SREGO : GET ExpeT RKBA
PR4, SREGI
: GET RKBA RECVD
42
: RKBA DID NOT INCREMENT CORRECTLY
; AFTER A READ OF 200 WORDS

; ;* •• ****."' ••••••••••••••••• *••••••••• "' ••••••••••••••••••••••••••
;.TEST 40

CHECK THAT RKll

INTERRUPTS AT BR5 ONLY

SEQ ooaa

MD-t1-CZRKKF. RK" BASIC LOGIC TEST 2
CZRKKF.P11
21-FEB-7B OB:51

MACY11
T40

4840

4841
4B42

;.HAVE TO BE CHANGED ACCORDINGLY AND STILL TEXT WILL
;'CHECK FOR THIS 8R LEVEL.

4843
4844

; ; '" *'1"1>''''**''' *** ***************** ** * ** ****"'* * >I< '" * ** ** ** *"''''* '" 11< ****** $$

015070
015072

TST40:

000004
104413

SCOPE
CNT • RESET

;GO, DO CONTROL RESET

;THIS IS A CALL FOR THE 'CNTRL;RESET'

48Li9
4850
4851
4852

4853
4854
4855
4856
4B57
48SB
4859
4B60
4861
4862
4863

4864
4865
4866
4867
4868
4669
4870
4871
4872

4873
LiE?4
4875
4B76

4877
4878
4879

4880
4881
4882

4883
4884
4885
4886
4887
4888
4889
4890

015074
015076

015104
015110
015116
015122

015126

TST. SIN

104421
012737

015132

013700
013777

001332
001350
000007
000340
001400

012701
012702
013703

001110

164222

MOV

#1$.$LPi;ilR

MOV
MOV
MOV
MOV
MOV

RKCS. RO
DRIVAD.IlIRKDA
#7. Rl
#340,R2
RKPRI, R3

4901
4902
4903
4904
4905
4906

4907
4908
4909
4910
4911
4912
4913
4914
4915
4916

; PRIORITY LEVEL 7
; BR LEVEL 7 FOR PSW

;NOTE.

IF RK11

INTERRUPT LEVEL IS

; THEN CHANGE CONTENTS OF
;
015132
015136
015142
015146
015150
015154
015156
015156
015162
015166
015170
015172
015174

013704

012724
012714
010246

1$:

001402
015244
000340

012746
000002

015156

012710
012705
005205
001376
020203
003005

000100
177760

MOV
MOV
MOV
MOV
MOV
RTl

RKVEC. R4
#3$. (R4)+
#340. (R4)
R2,-(SP)
#45,-(SP)

MOV
MOV
INC
8NE
CMP
BGT

H100,@lRO
#-20, R5
R5

4$:

.-2
R2,R3

RKPRI I

; SET UP ADRES FOR RK11 TO INTERUPT
; SET UP PSW ON ItHERUPT
;SET PROCESSOR PRIORITY LEVEL AS

; INDICATED BY R2
;SET THE IDE BIT

;V/AIT FOR THE RK11

INTERRUPT

;WAITING TIME=7B US FOR 11/20
:13 US FOR 11/45
;WAS THE CPu PRIORITY LEVEL LESS THAN

;THE RK11

ACCORDINGLY

LEVEL?

IF YES.

; SHOULD HAVE INTERRUPTED.

RK11
ERROR,

;IF IT C.D NOT
015176

010137

015202
015206

011037
104103

01521 C
015212

005010

015216

005301
001344

062702

001162
001164

2$:
177740

MOV
MOV
ERROR

Rl,$REGO
<1'RO.$REGl
103

CLR
ADD

@RO
#-40, R2

;GET CPU BR LEVEL
; GET RKCS
; THOUGH CPU LEVEL WAS LESS THAN
;THE RK" LEVEL (5), RKl1 DID NDT
; INTERRUPT
; CLEAR RKCS
;DECREASE THE PRIORITY LEVEL (FOR

DEC
BNE

R1
1$

;CPU WILL B AT THIS LEVEL
; LUP SAK & CHK FOR THIS SR LEVEL.

;CPU) BY 1
015220

MD-11-CZRKKF,
CZRKKF.PI1
4B94
4895
4896
4897
4898
4899
4900

ROUTINE. A CONTROL RESET 1:;

; ISSUED AND AFTER A CERTAIN TIME
; I F THE 'CNTR L RDY' DOES NO- SET
:AN ERROR IS REPORTED. NOTE THAT
; THE PC IN ERROR MESSAGE IS THE
:PC WHERE 'eNT .RESET I IS LOCATED.
;T"IS IS A VERY BASIC ERR& IF IT
; OCCURS GO 8ACK TO TEST 10
;CHECK IF SIN IS SET, IF SET
; 00 DRIVE RESET TO CLEAR IT
;SET RETURN ADRES FOR LUPING
;ON ERROR (SW 9)

; CHANGED FROM 5 TO ANY OTHER LEVEL

4891

4892
4893

SEQ 00B9

;*THIS TEST CHECKS THAT RK11 CAN ITERRUPT AT BRS ONLY.
IF IT
;*INTERRUPTS AT A LEVEL HIGHER THAN BRS AN ERROR IS INDICATED.
;*IF IT DOES NOT INTERRUPT AT BRS OR LOWER THEN ALSO AN
;*ERROR IS INDICATED.
IF FOR SOME REASON THE INTERRUPT
;*LEVEL IS CHANGED FROM BR5. THEN CONTENTS OF RKPRI WILL

4838
4B39

4845
4846
4847
4848

30A(1052)
21-FEB-7B
OB:5B
PAGE 90
CHECK THAT RK11 INTERRUPTS AT BR5 ONLY

RK" BASIC LOGIC TEST 2
21-FEB-78 08:5'

015222

012777

004600

015230
015234

012746

000340
015242

a i 5240

012746
000002

015242
015242

000414

MACY"
T40

164152

30A(10S2)
21-FE8-78
08:5B
PAGE 91
CHECK THAT RKl1 INTERRUPTS AT BR5 ONLY

MOV

hBADINT. ~RKVEC

MOV
MOV
RTI

#340,-(SP)
#64$,-(SP)

SEQ 0090

; DONE I;ITH CHKING FOR ALL LEVELS.
;RESTORE UNEXPECTED RK" INTERRUPT
; VECTOR

64$:

015244
015246

022626

015254
015256

020203
003754

015260
015264
015270

010137
011037
104104

015272

000746

012777

3$:
004600

164126

00116.2
001164

TST41

; ; EXIT, TO NXT TST

CMP
MOV

(SP)+. (SP)+
#BADINT .@RKVEC

CMP
BlE

R2.R3
2$

MOV
MOV
ERROR

R1.5REGO
@RO.$REGI
104

; RESTORE STACK POINTER
; RESTORE UNEXPECTED RK11 INTERRl;PT
;VECTOR
;IF THIS INTERRUPT OCCURED WHEN
;CPU LEVEL WAS LESS THAN THE
;RK11 PRIORITY LEVEL (5) THEN IT IS
;OK.
IF NOT SO, ERROR
; GET CPU BR LEVEL
; GET RKCS
; RK11 INTERRUPTED "HEN THE CPU
; LEVEL (AS POINTED BY Rl) WAS
;HIGHER OR SAME AS THE RK11
;LEVEL (5)
; GO BACK & CHK THE NXT LEVEL

4917
4918
4919

;;.TEST
; '" ** '" *'"41*' '* '" *' * **SIMULATE
** '" '" * "" 0\< &'" *CHECK
* *' * * '" '* *"'
* '" ** '" *' *' '" '" * '" *' '* * *'" *'" '" 0\< '* *' ** * '" *' '" >1<$
'OVR' PROR

4920
4921
4922

;.THIS TEST SIMULATES OVERRUN ERROR AND CHECKS IF THE OVR
; >BIT IN RKER GETS SET.
THEN IT IS CLEARED USING c~rRl RESET
;*& CHECKED THAT IT WAS CLEARED.
OVR CONDITION IS SIMULATED
;'BY TRYING TO READ 401 (OCTAL) WORDS FROM LAST CYLlNOER(312).
;HAST SECTOR (13), SURFACE 1.

4923

4924
4925
4926

4927

>I<

>1< ..

015274
015276

; ; *' * *** * *,,. '" '" * '* *" '* *':$ >I< *>/1 * 1\::$:1< *:$ '" '" '" oj>: *" *' "'"' *' *" '" * >I< * * "'"' >I< >I< *' ** '" "' . . * I'/< * * *' * '" >1< .... ,. 0/1 "" '"

000004
104413

TST41:

SCOPE
CNT. RESET

492B

DO CONTROL RESET

; RESET' ROUTINE. A CONTROL RESET IS
; ISSUED AND AFTER A CERTA!N TIME

4930
4931
4932
4933
4934
4935
4935
4937
4938
4939
4940
4941
4942
4943
4944
4945
4946
4947
4948
4949

;GO,

;THIS IS A CALL FOR THE 'CNTRL-

4929

; IF THE 'CNTRl RDY'
; AN ERROR

DOES NOT SET

IS REPORTED.

NOTE THAT

;THE PC IN ERROR MESSA.GE IS THE
;PC WHERE tCNT.RESET' IS LOCATED.
; THIS IS A VERY BASIC ERR& IF IT
015300

104421

015302
015306

013"101
052701

001350
014533

015312
015320
015326

012777
012777
010177

177377
033342
164006

015332

012777

000005

015340

005002
105777

015342

MOV
BIS

DRIVAD, R1
#14533,R1

164014
164010

MOV
MOV
MOV

#-401,@RKWC
HOUTBUF .@RKBA
R1 ,@RKDA

163772

MOV

#5,!'RKCS

; OCCURS GO BACK TO TEST 10
:CHECK IF SIN IS SET. IF
; SET, DO DRIVE RESET TO CLR IT
;GET ADRES OF DRIVE
;SET BITS FOR LAST CYLINDER (312).
;SUR "
LAST SECTOR (13)
;READ 401 WORDS
; INTO THIS MEMORY BUFFER
; FROM THIS DSK ADRES. LAST en.
; LAST SEC. SURFACE 1
;READ, GO

CLR
Tsr8

R2
@RKCS

;D10 CNTRL ROY SET?

TST. SIN

163764

MD-l1-CZRKKF, RKl1 BASIC LOGIC TEST 2
CZRKKF.P11
21-FEB-78 09:51

4950
4951
4952

4953
4954
4955
4956
4957
4958

015346
015350
015352

MACY1,

30A('052)

T41

2,-FEB-78

SIMUlATE & CHECK

100410

005202
001373

08:5B

'OVR'

;YES.

8MI
INC
BNE

2$
R2
1$

MOV
JSR
ERROR

"RKWC, $REG2
PC ,GT2RG
2

BIT

#40000, IlORKER
3$
PC, GT2RG
#40000, $REG2
105

; eNTRl ROY TO SET BY NOW

015354
015362
015366

017737
004737

015370
015376
015400
015404
015412

032717
001006
004737
012731
104105

015414
015422
015424
015430

022777
001403
004737
104106

015432

104413

015434

004131

015440

104102

015442

004737

163754
021010

001166

040000

163732

~04002

021010
040000

001'66

140204

163710

2$:

BNE
JSR
MOV
ERROR

3$:

#140204,IlORKCS
4$
PC,GT2RG
106

CMP

BEQ
JSR
ERROR

021010

4$:

eNT ,RESET

497B
4979
4980
4981

4982
4983
4984
4985
4986
4987
4988
49B9
4990
4991
4992
4993
4994
4995
4996
4997
4998
4999
5000
5001
5002
5003
5004
5005

015446

104102

015450
015454

004737
104026

021356

5$:

021402

6$:

021504

• • >\< <i<

0'5455
015460

'* >I< II< '"

';5T42:

000004
104413

MD-"-CZRKKF, RK11 BASIC LOGIC TEST:1
CZRKKF.Pl1
2'-FEB-78 08:51

JSR

PC,CHKECLR

ERROR

102

JSR

PC,CHKCCLR

ERROR

102

JSR
ERROR

PC,ORESeT

015462

104421
013701
0'3777

001330
001350

015476

012777

002011

015504

104414

SIMULATE & CHECK PGE ERROR
i*THIS TEST SIMULATES 'PROGRAMMING ERROR' & CHECKS IF IT IS
:'OETECTEO BY PGE BIT IN RKER.
THEN A CNTRL RESET IS DONE 8.
;'IT IS CHECKED IF PGE BIT WAS CLEARED.
IT IS ALSO CHECKED IF
; .THE SETTING & CLEARING OF PGE BIT SETS & CLEARS HE, ERR
: 'SITS IN RKCS.
>I< lie '"

* '" ** * >I< >I<~ >Ie >1:". $ '" ** -t: $* ~ *' *'"
>II

>1<

SCOPE
CNT. RESET

015506
015512
015514
015522
015526

032711
JO 1 006
012137
004137
104105

015530
015536
015540
015544

022777
001403
004737
104106

015546

104413

TST.SIN

16364~

RKER,Rl
ORIVAD,i'RKOA

163626

MOV

#20",I!'RKC5

CNT. ROY

5023

5024

004000
021010

142210

8IT

1/4000,011'\1

BNE

1$
#4000,SREG2
PC ,GT2RG

MOV

001166

JSR
ERROR

163574

1$;

021010

lOS

CMP

#142210,IlORKCS

BEQ
JSR

ERROR

** >I< '" *

015550

004137
104102

PC,GT2RG
108

eNT • RESET

015556

004737

015562

104102

021356

021402

JSR

3$:

'* '" * >I' '* >I< "" ** *' '* >I<
>I<

>I<

01': '" $ 01:$

PAGE 93

SEQ 0092

:AORES THE DRIVE, CYLINDER
SEEK, GO WITH FMT SET
THIS IS A PGE SIMULATION
THIS IS A CALL FOR 'CN.ROY'
ROUTINE WHICH WAITS FOR CNT
ROY TO SET. IF CNTRL ROY ODES
NOT SET WITHIN 8B3 MS/ 11-20
(176 MS FOR 11-45 WITH BIPOLAR)
AN ERROR IS REPORTED
DID PGE BIT IN RKER SET?
YES, BRANCH
THIS BIT IN RKER (PGE) 010 NOT SET
GO GET RKCS, ER FOR MESAGE
PGE BIT DID NOT SET IN RKER
ON SIMULATION OF PGE CONDITION
$REG2 CONTAINS THE RKER BIT (POE)
THAT SHOULD HAVE SET.
DID HE & ERR BITS SEn
YES, BRANCH
GO, GET RKCS, ER
HE OR ERR BIT 010 NOT SET WHEN
POE SET IN RKER.
CLEAR PGE, HE, ERR BITS
GO, DO CONTROL RESET
THIS IS A CALL FOR THE 'CNTRLRESET' ROUTINE. A CONTROL RESET IS
ISSUED AND AFTER A CERTAIN TIME
I F THE I CNTR L RDY! DOES NOT SET
AN ERROR IS REPORTED. NOTE THAT
THE PC IN ERROR MESSAGE 15 THE
PC WHERE

015554

01< '" >I< >I<

:RESET' ROUTINE. A CONTROL RESET IS
; ISSUED AND AFTER A CERTAIN TIME
;1F THE ICNTRL ROyl DOES NOT SEi
:AN ERROR IS REPORTED. NOTE THAT
: THE PC I N ERROR MESSAGE IS THE
: PC WHERE 'CNT. RESET' IS LOCATED.
:THIS IS A VERY BASIC ERR& IF IT
; OCCURS GO BACK TO TEST. 10
;GO CHECK IF SIN IS SET, IF
; SET DO DRIVE RESET TO CLR IT

MOV
MOV

004000

>I< '"

; GO, DO CONTROL RESET
; THIS IS A CALL FOR THE 'CNTRL-

MACY11 30A(1052)
21-FEB-78 08:5B
T42
SIMULATE 8. CHECK PGE ERROR

5022
5025
5025
5027
502B
5029
5030
5031
5032
5033
5034
5035
5036
5037
503B
5039
5040
5041
5042
5043
5044
5045
5046
5047
5048
5049
5050
5051
5052
5053
5054
5055
5056
5057
5058
5059
5060
5061

; GET RKCS, ER
;THIS BIT (OVR) OlD NOT SET.
;OVR ERROR BIT DID NOT SET IN RKER
;ON SIMULATING OVR CONDITIONS
;DID HE & ERR SET WHEN OVR SET IN RKER?
; Y ES, BRANCH
; GET RKC5, ER
; HE OR ERR BIT DID NOT SET IN RKCS WHEN
:AN OVR ERROR WAS SIMULATED
; CLEAR OVER, ERR, HE BITS
; GO, DO CONTROL RESET
:THIS 15 A CALL FOR THE 'CNTRL: RESET' ROUTINE. A CONTROL RESET IS
; ISSUED AND AFTER A CERTAIN TIME
; I F THE 'CNTR L ROY' DOES NOT SET
;AN ERROR IS REPORTED, NOTE THAT
:TH' PC IN ERROR MESSAGE IS THE
jPC ·~~HERE 'eNT.RESET' IS LOCATEDo
:THIS IS A VERY BASIC ERR& IF IT
; OCCURS GO BACK TO TEST 10
;CHECK IF 'QVR' BIT WAS CLE':'REO BY
: CON. RESET, I F NOT RETURN HERE.
: CNTRL RESET DID NOT CLEAR OVR
; B!T IN RKER

;CHECK If 'ERR! & 'HE' BIT GOT CLEARED BY

5007

015464
015470

;GO, GET RKCS, ER
;CNTRL ROY DID NOT SET AFTER DOING
:AN DVR READ.
HE SHOULD HAVE OCCUREO
:SETTING CNTRL ROY (HE BECAUSE OF
:OVR CONDITIONS)
:010 OVR BIT SET IN RKER?

; CON. RESET. I F NOT RETURN HERE.
:CNTRL RESET DID NOT CLEAR
:HE OR ERR BIT IN RKCS.
;GO DO DRIVE RESET
: R/W/S ROY DIDN'T SET
; AFTER THE ABOVE DRIVE RESET

5006
500B
5009
5010
5011
5012
5013
5014
5015
5016
5011
5018
5019
5020
5021

SEQ 0091

BRANCH

;NO. WAIT FOR IT
; IF WAITED LONG. REPORT ERROR MESSAGE BECAuse
;OVR SHOULD HAVE SET HE CAUSING

.!laS9

4960
4961
4962
4963
4964
4965
4966
4967
4968
4969
4970
4971
4972
4973
4974
4975
4976
4977

PAGE 92

ERROR

PC,CHKECLR

ERROR

102

JSR

PC,CHKCCLR

ERROR

102

'eNT.RESET'

lOCATED~

THIS 15 A VERY BASIC ERR& IF IT
OCCURS GO BACK TO TEST 10
CHECK I: 'PGE' BIT GOT CLEARED By
CONTROL RESET, 1 F NOT RETURN HERE.
CNTRL RESET DID NOT CLEAR
PGE BIT IN RKER
CHECK IF 'ERR' BITGOT CLEARED BY
CON. RESET, I F NOT RETURN HERE.
RKCS BITS HE DR ERR DID NOT
GET CLEARED BY CNTRL RESET

MO-l'-CZRKKF. RKl1 BASIC lOGIC TEST 2
CZRKKF.P11
21-FEB-79 08:51

5062
5063
5064
5065
5066
5067
5068
5069
5070
5071
5072
5073
5074

5099

5100
5101
5102
5103
5104
5105
5106
5107
5108
5109
5110
5111
5112

30A(1052)
21-FEB-78
Oe;SB
SIMULATE & CHECK NXM ERROR

000004
104413

015570

104421

015572
015574
015600
015606
015614
015622
015626
015632
015634
015636
015640
015644
015652

005002
013700
012777
012777
013777
012710
105777
100410
005202
001373
004737
017737
104113

015654
015662
015664
015670
015676

032777

015700
015704
015706
015712

022710
001403
004737
104106

015714

104413

001332
177777
160000
001350
000067
163500

021010
163464

163526
163522
163516

* '"

001166

;A ..JRT CHK WITH A NXM LOCATION.

002000

163446

021010
002000

001166

2$:

8IT
BNE
JSR
MOV
ERROR

140266

3$:

CMP
BEQ
JSR
ERROR

021010

4$:

:THIS HE SHOULD HAVE SET THE
; CNTRl ROY BI T IN RKCS
:010 NXM BIT IN RKER SET?
: YES. BRANCH
; GO GET RKCS. RKER
;THIS BIT (NXM) DID NOT SET IN RKER
:NXM BIT DID NOT SET IN RKER ON
:SIMULATING NXM CONDITION.
;OID HE & ERR BIT SET?
: YES. BRANCH
; GO. GET RKCS. RKER
:HE OR ERR BIT DID NOT SET WHEN
:NXM ERROR WAS SIMULATED
: CLEAR NXM. HE. ERR 8ITS
;GD. DO CONTROL RESET
;THIS IS A CALL FOR THE ICNT~L
;RESET' ROUTINE. A CONTROL RESET IS
; ISSUED AND AFTER A CERTAIN TIME
;IF THE !CNTRL ROY! DOES NOT SET
:AN ERROR IS REPORTED. NOTE THAT
; THE PC I N ERROR MESSAGE IS THE

#2000.@RKER
3$
PC.GT2RG
#2000.$REG2
105
#140266.@RO

4$
PC.GT2RG
106

CNT. RESET

5113
5114
5115
5116
5117

;PC WHERE ICNT .RESET '

MO-l1-CZRKKF.
CZRKKF.Pl1
5118
5119
S120
5121
5122
5123
5124
5125
5126
5127
5128
S129
5130
5131
5132
5133
5134
5135
5136
5137
513B
5139
5140
5141
5142
5143
5144
5145
S146
5147
5148
5149
5150
S151
5152
5153
5154
5155
5156
5157
S1S8
51 S9
5160
S161
5'62
5163
5164
5165
5166
5167
5168
5169
5170
5171
5172
5173

seQ 0093

~ ~;i TE~R~~~,~~

001006
004737
012737
104105

PAGE 94

;*THIS TEST SIMULATES A NON-EXISTENT MEMORY ERROR (NXM) AND
;*CHECKS IF IT .:; DETECTED BY NXM BIT OR RKER.LOCATIDN 760000
;*15 REFERENCED & IT HAPPENS TO BE A NON EXISTENT LOCATION
:'(FOR DIAGNOSTIC PURPOSES LIKE THIS). IT IS ALSO CHECKED
:'IF HE & ERR BITS ALSO SET AND ALL 3 BITS CAN BE CLEARED
: * BY CONTROL RESET.
; ; * '* '" $ '* >I< * * "' ... '" '" ***$* "'*"$ *>1< >I< ** >I< "" '*,;: >I: * * * ... '" >I< "",. *- '" "" *' '" * ... >I< '" '" '" * ...... *' ..... >I< '" >I< >II
T5T43:
SCOPE
;GO. DO CONTROL RESET
CNT. RESET
;THIS 15 A CALL FOR THE 'CNTRL; RESET! ROUT I NE. A CONTRO L RESET IS
:I5SUED AND AFTER A CERTAIN TIME
; 1 F THE ! CNTR L ROY J DOES NOT SET
:AN ERROR IS REPORTED. NOTE THAT
; THE PC I N ERROR MESSAGE IS THE
; PC WHERE 'CNT. RESE T' IS LOCATED.
; THIS IS A VERY BASIC ERR& IF IT
; OCCURS GO BACK TO TEST 10
:GD CHECK IF SIN IS SET
TST. SIN
; I F SET DO DR I VE RESET TO CLR IT
ClR
R2
RKCS. RO
MOV
; 'IRITE CHECK 1 WORD
'-1.@RKWC
MOV
; AT THIS BUS AORES
# 160000.@lRKBA
MOV
;WITH THIS DISK AOREs (CYL O. SEC 0)
DRIVAO.@RKOA
MOV
; WRT CH". GO. MEX BITS SET
#67.@RO
MOV
;DlD CNTRl ROY SET AS A RESULT OF HE?
@RKCS
1$:
TST8
2$
BMI
ENOUGH?
INC
R2
; I F NOT LUP BAK & WAIT
1$
BNE
: GET RKC5. ER
PC.GT2RG
JSR
@RKWC.$REG2
: GET RKWC
MOV
: CNTRl ROY OlD NOT SET ON DOING
113
ERROR

"'"*

015564
015566

5075
5076
5077
5078

5079
5080
5081
5082
5083
5084
5085
5086
5087
50B8
5089
5090
5091
5092
5093
5094
5095
5096
5097
509B

MACYll
T43

RK11 BASIC lOGIC TEST 2
21-FES-78 08:51

015716

004737

015722

104102

015724

004737

015730

104102

015732

004737

015736

104016

MACY11
T43

021356

5$:

021402

6$:

021436

30A( 1052)
21-FEB-78
OB:58
SIMULATE & CHECK NXM ERROR

JSR

PC.CHKEClR

ERROR

102

JSR

PC. CHKCClR

ERROR

102

JSR

PC. TSTRWS

ERROR

LOCATEO~

PAGE 95
SEQ 0094

;THIS IS A VERY BASIC ERR& IF IT
:OCCURS GO BACK TO TEST 10
:CHECK IF 'NXM' BIT GOT C:lEARED BY
;CON.RESET. IF NOT RETURN HERE.
;eNTRl RESET DID NOT CLEAR
;NXM 811 IN RKER
;CHECK IF 'HE' & 'ERR' BITS GOT CLEARED
:8Y CON.RESET. IF NOT RETURN HERE.
: CNTRL RESET DID NOT CLEAR
:HE OR ERR BIT IN RKCS.
; GO CHECK J F R/W/S ROY IS SET &
;WAlT FOR IT.
SKIP ERROR IF IT IS SET
: R/W/S ROY IS NOT SET

; ; * *' >I< >IE '" >I< '" >I< * '" *** '" *' "'* "'* '" ** * >I< *' >I< *' >I< ** * '" '" >I< >I< '* >I< >I< * >I< '" * >I< * >I< *'"* >1<* *' ** ** *- >I< * >I< >I< >I< *" '" '"

:.TEST 44
SIMULATE & CHECK NXO ERROR
: *THIS TEST SIMULATES NON-EXISTENT DISK ERROR & CHECKS IF
;'IT IS DETECTED 8Y NXD BIT OF RKER.
I F ALL EIGHT ARE PRESENT
;*THEN THIS TEST IS ABORTED FOR SIMUlATION CANNOT BE DONE.

015740
015742

; ; '" ** >\< "'II' SCOPE
* '" *'* ** *"'** **' ***** *' * * * >I: * '* **

000004
104413

TST44:

>I<

>I< '"

CNT. RESET

015744

104421

015746
01 S752

013700
012702

001332
160000

MOV
MOV

RKCS. RO
#160000.R2

015756
015762

010277
104417

163356
000001

MOV
DELAY

R2.!i'RKDA

015763
015772
015'774

10S777
100004
062702

163334

T5TB
8PL
ADD

@lRKDS
2$
#-20000. R2

016000

001366

BNE

016002

000435

15T45

016004
016010

012710
104417

MOV
DELAY

#15.@lRO
.106

016014
016020
016022
016026
016034

10S777
001006
004737
012737
104105

TSTB
8NE
JSR
MOV
ERROR

@lRKER
3$
PC.GT2RG
N200.$REG2
105

TST .SIN

160000

2$:

000015
000106
163310
021010
000200

001166

•1

>I< 01<

>It '"

>I< '"

* '" ** ** *'" ** '" * >I< >I< >It * '" >I< '" *' >II*'

GO. 00 CONTROL RESET
THIS IS A CALL FOR THE 'CNTRLRESET' ROUTINE. A CONTROL RESET IS
ISSUED AND AFTER A CERTAIN TIME
I F THE! CNTRL ROY! DOES NOT SET
AN ERROR 15 REPORTED. NOTE THAT
THE PC IN ERROR MESSAGE IS THE
PC 'l'JHERE ! CNT. RESET' IS LOCATED~
THIS 15 A vERY BAS!C ERR& IF IT
OCCURS GO BACK TO TEST 10
CHECK IF SIN IS SET. IF SET
DO DRV RESET TO ClR IT
ADRES DRIVE 7 TO FIND
IF IT IS PRESENT
ADRE5 DRIVE' POINTEO TO BY R2
TIME DELAY. 7.5 us ON 11/20 •
1. 5 us ON 11 /4S
IS IT PRESENT?
NO. BRANCH
ADRE5 THE NXT DRIVE IN THE
REVERSE ORDER. I. E. 7.6 ••••
LUP SAK & TRY TO FIND A DRIVE
THAT! 5 NOT PRESENT
; EXIT TO THE NXT TST
DRIVE RESET. ON A NX DRIVE
TIME DELAY. 525 US ON 11/20
105 US ON 11 /45
DID NXD SIT IN RKER SET?
YES. BRANCH
GET RKCS. RKER
THIS BIT (NXD) IN RKER DID NOT SET
NXD BIT OlD NOT SET ON TRYING
TO PERFORM A FUNCTION ON A

MD-l1-CZRKKF, RK11 BASIC LOGIC TEST 2
CZRKKF. Pll
21-FEB-78 08:51
5174
5175
5176
5177
5176
5179
5180
5181
5182
5183
5184
5185
5186
5187
5188
5189
5190
5191
5192
5193
5194
5195
5196
5197
51ge
5199
5200
5201
5202
5203
5204
5205
5206
5207
5208
5209
5210
5211
5212
5213
5214
5215
5216
5217
5218
5219
5220
5221
5222
5223
5224
5225
5226
5227
5228
5229

016036
016042
016044
016050

022710
001403
004737
104106

016052

104413

016054

004737

016060
016062

3$:

140214
021010

ERROR
45:

021356

104102
004737

016066

104102

016070

004137

0'6074

104016

eM?
8EQ
~SR

55:

021402

021436

,,40214,.RO
4$
PC,GT2RG
106

CNT.RESET

~SR

PC, CHKECLR

ERROR

102

~SR

PC. CHKCCLR

ERROR

102

~SR

PC, TSTRWS

ERROR

PAGE 96

SEQ 0095

;NON-EXISTENT DRIVE
;CHECK THAT THE ~UMPER CARD CONTAINING
: ~UMPERS FOR ORIVES PRESENT IS PROPERLY
: CONNECTED
:NOTE THAT ON RK11C IF A DRIVE
; IS OFFLINE BUT PHYSICALLY PRESENT
: (lE. ORY IS CLR FOR THAT ORIVE)
; & A FUNCTION IS INITIATED ON THAT
:DRIVE NXD WON'T SET. BUT U WILL
:GET ONLY A DRE.HE & ERR.
; DIO HE & ERR SET WHEN NXD SEn
; YES BRANCH
:HE OR ERR BIT 010 NOT SET
;WHEN NXO WAS SIMULATEO
; CLEAR NXO. HE, ERR BITS
; GO, DO CONTROL RESET
;THIS IS A CALL FOR THE 'CNTRL;RESET' ROUTINE. A CONTROL RESET IS
: ISSUEO AND AFTER A CERTAIN TIMll
:IF THE 'CNTRL ROY' DOES NOT SET
;AN ERROR IS REPORTED. NOTE THAT
; THE PC IN ERROR MESSAGE IS THE
; PC WHERE 'CNT. RESET' IS LOCATED,
;THIS IS A VERY BASIC ERR& IF IT
; OCCURS GO BACK TO TEST 10
;CHECK IF 'NXD' BIT WAS CLEARED BY
;CON.RESET. IF NOT, RETURN HERE.
; CNTRL RESET 01 D NOT CLEAR
; NXD BIT IN RKER
: CHECK IF' HE' & 'ERR' BITS WERE CLEARED
;BY CON. RESET. IF NOT RETURN HERE.
:CNTRL RESET DID NOT CLEAR
;HE OR ERR BIT IN RKCS
;GO CHECK & WAIT FOR R/w/S ROY
; TO SET.
I F SET SKI P ERROR
; R/W/S SHOULD BE SET. IT' 5
:NOT

; ; * ••••• _"'*."' ••••••••••• * •• ****** "'. ** ** .............. 111$* . . . . . . . . . . . . .
:oTEST 45
SIMULATE & CHECK NXC ERROR
; *THIS TEST SIMULATES THE NON-EXISTENT CYLINDER ERROR & CHECKS
;oIF IT IS DETECTED BY THE NXC BIT OF RKER. HE & ERR 8ITS
;OOF RKCS.
IT IS CHECKED IF THEY CAN BE CLEARED BY CONTROL

i·RESET

;; •••• 1\11.***"' ••••••••••••••••••• ** ••••••••••••••• "'* ...... '"* ••••••••
016076
016100
016104
016112
016116
016122

000004
013700
012737
013702
052702
012737

016130

104413

TST45:
001332
177773
001350
014540
016130

001362

016132

004737

016136
016140

104016
104421

016142
016146
016152

010277
012710
104412

016,54

104021

016156
016164
015166

000100

016200

032777
001020
004737
017737
104110

021436

016172

016202

004737

016206
0'6210
016212
016216

104016
104413
004737
104026

016220
016224
016226
016232
016236

005237
001405
062702
032702
001334

016240
016244
015246
016252

032710
001003
004737
104106

016254

104413

2S:

SCOPE
MOV
MOV
MOV
BIS
MOV

3$:

CNT .RESET

001110

MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2
CZRKKF. PI I
21-FEB-7S 08:51
5230
5231
5232
5233
5234
5235
5236
5237
5238
5239
5240
5241
5242
5243
5244
5245
5246
5247
5248
5249
5250
5251
5252
5253
5254
5255
5256
5257
5258
5259
5260
5261
5262
5263
5264
5265
5266
5267
526B
5269
5270
5271
5272
5273
5274
5275
5276
5277
5278
5279
5280
5281
5282
5283
5284
5285

MACY11 30A(1052)
21-FEB-78 08:58
T44
SIMULATE & CHECK NXD ERROR

RKCS, RO
#-5,COUNT
DRIVAD,R2
#14540,R2
'3$,$LPERR

MACYll 30A(1052)
21-FEB-78 08;5B
T45
SIMULATE & CHECK NXC ERROR

~SR

021436

PC. TSTRWS

16
ERROR
TST.SIN
R2,.RKOA
MOV
MOV
N" •• RO
CHKCRDY

163172
000011

021010
163142

163144

:ALLOW 'ERROR 133' ONLY 5 TIMES
; GET ADRES OF OR I VE
;SET BITS FOR C¥L 313
; SET RETURN ADRES FOR
; LUPING ON EROR (SW9)
:GO. 00 CONTROL RESET
;THIS IS A CALL FOR THE 'CNTRL:RESET' ROUTINE. A CONTROL RESET IS
: ISSUED AND AFTER A CERTAIN TIME

9$:

001UI6

ERROR

BIT
BN!

6100,.RKER
4$

~SR

MOV

PC,GT2RG
.RKDA, SREG2

ERROR

110

~SR

PC,TSTRWS

ERROR

111

CNT • RESET
uSR
PC. DRESET
ERROR
26

021504

001362
000040
017740

4$:

140000

5$:

021010

65:

INC
BEQ
ADD
BIT
BNE

COUNT
5$
'40.R2
N17740.R2
3$

BIT

#140000,.RO

BNE
uSR
ERROR

6$
PC,GT2RG
10e

CNT .RESET

PAGE 97

;IF THE 'CNTRL ROY' DOES NOT SET
;AN ERROR IS REPORTED. NOTE THAT
; THE PC IN ERROR MESSAGE IS THE
: PC WHERE 'CNT. RESET' IS LOCATED.
;THIS IS A VERY BASIC ERR80 IF IT
: OCCURS GO BACK TO TEST 10
: GO CHECK & WAI T FOR R/W/S ROY
; TO SET. I F SET SKI P ERROR BELOW
; R/IIIIS RDY I S NOT SET
;CHECK IF SIN IS SET. IF SET
;00 DRIVE RESET TO CLR IT
;ADRES ORIVE. NXC CYLINDER
: SEEK. GO TO NXC cn
:GO CHECK IF CONTROL ROY IS SET
: IF SO. SKIP THE EROR MESSAGE.
;SEEK WAS TRIED TO A NON EXISTENT
; cnlNOER, NXC SHOULD HAVE OCCURED
;SETTING CNTRL ROY. BUT CNTRL ROY
;010 NOT SET.
: DID NXC SET?
; YES. BRANCH
: GO GET RKCS, ER
; GET RKOA
; NXC 01 D NOT SET WHEN SEEK
;WAS TRIEO TO CYLINDER AS INDICATED
; IN RKOA
;CHECK & WAIT FOR RN/S RDY,
; IF SET SKIP ERROR
; R/W/S SHOULD 8E SET
:GO CO CONTROL RESET
;GO CO DRIVE RESET
;NXC OlD NOT SET AND ORIVE MAY
:HAVE TRIED TO DO A SEEK. AFTER
:WHICH R/W/S ROY DID NOT SET
;ALLOW ONLY 5 MESSAGES FOR
: ERROR 133
:AORES THE NXT C¥LON NON-EXISTENT ZONE)
;CHKD FOR ALL NXC'S?
: I F NOT. LUP BAK & CHK THE NXT NXC
:DID HE & ERR BIT SET WHEN NXC BIT SET?
; VES. BRANCH
; GET RKCS. fR
;HE OR ERR BIT DID NOT SET IN RKCS
;WHEN NXC ERRDR WAS SIMULATED
:CLEAR HE. ERR. NXC BITS
: GO, DO CONTROL RESET
; THIS IS A CALL FOR THE 'CNTRL:RESET' ROUTINE. A CONTROL RESET IS
: ISSUED AND AFTER A CERTAIN HME
; I F THE 'CNTR L RDY' DOES NOT seT
:AN ERROR IS REPORTED. NOTE THAT
: THE PC IN ERROR MESSAGE IS THE
: PC WHERE 'CNT. RESET' IS LO(;ATED.
:THIS IS A VERY BASIC ERR& IF IT
; OCCURS GO BACK TO TEST 10

SEQ 0096

MO-"-CZRKKF, RK11 BASIC lOGIC TEST 2
CZRKKF.P11
21-FEB-780S:5'
5286
5287
5288
5289
5290
529,
5292
5293
5294
5295

0'6256

004737

0,6262

104102

016264
016270
016272
016276
0,6302

032710
001405
010037
01,037
104102

uSR

021356

7$:

140000

5326
5327
5328
5329

5330
5331
5332
5333
5334
5335
5336
5337
5338
5339
5340
5341

102

BIT

#140000 ,"'RO
TST46
RO, $REGO
@RO,$REG'
102

001162
001164

;NXC BIT IN RKER.
;010 HE & ERR BITS GET CLEARED?
; ;YES. EAIT
;GET ADRES OF RKCS
;GET RKCS CONTENTS
:CNTRl RESET DID NOT CLEAR
; HE OR ERR BIT IN RKCS

"'>I'll<

>I<

>t<>!<*$

*****'*** ** >I< *** *>1<

;>THIS TEST SIMULATES NON-EXISTENT SECTOR ERROR & CHECKS THAT
;.rr IS DETECTED BY NXS BIT OF RKER. IT IS CHECKED THAT
;.WHEN NXS SETS HE & ERR OF RKER ALSO SETS, AND ALL THREE
: 'CAN BE CLEARED BY CONTROL RESET.
016304
016306

000004
104413

0163,0
016314
0,6322
0'6330
016336
0,6344
0'6350

013700
013777
052777
012777
012777
012710

; ;*

>'/I >II '"

TST46:

*'*' SCOPE
'" '* ** '* '" * *'" ** *** "'** 'II'" >:< *
>I:

>I<

CNT.RESET

001332
001350
000014
177777
033342
000005

MOV
MOV
BIS
MOV
MOV
MOV
CNT. ROY

163016
163010
,62776
162772

104414

RKCS, RO
ORIVAD,i'RKDA
#14,@RKDA
#-l.i'RKWC
#OUTBUF ,@RKBA
#S,@RO

>I<

14< "';.;. >1<:1< >It '"

*' '* >I< ** >I< '* '" '" ** '" **** '" * >I< >1<;1\< '" * '*"*
>I<

;GO, DO CONTROL RESET
;THIS IS A CAll FOR THE 'CNTRl; RESET' ROUTINE. A CONTROL RESET IS
; ISSUED AND AFTER A CERTAIN TIME
; I F THE I CNTR L RDY I DOES NOT SET
: AN ERROR IS REPORTED. NOTE THAT
; THE PC IN ERROR MESSAGE IS THE
;PC WHERE 'CNT-RESET' IS lOCATED.
;THIS IS A VERY BASIC ERR& IF IT
; OCCURS GO BACK TO TEST 10
;GET ADRES OF DRIVE
;SET BITS FOR SECTOR 12 (DECIMAL)
; READ 1 WORD
; INTO THIS BUS ADRES
; READ. GO (FROM NX SECTOR)

;THIS IS A CALL FOR

'eN.ROY'

;ROUTINE WHICH WAITS FOR CNT
;RoY TO SET. IF CNTRl ROY DOES
;NOT SET WITHIN B83 MS/ 11-20
;(176 MS FOR 11-45 WITH BIPOLAR)
;AN ERROR IS REPORTED
;NXS ERROR SHOULD OCCUR NOW

016352
016356
016352
016364
016370
016376

017702
032702
001006
004737
012737
104105

162752
000040

016400
016404

042702
001407

000040

016406
0164,4
016422

012737
017737
104'07

000040
,62710

021010
000040

MOV

BIT
001166

0011 r ~
001164

RKl1 BASIC lOGIC TEST 2
21-FEB-7B 08:51

016424
016430
016432
016436

022710
001403
004737
104106

016440

104413

BNE
uSR
MOV
ERROR

@RKER,R2
#40. R2
1$
PC,GT2RG
#40.SREG2
105

BIC

#40,R2

BEQ

MOV
MOV
ERROR

#40, $REGO
i'RKER. SREGI
107

; DID NXS BIT SET IN RKER?
; YES. BRANCH
: GO GET RKCS, RKER
;THIS BIT (NXS) IN RKER DID NOT SET
; NXS BIT DID NOT SET ON SIMULATING
; NXS ERROR
; MASK NXS BIT
; CHECK I F ANY OTHER
; RKER BIT SET
: GET EXPCTD RKER
; GET RKER RECVD
;ONLY INXS ' SHOULD BE SET
; IN RKER, ANOTHER RKER BIT

MACY11 30A(1052)
21-FE6-78
08:5B
T46
SIMULATE II CHECK NXS ERROR

CMe
BEQ
JSR
ERROR

140204
021010

#140204,@RO

3$
PC.GT2RG
106

CNT. RESET

PAGE 99
SEQ 0098

;WAS SET. (NOTE 'NXS[ WAS
;SIMULATED)
;010 HE & ERR BITS SET7
;YES. BRANCH
; GO GET RKCS, RKER
;HE OR ERR BIT DID NOT SET ,jHEN
;NXS ERROR OCCUREO
; CLEAR NXS, HE, ERR BITS
;GO, DO CONTROL RESET
;THIS IS A CAll FOR THE 'CNTRL-

; RESET I

ROUTINE.

A CONTROL RESET IS

; ISSUED AND AFTER A CERTAIN TIME
;IF THE 'CNTRl ROY' DOES NOT SET
:AN ERROR IS REPORTED. NOTE THAT
: THE PC IN ERROR MESSAGE I S THE

;PC WHERE

5358
5359
5360
5361
5362
5363
5364
5365
5366
5367
5368
5369
5370
5371
5372
5373
5374
5375
5376
5377
5378
5379
5380
5381
5382
5383
5384
5385
5386
5387
5388
5389
5390
5391
5392
5393
5394
5395
5396
5397

SEQ 0097

;;
*****'" ******SIMULATE
**** "''''**' &"'***
'" ** ****** '" *"''''*'''
;*TEST 46
CHECK NXS ERROR

MD-l'-CZRKKF,
CZRKKF.Pl1
5342
5343
5344
5345
5346
5347
5348
5349
5350
5351
5352
5353
5354
5355
5356
5357

ERROR

PAGE 98

;CHECK IF 'NXC' BIT WAS CLEARED BY
;CON.RESET. IF NOT, RETURN HERE.
;CNTRl RESET DID NOT CLEAR

PC,CHKEClR

BEQ
MOV
MOV
ERROR

5296
5297
5298
5299
5300
5301
5302
5303
5304
5305
5306
5307
5309
5309
5310
5311
5312
5313
5314
53'5
5316
5317
5318
5319
5320
5321
5322
5323
5324
5325

MACY11 30A(1052)
21-FE8-78
09:58
T45
SIMULATE & CHECK NXC ERROR

016442

004737

016446

104102

016450

004737

016454

104102

021356

021402

4$:

JSR

PC,CHKEClR

ERROR

102

JSR

PC,CHKCCLR

ERROR

102

ICNT.RESET I IS LOCATED.

;THIS IS A VERY BASIC ERR& IF IT
: OCCURS GO BACK TO TEST 10
: CHECK I F I NXS 1 BIT WAS CLEARED BY
; CON. RESET. I F NOT, RETVEN HERE.
;CNTRl RESET DID NOT CLEAR
jNXS BIT IN RKER
; CHEeL I F I HE I & I ERR 1 8I TS WERE CLEARED
; BY CON. RESET. I F NOT, RETURN HERE.
; RKCS BITS ERR OR HE WERE NOT
;ClEAREO BY CNTRl RESET

SIMULATE & CHECK WCE
; -THIS TEST SIMULATES A \~RITE CHECK ERROR AND CHECKS THAT IT
;*IS DETECTED BY \~CE BIT OF RKER.
FOR COMPARISON IT USES
; *THE 256 WORDS OAT A BLOCK WR !TTEN ON SECTOR 0, CY LINDER 0
;*IN A PREVIOUS TEST.
THIS BLOCK IS COMPARED WITH THE 256 WORDS
; *MEMORY BUFFER STARTING AT 'OUTBUF'.
WCE IS SIMULATED BY
;'OROPPING A BIT FROM ONE OF THE WORDS IN THE MEMORY BUFFER.

016456
016460
016464

000004
013700
104413

; ; 11< $$$

TST47:
001332

*** ** '" "'* *" >I< '" '" "'** * *** $* ** * ** *' *' ** >I< **' ** '" >I< >I< >I< ** >I< * ** ** $** *' * '" >I< >I< *>I< **
SCOPE
MOV
RKCS,RO
CNT. RESET

GO, DO CONTROL RESET
THIS IS A CALL FOR THE I CNTRLRESET' ROUT INE. A CONTROL RESET IS
ISSUED AND AFTER A CERTAIN TIME
IF THE 'CNTRL RDY' ODES NOT SET
AN ERROR IS REPORTED. NOTE THAT

THE PC IN ERROR MESSAGE IS THE
PC WHER·: leNT.RESET ' IS LOCATEOo
016466

104421

016470
016474
016500

012701
012702
012703

033342
177400
177777

MDV
MOV
MOV

TST .S!N

#-400, R2

016504

062703

177401

ADD

#177401. R3

#DUTBUF, R1
#177777, R3

THIS IS A VERY BASIC ERR& IF IT
OCCURS GO BACK TO TEST 10
CHECK IF SIN IS SET, IF
SET DO D,<V-RESET TO ClR IT
THIS CODE SETS UP A MEMORY
BUFFER OF 256 WORDS STARTING
AT OUTBUF
FIRST WORD
177400
SECOND
177001

MD-l1-CZRKKF, RKl1 BASIC LOGIC TEST 2
CZRKKF.P11
21-FEB-78 oa:5~
5398
5399
5400
5401
5402
5403
5404
5405
5406
5407
5409
5409
5410
541,
5412
5413
5414

5415
5416
5417
5418
5419
5420
542'
5422
5423
5424
5425
5426
5427
5428
5429
5430
5431
5432
5433
5434

016512
016514

010321
005202
001373

01651S

012737

170007

0'6524

012777
0' 2777
013777
01271 0

'77400
033342
00' 350
000007

0' 651 0

016532
016540
016546

MOV

162602
162576
162672

Mov
MOV
MOV
MOV

#170007.0UTBUF+16; weE wI Ll B SIMULATED BY DROPPING A
; BIT IN THE EIGHTH WORD wHICH IS
; SUPPOSED TO B 174007
#-400,@RKWC
; wRT CHK 400 WORDS
#OUTBUF,!lRKBA
;STARTING AT THIS BUS AORES
DRIVAO.!lRKDA
;wITH THIS DISK ADRES. SEC 0, CYL
#7 .IIRO
; WRT CHK. GO

016552

104412

CHKCROY

104065

ERROR

016556
016564
0,6566
016572
016600

032777
001006
004737
012737
104'05

0'6602
016606
0'66'0
016614

022710
00,403
004737
104106

016616
016620

104413
004737

016624

104102

016626

004737

016632

104102

000001

162544

4$:

100206
021010

021402

016634
016635

MD-l'-CZRKKF, RK11 BASIC LOGIC TEST
CZRKKF. Pl1
21-FEB-76 OB;S1

5500
5501
5502
5603
5504
5505
5506
5507
5508
5509

CMP
SEQ
uSR
ERROR

pc.

GT2RG
#1,SREG2

105
#100206.I'RO

5$
PC,GT2RG
106

CNT. RESET
uSR
PC,CHKEClR
ERROR

102

6$:

uSR

PC.CHKCCLR

ERROR

102

;GO. GET RKCS. RKER
; THIS BIT (WCE) DID NOT SET
; WCE DID NOT SET ON SIMULATING
;WCE CONDITIONS
; IS RKCS CORRECT?
;YES. BRANCH
;GO. GET RKCS. RKER
;HE OR E~R BIT DID NOT SET WHEN
;WCE WAS SIMULATED
,CNTRl RESET
;WAS lWCE I BIT CLEARED?
; IF NOT. RETURN HERE.
; CNTRl RESET DID NOT CLEAR
;WCE BIT IN RKER
;CHECK IF I ERR 1 BIT WAS CLEARED. IF
;NOT RETURN HERE.
; CNTRL RESET DID NOT CLEAR
; RKCS

* >II"'.'"

000004
104413

5452
5453

5497
549B

#1,I'RKER

; GO CHECK I F CONTROL ROY IS SET
; IF SO. SKIP THE EROR MESSAGE.
; CNTRl ROY OlD NOT SET
; AFTER WRT CHK
;010 weE BIT SET?

; ; ""'" ****>1< ",*",***0;."'*'**"1< 0&:******* **' '"' '" ** '" *'** '" 11<.-11< ***'" "'''' >it'" ** >1<$>1:*:1< "''''* *>1< >1<$

5450

5499

BIT
BNE
uSR
MOV
ERROR

; LAST WORD
000377
;HAVE U GENERATED ALL 256 WORDS?
; IF NOT. LUP BAK & GENERATE NXT

;-TEST 50
CHECK THAT SSE STOPS ALL CONTROL ACTION ON SOFT ERROR
;*THIS TEST CHECKS THAT WHEN 'STOP ON SOFT ERROR' BIT IS SET IN
;*RKCS AND A SOFT ERROR IS ENCOUNTERED ALL CONTROL ACTION WIL~
;-STOP AT THE END OF THE CURRENT SECTOR IF IDE BIT IS CLEAR.
; 'SOFT ERROR IS SlMUlATED BY A weE AS IN THE PREVIOUS
; .TEST. THE PREVIOUS TEST & THE TEST WHICH WRITES DATA
;'BLOCK ON CYLINDER O. SECTOR O. SHOULD BE DONE PRIOR
;.TO THIS TEST. A TWO SECTOR 'WRT CHK' WlLl BE DONE.
;·CONTROI. ACTION SHOULD STOP AFTER THE FIRST SECTOR DURING
;'WHICH A SOFT ERROR IS SIMULATED.
: ; '" *,D\!l "'*$*", 1!r*>\IJ>ln~1!l$ $oIlol!*Htl$1$iil!lE>SI'$ ~$*:.l'*>I! *1$
**;(:! *,>li
*'* $0$>>1<>10 ol!*, $$$>11** >\Ill!
TsT50'
SCOPE
CNT. RESET
; GO. 00 CONTROL RESET
;THIS IS A CALL FOR THE 'CNTRL;RESET' ROUTINE. A CONTROL RESET IS
; ISSUED AND AFTER A CERTAIN TIME
; IF THE 'CNTRl RDY' DOES NOT SET
;AN ERROR IS REPORTED. NOTE THAT

545,

5496

55;
021356

5443

5462
5463
5464
5465
5466
5467
5468
5469
5470
547'
5472
5473
5474
5475
5476
5477
5478
5479
5480
5481
5482
5483
5404
5485
5486
5487
5488
5489
5490
5491
5492
5493
5494
5495

35;

001166

5444
5445

5461

SEQ 0099

033360

016554

021010
000001

PAGE 100

R3, (Rl)+
R2
1$

5435

5454
5455
5456
S457
5456
5459
5460

30A(1052)
21-FEB-7B' 08;58
SIMULATE &: CHECK weE
MOV
INC
8NE

5436
5437
543B
5439
5440
5441
5442

5446
5447
5449
5449

MACY11
T47

***'"

MACY11 30A (1052)
21-FEB-7B
OB: 58
PAGE 10'
T50
CHECK THAT SSE STOPS ALL CONTROL ACTION ON SOFT ERROR
; THE pe IN ERROR MESSAGE I S THE

; PC WHERE
TST.5IN

016640

104421

016642
016646

013700
012737

001332
170007

016654
016660
016666
016674
0'6700
016704

013701
012777
012777
010177
0' 27,0
104412

001350
177000
033342
162440
000407

016706

104065

016710

022777

000001

162412

016716
016720

000001
162376

001162
001164

016734

001407
0'2737
017737
104107

016736
016740

00520'
020177

016744
016746
016752
016760

001406
0' 0137
017737
104070

016726

152446
162442

2$'

3$:

001162
152362

001164

CNT. RESET I

IS LOCATED.

MOV
MOV

033360

162374

;THIS IS A VERY BASIC ERR& IF IT
;OCCURS GO BACK TO TEST 10
;CHECK IF SIN IS SET. IF
; SET DO ~RIVE RESET TO CLR IT

RKCS. RD
k170007.0UTBUF+16 ;WCE IS SIMULATED BY DROPPING A BIT
; IN THE EIGTH WORD (WHICH IS ACTUALLY
; 174007). NOTE THAT 256 WORD MEMORY
; BUFFER IS CREATED IN THE PREVIOUS TEST.
MDV
ORIVAD. Rl
#-1000.@lRKWC
;'JRT CHK 1000 (OCTAL) WORDS. 2 SECTORS
MOV
; FROM THIS BUS AORES
NOUTBUF .I!'RKBA
MOV
RT,@RKDA
;WITH THIS DISK ADRES. SEC D. cn
MOV
MOV
#407,@RO
;WRT CHK. GO. SSE
CHKCRQY
; GO CHECK I F CONTROL ROY IS SET
; IF SO. SKIP THE ERDR MESSAGE.
,CNTRl ROY DID NOT SET AFTER WRT
ERROR
65
;CHK. A SOFT ERROR (WeE) IN
; SECTOR 0 SHOULD HAVE STOPPED
;ALL CONTROL ACTION.
CM?
#l.I!'RKER
; CHECK ONLY 'WeE' BIT SHOULD
; BE SET?
; YES. BRANCH
BEQ
3$
#1,$REGO
; GET EXPCTD RKER
MDV
MOV
@RKER,$REGI
; GET RKER REeVD
107
;ONLV BIT 'weE' OF RKER
ERROR
; SHOULD BE SET (WeE WAS
;SIMUlATEO ABOVE).
ERROR
;IF IT'S NOT
INC
R1
;CHECK THAT RKDA INCREMENTED BY
;, SECTOR ONLY IMPLYING THAT
CM?
Rl,CORKDA
;CNTRL ACTION DID STOP AFTE .•
; SOFT ERROR I N SECTOR 0
BEQ
TST51
; ;YES. EXIT
Mav
Rl,SR.GO
; GET EXPCTD RKOA
MOV
; GET RKOA RECVD
@RKOA,SREGI
ERROR
70
; RKOA SHOULD HAVE INCRMNTD
;BY I SECTOR ONLY. IT DIDN'T.
;weE WAS SIMULATED IN THE
; FIRST SECTOR & A WRT CHK
;OF 2 SECTORS WAS ISSUED.
; CONTROLLER SHOULD STOP AFTER
;DETECTING weE IN THE FIRST
; SECTOR.
HENCE RKDA SHOULD
; INCREMENT BY I SECTOR ONLY

CHECK THAT RK11 INTERRUPTS ON 50FT ERROR WHEN SSE a IDE ARE SET
HHIS TEST CHECKS WHEN SSE BIT IS SET WITH IDE SET AND A 50FT
'ERROR OCCURS. THEN ALL CONTROL ACTION WILL STOP AND A BUS
.REQUEST (INTERRUPT) WILL OCCUR AT THE END Q, THE CURRENT
,SECTOR.
SOFT ERROR IS SIMULATED BY WCE AS IN PREVIOUS
'TEST.
PREREQUISITES FOR THIS TEST ARE THE SAME AS THOSE

SEQ 0100

MD-ll-CZRKKF. RKll BASIC LOGIC TEST 2
CZRKKF.Pll
21-FEB-78 08:51
5510
5511
5512
5513
5514
5515
5516
5517
5518
5519
5520
5521
5522
5523
5524
5525
5526
5527
5528
5529
5530
5531
5532
5533
5534
5535
5536
5537
5538
5539
5540
5541
5542
5543
5544
5545
5546
5547
5548
5549
5550
5551
5552
5553
5554
5555
5556
5557
5558
5559
5560
5561
5562
5563
5564
5565

; >FOR THE PREVIOUS TEST.

016762
016764

; ; '" "'*.fIII: •• '" "'.>11. "''''* * •• * '" .*"'.* *. '" ** >1<""

TST51:

000004
104413

SCOPE
CNT • RESET

.*. '" '" '" '"

016766

104421

016770

012737

170007

016776
017002
017010
017016
017022
017026
017032
017036
017044

013701
012777
012777
010177
013700
012720
012710
012777
104420

001350
177000
033342
162316
001402
017060
000340
000507
177777

017050
017054

004737
104111

021010

017056

000417

017060
017062
017064

022626
022626
012777

004600

017072
017074

005201
020177

162240

017100
017102
017106
017114

001406
010137
017737
104003

017116
017116
017122
017126
017130

012746
012746
000002

017130

'* ** '" * •••• '" '" '" '" '" 011.*

'eNT. RESET I

IS LOCATED.

:THIS IS A VERY BASIC ERRS IF IT
; OCCURS GO BACK TO TEST 10
;CHECK IF SIN IS SET. IF
TST .SIN
;SET DO DRIVE RESET TO CLR IT
6170007.0UT8UF+16 ;WCE IS SIMULATED 8Y DROPPING A BIT
MQV
:IN THE EIGHTH WORD (WHICH IS 174007)
;NOTE THAT THE 256 WORD MEMORY
;8UFFER (STARTING AT OUT8UF) IS
;CREATED IN A PREVIOUS TEST.
MOV
DRIVAD. Rl
MOV
H-l 000 .... RKWC
; WRT CHK 1000 (OCT A L) WORDS. 2 SECTORS
MOV
HOUTBUF .@RKBA
; FROM THIS 8US AORES
MOV
Rl.I'RKDA
;WITH THIS OISK ADRES. SEC O. CYL 0
MOV
RKVEC. RO
MOV
Hl$.(RO)+
; SET UP INTERRUPT VECTOR FOR RK11
MOV
H340.ii>RO
; SET PSW ON INTERRUPT
MOV
6507.@RKCS
;WRT CHK. GO. SSE. IOE SET
:WAIT FOR INTERRUPT FROM RK11
WAT. INT .177777
: TIME=4B5 MS FOR 11/20.
;97 MS FOR 11/45
JSR
PC.Gl2RG
: 11/05
ERROR
111
: RK11 DID NOT INTERRUPT AFTER A SOFT
;ERROR (SIMULATEO) IN SECTOR 0
BR
2$

033360

162324
162320

162266

IS:

001162
162226

OJ! "' . . . '" "' ..

SEQ 0101

;GO. DO CONTROL RESET
;THIS IS A CALL FOR THE 'CNTRL; RESET' ROUTINE. A CONTROL RESET IS
: ISSUED AND AFTER A CERTAIN TIME
i I F THE 'eNTRl ROY I DOES NOT SET
;AN ERROR IS REPORTED. NOTE THAT
: THE PC IN ERROR MESSAGE IS 'fHE
i PC WHERE

162310

001164

CMP
CMP
MOV

(SP)+. (SP)+
(SP)+. (SP)+
HBAOINT .ii>RKVEC

INC
CMP

Rl
Rl.I'RKDA

BEQ
MOV
MOV
ERROR

2S
Rl.SREGO
@RKDA.SREGI
3

MOV
MOV
RTI

#340.-(SP)
H64S.-(SP)

; RESTORE STACK POINTER (FROM RK11 INTRUPTl
: POP STACK (FROM WAT. INTl
; RESTORE RK11 INTERRUPT VECTOR
; ADRES FOR UNEXPECTED INTERRUPTS
;CHECK THAT RKOA INCREMENTEO
; BY ONLY 1 SECTOR BEFORE INTERRUPT
;OCCURRED
; GET EXF·. TO RKDA
; GET RKOA RECVD
; RKDA SHOULD HAVE INCREMENTED BY
;1 SECTOR ONLY. IF ALL eNTRL ACTION
: HAD STOP?ED AFTER SOFT ERROR
; (SIMULATED) IN SECTOR O. IT 010 NOT.

2$:
000340
017130
64$:

MO-ll-CZRKKF. RK11 BASIC LOGIC TEST 2
CZRKKF.Pl1
21-FEB-7B 08:51
5566
5567
556B
5569
5570
5571
5.572
5573
5574
5575
5576
5577
5578
5579
55BO
55Bl
55B2
5583
55B4
55B5
55B6
55B7
55BB
5589
5590
5591
5592
5593
5594
5595
5596
5597
559B
5599
5600
5601
5602
5603
5604
5605
5606
5607
5609
5609
5610
5611
5612
5613
5614
5615
5616
5617
5618
5619
5620
5621

MACY11 30A(1052)
21-FEB-7B 08:58 PAGE 102
T51
CHECK THAT RK11 INTERRUPTS ON SOFT ERROR WHEN SSE & IOE ARE SET

005077

MACY11 30A(1052)
21-FEB-78 08.58 PAGE 103
T51
CHECK THAT RKll INTERRUPTS ON SOFT ERROR ~HEN SSE & IDE ARE SET
CLR

162176

I'RKCS

:CLEAR THE IDE BIT

; ; ...... "''''. "'* *** ** '" '" '" 01< "'.* '" "''''''''''''' . . ** 01< >Ie ore ** ** ... '" ott. * '" '" '" '" '" ** "'*'" ",oil '" ***** '" '" '"

;*TEST 52
CHECK THE MEX BITS IN RKCS
; -THIS TEST CHECKS OUT THE EXTENDED MEMORY BITS OF THE RKCS.
;-THE RKBA IS SET TO 177776 AN~ A ONE WORO WRITE CHECK IS TRIED.
:*THIS COULD GIVE RISE TO NXM ERROR. BUT EVEN THEN THE RKBA
;-SHOULD OVERFLOW INTO THE MEX BITS. SIMILlARLY IT IS CHECKED
: -THAT THE OVERFLOWING 8IT CAN MAKE THE MEX BITS COUNT
;*01,10.11,00.

; ; '" *"'.*"'*SCOPE
* ** '" ** *** *"'* '" ....... *** *** ... '" ***. "''''*. '" '" *** ••••••••• ***.* .....

TSTS2:

017134
017136
017142
017146
017150

000004
013700
012701
005002
012737

017156
017162
017166
017170

104417
004737
104016
104413

017172
017174
017202
017210

010210
012777
013777
012777

177777
001350
177776

017216

052710

000007

017222

104412

017224
017226
017230
017234
017240
017242
017246
017250
017252
017256
017262

, 04065
010205
062705
042705
011004
042704
020504
001405
010537
010437
104112

MOV
MOV
CLR
MOV

001332
177774
017156

001110
1$:

000142
021436

162132
162130
162120

RKCS.RO
N-4.Rl
R2
61S.SLPERR

DELAY
.142
JSR
PC.TSTRWS
ERROR
16
CNT .RESET

MOV
MOV
MOV
MOV

R2.I'RO
#-I.I'RKWC
ORIVAO.ii>RKOA
#177776.ii>RKBA

SIS

n .•RO

CHKCROY

3$:
000020
000100
177717
001162
001164

ERROR
MOV
ADD
BIC
MOV
BIC
CMP
BEQ
MOV
MOV
ERROR

65
R2.R5
N20.RS

Hl00.R5
~RO.R4

#177717.R4
R5.R4
4$
R5.SREGO
R4.$REGI
112

SET UP THE COUNT
INITIALIZE MEX BITS TO B SET IN RKCS
SET RETURN AORES FOR
LUPING ON EROR (51119)
TIME DELAY
WAIT FOR R/W/S RDY
R/111/S ROY IS NOT SET
GO. DO CONTROL RESET
THIS IS A CALL FOR THE 'CNTRLRESET' ROUTINE. A CONTROL RESET IS
ISSUED AND AFTER A CERTAIN TIME
1 F THE • CNTRL ROY' DOES NOT SET
AN ERROR IS REPORTED. NOTE THAT
THE PC IN ERROR MESSAGE IS THE
PC WHERE 'CNT. RESET' IS LOCATED.
THIS IS ,\ VERY BASIC ERR& IF IT
OCCURS GO BACK TO TEST 10
SET MEX BITS (AS IN R2) IN RKCS
WRT CHK 1 WORD
THIS OISK AORES. SEC O. CYL 0
THIS BUS ADRES. NOTE THIS BA
IN CONJUCTION WITH MEX BITS OF RKCS
WRT CHK. GO
THERE MAY BE A NXM OR WCE BUT
WHATEVER THE CASE RKBA SHOULD
OVERFLOW MAKING THE MEX BITS COUNT
GO CHECK IF CONTROL ROY IS SET
IF SO. SKIP THE EROR MESSAGE.
CNTRL ROY DID NOT SET AFTER WRT CHK
MEX BITS SHOULD INCREMENT BY 1 TO THIS
MASK OUT IDE 8IT POSITION. IF SET
GET RKCS
MASK OUT ALL 8ITS EXCEPT MEX
DID MEX BITS INCREMENT CORRECTLY?
YES. BRANCH
GET EXPCTO MEX BITS
GET MEX BITS RECVO
MEX BITS 010 NOT INCREMENT AS
I

EXPCTD' WHEN RKBA OVERFLO'·'EO.

NOTE THAT BIT POSITION 4 & 5
REFLECT MEX BITS 0 & 1 IN THE

SEO 0102

MD-l1-CZRKKF, RKl1 BASIC LOGIC TEST 2
CZRKKF.Pl1
21-FEB-7B 08:51
5622
5623

5624
5625
5626
5627
5628
5629
5630
5631
5632
5633
5634
5635
5636
5637
5638
5639
5640

017264
017270
017272
017276
017300
017304
017310

017703
010305

162040

042703

003001

001410
042705
010537

017316

017737
104107

017320
017324
017326

062702
005201
0013'3

177776
001162
162014

4$:

001164

5$:

000020

5664
5665
5666
5667
5668
5669
5670
5671

MOV
MOV
BIC
BEQ
BIC
MOV
MOV
ERROR

@>RKER.R3
R3,R5
#300' ,R3
5$
#,77776,R5
R5,$REGO
@RKER,$REGl
107

AOD
INC
BNE

#20,R2
R1
1$

>I<

*' * * '*

017330
017332

012137

000004
000001

001206

017340
017345
017352

012737
005737
012737

017362
177700
004534

000004

017360
017362
017364
017372

000520
004534
000340
0'7404

000004

022626
012737
012746
012746
000002

017376
0'7402
017404
017404
0174'

OD0004

011412

0'2701

033342

5678
5679
5680

017416
017422
017426

5681

0'17434-

5689
5691
5692
5693
5694
5695
5696
5697
5698
5699
5700
5701
5702
5703
5704
5705
5706
5707
5708
5709
5710
5711
5712
57, 3

MOV
RKCS,RO
CNT, RESET

Mav

BASIC LOGIC TEST 2
2'-FE8-78 08:5,

5725
5726
5727
5728
5729
5730
5731
5732
5733

8 I TS

:THIS IS THE EXPCTD RKER
; GET RKER RECVO
; ERROR IN RKER.
IT SHOU LO
; BE AS EXPECTED IN
; ERROR MESSAGE
; INCREMENT TO NXT MEX BIT
; HAVE U CHKD THE MEX BlTS 4 TIMES?
; IF NOT, LUP BACK

013704
012711
012777
013702

001336
000100
177777

017440

052702

000002
161670

017452
017456
017460
0,7462
017464
017465
017470
017474
017500
017502

010277
0'101 t 4
012710
005003
105710
100410
005203
001374
004737
010237
, 04416
104031

017504
017512
017516
017522

012777
010277
013714
005077

017526
017534
017536
017540
017542
017544
017550
017554
017556

0' 271 0
005003
1057' 0
100410
005203
00 i 374
004737
010237
104416
104045

0'7560

032737

017566
017570
0'7574
017600
01760'
011610
017614
017620

001015
0'7705
0' 0537
052705
010537
011437

o~ 1444
o~ 7450

017532

>I<

* '" *' **

MOV
MOV
MDV
MOV

161700

001350

BIS
MOV
MQV
MDV
CLR

000003

T5TB
8MI
INC
aNE
020774

JSR

001202

MOV

011037
1041Hi

r,OUTBUF, Rl

16'622

2$:

001144
161416
000065

020774
001202

000'00

161350
001164

000100
001162
001166

001170

001144

45:

PAGE 105

. , OO,@Rl
#-1.@RKWC
DRIVAD, R2

; WRITE THIS WORD
; WRITE 1 WORD

'2, R2

ION CYL 0, SEC 2

R2,@RKDA
Rl,@R4
#3,IIIRO

; FROM THIS MEMORY LOC

;WRlTE, GO

R3
@RO
2$
R3
1$
PC,GT4RG
R2,$REG10

ERROR

MOV
MQV
MOV
ClR

,!'RKWC
R2,fJ>RKDA
STKS,@R4
@$TKS

MOV
CLR
TST8
BMI
INC
BNE
JSR
MOV
BRKOM
ERROR

H65,",RO
R3
@RO

BIT

#100, $TKo

N-'

; GET RKCS, ER, os
;GET THE STARTING ADRES
;BREAK IT INTO DRV N, CYL, SUR, SEC
; eNTRL ROY DID NOT SET AFTER
;WRITE OF 1 WORD ON CYl D, SEC 2
; READ 1 \;ORD
; FROM SEC 2, CYl 0
; INTO TTY STAUS REGISHR
;CLEAR TTY KEY BRD STATUS REG
; READ, MEX BITS SET

4$
R3
3$

PC,GT4RG
R2 ,SREG1 0

; GET THE STARTING ADRE:;
; BREAK IT INTO DR#, eYL, SUR, SECN
;CNTRL RDY DIDN'T SET AFTER
;READ OF 1 I;ORD FROM cn 0, SEC 2.
; IN EROR MSGE, <OSK-AORES> GIVES
; ADRES ltJHERE READ BEGAN. ! RKDA I
;GIVES CONTENTS OF RKDA AT TIME OF ERDR
; WAS THE CORRECT ,lORD READ INTO

;THE TTY
BNE
MOV
MOV
SIS
MOV
MOV
MOV
ERROR

SEQ 0104

RKSA, R4

SRKDA4
'77777
161622

MACY11 30A( 1052)
21-FE8-78
08:58
T53
TRANSFER FROM DISK TO TTY

57'4
5715
57' 6
5717
571 B
57'9
5720
5721
5722
5723
5724

NOt~-WCE

RT!
001332

CZRKKF.Pli

5690

; MASK

64$:
013700
1044'3

MD-' 1-ClRKKF, RK"

56B4
5685
56B6
5687
5688

IF SET

; BRANCH I F REST OF RKER CLR

5674
5675
5676

56B2

;MASK >lCE,DU ,NXM BIT,

>I<

56'12

5683

SEQ 0103

: ERROR MESSAGE.
; GET RKER

; ' THIS TEST CHECKS THE HIGn ORDER BITS OF THE ADDRESS
; ' LINES.
FIRST A ONE WORD (100) IS WRITTEN on SECTOR,
;* 2, eYL O.
THEN IT IS READ BACK, BUT THE NPR IS DONE
; ' NOT TO THE MEMORY, BUT THE TELETYPE BUFFER (TKS 117560)
; ' AND IT CHECKED THAT THE WORD WAS RECIEVED CDRRECTLY,
;'iF IT IS NOT, AN ERROR IS REPORTED. THIS TEST IS
:-SKIPPED ON AN 11/05.
; ; 4> $* '/I!~* '"
$'
>I< >!<:/I ** ~ >II r.il'l/l <$I $ '" or. !II $>1: >I< *
>/I >1= >:< '" * 0\: >I< * '"
>1<* I\i '" ** >I< '" '" >I<""j>; Ill! *
T5T53:
SCOPE
; iDO 1 ITERATION
MDV
#l,5TlMES
; THIS CD,DE F I NOS OUT I F THE CPU
;IS AN 11/05 OR ELSE.
: ON AN "/05, RO r 1 77700) CAN BE
; ADDRESSED AS A MEMORY LoeA nON, BUT
; ON ANY OTHER CPU IF 177700 IS REF,RENCEO
;A TIME OUT wILL OCCUR.
#5$ ,ill#4
; SET UP TIME OUT VECTOR
MOV
TST
; REFERENCE RO
fJ>#'77700
• 8AOTMO ,@#4
; RO ,lAS REFERENCED W/D TIMEOUT
MOV
; HENCE 11/05
TST54
; ;SKIP THIS TEST
SR
(SP)+,ISP)+
: RESTORE STACK POINTER
CMP
55'
NBADTMO,@N4
; RESTORE TIMEOUT VECTOR
MOV
MOV
N340,-ISP)
MDV
N64$,-I~P)

5673

5677

PAGE 104

;;.TEST
•*'*******
**********
***'** **** *-** """'>Ill\< ***** "'**** *rJ< '" **"'******** "'*
S3
TRANSFER FROM DISK TO TTY

5641
5642
5643
5644
5645
5646
5647
564B
5649
5650
5651
5652
5653
5654
5655
5656
5657
5658
5659
5660
5661
5662
5663

"ACYll 30A(1052)
21-FEB-7B
08:5B
T52
CHECK THE MEX BITS IN RKCS

T5154
@$TKS,R5
R5,$REGl
"IOO,RS

R5. $REGO
@R4,$REG2
@RO,$REG3
115

STATUS REGISTER?

; ;YE5, EXIT
; GET THE WORD RECVD FROM DISK
; THIS 'lORD WAS EXPCTD
; STORE EXPCTD WORD
; GET RK8A
; GET RKC:..
;DATA ERROR. A ONE WORD (100)
;NPR WAS TRIED FROM DISK TO
;TTY KEYBOARD STATUS REGISTER
; (17756)
BIT 6 SHOULD HAVE BEEN
, SEl' AS RESULT OF THIS
; BUT IT WAS NOT

MD-l1-CZRKKF, RK11 8ASIC LOGIC TEST 2
GlRKKF.P11
21-FEB-78 08:51

MACY11 30A(1052)
21-FE8-78
08;58
~AGE 106
T54
CHECK THAT RK8A CAN COUNT CORRECTLY

5734
5735
5736
5737
5738
5739
5740
5741
5742
5743
5744
5745
5746
5747
5748
5749
5750
5751
5752
5753
5754
5755
5756
5757
5758
5759
5760
5761
5762
5763
5764
5765
5766
5767
5768
5769
5770
5771
5772
5773
5774
5775
5776
5777
5778
5779
5780
5781
5782
5783
5784
5785
5786
5787
5788
5789

5801

;*NO MEMORY PRESENT (FOR CERTAIN BUS ADDRESSES),
THERE
;*WILL BE AN NXM ERROR STOPPING CONTROLLER ACTION. BUT RK8A
; -SHOULD HAVE INCREMENTED BY 1 FROM ITS INITIAL VALUE. IF IT

;*HAS NOT, AN ERROR IS REPORTED.

; : *****~** ***** ****** ****** ""*>\1 *** .. ***>1<* ***>\< *** ***** ****,*$**** "''''>11*

TST54:

017622
017624
017632
017634
017636

000004
012737
005001
012702

000002

017642

012737

017654

017650
017654
017660
017662
017664
017672
017674
017702
017710

013705
004737
104016
104413
012777
010115
013777
012777
104412

001336
021436

017712

104065

017714
C 17720

005237
001417

017722

020215

017724
017726
017732
017736

001410
010137
011537
104017

017740
017744

005237
001405
060201
0'10102

001360

062702
001336

000002

017746

017750
017752

017756

000005

001206

104421

177777

161442

001350
000067

161436
161422

001356

3$:

001162
001164

4$:

;OlD RKBA INCREMENT BY 1 FROM

CMP

R2,@R5

SEQ
MOV
MDV
ERROR

4$
R1,$REGO
@R5,$REGl
17

INC
BEQ
ADD
MOV
ADD
BNE

INOX2
5$
R2,R1
Rl,R2
#2,R2
1$

;IT5 INITIAL VALUE?
; YES. BRANCH
; GET EXPCTD RKBA
; GET RKBA RECVD
; RKBA DID NOT INCREMENT BY
;1 FROM ITS INITIAL VALUE.
; ONE WORD ;JPT CHK WAS TR I EO
;TO A NXM LOCATION. THERE
;WILL BE AN NXM ERROR.
;BUT STILL RKBA SHOULD
: INCREMENT BY 1 FROM ITS
: INITIAL VALUE.
: ALLOW ONLY 5 ERRORS OF
; THE ABOVE KIND
; SET NXT VALUE OF RKBA
;SET EXPCTO VALUE OF RKBA
; ALL DONE?
:DUMMY EXIT POINT

5$:

MACY11
T54

30A(1052)
21-FEB-78
OB;58
PAGE 107
CHECK THAT RKBA CAN COUNT CORRECT L Y

; .TEST 55

SEQ 0106

CHECK FOR RK-05F

; "THIS TEST CHECKS RK-05F TYPE DRIVES
;*TO INSURE THAT IF SEEKS ARE ISSUED ON ONE
; *DRIVE, THE OTHER DRIVE BECOMES BUSY
017760
017762
017770

017774
017776

5804

020004

000004
012737
005737
001403
004537
104120

000001
001404

#1,$TIMES
FFLAG
1$
RS, FCHECK
120

001206

025160

:;001 ITERATION
;SEE IF RI;-05F
;NOT F
: SEE I F OTHER GOES BUSY

1$:

56
:.THIS IS NOT A TEST, BUT A LINKAGE PROVIDED TO PERFORM
; *THE ABOVE SUB-TESTS FOR ALL DRIVES THAT ARE PRESENT.
; *NOTE THAT THE NEXT TEST- HARDWARE POLLING LOGIC:*IS DONE USING ALL THE DRIVES THAT ARE INDICATED PRESENT.
;*00 NOT LOOP ON THIS ITEST i •

5810

5811
5812
5613

5825
5826
5827
5828

;SET RETURN AORES FOR LUPING
: ON EROR

# 1 $, $ LPERR

MOV
RKBA, R5
:WAlT FOR R/W/S ROV
JSR
PC, TSTRWS
; R/W/S ROY IS NOT SET
ERROR
16
; DO CONTROL RESET
CNT .RESET
;WRITE CHK 1 WORD
MOV
#-1,@RKWC
MOV
R1,li'R5: THIS BuS ADRES
;SET DISK AORES
MOV
DRIVAO,I!>RKOA
;WRITE CHECK, GO, MEX BITS SET
MOV
#67,@RKCS
;GO CHEC" IF CONTROL RDY IS SET
CHKCRDV
;IF SO, SKIP THE EROR MESSAGE.
; CNTRL ROY DJ D NOT SET AFTE~
ERROR
65
:WRT CHK wAS TRIED TO NXM LOC
; U MIGHT \;ANT TO USE TESTS
:CHECKING MEX BITS & NXM.
;ALLOW ONLY 5 ERRORS OF ABOVE KIND
INC
INOXl
SEQ
5$

5805
5806
5807
5808
5809

5820
5821
5822
5823
5824

; ;00 5 ITERATIONS
: CHECK IF SIN SET, I F seT ORV RESET
; INITIALIZE (VALUE OF RKBA)
: INITIALIZE (INCMNTD VALUE OF RKBA)

; ; * "'* ** ** * **** .. ** ****** ** ""* *** **:1< ***'*** ** If.", >I< * *'" * >\< *"'****1\<*** ****'**'

020002

5814

SCOPE
#5,$TIMES
MOV
TST • SIN
R1
CLR
#2,R2
MOV
MOV

001110

017760

5802
5803

5815
5816
5817
5818
5819

IT IS SET

;*TO THE DESIRE:' INITIAL vALUE.
THEN A ONE WORD WRITE CHECK
;*15 TRIED. WITH MEX (MEr,mRY EXTENSION) BITS SET. IF THERE IS

MD-l1-CZRKKF, RKll BASIC LOGIC TEST 2
CZRKKF • P 11
21-F EB-78 08: 51
5790
5791
5792
5793
5794
5795
5796
5797
5798
5799
5800

SEQ 0105

; .THI5 TEST CHECK5 THAT RK8A CAN COUNT CORRECTLY.

020004
020006
020014

012737

020020
020024
020026

004737
104026
023737

020034
020036
020044
020050

; ; *' "'** *' >I< *' .. * '" '" '" *' *' ** ** *' *'
>4<

TST56:

000004
005237

000001
001352

001206

021504
001412

001352

001405
062737
000137

020000
005040

001350

005037

001112

BTEOP:

1$:

>I<

>4< >j: >I<

** ** * >I< '" >I< *' *'" >I< * *' * *' *' *' '" >I< >I< '" ** *' ** '" ** '" * ** ** *'*

SCOPE
MOV
INC

#l,$TIMES
ORVOON

JSR
ERROR
CMP

PC,ORESH
26
ORIVS, DRVDDN

SEQ
ADD
JMP

1$
#20000.DRIVAD
NUDRV

CLR

$ERTTl

; ;00 1 ITERATION
; INCREMENT THE COUNT FOR THE NUMBER
;OF DRIVES THAT ARE CHECKED
;RESET THE DRIVE
:R/W/S DIDN'T SET AFTER DRIVE RESET
: HAVE U TESTED ALL THE DRIVES
;THAT ARE PRESENT?
;IF YES, EXIT
; AORES THE NXI POSSIBLE DRl"!E
; GO 8ACK AND TEST THE NEXT
: DRIVE PRESENT

5929

5830
5831
5832
5833
5834
5835
5836
5B37
5838
5839

57
;*THIS TEST CHECKS THE HARDWARE POLL LOGIC. USING ALL THE DRIVES
;*PRESENT ON THE RK11.
ATLEAST TWO DRIVES SHOULD BE PRESENT
; *TO DO A MEANINGFUL HARDWARE POLL.
SEQUENCE OF OPERATIONS IS
; "'AS FOLLOWING:
;>i"1) NUMBER OF DRIVES ON THE RK11 IS ASCERTAINED.
;*2) HAVING LOCKED OUT ALL INTERRUPTS (CPU PR 7), SEEK IS INITIATED
;*FOR ONE DRIVE AT A TIME. ONLY WHEN 'CNTRL ROY' IS SET.
;*3) CPU PRIORITY IS DRDPPED TO 4 SO THAT RKl1 CAN INTERRUPT, THE INCOMING
;*INTERRUPT IS PROCESSED TO CHECK IF IT WAS DUE TO 'SEEK DONE' BY

5840

;*ONE OF THE DRIVES.

5841
5842
5843

5844
5845

0.20054

000004

;*4) IF BY THE END OF THE SET TIME A DRIVE HAS NOT INTERRUPTED
;*AN ERROR MESSAGE IS GIVEN INDICATING WHICH DRIVE DID NOT
: *INTERRUPT AFTER SEEK WAS DONE.
; ; *' >It >t< ** '" * '" *' *.,. '* '" *' 1$< >4< * '* *' * '" *' 16< I/< '" * * II< * 11:$ * >!< $: .\,,1< '*' * II< 111 '" '"
**.'* 1\1 *' *$ II< $1*
TSTS7:
SCD~E

*' '" *' "'.

*'" '"

* ""

~D-ll-CZRKKF,

RK11

CZRKKF.P11

21-FEB-78 08:5,

5846
5847

5848
5849
5850
585,
5852
5853
5B54
5855
5856
5857
5858
5859
5860
5861
5862
5863
5864
5865
5666
5867
5868
5869
5870
5871

020056
020064
020070
020072
020076
020102
020106
02011 0

BASIC LOGIC TEST 2

012737
005237

000005
001440
025304
001436
001414

020134

020140
020144

005737
001002

020146

020152
020156
020162

000137
005237
013700
005037

020652
001434
001332
001356

5872

020166

005037

001360

5873
5874
5875
5876

020172

104413

020116
020120
020122
020124
020126
020132

001206

00,002
004737
005037
012700
005710
00140'5
005237
005710
100001
005720
005720
020027
002765
005037

020112

MACY1130A(1052)
21-FEB-7B
08:58
PAGE 108
T57
CHECK HARDWARE POLLING LOGIC

25$'

23$:
001436

001433
001406
001412

T5S:

20$'

15$:

5877
5878

5879

MOV
INC
BNE
JSR
CLR
MOV
TST
SEQ
INC
TST
BP L
TST
TST
CMP
BLT
CLR
TST
BNE
JMP
INC
MOV
CLR

#5, STIMES
SIZYET
25$
PC,SIZEF
PHYDRV
HDRIVO,RO
(RO)

; I F THE

020174
020200
020202
020204
020206
020212
020216

020222

005737
00,002
005002
000402
012702
012701
012703
012705
005025
005203

000200
001414
177170
033342

001375
01~1703

020240
020244
020244
020250

5902
5903

020254

5904

020256
020262
020264
020266
020270
020274
020276
020302
020304
020306

5910
5911
5912

5913
5914
5915
5916
5917
591B
5919
5920
5921
5922
5823
5924
5925
5926

5927
5928
5929
5930

5931
5932
5933
5934
5935
5936
5937
593B
5939
5940
5841

012705

177770
033342

5951
5952
5953
5954
5955
5956
5957

INOXl
.+6
R2
.+6

Mav

#200, R2

MOV
MOV
MOV
CLR
INC
BNE
MOV
MOV

HORIVO. R1
N-10,R3
HOUTeur. RS
(R5)+
RS
.-4
#-10, R3
NOUTBU F ,RS

MOV
MOV

#340, - (SP)

; PEt.n-ORMING SEEKS TO CYL 4

,YES, BRANCH
,NO
; SET ADRES FOR FOURTH CYLINDER
; INITIAL 'ZE POINTER
; SET COUNT FOR 8 DRIVE'i
,INITIALIZE POINTER TO INDI~ATOR AREA
;CLEAR OUT THE a-WORD INDICATOR
;AREA I'HICH IS USED FOR DOING
;50FTWARE POI.LlNG I.ATE~ ON
; SET COUNT FOR a POSSIBLE DRIVES
; INITIALIZE POINTER TO INDICATOR AREA

1$'
01
01

000340

020::56

#64$, - (.SP)

MACY11 30A(1052)
21-FEB-78 08:58
PAGE 109
T57
CHECK HARDWARE POLLING LOGIC

000002

RT!

020256

020312
020314

0327! 1

032702

005004

16$'

TST
SEQ
BR
TST

17$:

MOV

2$:

BIC
CLR
TSTS
8MI
INC

ENE

017777

105710

100405
005204
001374
004737

020714

010277
012710

020352

005721

062702
005203
001330

160772

3$'

000111

4$:
020000

005004
013702
012722

020376
020402020406
020412
020414
0204 i 6
020420
020422

005204
001375
000452

020424
0204:25

022626
005131

020432

00102 j

012712
013746
012746
000002

001402

5$:

020424
000.40
001400

020414
18$:

#17777, (RS)+
R4
@RO
3$

; DO WE WANT EVEN?
;NO, SO SKIP
;5ET UP THIS WORD IN THE
; INDICATOR AREA SHOWING THAT THIS
,DRIVE (AS IN BITS 13-15 OF R2)
; I S PRESENT
;MASK OUT UNWANTED BITS (CYL,SUR,SEC SlTS)
,IS CNTRL ROY SET?
;YES. BRANCH

uSR
ERROR
MDV

R2,I'RKOA

MOV
TST
ADD
INC
8NE

#"',@RO
(Rl )+
#20000, R2
R3
1$

;ADRES THIS DRIVE. en 0 OR CYL 4
; (WHICHEVER THE CASE MAY SE)
;SEEK.GO, IDE SET
;NEXT DRI'/E DATA
;INCREMENT DRIVE ADRES (BITS 15.14,13)

CLR
MOV
MOV
MOV
MDV
MOV

R4
RKVEC, R2
HG5,(R2)+
#340, (R2'J
RKPRI,-(SP)
#lS$,-(SP)

;ADRES FOOM PREVIOUS SEEK

NOP
INC
BNE

001360

17$
ODDEVN
4$
R2, (R5)

,IS THIS DRIVE PRESENT?
,IF NOT, BRANCH
i RK06F?
,NO, CONTINUE
; DRIVE EVEN?
;YES
,DO WE WANT ODD?
,NO, SO DO NOT TEST
,ADD THIS DRIVE TO LIST

,NO, WAIT FOR IT
,I F WAI TED LONG REPORT ERROR
;GO. GET RKCS,ER,DS,DA
;CNTRL RDY DID NOT SET AFTER ACCEPTING

RTI

000240

(Rl )
17$
HBIT13,R2
16$
OODEVN

R4
2$
PC,GT4RG
21

BNE

j 04021

020354
020360
020362

020364

001406

010215

042725

020346

BEQ

OO'f ii,OS

000403

005737
001017

HSITO,(R')
4$

BPL
BIT

020000

001404

005737
001423

BIT
BED

Tsr

005711
100012

020316

020342

000001

001433

020322
020324
020326
020330
020332
020334
020340

5942
5943
5944
5945
5946
5947
5948
5949
5950

T5T
BNE
CLR
BR

001356

MD-ll-CZRKKF, RKll BASIC LOGIC TEST:1
CZRKKF .Pl1
21-FEB-78 08:51

5905
5906
5907
5908
5909

DOES NOT SET

;PC WHERE 'eNT.RESET' IS LOCATED.

5696
51197

5801

CNTRL ROY'

;THIS IS A VERY BASIC ERR& IF IT
; OCCURS GO BACK TO TEST 10

6895

&899
5900

; AN ERROR I S REPORT ED. NOTE THAT
; THE PC IN ERROR MESSAGE IS THE

588,-

5898

;FOUNR RK05F yET?

;;i~D WHICH ARE RK-05F

; NUMBER OF ACTUAL DRIVES
;TABLE
,DR I VE HERE+?
;NO
22$
; COUNT DRIVE
PHYDRV
; RK05F?
(RO)
,NO
225
,DONT COUNT F TWICE
(RO)+
(RO)+
,NEXT DRIVE
,ALL YET
RO,#DRIV7+1
,NO
23$
; EVEN DRIVES FIRST IF
DDDEVN
,ANY DRIVES PRESENT?
DRIVS
; YES
20$
;NO
HOP
T56FLG
RKes, RO
;FLAG TO INDICATE:
INDXl
,( INDX1 ).0 POLLING OON< AFTER ALL
,DRIVES SEEK TO CVL 0
; (INOXl )=1 POLLING DONE AFTER ALL
,DRIVES SEEK TO CYL 4
; FLAG INDICATING TYPE OF INTERRUPT
CLR
INOX2
;SET TO NON-ZERO TO INDICATE
; THAT THE INTERRUPT IS DUE TO
;SEEK DONE
;GO, DO CONTROL RESET
CNT. RESET
,THIS IS A CALL FOR THE 'CNTRL,RESET' ROUT I NE. A CONTRD L RESET IS
; ISSUED AND AFTER A CERTAIN TIME

5880
5882
5883
5884
5885
5886
5887
5888
5889
5890
5891
5892
5899
5894

SEQ 0107

,;00 5 ITERATIONS

R4
18$
11$

CMP
TST

(SP)+, (SP)+
INDX2

BNE

; TO NEXT ONE

,BRANCH BACK I F ALL DRIVES ARE
,NOT CHECKED TO SEE I F THE NEXT
;DRIVE IS PRESENT (& IF SO ISSUE A
; SEEK TO IT)
;BY NOW SEEKS HAVE BEEN ISSUED
,TO ALL DRIVES PRESENT 8 POLLING
;HAS BEGUN

,SET ADRE5 FOR RKll TO IN1ERUPT
; SET PSW ON INTERUPT
;DROR CPU PRIORITy TO 4 SO THAT
,RK 11 CAN I NTERUPT
THIS IS A TIME LOOP DURING
WHICH ALL DRIVES PRESENT SHOULD
INTERRUPT
BRANCH AND CHECK IF ALL AVAILABLE
DRIVES INTERRUPTED CORRECTLY
RESTORE STACK POINTER
WAS THIS FIRST INTERRu,T
DUE TO 'ADRES ACK' AFTER !NITIATION
OF SEEK?
I F YES. CHECK THE FOU,OW! NG

seQ 0101l

MD-ll-ClRKKF,
CZRKKF. Pll
5958
5959
5960
5961
5962
5963
5964
5965
5966
5967
5968
5959
5970
5971
5972
5973
5974
5975
5976
5977
5978
5979
59BO
5981
59B2
5983
59B4
5985
5986
5987
5988
5989
5990
5991
5992
5993
5994
5995

RKl1 BASIC LOGIC TEST 2
21 -FEB-78 08: 51

020434

032710

020000

020440
020442
020446

001403
011037
104076

001' 62

020450
020454

017701
032701

'60652
160000

020460
020462
020466

001403

020470

005237

020474

000734

020476
020502
020506
020512

0'3703
012705
017701
04270'

020516
020520
020522
020524

020' 25
001411
005303
001374

010137

MACY"30A(1052)
21-FEB-?8
08:58
PAGE " 0
T5?
CHECK HARDWARE POLLING LDGIC

7$:

001162

, 04050

8IT
SEQ
MOV
ERROR

#20000, a>RO
7$
@RO,$REGO

MOV
BIT
BEQ
MOV
ERROR

@RKDS,Rl
'160000,Rl
8$
R1,$REGO
50

001360

B$'

INC

INDX2

00'436
033342
160614
017777

9$'

MOV
MDV
MDV
BIC

PHYDRV, R3
.DUTBUF, RS
@RKDS,Rl

CMP
BEQ
DEC
BNE

Rl, (R5)+
10$

H17777,R1

.-6

59~6

5997
599B
5999
6000

020526
020530
020534

010146
004737
012637

6001
6002
6003

020540

104051

020542
020544

00040'
005245

6004
6005
6006
6007
6008
6009
6010
6011
60'2
60'3

6016
6017
601 B
60' 9
6020
6021
G022
6023
6024
6025
6026
6027
6028

6029
6030
6031
6032
6033
6034
6035
6036
6037
6038
6039
6040
6041
6042
6043
6044
6045
6046
6047
6048
6049
6050
6051
6052
6053
6054
6055
6056
6057
6058
6059
6060
6061
6062
6063
G064
6065
6066
6067
6069
6069

10$ :

MDV

R' ,-( R61

JSR
MOV

PC,SHFTRT
(R6)+,$REGO

ERROR

10$+2
-(RS)

INC

; CHECK THAT SCP IS NOT SET
; BRANCH IF SCP CLEAR
;GET RKCS
; AFTER THE FIRST INTERRUPT WHICH
;IS DUE ',0 INITIATION OF SEEK, SCP
:SHOULO NOT HAVE SET. IT 010
;RKOS BITS 15-13 SHLOULD BE CLR
; GET RKDS
; SEEK, WITH IDE SET WAS ISSUED TO
:ALL AVAILABLE DRIVES. THE FIRST
; INTERUPT IS DUE TO SEEK INITIATED
;BY FRST DRV. ORV 10 BITS '3-15
;SHOULD BE CLR AFTR THIS FRST INRUPT.
:THEY WERE NOT IF THIS ERROR OCCURS.
; SET UP FLAG INDICATING
;THAT THE FIRST INTERRUPT DUE
;TO INITIATION OF SEEK WAS
: PROCESSED
jGO BACK TO THE WAIT LOOP & WAIT
; FDR NEXT INTERRUPT FROM RK11
; SET COUNT OF • OF DRIVES PRESENT
; INITIALIZE POINTER
; GET RKDS
;MASK BITS 0-12
;THE FOLLO'i1NG CODE IS A SOFTWARE
;POLL WHICH FINDS OUT WHICH DRIVE
; CAUSED THE PRESENT INTERRUPT
;AND SETS UP A FLAG BIT FOR
: THE DRIVE 1# r INDICATING THAT
; THIS DRIVE" INTERRUPTED
; BRANCH

I F I NTERRUPTHJG OR I VE WAS FOUND

;HAVE U CHKD All DRIVS PRESENT?
; I F NOT LUP BAK & CHK
;REPORT ERROR IF THE INTERRUPTING
;DRIVE " (AS IN RKD5 13-15) WAS NOT
;ANY ONE OF THOSE THAT ARE PRESENT
; GET WORO TO 8 SHFTD RT
;GO SHIFT IT
;THIS ORIVE " 'JAS RECVD IN RKOS AS
;THE INTERRUPTING DRIVE, BUT THIS
;DRIVE IS NOT PHYSICAlY PRESENT
; RKDS INDICATES AN INTERRUPTING
;DRIVE" (DURING H'WARE POLL) BUT
;THAT DRIVE IS ACTUALLY NOT PRESENT
,SET UP

FLAG INOICATING THAT

;THE INTERRUPT FOR THIS DRIVE

020546
020550
020554

MD-1'-CZRKKF,
CZRKKF.P11
6014
6015

02' 200
001162

SEQ 0109

000707
013703
012705

BR
MOV
MDV

001436
033342

RK11 BASIC LOGIC TEST 2
2'-FEB-78 08:51

020560
020562
020564
020566
020572

105715
1,)01006
011546
004737
012637

020576

104052

020600
020604

000002

020606

062705
005303
001364

020610
020614
020616
020622

005737
001004
005237
000137

001356

5$
PHYDRV, R3
tlOUTBUF, R5

; (AFTER IT HAD COMPLETED ITS SEEK)
;WAS PROCESSED
;GO BAK & WAIT FOR FURTHER INTRUPTS
;GET " OF DRIVES
; INITIALlZE POINTER

MACY11
T57

30A(1052)
21-FEB-7B
08'58
PAGE 111
CHECK HARDWARE POLLING LOGIC

14$:

TSTB
BNE
MOV

021200
001162

MOV

(R5)
13$
(R5) ,-(R6)
PC, SHFTRT
(R6)+,$REGO

001356
020166

BRANCH

ERROR

ADD
DEC
BNE

'4$

TST
BNE
INC
JMP

INDXl
TSTEND
INDX1
15$

;DONE POLLING FOR SEEKS TO ~YL 3121
; IF YES, EXIT
; I F NOT, INCREMENT FLAG
;GO DO IT

JSR

13$:

;DID THIS DRIVE INTERRUPT'?

; YES.

;GET THIS DRIVE #
;SHIFT IT TO THE RIGHT
; THIS ORIVE • 010 NOT INTERRUPT
;DURING H'1,<JARE POll
;DRIVE # (AS IN $REGO) DID NOT
;INTERRUPT DURING HARDWARE POLL
; INCREMENT POINTER TO THE NEXT FLAG
;CHKD FOR ALL DRIVES?
;If NOT LUP BACK

#2,RS

; INDICATOR TABLE
; THE 8-WORO INDICATOR TABLE USED IN
; THE FORMER PART OF THIS SUB-TEST
;IS LOCATED STARTING AT 'OUT8UF'.
;WOROS ARE SET UP TO INDICATE
; PRESENCE OF A DRIVE EG: IF
;DRIVES 0,1,2 ARE PRESENT, IT WILL
;LOOK LIKE
:OUTBUF:
000000 BITS 13,14,15
020000 CONTAIN THE
040000 DRIVE NO.
000000 REST 0 I S
;WHEN A DRIVE INTERRUPTS AFTER SEEK
; IS DONE BIT 0 OF THE CORRESPONDING
; INDICATOR ,JQRD IS SET. THUS FOR THE
: ABOVE EXAMPLE IF ALL DRIVES INTERRUPTED
;CORRECTLY THEN IT wILL LOOK LIKE'
'2$:
000001 BIT 0 SET
02000' TO INDICATE
040001 OR INTERRUPTED
000000 REST 0' 5
020626

020632
020640
020642
020646

005237
022737
001402
000137
005037

00'405
000002
020140
001434

TSTENO:

INC
CMP
BEQ

21$:

ClR

.SBTH

END OF PASS ROUTINE

001406

JMP

; l1<

OODEVN
#2,ODDEVN
21$
TSS
T56FLG

; NOW ODD IF RJ(05F
; SEE IF DONE
; ALL DONE

; TEST AGAIN

***"'** *** ****>1< *"'** '" '" ** 111***** 1\".* **$ *'** **$'" ** *** '" *>It :1<**"'** "'* **"'$"'>11

oINCREMENT THE PASS NUMBER ($PASS)
<INDICATE END-OF-PROGRAM AFTER 1 PASSES THRU THE PROGRAM
-TYPE "END PASS HXXXXX' (WHERE XXXXX IS A DECIMAL NUMBER)
-IF THERES A MONITOR GO TO IT
oIIIF THERE ISNeT JUMP TO ST4

SEQ 0110

MD-1'-CZRKKF, RK11
C2RKKF.P11

BASIC LOGIC TEST 2

21-FEB-78 08:51

MACY11 30A(1052)

21-FE6-76' 08:58
ENO OF PASS ROUTINE

PAGE 112
SEQ 0111

6070
6071

6072
6073
6074
6075
6076
6077

6078
6079
6080
6081
6082
6083
6084
6085

6086
6087
6088

6089
6090
6091
6092

6093
6094
6095
6096
6097
6098
6099

6100

020652
020652
020654
020660
020664
020670
020676
020700
020702
020704

020706
020710
020712
020716

020722
020724
020730
020734
020736
020740

020742
020744
020746
020750
020750
020752
020754
020757
020764
020772

SEDP:

000004
005037
005037

005237
042737

001102
001206
001100
100000

001100

005327
000001
003022
012737

MOV

SENocr:

.WORO
SEDPCT
TYPE
MOV
TYPOS
TYPE
SOEr42: MOV

000001
020700
104401
013746
104405

104401
013700
001405
000005
004710
000240
000240
000240

SCOPE
CLR
CLR
INC
BIC
DEC
SEDPCT: • WORD
BGT

020757
0011 00
020754
000042

BED

$TSTNM
$TlMES
$PASS
,'00000,SPASS
(PC)+
1
$DOAGN
(PC)+,@(PC)+

~ ; DON I TALLOW

A NEG. NUMBER

; ; LOOP?

; ; YES
; ; RESTORE COUNTER

, $ENDMG
$PASS,-(SP)
,$ENULL
@#42,RO
$DOAGN

RESET

SENOAO: uSR

; : ZERO THE TEST Nurl'BER
; :ZERO THE NUMBER OF !TERATIONS
;; !NCREMENT THE PASS NUMBER

PC, (RO)

NoP
NOP

; ;TYPE "END PASS ."
; ; SAVE $PASS FOR TYPEOUT
; ;GO TYPE--DECIMAL ASCII WITH SIGN
;;TYPE A NULL CHARACTER
; ; GET MONITOR ADDRESS
; ; BRANCH I F NO MONI TOR
; ; C lEAR THE WOR Lo
i j GO TO MON ITOR
; ; SAVE ROOM

; ; FOR

NOP

; ; ACT11

JMP
• WORD
.BYTE
.ASCII

@(PC)+
; ; RETURN
ST4
-1,-1,0
; ;NULL CHARACTER STRING
<lS><12>/END PASS HI

.58TH

GT2RG:

SOoAON:
000137

004456
377

015
050040
000043

377
042412
051501

000
042116
020123

$RTNAD:
$ENULL:
$ENOMG:

6101

6102
6103
6104

6105
6106
6107

6108

RDUTINE FOR GETT I NG RKCS, RKER

6\ 09

;SUBRoUTlNE FOR TRANSFERRING THE CONrENTS OF RKCS, RKER
;TO SREGO, SREGl RESPECTIVeLY BEfORE TYPING OUT AN ERROR MESSAGE.
;CALL:
uSR
PC,GT2RG

6110
6111

6' i' ~
6113

.S8TH

6114

GT3RG:

ROUTINE FOR GETTING RKCS, RXER,

RKDS

6115
: OT 3RG
; SUBROUTINE FOR TRANSFERRING THE CONTENTS OF RKCS, RKER, RKO;
;TO
SREGD, SREG1, $REG2 RESPECTIVELY BEFORE TYPING OUT AN
; ERROR MESSAGE,
;CAl"
uSR
PC,C;T3RG

5116
6\ 1 7
6118

6119
61.20
6\
61
6123
5124

.SBTTe

GT4RG:

ROUTINE FOR GETTING RKCS, RKI::R, RI<DS, RKDI',

;GT4RG
:SUBROUTINE fOR TRANSFERRING CONTENTS OF RKCS,

6105

MD-1'-C2f.1I(Kf, RKl1 BASIC LOGIC TEST 2
CZfiKK~oP11
21-F'EB-'1808:51

MACYl1 30A(I052}
21-FEB-7S
08:59
PAGE 113
GT4RG:
ROUnf'~E FOR GETTING RKCS, P.KER. RKOS.

$RECHJ. $REG1
AN ERROR
PC,GT4RG
6 ~ 31
613:2

6i 33
6134
613'5

021
0210Hl
02H)i6
021024

001170

017737
017737
01
01
000207

MOV

001\ 64

GT2RG:

001162

MOV
RTS

.58TH

TVERM:

MoV

RKDA

$REG3 RESPECTIVELY BEFORE

@RKOA , $ REG3
I'RKOS, $REG2
@RKER,SREG1
I'RKCS, $REGO

MOV

001166

RKER, RK.OS

; GET RKDA
,GET RK05
; GET RKER

6138
6137
6138
6139
6140
6141
6142
6143
6144

6145
6146
6147
6148

6149
61 So

021026
021026
021032
021050
021050
021052
021054

THiS ROUTlN~

TVERM:
104401
000406

021034

6151
6152
6153
6'54
6155
6156
6157
GISa
6159

SPECIAL ERROR MESSAGE ROUTINE

;TYERM
:THIS ROUTINE TYPES OUT' ERDR AT PCoX'
;X IS THE PC WHERE THE
EXPLANATION AS TO "HAT HAPPENED IS GIVEN,
; IS USEa ONLY FOR NON-MANUAL MODE OF THE PROGRAM.
;CALl:
uSR
TV.RM

TYPE

;; 65$:
64$:

,65$
64$

• ASCIZ

<15><12>/EROR. PC:/

010346

MoV

R3,-(SP)

104402
000207

TYPOC
RTS

.58TH

BOAC, BOM:

; ;TYPE ASCIZ STRING
; :GET OVER THE ASCIZ

G 160

6161
5162

BREAK 015,( ADDRESS INTO SEC, SUR, eYe,

6 j 63
G i 54

; BDAO, BOA4

6165

6166

ROUTINE BREAKS A DISK ADDRESS (8ITS 0-15) INTO
DRIVE #,
(I,
SURFACE, S':CTOR
• THE RQUT1NE IS CALLED BY USING

6167
6'166

;SRKDAO OR SRXOA4, BOTH BEING 'TRAp! INSTRLJCTI0S '''''ITH THEIR LOWER
lENCOOEO TO PROVIDE INDEXING TO 'SDAC' OR 'SOM'. BEFORi! CAlUNG
;THE ~OUTINE THo DISK ADDRESS '"HICH IS TO BE BROKEN A$ ABOV.
;tS CEPO.nED IN $RaOl0.

6169
617D

6171

; 'BRKDAO' PUTS THE
;DRIVE • INTO $REGO
;CHINDER N INTO SRE01
;SURFACE N INHl $REG2
;SECTOR # INTO $REG3
:CALL:
SRKOAO

6175
6176
6177
61 'Ie
6179
6HIO
61

021056
021060

010048
0'12700

MOV
00"72

MOV

RO,-(SP)
#SREG3+2, RO

BRKDM PUTS THE
DRIVE. INTO $REG4
CYLINDER # INTO SREGS
SURFACE # INTO $REG6
SECTOR • INTO $REG7
BRKDM
; PUSH ~O ONTO THE. STACK

;SET UP POINTER

DRIVE

IM)-11-C2RKKF,
CZRKKF. Pll

6182
6183
6184
6185
6186
6187
6188
6189

02' 064

6190

6191

021074
021102

032777
00'034

020000

021104
021106

010146
010246
013701

021114
021120
021122

6214
6215

010046
001202

6194
6195
6196
6197
6198
6199
6200
6201
6202
6203
6204
6205
6206
6207
6208
6209

021126
021130
021132
0211 34
021136
021140
021144
021146
021150
021152
021156
021160
021162
021166
021170
021172
021174
021176

MACY1, 30A(1052)
21-FEB-78
08:58
PAGE 114
8DAD, BDA4:
BREAK DISK ADDRESS INTO SEC, SUR,

160036

BOAR

MOV
MOV

RO,-(SP)
#$REG7+2, RO

,PUSH RO ONTO THE STACK
: SET UP POINTER

BOAR:

BIT
6NE

#20000 ,~SWR
2$

,YES, BRANCH TO EXIT POINT

MOV
MOV

Rl .-( SP)
R2,-(SP)
$REG1 0, R1

00' 202

MOV

042701
010140

177760

013701
006201
006201
006201
006201
010102
042702
010240
006201

001202

BIC
1'110 V
MOV
ASR
ASR
ASR
ASR
MOV
BIC
MOV
ASR
MOV
BIC
MOV
SWAB
BIC
MOV

#177760,Rl
Rl,-(RO)
$REG1 0, Rl
Rl
Rl
R1
Rl
Rl ,R2
#177776, R2
R2,-(RO;
R1

MOV
MOV
MOV

(SP)+,R2
(SP)+,Rl
(SP)+,RO

177776

010102

042702
010240
000301
042701
010140

177400

177770

012602
012601
012600
000002

2$:

R1,R2
#177400,R2
R2,-(RO)
Rl
#177770, R1
R1 ,-( RO)

SEQ 0113

cn, DRIVE

8DA4:

000403

012700

021110

6212
6213

BASIC LOGIC TEST 2

021066
021070

6192
6193

6210
6211

RK1i

21-FE8-78 08:51

;INHIBIT TYPEOUT?
,PUSH R 1 ON ST ACK
; PUSH R2 ON STACK

;GET THE ADDRESS WHICH
,HAS TO BE BROKEN
; EXTRACT SECTOR BITS 0-3
;MOVE SECTOR BITS TO SREG3 r.R SREG7
;GET THE DSK-ADRES TO BE BROKEN
;SHIFT RIGHT 4 TIMES

; STORE THIS
; EXTRACCT THE SURFACE BIT
;MOVE SURFACE BIT TO $REG3 OR $REG6
; STORE IT
; EXTRACT THE CYLINDER BITS
;MOVE CYLINDER BITS TO $REG1 DR $REGS
; SWAB HI-LO BYTES
; EXTRACT THE DRIVE #
;MOVE DRIVE. TO $REGO OR $REG4
; RESTORE R2
; RESTORE R1
;RESTORE RD FROM THE STACK
;RETURN FROM INTERRUPT. EXIT THIS
; ROUTINE

RTl

6216
6217
6218

6219
6220

.SBTTL

6221
6222

6223
6224
6225
6226
6227
6228
6229
6230
6231

6232
6233
6234
6235
6236
6237

SHFTRT:

SHIFT RIGHT ROUTINE

;~~~~R~OUTINE SHIFTS A WORD TO THE RIGHT 13 TIMES. THE WORD TO BE SHIFTED
; IS PUT ON THE STACK BEFORE ENTER I NG TH I S ROUT I NE AND IT IS POPPED UP
; FROM THE STACK AFTER THE SHI FT HAS BEEN DONE.
;CALL:
JSR
PC.SHFTRT

021210

012737
000241
006066

021214
021220
021222
021224

001373
000207
000000

021200
021206

005237

177763

021224

000002
021224

SHFTRT: MOV
CLC
1$:
ROR
INC
BNE
RTS

25:

"D-1'-CZRKKF, RKll BASIC LOGIC TEST:1
CZRKKF .Pl1
21-FEB-7B 08:51

;SET UP A COUNT OF 13
;CLEAR THA C BIT
; ROT ATE RIGHT THE WORD TO 8 SHFTD
;SHIFTED 13 TIMES?
; IF NOT LUP 8AK & SHIFT
; EXIT FROM THIS SUBROUTINE

#-15,2$
2(R6)
2$
1$
PC

MACY11 30A(1052)
21-FEB-7B
SHFTRT: SHIFT RIGHT ROUTINE

OB:5B

PAGE 115
SE~

6238
6239
6240

• SBTTL

CHKHE:

FOR

ERR I OR

6241

.SBTTL

CHKHE1: CHECK FOR

ERR10R

6242
6243
6244
6245
6246
6247
6248
6249
6250
6251
6252
6253
6254
6255
6256
6257
6258
6259
6260
6261
6262
6263
6264
6265
6266
6267
6268
6269
6270
6271
6272
6273
6274
6275
6276
6277
6278
6279
6280
6281
6282
6283
6284
6285
6286
6287
6288
6289
6290
6291
6292
6293

CHECK

;;CHKHE

;THIS ROUTINE CHECKS IF IHE' OR IERRI
; TWO BI T5 ARE SET,

BITS IN RKCS ARE SET.

THE CONTENTS OF RKCS,

ER.

DS,

IF ANY OF THE

AND DA ARE SAVED AND A

;RETURN IS MADE TO THE ERROR MESSAGE FOLLOWING THE 'JSR r CALL.
;AT THE TIM;::: OF ENTRY 'DRIVAD' CONTAINS THE DISK ADDRESS WHICH IS TO
;BE BROKEN DOWN INTO DRIVE N, CYLINDER. SURFACE AND SECTOR N. THIS INFORMATION
; IS SAVED TO 8E USED LATER FOR ERROR REPORTING. IF THE BITS ARE NOT SET.
;RETURN IS MADE TO SKIP THE ERROR MESSAGE.
;CHKHE1

;THIS ROUTINE CHECKS IF 'HE' OR 'ERRI
; TWO BI TS ARE SET,

BITS IN RKCS ARE SET. IF ANY OF THE
ER, OS, AND DA ARE SAVED AND A

THE CONTENTS OF RKCS,

;RETURN IS MADE TO THE ERROR MESSAGE FOLlmoJING THE 'JSR' CALL.
;AT THE TIME OF ENTRY R1 CONTAINS THE DISK ADDRESS WHICH IS TO BE BROKEN
;DOWN INTO DRIVE N, CYLINDER, SURFACE AND SECTOR N. THIS INFORMATION IS
;SAVED TO BE USED LATER FOR ERRGR REPORTING. IF THE 8ITS ARE NOT SET,
;RETURN IS MADE TO SKIP THE ERROR MESSAGE.

021226
021232

010137
000403

001202

021234
021242
021250

001350
140000

021 :252
021256

013737
032777
00 i 467
004737
104416

021260

000207

001202
160062

CHKHE1: MOV
8R

Rl ,$REG1 0
CHE1

;SAVE THE DISK AORES

CHKHE:
CHEl :

MOV
BIT
8EQ
JSR
BRKDA4

DRIVAD, $REG10
N140000,@RKCS
CRETRN
PC,GT4RG

RTS

;SAVE THE DISK ADRES
;15 IHE' OR 'ERR' BIT SET?
;NO
;GET RKCS,ER.DS, OA
; GO TO 'BOM' & BREAK CONTENTS 0
; $REG1 0 INTO DRN, CYL, SUR, SEC BITS
; RETURN TO THE ERROR MESSAGE

.SBTH

CHKDA:

020774

CHECK IF RKOA INCREMENTED CORRECTLY

; CHKOA
; THIS ROUTINE CHECKS IF RKOA INCREMENTED CORRECTLY. IF RKDA INCREMENTED
;CORRECTLY RETURN IS MADE TO SKIP THE ERROR MESSAGE.
; IF RKDA DID NOT INCREMENT CORRECTLY, THE ExPECTED AND RECIEVED VALUES
;OF RKDA ARE S/.VED AND A RETURN IS MADE TO THE ERROR MESSAGE FOLLOWING THE

; 'JSR I CALL.
021262
021266
021270
021,274

013705
005205
020577
001455

001350

CHKDA:

160044

INC
CHKDA 1: CMP
8EQ

021276
021302

010537
104415

001202

021304
021312

0' 7737

160030

021314

MOV

ORIVAD, RS
RS
R5,@RKDA
CRETRN

MOV
BRKDAO

RS,$REG10

I>RKDA,SREG10

1044t6

MOV
BRKDA4

000207

RTS

001202

RKDA SHOULD INCREMENT TO THIS
AFTER DATA TRANSFER IS DONE

oro RKDA INCREMENT CORRECTLY?
I F YES, 8RANCH
I F NOT. REPORT ERROR
GET EXPCTD RKDA

GO TO

BDAO' & BREAK

CONTENTS OF

$REG10 ItHO DR II,CYl,SUR,SEC BITS
GET ACTUAL RKDA
GO TO I BDA4 I & BREAK
CONT~NTS OF
$REG10 INTO OR #.cn,SUR,SEC BITS
RETURN TO THE ERROR MESSAGE

0114

MQ-ll-CZRKKF, RKll BASIC LOGIC TEST:1
CZRKKF. Pll
21-FE8-78 08: 51

MACYll 30A(1052)
21-FE8-78' 08:58
PAGE 116
CHKDA:
CHECK If RKDA INCREMENTED CORRECTLY

SEQ

0115

6294
6295

6296

021316
021322

005777
001442

160012

021324
021332
021340

017737
017737
000207

160004
160002

001162
001164

:THIS ROUTINE CHECKS IF RK\;C OVERFLOWED :0 O. IF IT DID • RETURN IS MADE
;TO SKIP THE ERROR MESSAGE. IF NOT, THE CONTENTS OF RKWC AND RKD. ARE SAVED
;AND A RETURN IS MADE TO THE ERROR MESSAGE fOLLOWING THE 'JSR' CALL.
CHKWC:
TST
li'RKWC
;010 WORD COUNT OVERFLOW TO O?
BEQ
CRETRN
; IF YES, BRANCH
;IFNOT, ERROR
MOV
li'RKWC, SREGO
; GET RKWC
MOV
@RKDA,$REGI
; GET RKDA
RTS
PC
; RETURN TO THE ERROR MESSAGE

.58TH CHKER: CHECK RKER CONTENTS
;CHKER
;THIS ROUTINE CHECKS IF ANY BIT IN RKER SET. IF NOT RETURN IS MADE TO SKIP
; THE ERROR MESSAGE. I F ANY Bn ! S SET THE CONTENTS OF RKCS, RKOR. RKDS ARE
; SAVED AND A RETURN IS MADE TO THE ERROR MESSAGE.

6312
8313

6314

6315
6316
6317
6318

CHECK IF RKWC OVERFLOWED

;CHKWC

6299
6300
6301
6302
6303
6304
6305
6306
6307
630B
6309
6310
6311

CHK1!IC:

.SBTTL

6297
6298

005777

021342
021346

001430

6319

021350

004737

6320
6321

021354

000207

107762

CHKER'

021002

1ST
6EO

CRETRN

uSR

PC,GT3RG

,OlD ANY BIT IN RKER SET?
;NO, BRANCH
;VES, ERROR
;GO, GET RKCS, ER, OS

RTS

; RETURN TO THE ERROR MESSAGE

~RKER

6322
6323
6324
6326

;CHKECLR
;THIS ROUTINE CHECKS THAT RKoR IS CloEAR.

IF NOT, THE CONTENTS OF R':'R
;ARE SAVED AND A RETURN IS MADE TO THE ERROR MESSAGE FOLLOWING THE 'JSR'

6326
6327

:CALL.

6n8
6,329

005777

6:330
6331

013737

157746

IF RKER IS CLEAR THE ERROR MESSAGE 15 SKIPPED ON RET"RN.

CHKECLR'

00 I 422

6332

017737

TST

IIlRKIlR
CRETRN
RKER, SREGO
IPRKER ,$REGI
PC

eEQ
001330
157732

0011e2

MOV
MQV
RTS

0011&4

00Q207

;ANV BIT IN RKER SEn
:NO
1GET ADRES OF RIIER
; GET CONTENiS OF RKER
; RETURN TO THE ERROR MESSAGE

:CHKCCLR
6338
6339
6340
6343

021402
021410
021412
021420

63"~dl

021425

63.:11

6342

022777
0014Q7
013737
017737
000207

000200

157722

001332
157706

001162
0011 64

6345

63'6

000002

;THIS ROUTINE CHECKS THAT RKCS IS CLEAR. IF NOT, THE CONTENTS OF RKCS ARE
:SAVED AND A RETURN 15 MADE TO THE ERROR MESSAGE. IF RKCS IS C"EAR THE
:ERROR MESSAGE IS SKIPPED ON RETURN.
CHKCCI.R: CMP
#200,~RKCS
; IS RKCS CLEAR?
BEQ
CRETRN
; YES
MOV
RKCS,$REGO
;SAVE ADRES OF RKCS
MOV
I!>RKCS,SREGI
;SAVE THE CONTENT OF RKCS
RTS
PC
; RE1'URN TO THE ERROR MESSAGE
CRETRN' ADD

#2, (SP)

Ins

6347
6348
63'9

MD-l'-CZRKKF. RK'll BASIC LOGIC TEST 2
CZRKKF.Pl1
21-FEB-780S:S1

MACY!I 30A(1052)
TSTRWS' WAIT FOR

6350

.S8TTL

; SK I P ERROR MESSAGE ON
; RErURN

21-FE8-78

RN/S ROY
TSTRwS:

08:58
ROuTiNE

WAIT

PAGE 1'17

SEQ 0116

FOR R/V.J/S RDY ROUTINE

6351
6352

6353

ROUTINE WAITS FOR

6354-

;IS INCREMENTED SO THAT
;MESSAGE fOLLOWING THE'

635.5
6356
63S7
6358
6359
6360
6361
6352
6363
6364

636S
6366
6367
6358

6369
6370
6371
63'12
6373

RDY TO SET. WHEN IT

(TO THE MAIN
CALL IS SKIPPED. IF

;THEN A RETURN IS MADE TO rHE ERROR MESSAGE (
;\OIA.ITlNG TIME IS APPRDX. 1040 MS FOR 11/20, APPROX.
; CA.Ll:

001350
001366
000100

021436
021444
021450

01377'7
005037

021456
021-160

001007
005237
001371

001366

017737

157834

0214134
02:1466

032777

157674
157650

001162

000207
C21476

062716

021502

000207

000002

JSR

THE RETURN PC

THE ERROR
'ROY DOES
THE 1 JSR!
208 MS fOR ' i /45

TSTRWS

TSTRWS' MOV
CLR
1$:
BIT
BNE
INC
BNE
MOV
RTS

DRIVAD.@>RKDA
TIMER

TIMER
i$
Ii'RKQS. $REGO
PC

2$;

ADD

n , (SP)

RTS

.5BTH

ORESET: DRIVE RESET ROUTINE

f.l100.@RKDS

;ADRES THE DRIVE
; INITIALIZE COUNT
: D! D R/W/S ROY SET?
; YES. BRANCH
;WAlT FOR R/W/S ROY
; ERROR IF IT! 5 NOT SET BY
; GET RKD5
; EXIT (TO ERROR FOOLOWrNG

NOW
1 JS~

TSTRWS 1)

:ADJUST RETURN AD RES TO SKIP OVER
; ERROR (FOLLOWING l,JSR TSTFlWS 1 )
; EXIT

; ORESET
ITHIS ROUTINE DOES A DRIVE Rli:SE'r ON THE DRIVE WHoa,,, APORESS 1511'
; RKDA. MUI. TlPLE RETURN ADDRESSES FO~ THIS ROUTINE ARE FROVW .. O,
: IF THeRE IS NO ERROR (R/W!> RDY SETS WITtHN CERTAIN TIME) • THEN e~FOR"
:EXiTNG FMM ,HIS RounNE TH. RETURN ADDRESS IS INCREMENTED Wi 2, TO SK1~
iTHE ERROR MESSAGE ON RETURN, IF THERE IS AN ERROR, THE 3 REGISTERS (CS,ER,!;lS)
;ARE STORED AND THEN A NORMA\. EXlT IS MADE FROM THI$ ROUTINE 10 TilE
;ERROR MESSAGE FOLLOWlNG THE CAI.L FOR THIS ROUTINE,

:CALL:

uSR

PC,OREsn

MOV

COUNT1
DRIVAD.!>RKOA
#15.$RKCS

; INITIALIZE THE COUNT
; ADRES THE DRIVE
;ORIVE RESET, GO
;THIS IS A C!~ L L fOR
; ROUTINE WHICH WAITS
;ROY TO -ET. ! F CNTRL ROY
,NOT SET WITHIN 883 MS/ 1
1 (176 M5 fOR 11-45 WITH
;AN ERRor, IS REPORTED
;)!D R/W/S ROV SET?

MOV
INC

#-10.-(SP)

; PUSH COUNT ON SP
; COUNT IT DOWN

BNE
TST
INC

.-2

ORESET ,

tNT. RDY

6395
6396
6397
6398
6398
6';'00
6401
6,102
6402

02'1 S<'25
02', ~:;,3-4
0;2'IS;J6

000100
1013
0'1 27·:jtj

02. j 5A2
O~: SA4
O:i!1550

1$:

BIT
BNE

1771iO

6404

6:105

1 $7572

001 ~l64

( SP)
(SP)+

COUNT1

;POP UP $P
; If NOT WA.tT

:IID-1 \-CZRKKF.
CZR¥,KF .P11

6406
6407
6408

6409
6410
6411
6412
6413

RK11 BASIC LOGIC TEST 2
21-FEB-78 08:5,

021554

021556
021562
021564
021570

001364
004737
000402
062716
000207

020774
000002

BNE
JSR
6R
ADD
RT5

1$
PC,GT4Rr.
2$+4
#2.Il'R6
PC

.SBTTl

TSTSIN:

6414

6415
6416
6417

6428
6429
6430
6431
6432
6433
6434
6435
6436
6437
6438

6439
6440

'SIN 1

ROUTINE

IS SET,
'SIN'

IF IT IS SET A

AND INITIALIZE POSITIONER.

ERROR PC=XXXXXX

A MESSAGE

IS GIVEN.

ixxxxxx=pC IN THE MAIN PROGRAM ~"'HER;:: 'TST.SIN 1 CALL IS LOCATE08

021572
021600
021606
021610
021614
021616
021620
021626
021630
021634

021652
021652
021654
021660
021662

013777
032777

001350
001000

001403
004737

021504

157540
157520

000401

000002
032777
001373
104401
000406

020000

157312

TSTSIN: MOV

BIT

1$:
2$:

021636
• '65$:

64$:
011646
062716
104402
000755

177776

BEQ
JSR
BR
RTI
BIT
BNE
TYPE
8R
.ASCIZ

ORIVAO,€'RKDA
#1000,@RKDS
1$
PC.DRESET

2$
#SW13.@SWR
1$
.65$
64$
/ERROR PC=

MOV
ADD
TYPOC
BR

(SP) ,-(SP)
#-2.(SP)

.SBTTL

DELAY:

;ADRES THE DRIVE
; IS SIN SET?
;GO DO DRIVE RESET.
; REPORT ERROR

SIN

SET

; INHIBIT TYPEOUT?
; IF YES. SKIP TYPEOUT
; ;TYPE ASCIZ STRING
; ;GET OVER THE ASCIZ

;GET THE PC WHERE 'TST.SIN'
:GO TYPE OUT PC

IS LOCATED

~~~i~Y ROUTINE PROVIDES

TIME DELAY ROUTINE

A VARIABLE TIME DELAY. THE CALL FOR THIS

;RDUTINE IS AN ENCODED ITNRAP' INSNT~~Cr~eNOCTAL NO. FROM 1 TO 177777
;CALl:
DELAY.
;THE DELAY PROVIDED IS 7.5N uS (CONVERT N TO DECIMAL) FOR 11/20

6449
6.:;50

:;/~H~SU~~~ ~1(~~ TO CHANGE THE DELAY TIME (EXMP: SHORTER DELAY TO

6451
6452
6453

:GET A TIGHTER SCOPE LOOP) THE VARIABLE

'N'

FOLLOWING 'DELAY' SHOULD

:BE CHANGED TO SUIT THE INDIVIDUAL NEED.

021664
021672

017637
062716

000000
000002

021676
021702

005337
001375

001366

MD-l1-CZRKKF. RK11 BASIC LOGIC TEST 2
CZRKKF.Pl1
21-FEB-780B:51

6463
6464
6465
6466
6467
6468
6469
6470
6471
6472
6473
6474
6475
6476
6477
6478
6479
64BO
6481
6482
6483
6484
6485
6486
6487
6488
6489
6490
6491
6492
6493
6494
6495
6496
6497
6498
6499
6500
6501
6502
6503
6504
6505
6506
6507
650B
6S09
6510
6511
6512
6513
6514
6515
6516
6517

SEQ 0117

:i~L~~ DOING ORI~~T R~~~T R/W/S ROY DOES NOT SET

6448

6462

CHECK

;DRIVE RESET IS DONE TO CLEAR

6441
6442
6443
6444
6445
6446
6447

6454
6455
6456
6457
6458
6459
6460
6461

PAGE 118

;WAITED LONG?

:i~~~I~OUTINE CHECKS IF ISIN

6418

6419
6420
6421
6422
6423
6424
6425
6426
6427

08. sa

MACY11 30A(1052)
21-FEB-78
GRESH: DRIVE RESET ROUTINE

0.2'1704

DELA. Y: MDV
ADD

"'(SP). TIMER
#2. (SP)

1$:

TIMER

MACY11
DELAY:

DEC
BNE

RT!

.SBTTL

IN'

30A(1052)
21-FEB-78
TIME DELAY ROUTINE

00000.2

'GET 'AMOUNT' (N) FOR WHICH
: DELAY IS TO BE PROVIDED
:ADJUST STACK POINTER TO SKIP OVER
; COUNT DOWN TO 0

08:58

PAGE 119
SEQ 0118

,RETURN TO MA I N PROGRAM

WAIT FOR

WAT.INT:

INTERRUPT ROUTINE

iWAT.!NT
;THIS ROUTINE PROVIDES A VARIABLE TIME WAIT LOOP DURING WHICH AN INTERRUPT
;FROM RKl1 CAN OCCUR. THE CALL IS AN ENCOUED 'TRAP' INSTRUCTION.
:CALL:

WAT.INT

N IS ANY OCTAL NO.· FROM 1 TO 177777

; WA IT LOOP T IME= APPROX. 7. 5N US (CONVERT N TO DECIMAL) FOR 11/20
;APPROX. 1.5N US FOR "/45
,UPON ENTERING THE ROUTINE THE CPU PRIORITY IS DROPPED SO THAT
,RK11 CAN INTERRUPT. NOTE THAT WHEN RK11 INTERRUPTS THIS ROUTINE
;15 EXITED WITHOUT POPPING THE STACK. THIS POPPING IS DONE AFTER GETTING
;TO RK11 INTERRUPT HANDLER.
; IF FOR ANY REASON THE WAIT LOOP TIME ~AS TO BE CHANGED IT CAN BE DONE
;BY SIMPLY CHANGING THE VARIABLE IN! FOLLOWING THE 'WAT.INTI~
021706
021714

017637
062716

000000
000002

021720
021724
021730
021732

013746
012746
000002
005337
001375

001400
021732

021736
021740

000002

02·1742
02 i 744
021746
021750
0:21752
021754
021756

005000
005001
005200
001376
105201
001374
000207

001366

.,ATINT: MOV
ADD

"( SP) • TIMER
#2. (SP)

MOV
MOV
RT I
DEC
BNE

RKPRI.-(SP)
#1$,-(SP)

1$:

TIMER
1$

;GET r AMOUNT I (N) FOR WHICH
;WAITING IS TO BE DONE
; ADJUST STACK PO I NTER FOR CORRECT RETURN
,DROP CPU PRIORITY SO THAT RKl1 CAN
; INTERRUPT
,WAlT FOR RK11

TO INTERRUPT

; IF INTERRUPT HAS NOT OCCURED BY NOW
; RETURN AND REPORT ERROR
; EXIT

RTl

,WATlME
WATIME: CLR
CLR
1$:
INC
BNE
INCB
BNE
RTS

.SBTTL

RO
R1
RO
1$
R1
1$
PC

CHKCRDY:

CHECK CONTROL READY

,CH.CRDY
THIS ROUTINE WAITS FOR THE CONTROL READY TO SET. IF THE CONTROL READY BIT
DOES NOT SET WITHIN A CERTAIN TIME. THEN THE CONTENTS OF RKCS. RKER. RKDS
AND RKDA ARE SAVED AND AN EXIT MADE TO THE ERROR MESSAGE FOLLOWING THE
'JSR' CALL FOR THlS ROUTINE.
IF CONTROL READY SETS THEN THE RETURN ADDRESS IS AOuUSTED TO SKIP THE
ERROR MESSAGE ON RETURN.

MD-ll-ClRKKF.
CZRKKF.Pll

RKl1

BASIC LOGIC TEST 2

2,-FE8-78 08:51

MACY11 30A(1052)
21-FEB-78 08:58
CHKCRDY:
CHECK CONTROL READY

65' 8
6519
6520

;CALL:

CHKCRDY
ERROR

021760

6523

0:;>1754-

6524
6525
6526

021770

652"/

02177202' 776
022000

005037
105777
100406
005237
001372

001366
157342

004737

020774

6528
6529
6530

022004

000002

022006

6531

022012

062716
000002

CH.CRDY:

1$:

001366

CLR TIMER
TSTB
@>RKCS
8MI
2$
INC
TIMER
BNE
1$
JSR
PC\GT4RG

000002

2$:

SEQ 0119

; RETURN HERE I F ERROR
; RETURN HERE I F NO ERROR

6521

6522

PAGE 120

ADD

; eNTRL ROY SEn
:YES

:NO, WAlT

;SAVE RKCS. ERr OS, DA

#2, (S?)

; ADJUST RETURN ADDRESS TO
;SKIP ERROR MESSAGE ON PErU"N

CON. RESET:

CONTROL REST ROUTH.E

RTI

6532
6533

6534

.58TH

6535

6536
6537
6538
6539
6540
6541
6542

; CON. RESET
;THIS ROUTINE ISSUES A CONTROL RESET AND WAITS FOR
; THE 'CNTH ROY' Fl.AG TO SET.
WHEN THE FI.AG SETS
;AN EXIT IS MADE OUT OF THE ROUTINE.
IF 'CNTRL-RDY'
;OOES NOT SET WITHIN A CERTAIN TIME AN ERROR MESSAGE
eNT ROY DIDN'T SET
;15 GIVEN. NOTE THAT XXX
; IS CALLED.

.SBTTL

;THIS ROUTINE WAlTS FOR THE CONTROL R.AOY

6558
0220 j

0127'('7

01273'1

000001
177500

6561
6562

022030

021032

005037

001170

6563
6564
6565
65S6

O:i2036
022042
022044

;05777

157270

100435
005237

001170

157310
001170

000402

;CALL:
CNT.RDY
CN.RST; MOV
MOV
BR
CN. ROY: CLR
1$:
TSTB

00137.2

022050
02;2052

032777

02:20$0

001026

022064

00 i 245

020000

157060

err TO SET AND WHEN IT

@RKCS

; OlD CN;" L-RDY SET?

;YES, EXIT

$REG3

;WAITED LONG?
; IF NOT. GO BAK & WAIT
: INHIBIT TYPEOUT?
;IF YES, SKIP TYPEOUT

1$
HSW13,OiISWR
3$

MSG3
O~2014

TYPE

::85$:

MQ-·;1-C2RKKI'.
RKK 0 • P' 1

; ISSUE A CONTROL RESET
;SEi UP COUNT
;SKIP OVER eN.ROY

CN. RDV+4
$REG3

INC
BNE

81 T

i 044Q!

104401
000403

#l.I!IRKCS

#-300, SREllS

BM!

SNE
TYPE

6573

BASIC LOGIC TEST::l
21-"6-78 DB: 01

RKt1

.65$

64$

.ASCII

(15)0<12>10(>,;

: ;TYPE ASCIZ STRING
; : GET OVER THE ASCI~

30A(1052)
21-FES-7S 08:53 PAGE
CNT • ROY:
WAlT FOR CONTROL READY

MACY11

022102

6575

022102

GS'-S
6577

022H)4
0221

65'78
65'79

022~']1

104'401

011646
Hi21 Hi

651';0

0221'(6

000404

022130
022130
022 ~ 34

017746
104402

022136

000002

(SF) ,-(,-0)
#2, (SF)

MOV

sus

000002

;80 TYPE PC IN THE MtJ,IN PROCiJ;<AM?
WHERE ERROR OCCURRED
• ;TYPE ASCIZ STRING

TYPOC

l044(l2

TYPE

02212D

SR
.ASCiZ

6581

6582
6583
6584
6585
6596

WAIT FOR CONTROL READY ROUTINE

:SETS EXITS OUT. IF WITHIN A CERTAIN TIME eNTRL ROY DOES
;NOT SET AN ERROR IS REPORTED. WAITING TIME IS 883 MS FOR 11/20
;t75 MS FOR 11/45 WITH BIPOLAR MEMORY.

6550

6574

CNT.ROV:

;eN. ROY

655"

6567
6568
6569
6570
6571
6572

xxx IS THE PC WHERE 'CNT.RESET' OR 'CNT.ROY'

eNT .RESET

;CALL:

6556
6557
6559

PCzXXXXXX RKCS::YYYVVV

6543

6544
6545
6546
6547
6548
6549
6550
6551
6552
6553
6554

157176

MOV
TYPOe

.675
66$
; RKCS·;

; ; GET OVER THE ASCll:

O>RKCS.-(SP)

;GET RKCS

;GO HPE IT
; RETURN FROM THIS

RTI

6587

; ROUTINE TO THE MAIM
; PROGRAM

6588
6589
6590
6:.:·qj

;THIS PART OF THE PROGRAM CONTAINS THE COMMON ROUTINES CALLED
; FROM THE SYSMAC. SML PACKAGE

6592
6593

6594
6595

.58TH

SCOPE HANDLER ROUTINE

6596
6597
ROUTINE CONTROLS THE LOOPING Of SUBTESTS. IT WILL INCP"MENT
,'AND LOAD THE TEST NUMBER(PSTNr,) INTO THE DISPLAY REG,(OISPLAV<7:0»
;-AND LOAD THE ERROR FLAG (SERFLG) INTO D!SPLAY<15:08>
;*THE s.nCH OPTIONS PROVHJED BY THIS ROUTINE ARE:
;_5W14",
LOOP ON nST

6600
66Q1

6602
6603
6604
6605
6606
6607

;'5Wl ;-1

INHIBIT ITERATIONS
LOOP ON E.RROR
l.OOP ON TEST !N S~JR<7: 0>

; *Sw09:.:: 1

; ""swos~,
i II<CALL

:: SCQPE. wr

SCOPE

6608

6609

0.22140

$SCOPE'

61310

022140

66'1 '1

0';/2142

104407
032777

6612
66, 3

022150

00 1 ~ ~ '1

66,4

022 ~:::2

000416

; rEST

CKSWR

040000

159770

1$:

'BIT14,II1SWR

; LOOP ON PRESENT TEST?

BNE

$OVER

iYES iF SW14r.1

Of CODE FOR
6$

6615

6616
6617

0'13746

6619

005'137

OO()004

012737

MOV

000004

MOV
SR
eMF'
MOV

000004

ESTER#####

; J F RlP.JN I NG. ON Tf-'E 1> XOR ,"
: THIS INSTRUCTION TO A
; SAVE THE CONTENTS DF THE
; SET FOR TIMEOUT
; TIME OUT ON X.OR?
,RESTORE THE ERROR VECTOR

MJV
151'

000004

FOR CHANGE IN SQFT-SWR

BIT

;GO TO THE NEXT rEST
;CLEAR THE STACK AFTER A

: RESTORE TtlE ERRQR VECTOR
; LOOP ON THE PRESENT TEST

TES'fERIIIUltI'H

000400

15612:

lSS?14

001102

6626

6621
6620
6629

0014$:2.
105797

001103

;LOOP ON SPEC.

u: NO

TEST?

BEO

; SA

CMP6

I'SWR, $TSTNM

,ON THE RIGHT TEST?

BEQ

$OVER

T5!S

SERFLG

; BR IF YES
; HAS AN ERROR OCCURRED?

5WR<7'O>

MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2
CZRKKF .Pl1
21-FEB-78 OB:51
6630
6631
6632
6633
6634
6635
6636
6637
6639
6639
6640
6641
6642
6643
6644
6645
6646
6647
6648
6649
6650
6651
6652
6653
6654
6655
6656
6657
6658
6659
6660
6661
6662

001421
123737

022234
022236
022244
022246

032777

022254

001404

022256
022264
022266
022272
022276
022300
022306
022310
022314
022316
022322
022330
022332
022340

013737
000443
105037
005037
000415
032777

022346
022352
022356
022362
022366
022374
022402
022406
022410

001115

001103

101015

001000

156664

001110

0011 06

001103
001206
004000

156632

001011

005737
001406
005237
023737
002021
012737
013737
105237
011637
011637
005037
112737
013777
013716
000002
000050

0011 00
001104
001206
000001
022410
001102
001106
001110
001210
000001
001102
001106

001104
001104
001206

001115
156540

RT!

: ;'" "'.* '"

011:$

.S8TTL

08:58

PAGE 122

SEQ 0121

::BR IF NO
: :MAX. ERRORS FOR THIS TEST OCCURRED?
: : BR IF NO
: : LOOP ON ERROR?
: : BR IF NO
: : SET LCo':'P ADDRESS TO LAST SCOPE

3$
$ERMAX, $ERF LG
3$
NBIT09,t'SWR
4$
SLPERR,SLPADR
SOVER
SERFLG
$TlMES
1$
NBIT",t'SWR
1$
$PASS
1$
SICNT
STlMES,SICNT
SOVER
Nl,SICNT
SMXCNT ,STlMES
$TSTNM
(SP) ,SLPADR
(SP) ,SLPERR
SESCAPE

: : ZERO THE ERROR FLAG
: : CLEAR THE NUMBER OF ITERATIONS TO MAKE
: : ESCAPE '0'0 THE NEXT TEST
:: INHIBIT ITERATIONS?
;:BR IF YES
;: IF FIRST PASS OF PROGRAM
"
INHIBIT ITERATIONS
: : INCREMENT ITERATION COUNT
; ; CHECK THE NUMBER OF ITERATIONS MADE
: :BR IF MORE ITERATION REQUIRED
; : REINIT I ALIZE THE ITERATION COUNTER
; ; SET NUMBER OF ITERATIONS TO 00
; : COUNT TEST NUMBERS
; ; SAVE SCOPE LOOP ADDRESS
; ; SAVE ERROR LOOP ADDRESS
; ;CLEAR THE ESCAPE FROM ERROR ADDRESS
;;ONLY ALLOW ONE(1) ERROR ON NEXT TEST
61,SERMAX
STSTNM,@DISPLAY ;; DISPLAY TEST NUMBER
; : FUDGE RETURN ADDRESS
SLPADR, (SP)
;; FIXES PS
; ;MAX. NUMBER OF ITERATIONS

** * •• '" **** ** '" '" *' ."'** **** '" '" oil • • • • **** •• ** *******"'** ."'.*.* ••••••••••

ERROR HANDLER ROUTINE

HALT ON ERROR
INHIBIT ERROR TYPEOUTS
TESTING ON SIMULATOR
LOOP ON ERROR
CYCLE ON ERROR TO PREVIOUS 'SCOPE'
DROP DRIVE AFTER MAXIMUM (ALLOWABLE) ERRORS ON THE DRIVE
; .swas=,
; -GO TO $ERRTYP ON ERROR

:*SW1S=1
;*SW13=1

;*SW10=1
; ·SWag=1
;*SW12=1

022412
022414
022420
022422
022430

104407
105237
001775
013777
005237

022434
022442
022444
022452

032777
001404
023727
101053

000100

156476

001112

000005

022454
022460
022466

011637
162737
117737

001116
000002
156424

001116
001114

0011 03

0011 02

156512

001112

022474
022502
022504

0327"17
001004
004737

022510

104401

0225: 4
022522
022524
022530
022532
022536
022544
022546
022552
022560
022562
022566
022572
022574
022600

023737
001403
005777
100002
000000
104407
032777
001402
013716
032777
001402
013716
005737
001402
013716
000002

022602

005737

022606
022610
022614
022620
022622
022626
022632
022636

001407
104401
005037
022626
000137
013746
162716
013746
004737
042716
062716
042776
062716
042736
012736
104401
013746
004737
104402

022534

022642
022646
022652
022656
022664
022670
022674
022700
022704
022710
022714
022716
022722
022726
022730

104401

005337
022626
000137

$ERROR: CKSWR
7$:
INCB
BEQ
MOV
1$:
INC

6S:

MD-l'-CZRKKF, RKI1 BASIC LOGIC TEST 2
CZRKKF.Pl1
21-FE8-7B OB:51
6686
6687
6688
6689
6690
6691
6692
6693
6694
6895
6696
6697
6698
6699
6700
6701
6702
6703
6704
6705
6706
6707
6708
6709
6710
6711
6712
6713
6714
6715
6716
6717
6718
6719
6720
6721
6722
6723
6724
6725
6726
6727
6728
6729
6730
6731
6732
6733
6734
6735
6736
6737
6738
6739
6740
6741

BEQ
CMPB
BHI
BIT
BEQ
7S:
MOV
BR
4$:
CLRB
CLR
BR
3$:
BIT
BNE
TST
BEQ
INC
CMP
BGE
IS:
MOV
MOV
SSVLAD: INCB
MOV
MOV
CLR
MOVe
SOVER:
MOV
MOV
$MXCNT: 50

6663
6664
6665
6666
6667
65GB
6669
6670
6671
6672
6673
6674
6675
6676
6677
6678
6679
6680
6681
6682
6683
6684
6685

MACY11 30A(1052)
21-FEB-78
SCOPE HANDLER ROUTINE

020000

156436

022734
001213
000042

000046

156374

001106
001000

156360

001110
001210

MOV
SUB
MOVB

(SP)'SERRPC
N2,SERRPe
l'SERRPC,SITEMB

;NO
:MORE THAN 5 ERRORS ON THIS DRIVE?
:YES, DESELCT THE DRIVE

08:58

tI\#42,@I#46

; ARE WE IN ACT11 AUTO MODE?
; YES, HALT ON ERROR
:HALT ON ERROR?
: SKIP IF CONTINUE
; HAL T ON ERROR!
; CHECK FOR SOFTWARE SWITCH REGIATER REQUEST
;SW 12 SET?
:NO, BRANCH
;AOJUST RETURN ADRES FOR 5,.,,2
; LOOP ON ERROR SWITt;~ SET?
; BR I F NO
; FUDGE RETURN FOR LOOPING
; CHECK FOR AN ESCAPE ADDRESS
; SR I F NONE
; FUDGE RETURN ADDRESS FOR ESCAPE
; RETURN

TST

T56FLG

BEQ
TYPE
CLR
CMP
JMP
MOV
SUB
MOV
JSR
BIC
ADO
BIC
ADD
BIC
MOV
TYPE
MOV
JSR
TYPOC
TYPE
DEC
eMP
JMP

10$
,MSG5
DRIVS
(SP)+. (SP)+
SEOP
DRVPTR,-(SP)
#2, (SP)
DRIVAD,-(SP)
PC,SHFTRT
" , (R6)
NDRIVO, (SP)
NBIT1S,l'(R6)
'2, (R6)
NBIl15,@(SP)+
'BIT12,O(SP)+
,MSG4
DRIVAD,-(R6)
PC,SHFTRT

4S:

lOS:

000000

001315
001412
95:
020026
.SBTH

PAGE 123
:SKIP TYPEOUT IF SET
:SKIP TYPEOUTS
:GO TO USER ERROR ROUTINE

5S:

3$:

;GET ADDRESS OF ERROR INSTRUCTION
;STRIP AND SAVE THE ERROR ITEM CODE

HSW13,@SWR
2$
PC,t"SERRTYP
,SCRLF

BS:

2$:

001303
001412
020652
001354
000002
001350
021200
000001
001414
100000
000002
100000
010000
001272
001350
021200

#BIT6.l'SWR
6$
SERTTL.N5
SS

BIT
BNE
JSR
TYPE
CMP
BEQ
TST
BPL
HALT
CKSWR
BIT
BEQ
MOV
BIT
SEQ
MOV
TST
BEQ
MOV
RTl

001210
001434

;DESELECT DRIVE SW SET?

BIT
BEQ
CMP
BHI

MACY11 30A(1052)
21-FEB-78
ERROR HANDLER ROUTINE

156410

010000

; CHECK FOR SOFTWARE SWI TCH REGISTER REQUEST
: SET THE ERROR FLAG
SERFLG
; DON'T LE T THE FLAG GO TO ZERO
7$
STSTNM,t'DISPLAY ;DISPLAY TEST NUMBER AND ERROR FLAG
; COUNT THE NUMBER OF ERRORS
SERTTL

.+10
@SWR~

'SWI2,@SWR

.+6
SLPADR, (SP)
NSW09,@SWR
4$
$LPERR, (SP)
$ESCAPE
5$
$ESCAPE, (SP)

; IF EROR WAS IN LAST TEST (POLL)
;DRDP ALL THE DRIVES

,MSG6
DRIVS
(SP)+, (SP)+
BTEDP

: DROP THE DRIVE FROM THE
:SELECTION LIST
:ORIVE ADDR TO STACK
: RIGHT JUSTIFY
;MAKE EVEN
; POINTS TO TABLE FOR EVEN DRIVE
; TEST REMAINING DRIVE AS RK05E
: POINT TO ODD
: TEST AS RK-05E
; INDICATE THIS DRIVE DROPPED
:PUSH DRIVE N ON STACK
;SHIFT I T BEFORE TYPING
: TYPE DUT DRIVE #
:DECREMENT • OF DRIVES PRESNT
; RESTORE STACK
• GO BACK TO THE END OF PROGRM
: LINKAGE.

ERROR MESSAGE TYPEOUT ROUTINE

; ; ",.* ...... * ... "' ... * ** "'.'" '"

.*. '" *

*' '" "' .... * '" "' ... "' ...... '" "' ....... "' ..... "' ..... '" "''II •• '" "'* "' ............. .

;.THIS ROUTINE USES THE 'ITEM CONTROL BYTE" (SITEMB) TO DETERMINE WHICH
;.ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE "ERROR TABLE' (SERRTS),
;_AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR,
022734

SERRTYP:

SEQ 0122

MD-"-CZRKKF, RKll BASIC LOGIC TEST 2
CZRKKF. Pll
21-FEB-7B 08:51
6742
6743
6744
6745
6746
6747
6748
6749
6750
6751
6752
6753
6754
6755
6756
6757
6758
6759
6760
6761
6762
6763
6764
6765
6766
6767
6768
6769
6770
6771
6772
6773
6774
6775

67i6
6777
6778
6779
6780
6781
6792
6783
6784
6785
67as
6787
6788
6789
6790
6791
6792
6793
6794
6795
6796
6797

022734
022740
022742
022744
022750

104401
010046
005000
153700
001004

001213

022752

013746

001116

022756
022760
022762

104402
000426
005300
006300
006300
006300
062700
012037
001404
104401
000000
104401
012037
001404
104401
000000
104401
011000
001004
012600
104401
000207

022764
022766
022770
022772
022776
023002
023004
023006
023010
023014
023020
023022
023024
023026
023032
023034
023036
023040
023044
023046
023046
023050
023052
023054
023056
023062
023064

001114

":
001442
023006

25:
001213
023024

3S:

4$:
001213

5S:

65'
001213

6833
6834
6835
6836
6837
6839
6B39
6B40
6841
6B42
6843
6844
6845
6846
6847
6848
6849
6B50
6851
6852
6853

TYPE
MDV
CLR
Bisa
BNE

,SCRLF
RO,-(SP'
RO
IINSITEMB,RO
1$

MOV

SERRPC,-(SP)

TYPOC
BR
DEC
ASL
ASL
ASL
ADD
MOV
BEQ
TYPE
.WORO
TYPE
MOV
BEQ
TYPE
.WORD
TYPE
MOV
BNE
MOV
TYPE
RTS

PAGE 124

SEQ 0123

;; "CARRIAGE RETURN" IS IIILINE FEED; ;SAVE RO
: ;PICKUP THE ITEM INDEX
;; IF ITEM NUMBER IS ZERO, .lUST
; ; TYPE THE PC OF THE ERROR
: : SAVE SERRPC FOR TYPEOUT
: ; ERROR ADDRESS
:;GO TYPE--OCTAL ASCII(ALL DIGITS)

; ;GET OUT

RO
RO
RO
RO
NSERRTS,RO
(RO)+,2S
3$

;;ADuUST THE INDEX SO THAT IT WILL
; ;
WORK FOR THE ERROR TABLE
;; FORM TABLE POINTER
; ;PICKUP "ERROR MESSAGE' POINTER
; ;SKIP TYPEOUT IF NO POINTER
; ;!YPE THE "ERROR MESSAGE"
;; "ERROR MESSAGE" POINTER GOES HERE
i; lICARRIAGE RETURN" & -LINE FEED; ;PICltuP "DATA HEADER' PDINTER
; ;SKIP TYPEOUT IF 0
; ;TYPE THE "OATA HEADER'
;; "DATA HEADER' POINTER GOES HERE
,; 'CARRIAGE RETURN' a 'LINE FEED'
:; PICKUP "DATA TABLE' POINTER
; ;GO TYPE THE DATA
; ; RESTORE RO
;; 'CARRIAGE RETURN' & 'liNE FEED"
;: RETURN

o
,SCALF
(RO)+,4$
55

o
, SCRLF

(RO) ,RO
7$
(SP)+,RO
,SCRLF
PC

7S:
013046
104402
00571 0
001770
104401
000771
020040
023070

023064

es:

000

.SBTH

MOV
TYPOC
TST
BEQ
TYPE
BR
.ASCIZ
.EVEN

O(RO)+,-(SP)

;; SAVE P( RO)+ FOR TYPEOUT
,;GO TYPE--OCTAL ASCll(ALL DIGITS)
;, IS THERE ANOTHER NUMBER?
; ; BR IF NO
;; TYPE TWO(2) SPACES

(RO)
6$
,S$
75

;; LOOP

;;TWO(2) SPACES

TYPE ROUTINE

; ; '" '" '" '" '" III III '" '" '"

"'.It-

.*. '"

lit'" '" II< "'.* .. '" '"

*. '" '" '" ** "' ... '" '" "'. '" '" '" '" ** .... * '" '" '"
111 "'.

",III '" • • • • •

;.ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE.
;.THE ROUTINE WiLL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.
;-NOTE1:
$NULL CONTAINS THE CHARACTER TO BE USED AS THE FI~~ER CHARACTER.
"NOTE2:
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
;.NOTE3:
$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

,.;*CALL;

" , ) USING A TRAP INSTRUCTION
;•
TY PE
,MESADR

; ,MESADR IS FIRST ADDRESS OF AN ASClZ STRING

; .OR
,.
,.

TYPE
MESADR

MD-I1-CZRKKF, RK11 BASIC LOGIC TEST:2
CZRKKF.Pl1
21-FEB-78 08:51
6798
6799
6800
6801
6802
6803
6804
6805
6906
6807
6808
6809
6010
6811
6812
6813
6814
6B15
6816
6817
6B18
6819
6820
6821
6822
6823
6824
6825
6826
6B27
6828
6829
6830
6B31
6832

MACYll 30A(1052)
21-FEB-7B OB:5B
ERROR MESSAGE TYPEOUT ROUTINE

023070
023074
023076
023100
023102
023104
02311 0
023112
023114
023116
023120
023124
023126
023132
023134
0"3140
023142
023144
023146
023150
023154
023156
023162
023166
023170

105737
100002
000000
000407
010046
017600
112046
001005
005726
012600
062716
000002
'122716
001430
122716
001006
005726
104401
001213
105037
000755
004737
123726
001350
013746

023174
023200
023202
023206
023212

105366
002770
004737
105337
000770

023214
023220

112716
004737
132737
001372
005726
000724
105777
100375
116677
122766
001003
105037
000406
122766
001402
105227
000000
000207

MACVII 30A(1052)
TYPE ROUTINE
$TYPE:

001157

1$:
000002
25:

000002

60$:
3$:

000011

4$:

000200

023304
5$:
6$:

023240
001156
001154

7$:

000001
023240
023304

:11-FEB-78

OS'S9

PAGE 125
SEQ 0124

TST9
BPL
HALT
BR
MOV
MOV
MOVB
BNE
TST
MOV
ADD
RTI
CMPS
BEQ
CMPB
BNE
TST
TYPE
$CRLF
CLRB
BR
uSR
CMPB
aNE
MOV

SCHARCNT
2$
PC,STYPEC
$FI~LC, (SP)+
2$
$NULL,-(SP)

DECB
BLT
uSR
DECB
BR

1 (SP)
6$
PC,STYPEC
$CHARCNT
7$

STPFLG
1$
3$
RO,-(SP)
112(SP) ,RO
(RO)+,-(SP)
4$
(SP)+
(SP)+,RO
#2, (SP)
HHT,(SP)
8$
NCRLf, (SP)
5$
(SP)+

:: IS THERE A TERMINAL?
:;BR IF YES
,;HALT HERE IF NO TERMINAL
;, LEAVE
; ;SAVE 1<"
; ; GET ADDRESS OF ASCIZ STRING
, ; PUSH CHARACTER TO BE TYPED ONTO STACK
::BR IF IT ISN'T THE TERMINATOR
;; IF TERMiNATOR POP IT OFF THE STACK
; ; RESTORE RO
:: ADuUST RETURN PC
:: RETURN
;: BRANCH IF <HT>
; ; BRANCH ! F NOT <CR LF>
; ; pop <CR><LF> EQU tv
; ;TYPE A eR AND LF
CLEAR CHARACTER COUNT
GET NEXT CHARACTEcl
GO TYPE THIS CHARACTER
IS IT TIME FOR FI LLER CHARS.?
I F NO GO GET NEXT CHAR.
GET H OF F I ~LER CHARS. NEEDED
AND THE NU L L CHAR.
DOES A NULL NEED TO BE TYPED?
BR IF NO--GO POP THE NULL OFF OF STACK
GO TYPE A NULL
DO NOT COUNT AS A COUNT
LOOP

,HORIZONTAL TAB PROCESSOR

023n4
023232
023234
023236
023240
023244
023246
023254
023262
023264
023270
023272
023300
023302
023304
023306

000040
023240
000007

8$:
9$:
023304

155704
000002
000015

155676
000002

023304
000012

000002

MOVB
uSR
BITB
BNE
TST
BR
STYPEC: TSTS
BPL

Move

CMPB
BNE
CLRS
8R
1$:
CMPB
8EQ
INCB
$CHARCNT: • WORD
$TYPLX' RTS
.SBTTL

"
,(SP)
PC,5TYPEC
,SCHARCNT
9$
(SP)+

2$
PSTPS
STYPEC
2(SP) ,"'STPB
HCR,2( SP)
lS
SCHARCNT
$TYPEX
NLF,2(SPI
STYPEX
(PC)+

REPLACE TAB WITH SPACE
TYPE A SPACE
BRANCH I F NOT AT
TAB STOP
POP SPACE OFF STACK
GET NEXT CHARACTER
WAIT UNTI L PRINTER IS READY
LOAD CHAR TO BE TYPED INTO DATA REG.
IS CHARACTER A CARRIAGE RETURN?
BRANCH I F NO
YES--CLEAR CHARACTER COUNT
EXIT
IS CHARACTER A LINE FEED?
BRANCH IF YES
COUNT THE CHARACTER
CHARACTER COUNT STORAGE

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

MD-ll-CZRKKF, RKll BASIC LOGIC TEST 2
CZRKKF.p11
.21-FEB-78 08:51

6854
6855
6856
6857
6858
6859
6860
6861
6862
6863
6864
6865
6866

6867
6868
6869
6870
6871
6872
6873
6874
6875

6876
6877
6878
6879
6880
6881
6882
6883

6384
6865
6886
6887
68S8
6889
6890
6891
6892
6893
6894
6895
6896
6897
6898
6899

6900
6901

6902
6903
6904
6905
6906
6907
6908
6909

: ; * I!<" '" *", l\< '" >I< '* >I< * *'" '" >1<* "'* "' .. "'". ** **.:;. *".."'. >Ie "'. *'" *'

>1< . . . .

>1<. '" >I< **

*'" "''''* '" **$ '" ** **

;*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT

;*CALL:

023310

023312
023314
023316
023320
023322
023326
023332
023334
023336
023344
023346
023352
023356
023360
023364
023365
023370
023372
023374
023376

023400
023402
023404
023406
023410
C23412
023420
023424
023430
023432
023434
023440
023442
023444

023446
023450
023452

023454
023462
023464
023466
023470
023472

010046
010146
010246
010346
010546
012746
016605
100004
005405
'12766
005000
012703
112723
005002
0,6001
160105
002402
005202
000774
060105
005702
001002
105716
100407

020200
000020

000055

2$:
023514

3$:

023512
023514
023516
023520
023522
023524

;; PUT THE BINARY NUMBER ON THE STACK
; ;GO TO THE ROUTINE

MOV
MOV
MOV
MOV
MOV
MOV
MOV
BPl
NEG

; ; PUSH RO ON STACK
;;PUSH R1 ON STACK
; ; PUSH R2 ON STACK
;; PUSH R3 ON STACK
i; PUSH R5 ON STACK
; ;SET BLANK SWITCH AND SIGN
; ; GET THE INPUT NuMBER

CMP

RO,-(SP)
R1,-(SP)
R2,-(SP)
R3,-(SP)
RS,-(SP)
#20200,-(SP)
20(SP) ,R5
1$
RS
# '-,1 (S~)
RO
#$OBLK, R3
#' ,(R3)+
R2
$OTBL(RO) ,Rl
R1,RS
4$
R2
3$
R1 ,RS
R2
5$
(SP)
7$
(SP)
6$
1 (SP) ,-1 (R3)
# I O. R2
HI ,R2
R2,(R3)+
(RO)+
RO," 0

4$:

5$:

106316

103003
116663
052702
052702
110223
005720
020027
002746
003002
010502
0007[,4
105726
100003

BGT
MOV
SR
TST8
BPL
MOV8
CLRB
MOV
MOV
MOV
MOV

B$
RS,R2
6$
(SP)+
9$
-1 (SP) ,-2(R3)
( R3)
(SP)+,RS
(SP)+,R3
(SP)+,R2
(SP)+,R1

116663

000001
000060
000040

6$:
7$ :

000010

8$:
177771

177776

105013

012601

BASIC LOGIC TEST 2

023524
000002

INC
BR
ADO
TST
BNE
T5rB
8011
ASLB
SCC

Move

177777

012605
012603
012602

012600
104401
016666
012616
000002
023420
001750
000144
00001:2
000004

CLR
MOV
MDVB
CLR
MOV
SU8

8LT

RK11

023510

NUM,-(SP)

MOVB

000001

023524
000040

21-FEB--78 08:51

023474
023476
023502

MOV
TYPOS
STYPOS:

023310

ClRKKF.P11

BIS
BIS
MOVS
TST

MACY1130A('OS2)

21-FEB-78

;;BR IF INPUT IS POS.

; ;MAKE THE BINARY NUMBER pas.
; ;MAKE THE ASCII NUMBER NEG.
;; ZERO THE CONSTANTS INDEX
; ; SETUP THE OUTPUT POINTER
;: SET THE FIRST CHARACTER TO A BLANK
; ; CLEAR THE BCD NUMBER
; ;GET THE CONSTANT

;; FORM THIS ·BCD DIGIT
;;BRIFDONE
; ; INCREASE THE SCD DIGIT BY 1
: ; ADD BACK THE CONSTANT
: ;CHECK IF BCD DIGlT=O
:;FALL THROUGH IF 0
;;STILL DOING lEADING D'S?
;;SR IF YES
; ;MSD?
; ; BR IF NO
; ; YES--SET THE SIGN
; ;MAKE THE BCD DIGIT ASCII
; ;MAKE IT A SPACE IF NOT ALREADY A DIGIT
;; PUT THIS CHARACTER IN THE OUTPUT BUFFER

; ;JUST INCREMENTING
; ; CHECK THE TABLE INDEX
; : GO DO THE NEXT DIGIT
;;GOTO,XlT
; ; GET THE LSD
; ; GO CHANGE TO ASCII
; ; WAS THE LSD THE FIRST NON-ZERO?
; ; SR IF NO
; ; YES--SET THE SIGN FOR TYPING

; ;SET THE TERMINATOR
; ;POP
;; POP
;; POP
;; POP

oe;SB

STACK
STACK
STACK
STACK

INTO
INTO
INTO
INTO

R5
R3
R2
Rl

PAGE 127

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

000004
$OTBl:

MOV
TYPE
MOV
MOV
RT I
10000,

(SP)+,RO
, $OBLK
2(SP) ,4(SP)
(SP)+, (SP)

SEQ 0126

; ;POP STACK INTO RO
; ; NO\, TYPE THE NUM8ER
; ; ADJUST THE STACK
; ; RETURN TO USER

1000.
100.
$OBLK:

10.
.BLKW

.S8TTl

BINARY TO OCTAL (ASCII)

4
AND TYPE

ROUTINE IS USED TO CHANGE A 16-BIT
;'OCTAL (ASCII) NUMBER AND TYPE IT.
; :~~~~~S---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUM8ER OF DIGITS TO TYPE

6928

;

6929
6930
6931
6932
6933
6934
6935
6936
6937
6938
6939
6940
6941
6942
6943
6944
6945
6946
6947
6948
6949
6950
6951
6952
6953
6954
6955
6956
6957
695B
6959
6960
6961
6962
6963
6964
6965

SEQ 0125

;'SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE
;'NUMBER IS POSITIVE OR NEGATIVE A SPACE DR A MINUS SIGN WILL 8E TYPED
;.8EFORE THE FIRST DIGIT Of THE NUM8ER. LEADING ZEROS WILL ALWAYS 8E
;'REPLACED WITH SPACES.

MD-1'-CZRKKF,

6910
6911
6912
6913
6914
6915
6916
6917
6918
6919
6920
6921
6922
6923
6924
6925
6926
6927

MACY" 30A(1052)
21-FEB-78
08:58
PAGE 126
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

MOV
TYPOS
• SYTE
• BYTE

NUM,-(SP)
N
M

; ;NUM8ER TO 8E TYPED
; ; CALL FOR TYPEOUT
; ;N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE
;;M=10RO
; : 1 =TYPE LEADING ZEROS
;: O=SUPPRESS LEADING ZEROS

; :~i~~g~-~;-i~~~~CHERE TO TYPE OUT WITH cHE SAME PARAMETERS AS THE LAST

;*CAlL:

MOV
TYPON

MOV
TYPOC

;

NUM,-(SP)

i ;NUMBER TO BE TYPED
; ; CALL FOR TYPEOUT

; :~;r~~C---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER

;*
023S34
023540
023546
023552
023556
023560
023566
023574
023602
023604

023606
023610

023614
023616
023622
023626
023632
023636
023640
023642

017646
116637
112637
062716
000406
112737
112737
i 1 2737
010346
010446
010546
113704
005404

000000
000001
023761
000002

023757

000001
000006
000005

0237S7
023761
023756

023761

062704

000006

110437
113704
016605

023760
023757
000012

$TYPOS:

MOV
MOVB
Mov8
ADO
8R
$TYPDC: MOVS
MOVS
SHPON: MOVS
MOV
MOV
MOV
MOV8
NEG
ADD

MOVS

005003
006105
000404

15:

MOVB
MOV
CLR
ROL
BR

NUM,-(SP)

; : NUMBER TO BE TYPED

; ; CALL FOR TYPEOUT
I'(SP) ,-(SP)
1 (SP) ,$OFILL
(SP)+,$OMODE<·1
#2, (SP)
$ TYPON
#l,$OFILL
#6, $OMODE+1
#5, $OCNT
R3,-(SP)
R4 ,-( SP)
RS,-(SP)
$OMODEH, R4
R4
H6,R4
R4, $OMODE
$OFlLL,R4
12(SP) ,R5
R3
R5
3$

;PICKUP THE MODE
; lOAD ZERO FI lL SWITCH
;NUMBER OF DIGITS TO TYPE
; ADJUST RETURN ADDRESS
;SET THE
;SET FOR
;SET THE
; SAVE R3
; SAVE R4
; SAVE R5
;GET THE

ZERO FILL SWITCH
SIX(6) DIGITS
ITERATION COUNT

NUMBER OF DIGITS TO TYPE

SUBTRACT IT FOR MAX. ALLOWs:.O
SAVE I T FOR USE
GET THE ZERO FILL SWITCH

PICKUP THE INPUT NUMBER
C LEAR THE OUT PUT WORD

ROTATE MSB INTO
GO DO MSB

"e"

MD-ll-CZRKKF, RKll BASIC LOGIC TEST:I
CZRKKF.Pl1
21-FEB-79 09:51
6966
6967
69S6
6969
6970
6971
6972
6973
6974
6975
6976
6977
6976
6979
6980
6981
6982
6983
6984
6985
6986
69B7
69B8
69B9
6990
6991
6992
6993
6994
6995
6996
699'/
6998
6999
7000
7001
7002
7003
70Q4
7005
700S
7007
7008
7009
7010
7011
7012
7013
7014
7015
7016
7017
701S
7019
7020
7021

023844
023646
023650
023652
023654
023656
023662
023664
023670
023672
023674
023576
023700
023704
023710
023714
023720
023724
023726
023730
023732
023734
023736
023740
023742
023750
023752
023754
023755

023756
023757
023760

00610S
00610S
006105
010503
006103
105337
100016
042703
001002
005704
001403
005204
052703
052703
110337
104401
105337
003247
002402
005204
000744
012605
0126C4
012603
016666
012616
000002
000
000
000
000
000000

2$:

023760
177770

4$:
000060
000040
023754
023754
023756

5$:

6$:

000002

000004
8S:
saCNT:
SOFILL:
SOMODE:
.SBTH

707.
7075
7076
7077

ROL
ROL
ROL
MOV
ROL
DECB
BPL
BIC
BNE
TST
BEQ
INC
BIS
BIS
MOVB
TYPE
OEca
BGT
BLT
INC
BR
MOV
MOV
MOV
MOV
MOV
RTI
.BYTE
.BYTE
• BYTE

• BYTE
.WORD

RS
RS
RS
R5,R3
R3
$OMODE
7$
'177770,R3
4$
R4

5$
R4
N 1 0 I R3

1/ I ,R3
R3,8$
,B$
SOCNT
2$
6$
R4
2$
(SP)+,R5
(SP)+,R4
(SP)+,R3
2(SP) ,4(SP)
(SP)+, (SP)

; : "',. >I< '" '4< "' ... "' ... '" '"

023776

024000
024004
024010
024014
024016
024024
024026
024032

022737
001074
105771
100071
117746
042716
022726

000176

001140

155146
155>42
177600
000007

JO 1 062
~237~7

1)01456

104401
10440"\

024036
024042
024044
024050
024052
024054
024060

013746
104402
104401
005046
005046
105777
100375

000116

024062
024066

117746
042716

155060
177600

024072
024076
024100
02., D.
024110

021627
00 1 005
104401
062706
000757

024642

024112
024116
024120
024124
024126
024134
024140
024144
024152
02415.
024162
024164
024170
024174
024176
024202
024204
024210
024214
024216
024220
024222
024224
024230
02423.
024236
024242

021627
001022
005766
00 1403
016677
062706
104401
123727
001003
012777
000002
004737
021627
002420
021627
003015
042726
005766
001403
006316
006316
006316
005266
056616
000707
104401
000720

TYPOC
TYPE
CLR
CLR
TSTB
BPL

024665

7$:

MOVS

BIC

95:

000025

0110006

20$'

0000IS

10$'

000004

000002
000005
001213
001135

000001

000100

154762

023240
000060

155004
11$:
14$:

ISS:
1S$'

; ; RESTORE R3

; ;SET THE STACK FOR RETURNING

** '" '" '" ••• '" •••• * >/I 'II"' ' ' "' . . '"

,SCNUG
,$MSWR

110 '" '"

0(1 '" "'''''''

** ••• "" "'* oil*"* ."'. '" "'oil • • '" **

** ....... ** '" "' .. '" ** '" '" *"' . . $. • • ** *'" .,,*
oil<

.DSABL

$IJ . . .

SEQ 0128
; ; SAVE SwREG FOR TYP;'QUT
; ;GO TYPE--OCTA~ ASCLl(AlL DIGITS)
; : PROMPT FOR NEw SWR
; ;CLEAR COUNTER
; : THE NEW SWR
; i CHAR THERE?

; ; I F NOT TRY AGAIN

; ; IS IT A CONTROL-U?
; ; BRANCH I F NOT
: ;YES, ECHO CONTROL-U (OU)
; ; IGNORE PREV IOUS IN~UT
;; LET' 5 TRY IT AGAIN

#6,SP
,SCRlF
$INTAG, #1
15$
#100,IO$TKS

BR
LSB

PAGE 129

(SP),#25
10$
,SCNTLU

2(SP) ,ClSWR

TYPE

08:5B

; : PICK UP CHAR
; ;MAKE IT 7-BIT ASCI'

ADD
TYPE
CMPB
BNE
MOV
RT!
JSR
CMP
BlT

ISS'

; ; ECHO THE CONTROL-G (-G)
: ; TYPE CURRENT CONTEATS

I'STKB,-(SP)
#"C177,(SP)

MOV

ASL

-(SP)
@STKS
7$

(SP),#15
16$
4{SP)
11$

INC
SIS

: II< $$

,SMNEW

-(SP)

CMP
BNE
TST
BEQ

i7$'

177776

SWREG.-(SPJ

116,SP
19S

BGT
BIC
TST
SEQ
Asl
ASL

000060
000002

001212

i ; SUPPRESS THIS 01

;;BR IF YES
; : DON'T SUPPRESS ANY~ORE 0' 5
; ;MAKE THIS DIGIT ASel!
; ;MAKE ASCII IF NOT ALREADY
; ;SAVE FOR TYPING
; ;GO TYPE THIS DIGIT
; ;COUNT BY I
: ; 8R I F MORE TO 00
: :SR IF DONE
;;INSURE LAST DIGIT YSN'T A BLANK
; ;GO DO THE LAST DIGIT
; ; RESTORE R5
; ; RESTORE R4

** It< *. Ii< tI: ... '" **.* *

CMP
BNE
TYPE
ADD
SR

eM?

000061

r..~CC:~2

11< ... '"

MACY11 30A(1052)
21-FEB-78
TTY INPUT ROUTINE
MOV

155064

; ;GET lSB OF THIS DIGIT
; ;TYPE T"IS DIGIT?
; : SR IF NO
;;GET RID OF JUNK
:: TEST FOR 0

;.SOFT~ARE SWITCH REGISTER CHANGE ROUTINE,
;>ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL
;-SERVICE THE TEST FOR ':HANGE IN SOFTWARE SWITCH REG1STER TRAP CA~~
; >WHEN OPERATING IN TTY FLAG MODE,
WSWREG,SWR
; :IS THE SOFT-SWR SEtECTEO?
SCKSWR: CM?
BN E
15$
; ; BRANCH I F NO
TST8
4P$TKS
; ;CHAR THERE?
15$
;; IF NO, DON'T WAIT AROUND
BPL
MOVS
4P$TKB,-(SP)
; ;SAVE THE CHAR
BIC
rC177,(SP)
;;STRIP-OFF THE ASCI'
CMP
N7, (SP)+
;: IS IT A CONTROL G1
BNE
I S5
: ; NO, RETURN TO USER
CMPB
SAUTOS,'1
: ;ARE WE RUNNING IN 'UTO-MODE?
SEQ
155
: ; BRANCH I F YES

TYPE
SGTSWR: TYPE

024647
024654

SEO 0121

; ; FORM THIS OIGI T

TTY INPUT ROUTINE

; ; '" "'* '" '" **LSB
'" "'* *.** •• *"'*

023762
023770
023772

PAGE laS

;; RETURN
; ; STORAGE FOR ASCII DIGIT
; ; TERMINATOR FOR TYPE. ROUTINE
; ;OCTAL DIGIT COUNTER
; ;ZERO FILL SWITCH
; ;NUMBER OF DIGITS TrJ TYPE

o
o
o
o

.ENASL

1.1D-l1-CZRKKF, RK11 BASIC LOGIC TEST 2
ClRKKF ,Pll
21-FEB-7B 08:51
7022
7023
702.
702,
7026
7027
7028
7029
7030
7031
7032
7033
7034
7035
7036
7037
7038
7039
'/040
7041
7042
7043
7044
7045
7046
7047
704B
7049
7050
7051
7052
7053
70S.
7055
7056
7057
7058
7059
7060
7061
7062
7063
7064
7065
7066
7067
7068
7069
7070
7071
7072
7073

MACY'1 30A(1052)
al-FEB-?
09:59
BINARY TO OCTAL (ASCII) ANO TYPE

PC,STYPEC
(SP) ,N60
18$
(SP) ,un
18$
#60, (SP)+
2(SP)
17$
(SP)
(SP)
(SP)
2(SP)
-2(SP),(SP)

75
,SOUES
20$

: ; I S IT A <CR>?
: ; BRANCH IF NO
; ;YES, IS IT THE FIR'>T CHAR?
: : BRANCH I F YES
: ; SAVE NEW SWR
: ;CLEAR UP STACK
; ; ECHO <CR> AND <LF>
: ; RE-ENASLE TTY KBD lNTERRUPTS?
; ; BRANCH IF NOT
; : RE-EN'ABLE TTY KBD '.NTERRUPTS
; : RETURN
;; ECHO CHAR
; ;CHAR < 01
; ; BRANCH I F YES
; ;CHAR > 11
: ; BRANCH IF YES
; : STRIP-OFF ASCI!
;: IS THIS THE FIRST CHAR
; ; BRANCH I F YES
; :NO, SHIFT PRESENT
t 1
CHAR OVER TO MAi\E
• I
ROOM FOR NEW ON~a
; ; KEEP COUNT OF CHAR
; ;SET IN NEW CHAR
; ; GET THE NEXT ONE
; ; TYPE '~CR><LF>
; ;SIMUlATE CONTROL-U

* •• >:\IIIo.'IIi • • • • '* ."' •• $* $. \1;._ III'" * ••• * ** •• "'''' •• '" "'.$ 111111 . . . . . . '" '" .$$$."

-THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY
iQCAl..~

,
ROCHR
RETURN HERE

;; INPUT A SINGLE CHAPACTER FROM THE TTV
; :CHARACTER IS ON TH~ STACK
; :WITH PARITY BIT STRIPPED OFF

MO-ll-CZRKKF. RK11 BASIC LOGIC TEST 2
21-FEB-7B DB: 51
CZRKKF. P11
7078
7079
70BO
70Bl
7082
7083
70B4
7085
70B6
70B7
70BB
70B9
7090
7091
7092
7093
7094
7095
7096
7097
7098
7099
7100
7101
7102
7103
7104
7105
7106
7107
7108
7109
7110
7111
7112
7113
7114
7115
7116
7117
7118
7119
7120
7121
7122
7123
7124
7125
7126
7127
7128
7129
7130
7131
7132
7133

024244
024246
024254
024260
024262
024270
024276
024304
024306
024312
024314
024320
024324
024330
024332
024334
024342
024344
024352
024354
024362

011646
016666
105777
100375
117766
042766
026627
001013
105777
100375
117746
042716
022627
001366
000750
026627
002407
026627
003003
042766
000002

000004
154664

000002

154660
177600
000004

000004
000004
000023

154532
154626
177600
000021

000004

000140

000004

000175

000040

000004

; ; .., '" >I<

SEQ 012g

; ; PUSH DOWN THE PC
: : SAVE THE PS
::WAlT FOR
: : A CHARACTER
: : READ THE TTY
: :GET RID OF JUNK IF ANY
:; IS IT A CONTROL-51
: : BRANCH I F NO
: :WAIT FOR A CHARACTER
:: LOOP UNTI L ITS THERE
: :GET CHARACTER
: :MAKE IT 7-BIT ASCII
:: IS IT A CONTROL-Q?
:: IF NOT DISCARD IT
: :YES, RESUME
: :!S IT UPPER CASE1
: : BRANCH I F YES
;:15 IT A SPECIAL CHAR?
i ; BRANCH 1 F YES
: : MAKE IT UPPER CASE
: : GO BACK TO USER

(SP) ,-(SP)
4(SP) .2(SP)
.STKS
1$
@$TKB,4(SP)
rC<177>.4(SP)
4(SP) ,#23
3$
!>$TKS
2$
@$TKB,-(SP)
rC177, (SP)
(SP)+,'21
2$
1$
4(SP) •• 140
4$
4(SP) ,#175
4$
'40,4(SP)

$ROCHR: MOV
MOV
TSTB
1$:
BPL
MOVS
BIC
CMP
BNE
TSTB
2$'
BPL
MOVB
BIC
CMP
BNE
BR
3$:
CMP
BLT
CMP
BGT
8IC
4$:
RTI

PAGE 130

"'*** ** "''''.''' *"'.>Ie.",,,, "'."''''* "'*'" •• '" '" '" **** *-"' •• '" *' '" "' . . '" ** Iie***** ****

: _THIS ROUTINE WILL INPUT A STRING FROM THE TTY

*. "'.

,*CALL:

024364
024366
024370
024374
024400
024402
024404
024406
024412
024414
024416
024420
024426
024432
024436
024440
024444
024446
024452
024456

024460
024462
024464
024472
024476
024500

010346
005046
012703
022703
101456
104410
112613
122713
001022
005716
001007
112737
104401
012716
005303
020327
103434
111337
104401
000746
005716
001406
112737
104401
005016
122713

024620
024642

000177

000134
024616
177777

024616

024620
024616
024616

000134
024616

024616

000025

MD-ll-CZRKKF, RKll BASIC LOGIC TEST 2
CZRKKF. Pl1
21-FEB-78 08: 51
7134
7135
7136
7137
7138
7139
7140
7141
7142
7143
7144
7145
7146
7147
7148
7149
7150
7151
7152
7153
7154
7155
7156
7157
7158
7159
7160
7161
7162
7163
7164
7165
7166
7167
7168
7169
7170
7171
7172
7173
7174
7175
7176
7177
7178
7179
71BO
7181
7182
7183
71B4
7185
7186
7187
7188
7189

08.58

21-FEB-7B
MACYl1 30A(1052)
TTY INPUT ROUTINE

024504
024506
024512

024514
024520
024522
024524
024530
024534
024536
024542
024544
024550
024554
024560
024562
024566
024572
024574
024576
024600
024606
024614
024616
024617
024620
024642
024647
024654
024662
024665
024672

001003
104401
000726
122713
001011
105013
104401
104401
000717
104401
000712
111337
104401
122723
001305
105063
104401
005726
012603
011646
016666
012766
000002
000
000
000022
052536
136
005015
020075
040
036440

.SBTH

TRAP DECODER

000002
000004

j;GOTYPE
: : GO READ ANOTHER CHAR.
: ; RU80UT KEY SET?
: : BR IF NO
: : TYPE A BACK SLASH
, : CLEAR THE RUBOUT KEY
: : IS CHARACTER A CTRL U?

OB:58

SEQ 0130

; :TYPE A CONTROL "U"

; ;GO START OVER
;; IS CHARACTER A "'"'R"?
i ; BRANCH I F NO
: :CLEAR :HE CHARACTER
::TYPE A "CR" & "LF"
; : TYPE THE INPUT STRING
: ;GO PICKUP ANOTHER CHACTER
;; TYPE A ?'
; :CLEAR THE BUFFER AND LOOP
; : ECHO THE CHARACTER

i ;CHECK FOR RETURN
; ; LOOP I F NOT RETURN
,:CLEAR RETURN (THE IS)
; : TYPE A LINE FEED
: :CLEAN RUBOUT KEY FROM THE STACK
: : RESTORE R3
: : ADJUST THE STACK AND PUT ADDRESS OF THE
, ,
FIRST ASCI! CHARACTER ON IT
: : RETURN
; :STORAGE FOR ASCll CHAR. TO TYPE
: :TERMINATOR
: : RESERVE 22 8YTES FOR TTY INPUT
: : CONTROL "U·
; : CONTROL "G"

o
22
rU/<lS><12>

rG/<15><12>

PAGE 131

; ; BR I F NO

8$
,$CNTLU
1$
#22,(R3)
3$
(R3)
,$CRLF
,$TTYIN
2$
,$QUES
1$
(R3) ,95
,9$
#15,(R3)+
2$
-1 (R3)
,$LF
(SP)+
(SP)+,R3
(SP) ,-(SP)
4(SP) ,2(SP)
#$TTYIN,4(SP)

,ASCIZ

177777
001214

005015
006507
053523
000
047040
000040

MACYll 30A(1052)
21-FEB-78
TTY INPUT ROUTINE

$MNEW:

024616
024616
000015

; ; SET THE RUBOUT KEY
j i BACKUP BY ONE
, : STACK EMPTY?
::BR IF YES
: : SETUP TO TYPEOUT THE DELETED CHAR.

,9$
(SP)
#25, (R3)

053505

001212

; iBUFFER FULL?
ijBR IF YES
: : GO READ ONE CHARACTER FROM THE TTY
: :GET CHARACTER
: : IS IT A RUBOUT
:: SR IF NO
: : IS THIS THE FIRST RUBOUT?
: : BR IF NO
: : TYPE A BACK SLASH

" \,9$

<IS><12>/SIIIR

001213
024620

: ;SAVE R3
; :CLEAR THE RUSOUT KEY
: : GET ADDRESS

(SP)+, (R3)
#177. (R3)
5$
(SP)
6$
# '\,9$
,9$
#-l,(SP)
R3
R3,NSTTYIN
4$
(R3) ,9$
,9$
2$
(SP)
7$

000
000012
020122

024642

000004
024620

R3,-(Sp·)
-(SP)
#$TTYIN,R3
#$TTY IN+22, R3
4$

$RDLIN: MOV
CLR
1$:
MOV
2$:
CMP
BLOS
RDCHR
MOVB
10$:
CMPB
BNE
TST
BNE
MOVB
TYPE
MOV
6$:
DEC
CMP
BLO
MOVB
TYPE
BR
5$:
TST
SEQ
MOVS
TYPE
CLR
7$:
CMPB

8NE
TYPE
BR
9$:
CMPB
BNE
CLRB
TYPE
TYPE
BR
4$:
TYPE
BR
3$:
MOVB
TYPE
CMPB
BNE
CLRB
TYPE
TST
MOV
MOV
MOV
MOV
RTI
,BYTE
9S:
,BYTE
STTYIN: ,BLKB
$CNHU: ,ASCIZ
$CNHG: .ASCIZ
$MSWR:
.ASCIZ

000022

: : INPUT A STRING FROM THE TTY
,:ADDRESS OF FIRST CHARACTEil WILL BE ON THE STACK
"TERMINATOR WILL BE A BYTE OF ALL 0'5

ROLIN
RETURN HERE

NEW. /
:CONTROL U, RUBOUT CAPABILITY

;:.THIS
;"'.* •• ROUTINE
$"'* '" *. ***** ** * . . "' .... *."'.* *** *** "'* ** •• ** **.* .. * ****
WILL PICKUP THE LOWER BYTE OF THE "TRAP' INSTRUCTION
>II ""

.>11 • • "'''' • •

:*AND USE IT TO INDEX THROUGH ';,E TRAP TABLE FOR THE STARTING ADDRESS
:-OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WI .. L
: -GO TO THA T ROUTI NE.
024676
024700
024704
024706
024710
024712
024716

010046
016600
005740
111000
006300
016000
000200

024720
024722
024730

011646
016666
000002

000002

STRAP:

MDV
MDV
TST

024732

ASL
MOV
RTS

000004

STRAP2: MOV
MOV
RTI

Mova

RO,-(SPJ
2(SP),RO
-(RO)
(RO) ,RO
RO
$TRPAD( RO), RO
RO

; ;5AVE RO
; : GET TRAP ADDRESS
i ; BACKUP BY 2
: :GET RIGHT BYTE OF TRAP
: : POSITION FOR INDEXING
: : INDEX TO TABLE
: ;GO TO ROUTINE

; ,THIS IS USE TO HANDLE THE "GETPRI" MACRO
000002

(SP) ,-(SP)
4(SP) ,2(SP)

; : MOVE THE PC DOWN
; : MOVE THE PSW DOWN
: : RESTORE THE PSW

BASIC LOGIC TEST 2
21-FEB-TII Oa:S1

MO-1 '-CZRKKF, RK11

CZRKKF. Pll
7191

PAGE 132

SEQ 0131

TRAP TABLE

ROUTINE

STRPAO: .WORO
STYPE

024720
023070
023560

024132
024734
024736
~24740

024742
024744

7204

024748

$TRAP2

TTY TYPEOUT ROUTINE
TVPE OCTU NUMBER (IIIITH LUIlTNI: lUCS!
TYH OCTAL "UMBER (NO lUOIM@ ZUOS)

; ~CALL=TYPON

023310

$TYPON
STYPOS

TRAP+1 (104401 )
TRAP+2( 104402)
TRAP+3( 104403)
TRAP+4( 1 04404)

; ;CALlIIITYPDS

TRAP+S( 104405)

TYPE OCTAl. NUMBER , .. PER lAST CilbL)
TYPE DECIMAl. NUMBER (WITH SIGN)

024032

SClTSWR

; ;CAI.I..GTSWR

TRAP+II( 1 04406)

GET SOFT'SWR SETTING

$CKSWR

; ;CAI.I..CKSWR
; ;CAU·RIlCHR
; ;CAI.I.'RPI.IN

TEST ~OR CHANCE IN SOFT-$\lIR
TRA?+10(1044101 TTY TVPEIN CHAR!\CTE~ ROUHN"
TRAP+11 (104411) TTY TVPElN STRWG ROUTINE

STYPOC
STYPOS

023534
023574

7205

; ; CAlLDTYPE
; ;CAL\..~TYPOC
; ;CALL=TVPOS

TRAP+? ( '04407 )

5RIlCHR

024754

023762
024244
024364

024756

021760

eM.CRDY II CAU·CHKCRDY

022014

eN.RST

;; CAU-CNT. RESET

022032

eN. ROY

nCAI.L-CNT.ROY

TRAP+14( 1 04414) WAlT FOR eNTRI. ROY TO SET

021058

BOAO

; ;CALL-SRKOAO

TRAP+15(104415) BREAK RIIDA lNTO OR I,cn,SUR,S!!:

021066

SOM

; ;CAUoSRKOM

TRAP+16(104416) BREAK R~DA INTO DR R. en" su~" !i£';;

7206
7207
7208
7209
7210
721 I

024750

7212
7213

024760

7214
7215

024762

7216

024764
024786

0247S~

$RD~!N

7217

TRAP+12(104412)

CHECK CONTROL REAllY

TRAP+13(104413) CONTROl. R~S"T

RounNE

024770

021564

OElA.V

; ;CAL1..!;SDELAY

TRAN17(104417) TIME IlELAV RO\lHNf,

Q24712

oa 1706

!NATlNT

neALl.WAT.INT'

TRAP+aO(1 04420) WAIT FOR RK11 INTERRUPT RIIUn!!!!

024174

021572

TSTSIN

; ; CALL-TST. SIN

fRAN21 (104421) TEST SIN

1223
7224

08,sa

;_THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES eA~k!!C
;-BY THE "TRAP' INSTRUCTION.

7201
7202
7203

7218
7219
7220
1221
7222

21-FEB-78

TRAP TABLE
.SBTH

"90
7192
7193
7194
7195
7196
7197
7198
7199
7200

MACY11 30A(1052)

IIns

RounNE

7225

1226

• seTn

7227
7228
7229

7230
723'
7232
'1233
7234
7235
7236
7237
7239

7239
7240
7241

POWER DOWN AND UP ROUTINES

; ; $l!I III $$$ $111

*' ~ •••

$$ 011$",$ 01< !II $*$0$ $$

*$"" "" $*iIII$1P$ $$ 1')11< *'* $"'~ $$ ** *$,;a.$$~ Jl;cr!l-$$'$'<tJ$$

; POWER DOWN ROUTINE
012737
012737

025012
:):'~5014

0250,S
025020
025022
025024
025026
025032
t125036

025142
000340

000024
000026

$PIoIRDN' MOV
MOV

MOV

010046
010'46
0' 0246
010346
0' 0446
0'0546

MOV

MOV
MOV

017746

154106

0' 0637

025'46

~12737

025050

7242

000000

7243
7244

~OO176

MOV
MOV
MOV

000024

HALT
BR

#SILLUP,@#PWRVEC ; ;SET FOR FAsr UP
H340,iI>#PWRVEC+2 ; ;PRlO:7
: ;PUSH
; ;PUSH
; ;PUSH
; ;PUSH
; ;PUSH
: :PUSH
@SWR,-(SP)
: ,PUSH
SP,5SAVR6
; ;SAVE
HSPWRUP,@#PW~V"C ; ;5ET
RO,-(S?)
Rl,-(S?)
R2,-(S?)
R3,-(SP)
R4,-(SP)
R5,-(SPI

.-2

RO ON STACK
Rl ON STACK
F" ON STACK
R3 ON STACK
R4 ON STACK
RS ON STACK
@SWR ON STACK

SP
UP VECTOR

; ;HANG UP

1245

BASIC lOGIC TEST 2
21-FEB-78 OS'51

MD-11-CZRKKF, RKll

ClRKKF. P11
714G

7241
7248

02,050
t25056

724g
7250
'1251
7252
7253
7254
7255

225082
C25066
025072
0..2':;:.014
iJ,25'100
()251 04

01 ;2604
0'12603

'l256
:257
7258

025106

012602

n5e

'1260

726'
7262
'1263
7264
'72GS

025102
025'110

C25i 12
025114
025122
025' 30
025132
025 j 34
025136
025140

7266

Od.514~

1267
726B
7269
7270
7271

025,44

'1272
1273
727.
7275

'/276
'1277
1278
'1279

025' 70
025' 16
025204
025206
)252H~

;;.)252J6

7296

025250

7290
7291
7292

7293
7294

7295
7296
7297

7298
7299
7300
730'

025146
(;;25146

\')01375
012677

154040

0000::14

OOOO~"

000026

Mav

SSAVR6,SP

CI.R

SSAVRB
$SAVRS
1$
{SP)+.lIlSWR

INC

BNE
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

012601
012600

000340

(SP)+,R5
(SP)+.R4
(SP)+,R3
(SP)+,R2

MOV

012716
004702
000002
000000
000776
000000

$PWRAQ,

.WORD

; ;GET SP
: ;WAIT LOOP FOR THE '. 'Y
; :WAIT FOR THE INC

: ;Of

WORD

:; POP STACK INTO @swe
: :POP STACK INTO R5

;:POP STACK INTO R4

; ;POP STACK INTO R3
::POPSTACK INTO R2
; :POP STACK INTO R'
IS?) .. ,?1
; ;POP STACK INTO PO
{SP)+,RO
#$P\'/RON ,"~PW~V.C : : seT UP THE POWER DOWN VECiOWi
N340.@#PWRlIEC+2 ; ;PRIO:7

; REPORT THE POWER

TYPE
SPWRMG: .WORD

025' 50

SEQ 0132

: POWER UP ROUTINE
UlllUP 'MP1!lR~EC : : SET FOR FAST DOWN

1$'

024176

PAGE 133

SPWRUP, Mav

012605

012737
0, 2737
10440'

CS:SB

FAll~~E
PO!NT~~

$POWER

; ; POWER FAll MESSAGE

(PC)+,(5P)
PFSTRT

: ; RESTART AT PFSTR!
; ; RESTART ADDRESS

.-2

;; THE POWER UP SEQUEb;a:
BEFORE THE POWER DOWN

RT!
$ILlUP, HALT
DR
$SAVRS' 0

047520

042527

SPOWER'

,ASCII

; ; PUT THE SP HERE

<lS><1a>'POWu'

• EVEN
025160
J25164
025166

1290

72B~

Q2S'142
025146

,;O~:23"!

025146
025'150 ' 0050'5
025156
0OO12~

7281
7282
12B3
'1284
7285

7287
"'288

012737
01J706
(10;503'7

MACV11 30A( 1052) 21-FEB-71l
POWER DOWN AND UP ROUTINES

)25224
(125232
025240
02524~

i):!5252

,)25260
025262
025264

0252i2
025276
025300

025302
025304
0253' 0

C25314
025316
025320

r: 75324
r -::5326

004731
,04026
104413
013737
032737

FCHECK' JSR

021504
001350
020000

025302

SIT
SEQ

620000.DRIVAO

BIC
BR

#20000, CRlVAO

SIS
MOV

#20000, D~lVAO
DR!VAO,I!RKM

154072

MIlV

#1!,&lRKeS

154070

tNT. ROY
DRHOlD,@RKIlII
MOV

001350

00, 404

0.2737

020000

001350

nOO40J
t,15273';
013777

020000

001350
154'06

012777
'104414
013777
~ 04414
0327i7
001001
005725
013737
004737
104026
000205
000000
005037
0' 2700
005710
001.'3
005760
(,it) 14'10
l'\O4537

001350
000011

025302

PC,IlRESET

ERROR
26
eNT .RESET
MOV
ORIVAD,DRHDI.D

1$'
25'

; RESETB DRIVE
;SAVE DRIVE /l.I)RR

;SEE IF 000

1$
:MAKE EVEN
:MAKE ODC

;!lRIVI! AilOR

;DRIVE SEEK
;OTHER DRIVE

CNT-ROV

000' 00

SlT
aNE

154045

,ST
Q25302

O@1350

3$'

MOV

02'504

\lSR
ERROR
RTS
PRHOla. 0

001350
0014:4

SIIEF:

CI.R

4$:

MaV
1ST
BEQ

000002

TST

8EO
(l2!iHH~

JSR

'100,Ii'RI<OS
3$
(RS)+

DRHOlO,llRIVAO
PC,DRESET
26
RS

DRIVAO
NDRIVD.RO
(RO)
2$
2{RO)
2$
RS,FCHECK

:HEAEOS IN MOTION""
: NO SO RK-05J
; YES RK-OSF
; RESTORE ADOR
;WAlT FOR RESF.T

1START AT ORO
;TASLE OF AVA'fl DRtVf€,$

,THIS DRIVE MER!t'?

,NO
: COMf.'t raf.ENT

ioll~ ~Z:'f

;NO

; SEE IFF MOO',!,

BASIC LOGIC TEST 2
21-FEB-78 OB:S1

!.10-11-CZRKKF. RK11

CZRKKF. Pll
7302
7303
7304
7305
7306
7307
730B
7309
73'0
7311
7312
7313
7314
7315
7316
7317
7318
7319
7320
732'
7322
7323
7324
7325
7326
7327
7328
7329
7330
7331
7332
7333
7334
7335
733S
7337
7338
7339
7340
7341
7342
7343
7344
7345
7346
7347
7348
7349
7350
7351
7352
7353
7354
7355
7356
7357

025332
025334
025340
025346
025350
025352
025360
025364
025366

000405
052710
052760
005720
005720
062737
022700
003353
000207

100000
100000

8R
BIS
BIS
TST
TST
ADO
CMP
BGT
RTS

000002
2$:

040000
00'433

00'350

08:58

PAGE '34

SE~

0133

;J MODEL

2$
#'00000. (RO)
#'00000.2(RO}
(RO)+
(RO)+
#40000.0RIVAD
NDRIV7+' • RO
4$
PC

; SET SIGN FOR
: BOTH OR I YES
NEXT PAIR OF DRIVES
NEXT ACTU~ ADDR
CHECKED A~~?
NOT YET

:ERROR MESSAGES
.SBTT~

ERROR MESSAlOeS

025370
025376

045522
047522

04'527
000'22

042440

EM"

.ASCIZ

IRKWC ERORI

025402
025410

044523
051440

020"6
052,05

05,511
000

EM'2:

.ASCIZ

ISIN IS SET I

025415
025422

122
0511 05

041113
051117

020101
000

EM13:

.ASCIZ

IRKBA ERDRI

025427
025434
025442
025450

122
051127
043101
051447

042113
04711 7
042524
042523

020101
020107
020'22
000047

EM16:

.ASCIZ

IRKOA WRONG AFTER • SSE' I

025456
025464

045522
047522

051504
000'22

042440

EM21 :

.ASCIZ

IRKOS ERORI

025470
025476

050104
000124

020114

042523

EM30:

.ASCIZ

IOP~

025500
025506

0511 04
000124

020'25

042523

EM31 :

.ASCIZ

IORU SETI

025510
025516
025524

045522
052111
051440

032460
047040
052105

041040
052117
000

EM32:

.ASCIZ

IRKOS BIT NOT SET I

025531
025536
025544

104
052111
051440

054522
047040
052105

041040
052117
000

EM33:

.ASCIZ

IDRY BIT NOT SET I

025551
025556
025564

123
042111
042523

045517
023516
000124

042040
020124

EM34:

.ASCIZ

ISOK DIDN'T SETI

025570
025576
025604
025612
025620

042523
051124
023516
047125
030040

026503
042040
020124
020'24
000

047103
04211 1
047501
047524

EM35:

.ASCIZ

ISEC-CNTR DIDN'T COUNT TO

MD-ll-CZRKKF. RKll 8ASIC LOGIC TEST 2
21-FEB-7B OB:51
CZRKKF. P' 1
7358
7359
7360
7361
7362
7363
7364
7365
7366
7367
7368
7369
7370
7371
7372
7373
7374
7375
7376
7377
737B
7379
7380
73Bl
7382
7383
7384
7385
7386
73B7
738B
73B9
7390
7391
7392
7393
7394
7395
7396
7397
739B
7399
7400
7401
7402
7403
7404
7405
7406
7407
740B
7409
7410
7411
7412
7413

2,-FE8-7B
30A('052}
MACY"
POIIIER OOWN AND UP ROUTINES

MACY 11 30A ( 1 052)
ERROR MESSAGES

SETI

21-FEB-78

OB:58

PAGE 135
SEO 0,34

025623
025630
025636
025644
025652

123
052116
047104
041516
000

041505
020'22
052047
046522

041455
044504
044440
052116

EM36:

.ASCIZ

ISEC-CNTR DIDN'T INCRMNT I

025653
025660
025666
025674
025702

123
052517
047111
052116
047522

041505
052116
0511 03
042105
043516

041455
020122
042515
053440
000

EM37:

.ASCIZ

ISEC-COUlITR INCRMENTEO WRONGI

025707
025714
025722
025730
025736
025744

'04
020124
041523
047506
051511
051124

042",
042507
05'475
020122
051440
000

023516
020124
02010'
044124
041505

EM40:

.ASCIZ

IOION'T GET SC=SA FOR THIS SECTRI

025747
025754
025762
025770
025776

105
027522
042122
052517
020105

047522
027527
020131
042114
042523

026522
020123
044123
041040
000124

EM41 :

.ASCIZ

'EROR-R/W/S ROY SHOU~D BE SET"

026004
026012
026020
026026
026034

047125
052103
030513
042524
000124

054'05
042'05
020061
051122

042520
051040
047111
050125

EM43:

.ASCIZ

IUNEXPECTEO RKll

026036
026044
026052
026060
026066
026074
026102
026110

047103
042122
047104
052105
0511 05
020113
020122
000124

051124
020131
052047
040440
051440
051117
042522

020114
044501
051440
052106
042505
042040
042523

EM44:

.ASCIZ

ICNTR~

026112
026120
026126
026134
026142
026150
026156

0511 05
044040
020124
047117
020113
020122
000124

020122
02010S
042523
051440
051117
042522

051117
044502
020124
042505
042040
042523

EM45:

.ASCIZ

IERR OR HE BIT SET ON SEEK OR OR RESET I

026160
026'66
026174
026202
026210

045522
052111
051440
051117
042522

0511 05
020054
042505
042040
042523

041040
047117
020113
020122
000124

EM46:

.ASCIZ

IRKER BIT. ON SEEK OR OR RESET I

026216
026224

045522
04711 0

051503
042'07

041440
040440

EM47:

.ASCIZ

IAKCS CHNGD AFTR FUNCTION WAS DONEI

INTERRUPTI

RDY DIDN'T SET AFTER SEEK OR DR RESETI

MOa"aCZRKKF, RKll BASIC LOGIC TEST a
21-FES-78 Oe'SI
CZRKKF. Pll
052506
047111
042040

MACY 11 30A ( 1 Qsa I
ERROR MESSAGES

21 a F18-111

08·58

PAGE 138
SEQ 01311

7~14

026232

7415
7416
7411
7418
7419
7420
7421
7422
7423
7424
7425
7426
7427
7428
7429
7430
7431
7432
7433
7434
7435
7436
7437
7438
7439
7440
7441
7442
7443
7444
7445
7446
7447
7449
7449
7450
7451
7452
7453
7454
7455
7456
7457
7458
7459
7460
7461
7462
7463
7464
7465
7466
7467
7468
7469

026240
026246
026254

0521 De
041516
053440
047117

020122
044524
051501
000105

026260
026266
026274
026302

027522
042122
047104
042514

027527
020131
052047
OS1101

020123
044504
041440
000

EM50:

.ASCIZ

'R/II/S ROV DIDN'T CLEAR'

026307
026314
026322
026330
026336
026344
026352
026360

122
051040
04211 I
042523
051124
020113
020122
000124

053457
054504
023516
020124
051440
051 I 17
042522

051457
042040
020124
04310'
042505
042040
042523

EMS' ,

• ASCIZ

'R/lil/S RDY OIDN' T SET AFTR SEEK DR DR RESET'

026362
026370
026376
026404

045522
047110
052106
045505

040504
042107
020122
000

041440
040440
042523

EMS2:

.ASCU:

IRKDA CHNGD AFTR SEEKI

026407
026414
026422
026430
026435
026444

103
051040
042111
046103
043440
020123

OS2116
054504
023516
020122
020117
042523

046122
042040
020124
051501
040527
000124

EM53'

.ASCIZ

leNTRL RDY DIDN'T CLR AS GO WAS SETI

026452
026460
026466
026474
026502
026510
026516
026524
026532
026540

047103
042122
047104
052105
051 127
020124
044524
0475'2
045523
051505

051124
020131
052047
047440
027524
052123
043516
0201 IS
040455
000076

020114
044504
051440
020116
046506
051 I 01
043040
042074
051104

EM54'

.ASCIZ

'eNTRL ROY DIDN'T SET ON WRT/FMT STARTING FRDM <DSK-ADRES>'

026544
026552
026560
026566
026574
026602
026610
026S16

042510
051 lOS
053440
0521 IS
052122
051106
051504
042522

047440
020122
052122
051440
047111
046517
026513
037123

020122
047117
043057
040524
020107
036040
042101
000

EM55:

.ASCIZ

'HE OR ERR ON WRT IFMT STARTING FROM <DSK-ADRES>'

026623
026630
026636
026644
026652

122
0471 II
042124
043516
051127

042113
051103
053440
047440
026524

02010'
047115
047522
020115
046506

EM56:

.ASCIZ

IRKOA INCAMNTO WRONG ON WRT-FMT I

MO-l'-CZRKKF. RKll BASIC LOGIC TEST :I
CZRKKF. PII
21-FEB-78 08:51
7470
7471
7472
7473
7474
7475
7476
7477
7478
7479
7490
7481
7492
7483
7484
7485
7486
7497
7488
7489
7490
7491
7492
7493

MACY11 30A( 1052)
ERROR MESSAGES

1I1-FEB-78

08:58

PAGE 137

SEQ 0136

026660

000124

026662
026670
026676
026704
026712

045522
0421 I 1
053117
047440
020124

041527
023516
043122
020118
046506

042040
020124
047514
051127
000124

EM5?'

.ASCIZ

IRKlIe DIDN'T OVRFLO ON WRT FMT/

026720
026726
026734
026742
026750
026756

045522
041516
020104
020107
052122
000

040502
046522
051127
047117
043040

044440
05211Ei
047117
053440
052115

EM60:

.ASCIZ

IRKBA INCRMNTD WRONG ON WAT FMT I

026757
026764
026772
027000
027006

122
042523
053440
020122
020122

042513
026124
052122
042122
046506

020122
047117
047440
047440
000124

EM61 :

.ASCIZ

IRKER SET .ON WAT OR AD DR FMT I

027014
027022

045522
047522

041104
000122

042440

EM82:

.ASCIZ

IRKOB ERDR!

MO-11-CZRKKF, RKll BASIC LOGiC reST 2
21-FEB-78 08:51
CZRKKF. Pl1

7494
7495
7496
7497
7498
7499
7500
7501
7502
7503
7504
7505
7506
7507
7508
7509
7510
7511
7512
7513
7514
7515
7516
7517
7518
7519
7520
7521
7522
7523
7524
7525
7526
7527
7528
7529
7530
7531
7532
7533
7534
7535
7536
7537
7538
7539
7540
7541
7542
7543
7544
7545
7546
7547
7548
7549

E1164 :

.ASCIZ

/RKWC DIDN'T OVRFLO ON RD OR RD FMT/

020101
047115
047522
020116
020122
052115

EM65:

.ASCIZ

IRKIiA INCRMNTD WRONG ON RD OR RD FMT I

041516
052103
042504
046517
052103

051117
044040
020122
023440
051117

EM66:

.ASCIZ

IINCORRECT HEADER FROM 'SECTOR' /

027072
027100
027106
027114
027122
027130

045522

041527
023516
043122
020116
020122
052115

042040
020124
047514
042122

027135
027142
027150
027156

122
047111

041113
051103
053440
047440
047440
043040

027172
027200
027201
027206
027214
027222
027230
027236

043516
042122
042122
000
111
042522
040505

0511 06
042523
000047

7588
7589
7590
7591
7592
7593
7594
7595
7596
7597
7598
7599
7600
7601
7602
7603
7604
7605

SEQ 0137

051040
051040
000124

04212~

000

027240
027246

040504
051122

040524
051117

042440
000

EM67:

.ASCIZ

IDATA ERRORI

027253
027260
027266
027274
027302
027310
027316
027324
027332
027340

103
051040
042111
042523
051040
020124
044524
047522
045523
051505

052116
054504
023516
020124
027504
052123
043516
020115
040455
000076

0461 :;?:!
042040
020124
047117
046506
051101
043040
042074
0511 04

EM70:

.ASCII

'eNTRl RDY DIDN'T SET ON RD/FMT STARTING FROM <DSK-ACRES>'

027344
027352
027360
027366
027374
027402
027410
027416

042510
051105
051040
020124
044524
047522
045523
051505

047440
020122
027504
052123
043516
020115
040455
000076

020122
047117
046506
0511 01
043040
042074
0511 04

E1171 :

.ASCIZ

"HE OR ERR ON RD/FMT STARTING FROM <DSK-ACRES>"

027422
027430
027436
027444

051127
0511 04
042111
045522

047117
053111
044440
051504

020107
020105
020116
040440

EM72:

.ASCIZ

IWRONG DRIVE 10 IN RKOS AFTER SEEKI

MO-11-CZRKKF, RKI1 8ASIC LOGIC TEST :1
21-FE8-78 08:51
CZRKKF. Pl1

7550
7551
7552
7553
7554
7555
7556
7557
7558
7559
7560
7561
7562
7563
7564
7565
7566
7567
7568
7569
7570
7571
7572
7573
7574
7575
7576
7577
7578
7579
7580
7581
7582
7583
7584
7585
7586
7587

PAGE 138

IRKDA !NCNMNTO WRONG DN HO IiIR RD FMT/

040504
046522
051127
047117
051117
046506

042124

08:58

.ASCIZ

045522
041516
020104
020107
020104
020104

027164

21-FES-7S

EMi3:

044440
052116
047117

027026
027034
027042
027050
027056
027064

042111
053117
047440
047440
043040

MACVll 30A( 1052)
ERROR MESSAGES

MACVll 30A(1052)
ERROR MESSAGES

:ll-FEB-78

oe.58

PAGE 139

SEQ 01311

027452
027460

052106
042505

051105
000113

051440

027464
027472
027500
027506
027514
027522
027530

051110
050040
0511 04
041040
031461
051440
020105

053504
046117
020126
052111
030455
046110
046103

042522
026514
042111
024123
024465
0411 04
000122

EM73 ,

.A5CIZ

IHRDlIIRE POLL-DRV 10 BITS (13-15) SHLOBE CLRI

027536
027544
027552
027560
027566
027574
027602

051110

053504
046117
051124
043516
020126
020124
000124

042522
026514
05012b
042040
020043
051120

EM74:

.ASCIZ

IHRDWRE POLl-INTRUPTlNG DRIV H NOT PRSNT I

050040
047111
044524
044522
047516
047123

027606
027614
027622
027630
027636
027644
027652

0511 04
042040
020124
050125
042524
053504
046117

053111
04211 1
047111
020124
020122
042522
000114

021440
023516
051124
043101
051110
050040

EM7S:

.ASCII

loluv # DIDN'T INTRUPT AFTER HRDWRE POLLI

027656
027664
027672
027700
027706
027714

041523
047104
052105
0511 05
020113
047504

020120
052047
040440
051440
040527
042516

044504
051440
052106
042505
020123
000

EM7S:

.ASCIZ

ISCP DIDN'T SET AFTER SEEK WAS DONEI

027721
027726
027734
027742
027750

122
044103
040440
042040
042522

042113
047101
052106
044522
042523

020101
042107
0511 05
020126
000124

EIII77'

.ASCIZ

IRKO'" CHANGO AFTER DRIV RESET I

027756
027764
027772
030000

040504
047522
053440
000

040524
020122
051117

042440
052101
021504

Ell 100:

.ASCIZ

IDATA ERDR AT WORONI

030001
030006
030014
030022
030030
030036

103
051040
042111
042523
042524
041440

052116
054504
023516
020124
020122
045510

046122
042040
020124
043101
042122
000

Ellll0t:

.ASCII

ICNTRL ROY DIDN'T SET AFTER RD CHKI

030043
030050
030056
030064

105
020122
020116
045510

051122
042510
042122
000

047440
047440
041440

EM102:

.ASCIZ

IERR OR HE ON RD CHKI

MD-ll-CZRKKF, RKll BASIC LOGIC TEST 2
21-FEB-78 OB:51
CZRKKF. P11
7606
7607
760B
7609
7610
7611
7612
7613
7614
7615
7616
7617
7618
7619
7620
7621
7622
7623
7624
7625
7626
7627
7628
7629
7630
7631
7632
7633
7634
7635
7636
7637
7638
7639
7640
7641
7642
7643
7644
7645
7646
7647
7648
7649
7650
7651
7652
7653
7654
7655
7656
7657
7658
7659
7660
7661

21-FEB-78

08:58

PAGE 140
SEQ 0139

030067
030074
030102

103
020116
045510

042523
042122
000

047440
041440

EM103:

.ASCIZ

leSE ON RD CHKI

030105
030112
030120
030126
030134
030142
030150

122
044504
047440
047514
042122
047440
020124

053513
047104
042526
047440
041440
020122
044103

020103
052047
043122
020116
045510
051127
000113

EM104:

.ASCIZ

IRKWC DIDN'T OVERFLO ON ;'0 CHK OR WRT CHKI

030156
030164
030172
030200
030206

045522
041516
020104
020107
020104

040504
046522
051127
047117
044103

044440
052116
047117
051040
000113

EM105:

.ASCIZ

IRKDA INCRMNTD WRONG ON RD CHKI

030214
030222
030230
030236
030244

045522
040510
043101
042122
000

040502
043516
04252.
041440

041440
02010.
020122
045510

EM106'

.ASCII

/RKBA CHANGO AFTER RD CHKI

030245
030252
030260
030266
030274
030302

115
020131
041440
042105
0511 05
044103

046505
047527
040510
040440
051040
000113

051117
042122
043516
052106
020104

EM107'

.ASCIZ

IMEIIORY WORD CHANGED AFTER RD CHKI

030306
030314
030322
030330
030336
030344

047103
042122
047104
052105
0511 OS
041440

051124
020131
052047
040440
053440
045510

020114
044504
051440
052106
052122
000

EM11 0:

.ASCIZ

ICNTRL ROY DIDN'T SET AFTER WRT CHKI

030351
030356
030364
030372

110
042440
020116
044103

020105
051122
051127
000113

051117
047440
020124

EM1" :

.ASCII

IHE OR ERR ON WRT CHKI

030376
030404
030412

051127
044103
0511 05

052111
041505
a51117

020105
020113
000

EM112:

.ASCIZ

IWRITE CHECK EROR/

030417
030424
030432
030440
030446
030454

122
047111
042124
043516
051127
000113

0421'3
051103
053440
047440
020124

020101
047115
047522
020116
0441 C.1

EM113'

.ASCIZ

IRKDA INCRMNTD WRONG ON WRT CHKI

030456

045522

040502

044440

EM114:

.ASCIZ

IRKBA INCRMNTD WRONG ON WRT CHKI

MD-"-CZRKKF. RKll BASIC LOGIC TEST 2
21-FEB-78 08:51
CZRKKF.Pl1
7662
7663
7664
7665
7666
7667
7668
7669
7670
7671
7672
7673
7674
7675
7676
7677
7678
7679
76BO
76Bl
7682
7683
76B4
7685
76B6
76B7
7688
7689
7690
7691
7692
7693
7694
7695
7696
7697
7598
7699
7700
7701
7702
7703
7704

MACYll 30A( 1052)
ERROR MESSAGES

MACYll 30A( 1 052)
ERROR MESSAGES

21-FEB-78

08:58

PAGE 141
SEQ 0140

030464
030472
030500
030506
030514

041516
020104
020107
052122
000

046522
051127
047117
041440

052116
047117
053440
045510

030515
030522
030530
030536
030544

122
047111
042124
044124
051440

041113
051103
020054
044440
052105

020101
047115
044527
040502
000

EM115:

.ASCIZ

IRKBA IN:RMNTD, WITH IBA SET I

030551
030556
030564
030572
030600
030606
03061.
030622

127
046440
020131
044524
040510
053440
041111
000124

047522
046505
047514
047117
043516
052111
020101

043516
051117
040503
041440
042105
020110
042523

EM116'

.ASCIZ

IWRONG MEMORY LOCATION CHANGED WITH IBA SETI

030624
030632
030640
030646
030654
030662
030670

045522
042111
047111
020124
044440
051501
000

030461
023516
051124
044127
042504
a51440

042040
020124
050125
047105
053440
052105

EMI17'

.ASCIZ

IRK!I C'ON'l INTRUPT WHEN IDE WAS SEi/

030671
030676
030704
030712
030720
030726
030734
030742

122
044504
044440
052120
0511 05
040527
052111
000104

030513
04710.
052116
040440
051440
020123
040511

020061
052047
052522
052105
020113
047111

EM120:

.ASCIZ

IRK11 DIDN'T INTRUPT AFTER SK WAS INITIATEDI

030744
030752
030760
030788
030774

041523
020124
042522
020113
042514

020120
042502
051440
047503
042524

042523

EMI21:

.ASCIZ

jeep SET BEFORE seEK COMP~ETEDI

031002
031010
C31016
031024
031032
031040
031046

045522
0421"
047111
020124
020122
046517
042105

030461
0235' 6
051124
043101
045523
046120
000

042040

£MI22:

.ASCII

IRK11 DION' T INTRUPT AFTER SK COMPI.ETEDI

031051
031056
031064
031072

103
051040
042040
020124

052116
051505
042111
046103

046122
052105
023516
040505

042524

047506
042505
050115
000104

7705
7708
7707
7708
7709
7710
7711
7712
7713
7714
7715
7716
7717

020,24
050125
042524
041440
052105

/
EM123:

.ASCIZ

/CNTRL RESET OIDN' T CLEAR 'SCP' I

MD-11-CZRKKF. RKll BASIC LOGIC TEST 2
21-FEB-7B 08:51
CZRKKF. P11

771 B
7719
7720
7721
7722
7723
7724
7725
7726
7727
7728
7729
7730
7731
7732
7733
7734
7735
7736
7737
7738
7739
7740
7741
7742
7743
7744
7745
7746
7747
7748
7749
7750
7751
7752
7753
7754
7755
7756
7757
7758
7759
7760
7761
7762
7763
7764
7765
7766
7767
7768
7769
7770
7771
7772
7773

21-FEB-78

08;5_

PAGE 142
SEO 0141

031100
031106

020122
000047

051447

050103

031110
031116
031124
031132
031140
031146

045522
042111
047111
020124
020122
047117

030461
023516
051124
043101
042122
000105

042040
020124
050125
042524
042040

EM124:

.ASCIZ

IRKll

0311 52
031160
031166
031174
031202
031210

0471 03
042522
044504
041440
043505
000

051124
042523
047104
051114
051511

020114
020124
052047
05104"
051124

EM125:

.ASCIZ

ICNTRL RESET DIDN'T CLR REGISTRI

031211
031216
031224
031232
031240
031246

122
044504
044440
052120
050103
042526

030513
047104
052116
040440
020125
000114

020061
052047
052522
020124
042514

EM126:

.ASCIZ

IRKll DIDN'T INTRUPT AT CPU LEVELl

031252
031260
031266
031274
031302
031310

045522
052116
042105
051127
050103
042526

030461
052522
040440
047117
020125
000114

044440
052120
020124
020107
042514

EM127:

.ASCIZ

IRK',

031314
031322
031330
031336
031344

042447
052111
0471 04
052105
045522

051122
020047
052047
044440
051105

041040
044504
051440
020116
000

EM130:

.ASCIZ

I'ERR BIT' DIDN'T SET IN RKERI

031351
031356
031364
031372

110
042440
042111
042523

020105
051122
023516
000124

051117
042040
020124

EM131 :

.ASCIZ

IHE DR ERR DIDN'T SET I

031376
031404

045522
047522

051105
000122

042440

EM132:

.ASCIZ

IRKER ERORI

031410
031416
031424
031432

054116
020124
052047
000

020'03
044504
051440

044502
047104
052105

EM133:

.ASCIZ

INXC BIT DIDN'T SETI

031433
031440
031446
031454
031462
031470

122
044504
044440
052120
047523
047522

030513
047104
052116
047440
052106
000122

020061
05204052522
020116
042440

EM134:

.ASCIZ

IRK11 DIDN'T INTRUPT ON SOFT ERoRI

MD-11-CZRKKF t
CZRKKF. Pll

7774
7775
7776
7777
7778
7779
7780
7781
7782
7783
7784
7785
7786
7787
7788
7789
7790
7791
7792
7793
7794
7795
7796
7797
7798
7799
7800
7801
7802
7803
7804
7B05
7806
7807
7808
7809
7810
7811
7812
7813
7814
7815
7816
7817
7818
7819
7820
7821
7822
7823
7824
7825
7826
7827
7828
7829

MACVll 30A( 1 052)
ERROR MESSAGES

RK11 BASIC LOGIC TEST 2
21-FEB-78 08:51

MACV11 30A( 1 052)
ERROR MESSAGES

DIDN'T INTRUPT AFTER RO DONEI

!NTRUPTEO AT WRONG CPU LEVELl

21-FEB-78

08:58

PAGE 143
SEO 0142

031474
031502
031510
031516
031524

042515
051524
046522
051127
045522

020130
044440
052116
047117
051503

044502
041516
020104
026507
000

EM135:

.ASCIZ

IMEX BITS INCRMNTD WRoNG-RKCSI

031531
031536
031544

127
052117
051101

051520
041440
000

047040
042514

EM137:

.ASCIZ

IWPS NOT CLEARI

031547
031554
031562
031570
031576
031604

052101
051117
051124
051105
020115
052040
00013'

020101
047440
0471 01
043040
044504
020117

EM140:

.ASCIZ

IDATA ERoR ON TRANSFER FROM DISK TO TTYI

031612

104
0511 05
020116
043123
047522
045523
052124

031616
031624
031632
031640
031646
031654
031662
031670
031676
031704
031712
031720

042047
023443
042523
052502
020124
040503
047040
054523
052117
040510
020106
043065

044522
050040
052116
020124
047111
042524
020117
047440
042510
043114
045522
000

020126
042522
020054
047516
044504
000104
052502
020116
020122
047440
030055

EM141:

.ASCIZ

I'ORIV N'

EM142:

.ASCIZ

I NO BUSY ON OTHER HALF OF RK-05F I

PRESENT, BUT NOT INOICATEOI

.EVEN

031724

.SBTTL

ERROR DATA POINTERS

031724

001116

001162

000000

OT! :

.WoRO

SERRPC, SREGO, 0

031732
031740

001116
000000

001162

001164

012:

.WORD

SERRPe. SREGO, SREG' .0

031742
031750

001116
001166

001162
001170

001164
000000

OT20:

.WORD

SERRPC, $REGO, $REGI ,$REG2, SREG3, 0

031756

001116

000000

OT21 :

.WORO

SERRPC,O

031762
031770

001116
001166

001162
000000

001164

0126:

.WORD

SERRPC,$REGO,$REG1,SREG2,O

031774
032002
032010

001116
001166
001174

001162
001170
001176

001164
001172
001200

DT54:

.II/ORO

SERRPe, SREGO, SREGI ,$REG2 ,$REG3, $REG4, $REG5, $REG6, $REG7 ,0

MD-11-CZRKKF ~ RKn BASIC lOGIC TEST 2
21-FEB-78 08:51
CZRKKF, P1 1

7830
7831

032016

000000

032020

020040
051040

21-FEB-78
30A( 1 052)
ERROR DATA POINTERS

08:58

MACV11

PAGE 144
SEQ 0143

7832
7833
7834
7835

7836
7837

ERROR HEADERS

.SBTTl

7838
7839

032026

7840

032042

032034

020104
041505

OH2:

• AselZ

OH4:

• AselZ

020103
041505

PHS:

.AselZ

020103
041513

OH1.:

.ASCIZ

041520

020040

043505
020040

042101
051040

042126

000

040

050040

020103

020040

042440

052103
041505

020040

050130
051040
000

050040

REGADD

REeVDI

EXPCT

REeVDI

RECVDI

RKCS

RKER

RKWC/

PCI

RKER

RKOSI

7841

7842
7843
7"844

7845

032047
032054
032062
032070

042126

7846

7847

032075

7848

032102
032110

040
020040
042126

03211 3
032120
032126
032134
032142

040
020040
020123
042513
051040

050040
051040
020040
020122
053513

032150

020040

041520

000

DH21 :

.AselZ

032155
032162
032170
032176
032204
032212

040
020040
051503
045522
020040

050040
020040
020040
0511 05
045522

020103
045522
020040

DH30:

.ASCIZ

RKCS

032213
032220

050040
020040
000

020103
045522

DH34:

.A5CIZ

RKOSI

032226

040
020040
051504

032231
032236
032244

040
020040
047103

050040
042523
051124

020103
026503
000

DH35:

.ASCIZ

SEC-CNTRI

OH36:

.ASCIZ

PRSNT

NXT-CNT I

SECTOR

RKOS/

RKCS

RKER

7849
7850
7651
7852
7853
7854
7855

051040

ODD

05i 040

020040
000103

7856

7857
7958
7959
7860
7861
'7862
7863
7864
7865
7866
7867

7868
7869
7870
7871

7872

020040

051504

ODO

7873
032251
032256

040
020040

050040
020040

032264
032272

047123
052130

020124

020103
051120
047040

04 I 455

052116

7878
7879

032300

000

7880

032301
032306
032314

.ASCIZ

032322

05'440
020,22
051504

020103
041505
020040
000

OH40:

7883
7884
7885

040
020040
047524
045522

050040

i881
7882

032327

040

050040

020103

OH44:

.ASCIZ

7874

7875
7876

7877

MD-l I -CZRKKF, RK11 8A51C lOGIC TEST 2
CZRKKf. P1 1
21-FEB-78 08:5'
7886
7887

7888

7889
7890
789'
7892
7893
7894
7895

7996
7897
7898
7899
7900
7901
7902
7903
7904
7905
7906
7907
7908

032334
032342
032350
032356
03:2364

020040
020123
042513
051040
020040

051040
020040

020122
042113

05 ~ 040

032372

000 1 01

032374
032402
032410

020040
020040
020040
051105
045522
020040
020040
027043

041520
045522
020040
020040
051504
045522
042040

046131
026513

036056
042101
052523

032416
032424
032432
032440

032446
032454
032462
032470
032476

027076
051456

027056

041505

21-FEB-78

MAeV1 I 30A(1052)
ERROR HEADERS

08'58

RKOS

PAGE 14.5
SE~

020040
020123
042113
020040

DH54:

• ASCIZ

DHS6:

.AselZ

I PC

RKCS

RKER

RKDS

RKOA

EXPC: DR.

CVl

SUR

SEC

045522
020040
020040

040504
05312..1

041456
051504
051522
027122
000

041520

032610
032616
032624
032632

020040
020040
020040
000101

041520
045522
051040

020040
041527
042113

OH64:

.ASCII

RKWC

RKCA/

7924

032634

020040

SECTR

EXPCT

REevoI

020040

032650
03:2656

020122

020040

041520
042522

020124

032664

020040
052103
054105
020040
000104

.ASCII

032642

041520
042523

DK66:

7925

7926
7927
7928
7929
7930

032672
032700
032706
032714
032722
032730

020040
020040
020124
053103
045523
000123

041520
054105
020040
020 I 04
040455

020040

OH67:

.ASCIZ

EXPCT

REevo

OSK-ADRS/

032732
032740
032746

020040
020040
053111

041520
020040
021440

02004(
051104
000

OH74:

.ASC!Z

aRt v

032753

040

050040

O~01 03

OH100:

.ABeIZ

7910
7911
7912

7913
7914
7915
7916
7917

7918
7919
7920

7921
7922

020043

020040
020072
020040

020114

020040

052523
051440
042522
0511 04
054503
020040
020040
000103

020122
041505
053103
020043
020114

052523
020040

7923

7931

7932
7933
7934
7935
7936
7937
7938
7939
7940
7941

053103

DRV# •••• CYI..<DSK-ADRS>. SUR •• SEC/

051503

040
054105
0511 04
054503
020040
020040
020040
020072
020040
020040
020122
042523

7909

0144

041513
051040

032503
032510
032516
032524
032532
032540
032546
032554
032562
032570
032576
032604

041520

RKOA/

041520

042522
042040
051104

WORD N

Expel

REeVD/

RECV: ORN

CYL

SUR

SECI

MD-ll-CZRKKF. RKll BASIC LOGIC TEST 2
2'-FEB-78 08:51
CZRKKF. P' 1
7942
7943
7944
7945
7946
7947
7948
7949
7950
795'
7952
7953
7954
7955
7956
7957
7958
7959
7960
7961
7962
7963
7964
7965
7966
7967
796B
7969
7970
7971
7972
7973
7974
7975
7976
7977
797B
7979
7980
79Bl
7982
79B3
7984
7985
'19B6
7987
7988
7989
7990
7991
7992
7993
7994
7995
7996
7997

PAGE 148

032760
032766
032774
033002

053440
020043
04'520
042522

051,,7
020040
020124
053103

020104
054105
020040
000104

0330'0
033016

020040
05'040

041520
042513

020040
000,22

DH103:

.ASCIZ

RKER/

033024
033032
033040
033046

020040
05,040
020040
000'23

041520
041505
051040

020040
042'26
04'513

OH104:

.ASCIZ

RECVD

033050
033056
033064
033072
033100

020040
020040
020040
041520
042522

041520
046040
020040
020124
053103

020040
04'517

OHIO?:

.ASCIZ

LOC

033106
033114

020040
051040

041520
0415'3

020040
000123

OH117:

.ASCIZ

RKCS/

033122
033130
033136
033144

020040
020040
020114
04,513

041520
042514
020040
000123

020040
042526
051040

DH126:

.ASCIZ

LEVEL

RKCS/

033'50
033'55
033,64

041520
051040
020040
020'22
041040

020040
041513
051040
042440
05211 ,

CH130:

.ASClZ

RKCS

RKER

033200
033206

020040
020040
020123
042513
051122
000

033207
033214
033222
033230

040
020040
05,503
045522

050040
020040
020040
0511 05

020103
045522
020040
000

DH131 :

.ASCIZ

RKCS

RKER/

033235

040
020040
051503
045522
020040
000

050040
020040
020040
0511 05
045522

020103
045522
020040
020040
040504

DH,33:

.ASCIZ

RKCS

RKER

RKDA/

033242
033250
033256
033264
033272
033273
033300
033306
0333'4
033322
033330
033336

040
020040
052103
041505
020040
020040
051503

050040
042440
020040
042126
045522
020040
000

020103
050130
051040
020040
040502
045522

DH140:

.ASCIZ

EXPCl

RECVe

RKBA

033172

SEQ 0145

RKCS/

EXPCT

RECVD/

054105
020040
000104

ERR BIT /

RKCS/

.EVEN

033342

MD-l1-CZRKKF, RK1, BASIC LOGIC TEST 2
CZRKKF. Pl1
21-FEB-7B 08: 51
7998
7999
BOOO
BOOI
B002
B003
8004

08:58

a'-FED-1S

MACV11 30A( 1052)
ERROR HEADERS

MACYI1 30A(1052)
ERROR HEADERS

21-FEB-78

08:58

PAGE 147

:DATA SUFFER
033342

000400

000001

OUTBUF:

.BLKW

.END

256.

:THIS 256 WDRD BUFFER IS FOR
:DATA TRANSFERS FROM AND
;TO THE DISK.

SEQ 0146

MD-"-CIRKKF. RK11 BASIC LOGIC TEST 2
21-FEB-7B 08:51
CZRKKF.P11

BADINT
B,",DTfv'lO

004600
004534

6[)AR

0.21074

BCAO

021056

!3DA4

021066

000001
000001
000002
000004
0000 10
000020
000040
000100
81 T07 = 000200
BI T08 = 000400
61 T09 = 00 I 000
BI T1
• 000002
Bl Tl 0 • 002000
8! TIl • 004000
8lT I 2 • 010000
BIT13 • 020000
B! T14 • 040000
BIT15 • 100000
al T2 • 000004
BIT3 • 000010
BIT4
000020
BI T5 • 000040
BlTB • 000100
BIT7 • 000200
alT8 • 000400
SlT9 • 001000
BPTVECIII 0000 I 4
BRKDAOIII 104415
SRKDA4= 104416
81 TO
a!TOO
81 TOI
8IT02
81 T03
81 T04
BIT05
BIT06

STEOP

020026
CH::1
021242
eHKec" 021402
Crll~CRDIiIl 104412
CHKDA
021262
CHKDA1
021270
CHKEG" 021356
CHKER
021342
CHIIHE
02 I 234
CHKHE 1 021226
CHKWC
02131S
CH. CRO 021760
CKSWR II 104407
CNT. RD. 104414
eNT. REz 104413

CN. ROY
CN. RST

022032
022014

210B
2043
6182
6180>
6184'
993'
9S3>
982>
98,.
980'
979'
978'
977#
976'
975_
974'
992M
973.
972.
971#
970.
969.
968'
991.
990.
989.
988'
987#
966'
985.
984.
1000.
3697
2834
5693
5820#

6262
49B7
2512
2847
3175
4983
28el
2840
31se
285'
6S2U
6610
3967
2310
3128
4489
5189
5876
6561
6559.

2136'
2106
61S7#
7216
7218
2002
993
992
991
990
989
9S8
987
986
985
964
6640
6723
5909
6611
2001

MACY 1 I 30A ( I 052) 21-FEB-7B OE 5B PAGE 149
USER SYMBOLS
CROSS REFERENCE TABLE
4906

4995

4904

5549

3370

353S

3670

3700

3919

4179

5430

6340#
5410

5470

5606

5759

7210#

7284
2722
4003
5004
5448

7286
277d
4120
5041
5513

2895
4234
5.:70
5587

4718

2117N

4707
5681

2006

2010

2270

5904

2008

2010

6720

6722

721S.
3032
6268

31S0
6291

3249
721S6
5364
4428

6625
6633

6676

6286
2930
5709

6731
SaGSN
5055
2672
2942
32GS
5051
2957
2936
3377
2947
7210
6672
4025
2357
3221
4596
5226
7212'
6562#
7212

5,24
3925
3045
3305
5120
3059
3039
3552
3049
6695
4043
2394
3345
4662
5259
7275
7214

5203
4334
4206
3559
5199
3295
3256
3687
3278

5360
4808
4527
6261#
4202

5426
6316'
6264#

6329#

4,,0
41S7
3833
3726

46'9

S30aN

7206.
4092
2446
3452
4748
5276

5021
2531
3508
4769
5305

5321
2566
3637
4847
5350

6393
259B
3792
4927
5380

7214_
2656
3906
4973
5425

5243

52S6

COUNT
001362
COUNT I 001364
~ 000015
CR
CRETRN
021430
CRLF • 000200
DOISP = 177570
DOPCH
001410
DE.LAY = 104417
DE LA. Y
021664
DH100
032753
DH103
033010
DH104
033024
OH107
033050
DH117
033106
DH126
033122
DH130
033150
OH131
033207
OH133
033235
OH14
032113
OH140
033273
DH2
032020
OH21
032150
OH30
032155
OH34
032213
DH35
032231
OH36
032251
OH4
032047

341464056852
6303
6813
1855
1905
5166

OH40
OH44
OH5
OH54
0>156
OH64
OH66
OH67
DH74
DISPLA
OISPHE
DREser
DRHOLD
DRI VAO

032301
032327
032075
032374
032503
032610
032634
032672
032732
001142
000174
021504
025302
001350

DRIVS

001412

DRIVO
DRIV1
DR! va
DRIV3
DRIV4
DRIVS
DRIV6

001414
001416
001420
001422
001424
001426
001430

1158N

6729I I 70.

1973

113S'
90e.
6266
909.
915#
1156#
2342
6456#
1565
1586
1593
1614
1551
1719
1733
1741
1755
1248
1790
17 I 2
1346
1269
1262
1304
131 I
1255
1649
1325
1241
1438
1410
1429
1475
1489
1496
1537
1057#
1015#
2734
721S_
1127.
2669
3332
4454
5222
6425

1171*

" 72#

1173N
1174#

1175.
1176N

4523

2996
430B
SIlO
5667

309B
4397
5139
5754

6284"

MACYl I 30A(1052) "-FEB-7S 08:59 PAGE 150
CROSS REFERENCE TABLE -- USER SYMBOLS

3410*
63906842
6285
1884
1057
le85
5155
7220
1663
7947#
7950.
7955#
1670
1726
7969#
1762
7981M
1776
7988#
7837#
7857#
1276
1283
7870H
7814#
1318
1656
78ao.
1290
1847#
1420
1466
7919#
7924.
7930#
,544
1855'
1863
4874
7285
21042738
3505
451 I
5316
8716
1959

4265

6282N

MD-l l-CZRKKF. RKI I BASIC LOGIC TEST 2
CZRKKF.Pl1
21-FEB-7S OB:51
113511

SEQ 0147

4798

4688
5657

4643

3520_

3533-

4516'

4519-

6317
6852

6330

6341

6346.

19125584

1914
7220.

1916-

1920

1684

1698

1705

7961#

1367
1297

1381
1332

1402
1530

1452
7866#

1339
1748

1374
1769

1395
1805

SEQ 0148

5221 •

5264.

1929

1941

2197

2199

1579

1628

1635

1691

7859#

1445
7842#

1459

1482

1523

1558

1572

lS21

1783

?SSSN

2275

2284

leoo

1607

1842

2567
3248
4356
5017
11360

2610
3262
4419
50B6
6391

5862

671,.

794U

1677
7964#
7976.
785U

1353

1380

1388

1504
7906#

1514

7893#

179B
1863*

7937#
6654.

4991
7290
2272a81e
3620
4522
5407
6725
1995'

5260
7294#
2277
2833
3764
4549
5465
7276
201,.

5818

6390#

6428

7273

7291

2289
2913
3920
4673
5530
7277
2047'

2321
2929
4015
4727
5599
7279206B'

2367
3015
416,
4730
5681
7261'
2077

2404
3031
4178
4749
5757
72B2
2097

2416
3068
4254
4785
58230
7290.
2237.

2456
3123
4264
4862
6264
7295.
2265

2541
3236
4326
4939
6282
7307.
5820

2050

2101

2194

2232

2234

2297

5651

5891

6719

6B7S-

7296

RKll BASIC LOGIC TEST 2
21-FEB-78 08:51

rtL~-' 1-CZRKKF.

CZRKKF,P11

DS\oJR
OT 1

001432
001352
001354
177570
031724

OT2

031732

DT20
DT21
DT26

031742
031756
031762

DT54
EFLGl
EMTVEC::
EM100
EI"" 01
E,""02
E'Vi103
ET'I1104
EM10S
E:'I1,06
EM107
EM1l
E~,111 0
E!I1l11
EM1l2
EM1l3

031774
001370
000030
027756
030001
030043
030067
030105
030156
030214
030245
025370
030306
030351
030376
030417
030456
030515
030551
030624
025402
030671
030744
031002
031051
031110
031152
031211
031252
025415
031314
031351
031376
031410
031433
031474
031531
031547
031616
031662
025427
025456
025470

D'i 1 V7
D'1VDON
D~VPTR

D/1114

E["';115
EM116
EM117
E\'112
EM120
Efl'1121
E)/1122
E~11123

E'<1124
EM125
£:11126
EM127
E~.11 3
D1130
E,'I1131
E';'\132
E:,1133
E:\',134

E,'t,135
E'';1137
E'II: 140
E:,1141
EIVI142
E"I116
E!\121
EM30

'''D-11-ClRKKF.
C2RKKF. P11

EI,131
EM32
F..M33
EM34
EM35
:;:1136
t:M37
ErI140
EM41

104406
021010

GT3RG

021002

GT4RG

020774

HT
INDX1

•

000011
001356

1131/1

914#
1263
1699
1256
1559
1770
1242
1347
1249
1636
1412
1138#
1003#
1564
1571
1578
1585
1592
1599
1606
1613
1804
1620
1627
1634
1641
1648
1655
1662
1669
1240
1676
1683
1690
1697
1704
1711
1718
1725
1338
1732
1740
1747
1754
1761
1768
1782
1789
1797

1809
1254
1261
1268

1291
7822N
1270
1664
1422
3408*
1839*
7590N
7595N
7602N
7607#
7611 #
7619#
7625#
7631#
7316#
1775
7645#
7650N

1275
1282
1289
1296
1303
1310
1317
1324
1331
1345

1352
1359
1366
1373
1380
13B7
1394
1401
1408
1418
1428
1437
1444
1451
145B
1465
1474
1481
1488
1495
1247
1512
1522
1529

1536
1543
1550
1557
996#
5801
1152#
1126#
1014
6573
7214
1878
4956
5346
2335
4425
2222
3157
4521
906"
1133"
5SB7*,

7308
5816*
2268
1854
1298
1799
1319
1601
7816N
1354
1277
1692
1431
3429*
1840*

SEQ 0149

5820
2286*

671.

1305
7814M
1326
1608

1333

'439

,538

'545

1552

'587

'67'

'678

1685

1340
1643

1375
1650

1396
1657

'446
,7'3

1460
1720

1476
1727

1483
1742

'524
1749

153'
1763

It.-dO

1615

1629

1361

'389

1573

1622

17B4

1791

781.#

136B
1734
1468

1382
1756
1506

1497

'566

3633*

1453
7824#
7827#
3706

1490

3629*

1403
1777
1516
3655

7638#

7654A1
7661/1

7668N
7674N
7683«
732011
7691 #
7700#
7706#
7714#
772111
7728#

7735H
7742H
7323#
7749#
775511'
7760#
7763#
7768#
7775#
7781 II
778511
7793'

7799N
7326#
7331 #
7334.

RK11 BASIC LOGIC TEST 2
21-FEB-780B:51

025500
025510
025531
025551
025570
025623
025653
025707
025747
EiVl43
026004
Er.,,44
026036
D'145
02611 2
EM46
026160
Efllo47
026216
USC
026260
~M51
026307
EM52
026362
Er>"53
026407
EM54
026452
EM55
026544
EM56
026623
E:vI57
026662
EM60
026720
Er,,IIG1
026757
EM62
0270 t 4
EM63
027026
E!>-164
027072
EM6S
027135
EM66
027201
Er..i67
027240
E1<170
027253
E;';171
027344
EM72
027422
E'I~73
027464
EM74
027536
EM75
C276C6
EM76
027656
EM77
027721
ERRVEC:: 000004
FCHEC\<
025160
FFLAG
001404
FTIiLE
001346
GNS
*>1<**** U

GTSloJR
GT2RG

1177#
1128#

5859
2' 02*
2101 ",.
1056
1284
1706
1312
1594
1806

08:58
PAGE 151
21-FEB-78
MACY11 30A ( 1 052)
CROSS REFERENCE TABLE - - USER SYMBOLS

7337'
7340#
7344#
7348#
7352#
7358#
7364#
7370N
7377#
2143
73B9'

MACY11 30A( 1 052)
21-FEB-7B
08; 58
PAGE 152
CROSS REFERENCE TA8LE - - USER SYMBOLS

SEQ 0150

7383#

7398#
7406#
741 :t,,.;

7419#
7424#
7433#
7438#
7445#
7456'
7465#
7472#
7478#
74B5N
7491#
7494i1
750111
7508'
7516#
7523#
1502
7537#
7546'
7553#
7561#
7569N
7577'
7584N
1852
7273"

7526.

1853*

1864$

2291*

7301
2303*

5799

1092

1893*

1901*

6616

6617$

66194<

6622*

1883
6581
7216

1926
7198
7218

1938
7199
7220

1947
7200
7222

1951
7201
7224

1966
7202

1990
7204

2122
7206

2147
7207

2301
7208

4969
5422
2701
4440
2407
3368
5707
6852
2467*
6027

5030
5541
2746
4709
2580
3536
5925

5037
613211
2823
6131#
2626
3667
6130#

5092

5100

5106

5170

5186

5251

5272

5331

2918
6319
2632
3817
6267

3020

3547

3681

3829

4167

4332

4341

2637
3936
6407

2683
3941
6527

2687
3945

2696
4068

2832
4,'74

2928
4177

3030
4263

3618*,

3735

3737$

3743$

3804*

3814*

3898-

3977

3982<

5765-

6151
7210

6435
7212

7204#
4963
5416
2371
4435
2382
3247
5691
6811
2458*
5886

6029*

M~-"-CZRKKF,

CZRKKF. PI I
INDX2
00'360
IOTVEC. 000020
IF
MSGl

III

MSG2

MSG3
MSG4
..,SG5
MSG6
NUDRV
ODOEVN

OUTBUF

000012

001216
001236
00 I 245
001272
001303
001315
005040
001406
033342

RK"
BASIC LOGIC TEST 2
21-FeB-78 08:5,
1134#
1001#
907#
1084#
1086N

1091#
1096N
1099N

11 02N
2250#
11 53#
278B
3272
4160

4462
5525.
PFSTRT 004702
PHVDRV 001438
PIRQ • 177772
PIRQVEo 000240
PRO
• 000000
PRI
• 000040
PR2
• 000100
PRl
• 000140
PR4
• 000200
PRS
• 000240
PR6
• 000300
PR7
• 000340
PS
= 177776
PSW
177776
P. .iRVEC= 000024
RDeHR = 104410
>:!DLIN =- 104411
RESVEC= cooo I a
RKBA
00'335

001332

RKCS

RKOA

001340

001342
001326

RKER

001330

RKPRI

001400

5532

2174N

7264

11 eON

e8S0-

001402

RK~~C

001334

SEEKO
SEEKl

001372
001374
001376
021200
SIMUL
001344
SIZEF
025304
5 I ZYET 001440
STACK = 001100
START
002636
STARTA 002704
START, 003334
STKI.MT!J 177774
ST2
003738
ST3
004262
ST4
004456
SWR
001140

5975-

2953

3011
3781
4367
5319
8000N

3053
3964
4372
5392

5902

365,
4365
4943
8013

7259-

7260-

3275

3358.
4462
5678
3120
4002
4949
5579
6583
2404.
3235
408'
48625533-

578"

5el0
2855
3334
4253
4503
5677

5913
2857
3409
4277
4789

6055'
2909
3521 •
4324·
4829

2951
3625
4327
4831

5893

11898

5654-

5981

8012

6724

6056
3056
3968
4378
5402.

314,.
3972
4380
5408

3146
40'4
44"

3237
4,47

546,.

4418
5487

36534510-

3805<
4534

39644537

3233
4172
50195758-

324042565035
5866

3242

24563527'
4161'
5017*
5556
72823465
2405
3679
6362

2544*
365S'

3462
2377
2740
5983

35254465
5751
3152
4132
4967
5666
7283241633574087.
4944'
5551
64253464
2380
3545
6131

4254*
5086559972853654
2418
3827
6366

3857
2422
390,
6399

5098
6331

51S8
6332

5249

5328

5339

4707-

4718*

4790

4798_

4806'

365S'

3807'
4955

3965'
5084-

4019'
5093

4085.
531S·

6'S7
7009

643,
7046-

11567
7239

935N
936N

9376
9,ON

911#
1002#
7113
1968
997M
1116#

g,l

1894

18437207.
7208_

1844-

7231'

7232-

7241'

7247.

2908

3010
4195
53192668
36604612
5315
6343
2051 2739_
3957

31464198
5406-

3238'
425354672814
38104782
5460
6523
2201 2913396346805.46S"
6290
3102
2320
2630
4752

3272
4323
5532.
2907
3812
4861
5537_
6559_
23210
3015.
401S_
4749'
5486
6306
31Bl
2345
2679
5157

55666563
23673122
4078
4783
549'
636031B6
2368
2685
5965

4438
6132

4961
63,6

5016
6329

2815

4020*

4086.

4160*

4784

4943·
2327-

50852608
3531
4501
5220
6342
2042
273839224459
531659283087
2041
2542
4540

4511.

3960
4673-

5317_
6130
3099
2063
2569
4725

6284
3101
2202
2619
4750

3902
5480
4865

4344
5623
5945

4346
5629
6487

1114#

3331
4320
5088
6265
1117#
2610.
3699
5241_
5697.
1118#
1112#

2457
4051
6426
"'3#
5414
1144#

35294409
5151
6340
1818·
2669·
38084456
5252
5757'
3084
1820
2505
4273
72S7
2699
5476
1897-

2108·

4613

4869

4895*
2817-

4904*
2912$

4252-

4321

3014111
4417*

5466*

5531.

111SN

114111

2741-

3662
4672
5379
63922052
281S'"
5407·

4418*

5600'
3008
3900
4946'"

6391.

MACY11 30A(1052) 21-FEB-78 08:58 PAGE 154
CROSS REFERENCE TA8LE -- USER SYMBOLS

1149#

415901<
5405*
S':EK2
5riFTRT

5954

3664·

1007#
930N
931#
932N
933N
934#

,.1D-l'-CZRKKF, RK11 BASIC lOGIC TEST 2
CZRKKF. P11
21-FEB-78 08:51
RKVEC

SEQ 0,5,

5B720

3652<

24690
'836'
6652

913N

4419$

RKDB
RKDS

2465"
1837'
6846
2045
2080
6570
2288
671 0
6728
5824
S6s1 •
2813
3274
4247
4464

MACY" 30A ( , 052 ) a'-FEB-?S . OS:S8 PAGE
CROSS REFERENCE TA8LE -- USER SYMBOLS

4643*

4688-

4697-

3359'
45095755'

4787*

4942*

5598_

4448
5680-

6302

6305

60'8
3433

6228#
3622

6717
3732

6726
3785

3866

400U

as,s

2028
66S6

2,38
6692

2,52
6696

2,57
6699

6484-

6490.

6522·

6525.

5534

3896

3985

3980
4731

4734

2030$

2033*

5999
3335

2039-

5847.

2127
1828#

2164

5548*
3148*

3526-

114211

'143#

2290
1125'
5849
1181_
901#
1018
1817
1S91
912#
1911
1922
203'
1056#
6611

7295#
2027:4
1835
1814#
1821
1905#
1935
,933
2034
1833

1992

6625

1959#
2039#
2078
18540
6627

6633

20961
,8626640

7009

7022

20el
16SS

6098
1S7S

7252S'NREG

swo

51>00

swo,

SW02
5W03
5'1/04
5('0'05

000176
• 000001

1016'
965#

'BS2

'87S

• 000001

955N

965
964
963
962
961
960
959
958
957
956

S699

• 000002
= 000004
• 000010
• 000020

= 000040

51>06
SW07
SW08
SW09
SWI

000100
• 000200

SW10

• 002000
• 004000

SW"
5W12

111
l1li
'II

ill!

000400
001000
000002
C10000

5\'>'13

= 020000

SWl4

II:;

040000

5W15
Sw2
Sw3
SW4
50/5
5016
5W7

• 000200

5W9

• 00' 000

swa

• 100000
I::

000004

00D010

000020
00C040

= 000100
III

000400

TBITVE= 000014

TIMER
TKVEC

III

001366
000060

TPVEC SI 000064
TRAPVEII 000034
TRTVECa 000014

25670
3694
4322
5154.
5683'

SEQ 0152

4677
5942
3239'
4450
5696'

4631*

4258
5083
6133

954.
953#
90U
95H
950.
949'
948#
947#
946_
964M

945'

2026

944M

943'
942_
941#
940'
963'
962#
96"
960.
959_
95S'
957.
956.
998_
11370
1005_
1006#
1004#
999'

6696
6431

6567

6686

6361-

6364'

6456-

,841·

1842-

6459"

MD-11-CZRKKF.
CZRKKF. P11
TST ENO

TSTRWS
T5TSIN

020626
021436
021572

TST oSI= 104421

IST1

T5Tl0
T5T11

T5T12
T5T13
T5T14
15T15
T5T16
T5T17

T5T2
TST20
T5T21
T5T22
TST23
T5T24
T5T25
1ST26
15T27
15T3
15T30
T5131

T5T32
T5T33
TS134
TST35
TST36
TST37
T5T4
T5T40

TST41
TST42
TS143
T5T44
T5T45

1ST46
T5T47

TST5
T5T50
T5T51

TST52
T5T53

004706
005742
006030
006110
006252
006416
006510
006746
007174
005040
007504
007702
010154
010524
011004
011414
011722
012242
005236
012530

012764
013170
013436
013720
014176
014330
014554
005350
015070
015274
015456
015564
015740
016076
016304
016456
005436
016634
016762
017134
017330

T5T54

017522

T5T55
T5T56
T5T57
T5T6
T5T7
TYERM
TYPOS
TYPE

017760

020004
020054
005464
005522
021026
104405

104401

RKll BASIC LOGIC TEST 2
21-FEB-78 08:51
6028
2750
6425.
2666
4244
5458
2110
2481
2S54
2579
2642
2705
2775.
2866
2970
2259.
3100
3219.
3300
3463
3614.
3733
3867
3998'
2309.
4001
4215
4274
4376
4470
4541
4660#
4758
2341
4830
4901

5003N
5069N
5138#
5163
5291
5378.
2381
5447#
5489
5578.
5647#
5659
5797#
5814,
5845.
2406
2419
2055
6085
1872

6055N
5128
7224
2732
4318
5523
2192'
2503
2565.
2597#

TYPOS
T56

TS6FLG

020140
0014.34

WATIME
021742
WATINT
021706
WAT.IN= 104420

$AUT08
$aOAOR
$800AT
$CHARC
$CKSWR
$CMTAG

$CMl
$CM2

$CM3
$CNTLG
$CNTLU
$CRLF
$08LK
$OOAGN
$OT8L
$ENOAO
$ENOCT
$ENOMG
$ENULL
$EOP
$EOPCT
$ERFLG
$ERMAX
$ERROR
$ERRPC
$ERRTB
$ERRTY
$ERTTL
$ESCAP
$F ILLC
$F ILLS
$GOAOR
$GOOAT
$GET42
$GTSWR
$HO
$ICNT
$1 LLUP
$INTAG
$ITEM8
$LF
$LPAOR
$LPERR

001134
001122

001126
023304
023762
0011 00
000012
000024
000012
024647
024642
001213
023524
020750
023514
020740
020706
020757
020754
C20652
020700
001103
001 I 15
022412
001116
001442
022734
001112
001210
001156

001155
001120
001124

020730
024032
000000
0011 04
025142
001135
001114
001214
0011 06
001110

5236

5256

5585

5752

6360N

2786
4407
5744

2905
4499
7224#

3006
4606

3138
4779

3231
4857

3355
4937

3518
5014

3648
5080

3802
5149

3916
5239

4130
5390

2508

2515

2530'

1964

19S8

2044

2066

2079

2120

2140

2142

6710
7020
7146

2721#
2893_
2995#
3119'
3328#
3497#
3749

3777#

3894N

4100
4233#
4294
4396'

4119.
4307.

4488N

4559

4584

4595.

4768#
2356.
4846#
4926#

5219'
5304N
2393#
5512'
5717

5742#

24151
2445'
2086
7202N
1924

61$,8.
1936

1945

1949

21-FEB-78 08:58 PAGE 156
MACYll 30A( 10S2}
CROSS REFERENCE TABLE -- USER SYMBOLS

SEQ 0154

2299
6742
7037
7261
2150

2304
6759
7048

60B3
6761
7087

6086
6764
7120

6149
6766
7126

6433
6770
7131

6569
6777
7135

6571
6816
7140

6579
6911
7141

6689
6981
7143

6154

6439

6577

6584

6727

6750

6774

7023

7199N

1930
5862'
1179'
2099
6484#
4619
1053'
1048'
1050'

1942
605B
20962174
7222
4633
1880*

2293

7200#

58650
6500#

6059.

6707

4682
7017

4703
7166

4794

5538

7222#

6818*

6828'
7206
1830
1069#
1069#
1068
71611
7135
2067

6835

6844.

6849#

1831
1070#

1839
1071#
1071#

1845
1072#
1072#

1846
1073#
1073#

1074,
1074#

1075#
1075#

1076#
1076#

10771
1077#

1078#
1078#

7160#
2141

2305

6689

6742

6761

6766

6770

6S1'

6852

6911
6088
6915.
6090#

6919#
6094'

5864

6071#

6713

6629
6631

6631
66530

66370

6658

66730

6684-

6685

6748

7814

7816

7819

7822

7824

7827

582666520
6852

667S.
6702

6680
6704

6645
7266.
7166
6745
7150
2155
3126>

6647.

6557

7160
6635_
33290

66503499-

6655
361S-

6657
3779>

6698
3903-

4859-

52240

5582-

7021

TYPON

5207

2288
6728
7024
719B#
2125

2145
6724
104402
'04404
104403

SEQ 0153

2655N

MO-l'-CZRKKF. RKll BASIC LOGlC TEST 2
21-FEB-7S 08:51
CZRKKF. Pll

TYPOC

MACYll 30A(1052} 21-FEB-78 08 58 PACiE 155
USER SYMBOLS
CROSS REFERENCE TABLE

7150
2071
7201#

7009'
1036.
1068.
1068#
1066#
7020
7037
1081#
7160
6877
6079
6880
1025
6081#
6083
6086
2100
6078'
1039.
1045#
1839
1046.
1196.
6688
1043_
1079'
1064.
1063#
1047#

6098'
6097.
2267
6082
6600
1847·

6672'
6683'
6756
6741#
2:'264*
1846*

6821
6852

1070N

7048

'140

5748-

6635

6658

104911

6087.
7021#
871
1040#
7231
1054.
1044.
1082#
1041.
10421

7204
66447247
7049
66et=:'
6852
1848*

1849-

BASIC LOGIC TEST 2
21-FEB-78 09:51

MD-1 '-CZRKKF. RKll

CZRKKF, p, 1

665~ $

S'MlL = "'11'***'" U

024665
024654
$MXCNT
022410
001154
$NULL
$N;ITSr. 000001
SMNEW
$'~SWR

023756
SOCNT
$OMODE 023760
022374
saVER
001100
$PASS
$POWER 025150
$PWRAD 025136
SPWRDN 024775
$PWRMG 025132
SPWRUP 025050
SQUES
001212
$RDCHR 024244
$RDDEC= **"' ••• U
$RDLlN 024364
$RDOCT. *.**** U
$RDSZ = 000022
$REGAO 001160
001162
$REGO

'866
7024
7021
6649
1062'
2179.
2562#
3105.
388e
4587#
5062
5569#
695369486612
1037N
7262
7264#
1843
7262'
7241
1080.
7080#
7209
7108.
7209
710"
1066'
1068'
27063286*
4034*
4459+

4799*
5771 '"

001164

$REGl

7824
1069'
3087*
3843*
4368*
4911.
6343*

$REG10

001202

$REG11
$REG2

001204
001166

1076#
4264'11

SQEG3

001170

$REG4

00,'72

$PEG5
$REG6
SREG7
$RTNAD
$R2A

('01174
001176
001200
020752

1077#
1070#
4549*
7819
1071#
1072#
1073#
1074.
1075#
6096#
7209

6657
1876
7164'
7'62'
6657'
6823
2180
2588.
3107
3990.
4589
5132'
557'
6992'
6952'
6628
6075*
7269#

670'
6650

7231#

7259

72471
6852
7207

$SAVRE.

****$. U

SSTUP • 177777
$SV"AD 022346
SSVPC 1111 000204
SSWR • 165400

7209
72401837
1814*
7004
1814*
6620
1023#
8S2N
1845
2598

$SWRMK_ 000000
$TIMES 001206

3999
5139
6074
6629
B84
1078#

$TKB
$TKS
$TN

001146
001144
• 000060

2306'
2650
3309.
4113
4762#
5214
5732#

2353"
2711#
3311
4222#
4764
5297#
5734

6960'
6646
6084

6971'
6654#
6097

6997.

7087

7143

7180

221 ~ 0\1

2324.

2345-

2857*

2867'

2953*
3417.
4197.
4536*

23772964*
3448*
4216*
4547*
4910*
6019*

STPS
STRAP
STRAP2

STR?

001152
001157
001150
024678
024720
• 000022

3301·
4080*
4464*
4815*
5961*

STRPAO
STSTNM
$THIN

024732
COll02
024620

$TYPBNu

**'1"'.... U

$T YPDS
$TYPE
$TVPEC
$TYPEX
STYPDC
$TYPON

$TYP05
$XTSTR
$$GET4.
$OFILL
S40CAT=
•

023310
023070
023240
023306
023560
023574
023534
on152

000000
023757

3389$

4101*
4471

483103r

5968'

7827
2511·

30943857*

2518$
3101.

4379-

3952$
4451 ~

5293*
7616
28334522-

533S'
7819
2929*
5692-

2965*

306S49557827
3682>

4563*
7B24
35487827
7827
7827
6185

1884.

2510'
3086'
3842*

4884>1<
6DOQoeo

29710\1
3464*
4284*

2517.

3093'
385S4360-

4565'

4621$

3715*
4346*
4689*

5292*
6133*

533aS30S-

5479'
6331*

5490'

2707.
3275*
4035-

2868*
33024102'
45485629-

2954$
3390*

2965-

4198~

42~ 7"4

4562*
5719-

4735$

4285'

4352'
4700$
6342.

47221<
5555.
636S*

2556'
318S39534367'
4732*
561S7914

257S32743959'
437S7816

2643*
3285*
39704450*
47595721'
7819

4361'
4885'
6332-

4752*
5628*

3067.

549~ *'

5556-

285B*
328740610
4537.
5617.

5772*

6132-

3055'
3465*
4353'
48326306-

7827
3158"
6192

32486196

336g.
6261'

35376264'

366S6287-

3696*
6290'

3699'

a81S'

417S'

32SS.
4964-

3391'
5029'

34195093$

37135101'

3844'
5171'

3972'
5252-

403S5332'

41035417'

428S'
5722-

61310

3830-

5723-

6130'

6181

13560.

6562>

6565-

7819

7827

2557.
3102*
3960445954807824
3031'
570e.

264431863971*
4465'"

4472'"

34~8*

29723449*
42864816*

37~2*

4380-

SEQ 0166

72GSN
1841

1843

1845

1846

1848

1812

1873

6073

8610

877
1848
2722
4234
5305
6095
6631
6605
2260563S'
7013
56992178
2410
2566#
2872
3463
3999#
4387
4762

87B
1849
2776
4308
5379
6097
6638
6606
34986645
7030
5715
2193#
2416#
2579
2894'
3470
4001
439U
4769#
5163
5569
5846#

879
2193
2894
4397

880
2260
2996
4489
5513
6602
6640

881
2310
3120
4596

883
2394
3329
4769
5743
6605
6657

884

2416
3498
4847
5798
6611
7265

1078
2446
3615
4927
5815
6623

1079
2531
3778
5004
5846
6625

1080
2566
3895
5070
6068

6603
6651

882
2357
3220
4661
5648
6604
6654

3778.
6657
7090
7002
2260.
2428
2598.
2979
3595
4111
4475
4835
5220#

3895.

3999'

4661'

5648'

5743'

5798-

5815-

7011
2306
2446#
2642

7051'
2341
2503

7082
2353
2508
2705

7088

4995
5379#
5743#

2381
2525
2722*
3220#
3867
4294
4596#
5004#
5435
5791

2390
2531#
2760
3300
3886
4301
4651
5060

5637

3615#
4120#
4489#
4847#
5291
5648#

7027
2310'
2481
2648
3100
3733
4215
4541
4901
5297
5659

7203#
7218

7204
7217#

7205#
721B

7207"

7219H

7220

7208e
7221H

7209#
7222

7210

7215#
6627
7155

116497159#

6854

6658

8675

7141

6839#

6840

7053

1026#
1952'

102S#
1991#

1035.
2123'

10B3
2148#

108U
2266

'824
2620

1834
3193

1848
3440

1849
3569

6649#
1028
871
1846
2656
4120
5220
608~

6630

aas

7213#

1010N

25053066-

3714*

5503#
5831

1839

720M

6947*

2500_
3055.

4997

2521

2991
3886'
4477
5060#
5505

7250-

7212
7225#

6611

2422'

2525'
2979.
3756
44756

1837

7199H

**$$$* U

6658

4920
5435#
5808

2430
2874
3754#
4389
4995#
S,J7
5829#

7249-

721U
7224
7180

034342

6642

3597
438'/1

6609#
1836
7166

7190H

1038H

5791#

2428#
2872'

7248

6852

7110
7203
6865#
6799#
6820
6845
6951#
6950
6946#
6614#
6089#

4836#
5299

2412
2762
3595#
4303
491Bf
5371
5806'

MACV11 30A(1052) 21-FE8-78 08;58 PAGE 158
CROSS REFERENCE TABLE -- uSER SYMBOLS

6839

1065H

3470N
4224

24,0'
2760'
3472
430U
4838
5369#
5793

7827

1060#
1841
7186#

4308#
4661#
5070#
5489
5806
1061#

2390.
2713

7209

5513#
5829
6852
S8S2

1059N

1058.
852'
2394#
2554
2776'
3309
3895N

STPB
$TPFlG

6852
2253.
2590
3200.
3992
465"
5134
5637#
6995#
6957
6636
6076'

1845*
60747002
5698
B71
2406
2562
2866
3329'
3990
4376
4756
5132
5503
5815#
6841*
6799

5846$

SeQ 0155

6905

2255
2648.
3202
4' 11.
4653
5212#
5639

MD-l1-CZRKKF. RK11 BASIC LOGIC TEST 2
CZRKKF, Pl1
21-FE8-78 DB: 51
$SAVRS 025146
$SCOPE 022140
$SETUP. 000117

MACV11 30A(1052) 21-FEB-78 08:58 PAGE 157
CROSS REFERENCE TABLE -- USER SYMBOLS

5139N

5448

6601
6639
6627
3615664B7084
5718
2253
2419
2588
2970
3498#
4100
4470
4830
5212
5579#

5579

2996N

7175#
7197

7197H

720U
7214

8aoo

226171 I 1

B0730
7123

1202
7190
6827
6847
7199
6953'
7200

6850N

6951$

6961

5996#

1014'
1927#

1023
1939#

1024#
1948#

7198
6834

7202<11

2656H

3105
3749
4222
4559
4918
5305#

5717

7206

3120N

3754
4234#
4584
4927#
5369
5732

235711

2515
2711
3200
3778#
4274
4587

6628

5448#

579S,

7223#

7201

MD-l'-CZRKKF, RKl1 BASIC LOGIC TEST 2
CZRIIKF • P 11
21 -FEB-7S 08: 51
4055
6657
7810U

MD-11-ClRKKF.
CZRKKF. P11

COMMEN
ENDCOM
ERROR

1#
902#
2558
2747
2955
3162
3397
3831

ESCAPE

GETPRI
GETSWR
ME SAGE

MORETA
MUl T

NEWTST

POP
PRIOR7
PUSH
REPORT

SCOPE

4104
4354
4552
4821
5102
5273
5492
5926
1#
1#

SETUP
SKIP

SLASH
SPACE
STARS

2959
3168
3421

3835

2223
2581

2824
2967
3177
3450
3845

4168

4181

4362
4568
4833
5107
5288
5542
5962

4369
4622
4886
5122
5294
5557
5969

1008#

2253.
2762
3753.
4477
5132#
5639

1198#

903#
2995
4660
1#
7190#
7222
1#

1#
2970
4559
1#

6697

5BB9
57aON

5896

5994

6852

5919H

6097
7002

SEQ 0157
6101
71seN

6152#

6403

7160

7166

6436#
7243

MACY11 30A( 1052)
21-FE8-7B
08:SB
PAGE 161
CROSS REFERENCE TABLE -- MACRO NAMES

6582N
7267

SEQ 0158

2325
2614
2836
2973
3187
3466
3858
4189
4381
4640
4912
5126
5333
5586
6003

2336
2627
2843
3021
3251
3540
3927
4426
4675
4957
5130
5340
5608
6021

2346
2633
2849
3034
3258
3549
3937
4204
4430
4690
4965
5172
5347
5618
7274

2372
2638
2853
3041
3267
3554
3942
4208
4436
4701
4970
5187
5362
5630
7292

2410.
2874
3885#
4589
5212#
5734

2412
2978#
3888
4651#
5214
5791#

2306
3309
4918

2501
2697
2932
3069
3303
3702
4037
433:;
4473
4760
5038
52'5
5428
5761

2506
2702
2938
3088
3372
3717
4069
4337
4525
4CJO
5053
5253
5432
5773

2512
2708
2944
3095
3379
3728
4075
4342
4529
4810
5057
5258
5472
5802

2519
2735
2949
3103
3392
3821
4082
4347
4538
4817
5094
5261
5481
5819

2588'
3202
422,.
4838
5435#
5831

2590
3308#
4224
4918#
5437

2648#
3311
4300#
4920
5502'

2650
3470#
4303
4995#
5505

2711 #
3472
4387#
4997
5568.

2562
5369

2588
4222
5435

2648
4301
5503

2711
4387
5569

2760
4475
5637

4710
4985
5201
5366
5694

2383
2674
2863
3051
3280
3672
3954
4218
4452
4723
4989
5205
5412
5710

2408
2684
2869
3057
3289
3684
3961
4267
4460
4736
4992
5209
5418
5724

3061
3297
3689
3973
4289
4466
4753
5031
5238
5423
5753

2427#
2981
3989H
4653
5297#
5793

2430
3105#
3992
4762#
5299
5806N

2524.
3107
411 0#
4764
5369#
5808

2527
3200H
4113
4836#
5371
5828'

2353
3470
4995

2390
3595
5060

2410
3754
5132

2428
3886
5212

2525
3990
5297

7253
4824
7239

4897

5561

5662

5899

4199

2378
2645
2859
3047
3276
3561
3946
4212
4441

2423
2688
2919

1008#
1008#

352#

5887

1008#

2212
2577
2751

2180
2760#

2872
4587
5732
1#

4679
6691
eOOOM

1008#

2177#
2713
3594#
4389
5060#
5571
1029#

579'7
SETPR!
SETTRA

RK11 BASIC LOGIC TEST 2
21-F£B-78 08:51

4617
6658
7997M

MACY1130A(10S2)
21-FEB-78' oa,ss PAGE 150
CROSS REFERENCE TABLE -- USER SYMBOlS

3597
4475.
5062
5637#
1084
t 008#
1008#

2979
4651

5791
1008#
4608
'1008#
'1008#

2192
311 9

4768
5814
100BH
7199
7224
1008H
1008#
3100

4584

1873#
2255
2872#,
3756
4587#
5134

5731#

2178
3105
4762
5806
6906
4645
6865

2253
3200
4836
5829
7252
4743
7233

2259
3219
4846
5845

2309
3328
4926
6072

2356
3497
5003

2393
3614
5069

2415
3777
513B

2445
3894
5219

2530
3998
5304

2565
4119
5379

2597
4233
5447

2655
4307
5512

2721
4396
5578

2775
4488
5647

2893
4595
5742

7200

7201

7202

7204

7206

7207

7208

7210

7212

7214

7216

7218

7220

1828
2341
3300
4758

2381
3463
4830

2406
3733

2419
3749
5163

2481
3867
5291

2503
4001
5489

2508
4100
5659

2515

2554
4274

2579
4294

2642
4376

2705
4470

2866
4541

4901

5717

1021
2428
2892
3886
4594
5212
5741

1083
2525
2994
3990
4659
5297
5796

2178
2529
3105
3997
4762
5303
5806

2191
2562
3118

2253
2564
3200
4118
4836
5377
5829

2258
2598
3218
4222
4845
5435
5844

2306
2596
3309
4232
4918
5446
6064

2308
2648
3327
4301
4925
5503
6597

2353
2654
3470
4306
4995
5511
6736

2355

2444
2979
3893
4651
5218
5791

3496
4387
5002
5569
6764

2390
2720
3595
4395
5060
5577
6855

2392
2760
3613
4475
5068
5637
6923

4215

4111

1008#

100811
1#

24' 0
2774
3754
4487

5132
5646

1008#
2414

2872
3776
4587
5137
5732

1031

4111

4767
5369
5813

2711

;lm-11-ClRKKF. RKll BASIC LOGIC TEST :1
,:L1-FE8""7S 08:5'
CZRKKF.P11

7001
S.\'RSU
f ,"( ~" T RP
TYP8lN

$$CMR E

$SCMTM
$SESCA

$$NE'.'

$$SEr
$$SKI P

'008#

7072
1850N

7101

7159

7229

7245

1949
1072

1964
1073

1987

'074

2120
1075

SEQ 0159

1190#
1#
1#

iYPDEC
T Y PN.4.M
Tl'PNU:V:
T YPQCS
TYPOCT
TYPTXT

7004

PAGE 162
21-FEB-7S OB 58
MACYll 30A( 1052)
CROSS REFERENCE TAB!.E -- MACRO NAMES

1008#

6084

852#
1008#

1008#

lB68

1008#
6748
1923
1069

6772
1936
1070

7022
1945

2178
3105
4762
5606
1200

2253
3200
4836

2306
3309
491 a

2353
3470

2390
3595

3990

5060

2410
3754
5132

3886

4995

5212

7201

7202

7204

7206

1207

2381
3463
4830

2406
3733

2419

2481
3867
5291

2503

IN
1029#
1029#
1#

1#
2872
4587
5732
7' 90#
7222
1#

1008#

1008#
1068
1008.
1008.
2979

4651

579!
7199
7224

2970

1008#
3100

4559

4584

2341
3300
4758

8SS

• EQUAT

852#

• HE ADE

1M
1H

852#

8S1

852#

1814

S5U

873

e5~#

885#

1#
U
1#
1#
1q
H

852#

, KT11
· SEiUP

5829

4901

3749
5163

6148

5433

6571

6579

2588

4222
5435

2648
4301
5503

2711
4387

2760
4475

5569

5637

7212

7214

7216

1219

7220

~5S4

2519

:1705

4274

4294

2542
4376

2145
1076

2299
1077

2525

5297

2562
4111
5369

7~O8

72iO

2508

2515
4215
5717

2428

4001

4100

5489

5659

4470

1019

laOS

,.
,.
,.

1071

1029

1#
1#

852#

6062

852#

6734

1#
1#
1#

852#

7227

852.

· $RU.D

852#

6999

• $R2AZ
• SSAVE
J,SS:;>O

85211

6595

852#

7167

· $:\lJL T

• .$ PQ\~E

· $ RAND
· SRDDt
· $RDOC

· ~~SB20

H'
1#
1#

· sscop

· $S 12E

• $SUPR
· $ TRAP
· STYPS

1#
1#

1'\'Q-11-CZRKKF,
CZRI(KF. P11

.$TYPD

.$TYPE
.$TYPO
• $40CA

I'
1#
1#

.1170

ASS.

034342

HKl1 8ASIC LOGIC TEST 2
21-FEB-78 08:51
852H
852#
852 •

21-FEB-78 08:58
PAGE 163
30A(' 052)
MACY"
CROSS REFERENCE TABLE -- MACRO NAMES

6853
6782
6921

000

ERRORS DETECiED:
CZRKKF. CZRKKF. LST /CRF /SOL.CZRKKF. SMl,CZRKKF. P11
RUN-TIME: 22 31 1 SECONDS
RUN-TIME RATIO: 392/55.7.0
CORE USED:
34K
(67 PAGES)

SEQ 0160