*********************************************************************** 00001000 * 00002000 * STATUS: 00003000 * VERSION NONE 00004000 * 00005000 * FUNCTION: 00006000 * EDIT TABLE IFCEWIN1 PROVIDES DEVICE SUPPORT FOR ALL 3340 DEVICES. 00007000 * IT IS LOADED BY IFCEEDIT. IT PROVIDES THE DIRECTION FOR OUTPUTING 00008000 * THE HEADER INFORMATION AND SENSE BYTES 0 - 7. IT ALSO DETERMINES 00009000 * THE FORMAT OF THE SENSE BYTES AND THE NEXT ROUTINE TO BE LOADED. 00010000 * @D3505GB 00011000 * ENTRY POINT: @D3505GB 00012000 * NOT APPLICABLE @D3505GB 00013000 * @D3505GB 00014000 * INPUT: @D3505GB 00015000 * REGISTER @D3505GB 00016000 * 2 POINTER TO START OF OBR RECORD @D3505GB 00017000 * 3 POINTER TO CURRENT POSITION IN PRINT BUFFER @D3505GB 00018000 * 4 POINTER TO INPUT DATA ITEM @D3505GB 00019000 * 14 RETURN POINT IN CALLING ROUTINE @D3505GB 00020000 * @D3505GB 00021000 * OUTPUT: @D3505GB 00022000 * REGISTER @D3505GB 00023000 * 15 SET TO 0 TO SUPPRESS PRINTING OF CURRENT LINE @D3505GB 00024000 * @D3505GB 00025000 * REGISTERS USED: @D3505GB 00026000 * 5 - 8 WORK REGISTERS @D3505GB 00027000 * @D3505GB 00028000 * EXTERNAL REFERENCES: @D3505GB 00029000 * NONE @D3505GB 00030000 * @D3505GB 00031000 * EXITS - NORMAL: @D3505GB 00032000 * TO IFCEEDIT VIA REGISTER 14 @D3505GB 00033000 * @D3505GB 00034000 * EXITS - ERROR: @D3505GB 00035000 * TO IFCEEDIT VIA REGISTER 14 WITH A RETURN CODE OF 00 IN REG 15 00036000 * @D3505GB 00037000 * TABLE/WORK AREAS: @D3505GB 00038000 * R3 PRINT BUFFER @D3505GB 00039000 * @D3505GB 00040000 * ATTRIBUTES: @D3505GB 00041000 * PROBLEM PROGRAM @D3505GB 00042000 * NON - RESIDENT @D3505GB 00043000 * SERIALLY REUSABLE @D3505GB 00044000 * @D3505GB 00045000 * NOTES: @D3505GB 00046000 * THIS PROGRAM WILL RUN ON MFT,MVT,VS1,VS WITH 370 CPU. @D3505GB 00047000 * @D3505GB 00048000 ********************************************************************* 00049000 TITLE 'I F C E W I N 1 EDIT TABLE FOR 3340 SNB''S 0-7 AND FMTC00050002 1 8-23' 00100002 GBLC &DSECT,&CSECT 30850002 IFCEWIN1 CSECT 30900002 &CSECT SETC 'IFCEWIN1' 30950002 &DSECT SETC 'WIN1' 31000002 * 31050002 * SENSE 0-7 AND 8-23 FOR FORMAT 1 31100002 * 31150002 WIN1 DSECT 31200002 DSGEN (CLASRC,8),(SYSREL,8),(SWITCHES,8),(SW1,8) 31250002 DSGEN (SW2,8),(SW3,8),(SPARE1,16) 31300002 DSGEN (DAY,32),(HOUR,32) 31350002 DSGEN (SPARE2,8),(CPUSERL,24),(CPUID,16),(SPARE3,16) 31400002 DSGEN (JOBID,64) 31450002 DSGEN (FAILCCW,64) 31500002 DSGEN (CSW,64) 31550002 DSGEN (DEVDPD,8),(SECCUA,24),(DEVTYP1,16),(DEVTYP2,16) 31600002 DSGEN (SDRCNT,8),(CUA,24),(IORET,16),(SBCNT,16) 31650002 DSGEN (VOLLABL,48),(SPARE4,16) 31700002 DSGEN (LASTSK,64) 31750002 DSGEN (HOMEADR,32),(SPARE5,32) 31800002 DSGEN (SNB,1,0,23,0,7) 31850002 EJECT 31900002 *********************************************************************** 31950002 * * 32000002 * * 32050002 * THIS ENTIRE MODULE IS IN SUPPORT OF XL03130 * 32100002 * * 32150002 * * 32200002 *********************************************************************** 32250002 SPACE 32300002 IFCEWIN1 CSECT 32350002 USING *,R9 32400002 SPACE 32450002 R0 EQU 0 R 32500002 R1 EQU 1 E 32550002 R2 EQU 2 G 32600002 R3 EQU 3 I 32650002 R4 EQU 4 S 32700002 R5 EQU 5 T 32750002 R6 EQU 6 E 32800002 R7 EQU 7 R 32850002 R8 EQU 8 32900002 R9 EQU 9 E 32950002 R10 EQU 10 Q 33000002 R11 EQU 11 U 33050002 R12 EQU 12 A 33100002 R13 EQU 13 T 33150002 R14 EQU 14 E 33200002 R15 EQU 15 S 33250002 SPACE 2 33300002 L0 EQU 0 EQUATES 33350002 L1 EQU 1 33400002 L2 EQU 2 33450002 L3 EQU 3 FOR 33500002 L4 EQU 4 33550002 L5 EQU 5 33600002 L6 EQU 6 LENGTHS 33650002 L7 EQU 7 33700002 L8 EQU 8 33750002 L9 EQU 9 AND 33800002 L10 EQU 10 33850002 L11 EQU 11 33900002 L12 EQU 12 DISPLACEMENTS 33950002 L13 EQU 13 34000002 L14 EQU 14 34050002 L15 EQU 15 34100002 L24 EQU 24 34150002 EJECT 34200002 H10 EQU X'10' H 34250002 H20 EQU X'20' E 34300002 H28 EQU X'28' @D3505GB 34350000 H30 EQU X'30' X 34360000 H38 EQU X'38' @D3505GB 34370000 H3A EQU X'3A' @D3505GB 34380000 H40 EQU X'40' 34400002 H50 EQU X'50' 34450002 H08 EQU X'08' VALUES 34500002 H80 EQU X'80' 34550002 EJECT 34600002 DC A(ENTRIES) 34650002 DC CL8'IFCEWIN1' 34700002 XR9PTR DC F'0' 34750002 XLABELP DC F'0' 34800002 SPACE 2 34850002 * 34900002 * ALL THE FOLLOWING ROUTINES ARE EXECUTED 34950002 * VIA THE 'ROUTINE' MACRO - NOTE: R3=ADR OF PRINT POSITION 35000002 * R4=ADR OF DATA IN RECORD 35050002 SPACE 35100002 * SET HEX - PRINTS ONE CHARACTER HEX 35150002 SETHEX STM R5,R8,XSAVE SAVE REGS 35200002 LA R8,CHARS LOAD ADDR OF CHAR. TABLE 35250002 IC R7,L0(R4) INSERT BYTE TO BE CONVERTED 35300002 SLL R7,L24 SHIFT TO HIGH ORDER BYTE 35350002 SR R6,R6 CLEAR REG 35400002 SLDL R6,L4 SHIFT IN 4 BITS 35450002 AR R6,R8 ADD ADDR TO OFFSET 35500002 MVC L0(L1,R3),L0(R6) MOVE CHARACTER TO PRINT LINE 35550002 SR R6,R6 CLEAR REG 35600002 SLDL R6,L4 SHIFT IN NEXT 4 BITS 35650002 AR R6,R8 ADD ADDR OT OFFSET 35700002 MVC L1(L1,R3),L0(R6) MOVE CHAR TO PRINT LINE 35750002 B RETURN RETURN 35800002 * 35850002 * THE FOLLOWING SETS BINARY DIGITS TO PRINTABLE HEX 35900002 * 35950002 SETBIN STM R5,R8,XSAVE SAVE REGS 36000002 IC R7,L0(R4) INSERT BYTE 36050002 SLL R7,L24 SHIFT BYTE TO HIGH ORDER 36100002 LR R8,R3 LOAD ADDR OF PRINT POSITION 36150002 LA R5,L8 LOAD LOOP COUNT 36200002 SETBINA SR R6,R6 CLEAR REG 36250002 SLDL R6,L1 SHIFT ONE BIT TO REG 36300002 STC R6,L0(R8) STORE BIT IN PRINT POSITION 36350002 MVZ L0(L1,R8),CHAR0 MOVE 'F' IN FRONT OF BIT 36400002 LA R8,L1(R8) BUMP PRINT POS PTR 36450002 BCT R5,SETBINA BR TO DO NEXT BIT 36500002 B RETURN RETURN 36550002 SPACE 36600002 SETBIN2 STM R5,R8,XSAVE SAVE REGS 36650002 IC R7,L0(R4) INSERT BYTE 36700002 SLL R7,L24 SHIFT IT TO HIGH ORDER 36750002 LR R8,R3 LOAD PRINT POSITION ADDR 36800002 LA R5,L8 LOAD LOOP COUNT 36850002 S R8,ELEVEN SUBTRACT FROM PRINT POSITION 36900002 B SETBINA BR TO CONVERT 36950002 EJECT 37000002 * 37050002 * CHECK FORMAT OF RECORD - IF ITS FORMAT 1,CONTINUE 37100002 * - IF ITS FORMAT 0 OR 2-5 CALL A NEW MOD 37150002 * 37200002 CHKFMT STM R5,R8,XSAVE SAVE REGS 37250002 SR R15,R15 DONT PRINT THIS LINE 37300002 SR R5,R5 CLEAR REG 37350002 TM L0(R4),H50 IS IT FORMAT 5 37400002 BO CALLFMT5 YES - BR 37450002 SPACE 37500002 TM L0(R4),H40 IS IT FORMAT 4 37550002 BO CALLFMT4 YES - BR 37600002 TM L0(R4),H38 IS THIS FORMAT 3 @D3505GB 37610000 BO CALLCUT3 YES @D3505GB 37620000 SPACE 37650002 TM L0(R4),H30 IS IT FORMAT 3 37700002 BO CALLFMT3 YES - BR 37750002 SPACE 37800002 TM L0(R4),H28 IS THIS FORMAT 2 37810000 BO CALLCUT2 YES @D3505GB 37820000 TM L0(R4),H20 IS IT FORMAT 2 37850002 BO CALLFMT2 YES - BR 37900002 SPACE 37950002 TM L0(R4),H10 IS IT FORMAT 1 38000002 BO RETURN YES - BR TO RETURN - CONTINUE 38050002 TM L0(R4),H08 CONNECTED TO A 3880 @D3505GB 38100000 BO CALLCUT0 @D3505GB 38104000 B CALLFMT0 BRANCH - ITS FORMAT 0 38108000 CALLCUT3 TM L1(R4),H08 IF BYTE 8 (8,4) IS ON, ERROR IS 38112000 BO MICRO MICRO CODE SENSED @D3505GB 38116000 CLI 0(R4),H3A @D3505GB 38117000 BE MICRO ONLY EXECPTION @D3505GB 38118000 LA R5,FECUTH3-L4 CALL IFCENFH3 FOR FORMAT 3 38120000 ST R5,XR9PTR @D3505GB 38124000 B RETURN @D3505GB 38128000 MICRO LA R5,FECUTM3-L4 CALL IFCENFM3 FOR FORMAT 3 38132000 ST R5,XR9PTR @D3505GB 38136000 B RETURN @D3505GB 38140000 SPACE 2 38150002 CALLFMT0 LA R5,FE0-L4 LOAD ADDR OF MODULE NAME 38200002 ST R5,XR9PTR STORE ADDR FOR EREP 38250002 B RETURN RETURN TO CALL MODULE 38300002 SPACE 38350002 CALLFMT2 LA R5,FE2-L4 LOAD ADDR OF MODULE NAME 38400002 ST R5,XR9PTR STORE ADDR FOR EREP 38450002 B RETURN RETURN TO CALL MODULE 38500002 SPACE 38550002 CALLFMT3 LA R5,FE3-L4 LOAD ADDR OF MODULE NAME 38600002 ST R5,XR9PTR STORE ADDR FOR EREP 38650002 B RETURN RETURN TO CALL MODULE 38700002 SPACE 38750002 CALLFMT4 LA R5,FE4-L4 LOAD ADDR OF MODULE NAME 38800002 ST R5,XR9PTR STORE ADDR FOR EREP 38850002 B RETURN RETURN TO CALL MODULE 38900002 SPACE 38950002 CALLFMT5 LA R5,FE5-L4 LOAD ADDR OF MODULE NAME 39000002 ST R5,XR9PTR STORE ADDR FOR EREP 39050002 B RETURN RETURN TO CALL MODULE 39100002 SPACE 39105000 CALLCUT0 LA R5,FECUT0-L4 CALL IFCECUT0 FOR FORMAT 0 39110000 ST R5,XR9PTR @D3505GB 39115000 B RETURN @D3505GB 39120000 SPACE 39125000 CALLCUT2 LA R5,FECUT2-L4 CALL IFCENFP2 FOR FORMAT 2 39130000 ST R5,XR9PTR @D3505GB 39135000 B RETURN @D3505GB 39140000 SPACE 39145000 EJECT 39150002 FE0 DC X'FE' 39200002 DC CL8'IFCEMER0' FORMAT 0 EDIT TABLE 39250002 SPACE 39300002 FE2 DC X'FE' 39350002 DC CL8'IFCEMER2' FORMAT 2 EDIT TABLE 39400002 SPACE 39450002 FE3 DC X'FE' 39500002 DC CL8'IFCEMER3' FORMAT 3 EDIT TABLE 39550002 SPACE 39600002 FE4 DC X'FE' 39650002 DC CL8'IFCEMER4' FORMAT 4 EDIT TABLE 39700002 SPACE 39750002 FE5 DC X'FE' 39800002 DC CL8'IFCEMER5' FORMAT 5 EDIT TABLE 39850002 SPACE 39853002 FECUT0 DC X'FE' @D3505GB 39853300 DC CL8'IFCECUT0' FORMAT 0 EDIT TABLE 39853600 FECUT2 DC X'FE' @D3505GB 39853900 DC CL8'IFCENFP2' FORMAT 2 EDIT TABLE 39854200 FECUTH3 DC X'FE' @D3505GB 39854500 DC CL8'IFCENFH3' FORMAT 3 EDIT TABLE 39854800 FECUTM3 DC X'FE' @D3505GB 39855100 DC CL8'IFCENFM3' FORMAT 3 EDIT TABLE 39855400 * 39856002 * THE FOLLOWING MOVES A UNIQUE LABEL FOR BYTE 8,BIT 5 39859002 * DEPENDING ON THE SETTING OF BYTE 19 BIT 0. 39862002 * 39865002 SPACE 39868002 SETLAB S R3,TOCOLONE SUBTRACT TO PT TO COL ONE XM3751 39871002 TM L0(R4),H80 IS THE R/W BIT ON XM3751 39874002 BO MOVEWRSN YES - BR TO MOVE LABEL XM3751 39877002 MVC L0(L11,R3),MODA MOVE LABEL XM3751 39880002 BR R14 RETURN XM3751 39883002 SPACE 39886002 MOVEWRSN MVC L0(L11,R3),WRSN MOVE LABEL XM3751 39889002 BR R14 RETURN XM3751 39892002 SPACE 2 39895002 * 39900002 * THE FOLLOWING MOVES A UNIQUE LABEL FOR BYTE 8,BIT 6 39950002 * DEPENDING ON THE SETTING OF BYTE 19 BIT 0 40000002 * 40050002 SETLAB1 S R3,TOCOLONE SUBTRACT TO PT TO COLUMN ONE 40100002 TM L0(R4),H80 IS THE R/W BIT ON 40150002 BO MOVEINMK YES - BR TO MOVE LABEL 40200002 MVC L0(L11,R3),BUSY MOVE LABEL 40250002 BR R14 RETURN 40300002 SPACE 40350002 MOVEINMK MVC L0(L11,R3),INMK MOVE LABEL 40400002 BR R14 RETURN 40450002 EJECT 40500002 * 40550002 * THE FOLLOWING MOVES A UNIQUE LABEL FOR BYTE 8,BIT 7 40600002 * DEPENDING ON THE SETTING OF BYTE 19 BIT 0 40650002 * 40700002 SETLAB2 S R3,TOCOLONE SUBTRACT TO PT TO COLUMN ONE 40750002 TM L0(R4),H80 IS THE R/W BIT ON 40800002 BO MOVEACTK YES - BR 40850002 MVC L0(L11,R3),SSCM MOVE LABEL 40900002 BR R14 RETURN 40950002 SPACE 41000002 MOVEACTK MVC L0(L11,R3),ACTK MOVE LABEL 41050002 BR R14 RETURN 41100002 SPACE 2 41150002 * 41200002 * THE FOLLOWING RESTORES REGISTERS USED BY ROUTINES IN THIS 41250002 * MODULE AND RETURNS TO EREP0 41300002 * 41350002 RETURN LM R5,R8,XSAVE RESTORE REGS 41400002 SKIPPER BR R14 RETURN TO EREP 41450002 SPACE 5 41500002 * 41600002 * THE FOLLOWING STORAGE CONSTANTS ARE USED IN THE 41650002 * PREVIOUS ROUTINES 41700002 * 41750002 SPACE 41800002 DS 0F 41850002 XSAVE DC 5F'0' REG SAVE AREA 41900002 SPACE 41950002 ELEVEN DC F'11' 42000002 TOCOLONE DC F'132' 42050002 SPACE 42100002 CHARS DC C'0123456789ABCDEF' HEX CHARACTER TABLE 42150002 CHAR0 DC C'0' 42200002 SPACE 42250002 MODA DC CL11'MOD ATTENTN' XM3751 42260002 WRSN DC CL11'I WR SENSE' XM3751 42270002 BUSY DC CL11'BUSY' 42300002 INMK DC CL11'INDEX MARK' 42350002 SSCM DC CL11'SK/SCTR COM' 42400002 ACTK DC CL11'ACTIVE TRK' 42450002 EJECT 42500002 * * 42550002 * E D I T T A B L E F O R S E N S E B Y T E S 0 - 7 * 42600002 * * 42650002 * O N A 3 3 4 0 ( W I N C H E S T E R ) * 42700002 * * 42750002 ENTRIES DS 0F 42800002 DC XL4'00010001' 42850002 DC XL4'00010001' 42900002 DC A(LABELS) LABEL POINTER 42950002 DC H'0' 43000002 SPACE 43050002 * 43100002 * SKIP TO CHANNEL 1 43150002 * 43200002 DC X'01' 43250002 DC X'000B0B00' 43300002 SPACE 2 43350002 LINE (12,15),(3,15),SKIP=1 43400002 ROUTINE SNB00,SETHEX 43450002 ROUTINE SNB10,SETHEX 43500002 ROUTINE SNB20,SETHEX 43550002 ROUTINE SNB30,SETHEX 43600002 ROUTINE SNB40,SETHEX 43650002 ROUTINE SNB50,SETHEX 43700002 ROUTINE SNB60,SETHEX 43750002 ROUTINE SNB70,SETHEX 43800002 LABEL 'BYTE 0','BYTE 1','BYTE 2','BYTE 3','BYTE 4','BYTE 5','BC43850002 YTE 6','BYTE 7' 43900002 LINE ,(1,1),SKIP=2 43950002 ROUTINE SPARE1,SKIPPER 44000002 LABEL '----------UNIT CHECK DESCRIPTION----------- RESTART CMC44050002 WD PHYSICAL ID LOW CYLINDER HI CYL/LOG TRK FORMATC44100002 /MSG' 44150002 LINE (13,15),(1,15),SKIP=1 44200002 BIN (SNB00),(SNB10),(SNB20) 44250002 ROUTINE SNB30,SETBIN2 44300002 BIN (SNB40),(SNB50),(SNB60),(SNB70) 44350002 LABEL 'COMMAND REJ','PERM ERROR','RPS PRESENT',' ','DRIVE A','C44400002 CYL 128',' ','FORMAT 8' 44450002 LINE (13,15),(1,15) 44500002 BIN (SNB01),(SNB11),(SNB21),(SNB31) 44550002 BIN (SNB41),(SNB51),(SNB61),(SNB71) 44600002 LABEL 'INTERVN REQ','INV TRK FMT','CORRECTABLE',' C44650002 ','DRIVE B','CYL 64','CYL 512','FORMAT 4' 44700002 LINE 44750002 BIN (SNB02),(SNB12),(SNB22),(SNB32) 44800002 BIN (SNB42),(SNB52),(SNB62),(SNB72) 44850002 LABEL 'BUS OUT PAR','END OF CYL',' ',' ','DRIVE C'C44900002 ,'CYL 32','CYL 256','FORMAT 2' 44950002 LINE 45000002 BIN (SNB03),(SNB13),(SNB23),(SNB33) 45050002 BIN (SNB43),(SNB53),(SNB63),(SNB73) 45100002 LABEL 'EQUIPMNT CK',' ','ENV DATA PR',' ','DRIVE DC45150002 ','CYL 16',' ','FORMAT 1' 45200002 LINE 45250002 BIN (SNB04),(SNB14),(SNB24),(SNB34) 45300002 BIN (SNB44),(SNB54),(SNB64),(SNB74) 45350002 LABEL 'DATA CHECK','NO REC FND','COMPAT MODE', @X12827WC45400000 ' ','DRIVE E', @X12827WC45410000 'CYL 8','LOG TRK 8','MESSAGE 8' 45450002 LINE 45500002 BIN (SNB05),(SNB15),(SNB25),(SNB35) 45550002 BIN (SNB45),(SNB55),(SNB65),(SNB75) 45600002 LABEL 'OVERRUN','FILE PROTCT','FIXED HEAD', @X12827WC45650000 ' ','DRIVE F', @X12827WC45670000 'CYL 4','LOG TRK 4','MESSAGE 4' 45690000 LINE 45750002 BIN (SNB06),(SNB16),(SNB26),(SNB36) 45800002 BIN (SNB46),(SNB56),(SNB66),(SNB76) 45850002 LABEL 'TRK COND CK','WRT INHIBIT','DATA MOD SZ',' C45900002 ','DRIVE G','CYL 2','LOG TRK 2','MESSAGE 2' 45950002 LINE ,,SKIP=3 46000002 BIN (SNB07),(SNB17),(SNB27),(SNB37) 46050002 BIN (SNB47),(SNB57),(SNB67),(SNB77) 46100002 LABEL 'SEEK CHECK','OP INCOMPLT','DATA MOD SZ',' 'C46150002 ,'DRIVE H','CYL 1','LOG TRK 1','MESSAGE 1' 46200002 LINE ,,SKIP=1 46250002 ROUTINE SNB70,CHKFMT 46300002 LABEL ' ' 46350002 EJECT 46400002 * 46450002 * E D I T T A B L E F O R S E N S E B Y T E S 8 - 2 3 46500002 * 46550002 * F O R F O R M A T 1 46600002 * 46650002 LINE (12,15),(3,15),SKIP=1 46700002 ROUTINE SNB80,SETHEX 46750002 ROUTINE SNB90,SETHEX 46800002 ROUTINE SNB100,SETHEX 46850002 ROUTINE SNB110,SETHEX 46900002 ROUTINE SNB120,SETHEX 46950002 ROUTINE SNB130,SETHEX 47000002 ROUTINE SNB140,SETHEX 47050002 ROUTINE SNB150,SETHEX 47100002 LABEL 'BYTE 8','BYTE 9','BYTE 10','BYTE 11','BYTE 12','BYTE 13C47150002 ','BYTE 14','BYTE 15' 47200002 LINE ,(1,1),SKIP=2 47250002 ROUTINE SPARE1,SKIPPER 47300002 LABEL 'DRIVE STATUS DRIVE CK/STAT SEQUENCE CNTRL LOAD SW STC47350002 ATUS R/W SAFETY CTL INT B OUT CTL INT B IN CTL INC47400002 T TAG B' 47450002 LINE (13,15),(1,15),SKIP=1 47500002 BIN (SNB80),(SNB90),(SNB100),(SNB110) 47550002 BIN (SNB120),(SNB130),(SNB140),(SNB150) 47600002 LABEL 'CNTRLR CK','DM LD SW L','DM SIZE CK ','DR START SW','MUC47650002 LTI-HD CK','BIT 0','BIT 0' 47700002 LINE 47750002 BIN (SNB81),(SNB91),(SNB101),(SNB111) 47800002 BIN (SNB121),(SNB131),(SNB141),(SNB151) 47850002 LABEL 'INTRFACE CK','SECT COM CK','MOD LATCH 4','DM PRES SW',C47900002 'CAP/ENAB CK','BIT 1','BIT 1' 47950002 LINE 48000002 BIN (SNB82),(SNB92),(SNB102),(SNB112) 48050002 BIN (SNB122),(SNB132),(SNB142),(SNB152) 48100002 LABEL 'DRIVE CHECK','MOT AT SP L','MOD LATCH 2', @M3787 C48150002 'COVER LK SW','WRITE OVRUN','BIT 2','BIT 2' @M3787 48200002 LINE 48250002 BIN (SNB83),(SNB93),(SNB103),(SNB113) 48300002 BIN (SNB123),(SNB133),(SNB143),(SNB153) 48350002 LABEL 'R/W CHECK','AIR BT SW L','MOD LATCH 1', @M3787 C48400002 'DM UNLD SW','INDEX CHECK','BIT 3','BIT 3' @M3787 48450002 LINE 48500002 BIN (SNB84),(SNB94),(SNB104),(SNB114) 48550002 BIN (SNB124),(SNB134),(SNB144),(SNB154) 48600002 LABEL 'ON LINE','WRT ENABLE','CHECK LATCH', @M4330 C48650002 'DM LOAD SW','R/W INTR CK','BIT 4','BIT 4' XM3751 48700002 LINE 48750002 BIN (SNB85),(SNB95),(SNB105),(SNB115) 48800002 BIN (SNB125),(SNB135),(SNB145),(SNB155) 48850002 ROUTINE SNB190,SETLAB XM3751 48900002 LABEL '',' ','SEQUENCE CK','AIR BELT SW','CONTROL CK','BIT 5',C48930002 'BIT 5' XM3751 48960002 LINE (13,15),(1,15) 49000002 BIN (SNB86),(SNB96),(SNB106),(SNB116) 49050002 BIN (SNB126),(SNB136),(SNB146),(SNB156) 49100002 ROUTINE SNB190,SETLAB1 49150002 LABEL '','MODULE SZ 2','BIAS DSB SW','CARR HOME','TRANSINT CK'C49200002 ,'BIT 6','BIT 6' 49250002 LINE ,,SKIP=3 49300002 BIN (SNB87),(SNB97),(SNB107),(SNB117) 49350002 BIN (SNB127),(SNB137),(SNB147),(SNB157) 49400002 ROUTINE SNB190,SETLAB2 49450002 LABEL '','MODULE SZ 1','ODD TRACK ','MT AT SP SW', @XM3794 C49500002 'WRT CURT CK','BIT 7','BIT 7' @XM3794 49550002 LINE (12,15),(3,15),SKIP=1 49600002 ROUTINE SNB160,SETHEX 49650002 ROUTINE SNB170,SETHEX 49700002 ROUTINE SNB180,SETHEX 49750002 ROUTINE SNB190,SETHEX 49800002 ROUTINE SNB200,SETHEX 49850002 ROUTINE SNB210,SETHEX 49900002 ROUTINE SNB220,SETHEX 49950002 ROUTINE SNB230,SETHEX 50000002 LABEL 'BYTE 16','BYTE 17','BYTE 18','BYTE 19','BYTE 20','BYTE C50050002 21','BYTE 22','BYTE 23' 50100002 LINE ,(1,15),SKIP=2 50150002 ROUTINE SPARE1,SKIPPER 50200002 LABEL 'ACCESS STATUS','CNTRLR CHKS','MICRO DETCD ER','STATUS',C50250002 'INTERFACE CKS',' ','-----ERROR SYMPTOM CODE-----' 50300002 LINE (13,15),(1,15),SKIP=1 50350002 BIN (SNB160),(SNB170),(SNB180),(SNB190),(SNB200) 50400002 ROUTINE SNB210,SETBIN2 50450002 ROUTINE SNB220,SETBIN2 50500002 ROUTINE SNB230,SETBIN2 50550002 LABEL 'TIME-OUT CK','PLO CHECK',' ','SET R/W', C50600002 'CTL TAG CK' XM3751 50620002 LINE 50650002 BIN (SNB161),(SNB171),(SNB181),(SNB191),(SNB201) 50700002 LABEL 'OVRSHOOT CK','NO PLO INPT',' ',' ','CTL B/O CK' XM3751 50750002 LINE 50800002 BIN (SNB162),(SNB172),(SNB182),(SNB192),(SNB202) 50850002 LABEL 'ACC OFF TRK','SER/DES CK ',' ',' ', @XM3794 C50900002 'DEV SEL CK ' @XM3794 50920002 LINE 50950002 BIN (SNB163),(SNB173),(SNB183),(SNB193),(SNB203) 51000002 LABEL 'TRK CROSSNG','GAP CNTR CK',' ',' ','DEV B/I CK' XM3751 51050002 LINE 51100002 BIN (SNB164),(SNB174),(SNB184),(SNB194),(SNB204) 51150002 LABEL 'SERVO LATCH','WRT DATA CK','MESSAGE 8',' ','CTL B/I CKC51200002 ' 51250002 LINE 51300002 BIN (SNB165),(SNB175),(SNB185),(SNB195),(SNB205) 51350002 LABEL 'LIN MOD LAT','MONITOR CK','MESSAGE 4',' ', C51400002 'I WRT FAIL ' XM4371 51420002 LINE 51450002 BIN (SNB166),(SNB176),(SNB186),(SNB196),(SNB200) 51500002 LABEL 'CONTROL LAT','ECC CHECK','MESSAGE 2',' ','DEV B/O CK' 51550002 LINE ,,SKIP=1 51600002 BIN (SNB167),(SNB177),(SNB187),(SNB197),(SNB207) 51650002 LABEL 'WAIT LATCH','ECC ZEROES','MESSAGE 1',' ','DEV TAG CK' 51700002 LINE 51750002 ROUTINE SPARE1,SKIPPER 51800002 LABEL ' ' 51850002 SPACE 2 51900002 DC X'FF' 51950002 DC XL2'0070' 52000002 DC XL2'0018' 52050002 DC XL2'0000' 52100002 * 52150002 LABELS DS 0F 52200002 DC C'$' 52250002 LSTART 52300002 SPACE 2 52350002 END 52400002