*********************************************************************** 00050068 * * 00100068 * MODULE NAME = BNGILOCL * 00150068 * * 00200068 * DESCRIPTIVE NAME = IMS DEMF LOCAL TERMINAL ERROR TEXT DISPLAY * 00250068 * * 00300068 * COPYRIGHT = NONE * 00350068 * * 00400068 * STATUS = RELEASE 1, LEVEL 1 * 00450068 * * 00500068 * FUNCTION = 1) DISPLAYS CANNED STATUS/SENSE TEXT OF ALL POSSIBLE * 00550068 * LOCAL TERMINAL ERROR COMBINATIONS; * 00600068 * 2) PROVIDES THE SELECTION DISPLAY OF EXPLANATION AND * 00650068 * POSSIBLE CAUSES ON THE LOCAL TERMINAL STATUS/SENSE * 00700068 * WHICH IS SELECTED BY DEMF USER. * 00750068 * * 00800068 * NOTES = NONE * 00850068 * * 00900068 * DEPENDENCIES = NONE * 00950068 * * 01000068 * RESTRICTIONS = NONE * 01050068 * * 01100068 * REGISTER CONVENTIONS : * 01150068 * -------------------- * 01200068 * * 01250068 * ALL DEMF RECORDING DISPLAY COMPONENTS USE STANDARD REGISTER * 01300068 * CONVENTIONS WITH THE EXCEPTION OF THE IMS DISPLAY COMPONENTS. * 01350068 * CERTAIN IMS MODULES USE ADDITIONAL REGISTERS AND THE LINK MACRO * 01400068 * FOR PASSING OR RETRIEVING DATA PARAMETER INFORMATION AND ARE * 01450068 * DETAILED BELOW: * 01500068 * * 01550068 * MODULE REGISTER CONTENTS. * 01600068 * -------- -------- ------------------------------------ * 01650068 * BNGIDISP R5 PASSES ADDRESS OF IMS PROGRAM * 01700068 * COMMUNICATION BLOCK (PCB) TO * 01750068 * BNGI3270, BNGIMENU, BNGILOCL, AND * 01800068 * BNGIRMOT. * 01850068 * * 01900068 * R11 PASSES TO BNGIREAD THE ADDRESS OF A * 01950068 * PARAMETER LIST CONTAINING: * 02000068 * * 02050068 * 1) 4-BYTES - ADDRESS OF I/O AREA FROM * 02100068 * BNGIREAD * 02150068 * * 02200068 * 2) 3-BYTES - RELATIVE BLOCK ADDRESS TO * 02250068 * BE READ BY BNGIREAD * 02300068 * * 02350068 * 3) 2-BYTES - STATUS OF READ FROM * 02400068 * BNGIREAD * 02450068 * * 02500068 * R12 FOR BNGI3270, PASSES THE ADDRESS OF A * 02550068 * COMMUNICATION AREA CONTAINING * 02600068 * UP TO SIX EDITTED PARM FIELDS, SAVE * 02650068 * AND WORK AREAS, AND THE INPUT MESSAGE. * 02700068 * * 02750068 * FOR BNGILOCL, BNGIRMOT, AND BNGIMENU; * 02800068 * PASSES THE ADDRESS OF THE INPUT MESSAGE. * 02850068 * * 02900068 * BNGIREAD LINK TO BNGIDCBA RETRIEVES THE ADDRESS OF THE * 02950068 * (ALIAS FOR BNGISIMS) ADDRESS OF THE SYS1.DEMFLOG * 03000068 * DCB. * 03050068 * * 03100068 * R11 RECEIVES ADDRESS OF PARAMETER LIST * 03150068 * (SEE BNGIDISP R11 FOR LIST). * 03200068 * * 03250068 * BNGI3270 R5 RECEIVES ADDRESS OF IMS PCB FROM BNGIDISP * 03300068 * * 03350068 * R11 PASSES TO BNGIREAD THE ADDRESS OF A * 03400068 * PARAMETER LIST (SEE BNGIDISP R11 FOR LIST) * 03450068 * * 03500068 * R12 RECEIVES FROM BNGIDISP THE ADDRESS OF THE * 03550068 * COMMUNICATION AREA (SEE BNGIDISP R12 FOR * 03600068 * CONTENTS OF AREA). * 03650068 * * 03700068 * BNGIMENU R5 RECEIVES ADDRESS OF IMS PCB FROM BNGIDISP * 03750068 * * 03800068 * R12 RECEIVES ADDRESS OF INPUT MESSAGE FROM * 03850068 * BNGIDISP. * 03900068 * * 03950068 * BNGILOCL R5 RECEIVES ADDRESS OF IMS PCB FROM BNGIDISP * 04000068 * * 04050068 * R12 RECEIVES ADDRESS OF INPUT MESSAGE FROM * 04100068 * BNGIDISP. * 04150068 * * 04200068 * BNGIRMOT R5 RECEIVES ADDRESS OF IMS PCB FROM BNGIDISP * 04250068 * * 04300068 * R12 RECEIVES ADDRESS OF INPUT MESSAGE FROM * 04350068 * BNGIDISP. * 04400068 * * 04450068 * PATCH LABEL = NONE * 04500068 * * 04550068 * MODULE TYPE = IMS DISPLAY * 04600068 * * 04650068 * PROCESSOR = ASSEMBLER H * 04700068 * * 04750068 * MODULE SIZE = 7218 DECIMAL BYTES * 04800068 * * 04850068 * ATTRIBUTES = SERIALLY REUSABLE * 04900068 * * 04950068 * ENTRY POINT = BNGILOCL * 05000068 * * 05050068 * PURPOSE = SEE FUNCTION * 05100068 * * 05150068 * LINKAGE = R14 LOADED WITH THE RETURN ADDR (USED BY SUBROUTINE) * 05200068 * * 05250068 * INPUT = PARAM LIST ITEMS USED ARE : INPUT MESSAGE * 05300068 * * 05350068 * OUTPUT = PARAM LIST ITEMS USED ARE : LOCAL INDEX AND TEXT DISPLAYS * 05400068 * * 05450068 * EXIT-NORMAL = REGISTER 15 RETURN CODE RETURNED TO CALLER : * 05500068 * 00 - OPERATION PERFORMED AS REQUESTED * 05550068 * * 05600068 * EXIT-ERROR = NONE * 05650068 * * 05700068 * EXTERNAL REFERENCE = NONE * 05750068 * * 05800068 * ROUTINES = NONE * 05850068 * * 05900068 * DATA AREAS = NONE * 05950068 * * 06000068 * CONTROL BLOCK = DCB * 06050068 * * 06100068 * TABLES = NONE * 06150068 * * 06200068 * MACROS = SAVE, RETURN * 06250068 * * 06300068 * CHANGE ACTIVITIES AS FOLLOWS: * 06350068 * CHANGE 01 11/15/77 PROLOGUE ADDED * 06400068 * * 06450068 *********************************************************************** 06500068 BNGILOCL TITLE 'DEMF LOCAL SRL TEXT MODULE' 79599968 R0 EQU 0 79649968 R1 EQU 1 79699968 R2 EQU 2 79749968 R3 EQU 3 79799968 R4 EQU 4 79849968 R5 EQU 5 79899968 R6 EQU 6 79949968 R7 EQU 7 79999968 R8 EQU 8 80049968 R9 EQU 9 80099968 R10 EQU 10 80149968 R11 EQU 11 80199968 R12 EQU 12 80249968 R13 EQU 13 80299968 R14 EQU 14 80349968 R15 EQU 15 80399968 PCBREG EQU R5 80449968 MSGINREG EQU R12 80499968 BASEREG EQU R3 80549968 TPIOPCB DSECT 80599968 PCBTERMN DS CL8 REQUESTING TERMINAL SYMBOLIC NAME 80649968 DS CL2 RESERVED 80699968 PCBSTAT DS CL2 DL/I STATUS CODE 80749968 PCBDATE DS PL4 TRANSACTION DATE STAMP 80799968 PCBTIME DS PL4 TRANSACTION TIME STAMP 80849968 PCBSEQ DS F TRANSACTION SEQUENCE NUMBER 80899968 PCBMODNM DS CL8 MFS MSG OUTPUT DESCRIPTOR NAME 80949968 MSGINMAP DSECT 80999968 MSGIN DS 0D MAP OF TRANSACTION MSG SEGMENT 81049968 TIOATDL DS H DATA LENGTH 81099968 MSGZ1 DS X 81149968 MSGZ2 DS X 81199968 MSGTXCD DS CL11 DEMF LOCAL FOR THIS MODULE 81249968 MSGEYED DS 0CL8 XSS=CODE IF TEXT PAGE 81299968 X DS CL1 X IF TEXT PAGE 81349968 SSEQUAL DS CL3 SS= IF TEXT PAGE 81399968 SSCODE DS CL4 CODE FOR CSW-SS IF TEXT 81449968 BNGILOCL CSECT 81499968 XNGILOCL SAVE (14,12),T,* 81549968 LR BASEREG,R15 ESTABLISH BASE REGISTER 81599968 USING BNGILOCL,BASEREG MODULE BASE REGISTER 81649968 USING TPIOPCB,PCBREG IMS TP IOPCB BASE 81699968 USING MSGINMAP,MSGINREG DSECT MAP OF TRAN MSG SEG 81749968 LR R6,R13 GET ADDRESS OF SAVE AREA 81799968 ST R13,SAVEAREA+4 SAVE R13 MY SAVE AREA 81849968 LA R13,SAVEAREA ADDRESS OF MY SAVE AREA 81899968 ST R13,8(R6) STORE MY SAVE 81949968 TESTCALL EQU * TEST INDEX OR TEXT CALL 81999968 CLC SSEQUAL,QSSEQUAL+1 REQUEST FO TEXT PAGE? 82049968 BE TEXTPAGE YES, GO FIND CSW-SS MSG 82099968 * NO. BUILD INDEX PAGE MSG 82149968 INDXPAGE EQU * REQUEST FOR INDEX PAGE 82199968 * OR UNDETERMINED CODE ENTERED 82249968 LA R6,CSWSSNBR ADDR OF CSW-SS STATUS CODES 82299968 LA R7,MSGOINDX ADDR OF MESSAGE OUTPUT AREA 82349968 LA R8,CSWSSEND UPPER LIMIT OF CSW-SS CODES 82399968 NEXTCODE EQU * 82449968 CR R6,R8 TEST FOR UPPER LIMIT OF CODES 82499968 BE INDXOUT END OF CSW-SS CODES-GET OUT 82549968 MVC 0(4,R7),QSSEQUAL MOVE ?SS= TO OUTPUT AREA 82599968 MVC 4(4,R7),0(R6) MOVE CSW-SS CODE TO OUTPUT AREA 82649968 LA R7,8(R7) BUMP ADDR FOR NEXT ?SS=XXXX 82699968 LA R6,4(R6) BUMP ADDR FOR NEXT CSW-SS CODE 82749968 B NEXTCODE GO GET NEXT ?SS=XXXX 82799968 INDXOUT EQU * INDEX PAGE OUTPUT PREPARATION 82849968 MVI 0(R7),X'3F' INSERT 3F LAST CHARACTER OF INDEX 82899968 LA R6,MSGOHDR ADDR OF MSG HEADER OUT AREA 82949968 MVC 0(IXHDRL,R6),IXHDR MOVE INDEX HEADER TO OUT AREA 82999968 SR R6,R6 CLEAR REGISTER 83049968 LA R6,CSWSSLTH LENGTH OF CSW-SS CODES 83099968 AR R6,R6 ADD LENGTH FOR EACH ?SS= 83149968 LA R6,4(R6) ADD LENGTH OF LLZZ FIELD 83199968 LA R6,IXHDRL(R6) ADD LENGTH OF HEADER 83249968 LA R6,1(R6) ADD ONE FOR LENGTH OF 3F CHARACTER 83299968 STH R6,MSGOUTLL STORE LENGTH IN LL FIELD 83349968 MVC MODNAME,LOCALI MFS MOD NAME INDEX PAGE 83399968 B CALLDLI BRANCH TO IMS DL/I CALL 83449968 TEXTPAGE EQU * 83499968 LA R6,CSWSSNBR ADDR OF BEGIN OF CSW-SS CODES 83549968 LA R7,MSGADDR ADDR OF FIRST MESSAGE 83599968 LA R8,CSWSSEND UPPER LIMIT CHECK FOR CODES 83649968 CODETEST EQU * 83699968 CR R6,R8 TEST FOR LIMIT I.E. CODE NOT FOUND 83749968 BE INDXPAGE BRANCH TO DISPLAY INDEX PAGE 83799968 CLC 0(4,R6),SSCODE COMPARE INPUT CSW-SS CODE TO TABLE 83849968 BE BUILDTXT YES, BUILD TEXT PAGE MESSAGE 83899968 LA R6,4(R6) NO, LOOK FOR ANOTHER CSW-SS CODE 83949968 LA R7,4(R7) AND BUMP TO CORRESPONDING MESSAGE 83999968 B CODETEST 84049968 BUILDTXT EQU * TEXT PAGE OUTPUT PREPARATION 84099968 MVI TEXTLG+150,C' ' CLEAR BOTTOM HALF OF LG SCREEN 84109968 MVC TEXTLG+151(240),TEXTLG+150 84119968 LA R6,MSGOHDR ADDR MSG HEADER OUT AREA 84149968 MVC 0(TXHDRL,R6),TXHDR MOVE TEXT HEADER TO OUT AREA 84199968 L R7,0(R7) ADDR OF MSG LENGTH 84209968 LA R8,2(R7) ADDR OF MSG TEXT TO MOVE 84219968 LH R7,0(R7) GET MSG LENGTH OF THIS MSG 84229968 LR R9,R7 MSG LENGTH FOR MOVE LONG 84249968 LA R6,MSGOTEXT ADDR MESSAGE OUTPUT AREA 84449968 MVCL R6,R8 MOVE MESSAGE 84699968 LA R6,1(R6) POINT TO END OF TEXT PLUS ONE 84799968 MVI 0(R6),X'3F' INSERT 3F CHARACTER AT END OF TEXT 84849968 MVC MODNAME,LOCALT MFS MOD NAME TEXT PAGE 84899968 MVC TEXTSM(200),TEXTLG MOVE LARGE SCREEN TEXT TO 84949968 MVC TEXTSM+200(191),TEXTLG+200 SMALL SCREEN AREA 85049968 CALLDLI EQU * 85059968 CALL ASMTDLI,(ISRT,(PCBREG),MSGOUT,MODNAME),VL 85099968 * TEST IMS DL/I STATUS CODE 85149968 L R13,SAVEAREA+4 RESTORE SAVE AREA ADDRESS 85199968 RETURN (14,12),RC=0 85249968 LTORG 85299968 SAVEAREA DC 18F'0' SAVE AREA 85349968 ISRT DC CL4'ISRT' IMS DL/I INSERT FUNCTION 85399968 LOCALI DC CL8'BNGIOLC1' NAME OF MFS LOCAL INDEX PAGE MOD 85449968 LOCALT DC CL8'BNGIOLC2' NAME OF MFS LOCAL TEXT PAGE MOD 85499968 QSSEQUAL DC CL4'?SS=' CHARACTERS FOR INDEX PAGE 85549968 MODNAME DC CL8' ' MFS MOD NAME FOR IMS CALL 85599968 IXHDR DC CL11'DEMF LOCAL ' 85649968 DC CL27'STATUS INDEX,X OVER ?,ENTER' 85699968 DC CL39'HIT CLEAR KEY TO EXIT DEMF' 85749968 IXHDRL EQU *-IXHDR 85799968 TXHDR DC CL11'DEMF LOCAL' 85849968 DC CL27'HIT ENTER TO REFRESH INDEX' 85899968 TXHDRL EQU *-TXHDR 85949968 MSGOUT DS 0D MESSAGE OUTPUT AREA 85999968 MSGOUTLL DC AL2(MSGOLTH) MESSAGE LENGTH LL FIELD 86049968 MSGOUTZ1 DC X'00' Z1 FIELD 86099968 MSGOUTZ2 DC X'00' Z2 FIELD 86149968 MSGODATA DS 0F BEGINNING OF MSG DATA 86199968 MSGOHDR DS CL38 MESSAGE HEADER-TEXT PAGE 86249968 MSGOTEXT DS CL7 TEXT PAGE 86299968 TEXTLG DS CL391 TEXT PAGE FOR LARGE SCREEN 86349968 TEXTSM DS CL391 TEXT PAGE FOR SMALL SCREEN 86399968 MSGOLTH EQU *-MSGOUT 86409968 SETORG DS C 86419968 ORG MSGODATA 86449968 DS CL77 MESSAGE HEADER-INDEX PAGE 86499968 MSGOINDX DS 40CL8 INDEX PAGE 86549968 ORG SETORG 86559968 MSGADDR DS 0F 86599968 M1 DC AL4(MSG1) CL4'0220' 86649968 M2 DC AL4(MSG2) CL4'0240' 86699968 M3 DC AL4(MSG3) CL4'0280' 86749968 M4 DC AL4(MSG4) CL4'0500' 86799968 M5 DC AL4(MSG5) CL4'0601' 86849968 M6 DC AL4(MSG6) CL4'0602' 86899968 M7 DC AL4(MSG7) CL4'0608' 11/04/77 86949968 M8 DC AL4(MSG8) CL4'060C' 86999968 M9 DC AL4(MSG9) CL4'0614' 87049968 M10 DC AL4(MSG10) CL4'0640' 87099968 M11 DC AL4(MSG11) CL4'0654' 87149968 M12 DC AL4(MSG12) CL4'0E01' 87199968 M13 DC AL4(MSG13) CL4'0E02' 87249968 M14 DC AL4(MSG14) CL4'0E08' 87299968 M15 DC AL4(MSG15) CL4'0E0C' 87349968 M16 DC AL4(MSG16) CL4'0E20' 87399968 M17 DC AL4(MSG17) CL4'0D00' 87449968 M18 DC AL4(MSG18) CL4'820C' 11/04/77 87459968 M19 DC AL4(MSG19) CL4'8210' 87499968 M20 DC AL4(MSG20) CL4'860C' 87599968 M21 DC AL4(MSG21) CL4'8640' 87649968 M22 DC AL4(MSG22) CL4'8654' 87699968 M23 DC AL4(MSG23) CL4'0000' 87749968 M24 DC AL4(MSG24) CL4'0400' 87799968 M25 DC AL4(MSG25) CL4'0800' 87849968 M26 DC AL4(MSG26) CL4'0C00' 87899968 M27 DC AL4(MSG27) CL4'1000' 87949968 M28 DC AL4(MSG28) CL4'2000' 87999968 M29 DC AL4(MSG29) CL4'5000' 88049968 M30 DC AL4(MSG30) CL4'HELP' 88099968 MSGEND EQU * 88149968 CSWSSNBR DS 0F 88199968 N1 DC CL4'0220' 88249968 N2 DC CL4'0240' 88299968 N3 DC CL4'0280' 88349968 N4 DC CL4'0500' 88399968 N5 DC CL4'0601' 88449968 N6 DC CL4'0602' 88499968 N7 DC CL4'0608' 88549968 N8 DC CL4'060C' 88599968 N9 DC CL4'0614' 88649968 N10 DC CL4'0640' 88699968 N11 DC CL4'0654' 88749968 N12 DC CL4'0E01' 88799968 N13 DC CL4'0E02' 88849968 N14 DC CL4'0E08' 88899968 N15 DC CL4'0E0C' 88949968 N16 DC CL4'0E20' 88999968 N17 DC CL4'0D00' 89049968 N18 DC CL4'820C' 89099968 N19 DC CL4'8210' 89149968 N20 DC CL4'860C' 89199968 N21 DC CL4'8640' 89249968 N22 DC CL4'8654' 89299968 N23 DC CL4'0000' 89349968 N24 DC CL4'0400' 89399968 N25 DC CL4'0800' 89449968 N26 DC CL4'0C00' 89499968 N27 DC CL4'1000' 89549968 N28 DC CL4'2000' 89599968 N29 DC CL4'5000' 89649968 N30 DC CL4'HELP' 89699968 CSWSSEND EQU * 89749968 CSWSSLTH EQU CSWSSEND-CSWSSNBR 89799968 MSG1 DC AL2(MSG2-*-2) 89849968 DC C'SS=0220',C' ' 89899968 DC CL29'UNIT CHECK,BUS OUT CHECK' 89949968 DC C'A PARITY CHECK WAS DETECTED ON THE ' 89999968 DC C'COMMAND BYTE ' 90049968 DC C' ' 90099968 MSG2 DC AL2(MSG3-*-2) 90149968 DC C'SS=0240',C' ' 90199968 DC CL29'UNIT CHECK,INTERVENTION REQ''D' 90249968 DC C'A COMMAND OTHER THAN SENSE WAS ADDRESSED' 90299968 DC C'TO A DEVICE THAT THE 3272 HAS RECORDED ' 90349968 DC C'AS UNAVAILABLE OR NOT READY ' 90399968 DC C' ' 90449968 MSG3 DC AL2(MSG4-*-2) 90499968 DC C'SS=0280',C' ' 90549968 DC CL29'UNIT CHECK,COMMAND REJECT' 90599968 DC C'AN INVALID COMMAND WAS ISSUED TO 3272' 90649968 MSG4 DC AL2(MSG5-*-2) 90699968 DC C'SS=0500',C' ' 90749968 DC CL29'DEVICE END,UNIT EXCEPTION' 90799968 DC C'3272 ATTEMPTED TO PERFORM A SELECT OR ' 90849968 DC C'ERASE ALL UNPROTECTED COMMAND. AFTER RE-' 90899968 DC C'TURNING INITIAL STATUS,FOUND ADDRESSED ' 90949968 DC CL40'DEVICE BUSY' 90999968 DC C' ' 91049968 MSG5 DC AL2(MSG6-*-2) 91099968 DC C'SS=0601',C' ' 91149968 DC CL29'DEVICE END,UNIT CHECK' 91199968 DC CL11' ',CL29'OPERATION CHECK' 91249968 DC C'A WRITE OR ERASE/WRT COMMAND,CONTAINING ' 91299968 DC C'A WCC WITH A START PRINT BIT,IS CHAINED ' 91349968 DC C'TO A SUBSEQUENT COMMAND' 91399968 MSG6 DC AL2(MSG7-*-2) 91449968 DC C'SS=0602',C' ' 91499968 DC CL29'DEVICE END,UNIT CK,CTRL CK' 91549968 DC C'THE ADDRESSED DEVICE FAILED TO RESPOND ' 91599968 DC C'IN A SPECIFIED PERIOD OF TIME TO A ' 91649968 DC C'SELECT,WRITE,ERASE/WRT OR AN ERASE ALL ' 91699968 DC C'UNPROTECTED COMMAND ' 91749968 MSG7 DC AL2(MSG8-*-2) 91799968 DC C'SS=0608',C' ' 91849968 DC CL29'DEVICE END,UNIT CK,DATA CK' 91899968 DC C'3272 (1) DETECTED PARITY OR CURSOR ERROR' 91949968 DC C'DURING A SELECT,WRITE OR ERASE/WRT CMD ' 91999968 DC C'OR (2) DETECTED A PARITY CK ON DATA ' 92049968 DC C'RECEIVED TO AN INTERNAL POLL' 92099968 MSG8 DC AL2(MSG9-*-2) 92149968 DC C'SS=060C',C' ' 92199968 DC CL29'DEVICE END,UNIT CHECK' 92249968 DC CL11' ',CL29'DATA CHECK,UNIT SPECIFY' 92299968 DC C'ADDRESSED DEVICE DETECTED PARITY CK OR ' 92349968 DC C'CURSOR CK DURING A SELECT,WRITE,ERASE/- ' 92399968 DC C'WRT,OR ERASE ALL UNPROTECTED COMMAND ' 92449968 DC C' ' 92499968 MSG9 DC AL2(MSG10-*-2) 92549968 DC C'SS=0614',C' ' 92599968 DC CL29'DEVICE END,UNIT CHECK' 92649968 DC CL11' ',CL29'EQUIPMENT CHECK,UNIT SPECIFY' 92699968 DC C'A PRINTER CHARACTER GENERATOR ERROR ' 92749968 DC C'OCCURED OR PRINTER BECAME MECHANICALLY ' 92799968 DC C'DISABLED DURING PRINTOUT' 92849968 MSG10 DC AL2(MSG11-*-2) 92899968 DC C'SS=0640',C' ' 92949968 DC CL29'DEVICE END,UNIT CHECK' 92999968 DC CL11' ',CL29'INTERVENTION REQUIRED' 93049968 DC C'A COMMAND ATTEMPTING TO START A PRINTER ' 93099968 DC C'FOUND IT NOT READY ' 93149968 DC C' ' 93199968 MSG11 DC AL2(MSG12-*-2) 93249968 DC C'SS=0654',C' ' 93299968 DC CL29'DEVICE END,UNIT CHK,INTV RQRD' 93349968 DC CL11' ',CL29'EQUIPMENT CHK,UNIT SPECIFY ' 93399968 DC C'A COMMAND TO START PRINT OPERATION FOUND' 93449968 DC C'PRINTER CARRIAGE MOTOR POWER OFF' 93499968 MSG12 DC AL2(MSG13-*-2) 93549968 DC C'SS=0E01',C' ' 93599968 DC CL29'CHANNEL END,DEVICE END' 93649968 DC CL11' ',CL29'UNIT CHECK,OPERATION CHECK' 93699968 DC C'ON A WRITE OR ERASE/WRT COMMAND,3272 ' 93749968 DC C'RECEIVED ILLEGAL BUFFER ADDRESS IN DATA-' 93799968 DC C'STREAM,OR DATA ENDED BEFORE PROVIDING ' 93849968 DC C'ALL CHARACTERS REQUIRED FOR SBA,RA,SF OR' 93899968 DC C'EUA ORDERS' 93949968 MSG13 DC AL2(MSG14-*-2) 93999968 DC C'SS=0E02',C' ' 94049968 DC CL29'CHANNEL END,DEVICE END' 94099968 DC CL11' ',CL29'UNIT CHECK,CONTROL CHECK' 94149968 DC C'ADDRESSED DEVICE FAILED TO RESPOND IN ' 94199968 DC C'TIME TO AN ERASE/WRT,UNCHAINED READ ' 94249968 DC C'BUFFER,READ MODIFIED OR WRITE COMMAND ' 94299968 DC C' ' 94349968 MSG14 DC AL2(MSG15-*-2) 94399968 DC C'SS=0E08',C' ' 94449968 DC CL29'CHANNEL END,DEVICE END' 94499968 DC CL11' ',CL29'UNIT CHECK,DATA CHECK' 94549968 DC C'3272 DETECTED CURSOR OR PARITY CHECK ON ' 94599968 DC C'TRANSMISSION OF DATA ON A READ BUFFER OR' 94649968 DC C'READ MODIFIED COMMAND' 94699968 MSG15 DC AL2(MSG16-*-2) 94749968 DC C'SS=0E0C',C' ' 94799968 DC CL29'CHANNEL END,DEVICE END' 94849968 DC CL11' ',CL29'UNIT CK,DATA CK,UNIT SPECIFY' 94899968 DC C'ADDRESSED DEVICE DETECTED PARITY OR ' 94949968 DC C'CURSOR CHECK ON WRITE, READ BUFFER OR ' 94999968 DC C'READ MODIFIED COMMAND ' 95049968 DC C' ' 95099968 MSG16 DC AL2(MSG17-*-2) 95149968 DC C'SS=0E20',C' ' 95199968 DC CL29'CHANNEL END,DEVICE END' 95249968 DC CL11' ',CL29'UNIT CHECK,BUS OUT CHECK' 95299968 DC C'3272 DETECTED A PARITY ERROR ON A CHAR- ' 95349968 DC C'ACTER IN DATA-STREAM OF A WRITE OR ERASE' 95399968 DC C'/WRITE COMMAND' 95449968 MSG17 DC AL2(MSG18-*-2) 95499968 DC C'SS=0D00',C' ' 95549968 DC CL29'CHANNEL END,DEVICE END' 95599968 DC CL11' ',CL29'UNIT EXCEPTION' 95649968 DC C'3272 ATTEMPTED A READ BUFFER,READ MOD- ' 95699968 DC C'IFIED,WRITE OR ERASE/WRITE COMMAND BUT ' 95749968 DC C'FOUND AFTER RETURNING INITIAL STATUS, ' 95799968 DC C'THE ADDRESSED DEVICE WAS BUSY ' 95849968 DC C' ' 95899968 MSG18 DC AL2(MSG19-*-2) 95949968 DC C'SS=820C',C' ' 95999968 DC CL29'ATTENTION,UNIT CHECK' 96049968 DC CL11' ',CL29'DATA CHECK,UNIT SPECIFY' 96099968 DC C'AN IDLE DEVICE DETECTED A PARITY CHECK ' 96149968 DC C'OR CURSOR CHECK IN ITS BUFFER' 96199968 MSG19 DC AL2(MSG20-*-2) 96249968 DC C'SS=8210',C' ' 96299968 DC CL29'ATTENTION,UNIT CHECK' 96349968 DC CL11' ',CL29'EQUIPMENT CHECK' 96399968 DC C'AN IDLE 3272 POLLED A DEVICE TWICE AND ' 96449968 DC C'DETECTED A TRANSMIT PARITY CHECK EACH ' 96499968 DC C'TIME ON THE DATA IN THE DEVICE REPLY ' 96549968 MSG20 DC AL2(MSG21-*-2) 96599968 DC C'SS=860C',C' ' 96649968 DC CL29'ATTENTION,DEV END,UNIT CHECK' 96699968 DC CL11' ',CL29'DATA CHECK,UNIT SPECIFY' 96749968 DC C'A DEVICE CHANGED FROM NOT AVAILABLE TO ' 96799968 DC C'AVAILABLE OR NOT READY TO READY AND DET-' 96849968 DC C'ECTED A CURSOR CK IN ITS BUFFER OR A PRI' 96899968 DC C'NTER DETECTED A PARITY CK WHILE PRINTING' 96949968 MSG21 DC AL2(MSG22-*-2) 96999968 DC C'SS=8640',C' ' 97049968 DC CL29'ATTN,DEVICE END,UNIT CK' 97099968 DC CL11' ',CL29'INTERVENTION REQUIRED' 97149968 DC C'THE ADDRESSED PRINTER BECAME NOT READY ' 97199968 DC C'(OUT OF PAPER OR COVER OPEN)BEFORE PRINT' 97249968 DC C'OPERATION WAS COMPLETED ' 97299968 DC C' ' 97349968 MSG22 DC AL2(MSG23-*-2) 97399968 DC C'SS=8654',C' ' 97449968 DC CL29'ATTN,DEVICE END,UNIT CHECK ' 97499968 DC CL11' ',CL29'INTV RQRD,EQUIPT CK,UNIT SPEC' 97509968 DC C'A PRINTER BECAME MECHANICALLY DISABLED ' 97549968 DC C'DURING A PRINTOUT AND AUTOMATIC RECOVERY' 97599968 DC C'WAS NOT SUCCESSFUL' 97649968 MSG23 DC AL2(MSG24-*-2) 97699968 DC C'SS=0000',C' ' 97749968 DC CL29'ZERO STATUS ' 97799968 DC C'NORMAL STATUS FOR ANY COMMAND OTHER THAN' 97849968 DC C'NO-OP,SELECT,OR ERASE ALL UNPROTECTED ' 97899968 DC C' ' 97949968 MSG24 DC AL2(MSG25-*-2) 97999968 DC C'SS=0400',C' ' 98049968 DC CL29'DEVICE END ' 98099968 DC C'DENOTES THE FOLLOWING CHANGE IN DEVICE ' 98149968 DC C'STATUS--BUSY TO NOT BUSY,NOT AVAILABLE ' 98199968 DC C'TO AVAILABLE,BUFFER TRANSFER COMPLETE, ' 98249968 DC C'OR ON/OFF LINE SWITCH TO ONLINE' 98299968 MSG25 DC AL2(MSG26-*-2) 98349968 DC C'SS=0800',C' ' 98399968 DC CL29'CHANNEL END ' 98449968 DC C'NORMAL STATUS FOR SELECT OR EAU ' 98499968 DC C' ' 98549968 MSG26 DC AL2(MSG27-*-2) 98599968 DC C'SS=0C00',C' ' 98649968 DC CL29'CHANNEL END,DEVICE END' 98699968 DC C'NORMAL STATUS FOR A NO-OP COMMAND ' 98749968 DC C' ' 98799968 MSG27 DC AL2(MSG28-*-2) 98849968 DC C'SS=1000',C' ' 98899968 DC CL29'BUSY ' 98949968 DC C'RESPONSE TO A COMMAND ADDRESSED TO A ' 98999968 DC C'DEVICE SERVICING A PRIOR ISSUED COMMAND' 99049968 MSG28 DC AL2(MSG29-*-2) 99099968 DC C'SS=2000',C' ' 99149968 DC CL29'CONTROL UNIT END' 99199968 DC C'3272 HAD BEEN ADDRESSED WHILE BUSY,BUT ' 99249968 DC C'IS NOW NOT BUSY AND FREE TO ACCEPT A NEW' 99299968 DC C'COMMAND ' 99349968 DC C' ' 99399968 MSG29 DC AL2(MSG30-*-2) 99449968 DC C'SS=5000',C' ' 99499968 DC CL29'STATUS MODIFIER,BUSY' 99549968 DC C'RESPONSE TO A COMMAND ADDRESSED TO A ' 99599968 DC C'DEVICE OTHER THAN DEVICE WHOSE STATUS IS' 99649968 DC C'PENDING OR DEVICE BEING SERVICED BY 3272' 99699968 MSG30 DC AL2(LASTMSG-*-2) 99749968 DC C'SS=HELP',C' ' 99799968 DC CL29'LOCAL STATUS/SENSE HELPER.' 99849968 DC CL40'FIELDS "SS=XXXX" REFER TO 1ST BYTE OF' 99899968 DC CL40'CSW AND THE SENSE BYTE. FOR INSTANCE,' 99949968 DC CL40'IF ERROR DISPLAY SHOWED CSW=0E00 AND' 99956968 DC CL40'SENSE=02, LOOK UP MSG FOR "SS=0E02"' 99963968 LASTMSG EQU * 99970968 END BNGILOCL 99977968