*********************************************************************** 00000268 * * 00000468 * MODULE NAME = BNGCLOCL * 00000668 * * 00000868 * DESCRIPTIVE NAME = CICS DEMF LOCAL TERMINAL ERROR INDEX & TEXT * 00001068 * DISPLAY MODULE * 00001268 * * 00001468 * COPYRIGHT = NONE * 00001668 * * 00001868 * STATUS = RELEASE 1, LEVEL 1 * 00002068 * * 00002268 * FUNCTION = 1) RECEIVES CONTROL FROM BNGCDISP; * 00002468 * 2) DISPLAYS CANNED STATUS/SENSE TEXT OF ALL POSSIBLE * 00002668 * LOCAL TERMINAL ERROR COMBINATIONS; * 00002868 * 3) PROVIDES THE SELECTION DISPLAY OF EXPLANATION AND * 00003068 * POSSIBLE CAUSES ON THE LOCAL TERMINAL STATUS/SENSE * 00003268 * WHICH IS SELECTED BY DEMF USER; * 00003468 * 4) RETURNS CONTROL TO CICS. * 00003668 * * 00003868 * NOTES = NONE * 00004068 * * 00004268 * DEPENDENCIES = * 00004468 * * 00004668 * THE FOLLOWING ARE CICS TABLES/CONTROL BLOCKS AND THEIR LABELS * 00004868 * USED BY DEMF CICS MODULES (BNGCDISP,BNGC3270,BNGCLOCL,BNGCRMOT * 00005068 * BNGCMENU) : * 00005268 * * 00005468 * CICS TABLE AND * 00005668 * CONTROL BLOCKS LABELS USED * 00005868 * ---------------------- ----------- * 00006068 * * 00006268 * COMMON SYSTEM AREA CSATCTBA * 00006468 * (CSA) * 00006668 * * 00006868 * TERMINAL CONTROL TABLE TCTTEDA * 00007068 * TERMINAL ENTRY (TCTTE) TCTTETM * 00007268 * TCTTELT * 00007468 * TCTTETI * 00007668 * TCTTECLT * 00007868 * TCTTETEL * 00008068 * TCTTETT * 00008268 * TCTTEGU * 00008468 * TCTTETA * 00008668 * * 00008868 * TERMINAL CONTROL TABLE TCTLELF * 00009068 * LINE ENTRY (TCTLE) TCTLEFAA * 00009268 * TCTLEPI * 00009468 * TCTLEMFP * 00009668 * TCTLEPA * 00009868 * TCTLEDCB * 00010068 * TCTLERLN * 00010268 * * 00010468 * TERMINAL INPUT/OUTPUT AREA TIOADBA * 00010668 * (TIOA) TIOATDL * 00010868 * * 00011068 * TASK CONTROL AREA TCAFCAAA * 00011268 * (TCA) TCAFCAA * 00011468 * TCAPCPI * 00011668 * TCASCSA * 00011868 * * 00012068 * FILE INPUT/OUTPUT AREA FIOADBA * 00012268 * (FIOA) * 00012468 * * 00012668 * RESTRICTIONS = NONE * 00012868 * * 00013068 * REGISTER CONVENTIONS = R12 ADDRESS OF TCA * 00013268 * R13 ADDRESS OF CSA * 00013468 * * 00013668 * PATCH LABEL = NONE * 00013868 * * 00014068 * MODULE TYPE = CICS DISPLAY * 00014268 * * 00014468 * PROCESSOR = ASSEMBLER H * 00014668 * * 00014868 * MODULE SIZE = 6400 DECIMAL BYTES * 00015068 * * 00015268 * ATTRIBUTES = QUASI-REENTRANT * 00015468 * * 00015668 * ENTRY POINT = BNGCLOCL * 00015868 * * 00016068 * PURPOSE = SEE FUNCTION * 00016268 * * 00016468 * LINKAGE = R14 LOADED WITH THE RETURN ADDR (USED BY SUBROUTINE) * 00016668 * * 00016868 * INPUT = PARAM LIST ITEMS USED ARE : INPUT TIOA AT LABEL - B5 * 00017068 * * 00017268 * OUTPUT = PARAM LIST ITEMS USED ARE : OUTPUT TIOA AT LABEL - GETTIOA * 00017468 * * 00017668 * EXIT-NORMAL = REGISTER 15 RETURN CODE RETURNED TO CALLER : * 00017868 * 00 - OPERATION PERFORMED AS REQUESTED * 00018068 * * 00018268 * EXIT-ERROR = NONE * 00018468 * * 00018668 * EXTERNAL REFERENCE = NONE * 00018868 * * 00019068 * ROUTINES = NONE * 00019268 * * 00019468 * DATA AREAS = NONE * 00019668 * * 00019868 * CONTROL BLOCK = DFHCSADS, DFHTCTTE, DFHTCADS, DFHTIOA * 00020068 * * 00020268 * TABLES = NONE * 00020468 * * 00020668 * MACROS = DFHCOVER, DFHTC, DFHPC, DFHSC * 00020868 * * 00021068 * CHANGE ACTIVITIES AS FOLLOWS: * 00021268 * CHANGE 01 11/15/77 PROLOGUE ADDED * 00021468 * * 00021668 *********************************************************************** 00021868 TITLE 'DEMF LOCAL SRL TEXT MODULE' 00031868 DFHCOVER 00032068 COPY DFHCSADS 00062068 EJECT 00092068 COPY DFHTCTTE 00122068 EJECT 00200168 COPY DFHTCADS 00214168 SAVEREG DS F 00221168 HALFWORD DS H 00235168 SBACTR DS PL1 00241168 TEXTSW DC X'00' 00244168 EJECT 00250168 COPY DFHTIOA 00266168 EJECT 00274168 CSECT 00282168 BASEREG EQU 3 00288168 TCTTEAR EQU 5 00300168 TIOABAR EQU 6 00316168 SBAREG EQU 7 00324168 OUTREG EQU 8 00332168 LINKREG EQU 9 00338168 MSGREG EQU 10 00350168 LIMITREG EQU 11 00362168 NEXTREG EQU 8 00374168 LTHREG EQU 7 00380168 INREG EQU 7 00392168 L18P21 EQU X'D5E4' MOD2 SCREEN 00394168 SML12P1 EQU X'C6F8' MOD1 SCREEN 00396168 SBA EQU X'11' SET BUFFER ADDR COMMAND 00400168 SF EQU X'1D' START FIELD COMMAND 00416168 IC EQU X'13' INSERT CURSOR COMMAND 00424168 UNA EQU X'40' UNPROTECTED,NORMAL INTENSITY,ALPHAMERIC 00432168 MNA EQU X'61' MODIFIED,NORMAL INTENSITY,ALPHAMERIC 00438168 MDA EQU X'E9' PROT,MODIFIED,HIGH INTENSITY,ALPHAMERIC 00450168 PDA EQU X'E8' PROTECTED,HIGH INTENSITY,ALPHAMERIC 00466168 PNA EQU X'60' PROTECTED,NORMAL INTENSITY,ALPHAMERIC 00474168 BNGCLOCL BALR BASEREG,0 00482168 USING *,BASEREG 00488168 B B5 00500168 DC C'DEMF LOCAL SRL TEXT MODULE OS V1.0' 00510168 B5 L TCTTEAR,TCAFCAAA 00513168 L TIOABAR,TCTTEDA 00520168 MVI INDEXSW,X'00' SET INDEXSW = OFF 00570168 LA INREG,TIOADBA LOCATE INPUT DATA. 00620168 CLI 0(INREG),SBA 00670168 BNE B12 00720168 LA INREG,3(INREG) 00770168 B12 CLC 15(3,INREG),=C'SS=' IS THIS A RQUEST FOR TEXT? 01150168 BE D1 YES. GO LOCATE IT. 01164168 MVI INDEXSW,X'FF' SET INDEXSW = ON 01166168 B14 EQU * NO. BUILD AN INDEX PAGE. 01171168 LA LTHREG,IXHDRLTH+3+(44*(SSLTH+4))+(11*SBALTH) 01185168 BAL LINKREG,GETTIOA FREE INAREA & GET OUTAREA. 01190168 MVC 0(IXHDRLTH,OUTREG),IXHDR MOVE INDEX HEADER LINE. 01200168 LA OUTREG,IXHDRLTH(OUTREG) 01216168 LA MSGREG,MSG1 SETUP TO LOCATE ALL 01224168 L LIMITREG,=A(LASTMSG) 'SS=????' FIELDS. 01232168 ZAP SBACTR,=P'4' SETUP FOR 4 PER LINE. 01238168 B22 CLC 0(3,MSGREG),=X'60E2E2' IS THIS A SENSE/STATUS? 01250168 BE C8 YES. ADD IT TO OUTAREA. 01260168 B24 LA MSGREG,1(MSGREG) NO. CONTINUE LOOKING. 01270168 CR MSGREG,LIMITREG ALL DONE? 01280168 BL B22 NO. 01290168 CLI TCTTETM,C'2' IS THIS FOR MOD2 SCREEN? 01290468 BNE C3 NO. 01290768 LA SBAREG,SBA192C LOAD LAST SBA ATTR ADDR 01291068 MVC 0(5,OUTREG),0(SBAREG) MOVE LAST PROTECTED ATTR 01291368 LA OUTREG,5(OUTREG) BUMP 5 BYTES 01291668 C3 CLI INDEXSW,X'FF' IS INDEXSW ON ? 01291968 BNE C6 NO. 01292268 CLI TCTTETM,X'F1' IS THIS A 3277-1 ? 01292568 BE C5 YES. 01292868 MVC 0(HITMSGLL,OUTREG),HITMSGL MOVE 'HIT CLEAR KEY' MSG 01293168 LA OUTREG,HITMSGLL(OUTREG) BUMP OUTPUT POINTER 01293468 B C6 01293768 C5 MVC 0(HITMSGSL,OUTREG),HITMSGS MOVE 'HIT CLEAR KEY' MSG 01294068 LA OUTREG,HITMSGSL(OUTREG) BUMP OUTPUT POINTER 01294368 C6 LA 1,TIOADBA YES. 01294668 SR OUTREG,1 COMPUTE FINAL 01294968 STH OUTREG,TIOATDL DATA LENGTH. 01295268 DFHTC TYPE=(WRITE,ERASE) 01295568 DFHPC TYPE=RETURN 01295868 *********************************************************************** 01296168 * * 01296468 * RETURN * 01296768 * * 01297068 *********************************************************************** 01297368 C8 CP SBACTR,=P'4' BEGINNING A NEW LINE? 01300168 BNE C14 NO. 01363168 CLI TCTTETM,C'2' IS THIS FOR MOD2 DISPLAY? 01363668 BE C12 YES. 01364168 C11 MVC 0(3,OUTREG),0(SBAREG) XXXX NO. (MOD1) MOVE NEXT 01364668 LA SBAREG,3(SBAREG) XXXX SBA SEQUENCE 01365168 LA OUTREG,3(OUTREG) XXXX TO OUTPUT AREA. 01365668 B C13 01366168 C12 MVC 0(8,OUTREG),0(SBAREG) XXXX YES. MOVE NEXT 01366668 LA SBAREG,8(SBAREG) XXXX SBA SEQUENCE 01367168 LA OUTREG,8(OUTREG) XXXX TO OUTPUT AREA. 01367668 C13 ZAP SBACTR,=P'0' 01368168 C14 MVC 0(SSLTH,OUTREG),SSMSG MOVE THIS ITEM 01370168 MVC SSLTH(4,OUTREG),4(MSGREG) TO OUTPUT AREA. 01420168 LA OUTREG,(SSLTH+4)(OUTREG) 01430168 AP SBACTR,=P'1' ADD 1 TO ITEMS THIS LINE. 01436168 B B24 01450168 D1 L LIMITREG,=A(LASTMSG) POINT TO LAST MSG. 01466168 LA MSGREG,MSG1 POINT TO 1ST MSG. 01474168 LR NEXTREG,MSGREG 01482168 D3 MVC HALFWORD,0(MSGREG) 01488168 AH NEXTREG,HALFWORD POINT TO NEXT MSG. 01500168 ST MSGREG,SAVEREG 01516168 D4 CLC 0(7,MSGREG),15(INREG) IS THIS THE DESIRED MSG? 01524168 BE D12 YES, MOVE IT TO OUTAREA. 01532168 LA MSGREG,1(MSGREG) NO. STILL IN THIS MSG? 01538168 CR MSGREG,NEXTREG 01550168 BL D4 YES. KEEP LOOKING. 01566168 CR MSGREG,LIMITREG ALL MSGS LOOKED AT? 01574168 BL D3 NO. RESET ON NEXT MSG. 01582168 B B14 YES. BAD INPUT; SHOW INDEX. 01588168 D12 L MSGREG,SAVEREG RESTORE START OF THIS MSG. 01600168 LA LTHREG,PGHDRLTH+(12*SBALTH) 01614168 MVC HALFWORD,0(MSGREG) 01621168 AH LTHREG,HALFWORD COMPUTE LTH THIS MSG & HDR. 01635168 MVI TEXTSW,X'FF' SET GETTIOA SUBR SWT 01637168 BAL LINKREG,GETTIOA FREE INAREA & GET OUTAREA. 01641168 MVC 0(PGHDRLTH,OUTREG),PGHDR MOVE PAGE HDR LINE. 01650168 LA OUTREG,PGHDRLTH(OUTREG) 01666168 MVC HALFWORD,0(MSGREG) 01674168 LH 1,HALFWORD GET TRUE LENGTH 01682168 SH 1,=H'2' OF THIS MSG. 01688168 D20 CH 1,=H'40' ONE MORE FULL LINE TO DO? 01700168 BH E2 YES. MOVE IT. 01716168 MVC 0(3,OUTREG),0(SBAREG) NO. MOVE THE 01724168 EX 1,MOVE REMAINDER AND 01732168 AR OUTREG,1 GET OUT. 01738168 LA OUTREG,3(OUTREG) 01750168 B C3 01766168 E2 MVC 0(3,OUTREG),0(SBAREG) MOVE NEXT SBA SEQUENCE. 01774168 LA SBAREG,3(SBAREG) 01782168 CLI 2(MSGREG),SF IF THIS IS A LINE 01788168 BNE E5 CONTAINING ATTRIBUTES, 01800168 MVC 3(2,OUTREG),2(MSGREG) MOVE 01816168 LA OUTREG,2(OUTREG) TWO EXTRA 01824168 LA MSGREG,2(MSGREG) BYTES. 01832168 SH 1,=H'2' 01838168 E5 MVC 3(40,OUTREG),2(MSGREG) MOVE 40 CHARS OF TEXT. 01850168 LA OUTREG,43(OUTREG) 01860168 LA MSGREG,40(MSGREG) 01870168 SH 1,=H'40' DECREMENT RESIDUAL COUNT. 01880168 B D20 01890368 *********************************************************************** 01890668 * * 01890968 * NEXT SEQUENCE OF INST CLEARS OUTPUT TIOA TO BLANKS * 01891268 * * 01891568 *********************************************************************** 01891868 GETTIOA ST TIOABAR,TCASCSA FREE ORIGINAL 01892168 DFHSC TYPE=FREEMAIN INPUT AREA. 01892468 STH LTHREG,TCASCNB 01892768 DFHSC TYPE=GETMAIN,CLASS=TERM GET NEW TIOA JUST 01893068 L TIOABAR,TCASCSA THE RIGHT SIZE. 01893368 ST TIOABAR,TCTTEDA 01893668 LA SBAREG,SBA1920 01893968 CLI TCTTETM,C'2' SETUP ON LIST OF 12 01894268 BE G11 SBA SEQUENCES FOR 01894568 G10 LA SBAREG,SBA480 XXXX APPROPRIATE TERM MODEL. 01894868 G1A MVC TIOADBA(3),0(SBAREG) XXXX 01895168 LA SBAREG,3(SBAREG) XXXX PRIME OUTAREA FOR LINE 1 01895468 LA OUTREG,TIOADBA+3 XXXX AND SETUP OUTREG FOR 01895768 BR LINKREG 01896068 G11 CLI TEXTSW,X'FF' IS TEXTSW ON? 01896368 BNE G12 NOT ON. 01896668 LA SBAREG,SBATXT2 SET SBAREG = SBATXT2 PTR 01896968 B G1A 01897268 G12 LA SBAREG,SBA192A 01897568 MVC TIOADBA(5),0(SBAREG) XXXX 01897868 MVC TIOADBA+5(5),5(SBAREG) XXXX 01898168 MVC TIOADBA+10(3),10(SBAREG) XXXX 01898468 LA SBAREG,13(SBAREG) XXXX PRIME OUTAREA FOR LINE 1 01898768 LA OUTREG,TIOADBA+13 XXXX AND SETUP OUTREG FOR 01899068 BR LINKREG REMAINING DATA. 01899368 SBALTH EQU 3 01900168 SBA192A DC X'1140401D6C' AL1(SBA),AL2(L1P1),AL1(SF,PIA) 01920168 SBA1920 DC X'11C7601D6C11C7F411C8F01D6C11C9C4114A401D6C114AD4' 01940168 DC X'114B501D6C114BE4114C601D6C114CF4114DF01D6C114EC4' 01960168 DC X'114F401D6C114FD41150501D6C1150E411D1601D6C11D1F4' 01980168 DC X'11D2F01D6C11D3C411D4401D6C11D4D411D5501D6C11D5E4' 02000168 SBA192C DC X'11D2C81D6C' AL1(SBA),AL2(L15P41),AL1(SF,PIA) 02020168 SBA480 DC X'1140401140E811C15011C1F811C26011C3C8' 02100168 DC X'11C3F011C4D811C54011C5E811C65011C6F8' 02110168 SBATXT2 DC X'11C7F411C9C4114AD4' 02111168 DC X'114BE4114CF4114EC4' 02112168 DC X'114FD41150E411D1F4' 02113168 DC X'11D3C411D4D411D5E4' 02114168 SSMSG DC AL1(SF,UNA),C'?SS=' 02120168 SSLTH EQU *-SSMSG 02130168 IXHDR DC AL1(IC,SF,MNA),C'DEMF LOCAL ' 02140168 DC AL1(SF,PNA),C'STATUS INDEX,X OVER ?,ENTER' 02150168 IXHDRLTH EQU *-IXHDR 02160368 PGHDR DC AL1(IC,SF,MNA),C'DEMF LOCAL ' 02170568 DC AL1(SF,PNA),C'HIT ENTER TO REFRESH INDEX' 02180168 PGHDRLTH EQU *-PGHDR 02190368 HITMSGS DC AL1(SBA),AL2(SML12P1),AL1(SF,PNA) 02190468 DC C'HIT CLEAR KEY TO EXIT DEMF' 02190568 HITMSGSL EQU *-HITMSGS 02190668 HITMSGL DC AL1(SBA),AL2(L18P21),AL1(SF,PNA) 02190768 DC C'HIT CLEAR KEY TO EXIT DEMF' 02190868 HITMSGLL EQU *-HITMSGL 02190968 INDEXSW DC X'00' INDEX SWITCH 00=OFF FF=ON 02191068 MOVE MVC 3(1,OUTREG),2(MSGREG) 02191168 LTORG 02191268 MSG1 DC AL2(MSG2-*) 02191368 DC AL1(SF,PNA),C'SS=0220',AL1(SF,PNA),C' ' 02191468 DC CL29'UNIT CHECK,BUS OUT CHECK' 02191568 DC C'A PARITY CHECK WAS DETECTED ON THE ' 02191668 DC C'COMMAND BYTE ' 02191768 DC C' ' 02191868 DC AL1(SF,PNA),C'SS=0240',AL1(SF,PNA),C' ' 02191968 DC CL29'UNIT CHECK,INTERVENTION REQ''D' 02192068 DC C'A COMMAND OTHER THAN SENSE WAS ADDRESSED' 02192168 DC C'TO A DEVICE THAT THE 3272 HAS RECORDED ' 02192268 DC C'AS UNAVAILABLE OR NOT READY ' 02192368 DC C' ' 02192468 DC AL1(SF,PNA),C'SS=0280',AL1(SF,PNA),C' ' 02192568 DC CL29'UNIT CHECK,COMMAND REJECT' 02192668 DC C'AN INVALID COMMAND WAS ISSUED TO 3272' 02192768 MSG2 DC AL2(MSG3-*) 02192868 DC AL1(SF,PNA),C'SS=0500',AL1(SF,PNA),C' ' 02192968 DC CL29'DEVICE END,UNIT EXCEPTION' 02193068 DC C'3272 ATTEMPTED TO PERFORM A SELECT OR ' 02193168 DC C'ERASE ALL UNPROTECTED COMMAND. AFTER RE-' 02193268 DC C'TURNING INITIAL STATUS,FOUND ADDRESSED ' 02193368 DC CL40'DEVICE BUSY' 02193468 DC C' ' 02193568 DC AL1(SF,PNA),C'SS=0601',AL1(SF,PNA),C' ' 02193668 DC CL29'DEVICE END,UNIT CHECK' 02193768 DC CL11' ',CL29'OPERATION CHECK' 02193868 DC C'A WRITE OR ERASE/WRT COMMAND,CONTAINING ' 02193968 DC C'A WCC WITH A START PRINT BIT,IS CHAINED ' 02194068 DC C'TO A SUBSEQUENT COMMAND' 02194168 MSG3 DC AL2(MSG4-*) 02194268 DC AL1(SF,PNA),C'SS=0602',AL1(SF,PNA),C' ' 02194368 DC CL29'DEVICE END,UNIT CK,CTRL CK' 02194468 DC C'THE ADDRESSED DEVICE FAILED TO RESPOND ' 02194568 DC C'IN A SPECIFIED PERIOD OF TIME TO A ' 02194668 DC C'SELECT,WRITE,ERASE/WRT OR AN ERASE ALL ' 02194768 DC C'UNPROTECTED COMMAND ' 02194868 DC AL1(SF,PNA),C'SS=0608',AL1(SF,PNA),C' ' 02194968 DC CL29'DEVICE END,UNIT CK,DATA CK' 02195068 DC C'3272 (1) DETECTED PARITY OR CURSOR ERROR' 02195168 DC C'DURING A SELECT,WRITE OR ERASE/WRT CMD ' 02195268 DC C'OR (2) DETECTED A PARITY CK ON DATA ' 02195368 DC C'RECEIVED TO AN INTERNAL POLL' 02195468 MSG4 DC AL2(MSG5-*) 02195568 DC AL1(SF,PNA),C'SS=060C',AL1(SF,PNA),C' ' 02195668 DC CL29'DEVICE END,UNIT CHECK' 02195768 DC CL11' ',CL29'DATA CHECK,UNIT SPECIFY' 02195868 DC C'ADDRESSED DEVICE DETECTED PARITY CK OR ' 02195968 DC C'CURSOR CK DURING A SELECT,WRITE,ERASE/- ' 02196068 DC C'WRT,OR ERASE ALL UNPROTECTED COMMAND ' 02196168 DC C' ' 02196268 DC AL1(SF,PNA),C'SS=0614',AL1(SF,PNA),C' ' 02196368 DC CL29'DEVICE END,UNIT CHECK' 02196468 DC CL11' ',CL29'EQUIPMENT CHECK,UNIT SPECIFY' 02196568 DC C'A PRINTER CHARACTER GENERATOR ERROR ' 02196668 DC C'OCCURED OR PRINTER BECAME MECHANICALLY ' 02196768 DC C'DISABLED DURING PRINTOUT' 02196868 MSG5 DC AL2(MSG6-*) 02196968 DC AL1(SF,PNA),C'SS=0640',AL1(SF,PNA),C' ' 02197068 DC CL29'DEVICE END,UNIT CHECK' 02200168 DC CL11' ',CL29'INTERVENTION REQUIRED' 02216168 DC C'A COMMAND ATTEMPTING TO START A PRINTER ' 02224168 DC C'FOUND IT NOT READY ' 02232168 DC C' ' 02238168 DC AL1(SF,PNA),C'SS=0654',AL1(SF,PNA),C' ' 02250168 DC CL29'DEV END,UNIT CK,INTV REQUIRED' 02266168 DC CL11' ',CL29'EQUIPMENT CHECK,UNIT SPECIFY' 02274168 DC C'A COMMAND TO START PRINT OPERATION FOUND' 02282168 DC C'PRINTER CARRIAGE MOTOR POWER OFF' 02288168 MSG6 DC AL2(MSG7-*) 02300168 DC AL1(SF,PNA),C'SS=0E01',AL1(SF,PNA),C' ' 02316168 DC CL29'CHANNEL END,DEVICE END' 02324168 DC CL11' ',CL29'UNIT CHECK,OPERATION CHECK' 02332168 DC C'ON A WRITE OR ERASE/WRT COMMAND,3272 ' 02338168 DC C'RECEIVED ILLEGAL BUFFER ADDRESS IN DATA-' 02350168 DC C'STREAM,OR DATA ENDED BEFORE PROVIDING ' 02366168 DC C'ALL CHARACTERS REQUIRED FOR SBA,RA,SF OR' 02374168 DC C'EUA ORDERS' 02382168 MSG7 DC AL2(MSG8-*) 02388168 DC AL1(SF,PNA),C'SS=0E02',AL1(SF,PNA),C' ' 02400168 DC CL29'CHANNEL END,DEVICE END' 02416168 DC CL11' ',CL29'UNIT CHECK,CONTROL CHECK' 02424168 DC C'ADDRESSED DEVICE FAILED TO RESPOND IN ' 02432168 DC C'TIME TO AN ERASE/WRT,UNCHAINED READ ' 02438168 DC C'BUFFER,READ MODIFIED OR WRITE COMMAND ' 02450168 DC C' ' 02466168 DC AL1(SF,PNA),C'SS=0E08',AL1(SF,PNA),C' ' 02474168 DC CL29'CHANNEL END,DEVICE END' 02482168 DC CL11' ',CL29'UNIT CHECK,DATA CHECK' 02488168 DC C'3272 DETECTED CURSOR OR PARITY CHECK ON ' 02500168 DC C'TRANSMISSION OF DATA ON A READ BUFFER OR' 02516168 DC C'READ MODIFIED COMMAND' 02524168 MSG8 DC AL2(MSG9-*) 02532168 DC AL1(SF,PNA),C'SS=0E0C',AL1(SF,PNA),C' ' 02538168 DC CL29'CHANNEL END,DEVICE END' 02550168 DC CL11' ',CL29'UNIT CK,DATA CK,UNIT SPECIFY' 02566168 DC C'ADDRESSED DEVICE DETECTED PARITY OR ' 02574168 DC C'CURSOR CHECK ON WRITE, READ BUFFER OR ' 02582168 DC C'READ MODIFIED COMMAND ' 02588168 DC C' ' 02600168 DC AL1(SF,PNA),C'SS=0E20',AL1(SF,PNA),C' ' 02616168 DC CL29'CHANNEL END,DEVICE END' 02624168 DC CL11' ',CL29'UNIT CHECK,BUS OUT CHECK' 02632168 DC C'3272 DETECTED A PARITY ERROR ON A CHAR- ' 02638168 DC C'ACTER IN DATA-STREAM OF A WRITE OR ERASE' 02650168 DC C'/WRITE COMMAND' 02666168 MSG9 DC AL2(MSG10-*) 02674168 DC AL1(SF,PNA),C'SS=0D00',AL1(SF,PNA),C' ' 02682168 DC CL29'CHANNEL END,DEVICE END' 02688168 DC CL11' ',CL29'UNIT EXCEPTION' 02700168 DC C'3272 ATTEMPTED A READ BUFFER,READ MOD- ' 02716168 DC C'IFIED,WRITE OR ERASE/WRITE COMMAND BUT ' 02724168 DC C'FOUND AFTER RETURNING INITIAL STATUS, ' 02732168 DC C'THE ADDRESSED DEVICE WAS BUSY ' 02738168 DC C' ' 02750168 DC AL1(SF,PNA),C'SS=820C',AL1(SF,PNA),C' ' 02766168 DC CL29'ATTENTION,UNIT CHECK' 02774168 DC CL11' ',CL29'DATA CHECK,UNIT SPECIFY' 02782168 DC C'AN IDLE DEVICE DETECTED A PARITY CHECK ' 02788168 DC C'OR CURSOR CHECK IN ITS BUFFER' 02800168 MSG10 DC AL2(MSG11-*) 02816168 DC AL1(SF,PNA),C'SS=8210',AL1(SF,PNA),C' ' 02824168 DC CL29'ATTENTION,UNIT CHECK' 02832168 DC CL11' ',CL29'EQUIPMENT CHECK' 02838168 DC C'AN IDLE 3272 POLLED A DEVICE TWICE AND ' 02850168 DC C'DETECTED A TRANSMIT PARITY CHECK EACH ' 02866168 DC C'TIME ON THE DATA IN THE DEVICE REPLY ' 02874168 DC AL1(SF,PNA),C'SS=860C',AL1(SF,PNA),C' ' 02882168 DC CL29'ATTENTION,DEV END,UNIT CHECK' 02888168 DC CL11' ',CL29'DATA CHECK,UNIT SPECIFY' 02900168 DC C'A DEVICE CHANGED FROM NOT AVAILABLE TO ' 02916168 DC C'AVAILABLE OR NOT READY TO READY AND DET-' 02924168 DC C'ECTED A CURSOR CK IN ITS BUFFER OR A PRI' 02932168 DC C'NTER DETECTED A PARITY CK WHILE PRINTING' 02938168 MSG11 DC AL2(MSG12-*) 02950168 DC AL1(SF,PNA),C'SS=8640',AL1(SF,PNA),C' ' 02966168 DC CL29'ATTN,DEVICE END,UNIT CK' 02974168 DC CL11' ',CL29'INTERVENTION REQUIRED' 02982168 DC C'THE ADDRESSED PRINTER BECAME NOT READY ' 02988168 DC C'(OUT OF PAPER OR COVER OPEN)BEFORE PRINT' 03000168 DC C'OPERATION WAS COMPLETED ' 03016168 DC C' ' 03024168 DC AL1(SF,PNA),C'SS=8654',AL1(SF,PNA),C' ' 03032168 DC CL29'ATTN,DEV END,UNIT CK,INTV REQ' 03040168 DC CL11' ',CL29'EQUIPMENT CHECK,UNIT SPECIFY' 03043168 DC C'A PRINTER BECAME MECHANICALLY DISABLED ' 03050168 DC C'DURING A PRINTOUT AND AUTOMATIC RECOVERY' 03066168 DC C'WAS NOT SUCCESSFUL' 03074168 MSG12 DC AL2(MSG13-*) 03082168 DC AL1(SF,PNA),C'SS=0000',AL1(SF,PNA),C' ' 03088168 DC CL29'ZERO STATUS ' 03100168 DC C'NORMAL STATUS FOR ANY COMMAND OTHER THAN' 03116168 DC C'NO-OP,SELECT,OR ERASE ALL UNPROTECTED ' 03124168 DC C' ' 03132168 DC AL1(SF,PNA),C'SS=0400',AL1(SF,PNA),C' ' 03138168 DC CL29'DEVICE END ' 03150168 DC C'DENOTES THE FOLLOWING CHANGE IN DEVICE ' 03166168 DC C'STATUS--BUSY TO NOT BUSY,NOT AVAILABLE ' 03174168 DC C'TO AVAILABLE,BUFFER TRANSFER COMPLETE, ' 03182168 DC C'OR ON/OFF LINE SWITCH TO ONLINE' 03188168 MSG13 DC AL2(MSG14-*) 03200168 DC AL1(SF,PNA),C'SS=0800',AL1(SF,PNA),C' ' 03216168 DC CL29'CHANNEL END ' 03224168 DC C'NORMAL STATUS FOR SELECT OR EAU ' 03232168 DC C' ' 03238168 DC AL1(SF,PNA),C'SS=0C00',AL1(SF,PNA),C' ' 03250168 DC CL29'CHANNEL END,DEVICE END' 03266168 DC C'NORMAL STATUS FOR A NO-OP COMMAND ' 03274168 DC C' ' 03282168 DC AL1(SF,PNA),C'SS=1000',AL1(SF,PNA),C' ' 03288168 DC CL29'BUSY ' 03300168 DC C'RESPONSE TO A COMMAND ADDRESSED TO A ' 03316168 DC C'DEVICE SERVICING A PRIOR ISSUED COMMAND' 03324168 MSG14 DC AL2(MSG15-*) 03332168 DC AL1(SF,PNA),C'SS=2000',AL1(SF,PNA),C' ' 03338168 DC CL29'CONTROL UNIT END' 03350168 DC C'3272 HAD BEEN ADDRESSED WHILE BUSY,BUT ' 03366168 DC C'IS NOW NOT BUSY AND FREE TO ACCEPT A NEW' 03374168 DC C'COMMAND ' 03382168 DC C' ' 03388168 DC AL1(SF,PNA),C'SS=5000',AL1(SF,PNA),C' ' 03400168 DC CL29'STATUS MODIFIER,BUSY' 03416168 DC C'RESPONSE TO A COMMAND ADDRESSED TO A ' 03424168 DC C'DEVICE OTHER THAN DEVICE WHOSE STATUS IS' 03432168 DC C'PENDING OR DEVICE BEING SERVICED BY 3272' 03438168 MSG15 DC AL2(LASTMSG-*) 03450168 DC AL1(SF,PNA),C'SS=HELP',AL1(SF,PNA),C' ' 03466168 DC CL29'LOCAL STATUS/SENSE HELPER.' 03474168 DC CL40'FIELDS "SS=XXXX" REFER TO 1ST BYTE OF' 03482168 DC CL40'CSW AND THE SENSE BYTE. FOR INSTANCE,' 03488168 DC CL40'IF ERROR DISPLAY SHOWED CSW=0E00 AND' 03500168 DC CL40'SENSE=02, LOOK UP MSG FOR "SS=0E02"' 03512168 LASTMSG EQU * 03521168 END BNGCLOCL 03530168