*********************************************************************** 00000800 * 00001600 * STATUS: 00002400 * VERSION 2 00003200 * 00004000 * FUNCTION: 00004800 * EDIT TABLE IFCEXXXC PROVIDES DEVICE SUPPORT FOR ALL 3330 DEVICES. 00005600 * IT IS LOADED BY IFCEEDIT. IT PROVIDES THE DIRECTION FOR OUTPUTING 00006400 * SENSE BYTES 0 - 7. IT ALSO DETERMINES THE FORMAT OF THE SENSE 00007200 * BYTES AND THE NEXT ROUTINE TO BE LOADED. 00008000 * 00008800 * ENTRY POINT: 00009500 * NOT APPLICABLE 00010200 * 00010900 * INPUT: 00011600 * REGISTER 00012300 * 2 POINTER TO START OF OBR RECORD 00013000 * 3 POINTER TO CURRENT POSITION IN PRINT BUFFER 00013700 * 4 POINTER TO INPUT DATA ITEM 00014400 * 14 RETURN POINT IN CALLING ROUTINE 00015100 * 00015800 * OUTPUT: 00016500 * REGISTER 00017200 * 15 SET TO 0 TO SUPPRESS PRINTING OF CURRENT LINE 00017900 * 00018600 * REGISTERS USED: 00019300 * 5 - 8 WORK REGISTERS 00020000 * 00020700 * EXTERNAL REFERENCES: 00021400 * NONE 00022100 * 00022800 * EXITS - NORMAL: 00023500 * TO IFCEEDIT VIA REGISTER 14 00024200 * 00024900 * EXITS - ERROR: 00025600 * TO IFCEEDIT VIA REGISTER 14 WITH A RETURN CODE OF 00 IN REG 15 00026300 * 00027000 * TABLE/WORK AREAS: 00027700 * R3 PRINT BUFFER 00028400 * 00029100 * ATTRIBUTES: 00029800 * PROBLEM PROGRAM 00030500 * NON - RESIDENT 00031200 * SERIALLY REUSABLE 00031900 * 00032600 * NOTES: 00033300 * THIS PROGRAM WILL RUN ON MFT,MVT,VS1,VS WITH 370 CPU. 00034000 * 00034700 ********************************************************************* 00040000 TITLE 'IFCEXXXC - LOAD MODULE NAME : IFCE3330' @XM09337 00090000 GBLC &DSECT,&CSECT 31280020 SPACE 2 31360020 IFCE3330 CSECT 31440020 &CSECT SETC 'IFCE3330' 31520020 &DSECT SETC 'M3330' 31600020 * 31680020 M3330 DSECT 31760020 DSGEN (CLASRC,8),(SYSREL,8),(SWITCHES,16) 31840020 DSGEN (RECID,8),(SPARE1,16),(TYPE,8) 31920020 DSGEN (DAY,32) 32000020 DSGEN (HOUR,32) 32080020 DSGEN (SPARE2,8),(CPUSERL,24) 32160020 DSGEN (CPUID,16),(SPARE3,16) 32240020 DSGEN (JOBID1,32) 32320020 DSGEN (JOBID2,32) 32400020 DSGEN (FCCWCC,8),(FCCWDA,24) 32480020 DSGEN (FCCWFL,8),(FCCW,8),(FCCWCT,16) 32560020 DSGEN (CSWUS1,8),(CSWUS2,24) 32640020 DSGEN (CSWUS3,8),(CSWUS4,8),(CSWUS5,16) 32720020 DSGEN (DEVDPD,8),(SECCUA,24) S21926 32800002 DSGEN (DEVTYP1,8),(DEVTYP1A,8),(DEVTYP2,16) 32880020 DSGEN (SPARE4,8),(CUA,24) 32960020 DSGEN (IORET,24),(SBCNT,8) 33040020 DSGEN (VOLLAB1,8),(VOLLAB2,16),(VOLLAB3,8) 33120020 DSGEN (VOLLAB4,8),(VOLLAB5,8),(SPARE5,16) 33200020 DSGEN (LSKAD1,8),(LSKAD2,16),(LSKAD3,16),(LSKAD4,16), C33280020 (LSKAD5,8) 33360020 DSGEN (AHA1,32) 33440020 DSGEN (AHA2,16),(SPARE6,16) 33520020 DSGEN (SNB00,1),(SNB01,1),(SNB02,1),(SNB03,1),(SNB04,1), C33760020 (SNB05,1),(SNB06,1),(SNB07,1),(SNB10,1),(SNB11,1), C33840020 (SNB12,1),(SNB13,1),(SNB14,1),(SNB15,1),(SNB16,1), C33920020 (SNB17,1),(SNB20,1),(SNB21,1),(SNB22,1),(SNB23,1), C34000020 (SNB24,1),(SNB25,1),(SNB26,1),(SNB27,1),(SNB30,1), C34080020 (SNB31,1),(SNB32,1),(SNB33,1),(SNB34,1),(SNB35,1), C34160020 (SNB36,1),(SNB37,1) 34240020 DSGEN (SNB40,1),(SNB41,1),(SNB42,1),(SNB43,1),(SNB44,1), C34320020 (SNB45,1),(SNB46,1),(SNB47,1),(SNB50,1),(SNB51,1), C34400020 (SNB52,1),(SNB53,1),(SNB54,1),(SNB55,1),(SNB56,1), C34480020 (SNB57,1),(SNB60,1),(SNB61,1),(SNB62,1),(SNB63,1), C34560020 (SNB64,1),(SNB65,1),(SNB66,1),(SNB67,1),(SNB70,1), C34640020 (SNB71,1),(SNB72,1),(SNB73,1),(SNB74,1),(SNB75,1), C34720020 (SNB76,1),(SNB77,1) 34800020 DSGEN (SNB80,1),(SNB81,1),(SNB82,1),(SNB83,1),(SNB84,1), C34880020 (SNB85,1),(SNB86,1),(SNB87,1),(SNB90,1),(SNB91,1), C34960020 (SNB92,1),(SNB93,1),(SNB94,1),(SNB95,1),(SNB96,1), C35040020 (SNB97,1),(SNB100,1),(SNB101,1),(SNB102,1),(SNB103,1), C35120020 (SNB104,1),(SNB105,1),(SNB106,1),(SNB107,1),(SNB110,1), C35200020 (SNB111,1),(SNB112,1),(SNB113,1),(SNB114,1),(SNB115,1), C35280020 (SNB116,1),(SNB117,1) 35360020 DSGEN (SNB120,1),(SNB121,1),(SNB122,1),(SNB123,1),(SNB124,1), C35440020 (SNB125,1),(SNB126,1),(SNB127,1),(SNB130,1),(SNB131,1), C35520020 (SNB132,1),(SNB133,1),(SNB134,1),(SNB135,1),(SNB136,1), C35600020 (SNB137,1),(SNB140,1),(SNB141,1),(SNB142,1),(SNB143,1), C35680020 (SNB144,1),(SNB145,1),(SNB146,1),(SNB147,1),(SNB150,1), C35760020 (SNB151,1),(SNB152,1),(SNB153,1),(SNB154,1),(SNB155,1), C35840020 (SNB156,1),(SNB157,1) 35920020 DSGEN (SNB160,1),(SNB161,1),(SNB162,1),(SNB163,1),(SNB164,1), C36000020 (SNB165,1),(SNB166,1),(SNB167,1),(SNB170,1),(SNB171,1), C36080020 (SNB172,1),(SNB173,1),(SNB174,1),(SNB175,1),(SNB176,1), C36160020 (SNB177,1),(SNB180,1),(SNB181,1),(SNB182,1),(SNB183,1), C36240020 (SNB184,1),(SNB185,1),(SNB186,1),(SNB187,1),(SNB190,1), C36320020 (SNB191,1),(SNB192,1),(SNB193,1),(SNB194,1),(SNB195,1), C36400020 (SNB196,1),(SNB197,1) 36480020 DSGEN (SNB200,1),(SNB201,1),(SNB202,1),(SNB203,1),(SNB204,1), C36560020 (SNB205,1),(SNB206,1),(SNB207,1),(SNB210,1),(SNB211,1), C36640020 (SNB212,1),(SNB213,1),(SNB214,1),(SNB215,1),(SNB216,1), C36720020 (SNB217,1),(SNB220,1),(SNB221,1),(SNB222,1),(SNB223,1), C36800020 (SNB224,1),(SNB225,1),(SNB226,1),(SNB227,1),(SNB230,1), C36880020 (SNB231,1),(SNB232,1),(SNB233,1),(SNB234,1),(SNB235,1), C36960020 (SNB236,1),(SNB237,1) 37040020 *********************************************************************** 37120020 * * 37200020 * THIS ENTIRE MODULE IS IN SUPPORT OF S20201 * 37280020 * UNLESS OTHERWISE INDICATED * 37320002 * * 37360020 *********************************************************************** 37440020 IFCE3330 CSECT 37520020 USING *,R9 37600020 USING M3330,R2 37680020 R2 EQU 2 37920020 R3 EQU 3 38000020 R4 EQU 4 38080020 R5 EQU 5 38160020 R6 EQU 6 38240020 R7 EQU 7 38320020 R8 EQU 8 38400020 R9 EQU 9 38480020 R14 EQU 14 38880020 R15 EQU 15 38960020 * 39040020 L0 EQU 0 39120020 L1 EQU 1 39200020 L2 EQU 2 39280020 L3 EQU 3 39360020 L4 EQU 4 39440020 L5 EQU 5 39520020 L6 EQU 6 39600020 L7 EQU 7 39680020 L8 EQU 8 39760020 L9 EQU 9 39840020 L10 EQU 10 39920020 L11 EQU 11 40000020 L13 EQU 13 40160020 L14 EQU 14 40240020 L16 EQU 16 40400020 L17 EQU 17 40480020 L19 EQU 19 40640020 L22 EQU 22 40800020 L24 EQU 24 40960020 L29 EQU 29 41170002 L36 EQU 36 41180002 L46 EQU 46 S21926 41250002 HF0 EQU X'F0' 41440020 H01 EQU X'01' 41600020 H04 EQU X'04' 41760020 H08 EQU X'08' 41840020 HC0 EQU X'C0' 41920020 H80 EQU X'80' 42000020 H6F EQU X'6F' Z12050VM 42020002 H60 EQU X'60' Z12050VM 42040002 H50 EQU X'50' 42080020 H40 EQU X'40' 42160020 H38 EQU X'38' @D35UGHS 42200000 H30 EQU X'30' @D35UGHS 42230000 H28 EQU X'28' @D35UGHS 42260000 H20 EQU X'20' 42320020 H10 EQU X'10' 42400020 H7F EQU X'7F' MASK TO CLR HI-ORDER BIT XL03130 42730002 CLRSGN EQU X'F0' 42800020 LOGMODE EQU X'10' 42880020 NOLOG EQU X'EF' A44068 42960002 SETDR EQU X'3F' 43000020 EMU EQU X'08' EMULATION BIT @Z30RIVS 43020002 SS1CNT EQU 28 NUMBER OF SENSE BYTE @Y17BSSS 43024002 * FOR VIRTUAL 3330 @Y17BSSS 43032002 CV EQU C'V' CHARACTER V @Y17BSSS 43036002 DC A(ENTRIES) 43040020 DC CL8'IFCE3330' 43120020 XR9PTR DC F'0' 43200020 XLABELP DC F'0' 43280020 * 43360020 FE0 DC X'FE' 43440020 DC CL8'IFCEMER0' 43520020 FE1 DC X'FE' 43600020 DC CL8'IFCEMER1' 43680020 FE2 DC X'FE' 43760020 DC CL8'IFCEMER2' 43840020 FE3 DC X'FE' 43920020 DC CL8'IFCEMER3' 44000020 FE4 DC X'FE' 44080020 DC CL8'IFCEMER4' 44160020 FE5 DC X'FE' 44240020 DC CL8'IFCEMER5' 44320020 SPACE 44380002 * 44400020 * SET HEX -PRINTS 1 CHAR HEX 44480020 * 44560020 SETHEX STM R5,R8,XSAVE SAVE REGS 44640020 LA R8,CHARS CHARACTER TABLE POINTER 44720020 IC R7,L0(R4) PICK UP CHARACTER 44800020 SLL R7,L24 MOVE TO HI R7 44880020 SR R6,R6 CLEAR REGS 44960020 SLDL R6,L4 MOVE FOUR BITS 45040020 AR R6,R8 ADD OFFSET AND POINTER 45120020 MVC L0(L1,R3),L0(R6) MOVE CHARACTER TO LINE 45200020 SR R6,R6 CLEAR AGAIN 45280020 SLDL R6,L4 MOVE LAST 4 BITS 45360020 AR R6,R8 COMPUTE OFFSET 45440020 MVC L1(L1,R3),L0(R6) MOVE LAST CHARACTER 45520020 B RETURN 45600020 * 45680020 * NO OP RETURN 46480020 * 46560020 SKIPPER BR R14 46640020 * 46720020 * RESTORE REGISTERS USED BY ROUTINES IN THIS MODULE 48080020 * 48160020 RETURN LM R5,R8,XSAVE RESTORE REGS 48240020 BR R14 RETURN 48320020 * 52160020 * SET BINARY WITH R4 POINTING TO THE CHAR 52240020 * 52320020 SETBIN2 STM R5,R8,XSAVE 52400020 IC R7,L0(R4) 52480020 SLL R7,L24 52560020 LR R8,R3 52640020 LA R5,L8 52720020 S R8,ELEVEN 52800020 SETBINA SR R6,R6 CLEAR REG 6 53360020 SLDL R6,L1 MOVE BIT TO R6 53440020 STC R6,L0(R8) PUT IT INTO PRINT LINE 53520020 MVZ L0(L1,R8),CHAR0 53600020 LA R8,L1(R8) MOVE POINTER TO NEXT POS 53680020 BCT R5,SETBINA LOOP TILL 8 PRINTED 53760020 B RETURN 53840020 SPACE 2 63480002 * 64640020 CHKFMT STM R5,R8,XSAVE 67120020 SR R5,R5 67200020 TM L0(R4),H50 IS THIS FORMAT 5 67280020 BO CALLFMT5 YES 67360020 TM L0(R4),H40 IS THIS FORMAT 4 67440020 BO CALLFMT4 YES 67520020 TM L0(R4),H30 IS THIS FORMAT 3 @D35UGHS 67540000 BO CALLFMT3 YES @D35UGHS 67580000 TM L0(R4),H20 IS THIS FORMAT 2 67760020 BO CALLFMT2 YES 67840020 TM L0(R4),H10 IS THIS FORMAT 1 67920020 BO CALLFMT1 YES 68000020 B CALLFMT0 68080020 * 68160020 CALLFMT0 LA R5,FE0-L4 SET UP TO CALL FORMAT 0 68240020 ST R5,XR9PTR 68320020 B RETURN 68400020 CALLFMT1 LA R5,FE1-L4 SET UP TO CALL FORMAT 1 68480020 ST R5,XR9PTR 68560020 B RETURN 68640020 CALLFMT2 LA R5,FE2-L4 SET UP TO CALL FORMAT 2 68660000 ST R5,XR9PTR 68936000 B RETURN 68944000 CALLFMT3 LA R5,FE3-L4 SET UP TO CALL FORMAT 3 68960020 ST R5,XR9PTR 69040020 B RETURN 69120020 CALLFMT4 LA R5,FE4-L4 SET UP TO CALL FORMAT 4 69200020 ST R5,XR9PTR 69280020 B RETURN 69360020 CALLFMT5 LA R5,FE5-L4 SET UP TO CALL FORMAT 5 69440020 ST R5,XR9PTR 69520020 B RETURN 69600020 SPACE 69606002 ELEVEN DC F'11' 69612000 XSAVE DC 5F'0' 69662000 CHARS DC C'0123456789ABCDEF' 69712000 CHAR0 DC C'0' 69762000 ENTRIES DS 0F 74000020 DC XL4'00010001' FORMAT 1 74080020 DC XL4'00010001' FORMAT 2 74160020 DC A(LABELS) LABEL POINTER 74240020 DC H'0' DISP 74320020 * 74330000 * SET CARRIAGE CONTROL 74350000 * 74370000 DC X'01' 74390000 DC X'000B0B00' 74410000 LINE 74430000 ROUTINE SPARE1,SKIPPER 74450000 LABEL ' ' 74560020 LINE (12,15),(3,15),SKIP=1 81840020 ROUTINE SNB00,SETHEX 81920020 ROUTINE SNB10,SETHEX 82000020 ROUTINE SNB20,SETHEX 82080020 ROUTINE SNB30,SETHEX 82160020 ROUTINE SNB40,SETHEX 82240020 ROUTINE SNB50,SETHEX 82320020 ROUTINE SNB60,SETHEX 82400020 ROUTINE SNB70,SETHEX 82480020 LABEL 'BYTE 0','BYTE 1','BYTE 2','BYTE 3','BYTE 4','BYTE 5','BC82560020 YTE 6','BYTE 7' 82640020 LINE ,(1,1),SKIP=2 82720020 ROUTINE SPARE1,SKIPPER 82800020 LABEL '----------UNIT CHECK DESCRIPTION----------- RESTART CMC82880020 ND PHYSICAL ID CYL(1 TO 128)--HEAD--------- FORMATC82960020 /MSG' 83040020 LINE (13,15),(1,15),SKIP=1 83120020 BIN SNB00 83200020 BIN SNB10 83280020 BIN SNB20 83360020 ROUTINE SNB30,SETBIN2 83440020 BIN SNB40 83520020 BIN SNB50 83600020 BIN SNB60 83680020 BIN SNB70 83760020 LABEL 'COMMAND REJ','PERM ERROR','STAGE ERROR',' ', @Y30LPDSC83840002 'CU/CTRLR ','CYL 128',' ','FORMAT 8' XL03145 83920002 * 84000020 LINE (13,15),(1,15) 84080020 BIN SNB01 84160020 BIN SNB11 84240020 BIN SNB21 84320020 BIN SNB31 84400020 BIN SNB41 84480020 BIN SNB51 84560020 BIN SNB61 84640020 BIN SNB71 84720020 LABEL 'INTERVN REQ','INV TRK FMT','CORRECTABLE',' C84800020 ','CU/CTRLR','CYL 64','CYL 256/512','FORMAT 4' XL03145 84880002 * 84960020 LINE (13,15),(1,15) 85040020 BIN SNB02 85120020 BIN SNB12 85200020 BIN SNB22 85280020 BIN SNB32 85360020 BIN SNB42 85440020 BIN SNB52 85520020 BIN SNB62 85600020 BIN SNB72 85680020 LABEL 'BUS OUT PAR','END OF CYL','DESTAGE ERR ', @Y30LPDSC85760002 ' ','DRIVE 3/6','CYL 32', @Y30LPDSC85810002 'DIF/CYL 256','FORMAT 2' XM3655 85860002 * 85920020 LINE (13,15),(1,15) 86000020 BIN SNB03 86080020 BIN SNB13 86160020 BIN SNB23 86240020 BIN SNB33 86320020 BIN SNB43 86400020 BIN SNB53 86480020 BIN SNB63 86560020 BIN SNB73 86640020 LABEL 'EQUIPMNT CK',' ','ENV DATA PR',' C86720020 ','DRIVE 3/6','CYL 16','HEAD 16','FORMAT 1' 86800020 * 86880020 LINE (13,15),(1,15) 86960020 BIN SNB04 87040020 BIN SNB14 87120020 BIN SNB24 87200020 BIN SNB34 87280020 BIN SNB44 87360020 BIN SNB54 87440020 BIN SNB64 87520020 BIN SNB74 87600020 LABEL 'DATA CHECK','NO REC FND',' ', C87680002 ' ', @Z30RIVSC87720002 'DRIVE 3/6','CYL 8','HEAD 8','MESSAGE 8' @ZA06044 87760002 * 87840020 LINE 87920020 BIN SNB05 88000020 BIN SNB15 88080020 BIN SNB25 88160020 BIN SNB35 88240020 BIN SNB45 88320020 BIN SNB55 88400020 BIN SNB65 88480020 BIN SNB75 88560020 LABEL 'OVERRUN','FILE PROTCT',' ',' ',C88640020 'DRIVE 3/6','CYL 4','HEAD 4 ','MESSAGE 4' 88720020 * 88800020 LINE 88880020 BIN SNB06 88960020 BIN SNB16 89040020 BIN SNB26 89120020 BIN SNB36 89200020 BIN SNB46 89280020 BIN SNB56 89360020 BIN SNB66 89440020 BIN SNB76 89520020 LABEL ' ','WRT INHIBIT',' ',' ','DRIVE 3C89600020 /6','CYL 2','HEAD 2','MESSAGE 2' 89680020 * 89760020 LINE (13,15),(1,15) 89840020 BIN SNB07 89920020 BIN SNB17 90000020 BIN SNB27 90080020 BIN SNB37 90160020 BIN SNB47 90240020 BIN SNB57 90320020 BIN SNB67 90400020 BIN SNB77 90480020 LABEL ' ','OP INCOMPLT',' ',' C90560020 ','DRIVE 3/6','CYL 1','HEAD 1','MESSAGE 1' 90640020 LINE ,(1,1) 90720020 ROUTINE SNB70,CHKFMT 90800020 LABEL ' ' 90880020 DC X'FF' 90960020 DC XL2'007A' 91040020 SBCNTL DC XL2'0018' S21021 91120002 DC XL2'0000' 91200020 LABELS DS 0F 91280020 DC C'$' 91360020 LSTART 91440020 END 91520020