Digital PDFs

AC-E040B-MC

October 1978

81 pages

Original

9.5MB

Document:	CZRLBB0-RL11 RLV11-Controller-part-2
Order Number:	AC-E040B-MC
Revision:	0
Pages:	81
Original Filename:	http://bitsavers.org/pdf/dec/pdp11/xxdp/diag_listings/RL01/AC-E040B-MC_CZRLBB0-RL11_RLV11-Controller-part-2_Oct78.pdf

OCR Text

IDENTIFICATION

PRODUCT CODE:
PRODUCT HAME:
DATE CREATED:
MAINTAINER:
AUTHOR:

SEQ 0001

AC-E040B-MC
CZRLBBO RL11/RLV11 CONTROLLER TEST PART 2
11-0CT-78
DIAGNOSTIC ENGINEERING
D. DEKNIS

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

Page 2
SEQ 0002

TABLE OF CONTENTS
1.0
1.1

1.2
1.3
1.4

1.5
2.0
2.1
2.1.1
2.1.2
2.2

2.3
2.3.1
2.3.2
2.4
2.5

2.6

3.0

4.0
5.0
6.0

GENERAL INFORMATION
PROGRAM ABSTRACT
SYSTEM REQUIREMENTS
RELATED DOCUMENTS AND STANDARDS
DIAGNOSTIC HIERARCHY PREREQUISITES
ASSUMPTIONS
OPERATING INSTRUCTIONS
HOW TO RUN THIS DIAGNOSTIC
THE SIX STEPS OF EXECUTION
SAMPLE RUN-THROUGH
HOW TO CREATE A CHAINABLE FILE
DETAILS DF COMMANDS AND SYNTAX
TARLE OF COMMAND VALIDITY
COMMAND SYNTAX
EXTENDED P-TABLE DIALOGUE
HARDWARE PARAMETERS
SOFTWARE PARAMETERS
ERROR INFORMATION
PERFORMANCE AND PROGRESS REPORTS
DEVICE INFORMATION TABLES
TEST SUMMARIES

Page 3

1.0
GENERAL INFORMATION
1.1
PROGRAM ABSTRACT
1.1.1 STRUCTURE OF PROGRAM
THIS DIAGNOSTIC OCCUPIES l4.5K WORDS OF MEMORY AND IS COMPATIBLE WITH
BOTH XXDP AND ACT. IT CAN BE RUN STANDALONE UNDER XXDP AND CAN BE
CHAINED UNDER XXDP L ACT AND APT IN ACT MODE (SEE "CREATE fORE IMAGE"
COMMAND BELOW FOK DETAILS OF CHAINING PROCEDURE). IT IS A SINGLE
PROGRAM FROM THE STANDPOINT OF THE DIAGNOSTIC USER
BUT WE RAVE
INCORPORATED INTO IT A CONTROL MODULE WHICH WILL LiTER BE RELEASED
INDEPENDENTLY AS A DIAGNOSTIC SUPERVISOR.
WHEN THIS DIAGNOSTIC IS STARTED AT ADDRESS 200 CONTROL GOES FIRST TO
THE SUPERVISOR PORTION t WHICH WILL ASK CERTAIN "HARD CORE" QUESTIONS
ABOUT THE ENVIRONMENT.
HEN IT WILL ENTER COMMAND MODE INDICATED BY
A PROMPT CHARACTER {OS B}}. AT COMMAND MODE THE OPE~ATOR MAY ENTER
ANY OF SEVERAL COMMANDS AS DESCRIBED BELOW.
THE SUPERVISOR CODING FOLLOWS IMMEDIATELY THE DIAGNOSTIC TEST CODING£.
BUT
THE
SUPERVISOR
LISTING
HAS BEEN SUPPRESSED FOR GENERA
DISTRIBUTION. A LIMITED DISTRIBUTION HAS BEEN MADE TO FIELD SERVICE
OF THE SUPERVISOR ASSEMBLY LISTING, AND IT MAY BE CONSULTED IN EVENT
OF A SOFTWARE PROBLEM.
1.1.2 DIAGNOSTIC INFORMATION
THE RLll/RLVll CONTROLLER TEST (PART 2) IS A PDP-II (LSI-ll) BASED
PROGRAM THAT WILL TEST THE CONTROLLER.
IT COMPLIMENTS PART 1 BY
EXTENDING THE TEST COVERAGE TO INCLUDE WRITE DATA, READ DATA( WRITE
CHECK AND READ DATA wITHOUT HEADER COMPARE. IT IS AIMED AT FULLY
TESTING THE CONTROLLER IN THESE AREAS L BUT BY DEFAULT ALSO EXERCISES
THE DRIVE. THE TEST COVERAGE OF THE ~ROGRAM IS EXTREMELY HIGH.
1.2
SYSTEM REQUIREMENTS
1.2.1 HARDWARE REQUIREMENTS
PDP-llILSI-ll PROCESSOR WITH 16K OR MORE OF MEMORY
CONSOLE DEVICE (LA30 L LA36,VT50,ETC.)
RL11/RLVll CONTROLLEK(S)
1 - 8 RLOl DRIVES
1 - B RLOIK CARTRIDGES WITH BAD SECTOR FILE
KW1lP L KWllL (OPTIONAL)
LINEPKINTER(OPTIONAL}
1.2.2 SOFTWARE REQUIREMENTS
CZRLBB RLll/RLVll CTLR 2

SEQ 0003

Page 4

(FORMERLY MD-II-DZRLB-A)
1.3
RELATED DOCUMENTS AND STANDARDS
RLOI USERS MANUAL (EK-RL01-UG-PRE)
XXDP USERS MANUAL
1.4
DIAGNOSTIC HIEHARCY PREREQUISITES
THE RL01 SUASYSTEM SHOULD HAVE SUCCESSFULLY RUN THE
FOLLOWING
PROGRAMS:
CZRLABO
RL11/RLV11 RLOI CONTROLLER TEST (PART 1)
1.5
ASSUMPTIONS
THE HARDWARE OTHER THIN THE RLG1 SUBSYSTEM IS ASSUMED TO WORK
PROPERLY. FILSE ERRORS ~AY BE REPORTED IF THE PROCESSOR, ETC., no NOT
FUNCTION PROPERLY.
2.0
OPERATING INSTRUCTIONS
2.1
HOW TO RUN THIS DIAGNOSTIC
2.1.1
THE SIX STEPS OF EXECUTION
THIS DIAGNOSTIC SHOULD BE LOADED AND STARTED USING NORMAL XXDP
PROCEDURES.
THF START CO~MAND SHOULD NOT SPECIFY AN ADDRESS, BECAUSE
THE DIAGNOSTIC HAS THE PROPER TRANSFER ADDRESS CODED INTO IT.
~HEN THIS DIAGNOSTIC IS STARTED, THE FOLLOWING STEPS WILL OCCUR:
**********

* STEP 1 1<

**********

A SHORT SERIES OF "HARDCORE QUESTIONS" WILL PE ASKED:
QUESTION
MEANING
L-CLK (L) N ?
IS THERE AN L-CLOCK?
P-CLK (L) N ?
"
"
" P-CLOCK?
50HZ (L) N ?
IS THE POWER 50 CYCLES (AS IN EUROPE)?
IS
MACHINE
AN LSI?
LSI
LPT ~Ll N
N??
IS THERE A LINE PRINTER?
~EtJ
K
(D) 16 ?
HOW MANY K OF MEMORY ARE THERE?
THE DEFAULTS (SHOWN AFTER EACH QUESTION) CAN BE SELECTED BY HITTING
CARRIAGE RETURN. IT IS POSSIBLE THAT NOT ALL OF THE QUESTIONS WILL BE
ASKEO: FOR EXAMPLE( IF YOU SAY "YES" TO THE L-CLOCK QUESTION, THE
P-CLOCK QUESTICN WI L NOT BE ASKED.

SEQ 0004

Page 5

IF NEITHER P OR L CLOCK ARE ANSWERED YES THE OPERATOR WILL BE ASKED TO
TYPE TWO CHARACTERS 4 SECONDS APART.
**********
• STEP 2 •
**********
WHEN YOU HAVE ANSWERED ALL THE HARDCORE QUESTIONS f THE DIAGNOSTIC WILL
ISSUE THE PROMPT "DS-B>".
FROM THIS POINT UN IL THE fIME WHEN YOU
RESTART XXDP, YOU WILL BE TALKING TO THE DIAGNOSTIC
NOT XXDP.
WE
WILL REFER TO THE PRF.SENCE OF THIS PROMPT AS BEING IN DIAGNOSTIC
COMMAND MODE, AS OPPOSED TO XXDP COMMAND MODE.
AT THIS POINT YOU WILL ENTER A "START" COMMAND. THIS IS NOT THE SAME
AS THE XXDP "START" COMMAND~ WHICH YOU ALREADY ISSUED IN RESPONSE TO
THE XXDP DOT PROMPT. THIS "5TART" COMMAND CAN TAKE A NUMBER OF
SWITCHES AND FLAGS (ALL OPTIONAL) AND THE DETAILS OF THESE ARE SET
FORTH IN "2.3 DETAILS OF COMMANDS AND SYNTAX". HOWEVER f IN ORDER TO
USE THE PROGRAM, ALL YOU NEED TO SAY IS SOMETHING LIKE HIS:
STA/PASS:l/FLAGS:HOE
THINGS TO NOTE HERE:
1. ONLY THE FIRST THREE CHARACTERS OF THIS OR ANY COMMAND AT THE
"DS-B>" LEVEL NEED TO BE TYPED.
2. THE "PASS" SWITCH SPECIFIES HOW MANY PASSES YOU DESIRE.
A
PASS CONSISTS OF RUNNING THE FULL DIAGNOSTIC AGAINST ALL
UNITS BEING TESTED (THIS WILL BE EXPLAINED SHORTLY).
ONE
PASS IS SPECIFIED IN THE ABOVE EXAMPLE.
3. THE "FLAGS" SWITCH MAY SPECIFY ANY OF A NUMBER OF FLAGS, BUT
THE MAIN USEFUL ONES ARE:
LOE
LOOP ONE ERROR
HOE
HALT ON ERROR
IER
INHIBIT ERROR PRINTOUT
THE HOE FLAG IS SPECIFIED IN THE ABOVE EXAMPLE (WE'LL SEE WHY
SHORTLY).
*.********
* STEP 3 -*
*******.**
WHEN YOU HAVE TYPED IN A "START" COMMAND£. THE DIAGNOSTIC WILL COME
BACI< WITH THE QUESTION "# UNITS?" TO WHICH YOU SHOULD RESPOND BY
TYPING IN THE NUMBER OF DEVICES YOU WISH TO TEST.
A WORD OF WARNING HERE: THE NUMBER OF UNITS DEPENDS ON THE TARGET
DEVICE OF THE DIAGNOSTIC. FOR EXAMPLE, IF THE DIAGNOSTIC IS DIRECTED

SEQ 0005

Page 6

SEQ 0006

AT A DISK DRIVE, THEN THE NUMBER OF UNITS WOULD BE THE NUMBER OF
DRIVES TO BE TESTED. WHEREAS IF THE DIAGNOSTIC WAS DIRECTED AT THE
DISK CONTROLLER L THEN THE NUMBER OF UNITS WOULD BE THE NUMBER OF
CONTROLLERS.
THE TARGET DEVICE OF A DIAGNOSTIC CAN ALWAYS BE
DETERMINED BY INSPECTING THE "HEADER" STATEMENT NEAR THE BEGINNING OF
THE SOURCE CODE.
ONE OF THE OPERANDS OF THIS "HEADER" STATEMENT
SHOULD BE THE DEVICE TYPE OF THE DIAGNOSTIC.
**********

" STEP 4 "

.***-*******
WHEN YOU HAVE TYPED IN THE NUMBER OF UNITS TO BE TESTED, THE
DIAGNOSTIC WILL ASK YOU THE "HARDWARE QUESTIONS". THE ANSWERS TO
THESE QUESTIONS ARE USED TO BUILD TABLES IN CORE, CALLED "HARDWARE
P-TABLES".
ONE HARDWARE P-TABLE WILL BE BUILT FOR EACH UNIT TO BE
TESTED.
THERE ARE SEVERAL HARDWARE QUESTIONS AND THE ENTIRE SERIES WILL BE
POSED N TIMES, WHERE N IS THE NUMBER OF UNITS.
THIS REPRESENTS A· NEW
PHILOSOPHY
IN
DIAGNOSTIC
ENGINEERING.
DIAGNOSTICS IN THE FUTURE WILL NOT BE WRITTEN TO AUTOSrZE OR ASSUME
STANDARD ADDRESSES: INSTEAD f THEY WILL ASK THE OPERATOR FOR ALL THE
INFORMATION THEY NEED TO TES THE DEVICE.
**********

'" STEP 5 *

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

AFTER YOU HAVE ANSWERED ALL THE HARDWARE QUESTIONS (SEC 2.5) FOR ALL
THE UNITS YOU WILL BE ASKED "CHANGE SW?" IF YOU WANT TO BE ASKED THE
SOFTWARE Q6ESTIONS THAT DETERMINE THE BEHAVIOR OF THIS PROGRAM£ TYPE
"Y".
IF YOU WANT TO TAKE ALL THE DEFAULTS TO THESE QUESTIONs, TYPE
"N". IF YOU TYPE "Y" YOU WILL BE ASKED THE SOFTWARE QUESTIONS (SEC
2.6)
AND TRE ANSWERS WILL BE PUT INTO THE SOFTWARE P-TABLE IN THE
PROGfiAM. THE SERIES OF QUESTIONS WILL BE ASKED JUSTO~CE, REGARDLESS
OF THE NUMBER OF UNITS TO BE TESTED.

"'*"'**"'***'"
'" STEP 6 "
""'''*****''*
AFTER YOU HAVE ANSWERED THE SOFTWARE QUESTIONS
THE DIAGNOSTIC WILL
BEGIN TO EXECUTE THE HARDWARF. TEST CODE. fHERK ARE SEVERAL THINGS
THAT CAN HAPPEN NEXT, DEPENDING ON WHETHER A HARDWARE ERROR IS
E~COUNTERED
AND ALSO ON WHAT SWITCH VALUES YOU SELECTED ON THE START
COMMAND. CONSIDER THE POSSIBILITIES:
1. IF NO ERROR IS ENCOUNTERED! THEN THE DIAGNOSTIC WILL SIMPLY
EXECUTE THE DESIRED NUMHER OF PASSES AND RETURN TO COMMAND
MODE (PROMPT DS-B».

II:
it

Page 7

IF AN ERROR IS ENCOUNTERED L THEN ONE OF THREE THINGS HAPPENS,
DEPENDING ON THE SETTINGS uF THE HOE AND LOE FLAGS.
HOE SET: THE ERROR WILL BE REPORTED ON THE CONSOLE AND
THE DIAGNOSTIC WILL RETURN TO COMMAND MODE.
LOE SET: THE DIAGNOSTIC WILL LOOP ENLESSLY ON THE BLOCK
OF CODE THAT DETECTED THE ERROR.
NEITHER HOE NOR LOE SET: THE ERROR WILL BE REPORTED ON
THE CONSOLE AND NORMAL EXECUTION WILL RESUME
AS IF NO ERROR HAD OCCURED.

2.1.2 SAMPLE RUN-THROUGH
LET·S SEE HOW ALL THIS WORKS IN A REAL SITUATION.
RECALL THAT WE
ENTERED THE COMMAND "STA/PASS:1/FLAGS:HOE".
THIS WOULD BE A VERY
TYPICAL WAY TO RUN THE DIAGNOSTIC. IF NO ERRORS ARE ENCOUNTERED c THE
SINGLE REQUESTED PASS WILL BE EXECUTED AND THE PROMPT WILL BE
REISSUED.
IF AN ERROR IS ENCOUNTERED L THE ERROR WILL BE REPORTED AND THE PROMPT
WILL BE REISSUED (BECAUS~ THE HOE FLAG IS SET). AT THIS POINT THERE
ARE FOUR DIFFERENT WAYS YOU CAN GET THE PROGRAM GOING AGAINS:
1. ISSUE ANOTHER "START" COMMAND (THUS GOING THRU ALL OF STEPS
2, 3, 4, 5, AND 6 AGAIN)
2. ISSUE A "RESTART" COMMAND (SAME AS START COMMAND EXCEPT THAT
THE HARDWARE QUESTIONS ARE NOT ASKED)
3. ISSUE A "CONTINUE" COMMAND (EXECUTION WILL RESUME AT THE
BEGINNING OF THE PARTICULAR HARDWARE TEST (MOST DIAGNOSTICS
CONSIST OF A NUMBER OF THESE) THAT IT WAS IN WHEN THE ERROR
HALT OCCURED. NO QUESTIONS ASKED.
4. ISSUE A "PROCEED" COMMAND:
EXECUTION WILL RESUME AT THE
INSTRUCTION FOLLOWING THE ERROR REPORT (THIS IS A SPECIAL
COMMAND AND CAN BE ISSUED ONLY AT A HALT ON ERROR).
THE MOST TYPICAL THING TO DO HERE IS TO ISSUE THE PROCEED, BUT WITH
DIFFERENT FLAG SF-TTINGS. PROBABLY YOU WOULD WANT TO SAY
PRO/FLAGS:IER:LOE:HOE=O

SEQ 000'1

Page 8

SEQ 0008

THIS WIll DO THE fOLLOWING:
1. TURN ON THE IER (INHIBIT ERROR PRINTOUT) FLAG
2. TURN ON THE LOB fLAG
3. TURN OFf THE HOE FLAG
4. RESUME EXECUTION AT INSTRUCTION AFTER ERROR REPORT
THE DIAGNOSTIC WILL NOW lOOP ON THE BLOCK OF CODE THAT DETECTED AND
REPORTED THE ERROR L SUT NO ERROR PRINTOUT WILL OCCUR. THUS YOU CAN
STUDY THE ERROR OR S~OPE IT OR WHATEVER.
WHEN YOU'VE SEEN ENOUGH, YOU ~AY HIT CONTROL/C. THIS WILL TAKE YOU
OUT OF THE LOOP AND PUT YOU BACK INTO COMMAND MODE. YOU NOW HAVE
THREE CHOICES:
1. START
2. RESTART
3. CONTINUE
LET'S SAY YOU'VE REPAIRED THE DEFECT fOUND ABOVE AND WANT TO FINISH
RUNNING THE DIAGNOSTIC. YOU WOULD TYPE
CON/fLAGS:HOE:IER=O:LOE=O
THIS WILL RESTORE THE fLAGS TO THEIR ORIGINAL VALUES AND RESUME
EXECUTION AT THE BEGINNING Of THE HARDWARE TEST YOU WERE IN. If THE
ERROR DOES NOT RECUR, THE EXECUTION WILL fLOW RIGHT ON THRU TO THE
~EXT ERROR OR TO END OF PASS.
If AT E~D Of PASS YOU WANT TO RUN THE DIAGNOSTIC AGAIN, YOU HAVE TWO
CHOICES:
1. START
2. RESTART
YOU WOULD CHOOSE ONE, DEPENDING ON WHETHER YOU WANTED TO ANSWER THE
HARDWAR~ QUESTIONS AGAIN.

*'
Page 9

SEQ 0009
THE FULL PRINT-OUT FROM THE ABOVE DIALOGUE MIGHT LOOK LIKE THIS:
BY
WHOM
ENTERED:

.R DZRKXX
o
DZRKXX
o
L-CLK (L) N ? Y
0,0
50HZ (L) N ?
o
o
LSI
{Ll
N
?
.
LPT L N?
o
HEM K
D) 16 ?
o
OS-B)S A~PASS:1/FLAGS:HOE
0,0
It UNITS (D) ? 2
0,0
ONIT 1
o
CSR (0) ?
0,0
VECTOR (0) ?
0,0
BR LEVEL (0) ?
0,0
ORIVE (0) ? 0
0,0
UNIT 2
o
CSR (0) ?
0,0
VECTOR (0) ?
0,0
BR LEVEL (0) ?
0,0
ORIVE (0) ? 1
0,0
CHANGE SW (L) ? N
0,0
OZRKXX HARD ERR 00004 TST 003 SUB 002 PC:004130
o
ERR HLf
o
DS-B)PRO/FLAGS:IER:LOE:HOE=O
0,0
*************************************************
AT THIS POINT THE DIAGNOSTIC IS LOOPING ON THE
ERROR wITHOUT PRINTING ANYTHING. YOU CAN SCOPE

1~~*~~~~~*~~Il~*¥~2*~!~~*~~~~I~~*lI,*1~~~*;~*2~t*

OS-B)CDN/FLAGS:HOE:IER:LOE=O
CHANGE SW (L) ? N
OZRKXX EOP 1
DS-B)RESTART/PASS:l
CHANGE SW (L) ? N

0,0
0,0

D,O

0,0

Page 10

SEQ 0010

2.2
HOW TO CPEATE A CHAINABLE FILE
THE DIAGNOSTIC AS RECEIVED FROM RELEASE ENGINEERING CANNOT BE RUN IN
CHAIN MODE. THA IS WHY IT BEARS THE EXTENSION "BIN" INSTEAD OF "BIC".
THERE IS A WAY, HOWEVER, TO CREATE A CHAINABLE PROGRAM FROM WHAT
YOU'VE GOT.
IT CONSISTS OF RUNNING THE PROGRAM WITH THE SPECIAL COMMAND "CCI"
ISSUED WHERE YOU WOULD NORMALLY ISSUE A START COMMAND (TO THE PROMPT
OS-B). THIS COMMAND CAUSES THE DIAGNOSTIC TO GO THRU ALL THE
QUESTIONS AND ANSWERS AND THEN TO HALT£ JUST WHERE IT WOULD ORDINARILY
BEGIN EXECUTION OF THE HARDWARE TEST CuDE. AT THIS POINT YOU CAN DUMP
THE PROGRAM AS IT SITS IN CORE TO THE LOAD MEDIUM, WITH THE NEW
EXTENSION "BIC".
HERE IS A SAMPLE DIALOGUF. TO ACCOMPLISH THIS:
.R UPD2
RESTART: XXXXXX
*CLR
*LOAD DIAG.BIN
XFER:200
CORE:0,60602
*START 200
L-CLK (L) N ?
DS-B>CCI
# UNITS (D) ? 4
CHANGE SW (L) ? N
PTAS END: 60632
*************************************
*AT THIS POINT THE MACHINE HALTS AND*
*YOU MUST RESTART AT ADDRESS XXXXXX*
*************************************
*HICORE 60632
CORE: 0 60632
*DUMP DK6: DIAG.BIC
THE RESULT OF DOING THIS IS THAT YOU CAN NOW BUILD AN XXDP CHAIN FILE
CONTAINING THE XXDP CO~MAND
.R DUG.BIC
AND THE DIAGNOSTIC WILL EXECUTE WITHOUT MANUAL INTERVENTION, USING THE
ANSWERS THAT YOU GAVE IT WHEN YOU DID THE CCI COMMAND.

IIii

Page 11

2.3
DETAILS OF COMMANDS AND SYNTAX
2.3.1 TA~LE OF COMMAND VALIDITY
THERE ARE FOUR WAYS OF ENTERING DIAGNOSTIC COMMAND MODE, AND DIFFERENT
SUBSETS OF THE DIAG COMMAND SET ARE AVAILABLE WITH EACH:
HOW ENTERED
LEGAL COMMANDS
OPERATOR ENTERED 'RUN DIAG'
START
1.
PRINT
DISPLAY
FLAGS
ZFLAGS
DIAGNOSTIC HAS FINISHED ALL
START
2.
ITS REQUF.STED PASSED
RESTART
PRINT
DISPLAY
FLAGS
ZFLAGS
OPERATOR INTERRUPTED THE
START
3.
DIAGNOSTIC WITH CTRL/C
RESTART
CONTINUE
PRINT
DISPLAY
FLAGS
ZFLAGS
AN ERROR WAS ENCOUNTERED
START
4.
WITH THE HOE FLAG SET SET
RESTART
CONTINUE
PROCEED
PRINT
DISPLAY
FLAGS
ZFLAGS
2.3.2 COMMAND SYNTAX

******************************************************************
STAlRT1/TESTS:TEST-LIST/PASS:PASS-CNT/FLAGS:FLAG-LIST/EOP:EOP-INCR
***-**,***********************************************************
THE DIAGNOSTIC IN CORE IS EXECUTED IN ACCORDANCE WITH THE SWITCHES
SPECIFIED.
THE MESSAGE H# UNITS?" IS PRINTED. THE START COMMAND MAY
BE ISSUED WHEN DIAGNOSTIC COMMAND MODE HAS BEEN ENTERED VIA ONE OF THE
FOLLOWING: A) OPERATOR TYPED "RUN DIAGNOSTIC" B1 DIAGNOSTIC FINISHED
EXECUTING C) ~RROR WAS ENCOUNTERED WITH HOE FL G SET D) OPERATOR
ENTERED CONTROL/C.

SEQ 0011

Page 12

SEQ 0012

AFTER THE OPERATOR RESPONDS TO "# UNITS?"~ THE HARDWARE DIALOGUE IS
INITIATED.
WHEN IT IS COMPLETED
THu QUESTIONS "CHANGE SW?" IS
ISSUED, AND THE ANSWERS, IF GIVEN£ BfcOME THE NEW DEFAULTS. THEREFORE
IT IS NECESSARY TO RE~OAD THE PKOGRAM IN ORDER TO RETURN TO THE LOAD
DEFAULTS.
THE SWITCH ARGUMENTS ARE A~ FOLLOWS:
"TEST-LIST" IS A SEQUENCE OF DECIMAL NUMBERS (1:2 ETC.) OR RANGES OF
DECIMAL NUMBERS (1-5:8-10 ETC.) THAT SPECIFY tHE TESTS TO BE EXECUTED.
THE NO~BF.RS ARE SEPARATED BY COLONS. THE NUMBERS RANGE FROM 1 TO THE
LARGEST TEST NUMBER IN THE DIAGNOSTIC. THEY MAY BE .SPECIFIED IN ANY
ORDER. TESTS WILL 8E EXECUTED IN NUMBERICAL ORDER REGARDLESS OF THE
ORDER OF SPECIFICATION. THE DEFAULT IS TO EXECUTE ALL TESTS~
"PASS-CNT" IS A bECIMAL NUMBER INDICATING THE DESIRED NUMBER OF
PASSES.
A PASS IS DEFINED AS THE EXECUTION OF THE FULL DIAGNOSTIC
(ALL SELECTED TESTS) AGAINST ALL UNITS SUMBITTED.
THE DEFAULT IS
NON-ENDING EXECUTION •• B "FLAG-LIST" IS A SEQUENCE OF ELEMENTS OF THE
FORM <FLAG>f <FLAG=1>f OR <FLAG=O>, SEPARATED BY COLONS, WHERE <FLAG>
HAS ONE OF HE FOLLOW NG VALUES:
..
HOE
HALT ON ERROR~ CAUSING COMMAND MODE TO g~ ENTERED WHEN AN
ERROR IS ENCOUNTERED
..
LOr:
LOOP ON ERROR~ CAUSING THE DIAGNOSTIC TO LOOP CONTINUOUSLY
WITHIN THE ~MALLEST DEFINED BLOCK OF CODING (SEGMENT,
SUBTEST, OR TEST) CONTAINING THE ERROR
."
IER
INHIBIT ERROR REPORTING
IBE
INHIBIT BASIC ERROR REPORTS
INHIBIT EXTENDED ERROR REPORTS
IXE
PRI
DIRECT ALL MESSAGES TO A LINE PRINTER
PNT
PRINT NUMBER OF TES BEING EXECUTED
BELL ON ERROR
BOE
UAM
. RUN IN UNA~TENDED MODE£ BYPASSING MANUAL INTERVENTION TESTS
INHIBIT STATISTICAL RE~ORTS
'
ISR
INHIBIT DROPPING OF UNITS BY DIAGNOSTIC
IOU

Page 13

THE FLAGS NAMED OR EQUATED TO 1 ARE SET
THOSE EQUATED TO 0 ARE
CLEARED. A FLAG NOT SPECIFIED IS CLEARED~ IF THE FLAGS SWITCH IS NOT
GIVEN ALL FLAGS ARE CLEARED.
"EOP-INCH" IS A DECIMAL NUMBER INDICATING HOW OFTEN (IN TERMS OF
PASSES) IT IS DESIRED THAT THE END OF PASS MESSAGE BE PRINTED. THE
DEFAULT IS AT THE END OF EVERY PASS.
***********************************************************************************
RES(TART)/TEST:TEST-LIST/PASS:PASS-CNT/FLAGS:FLAG-LIST/EOP:EOP-INCR/UNITS:UNIT-LIST
***********************************************************************************
THE DIAGNOSTIC IN CORE IS EXECUTED IN ACCORDANCE WITH THE SWITCHES
SPECIFIED. HOWEVER, NEw P-TABLES ARE NOT BUILT. INSTEAD, THE ONES IN
CORE ARE USED.
THE QUESTION "CHANGE SW?" IS ASKED, AND THE ANSERS IF GIVEN BECOME THE
NEw DEFAULTS.
THE CO~MAND ~AY BE ISSUED WHEN COMAND MODE HAS BEEN
ENTERED VIA A) DIAGNOSTIC IS FINISHED B) HALT ON ERROR C) CONTROL/C.
THE SWITCH ARGUMENTS ARE AS IN THE START COMMAND EXCEPT:
1. "UNIT-LIST" IS A SEQUENCE OF LOGICAL UNIT NUMBERS RANGING
FROM 1 THRU N (N = NUMBER OF UNITS BEING TESTED) SPECIFYING
WHICH UNITS ARE TO BE TESTED.
THE LOGICAL ONIT NUMBER
DESIGNATES THE POSITION OF THE P-TABLE IN COREL ACCORDING TO
THE ORDER IN WHICH THEY WERE BUILT. THE UNITS ~PECIFIED MUST
NOT HAVE BEEN DROPPED BY THE OPERATOR DROP COMMAND. THE
UNIT-LIST DEFAULTS TO "ALL THAT HAVE NOT BEEN DROPPED BY
OPERATOR COMMAND".
THE EFFECT OF THE UNIT-LIST LASTS UNTIL
THE NEXT START (WHERE IT IS AUTOMATICALLY RESET TO "ALL") OR
THE NEXT RESTART.
2. ALL UNSPECIFIED FLAG SETTINGS ARE UNCHANGED.
*******************************************
CONCTINUE1/PASS:<PASS-CNT/FLAGS:<FLAG-LIST>
*********~*********************************

COMMAND MODE MUST HAVE BEEN ENTERED DUE TO A HALT ON ERROR OR A
CONTROL/C. THE EFFECT OF THE COMMAND IS TO GO TO THE BEGINNING OF THE
TEST THAT WAS BEING EXECUTED WHEN THE HALT OR CONTROL/C TOOK PLACE.
SOFTWARE DIALOGUE MAY OPTIONALLY BE REEXECUTED. HARDWARE PARAMETERS
MAY NOT BE CHANGED.
THE SWITCH ARGUMENTS ARE AS IN THE START COMMAND EXCEPT:
1. DEFAtT FOR PASS-CNT IS THE UNSATISFIED PASS-CNT FROM THE
PREVIOUS START OR RESTART
2. UNSPECIFIED FLAG SETTINGS ARE UNCHANGED

SEQ 0013

Page 14

SEQ 0014

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

PRO(CEED)/FLAGS:<FLAG-LIST>
***************************

COMMAND MODE MUST HAVE BEEN ENTERED VIA A HALT ON ERROR.
THE EFFECT
OF THE CO~MAND IS TO BEGIN EXECUTION AT THE LOCATION FOLLOWING THE
ERROR CALL. NEITHER HARDWARE NOR SOFTWARE PARAMETERS MAY BE ALTERED.
T~E SWITCH ARGUMENTS ARE THE SAME AS THE START COMMAND EXCEPT:
1. UNSPECIFIED FLAG SETTINGS ARE UNCHANGED
*************************************************************

CCI/TEST:TEST-LIST,PASS:PASS-CNT/FLAGS:FLAG-LIST/EOP:EOP-INCR
****************** ******************************************
THE DIAGNOSTIC EXECUTES THRU ALL OPERATOR DIALOGUE AND HALTS AT THE
HARDWARE TEST CODE. ~OW THE OPERATOR CAN DUMP THE CORE IMAGE TO THE
MEDIUM WITH A BIC EXTENSION.
T~E BIC FILE MUST BE HANDLED DIFFERENTLY DEPENDING ON
WHETHER IT IS
RUN MANUALLY DR IN CHAIN MODE. IF RUN MANUALLY IT CAN BE INVOKED
EITHER WITH A "START" (IN WHICH CASE IT WILL BEHAVE LIKE THE BIN FILE:
THE PRE-GENERATED ANSWfRS TO OPERATOR QUESTIONS WILL BE IGNORED) OR
WITH A "RESTART" (IN WHICH CASE THE PRE-GENERATED OPERATOR ANSWERS
WILL BE USED).
IF RUN IN CHAIN ~ODEL AUTO~ATIC EXECUTION WILL COMMENCE IMMEDIATELY
FROM THE XXDP COMMAND ".P DIAG". THE COMMAND PROMPT "DS-B>" WILL NOT
BE ISSUED.
ANY SWITCHES SPECIFIED ON THE CCI COMMAND WILL CARRY OVER WHEN THE BIC
FILE IS RUN IN CHAIN ~ODE (EXCEPT THAT UAM IS ALWAYS SET THERE) BUT
WILL NOT CARRY OVER WHEN IT IS RUN MANUALLY.
TO DO A CCI ON A FULL SIZED DIAGNOSTIC (14.5K WORDS)c A MACHINE SIZE
LARGER THAN 16K IS REQUIRED. THE EXACT SIZE NEEDEu DEPENDS ON WHICH
UTILITY IS USED TO EXECUTE THE DIAGNOSTIC AT CCI TIME.
**********************

ORorp)fUNITS:UNIT-LIST
*****~****************

THE UNITS SPECIFIED ARE DROPPED FROM TESTING U~TIL THEY ARE ADDED BACK
DR UNTIL A START COMMAND IS GIVEN. A DROP CANNOT BE FOLLOWED BY A
PROCEED.
THERE IS ALSO A "DROP" MACRO INTERNAL TO THE DIAGNOSTIC r WHICH GIVES
THE FACILITY OF AUTO-DROPPING.
THE DURATION OF A PROGRAM DROP,
HOWEVER, IS ONLy UNTIL THE NRXT START OR RESTART.

•

Page 15

****"''''**''''''''''''''''''***'''*
ADD/UNITS:UNIT-LIST

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

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

BEEN PREVIOUSLY
AN ADD CANNOT BE

*******
PR I CNT)

*******
ALL STATISTICS TABLES ACCUMULATED BY THE DIAGNOSTIC ARE PRINTED.
ISR (INHIBIT STATISTICAL REPORTING) FLAG IS CLEARED.
***********"'***************
DISCPLAY1/UNITS:<UNIT-LIST)

THE

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

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

THE CURRENT SETTINGS OF ALL FLAGS ARE PRINTED.

********
ZFL(
AGS)

********
ALL FLAGS ARE CLEARED.
2.4
EXTENDED P-TABLE DIALOGUE
THE FULL CAPABILITY OF THE HARDWARE DIALOGUE IS REVEALED BY THE
FOLLOWING DISCUSSION OF WHAT HAPPENS INTERNALLY.
AS SOON ~S THE QUESTION "I UNITS?" IS ANSWERED (WITH THE NUMBER NL
SAY) SPACE IN CORE IS ALLOCATED FOR N P-TABLES. ALL OF THE P-TABLE~
ARE OF THE SAME FOR~AT
AND THERE IS A ONE-TO-ONE CORRESPONDENCE
BETWEEN TUE HARDWARE ~APA~ETEP QUESTIONS AND THE SLOTS IN THE P-TAELE
FORMAT.

SEQ 0015

Page 16

SEQ 0016

ON THE FIRST TRIP THRU THE QUESTIONS, ALL OF THE SLOTS IN ALL OF THE
P-TABLES ARE FILLED.
IF THE OPERATOR TYPES IN LESS THAN N EXPLICIT
VALUES IN RESPONSE TO A PARTICULAR QUESTION L THESE VALUES ARE PLACED
IN THE P-TARLES (ONE VALUE GOING INTO THE ~ROPER SLOT OF EACH P-TABLE
BEGINNING WITH THE FIRST P-TABLE) UNTIL THE STRING OF VALUES IS
EXHAUSTED. THE LAST VALUE THAT SLOT IN THE RE~AINING P-TABLES.
ON SUBSEQUENT TRIPS THRU THE QUESTIONS~ THE SAME PROCESS IS CARRIED
OUT, EXCEPT THAT THE EARLIEST P-TABLE NOT TO HAVE RECEIVED AN EXPLICIT
VALUE IN ANY OF ITS SLOTS NOW ASSUMES THE ROLE THAT TABLE NUMBER ONE
PLAYED IN THE FIRST TRIP.
THE SERIES OF QUESTIONS IS REISSUED UNTIL AT LEAST ONE QUESTION HAS
RECEIVED N EXPLICIT VALUES FROM THE OPERATOR.
IN GIVING A STRING OF VALUES~ CO~M.AS WITHOUT INTERVENING VALUES MAY BE
USED TO INDICATE A REPETITION OF THE LAST NAMED VALUE.
A STRING OF VALUES MAY BE GIVEN AS A RANGE (6-10 FOR EXAMPLE). IF THE
VALUES REPRESE~T PURE NUMERICAL DATA, THIS SAMPLE RANGE TRANLATES TO
THE STRING 6 7,8,9 10 (AN INCREMENT OF 1).
IF THE VALUES AHE
ADDRESSES, THE SA~PLE RANGE TRANSLATES TO THE STRING 6,B,10 (AN
INCREMENT OF 2).
NOW LET US SEE HOW WE COULD USE THESE CAPABILITIES TO CONSTRUCT A SET
OF P-TABLES.
ASSUME THAT WE HAVE 64 UNITS, AND THAT THERE ARE THREE
HARDWARE PARA~ETERS FOR EACH (THREE SLOTS IN THE P-TABLE, THREE
HARDWARE QUESTIONS IN THE DIALOGUE). LET THE DESIRED VALUE FOR THE
FIRST PARAMETER BE THE NUMBER 75 FOR ALL 64 TABLES. LET THE DESIRED
VALUE
FOR
THE SECOND PARAMETER BE EQUAL TO THE UNIT NUMBER
(1 2 3 ••• 64) EXCEPT FOR UNIT 50 WHICH SOULD RECEIVE THE VALUE 49.
LEi fH~ DE~IRED VALUE FOR THE THI~D PARAMETER BE THE NUMBER 76 FOR THE
FIRST 20 UNITS AND THE NUMBER 77 FOR THE LAST 44 UNITS.
THE FOLLOWING DIALOGUE WOULD ACCOMPLISH THIS GOAL:
# UNITS (D) ? 64
UNIT 1
(QUESTION 1> ? 75
(QUESTION 2> ? 1-20
(QUESTION 3> ? 76
UNIT 21
(QUESTION 1> ?
(QUESTION 2> ? 21-49,,51-64
(QUESTION 3> ? 77

"
4&

Page 17

SEQ oon

THE FIRST TIME THE SERIES IS ASKED SLOT ONE RECEIVES A 75 IN ALL 64
TABLES. SLOT TWO RECEIVES THE VAL6ES 1,2<3, ••• ,20 IN TABLES 1 THRU 20
AND A CONSTANT 20 IN TABLES 21 THRU 64.
SLOT THREE RECEIVES A
CONSTANT 76 IN ALL 64 TABLES.
THE SECOND TIME THRU THE SERIES, TABLES 21 THRO THE END ARE GOING TO
BE AFFECTED (NOTE THAT THIS ~IECE OF INFORMATION IS PRIITED OUT FOR
THE OPERATOR IN THE FORM "UNIT XX" AT THE BEGINNING OF EACH SERIES).
QUESTION 1 IS RESPONDED TO BY A <CR>L SO SLOT ONE STAYS A CONSTANT 75
IN TABLES 21 THRU 64 SINCE NO NEW ~XLICIT VALUES ARE TYPED IN. SLOT
TWO GETS THE VALUES 2i L 22,23 L •• o(49 IN TABLES 21 THRU 49 f AID GETS A
49 IN SLOT 50, AND G~TS THe VA UES 51,52,53, •• oL64 IN ABLES 51 THRU
64 •. SLOT THREE GRTS THE VALUE 77 IN TAHLE~ 21 THKU 64.
THE DIALOGUE IS TERMINATED WHEN THE SOFTWARE RECOGNIZES THAT 64
EXPLICIT VALUES HAVE BEEN GIVEN FOR AT LEAST ON QUESTION (NAMELY
QUESTION 2).
~.5
HARDWARE PARAMETERS
THE FOLLOWING QUESTIONS WILL BE ASKED ON A START COMMAND.
THE VALUE
LOCATED TO THE LEFT OF THE QUESTION MARK IS THE DEFAULT VALUE THAT
WILL BE TAKEN ON A CARRIAGE RETURN RESPONCE.
RLll (L) Y1
ANSWER YES(Y) IF YOU HAVE AN RLII CONTROLLER, NO(N) IF YOU HAVE AN
RLVlt CONTROLLER.
BUS ADDRESS (0) 1744001
ANSWER WITH THE BUS ADDRF.SS OF THE CONTROLLER.
VECTOR (0) 3301
ANSWER WITH THE INTERRUPT VECTOR OF THE CONTROLLER.
SR LEVEL (0) 51
ANSWER WITH THE INtERRUPT PRIORITY OF THE CONTROLLER.
DRIVE (0) 01
ANSWER WITH THE DRIVE(S) CONNECTED TO THE CONTROLLER.

SOFTWARE PARA~ETERS
THE FOLLOWING QUESTIONS ARE ASKED IF REQUESTED ON A STARTL RESTART, OR
CONTINUE. THEY ALLOW FLEXABILITY IN THE WAY THE PROGRAM HEHAVES. THE
SOFTWARE PARAMETERS GIVE THE PROGRAM FLEXIBILITY IN THE WAY IT RUNS.
THE PARAMF.TERS CAN BE MODIFIED ON A START, RESTART, OR CONTINUE BY
ANSWERING (Y)ES TO THE FOLLOWING QUESTION:
2.6

..
,.

Page 18
CHANGE S.W. ?
A YES ANSWER WILL ASK THE FOLLOWING SOFTWARE PARAMETER QUESTIONS, WITH
THE PRESENT DEFAULT VALUE PRINTED TO THE LEFT OF THE QUESTION ~ARK.
(THE LAST ANSWER GIVEN IS THE DEFAULT) THE DEFAULT IS TAKEN ON A <CR>.
CONTROL Z (AZ) WILL DEFAULT ALL REMAINING QUESTIONS AND START THE
TEST.

SEQ 0018

•

DROP ON ERROR LIMIT (L) Y?
TO ALLOW THE UNIT TO BE DROPPED ONCE A PREDETERMINED NUMBER OF ERRORS
ARE ENCOUNTERED.
ANSWER Y OR N
ERROR LIMIT (D) 10?
NUMBER OF ERRORS ALLOWED BEFORE DROPPING UNIT.
ANSWER 1 TO 651(
AUTOSIZE (L) N?
TO CHECK TO SEE IF UNIT SPECIFIED ACTUALLY EXISTS BRFORE TESTING IT
(VIA DRIVE READY), IF NOT UNIT WILL NOT BE TESTED.
ANSWER Y OR N
COMPARE DATA ON DCK (L) N?
WHEN A DATA CHECI( IS ENCOUNTERED AND DATA IS KNOWN, ALLOW AN INCORE
COMPARISON OF DATA.
ANSWER Y OR N
# OF WORDS IN ERROR REPORTED (D) 3?
NUMBER OF MISCOMPARES TO BE PRINTED ON CONSOLE DEVICE.
ANSWER 0 - 128
3.0 ERROR INFORMATION
ALL ERROR INFORMATION IS PRINTED ON THE CONSOLE DECIVE. ERROR REPORTS
ARE AIMED AT BEING SELF EXPLANATORY. THE GENERAL FORMAT IS:
DZRL? XXX
ERR YYYYY
TST ZZZ
SUB PPP
PC: RRRRRR
WHERE:
?
IS PROGRAM LETTER
XXX
IS SFT - SOFT ERROR
HRD - HARD ERROR

".,

"
@

Page 19

DV FAT - DEVICE FATAL ERROR
SYS FAT - SYSTEM FATAL ERROR
VVYVV
IS THE ERROR NUMBER
ZZZ
IS THE TEST NUMBER
PPP
IS THE SUBTEST NUMBER
RRRRRR IS THE PROGRAM LISTING LOCATION
ERRORS GIVE THE REGISTER CONTENTS BEFORE AND AFTER THE ERROR
ALONG WITH A ONE LINE DESCRIPTION AND RELEVENT DATA.
EXAMPLE:
ONE LINE DESCRIPTION
(OPTIONAL SECOND LINE)
(OPTIONAL THIRD LINE)
BEFOPE COMMAND: CS:XXXXXX BA:XXXXXX DA:XXXXXX MP:XXXXXX
TI~E OF ERROR:
CS:XXXXXX BA:XXXXXX DA:XXXXXX MP:XXXXXX XXXXXX XXXXXX
3.2 ERROR HALTS
ERROR HALTS ARE SUPPORTED PER DESCRIBED IN THE PREVIOUS
/FLAG:HOE. THERE ARE NO OTHER HALTS.

SECTION

WITH

REGISTERS

FOR

4.0 PERFORMANCE AND PROGRESS REPORTS
4.1 PERFORMANCE REPORTS
THIS PROGRAM WILL NOT GIVE ANY PERFORMANCE REPORTS.
4.2 PROGRESS REPORTS
THIS PROGRAM WILL NOT GIVE ANY PROGRESS REPORTS.
5.0 OF-VICE INFORMATION TABLES
THE RL11/RLVll CONTROLLER HAS THE FOLLOWING FOUR(4)
CONTROL OF THE SUBSYSTEM.
RLCS - CONTROL AND STATUS REGISTER (XXXXXO)
BIT 15 - COMPOSITE ERROR
BIT 14 - DRIVE ERROR
BIT 13 - NON EXISTANT MEMORY ERROR
BIT 12 - HEADER NOT FOUND (WITH BIT 10 SET)
- DATA LATE (WITH BIT 10 CLEAR)
BIT 11 - HEADER CRC iWITH BIT 10 SET~
DATA CRC (W TH BIT 10 CLEAR
BIT 10 - OPERATION INCOMPLETE
BIT 9/8 - DRIVE SELECT (0-3)

SEQ 0019

Page 20
BIT 7 - CONTROLLER READY
BIT 6 - INTERRUPT ENABLE
BIT 5 - EXTENDED BUS ADDRESS (BIT 17)
BIT 4 - EXTENDED BUS ADDRESS (BIT 16)
BIT 3-1 - FUNCTION CODE
o - NOP (PDP-ll) MAINT {LSI-11}
1 - WRIT€ CHECK
2 - GET DRIVE STATUS
3 - SEEK
4 - READ HEADER
5 - WRITE DUA
6 - READ DATA
7 - REAO WITHOUT HEADER COMPARE
BIT 0 - DRIVE READY
RLBA - BUS ADDRESS REGISTER (XXXXX2)
BITS 15-1 BUS ADDRESS OF DATA TRANSFER
BIT 0 SHOULD BE 0
RLDA - OISK ADDRESS REGISTER (XXXXX4)
FOR READ/WRITE FUNCTIONS
BIT 15 - MUST BE ZERO(O)
BIT 14-7 - CYLINDER ADDRESS FOR TRANSFER
BIT 6 - SURFACE FOR TRANSFER
BIT 5-0 - SECTOR FOR TRANSFER (O-47)
FOR SEEK FUNCTION
BIT 15 - MUST BE ZERO{O)
BIT 14-7 - DIFFERENCE TO NEW CYLINDER
BIT 6-5 - MUST BE ZERO(O)
BIT 4 - SURFACE
BIT 3 - MUST BF ZERO
BIT 2 - SEEK DIRECTION( 1 - IN / 0 - OUT
BIT 1 - MUST BE ZERO
BIT 0 - MUST BE ONE(l)
FOR GET STATUS FUNCTION
BIT 15-4 - IGNORED SHOULD BE ZERO
BIT 3 - DRIVE RESET
BIT 2 - MUST BE ZERO
BIT 1 - MUST BE ONE
BIT 0 - MUST BE ONE

SEQ 0020

,.
«

Page 21
RLMP - MULTIPURPOSE REGISTER
FOR READ/WRITE FUNCTION
BIT 15 - 0 - WQRD COUNT(TWO'S COMPLIMENT)
FOR READ HEADER FUNCTION
BIT 15-0 - DISK HEADER OF SECTOR (FIRST READ)
- ZERO WORD (SECOND READ)
- HEADER CRC (THIRD READ)
FOR GET STATUS FUNCTION
HAS DRIVE STATUS
BIT 15 - WRITE DATA ERROR
BIT 14 - CURRENT HEAD ERRORCCHE)
BIT 13 - WRITE LOCK STATUS(VL)
BIT 12 - SEEK TIf«E OIJT{SKTO)
BIT 11 - SPIN ERROR(SPE)
BIT 10 - WRITE GATE ERROR(WGE)
BIT 9 - VOLUME CHECK(VC)
BIT 8 - DRIVE SFLECT ERROR(DSE)
BIT 7 - RESERYED(O)
BIT 6 - SURFACE
BIT 5 - COVER OPEN
BIT 4 - HEADS HOME
BIT 3 - BRUSHES HOME
BIT 2-0 -STATE BITS
o - LOAD STATE
1 - SPIN UP
2 - BRUSH CYCLE
3 - LOAD HEADS
4 - SEEK - TRACK COUNTING
5 - SEEK - LINEAR MODE
6 - URLOAn HEADS
7 - SPIN DOWN
6.0 TEST SUMMARIES
TEST 01 - WRITE NPR INTEGRITY
THIS TEST WILL VERIFY THAT THE WRITE FUNCTION WILL ROT CAUSE
A BUS TRAP THEREFORE VERIFYING THE NPR LOGIC BETWEEN THE
CONTROLLER AND PROCESSOR.
TEST 02 - wRITE FUNCTION

SEQ 0021

Page 22

SEQ 0022

TEST WILL VERIFY THAT THE WRITE FUNCTION WILL RESET
CONTROLLER READY AND POST NO ERRO?S.

T~IS

TEST 03 - WRITE fUNCTION INTERRUPT
THIS TEST WILL VERIFY THAT THE WRITE FUNCTION WILL GENERATE
AN INTERRUPT ON COMPLETION.
TEST 04 - PROPER INCREMENT OF ALBA ON WRITE
THIS TEST WILL VERIFY THAT THE BUS ADDRESS REGISTER INCREMENTS
PROPERLY ON A WRITE FUNCTION.
TEST 05 - PROPEP INrRE~EKT OF ALDA ON WRITE
THIS TEST WILL VFRIFY THAT THE DISK ADDRESS REGISTER INCREMENTS
PROPERLY ON A WRITE FUNCTION.
TEST 06 - FORCE HEADER NCT FOUND WITH WRITE
THIS TEST WILL FORCE A HEADER NOT FOUND ERROR ON A WRITE. THE
RLDA IS SET UP TO LOOK FOR SECTOR 40£ 1 WRITE IS THEN ISSUED.
THE HEADER NOT FOUND ERROR SHOULD TH~;N SET.
TEST 07 - FORCE INTERRUPT WITH HNF
THIS TEST WILL FORCE A HEADER NOT FOUND ERROR UNDER INTERRUPT
CONTROL.
TEST 08 - CHECK OPI TI~E wITH HNF
THIS TEST WILL TIME THE SETTING OF HNF (OPI) FROM ISSUANCE.
THIS IS DONE BY ISSUING A WHITE TO SECTOR 40. THE TIME OF OPI
SHOULD BE AROUND 200 MILLISECONDS.
TEST 09 - MULTIPLE SECTOR TRANSFER ON WRITE
THIS TEST THE ARILITY FOR THE WRITE FUNCTION TO WRITE MORE THAN
ONE SECTOR. WE SET UP FOR A TWO SECTOR WRITE.
TEST 10 - CHECK DIRECTION OF WRITE NPR
THIS TEST WILL VERIFY THAT THE ~PR DIRECTION OF A WRITE FUNCTION IS FROM MF~CRY TO THE CONTROLLER. THIS IS DONE BY
WRITING A PATTERN IN MEMORY AND ISSUING A WRITE, THEN CHECKING
MEMORY TO VERIFY THAT IT DID NOT GET DISTURBED.

111

•
Page 23

SEQ 0023
TEST 11 - CHECK FULL INCREMENT OF RLBA
THIS TEST WILL CHECK THAT THE RLBA CAN INCREMENT OF THE FULL
16 BIT RANGE. THIS IS DONE BY ISSUING A ONE WORD WRITE TO
CHECK EACH BIT TOGGLE FROM 1-0 AND 0-1. THIS IS DONE FROM 0
TO 177776 REGARDLESS OF MEMORY SIZE.
TEST 12 - BA BIT 16 INCREMENT
THIS TEST WILL CHECK THAT BUS ADDRESS BIT 16 WILL SET WHEN THE
RLBA IS 177776. AND THAT THE RLBA GOES TO O.
TEST 13 - BA BIT 17 INCREMENT
THIS TEST WILL CHECK THAT BUS ADDRESS BIT 17 WILL SET WHEN
BIT 16 AND THE RLBA ARE SET. THE RLBA AND BIT 16 ARE CHECKED
TO GO TO ZERO.
TEST 14 - READ NPR INTEGRITY
THIS TEST WILL VERIFY THAT THE READ FUNCTION WILL NOT CAUSE
A BUS TRAP THEREFORE VERIFYING THE NPR LOGIC BETWEEN THE
CONTROLLER AND PROCESSOR.
TEST 15 - READ FUNCTION
THIS TEST WILL VERIFY THAT THE READ FUNCTION WILL RESET
CONTROLLER READY AND POST NO ERRORS.
TEST 16 - READ FUNCTION INTERRUPT
THIS TEST WILL VERIFY THAT THE READ FUNCTION WILL GENERATE
AN INTERRUPT ON COMPLETION.
TEST 17 - CHECK DIRECTION OF READ NPR
THIS TEST WILL VERIFY THAT THE NPR DIRECTION OF A READ FUNCTION IS FROM CONTROLLER TO THE MEMORY. THIS IS DONE BY
WRITING A PATTERN IN MEMORY AND ISSUING 1 READ, THEN CHECKING
MEMORY TO VERIFY THAT IT DID NOT GET DISTURBED.
TEST 18 - PROPER INCREMENT OF RLBA ON READ
THIS TEST WILL VERIFY THAT THE BUS ADDRESS REGISTER INCREMENTS
PROPERLY ON A READ FUNCTION.

Page 24

SEQ 0024

TEST 19 - PROPER INCRE~ENT Of RLDI ON READ
THIS TEST WILL VERIfY THAT THE DISK ADDRESS REGISTER INCREMENTS
?ROPBRLY ON A READ FUNCTION.
TEST 20 - fORCE ~EADER NOT FOUND WITH READ
rHIS TEST ftILL fORCE A HEADER NOT fOUND ERROR ON A READ. THE
RLDI IS SET UP TO LOOK fOR SECTOR 40 L A READ IS THEN ISSUED.
THE HEIDER NOT FOUND ERROR SHOULD TH~N SET. .
TEST 21 - fORCE INTERRUPT WITH HNF
THIS TEST WILL FORCE A HEADER NOT FOUND ERROR UNDER INTERRUPT
CONTROL.
TEST 22 - CHECK HEADER CC~PARE LOGIC
fHIS TEST WILL EXTENSIV~LY CHECK THE CYLINDER AND HEAD BITS OF
THE HEADER WORD TO COMPARE CORRECTLY. THIS IS DONE BY WALKING
AND GROWING O'S AND l'S THRU THE PROPER RLDA BITS A~D ISSUING
~EAD TO SEE IF ALL BIT POSITIONS CAN COMPARE.
TEST 23 - PULTIPLE SECTOR TRANSfER ON READ
THIS TEST THE ABILITY FOR THE READ FUNCTION TO ~RIT~ MORE THAN
ONE S~CTOR. WE SET UP FOR A TwO SECTOR READ.
TEST 24 - FORC~ HNF AT END OF TRACK
THIS TEST WILL CPECK THE ABILITY 10 DETECT HEADER NOT FOUND
~T THE END OF A TRACK.
THIS DONE BY SETTING UP fOR A TWO
SECTOR READ AT SECTOR 39.
TEST 25 - FORCE NON-EXYSTANT MEMORY ERROR
THIS TEST WILL CHECK THAT THE NON-EIISTINT MEMURY ERROR (NIM)
CAN SET. WE WILL ISSUE A READ TO THE MAXIMUM ADDRESS AND
EXPECT A NX~ ERRGR. (THIS TEST WILL NOT BE DONE ON A 128K
MACHIN~.)

TEST 26 - FORCE NXM UNDER INTERRUPT
THIS TEST WILL ATTEMPT TO FORCE AN INTERRUPT VIA NXM.
TEST WILL NOT 8E DO'IE DNA 12BK ~lACHINE.)
TEST 27 - CHECK

~EAD

(THIS

WRITE LOOP

Page 25

THIS TEST ~ILL ~RIT~ A PATTERN TO SECTOR 0 AND TRY TO RECOVER
IT WITH A WRITE.
TSST 2q - CHECK UF SILQ fINES
TYIS TEST WILL C~Ecr THAT WE CAN ~RITE AND READ UNIQUE BIT
"A!TEPNS VERIFY THAT THE LINES UN THE SILO ARE NOT STUCK OR
TrSD TOG~THER. THIS IS DONE WITH WALKING AND GROWING O'S AND
1'5.

T~~T

CHEcr THROUGHfUT OF SILO
TI'TS TEST WILL ATTEUP! TO CHECK THAT THE FALL THROU~H OF TEE
SILO IS AORKING CORRECTLY. ~E ~RITE A SECTOR OF 129 UNIQU~
PATTERNS AND REAr IT eAC~ CHECKING THAT SACH LOCATION IS UNIQU~

2q -

IND

COPP~CT.

Tc.:JT 30 - C!lECK ZERO FILL nN WRITF:
HIS

WILL CHECK TRS ABILITY OF THE CONTROLLER TO FILL THE
SECTOR WITH Z~HOS O~ A ~RITF. WE WRITE A SECTOR WITH
1 TO 127 ~ORDS, READ IT BACK AhO VERIfY THAT THE NCN
RITTFN WORDS ARt Z~RO.
T~ST
S~AI~ING
RO~

EST 31 - C'"!f.CY SECTOR llITS ON HEADER CO~PARE
THIS TEST WILL CHECI( THAT THF. SECTOR BITS ON Cot"PARE CORRr.CTLY.
THIS IS 80NE BY wRTTING THE SECTORS ADDRESS INTO THE SECTOR
FOR A FULL THACI<'. Ef.CP SECTOR IS READ TO VERIFY THE StCTOR HAS
THE CORPECT DATA, If NOT THEN THE SECTOR BITS ARE NOT COMPARING
CnRRECTLY.
TSST 32 - ~RITE CHFCK NPP INTFGRTTV
THIS TEST WILL Cl'ECK TRAT THE WRITE CHECK W[LL FUNCTION ~ITHOUT
CAUSING A 8US TRAP. TEST IS SET UP Tn ~A~DLE RUS TRAPS.
TEST 33 - ~RJTE CHECK F~~CTION
T~IS TEST wILL CUECK THAT l
~RITE CHECY FUNCTION WILL CD~PLETE
~ITH TP~ SPECIFIFD TIME ~ITHOUT POSTI~G ERRORS.
TEST 3 d - WRITE CHECK FUNCTION INTERRUPT
TillS TFST ~ILL CHECK THAT AN INTERRUPT CAN BE GENS RATED FPO~
ISSUING A wRITE CHECK.
T~ST 35 - ppnPFP I~rpEYS~T OF RL~I ON ~RITF CHSCK
PIS T;;,sr "ILL CI'F:r:K TilAr T'IF. KUlA INCH::H:NTS PPOPS!?LV DUFING A

SEQ 0025

Page 26

SKQ 0026

WRITE CP.~CK.
T~ST 36 - PRDPE? INCRE~ENT OF RLDA ON WRITE CHECK
TllIS TEST WILL CPSCK THAT THE PLDA INCREMENTS PROPERLY DURING A
WRITE CHECK.
T~ST 37 - ~ULtIPLE SECTOR WRITE CHECK
THIS TEST WILL CHECK TEAT WE CAN wRITE CHECK MORE THAN ONE SECTOR
AT A TIME.
TEST 38 - fORCE DCr WITH WRITE CHECK
THIS TEST WILL CHECK THAT WE CAN DETECT A DCI DURING A WRITE
CHECK. THIS IS DONE BY ~ODIfYING ME~HRY BETWEEN A WRITE AND 1
WRITE CHECK.
TEST 3~ - FnRCE OCK WITH WRITE CHECK INTERRUPT
THIS TEST WILL CPECK TRAT A DCK DURING A WRITE CHECK WILL CAUSE
AN INTERRUPT TO OCCUR.
TEST 40 - CHECK ZERO fILL ON WRITE WITH WRITE CHECK
THIS TEST WILL VERIfY THAT WE CAN SUCClSSfULLY WRITE CHECK ALL
wORD COUNTS fROM 1 - 127.
TEST 41 - 42 - EXT~NDED CHECK Of WRITE CHECK
THESE TESTS VERIfY THAT WE CAN WRITE CHECK SUCCESSfULLY ALL PATTERNS. PATTERNS USED ARE WALKING l'S, O'S, GROWING l'S, 0'5.
TEST 43 - READ WITHOUT HEADER COMPARE
THIS TEST VERIFIES THAT THE FUNCTION READ WITHOUT HEADER COMPARE
(7) RESETS THE CONTRTILLER READY AND POSTS NO ERRORS. THE DISK
ADDRESS IS SET TO ALL ONES.
7EST 44 - READ WITHOUT HEADER COMPARE INTERRUPT
THIS TEST WILL VERIFY THAT THE fUNCTION READ WITHOUT HEADER
COMPARE (7) CAN GENERATE AN INTERRUPT ON COMPLETION.
TEST

- CHECK RD WIO HnR CMP READS
THIS TEST CHECKS THAT THE FUNCTION C1N ACTUALLY RECOVER DATA.
WE WRITE A PATTERN IN MEV,ORV A~D CHECK THAT THE fUNCTION CAN
OVERL4Y IT WITH DATA.

TEST 46 - CHECK RLBA INCREMENT WITH RD

~/O

HDP

C~P

•

ill

Page 27

THIS TEST CHECKS THAT THE RLBA CAN iNCREMENT PROPERLY ON THE
FUNCTION.
TEST 47 - CHECK RLDA DOES INCREMENT
THIS TEST CHECKS THAT THE RLDA DOES INCREMENT WITH THE
FUNCTION READ WITHOUT HEADER COMPARE.

SEQ 0021

ASSEMBLY ROUTINES
MACYll 30A(1052)
CZRLBB.Pl1
22-NOV-78 15:28

~
~

002000
002000

~ II

888g88

888
88~
88
88

BGIIMDD

· ASi
S
:UcII 10/
/B/
.ASCI

.WORD
.IIORD
.IIDRD

:=3~g

00~110
00
110
00 112

1
Bl~9 mm

002 14

49
~o

~~
~9
58

59
60

U
67

IREYlSIOIi
6
.6
.
0
0
0
~$DVTYP
LSDR
LSDRST
C EDIT

22-NOY-78

15:35

PAGE 1-1

SEQ 0031

.IIORD
.IIORD
.IIORD
.YORD
.IIORD
KIiDMon

~n 002 14

19
48

$DISPATCH

0
g

.WORD
.!oIORD
.1I0RD

III

:mc

nUi ~hh~

aS FT

L SW
L LAST

.IIORD
.IIORD
.8YTE
.BYTE
.IIORD
• YORD
.IIORD
.IIORD
.WORD

ASSEMBLY ROUTINES
MACYl1 30A(1052)
CZRLBB.Pll
22-NOV-18 15:28

:=3IB
• NORD

8~88~8
l5" 88 os)
o~ 0 0088
060 ° 00
"" 88 8U 88~?b~

0
4

~IHARD

.IIORD
.1I0RD
• WORD
.WORD
.NORD

POINTER 8GRSN,BCMSFT,BCNDU
MDHEDR
.ASC11IZI
.ASCI IRI
oASCI ILl
IBI
.BY
0
.8Y E

r4 g 000
OOO~
l 88
00 ~6
3
5
88

:""

0030

~f~gf¥ Ig~RLB,B,0,60,60,4,RLOl

n
M
4

4
4

SEQ

~ml~~g

hr~ ~
" n 8hl
8 ~ 16~1
"" n 11 1
" H~ 811
n
" 8J 811881
g

PAGE I

.=2000
SfC

002000
002000

15:35

.ElIABLE JlMA
• EUSt! ABS
.NLIST ME,eND,MO

22-NOY-78

000000
000001
046122
002122

8g8A88
83~88g
000200
°8°0~0
M808

gg8~88

001000

gU 40 g
000882
00 8°02

880gh
088
o 014
016
000202
000010
000002
000001
00000
000100
000100
000020

g8888~

000004
000006
000010

030460

000

BGNMOD

DEVREG
.WORD
.BLKW
DEVTYP <RLO!>
.ASCIZ IRLOll
.EVEN
GL8EQAT
EQUALS

m~N~~H6
ERR=BITl5

g~r~B¥JI~4

mHM~~D~NU~~S lRLCS)

laHI
En~~ ~~~w RLC
;oPEAA~IO" INCOHPL~TE ~aLCS)

;CONTROLLER READY (RLC~)
;EXTENDED ADDRESS BIT }7 lRLCS)
;EXTENDED ADDRESS BIT 6 RLCS)
;NON-EXISTANT MEMORY IRLC )
;DRIVE SELECT 0 IRLCS
;DRIVE SELECT
RLCS
iDRIVE SELECT
RLCS
;DRIVE SELECT
RLCS
;FUNCTION-HOOP 0
;WRITE CHECK F N flOB
;GET STATUS FUNC ION
;SEEK FUNCTION
;READ HEADER FUNCTION
;WRITE DATA FUNCTION
;READ DATA FUNCTION
DER VERIFICATION
@g~U~R~~I~lY~Ii~BIT1
~~~A~ ~,g
DRST=BIT3
;DRIVE RESET YRLDAl
GS8IT=BIT1
;GET STATUS B1T
DA)
MK=BITO
;MARKER BIT (RLD )
SIGH=BIT2
;SIGH BIT (RLDA)
RHHS=BIT6
;HEAD SELECT IN READ HEADER
gIU~~GI~~
~U~tg ~~~~~~
~~~~US BACK
;OFFSET FOR HARDWARE p-T1BLE
CSR=O
VECT=2
PRIOR=4
ORBT=6
CNT=10
,OFFSET FOR SOFTWARE P-TABLE
CRDY-BIT7
BA17;81T5
B116=8114
NXH=BIT13
DSO=O
DSI=BITB
OS =BIT9
DS =8IT8181T9
NOOPO=O
WRCHK=BITI
GSTAT=BIT2
SEEK=8IT2IBITl
RDHDR=BI't3
WRITE=BIT318ITl
READ=BIT3IBIT2

a:a

.MAIN. MACYII 30A(1052) 22-HOV-7B
CZRLBB.Pll
22-HOY-18 15:211
88
GLOBAL DATA

~~t

Z~7

1~63

48
91
11334
39 0
1453
1506
1564

Ig~~

11126i
1
180

l~a~
~g~l

2015
2206
2265

~~~l

~ 349717

574
2610
~~~~

2910
3035
3106

~~~~

3338

j~~~

3572
3653

~1~:

3800

1~8~

SEQ 0028

kb~~ElOF8~E~~A~70Ri~ECOMPARE LOGIC
GLOBAL TEXT
GLOBAL ERRORS
INITIALIZATION CODE
GLOBAL SUBROUTINES
ROUTINE TO CHECK FOR CONTROLLER ERRORS

221
580
723

334

If8~

15:35
TABLE OF CONTENTS

LOlD

RL::t~~t ~:: : =~It~ ~&~C~¥O~GRETY

**TEST 3** - WRITE fUNCTION INTERRUPT
**TES1 4** - PROPER INCREMENT OF RLBA ON WRITE
··TEST 5*· - PROPER INCREMENT OF RLDA ON WRITE
*·TEST 6*· - FORCE HEADER HOT FOUND WITH WRITE
**TEST 1" - FORCE HEADER NOT FOUND WITH WRITE INTERRUPT
**TEST BO' - CHECK OPI TIME WITH HDR NT FND
*·TEST 9'· - MULTIPLE SECTOR TRANSFER ON WRITE
*·TEST 10·· - CHECK DIRECTION OF WRITE NPR
~*TEST
CHECK FULL RLBA INCREMENT
::t~~t 13** : G~
l~ I=g~~=~=t
**TEST 14** - TEST READ NPR INTEGRITY
-*TEST i50* - READ FUNCTION
0
"TEST 6 • - READ FUNCTION INTERRUPT
::t~§i l~:: ~~~~~RRi~gR~~~N~I~fC~lR~ ON READ

B== -

KIt

: t~~~~RH~~5~~Hi~t ~~U~6DoI~n ~~~g
::t~~t ~~:: : ~~~g~ U~~g~~ ~g~p~~~Neo~I~H READ INTERRUPT
::f~~t ~6::

**TEST 23'· *·TEST 24" ::t~~t ~~:: :
**TEST 27** .OTEST 28** ··TEST 29** **TEST 30·* ::+~~t ~~::

~g~g~ ~g=:~~I~t~~t =~=8~~ ~~~8~ INTERRUPT
CHECK READ WRITE LOOP
CHECK SILO LINES
CHECK THROUGHPUT OF SILO
CHECK ZERO FILL ON IIRITE
CHECK SECTOR BITS OF HEADER COMPARE

- =~It~ g~~g~ ~C~CI~~~GRETV

.*TEST §3.' :
··TEST 34" **TEST 35** ::tf~t ~~:: ·*TEST 3B** -

::t~~I ~3::

CHECK HULTIPE SECTORS ON READ
FORCE HDR NT FND AT END OF TRACK

WRITE CHECK FUNCTION INTERRUPT
PROPER INCREMENT OF RLBA ON WRITE CHECK
~Hr~f~LIN~~E~a~Tw~~T~LgAEg~ WRITE CHECK
FORCE DCK WITH WRITE CHECK

: ~~~g~ ¥~~OW~I~LW~~T5Ri~fa~I~~T~~~¥tTC»£CK
:

··TEST 41** - EXTENDED CHECK OF WRITE CHECK FUNCTIO~
·*TEST 42** - EXTENDED CHECK OF WRITE CHECK FUNCTION
::t~~t 4~:: ~~~g ~It~g3t ~~~g~~ gg~~~~~ t&~gtI8~ INTERRUPT
**1£51 45** - CHECK RD W/O HDR CMP ACTUALLY READS
::t~~t 4~:: ~U~g~ ~t~t A~~~E~~~AE~~~¥ ~¥Tn/2DHe~oC~CR CMP

,MAIN. MACY11 30A(1052) 22-NOV-78 15: 35
cZRLBB.SUP
23-0CT-18 09:52
TABLE OF CO~rENTS
DIAGNOSTIC SUPERVISOR -- LOW CORE SET UP
4015

SEQ 002

ASSEMBLY ROUTINES
MACYll 304(1052)
CZRLBB.Pll
22-MOV-78 15:28

888889

gunS

22-NOY-78

15:35

PAGE 1-2

SEQ 0032

~H;;~

SIZIl=4
DMPCK=6
I)LHT=10
BGIIMOD
.SBUL

ENOMOD
GLBDAT
GLOBAL DATA

¥~~m

:~SID

WHY:
.wORB
CDCNT: .WORD
ERRVEC: .WORD
.WORD
E:
• liaRD
• liaRD
¥~~P~i
IIITF~G: •• liaRD
liaRD
LDCSR: • liaRD

~~8"~~: :=8:8

BCC~8K: .IIORD
CALBCC: • liaRD
.WORD
TII~O:
• liaRD
• liaRD
CDDU: .IIDRD
.WORD
UB~~i .WORD
TEMP]: • liaRD
TEMP4: .IIORD
FIRST: • liaRD
CYLMSK: • liaRD
MXSEC1: .WORD
~c~~~~: .WORD
HUCYL: :~SIB
SVHD:
.WORD
B.CS:
R.BA:
B.DA:
• WORD
• liaRD
R.MP:
• liaRD
E.CS:
E.BA:
• liaRD
E.DA:
• liaRD
E.MP:
E.IIP1: :~SDB
E.MP2: .1d0RD
RLCS:
• liaRD
RLBA:
.1i0RD
RLDlI:
.IIORD
RLMP:
• liaRD

8
g

o
POOOI

;=p!i

itSgtil8= 3~~B G~ ~~I=Rgg:

;LOCATIO" OSED BY NSIIIBCC"
;FIRST
;MASK CYS~3TOR
NDER REID
lID HEAD SELECT
;MAX SEC R ADDRESS +1
;MAX SECTOR ADDRESS
;DIF'EREICE
,MAXIMUM CYL JORI
ID R(SBEI)
A DRESS
• SAY!! CURREI H AD ELECT

40.
~9.

17600

~~f : IlfS:1
8~IRtTI0:
BEFORE P 1,1 8•

:=S:B 8

iDA NP SCS ;BA IDA ;MP -

BEFORE PERA+ •
AT OCCUBAIC£ 9 ERROR
AT OCCURIICE 0; ERROR
AT OCCURARCE SF ERROR
AT OCCUR liCE
ERROR

8
o

ASSEMBLY ROUTINES
MACYll 301(1052) 22-NOV-78 15:35 PAGE 1-3
CZRLBB.Pll
22-NOY-78 15:28
GLOBAL DATA
BCSR:
• liaRD
0
13~
00 2~2 000000
• liaRD
UfinR: .WORD
1~6
~52
liaRD
~=~~~c: •• liaRD
~i
~!~
TRYFIIC: .1oI0RD
0
Q
ERFLG: .WORD
• liaRD
650 •
tg~mi • liaRD 155 •
400 •
UOPIMX: • liaRD
~o 74 ooo~~o
UOPIMN: • 1i0RD
160 •
.IIIORD
0
8~mi • liaRD 0
0
~~~nE~:·WORD
.WORD
86
DUPLG: • liaRD
0
IlRPOINT:
.IIORD
• BLIII
ERCOUNT:

88
gg

SEQ

8
8

888888
888888

I 11!~ ~8 l~~g ~8i~il

It, ~8 81 888888
888888

1~8 88

II 88 II~ 8888~2
~5

00 504

000800

~~ 8~ ~!08 ~~~88i
go 8R ~ t 8BSSiS
6~ 00 5 2 000100

~9 80 ~ ~ 000010
63

!~
6~

00 5~4

000200

00 ~3i

00~080

88 ~~g 88~g8g

'3 ~~ ~tl ~i~~gi

~i ~~ li~ i~181l
l~08 ~g iii 88g8!!J~~~

I 88

08 566

H~ ~O ~~~
g~ ~I~
8l
576 077736
0

IR5

88
189

08 68
00 ~8~
00 6 6
00 610

g~~~~3

071728
07770
077600

go •

.SBTTL LIST TO CHECK HEADER COMPARE LOGIC
HDRTAB: .IIORD
0
;WALK 1
• liaRD
BITO
• WORI)
8ITl
.WORD
8lT2
.WORD
BIT3

:~Slg

• liaRD
.NORD
.WORD
.1I0RD
• liaRD
• WORD
.IIORD
.1I0RD
.IIORD
.NORD
.1I0RD
• liaRD
.IIORD
• liaRD
• ~81g
liaRD
• WORD

BH~

8IT6
aIT7
BIT8
8lT9
8IT10
8ITll
BITi2
8IT 3
BIT 4
3
7
17
37
137

~33~j7 7

:~8Ig

Ih17~

:~s~g

~H 7

.1I0RD
.1I0RD
• liaRD

7~7

• WORD

77600

::S~g

6
7 7 0
7 7 4

~H38

;GROIl 0

0033

ASSEMBLY ROUT lIES
MACYll 30A(1052) 22-IO'-1B 15135 PAGE 1-4
CZRLBB.Pl1
22-10'-78 1512. .
LIST TO CRICK HEADIR COMPARE LOGIC

SEQ 003

o
,ULI( 0

DDRIID:
DUPUI .WOIID

1IIIIIIWil

I nnu

215
216

211

HH~9

.IIORO

111117,177116,177111,171113,111167,111711,171137,171671

U9H~

.IIORD

171577,177377,176711,175711,173717,167',1,15,711.137717

.IIORD

77171,17T774,111110,171160,111140,1711eO,111600,117400

.IIORD

117000,116000,174000,110000,160000,140000,3,7,11,31,11

! nun
1

II nlln

003052 002000
I 001052

;

041516

041440

047117

.IIORO

.SBTfL
BUF:

BU['IR FOl READ/illITE
.8 KII
1024.

EIIDMOO
.SBTTL

GLOBAL TEXT

15R~H~ ~k~~I! ,NO CDIITROLLER/

SEQ 0035

SEQ 0036

WRITE CHK/

.EYEN

DGHMOD
.SBTTL
BGIIMSG

ENDMon
GLBERR
GLOBAL ERRORS
ERRO
JSR
PC,LINE~
JSR
PC,LINE

JSR
EHDMSG
LIOODO:
EMT
BGHMSG ERRl

R5,CKERLT
CSMSG

MACYll 30A(1052) 22-IIOV-78 15:35
ASSEMBLY ROUTINES
GLOBAL ERRORS
CZ.RLBB.Pll
22-IIOY-78 15:28

il~
3:~

014262

004737

015256

014266

004537

020126

j~~ 014
014F~
7

m
~54
55

356

014272
014274
014274
o°14~00
00

104023
004737
013746
746

015256
002170

°r"'If sr smn
304
4

o ~~u

014330

004537

o 4

III

o
8U
9 fU8?~
014 24 062706 000010

014j34

366

8 "j4

014 56

III 8U U

m 0f33i

020126

104023

014336

r8.1 1,
1

8°4737
04737
013746
0137t6

01525~

01531

OO~166

00 170
go~;n
oboo04

giUd
~4 gUi~~
06OO
014
b6~9b~ 000012
2 014 6 °A
~4

014402
014406

Ui gum

m
r~

004537

( 9)

4410

°1 44r
o014~
0
014

JSR
ENDMSG
LIOOOl:
EMT
BGNMSG ERR2
JSR
PRINTB
HOV
HOV
MOY
MOV
HOV
EMT
ADD
JSR
EIIDMSG
LI0002:
EMT
BGNMSG ERR3
JSR
JSR
PRINTS
MOV
MOV
MOY
MOV
MOV
MOV
EMT
ADD

020126
LIOO03:

104023

014410

JSR

BGIiMSG

8SHH 8mr~
013146

002170

PAGE 1-7

SEQ 0037

PC,LINE1
R5,CKERLT

;INCREMENT ERROR AND CHECK LIMIT

C$HSG
PC LINEI
BF~MT4,GDDAT,BDDAT
DDAT,-!SPl
GOD
AT - sp
rRMT~~-(S )
~'ii~S )
Cf~NT8
# o,SP
R5,CKERLT

;INCREMENT ERROR AND CHECK LIMIT

C$MSG
PC,LINEt
PC LINE~
~F~M 5, MPO,BDDAT,GDDAT
DDAT -~ SP
SP ~
BDDAT~TMPO -( P~
rRMf5r< P)
4,-SS )
P R
Cf~NT8
# 2,sP

JSR
ENDMSG

R5,CKERLT

EMT

CSMSG

ERR4

JSR
JSR
PRINTS
MOY

;INCREMENT ERROR AND CHECK LIMIT

~l!'tlm

!F~MT4,GDDAT'BODAT
DOAT ,-( SP)

;INCREMENT ERROR AND CHECK LIMIT

ASSEMBLY ROUTIHES
MACYll 30A(1052) 22-1109-18 15:35 PAGE I-B
CZRLBB.Pll
GLOB AL ERRORS
22-IIOV-78 15129
MOV
GDDAT,-(SP~
4424
MOV
44JO
rRMn~-(S )
MOY
3,-~S )
81i~44
MOY
EMT
000010
• i~~
o,SPB
ADD

!II

jl'

III
!II

d4U~

smn
Tlil
LI A~

014450

004537

nun

020126

104023

014456

8P:~i

004737

015256

mu~

1I11I1 IIIII1

000006

004537

020126

014506

014514

III stnn

104023

gg4H~ smu
I~j 01
81i~~~
524 001737 015312

d~
4~

8 4~34 gl~~U
8~8881
1S 60~
gun
0 4
8 4550 8tn~ 008
02 1 36
405

tl!
406

°r~54

g :5~l 104023
ls~ 014556

483

JSR
EIIDMSG
LI0004:
EMT
BCNMSG ERRS
JSR
PRINTB

=8'
=8l
fMT
DO

JSR
EIIDMSG
LI0005:
EMT
BGIIMSG ERR6
JSR
JSR
JSR
PRINTB
MOV
MoV
MoV
EMT
ADD
JSR
EIIDMSG
L10006:
EMT
BGIIMSG ERR7

U~ 014556 004537 020126

JSR

R5,CKERLT

tU 014562

o°1456~

416
441'8
4~9
4 0

:j~

BGIiMSG

014564
0145r
0145 0
8m 4

01460~

4731
08
o 4737
013746
013746

8U!03

II'
tit

l!i
4Jj

II!:n
435

L10007:

104023

015256
015312
mHO

8~~H~

8tIH! o 0004
8P6!~
8 UH A~~~n 000012
014630
014634
°146~4
o
4
014636
636
o° r464~

004531

020126

104023

g8nH mn~

81~U8
8U!~4

010246

8UM8

6~~A2

000010

014674

004537

020126

8°~H~
0~0003
81!~U
8U6~~ i
b 600

i~I!} 014~00

8W88 104023
014702

88m~ mn~

Ila) nnn 8lUU 88~m
891

0144p6
22

162

EliDMSG
EMf
ERR8
JSR
J5R
PRINTB
Moy
MOV
MOV
MOV
MoV
MOV
MT
DD

JSR
ENDNSG
L10D10:
EMT
BGIIHSG ERR9
JSR
JSR
PRINTB
MoV
MoV
MoV
MoV
MoV
EMT
ADD
JSR
ENDMSG
L100ll :
EMf
BGliNSG ERR10
JSR
JSR
PRINTB
Moy
HOV
MoV

;INCREMENT ERROR AND CHECK LIMIT

CSMSG
PC LIIIEt

l,iM !,Rrsf MS
I~I~' ~: I J
P'R!

ii!1 B

}

R5,CKERLT

;IIICRENEIT ERROR ABD CHECK LIMIT

CSMSG
PC'PNE~

~g~Lm

ftRMT99
FRMT99~-(SP)

~'iiAsp
C'~NTB

k~~ERLT

;IIlCREMEUT ERROR AND CHECK LIMIT

C$MSG

R5,CHRL!

ASSEMBLY ROUTINES
MACVll 30A(1052) 22-NOY-1B 15:35
CZRLBB.Pll
22-NoV-78 15:28
GLOBAL ERRORS

SEQ 0038

;INCREMENT ERROR AND CHECK LIMIT

PAGE 1-9

SEQ 0039

CSMSG

PC,LINE1
PC LINE2

aF~MT6'TMP},GDDAT'BDDAT

DDAT -{SP
GDDU~- SP
TMPl -( P~
RMf6r
4,-SS ) < P)
P R
Ci~NTB
II 2,SP

R5,CKERLT

;INCREMENT ERROR AND CHECK LIMIT

C$MSG

~g'~lm

RF~MT4~THPO,R2

T~~ii(~(~p~

rRMf4~-( P)
3,-SS )
P R

iit~n

R5,CKERLT
CSHSG
PC,LINE~

P~ LI~E

a ~MT ,™Pl,GDDAT,BDDAT
DDAT -~SP
GDDAT~- SP
TMP1,-( P)

;INCREMENT ERROR AND CHECK LIMIT

ASSEMBLY ROUTINES
MACYll 30A(1052) 22-NOV-18 15:35 PAGE 1-10
ClRLHB.PH
22-1I0V-78 15:28
GLOBAL ERRORS
016117
MOV
rRMT7r(SP)
gUB~
000004
MOV
MOY
P R S )
81~736
EMT
Ci~NTB
14~~g
000012
ADD
It ,SP

III

4~l

g~~1U

014746

U 81.'75
U3
454
455

004537

~~s

460

000012

MOY
MOf
EMT
ADD

LI0012:

104023

BGHMSG

o0p54
" 60 88~H~ mn~
o t 6~

hdl~ irUI 8bl n

015020
015024

m
46~

Sq70

JSR
ENDMSG
EMT
ERRll
JSR
JSR
PRINTB
MOY
MOY

020126

014754

III' Uun 111m
457

4'-b

b ~~bt

U 01n~~

m8~~

004537

=Sl

020126
L10013:

104023

BGNMSG

015026

004p7 015256
US
o°15O~6
50 2 004 37 015312
466 015036
5036
01 50~~
00 'o
66
H
oo
8i Ji:! oou
50
9
5050
81 58
54 81~l12
8150~~ g ~63~
t

8
7

4
6

Smu

glb~8 b6m6 000014

015074

004537

015108

104023

4~I gmg o

SEQ 0040

020126

JSR
ENDMSG
EMT
ERR12
JSR
JSR
PRINTB
MOY
MOV
MOY
MOY
HOV
MOV
MOV
EMT
ADD

JSR
EKDMSG
L10014:
EMT

R5,CKERLT

;INCREMENT ERROR AND CHECK LIMIT

CSMSG
PC,LINB
PC LIH
Irfi~8'IMPi'GDDAT'BDDAT
DDA ,- SP
GD~AT,- SI
I'Rafii~-~
P)
4,-~S )
P R
Ci~NTB
II 2,SP
R5,CKERLT

;INCREMENT ERROR AND CHECK LIMIT

C$HSG
PC,LINE~

PC LINE
IrfiM 9,THP1,R3,GDDAT,BDDAT
DDAT -fSPl
GDDAT§- SP
R3 -( P~
TMh -( P~
RMhr ( P)
5,-~S )
l~~
B
lIi4,SP

R5,CKERLT

;INCREMENT ERROR AND CHECK LIMIT

CSMSG

ASSEMBLY ROOTINES
MlCYU 30A(1052) 22-IIOY-78 15:35 PAGE 1-11
GLOB AL ERRORS
CZRLBB.P11
22-NOY-78 15:28
BGNMSG ERR13
473 015102
JSR
H~ 015 2 004737 015256
PC LINIn
PRIIITB &F~M 10,OPIMN,OPIMX,BDDAT
476 015 6
MOY
DDAT'-~SPi
mH~
MOV
MOY
~~
MOY
IFkMdO~-(
P)
000004
MOV
hi~SP
~ 81~ ~6 o
MDV
EMT
4
015 3~
cjhn
ADD
II 2,SP
4
015136 ~6~n~ 000012

r"'I mil! gnur mug
18

480

4Jl
h

483

~B4

43~

U38

015142

004537

8m:~

015146
015150
015150
015154

020126

L10015:

104023

BGNMSG
004737
004737

mH~

81~i68 01p4~ 00305~
~4 01 74 00216
Op170
oOfS5~Z40 °1~746
g l38 8mg~
o 5 02 1 4014

015

015204

062106

000010

015210

004537

020126

m81~~U

o 5 14
015216

104023

496
491
49 8

8H~~~

004737
004737

IIIm

015r4
01~ 40

48
49£
49
492

4
43
4 5

mn 8H1U
n4m

01g746

015256
015312
016723
000002

gig
H
000006
01 50 g8m~ 020126
015~5l
015
015254

°P=A':

104023

JSR
ENDMSG
EMf
ERR14
JSR
JSR
PRINTB
MDV
MOV
MOV
MOV
MOV
EMT
ADD

JSR
ENDMSG
LIOO16:
EMT
BGNMSG ERR15
JSR
JSR
PRINTB
MOY
MOV
MOV
MOY
EMT
ADD
JSR
ENDMSG
LI0017:
EMT

RS,CHRLT

;INCREMEIIT ERROR ABO CHECK LIMIT

CSMSG

~E'Hm

fFfiHT11§TMP1,#BUF
BUF,- P~
MPI - SP
rRMh ~-(SP)
3,-~SP
P R
Ci~NTB
• O,SP
R5,CKERLT
CSMSG

~E'Hm

,rfiMT15~R2

i ~M-pp15~-(SP)
~

2,-~SP

P R
C~~NTB

k~hRLT

C$MSG

iINCREMENT ERROR AND CHECK LIMIT

SEQ 0041

ASSEMBLY ROUTIHES
MACY11 30A(1052) 22-HOY-78 15:35 PAGE 1-12
GLOBAL ERRORS
CZRLBB.Pll
22-11011-78 15:28
50
LINE1: PRIRTB #fR~Tl'RLCS'<B'DRIVE+l)

I
Iliil' 111I!1
I3 I'111!1
III 11i!! """

III
i9 I
t

111111

!~~

i~IB

MOV
MOV
MOV
MDV
EMT

A¥H

LIIIE2:

~~'IITB

MOV
MDV
MDV
MDV
=DV
MSi
EM
AD¥ !lTB
PR
MDV
MDY
MDV
MS"V
M
MDV

, :, :

11"'
,~l.1 iilili

~a,

~Ki"TB
MD
MDV

P l!~l !!!!!!

cs;
C8:
MD"

III

IIlli,II
~f

MDI
EM

,~t~s~

IF=MT~tI8EREG"ARLCS'BoCS"ARLBA'8.BA

lRth -iiP )

rilE;!!!'1
n=II'h: n
6,P~R

sJ
.=I'!.I'I·"····,..··"..·····

IJ6

I""'h"
'R~h'1! ~~)
clh:.Ill,'!.,•..••,,,.•·,,.........·•.

0KA - S

5'iirp
8

ll~hf-~ P)

'fi I::b~l
S
in
rRM
~- P
6'ij )

Ilh·!~I~~1IARLDA,E.DA,.ARLMP,E.MP,E.MP1,E.MP2

ADD

C~~!lTJ
II 0,5

C8;
EMT

d1~-(lp)
~'if

m
MDV

I"",
000020

B~ls~!h~SP)

MDV
MDV

~RiIirB

MD
MDV

111111

r )

SEQ 0042

E.M~ ,- s~J
E.Mr~-( P~

R Pt-~ P)
oD'6S ~P
A
L A -(
FftMT2fi1-(S~ )
~'ii6SP

ASSEMBLY ROUTINES
MACYll 30A(1052) 22-NOY-78 15:35
CZRLB8.Pll
22-IIOV-78 15:28
GLOBAL ERRORS
RTS
LINEl: PRIIITB
=S:
MDY
MDY
EMT

PAGE 1-13

SEQ 0043

~R¥I/TB

MOY
MOV
MOV

~a¥

ADD
RTS

.1SCIZ
FRMTi:
.ASCIZ
FRMT
FRMT A: .ISCIZ
~: .ASCIZ
.ISCIZ
FRMT4: .1SCIZ
FRMT~:
FRMT,:
i .ASCIZ
.lSCIZ

nn,

"IC¥N,RoLLER: '06t. DRIVE: tOll
Hno:,~~:T,t061
I'T\0~'yi06 , \06'A \061
'tNtT
'\." XP"O: \06'1 REC"D: '06'N
'H AL ST: '06"
RES: '06'
"D· D6'N
~'NIAB3s
lOR: '06CA EXP"O: tof
Rfc!o: ,66'HI
""'AIIORD'
'03'A
EIP"D:
'06'.
RIC'Oi
I\"'ADA: ~06'A REC"O: , 6'A EIP 0: .06 NI
tN AVO DS W I TEN: '0 'BUS 'DO : . ,.
IIftl'TE.:
BUS 'DDK: .S "/EIP"o: '06"
""'ARtNGE
MILLlsEioloS
illS '06'.'
I'AMAX MUM 'D3'A
TIMEOUT
PROGR'B
S SEiOIOS'.,
lUUERRDR LIMI EX EDEO - R PP 0'.
't'ORIVE DID RD' RECOVER FRO POIIER F ILUREI
~!fi'I'A WILL NOT TEST'.,
li.i PATTERN WAS: '061

:UEU
nCt
nnlh: :UEU ~'N=AVOftDS
FRMTtO: .ASCII
.ASCI
.ASC
.1SC I

n=Itii
nn, l :UEU
FRM+

: .ASC Z

'D~=A

213"

.EVEN
BGNMOD
BGNRII

EHDHII
LI0D20:

.IIORO
.1I0RO
.IIORO
.IIORO
.1I0Ro
.IIORD

L10020-L$RII/2
400

U3
~40
1

·CSR

$nilRln

fORI E (BITS 8L 9,10)
;RL =1 RLVll=u

'16'.'

REC"D: l06UI

ASSEMBLY ROUTINES
MACYll 30A(1052) 22-NOV-78 15:35
CZRLBB.Pll
22-NoV-78 15128
GLOBAL ERRORS
BGNMOD
B,GNSN

PAGE 1-14

SEQ 0044

ENDMOD
SPTCDDE

.NORD
.NORD
DRn:
ME
T: .IIORD
T.S ~E: • IIORD
T.DMP: .IIORD
t.LMt: .NORD

L10021-L$SII/2

°AO .
g

Ennl:
EIIDMOD
aGNMOD DSPCoDE
DISPATCH
.II~RD
.11
RD
.11 RD
.IIOR8

:=818
.I8RD
:!~ID8
.IIOR
01l0R8

OIl~RD

:= 18
:= 180

:=81
.lIoR8

.1I0R
R
.1I8
.11 R

0
==81
.1I0RB

.1I0RD
.lIoRD
.1I0RD

:=8IB
:1818

SEQ 0045

• 11010

:=8R8
.NORD
.1I0RD
:1818
.II~RD
.11
RD
.11 RD

:1018
.IIORD

.saUL
BGMMOD
000340

~Q¥

000034
002012
000037
000040

000036

.lIgRD
Ell MOD
INITIALIZATION CODE
IIIITCoDE
BGNIIIIT
SEfPRI I~RIn

002304

~$~JRI,RO

REODEF fEF.PIIR
~QT
~§~E~!R,RO
811COMPLETI
NOPNR
BCC
KoPIiR
Moy
L~UNIT,PIIRrLG
NOPIIR: IIADEr i~P!RESTART
~Q'
~E'E'~START,RO
BCOMPLETE$
START!
BCS
STARn
READEF fEr.START
~Q¥
~~'E~~ART,RO
B.COMPLETE
CONTINUET
BCC
fONTIIIUET
START1: MOY
~RCoUNT,RO
1$:
~e:
R3)~Rl
DEC
1
BNE
1$
BR
START
CONTINUE:
READEr fEF.CONTINUE
~Q~
~~'E~8NT NUE,RO
BCOMPLETE
CON!
BCS
CONT

ASSEMBLY ROUTINES
MACYII 30A(1052) 22-NOV-78 15135 PAGE 1-16
CZRLBB.Pll
22-NOV-78 15:28
INITIALIZATIOn CODE
NXT:
TST
1I11T
BIE
XX,
START: MOV
f-OiUIIITST

xxx:
REST:

SEQ 0046
fGBnE WITH ALL UIITS

=8:

liRC~3fi¥~~,ERPOINT

INC

1I11ITST
safER POINT

EMI

C$GPHR6

Aog
ft~HARO 3.11~I'18
BCOMPLET~

'~i
BEQ
DEC

NI~Tjl+'RcSR
: ::BJlioR
I ::¥~~:¥LR

2$:

ftft,

COIIT:

=B¥
MOV
Mg'

,BCSR,RO
Rg,RLCS

Aile
AIi
V
ADD

IIt :1
01
,R

=8:

MOY

PiRFLG
NXT
PIIRFLG

;GEI BUS ADDRESS

~81 ni3~rTY

J8E @ftal§OLLER TYPE
;CREATE REGISTERS

1;:atOeA
RO,RLMP

;m
TST

;00 WE WAnT TO CHECK UIITS??
J~eEIR OUT TRAP IIDICITOR
;SETUP TO CATCH TIMEOUT

BEH

~kTVEC

MOY
MOY
MOV
MOl

fRo

TST
CLRnc
MOY
EMT
TST

;ACCESS conTROLLER

ft~~

7$:

BR
MOY
BIS

;IOW CHECK DRIYE FOR READY

SEQ 0047

5$:

002304

8891g~

000074

ma~:
3$:

TST

;POWER liP
;NO

BE~

=~s

MOY
IIAITHS
HOY
EMT
BIT
BNE
DEC

8NE

6$:

PRINTF
MOV
MOY
MOV
EMT
ADD
PRINTF
MOY
MOY
MOV
EMT
ADD
JSR
DODD
MOV
EMT
DOCLN
EMT
JMP
MOV
MOV
TST
8NE
MOV
MOV
SETVEe

=B~

MOV

UOPIMN,OPIMN
¥?~nl~OPIMX
13PIMN,OPIMN
top MX,OPIMX

;RLl11?
;YES, THEN KEEP LIMITS SET

eY!C,'!NTSRV,#340
3I 0 - 1.SPf SP)
VEC,-(liP

1 dR

ASSEMBLY ROUTINES
MACYlt 30A(1052) 22-NOV-18 15:35 PAGE 1-18
CZRLBB. Pll
22-80Y-18 15:28
INITIALIZATION CODE
MOV
000003
~3~VW)
EMT
,sp
o8~~Z~3
0002
AnD
000010
684
ENDINIT
61 56 O~OOO~
LI0022:
g 8886 104011
EMT
C$ INIT
020010
KNOMOO
020010
BGNMOD CLHCODE
BGNCLN
020010
69
SE'tVEC IJ~XE~,I~IPHAN'#l40
MOV
0003~0
TRPh ,- SP)
MOY
MOV
RRVEC~-( P)
MOV
~3§y~~
)
EMT
,~o
SP
4~¥
88m3 162116 1$:
$Rfiv,@RLCS
BEQ
23~
BIC
#lHTEN,@RLCS
99 020046 042171 000100 162166
CLRVKC BVEC
MOV
8~m~
002254
EMT
~i~~~~O
~A3100 002304
0 6
TST
P RFLG
B~~
~iRFLG
002304
Oj
~8~ o 001~
2$:
CLRVEC ERRVEC
MOY
o 001
002132
g~n~,RO
0100 nU~2
EMT

nnn

1~1

SEQ 0048

t3~

d~91

!Il

8~881~ 81rU gUh~

111111

II~!I!

~RI o
h
8 gnn
g H8

~U o

108
'~9

hl gUm
HI
H~

ENOCLN
EMT
C$CLEAN
ENDMOD
BGRMOD DRPCODE
BGHDU
HOP
ENDOU
L10024:
EMT
CSOU
LlO023:

104012

020104
020104
020104
020104

000240
'1'
~t3 8~3186
f l o 0 02 104055

MACHI 30A(1052) 22-NOY-18 15:35 PAGE 1-19
ASSEM8LY ROUTINES
INITIALIZATION CODE
CZRLBB.Pll
22-NOV-1B 15:28
1'~O1

1~~

1~~
1~S

020110
020110
020110

If~~~ 8mu

005237

1~l
~4

8ml~

020134
20

005231

103421
005131
00~4~4

8~h~~ 8hld
~n
148 0~0156

II!
III
h4

1~S

51
160

RTI

002144

016766
162144
162140

o sr6
820 ~~

8BU~ 8m~~

020

o8~m8
0210

Op700
1 4053
104044

8~8m

000205

°Am9
hm~ m~g~
8~8~n
020 82
2

,SET INTERRUPT OCCURANCE FLAG

,ROUTINE USED IN TIMING OPI

000240
gUllg 104020

HI 8 m
14

002144

000002

1~~ 8~8m
o0201
01~2
4 A8~m

H~
738

ENDMOD
.SBTTL GLOBAL SUBROUTINES
BGNMOD CLBSUB
BGNSRV
INTFLG
INTSRV: INC
ENDSRV
LI0025:

020110

SEQ 0049

002140

016710

TIHSRV: IUgRTWAIJNTFLG
EMT
C$ABRT
RTI
CKERLT: NOP
INLOOP
EMT
CSINLP
BCOMPLETE
99$
BCS
99$
TST
DROP
BEQ
99~
INC
IE
POINT
CMP
ERPOINT,MERLMT
BLf
9$
PRINTF
FRMT
11 5-(SP)
MOY
RMTll
MOV
hi~sP
MOV
EMT
ct~NTF
ADD
JSR
DODU
uNi+ST 6DROP THIS UNIT
MOV
g~bo5fi,R
EMT
DOCLH
EMT
C$DCLH
99$:
RTS
R5

kHm

• SBTTL ROUTINE TO CHECK FOR CONTROLLER ERRORS
.*** •• *****.*.*********************************.****************
!*THIS ROUTINE WILL CHECK RLCS FOR ERRORS AND PRINT THEM
;*ACCORDINGLY. IT WILL MERGE THE ERROR PRINTODT WITH THE TEST
,"ERROR MESSAGE.

SEQ 0050
AND PICKS HEADER FROM R3
R5,CHERR

2$:

CLR
BIT
BNE
RTS
MOV
TST
BPL
JSR
COMP
BIT
BEQ
INC
JSR
DEMES
BIT

~~a

NXHI4ES

T.CRC
76000, E. CS

!:~~OO'RI

BE)

RS,FIX
J~ERR,E.CS

DERFLC::

R5,FIX
!IIXM,Eoes
RtFIX

~~3

l~PI,E.CS

JSR
OPINES
BIT

RS,FIX
'BIYli,E.CS

BEQ

;CHECK CNTLR FOR ERRORS

~~fiC"ES R ,FIX
R~~
IIIT12,EoCS
~~'MES R ,FIX

~~T
BE~

~~SIT11'E.CS

RE~

4~ITI2,E.CS

JSR
DLTMES
JSR
HSCRLF
JSR
.WORD
CLRB
ERRDF
TRAP
.WORD

Rg,FIX
R5,FIX
RS, FIX
9R1 )
~00'LLFLERR6
TSER{;ODr;
300

J~R
h~'h
D~KMES

~XE~f"PUT "DRV" INTO STRING
;N8.-EXISTENT MEMORY ERROR?
; NO CORTIIIU!
;XE§~ PUT "NXM" INTO STRING
h~XO;I SET?
;NO: GO CHECK BITS
& 12
;PU "OPI" 1IITO STR IIG
;"0 I"
;HEADERCRC ERROR?
;~8'pg¥ ~UE~~"HfAD~~Rrg~ FouaD

f~~~C~~ ROT 0010
;NO~ GO POT ~CRLFZ IN STRING
;PUT "HNF" 1M STRIRe;
,"HIIF"
,POT CRLF" IN STRIUG
;DAT£ CRC ERROR?
;NO, GO CHECK DATA LATE
JCg~K:DCK" IN STRInG
,DATA LArE ERROR?
Jr.glT~DLTH IN STRING
,POT "CRLF" INTO STRING

,HaL GO POT IN "CRLI'"

f;~~~F~EADER

]HEADER FROM TEST
,PUT TERMINATOR IN

MACYll 30A(1052) 22-NOV-78 15:35 PAGE 1-21
ASSEMBLY ROUTINES
ROUTINE TO CHECK FOR CONTROLLER ERRORS
CZRLBB.Pll
22-1I0Y-18 15:28
.WORD
LF
ERR6
8~845~
.1I0RD
R5
o o~~
RTS
,EXIT ROUTINE
81~
.SBTTL LOAD RLCS
.**********.*.**************************************************
ROUTINE TO LOAD RLCS WITH FUNCTION TO BE PERFORMED
J*
CALL:
JSR
R5,LDFUNC
~LOAD THE FUNCTION IN NEXT VORD
a
~:
.WORD
m~SI~~Ra~N~gt~ g~L~UIICTIOH
H4
;*
8 5

m~u

1~~

I!'

8~~

m 8 8~~~
g4~~
Uo g
o 0~O2

77
03r
00 426

040000

161556

msu
o8hn~ goor o &a~ 12
i
8
! 85i~ 8~li~~ 88~ 18 uma
d3a o~ ~7~
U~ g
g
an
mg 8! ~4~ 6
9
81

0510

0542

8~~

m~5~

g~Oi~g
U~

161504

n~~I~ 8 8

002146
002~60
002 60

U nid~ ~nlu

86 88~~~!
in i!!!l!
8HH
849

r:;
o

854
8~~
857

8~8M

o 065

00 216

002222
002146

84~

go°r~37
~~H
3 37

71661
214
M'02
002210
002260
000100

00~264

5$:

002146

2S:
3$:

002146

8g~ln 002146
080 00 00W 6
000200

081377

6$:

is:

020440

gHH~
m 88 8~n
8~4W m 2~
B~i g g~oo
U ms 86h8~
H6~

o°r71~
011
63 8
88~0
07 6 ggH~~
0720

R5~

002~22

737

Slr 37

LDFUIIC: BIT

16 46
161334

4$:

HOV
MOV
BIS
MOV
BIT
BEQ
MOV
MOV
MOV
BIC
MOV
BIC
HOY
ASR
BEQ
CMP
DEC
BNE
BIT
BEQ
TST
HOV
MOV
MOV
BIS
CLR
BIS
BIS
NOY
JSR
BIC
HOV
RTS

HDRLST: N[)PMES
MOPIN!
IICKMES
WCKINT

ga IT 14,@RLCS
tLDAfiB.DA
~3 @ LOA
o6 B.CS
RIV f B. CS
B'8 S,!RLCS
f~ 0, RLCS
B.DA,@RLDA

n5~+§HCSR

flh~61,LDCSR
DCSR F DFNC

,INTEfifFNDFNC
Ug'b~ ,R3

f~M~t(R3)+
rNTEII,LDCSR

aJr

R3 R
3, fdMS

~~t~~l~~~R
XMEM

f~~~E(bg~~R

Dcsfif~RLCS

BE RE
fR~R~P)+,R3
60,@RLCS

,DRIVE ERROR SET

;GET BITS TO LOAD

$~tliRR1LL BUT FUNC " IIITR EN
;SAVE FUNCTION
;OMLY FUNCTION

JxfIGUEt8E~E~JST

;IF EQUAL TO ZERO, SET R3
;BUMP R3 BY 4
!~86NtU~¥~12~-GO BACK
s~ff~ g~A~~HWANT FLAG OR UTR?
;INTR POINT TO THAT ONE
;SET HEADER
;SET UP HEADER
;SAVE HEADER FOR LATER
;LOAD E.A. BITS
;CLEAR OUT THE BITS
;SELECT DRIVE
;LOAD FUNCTION
,READ REGISTERS
; I SSUE COMMAND
;RESTORE R3
;EXIT

SEQ 0051

ASSEMBLY ROUTINES
MleYll 301.(1052) 22-NOV-78 15:35
CZRLBB.Pll
LOAD RLCS
22-NOY-78 15:28
CSTMES

Ui 8U~U 8u~n

SEKINT

~nBn~

IIRiMES
IIR lilT
RDBM~S
RD
I 'I'
RDNMES
RDMINT

in nun nnn
an

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

j:Hg~~I~~cIgT~R~ERtS~I~Hi~~I~'~I.C IS DElNC BUILT

86
385

I:
;*

iK7

FIX:

~
Inn~ g~g~u o~~~r
g~8760
a 0762

1$:

n4i
Ao0205

838

S&i
38 °r7~4
90~

~86

m
~n

~ Ud 8iPi~
o~ nun nun
8

~J5

991~8
919

CALL
MOV
MOIlD
U¥D
RTS

il'ill nnn
0lr 37

04~

g 8~2

821064

161170

002 40

g~}
n
3 i~HU 013~00 8m~i
002172

0021 6

iiiid ~ lW snnsr
I Il !
~19

TI
II!i
H g8nn
8ti~8~

9g~
95

1;6

i~OO

SH2r
88~i~~i
H4 gH~g~

~60

02W 8H~n 888b3t
6

g~ ~~

160772

000024
°FZn
AO~301
~~un
!!~
o 1262 001367
~ ~

II!
~~O

R5l
+,R4
R4 +,(Rl)+

ii~R1)

AFTER:

MOV
MOV
MaY
MOV
MaY
MaY
RTS

!""',."
RLBA,E.8A

Ht~~'~:~~

RLMP~E.MP1

~LMP,E.HP2

Rl'-fSPl
,- SP

iR~J+~~
MP2
R5 +,TEMU

~~ ~lrEM
TEMP4,RO

15:35

,ADDRESS OF STRIRG TO MOVE
'GE'I' ADDRESS AND MOYE RETURN
,G T BY3E AND UPDA'E
,wa'CH
BY'E TIRMlnA'~R
;BACK UP OYER Z RO YT

;EXIT

o0~1~64

bg"462

021 2
021274

000205

m~~8 o0149U Q
6

T og~lj~~
I 10 8U~n g8g~~8 160732
n

;READ CS
;
Bi
,
DA
,
MP
;
MP
,
MP
,SAVE RO

'un
~~
~GET NUMBER
OF BITS

;G~T DATA FOR CRC CALCULATION
iG T STARTING CRC
$GET PRESENT CRC

PAGE 1-23

TEMP3
~
Ri ,RO

B CFBK

~GOLy,RO

RO,BCCFBK
TEMP4

SEQ 0053

~~~iaiEN~5Ww¥t~AoLD
S¥JTNgTS~bNTINUE
SGET CRC POLYNOMIAL lCRC-16)
;COMPLIMENT POLYNOMI L
;CLEAR CARRY

BCCFBK~RO

TEHP~' 1

~l'~
BC~FBK,R2

R2 RO
XP6LY~TEMP4
RO~T~ P4
UP

TEM r,CALBCC
SPp +,R A
~P +,R

iROUTINE TO WAIT FOR DRIVE READY

3~~
95~
95

"¥~

ASSEMBLY ROOTINES
I4ACYll 30A(1052) 22-NOY-78
ClRLBB.PH
22-NOY-78 15:28
LOAD RLCS
ROR
002174
ADC
BIT
000001
00~40~ 002154
~~~
00
MaY
002152
2$:
COM
8b~ g~ 002154
934
040 3
BIC
CLC
935
8802U
ROR
MaY
88~17~
00
MaY
MOV
~
BIC
04g~00
04 02 002154
BIC
BIS
002152 002176
BIC
m~H
06
BIS
~44 o
mH~
DEC
9~i
BilE
947
MOV
002176 002156
MaY
~O
MOV
MaY
951
RTS
~Sl

UI
U

R5,FIX

;ROUTINE TO READ REGISTERS PRIOR TO OPERATIDN
;CALL: JSR R5,BEFORE
,READ CS
BEFORE: =8~
rLCS,BOCS
B1
;'
DA
MOV
~tGt=R:Bt
;
MP
~LMP ,8. MP

SIMBCC: MOV
MOV
MaY
HOV
MOV
MaY
CLR
1$:
MOV

8046

~r g~UU 81
o !~u

JSR
.IIORD

1~~~lIREJ~R ~~!~F¥E~ISTERS AT TIME OF ERROR

88 I~
n q~ 00~r6
Hi o 1040 8i n~ in~H
61 6 88 3:

911

SEQ 0052

~u~n

u~ nun nnu

PACE 1-22

liTDRDYI MaY
,1000 Rl
1$:
BIT
~RDY~@RLCS
BHE
WAlrUS
MOV
RO
EMT
DEC
BNE
1$
ERRDF
~&~REmIM'ERRS
TRAP
.WORD
.WORD
~R~H"
o liaRD
ERRS
RTS
2$:
RS
;ROUTINE TO WAIT FOR CONTROLLER
ilTCRDY: MaY
roo.
R1
1$:
BIT
~RDY~@RLCS
ONE

IISt6

;RETORN

ASSEMBLY ROUTINES
MACY11 30A(1052) 22-10"-78
CZRLBB.PH
22-NOY-78 15:28
LOAD RLCS

TUS
=Ai
EMT

Ill' illll! 1IIIII ::::::

Iil! I1III1
~!iiJi
8~IJ~l gg~~a~

R~E

JSR

U~r
.\f0 0
2$:

021016

I3t g~l~~~ gg~~a~
t mn2
9~
1111 ~ !i I~jj!l g~g!il
ill 8 I~
021356

104004

I ! ilUn

Ilq 111~1;4
44

::::::

~II 2 UUH
l[ g 41~ bg~¥l~

8lH3~

~SR

I~,AFTER

8 ~ 8 i~ 6

II
g

8g~8aZ

~IEb~~!E

021276

004537

mn~

00~160

00 160
002~60

U85~~

020456
021276
020214

U ~8~8U
II o ~40 004537
99$:
020456
gl154 l 8gm9 021276
II ' iU~ ~8Un 020214
I
8 ~u ~8a81g
00n 6O
8~Un 8UU~ 8m~a 00 60

II~

iill

iirKi!
hil

1055

°n~~i

005037

mu!
021630
021632

104005
000207

15:35

MOV
BIC
BE~
BI
MOV
8IS
JSR
SEEK
JSR
ESCAPE
EMT
• 1I0RO
JSR
ESCAPE
EMT
• 1I0RO
JSR
ROHDR
JSR
ESCAPE
EMT
.IIORO
JSR
ESCAPE
EMT
.1i0RD
MOV
BIC
BEQ

n:~F

~83262
oog~I!82
6U 0103~~
1614 014244
0216r ~84010
8~12 8 0006
021622

;LOAD THE FOICTIOR II NEXT \fORD
)CHECK FOR FL:LOE, BLSE EXIT SEC
)CHECK FOR FL:LOE, ELSE EXIT SEC

020214

~ g b838U

glf

)CHECK FOR FL:LOE, ELSE EXIT SEC

JSR
R5,LDI'ONC
RDHOJ
~~~A E
• \fORO
JSR
~ ~IITCR6y
E~~APE C ESCAPE
• IIORO
1 000$-•

020456

o~ 7 7

004537

Uiiif5UIM,ERR5

ED
~M
R5

EMT
.1I0RD
JSR
ESCAPE
EMT
.IIORO

020214

illlUbg g~I~!~ gg~UA

III!8~ 8It~l~

,AFTER

.IIBRD
jill RD
TS

MACY11 301(1052) 22-NOY-78
ASSEMBLY ROUTINES
LOAD RLCS
CZRL88.Pll
22-NOY-78 15:28

18i'

SEQ 0054

3T6 RO

n
JU
ESCAPE

021276

If!f ~~iJi~ ;;;;;;

PAeE 1-24

TRPHAII: INC
TRPFLe
RT!
HDHOM!:
8ellSEe
,"START or SEeMERT"
EMT
CSBSEe
;ISSUE,DRIVE RESET
MBY
11«ERFLe
;SET ERROR rLAe
Mv
DKSTIMKleSBIT RLDA
JSR
5,LOFONC,8
)LOAD THE FOICTIOI IN MEXT \fORD

002142

00id4

15:35

1$:

.1I0RO
.1I0RD
.IIORD
ESCAPE
EMT
• 1I0RO
CLR

10000$:

ENOSEC
EMT

002266

Rrs
ENOMOD

PACE 1-25

SEQ 0055

E.MPfTMPO
MPO

)GET HEADER
;SEEK IS NOT NECESSARY

=~6~~

!~ii IU RfJ~ERERCE

177,
,Uo TkPO

UA
R5,LDFUNC
~~~IITCROY

CgESCAPE
1 000$-•
R5~CHERR

~~ESCAPE
1 000$-•

R5,LOFUNC
~~~IITCROY
~~ESCAPE

;LOAD THE FUNCTIOR III IIEX! \fORD
;CHECK FOR FL:LOE, ELSE EXIT SEC
;CHECK F6~H~E~L5~~L~L~~REif¥0~ic
;LOAD THE FUNCTION IN NEXT 1I0RD
;CHECK FOR FL:LOE, ELSE EXIT SEC

OOO~-.

R ~CH RR
SE

i8~~~a!~

E.MP fMPO
UCMh,TMPO

;CET HEADER

j~~N~~~OSECTOR

400· SKHOME,ERRO
;CAN·T SEEK TO TRACK 0
TgER f ODE
:II'HgME
ERR
;CHECK FOR FL:LOE, ELSE EXIT SEC
SEC
C8ESCAPE
1 000$-•
ERFLC
;INDICATE SUCCESS aACK TO MAIN PROCRAM
;"END OF SECMENT\\
C$ESEG
PC

ASSEMBLY ROUTINES
MACYll 30&(1052) 22-NOV-78 15:35 PAGE 1-26
CZRLBB.P11
22-NOY-78 15:28
**TEST 1** - WRITE NPR INTEGRETY
.SBTTL **TEST 1** - WRITE MPR INTEGRETY
BGNTST
,"START OF TEST**

·~Jt~i****************************** ••• *.*****.*******

SEQ 0056

--*---_. __ ••

,CH,CK THAT NPR WILL NOT INTERFERE WITH TDE OPERAtION OF THE
WE SET UP, LOCATIOI 4 TO HANDLE T E tRAP , IT HAPPERS.

§¥=~~US.

;;.* ••••••••••

JSR
ClERFG
EMt
.IIDRD
1$:

-* ••••••• _•• _••• _•••••• _•••••••••• _••• _••_----*._*.
PC,HDHOME

umi-.

;HEtDS OVER TRACK 0
,HE DS GO HOME OKAY

la,SEG

;"START OF SEGME.T'.

a~JYEC

;SET UP FOR TRAP

MB'
MOY
EM~

~fR

MOY
CLR
MOY
CLR

160332
160324

gg~U~

RYI

JSR
MOV
BIS
BIC
MB V

8n~U
160~42
160230

5$:

;1'
BilE

nnDS
MOV

5~~

; i WHILE UP
)NO, GO BACK

BHE
JSR
nl~F
RD
,WB
.11 RD
6$:

,CONTROLLER TIMED DOT

c~H'~c

,CLEAR VECTOR

MOV

ASSEMBLY ROOT IRES
MACYl1 30A(1052) 22-MOV-78 15:35 PAGE 1-27
CZRL8B.Pll
22-NOV-78 15:28
**TEST 1** - WRITE NPR INTEGREty
~3l g2~046 104036
EMT
CICYEC
;CHECK FOR FL:LOE, ELSE EXIT SEG

l!ll 8j~8ii Ag38~~
isiJ 8!j8ii 88l~19 :;:~::

1Ii8 i8

II II

I~~APE
• WORD

!St

31ft
ERRSF

iiil tflfil

7$:

2076

gjjlll

0g~~ 110g0g

ERDSEG
10001$: EMT

104005

nDtsT
L10026:
104001

.SBTTL
BGNTST

022102

,II """

;NO
,TRAP ON WRITE

1· L EM51 L ERRO
T$IIRCODII

b~A

;"END OF SEGMENt••
C$ESEG
,-*END OF TEST**

EMT
C$ETST
*-TEST 2** - WRITE FUNCTION
,**STARt OF fEST**

JR~f~KH~IDI~II~ ~R~JCH~NB~:.~LC5I~DD~, 'IEWI~~ ~1~¥~RISSUE A

;FILE tRACK. WE WILL WRITE A FULk SECTOR ~ti8 WORDS) FROM
,MEMORY (BU~). WE CHECK THAT NO RRORS DC
• IF W£
,HAVE A DRIVE ERROR WE WILL DO 1 GET ITAT
TO SEE
,IF WRITE PROTECt IS SET IF IT IS VE W LL A80RT THE
;tESt
AN ERROR ON THE WRITE WIl:L LOO RN JUST tHE
;WRIt~ PORTIOR. LOOP ON TEST WI L READ EADER, SEEK (IF
iNfCESSARY) ARD WRITE.

;!.Ii****************************************************.**•••• *

j. 8~~lg~ 004737 021356

~URFG

i~l 8~~1Ia ~g3Y~i

ilh ~g~~!~26g gY39~~ 1~91~g
104004

22122

;010 TRAP OCCUR?

~tAFTER

~~tlt*****************************************************.******

!t ~ "' '
13j

TRAP
.IIORD
• WORD
.IIORD

~ ~SCAPE

1 001$-.
TRPFLG

3$:
160114

PC,HDHOME

EMT
.WORD
BGNSKG
EMT

EUfiH-.

CLR
MOV

I!RLDA
'-l28.,I!RLMP

C$BSEG

,"STARt OF SEGMERt ••
;SET DISK ADDRESS
;IIORD COUIT

SEQ 0057

ASSEMBLY ROUTINES
MACY11 301(1052) 22-IIOV-18 15:35 PAGE 1-28
CIRLBB.P1t
22-NOV-78 15:28
*"TEST 2** - WRITE FUIICTIOM
HOV
022134 Op777 003052 160102
&8UI'6,RLBA
JSR
5,L UNC
020456
IIRITE
8~~m 803~H
JSR
021276
ESCAPE ~~~IiTCRDY

nun Ag;;i;

040000

160054

8~mt

160050

~=ORD

~am~~~

BIT

;DRIVE ERROR SET?
)BRAIICH IF NOT
STATUS OF DRIVE
&~~Lm~~,@RLDA ;SET GET ~LOAD
THE FUNCTION IN NEXT 1I0RD
!SiIrSJAftU~O.TROLLER READY
R5~WTCRDY
SE
'CHECK FOR FLILOE, ELSE EXIT SEC
cg SCAPE
1 000$- •
R.MP ~DDAT
;lIRERATDEDRI'~ STATUS
unf. ,GDDAr
JUO! BR~~H ERROR?

BEQ
MOY
JSR
CSTAT
JSR
ESCAPE
EMT
• WORD
MOV
BIT
BEQ

021276

mg~3 8m~~

4$:
10000$:

ERRSI'
TRAP
.WORD
.WORD
.IIORD

t~ERR,@RLCS

3· L liRLOCIC,ERRO
p~RCODE

EMT

,NRITE LOCK ERROR

IIRLOCK
KRRO

EIiDSEG

,"END OF SECMENT"
C$ESEG

;**E~D OF TEST·*
CSETS'l'
UTEST 3** - WRITE FUICTIOI INTERRUPT
,**START OF TEST**

HB~~~: EMT
.SBTTL
BCliTST
STARS

SEQ 0058
;BUS ADDRESS
;LOAD TH~ YUUCTIOR IN HEXT WORD
;IIRnE
;WAIT FOR CO.TROLLER READY
;CHECK FOR VL:LOE, ELSE EXIT SEC

i-·****···****···*·**-*******·******··**······***··*** .*.*.******
;~HECK OF WRITE LOGIC ONDER INTERRUPT MODE, WE lIILL ISSUE A

;READ HEADER SO THAT WE DON"T WRITE ON THE BAD SECTOR FILE
;TRACK. WE WILL WRITE A FULL SECTOR (128 WORDS) FROM MEMORY (BUF).
;WE CHECK THAT NO ERRORS OCCUR. WE DO NOT CHECK RLDA OR RLBA
lINCREMEN! AT THIS TIME.
5'1'ARS
;i·**··*·**···***······***·*·********·····**·*·******· .****.***.*

ASSEMBLY ROUTINES
HACYII 30A(1052) 22-NOV-78 15:35 PAGE 1-29
CZRLBB.Pl1
22-NOV-78 15:28
**TEST 3** - WRITE FUBCTION INTERRUPT
JSR
PC,HOHOME
;HEADS OVER TRACK 0
004737 021356
CKERFC
;HEADS co HOME OKAY
CSEXIT
EMT
• WORD
LI0030-•
mu~
BGNSEG
;ttSTART OF SECMENTt\
EMT
C$BSEG
104004
m~~~

012'177

012777

000000
020456
021276

000340
002144

Aga38~

ij838Ag
104005
104001

~8~

SETPRI

~2~

INTI'LG

~RLDA

iBb~~@~2~~MP
~PRIOO

~P~JR~,RO

;CLEAR INTERRUPT OCCURANCE FLAG
;SET UP WORD couaT
;SET UP BUS ADDRESS
;PRIORITY TO 0

JSR
R~I.LDFUNC
,WRITE u6~~ADli¥~R~g~¥TIOH IN NEXT lIORD
WRlTEIINTE ..
JSR
;IIAIT FOR INTERRUPT
ESCAPE ~~6I1TCRDY
;CHECK FOR FL:LOE, ELSE EXIT SEC
EMT
CSESCAPE
• WORD
10000$-•
SETPRI
PRI07
;SET PRIORITY TO 7
MOV
~ PRI07,RO
EMT
SSPRI
TST
UTI'LC
$~~g-~RI~~HU~6-~~~g:t
BilE
;WRITE DID HOT INTERRUPT
ERR OF
41~EM17~ERRO
TRAP
l~ ReOD
.WORD
.lIORD
.1I0RD
2$:
ESCAPE SEC
,CHECK FOR FL:LOE, ELSE EXIT SEC
EMT
CSESCAPE
• WORO
10000$- •
JSR
R5,CHERR
,CHECK CNTLR FOR ERRORS
ENDSEG
;"END OF SEGMENT'~
10000$: EMT
C$ESEG
ENDTST
;**E8D OF TEST**
LI0030:
EMT
CSETST
.S81fL **T£51 4** - PROPER INCREMENT OF RLBA ON WRITE
BGNTST
,.*START OF TEST"

81HU
004537

CLR
CLR

00~~44

Ihiij8
157744
003052 157732

020214

STARS

•• *************-***********************.*.********************.**

;~HECK THAT THE RLBA WILL INCREMENT PROPERLY AFTER THE

SEQ 0059

ASSEMBLY ROUTINES
MACYll. 30A(1052) 22-IIOY-78 15: 35 PAGE 1-30
CZRLBB.Pll
22-NOY-78 15:28
**TEST 4** - PROPER INCREMENT or RLBA 01 WRITE

t~U

022316

H~ 8m
8~~~Z~

004737

8~~~U

104004

'I'

021356

~nRI'G

157624

8~lm ~UUl
004537

020214

p94~ o ~8~ 8~n ~

mH8

8~ m
8m
A8a818

qiHl III

8 t7~ b840~8
8

JU
l~U

1 45

1m
m~

3$:

020456
021276

001404

nun
8~~~U

amI-.

CLR
MOY
MB"Y
AD

~IITE
~D~RD

JSR
ESCAPE
EMT
.1I0RD

Sml&

~2~

011411
014410

PC,HDHOIIE

EMr
.1I0RD
BGIISEG
EM'

JS
ESCAPE

~~~m bSam

o 2524
022526

SEQ 0060
25ti BJTES~
f~D
IIG Y .. 56."

.1.***************************************************.* ••• ***

b83U~

:11 IjUli
IU! U nun unn nun
I ~g
o

8 n I i 5 ¥lU·=" 811i

,WRITi WAS FJNISHED TfE RLBA H0 9LD IE 128 N2R~S
CREA ER. S +RTING R A
II gr
~
MOIII OR ALL I!: RO
A
R P.
II:
rNIIIILL
R

lUltBI 2~Efto~IA8~AV
;ttSTART OF SEGMEaT"

C$BSEG
DU

fRLBA

LDA
-gJ~G~ITP
~ 6., ~ T

R5,LDFDIIC

R5fTCRDY
SE
~g S~APE
o $-.

~5rHERR

~118APE
,~& t~i8gn

BBQ
ERRDI'
TRAP
.NORD
.1I0RD
.1I0RD

;$ RCO
O
ENi
ER 4

ENDSEG
EMT

CSESEG

5.~EM28~ERR4

'S~T

UP BUS ADDRESS

J' I~ ~VnbED BDSADDRESS
,1 TER II
,LOAD rHE FDacrIOI II NEXT NORD
'=:I!EFOR C TR LLER READ
SCH K FOR ~~IL8E, ELSB EIIT SEG
,CHECK r6~HJf~L&I!L~L~~RElr¥0~~c
'KIAD °RLDt" '~R PRE~ENJ ADDRESS
JY!B,'~A;TI:5E MElT RO ERLY?
;DA DID NOT IXCREMEIT

2S:
104005
104001

10000$:

;**£10 OF TEST**
C$ETST
**TEST 5** - PROPER INCREMENT OF RLDA ON IIRITE
;**START OF TEST**

HS3U: EMT
.SBUL
BGliTST

022532

"'END OF SEGMEITat

ASSEMBLY ROUTINES
MACYll 30A(l052) 22-NOV-78 15:35 PAGE 1-31
CZRLBB.P 11
22-NOY-7B 15:28
**TEST 5** - PROPER INCREMENT OF RLDA ON WRITE
022532
~ltli***************************-********************************
; HECK THAT THE SECTOR INCREMENTS AFTER TH, WRIrE WAS FINISHED.
1254
;WE RANDOMLY PICK A SECTOR (OTHER THAN LAS fRAC,) ARD ISSUE
;1 FULL SECTOR WR1TE THE RLDl SHOULD REFLECT AN NCREHEN!
1~5S
~OF THE SECOTR.
GDDA!" NAS THE EXPECTED RLDA.
022532
TARS
;;***************************************************************
1 59
1260 02~532 004737 021356
JSR
PC,HDHOIIE
;HEADS OVER TRACK 0
1 61
CKERFC
;HEADS CO HOME OKAY
8~
EMT
CfEXJT
022546 agm~
.WORD
L 00 2-.
BGIISEG
;"START OF SEGMENT"
o°F550
2550 104004
EMT
C$BSEG
1 6
3$:
65
CLR
GDDAT
00~166
d~
m~H 00
166 157462
MOV
gggg,@RLDA
$~§i7~EDI~~E~¥R~E~~cTOR
002166
INC
1 68 022564
MOV
liib~~@~fnMP
;~~¥8pcR8~TADDRESS
~3 m~~g
Am~~ m~~~
MOV
127~
020456
R5,LDFUIIC
JSR
;LOAD rHE FUNCTION IN NEXT WORD
4537
IIRITE
;IIRITE
o ~610
604 oom~ 021276
JSR
"IIA T FOR COfTROLLER READY
~~~ilTCRDY
~
ESCAPE
SCHEC~ FOR F :LOE, ELSE EXIT SEC
EMT
~~~~g~~~
.WORD
004537 020214
JSR
;CHECK F6~H~E~Lij~;L~L~~RE~r~0~~G
ESCAPE ~~~CHERR
6 6
EMT
£g5m~~
o ~
.1I0RD
MOV
002232 OO~FO
022632
;READ DISK ADDRESS
70
~iigh~RgtIr
CMP
;010 SECTOR INCREME_' PROPERLY
737 002166 00
~m
BEQ
2$
;YES, BRANCH NO, REPORT ERROR
022650
ERRDF
;DA DID NOT INCREMENT
6'e:M21~ERR4
TRAP
i$ RCOD
A8a38~
.IIORD
8!1g5~
.WORD
o
~6~
o 656
.IIORD
022660
2$:
EHDSEG
;'lEBD OF SEGMENTI'
10000$:
o0~r60
!60 104005
EMT
CSESEG
~o
ENDTST
,**END OF TEST**
L10032:
0~~66~
o 662 104001
EMT
CSETST

~~n

~~U

8~m~

8nn~

88
g g
°r
'II! 8~~d8 b838l8

U8j02~T
8 b838!8
11
:1 &nm °r8
1

III

'tIild

1~1! 8
1~d

gHm

SEQ 0061

ASSEMBLY ROUTINES
MACYll 30A(1052) 22-NOY-78 15:35 PACE 1-32
CZRLBB.Pl1
22-NOV-78 15:28
**TEST 6** - FORCE HEADER MOT FOUND WITH WRITE
.5BTTL ··TEST 6*· - FORCE HEADER MOT FOOND ~IrH WRITE
BGR1S1
,**S1ART OF TEST**

SEQ 0062

·~!tl~********************.** •• **** •• ***************** a****.**.***
;~ORCE HEADER NOT FOUND ERROR TO OCCUR. THIS IS DORE
;BY SETTING SECTOR 40 OF THE RLDA AND ISSUIIG A
;WRITE. SECTOR 40 DOES NOT EXIST OM THE RLOt PACK
§i~~~EFORE HDR NT FOUND SHOULD SET.

;i**************************************************** **_.****.**

004737

JSR
CKERFG
EMf
.WORD
BCI/SEG
EMf

021356

b8m~
104004

3 l 020456
8833
004sh 021276
A838U

gg~l~g
8lHH gg~H~
112000 002160

mn~

004537
104006
022737
001404

020214
112000

1$:
002160

a834~~

8H~n

MOY
MOY
HOV
JSR
WRITE
JSR
ESCAPE
EMT
.IIORD
MOY
BIC
CMP
BEQ
JSR
CKLOOP
EMT
CMP
BEQ
ERRDF
TRAP
.IIORD
.1I0RD
.1I0RD

PC,HDHOME

Eifim-.
C$BSEG

;InSURE NOT TO FIID HEADER BY
;SETTING SECTOR 40 OF CYL. ADDR.
;1I0RD COUIIT

SET.
RS,CHERR
C$CLPl
~BIT15IBIT12IBITI0,TMPO

~t~EMI0'ERRO
UK
CODE

2$:
EIIDSEG
10000$: EMT
EIIOTST

104005

,HEADS OVER TRACK 0
;HEADS GO HOME OKAY

C$ESEG

,WHEII FORCED

;**EIID OF TEST**

ASSEMBLY ROUTINES
MACYll 30A(1052) 22-NOV-78 15:35 PAGE 1-33
CZRLBB.Pl1
22-HOV-78 15:28
**TEST 6** - FORCE HEADER NOT FOUND IIITH WRITE
LI0033:
104001
EMT
C$ETST
.SBTTL ··TEST 7·· - FORCE HEADER HOT FOUND WITH WRITE INTERRUPT
BGNTST
;·-START OF TEST**
STARS
•• *******************************.********************.***.**._.*
;fEST THAT HEADER NOT FOUnD ERROR WILL GENERATE AN INTERRUPT
JON OCCURANCE. HEADER NOT FOUHD WILL BE FORCED BY SETTING
;SECTOR 40 OF RLD! AND ISSUEING A WRITE

~!ta~***************************************.********* *********.*

00·\737
104032
000160

JSR

021356

~~fRFG
.WORD
BGNSEG
EMT
SETPRI
MOV

104004
000000

8m~3

~~~

157164

MOV

mrH mH~

~g~

020456
021276

PC,HDHOME
CSEXIT
Ll0034-.
C$aSEG
tPRIOO
EPRIOO,RO

I~~~n

t4BUOF.,§RRLLDaAA

J-l,~RLMP

~~¥TEIIN¥~,LDFUNC
R5,WTCRDY

JSR
CKLODP
EMT
SETPRJ
MOV
EM1
TST

000340
002144

BNE

2$:

ERROF
TRAP
.IIORD
.WORD
.WORD
ESCAPE
EMT
.lIORD

;HEADS OVER TRACK 0
;HEADS GO HOME OKAY
;~\START

OF SECMENTtt

;CLEAR INTERRUPT OCCURANCE FLAG
;INSURE NOT TO FIND HEADER BY
40 OF CYL. lDDR.

$~~~~I~gO~¥CTOR

;LOAD THE FUHCTIOH IN NEXT WORD

$=~liEFOR CONTROLLER READY

C~~~~l

ftpRI07,RO
ESSPRI
INTFLG

;010 INTERRUPT OCCUR
;YES OKAY
;NO INTERRUPT FROM OPI

;CHECK FOR FL:LOE, ELSE EXIT SEG

SEQ 0063

ASSEMBLY ROUTINES
MACYl1 301(1052) 22-NOV-78 15:35 PACE 1-34
CZRLBB.Pll
22-NOV-78 15:28·
**TEST 7*. - FORCE HEIDER lOT FOUND NITR NRITE laTERRUPT
MyV
E·n ™Pf
RLiio
~M~
¥12IBITI
FOOID SET.
Hgtllg
BEQ
,Y , 01 lIUE
JSR
R5,CHERR
1$:
CK~OOP
020214
EM
C$CLPI
CMP
112000 002160
HlaDF
.,EMAo,ERRO
E co E
!Cft&D

Ij IIIltJ :::::; iilt}J

ft t~T=

lilill IlIII!

t 111111 Billa!
8 ~ I Uilh

11···"····,,·····,·..•

10000$:

118

ENDSEC
EMT

CSESEC

flSU1: EMT

,IIREI! FORCED
,"KID or SECMENT"
,·*END OF TEST·.

C$ETST

.SBUL ··TEST 8** - CHECK OPI TIME IIITH HDR NT FND
BGNTST
,**START OF TEST*SURS
;1:**************************************************** *._taat.tt_
, HECK OPI TIME IT SHOULD gE AROUID 200 MILLISECONDS CON UNIBOS)
'~HECK THIS BY TINlle OPI
I A FORCED REtDER lOT FOOND
§iSSUE IIR TE IIITH SECTOR 4 SET liTRE 0 Sit ADDRESS

023220
023220

II~ """

11g illIII i;;;;i
~ I g~~~~2

l!4

),tll************************************** •• **********. __ t*t ___ •

021356

104004

:{II slilil ~A~~gB 002254
III

.1181 00

3$:

! iiiiii ::::::

~~RRFG

PC,HDHOME

~=~RD

ff5ftl~-.

BCISEG
EMT
CLR'EC

C$BSEG
RO
L

~OV

SUVEC
MOV
MO'
N8',
M

~ iii III!JI 1IIIil

;HEIDS O'ER TRACK
,HEIDS GO HOME OKAY

;"START OF SEGMEIT"

B'i8

;CLEAR PRESEII!. IMTERRUP! VECTOR

clChC
B EC"TIMSRV,'340

I fS§ii6S,!}
VEC C-( p~
#3,-,SP

,SET INTR. VEC. IIITH ABORT IIAIT

SP)

ASSEMBLY ROUTINES
MACYll 30A(1052) 22-NOV-78 15:35 PAGE 1-35
CZRLBB.Pl1
22-NOV-78 15:28
**TEST 8** - CHECK OPI TIME WITH HDR NT FRD
EMT
ADD
Jlllt
000010
SKURI
MOV
EMT
CLR
;CLEAR INTERRUPT FLAG
MOV
Ji~i ~&D&~~SHDR NT FND
MOV
;IIORD COURT
MOV
,LOAD THE FUNCTION IN NEXT 1I0RD
020456

l{~l

3 b2~~~Z

il~JIi! 1IIIil
iiiiii
Il!ll!
8~~~~2 883~f~
111111

III 111111 IIIIII ;;;;;;
II

I I Ii Ilill! 88111~

Ar38~~
i ii 8111li
I ill llJil1

I11 8 t 8 sdd

11111

002170
000012
002170

S~~'11

002170

i~IDRnM

iiilli II;;;; ..".. ..",. ..,

8 1'0

;WAIT MAX MILLISECONDS
;SETUP FOR WORST CASE
;010 INTERRUPT OCCUR
,NO, REPORT ERROR
;GET TIME EXPIRED

CETTIM
EM!
MOV
R ,BDDlT
CLR
SUB
O.,BDDU
1$:
BMI
INC
BR
MOV
R ,BDDU
3$:
;CHECK THAT OPI TIME IS IIITHIN LIMITS

2$:
U
~O ~SAn4n4
~~~::~ 002170
34
~2 0

1m
1
Sl1462
4~i ~UUB 002254
1~4i

SEQ 0064

'lET:IIP~ ~=DlliBT

5$:

~H¥

SETPRI

i~~

I~RI8l

~J~pRf'RO
~$IMX,BDDAT

;IS IT WITHIN LIMITS
;No, REPORT ERROR
nUHIN LIMITS

ilili iii::;;;:::""

;OPI TIMIIG INCORRECT

CLRrEC
MOV

;CLEAR PRESENT VECTOR

BVEC

~V~~fRO

~~IYEC BiEC,iINTSRV,,340

,SET IN OLD VECTOR

SEQ 0065

ASSEMBLY ROUTINES
MACYll 30A(1052) 22-NOY-18 15:35 PAGE 1-36
CZRLBB.Pll
22-IIOV-78 15:28
**TEST 0** - CHECK OPI TIME WITH HDR NT FHD
HOV
34 -PPl
MOV
III §R
SP)
MOY
JE~ls~ P
HOY
EMT
~f~V
C
II , P
000010
ADD
EIIDSEG
;:tUIlO Of SEGMEIITU
10000$1
104005
EMT
C$ESEG

1¥ r

°l~~r ~nUi

i~~d
JIJ~ IIIII!
8n~U

iIt~~i!

bit
l~n
llu
14~8

8~~~~g
o 35 0

.SBTTL
BGIITS!

023522
023522

if~;~~·;~:*:;~;i~~;*;~~;~:*;::;;;;:·~;*:=i;;=*;~;;*;:;;*~:=~~;***

'IHAT TWO SECTORS ~AH BE SU~CESSFULL~ WRIITE.
W~ ~it¥
; WORD gOUNT OF ~ 9 W~~DS ON~ f~CT R +
WORf& T
BC AT
,SECTOR
THRU SE OR
AN' R Y HAT HE R A 0
~A DOUBLE INCREMENT EACH TIME.
TARS

;;***************************************************************

004737

021356

JSR
CKERFG
EMT
.WORD
CLR
CLR
BGNSEG
EMT

8 ~~J~ A8m~
ll~j °r
8n~l~ mm mm

u~~
t~~~

1:U

48~

gH~g8

EMT
CSETST
MTEST 9** - MULTIPLE SECTOR TRAMSFER ON WRITE
,*·START OF TEST**

STARS

023522

023522
526

,**EIID 0' TEST"

KNOTS;

LI003 :

104001

104004

Tm ill!!! n Amm
81m
00~r2

886

b~n

~m~~

004537

81~i~6

~ld

IS:

020456

iM 8~Ur
m2H 021276
114~6
o~r2i8~ ~O40~O
8
bJ o 36 2 000 4

MOV
MOV
ADD
MOV
MOV
JSR
WRITE
JSR
ESCAPE
EMT
.IIORD
815

PC,HDHOME

WiMl-.

CSBSEG
™PA,GBDAT
TMP fG OAT
GDDA 61RLDA

!~6~D@RlBA
-12~.,f!RLMP
R5,LDI'UIiC
~~~!iTCRDY

iam~!~

onR TRACK 0

:nm~ GO HOME OKAY

;CLEAR TEMP LOCATIONS
,"START OF SECMENT"
'gEl ~lH~RER
SSE DISK ADDRESS-SECTOR 0
,SET EXPECTED + 2
!~~~DBgguA¥~~E~¥oR+1 WORD
;LOAD THE FUNcnON III IIEXT IIORD
!~~liEFOR CONTROLLER READY?
;CHECK FOR FL:LOE, ELSE EXIT SEG

MACY11 30A(1052) 22-NOV-78 15:35 PAGE 1-37
ASSEMBLY ROUTINES
CZRLBB .Pll
22-1I0V-78 15:28
**TEST 9** - MULTIPLE SECTOR TRANSFER ON WRITE

004537

HIS 8o0~r34
248 000 4
6h ~04°10

,(,j

4~i 02~644
o~ gS2
1~ o 60

14i5 g°r66~
U~4
o 3666

,hI

023670
023672

020214

JSR
ESCAPE
EMT
.WORD
MOV
CMP
BEQ
ERRDF
TRAP
.WORD
.WORD
.1I0RD

SHiH
mm 00 166
001404
OO~170

a83381
011544

014410

lb 8~Un 8nn~ 886m

~~~

8 H8 104001

lIJi

023712

BGNTST

~!~

023712

15 0

0237r

1503

l~U ~li!U 104005

m
t~8~

~~~CHERR

ia55g~!;

;CHECK F6~H~E~L8~!L~L~~REi~~D~~G

E.OA BDOAf

;READ DISK ADDRESS

7.~EM22fERR4

;DISK ADDRESS NOT CORRECT

~~DAf,GOOAT

P RCOD

S~~s~I~~A~8RRE~~,C2~~8~t ERROR

EM22
ERR4

2$:

002160

BNE
ENDSEG
10000$:
EMT
EIIDTS'f
L10036:
EMT

1~8~

.SBUL

~6,TMPO

~WtNg~CTOR
,NO, GO BACK
;nEND OF SEGMENn,

CSESEG
; **END OF TEST**
eSETST
uTEST 10** - CHECK DIRECTION OF WRITE IIPR
;**START OF TEST**

STARS
;-**************************************************** **~********
,tERIFV THAT A WRITE IS WRITING NOT READING. WE WRITE A

g 023712

l~d
15~9

!~=g~NT&~T~~nEI~s"~¥~ism8w~0~R~fl(WfHnEHB3~§UfsAI=¥I~~:

;THIS IS DONE TO PROVE THAT THE MPR IS GOING THE RIGHT

g~p ~

1m
lUi
8
IH~

023i 6
023730

023730

§Hh
;;**************************************************************.
004737

021356

JSR
CKERFG
EMT
• WORD
BGNSEG
EMT

A8m~
104004

O~3732

00305&
023~42 glrS2
1 12~ 125 52

~7~g

SEQ 0066

ooo~o

2S:
3$:

MOV
MOV
MOV

PC,HDHOME

XIT •
037-

C$BSEG

1 8.,R2Ri

d52~2,(R2)+

;HEADS OVER TRACK 0
;HEADS GO HOME OKAY
;nSTART OF SEGMElITU
;WRITE BUFFER FOR WRITE OPERATION
;OIlE SECTOR'S WORTH
; WRITE BOFFER

SEQ 0067

ASSEMBLY ROUTINES
I!AClll 30A(1052) 22-1I0Y-18 15:35 PAGE 1-38
CZRLBB.Pll
**T£5T 10** - CHECK DIRECTIOII OF IIRITE RPR
22-IIOY-78 15:28
DEC
Ja~E~o BACK
BilE
CLR
'~81g g35~TADDRESS
MOY
805~n
LDA
-b~8'fi~GkMP
n~~g~·
ADDRfSS
JM~VR
6 OAD THE FUNCTIOII IIi IIEXT IIORD
tL6'UIIC
IIRITE
E
;IIXlf
,SR"i DtTAFIBISH
021276
R5~IITCRDY
SCAPE
~~H K ~OR JLleOE, ELSE EXIT SEG
R
MT
b04010
~bSCAPE
• IIORD
00076
1 OOS- •
004537 020214
JSR
,CHECK F6~HJf~L81~L~L~~RElr~0~~G
1540 gl~81~
ESCAPE ~~~CHERR
EMT
~3~8~t~~
~8U
.IIORD
1111 0~4020
MOY
S8UF,R2
702 003052
s~~lc~Pl~g ~G5&~ BUFFER
o 4024 o 701
000200
HOY
128.,Rl
,USTART OF SEGIIEIITU
BGNSEG
g~:m 104004
EIIT
C$BSEG
IH~
002166
IIOY
154
iDATA SHOULD BE '~5i~2
lA~52i~~iDDAT
MOV
4S:
J~OA¥ DATA INTO
0
032
002170
CliP
o h,B DIT
o iU~
MS,TC8UUUE
BEQ
5$
550
052
1406
55}
MOV
010237 002162
R2,TM~1 ~LOAO MEMORY LOCATION 01" FAILURE
~~ 8~m3
ERROF
hd~08~ RR8
TRAP

mm mm

5jl
Ill!
~3

nun
IIIUl
g jm ~ibn

1!'~ 84SU
lsd
8

SEQ 0068

A838U

°H

°r 88lIn~ smu

I~~~ 8

8n b833t3
82i866 8UM
!~~ 8f
d~
b838 !
l'U n4hl 88~j~

:mg
.IIORO

ESCAPE
.IIORD
TST
6S:
DEC
BilE
EHDSEG
10001$:
EMT
ENDSEG
10000S:
EMT

5S:

02io~0

1558
1559
1560

02hoo

001 5

4184 104005
l~II o8!n8~
o
o 4104
4

104005

024 06

104001

I~~l 8~~i8~

Ih4

1565
1566

EMT

.SBTTL
BGNTST

SaG
C ESCAPE
001$-.
R2)+

,CHECK FOR FL:LOE, ELSE EXIT SEC
;IIEXTI

;DOIIE?
;110,
GO BACK
;nEIiD Of SEGIIEIITU

C$ESEG

;nEIlD OF SEGIIENTU

C$ESEG

,"·END OF TEST**
CSETST
**TEST 11** - CHECK FULL RLBA INCREMEIIT
; ""START OF TEST*"

aBUt: EMT

024110

~~a3

ASSEMBLY ROUTINES
NACYll 30A(1052) 22-NOV-78 15:35 PAGE 1-39
ClRLBB.PIl
22-NOY-78 15:28
**TES1 11** - CHECK FULL PLBA INCREMENT
STARS
;.***************************************************************
;fEST THAT THE RL8A WILL INCREIIENT L WE DO NOT DO A FULL 16
;BIT INCREMENT WE CHECK THAT EACH uIT IIILL TOGGLE 0 TO 1
'AND 1 TO O. WE DO CHECK ALL BITS EVEN IF ALL MEMORY
SIS NOT AVAILABLE. (WE IGNORE HON-EXISTANT MEMORY ERRORS).
§WE USE THE SAME DISK ADDRESS (RAnDOM) AND A 1 WORD TRANSFER.

024110

024110
024110

0241~4

;!t~~.****************************.******************* ***********

004737

021356

JSR
CKERFG
EMf
.WORD

PC,HDHOME
CSEXIT
LI0040-.

;HEADS OVER TRACK 0
;HEADS GO HOME OKAY

002162

CLR
BGNSEG
EMf

fMPl

,CLEAR LOCATION
;"START OF SEGHENT\%

MOY
CLR
MOV
JSR
WRITE
JSR
ESCAPE
EMT
.WORD
MOV
ADD
HOV
CMP
BEQ
ERRDF
TRAP
.1I0RD
• WORD
.WORD
ESCAPE
EMT
• IIORD
lSL
BCS
BIS
BR

Hiit6f RLMP
'MP1,@RLBA
R5,LDFUNC

g~~h~ A86~H
024126

005037
104004

8W
U
024 142 8A~ZP
024146
024154

8~lm

sHm
0~4~'2
82:28g
024214
024222
024224
024224
024126
30

8~~ H

024 34
024 36

156106
156070

020456
883ijn
004511 021276

8~3137

01~~~1

023737
001404

g8~A8~
00223
00216

002166

88~1~8

4$:

002170

b8a3n

81~m

5$:

~gm8

8m~~ Y8t~n
g~H~~ 8~oH1
024256

1~F~6

013'177 ~d62

002162
000002

002162
6$:

C$BSEG

~~~WTCRDY

ta~g~~~:
T~p~6mAT

~D~h~Gg~IT

¥U~~~g~ERR4

~e~k6 g~~K(i~D~~~~

;BUS ADDRESS
;LOAD THE FUNCTION IN NEXT WORD
;WAIT FOR WRITE TO FINISH
;CHECK FOR FL:LOE, ELSE EXIT SEG
,SET UP EXPECTED RLBA
;PREVIOUS RLBA+2
S~~aDI¥LB~DATED PROPERLV?
;YES, CONTINUE
,BA INCREMENT ERROR

EM30
ERR4
SEC
CSESCAPE
10000S- •

;CHECK FOR FL:LOE, ELSE EXIT SEG

TMP!

;NEXT PATTERN TO TEST RLBA
;DONE?

ITl ,TMPl

~~8'c~~fKI=E~J~ 1

; END TEST

SEQ 0069

ASSEMBLY ROUTINES
MACYll 30A(1052) 22-IIOY-78 15:35 PAGE 1-40
CZRLBB.Pll
22-NOV-78 15:28
**T£5T 11** - CHECK FULL RLBA IMCREMEIIT

}gi0

8o P6t

-!II o t8
4

i i!

EIiDSEG
1"£"0 OF SEGMENT*'
10000$:
EMT
CSESEG
;**EIIO OF TEST**
EN8TST
L1 040:
EMT
C$ETST
.SBTTL **T£5T 12** - BA BIT 16 IIICREMENT
,uSTART OF TEST**
BGlITST
STARS
;~************************.********.****************** * •••• *.** ••
SR~~~~wI¥AT 9~7~lTAA~ W~~bEI~C~~~ECTRD =~~¥IL~EL~A~ THE
iCHECK BA BIT 16 TO SE~, BA 17 TO S¥AY A AND TH~ RLBA
ITO GO TO ZERO

104005
104001

024262
024262

dn
ITtig ~ 8~1~~i
024262

~J!~~*****.****************************************.** ******.***.

004737

JSR
CKERfG
EMT
• II/ORO
BGNSEG
EMT

021356

It~l 8 " 16 b83na
o0~4308

104004

o0~4~02
02

777

iiil 8 °F8AUI~ hliJg
~11~

177716

021216

8~m~

020000

004531

020214

1111
iU

ilUil l

o4
~ ~

o 4W
042

2$:

4010

8rr
dha A8m~
8~tm

155734

°H~6~ 155726

fib g lill~ shg ~
12T 8 r b8
31

SEQ 0070

032731
001004

000020

002226
3$:
002226

MOV
CLR
MOV
CLR
JSR
WRITE
JSR
ESCAPE
EMT
• WORD
BIT
BNE
JSR
ESCAPE
EMT
.WORD
BIT
BNE

~8346~
o81~lr
~ O~ 012g~

.!IIORD
.WORD

PC,HDHOME
EXIT
Ci
L 0041- •
C$BSEC
n~~176, @RLBA

rt~fRLMP

~, DFUNC

~~~IITCRDY

CgESCAPE
1 OOOt •
nXM, .cs
~~~CHERR

CaESCAPE
1 000$-.
A16 ,E.CS

~0.~EM31,ERRO

gE CODE
kM31

JHEADS OYER TRACK 0
HEADS GO HOME OKAY
,"START OF SEGMERT"
lSET MAX BA T¥ ,_C. 8&16
illlE DO.'Y IIIAR
0 LOAD AMY EA
;OME WORD TRANSFER
;LOAD THE FUNCTION IN NEXT 1I0RD
,WAIT FOR IIRITE TO FINISH
;CHECK FOR FLILOE, E~SE EXIT SEC
;NON-EXISTA"T MEMORY ERROR?
,YES, COIiTINUE
;CHECK F6~HJf~L~~!L~L~~REf¥¥0~~c
iDID BU6 SET?
,YES, CORTIIIU!
iBA 16 DID NOT INCREMENT

MACY11 30A( 1 052) 22-NOY-78 15:35 PAGE 1-41
ASSEMBLY ROUTINES
**TEST 12** - BA BIT 16 INCREMENT
22-NOV-1B 15:28
CZRLBB.Pll
ERRO
.1I0RD
024402 014244
1m
4$:
CKLOOP
16~} g~tlg~ 104006
C$CLPl
EMT
1~5
iDID BA17 SET ALSO?
BIT
032131 000040 002226
n A17 ,E.CS
0~4406
;NO, GOOD CONTINUE
BEQ
U~I o 4414 001404
165
ERROr
;BA 11 GOT CARRIED AWAY
1656
U.~EM32,ERRO
TRAP
4416
HE CODE
416 a04462
.IIORD
.1ol0RD
EI>I32
o
0
ERRO
.WORD
824~ ~ 01P
01 244
5$:
CKLOOP
g~lm 104006
EMT
CSCLP1
;CHECK THAT BA15-BAO IS CLEAR
CLR
GDDAT
660
00~9n
MOV
002170
g BA,BDDAT
SUABABhRO?
BEQ
8A1404
ERRDF
iBA SHOULD BE ZERO
1m g
TRAP
HE CODE
.WORD
m:~~ o83ai~
.1I0RD
EM33
024450
ERR4
.WORD
024452
6$:
024454
1666
ENDSEG
;UEHD OF SEGMENTU
1667 O~4t54
10000$:
o
EMT
C$ESEG
104005
ERDTST
,"·END OF TEST·*
1m g~m:
L10041:
o 4456
EMT
C$ETST
024456 104001
.SBTTL "*TEST 13·" - BA BIT 17 INCREMENT
671
; **START OF TEST**
BGIITST
024460
STARS
1974 024460

°rIT OOop

1111
t~5~

il l

mUg

8rn~
144~

lL~EM33'ERR4

8HM

flU

16H
1~~~
1~ ~
1618
1619
1HA
168~

!~~~~~*;~:;*ij:*:i;*i;*;i~~*i:~:~:~:;:**:~*:i~~*~~~~*;:~**********
iRLBA IIITH 1 7776 AND 8A 1~ SET§ WE WILLISSUE A ONE NORD
;WRITE. WE THEN CHECK BAI TO E1, 8116 TO CLEAR AND

- BAO

~~:ftg
TO CLEAR.
;;***************************************************************

024460

U!4 8°fl~1~2°
4

004731

0244 4 b8 0162
l~i~ 024476

1686

4032

021356

JSR
CKERFG
EMf
.WORD
BGNSEG

PC,HDHONE
EXIT
Ci
L 0042-.

,HEADS OVER TRACK 0
;HEADS GO HOME OKAY
;%%START OF SEGMENU\

SEQ 0011

ASSEMBLY ROUTIBES
MlCYU 301(1052 ) 22-IIOY-78 15:35 PAGE 1-42
CZRLBB.Pll
**TEST 13·· - BA BIT 17 IIiCREMENT
22-IIOY-78 15:28
024416 104004
EMT
C$BSEG

h777n nuu·
lll~ 8
1;9q
~
jlr
iJd
11m!
o 45g~

t~o

2$:

~ 8~~g

531

021276

8g 4552

020000

'Iil un uuu
I ~~
'1,8Iii 8un A838H
°f554

004537

8~U~~ 8~nu

fji

000040

~~~APE

002226

020214

3$:
002226

~f3461

HUH di

l~U

ifti

.II!
l~ i

o0~46g4
46 4

104006

8~U~~

mlU 000020 002226

g2UU

~g4462

l~nt
8~U~~
8~U2g

5$:

104006

02l63~

~IB 11'644
!1l

,lh~l

4$:

00~9~1

8b140

mm 002170

iil~I~LHP

UESCAPE
ooo~UXM, .Cs

ERRDF
TRAP

+I·~EMH'ERRO
E CODE

CI{LOOP
EMT
BIT
BEQ
ERRDF
TRAP
.1i0RD
:=SI8
CK~OOP

Ell

JSII MAX Bi TR ~MC. BA16

• L S
,8. BA16
WORD JRANSFER

,LOAD THE FONCTIOI III IIEXT WORD

5, DFUIIC

R5~IiTCRDY

BilE

CLR
MOV
BEQ
ERRDF
TRAP
.WORD
.WORD
.WORD

8 1 ~8r6~g
8 ~m 011 eb
41

IUIl7blftLBA

d¥RD
BME
JSR
ESCAPE
EMT
• WORD
BIT

::0:8
oliSRD

llil

HOV
HOY
HOV
CLR
JSR
IiRITE
JSR

~~fCHERR
C8~SCAPE

00$- •
A17 ,E.CS

SEQ 0072

~~A~~KF~~RW~l!foi~ ~l~lS~XIT SEC
;NON-EXISTART MEMORY ERROR?
;YES, COIITUUE
;CHECK F6~H~f~L8~!L~L~~RE~~~0~fG

Jm,B~~~nUI!
;HA 17 DID 1I0T SET

1M33
ERR
C$CLPI
~~A16,E. CS
J4.~EM35,ERRO
~E CODE

;010 BA16 SET ALSO?
;HO, GOOD CONTINOE
,BA 16 DIDN'T KNOW WHEN TO QUIT.

M35
RRO
C$CLPI
GDDAT
E.BA,HDDAT

tt~EM36'ERR4
HE
CODE

,CHECK THAT BA1S-BAO IS CLEAR
JUAR,BhRO?
;BA SHOULD BE ZERO

EM36
ERR4

6$:

0204654
024654

EMDSEG

;\tEND OF SEGMENT'\

ASSEMBLY ROUTINES
MACY11 30A(1052) 22-NOV-78 15:35 PAGE 1-43
**TEST 13** - BA BIT 17 INCREMENT
CZRLBB.Pl1
22-NOV-78 15:28
10000$:
024654
C$ESEG
EMT
024654 104005
ENDTS!
;**END OF TEST**
824656
LI0042:
EMT
C$ETST
o~m~ 104001
.SBTTL **TEST 14** - TEST READ NPR INTEGRITY
BGNTST
; "START OF TESTO'
024660
1730

SEQ 0073

1~U

I!U

iH~
1m
024660
17~3

i~d

1739
1740

1H1 °r
1m
IH~
174

~!ta§************************************************************

;fHECK THAT NPR WILL NOT INTERFERE WITH THE OPERATION OF THE
§IiE SETUP LOCATION 4 TO HANDLE THE TRAP IF IT HAPPENS
TARS

024660

o 4664
66O
o 4672
024674
024676
024676

024700
024~OO
0~4 04
o 4710

;;***************************************************************

004731
104032
000132
104004

Til

1~5~

l~~J
1 54

005~37

4fO
44

44f60
64
oO~ ~ 770
64

g~l~H
~

000003
000010

0045 7

mZgg

OO~H~

O~ 05

020456
021276
002132

~04°10

1~U o 74 og~g3~ 020214
1756 O~ 776
1m
1758

~8mg
og ~88j
500
025006

IS:

81~~~6 8~0~~8
01 74~ 00~132

114

1~48

JSR
CKERFG
EMT
.WORD
SGNSEG
EMT

021356

°H74~
~m A629~6
.Ill W
iHf oo~ 17~g U~~!! i H~~
1747

UNIBUS

005737

002142

155304
155276

SETVEC
MOV
MOV
HOV
MOV
EMT
ADD
CLR
MOY
CLR
MOY
JSR
READ
JSR
CLRVEC
MOV
EMT
ESCAPE
EMT
.WORD
JSR
ESCAPE
EMT
.WORD
TST

PC,HDHOME
Ci EXIT
L
0043-.

;HEADS OVER TRACK 0
;HEADS GO HOME OKAY
;nSTART OF SEGMENTU

C$BSEG
E~~gE~,~~RPHAN,#340

ITRP~At-ISP)
RRVEC~-( P)

~3§V~~ )
SP
,fOf
RP LG
UF1
RLD @RLBA

5!(ftm~

~~~ngRDY

ERRVEC,RO
CVEC
Ci
S G
C~ESCAPE
1 OOOi-'
R ~CH RR
SE

ia5~li~~~

TRPFLG

;SET UP YECTOR

;CLEAR TRAP PLAY
;LOAD BA
;LOAD DA
~~E FUNCTION IN NEXT WORD

sr81B

~CLEAR OUT VECTOR
,CHECK FOR FL:LOE, ELSE EXIT SEG
;CHECK F6~H~t~L8~;L~L~~RE~~~0~~G
;010 TRAP OCCUR?

MACYll 30A(1052) 2:"'IOV-78 15135 PACE 1-44
ASSEMBLY ROUTINES
22-NOV-78 15:28
**TE~. 14** - TEST READ MPR INTEGRITY
CZRLBB.Pll
~EQ
001404
58

II!!I!
g ~i i 8nU

III m8H

A8ml

50 6

104001

l!j 80~~8~~

II!!

till

lUi

~mF
.WOill)

7$:

10000$!

104005

emu:
.SB'!'TL
BCNTST

025030
025030

CODE

:~8~b

EM5~
ERR

ENDSEC
EMf

C$ESEC

,**EMD OF TEST*·
EMT
C$ETST
**'tEST 15** - READ FUNCTION
'**START OF TEST*·

.. ******************************************************.ft.***

;;**************************************************** •• *.*******

004737

JSR
CKERFG
EMT

021356

g~~8U 104004
025 70

0041 50

nuu ihbg3

8!~08t gURU

~ dn

025114

&IRS! go

; HECK O~ THf READ FURCTION.
WILL
A READ
,HEADEf 0 F ND OUT WHER ~E Aft A~D T • S DE
FUL SECTOR READ, WAIT OR
AD AID CHECK FOR
§ANY ERRORS
TARS

025030

lh~ ~U~i~

i~~§,O~AINr ERROR

;'t&ND OF SEGMENT"

STtll~

~8U A0403t
0006

1~E

8~~m
Ill!
g
l\i

IlII
1794

Jt~EM52'ERRO

SEQ 0074

03052
020456
021276

002160
155160
155146

1$:

004537

Cle~F
L
00 4- •

BGI/SEC
EMT
MOV

C$BSEG

~&e

MOY
JSR
READ
JSR
ESClPE
EMT
.VORD
JSR
DEC
BilE

A8m~
020214

l~n
005~~7 002160
7n mm 001
4

PC,HDHOME

• 1I0RD

rOOO.,TMPO

!t~t~~RLMP
BUF,I BA

R5,LDFUIIC
~~~VTCRDY

n8g~~!~
R5,CHERR

IHEADS OYER TRACK 0
;HEADS GO HOME OKAY
;USTART OF SECHEIITU

s~~~Dvg~~I(LI~8¥~SS

ISET 8US ADDRESS
,LOAD THE rUDCTIOI III JUT IIORD
~:It¥ FOR CO.TROLLER READY
rOR
I'LILOE, ELSE EXIT SEC
'CHECK
;CHECK CNTLR FOR ERRORS

TMi'C
IS

MACY11 30A(1052) 22-NOY-78 15:35 PACE 1-45
15:28
·-TEST 15·· - READ FUDCTION
ENDSEG
10000S: EMT
C$ESEG

fm~~:

.S8TTL
BGNTST

004737
104032
000106

021356

155060
155046

000340
002144
104462
000023
0607
o01 4244
104006

IS:

SEQ 0075
SEGMEIITU

,**END OF TEST.·
EMT
CSETST
*·TEST 16** - READ FUNCTION INTERRUPT
;·-START OF TEST>·

JSR
PC,HDHOHE
CKERFG
EMT
CSEXIT
.1I0RD
LI0045-.
BGIiSEG
EMT
CLR
CLR
MOV
HOV
SETPRI !PRIOO
HOV
PRIOO,RO
EMT
SSPRI
JSR
R5,LDFUNC
READ I INTEN
JSR
R5,WTCRDY
CKLOOP
EMT
CSCLPl
SETPRI !PRI07
MOV
PRI07,RO
EMT
$SPRI
1ST
INTFLG
RNE
1$
ERRDF
19 •• EM4 I.ERRO
TRAP
HEKCODo
.WORD
.1I0RD
EM4
.WORD
ERRO
CKLOOP
EMT
CSCLPI

;HEADS OVER TRACK 0
,HEADS GO HOME O~AY
,t\START OF SEGMEHT~%
;CLEAR INTERRUPT INDICATOR

$~~t 8~S~oh8D~~6~T

;SET UP BUS ADDRESS
,PRIORITY TO 0

;PRIORITY TO 7
,DID INTERRUPT OCCUR?
;YES-BRANCH NO-REPORT
;READ DID NOT INTERRUPT
;CHECK FOR LOOP

ASSEMBLY ROUTINES
MACYll 30A(1052) 22-NOY-18 15:35 PAGE 1-46
CZRLBB.Pll
22-HOY-18 15:28
**T£ST 16*· - READ rUBCTIOK INTERRUPT

1U
: II

025246

004537

ilIlll

104005

JSR
ERDSEG
, 10000$: EMT

020214

181.
1845 025256
18 16
18 .. 7

IIII
iln
:'!I
Ii:

.S8TTL
BGNTST
STARS

025256

,NE CHECK TO S~E IF THE WRli',n P1ITiRI HfS CRAN¥ER.

!~tvr~~ =~DI~¥E~ 03RA~t~'ERN INEMSM~RYSf~IlgR 4YE~E IS

;ONE CHANCE THAT THE DISK COULD HI'i OO~
l~nEc~f~g~B U~ARE~~R~Hi~KEiU~RBOrYE AGAIN.

PAT¥E,u l - AFTER

g~~~~~ 004731
02~~7~ bmU

g~~nt 104004

1 65

&~~~n

021356

0 53~6

002160

00 05
00 20
00 160

1$:
2$:

i 1 8 ~3~~ nun nUd UUii
1547 2

00 55i3 0
3 4

020456

883S~1
U~~ 0gl~in
0045h 021216
1M
~po
104010
p~

l~~i

0 53~0
0 5

T"S

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

025256

i 8 ~If~
b~~t~i
tlii ~ i ~~ UhU A

13 7 3
1a8 4
5
876

THAT THE RE1¥ FUICTIOB ACTUALLY READS (INTO MEMORY)

~rER~IkLT~R~~ERtAPAt~I'Npl'TO =~MOf¥ l=DT~RE=EA~SUE

856

18~;

CSESEG

'1************************************************-**************

;~HECK

85~

1 6'1

;CHECK C~TLR FOR ERRORS
,\'END OF SEGMENTt\

;·*END OF TEST**
C$ETST
··TEST 17*· - CHECK READ HPR DIRECTION
,**START OF TEST**

nSbU: EMT

104001

R5,CHERR

SEQ 0016

000054

JSR
CKERFG
EMT
• IIORD
BGNSEG
EMT
NOV
CLR

PC,HDHONE

fiH~U- .
,\tSTART OF SEGMENT"

=8¥
MOY

DEC
BilE
CLR
MaY
MOV
MOV
JSR
READ
JSR
ESCAPE
EMT
.1I0RD

ASSEMBLY ROUTINES
MACY11 30A(1052) 22-NOY-18 15:35 PAGE 1-47
··TEST 17** - CHECK READ IIPR DIRECTION
CZRLSS.Pll
22-NOY-78 15:28
004531 020214
JSR
;CHECK F6~Hif~L8~;L~L~~RE~r~0~~G
m~6a
ESCAPE ~~fCHERR
EMT
b04010
0~54g0
~~fi~~~~~
o 54 2 00044
.WORD
1111 025404
;SET TO START COMPARIMG DATA
MOY
1S 5
UF ,R2
3052
4$:
;010 DATA CHANGE?
0~~702 08
o 2160
CMP
~2)+,TMPO
0~5410
188~
o 5414
SNE
;YES, CHECK FOR END
18S

1890

18~~ mu~

005137
001005

002162

18~4

°r

88~~~~
000
2

002162
002160

g025442
~M

mm
010646

139

1li9~
97
18~8

Jll

414
g ~~3~
0~54~6

025444
025446

mi 88!~::~
Ja

5$:

014636

025450

104005
104001

llU

1~g~

1 09

025452
025452

19p

025452

1~08

l~n
m~
l~ll

1915

lUi

191
1m

004737

Oh466
025410
025410

104004

0~54F
54 6

mm Am~~ 154540

m; o

'ch///'

lo.~EM5~ERR9

;READ DID NOT MODIFY MEMORY

28E COD
EM5
ERR9

i;**************************************************** ***********

025452

m~ g2~m

im
1$

~D#Tts¥I8~'~NgH~r~~~ CHECK
S~ND-REPORT 1ST-TRY AGAIN
HIIC PASS COUNT
!g8M~bI~'NIG~~~TERN

;~P1

6$:
ERDSEG
;'lUND OF SEGMENU\
10000$:
C$ESEG
EMT
ERDTST
i*·END OF TEST**
L10046:
C$ETST
EMT
.SBTTL **TEST 18** - PROPER INCREMENT OF RLBA ON READ
BGNTST
;*"START OF TEST**
STARS
•• ***************************************************************
!tHECK THAT THE RLBA WILL INCREMENT WITH THE READ
]rHE RLBA SHOULD CONTAIN "BUF +256." AFTER A FULL SECTOR
§READ.
TARS

19~

~m
o 5450

TST
SNE
INC
COM
DR
ERROF
TRAP
.NORD
.WORD
.WORD

021356

JSR
CKERFG
EMT
.IIORD
BGNSEG
EMT
CLR
HOV

PC,HDHOME

£l5Hk
C$BSEG
RLDA
BUF,@RLBA
W

;HEADS OVER TRACK 0
;HEADS GO HOME OKAY
;nSTART [IF SEGMENT%%
; SET UP DISK ADDRESS
;SET UP BUS ADDRESS

SEQ 0077

ASSEMBLY ROUTINES
MACY11 30A(1052) 22-80Y-78 15:35 PACE 1-48
CZRL88.Pll
22-IIOV-78 15: 28
**TEST 18** - PROPER IIICREMEliT or AL8A 011 READ
MOY
"DID
r1i~GQIILMP
E~TED BUS ADDRESS
, ~ M COCIT
V
MB
!g6., Dh
A D
;i .TER
A
R5,LDrUIiC
,LOAD
THE rUBCTIO. II .EXT 1I0RD
020456
SR
rOR C TR LLER READY
JSEAD
021276
~~"TCRDY
;cHlcK FOR ~fIL8E, ELSE EXIT SEC
ISC1PE
MT
.IIORD
~8n~t!~
JSR
004537 020214
~I~CHERR
,CHECK F~CHJfK
R IL ~.YLI
E, LSrRR EI'ROR~
YS C
~SCAPE
MY
~ I8~A!~
.IIORD
'RLBt'RC ~RRMEMY
PRE~ERJ lDDRESS
~2~
fiilBtf!HBAIT
;'GfAD
0 "BA'
RO ERLY?
88~m
BEQ
;YES, COIlTIIUE
1$
;BA DID nOT INCREMEIY PROPERLY
JRRDF

piI~

II I
IIII

II,Ji
II~

8n~U

IIIII nun

fC11¥

Smlg

CAP

uun tfUn

•• 11SRD
R8
.11 R

025602

IIIIII

025606

III!
Ihl

111111 bURU

025606
025606

ld~
35~

lUlU

l&~~
U5

unn BUill nnu

SEQ 0078

nun

liu~~gfERR4
EU •

1$:

ERDSEC
;"END OF SECMERT"
10000$:
EMT
C$ESEC
ENDTST
,**EID OF TEST**
LI0047:
C$ETS!
EMT
.SBUL **TEST 19** - PROPER IICREMEIT OF RLDA OU READ
8CIITST
;**STARY OF YEST**

104005
104001

ST~Rt

* a*_a**** •••••• ****.****.*.********* •• _****** •• *********_.*a_
J HECK
TRAT THE RLDA INCREMERTS BI RNE AFTER A
J~

g~LIIRE~IOCER~A~' 'fiE'I'~~U~E:DR lDE:~'IRTO FIUD
I¥RE READ TRE RLD1 SHOULD BE RLDA (START) + 1
TARS

1,********************************************·******* *** •• * •••••

004737

021356

JSR
CKERFC
EMT
• 1I0RD
BCNSEC
EMT

~g3~U

8nU~ 104004

PC,HDHOME
CiEX~T
L
00 0- •

C$BSEC

;READS OYER TRACK 0
;HEADS CD HOME OKAY
;"START OF SECMENT"

ASSEM8LY ROUTINES
MACYl1 30A(1052) 22-NOY-78 15:35 PACE 1-49
CZRLBB.Pll
22-NOV-7B 15:28
**TEST 19** - PROPER INCREMENT OF RLDA ON READ

~hV

154406
154376
154364

INC
MOV
MOY
JSR
READ
JSR
ESCAPE
EMT
.1I0RD
JSR
ESCAPE
EMT
• 1I0RD
MOV
CMP
BEQ
ERRDF
TRAP
.1I0RD
• WORD
.1I0RD

g8~H8

5BBU ,@RLDA
CDDlT
1l-128. L ARLMP
,BUF,@HLBl
R5,LDFUIIC
R5~IITCRDY

nmt!~

,SETUP DISK ADDRESS
;CRIATE EXPECTED SECTOR

SI~TgpcgH~TADDRESS

;LOAD THE FUNCTION 1M REXT IIORD

~Uit~
FOR CONTROLLER R ADY
,CHECK FOR FL:LOE, ELSE EXIT SEC

~~~CHERR

C&ESCAPE
1 000$-•

~DBh~RBAIT

;READ ~~SK.ADBRE~S

$VI~,SBRI~~HI ~~,M~=~o&~O~~lh~

nE~~~ZfERR4

;DISK ADDRESS DID NOT INCREMENT

EM7
ERR4

1$:
10000$:

Ug~~~:
.SBUL
BCNTST

ENDSEC
EMT

,"END OF SECMENT"
C$ESEC

;**END OF TEST**

EMT
C$ETST
**TEST 20** - FORCE HEADER NOT FOOND NITH READ
;·*START OF TEST**

JSR
CKERFC
EMT
_IIIORD
BGNSEC

PC,HDHOME

EU5n-_

;HEADS OVER TRACK 0
;HEADS CO HOME OKAY
;"START OF SECMENT\\

SEQ 0079

ASSEMBLY ROUTINES
MACY11 301(1052) 22-NOY-78 15:35 PAGE 1-50
CZRLBB.Pll
22-IIOV-78 15:28
**TEST 20** - FORCE HEADER NOT FOUND WITH READ
~~8~

025756

004

~ 005

104004
0811~~~~

EMT
00~050

MOV
MOV
MOV
JSR
READ
JSR
ESCAPE
EMT
• II0RD
MOV
BIC
CMP
BEQ
ERRDF

154~60

h77 ~979~~ 1~22~g'

88~

020456
021276

2008
2009

~gil
b

m~ g~u~~

~8t~ g~6042

! ~l 8~!81l
5

~ ~

~ill

;cHlcK FOR FL:LOE, ELSE EXIT SEG

}HEADER HOT FOUND NOULD NOT SET

;

ENDSEG
10000$: EMT

aSnI: EMT
• SBTTL
BGNTST

104001

~030

;"END OF SEGMENTt\
CSESEG

}**END OF TEST**

C$ETST
**T&ST 21** - FORCE HEADER NOT FOUND WITH READ INTERRUPT
,··START OF TEST**

STARS
-1***************************************************************
$TEST THAI HEADER NOT FOUND ERROR WILL GENERATE AN INTERRUPT
}ON OCCUR NCE. HEIDER NOT FOUND WILL BE FORCED BY SETTING
iSECTOR 40 OF RLDA AND ISSUING A READ
:>URS

1111 ::::::

;;****************************************************.** ••• * ••• *

18J8 8~28~~ 004737 021356
104032
026 74 000142
~ 4~" 026872
2 44
2(3l

CSESC,PE
10000S-•

}LOAD THE FUNCTION IN NEXT WORD

S~IA¥ FOR CONTROLLER READY

IS:

0 ~8°~2
0 6 56

::::::

~~~IITCRDY

.WORD
.WORD

~8~0 026054
~gd
~16054
~I~ 0 6054 104005
2b '4

RS,LDFUNC

:~AkD

8~dd

JSR
CKERFG
EMT
• liaRD
BGNSEG
EMT

g~~g~g 104004

PC,HDHONE
CSEXIT
L10052- •
CSBSEG

1"S'I'ART OF SEGMENT"

ASSEMBLY ROUTINES
HACYll 301.(1052) 22-NOY-78 15:35 PAGE 1-51
CZRLBB.Pll
22-NOV-78 15:28
**TEST 21** - FORCE HEADER NOT FOUND WITH READ INTERRUPT

~8l~

0~6100
o 6100

o 6104
o 6 ~2
~g:~ ml ~

2m
2045

0~6106

2048
2049

026134

~m 82~p~
2052 0~6 46
2~B o0~661548
g~n~4

2057
2058

0~6156

° 6 62

°pZOO
1 4 4~
0059~

000000
002A~4

000

81h~~ ~mH

020456

537
8°rm~
021276

104006
012700
104041

000340

88ml 002144

0~6164

~!I!

206
2063
2064

002H 6 00H 660O
o 737
737 001 7 00
mm °H
112000 002160

2~li

g~m~

026176

gl~~n

104010
000036

2$:

MaY

BIC
CMP
BEQ
ERRDF
TRAP
.1I0RD

~8gi mB~ 8~ml
206
2068

II!!

8T}24
g ~2
o 6230 A8ml
026232
026234

:m 8g~~~~2
2Ul
207
2076
20PB
20

8~~m

~2~&

026240

SETPRI rRIgo
PRI O,RO
MOV
EMT
CLR
I TFLG
SPRI
HOV
O·'r LDA
HOV
~~~6
f~~A
HOV
JSR
R5,LDFUNC
READIINTEN
R5,IITCRDV
JSR
CKLOOP
EMT
SETPRI C~~~S~
MOV
'PRI07,RO
EMT
SSPRI
TST
INTFLG
BNE
2S
ERRDF
24· fi EM43,ERRO
TRAP
nE CODE
.WORD
.WORD
EM46
• 101 OR 0
ERR
ESCAPE SEG
EMT
CgESCAPE
.1I0RD
1 000$-.

154126
154p6
154 14

8 UU b8~m
g~~m

SEQ 0080

C$BSEG

gm~

Ei~~~T~~~O

104001

10000$:

am~:
.SBTTL
BGNTST

;010 INTERRUPT OCCUR
;YES
;HNF DID NOT INTERRUPT

;CHECK FOR FL:LOE, ELSE EXIT SEG

f~~~ER~~~OR BITS

'BITl~IBIT12IBITiofTMPO
fllDR NOT FOUND SET.
$
;Y S, CON INUE

::g~g

25· fi EMIO,ERRO
~§E CODE
EM10
ERRO

EHDSEG
EMT

C$ESEG

1$:
104005

;CLEAR INTERRUPT OCCURANCE FLAG
;INSURE NOT TO FIND HEADER BY
;SETTING SECTOR 40 OF CYL. ADDR.
;WORD COUNT
;LOAD THE FUNCTION IN NEXT WORD
;READ
;WAIT FOR CONTROLLER READY

;WHEN FORCED
;tUND OF SEGMENTU
;**END OF TEST**

EMT
CSETST
**TEST 22** - CHECK HEADER COMPARE LOGIC
;··START OF TES1"'*

SEQ 0081

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22-NOV-78 15:28

SEQ 0082

026240

021356

000340
002504
104004

1$:

4537 020456
88
oom9 021276

~g3g~8
004537

020214
002234

002162

~m8~

8mU
153652
153636

JSR
CI(ERI'G
EMT
• WORD
BGNSEG
EMT
SETPRI
MOV
EMT
MOV
BGNSEG
EMT
JSR
RDHDR
JSR
ESCAPE
EMf
.ilORD
JSR
ESCAPE
EMf
.IIORD
MOV
BIC
MaY
MOV
BIC
SUB
BCS
BIS
BR
NEG
BIS
BIT
BEQ

PC,HDHOME
CSEXIT
LI0053- •
CSBSEG
PRJ07
PRI07,RO
SSPRI
lIADRTAB, R3

,%%START OF SEGMENT"
;PRIORITY TO 7
;GET LIST START
;'\START OF SEGMENT'\

iLOAD THE FUNCTION IN NEXT WORD

$:it¥
~~RDE~.TROLLRE READY
;CHECK FOR FL:LOE, ELSE EXIT SEG

;READ AND SAVE HEADER
;CLEAR OUT SECTOR AND H.S.
;SETUP MARKER FOR SEEK
;GET HElDER PATTERN

$g~f~6L~~~ ~i~JaHEA~~ ~OSSEEK

;BRANCH FOR SEEK OUT
;SEEK TOWARDS SPINDLE
;GO PUT IN DIFFERENCE WORD

~~~TH~~EDI~F~~~A~~ e~~bERENCE

;00 ME WANT HEAD SELECT AS 07
;YES, SKIP OVER SETTING H.S.

ASSEMBLY ROUTINES
HACYl1 30A(1052> 22-NOV-18 15:35 PAGE 1-53
**TEST 22*· - CHECK HEADER CO"PARE LOGIC
CZRLBB .Pll
22-NOY-78 15:28
BIS
,SET HEAD SELECT TO ONE
000020 153622
0264~6
05~~H
~g!~~~8§~DA
JSR
;LOAD THE FUNCTION IN NEXT WORD
4$:
0264 4
020456
SEEK
;SEEK
0264 0 880006

1111 8~W~ 004537 021276

o0~6436
6440

b8m8

026442

004537
104010
000340
004537

0~6446
o026450

020214

~i
021236
452
o gm
~t~~ gr
b8m8

2lF
2

g m~ 8g3~H
hjl
o
~hS o~

~4~6

4 0
6474
o 64~4
64 6

0045

020456
021276

b003°I 2
2tl~
14
3 g~m~ 004537 020214
14

~tU o8~!5Ig~~4 gUH~ oOU sg 88~m
g~m~

g 65 0 81Hh

00
00

6536
88~U2 00 70
8~m~
1111 026544

~ ~i 026546

~II!

8~~548

o ~~2
026 54
0~655~

~g3m

oHm

82~~~O

104010
000230

0~6~74
o 6602

~160

o0~6610
6614

1
od777
012777
004537
000014
004537

~{U
i~~ g~~5~g 8l ,H
~m

026616

00~166

5$:

153460

m~~2
mm
003052 15343~
020456
021216

JSR
ESCAPE
EMT
.WORD
JSR
ESCAPE
EMT
• WORD
JSR
ESCAPE
EMf
.IIORD
JSR
RDHDR
,JSR
ESCAPE
EMT
.tlORD
JSR
ESCAPE
EMT
• WORD
MOV
BIC
MOV
BIC
CMP
BEQ
ERRDF
TRAP
.WORD
• WORD
.WORD
ESCAPE
EMT
.WORD
MOV
BIC
MOV
MOV
JSR
READ
JSR

~~~ WTCRDY

16m~~~
~~~CHERR

igm~~;
~~~i/TDRDY

CgESCAPE

~5~~~fiiiic
~~~II'I'CRDY

iBm~~;
~~~CHERR

Img~:
E.MP BDDAT
SECM§K 6BDDAT
~R3~ GOAT
EC §KfiGDDAT
~~DAT, DDAT
27.~EMll,ERR4

BE CODE

!~~~eKF~8RC~fiE8k~E~L~~A~~IT SEG
;CHECK

F6~H~t~Lg~;L~L~~RE~~~0~~G

;WAIT FOR DRIVE READY
,CHECK FOR FL:LOE, ELSE EX IT SEG
"LOAD THE FUNCTION IN NEXT 1I0RD
;READ HE10ER ~VERIFY SEEK~
;WAIT FOR CON ROLLER READ
,CHECK FOR FL:LOE, ELSE EXIT SEG
;CHECK F6~H~E~Lg~;L~L~~RE~~~O~~G
;READ HEADER
;SAVE CVLINDER FOR COMPARE

$g~~EE~~fi~5~RH~aRE~OMPARE

;SEEK END UP OKAY
;,(ES, CONTINUE
;SEEK INCORRECT

SEG
CgESCAPE
1 001$-.
r>tReLDA
77,
DA

iibf,~~~~A

R5,LOFUNC
R5,WTCRDV

;CHECK FOR FL:LOE, ELSE EXIT SEG
;SET UP DISK ADDRESS
,WORD COUNT
;BUS ADDRESS
;LOAD THE FUNCTION IN NEXT WORD
IREAD
;IIAIT FOR CONTROLLER READY

SEQ 0083

ASSEMBLY ROUTINES
MACYll 30A(1052) 22-NOY-78 15:35 PAGE 1-54
CZRLBB.Pll
**T£ST 22** - CHECK HEADER COMPARE LOGIC
22-NOY-78 15128
;CHECK FOR FL:LOE, ELSE EXIT SEG
~~~APE SEC
Ag~n~
~8~~g~~
.WORD
JSR
004537 020214
R5~CHERR
ESCAPE
;CHECK F6~H~f~Lg~!L~L~~REir¥0~~G
EMT
~3ESCAPE
• WORD
1 001$- •
~8~~U
MOY
jU~lf1RLDA
~~~~P~~M~'~KT~D~15~~ A~R NT FHD
COM
8UU~
MOV
p3~74
$=3~DA~gKUs
8UM~
53 62
MOV
ii~f!~~~&A
JSR
R5,LDFUNC
;READ
;LOAD THE FUNCTION IN NEXT WORD
o gS62 g04T 020456
READ
goo 4
JSR
R5~WTCRDY
;WAIT FOR CO.TROLLER READY
45 7 021276
ESCAPE Sa
;CHECK FOR nILOE, ELSE EXIT SEC
EMT
C ESCAPE
.WORD
HOV
;CfT
~ M0
S VEcsERROR BITS
6
BIC
88~~~~
CMP
11 000
HOT FOUND SET
3~ft
R ,CHERR
020214
8$:
~~~OOP C$CLPI
104006
CMP
112000 002160
l~IT15IBITI2IBITI0,TMPO
BEQ
8un~ 8HU~
;SET UP DATA FOR ERROR
MOY
~R31fGDDAT
]PRINT OUT
MOV
DO ,BODAr
002170
8~67~~
COM
BDDAT
o
4
;HDR NOT FOUND WOULD NOT SET
ERRDF
2191
28.~EMI2,ERR4
TRlP
~iE CODE
.WORD
.WoRD
.WORD
m~
026766 01U 0
;CHECK FOR FL:LOE, ELSE EXIT SEC
ESCAPE SEC
6$:
EMT
CaESCAPE
8~gl~0
• WORD
2p
o 6 7q
1 001$- •
;GET NEXT PATTERN
~R31+
e~~
3, HORENO
;AT EIID?
g~gH2 m~n 002660
BEQ
;YES, EXIT TEST
197
g2Hg~ 88M~~ 026274
;NO, GO BACI(
JMP
7$:
027010
;UEND OF SEGMENTn
ENOSEG
10001S:
CSESEG
104005
EMT
EROSEG
027012
;'lEND OF SEGMENT"

SEQ 0084

:n sUUi

~ if nun
~b
~o 5~
nUll I~U~4

!,l

II 'IIIll
I~ illU

nun

111111

WiiiPB
iITl~TBITI2IBITJ¥fl~P8o.f¥~8EREADER

ltil
nr
~Ul n 8un~ nun
JII nun ~~33~~
~ 19i~l

A83812

r~8

~i~ sH8l8

~~8l

ASSEMBLY ROOTINES
MACVll 30A(1052) 22-NOV-78 15:35 PACE 1-55
**TEST 22** - CHECK HEADER COMPARE LOGIC
CZRLBB.Pll
22-NOY-7B 15:28
10000$:
EMT
CSESEG
104005
ENDTS!
;**END OF TEST**
o
LI0053:
o027814 104001
EMT
C$ETST
.SBTTL *·TEST 23*· - CHECK MOLTIPE SECTORS ON READ
;uSTART OF TEST**
BGNTST
027016
027016
~i~'~************************************************* ***********
; ERIFY THAT MULTIPLE SECTORS CAN BE READ, WE WILL CHECK
2
§THlT THE RLDA INCREMENTS PROPERLY.
TARS
~B 027016

2~U 8~701i
nl

I!II
~~~g
Ii

~~It
jill

;;***************************************************************

8H8H
027030
027032

004137
104032
000156

JSR
CKERFG
EMT
.1I0RD

021356

~~~ oop8

7 44
027046

104004

illl m °B mUg 00~r6
g ~m ~ulH 00~05~ A~I ~~
U sr
nn 8r~0
~ ~~

737

o 7104

CLR
CLR
BGNSEG
EMT

o 7040 o°8503~ 88~U3

0~7034

8~~Pg ggm~

004537

17 57
020456
021276

15
15

40
36

8 ~m A8m8
~n~
004537 020214
~i8 gnlJ~
027 ~6 b8~8~8
~h!
002166
o°r73~
mm 002170
g~~l~g
224t o
7 54 o
1404
~ (3)
1~
T
mm 104462
373

IS:

PC,HDHOME
EXIT
Ci
L 0054-.
TMPO
TMPI
C$BSEG

;HEADS OYER TRACK 0
;HEADS GO HOME OKAY
;CLEAR LOCATIONS
;USURT OF SEGMENT\\

19n ~~g~RER

MOV
BIS
MoV
ADD
MOV
HOV
JSR
READ
JSR
ESCAPE
EMT
• lIoRD
JSR
ESCAPE
EMT
• IIORD
MOY
CMP

~U~A,gggn

~Dgh~ggaIT

;READ DISK ADDRESS

BEQ

!~~S~I~~AAgRRE~~,C~~~B~~ ERROR

ERRDF
TRAP

?h~~a~~,ERR4

;DA DID NOT INCREMENT

GODA f 6fRLDA
!i6~D RlBA

-12~~,@RLMP

R5,LDFUNC
~~~IITCRDY

CaESCAPE
1 000$-•
~~~CHERR

CaESCAPE
1 000$- •

;SET DISK ADDRESS-SECTOR 0

s~~~ ~~~E~~5BE;s2

;WORD CoUNT-SECToR+l WORD
;LOAD THE FUNCTION IN NEXT WORD
;READ
;WAIT FOR CONTROLLER READY?
;CHECK FOR FL:LOE, ELSE EXIT SEC

~CHECK F6~Hff~Lg~!L~L~~RE~~~0~~G

SEQ 0085

ASSEMBLY ROUTINES
MleyU 30A(1052 ) 22-NOY-78 15:35 PACE 1-56
CZRLBB.Pll
··TEST 23** - CHECK MULTIPE SECTORS ON READ
22-NOY-78 15:28
.IIORD
027160 000~35
29
.il/ORD
EM14
.1I0RD
ERR4
,CHECK FOR FL:LOE, ELSE EXIT SEC
2$:
ESCAPE SEC
EMT
CgESCAPE
.WORD
1 000$-.
027170 AHOlO
00016
TMPO
~NC
~R5U?SECTOR?
88aA~g 002160
liP
6,TMPO
BNE
;HO, CO BACK
3~O

SEQ 0086

8il 18
1U 8mu
mm

IIIIi snm 8

°n~3~

I'III~~

I!lp
orHHfa

10000$:

104005

fm~l:

104001

CSESEG

;tiERD OF SEGMENT"

EI4T

C$ETST

,**END OF TEST**

STARS
·f***·**************************************·*******~· ****.******
; HECK THAT WE CAN FORCE A HEADER JOT ,OUND AT THE
;END O~ A TRACK DOING A MULTA~~! 518TO READ. W§
;SET U lO ¥EAD fWD S~CTOR~
AT SECtOR 3
,WE SROU 0 RANSFER A 8 w~ OS aH N ABORT WI H A
~HEADER NOT FOUND FO
SEC OR 4
TARS

lIN

027212

;;***************************************************************

.SBTTL
BGNTST

027212

1111

004737

~ui ~nm b8

rmr
027p8
027 3

END5EG
EMT

104004

o8trH
777

n g 2l g J
~ 8~
0H 5~
027 70

027 1:
6
I~ m

021356

4032
0126

O~ 087Il

0045

l
8nn
bO~05~
02 45
021276

~3n8g
15~774

15 762

A040~0

000 4

h!~ 8~H8g 8HH~ 8gfH~ mm

*·TEST 24*· - FORCE HDR NT FHD AT END OF TRACK
,**START OF TEST**
JSR
CKERFG
EI4T
• WORD
BCNSEG
EMf
MOV
MOV
MOV
MOV
JSR
READ
JSR
ESCAPE
EMT
.1I0RD
HOV
BIC

PC,HDHOME

;HEADS OYER TRACK 0
;HEADS GO HOME OKAY

CiEX!T
L 00 5- •
C$BSEC

!~glf~BRt~A

r129·fi~RLMP

~~r6'ON~A

~~~WTCRDY

~g~gg~~

h~~1~Rg~IT

;nSTART OF SEGMENTU

sE~iaT~I~~SID~~~!~R

$=g~DA&gHUs

;LOAD THE FUNCTION III NEXT 1I0RD

$Cit¥
FOR CONTROLLER READY
;CHECK FOR FL:LOE, ELSE EXIT SEC
;READ CS
;SAVE ERROR BITS

HACYll 301(1052) 22-HOY-78 15:35 PAGE 1-57
ASSEMBLY ROUTINES
**TEST 24** - FORCE HDR NT FHD AT END OF TRAC~
CZRL88.P11
22-NOY-78 15:28
112000
002170
CHP
#112000,BDDAT
;HDR NOT FOUND SET?
21737
BEQ
4
;YES, CONTINUE
og~~R~ 020214
4$:
~~foop R ,CRERR
EMT
C$CLPI
104006
CMP
U12000,BDDAT
022737 112000 002170
BEQ
001404
;HEADER NOT FOUND DID NOT SET
ERRDF
30o L EM23,ERRO
TRAP
UEKCODE
.1I0RD
b833~~
.WORD
EM23
011636
• WORD
ERRO
014244
1$:
,%%END OF SECI4ENT~\
ENDSEG
10000$:
EMT
C$ESEG
104005
ENDTS!
;"END OF TEST'*
LI0055:
C$ETST
EMT
104001
.SBTTL "TEST 25·' - fORCE NON-EXISTANT MEMORY ERROR
BGNTST
;"START OF TEST'*

STARS
•• ***************************************************************
;fORCE A NON-EXIST ANT MEMORY ERROR,
)WE SET THE RLBA TO EQUAL THE
)LAST ADDRESS IN MEMORY AND ISSUE A READ. THE
tREAD SHOULD ABORT AFTER ONE WORD TRANSFERRED
sTARS

;;**************************************************** k*k********

004737
104032
000076
104004

021356

JSR
CKERfG
EMT
• ilORD
BGNSEG
EMT

MOY
MOV
CLR
MOV
JSR
READ

PC,HDHOME
CSEXIT
LI0056- •
C$BSEG

IHElDS OVER TRACK 0
)HEADS GO HOME OKAY
;\\START OF SEGMENT%%

SEQ 0087

ASSEMBLY ROUTINES
MACYll 301(1052) 22-NOY-'18 15:35 PAGE 1-58
CZRLBB.Pll
22-IIOV-18 15:28
**T£ST 25** - FORCE NON-EXIST AN! MEMORY ERROR
004537 021216
JSR
;WAIT FOR CO"TROLLER
ESCAPE ~~~IITCRDY
;CH CK· FOa·FL:LOE, ELSE EXIT SEG
EMT
C3ESCAPE
o 1440 A8~m
• IIORD
1 000$- •
BIT
;010 NXM SET?
f~XM,E.CS
g~~m g~iZU 020000 002226
BHE
;YES, COIlTIIIUE
ERRDF
;NXM DID NOT SET
3lofi EM24,ERRO
TRAP
HE CODE
.IIORD
.1I0RD
£M24
o02746
1!53
014244
.IIORD
ERRO
3$ :
ESCAPE SEG
;CHECK FOR FL:LOE, ELSE EXIT SEG
O~H~~
EMT
CgESCAPE
1464
• WORD
1 000$- •

Hj~

glHU

1111

Slru ~gnu

jill 8

A8mg

~ II ~ du
i
44
3~&

347

gl~4U

10000$:

104005

Em~I:

104001

02147

;;***************************************************************

005031

002144

2~61 srnu ni~n

000000
177714
000060

SETPRl
MOV
EMT
MOV
HOV

o8~~m
1506

004137

021356

~m 0202PI5 O0 104004

1ill3
~3i~2
236

021512

4032
A000140

516

027532

;nEIiD OF SEGMENTU
CSESEG

;**END OF TEST*"
EMT
C$ETST
**TEST 26 0 • - FORCE HON-EXISTANT MEMORY ERROR INTERRUPT
,**START OF TEST**

JSR
CKERFG
EMT
.liORD
BGNSEG
EMT
CLR

2354

027472

ENDSEG
EMT

.SBTTL
BGHTST
STARS
;f**********************************-****************************
~ HECK THAI WE CAN FO~CE AN INTERRUPT WITH A
NON-EXIST NT MEMORY RROR.
TARS

02147~

~m
350 021472
2~~~

Od737

mn~

PC,HDHOME

Hmk

;HEADS OVER TRACK 0
;HEADS GO HOME OKAY
;nSTART OF SEGMENTU

C$BSEG
INTFLG

;CLEAR INTERRUPT OCCUR AlICE FLAG

!PRIOO
PRIOO,RO
WRI
;PRELOAD BA
RLBA
7114 7,XMEM
BA161Bl
; SET EA BITS

ASSEMBLY ROUTINES
MACY11 301(1052) 22-NOV-78 15:35 PAGE 1-59
CZRLBB.P11
22-NOV-18 15:28
**TEST 26** - FORCE NON-EXIST!N! MEMORY ERROR INTERRUPT
;LOAD DA
2365 021540 005077 152502
CLR
rLDA
;WORD COUNT
;LOAD THE FUNCTION IN NEXT IIORD
~~g~ g~~~fl 8~j~~~ A~3l~l 152476
~~iDIINTE~!(ft~&=~
,READ
;WAIT FOR CORTROLLER
2J69 0j7560
021276
;PRIORITY TO 7
2f~lo
l~~: 012700 000340
MOV
~RI
7,RO
3
0 7570 104041
EMT
SSPRI
;CHECK FOR FL:LOE, ELSE EXIT SEG
2
0 l5l2
ESCAPE SEG

o04~H

~~~PRI R,5~rT8~RDY

8 i~ii A83Si8
~I~~ &~~~~~ 88~~al 002144
~f

213~16 &~~~8~ b8 4462
~ 00~~!~8
2 ~
12 81~~i~
23j8

2~~1
2ioo

gum

23~5

02~~40

i~S ~

021644

2~~~ 8~~U~

104005

021646

104001

~t~i~8 8~'6~9 A8~86~

!~I

n~
2m
~m
2399

4S:

4010
18
o 0026

SEQ 008B

0~1644

021650
021650

020000

002226

3$:

~C3RD

ig~~~I~~

1ST
BHE
ERRDF
TRAP
.IIORD
.WORD
.IIORD
ESCAPE
EMT
.WORD
BIT
BHE
ERRDF
TRAP
.WORD
.1I0RD
.IIORD
ESCAPE
EMT
.WORD

IliTFLG
4$

EHDSEG
10000$: EMT

Hg~~~:

3~'fiEM44'ERRO
T
E CODE
3
EM44
ERRO
SEG

H~g~t~~

~~XM,E.CS

;INTERRUPT OCCUR?
;YES OKAY
;NO INTERRUPT II/NXM

'CHECK FOR FL:LOE, ELSE EXIT SEC
;DID NXM SET?

33o~EM24,ERRO

,YES, CONTINUE
;NO NXM

EM24
ERRO
SEG

;CHECK FOR FL:LOE, ELSE EXIT SEC

HE CODE
rm~~~~

;%\END OF SEGMENT%%
C$ESEG

;**END OF TEST**
C$ETST
EMT
""TEST 27** - CHECK READ WRITE LOOP
,··START OF TEST*"

.SBTTL
RGNTST
STARS
•• ************** •• ***********************************************
SfERIFY THAT THE WRITE ACTUALLY WRITES. AT THIS
;TIME WE KNOW THAT THE WRITE FUNCTION GOES THRU
;THE MOTIONS BUT WE DON"T KNOW THAT THE DATA
,ACTUALLY GETS RECORDED ON THE PLATTER.

SEQ 0089

ASSEMBLY ROUTINES
MACY1t 30A(l052) 22-80Y-78 15:35 PAGE 1-60
**1ES1 27·· - CHECK READ MRITE LOOP
CZRLBB.PU
22-NOV-7B 15:28
24~0

dll 8nu
°f650

004737

021356

~la~ 8~1m 104004

A83g~~

:rd !Ill!l77~~ mI~4
81~~~~
02767~

il~ na

4}4

m~~~
5
nj1g~ 125

8
o

o 7734 880~n

~~I~ 8HHi

004537

15233~

m8~~

0204
021276

3S:

mH~

gnu A8m8

~~~i O~r5~r4

8HH6

004537

020214

m~~g

2~~1 g~ ~i
8 7760
~h~
m g~H~3 8U~n 8gm~
o

104~04

4$:

005~0~
W o 777~ 001
7

~H3

0~7776

g~~~H

Im33 15
15~~40
26

0045

021276

~!II ~lnU ~~UU
o OO~~

~U!

0300 0
818m
81°034
0040

~~u o 0044
2411 8~8g~~
o0~0850
52

SEQ 0090

~!t~§************************************************* ***********

027650

8m~~

~~~

b83~18

8mu
88~T
01~ 1

10$:

b04010
00°81~2
4 4

JSR
CKERFG
EMT
.WORD
BGNSEG
EMf
MOV
MOV
HOV
DEC
BNE
CLR
MOV
MOV
JSR
WRITE
JSR
ESCAPE
EMf
• WORD
JSR
ESCAPE
EMT
.WORD
BGNSEG
EMT
MOV
MOV
CLR
DEC
SNE
CLR
MOV
READ
JSR
ESCAPE
EMT
.WORD
JSR
TST
BHE
ESCAPF.
EMf
.WORD
BR

PC,HDHOME

EmH-.

~um~ g~EHo~~A8~A~
;USTART OF SECHEIITU

C$BSEC

im~R81

3r52~2' (RO)+

~~~i ~&R~~~~~EBg~~,gR

LDA
-b~8·fif~~MP
tL6'UHC
R5 6WTCRDY

;W IT PAT ERN TO BUFFER
;DONE
'NO§
BRANCH BACK
;DI K ADDRESS
;1I0RD COUNT
;BUS ADDRESS
~LOAD THE FONCTION IN NEXT WORD
;WRITE T E PATtERN
$~AI~KF~~RC~~!~gk~E~L~~ARIIT SEC

~~~CHERR

,CHECK F6~H~E~Lg~;L~L~RREi~'0~~G

~gE8cAPE
1 0 0$- •

CgESCAPE
1 000$-.
C~BSEG

fR16UF,RO
s .,Rl
)+

LDA
-b[8'~f~kMP
6'UNC

~~6I1TCRDY

f~ij8g!~
R5,CHERR
T.CRC

CgESCAPE
§9$001$-.

;t'START OF SEGMENT"
;CLEAR OUT BUFFER BEFORE

mmN~UFFER

;DONE?
iNO, BRANCH BACK
"LOAD DISK ADDRESS
SWORD CODNT~ONE SECTION
iLOAD BU~LAAgRf~~ FONCTION IN NEXT WORD
s;O ¥E~gR CONtROLLER RAY
icA~CK FOR FL:LOE, ELS~ ~XIT SEC
6CHECK CNTLR FOR ERRORS
;IIAS ERR R A DCK??
l~~~f~E~O~FF~~L~E~U~isE EXIT SEG
iSKIP AROUND

ASSEMBLY ROUTINES
MACY11 301(1052) 22-NOV-78 15:35 PAGE 1-61
CZRLBB.P11
22-NOV-7B 15:28
**TEST 27** - CHECK READ WRITE LOOP
~443
030054 005737 016774
8$:
TBSTQ
T.DMP
;00 WE STILL WAIIT TO CHECK IT
2~~~ g~8g~~ 001772
C~LOOP 10$
J~~s, CHECK FOR LOOP FIRST
~31
030062 104006
EMT
C$CLPI

hl~ 8j8m 88~m 88m~

0~Op2 gl~n~
tn7 ~~~~g~
~ m 813m
8
452
21~~

818t~'

IJ~~

° 2f70
0 2166

99$:
002166

5$:

002170

~4~~ 030140
8l81~~ 8~g~~7
8g~1~g 016776
001002
~457

r~~

~ 461
030152 005737 002122
462 030 56 001007
83381~60

014564

8gij~n

~4i

~!~~~i

U 00~16~
8~8~~.

030240
030242

S3~

030244

21~1 g~8~i~
24~~

2~16

8ig~:6

g3g~~~

9$:

001324

104005
104005
104001

~gggp-.

i ACCOUNT FOR IT

CHECK
9S

;HEADER OR JUST DATA
;JUST DATA
iBAD DATA

~3~E~E~g~'ERRa

000012

ERR8
~~ECK

~g~

Tf~&~f6~~~h)
4,-(Sp)

iACCOUNT FOR PRINT OF HEADER

=8~NTB #2ggI~~~s~!lGDDAT'BDoAT

HOV
m

~itl glg~12 ~gIJ~'

2472
2473

i=gRD

.WORD

002122

81 7
001 48~0418

062706

DOAT,BDDAf

~~f~~~t.LMT
333$

:~g~g E~25

~~A6~;Z) i081~i81 ~ 0 2~ ~ 81Ii~~ gg~llg
81 i

fl~i;a!GDDAT
R2)LBDUAT

1ST
BHE

~~~~F

~ 0~Ot6t g~~~~i
030174

ER~~~

~~fAPE ~~~SCAPE

333$:

24t~31 °8~80l~68

2 ~4
2465

~gf

MOV
~~~

~~~
BNE

838t~~ 104010

SUW S8g~H 002130
460
\~~

gt~

6$:

~~~OOP

7$:

!il
BNE

ENDSEG

10001$: ~~6SEG
10000S:
ENDTST EMT
LI0060: EMT

Ci~~¥B

# 2, SP

il§~~l

CSESEG
,
CSESEG
C$ETST

iBUMP BUFFER POINTER
;DONE?
;NO, GO BACK
i\\END OF SEGMENT\\
i'tEND OF SEGMENTt\
;**END OF TEST**

SEQ 0091

AIISMILY ROUtI,I.
MACYI. 30A(1052) 11-IOY-1. 15s35 PAGI 1-62
CllIILIIII.Ptl
2-IOV-'. 1!1I211
•• .t 2 ...... - CIIICK SILO LIlliS
.lIlftL **YI.Y 2.·· - CHICI SiLO ~IIIS
UU!!O
IUTS'l

I
f

004'3'1

0302"

013'703

111111

!!!!!!

tUIU

iillFG
J 10
IIOW

0026U

IIII~ ~ml

6$1

2$1

111111

III 11"~~b)+
15, f61~up

~ 10
i IliJi:
API 8 i
i'l'" i Ili~~
BIll

f3l Ili,81

"8'

l~nt!~Uf"p

3$1

liitfl Illilt Ilflil nun

~LI

JaltBI 8~laoIIA81&'

ODA'lUt,13

I=r 'c
118

020214

18UU

fUIII-.

II1""
::. II'IQI'··...'

151124
151116

681118

***••••••••••••••••••••••••••••••••••••••

PC,IIDBOIIII:

021356

nun

,....II'lA1t GIl' '1'111'1-

;!ii::!i;ii;ii:ii.ii:i:!;i;i!:iFi:iiiii;iiiiiiii:jj1i:ii:iiii..

030250

I nun 'IUU

i,,111"'..........................

03 02!! 0

518 IOn

crill

, ••Stalt OP SIGIIII'l"

1111110111'11.1 11'10 III MOlY

pa'l'lil.

uca:

"III'@!: Ill'll PAttll. 01'10 DISI
,fXAD fBI PUIC'lIO. I. 111'1 1010
,CHICK FOR FLILOI, ILII 111'1 81C
;CBICI ,AfB'ffL61!LILIRRI I"0111
,.'.YART GIl' 1I111111!"
fltl;iol&IORY 8EFOII RIADIDG It lACK

'1llup IH.RIAD It lACK

J ctna ZERO

SEC! 0093

ILOAD tBI 'DlCtIOI II lIlt 1010
,CBICK 'DR 'LaLOI, ILIIE lilt IIIG

9$1

4$~

ASSEMBLY ROUTINES
MACYU 301(1052) n-NOV-78 15:35 PAGE 1-64
**TEST 29** - CHECK SILO LINES
CZRL88.Pll
22-NOY-78 15:28
EMT
030634 104006
C$CLPI
1NEXT LOCATION
000002 002164
ADD
030g36
'~~IMP2
;NEXT 1I0RD
030 44 06~73~
INC
CMP
TMP1,#129.
000201.
100llE
830650
8NE
5$
1NO, GO BACK
30656
;UEIID OF SEGMENTU
ENOSEG
10001$:
EMT
C$ESEG
030660 104005
;DONE ALL PATTERNS
1ST
3 )+
lNO, GO BACK
BilE
o0~0662
0664 00572
00120 3
ENDSEG
030666
"tERD OF SEGMENT"
10000$:
°f666 104005
F.MT
C$ESEG
g 06r
'**END OF TEST*·
06 0
H8~U: EMT
8 gg g 104001
C$ETST
.SBTTL uTES1 29 0 • - CHECK THROUGHPUT OF SILO
,**START OF TEST**
BGNTST
030672

~U!

Ull mm shih

1m
~~

g~i 030672

!III
di~

STt~~*********************.*************************** ***********

StEST THAT TH~ SILO OPfRATES CORRECTLY, WE WILL WRITE A PATTJRRN THAT CONTAINS
;1 UNIQUE PAT ERN IN E CH LOCATION NE EXPECT IT BACK IN PRO !~
§ORDER, WE DO A ONE SECTOR TRANsrE R
TARS

030672

;;************************************************************.*.

~~d m~~~ 004737 021356

mm
~il'
!~~~
7g~
~i~~
r~~
hs hun n
m782

JSR
CKERFG
EMT
.WORD
BGIISEG
EMT

A8am

104004

594
2595

8~gi1~

000001

81~~oo gg~~g~

o~07h SA

2$:

~ggo

881

~~8~ 038752 8U
8~on~

iH ~mg6
o 077 151270

m~~g

HOY
MOY
MOY
HOV
INC
DEC
BHE
HOY
MOV
CLR

PC,HDHOME

WiUk

C$BSEG
RO
1~8·fiRl
BUF 2
R8,cb)+

~t
,BUF @RLBA
-12~.,l!RLMP
RLDA

,HEIDS OVER TRACK 0
;HEADS GO HOME OKAY
;USTART OF SEGME"Tn
; III IT IAL 1
;128 WORDS
;BUFFER
; WRITE A WORD
;IIEXT PATTERN (1-128)
,DONE
;NO
,SETUP TO WRITE
1128 WORDS
;DISK ADDRESS 0

ASSEMBLY ROUTINES
MACY11 30A(1052) 22-NOY-79 15:35 PAGE 1-65
22-KOV-78 15:28
**TES1 29** - CHECK THROUGHPUT OF SILO
CZRLBB.Pll
JSR
R5,LDFUNC
1LOAD THE FUNCTION IN NEXT WORD
2604
020456
804537
0756
WRITE
OOOH 021276
o 0~62 0045
~605 °i
JSR
60~
~~~WTCRDY
,CHECK
FOR
FL:LOE, ELSE EXIT SEC
ESCAPE
8~8
~3
6~
EMT
030770
CiESCAPE
04
.WORD
030772
00 g1O
22
1 000$-.
2hl
JSR
03 774 004537 020214
~609
;CHECK F6~H~E~Lg~;L~L~~RE~~~0~~G
ESCAPE ~~~CHERR
610 03 000
EMT
03 000 ~04010
ia~g5~~=
.WORD
031002
00312
)nSTART OF SEGMENn,
BGNSEG
2Itl m88~ 104004
EMT
Ci BSEG
MOV
06 8!~~0~ 88m6
UF,
RO
mijA~NB~~~~¥H
MOV
129.,Rl
RO)+
CLR
;CLEAR
3$:
0310!l o 50~0
;DOliN COUNT
DEC
1
2615 0310 0 005301
;DONE?
BNE
031022 001375
3$
26f
MOV
;BUS ADDRESS
U~
77
01r
:~Y~§!~~RtMP
;WORD COUNT
MOV
01
777
26 9
;DISK ADDRESS
CLR
m84~ 88~gH 6~m~
;LOAD THE FUNCTION IN NEXT 1i0RD
JSR
ft~~fAFUNC
READ
JSR
88m~ 021276
~~~WTCRDY
;CHECK FOR FL:LOE, ELSE EXIT SEG
ESCAPE
EMT
o 8~6
56
iam~~;
.WORD
03 060 b040~O
002 2
JSR
6CHECK CNTLR FOR ERRORS
0~02~4
3 062 88~~3i 0214
¥:~~~ERR
TST
~m 80~18~~
$~~~ ~~~ ~FA~~C~?buMP
BNE
001003
26~9
ESCAPE UG
;CHE~K FOR FL:LOE, ELSE EXIT SEG
10$:
26 9
EMT
74
CS&SCAPE
• IIORD
8 m A8 4010
~
01 $- •
BR
o 100
~5~I&EA~~¥~f VANT TO CHECK IT
016774
T~gMP
B$:
TST
BEQ
1NO
o
1062 001772
lOS
~gH
CKLOOP
;YES, CHECK FOR LOOP FIRST
EMT
C$CLPI
104006
2 34
CLR
CDCNT
;CLEAR NUMBER WE"RE TO PRINT
005037 00~i30
99$:
CHECK
;ALLOW HEADER ON FIRST PRINT
CLR
00
MOV
;START GOOD AT 1
000 2~
0
8~~~H
GDDAT
1START OF BUFFER
MOV
2638 031i 0 01 737 00305
B6F~TMP2
MOV
1,T
PI
;FIRST
IIORD
012737
000001
002162
031136
263
MOV
4$:
031144
~TMP2,DDDAT
00~170
~U~
m~R~g~~
eMP
00 166
8HH~
264
6~DAT ,GDDAT
152 001440
BEQ
HES
o 160
264~
CMP
;CHECKED ENOUGH??
002130 016776
~~~~T,T.LMT
031 62 023737
BNE
1NO
646 831
70 001002
;CHECK FOR FL:LOE, ELSE EXIT SEG
ESCAPE SEG
647
EMT
03
104010
~mg~:
.WORD
031174 000116

~hi mg
~i~1

ym56 mna

3~~4 8i03r~9
2h~

°It°

~lU °W0 88m~
P) mm

~U~ 8WI~
8
~U5

SEQ 0094

°H

m m

SEQ 0095

SEMBLY ROUTINES
MACY1l 30&(1052) 22-NOV-78 15:35 PAGE 1-66
RLBS.PIt
22-IOW-78 15128
**T£8T 29** - CHECK THROGGHPUT OF SILO
333$:
Ilie
CIICNT
;ACCOUII1. FOR IT
YSl
5HEC «
'"UDER
JOST 'DATA
~IE~~~3~'ERR10 J~ADTDi~AA .

: I Iliili 111111

~~~

,tRRF
• U~IiD

HEeK
6$

==818
INC

9$:

SEQ 0096

Fa'

~7o

,Accoumt FOR PRIIY OF HEADER

,-ss

PRJITB • RM 7,TMP!lGDDAY,DDDAT

"8
=0
NOV

!aB
., L-( P)

=8;
!i~oop ~f~ s9

$1')

6$:

~l!

EM~

002164

IIIII! 1111I! 11111l

C$CLPl

MP2
fa
GD~I1

U~1,m9.

000201

lun

;DOUE?

EIiDSEG

10001$1 EMT

CSESEG

ENDSEG

10000$1 EMT
EIID'fST

111111 ::::::

LI00621

.SBTYL

C$ESEG

,·*gmD OF TEST*·

EMf
CSETS!
**TEST 30** - CHECK lERO fILL

om URIT!
;··START OF TEST**

BGNTST

11,1 ::::::

1!1! """
-1
;isSEMBLY ROUT IllES
MlCYU 301(1052) 22-110'1-18
15:35 PAGE 1-67
CZRLBB.Pl1
22-NOY-78 15:28
**TEST 30** - CHECK ZERO FILL ON WRITE
004737

021356

b83~!~

~~~RFG

PC,HDHOII!

~=~RD

Ei~~~X-.

SEQ 0097

lnltBI 8~Efto~~A6~A~
)%tSTART OF SEGMERT1t

002162

35$:
3$:
33$:

150636

020214

18$:

f~~~U m~~~
028456
021276

$~AI~KTJ~RW~L~l~I~HEl~~ ~~t¥ SEG

10$:
016774

;"START OF SEGMENT"
;WE"RE GOING TO OVERLAY BUFFER BEFORE
;READING IT BACK.
;OVERLAY IT WITH COMPLIMENT
l28~E~EEP GOING
;SET UP TO READ
~~~2T~~RDS TO CHECK ZERO FILL
;LOAD THE FUNCTION IN NEXT WORD

8$:

ASSEMBLY ROUTINES
MACYll 30A(1052) 22-ROY-78 15:35 PAGE 1-68
CZRLBB.Pl1
22-NOY-78 15:28
UTEST 30** - CHECK ZERO FILL ON IIRITE
99$:

002166
002166

4$:

016776
333$:

SEQ 0098

2~foop 10$

!eHs, CHE.CI{ FOR LOOP FIRST

8~~

!it~~U ft~;!I= ~1"PfRI¥ ~=J=~

EMT

C~CLPI

:8:

ir~i:~al

8H~~1

;~Rlgi r~A¥I~:DIN R2

MOY
CLR
MOY
MOY
CMP
BEQ
CMP
BIlE
ESCAPE
EMT
.1I0RD

AIID REPEAT
;CHECKED ENOUGH??
;CHECK FOR FLILO!, ELSE EXIT SEC

;110

; ACCOUNT FOR IT

IIIC

TSI
IIRDF
TRAP
.1I0RD

CHECK

J~'LEM27,ERR12

J~~~¥E6A¥1 JUST DATA

.T3SEKCODE
.,

'1NC
=8=8 CHECK
~Uih

9$:

;ACCOUIT FOR PRINT OF HEADER
BR
12$
PRINTB #FRMT9,TMPI R3,GDDAY,BDDAT
MOyY
BDDDDAATT'
MO
G
..- -lSSP
P
MOY
R3 6- :iP

=8~

TIPk~t9!_~!P)

~a¥

Ci~=Ts

MOV

12$:
6$:

~~foop
,~~
IIIC

~'-lSP)

# 4,SP
Ci~L~l

~MP~

g~c

2Ei
BR

DE~

~8DAT

7$:
ENDSEG
10001$ :

;DONE AiL 1I0RDS?
EX T T T
JDolE C ICKING KOR-ZERO 1I0RDS
;NO BRANCH BACK
;YE§ .. SEr EXP"D AS ZERO
;BRANCH BACK
;EXIT TEST
,"END OF SEGMENT"

ASSEMBLY ROUTINES
MACYll 301(1052) 22-IIOV-78 15:35 PAGE 1-69
CZRLBB.Pll
22-IIOV-78 15:28
**TEST 30** - CHECK ZERO FILL ON WRITE
104005
EMT
C$ESEG

0~5~1~ gg~U~ 000200

go~ 4
00&1

031346

INC
J~~M&p

34$:

SEQ 0099

™PI
3J5~~
,1/128.
$

ENDSEG
,"END OF SEGMENT"
10000$: EMT
C$ESEG
ENDTST
;**END OF TEST**
LI0063:
C$ETST
EMT
.SBUL **TEST 31** - CHECK SECTOR BITS OF HEADER COMPARE
BGNTST
;**START OF TEST·-

JSR

PC,HDHOME

• IIORD
BGRSEG
EMT
CLR
BGRSEG
EMT
MOV
MOV
MOV
DEC

T
CiEX1
L 00 4- •

~~fRFG

1$:
199$:
2$:

C$BSEG
TMPO
C$BSEG
;r%=Ra
MPo,hh.
Rl

;HEADS OVER TRACK 0
;HEADS GO HOME OKAY
,t'START OF SEGMENT"
;CLEAR
;%tSTART OF SEGMENT't

!~=IT~E~T~A!!EC8R~RR THE WI/ITE

;WRITE IT
;DONE,

ASSEMBLY ROUTINES
MACY11 301(1052) 22-NOY-78 15:35 PAGE 1-70
CZRLBB.Pll
22-NOY-78 15:28
**TEST 31** - CHECK SECTOR BITS OF HEADER COMPARE
BNE
,IF II0T, GO BACK
001374
2$
MOV
iib28·fitG~MP
S~=~T~E~i8~ =3~D COUNT
MOY
HOY
,SECTOR ,LOAD THE FUNCTION 1M NEXT IIORD
JSR
~nTE
;W1IT FOR WRITE TO FIll ISH
,CHECK FOR FL:LOE, ELSE EXIT SEG
ESCAPE
EMT
.IIORD
;NEXT SECTOR
INC
CMP
;ALL DOllE?
000050
BNE
'liD GO BACK
CLR
;CLEAR
002160
BGIISEG
;"START OF SEGMENT"
EMT
CSBSEG
104004
;CLEAR THE BUFFER FIRST
MOY
003052
98$:
IBUF, R2
;128 WORDS
000200
~r~h'Rl
3$:
DEC
BNE
001375
3$
MOV
TMPO,@RLDA
;GET SECTOR
032146 013777
;SETUP BUS ADDRESS
MOV
#BUF,@RLBA
032154 012777
MOV
;READ A SECTOR
012777 177600 150060
0321~2
"5!tBF6~~LHP
;LOAD THE FUNCTION IN NEXT WORD
JSR
004537 020456
READ
000014
JSR
004537 021276
~~~WTCRDY
032~76
ESCAPE
;CHECK FOR FL:LOE, ELSE EXIT SEC
032
EMT
C$ESCAPE
03 0O~
• WORD
10002$-•
03~20
JSR
;~AS ERR6~HiC~ci~~LR FOR ERRORS
¥~~~~ERR
1ST
BNE
032216 001003
$~fi~~~E~O~FF~~L~E~U~[SE EXIT SEC
ESCAP
E
UG
10$:
g~~~18 104010
EMT
CSESCAPE
• WORD
03~~22
~8~02$•
BR
; SKI P AROUND
032224 8gm~
TST
T.OMP
;00 WE STILL IIANT TO CHECK IT
8$:
0322~6
BEQ
;NO
88m~ 016774
10$
;YES, CHECK FOR LOOP FIRST
CKLOOP
mh~
EMT
C$CLPl
032234 104006
;CHECK NOW TO SEE IF WE READ THE RIGHT SECTOR
CLR
CDCNT
PRIIIT
99$:
032236 005037 002130
PRINT
CLR
CHEf.K
go~m
TMPO,GDDAT
002166
MOV
MOV
BUF,R2
Oh702 003052
MOV
128.,Rl
012701 000200
R2)+,BDDAT
5$:
HIJV
m~~~ 012237 002170
'

SEQ 0100

l ~~e6'HkgA

uun

8BM

bWl&
mm gmH

S8HU

ASSE~8LY ROUTINES
22-NOV-78
CZRLBB.Pll
023737
23 58
001440
2861 032300 023737
001002
~m 8~W8
0323io 104010
032312 000110
032314 005237
865
2866 0323~0 005737
2867 0323 4 001007
2B6B
104462
8~~~~~
03
3 0 000046
013105
03~~32
34
4754
oO~ 336
o 5237
032342 000416

M3 8Hm

1tH

Jli

2 17~ ) 0IB44
0
44

7
6
3
4
4

013746

002170

406
oOJ 2412
°9o 35P27

2B~1

gj~m

8~~m Sgm~
032420

001243

2~~1 032422 104005
28~

03~424

2!~1

03 424
03f24
03
426
0i 426

032432

104005

d~ 8 ~H~ 104005
8Bm 104001
2m
~m

002166
016776

mns

22-NOV-16 15:35 PACE 1-71
**TES1 31 0 • - CHECK SECTOR 8ITS OF HEADER COMPARE
CMP
~~DAT,GDDAT
BEQ
CDCNY,T.LHT
;CHECKED ENOUGH??
CMP
;NO
BNE
333$
ESCAPE SEC
;CHECK FOR FL:LOE, ELSE EXIT SEG
EMT
C~ESCAPE
.~ORD
1 002$-.
CDCNT
; ACCOUNT FOR IT
INC
333$:
CHECK
;HEADER OR JUST DATA
TST
8NE
;JUST DATA
ERRDF
U.~EM50'ERRll ;
TRAP
UE CODE
.WORD
.~ORD
EM50
.IIORO
ERRll
; ACCOUNT FOR PRINT OF HEADER
INC
CHECK
BR
6$
PRIIIT8 ~FRMTB'TMP01GDOAT'BDDAT
9$:
MOV
BDDlT,-!SP
MOV
T!( ~i
MOV
MOY
rRMf8~-(
P)
MOY
4'-f )
MOV
EMT
4~~
ADD
« 2,SPB
CKLOOP
6$:
C$CLPl
EMT
;ALL OF SECTOR CHECKED?
DEC
Rl
BNE
; CO BACK IF NOT
INC
;NEXT SECTOR
PPO
MPO,#40.
;DONE?
CMP
BNE
;NO, GO BACK
9B$
;UEND OF SEGMENTU
ENDSEG
10002$:
EMT
CSESEG
;\tEND OF SEGMENTtt
ENDSEG
10001$:
EMT
C$ESEG
ENDSEG
;nEND OF SEGMENTt\
10000$:
EMT
C$ESEG
ENDTST
;·*END OF TEST**
LI0064:
EMT
CSETST
.S8TTL **TEST 32** - WRITE CHECK NPR INTEGRETY
; **START OF 1EST**
BGNTST

¥aBt

8 ~m SlHU mU8
m~6~ 8mU mm
010600
gj~j~9
104014
03 374 062706 000012

2m
2878

30A(1052)

002130
002122

002122

mm 104006

002130

°A

2
2 7

~875

~ACY11

15:28
002170

000050

SEQ 0101

\Ii

ASSEMBLY ROUTINES
MACYll 301(1052)
22-NOY-18 15135 PAGE 1-72
CIRLBB.Pll
22-NOY-78 15128
**1£ST 32** - WRITE CHECK MPR IIITECRETY
032432
STARS
289
Sf:~~;*;~:;*=;;·;~~**=~;*;:;~;;~;:*;i;~*;~~*~~~;:;;~;*~~*;~;.****
~UHIBUS. WE SET UP ~OCATIOH'4 TO HANDLE THE TRAP IF IT HAPPENS.
032432

~it1

ti~

r:1
K91

2
2900

2~~~
290

;!t~~********************************.**************** ***.*******

004137

n~i~~
03 4~6 ~gm~
g~~m

g3~m

~906

~07

~98S

021356

104004

nun

n8~ 81m
032470 001374

2910

m~~2

125 5~

299$:

141544
8Hm
gl~1H m2a~ 147542
032506 00 017 141534

~m 03r
8~~~!l0 ggm~
5 4
2~~l 03
OJ 5 4

~hi 8guM
m mns
A8ms
004537

020456
021216

020214

534

2m
291
2920

291~

m~ gFm 8~5qH Amg~ 141412
Oj~555 8AhH 20456 147470
o ~56
~~~~5 03
4 000g~4
29
~71600

29 6
2927

°F56~
o 257

~260

004

021276

A8mg
mm 004531
020214
2~~1
2929 83257i

8 ~~8 ~86m
29j} 8Hg8g 104004
2~3

JSR
CKERFG
EMT
.IIORD
BGNSEG
ENT
MOY
MOY

8HE
MOY
MOV
CLR
JSR
WRITE
JSR
ESCAPE
EMT
.WORD
JSR
ESCAPE
EMT
• WORD

PC,HDMOME
EXIT
Ci
L 0065-.

;HEADS OVER TRACK 0
;HEADS GO HOME OKAY
;nSTART OF SEGNENTU

C$BSEG
rUF,RO

t~~i~~!(RO)+

299$

;SETUP AND WRITE
;~aMORDS

hONE??

rUF
@RL8A
-12§.,@RLHP
RLDA
5,LDFUNC

;LOAD BUS ADDRESS
;1I0RD COUNT
;CLEAR DISK ADDRESS
;LOAD THE FUNCTION IN NEXT WORD

~~~WTCRDY

$~AItKF~~RC~~!~g~;E~L~~A~lIT SEG

iamA~;

R5~CH~RR

rm~~~~

;CHECK F~iH~E~L&~!L~L~~RE~~~O~~G

;VERIFY WRITE WITH READ BEFORE WRCHK
CLR
MOV
BUF
LDA @RLBA
HOY
-12fi'6IRLMP
;LOAD THE FUNCTION IN NEXT WORD
JSR
5,LDF C
READ
JSR
~~6WTCRDY
ESCAPE
;CHECK FOR FL:LOE, ELSE EXIT SEG
EMT
cgmA~~
.WORD
JSR
A56CH~RR
;CHECK F6~H~E~L5~!L~L~~RE~~~O~~G
ESCAPE SE
EMT
• !taRO
mim~=
;%%START OF SEGMENT%%
BGNSEG
EMT
C$BSEG

MACYll 30A(1052 ) 22-NOV-78
15: 35 PAGr. 1-73
ASSEMBLY ROUTINES
**TEST 32" - WRITE CHECK NPR INTEGRETY
CZRLBB.Pll
22-NOY-78 15:28
;SET UP FOR TRAP
SETYEC ERRVEC~~TRPHAN'#340
1$:
2933
MOV
012146 000340
#340 - Pl
HOV
~TRP~A
,- SP)
MOV
8H~~3
RRVEC~-( P)
HOV
032624 012146
#3§-p )
EMT
Ci V C
ADD
03~T
OO~O~O
~fr~
;CLEAR TRAP OCCURANCE
8j
~
CLR
00 1 ~ 147314
;BUS ADDRESS
HOY
03 642 005
012 1 0030
#m;1@RLBA
;LOAD DISK ADDRESS
CLR
2936 032650 005017 14737g
;WORD COUNT Of 128
147366
MOV
126 .,@RLMP
2931 03~654
~7160
;SET UP CSR TO LOAD
02166
eLR
DDAT
2938 03 662
;SET IN DRIVE
HOY
DRIVE GDDAT
2939 032666 Op137 og2A 34 002166
;SET IN FUNCTION
niS
002166
RWRCH~6GDDAT
~~40 032~Z4 80~~~~ o 0 02
;LOAD FOR ERROR PRINTOUT
JSR
5 BEf RE
;SET IN COMMAND
HOV
002216
mot op 3
m'~~
GD6ATfiBoCS
9~~
BIS
032114
000~01
294
1201, .cs
o f37 OO~OOO 002~166
OPI B.CS
5H~~/mT 10)
BIC
2944
4
MaY
14 3 4
DDAf,ft RLCS
$~~i¥EFM~It~D~HECK
MOV
8801U
~m
1100.,
1
;NPR DONF.
BIT
CRDY,@RLCS
000200 141212 5$:
2941 032742
RHE
m~~o
~SWflILE
WAITUS
MOV
000024
OO
EMT
RlilT
;1 IIHILE UP
DEC
~m
2m
;NO, GO BACK
RNE
5$
032762
~m
JSR
R5,AFTER
2953 03H 64 004537 021016
;CONTROLLER TIMED OUT
ERRDF
2954 03 10
¥H~m~,ERR5
TRAP
03~17~
.WORD
0
l~ .
8~ 17 4
.WORD
CRTIH
.WORD
ERR5
032H6
;CLEAR VECTOR
CLRVEC ERRVEC
6$:
8Pgog
ERRVEC,RO
MOV
002132
EIIT
03~084
;CHECK FOR FL:LOE, ELSE EXIT SEG
ESCAPE
033006
EMT
CgESCAPE
033006 104010
.WORD
1 001$-.
033010 000024
;010 TRAP OCCUR?
TRPFLG
TST
2958 033012 005737 002142
;NO
BEQ
2959 0330~6
JSR
;\tAFTER
021016
2960
;TRAP ON WRITE
ERRSF
2961
1'fEM51~ERRO
TRAP
RCOD
.IIORD
83~8~2 m3g~
EM57
.WORD
0530 0 01341
•
WORD
ERRO
014244
1$:
8Um
2964
;lUND OF SEGMENTU
ENDSEG
2965 03~034
10001$:
EMT
C$ESEG
104005
8~
H\END OF SEGMENTU
ENDSEG
033036

8WU mn~

t ~g~q~~
9

l!11

mZH

8~HU 8 ~~l

1m °i275~ shzL

bUZ
001d~

2~H

~k6RO

8U1U

nmg

~!I!

001 b

JU
2W

SEQ 0102

gBM mm

SEQ 0103

III

ASSEMBLY ROUTINES
MACYll 304(1052) 22-IOY-78 15135 PlGE 1-74
CZRLBB.Pll
22-IIOY-78 15:28
-"TEST 32** - VRITE CHECK MPR I.TlGRETY
10000$:
SU8U 104005
EMf
' C$ESEG

211l

nuu
jill
ul

,uno OF TEST"·
CSETST
uTEST 33** - VRITE CHECK FUICTION
1"*STlRT OF TEST""

fnUi: EMT

104001

.SBTTL
BGITST
.
STtR!
J~ * ***.*********.*************** •• ******.*.*********~***. taaaa.
HECK OF VRITI CHE~K LOGtC UND~R rL
MODE
I VE .IL~
T CH
A F hL SE TRI bA ~8 VoRBS) FROM
~'f~O Y BU).
WE C ECI(
AT R
R
OCCU.
ii.*' •• * •• a ••••• _. __ ._._. __ .*.* •• _._ ••

033042
033042

IU!

033042
004737

UI8~~
IIII 03
0~6 A8am
21:

29~4

2'B~

g94
I'll
3;5

sum

021356

104004

8S~~8~
81nn 12S
5
81~8'~
d~
033 00

shm

°U

012777
r~777
8 077

102

srlll

299$:

°n
I47U~ un~~
020456
052

39998 g hi~ odU~ 021276
~un~ 020214
2U~
300

J~8~

Slllli
~ j 4: Asam

o ~o

033150

~88~ 033152
J889
3008

mp~

0331~2

SEQ 0104

104004

nun

~4787~
19~6H
020456

U~g~g

JSR
CKERFG
EMT
.1I0RD
BGNSEG
EMT
Moy
MOY
MOV
DEC
8NE
MOY
MOY
CLR
JSR
WRITE
JSR
ESCAPE
EMT
.IIORD
JSR
ESCAPE
EMT
• lIoRD

PC,HDHOME

*_._._ .... __ .. _- *_a_.a._ ...

Hml-.

;HEADS DYER TRACK 0
;HEADS GO HOME OKAY
;USTART OF SEGMENTU

C$BSEG

1~2d!(RO)+ smn?

;fETUP AND IIRITE
; 28 IIORDS

r~F'RO
2 9$

rUF tRLBA

Rl~t·"RLMP
5,LDFUNC

;LOAD BUS ADDRESS
IlieRD CO¥NT
;C EAR D SK ADDRESS
;LOAD THE FUNCTION IN NEXT lIoRD

~~~WTCRDY

f~~I~KF~~RC~~!~g~~E~L~IA~JIT SEG
Cafi8~A!~
A5~CHiRR
SF.
;CHECK F6iH~E~Lgl~L~L~RRE~r~0~iG
Ca5SCAPE
1 00$-•
,"START OF SEGMENT"
~~'SEG CSBSEG
; YER IFY WRITE WITH READ BEFORE VRCHK
CLR
MOY
BUF
LDA 8RLBA
MOV
RLMP
JSR
5,LDF C
,LOAD THE FUNCTION IN NEXT WORD

-12A.6I

ASSEMBLY ROUTINES
MACYll 30A(1052) 22-NOY-78 15:35 PAGE 1-75
CZRLBB.Pll
22-NOV-78 15:28
**TEST 33** - IIRITE CHECK FUNCTION
RElD
3009
ggm~
JSR
021276
010
ESCAPE ~~~IITCRDY
;CHECK FOR FL:LOE, ELSE EXIT SEG
°3328~
EMT
1040AO
3~ ~
C~ESCAPE
011 o
.WORD
gg~M 020214
JSR
f;C RR
;CHECK F6~H~E~Lgl!L~L~RREt~~O~iG
ESCAPE SE
EMT
CgESCAPE
1040~O
.WDRD
0000 0
1 001$-.
3LI
BGNSEG
;"START OF ~EGMENT"
30!5 8HH8 104004
EMT
C$BSEG
3~ll
3$:
CLR
Moy
i8ii
,lIoRD COUNT
rL,A8· fi
i~~g~8 Wgb~
MP
MOV
,8US ADDRf8fD THE FUNCTION IN NEXT VoRD
o
JSR
o~o~n
tL6'UNC
~t
IIRCHK
; IIRITE ChCK
n~~
004537 021276
JSR
,IIAIT FOR CO.TRoLLER REA~Y
24
38
J 25 8~ng~
ESCAPE ~~~VTCRDY
;CHECK FOR FL:LoS, ELSE lIT SEC
o03 56
54
EMT
.WORD
fa5B~t!~

y~
1~1 gIl
g3~h:

l OOU-·

~iini

IS ~ 83 h34 8r~n
8818~1

004537

020214

104005
104005

81U68 104005

8m~~

J~lj 8n~H 104001

18~

033274

STlR~

3~4~

un
3~~4

033274

3047

033274

JSR
R5,CHERR
;CHECK CNTLR FOR ERRORS
ENDSEG
,UEND OF SEGMENTn
10002$:
EMf
C$ESEG
ENDSEG
;nEND OF SEGMEN'"
10001$:
EMT
C$ESEG
ENDSEG
"UNO OF SEGMENTn
10000$:
EMT
C$ESEG
,""END OF TEST**
ENgTST
Ll 066:
EMT
C$ETST
.SBUL ·*TEST 34*· - IIRITE CHECK FURCTIoN INTERRUPT
BGNTST
,"*START OF TEST**

',**
J

o~S 033274

~ 46
4~

033260

1811 831~U
'!II gJdU
3 Jj
3h

-b

**********************************-*************************

OF WRITE CHECK LPG~E UND,R I'I~URUP' MODt
,vi ~ Ak~Kw~aI' ~HE~~R~RSO ccBI~ DUE DO N~¥ gfi~c RR~DrEnRRXL'IUF).
HEC

,INCREMENT AT THIS TIME.

fJIII****************************.****************~**************
004737

021356

JSR

PC,HDHOME

,HElDS OVER TRACK 0

SEQ 0105

ASSEMBLY ROOTINES
"'''CYll 30A(1052 ) 22-IIOY-18 15:35 PAGE 1-16
ClRLBB.Pll
22-HOV-18 15:28
**T£5T 34** - WRITE CHECK FUNCTION INTERRUPT
CKERFG
,HEADS GO HOME OKAY
30:8 031380
EMf
f
CiEXl
• IIORD
11~ ~g~~H
L 00 1-•
,USURf OF SEGMElITn
104004
m SEG C$BSEG
MOV
'SJTUP lND WRITE
MOY
IrF,RO
299$:
MOV
n2~~!(RO)+ , TEWORDS
DEC
;DOIIE77
f55
OOJ14
8NE
2
9$
O~~
HOV
;LOAD BUS ADDRESS
858
146~820
UF6 @RLBl
0~1052 146
MOV
-12
.,@RLMP
;1I0RD COUNT
85g
;CLEAR D}f5A~D¥ftiS~UNCTIOII IN NEXT 1I0RD
00
021
~~e~FUIIC
WRITE
033360
88m, 021216
JSR
~~fllfCRDY
$~:I~KF~gRc~rIr8~~E~L~fA~IIT SEG
ESCAPE
EMT
.WORD
£aml~~
4531 020214
JSR
RS~CH RR
ESCAPE SE
8
;CHECK F6~HfE~Lg~!L~L~~REir¥0~~G
7~
EMT
~gESCAPE
o 3400
.WORD
OOOi-'
;YERIFY WRITE WITH RE D BEFORE URCHK
CLR
03348 2 00~971 A368~~ 146630
~069
MOY
BUF
070
0l 71
LDA @RLBA
HOY
146626
-12fi·
#RLMP
A7~600
mt~~
;LOAD THE FUNCTION IN NEXT WORD
JSR
5,LDF 6 C
20456
03U 2 804~~1
READ
O~ 34 ~60 88m1 021276
JSR
~~~WTCRDY
;CHECK
FOR
FL:LOE, ELSE EXIT SEG
ESCAPE
30p 0334~4
EMT
a040~0
.WORD
~~~~~i~:
og~~
R5 CH RR
JSR
020214
l4O
;CHECK F&~H~£~Lg~;L~L~~RE~~~O~~G
ESCAPE SE 6
031
O~ 44
EMT
3W
.WORD
~m~!~~
H\START OF SEGMENTU
BGJlSEG
307
03345
EMT
C$BSEG
104004
03345

SEQ 0106

3~il 81mm

i l nun ~u~n

~nn~

nun 8il~rg3~ ho!U

ShH

un 81lr
81 ~8 68 m3

o
3~1~ op F mm
3~gl

'A ¥

~81i
o
m

3~11 mM

,
37~ 8W b8am
8

3084
3085

INTFLG
CLR
CLR
IRLDA
MOY
-12B'~fRLMP
MOV
BUF,@ BA
SETPRI rRIOO
MOV
PRIOO,RO
EMT
~SPRI
JSR
R ,LDFUNC
WRCHKIINTE

005031

00~~44
gUU~ gmH H
68~
033470
003052 lm~&

~m 83~H~

012777

ohso ~HZ~~
3~n 8B~~3

883iB

000000
020456

;CLEAR INTERRUPT OCCURANCE FLAG
;SET UP WORD COUNT
;SET UP BUS ADDRESS
; PRIORITY TO 0
;WRITE c~~g~Du~M~RF¥~~I~~~pJ"

NEXT IiORD

MACY11 301(1052) 22-NOV-78 15:35 PAGE 1-77
ASSEMBLY ROUTINES
**TEST 34*· - WRITE CHECK FUNCTION INTERRUPT
22-NOV-78 15:28
elRLBB. P11
JSR
004537 021276
3090
!~A~~KF~~RI~lir~~~TELSE EXIT SEG
ESCAPE ~~~WTCRDY
3091
EMT
033516 b04010
C~ESCAPE
• IIORD
1 001$- •
033520
00036
3m
SETPRI ~PRI07
;SET PRIORITY TO 1
30~3
MOV
PRI07,RO
0 2700 000340
EMT
A 4qn 002144
TST
I~~~r~
$Q~g_~~I~~ftU~~_B~~g~t
BNE
2$
00r004
3096
;WRITE DID NOT INTERRUPT
ERRDF
3097
~$d~SgtERRO
TRAP
.WORD
4
b8aa8~
.WORD
EM60
SB~~~ 013537
.WORD
ERRO
014244
J544
ESCAPE SEG
;CHECK FOR FL:LOE, ELSE EXIT SEG
2$:
3~~~ 04O O
EMT
C~ESCAPE
•
1I0RD
1 001$- •
033550 A000 A6
;CHECK CMILR FOR ERRORS
JSR
R5,CHERR
033552 004537 020214
;nERD OF SEGMEllnt
ENDSEG
H8~ 033556
10001$:
EMT
CSESEG
o 556
556 104005
ENDSEG
HUND OF SEGMENTU
3m 033560
10000S:
g~~~~g 104005
EMT
CSESEG
,·*END OF TEST **
ENDTST
3 ~4 033562
LI0067:
EMT
CSETST
104001
.SBTTL **TESI 35** - PROPER INCREMENT OF RI,Bl ON WRITE CHECK
3106
;**START OF TEST**
BGNTST
H8~ 033564

mm
j~d m~n 8
sum

JU g°i

3~U

°U

t3l

3m mm

nn 033564
3t~l

~!t~~********************************.**************** a*** •• *****

3115

~WE

;~HECK THAT THE RLBA WILL INCREMENT PROPERLY AFTER THE

~3it4
I

033564

un 8B~7g

;,***************************************************** •• *****.**

033600

004737
104032
000256

033604

104004
012700

0335~4

~1~1 sum
jtn
3W

;WRITE CHECK WAS FINISHED THE RL8A SHOULD BE 128 WOReS ~256 BYT~S)
;CREATER. STARTING RLBA IS "BUF"~ ENDING SHOULD BE 'BU + 256.
WILL MONITOR ALL ERRORS AND R PORT THEM ACCORDINGLY
TARS

021356

003052

JSR
CKERFG
EMT
• WORD
BGNSEG
EMT
MOV

PC,HDHOME
Ci EXIT
L
0070- •
C$BSEG
#BUF,RO

;HEADS OVER TRACK 0
;HEADS GO HOME OKAY
;USTART OF SEGMENTU
;SETUP AND WRITE

SEQ 0101

ASSEMBLY ROUTIHES
MACYU 30A(1052) 22-110'-78 15135 PAGE 1-78
CIRLBR.Pll
22-NOV-78 15:28
*"TEST 35*" - PROPER INCREMENT OF RLBA OH WRITE CHECK
MOY
ooo~og
iUITIiORDS
125 5
299$:
n~h~~! (RO) + fDo
o~ro
E~7
~R~
o
83 6 g
BilE
299$

SEQ 0108

tr urn
OOli74

"fI"ul h sinH nun utm
t
o~iU~

u~ 8838U
0045
021276

31f

033659
°f65

8 U~9 A83°~~
004~37 020214

1\11 hUtg
0336~0 0001 4
1040~0

03i67~
03
~7
03 04

8~~~H A4~~~~

146~40

th~g6 146 36
}h~ 83~r~ 0045
8o~ ag71'17 021276

gh'i~
83~~
~ 08~b~
mm
mm
~m
~u~

3tti
314

A040~0

8h7

033740
033740

dU
m8
p55
15~
3p
3 58

f59

3163

3m
~165
166

020214

104004

m~H 005077 ~46~00
gnr~ gBH~ lq~6g~
033 ~2 01~73
00~05~
033770
033776

gU88~
34 m

OUOll

40 0
o0~40r
8H8
034024

06 737

883g~7

004 3~
A8a818
004537
104010
OOOO~O
0177 7

=s¥

tIl}

Jb8AR

2g8R~DDRESS
I!YSfi!~UtMP
CLR
iCLEAR D~~~AftD¥nIS~OIlCTIO" III lEU WORD
~~eftFONC
JSR
WRITE
iW1IT FOR CO.TROLLER READY
JSR
iCHECK FOR FL:LDE, ELSE EXIT SEG
ESCAPE ~l~WTCRDY
EMT
Caml~~
.WORD
JSR
h~CH~RR
SE
iCHECK F6~R~f~L8=~L~L~~RE~~~0~~G
ES~APE
EM
CgESC1PE
.1II0RD
0001-.
)VERIFY WRITE WI H RE 0 BEFORE WRCHK
CLR
MOY
i~b~A@RLBA
... OV
RLMP
;LOAD THE FUNCTION IN NEXT WORD
5,LDF C
JSR
REID
JSR
~~~WTCRDY
;CHECK FOR FL:LOE, ELSE EXIT SEG
ESCAPE
EMT
Cm~l~~
.WORD
JSR
As~CHiRR
;CHECK F6~H~E~L81;L~L~~RE~~~O~~G
ESCAPE SE
EMT
mm~;
.WORD
;\'START OF SEGMENT\\
BGNSEG
EMT
CSBSEG
3$:
CLR
;SET UP BUS ADDRESS
MOY
BUF @RLBI
;WORD COUNT
MOV
DA
-12A·6~RLMP
iFORM EXPECTED BUS ADDRESS
HOV
~g~~~GDah
,APTER WRITE
ADD
R5,LDFUIIC
JSR
fiLOAD THE FUNCTION IN NEXT 1I0RD
liRCHK
~=~liEF8REg~NTROLLER REIDY
JSR
~~~ilTCRDY
;CHECK FOR FL:LOE, ELSE EXIT SEG
ESCAPE
&MT
nm~~~
• WORD
JSR
;CHECK F6~H~f~L8~~L~L~~RE~r¥0~~G
ESCAPE ~~~CHERR
EMT
cgESCAPE
.WORD
1 001$-.
@RLBA,BDDAT
;READ °RLBA· FOR PRESENT ADDRESS
HOV

00 40
020456
021276

AUfU
08~166

020214
146214

002170

-12fi.6I

MACYll 30A(1052) 22-NOY-78 15:35 PIGE 1-79
ASSEMBLY ROUTINES
**TEST 35*· - PROPER INCREMENT OF RLBA ON WRITE CHECK
CZRLBB.Pll
22-IIOY-78 15:28
;010 ·BA· INCREMENT PROPERLY?
CHP
002170 002166
~~DAT,GDDAT
;YES, CONTINUE
BEQ
~16S gUgl~
3 ~O
;BA DID NOT INCREMENT
ERRDF
3171 034042
~$~~~gAfERR4
TRAP
.IIORD
5
o0~4042
4044 A8~3~~
.IIORD
5
~~u
.ilORD
oOp5
4410
2$:
034052
;nEND OF SEGMENTt\
ENDSEG
3175 034052
10001S:
0~405~ 104005
EMT
CSESEG
ENDSEG
;unD OF SEGMENTU
3m 83m
10000$:
34054 104005
CS&S&G
EMT
~4854
;**EHD OF TEST**
ENDTST
o 4 56
L10070:
CSETST
&MT
8U8~~ 104001
.SBUL '*TEST 36" - PROPER INCREMENT OF RLDA ON URITE CHECK
i*·START OF TEST*.
BGNTST
~m 034060
~18~ 034060
STARS
,-** •••• **.****.*.***.* •• ***********.******.**.******.***********
,fHECK THAT THE SECTOR INCREMENTS AFTER THE WRITE CHECK WIS FINISHED.
3th
;i FULL SECTOR WRITE CH§CK THE RLDA SHOULD REFLECT AN INCREMEIT
§OF THE SECOTR. "GOD AT WAS THE EXPECTED RLDA.
TARS
3 8~ 034060

il !
'~UIl

gum
8

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

~m 0J 406O 004737 021356
4864
~l!~ o0340
034 H ~040~2
002 4

3193

034876
034

104004

8p18~ 81po 88~Og2

o 4i1O

hA 125~5~

go~m
lUi
3~d 8UW
034 14
0341 6

oq~g~~

h8~gt
4W
88dU
}18~06 8031146
0045
021276
8lFH

07
( 3)

03 152
034 52

104010

299$:

um~

JSR
CKERFG
EMT
.WORD
BGNSEG
EMT
HOV
MOV
MOY
DEC
BNE
MOY
MOY
CLR
JSR
WRITE
JSR
ESCAPE
EMT

PC,HDHOME

amI-.
C$BSEG

;HEADS OVER TRACK 0
iH~ADS GO HOME OKAY
;nSTART OF SEGMENTU

rUF,RO

;SETUP AND WRITE
;128 WORDS
iWRITE
; DOIIE77

rUF
8RLBA
-12fi.,@RLMP
RLDA
5,LDFUNC

iL01D BUS ADDRESS
i!lORD COUNT
;CLEAR DISK ADDRESS
iLOAD THE FUNCTION II NEXT IIORD
iWAIT FOR CONTROLLER REIDY
;CHECK FOR FL:LOE, ELSE EXIT SEC

Bh~~!(RO)+
2~9S

~~~WTCRDY

CSESCAPE

SEQ 0109

A~~eAtiLt

MA~Yll

kUu(l.e~

elRLBS.PH
22-NOV-78 15:28
034154
88~H~ 020214
OJjiU
164 A83n~

dg~

~UA\lU~~)

19oOOi-.

r! UUU

d~d~

gOi

Illlll

II 8t*1 9

A8~n~
004 7

8 t 3j
I
8 ~ 9 A8m~
J ~l m~u 104004

U2U~

021276

i ~i 8un~ m9H mu~
8n~H mu~ lm~~
I I~ 8un~
g34r 88a53~
7

145776

~H4

o 45g

U gum

~04010

IU
3
3 36
3237

034 O~
03430
034304

00040
004537

020456
021276
020214

8WH mm
0~3737 Og~232
o 166 88~Hg
ogitn~
4 2 8 ~m
BH 034334
8UU~ b83m

II!!

mm sum

J3III46
l~ 034344
3 47

034344

MACYll 301(052) 22-NDV-18 15:35 PAGE 1-81
ASSEMBLY ROUTINES
**TE51 36** - PROPER INCREMENT OF RLoA ON WRITE CHECK
22-NOY-78 15:28
ClRLBB.Pll
10001$:
EMT
C$ESEC
8~t~U 104005
;\lEND OF SEGMENT"
BRDSEC
10000$:
4346
EMT
CSESEG
o 4346 104005
;**END OF TEST·ENDTST
Ll00n:
5O
C$ETS1
EMT
104001
3 51
.SBTTL ·*TEST 37·· - MULTIPLE SECTOR WRITE CHECK
3252
3253
; **START OF TEST**
BGNTST
3254 034352
STARS
H~~ 034352
•. ***************************************************************
,fHECK FOR MULTIPLE SECTOR WRITE CHECK. THIS TEST CHECKS
;THAT TWO SECTORS CAN BE SUCCESSFULLY CHE+KED. WE LOto
;4
WORD Hounl
3~g~
;SECTOR
T UOFSE ef9DR W~~DSAN ~ON~
V RIS~CTOR
Y THAT+ HEWCR~~
R ASTAR
DOES ING AT
~A DOUBLE INCREMENT EACH TIME.
TARS
034352

31U o°r

3~i!
3~5 8°ring
~m

II!!
i l~g~

~ 66

~U~

3~~~

;;******************************* •• ********.*********************

004737 021356
352
°H
o034364
356
104032
034366
034370
034370

000354

104004

ooogoo
00~16O
62
000 00 00

o
°B
nn o85~m
441g
°Hj~~ 12525~

52H

5
3r
3 76

0~4406

0344~

0344 2
034424

737
737

8mo~

m~g2

8~ P

299$:

801374

0p777
5606
777 ~m;~ U5610
HU 8~m~ o
8~44~~
6g
88U
glnn
ggn!~
14 ~2
8db~ 004537 02 56

un
~w g~lT

OOOOH
0045
~04010

021276

034503
ogm~ 020214
3~d
8~~m
3(~~ 034506
104010

"
SEQ 0110

fI5B8i~~

020214

3 ~~
3

PAGE 1-80
~~-.UW-·'U
l:':J~
**T£5T 36** - PROPER IICRENE.T OF RLD& DB WRITE CHECK
.WORD
~5R
R CH RR
6~H'fJ( CIITLR FOR ERROR
S¥lPE Sl~
,CHECK ,
ILOE, ELSE EXIT S G
M
n~m;
R iO·SEFORE WReHK
; VERIFY w:Y¥R WI
CLR
MOV
SLDA 8RLB
-~~~.6IRtMP
;LOAD THE rUICTIO. IN WEXT WORD
~~I
5, OF C
READ
R5~WTCRDY
,CHECK FOR FL:LOE, ELSE EXIT SEC
i~CAPE
EMT
oliRRD
JS
;CHECK F6~HJE~Lg~!L~L~~REfr¥o~~c
ESCAPE ~E~CH RR
EMT
£8~Bgt~~
.WORD
BCNSEG
;"START OF SEGMENT\t
EMT
C$BSEG
3$:
ggCH,8RLDA
;SETUP DISK ADDRESS
~&6
;CREATE EXPECTED SECTOR
INC
GDDn
MOV
$~~¥8pC~H~TADDRESS
'ii~~~MtnMP
HOY
R5,LDFU/IC
JSR
~LOAD THE FUNCTioN IN NEXT WORD
WRCHK
;WRITE C ECK
;WAIT FOR CD. TROLLER READY
JSR
~~~WTCRDY
ESCAPE
;CHECK FOR FL:LOE, ELSE EXIT SEC
EMT
C~ESCAPE
• IIORo
1 001$- •
JSR
;CHECK F6~H~E~Lg~!L~L~~RE~~~O~~C
ESCAPE ~~~CHERR
EMT
CAPE
Cm
• IIORD
1
1$-•
;READ DISK ADDRESS
MOV
E.oA BDDAT
CMP
~gDAf,BDDAT
~V~g,s~~I2~HINfi~;M~I~0&~O~~~~1
BEQ
;oA DID NOT INCREMENT
ERRDF
6.~EM62~ERR4
TRAP
RCOD
.WORD
.IIORD
EH62
.IIORD
ERR4
2$:
;\\END OF SEGMENT"
EIIDSEG

1$:

JSR
CKERFC
EMT
• WORD
BGNSEG
EMT
MOY
MOV
MOV
MOV
MOV
DEC
BHE
MDV
MOV
HOV
BIS
HOV
JSR
IIRITE
JSR
ESCAPE
EMT
• liaRD
JSR
ESCAPE
EMT

PC,HDHOHE

;HEADS OVER TRACK 0
;HEADS GO HOME OKAY

CiEXP
L
00 2-•
;USTART OF SEGMENn%

C$ASEG
r'TMPO
g6~M~~
129~ Rt
P52~2,(RO)+
299$
IBUF~@RLBA

-12 068RLMP
AT
TMM~A ' C
GDDAT
GDDdf8RLDA
R5,LD NC
R5 61r1TCRDY

~&ESCAPE

1 OOOt •
R5~CH RR
SE
CSESCAPE

;iETUP AND WRITE
; ~9 WORDS

$~0~H1

!~gaB 2g~N.DDRESS

;LOAD THE FUNCTION IN NEXT WORD
;IIAIT FOR CONTROLLER READY
,CHECK FOR FLILOE, ELSE EXIT SEG
;CHECK F6~H~E~Lg~!L~L~~RE~~¥0~~c

SEQ 0111

SEQ 0112

}LOAD THE FUHCTIOn 1M REXT WORD

BGNSEG
EMT

104010
000042
004537
104010
000032

020214

001404

~04462

o~gm

014410

2$:

104006

MOV
BIS
MOY
ADD
MOV
MOV
JSR
VRCHK
JSR
ESCAPE
EMT
.IIORD
JSR
ESCAPE
EMT
• WORD
MOV
CMP
BEQ
ERRDF
TRAP
.WORD
.WORD
.WORD
CKLOOP
EMT

CSBSEG

;'tSTART OF SEGMERTt\

TMPl,GDDAT
TMPO GDDU
GDDAf 6iRLDA

;GET CYLINDER
;GET SECTOR
;SET DISK ADDRESS-SECTOR 0

R5,LDFUNC

;WRITE C~~g:D THE FUNCTION IN NEXT WORD
;WAIT FOR CONTROLLER READY?
;CHECK FOR FL:LOE, ELSE EXIT SEG

i~6~D@RlBA
-12§.,@RLMP

~~~WTCRDY

ia~m~~

!~~t ~3~Ei6fiRESS2

;WORD COUNT-SECTOR+l WORD

~~~CHERR

CgESCAPE
1 00IS- •

~5gb~gg~Ir
2S

+$d~M~ERR4
7
EM63
ERR4

;READ DISK ADDRESS
;IS DISK ADDRESS CORRECT
;YES, BRANCH NO, REPORT ERROR
;DISK ADDRESS NOT CORRECT

CSCLPI

22-NOY-7B 15: 35 PAGE I-B3
~ACYll 301(1052)
ASSEMBLY ROUTINES
·*TEST 37** - MULTIPLE SECTOR WRITE CHECK
22-NOV-7B 15:2B
CZRLBB.Pll
;\tEND OF SEGMENTU
ERDSEG
3331 0347~~
10001S:
0347
EMT
CSESEG
034722 104005
TMPO
;NEXT SECTOR
INC
034724
5 P7 002160
; AT END?
CMP
000046 002160
6,TMPO
J334
BNE
80hU
;NO, GO ~ti~ND OF SEGMENTlt
ENDSEG
3 p5
36 o 4~40
10000S:
034740
EMT
CSESEG
034740 104005
;*·END OF TES1**
034~4~
H8~H:
034
034 4
104001
~~+EST
3ij~~T~TFORCE
DCK
WITH
WRITE
CHECK
.SBTTL
;"'-START
OF TEST*BGNTST
034744
3~4
STARS
h~~ 034744

8jPJ& °3

3~1~

~ni

Jf~*~~*:*~~=*:i;:*;;i;~*~;~~;:*;~;;*i;*;~;~*;;*::i;i:~ ***********

3345
3r2~6

034744

349

34744

I ~8 8o~H~g

,A ~ECTOR AND CHANGING A WORD IN MEMORY BEFORE WRITE CHECK
pS ISSUED ••
TARS

;;****************************************************.**.*******

004737

021356

EHMk

3U~ 034760 bgm~
gum

1 grH~

335
3H
335

104004
012700

034764

amn

003052
000~0~
125
5

035004

012777
01~777
00 077

mu~

003052
p760~
4522
020456
021276

104010
000200
004537

020214

n~l o035002
~000
001374

3357

~~~S
360
3361

~~~1
364
33r

g~~m

8~~m

035032
8J5m
035040

~~~l 8n8~~ b8ms

3m
3369

145232
145230

8~5
46
5050

035052
035056

m~H

PC,HDHOME
;HEADS OVER TRACK 0
JSR
CKERFG
;HEADS GO HOME OKAY
EMT
.IIORD
;nSTART OF SEGMERTn
BGNSEG
CSBSEG
EMT
;SETUP
ANO
WRITE
MOV
rUF,RO
HOV
i1~B WORDS
;Ii ITE
MOV
299S:
i'~2~~!(RO)+
;DONE11
DEC
BNE
299$
MOV
;LOAD BUS ADDRESS
rUY
@RLBA
!>lOY
-12fi.,@RLMP
!~~~~Rcgy~~ ADDRESS
CLR
RLDA
JSR
5,LDFUHC
;LOAD THE FUNCTION IN NEXT IIORD
WRITE
JSR
;WAIT FOR CONTROLLER READY
;CHECK FOR FL:LOE, ELSE EXIT SEG
ESCAPE ~~~WTCRDY
EMT
C8ESCAPE
.WORD
1 OOOt.
JSR
R5~CH RR
ESCAPE SE
;CHECK F6~HfE~L~~!L~L~~RE~¥¥0~~G
EMT
mi~8A!:
.WORD
;VERIFY WRITE WITH REiD BEFORE WRCHK
CLR
tRLDA
MOV
BUF,I!RLBA

A4517~

0305

145160

SEQ 0113

MACY11 301(1052) 22-NOY-78 15:35 PACE 1-B4
ASSEMBLY ROUTINES
uTEST 38** - FORCE DCK WITH WRITE CHECK
eZRLBB. Pll
22-"OY-78 15:28
145156
77600
'5!l8F6I~LMP
,LOAD THE FUNCTION III NEXT WORD
~2~
A20456
11~i °i~g~4 °8U7~
READ
0014
JSR
004537 021276
R5~IITCRDY
,CHECK FOR FLILOE, ELSE EXIT SEC
ESCAPE
5
8~
£N1
j~~RD
020214
R5~CHhR
,CHECK ,6~HJf~L&=~LIL~~REf"O~~c
APE
.1I0RD
o8m~
,\\START OF SEGMENTtt
BCNSEG
EMT
CSBSEG
104004
3 8
8UF
CLR
HB~ 0~5122
005°H 003052
CLR
o 5126 0050
1451!4
MOY
BUF
LDA ~RLBl
Oj5132 012
OO~O 2 145 04
~~~i~I~gu~~CTOR 40 OF CYL. ADDR.
-12fi.,t!RLMP
MOV
1
o
5140
o
2777
11
600
145
02
86
JSR
R5,LDFUNC
ALOAD THE FONCTION IN NEXT WORD
U~ 035146 004531 020456
; WRITE C ECK
WRCHK
3~B9
5152 000002
JSR
004531 021216
3 90
~~~WTCROY
~~AI~KF~~RC~~!~8k~E~L~~A~lIT
SEG
ESCAPE
3391
EHT
CgESCAPE
• WORD
1 00IS- •
8~~m 104010
000054
MOV
0~51~4
Ei'~iT~~Bo
!~~~ER~fi~OR BITS
BIC
00 60
51 2 8lHH g82H~ 00~16O
3394 o
CHP
iBITl~IBITl1'TMP6
~OCK SET.
3395 035200 02 213~ 10looo 00 160
BEQ
~
HE , CONTINUE
m~g
JSR
R ,CHERR
020214
B~~
CKLOOP
IS:
3398 035214
EMT
CSCLPI
035214 104006
3~§~
CMP
022131 104000 002160
~~IT15IBITl1,TMPO
3400
BEQ
001404
j:8~
ERROF
¥3.~EM65,ERRO
TRAP
2j E CODE
m~ig
.WORD
035 ~ 014105
.WORD
EM65
0~523
.WORD
ERRO
o 5234 014244
;liHEN FORCED
035236
2S:
3406
;UEND OF SEGMENn\
ENDSEG
3401
10001S:
m~lg 104005
EMT
CSESEG
0j5~
6
;%%F.ND OF SEGHENT\\
ENDSF.G
3m o 5 40
10000S:
035240
EMT
CSESEG
104005
035~40
i**END
OF T£ST**
EHDTST
3m 035 42
L10073:
EMT
CSETST
o0j5~42
5 42 104001

q
" ST
!l Ih
J

~&un

~ jl 8m~8

~hg~A~E

~h8~t~~

liH~

~~U

SEQ 0114

°i
Mm

mm
mm

MACY11 30A(1052) 22-NOV-18 15:35 PAGE 1-85
ASSEMBLY ROUTINES
··TEST 3B** - FORCE DCK WITH WRITE CHECK
22-NOY-18 15:2B
CZRLBB.Pll
flO
411

3~B

3414
34~5
34 6

035244

.SBTTL
BGNTST

035244

STARS

...................•....................••............ _..........

035244
035~50
035 56
035260

004731
4032
A00322

021356

035264

012100

003052

3~jl
344
mm 104004
~h~

81~Hb ~m~~
ud mH~ shm

un
mm
~m

3433
34~4
j4
4 56

835~04

°i~3~~

S ~m

SUP7
o O~~

88~~h

003052
l"~OO

0~a4~t

~H~

004531 021216
mm
035336 104glo

l~il
34l

035350

144732
144130

0
m3~~ 000
004537 020214
5~U mlu
104010

3444
~445
446
3441
3448
3449

000230

035352

14467~

144660
144656
n~gBo
sl~ni
0456
m~~l 803~3

m~5~

g3~t~2 08~b,
3m °r
3m
3451

4OO
o 5484

0354 0
35414
8 35414
035416

*.-•. -....

STARS

3~H

34~0
34
34 ~

"TEST 39** - FORCE DCK WITH WR ITE CHECK INTERRUPT
;·-START OF TEST*·

•• ***************************** •• **********.**.*.* •••••
~~ORCE A DCK IN INTERRUPT MODE

~h~ 035244

SEQ 0115

0045h

021276

A040~O

4010
A8 0162

020214

PC,HDHOME
,HEADS OVER TRACK 0
JSR
,HEADS GD HOME OKAY
CKERFG
EMT
EXIT
Ci
.WORD
L 0014-.
,USTART OF SEGMENTU
BGNSEG
EMT
CSBSEG
;SETUP AND WRITE
MOV
rUF,RO
MOV
B~i~~!(RO)' !~a¥T~ORDS
299$ :
MOV
~DONE?1
DEC
BNE
2§9S
;LOAD BUS ADDRESS
MOV
rUF
@RLBl
;IIORD COUNT
-12L,@RLMP
MOV
;CLEAR DISK ADDRESS
RLDA
CLR
;LOA~ THE FU.NCTION IN NEXT 1i0RD
JSR
5,LDFUHC
WRITE
;WAIT FOR CONTROLLER READY
JSR
~f~WTCRDY
;CHECK FOR FL:LOE, ELSE EXIT SEG
ESCAPE
EMT
CgF.~CAPE
.IiORD
1 0 0i-.
R5
CH
RR
JSR
;CHECK F6~H~f~Lg~!L~L~~RE~r¥OM~G
ESCAPE Sa~
EMT
C ESCAPE
.1I0RD
1 0001-.
;VERIFV WRITE WITH RE D BEFORE WRCHK
CLR
BUF
MOV
LOA @RL8A
HOV
RLMP
-12fi'6I
;LOAD THE FUNCTION IN NEXT IIORD
5,LDF
C
JSR
READ
R5,WTCRDY
JSR
;CHECK FOR FL:LOE, ELSE EXIT SEC
ESCAPE SEG
EMT
CgESijAPE
,IIORD
1 00
JSR
R5~CH RR
;CHECK F6fiH~E~Lg~;L~L~~RE~~~O~~G
ESCAPE SE
EMT
Im~t~~
.1I0RD

f-.

ASSEMBLY ROUTINES
MACYII
CZRLBB.Pll
22-IOY-78 15128

IIiTERROP'!'
,"START OF SEGMEIT.'

SEQ 0116

,CLEAR III'!'ERRUPT OCCUR liCE FLAG

~LDAD

THE FUHCTID. IN IEXT IIDRD

~=~IJEF&REg~.TROLLER READY

;010 INTERRUPT DCCUR

2$:

ERRor
TRAP
.IIORD
.IIORD
.IIORD
ESCAPE
EMT
• IIORD

24· L EM66,ERRO
UEHCODE
EM66
ERRO

SaC
C ESCAPE

IYES DKAY
;ND INTERRUPT FRDM DCK

;CHECK FOR FL:LOE, ELSE EXIT SEG

1 001$- •

;9~

CMP
BEQ

81~~~~ ~::~:~

1$:

020214
104000

002160

JSR

CKLDDP
EMT
CMP
8EQ
ERRDF

~:~CD

.IIDRD
.IIDRD

R5,CHERR
C$CLPI
tBITI5IBIT11,TMPO
L EM65,ERRO

l~E"CDDE

EM65
ERRO

3$:
10001$:

ENDSEC

;VHEN FORtED
;\'END OF SECMENT"

MACYll 301(1052) 22-NDV-78 15:35 PACE 1-87
15:28
**TEST 39** - FORCE DCK IIITH IIRITE CHECK INTERRUPT
C$ESEG
EMT
ENDSEG
;\tEND DF SECMENT"
10000$: EMT
C$ESEG
;**END DF TEST**
EMT
C$ETST

frBH1:

.SBTTL
BCNTST

**TEST 40** - CHECK ZERO FILL DN WRITE WI'!'K VRITE CHECK
;**START OF TEST**

STARS

i'-**********·****·_·_*·_***************************** *******.***

,VHER WRITING PARTIAL SECTORS (LESS THAN 128 WDRDS) THE
;CDNTRDLLER WILL FILL IN THE R£MAINING PDRTIDR OF
;THE SECTOR W 'I'H ZERD 1I0RDS. ~HECK THIS FE TORE CAN BE WRITE CHECtED
~'lig WDRD CDUNTS FROM 1 TD 12
,,*************.*****.*********.********* •• ****.*.*.*********.***

021356

JSR

PC,HDHDME

.~DRD

EHHk

CKERFG
EMT
BGNSEG
EMT
002162

002162

UUJ~ 144352
A~0452

021276
020214

33$:
3$:

C$8SEG
1 TMPI
B F,RO

1~~~2~~ho)+
dPl,RO
RO
RO ARLMP
86F1'RLBA
RLD
5,LDFUNC

;HEADS OYER TRACK 0
;HEADS GO HDME OKAY
;"START OF SEGMENT"
;START WITH A WDRD WRITE

~=:I¥~ y~'F5DR~~T~L~2¥a~6G=E;k~RE
19n~~ &9.nG83~FII~RSFER < 128

$!~f ¥aA=A~IR WDRD CDONT
;NEGATE FDR RLMP
;STDRE WDRD COUNT AWAY
;SET OP RLBA
;WRITE ItLDAD THE FUNCTION IN NEXT WDRD
;WAIT FDR WRITE TO FINISH
;CHECK FOR FL:LDE, ELSE EXIT SEG

SEQ 0117

ASSEMBLY ROUTINES
"lCY 11 301(1052) 22-"OV-18 15:35 PAGE 1-8B
·*TEST 40** - CHECK ZERO FILL OR WRITE WITH WRITE CHECK
22-NOY-78 15:28
ClRLBB.P11
CLR
144306
MOY
LDA RLBA
n4
BUF'fi
~m
MOY
R~Pl, 0
NEG
HOV
~g~~~~~:c
;LOAD THE FUNCTION IN HEXT 1I0RD
A44300
20456
JSR
READ
0045
021276
JSR
~~~IITCRDY
;CHECK
FOR
FL:LOE, ELSE EXIT SEG
ESCAPE
576
EMT
~~mA~:
.1I0RD
~~m 004537 020214
JSR
R ~CH~RR
ESCAPE SE
;CHECK F6~H~E~Lg~;L~L~~RF.~~¥O~~G
EMT
~mg~~
.1I0RD
BGNSEG
;USTART OF SEGMENTU
331 45 035776
EMT
C~BSEG
35 6 604~H
;SET UP TO READ
144236
MOV
UF,~RLBA
MOV
8~~00g
o!~ 00 mn~
R~Pl, 0
NEG
354B
36012 o 5400
MOV
0360r
144UO
RO(e RLHP
;SECTOR
~t ~FUNC
,LOAD THE FUNCTION IN NEXT 1I0RD
~ 00~6~ ~~~ ~
IIRCHK
000 g2
JSR
0045 7 021276
§~~IITCRDY
$~A~eKT~5RW~L~l~~;HEl~~
~~l~KSEG
ESCAPE
~~~l
EMT
036036
Hm:~:
.WORD
036040
JSR
R5 ECHERR
6CHECK CHTLR FOR ERRORS
55~ g5~m 005
004~r1 020214
,WAS ERR R A DCK77
002124
TST
~; RC
~55
BNE
8 036052 0010 3
l~~~~KG~~~ ~~~L~~~OELSE EXIT SEG
lOS:
ESCAPE S~G
3559
EMT
8m~: 104010
cgESCAPE
.WORD
036056 000016
~9~0 1 s-.
BR
;SKIP AROUND
000405
;YES, CHECK FOR LOOP FIRST
8$:
CKLOOP
561 8i 606O
C
CLP1
104006
EMT
o ~m
ERRDF
036064
3 .~EM64,F.RRI4
TRAP
036064 104462
HE CODE
• \lORD
000045
.WORD
EM64
8i68~8
• WORD
ERR14
o ~O 2
;EXIT TEST
99$:
036074
ENDSEG
;HEND OF SEGMENU\
0360f
10001$:
0360 4
C$ESEG
EMT
0360 4 104005
INC
TMPI
002162
35~6 0)6076 005,37 002162
CMP
000200
036102
HP,#12B.
BNE
~m 036110 8H2~6
3569
;\\END OF SEGMENT\\
ENDSEG
O
10000$:
EMT
C$ESEG
104005

°r8

8°~nZ mu~

1111 n~~~~

'!"ll

Illl

sUi
8o~~~~~

SEQ 0118

~U mm
U mm mm
~H~ 8 66
°UB

86°q
un 8m1
8360 l

JI!

:ItI

JrH gUm

MACY11 30A(1052) 22-NOY-78 15:35 PAGE 1-89
ASSEM8LY ROUTINES
""TEST 40** - CHECK ZERO FILL ON WRITE WITH WRITE CHECK
22-NOY-78 15:28
CZRLBB.Pll
,--END OF TEST"
ENDTST
3511
L10075:
036114 104001
• SBTTL ~~iEST 4i~~T:TEXTENDED CHECK OF WR ITE CHECK FUNCTION
3
357
;**START OF TEST*'"
BGNTST
3574 036116
~575
STARS
576 036116
.• ********************************.***********************.*.****
StHECK OF WRITE CHECK LOGIC UNDER FLAG MODE
3m
;THIS TEST IS DONE IIITH ALL BIT PATT~RNS
~518
; WE WILL WRITE CHECK A FULL SECTOR 128 1I0RDS) FROM
~MENORY
(BUF). WE CHECK THAT NO ERR RS OCCUR.
3~BO
TARS
35~1 036116

;;***************************************************************

3P
3
35 834
35B5
3

°r8
r~
3~

~~aB
35~9

3~96
~~~}

359
3594
3595

J~gS

j600
601

~68~

116
~m

036132
036134
036140
036140

036154
036156
036160

002504

104004

20
00530~
00137

~m3~ um~
144044
8Un~ 020456
g~i~n 884537

o 6 02

mp8

~hl o81~m
836~
jqs
3~~~
Ulf
Ub m~~~
62~4

3614

021356

8UW
gt~1g0 gmij5
036152 o BO~

14
3~g4 oOj6 14

004737
104032
000246
012703

0362 0

Oom~

104010
000160
004537
h04010
00150
104004

036232

005077

036 52

2777
SA
o 2771
453

021276
020214

Amgg umg
6~m~

,HEADS OVER TRACK 0
PC,HDHOME
JSR
;HEADS GO HOME OKAY
CKERFG
EMT
.1i0RD
EmH-.
#HDRTAB,R3
MOV
;nSTART OF SEGMENTU
BGNSEG
EMf
C$BSEG
;S ETUP AND WRITE,
MOV
29B$:
rUF,RO
;12B WORDS
MOV
Hh~1
MOV
2,(~0)+
;WRITE
299$:
NOV
;DONE??
DEC
Rl
299$
BHE
;LOAD BUS ADDRESS
HOV
rUF
~RLBA
MOV
-12~.,~RLMP
$~~~~Rcg~~~ ADDRESS
CLR
RLDA
5,LDFUNC
;LOAD THE FUNCTION IN NEXT WORD
JSR
WRITE
;WAIT FOR CONTROLLER READY
JSR
~~~ IITCRDY
;CHECK FOR FL:LOE, ELSE EXIT SEG
ESCAPE
EMT
C~ESCAPE
.IIORD
1 OOO~-.
JSR
R5~CH RR
;CHECK F6~H~E~Lg~;L~L~~REi~~O~~G
ESCAPE SE
EMT
.IIORD
I~~3~~~:;'tSTART Of SEGMENT\\
BGNSEG
EMT
C$flSEG
; VERIFY WRITE WITH READ BEFORE WRCHI{
CLR
MOV
BUF
LDA @RLBA
HOV
-12fi.6aRLHP
5,LDF C
;LOAD THE FUNCTION IN NEXT 1I0RD
JSR

SEQ 0119

,.
ASSEMBLY ROUTINES
KACYll 30&(1052) 22-NOV-7B 15:35 PAGE 1-90
CZRLBB .Pll
22-NOV-18 15:28
**TEST 41** - EXTENDED CHECK OF WRITE CHECK PURCTIOH
036256
READ
OOOOH
36r
36 6
JSR
0045
021276
36 7 8m~~
ESCAPE. ~~~WTCRDY
,CHECK FOR FL:LOE, ELSE EXIT SEC
EMT
Amp!~
.IIORD
8igr~
o 6 ~O
JSR
020214
5~CHiRR
;CHECK F6~H~E~L8~;L~L~~RE~f¥0~~G
036 74
ESCAPE SE
EMT
~am~!~
.IIORD
BGNSEG
;"START OF SEGMENT"
036300
036300 104004
EMT
C$BSEG
3B~
3$:
005077 143740
CLR
;1I0RD COUNT
MOV
LDA
jjb~8·~~CkMP
~ o~
;BUS ADDRESS
MOV
o~18~~
THE FUNCTION IN NExT WORD
o 0456
5,L6~UNC
JSR
;IIRITE cfi~g:D
6 8
WRCHK

SEQ 0120

111~ Bum gHm
b83m

~h~

8i~i8~

Wi6~7 8md~ 88~HH
am

un Bum
mm

~p~

655
13~j~
3638

1111
jW
3m
3m
3645
3646

3649

3m
3m

004537
104010
000024

1mB

021276

036350
036352

036162
0 6 6~
o
636
Oj6364
o
036364
036366
036370
036374
036376
036376

8~mg
mm

~~~WTCRDY

• WORD

CgESCAPE
1 002$- •

JSR
TST
SEQ
ERRHRD
TRAP
.WORD
• WORD
.WORD

~CHECK CNTLR FOR ERRORS
~:f~~ERR
;IIRITE C ECK ERROR77
,NO
4$
410· F.RRI5,EM70
TiER f ODE
4 0
FRRlS
EM70

~~¥APE

sum gg~~3j
mH~
0014~4
8~mi mm
036356
036360
036362

JSR

015216
014220

s~A~eKF~~Rc~~l~gl~E~L~~A~~IT SEC

4$:

104005
005723
020327
001262

ENDSEG
EMT
ENDSEG
10001$:
EMT
TST
CMP
SNE
ENDSEG
10000$:
EMT
ENDTST
LI0076:
EMf
10002$ :

104005

002660

104005
104001

;UEND OF SEGMENTU
C$ESEG

;\tEND OF SEGMENTU

C$ESEG

~RT
2~§ HDREND
;%tEND OF SEGMENTt%
C$ESEG

;**ENO OF TEST·-

CSETST

ASSEMBLY ROUTINES
MACY11 30A(1052) 22-NOY-78 15:35 PAGE 1-91
CZRLBB.P11
22-NOV-7B 15:28
.0TEST 41·' - EXTENDED CHECK OF WRITE CHECK FUNCTION
3652
.SB1TL "TEST 42'· - EXTENDED CHECK OF WRITE CHECK FUNCTION
3653
3654
BGNTS!
;'·START OF TEST·3655 036402
3656
STARS
3657 036402
•• ***.***********************************************************
5~HECK OF WRITE CHECK LOGIC UNDER FLAG MODE
;TEST IS DONE WITH ALL BIT PATTERNS
; WE IIILL WRITE CHECK A FULL SECTOR ~128 WORDS) FROM
§~i~~RY (BUF).
WE CHECK THAT NO ERR RS OCCUR.
036402

3m
mz
m;

3m
3665
3666

3m
3668

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

036402
036406
036414
036416
036420

3m mm

004737
104032
000252
012703

021356

002504

104004

~m 036426 012700 003052
3673 036432 012701 000200
3674
3675

036436
036440
036444
036446
036450
036452
036460

011302

298$:

299$:
8ram 100000
im
88im
3678
3679
012777 003052 143564
3680
77600 143562
m~ gum 8mB 143554
020456
3683
3684 036476 883ijP
00453~ 021276
3685
3686

3688

mO~Q

03~504
03
506
03 510
036514
036514

004~37

036520

104004

020214

8m\g h8m8
JU
J~~6

3691
3692
1693
3694
3695
3696
3697

PC,HDHOME

mMk

005~77

t4352~

036542
036546

004537
000014

020456

lq~gSa 1:J~Ag

;HEADS OYER TRACK 0
;HEADS GO HOME OKAY

#HDRTAB, R3
C$BSEG
BUF,RO

1~8.~Rl

~I~i5;R2

R~,(ROJ+

299$
BUF @RLBA
-12fi.,@RLMP
RLDA
5,LDFUNC

~~6l/TCRDY

~~mA~~

;\%START OF SEGMENTtt
;SETUP AND WRITE

m¥ ~~mRN
,DONE??

;LOAD BUS ADDRESS

$~e~~RCB~~~ ADDRESS

;LOAD THE FUNCTION IN NEXT WORD
,WAIT FOR CONTROLLER READY
;CHECK FOR FL:LOE, ELSE EXIT SEG

~5,CH~RR

SE<;

mm~~

EMT

036522

8~~~~~ 81~7ii

JSR
CKERFG
EMT
• WORD
MOV
BGRSEG
EMT
MOV
MOV
MOV
BIS
MOV
DEC
SNE
MOY
MOV
CLR
JSR
WRITE
JSR
ESCAPE
EMT
.IIORD
JSR
ESCAPE
EMT
• WORD
BGNSEC

C$BSEG
;VERIFY WRITE WITH READ BEFORE WRCHK
CLR
RLDA
MOV
~~~A!~IiRtMP
HOV
JSR
5,LDFuRC
READ

;\\START OF SEGMENT\\

;LOAD THE FUNCTION IN NEXT VORD

SEQ 0121

ASSEMBLY ROUTINES
MACYll 301(1052) 22-ROY-78 15:35 PAGE 1-92
22-NOY-78 15128
CZRLBB.Pll
**TEST 42** - EXTENDED CHECK OF VRITE CHECK FUICTIOR
004537 021276
J~R
R5fTCRDY
;CHICK FOR 'LILOl, ELSE EXIT SEG
IM~lPE S8 SCAPE
.v
RD
A5
020214
6CHJCK CRTLR FOR ERRORS
6
;CHECK F R LILOE, ELSE EXIT SEG
UCAPE
IMT
~bSCAPE
• 1I0RD
1 01$-•
;"START OF SEGMERn,
U,SEG C$BSEG
104004
3$:
CLR
MOV
Jlg~DA~gUTs
IUU~
MOV
1788
JSR
tLdUiC
AL~AD THE FUNCTION IN REXT 1I0RD
WRCHI(
,IIRITE C ECI(
83Uh
JSR
036620 004537 021276
IIiAIT FOR CONTROLLER RElDY
,C ECK FOR FL:LOE, ELSE EXIT SEG
ESCAPE ~~6I1rCRDY
036624
EMT
~8ES~APE
• WORD
00 $-•
8U3~2

11!'!1 UUH

:!IJI digunsn A838U

l~i9 ~inll

UII
j!l

gUiii

fiUt.fi~I~MP

nun nUll
A838U

JSR
rsf
BEQ
ERRHRD
TRAP
.WORD
.WORD
.WORD

6U 8°~n~ 8m~:
o 240 081404

Ill! g~UU A8 2n
4

;I!I

r
3

036648
03665
036652

81b~8

gg~:
036654

104005

036624

001

81!~~~
03 666

104005

I ~~ gU~58 g~8U~
3~U

nnn

;CHECK CNTLR FOR ERRORS

¥~~~~ERR
4$
410.~ERR15,EM10

TiER
4 0 DOE

~Mn5

4S:

ogIU~~
665
104005

~I g

31U
3131
37JI
3h

ENDSEG
EMT
ENDSEG
10001$:
EMT
TST
eMP
BNE
ENDSEG
10000$:
EMT
10002$:

002660

Bg~n:

104001

.SBTTL

,"END OF SEGMENT"
CSESEG

;\'END OF SEGMENT"

C$ESEG

~R3rHDREND
2h
;UEND OF SEGMENnt
C$ESEG

;**END OF TEST**
EMT
**TEST 4snT~TREAD WITHOUT HEIDER COMPARE FUNCTION

ASSEMBLY ROUTINES
MACYl1 301(1052) 22-NOY-7B 15:35 PAGE 1-93
CZRLBB.Pll
22-NOV-78 15:28
**TEST 43"· - READ WITHOUT HEADER CO~PARE FUNCTION
31~5

;ld

036672

,fEST THAT READ WITHOUT HEADER VERIFICATION nORKS.

!~H&Dt~IuIH¥H~E~3N~¥~32RIHN~f~~T~~6~:

§FOR ERRORS

H~l 036672
036672
:~

3~U
3150

un
~~~5

3 5~

~~U
3160

036672

nnu
8um

004737

021356

10403~

00005

104004

gU~!i gl~l~l
A9~~~~ lilll~
8 537 b20456

ooun 021276
o~IUJi
o n46
50 A838~g
036752

004537

020214

nuu 104005
036760
3~i1SUUS
104001

371

3~61

in
p6~

768

036162
036162

~Hl

036162
036766

;"*START OF TEST**

JSR
CKERFG
EMT
• !lORD
BGNSEC
EMT

PC,HDHOME
EXn
Ci 0100-.
L
CSBSEG

,HEIDS OVER TRACK 0
;HEADS GO HOME OKAY
,,\START OF SEGMENTn

MOV
)SET UP IIORD COUNT
r~B·ffRLMP
MOV
i~IIg~RBgs ftf8§§¥SMA T R
!~
D~A
MOV
JSR
5,( FUNC
'
t~8AD THE Fuic¥ION IN NEXT WORD
RDNHD
,READ DA A WITHOUT HEADER VERIFY
JSR
JWAIT FOR IT TO FINISH
U6VTCRDY
ESCAPE
CHECK FOR FL:LOE, ELSE EXIT SEC
EMT
C&ESCAPE
• WORD
1 000$- •
JSR
R5,CHERR
,CHECK CNTLR FOR ERRORS
ENDSEG
)nEND OF SEGMENTU
10000S:
EMT
CSESEG
;**END OF TEST**
ENDTST
LI0100:
C$ETST
EMT
.SBTTL ··TEST 44** - READ WITHOUT HEADER COMPARE FUNCTION INTERRUPT
BGNTST
;*·START OF TEST**
STARS

Jf~;;*;:~;*;~:~*:;;~~~;*~~:~~:*;;:i;i~:;i~:*;~:~;*i:**.*.t.*a.a.*

I~n 036762
3774

THIS FUNCTION SHOULD

~~3NTC6H~t~+I~2 gHECK

.It~I*.*********************************************** .*a ••• **.**

fiGHTST

3p6
3
3748

SEQ 0123

~!A~~***********************************.************* * •••• a.a •• _

3733

H:~

SEQ 0122

§1~i~RRUPT MODE.
};***************************************************************

004737

3H~ 8~m: A83~U

021356

JSR
CKERFG
EMT
.IIORD

PC,HDHOME

nmI-.

IHEADS OYER TRACK 0
,HEADS GO HOME OKAY

ASSEMBLY ROUTINES
MACYl1 30A(1052) 22-NOY-78 15:35 PAGE 1-94
CZRLBB.Pll
22-NOY-7B 15:28
·*TEST 44** - READ WITHOUT HEADER COMPARE rUDCTIOK INTERRUPT

37~l

8~~888

~~¥SEG

104004

C$8SEG

SEQ 0124

,"START OF SEGNENT"

31~~8!
81~~iO~~ 00i~~77P7
i 8lli
8t~ °9~133
h~~H ImU

CMLR

INTERRUPT OCCURAHCE FLAG
,SET UP WfRD COUNT FOR ONE SECTOR
;SETUP 8U FER ADDRESS
;DISK ADD ESS IS A DON'T CARE

' IN!fLG JC~EAR
M8~
lii6~8lifitCk
~~¥PRI
pAf OLD! P
~n Ri!bi~:~
RDHHDIINTEN
;INTERRU~¥O~SA~~~DFUNCTIO" IN

I,H~ 8~78~~ 0 4~~

~~¥PRI ~~firi~RDY

;WAIT FOR INTERRUPT

8 8 ~ 7717
~ Ii~~ 193~
~~ B
o}~ ~~lZ~1
8 o~~ ~~~~~:
~B

~~!

3~81

0~~850

g~70~~

nu~~

021276
000340

1§

3790

H~~

037062
037066
037070

005137
001004

002144

mm
Jli mm smu

3~~l
319~

:m~

031100
037100
037102
037104
031110
g31Ho

3m ohH~
3~U
3800

38001
3 2

~m
3~a~

031112
037112

104462
000050

104010
000006
004537

MOV

t RI01 ,RO

~:~RD

i~~~~~~~

TST
BHE
ERROF
TRAP
.WORD
.1I0RD
.WORO
ESCAPE
EMT
.WORD
JSR
ENDSEG

INTFLG
IS
40'LEM40,ERRO
UEKCOOE

;OID IT INTERRUPT
;IF INTERRUPT GO TO IS
;NO INTERRUPT

SEG

;CHECK FOR FL:LOE, ELSE EXIT SEG

EMT

CSESEG

~~~APE S~~PRI

33~~19 g3~g~8 bgag~g

IS:
020214
10000S:
ENDTST
LI0I01:

104005
104001

.SBTTL
BGNTST
STARS

031114
037114

I~m~~:

WORD

;CHECK FOR FL:LOE, ELSE EXIT SEG

;CHECK CNTLR FOR ERRORS
;%%E"O OF SEGMENT\%

RS,CHERR

;·*END OF TEST"
CSETST
EMT
**TES1 45 0 • - CHECK RD 11/0 HOR CMP ACTUALLY READS
;"START OF TEST·'

).***********************************.******************.* •••••• *
;~HECK THAT THE READ WIO HDR CMP FUNCTION ACTUALLY READS (INTO ~EMORY)

;WE WILL WRITE A PATTERN INTO MEMORY AND THEN ISSUE
;1 READ TO OVERLAY THAT PATTERN. AFTER THE READ
;WE CHECK TO SEE IF THE WRITTEN PATTERN HAS CHAHGED.
;IF NOT WE ISSUE IT AGAIN AT THE SAME SECTION AFTER
;HAVING MODIFIEO OUR PATTERN IN MEMORY (SINCE THERE IS
;ONE CHANCE THAT THE DISK COULD HAVE ouR PATTERN). AFTER
;THE SECOND READ WE CHECK THE BUFFER AGAIN. IF IT'S
;NOT CHANGED WE REPORT AN ERROR

3806
3807

~§g~

3~10
3811

ASSEMBLY ROUTINES
KACYll 301(1052) 22-NOV-18 15:35 PAGE 1-95
·*TEST 45'· - CHECK RD W/O HDR CMP ACTUALLY READS
22-NOV-78 IS:28
CZRl.BB.P 11
037114

~!~~~******************************************.**.*** ***********

3~;4

~ Bl~
1~

381
3B\8

~h~

037114
037120
03p~6
03
1 0
031132
031132

004731
00016

~Hi
83~m
382
oj7146

104004
012737
005037

i~~,

8A53~~

3B~4
38 ~

ml~g

037 62

021356

10403~

012~00

01~

8m~0

00~05~
00
20
002160

OOOg50
n~~ 037
mr~4 01g~~~H
71
0305o~
~M 037 02 01 777 b71

UU
,/

031210

037~;62
0j'

012137
004537
000016
004531

q ~a bgm~
~~~~ 8~72H

3B39
3840
3m

003052
020456
021216

snm

004531
104010
000044

020214

037244
037 54

801014

o;m~

00~O5~
00
16

037p4
037 40

031~50

3 47
~84B
849
3m

mm 001 5 002162

n:
3~4&

1$:
2S:
143052

U3g~~

00~166

4S:

005~~'

0~1264

005237

00~162

~m54 83Hi~ 883Hl 00 60
32
3 55
8H~U
osam
0373g~

~1I1

002160

0373
031306

5S:

JSR
CKERFG
EMT
, WORD
BGNSEG
EMT
MOV
CLR
MOV
MOV
MOV
DEC
BNE
MOV
MOV
MOV
MOV
JSR
RDNHD
JSR
ESCAPE
EMT
,WORD
JSR
ESCAPE
EMT
.WORD

nm~-.
CS8SEG
4350 ,THPO
MPl
fBUF,
1 8. RORl

M~O,tRO)+

i~O.~@RLDA
-12 'fitRLMP
m~8DDU

RS,LDFUNC
~~~WTCRDY

CB5SCAPE
1 oos-.
~~~CllERR

C&ESCAPE
1 000$-,

~OV

IBUF,R2

TST
BNE
INC
COM
DR
ERRDY
TRAP
.WORD

TMP1
S$
TMPI
TMPO
IS

CMP
8NE

:mg
6$:

PC,HDHO'IE

~2)+,TMPO

;HEADS OVER TRACK 0
;HEADS GO HOME OKAY
;nSTART OF SEGMENU%

$E[~AkA~I~~NI~gI~~l6~

;SET UP BUFFER BEGINNING
;~RITE BUFFER
; DONE??
~~glDGgI~~C~DDRESS TO NONSENSE
,SET 1I0RD COUNT
;LOAD BUS ADDRESS
;FOR ERROR PRINT
&LOAD THE FUNCTION IN NEXT WORD
~~it¥ ~6R ~8~T~~rLER READY
;CHECK FOR FL:LOE, ELSE EXIT SEG
;CHECK F6~H~£~Lg~;L~L~~RE~~~0~~G
;SET TO START COMPARING DATA
;DID DATA CHANGE?
;YES, CHECK FOR END
;

20.~EM55,ERR9

BE CODE
EM 55
ERR9

~¥:Tts¥lg~'~NgH~r~~~ CHECK
;2ND-REPORT 1ST-TRY AGAIN
II NC P ASS COUNT
;COMPLIMENT PATTERN
;GO DO IT AGAIN

SEQ 0125

ASSEMBLY ROUTINES
I4ACYll 301(1052) 22-1I0Y-78 15135 PACE 1-96
**TEST 45** - CHECK RD 11/0 RDR CMP ACTUALLY READS
CZRLBB.Pll
22-IIOY-78 15:28
10000$:

104005

:111 111111
lsi

~B65

866

iiU
~h!

jB73
874

~iU

~~U

ENDJS~
LI0
0 :

104001

.SOUL
BCNTST

037312
037312

;Jt~§***************.********************************* ***********

004737

JSR
CKERFG
EMT
• 1I0RD
BGNSEG
EMT
MOV
MOV
HOV
MOV
ADD
JSR
RDNHD
JSR
ESCAPE
EMT
.WORD
JSR
ESCAPE
EMT
.IIORD
MOV
CMP
BEQ
ERRDF
TRAP
.WORD
• liaRD
.IIORD

021356

104004
012777

000050
003052 W~~~
mm
gu~n A6 7600
3052 AHm
~m mm
037362 o 737 000400 002166

3S79

~ia4 8~H70
7402
~ 8~ gj7Ji~

37
0045H

020456
021276

U 8Hl8i 683818

3i
3 89
0
3II
3

004537

020214

03740i
0374

8H~11

9~ 0374
002170 002166
0374
8~~B~
1404

n~
3894

3B95

A8a8!° 002230 002170
0374}6
4

mm mm

Op434
83im

,**END OF TEST**
CSETsr
EI4T
**TEST 46** - CHECK RLBA INCREMENT IIITH RD 11/0 HDR CI4P
,**START OF TEST*·

,fHECK THAT THE RLBA WILL IIICREMENT WITH THE READ W'O HDR CMP
;T~E RLBA SHOULD CONTAIN "BUF +256."
AFTER A FULL ECTOR
§R AD.

mh~ b83m

037330
031330

HUIID OF SEGMEllnl
CSESEG

~!~I~*******.*******************.*****.*****.*******.* .**********

037312
0373P

EIIDSEG
EMT

013310
014410

PC,HDHOME

;HEADS OVER TRACK 0
,HEADS GO HOME OKAY

CftiX103IT •
L
CSBSEG

rO.'~RLDA
BUF RLBA

-1~fi·68RLMP

~g6~~GDAIt
R5 , LDFUNC
~~~IITCRDY

mm~~
~~~CHERR

lmgi~:

E.BI DDAT
BDDAf,GDDAr
1S

;USURT OF SEGMENn~
;SET UP BUS ADDRESS
;1I0RD COUNT
,FORM EXPECTED BOS ADDRESS
;AFTER READ
&L01D THE FUNCTION IN NEXT liaRD
$ait~ '6R ~BUTi~[LER READY
;CHECK FOR FL:LOE, ELSE EXIT SEC
;CHECK F&~H~~~Lg~!L~L~~RE~~~O~~c
;READ "RLBA" FOR PRESENT ADDRESS
; YES , CONTINUE
;010 "BA" INCREMENT PROPERLY?

21.~EM53IERR4

HE CODE
EM53
ERR4

ASSEMBLY ROUTINES
MACY11 301(1052) 22-NOV-78 15:35 PACE 1-97
CZRLBB.Pll
22-NOV-78 15:2B
**TEST 46** - CHECK RLBA INCREMENT WITH RD W/O HDR CMP
j83~

JBj9

3~5A

037444
037444
037444
03~444
03 1446

3m 8hm

IS:
10000S:

104005

EMT

aBI5~: EMT

104001

;"END OF SEGMENT%~

ENDSEG
CSESEG
CSETST

3902
3903
3904

j~8~

3907
3908
3909
391 0

HB
3F~

39t4
3915
39~6

3~d

.S8TTL
BGHTST
STARS

037450
037450

3921

3~~~

021356

037466
037466

3923
3924
3925

104004
000050

8BH~ mUg

m~h

4537
o08 0016

012777

~~jB

3tH
3935
3936

004537

037542
037546

8~~m

004537

b&m&

177600
003052
020456
021276

**TEST 47** - CHECK RLDA DOES INCREMENT WITH RD WIO HD~ CMP
;··START OF TEST··

*.*_ ••

;-******.******.* •• *********-****_.*.* •••
* •• * •• * ••• * •• ** •••
;~HECK THAT THE RLDA DOES INCREMENT BY ONE AFTER A
,FULL SECTOR READ II/a HDR CMP
;AFTER THE READ THE RLDA SHOULD STILL BE THE INITIAL RLDA + 1
~!~~~*************************.*********************** •• * ••• ** •••
,HEADS OVER TRACK 0
PC,HDHOME
JSR
;HEADS GO HO~E OKAY
CKERFG
EHT
CSEXIT
.1I0RD
L10104-.
BGNSEG
EMT
CSBSEG

037450

3918
3919

SEQ 0126

002166
142542
142532
142520

020214

3m
~g~~ 8~1~~6 g~~1~i 88~i~~ 88~118

MOV
MOV
INC
MOV
HOV
JSR
RDNHD
JSR
ESCAPE
EMT
• WORD
JSR
ESCAPE
EMT
• 1I0RD
HOV
eMP

;DA TO NONSENSE
;SETUP DISK ADDRESS
;\lORD COONT
;SETUP BUS ADDRESS
R5 , LDFONC
~~~WTCRDY

CSESCAPE
10000$- •

;READ wIthSa¥ ~~~D~UNg~~~fR~N NEXT WORD
,WAIT FOR CONTROLLER READY
,CHECK FOR FL:LOE, ELSE EXIT SEC

~~~CHERR

CSESCAPE
10000$- •
;READ DISK ADDRESS
;DID SECTOR INCREMENT PROPERLY

SEQ 0127

*'
ASSEMBLY ROUTINES
MlCYll 30.1.(1052) 22-1I0Y-78 15:35 PAGE 1-98
CZRLBB.Pll
22-NOY-78 15:28
**T£ST 47** - CHECK RLDA DOES IHCREMEIIT IIITH RD 11/0 HDR CMP
; YES, BRANCH NO, REPORT ERROR
3940 037566 001404
BEQ
1$

037i~0
DB
7~ A044~2
IIlI
010lO.. 6

83~5~4
03
5 6 01 418
11 037600

h~5

3946
3m
3m

gr~8o

8 76760~8
o i~o

.WORD
.IIORD
.IIORD

SEQ 0128

2~.~EM54'ERR4

E CODE
EM54
ERR4

IS:

ENDSEG
10000$:
EMT
ENDTST
L10104:
EMf

104005
104001

,"EUD OF SEGMENT"
C$ESEG

i**END OF TEST'*

C$£TST

ns~
5

33
3 54

3~~~

3956

037604
037604
037604
037606
m~06

BGNMOD
000025

go~m

JH gHd~ mm
JU 8 mm
JU
mm
03W 4
03 ~6
8376 0
3~6F
O~ 6 4
o 76~4

0~76

g3~~J~

03763
037634

JI!

0~0001

Tr·

ggm~

ooo~~ 6
000

03~636
8j
~lO 88m~
03764~ 00000

83~646

h~~g

037652

8mn

;mgg

003400

,Ill mm 888889

396

HRDPRM
BGNHRD
.1I0RD L10105-L$H1RD/2
GPRML
CNTYPE,CNT,l,YES
.IIORD
.IIORD
t~~~~~
.WORD
1
GPRHA
CSRMSG,CSR,0,160000,177776,YES
.WORD
T~CODE
.WORD
C RMSG
.WORD
OLIM
.IIORD
T HILIM
GPRMA
V CMSG,VECT,O,0,776,VES
.IIORD
Hga~~
.IIORD
.WORD
T~LOLIM
.WORD
T
HILIM
GPRMD
B MSG t PRIOR,0,340,0,7,VES
.WORD
U~~g
.WORD
.WORD
340
• WORD
T~LOLIM
.~ORD
T H LIM
GPRMD
D H~GfDRBT,O,0340010,7'YES
.WORD
.WORD
.WORD
03400
.WORD
T~LOLIH
T HILIM
• WORD
gNDHRO
.EVEN

037660
037660

L10105:

I'ACYll 301(1052 ) 22-NOV-78 15:35 PAGE 1-99
ASSEMBLY ROUTINES
-·TEST 47·· - CHECK RLDA DOES INCREMENT WITH RD M/O HOR CMP
22-NOV-78 15:28
CZRLBB .Pll
030461
000 CNTYPE: .ASCIZ
3964 037660
051525 040440 CSRMSG: • ASCIZ ~~W{DDRESSI
3965 037665
051523
gpn~ 042104 042522
042514 BRMSG: .ASCIZ IBR LEVELl
3966 03h01
020
14
037706 042526 000 22
052103 051117 VECHSG: .ASCIZ IVECTORI
3967
042m
8NH~
3968
104 044522 042526 DRMSG: • ASC IZ IDRIVEI
000
.EVEN
037730
~~~z 037730
END MOD
n7~
3913
SFTPRM
031730
RGHMOD
~914
975
BGNSFT
39~6 037730
.WORD L10106-LSSOFT/2
037730 000025
3H
GPRML
3978 037732
mg6~LT'1,YES
.WORD
037732 000130
.WORD
DMSG
03H 34
• liaRD
1
03 36
XFERF
14
.IIORD
HCODE
006044
o 774
GPRHD
EMSG 6 ELT,D,177177,0,177777, YES
03p42
.WORD
00105~
U~g E
.IIORD
8~ 7l~ 04°B
• liaRD
171777
037746
.WORD
T~LOLIM
T HILIH
• liaRD
GPRHL
SMSG
037754
1S:
6SIZE, 1, YES
.WORD
037754 002130
T~CO E
.WORD
S SG
.1I0RD
1
CMSG 6DMPCK,1,YES
GPRML
03776~
.WORD
03716
t~~g E
.WORD
6
.WORD
1
XFERF
0377~0
.WORD
HeoDE
006044
37770
GPRMD
LMSG 6DLMT,D,177717,1,128.,VES
3~8~ 8
.IIORD
004052
l~~g E
037774 04~065
• WORD
.WORD
177717
&37776
.WORD
40000
T~LOLIM
T HILIM
00020
• WORD
2S:

046m

SHiH

:!l

OP 8

83S88l

,III SHm mm

Jal 8Nm 838m
JI1 8m l mm
oHm

Jill 8l8g8t
33 87

:~U

3990

040004
040004
040004

b&066!

051104

050117

047440

ENDSH
.EVEN
LlOI06:
DMSG:
.ASCIZ

IDROP ON ERROR LIMITI

SEQ 0129

ASSEMBLY ROUTIMES
MACYll 301(1052) 22-10'-18 15135 PAGE 1-100
CZRL8B.Pll
22-109-78 15:28
**TEST 47*· - CHECK RLDA DOES IHCREMEIT HITH RD WIO RDR eMP

3991
3992

SMSC:
eMSC:

.ASCIZ
.ASCII

IAUTOSIZE/,'
ICOMPARE DAfA ON Dell

3993

LMSC:

.ASCII

1# OF WORDS IN ERROR REPORTEDI

.ASCIZ

IERROR LIMITI

EMSG:

SEQ 0130

ENDMOD

040136
040514

.=40514

"AREA RESERVED AS PATCH AREA FOR DIAGNOSTICS.

5.=40~14 WAS SELE~TED AS "LiST AD" TO PROVIDE APT TO LSI-II COMPA~IOILITY.
~=AIN RB'Ni~~S~AD~H~UE~I!~IC&5~~~DA~~. ACHIEVE A VALID HI LODX AD RESS

040514
040514

LASTAD
• EVEII
LSLAST: :

ASSEMBLY ROUTINES
MACYll 30A(1052) 22-"OV-78 15:35 PAGE 2
CZRLBB.SUP
23-0CT-78 09:52
DIAGNOSTIC SUPERVISOR -- LOW CORE SET UP

SEQ 0131

Sr:Q 0132

IunII!j

gafig:~ g018l!9
~ lI~f~

C REF¥=
C SEJG;

~ !lll~i iln
Bl~~AT =
DCK14ES
DECMSG

°1811 ~~
~6~

gUffc=

sbUs

DIAG.T

04,046 G

B~IG~g= 8388~~ G

Btr
DLTMES ~ ~80 ~~R
304
DMPCK =

g~~~D

oooo~

0~8~g6 G

DPMUL
07~844 G
DRBT
DRDY =
= 00
00 ~61
DRIVE
0021 4
DRMSG
8377 1
DROP
~6l66
DRPCOD
0 04 G
DRST =
0 10
B~~~SD ol~~A~ G
DSO
OOOORO
B~~ = 88Y308

B~NIT.

DVC. FT
DWORD
DlllG
D UH

8~A~29 G
05404~

00221
05474
0547~4

m 057554
g~~~3~

B
D UK

ASSEMBLY ROUTINES
~ACY11 301(1052)
22-NOV-78 15:35 PAGE 3-1
CZRL88.SUP
23-0CT-78 09:S2
SYMBOL TA8LE
EERRRRi
8144 5456 GG
F MOD - 8888 00
f=n
81i~54
ERR7
Oi4SU G
OOiOB
ERRS
014564 G
F RPT = 8 012
E1447
0 056
ERR9
814~36 G
F
SEG = 0 80s3
ESC.PC
53 06
F SOFT=
EMS
00011~43~5
EY.COU 0~~2~8 G
F SRV - 0888A~
~m
t

~=~~

gt ~g8

~=~o
~m

8Ih~~
0 3652

~~2~

EM65
~=~6
EMio

I~ Ii in~u

~ ~~~ ~

8t ~n

~:=~; 002240
~m.C gma~

8t~~~9

~nST

FLAGS
FLAGSl

80 U~1
410~

~Bg:t

FLA SE

R13l46

ihl~~8

f~~i~~

m~g~

010560 G
R6236~ G
045Slg
063760

mus
8t~7A2

054 52
040516 G
054056
014244 G

fRR 0

01~~g~

~~~~~~ 85~3!U
0~2 32

~~~tFO 8~~~86

ERR ~
ERR1!
ERRl4
ERR 25

~~~
ERH~

G
g

815026 G
015102 G
815i50 G
J5 ~6 G

gt~ ~ g
0144 0 G

GLBDU
GLBEQA

00~i22 G
OOj~~i

FRMT7
FRMTB
FRMT9

8°1g04~

16117
016171
016312
~~=~3S 8
FIAU = ob8 81 5

62A,

G
G PRML=
RADA=

88000
140

G RiDL= 00 120
G RADO= 00 020

g ~~~~~ 8R8l8~

~ 2f~A~ 8g800~
~ ~~D ~ 80~gli

G YES = 000010

F INIT= 000006
F JMP = 000050

HC DIA
HDHO"E

~ n~RD~ 88oo~1

gum
g~ohi g
GLBTXT 8n08 G

gG atB8~
8888~8
RADF= 00 200

FRMT~5 016723
n=~ A 8m~5
f'RMT B 01567~
f'RMT3
815~~6
FRMT4
5 3

ERRVEC
ERR. HR
ERR.NU
ERR.SF
ERRO

gnm
mu:
gn~n 8~~4~R

~a=l~

~~~b~N

ERR

8
;06 5
00 0

~!=il~ gl~~~~
~U=~l~ glg~11

FREE

067770 G
043334
045500
OR~iI4
80 t~
10 00

IGDE~T:iciH~R~ mu
g~Rf¥R~ OOO~O
g~lti~= gb~8~~
G EXCP= g8010~
g ~gtl; ggggg~
G OFFS= R00400
gG mg
08RW
PRMD= 80000~

ng:~&=
nI3~~
ENYIRO 0405ig G

EOP.CH
EOP.f'M
EOP.IN
ERCOUN

Ucg~~¥ 8~~~~2
"g~~~E 83~~g~ G

"g:~~~

8~8~~~ g

840S42 G
21356

SEQ 0133
HDREND 802~60
HDRLST
20 12
HDRTAB 002 04
HERTZ.
HNFMES 845~2~
87
HOLDSP=
0
HPTCOD 016
G
HRDPRM 037~04 G
HII.lDP 040 50 G
HSUB
064 06
ININIT 040772 G
INITCO 817140 G
IN TIA
60020
INIT.M 046104
I=~3T~ 84~ti~li G
INT!N = 08
INTFLG 00
4
INTFOR
INTSRV 854~44
20 10
INVAL. 045 5~
INVINT 05410
INV.SII 042
IN.SUF 047854
I lU = g08 41
II CLN
= 0 0 41
DU =
41
I HRD = gog 4
1 INIT= 0 841
1 MOD = oog 41
I MSG = 00 041
I PIIR = g00041
II SEG
RPT =
= 88841
4
I SFT = 00004
Ir SRY
=
888841
SUB =
4
I TST = 000041
JK JMP
PTR = 808267
4 24 G
KBUF
040 26 G
LDCSR
002146
FUNC 8a~nr
LINE.F 841~42 G
LINE!
LINE2
5 562
LlNE3
0 5514
LHSG
040065
LOlD.F 04550~
LOGMSG 86001
LOPINN
0227
LOPIMX 002270

LP8FR
LPCNTR
LPT.AD
LPT.RE
t~~·RE

LUP. AD
L APT
L AUT
L CCP
L CLEA
L CO
L DE PO
L DESC
L DEVP
~ B~SP
L DRCT
L DRS
L DRST
L DTP
L 83T
DVTY
L EF
L EFLG
L EXPI
L EXP2
L EXP3
L HARD
L HPCP
L HPTP
L HII
L ICP
L INIT
L LADP
L LAST
L MREY
L NAME
L REPP
L REV
L SOFT
L SPC

~ ~~~~

L STA

L SII
L TIML
L TINU
tUn
L UNIT
L.CLK.

ASSEMBLY ROOfINES
MACY11 30A(1052) 22-NOY-78 15135 PAGE 3-2
CZRL8B.SUP
23-0CT-78 09:52
SYM80L TA8LE
IIUN.LA
IUM.IO
NUM.OI
IIUlins
NXM
NUMES "
NXT
IIxnOR
MSG=
OfIERR
~p'=ES

usm Sinn
~181ll i J'U
~ ~Ili ~ lin
tl~
Z~ 81'111
t di i ~24~
~37igo

Ll8l8 5

~AJ'l~
MAJ. 0

MAJ.OS
MAN.TI
MAP16
MASK.8
MASK.
II
MAXCYL
MAXSEC
MDHEDR

=~~i.~~
MIN.IN

=k N• US

OpiM~

04~142
88
6
g02 00 G

srTPRM

040~72

~~XR¥E

Ttl

~ n~~; bq7~H
~ Tn~~ of

T16

8m
t DU = 010024
T

T
T
T

T17

T!8
T 9

nCR~ 818b3~

T20

INI= 0 0022
MSG= 010017
SEG= 010000

T~34
T
T 5
T26
T27

iT Sill
~~~; 818b Rg
= 0tooh
T TES=
0 ~t04
T.
NTL 08
06
T.CRC
0
24
T.DMP
016~~4
T.LHT
0i6
T.SIZE
0 6 62

ilo

8 19i~ g

• 185.

071320

ERRORS DETECTED:

Ho
q1

+3~

g
024460 G

025256 G
02~~52 G

T36
T37
T38
T39
T4
140
T41

o0~5740
6060 G
G
o 6240 G

T45

g~~YH g

8b8~ g

m~u g
8!~pa
o 02~0 g
G
G
8 2o~ji2
46 G
o 1 20 G
8 ~ 432 GG
ooo

042 G

T4~

U4
U9

n
UNITST

ONIT.D
ONI.HA
UOPIMN
UOPIMX

000
0

DSKZ:CZRL8B~DSKZ:CZR~88=CZRLB8/ML'CZRL8B.P11,CZRL8B.SUp

RUN-TIME: 6 62 1 SE ONDS
RUN-TIME RA 10: 3231 30=2.4
CORE USED: 16K (31 PACEs)

~56 ~

~1919 G

8:Ol~~ i
~104~~

o6~162 G

STRCHR

06g

SON IT •
SUPERV
SOPFLA

041l5~
84 ~ G

045410

0: 1 G

SVCGBL= 05
00 ,0,
SVCHAN
~
SVCINS= ~OO
SVCSU8=
77
SVCTAG= 00000
SVCTST: 117177
SVHD
002214

8~l~~g

ST1RTC

~3~~p~

845 02
63 72
061 10
045306
000000
054434

0~4660

n~ht 8~231~

MACYll 30A(1052) 22-NOV-18 15:35
ASSEMBLY ROUTINES
SYMBOL TABLE
CZRLBB.SUP
23-0CT-7B 09:52

T14
Tl5

m~Tl= 81 80

:gm 88~}h

+ f~g~; A~9m

= 104

SIMBCC
1 64
0 04
SKHOME 010 i3
00
~~~g.u
SPTCOD
G

SIZE

oti ~3 G

t :tm; ob8~gZ

~~~~T = 8 8ZZ~ G

8o~ ,4

I~1!§~i
Inl = s8 j5~i
RUA&~=
~! .~4~~8.
~ElICH
IIslMs
:ftaUJ
RHOMES

~n~~~

8~83Z4 G
MODR
MSCRLF 87i25~
0 3 3 G
MSG.AD
MSG.TY
0110 G
G
MOL
0 2 G
MXSECI 002 4
NEIIPRJ 0i' 36 G
HEXTAR
4 '~
HOOPO =
000
HOP NT
74
NOP~ES 007~~
NOPIIR
017b68

NO.CLK
NO.FLA
HO.LPT
NO.PTA
NR
NUMBIN

REI·:~ I:~ 6i G

SECMSK
SEEK
SEGSTA
SEUNT

8l~01 4~° G

:§~Ki~ R9~i~R
~7~ ~~ G
5

REGS1V

RLMP

i86 86
91 G

SEQ 0134

PAGE 3-3

SEQ 0135

n8:~~
8~~~18
XEQ.TE 04 ~54

~~~~y 88 g~
XTIME
066A76 G
XTIMEN 06752i
XTIMST 06672
~XDP. D 04506
l
XIXfLW1=
x F ALS= 000040
orrs=
888408
X
x
02

8 Zm

TROE=

I ~m 8~h~l ~
m3 hlha g
E~6iD 8a;~~g G