Digital PDFs
Documents
Guest
Register
Log In
AH-F965B-MC
April 1984
277 pages
Original
11MB
view
download
OCR Version
10MB
view
download
Document:
CZRJOB0 RP07 RP07 PERF EXER APR 1984 bw
Order Number:
AH-F965B-MC
Revision:
000
Pages:
277
Original Filename:
CZRJOB0__RP07__RP07_PERF_EXER__AH-F965B-MC__APR_1984_bw.pdf
OCR Text
-.. - CZRJOBO ’ AH-FB5B-HC FICHE 1 OF 2 om0 aeo" 1t mont 1ot Rl BRbendE wBRCHe anET B Tl ok Pede e ST b BL O USER DOCUTMMENTATION .REM o IDENTIF ICATION PRODUCT CODE: AC PRODUCT NAME: CZRUMBO RPO7 FRONT-END/ISOLATOR TEST PRODUCT DATE: DECEMBER 1, F9608-MC 1983 MAINTAINER: Cx DIAGNOSTIC ENGINEERING ALTHOR : MIKE LEAVITTY THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOU?Y CZRJUOBO RPO7 PERF EXER MACRO vO4.00 1 DEC 83 10:32:28 PAGE 1 SEQ 0001 USER DOC MENTATION .REM 3 IDENTIFICATION PRODUCT CODE: AC-F964B -MC PRODUCT NAME : CZRJOBO PRODUCT DATE: DECEMBER 1, RPO7 PERFORMANCE EXERCISER 1983 MAINTAINER: CX DIAGNOSTIC ENGINEERING AUTHOR; MIKE LEAVITT TEG 06O} RUTHUX MIKE LEAVITT RESPONSIBILITY I FOR ANY ERROR'. THAT MA1 THA® NOT LUPPILIED APPEAR IN THIS DOCUMENT, THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NO RESPONSIBILITY IS ASSUMED FOR Twt £ OR Rt1IABILTITOF SOF TWARE ON EQUIPMENT AFFILIATED COMPANIES, COPYRIGHT "HE FOLLOWING ARE DIGITAL Dec (C) 1982 By TRADEMARKS POP DeECus OF T, HY DIGITAL DILITAL EQUIPMENT CORPORATION DIGITAL FQUIPMENT UNIBLYS DECTAPE CORPORATION: MAS55BUS OR ITY CIRJIOBO RPOT PERF USER DOCUTMMENTATION FXER MACRO vO4.00 1-DEC 8% RtM @ 1. r GENERAL DOCUMENT EQUIPMENT MEDIA PRELIMINARY (VR RV 1,01 (P LT R AV RV LOADING THE PROGRAM STARTING ADDRESSES PROGRAM CONTROL SWITCH OPTIONS PASS/TEST TERMINATION 0.0HU‘ f\n—og n W PASS TERMINATION TEST TERMINATION 3.6 RUN T 3.7 3.8 3.9 APT ENVIRONMENTAL N DATA TRANSFER MODE .6. SEEK VERIFICATION MOOE DUAL PORT OPERATION XXDP, ACT11l, APT11 CONTROLLING 4.2 THE PARAMETERS 4.1.1 PROGRAM CONTROL PARAMETERS 4.1.2 CHANGE DEVICE ADDRESS KEYBOARD COMMANDS 4.2.1 T COMMAND 4.2.2 'D’' COMMAND 4.2.4 4.2.5 4.2.6 'S’ W' ‘R’ 'WT' PERFORMANCE SUMMARY 5.1 5.2 TABLE DEFINITIONS PROGRAM 4.2.3 COMMAND COMMAND COMMAND COMMAND TYPEOUT PERFORMANCE SUMMARY TYPEOUT EXPLANATION HARD/SOFT ERROR DEF INITIONS 5.2.1 HARD ERRORS 5.2.2 SOFT ERRORS DATA CHECKING & ERROR RECOVERY 6.1 6.2 6.3 7. PROGRAMS OPERATING PROCEDURE 4.1 6. NOTES REQUIREMENTS 3.5.1 S. Dy ABSTRACT 2.1 2.2 2.3 4. 2 CONTENTS 1.1 3. 10:%.:28 PAGE ERROR DATA BUFFER COMPARISON VERIFICATION OF DATA WRITTEN BAD ADDRESS FLAGGING MESSAGES %0 0002 CIRJOBY RPOTM PERF EXER MACRO V04,00 1 DEC 83 10:3.°:28 PAGF 2 | «- USER DOCUTMMENTATION 7.1 7. - 8. PROGRAM DESCRIPTION 8.1 8.2 8.3 8.4 3. ERROR DESCRIPTION i INt" DETAIL ERROR I INES RP HOW THE PROGRAM OPERATES DUAL PORT OPERATION SELECTION OF OPERATICN VARIABLE > DATA PATTERNS SOF TWARE DRIVER DOCUMENT 5EG 0003 CJRUOBO RPOTM PERF EXER MACRO v04.00 USER DOCUMENTATION 1. 1 DEC 87 10:3.:.08 PAGE 8 5EQ0 0004 ABSTRACT THE RPO7 PERFORMANCE EXERCISER PROGRAM IS DESIGNED TO PERFORTM AN INTERACTIVE TEST ON RP DISK DRIVES CONNECTED TO A MASSBUS SUBSYSTEM. THE DRIVES MAY BE CONTROLLED BY AN RH70 CONTROLLER. IN ADDITION TO PERFORMING AN INTERACTIVE TEST OF THE DISK DRIVES ON THE SUBSYSTEM, THE PROGRAM IS INTENDED TO BE USED TO VERIFY THAT RATE THE DRIVES UNDER TEST ARE PERFORMING TO THEIR DATA ERROR AND SEEK ERROR RATE (SEE ERROR RATE SPECIFICATIONS). THE PERFORMANCE EXERCISER PROGRAM WILL AS EITHER SINGLE OR DUAL PORT UNITS. EXERCISE DRIVES CONNECTED DUAL PORT DRIVES ARE TESTED BY LOADING AND RUNNING THE PROGRAM FROM BOTH CONTROLLING SYSTEMS, ;BERTPSRO(I;REQ WILL EXERCISE A MIXED SYSTEM OF DUAL PORT AND SINGLE VES. TO OBTAIN INTLRACTIVE TESTING, OPERATIONS ON THE MULTI-DRIVE CONF IGURATIONS ARE OVERLAPPED (OTHER DRIVES ARE PERFORMING SEEK/SEARCH OPERATIONS WHILE ONE DRIVE IS PERFORMING A DATA TRANSFER). OPERATIONS AMONG THE ORIVES ARE OPTIMIZED SO THAT A HIGH SUBSYSTEM DATA RATE OR A HIGH POSITIONING OPERATION RATE IS MAINTAINED. THE PERFORMANCE OF EACH DRIVE IS MONITORED BY THE PROGRAM. TRANSFER IF A ORIVE EXCEEDS A PRESET NUMBER OF ERRORS IN ANY OF SEVERAL CATEGORIES, THAT DRIVE IS AUTOMATICALLY DEASSIGNED. (THE OPERATOR MAY OVERRIDE THE AUTOMATIC DEASSIGNMENT FEATURE.) THE PROGRAM REPORTS PERFORMANCE STATISTICS FOR EACH DRIVE BEING EXERCISED ON REQUEST FROM THE OPERATOR OR AUTOMATICALLY AT AN INTERVAL DETERMINED BY THE OPERATOR. ALL DATA TRANSFER COMMANDS EXCEPT WRITE HEADER & DATA AND WRITE CHECK HEADER & DATA ARE USED. RECALIBRATE AND READ-IN PRESET COMMANDS ARE USED AT STARTUP AND DRIVE INITIALIZATION. RECALIBRATE, OFFSET, AND RETURN-TO-CENTERLINE COMMANDS ARE USED DURING ERROR RECOVERY. THE DATA TRANSFER COMMANDS ARE SELECTED RANDOMLY EXCEPT FOR THE WRITE CHECK COMMANDS. THE WRITE CHECK COMMANDS ARE USED TO VERIFY A PREVIOUS WRITE OPERATION. THUS, WHEN A WRITE COMMAND IS SELECTED, EPE D:\“;A WRITTEN IS VERIFIED BY THE APPROPRIATE WRITE CHECK DEPENDING UPON WHETHER THE PROGRAM HAS BEEN LOADED VIA APT AUTOMATIC MODE OR APT DUMP MODE WILL DETERMINE WHETHER; PROGRAM/OPERATOR COMMUNICATIONS ARE THROUGH THE KEYBOARD, DYNAMIC PROGRAM OPTIONS ARE SELECTED VIA SWITCH REGISTER SETTINGS AND ERRORS ARE REPORTED ON THE CONSOLE TERMINAL. 1. GENERAL DOCUMENT NOTES A. IN REFERENCE TO ALL NUMBERS IN THIS DOCUMENTION. BASE OF A NUMBER LARGER THAN SEVEN. TO INCICATE THE A PERIOD(.) WILL HOLLOW THE NUMBER TO INDICATE DECIMAL OR NO PERIOD WILL FOLLOW THE NUMBER TO INDICATE OCTAL. IF THE NUMBER OCCURS AT THE END OF A SENTENCE, A DOUBLE PERIOD(. .) INDICATES DECIMAL AND A SINGLE PERIOOC .) INDICATES OCTAL. . DECIMAL ALSO, ANY REFERENCES TO TIME ARE ALWAYS IN CZIRJICBO RPOT PERF EXER MACRO V04.00 USER DOCUMENTATION 1 DEC 83 ly | 10:3.°:08 PAGE % | 5£Q 00038 REQUIREMENTS EQUIPMENT POP-11 PROCESSOR 20K MEMORY KW1ll-L OR KWil P CLOCK PROGRAM LOADING DEVICE TERMINAL RM11 OR RH70 CONTROLLER 1 TO 8 DISK DRIVES (RPC7'S) MEDIA THE PERFORMANCE EXERCISER PROGRAM REQUIRES FORMATTED DISK PACKS GENERATED BY THE RPO7 FORMATTER PROGRAM (ISSFMT). THE PACKS MUST BE FORMATTED IN 32. SECTOR (16 BIT) MODE; THE ALTERNATE (30. SECTOR - 18 BIT ) MODE IS NOT SUPPORTTED. PRELIMINARY PROGRAMS RPO7 FRONT-END TEST RPO7 FUNCTIONAL TEST OPERATING PROCEDURE LOADING THE PROGRAM THE PROGRAM MAY BE LOADED .PAPER TAPE, .XXDP MEDIA, USING THE USING ANY BY EITHER OF STANDARD PAPER XXDP DEVICE THE FOLLOWING MEDIA: TAPE PROCEDURE STARTING ADDRESSES 200 - START ADDRESS, ALL SWITCHES CLEAR (SEE SECTION 3.4) WHEN THE PROGRAM IS STARTED, A DATA PATTERN WILL BE WRITTEN TO ALL ON-LINE DRIVES IN A SEQUENTIAL SEEK MODE. UPON COMPLETION OF THE WRITE, THE PROGRAM GOES INTO A TESTING MODE. 204 - RESTART ADDRESS, THE RESTART ADDRESS PROVIDES THE OPERATOR WITH THE ABILITY TO CHANGE THE DEFAWLT RP/RH ADDRESSES (SEE 4.1.2), ANY PROGRAM PARAMETERS (SEE SECTION 4.1) OR ORIVE LIMIT PARAMETERS (SEE SECTION 4.2). 3. 3 PROGRAM CONTROL SECTION CHANGE CIRJOBC RPOTM PERF USER DOCUMENTATION FXER MACRO vO4.00 1 DEC 83 10:32:28 PAGE 8 2 5FQ 0CO8 PROVIDED THE PROGRAM HAS BEEN LOADED AND STARTED VIA THE APT DuMP MODE OR THE DIAGNOSTIC IS RUNNING IN STAND ALONE PROCESSOR/DRIVE OPERATIONS ARE INITIATED AND CONTROLLED B8y SWITCH REGISTER SWITCH SETTINGS. HOWEVER, IF THE PROGRAM IS LOADED VIA APT KEYBOARD COMMANDS AND SCRIPT MODE ALL SETUP IN THE E TABLE AND SWITCH REGISTER SETTINGS WILL BE PROVIDED THRQUGH THE APT TYPEQUTS FROM THE USER DIAGNOSTIC MAY OR MAYNOT BE INHMIBITED DEPEBIEIMZ \éJFT’ON WHETHER OR NOT HAS BEEN THE APPROPRIATE BI7 E TABLE. SET. SWITCH OPTIONS IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER IS NOT PRESENT AND WILL USE A 'SOFTWARE' SWITCH REGISTER. THE 'SOFTWARE®' SWITCH REGISTER IS LOCATED AT LOCATION 176 . THE SETTINGS OF THE ‘SOF TWARE' SWITCHES ARE CONTROLLED THROUGH A KEYBCARD ROUTINE WHICH IS CALLED BY TYPING A 'CONTROL G'. THE PROGRAM WILL RECOGNIZE THE 'CONTROL G° AT ANY TIME EXCEPT WHEN THE PROGRAM IS IN KEYBOARD ENTRY MODE, OR IS AT A HIGHER PRIORITY PROCESSING AN DRIVE INTERRUPT, THE ‘' SOF TWARE' SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE TO THE PROMPT FROM THE SWITCH ENTRY ‘' SWR = NNNNNN ROUTINE: NEW =' EACH TIME SWITCH SETTINGS ARE ENTERED, THE ENTIRE SWITCH REGISTER IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT REQUIRED. 'RUBOUT' IS\N%"':COEIL?(RJ(; U' FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS DURING W H . ON PROCESSORS WITH HARDWARE SWITCH REGISTERS, REGISTER MAY BE USED, IF THE PROGRAM FINDS ALL THE 1'S ‘SOFTWARE' IN THE ALL SWITCH REGISTER REFERENCES WILL BE TO THE 'SOFTWARE' AND THE PROCEDURES DESCRIBED ABOVE MUST BE FOLLOWED. REGISTER SWc15>=]1 SWcla> HALT ON ERROR NOT USED SW«<12> NOT USED SW<06>=1 DO NOT ALTER THE CURRENT OPERATION PARAMETERS SW<13>=} SW<ll> SW<10>=1 SW<09>=1 SW<09> SW<«08>=1 SW<07>=1 SW<0S>=1 SW<04>=1 SW<03>=1 INMIBIT ERROR TYPEOUT NOT USED BELL ON ERROR CHANGE END OF PASS TQ 1/4 OF NORMAL NOT USED INHIBIT END OF PASS MESSAGES DISPLAY ALL DATA COMPARE ERRORS PARTIAL REGISTER DISPLAY IF ERROR; ECC CORRECTION RESWLTS DO NOT DISPLAY INHIBIT MAXIMUM ERROR COUNT CHECK; DO NOT DEASSIGN DRIVES WHEN END OF TEST IS REACHED DISPLAY THE SECTOR IN ERROR (BEFORE RETRY ATTEMPTS) IF 'DCK’', ‘DTE', OR 'WCF’' ERRORS OR AFTER THE 28TH RETRY SW<02>=1 SWITCH SWITCHES. IF UNCORRECTABLE 'OCK' ERROR IF DATA COMPARE ERRORS & SW<O7> SET, DISPLAY REST OF BUFFER INHIBIT SUBSYSTEM STATUS TYPEOUT DURING STARTULP JRJIOBO RPOTM PERF EXER MACRO VO4.00 USER DOCUMENTATION 1| DFC 8% 10:32:28 PAGF 3 INHIBIT PERFORMANCE ~ PROMPT SW<«O1>=1 PASS/TEST A PASS »F3 0007 REPORT ANYWHERE' AFTER SPECIFIED QUESTION DURING TIMC AUTO TEST INHIBIT DATA COMPARE AFTER READ COMMAND, W/0 ERROR SW<00>=1 3.5 'WRITE it 3 READ ONLY MODE MODE TERMINATIOM IN RANDOM 'T' COMMAND MODE OR SEQUENTIAL T' COMMAND MODE IS DETERMINED By EITHER BITS READ OR SEEKS PERFORMED. THE NUMBER OF BITS OR SEEKS REQUIRED FOR A PASS IS DERIVED FROM EITHER THE SOFT ERROR RATE SPECIFICATION OR THE SEEK ERROR RATE SPECIFICATION. THE SOFT ERROR SPECIFICATION FOR THE RP DRIVE IS NO MORE TMAN 1 SOFT ERROR (NON-DISK RELATED) IN 1 X 10t10 BITS READ. (SEE SECTION 3.S5.1 FOR THE THE SEEK EERgR)IN LEVEL A PASS 90% CONFIDENCE ERROR 1 X IN LEVEL) SPECIFICATION FOR 106 SEEKS. ‘W' OR ‘R’ COMMAND MODE OISK ADDRESS LIMITS SETUP BY 3.5.1 PASS THE RP DRIVE IS (SEE SECTION 3.5.1 FOR NO MORE IS DETERMINED THE OF ERATOR. THAN 1 SEEK THE 90% CONF IDENCE BY THE MAXIMUM TERMINATION END OF PASS FOR A SINGLE DRIVE IN THE RANDOM 'T' COMMAND MODE OR (S:S%E?LI)SL ‘T* COMMAND MODE, IS DETERMINED BY ONE OF THE FOLLOWING I S. A. IF PARAMETER 'ENDING' IS 1, END OF PASS OCCURS WHEN THE DRIVE HAS READ 4.128 X 10t9 BITS (2.58 X 10t8 WORDS). IF SwWw09=1, THE END OF PASS OCCURS WHEN THE DRIVE HAS READ 1.032 x 10t9 BITS (.645 x 10t8 WORDS). B. IF PARAMETER HAS PERFORMED ‘ENDINC' 1 X IS O, END OF PASS FOR A SINGLE DRIVE OETERMINED AS FOLLOWS. A. ‘W' OR R' COMMAND MODE, TERMINATION IF SWO4 IS CLEAR(O), >» IN IS WHEN A SEQUENTIAL SEEK IS MADE BEYOND THE MAXIMUM DISK ADORESS LIMITS SET BY THE OPERATOR, THE PASS IS CONSIDERED ENDED. TEST moomo 3.5.2 END OF PASS OCCURS WHEN THE DRIVE 10t6 SEEKS, THE TEST FOR A DRIVE IS TERMINATED WHEN: THE DRIVE HAS COMPLETED THE NUMBER OF PASSES PARAMETER ‘PASSES’. THE TOTAL ERRORS ACCUMULATED EXCEED 25. A FATAL ERROR OCCURS: EM12 OR EM14. OPERATOR DEASSIGNS THE DRIVE SPECIFIED IN THE NUMBER OF PASSES SPECIFIED B8Y THE MONITOR HAVE BEEN REACHED, WHEN RUNNING IN 'XXDP' CHAIN MODE, ‘ACT11' CHAIN MODE OR ‘APT' SCRIPT MODE(ANY AUTO MODE). ZRJOBO RPOTM PERF EXER MACRO V04.00 USER DOCUMENTATION 3.6 RUN 1-DEC 83 10:32:28 PALE J1 % 4 56Q 00068 TIME THE EXERCISER PROGRAM MAY BE RUN IN TWO MODES., (SEE SECTION 3.5.1) THE PROGRAM RUN TIME VARIES GREATLY DEPENDING ON THE OPERATION MODE SELECTED, SWR SWITCHES O, 3.6. 1 DATA TRANSFER MODE ONE DRIVE 3.6. THE 1, - APPROX. READ/WRITE AND 2. RATIO PARAMETER ( RATIO ), AND 8Y (DEFAULT) 45 MIN. (TO REACH 4.128 X 10t9 BITS (2.58 X 108 WORDS) SEEK VERIFICATION MODE PARAMETER PARAME TER PARAMETER SW<0l> SW<00> =1 =1 ONE DRIVE ‘MAX WRD CNT' = 256. (1 SECTOR) 'MAX TRK' = *'MIN TRK' (SAME VALUES) 'MAX SEC' = 'MIN SEC' (SAME VALUES) (NO DATA COMPARE) (READ ONLY MODE) - APPROX. 4.0 HRS (TO REACH 1 X 10t6 SEEKS) DUAL PORT OPERATION 3.8 A. LOAD B. SWITCH THE ‘CONTROLLER SELECT SWITCH TO ‘'A/B' ON EACH DRIVE WHICH IS TO BE TESTED AS A DUAL PORT DRIVE AND CYCLE THE DRIVES UP. C. START THE PROGRAM IN EACH PROCESSOR. RUN THE PROGRAM AS EACH PROCESSOR WERE RUNNING INDEPENDENTLY OF THE OTHER. XX0P, THE PERFORMANCE ACT11, APT11 EXERCISER PROGRAM INTO BOTH PROCESSCRS. THOUGH COMPATIBILITY THIS PROGRAM IS COMPATIBLE WITH AUTOMATIC MODES. ACT11 AND APT11 IN BOTH DUMP AND THIS PROGRAM IS ALSO, COMPATIBLE WITH XxXDP IN DUMP AND CHAIN MODES, AND PRO/IDES MEDIA PROTECTION 1IN THE CASE WHERE THE RPO7 1S THE XXDP LOADING DEVICE. AUTOMATIC MODE OR CHAIN MODE 1. (MONITOR) THE BUS ADDRESS AND CONTROLLER INTERRUPT VECTOR ARE DEFAULTED TO 176700 AND 254 RESPECTIVELY. DUMP MODE (NO MONITOR) 1. 3.9 INPUT DIALOGUE PROMPTED AFTER PROGRAM STARTS APT ETABLE DEFINITIONS THE FOLLOWING DEFINITIONS ARE VALID FOR SPECIFYING APT ENVIRONMENTAL TABLE (ETABLE) ENTRIES,VIA RUNNING THE APT UTILITY PROGRAM "TSP“: 1L JRJOBO RPOTM PERF EXER MACRO v04.00 USER DOCUMENTATION 1 DEC 83 10:32:28 PAGF 3 S SEQ 0009 SOF TWARE ENVIRONMENT: = = 1 IF 0 IF APT SCRIPT MODE STANDLONE MODE ENVIRONMENT MODE: BIT 7 « = 1 0 ETABLE DOES SIZING PROGRAM DOES SIZING BIT 6 = = 1 0 SPOOL MESSAGES TJD APT DON'T SPOOL TO APT BIT S BIT 4 = = 1 O SUPPRESS ALLOW TTY TTY IF SCRIPT MODE CONSOLE OUTPUT CONSOLE OUTPUT TO BIT O ARE NOT USED SWITCH 1 (SOFTWARE SWITCH REGISTER) IF ENVIRONMENTY MODE BIT 7 (SIZING 8IT THE OF SOF TWARE SWITCH REGISTER WILL THE HARDWARE BF ) IS SET USED, 10 1, INSTEAD TTY CONSOLE SWITCH REGISTER. SWITCH 2 (USER SWITCH REGISTER) NOY USED CPU OPTIONS NOT USED MEMORY NOT TYPES USED 1-4 AND MAX MEMORY ADDRESSES INTERRUPT VECTOR 1: USED WHEN ENVIRONMENT MODE BIT 7 = 1;DEFALT = 254 7 = 1;DEFAWLT = 176700 BUS PRIORITY 1: NOT USED. INTERRUPT VECTOR 2: NOT USED 10. BUS PRIORITY 2: NOT USED 11. BASE ADDRESS: USED WHEN ENVIRONMENT MODE BIT 12. DEVICE MAP: NOT USED 13. CONTROLLER DESCRIPTOR WORDS: 14. CONTROLLER DESCRIPTOR WORDS: NOT USED NOT USED MLo ::27 PERF EXER MACRD vO4.00 1 DEC 83 10:32:28 PAGF 38 czm o’ b ot gt P 106 5EQ 0206 sCOMMAND INITIATOR : sCALL : 3 3 MOV MOV JSR oPB ,R2 R1 QORVNLM PC.CI?2222 i 3 042066 042072 042076 042100 042104 004737 010237 010203 013704 010164 042116 042120 042124 042130 042134 042136 042140 001011 016246 052716 004037 000024 042750 000422 042142 042146 042152 042154 042156 042160 042164 042166 042170 042172 042176 042200 062703 062704 012324 012324 0421.0 122762 CIl1: 046246 040574 040640 000010 000135 000002 JSR PC.,POPQUE MOV 4(R2),-{SP) MOV MOV MOV nge C BNE BIS JSR 045210 RPMR1 Cl B8R 1s: 000002 042202 012346 004037 ~00006 42750 012346 004037 000034 042750 004737 042206 042212 042216 042220 042222 042226 016246 004037 000000 042750 010137 000137 000002 045210 042232 042240 042242 042246 042252 042254 042256 026262 002406 012746 004037 000024 042750 000207 000012 042260 042264 042270 013704 010164 016246 040640 000010 000012 ADD ADO MOV MOV MOV JSR 045210 R2 . TRNSUT R2,R3 RPADR R4 R1.RPCS2(R4) 0135,2(R2) 14 #BIT1S,(SP) RP RO.WRT 2t &4 R3 o2,R4 (R3)+,(R4). (R3)+,(R4). (R3)+,-(SP) RO,WRT RP 000156 Cle: 100000 045210 CIl3: “DRIVES WAIT” QUEUE sBRANCH IF NOT ;GET THE ROUTINE NUMBER, PARAMETERS sSET THE DIAGNOSTIC MODE BIT ;WRITE THE RPMR1 REG :LOAD THE COMMAND AND EXIT :DESIRED WORD COUNT ;:RPWC ADDRESS :LOAD WORD COUNT ;LOAD BUFFER ADDRESS ;LOAD SECTOR AND TRACK Cc17 JSR PC.CI2 ;SEE IF BIT1S5 SHOUWD BE SET IN RPMR1 MOV JSR RPCS1 RO,WRT RP 2(R2), -(SP) :LOAD MOV JMP R1,0TUM CIS :SET cre BLT MOV JSR 12(R2),FE1(R2) 14 #BIT1S,-(SP) RO,WRT .RP ;:DATA XFER TO FE CYLINDERS ? :BR IF NO ;SET THE DIAGNOSTIC MOOE BIT RPMR1 1¢: REQUEST FROM ;PUT REQ. IN TRANSFER WAIT QUEUE ;:DPB ADDRESS TO R3 ;RPCS1 ADDRESS :SELECT DRIVE +IS IT A DIAGNOSTIC COMMAND ? (R3).,-(SP) C1v 040626 042712 ;REMOVE RO,WRT .RP RPDC 2s: OR CIA JSR c1z MOV 042232 $CI222? « CI1, CI3, s WHERE : ;:CALL THE LOAD(WRITE) ROUTINE ;sINDEX OF REGISTER TO LOAD ;ERROR RETURN ADDRESS ;LOAD CYLINDER ADDRESS RPDA 045210 1 ADORESS OF DRIVE PARAMETER BLOCK 1ORIVE NUMBER : CI1 = DATA TRANSFER 3+ CI3 = SEARCH REQUESTED BY DATA XFER :+ CI4 = NO DATA TRANSFER 3 o *flJNHUflJNHUF‘HW‘ CVNBUNFEO OB IO ND ah)w NWB W= OV i CI17 RTS MOV MOV MOV "COMMAND+GO", "A17EA16", " “DATA TRANSFER UNDERMAY ;WRITE THE RPMR1 REG +RPCS1 ADDRESS PC RPADR, R4 R1,RPCS2(R4A) 12(R2),-(SP) :SELECT DRIVE ;OESIRED CYLINDER ADDRESS AND “PSEL" My CP_0B0 POTM PERF +XxER MACRO v04.00 SER DICUMENTATION 1 DSC 83 10:32:28 PAGF 8 7 20 001) EASILY. THE USER CAN SCAN SCAN DOMN A COL' N, INSTEAD OF LOOYING Teewy THE TYPICAL LOMG ERROR REPORT, THE ONE UISADVANTAGE OF TrE 18%2. %g&?:éfigE:EPORY. IS THE AMOUNT OF ERROR DATA WHICHM CAN BE REPORTED U THE FIELD ‘D0 A ‘N SKIP . FOLLOWING QUESTION AND VERSION OF YOU WANT ANSWER THMIS WILL PROCEED WITH AND QUESTION. THE WARNING QUESTION WILL BE ASKED. *! A TESTING ‘v’ IF ONLY THE FE THE PROGRAM IS IN TO NEXT MESSAGE WILL BE OMITTED BUT AT IF MESSAGE “READ ONLY* MODE, ‘s IS TO BE TESTING FE CYLINDER ONLY THIS POINT, PROGRAM IS TrHE ! 2 IF ONLY THE FE CYLINDER WILL BE PRINTED. FOLLOWING E "READ ONLY" A 'Y' ANSWER WILL PROCEED WITH TESTING THE ENTIRE OISK. ANSWER WILL PROCEED WITH TESTING ONLY THE FE CYLINDER. ‘s IN CYLINDER AND ANSWER WIL.L PROCEED CUSTOMER DATA WILL BE OVERWRITTEN CONTINUE (L) OMLY APPEAR TO WRITE ANYWHERE ON MEDIA (L) N 2 THE FOLLOWING QUESTION. WARNING MESSAGE MODE (SWO-1), WARNING MESSAGE OIAGNOSTIC. THE PROGRAM WILL BE TESTED, IN IS LOCKED TYPED. IF ‘READ ONLY' WHEN THE PROGRAM IS STARTED, THE PARAMETERS. THE FOLLOWING MESSAGE ' CHANGE PARAMETERS (L) N 'N’ THE FOLLOWING MESSAGE o’ THE THE FOLLOWING MESSAGE LOCKED A IN “READ PROGRAM WILL MODE BE ONLY* IS MODE, NOT THE LOCKED IN OMITTED. ' OPERATOR WILL BE ASKED WILL BE DISPLAYED: TO ENTER 7?2 IF THE ENTRY IS A 'N' FOLLOWED BY A CARRIAGE RETURN OR JUST A CARRIAGE RETURN (DEFAULT), THE PROGRAM WILL NOT ALLOW ANY PARAMETERS TO CMHANGED AND WILL CONTINUE. IF THE ENTRY IS A 'Y' FOLLOWED BY CARRIAGE RETURN, THE OPERATOR WILL BE ALLOWED TO CHANGE THE PROGRAM PARAMETERS. THE PROGRAM WILL IDENTIFY DISPLAY THE CURRENT VALUE THE PARAMETER BY THE NAME GIVEN BELOW, OF THE PARAMETER AND WAIT FOR THE ENTRY. PROGRAM WILL TYPE 'INVALID ENTRY' IF THE ENTRY IS NOT FOR A CORRECT ENTRY TO BE TYPED. (SEE SECTION 4.1.1) CORRECT AND THE WAIT IF THIS IS THE PROGRAM'S FIRST START, THE STATUS OF THE DRIVES ON THE SELECTED MASSBUS SUBSYSTEM WILL BE PRINTED. ON ALL SUBSEQUENT STARTS, THIS TYPEOUT MAY BE INHIBITED BY SETTING SW<02> =1. caRJOBRO RPC" PERF FXER MACRO vO4.00 1 OEC 83 10:32:28 PAGF DOCUMENTATION THE FOLLOWING JRIVE NOVND WO $R THE 1 4.1.1 1 AN EXAMPLE DRIVE N1 5EQ 0012 STATUS PRINTOUT: STATUS: ONLINE RPO7 LOAD DEVICE OFFLINE RPO7 ONL INE RPO7 NOT PRESENT NON INTERLEAVED NOT AN RPO7 NOT PRESENT NOT PRESENT' ABOVE DRIVE STATUS SHOWS 7 WILL NOT BE TESTED. KEYBOARD QUESTION ¢ IS 8 8 ENTRY BASE 10. THAT DRIVE O WILL BE TESTED, WHILE DRIVES PARAMETERS DEFAULT VALUE 12800. (SEE NOTE) VALUE RANGE 6 - FUNCTION 12800. CONTROLS THE MAX1MUM WORD COUNT USED FOR DATA TPANSFERS NOTE: THE PROGRAM WILL SELECT A MAXIMUM WORD COUNT, WHICH IS DETERMINED BY THE MEMORY AVAILABLE. THE MAX. WORD COUNT ASSIGNED BY THE PROGRAM IS 12800. (1 TRK) WORDS. THE OPERATOR MAY SPECIFIY ANY OTHER MAX. WORD COUNT AS LONG AS THE VALUE SPECIFIED IS AT LEAST 6 WORDS BUT NO LARGER THAN 12800. WORDS OR MEMORY AVAILABLE. (WHICH EVER VALUE IS SMALLER) 10. 0 0 - 32767. 10. 15. 0 - 32767. DETERMINES THE INTERVAL (IN MINUTES) BETWEEN AUTOMATIC PERFORMANCE REPORT TYPEOQOUTS; NO TYPEOUY IF THIS PARAMETER IS O OR IF SW<O2> =1 DETERMINES THE INTERVAL (IN MINUTES) BETWEEN DATA COMPARES TO MEMORY AFTER A READ DATA COMMAND. ALWAYS DO COMPARE IF THIS PARAMETER IS 0. IF SWO1 =1, THEN NO DATA COMPARES WILL BE GRANTED,UNLESS A ERROR OCCURS. 10. 1 1 - 32767. ‘DCK'’ NUMBER OF PASSES TO END OF TEST. (THIS PARAMLTER IS NOT USED WHEN THE PROGRAM IS P JRODBC RPOTM PERE tYER MACRO vO4.00 1 OEC 8% 10:3.: B OPALE g 5£Q 0013 ‘9 USER DOSUMENTATION OPERATING Q 10. s 1+ IN AUTO RUN MODE ) PARAMETER=0O,DATA SELECTED. ONE 15, IF PARAMETER>O,SPECTIFIES OF THE THE PATTERNS. SELECTED DATA PATTERN THE PARAMETER IS POINTED By “PATTERN". 6 8 000000 0 OR ¢ *WRDCNT' (MAX PARAMETER COUNT WIL! *WRDCNT® 8 SECTION 8.4, WRD CNT). = BE 1, THE THE WORD VALUE (MAX WRD CNT), CONTROLS 000002 (SEE IF PARAMETER = O, THE WORD COUNT IS RANDOMLY SELECTED BETWEEN 6 AND THE VALUE IF ? PATTERN IS RANDOMLY THE APPROXIMATE RATIO OF READ TO WRITE COMMANDS . ~NROVNDB WO VALUE 8 8 9 8 000001 000001 OO0OR 1 OOR 1 R/MW RATIO 1571 771 6/2 573 4/4 3/5 2/6 177 IF PARAMETER OF SEEKS. = 1, END OF PASS DETERMINED By THE 'WORDS REARD’ COUNT. IF PARAMETER = O, END OF PASS IS DETERMINED BY THE NUMBER IF EQ 1, DO AN APPROPRIATE WRITE CHECK AFTER EACH WRITE COMMAND. IF EQ O, SELECT WRITE CHECK COMMAND RANDOMLY . 10 8 000000 OOR 1 IF PARAMETER=0,RANDOM DATA BLOCK ADDRESS IS USED IN ' 7' COMMAND IF PARAMETER=1,SEQUENTIAL DATA BLOCK IS USED IN ' T+ .1.2 COMMAND. CHANGE DEVICE ADDRESS THE RP/RH ADDRESS AND VECTOR MAY BE CHANGED WHEN THE PROGRAM IS STARTED AT ADDRESS 204 RESPONSE WHEN IT ACCESSES OR 1IF THE PROGRAM DOES NOT THE DEFAULT RP/RH ADDRESS. RECEIVE A CIRLORY AOD" PERC t (O ¢t XER MACRD vo4 .00 1 DEC 8% 10:8 ;.8 PAE USER DOCIMENTAY (O (DEFALT ADORE S : 176700, vECTOR - 20 0Cle 094 ADDRESS SELECTION ExAMP ¢ 4 EXAMPLE 1 RPCS1=176700 «CR> RPVEC=000254 «(CR> iNO CHANGE iNO CHANGE IN ADORESS IN ADORESS EXAMPLE 2 RPCS1=176700 172400<CR> RPVEC =000254 224<«CR> ;CHANGE BASE ADORESS TO 172400 tCHANGE VECTOR ADORESS 10 224 KE*BOARD COMMANDS THROUGH THE KEYBOARD COMMANDS, THE OPERATOR MAY ASSIGN ORIVES FOR TEST ('7° COMMAND), WRITE SEQUENTIAL DATA ('w’ COMMAND), PERFORM A SEQUENTIAL READ (°R‘ FOLLOMWED BY SUMMARY ('S’ THE "T*, TEST ('WT' COMMAND COMMAND), PERFORM WRITE DATA AND ), REQUEST A DRIVE PERFORMANCE COMMAND), OR DEASSIGN A DRIVE ('O ‘W', 'R’ AND 'WT' COMMAND). COMMANDS ARE EXCLUSIVE TO ONE ANOTHER ON THE SAME DRIVE UNDER TEST. THME ‘O’ COMMAND MUST BE ENTERED IN ORDER 10 ISSUE A DIFFERENT COMMAND TO THE SAME DRIVE UNDER TEST. EXCEPT FOR THE 'S’ COMMAND, WHICH CAN BE ENTERED AT ANY TIME DURING THE TEST. IF THE PROGRAM WAS STARTED AT ADORESS 204 OR IF NO DRIVES ARE ASSIGNED FOR TESTING, THE FOLLOWING MESSAGE WILL BE TYPE BEFORE ENTERING THE COMMAND MODE. MOWEVER, IF A 'CONTROL C' IS TYPED WHILE TESTING IS IN PROGRESS, THE FOLLOWING MESSAGE WILL BE OMITTED AND THE PROGRAM WILL ENTER COMMAND MODE. "NO DRIVES ASSIGNED’ WHEN THE PROGRAM ENTERS THE COMMAND MOOE, WILL BE TYPED: THE FOLLOWING PROMPT ‘MM MM:SS ENTER COMMANDS:' THE PROGRAM WILL THEN ACCEPT ANY OF COMPLETION OF A COMMAND, THE VALID COMMANDS. TRY TO ASSIGN THE DRIVE(S) THAT WERE REQUESTED. CANNOTY BE ASSIGNED, AT THE THE PROGRAM WILL EXIT COMMAND MODE AND IF THE DRIVE(S) ONE OF THE FOLLOWING ERROR MESSAGES WILL BE REPORTED AND THE PROCESS CONTINUES FOR EACH ORIVE. RESPONSE ?0RIVE N LOAD DEVICE ?DRIVE N OFFLINE 20RIVE N NOT ASSIGNED COMMAND( S T, T, 0., W, R, W, R, S WT WT CIRUNBY ROC" PERS ¢ YER MACRD V04,00 1 USER POCITMMENTAT (N 10:8,:°A P4 PR ¢ )] F0 0019 JORIVE N ALREADY ASSIGMD 20RIVE N NOT PRESENT T, T, W, w, R, R, w? wt 20RIVE N NOT T, w, A, wt 20RIVE NEXT, DFC 8T N IINSAFE 1, AN RPOT THE PROGRAM WILL PROCESS ALL WHEN THE PROGRAM IS ASSIGNING TO CHANGE THE W, R, wY THE ASSIGNED DRIVES AS FOLLOWS: THME ODRIVES, DRIVE PARAMETERS WITH TeE OPERATOR WILL BE THE FOLLOWING PROMPT: ASYED ‘CHMANGE DRIVE PARAMETERS (L) N 2 IF THE ENTRY IS A 'N° RETURN (DEFAMALT), FOLLOWED BY A CARRIAGE RETURN OR JUST A CARRIAGE THE PROGRAM WILL NOT ALLOW ANY DRIVE PARAMETERS T0 BE CHANGED AND WILL PROCEED TO TEST THE DRIVES AS COMMANDED. IF THE ENTRY IS A 'Y’ FOLLOWED BY CARRIAGE RETURN, THE OPERATOR WILL BE ALLOMED TO CHANGE THE PROGRAM WILL REFERENCED FOR 'ORIVE @ N, THE FIRST CHANGES PGXXXX, DRIVE PARAMETERS AS FOLLOWS. TELL AND THE THME MARD OPERATOR WIRED DRV wWHICH SERIAL ORIVE IS BEING NUMBER FORMAT. ADDRESS LIMITS;' WHERE ' XxxX' IS THE MARD WIRED OECIMAL SERIAL NUMBER CONTAINED IN THE RPSN REGISTER OF THE MBA., IF TrE DRV SERIAL NUMBER IS NOT JUMPERED IN THE RPSN REGISTER, 'XXxxx' WILL APPEAR AS ‘22272, THE PROGRAM WILL PARAME TERS. DEFALT VAL UE NAME MIN CYL MAX CYL MIN TRK MAX TRK MIN SEC MAX SEC e REQUEST VALUES FOR VAL UE RANGE . s 630. 0 31. 0 49, IF RUNNING THE ONLY ON THE FE THE FOLLOWING ADORESS LIMIT FUNCTION s - - 630. THE o 0 0 0 - 31. 31. 49, 49, THE THE THE 630. MINIMUM CYL INDER ADORESS THE MAXIMUM CYLINDER ADDRESS MINIMUM TRACK ADDRESS MAXIMUM TRACK ADORESS MINIMUM SECTOR ADORESS THE MAXIMUM SECTOR ADORESS FIELD VERSION OF THIS PROGRAM AND TESTING OCCURS CLYINDER, THIS VALUE WILL BE 630. IF RUNNING THE MANUFACTURES VERSION OR THE FIELD VERSION OF THIS PROGRAM AND TESTING IS ANYWHERE ON THE MEDIA, THIS VALUE WILL BE O. .2. 1 * T COMMAND USED TO ASSIGN A DRIVE(S) FOR A TEST., TO PERFORM THE FORMAT: N = TEST OF THIS COMMAND IS REQUIRED THE DRIVE(S). TN<CR> DRIVE NUMBER. MAY BE O TO 7 OR ‘A‘. ENTRY TERMINIATED BY A CARRIAGE RETURN <«CR>, MUST BE CTRURY RPCTM PR ¢ WER MACRD vO4.00 | JEC 8% 10:832:°8 PaGE USER DOCIMENTAT (N EXAPLE: 0 TOCM> * |2 W0 0018 ASSIGN ORIvE O FOR TESTY TA«CP>» ASSIGN AL AVALLABLE ORIVES FOR TFST CovwnD USED TC DEASSIGN A DRIVE(S) Ot ING EXERCISED. FORMAT: N s DNeCR> DRIVE MUPBER, MAY BE O TO 7 OR ‘A', ENTAY MUST B¢ TERMINIATED OY A CARRIAGE RE*URN «CR>, EXAMPLE: 'S DO<«CR>» DA<CR> DEASSIGN DRIVE O DEASSIGN ALL DRIVES SEING TESTED. CunMAND USED TO REQUEST A PERFORMANCE SUMMARY TYPEOUT FOR THE REFERENCED ORIVE(S). AFTER THE 'S’ COMMAND MAS BEEN PERFORMED, THE PROGRAM WILL AUTOMATICALLY RESUME TESTING THE ORIVE(S) WMICH WERE UNDER TEST. FORMAT: N = SN<CR» DRIVE EXAMPLE: W' 4.2.4 » ‘R’ USED 7 OR ‘A'. ENTRY mMUST BE - TYPEOUT PERFORMANCE SUMMARY - TYPEQUT PERFORMANCE BEING TESTED. SUMMARY FOR ALL FOR DRIVE O DRIVES = ‘WY OF THE DISK, WITr DATA ACCEPTABLE ‘A'. <CR»>, ENTRY MUST EXERCISER PROGRAM. WN<CR> MWO<CR>» WA<CR> MAY BE O TO 7 OR A CARRIAGE RETURN - WRITE WRITE BE A DATA PATTERN ON DRIVE O. A DATA PATTERN ON ALL AVAILABLE COMMAND TO PERFORM A SEQUENTIAL READ OF THE DISK. RN<CR> DRIVE NUMBER. TERMINATED BY EXAMPLE: 4.2.6 TO SACR> DRIVE NUMBER. TERMINATED BY FORMAT: N O SO<CR»> PERFORMANCE EXAMPLE: 4.2.5 BC TO PERFORM A SEQUENTIAL WRITE THE FORMAT: N MAY COMMAND USED TO NUMBER. TERMINIATED BY A CARRIAGE RETURN «CR>, RO<CR> RA<CR>» COMMAND MAY BE O TO 7 OR A CARRIAGE RETURN - READ READ THE THE 'A’'. <«CR>. DATA ON DORIVE DATA ON ALL ENTRY O. MUST BE AVAILABLE DRIVES. DRIVES. o CIRIOBY APC" PLAF FER MACRD v04.00 1 -0EC 68 10:52:70 Pk 3 1S S8Q 00)7? USER DOCUTENTATION VSED 70 PEIFORN A SEGENTIAL MRITE OATA, FOLLOMED BY A T FORMAT; COPWD. WTheCR»> N - ORIVE MUDER O TO 7 OR -A-, ENTRY MUST BE CARRIAGE RETURN <CR>, EXArPLE: WTO«CR> . MRITE A ODATA PATTERN AOD TESY ORIVE O WTACR» PERF ORMANCE . WRITE SUMMARY “ TEANINATED 8¢ A e e s A DATA PATTLAN AND TEST AL DRIVES TYPEOUT e eesan P THE PROGRAM WILL OISPLAY A PERFORMANCE REPORY FOR g ORIVES BEING EXERCISED. THWIS REPORT WwILL O€ OISPLAYED AUTOMATICALLY IF THE PARAMETER ' INTRVL® IS MOT ZERQ AND SW<02°°0, OR IF g ORIVE MAS REACHED THE DEFINED MIBER OF PASSES AND Sw<«08>-0, OR IF THE OPERATOR REQUESTS TO DO SO BY USE OF g S COPWOD. THE REPORT TYPEQUT CONTAINS THE FOLLOWING ¥ IELDS: *TIME’ ‘ORIVE’ ELAPSED TIME OF PROGRAM DRIVE NMPBER - DRIVE TvPE *PASS: PRESENT PASS COUNT FOR ‘DRV S/N° 'WROS WRITN /° ¢ * PASS’ TOTAL' ‘WROS READ /¢ ¢ PASS' HARD WIRED MASSBUS ADAPTER SERIAL WPBER(RAMSN) THE DRIVE NIBER OF WORDS MRITTEN EACH PASS BY T E TOTAL MASER OF WORDS (X10'6) WRITTEN OY NMABER OF WORDS READ EACHM PASS BY T+E 'SEOYGL‘ TOTAL MPBER OF WORDS (X1006) READ 8y * NMIBER OF * PASS’ TOTAL SEEX OPERATIONS EACH PASS BY TOTAL MUIBER OF SEEX OPERATIONS BY ‘SOF T’ NPBER OF SOFT DATA ERRORS ‘SKT* NPBER OF ' HARD' NMAMBER ‘OTHER' OF *'SKI* ERRORS PROGRAM DETECTED POSITIONING TOTAL ERRORS OF OTHER TYPES ERRORS EM1, EM2, EMS, ‘OTHER’ ERROR TOTAL. 5.2 SOF T/HARD ERROR OEF INITIONS 5.2.1 HARD ERRORS A. DRIVE TrE DRIVE THE DRIVE ORIVE NIBER OF MARD DATA ERRORS ‘MISP’ NOTE: "€ ORIVE Tr€ DRIVE EM4, EMS, € EMI0 ARE NOT ERRORS INCLUDED IN THE A 'DTE’ (ORIVE TIMING ERROR) OR A ‘OCx: (DATA CHECK ERROR) WHICH OCCURS DURING A READ DATA OR A READ HEADER & DATA OPERATION AND IS NOT CORRECTABLE "R DOES NOT PROGRAM HAS PERFORMED 7'« COMPLETE SECTOR, BECOME CORRECTABLE AFTER THE RETRY SEQUENCE ON THE BAD THE AT RETRY SEQUENCE IS 16. RE READS TRACK CENTER AND 2 ATTEMPTS CTR A @OC”° Pt e DOCIeENTAT (N ¢ (48 MalR) vo4. 0 1 FC 8% 10::0n PF 80T AT %.2.2 PO41TIVE MO (ATl G2 § 38 FQ OFrRTS, SOF1 EARORS A, 6. C. 0. €ECC COMECTALE OCw: EPRQORS. 'OCx' & ‘ECw- ERRORS weIC» SECOR| ECC C”C"l OUR NG RETRY OR WI0 ARE READ COMMECTLY DURING AR 'CADER READ EARORS- AEAD DATA, READ nm- C oATA, OB WRITE DATA COPWOS 'OTE" ‘00K EMRORS WeICw AL COMRETTED OR WI0w GECOE ECC CORMECTagn & ERROR DURING Tr€ RETRY SEQUENCE. DlYl O€CxXING £ CERROR RECOVERY ---------------------------- - DATA COMPARISON DATA COPARISON OCCURS AF TER EACH "RODAT: (READ 'EADER AMD DATA) OPERATION VWOLR A, 8. 6.2 (READ DATA) OR ' ADO TigE FOLLOWING COMDITIONS, T COTMD TERMINATED WITH MD CEARORS AND Suw<01>-0 THE OPERATION TEAWMINATED WITi OCx: CORECTABLE OR TrE RETRY ATTEMPTS, SECTOR I ERRON SET AND "€ ERROR IS READ CORRECTLY IS ECC AF TER VERIFICATION OF DATA WRITTEN DATA VERIFICATION IS DONE EITHER TrROUGH READING "€ DATA BACK AND MATCHING THE DATA Wit ONE OF Tr€ 1S. PATTEANS OR TrROLI ISSUING A MRITE CrECX COMPWND AFTER DOING A MRIIE DATA COWAND. BAD ADORESS FLAGGING ACCOMPLISMED BY THE APOT MARDWAAE SKIP DEFECT. ERROR MESSAGES ERRORS ARE REPORTED OM THE TTY CONSOLE. TrE PROGRAM CONTAINS NO CODED ERROR WHALTS. IF THME PROGRAM MALTS (ASSUMING, OF COURSE, THAT SWc1S> IS NOT SET), AN DRECOVERABLE PROGRAM COMOITION MAS OCCURRED OR A CENTRAL PROCESSOR FAILURE MAS OCCURRED. ERROR MESSAGES ARE MADE UP OF SEVERAL LINES. EACH TYPE OF ERROM MAS SEVERAL OPTIONAL LINES WHICH MAY APPEAR WITwW IT. ALL OF Tr€ POSSIBLE ERROR MESSAGE LINES WHICH MAY APPEAR ARE GIVEN IN TrE SECTION DESCRIBING THE PARTICULAR ERROR MEADER. 7.1 ERROR DESCRIPTION LINES (THE MESSAGE MESSAGE TAGS ARE GIVEN FOR REFERENCE.) OGLA SRR 8O U R DO PR NTAY ] LR MACR) yO08 O 1 ¥C 08 SIS 2@ OC1Le TEn? 14, tTM 10, WM PB e CONTROLLER INTEARMST GOOUNRED (UN-9) T*€ e CONTOOLLER INTEARSTID AP NG ATHNTION Ssowlv RELISTER (Mmas) was CLEARED. 1 30”1 U PECTED "€ INCICATED ORIVE PL Oir AF [0 €ns ATTENTION OCOURRED INTEAMUP'ED BUT NG ORIVE WAt NOY Ay OPERATION. MASSBUS PARITY ERACR (NCPE-)) M€ B DFTECTEC A CONTROL BUS PARITY EAROR WEN AEADIN, "€ INOICATED MEGISTER FROM Thg INDICATELD OIvE. € MASSBUS PARITY EARCOR (PaR-]) "€ INODICATED B DETECTED A CONTRAOL B8 PARITY (BROR WEN TrE a0 OPE- DNOICATID ORIVE INTEMM P TED 10 ADDRE SS ING Tr€ PROCRAN ADDRF SSEN To@ M, Tr€ IMDICATED AUOSESS. MO RESPONSE wAS RECEIVED UNCORQECTABLE MASSBUS PARITY EAROR THE PROGRAM WAS RECISTER, Entl SPECTIFIED MECISTEN. OIT wAS SET WEN T*€ Rt OIONT RESPOMD WEN FROM €mo Tr@ ADORE SS MLUL OvnGE OIT SETY @ € A LOADED FATAL TRIED RASSBUS PARITY A CONTROL 3 TIES 10 AEAD OR WRITE T INCICA'ED ERAROR BUS PARITY EAROR OCCURRED weEN TM€ A AITErOTED 10 PHROCESS A PREVIOUS, ODIFFERENT PARITY ERROR. Em12 PERSISTENTY DEVICE UNSAFE THE DRIVE DECAME UNSAFE; ORIVE CLEAR YO & DRIVE OID NOT CLEAR TrE UNSASE COMDITION. Tr€ PROCRAM Wi L AUTOMATICALLY DEASSIGN TE DRIVE. ThE DRIVvE CAnNOY BE ExERCISED UNTIL Tr€ UNSAFE COMDITION mAS BEEN CLEARLD BY MANUAL €Ems INTERVENTION. OPERATION NOT COMPLETED WITWMIN TINE | IMIY THE DRIVE DID NOT COMPLETE TWE OPERATION WITMIN M TER THE OPERATION WAS INITIATED. Enle UNIT WENT OFFL INE 10. SECONDS CO W VR W)Y 8P " PIo L vER maAlR" PMENTAY (N v N | T 0% 102 moE I.? S e K ¢ 00’V NT O e OSTE G (@ ")- Ol S g NGO ) T Ota'Sim Tvg Wile Te@ ‘7T €93 MNOICATID GPTMn?ION P AM® whii A" PR ICQL? OB vt '@ OFISArID Ayt BEassSIoh g DRIw COPWAD 0 MR InNiTIATR TES'ING. N0 REIPONIE TO PORT MIES? o€ FPROLAAR IS TRSTING A O PORT ORTvE WO s NOT Sl 10 I'€@ ORI PORT wIt=Iw 13. UIDWI 0 NG ORIV FRON g REPORTING PORT & (N PORT MOS €0 A 'GAOIR CRC CRROR s OF TECTED A @ INDICATED DI ADORE S "€ CONTENTS OF Te@ 'GAOEA ARE OISMAYED Tvg OPERATION Wil Ot AETRIED 3 RS, €21 OATA O€Ox (00K ) ¢mROR A OATA O€E(x EAROR wAS DETFCTED AT D@ Ve FULL RETRY SUOENCE '(?fl'.t‘ SECTOR In CAROR IF en22 WRITE OGO CARGR DOICATID MC'OM (INCLUDING OFPSET) with OF INITIATED Tr@ ECC *mmD EAROR ¢ EOe) B1f - DATA OROX (90" ) MY A MRITE OECK ERO0R OCOURRED M@ NE DATA OEOX (- OCH) 917 WAS SET. IF €O 1S WOT U TO S TINES, IF @ BE RETRIED WP 10 16. 11,54] MRITE O€CX ERROR €Cw SET, TI'ES. @ OPLAATION will OC Mg 'TMSIED BfT I8 SET, Th@ CPEAATION wiiL - DATA O€OX (00X ) NOT A7 A WRITE OFECK EARNOR OCCURRED MO 00K WAS NOT SET. TM WORS WMICH CA. (D TrHE LEwOR ARE DIMLATED In Trg CAROR MESSAGE. En2e THE WMEADER READ EAROR A MRITE DATA, - ‘FWT° WMRITE 3 TDMES. BIT OROPPED O€ECX DATA, OR A AEAD DATA wAS O€ INC PERS ORMED AMD A ‘FNT' EAR0R OCOURRED. TrE PROLAMY R READ Irg CONTENTS OF THE MEADER ARE DISPLATED. OE RETRIED § TINES. TG OPERATION wiLL MEADER OF en2s OPLRATION will OF MEIRIED THE EAROR SECTOR MO Th€ MEADER READ ERROR MORC: B1T was SET 1o - }EADER COPARE (' »CE’ ) EAROR SINILAR TO EM24, EXCEPY THAY Ti@ ‘wCE: ERROR BIT wAS SET INITIALLY. THE OPERATION WILL Of ME'RIELD § TIvES. En2eé FORMAY ERROR (°FER') FORMAT ERROR OCCURRED. ‘HCRC: BIT WAS NOT OISPLAYED. En2? SET. WEN T'€ MEADER WAS AE Tr€E CONTENTS OF READ, THE OPERATION WILL OE RETRIED 3 TIreS. HEADER COMPARE (' wCE' ) ERROR T g Tr€@ EALR ARE ¢SO CTOLM" 14 B 80 - Ptan ¢4 O N Ped NalD" Ed et D MENAT (Y SCME e €"so SR NLT WX(I I 1 oL OV und Wt 424t 1On wlia OF QL'OIRD P YIRS, "It Yo, g Ong ORIV C(RROR SR AR, tns, PEV'IAL . [3 CIWN COR Dg FALLOUDS RGN B1's . R, W ORATION IO .00 AN ETE (01 ) AR :'nil'lfll COMLTE CAnoe GCOANED A0 G DOICATTS . [ £} Fo ORIVE TIWNING ( OYTE " ) CRAOR DR'vE TImiw (MROR OCCUANED ? G O1uATION wils Ot M 'alEDd § DR, €33 PARITY ( DOICATND ®CTON. Mha PAR ) CAROR &F TER OPUMATION STARTLD & PAR PIY wAS SFT wEm N OMERATION W COMIETID. OPtRATION will O mTRILD § I s, €nse WTE QOCx FADLURE (" WDF ) A MRITE QO FAIL OPtRATION willL €mss ST OCCURED DURING M "R](D § TS, g INvALID ACORESS C(AROR OCOURRED DURING WRITE LOCX ("€ A MITE LOCxtD. (3, 1) Ot OPYRATION. D4 Ival 1D ADORESS (-1At ) EAmOR A En3e Mg TM OPIAATION ) ERRMOR OPERATION wAS ATTE'OTED BUT T DRIvE wad wilTe Mt CONTROLLER OR UNIBUS TRANS EA ERAROR "TRE IS SEY Iw @ e CONTRL BEZISTER AnD WO DR IVE € M mAS OCT s/t ) "€ OPt~ATlum wilL O¢ AELIRILD § TireS If TrE Lol WAS CAUSLD BY 0T, WP , ‘', OR rOPE" . Ene} BUS ADORESS OR wORD COUNY INCORRECY N0 DRIVE ERROR OCCURRFD BUT EITvER THAT AN INCURKECT WORD COUNT 11, P4 REGISTER OATA COMPARE ERRORS NO OF 1S NOT - WwkCS Ztwy. € B3 ADORFSS WEHE TRANS twt) INDICATES OB T MO DRIVE ERROR DETECTED SUBSYSTEM ERROR WAS SIGNALED, COMPAKE. Eral MABtR "OMEVER, CAN'T MATCw DATA READ WITH A PATTERN Tr€ DATA DOES MDY (' IR 80 " Mo $18 P(B) ¢08 O 1 Ol MENTAT, (N HC 03 Tog Oo°a Ty E 0ngh § e 0 /IR SIS NI ‘TS e K2 10:-2-J0 MAIDN A F g STaD ERROR SIT(S) SET. VT uD CAAER SISWALED OV BE B COVAR L9 @ QPEATION COWRE YD WEmLY AR, g SOCRE OO LD CRRGD §1Ty In G AP 3T G CANgH @313 N Tve G CONTRGLLER 921, €3 €T LOGIC FARLVGE QUG ‘S0 (AROR PROCIIIING, N CONTENTS @@ B €CC POLITION SECISTER (SPECL) OR P CON'EN'S OF ECC Pa’'gam MELISTER (WEC2) AN WOt AL ID TG POLITION SEGCILTIN wAg $TER 0 OF UATER Trtss 010080, OR Tvg PaTTeMm REC]5 TS CONTAINED ZUROS. €6 GUS ACORESS OR WORD COUNT NO? CONSISTENT g PROCAANR wid PROCTSSIVG AN NIVIR (F WORDS TRAn. (AED AS COROR B .I3TE0 DOLS NOT ALAEE wiTw Th@ WORO COMT MECISTER. €n0 D FOMD INO:CATED @Y To@ N BUS AOOMTSS TRans/ (R COM! SRON Trg SIEX INCOPLETE CAROR '€ ORIVE SIGWMLED EIVER (1,r)) N0 USED €0 DEVvICE VWAt $x]- CAROR. TM€ INDICATED DRIVE UNSAFE (DOR OCOUANED, CLEARLD OY A DR!vk CLtAR InSTERC T IOM T (RROR wAY DETAIL EMROR LINES T Tt LINE WPBERS CIVEN BELOW AMRE FOR REFERENCE Oda v LI 04000 SS et MY SST (HOURS, ‘PRSNT IS THE MINMUTES, COMMAND+ TIME SINCE SECUNGDS) XXXX MNEMONICS USED FOR Tt PREV "€ PROGRAM wAS STARTED. COMMAMDe COMMANDS ARE YrYYY' DEF INED BELOW: W2 TEIWC LR [ WP C P GeEs MAIR vo8 G | S M NTAT wee 10-82:70 Gt L2 9 19 ne 082 bAL 4/W })) ~ " 4N ) o 4 it eC - Frut . O vy | D - PaCw A0 EDGR (OCTRL 29) - ITE O€lx g a0LR ¢ o-u (G'A 33) (R 1gna'e (TR ¢ oIt (1, 1%) - oy . cesg (OCTAL 39) SsaCin (KA 1Y) e 1 B - MEaOIw PEESET (OCTM, S{ of WREA) StamCn ol 'TMG oSt TIWMYT oSELODRY D . . « WIDAT . WPITE OAYTA (OCTM 61) o ® Ldall ] A00AT a0 o 63 SPECIaL AP SIARO» (OC'MR, $1) GIY MECISTENS (OCTAML o4V FrOwt (L1 OO 0(!) (R'I a3) SELECY OPIVE (OCTA, & WRI'E Ol OA'A (OC'EM s + POl TRAOK (WRITE 'QADER § DATA) (OCTA, o3) - MEAD DATA (OCTAm. 7)) - READ 'CADER ¢ DATA (OCTL 7D) SRIVER COVIO (NDT A CONTROLLER COVWO) (DISPLAY OF M WURP RECISTERS I TO GROPS, arCs1, APCS2 LRy, ASER2, APEC] MO BPEC2 m- ha et RO, AL h( OTvEn MCisTeng ANE IN hE HCOO CAPOP g “‘325 IS SET, GAY Tr@ AEGISTENS Dn Tr@ FIRST GAOSS wWILL OF "E ASOVE LD WILL 6 TvPED IF Ne (AROR OCOUMRED DUADG T'€ NON-OATA TRANSFER PART F NG OPEAATION. ‘e ERROR AT BAD TRACK/SECTOR’ "€ ABOVE LIME WILL OF PRINTED IV A OATA ERROR OCCURES AT Al ADORE SS ON TrE DISK WMICH THE OPERATOR sAS IDENTIFIED AS BEING BAD. Paamg TER ‘NOTPRTY: ~ .7 O€ O FOR '€ ERROR 10 O AEPORTED. A WORD CALLED ‘STATUS' IS OISMAYED WITw M€ ERROR AT CxxX Tyy PREV AP REGISTERS. g CONTENTS OF TWIS WORD IDENTIFY WOWw Th€ EAROR WAS PROCE:SE0 BY AP DRIVE HMANDLER AOUTIME. (SEE SECTION 9.7) THE ACTUAL S22 ADDRESS OF TrE ADDRe CUAA ERROR SECTOR AND DISK ADORESS ARE GIVEN IN THIS LINE. SECTOR ADORESSES ARE IN DECIMAL . PRSNT ADORe CXXX THIS LINE THE TYY SZZ IDENTIFIES THE PREVIOUS ADDRESS IS PREV TYVY ADDR: ADORESS WEN ALSO GIVEN. S € PREVIOUS CYLINDER, CUAN THE TVV THACK, S ERROR WAS DETECTED; CYLINDER, TRACK, & SECTOR N CIRME O PLAC (xR MACRD vO8 (0O 1 XC 63 10:%2: POl S O MO 002¢ VER DOCLTME NTAYION ADDRESSES amv (IvEw N DECTTMAL . STARY Cvie Tl LINE NXE €MD CvLe vYVY TOENTIFIES NG STARTING (M ;.é ThE DESTIVATION CTLINCER. START CviLe XXX THIS LINE END CVLe NOE® ON & SFEv ( PPN IED) (CTLINOER AQORESSES ARE vVY [N ACTum. CviLe 222 IDENTIFIES TE STARTING CYLINDER OF AN I*PR IED SEEX, THE DESTINATION CYLINDER, STOPPED AT. AND Tr€ CYLINCER CVYLINDER ADORE SSES ARE To€ DISK IN DECIMAL. ACTUALLY 7 LIt RPBA= XXXX RPUCe YYVY THIS LINE GIVES THE CONTENTS OF THE Re CONTROLLER BUFFER ADORESS REGISTER AND THE Ret CONTROLLER WORD COUNT NOT PRINTED IF Sw<0S5> IS NOT SET. START CvL= THIS LINE XXX STARY IDENTIFIES THE OPERATION. CYLINDER, RPDA= RPCAs XXXX TRXe YY START SECTOR. STARTING TRACK, REGISTER. AND DISK SECTOR THIS LINE 22 ADORESS OF VALUES ARE THE PRESENT DECIMAL . YYYY THIS LINE GIVES THE CONTENTS OF THE RP TRACK AND SECTOR ADDRESS REGISTER AND THE CONTENTS OF THE DESIRED CYLINDER glE)(%RESS REGISTER. THIS LINE IS NOT PRINTED IF SW<05» IS NOT BUFFER ADDR= XxXXX THIS LINE GIVES WRD CNTe= THE YYYY STARTING ADDRESS CURRENT DATA TRANSFER OPERATION, ACTUAL NUMBER BUFFER IS ARE OF WORD IN OCTAL, IN DECIMAL. ACTUAL NUMBR WRDS XFRDe TRANSFERED. OF THE BUFFER USED FOR ITS SIZE(WORD COUNT), THE STARTING THE WORD COUNT AND WORDS 2222 ADDRESS AND OF THE THE THE TRANSFERED VALUE IS C.RUORO RPOTM PERF USER DOCUMENTATION EXER MACRO vO4.00 1 OEC 83 LINE N 8 21 XXXX RECEVD DATA= THIS LINE GIVES THE SggITZE LOCATION OF mMaL. HEADER CONTENTS OF THIS LINE GIVES GAVE THE ERROR. YYYY WORD PQOS= 222 EXPECTED DATA, THE RECIEVED DATA FROM THE DISK, THE WORD IN THE SECTOR. THE WOFD POSITION IS IN ERROR THE SECTOR= CONTENTS OF XXXX THE XXXX XXXX HEADER OF XXXX THE SECTOR WHICH 13 RPEC1= XXXX RPEC2= YYYY THIS LINE WILL BE PRINTED AFTER A SUCESSFUL WHICH BECAME ECC CORRECTABLE DURING RETRY, LINE SEQ 0€2S 11 EXPCTD DATA= LINE 10:32:28 PAGE RETRY OF A SECTOR 14 ECC CORRECTABLE WITHOUT OFFSET THE SECTOR NECESSARY . LINE IN ERROR IS ECC CORRECTABLE; NO RETRY ATTEMPTS ARE 15 READ CORRECTLY AT (NEG OR POS) OFFSET THE SECTOR IN ERROR WAS READ WITHOUT ERROR AT THE INDICATED OFFSET VALUE. ECC CORRECTABLE AT (NEG OR POS) OFFSET B?ESE$CTOR IN ERROR BECAME ECC CORRECTABLE AT LINE THE INDICATED 17 CORRECTED ON X RETRY ;??EoggflATION WAS PERFORMED ERROR FREE ON THE INDICATED RETRY MPT. CRUCRO RPOTM PERF USER DOCUTMENTATION EXER MACRO V04,00 1 OFC BX 10:%,:08 PALF LINE KOG 0G2% 18 UNCORRECTABLE AFTER THE 8§ 22 X RETRILS OPERATION COMLD NOT BE INDICATED NUMBER OF RETRY LINE PERFORMED CORRECTLY ATTEMPTS, AFTER THE 19 DIFFERENT ERROR DURING RETRY WHILE THE PROGRAM WAS RETRYING IF THIS LINE IS PRINTEC, PRINTED (SEE LINE 2). THE THE FRROR, A DIFFFRENT OCCURRED. RH/RP REGISTERS WILL ALSO BE DATA COMPARISON ERRORS A PRINTOUT LINE TOTAL OF THE DATA COMPARISON ERRORS FOLLOW THIS LINE. 21 COMPARE ERRORS= XXXX THIS LINE GIVES THE TOTAL DATA COMPARISON ERROR COUNT, VALUE GIVEN IS IN OECIMAL. LINE THE 22 THE DATA COMPARED Ox THIS LINE INDICATES ECC CORRECTION. THE RESULTS OF THE DATA COMPARISON FOLLOWING ECC CORRECTION RESWTS THE PROGRAM PERFORMED ECC CORRECTION AND THE RESULTS ARE REPORTED. THE ADDRESS IN MEMORY OF THE WORD(S) IN ERROR ARE GIVEN, THE WORD(S) BEFORE CORRECTION AND THE WORD(S) AFTER CORRECTION ARE PRINTED. ERROR BURST BEGINS AT WORD xXxX IN DATA FIELD OF ERROR SECTOR THIS IS AN INFORMATIONAL LINE WHICH WILL BE PRINTED FOR 'DCK' ERRORS WHICH ARE ECC CORRECTABLE OR WHICH BECOME ECC CORRECTABLE DURING CTRINEBY APO" PERF ¢t XER MACRD VO4.00 1 JFC BT 10:7. 108 PAs USER DOCIMENTAT [ON RETRY DECImMa. LINE ERROR X T T WMORT IN Tre DATA RCAD Cs 8 8 Wk T WAL FROM B WECE AND T, IN 25 WAS NCT €ECC CORRFCTION CAN'T BE PERFORTMMED THE DATA ERROR WAS NCT LINE IN DATA TRANSHERED 10 MEMORY, 26 CONTENTS OF THE ERROR SECTOR (REPORTED AaBOVE) IF SW<03> IS SET, THME SECTOR wHICH GAVE THE ‘'OCx , WCF ERROR OR MARD' DATA CHECK ERROR IS PRINTED. CONTENTS OF THE SECTOR FOLLOW THIS LINE. LINE 'DOTE Tt OR, 27 TOTALS; ERRORS:X THIS IS THE TYPE ERRORS, LAST WRDS WRITN: LINE Yyry WRDS READ: PRINTED FOR ALL 2222 NON-POSITIONING ‘ERRORS IS THE TOTAL ERROR COUNT FOR THE DRIVE AND INCLUDES EVERY ERROR DETECTED, REGARDLESS OF TYPE, ‘WRDS WRITN' ‘WRDS READ’ LINE IS THE TOTAL NUMBER OF WORDS WRITTEN THE 1S THE TOTAL NUMBER OF WORD READ BY ORIVE. THE DRIVE. 28 TOTALS; SEEKS: THIS THE LAST LINE PRINTED FOR ALL POSITIONING IS ‘TOTAL SEEKS’ BY THE DRIVE. XXX IS TOTAL POS ERRe THE vvYy TOTAL NUMBER OF TOTAL SKI ERR- 2 TYPE ERRORS. SEEX OPERATIONS PERFORMED *TOTAL POS ERR' IS THE ERROR BY THE DRIVE. TOTAL NUMBER OF PROGRAM DETECTED POSITIONING *TOTAL SKI THE DRIVE. TOTAL 'SKI‘ ERR' IS PROGRAM DESCRIPTION PROGRAM OPERATION THE NUMBER OF ERRORS SIGNALED BY 0027 o8 CSER WO AP0 PRI DL PENTAT (N L YER MACRD vO4 .00 1 OEC 83 10:8.:°8 PAF 1) 8§ 24 EQ 0628 €N THE PROGRAM IS STARTED, PROVIDING APT TTv ENAGLE BIT IS SET OR DIAGNOSTIC LOADED BY OTHER TrAN APT SCRIPY MODE, ALL TABLES MO PARAE TERS ARE CLEARED OR INITIALIZED., TrE PARAMETERS WMICH ARE UNDER OPERATOR TTY ENTRY CONTROL ARE CHECKED FOR VAL IDITY AND CONSISTENCY, M CONTROLLER INTERRUPT ENABLE (°IE°) IS SET, TTv XEYBOARD INTERAUPT ENABLE IS SET, AMD Tr€ wWll-L OR xw1i-P CLOCH IS STARTED. COMMAND ENTRIES WILL NOW BOE ACCEPTED BY THE PROGRAM, TM€ PROGAM SCANS ITS INTERNAL ASSIGNENT TABLES, 1) ORIVES YO ASSIGN/DEASSIGN 4) OR PARAMETER SELECTION. ORIVES COMPLETING CURRENT OPERATIONS. 2) $) LOOXING FOR: PTAFORMANCE REPORT TYPEOUT REQUESTS ORIVES REQUIRING COMMAND INITIATION, BUFFER ASSIGNEMENT, TeE PROGRAM CONTINUES SCANNING ITS TABLES UNTIL AN ENTRY IS FOUND. IN THE CASE OF THE PROGRAM AT INITIAL STARY, THE FIRST ENTRY WILL OE MADE BY THE OPERATOP WEN A DRIVE IS ASSIGNED (°T' WEN A DRIVE IS ASSIGMED, COMMAND). THE KEYBOARD ENTRY ROUTINE VERIFIES THAT THE ORIVE IS PRESENT, IS AN APO7, AND IS ONMLINE. THE ASSIGNMENT ROUTINE THEN ISSUES A ‘READIN PRESET’ INSTRUCTION, SETS 'FMT16', AND ISSUES A 'RECALIBRATE’ INSTRUCTION. PARMETERS FOR THE OPERATION ARE SELECTED AND A BUFFER IS ASSIGMNED. IF THE OPERATION IS A WMRITE OR WMRITE CHECK COMMAND, THE ASSIGNED BUFFER WILL BE FILLED WITM THE SELECTED PATTERN. ISSUED AFTER EACH MRITE COMAND. (WMRITE CMECK COPMANDS ARE THE WRITE CHECK COMMAND USES THE PARAMETERS SELECTED FOR THE PRECEDING WRITE COMMAND.) IS THEN PASSED TO THME COMMAND INITIATION ROUTINE. CONTROL THE COMPMAND INIVIATION ROUTINE FIRSY LOOKS AT THE CYLINDER ADORESS OF THE REQUESTED OPERATION. IF THE DRIVE MUST SEEX TO ANOTHER CYLINDER TO PERFORM THE OPERATION, THE PROGRAM ISSUES A SEARCH INSTRUCTION TO THE ORIVE WITH A * TARGET SECTOR WMICW IS 1 SECTOR EARLIER THAN THE ' TRANSFER’ SECTOR. (THIS ALLOWS THE PROGRAM TO INITIATE OPERATIONS ON ANOTHER DRIVE WMILE THE PRESENT DRIVE, OR OTHER ALL SEEXS ISSUED BY DRIVES, ARE SEARCHING FOR *TARGET® SECTORS. THE PROGRAM ARE IMPLIED SEEX SEARCH OFERATIONS.) WHEN A SEARCHING ORIVE FINDS THE 'TARGET' SECTOR AND INTERRUPTS, THE PROGRAM THEN ISSUES THME REQUESTED COMWIMD TO THE DRIVE THAT INTERRUPTED. WEN THE DATA TRANSFER OPERATION IS COMPLETE, THE DRIVE REGISTERS ARE STORED AND A DATA TRANSFER IS INITIATED FOR A WAITING DRIVE. IF THE OPERATION MAS BEEN COMPLETED NORMALLY, THE SAVED DRIVE REGISTERS ARE CHECKED TO VERIFY THAT NO ERROR BITS ARE SET; THE RW CONTROLLER BUS ADORESS AND WORD COUNT ADODRESS REGISTERS ARE CHECKED TO VERIFY THAT THE CORRECT MUMBER OF WORDS MAVE BEEN TRANSFERED AND THAT THE TWO REGISTERS ARE CONSISTENT WITH EACH OTHER; AND IF THE COMMAND WAS A READ COMMAND, THE DATA BUFFER IS COMPARED. WHEN THIS SEQUENCE IS COMPLETED, THE DRIVE IS RETURNED TO THE ASSIGNED, INACTIVE LIST. PROGRAM THEN INITIATES A DATA TRANSFER ON A WAITING ORIVE AND THE RESELECTS AND REINITIATES ANOTHER OPERATION ON THE RELEASED ORIVE. ERRORS WHICH OCCUR ARE PROCESSED IN THE FOLLOWING ORDER. MUTIPLE X CIRUOR: MOC° PEAe ¢ kR MACRD vO4 .00 1 OEC 83 10:52:70 PAGE 8 23 “FQ 0029 U R DOCLENTATION EMRORS WILL BF REPORTED AS Trg FINST EAROR TrPR O€ORED. A. ERRORS REPORTED FOR OPERATIONS WIOn mAVE NOT COMPLETED NORPMWY | v, OPERATION NOT COMWRLETED wiTwIn TIME LINIT UNIT ENT OFFLINGE 0. - EMS - EM1AQ EARORS AEPORTED FOR OPERATIONS W<ICw COMPLETE NORMALL Y, CORRECTABLE UNSAHFE - TM80 ORIVE TINING ERROR - EM32 DATA O€Cx ERROR - Er2) WRITE O€OX Wit OCx SEY WEADER CRC EARORS - £M20 FORMAT ERRORS - €24, - EM22 EM2¢ WEADER COMPARE ERRORS - EM23, EMQ7 PROGRAN DETECTED POSITIONING EMROR SEEX INCOMPLETE ERROR - EMS0 WMRITE OCOX WITHOUT ‘OCx: SET €M) - EM2S A CONTROLLER gsrlm TRANSFER ERROR EM40 § Enss En3e ERROR - EM3S ERROR - EN36 - ‘INE° 'MLE: NISCELLAMEOUS ORIVE ERROR C. - EM30 EARORS NOT FLAGGED BY TrE MARDWARE ERROR DETECTION LOGIC. GUS ADORESS OR WORD COUNT INCORRECT - Erdl DATA COMPARE ERRORS - NO DRIVE ERROR DETECTED - EM42 CAN'Y MATOM DATA READ WIT A PATTERN ERAOR BIT(S) SET, - EMal BUT MO ERROR SIGNALED BY ECC LOGIC FAILURE - EMeS BUS ADORESS OR WORD COUNT MOT CONSISTENT 6.2 TrE RAn CONTROLLER - EMes - EMes DUAL PORT OPERATION OUAL PORT OPERATION IS NEARLY IDENTICAL 1O THE OPERATION DESCRIBED In SECTION 8.1. THE OIFFERENCES ARE IN COMMAND SEQUENCE INITIATION AD COTMAND TERMINATION. WEN THE DUAL PORT MANDLER ROUTINE IN THE EXERCISER PROGRAM RECEIVES A REQUEST FOR A DRIVE, OMLINE. TEST THE THE PROGRAM VERIFIES THAT THE ORIVE IS THE ORIVE IS SELECTED AMD THE APCS1 REGISTER IS READ 10 ~DVA~ BITV. IF THE ORIVE IS IN NMEUTRAL, THIS WILL SEIZE THE ORIVE. IF THE ORIVE IS SEIZED BY THE OTHER PORT, A DRIVE CLEAR COMMAND IS ISSUED YO THE DRIVE 7O SET ‘PORT REQUEST'. THE PROGRAM THEN CHECKXS ‘OVA’ IN ‘APCS1°. IF THE DRIVE IS AVAILABLE AS INDICATED BY THE 'OvA’ GIT, THE COMAND SEQUENCE WILL OE INITIATED IN THE NORMAL MANNER (SEE SECTION 8.1 ABOVE). IF ‘DVA‘ WAS NOT SET, THE PROGRAM MAXES AN ENTRY FOR THE DRIVE IN AN INTERNAL ‘PORT REQUEST PENDING' TABLE AND STARTS A 1S. SECOND TIMER FOR THE DRIVE. IF THE DRIVE HAS NOT SWITCHED TO THE REQUESTING SYSTEM WITHIN THE 15. SECOND INTERVAL, THE PROGRAM REPORTS A 'NO RESPONSE TO PORT REQUEST' ERROR. NORMALLY THIS ERROR MESSAGE INDICATES A FAILURE IN THE DUAL PORT CONTROL LOGIC IN THE DRIVE BEING TESTED; MOWEVER, UNDER CERTAIN CONODITIONS ' - - ~ CUAMO OO OO ¢ g MACRD vO8.00 | JEC 03 10:W2:00 Pais S U4 R DNOCLIRNTAT ION £13 0090 (€.G. MASSHUS PARI Ty EBBBS OF I MEPORTED O T°€ OTrER 55 TETM O A Tiv), Te@ QT E® PROCES>00 WAS AR E 10 PROCESS Teg OR; R O TER 1T /D MEORESTED Teg DRIVE. To@ OPIRATOR MS° B Awalt OF WRT g OTER $vSTEN IS OCING AT ML TI"RS TO INTI(WRE? Tvg PORT AELATED EAROR MESSAGES PROPEM v, TER A DRIVE v COVRLETED An OPERATION, g MCISTENS MO ISSUE A "RELEASE: T SROCAMN wllL STORE T0 g fl"(u IF g OPENATION TEANINATED W1Tw Al EAROR, TG ORIVE wILL NOT B MELEASED UnTIL CAROR FPROCESSING tAS BLEN COWRLETED. SPGLE PORT ORTVES, ORIVES WIOH ARE Iw MEUTRAL BUT uncmov d’mnmvusrmmn S DN AT A RELEASE COPWO mssm Or AT IS 1SSUED AT e %O TG €10 07 ERROR PROCESS G ISSUED VOER NESE COOITIONS 'S N0 FUNCTINA TG GPERTION OF NG ORIVE. SRLECTION OF OPERATION VARIABLES Q. SECTOR ADDRESS SELECTION IS AMOON OF TWEEN NE VALUES In ‘HINSEC: MO ‘MAXSEC'. TRACK ADORESS SELECTION IS RANDOM GETMEEN N@ VALUES IN 'MINTAX: AND "MAXTAX . CYLINDER ADONESS SELECTION IS AADON BETMEEN “NINCYL: AMD ‘MARCTL* IF A nInlm AOORESS IS GREATER ThAN TeE CORRE SPOMD ING MAXIMUN ADORESS, PROGRAN WILL SWAP 8. ‘MAX’ MO ‘RNIN' Trg ADORESSES MO CONTINE. NE WORD COUNT IS RAMOLALY SELECTED BETWEEN ¢ MO M€ vALLE ‘WROCNY (MAX WMRD CnT). TIS 1S MECESSARY AS TrE PROGRAN REQUINES LOCATIONS IN Te€ DATA PORTION OF Th€ SECTOR TO B€ ABLE TO MATCM Y€ ODATA TO A PATTERN FOR DATA COMPARISON PURPOSES AND NEEDS 2 MORE LOCATIONS IF A READ MEADER ¢ DATA COMPWO IS ISSUED. C. 0. T DATA MRITTEN IS RANDOMLY SELECTED AONMG T'E PATTERNS. TiE SELECTION, IF PARNE TER "PATTERAN THIS PARAPETER IS O. ENABLES T COMANDS MRE SELECTED RANDOMLY ;(“":Gc?’(o oMLY IF TrE 1S STANDARD RANDOM PATTERN WRITE OECK DATA COMPWMAND IS THE PREVIOUS COPWIND WAS T'€E APPROPRIATE WRITE DATA PAYTERNS TrE PROGRAM SELECTS ONE OF THE FOLLOWING DATA PATTEANS TO WRITE WEN A WRITE COMMAND IS SELECTED. TrE ENTIRE OUFFER 1S FILLED WITH TE SELECTED PATIEkN. WEN DATA IS READ FROM g DXSK. THME PROGRAM COMPARES DATA ON A SECTUR BASIS. IF THE PARNETER 'PATTERN: 1S O T € PROCARAM WILL ATTEMPY T0O MATCW Te€ FIRST @ DATA WORDS OF EACH SECTOR, TO ONE OF TrE FOLLOWING PATTERNS. MOMEVER, IF TvE PARAMETER 'PAHEN' IS NOT O, LOCATION ANY THE PROGRAM WILL ASSUME ‘PATTERN' PATTERNS. THIS IS THE ALLOWS THAT THE OESIRED DATA PATTERN IN DATA TO LOOX FOR AND WILL NOT TRY 1O MATCH THE OPERATOR TO SCAN THE DISK FOR ANY 7 oPAT 8 SPECIF IC PATTERN. PAT 1} PAY 2 PAT 3 PAT & PAYT § PAT & PAT we B g IPENTAT, N MR v0s . 00 | JRC 63 10:%0:)% 1771% 17777¢ 18222,] o0y 77? 1319y 133391 133391 193194 131314 193831 1333331 133384 193331 133331) 18333} 133391 177700 177700 1 7%00 17700 1 77000 00377 oYY o1777? osr??Y? 13319 orrrrey 133381 133331 premm 4. . S 27 1311%4 177%0 o000 T? 000177 000377 00077? Pack e N gttt‘tttt“t*t‘i‘ < - m— [ AL Y J33333333A3333 ¢, ‘s 0%0221 030221 0%22) 0%0.,2% 0% 2% 0%.221 0%221 0%22} 030221 0%022} 030221 0%0221% 030221 0%221 03022} 0302213 FarY 9 LI B RE W 010000 040000 100000 1824424/ orrrm 13333 o WMORST CASE PATTEAN 9.2 IS DOCUENT IS TM€ USER'S GUIDE FOR TrE Mou/RP ORIven, 10 INITIALIZE Te€ ORIVER, JSR RE TURN PC.OPINITY UPON RETURN YOU MUST EXANINE @ “ORVSTA- TABLE T0O DETERmING Tt Trl€ ORIVES THAT ARE O INE FOR TESTING. DRVSTA TaB t IS CI1GHY BYTES, O€ OME BYTE PER DRIVE. INDICATED AS FOLLOWS: ...... Tr€ STATE OF EACH DRIvE wiLL O T LAl Mo ¥ ENTA s H4 maa) v8 00 § NC 69 10,%2: 0 0k Ty S e 00%2 9 9 . 4 g OPIvg YO 13 SR°INED I &0 ¢ O* 7 LONE "l Yo et CONYalwS Ong @ 'L OBCACH Dt o0 ORIV WSBIE. (NTEIES ANE ENCODED &5 P AL O 13 ol I ot %d u‘ Co®LTIon ...... R 1L 'Int 0Nl ? o w0 9.8 A &O? NE DI AOUTHE «iiL 00 A MAOIN FAI T MO whiL KT I, TR g ORIVWE g GIEN DITIAIZND, 1% CALED VNG N FALLONING % OACE. CaLL: Jm 00 .09? LM oy af 1y 1Y 108 * Sy o 4 I3 FfuaL BT S IF L0813 In 100 &8 00 hhamg I3 AN «OP® (DATA PAANY TER BLOOX) NTORS: .O'TE .orve .0 Te ov'e . (R0 . URD .ovte evve . w0 . UMD RELISTER TARE POINTER 1(10) SECTOR ADORE $% OB s FIRST MEC. It 1(11) 18ACH AMOnESS OB sLAST M. Dexa S 1012) Cv. InDEA ADDRE 1014) ERROR TagLE POINTER POINTS TO @ FINST OF TWENTY ILOCATIONS OF WeERE TG ORIVEN 11$ 70 STORE @G MNP RECISTERS O A EAROR. IV (LEFY ' IERQ RECISTERS ARE NOTY SAVED. 1(16) STATUS . CEAROA INOICATON 181713+ £000R OCOUARLD 18011074 =00 101714-0170% M® 81708-81703 1DOICATE Tvog OF EAROR 14 Cl‘p“’? ¢GR FNONP 990.00 §-G5C 68 20:0r.00 Pt S O e Yy RICIENTAT LN 9.4 o0 CRPYINNY & o fumi YPRAS ¢ z'tflfil"m.hfl"flfln'w "c’itmwu o 0., () 4 ¥ QLm 0 httn " 'm s e Vo — 3 -y & S B oy ..MIB(M ! SBN T @ CEE Y9 IRV 9.4.8 >, o't Ol 9 [ 1AL | o ) | L4 | [) [} wsd [ AAl | s 3 w =) [ 2. ) | Al| ) L 11 | ) g 16} 1000 (amig) o 0 el e T (O M A EARLNN ¥: R ] B3} sTeaw 1 vgu e i m Yadn @ 1At AL DOICATOR ATttt 099 W' ws) wmd wad L]S oRIve 1000 ' N Tl) WP alwit wid NI IACH 1Mool *S DpEts ........ AR 'am€ OID. B sInm & QB ¢ O] 9 oSN : Ve Mg (1% 148 ) @ - SN coup® M) 008 M0 | MR NTet Ny o C 0% §0. 0.0 Ol e O B J3 WO ~N oy 4 = -n ; S & oy = ¥ =3 | < arey o0 L] L Land’ 4 & —(3 Wre o ) CONYERLLES MGV 9.0 COvap. M e« eres O 4 Pl ] wte 23R TM.t com Covung veiy 19 4 H : oru? 19 |4 o A in Pm gt Salr aCamand £0CR (%11 128 At arITYEIY) M‘ N‘ 01 ' o 70 CTwTER L 11 W amCw Mt 1 ] 8 § 1) I pral [4 N4 n-rn g 8::%‘ wirg w ¢ Oata 39 w»I'¢ Data W17 @ A08 § PATA D Mad Da'a R AD A08R ‘A § Pata 0 o WOSEuTTP ® o POVTIONING o QATA R KN® PR B TR LS BTN R st .. seseoseve oAt ¥V s % (22 XX X2 2221 2 % 717 ) r 4 (vt WAy vy 00 | EBC 09 - W0 buE a A B DIPRY Y %O 0N N PG 9I°8°-9), g 1870771 VS0 ey g 11 6 K GEGLLY AL TR e 6 gLt Y0 o L & _FN NN I | ‘rm * s e (K P1°Y 0 O PRI Igy Py I’ 0 S PRI F M Teoy TID O RE YLD AL I 8E > AT VAt COWLT I CelyY e e VL 447 1 eane) "9 08 Gh M FLPE O Vvast g il AN Co'q GaBite QAR o g W ) e ). g Al 't to MM. AR O TM O AP A Ny AL'll!-'l wine) Whaig TPOOS XOAEED O gy PIvE oe) W teil THUGN OIS O T ER i 10 P’ Ith e o2 CERge COVANED %©2 L St o« (< -4l VR L ¢ )] ORIl (RROR OCO\UMMD had® CA“F) an atPVtIl WA lmalt Maswul 0@l [ ¥4 S hd M 9 OADE M Puaatich _ A N-_ 4} N <of oR? MOALY 'NM hg 1] WS WOLINLD e -.-l':fl o OOl et 00 it GlvLred ORivd witwin 19. MDY i grIsSTen? ORIl M2 L4710 vaED a0l A NMOAL FED A nON 8l 'Ltn! PRl LA A2 d 12 2l AN AA XTI SRR 2R A2 R NN NN POPOPODOODPOPOOODOPO RO PRPIPROP ISP PGS ) e ) e as6ls ---------------------- OO PISITT"Cswer v o= - WAGNY B I OEE. WEAE DT SAvt0) [ T 33 m JSED A -------- (BDvep .!‘ (1 AB4].] g ORIvN tan- 10 g DOIE 3'3-.&0-10 o 0d g DRive Cine-. EF 2 1 GF e m GUE A 0rtn DOTIED. JSAKD & MASHUS INIY. Mg AL xsvm OR '@ ORIV ENE PR 0.0 BLFORE N InlT. - K (@) o Ay 4 ELNA M om aw ”WJ e o tangh CAsd "win e LS XEF EFEI3FK BE. WA W% o920 O %@ 1S to (ERgy ety tuly Ty et CEn CERge an tamm (L Yeg SCOWR T O g GIUD g OF S IND Ov M Y0 B W', WU S M NG (IS sl.a B T PN WY W Iy B |? wh i\ "W S angh DL YION. ] AL ] oata apah a0 g '] Bn AP Tyt an St olide G9CY] § WOMYN P t‘: |2y BT, JCOUMRL D (ewayed) 2 Y7 NP ATHINTION OC L S D 88 POICAN M ¢ D 9. a°0 @1 efde BOCY\] e (PWAY) § ADDNY E are ey APDY .""C'QQM“ B ey ey 8 AP oy =BV "N e PARITY 0 vy U NG. WO AOYINE LY OF NG, WMITNen A0 WD+ WD Mg AP APy PARTTY WP (e h (PAR-])) ) ade. L g (PPLe]) aDON S ML UL Owat Ol S47 (-OFE° ADe WA Do e MBIy D WO+ wmD N AD B8ACH CimQR) e DRIV wWOGLN 0%« A'a 9] ofide BCS] § ADORE LY e (YY) art R, 0004 B nSedenPtR] G olPL Q2 e NPt w1 § et s TIS IS T ACTUAL UNIBDUS ADORESS (176 700) e o e w40 DICIME YAt Ighy K e Al s X o N O & .c";g.'x(:o P07 S R "NOND v00.00 | -S8C 63 1080 - % Pack & M3 e 0097 AN wRSION (CoRS -4 9 1. IS WRSION 1S Ng STARTING POINT FOR CR DIAGNDL'IC WFPORT OF e APO? DIST ORIVE. VERSION (CIRJO0-8-9) 1. €N A 040 SECTOR CRROR (PSE) AER m® MO A OATA ':':m. ost OECX (OCY) ARE 9OTTM @ PROICAMN MEPORTY e PROLAAN MAS BFEN 1 &FTEN @ OOt BIT 18 OF 'eC'eD. ATED AS A BAD SECTON. N5 CZRJOBO RPOT PERF EXER MACRO VO4.00 1-DEC 83 10:32:28 PAGE S 5FG 0038 HISTORY 1 1oLAST REVISION 25-MAY-83 ac .TITLE CZRJOBO RPO7 PERF 1*COPYRIGHT (C) EXER 1983 1*DIGITAL EQUIPMENT CORPORATION :¢COLORADO SPGS., CO. 80963 L ; sPROGRAM BY MIKE LEAVITT L 1« THIS PROGRAM WAS ASSEMBLED USING ; PACKAGE (MAINDEC 11 DZQAC-CS), THE PDP-11 18-MAR 81 MAINDEC SYSMAC HLJ 87 .SBTTL OPERATIONAL SWITCH SETTINGS ;0 88 89 90 91 92 93 94 ;e SHITCH HE i 'y i ie ;e 15 13 10 8 ;e ;8 s ;4 N ;e ;e 95 IR HALT ON INHIBIT BELL ON INHIBIT e e I I ERROR ERROR TYPEOUTS ERROR END OF PASS MESSAGES DISPLAY ALL DATA COMPARE ERRORS DON'T CHANGE PARAMETERS (LOOP ON PRESENT VALUES) A. PARTIAL REGISTER DISPLAY IF ERROR B. NO ECC CORRECTION RESULTS DISPLAY(.; IF ERROR A. DO NOT CHECK FOR MAXIMUM ERROR COUNTS 8. DO NOT DROP DRIVE AT END OF TEST A. DISPLAY ERROR SECTOR IF 'DCK', 'DTE‘. OR ‘WCF' 4 3 ;e ;e N 29 S 7 6 S s 96 97 98 USE T 8. C. DISPLAY SECTOR IF 'OCK' ERR UNCORRECTABLE AFTER 28TH RETRY IF OATA COMPARE ERROR & SWO7 REMAINDER OF BUFFER SET, ERROR DISPLAY T 2 igg 1 B. DO NOT TYPE PERFORMANCE REPORT AFTER SPECIFIED TIME INHIBIT DATA COMPARE AFTER READ W/0 ‘OCK' ERROR N 0 READ ONLY 104 .SBTTL 100 101 s ;& A. DO NOT TYPE DRIVE STATUS AT PROGRAM START MODE BASIC DEFINITIONS ;«INITIAL ADDRESS THE STACK POINTER #s& 1100 s#s STACK ERROR SCOPE 000011 000012 000015 000200 177776 177776 177774 HT LF CR CRLF PS PSW=PS STKLMT = 11 = 12 = 15 = 200 s 177776 : ;CODE FOR HORIZONTAL TAB :1CODE FOR LINE FEED 1 :CODE FOR CARRIAGE RETURN 1 ;CODE FOR CARRIAGE RETURN-LINE FEED 3+ tPROCESSOR STATUS WORD = 177774 ;1 1STACK LIMIT REGISTER 177570 DDISP = 177570 ; tHARDWARE DISPLAY REGISTER 000000 RO 177772 177570 = 1100 = EMT = IOT OF 001100 104000 000004 ; ;BASIC DEFINITION OF ERROR CALL : sBASIC DEFINITION OF SCOPE CALL s sMISCELLANEOUS DEFINITIONS ’ PIRQ DSWR = = 177772 177570 : iPROGRAM INTERRUPT REQUEST REGISTER : tHARDWARE SWITCH REGISTER :tGENERAL PURPOSE REGISTER DEFINITIONS s 1GENERAL REGISTER bl JRUCBY RPO" PERF BASTC DEFINITIONS EXER MACRC V04,00 1 OEC 8% ' 10: Roe & >£Q 0039 ] Rl el : t1IGENERAL REGISTER R -, 1 1GENERAL REGISTER RS L 1 : iGENERAL REGISTER R4 - o4 RS 1 R6 R7 SP * « r PC 86 @87 86 - . 1*PRIORITY PRO 000100 000140 000200 000,40 000300 000340 FALE REGISTER REGISTER 1 sGENERAL REGISTER 1 iGENERAL REGISTER :13STACK POINTER : ;PROGRAM COUNTER DEFINITIONS 0 ;s tPRIORITY LEVEL O = 100 1 iPRIORITY LEVEL 2 - PR3 PRA PRS PR6 s = = + PR?7 1 sGENERAL *+ PR1 PR?2 LEVEL 1 1IGENERAL 40 140 200 240 300 « 340 $1:PRIORITY LEVEL s sPRIORITY s sPRIORITY s1PRIORITY ;1 sPRIORITY LEVEL LEVEL LEVEL LEVEL s Su1l Su12 SWil SW10 * 20000 = 10000 = 4000 = 2000 SWo8 SWo7 SWo6 « 400 = 200 = 100 SWi1a SWo9 SWOS SWO4 SWo3 SWO2 SwWo1l 100000 * 40000 = 1000 = 40 - 20 = 10 = 4 - 2 SW00 s SW9=SW09 1 SW8-5W08 SW7=SW07 SW6 =SWO6 SW5+=5W0S = SWO4 Sii4 SW3+SWO3 SuW2=5w02 SW1+=5W01 SWO=SW00 1sDATA BIT DEFINITIONS (BITOO VO BIT1S) 8IT1S 8IT14 = 100000 = 40000 BITiZ2 8IT11 8IT10 8IT09 BITO8 = 10000 = 4000 = 2000 = 1000 = 400 B8IT13 = 20000 3 4 S 6 s sPRIORITY LEVEL 7 s¢"SWITCH REGISTER"” SWITAH DEF INITIONS SW1S 1 CoALRY AP" PERF EXER “ACRD v04.00 1 JBC B2 101058 PAE &, 9 NCAH 84570 DEF INTTIONS 000200 000100 000040 000020 000010 000004 000002 000001 001000 000400 000200 000100 000040 00000 000010 81100 8110% s + 100 &0 81704 .0 81108 * 10 .- 4 e1v0e 81101 s 81100 .1 B179-81109 817881708 8IT7-8170/ 811681706 8171581705 BIT4-B1T04 BITS-BIT0S 8IT2=BIT02 BIT1-81701 B8iT0=81100 1eBASIC “CPU' ERRVEC - 4 TBITVEC TRTVEC BPTVEC = = +« 14 14 14 RESVEC IOTVEC PURVEC EMIVEC TRAPVEC TKVEC TPVEC PIRQVEC 105 .SBTTL 107 108 109 110 1€ ROY A16 % 113 114 115 PSEL MCPE TRE 116 117 118 119 $SC « 20 = +« 24 30 =~ 34 * 60 = 64 = 240 13 TIME OUT AND DTHER ERRORS 1 ;RESERVED AND ILLEGAL 37" BIT 1 s TRACE TRAP s sBREAKPOINT TRAP 1 $ INPUT/0UTPUT 1 :POMER FAIL INSTRUCTIONS (BPT) TRAP (I0T) ¢eSCOPE e 11EMULATOR TRAP (EMT) ¢¢ERRDORes 11 “TRAP" TRAP 1:7TY KEYBOARD VECTOR $17TY PRINTER VECTOR 1 tPROGRAM INTERRUPT REQUEST VECTOR PPO7 REGISTERS « 100 s 200 = 400 = 1000 = 2000 s INTERRUPT ENABLE (BIT #6) sREADY (BIT 07) 1HIGH ORDER B8US ADORESS BIT tHIGH ORDER BUS ADDRESS BIT t+PORT SELECTY (BIT #10) 1MASSBUSS PARITY ERROR (BIT 413) = 100000 1SPECIAL CONDITION (BIT €15) = 40000 1 TRANSFER ERROR (BIT 1BUS ADDRESS REGISTER (RPBA) s (EACH BIT IS CALLED BY BIT NUMBER) 123 124 125 sCONTROL AND STATUS REGISTER 2 (RPCS?2) 000001 000004 US1 us2 US4 (BIT (BIT = 20000 1WORD COUNT REGISTER (RPWC) s (EACH BIT IS CALLED BY BIT NUMBER) 120 121 122 127 128 129 10 1CONTROL AND STATUS REGISTER 1 (RPCS1) 111 112 126 = TRAP VECTOR ADDRESSES =1 s 2 - 4 tUNIT SELECT (BIT #0) tUNIT SELECT (BIT #1) tUNIT SELECTY (BIT @2) #14) 08) &9) CRUXBRO APO° PLEAS ¢ XER MACRD V04,00 1 L A% 10: A PAE NP0~ REGISTERS 000010 000020 PAl LR IR OR o 3 a0 18US ADDRESS INCREMENT o SO sMASSBUS PARITY LY LN X X [ X X TEST In-IBLIT (BIT 00 (BIT e4) sCLEAR (BIT 0%) 1 INPUT READY (BIT ) ;OUTPUT READY (B1T 07) sMASS BUS PARITY ERROR (BIT e8) sMISSED TRANSFER ERROR (BIT #9) 1PROGRAM ERROR (BIT #10) NEM NED UPE wCE DLY X o P ot puo b S Bt 8Al ¥ 00aL Mxf PGE ) LD -, s B2 G B2 B8 B o8 Bb bwu'-xur Y . n' e 180 8 sNONM EXISTENT MEMORY (BIT 011) sNON EXISTENT DRIVE (BIT #12) IUNIBUS PARITY ERROR (BIT 013) IWRITE CHECK ERROR (BIT 014) sOATA LATE (BIT #15) sOATA BUFFER REGISTER (RPDB) s(EACH BIT IS CALLED BY BIT NUMBER) sCONTROL AND STATUS | REGISTER. (000> GO 1GO BIT (BIT #0. sFUNCTION CODE BIT o1 1FUNCTION COOE BIT 02 sFUNCTION CODE BIT o3 tFUNCTION COOE BIT 04 1iFUNCTION COOE BIT 05 tOEVICE AVAILABLE (BIT #11) - g... e o ps .SBTTL b 146 151 152 158 000001 000002 FO 000010 000020 F2 F3 004000 RPO? REGISTERS 1 2 Fl 4 Fa 40 4000 OvVA 10 20 tDRIVE STATUS REGISTER (RPDS1) (001) OFFON EuWN ILY tOFFSET ON (BIT #0) sEARLY WARNING (BIT #1) s INTERLEAVE (BIT 02) sVOLUME VALID (BIT 06) tORIVE READY (BIT @7) tDRIVE PRESENT (BIT #8) 1PROGRAMABLE (BIT 09) sLAST SECTOR TRANSFERRED (BIT 10) tWRITE LOCK (BIT 011) tMEDIUM ON-LINE (BIT #12) tPOSITIONING OPERATION IN PROGRESS (BIT #13) 1COMPOSITE ERROR (BIT 014) vV ORY OPR 167 168 169 170 171 172 PGM Ler WRL MOL PIP ERR ATA 173 174 175 176 1ERROR REGISTER €01 177 178 179 180 181 182 183 184 185 186 sATTENTION ACTIVE ILF ILR RMR PAR FER 000200 001000 1 e 4 10 20 WwCF ECH HCE 40 HCRC 400 AOE 1000 100 200 (RPER1) (BIT €15) (#02) s JLLEGAL FUNCTION (BIT 0) sILLEGAL REGISTER (BIY €1) tREGISTER MOOIFICATION REFUSED (BIT 1PARITY ERROR (BIT @3) 1FORMAT ERROR (BIT o04) tWRITE CLOCK FAIL (BIT o5) 1ECC HARD ERROR (BIT #6) tHEADER COMPARE ERROR (BIT #7) tHEADER CRC ERROR (BIT #8) 1ADDRESS OVERFLOW ERROR (BIT #9) #2) b CINUOBO AP PLAr ExER MACRD vO4.00 t JEC AT 10:85.°:°8 Pcs WO RECISTERS 10’ 184 it oLt 140 OT¢ orl UNS 180 191 192 198 OCx & & FQ 0082 + &MO00 1 INVALID ADODRE S ERRUR (BIT * 10000 10RIVE * 4000 * 20000 * 40000 * 100000 IMRITE LOCx ERROR (BIT 011) 01C) TIMING ERROR (BIT 012) 1OPERATION INCOTMPLETE (BIT 1DRIVE UNSAFE (BIT 014) 0183) 1DATA CrECx ERROR (BIT 1S5) IMAINTENANCE REGISTER (RPTMR])(008) tATTENTION SUMMARY PSEUDO RESISTER (RPAS) (608) ATO L | 10EVICE O (BI7 #0) - 4 +OEVICE 2 (BIT 02) - &0 1OEVICE S (B1Y 095) AT * 2 ATS ATS * s AT2 ATS AT AT? 10 20 * 100 s 200 (OEVICE 1 (BI" 01) 10EvICE 3 (BIT 1DEVICE 4 (BIT 1DEVICE 6 (BIT tsOEVICE 7 (BIT 03° 04) o0¢) @7) 1DESIRED SECTOR/TRACK ADNRE SS REGISTER (RPDA) (00%) tORIVE 0100 TYPE REGISTER (RPDT) (006) | ;ORIVE TYPE MLMBER BIT 1 07103 o104 = 10 * 20 iDRIVE TYPE MABER BIT 4 ;DRIVE TYPE MUIMBER BIT S 0106 * 100 tDRIVE TYPE MUMBER BIT 7 « 400 ;ORIVE TYPE NUMBER BIT 9 0101 o102 o10%S o107 ovos ORQ MOM AP NSA * 2 . 4 e 40 s 200 * 4000 s 20000 « 40000 = 100000 1ORIVE TYPE NMUMBER BIT 2 1ORIVE TYPE NMUMBER BIT 3 1DRIVE TYPE NMUIBER BIT 6 iORIVE TYPE MUIMBER BIT 8 sORIVE REQUEST REQUIRED (BIT 011) sMOVING HEAD (BIT 013) 1 TAPE sNOT DRIVE (BIT 014) SECTOR ADORESSED (BIT 015) 1LOOK -AMEAD REGISTER (RPLA) (807) SC1 sc2 = 100 e 200 1SECTOR COUNT FIELD O (BIT 06) 1SECTOR COUNT FIELD 1 (BIT @7) SC10 e 1SECTOR COUNT FIELD 3 (BIT SCOo4 SC20 SCa0 SC100 233 1000 = 2000 e 4000 = 10000 1SECTOR COUNT FIELD 2 (BIT 08) 09) 1SECTOR COUNT FIELD 4 (BIT 010) 1SECTOR COUNT FIELD S (BIT @11) 1SECTOR COUNT FIELD 6 (BIT @12) 1SERIAL NUMBER REGISTER (RPSN) (010) 1(EACH IS CALLED BY BIT NUMBER) 2357 238 239 240 241 242 243 e 400 1OFFSET REGISTER (RPOF) (@11) 000200 002000 004000 010000 OFFDIR = 200 1RPOT OFFSET DIRECTION FMT16 s 1FORMAT HCI €ECI s 2000 e 4000 10000 {HEADER COMPARE INMIBIT (BIT 010) 1ERROR CORRECTION CODE INMIBIT (BIT o11) BIT (BIT @12) CIRUORO OPC° PO ¢ R mACR] o4 %V | JC A% 10:82:)0 Pagl 9.9 Fq ¥ 0043 W0 RELISTERS OF SIRED Cn oo 0 CrLINOFR ACORLSS (APCT) (013) edot ity iyot Aigar 181 (OUMENT 2 (EACH 81 fS CALLED OV BI1 MFSIR) P07 ERROR REGISTER 62 (RPER2) (018) 001000 004000 010000 100000 TS wOoR "y LV ¥+ LV V) | 14" 1 - 800 e s s e 1000 2000 4000 10000 e 100000 1MRITE READY WSAFE (01T O) MRITE OvEnmum (017 9) READNRITE UNSAFE @01 (BIT IREADNALTE UNSAFE 02 (BIT tMEAD/MALITE UNSAFE 03 (&IT 1PROGRAMN EAROR (BIT 1%) 10) 11) 1) RPOT EAROR REGISTERN 03 (APERS) (019) 0GE b, ] o 1 e 2 101AGNOSTIC EMROR (BITY O) s TEPPERATURE wARNING ERQOR(BIT 1) ort ¢« sDATA PARLTY ERROR (B1T AR ort |+ &V o 4 10 e 20 * 40 Iny ovC e 100 e 200 LCE L8C e 1000 = 2000 8st * 100000 1CF S e 400 e 40000 sAIR SYSTEM wARNING ERROR 3) (BIT 2) +'OUFFER PARLITY ERROR (BIT &) 10C UNSAFE (B1IT7 S) s INDEX UNSAFE (B1T §) 10EVvICE Cr€Cx (BIT 7) s TACH CALIBRATI'TMN FAILURE (BIT 8) sL0SS OF CYLINDER ERROR (BIT 9) sL0SS OF &IY CLOCK (BIT 10) ISEEX INCOTMLETE (BIT 14) 1BAD SECTOR ERROM (BIT 1%) 1ECC POSITION REGISTER (MPECY) (016) s(EACH BIT IS CALLED BY BIT NMUIMBER) 1ECC PATTEAN REGISTER (RPEL2) (017) 1(EACH BIT IS CALLED BY BIT MPBER) LY L Pk 2y mt e dewis 0rn e B % 3 1 TOReT ¢ R MAORD vos.00 | 3RC 03 10:82:50 PR CovanDs LSBT e’ GRTWRA A o MO 0088 OIS 000101 101 N0 GPERATISN 000107 10’ 11 11 meCAa ©0010% 00011 00011 ©0014? 000124 000181 00C 131 000158 00016 00016 00017 00017 1 76 700 108 11? 121 e AN O CEWNTER \ A 1REa0 Iy POENE T 13 13 s 161 1 SE ARG P I1E O€Cw DATA 1°E O€Cx +QADEN & DATA 1P ITE 1St Data TRalH 19 a0 DA'A 10840 +EAOLR ¢ DATA 1M S 'l g M ] B AL |- W' Q- Pws ? W 0088 Tew (ar0ee % oR ( LD LOCATION PRGN & 77Q CORTAIN A - 2 M T 1o OEE 0 (4°(m QARG TRAPY MDD %1 amPTS R OCATION g.cwam ® 10 CATON DURagPtALY (02080 wECTORS oon1 76 ® .*1 WD 919G O 100 17 N .SBTR. 137 Nt : 03 el fOm 8., (5°E0 S'ATDRE ADOM INMES) 00187 1,3 F 4 ottty o001 8?7 00Nr2 »” entant ST Tt A BF.15EN OIYA 5SS OF PROLAM® N A00RE 11 AFP 10 START 5% OWMNEE MG Ban/APO? ADONE ACT1} @3 o 0000 [ X} 000210 *O0xS REOUIED BV ACTLY OS.:CO. 0%,0% i.;n 080000 W00 RITY o 006210 001100 1 .1100 ‘BN /'] 19g O 008907 LOC.48 70 ACORESS OF SENDAD [N . M OP 60080 0027527 LOC.92 10 60000 ss RESTORE OC APT PAANE TER BLOOH 00000000000000 1427 LOCATIONS 3¢ MO o8 AS QTS FOR WY (X ] 001100 000G 24 L08e. L o28 200 0000000600608 ..mwn;:.0 PODW 10 START @F PROCAAN JOR 9T S8R e88 4,P0IWT 79 AP1 DOTRICT ACORESS PNTR. .o,.08 iRy P NER u’Ohfl 001100 001100 4,50vl CUmngwt a;.n 0000000000060 AP »@ACLR @ OCr T30 COTEN [] 000000000 000000000000000000000000000000000000000000000000606006000 ST ST PARUETER BLOCK AS OIF DED I DA APT-POP1L DIAGNOS! IC (DML ACE 9eC. 001100 001100 001102 001104 001106 001110 0112 (v 4. 1 001 06 0142%4 0142%4 0142%4 001114 e I9'8:; .MORD WBADR; .wORD . wMOR0 oteTM,;, O ) 8 6300 ssTuD Wit BIVS OF 19 017 MAILSON AOOR. sADORESS OF APY MAILSOx (B9 O 15) slnie t1In OF LOG!SI T€8Y oMTM, 6300. $sA0OSTIONAL Wy TIVE (SECS) OF A PASY FOR RACH ADULD UNIT WA TH; 100.%Ve, MORD . OnD LMORD 6300 seny TP I SECS. OF 197 PASS O 1 WNIT (QUICK vERLFY) ETEND-0MALL /2 ..L!vcm MAILSOx-€ TAGL £ ( WwORDS ) 1ONAGETARING ADDRE $9 VU VU — ” M MO MaTw v Wy B G 3°. VN » s 0 e 00en (VYN el 1 1 SO C0000 0 0000000000000 000000000000000 000000000000 00600000000000 x1i{ Wi} 0;w. ®Pal, O MY oD, e T, 011y, o ag, flq, S N, ol A . ok at, NUDAt, | . 1 oCOntatn) @ 03T WMIURD e lng o M\ AG sl Y MA AL Jat B M e M pe Wmoaiwg 3 Pg spe WTM o] ‘O sl Mg el m'a AL vy GO 001222 0017226 001226 i 001216 001220 .MORD MNLTY eTes'y; Wwass, .m® .wms) BTLSTH Mrasg WNLAD;: MG .0 MOND WAl 0t vl oUMItl; g'alnl;: s .ws®d .0 MATAL AT MAslt v AD NG Dare DarA @F T?Co0 MET.ISTIN setiiam .3 OF 0. MAAY ILIVILD .."' ond) ".. 4 00117 500 GBS LR 1wty s wra §'aT A BIG. ADNDAY Y . oy 1Y, DA'S OAD 1 AOVTEELY 81 AL 0 OF PRy CrABY e\’ 8 (ot @D ssl 1€ P B 0,02 571 M M sl ln@ 014D 0 sAPT s S g B0 Vrog CODE AR (MR NSUEN ,TE3T7 MIOen 24P85S COMY ,,08vIC8 COMY 01170 U1l mrOEN "R SSAL ADCix vY Al LELTR ACTID FOom LAY FLLLAN (reamaC TEInd AP QLINGD SeAlL AL : ‘tven 4 OF AN PO ICATON noog Do iCATa 1 BTDWTIC seintiampt 19 '3y 1} o e sl ma'wy PaQ Pm'A R Mg D 4! 7O 08 VERO 7 omalL, PEIY kTR TION WD e vy AOrMELY OF il ‘eTn. et mansos-¢rams 001200 001 208 001210 001242 0012168 B (RO fomwy OF 'ECTRD e ng man (ammy SUD WTM l s il TM aiwg BC @F A Al seln 144 Ne 7 J ApONe 1§ seC M8 vy 1AM (o B¢ el 14 (OO 1) !( g By AN el M8y il mang |<3 ore e 9780Y @ COVERN A8 4 goeseessesemsessonce %L "W, L L RY 1] 3é T el (W s mAIOA COVER LTENEE L IXATIONS T g FANN, WO ag, . 3 ® i33111 lualiliiilall HE 10°="L edd 2001 Ly IDOROENT |\ ¥ AFTEM A “LINE FRRD" FLAG (017:07220-72%) 4 N 6P 1 4K 00 - - r%%%;r%%%%%itift NONP m O W% Gy tuE O .::'! o i1} _m eSS LH JFmnm.lm1008 | 5 g 272922020%2018 F pregssoididtll a2 P e TVRURRS uflwmv mafl lo-’ Sl G5 bt’( ~ 1 ‘(‘ -y om0y, e W7 B: Mn'nn w? m AENASEN? Qu ? wwe oTM in K :ug3g ® § Pvig agm teeg .m din_ 109 o+ 'y "e o P w.s o § e ev) 2 A W-Qlp hd .' W“‘“‘ . sV i ~‘\"."” $sTM S0 M9.L Tl LAY oTM L A B § W X} N m Erdg .3 R fi‘."‘““l..‘m L] Qg W V) m § §v1g 2 Tevq ;e 0e"8 0:TM TM 8¢ & agi) QA"OY Prrg . »§ M AEm TM ..“‘ "“'- . 048 T A BYI3 W ALY VI | TR 4 A no, A T 0:0¢ 4 g%v BT WIYre) ANTP A I I Y ¥ .y @ (.. 7ANn! S0ED 1YY ¢ AP sel TM - A LED QRVOTPTIIN WANeY il INTBALLN OB 8PN waued rd o, §7.%a9 RN W v, o .. 2 0. 18 014 o 0 O ) o, b S01%59 BE & EF'S'N W' We e, gy GO ou " . 1, %4 ) ol EEERRLY O @ *u:t O (0 aet Lo B Rl ] 0 O @ s jq Y y 2 3 " 6. o120 | 41 ] wrd - 3 MO 'TMy o> e, A] . - o o~ o fo'mgy, ww) LY~ O,V [ e xrrx EA.. |_SRA- BN7277] LI8W VYV] OCi 289 O+ U] Mg Suuug -~ 4 “ o ® w 't o) o L e L o1 994 SS00N @01 3% 001 %0 00 W 00) %ol 001 %8 SuvLOe Suvuuug 000000 OULLLUO OOLO0O ©00VUO0O ©00000 " o o o & » 8= B "t D RSES & ARCIVED » Cunghg § & ‘. & B g cows § A W [ " L2 AL L AM? ) RNl L0 g W § 4 M0 N 1 W n o W B - Sugs 98 * * .'*"’“ ) 3 fen e o .t v G ' 8 1 r-. B A CYm’® MYV i @ o @ IO oy .%Q W 3-» ) $C mt . o L I o¢ O 00 ©0w00O OuvuLO PRV 2-4°0 4 Ca -y L B I . o0 00 GB0009 SuuUOd ©0UVO0O OO GOCOUS 00)ad¢ vtel, 00y, Oary. P to 'a, 1=y, wl, 0053764 0013 0016080 001602 001408 0014184 00164186 001420 001422 zflq. i B NAR CLume § BBy M Wee O S V.4 UGt ¢ e~ I ] R Suuuud SOULOUY SGUUoae GovLUd 001808 001410 001612 e, 10, Wee § R g0l vy 1T 8 @B WWs¢ SciTEWe 99 2 TOOQ Q70T ISTILS PW .. A" I M o ) 1 ."O"bu’.l RBN _ >3 @ v w2 ) w9 - ) - ” ) 001370 ®05i37p o017} D, T O @ S} & § B @ e, Gonong ® e PO r ot? Grrrd L _T%;Y] gTM apoes & 70" I O xxp SULUU) grrrYY A ey TM, OC) el U e G019% SR GrE W ng e APY? | I |Y SUOUED o %W e g £ L " gy W) ‘mn e o gy Mg ¥ Pue e Yo Se S erramgy GoONag O % "N S H PR, o 8 ¥ (v B (PO a gon -0 w @ oy ) e @ (7 ¢, &, B . . o B (e O e WO (POag SOV INE A e PATISAR MLAS 137 ¢« O to= @ m QoS 1$4Q wOBO » 11 ION B COPMRE VY » ~d ¢ gl ¢ 4C, ECmm: COna)y ((®; §C.O- Cioal@:, €E(#eD); € il €(oaDl: 19780y, Q0. v; .) » 0 w =0 .0 . w»® . . . . .ws»Q .wa) .0 .wpd v @ ¢ [] @ O P Covang P8 ot 8Os it ® e, ! waDd INMTY (RRLATIVE 9! U &Y Y0 SECYER) ol » 7'. mmaa 000 FI0YY e wORO ol.= - °i A FOB % 2O (B wl W ATl OF FI047 EABUR o RO 3G D (. PmEC't]) DALIA, Fin,! wORD 2040 (B . et5) OA'A, FInY1 wOR® WAL o OF S£700@ ERALR wORO L 0 (I : b mmgr c)) DAlA, M 2O wORD 1040 (M LietD) OATA, SEC O WISO sT6ST O FE CNUINUED Oh? O ; @, N ¢ 3 | %N v ;.78 v ng L P N : oMI79 . ' R ‘aud s Ve N IWD C (OadyA 08 2 L 40 @r ouer Rl [t Y o ANy v A La § ML 08 200050 SN © TR ¥ Y ~ 180C O a0 &, 6% O ,88C o ,04} [{ N iy o LAs Xail, I K P . . ¢ N CPWe g ug B¢ . Panarg PO g "t MANED PN @gul(e N = ML R NTM 2N N L'E M (7 § 0 P, 4% 1O BEam g ' A {2 -] » g E CUNTAINGE reh g e’ TMM@ -+-31 i -y Fppee—. c.0 W:l Lt ARVISIN Wi (374 SO0n Ll oIt Y P 8.} 01048 Penang *TUY AMRED e AL 14 wa oves § Ghee. ."’ ~v Gme ALY B ./ LA Coern PaRapy 'O BN BT o Wto | S Q@ U Tleg NE I3s We 0.\ e Tug POErs o . 0a0 14 008 § 2UD WY ¥ X, ) OO0 BATe @ ) ! ® (% J0°10 0.3 (8 J3 8 10°0 wEDH) N D O 10 Pa. 3y 7O ARACKH NG W TM sl (AL T 0 120 8 10°10 810 (2 % 2 10*°0 WOROY ) A s e LMD 80 (T - WP 001 88¢ oL 16%0 OC(ON: wTM :M TE N ') LXATTRL CIRCey g i (@ I 1t o it 0 e 5 L O T P L PAL) 041100 ! ouuuy WO, 0016% 00N0e.2 Y11 O -4 (> O 1 46,0 Ouleay [ TVIIR 000017 =1, Colin, wen g TO s AT B LB Qe m g P BN Mre M CRBND BAE WwORDE VLD 70 Iy wTM N 001100 ,() B 0% WMiIng) wen 99 w ] PRI CRRNRY s ws0 OUuG)? 19..19. M recd OF e tABS RAL O maAw 8 We (50 L (UL OF g aoo LYD MO 001842 uUl1ade (2 30 8 10°0 wORDA) OB (6.120 B ¥0*0 B179) M OF ¥/ iny! oD | e (-~ A4 00iave o01ave 001500 0%1000 VN, In = we) . PASSES: .uORD PATICLAN: MORD ARANDMC: .WORD 12000, 0.0 In‘tuviy O Iulln DATA COWwanES O I3 D Tilin DATA InTeavay o}, COuM'eN. Ang 19 MLunrs ON. LAY OvweCl TVINIOUY ThTEAvAL s(In MW, 1ES). V(OO wOnD 13 D INTEAVvAL, COAMTEN. o IF FInyY wORD 1S 2tA0., MO MEPORT P TvPeD. 10 PUER OF PASSES YO ED OF O 0N TV sTwls 11960 wad 0 rECY IF MMM wORD COMT (6-12000. W ins?! wORO IS '@ MEnS OO ) Twe)d OOY SR{0MO wUnO 1IF Pl wORD 19 2120, 001 46k ovie’0 ) 19R0R IR 10 J0% Miny. ALLOMD PRA (ovang (I mI1ES). 5 B B AUD TEYY Pansru IR 1S 0T SED EN FROLAAN ]IS GPEATING v AUTO M ‘ w . 117 €0 0.AMO0RY SELECTY DATA PATIEAN 117 €Q 117V 0T €Q O.5€,ECY € LT @ PATIEAN 1POINTED BY g “PATIC AN, Y0 O, GEVE A AMDON RATE MDRD CONY WFOR NE OPERAT ION. 11F 0T €Q 10 O, USE TG wALAE B ‘VRDCNY: FOR OniN) (0 yBC @6- Gumn COown gy Canarg 140, 005 °LY o0 NAID. ya A h DO LA Lol 3 - oas 0000 S e Wa 00%e IR AP IS RatlY 0ang gt ¢ 7) 1 l;’: L % 8] oi . [} - '3 - @ 001%10 000000 R0. WwOmD RANDON: wORD | 04 R | - WO F4 - % O 4 39 3 1} 137 wO? !o 0. oo o () B 10°¢ S4Evs) IaTE wmite 1O€In AFTER EACH WITE COrowD 1IF €0 0, SELECT WRITE O€ECxn COPWMANDY + RO ¥ IF €0 70 0, MANOOMLY SELECT DATA GLOCH s ADORE S8 . tf NOT EQU 0.5 AENTIALLY JSELECT DATA GLOCK AOORE SS 001512 001514 000010 000008 .SBTTL VALUES FOR FIRST OPERATION GEGPAY; St GCOD: WORD . wusD 8. ISTARTING PATTERN CODE (MAnGE | 1ISTART ING COVMD COOE (PANME O € CreCx DATA (' w(xD') - - 19.) 9) 11 » WITE OGCx MEADER ¢ DATA (' WO’ o WITE DATA ("WRIDAT') 13 o FORMAT TRACK ('FrTRX: ® READ DATA (°'ROOAT:) e READ MEADER £ OATA (ROO’ ) 000400 .Stmu'(. SBTTL TABLES, CONSTANTS, WRO CNT (RANGE 6 - WROCNT) AND VARIASLE LOCATIONS OROERQ: 001542 000000 ASNLST: 001544 001546 001550 001552 001554 001556 001560 000000 000000 000000 000000 000000 000000 000000 .WORD 1 ADDRESSES DORVS: OF .WORD O 000000 000000 000000 000000 000000 000000 000000 000000 000000 000000000 1LISY OF DRIVES P(RFMI'G COMANDS 001320 001522 001524 001526 001530 001532 001534 001536 001540 1A BIT SET OR VES TO BE OROPPED OO0O00000O~ 001516 - NOT USED) IS AN ASSIGNED DRIVE - NOT USED) N4 ZRJUOBO RPO7 PERF EXER MACRO vO4.00 1-DEC 83 10:32:78 PAGF . WOROD . WORD 001562 001564 5€Q 00351 001574 001576 001600 001602 001604 001606 ;LIST OF DRIVES 001610 001612 001614 001616 001620 001622 001624 001626 001630 AVAIL: 001632 001634 001636 001640 001642 001644 001646 001650 001652 WAIT: 001654 001656 001662 001666 001672 001676 001702 001706 001712 001716 001722 001726 001732 001736 001742 001746 001752 001756 001762 BUFTBL: .WORD .WORD .WORD . WORD . WORD . WORD .WORD .WORD .WORD ;LIST OF DRIVES .WORD . WORD *WORD ‘.WORD .WORD .WORD . WORD .WORD . WORD AITING OO0OO00O000O0O0 £ . WORD . WORD . WORD . WORD .WORD .WORD . WORD 001572 FOR BUFFERS/PARAMETERS 00000000 0E WORD .WORD 000000000 s ADDRESSES OF NEMWLY ASSIGNED DRIVES NEWUNT: AITING FOR BUFFERS ;BUFFER ALLOCATION TABLE ENTRY COUNT .WORD .WORD .WORD . WORD .WORD . WORD . WORD .WORD .WORD . WORD . WORD .WORD . WORD .WORD . WORD . WORD . WORD .WORD .WORD 0000000000000000000 0000000000000 00000 001566 001570 9 38 o0 ghflLES. CONSTANTS, AND VARIABLE LOCATIONS Bt 001766 001772 001776 0C2002 00200€¢ 002012 002016 002022 00206 002032 002036 002042 002046 052 82 10:%:R PALF 000000 000000 .WORD . WORD . WORD .WORD .MORD .WORD .WORD .WORD .WORD .MORD . WORD .WORD . WORD .WORD 5EQ 0052 0,0 0,0 0.0 0,0 0,0 c,0 0,0 0,0 0,0 0,0 2.0 0,0 0,0 0,0 046314 046556 047020 047262 047524 047766 050230 050472 BLKADR: 002076 002077 002100 002101 002102 002103 aS1 377 CoMTBL: FIANRKKKR ;:ORIVE PARAMETER BLOCK(DPB) POINTER .WORD DRIVEO s ADDRESS .WORD DRIVE1L 1 ADORESS .WORD DRIVE?2 1 ADDRESS .WORD DRIVES s ADDRESS .WORD ORIVES s ADDRESS .WORD DRIVES s ADDRESS .WORD DRIVEG s ADORESS .WORD ORIVE? $ ADDRESS 002056 002060 002062 002064 002066 002070 002072 002074 TABLE THE PARAME TER THE PARAME TER THE PARAMETER THE PARAMETER THE PARAMETER THE PARAMETER THE PARAMETER THE PARAMETER 8L0CK B8LOCK B8LOCK 8LOCK 8LOCK 8LOCK B8LOCK B8LOCK sORIVER COMMAND CONTROL TABLE (USED IN RP DRIVER) .BYTE WCKD tWRITE CHECK DATA 161 377 171 173 .BYTE .BYTE .BYTE .BYTE .BYTE -1 WRTDAT -1 RDDAT ROMD IWRITE iWRITE sFORMAT TRACK $READ DATA tREAD HEADER (NOT USED) AND DATA OoPTBL: .EVEN 105 105 122 105 124 105 103 126 114 103 12 16 20 22 30 50 S2 60 62 70 12 -1 1RELEASE sRETURN TO CENTERLINE tREADIN PRESET 1 PACK ACKNOWLEDGE 1 SEARCH IWRITE CHECK DATA sWRITE CHECK HMEADER AND DATA 1WRITE DATA 1FORMAT TRACK tREAD DATA sREAD HEADER AND DATA s TERMINATOR sMESSAGE CONTROL TABLE FOR 'OPTBL'® MNTBL: .ASCIZ /SEEK .ASCIZ .ASCIZ .ASCIZ .ASCIZ /RECAL /DRVCLR /RELSE /RTC NN NN\ 123 122 104 122 122 .BYTE .BYTE .BYTE .BYTE .BYTE .BYTE .BYTE .BYTE .BYTE .BYTE .BYTE .BYTE DRIVE ORIVE DRIVE DRIVE ORIVE DRIVE ORIVE ORIVE CHECK HEADER AND DATA (NOT USED) DATA sFUNCTIONC(COMMAND) CODE CONTROL TABLE .BYTE 4 s SEEK .BYTE 6 sRECAL .BYTE 10 sORIVE CLEAR 002104 002105 002106 002107 002110 002111 002112 002113 002114 002115 002116 002117 002120 002121 002122 002124 002134 002144 002154 002164 9 & TABLE ~NONBUWN-O CoRUCBY RPQTM PERF FXER MACRD VvO4.00 1 OFC TABLES, CONSTANTS, AND VARIABLE L OCATIONS - { L CoRNWARS PO" PERS ¢ XER MACRO vO4.00 1 JEC 8% 10:5.°:1°8 PAE 9 5 JFG OCSS 5, CONSTANTS, MMD VARIABLE LOCATIONS 00174 €O 208 00,214 002224 002234 002284 002254 002264 002274 0C2304 ac 120 128 127 127 127 106 122 122 116 10% 101 108 108 118 118 101 10% 108 101 124 124 104 al0 116 .ASC1Z .A5C12 ASCL2 ASC1Z .ASC12 .ASC12 ASC12 .ASC12 ASC12 /MEADIN 4 o] 75E ARCH /%D 7D /WMRTDATY 7F MTRX /RDOAT /RO0 7NONE / / NN NN N NN TAB TAB E -, CONSTANT, ¢ xER MACRD 04,00 1 JEC A% 10:%.:08 PA AND VARIABLE L OCATIONY 10 G 0CSe 002822 002324 002326 002330 002332 002334 002336 002340 002342 002 344 002346 002350 002352 002354 002356 002360 002420 002460 002520 002560 002620 002660 002720 002760 003020 003060 003120 003160 003220 003060 003320 002360 003262 STNDAT 002360 002360 002362 002364 002 366 002370 002372 002374 002376 002400 002402 002404 002406 ZERDS: OATAQ: 002420 002422 002424 002426 002430 002432 0024 34 002436 002440 002442 002444 002446 002450 002452 002454 002456 DATAL: 000077 000177 000377 000777 001777 003777 007777 017777 o37777 077777 177777 002460 177776 002419 002412 002414 002416 DATA2: DATAO DatTal DATA2 DATAS DATASL DATAS DATAS DATA? OATAS DATA9 DATAL10 DATAL1} DATAL2 DATAIS DATALl4 DATA1S ZERQS ONF S TABLE 1 S TANDARD DATA PATTERN DATA PATTERN DATA PATTERN OATA PATTERN DATA PATTERN DATA PATTERN DATA PATTERN DATA PATIERN 1 STANDARD OATA PATTERN 1 STANDARD OATA PATTERN 1+STANDARD DATA PATTERN 1 STANDARD DATA PATTERN 1 STANDARD DATA PATTERN 1 STANDARD DATA PATTERN s STANDARD DATR PATTERN 1 STANDARD DATA PATTERN sALL O S PATTERN IALL 1'S PATTERN 1 STANDARD 1 STANDARD 1 STANDARD 1 STANDARD 1 STANDARD 1 STANDARD 1 STANDARD 0000000000000 000 <818 002316 002320 § §ESBREE5R060500 BERRGERBNENENEN BBBGEEEEERNEEIREHS sSTANDARD DATA PATTLAN POINTER 1ALL O S DATA PATTERN 000001 1STANDARD PATTERN 1 177776 1 STANDARD PATTERN 2 000003 000007 000017 000037 000077 000177 000377 000777 001777 003777 007777 017777 037777 077777 1771777 - X- ENY. JVNFVISN_Xo] CTRUMRY AP " PERF s e 177774 1777170 17770 177740 177700 177600 . 177400 177000 1 76000 174000 170000 160000 140000 100000 000000 000000 000000 000000 1777117 1777177 177717 000000 000000 177717 1777177 000000 38 §ESSE65850040000 HR000AER000E1S BOBRINRALENANN CIRIOBO APO” PEAF ¢ XER MACRD v04.00 1 JEC 62 10:82:78 PAGE TABLES, CONSTANTS, AND VARIABLE LOCATIONS DATAS; 1777177 000000 1777177 000000 17 133331 113331 133331 133331 133331 133331 133331 133331 133331 133331 133331 133331 133331 133331 133331 133331 DATASL; 052525 052525 052525 125252 125252 125252 052525 DATAS: 10 1 E o S0 0033 177174 177770 177760 177740 177700 177600 177400 177000 176000 174000 170000 160000 140000 100000 000000 000000 000000 000000 1STANDARD PATTERN 3 1777177 1777717 1777717 000000 000000 177717 17717117 0000090 1mmmn 000000 177717 000000 1772777 133331 133331 133331 133331 133331 133331 133331 133331 133331 133331 133331 133331 133331 133331 133331 133331 1STANDARD PATTERN 4 052523 052525 052523 125252 125252 125252 052525 1STANDARD PATTERN S 147336 1875%6 14735 187556 14755 1475% 1475% 1475% 147556 147556 147556 147556 1475%6 1475% DATAS, 155553 133338 15555S 133338 1959555 1333533 15555% 1333338 155553 133338 195559 133388 155555 133333 155555 133333 DATAY: 030221 030221 030221 030221 030221 030221 030221 030221 030221 030221 030221 030221 030221 DATAS: 147556 147556 REEIEREEINNS HEEROEENRRNNNNND HAIBSAEEIERGANEN BAGLENNN CIRIOBO AP~ PERFr EXER MACR Y v0e .00 | JEC 63 10:%2:70 PAGE LOCATIONS TADLES, CONSTANTS, AND vAR] LY Y 10 2 2 00958 03235 125232 123292 052529 1232%2 032323 123252 052528 12325 1475% 147556 1STANDARD PATTERN ¢ (NOT WORST CASE) 13555% 133333 15555% 133333 155559 133333 15555% 133333 135553 133333 19555S 123333 135553 133338 15595% 133333 ISTANDARD PATTERN 7 030221 030221 1STANDARD PATTERN 8 1475% 14735% 147556 1473% 18755 147356 1475% 147356 1475% 14755%6 14755%6 14755 147556 1475% 030221 030c21 030221 030221 030221 030221 030221 030221 030221 030221 030221 (WORST CASE) CTPL0R0 @R M ¢A Ma(R) v0e .00 | OFC 0% 10: WM Pk COvTanTs, 008012 00%018 003018 003020 00%G22 0C 302¢ 00302 00%03%0 MO vaRiagt (OCATIONS 0%0221 03G221 030221 000001 0000G0Q ONO008 OAtTAe, 000010 000020 000080 000100 000200 000400 001000 002000 008000 010000 020000 040000 100000 17777 177778 DATAL10: 177778 17777 %22, % 177737 177677 177877 1 %24 224 176777 179777 178777 167777 157777 137777 orrrn 172646 155593 003164 003146 003150 003152 003154 003136 003160 003162 DATALYL; 135553 orrTITY 187777 DATAL2: AR HHHHTHHH B HHHHRRHHHHH Y At s, 10 8 (% #Q 0057 0. 21 0300221 030221 000001 1STAODARD PATTERN 001000 010000 020000 040000 100000 19444,) 177778 177778 1STAOARD PATTERN 10 1 177787 177787 17%7? 1 920124 177877 176777 179777 178777 167777 187777 137777 or777? 172666 1333553 172664 1STAMDARD PATTERN 11 1STANDARD PATTERN 12 139333 172666 135353 172666 133553 133555 o 137177 JOxMO @RCT FRAF ¢ MR MACRO ves . MO RC 63 10:92:70 Pt i, CININTS, O vaRlavt LOCAT IO ocsy 12 o031 74 173777 tnrr? ¥ 32344 (33,34 1344 344 198339 Ostts 7 000000 grrery 1822444 gy g7 ?? prre Y 1944444 jrreey g7 Y 1922244 1982241 00320 003322 003324 003326 pyrrYY 0033356 oataLs, Datals, [«"2 182284844 1924244 003310 003512 003314 003316 003330 003332 003334 L) gr778? 177787 177997 4434 2242, 177799 R HT 00168 @041 70 197777 167777 178777 1 R2244/ 177 Y gprrmm DATALS; BERERERN BARRGARARNNELE RHIH il R U6 20 & HS MO 0030 187722 sr?77? §7877? Y. 3244 '3, %42 §77872 1771977 384344 §7779? % %22, 1$22.%) gr7718 ($222,° (R442. 199333 OLaas? 13T0ND PATTEAN }Y 153198 %3333 %2222 %2222 (R2222) $2222) 1STAROARD PAYTTERN ML 168 1 S OATA PATTEAN 177777 $2222] 17777 82222 $2222) 177777 gy 177777 (2222 Y2224 177777 1STAOARD PATTERN 19 C SO . G T PREN (MO -k o0 1989 [ EaA"Y/ o o of W0 O ? %08 OF ¥ v iy O Tvag [ (1 41"] 2as ] ¢4 '!"0 v vy o Ve, [ 214 [CRALF| O g ARL GOUoee M v oy vl ot I~ 00l 0 wrey L) - ) oy . gy o ey w =) . oy vy SO0y |<o a2 ) |cetitad SOWP Lol |s/ o L s 20 00%e (70 rMec GFc 7 GQOF CE® WD o8 89 § ML 0% 19 © W Pa (s o Frigitd a8 L' ) %xOe 000 (omgp SyTATM® 'alg g%y *an ¢ CMTOTWE ¢ o%Q P IS WM SRMTO'IIN S1T QY -a"us MDY e E M (14 P \ oot %d oY, g JNRgD 3 e or*%gd NI0N N a-mn ! Wided OoSUSd ¢ Ol 15 11 G0YIP) B 18 Ok V7)) O 1 :: CAYE Y 10 00%00 19 OCveup PO O vaul ;} oUsess o /P Ny Y Mg OB e %3 T Te@ e 01:® L 1095 .9 o ) Teg Qs B W 70 TMG Oacs FORNM? INTTARST X AND (Wey @Ne410 [ Ooesd JORER & SRS CARITY CARER (PR} ) O%al6) M e SUUUOP JOnngR 9 O%12% ONelN 05450 u ] | d zil AV VR +JNngn ¢ 39 603430 60 0C34L2 O0512e4 0% 200 42 003430 ©00000 0%52¢ [S PRATINENS. larg JSRGEG FARITY CARER (WOTPE-}) 0Ny} :? N Tam¢ g ag® t OO} 0% 6} 00334 MIGER MDD = ("TM (% TM JRngn 2! O 314 :: UM (NEe AR R TED AYMENTION GCCO\ANED PNy ON117S 12 00%0 38 O M2 34 OLsas e v L Yy @ JANng QGAtOTY 7S 003410 a’: ) W "y @l :: ’ O(\eip ' A COVEALED P : @ TM I WO W 0 M {1 @ "Tg M Ot W Qa8 Y (SRS 0TM [°¢® % g elG COn e, 8 PUINTENS CWAADGED A% PAALOME! o® L I TW TS "W P f(are AR et Can COUR. W e ) [ ) zu Jmn O30 VY VOO " WM IE ¢ §) G- RN ¢gD ¢e ¢ SRoh O IwTee ‘abh g NU(WP ot M | | S oraes 4 ¢F Cangy oMy L. A )rae: Gues) opryy. LAY Ny ot " T . Oream 90 & prmary QS0 1"t :t S0 TM .-Q L Solt ..,0:0 .y ., * o S0P -y ONeags L l‘ Wre 15 Or* Jvere? @piste StEpY, 1: GOTIEP G127SY GEONd SN V't . W 0L 4 Suuee? or*vee @or.>ee ro Uil Ois’8? GOSN 71 OrT N SON P GODOND fi LIS SUULDd 4 & . “a g 5E€ 0 AR ralw SuTen xunf‘ , n ? ey o w» oy O O 4«0 2 01768 O C.. N 5 .V GBLLLS G910 SCWAe O 0.4 012737 0.3 0..'37 SO G M9 O ‘¥ SOOON Gunr O ¥ O O M 01,3 0.’ - .@ S 9 Gused O wad U 01,30 012737 0300 SXMI §'‘al (2%% G0%4A0 O13%¢ S00008 S ?? 0127 el O1/7!7 O GW 0 0 03’0 S00008 00’08 027 ool " g raied 03716 ©00003 003720 003796 012716 ©00002 @93 00? QRIS 'O 0 OWNND 87ERt Bg PUULANN . OwAmd a.INyTMN .97 ML MAUED I Y Ml O o o7 LD, uAgY FER DNORDONS - 4 -11.‘ LL0a0 ~ny Maltary e [ 4] ~y o MSIN IOh V] ’ RN 05 e ) 0%0 S0 'sav st [ Oy el 0 AR . J ey %0 Of QALLARED NV 7157 1 - SaCn SOPVIRN (TG0 FER SARGD AVY DS ) WCYED FED TP CALS wWC'ER 0l ' L'l o v 0= ¢ NG MNOON WIND GRNEAATOR 0. %% & s 3'. ‘0 Wl D LN e & Wt Su!l' . = GEC!. ‘8 I wO! VOO OB §T IS WU O OB & 4P 'l o .Sy o - Gsrdum porntl ,,» A0 FARVEE 0380 GEPG * . ot v, ! ;e | U 1P h@ B Rty v ' s Gium B ot Wil ,,0w 0% gm = . T .8 gl A 04 ' aap go'ewrnl ,,'ssd Gt Oy son » v v 1N Gy uiwe +O 02D APY? G Y OwiE A sl TO @ °-)°. 20 PR. o 3 b N Ly 12e%s BN_3%% ] '!’“ ¥ ol s iy B ?O > eDtIA (/X -y Ny ~ g Ooui’ad 01,737 i"&" o0 1% euirie PR R 1A 1% NG CPerm 'ags od G0 Ot J§ wgg stamry a y (TM'ag) anus a L:-uY-V VY ] 0w ag, g pe? 80 LOFS'IGN Gis7ED 01,73 *OBE 'R 90. -t UM O N2 FED » L s JERETM . W' oTM g 'RND stabty 2000000 Heye 19) q ‘i, OY stant), f 2) O o s ..'-'l l. St @ oA 017°%0 ’8 W 29 g v AR 4 sty 9 16 SULL0 ' 1 'z 4F ) 3’ - o ] ) W s GG ALY YRSNND TPUS ‘om-o o1 1099 raay w oy @ C OF 30-90-20 VNS VY X (W) T4 Su 0o ¢ ,944 (2 ( 0152V W e v 215 "N\D F 1318, A ' m & vl wsnd I N ISTEN G P CIPNAY 00 B s waing (.. A1 B 1% tR o |.00 6350 %% .(P) satut V10 SR/ ¢ <c 'l rANDWARE 1:0raae IF w 11O 1I€A! NhE weDurst sl 9 O S Vi@ Sl Tua® OLCUAAED |9 NDT o .} St W FOR TR Mk 1\ 7o yMe GRgT Gudl ¢MO S WY "I LA %G (PPN Tat ”e1 o1 N ¢1;7e? L A, oS rap [ ;¢ S}/ L ort ey oty or:: e I LT §°. l’".‘ oTM , 004 LB TM oS 79 ontT v L 124,) v? L2 7! L4184 34 L ¥ 24 1 08019 [ O I8V ] o, 9y YT e Y TM | MY | or- <98 o5 19 B Ot 1 oNe o . ooLar? HEH L A ZL£33% L s Y aa B o0 %1590 onnons o 71 18, Y o .eup Oua 1 0 Ou )e U oue} i@ 1314 3 3343 3§ 34 34 +-24 oui a 18 00e 129 . .M , /ML oD ceo .e:y g "8 gr” CED Pu sus o e LI MR o uiie.. 2P o0t mc Ou 1s 5P %11 1..°'%? | YO RS4 Oude | 54 Ous 160 Oud 1 o4 O 1YY oLi1ed 00e}172 0004 1.2 Ous 10l 004220 Ous. 0 W. -” Ous. % 004, %0 004,12 004, 36 “E8 Lt T TS Y T, W E "D '8 S BT it &, = %0 , S & ' SREY, 1 "DYN niS, ¢ L&ae | By 7008 SRULAN® I, S8y \Ev8. § POTCw L EVEL o1 TS L obe s Onaxe v B oy Do UG g VG ¢ NG SUGA I #toR? ERN Pety ' o o> afl ) g. e v (o, o ] On:s 9- 0014% 001630 et VD 10, s e Tvoq 10860} ‘5:301 [] .A8C12 an "~ 1v00% .0vg .OvIg Tvog on 0.9 M1 oo 7L » VTR . -2 SARAC [ Mo (AP » : oLl 790 O uE Bl BRCIV TR (g g: ] $.4737 o312 031y ,, - ." ey ¥ By o oy a0 | -4 ::1 0,008 ol 8 o= g G o @ VLS P/ T? " w0 "o r‘.“ ssing wf e TM T2 A a.m 097 AN0-IE POICATOR 20 . « g 'fitm 'lfl DA 189G (A, ), o0a 129 Oud 1.9 Oud ) 34 Ou ] d % Oud | 64 IR S -y L o & YV ANy P el 190 v Mgl o o119 1SN PG e i, | 'y ©. 1.7 o LUy joseq ous § omm- ugld & NP YIRS W (T D ME WS TY B P W WY WN, se?O0 GOA ?8? R -y L7 7 TT%Y o “ry -y .2 O ug Oua 7@ 0S| * Suan greeee L T L 0ld? ST A @ VRS O "y OO0 ABQ MLECTED? ~p . 0l SETIDEE g fRoghan COvTal) =00g 13, P Ownin & SV g WOLEAD Ev0P- LOMD BEvICE 1 0000 . xNQP AT 30 s 0P 00 ¥ WY o 1.000% ] 1) ¢ «OMIr»ADT WYY -(99) Lx0P (9P) g ) | (o W WONAD Faum A A9Q) AT +318 IV '3, 3) ' Wacs ) ( Sethaase) OReiCE DOIZA' M MO MISEN A wALID moenn ) D, BEVAAY V¢ ORIV O ORI € OB ACTLY ATO ACCEPY O 0N IF ;s an 0sTv0Q AL 1] STRNNG 01GEY Ot g Al Onivg ¢ OLEAR wORD O STACH 1GEY DAL AL BESY VPR Tn@ AOCwt -5 100 Y | Ownal tn 1SPRESS LEAODG 2ER0S 1CR-LF «GET MPOER OF DAIVES DA (70 VIO @GP~ GEr ¢ 7B Ma'e~ yrg N | W7 00 17 RENY YV| TP Lel Gl > Mg LTS S b § t e ons >69 O 08 ore.>7 V & ",‘ jrla} 000e 10 1 RARARS 10 Q.00 OB :3' 11994, ‘ons st mst shive / e 10863 001 00 1082 41 0882 105737 001408 113737 001220 001236 005787 ool4e1} 013737 001262 001272 105737 001130 004737 013737 013737 005037 012703 005029 022705 001374 012706 005037 013737 103 104 105 6, 011410 001274 001002 005037 005037 005037 005037 013737 005037 005037 005037 005037 005037 005037 005037 005037 005037 005037 032777 001402 oo mcif amre, (99 mgr . (W) OLEAD wORD O $7ale AT OR2eg AprEE -4 g OR v | Owsa (0 sSAUPESS LEAC G J¥R0S 062476 001272 001274 001314 001520 001100 177776 001312 001340 001342 001344 001472 0014862 001334 046710 047152 047414 047656 050120 050362 050624 001424 000001 040640 0400642 001464 #C. sTu Nt TR 08 NG wEra anD INTEAMPT 9 +N0.00 %O! ey svecTy IVECTI . 0APVEC ::ma 7 N0 LOAD IF ,’Ev VECTOR ER ¢ @ v BASE ACONESS ? 10 M GASE ACDRESS 1O€ECH Max/APOT BUS ADDRESS sLOAD ADORE S$ INTO OMIvER sLOAD VECTOR INTO DRIVER sCLEAR PERF ORPWNCE SIUPPARY TYPEOUT FLAG . 'START OF AREA TO CLEAR . LOOKX FOR END OF CLEAR AREA OSTACK , SP rS HMERTZ , OME SEC sOR IF NOT FINISHED 1SETUP Tr€ STACK POINTER 1CLEAR TME PROCESSOR STATUS WORD IRESTORE OME SECOND COUNTER VALUE MOUR NINUTE SECOND INTRVL o2 1CLEAR THE MOUR'S COUNTER JCLEAR THE MINUTE'S COUNTER sCLEAR THE SECOMD'S COUNTER JCLEAR INTERVAL COUNTER CFLAG 1CLEAR THE ‘'CONTROL C' FLAG RDONL Y 050, BSWR 1ASSUME READ/WRITE CONOITION :IS EXERCISER IN 'READ ONLY' MOOE ? CHPTIN,CMPTIMe2 ;INIT COMPARE TIME COUNTER DRIVEO+OFIRST DRIVEL+$FIRST DRIVE2+0FIRST DRIVES+OFIRST DRIVEQ+$FIRST DRIVES+$FIRST ORIVE6+$FIRST DRIVE7+$FIRST 174320 SO .em(nsomc s AUTO MODE ? SRPADR , APADR RPVEC . APVEC (RS). LOER APT = (g [] C STATIN s €W VECTOR ? s&.m 78: 001346 s 1GET OvER D A [2 L] 66: es 38 s v0g m.u L8, 11 b1 T s 7v9Q QORI & 7% vt Pnocam, BEan Loc. 00 MO ALSTART SROCAAR /oCRLES %, 11 0012% 0012e2 000403 o IR 001419 TR TR ey @ ? e 22000030 8RICATIANR 3 00a 73?7 105787 80 0o Fa X 908,94 [ ag%e Y $1%71¢ M5 W@ 8t ,RESET ,RESET ,RESET ,RESET ,RESET ,RESET ,RESET ,RESET FIRST $FIRST OFIRST SFIRST SFIRST $FIRST $FIRST SFIRST iBR NO IF FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG FOR FOR FOR FOR FOR FOR FOR FOR DRIVE DRIVE DRIVE ORIVE DRIVE DRIVE DRIVE DRIVE O 1 2 3 & S 6 7 CZRJ0BO RPO7 PERF EXER MACHRO vO4.00 1 DEC 88 10:32:28 PAGF GET VALUE FOR SOF TWARE 106 0046 %6 107 004642 005237 SHITCH REGISTER 001424 INC 8%: 12 3 ¥ ROOML NS SEQ 0064 ;LOCK PROGRAM IN 'READ ONLY' MCDE 100 110 111 112 004642 118 004646 114 004650 115 004654 11¢€ 117 004656 118 004662 119 004664 120 004666 121 004672 122 004674 123 004676 124 004700 125 004704 126 004706 127 004712 128 004714 129 004720 130 004722 131 004726 132 004730 133 004734 134 004736 135 004742 1SEE 105737 001035 005227 001032 104401 104411 012600 005737 001013 105710 001414 105760 001006 122710 001411 122710 001410 104401 000753 104401 000750 104401 001150 OPERATOR WANTS HELP TEXT PRINTED TS718 $AUTOB sAUTO MODE INC ¢ 1 sFIRST TIME s8R IF NO TYPE MSHELP ;TYPE 'TYPE HELP MESSAGE sREAD THE ENTRY BNE 177777 064370 IF BNE 9¢: ROLIN MOV 001334 000131 060163 10%: 057077 11%: 064500 12%: 13s$: (SP)+,RO CFLAG 108 8EQ 1578 BNE cMPB 114 1(RO) 104 @'vY,(RO) B8EQ cMPB8 000116 13 157 BNE 1578 000001 134 8EQ TrPE (RO) 12% @'N,(RO) 13$ +BADENT B8R 9s B8R 9 TYPE TYPE +NODFLT JHELPTX ;8R IF YES ? THRU HERE ? (LY N ? ¢ i SAVE ADDRESS OF RESPONSE ;WAS (*C) TYPED? ;B8R IF YES s8R IF YES (DEFAWT) :WAS RESPONSE A CARRIAGE RETURN ? :WAS IT TERMINATED WITH CARRIAGE RETURN ? 1BR IF NO ;WAS IT ;WAS IT A 'Y' RESPONSE ? A ‘N’ RESPONSE ? ;:BR IF YES ;BR IF YES s TYPE BAD ENTRY MESSAGE : TRY AGAIN sTYPE 'NO DEFAULT' : TRY AGAIN s TYPE HELP TEXT MESSAGE LV LS4V} N oo N) P2 0=t 0eb 3ot ot gt ot Puo e e - OCO® ~Non 5 N O NBBWNEFOO® i NB inl, e CIRIORY RPC* PERF EXER MACRD vO4.00 1 DEC 8% GET JALLE FOR SOF TWARE SWITCH REGISTER 28 10:%.:)A PALF |2 5EQ 0065 $AUTO SIZE FOR RH70 CONTROLLER AND DETERMINE $JUMPERED FOR 22 OR 32 REGISTERS 005037 042737 013746 012737 013700 062700 012701 005720 005720 012737 005720 005301 001375 012737 000403 012716 000002 013700 013701 001416 060001 052710 022711 001010 005011 011046 042726 001003 052737 012637 040646 174000 001234 SIZE70: 005032 001272 000074 RMHEXT MOV ERRVEC, MOV 824 ,tRRVEC MOV ACD MOV 000012 000050 CLR 81C 167 Ts71 040646 18: 040646 8174000,8CPUOP (SP) $RPADR, RO #50,R0 010. ,R1 TRC). (RO). iSETUP ;GET ;GET tGET ;:TRAP TYPE REGISTER CONTENTS ' TRAP' OF ERROR VECTOR RETURN ADDRESS RPCS1 ADDRESS REGISTER OFFSET FOR NUMBER OF REGISTERS IF NOT A RH70 T0O CHECK VALID RPBAE s TRAP IF NOT A VALID RPCS3 R1 1 :OONE WITH ALL :BR IF NO ;SETUP RETURN ADDRESS 1GET RPCS1 REGISTER ;GET RPBAE REGISTER OFFSET 074 ,RHEXT g?¥ 001272 040646 33 MOV MOV $RPADR,RO RHEXT R1 ADD RO,R1 B8EQ OFFSET IF NOT FOR RPBAE (22 REGISTER A VALID REGISTER 32 REGISTERS ;LOAD OFFSET FOR RPBAE RM) ? (32 REGISTER RM) Y] :BR IF NONE 8IS cHP 8NE CLR MOV 0A17'A16,(RO) e3,.(R1) as (RY) (RO)Y, (SP) ;SET EXTENDED ADDRESS BITS IN RPCS1 sARE THE EXTENDED BITS SET IN RPBAE ? :BR IF NO ;CLEAR EXTENDED ADDRESS BITS IN RPBAE $SAVE RPCS1 REG CONTENTS BNE BIS 4 1BR oBIT13:8IT12, sCPLOP B8IC 4% ;CLEAR CPU s SAVE DEC BNE 2$: 001234 sCLEAR RPBAE OFFSET ;LOAD ;TRAP 005040 030000 000004 1Is 050 ,RHEX T (RO). LY 038 ,(SP) 176377 17 MOV 1S7 ggv 001400 000003 IF MOV :GET 0tC<AL17tA16>,(SP). (SP)« ,ERRVEC RPBAE REGISTER tARE THE EXTEND BITS CLEAR IN RPCS1I ? IF NO 1SET ;RESTORE THE CONTENTS 11770 CPU OF ERROR TYPE CODE VECTOR 8. :.°8 PAL CIRIOBY APQ" PERF ¢ XER MACRD voa,.00 1 JEC A% 10: “ALLE FOR SOF TwARE n” P N OB 005112 005116 005120 005124 0051382 005140 005146 005154 005162 005164 005172 005200 005202 005206 005212 005214 005222 005230 005232 005240 005246 005227 001005 004737 018737 012737 012737 0137%7 0238727 101403 012737 162737 000241 006037 1057387 001403 162737 023737 003406 0137%7 013737 14 SWITCH Rt GISTER sROUTINE NN - o b P 9o pub Pt puo Pt b0 UWN=O WA= O o0 v PN GET 177777 062344 062474 000001 064370 001330 001330 160000 064370 L3Paa L H 001330 001654 001656 18: 001660 INC 8NE JSR MOV ~“Oov MOV MCv cw 160000 001660 001660 TO DETERMINE 2s: 8L 0sS MOV SuB CLC ROR 001660 001150 1718 003000 001466 001660 001660 001660 001466 001466 060646 3. [ FGQ OCHS B:¥FER MAX 2B 1s PC,IS12E SLSTAD,LSTAD 1FIRST s8R IF TIME NO THRU HERE ? 1SEE MOM MUCH MEMORY ON SYSTEM $1GAVE TeE LAST ADDRESS 1LOAD NUMBER OF BUFFERS OENDPGM ,BUF TBL «2 $1STARTING ADDRESS OF BUFFEP sLAST ADDR TO BUFFER ALLOCATION TABLE LSTAD ,BuF TBL -4 LSTAD, 2160000 ;tOVER 28K ? iNO 28 ;XXDP MAX MEMORY 28K #160000,8UF TBL -4 TBL -4 ,BLFHM 1SUBTRACT PROGRAM SPACE SENDPG a1 ,8UF TBL BuUr T8L -4 $AUTO8 3¢ 01536. ,BUF TBL .4 WROCNT ,BUF TBL -4 4 BUF TBL +4 , WRDCNT WRDCNT ,PARLST.2 4% WORD COUNT tCLEAR THE 'C* BI17 sCONVERT TO WORD COUNT JRUNNING IN AUTO MOOE ? 18R IF NO sSUBTRACT ' xXDP' LOADER SIZE 3 IS MAX WORD COUNT TOO LARGE 18R IF NO sUSE MAX AVAIL MEMORY tVALUE FOR THE (1.5x WORDS) ? AS MAX WRD CNT PARAMETER TABLE CIRUDAY A" PLRF Gt ALLE ¢t kR MACRD vO4.00 1 DEC AS 10:8% :.°A PAR FOR SOF TWARE SWITCM REGISTER sSRE 005787 001154 105787 001404 0327717 001467 040100 005037 104401 104411 012600 0057387 001353 105710 001454 105760 001334 060306 122710 000131 000116 005354 005360 122710 001443 104401 000735 005737 001032 005362 005366 005037 104401 005246 005252 005260 005264 005266 005274 005276 005302 005310 005312 005316 005320 005322 005324 005330 005332 005336 005340 005344 005346 005352 001006 001406 IF L XPAR: 001150 Trd OPERATOR wWANTS 151 PR LG Bne 1518 8tQ St TVEC BI7 17360 8€Q 18: C'R T vPE ROL IN MOV 157 001334 BNE 1s18 8EQ 000001 $ALT08 1 25WO.2 , BSWR as CFLAG JMESFE (5P). RO CFLAG LKPAR (RO) FQ 0087 TO CHANGE ANTY PARAME TERS, IRETURNING FROM POWER FATL 1BRANCH 1IF YES sRUNNING IN AUTD MOOE 18R 3s: 4% sTYPE ‘DO 005402 005406 005410 005414 005416 005422 005424 005432 005436 005440 005446 005452 005454 005460 105710 001414 105760 001006 122710 001411 122710 001411 104401 000751 104401 000746 005237 000402 104401 vYOU WANT INTERVENTION ? TO WRITE ENTRY tREAD THE ANYWHERE ON MEDIA (L) N 1 SAVE ADDRESS OF RESPONSE tWAS IT CONTROL C ? ;B8R IF YES ;sWAS RESPONSE A CARRIAGE RET RN ? 18R IF YES 1WAS IT TERMINATED WITH CARRIAGE RETURN ? IF NO IT A 'Y RESPONSE ? A ‘N’ RESPONSE ? ;:BR IF YES sBR IF YES 18R IF YES IT s TYPE BAD ENTRY MESSAGE : TRY AGAIN :PROGRAM RUNNING IN READ 1CLEAR CONTROL C FLAG sTYPE * ¢ CUSTOMER ------- - DATA ONLY MODE WILL - BE - - ? OVERWRITTEN - ¢ - 2 ;CONTINUE (L) iREAD THE ENTRY 104411 012600 005737 001321 ? YES ‘ 005372 005374 005376 2 1CLEAR CONTROL C FLAG sWAS 001424 NO ;B8R IF tWAS 2%: IF ;DOES USER WANT MANUAL 18R 060163 001334 060367 15 1SAVE ADDRESS OF RESPONSE 001334 1WAS IT CONTROL C i8R IF YES ;1BR IF YES 1WAS RESPONSE sWAS IT 1WAS IT A 'Y 000116 A CARRIAGE TERMINATED 18R IF NO 000131 ? 1BR IF YES 1WAS IT A 'N’ ;1BR IF YES RETURN ? ? RESPONSE ? Ss: 057077 6¢: 001422 74: 060531 8s: sTYPE 005737 001402 104401 001424 9s: $+IS PROGRAM LOCKED 1BR IF NO 005037 001334 s TYPE BAD ENTRY MESSAGE s TRY AGAIN tTYPE 'NO DEFAWLT’ ; TRY AGAIN $ENABLE sTYPE 13¢: ? WITH CARRIAGE RESPONLE 060163 060570 RETURN ‘s 'o TEST ANYWHERE OPTION TESTING WILL IN OCCUR CYLINDER “READ ONLY" MODE PROGRAM IS LOCKED iCLEAR CONTROL C FLAG ON FE IN ONLY » ? 'READ ONLY' MODE » 2 CTRUOBC APC” PERF EXER MACRD vOe.00 1 OEC A% 10:%,:08 PA# Gt JAaL\R FOR SOF TWARE SHMITOM REGISTER sa 0054 76 005502 3] 005504 N4 0C5510 E ) 005512 4 005514 9 005520 %% 005522 97 005524 A 9% 005526 9 005532 100 005534 101 005540 102 005542 108 005546 104 005550 105 005554 106 005556 107 108 109 110 111 112 005556 005562 005566 005574 005576 105787 001040 104401 1064411 012600 005787 001364 0011%0 1.'8 o 060740 TvPE "M IN MOV 1S7 SNE 001334 105710 001427 105760 001006 122710 001406 122710 001416 104401 000746 012703 004787 023727 103003 012737 1578 000001 JASKPAR (SP)e RO 144 158 ENTPR 000006 001466 IRUNNING IN AUTO MODE 18R SETvEC 1(RO) 3 (RO) SETVEC IF YES ? 1 TYPE ‘CHANGE PARAME TERS ? iREAD TrE ENTRY s SAVE ADDRESS OF RESPONSE 1WAS o'N,(RO) 060163 SF0 0CHA CFLAG 13 ENTPR 000116 000006 sALITOB SETVEC 148 ®' v, (RO) 000181 060644 031170 001466 15 ) f " (*C) TYPED? 1BR IF YES x;;SI:ES:gNS£ A CARRIAGE RETURN (DEFAALT A ;WAS 1T TERMINATED WITH CARRIAGE RETURAN ? ;BR IF NO sWAS IT A 'Y RESPONSE ? A "N RESPONSE ? ;BR IF YES 1WAS 18R IT IF YES .BADENT 15 1 TYPE BAD CNTRY 1 TRY AGAIN OPARLST RS PC . PARENT 1PARAMETER WROCNT , 06 $1IS THE “WROCNT® VALUE OX ? 1BR IF IT IS $SET 'WRDCNT' TO THE MINIMUM VALUE SETVEC 06 .,WRDONT tGET TABLE MESSAGE ADORESS THE PARAMETER ENTRY ‘N )? CTRUMO B9 Pt Fx¢@ MALR) vO4.00 1 JEC B 10: % : 00 PAS GET JALR FOR SO TwaRg SMITCw MCISTLR sOISPLAY g OO AL 11 008737 004787 012787 003227 024% 78 080052 003737 001004 040100 " W pus g 001407 os21? 001118 005004 10440} 104401 010846 177777 1777? 000004 005672 005676 005700 005702 005706 005710 105764 100416 eC . RPINIT 1,S5AVEFC 1 PR 173310 037118 001208 1 *Swl2, ISWR 124 1¢: Re F4 N ., SCRLF LORSTAY Re, (SP) 2 0 . BLNK(SA DRVSTA(RG) S L1 056606 040534 040544 ORVIYP(RE) 005716 100006 104401 000460 056760 L} NOTRP 005720 005724 104401 000455 056775 005724 005732 104401 000416 005734 005740 005742 005746 005750 005754 005756 005762 005764 005770 005774 005776 005712 006010 006014 006016 006024 006026 UP TiE OTER SYSTEM DEVICES PROGRAM Rt TURN *ERE PC.Cvlix ® 001020 105764 001404 USE. o1 104403 002 000 104401 “FQ 0089 STATUS AND SE' PRIAAM wILL SETvt(C: 040002 DRIVE 1o 1STARTY ON POMER FAIL Trat € CLOCKX sINITIALIZE TE RPO? DRIVER 1SET THE SAVE REGISTERS FLAG 1F IRST TIME TrRY ? 18R IF YES 1RETURNING FROM POWER FAIL ? 1BRANCH IF YES 1 TYPEQUY THE DRIVE STATUS TABLE 100 IF NOT i1ORIVE TABLE POINTER DRIVE STATUS’ 1 TYPE iCR-LF 1 1 SAVE R4 FOR TYPEOUT 53 VYPE DRIVE MPBER $:GO TYPE--OCTAL ASCII 15 1YPE 2 DIGIT(S) 1 sSUPPRESS LEADING ZEROS 1OECK DRIVE'S STATUS 18R IF UNSAFE 100 IF Onal INE 119 1SEE IF OFFLINE OR NONEXISTENTY 10R IF NOME XISTENT 100 IF OF FLINE iORIVE NOT AN RPO7 1CrECX NEXT DRIVE 3: .NOTPRS 11 1ORIVE NOT PRESENT ;1CrECx NEXT DRIVE 056667 44 JUNTOFF as sORIVE OFFLINE 1PRINT DRIVE TYPE 104401 000413 057031 Ss: . NOTSAF 8 sPRINT 0057%7 001406 123704 001003 104401 0004 36 104401} 104401 005000 116400 012737 001430 64: XX0P 122700 001403 012737 104401 000000 S 001430 7 XXDP , R4 7s 057041 056700 056610 040544 0571535 057162 7¢: 8s:; +TYPE LBLNKS2 1ORIVE ONL INE 1 TYPE 2 BLANKS RO QIRPOT,108 ®5,R0 94 QSRPOTP,10¢ 006026 9¢: 104 1LOADED FROM THIS DEVICE ? 18R IF NO 1LOADED FROM THIS DRIVE ? 1BR IF NO .LODEV 118 JUNTON ORVTYP(R4),RO 006026 1ORIVE UNSAFE ORIVE TYPE ‘'LOAD DEVICE’ 1GET DRIVE TYPE stASSUME ADDRESS OF RPO7T MESSAGE 1IS OEVICE AN RPO7 1 TYPE IT IF YES ? 1ASSUME ADORESS OF RPO7. MESSAGE 1 TYPE THE DRIVE TYPE MESSAGE tMESSAGE ADDRESS HERE ? Ly CTRXBO AP0 PLA ¢7ER MA(RD vO8 OO 1 JFC B 110 ..» Pas GEY vyALUR FOR SOF TwARE SwlTCe ®(ISTtN (& | 4G 0670 87 8 0086030 004304 .y ] tOovGE ne O 70 B¢ INOER 0166002 0020% “Uv ¢l COG080 6/ 006084 63 0000% 004737 032762 001002 O06%%42 000008 IR a1t L ] oC . Svilver e OlLY, PO 11 I fe s JCREENT DRIVE NOSBER/TAGLE POINTEA o 29 0N 0 0060% o: 000034 'S 006204 1086801 66 0060860 0035208 &8 006066 001272 67 006062 % 006070 ¢ 008078 asn 000200 0570% 020427 000010 104401 0012093 1v0g 118 128;: ey 4 Tv0g G NAOR(RS ) A2 70 WORD INDE 2 te 008032 i Ey " ,00. . SCALF R2) (GE* BASE ADDMESS 1SAVE ALL REGISTENS INTEMLEAVE SECTOR SET 10N IF vES ? 1 TYPE NON-INTEM EAVED "B SSAGE 1F In1S»€0 ? IF 1CRLF %07 H'b ¢980 MA(RD ya TRt A | JEL SwltCm Wi e AT 10 L Pa g 1Y 1IN 1Y POOLAGR PARWY Ladd M 012787 012737 os277? 00} 608 012787 0304880 001730 105737 00120 0127%? 012787 008110 000340 34 1{-224 0011% 001008 3 234 0034%8 003001 005002 005008 005787 ETRULULELIINIAR 001000 012737 001608 Z¥sa SRS 01%%10 14,.90 00 7540 001608 123701 001438 Oon1884 00Ci8%0 374 0014%0 16 001844 0016%0 t4 B e, 001430 030164 031070 S0, 016300 mro 00e..' 764 032760 001602 010062 00a7y? 0057387 001007 005060 112760 004737 68 76 001332 006326 000 3 54 012787 005087 000001 040100 0030840 . OCON '.S;' gfl 0.' NPT MODE ~Ov "Ov 0005110, "OCON 0306 .12 OCON.2 xnxvxnm (1710 OF DR,) WER COMT(LSD) l('fi'. %79 L astaD 1] AING In AUTO "OOR 7 10 IF ves an 8s: 9 1 01730 .E0DC N2 OGAOR [ 1] " ,H("TM38) 19 IF INITIALIIE (176 OF NOPPWL ) WWER COUNT(LSE) (TM58) ? l".' A' 200 ? 0 ONIVE O a2 sBVATL t‘l DOEr 153 REOP 1L OA0ED M TMvis OEviCt ? o | as ORIVES o oo Y] otQ 1518 L N OV JSR 14 ORVETA(R}Y) ) GLRAOR(RS) . A0 Nel . | 1O IF ves 1ORIVE On LD ? 100 LLOND 0P ADDRESS QLEAR DP9 B OCH L )3 OILY,MPOS(R0) ,INTEM EAVE SECION SET ? QP .M} LETID Y] OV JSR R0 .EMMTI(RD) oC . ORvean L LA 14 ] WIRSY(RO) £ o, g IC L6 O I7 w0 |L”D FRON TMIS ORIV ? +GEY ORIVE SERIA WNIOER 1O IF w0 LOAD DPFO ADDRESS T0 ABAIL E\E O 1SETUP DRIVE PAANE TER L IMITS NETURNING FRON POMER FALL ? 100N IF vEs JRESET OFIRSY FLAG FOR FIRST 204 STARY 0-2,PACK(N0) PC.SEPAn 1SETUP COMWME ‘ul° (WMRITE DATA AD TEST) 1SETUD SEQUENTIAL PAAAE TEAS FOR WMRITE (R3)e , (M2)e s INCREENT DNOEX " (o, J fny.07 ot 001334 07540 .t O(ON-2 Qn nove JSA 11717¢ 020330 005037 000403 "oV %0 0001142 022%22 00%201 00,0127 003732 100 'OU At SEOATY N TITME (Sw9=}]) ? JR 001566 0304802 080100 00¢ 306 O 310 00Ut 312 006316 4?7 006 320 006 324 ISV , B5R Cron 0014%0 00ar3y? 004?737 o1 19¢ at 80, 080334 1INITIR ITE N TR rROARD [N"EAM ST nAND [P HINITIM LT MO (A COMT(LID) v 001332 105761 0034 %0 oC .07 Iyt 0142200 . €COCTN ”0o 001886 LRSS FOR START\P S "y v 17%% 20 007} XY ORIVE AL ORIVES ASSIGED ? CLh on '] O GAOR ° s00 0] CLA 01.CFLAG PuRF LG 10y ‘CONTRQR. C° FLAG 1CLEAR POMER FALL FLAG tCOLEAR START FLAG (70 )y @Pc° O ¢G40 OND v08 .00 | SRC 08 10:029 e 3333433 34 113242 p b pb by hhhd ftot Jri =2 St PRI T PN Na 1y FROLMaN ST o 78 or 1807 o 78y 60Q o ? ooy oue’3? LAY Tyt b > . i QP 0072 rain fRORen "o @0 72%4 10 P, ?‘\& oOR Y P4 It <.r «O€Cr F0D RIS TO Bk OROFURD 017708 ¢, ¢S u - le onne 10 ; Yaa Oc a !”:‘ o N N IvdDa. 16 P4 I v O [ SR RS ] 012704 oUt 711 OoU ] 608 6’1119 o162 0 721 001610 o127 o031} 01082 8. ([ I'N 00] 7ed 021119 001602 005723 00a13? 005019 0use’s? 000733 L)] 02es 26 05’604 057437 0N L2 R I7 haeag 1Y 0@ 1 INCRSTENT 10 \@n? TAm§ POSITION 108 nggnt ORI (mTLS v et o0 ADDRESS OF ‘Awan AL ORI WY oI At O @ avAlL Tam t ! 08 I ) 113 ORIV I "Awaly 100 35 ey [_] s+ COnTtIrall LOOTM NG "y 1A 1 L X ] on A0S OF TMG CwAll- BFTEN 'Talmp L 1A' g 0D OF ‘wAl?! Tamt ? i, %) N 119 ORIvl I @ ‘wALT Tamwt ? 00 35 ves o0, DhCng Ent "wal? TagL& ADUNE S . COnt et LOO® NG v AT D@ ORIVE‘S BLOOE ADONE 33 In BO '] Tveg N0, DL *UNT e TABA G |X' 19t 14 1) WACORE LS OF OROPOSD DR(vE Tam ¢ 1ML P INCUy AT PRg yint POSETION 08 7 ORg 10 OElY 10 OGCR FOR v ASSICED ONIVES ce €01203 (8%). OBk COmTED om | 227 () s e 0y oy .Y |1 " 1£8] 94, &8 o |o [€ 00772 10440} ¢ o d o00oas? 00ars? 1068401 WYy Lo & ‘AvallL: Tagwt TAGR§ ? A0O0NEsSSY Trog Tvog JWR Qna JR on OLEAR h@ “OROP ORLvE: TABLE ENTAY 1Covatss NG AEECTIVE Tammd 1SEL U My MORE DRIWES o F. N AN 1 CRGUBAN 00 Al R _ - N N BY¥F i & FE I omASS 017708 G0N0 =, m Wy om 39 T om'. N 0 O3 864 @r 1 00) Gr OU.IU (00004 1 om0 030108 ons %409 90008 to00y o0 ovg ox Y 10 s "' 19 On 'wp oud §0060) JOs6r] CVaSS O'mall ?2 On' ') 22 o SULA'E? j08S0F ' ‘D @708 Pe Ol " 0naid O (0GP o2 PO O 8 0nad Oi¢HaP OTM 7ed l’ Sunald Guc'?y 76 OuM’) Gm) 50 Coue 34 O 1? O, ‘u4 GOIOL0 '] 27 a6 0i¢%) G01%4 091810 94 PO O g 31 Oeed 0 oonedd 1Wi3? o 2 @00’3} 00 %ed Gomdd G100 v h. () O91949 1 ’ t ooy teog e & wy Man® | YT "y ') 2 1 e 'Y (] ] (a2 ) . Gl'd ’t wg reoe nres e O&'a il u e I N1380 L .’ ) 08 o , t oy 'y r, J PRAST (G FER NG MealiARLE OPTWES B 0 oL, g"l (‘ | 1Y O® [P mag oo gy N e O geg 'SR teog t oy o T g 1. RNt g g | T e DRteg OR? sy 09 s (o g gt uuucmn 9 30 001008 PORe ‘m' (99). ® * GNend See $ H 19 oNed Otn * "l » e B4 PN "wgy SPRL? ISR O~ (0000 O COa 8, . WAL YY) w 0 Soned . A0 X oon." 38 g. o) ;s Ued : ’..--.n .m'i’l Y 0"t O 0079 4] .50 :o«wl J* "N | alle reh Gt % 8 z”ou 1§ X T) » vV ¥y W . o"'! g 13 ) U TM ."‘! = .o MALIA WIORD rl-'lo .D CO: Al g . t--!vn [ 3. VIRl V] Npag LM% IR 1O | tam. § -.nm-n.—ulu: MOV AR OF Onie@ a*nmln.‘l ' ORI M83IE0 DO ICATOR wem'iey) r'¥YNY (0 e ] D) MwAR LS? |1 ag ofve 01 OF Ww O Tamg . 108 &°0 05.. mEn! Sval.am @ YARLE POINTEN WAO0R 700 oRg D€y e B "M ) & ' GREN G MATR y'm v Y T T 30 ¢, S eeS 1 BT CEbeg (¥, ‘ g St mm§ e el W S LAY S ¢ N 3 A '~ - T e . W@ T~ & 3 R _ FL Q- .2 ¢ Y rery "0 ot b @t 1 1 2 A < ‘e | "R L W - ) 4 W ) PX ] o o v T YT & vap ] s ., "¢ 1 L A ¢ 7 6 ral . H - & Y & ey 'Y G ey > tr m L] } 17 G MW 87 Gk e §e. O "y NN . 1 PV ¢) b7 Oom TN n [] - a9 & o°\ rn 6 © A ® SNAN g e 2?Y @I ) @& o} Un it on P8 On Phrn M ‘ O ap " L ¢« -~ T A AN Yy | TM~ TM9 [ 1] & <9 OGP x. PO OMT?) SmaTSY QroI0d ] Lo 0. i ~y o ,p ¢ o ., 0 M 1w 8 O 3 & .0 0 ? N O v ::wrou 4{ GO0 O, 0.. 9§ re o e Ui ‘ Y &+ & e 2 U 108 GoAYSY :‘wrw L TV 1, a3 G0Y0Rp ernonp & O 'ad a8 & 2 O OL' WOy % O 'utd 2 0 ‘L0 %3 O 'OPe Y e, 0. 2 GO0 O .3 @GO"IM & .¢:0 G T 1) Gue’l? S000s @PORD ST 007108 G0ATI? Q@G T? FRad 2°0¢@ 1% i 0SIAP) g sy a0 ) T o9 * e, L YD |1 & X (9 it By ag 78 8y 8y o . ooy et o o X1 o L 30 (a@)e &0 s g 'O g2 wmth em B AN s 1 - » Cn oA ~ 9 N 0 KNT ) *°y ~ My T ‘) T N, o SRRy wAltINE CUD A v W0 09 wl'w A YL I AR YIYYI 1 A . 7 EERE ¢ BP0 A @ 2 (8 P W) g W g N A L Paare A ¢ P 8 W M « By TMG ERY N W RLT o0 >t Vg o ! 08 YW YW 8 P w A0 N elLAAS AL $ P oMy =g PP ;moed 0S8 VYN NN Y IN'G v ueg P OB g e v Pt g @8 MM TION s vOwe 3§ ot W vam §F Ol iire « g ms! QG nur bl Oan @ [ OLE0D ORIVE TAML£ POTVTER shme GRlaY WAL D FOB PRI . Dy st [ ' e sa (02) 00 ogsting) ) watn(y) (1] ol » = AAOLs ADOD Pu B9 Panarg ‘'t8Y Srtn LEC'ELO P R Y tar ¢ o v g0 hgs 0IWg ? N "y J8 ¢ .G o0 GENERAT W@ Panwg 78Ag [ T . noa 300 QAR L. 3 Sed R (09) Sl o @8 .--.-m'-.u oeEns o8N [] it ORDED wAl! 3! o | Ggree ¥R im o arree iy 8 Bea wWatad ug 0.8 N\, SRS (Y P 000D S 009 ;: 00102 o -~y Q22000 @DINI0 40 -~y SN O ©0.¢ W O ) O ...10 1t o0 O i J B [ ,‘t-.'\"g; A R e N L _Ja4d Se A e S RIR " L K N WA WPT @& SN IR rbiof -9 n B : - & Sl e Tl St GUOUED % (8 N o Susad «d y” N - meorg £ %, | e o9 WG - M =4l ¢ y FIONT L "P'PRg , .~ " { r*. x € Gu-t? g yCoeewe R MUY | (® T @ z o 'ad 80 Ou'7 - e - 16 10 me ' GPIEA WNIES K [e§ P IA, wg W P & T g < A I - N & 2 U s *n 10 31 o« PRV PUrERD v W sa "1 ¢ Y $°WT P CTEDT L -y . G 5 S $y) 18 YN . > e, e P & g ] L Ty ZE " @FTIS N Y d ] 7RG wsl Wa? SEaANTIn, PARE TERG FOR NEAD O W1 W7 g BFCD e eB ik N SWMENEN . W 0 AL R G womn-n-, & M99 GUBTSY Y o 71 IV .Hl” GusT g & o O W 1m0 rremf) K GNP @9 'Y m:*g Qrered LT3N oors 40 TM 0078 OMrg " O a8 b4 V’ 1" "eunm N o9 o o ' 63 .10 :: W O.. ') e 912 ae m: e N ODHR oy - | ¥ 880, ® o .0 01,701 A0 8 O .. 00 s ous-1? SuuTOS QRO ..4 1) e, 9, 3 Oun.u 00, 196, "W Ly Y | FY VG T IR .w‘ dz g‘ S S et )y T opn )y -~ . 0 13 ‘o ye “0 « s [ _] (AT e anpet 99 P T I 4 » e Qe @ F e B - P oW Jal A .. A B __ N "] O G 1Ce 0 1 gy MY (L w? SvaRAAE? O kI (T w? QN g 't=y v A9 IN°F "G wn ' O G AL \IKATION ? sOmangm 7 ap? W N ‘aem!? B8 g P fagn (02 ). JIrergn? P osval 0 s 8ia, ¢t (Y] oy .0y o« .0ovay o TS D ounang 9 Wh. LY M\ A CAd g 18 Svel . 9% NG are ) GrveP) ®scw co mg iy S ) - Qe 9 9y J (oY )e ) N YPADe FOD fRrWEge? g fo'® go 0y »$L g ok bl oe "ne v ¥ A @y W WK ot wa,» 08) jee Sni? ) o G s q‘;so A 1% ¢ o=t ~y AL BN ) o ‘rewty o XY W ) et e ®"e CY oy -y o muz oY & L O Gussad O Y [ o 0000 0% O ", 14 WY 2 ’*fl’a“ @i :.nuu S P P o07100 F Wy wng G0 I &4 CSSIR oend o 1N o BlI _E) EY e nunu LT ¥V s am gaCH 1Y P fam§ Al AAE 08 we' gRte@ ADLw* i% e e gy F A Y { rouw ., tw@ oC I Pl | O ‘amp g gy e 0 I, SREF ¢S 0RO 008 60 | RC 08 90-2)0 S0 M wnl?t rG0 & COD " on77%8 o« " 80 012 %01 el4 or * 08 L o, 0 06", 00?7, %8 or ., % O 7 202 00 ? /48 L RAs) 00?272 0072% 007308 00?308 0073368 007316 0074.°? 007%.4 00712 0o071% 007%% 007%4 007346 11 1€ o1/100 10 Y %/ . or” e o” va g 0101688 Orary? OouaTy? orrcs? o172% 00837 ocre72 ori1tv% 631e% 12270 [%44444 127760 000001 00%73? 001300 060187 00080 001430 0000% 001680 000030 0014%4 000046 001432 OGie%4 ¢.16% oui1a1? 101017 10%20 0,087 103414 00ue)} pe { TSt Sri-Set vt~ PORIP PP L LM2 33 3 22 P T B B T BIP o @GP gdR< 83 ¢SI3 Y 2421320o MEBLIESEMH (/7P ) e 00 *Y TR NY, )ARUE O g ELY ORCED ¢ MM re 0 PO (®}). 1A rn ) |, BD) ) oC.3°°1Y et ¢ 1} gr-l: - Ay, 01,0000 (00) 9 01.0000%(00) b1 l,'.ot't 001016 005737 001413 005037 005737 001406 104401 004737 001314 001542 104401 057167 025020 057274 .MSGREP PC.STATPR 007466 000137 006340 0327177 6s: 022260 017726 000004 001314 171524 76; g QR ADres g sC MRAATE $TATI S PO PRIVE O NO WXLy ¢ OF (rewg sCLEAl g 0AD TM/ EPRNR DOICATMR 1M 9 Mowe ORI rayg TOD MY (ARiNY O s w 0B 1 & N B e IV g At h@g (D OF & Pasy COvwg FOR s Onivg ? s COveg® FOR i3 ORNIWVE ? 2R .:.!ui'h'(“lO O ORTEAINED BY 0 OF %MiIny ? D@ COP BT DATA MEAD ? IS IY " €O” Ov SEExS ? 007422 007430 007432 007436 007440 007444 007450 007452 007456 007462 007416 Ss: 001610 1%avE 0SIEnS.2(R0) ENDSFY .2 012601 01270% 00%72% 001376 0111493 004737 004737 46, ’ R 4 W 7 v QY 0P g QR O vl 1IN I N EOP O DATA AEAD ? 007374 031300 NTO M SR0PAL( B0 ), EMDC O S e 007400 L 2 007404 007406 007410 007412 10%0¢ e a’s“, Oee FIniED ] 02¢0%?7 0., 60137 10%402 004737 MONS 3y A0PAL 2" B0 ) ENDC TM2 119 17 [ 1] 00 IF vy S 108 ¥ 0 007330 0073% 00730 00732 007370 0071872 101009 0 AT 'T} Y) 100 IF w0 1Tnls 1S hg OO OF PASS JuR 7 V‘S ;/0R 17 WO SSEERS(RO),ENDSEN S 119 IT @ EOP OV SEEXS ? 1O IF O PC. 0P s TIS IS N END OF PASS (SP). .m GAVAIL . AS IRESTORE Tv€ OROEN TABLE INDEX sADDRESS OF Tr@ " AVALL' TAW E ("S). (1] PC.CrPRES PC.RELOWF (R1),-(RS) 1IS IV € ENO OF '€ "AVAIL: TAGLE ? 108 IF N0 MOVE Tv€ DPE INTO TE 'AVAIL' TABLE 1ICOMPRESS € OROER QUE IRESTORE WFFER 0S5u02 , BSuR 8 1 TYPE PERFORMANCE SUFMPWRY 1OR IF NOT STATIN [ 1] 1 TIME TO TYPE THE PERFORMANCE SUMMARY ? 18R IF NOT STATIN 1CLEAR 8 18R , TRMREP sTYPE “/\/\/N\/\/\...ETC’ MAIN sCONTINUE THE | OOP ASMLST THE INDICATOR 1ANY DRIVES ASSIGNED ? IF NO sTYPE */\/\/\/\/-PERFORMANCE REPORT -\/\/\/\/\' sTYPE THE SUMMARY . » a . O N IR B eT ee CZRJ0BO RPO7 PERF EXER MACRO V04.00 1-DEC-83 10:32:28 PAGE 22 MAIN PROGRAM é 111037 001320 PROCES: MOVB 8 007502 9 007504 10 007512 100447 032760 001410 100000 000166 12 007522 13 007524 ig 007532 001037 032760 001033 040000 000166 040000 000200 - & 7 007476 005760 000016 11 007514 032760 157 19 004737 19 007540 20 007544 21 007552 004737 032777 001022 23 007560 001415 22 007554 24 007562 25 007570 26 007572 27 007576 28 007602 29 007606 30 007610 31 007614 g% 007620. 014010 014110 000002 s Wy S i . oA s e — (R0),DRVNO 1DRIVE NUMBER FOR ANY ERROR MESSAGES $TATUSCRO) 1SEE_IF DRIVER SIGNALED AN ERROR BMI 817 BEQ ERPROC $1BR IF ERROR GBIYlS.ORPCSI(RO) $SEE IF °SC* 18 38R IF NOT SET BNE BIT BNE ERPROC $1BR IF SETY OBITIA.CRPDS(RO) 1SEE IF *ERR® ERPROC sBR IF SET 3291 005737 001462 023737 002413 001464 013746 062716 023726 1¢: OBITIG.SRPCSI(RO) 001462 001464 0043737 000207 014174 PC,CKERR TST CHMPTIM SET $SEE IF *TRE* SET SET 2$: 34: " PC,CKBUS €SWO1,8SWR 38 $CHECK ERROR BITS - $CHECK BUS ADDRESS & WORD COUNT s INHIBIT DATA COMPARE (SWO1=1) ? 3BR IF YES 1IS COMPARE DATA ALWAYS ON ? BEQ 2 Hov ADD cHP CHPTIM, -(SP) 21,(SP) CMPTIM+2,(SP)¢ $GET CURRENT INTERVAL TIME AND :ADD ONE MINUTE ;STILL COMPARING DATA ? PC.CMPAR PC sNO 'OCK’ sRETURN CHMP BLTY 001462 000001 001464 002402 005037 JSR JSR BIT BNE 171402 gg R SEQ 0077 s1NO ERRORS DETECTED IN REGISTERS, 00 SOME CHECKING ANYWAY 18 007534 LR d . sPROCESS THE COMMAND TERMINATION 3 007472 8LTY CLR JSR RTS $B8R IF YES CHMPTIM«2,CHPTIM ;TIME TO COMPARE DATA ? 34 s8R IF NO 2% CHMPTIM.2 sBR IF YES sCLEAR INTERVAL TIMER FOR NEXT COMPARE ERROR, BUT COMPARE DATA ANYWAY sCOMMAND TERMINATED WITH AN ERROR - PROCESS THE ERROR 36 007622 032760 000200 2; 007632 000137 010206 44 007630 001402 000016 ERPROC: BIT 8EQ JMP 28 S0 S1 S2 S3 54 S5 56 S7 58 59 60 61 62 63 N6 L - 481707, $TATUSCRO) ERPRC1 OONE * e 032760 001025 032760 001041 032760 001044 032760 001066 032760 001101 032760 001115 000207 s am o s e o 010000 000016 004000 000016 002000 000016 001000 000016 040002 000016 000004 000016 Ay S ERPRC1: 8IT BNE BIT BNE B8IT BNE 8IT BNE BIT BNE BIT BNE RTS ORDER DIDN'T COMPLETE NORMALLY sPROCESS ERROR WITH °*DONE*' sPROCESS ORDER COMPLETION WITH ‘ERROR' 007636 007636 007644 007646 007654 007656 007664 007666 007674 007676 007704 007706 007714 007716 3DONE BIT SET ? s8R IF NO, BIT SET & 'DONE’ NOT SET 9BIT12, $TATUSCRO) -3SEE IF DRIVE WAS UNSRKFE PUNSAF $BR IF YES OBITll.STATUS(RO) sPARITY ERROR OCCURRED UCPAR R IF IT DID OBITIO STATUS(RO) i{FATAL PARITY ERROR? PAR 3BR IF THERE IS ONE OBITO9 STATUS(RO) s TIMEOUT? SWTIM :BR YES OBIT14'BIT01.$TATUS(RO) sDRIVE WENT OFFLINE ? OFLIN 1BR IF IT DID 4BIT2, $TATUS(RO) tPORT REQUEST TIME OUT ? PRTIM ;B8R IF IT DID PC $:ERROR. RETURN . - CIRIDBY RPN PERY LAN SV3T MAIN PROGRAM 007720 007724 007730 00~ 734 007740 007744 007750 007754 tXER MACRD V04,00 004737 104414 004737 004737 004737 004737 004737 000137 1 OEC AR 022274 051435 022342 022776 023446 026202 024136 031362 10: 8. :08 Pat % sORIVE 4 PERSISTENTLY PUNSAF ; JSR v D1<Pi JSR JSR JSR JSR JSR JHe 5€GQ 0C78 INLAFE PC.LINEL tPRINT LINE 1 OF ERROR MESSAGE LML tPERSISTENT DEVICE UNSAFE MESSAGE PC.LINES PC.LINEA PC,INCTOT 1 INCREMENT PC.UINE2 sPRINT sPRINT sPRINT LINE LINE LINE sPRINT PC.LINE? OROP LINE 2 OF 3 OF & OF ERROR MESSAGE ERROR MESSAGE THE ERROR MESSAGE TOTAL ERROR COUNT 7 OF ;OR0P THE DRIVE ERROR MESSAGE tUNCORRECTABLE MASSBUS PARITY ERROR OCCURRED 007760 007764 007770 007774 104401 104401 104401 000406 UCPAR: 001203 001203 051337 BR :'FATAL" 28 30 31 32 33 007776 010002 010006 104401 104401 104401 001203 001203 051402 FALPAR: 010012 010016 010022 104401 104401 013746 057676 056661 001320 FALPR]: 010026 010030 010031 010032 010036 010044 010046 010050 104403 002 000 004737 032777 001401 000000 000207 026202 100000 1¢: sCR-LF :CR-LF : UNCORRECTABLE PARITY ERROR’' 1FINISH PROCESSING THE ERROR « $CRLF + $CRLF LEM11 TYPE TYPE MOV +MSGON . DRVMSG DRVNQ, -(SP) s TYPE :TYPE 2 0 PC.INCTOTY ssTYPE HALY RTS MESSAGE ERROR OCCURRED TYPE TYPE TYPE .BYTE .BYTE JSR B8IT 8EQ 171110 « SCRLF $CRLF .EM10 FALPR1 MASSBUS PARITY TYPOS OSH1S5,aSWR 1 PC sCR-LF ;CR-LF ;'FATAL PARITY ERROR* MESSAGE 'ON’ DRIVE' : s SAVE DRVYNO FOR TYPEOUT ;s : TYPE ORIVE NUMBER :3GO TYPE--OCTAL ASCII 2 DIGIT(S) s s SUPPRESS LEADING ZEROS ;s INCREMENT TOTAL ERROR COUNT ;HALT ON ERROR :BR IF NOT ? ;ERROR HALT : SOF TWARE TIMEOUT OCCURRED 35 010052 37 010056 38 010062 39 010066 40 010072 41 010076 010102 43 010106 TYPE TYPE TYPE 004737 104414 004737 004737 004737 004737 004737 000207 022274 051466 022342 022776 023446 026202 024136 SWTIM: JSR DISPLY JSR JSR JSR JSR JSR RIS PC.LINEZ PC.LINE3 PC.LINES sPRINT tPRINT 1PRINT +PRINT tPRINT PC,INCTOT PC.LINE? PC tPRINT LINE sRETURN PC.LINEL JEM13 LINE 1 OF ERROR MESSAGE THE TIME OUT MESSAGE LINE 2 OF ERROR MESSAGE LINE 3 OF ERROR MESSAGE LINE 4 OF ERROR MESSAGE s INCREMENT TOTAL ERROR COUNT 7 OF ERROR MESSAGE CIRUOBY APCTM PR o po ps 0o 08 po B0 BN AN D OB 2 Abw, e AN FROGRATM ¢ XER MACRD vO4,00 1 JEC A% 10:5.:0°8 PAK 4 #0Q 0079 sORIVE WENT OFFL INE 010110 Cio114 ¢10120 0i0124 €101%0 010134 010140 010144 004737 104414 004737 004737 004737 004737 004787 000137 JFLIN: 022274 051340 022342 022776 023446 026202 0241% 031362 JOR O1SP v JSR JSR JSR JSR JSR Ng PC.LINtL LAMl4 PC.LINE? PC,LINES PC.LINES PC,INCTOT DROP 1PRINT LINE 1 OF THE ERROR MESSAGE PRINT LINE 2 OF tPRINT LINE 3 OF THE ERROR MESSALE YHE ERROR MESSAGE 1PRINT OFFLINE tPRINT LINE 4 MESSAGE OF THE ERROR MESSAGE : INCREMENT TOTAL ERROR COUNT ;PRINT LINE 7 OF THE ERROR MESSAGE ;OROP THE DRIVE ;PORT REQUEST TIMEOUT ERROR 010150 010154 010160 010164 010170 ¢10174 010200 010204 004737 104414 004737 004737 004737 004737 004737 000207 022274 051563 022342 022776 PRTIM: 023446 026202 024136 JSR DISPLY JSR JSR JSR JSR JSR RTS PC.LINEL LEM1S PC.LINE2 PC.LINES PC.LINEA PC.INCTOTY PC.LINE? PC sTYPE ;PRINT LINE 1 OF THE ERROR MESSAGE PORT TIME OUT MESSAGE sTYPE sTYPE LINE 3 OF LINE 4 OF THE THE ERROR MESSAGE ERROR MESSAGE sTYPE LINE OF THE ERROR MESSAGE 'OUNE‘ BIT SET sTYPE LINE 2 OF s INCREMENT TOTAL ERROR COUNT ;RETURN sPROCESS ORDER COMPLETION WITH "ERROR‘ 010206 010210 010216 010220 000240 032760 001402 000137 010224 010232 010234 032760 001402 000137 010240 010246 010250 032760 001402 000137 000002 010254 010262 010264 032760 001402 000137 040000 010270 010276 010300 032760 001002 000137 040000 010304 010312 010314 032760 001402 000137 000400 010320 010326 010330 032760 001402 000137 000020 010334 010342 010344 001402 000137 032760 000200 000030 000016 DONE : 1s: 013402 040000 000202 2%: 817 8EQ JP 000200 3s: BIY BEQ JHP 013402 013474 000176 43 011242 817 8EQ JMP & 7 OBIYOCSBIYOS.SYAYUS(RO)N6¥NSAFE OCCURRED 28 UNSAF i8R IF sREPORT UNSAFE ;SEE IF "UNS' 0BIT14,SRPERLI(RO) 3 UNSAF iBR IF NO sREPORT UNSAFE BIT1,8RPDS(RO) ;SEE EWNERR ;REPORTY EARLY WARNING 48 :8R IF IF 'EWN’ o81T714, SRPCS2(RO) St WCKER s IS "WCE' 1BRANCH IF NOT 1WRITE SET SET 2?2 CHECK ERROR #MBIT14,8RPCSI(RO) ;CHECK ' TRE" St BIT BNE JMP 000202 64: 8IY B8EQ JHP HCRCER 8IT B8EQ JMP oBIT04, $RPERL(RO) 3 'FMT: SET? 8 1BR IF NOT SETY CKFMTY ;CHECK FORMAT ERROR BIY BEQ JMP 081707, $RPER1(RO) 9 tBR 011630 000202 012022 000202 7¢: 64 TRFER $1BR IF SET 1PROCESS ‘' TRE' #BIT08, $RPERI(RO) 7¢ CKHCE ;B8R IF 3 'HCRC NOT 1PROCESS SET? ‘' HCRC' 1'HCE' IF NOT SET ;CHECK 'HCE' SET SET NOT 000166 013146 012212 NOP 81T BEQ JMP THE ERROR MESSAGE SET? ERROR CIRUCRO RPCTM PLAT MAIN FROGRAM ¢ XER “ACRY V04,00 ¢S 010850 o C10856 t; 010360 082760 001402 000137 69 ¢ “1 7e 1 C10364 010872 010378 032760 001402 000010 000137 012640 010400 032760 000040 ;5 0106410 000137 013304 7 010414 78 010422 ;3 010424 032760 001402 000137 002000 81 010430 < 010436 gz 010440 032760 001402 000137 004000 85 86 87 88 gg 010444 010452 010454 010462 010464 032760 001405 032760 001401 000207 91 010466 92 010474 95 010502 96 010506 g; 010510 ] "4 010406 6 32 010476 99 100 101 102 %82 010514 010522 010524 010532 00140¢ 020000 1 OEC A% 10: % 'R PAH D4 ] A£Q0 0000 00020c 9 Bl B8ty NaJ ®BIT18,8RPERI(RO) 1'OPI* 108 1BR IF NOT SET OPIER IREPORT ' OPI° 00020 10%: BIY 8eQ SP oBITS, 4RPERL(RO) ' PAR: GET? 118 $1BR IF NOT SET PARER 1REPORT 'PAR’ 000202 11%: 8117 MBITS, IRPERI(RO) JMP ACFER 012506 8£Q 128 1BR IF tREPORT SET? 3'WCF' NOT SET? SET ' wCF"’ 000202 12%: BIY 8tQ JMP #MIT10,3RPERLI(RO) s IAE" SET? 138 1BR IF NOT SET IALER ;REPORT ' IAE" 000202 13%: BI7 BEQ JHP BIT11,$RPERI(RO) s 'WLE' 144 ;B8R IF NOT SET WL EER tREPORT 'WLF’ 001000 000202 14%: 002000 000200 8IT B8EQ BIv 8EQ RTS 08179, $RPER1(RO) ;' AOE' SET? 15¢ 1BR IF NOT SET oB8IT10,$RPDS(RO) ;'LBY SET? 15 :BR IF NOT SET PC ;'AQOE' &€ 'LBY' SET, EXIT 032760 001402 010000 000202 15%: 000137 012616 81y 8EQ 0BIT12,SRPERI(RO) 164 $8R 005760 100002 000137 000202 032760 001006 032760 001004 040000 000230 100000 000230 012732 012764 000137 011770 105 010540 106 010544 000137 000207 013246 1SEE NOT ‘DTE' SETY DTEER sREPORT 16%: 1S7 8PL JHP $RPER1(RO) 17¢ DCKER sSEE IF 'DCH’ SET :BR IF NOT 1PROCESS OCk’ 17%: BIY BNE 817 081714, SRPER3(RO) 184 ;BRANCH 08IT15, sRPER3(RO) B8NE JHP 19 DRVER $BRANCH IF <O tREPORT ERROR JMP RTS SKIER PC tREPORT SKI ERROR sEXIT FROM ERROR ANALYSIS 18%: 19¢: ‘DTE’' IF JMP 010546 010534 IF SET? ERROR 1! SKI' SET IF SKI, OCvL ;BAD SPOT ? SET ROUT, CTRUMBY APTM PERF 4O N al, e MAIN PROGRAM ¢ YER MACRD vO4.00 1 010546 010552 0047387 000207 032760 010604 000451 010606 14 010614 010616 010622 010624 010630 010632 010636 010642 010644 010650 010654 010660 010664 010672 010676 010700 010704 026027 004737 104414 022274 053360 004737 104414 004737 004737 012737 004737 000403 004737 000402 022274 053220 022342 026202 000003 017120 010706 010712 010716 004737 004737 000207 024104 024136 010574 010600 004737 104414 101018 005760 001410 005760 001033 DCxER: 016420 001411 022760 001024 WO OB 10:32:2R8 PAGF 25 5EQ 0681 sPROCFSS DATA ('DCx' ) CHECK ERROR 010554 010562 010564 010572 o s DEC 8% 000100 000202 010040 000232 010040 004737 104414 18: 000232 811 B8EQ ®ECH, SRPERLI(RO) 18 ;ECH ERROR SET s8R IF NO ST 3% 001324 024076 4% St: 64: 78: BNE JSR DISPLY B8R JSR OISPLY JSR JSR MOV JSR B8R JSR BR JSR JSR RTS VALUES IN JSR DISPLY IS, 810040, SRPEC1(RO) 28 PC.LINEY ;ensz DON'T REPORT IT 7 sOTHERWISE RPEC1+10040 sREPORT ECC LOGICAL FAILURE sFIRST LINE OF ERROR MESSAGE tECH ERROR - ECC UNCORRECTABLE $ IF s IS POSITION COUNT OVER MAXIMUM ? 28 :BR 24 $RPEC2(RO) 64 PC.LINEL 3Em7 $ PC.LINEL 18R IF YES sVALUE IN PATTERN REGISTER ? 1BR IF YES 1TYPE FIRST LINE OF ERROR MESSAGE LEMAS sTYPE SRPECL1(RO) TS7 28: sIT $SRPEC1(RO), 10040 cp B8-I B8EQ 000234 022274 051640 1SEE IF ERROR AT A BAD SPOT PC c s THE 010720 010724 010730 PC.PO0T(X 8NE JSR DISPLY BR 022274 053536 000232 USSR RTS YES ;POSITION COUNT O ? sTYPE "ECC LOGIC 1 TYPE FIRST LINE ERROR' OF ERROR MESSAGE 'ECC LOGIC ERROR' PC.LINE2 PC.INCTOT #3 . RETRY PC, $RETRY sTYPE LINE 2 OF ERROR MESSAGE : INCREMENT TOTAL ERROR COUNT tRETRY COUNT tRETRY THE ORDER 48 sRETRY PC.LINEGC St tPRINT ‘CORRECTED ON N RETRY(S)® tFINISH THE ERROR REPORT PC.LINESD PC.LINE7 PC tPRINT 'UNCORRECTABLE ;TYPE LINE 7 OF ERROR :RETURN THE ECC REGISTERS PC.LINEL JEM21 ARE WAS NOT CORRECY, tPRINT SUCCESSFWUL REPORT AFTER N RETRY(S)' MESSAGE 'DOCK‘ ERROR LINE 1 OF ERROR MESSAGE tDATA CHECK ERROR CIRUORD APO" PERF P AD n",e FROGRAM OB AN ¢10°% 010734 010740 C10744 010750 010756 010764 010766 0310774 010776 011002 011004 011010 011012 011020 011024 011030 o11032 011034 011042 011044 011050 011054 011060 011066 011070 011076 011100 011104 011112 0l1114 011120 011124 txER MACRD vO4.00 004 737 004787 0047%7 004787 0127%7 032760 001012 032760 001403 004737 000403 004737 000460 0127837 004787 005760 001775 100057 032760 001006 004737 104414 000137 033760 001412 032760 001421 105237 123737 022342 022776 023446 016436 110100 010000 000100 1 DEC BT DCHER]; 001322 000202 000202 011202 024056 000012 1s: 001324 28: BIY BNE BIT 8€0Q JOHR BR JSR B8R MOV 010100 000202 Ss: 081715981712!81706.'1‘9( 011140 o11142 011146 011152 011156 011162 004737 004737 004737 004737 000407 024056 024014 026062 015576 9¢: 011164 011170 004737 000753 024104 o11172 011176 011202 011210 011214 011220 011022 011226 004737 004737 012737 004737 105737 100406 004737 104414 024070 026062 000001 014200 001353 8s: 024136 016436 JSR JSR JSR B8R 1LOAD ERROR MASK 1 IS IT "DTE: ? ECw 2 ;18R IF 1 18R IF NO PC.LINES sPRINT ‘SECTOR IS ECC CORRECTABLE" PC.GOORIV 1RETRY 4 1BR 0BIT06,8RPERLI(RO) ;E.l” 104 010. ,RETRY YES s IS IT 1COMPARE BAD DATA sFINISH THE ERROR REPORT 1RETRY COUNT 1 TEST FOR DONE 1BR IF NOT DONE IF NOT ERAROR SEE IF ORDER TERMINIATED NORMALL Y St 18R IF NOT HASK SRPERL(RO) sLOOK AT CURRENT ERROR s INCREMENT TOTAL ERROR COUNT 1'OIFFERENT ERROR DURING RETRY’ 1SEE WHICH ERROR 1BR IF NEITHER SET STILL RE"IV.; s INCREMENT RETRY COUNT 1O0ONE ? PC.LINES PC. INCHRO PC.INCTOT PC.LINE? 1PRINY LINE 8 OF ERROR MESSAGE 15¢ stCLEAN UP AND RETURN PC,PRTBAD SET ? 18R IF NOT s INCREMENT 'HMARD’' ERROR COUNT s INCREMENT TOTAL ERROR COUNT iPRINT LINE 7 OF ERROR MESSAGE tPRINT THE 1PRINT *SECTOR IS ECC CORRECTABLE® BAD SECTOR JSR JSR JSR JSR B8R PC.LINEG PC.LINESB PC . INCSOF PC.ECC 139 s INCREMENT *'SOFT' ERROR COUNT 1CORRECT THE ERROR USING ECC AND CHECK IV 1COMPARE THE BUFFER 118: JSR B8R PC.LINE6D 1PRINT a8t s INCREMENT ERROR COUNT 12¢: JSR JSR PC.LINEGA sPRINT 'SECTOR READ CORRECTLY AFTER N RETRY(S)’ 1 INCREMENT ' SOFT*' ERROR COUNT 1SET PROCESSING ‘'OCKER' INDICATOR 1COMPARE THE BUFFER 1ERROR IN COMPARE ? 1BRANCH IF ERROR s INCREMENT TOTAL ERROR COUNT 10¢: 001352 2 OF ERROR MESSAGE 3 OF ERROR MESSAGE & OF ERROR ME SSAGE SECTOR 1O BE PRINTED 29 RETRY ,RETRY .1 3¢ 7¢: 026202 IPRINT LINE 1PRINT LINE 1PRINT LINE sSEE [F BAD ;18R IF OIFVERENT ERRM 001712'0176 ONPERI(RO) 1'ECH’ OR 'DTE 0013235 024354 026106 30 0082 #MBIT12,RPERLI(RO) PC.INCTOT L INSM ERPRC1 000202 026202 056117 PC. PRTBAD OBIT7,0TATUS(RO) 000016 001322 001325 PC.LINES A PC.LINE 129 026202 055650 007636 001324 PC.tL IN $TATUS(RO) 43 001342 004737 004737 004737 004737 004737 000436 011130 011134 JSk JSR JSR JSR MoV $s: 020240 000016 000200 10:% :°R PA4 13¢: MOV JSR 15718 8Ml1 JSR OISPLY PC ., INCSOF #1,FRSTER PC.CMPARD FRSTER.1 15¢ PC,INCTOT +LINSG tPRINT LINE 58 OF THE ERROR MESSAGE *UNCORRECTABLE 1'DATA COMPARE OK' AFTER N RETRY(S)’ MESSAGE > < Ba 2 APO7? My s 011282 s 011236 ¢ €A fCno N 008787 000260 ‘% 011260 000207 v04 .00 O2e1%e 1 ofC 0% 68: 158; 10:82:70 Pas M-8 10 - G7 520 0083 A scapar SUDN LBE ! & AN MRSSACE als S oA NN two@ o M OPC- P D7 2O 000 S ING PITE Cog Cw ¢BB0R FBOCE 011260 011264 011270 0112764 011%00 011304 011310 o11%16 011822 008737 00a 73?7 012737 004737 000403 (el 051764 001%22 022342 0r21 7% 00 %486 02353 017120 001 32¢ 008737 0005132 02e07¢ o113%2 01133 004737 000327 024104 011340 0113%46 0119352 012737 004 7s? 012797 032760 0010083 012737 000012 Occ274 04167} 001324 0323572 011300 032760 001410 0127%? 000100 033%% 010040 011%00 0002 32 01142¢ 011434 011436 0l1442 011444 011430 011452 011460 Ol1l482 ol11470 026027 101012 000232 010040 011476 011%00 011502 011506 011512 011516 104414 004737 004737 004737 004737 011522 011526 011532 004737 005760 00177S 01137 011604 011406 o11416 011422 0lle24 022760 001017 a8 011%00 000176 005760 001407 005760 001007 012737 000232 033360 011300 012787 012737 033220 000003 011500 001324 000234 022342 S6: 64 76 8 022776 023536 020240 000016 9: 108: aER1 (90 ) JSFE IF OCT sET M SO " pCLIE2 PCIL.e S oC LI 1CLEAR EPOOR MASK AN R oC.i0¢ TRY P TAY | IN]T JRETRY g OPENATION 29 . a1 €08 022276 011%2¢ 0113%0 011360 011%6 oL11370 AN By §¥§§§§ §383x=2a2Y A2z R Cl112%8 003 7¢0 1004 34 008 737 108414 003037 o0a?73? 008737 0oary? it it 011268 C1172%0 - 011242 - sy O +@ VB 0 MA(R) vO8 . 0 | JN(C 83 10-3. -0 Pars o Cro ey FRHAN 100 7 1T 18 JPRINT LINE | OF EROOR W SSAGE PR INT WCE & OCX NOT SE1 1SRINT LINE @ OF ERMOR PESSAGE (PRINT LINE § OF ER@OR MESSAGE PRINT LINE @ OF ERMOR WESSACE o LIS <RI 1PRINT LINE S OF EMMOR M SSACE LINCREMENT TOTAL EARGR COUNT 1 1RETRY WSUCESSF AL ,C.L IS ,PRINT - CORMECTED ON M RETRY(S)* »C.L DECD JPRINT - COMMECTARLE AFTER N AETRV(S)" oC.LINEL €r22.08 010 .mETAY LNETRY LIWIT 3 on'1r 154 156 +F INISM PROCESSING Tv@ EARGR 26 INISH PROCESSING Tr EAROR 1PRINT LIME 1 OF EAROR WESSAGE ASSLOE ThAT EFQ2 WILL OF PRINTED oa1114, sarCs2(m0d 401D ‘wew: AL$O SET ? Ens7. 00 17 010 WESSAGE FOR ‘OOt MO ‘WO NOT DURING WRITE OECK 0E M. IPERL(RO) (MITE OSCx Eanom wITM . €Ow 27 7 'Y P 1ORANOM IF DT REPORT ‘ECH ERMOR oxoooo.mcu-d OTHEMIISE MPEC] 10040 3 aePORT €CC LOGICAL FALLURE SAPECL(RO). 010080 LIS POSITION COUNT OVER MAXIMU ? 0 IF vEs IRPECI(RO) 1POSITION COMNT O ? s s 108 IF [ 1] senar. 00 tOR IF vES 0€ras .00 03.RETRY LJELSE. MEPORT "RETRY LINIT MRPEC2(NO) [] 0 sVALUE YES In PATTERAN REGISTER ? {ELSE, REPORT TrE ECC LOGIC FAILURE THE ECC LOGIC FAILURE 1 YYPE W EMROR MESSAGE 1MESSAGE ADORESS GOES HERE oC.LINE2 PC.LINES sPRINT LINE 2 OF ERROA MESSAGE PRINT LINE 3 OF ERROAR MESSAGE 104 100 IF NOT PC.LINES PC.LINES PC.GOORTY $TATUS(RO) IPRINT LINE & OF ERROR MESSACE \PRINT LINE S OF ERROR MESSAGE ,RETRY THE ORDER LOROER ¥ INISHED ? CIRAIB0 BPO7 S NA 1Y SRgLAAN 0 011598 100803 e; 011542 ¢} oiites ©0S787 eveess eaee’e e 011930 103237 @013 o1 o1 011598 305237 €013 O oine Yia e eun &N 1%, 60 01i%4 0L 760 100000 OORI0Q ® ¢% 011572 0©0160} T oIIN eoerI? :} 011610 ©00GP ;2 011976 aseme 63 011612 008737 @2e108 08 011636 008787 OMNIO2 63 011622 08737 02e138 OGOONOY e 196, e 194, 0 008 /00 TM.y P ¢AROR O e 1 PR mrev. S0 Binis.emeine’”, Toce: =7 : o To el e et syey Lyt ecipe SRINT LDE 0 - 196 it .DCSO e 58 yiry . IO I 'Y e? fate s [NCRETENT ARV COSW 00 I 07 . o SRINT - COMECTED O b AR TV(S) o IRIPe (ARG PROCE $SING 120 ] GRUEN s INCREPERT 8E TRy COun? 2 :O 9O TN o oiear 2037 essess 6% 013830 ' ¢ R MIORD 199.00 § SIC 08 30:82:78 PucE 27 | - QUUTEARNS CAROR LONT g AR Oy -OFTERINT SARED {COMT AS A SOF? EARCR ,COMNT A% A HARD ERROR s InCgrgnt 10T, EamOn COE ¥ Inive e (ARG "G SSAGE oM T\ A 4 o C7P S GO T REF ¢P TNONY 008 M | KL 08 - - Pugs N ¢ £R0yRIS S§Vioyanfanusnan ;b ¥ Ne I PRGN S 33 3 i oun A | 'Y 8 - »e | B Wat % 9 ¢, 8 :‘ L V.0 ] ¢i7110 9 @0:.1,2 4N IVRY,.] ?‘ ©1,. 1% 3 Oisi 08 ©i.100 01,108 0.1 015100 O1.108 17168 LIVIRY] Mnn o) s »09 :‘ 1. ./u8 L TV PRV - 1K 19 G6;. 108 Q15110 (4¢ 61,109 $7 - 18 ¢1.078 e g L4’ ¢ 8 &;.* "% 1 aks i o1 ronp 41 e 1% GOl M THURN Qi/"' >0 » ‘i;/' ‘ b| et I . '!"’ W ®¢;.- % 08 30- 1000 N2 z oy PP B1 A - (g L J G0 L] G4EF L @GP E IR L LY rihe - (" & RO S sl > (% rie @0 - GNEN Mo 0 ) b 1 S [4 ? e 19 LI % 5 ¢ ¢ L 0« G0 MM GENAED % ) o6 'Y e 1,7 - o e 7 317 o317 COURNY e w - = 10 ¢ e« 2 1t ‘9 “~h G t? O 8 ¢..."8 1My 10 017%0 @8 7S? Geeald S0a'i? . ey 1K M) | 50008 “w 4. 19 ®¢ ou8 08 90 . " 0i. %0 Ouce 91.'%0 :x.t 30, y o aree ‘n A | o L 4 9, : me ooary? ' IV 4 08 T8? @.% .~ 0129 012008 012730 G073V vl 937100 012619 012618 OGua)? G0a3? Qe @pe} 017420 G04737 @10 1V 012737 010084 Onolo‘ ? 012600 ©00008 P 017424 G037 40 0L2e32 p o4 012634 €% 01,480 64 01,668 47 O1,0% Q8 01,6% 6% 0i;e00 S0 O1/604 S1 012470 Os0NO? &x.up @eilde . (TN L 8 ® 1w e YL (99 % ) - 00} Al Cnag® 1 "m' 9 '. . - 7 ’ ) GV Al g g . -, e S .l -l-.“” x; 5 S xie W .Qo" ‘13 % R ;N e « 90 -‘ e N \% .o- wt \Ing ! m M8 LB A A 1 ~Oy R EANT Y | luun o MR the o COvnt il s wet oW Jul " 1) . NSV . GOI1LPP = e .t".&“fli- 0 S veolt G0ATIY 0S84 Oue’3? 008737 012¢37 O00a’3? 004737 004737 OuaTI? z; 012508 000207 004737 O2r2% O0°%T) FOER, Mot ol Tl I, N V.00, gandd COMME ) onre s LRV ERE .71 SR JR 1o u? oh:'l' \ba Sl oo int WCORRECTARLE o NEE3 e C'tD On p RETOVIY Y & CanoR M y3ac4 AF 7O N it LDE ? @ LAnGR #gIsAG ] ) 8 OIIR Y ©..234Q SN 0Oe'%8 ~Ov 0O.%1% JH5A O, 30X 0. 3768 AL TMV(Y )’ oML ! A DEy .. he2 JHR ..Da i J5R A I ©O.¢.202 JSR 010710 JoR Ocas JOA arg ! B * L - oy - i U Sgye n:n ; - o v JAOPGRT POISIRLE FOLITIONING ¢RROR $2 012474 $3 01,500 J . Oi. %0 OGua’s? GIrNN 012°%0 ©G0a?8? @.1'eg %o m‘.mvm .m~v :‘wno Goonsd OGO N Y W 01 it 0 0i.%i10 Ouwa’s? @92r%N oz.':o mflll O'm V-0 Sss OwgEs e 1y oL se0 Gucis? Oitew 4 ANN Qane Cpvun ( «CE ) g » nun a9 GBS ¢ ¢ % T ($9)e . CrIN SA Il I 100 AL N +REPCRT ‘QPLl° CRROR 14 §) N odd LMJ - N 1Pe aMN ETECTED > Wu. Nl LI 100t L Ing o NARY 7| (V] . . CAROR QO G~ & My . .ALl OF e A g3l 0,0UP STk INtQ Crim PRInt LI SA OF Tr@ (PAOR " 134CE st g nt NISOLIT! mind, COUNI sInCitrgn? 1078, E8w A COUNT puin! LING 74 @ Lm0 Mg SSAGE e (A IDRATE Ealt ) ] TN CUED MNONY v0 13343 PERF P FEREFL4 34 £33 3443 F4 ¢ | i 23 M/ one Y o, 299 7y Y ous B | L 0% 0 WM PaE P Re, o % Fe oo ’y? Al A e o . . . I rOr OV 08 0% *b¢ yo 008 737 012737 012737 0w 00e 737 000809 00e 737 008 787 000207 Oue 737 008 73?7 000207 APEY 400 1] o 3/ L34 L _ 24 )/ ) . PoN ey e M N V.. - W S o» ¥ . oty J8 JR 171} ATGO C IR, 0 , g oy 0 ®Q 008® T I uam AT 9 WG 198 - M IF LT TS PRt |\ "6 | F IWOR § 55408 e W s PT o®% “w? | [ od i % ] WP N LI QO O oo - -ap g mm g e s W1t QPL° 88 B .F° Ja'a ¢AR N K . NA e L. AN 1w et 1y a (9WOR COUNT 000 B e 2 Lolbad Uind 08 “EY 108 Tag ORre® £ 4 RO Pyur. AWl ADG? PO Nt ( mag, 1D My WA YY) .:' 1:' L 7 OF tamul TM .88 ATded e ut . ADAa? LY N ORRECTAM ¢ AFTYR N AR TAV(Y )’ PO Nt LInd AN 1 8 »0 7 OF ImegR M, iag Lot ‘O CAmOR 008737 00207 ouvary? 104418 000137 016420 OTEER, J"‘ ~SPoTOR 02074 Y. '91 01073%0 OCcxe Ry 1370 IV CERROR AY 0AD YO! e Tulm I7 1T 19 PRINT LINE | OF CAROR Mg SSAGE 1°018° towl W INISe PROCISIING D 'OTL (AROR CIR0BO RSO? PENF EXER MACRO v04.00 1-0EC-83 10:52:28 PAGE 31 N/ 3FQ 0090 V- Y. BT NV § Y71 VY MAIN PROGRAM 1REPORT ‘PAR: 012640 012644 012650 012654 012660 012664 012670 012€76 012704 012710 012712 012716 012722 012724 012730 012732 012736 012742 012746 012752 012756 012762 012764 012770 012774 013000 013004 013010 004737 104414 004737 004737 004737 004737 012737 012737 004737 000405 004737 004737 000207 004737 000772 004737 104414 004737 004737 004737 004737 000207 004737 104414 004737 004737 004737 000207 022274 052364 022342 023102 023446 026202 000010 000003 017120 PARER: ERROR JSR DISPLY PC.LINEL LEMIS ¢PRINT LINE 1 OF ERROR MESSAGE tREPORT ' PAR’ JSR JSR PC.LINESE PC.LINES 1PRINT LINE 3t OF ERROR MESSAGE 1PRINT LINE 4 OF ERROR M:SSAGE JSR JSR MOV MOV 001322 001324 JOSR B8R 024076 024136 18: 024104 28: JSR BR sREPORT 'IAE' IAEER: 022274 052503 022342 023170 026202 024136 JSR JSR RTS PC,INCTOT 08IT03,MASK #3,RETRY PC.SRETRY 28 PC,LINE6C PC.LINE7 PC PC,LINEGD 1s tPRINT LINE 2 OF ERROR MESSAGE s INCREMENT TOTAL ERROR COUNT tERROR MASK JRETRY LIMIT sRETRY ORDER sRETRY UNSUCESSFUL sPRINT 'CORRECTED ON N RETRY(S)’ sPRINT LINE 7 OF ERROR MESSAGE sEXIT ;PRINT ‘UNCORRECTABLE AFTER N RETRY(S)’ sFINISH ERROR MESSAGE ERROR JSR PC,.LINE1 :PRINT LINE 1 OF ERROR MESSAGE JSR PC,.LINE3F s+PRINT LINE 3F OF ERROR MESSAGE DISPLY JSR JSR JSR RTS 022274 052541 022342 026202 024136 PC.LINE2 ,EM3S PC,LINE2 PC,INCTOT PC.LINE? PC +REPORT ' IAE’ sPRINT LINE 2 OF ERROR MESSAGE ; INCREMENT TOTAL ERROR COUNT +PRINT LINE 7 OF ERROR MESSAGE ;RETURN ;REPORT 'WLE' WLEER: JSR DISPLY JSR JSR PC,LINEL ,EM36 PC,LINE2 PC,INCTOT :PRINT LINE 1 OF ERROR MESSAGE ;REPORT 'MWLE’ ;PRINT LINE 2 OF ERROR MESSAGE ; INCREMENT TOTAL ERROR COUNT RTS PC ;RETURN JSR ERROR PC,LINE?7 ;PRINT LINE 7 OF ERROR MESSAGE ;REPORT FORMAT ERROR 013012 013016 013022 013026 013032 013036 013044 013046 013052 013056 013062 013066 004737 104414 004737 004737 004737 032760 001402 004737 004737 004737 004737 000207 022274 052152 022342 022776 023446 040000 023536 023746 026202 024136 FMTER: 000176 1%: JSR DISPLY JSR JSR JSR BIT BEQ JSR JSR JSR JSR RTS PC.LINEL ;PRINT LINE 1 OF ERROR MESSAGE PC.LINE? :PRINT LINE 7 OF ERROR MESSAGE ,EM26 ;FORMAT ERROR PC,LINE2 ;PRINT LINE 2 OF ERROR MESSAGE PC,LINE3 sPRINT LINE 3 OF ERROR MESSAGE PC,LINES ;PRINT LINE 4 OF ERROR MESSAGE 98IT14, $RPCS2(RO) ;'WCE’' ERROR ALSO ? 14 1BR IF NOT PC,LINES ;DISPLAY WORDS WHICH CAUSED 'WCE' PC.LINESA :PRINT LINE SA OF ERROR MESSAGE PC,INCTOT s INCREMENT TOTAL ERROR COUNT PC b <RU0RY RO PERE o o po o g [ B2 Pt ot 0 gt OB om 4 CNEUMN=D 1T NEnl, - MAIN PROGRATM FXER MACRO V04,00 1 OFC 83 10:%.:0R PALE 32 QG 0091 ;REPORT Mt ADER COMPARE € RROR 013070 013074 013100 013104 013110 013114 013122 013124 013130 013134 013140 013144 004737 104414 004737 004737 004737 032760 001402 004737 004737 004737 004737 000207 022274 052177 022342 022776 023446 040000 HCEER:; 000176 023536 023746 026202 18: 024136 JSR D1SPLY JSR JSR JSR eIY BEQ JSR JSR JSR JSR RTS PC.LINEL sPRINT LEM27 sMEADER COMPARE tPRINT LINE 2 PC,LINES PC.LINES tPRINT 1PRINT LINE LINE 3 OF &4 OF PC.LINE? ®BIT14,8RPCS2(RO) LINE ;'WCE' 18 $8R IF NOT PC sRETURN PC.LINES PC.LINESA PC,INCTOY PC.LINE? 1 OF OF ERROR MESSAGE ERROR ERROR MESSAGE ERROR MESSAGE ERROR MESSAGE ERROR ALSO ? sOISPLAY WORDS WHICH CAUSED ' wWCE' sPRINT LINE SA OF ERROR MESSAGE : INCREMENT TOTAL ERROR CTOUNT sPRINT LINE 7 OF ERROR MESSAGE sPROCESS CONTROLZ/INTERFACE TRANSFER ERROR 013146 013152 20 013156 013162 013166 013172 013176 013204 013206 013214 013220 013224 013226 013232 013234 013240 013244 004737 104414 004737 004737 004737 004737 032760 001415 012737 005037 004737 000403 004737 000402 004737 004737 000207 022274 052644 022342 022776 023446 026202 121400 000003 001322 TRFER: 000176 001324 017120 024076 024104 024136 1¢: 2%: JSR DISPLY JSR JSR JSR JSR BIT BEQ MOV CLR JSR B8R JSR B8R JSR JSR RTS sPROCESS ' SKI' 013246 013252 013256 013262 013266 013272 013276 013302 004737 104414 004737 004737 004737 004737 004737 000207 022274 053435 022342 023012 026202 026132 024256 SKIER: JSR DISPLY JSR JSR JSR JSR JSR RTS PC.LINEL sPRINT .EM40 tRHXX OR UNIBUS PC.LINE? PC.LINES PC.LINEA PC,INCTOT LINE 1 OF sPRINT LINE 2 OF sPRINT LINE 3 OF tPRINT LINE 4 OF 1 INCREMENT TOTAL ERROR MESSAGE TRANSFER ERROR OBIT1S'BIT13!'8IT9'BITS, $RPCS2(RO) :BR IF NONE SET 28 03 ., RETRY ;RETRY LIMIT ERROR ERROR ERROR ERROR ' , UPE’ , ' MXF"’ ;'DLT MASK PC,$RETRY ;CLEAR ERROR MASK iRETRY THE OPERATION PC.LINEGC :PRINT 1s rd PC.LINE6GD :E.LINET tRETURN HERE MESSAGE MESSAGE MESSAGE COUNT IF RETRY UNSUCESSFW CORRECTED ON N RETRY(S)’ ;FINISH THE ERROR REPORT tPRINT 'UNCORRECTABLE AFTER N RETRY(S)' sPRINT LINE 7 OF ERROR MESSAGE ERRORS PC.LINEL sPRINT LINE 1 OF ERROR MESSAGE PC.LINE2 ;PRINT LINE 2 OF ERROR MESSAGE JEMSO PC.LINEZSB PC.INCTOT PC,INCSKI PC.LINETA PC 1 SKI' ERROR tPRINT LINE 38 OF ERROR MESSAGE s INCREMENT s INCREMENT sPRINT LINE TOTAL 'SKI' 7A OF ERROR COUNT OR 'OCvYL’ ERROR COUNT ERROR MESSAGE "MOPE' SET ? e CIRUORO RPOTM PERS L BN X LVX MAIN PROGRAM ¢ xER MACRO vo4.00 1 DEC 8% 10:8.:00 PAGH (REPORT WRITE 013304 0i3310 013314 C13320 013324 0133%0 013334 013340 013346 013354 013360 013%62 013366 013372 013374 013400 004737 104414 004737 004737 004737 004737 004737 012737 012737 004737 004737 004737 000207 004737 000772 022274 052441 022342 023004 023446 026202 016436 000003 000040 017120 WCHER: 001324 001322 7LOCK FATLURE 1%: 024104 2%: 2£Q 009¢ (WCF') JSR PC.LINE]L 1PRINT LINE 1 OF ERROR MESSAGE JSR JSR MOV PC,INCTOT PC.PRTBAD 03 ,RETRY s INCREMENT TOTAL ERROR COUNT $SEE IF BAD SECTOR TO BE PRINTED tRETRY COUNT DISPLY JSR JSR JSR MOV 024076 024136 83 ,EM34 PC.LINE2 PC.LINESA PC.LINEA "M1T05,MASK $REPORT WRITE CLOCK FAILURE 1ORINT LINE 2 OF ERROR MESSAGE 1PRINT LINE 3A OF ERROR MESSAGE sPRINT LINE 4 OF ERROR MESSAGE 1ERROR MASK JSR BR JSR PC, SRETRY 2t PC,LINESC tRETRY THE ORDER sRETURN HERE IF RETRY UNSUCESSFUL (PRINT ‘CORRECYED ON N RETRY(S)’ sPRINT LINE JSR PC.LINEGD ;PRINT 'UNCORRECTYABLE AFTER N RETRY(S)’ ;?g BR SE.LINE7 14 7 OF ERROR MESSAGE tPROCESS DRIVE UNSAFE ERROR 013402 013406 013412 013416 013422 013426 013434 013442 013446 013450 013454 013456 013462 004737 104414 004787 004737 004737 012737 012737 004737 000403 004737 022274 053602 022342 022776 026202 040000 000003 017120 004737 000137 024104 031362 18: 013466 013472 004737 000207 024136 2s: UNSAF: JSR DISPLY JSR JSR JSR PC.LINEL ,EM60 PC,LINE2 PC,LINES PC,INCTOY sPRINT LINE 1 OF ERROR tREPORT DRIVE UNSAFE sPRINT LINE 2 OF ERROR sPRINT LINE 3 OF ERROR s INCREMENT TOTAL ERROR MOV JSR BR 03 ,RETRY PC.SRETRY 1t sRETRY COUNT ;RETRY THE ORDER tRETRY WAS UNSUCESSFUL MOV 001322 001324 024076 JSR BR JSR JHP JSR RTS s§REPORT EARLY 013474 013500 013502 013510 013512 013516 013520 013526 013530 013534 013536 013542 013546 013552 013556 013564 013572 004737 000240 032760 001403 104414 000411 032760 001403 104414 000402 104414 004737 004737 004737 012737 012737 004737 EWNERR : 022274 000002 000230 053625 000004 000230 1¢: 053704 053762 022342 022776 026202 000007 000003 017120 24: 3%: 001322 001324 #MBIT14,MASK PC,LINE6C 2% PC.LINEGD DROP PC.LINE? PC tRETRY MASK MESSAGE MESSAGE MESSAGE COUNT sPRINT 'CORRECTED ON N RETRY(S) ;CONTINUVE WITH ERROR REPORT :PRINT 'UNCORRECTABLE AFTER N RETRY(S): ;DROP UNSAFE DRIVE sPRINT LINE ;RETURN 7 OF ERROR MESSAGE WARNING ERROR #gg PC.LINEL 81T BEQ DISPLY #BIT1,SRPER3(RO) 1 TPE' SET? 13 1BR IF NO ,EM70 1PRINT TEMPERATURE WARNING ERROR -39 BIT2, IRPER3(RO) BR i SKIP LINES 3¢ 1 TYPE REMAINING ERROR MESSAGE BEQ g%SPLY 28 iEH71 1BR IF NO 1'AIR SYSTEM WARNING ERROR’ DISPLY JSR JSR JSR ,EM72 PC.LINE2 PC.LINES PC,INCTOT 1 'EARLY WARNING ERROR,AIR TPE NOT 1ERROR MESSAGE 1PRINT OUT + INCREMENT TOTAL ERROR COUNT JSR PC., $RETRY tRETRY THE ORDER MOV MOV $ 07 ,MASK 03 ,RETRY 3 ' AIR' SET? 1SET UP ERROR MASK tRETRY COUNT SET )TM CIRIORO APC" PERF HMAIN PROGRAM S8 V13576 %9 01%00 e 01%:C4 1 13606 S 013632 EXER MACRD vO4.00 1 DEC 8% 000403 004737 000207 004787 000187 6R J R 91‘, 02407¢ 024104 031362 10:%:.'8 PALE 48 JSR N 't 41 PC,L TNESC PC PC,LINEGD DROP FQ 0093 iRETRY sPRINT s RETURN UNSUCESSFIA Rt TURN ‘CORRECTED ON N RETRY(S): tPRINT "UNCORRECTABLE AF TER N RETRY(5)" ;DROP DRIVE CZRUORO RPO’ PERF MAIN PROGRAM EXER MACRO vO4.00 1 DEC 83 10:3°:°8 PAGE tREPORT AN 3 tR1 013616 013622 013624 013630 013682 013636 013642 013646 013652 013656 013660 013664 013670 013674 013700 013702 013704 013710 013714 013720 013724 013730 013732 013736 013742 013744 013750 013754 013762 013764 013770 013772 014000 014006 005737 001060 105737 001013 004737 104414 004737 004737 004737 104414 104414 104414 005737 001031 010146 004737 005237 013746 004737 004537 001334 18: 022274 053027 022342 023004 023446 UNKXNOWN' SFQ 0G94 DATA PATTERN » POINTER FIRST WORD UF DATA BRUFFER NOMTCH: 001352 e 34 157 CFLAG 58 FRSTER 28 PC,LINEY JEMAS PC.LINE2 PC.LINE3A PC.LINEA 053027 001203 056015 001334 2%: 3s: 48 34 JEMAS +SCRLF +LIN9I CFLAG St R1,-(SP) PC.LINOCY 024 366 001374 001374 033412 032742 WRDPOS PC, 85820 :S.OREPLZ 1WAS (*C) TYPED? 1BR IF sFIRST YES ERROR ;1BR IF YES sADDRESS OF WORD POSITION s TYPE WORD NUMBER sINC WORD POSITION 1PUT THE WORD POS ON THE STACK sCONVERT IT TO DECIMAL sTYPE IT (REPLACE LEADING ZEROS) s TYPE 6 DIGITS s TYPE ', sTYPE 2 BLANKS PC,LINOCT « SCRLF sTYPE DATA i8R IF NO 012737 013737 000207 177777 001460 $ 0<252.¢2.>,R1 R2 ®-1,FRSTER 001352 001364 2 OF ERROR MESSAGE 3A OF ERROR TMMESSAGE 4 OF ERROR MESSAGE 1WAS (*C) TYPED? 024366 001203 001374 St ? s 'CAN'T MATCH DATA WITH PATTERN' ;CR-LF 1HEADER FOR DATA PRINTOUT .PERIDO 000770 SECTOR sCONTINUE PROCESSING ERROR 0577171 056610 000003 THE s'CAN'T MATCH DATA WITH PATTERN' sPRINT LINE iPRINT LINE sPRINT LINE 104414 104414 012146 004737 104414 023727 001344 062701 »BLNKS2 IN 18R IF NOT OR IF PROCESSING ‘DCKER' sTYPE LINE 1 OF ERROR MESSAGE 1ADDRESS OF DATA WORD iCR-LF :RDPOS.OS sOONE ALL WORDS ? ggPLHT.LIHIT s INCREMENT BUFFER POINTER - 4 MATCHING WORDS 1CLEAR 'WORDS TO COMPARE' COUNT IN R2 sSET ERROR FOUND INDICATOR tRESEY THE COMPARE ERROR TYPEOUT LIMIT ;RETURN f o3 CTROORO PO PERF e po - 0t s Bt ot P Pt [« 1 CVNBUN=OO® G N gl MAIN PROGRAM FXER MACRD vO4.00 1 UEC 8% 10:8.2:28 PAGE 35 €0 0095 ;1CrHECK ERROR BITS IN TrE Rriux € RPO7 REGISTERS 014010 014016 014020 014026 0140%0 014034 014036 014042 032760 001013 032760 001011 005760 001006 005760 001003 014044 014050 005760 014052 004737 014056 014062 014066 19 014072 014076 014102 014106 000416 104414 004737 004737 004737 004737 004737 000207 060000 000166 177400 000176 (CxXtRR: 000202 000230 000226 022274 053128 022342 022776 023446 026202 024136 18: 2: BI117 BNE 81T BNE 187 BNE TSt BNE 151 BR JSR OISPLY JSR JSR JSR JSR JSR RTS 860000, $RPCSI(RO) 18 ,;SEE IF 'TRE' OR 'mMCPE° SET 100 IT EITHER SET nmoo.cmcsz(no) 1SEE IF ERAOR BITS IN C52 SE! \OR IF ANY SET OflPEfll(QO) lflNV 81I7S SET IN ER} 14 1OR IF ANY SET SRPERS(RO) JANY BITS SET IN ERS 2 14 J0R IF YES SRPER2(RO) JANY BIT SET IN ER2 2 :OR IF NO PC.LINEL {PRINT LINE 1 OF ERROR MESSAGE ,EMa4 sERROR BITS SET, BUT MO ERROR BITS SET PC.LINE2 sPRINT LINE 2 OF ERROR MESSAGE PC.LINES sPRINT LINE § OF ERROR MESSAGE PC.LINES (PRINT LINE 4 OF ERROR MESSAGE #C.INCTOT s INCREMENT TOTAL ERROR COUNT PC.LINET sPRINT LINE 7 OF ERROR MESSAGE PC 1 RE TURN JCHECK BUS ADORESS REGISTER & WORD COUNT REGISTER 014110 014114 014116 014122 014124 014130 014134 014136 014142 0141446 014152 014156 014162 014166 014172 005760 001010 016046 006316 066016 022660 001416 004737 104414 004737 004737 004737 004737 004737 000207 000170 000020 000006 000172 022274 052702 022342 023034 023446 026202 024136 CXBUS: 18: 2¢: TST BNE MOV ASL ADD e 8€Q JSR DISPLY JSR JSR JSR JSR JSR RTS SRPUC(RO) 1CHECK WMORD COUNT 18 18R IF NOT ZERO SURDL(RO). -(SP) 1WORD LENGTH (SP) +CHANGE INTO BYTE COUNT $8UFC(RO).(SP) jADD THE STARTING LOCATION (SP)e, $RPBA(RO) ;BUFFER ADORESS PROPER ? 24 18R IF OX PC.LINEL (PRINT LINE 1 OF ERROR MESSAGE .EMA1 18US ADDRESS OR WORD COUNT INCORRECT PC.LINE2 sPRINT LINE 2 OF ERROR MESSAGE PC.LINE 3D iPRINT LINE 30 OF ERROR MESSAGE PC.LINES {PRINT LINE 4 OF ERROR MESSAGE PC.INCTOT 1 INCREMENT TOTAL ERROR COUNT PC.LINE? 1PRINT LINE 7 OF ERROR MESSAGE PC Lved CTRIOORD 80" PERE ¢ XtR MACRD vOO 00 1 JEC AT 10:82:°8 PAF S0 >€Q 009 »e QOB O VD nt,e MAlN PROGRAM COPARE 014174 005037 014200 014206 014210 0031001 014212 014216 014222 01423% 0142%6 014240 014242 0142%0 0142% 014264 014272 014276 014304 014310 014314 014322 014324 014330 014334 014336 014342 014350 014356 00135¢ 132760 000024 CPAMR: CLR FRASTER 1CLEAR CanD: 8°78 o4, 3CODE(MO) RTS oC 1SEE IF M A0 COrwnD 1868 IF 1T IS 1 RE TURN an ENCTR 1CLEAR N € EAROR COUNTER $RPWC (RO ), CMChT? 1CALCLATE WOROS TRANSFERED C 1EXIT - -NO WORDS XFERED ICVLIRO),CCL 1CYLINDER ADORE SS WORK ING LOCATION 1SET WG, USER AND FMT BITS 1SECTOR & TRACK ADORESSES TO WOMKING LOCNS sOISPLAY LINIY 000207 005037 001%62 016087 066087 000020 000170 016001 001001 18: 016002 166087 126027 B "y "oV ADO 8nE 000207 016087 0527%7 016037 013737 005237 012737 005037 005037 023760 101003 013702 005037 Teg DUSFFLM RTS 000012 000010 001460 001 364 177717 001356 001360 001 366 001370 001370 001372 001364 24: MOV 001350 CHSTR: MOV CLA CLh 000022 001366 001366 000022 000022 001034 001366 000005 24 : AND NO OCw' INDICATOR 5SS SOUF (RO), AL 1BFFER ADORE SWROL (RO ), CMCNT? 1WORD COUNT TO WORMING LOCATION 20 8IS 3 027 "oV InC 0150000, L $SEC(MO),CmSEC CroLnT LINIY LInIy o, CMCNT , $SSEC(MO) 31S OWFFER SIZE GREATER TraN OME SECTOR ? o-1,I00I SAVER]) SAVERS [ )¢ "oV 160 CCwT R2 B8R nOov 24 $SSEC(RO) A2 CLR 14: 1 "FIRST ERROR- SUB (a, o ] ONE CrMCNT $SSEC(RO) ,CMCNT $CODE(RO ), 05 CrOAT 1CONVERT PARAFETER INTO LIMIT vALUE 1CLEAR € ' ZERO'S' INDICATOR 1CLEAR THE R1 SAVE WORD 1CLEAR THE RS SAVE WORD ;OR IF IT IS sLESS TN, USE REMAINING WFFER sSET COUNTER 10 O 1COMPARE SECTOR 1DECREMENT WORD COUNT IREAD HEADER ¢ DATA? 18R IF NOT 1COMPARE HEADER WORDS 014360 014364 014370 014372 014374 014402 014406 014410 014412 014420 014424 014430 014432 012703 052711 022521 0014035 012737 004737 022521 001405 014436 005237 004737 000207 014442 014446 012737 004737 162702 003007 000137 Cre€D: 001370 150000 irmm 014436 177776 014436 000002 o, 4 8€EQ MoV 001374 16: 24 CMSTR2: oCMC YL RS 0150000,(R}1) (RS)e,(RY)e 1 @ -1 ,WROPOS JSR PC.CMSTR2 8€EQ 24 JSR SUB PC.CMSTR2 02,.R2 S CrPRX e MoV 001374 015052 001362 015060 MOV 81s 8GY INC ‘.’?2 (RS)e,(R1)e &-2,WROPOS CMDAT ERCTR PC.CrPRY 1ADDRESS OF COMPARING CYL INDER 1SEV BITS INCASE BAD SECTOR ENCOUNTER sCHECK CYL INDER 18R IF COrPARE Ox s INDICATE WORO POSITION IS MEADER WRD 1 1REPORT ERROR 1COMPARE SECTOR/TRACK 1R IF EQ sINDICATE WORD POSITION IS MEADER WRD 2 sREPORT ERROR 1SUBTRACT HEADER LENGTH FROM SIZE tBR IF NOT FINISHED 1COMPARE THE DATA PORTION s INCREMENT THE ERROR COUNTY sREPORT THE COMPARISON ERROR 1CHECK THE REST OF THE »MEADER HA CTOIMO @B PLAF ¢ R MACRD vO8 MO | JEC 0% 10-%. - 0 Pls Naly SROCRAN 1 I4 012737 S 014062 000608 on 177777 : 016470 00086S " 004737 015%08 001374 ("OAl, ® Cl6ees 004737 01316 9 016472 011603 10 016476 012708 000020 11 016500 003237 001876 12 014508 022123 16 016310 1S 014516 16 016516 17 014526 :: 014526 20 014332 003737 001362 001606 032777 000010 001602 008737 015080 003302 13 014508 21 0145% 22 01453 2% 014540 16; 25 001016 168430 $6: O0O0%aal 003308 001837 ;os 014542 00075S 26 014548 27 014%%0 005761 001410 :; 014570 000760 33 0164572 34 01457¢ 105737 100612 39 016622 40 014624 41 0164630 42 014632 :2 014636 45 014640 46 0140646 47 014650 48 014654 49 0164660 SO 014662 S1 014670 S2 014672 g‘s 014676 005037 010137 010537 013737 000743 005737 001760 17777 as; 001350 00135 001360 001376 126027 000024 001414 013702 001366 020227 000004 002478 162737 000400 003667 012702 000800 000664 105237 001366 001372 6 8 001366 000002 9¢: FOMD A PAT tRN #C . NONTOn "oV "y I (ne).03 o1e. .08 SOPOS +AOORESS OF PATTERN ADOS? S IN A6 1S IS PATTEMN POS COUN'S® L INCREENT 10 CURRENT WwORD POSTTION > e s00 IF NOT EOUML e 7 (R1)e,(W3). S IND Trg PAT AN JRE TN SEOE [F NO MATCHM WITw PATTEAN TMaOE '8YPASS COPARE AOUT INE +COPAE BUFFER wilTw PATTEAN 151 00 o1t o€ 0 JoR 0eC tacTa 1) oSS . B3l 1 »C.Cront n2 ¢ C 1% ns 2¢ L3 4] .2m) S 113 NISCOPPARED OWMAAC TER<O tON IF vES 3 {CONTDAE COPang | W 14 ] 10 +EANORS DETECTED ? 10N IF MO ERRORS JSHITON $ SET 2 00 IF MOV SET :OISUAY NG WORD 10CCRE*ENT SIZC COUNT +ON weEN AT END +OECREFENT PATT POS COST 00 IF NOT AT €MO OF PATT JRESTART TG PATTERN "oV InC JSR o 1,2%0NM® eacin »C.Cront TST8 o] FRSTER 1) FINST ERROR? 100 IF MO 3 OO 1CONTDNE COPARE 1 ANY MISCOMPARIONS NOT ZEROS ? #C.0ORT JREPORT EAROR ] ST 9€Q on 748: 1 I JSR 000005 +TNI IM ZE wORD POSITION #C .0 10m CLA MOV "oV MOV 001354 o 1.\0P0Y I o Se: 001350 015060 S5 014700 023727 56 014706 002661 $7 014710 0013%2 004737 00073S WUy on 20 014552 012737 177777 0013%0 29 016560 003237 001362 30 014564 004737 015060 $S 014600 36 014608 37 016610 S8 0146184 FQ 0097 [COPang Data FIELO * 016650 e 03645 7 CP8 1SET WON. TERD MISCOMPARED ,MOCATOR s INCREFENT Th@ EAROR COUNTER JREPORT EARNCR I%0N® +SET NE 2ER0 INOICATOR R],SAVER] +SAVE CURRENT M) "3 SAVERS 1SAVE CuReENT A3 WROPOS . SAVPOS ; SAVE CURRENT WORD POSITION 1) 10N IF MOME -ALL ERRORSeZERD 1CONTDE COPAING CODE(RD). 05 ,AEAD MEAD MO DATA "oV o Y Sup oLE "oV o CONT A2 R2. 08 oeax 02%6 . .UM CrOAT 02%. .A2 COAl 1SET COUNTER = REPAIN BUFFER LENGTH +IS THMERE AT LEAST @ WMORDS TO MATCH PATTEAN ? 00 IF %O 'GREATER TrAss A SECTOR ? sNO . RETURN 1O COPPARE LOOP +SET COUNTER <SECTOR SIZE +RETURN TO COMPARE LOOP o o Y CONT, 62 Crenx [ 1] INCE 9 OMSEC s YES ? +IS THERE AT LEAST 2 WORDS TO COMPARE MEADER ? 18R IF MO + INCREMENT COUNTER CP 0 BP0 AP ¢ E MAORD v00.00 | SIC 03 10:92:79 Pags $7 § 14 MO 00 Naly SROURAN 10%0187 005287 013768 018772 ? 00082 014778 015000 01%008 015008 CG1%G10 01516 015%0/2 01%u2e 01%:2% 012708 33 33 142 PP pt B L3 018 7%0 018 7%4 016 7%0 016 7448 014770 013084 015080 0a2714 Or 780 1Gl1e0} 052711 0. 7o) OoU) ey 012737 00ar3? 022521 001604 012737 090198 01378 1 001370 01370 01c $ 50000 000130 001170 150000 177777 109, 001376 0164% 1 0oe73? 01843 17777% ©OO0187¢ 162737 600002 001366 01%04¢ 0150%0 000e 7?7 01%0%2 015%0U% 004 73?7 000207 O« 3401 013060 124 ovas, O"x (. nOM (W) 0 PSR RCTOR 0 ? WESEY MCYOR O - 001378 5t - 123 %0 1016384 00117 w 0187 o R 0% e 2 820 RSRETT § Vi asd 01647068 10%0%7 105287 ee01%W [ & 014734 L 3 ) o16a7842 w872 101824 L «0 016726 4 016730 173 %0 - 018718 ” 018722 b 4 ol o, NMLT(RS) o s PMErEnt tealn AR TRACR & ? 1) T TRalr o s ICRg g Nt (N INDER Mrege oLt COPMING (" "N 'SANE Y g (iGN B1TY (") AT CW InpEN ? :m AR N, 00T VAP AROLD 0150000, (#1) ") . (h1)e A00NESS OF COPamNng (N IDEN 13T 0118 INCASE 040 SETTIR ENCOURTEN .cm 137 *QACEA wOnO e 1O oM!Cl'l uORP FOSITION 18 'CACER WD ) W07 MATCM MCOO wWORD & G ADEN AT +DOICATE wORD FOS1TION 1S ' ADER WD 2 +NDT RATON 1A0AAT WORD COUNY (ovang I3 OO N T 10 COPant LOOP PEDR LAST LD W CARORS ric @0 Er ¢o® "IMOND ¢80 "0 | JRC 08 30-0-0 Pul @ 89 TO0R Pave COGuNy (g 3/ .34 ov; 00Y oua 73y ooe 78? osoe g 010%A¢ o176 o1V 70 o113 91830 oos 7Y o0 78? ? o0 o037 Q1Y 443311 T 1424t t 1 34 i34 PR D 2 01008 cCoetY, wp»r 10, e e 013168 01330 &80 o188 '3 (7 LY g F{) 7o o .80 s . ¥ S o <. | ) @01 b o) 1% "Y LJRBY Q1.9 001 ' v o0y, W0 ) .80 L _ 19},] v ~w N Qe Qe o] W a8, 001019 V-"'l.u .70 save By YT LY ( W )o . POP v v (W) (l’;;.'l 125, ] reqTen od ¥ o~} J. orrve 9 oC.. g} O:WALY _ (rag 00a 737 02 yeee JA o :.uuu 100414 e 90, oI LY Y722 (Y Y IV 012737 000207 00120 Ja on |344444 0, G078y 1004 OouVs TS 001603 005337 001 00% os211? Y DI Ale v ,ewmf .Llwene Dy ars o-1.7037E0 o 4 rev oL oo LDy % oo 08, K. a2 o o PRIt 18 t'im W .v58 DOO $4.50 v 09 oM .;;'th PDOLICATON 19 erean O o f$tain In'0 wOPgl S7aCH [n°) B 2P 0000 g1l tn'Q .J SOt MRrADERA |08 "N g 3046k W IPAY geEgl P 1 .M\ .M, PLIn T gewpd @O C 7o o nl LI § O T g QADOR WO ' OCX’ A 10478 COvang tam w0 «x CARCR «f QO 0 g Peint i@ e wt LIwa Y .Y Peint LId 0 OF EmuR M 5 b &GO 10 Tiod vEACER ettt (9ATA COPAMRIION CARONY’ N Y onlint? ’ ’ SEY woRp ”0Y 00N FINy] QAROR FLAS ag TN (') Oara MCIVW OATA 1uhg (oC) TVWNQD? on IF vES 1V Y LDITY MADED ? NN ) N _IB 1Le IRt (I COUMNTER L J4 0207 , B5uR Puint M DATA COPARE CARORS ? 0 IF vEg o B T DFFER ADORESS >S AU AAT At sTreg 3V [ 100 [ arg 100 oC 010180 104 "oV 0y, -(SP) JoR oC.LInOCY 024 306 A0 wap FORLTION e (@44 L 1) 162716 004787 AAY SAvED N-H [+ 34 ooozol 001t "t“.' e D a 0B §F Si0%Y EROM M@ PEYIILING OCH: ERRN, O"’. ,“ °t . w 108414 108444 §raCn on Y alnad 8 P WDPOY O STACR 14 1124 Cond L oMa | o :'fl wrern, () 7 o00r0 00a 737 G0ary? OB P ey PO TNT INITIm "GISACE PP 00t IRPERR & " Ssact gt ~w o tre 001 3% @i 760} ous's? e0a 737 ST oD WML 8 ? *s 8 02.(S0) B 17 sut AT IMIY 0 VA A o 789 ¢ie O 7y N N BE & N ¥ joseil onure? mm 1 Ne 'O oTe R Mg sTCW ere g O's 10 ‘77" it s omsn €.°v7p i ST Q80 (1040Y0 D BARME 1 ! N LA el 17% 1 Y 01 % el C1%ed Givv a 0O1% % Q1° 9 C19508 | L63434 ®e0P, eriay? (a3 4 01610 vee )@ % 3 Ge Ty j08e16 Gusry? 00e 7)Y 1 L @ CPPa 1NN ne (Mg |W T L T¢ N N EJ e reine. WPON PG Y cRRaRy 000 ) N wpt 1Mt Dy RW CORORY 08 W e Can ? matCn PATICEN s oiro8 L w |"~ . O ey L4 L] WiS! LBE - 4 O g grA0N -~ g ol gt §° Bl Ling, sfceq §T (e (R (G RYON) o"‘! .tfil" L 3d o ©1%4.9 ©1% 4 Q142 0iveW O1% o To0g | 1% (AR AR 17 Y 3Y | (AR" C.v30 e 0100 G I aneal ME oan, Gi" 79 01 %ad O1%ag 01%%Q N NI $7°° o Loa. 01%e9 N_ 2 $38222828°0322082833 2523230885808 M ¥ weiiliendil wWran e Ny, ¥ ogfl 3 Nt ) t“ o8 A (L5 Samumy '3 &fimmvmoflmmnlfluww-aflh e 0104 1% racser ') BANG ‘ sis T GBETTE B ¢ L8 78 * AN 1§] . re 1 s ".\q P :: 1B iho. K 11 ) I‘ 9."" 18 OSuIeng 71 ©:°°.,0 Y F Gi°° 1@ ¢it7et L WOn., GPNEND Om vl XTI B 7Y 12708 ONDONE 27 ©:°° W jo. '8 CUONNP N 0" 0 ©0:°° % L TR $1°°aP ¢ a8 9 ¢ 2 G:""8 i‘: : 3 - 87 ¢C. w8 8¢9 3% Ui%v18 011004 1019 m“"t @378 ¢.. 9 & ‘a4 & .*e & us ' Geouds e, 9 oarsse .'en CODORP o 1¢ ¢ .. S u L T CGOOODE 90, V'] L T [ ] e S U7 TN LY g fl'.l'.h <] w» ¥ .rh.n " g SNLTINE @i L' onryn Pof '¢an » & o0 &y (03 de (OA Do | ] . 2N AN¥ - 1 Tm 08" RMy roni GumciYe Puf Tgan CRAR GO P (w) N0 % ¢ "R NN _I1AEY -'0"". L ;‘ ~N ety 1300 B » o .00 Ny d €0, Y JSTED MONE 13 e ‘e L GWY S IR [N W8 ) F ) DA @ ose 00 W ¢ A an apres g Ny B0 Py e o= { :. c: - YV EBE "8 - "» = ) oy - X Ny onrve ~ &y owm i .2 7 o Fvee o o M Suqg o m ,e8 g "¢ 8 PRI .. F @ EWS QGUNE ° 1} "¢ 0‘ »1 V- 1] e '8 T Pa’Ro WM MB*TW n T RE A1 L AAREW VP A1 e 8 : POy ore: SRS 08 17 a0t 2 m . o f n mf t) “ralM Ln AT,! T DATIAN 'OV ngal Parigan -'.tfl‘)b‘"‘-' IFat e) '-l Sar rgam auune 3 AL VG st AR . +28 ' A A NAN1) mg @) TM P.1 ! hdllosiieAl =N i | ] LK S 1)0 S R - N ' § 010 % @10087 eee1?) 8 C ‘sl S ¢;'810 ’ ¢, 18 ©1°% 16 $ 0 w0 9 0;°%.2 10 ©;i'n. 0 Qreuag “IO 1?:;) 1 01 ©i'#s %0 @GOavy 13 C1°'s 0 OO0} 1% 01'na) f41eY 18 01000 10 01%a8 OGOMSY (77 ;00 19 01°'4e8 20 0154 21 01'# 74 ©UUEOS 142737 00208 22 01700 O 737 016437 w GOCG/12 OMISN ©01608 001608 29 019764 OUL/3? ©O160$ D wney WMeaas (9 T -" stagne L ecn WrAP), LAPP) 5. "W §° | ) *9 aod Oy ot "oy oxE 001008 3 4 0! M J200 ) o8 gCmeC ) 6%. o2 .8CMEC o8 v Sl(-).m LT, N Y M 4 i4iN N L") sng 4N 00D qgaK® ¢ W60 Bant 0T 2ADANY | (e ALl (w0 OV ¢, -(99) P78 ot v PO ITI N COMNY QLI g 017 @YY ¢ w0 4 () valn $QInTEN OATS FIILO 310 (e OYIRY) 18R PrimTEn 0’ ebhoo ¢ Cwi0 & 1 SAriIn, ME40 44D § In'a a0An? b17 posif1om 17,0708 ’ BY¥:-V| o8l weir.e L14,R WITEN wL o P " | 7] 8 -u-n wTwd PWTiR r Al AL i (o) N0 hQ WORP (O n? LOCATION 13avl D 011 Pr ! &cnn : ' 10 0778 4 710 0778 COUNT(OIV'TME OV ) COM(DIv: 4 O &) 1Ot 10 0718 C st (DLviOE OF §.) AR "0V 004787 O0°%.- ISR oC.o5.rm 11198 1T (LETT ASTIS10D) A0 €CseC . ECumD FIND THE BELINNING OF TrE €U BURST O0A3Y 016037 000234 063737 0050837 005337 001400 001404 002408 006337 006137 001802 001404 S1 016062 S2 016070 3 016074 017737 013746 047716 163320 001402 163306 22 016106 052677 163274 043777 005737 JR 001402 001404 OISMLY DISAMY 001806 001406 (o, o] o 001402 00137 46 016046 47 01605 48 016054 000770 OISMLY O“%%i2 43 016030 S7 016112 () 001378 016406 S4 016100 cc s 001608 000137 ;g 016060 (09) 008216 011637 013766 000172 45 016042 S | 1) 05169 026037 101002 01603% SN 0914CC(JP) LTy @ (29 (008 FToED M 8P), &' wreng '"“n‘ s Cow) 308414 39 016014 40 016022 44 %o 0. A wOROy W) +¥ P 00C.008 05777} 05201 :; 016024 N ('r lt‘& nn’ o013 j06eie 106418 38 016006 oy L) GOVOND ©OL237? 36 01577¢ 37 016002 804 GON000 GO0 2 01°°,¢ 08,737 ‘uou 34 01%7684 " o 0000 2° 01734 $9 01°°72 G080 OCC. GOSN G01'P 32 01%’60 33 019742 N ] ©13'37 %1 015734 N 1 2 01720 082737 30 019750 3 Uit OCC 10 CONNCY NG Snta GED m 26 015712 O0O0s..'37 B oA M R\ 28 015708 ©C%137 0137 20 0145740 & @037 $? 01'vN8 10 0i'#% GO NP .tr;o 1§ ;‘ 0’4V : N 46: Se; OV 163300 69: (s9) (), oC.0580 ,PERICD ,LINIOS 0 ERBUR BURST B vg AT - IUT 14 w0 (Xt O D §7ACH 1GET START NG WO FOR "g SSAGE(DIVIOE BY 16.) T CuRmENT WORO POSTTION 1COvERT 1T 70 O€C TMA sTvog s In oau FIELO OF CAMOR SECTOR: SRPQA(RD ) ,.ECMD .su. IF BURST waS In DATA READ e O IF In DATA READ €cc2 .um I DATA READ- REPORT 1V RPEC2(RO) , ECPSKXO 1GET g ERROR BTT MASK CLA [ {7 ¥ tCLEAR oLt ASL ROL 6 €ECMSX0 tCrsxy 1) 1O IF DONE 1SHIFT THE EMMOR MASK (SHIFT TiE LOMER INTO TrE UPPER (CONTINUE "oV MmOV 8IC SECWRD ,ECBADO ECMSKO, -(SP) SECWRD, (SP) ;SAVE THE INCORRECT WORD (PUT LOWER MASK ON STACK 1CLEAR ENRONEOUS ONE BITS FROM MASK ECHMSXO,BECWRD ;CLEAR ERHONEOUS ONE BITS FROM BAD WORD ECMSK] 1DOES ERROR GO INTO NEXT WORD ? 0€C R 001412 ,LINIOA 8IC BIS ST €celt (SP)e,8ECWRD TTME UPPER MALK WORD JOECREMENT TrE 81T OFFSET COUNT THE SHIFT 1SET DROPPED BITS CZRJ0B0 APOT PERF ¢ XER MACRO v08.00 1-0EC-83 10:32:28 PAGE &0 1 N8 580 0103 MAIN PROGRAM 56 016116 59 016120 60 016126 61 016134 0014193 013737 062737 026037 001406 000002 000172 005737 001402 016142 0i6144 016150 016152 016156 001516 005087 000414 016160 016166 70 016172 71 016176 72 016204 017737 013746 047716 043777 052677 62 63 64 65 66 67 68 69 101006 163230 MoV AOD 78 001414 001404 163216 001404 163204 8€0 001414 001414 001414 Cw o] 1S7 8€Q CLR B8R 001420 163210 MOV MOV 8IC 8IC 8ls -3 ECMSxO €CcC2 ECWRO1 ECC1 JECWRD1 ,ECBADL ECMSK1, -(SP) SECWRD1,(SP) ECMSK] , 8ECWRO1 (SP)e+,8ECWRD1L i1OR IF N0 1OUPL ICATE ADODNESS 1 INCREMENT ERRON ADDRESS 11S NEXT MORD IN TME ORFFER ? 1OR IF VES, ELSE, ;:WAS ERROR IN FIRSY WORO ? 18R IF NO sCLEAR 2ND WORO ADORESS sPRINT WORO CORRECTED 1SAVE THE SECOND BAD WORD 1PUT THE UPPER MASK ON THE STACK sCLEAR ERRONEOUS ONE BITS FROM UPPER MASK tCLEAR ERRONEOUS ONE BITS FROM DATA WORD :SET DROPPED BITS by CIRUDBC RPOTM PER: PP, MAIN FPROGRAM 016210 016214 016220 016224 016230 016234 016240 016242 016246 016252 016256 016262 016266 016272 016276 18 19 016302 20 016306 016310 25 016314 016320 26 016324 27 016330 28 016332 016336 016342 31 016344 016350 37 016354 016360 016364 016370 016374 0164090 38 016404 39 40 016406 016412 42 016416 £ XER MACRO V04,00 104414 013746 004737 013746 004737 004537 000006 104414 104414 013746 004737 104414 017746 004737 104414 057771 056610 001412 024366 056610 163114 024366 056610 005737 001414 104414 013746 004737 013746 005216 004737 004537 000006 104414 104414 013746 004737 104414 001203 001441 017746 004737 104414 000402 104414 104414 000207 056345 001406 024366 001374 033412 032742 1 DEC 8% ECC1: DISPLY MOV 057771 056610 001420 024366 056610 163020 024366 056610 ECCe: ECCX: LLINIOH ECWRD, £0 G104 (SP) PC,LINOCT JSR JSR . WORD DISPLY DISPLY PC, $5820 RS, $REPLZ JSR DISPLY PC.LINOCTY WRDPQOS, (SP) 1 HEADER sPUT ECWRD ON THE s TYPE ECWRD ;PUT THE WORD POS sTYPE IT (REPLACE :TYPE 6 DIGITS «BLNKS2 s TYPE LPERIOD sTYPE STACK ON "HME TO DECIMAL ;CONVERT IT 6 LEADING STACK ZEROS) ¢ 2 BLANKS +BLNKS? ;PUT ECBADO ON s TYPE ECBADO s TYPE 2 BLANKS JSR DISPLY PC,LINOCT s TYPE «BLNKS2 s TYPE 2 BLANKS TST 8EQ DISPLY MOV JSR MOV INC ECWRD1 ECCX . $CRLF ECWRD1, -(SP) sPRINT (sP) s INC TO SECOND WORD OF BURST ;:CONVERT IT TO DECIMAL sTYPE IT (REPLACE LEADING ZEROS) MOV ECBADO, MOV SECWRD, -(SP) JSR JSR . WORD DISPLY DISPLY MOV JSR DISPLY MOV JSR DISPLY BR 033412 032742 41 JOR MOV 001414 024366 001374 056241 001203 10:3.°:8 PALE O1ISPLY DISPLY RTYS (SP) PC.LINOCT WRDPOS, (SP) PC, 85820 RS,SREPLZ 6 ,PERIOD +BLNKS?2 ECBADL, -(SP) THE STACH ;PUT SECWRD ON THE STACK SECWRD THE i8R IF NOT NEXT WORD ? ;CR-LF sPUT ECWRD1 ON THE STACK ;s TYPE ECWRD1 :PUT THE WORD POS ON THE STACK :TYPE 6 DIGITS sTYPE ' . s TYPE 2 BLANKS sPUT ECBAD1 ON THE STACK s TYPE ; TYPE ECBAD1 2 BLANKS PC.LINOCT BLNKS2 s TYPE s TYPE ECCX sEXTT SECWRD1 2 BLANKS LIN1OC sERROR BURST WAS NOT TRANSFERED TO MEMORY PC ; RETURN PC.LINOCT «BLNKS2 SECWRD1, -(SPY . SCRLF ;PUT SECWRDL1 ON THE STACK ;CR LF CTRIOBO RPO" PERF ¢ XER MACRO vOod .00 1 OEC B3 10:5.:28 PAGF &2 5£Q 010% [y O O® T NB'n’,m MAIN FROGRAM sROUTINE TO CHECK ERROR REGISTER #3 FOR THE BAD SECTOR BIT sCALL : JSKR ' - PC,S5POTCK 1CALL ROUT INE IRETURN HERE 1RETURN HERF 3 16420 V16426 016430 016434 032760 001002 062716 000207 100000 00030 000002 SPOICK: 1s: BIT BNE ACD RIS 98SE , SRPERB(RO) 1s €2,(5P) PC IF BAD SPOT IS5 FOUND, ELSE $SEE IF BSE BIT IS SET, sBRANCH IF SO, ELSE s ADJUST RETURN ADDRESS. sEXIT tROUTINE TO OISPLAY TrE SECTOR WHICH GAVE THE HARD ERROR s CALL PC.PRTBAD JSR sCALL ROUTINE 3 016436 0l6444 016446 016452 016456 016462 016464 016466 016470 016472 016476 016502 016504 01650% 016510 016512 016514 016520 016525 016530 016534 016540 016544 016550 016556 016560 016564 016566 016572 016576 016600 016604 016610 016612 016616 016622 016626 016632 016634 016640 016644 032777 001520 016001 016046 066016 001002 005726 000207 005046 016046 004737 005716 001403 006316 21601 000410 162701 122760 001002 162701 062706 104414 104414 122760 001021 104414 010146 004737 104414 012146 004737 104414 012146 004737 104414 104414 012702 010146 004737 104414 020160 000010 162510 PRTBAD: BIT 8EQ MOV 000172 000020 000170 MOV ADD BNE 1s: 000022 032126 1ST RTS CLR MOV JSR TST 000024 3s: 001203 056473 000005 28: 000024 056546 024366 056607 024366 056611 024366 001203 056567 000010 024366 056610 000172 4% St 6%: $WRDL(RO), (SP) $RPUC(RO,(SP) 1 -(SP) $SSEC(RO, PC.$DIV sSuUB (SP),R1 (SP) 3 0256.+2,R1 &5, $CODE(RO) 3 ADD DISPLY OISPLY cMPB BNE DISPLY MOV JSR DISPLY MOV JSR OISPLY MOV JSR DISPLY 04 ,SP ,SCRLF ,LIN1iH &5, $CODE(RO) 44 ,LINI1L Ry, -(SP) PC.LINOCY ,BLNKS3 (R1)+,-(SP) PC.LINOCT ,BLNXS1 (R1).,-(SP) PC,LINOCT ,S$CRLF DISPLY MOV MOV JSR ODISPLY cMe o4 R1 ,LIN11A 1PUT THE END ADDRESS ? INTO R1 sFIND THE BEGINNING OF THE SECTOR 1SUBTRACT THE WORDS NOT TRANSFERED ;MAKE (SP) 8R SUB cMPB BNE sSuUB THE BAD SECTOR 18R IF NOY STACK $EXIT--NO WORDS XFERRED (sP) 2 1PRINT sRESTORE (SP). PC BEQ ASL 001000 000005 OSW3,85WR 84 $RPBA(RO),R1 08. ,R2 R1,-(SP) PC.LINOCY ,BLNKSZ2 R1,$RPBA(RO) THE UPPER DIVIDEND O ;DIVIDE THE WORDS XFERED BY THE SECTOR SIZE sDIVIDE ;REMANDER = 0 ? ;B8R IF IT IS - COMPLETE SECTOR TRANSFERED sCONVERT THE RESIDUAL SECTOR INTO BYTE COUNT sSUBTRACT IT FROM THE END ADORESS iFINISH THE SIZING sSUBTRACT FULL SECTOR FROM END ADDR (IN BYTES) 1WAS OPERATION READ HEADER & DATA ? & DATA ? ;18R IF NOT ;SUBTRACT MEADER SIZE FROM ADDR tRESTORE THE STACK PCINTER ;CR-LF sPRINT THE HEADER tWAS OPERATION READ HEADER ;BR IF NOT HEADER' s TYPE ' ADDR sPUT THE ADORESS ON THE STACK ;s TYPE s TYPE THE ADODRESS 3 BLANKS 1TYPE THE +PUT WORD ON STACK s TYPE 1ST HEADER WORD 1 BLANK sPUT WORD ON STACK s TYPE THE 2ND HEADER WORD 1 TYPE ' ADOR ;CR-LF DATA’ 18. DATA WORDS PER LINE 1PUT THE ADDRESS ON THE STACK 1 TYPE THE ADDRESS 1 TYPE 2 BLANKS 1PRINTED ALL THE SECTOR ? 1)) JRIVBRO RPO " PERY MAIN PROGRAM S8 016650 59 016652 [ 016656 61 016660 6o 016664 63 016666 o4 016670 oS 016674 66 016676 016702 68 016706 6’ tXER MACRD 00i41c 104414 012146 004737 005302 001366 104414 000754 104414 104414 000207 vO4.,00 1 OEC 83 6t Q DIHPL Y 056611 024266 4 ] k9 0106 Ts iBR +BULNKS] (R1)., (SP) 1 T'PE IF tPUT sTYPE 6 ;g: I: H L . SCRLF 78 5% JSCR ¢ 8s: pC LICPLF ALL 1 TE PC.LINOCT R2 001203 001203 001203 10:% :0A PAF THE DATA ON DATA ;OFCREMENT NOT iRESTORE ;CR LF ;CR LF s RE TURN PRINTED BLANK THE STACH THE SORIZONTAL COUNT AT THE THE END OF WORDS/L INE THE COUNT L INE t 99 CIRUORO RPO" PERF EXER MACRD vO4.00 1 DEC 8% 10:32:28 PAGE sROUTINE sCALL H H 016710 016714 016722 016730 016734 016736 016734 000166 000107 041364 016740 016744 016746 016752 016756 016762 016766 016772 016776 000016 000027 000002 4% 5£0 0107 TO DO A RECALIBRATE USING ACTIVE DFB RE TURN 0P8 RO PC.RECALTY 10P8 ADORESS f MOV JSR RECALT: MOV MOve RO,2 1LOAD TME OPB ADORESS 18: 2s: LI N 024444 000034 000033 000032 000012 000010 MOvB JSR . WORD B8R 187 8cQ JSR MOV 20]']:] MOV8 CLR CLR RTS $RPCS1(RO), SPREVO(RO) sSAVE ORECAL , $COMND(RO) RO,RPO7? THE PREVIOUS COMMAND ;LOAD THE NEW COPMAND 1START THE RECALIBRATE 0 10P8 1 ;ORIVER DIDN'T ACCEPT ADDRESS $TATUS(RO) 3 1SEE IF FINISHED s 1IF €EQ NO $SEC(RO) PC iCLEAR THE stRETURN TME COMMAND PC .READDOR 1DECREMENT THE ADORESSES (SP).,PREVA«2(RO) +MOVE THE CYLINDER ADORESS (SP)s,SPREVA+1(RO) 1MOVE THE TRACK ADORESS (SP)+, SPREVA(RO) tMOVE THE SECTOR ADORESS $CYL(RO) 1CLEAR THE CURRENT CYLINDER ADORESS CURRENT TRX/SEC ADORESS ;ROUTINE TO A RECAL WITH NO DPB ACTIVE : sCALL : MOve SORIVE ,GENOPB sORIVE ADDRESS PC.RECALO JSR : RETURN H PO PO ~ - NI AN N MY 90 00 [ 50 3t s 10 30 s [ o ot g&f&figsgoqgmuuwuooo CONBDBUWNFO O YO AL Ak e MAIN PROGRAM 017000 017006 017012 017014 017016 017022 017024 112737 004037 050734 000774 005737 001775 000207 000107 041364 050752 050736 RECALO: 1¢: °s: MOVB JSR GENOPB B8R TST BEQ RTS #RECAL , GENOPB +» $ COMND RO,RPO7 14 GENDPB+$TATUS 28 PC sRELCAL IBRATE COMMAND ;ORIVER ENTRANCE ;0P8 ADDRESS FOR COMMAND ;ORIVER DIDN'T ACCEPT THE COMMAND sSEE IF FINISHED ;BR IF NOT FINISHED F ) CIMIOBO RPC" PER® EXER MACRD vO4.00 1 OEC 88 10:32:20 PAGE 44 0 0108 1P Vb at,w s 12 01"} ' RE TURN READMD: MOVE nOve 4(SP) ,GENDPE » § TRX 6(SP),GENDPB « $SEC mOve (RO) ,GENDPS - Pt ND WA 0 Pub Pt [ sUTILITY READ *EADER RQUTINE 1CALL l MOV o0P8 , N0 : MOV OSECTOR, -(SP) - OO MAIN PROGRAM : 017026 0170%4 017042 017050 017054 017062 017070 017074 017076 017100 017104 017106 017112 017116 116637 116637 050745 050744 050746 016637 111087 1127%7 012737 004037 050734 000774 0057387 001773 050736 050740 1 TRACK ADORE SS OCYLINDER, -(SP) ;CYLINDER ADORESS MOV MOV 18: JOR RO ,.RPO7 tORIVER ENTRANCE B8R 1SY 1 GENDPS - $ TATUS sORIVER DIDN'T ACCEPT COMMAND 1FINISHED? MOV ADO (SP),6(SP) 06, 5P BEQ 011666 062706 000207 : L: 3 3 017130 017132 017134 017140 017144 004737 005760 001778 100405 105237 062716 0004 36 020240 000016 017146 017154 017156 017162 017164 017170 017172 032760 001441 005737 001004 005760 001025 000415 000200 017174 017202 017204 017212 017214 022737 001005 032760 001414 000404 001322 017216 017224 033760 001407 000202 PC PRESENT (4 01" OCOUNT ,RETRY PC.SRETRY JSR RE TURN] RE TURNZ2 SRETRY: JUSR PC.GODR1IV B8R 64 0013235 000002 2s: 157 8EQ Ml INCS ADO sADJUST STACK FOR RE TURN sADJUST RETRUN POINTER s RE TURN sRETRY COUNT tRETRY UNSUCESSFUL sSUCESSFUL RETRY iNOTE: IF A DIFFERENT ERROR OCCURS DURING sRETRY, THE ROUTINE EXITS TO ‘ERPRCY’ tRE-START ORDER $RPER1(RO) B8R -1 1CONTINUE RETRY cre BNE ®7 ,MASK 4% 1EWN ERROR? 8EQ BR 74 S5 1'EWN' STILL SET? 1NO, REPORT DIFFERENT ERROR tSET, RETRY 8IT MASK , SRPER1(RO) ;1SAME ERROR? 8I7 44 18R IF NOT 1DID ORDER TERMINATE NORMALLY ? 18R IF NOT 1IS ERROR MASK O 7 1BR IF NOT tMAKE SURE THAT THE DRIVE ERROR REG IS CLEAR BNE 000200 ;1OP8 ADORESS FOR COMMAND ®BIT7,8TATUS(RO) 81T B8EQ TST 3¢: » 2 1ORDER FINISHED? 18R IF NOT 1BR IF ERROR s INCREMENT RETRY COUNT BNE 000202 jWORD CTR $TATUS(RO) 1 2 RETRY.} 02,(SP) TS7 001322 s COMMAND OPERATION ' ' $ 1¢: 000016 THE 0-2,GENDPB » $MCNT 28 RTS H 1CYLINDER ADORESS tORIVE MPBER OROMD , GENDPS » $COMND GENDPS 2%: 2(SP),GENDPB .+ SCYL 1 TRACX ADORE SS 1SECTOR ADORESS MOve MOV ;gfilflv 017120 017124 OTRACK, -(SP) 10P8 ADORESS 1SECTOR ADORESS BEQ 8¢ MASK 34 7¢ #BIT1,$RPDS(RO) 7 1 INCREMENT RETURN $1GO TO EXIY 18R IF NOT 18R IF NO 1BR IF NOT CIRJOB0 MO PEAF EXER MACRD vOS.00 1 OFC 88 10:52:20 PAF 44 -} %20 0109 MAlN PROGRAN 6 001327 000207 63 017264 64 017250 004737 004737 :(: 0172% 000207 ¢S 017254 68 017260 69 017264 001323 001%24 005726 104414 000187 001323 58 AT 024354 024136 05330 007636 s e cree R TRv.] RE TRy RETRY.] s INCRE'ENT RETRY COMNT 100N ? RIS < 1 JSR IR .. PC.LINE? JREPORT DIFFERENT ERRON PRINT LINE 7 TS "C 1 RE TURN OISALY . LINOM 1'OIFFERENT ERROR DURING RETRY* REPORT Tr€ EAROR e 157 8s: SRE TRV (P). g. «C 017260 fié 017242 103287 123737 3 S8 017226 50 01°232 'OR IF 0T OONE 34 1AONUST STACK POINTER FOR DIRECT RETUAN ' 80 AN XA § "~ MEC vl mal®D yo8 00 | FC 88 10:82:70 PACE ; .:ouvm P} I S ' ’ . : ' [ * 017270 8 01727¢ 032760 001538 10 017306 166037 ® 017300 016037 11 017316 12 017316 O0O152¢ 000300 000016 000172 017870 000006 017370 017322 017330 017332 017340 122760 001608 122760 001043 000002 000024 000000 000028 19 017350 00%%0 O00044 16 1S 16 17 10 017342 20 017354 21 017342 STATIS: 063760 017570 OCC0S2 10 UPDATE 063760 017570 000062 005%0 000064 @17 o0 nnornnu.ouw-fl JO€ON FOR DATA TERWTNATION JOR IF NOT DATA TEMINATION s 8 05 (R0) . FACTOR SUBTRACT NE TUMN 000064 31 017430 062760 000001 33 017442 34 017444 000401 02.'02¢ 37 017450 38 01745 122760 001643 000002 40 017466 00%55%0 000040 42 017500 00%%0 000074 30 017428 001612 012660 000062 32 017436 00550 000060 ;2 017644 00005 2. 00572¢ 8- 000024 49: 39 017460 063760 017370 000036 4] 017472 063760 017570 000072 43 017504 016046 45 017514 012766 44 017510 46 017520 47 017524 48 017530 016046 012746 004737 005766 000072 0000764 041100 000017 032174 000004 49 017534 001412 51 017542 012660 000072 53 54 55 5 57 005560 000401 022626 005726 000207 000070 SO 017536 012660 000074 32 017546 017554 017560 01752 017564 017566 062760 000001 000066 Se: 64: 74 Thg INITIAL ACORESS FACTOR C'P8 90 C*®8 e 02.9CODE(RO) 10 00.0CODE(MO) e SEE IF COPVAD WAS A WRITE 10RAOM IF vES ,PRESENT OPERATION AN AUTO WATTE CECK o IF % a0C SUTPAS sA0D Ay CARmY A00 +COWERT TO A WORD COUNT FACTOR, SWTPAS( RO (MO ) ? +ADD MORDS MAITTEN PER PASS A00 A0C FACTOR, SWTOTL +4(RO) +A00 MORDS WMAITTEN TO REP COUNTER SMTOTL o RO) A0D MY CARRY MOV "oV "oV JSR TSt SWTOTL «6{RO), -($P) 1GET WIGM DIvIDEND 0001100, -(S#) ,GET LOW OIvISOR 0, -(sh) +GET WIGW DIVISOR #C. $0801V +OIVIDE @Y 1 x10°¢ a($P) 1010 REP COUNTER REACH LINIT vET ? (SP)e, STOTL +6(NO) 9€Q 012660 {310N T ¢ IvA BUFPER ADORESS ASR 26 017416 29 01°420 muoo) £ ACTOR sOR IF D DATA TRAMSFEN "oV 000064 041100 000017 032176 000004 +0P8 ADDRESS 7 52 017%6 016066 000062 23 017372 016086 264 01737¢ 012746 25 017602 012766 26 0176406 OC:i737 27 0176412 005766 '€ PEAF ORANCE ASPWMRY STATISTICS 0P8 %0 ec.siatgy ® Qo 18: 20 0110 OV IR "Ov 017570 008237 1 Kt: &% BRE23073232RBRENY 23TRBAS (SR % cre 1SY RTS SUTOTL «4(RO), -( P JCET LOW DIVIDEND 2 00 IF WO 1GET MIGH REMAINDER csn. SNTOTL «8(R0) JOET LOW REMINDER swioTL(R0) ion..a(uo) ! (P (SP). ,(IP)e ,UPDATE ThE TOTAL WROS WRITTEN sA0D ANV CARRY sGEY MIGH € LOW REMAINDER OFF STACK +GETY QUOTIENT OFF STACK 62, 6CODE(MO) ) 1SEE IF COPWAD WAS A WRITE ORANMCH IF VES SROPAS2(RO) 1ADD ANY CARRY RTOTL «4(R0O) ADD ANy FACTOR, SROPAS(RO) FACTOR . SRTOTL 40> .fl'OYLo‘('O).‘(é SRTOTL«6(MO), 0041100, -(95 01r.-(9) #C.00001VY a(SP) o -(SP) +ADD WORDS READ PER PASS +ADD WORDS READ TO REP COUNTER CARRY +GEY LOW OIVIDEND +GEY MIGHM DIVIDEND +GEY LOW DIVISOR sGET WIGM DIVISOR sOIVIDE BY 1 X106 s0ID REP COUNTER REACM LIMIT 108 (SP)e, SRTOIL +6(RO) (SP)e ,RTOTL «4(RO) ? JGET MIGM REMATNDER 1GET LOW REMAIND: R 01,RTOTL(RO) IUPDATE Tr€E TOTAL WRUS READ (SP). PC +sGEV QUOTIENT OFF SRTOTL.2(RO) 3] (SP)e ,(SP)e YET IF WO sADD ANY CARRY 1GEY HIGH & LOW REMAINDER OFF STACK STACK CoRm @0 - Gt ¢ MACRO w08 .00 | SEC 08 30:02:70 PR O5-3 Naly PRy #0 0111 am a *® 0170 00UO00 raCton; . O AED FER WNBE TMAaWrTALD |,l‘ (70 yie @BCT PROF ¢WO MACRD v00.00 t SRC 83 10-12: 0 PO & %o N SOSITE 1O GRY A BFTES Ge P 01 7644 01 7% 01 76454 01 resl 017608 01 760t 01772 O17¢ 74 Ol 01770 017702 017708 017710 oj17712 o17116 o17716 017720 017722 017724 20, - » [ ] SSETEIEIRILIANEY 01 7680 00146% | ] 01 7608 01 7608 01712 01 7620 01,2 01 7628 017 017132 01734 9 017372 017374 0o17% 01 7600 JANRIABATRANNL AT 8E0RSC AN a1 L e B () <.t 0P apORE -4 WAt g sTAlR JOSTED AODMESS w” L OF O TMTMg STACKH sSTACH wivs Of 280 [P Ny RFIER avAlLAAL 1 S0WE B 134008 B2 134 09 APGPER OF MPABATE QSTERS 100 17 e sval am @ I IPLT A 2T g OF MLOCATION TAg ¢ 1V TP T 1Y A BLOCKR LARCE §NOUGH oande 7 IT 9§ § COL? it s gu? Tamn OB (®1). WA 1] 17 sl 1 100 9) te@OaLse gt i 8 TAD: E Tam€ PUINTEN TR N V BEGa l B 4 IA a0rs: 4 10 STACK 1SS ot (80) . (M) RO AAT O (80) s n (80), (M) SO (RD) 9 Receoland2iRY CAan i1 =5 :‘.i.!’. LI ) Ny PRGN RO Cw? 108 17 QOIFftosCR 19 JYNO 1CPgR? @ me 4 10 0771y el e A0 NG ADI®E 3Y NE T Sy 9 QVTRS 1O WOMOY T Sy 08 100 I @t ETRY COLMY @ QP TY 00 §F AR LOCATION Tam 10ECREMENT Tam[ COLM! 10N IF 1TEm m g LAYT ENTRY POVE +PCINT TABE POINTEN 10 MERT ENIAY SOV TN JOECREYENt 1Al£ COAeY COnTivag 37 0T AT (0D OF TALL WBESTORE BY RESTONE B2 MESTORE M) |0t TURNy ¢ 70 XMc @rc* SREF e T4 WO AN 9GO MMORD 008 60 | SC 0 »0- 9020 SUE | . ) ® g N Mo 0 0177% 90177V 10 0177% @) a9 O1.vg ¢i"mag 12 11 01,701 OG1V7L) 11 O177% 01779 017708 16 O177%9 1% 01779 16 0177% 17 017%0 10 O1 7748 1901774 0 0177790 21 017798 22 017N 23 0,009 2 G088 ? 0.v19 O 10 2! G v 0 2 0.~+.2 c G ». 9 O.xp 81 0. » W W Goed 33 0. »44 84 C-»"2 3% 30 3 38 39 @) 0 16,4 ¢iesiS O .8 Oseuif ©.1i08 O ;8.4 GOOOSS Oleiml SOl 0 GO0 O-.9 00310%8 0P OQuUelR 0Ole2] 0.4 .} O-.% Onaal Olevl] Ose.m| Olu.e¢ 013'u) 01708 0108 O YO8 0Os;%8 ) C. P 42 0./0100 O a8 Or.’U% 64 U O 108 OcC: M 4 0.0113 ©0we 1Y 104 [ W X O016% O e GUUUGY 108 €% 0.1 110 47 0./0114 68 070116 a9 O.vl M 0X1% CG.W1S2 601% 0.vied 4 00148 9 o0led 3% 00166 97 00150 O %2 010108 02’08 0124921 01.42) a0 [ 4 o>a os 0 [ ¥ 1 K ed e TNANCRENY t§ x; o e "D Oy o~ " TR NG} J0Y)) ) ~oy v vy 17y ao Ot 302 — 180 pT 17 M 5 & e TR ey e8 05 BV CTam? .o AW = 8 0ACTV Q0N AREIN oF47110 §¢ BB e ey AR RN o N { . .t 0 ar "t s M w Vo wmNg, LT teg B e A A NNEN s L {8 8L w ca X v G Cw? FE S IRNTO NG IY 141| AN DA TN GLOCE 1Y IN MG TALE o9 & (B1). B XR A .y 10 Tam @ 0w BG) (B))e -y (Nt 10 tam @ osr a A Dm 85,4 M) W) |VAL W 7 (T Al WIN ) :.”'- y I WgIgnt (nter COMNY ot e 18D BFTIR I8 LOMND ADUACENY i 11800 an’td WO Cht B (") 0 W ) IS a0 RUBRE. TI L o t 1) (.~ on ,0 oo 8e. (hy) e ar v a00 ot oy a0 v 0w [ v Dy TARAL ERN< ¥ Y/ I FENTREY 8 n . O "amm @ @ 18 3 T (I e eng) piavall 1) 07U C : 0! MO BN v e, W, ATTeP g ot 00, > it @ g 1t B0 [ wt NI T 0 (YN - 4 e Dk 00 09 "oy 14 T - P L A tegion) By (8;,,.09 11 191 OuldTe 0120098 0©Olae0e YRAN S0 8 1309 89 14008 0 ow «0 g’ ) o9 'Y ] 000008 "TM ) ) W) 8, 94, SO000D 10 0 82, oy, Ge, | 1 SO0008 GO00O2 G0Le% 4KA 4 L 1] M FIe0) (81 Ouvs'e 01,02 Oee 103 Outi3? J40 WY o= oy €0 O.uu 8 ©.0e1} €3 0. e, J o e -2.0 s a.N I GOOORD N Wl L+ Dy § @Dl ©O00LIO e "2 d v oy ONOOOP OO0 X1 GSO0Y L X e OOLED Oi16 1) 4 Oy G016 GUIGMS GOS8 O ] GRS« o, 'ui O %D OUL3NVTD G-~ C.coun® C.nml G P9 Gx 7 % 31 32 33 %0 o119 . AOATE 0 AN Grvee ¢ ‘ P &) () ®)e a1).H0s) A S W81 ATILL B e . 3 10 In < a'tD BNIRY ! Im Tag Y ~-awl Bw 2 COAMNY wQ LO=EING oie g S1aCH POINTER NE ) s 570G 0D il +wul LOMER GLOMN LENGTTM ol mewul En'ar C 1.9 o8 .09 (08)e,.(B1)e (03 )e (D] )e Wk e ajr 10 CPOw .9 sl wut Y0 dgal En'BYV s rowg .y TamR @ W ve $:2€ Pt _D DOWN 14} (99) 08 (99). .00 1OR IF 0T FINIVED 1M STORE AS a2 10t MmNt Enav C am? WRESTONE Re i% it ON ¥68.60 1 GIC 85 10.%0.70 Sump O hind ~ (P ' NN (pnm L9 283 LED $aid a U ) o R Shy? CT o GFc? SR CFD NRONY Na I SEMOLAaN 98 M | WC 03 30- 0 -70 PUE ARt @ ne NS "¢ MMITED GFTI0 (F IR @ BIR OO (Wvand) oy % C e X23] @ 5w S9N W40 IS Atss WO Mg 0 LM4 W _jhidf )] Serrgan (Oos eIFRFPI N 17 V¥ M9 -t.'n.l -353331 A 2 eg » 5 Tes3e ®g § 8i 11—] ob - uo-n3m -=80 ) ve - ® -]hY ole b® _ SRCls ({)] “g=& ?.:. ey M e ASORE %8 “ A . J S X g Pattian COunt FORE Pa?TEAN O!!"!MN ha FarIEan Ong hE Meisring N CIR 08B0 BP0" PLAS MAIN PROGRAM FXER MACRD vO8.00 1 DEC 83 10:32:28 PAGE OB NG 2D int, e sSTART sCALL: : 020302 020310 020314 020322 020326 010046 010037 004037 012600 062760 005560 026060 001412 062760 005560 062760 005560 000207 020252 041364 000001 000052 000034 000012 000001 000050 000100 "ov s GOORIV: nOv 18: 28: SEQ 0116 COMMAND FOR Te€ DPB IN RO JSR RE TURN : 020240 020242 020246 020252 020254 020256 020260 020266 020272 020300 T 49 . RO o0P8 .GODR1Y 1CURRENT DP8 ADORESS MOV JSR HALT 10P8 ADORESS 1CALL THE DRIVE HANDLER sORIVE BLOCX ADORESS GOES HERE SP)«,RO 01, $0PERC(RO) S$OPERC +2(RO) sORIVER REJECTED REQUEST 1RESTORE RO s INCREMENT THE OPERATION COUNT S$PREVA2(RO), SCYL(RO) 1010 COMMAND REQUIRE A CYLINDER CHANGE ? 18R IF NO 3 #1,$SEEKS(RO) $SEEKS+2(RO) 01,$STOTL(RO) 000076 3. ;(S:VOTL +2(RO) s INCREMENT SEEK COUNT PER PASS sADD ANY CARRY s INCREMENT SEEK COUNT TOTAL ;sADD ANY CARRY t Vo CIROOBO RPO" PERF FXER MACRDO vO4.00 1 DEC A% 10:3.:28 PALF SC 5EQ 0117 MAIN PROGRAM 1 thUT"( ' 3 MUV : RE TURN iy 1CALL 4 s H ] ¢ 3 8 sWHERE 9 ig 005760 001010 005760 000054 18 020344 19 020350 20 020354 012704 004737 000453 000010 021412 22 020356 23 020364 116060 016060 000166 000010 000027 000032 25 020400 S? 020406 016060 016060 000174 000222 000010 000012 28 020414 012704 17 020342 21 24 020372 29 020420 gg 020424 32 33 34 35 36 020426 020434 001005 016060 004737 000427 : H ‘W’ ‘1 COMMAND= COMMAND -3} O SEQPAR: TST BNE 187 $OPERC+2(RO) 1 $SOPERC(RO) :IS ThIS THE FIRST OPERATION ? :BR I NO 1 IS THIS THE FIRST OPERATION ? MOV JSR BR 03SEC,R4 PC.CKLMTS 3 1GET INDEX TO SECTOR ADDR STORAGE IN DPB 1GO CHECK DISK ADORESS LIMITS 18R IF NOT AT END OF SEQUENTIAL ADODRESSING MOVve MOV $RPCS1(RO), $PREVO(RO) $SEC(RO), SPREVA(ROD) ;1 SAVE CURRENT PARAMETERS :SAVE PREVIOUS TRACK/SECTOR ADDRESS MOV MOV $RPDA(RO), $SEC(RO) $RPDC(RO),$CYL(RO) sCURRENT SECTOR & TRACK ADDRESS sCURRENT CYLINDER ADDRESS 020442 020450 020456 000146 000142 38 020466 004737 031500 37 020464 001473 39 020472 032777 :é 020502 000744 40 020500 001467 000136 000004 177776 000020 012704 013705 004737 000010 001466 021572 47 042760 000377 020524 48 020532 49 020534 S0 020540 010560 001002 000020 000021 000020 52 020554 gz 020560 105260 016960 016060 005460 012760 55 020566 56 020572 S7 020574 105760 100407 112760 000026 51 020546 MOV 2s: 000010 000011 000012 000024 000026 MOV 000020 000004 000400 060004 sGET INDEX TO SECTOR ADOR STORAGE :GO CHECK DISK ADDRESS LIMITS 18R IF NOT AT END OF SEQUENTIAL IN DPB :BR 0SuO4 , 8SWR 100 NOT DROP DRIVE AT EOT (SwW04a=1) tMUST SURE ADDRESS IS NOT ‘BSF' sRESET tRESET SECTOR ADDRESS TRACK ADDRESS MINCYL(RO),$CYL(RO) tRESET CYLINDER ADDRESS 04, $CODE(RO) 1SET CODE TO READ DATA 0-2,3PACK(RO) :WAS WRITE DATA IN PROGESS ? PC.SEOP IF YES (START TESTING, sTHIS IS THE END OF PASS @$SEC, R4 WROCNT RS PC.,CHRUC $GET INDEX TO SECTOR STORAGE sWORD COUNT IS MAXIMUM sCHECK WORD COUNT FOR MAXCYL/MAXTRK 8IC #377,8WROLCRO) ;IS 000022 000024 TST8 8MI MOVB 4% NO COMMAND) MOV MOV JSR RS, $WRDL(RO) IF 'T* 9 28 18R ADDRESSING BEQ BNE S¢: 0$SEC,R4 1SAVE PREVIOUS CYLINDER ADORESS 8 MOV 4%: $CYL(RO),SPREVA/2(RO) BEQ INCB MOV MOV NEG MOV 000004 000120 18R IF NO MINSEC(RO), $SEC(RO) MINTRK(RO), $TRK(RO) 8IT 000020 18 (NOT USED IN ROUTINE) MOVB MOvVB JSR 3s: 1 PC.CKLMTS 3 MOV Move cMP8 160454 COMMAND- THE FOLLOW NUMBERS; JSR BR B8R 43 020504 44 020510 45 020514 46 020520 1: 000034 021412 116060 116060 016060 112760 122760 R BNE 000010 sGET COMMAND NUMBER sCALL ROUTINE 2 ‘Wl OF :0PB ADDRESS COMMAND 000052 000012 ONN, SPACK (RO PC,SEQPAR THE DIcw CAN BE ONE : 14 020330 1S 020334 16 020336 0P8 ,RO MOV JSR OF 'NN' : 10 i1 TO SETUP PARAME TERS FOR A SEQUENTIAL READ OW WRITE $1GET WORD COUNT IT LESS ;18R IF NO THAN ONE SECTOR WORD ? TRACK COUNT SWRDL +1(RO) 1SET TO ONE SECTOR SWROL.(RO), SWCNT(RO) tSTORE FOR 2'S COMPLEMENT WORD S$WROL(RO), $HLDWC(RO) ;HOLO WORD FOR 'RELBUF' ROUTINE SUCNT(RO) 1CHANGE WORD COUNT TO 2'S COMPLEMENT 0256.,8SSEC(RO) ;SECTOR SIZE FOR READ OR WRITE $PACK(RO) 64 04, 4CODE(RO) 1'R* OR ‘W' COMMAND FOR tBR IF WRITE ;CODE FOR READ DATA THIS DRIVE ? ? CIRUCBO RPOTM PERF MAIN FROGRAM <0602 020610 el 020612 6 <0616 63 020620 67 020626 68 0206 34 020640 020644 S8 € 020652 020654 020660 020664 020666 txER MACRD VvO4.00 112760 000415 00578%” 001366 112760 112760 004737 110560 012760 000207 000171 105060 005060 005726 000137 000026 000130 1 OFC AR 00000 001424 000002 000161 021352 000030 177777 006340 L N 000024 7%: 8%: 9 S0 1 0 0118 MOVE AR TSt BNE ORDDAT, $COMND(RO) ;ORIVE CODE ¢ OR OPERATION s ;OET UP FOR EXIT RDONL v t+LOCKED IN “READ ONL Y MTMMODE ? 5 ;BR IF YES MOvB QWRTDAT, $COMND(RO) MOvVB 000002 000i30 10:2,:°8 PALE o 02, $CODE(RO) sCODE FOR WRTDAT JSR PC,.GE TPAT tGET PATTERN CODE MCV RTS 0 1,SNEXT(RO) PC ;RETURN CLRB CLR 157 JMP $PACK(RO) SNEXT(RO) (SP). MAIN ;SET T COMMAND FLAG IN DPB TABLE ;CLEAR 'PARAMETER SELECTED INDICATON sCLEAR STACK LEVEL : JUMP TO MAIN BACKGROUND L0OP MOv8 RS, $PATTC(RO) ;OP CODE ;:PATTERN CODE ;SET PARAMETERS SELECTED INDICATOR CIRUOBY RO" PERS JO N D nt,m MAIN FROGRAM t XER MACRO vO4,00 1 OEC 83 10:85.:28 PAGE iGENERATE sCALL ; 020672 020676 020702 020704 020712 020714 020720 020724 020730 020732 004737 005787 001016 032777 001012 012703 004737 020537 037206 001424 012705 000407 000002 020740 020744 020746 020752 020756 020762 020770 013705 037306 042705 062705 110560 016060 016060 177776 020736 103003 MOV : RE TURN GENPAR: JSR JOSR 197 160242 000010 032102 001502 000004 000122 000174 000222 020776 021002 021004 021010 021012 021016 005737 001427 005760 001003 005760 000052 021020 021024 021030 021032 021040 021046 021054 021056 012704 004737 000412 116060 116060 016060 000761 000137 000124 021412 001405 PARAMETERS FOR f H 0 0119 Tt 10PB ADDRESS PC, SRAND 1CYCLE 8., sREAD/WRITE PC,GENPAR ROONL ¥ 18 OSWO, ISWR 18 000124 000126 MOV 28: mOove 1¢: MOV 3. JMP READ OR WKITE S$LONUM RS 1SELECT READ OPERATION CODE 04 RS RS, SNCODE(RO) 1 TABLE OFFSET FOR READ CODE 1COMMAND SELECTION COOE 7O CONTROL BLOCK RS o*C1,RS 1 SELECT ADDRESS sSWAP BYTES IN RS $MASK OUT ALL BUT BIT O $RPDA(RO), $NSEC(RO) $SECTOR AND TRACK sCYLINDER NUMBER RANDOM RANC YL tENABLE RANDOM ADDRESS SELECT s YES 1 $OPERC(RO) 1BR IF NO ;IS THIS THE FIRST OPERATION ? 2t tBR OSINSEC . R4 $sGET 38 :BR PC.CKLMTS ? $1IS THIS THE FIRST OPERATION ? IF YES INDEX TO SECTOR ADDR STORAGE 1GO CHECK MINSEC(RO), SNSEC(RO) MINTRK(RO), SNTRK(RO) 2%: IF 1BR IF READ s SELECT WRITE DATA COMMAND SOPERC +2(RO) 000124 000125 000126 sDETERMINE ? SELECTION DIVISOR 1GET SELECTION VALUE $RPDC(RO), SNCYL(RO) THEARD: THE RANDOM NUMBER GENERATOR sLOCKED IN “READ ONLY TMODE 18R IF YES 1SEE IF SWO SET 18R IF SET - READ OMNLY 1 02 RS 28 18: OPERATION 0P8 ,RO RS,RATIO 000054 021230 .o PC,GETREM 001510 000146 000142 000136 S1 DISK ADDRESS LIMITS sRESET sRESET SECTOR ADDRESS TRACK ADORESS IF NOT AT END OF SEQUENTIAL MINCYL(RO), SNCYL(RO) sRESET CYLINDER ADODRESS 18 tRE-CHECK FOR 'BSF' TRACK RANSIZ 1GO CHECK FOR RANDOM WORD SIZE IN OPB ADDRESSING SRUORO RPOT PERF MAIN PROGRAM EXER MACRD vO4.00 1 OFEC B3 10:83.°:28 PAGE sGENERATE 021062 021066 021072 021074 021100 021102 021106 021112 016005 001407 166005 005205 004737 010560 000134 000136 RANC rL: 032102 000136 000126 MINCYL® MAXCYL(RO),RS 1GET MAXIMUM CYL INDER ADORESS 8eQ 1% 1BR cP MINCYL(RO),RS MINCYL(RO),RS RS PC,GETREM MINCYL(RO),RS RS, SNCYL(RO) 3 MINCYL: IF AMD "'MAXCYL® THEY ARE THE SAME ? tGET NUMBER OF ALLOWABLE CYLINDERS s INCREMENT DIFFERENCE TO USE AS DIVISOR sGET THE RANDOM AUGMENT 1tNEW CYLINDER ADORESS t1STORE CYLINDER ADORESS IN DP8 1GENERATE A RANDOM TRACK ADORESS BETWEEN VALUES 'MINTRX' 021116 021122 021126 016005 021134 021136 021142 021146 005205 004737 066005 110560 02113%0 001407 166005 000140 000142 RANTRX: MOV 000142 SUB INC JSR ADOD 032102 000142 000125 Crp Move £ ‘MAXTRK' MAXT" K<(RO),RS sGET MAXIMUM TRACK ADORESS 18 18R IF MINTRX(RO),RS BEQ 1¢: MINTRK(RO),RS RS PC.GE TREM MINTRK(RO),RS RS, INTRK(RO) s 'MINTRK®' AND 'MAXTRKX' THEY ARE THE SAME ? 1GET NUMBER OF ALLOWABLE TRACKS s INCREMENT DIFFERENCE TO USE AS DIVISOR 1GET THE RANDOM AUGMENT sNEW TRACK ADORESS 1STORE TRACK ADDRESS IN 0P8 sGENERATE A RANDOM SECTOR ADDRESS BETWEEN VALUES °‘MINSEC‘ 021152 021156 021162 021164 021170 021172 021176 021202 016005 026005 001407 166005 00520% 004737 066005 110560 000144 000146 RANSEC: 000146 032102 000146 000124 1MAKE 021206 021212 021216 021220 021224 021230 012704 004737 000124 021412 004737 000137 037206 021062 2%: & MOV MAXSEC(RO),RS sGET MAXIMUM SECTOR ADDRESS 8EQ 1 :1BR Crp MINSEC(RO),RS suB MINSEC(RO),RS ADD MINSEC(RO),RS INC JSR 1¢: & "MAXCrL® MOV ADD MOV 18: 5EQ 0120 A RANDOM CYL INDER ADDRESS BETWEEN VALUES SuB INC JSR 000136 f 1O &2 R5 PC,GETREM MOve SURE MOV JSR B8R JSR JMP R5, $NSEC(RO) ADDRESS JUST :'MINSEC' AND ‘'MAXSEC’ THEY ARE THE SAME ? 1tGET NUMBER OF ALLOWABLE SECTORS s INCREMENT DIFFERENCE TO USE AS DIVISOR 1GET THE RANDOM AUGMENT i1NEW SECTOR ADDRESS 1STORE SECTOR ADDRESS IN DPB GENERATED OSNSEC , R4 PC.CKLMTS 2 PC, $RAND RANC YL IF 'MAXSEC’ IS NOT 'BAD SECTOR FILE' ;GET INOEX TO SECTOR ADDR STORAGE IN 0P8 :GO CHECK DISK ADDORESS LIMITS 1BR _IF NOT AT END OF SEQUENTIAL ADDRESSING 1CYCLE THE RANDOM NUMBER GENERATOR +GO GENERATE NEW ADDRESS CTRUOBO AP(" PERF EXER MACRD vO4.00 1 DEC 83 10:32:28 PAGF S8 10 580 0121 MAIN PROGRAM 1GENERATE 0212% 021234 A RANDOM BUFFER LENGTTM BETWEEN 6 € THE 001466 001%00 021262 018%70% 0057837 001011 00520% 004737 020527 002003 004787 000762 037206 18: 021264 021270 012704 004737 000124 021572 2s: mov JSR PC . CrexuC 021274 021302 021304 021310 021312 021316 122760 001005 042705 001002 012705 010560 000002 LI ¥ cr8 BNE 02, $NCODE(RO) a8 BNE 'Y 021240 0212482 021244 01250 021254 021256 RANSIZ: MOV 197 BNE INC JSR 032102 000006 cw 000122 000377 8Gt JSR BR 8IC 000400 000020 a8 MoV MOV WROCNT RS RANDWC 2 RS PC.GETRENM RS, 06 2t PC. SRAND RANSIZ OSINSEC .Ra 0377.RS 0256 . RS RS, SWRDL(RO) VALUE IN ‘ WROCNT' 1GET MAX WORD COUNT 1SELECT A RANDOM WORO COUNT ? 18R IF NOT s INCREMENT THE MAXITMMUM WRD CNT 10IVIDE 8Y MAX VALUE sWORD COUNT LESS TraANn 6 ? 18R IF NO sCYCLE THE RANDOM NAFMBER GENERATOR 1GET INDEX TO SECTOR STORAGE 1SEE IF WORD COUNTY IS TOO LARGE T0 FIT 1IN REMAINDER OF TRACK, IF SO, THEN ADLUST sWORD COUNT sWRITTVTING PARTIAL 1BR IF NO, tWRITE AT ON TRACK, TO FIT tWRITE OPERATION ? 18R IF NO ELSE, LEAST 1WORD COUNT SECTOR ONE ? SECTOR ;GET A RANDOM PATTERN NUMBER 021322 021330 021332 021336 021342 021350 122760 000002 110560 021352 000123 177777 001004 004737 012760 000207 000122 000130 RANPAT: RANXIT: CMP8 02, $NCODE(RO) sWRITE OPERATION ? RS, SNPATC(RO) :GET PATTERN COODE tMOVE PATTERN COOE BNE JSR RANXIT PC.GET®ATY MOV RYS ® 1,INEXT(RO) PC 1a 01"] ) 1BR IF NO TO CONTROL BLOCX sSET PARAMETERS SELECTED INDICATOR 1RETURN sROUTINE TO SELECTY A PATTERN 021352 021356 021362 021364 021370 021372 021376 021402 021404 021406 021410 012705 005737 001403 013705 000020 001476 004737 004737 005705 001762 037206 032102 000207 GETPAT: MOV 157 BEQ 2,00 001476 1¢: 2s: €16. RS PATTERN 1 PATTERN,RS sSELECT PATTERN ;E:gaa.e RANDOM PATTERN SELECTION ? s ¥ lU“?E INDEXED PATTERN BR 28 JSR PC.GETREM sCYCLE THE RANDOM NUMBER GENERATOR :GET COOE GETPATY RS 1BR IF YES sMAKE CODE JSR PC. SRAND 1sT RS RTS PC BEQ ASL 3 1WAS PATTERN 2ERO SELECTED INTO TABLE INDEX ? CTRIOBRO AP0~ PLAr =00 @ Ao ar,m MATN PROGRAM EXER MACRD vOSs.00 1 JEC 83 10:32:20 PAGE b $ri g3t ot 3 3+ KB RNERBURN NS 2o raui (+10 76Q 0122 s TMIS ROUTINE IS USED TO COrECX ADORESS LIMITS QEFORE T NEXT COPMMAND 1IS PERFOR*RD. ALSO, IT WILL OECx FOR MAXIMUM ADORESS LIMITS TO L OO 1FOR AN END TO TrE SEQUENTIAL ADORESSING AMD WILL MAKE SURE TM€ CURRENT 1ADDRESS 1S NOT Te€ sCALL: ' MoV OV JSR R ...... Tt S4 'OAD SECTOR FILE’ o0P9 . RO SPOINTER A4 PC,CxLnTs m ;0P8 ADORESS sPOINTER TO SECTOR STORALE (S$SEC OR SNSEC) INn DPB 1CALL ADORESS LIMITS ROUTINE IRETURN *ERE 1ELSE, METURN IF NOT END OF SEQUENTIAL ADORESSING HERE TO RESET CISK ADORESS 1RO « DPB AQORESS BEFORE CALLING TE AOUTINE 1R4 - POINTER TO SECTOR STORAGE GEFORE CALLING TeE ROUTINE 021412 021414 021422 021424 021432 021440 021842 021450 021454 021456 026460 016064 126460 002008 116064 121460 002002 110014 000136 000136 000001 000002 000142 000142 000146 CxLMTS: ADD e 2(!0) nINCYL(RO) MOV MNINCYL(RO), 2(N8) OGE 18: 28: o, o ] oGt "ove (@, o | 0GE nOove 000146 1 1POINT TO SECTOR STORAGE POINT IN DPS 318 CYLINDER ADORESS BELOW MIN. 1R IF MO sRESEY CYLINDER TO MIN, 1(Ne), flt’"fl(”) 11IS TRACK ADORESS BELOW MIN. 29 1OR IF NO MINTAK(RO) 1(RE) IRESET TRACK TO TMMIN. (R4) MINSEC(RO) ;IS SECTOR ADORESS BELOW MIN. ? S ? ? sOR IF N0 NINSEC(RO).(RS) ;AESET SECTOR TO MIN. 1LOOK FOR MAXTMUN LIMITS, FOR END OF SEQUENTIAL ADORESSING AND sALSO CrECK THAT ADORESS IS NOTV ‘GAD SECTOR FILE' 0216862 021466 021470 021474 021500 021506 021510 021514 021522 021526 021534 021536 021542 Ss: 000144 000146 020001 000140 gfl)JMAXSEC(RO) |2 ;EC:‘? ADORESS AT mAXIMUM ? nOve MINSEC(RO),(M4) RESET SECTOR ADORESS S6: (@, ] 8LE mOve "mOve uu).mm«no) 1IS TRACKX ADORESS OVER MAXIMUM ? 6 1OR IF WO MINSEC(RO), (R4) .aeser SECTOR ADORESS MINTRX(RO),1(RE) 1RESET TRACK ADORESS 68: cre 8LE 2(R4) MAXCYL(RO) 1IS CYLINDER ADOWESS OVER MAXIMUM ? 7¢ 18R IF NO a8 000146 000142 000134 INCS 1(R4) s INCREMENT TO NEXT 2(R4) s INCREMENT TO NEXT CYLINCER ADDRESS :':’.(SP) 1ADJUST RETURN TO RESET DISK ADDRESS PARAME TERS MoV FEL(RO), -(SP) sGEY 1ST FE CYLINDER (LAST C¥L»1) c BNE 2(R&), (SP). as 1ARE WE ON LAST USER CYLINDER ? B8R IF NO BEQ RTS 4 PC INC :20 021544 021550 021552 021556 021560 021566 021570 Cree 78: DEC cr8 000154 8s: (SP) 1(R&), TRKLMT(PY) TRACKX ADORESS 1CHECK NOT TO RFAD OR WRITE BAD SECTOR TRACK sLOOK AT LAST USER CYLINDER ;IS THIS THE BAD SECTOR TRACK ? 18R IF YES sRETURN CIRJOPO PO PLAF NAlN PROCAMN ¢ XEA MACRD vO8 (O 1 OEC 8% 10:%2:20 Pauf S5 H10 4@ 0123 ! JTWIS MOUTINE 1S USED 10 CALCWULATE MO OECY NG wORD COUNT FOR he . (CTLINDER. 1IF Trg cncu.n'to MAXIM WORD COUNT, : (ORIVE TwAl IS 70 DO A DATA TRANSFER ON Te€ MAXIISN TRACK OF Trg@ Maxpa® ERCEEDS TM€ OESINED wWORD s JCOUMNT (CONTENTS OF WS), THEWN TE D€ SIRED WORD COunT IS CrANGED. SO Trat ® [} . ‘ s 'c':: WORD COusT WILL nof A TRACK OVERSLOW DURING THE TRANS) EN. . ' 9 L ’ :g 12 "oV "oV JSR 0”9 .00 +0P8 ADORE SS C. O 1ICAlL OO MORD COMT AOUTING SPOINTEN. NS 1POINTER TC SECTOR STORAGE ( 9SEC OR SNSEC) 1N OP® : RE TuRN JRETURN WITh S CONTAINING T*@ OESIRED WORO COUse? [} 180 o DPY ADORESS BEFORE CALLING NE AOUTINE 1t 1A8 o POTNTER TO SECTOR STORAGE GEFORE CALLING TE AOUTINE 16 021572 17 021578 16 021600 060008 105760 001023 OouC: 000166 19 021602 126060 000188 000152 20 021610 003017 22 021616 001010 021626 001004 021630 0216% 021640 021646 026064 001022 126064 001016 021650 111404 021652 021654 016046 160416 21 021612 103760 000162 23 021620 126060 000180 000154 021660 021662 021666 005004 062704 005316 021670 40 021672 41 021674 42 021676 002374 00572¢ 43 021700 01040% :; 021702 000416 46 021704 016046 005316 49 021716 001010 50 021720 51 021724 52 021726 53 021730 54 021734 55 02173 56 021740 000140 000144 000400 000002 000001 18: 24: L1 K 026426 016046 005316 005046 116416 022626 001744 000207 "0 .0e vmstcuo).ucud(no) 1ST8 187 e SLE 020504 003420 47 021710 48 021712 000134 AOD 1323130 (WS o DESINED MORD COUNST BEFORE CALLING TrE MOUTINE RREZE3 x;:a i; L1 N 000002 000154 1 nncvuao) 3(00) m'.(”’ 1(Me) ALLOM SPTRAL AD/WRT ? On IF .nuo- SPINAL RONAT ? Ir 0 mt.(”).mi!‘(QO) 1 ? 1ALLOW SPIRAL RO/WAT ? tOR IF w0 ID(N SPIRAL RO/MAT IS ALLOWED, TeEN CECK 170 MAxE SURE YOU DO NDT SPIRAL OVER MAx[raM 1TRACK O MAXIMUM CYL INCF R On MAXIrU CYL INOER 0N O MAXIUM TRACK 7 ? ) 00 I¥ 10 (R4), N4 1GET ne 0236. .M (sF) 1CLEAR R4 1ADD | SECTOR OF WOROS TO Re 'OOME ALL SECTORS YET ? O‘OM' MORD COUNT TO FIT On REMAINDER OF STARTING SECTOR (9SEC OR INSEC) MAXSEC(RO), -(SP) 1GET MAXTrUM SECTOR Re,(SP) 1GET NPBER SECTORS TO BE XFERO 3¢ (SP). R3.Re S 108 IF MO IRESTORE STACK 1700 MANY WORDS FOR TRACK 18R IF NO FEL(RO), -(SP) 1GEY 0eC Cre (SP) 2(R4),(SP). 1LOOK AT LAST USER CYLINDER ONE 34 1BR -(SP) 1(R4),(SP) 1PUSH STACK S 1 YES, tARE CrANGE TRACK ADORESS ? MoV CLRm nOve Se: WINTRX(RO) .auou SPIRAL RD/WRT %0 R4 . RS MOV 0eC 000001 2¢ «POINT 10 SECTOR STORAGE POINT IN OP® MOV OR 00015 MINSEC(RO) 20 WORD COuNT 1ST FE CYLINDER (LAST CviL.1) WE ON LAST USER CYLINDER IF ? MO TRXLNT(RO), -(SP) 1GET LAST TRACK (SP) 1LOOK AT NEXT TO LAST TRACK cre 8€Q (SP)e,(SP)e 2 |Ts PC 1GET CURRENT TRACK 1IS 18R IV IF TRACK BEFORE BAD SECTOR TRACK ? YES (DON'T ALLOW SPIRAL TO BAD SEC TRX) CTRJORC BPOT PLAF (RER WMACRD v MAIN PROLRAN 110 OC | JEC 83 10 32 -1 Parsd % : ~ .lcnmt( Ny . s ‘ : S e 0C.CE O oC.LODPAR (CENEPATE Tog Samarg TN, ILOMD THE PARMPETERNS AST GENERATED 6 021742 010%6 9 021764 105760 000026 LODPAR; OV 1579 "3, .(9) »aou-ln 1S w3 o' 1 COPMND FOR TwIS ORIVE ? g 10 021730 001127 12 021760 162760 177701 000027 3 02177 001007 016060 000012 000034 022014 004737 0264844 112660 000032 : "~y ' Qg U " -~ ~ [ ) £ 022008 022012 016060 000410 022020 022024 012660 112660 022034 003337 022030 022080 072042 0220%0 0220% 022060 022070 02207 022108 022106 002007 013737 03277 0016183 122760 001060 112760 112760 000431 116060 000010 000034 000033 0222% 0222%4 000100 241 0227% 15%707¢ 000131 000002 000002 000361 000024 000002 000122 000028 001012 122760 00143} 000060 42 022154 112760 000008 000V24 000123 000124 000126 000400 000001 000030 O00CO10 000012 000022 000024 000002 000020 000020 000004 000022 000004 000120 022252 116060 016060 016060 012760 132760 (01408 062760 016060 016060 005460 012609 000207 022254 000000 000000 13t 022134 02213 022144 022126 0221646 022162 022170 Q2176 022208 022212 022220 022222 022230 022236 022244 022250 122760 000122 002076 000151 112760 000171 oIS 16, 116005 11650 L4 eI 000032 022114 022120 N 83 ~ve 021766 132760 OONOOS 000122 © ) 3 3334 33 340 bt by " on 0s 0 it fi eYXV ¥¥°] 11 021732 116060 000166 000027 8¢ 4&4; O000002 000002 000027 000002 S4¢: 69: ITCNT: 235333822333 23z3R3asy !ggxgzagaa ggsthgx . 10 GET 40 0126 .WORD TMTMg PREVIOUSLY SELECTED PARGE TED vaL 25 o0%g .80 1009 20O SS 00 ¥ w0 o‘csu-o) SORE vO( 80 ) *C 76, SONE vO( RO ) “.néum-o) R IF EIVEN 0SEC(RO), IPREVA(RO) a0 YSTAIP GO.AMD IE O1'S -!! IF MEXT OPERATION IS AEAD OR WRITE ‘C'L(”).n'loé(fl) #C . R 00N snvt CURRENT Panare TERS 13AVE STARTING CVL INOEN 1SAVE STARTING SECTOR AD TRACK dfl' DR OECRE'ENTED SECTOR AMD TRACK ADOMESSES (SP)e , 0PNEVA-2(N0) (SP)e , 0PREVA.1(NO) (SP)e , WPREVA(RD) 1ICTLINDER ADORE SS s TRACK ADORE 5§ sSECTOR AOORE SS ITONT .2 JREPEAT TMIS COPWID AGAIN ? 3 ITONT 9N IFr vES RESTORE ITERATION COUNTY ITCNT 3 M.“ LOOP O PREVIOUS YALLES (Swbel) ? 0N IF w0 m $COeD( N0 ) o dx’ COYWD A MRITE OECx DATA ? SCODE(RO) ,CODE FOR WRTDAY uivoat $CORD(N0 ) WPUT WMRITE DATA COMPLNO BACK FOR LOOP m(n).m(n) sLOGICAL CODE FOR OPFRATION COnMTRL(AS), oC 1 COrewND CH0E $MCOOE (RO ) A3 filw N3 FOR USE AS TABLE m.m INOG X 118 MEw COAND A WRITE OHECK DATA Se 060, IPREVO(RO) Y . )¢4 .us PREVIOUS COPPWAND A WRITE DATA OR IF vES 08, 0CODE(ND) 1CODE MSBER OWILED TO READ DATA ? ? c-oon.ocomad 1CHANGE WRITE E O CK TO READ DATA COMMAND WPATCI(ND), WPATIC(RO) ONSEC(RO), $SEC(MO) CYL(RO),0CYL(RO) PATYERN CODE 1 TRACK AMD SECTOR ADORESSES 1ICYLINDER AT RESS 0236 . ,0SSEC(MO) INITIAL VALUE OF <:. :}.ocwt(no) WWEADER OPERATIOM PC 1 RE TURN 0.0 1 ITCNT UR SIZE O IF NOT 02, 0SSEC(NO) |m MEADER SI2E SWROL (RO), SWCNT(RO) 1GET WORO COMT AND $.ROL (RO), $+.0MC(RO) tMOLD WORD FOR ‘RELBAUF' ROUTINE SWCNT(RO) PAKE 1T 2°S COrPLEMENT (SP)..RS 1RESTORE NS CONTAINS THE NMUMBER OF TIMES T0 (7@ M G0c” 4@ Naly SwO0am ¢w@ "R 908 00 | SRC 03 10- V70 Pags % § JI10 “9 PR AY *te SO TN CALs ¢] L") ot [] o8 o0 O.. 28 “ Or. 740 73 02:272 g (vunD o ITONT2 Yl *d L ) 67 022240 te 018 ] s 016111 00002 ©007? 000207 0 COPMEYS A LISY S ag T Ovagy: Wy >0 008 72 et L 14 IS @ COMTER ary oaQDRy M COPPRESS LIST STARTING AT WIS AQDDAE SS ?Y..l).(.l) COvagss g Tam¢t In W) .0y 100 weEw IR0 FOND 1 INC e gyt o B) \-'¢4 Covagssing Tl d e () vas 09 | SEC 63 M YAl (DTN MOV TR S TR Y ~u gee ceecece n YT PR P I ' v oars} .'\ j0seoy S0LF0 ? |<diBed Oro00 LthaEy: 1% 804 @01 yoi 01t e . ] oy 1 1) 21 o1 2 TWeIBIT Voot (Bt Del) P 0w R N ¢ Y4 «m r F I 'Swt?Ow 30 MY ? o 10N g BNy, o) oy 10y G.5r M e St § .o r or 3 ». 9 L.~} .A1°° - oW .t g oy oty o Yooy Pus 00 0’0 (angh &' QAP TRa(w/Yg("' W 1'0P:g Gy Sy 4] G s ooag @y PR Srea o Ge0A oy oo o 920288 e .410 412 .40 40 . 4% Y] " s o de as 1" ¥ @01 >08 O “r 0l 01,3 116008 Lo 37 O 100 a0y prrr0} 0. f" O~ 390 O©a. ’08 Ouary? )/ 24 Ocjead 012°)? §1e008 Oas708 ©Ouar)? 00042 OU " | URV) v % e % L *7 % Y gt ‘ oLle0y 104709 oL 8 ouo ! OO0 Y08 00 W18 Ooue 3% 012737 060337 | T 1) 002126 0500 YW REEN PNy :a A 'Yy WPRCY ey W' (WISt WD Onf! (P) a Gag e e 00 oo .il00) 08 C.40 o EEEE WON WS e B9 G ssPm B8 O §7Cn §74CH 1A B3 O FRD ¢ N §74Cn (B P 0L a0 "E1%AcE AOORESE STORAER s ew i, By L 3000 A s LYY sy GROEN t ¢ © Md ,u! ha IPCTE 12 Ay 3. APICAT QITS W1e9g @ Pinnt -n-ous Y [ X ] "y b ) LDhera QA ~®. 80 3. 1! NIl Lniny N0 N |-1} A0S OF PEEVIOU CROER o * Ml 91cC JIR 0°C .00 .10 194« OPALY S AP ICANT 91V 1Tt hd PR sIONG 2] OOM(05) .00 Ot g TAGLE DOER WO FOB @ OPCaae o ] gr1rog o ssnssy as, () 8, (V) mOv T BY ) L : fitisics £ .4 . 4% v ~ v t o 4 174 400 VY 01 0% ° ‘0 LPad bod ~ £ 9 Exs8ELE s OSIER A0R ¢ ERE223 010% ¢ CPUER u--z‘-:n 'O agDe .y OB D) o 0QA vy AENAR § TR BRIOPTIN ot PG P r CRROD 0 Ay 1) Ar A 1T QLA TR g ¢ PEEsut GICH® o s2:8 eopoO0O epppeoppocorecerercroceg EIKZ8e82820282838r3E2R8d . |344 003010 190042 %ne N (AR | (IEin’ION GBS PR Cad S BN LA 3L,4 Y10 2-Ja Pagk 37 A BIIIASIY e el Ree wvoana .i BT GREr [] L X 1379 e vO( 00 ) . N8 LDdaa 7] ?'I.(fl) oy I ] as ASL «y on A hS Oy 400 20 o3 as ool ".% N XSSWLTINS Wds ] V| e18 100 wEn OCI0E COm? o PCODE WOOM FOR 0@ OF 'amp 8 N Al] sICneg ! @ POINTEN (' - O OO OF TALE R AN § 19171 g INOER 98 7 1177 D@ Ine AL AESS OF AL TEaY TAMS 100 vd DOt - légli}igl LEm. ] . | TN "~X LY AXAIVT ""}‘ 'y S O p = oD W v ¢ NS A '\v‘? ..'.\ kP 0 iXiX .(. \' haatild b 42 K Y X . KA 3.} () -~ mig mres® ,': ., "wg? TM . w9 ! .-'3 stagn o.be we 1] ] o W o G'u.l! =. N MY TR B it g ® pwe g b 1V otang DY RGNS AN | il 110D 99? RREILV SN RS . N urn.fi .'-‘3 fi. LI P, (P) e hg hq () Tvig 01y 1AL P e N ony S Moeiyreny it 30 e . Qe [ BN, .19 L J TM |34 b & Lo -w 3 O BP9 ARCINTED 4 A0SR 0P sum PO BTM Dats It o JSuiut @ 0o 137809 08i10.07aNN(08) ,0478 tamgn § Fo od r w0!? WL (09) . (8P) (w 0 M alnC WP COMY 1C sovtnt 10 am Qv Qg I ngr@End R (09), - (W) ,'avwed SIN (09) () s ey ADORe 3§ (49 )e, SRPRA(RD) ,( (Y BF7RS ADLAR 3S P Fenas L T A (99) 8 (39)e .00 ($9)e A8 oC (0%)e, 1954 ORI MO WORD COMNT ARE DY CEISTENT [] L) fi.unn 144 00ar3? e n"e 030089, ( ¥ )e s <dlad 012608 012344 060016 01 7ese Prm e - L10 § 0(1'0000 (P9) ] 023000 W m' 843 !k;;!?&ffi!!’-3551359 % ‘s L 1Y/ i 107 Occ 746 108 022752 L__ 141/ HE: I & re b £ & £ €3 sCs g 106 Os2764 6031010 CA a=qe s _F B P¥ 3 68 909040 9, NN 1358 » 3) 3 g Yy (3 4IC 004 jme 18 2122 583 ' | 2o Jmeng jenais ) LT £ 8382832 222838283222283232323333382888 002234 op peoe gs ere N Wt gee g poePOPPPEPEPOFErRERg g%i ' $ i3 {8 tired Eb’ ixbb i igeevgzrer ¢ iid ; iitli b| ® ¢we dures vyt @ W IEN GO/ G S e (WP) 0o, (99) oSP), - (W) C.LDCY 08 It tg -’ e L alat [} [WIVV 0 sPCP SYACE INTO WS 2 009 :MCI In10 e 11000 S1alM INT0 B9 ML TAN 10 CARCE FROCESA DS VDS T G REGISTER DO O @ STACH +800 ORIvE ' § TABLE ACORESS sy U Trog IV * ‘ w27 b 08 mb Wb jrmae LJadhE ] ) > %y jraaie OULH07 6% LA (9. ', (0% A L4 ¥, HMi0 10 W-J Sagh 3 0 @ s 30 [I ewid L | oy [ T oV4 Padh a8y BB iK ALY s 2B &t CCC 7Y 34 PEgeiad W g D Pt b QU €..°79 o* Ty SBC 0>27% Ov 3O0Q @ - 02%012 0/% 16 o2 3u22 023024 023030 100416 ? o001 ens IrsS, DIWAY i Twy o SO (NG Lins | 98 @ 0N g L3ag s S1ABT (e CCC j00eia 0oUs18 oarsy (9. § _THN-14 S IS B s 1/ 24 108418 00uL0? 021%% 001208 €@ (N e CCC AN, Ling 3 N LN, MO CMLe CCC AR eC.INS.B ary éC "l L séms PRINT (g SC OF (ORI s START Crie CCC 00a 73? 000137 023%%0 023402 (DEX: sSA o PRINT LINE 023%042 O/ 3044 0/ 30%0 02 30%4 02 3060 02 3064 023070 023074 023100 osa2r 001416 104414 016044 004737 104414 016044 004737 104414 000207 136112 C.LINS. S @ LIns. S0 OF 4] olsmy 055077 000170 DISPLY ars Whd 39 InreancC ILDE 023116 023122 023126 023130 023134 104414 016046 004737 104414 104414 054772 116016 004737 000011 024420 000012 024420 056610 055110 LINESE: DISALY ..Dh@s s SUITC S SETY 102 IF IT 1S .'w e ? °* 10 FFER ADOR REGC CONTENTS sCONvERT 10 OCTAL. ANMD TYPE IV - T MORD COUNT REGISTER CONTENTS sCONVERT TO OCTAL AND TYPE IT7 éc ,LINSS NOEC JSR 3¢ En'dan(t FInle Mgy sAL IPRINTY LINE 3€E OF ERROR MESSAGE START TAX o TT 1'START CvL » CCC 023102 023106 023112 thme 1Y aCtum Cne CCC RPul o RAARRR’ OISPLY 16 ahm Cn- CCC COROR MESSAGE LDEW: 017 033070 000172 001208 g SSard €00 CMie CCC s QA o RAXARE 023034 of Inlye tamun \ I AL X(37 S1amt Cne CCC r{- - k) P50 4B B ub UL h B0 B8 wh v g 31 33 11 et P 3LIREIE 30.*0&.“-03 6.2 G, . 76l LR L. . T8 073004 O 3010 U0 G6 S5 Bo G0 B0 GO 98 g8 g0 ¢ FIRO G GREN CWMO WMen yrd M9 | Sl AW BRTION RO IS S0P ¢ $TRX(RO),(SP) PC.LINDEC START SEC 1'STARY CYL » SS° o sMOVE CvL TO STACK s TYPE IT IN ODECIMAL 1 TYPE 2 BLANKS 1'START TRX o 1CLEAR STACK 1 TRACK s TYPE 70 STACK IT IN DECIMAL N1O CZPJI0B0 RPO7 PERF EXER MACRO vO8.00 1 DEC 83 10:32:28 PAGF S7 8 EAROR MESSAGE GENERATION ROUTINES 166 023140 167 023144 168 023150 169 023152 170 023156 171 023162 172 023166 178 174 178 023176 179 023200 180 023204 196 004737 104414 000207 Y pIsPL DIsMLY 000010 024420 mMOve JSR JBLNXS2 L INGSS (SP) 1TYPE 2 B ANxS 1 'START SEC « 1ICLEAR STACK PC.LINDEC 5EC.LF 1 TYPE 1T CLR $SEC(RO;,(SP) OISPLY 001203 RIS 1SECTOR ADOR TO STACK IN DECIMAL tFRINT LINE 3F OF ERROR MESSAGE 177 023170 197 198 199 200 201 202 203 204 205 206 207 208 209 005046 116016 056610 055124 t ' RPOA 175 176 181 182 183 184 185 1866 187 188 189 190 191 192 193 194 195 104418 104414 580 0129 023210 023214 023220 023224 023230 023234 023240 032777 001420 104414 016646 004737 104414 104414 016046 004737 104414 000207 155756 055061 000174 024 366 056610 055051 000222 024366 001203 o yXXXXX 023324 023330 023332 023336 023342 023346 004737 004737 104414 004737 104414 004737 104414 016046 004737 104414 005046 116016 004737 104414 005046 116016 004737 104414 000207 024444 024420 054726 024420 054747 024420 054752 000034 024420 054726 216 023364 217 023370 218 023374 219 023400 104414 016046 004737 104414 016046 004737 000207 1SWITCH S SET ? JSR PC.LINOCTY sTYPE IT 1%: LIN3.1: 000033 024420 054747 000032 024420 001203 054772 000034 024420 055006 000222 024420 XXXXXX' oSWS5, BSWR BEQ OISPLY MoV 1 ,LINOA3 $RPDA(RO), -(SP) DISPLY OISPLY MOV JSR DISPLY RTS ,BLNKSZ2 ,LINCA3 $RPOC(RO), -(SP) PC,LINOCT ,$CRLF PC STACK 1 TYPE 2 BLANKS 1' RPOC = ;PUT DESIRED CYLINDER ADDRESS ON THE ;TYPE IT JSR JSR DISPLY JSR DISPLY JSR DISPLY MOV JSR DISPLY CLR MOVB JSR OISPLY CLR PC,READDR ;DECREMENT TRACK AND SECTOR ADDRESS PC.LINDEC ;TYPE 1T IN DECIMAL ,T :PRINT ' T PC,LINDEC :TYPE TRACK IN DECIMAL .S :PRINT 'S’ PC,LINDEC : TYPE SECTOR ADDRESS ,LINP3 ;PRINT 'PREV ADDR' $PREVA+2(RO), -(SP) ;PREVIOUS CYLINDER PC,LINDEC s TYPE IT IN DECIMAL ,T sPRINT ' T -(SP) ;MAKE ROOM ON THE STACK $PREVA+1(RO),(SP) ;PREVIOUS TRACK ADDRESS PC,LINDEC :TYPE IT IN OECIMAL .S sPRINT 'S’ -(SP) sMAKE ROOM ON THE STACK JSR DISPLY PC,LINDEC ,$CRLF MOve RTS LIN3.3: 1BR IF NOT i 'RPOA = ;PUT SECTOR/TRACK ADDRESS ON THE PREV ADR = CCC TT SS' $PREVA(RO),(SP) DISPLY MOV JSR OISPLY MOV #?g ;PREVIOUS SECTOR DDRESS ;:TYPE IT IN DECIMAL PC $'START CyL= CCC 213 023350 214 023354 215 023360 = LINESF: BIT :'CCC TT SS 023242 023246 023252 023256 023262 023266 023272 023276 023302 023306 023312 023314 023320 RPCA END CyL= CCC’ ,LINS3 :LINE '3B & 3C’' ENTRANCE $PREVA+2(RO), -(SP) ;PREVIOUS CYLINDER PC,LINDEC s TYPE IT IN DECIMAL ,LINEN3 tPRINT ' END CYL' $RPDC(RO), -(SP) ;PRESENT CYLINDER SE.LINDEC s TYPE IT IN DECIMAL :*ACTUAL CYL= CCC TRK= TT' STACK CJRUOBY RPOTM PERF EXER MACRO v04.00 1 OEC 8% ERROR MESSAGE GENERATION ROUTINES o2 co4 20S 226 227 c28 c9 230 31 ggg <3402 023406 023412 023416 023422 023426 023430 023434 023440 023444 104414 013746 042716 004737 104414 005046 116016 004737 104414 000207 234 235 236 c37 023446 238 023454 239 023456 032760 001427 104414 244 245 246 247 248 249 250 ggé 004737 104414 016046 166016 006216 004737 104414 000207 24C 241 242 243 023462 023466 023472 023476 023502 023506 023512 023516 023522 023524 023530 023534 055022 063364 010000 024420 (055041 LINZ.&: 000175 024420 001203 DISPLY MOV B1C JSR DISPLY CLR MOVB JSR DISPLY RTS 57 4 ! G 0130 ,LINA3 +PRINT "ACTUAL CYL= CYLNDR, (SP) tACTUAL CYLINDER oBIT12,(5P) iCLEAR THE FORMAT BIT PC.LINDEC sTYPE IT IN DECIMAL ,LINT3 sPRINT ' TRK= (SP) ;CLEAR STACK WORD $RPDA+1(RO),(SP) ;PUT TRACK ON STACH PC.LINDEC ;TYPE IT IN DECIMA( ,$CRLF PC ;PRINT LINE 4 OF ERROR MESSAGE ;1 'BUFFER ADR= XXXXXX WRD CNTs 016046 004737 104414 016046 000100 000016 LINEA: 055140 000006 024366 055.56 000020 BIT BEQ DISPLY MOV JSR DISPLY MOV 024420 055172 000172 000006 024420 00:203 18: 253 JSR DISPLY MOV SUB ASR JSR DISPLY RTS XXXX $BUF(RO), -(SP) PC.LINOCT ,LINSA SWROL(RO), -(SP) PC.LINDEC ,LINXA4 SRPBA(RD),-(SP) $8UF(RO),(SP) (SP) PC.LINDEC ,S$CRLF PC : 'EXPCTD DATA= XXXXXX 023536 023542 023550 023554 023560 023564 023566 023574 023602 023604 023612 023616 023622 023626 023632 023636 023642 023646 023650 023654 023660 023662 023664 279 023672 104414 162760 013746 042716 022726 001012 162760 032760 001403 162760 017046 004737 104414 016046 004737 016046 066016 005046 016046 004737 012616 005316 032760 001416 055215 000002 001234 003777 GC30000 000172 000004 004000 000172 000240 000002 000172 024366 055233 000210 024366 000170 000020 000172 000022 032126 040000 000176 LINES: 1¢: OISPLY sSUB MOV 8IC cp BNE SUB 81T BEQ suB MOV JSR OISPLY MOV JSR MOV ADD CLR MOV JSR MOV DEC 8IT B8EQ NMBR WRDS XFRD= XXX’ 08IT06,$TATUS(RO) ;DATA ERROR ? 1 :BR IF NOT ,LINMA sPRINT 'BUFFER ADR= ;BUFFER ADDR ON STACK sCONVERT TO OCTAL & PRINT :PRINT 'WRD CNTe ;BUFFER SIZE 1TYPE 1T IN DECIMAL 1’ NMBR WRDS XFRD = ;VALUE IN BUFFER ADDR REGISTER 1SUBTRACT STARTING ADDRESS ;CONVERT INTO A WORD COUNT sTYPE IT IN DECIMAL ;CR LF s RETURN sPRINT LINE S OF ERROR MESSAGE gg; 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 10:32:0°8 PAGE RECEVD DATA= XXXXXX WORD POS= XXX’ ,LINDS tPRINT "EXPCTD DATA* @2, $RPBA(RO) iBACK THE ADORESS uP $CPUOP, -(SP) ;CHECK THE CPU (RH) TYPE 0tC174000,(SP) ;LEAVE THE CPU BITS 030000,(SP). 1SEE IF RH70 1 1BR IF NO 04, $RPBA(RO) 1BACKUP THE BUFFER POINTER o8IT11,$RPCSI(RO) 1SEE WHICH WORD HALF DION'T COMPARE 1 1IF EQ, EVEN HALF DIDN'T COMPARE 2, $RPBA(RO) 1BACKUP THE BUFFER POINTER AGAIN 8$RPBA(RO), -(SP) 1'EXPCTD’' DATA - AT THE BUFFER LOCATION PC.LINOCT s TYPE IT ,LINBS $PRINT 'RECEVD DATA* SRPOB(RO), -(SP) ;RECEVD DATA FROM BUFFER PC,LINOCT 1 TYPE IT $RPUWC(RO), -(SP) ;WORD LENGTH ON STACK $WROL(RO),(SP) ;MAKE INTO A POSITIVE NUMBER -(SP) sUPPER DIVIDEND TO ZERO $SSECC(RO), -(SP) ;SECTOR SIZE ON THE STACK PC,$D1V sDIVIDE WORDS XFERED BY SECTOR SIZE (SP)+,(SP) 1MOVE REMAINDER UP THE STACK (sP) sDECREMENT WORD POSITION BY 1 08IT14,$RPCS2(RO) 1IS 'WCE' SET ? 24 11: ] F NO CoRUIDBO AP0~ PERF EXER MACRD VOM.00 1 OFC B ERROR MESSAGE GENERATION ROUTINES 280 J81 ~82 288 023674 023700 0237084 023710 013746 042716 022726 001007 0012%4 003777 030000 285 2686 287 288 289 290 ggé 023716 023724 023726 023730 023734 023740 023744 032760 001401 005316 104414 004737 104414 000207 004000 284 023712 162716 000002 055253 024420 001203 293 104414 013746 004737 104414 013746 004737 104414 104414 104414 000207 055270 063364 024366 056610 063366 024366 056610 056613 001203 307 ggg LINESA: FQ 6131 $CPUOP, (SP) 0¢C174000,(SP) eIT BEQ DEC DISPLY JSR DISPLY RTS 281711, $RPCS3(RO) $SEE WHICH WORD HALF DIDN'T COMPARE 28 s IF EQ, EVEN MALF DIDN'T COMPARE (SP) ;SUBTRACT 1 FOR AN COD WORD LINPS sPRINT ‘WORD POS PC.LINDEC s TYPE THE POSITION ,$CRLF PC #30000,(5F ). 02,(5P) OISPLY MOV JSR DISPLY MOV JSR DISPLY DISPLY DISPLY RTS ;1CHECK THE CPU (RM) ;;LEAVE Mt CPU BI15 1S5EE IF RHM70 1BR IF NO sSUBTRACT THE ERROR MESSAGE s 'HEADER FROM ERROR 296 023746 297 023746 302 023752 023756 023762 023766 023772 023776 303 024002 304 024006 ;82 024012 SECTOR XXXXXX ,LINSS CYLNDR, (SP) PC.LINOCT ,BLNXS? CYLNDR.2, -(SP) PC,LINOCT ,BLNKS? ,LINXS ,S$CRLF XXXXXX 1YPE 2 FOR A DOUBLE XXXXXX WORD XXXXXX' $‘HEADER CONTENTS OF ERROR SECTOR: sHEADER POSITION sTYPE IT sTYPE 2 BLANKS ;HEADER POSITION .2 sTYPE IT s TYPE 2 BLANKS PC ;PRINT LINE SB OF ERROR MESSAGE $'RPECY = XXXXXX RPEC2 = XXXXXX' 310 024014 311 024020 024024 024030 024034 024040 024044 024050 024054 104414 055323 004737 104414 104414 016046 004737 104414 000207 024366 056610 055333 000234 024366 001203 016046 000232 320 323 024056 324 024062 ;gz 024%6 DISPLY MOV JSR DISPLY DISPLY MOV JSR DISPLY RTS LLINEPS SRPEC1(RO), -(SP) ; 'RPECY1 = ;PUT REGISTER CONTENTS ON THE STACK THE STACK PC.LINOCT ;TYPE IT ,BLNKS2 sTYPE 2 BLANKS ,LINEOS ;' RPEC2 = $RPEC2(RO), -(SP) ;PUT REGISTER CONTENTS ON PC.LINOCT ;TYPE IT ,$CRLF PC ;RETURN :*SECTOR IS ECC CORRECTABLE' 104414 104414 000207 055345 001203 327 LINE6: OISPLY OISPLY RTS ,LINB6 ,S$CRLF PC ;PRINT LINE 6A OF ggg 330 024070 gg; 024074 LINESB: ;PRINT LINE 6 OF ERROR MESSAGE ;gé 333 334 2s: 1 2t SUB 000240 &7 & MOV 8IC cme BNE tPRINT LINE SA OF 94 295 312 313 314 315 316 317 gig 10:%.°:28 PALE tPRINT *'SECTOR IS ECC CORRECTABLE THE ERROR MESSAGE :*SECTOR READ CORRECTLY AFTER N RETRY(S)' 104414 000406 055400 LINEG6A: DISPLY BR ,LINC6 tPRINT LING.2 ;TYPE ;PRINT LINE 6C OF THE ERROR ;' CORRECTED ON N RETRY(S)’ MESSAGE 'SECTOR READ CORRECTLY AFTER N RETRY(S)’ THE REST OF THE LINE CIRUOBO APO7 PERF ¢ XER MACRO V04,00 1 OEC 8% 10:8.°:,8 PALE ERROR MESSAGE GENERATION ROUTINES 336 0c4076 337 024102 e %9 40 341 342 024104 343 024110 355 356 357 358 024112 359 024114 360 024120 361 024124 362 024130 363 024134 364 365 366 367 377 024136 378 024142 379 024146 380 024152 381 024156 382 024162 383 024164 384 024170 385 024174 386 024200 387 024204 388 024210 389 024214 390 024216 391 024222 392 024226 393 024232 394 024236 395 024242 396 024250 397 024252 398 024254 399 400 401 402 412 413 414 415 416 417 024256 024262 024266 024270 024274 024300 418 024304 419 024310 420 024314 421 024320 104414 000403 055435 LINESC: DISPLY AR S7 & DI k0 0132 ,LINGS s+ LING. 2 CORRECTED ON N RE THY(S) sTIPE THE REST OF THE | INF sPRINT LINE 6D OF THE ERROR MESSAGE 1 UNCORRECTABLE AFTER N RETRY(S) 104414 000400 055465 LINE6D: DISPLY B8R iRETRY COUNT 005046 113716 004737 104414 104414 000¢07 LING.C: 001325 024420 055453 001203 ,LINUOG -(SP) CLR MOove JSR RETRY+1,(SP) PC.LINDEC RTS PC DISPLY DISPLY 104414 104414 104414 012746 060016 004737 004737 104414 1044184 104414 032777 001401 000000 000207 055574 000102 024420 055615 000056 LINE7: 037404 032526 057771 057632 001203 100000 OISPLY MOV JSR DISPLY MOV ADD 037404 032526 057771 057632 055633 000066 154704 1¢: JSR JSR DISPLY OISPLY OISPLY MOV ADD JSR JSR DISPLY DISPLY OISPLY BIY 8EQ HALT RTS sPRINT LINE :' TOTALS; 104414 012746 060016 004737 004737 104414 104414 016046 004737 104414 055535 000076 037404 032526 057771 055512 000112 024420 055555 LINE7A: sF INISH AFTER N RETRY(S)’ TYPEOUTY ,LINRG ,SCRLF tPRINT LINE 7 OF THE :' TOTALS; ERRORS:XXX 104414 016046 004737 104414 012746 060016 004737 004737 3 ' UNCORRECTABLE LING .2 X10t6 WRDS READ:XXXXX X106’ LIN7T : TOTALS; ERRORS $TOTAL(RO), (SP) 170 STACK :TYPE IT IN DECIMAL PC.LINDEC ,LIN7X sPRINT ' WRDS WRITN' @$WTOTL, -(SP) sADDRESS OF _OW WORD ON STACK RO, (SP) PC, 0820 PC, $SUPRL ,PERIDO ,MSGX10 ,LIN7R #SRTOTL, -(SP) RO,.(SP) PC.$0820 PC, $SUPRL ,PERIOD ,MSGX10 ,$CRLF #SW1S5, 8SWR 1 PC 7R OF ERROR MESSAGE JSR JSR DISPLY OISPLY MOV JSR DISPLY sRETRY COUNT sTYPE IT IN DECIMAL 3 RETRY(S)’ ERROR MESSAGE WRDS WRITN :XXXXX SEEKS= XXXXX DISPLY MOV ADD ;CLEAR STACK s CONVERT i PRINT 1 TYPE :TYPE ;PRINT ' X106’ WRDS READ’ :LOW WORD ADDRESS s CONVERT sPRINT IT sTYPE . 1TYPE ¢ X106 ;{CR-LF $tSEE IF ‘HALT ON ERROR' 1BR IF NOT sSWITCH 1S HALT MIS POS ERRORS= XXX ,LIN7P 04STOTL, -(SP) RO, (SP) - SWITCH 1S SKI ERRORS= XXX' 1' TOTALS; SEEXSe 1 TOTAL SEEKS sOEVICE TABLE ADDRESS PC, $D820 sCONVERT THE SEEK COUNT PC, $SUPRL sPRINT IV ,PERIOD s TYPE ' . ,LINTM 31’ MIS POS ERRORS= ' s TOTAL ERRORS $MISPO(RO), -(SP) 1 TYPE IT IN DECIMAL PC,LINOEC ,LIN7S t' SKI ERRORS= CZRUOBO RPO7 PERF EXER MACRO vO4.00 ERROR MESSAGE GENERATION ROUTINES ce 024324 43 024330 4 o4 024534 24340 35 426 024346 4.7 428 429 430 431 432 433 434 435 436 437 438 439 440 44] 442 443 444 445 446 024350 024352 016046 0047%7 104414 032777 001401 000110 024420 001203 100000 1 DEC 83 10:32:28 PA(LF MOV JSR DISPLY 8I7 BFQ 154606 000000 000207 AL T RTS 18: S7 7 E 11 SSKI(RO), (SP) PC,LINDEC ,SCRLF #SW15, BSWR 18 £Q 0133 CONVERT 1TYPE IT £ PRINT 17 IN DECIMAL sCR LF sSEE IF MALT ON ERROR s8R IF NOY sSWITCH - SWITCH 1S SET 15 WALTY PC tPRINT LINE 8 OF THE ERROR MESSAGE s 'DIFFERENT ERROR DURING RE TRY' 024354 024360 024364 104414 004737 000207 055650 022342 LINES: RTS 451 000002 033442 024412 000005 : MOV NUM, -(SP) ;PUT THE NUMBER ON THE STACK MOV JSR MOV 2(SP), -(SP) PC.85820 (SP)e,18 iPLT NUMBER IN PROPER LOCATION ON STACK 1CONVERT THE NUMBER TO OCTAL ;GET THE ADDRESS OF TME ASCII STRING .WORD 0 s ADDRESS RTS PC 1 RETURN LINOCT: JSR RE TURN ADD 024412 1s: 012616 000207 sPRINT LINE 2 OF ERROR MESSAGE PC TYPEOUT ROUTINE L: : 3 016646 004737 012637 062737 104414 ,LINSM PC.LINE2 3821AL H 024366 024372 024376 024402 447 024410 024412 449 024414 024416 DISPLY JSR DISPLY MOV PC.LINOCT 05..,18 (SP)+,(SP) sADDRESS THE LAST 6 ASCII DIGITS s TYPE IV sCORRECT THE STACK sROUTINE TO CONVERT THE INPUT NUMBER TO DECIMAL AND TYPE ITY tLEFT JUSTIFIED : sCALL : MOV NUM, -(SP) ;PUT THE NUMBER ON THE STACK H JSR PC.LINDEC 024420 024424 024430 024434 024440 024442 016646 004737 004737 104414 012616 000207 000002 033412 032526 0577171 : RETURN LINDEC: MOV JSR JSR OISPLY :?g .SBTTL GENERAL SUPPORT SUBROUTINES 2(SP), -(SP) PC, 85820 PC., $SUPRL ,PERIOOD ggP)O.(SP) $SET UP STACK FOR CONVERT $CONVERT IT TO DECIMAL sTYPE IT (LEFT JUSTIFIED) sTYPE sRESTORE STACK POINTER sDECREMENT THE SECTOR-TRACK ADDRESS : sCALL ' MOV 0P8 ,RO 10P8 ADURESS 3 JSR PC.READDR : $ RETURN tON RETURN THE STACK CONTAINS THE FOLLOWING: ' 4(SP) = SECTOR ADDRESS ' 2(SP) « TRACK ADDRESS s (SP) = CYLINDER ADDRESS : JR 0RO RPO7 PERF EXER MACRD vOR.00 Gt NERAL SUPPORT SUBROUT INES 4°9 0-,4444 024450 024454 482 024460 483 024464 480 an] 484 48% 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 028472 024500 024506 024512 024514 024520 024522 024526 024530 024536 024542 024544 024550 024552 024560 024566 024572 1 162706 016616 005066 005066 116066 116066 016066 005766 001403 OFC A% RE ADDR : 105366 000413 005766 001410 116066 116066 005366 000207 S8 MCv CLR CLR 000002 19: 105366 000424 005766 001406 116066 10:8%.°:°8 PAF 28 3s: 4% MOve "Ove 01"} g 1S87 8¢cQ 0c(C8 BR 1631 BEQ MOve 0€eCo B8R 197 BEQ "OVB "Ove o€C RTS %7 8 byl 6, 5P 520 0134 1DECREMENT THE STACK POINTER 6(SP), (5P 6(SP) sMOVE THE RETURN ADOR DOWN TrHE STACK sCLEAR STACK FOR SECTOR SRPDA(RO),6(SP) ;SECTOR ON STACX $RPOC(RO),2(SP) ;CYLINDER ADORESS P4 6(SP) tBRANCH IF SO sDECREMENT ONE SECTOR a(SP) 3 1ALSO ON TRACK O ? iBRANCH IF SO 4(5P) 1DECREMENT ONE TRACK 4(SP) iCLEAR STACK FOR TRACY $RPDA.1(RO),4(SP) 6(SP) A SECLMT(RQ),6(SP) 44 2(SP) 4% SECLMT(RO),6(SP) TRKLMT(RO),4(SP) 2(SP) PC 1 TRACK ADORESS 1SECTOR O ? 1BRANCH TO EXIT sLAST SECTOR sEXIY 1ALSO ON CYLINDER O ? 1BRANCH IF SO tLAST SECTOR 1GET LAST TRACK sDECREMENT ONE CYLINDER COUNT s RETURN CTRUOBC APC” PLRF Cr@Cx ROUTINE aties CLOCK .98 sROUTINE 13 024654 0127177 000442 024656 024662 024664 0c4672 024676 024704 024710 024714 024720 024726 012716 000002 012737 005777 012787 013701 012721 012711 012717 000415 0247%0 024734 024736 024742 024746 024750 024754 024756 012716 000002 104401 105737 001402 000137 000000 000137 024762 024766 012637 000207 ad g BN b o OO® P N 0246 30 024634 005087 013746 012737 005777 012737 013701 012721 012111 > xwll EXER MACRY vO4.00 1 OEC A3 10:32:2% PAE 024574 028600 024604 024612 024616 024624 024640 024646 o121 001310 024656 154460 001302 026352 174575 000131 CxCix: 10 CrECk FOR w1l L OR wwll P CLOCKS CLR "oV CLxFLG ERRVEC, -(SP) 157 @ILxCSA g 01 mOv g 04 g 01" B8R 177127 001306 026352 000100 18: 0131 . QLKCSR Crluxs 001310 MOV CxCLK2: 057714 1¢: 24: 003522 CxCLKS: 001310 CLKOFF: 000101 154270 00v100 154266 1SET MMll-P INTERRUPT, oCHCLx2 ERRVEC 1SET @ ERROR TRAP otLKS sCHECK FOR Xwll-L L' VEC,R) iXW1l-L CNT VECTOR UP, FOR L 10US, REPEAT MODE CLOCKX CrHECK SET L-CLOCK FLAG VECTOR sSETUP KuWll-L 1SET ADORESS VECTOR INTERRUPT PRIORITY TO 6 MOV o19,(SP) 1SETUP RETURN ADDRESS .NEDCLK 3'P OR L CLOCK MUST BE ON SYSTEM: sRUNNING IN AUTO MOOE ? CxCLxs RT]1 TYPE 1s78 S$AUTOB 28 JP JP MOV RTS IF INTERRUPT NOT STARTY +ABORT PROGRAM sHALTY 1 TRY AGAIN (SP)e ,ERRVEC IRESTORE PC IS ;SET XuWill-L 1BR SGETA2 ALY USED TO SMUT OFF THE ERROR VECTOR INTERRUPT TO THE SYSTEM CLOCK $CALL ROUTINE TSTY CLKFLG B8€EQ 24 B8R 24 8MI 8IC 1¢: es: 1SET INTERRUPT PRIORITY T0O ¢ iLOAD COUNTER BUFFER WITH 16 67 9100, 08U KS 8€Q 032024 ADORESS MOV B8R 0247%6 VECTOR 1SETUP KXw1l-P VECTOR 1SETUP RETURN ADORE SS OMWSVYR,(RY). ®PR6,(R1) MOV MoV s%"uW1l-P 019 ,(SP) 0-1,.CLKFILG g 01 154356 001150 157 sCALL 005737 001410 100404 042777 000403 042777 000207 SLPVEC R} MWSYR,(RE ). ®RG ,(R1) 0-1667. ,88L%CSB MoV 1 THIS ROUTINE 024770 024774 024776 025000 025006 025010 025016 01.CLxFLG CxCiLx): w\x’ 02473%0 154406 sASSUME N0 CLOCK~ AVATILABLE 1:1PUSH ERRVEC ON STACK 1SETUP ERROR TRAP VECTOR FOR P CLOCK CHECK 1CHECK FOR wu1l-P 1SET P-CLOCK FLAG oCwCLx] ERRVEC MOV "y 154432 154422 280 0133 Wil CLOCY CrECX ROUTINE 19 0] 001310 ] ] S8 8IC RTS 14 €101 ,88LKCSR €100,88.KS PC 1 IS CLOCX AVAILABLE 18R IF NO tBR IF L-CLOCK ? iSHUT OFF KuW1ll-P INTERRUPT 1SHUT OFF KWll L tEXIT INTERRUPTY >EQ 0198 MOUTEE 70 DIWMLAY STATISTICS FOR ASSICIED OREIve ', ] M . 010046 010046 0035737 001431 025054 104401 001203 025042 025086 025050 02505 016400 06204 136437 0016812 0020% 025064 004737 026226 025070 025074 025100 025108 025106 025112 025114 025114 025116 37 025120 001542 040630 104401 001203 104401 104401 004737 005204 020427 001352 057401 057429 025150 000010 FC.STATPR "oV "oV Tt R0, -(SP) e, .(SP) Asle ST $3PUSH RO ON STACK s sPUSH RS O STACK + A0SV n-ms ASSIGMED ? ?L. e N o iQLean "C ORIVE InOER CR-LF [ 1] 29 30, Se Y . [ TM ASA 0IT8 0€0 Tvog JSR Tvee TvPe JSR INC cre #C.oTE .DASHS "SG SUM #C. TTPSUN ne ne,00. MOV MOV RS (SP)..Ra (SP)e.RO »C 1OWIGE TO INDEX WOROS tGET € DRIVE S BLOCX AOORESS ’QSIG( e ATAGIT(MG).ASMS 1S TMIS DRIVE ASSIGMNED ? as 100 IF NOT hxmu).uo i o 1X 000207 10N IF w0 F ASL MOV 001542 012604 012600 JIN AL TV STATPN, 023020 025022 025024 025030 © FRELKLEISVFURUR " o0 Y BV ¥ W LI CIMI0BO BoC? SLEwr ¢ R MACRD v00.00 L -G0C 08 00:92:20 Pk W «wil CLOCx (v@t Ox GOUVTDNE HLl rF 1ICR-LF 1 TYPE ELAPSED TIME JTYPE *-..-. JTYPE c SRwAY, ¢ sTYPE THE SUPWARY +INCREMENT Tr€ INDEX 1F INISHED ? s 108 IF NO 11POP STACK INTO Re 1,P0P STACK INTO RO s RE TURN {ROUTINE TO TYPE THE SUMMARY FOR OMLY OME DRIVE sCALL: ' MOV 0P8 . RO ;0P8 ADORESS s AE TURN OMESUM; MOV MOV CLA RO, -(SP) Re.-(SP) Re 1SAVE RO 1SAVE R4 sCLEAR R4 FOR DRIVE NSGER JSR PC. TYPSUN 1TYPE THE SUPBWARY QTS pC JSR ] 43 025122 46 025124 47 025126 48 025130 49 025132 S0 S1 52 53 025136 025142 025144 025146 010046 010446 005004 111004 004737 104401 012604 012600 000207 MOVE 0251% TYPe MOV MOV 057407 1 TYPE sCALL: THE €4 025150 000240 68 025152 104401 056661 nOv MOV TYPSUM: NOP RE TURN 1 TYPE REST (RO).Ae :ORIVE MPIBER .DASH13 I (SP)e.RO STYPE ¢ oo IRESTORE R4 JRESTORE RO + RE TURN SUMPWRY : ' ] PC , ONE SUN OF TYPE SORIVE . A 00P8 RO SUMMARY LINE «DRVMSG |ORIVE NPBER :0P8 ADORESS 1 1 TYPE 'DRIVE' .. ' CIRIM @7 PSOF ¢9 0c51% 0108488 025160 1084608 70 be| 72 14| 4 091062 1168 OGS 164 025170 025174 02%200 025200 TM 025214 76 025216 ” 18 02%224 79 60 >4 000000 104401 016046 004787 004537 000008 104401 2 ) [24 68 1 3] %0 7 92 ) } ) 023304 025310 322232 108401 104401 106401 0127%? 122764 001608 0127%? §04401 08, 029330 02%3%0 025334 025336 025342 025346 025352 100 0253% 101 025362 102 1038 025370 104 025374 105 106 025404 107 109 025410 025414 0254 %4 0254 34 025440 025442 () 2 o 03611 09459 0%411 (e ) sy 0371%% 023226 YT 37162 03226 QPO 29 0366933 056611 013%044 000404 s o4 <3 002 000 104401 004787 104401 1 Ne-o 111 ke 01%7 Cr@Cx @UTINE ", mimn) 1 18, 8 ° & $1 g #C. TroRy .OSO os 51698 000118 033412 032632 osT 7, 644, My PASS / 104401 010046 062716 004737 004737 104401 104401 010046 062716 004737 023312 0T 1612 000042 037404 032442 004737 104401 104401 1044013 025416 000407 104401 062716 057612 000036 on .ASC12 T1vPg nov ADD sTYPg ORIVE SERIM. NPOER s3TYPE ASCIZ STRING 5:GETY OVER @ ASCIZ 1vPE TYPE LINE @ T1YPE OF R .ASCIZ2 TYPE MOV ADO 1OR-LF JISPASS +YYPE QINTPAS (SP) JPOINT «CRLF > NRDS MRITN / 10 LOW MUMB' R OF R sCONVERT DECIMAL NU®: | JTYPE © l ' ‘ " TOTAL 1GET AOORESS OF DPS ’C.SWS LPERICD JMSGX10 s VY JTYPE TO LOW MGt R OF WROS WRITTEN 1CONVERTY DECIMAL MPEHER .;&::atss LEACING ZEROS AMD TYPE 'L * X10%6° 68¢ 1:TYPE ASCIZ STRING ll(/'i! OvER T & ASCI2 .MSPASS 1 TYPE 699 <CRLF »/WiRDS READ RO, -(SP) QSRDPAS, (SP) WRDS WRITTEN PER PASS 1 SUPPRESS LEADING ZEMOS AMD 110 1POINT SUPTAAY /7 PASS 1GET AQORESS OF OPS nuvou (SP) rC. 00820 JSR @ PASS COUNT O @ STACK 1Tveg 3 DXG"S sTrog -, . JSR 11696 : 6814 ..l 11 TYPE ASCIZ2 STRING 11GET OVER TE ASCIZ RO, -(SP) 1vPg OV ADO 1TYPE ."n 678 669 Tveg 037622 000036 037404 032442 05171711 057632 3 OF SLOTWMAY JSR JOR o517} sADDRESS OF APO7? "ESSAGE +1% 0EvICE A MPO? ? 1R IF ves 1ADDRESS OF APO7. "MESSAGE 1TYPE '@ ORIVvE TYPE PESSAGE MR SSAGE ADONE SS »ERE LPERICD 1vPg 11676, l"’! l l“ Tveg sTYPE LINE 668 ; U’WSS LEADING ZRAOS JSN Y 1 TYPE LDk 2 OF SV 1vPE +SCAF 104401 000407 1:19AvE RS FOR TYROUT s:7YPR ORIVE MAIOLA 0:G0 Tvg..0CTA. ASClZ s 7Y9E 2 BIGIT(S) PASSC(RD), -(9P) 1PUT #C ., §5820 1COVERTY 17 .'V” " :s.lvu : (L OCr "o s po *wll ¢EvER MACRO v08 .00 1 JEC 6% 10:02:70 PaCE 99 ) /7 PASS 1GEY ADORESS OF OPO 1POINT TO LOW MUBER OF WRDS READ PER PASS C72000 GPO7 SIEr 50 MACIO vOS 00 | JEC 63 10-4.-70 P 99 2 ¥Q 0198 s gl e b n VY XY XV ¥ X - g 079689 0.7%4%9 04% 0.%842 0. 040 O 70 O/ /%8 74 0" %00 B b BE GBS G0 B0 Be G 3ot 373 34 T Po 01008¢ 08271¢ 023510 09%14 O2%9%0 108601 000807 O, " 08 037608 ovea 077y 0oNoee 037608 0t2>e42 @04 73? o0a73? 0317408 02716 1 08601 104401 010089 02716 00a’3? 00ars? 108600} 134 195 016046 1044038 J0440} 104401} 000403 137 158 016046 104403 104401 104401 ’( S puy JSCAL0 037404 tvog mPassy mre-0 TM -&:‘i‘ \EQING {TRQS AND Aie IBERL M. Treg U 1GFY RODEE Sy OF DG P 0 L w wWPRE R W DS 8§ A0 7 [~2 mrWEN Dg sgCOw TR |9'.:“fl.$$ \EAQ (NG Jtays oD 1 TYOR - Treg R3O 1779 A4C12 STRING u;-' OvetR Qg Al %0, () s 7v0Q-/ Pasy VT SSTOTL O e STACH I8 J5A tveg 0C.sm 0 K s ey P00 .mfl 39 LIQING ftys MDD Trog "0V $o, . (s9) ‘u we o 14 Y} 1C PRt DR OV 200 JSA 0000 7§ oIty (9P) Loz LAY 0107 ,(99) #C. 0080 #C . s sng JSERIOD POINT 10 LOw MPOsre 7 gin COAMT N COMvERT DEZ 1%y M PRRE 1Tvg° TOTRY VT STON. O @ STaCM POTNY 10 Lm Ve OF SEEN COUNT 0 tCONFRY DR 1"y r@s .w'm S8 LIAD NG It wus AD TYPE ... . TR LDES ¢ -. ? ' NIV s TVOR ASL12 STRING dua' OvtR g A on ho L2 “:,.l .ACIZ <OMF»/COIRAATL ;7 CRORS 1vog [} ’z?ll 000104 025704 LY 023734 YL o377 025762 0 TYPE ASCIZ STRING s2:GEYT OveR g ASCI2 «CMFv/0FTY v ] 1v908 ISOFT(RO), -(39) 4 ,;3AVE Tvog o 7% 1°99 OV ARD( RO ), -($P) ) s SAVE SSARD(RO0) FOR TYPEOUT 11C0 TYPE--OECIL ASCII uiTw $IGH .ASCIZ T1v,D% L>32441 000110 e bes ASCIZ Trog osrm 000108 Tvoq o 14 798 136 ] (174 ¢ ANTe VgV, {; (] Tveg (778 1353 .”I,‘n &0 0% rel2 104401 000404 131 152 1 P233331 104401 016046 104403 10440} 104401 10y L M AL 000044 000412 130 ~yTSTy do, (9 0sd10° (99) oC . son N TR LN 9 & VMRY nzlh L2 teog OV 200 S50 trog i 108801 010088 oC . 080 o . s owy 7 o177} o322 e I, trog o N2 -~ s » 00e 737 004 73?7 108601 108401 008 73?7 Coa73? 100401 108604 £335X - hy - SXN‘\!’V 3 - po us aa Y r LOCx O@Cr QOVTINE B er wii Jil 788 Tvpg Trog on JLENICD 7 vARD 7 LPERIOCD 794 I ASC1Z2 s MOV ISKI(RO), -(SP) TvPE .PERIOD R 804 1vPDS TvPE SxI .010 v/ 0SOFT(RO) FOR YYPEOUT l‘GO ""! -OECIvm. ASCII wiTh SIGH s 179 ASCIZ STRING 11GET OVER DE ASC1Z ' [) .' 2. TYPE ASCIZ STAING 1IGET OvER THE ASC1Z 11SAVE ISKI(NO) FOR TYyPeEOUTY 110 TYPE- -DECINAL ASCIT WITw SIGw ' . .. Lo TIPE ASCIZ STAING J1GET OVER THE ASCIZ CTOJONO BPOT GREN ¢80 ®MaCW) ¢ w1l CLOCY o O Cr MO 19 NG | .5 ; Y |- L @18 oLl . s 8 Pagk Y0 § @16088 @00112 -y o 160 C.~000 (08805 G877 vy 1) jmecs 161 L8008 J0Se] 076010 000808 oren>p 16 G002 v .o OIGULY 1880, ', WU 09 ), (D) ’ oy o oss 62 o 0T0TR (89), . (P) asCis O 01 9% 7 wiP v 1%9 04779 OV ¥1l s oTMg® o sISNE PVIPUTG) FOM PR NP .’a vl eEcIW &SCI Wi SIGh o ooy 0:7908 08C12 SrOING 'l? G NG asCiZ 016888 ©0030 (PS F AT AT &7 Y v Ui 09011 re o0y SO RD ), (IP) (I BaCT S=:5P0 FROM 37)° 8 "L Te0g. QECITM. 03CI] wiTM $IGR ary k 169 C.v % eV .08 168 C.4.00¢ 167 G0 J6sii@ 08 J6AT16 OXX 110 61 J0S60H J08001 168 (.08 J08a0 169 O N0 O S0LF0 OATY nua >0 TM 1oy 1 voyg 157 1700) . (99) 09) (VW) w: 80),{90) SO0 ,@'eact 'CAOA”I WIVES OF QTGN FANORY At s ¥t romm o0 -a punAp Forpm §7)'Q B eaCt sl RN 8757 a¥veg - - . BV (7RI G NS ¢S TMONg vl 60 | SRC 6% sor1l (XY (%@ (¢ ®D." G 18 0 V-0 S W til e o160 T ' NN !t A/ A. P! st Crsin Cre 7@ O lTNg L3 04100 MiI08 OF 0 L33 ) G ? CPPISR Or./ug 0! SO JC V0P W' G BENUVED SISO TV (ie? ) ompw( -l 4 T POT-eTW og? W, *10 > STITTY w 10, L4 s |) § |R 10 03P 1109) = § SE°, O T U mEgnT Cuagl "ts nfl'AMQr o7 "mapa, P 3. AJL N ieadq/ s CRETENT 0gr At "R ARG % PROWE sunp ABN, SED B W' 6 PONTND 8GO 7T (8% ) .0:' g‘lfl' o POED,: Y g::;‘ Qzuw et ' OMmiN0 OGSO O P8 &r-a’ L) orvveY r-t .fil! “ '-ll'( 1. 2 O * -..Nt.fl"" L‘Q) 28, [ 4 W 17 o R Ao B 3/ (nCeggn? CORNE AMADT AT maalmm ) ’ 1 s ARGt wRp mnmm “ oS WL GBT G PONENTID SR OO YTTT? (S2%2.) Y317 itG 1434 0/ ie Gr02Y Creid G000 Orelee ¢ 1% 19 0 SR, GOSL0 :uhtormry OFPFPPND :l(‘) . A | TR/C DOI"s'S WY 1O S M, Lt wmgn! COAY !!\ 13 ] ‘-m A "Aaniam ) N I8 AN A4} 1DCIErEnt ot »A8 AN u-. CEYY WlLL 0T 62 DCRINENTID B 'OG 77T (3N?.) 0r 1% 0.0 168 O93TSY “lq QNSNS PDEs. Omied 02027 QESMLR OVYTYY Feat i SlST,| 000412 gg S30700 000207 . 0. "eY &’ Qg “ .ul !' OA0 TEx/34C Sn1990(00). 0?77 Liworno) o 11 DOICATOD W7 T INnCREENT? COLMNY IS M40 MALAGY A7 MARIM ) $ T, OOm el ’mw AL Tune »o AMOTDE TM) DORrENT $70TAL :ON: T0TAL MLl %O B DOCNEENTED BEYONO TITTY (33760.) 02202 026206 00210 026216 020220 030224 OGO03737 001008 026027 103002 005260 000207 @013%8 GOOLOR O0OOIG2 PLrot, OTYTYY 1Y o o, ] | o) 8] 16: I ary 0A0sEC 1SEE IV A0 T /EC DOICAYOR %Y 10 ) IV S SET, DO 1 INChe EnT! COLNY STOTAL(RO) 07T T 119 010TAL MLAEAQY AT mAslmMm ? $0 ‘éo"‘ 80) 18R I It I8 +RE T Ul 1 ICREENT 070TAL Il‘x CroMp0 GRg? WP ¢ W il CLOCx OGCr MO WD) v M M8 | B 8Y 1¢ QO e oo N ] €., L Gt M8 TP ¥ ] 6§ O St 8 SR R TR R I FE 31 34 1344 St by RRAd figet 344 ©...%9 O, 58 O"rv“ Gt N0 G."4. 0 | 7P ’: 0.2 7§ O %02 0. VOl 0110 PR BY | 030 O/t e Or/e e 063132 0 1% 0/¢3%42 O/¢ 344 02350 1/ 234 ovEwg ., L2l o ] ®i27y? L TR34 01627 'flv’“' o287 0. .27 0. 40Q 3/ L%3 ous )Y o0ass? 000000 10840} 01370 24 34 0003137 000009 100401 013744 004 73?7 00ass? 000002 & O Sas o) 0 ey Y -3 - ¢ o) 380 ooc188 @03 "0 |o4 16, 01%12 L ) b. T 080194 001342 at 4 ¢ 2 &, P (%), 0100 IR 10 29 oC . A «w ) ¢ trog LCX O ¥ M.rnl J5R J5R . WORD ars 14 LG P ° g ) NTLIS B, 110 Py *) tews g STaCw w8y O WORE ) e P = SAd. BB Baldii44 1170 iy O "ORG ? 08 7 MO Sl o BN - T4r S 1SRN OF WO OIGITY 70 Tveg miw 't .82 XY sealLan g F 3 ne¥ BT 10 DECIPWR v tTrog |I o /.. 10 P4 ‘yYP). 01000 v 000207 178 T ' | B i< o, L 080194 001 344 01%412 032020 G - JHR 01%412 0300 (L Ed (> BN PR oy e |cadecd g e 010 (9P) . - L VAN 41 VA A SO 1>kt 110 1t BB, BR3J 10 ORC I WM, 2 sTroe 2 OIGITS $MIiOO, - () PUT SECONDS O @ STACH Ra & | oC. 5820 M.l z‘ o] " 1COvevent 10 DEC W 1Yree 1Y 1P 2 DIGITYS Sl COLOOR INTERARST SAVICE AOUTDE 003337 001087 013737 004237 003727 10%42¢ 005037 004237 ousH237 004237 023727 103412 005037 005287 023727 101402 005037 012746 023727 001402 012716 004737 005737 001411 023737 002405 012737 xwSwl; 001366 001312 001346 001344 000078 001 344 001342 001340 001340 oaseC 1 ENT7 O SEC 1 CAEENT DE 1760 SECOND COAUNTER 1O IF A SECONMD NOT COUMNIED MESTORE g vaL g (8, | . LA SECOND , 080. 1 SECO® 1A mAX I ? 1OR IF nNOTY 1ICLEAR TvE SECOMD' S CORNTER InC InC (o, AP TV ninute L0 1 R IF NOT InC (n, 4 HOUR HOUR , 09999, sCOUNT THE MOURS 1AT RAX TN CLR OV HMOUR 020.,-(SP) BEQ 29 INC 001344 001472 001464 001342 001342 0OefC ot L 0] Ine, ce 000074 CLA 023417 001340 000024 001312 8L0S 16 000020 044402 001470 FIY 001472 001470 177777 001314 ce [, o]} cod InTONL.Q NINUTE,080. nIvTe 10 HERTZ,0%0. 1COMT SUTARY INTERVAL COUNTER sCOMT COPAME TIME INTEAVAL COUNTER sCOMNTY TvE MINUTE sAT RAXIMUM ? OLEAR TrE MINUTE S COUNTER iOR IF NOT tCLEAR THE HOURS 120MS ON THE STACK 9 SOmZ sCPU AUNNING 8 SOMZ ? 18R IF YES 016.,(SP) 116MS ON THE STACK 9 6OMZ INTRVL 1DISPLAY THE PERFORMANCE SUMMARY JSR PC.RPTMR 8€Q 38 1S7 1COMT g SECOND 1DRIVER TIMER ROUTINE 18R IF NOT crP INTRV 2, INTRVL L ;DISPLAY INTERVAL FINISHED ? MOV 0-1,.STATIN 8LY 3 tBR IF NO ? 1SET PERFORMANCE SUMMARY DISPLAY FLAG CIRJIOBO RPO7 PLtAF EXER MACRO vOS 00 | OEC 83 10:8.:°0 Pad &) W1l CLOCK (*€Cx ROUTINE 58 0.6526 “9 26532 005037 000002 001472 38: Gum RTl ) Intawn .2 M1l SEQ 0142 1QLEAR Tr€ PERFORPMNCE INTERVAL COUNTER ] SRJIOBO RPOTM PERF K3l EXER MACRO vO4.00 CLOCK CHECK ROUTINE 1 DEC 83 10:3.:08 PAGE w0 r'l( s COMMAND Df CODE ROUTINE sCALL : H MOV &81,CFLAG JSR PC.KSR RE TURN] RE TURNZ 00573/ 040626 026614 012737 013704 012764 005037 104401 004737 104401 104401 104401 017746 000200 040640 000040 001334 001203 026226 056653 056611 034736 152334 026620 026622 026626 026632 104402 004737 004737 104401 033510 024770 060061 026636 026640 026642 026646 026650 026654 026656 104411 012605 005737 001405 005737 001141 000137 001542 026662 026666 026670 026674 026676 026702 026704 026710 026712 026716 026720 026724 026732 026734 026740 026742 026750 026752 026756 026760 026765 004737 005205 122715 001465 122715 001410 121527 101117 121527 103514 142715 122765 001003 004737 000507 122765 001003 004737 000500 122765 001003 024574 026534 026540 026542 026544 026552 026556 026564 026570 026574 026600 026604 026610 100375 104412 KSR: 177776 KSR1: 157 BPL SAVREG MOV MOV MOV 000010 CLR TYPE JSR TYPE TYPE TYPE MOV TYPOC JSR JSR TYPE RDL IN 001334 000124 000101 000060 177777 030110 000104 CFLAG « $CRLF 177777 :ANY AFTER DATA 1BR IF YES JENTCOM (SP)+ RS CFLAG 2% PC,CKCLK RS €' T,(RS) 98 @' A,(RS) 0tC7,(RS) 0'T,-1(RS) 44 134 '0,-1(R5) THE TTy SERVICE SERVICED UNDER WAY ? ;iSAVE THE REGISTERS ;SET PRIORITY TO 4 tGET RP/RH BASE ADDRESS tCLEAR MASSBUS CONTROLLER FLAG ;CLEAR THE 'CONTROL C ;CR-LF sTYPE 1 BLANK = SWR TIME ' : s SAVE 8SWR FOR TYPEOUT s sCONTENTS OF SWITCH REGISTER :+3G0 TYPE--OCTAL ASCII(ALL DIGITS) ;s INITIALIZE TTY KEYBOARD $SHUT OFF CLOCK INTERRUPT WHILE WAITING : 'ENTER COMMAND' sREAD THE KEYBOARD :GET ADDRESS OF INPUT STRING tWAS (tC) :iBR IFf ;BR IF ;ANY NO TYPED? DRIVES YES ASSIGNED ? ;JUMP TO START :START SYSTEM CLOCK sPOINT LO ?EC?ND CHARACTER :EQ TO 1 YES :EQ TO AN 'A i8R IF IT IS sDRIVE ?¥H?§R GREATER THAN AN ASCII 7 ? i8R IF sDRIVE ??Hggfl LESS THAN AN ASCII O ? t1BR IF sLEAVE O?LY LOWER 3 BITS IF CHAR NOT A’ t€EQ T0 ;:BR IF NOT EQ tASSIGN DRIVE FOR TEST tEXIT S5¢ :€Q TO ‘D’ ? t1BR IF NOT EQ 134 $EXIT @'S,-1(RS) 68 KEYBOARD TRANSFERS sTYPE PC, $ TKINT PC,CLKOFF By $SYSTEM BUSY RETURN « $MSW2 R SSWR, -(SP) +BLNKS] SET IN INTERRUPT MODE 1 TYPE ELAPSED sTYPE ', PC,DROPD 177777 IS NORMALLY PC,S$TIME +COMMA PC ,NEWASN 027700 000123 #PR4 ,PS RPADR,R4 OCLR,RPCS2(R4) 3s (RS),0'7 124 (RS),e'0 128 000067 177770 000124 DTUW ‘SR 134 START 2s: ;' CFLAG! ;ROUTINE :RETURN ASNLST 003522 SFG 0143 sOROP DRIVE +€EQ TO 1BR lSl IF NOT EQ CIRUDBO RPOTM PERF EXER MACRD vO4.00 1 OFC B2 10:2%':.8 PALE kW1l CuOCKk CHECK ROUTINE 59 026770 o0 026774 el 026776 62 027 64 027006 65 027012 027014 027022 027024 027030 027082 027040 027042 027046 027050 027056 027060 027064 027066 027074 027076 027104 027106 027114 027116 027124 027126 027134 027140 027142 027146 027150 6* 027154 027160 027162 027166 027174 100 027200 004737 000471 122765 001012 005737 001053 032777 001047 004737 000453 122765 001043 004737 000444 122765 001034 005737 001026 032777 001022 122765 001413 126527 101015 126527 103411 142765 004737 000407 104401 000601 104401 000137 104413 005777 052777 005037 000207 030006 000127 JoR B8R 177777 cmeB BNE 1sT BNE 001424 000001 152132 030132 000122 78: 177777 8s%: 030120 000127 i77777 9% 001424 000001 152060 000101 000001 000001 000067 000001 177770 030144 057773 000100 177776 10$: 11%: 060036 026552 151774 TST BNE 8I7 BNE ML B8EQ CMPB BHI 000060 000001 12%: 13%: 151764 817 BNE JSR 8] cMPB BNE JSR B8R cMPB BNE & ] PC,5CMND 13 & W, 1(RYH) 8s ROONL v 118 oSu , ASWR O 118 PC,DATAPK 138 »R, 124 1(RS) PC . REDAPK 13 o'W, 1(RS) 128 ROONL ¥ 11¢ #SuW0O, 8SUWR 2£0 0144 s TYPE STATISTICS sEXIT 1€EQ 10 ‘W’ ;B8R IF NOT EQ :LOCKED IN 'READ ONL Y 1BR IF YES ;s IS SWITCH O SET ? ;BR IF SET, CAN'T JWRITE DATA sEXIT iEQ 10 ‘R ;BR 9tC7,1(RS) PC.,WATPAK 13¢ MSWRO 18 . INVLD 18 83TKB 981T06,a8TKS PS PC COMMAND 2 DATA tEXITY COMMAND ? ;NO :LOCKED IN 'READ ONLY' MODE ? :BR IF YES 1 IS SWITCH O SET 2?2 18R IF SET, CAN'T DO ‘W' COMMAND sALL ORIVES ? ;: YES 124 1(R5),0'0 128 ‘w* ? IF NOT EQ sREAD ;W1 DO MODE 1GREAT s YES THAN 7 ;LESS THAN O s YES :CHOP OFF THE MHIGHER BITS sASSIGN DRIVES WITH WT COMMAND :TYPE ‘CAN'T WRITE IN READ ONLY : TRY AGAIN :TYPE ‘ INVALID COMMAND' MESSAGE ; TRY AGAIN ;RESTORE RO - RS tCLEAR THE TTY BUFFER ;SET TTY INTERRUPT ENABLE ;SET PRIORITY BACK TQO ZERO sRETURN MOOE°’ A CIRUOBO RPO" PERF CLOC« EXER MACRD vOa.00 1 OFC AR 10:8%. :°A PALE CHECK ROUTINE bt 4t ps Pt pt 1ob gt b B " [o37-1. Y. RV RF LX g sROUTINE 027202 027204 027210 027214 027220 027222 027224 027230 027232 027234 027236 C27242 027244 027250 027252 027256 027260 027264 027266 027272 027276 111504 005087 005037 104401 104411 012600 005737 001365 105710 001414 105760 027300 027306 027312 027314 027320 027322 027330 027332 027340 027342 027346 027350 012737 005737 001407 123704 001004 012737 000407 027354 027356 027364 027370 027372 027376 027400 027406 027410 027416 027420 027424 027426 027432 027434 027436 027442 005004 012737 005737 001407 027444 027452 136437 001056 NN RN RN NN 830q8ubu-ooa Y. YV N X7 1.V} KWll 001006 122710 001410 122710 001403 104401 000747 005237 122704 001426 136437 001003 004737 000207 000137 123704 001004 012737 000413 136437 001007 004737 005204 020427 003751 000207 004737 000770 ASSIGN: 18: 001334 001426 157 BNE 1578 001334 BEQ 1S18 000001 000131 000116 060163 2%: 001426 000101 3s: 056732 001430 4% 031356 ASGN1: 001430 057041 031356 040630 001542 1s: 027444 031332 %0130 2%: 031356 ASGN2: 1¢: BNE oy o] BEQ CcvB BEQ TYPE BR INC cvP B8EQ MOV 5£Q 0143 ASSIGN REQUEST 057041 031356 040630 001542 027444 et 3s: 000007 031332 a4 001542 ASGN3: ( T', W COMMANDS ) JMSPRM s TYPE tREAD (SP).,RO CFLAG 1SAVE ADDRESS OF RESPONSE tWAS (tC) TYPED? ®' Y,(RO) 4 ®'N,(RO) $ +BADENT 18 DRVPAR &' A R4 ASGNZ2 # OR 1PUT 1 {RO) 3 1(RO) ot DRIVE ‘R, (R5),R4 CtLAG DRVPAR IN R4 sCLEAR CONTROL C FLAG s ASSUME CHANGING DRIVE PARAME TERS ' CHANGE DRIVE THE ENTRY 18R IF YES 1WAS RESPONSE ;BR IF YES tWAS IT A 'v* ;18R IF YES t1WAS IT A 'N’ 18R IF YES ?° A CARRIAGE RETURN (DEFAWLT RESPONSE ? RESPONSE ? s TYPE BAD ENTRY MESSAGE 1 TRY AGAIN $s00 NOT CHANGE DRIVE PARAMETERS $ASSIGN ALL ;B8R IF YES DRIVES ;ERROR MESSAGE OLODEV , ASNMSG 4l s LOAD DEVICE®' XX0P 1 XXDP R4 1 PARAMETERS 1WAS IT TERMINATED WITH CARRIAGE RET RN 1BR IF NO OUNTASN,ASNMSG ? ;LOADED FROM THMIS DEVICE ? 1BR IF NO 1LOADED FROM THIS DRIVE ? 18R IF NO MESSAGE ADDRESS ATABIT(R4),ASNLST ;ORIVE ALREADY ASSIGNED 2 ;B8R IF IT IS PC.ASGN3 ;SEE IF DRIVE ON THE SYSTEM PC :RETURN ASNERR ;EXIT ERROR R4 OUNTASN,ASNMSG XXDP 2 1START WITH DRIVE O ;ERROR MESSAGE s LOADED FROM THIS DEVICE 18R IF NO 2t :%OOEV.ASNHSG tBR IF NO ;' LOAD DEVICE' xXxX0P ,R4 001430 040630 CLR CLR TYPE RDL IN MOV 060244 w18 TO PROCESS THE MUvB N 1LOADED FROM THIS DORIVE ATABIT(R4),ASNLST €S 48 1Y PC,ASGN3 R4 R4, 07 1 PC PC,ASNERR 3 s ALREADY IF ? ? MESSAGE ADDRESS ASSIGNED tASSIGN THE DRIVE 1 INCREMENT DRIVE o sALL DRIVE CHECKED i1NO 1 YES tERROR MESSAGE 70 LOOP ATABIT(R4),ASNLST ASGN4 B8R ? ? ? 1ORIVE ALREADY IT IS ASSIGNED ? ‘N ? )? CIRJOBO RPQO7 PERF KiWll CLOCK CHECK 58 027454 59 027460 XY 027462 61 027466 62 027472 63 027474 64 027500 65 027502 66 027504 67 027510 68 027514 69 027522 7C 027524 71 027530 72 027532 73 027536 T4 027542 EXER MACRD vO4.00 1 DEC 83 10:3%2:°8 PAGF ROUTINE 110437 006304 016400 004737 006204 105764 001451 100443 004737 004787 032760 001461 005737 001015 104401 104401 010446 027544 027546 027547 027550 027554 027560 027564 027566 027572 027600 027606 027610 002 000 104401 104401 004737 006304 004737 016464 113760 006204 000207 027612 027620 000137 027624 027630 027632 027634 027642 027644 027652 027654 027662 027666 027674 050734 mMOve ASL 002056 017000 MOV JSR ASR 1S18 BEQ Ml 040534 030164 031070 000004 JSR JSR BIT B8EQ TS7 BNE 000200 001426 001203 056661 TYPE TYPE MOV 104403 012737 105764 001405 100010 012737 030402 002056 030162 ASGNA : 057031 031332 031356 040544 056760 056775 012737 000137 001566 000026 ASGN6 : ASGN7: 031356 031356 1¢: 056667 031332 031356 es: 3s: 057056 031332 031356 ASGNS : bl 5EQ 0146 R4, LENOPB 1GET DRIVE NUMBER BLKADR(R4 ), RO 1PUT BLOCK'S ADDR INTO RO 1RECALIBRATE DRIVE R4 PC.RECALO R4 DRVSTA(RA) ASGN?7 ASGNG PC.CLROPB PC.GETID 3ILV, SRPDS(RO) ASGNS DRVPAR 1 . SCRLF . DRVMSG tMAKE 1MAKE R4 WORD R4 BYTE INDE x INDEX iDRIVE AVAILABLE? tBR IF DRIVE OFFLINE OR NONEXISTENT ;18R IF ORIVE UNSAFE ;CLEAR BLOCKX FOR DRIVE JUST ASSIGNED iGET ORIVE SERIAL NUMBER s INTERLEAVE SECTOR SET :BR IF NO ? 1 CHANGE DRIVE PARAMETERS :iBR IF NO ;CR-LF s TYPE 'DRIVE' 1 1SAVE R4 FOR .BYTE .BYTE 2 ] ::TYPE 2 DIGIT(S) 1 1SUPPRESS LEADING ZEROS JSR PC.,TYPDRY TYPE TYPE 18: 1 Ra, -(SP) TYPOS 056653 056611 033050 63 ASL JSR MOV mMOove ASR RTS ., COMMA .BLNKS] R4 PC.DRVPRM TYPEQUT s 1 TYPE DRIVE NUMBER $:GO TYPE--OCTAL ASCII :TYPE ¢ s TYPE 1 BLANK s TYPE DRIVE SERIAL NUMBER sMAKE R4 WORD INDEX ;GET THE ORIVE'S ADDRESS LIMITS BLKADR(R4 ) ,NEWUNT(RA) PACK, $PACK(RO) R4 :OPB ADDRESS sSET COMMAND INDICATOR PC iMAKE R4 ; RETURN MOV JMP ONOT ,SAF ASNMSG ASNERR s TO ERROR ROUTINE 1578 DRVTYP(RA) 1s 2t ;NOTRP.ASNHSG :18F IF DRIVE OFFLINE sADDRESS OF NOT RPO7' ;NOTPRS.ASNHSG 820?$ESS OF BEQ ePL MOV B8R MOV BR MOV JMP MOV JP $ $ OUNTOFF , ASNMSG ASNERR ONINLEV,ASNMSG ASNERR ? BYTE s 'UNSAFE' INDEX MESSAGE ADDRESS ;ORIVE PRESENT? :BR IF NOT 1EXIT tEX MSG 'NOT PRESENT®' MSG s ADORESS OF *‘DRIVE OFFLINE' 170 ERROR ROUTINE MESSAGE 1ADDRESS OF 'NON-INTERLEAVED' :TO ERROR ROUTINE MESSAGE } JRUOBO RAPO7 PERF EXER MACRDO vO4.00 1 DEC B2 Kwll CLOCK CrECK ROUTINE 1 ‘; 4 +'0 027700 S 027702 6 027706 005004 012703 122715 7T 027712 001403 9 027716 0127083 11 0277%0 001417 15 027750 16 027756 016464 006204 8 0z7714 10 027722 12 027732 183 027740 14 027746 17 027760 18 027762 19 027764 20 027766 21 027770 22 027776 23 C30002 S; 030004 111504 136437 146437 146437 006304 000101 000001 001542 040630 040630 001542 032100 002056 001544 004737 000766 056710 031332 031356 000207 :1'S' 013746 30 030016 001416 32 030022 33 030026 136416 001404 gz 030036 000411 116437 040630 001542 37 38 39 40 41 42 030040 030046 030052 030054 030060 030062 012737 004737 070413 105737 001410 004737 056710 031332 03135 44 030072 104401 001203 31 030020 34 030030 43 030066 :2 030076 47 030102 030102 48 030106 12271S 111504 104401 O0ON1542 000101 3¢ 001542 000207 1$: 025020 012637 (RS),Ra 1 o1 ,R3 BtQ 3 WITW DRIVE 1COUNTER 18R IF O YES ;GET DRIVE MUMBER ;SET R3 FOR ONE DRIVE ATABIT(RA) ASNM ST sORIVE ASSIGMNED ? 1BR IF NOT ATABIT(RA ) ASNLST ;DELETE THE DRIVE FROM THE ASSIGNED LIST ATABIT(RA), AUTLST ;DELETE DRIVE FROM AUTO ASSIGN LIST R4 sMie€ ADDR INTO A WORD INDEX DEC BLXADR(R4 ) ,0DRVS(Rae , sPUT ADDRESS IN OROP LISTY Ra RS s ANY MORE DRIVES ? INC B8R R4 1 44 ;BR MOV SUNTNOT ,ASNMSG ;ADDR OF ' NOT ASSIGNED' RTS PC JSR B8R PC.ASNERR 2t IF NOT tREPORT IT MESSAGE COMMAND (ROUTINE TO TYPE DRIVE PERFORMANCE SUMMARY) MOV ASMLST, -(SP) 1 1PUSH ASNLST ON STACK 8EQ 24 18R IF ;IS 18k THIS DRIVE IF NO oA (RS) (RS),Re 8IT8 BEQ ATABIT(RA ), (SP) 1§ BR 3 OUNTNOT ,ASNMSG PC .ASNERR [ Y} ASNLST 43 PC.STATPR TYPE « SCRLF TYPE sALL STATISTICS JDASH13 YES ? sGET DRIVE N <R ATABIT(R4 ), ASNLST MOV JSR B8R 1S18 BEQ JSR TYPE 1y 8. RS MOV MOv8 2s: 057573 Move "OVve 001542 104401 tOROP ALL ORIVES ? cr8 040630 057407 o A (RS) 8eQ SCMND: 030006 29 030012 cre8 MOV ASR 4% 22’67’ 28 030006 1START B8ICS eICo ASL 3%: TC DROP A DRIVE) Re eaIte 2%: 001410 012737 1%: SEQ 01 (iR MOV 8tQ 040630 ~4 COMMAND (ROUTINE DROPD: 000010 005303 005204 000758 10:32:28 PALF L ASSIGNED ? 1GET DRIVE ASSIGN BIT sADOR OF 'NOT ASSIGNED' #TYPE ERROR MESSAGE 1EXIT sANY DRIVE ASSIGNED ? B8R IF NO sTPE ALL STATISTICS sTYPE ¢ eeeeeiea e’ tCR-LF +MSGCON 1 TYPE ‘CONTINUING...' MOV (SP)+ ,ASNLST siru- SYACK INTO ASNLST RTS PC MSG Ll CTRUOBO APOT PERF S XER MACRD vOS. 00 1 JFC AS 10:3.°:08 P4 &S wwil CLOCK CvECK ROUTINE 1 * 030110 4 030114 +'T 005037 000137 030162 027202 NEMASN: CLR ) ¢ 8 030120 |2 030126 {'R° 14 030140 ;'W° 012737 000137 177777 027202 030162 ie 18 030148 COMMAND 012737 000001 030162 REDAPK: MOV 000137 027202 > i1 1% 030132 COMMAND (ROUTINE MOV P (SET ' T° COMMAND INDICATOR 1GO 10 THE ASSIGN ROUTINE T0 DO o1.PACK ASS TGN COMMAND (ROJTINE DATAPK: 10 TES'T A DRIVE) PACK ASS TGN (ROUTINE £0Q 0148 SEQUENTIAL READ DATA) {SET ‘M COPMMAND INDICATOR 1ASSIGN THE REQUESTED DRIVE TO DO SEQUENTIAL WMRITE DATA) 0.1.PACK ASSIGN 1SET ‘w' 116515 012737 22 030162 000000 000001 177776 20 030156 000137 027202 030162 WATPAK: MOVE COMMAND INDICATOR JADJUST DRIVE NSBER ADORESS MOV o 2,PACK 1SET "MT' COMMAND INDICATOR .WMORD O 1 TEMPORARY 2P PACK: 1(RS),(RS) ASSIGN ' 1ASSIGN REQUESTED DRIVE ' WT* COMMAND (ROUTINE TO DO WRITE DATA AND TEST A DRIVE) 19 030150 | 1 AP TO ASSIGN ROUTINE STORAGE FOR COMMAND INDICATOR | CIRJ0BO APO° PLAF EYER MACRO vOS.00 | OEC 88 10:32:70 PACF &0 Hic 38Q 0149 wwii CLOCx (v@Cx ROUTINE 1 Py e o?W'M 10 QLEAR T OFPR FOR Te€ ASSIGNEN ORI /E sCALL ; s Lo )] e By 10P8 ADORE SS 8 Fl ¢ ] 4 s ’ ] 9 030164 010166 010%46¢ 010446 010%46 11 0350200 001073 12 030202 13 030208 14 0%0210 1S 0302148 16 030216 l: 030222 0OCS737 010004 062704 012703 005024 CLROPS 040100 000002 19 030228 20 0302% 062704 012703 000002 000114 22 030236 3.3 030242 162703 001374 000002 25 030244 062704 000026 27 28 29 ;(; 030250 030254 03025 030262 012703 00%024 162703 001374 000062 53 030264 113760 001514 21 030234 26 32 005024 34 030272 013701 36 030304 113760 16: 24: #C . CLROrFS N, -(S#) RS, -(SP) N, -(SP) ", (SP) 11 PUSH RL s1PUSH RS 1 1PUSH ARG 1:PUSH RS On O ON O STACK STACK STACK STACK as 1ORANCH IF YES 151 PWRF LG 1 01'] ADO "oV RO, Ne 1GET D€ 0P8 ADORESS 02.'0 1ADORESS OF FIRST LOCN TO O CLEARED 0 sCTL-5COMND».2 RS 1PDER OF LOCNS TO BE CLEARED q¥ ] (R4). 1RETURMING FROM POMER FAIL ? JCLEAR LOCATIONS 'SCOMNMD: ' SCYL° ADO "oV 02 R4 1SKIP OVER € ' SREG' LOCATION O INEXT.- HATUSN? L} ) 1NPBER OF LOCNS T0 BE CLEARED SUB [ F N} ] aCLEM LOCATIONS BNE ] 1BR IF N0 ADD 0<SDRYSN-$F IRST> AQ mov CLR SUB BNE O« IRPCSS - $0RVYSH> . 2 NI INPBER OF LOCNS T0 BE CLEARED (R4). 1CLEAR LOCATIONS 'SORVSN' - ' SRPCSY' In OFS 02 .RY +sOONE CLEARING VYET ? 3¢ 10R IF NO 000024 nove 'EGCQ.OCM(OO) LI P " STATUS: t1OONE CLEARING YET ? sSKXIP OVER . 'SNEXT' ‘IFIRST ', MIN/MAX ADRS JINITIALIZE SOME OTHER LOCATIONS s INITIAL 35 030276 116160 002076 000002 nove 37 58 59 40 41 42 43 030312 030316 030324 030332 030336 030344 030352 10630 013760 013760 005460 012760 012740 132760 mOve ASLD OV 01 NEG MoV MOV eITe SEGPAT, O?GYYC(QO) OPA"C('O) OEGUC , SMROL(RO) GEGMC, SWCNT(RO) SWMCNT(RO) 0256 . ,0SSEC(RO) 01, 8PASSC(RO) 01,0CODE(RO) 1CONVERY CODE TO A TABLE INDEX ;BEGINNING WORD COUNT ;VALUE FOR DATA TRANSFER JPAKE IT INTO 2°'S COrMPLEMENT ;INITIAL VALUE OF SECTOR SIZE tPRESET PASS COUNT TO 1 IMEADER COMMWAND ? 44 030360 001403 :2 8&% 062760 030370 030372 030374 030376 012605 012604 012603 012601 47 030400 000207 000030 001516 001516 000004 000400 000001 000001 000002 000020 000004 000022 000114 000024 000022 o 1GET COMAND COOE 0EGC0oD 000030 Ofl&f!l) $COND(RO) "€ ACTUAL OP COOE PATTERN CODE 8tQ 49 sOR 02,0SSEC(RO) .mo MEADER SIZE 10O SECTOR SIZE MoV OV MOV MOV (SP). RS (SP). R4 (SP)., RS (sP). 1:POP 13:POP 1:POP 1:POP PC IF 1OPERATION CODE ADD RTS IN DPS sLINITS AMD ‘CYL, TR, SEC, FEL’ LIMITS mnov 001512 IN OFO 2.3 14 CLR 100NE CLEARING YET ? iOR IF w0 - SU8 SNE (R4). 000002 001514 Ov la 04 "Ov "0V o 000002 000012 162703 001374 1 Nt TURN W0 = OPg ADONESS GEFORE CALLING TvE AOUTINE 030164 030166 030170 030172 10 030174 JOR NOT STACK INTO RS STACK INTO Ra STACK INTO R3 STACK INTO R} 1 RE TURN C7RJ0B0 WPOT PLAF *wil ¢ XER MACRD ¥04.00 | OEC 03 10:52:28 PACE o7 lie >80 01% CLOCx OECx ROUTINE 1 .&nm P 8§ : : ' ’ [] ¢ | 10 GET ACDRESS LINITS FRON NG OV ISR N0 o OPY ¢ 030602 010%4¢ 10 030406 11 030812 004737 082760 03076 177777 000132 016060 016060 016060 000150 000154 000152 000134 000160 000164 9 030408 12 030420 18 030422 16 030430 15 030436 17 030444 18 030450 19 030452 20 030460 21 030462 010446 103%42¢ OO0S737 001008 016060 000602 005060 0001% 005080 0GO186 22 030464 00060 30 030476 31 030%2 105737 001074 g 030472 32 030%4 38 030510 34 030512 $S 030516 36 030520 37 03026 38 030932 39 030%40 001822 005737 0C307% 000136 001426 016403 061644 016068 000150 016063 016063 Y 001332 005737 (01066 153 > LI N 001150 JSR 200 oS 20; 000142 "oV "oV "oV "oV 000136 0001% O00UC16 Nha AOUT DG as, () 13AvE A3 'c cEnmY t.wxlmuo) 'GET ADORESS LIWITS 1SEE IF FINST TIME STARTED ne..(SP) 1SAVE R OR IF w0t cvwmao\ MARCYL(R0) TR LNT(RO), MAXTRN(RO) SECLNT(RO).MAXSEC(RO) 4LOAD MAXTMUN CYL INOEN ;LOAD MAX PRI TRACK ,LOAD MAXIMUM SE~ TOR 15100V 20 1AL YOU TESTING ANYWERE 100 IF vES NINTR(R)) tCLEAR MINIM TRACK sAUTOR 7" {MANING TN AUTO MODE JOR IF VES ) 0N O "EDIA an MNINSEC(RO) LN ST > 13 OGAOR 151 ORVeaR mOV TAGLE(RS) AS 74 sCLEAR MINIMUM SECTOR ? +PROGAARN STARTED AT 200 ? IF VES .cma ORIVE PARAYE TERS ? +OR IF w0 1PARAE TER TASLE AODRESS ] CYLLMT(RO), 2(A3) 4 047 Y.(LHY(.O).IO(QS) 000010 MOV 000074 000CC32 000040 mOv MOV "0V TR NT(RO).24(A3) SECLMT(RO). 82(RS) SECLMT(RO) ., ooum sLOAD CYLINDER LINIT FOR WINCWL CYLLMT(RO).10(RS) sL0AD CYUINDER LIMIT FOR mAXCYL sLOAD TRACK LIMIT FOR mINTAX 40 030%46 41 030554 42 03052 016063 016063 016068 000154 000152 000152 44 030374 004737 031170 JSA #C.PARENT 1GET TrE DRIVE'S PARNETERS 46 030600 016003 000136 MmOV WINCYL(RORS ) ,STORE MINCYL VALUE SLE S tBR 43 030570 47 030608 48 030610 49 030612 SO 030614 S1 030620 52 S3 54 SS 56 ST 58 030624 0306%0 030634 030636 030640 030644 030650 61 030662 S9 030654 60 030660 62 030664 63 030670 104401 016004 020%04 00304 01030 010460 016003 016004 020%04 003404 010360 010460 016003 060102 000134 000136 0001842 000140 000140 000142 000146 016004 020304 000164 010360 010460 000144 000146 003404 TvPE 000134 p 01} (q, J S é6s: ? FEL(RO) , NINC TL(RO) JRESET MINIMIN CYLINOER ACORESS 3¢ NINCVL(RO) JCLEAR MINTMIN CVA INOER e 000002 sCALL ROUT NG "oV on ) oY 000150 10P8 ADORESS AOORESS BEFORE CALLDNG ORVPRR; MOV 16: o B #C .Ohvenn OPEMA /0N ENTLAT RAXCYL(RO ). R4 R3.Re +LOAD TRACK LINIT FOR MAX TR 1LOAD SECTOR LINIT FOR MINSEC sLOAD SECTOR LIMIT FOR MAXSEC © ADORESS LIMITS," 1STORE mAXCYL YAL\E 1IS MIN, LESS TAN OR EQUAL IF YES MOV MOV RS, MAKCYL(RO) RE.MINCYL(RO) ;SwAP MIN. TO MAX. ;SwAP MAX. TQ MIN. (d, 4 8LE "oV oy nov R3.Re 64 R MAXTRX(RO) R4 NINTRX(RO) MINSEC(RO),RY s IS MIN. LESS s8R IF YES 1SWAP MIN., TO tSuUAP MAX. Y0 ISTORE MINSEC "oV OV MINTEE (RO),RS RAXTR% (RO ), NG 1STIRE 1STORE MINTR MAXTRe TO MAX. vA(UE VAL UE TrAN OR EQUAL MAX, MIN. VYALUE TO MAX. MOV cre MAXSEC(MO)MG . RS, A4 ;| STORE MAXSEC VALUE 1IS MIN. LESS ThiAN OR EQUAL TO MAX. MOV MOV RS, MAXSEC(RO) R4 MINSEC(RO) ;SWAP MIN. TO MAX, ;SWAP MAX. TO MIN. BLE 7% :BR IF YES ? CIR «wii B0 GPO?T SEaN Fot® MACR) vOS 00 | JEC €3 10:52:700 Pagl o7 | CLOCX O o8 o OS¢ ¢’ (v 0% 700 MO 003787 001016 SO1422 78 OO0 30%008 016080 7Q 03072¢ ;. 030730 103008 016080 000130 000190 75 0%0798 016080 O00198 ©00012 90 0%0732 116080 000186 @00010 70 030764 83 030760 030762 &2 0308 20 0192 I &8 030702 6% 030710 70 0%0712 71 0%0720 JLZ 026000 {16080 012008 012609 000207 GUO1I9S ©001% 00019 00019 G0018 0©00142 ©001% @0001} 08, 99, et [ ] g.’ 13 Oy 0y g o113 NOv v L o | o Oy g F ] ury 431 L ] IR N "IN (R9) FELI (D) [ 1] FLI(MY) AT (80) B YOU TESTING e O "EDIA ? A {) '--(vuh).nun) 119 Win. CHLINOER « 13T FE CWINDEN ? 08 ¥ %O 1MESET MINIT® (" INDEN A0DRE SS » IS AR, C INDER ¢ 1ST FE CWD0DEN ? L o] CRAN(09) manCn (RO) 100 IF w0 AENMET AN C INDER ADDNESS TN (00), iIntlrIi;al CM DDER v\ B N (D0) MinNTar(80), T8N 80) NivsEC(@0), 08EC(MO) (SP). 0a (59)e 0% < sniTiag iIitIing TRACw vag & CTOR waL 1:P0P STA(X INT0O Re 31900 STACK IN'O NS 1 B8 T AN BPc" PIB Oy (@ v &) " g ye OC b B LN LR S 1O ST T s 0 . N . BT g 12 8e 01% QUNELS L PUTS FER .G g +JCRLA A0 OARENY BRI 7oy PE 4 80 « M) Aapoag LS GETONE CALLINE N AV e 0 OV,779 9 OV TP 0 03000 11 0%:008 12 %1016 011422 01028 OUHO0Y OGDIOAY OLIMP 1311004 127271 GO O127® 012740 10 CL10% 031004 1 031088 01270 01270 .lfifl‘ 000X P ed ce 01270 Q12760 IV CAMAY I YT 16 01038 9127¢0 1Y 0%1080 - R 010109 O .33 ©0008E ©O01168 001} S00CI? -y onr1% O« ;% -y JPL 4! o o~ FTi1(ee) "ag Cr, m"a9) O ;% @O0} W ~y .y o~ N 180 o ] nov,og o .OwtvqEy) v % L 4 0% "8 W68 i3 16 Cvi® AR, H Yul: I @ SO atie CTR -y o i %9 ©O0Ci% v . [} 1 e B On STACR 1$TaRT FRE e WikT ARONE 1S (F 187 #E Cw [wDRN ;Mufl AL IO 029 tew mrr00) Musg teaiw =t 0%S SENT(ED) ;05,8 MCTI \ (MY 1 N0 FY1(00) (n(TM"’'89) AT ORI Mreee 113 ORIt Aam O ? N _IN AR T ABDRELY F 187 PR C DDEO AT (N IOER 3T PR APO?. o3} .tow mrimg) ,co? 'lté' LImt? ~Ow 000MAUMI(NO) (AT MLTON \ P1Y. v (Pr..m aty \ LT PO ADG? . . 190F STaCn InTO M) oha ruan - . I W CRONe BP0T W ¢S *mOR) 08 M9 | HC 03 10- V-0 Pus o0 (LO(r D@L B0 ®o 018 T $ee 00e v S CTE e (T g PPl .;:i;,:-u-:.u-umo li&lx s s ] v y, @0 o 09 D - AF- 010004 93 Lree ©1 a8 03 0P ? o'y 012709 Q}Ml l O 0y ous, ) U 0 00y 10 O 1 09 o L OU s o 01 200% 01 /02 01,00} 01 2000 000207 v a, () (AL PE (¥) (W) eon u ~ 4 ", Oy O [ A a2 0 v v v od atg o 0.0 s ”)-.fl (W) & (¥W)e 0} ($9)e 00 oC S\ VP M 5 8] O SN o 3w o $'n .va A, W1y OB BILT°Y T STOME 1Mol msuRn 1 V80 1.0 g @t SIG1LY IRt S o o d l? LIS TED TM 7%SoAr i oms ax oa 2 &0 PR Pu* Pe » YY) sy 09 ) .M " :& o .-m "y ~ v .o e g s o0 8y o . s FEON somAm 89 I §7aCw e, (W) ", WIS ML g +OFD ApDES % N9 Ve - Vig+| e on Ous. 10} 110%0 19, S SITON ), T %2 WOIN N g caa A N.A*'H v oy o 1 0 04 Ou1n o 1 08 OUt 10 ous, o8s ’ N MU oy Sit:108 { il 09) g IV AC1Il 1%avd ORlve WNIA WMOIVEN PTCTY N SN ¥ ol& .l(o" ..'O 1009 '&l u” sraCn ' 20N GRivE 1940? L2] o8 0 " S1aln In10 MO ‘deT MALA. WMIUEN RO N LSBT N H12 CERNg NN S AR Mo 01% I o311 % os172 o%11 % 031209 031208 031208 031210 031212 osi216 vs1216 010%y ? U0 012387 0018%4 &co00s 012%¢ 012%0% 011 031222 004 73 008 73? 03412 032450 03122¢ 108001 10440} LSand! 0%17,%2 0312% 031242 031244 031266 0312952 031254 031260 031262 031264 031266 031270 081272 031274 031274 031 %0 031304 0313510 031312 031314 031316 031322 031324 0313526 031330 S B FFPRTR PSERTR TR AT AP sCAAs 10440} 108411 01,40} 0057387 00102 00453 osiire 03132¢ 031300 031274 031300 031312 010219 000737 104401 162703 000732 0102193 000404 005037 011608 000724 005726 000207 0644 0%e11 0015354 033234 ~'.‘ . o< pongat <3 e ) A (03). (0%). .08 (), () . 9580 < MPWY, 1C' e u? v & sanapy 1Covvent 17 70 DECITMWM 1o 1T (LEFY AR LL) 060163 40, S¢: 001334 64 Te: 1SN B torgy O JRIs] (). .08 oL L3 "3.01.016 17798 | OL At «g YOOAMRD 1 0% A0 On IF IV was g DIGITC(Y) 1O € 1CARRIAGE RETURAN O Y ENTERED PLRIID OY ENTEARD slaLe AL 1t 1TEa=INATED WITH A CARRIAGE AL TURN sTERNINATED WITH A R2.(W3) 19 A A Y NN NS e~ venlrd 00 <0 vs o .= Ay (O (00 SELELLLNLEI3 § 70 MO GPOT AN ¢ W0 WACRG o0 .00 | SRC 08 90:.-92:50 Pagl . SADENT 06 .R3 1 R2,(ANS) Te CFLAG (SP).A3 1 (SP). PC =, - sTEAMINATED WITH A - - 1MOVE W YALUE TO PARAME TER LOCATION 1GET MORE PARME TERS s ' BAD ENTRY' 1DECREMENT TvE TABLE POINTER 1 TRY AGAIN 1MEW VALUE 1334 iICLEAR THME "CONTROL C* FLAG IRELOAD TrE PARAMETER TABLE ADORESS sTRY AGAIN sCORRECT THE STACK POINTER s RE TURN CZRIOBO APO7 PLAF EXER MACRO vO4.00 1 OEC 83 10:32:28 PAGF PARME TER ENTRY ROUTINE 7] N12 SEQ 0133 1 TYPEOUT ASSIGN/DROP ERROR MESSAGE : sCALL ' 1 )] SESADR ASNMSG ERROR MESSAGE ADORE SS ASNERR: TYPE TYPE TYPE . SCRLF LQUES .DRVYMSG 1CR-LF ' ? sTYPE 'DRIVE’ 2 0 s TYPE 2 DIGIT(S) s sSUPPRESS LEADING ZERQOS F : 0%138%2 031336 031342 031346 104401 104401 104401 010446 031350 031352 031353 031354 031356 071360 104403 001203 056647 056661 JOR RE TURN a0)'} TYPOS .BYTE .BYTE 002 104401 ASNMSG: 000207 TYPE .WORD TS PC . ASNERR R4, -(SP) 1 ;SAVE Ra FOR TYPEOUTY s 1 TYPE DRIVE NUMBER :3GO TYPE--OCTAL ASCII :TYPE SPECIFIC MESSAGE sMESSAGE ADORESS O PC ;OROP DRIVE IF A FATAL ERROR OCCURS sCALL: PC .DROP JSR H RETURN H 031362 031366 031370 031372 031400 031406 031410 031414 031420 031424 031430 031434 031436 031440 031442 031443 031444 37 031450 38 40 41 031452 a2 031460 43 031462 44 031470 52 031472 53 031476 005037 005004 111004 146437 146437 006304 010064 104401 104401 104401 104401 006204 010446 104403 002 000 104401 000207 043626 040630 040630 DROP : CLR CLR PERM R4 81C8B 8IC8B ATABIT(R4),ASNLST ATABIT(R4),AUTLST MOVB 001542 032100 001544 001203 1¢: ;MOVE DRIVE NUMBER TO R4 ;REMOVE DRIVE FROM ASSIGNED LIST ;:DELETE DRIVE FROM AUTO ASSIGN LIST R4 RO,DDRVS(R4) TYPE TYPE ASR MOV .MSGON , DRVYMSG R4 R4, -(SP) TYPOS .BYTE 2 ::GO TYPE--OCTAL ASCII ;s TYPE 2 DIGIT(S) TYPE . $CRLF ;:CR-LF .BYTE 001203 (RO),R4 ASL MOV TYPE TYPE 057641 057676 056661 ;CLR PERMENANT ERROR FLAG :CLEAR R4 FOR DRIVE NUMBER RTS sMAKE DRIVE NUMBER INTO A :PUT DRIVE IN DROP LIST . $CRLF ., DROPNG :TYPE TABLE ' 2FATAL OR EXCESSIVE ERRORS' :TYPE 'ON’ ;s TYPE 'DRIVE’ ;:DRIVE NUMBER : :SAVE R4 FOR TYPEOUT :: TYPE DRIVE NUMBER O : s SUPPRESS LEADING ZEROS PC ;ROUTINE TO DROP DRIVE IF ERRORS BECOMES EXCESSIVE 032777 001006 023760 101002 000137 000207 000020 147474 001456 000102 031362 ABNRML: BIT BNE cMP 1¢: BHI JMP RTS o5SW04 , 8SWR ;SEE IF SWITCH 4 SET 14 DROP PC 1BR IF ERRORS CO NOT EXCEED MAX ;OROP THE DRIVE +RETURN 1$ tBR IF IT'S SET MAXER, $TOTAL(RO) ;CHECK TOTAL ERROR VALUE . INDEX CIRUOBO RPOTM PERF PARAME TER ENTRY 1 EXER MACRO vO4.00 1 OFC 8% 10:%°:°8 PAGR 72 5FGQ 61564 ROUTINE sROUTINE TO CHECK FOR END Of PASS AND END OF TEST N CIRJUOBY RPQTM PERF END % £ xER MACRD V04,00 PALS ROUTINE 1 OEC 83 10:3.: R PAGLF i .SBTTL END OF 71 €0 0157 PASS ROUTINE 1100000600000000000000080000000000004000000000000000060000000000000 1o INCREMENT t1oIF ;oIF 031500 031500 031502 031504 $EOP: 010446 111004 1¢: 105737 001150 136437 040630 032100 156437 000441 040630 032100 031532 031540 031542 031550 031552 031556 026037 103435 032777 001031 104401 104401 000114 001474 000020 147404 031600 031602 006304 010064 001203 001203 057407 057477 040630 001542 031510 001410 031520 001110 031512 031522 031530 031562 031566 031572 031606 031612 031614 031620 031624 031632 104401 104401 146437 105737 001062 005237 005237 042737 000452 001214 147312 031660 031664 031670 031674 031700 031704 104401 104401 004737 104401 104401 004737 031710 031712 031714 010346 010004 062704 012703 005024 162703 031654 031720 031724 031726 031732 031734 031736 104401 001374 012603 005260 MOV MOVB T UUMP TO RTURN R4, (5P) (RO),R4 $ SAVE R4 +MOVE DRIVE $AUTOB ;RUNNING ;18R IF NO NUMBER IN AUTO MODE ? BNE. 64 cMe BLO BIT BNE TYPE TYPE TYPE TYPE 81C8 ASL. $PASSC(RO),PASSES :SEE IF AT END OF TEST 3 ;B8R IF NOT 0SWO4 , BSWR ;TYPE END OF TEST MESSAGE (SWO4=1) ? 34 :BR IF NO + SCRLF sCR-LF « $CRLF ;CR-LF +DASH13 sTYPE ¢ cvemeecceeaan ! +MSGEOT s TYPE 'END OF TESY--------vomn--o EoT’ ATABIT(R4),ASNLST ;DELETE DRIVE FROM ASSIGNED LIST R4 tMAKE ORIVE NUMBER INTO TABLE INDEX 1S78 BNE INC INC ASNLST 74 $DEVCY $PASS BIC BR 3%: ($PASS) 2s BISB BR 2%: PASS NUMBER 6€EQ MOV 001216 001214 100000 000400 ISN BIT8 001542 032777 001022 104401 104401 THERE 1518 001544 031634 031642 031644 031650 THE THERES A MONITOR GO TO IV ATABIT(R4),AUTLST ;B8R IF ATABIT(R4),AUTLST 3 $IS ORIVE YES $ADD DRIVE ALREADY RO,.DDRVS(R4) :PUT BLOCK ADDRESS INTO OROP LIST 2100000, $PASS 78 sAVOI') NEGATIVE NUMBER ;ALL PRIVES ARE DROPPED ? ;B8R IF 0 : INCREMENT DEVICE COUNT s INCRFMENT THE PASS COUNT 001203 001203 0SWO8, ASWR 44 « SCRLF «$CRLF s INHIBIT END OF PASS ;1BR IF YES tCR LF iCR LF 057451 001203 026226 057401 057425 025122 TYPE TYPE JSR TYPE TYPE JSR »MSGEOP . SCRLF PC,S$TIME .DASHS +MSGSUM PC,ONESUM s TYPE 'END OF PASS’ tiCR-LF ;TYPE ELAPC"D TIME sTYPE ¢ --1 TYPE ' SUMMARY' 1 TYPE ONE ORIVE SUMMARY MOV MOV ADD R3,-(SP) RO,R4 O$RDPAS,R4 1 SAVE R3 1ORIVE'S BLOCK ADORESS ;ADD THE STARTING ADDR OF CLR Su8 BNE MOV INC (R4). 02 ,R3 5% (SP)+,R3 $PASSC(RO) sCLEAR LOCATIONS ' $RDPAS* 1DONE CLEARING YET ? 1BR IF NO tRESTORE R3 1 INCREMENT THE PASS COUNT TYPE 4% 000036 000016 000002 000114 S¢: MOV .DASH13 TO AUTO LIST TO AUTO ASSIGN LISTY BIY BNE TYPE TYPE 057407 ASSIGNED sTYPE 0<$OPERC - $SRDPAS>+2,R3 TYPEOUT (SwW08=1) ? @ -eccceceannn ’ SECTIONS TO CLEAR tNUMBER OF LOCNS TO BE CLEARED - ‘$OPERC’' IN OPB ? (), - CIRJUCRD RPOT PERF EXER MACRD vO4.00 1 OFEC A% 10: ENO ¢ 5EQ 0158 PASS ROUTINE 0%1742 031746 031750 0X1756 031760 021762 [ OVWE®~NOVNDWN 031764 031770 031772 031776 032002 032010 032012 032014 032016 032020 032022 032024 032030 032032 032034 032036 032040 032042 032044 032044 032046 105787 001404 023787 001402 012604 000207 005237 001375 005237 005237 042737 005327 000001 003013 012737 000001 032012 013700 001405 000005 004710 000240 000240 000240 001150 001542 005037 012706 005237 004737 004737 000137 032100 000000 $AUTOB 7¢ AS ST NL AUTLST 082100 14 032100 001216 001214 100000 8s: 000042 :BR IF PC tRETURN AUTLST sCLEAR AUTO ASSIGN LIST FOR NEXT PASS AND (PC)He. 1 $00AGN (PC)H.,B(PC). 1 SENDCT: $GETA2: 8642,R0O $00AGN $ENDAD : PC,.(RO) 177776 001100 RTURN: 001212 033510 024574 006340 AUTLST: ALL YES DRIVES COMPLETED PASS IN AUTO MODE sRESTORE R4 sWAIT FOR TTvY s INCREMENT DEVICE COUNT 1 s INCREMENT THE PASS NUMBER NUMBER ssOON'T ALLOW A NEG. $:L00P? 13 YES $ sRESTORE COUNTER ::GET MONITOR ADDRESS : 1BRANCH IF NO MONITOR ;1 ;CLEAR THE WORLD ::G0 TO MONITOR : : SAVE ROOM : sFOR s:ACT11 $DOAGN: $RTNAD : 2 a8 (SP)+ R4 tHAVE NO IN AUTO MODE IF $DEVCT $PASS 2100000, $PASS 001214 sRUNNING 19R 8s SEOPCT: 000137 032050 032050 032054 032060 032064 0320790 032074 64: .WORD RTURN 8(PC)e 1 :RETURN CLR PS :SET PRIORITY TO O :RESTORE STACK : INCREMENT THE TEST NUMBER IN THE MAIL B80x MOV INC JSR JSR . WORD @STACK, SP $TESTN PC. $ TKINT PC,CKCLK MAIN 0 tMAKE SURE KEYBOARD INTERRUPT sSYSTEM CLOCK ARE STILL ON. ;RETURN $AUTO TO AND LOOP ASSIGN LIST (USED IN AUTO RUN MCDE) 2 [l =8 Pt Pt P pub -5 pob [« IRV PABUNEO OB JO NS nwl)r CZRU0BO RPO7 PERF FXER MACRO vO4.00 1 UEC 83 1 END OF PASS ROUTINE sROUTINE +CALL 013746 013746 010546 004737 012605 005726 000207 037306 037304 TO GET H MOv 3 RE TURN JSR : 032102 032106 032112 032114 032120 032122 032124 3.:08 PAGE GE TREM: 032126 MOV MOV REMAINDER OF NUMBER , RS RS, (SP) PC,8$D1IV ;?; SCS:P)O THE RANOOM NUMBER ;REMAINDER SLONUM, -(SP) tHINUM, “EQ 0159 sDIVISOR INTO RS PC,GETREM MOV JSR MOV .SBTTL THE b? 74 (SP) (SP).,RS IS IN RS ;STORE RANDOM NUMBER ON ;UPPER PART THE STACK FOR DIVIDE ;PUT THE OIVISOR ONTO THE STACK ;OIVIDE THE RANDOM NUMBERS 1PUT THE REMAINDER sADJUST THE INTO RS STACK POINTER INTEGER DIVIDE ROUTINE 1:0000000000000000080000000000000000000086000008800800800000400000 1¢THIS ROUTINE WILL DIVIDE A 32-BIT TWO'S COMPLEMENT INTEGER 1sOIVIDEND BY A 16-BIT TWO'S COMPLEMENT INTEGER DIVISOR GIVING soA 16-BIT TWO'S COMPLEMENT INTEGER QUOTIENT AND A 16-BIT REMAINDER. +¢OIVISION WILL BE PERFORMED SO THAT THE REMAINDER IS OF THE 1¢SAME SIGN AS THE DIVIDEND. s oCALL: ;e MOV LOW DIVIDEND, -(SP) MOV DIVISOR, -(SP) ;e MOV 3¢ ;e JSR RE TURN 1o HIGH DIVIDEND, -(SP) PC,.$01V 13 THE HIGH DIVIDEND MUST BE :sAS LARGE AS THE DIVISOR <« 1 sQUOTIENT € REMAINDER ARE ON THE HLJ ;e 1®8 0 ;e i 032126 032130 032134 032136 032142 032146 032150 032152 032156 032162 032166 032170 032172 104412 016605 000026 016602 016603 000030 000032 005001 004737 010166 010366 104413 012616 000207 032250 000032 STACK NO ERROR ceecee smmeecee T0P 2 OVERFLOW | REMAINDER QUOTIENT DIVIDE 8Y steesaceas eeme ALL ZEROS ZERO secessmea ALL ONES ALL ZEROS ALL ONES 3oNOTE: THIS ROUTINE WILL LINK $O1IV: SAVREG MOV CLR 26(SP),RS R4 tSTORE RO - RS 1DIVISOR 10OTHER DIVISOR WORD EL: :0 sCLEAR OTHER DIVIDEND REGISTERS JSR MOV PC.M.DPID R1,30(SP) MOV MOV L MOV RESREG MOV RTS 30(SP),R2 32(SP),R3 1 R3,32(SP) (SP).,(SP) PC 1/2 TO THE DIVISION SUBROUTINE tUPPER DIVIDEND WORD sLOWER DIVIDEND WORD 1GO TO THE DIVIDE ROUTINE 1REMAINDER ON THE STACK $tQUOTIENT {RESTORE ON RO THE - RS tMOVE RETURN UP STACK THE STACK ('M.DPID'). STACK L7 1S LD nl,vs 3EQ 0160 .SBTTY 17 CIRIOBO RPO"~ PERF EXER MACRDO vO4.00 1 OFC 83 10:32:2°8 PAGF DOWBLE DIVIDE R TINE soA 16-BIT TWO'S COMPLEMENT INTEGER QUOTIENT AND A 32-8BIT REMAINDER. 1sOIVISION WILL BE PERFORMED SO THMAT THE REMAINDER IS OF THE ;1*SAME SIGN AS THE DIVIODEND. : soCALL ;@ MOV LOWw DIVIDE ND, -(SP) 13 THE MIGH DIVIDEND MUST BE <« 0ouBLE DIVIDE ROUTINE 15000000000000000000000000000000000000000000008000000000000000004 1¢THIS ROUTINE WILL OIVIODE A 32 BIT TwO'S COMPLEMENT INTEGER OB :¢OIVIDEND By A 32-BIT TwWO'S COMPLEMENT INTEGER DIVISOR GIVING MOV MoV MOV 032222 032226 032232 032236 032242 032244 032246 004737 010066 010166 010366 032220 104413 012616 000207 000026 000032 000034 032250 000030 000032 000034 LARGE AS THE STACK NO ERROR OVERFLOW DIVIDE By ZERO TP REMATNDER Y 3 QUOTIENT ALL ZEROS ALL ZEROS ALL ZEROS ALL ONES (MSD) ALL ONES (LSD) ALL ONES REMAINODER : THIS ROUTINE WILL LINK : SAVREG MOV MOV MOV MOV CLR CLR R4 26(SP) 30(SP).RS 32(SP),R2 34(SP),R3 MOV RO R1 PC.M.OPID RO, 30(SP) R1,32(SP) R3,34(5P) MOV (SP).,(SP) JSR MOV MOV RESREG RTS PC 1/2 DIVISOR PC.$0BDIV 02 104412 016604 016605 016602 016603 $11AS JSR RE TURN 032174 032176 032202 032206 032212 032216 HIGH DIVIDEND, -(SP) LOW DIVISOR, -(SP) HIGH DIVISOR, -(SP) $sQUOTIENT £ REMAINDER ARE ON THE STACK TO THE DIVISION SUBROUTINE ('M.DPID'). 1STORE RO - RS sHIGH DIVISOR WORD 1LOW OIVISOR WORD tUPPER DIVIDEND WORD 1LOWER DIVIDEND WORD 1CLEAR OTHER DIVIDEND REGISTERS :GO TO THME DIVIDE ROUTINE iREMAINDER ON 1REMAINDER ON THE THE ;RESTORE RS STACK STACK sQUOTIENT ON THE STACK RO - (MSD) (LSD) sMOVE RETURN UP THE STACK 4 ABat, e CIPUBC APOTM PERF EXER MACRD vO4 .00 1 JEC 6% 10: 82:20 PAGF OUBLE PRECISION DIVISION SUBROUT Int .S8T T OOv@BLE sCALL JSR ly[7» T %0 0161 PRECISION DIVISION SUBROUT [NE PC.H.0PID 3 R o OIVIDEND + RO R1 R2 R3S (RO-MSD: DIVISOR * R4 RS (R4-M5D) REMAINDER AFTER DIVISION RO R1 (RO=MSD) QUOTIENT AF TER DIVISION = R2-R3 (R2+MSD) 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 032254 032256 032260 032264 032266 032272 032274 032276 032302 032304 032306 032310 032312 032314 032316 032320 032322 33 34 35 36 37 38 39 032330 032332 032334 032340 032342 032344 032346 x 14 032250 .OP1D: RS, -(SP) 2(SP) 8sP .DP40: 32 032324 000004 .DP4}: X 032352 032354 032356 032360 032362 032366 .DPa2; 1COUNTER FOR DIVISION CYCLES sH1GH ORDER 1LOM ORDER DIVISOR TO THE STACK sFORM NEGATIVE sVERSION OF THE OIVISOR 2(SP) 85F ,.R1 RO 2(5P),RO *~ DPSO \SP) {PERFORM THE INITIAL SUBTRACTION 1JF CARRY THEN OVERFLOW MAS OCCURRED sTHIS IS A LONGER LASTING CARRY BIT R3 R2 Rl RO 8sP M.0P41 osP 2(SP),.R1 sTEST 5P 1 L 4(SP),RO 1< 1SET "CARRY " M.DP&2 RS,R1 RO +ADD 85pP 1SET «(DIVISOR) 1 IF NO R4 ,RO 8sP "CARRY~ INDICATOR “CARRY" THEN ADD ELSE ;CLEAR UP FOR NEXT TIME RO 40 032350 41 42 43 44 45 46 ) 1<- +ADD 1SET 1 TEST $ -2 -(DIVISOR) "CARRY" ‘' CARRY* THE UPDATE INDICATCOR s IF ZERO FORGET IV tNO CARRY POSSIBLE HERE 1€~ 47 032370 1DECREMENT COUNTER 1BRANCH IF MORE 10 DO 48 032372 49 032374 032376 032400 032402 032404 032406 032412 032414 032416 .DP4a ; 000010 I 4 50 S1 52 53 54 55 56 57 .DPSO0: 1ADJUST STACK BY 4 WORDS SUBTRACT CXP 0RO Re)’ PERF EXER MACRO v04.00 1 -SEC-03 10:52:70 PAGE D(WBit PRECISION OIVISION SUBROUT NG S8 082422 59 00424 000262 000207 ety fats < Mo 1 ) HL13 50 0142 ] CI® 080 A0 Ptlr ¢xth MACRO vO8.00 | JEC 08 10:32-70 Pacs HPR;S TYPE ASCIZ, REPLACE LEADING O S wlTe BLAMKS Supeg PR TP ASCIZ, SEMLACE LEADING O°S witw B Aswrsy TYPE ASCIZ, LEFT AUSTIFY :éO...............O‘....O..O. 0000000000000 000008000060000000800000 ' ' ML on f ' OV C . APASL MONAON, - ($P) FINST ADDNESS OF ASL12 STRING SAUPRSL: MOV RO, -(SP) 1SAVE RO MOV N 032316 SUPRS;: 032316 . ”. 4 16 103710 001406 112710 005737 001002 010037 104401 000000 012600 012616 000207 20 032316 032316 $6; a8 SUPR2;: «SP) .0 SUrag +GET POINTER 10 PESSAGE on wreay MOV "0, -(9) 1SAVE RO OV N0, SAPR2 sGET POINTER FOR TYPING 1878 L 1] (®0) 20 1 TEST FOR TEAMINATOR 1 YES onE nove {) 080,(00). 10 IMEPLACE 17 WITh A O Ane- 1+ 1d ) noV (o, ] 122710 001006 112720 000770 FINST ADORESS OF ASCIZ STRING o a(39) N0 0°0,(R0) 1 "ove 187 [ 3 nov ®'0,(NO) srag Y] 00, SAPR2 .WwORD O b 010046 016600 010087 MOSWNON, -(SP) oC . APRs JR ] 010046 016600 005037 OV JSA 2 FLLLL2EISVEARTURY s ps [" LYLX% 1 J @ LB at)e SBTTL SBTTL 77 1vPg L 0] mnov (SP)e , MO (P)e , (SP) 1GET POINTER TO MESSAGE +118 TMIS A "0° ? INERT CreAR. 1SACP 1 sMAxg IV -0~ LEFY ASTIFY ? 1%0 s YES JRESTORE MO IRESTORE STACK 2 d1 - yOd CIRU)MO BP0 G0N ¢ R MACRD mtacu :ownmn 1Pt Aasl1?, MPLACT LEADING O $ witm o ey LY .9 LIBTR Y2 Y b b e R ACE LEAOING O $ ulTe B anrs TP A2, &P T AAILIFY l""fl SOUTIE 13 MG A4S " Y- 80 wFe , (xXEP? s et 1Y wue-—00e - Tv0R As(]7, 1P ..m»flmmmm WILL NFPRESS P EAROR Tregout 7 SwiSe). L v ' o AR (99) .nwh WFINST ADDRESS OF AS(1Z STRADG ] JIR .o SaSMOn . .(9P) IR AQDMLSL OF AC1Z2 SR SRPW.; OV 80, .(5®) 1S40 B0 WVING PG TAP CALL 8 [] ' L) OV an 03¢ 16 o INPRS; MOV SSETFIEEN2BILNAIY 3 0164 032016 =) PN, 10; 032616 032616 "oV S8 1) C®s e OVl on & v 'T'h OIS v 30 IAPR2; OIWALY , (%) 00 IPR2 =13 IS ACCOWLI9ED O " Trog 1GET POINTER TO "g SSAGE srny «b 13990 R0 -o.om 1GEY POINTER TO " SSAGE 1GET POINTER FOR TYP NG (MO) l:::' FOR TERSINATOR (9P) 2 0°0.(00) e 080,(R0). 1§ 60, (%0) T3] re OV Y Y e R0, ISPR2 .wORD O ats oC "OV "oV DINTERD OF (69)e .00 ($P)e.($P) ’ 02 IS A Q@ ? |lm 17 It A “GLAeetg n? Orely, 1SACTP g IV “OWEFTY ABRTYIFY ? 100 ' V€S 1 TP, VMAESS Sl 3} 1RESTORE AC RESTORE STACK 108710 X Fd OC 1008 010037 10440} 01 /600 01./.16 s - OU < 7 052720 9, 082734 »[ ] 00137¢ oC* %00 16,00 —d 36 e, 2 Y £& 1127110 016400 105720 nLe: +AODRESYS & MrREe (I AL tBEPLACE FRE £ (NG 5005 wit B Swrs o'W I3 MSRER OF DILi'S TO 88 TrPeD TR0 078 CO M 70 ASCEE ‘O ? 100 IF ot R ACT @ AND witTM A YWl sivCms gt @ §v 1 A0ONT <y 160 sACm & LOOR FOR g \LADING JUNOS ® oTM 00077y STING wlTM waCts intavg PEECEDING JUROS ? 241 N I8 [N 1127:0 SR 1y OF WMONER TO MO A0Ceg 232232082318 -" 16 A 198090 80 [¥ X% 127710 0G 1008 I nEME \ Oke 738 KA 389 01649 ADDRESS @ WIEE® (TR ACIDD NG JESCS 17798 PEECIO ' W IS MSRER & D .17 TO BR TvPRD [4 NNl LLDTE 2 TR ann~g 016600 34 234 L 001018 el . 010084 52798 3 iif |, 41/ 2A37Y.:85113Y !a.anla A‘I’X. 1R ‘!! ‘!’ au- §§5312§ CAL¢ 28 82 asC AOU/INE 10 IMALAR & .‘—O“ <@ PO el S s ESEIESCBITINITINITSE A i Tveg oo 1N K13 w0 08 30:02:20 PR N Oy w5~ 1-68C « U A8 | o N,N-8 _14 1S40 IF Qg GvIR TEARINATOR 100 7 WMDY 0a0NP STanG POINTEN T A Pran) paCl Im PUT 0L S OF PEIRSTY OramaC TR O §TACK MU IF 21a0 GYTR TLAMINATOR 00 IV w0 P STRING POINTEN 10alw RO AST A((em ,8 1T AODSE L3 7R TV O »1v9Q e 1@ wpOF AT agss OF wmredl 1 PP STACR W) RO e g STACH B et TG PLAG T e s 117 SET, LEAVE PRE(CEDING ZUIROS FOR TYey N i Wi,y DSOS :{:: faw (AL ] M H ‘- OAIS? otr7ep 010088 012734 @01016 oL 7 1008 ONRTHS i3t 052798 012790 O0. /87 OR2798 §22710 CO0080 Ol 768 0779 112710 G0%200 CO0GN0 021 3057 032738 032772 OF 000008 @OUT? 01,7% ©01008 0%%02 §12710 01000 @0* %09 012008 016600 G00008 0I1%wie 00137 0'%012 105720 01316 0'%.20 0'v .2 005300 162%00 610037 0'% % ©00Vo00 0'\ .4 104410 0'% 12 012400 C'Y% % OC'< 37 0''.34 033042 0! 616 000203 MW 2 BIAY . DG c comge froy w g (W) Y } -ctfl et gt ‘;‘ iy con1ve® O g Ly @ wcn asCtt) »OE P\ ACE OOF“E7 %G J¥00% wiTMTM *us ] 0 OV 2J00NESS OF WISuu aac1s) M WO n.iw RL0 aisg B N [TO o Pl 4 MgRLE; "Ov "y Oy 10 g. oa ove nc r 3 > ot 7)) e, ©330%0 T 082786 P Mg 8y ® 0, ©00080 L 40 Jiee MY . 13434 313442 Pt 2t b} pApt a S PP TR o Ny GO oL/ 768 113 W0 ANCR) w8 00 | SEC 08 :-220 P B e (®) (9: xu.‘ « .00 ] 0 0.(R0) (R0)e a0 (93). .00 0.9 . ) g.l s , 98¢ @9 .um -tcuns nnoe ? JROreg 34 OF WMPYEN 'O AP (%) .00 (59)e . (39) L L) ua %0 asClt ‘@ &® 7T [*Y < +8 "oV ] n-uu v x.xnn-vm ) e nOv Y .-vun M NN0 uITM A waCt sDCRE Nt g §VTE ADORT SY a9) e PrevD s1998 PEEIFIING Jur 000,.(09) [ ORD Bioi’S 10 BB oO' o). .m0 OISV xsu-u@ o-o.(-n OV 1S9 ' W NRO : L] ’ A NnQ . ? 00t FOR mong LLADDNE 2EN0S G718 TRTNATOR sTaDg POINTED I WOUT A0S SS OF FINST CoMRaCTER @ $TACH 7T 00 A0 ¥ w0t GVTL TEAMINATON SA0NS STANG PODNTER sAO AT ADORE $S 'GLT AQDRE S FOR VYOOV 11790, Wa 38 Swildey |00 SS OF SeLR N 1 1POP STACK INT0 MO 1RESTORE $TACK MESEY PR +AE T NLAG ’ 2o rmo Pags M) 17 wd SOUTINE 10 T Tog DPIvE FPIM wrOES [N OFC TMM ’ s ’ Ov o S . ’ v o ’ ’ R0 o 0% 3nes 002132 W 033079 000160 01%'%0 0t%%4 033060 01 3%06s 0%%.70 033072 033076 P fvoRy, toony, 16: (e B 1ANORE S OF ORI PR (AL vt Oy .80 1Q00RE %S Y ORI PR YR R Cvw WAL MOUTINE(WLITI NO *E A e® M ,AGE) oC. Tvomy oC . 1 voORY fTveg LOPveN OV #0190 treg tvog 127”2 LMORD O ars [¥ trog Ny PENICD AOUTDE TO Tveg CARORY sCALL ' ] [} 03%100 0335106 033110 033114 033120 033124 0s2717? 001004 005037 0001837 062716 186006 1777178 035732 v o1 "t SADR AL TN 0OSMLY: 017 e an 10;: TER B OC ADONESS BETORE CALLING M@ AOUTINWE a0 03307 arm SRR LN EABCN S e e uR=Ze0 0 v orm LAY o GPcT Ppar ¢ w® "a0mp vos 00 | SC 03 10:%2 -/ T AN(12, LEFY AATIFY N, 4 ADO [ 20 ¢ 1TYeg DRy /% Al B . 1Kragss OF OFe sidsn G OB, SFO°N MeT s AL T AN MUST OEFINED INn CTRAP: TAGLE sAOORE SS OF "ESSAGE BIT13, 85N 1 oS s1YPE 0.(SP) D 11°9% g DR /F SE- & WMo I IAOrRESS OF DR, vt e R[M Vv rEER FIELD plroe 1 DeIBIT CAROR TYPEQUT 100 IF YES ? 15€ET PRIORITY TO JEMO 1 TYPE 1€ MESSAGE s INCREMENT TrE RE TURN ; RE TURN s THIS ROUTINE IS USED 1O CHECK IF Am 1ASCII CHARACTER IS A DIGIT BETWEEN O AD 7. sCALL 033126 033132 033134 033140 035142 033144 033150 033152 121127 103407 121127 101004 111102 042702 00572% 000203 P OADR A1 sADORESS OF ASCII CHARACTER 1CreEC THE CHARACTER 1CARACTER IS NOT BETWEEN O-7 1CHARACTER 1S IN R2 AS A 10CTAL DIGIT Cx.0CT: (R1),0°0 (R1),0'7 1ILESS THAN ZERO? iYES -- BRANCH iGREATER THAN SEVEN? RS sADJNUST FOR RETURN 1 RE TURN 177770 1¢: R3,0c.0CT 14 18 (R1),R2 ®*C7,.R2 (RS). 1YES -- BRANCH 1GET THE CHARACTER 1STRIP AWAY THE ASCII 014’ CZRU0R0 RPO7 PERF $ PR TYPE FXER MACRDO vO4 .00 ASCIZ, LEFTY QUSTI#Y 1 DEC 83 10:32:28 PAGE 82 5€Q 0164 @ 8¢ ®e Oe OB VO NS ah)» s THIS ROUTINE IS USED 10 CHECK AN ASCII CHARACTER sAND DETERMINE If IT IS A DIGITV BETWEEN O AND 9. s CALL OADR ,R1 MOV ;sADDRESS OF ASCII CHARACTER : JSR Kk ,Cx.DEC sCHECK THE CMHARACTER =t YURN] sNOT BETWEEN O AND 9 RETURNZ 1BETWEEN O AND 9 ;R = DIGITY 033154 033160 033162 033166 033170 033172 033176 033200 121127 103407 121127 101004 111102 042702 005725 000205 000060 Cx.DEC: 000071 C“8 8LO cMP8 8HI (R1),0'0 erc TST #'0,R2 MOV 000060 1¢: RTS 1s (R1),09 13 sLESS THAN ZERO? ;$YES -- BRANCH sGREATER THAN NINE? (R1),R2 s YES -- BRANCH ;GET THE CHARACTER (RS). sADJUST FOR RETURN RS :STRIP AWAY THE ASCII :RETURN : THIS ROUT.LNE WILL CHMECK AN ASCII CHARACTER 10 MOV JSR RETURN #ADR,R1 RETURN RETURN RETURN RETURN RETURN RS,CK.CHR ADR1 ADR2 ADR3 ADR4 ADRS ADR6 TST8B (R1) @ @1 ac @ e @1 S0 @0 ;DETERMINE WHAT IT IS. s CALL 033202 033204 033206 033212 033214 033220 033222 033226 033230 033234 033236 033240 033242 033244 033246 033250 033252 105711 001417 121127 001413 121127 001407 004537 000410 004537 005725 005725 005725 005725 005725 005201 011505 000205 CK.CHR: 000054 000056 033154 033126 1¢: 33: 44: BEQ CcMPB BEQ cMP8 BEQ JSR BR JSR 187 TST TST TST TST INC MOV RTS s ADDRESS OF ASCII CHARACTER ;CHECK CHARACTER s UNKNOWN CHARACTER ;CARRIAGE RETURN s (R1)=ADR:1 ;COMMA & (R1)=ADR+1 ;PERIOD = (R1)=ADR-.1 ;:DIGIT BETWEEN O AND 7. ;:DIGIT BETWEEN 8 AND 9. :R2 = DIGIT « (R1)=ADR+1 ; “"CARRIAGE RETURN"? ; YES -- BRANCH : "COMMA"? ;:YES -- BRANCH 14 RS5,CK.DEC 44 R5,CK.OCT (RS)« (RS)e« (RS). (R5)« (RS)+« R1 (R5),RS RS : "PERIOD”? ;YES -- BRANCH s "DIGIT"? ;NO -- BRANCH sOCTAL ? :DIGIT BETWEEN 8-9 ;:DIGIT BETWEEN 0-7 : PERIOD ;sCOMMA ; CARRIAGE RETURN :MOVE POINTER TO NEXT CHARACTER : UNKNOWN CHARACTER ;sRETURN CZRJOBO RPCTM PERF EXER MACRO vO4.00 1-OEC 8% TYPE ASCIZ, LEF® JUSTIFY 10:3.°:°8 PAGF 83 580 0169 s THIS ROUTINE CHECKS AN ASCII STRING FOR LEGAL nl, e $SUPRL b L4 1CHARACTERS AND FORMS A DECIMAL VALUE BINARY NUMBER 1 CALL s 'N 3 MOV MOV JSR O RETURN RE TURN RETURN RETURN RETURN RE TURN Cx.DIG: OADR ,R1 ONUM R R5,CK.DIG ADR1 ADR2 ADR3 ADR4 ADRS ADR6 1 ADDRESS OF ASCIZ STRING R4, -(SP) R3,-(SP) :SAVE R4 ;:SAVE R3 $SAVE THE MAX, R2 R3 R4 RS,CK. . CHR 033202 N »e 033254 033256 033260 033262 033264 033266 033270 033274 033276 033300 033302 033304 033306 033319 033314 033316 033320 033322 033324 033326 033330 033334 033336 033340 033342 033344 033346 033350 033352 033354 033356 033360 033362 033364 033366 033370 033372 033374 033376 033400 033402 033404 033406 033410 04 RS R3 R3,-(SP) R3 R3 (SP)+,R3 R2,R3 RS,CK.CHR 033202 sMAX, 44 S¢: 64: 7%: 8%: 94: (R4). R3,(SP) 9 8s (RS5). (RS). R4 ,.RS R3,R2 (SP). (SP)+,R3 (SP)+,R4 (RS),RS RS INPUT ONLY ENTERED NUMBER R2=0 R2=0 s ILLEGAL CHARACTER OR INPUT s"CR” -- R2 = NUMBER - R2 = NUMBER ; "COMMA” R2 = NUMBER : "PERIOD” - ;START WITH O SIZE ON THE 100 LARGE -- R2:? STACK sCHECK ONE CHARACTER s ILLEGAL CHARACTER :CARRTAGE RETURN ;0IGIT 0-7 ;OIGIY 8-9 sSTEP RETURN POINTER PAST s INPUT NUMBER o2 1 SAVE ;.4 “CR” & “PERIOD" RETURNS 2 ;08 1(02)+(28) = 10 sUPDATE THE INPUT NUMBER ;CHECK ONE CHARACTER ;s ILLEGAL CHARACTER ; CARRIAGE RETURN Ut 1 . (R1) OF 1 "CR” ONLY ENTERED : "PERIOD” o 8% (R4). (R4). MAGNITUDE sCHECK DIGITS 3 3¢: IN R2. L) [ 1] :DIGIT 0-7 ;:DIGIT 8-9 ;DOES A “CR"” FOLLOW THE “PERIOD" 18R IF NOT 1 INCREMENT THE RETURN s INCREMENT THE RETURN 1 INCREMENT THE RETURN tCHECK THE MAGNITUDE OF THE NUMBER sBR IF ENTERED NUMBER T0OO LARGE 1BYPASS INCREMENT s INCREMENT RETURN PAST INVALID RETURN 1 INCREMENT RETURN 1SETUP RETURN POINTER sENTERED VALUE sCLEAN MAX, SIZE OFF OF STACK ;RESTORE R3 1RESTORE R4 sGET RETURN ADDRESS tRETURN CIRIORO RPC~ PERF tXER MACRO vO4.00 1 OEC 82 “vPE ASCIZ, LEFT 10:3.:78 PAGE s THIS ROUTINE WILL sUNSIGNED DECIMAL 1CALL MOV RE TURN 016637 012746 004737 012666 v00207 5E0 0170 000002 033436 037404 000002 033436 $5820: 1¢: A PC.$5B820 16-BIT (SP) THE PROGRAM REQUIRES THE SYSMAC UNSIGNED BINARY NUMBER TC AN LIBRARY, sPUT s CALL THE ;ADDRESS THIS REV C FORM OF NUMBER ON OF THE 1ST '$SB2D , THE STACH ASCIZ NOT THE CHAR VERSION 2(5P), 1 e1s, (SP) $SAVE THE BINARY :SET THE POINTER NUMBER JSR PC, $0820 sCALL LENGTH CONVERT .WORD 0,0 (SP)+,2(5P) PC IS ON THE STACK THE STACK ON AND LATER MOV MOV MOV RTS 000000 CONVERT ASCIZ NUMBER, NUMBER, JSR 033412 033420 033424 033430 0335434 033436 B4 JUSTIFY e Neml, e $SUPRL 14 THE DOUBLE :PICKUP ;RETURN THE POINTER s THIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN sUNSIGNED OCTAL ASCIZ NUMBER. s CALL MOV JSR RETURN 3 033442 033450 033454 033460 033464 033466 016637 012746 004737 012666 000207 000002 033466 037600 000002 033466 NOTE : THE THE $5820: MOV MOV 1%: NUMBER, (SP) PC,$5820 ;PUT THE NUMBER ON THE STACK s CALL :ADDRESS OF THE 1ST ASCIZ CHAR PROGRAM REQUIRES THIS FORM OF ' $SB20‘', SYSMAC LIBRARY, REV C AND LATER JSR MOV RTS .WORD 2(sP), 1 €18, -(SP) PC,$0820 (SP).,2(5P) PC 0,0 NOT $SAVE THE BINARY NUMBER ;SET THE POINTER THE IS ON VERSION ON sCALL THE DOUBLE LENGTH CONVERT ;PICKUP THE POINTER ;RETURN CIRIDBRO RPOTM PERF EXER MACRDO vO4.00 1 DEC 83 10:3.:28 PAGF Ty INPUT ROUT INE LSBTTL 1 TTy AS D14 5EQ 0171 INPUT ROUTINE 110000000000 00000800060000080000000000000000000000000000600000008 0x3472 033474 023476 033500 L.ENABL LS8 $TKCNT: (WORD $TKQIN: . WORD $TKQOUT: .WORD $TKQSRT: .BLxB $ TKQEND -, 033507 C 0 O 7 s iINUMBER OF ITEMS IN QUEULE 1 INPUT POINTER 1 sOUTPUT POINTER :137TY KEYBOARD QUELE .EVEN 1T INITIALIZE ROUTINE s¢THIS ROUTINE WILL INITIALIZE THE TTy KEYBOARD INPUT QUELE 1¢SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 3 soCALL: 1 1 e 033510 033514 033522 033530 033536 033544 033559 033556 005037 012737 013737 012737 012737 005777 012777 000207 033472 033500 033474 033560 000200 145412 000100 H 033474 033476 JSR $TKINT: CLR $ TKCNT 31 tCLEAR COUNT OF TS7 8378 s sCLEAR DONE FLAG RTS PC 000062 MOV MOV MOV MOV 145402 MOV ;oTK S TKINT PC., RE TURN O3 TKQASRT, $TKQIN $TKQIN, $TKQOUT ®$TKSRV ,80TKVEC 9200,80TKVEC+2 €100,84TKS ITEMS IN QUEUE ;;MOVE THE STARTING ADORESS OF THE ;;QUEVE INTO THE INPUT & OUTPUT POINTERS. ;;INITIALIZE THE KEYBOARD VECTOR ;;"BR” LEVEL 4 $s3ENABLE TTY KEYBOARD INTERRUPTY 1 sRETURN TO CALLER SERVICE ROUTINE 1¢THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 168Y READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING soIT IN THE QUEUE. soIF THE CHARACTER IS A “CONTROL-C” (*C) S$TKINT IS CALLED AND ;oUPON RETURN EXIT IS MADE TO THE “CONTROL-C” RESTART ADDRESS (CTRAP) 033560 033564 033570 033574 033576 033602 033602 033606 033610 033614 033622 033626 033632 033634 033642 033644 033644 033652 033654 117746 042716 021627 001002 005726 000002 021627 001007 104401 004737 005726 000137 021627 001004 022737 001500 022737 001004 104401 3 145376 177600 000021 $TKSRV: 508 0$: 000003 88TKB, -(SP) s sPICKUP cHp (SP),08$XON 131IS IT A RANDOM XON? 8IC BNE 1S7 RTI 1¢: 000176 001154 000007 033472 1 1BRANCH IF NO 1 sCLEAN RANDOM XON OFF STACK 1 stRETURN 13IS IT A CONTROL C? TYPE . SCNTLC 1 TYPE A CONTROL-C 1 1 1BRANCH IF NO JSR PC, STKINT JMP cHp BNE CTRAP (SP),#7 2 BEQ 64 cHP 87, $TKCNT :13IS TYPE . $BELL 13RING cHP 2%: 308 (SP)e THE CHARACTER 13iSTRIP THE JUNK (SP),.e3 TST 034756 000007 #tC177,(SP) cMP BNE 034715 033510 001176 MOVB BNE (SP). O#SWREG, SWR 3 1 sINIT THE KEYBOARD (tC) 1 1CLEAN UP STACK 1 sCONTROL. C RESTART $3IS IT A CONTROL G? 1 1BRANCH IF NO 13IS SOFT-SWR SELECTED? 1160 TO SWR CHANGE THE QUEUE FULL? 1 tBRANCH IF NO THE TTY BELL F L4 1 JRJIOBO RPO7 PERF TTy INPUT ROUTINE 033660 033662 033664 033670 033672 033676 033700 033704 033706 033712 033716 033722 033724 033732 033734 033740 033744 033746 033752 033754 033760 033764 033770 033776 034000 034006 EXER MACRO vO4.00 1 OEC 83 005726 000451 021627 001021 005077 005726 105777 100375 117746 042716 022627 001366 012777 000002 005237 021627 002405 021627 003002 042716 112677 005237 023727 001003 012737 000002 10:32:28 PAGF 3 000023 145262 145254 318 145250 177600 000021 000100 145226 033472 000140 TST B8R cMe BNE CLR 187 1ST8 8PL MOV 8IC cMpP BNE 32%: 85 1 (SP). ssEYIT o*C177,(SP) ssMAKE 324 88 TS (SP). 98 TKS 31 88TKB, -(SP) (SP).,021 31 100,88 TKS (SP), 0140 4t (SP),0175 4 000040 177510 033474 033474 033507 033500 033474 OF STACK «*25 IT A CONTROL -S? s 1BRANCH IF NO $3DISABLE TTy KEYBOARD INTERRI®TS 1 sCLEAN CHAR OFF STACK 11WALIT FOR A CHAR 1:LO0P UNTIL ITS THERE 1:GET THE CHARACTER IT 7-BIT ASCII $3IS IT A CONTROL -Q? 1 iBRANCH IF NO s tREENABLE TTY KEYBOARD INTERRUPTS 1 1IRETURN 1 sCOUNT THIS CHARACTER $:IS IT UPPER CASE? s 1BRANCH IF YES 1:1IS IT A SPECIAL CHAR? 1 1IBRANCH IF YES s sMAKE IT UPPER CASE (SP)+,88TKQIN $3AND PUT IT IN QUEUE $ TKQIN 1 IUPDATE THE POINTER ;IKQIN.OOTKQEND 1:GO OFF THE END? #40,(SP) a4 Ss: 3 iCLEAN CHARACTER OFF St (SP), 823 $ TKCNT 000175 56Q@ 0172 MOV RTI #$TKQS $ RT, TKQIN : 1IBRANCH IF NO s tRESET THE POINTER 1 iIRETURN 1500808606000 60000000880000400008400000000000000000008080000800840 034010 034016 034020 034024 034026 034032 034036 034042 022737 001124 105777 100121 117746 042716 021627 001300 000176 001154 145134 145130 177600 1#SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 1eROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WJILL 1¢SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 18CALL WHEN OPERATING IN TTY INTERRUPT MODE. S$CKSWR: cHP OSWREG, SWR :131IS THE SOFT-SWR SELECTED BNE 15¢ $3EXIT IF NOT 1ST8 84TKS :13IS A CHAR WAITING? 8PL 15 :sIF NOT, EXIT MOV8 88TKB, -(SP) 13 YES 8IC crP BNE 000007 oC177,(SP) (sP),e7 2¢ s tMAKE IT 7-8IT ASCII 33IS 1T A CONTROL-G? ssIF NOT, PUT IT IN THE TTY QUEUE 1 31AND EXIT §10000008600008800450000488000080000004088000040000040804000080008400008 034044 034052 034054 034056 034062 034066 123727 001674 005726 004737 005077 112737 034074 034100 034104 034110 104401 104401 013746 104402 001150 000001 033510 145072 000001 001151 034727 034734 000176 1sCONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 1sROUTINE OR FROM THE SOF TWARE SWITCH REGISTER TRAP CALL, AS A RESWLT OF A 1sCONTROL -G BEING TYPED, AND THE SOF TWARE SWITCH REGISTER BEING SELECTED. 6s: $AUTO8, cHP8 #1 1 sARE WE RUNNING IN AUTO-MODE? 8EQ 2 $ 1BRANCH IF YES TST (SP). 1 sCLEAR CONTROL -G OFF STACK PC., $ TKINT JSR $3FLUSH THE TTY INPUT QUEUE CLR 88 TKS 11DISABLE TTY KEYBOARD INTERRUPTS #1, $INTAG MOVE 13SET INTERRUPT MODE INDICATOR $GTSWR: TYPE TYPE MOV TYPOC + SCNTLG » SMSWR SWREG, -(SP) $$ECHO THE CONTROL-G (*G) 1 s TYPE CURRENT CONTENTS 1 1SAVE SWREG FOR TYPEOQUT 13GO TYPE--OCTAL ASCIICALL DIGITS) CIRIU0BO RPOT PLRF EXER MACRDO vO4.00 Tiy INPUT ROUTINE 0%4112 034116 034120 034122 034126 0%413%0 034134 104401 005046 005046 105777 1003875 034140 034144 034146 034152 034156 034164 034166 034174 021627 001015 104401 062706 000003 034200 034204 034206 034212 034216 021627 001005 104401 062706 0007387 034722 000006 034220 034224 034226 034232 034234 034242 034246 034252 034260 034262 034270 034272 034276 034302 034304 034310 034312 034316 034322 034324 034326 034330 034332 034336 034342 034344 034350 021627 001022 005766 001403 016677 000015 062706 104401 123727 001003 012777 000002 004737 021627 002420 021627 003015 042726 005766 001 °03 006316 006316 006316 034715 000006 001151 000100 034756 10:%,:°8 PAGF 1vPE 19s: 145032 145026 177600 123727 001003 012777 000187 OEC A% 034745 117746 042716 1 M ¥ CLR CLR 118 8PL MOve 8IC cw BNE T1YPE ADD 000001 144764 000025 001203 001151 000001 000100 144670 036144 000060 « SPINEW (SP) (SP) 88 Txs 7s 837x8, -(SP) e*C177,(SP) (SP),e3 9 +SCNTLC 6, 5P >EQ 0173 ..II-" 'm NEW SWR s sCLEAR COUNTER 1:THE NEW SWR s ;CHAR THERE ? 111F NOT TRY AGAIN 11PICK UP CHAR 11MAKE IT 7-BIT ASCII $3IS IT A CONTROL -C? 1 tBRANCTM IF NOT 33 YES, ECHO CONTROL -C (*C) $3CLEAN UP STACK s 1IREENABLE TTY KEYBOARD INTERRUPTS? $INTAG, &} 8 CTRAP $sALLOW TTY KEYBOARD INTERRUPTS -C RESTART $3CONTROL ce BNE (SP), 025 10¢ 208 : ADO BR «SCNTLU 13IS IT A CONTROL -U? $ 1BRANCH IF NOT o6 ,SP 198 $3YES, 108: ce BNE (SP),. 053 $3IS IT A <CR>? 1 1BRANCH IF NO ssYES, IS IT THE FIRST CHAR? 11BRANCH IF YES 1 sSAVE NEM SWR s 1CLEAR UP STACK 8s: 9s: 144712 P L4 cs BNE MOV JP TYPE 18T 000002 AS 2 118: 144 15¢: 164 BEQ MOV ADD TYPE Crs 8 BNE RTI JSR 000002 000002 177776 17s: INC 001:02 18¢: TYPE B8R LSB .DSABL €10 088 0, TxS5 164 4(SP) 118 2(SP),@SWR ”.SP « SCRLF $INTAG, 01 15¢ €100,88TKS 1 sBRANCH IF NO ECHO CONTROL U (ru) 1 : IGNORE PREVIOUS INPUT s3LET'S TRY IT AGAIN 1 1ECHO <CR> AND <LF»> 13RE-ENABLE TTY KBD INTERRUPTS? s 1BRANCH IF NOT 1tRE-ENABLE TTY KBD INTERRUPTS PC.STYPEC (SP),#60 1 ;sBRANCH IF YES 1sCHAR > 7?7 31 :BRANCH IF YES $1STRIP-OFF ASCII 13IS THIS THE FIRST CHAR 1 sBRANCH IF YES 1sNO, SHIFT PRESENT 1 CHAR OVER TO MAKE Y ROOM FOR NEW ONE. 1 1KEEP COUNT OF CHAR 11SET IN NEW CHAR 1 sGET THE NEXT ONE 11 TYPE 2<CR><LF> $ sSIMULATE CONTROL -V 1100800480048 040800000008004400080080008808080000800008004000000000080 JRUOBO APQ? PERF EXER MACRO vO4.00 1 Tty INPUT ROUIT INE DEC 63 10:32:28 PAGE 85 S GLa 5¢Q 0174 16THIS ROUTINE WILL INPUT A SINGLE CrARACTER FROM Trt ssCALL¢ TTy 10 STACK 1o re ROCrR RE TURN “ERE ssGET A CHARACTER FROM THE QUEUE s 1CHARACTER IS OM THE 1sMITH PARITY BIT STRIPPED OFF 3 034352 034354 034362 034366 034370 034374 034376 034376 0354402 034404 034410 034416 034422 034430 034432 034440 $ROCHR: 011646 016666 012746 000002 034376 005737 001775 005387 117766 005237 023727 033472 001003 012737 000002 MOV o648, -(SP) 18: ;g; $ TKCNT 1 sWAIT ON A CHARACTER $ TKCNT 1 1DECREMENT THE COUNTER DEC 033476 1:1GET READY FOR A CHARACTER 11PUT NEW PS ON STACK mMOv RTI 177062 033500 4(SP) (SP) oas 033472 03350. $1PUSH DOWN TrE PC AND &4(SP),2(SP) cLR CLR 033476 033476 (SP), -(SP) MoV mOve INC STQOUT 8(SP) s TKQOUT BNE 2t cw 2s: 1¢ RTI $TKQOUT , 08 TKQEND OSTKQSART, s TKQOUT 11 THE PS 11PUT NEW PC ON STACK 11POP NEW PC AND PS ;;GET ONE CHARACTER s IUPOATE TrE€E POINTER ;;0ID IT GO OFF OF 1 1BRANCH IF NO THE END? ;RESET THE POINTER 1 1RETURN 1100000060000000000000000000000000000000000000000600006000800008060808 1oTHIS ROUTINE WILL INPUT A STRING FROM THE TTyv soCALL: ie e ROL IN RETURN HERE i e 010346 005046 012703 022703 101456 104410 112613 122713 001022 005716 001007 034676 034715 112737 104401 005016 122713 001003 000134 034674 005716 001406 CHARACTER BE A 1¢: MOV OS$TTYIN,RS 1 1GET ADORESS 8L0S 48 mOove crP8 BNE (SP)+,(R3Y) €177,(R3) St BNE 6 TYPE MOV DEC .98 ®-1,(SP) R3 8LO 4 18R TYPE B8R TSY .98 2t (SP) 1160 TYPE 11G0 READ ANOTHER CHAR. 3 1RUBOUT KEY SET? MOvV8 ®'\,9¢ 13 TYPE A BACK SLASH ce (01" :] 034674 64: ce ~OV8 034674 034674 S%: 000025 WILL 1 1SAVE R3 10¢: 034676 FIRST R3,-(SP) CLR TSTY 000134 034674 177777 OF MOV ROCHR 112737 104401 012716 005303 020327 103434 111337 104401 000746 1 1ADORESS ssTERMINATOR $ROLIN: 2s: 000177 11 INPUT A STRING FROM THE TTY 034674 8EQ TYPE 7: CLR cmPB BNE -(SP) OSTTYINC1S. RS (sP) o \,98 R3,0$TTYIN (R3),9¢ 7 .98 WILL OF BE ALL ;BUFFER FULL? 1 :BR IF YES 11G0 READ ONE CHARACTER FROM THE 11GET CHARACTER 13IS IT A RUBOUT 1:8R IF NO TTY 11IS THIS THE FIRST RUBOUT? s1BR IF NO s3TYPE A BACK SLASH 13SET THE RUBOUT KEY 1:BACKUP BY ONE 11STACK IF EMPTY? YES $sSETUP TO TYPEOUT THE DELETED CHAR. 1:BR IF NO 1 iCLEAR THE RUBOUT KEY 84 13BR IF NO :131IS CHARACTER A CTRL U? ON O'S $13CLEAR THE RUBOUT KEY (SP) #25,(R3) BYTE THE STACK H1A CIRU0B0 APO7T PERF EXER MACRO vO4.00 | OFC 883 10:%2:78 PAGSH IPUT ROUTINE 034564 034570 034572 034376 034600 034602 034606 034612 034614 N> OO YO NBWN 034620 034622 034626 034632 o o Ty 034636 034640 034644 034650 034652 034654 034656 034664 034672 034674 034673 034676 034715 034722 034727 03473%4 034745 104401 000726 122718 001011 105018 104401 104401 000717 104401 000712 111337 034722 000022 8s: 001208 e, ss: 001204 000004 034676 LICNTLY 1 022,(R3) 11TYPE A CONTROL -V~ 1160 START OVER 1115 CHARACTER A ~'R-? CLR8 (M%) 11CLEAR THE CrARACTER TYPE o Tt o MOV 1vPE C®s L8TTYIN 2¢ . SOUES 1 /R3),9 .9 015.(R3). L8 -1(M3) e e 177777 T1vP¢ £ MOV "oV MOV MOV 000002 000004 %, a1t BYTE 103 015 STTYIN: SONTLC: BYTE .0LN8 .ASCIZ 107 012 015 123 OCNTLG: MSuR: .ASCIZ ASCIZ 125 040 015 116 SONTLU: .ASCIZ ¢MNEW: 001713 110¢ 8e Ce8 1vPE 034676 001202 034678 034474 000015 A5 & _ASCIZ s 1 1ORANCH IF NO . ICMLF si1YPE A "CR" ¢ ~F- 10 TYPE ThE INPUT STRING 11G0 PIONP ANOTIER CHAC TER W TYPE A * ¢ 11CLEAR TM€ BUFFER AD L OOP 1 sEC0 TE OWAACTER 4 10MECK FOR RE TURN 20 15L00P IF MOT RE TURN 11CLEAR RETURN (THE "ne ssTYPE A LIME FEED (sP). (SP)e A3 (SP), -(SP) &a(SP),2(5P) 08TTVIN, A(SP) 1 1CLEAN MUBOUT KEY FAOM *ME STACK s sPESTORE A3 1 sADLUST THE STACK AND PUT ADDRESS OF THE ' FIRST ASCII CrARACTER ON IT s s NE TURN 11STORAGE FOR ASCII O, O O 1S, /*C/<18»e12> /7 NEW = 7/ TO TYPg 31 TERMINATOR s 1RESERVE 15. BYTES FOR TTY +1CONTROL ~C* /tU/<18>¢12» /9G/<15»¢12> «1%52¢12v/SuR 19) InPuT 1 1CONTROL ~U”~ o / 1 1CONTROL ~G*- s THIS ROUTINE WILL PROCESS THE (*C) CHARACTER 034756 034764 034770 034776 035002 035010 035012 035020 000001 001334 033472 000015 176476 033474 033474 033507 033500 033474 CTRAP: 16: MOV INC MOV INC cre BNE MOV RY1 01.CFLAG 1SET THME ‘CONTROL C* FLAG § TRONT 1COUNT THIS CHARACTER 015.88TKQIN JPUT 'RETURN’ CHARACTER IN QUEUE $TRQIN {UPDATE THE POINTER $TKQIN. @S TKQEND ;GO OFF THE END ? 1 18R IF YES O4TKQSRT, §TKQIN ;RESET THE POINTER ;: RE TURN 14 CTRIONO BPQT PO ¢ MACRO vOS.00 § JEC 63 10:32-78 PACE ERROR warn FR AT INE ST i M o i1 EAROR R ER AOUT INE $1000000000000000000000000000000000000000000000000000000000000000 10TIS MOUTIE WILL INCREENT To§ EAROR FLAG D T (9RO (OUNT, 10SAVE e EPROR ITEM NreE R D TG ACORESS OF He EPR0N (AL 1080© GO T0 stauTvP QO ERRON joTe@ SHITON OPTIONS PROVIOFD BV TwiS AOUTING ARE: soSu1 e} ALY On ER0 R ['e<IB1! ERRON TYPROUTS StLL O EAROR s® L SEARON; )t 7 L soSu19e} 105410} solALL 03%022 03502¢ 0150%0 035034 035040 0335048 035030 035054 035060 035064 0335070 033072 035100 035106 035110 03%114 033120 035124 033132 035140 0335146 035150 0351%6 033160 035164 035166 035174 03176 035210 033216 033220 035226 033232 035234 033240 035246 035250 035236 035260 035268 035274 035302 105037 104407 010337 010137 o%217? 001004 104401 104401 004737 105287 001773 o1377? 032177 001402 104401 005237 011637 162737 117787 os2rm 001060 1227137 001434 105787 001047 022737 001443 013746 012737 013737 000406 012787 012716 000002 012637 022737 001420 032787 001414 042737 113737 112737 000402 033410 001316 001320 020000 18405 184046 000177 CTSTIN, BDISLAY ;;0ISMAY «SOELL TEST MPBER AD ERROR FLAG s:0€ELL O ERAOA? 9100 - SKIP ssRING BELL SERTTL 3 :COUNT € NPBEN OF ERRNRS (.29:é0!m 0iGET ADORESS OF ERROR Ins'RUCTION OIERRPC ;STRIP MO SAVE € ERRON ITEm CODE IITEMD $1SEE IF LOOP OM ERROR IS SEY 001130 035406 ¢ 1.0rSAVE 11SEE 1004 ¢ IBSAVE 1003¢ 1004 ¢ CERARVEC, -(SP) 035406 1832444 033406 000004 010006 ,ERPRVEC {g::‘.”“fl IF CPSAVE MAS CPU ERR REG TIMEOUT 1 :1ORANCH IF SO INDICATION 31SAVE CONTENTS OF ERROR VECTOR $1SETUP ' TRAP: RETURN ADORE SS s MOVE CPU ERROR REGISTER TO CPSAVE FOR TESY 0-1,CPSAVE $1SET CPU ERROR REGISTER TIMEOUY INDICATOR 10014 (SP)e ERRVEC s sRESTORE CONTENTS OF ERROR VECTOR 10024: o-1.CPSAVE 11S€EE IF CPSAVE MAS CPU ERR REG TIMEOUT INDICATION $1SEE 1IF POMER MITM ., TOR BIT IS SET IN CPU ERR REG €10018.,(SP) 033406 000001 035406 e81700,CPSAVE 000001 001130 177766 0335410 #81700,177766 00113%0 1105 AMC AROUND ROUTINE IF [T IS 11SEE IF IS IS HE 220 ERAGR CALL IN THIS ROUT INE s 10RO IF SO 10004; prrrrm 000177 3:SEY TrE ERROR FLAG 25000T LEY € FLAG GO T0 2¢RQ s sORAMEN AROUMD ROUTINE IF SO si1SEE IF TMIS IS N1 POMER FAIL CALL 000004 035220 17776 035234 ,TY9E QLAPSED 1D LG 76 10044 e177,.01TE0 033410 irnrm - bc.oTrm 081709, 05uR 144000 OR IF VIS 1OR-LF 1 001193 0011 1ORIVE NPBEN ) 681710,.85uR 16 001126 001000 s DOIBIT PRINTOUTS ? .02 76, 00117 143774 oSm1 3, S .;’fi TTME ATTENTION REGISTER CONTENTS (Ta_ W4 026226 TESY FOR OranGE IN SOF 7 Sud A3 AT ..Cl' 001117 001132 000002 1iQLEAR T ITER BYTE SAVE LOCATION s M1 ., 0RvTM0 184106 001208 001208 001116 002000 1 1ERRONRENT O N-CARON TEN MIBEN 1004 ¢ 10044 $17Er8, IBSAVE o177,417Er0 10044 11SETUP RETURN ADORESS 1sBR W IF SO 1 1BRANCH T (Ox 1iCLEAR THE B1T FOUND SET 1 1MAKE IBSAVE NON-ZERQO FOR DUAL ERROR CALL $0SET OITEMB TO SPECIAL POWER FAIL POINTER 1 1BRANCH OVER IBSAVE CLEARING 01%.%7¢ 014576 05402 035404 015406 035410 o0s?T? 10C002 000000 216 033410 224 24 165364 104407 105787 0012%0 000002 0OGOOQ 000000 ® 0 [T, 0833%2 1313 31 -8 008737 000 000 0007?7? 105737 001003 0011%0 03673 a 113787 208¢ 9 001007 00122¢ a 000001 - 122737 ;s 0%°.%2 0%'. %4 013370 01°%72 03974 093412 001203 &8 03%3% 01%.1% 020000 001008 00 737 100601 100848 @ 03133 01 %0 013 %46 0392 0%.3%% 032777 10089 P - 035320 035324 03%3%0 01%.1% 093410 - 035316 10%037 033410 =X 093308 034310 035310 CPsaveE, 185AVE Jia -0 Pl M ) -'1 1 J CTP 080 APOY PEOr ¢ R MACIRO vOol 00 | JEC 0% 10tOR0R OLER AT I . WOR0 . WORO e 0r7? 10save NIt 20 oC, 1 QLEAR [93SAVE SO MO PR TROUGe 1175 gl seom r ol :onw.nln ] 117¢"9 .21 . 0alve oC. ] 220 105AVE 11 o 1] LD TYSROUT IF SEY sSSP Tvog T8 3160 70 VSEA EMEROR AOUT NG s 1 AN Iw APT =O0E N0 SN IP APT ESRON AEPMT 32SET ITEM WPW:R A ERRUA NOYEN s sBEPORT FATA, EMAOR 0 AP? 1 1APT ERBOR { O0P 119C 17 IBSALt 1% LOAOED 1:0R80n IF Nt . O rmLT O N 1L! O e sISHIP IF COnTINR sT O ERR OB AR MON BIT EARON 34 TESTY FOR OwWE I SOFT .S 1054wt Te $1SEE IF ITEm QvTE SAVE LOCATION »AY AN CAROR CALL 1100 BACK TO CALL ORILINAL CARON s 1 NE T UM ssLOCATION TO SAVE CPU EMROR AEGC CONTENTS ssLOCATION TO SAVE ITEm 9vTE R CT® MO GO My ¢taROR of S wact (e "a(R0 voo 00 1 $RC 03 10-92-2% Pav3 L.IBTRL ste 0170 EEMOR I TYRROLT 80T NG '] .“.“.Q...........QQ..OO.Q..Q..OO.“...W.‘“MM so'¥=iy BOUTIW st PRl [§ 0 O M J1TET O 97E (017600 10 OETEMTING Wi B C) I7 T W° Alng, FOm v ERAMOR TAGLE" (MANTY), 100 NPORTY Trg APPRCPRIATE [N SPATIdN COCIAING NG CANOR. 09%12 03%12 031%416 01%20 01%422 03320 ARt W, su 199 o119 [ ] 033434 0194 3% 03% 40 015444 01%4¢ 0154% 03%e0 Y oL 16, 001212 033370 10000: 015442 015464 0 V5488 01% 70 0% 12 01%7¢ 013 %02 01" %08 0%° %08 03°%10 03514 03520 0% %22 03° 524 03526 039432 034534 03553 039540 039544 035546 035546 035%%0 035532 035534 03535% 035362 035364 033570 035600 035662 033714 tveq "oV 00%3%0 035308 10018, 26, 001203 035324 3 Y 001208 3¢, Y 001208 " ] 033364 040 033662 117 1035 001132 000 035714 127 123 035406 Y PFECH: PFECHL: mxm..-o 10 oV EANPC, -(9P) :‘nu o 0w oi7m.00 o "oV OV o 0€C ASL aASL aSL A00 OV 0€Q 1voe a0 1rog "oV 060 Ve ¥, (n0)e.00 Y MOR0 1v0¢g MORD Tvog "0V [ 3 MOV 1vPg 10009 TSN PPTSTN % E0n N9 10016 ®0 a0 [~ 0IEARTY RO (R0)e,2¢ ¥ @ @ ..-t-x-a MNAN- ¢ \DE 7 LD s1588 u'xw NE ITEN DOLR s v ITEm Wn ls x!-o AS? ..' fw FOR tmom ..u-an A00RE 33 ..&o' --a:m ASCIZ(ML DIGITS) [X] 3¢ IF TMIS CRACR CALL IS SPECIA POMERM FARL CALL 31000 IF NO? ,,Ce! TEST mpeEn $1"0VE POMER FALL EANOR CALL TARLE TO MO ..m 70 CALL EARGR 1 1A0AST NE DOEx 30 hAT 1T Wil " Rt FOR D@ CAROR TAgLE s 7 QR t-.t POINTER $PI00S -CAROR IESSAGE® POINTEN iSHIP TYPEOUT IF MO POINTER 0. T79¢ NG “EAROR Mg SSAGE~ 34 "ERROR MESSAGE" POINTER GOES 'ENE 23 CAMRIAGE RETUAN- ¢ =\ INE FEED"~ 3121000 “DATA WG AOER" POINTER LiSHIP TYPEOUT IF O 3s7Y9¢ Tr@ -“OATA WEAOEN" 14 DATA WEAOER- POINTER GOES MENE Yo ¥, ho).-o 13 °CARRIAGE RETURN- € ~LINE FEED"s 01000 -DATA TAGLE" POINTER (9)sonf s ) AESTORE RO 11"CAMRIAGE RETURN® ¢ "LINE FEED"~ 0:GO TvPg @ DATA ars éC 2 s E TSy oV 1ve0C 187 o€Q 11PE O(R0)e,-(SP) 'Y .00 3, SAVE B(RO)s FOR TYPEOUT $.GO TYPE. .OCTAL Ascuuu 0IGITS) 119 TERE ANMDTHER MISBLR 4100 IF %0 1 TYPE TWO(2) SPACES :sgz Y, 11 THO(2) SPACES N (RO) e s sLOOP 4 PFECHL,PFECH2.PFECHS.PFECHS .ASCIZ PFEOH2; 255'1‘1 LV PFECKHS: io (9) .WORD PPOMER MONITOR BIT ITESTND ERR PC | ;WORDS DEF INING TABLES BELOM IN CPU ERROR REGISTER FOUND SET? CPUERREG? PFTSTN, SERRPC.CPSAVE .0 { MY @" oo ¢ HRGR | 1AL 1 €Y "4 cr 30 (P "a(R) 08 00 | SC 03 10:82-70 Sagl 07 O GOV IE 000 000000 000 Owg(vs. LTy, o Li14 sen» s oCIAR ST WINEN FER F¥ 017 EROR M14 JOBO 8907 PtV ¢ R M0N0 v0s.00 | -88C-88 589 0180 L Al e BT 9% AoV [} § 0000000000000000000000000000000000000080000000000000000000000000 1oROUTINE 1O TvPE ASCIZ PESSAGE. PESSAGE MUST TERMINATE w'Tw A O BYTE. o€ AOUTINE MILL INSERT A NPOER OF faal COMRACTERNS AFTER A LINE FEED. AL CONTAINS Thg OrMPACTER T0O OE USED AS TMTMg FILLEN CHARACTEN. se00TE]; 1oM0TE2; SFILLS CONTAING To€ MUIBER OF FILLER OOMRACTERS AEQUINED. soNOTES: FILLE CONTAING '@ OWAACTER 10O FILL AFTER. soCALL: s01) USING A TRAP IwS TRRUCTION 1v9g SAOR 1 1"ESAOR IS FINST ADORESS OF Am ASCIZ STRING Tvog € SADR 001173 000001 001226 000100 001227 036002 036746 001227 614¢; 624 26: 608 : 3: 000011 a8 000200 o 001170 000001 036144 036262 OAPTCSUP, SENVH 60 (RO)., -(SP) 4 (SP). (SP).,RO 02,.(SP) T, (SP) 8s OCRLF ,(SP) St (SP). 036262 036144 001172 RO,619 :C.u"! 7¢: $CHARCNT 24 PC,STYPEC SFILLC.(SP). 2t $NULL , -(SP) 1(SP) 68 PC.S$TYPEC ;CHARCNT s $3IS TMERE A TERMINAL? 100 IF YES ALY PERE IF NO TERMINAL s ILEAVE 1 1SAVE RO s31GET ADORESS OF ASCI2 STRING s IMUANING IN APT MOOE $1N0,.GO ECK O FOR APT CONSOLE 51SPOOL MESSAGE T0 APT s3ND,GO CHECK FOR CONSOLE 3 1SETUP MESSAGE ADORESS FOR APT 1sSPOOL MESSAGE TO APT 1 tMESSAGE ADORESS 1 1APT CONSOLE SUPPRESSED 51 YES,SKIP TYPE OUT 1:PUSH CHARACTER TO BE TYPED ONTO STACK $iOR IF IV 1SN'T THE TERMINATOR 11 IF TERMINATOR POP 1IT OFF THE STACK s sRESTORE RO 1 iAOJUST RETURN PC s 1RETURN 1 tBRANCH IF «MT> 1 ;iBRANCH IF NOT <CRLF> 1:POP 1:sTYPE <CR><LF> EQUIV A CR AND LF 1 ;CLEAR CHARACTER COUNT $3GET NEXT CHARACTER :13GO TYPE THIS CHARACTER 13IS IT TIME FOR FILLER CHARS.? 13IF NO GO GET NEXT CHAR. isGET @ OF FILLER CHARS. NEEDED 13AND THE NULL CHAR, 1 sDOES A NULL NEED TO BE TYPED? $3BR IF NO--GO POP THE NULL OFF OF STACK 1:1GO0 TYPE A NULL $300 NOT COUNT AS A COUNT 33 L00P CZRU0BO RPO7 PELRF EXER MACRO vO4.00 1-DEC 83 10:32:28 PAGF 88 1 TYPE N14 5€Q 0181 ROUTINE tMORIZONTAL 036120 036124 036130 036136 036140 036142 036144 036144 036150 036152 036156 036162 036166 036170 036170 036174 036176 036202 036206 036212 036214 036214 036216 036216 036222 036224 036232 036240 036242 036246 036250 036256 036260 036262 036264 112716 004737 132737 001372 005726 000724 000040 036144 105777 100022 017746 143010 042716 122716 001012 105777 100375 117716 042716 122716 001366 000007 8s: 036262 122766 001003 105037 000406 122760 001402 105227 000000 000207 BIT8 BNE MOV 8IC CMPB 101$: 142764 142760 177600 000021 102%: 10¢: 142742 142734 000002 000002 BNE 7578 8PL MOVB 8IC 1$: o ,(SP) 1sREPLACE TAB WITH SPACE PC.STYPEC 87, $SCHARCNT 94 13 TYPE 3sTKS 104 83TKB, -(SP) ; ;CHAR IN KYBD BUFFER? ::BR IF NOT 1024 ::BR IF NOT (SP). 2s 0177600,(SP) O$XOFF ,(SP) A SPACE ; :BRANCH IF NOT AT 1:TAB STOP 1:POP SPACE OFF STACK 3 sGET NEXT CHARACTER 1 ;GET CHAR ;:sSTRIP EXTRANEOUS BITS : 1WAS CHAR XOFF $ sWAIT FOR CHAR cMPB BNE 83TKS 101 84TKB,(SP) #177600,(SP) @4XON, (SP) 101¢ TSTY (SP). ::FIX STACK TST8 8PL a8sTPS 10$ 2(SP),asTP8 @CR,2(SP) 1$ $CHARCNT $TYPEX oLF,2(SP) $TYPEX : sWAIT UNTIL PRINTER IS READY MOvB 036262 000012 JSR 7578 8PL 143004 177600 000023 000002 000015 mMOvs TS7T B8R $TYPEC: - 005726 105777 100375 116677 94 TAB PROCESSOR CMPB BNE CLRB B8R cHMPB BEQ INC8 $CHARCNT : . WORD $TYPEX: RTS (PC)» 0 PC s sGET CHAR ;:sSTRIP 1T ;sWAS IT XON? : :BR IF NOT ; sLOAD CHAR TO BE TYPED INTO DATA REG. :: IS CHARACTER A CARRIAGE RETURN? : ;BRANCH IF NO 33%5%}-CLEAR CHARACTER COUNT :: IS CHARACTER A LINE FEED? : :BRANCH IF YES : ;COUNT THE CHARACTER : sCHARACTER COUNT STORAGE ) bl CIRJIDBO RPQOTM PERE EFXER MACRD \V04.00 1 DEC 82 10:3%3,:28 PAI'F BINARY 10 OCYAL (ASCIIY AND TYPE LS8TTL BINARY RY “EQ 0182 TO OCTAL (ASCII) AND TYPE 3100000800004 0408000000400008048000800840000000084804804804000400000008 s THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY so0CTAL (ASCII) NUMBER AND TYPE IT, 108TYPOS NUM, e N ) ie TO -ENTER MERE s oCALL : MOV HL TYPOS .8YTE .BYTE SETUP (SP) SUPPRESS ZEROS : sNUMBER :iN=1 “ TO BE A 6-DIGIT DIGITS DIGITS TO --ENTER HERE OR TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST $TYPOC MOV NUM, -(SP) : ;:NUMBER TO BE TYPED s1CALL FOR TYPEQUT s83$TYPOC---ENTER HERE FOR TYPEOQUT OF A 16 BIT NUMBER 036266 036272 036300 036304 036310 036312 036320 036326 036334 036336 036340 036342 036346 036350 036354 036360 036364 036370 036372 036374 036376 036402 036404 036406 036410 036414 036416 036422 036424 036426 036430 036513 000002 000001 000005 036511 036511 036513 036510 $TYPOS: $TYPON: 036513 036512 036511 000012 NUM, -(SP) s iNUMBER TO BE TYPED ::CALL FOR TYPEQUT MOV MOVE 8(sSP), (SP) 1(SP),SOFILL ADD 02.(SP) ;sPICKUP THE MODE ;3LOAD ZERO FILL SWITCH 1 sNUMBER OF DIGITS TO TYPE : sADJUST RETURN ADDRESS 06,$0M0ODE -1 ::SET THE ZERO FILL SWITCH $13SET FOR SIX(6) OIGITS TrPOC BR MOVB MOve MOVB 28: 3s: 05, SOCNT MGV CLR ROL er ROL 12(SP),RS R3 RS 3 RS $OFILL ,R4 ROL ROL RS RS ROL R3 MOV OECB 8IC 44 $TYPON 01, 80FILL R4, -(SP) RS, -(SP) $OMODE.+1 R4 R4 06 ,R4 R4, $OMODE 8PL 177770 (SP)+,$0MODE 1 MOV MOV MOVEe NEG ADD a0} ] MOVB 1¢: 036512 MOV MOvBe s$TYPOC: TrPE :31=TYPE LEADING ZEROS L ie TrPE ::0=SUPPRESS LEADING ZEROS :0$TYPON- ssCALL: ;e TQ TYPED TO 6 FOR NUMBER OF L] i AND NUMBER OfF 1sM=1 OR O ‘. :oCALL: TO : sCALL FOR TYPEOUT e :¢$TYPCS NUMBER BNE TS7 BEQ INC RS,R3 $OMODE 78 €177770,R3 4% R4 St R4 :3SET THE ITERATION COUNT 1 $SAVE R3 : $SAVE R4 ; sSAVE RS ssGET THE NUMBER OF DIGITS TO TYPE 11SUBTRACT IT FOR MAX. ALLOWED 13SAVE IT FOR USE $3sGET THE ZERO FILL SWITCH $:PICKUP THE INPUT NUMBER s sCLEAR THE OUTPUT WORD s sROTATE MSB INTO ::GO DO MSB s sFORM THIS DIGIT "C*” s3GET LSB OF THIS DIGIT ;s TYPE THIS DIGIT? 18R IF NO :1GET RID OF JUNK t1iTEST FOR O s 1 SUPPRESS THIS 0? ;1 1BR IF YES :13OON'T SUPPRESS ANYMORE 0'S - SRUUBO RPO? PERF EXER MACRO VO4.00 1 BINARY TO OCTAL (ASCII) AND TYPE 036432 Q%6436 036442 036446 036452 036456 052703 052703 110337 104401 105337 003347 026460 002402 C36464 000744 036462 036466 036470 036472 036474 036502 036504 036506 036507 036510 036511 036512 000060 000040 036506 036506 036510 DEC 8% 10:2.°:08 PAGE S ' 012605 012604 012603 016666 012616 000002 000 000 000 000 000000 6%: 000002 000004 8s: $OCNT: $OFILL: $OMODE: 5EQ 0183 BIS BIs MUJB TYPE DeCB 8LT ¢ 0,R3 o RS RX,8% .8 $OCNT 28 s sMAKE "HIS DIGIT ASCII 3 sMAKE ASCII IF NOT ALREADY INC R4 $ s INSURE LAST DIGIT BLTY 005204 89 1 r Llo B8R MOV MUV MOV MOV MOV RTI .BYTE .BYTE .BYTE .BYTE .WORD 64 28 (SP)« ,R5 *SP).,R4 (SP)+ ,R3 2(SP),a(SP) (SP)«,(SP) 0 0 O O O 1 $SAVE FOR TYPING 1360 TYPE TWIS DIGIT s sCOUNT BY 1 s sBR IF MORE 70 DO 1 318R 1F DONE ISN‘T +13GO DO THE LAST DIGIY A BLANK ; tRESTORE RS s sRESTORE R4 s sRESTORE R3 ::SET THE STACK FOR RETURNING s iIRETURN s sSTORAGE FOR ASCII DIGIT : s TERMINATOR FOR TYPE ROUTINE 1s0CTAL DIGIT COUNTER 1 3ZERO FILL SWITCH i sNUMBER OF DIGITS TO TYPE CJIRUOBY RPCTM PERF tXER MACRD v04.00 1 DEC 82 CONVERT BINARY TC DECIMAL AND T'PE ROUTINE 10:3.:28 PAGE .S8TTL D5 90 % 0184 CONVERT BINARY TO DECIMALL AND TYPE ROUTINE 130000000000 000000000000000000000000000000000000000600000000400808 3¢ THIS ROUTINE IS USED TO CHANGE A 16-8IT BINARY NUMBER TO A S-DIGITY $¢SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHE THER THE 1eNUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED :*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE s *REPLACED soCALL: 3 e 1 e 010046 010146 010246 010346 010546 012746 016605 005405 112766 012703 112723 005002 016001 160105 002402 005202 000774 060105 005702 001002 105716 100407 106316 103003 116663 052702 052702 110223 005720 020027 002746 003002 010502 000764 105726 100003 116663 105013 012605 012603 012602 012601 sTYPDS: WITH MOV TYPDS NUM, MOV MOV RO, -(SP) MOV 020200 000020 000055 000001 036720 MOV MOV MOV MOV 8PL NEG MOV 28: CLR MOV MOVB CLR 3% SUB 1s: 036730 000040 SPACES. (SP) R2,-(SP) RS, -(SP) 020200, -(SP) 207SP),RS 1 1PUT THE BINARY NUMBER ON THE STACK 3:G0 TO THE ROUTINE 33PUSH RO ON STACK $ 1PUSH R1 ON STACK $3PUSH R2 ON STACK s 1PUSH R3 ON STACK 13PUSH RS ON STACK $3SET BLANK SWITCH AND SIGN $3GET THE INPUT NUMBER :118R IF INPUT IS POS. 1 iMAKE 1sMAKE #$0BLX,R3 ¢ ,(R3). R2 $0T8L(RO),R) R1,RS THE BINARY NUMBER POS. THE ASCII NUMBER NEG. 1 sZERO THE CONSTANTS INOEX $31SETUP THE OUTPUT POINTER :13SET THE FIRST CHARACTER TO A BLANK $;CLEAR THE 8CD NUMBER 13GET THE CONSTANT : sFORM THIS B8CD DIGIT :11BR IF DONE s s INCREASE THE BCO DIGIT BY 1 s sADD BACK THE CONSTANT s ;CHECK IF BCD DIGIT=0 4% 1iFALL THROUGH IF O $3STILL COING LEADING 0'S? (sP) 000001 000060 000040 6t 177777 1(SP), -1(R3) e'0,R2 ® ,R2 R2.(R3). (RO). 000010 RO, #10 8s: 177777 177776 9s: :13BR IF YES s sMSD? $38R IF NO s YES--SET THE SIGN s sMAKE THE 8CD DIGIT ASCII $sMAKE IT A SPACE IF NOT ALREADY A DIGIT :3PUT THIS CHARACTER IN THE OUTPUT BUFFER 313 JUST INCREMENTING 1 ;CHECK THE TABLE INDEX $3GO DO THE NEXT DIGIT 1360 TO EXIT s 1GET THE LSO $1GO CHANGE TO ASCII 1sWAS THE LSD THE FIRST NON-ZERO? -1(SP), -2(R3) (R3) (SP)+,RS (SP)+ ,R3 (SP)+,R2 (SP).,R} $+3BR IF NO 3t YES--SET 11SET 1:POP s 1POP s 1POP 1:POP THE SIGN FOR TYPING THE TERMINATOR STACK INTO RS STACK INTO R3 STACK INTO Re STACK INTO R} ' J Loy JRJIOBO RPQT PERF EXER MACRO vO4.70 1 DEC 8% CONVERT BINARY TO DECIMAL ANC 7T+'PE ROUTINE 036700 0% 702 036706 036714 036716 036720 036722 036724 036726 036730 012600 104401 016666 012616 000002 023420 001750 000144 000012 036730 000002 10:5.:28 PAGF MOV TPt M0/ MOv 000004 $DBL : s0BL K ; RTI 10000. 1000. 100. 10. LB KW 90 1 (SP)Y+ RO . $0BLK S(5P),4(50) (SP).,(SP) %EQ 0148 11POP STACK INTO RO 1iNOMW TYPE s iADJUST THE NUMBER THE STACK ; sRETURN TO USER cRUORO RPC" PERF EXER MACRO vOe.00 1-DEC 83 10:32:28 PAGF APT COMPRNICATIONS RC UTINE LS8N APT 91 3EQ 0184 COMMRNICATIONS ROUTINE 1310000000060 00000000000000000000000400000°000000000000000000000000 0%6740 036746 036754 036756 036764 036764 036766 036770 036774 036776 037004 037006 037014 037016 037022 037030 037034 037036 037042 037044 037046 037052 037054 037060 037066 037070 037076 037104 037110 037114 037116 037116 037122 037124 037130 037132 037136 037140 037146 037154 037160 037164 037170 037174 037176 037200 037202 037203 037204 112737 112737 000403 112737 010046 010146 105737 001450 037204 037202 $ATvl: SATYS: 037204 sATY4a: SATY(C: TMOv8 TMMOVS @1, ,8FF LG 01,8 LG 1370 REPORY FATAL ERROR MOVS 01,86FLG 3170 OMLY REPORT FATAL ERROR $IMFLG 122737 59 ;APYENV.OENV 001226 001031 1327%7 s 001227 001425 017600 062766 005737 0013735 010037 105720 001376 OAPTSP , OOL SENVM 3 84(SP),RO 18: 28: TSY 1578 163700 010037 012737 000413 017637 062766 013746 004737 000000 105737 000200 000001 000100 000040 3s: 108 : 11%: MOV . WORD TS78 TST 001210 000004 037204 037203 037202 (RO). 2 S5 84(SP), 48 02,4(SP) 177776, -(SP) a8: S: 001416 005737 001413 005737 001375 017637 RO, $MSGAD $MSGAD , RO RO RO, $MSGLGY o4, $MSGTYPE 001206 037114 000004 02,4(SP) t?SGYYPE 1 006200 062766 005237 105037 105037 105037 012601 012600 000207 000 000 000 SATYC 12¢: SMFLG: SLFLG: $SFFLG: CLR8 RTS .BYTE .BYTE .BYTE .EVEN APTSIZE = APTENV = APTSPOOL= APTCSUP = 200 001 100 040 PC.STYPE 0 SFFLG 12¢ SENV 12¢ $MSGTYPE 118 S4(SP),SFATAL €2 .4(SP) S$MSGTYPE $FFLG SLFLG SMFLG (SP)+,R1 (SP)+,RO PC 0] 0 0 1370 TYPE A MESSAGE 11PUSH RO ON STACK $3:PUSH R1 ON STACK 1sSHMOULD TYPE A MESSAGE? BR s3:IF NOT: s 1IOPERATING UNDER APT? s3IF NOT: BR 1 3SHOULD SPOOL MESSAGES? 13IF NOT: B8R 11GET MESSAGE ADOR. $:1BUMP RETURN ADDR. s3SEE IF DONE W/ LAST XMISSION? WAIT s1IF NOT: 3 3:PUT ADDR IN MAILBOX 1:FIND END OF MESSAGE ;1SUB START OF MESSAGE :1GET MESSAGE LNGTH IN WORDS 31 3PUT LENGTH IN MAILBOX 1sTELL APT TO TAKE MSG. :13PUT MSG ADDR IN JSR LINKAGE : 1BUMP RETURN ADORESS s 3PUSH 177776 ON STACK : sCALL TYPE MACRO ;1 1SHOULD REPORT FATAL ERROR? i3 IF NOT: BR 1 ;RUNNING UNDER APT? BR s3IF NOT: 1 1FINISHED LAST MESSAGE? WAIT s3IF NOT: 1:GET ERROR ¢ : ;:BUMP RETURN ADDR. 1sTELL APT TO TAKE ERROR ;1 ;CLEAR FATAL FLAG s ;CLEAR LOG FLAG 3 1CLEAR MESSAGE FLAG $3POP STACK INTO R1 s sPOP STACK INTQ RO 1 sRETURN s tMESSG. FLAG 13LOG FLAG 1 1FATAL FLAG CIRUVRY AP0 PLRS EYER MACRD vO4.00 1-0EC 83 10:832:28 PaGF RANDUM NUFRER GENERATOR ROUTINE LSBTTL GLS 92 5€Q 0187 RANDOM NPBER GENERATOR ROUTINE §5§000000000000000000000000000000000000000000000000000s800001000000 1eTHlS ROUTINE soMITH A RANGE soCALL: 10 e JSR RE TURN IS A DOUBLE P“(CISKON PSEUDO RANDOM NUMBER LENERATOR OF O TO 2(.38)- PC. IRAND 13CALL THE ROUTINE 1IRETURN MERE THE RANDOM 1 sNUPBER WILL BE 33 SMINUM, SLONUM 037206 037206 037210 037212 037214 087220 037224 0372%0 037212 0%°2%4 0%372%6 037240 037244 037246 0325952 ¢372%6 037260 037264 037270 087274 037276 037300 037302 037304 037306 IN : SRAND 010046 010186 010286 013700 013701 012702 006 300 131PUSH RO ON STACK 037306 037304 17177 ! 1¢: 006101 001574 063700 0055014 063701 062700 005501 062701 010037 010137 012602 ASL s sROTATE CARRY 1 SLONUM, RO 037306 R1 sHINUM RY 01057 .RC R1 047401 .R} RO, $LONUM 037304 001057 047401 037306 037304 R1., sHINM (SP).,Re (SP). R} (SP)+,RO 012601 012600 000207 176543 123456 $11PUSH R1 ON STACK 11PUSH R2 ON STACK $1SET RO WITH LOW $1SET R1 WITHM MIGH 13SET SHIFT COUNT $3sSHIFT RO LEFY AND SHINUM: SLONUM: PC _WORD | WORD 176543 123456 INTO R1 AND 3 1CHECK FOR DONE s sCONTINUE SHIFT LOOP 1 sADD NMUMBER TO MAKE X 129 1 i1PROPOGATE CARRY 1sADD NUMBER TO MAXKE X 129 13AD0 LOW CONSTANT 3 sPROPOGATE CARRY s sADD HIGH CONSTANT 1:SAVE RO 1 1SAVE R] 1:POP STACK INTO R2 s 1POP STACK INTO R} s 1POP STACK INTO RO 1 iRETURN " Prit ANMD Rt ~T(Rt $YER MACRO vO4.00 1 OEC 83 K0 RS A0UTIN S 10:8.:2A .S8TTL SAVE PAGE HLS 93 AMD RE,TORE 5EQ 0188 RO RS MOUTIMES §10000000000000000000000008080000000000000000000000000000000000000 10SAVE RO RS soCALL : SAVPEG 1® 10UPON RETURN FAOM $SAVREG Tr€ STACK WILL LOOX LIKE: L 10T - - -(16) OP 10 «2---(18) ;@ o8 - -'S 10 6 --R4 10 «8---AS 1010 --R2 10012-- R} 037334 037340 037344 016646 000022 000022 0000: 2 000022 - 1] L] LALRS33 333 087322 037324 037330 AL 037320 "oV oV 01} MoV MOV MOV "oV "oV MOV OV [] 037314 037316 $SAVREG: l e Y te Xa lake] 087812 010046 Clv1a6 010266 010346 010446 010%46 016646 016646 016646 WA e 037310 . 037310 NRARR”.3 €¥e RAMAL j10¢14---RO RTI 1oRESTORE RO-RS RTI ot [ataYeYa Z2RERIVNNN 0w OO o o ¢ O ® s ¢ & ® 8 ¢ 6 L01 01 la "oV e mov MmOV mnov g 417 OV oV g 11 & SRESREG: o 037370 037372 037374 037376 037400 037402 000022 000022 000022 000022 ® 0373352 037356 037362 037366 012666 012666 012666 012666 012603 012604 012603 012602 012601 012600 000002 ® 037346 037344 soCALL: RESREG 1o COACAAL, SAavt e N N SRR, s IRESTORE PC OF CALL 1 tIRESTORE PS OF CALL 1 sRESTORE PC OF MAIN FLOW 1 tRESTORE PS OF MAIN FLOW 3 1POP STACK INTO RS 1 1POP STACK INTO R4 11 POP STACK INTO R3 1:1POP STACK INTO R2 1:POP STACK INTO R1 1:POP STACK INTO RO CIMIOBO AT Prr ¢ A MaCR0 v0s.00 1-08C 63 10:52:28 PACE % T @ %Ay TO DECIML L asCit Coment ROV Ing DOWUBLE LEN LSOTTL $ TS 580 0189 OOUBRLE LENGTTM STwaRyY TO C: [ram 0000008000000 0000000000000000008°200:520000062 1704000060300 0003082 setwls AOUTINE wILL CONVERT A 32 B0 b OF 1eOECIMAL (AICII) NUBER, g SIe s oPOSITIVE. oCALL 10 s 037404 17406 0%7412 0%7416¢ 037422 037424 037426 037434 037440 037444 037446 0374%0 osre 2 037« 54 0374%6 037460 037482 037464 037466 037470 037472 037474 037500 037502 037504 037506 087510 037512 037514 037516 037520 037522 087524 037526 03753%0 037532 037534 037536 037540 037542 037544 037546 0375%0 037552 1 OV JR NE TURN #C.0010020 10820 SAVRE( o 91 2(5P) . R2 037564 000012 037514 037516 ASCIT £ OwERT ROUTING mOv Ov 037502 16 28 040ECVL . RO R0,2(5P) (R2).,R] (R2).,.R2 010. .49 04 IOWR R4 W ITIWR.2 RS sPOINTER 70 LOW WORO OF BINAARY NUIMBEAR s T FINST ADOMESS OF ASCIZ 3115 On W@ STACK 11SAVE REGISTERS 11PICKUP TrE DATA POINTER 11GET ADORESS OF -~S0ECWVL~ STRING 11PUT ADORESS OF ASCIZ STRING On STACK 1IPICKUP THE BINARY MUBER 1:SET UP TO DO 10 CONVERSIONS 1 sADORESS OF TEN POMER (R4). R} 11N IF TEN POMER TO LARGE s1ADD 1 10 PARTIAL 1L 00P 1sRESTORE SUBTRACTED VALUE 0°'0,R3 03 (R0). (PC)e 0 14 (RO). oC STNPWR; 1ISUBTRACT TEN POMER s1MOVE TO EXT TEN POWER 13CHANGE PARTIAL TO ASCII 31SAVE IV 3:O0NE? 1500 IF NO 3 s TERMINATOR s sRESTORE REGISTERS s 1RE TURN 111.0€09 $11.0€08 1:1.0€07 1:1.0€06 103240 131.0€05 023420 111.0€04 001750 1:1.0€03 000144 144 MUBER Ty M UL LED ey | PPER TMUST BE 11CLEAR PARTTIAL (R4). R2 (R3)+,(R3). 44 - L)] (Re), A1 3¢: SARY 131.0€02 CTRHORC A0 Py ¢xf® MACRD vO8.00 |1 JF(C 63 10: OBt LENCTH §Inamy 0t ve%4 08 "% 08 *560 0¥ % €T %4 TO DECTITMN. 000012 000000 000001} 000000 o Pai s J1S >£2 019% ASCII COMVERT AOUT 1N 12 3:1.0801 | o +s1.0800 0 s0t(wn;: .6 12. s MESERVE STORAGE FOR ASCIZ STRING CTR MO BBO”" PLEe ¢ R "a(D) yOl OBt LENGTn BINaRY 10 OCTaL ASC OtC 03 10:32-008 PAF & Ot Rt AOUT Ing LSBT OOUMRE LENGTTM BTy 580 019 TO OCTAL ASCII COWVERT AOUTINE 11000000000000000000008000000000000000000000000000000000000000000 1071s BOTINE WILL COWESLT A 52 BIT UNSIOED BINAAY MPBER TO AN 1oMSIOED OCTAL ASCIZ er@en. el ALy 3@ NN, .(SP) 11POINTER 70O LOw WORD OF OINARY NIFOER s @ JA oC. 0010820 1iCALL € AOUTINE NE TURN 3o 1:71"€ ADORESS OF T FIRST ASCIZ OWMA. IS ON TTME STACK 037666 037170 037672 037676 037700 037702 SAVRE( 16; Rt SREG 3 110243 bJ - 012100 012101 $0820: 3522843 32324 012703 012708 012708 000002 037717 0000148 L1710 a) 037608 03712 0%7¢16 037622 0%7¢24 037%¢2¢ 0%76%0 07632 037634 0%7¢% 037640 037642 037644 037650 037652 037¢ 4 0%76% 037640 037662 037604 108812 016601 o»® 037600 0% 7602 2(99) .M os0C18, Twi .48 012. .Ra o*C?.m% (R1). RO (R1)e, M} "2 R, -(W3) RO ,.R2 ne 11] 20 s RS, 2(SP) eC ns f] "0 f] ) Ry RO RS, A2 o 0.R2 1 14, 11SAVE AL MEGISTERS 1PIONS TvE POINTER TO LOW WMORD 1:POINTER 1O DATA TABLE 1100 ELEVEN OrVRACTERS 3 1PASK 1 1LOGER WwORD » ¢ MIGH WORD TERMINATOR ViPUT CrARACTER IN DATA TasLE s1GET TwIS DOIGIY $1COUNT THIS CHARACTER 10 IF NOT THE LASTY DIGIY 3:0R IF IT IS TWE LAST DIGIT sl OIGITS DOME -ADLAJST POINTER FOR FIRST $3ASCIZ O, € PUT 1T ON THE STACKX 11RESTORE ALL REGICTERS $:RETURN TO USER $1POSITION TE MASK FOR THE LAST DIGIT 3:POSITION TE BINARY MUPBER FOR Tr€ NEXY OCTAL DIGIT " $IMASK QUT ALL JUNKX 1iMAKE THIS CHAR. ASCII $1G0 PUT IT IN THE DATA TABLE 1:RESERVE DATA TABLE 15 20 01% .IN ‘ PR DOMN MO W AOUTIES 0000000000000 00000000000000000000000000000000000000000000000000 ‘HQQQHQHH 080072 000340 141200 040076 037772 'USN R0 On STACK lS‘ u’USN R1 Om STACK 1:1PUSH R2 O STACK 1:0USH RS On STACK 1:PUSH R4 On STACK 1 1PUSH S ON STACK u’USN lS‘ oM STACK 1 SAVE ..amSOMRVEC 1 SET w VECTOR .2 G 1 1HANP 0000800000000 0000000000000000800000000000000000000000000000000 - gt pt o [ [ XT LV ) COB~wONEBWN 0127%? 013706 0050187 005237 001373 005337 003773 012677 040040 040042 040044 040052 040060 040062 040064 040066 040070 040072 040074 040076 040072 040076 040076 040076 16 InC 040100 20: 0°C OLE E§§ 037772 040000 040004 040010 040014 040016 040022 040024 040030 040032 040034 040036 ‘o-u » noutne 141124 0387720 000340 MOV MOV "oV "oV MOV "oV mov mov MOV TYPE 000024 $PURIG; . WORD mOov SPWRAD: . WORD SILLUP: 040100 040102 012 O4g RTI QIILLUP, QOPVAVEC ;,SET FOR FAST DOMN ISAVRG , P 1:GET SP 1 1MAIT LOOP FOR THE TTY ui&fllf FOR TrE INC it sTTY WORD WALIT LOOP € SET POMER FATL FLAG IMALIT FOR FLAGe ) 11POP STACK INTO SR INTO INTO INTO INTO INTO INTO STACK STACK STACK STACK STACK STACK (SP). RO 31POP $1POP 11POP 11POP 11POP 1:POP 0340, BOPURVEC+2 41PRIO: 7 MSGPWR 1 sPOMER FAIL @ IPRDN, WVGC 13SET L' THE POMER DOWM VECTOR (PC)e , (SP) PuRUP HALT 1 REPORT THE POWMER FAILURE 040134 005227 001373 000005 005037 000000 177776 MESSAGE 1IRESTART AT PWRUP 1 tIRESTART ADORESS 1 THE POMER UP POINTER SEQUENCE WAS STARTED B8R $SAVRG: o .-2 t1 BEFORE THE POWER DOWN WAS COMPLETE 1PUT THE SP MERE PURFLG: . WORD 0 1POMER FAIL FLAG GOES MERE; MSGPUR; .EVEN .ASCIZ <CRLF><LF>/"POWER UP” AT PURUP; INC BNE RESET CLR 0 .4 PS FAILED- 1 / s THIS ROUTINE HANDLES THE RETURN ON POWER UP. 100 AN AUTO RE-START TO 'SIZMEM' . 040124 040130 040132 RS R4 R3S R2 R1 RO sTTY LOOP, WAIT THREE (3) MINUTES AND WAIT FOR 1 OF WORD sCLEAR THE WORLD sCLEAR PSM INCREMENT CTOOBO BGC” PERS ViR MACRD vO4 . 00 | OFC 83 10:82:2% PArk Pt DOWN AND P ROUTINES 1% 040180 040250 040252 012706 00%0%7 005037 004737 004737 004737 104401 005037 105737 001414 104401 005737 001007 023727 002771 0127%7 012703 005025 022705 001374 000137 040256 040277 200 200 16 040144 i 7 040150 16 040154 19 040160 20 040164 21 040170 22 040174 23 040200 040204 040206 040212 040216 040220 040226 040230 0402 %6 040242 040244 001100 "“Ov 001 %44 Lo 001472 01%210 024574 026226 MLS 560 0193 sSETUP STACK POINTER IRESET SECOMD COUMNT oS TACK, P St COMO INTRAVL o2 8T Int ®C. (RESET L SCMLF 001208 CrLAG ASML 5T 29 JASWATT 040256 001334 sWAS (*C) TYPED? 1OR IF VES 29 INTRVL . 2,08 001472 s TMREE MINUTES sMAIT IF NOT 1ALL DONE 2 1BRANCH IF NOT 1LOOP BACK 131 101 ? ICLEAR UP THE QUE AND BUFFER 005112 127 YET tFUDGE 200 START 0013382 002056 124 INTERVAL COUNT sTYPE "MAITING 3 MINUTES...T0 START CrLAG 1s: THE PAXE SURE xXEYBOARD INTERARUPT AND sSYSTEM CLOCK ARE STILL OM. 1 TYPE ELAPSED TIME 1ICR-LF sCLEAR (¢C) FLAG 1ANY DRIVES ASSIGMNEC ? 18R IF N0 PC.CxCLx PC,oTIME 001334 001542 000400 001520 o | MSWAIT: .EVEN .ASCII .ASC1Z <CRLF>/TYPE ¢( 70 ABORY/ . <CRLF>/UAITING 3 MINUTES...TO START/<«CRLF> ZRJ0BO RPO7 PERF EXER MACRO vO4.00 1-DEC 83 10:32:28 PAGF 97 TRAP NLS 5EQ 0194 DECODER .SBTTL 1 TRAP DECODDER 1300000000060 000000000000000004000000000000800060600040000000000008 ;¢ THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP" INSTRUCTION 1¢AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADURESS 1¢0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL ;eGO TO THAT ROUTINE. 040336 040340 040344 040346 040350 040352 040356 010046 016600 005740 111000 006300 016000 000200 $TRAP: 000002 040372 MOV MOV TST MOV8 ASL MOV RTS RO, -(SP) 2(SP),RO (RO) (RO),RO RO $ TRPAD(RO),RO RO : ;s THIS IS USE TO HANDLE THE 040360 040362 040370 011646 016666 000002 000004 000002 $TRaP2: MOV MOV RTI1 .SBTTL : ;s SAVE RO :;GET TRAP ADDRESS : ;BACKUP BY 2 :s:GET RIGHT BYTE OF TRAP s ;POSITION FOR INDEXING : s INDEX TO TABLE ::G0 TO ROUTINE “GETPRI" MACRO (SP), -(SP) 4(SP),2(SP) s sMOVE : sMOVE THE PC DOWN THE PSW DOWN : sRESTORE THE PSW TRAP TABLE ;#THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED ;#BY THE "“TRAP” ROUTINE ; $TRPAD: .WORD 040372 040374 040376 040400 040402 040404 035732 036312 036266 036326 036514 040406 034100 $GTSWR 040410 040412 040414 040416 040420 § 040422 034010 034352 034442 037310 037346 033100 000032 040360 INSTRUCTION. $TYPE $TYPOC $TYPOS STYPON $TYPDS TER $TRAP2 1 sCALL=TYPE ;;CALL=TYPOC ;;CALL=TYPQS ;;CALL=TYPON ;:CALL=TYPDS TRAP+1(104401) TRAP+2(104402) TRAP+3(104403) TRAP+4(104404) TRAP+5(104405) TTY TYPEQOUT ROUTINE TYPE OCTAL NUMBER (WITH LEADING ZEROS) TYPE OCTAL NUMBER (NO LEADING ZEROS) TYPE OCTAL NUMBER (AS PER LAST CALL) TYPE DECIMAL NUMBER (WITH SIGN) ; ;CALL=GTSWR TRAP+6(104406) GET $CKSWR ; ; CALL=CKSWR TRAP+7(104407) TEST FOR CHANGE $ROCHR ; ; CALL =RDCHR $ROLIN ;;CALL=ROLIN $SAVREG ;;CALL=SAVREG $RESREG ;;CALL=RESREG Sgggkg : sCALL=DISPLY $TERM=_ -§ TRAP+10(104410) TRAP+11(104411) TRAP+12(104412) TRAP+13(104413) TRAP+14(104414) SOFT-SWR SETTING IN SOFT-SWR TTY TYPEIN CHARACTER ROUTINE TTY TYPEIN STRING ROUTINE SAVE RO-RS ROUTINE RESTORE RO-RS ROUTINE ROUTINE TO TYPE ERROR MESSAGES 10:%°:08 PAGE :STORAGE F(OR RPDS, RPSTULO: RPSTUL: RPSTYZ: RPSTUS: RPSTUA; RPSTUS: RPSTUG: . WORD .WORD . WORD . WORD .WORD .WORD . WORD . WORD b : TABLE 1Q - 88883838 [ DRVACT: :0S, :0S, 1DS, ;:0S, ;0S, :10S, :0S, ;:0S, INDICATORS ERL, ERL, ER1, ER1, ER1, ER1, ER1L, ER1, ER2 ER2 ER2 ER2 ER2 ER2 ER2 ER2 ER3 ER3 ER3 ER3 ER3 ER3 ER3 ER3 STORAGE STORAGE STORAGE STORAGE STORAGE STORAGE STORAGE STORAGE (DRVACT=8 BYTES) .BYTE .BYTE .BYTE .BYTE .BYTE .BYTE .BYTE .8YTE :ORIVE sORIVE ;DRIVE sDRIVE sORIVE ;ORIVE sDRIVE ;ORIVE ;sDRIVE ;ORIVE iORIVE ;DRIVE :DRIVE ;:ORIVE :DRIVE ;ORIVE s TABLE OF DRIVE TYPES (DRVTYP=8 BYTES) tORVTYP= O IF DRIVE IS NONEXISTENT (DRVSTA=0, ALSO) :ORVTYP- 4 IF DRIVE IS RPO7. sDRVTYP= S IF DRIVE IS RPO7 MOVING HEAD OPTION ,ORVTYP=-1 IF NOT RPO7 888 83888 51 DRVTYP: .BYTE .BYTE .BYTE .BYTE .BYTE .BYTE .BYTE .BYTE FOR DRIVE FOR DRIVE FOR DRIVE FOR DRIVE FOR DRIVE fFOR DRIVE FOR DRIVE FOR DRIVE IS IDLE IS ACTIVE WITH A COMMAND IS ACTIVE WITH AN ERROR RELOVERY OPERATION ~NOWVNDB WO 88888888 ORVSTA: 45 46 47 48 49 040544 53 040545 040546 55 040547 040550 57 040551 58 040552 59 040553 .BYTE .BYTE .BYTE .BYTE .BYTE .BYTE .BYTE .BYTE AND RPER3 : TABLE OF DRIVE STATUS INDICATORS (DRVSTA=8 BYTES) :ORVSTA=0 IF DRIVE IS OFFLINE OR NONEXSITENT tORVSTA>0O IF DRIVE IS ONLINE s:ORVSTA<O IF DRIVE IS UNSAFE 35 37 040534 38 040535 39 040536 40 040537 41 040540 42 040541 43 040542 44 040543 ACTIVE RPLR2, 1DRIVE s1DRIVE sORIVE ;ORIVE t1ORIVE ;ORIVE 1DRIVE 1ORIVE NOND WO 040527 27 040530 28 040531 29 040532 040533 31 32 33 DRIVE RPERL, ;ORVACT=0 IF DRIVE ;DRVACT>O IF DRIVE ;:DRVACT<O IF DRIVE 20 23 040524 24 040525 25 040526 OF COO00O0O0O0O RPSTUT: (oeloloToXo o ) 040474 040504 040514 SEG 0195 DRIVER 00000000 040434 040444 040454 040464 RPO7 OCO0O00O0O0O0C 040424 i .SBTTL 98 ENY. JU P YT 3TN o) 83X MMM OEC ~NONS WO 1 [eJoleoToXoYoX oL o] vO4 ., (OC N txER MACRD nt DRIVER rep e RPOTM bhooe OO0OO0O0O00O00 CoRUOBC RPOTM FERS i CIRUVBY RPOTM PERS DRIVER tXER MACRDO VvO4,.00 1 DEC 83 10:3°:08 PAGF 99 5F0 0196 sTABLF OF DUAL PORT INITIALIZATION INDICATORS ;OPINT-0 IF INITIALIZATION IS NOY ACTIVE ON THE DRIVE nt s 040554 040555 040556 040557 040560 040561 040562 040563 83883832 sOPINT<Q IF DPINT: .BYTC .BYTE .BYTE .BYTE .BYTE BYIE .BYTE .8YTE INIT1ALIZATION IS IN PROGRESS 0 0 1DRIVE O sORIVE 1 o) iDRIVE 6 0 O O O sORIVE ;ORIVE sORIVE :DRIVE O 2 3 4 S :ORIVE 7 s TABLE OF PENDING DUAL PORT REQUESTS :OPRQS=0 IF THAT A DUAL PORT REQUEST IS NOT PENDING FOR THAT DRIVE ;:OPR@S<0 IF THAT A DUAL PORT REQUEST IS PENDING FOR THAT DRIVE 040564 040565 040566 040567 040570 040571 040572 040573 83883883 N 1 QO e RPOTM DPRQS: .BYTE .BYTE .BYTE .BYTE .BYTE .BYTE .BYTE .BYTE O O O O O O O O sORIVE tORIVE ;DRIVE ;sORIVE sORIVE sORIVE ;:ORIVE ;:ORIVE s TRANSFER WAIT FLAG (TRNSWT=1 WORD) s THIS IS A ONE WORD QUEUE. IT ;1 "0PB” OF 040574 000000 TRNSWT: .WORD O 1 2 3 4 5 6 7 WILL CONTAIN THE THE 1/0 OPERATION, ADDRESS OF . . O :SEARCH WAIT KEYS (SRCHWT=1 WORD) sTHIS IS A ONE WORD QUEUE THAT WILL CONTAIN A KEY FOR EACH OF ;:THE DRIVES THAT ARE PERFORMING A SEARCH COMMAND FOR THE I/0 sREQUEST THAT IS AT THE TOP OF THEIR REQUEST QUEUE. :EACH DRIVE IS ASSIGNED ONE BIT, STARTING AT BITOO FOR DRIVE O. 040576 SRCHWT: .WORD O sRPO7 DRIVER ACTIVE FLAG (ACTDRV=1 BYTE) sACTORV=0 IF DRIVER IS INACTIVE sACTDRV>0 IF DRIVER IS ACTIVE 040600 ACTORV: .BYTE O sSOFTWARE TIMER ROUTINE ACTIVE FLAG (ACTSTR=1 BYTE) $ACTSTR=0 IF SOFTWARE TIMER ROUTINE IS INACTIVE $ACTSTR>0 IF SOF TWARE TIMER ROUTINE IS ACTIVE 040601 000 ACTSTR: .BYTE O CIRUDBO RPOTM PERF DEC 83 10:%.°:28 PAGLF $SAVE Dl 100 5EQ 0197 REGISTERS FLAG (SAVEFG-1 $SAVEFG <0 IF SAVE WORD) THE RHXX/RPO7 REGISTERS WHEN stOPERATION IS COMPLETED AS PER (DPB.14). sSAVEFG=0 IF SAVE THE RHXX/RPO7 REGISTERS, :(DPB-14), 040602 SAVEFG: . WORD AFTER tSEEKFG=0 IF WHEN THE DISK ADDRESS ISN'T A DATA TRANSFER :SEEKFG<O I+ DATA START A SEARCH TRANSFER WILL :DISREGARD THE WINDOW 040604 177277 SEEKFG: : TIMEOUT .WORD TABLE 040622 040624 TIMER: 177777 177777 177777 177777 ;:DATA 040626 . WORD . WORD . WORD .WORD . WORD . WORD .WORD . WORD 177777 (TIMER=8 WORDS) :DRIVE ;DRIVE sDRIVE s+DRIVE sORIVE -1 -1 -1 -1 -1 -1 -1 -1 sORIVE ;:ORIVE ;:DRIVE TRANSFER UNDERWAY DITud: IMPLIED SEEKS, TIME ALLOWED FOR AN OPERATION NN B WO 040612 040614 040616 040620 177777 177777 177777 177777 DO IN THE WINDOW COMMAND -1 : THIS TABLE CONTAINS THE 040606 040610 AS PER 0 :SEEK FLAG (SEEKFG=1 WORD) :FOR THE AN ERROR. INDICATOR (DTUM=1 WORD) 1OTUM<O IF NO DATA TRANSFER UNDERWAY sOTUM=eN (WHERE N=0 TO 7) IMPLIES DATA TRANSFER UNDERWAY .WORD sATTENTION BITS -1 TABLE (ATABIT=8 BYTES) ; THIS TABLE CONTAINS THE CORRESPONDING BIT TO EACH DRIVES sATTENTION BIT 040630 040631 040632 040633 040634 040635 040636 040637 ATABIT: .BYTE .BYTE .BYTE .BYTE .BYTE .BYTE .BYTE .BYTE 1 2 4 10 20 40 100 200 ;ORIVE :DRIVE sORIVE sORIVE tORIVE ;ORIVE sDRIVE ;:ORIVE ~NOUNDBWN-O O 17 NP in?, e RPCTM DRIVER FXER MACRD vO4.00 1 ON DRIVE N CIRUOBO RPOTM PERF ¢+ xER MACRD V04,00 RPO7T DRIMVER 1 sRPVEC 040640 176700 S 040642 000254 © 040646 000050 8 iC 040650 i1 lg 1 14 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 000240 (THE VECTOR 5€Q 0198 000001 ADORESS ADDRESS (776700) OF (254)), AND RPVEC.2 THE RHXX/RPO7), (THE LEVEL .WORD 176700 tRHXX/RPO7 RPVEC: .WORD 254,532, ;sVECTOR ADDRESS & BR LEVEL 5 RHEXT: .WORD 50 MXWNOW: .WORD ;OEFINITIONS OF IS 1 ;OFFSET CONTROL BR RPADR: {SEARCH DIFFERENCE 9 15 16 17 18 19 20 10} :STORAGE FOR RPADR (THE FIRST € 4 1 DEC 83 10:32:°8 PAGF STATUS (S)). REGISTER TO RPBAE SECTOR 1 THE RHXX/RPO7 ADDRESS INODEXES 000000 000002 000004 000006 000010 000012 000014 000016 000020 000022 000024 000026 000030 000032 000034 RPCS1 RPWC RPBA RPDA RPCS2 RPOS RPER1 RPAS RPLA RPDB RPMR1 RPOT RPSN RPOF RPDC = = = * = = = = s = = = = = = 0 2 4 6 10 12 14 16 20 22 24 26 30 32 34 :CONTROL AND STATUS REGISTER 01 (DRIVE REG. 00) ;WORD COUNT REGISTER (NOT A DRIVE REG) sUNIBUS ADDRESS REGISTER (NOT A DRIVE REG) sOESIRED SECTOR/TRACK ADORESS REGISTER (DRIVE REG. 05) +CONTROL AND STATUS REGISTER 02 (NOT A DRIVE REG) :ORIVE STATUS REGISTER (DRIVE REG 01) $ERROR REGISTER 01 (DRIVE REG. 02) sATTENTION SUMMARY PSEUDO REGISTER (DRIVE REG. 04) +LNOK AMEAD REGISTER (DRIVE REG. 07) :DATA BUFFER REGISTER (NOT A DRIVE REG.) sMAINTAINABILITY REGISTER (DRIVE REG. 03) ;:ORIVE TYPE RFGISTER (DRIVE REG. 06) : SERIAL NUMBER REGISTER (DRIVE REG. 10) sOFFSET REGISTER (DRIVE REG. 11) sOESIRED CYLINDER ADDRESS REGISTER (DRIVE REG. 12) 000040 000042 000044 000046 000050 000052 RPER2 RPER3 RPEC1 RPEC2 RPBAE RPCS3 = = s = = = 40 42 44 46 50 52 tERROR REGISTER @2 :ERROR REGISTER #2 (DRIVE REG. 1S) +ECC POSITION REGISTER (DRIVE REG. :ECC PATTERN REGISTER (DRIVE REG. ;1BUS ADDRESS EXTENTION REGISTER ;CONTROL AND STATUS REGISTER o3 000036 RPCC » 36 ;:OUMMY ADDRESS REGISTER (DRIVE REG. 13) 16) 17) 102 N Stul)ee 5EGQ 0199 sRHXX/RPO7 DRIVER INITIALIZATION CODE s THIS ROUTINE WILL DETERMINE WHICH RPO7 DRIVES ARE {AVATLABLE FOR TESTING AND SET THE DRVSTA INDICATOR ;70 THE PROPER STATE FOR EACH DRIVE. OB 4O CIRU0BO RPOTM PERF £ XER MACRDO vO4.00 1 DEC 83 10:32:28 PAGF RPO~ DRIVER 3 sNOTE: THIS ROUTINE CALLS DRVINT JSR PC.RPINIT ;s CALL : 040652 040654 040660 040672 040676 040702 040704 040706 104412 013746 012737 004737 012701 012702 005021 020102 H RE TURN sNOTE: THE : RPINIT: 177776 000240 046052 040424 040604 177776 012702 012721 020102 101774 040626 177777 040724 040730 040734 040740 040744 040750 040754 040760 040764 040772 040774 041000 041002 005037 005037 005037 005037 013703 012723 013713 013704 012764 005001 004037 000401 000402 040534 040536 040540 040542 040642 041004 041010 041012 041016 041020 041024 041026 105061 005201 042701 001366 012637 104413 000207 040534 043254 040644 040640 000040 041030 SAVREG MOV MOV 1¢: es: 1+FIRST ADDRESS TO BE CLEARED sLAST ADDRESS TO BE CLEARED cMP R1,R2 sARE 8LO 1 :BRANCH IF NO MOV o0TUM,R2 ;LAST CLR 177770 177776 PC.,.CLRQUE (R1). :CLEAR WE DONE? ADDRESS @-1,(R1) R1,R2 24 sINITIALIZE ;DONE ? ;LOOP IF NO CLR CLR CLR CLR DRVSTA DRVSTA.2 DRVSTA.4 ORVSTA+6 sSET ALL DRIVES MOV RPADR,.R4 ;FIRST ADDRESS OF RHXX/RPO7 R1 RO,DRVINT sSTART WITH DRIVE O s INIT THE DRIVE St s NORMAL RETURN CLR JSR RPVEC,R3 OISR,(R3). RPVEC+2,(R3) OBITOS,RPCS2(RA) ;SETUP TO OFFLINE THE RMXX/RPO7 VECTOR ;MASSBUS INIT BR 44 CLRB INC DRVSTA(R1) R1 iSET DRIVE STATUS ;GO TO NEXT DRIVE RESREG RTS PC :RESTORE RO :BYE-BYE 8IC BNE MOV otC7,R1 3 (SP).,80PS STATuUS ;CLEAR ALL REQUEST QUEUES MOV cHP 8LOS BR 4 S¢: CLOCK MUST BE STARTED ORPSTUO,R1 OSEEKFG,R2 MOV MOV MOV 3s: ‘L’ :SAVE RO - RS ;:SAVE THE PRESENT PROCESSOR :CHANGE THE PRICRITY TO S MOV MOV MOV 000010 OR 80PS, -(SP) 2<5432 > ,80PS JSR 10377 040710 040714 040720 040722 ‘P’ :'OVA’ NOT SET OR PARITY ERROR TO OFFLINE $MASK OUT UNUSED BITS 1BR IF MORE DRIVES TO0 GO sRESTORE THE PROCESSOR STATUS - RS (y [t CIRIOBRO RP(TM PERF ¢ XER MACRDO vO4.00 1 DEC 83 10:32:28 PAGF MNP0~ DRIVER 5£Q 0200 103 4P A Bnl, e +ORIVE INITILIZATION ROUTINE : THIS ROUTINE Ot TERMINES IF A DRIVE EXIST AND IF IT IS tAN RPO7, IF IT IS5, A “READ IN PRESET" IS ISSUED AND FMT22 ;IS SET T0 A 1", THEN MOL, DOPR, DRY, AND VvV ARE CHECKED TO sINSURE THEY ARE ALL ON A 1", AND DEPENDING ON THEIR STATE, ;:DRVSTA IS SET TO THE PROPER CONDITION. MOV MCV JSR RE TURN1 RETURNZ RPADR,R4 ODRVNUM R1 RO,CRVINT sUNIBUS ADDRESS OF RHXX/RPO7 (RPCS1) ;ORIVE NUMBER ;CALLED BY A JSR ;ERROR OCCURRED (PARITY) ;NORPAL RETURN s @0 @ ®¢ s e ®¢ @0 N=O 00 :CALL 041030 041032 041040 041042 041050 010546 112761 006301 012761 006201 041052 041C56 041062 105061 105061 010164 112764 032764 001403 004737 000513 040534 040544 000010 000111 010000 105061 032764 001004 105761 001347 000501 040534 004000 045116 041156 041162 041164 041170 041172 041200 041204 041206 041212 041214 041222 004037 000026 041342 012605 112761 022705 001420 022705 001415 112761 022705 001407 222705 001404 112761 000446 041224 041230 041234 041236 012746 004037 000000 041342 000121 045210 041066 041074 041102 041104 041110 041112 041116 041124 041126 041152 041134 041136 041142 041144 041146 041150 1777.7 040554 023420 040606 DRVINT: ASR 1s: 24 PC,SET.IE 6$ 2%: 3s: 924042 ,RS 44 0-1,0RVTYP(R1) N ~ 44 : ;NONEXISTENT ORIVE? :NO - - -BRANCH :1GO SET “IE” WITHOUT A “TRE" ;LEAVE THIS ROUTINE ;:READ THE DRIVE TYPE REG. 4as 040544 ;CLEAR THE DRIVE TYPE INDICATOR $SELECT A DRIVE ;00 A DRIVE CLEAR COMMAND (& SEIZE DRIVE) RO,RD.RP 04 ,DRVTYP(R1) 920042 ,RS 024042 ;START DRIVE STATUS AS OFFLINE ;OTHERWISE EXIT 41 #24040,RS 44 040544 SECOND TIMER 63 0S,0RVTYP(R1) €20040,RS 040544 INITIALIZE FLAG DRVSTA(R1) 3SET DRIVE STATUS TO OFFLINE #B8IT11,RPCS1(R4) ;SEE IF DRIVE AVAILABLE 34 ;BRANCH IF DVA SET SOF TWARE TIMEOUT ON DUAL PORT OPINT(R1) 13 ; 3RANCH IF NOT (sP)+ ,RS 024040 177777 DRVSTA(R1) DRVTYP(R1) 98IT12,RPCS2(R4) 000010 040554 000004 020042 CLRB :SAVE RS ¢-1,DPINT(R]) ;SET THE DUAL PORT R1 €10000 , TIMER(R1) . sSTART 10. R1 ;ORIVE ADDRESS R1,RPCS2(R4) 0111 ,RPCS1(R4) 045506 000005 020040 MOV MOve ASL MOV 9121, -(SP) RO,WRT.RP sERROR RETURN ADDRESS +PUT DRIVE TYPE IN RS $1SET RPO7 INDICATOR $SINGLE PORT RPO7 1BR IF YES ;DUAL PORT RPO7 1BR IF YES 1SET RPO7+ INDICATOR 1SINGLE PORT RPO7. $BRANCH IF SO 1DUAL PORT RPO7. $BRANCH IF SO 1SET INDICATOR TO ‘OTHER’ 1EXIT ;D0 A "READ-IN PRESET" INITIALIZE ? H16 SRJOBRO RPOTM PERF RPO” DRIVER 58 041240 59 041244 ¢C 041250 6} 041252 P 041254 63 041260 64 041262 65 041264 66 041266 67 041270 o8 041276 69 041302 70 041304 71 041306 72 041310 73 041312 74 041320 75 76 17 78 79 80 81 82 a3 84 85 86 87 041322 041324 041330 041332 041340 04134 041342 041344 041352 041354 041360 041362 EXER MACRD vO4.00 012746 004037 000032 041342 004037 000012 041342 012605 100015 116164 004037 000014 041342 006126 100004 112761 000407 005105 042705 001003 112761 005720 006301 012761 006201 105061 012605 000200 1 OEC 83 010000 045210 177777 1777177 040554 1 JSR RO,RD.RP ;READ RPDS -3 MOV 8FL MOV8 (SP)+,RS 5% :AND SAVE IT IN RS ;BRANCH IF ATA=0 MOVB (SP)e S @ 1,DRVSTA(R1) 64 ;IS IT UNSAFE? ;B8R IF NOY ;SET UNSAFE sEXIT INDICATOR COM 8IC BNE MOve TST RS ;CHECK MOL, DPR, 64 €1 ,0RVSTA(R1) ;BRANCH IF MOL. DPR, DRY, OR ;SET DRIVE STATUS TO ONLINE (RO)- :STEP OVER THE ERROR RETURN ASL MOV ASR R1 ; WORD R1 OPINT(R1) (SP)+,R5 RO ;ORIVE ADDRESS RPOF 83 RPDS 000016 JSR RPER] 8 ROL 8PL 040534 B8R Ss: 040524 040606 64: 7%: 8s: 5£Q 0201 sSET FMT16-1 JOR 167077 000001 103 oBIT12, (SP) RO,WRT RP MOV 045116 040630 045116 10-22:28 PAGF CLRB MOV RTS ATABIT(R1),RPAS(R4) ;CLEAR ATTENTION BIT RC,RD.RP ;FIND OUT WHY ATA=] etCRIT12!BITO8!BITO7!BITO6>,R5 @-1, TIMER(RL1) INDEX :STOP THE CLOCK ;RESTORE RS sEXIT DRY, AND VvV vV IS CLEAR I Lt CIRUOBC RPOT PERF EXER MACRD vO4.00 1 OEC 83 10:32:28 PAGE o gt oo gt W= OODR 0 ND af, e RPO0° DRIVER 104 SEQ G202 sREQUEST PRE PROCESSOR HANDLES SUBSYSTEM REQUEST ' sCALL 3 JSR RO,RPO7 PNTADR RETURN] RETURNZ 041364 041370 041376 041404 041406 041410 041414 041416 041422 041426 041430 041434 041436 041442 041444 041450 041452 041456 041462 041464 041470 013746 013737 112737 104412 011002 005062 111201 013704 177776 040644 000001 177776 RPOT: MOV MOV MOvB SAVREG MOV CLR 040600 000016 ;CALL THE RPO7 DRIVER ;sADDRESS OF POINTER OF DRIVES PARAMETER B8LOCK ;RETURN HERE sRETURN HERE IF IF QUEUE IS FULL REQUEST IS IN QUEUE :IS AN ERROR CONDITION 3PS, -(SP) RPVEC.2,a0PS 01 ,ACTDRY (RO),R2 16(R2) (R2),R1 sSAVE THE CALLING STATUS ;SAVE RO - RS ;PICKUP THE DRIVE PARAMETER BLOCK POINTER ;:CLEAR THE STATUS/ERROR INDICATOR ;PICKUP THE DRIVE NUMBER 040640 040534 RPADR,R4 DRVSTA(R1) sCHECK DRIVES STATUS 004037 000421 041030 JSR RO,DRVINT ;GO 105761 003435 105761 001016 040534 BGY B8R TST8 040564 010164 004037 000450 646150 105761 040524 1¢: 2s: BLE 7578 )§ 3 tUNIBUS ADDRESS OF RPCS1 ;BRANCH IF ONLINE INIT. THE DRIVE :ERROR RETURN ORVSTA(R1) Ss DPRQS(RY) ;IS DRIVE STATUS ONLINE? :BR IF NOT sCJTSTANDING PORT REQUEST FOR THE DRIVE R1,RPCS2(R4) $1SELECT BNE MOV JSR BR 43 7578 BNE JSR BR ORVACT(R1) ;IS THIS DRIVE ACTIVE? gE.OPT ;CALL THE OPTIMIZEPR RO,DRVQUE 8s :1BR IF YES THE DRIVE sPUT THIS REQUEST IN QUEUE ;QUEVE IS FULL 041472 041476 001042 004737 000437 041500 041504 004737 0004 34 042750 3s: JSR BR gE.CI7 :GO HANDLE THE PARITY ERROR 041506 041512 004037 0004 34 046150C a8 : JSR B8R RO,DRVQUE ;PUT 8¢ sQUEVE 041514 041522 041526 041530 041534 012764 032714 001023 004737 000420 000000 000100 MOV 8IT BNE JSR €0 ,RPCC(R4) 081T06,(R4) tWRITE THE CURRENT CYL REG :+IE BIT SET ? 041536 041542 041544 041552 041556 041560 041566 105761 002412 012762 105761 001007 012762 000403 040534 041570 012762 041622 000036 045506 BR St: 140000 040544 000016 100002 000016 110000 000016 7% 6%: ;:BR IF YES REQUEST IN QUEUE IS FULL 7¢ PC,SET.IE 7 s YES sSET THE tRETURN ORVSTA(R1) 1SEE IF DRIVE OFFLINE OR UNSAFE INTERRUPT 6 1BR IF UNSAFE ®BIT15!'BIT14,16(R2) ;SET OFFLINE ERROR INDICATOR ORVTYP(R1) THERE sDON'T ALLOW ANY RPO7 INTERRUPTS ;SET "ACTIVE DRIVER" FLAG MOVB MOV 1578 105761 003006 OR $SEE IF OFFLINE OR NONEXISTENT 7$ 3 B8R IF OFFLINE 7 1GO TO EXIT OBIT15!BIT01,16(R2) ;REPORT DRIVE NONEXISTENT #BIT15!8IT12,16(R2) ;DRIVE IS UNSAFE ? Jlo CIRU0BO AP0 PERF FXER MACRD vO4 .00 1 OEC B8R 10:32:°8 PAGF RPOT DRIVER 61 041576 62 041600 ct 041602 64 €S 041604 66 041606 67 041610 68 o41614 69 041620 104413 005720 000401 78 104413 8s: 9: 005720 105037 012637 000200 RF SREG 187 B8R 040600 17777 RESREG 1S7 CLRS MOV RTS 5€Q 0203 104 ] (RO). 94 (RO). AC TORV (GP). ,80PS RO ;RESTORE RO RS ;SETUP FOR NORMAL RETURN tFINISH UP, THEN EXIT $tRESTORE RO sCORRECT - RS THE RETURN ADDRESS s+CLEAR “ACTIVE DRIVER" FLAG sRETURN ;RETURN “PS” TO USER TO CALLER LEVEL CIRIUOBO RPOT PELRF OO R NS ah)r RPO~ DFIVER EXER MACRO vO4.00 1-DEC 83 10:32:28 PAGF K16 105 5EQ 0204 sOPTIMIZER CALLED FOR A PARTICULAR DRIVE : sCALL H H 3 041622 041624 041630 041636 041642 041646 041650 041652 041656 041664 041672 041674 041700 041702 041706 041714 041720 041722 041730 041732 041740 041742 041750 041752 041756 104412 013746 146137 105061 004737 005702 001475 010164 012764 032764 001446 105761 003014 004737 012762 105761 [ 177776 040630 040564 oPT: 040576 046224 000010 000111 004000 040534 1¢: 046246 140000 040534 000016 012762 000452 110000 000016 122762 000150 000002 000135 000002 100056 002407 122762 001403 004737 000437 042372 041769 041764 041766 041772 041774 042000 005737 002006 005737 100003 004737 000426 040626 042002 042006 2%: 3s: 040604 042066 48 004737 000423 042260 Ss$: 042010 042016 042020 042022 042030 042036 112761 010103 006303 012763 012764 000402 177777 040564 035230 000000 040606 000036 042040 004737 032714 001002 004737 012637 104413 042044 042050 042052 042056 042062 042750 000100 6$: JSR SAVREG MOV 8IC8 CLRB JSR IST 8EQ MOV MOV 8IT 8€EQ TST8 8GT JSR MOV 9s¢: PC.OPT 86PS, (SP) s+ADDRESS OF DRIVE PARAMETER BLOCK ;ORIVE NUMBER ;SETUP A COMMAND :SAVE RO - RS $ SAVE PROC. ATABIT(R1),SRCHWT OPRQS(R1) PC.GETREQ R2 8¢ R1,RPCS2(R4) €111,RPCS1(R4) #8IT11,RPCS1(R4) :GET “DPB” POINTER OF REQUEST + IS THERE A REQUEST IN QUEUE? iNO--BRANCH TO EXIT 1LOAD THE DRIVE ADDRESS ;CLEAR THE DRIVE sDOVA SET :70 PROT 28 s YES - -BRANCH PC.POPWLUE SEARCH FLAG sRESET THE PORT REQ@ FLAG 64 DRVSTA(RL) STATUS 1CLEAR REQUEST sIS DRIVE ONLINE? ? ,IF NOT sNO- -REMOVE REQUEST FROM QUEUE 7578 8PL MOV B8R cMPB8 eLY cMPB BEQ JSR BR 0150,2(R2) 33 #135,2(R2) 34 PC.CI4 9s : IS THE REQUEST FOR I/0? : YES- BRANCH :IS IT A DIAGNOSTIC COMMAND ;sBRANCH IF SO ;CALL THE COMMAND INITIATOR ;BRANCH TO EXIT TST 8GE 1ST 8PL JSR BR 0T St SEEKFG S$ sOATA TRANSFER UNDERWAY? t1BR IF YES :00 IMPLIED SEEKS ? +NO, DO SEARCH JSR BR PC.CI3 94 tSTART A SEARCH ON TARGET :1GO TO THE EXIT MOVB @-1,0PRAS(R1) $SET PORT REQUEST INDICATOR R1,R3 :SET UP TO ADDRESS WORDS R3 sCONVERT TO WORD INDEX 015000.,TIMER(R3) ;START 1S5. SECOND TIMER MOV MOV B8R 7%: 8%: o0PB ,R2 SDRVNUM,R1 OBIT15!BIT14,16(R2) ;SET OFFLINE STATUS/ERROR INDICATOR DRVSTA(R1) : IS DRIVE UNSAFE ? 93 ;B8R TO EXIT IF NOT #BIT1S!BIT12,16(R2) ;SET UNSAFE STATUS/ERROR INDICATOR 9s sBRANCH TO EXIT ASL MOV 045506 177776 MoV MOV JSR 8IT BNE JSR MOV RESREG SS.CIl sSTART A DATA TRANSFER ©0,.RPCC(R4) $SET PORT REQUEST PC,CI? $PROCESS THE PARITY ERROR 9 ;B8R 8s oB8IT06,(R4) PC,SET.IE (SP)+,80PS ? $EXIT +SEE IF 'IE' IF ALREADY SET SET $SET "IE” WITHOUT A "TRE" s+RESTORE PROC. STATUS +RESTORE RO - RS SECTOR -1 CIRJ0BO APO7 PERF EXER MACRD vOe.00 1 OEC 83 10:32:28 PAGF PO DRIVER S8 042064 00020° RTS PC 105 1 .16 5EQ@ 0205 Mlo CTRUOBC RPQ7 PERF EXER MACRO vO4.00 1 DEC 83 10:32:28 PAGF DRIVER 5EQ 0206 : sCALL : 3 : MOV MOV JSR o0PB ,R2 0ORVNUM,R1 PC.CI?222? : 042066 042072 042076 004737 010237 010203 013704 16 17 18 19 20 21 22 23 24 042104 042110 042116 042120 042124 042130 042134 042136 042140 010164 26 27 28 29 30 31 32 33 34 35 36 37 042142 042146 042152 042154 042156 042160 042164 042166 042170 042172 042176 042200 062703 062704 012324 012324 012346 004037 ~00006 »42750 012346 004037 000034 042750 004737 44 042202 042206 042212 042216 042220 122762 001011 016246 052716 004037 000024 042750 000422 CIl: 046246 040574 040640 000010 000135 000002 JSR R2 ., TRNSWT MOV MOV MO R2.R3 RPADR,R4 R1,RPCS2(R4Y) MOV 8IS JSR RPMR1 CI 8R 1$: 000002 PC .POPQUE MOV oy o] BNE 100000 045210 ADD #4 ,R3 “MOV (R3)+,(R4). (R3)+,(R4). 045210 045210 CI1?7 MOV JSR (R3)+,-(5SP) . RP RO,WRT 042232 JSR 50 042222 S1 042226 53 54 35 56 57 S8 S9 042232 042240 042242 042246 042252 042254 042256 026262 002406 012746 004037 000024 042750 000207 000012 61 042260 62 042264 63 042270 013704 010164 016246 040640 000010 000012 RPDC CIv 2%: MOV CIe: 100000 045210 CI3: :DESIRED WORD COUNT ;RPWC ADDRESS :+LOAD WORD COUNT ;LOAD BUFFER ADDRESS :LOAD SECTOR AND TRACK ;:CALL THE LOAD(WRITE) ROUTINE : INDEX OF REGISTER TO LOAD ;ERROR RETURN ADDRESS :LOAD CYLINDER ADDRESS PC.CI2 ;SEE IF BIT1S5 SHOULD BE SET IN RPMR1 2(R2), -(SP) :LOAD MOV R1,0TUM ;SET 12(R2),FEL1(R2) ;DATA XFER TO FE CYLINDERS ? ;BR IF NO :SET THE DIAGNOSTIC MODOE BIT ;WRITE THE RPMR1 REG cMpP CIS BLT MOV JSR 1s #B8IT15, -(SP) RO.WRT.RP CI? RTS PC MOV MOV MOV RPADR.R4 R1,RPCS2(R4) 12(R2), -(SP) RPMR1 14: ADDRESS RO,WRT RP JMP 000156 :RPCS1 JSR RPCS1 c17 040626 042712 QUEUE ;OPB ADDRESS TO R3 ;LOAD THE COMMAND AND EXIT 92 .R4 RPDA ;REMOVE REQUEST FROM "DRIVES WAIT” ;:PUT REQ. IN TRANSFER WAIT QUEUE 2% ADD MOV CI1 = DATA TRANSFER CI3 = SEARCH REQUESTED BY DATA XFER CI4 = NO DATA TRANSFER 4(R2),-{SP) B8IT15,(SP) RP RO.WRT (R3)s,-(SP) RO, WRT .RP 000002 045210 s WHERE : : SELECT DRIVE :+IS IT A DIAGNOSTIC COMMAND ? $1BRANCH IF NOT ;GET THE ROUTINE NUMBER, PARAMETERS :SET THE DIAGNOSTIC MODE BIT :WRITE THE RPMR1 REG ©135,2(R2) 1$ MOV JSR 016246 004037 000000 042750 010137 000137 s ADDRESS OF DRIVE PARAMETER BLOCK ;DRIVE NUMBER ;CI?222?2 = CI1, CI3, OR CIA4 : ;: i H 15 042100 46 47 48 49 106 s COMMAND INITIATOR I NDal,re < o o - [ [ X7 1,V = COB RPO7T 'COMMAND+GO", "A17EA16", “DATA TRANSFER UNDERWAY" +RPCS1 ADDRESS :SELECT DRIVE :DESIRED CYLINDER ADDRESS AND "PSEL" Bl JRUOBC RPQOT PERF RPOTM EXER MACRO vO4.0C 1-0EC 8X 10:3.2:0°8 PAGEF "06 ~“€Q 0207 1 DRIVER 04521¢C 042304 004037 000034 (42750 004737 69 042310 70 042314 Tl 042320 e 042322 73 042326 74 042330 75 042336 76 042342 77 042344 11620 163703 002002 062703 010346 116266 004037 000006 04,750 0v0010 04065C 012746 004037 000000 042750 156137 000550 000131 045210 013704 010164 116203 122703 001007 040640 000010 000002 000131 o4 04227* 65 042300 vt 042302 6 6. 78 79 042346 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 9% 042352 042356 042360 042362 042370 042372 042376 042402 042406 042412 042414 042420 042424 042426 042430 97 042432 98 042435 99 042440 100 042444 101 042450 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 016246 004037 000006 042750 000403 JoR c1’ JSR 04223¢ MOvB 000002 000011 045210 040630 000901 1¢: 040576 CIa. tPICKUF SECTOR ADDREST 1 ¢50. ,R3 ;BR RO,WRT RP MOV JSR 2131, (SP) RO,WRT RO C17 8Is8 BR ATABIT(R1),SRCt T CIS S1(R2.,1(SP) IF B1T1S SHOAD BE 1BACKUP BY MAX. JSR ¥ °DA (o &4 ADD MOV MOove MOV MOV MOV 000010 045210 000012 045210 2%: 042452 042454 042460 IF >= Q SET IN RPM 1 SERRCH FOR I/0 WINDOW s ADD MAXIMUM SCCTOR COUNT BArK ;1COMBTMNE THE ADJLSTED SE”TOR WITH ; THE DESIRED TRACK ;LOAD DESIRED TRACK & SECTOR ;START A SEARCH 042462 042466 042470 042474 042476 042500 042504 042510 042512 042514 122703 001013 004037 000032 042750 116216 004037 000032 042/50 000507 000115 122703 000107 3s: R1,RPCS2(R4) 2(R2),R3 0131,R3 18 10(R2), -(SP) ADDRESS ; SELECT DRIVE :PICKUP THE REQUESTED COMMAND ;IS IT A SFARCH COMMAND? sBRANCH IF NO ;LOAD DESIRED TRACK & SECTOR 28 :GO LOAD CYLINDER cMP8 BNE MOV JSR RPDC #105,R3 3% ;IS IT A SEEK COMMAND cHP8 BNE 12(R2), -(SP) RO,WRT ,RP CI? ;BRANCH IF NO ;LOAD DESIRED CYLINDER PC,.CI2 ;SEE IF BIT1S SHOWD BE SET IN RPMR1 9115,R3 RO,RD.RP ;IS IT AN "OFFSET” COMMAND ? ;B8R IF NO iMERGE THE OFFSET VALUE INTO RPOF CIé 48 RPOF 000001 045210 ;RPCS1 "SEARCH 4AIT" KEY RO,WRT RP JSR 045116 R4 RPADR, $SET JSR RPDA CI7 B8R CI? JSR BR 042232 000117 10(R2),R3 MXWNDW,R3 c“PB BNE 1%: 001504 122703 001501 1SEE SUB uGE MOVB 000105 118 042522 119 042524 120 042530 ”C.CIe2 RPCS1 122703 001011 016246 004037 000034 042750 004737 000525 117 042516 RO, WR" .RP R’PDC 1BUT DON'T CHANGE THE UPPER MOV8 JSR RO,WRT.RP 1(R2),(SP) ;BYTE WHEN LOADING THE CI? B8R CIé 1GO START THE COMMAND tREGISTER (RPOF) RPOF 4% cMP8 8EQ cMPB 8EQ 0107,R3 +IS IT A "RECALIBRATE" COMMAND? Clé 1BRANCH IF YES CcIé6 :BRANCH IF YES 0117,R3 ;IS IT A RETURN TO CENTER? CZRUORO RP(QT PERF EXER MACRO vO04.00 1 DEC 83 10:32: SR PAGE RPOTM DRIVER 121 042532 l1ee 042536 123 042540 124 042544 125 042546 126 042550 127 042556 128 042562 129 042564 130 04256¢ 131 132 042570 133 042574 134 042576 135 136 042602 137 042610 138 042614 139 042620 140 042622 141 042624 142 143 144 145 146 147 148 042626 042632 042634 042642 122703 001014 00403 000032 042750 116266 004037 000032 042750 000436 000143 000001 045210 000141 116237 116205 004037 000010 000011 045116 042712 042714 042722 042724 042732 006301 012761 006201 042734 042736 042742 042744 042746 010346 004037 000000 042750 000761 042750 042752 174 042754 .75 042756 176 177 042764 005702 001001 000207 012762 104000 012746 000111 100002 004737 000207 112761 000207 6%: RO,RD.RP 1(R2),1(SP) MOvB JSR RO,WRT . RP CI17? 8R 12% cMPe BNE MOV MOV 042620 8s: 9s: MOve JSR 042620 10¢: 11¢: cIz $IS IT A "SET FORMAT' 1BRANCH IF NO tREAD THE OFFSET COMMAND? REGISTER tCOMBINE FMT16", ECI"”, 000016 045342 13¢: 023420 040606 000001 040524 CIS: Clé6: 045210 104 6(R2),R3 AND 10(R2),9% 11(R2),RS RO,RD.RP (SP)+ ,(R3). $IS IT A "GET REGISTER' ;BRANCH IF NO TMCI s 70 PUT THE REGISTER(S) sINIT. THE INOEX FOR THE FIRST REG. :INDEX OF LAST REG. TO MOVE $READ RMXX/RPO7 REGISTER TO READ 1 INDEX OF REG. ;GET THE CONTENTS OF RMXX//RPO7 REG. 94 .RS 12% :LAST REG. BEEN READ? sGET QUT IF YES B8R 8s ;LOOP - -MORE ADD 02,93 cMPB BEQ MOV JSR 0145,,% CI17? JSR 8IS TST BPL JSR RTS ASL MOV ASR 12¢ COMMAND? sPOINTS TO 1ST ADORESS OF WHERE CMP BEQ RPCS1 12¢: 0141 ,R3 RPCS1 MOV 045210 046246 000200 040602 01435, ,RS 63 5FQ 0208 RPOF 000145 122703 001405 010346 004037 000000 042750 004737 052762 005737 CI17 000001 042620 042644 042650 042652 042654 042660 042662 042664 042670 042676 042702 042704 042710 ClL RPOF 7¢: 000002 cMPB BNt JSR 045116 122703 001023 016203 000000 042750 012623 023705 001414 062737 000764 S5s: 106 2 ; INCREASE THE INDEX BY 2 TO READ ;IS IT A "SELECT DRIVE' 1BRANCH IF VYES COMMAND? R3, (SP) RO, WRT RP ;LOAD THE COMMAND PC.POPQUE sREMOVE REQ. SAVEFG 13$ 1 SAVE RMHXX/RPO7 REGISTERS ;B8R IF NO FROM QUEUE 08I1T707,16(R2) iSET THE ~“DONE” BIT PC . SVRHXX PC 1 YES--GO SAVE THE REGISTERS tRETURN R1 €10000., TIMER(RL) R1 ? TO USER :1START 10. SECOND TIMER MOVB RTS 01 ,DRVACT(R1) PC 1SET THE DRIVE ACTIVE MOV JSR R3, -(SP) RO,WRT.RP :LOAD THE COMMAND Cl7? BR CIS TST R RTS PC ;1OTHERWISE EXIT 100 A “DRIVE CLEAR" ;RETURN TO THE USER RPCS1 CI7: 000016 BNE 13 tANYTHING IN QUEUE ? ;BRANCH IF QUEUE IS THERE 1¢: MOV oBIT1S5!BIT11,16( R2) Cc178: MOV 111, -(SP) $SET "PARITY” ERROR INDICATOR CZRJUOBO RPO7 PERF EXER MACRO vO4.00 1 RPOTM DRIVER 178 042770 179 042774 180 042776 181 043000 182 043004 i83 043010 184 043014 185 043020 186 043022 187 043026 188 043034 189 190 043036 191 043040 192 043042 193 043044 194 043050 195 043052 196 043056 197 043060 198 043064 199 043070 043072 043076 043100 043102 043110 043112 043120 104412 005001 005003 105761 001003 105761 001443 013702 020137 001402 004737 005702 001413 032764 001404 012762 000403 043122 043130 004037 000000 043036 004737 105061 105061 020237 001005 005037 012737 000207 83 045210 10:32:28 PAGF JSR 106 3 2£Q 0209 RO,WRT .RP RPCS1 046130 040564 040524 040574 040574 177777 040626 040524 1%: 18: 040564 040574 040626 2s: 046224 3s: 000010 100002 000016 012762 012763 102000 177777 000016 040606 043136 043142 043146 043152 043154 043162 043166 043170 043174 043200 043202 043210 043214 043220 043226 105061 105061 020137 001005 012737 005037 005201 062703 042701 001321 012737 005037 004737 012764 000406 040524 040564 040626 043230 043234 043240 043244 043250 235 043252 004737 105061 105061 004737 104413 046130 177777 040574 046052 000040 040534 040544 045506 4%: S¢: 040626 1EMPTY iCLEAR sORIVE BNE 1 : IN PROGRESS CLEAR ALL OF MOV RTS SAVREG CLR CLR 1578 BNE 1578 8EQ MOV 8s: 0-1,0TUM PC R1 R3 DRVACT(R1) 2t DPRQS(R1) 63 TRNSWT ,R2 iSAVE RO - RS 0BIT15!BIT10,16(R2) ;SET "NON-CLEARABLE PARITY” ERROR @-1,TIMER(RS) ;STOP THE TIMER CLRB CLRB o, o BNE ORVACT(R1) OPRQS(R1) R1,OTUM 6t 1SET “DRIVE ACTIVE” YO IDLE sCLEAR PORT REQUEST FLAG 1 IS THIS DRIVE SETUP FOR A TRANSFER :BR IF NOT CLR INC ADD TRNSWT R1 02,R3 ;CLEAR THE TRANSFER QUEUE tMOVE TO THE NEXT DRIVE 0-1,0Tu otC7,R1 1 e-1,0TuM TRNSWT sRESET THE INDICATOR 1BRANCH IF MORE DRIVES tNO DATA TRANSFERS UNDERWAY sCLEAR THE ' TRANSFER WAIT' QUEUE JSR PC.CLRQUE JSR PC.EMPTYQ 1CLEAR THE DRIVE'S QUEUE CLRB ODRVTYP(R1) 1CLEAR THE DRIVE TYPE INDICATOR MOV BR 74¢: THE FLAGS MOV MOV cHe CLR 000010 TRNSWT s IF THIS DRIVE MAD AN I/0 REQUEST BEQ JSR TST BEQ 8IT BEQ MOV BR BIC BNE MOV 040626 R2, TRNSWT THE QUEUE THE PORT REQUEST FLAG IS IDLE s+DRIVE ACTIVE? 1BRANCH IF IN ACTIVE 1PORT REQUEST 1BRANCH IF NOT iGET “DPB” FROM THF “TRANSFER WAIT” QUEUE R1,DTW :DID THIS DRIVE HAVE AN I/0 IN PROGRESS? 3 1BRANCH IF YES PC.GETREQ tGET THE DPB8 POINTER R2 ;QUEUE ENTRY FOR DRIVE ? S 18R IF NOT #BIT12,RPCS2(RA) ;'NED’ SET ? 4% 1BR IF NOT #BIT15'8IT01,16(R2) ;SET 'DRIVE NON-EXISTENT' INDICATOR St s CONT INUE MOV 6%: 000002 177770 177777 PC.EMPTYQ DPRQS(R1) DRVACT(R1) CLR Cci18: 040574 cla JSR CLRB CLRB cMpP 010000 000207 DFC D CLRB JSR RESREG RTS ;CLEAR ALL OF THE REQUEST QUEUES #BITOS,RPCS2(R4) ;00 A MASSBUS INIT. 8¢ 1CONTINUE DRVSTA(R1) PC.SET.IE PC 1SET DRIVE TO OFFLINE $1SET “IE” WITHOUT tRESTORE RO 1 RETURN - RS “TRE" INDICATOR CZRJOBO RPQ7 PERF EXER MACRO v04.00 | OEC 83 OB N ND NN e RPQ” DRIVER 10:3°:28 PAGF s INTERRUFT 043254 043262 043264 043270 043274 043276 043302 043306 043310 043314 112737 104412 013704 013701 002402 004737 004737 104413 105037 000002 000001 040600 ISR: 040640 040626 043404 043630 18: F 1 >£Q 0210 SERVICE ROUTINE MOVB SAVREG 01 ,ACTDRY MOV RPADR, R4 MOV OTUW,R1 BLY JSR JSR RESREG 040600 107 CLRB RTI 14 PC.TD PC,SC ACTDRV 3SET "ACTIVE DRIVER' 1SAVE RO - RS FLAG s ADDRESS OF RPCS1 ;GET "DATA TRANSFER UNDERWAT” INODICATOR sBRANCH IF NO DATA TRANSHER UNDERWAY sCALL TRANSFER DONE sCALL SPECIAL CONDITIONS sRESTORE RO RS ;CLEAR "“ACTIVE DRIVER" FLAG 1 RETURN :FORCE WRITE CHECK ROUTINE 043316 043322 043324 043332 043334 043340 005737 001427 122762 001023 004037 000420 043342 043346 043354 043362 005062 116262 016262 016262 105062 112762 000207 043370 043374 043402 001506 000161 WC .M 000002 cMP8 BNE JSR BR WRTCHK 100 WRITE CHECK ? 1 18R IF NO OWRTDAT , $COMND(R2) sLAST COMMAND A WRITE 14 sBRANCH IF NOT RO, DRVQUE sPUT INTO THE QUEUE 1 ;BRANCH IF QUEUE IS FuLL 000027 000034 000032 MOvVB MOV CLR $TATUS(R2) 000002 MOVB RTS 046150 000016 000166 000012 000010 000024 000151 TST 8EQ MOV CLR8 1¢: iCLEAR $RPCS1(R2), $PREVO(RR2) $CYL(R2),SPREVA.2(R2) 'DONE’ BIT COMMAND ? IN OPB 1PREVIOUS COMMAND sPREVIOUS CYLINDER ADORESS $SEC(R2), $SPREVA(R2) :PREVIOUS SEC , TRK ADDRESSES $CODE(R2) ;CHANGE WRITE DATA TO WRITE CHECK DATA ggCKO.8COHND(R2) EXIT sCHANGE FUNCTION CODE TO WRITE CHECK s&X CZRJOBO RPQ7T PERF JON S ah) - DRIVER OW® RPOTM EXER MACRO V04,00 1-DEC 83 10:32:28 PAGF : TRANSFER 043404 043410 043414 043422 043424 043432 043434 043440 043444 043452 043456 043462 043464 043466 043470 043472 043476 043500 043504 043512 043514 005037 043626 105061 040524 012737 006301 012761 006201 013702 005037 052762 010164 004037 000000 042750 006126 100430 005737 100002 004737 122762 001003 116164 10: 177777 040626 17?7717 040606 040574 040574 000200 000010 045116 DONE 1CLR PERMENANT ERROR FLAG CLRB DRVACT(R1) 1SET ORIVE ACTIVE MOV JSR RPCS1 Cl? ROL M1 TST 045342 000135 000002 040630 000016 043522 043526 043532 043534 043536 043542 043544 043550 004737 004737 005702 001403 004737 000207 012714 000207 043316 046224 043552 043560 043564 043570 052762 004737 004737 012714 100100 046130 045342 040111 000016 043574 043602 043604 043610 043616 032764 001406 005237 116164 000207 040000 000012 043620 043624 012714 000207 043626 000000 8PL JSR cMP8 BNE 2%: 000113 043626 030630 000113 3s: 48 (se). 4 tGET “OPB“” FROM THE i TRANSFER WAIT $SET DONE sSELECTY “TRANSFER WAIT” QUEUE QUEU - -CLEAR E QUEUE THE DRIVE s TRANSFER ERROR(TRE=1)? SAVEFG 18 1BR IF YES 1 SAVE RHXX/RPO7 REGISTERS tBR IF NO PC.WC.HK 1SEE IF WRITE CHECK TO BE PUT IN QWEUE PC, SVRHXX €135,2(R2) ? PC.GETREQ R2 RTS MOV RTS PC 0113,(R4) PC 8IS JSR JSR MOV PC.EMPTYQ PC, SVRHXX €40111,(R4) INC MOVB RTS PERM: RO,RD.RP ; CANCEL TIMEOUT JSR JSR TS7 8IY Ss: o8IT07,16(R2) R1,RPCS2(R4) INDICATOR TO ILLE tNO DATA TRANSFERS UNDERWAY MOV8 BEQ 000016 4 1,0Tuw Rl ¢ 1,TIMER(RY) R1 TRNSWT ,R2 TRNSWT ;s YES--SAVE THE REGISTERS s IE FROM DIAGNOSTIC COMMAND ? 28 sBRANCH IF NOT ATABIT(R1),RPAS( R4) sRESET THE ATA BIT BEQG JSR 041622 ROUT INE PERM CLR 8IS 040602 0 0211 CLR MOV ASl MOV ASR MOV 000016 108 3¢ PC,.OPT sGET OP8 POINTER sENTRY FOR DRIVE i8R IF NOT sCALL OPTIMIZER s RETURN sRELEASE :RETURN THE DRIVE 08IT15!B1IT06,16(R2) ;SET DATA ERROR FLAG ;EMPTY THE "DRIVE'S WAIT" QUEUE $ SAVE THE RHXX/RPO7 REGISTERS $ISSUE A “DRIVE CLEAR" ¢81714 ,RPDS(R4) St ;DID ERROR BIT CLEAR? 18R IF YES PERM 1SET PERM ERROR FLAG ATABIT(R1),RPAS( R4) ;CLR ATA BI7 PC 1 RETURN RTS PC 0113,(R4) s ISSUE A RELEASE ;RETURN .WORD 0 s PERMENANT MOV ? TO THE DRIVE ERROR FLAG CZRJUOBO RPO7 PERF EXER MACRD VvO4.00 1-DEC 83 10:32:28 PAGF Pt 0 [ o po po P=o pt (=0 NS NN oo~ [ XV, ¥XL,V OO®NO RPOTM DRIVER 109 (L 5FQ 0212 s SPECTIAL CONDITION ROUTINE 043630 043634 043636 043642 043644 043646 043650 043652 116403 001013 004037 000000 043036 045116 043714 043720 043722 105761 001402 000137 043726 043732 043/34 043740 043744 105761 003011 004737 004737 004737 040534 043750 043754 043756 043762 043764 105761 003405 105761 001020 004737 043770 043774 043776 044002 044006 044010 044012 044020 044022 105761 100412 045506 000001 EMT JSR IE PC.SET. 1 sREPORT ILLEGAL INTERRUPT 1SET INTERRUPT ENABLE -(5P) ;sPROCESS ALL DRIVES THAT MAVE R1 RS 1SETUP R1 € R3 TO CHECK DRIVE O RO,RD.RP 1¢: RTS PC 2s: CLR MOVB CLR R3,(SP) SC3: SCa: 106303 001373 005726 MOV 8IT BNE INC ASL BN~ TST RTS 000207 006301 012761 006201 004737 :1S "IE"e1? :YES, NO DRIVES TO CHECK 8MI 005046 110316 005001 012703 030316 001005 005201 116164 B8R (SP). 18 1% 4 cle 043664 043666 043670 043672 20 043676 043700 043702 043704 043706 043710 043712 000240 000727 tREAD ~“RPAS” REGISTER sBRANCH IF ANY 'ATA BI7S SEV 1READ CONTROL AND STATUS REGISTER BNE JSR ROLB 104001 004737 000207 012746 004037 000000 044052 RPA5(RA),R3 28 MOvB RPCS1 106126 100404 000401 043654 043656 043662 044024 044026 044034 044036 SC: 000016 040564 SCS: 75718 1BRANCH OVER ERROR, REPLACE BRANCH WITH ‘NOP' s IF ERROR REPORT IS DESIRED 1RETURN 1STORE ATA BITS ON STACK [ ) R3.(SP) SCS R1 R3 SC3 (SP). PC OPRQS(RY) 1$ ;IS THIS ATA BIT SET ? :BR IF YES sMOVE TO THE NEXT DRIVE ;ANY MORE ODRIVES TO CHECK ;BR IF YES ;CLEAN OFF ;1 IS ;18R THE ? STACK THERE PORT REQUEST IF NO OUTSTANDING ? SC13 1START THE OUTSTANDING COMMAND DRVSTA(R1) ;s IS THIS DRIVE ON-LINE 046224 045342 044200 24 PC.GETREQ PC.SVRHXX PC.SC1e 040534 DRVSTA(R1) ;1ALSO DO A DRIVE INIT (DRVINT) ;0I0 DRIVE COME ON-LINE ? DRVACT(R1) tORIVE ACTIVE WITH COMMAND OR ERROR RECOVERY ? PC,SC1e $SAVE RPDS, 044264 1s: 040524 2%: 044200 040534 177777 046224 SCé6 1BR IF NO tER IF EITHER RPER1, RPER2 AND RPER3 ;ALSO DO A DRIVE INIT (DRVINT) ODRVSTA(R1) 4% SC4 ;1CHECK FOR MORE DRIVES SCé6: R1 0-1,TIMER(RL) R PC.GETREQ 1SETUP TO ADDRESS WORDS 1STOP THE TIMER 1RESTORE THE DRIVE ADORESS tGET THE DOPB POINTER FROM THE QUEUE 000016 040606 3 ? ;BR IF YES 1GET DP8 POINTER tSAVE THE RMXX/RPQ7 REGISTERS :SAVE RPDS, RPER1., RPER2 AND RPERS 3s: 000111 045210 040630 7578 a4 0111, -(SP) RO.WRT . RP ;CHECK ON DRIVE'S STATUS 1BR IF UNSAFE tDRIVE CLEAR 1WRITE THE COMMAND INTO RPCS1 ;REGISTER INDEX tPARITY EXIT ADORESS ATABIT(R1),RPAS(RA) 1iCLR ATTN BIT CIRJOBO RPQ7 PERF RPO7 DRIVER 61 044042 62 044046 cX 64 044052 65 044056 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 EXER MACRO VO4.00 010164 000137 000010 044102 105761 040524 044060 044064 044070 001405 004737 004737 000402 044072 044076 004737 000137 042764 043702 044102 044106 105061 136137 040524 040630 044114 044116 044122 044130 044134 044136 044142 044150 044156 044160 001012 004737 052762 005737 100002 004737 116164 146137 006301 012761 006201 046246 000200 040602 045342 040630 040630 177777 041622 043702 010164 006301 006301 006301 016461 016461 016461 016461 006201 006201 006201 004037 000401 000207 005726 000673 000010 010164 116164 105761 001424 105061 004037 000240 000010 040630 040554 105761 1-DEC 83 000012 000014 000042 JHP SC8: 040576 SCi1 1SELECT tPROCESS DRIVE THE SEARCHM DRVACTI(R1) ;IS ORIVE IDLE? PC.GETREQ sGET DPB POINTER 1s PC.CI17 24 s YES - -BRANCH 1PROCESS THE PARITY ERROR sCONTINUE SCa sCHECK MORE DRIVES sC11: CLR8 8IT8 DRVACT(R1) $1SET DRIVE IDLE BNE JSR 8IS 1 sBRANCH IF #8IT07,16(R2) 1SET TS7T 1¢: ePL JSR MOVB s1cCs ASL MOV ASR JSR sCie: 040424 040426 040430 040432 PC,POPRUE SAVEFG 1 PC ., SVRHXX YES tREMOVE REQUEST FROM QUEUE :SAVE s8R "DONE” BI1Y THE REGISTERS? IF NO t1YES--SAVE ALL OF THE RHXX/RPO7 REG'S ATABIT(R1) ,RPAS(R4) ;CLEAR ATTENTION BIT ATABIT(R1),SRCHWT ;:CLEAR IMPLIED SEEX R1 s WORD INDEX -1, TIMER(R]) ;1STOP CLOCK R1 ;RESTORE R} :i.npcsz(na) 1 SELECT DRIVE MOV ASR ASR ASR JSR B8R RTS TST B8R MOV MOVB TST8 BEQ CLRB JSR NOP TST8 8GT TST BEQ R1 R1 RPDS(R4),RPSTUO(R]1) sSTORE DRIVE STATUS :TERS(RC).RPSTUOOG(Rl) 1STORE ERROR REG @3 RPER1(R4),RPSTUO+2(R1) RPER2(R4),RPSTUO+4(R1) R1 R1 RO, DRVINT 1$ PC (SP). scs SETY ;STORE ERROR REG @1 ;STORE ERROR REG @2 sINIT, THE STATE s TAKE ERROR EXIT 1RETURN OF THE DRIVE 1CLEAR THE STACK sPROCESS THE PARITY ERROR R1,RPCS2(R4) 3 SELECT THE DRIVE ATABIT(R1),RPAS(R4) ;CLEAR THE ATTENTION BIT DPINT(R1) 2% OPINT(R1) RO,DRVINT DRVSTA(RY) 2$ R2 44 ERROR sAN I/0 COMMAND? MOV ASL ASL ASL PARITY ;DOING A SEARCH OPERATION FOR 1START A REQUEST ;+CHECK FOR MORE DRIVES MOV 14: ATABIT(R1),SRCHWT THE UNCORRECTABLE PC,0PT SC4 MOV SC13: tPROCESS JMP MOV 1%: 040534 R1,RPCS2(R4) >£Q 0218 PC.CI78 040606 000016 1 JSR JHP 000016 000016 040576 TST8 8EQ JSR JSR B8R 109 1$: 2s: 041030 040554 041030 10:32:28 PAGF MOV 046224 042750 004737 000137 003014 005702 001423 H | $INITIALIZING THE ORIVE ? 1BR IF NOT 1CLEAR THE INIT INOICATOR 1GO INIT THE DRIVE s1OUMMY PARITY ERROR RETURN tORIVE ONLINE ? 1BR IF YES -- START ORDER 1QUEVE ENTRY FOR THE DRIVE $8R IF NOT CZRJOBO RPO7 PERF EXER MACRO vO4.00 1 DEC 83 RPO7 DRIVER 123 124 25 126 127 128 129 130 136 137 138 139 140 044330 044334 044342 044346 044352 004737 044354 044362 044364 032764 001003 004737 044370 044372 044376 052762 004737 004737 000411 000402 004737 000137 046224 140000 045342 046246 004000 000016 000000 2%: 10:32:28 PAGF 3. 43 8Iv oBIT11,RPCS1(RAE) JSK JMP £Q 0216 PC,GETREQ 1GET DPB ADORESS OBIT1S!8IT14,16(R2) ;INFORM USER THMAT DRIVE OFFL INE PC ., SVRHXX 1SAVE THE REGISTERS PC,POPQUE 48 BR 041622 043702 Il JSR BIS JSR J5R BR BNE 045,06 109-2 1REMOVE 3 :SET PC,OPT sSTART PC,.SET.TE 4% SCe THE QUEUE :DVA SET ? THEN CALL OPT THE REQUEST 1PROCESS OTHER DRIVES ZRJOBO RPO7 PERF EXER MACRO v0O4.00 1 IO Ut ah, e DRIVER OB RPO7 DEC 83 10:32:28 PAGE :RPO7 s CALL 044402 044406 044410 044416 044420 044422 044424 044430 044432 044440 044442 044446 044450 044452 044456 044460 044462 044466 044470 005737 001027 112737 104412 005001 005003 005763 002406 166663 003002 004737 005201 005723 022701 003362 104413 105037 012616 000207 040600 000001 RPTMR: 040606 000002 044472 1s¢: 040606 2s$: 000010 040601 3s: 44 : 110 SEQ 0213 TIMER ROUTINE MOv JSR PC . RPTMR OTIME, -(SP) +ELASPED TIME IN MILLISECONDS ON THE STACK s1CALL RPO7 TIME ROUTIME TSY MOvE ACTDRV 4 €1 ,ACTSTR TST R1 R3 TIMER(RS) sCHECK “ACTDRV € ACTSIR" sIF NON ZERO EXIT :SET “ACTSTR" ;SAVE RO - RS BNE 040601 J1 SAVREG CLR CLR BLT SuUB 8GT JSR INC TST cHP B8GT RESREG CLRB MOV RTS ;STARY WITH DRIVE O PC,STO R1 1 IS THE TIMER RUNNING? ;BRANCH IF NO sCOUNT THE INTERVAL ;:BR IF NO SOF TWARE TIMEOUT ;CALL SOF TWARE TIMEOUT ROUTINE $MOVE TO NEXT DRIVE 08. ,R1 sOUT OF DRIVES? 2 ggSP).TIHER(RS) (R3). 13 ACTSTR (SP)+,(SP) PC :BRANCH IF NO ;RESTORE RO - RS sZERO ACTIVE SOFTWARE s ADJUST ;RETURN THE STACK TIMEOUT ROUTINE FLAG CZRJOBO RPO7 PERF EXER MACRO v04.00 1-DEC 83 RPOTM DRIVER 10:32:28 PAGE IO N D NN - ; SOF TWARE ¢{NOTE: : 111 1< | 5€Q 0216 TIMEOUT ROUTINE THIS ROUTINE MUST BE ENTERED AT PRIORITY 6 OR GREATER H s CALL O® H H H 044472 044474 044476 044502 044506 044512 044514 044516 044520 044522 044530 010146 010346 013704 010164 004037 000012 045004 105726 100473 105761 001070 105761 001065 013702 020137 001402 004737 052762 004737 012764 105061 005001 005003 004037 000475 105761 001414 013702 023701 001402 004737 052762 105061 012763 005723 005201 S10: 040640 000010 045116 1¢: 040554 040564 040574 040626 046224 101000 045342 000040 040524 000016 2%: 000010 3s: 040524 000010 044702 044706 022701 003346 012737 005037 004737 000500 044710 044714 044720 116405 136105 001017 000016 040630 177777 040574 046052 000016 4%: 040606 S¢: 040626 1SAVE R1 ;SAVE R3 :GET ADORESS OF “RPCS1” ;SELECT THE DRIVE ;READ THE ORIVE STATUS REGISTER 9 TST8 BMI (SP)» 6 :IS “ORY*=1? 18R IF YES BNE 6 tBR IF 15718 B8NE 15718 DPINT(R1) 63 DPRQS(R1) TRNSHT ,R2 sTRYING TO INTIALIZE THE ORIVE ? :iBR IF YES sOUTSTANDING PORT REQUEST FOR THE DRIVE ? sGET YES “DPB” FROM THE “TRANSFER cMP BEQ JSR R1,0TLM 2 PC.GETREQ JSR MOV PC . SVRHXX ;s SAVE RHXX/RPO7 REGISTERS #8IT05,RPCS2(R4) s “INIT” THE MASS BUS B8R 9 8IS CLR8 CLR CLR JSR WAIT* 1 TRANSFER UNDERWAY ON THIS ORIVE? $1BRANCH IF YES tGET DPB ADDRESS ®B8IT1S'8I7T09,16(R2) QUEUE 1SET THE ERROR FLAGS DRVACT(R1) R1 R3 RO,DRVINT ;ORIVE IS IDLE sSTART WITH DRIVE O sINIT,. THIS DRIVE TST8 DRVACT(R1) ;DRIVE IOLE BEFORE MOV cHP BEQ TRNSWT ,R2 DTWM,R1 44 1GET "DPB” FROM THE 'TRANSFER WAIT” QUEUE sWAS A DATA TRANSFEr UNDERWAY ON THIS DRIVE? s YES- -BRANCH 8IS #BIT15'BIT08,16(R2) 1 INFORM USER OF (R3). THE JSR Ss PC,.GETREQ iPARITY ERROR RETURN 1 YES - -BRANCH THE INIT.? ;GET THE OPB8 POINTER FROM QUEUE INIT,. CLRB MOV DRVACT(R1) 0-1,TIMER(RS) sSET DRIVE ACTIVE TO IDLE 1STOP THE TIMER INC cMP 8GT MoV CLR R1 ¢8. ,R1 3 €-1,0TW TRNSUT s INCREMENT THE DRIVE NUMBER iLAST DRIVE BEEN CHECKED? 1NO--LOOP tNO DATA TRANSFERS UNDERWAY ;CLEAR TRANSFER WAIT QUEUE BR 13¢ tEXIT TST JSR 64: R1,-(SP) sDRIVE NUMBER :SOF TWARE TIME ROUTINE R3,-(SP) RPADR,R4 R1,RPCS2(R4) RC,RD.RP B8EQ 040574 040626 11 MOV ADRVNUM R PC.STO MOV MOV MOV ;ggs MOV 041030 046224 100400 040524 MOV JSR RETURN MOve 8IT8 BNE PC,CLRQUE RPAS{R4),RS ATABIT(R1),RS 7% tUPDATE INDEX tCLEAR ALL REQUEST QUEUES tREAD ATTENTION REG :IS ATTENTION FOR THIS DORIVE WP 1 YES - -BRANCH ? CZRJOBO RPO7 PERF EXER MACRO v04.00 1-DEC-83 10:32:28 PAGE RPO? DRIVER S8 044722 59 044726 cQ 044730 61 044734 6c 044736 63 044742 64 044744 65 044750 66 044752 67 044754 68 044756 69 044760 70 044764 71 044766 T2 044772 73 044774 74 045002 105761 001031 105761 001045 020137 001267 004037 000000 045004 105726 100261 105761 001003 105761 001446 012763 000442 045004 045010 004737 000437 045012 045016 045022 045030 045034 045036 045040 045046 105061 105061 75 76 77 78 79 80 81 82 83 84 85 86 87 88 045050 89 045056 90 045062 91 045066 92 045070 93 94 9S 96 97 98 045072 045100 045104 045110 045112 045114 012763 004737 005702 001424 052762 000414 012763 105061 004737 005702 001407 012762 004737 004737 012603 012601 000207 040554 1578 8NE 040564 7578 BNE cMpP BNE JSR 040626 045116 RPCS1 94 7518 040554 7¢%: 71518 BNE 040564 177777 B8PL TST8 BEQ L 1 111 1 DPINT(R1) 10$ DPRQS(R1) 1.8 R1,DTUW 18 RO,RD.RP 5€Q 0217 :TRYING TO INTIALIZE THE ORIVE ;BR IF YES - NO RESPONSE TO REQUEST ;OATA TRANSFER UNDERWAY FOR THIS DRIVE s8R IF NO ;READ CONTROL ;+CHECK 'ROY’ DPINT(R1) 8s OPRQS(R1) 138 0-1,TIMER(R3) 13¢ sINITIALIZING THE DRIVE ? ;B8R IF INIT PENDING sPORT REQUEST PENDING ? ;s8R IF NOT :STOP THE TIMER sEXIT ;B8R IF "RDY"=0Q 8s: MOV 043036 9s: JSR BR PC.CI8 :GO HANDLE THE 040554 040534 177777 046224 10¢: CLRB CLRB DPINT(R1) DRVSTA(R1) 0-1,TIMER(R3) PC.GETREQ R2 tCLEAR THE INITIALIZE INDICATOR {SET DRIVE OFFLINE :STOP THE TIMER :GET THE DPB ADDRESS sREQUEST IN QUEVE ? @-1,TIMER(R3) ;STOP THE TIMER PC,GETREQ R2 ;:GET DPB ADDRESS ;QUEUE ENTRY FOR ORIVE ? 040606 B8R 040606 MOV 140000 000016 BEQ BIS B8R 177777 040606 040564 046224 100004 046130 045342 JSR ST 11¢: MOV CLR8 JSR TST 000016 12¢: 13%: 8EQ MOV JSR JSR MOV MOV RTS 13 ? AND STATUS REGISTER (SP). 1 ? 18R IF YES - ORIVE NOT ONLINE sOUTSTANDING PORT REQUEST FOR THE DRIVE ‘NED' 13¢ ;BR IF NOT #8IT15!8IT14,16(R2) s INFORM THE USER DRIVE NOT AVAILABLE 12% +FINISH OPRQS(R1) ;CLEAR PORT REQUEST INDICATOR 13¢ ;B8R IF NONE 08IT15!8I72,16(R2) s INFORM USER OF FORT REQUEST ERROR PC.EMPTYQ PC.,SVRHXX (SP)+,R3 (SP)+,R1 PC ;CLEAR THE QUEUE FOR THE DRIVE $ SAVE RHXX/RPO7 REGISTERS sRESTORE R3 tRESTORE R1 $RETURN CZRJOBO RPO7 PERF DRIVER EXER MACRO vO4.00 1-DEC 83 10:32:28 PAGE O UND NN ;ROUTINE :CALL 112 045116 045120 045124 045126 045134 045140 045144 045152 045154 045162 045164 045172 045174 045176 011646 013746 062016 017666 013716 062716 032776 001004 032777 001406 016666 022626 011000 000403 045200 045204 045206 062700 005726 000200 RD.RP: 040640 000000 040640 000010 010000 000004 020000 173456 000002 000004 000000 1¢: JSR INDEX ERRADR MOV MOV ADD MOV MOV AOD BIT BNE BIT 8EQ MOV cMP MOV 8R 000002 2s: 5EQ 0218 TO READ A RHXX/RPO7 REGISTER RO,RD.RP ADD TST RTS GO READ A REGISTER ;REG. INDEX FROM BASE :ERROR ADDRESS- PROCESS ERROR STARTING ;AT THIS ADDRESS ;CONTENTS OF REG. RETURN WD RFO7 ML (SP), -(SP) RPADR, -(SP) (RO)+,(SP) 8(sP),4a(sP) RPADR, (SP) oRPCS2,(SP) e8IT12,a(SP) 14 08IT13,3RPADR 28 2(SP),4(SP) (SP)+,(SP)e (RO),RO 34 02,00 (SP)+ RO IS ON THE STACK 1 SAVE RO ;s ADDRESS OF THE ;REG ;READ THE CONTENTS OF THE ;CHECK IF NON EXIST DRIVE 3 REG sNED BIT SET ? ;ERROR EXIT tMCPE SET ? sEXIT sMOVE THE RO TO TOP OF STACK :CLEAR OFF THE STACK ;ERROR EXIT ADDRESS sEXIT ;NORMAL EXIT :CLEAR OFF STACK sEXIT CZRJUBO RPO7 PERF EXER MACRO V04.00 ) e DRIVER ;ROUTINE IR UND : CALL N1 113 SFQ 0219 TO WRITE A REGISTER MOV JSR INDEX ERRADR O® RPO” 1 DEC 83 10:32:28 PAGF DATA, (SP) RO,WRT . RP RETURN 045210 045210 045212 045214 045222 045224 045230 045232 045236 045240 045244 045250 045252 045256 045264 045270 045274 045302 045304 045310 045314 045322 045324 045330 045332 045334 045336 04534C 012046 001017 122766 002413 105777 100375 017746 000316 042716 111666 005726 063716 016676 013716 062716 032776 001013 013716 062716 032776 001003 062700 000401 011000 005726 U1c€ls 000200 :DATA TO BE LOADED ON THE STACK ;CALL THE ROUTINE TO LOAD(WRITE) THE REG. : INDEX OF THE REGISTER TO BE LOADED ;ADDRESS TO RETURN TO ON AN ERROR ;ERROR FREE RETURN YRT .RP: MCV 000150 000004 173410 1$: 173402 SWAB 8IC 177770 000007 040640 000004 040640 000010 010000 040640 000014 000010 BNE cMPB BLT TST8 8PL MOV MOVB 000000 2%: 000000 TST ADD MOV MOV ADD BIT BNE MOV ADD BIT BNE ADD 000000 000002 BR 3s: 4% : MOV TST MOV RTS g?O)».-(SP) :FORMING €150,4(SP) e ARPADR 1 ORPADR, -(SP) (SP) ;:DATA XTRNS COMMAND @tC7,(SP) (SP),7{SP) (SP)« THE REG ADDRESS :BRANCH IF NOT RPCS1 :BRANCH IF NOT ? :SEE IF CONTROLLER READY :READ RPCS1 :MERG THE A17,A18,PSEL BITS :CHOP OFF THE REST BITS FROM RPCS1 :ATTACH A17,A18,PSEL RPADR, (SP) 4(SP),8(sP) RPADR,(SP) ;:RESTORE STACK LEVEL : THE DEST REG ADDRESS :WRITE THE REGISTER :CHECK NED,PAR BITS g?lTl?.S(SP) :NONE EXIST DRIVE ? ORPCS2,(SP) RPADR,(SP) ORPER1,(SP) oBIT3,8(5P) 3 #2,RO 44 (RO),RO (SP). (SP)+,(SP) RO TO COMMAND :BRANCH IF IT IS : ADDRESS RPER1 ;PAR SET ? ;BRANCH IF SO ;:NORMAL RETURN sEXIT ;ERROR EXIT ;CLEAR OFF THE STACK :MOVE RO TO TOP OF STACK sEXIT CIRIOBY RPO" PERF ¢t XER MACRD vO4.0C 1 OEC 83 12:32:28 PAGF 114 56U 0220 RPO~ DRIVER o® PY- XY N X7 LY sROUTINE AL ' 045342 045344 045346 045350 045354 N45360 « 45364 0453¢€6 045372 045400 045402 045410 045412 045414 104412 005702 oC1455 013704 111264 016203 001446 005037 023727 001006 032764 001002 005023 TO SAVE MOV : JSR SVhriXX: S/ JREG 040640 000011 000014 004037 045450 045454 045460 045464 045470 045472 045476 045500 045502 045504 004737 013746 042716 022726 001004 063704 012423 011413 104413 000207 045450 012623 023727 001406 062737 000751 oLOR R 2C ., SVRHXX R2 74 R4 RPADR, ;C(RZ).RB $ 000022 000200 000010 045422 THE ORIVFC REG'S RS 1SAVE RO 1QUEVE ENTRY FOR THE DRIVE sBR IF NONE ? $ SELECT ORIVC 1GET THE ERROR TABLE POINTER ;EXIT IF NO ADDRESS RO,RD.RP 0 +READ THE SELECTED REGISTER (SP)+,(R3). ;STORE THE REGISTER CONTENTS 38,0RPEC2 64 as: 045422 1 eC.CI? $CPUOP, -(SP) @+C174000,(SP) #30000,(SP). S¢: 6%: 74 RHEXT R4 040646 7%: 1SAVE 38,0RPLB 2s 1%: 2%: 3s: 045116 s ADDRESS OF DRIVE PARAME TER BLOCK 1COUNTER € POINTER sREACHED THE BUFFER REGISTER ? ;18R IF NOT oC 107 ,RPCS2(R4E) s'OR* SET ? 2$ ;B8R IF SET (R3). 1STORE RPDB AS ZEROES a4 ;sCONTINUE 3 047422 045422 042750 001234 003777 030000 RHXX/QPO7 RLGISTER, AS PER DPB.)4 (R2),RPCS2(R4) 000405 045416 045422 045424 04542¢ 045430 045436 045440 045446 1H v RESREG RTS (R4)+,(R3). (R4),(R3) PC sREGISTER INDEX ;ERROR RETURN ADDRESS ;REACHED THE ENO ? 1BR IF YES : INCREMENT THE REGISTER INDEX ;CONTINUE READING THE REGISTERS tPROCESS THE UNCORRECTABLE PARITY ERROR ;CHECK THE CPU (RH) TYPE sLEAVE THE CPU TYPE BITS ;SEE IF RH70 s IF NE, NO ;POINT TO RPBAE ;STORE THE CONTENTS 1GET RPCS3 ;RESTORE RO sRETURN - RS CIRUIBO APO” PERE KPP0~ MRIVER t xER MACRO vO4,00 1 DEC 83 10:32:28 PALF 30 0221 115 Y. . N W A JROUTINE TO SET THE INTERRUPT ENABLE (1€) BIT IN RPCS1 WITHOUT GETTING A 1 TRANSFER ERROR sCALL H MOv 3 RE TURN SET.IE: MOV ] 045506 045510 045514 045520 045522 045526 045530 045534 045542 045544 045546 045550 045554 045556 045560 045561 045562 045563 045564 045565 045566 045567 040640 000010 040000 000100 010000 JSR MOV MOV MOV B1IS SWAB MOVe 817 BNE 000010 1$: 28: QDRVNUM R PC,SET.IE sORIVE NUMBER ;1SET INTERRUPT ENABLE ROUTINE R4, (SP) RPADR R4 ;SAVE R4 1PICKUP ADDRESS OF fR4), sREAD R1,RPCS2(RA) (SP) oB8IT14,(5P) 1SELECT DRIvE RPCS: RPCS1 ;SET THME "TRE” BIT OF (SP) 1tADJJST FOR DATO sSET “IE* MI106,(RA) #8IT12,.PPCS2(RA) ;1S "NED"=1? B8R 1 (SP). 2 TRE 1YES--CLEAR ;CLEAN OFF THE STA(CK MOVve (SP).,1(R4) sCLEAR RTS PC ;RETURN T0O CALLER 4] sORIVE O 157 000001 (TRE ). MOV sQUEUE COUNT .BYTE QCNT: .BYTE .BYTE .BYTE .BYTE .BYTE .BYTE .BYTE (SP)e R4 0 0 0 0 0 0 o “TRE" tRESTORE sORIVE 1 1DRIVE 2 ;DRIVE 3 sORIVE 4 tORIVE S tORIVE 6 sDRIVE 7 R4 THE WORD READ CIROOR) AP PERF EXER MACRO V04,00 1 OFC 8% 10:8.:28 PAE 0435652 045672 045712 045732 045752 045772 046012 04603¢ JINPT: INPUT POINTERS WORN . WORD . WORD . WOPD . WORD . WORD . WORD . WORD QoRVO QLRV1 QDRV? QoeV3 QORv4E QORVS QDRvV# QORY 7 1DRIVE 1ORIVE sDRIVE 1DRIvE 1ORIVE 1DRIVE 10R]vVE iORIVE WA= O 045570 043572 045574 045576 k0 0222 NN IQREUE 116 1QUEUE OUTPUY POINTERS 045630 045632 045634 045636 045640 045642 045644 045646 045650 045652 045672 045712 0457382 045752 045772 046012 046032 046052 QSTART: @STOP: .WORD . WORD . WORD . WORD wORD . WORD . WORD _WORD .wWORD . WORD . WORD . WORD . WORD .WORD . WORD @DRVO QORV1 QORV?2 QORV3S QDR V4 QORVS QORv6 QORv? ;ORIVE tORIVE 1ORIVE sDRIVE 1ORIVE sORIVE ;ORIVE QORVO QORvV1 QORvV2 QDRV3S QDORva QDRVS QDRvVe6 START ADDRESS ;ORIVE STOP ADORESS € DRIVE ;ORIVE 1STOP DRIVE 1--START ORIVE QORvV? QTERP sDRIVE iSTOP 1STOP sSTOP 1STOP ;STOP ;STOP DRIVE DRIVE DRIVE DRIVE DRIVE DRIVE 2--START ORIVE 3 -START DRIVE 4- START DRIVE S- STARTY ORIVE START DRIVE 6 4 ~ONB W QOUTPT: 045622 045624 045626 045652 045672 045712 045732 045752 045772 046012 046032 ~wOUVBWNLO 045610 045612 045614 045616 OO0 . BV X 1Y RPO" DRIVER 0. 1 START ADDRESS CIRUOBO POT PERF O® 4O N by RPO° DRIVER EXER MalRO vO4.00 1 DEC 8% 10:5.°:28 PAGE 117 t 2 2£Q 0223 iORIVE REQUEST QREWES 045652 045672 045712 045782 045752 045772 QORVO; GORY] QORY?2: QDRVS: QORVAE: QORYS: QORVE: QORV 7: 046012 046032 QTERP -, R N LUK LBUN U NN (] .BLxW .BLxw N ("] 10 10 10 10 10 10 10 10 sROUTINE TO CLEAR ALL OF THE REQUEST QUEWES ' sCALL ' 045560 046074 046100 000010 045630 046102 046104 046106 046112 046116 046120 046122 046124 04612% 000010 045630 CLROUE : PC.CLROUE 0OCNT . R2 (R2). (R2). (R2). (R2). 18: ”- .“, R QSTART (R1)¢,(R2)e RS 1 o8, ,R3 2s: R} MQSTARY (R1)+,(R2). R3 2 eC ING 1ADORESS OF THE QUEUE INTO 1 THE QUEUE INPUT POINTER 1MOVE THE STARTING ADORESS 10F THE QUEUE INTO THE sQUELUE OUTPUT POINTER IRESTORE RO - RS CITRUOBO ROO" PERF [V LV e N RIAY N A AN NI R 50 9t -0 4ot et 0t 5ot put B0 b 830~3u?u~—-ooo . VN XV LV N0 ¥ Y.3. F RF LY RPO° MRIvLA ¢ XER MACRD vO4.00 1 OEC 83 10:52:70 PAGE 118 b SEQ O22e 1EPTY Te€ QUEVE SPECIFIED 8 M) :C&L MOV JSA SDRvM N1 1ONIVE NSBER ) 1. AT CLre ‘tl'".‘, 1OLEAR NPBER OF ) 0461530 046134 046136 044144 046146 103061 006 301 016161 006201 000207 043560 043570 043610 oC.EPTvQ 8{"“'! ). QOUTPT(RL) 1T6MS In UEWE ;SET QUTPUT QUEUE POINTER.INPUT POINTER pC tROUTINE 10 PUT A REQUEST IN CUEWUE ' sCALL : i o00Pe R2 00R v R] R0, DR vIRE : ' 046150 046156 046160 046164 046166 046172 046210 046216 046220 046222 122761 001421 105261 006301 010271 062761 026161 001008 016161 006201 005720 000200 000010 045560 ORVQRE : 010,.QCNT(R1) 29 tADORESS OF DRIVE PARAPETER B OCK 1ORIVE NsOER 1G0 PUT REQUEST IN QUEUE IRETURN +ERE IF QUELE IS FULL IRETURN MERE IF REQUEST IS IN QUEWE 1IS QUELE FULL? 1OR IF VES-TAKE RETuRN) 045560 ‘&NV(.I) 045570 R2.80IPT(R1) ,PUT THIS MEQUEST IN QUEUE 62.AINPT(RL) _ LUPDATE THE QLELE POINTER QINPT(R1),QSTOP(R1) s TIME TO RESET THE POINTER 14 SRANCH IF MO 1 045570 045570 045632 045630 045570 18: 28 1 INCREFENT QUEUE COLNT firnunn.onflhn LYES.- -RESET POINTER (RO). RO 1 TAKE RETURN 2 IRETURN TO USER CIRIOBO ROCTM Pty l’() O 0228 ’ 0N RETUMN, R2 WILL CONTAIN POINTER ADORESS OF +sZEROD IF 0 REORST IN QUELE. IN O K & 0P8 M QRES’ED OR ) CALL ] ’ 005002 105761 001404 006301 017102 v JSR GETREQ: C.» 1579 8t 0 045360 16: 043610 000207 26 IROUTINE ASL 3 KR*S ORI N} oC.GETREQ 1ONIvE rer@ER :GO GET g MEQES? ne ACNT(RY) 28 1 IS ThEME AnY REQEST IN 1ND- - -ORAMCH L E? IPICKUP TmIS ORTVE " .fllfl”(ll)..i’ 1 C ~0Pg- POINTER FOR RETURN TO USER TO ~POP- Tr€ REQUEST FAOMN QUEUE [ 10N RETURN, R2 WILL CONMTAIN POINTER AQORESS OF -0PO- REMOVED : SORVUM R #C.POPOE 1ORIVE NPOER 1CALL TO REMOVE REQREST ‘&xlflll) ;:OECREMENT QUEUE COuUNTY "oV CLA SO0UTPT(RL) A2 SQOUTPT(R]) ,GET T “0OP9~ POINTER REMOVE DPS ADORESS FROM T GEUE ce QOUTPT(R1),QSTOP(RL) ;TIME TO RESEY TrE POINTER? MOV ASR QSTART(R1) . QOUTPT(RL) ;YES--RESET 1 043610 045610 000002 0435610 043610 045632 043630 043610 ADO e 16; /TS 02 .00UTPT(R]) IUPOATE TvE QUEUE POINTER 19 %no--onncn 10 Ex17 C METURN 10 USER TrE POINTER e e POPQLE ; fsf' 045560 ——— 105361 006301 017102 005071 062761 026161 001003 016161 006201 000207 "oV JSR - ' s e 1CALL b WO OB s o o ] - 14 119 MOUTTIE 1O GET @ DFE- AQDRESS OF NExT REQUES' P S0 aN)w PO DRIVLR ¢ xR MACRD vOs .00 | -0EC 03 10:52:28 PAGE CTRUORO MRC" PIRC ¢ rEM MACRD yvO8 .00 1 PARAME 'ER A (S i PD ] wrwt J 1CO® IPSEL 11V a )} X Q@ o024 Ot vICt Paparg TER B0 OCHS 1.7 4 85€C sT in REG STATUS 16 1 ornt.y ormt. rmt.§ wnt.S wnt.? wut.) ornt.} wnt.19 «ORNIVE MIVED (B77E) +FWT »C1 EC1 OR OFFSET CODE (OYTE) ’OPERAT IO gfll (srte) 1PORT LEC 017S aj1e, AL? (BYTD) +MOMD COMT (2°'S COW) tRFTER ACOR OF AECISTER Tag ¢t POINTEN sSECTOR ADORESS ON 1ST MG AONA 1 TRACK ADOME 5SS OF LAST AEC AQDOR 1'CL INOER ADOR JMEGISTER STORAGE (IF taeOR) 1STATUS WORD (SET B DRIveEN) IORIVE‘S wISTORY AD CURRENT INDICATOR STORAGE CQUATES HWROL 055¢C $CO0E wwut.1? 117 WY 11 0 WY ] (1% 0 WY CMROL o7 SROPAS SWTPAS 0SEENS 0Pt RC 000110 000112 000114 000116 000120 SR 10 RO 12 SWROL « 16 IR0 <22 SWRO « 26 L sWTOTL SWRO + 32 L RO « 36 SRTOTL RO 46 sSTOTL s70TAL Y $SOF SMARD sox] MISPO PASSC SFAIR SWROL 56 s LDMC SWROL + 62 0l 264 WL 66 SR 70 L1V 50 WO 206 WY ) 1 1V DL 76 SWROL <100 +MORD COUNT (NOT 2°S COP) +SECTOR SIZ¢ FOM NT OPERATION (23%6. +PRESENT COPPW® SELECTION CODE JREAONAITE COPW® INOICATOR (BYTE) PREVIOUS COPW® SELECTION CODE (OYTE) +PATTERN CODE 1PREVIOUS ACORESS- TR, SEC, 000132 $NCODE SNPATC INSEC SNTRK sNCYL SNEXT $F IRSTY RO <102 ONCOOE + ) ONCODE 2 ONCOOE -3 ONCOOE -4 $NCOOE + 6 $NCOOE + 10 ) CYL (DOUBLE WORO) JMORDS READ PEA PASS (OOus¢ womD) JMORDS MRITTEN PER PASS (OGUBLE WORD) {NIBER OF SEEXS PER PASS (DOUBLE WORD) sOPERATION COUNT (DOUBLE WORO) +TOTAL WORDS MRITTEN X10°¢ (OOUBLE WORO) & 1] X100 REPETITION COUNTER (OOUBLE WORD) +TOTAL WOROS READ X10°¢ (OOUBLE wWORD) & 11 X10°¢ REPETITION COUNTER (OCUBLE WORD) +TOTAL SEEX COUNT (DOUBLE WORO) 1 TOTAL ERRORS COUNT (ALL TYPES) 1 SOFT* ERROR COUsST 1 ARD: ERROR COuNY 1 ML ERROA COUMT +PROG DE TeCTED MIS-POSITIONING EAROR COUNT 1PASS COUNTER JOPERATION QUEUE ‘FATRNESS® COUNT {HOLD WMORO FOR 'RELBLS© AOUTINE X EQUATES TO THE NEXT OPERATION PARAFETERS 1 INDE 000122 000123 000124 000125 000126 000130 OR 258 INEXY OPERATION CODE it XT PATTERN INEXT SECTOR INEXT TRACK NEXT CYL INDER 1PARMETER SELECTION INDICATOR 1FIRST OPERATION INDICATOR i b e s 08 gt 120 BLOCX LOCATION EQUATE STATEFENTS (PR XV LVI_Nol¥ - XC 8% 10: L -oM PGS .58 et DEVICE CIRIOB0 APOT PEAr ExER MACRO vOs . 0C 1 JEC 83 10:32-70 PALS +o® AD ah,ee OtVICE PARAMETER GLOCTS 121 IOt EOUATES FOR 0001 34 0001 36 000140 000142 000184 000166 marin e« MArEC MNINSEC o AT .10 o MARCTML-12 minlvL AT TR MNiNTOx Re o227 AR TRALVNIRITAN ADDRESSES NCODE-12 o mAN(TL o2 o PAR{ T .4 o MAIITL 1 INOER EQUATES FOR Cruunt, 000130 000152 000154 000156 |1% et Cn IOEN ADORE SS sWIniMm (L INOE D anrag 8 PR I'UN ThACR ADORE ,$ MNINDRM TRACH AQCeS 5§ PRI SECTOR ACT RF 38 sMINIM SECTOR ADOME $S TR NT, SECLT ADDMESSES LIMEITYS D 13T 5E CN.INDEN CvuLmY o maARCT 038 1N NOER ADONE S \ 1Y 4 $1 o CviLMT o 1187 FE CLDOE® SUCLNT T WY o CMLLMTLQ o CriimT.4 'SECTOR ADreE 3 ( Im]? s TRACK AQORE 5, LINIY 1ORIVE SERIAL MADER AMEA DOER COUATE 000160 IORVEN o CVMLLWT.10 1ONIVE SEMIAL NIRER (¢ BvTES) AP/ REGISTER EOUATES 000166 000170 000172 000174 000i 76 000200 000202 000206 000210 000212 000214 000216 000220 000222 000224 000226 000230 000232 0002 34 000236 000240 INPCS) sl e o SRPOS o APCS1.12 LRPQA SRPOA RPCS2 IRPERL SDRVSN.G SAPCS1.2 e $APCS].4 ) o AP(CS)eS + ¢AP(S1.10 o SAPCSLe16 1IPAS o SAPCS1e16 IRPMRYL o SRPLA (1 a0 ] SRPDY e APCS1.20 o WAPCS1.22 GAPCSL 28 o $APCS1-20 S RP SN SRPOF sRPOC s SAPCS1.%0 o ¢APCS1.32 e RPCS1e34 CRPER2 IRPERS SRPECY IRPEC2 SRPEAE SRPCSS o o o = o o sRPCC o APCS1.% SAP(CS]1+40 IRPCS] .42 RP(CS] 04 RP(CSL1.46 $RP(S1.5%0 SAPCS] .92 AP REGISTEN STORAGE 2 CIRJI0BO APO7 Pl ExER MACRO vOs .00 1 JEC 83 10 L -8 P OtviCe PARArE TER BLOCXS oset1e 086816 066330 046352 0465% 046560 046572 00574 047020 047022 0470% 047036 047262 04 7264 047276 04 7300 047524 047526 047540 047542 047766 047770 050002 050004 050230 050232 050244 050246 050472 050474 050506 050510 000 000 003 0.0 OB Tt b Ve A .0'T¢ vy 1.0 93 1 24,] Ve L .y 1P (S 100 Ve L e . 0 .y . WOR0 S L« SEPCS] Mg P e, WBPCS] =B ;0P8 FOR DRIVE § ORIVES: .0'T¢ vy . WORD .x8 MAPCSS 10g e 10PQ FOR DRIVE 2 ORIvE2: .0''E 2.0 vy 9 . MOS0 Lo 0RPCS] 047450 0a7712 .0°°C 0P FOR ORIvE 1 ORIvEL: 046744 04 7206 EL P 0P8 FOR DRIVE O ORIveO: 086302 001 1./ g 18¢(, 3.0 9 .o 0RPCS] MG APCSS e ( 10PQ FOR DRIVE & ORIvEs: .0YTE 4.0 Ly 3 .WORD OAPCSS-REG 10P8 FOR ORIVE S ORIVES: .BYTE 3.0 050154 3 .+ IAPCS] - NG OAPCSS - REG 0P8 FOR ORIVE 6 ORIVE6G: 050416 .BYTE . 8L . WORD .8Lx8 6.0 050660 1ORIvE 1ORIvE .+ SRPCS] - IREG IRPCSS-IREG 0P8 FOR DRIVE 7 7.0 ORIVE?Y: .BYITE .BLxu . WORD .8Lx8 10R1IvE | SAPCS] - $REC KD Xy .WORD .OLKG 1Onive L Ve 1) S .o IRPCS]1 SREG $RPCSI - IREG 1ORIvE LV, 1] pEPL K CIRJ0BO APO7 PERF € XER MACRD v04.00 1-0EC-03 10:52:28 Pack DtvICE PARAME TER BLOCKS 5 000 050739 05073 050737 030760 030742 050744 000 000 000 17777 063364 000 11 050746 12 050750 13 050752 000000 050754 000000 10 030743 14 e W GENERAL PURPOSE ODEVICE PAAME TER BROOR T 050734 4 S 6 7 8 9 129 15 050754 GEOre;: 000 ovtt ovtt .8v7¢ MO0 MO0 .8v7E .07t O 1ORIVER PARMIE ER 0 ¢ O -2 CVLNDR O 1FFSET vALUE OR FmTie, (I 0@ ECT 1COW® (O0E LM0R0 .MORD .MORD O GENREG O 8v'¢ GEVREG: .BLxw 0 26 L OCH, ORIVE O 1PSEL., A6 MO A)? 10RO COUm' (E6) 1S FER ACORE SS 1SECTOR AL @¢ 59 s TRACX AOO®E <S 1CVLINOER AQORE 38 1A00RE 35S T0 SAVE AL mx/APO7 AEG 3 1STATVS WORD 1MEGISTER STORAGE CZRIOBO RPO7 PERF ERROR MESHAGES 051024 051077 051133 051178 051230 051264 051337 051402 051435 051466 051540 051563 051617 051640 051671 051744 052023 052071 052152 052177 052234 052266 052331 052364 052441 052503 052541 052572 052644 052702 052746 053027 05312% 053220 053306 053360 053435 053473 053536 053602 053625 053704 053762 EXER MACRD vO4.00 1 OEC 63 10:352:28 PAGE 126 .SBTTL EAROR MESSAGES 30} En2: €S €; €S €ng; €m0, (1) 9 ¥ 2. ASC12 ASCI2 .ASC12 .ASC1Z .ASC12 .ASCI2 .ASCI1Z .ASCI2 .ASCI2 €3 enlae; €Em9; €120, €21 Enee: €n23; €24, €M29; EM26: EM71: EM72; .ASCI2 .ASCI2 .ASCIZ .ASCIZ .ASCI2 LASCI2 .ASCIZ ASCIZ .ASCIZ .ASCIZ2 .ASCIZ .ASCI2 .ASCI2 .ASCIZ .ASCI2 .ASCI2 .ASCIZ .ASCI2 .ASCIZ2 .ASCI2 ASCIZ2 .ASCIZ ASCI2 .ASCI2 .ASCI2 .ASCIZ .ASCIZ2 ASCIZ .ASCI2 .ASCIZ2 L /7%t CONTROLLER INTEMMPT OCCUMRED (APAase 0)/ APEXPECTED ATTENTION OCCURRNED/ /MASSBUS PARITY ERQOR (MCPE =] )/ MASSBUS PARITY EAROR (PAR-] )/ /7800RESS MUG COrvniE O1T SETY/ /0 CONTROLLER OIDN' Y RESPOND TO ADDAE SS ING/ NNCORRECTABLE MASSBUS PARITY EAROR/ /FATAL MASSHUS PARITY ERACOR/ /PERSISTENT OEVICE UNSAFE/ 70PERATION MOV COPLETED WITTMTMIN TIME LIWMIY/ /ORIVE WMENT OFPLINE/ "D RESPONSE TO PORT REQUESTY/ NEADER CRC EIQOI /0ATA O€COX (-0Cx’ ) EMROR/ NMRITE O€ECK EAROR NRITE OECK ERROR - DATA O€CX (OCx* ) SET/ - DATA Cr€CK (-OCx' ) NOT SET/ NEADER READ ERROR - ‘FHT: BIT DROPPED/ NEAER READ ERROR - MEADER COMPARE (MCE’ ) LAAOR/ 7FOIAT ERROR ('FER* )/ MNMEADER COrPARE (°'MCE’) ERMROR/ MISCELLANEOUS ORIVE ERROR/ /70PERATION INCOMPLETE (' OPI° ) ERAOR/ /ORIVE TINMING (°'OTE’) ERROR/ /PARITY ('PAR: ) ERROR AF TER OPERATION STARTED/ MRITE CLOCK FAILURE ('WCF' ) ERROR/ /INVALID ADORESS (' IAE' ) ERAROR/ ZWRITE LOCK (*WLE’ ) ERROR/ 7/0ATA CHECK (°'OCX') SET DURING WRITE COv€Cx/ /XX OR UNIDUS TRANSFER ERROR/ /70US ADORESS OR WORD COUNT INCORRECY/ /OATA COMPARE ERRORS - NO OTHER ERROR(S) DETECTED/ /CAN'T MATCH DATA READ WITH A PATTERN - UNKNOWN DATA PATTERN/ ZERROR BIT(S) SET, BUT NO ERROR SIGNALED BY /7ECC LOGIC FAILURE TrHE Rt CONTROLLER/ - POSITION REGISTER VALUE NOT /78US ADORESS AND WORD COUNT NOT CONSISTENT/ 7€CC LOGIC FAILURE - PATTERN REGISTER IS ZERO/ /SEEN INCOMPLETE (°SKI') ERROR/ /PROGRAM DETECTED POSITIONING ERROR/ 7ECH ERROR - UNCORRECTABLE ECC ERROR/ /OR1VE UNSAFE ERROR/ ZEARLY ZEARLY 7EARLY WARNING, TEMPERATURE WARNING ( TPE) ERROR/ WARNING, AIR SYSTEM WARNING (AIR) ERROR/ WARNING ERROR, AIR, TPE, NOT SET/ VALLD/ o277,JVY. JV. ¥ N7 1.V CZRJIOBO RPO7 PERF EXER MACRO vO4.00 1-0EC-83 10:52:¢8 PAGE ERROR MESSAGES 054031 054036 054113 054141 054200 054206 054305 054404 054464 120 122 122 122 101 111 111 111 101 111 105 104 102 Om1: Om2: s LT Dl ; D6: D14 D15 Dr16: D17 .EVEN ASCI2 .ASCI2 .ASCI2 .ASCI2 .ASCIZ .ASCIZ .ASCIZ .ASCIZ .ASCIZ 125 / /RPAS /DRIvE 70RIvE 70RIveE /RPADR/ 70R1vE 7RPEC2 /RPOTY /RPBAE M2 360 0231 RPOS REG ADR REG ADR RPCS1 RPER] DATA/ GOOoo RAPCS2 RPWC RPBA RP SN RPOF RPCS3/<«CRLF > APLRS RPER2 RPAS/ RPER] RPER? RPLA 8AD/ RPOS RPDA RPOC RPAS RPCC RPERS RPDB STATUS/<«CRLF» RPECL/«CRLF> > RPMRL/7<«CRLF (] COVBNO NS NN - CZRJOBO RPO7 PERF EXER MACRO v04.00 ERROR MESSAGES 054504 054510 054514 054520 054524 001316 001220 001220 001220 001272 000000 000000 000000 000000 000000 054530 054550 054572 054610 000166 000234 000214 000236 000176 000170 000216 000240 1 DEC 83 000200 000172 000220 000000 10:32:28 PAGE 126 N2 DT1: DT2: DT3: 0T4: 076: . WORD .WORD .WORD .WORD .WORD ATTIN,O DRIVE,O DRIVE,O DRIVE,O $RPADR, O DTi4: DT15: OT16: DT17: . WORD . WORD .WORD .WORD $RPCS1, $RPCS2, $RPDS, $RPER1, $RPER2, SRPER3, $RPEC1,0 $RPEC2, $RPWC, $RPBA, $RPDA, $RPAS, $RPLA, $RPDB, $RPMR1,0 $RPDT, $RPSN, $RPOF , $nPDC, $RPCC,$TATUS,O $RPBAE , $RPCS3,0 SEQ 0232 b CZRUOBRO RPCT PERF tXER MACRD v(4.CO 1 DEC 83 10:3c.:78 PAGE ASCTI " SSAGES T NBTs- 58TT OO 054616 U5€ 530 054657 054713 054726 054731 10 054747 11 054752 12 054772 13 055006 14 055022 15 055041 16 055051 17 055061 18 055070 19 055077 20 055110 21 055124 22 055140 23 055156 24 055172 25 055215 26 055233 27 055253 28 055270 29 055323 3C 0S<333 31 055345 32 33 34 35 36 055400 055435 055453 055465 055512 40 055535 41 055555 42 055574 43 055615 44 055633 LASCIZ PASC1Z JASCIZ .ASCiZ .ASCI1Z LINNS: ASCIZ .ASCi2 S: LINPS: .ASCIZ .ASCIZ LINSS: LINENS: .ASCIZ LINAS: .ASCIZ LINTS: .ASCIZ LINCAS: .ASCIZ LINDAS: .ASCIZ LINBS: .ASCIZ LINWS: .ASCIZ LINSTS: .ASCIZ LINSS3: .ASCIZ LINMA .ASCI2 LINSS: .ASCIZ LINXS: .ASCIZ LINDS: .ASCIZ LINBS: .ASCIZ LINPS: .ASCIZ .ASCI2 LINSS: LINEPS: .ASCIZ LINEOS: .ASCI12 LINBG: .ASCIZ LINCG: .ASCIZ .ASCIZ LINGG: .ASCIZ LINRG: LINVOG: .ASCIZ .ASCIZ LINTM: .ASCIZ LINTP: LIN?S: .ASCIZ .ASCIZ LINTT: LIN?X: .ASCIZ LIN7R: .ASCIZ LINSM: LIN9S: LINOM: 50 S1 S2 53 54 55 56 57 58 59 60 61 LINSI: 056015 056043 056070 056117 056145 056201 056241 056303 056345 056374 056436 056473 LINSE: LINSG: LIN1OA: LIN1O8B: LIN1OC: LINIOH: LIN1LNH: SEQ 0233 127 MESSAGES LINSCLIMPP: LINSS: %INHS: 46 055650 47 055673 48 055722 49 055760 ASCTI e N .ASCIZ .ASCIZ .ASCII .ASCIZ .ASCII .ASCIZ .ASCIZ .ASCIZ .ASCIZ .ASCIZ .ASCII .ASCIZ .ASCII .ASCII .ASCIZ .ASCIZ /PRSN: COMMAND- / /7 PREVS COMAND= / 8¢ ERROR AT BAD TRACK/SECTORC /ERROR AT (C/ /7 1/ JPRSNT ADDR= (C/ /7 S/ PREVS ADOR= C/ / /START CvyiL= 7/ / END CvyL= / / ACTUAL CvLs / TRKs / / RPDC= / /RPDA- / /RPBA= / RPWC= / / /START TRKs / /START SEC= / /BUFFER ADDR= / / WRD CNT= / / / NMBR WRDS XFRD= /EXPCTD DATA= / RECEVD DATA= / / / WORD POS= / / /HEADER FROM ERROR SECTOR= / /RPECL1= / RPEC2= / / /SECTOR IS ECC CORRECTABLE / /SECTOR READ CORRECTLY AFTER /CORRECTED ON / / RETRY(S)/ /UNCORRECTABLE AFTER / MIS POS ERRORS- / /7 /TOTALS; SEEKS= / / SKI ERRORS= /TOTALS; / ERRORS= / WRDS WRITN= / 7/ WRDS READe+ / 7/ / /ERROR DURING RETRY/ /DATA COMPARISON ERRORS/ / WORD EXPCTD RECEVD/<CRLF> /ADDOR / /ARDDR POS WORD POS > DATA/<CRLF DATA RECEVD/<CRLF> DATA/<CRLF»> /TOTAL COMPARE ERRORS= / /THE DATA COMPARED OK/<CRLF> /ERROR BURST BEGINS AT WORD / 7/ IN DATA FIELD OF ERROR SECTOR/<CRLF> /7ERROR WAS NOT IN THE DATA READ - /<CRLF> /7ECC CORRECTION CAN'T BE PERFORMED/ /7ECC CORRECTION RESW TS/<CRLF> / WORD BAD CORRECTED /<CRLF> DATA/ <CRLF > DATA POS /ADDR /CONTENTS OF ERROR SECTOR (REPORTED ABOVE )/<CRLF> CIRU0BO RPOT PERE EXER MACRD vO04,.00 1 OEC B8 10:% :08 PALE 107 1 ASCI1 MEASAGES o6 (%6610 6?7 056611 ¢8 (%0613 040 104 108 040 040 040 122 000 105 128 LIN11: LIN11A: L.£ESCIZ . RSCIZ /ADOR /ADDR BLNxSS: _ASCII / BLNXS4: ASCII BLNKS2: .ASCII BLNKSY: .ASCIZ LINXS: . ASCIZ ~ / / HEADER «CRLF » DATA/<«CRLF» - . /RETRIEVED By A RDHO COMMAND/ —————— | —— ——— 6S 056607 104 104 . 4 056600 101 101 — 6o OSoS54e 68 05567 2FG 0234 CIMIOBO RPO7T PERT ¢ xER MACRD vO4.00 1 DEC 88 10:8.:°0 PAGF TELETPE TMk SSAGLS TELETYPE MELSAGES 0’S 000 QUES: 000 EQUAL : .ASC1Z .ASCIZ ASCIZ .ASCI2 .ASCIZ .ASCI2 .ASCIZ .ASCI2 .ASCIZ .ASCI2 .ASCIZ .ASC1Z .ASCI2 .ASCIZ .ASCIZ .ASCIZ .ASCIZ .ASCIZ .ASCIZ ASCIZ .ASCI2 .ASCI2 .ASCIZ .ASCII .ASCIZ .ASCII .ASCII S 056653 6 0566355 054 055 T 056657 8 056661 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 056667 056700 056710 056732 056760 056775 057012 057031 057041 057056 057077 057113 057132 057135 057145 057155 057162 057167 057171 057274 057275 30 057377 31 32 33 54 35 36 37 057401 057407 057425 057437 057454 057477 057573 38 057612 39 057622 40 41 42 47 48 057632 057641 057676 057703 057714 49 057765 50 51 S2 53 >4 55 56 57 58 59 60 61 057767 057771 057773 060036 060061 060102 060124 060154 060156 060163 060204 060232 000 000 COMMA. DASH: 011 000 040 040 040 040 040 040 040 040 040 040 200 200 120 040 040 122 122 11?7 117 116 101 116 116 116 125 114 116 116 104 107 040 040 120 120 106 116 117 114 117 117 117 116 117 117 117 122 000 040 040 060 060 012 134 057 104 200 057 200 134 200 055 055 123 104 105 105 200 057 040 040 007 040 040 200 116 131 056 040 040 200 040 200 072 116 040 200 104 122 057 000 055 055 125 122 040 040 103 040 124 130 200 117 123 007 000 000 000 077 077 105 101 105 000 117 077 012 122 111 134 TAB: DRVMSG: UNTOFF UNTON: UNTNOT: UNTASN: NOTRP: NOTPRS: NOTAVL: WNOTSAF: LOOEV: NINLEV: NODFLT: DRSTAT: MSGPG: MSHUWL: MSHM2: $RPO7: S$RPO7P: MSGREP: TRMREP: 055 055 115 117 116 116 117 DASHS: DASH13: MSGSUM: MSGORP; MSGEOP: MSGEOT: MSGCON: 061 077 116 124 077 MSGX10: OROPNG: MSGON: ASGND: NEDCLK: 120 117 MSPASS: MSTOTL: N: 103 111 116 104 116 116 111 116 126 Y PERIOOD: MSWRO: INVLO: ENTCOM: ENTLAHT: ENTADR: COLON: NON : BADENT: NODRVS: ORVSN: .ASCI2 .ASCIZ .ASCIZ .ASCIZ .ASCIZ .ASCIZ .ASCIZ .ASCIZ .ASCIZ .ASCIZ .ASCIZ .ASCIZ .ASCIZ .ASCI2 .ASCIZ .ASCIZ2 .ASCIZ LASCIZ .ASCIZ .ASCI2 LASCIZ .ASC12 .ASCIZ .ASCI2 .ASCIZ .ASCI2 .ASCIZ .ASCIZ 5€0 0235 7% le/ Y4 7/ «11» /OR1VE/ OFFLINE/ OMNL INE / NOY BEING TESTED/ ALREADY BEING TESTED/ AN 07? 056651 MNMANNNNNN t 056647 128 .58t 1 4 [ NOT AN RPQ7/ NOT AVAILABLE/ NOT PRESENT/ UNSAFE/ LOAD DEVICE/ NON - INTERLEAVED/ <CRLF>/NO DEFAW T/ <CRLF>/DRIVE PG/ / il / mi2 /RPO7/ /RPOT/ STATUS:/ / / <CRLF><LF> O/ \/\/N\NIN/NI\NI\NIN/\N/\N/\7 -PERFORMANCE REPORT -\/\N/\/N\N/\N/\N/N/N/INININING <CRLF > BN/NININININININININININININININININININININININININININININININ/IN/® <CRLF » P /END 0o F 7 <CRLF > /CONTINUING. ../ 8/ PASS @ /7 TOTAL /7 X10t6/ / / /7 STARTED/ s ¢BS§L><CRLF)/?FATAL <CRLF><BELL>/? /N/ OR EXCESSIVE 'L* OR ‘P’ IN 'READ ONLY' ERRORS/ CLOCK REQUIRED ON SYSTEM/<CRLF>» Y/ /.7 7/ TCAN'T / WRITE PINVALID COMMAND/ <CRLF> TMMODE/<CRLF > <CRLF>/ENTER COMMAND: / / ADDRESS LIMITS;/<CRLF> <CRLF>/ENTER BAD SECTR ADRS:/<CRLF> /:/ /NONE / /7 PINVALID ENTRY/<CRLF> <CRLF><LF>/NO DRIVES ASSIGNED/<CRLF > 8DRV S/N: 8 b CIRU0BO MOQ7 PERC TELET'PE MESSAGLS 62 0602644 83 00306 ¢ XER MACKD vO4.00 1 DEC 63 10:82:28 PAGE 200 200 108 104 110 117 85 060370 86 00440 007 007 011 011 041 033 688 0603531 &9 0e057¢ 200 200 05e ose 080 080 a4 0605367 87 060510 b2 200 103 117 116 nSPAM: MESFE: ASCIZ .ASCIZ OVRWRT: _ASCII FEOMLY: MREAD: .EVEN 4 108 | 3€Q 0236 <«CRLF>/CHANGE DRIVE PARAMETERS (L) N ? 7 «CRLF>/00 TOU WANT TO WRITE ANTWMERE On MEDIA (L) N 2 / <«CRLF> LASCIT JASCITI «BELL»/ «BELL>/ .ASCIZ _.ASCIZ <«CPLFr/e TESTING FE CYLINDER OMLY o/<CRLS> <CRLF>/e PROGRAM IS LOCHED IN ‘READ OMLY MODE LASCIZ ¢ CUSTOMER DATA WILL OF OVERWRITTEN ¢/<CRLF> -eee-7eCRLF> /CONTINE (L) 2 / o/<CRLF> ath, e D OB YO OEC 88 10:3.°:20 PAGF .SBTTL 060652 0606 74 060702 060710 060716 060724 060732 060740 060742 060746 061002 061041 061121 061176 061207 061220 061231 ot 1242 061253 061264 061531 061414 061447 061511 061555 061577 061002 061041 061331 061559 061121 061264 061414 061511 oc144? 061577 031000 orrmm ormnn orrmm 000017 000007 000001 000001 000001 05?7 108 101 111 101 101 111 101 111 101 111 117 111 105 116 116 12% 10% 001666 001470 001862 PAR ST 00144 001476 001%00 001502 001304 001306 001510 SLASM: ASKPAR; PAR]Y ; PAR? PARS; PARG ; PARS _ASCI2 _ASCILZ .ASC12 .ASCI2 .ASC12 .ASCI2 .ASCI2 PARG ; PARY; PARS : .ASCI2 LASCI2 .ASCIZ2 PARL1L: PARL2: _ASCI2 .ASCIZ PARY PARLS ; PAR1S: PAR16: PAR19: PAR2Y: .EVEN 129 20 0237 PARME TER ENTRY 38888355538 CTRUORO BPC" Pt ¢ vER MACRD vOS.00 1 ENTR 148 ¢ CARAE TER TABLE ] ,WMRDCNT , 12800, PAR PAR2 32767, ,INTAVL PAR12,32767. ,Cr®TIN PARLY, 32767, ,PASSES PARS 1S, ,PATTEAN PARL], L, RANDWC PAR1I14,7 . RATIO PAR1G. 1,.ENDING PAR1S, 1, WR TCoex PAR2] ., 1,RANDOM o 1 TABLE TERMINATOR | W | <CRLF»/CHANGE PARAMPETERS (L) N ? / /MAXTMUM WORD COUNT (6-12800.) / /TIME BETWMEEN REPORTS (IN MINUTES, O+NO REPORT) / Z0ATA PATTERN NMPBER (O-RANDOM, 1-1S.FIXED) ~/ /MAX CYL 7 min CvL 7 TRX / ASCIZ MIN TRX /MAX SEC /MIN SEC / / 7 LASCIZ2 /TIME DETWEEN DATA COMPARES (IN MIMUTES., /READ TO WRITE RATIO (0-7) / ASCIZ .ASCIZ2 .ASCIZ2 .ASCIZ /MAR /WORD COUNY MODE (O=RANDOM, 7ENABLE WRITE CrECK (O=MD, Z7END OF PASS MODE (O-SEEXS, 7NPBER OF PASSES 7SEEX MODE (O-RANDOM, / 1+FIXED) / 1°YES) / 1-DATA) / 1<SEQUENTIAL) / O-ALWAYS) / S CTMIOBC BPQ” PEtr ¢ xER MACR) yO4 00 1 OFC 63 10:32-70 PAGE DRIvi PARAME TER TABLES (DFB) LY .SBTTL DRIvE 190 SE0 0238 PARMR TER TARRLES (DFO) 06 16% 061660 0618662 140 € : 06 1664 061732 os2114 06216y 06223%0 o276 TAg €0 1PARE TEN A E FOR ORIVE a0 t 4 1PPARNE TER TAGLE FOR ORIVE Tag €1 TABLE2 Tam €3 TABLES AL EO A t? 1PARME TEN TAGLE FOR ORIVE 1PARNE TER TAGLE FOR DRIVE 1PAANE TER TAGLE FOR ORIVE 1PARAE TER TAGRLE FOR ORIvE 1PARMNE TER TAGLE FOR ORIVE 1PARAIE TER os1176 061281 os1c”) 061770 oetl12%Y 061242 062006 062014 062022 061176 061231 061220 061762 062034 062070 062076 062104 062114 0621% 062136 062144 062152 062162 062170 062176 062204 062212 062220 061207 061253 061242 061207 061176 061231 061220 061259 00004} 00004 1 00,166 000C 'S 0000 %S 000041 001166 000G 33 0000 3% 00004 | 000741 €¢J0000 001166 000033 000033 061242 000041 051207 061176 061231 061220 001166 000033 000033 061253 061242 061207 061176 061231 061220 061253 061242 000041 001166 000033 00003S 000041 TABLEO- 046442 0ss714 04e67:2 046720 047,716 TABLEL: 04715%8 TABLE?: PARS ,630. MXCTL -ORIVED PART 29, NINTAX.ORIVED PARG . 29. M TRX.ORIVED PARG .33, . MAXSEC-ORIVED,O Pane.650. . mAXCTL .ORIVEYL PART.29. .AINTRX ORIVE 0t 724 (46722 047154 047162 047160 047166 047164 PARS 0 . NINC VL -ORIVED PARS .0,MINC VL .ORIVE YL R 061207 000G 3% 046442 046450 046456 046454 047420 047416 047424 087422 047430 TABLES: 04 7¢42 047660 047666 047664 047672 047670 TABLES; 030124 050122 050130 030126 050134 050132 TABLES: 047426 PARG.29. ,MAX TR ORI VE | PARY. 33. (NINSEC.ORIVE ] PARG .33, .MAXSEC-ORIVEL.O PARS .0, MINCYL -ORIVER Pans .80, ,MAXCTL .ORIVER R 061732 061740 061746 061754 001166 000 19 PARG . 29. ,MATAK ORIVE 2 PARS ,33. ,MAXSEC-ORIVER,.0 PARS 0, MINC YL -ORIVES PARG 630, ,MAXCYL-ORIVES R 061207 061176 061231 061220 061753 061242 PARG . 29. MAXTAX.ORIVES PARY 33, MINSEC.-ORIVES PARS ,33. ,MAXSEC-ORIVES,O PARS 0, MINCYVL -ORIVESL PARS ,630. ,MAXCYL.DRIVES HHH R 0t 1 664 061672 061700 061706 ot1714 081722 R |PARME TER TAGLE FOR AQDRESS LIMITS PARG ,29. MAXTRX.DRIVES PARY , 33, MINSEC.DRIVES PAKRS, 33, ,MAXSECDRIVES,O PARS 0 , MINCYL -DRIVES PARAG ,63%0. . MAXCYLORIVES PAR? .29, MINTRX.DRIVES PARG,29. MAXTRXDRIVES PARY 38, ,MINSECDRIVES PARS,3S. MAXSEC-DRIVES,.O TARLE FOR ORIVE ~OP L OO S O 1644 e Or. 1644 O¢ 1650 Obi6%2 061654 i [ FARME TER TAGLE POINTERS FOR ADDRESS L IWITS ;2% 01207 o117 ot12%1 000000 o) 00N 1% 0 1 FPay] 08 12e2 081207 06117 0s12%1 Oos10,/70 o179 0% i2e2 OC1164 oD 8% OO0 | C000e ) 000000 001166 000« *S 000G 39S 00004 § 00U00e ) 050 %e 0% Wl 05,172 0%C170 o7 050378 A oY% %0 0 %08..% US0m, 34 050 12 04640 0506 36 A L7, €6 338833 83333 coe JMC @PC” GIEF EvER MATERD vO4 0 | OEC 63 10:32:70 PacE AL a0 ES (D"9) Do vt L L H3 190 1§ 80 0299 Pans .0 ATRC N -ONIVES pans ¢80 . MarCn .ORIvEe Pang 29, .rAT TR .00 vEG Pane. S3. .MINORI SEC vEG Pang. 33 .MAXSEC -ONIVES.0 oams 0 NI M. ONIVE? ? 430, ,MAXCTY, ORIV PARS Can? 29, Nintlx.0n{vg? PARG .29. FAITE ONIVE N ? oame 33, WinsEC.ONIVE? PARG,3S. MAsSEC-ONIVET?.O JIDO GPO? MW ¢ R MNCRD ¥00.00 | -G2C 83 10:02:00 PacE 19} WA 0200 19 S$12% *qvOR AR | AVIBE 10 It |IUSY § § 0000000 05000000000000000000000000000000000000080000000000000000 1oCALL¢ s® L ' 100LSTAD wils CONTAIN NG LAST AvARLABAE "E"ORY LOCATION i, 010084 010188 013768 o187%e 012737 012787 01370 018764 010600 90114, -(99) 16 a8 010006 01,37 01,137 ouGile 000G 14a Os2¢ 76 () 8, (W) o116, (WP) 0116.00)14 ol p0116 $:38v8 B0 On @ STACw 1:154v8 @1 O TMQ STACN 3154V PEMORY CAROR WCTOR Py ¢ PC 11 1GNORE PARETY EARORS WelLl SI2ING ostaayC, - (W) 11908 PRESENT EAROR VECTOR Py § OC onamvi(C.2, - (W) "Ov ’ {i:“ hE S$7ACx POINTER G FREMN 'Y U QLD P3v MO PC On STACH () . 006 . E(2 1386 g Pl I SoE VR .2 Oy 020000 .8} et (Rh1). 8 .3.3 0w g (A ranp v 162701 012601 01,600 00UA0Y v "Ov Oy ST 01270} o4 71% 0Uy 72y 000779 01-.%7 01.,¢.%7 010137 80, v v Ov 000116 000116 1048600 012417 0127 "Ov MOv 19?7 on v ~Ov Oy OV nOv OV OV Oy [ 3K 3 NWSTAD: .00 w80 Py 10 029 otanyg( (8y) 1 8 V) X 4 'd 184 so7 ImST ADOME 593 ssTEST TS AOOME SY 0:97€P 70 WERT AQONESS seTRY DGR '.” oACK s MESTORE D@ STACH (9)-.““24 IRESTONE CEAROR wECTOR (P )e DotRAVE (SP)e . 00116 s RESTORE *RMORY CAROR vECTOR a0, (%9)., 00118 R, 05180 ($9). M) s BESTORE N} oC O 11CONTAING Tv@ LAST ACORESS (9P). .00 s ILAST ADORE 3% 1L STORE RO |G—— " 1o I4 (s rmc @mc @ AW - AR S D 1w T 8% K R KA NG v 10 V- ek W ’ '} GRS J? ¥ 026} 1% - GET OV WONESS A W(TER pONEsY (Tl Bl I3 D TO AR SRR Teg v ROUIND. N A8 ADDAESS OF Mg Mewe 0007 1S MY P 0D vg SoPND AUORESS. 1T wlia A0 BEAD NG AQONE 3% ) ¢ ’ 10 i1 12 13 O&2ar s s OOATSY? OO1302 15 O/%08 OUSY? 001382 * : OTE, sCALL 18 OL. 52 21 00,10 22 0L 16 ¢3 00,.20 28 0.4 ] ©./088 10880} O00SS? 012700 100601 25 0. 30 011086 27 01, %4 1086801 26 06/ 42 26 0uL/580 29 06.,%42 30 Cus/%44 1084092 10681} 01201 004’87 31 06.% $2 0052 OC]%} 00e%37 39 002%0 012700 $7 0..~.70 011066 39 064764 104401 41 01260} :.! 0e5% 36 Ot %4 38 06,72 40 O 600 06502 47 0L 608 43 Oor/o10 44 Ob,012 0007% 108401 108402 10441} 005737 001344 004537 :2 0s/e16 000760 47 062620 48 0,624 012700 012701 %0 0Ot/t 32 012023 53 0626% 54 Ob204% 122 122 49 Ou.+ 30 g; Oboe 34 012021 |V7 OC1.7GY OC1%4 O01.'2 OB Tty Tl GOUTINE SESTRDYS 09 -A0 J g Ty C .00 PERLY ?oa YT FRON 1Ty EOARLTED? C.0 a0 1 '8- QLA e MOLLT NS OV {m0)..(9®) [T 1D GRANCTM wmr &g osesa0n N9 (3 M N4 QL1 CONTRAL. € MLAG of [o31 ADONE $9 ¢ WPCSge" tvog L 17798 2 GLvery G01334 OV 153 (). ,m [« JW - 1200NESS OF ASCEE TEnY 1hg (€C) ¢ ? 0020948 e JHR 10, 1 vo0C O%010 a. I 001274 I O&204Y "Ov {n0), - () 1vog LLetee 1 Yrog (%9). +ASCIY A 3 [ JSR on 001272 080640 86, 103 126 "APCS);: wWvi(: (.00 (] [« 4 W ] 10 M a3,.0x.0m EMNgR gag? NE Ev ADONE S 'WECTOR ADDRESS s W Ce® 1PNE ENT DRR/APO? VICTON AQORESS O Th@ STACH JTveQ 1t Aot g R A0 (13134 4A? AOORESS wAs (°C) TvPgD? o v ves 1IENTER M@ STORE NEM ADDRE SS | CARQR ga]Y "oV OV CAPADA N ORPAOR A} WINSY ADORESS OF NEw PAAAYE TERS WWINST ADCRESS OF WERE 10 PUT h@Em v (RO)e, (B ) +VECTOR AQORESS "oV 000207 N "y itnTEn A STONE 0w 1vog §°V AT DG InTaY "oV "Ov 002696 L. am Teog 11 a. In 001334 ) 1P0e sin? APCS] ASDRESS on 1vo0C 036610 120 120 1 vog ae mOV teog ] (80)e,(R1)e arg [ 4 .ASCIZ .ASCIZ SArCsi-® orviC-® sOUS AODRE 5§ 1AL TUse | L ' e MRl yoo OC L INE' Qf W) 1 F( 6% 10 12-70 Pagh B alum W' (v e, 199 e Oglr IS (XX °Q) 17218 & “Ing OElry A 857 STOING FOR LEGA O oIy, an OCTAL WSERS In A9 D WN=O OB 0 sl s vy '] s gt gt ®?,.-(9) LY N, - (W) Qe vl (81)e,00 Ty T Ov [ X 000000 16 080080 | X ? 00008 s TR OICITS I g MSOER 0,07 AR a2 A%, a2 o«s A% :tz 1 'S €D Thease ASCIE-@ 1708 CAROR gR]t WLARLEN T A4CI-7 Y sImIFY LarY S . kL) ’ a2 o %220, X 1Ol 0CTRL OIG]Y (RO IF CARRY @IV WY 1OrOP OFF n1LEN 9178 0e A2 =O 20 1 10 IV LASY BrIE LOOP NG OACK (N1). .08 tO€TMX TEMDATOR of v, vAL e O as 157 " "oV fa2.("0) "0V (SP)e .M PATCHM; 100 IF TERINATOR O TECTED 5 | 1) EvEN g oc'e, va' Nt SCIN'ED BV TR VeSS CaAOR €n]Y nove 6, 1 - 3 Y) 26 a0, 1SAvE B 200 0eC 064370 o .03 (o, o | e e 19494 08 8e.0°0 | 1 S0 s, (W) 2-0 0 DY OF (12 SYOING Lol gt sy, E21Y On ., OV oV 1% oapR M OwnanC e o 1] 1£ 3 "oV OV arg .MORD S e ("S). ($P). A3 ($9)..R2 " O 1 APPENO I CU-wEn! DIGIT 10 MPIOEN 108 Coe vt BV TE CORDe? 1ERROR Ex1T J7ES,. N NOT REMLACE TG ORICINAL REMLACE € O LINAL vAL R vALUE 1ADAST FOR NOSPFAL AE TURN JRESTORE Re MESTORE AY RESTORE A2 sER1T7 +ALLOCATE 200 OCTAL LOCATIONS FOR PATCHING 1O SECTOR OF WOROS 02 CTRJ0B0 GPO7T PLAF ¢ gl MACRD v08 .00 | JEC 63 10:52:20 PR 198 MiP TENT ¢ 08370 7 Ouas7y ¢ Osaea? 9 Ouaaal 10 064500 11 084501 12 064528 13 0eesy? 16 0046183 19 Oseead 16 004479 17 004727 18 Osa e} 19 064762 20 065024 21 065106 22 065167 23 063237 26 065349 25 065417 26 06545 27 0655%2 28 065533 29 065617 30 065620 31 06%52 32 065710 33 065731 34 065777 35 066020 36 066041 37 066110 38 066174 39 066251 40 066331 41 066432 p ry ro , e [P ROEY L M SLAL ; 42 43 44 45 L3 066517 066617 0661707 066773 200 007 00?7 200 200 200 200 200 200 200 200 200 200 200 200 200 200 200 200 200 200 200 200 200 126 110 108 11? 108 119 119 119 119 119 122 101 111 101 111 101 1264 110 040 127 124 124 119 040 040 111 12?7 122 040 040 040 040 104 123 040 040 200 123 127 200 200 123 123 127 127 200 200 200 200 200 200 200 200 200 123 123 123 123 123 1283 123 123 123 127 127 127 127 127 127 127 127 127 @LP TEaY Mg AR gLl .A5(1] ELPTR; AS(1] «CW P> LASCIT (I Fo/ORTVWE PARANFE TERS ./ ASCIL (M Foman(n 1a0n eyl inger gPre/ LA5CIL O Frmingn, 10:0 eyl .nger egres N I'e s ale Y 2Y, Y3, 1|aen tresh edve/ LASCIT «CWMFr/mInNTEN 19:4 trech oPre/ ASLIT (W Fr/mansE 198 oscter oPre/ LASCIT eI Fr/mINnsk 10:n gegter oPre/ ASIIL Py ASCIT (W Fro/@ FALLOWING ARE VAL ID COPWNTS / ASCIT (M Fr/ Wo(R> goo.gn @rive anvd @9 5 2 8NTIN WTITE gate/ LASCIT «CMFr/ RO<«(R> oo . gn @rive ond @0 St 2ENTIAL MAD gate/ ASCIE (M Fr/ T0«(R> goo . gn @' ve to @9 (rordom or sequent el) TEIST/ LASCIE «CRFO>/ATO«CR> goo gn @r ve. to @0 SE2 AN [A W[ TE gote ene/ ASCIE «Cm Fr/ te @o (rondem or somont.ol) 1€ .1/ ASCIT «CRFrz DOCR» DROP g @r ve fres teet/ ASCIT «CMFr7 S0 N> type the perferasnce SUNIPMAY repert/ ASCIE <O P> ASCIT «CMPr/ @ i the @rive muber (0-7 or A for all @rivee)/ ASCIE «CMLF> A1 B5(11 LASCI2 ASCIE LASCIT <«CRLFr/8u1de (010000) <«CRPr/Suile (004000) LASCIT LASCIT ASCIT ASCIT LASCIT .ASCIY 040 040 . :-.74 067204 200 040 040 .ASCII 48 067325 49 067422 200 200 123 040 127 040 /Sl 067531 200 040 53 067643 200 123 54 067745 200 123 «StLL> /NG VLS MESSAGE Cay LY O TYPRD ONCE ./ <G LL» <«Fo/P0 YOU WANT IV TVORD (L) P / «CRLF>/7SMITON REGISTER SETTINGS:/ LASCIT ASCIT LASCIT 040 123 040 123 200 OS> ASCIE 200 200 200 200 46 067074 040 127 040 127 ST <«CMLF>»/Sw10e (002000) «CRLF>@5u0%e (001000) «CRLF»/5u408° <«CALF»/5u07e «CMLF>/Su06e <«CRLF>/5u0% v/ ring tty bell en error/ oharnge ond of peee te 1/4 of normeld inn b:t ond of pese messeges/ displey oll dete cospere errere/ d¢on’'t chernge peremeters (loocep on present A. pert.el reg:oter ¢ .eplay P error/ veluee)/ no ECC correct . on resultes d: epleyed P error/ do not check for @es mum error count/ do not Orop @r i ve et end of test/ ¢ . epley errer sector if OCX, DIE or WCF error/ <«CRLF>/ C. if date compere error £ SWO7 eet, ASCITI ASCII <«CRLF>/SMO2 (000004) <«CRLF>/ A. do not type drive stetus at progras stert/ 8. g0 not type perforsence report efter spec . f 00 t » 040 .ASCII <CRLF>»/ C. prompt ‘write anywhere’' 127 .ASCII <CRLF>§SWOLs (000002) LASCII .ASCII «CMLF>/ <«CRLF>»/Su0O4+ <«CRLF>/ <«CRLF>/5M03e (000400) (000200) (000100) (000040) nelt en errer/ 7/ inmibit errer typoout’/ 0. A. 8. A. 127 ASCIT .ASCIY ASCIT LASCII «CRLF»/SuW13e (100000) «CALF»/7%ui@e (080000) <«CRLF>/Su1%e (020000) <«CRLF>/ (000020) (000010) <CRLF>/Suw00s (000001) 0. d:opley sector f DCX uncorrectable efter 28th ret d ' eplay rems nde question during asuto test inhiDit cete compere efter reed without DCX errore read only mode’/ CIRI0BO APO7 PEAF EXER MACRO v MELP TEXT MESSAGE 1 070004 2 07000% 2 070078 200 200 200 4 070165 S 070223 6 070224 200 200 200 8 070275 7 070274 9 070364 10 070365 11 070402 :g 0704083 15 116 040 040 .00 1 OFEC 83 10:32:78 PAF 040 171 200 124 157 200 056 105 200 000 200 200 000200 ASCIL 040 124 200 ASCIL LASCIT 117 LASCII LASCIT .ASCI1 «CWF» «CALF>»/wOTE: «CALFr/ <«CRF>/ «CMF>» «CPLF>» .RSCI1 <«CRLF>» LASCII LASCIT ASCIZ 200 S5EQ Orede If o OCY @rror occurs, @ of dete compere the sett.ng en the the progrem dete 'n SWOl./ '~ memory, w.ll erecute’ reguerdlese/ «CRLF>»/Type control-¢ (°C) to "L T the progrem/ LASCIT .ASCI1 .END 199 M3 <«CRLF»/To change MMXX goresses, «CRLF>»/ END OF wELP/ <CRLF>» <«CRLF>» stert progrems et eddvese 204/ CZRJ0BO RPO7 PERF EXER MACRO v04.00 1-DEC 83 SYMBOL TABLE 10:32:28 PAGE 135-1 N3 SEQ 0245 ABASE = ABNRML ACOM1 = ACOWZ2 = ACPUOP= ACTDRV ACTSTR ADDWO = ADDM1 = ADDW10= ADDMW11= ADDW12= ADDW13= ADDW14= ADDW15= ADDW2 = ADDW3 = ADDW4 = ADDWS = ADDW6 = ADDW? = ADDW8 = ADOW9 = ADEVCT= 176700 031452 000000 000000 000000 040600 040601 000000 000000 000000 000000 000000 000000 000000 000000 000000 000000 000000 000000 000000 000000 000000 000000 000000 ASGN7 ASGN8 ASKPAR ASNERR ASNLST ASNMSG ASSIGN ASWREG= ATA = ATABIT ATESTN= ATTN ATO = AT1 = AT2 = AT3 = AT4 = ATS = AT6 = AT7 = AUNIT = AUSWR = AUTLST AVAIL 027624 027666 060746 031332 001542 031356 027202 000000 100000 040630 000000 001316 000001 000002 000004 000010 000020 000040 000100 000200 000000 000000 032100 001610 8ITS = BIT6 = BIT7? = 8118 = BIT9 = BLKADR BLNKS1 BLNKS2 BLNKS3 BLNKS4 BPE = BPTVEC= BSE = BUFTBL BUSADR CFLAG CHGADR CHKWC CI1 CI2 CI3 CI4 CIS CI6 000040 000100 000200 000400 001000 002056 056611 056610 056607 056606 000020 000014 100000 001654 062476 001334 001332 021572 042066 042232 042260 042372 042712 042734 CMPTIM CMSEC CMSTR CMSTR2 CMTRK COLON COMMA COMTBL CPSAVE CR = CRLF = CTRAP CYLLMT= CYLNOR DASH OASH13 DASHS DATAPK DATAQ DATAL DATA10 OATA1l DATA12 DATA13 001462 001372 014276 014436 001373 060154 056653 002076 035406 000015 000200 034756 000150 063364 056655 057407 057401 030132 002360 002420 003060 003120 003160 003220 DPR + DPR@S DRIVE = DRIVEO ORIVE1l ORIVE2 ORIVE3 ORIVEA DRIVES DRIVE6 DRIVE7 DROP DROPD OROPNG ORQ = ORSTAT ORVACT ORVCLR= DRVER DRVINT DRVMSG ORVNO DRVPAR DRVPRM 000400 040564 001220 046314 046556 047020 047262 047524 047766 050230 050472 031362 027700 057641 004000 057113 040524 000111 011770 041030 056661 001320 001426 030402 AENV = AENVM = AFATAL= ARIR = AMADR1= AMADR2= AMADR3= AMADR4= AMAMS1= AMAMS2= AMAMS3= AMAMS4 = AMSGAD= AMSGLG*= AMSGTY= AMTYP1= AMTYP2= AMTYP3= AMTYP4= 0U0000 000000 000000 000004 000000 000000 00000C 000000 000000 000000 000000 000000 000000 000000 000000 000000 000000 000000 000000 AVECT2= A16 = A17 = BADENT BADSEC BADTMO BAI = BEGCOD BEGPAT BEGWC BELL = 8IT0 = 8IT00 = 8ITO1 = 81702 = 8IT03 = BITO4 = B8ITOS = BITO6 = 8IT07 8IT08 8ITO9 B8IT1 8IT10 B8IT11 8IT12 = = = = = = = 000000 000400 001000 060163 001336 003440 000010 001514 001512 001516 000007 000001 000001 000002 000004 000010 000020 000040 000100 CI78 CcI18 CKBUS CKCLK CKCLK1 CKCLK2 CKCLK3 CKERR CKFMT CKHCE CKLMTS CKSWR = CK.CHR CK.DEC CK.DIG CK.NUM CK.OCT CLKFLG CLKOFF 042764 043036 014110 024574 024656 024730 024762 014010 012022 012212 021412 104407 033202 033154 033254 062654 033126 001310 024770 DATA15 DATA2 DATA3 DATA4 DATAS DATA6 DATA7? OATA8 DATA9 OCK = DCKER OCKER1 OCU = ODISP = DORVS OGE = DH1 DHiA4 OH15 003320 002460 002520 002560 002620 002660 002720 002760 003020 100000 010546 010730 000040 177570 001544 000001 054031 054206 054305 DRVSN ORVSTA DRVTYP ORY = OSWR = DTE = DTEER OTW 0T00 = DTO01 = DT02 = 0T03 = 0704 = 0T05 = 0T06 = 0707 = DT08 = DT1 DT14 060232 040534 040544 000200 177570 010000 012616 040626 000001 000002 000004 000010 000020 000040 000100 000200 000400 054504 054530 ASGND ASGN1 ASGN2 ASGN3 ASGN4 ASGN6 057703 027300 027354 027444 027610 027612 8IT13 8IT1i4 8IT1S 8IT2 8ITS 8IT4 = 020000 = 040000 = 100000 = 000004 = 000010 = 000020 DISPLY= 104414 DISPRE 000174 OLY = 100000 OONE 010206 OPE = 000010 OPINT 040554 OVA = ovC = ECBADO ECBAD1 ECBIT ecc ADEVM = 0 0000 AOE = APASS = APRIOR= APTCSU= APTENV= APTSIZ= APTSPO= 001000 000000 000000 000040 000001 000200 000100 AVECT1= 000254 000200 000400 001000 000002 002000 004000 010000 CI17 CLR = CLROPB CLRQUE CMCNT CMCYL CMDAT CMHED CMPAR CMPARD CMPLMT CMPRES CMPRT CMPRX 042750 000040 030164 046052 001366 001370 014450 014360 014174 014200 001460 022260 015060 015052 DATA14 DH16 OH17 oH2 OH3 OH4 OHé6 OISFLA 003260 054404 054464 054036 054113 054141 054200 001156 ORVQUE DT1S5 D716 0T17 0712 D73 oT4 076 046150 054550 054572 054610 054510 054514 054520 054524 004000 000200 001412 001420 001376 015576 CIRU0BO RPOT PERF FXER MACRO v04.00 1 DEC 82 10:32:28 PAGF 135 2 SYr80L ECWRD ECWRD1 EMPTYQ EMTVEC= EM1 EM10 EM11 EM12 EM13 EM14 EM1S EMe EM20 EM21 EM22 EM23 EM2e EM2S EM26 EM27 EM3 EM30 EM31 EM32 EM33 EM34 EM3S EM36 EM37 EMe EM4a0 EM41 £EMe2 Era3 001400 001406 001414 046130 000030 051024 051337 051402 051435 051466 051540 051563 051077 051617 051640 051671 051744 052023 052071 052152 052177 051135 052234 052266 052331 052364 052441 052503 052541 052572 051173 052644 052702 052746 053027 ENOCMP ENDCON ENDING ENDPGM= ENDSEK ENTADR ENTCOM ENTLMY ENTPR EQUAL FILLZ FILLO FMTER FMTRK = FMT16 = FRSTER 032626 032734 013012 000163 010000 001352 GENPAR 020672 FO = Fl = F2 = F3 = Fa = GENDP8 GENREG GETBUF GETID GETLMT GETPAT 053123 053220 053306 053360 051230 053435 053473 053536 GETREG= GETREM GETREQ GO = GOORIV GTSWR = HCE = HCEER EM70 053625 HCRCER EM71 EM72 051264 053602 053704 053762 015440 001446 001504 06137¢C 001452 060124 060061 060102 005556 056651 ERCTR 001362 ERPRC1 007636 ERPROC 007622 ERR = 040000 ERROR = 104000 ERRVEC+* 000004 EWN = 000002 EWNERR 013474 FACTOR 017570 FAIRNS 001326 FALPAR 007776 FALPR1 010012 FEONLY 060531 FER = 000020 FEL = 000156 FILBUF 020162 EMAL EMAS EM46 EMAT7 EMS EM50 EMS1 EMS2 EM6 EM60 5€£Q Oz46 TABLE €CCx 016412 016210 ECCt ECCe 016406 €eCoL. 001410 ECGD1 COl416 ECH « OV0100 ECI * 004000 ECMSKO 001402 ECMSK1 001404 ECSEC >4 000002 000004 000010 000020 000040 050734 050754 017572 031070 030766 021352 000141 032102 046224 000001 020240 104406 000200 013070 HC1 HCRC = 002000 = 000400 HELPTX HERTZ 064500 001312 011630 HOUR 001340 = 000011 adl IAE = 2000 IAEER 012732 IBSAVE 035410 IDLE 007234 IE = 000100 ILF = ILR = ILy = INCHRD INCMIS INCSKI INCSOF INCTOT INTRVL INVLDO 000001 000002 000004 026106 026156 020132 026062 026202 001470 060036 IOTVEC= 000020 IR = 000100 ISR 043254 ITCNT 022254 IXU = 000100 KSR 026534 KSR1 026542 KWSVR 026352 L8C = 002000 L87 = 002000 LCE = 001000 LF = 000012 LIMIT 001364 LINAS 055022 LINBS 055070 LINBS LINB6 LINCAS LINC6 LINDAS LINDEC 055233 055345 055051 055400 055061 024420 LINENS LINEOS LINEPS LINEL LINE2 055006 055333 055323 022274 022342 LINDS LINE2A LINE2B LINES LINESA LINE3SB LINESC LINESD LINESE LINESF LINEA LINES LINESA LINESB 055215 022512 022530 022776 023004 023012 023024 023034 023102 023170 023446 023536 023746 024014 LINEG LINLGA LINE6C LINF6D LINE7 LINE7A LINES 024056 024070 024076 024104 024136 024256 024354 055435 054713 MAIN1 006506 006644 MAINZ MASK 001322 MATCH 015506 MAXCYL= 000134 MAXER 0C1456 MAXSEC= 00C144 MAXTRK= 000140 MCPE = 020000 LINSA LINSS LINTS LINUO6 LINWS LINX4 LINXS LINIOA 054731 024366 054752 955253 055453 055124 055110 054772 055156 055270 055041 055465 055077 055172 056613 056145 060306 000136 000146 000142 001342 002124 020000 010000 060570 062636 062645 057573 057437 057451 057477 057676 LIN2C LINP LIN2S LIN3.1 LIN3.3 LINS. 4 054616 054636 054657 023242 023350 023402 LING6 LINM3 LINMA LINN3 LINOCT LINPY LINPS LINR6 LINSSS LINSTS LINSS LIN108 LINIOC LIN1OH LIN11 LIN11A LIN1IH LING.2 LIN7TM LINTP LIN7TR LIN?S LIN7T LIN7X LINSM LINGB LIN9E LINSG LINOH LIN9I LKPAR LODEV LODPAR LSTAD MAIN MAINDA 055140 056201 056241 056345 056546 056567 056473 024112 055512 055535 055633 055555 055574 055615 055650 055673 056070 056117 055722 056015 005246 057041 021742 001330 006340 006364 MOPE = MESFE MINCYL= MINSEC= MINTRK= MINUTE MNTBL HOH = MOL =« MREAD MRPCS1 MRPVEC MSGCON MSGORP MSGEOP MSGEOT MSGON 000400 MSGPG MSGPWR MSGREP MSGSUM MSGX10 MSHELP MSHWlL MSHM2 MSPASS MSPRM MSTOTL MSWAIT 057132 040102 057167 057425 057632 064370 057135 057145 057612 060244 057622 040256 MSWRO MXF = MXWNDW M.DPID M.0P40 M.DP41 M.DP42 M.0P44 M.0PSO N NED = NEDCLK NEM = NEWASN NEWUNT NINLEV NODFLT NODRVS NOMTCH 057773 001000 040650 032250 032306 032342 032352 032404 032416 057765 010000 057714 004000 030110 001566 057056 057077 060204 013616 oyt ZRJOBO RPOT PERF EXER MACRO vO4.00 1 DEC 83 10:32:°8 PAGE SYMBOL TABLE NONE 060156 NOOP = 000101 NOYTAVL 057012 NOTPRS 056775 NOTRP 056760 NOTSAF 057031 NSA * 100000 OFFOIR= 000200 OFFON = 000001 OFLIN 010110 ONE S 003262 ONESEC 001346 ONESUM 025122 oPl = 020000 OPIER 012506 PIRQ = 177772 PIRQVE= 000240 POPQUE 046246 POSER 012434 PACK 030162 PAR = 000010 PARENT 031170 PWRVEC= 000024 QONT 045560 QORVO 045652 OPIER1 oPY oPTBL OR = ORDERQ OVRWRY 012556 041622 002104 000200 001520 060367 PROCES 007472 PRTBAD 016436 PRTIM 010150 PRO = 000000 PR1 = 000040 PR2 = 000100 PR3 = 000140 PR4 = 000200 PRS = 000240 PR6 = 000300 PR7 * 000340 PS = 177776 PSEL = 002000 PSW = 177776 PUNSAF 007720 PWURFLG 040100 PURUP 040124 PARER 012640 QDRV1 045672 PAR1 PAR11 061002 061264 QDRVY QORVA 045732 045752 PAR14 061414 QORV6 046012 QOUTPT 045610 PARLST PAR12 PAR1S PAR16 PAR19 060644 061331 061447 061511 061555 PAR2 061041 PAR3 PARA 061121 061176 PAR7 061231 PAR21 PARS PAR6 PARS 061577 QDRVS 045772 QDRV7 QINPT 046032 045570 OSTART 045630 QSTOP 045632 QTERP = 046052 QUES 056647 RANCYL RANDOM 021062 001510 061242 RANPAT 021322 061253 001474 000020 062764 001476 PFECH 035570 PFECHL PFECH2 PFECH3 PFECHA PFTSTN PGE = PGM = PIP = 045712 061207 061220 PAR9 PASSES PAT = PATCH PATTER PERIOD PERM QDRV2 057771 043626 035600 035662 035714 035724 035730 100000 001000 020000 RANDWC 001500 RANSEC RANSIZ RANTRK RANXIT RATIO 021152 021230 021116 021342 001502 ROCHR = 104410 RODAT = 000171 ROHO = 000173 ROLIN = RDONLY RDY = RD.RP READDR READHD READIN= RECAL = 104411 001424 000200 045116 024444 017026 000121 000107 155 8 2EQ 0247 RECALY 016710 RECALO 017000 ReDAPK 030120 RELBUF 017706 RELSC = 000113 REPLZ 032632 RESREG= 104413 RESVEC= 000010 RETRY 001324 REV 001432 RHEXT 040646 RMR = 000004 RPADR 040640 RPAS = 000016 RPBA = 000004 SAVERS 001360 SAVPOS 001354 SAVREG* 104412 SC 043630 SCMND 030006 SCOPE = 000004 SCO4 = 000400 sC1 = 000100 SC10 = 001000 SC100 = 010000 SC11 044102 SC12 044200 SC13 044264 SC2 = 000200 SC20 = 002000 SWO 500 SW01 SW02 SW03 S«#04 SW0S SW06 SWO7 SW08 SW09 SWl SW10 SWill SWi2 ¢ 000001 = 000001 = 000002 + 000004 = 000010 + 000020 = 000040 = 000100 = Q00200 = 000400 = 001000 * 000002 = 002000 = 004000 = 010000 RPDB RPOC RPDS SEARCH= 000131 SECLMT= 000152 SECOND 001344 SWS 5Wé SW’ e 000040 = 000100 = 000200 RPBAE RPCC RPCS1 RPCS2 RPCSS RPDA = 000050 = 000036 e« 000000 = 000010 = 000052 = 000006 RPOT = 000026 « 000022 = 000034 = 000012 RPEC1 = 000044 RPEC2 « 000046 RPER1 = 000014 RPER2 = 000040 RPER3 = 000042 RPINIT 040652 RPLA = 000020 RPMR1 = 000024 RPSN = 000030 RPOF RPSTUO RPSTUL = 000032 RPSTU2 RPSTUS RPSTU4A RPSTUS RPSTU6 RPSTU7 RPTMR RPVEC RPWC = RPO7 RTC 040424 040434 040444 040454 040464 040474 040304 040514 044402 040642 000002 041364 = 000117 RTURN 032050 RW1 = 002000 RW2 = 004000 RWS = 010000 R6 *%$000006 R7 =2000007 S 054747 SAVEFG SAVER1 040602 001356 SC3 SCa SC40 SCS SCé6 SC8 043676 043702 =+ 004000 043714 044024 044052 SEEK = 000105 SEEXKFG 040604 SELDRV= 000145 SEQPAR 020330 SETFMT= 000143 SETVEC SET.IE SIZE70 SIZMEM SK1 SKIER SLASH SPOTCK SRCHMT STA STACK START START1L START2 STATIN STATIS STATPR 005604 0453506 004742 005112 = 040000 013246 060742 016420 040576 006074 = 001100 003522 003532 003550 001314 017270 025020 STKLMT= 177774 STNDAT 002314 STO SUPRS SUPRSL SUPR1 SUPR2 SVRHXX SWR SWREG SWTIM 044472 032442 032426 032454 032516 045342 001154 000176 010052 SW13 SWi4 SK15 SWe SW3 Swa SW8 SW9 T TAB = 020000 e« 040000 = 100000 = 000004 * 000010 = 000020 = 000400 = 001000 054726 056657 TABLE 061644 TABLEO 061664 TABLE1 TABLE2 061732 062000 TABLES 062046 TABLE4A 062114 TABLES 062162 TABLE6 TABLE7? 062230 062276 TAB.XY= 001114 TAP = 040000 T8ITvE= 000014 TCF * 000400 10 043404 THEAD 020776 TIMER 040606 TKVEC = 000060 TPE * 000002 TPVEC = 000064 TRAPVE= 000034 TRE * 040000 TRFER TRKLMT= TRMREP TRNSHT TRTVEC= TSTANY TST1 TYDRV 013146 000154 057274 040574 000014 001422 003540 033044 CZRJIOBO RPOTM PERF FXER MACRO vO4.00 | DEC 83 10:32:28 PAGF SYMBOL TABLE TYPORY TYPDS = TYPE TYvPOC « TYPON = TYPOS « TYPSUM UCPAR UNS UNSAF UNTASN UNTNOT UNTOFF UNTON UPt uSt Us2 US4 vV WATY WATPAK WCE WCF 033050 104405 135 4 $MLOWC= 000120 $PSEL 001120 040072 104404 104403 025150 S$ICNT tILLUP $INTAG $ITeMB SLF SLFLG = 040000 $COOE = 000024 SLKCSR 104401 104402 007760 $SUPRL 032526 001151 001130 001204 037203 $PWRAD SPWRON $PWRMG IPWRUP SQUES SRAND 040066 037720 040062 037772 001202 037206 $SUPRS $SUPR1 $SUPR2 $SVPC = $SWR = $SWREG 032542 032554 032616 000210 122000 001230 001276 SROLIN 034442 $TERM « 000032 034722 013402 056732 056710 056667 056700 $COMND= ICPUOP SCRLF $CYL = $0BOIV 000002 001234 001203 000012 032174 $LKS SLLVEC SLONUM SLPADR SLPERR 001304 001306 037306 001122 001124 $ROPAS= 000036 $RDSZ « 000017 $REG = 000014 SREPLZ 032742 SRESRE 037346 = * 000001 000002 $0820 $0820 037404 037600 SLSTAD $MADR1 062474 001240 $RPADR 001272 $RPAS = 000204 = 000100 S$OEVCY 001216 $MADRS 001250 030144 $O0IvV 032126 $MAIL 001206 = 000004 001632 = 040000 = 000040 $0BLX SOECVL $OEVH 036730 037564 001264 SOOAGN 032044 $ORVSNe 000160 SLPVEC $MADR2 $MADR4 SMAMSL $MAMS2 001300 001302 001244 001254 001236 001242 $OSPLY $0TBL $ENDAD S$ENDCT SENV SENVM 033100 036720 032034 032020 001226 001227 $MAMSS $MAMS4 $MBADR IMFLG SMISPOe SMNEM 001246 001252 001102 037202 000112 034745 WEER 012764 $EOPCT 032012 SMSGLG SERMAX SERROR 001131 035022 SMSWR $MTYPL WRDCNT WROPOS WRL WRTCHK = 004000 * 001000 001466 001374 = 004009 001506 WRTDAT= 000161 WRT _RP WRYUNS= XxpP M ZERQOS ZROIND $APTHO SATYC SATYlL SATYS SATY4A $AUTOB $BASE = SCNTLU * 020000 $LKCS8 000003 013304 = 040424 « 000151 011242 = 000153 043316 WOR F.Q 0248 $CHARC 036262 $CKSWR 034010 SCHTAG 001114 tCH3 = 000000 sCa = 000001 SCNTLC 034715 SCNTLG 034727 WCFER WCHKX WwCxD WCKER WCKHD WC.MK W.E D4 045210 000400 001430 057767 002360 001350 001100 036764 036740 036746 036756 001150 001262 $BDADR 001136 $80DAT 001142 $BELL 001176 $8UF = 000006 $COW1 001266 tCOW2 001270 $EOP SERFLG SERRPC SERRTB SERRTY SERTTL SETABL SETEND $SFATR = SFATAL SFFLG SFILLC SFILLS SFILLZ $FIRST= $FMT < $GOADR $GDOAT IGET42 $GTSWR $HARD = $HD = $HIBTS SHINUM 031500 001117 001132 003360 035412 $MSGAD IMSGTY SMTYP2 $MTYPS SMTYP4 001126 001226 $NCODE= SNCYL = 000116 001210 037204 001172 S$NPATC= $NSEC = SNTRK = SNALL 001272 001171 032736 000132 000001 001134 001140 032024 034100 000106 000000 001100 037304 $OPERC~ $PACK = S$PASS $PASSC= 6PASTM $PATTC= $PREVA= $PREVO= 034352 $TATUSe 000016 $TESTN STIME $TxB8 $TKCNT $TKINT 001212 026226 001162 033472 033510 $TKQIN $TKQOU 033474 033476 $RPBAE - 000236 $TKS 001160 $RPCS1+ 000166 $TMPO 001174 SRETRY 017120 $RPBA = 000172 SRPCC = 000224 $RPCS2= 000176 $RPCS3= 000240 $ TKQEN= 033507 $TKQSR 033500 $TKSRY 033560 $TN = 000002 $TNPWR 037514 $RPDA = 000174 $RPDOB $RPOC $RPDS = 000210 = 000222 = 000200 $1PB $STPFLG $TPS 001166 001173 001164 SRPDT = 000214 SRPEC1> 000232 S$TRAP $TRAP2 040336 040360 001224 $RPER1= 000202 STRP 034734 001237 $RPER3= SRPLA = 000230 000206 $RPOF = 000220 SRPVEC $RPWC = 001274 000170 001222 001206 001243 001247 001253 000122 000126 S$NEXT = 000130 $NWTST= SOCNT $OCTVL $OMOOE SROCHR 000123 000124 000125 001170 000000 036510 037702 036512 000052 000026 001214 000114 001106 000030 000032 000027 SRPEC2= 000234 $RPER2+ 000226 $RPMR1+ 000212 $TOTAL= 000102 $TRK S$TRPAD $TYPOC $SAVR6 $S820 $S820 $SEC 040076 033412 033442 = 000010 $SEEKS= $SETUP= $SIZE $SKI = $SOFT « $SSEC = $STOTL= $STUP = 000046 000156 062344 000110 000104 000022 000076 177777 034676 $TYPDS $RPO7 0571SS 001104 001116 STTYIN STYPE 057162 032046 000066 037310 040372 $TSTH $TSTNM $RPSN = 000216 SRPO7P SRTNAD $RTOTL= $SAVRE = 000011 = 000015 036514 035732 STYPEC STYPEX 036144 036264 036312 $TYPON $TYPOS SUNIT SUNITH SUSWR SVECT1 SVECT2 SWCNT 036326 036266 001220 001110 001232 001256 001260 = 000004 S$WROL = S$WTOTL= SWTPAS= $XOFF = S$XON = $3GET4= SOFILL . 8X = 000020 000056 000042 000023 000021 000000 036511 001100 CIRUOBC RPQ7 PERF SYMBUL . ABS. TABM € 070405 000000 ERRONS DETECTED: EXER MACRO vO4.00 1-0EC 883 10:%2:208 PAGEF 000 001 O VIRTUAL MEMORY USED: 65464 WORDS (244 PAGES) OYNARIC MEMORY AVAILABLE FOR 71 PAGE S L7008 'C-(20,12)CZRI0B 155 S .00C,CZRI08 . HIS,CZRI08, [20,0]SYSMAC /M Fa 2EQ 0249 b4 >£Q 0250 CIRIU0BO MPOT PLAF FuER MACRD vO4.00 1 OEC 8% 10:5.':/R PAGF S | . 00 CROSS REFERENCE TABLE (CREF vO4 S$CHARC $CK SR sCm3 Cra SCHTAG SONTLC SONTLG SCNTLU $COooE s CPUOP SCRLF 34.7 128-80 89-1e 89-1. 12-717 12-112 S a2 38 $ 135 14 ?20 4] 43 13%% 15 14-16 15 10 85-1 ot3 12-31e 85-1 12-72 22 4 39 61 15 87 16 6 62 16 21 45 62-63 62 58 31 67 73-1 73-1 851 101-41 77 43 30e 120 7¢ 13-Se 12-51 88-1e 97-1 88-1e 8 00 12-25 8-00 12 25 88 1 30 1e 47 28 47 32 48-12 57-95 57-240 S7 247 45 16 45-37 48-10 50-35e $S0-S7e S0-63¢ - 36+ 56 5% -37 S6-41e 66-14 66-35¢ 101-38 71-7 86-1 23-21 57-11 57-290 71-30 23-22 57-12 57-304 71-36 86-1 34-37 57-63 S7-324 86-1 34 -22 57-29 57-317 73-1 87-1 56 -46¢ 57-159 66-14 67-7S5e 59-135 84-13 94 -1¢ 85-1 85-1 85 85-10 37-45 S6-48 40-16 42-33% 44 -14¢ 66-33e 50-58¢ 66-43 S0-67e 107 27e 56 -28 120-210 56-31e 15-33. 16-18 $7-83 16-69 $7-258 18-39 57-280 19-15 114-32 23-14 23-15 57-208 63-72 86-1 64 -44 86-1 57-231 57-250 50-24 50-26¢ 50 34 S6 59-113 $9-119 59-129 41-41 $7-152 $9-26 85-1 88-1 42-37 57-171 59-168 83-1 42-50 57-186 62-20 85-1 132-21 44 -12» 9-21 49-15 $7-390 95-1¢ 57-415 $9-97 59-103 45-47 75-26¢ 90-1 94-10 90-1¢ 78-1e 73-1e 42 26 73-1 $7-275 74-10 74 -38¢ ‘3:20. 17 16 12-74 45-10 85-1 85-10 85-1 36-31 56 -42e 15-88 — 9-10 9-10 9-10 57-132 $9-22 85-1 $0820 40820 $0801V K $08L $DECVL $DEVCY $DEVM $D1v $ DOAGN 133-48 $-58 37 &7 134-50 7-110 41-21 sCri 43 35 41 9-1 [ $COMND 1-11 73 10 ) $COW1} $COMW2 129-48 89-10 L' R SBASE $8DADR $8DOAY S$BELL 1.V2 T-4 ® ¢ (V.1 Lo 888007 sesGE T4 S$OF TLL S40CAY S$AP T+ SASTAY SATY} SATYS SATYa SATYC SAUTOB 1 129 16 13 24.-25 67-6%5 $533%00ed 8?058.000 e 4 ?0 ru—-.--goo AR 33313 11128 111 1 Jv "s 1 % ob $84€07 DN 83 0¢ 0P ) 73-10 42 39 42-64 45-14 42-66 42-67 15 73-1 87-1 38 40 57-65 S57-362 107 18 38 65 57 99 57 394 73 73-1 87-1 87-1 101 -44 107-2% 1 CIRU0BO RSO Pt ¢ xER MACRO vO4.00 1 DEC 83 10:832:28 PAGF CPOSS MEFERENCE TABLE (CREF vOs .00 ) SORVSN 0SPLY 08 o6 2% 01 2¢0 % 1 SENDCT 7% SENDAD M 10 o6 27 97 2 90 10 69 Se 81 14 8 00 e 00 21 38 12 %1 12 &5 % 38 12 ¢7 881 78 10 17 11 s 1 SERFLG 8 00 8 1 06-1 86 je $ERMAX 31 8-0¢ SERROR 12-2% ERRTE SERARTY 11-00 096-1 SETABL 6-00 SFAIR SFATAL 20 27 8 00 sFILLC o:%ug 8-00 .g 0; SFIRSYT 12 98¢ S$ERRPC SERTTL SETEND SFFLG $FILL tFnY $GDADR $GDOAT $GE 142 SGCTSMR 10 06-10 06-1 o 1 -1 8 00 86-1 86-1 86 1o 20 - 66 91 1e 20-7Se 20 76 es8-1 a8 1 e8-1 88-1 9 1 -1%@ 101 37 8-00 8-00 20-17 85 10 S$HARD $+0 59 158 S &% tHINUM 12 2Se ¢NIBTS 7% 8 Oe 7-11 7T 110 87 1 e7-10 8-00 91-10 12 98¢ 120-60 58 97 7%-10 97 $9 165 5-8% 74 -8 47-24 SILLUP 96 1 9% -1 $INTAG 1381, ] SLF 8-0¢ 8 O 8-00 SLFLG 91-10 SLXKCSR 9-00 SLKCSS sLKS SLLVEC SLONUM SLPADR SLPERR SLPVEC SLSTAD SMADR S$MADR? $MADRS S$MADRAS CMAIL SMAMSY 9 00 9-00 9-00 12-25¢ 8-00 8-00 9-00 14-6 8-00 8-0¢ 8 00 8 Oe¢ 7-11 8-00 12-98¢ 120-7 1 47-315 8 0¢ 91-1e 33 0wt $ICNT 198 121 2FQ 0251 28 s 10 st Wy $E Nym seor SEOPCY 121 G4 S 2 685-1 86-1 85-1 91-1e 58-18%8¢ S8-8 $8-20 S8 22 $1-21 58-10 § o0 17 S 8% 92-1 47-29 9%-1¢0 85-1 86-1 5-1 58 14 91 1o 86 1} 91-1 88 1 9 1 °1 8 1o 86 1e a7 1 ar 120-410 91 1o 88-1 12-98¢ 12 98¢ 120-8 120-9 60 17¢ 120 370 9 1 12 98¢ 120-10 $0-51e 92-10 92 S6-52¢ 120-420 8S-1 86-1 85-1 85-1 86-1 86-1 8S 1o 86-1 86-1 86-1e 88 1 92-1e 1o 74-7 92-1 92-1 9 12-19 12-25 12 31 7111 8-0¢0 12 98¢ 10 86-1 17 39 120-12 120 13 86 1e 88 1 a7-1 58-47¢ 58-49¢ 131 -1e 12 98¢ 120-11 47-38% S8 25e 151-1¢ 1 88-1 66 2% 120 14 67-11e 120-195 120-32¢ 120-19 H4 CIP 080 APOT PEAF ¢ vER MA(R) yvO8 (O | OEC 68 10: L17 MmMSL Ty LL M vey MY vPQ st vpy nTveg s%C 00 N ~ onaC v Nt Y SWPAT(C o SREPLZ S$RE SRE SRE TRY S$RPO7 SRPOTP X ~d o 85 - . L $ROSZ Rt G =8UeYe ® 85 39 g » 4 o PRt vO PSE L 101 $PuAD $Pul N s PASIY, P P Qe S SRC2A SRAND $ROCHR SRNDEC SROL 1IN ¢RDOCY SROPAS vOd .00 91 1o $9-165 ) o Pais 91 1o &0 19 60 19 9 1 S 10 91 91 S3 2 S2 10e 20 - 6% 120-47¢ 51 -39 120-490 5%-19% S - a4 - Tue SO 34 0 - 500 12 % 92 32 32-% 91 S5 8 %0 023%2 170 390 1o -1 1o e 120 &9 120 30 120 460 120 47 & 20 120 S1e $3-13 5¢ 4% 120 480 89 1o $1 %8 S0 9% 73-1 SO-7%e 73-1e le ] ¢3 8ie 120 220 120-2640 50 -240 36 1S5e 16e 5% 19 56 - 20 3 21e 37 37-39 107-246 2%0 88 1 122 8 122-8 122 8 53 30¢ 120 48 120 31 120 32 121 3 8- 89 1o 89 1o $0-16 21-19 73-1 73-1 89-,0 50 16 21-17 78-% 78-1e 78 1e 290 120-40¢ [ M—fi-‘.g K L o ¢w [ o @ TS Y sOCwNY s0C 'y ¢ JrO0E 0Pt RC $PACK PASS SPASLSL SPAS TR SPATTC PRt VA * SNSEC S Y RC SMAL ((wes X 113 | |J o " R ADR o AR L0 87 o) "ot w sm.La0 & r= 9o 0o g [1 RT3, 382882828~ 2-2228 sy sman. TABLE 2823 CPOSS MEFIRENCE 1e 101 45 122 8 93 10 25 27 16-50 16 53 S-84 66-%- 107-26¢ 3% -11e 120 250 S 12 4% 1% 49 1% 66-37% $0-2%e 6 39 198 37 202 37 206 122 8 122 8 %-10 5-1 85-1 85-1 $3 5%.40 92 45-39¢ 45 40¢ 39 112 122-6 122-8 41-9 122 8 122 8 41-29 97 10 1 86-1 1 10 97 28-20 126 240 128 -25¢0 29-27 122-8 31 3 122-8 122-8 1 120- 260 122 -8 122 8 80-13e¢ 30 33 30-70 31-11 28 3% 12 33 29 35-%7 44 340 a4 60 og 78 240 4% %% &4 le 4% 50e %-1e a1 8 a1-20 50 30-23 18 49-18¢ 6-29 12 29 %-1 60-10 60-16e 40 10 59 134 6-29 39-12¢ 12 &3 85-1 60 18 a4 25 120 360 120 3490 6-29 78 - 55¢ 78 ST S7-426 37 e61 6u.‘z - u: E *0 ..x.a: 3 5% % S7- 121 49 L)) 56 -47¢ 121 121 121 £3 % 118 16 37. 101 31 1212 14) -41e 12 120 6-29 [ 37.93 9 20 ¥ ¢ a2 ) “33 132-99% 121 400 122 121 126 126122- 121 12¢ . ¥ 33-47 78-2%¢ 384 12¢ 121 121 | P4 122 S? 37¢ [d ® 6-29 121 (9] 27-3 e 53 2.8 80 o 3 £ 333 3§ ¢ 36-29 49 20e 122 24 o} > 131-10 99-1% 99-169% 122 121 &0 - > L] 3 6-29 12-29 8%-1 - 27 %2 37 319 -y > 19 40 4% 26 37 2 %2 12¢ 7 33-43 [ PRI 37 104 24 &) " 27 ~ 58 77 86 12 25 -0 I -0 -0 o g 39 - ~ g 1 1 ~ 7-80 5 85 73 $SUREG 51 121 &a0 57 229 121 122 122 ® - 200 04 43 21 120-110 1SUPR] $SUPR2 ¢ SUPRL I SUPRS ¢SvPC $5uWR 180 $? 121 S? =X S St 45-42¢ 5420 13 e $SI12¢ ¢S] Y $S0F 155¢C ¢ST1OTL 31 4 57 37 b Y4 .wvo,u NN S 126-9 21 &4 22 13 3 $StExS 2RV 4 1«1 1% &7 1%2 33 9 121 11 1< @ 29 19 20 13 o 27 SEQ 0239 exegy 26 -89 121 121 &3 S @ £% 12¢-10 126 9 22 11 121 29 % N PF 3] 18 oNn 4 V- 60 &1 po 40 39 126 0 ISAVRE ¢ 5 .20 10 & 1% 22 1% MRIOTL JFC B8 [__J 9 121 121 PP oINS ELELE "wery] |P | | ) 15 0 T8¢ [ see( (O 12 &0 12 g°°"sgsus 600 a¢ yOB 12¢ 0 40 § [] shrga e 00 121 ss 1.1 121 ((N6 v oA, ¢ s8¢ ADR $o(@ NA'R; vy 0 YAB.E SFTPPELT RN (o055 MECLMENCE wA (70 YO B6C P ¢ XON 3— - N 3333 333¢° 21 150 27 % 20 26 12e o 43 18 } 11e -1e e 9. ) 97. ) 9. ) 9?. 10 9.3 7.3 L229 L44 \24 97 7 97-%0 4 _J 120 . 9. \2/ [ & 97- 9. 97. Lo dad ok ad 9710 9. 9. 9 97. b 97. 9? b o 97. - oo o 9? 7. O 101 - ¥ 25 &3 : 311 & 28 3% Y 3 33 333.: 11t ey ; 333322333 g3 3 10 1 97-) 22N L 9710 120-29 43 22 39-9% es-1 120-27¢ 43-2% 120 19¢ 120 37- a8 - 120 120359- 120120- gne 120-27 120-46 & 3T 36 -93% %-13 S7-92 § <=§ 90 -52¢ 60-9 S6 -51 $3a 12-n o - - w - r.. o % 1 9.1 "1 9 10 .2 22 61 101 - k3% PV IV | D | 1 &0 7 WMQ 0458 S 3pee £ £538 SWYOTL SWIPAS SXOFF ® [V [ SUN]T tUNITH SULWR sve(CY} evECT2 11 & 1) SMROL e & 9 5 Buss (AR] 1 o s 1Y ON 0T YOS o710 22 38 e a2 PaF =88 3 ? (AR{_ Jd x eVvPt 3800000 <e3228228 g2k 07S T eTVvin AL (, ] sTYPOS slvpt E (R EXL,] 22 S - eees s TRr D F( 03 10 67-7% “:‘0‘ ~ ~ g P .' s ) 3 ~ ”oe $TAPp o T -~~~ S te gy L BE, o) BL] o Yoo 0L (R] A (R{2V 'TPS s Thap 0090 eTxg S 00 L 2l| 12 &6 Li) " L34 ;-1,giigsr-iiguu-8-u-—m- LRLX?}" ] &0 ® LRLE? K L R L A9| Sy 1# vy ) 'D2 Tr It %0 ¢ 00 “.“.“.‘1";-Ml-¢=‘\'.:gzlbs E R L AR,| L AL| 2 % bt3 $88it, 3 £2233338 9 Ty N0 | vOR OO e e+ T T4 1311 -43a ~gtal Talel 4 oTM RV R R 7 s ((M¢ i @ 4y %4 oo oo Ry oo oo oo 9o s1av ¢0 ma®) vy38 TABE 32333232 el GIEr popspepogeps C7® IO BB (05, MIMINE ® 30 4% 120 23 120 %9 30 30 120 ¢4 120 &0 - W | Alrnld A wid [ WL A i Alxray ] [W ALY S X nd Al Al ? ADOWS AW At vCY ADt vin Al Ny Al v N ATAL AR ANADR Y G222 e 4-000 2oyy=- ofeseenn.? ] % 108 47¢ 107 %S¢ 88-1 -1 9-10 -1 ?-10 110 22¢ [ [T Be 000 Ay iwl0 (TR| ) 000000000000000 Al e} .08 OO © ‘l'vm [ P b al Al 1Oy [ IR| 1 N [ X [M)| ((M* 91-10 91-10 . vos 00 | SFC 03 10-02:70 Pl -9 1 N ka4 [ . sle ay? §~3-0026ooooéooooooooo zéoboooobooooooooooooo $ 9 o S OOOOTM sacta |3] S Mt imoaCE AR & ugmg:-ouo...o-..-.oo.ou...oo..o..o.o.ooooooo ”..O—-OOO - OO Cvg® TMo Pty (70 )Mc @O PN - 107-1)e 1100 s o WA, K4 ad—— -t - LS CTPJOR0 Gen” Gar ¢ 140 MaCR) v08 00 | -GRC 03 10:%2:70 Pig & 7 Co056 MIMNL ARt (ORE' LAy o3 6% 2% Ay NS 69 A5mnT o9 o8 A5 el A5 Mh A Sl ASMND ASPAR AYELY AYEAR AL ST APSSC ASSIGN AN, avQ ary aTQ Arg 34 ¢3 3 ¢’ &% (Y %) 19 22 19 91 9.0 o8 -4 71 2¢e 7% 1 7% 1% 63 2% 63 e 0-0 ;-lm B8t GuC 8110 81100 81101 817102 BIT10S 81704 81105 81106 81107 81708 81709 817} 81710 8IT11 63 39¢ % 9 21 52 63 880 63 16 S% ¢ ) 4% 8% % 20 o8- 22 e %0 7S e - 2% SO » 43 Vie e % QY %3e 14 o8 B % 43 Ve e’ & 3 % o4 10 o0 130 0390 04 21 @8 37 7} 120 ¢4 20 o4 Sae 78 1 131 §-20% 9-2040 @-0 9-00 BELL 63-30¢ 5 -4 -0 20 9 20160 ATESTTMM AlTN at PATY 19 29 - 1990 gaooo 19-29 BADTMO 8Al 8tGCAD 120 a0 129 - 2% &8 .60 ATABIT BADENT 3 one 43 %0 'S S .20%0 $.173%0 B8ADLGEC 63 %0 o3 % Ar? ATA PVECTY AVECTQ ¢3 0% ¢35 0% 3 $.2000 AUNTY AULHR AUTLST AVAIL %00 3 ¢ 63 93 9.00 3 088 ) ¢35 % ATS AYS ate v0e .00 59 -2¢ 73-1 100-39¢ -0 8-0 19-30¢ 9-00 80 8-0 64-13%¢ 18-22 6-270 e-0 12 130 9-00 12 3¢ $-1%0¢ 9 O0 9 00 9 00 127 3 S-1040 S 104 S-104 S 104 $-104 $-104 S$S-104 5-104 S-104 5-104 5-104 $-1040 S$-1040 $-1040 s 0 86-1e 80 e-0 19-%2 21 12e 12-27 66-33 66 - % 66 - 38 128-4} S-1040 S$S-1040 $-1040 $-1040 $-1040 S-1040¢ $5-1040 S-1040 $-1040 S-1040 24-41 22-55 22-53 ¢ %2 103-¢7 63-4¢ 105-10 63 S o8 10 o4 12 o419 106-03% 108 24 100 -47 109 %0 731 19-27% 73-% 20-66 73-1e 20-49 73 1o 20 - 06 73 100 21-% 15 63-19 70-% 126 9% e R 109 o4 34 7 2 n e 74 109 &2 109 89 109 113 108-3%9 115-14 126-1 71-27e¢ 19-.23 8-0 19-9% $7-61 104 60 16 60 17 60-18 126-86 1%4.7 134-8 106-227 45-7 45-7 111-43 111-28 111-%0 57-2%7 103-77 62-98 106-154 108-77 104 -44 105-93 108-12 109-78 114-17 86-1 57-285 106-208 103-31 105-17 106-17% 109-129 60 19 60 -20 66 - 34 66 -39 1268 -48 8¢-1 22-959 24-33 24-33 33-11 26-6 22-% 24-53% 22-57 33-43 24-17 24 8) 120-8% 86-1 104 -957 106 - 209 31-9 24-%7 102-%7 26-9 24-61 108-77 86-1 44 -52 24 -87 57 263 111 % M4 CTRIOORO APOT PERF FYER MATMR) vid OO 8l1v31e2 19 88 CROSS RMEFERENCE B1Y1¢ 81714 8Iv1s 8172 6718 8.4 813 8.76 eIrvy 8178 81719 BLXADR BLNS1 BLNKS2 BLNXSS BLNXKS4 8Pt BPTVEC B85k BUFTBL S 1080 TABNE (CREF vO8 00 22-31 112 16 118 2¢ S 1060 13 33 S 1040 22-11 88 27 $7-278 115-1% 28 65 22 13 104 S} 106 205 106 208 S 1040 22-6) $-1040 24 69 S 1040 29 25 108-39 33-47 113-%0 S 1040 22-9 S S 1nae 1040 24 26 73 52 $7-90 S 1040 28 18 29-3 S 1040 S 1040 9-0¢ 19-19 16-47 $7 166 26-24 24 835 12-65 42 -47 34 -34 57-182 42-44 127-65¢0 16-20 127-640 5-26660 S-1040 S-2740 9-00 14-7¢ 30-31 32-24 16-59 42-59 38-62 S57-302 14 -8+ 47-25¢ A47-30¢ 62-19¢ 62-32 53-14 106-12¢ 106-53¢ 106-61¢ 106-86¢ 106-84 106-115 105-52 106-129 109-70 55-16¢ c17e 50-45 105-39 106-44 105-42 105-32 106 51 106-104 104 -37 106-125 106-177¢ CK.CHR CK.DEC CK.0IG 82-32¢ 82-100¢ 70-27 83-20 82-38 83-14¢ BUSADR CFLAG CHMGADR CHXMC CI1 C12 CI3 CIe CIs Clé cI? CIis 47-13 42-7 24-101 12-79 9-00 38-46 9-0¢ 106-180 CK.NUM 132-32 CK.OCT 81-42¢ CKBUS CKCLK CKCLK1 CKCLK2 CKCLK3 CKERR CKFMT CKHCE CKLMTS CKSWR 22-19 16-4 58-7 58-19 S58-15 22-18 24-59 24-63 50-19 86-1 132-1%¢ 12-95¢ 12-15e 12-120 12-18e 35-26¢ 58-5¢ 58-17¢ 58-28¢ 58-26 35-3¢ 29-3¢ 30-3¢ S0 29 86-1 | JFC 83 W20 PASF 2% $7-223 103 &5 103 %8 108 77 108 40 103 3 1086 209 30 68 22 %9 105 22 32 24 o8 37 108 44 81 2¢ 24 &5 107 12¢ 20 13 29 19 30 2% 51-4% 32-8 109 12¢ 111 93 111-28 111 &3 108 31 112-18 24-99 11% 12 27 &5 32 24 8% 1 248 49 111-83% 111-85 111-93 105-22 109 &3 106 20 106 -9% 106-173 29 8 30-3 508 32-24 17-% $9-24 63 60 63-80 63-76 41-3%7 70-20 41-37 70 22 42-56 127-670 37-¢9 37-110 S7-161 14-19 14-21 46-12 46-14 46-28 47-12 26-6 44 -42 $7-14 38-81 57 302 14-9¢ 47-35 15-18e 63-4 17-18 106-170 106-120 106-33 106-152 271-68 59-70 41-12 57-313 14-12e 59-72 41:-17 127-660 $9-80 41-17 132 27 47-36 47-49 14-13¢ 14-15e 15-22 15-37¢ 15-43 17-47¢ 67-32 96-30¢ 63-9 70-9s 70-25 106-166¢ 106-37 106-49 106-58 106-169 106-172¢ 108 16 111-76 133-10¢ 73-7 96-19 52-37 S4-15¢ 58-37¢ 51-37 97-14 SE0 023? 26 ? 106-160¢ 106-118 106-23 106-140 62-38 S O 26 ¢ 106-103 83-28 10 28 91 106-67 106-190¢ 109-7 132-44 82-40 ) 104 .37 108 &0 64-13 9%-33 62-23% a1 32 132 39 14-18¢ 15-86e¢ 70-35¢ 15-94 85-Se 132-13 132-15e 106-66 109-67 106-77 114-31 17-50e¢ 96-22¢ 106-82 18-3 20-9¢ 34-3 34 24 96-26 132-22¢ 132-30 132-42 106-94 106-102 106-110 106 114 CZRJ0BO RPO7 PERF EXER MACRO vO4.00 1-DEC 83 10:32:28 PAGE S-9 CROSS REFERENCE TABLE (CREF vO4.00 CLKFLG 9 O¢ 58-5 62-27 58-448 CLKOFF CLR 5-132¢ 62-15 CLROPB 17-31 63-66 106-226 CLRQUE 102-17 CMCNY CMOYL CMDAT 9-08 9-06 36-32 CMHED CMPAR CMPARD CMPLMY 36-36¢ 22-31 26-66 9-0¢ CMPTIM 9-00 CMPRES CMPRT CMPRX CMSEC CMSTR CMSTR2 CMTRK COLON COMMA CoMTBL CPSAVE CR CRLF 18-45 36-51 36-48 36-162 36-47 36-3¢ 36-5¢ 34-43 61-4 36-24 36-26 36-27» 56-70 58-21+ 66-9¢ 111-52 117-18¢ 36-17e 37-3¢ 36-19 36-36 37-51 37-65+ 37-53 20-88 37-30 37-56 21-40 37-42 37-70 56-674 38-8¢ 37-84 9-00 36-18+« 37-57+« 37-58 37-60+ 36-41 9-0¢ 61-17 19-18 9-0¢ 86-1 36-45 37-61« 61-22 59-79 56 -36 36-50¢ 37-62 128-57¢ 62-22 66-35 86-1 36-210 S5-1040 5-104¢ 12-94 86-1 88-1 9-0 12-94s 88-1 12-6 20-15 20-15¢« 37-77 37-64+ 37-81 63-75 128-5¢ 86-1 86-1 12-31 12-31 36-30+ 57-47 37-50+ 37-55 37-83« 22-22 22-24 22-24 22-26 22-28 22-30¢ 86-1¢ 86-1» 86-1+ 87-1 37-66 37-93¢ 12-45 37-72 12-56 12-62 59-93 59-109 S59-125 61-39& S9-148 129-5 59-149 88-1 88-1 127-55 128-41 128-84 134-14 96-5 127-56 128-48 128-85 134-15 96-37 127-58 128-48 128-86 134-16 96-38 127-59 128-52 128-88 134-17 96-38 127-60 128-53 128-88 134-18 125-6 127-61 128-54 128-89 134-19 125-7 127-62 128-55 128-89 134-20 125-8 127-63 128-56 129-25 134-21 125-9 128-19 128-56 134-6 134-22 127-48 128-20 128-59 134-9 134-23 127-49 128-26 128-60 134-10 134-24 127-50 128-28 128-60 134-11 134-25 127-51 128-30 128-62 134-12 134-26 127-53 128-37 128-83 134-13 134-27 134-42 134-43 134-44 134-45 134-46 134-47 134-48 134-49 134-51 134-53 134-54 135-1 135-2 135-3 135-4 CTRAP 85-1 CYLLMT 37-68 30-10 134-29 135-5 85-1 67-13 30-11+ DASH DASH13 DASHS DATAO DATAl DATA10 DATA11 DATA12 DATA13 DATA14 DATA1S DATA2 59-71 59-50 18-41 10-0 10-0 10-0 10-0 10-0 10-0 10-0 10-0 10-0 128-6¢ 64-43 59-30 10-0¢ 10-00 10-0¢ 10-0¢ 10-0¢ 10-0¢ 10-0¢ 10-0¢ 10-0¢ DATA4 DATAS DATA6 DATA? DATA8 DATA9 10-0 10-0 10-0 10-0 10-0 10-0 10-0¢ 10-0¢ 10-0¢ 10-0¢ 10-0¢ 10-0¢ DATAS 58 44 58-9e 36-12e SEQ 0258 ) 20-37 37-18 37-49 134-28 CYLNDR 36-11e N4 10-0 10-0¢ 134-30 135-6 85-5¢ 67-37 134-31 135-7 134-32 135-8 30-12 67-38 30-15s 67-73 30-48+¢ 73-1 73-1 73-1 128-31¢ 128-32¢ 134-33 135-9 68-10» 57-224 134-34 135-10 68-17¢ 57-302 134-35 135-11 121-12¢ 57-302 134-36 135-12 121-13 123-8 172 37 121-14 133-794 134-38 121-15 ! 134-39 121-19 134-40 134-41 5EQ 0259 CIRJUOBO PO~ PERF EXER MACRD v04.00 1 DEC AR 10:32:°6 PAGE S-10 CROS5 REFFRENCE TABLE (CREF V(4,00 ) DATAl DCw DCKER DCKER] DCv DO1ISP OORVS DEVOFF DGE ) DH14 DH1S DH16 DH1” OH2 DH3 OHa D6 DISPLA DISPLY 62 69 5-192¢ 24 -97 26 2 5-267¢ S-1040 9.0¢ 71-21 5-262¢ 11-5 57-66 §7.7% $7 79 S7-87 11-12 11-19 11-26 11-40 8-0¢ 2%-4 29-15 33.45 38-40 41-11 42-44 $7-64 $7-146 57-195 57-25%6 S7-324 57-412 00000000 0'00»'00000 7-10 5-1420 22 -45 5-2650 65-132 25-3¢ 30 85 8-0 18-14 125-1¢ 125-6¢ 125-7¢ 125-8¢ 125-9¢ 11-33 125-2¢ 23-37 24-4 125-3¢ 125-4¢ 125-Se¢ 12-25e 30-21 33.49 38-41 41-12 42-47 24-103 102-39 12-25+ 30-45 33-51 38-62 41-17 42-50 57-66 57-152 57-200 57-288 71-29¢ 75-1e 86-1e 24-15 30-61 34-16 38-65 25-10 30-84 34-21 38-70 41-17 42-52 25-23 31-22 34-23 38-80 41-32 42-64 41-21 42-56 $7-75 57-161 57-208 57-297 57-361 25-39 31-32 34-33 38-81 41-37 42 -66 26-27 31-41 34-34 38-90 41-37 42-67 57-99 26-70 32-4 34-37 38-93 41-40 44 -68 57-29 57-113 57-182 57-239 57-313 57-387 27-47 32-39 35-34 40-36 42-37 57-55 57-119 57-183 57-242 57-314 57-392 27-6 32-19 35-16 40-30 41-41 57-304 57-385 78-36 57-110 57-179 57-231 57-310 57-386 80 34 111-58 111-69 111-79s 106-215 109-28 111-22 111-60 111-71 111-89» 130-20 130-20 130-20 130-20 130-20 130-20 130-20 130-20 130-20 130-20 130-20 130-20 130-20 130-20 130-20 130-20 130-20 130-20 130-20 130-20 130-20 130-20 130-20 130-20 106-214+ 108-5Se 109-40 109-64 109-73» 111-31s 111-37 57-87 57-166 57-216 57-302 57-377 57-447 57-336 57-418 57-69 57-158 57-204 $7-290 57-342 57-421 103-16» 103-33 103-85e 109-114 104-26 126-2 12-98¢ 12-98¢ 12-98¢ 12-98¢ 12-98¢ 12-98+ 12-98+ 12-98s+ 24-10 64-40 128-41¢ 105-11e 126-3 122-8¢ 122-8¢ 122-8¢ 122-8¢ 122-8¢ 122-8¢ 122-8¢ 122-8¢ 33-34 105-45+ 126-4 130-20 130-20 130-20 130-20 130-20 130-20 130-20 130-20 33-62 106-182+ 106-195 57-65 57-149 $7-197 57-268 57-330 S7-417 12-25 57-424 57-98 $7-167 57-223 57-303 57-380 57-462 57-171 57-227 97-20 28-8 33-4 38-33 40-37 42-38 57-57 57-125 S7 186 57-245 S7-317 57-393 24-310 23-10 62-55 71-31 5-220¢ 16-17 128 -20¢ 98-23¢ 104 -32 6-60 DRVINT 12-25 64-15¢ 28-31¢ 103-15¢ 130-20 130-20 130-20 130-20 130-20 130-20 130-20 130-20 71-200 106-163+ 106-183s 106-193 104 -21 109-101 109-117 109-116+ 111-20 130-20 130-20 130-20 130-20 130-20 130-20 130-20 130-20 71-52 111-34 111-44+ 28-32 33-23 38-39 41-2 42-41 57-63 57-132 57-193 $7-250 57-323 57-394 _— L 2EQ 0260 CZRJUOBO RPO7 PERF EXER MACRO vO4.00 1 OEC 8% 10:32:28 PAGE S 11 CROSS REFERENCE TABLE (CREF vVO4.00 ) 8-0 126-7¢ 126-8¢ 126-9¢ 126-104 11-34 126-3¢ 126-40 126-5¢ 30-81¢ 100-33¢ 111-62 N e 33133 T4 3 1 ® O - » 20000 OO?OOO HOPO?OO???O# [ [] [] [] 23-23 59-68 2%3-27 63-21e 67-80 107-20 63-63 105-19 59 74 65-73 $7-67 63-70 71 9 86 1o 67 34 71-8% 128 8¢ 118-22¢ 102-31e 109-38 103-22¢ 102-32+ 109-44 103-410 102 43¢ 109-119 103 46 103 21 111 80 103 S1e 103-30» 103 104 55 106-232¢ 106-187+ 106-198 106 216 106-218¢ 106-224+ 107-6 108-6+ 105 23 63-88 102-29¢ 102-30¢ 106 231e¢ 109-32 68-14 98-528 105-35 106-50+ 40-24 40-25¢ 40-4Se 98-37¢ 73- 79« 104-19 111-25 111-40 103 12-25 126-1¢ 40-3s 40-24+ 41-17 40-59¢ 1] obbd 63-5e 63-79 104-40 128-61¢ 17-28 104 -49 16-49 40-51e (7] ECWRD1 EM] EM10 EM11 gEmM12 ) = DVA ovC ECBADO ECBAD1 ecaIrr ECC ECC1 ECC2 ECCX €CGD ECGD1 ECH ECI ECMSKO ECMSK] ECSEC ECWRD 23-26 22-3e LR ] DRVMSG 19 16 9 00 DRVNO 9 00 DRVPAR 17 36 DRVPRM DRVQUE 104 -29 8i-11 DRVSN DRYSTA 1€-21 104 -24 DRYTYP 16-25 DRY 5 165¢ DSWR 5-1040 D100 5-211e 5-212¢ D101 DY02 5-213¢ S5-2140 D103 D104 S5-215¢ 010S 5-216¢ 0706 S5-217¢ DYO? 5-218¢ 0708 5-219¢ oT1 11-6 OT14 57-70 DT1S 57-76 D116 57-80 pvL7 57-88 DY2 11-13 oTs 11-20 DTa 11-27 0Té 11-41 DTE 5-189¢ DTEER OTWM 126-2¢ 102-24 40-22¢ 41-17 41-37 40-23¢ 41-38 41-400 41-41¢ 25-5 27-29 40-43s 40-47+ 40-48» 40-15e 40-26+¢ 40-52 40-57 40-18s 40-27+ 40-54 40-69 40-20¢ 40-28¢ 40-63 40-171 40-38 40-29+ 40-31 40-38+ 40-39 40-51 40-53 40-54» 40-60¢ 40-61 40-65+ 40-68 40-70 40-71e 40-72¢ 41-19 41-25 41 -37 40-68+ 40-3¢ 41-2¢ 40-64 40-44» 124-3¢ 124 -9¢ 124-10¢ 124-11¢ 40-55¢ 40-59 CZRUOBO RPO7 PERF EXER MACRO vO4.00 1 DEC 8% 10:32:°8 PAGF S 12 D5 EQ 0261 CROSS REFERENCE TABLE (CRLF vO4.00 ) gmt Ema >3 37 24 4 124 -120 124-1%¢ eMe 20 En2l 11 11 28-8 25-39 124 -40 124-15¢ 124-16¢ gEmM1s EmM22 24 15 27-24 EMes Eree M5 27-6 29-15 30-21 EM27 52-4 En26 €mM3 11-18 124-5¢ EM34 EMSS EMlé EMS7 EMe 35-4 31-22 31-32 27-27 11-25 Erna2 38-33 EMAS EMaq £Mas EMe6 EMA7 124 -18¢ 124-19¢0 124 - 200 124-219 28-32 30-61 30-84 EMa0 Emal 124-170 S51-41 EM30 EM3) EM32 EM3S 124-140 351-4 32-19 35-34 34-16 35-16 25-23 57-98 25-20 124-22¢ 124-23¢ 124 -24¢ 124 -250 124 -26¢ 124-27¢ 124 -28¢ 124-29¢ 124 -30¢ 124-6¢ 124-310 124 -32¢ 124-33¢ 34-21 124-35¢ 27-44 124-37¢ 27-42 EMS 11-32 EMS0 32-39 EMS1 30-45 EMS2 25-10 EM6 11-39 EM60 33-23 EM70 33-45 EN71 33-49 EM72 33-51 EMPTYQ 106-181 EMTVEC S5-1040 ENODCHP 37-93 124-70 124-39%¢ 124-40¢ 27-31 124-8¢ 124-42¢ 124-43¢ 124-44¢ 124 -45¢0 106-230 12-25e 38-86¢ ENDING 9-0¢ ENDPGM 14-8 ENDSEX 9-0¢ ENTADR 128-56¢ ENTCOM 62-28 ENTLMT 67-43 ENTPR 15-101 EQUAL 128-40 21-19 14-13 21-28 ENDCON ERCTR ERPRC1 ERPROC ERR ERROR 9-0¢ 9-0¢ 22-44 22-8 S5-172¢ 5-1040 17-4e 124 -340 124-36¢ 124-38¢ 124-410 108-40 111-94 118-7¢ 17-8e 17-9 17-13e 17-14s 37-14 37-29+ 38-88 38-91 12-25¢ 17-Se 129-10 133-80¢ 21-31 128-54¢ 128-55¢ 15-108¢ 36-9s 22-50¢ 22-12 36-50¢ 26-28 22-14 44-69 22-36¢ 21-21 21-24 CZRU0BO RPO7? PERF EXER MACRO vO4.00 1 DEC 83 10:32:28 PAGE S 18 CROSS REFERENCE TABLE (CREF VO4.00 ) ERRVEC 1. EWNERR XY Fl .2 FS Fa FACTOR FAIRNS FALPAR S5 1040 86 1. S 1620 24 -43 S5-152e 12-25 86-1e 5-156¢ 45-9e 9-00 45 10e FHMTER 29-10 FHT16 FMTRK FRSTER 5-2430 6-220 9-0¢ GENDPE8 43-30e GENPAR 20-57 GENREG 29-8 GETBUF 20-23 GETID 17-32 GETLMT 67-10 GETPAT 50-68 GETREG 6-15¢ GETRETM S1-15 GETREQ 105-12 GNS 7-1 59-155 GO GODRIV GTSWR HCE HMCEER HCI HCRC HCRCER HELPTX HERTZ HOUR HT IAE IAEER IBSAVE IDLE (3 ILF ILR ILv 12 27 131 1o 12-28e 131 1o 13 6 131 1. 13-7e¢ 131 1e 13 34 58 o 58 7e S8 44-19 63-58e 111-90 59-125 97-1 119-10¢ 19 58 37 8 1 S 153¢ 3-1540 S-1550 FILLO FILLZ FILBUF 12-25+ 131-¢ 58Q 0262 35.410 22 56 23-2160 23-17 28-25¢ 54-43 55-46 15-59 128-88¢ 5-181¢0 20-29 20-64 79-15 79-11e 61-15 61-20 FALPRY FE1 FEOMLY FER 12-25¢ 131-1 ES 97-1 18 45 20 45 39 45 4] 45 590 67 68 67-70 67 71 68 -9 68-16¢ 79-39¢ 79 110 80-13. 80-17 34-13 34 -42¢ 44-11e 44 -12e 45 106-53 121-15¢ 80-38. 31-40¢ 26 -65e 43-32 44 -10e S1-7¢ 30-8 20-61 63-67 68-7¢ 53-28 37-33 44-13e 38-28 44-14. 38-43» 44 -15¢ 123-3¢ 123-15¢ 53-43 52-8 106 -200 S2-30 109-34 12-31 7-1 59-158 97-1 97-1 97-1 S5-151¢ 20-30 12-31 97-1¢ S-184¢ 30-16 32-3¢ S-241¢ 5-185¢ 24-55 28-30 12-134 134-10¢ 9-0¢ 12-89 9-0¢ 12-90s 5-104¢ 88-1 S-187¢ 24-79 31-21¢ 86-1 86-1 18-7 20-43 5-110e 5-177¢ S-178¢ 5-163¢ 16-62 36-3s 27-57 29-5 30-5 20-10 20-11e 88-1 61-33 61-7 86-1 20-48 17-33 53-7 109-60 12-45 97-1 97-1 53-41 109-66 12-56 97-1 97-1 74-70 109-123 12-62 97-1 97-1 44-34 49-7¢ 61-49 61-44¢ 61-45 61-47« 86-1 86-1¢ 86-1e 111-27 59-82 97-1 97-1 86-1e 111-42 59-93 97-1 97-1 86-1s 111-82 59-109 97-1 97-1 97-1 59-148 97-1 97-2 59-149 97-1 97-2 59-152 97-1 E < CZRI0BO RPO? PERF EXER MACRO vO4.00 1 OEC 83 10:302:28 PA# CROSS REFERENCE TABLE (CREF v04.00 ) } LX J 27-88% 60 190 60-18¢ 26 -64 23-28 30-51 38-94 12-9%¢ 128-5%¢ 27-80 8 30 29 25 25 31 34 30 65 26 26 51 &9 60-168 26 49 32-12 26 69 32-23 27 11 32 42 20-14e 61 38e 61 S3 61-55 61-55 61-58¢ 9 9% 28 56-23 56 - 25 56-57¢ 62-10¢ 62-11 58-23 61-31¢ 107-3¢ 2%-4} 30-67 60 -200 28 24 51 16 8 S I esce [ N LT 5£Q 0263 29 238 24 19 51 25 12-6 34-43¢ 127-S540 127-55¢ 127-56¢ 127-58¢ 127-620 127-63¢ 127-610 127-40 127-S¢ 127-60 57-126 $7-138 S$7-223%¢ $7-33%7 127-36¢ 127-40¢ 127-44¢ 127-410 127-420 127-43¢ 44-68 LINOH LINSI LINA3 LINBS LINBS LINB6 LINC6 LINCAS LINDS 14 60-17¢ R LJ INTRVL INVLD 10TveEC 223N e RNERSRREES¥AY INCSx] INCSOF INCTOY 26 -48 rrnnBREZL RS wul dHERX LS INCrRD INCHIS S 127-47¢ 127-52¢ 127-53¢ 127-48¢ 127-50¢ 127-140 127-18¢ 127-26¢ 127-31¢ 127-32¢ 127-16¢ 127-25¢ S57-191¢ S7-213¢ 57-343 57-358¢ 57-433 127-46¢ 17e 27 B4 53 8 129-4 28 17 33 26 28 35 33-54 29-24 35-20 (S C2PJU0BO APO7? PERF EXER MACRO vO4.00 1 DEC 83 10:32:28 PAGE S 19 CROSS REFLRENCE TABLE (CREF LINDAS 179 127 170 S7 2484 S57-249 %0 44 35-1% 30-60 85-33 LINDEC LINt] LInE2 S7 38 92 °3 3 vO4.00 $7-160 57-1635 $7-170 S7-192 S7-194 S$/-196 S7 199 57-208 57 207 S7 213 57 218 37 226 37 230 23-% 24 -3 24 14 25 9 25 19 25 22 25-38 27-9 27 23 28 7 28 31 29 14 30 20 57 289 30 83 38-%2 23-S 23%-38 24 -% LINERA LINE28 LINES $57.37 957-62 23 6 $7-42 $7-650 23-39 S7-610 LINESA LINESS LINESC LINESD LINESE LINESF LINE® 33-6 32-41 30-47 35-36 31-6 31-24 23-7 32-22 34-18 S7-13%10 S7-1380 $7-100 57-1580 $7-1770 23-40 38.7 38-35 28-12 29-22 LINES LINESA LINESB LINEG LINEGA LINEGC LINEGD LINE? LINETA LINES LINENS LINEOS LINEPS LINGG6 LINMS LINWM LINNS LINOCT LINPS LINPS LINRG6 LINSS LINSA LINSS LINSSS LINSTS LINTS LINUOE LINGG LINXG LINXS 31-S 57-280 32-21 27-10 26-55 26-13 26-63 25-29 25-32 23-9 30-3%9 44 -64 30 S2 26-47 357-216 57-314 357-310 S57-336 S7-119 57-239 S57-2 34-27 42-55 57-316 57-197 57-288 57-361 57-158 57-242 S57-297 S7-167 S$7-162 57-227 S57-342 57-149 S7-245 57-303 5£Q 0264 ) 31-23 57-434 33-2% 271-31 57-310¢ 26-54 57-330¢ 27-16 26-60 23-42 50-73 57-377¢ 31-33 24 & 53 58 $7 360 ;;': -60 24 18 31 &2 24 18 S7 379 31 21 S57-420 351 31 57-423 31-40 57 459 323 32 18 32 38 353 3 33-22 33 4} 34 1% 25-24 293 26 -2 $2-20 27-10 32-40 27 S1 33-S 28-9 33.24 28 33 33 S2 29-16 34 17 30 22 35-17 30-46 35-35 30-62 38-34 35-18 57-1250 S7 26 3 27 10 27 51 28 10 <8 34 29-17 30-23 30-63 31-43 32-6 24-18 26 -4 27-10 27-91 26-11 29-18 30-24 30 64 51-7 31-44 327 29-21 30-27 35-47 32-10 37-256¢ 28 22 29 29 30-35 30-72 32-30 35-14 33-31 33-359 S7 3360 51-14 31-26 35-21 335-39 38-95 42 -46 S57-302 42-49 37-312 1190 57-1440 24-7 354-19 28-195 30-28 35 19 30-49 35-%7 31-48 38-36 $7-101 37-237e S7-323%¢ 27-62 27-19 24-9 30-76 32-44 S7 412¢ 27-78 44 -63 127-130 127-30¢ 127-29¢ 127-33¢ 127-7¢ 127-22¢ 127-9¢ 34-36 358-58 42-61 57-68 S7-443¢ 127-110 127-27¢ 127-340 57-213 127-12¢ 127-23¢ 127-280 127-21¢0 127-200 127-15¢ 127-35¢ 127-19¢ 127-240 127-68¢ 28 25 24-20 31 18 29-32 25-33 30-38 26 50 30-75 26-71 31-16 27-85 32-32 28-23 33-17 28-26 53-33 26-36 33-61 29-30 38-64 S7-148 41-6 S7-151 41 17 S7-181 41-17 S7 185 41-25 57-241 41-3%7 $7-267 41-37 S7-270 42-43 S7-302 31-35 31-50 32-13 32-33 33-15 33-36 S57-342¢ 29 33 30-36 $7-4330 38-61 $7-108 1 OfC 8% 10:52:70 PAGE S 16 CIPI0B0 MPOT PERF EXER MACRQ vO8 OO0 {14 76 S 23-25 "STOTL 140 63-6 59-100 10 S70 75 38 21 58 19 3¢ 7% ¢ 20 40 11e 33 S5Se 26 -bo 27-7e 28 18+ 29-25e 30-31e 31-9» 39 160 S4-38 1%0-20 67-1%¢ 130 20 ¢7-47 1%0 20 67-50¢ 130 20 67 N 130 20 121-%0 121 4 121 9 121-6 121-7 121 8 SS 34 67-15e 67 59 130 20 130-20 130 20 130 20 130-20 130-20 55-3%0 67-14¢ 67-353 130 20 130-20 130-20 130-20 130-20 130 20 32-6 13-20 52-20 130-20 $2-17 130-20 61-18 s$2-9 1%-20 s2-31 1%-20 $2-20 130-20 61 -40. S54-16 130-20 54 -22 130-20 S4-19 130-20 67-21e 130-20 54 -39 130-20 $5-21 67-46 67-Sle 67-68 67 70e 67-7% $%-17 67-283+ 67-58 67-63¢ 67-80 67 22¢ 67 S2 67-57¢ 67-79 121-60 e S6 71-4% 54 -29 130 20 S4-33 13%0-20 126-83%0 51-41 130-20 51-39 130-20 51-40 130-20 12-91e $7-53 120-8% 132-53¢0 132-340 126-37¢0 126 -340 128-35¢0 128 -36¢ 71-32 128-210 96 -50 128 -2640 73-1 MSPASS 76 14 S7-393 134-60 128-22¢0 128-230 59-110 128 620 59-116 128-42¢ 126-33¢ 39-106 59-122 59-126 128-38¢ 59-132 126-39¢ 128-40¢ 61-4} 130-20 o ¥sBHeT“ 48 el I L IR 3T 1 433 %% gs - e (o] N MAX TR TRP S azztgguuuao G 20 SERY giflFuwSLEX " OPID RAXER NAXSEC § pubb " DPFS0 MATCTM MAXCYL 14 1% a4 128 .70 3> " _DPay " _0OPa? n_ DPas "AIN2 "A INDA A S & 15 8% 63 44 76 - 40 7¢-%70 76 410 76 S3%e " OFeo MAIN MAIN 19 28 63 %0 S-00 » 15 %0 16 44 >EQ 0269 ) w v LODt L OOP AR LSTAD vO4 00 SELELEY LeP AR TABLE (CWEF - CROSS MEFERENCE HS 32-27e 33 33-27¢ 44 C70 JORG BON° PLAF (xEM MATRD yO4 OC | OFC 03 10:52:20 PAGE CROs5 REFtMEsCEt TABE ((®F vOs OO0 ) "ualt % 2% "0 62 O 128 520 "Ow 10 100 108 ~ 170 4% Lol dd -0 “OCLe S 1% 5 5% % 70 1390 %0 120 480 S 1380 G2 51 9 0o 63 17 %o %5 16 o4 ¢3 98 19.7 128 100 12 192 Nrmvs 1% 9% 20 16 120 178 1% 600 34 S50 ¢ 30 63 9% 128 140 63-8% 126 160 Nl L] 4 NOTAW,. NCTPRS N0 'R NWOTSAF NSA OFFOIR 0F F O 128 58¢ 128 150 16-31 16 20 16 S 37 63 9 S 1610 OPlIER 24 -47 30 -380 on ORDERQ OVRWMRT S 1900 30 690 104 -34 9-00 S-1340 9 O¢ 1S 38 105 80 37 a4 12-83 128 840 PACK PAR PARY 63 o1 65- 3¢ 3-1000 129-3 129260 PARLS 129-11 129-410 129-29¢ 130-20 PARLIL PAR12 PAHIE PARLI6 PARG 129-8 129-% 129-9 129-10 PARS PARG 129-3500 129-510 PARS PAR9 PARENT PARER 129-330 129 3540 15-109 24-7) PART 19 28. 63 80 26 26 37 a3 57 344 61-31e¢ 61 3% 109 87 109 139 18-93 20-31 20 42 20-69 65 -8 635-13¢ 63-19 65 220 130-20 130-20 1%0-20 130-20 18 130 S 2400 90 24 %o 10 Oe 12 8% 39-450 orTeL 19.27 22% 9.0 22 60 100 9-00 18 43 OPlLR1 Pt 19 20 37 6 oFFSEY OfFLIN oS oM SEC O SUN orl Q 0298 %7 o uAN " NT Nty et L0 ] S 17 129-320 90 20 10 18-1 108 34 37 &6 16 3?7 21-3 % -31 1%0-20 1%0-20 129-38¢ 129-39¢ 129-400 129-420 130-20 130-20 130-20 130-20 130-20 130-20 67-44 31 3¢ 130-20 130-20 70-80 130-20 130-20 130-20 130-20 130-20 130-20 130-20 130-20 130-20 130-20 130-20 130-20 130-20 13%0-20 130-20 130-20 130-20 13%0-20 13%0-20 130-20 13%-20 1%0-20 1%-20 130-20 1%-20 1%0-20 13%-20 1%-20 130-20 13%-20 1%-20 13%0-20 1% 20 C70 XINC BPCT SIOE IR0 TMArW0 w08 00 | P05, MFEMINCE TaBLE (CRES wOs 00 ) Cam Y P8 500 L 4 38" I (L) Patfm oaia 18 22 ® 0 9 00 % 138 19 -1 1%10 St&jOD %4 38 | o 108 o ¢Cm PreCmy milw PTi(ns GriCred Py oGt o el L, ] PIkuve PORLOR POAN a0 o Lot 4 gl | Las] gt ) | e add PROCES PE'HAD PRIN 41 PSEL [ ANV PUNSAF P .6 Pt P 74 e 131 20e @7 3 O § @7 @7-% @87-% S 1% 9 1670 $-1N0 S 1080 S 1080 105 21 30 14 $ 1080 S 1000 S S S S S e 10 er 0 e? 0 er-10 er 10 11} 22 1220 %@ 26 51 24 140 10%-9 109 -5 108 S S 1140 1040 22 %2 3153 %-1 S 1080 23-%¢0 16-12 %-110 42 160 12 08¢ 62 193¢ 17 17-S1e 87 116-29 116 2¢ 116-27 116-26 116-29 116-% 118-26¢ 119-14 117-%0 119 3 70-21 M7 33 ¢ QDRvY2 QURVS QURVE 16 7 Qmvy 116-8 Qwve 116-9 QRry? 116 10 QIPY f106-3%¢ QOUTPT 116 1640 QLTARY 116 2% QLTOP 116 240 QERP 116-31 QLS 109 3 2¢ 12-2%e 118-Te 116 3 116 @ 1316 S 116-6 1% e 12 PsiveC S 1040 12-2%¢ QCwY 115 2% 117-319 ARv0 QY] 9 179 7 a1 31 S %% 109 L2 119 20 M1 N0 97 YW Wi $7.437 0 V? 9?7 a2 120 310 %o 39 % se 109 S® 119 39 121 } 22 &2 S 100 %% 106-153 12 o2 )Y ¢ 8 108 8% 106 30 640 36 a1 11} 99 151 07-1e S.-2%0 .3 o0 % ss e? 10 1000 1080 10640 1040 1000 S 1000 21 :'o ”{:7 Q@ 0087 129 -¢ = ” JS 129 %0 720 9 00 % 108 u-cs JEC 03 10:32:78 PacF § 10 116-16 116-19 116-16 116-17 116-18 116 19 116-20 116 21} 118-9 118 % 117-2% 118 28 117 110 ne 116 2% 11¢ 24 128 -3¢ 62 9% 79 Se 81 20e o -10 % 1o % 3 % 140 % 1o 118 22 % -1e 118 260 % le 119 11 %% 1o 119 2¢e % 1o 117 Se 117-60 117-70 117 8¢ 117-9%0 117-10e 118 27¢ 119 26 118 30 118-20 119 29¢ 119 33 118 30¢ 119-30¢ 119-%) 119-33%. 117 %o 117-a0 102 19 % 1l 102 16e 102 47¢ 104 11} 104 12¢ 104 080 | (70 FIRC @07 PIaN Cri® ma D y' v (o055 MEC ML 'AB. ¢ (¢ v X L) Si10e0 e S Sy $31 1000 %0 1200 S 12 75 %o Gmg: TM 9 OF $2 (T8 129 ¢ 1.%v 1% 9 5% Pme-atl 48 1.9 Gne. e 68 10 83 oy b 17 % 43 st 11 Lald RS B2 o a0 J0% 37 Ghe e LI} L IR .ot & o> Iy ~, 0 [ (¥R ot ADNDR " .rd) Maly TMoy TM N0 TM T mMoaPw f.8F ot 9 i~y Nt UNC LAY, 14 81 1] o v g XY e aroY AP ADR aPAs S5 00 140 9 00 1 ¢ 2% & 280 12 118 9 00 ‘ g“. 2§ 206 ¢ 120 ¢ % 63 300 30 8% @2 7% 21-6) ¢-70 " & a8 23 129 9§ S % a4 18 19 &) % e o XX 30 ¢ 30 ? a3 1¢ a3 9 483 &) a3 ¢ 43 %0 2?7 o5 #Q Osan &0 106 1086 12 10%e § B9 12 S 103 o8 e 10 90 90 1% #0 KS 12 108 1% 19 as % 100 108 123 108 1% & %W ey 19 o} ? 100 j@ 0 29 %0 o) 1 ® % 16 37 19 37 aree 100 9 111 19 111 o8 %' 182 29 1% & 108-83 108-63 10 o7 &4 o 'O 112 1080 118 22 00 ar.7e0 L_ I | "1 9110 9-00 l: 200 &5 260 %0 S‘go 26 1Se 30 0% 26 4o 31 10e b Y b ) 3 200 2 $3 10e 27 12e 38 200 27 22e 37 -8%¢ J7-01e 37-4% 3760 27 &6 33 % o4 - 30 08 -380 - 8- 37 399 13-17% 13-2% 101 -60 116- % e -9 10¢-110 119 ¢ 114 108 &1 106 80 107-9 111-19 112-1} 112-14 112-18 119 19 106 106 106 108 10% ¢ S-1080 o 13 ae 9-17% 43 10 12-00e¢ 11337 101-210 , 10]1-340 101-160 109-48 62-13¢ 4 16 LA &) 0 OgE Lo 3B )/ APCSE APERL %00 W 74 -48 101-29¢ RPEC1 RPtC2 S 1C 117-%4 awCC RPOC KPS a'dl S QY 114-% 101-160 "PCSS RPOA ®08 S %0 B° TM 1% 62 % araa RPBAE & | 109-90¢ 101 -35%0 101-170 101-230 101-280 101-19¢ 101-25¢ 101 320 101-330 29-0 12 13-1%e 43-3} e8-16 e2 16 101 -40 10347 108-26¢ 113 22 104-4%¢ 103-24¢ 109-129 101-180 113 26 10%-4%¢ 3108 31 111-6% 102-37¢ 109-112¢ 111-16¢ 106-32 114 1S 106 3 103 63 105-38 13164 2¢ 308 102 % 104 18 106 19 108-47¢ 10 102 &8 109 § 115-9 109-90e 13« 48 109 82¢ 109 113+ 111 9% 103-% 103-16¢ 109-17 106 -48 106-01 106-199 103 23¢ 103 25 104 26¢ 105-1%¢ 106-16e 106-62¢ 111-30e¢ 112-19 106-7¢ 106-93 106-635 108-6¢ 106-101 109-9% 111-16 101-200 103-69 109-95 113-2% 113-29 116-11e 116-}? 113 10e 1951 106 87¢ 115 19 305-97 168 106-203 100-2% 179 106 227¢ 107 )0 19 108-13¢ 110 21 20 1% 109-6le CT0 XMMC OB~ PIar ¢rf® " D) yo8 NO | o%C 8% ROy GEsiMoE TABE (M voe 0O ) are e, ~ g oIN1 o A oreg %00 101 101 %10 1s 3 101 220 108 760 [a' 101 270 0P Sy 109 Faad ars ' 160 s M 160 et MY 4 160 ary s 160 10 L /9 Pas P N3 osee 1% & 179 ¢7 102 160 108 22 103 &0 108 37 106 109 102 18 108 1189 108 126 106 109 9o 109 e 109 9% B 102 108 12 179 T s vy s32) ors 'S ® 110-60 101-%0 102-33 [) 73-%0 10 100 36 22¢ 3¢ 2% 109-2¢4 109-33 109-280 109-57¢ 109-640 64 -200 saNN $7-37e 38 19 97-10 102 68 12e 9 -16e 14 10416 103-0 68 121-13%¢ 109-73%¢ 109-42 109-90¢ 109-112¢ 109-22¢ 62-59 -100 199 £c8 unEEt - vuNesegee? 3 H Qn—-E g 3 §3¢ > 1| arve( L " ¢ -zzey IS IVE o=e 333 833 uvnnsiceetlvven :CN-- o o po po [ 109-71 109 88 109 140 $7-497 61-23 67-15% 61-34¢ 67-41 61-335 67-42 61 37e 106-233 109-13 109-136 115-8¢ 109-103 $S-19 12-92¢ 57-492 20-13¢ 102-19 105-37 20-54 104-46 S0-140 105-55 19 106-190 107-4 110 9 114 7 C7® YIRC ABOT PRI FYER marR) vl NO | CROS> MEFTRTNCE YABE ((Wif vos 00 ) SE 1t ot Tve(C S12¢ 70 S1en 1 > IER St A5m SPOTCx SRCrae? STA SYACH ¢ 160 1% & 1% 40 1% 00 15 o7 OFC 63 10:52:20 PACE §-N 19-108 1% 111 16 &0 30 18 109-74 30-%8 109-83%¢ 30-01 a2-70 77-170 %0 6270 14 3¢ % 33 S 27%0 28 103 32 S8e 129 240 28 3 25 3 99 -39 105-10e STAaRT STaRty START2 29-12 106-83¢ 12-2% 12-1%0 12-11 12-210 12-82¢ 58-39% 62-3% 78 4 %-13 21-49 21-31e 61 -97e 12-87 12-160 STATIN STAY]S 45-7¢ STuLmy STNDAT ST0 59-7¢ 64 -42 39-29 111-11¢0 39-3% 59-104 $9-114 STATPR 717-200 17-19 77-29 77-120 ®*® ® 2282 2 IfiUNfiU?NfiUNfiU 69-12 106-157 12-104 S51-12 S-1040 -1040 22-20 -1040 15-15 -1040 -1040 50-39 $7-73 56-26 38-5¢2 77-31s 77-330 59-120 59-130 99-13%6 108-21 62-67 108 -41 62-81 109-35 109-81 109-125 111-29 16-14 21-43 71-41 57-144 73-% 12-31 57-6 85-1 12-104 57-9 85-1 15-1S5 S7-73 8S-1+ 111-95 114-7¢ 73-1 ~ -104¢ 48-135 86-1 57-395 57-425 42-16 SWREG -104¢ -104¢ 8-0¢0 37-16 62-67 96-1 7-12 17-6 12-25 38-S2 62-81 96-1e 12-25 42-16 71-41 50-39 73-1 12-25+ 12-25e S51-12 73-1 12-25s 56-26 81-26 12-31 85-1 85-1 85-1 12-25 16-14 57-144 86-1 17-6 S7-1717 86-1 21-43 S7-395 86-1 22-20 S7-423 86-1 23 -9 62 -a5 86 -1 CZRJOBO RPO7 PERF EXER MACRO VO4.00 1-DEC 83 10:32:28 PAGE S 22 N5 SEQ 0271 CROSS REFERENCE TABLE (CREF v04.00 ) SWTIM 7 TAlE TAB . XY TABLE TABLEO TABLE1 TABLEZ2 TABLES TABLE4 TABLES TABLE6 TABLE7 TAP TBITVE TCF T0 THEAD TIMER TKVEC TPE 22 58 23-36¢ 7-12¢ 67-36 130-5 130-8 130-8 130-8 130-8 130-8 130-8 130-8 S-222¢ S-104¢ 5-270¢ 107-8 S51-29¢ 8-0 130-5¢ 130-20¢ 130-20¢ 130-20¢0 130-200 130-200 130-204 130-208 130-20¢ 57-193 128-78 100-20& 111-88+ 5-104¢ TRE TRFER 5-263¢ 5-104¢ 5-1044¢ 5-116¢ 24-51 TRMREP 21-56 TRTVEC TST1 TSTANY TYDRV TYPORV TYPDS S5-104¢ 12-19¢ 9-0¢ 59-81 19-21 59-150 TPVEC TRAPVE TRKLMT TRNSWT TYPE 37-62 208-3¢ 103-18+ 103-83s 85-1» 85-1s 12-25¢ 12-25+ 32-18¢ 106-161s 106-209+ 108-8+ 109-85+ 67-40 68-11+ 68-18+ 121-14¢ 106-219+ 106-225+ 108-10 108-11+ 111-24 111-39 111-45+ 111-73¢ 111-81e 15-32 15-38 15-7s 81-11¢ 63-77 59-153 15-57+« 67-17 67-66 81-12¢ 59-156 S59-159 59-166 97-1¢ 15-53 16-46 21-54 58-30 15-55 16-47 21-56 S59-22 15-59 16-55 23-14 59-28 15-63 16-64 23-15 59-30 15-91 16-69 23-16 59-31 15-104 18-39 23-21 59-50 16-17 18-41 23-22 59-68 16-18 18-42 23-23 59-70 16-20 19-15 23-25 59-71 16-28 19-16 23-26 59-72 16-31 19-18 57-8 59-77 16-34 19-19 57-11 59-79 16-37 19-22 57-12 59-80 59-126 59-167 63-73 71-9 59-131 59-168 63-75 71-11 59-132 61-17 63-76 71-30 59-137 61-22 64-43 71-31 59-148 62-20 64-44 71-32 59-149 62-22 64 -45 71-33 59-151 62-23 67-43 71-36 59-152 62-24 70-12 73-1 59-154 62-28 70-20 73-1 59-155 62-92 70-21 73-1 59-157 62-94 70-22 73-1 59-158 63-6 70-30 73-1 59-160 63-19 71-7 16-44 20-16 S57-14 59-82 59-125 59-161 63-72 71-8 85-1 86-1 85-1 86-1 85-1 86-1 85-1 86-1 85-1 89-1 85-1 90-1 12-8 62-25 85-1 87-1 96-1 TYPON 97-10 TYPRIA TYPSUM 680-41 59-32 UCPAR UNS 22-54 5-191¢ 12-48 12-30 59-93 73-1 96-21 12-31 S59-94 73-1 96-25 12-59 16-19 59-49 59-64¢ 23-140 12-45 59-99 73-1 12-51 59-100 77-32 85-1 87-1 12-56 59-105 79-32 85-1 87-1 67-39 110-14s 106-186+ 106-197 12-6 67-14 110-12 106-184 128-28¢ 57-498 109-58+ 106-13+ 99-310 S4-47 105-48+ 55-50 73-1 TYPOS 1°27-8¢ 55-23 59-87 TYPOC 57-200 12-62 59-106 81-11 85-1 87-1 12-117 S59-109 81-12 85-1 87-1 12-130 59-110 81-15 85-1 87-1 97-1¢ 132-21 132-24 132-27 132-36 132-39 19-17 23-27 59-69 63-74 71-10 71-35 87-1 97-10 132-26 132-38 12-132 59-115 81-17 85-1 87-1 97-10 12-134 59-116 85-1 85-1 87-1 111-51e 15-19 59-121 85-1 85-1 88-1 59-122 73-1 85-1 73-1 85-1 CZRJUOBO RPOT PERF EXER MACRO VO4.00 1 DLC 8% 10:3,:°8 PACT S-28 Bo 5EG 0272 CRNSS REFERENCE TABLE (CREF Vv04.00 ) UNSPC UNTASN UNTNOT UNTOFF UNTON UPE US1 use US4 Vv WALT WATPAK 4 15 63-25 64 21 16 34 24 -39 63-39 64-37 63-95 33.220 128-12¢ 128-110 128-92 18-30 20-19 20-2i% 20-35 56 -28 56-37 107-28 128-10¢ 16 46 5-1408 S-127¢ S 128 S-12v¢ S5-164¢ 9-00 62-90 65-_8¢ 108-27 WC.HK 107-160 WCF WCFER WCHKX 5-182¢ 24-75 33-3¢ 98-20 108-26 WCE WCKD WCKER WCKHD S-141¢ 20-78 9-0 27-30 WE WLEER WOR 6-19¢ 24 -47 6-200 S-188¢ 24-83 5-254¢ WROPOS 9-0¢ 34-28¢ 34-29 38-76 40-33+ 41-7 41-26 WRT.RP 103-55 103-59 106-21 106-31 106-35 WRTCHK WRTDAT WRYUNS 107-16 9-0 129-11 S0-67 56-31 107-18 WROCNT L XXDP Y ZEROS ZROIND 9-0¢ 32-629 -169¢ 106-150 9-0¢ 6-21¢ S5-2530 g-oo 63-42 128-500 10-0 9-0¢ 31-31¢ 14-19 38-7 106-167 14-21s 106-178 14-22 34-38 109-47 15-110 36-40¢ 113-100 12-36¢ 12-39s 12-40 12-42¢ 10-00 36-21¢ 37-28s 37-3Se 37-40 15-112¢ 50-44 53-3 129-3 37-38 37-76¢ 37-80e 38-16 38-19« 38-24+ 106-47 106-56 106-64 106-75 106-80 106-92 106-100 106-112 106-127 12-47 12-58 16 40 16-42 17-24 17-26 63-26 63-28 63-40 36-44¢ 37-3s 37-11s C') CZRJU0BO RPO7 PERF EXER MACRO vO4.00 1 DEC 8% 10:32:28 PAGF M 1| CROSS REFERENCE TABLE (CREF vO4.00 $ SCMRE $SCMTTM $SESCA $SNEWT $$SET $$SETM $$SKIP L$ACTY .SAPTB .$APTH .SAPTY . $CATC .$CHMTA .$DB2D .$DB20 . $EOP .$ERRQO . SERRY .SPOME .SRAND .$READ . $SAVE .$S1ZE .$TRAP .$TYPD .$TYPE .$TYPO .EQUAT .HEADE LSETUP SHMRHI .SWRLO R CKCHR CKDIG CxKNUM COMMEN ENDCOM ERENTR ERROR ESCAPE GETPRI GETSWR MORETA MAT NEWTST POP 7 600¢ 76000 S 1040 S 1048 97-1 12-25 5-1040 5-76e@ 5-79¢ 5-79¢ 5-79¢ S5-770 5-77¢ S-78¢ S5-78¢ S-79¢ S-77¢ 5-77¢ 5-79¢ S5-78¢ 5-76¢ S-78¢ 5-78¢ S-78¢ S-77¢ S-766 S5-77¢ S-760 S-76@ S5-760 S5-760 5-76¢ 60-2¢ 5-17¢ S-27¢ S5-400 80 12 19 97-1 12-25¢ 7-8 8-0 71 91-1 97 1 97-1 97 1 97-1 97 1 97 1 97 1 97-10 97 2 7-600 94-} 95-1 73-1 86-1 87-1 96-1 92-1 85-1 93-1 131-1 97-1 90-1 88-1 89-1 5-104 5-85 6-29 5-87 5-87¢ 60-16 83-20 70-27 5-88 60-17 83-28 60-18 5-89 60-19 60-20 5-92 5-94 5-99 5-101 5-102 5-90 38-24 57-102 59-36 64 -47 66-46 67-81 68-20 69-29 79-34 80-36 90-1 57-208 58-6 59-7 64-28 66-9 68-7 69-10 $0-1 91-1 91-1 91-1 97-1 97-1 97-1 97-1 97-1 97-1 97-10 97-2 S5-1040 S5-104¢ 85-13¢ 86-1 5-1040 109-12 S-104¢ 5-104¢ 131-1 S-104¢ 12-31 7-1460 5-1040 S-104¢ 5-104¢ 8-0 12-19 30-15 12-31¢ 30-48 92-1 93-1 93-1 9-1 - SETPRI 92-1 5-104¢ 5-104¢ SETUP SKIP SLASH 5-104¢ S-1040 5 104¢ 12-25 SETTRA 71 7-1 91-1 REPORT 97 1 8 00 91-1 PUSH 5EQ 0273 ) 5-104¢ 97-1 30-10 85-1 97-1 38-16 97-1 97-1 96-1 97-1 96-1 SWRSU TRMIRP TYPBIN TYPDEC S 1048 s % S 97 1 1 1040 10 5-.1040 5-1040 T8 851 97-1 12-25 7-11 85-1 131-1 12-25¢0 711 86 : 7-11 87-1 80 88 1 5€Q 0274 80 8-0 89-1 90 63-74 7110 71-35 59 82 59-93 59 109 1 12-19 91-1 73-1 92 1 59-125 59-148 fa ST1ARS Do 10:3%32:08 PAGF M 2 85-1 95-1 85 9% 59-152 59-155 59-158 - JRIOBO RPQOTM PERF EXER MACRO vO4.00 1 DEC 83 CROSS REFERENCE YABLE (CREF vO4.00 ) 1 1 97-3 59-15¢ TYPNAM TYPNUM TYPOCS S5.1040 5.1040 5 1040 TYPOCT TYWPTXTY S-1040 53-1240 62-25 12-6 UPCODE XXEP 161 95-2¢0 72-11¢ 9%-1 73-1 59-153 59-15% 59-159 19-17 2%-27 59-69 12-31 16-19 85-1 12-45 87-1 12-56 87-1 12-62 59-149
Home
Privacy and Data
Site structure and layout ©2025 Majenko Technologies