*********************************************************************** 00050000 ** ** 00100000 ** ** 00150000 ** MODULE NAME: IFCE3401 ** 00200000 ** ** 00250000 ** DESCRIPTIVE-NAME: EDIT TABLE FOR OBR RECORDS FOR THE 8809 ** 00300000 ** ** 00350000 ** COPYRIGHT: NONE ** 00400000 ** ** 00450000 ** STATUS: N/A ** 00500000 ** ** 00550000 ** FUNCTION: PROVIDES DEVICE EDITING SUPPORT FOR THE 8809 OBR ** 00600000 ** RECORDS ** 00650000 ** ** 00700000 ** NOTES: ** 00750000 ** ** 00800000 ** ** 00850000 ** DEPENDENCIES : THIS MODULE WAS ASSEMBLED USING THE EBCDIC ** 00900000 ** CHARACTER SET. IT MUST BE RE-ASSEMBLED IF ** 00950000 ** ANOTHER CHARACTER SET IS TO BE USED AT EXECUTION ** 01000000 ** ** 01050000 ** RESTRICTIONS: N/A ** 01100000 ** ** 01150000 ** REGISTER-CONVENTIONS : ** 01200000 ** REG 2 : POINTER TO THE MDR RECORD ** 01250000 ** REG 3 : POINTER TO THE PRINT BUFFER ** 01300000 ** REG 4 : POINTER TO THE DATA ITEM REFERENCED IN 'ROUTINE' ** 01350000 ** REG 14: RETURN POINT FROM 'ROUTINE' ** 01400000 ** REG 15: SET TO ZERO TO SUPPRESS PRINTING LINE ** 01450000 ** ** 01500000 ** PATCH-LABEL: PATCH ** 01550000 ** ** 01600000 ** MODULE TYPE: DATA ** 01650000 ** ** 01700000 ** PROCESSOR: 370 ASSEMBLER ** 01750000 ** ** 01800000 ** MODULE-SIZE: ** 01850000 ** ** 01900000 ** ATTRIBUTES: SERIALLY RE-USABLE ** 01950000 ** ** 02000000 ** ENTRY-POINT: N/A ** 02050000 ** ** 02100000 ** ** 02150000 ** LINKAGE: N/A ** 02200000 ** ** 02250000 ** INPUT: N/A ** 02300000 ** ** 02350000 ** OUTPUT: N/A ** 02400000 ** ** 02450000 ** EXIT-NORMAL: N/A ** 02500000 ** ** 02550000 ** EXIT-ERROR : N/A ** 02600000 ** ** 02650000 ** EXTERNAL-REFERENCES: ** 02700000 ** ** 02750000 ** ROUTINES: NONE ** 02800000 ** ** 02850000 ** DATA-AREAS: NONE ** 02900000 ** ** 02950000 ** CONTROL-BLOCKS: NONE ** 03000000 ** ** 03050000 ** TABLES: NONE ** 03100000 ** ** 03150000 ** MACROS: EDIT TABLE MACROS ** 03200000 ** ** 03250000 *********************************************************************** 03300000 TITLE 'IFCE3401 EDIT TABLE FOR 8809' 03350000 GBLC &CSECT,&DSECT 03400000 PROLOG NAME=IFCE3401 03450000 *********************************************************************** 03500000 * * 03550000 * INPUT DATA TABLE DEFINITIONS * 03600000 * * 03650000 *********************************************************************** 03700000 * * * * * * * * 03750000 DSGEN (KEY,8),(LEVEL,8),(INDSW,8),(DEPSW,8),(RSVD1,16) 03800000 DSGEN (RECNUM,8),(RSVD2,8),(DATE,32),(TIME,32),(VERSION,8) 03850000 DSGEN (CPUSER,24),(CPUID,16),(MCEL,16) 03900000 DSGEN (TASKID,64) 03950000 DSGEN (CCWCC,8),(CCWDA,24),(CCWFL,8),(CCWUN,8),(CCWCT,16) 04000000 DSGEN (CSWK,8),(CSWCA,24),(CSWUS,8),(CSWCS,8),(CSWCT,16) 04050000 ORG CSWUS 04100000 DSGEN (CSWUSB,1,0,7),(CSWCSB,1,0,7) 04150000 ORG 04200000 DSGEN (DEVD,8),(RESVD2,8),(SECUA,16),(DEVTYP,32),(SDRLNG,8) 04250000 DSGEN (RESVD3,8),(PCUA,16),(IORETRY,16),(SNSLNG,16) 04300000 DSGEN (VOLSER,48),(BLKLNG,16) 04350000 DSGEN (SDR,8,0,31) 04400000 DSGEN (WORKA,32) 04450000 EJECT 04500000 &CSECT CSECT 04550000 *********************************************************************** 04600000 * * 04650000 * SPECIAL ROUTINES * 04700000 * * 04750000 *********************************************************************** 04800000 * * * * * * * * 04850000 SPACE 2 04900000 SETTID MVC 0(8,R3),TASKID MOVE IN TASKID 04950000 BR R14 RETURN 05000000 SETDATE UNPK WORKD(5),DATE+1(3) UNPACK DATE 05050000 MVC 6(2,R3),WORKD MOVE IN YEAR 05100000 MVC 0(3,R3),WORKD+2 MOVE IN DAY 05150000 BR R14 RETURN 05200000 WORKD DC D'0' 05250000 WORKF DC F'0' 05300000 SPACE 2 05350000 SETMOD SH R3,TOCOL15 MOVE POINTER TO COL.15 05400000 CLI VERSION,MOD3VER MODEL 3 ? ? ? 05450000 BNER R14 NO - RETURN 05500000 MVC 0(2,R3),MOD3MSG YES - MOVE IN DATA 05550000 BR R14 RETURN 05600000 MOD3VER EQU X'01' MOD 3 INDICATOR 05650000 MOD3MSG DC CL2'-3' 05700000 TOCOL15 DC H'9' 05750000 SPACE 2 05800000 * SETSYS CODE AND SYSDATA REMOVED FOR SYSRELN CHANGES 05850000 WORK3F DC 3F'0' 05900000 SPACE 2 05950000 * SETLEVEL REMOVED FOR SYSRELN CHANGES 06000000 ZONE EQU X'F0' ZONE BIT MASK 08300000 SPACE 2 08350000 SETVOL MVC 0(6,R3),VOLSER MOVE IN SERIAL NUMBER 08400000 BR R14 RETURN 08450000 RECTYPE TM KEY,MDRMSK MDR RECORD? 08500000 BNOR R14 NO, CONTINUE PROCESSING 08550000 MVC XR9PTR,ADDROBR CHANGE TO LOAD OBR EDIT 08600000 SR R15,R15 DO NOT PRINT LINE 08650000 BR R14 08700000 ADDROBR DC A(OBR-4) 08750000 MDRMSK EQU X'90' 08800000 SPACE 2 08850000 MOVAHEAD SR R4,R2 GET DISPLACEMENT 08900000 AR R3,R4 ADD TO POINTER 08950000 BR R14 RETURN 09000000 SPACE 2 09050000 LDZERO MVI 0(R3),C'0' INSERT LEADING ZERO 09100000 BR R14 RETURN 09150000 EJECT 09200000 *********************************************************************** 09250000 * * 09300000 * LINE/LABEL CONTROL SECTION * 09350000 * * 09400000 *********************************************************************** 09450000 * * * * * * * * 09500000 SPACE 2 09550000 OBR ETCALL IFCET040 09600000 ENTRIES 09650000 LINE (1,1),(1,1),SKIP=E 09700000 ROUTINE KEY,RECTYPE 09750000 LABEL '' 09800000 LINE (1,1),(48,1),SKIP=2 09850000 LABEL '--- I/O DEVICE EDITING ---' 09900000 SPACE 2 09950000 LINE (39,1),(22,20),SKIP=2 10000000 ROUTINE TASKID,SETTID 10050000 LABEL 'TASK IDENTITY',,,'DAY YEAR','HH MM SS' 10100000 SPACE 2 10150000 LINE (82,20),(1,10),SKIP=2 10200000 ROUTINE DATE,SETDATE 10250000 HEX (TIME,1,3B) 10300000 LABEL 'RECORD TYPE - UNIT CHECK',,,,,,,' DATE -',, *10350000 ' TIME -' 10400000 SPACE 2 10450000 LINE (11,13),(1,20),SKIP=2 10500000 HEX (CPUID,0,2B) 10550000 ROUTINE VERSION,SETMOD 10600000 HEX (CPUSER,0,3B) 10650000 LABEL 'CPU MODEL','SERIAL' 10700000 SPACE 2 10750000 LINE (1,21),(8,1),SKIP=2 10800000 SYSRELN LEVEL,8 10850000 LABEL '' 10900000 SPACE 2 11000000 LINE (31,23),(1,40),SKIP=2 11050000 HEX (PCUA,0,2B) 11100000 LABEL 'FAILING CHANNEL/UNIT ADDRESS','DEVICE TYPE 8809' 11150000 SPACE 2 11200000 LINE ,(15,68),SKIP=2 11250000 LABEL 'CC DA FL CT','K CA US CS CT' 11300000 SPACE 2 11350000 LINE (15,3),(1,76),SKIP=3 11400000 HEX (CCWCC,0,1B),(CCWDA,0,3B) 11450000 ROUTINE &DSECT+2,MOVAHEAD 11500000 HEX (CCWFL,0,1B),(CCWUN,0,1B),(CCWCT,0,2B) 11550000 ROUTINE &DSECT+45,MOVAHEAD 11600000 HEX (CSWK,0,1B),(CSWCA,0,3B) 11650000 ROUTINE &DSECT+2,MOVAHEAD 11700000 HEX (CSWUS,0,1B),(CSWCS,0,1B),(CSWCT,0,2B) 11750000 LABEL 'FAILING CCW','CSW' 11800000 SPACE 2 11850000 LINE ,(15,55),SKIP=2 11900000 LABEL '--- UNIT STATUS ---','--- CHANNEL STATUS ---' 11950000 SPACE 2 12000000 LINE (19,28),(1,28),SKIP=1 12050000 BIN (CSWUSB0),(CSWUSB4),(CSWCSB0),(CSWCSB4) 12100000 LABEL 'ATTENTION','CHANNEL END','PRGM-CTLD IRPT', *12150000 'CHAN DATA CHECK' 12200000 SPACE 2 12250000 LINE 12300000 BIN (CSWUSB1),(CSWUSB5),(CSWCSB1),(CSWCSB5) 12350000 LABEL 'STATUS MODIFIER','DEVICE END','INCORRECT LENGTH', *12400000 'CHAN CTL CHECK' 12450000 SPACE 2 12500000 LINE 12550000 BIN (CSWUSB2),(CSWUSB6),(CSWCSB2),(CSWCSB6) 12600000 LABEL 'CONTROL UNIT END','UNIT CHECK','PROGRAM CHECK', *12650000 'I/F CTL CHECK' 12700000 SPACE 2 12750000 LINE ,,SKIP=3 12800000 BIN (CSWUSB3),(CSWUSB7),(CSWCSB3),(CSWCSB7) 12850000 LABEL 'BUSY','UNIT EXCEPTION','PROTECTION CHECK', *12900000 'CHAINING CHECK' 12950000 SPACE 2 13000000 LINE ,(1,1),SKIP=2 13050000 LABEL 'DEVICE DEPENDENT DATA:' 13100000 SPACE 2 13150000 LINE (16,1),(1,1),SKIP=1 13200000 ROUTINE VOLSER,SETVOL 13250000 LABEL 'VOLUME SERIAL' 13300000 SPACE 2 13350000 LINE ,,SKIP=3 13400000 ROUTINE WORKA,LDZERO 13450000 HEX (BLKLNG,0,2B) 13500000 LABEL 'BLOCK LENGTH' 13550000 SPACE 2 13600000 LINE ,(1,1),SKIP=2 13650000 LABEL 'SENSE BYTE DATA:' 13700000 SPACE 2 13750000 LINE ,(42,1),SKIP=1 13800000 LABEL '1 1 1 1 1 1' 13850000 SPACE 2 13900000 LINE ,(2,40) 13950000 LABEL '0 1 2 3 4 5 6 7 8 9', *14000000 '0 1 2 3 4 5' 14050000 SPACE 2 14100000 LINE (1,4),,SKIP=3 14150000 HEX (SDR0,0,1B),(SDR1,0,1B),(SDR2,0,1B),(SDR3,0,1B) 14200000 HEX (SDR4,0,1B),(SDR5,0,1B),(SDR6,0,1B),(SDR7,0,1B) 14250000 HEX (SDR8,0,1B),(SDR9,0,1B),(SDR10,0,1B),(SDR11,0,1B) 14300000 HEX (SDR12,0,1B),(SDR13,0,1B),(SDR14,0,1B),(SDR15,0,1B) 14350000 LABEL '' 14400000 SPACE 2 14450000 LINE ,(2,32),SKIP=1 14500000 LABEL '1 1 1 1 2 2 2 2', *14550000 '2 2 2 2 2 2 3 3' 14600000 SPACE 2 14650000 LINE 14700000 LABEL '6 7 8 9 0 1 2 3', *14750000 '4 5 6 7 8 9 0 1' 14800000 SPACE 2 14850000 LINE ,,SKIP=3 14900000 HEX (SDR16,0,1B),(SDR17,0,1B),(SDR18,0,1B),(SDR19,0,1B) 14950000 HEX (SDR20,0,1B),(SDR21,0,1B),(SDR22,0,1B),(SDR23,0,1B) 15000000 HEX (SDR24,0,1B),(SDR25,0,1B),(SDR26,0,1B),(SDR27,0,1B) 15050000 HEX (SDR28,0,1B),(SDR29,0,1B),(SDR30,0,1B),(SDR31,0,1B) 15100000 LABEL '' 15150000 SPACE 2 15200000 LINE (15,1),(1,1),SKIP=2 15250000 HEX (SDR30,0,2B) 15300000 LABEL 'SYMPTOM CODE' 15350000 SPACE 2 15400000 ETEPILOG RLEN=67 15450000 END 15500000