MACRO 00001000 &LABEL GRTBLOK &TYPE,&SCRSIZE=1920 HRC101DK 00002490 LCLC &IA1,&IA2,&OA1,&OA2,&RA1,&RA2,&SA1,&SA2,&EWR 00003000 LCLC &LC2,&MODEL HRC101DK 00004290 &EWR SETC 'EWR' HRC101DK 00004580 &IA1 SETC 'X''5B''' 00005000 &IA2 SETC 'X''5F''' 00006000 &OA1 SETC 'X''D6''' 00006100 &OA2 SETC 'X''5F''' 00006200 &RA1 SETC 'X''5B''' 00007000 &RA2 SETC 'X''5F''' 00008000 &SA1 SETC 'X''5D''' 00009000 &SA2 SETC 'X''6B''' 00010000 &LC2 SETC 'X''7F''' HRC101DK 00010300 &MODEL SETC '2' HRC101DK 00010600 AIF ('&TYPE' EQ 'BLD').GRT01 00011000 GRTBLOK DSECT 00012000 AIF ('&TYPE' NE 'RGF').GRT02 00013000 PUSH PRINT 00014000 AIF ('&SYSPARM' NE 'SUP').GRT02 HRC101DK 00014500 PRINT OFF,NOGEN 00015000 AGO .GRT02 00016000 .GRT01 ANOP 00017000 &LABEL DS 0D 00018000 AIF ('&SCRSIZE' EQ '1920').GRT02 00019000 &MODEL SETC '2A' HRC101DK 00020290 &EWR SETC 'EWR' HRC101DK 00020580 &IA1 SETC 'X''D6''' 00021000 &OA1 SETC 'X''D5''' 00021100 &OA2 SETC 'X''4F''' 00021200 &RA1 SETC 'X''D6''' 00022000 &SA1 SETC 'X''D8''' 00023000 &LC2 SETC 'X''6F''' HRC101DK 00024030 AIF ('&SCRSIZE' EQ '1600').GRT02 HRC101DK 00024060 &MODEL SETC '3' HRC101DK 00024090 &EWR SETC 'EWA' HRC101DK 00024120 &IA1 SETC 'X''E5''' HRC101DK 00024150 &RA1 SETC 'X''5D''' HRC101DK 00024180 &RA2 SETC 'X''7F''' HRC101DK 00024210 &SA1 SETC 'X''E7''' HRC101DK 00024240 AIF ('&SCRSIZE' EQ '2560').GRT02 HRC101DK 00024270 &MODEL SETC '4' HRC101DK 00024300 &EWR SETC 'EWA' HRC101DK 00024330 &IA1 SETC 'X''F3''' HRC101DK 00024360 &IA2 SETC 'X''4F''' HRC101DK 00024390 &SA1 SETC 'X''F5''' HRC101DK 00024420 &SA2 SETC 'X''5B''' HRC101DK 00024450 AIF ('&SCRSIZE' EQ '3440').GRT02 HRC101DK 00024480 &MODEL SETC '5' HRC101DK 00024510 &EWR SETC 'EWA' HRC101DK 00024540 &IA1 SETC 'X''F3''' HRC101DK 00024570 &IA2 SETC 'X''E3''' HRC101DK 00024600 &SA1 SETC 'X''F7''' HRC101DK 00024630 &SA2 SETC 'X''D7''' HRC101DK 00024660 AIF ('&SCRSIZE' EQ '3564').GRT02 HRC101DK 00024690 &MODEL SETC '' HRC101DK 00024720 MNOTE 8,'INVALID PARAMETER, SCRSIZE=&SCRSIZE' 00025000 MEXIT 00026000 .GRT02 ANOP 00027000 SPACE 1 HRC101DK 00028090 *--------------------------------------------------------------HRC101DK 00028180 * GRTBLOK - DATA STREAMS FOR 327X MODEL &MODEL DISPLAYS HRC101DK 00028270 *--------------------------------------------------------------HRC101DK 00028360 SPACE 1 HRC101DK 00028450 * GRTBLOK - CHANNEL PROGRAMS FOR LOCAL 3270 DISPLAYS 00029000 SPACE 00030000 GRTCLRCP CCW X'0B',0,SILI+CC,1 CLEAR THE SCREEN 00031000 CCW X'01',GRTCLRDS,SILI,GRTCLRL 00032000 SPACE 00033000 GRTCNCCP CCW X'0B',0,SILI+CC,1 CLEAR THE SCREEN HRC101DK 00033200 CCW X'01',GRTCNCDS,SILI,GRTCNCL HRC101DK 00033400 SPACE , HRC101DK 00033600 GRTCPPCP CCW X'0B',0,SILI+CC,1 CP READ (W/INHIBIT 00034000 CCW X'01',GRTINHDS,SILI+CD,GRTINHL 00035000 CCW X'00',GRTCPPDS,SILI,GRTCPPL 00036000 SPACE 00037000 GRTCPRCP CCW X'0B',0,SILI+CC,1 CP READ 00038000 CCW X'01',GRTCPRDS,SILI,GRTCPRL 00039000 SPACE 00040000 GRTCRDCP CCW X'0B',0,SILI+CC,1 CLEAR INPUT AREA 00041000 CCW X'01',GRTCRDDS,SILI,GRTCRDL 00042000 SPACE 00043000 GRTEWRCP CCW &EWR,GRTCRDDS,SILI,GRTCRDL USE ERASE/WRITE 00044000 SPACE 00045000 GRTHLDCP CCW X'0B',0,SILI+CC,1 WRITE HOLDING MSG 00046000 CCW X'01',GRTHLDDS,SILI,GRTHLDL 00047000 SPACE 00048000 GRTMORCP CCW X'0B',0,SILI+CC,1 WRITE MORE... MSG 00049000 CCW X'01',GRTMORDS,SILI,GRTMORL 00050000 SPACE 00051000 GRTMRDCP CCW X'0B',0,SILI+CC,1 MORE... WHILE READ 00052000 CCW X'01',GRTMRDDS,SILI,GRTMRDL 00053000 SPACE 00054000 GRTNACCP CCW X'0B',0,SILI+CC,1 NOT ACCEPTED MSG 00055000 CCW X'01',GRTNACDS,SILI,GRTNACL 00056000 SPACE 00057000 GRTRMICP CCW X'0B',0,SILI+CC,1 READ INPUT DATA 00058000 CCW X'03',GRTRMIDS,SILI+CC,GRTRMIL HRC065DK 00059000 CCW X'06',0,SILI,BUFAPL 00060000 SPACE 00061000 GRTRUNCP CCW X'0B',0,SILI+CC,1 RUNNING MSG 00062000 CCW X'01',GRTRUNDS,SILI,GRTRUNL 00063000 SPACE 00064000 GRTVMPCP CCW X'0B',0,SILI+CC,1 VM READ (W/INHIBIT 00065000 CCW X'01',GRTINHDS,SILI+CD,GRTINHL 00066000 CCW X'00',GRTVMPDS,SILI,GRTVMPL 00067000 SPACE 00068000 GRTVMRCP CCW X'0B',0,SILI+CC,1 VM READ 00069000 CCW X'01',GRTVMRDS,SILI,GRTVMRL 00070000 SPACE 00071000 GRTWINCP CCW X'0B',0,SILI+CC,1 WRITE TO INPUT AREA 00072000 CCW X'01',GRTWINDS,SILI+CD,GRTWINL 00073000 CCW X'00',0,SILI,0 00074000 SPACE 00075000 GRTWRTCP CCW X'0B',0,SILI+CC,1 WRITE TO DISPLAY 00076000 CCW X'01',0,SILI+CD,0 00077000 CCW X'00',GRTWRTDS,SILI,GRTWRTL 00078000 SPACE , HRC101DK 00078200 GRTRSTCP CCW X'0B',0,SILI+CC,1 HRC101DK 00078400 CCW X'01',GRTRSTDS,SILI,GRTRSTL HRC101DK 00078600 AIF ('&TYPE' NE 'RGF').GRT03 00079000 POP PRINT 00080000 .GRT03 ANOP 00081000 SPACE 2 00082000 * GRTBLOK - DATA STREAMS FOR LOCAL AND REMOTE 3270 DISPLAYS 00083000 SPACE 00084000 GRTCLRDS DC AL1(WCC6,SBA,X'40',X'40',RA) CLEAR THE DISPLAY AREA 00085000 DC AL1(X'C7',X'5F',X'00',RA) 00085100 DC AL1(X'4E',X'7F',X'00',RA) 00085200 DC AL1(&OA1,&OA2,X'00',RA) 00085300 GRTCLRIA DC AL1(&IA1,&IA2,X'00',SF,ATTR7,IC,SBA) 00086000 DC AL1(&SA1,&SA2,SF,ATTR2),CL10'RUNNING' HRC108DK 00087980 GRTRNST1 DC CL8' ',CL1' ' HRC108DK 00087990 GRTCLRL EQU *-GRTCLRDS 00088000 SPACE 00089000 GRTCNCDS DC AL1(WCC6,SBA,X'40',X'40',RA) CLEAR THE DISPLAY HRC101DK 00089100 * DC AL1(X'C7',X'5F',X'00',RA) HRC101DK 00089200 * DC AL1(X'4E',X'7F',X'00',RA) HRC101DK 00089300 * DC AL1(&OA1,&OA2,X'00',RA) HRC101DK 00089400 GRTCNCIA DC AL1(&IA1,&IA2,X'00',SBA) HRC101DK 00089500 DC AL1(&SA1,&SA2,SF,ATTR2),CL10'RUNNING' HRC108DK 00089620 GRTRNST2 DC CL8' ',CL1' ' HRC108DK 00089640 GRTCNCL EQU *-GRTCNCDS HRC101DK 00089700 SPACE , HRC101DK 00089800 GRTCPRDS DC AL1(WCC6,SBA) WRITE 'CP READ' IN THE STATUS AREA 00090000 DC AL1(&IA1,&IA2,SF,ATTR7) 00091000 GRTCPPDS DC AL1(SBA) 00092000 DC AL1(&SA1,&SA2,SF,ATTR2),CL10'CP READ' HRC108DK 00093980 GRTCPRST DC CL8' ',CL1' ' HRC108DK 00093990 GRTCPPL EQU *-GRTCPPDS 00094000 GRTCPRL EQU *-GRTCPRDS 00095000 SPACE 00096000 GRTCRDDS DC AL1(WCC6,SBA) CLEAR THE INPUT AREA; UPDATE STATUS 00097000 DC AL1(&IA1,&IA2,SF,ATTR457,IC,EUA) @VA10567 00098100 DC AL1(&SA1,&SA2,SBA) @VA10567 00098200 DC AL1(&IA1,&IA2,SF,ATTR7,SBA) @VA10567 00098300 DC AL1(&SA1,&SA2,SF,ATTR2) @VA10567 00098400 GRTMRDDS EQU GRTCRDDS 00100000 GRTMRDL EQU *-GRTMRDDS 00101000 DC CL10'RUNNING' HRC108DK 00102980 GRTRNST3 DC CL8' ',CL1' ' HRC108DK 00102990 GRTCRDL EQU *-GRTCRDDS 00103000 SPACE 00104000 GRTHLDDS DC AL1(WCC3,SBA) WRITE 'HOLDING' IN THE STATUS AREA 00105000 DC AL1(&SA1,&SA2,SF,ATTR2),CL10'HOLDING' HRC108DK 00106980 GRTHLDST DC CL8' ',CL1' ' HRC108DK 00106990 GRTHLDL EQU *-GRTHLDDS 00107000 SPACE 00108000 GRTINHDS DC AL1(WCC6,SBA) SET INPUT AREA FOR INHIBIT DISPLAY 00109000 DC AL1(&IA1,&IA2,SF,ATTR457) 00110000 GRTINHL EQU *-GRTINHDS 00111000 SPACE 00112000 GRTMORDS DC AL1(WCC3,SBA) WRITE 'MORE...' IN THE STATUS AREA 00113000 DC AL1(&SA1,&SA2,SF,ATTR2),CL10'MORE...' HRC108DK 00114980 GRTMORST DC CL8' ',CL1' ' HRC108DK 00114990 GRTMORL EQU *-GRTMORDS 00115000 SPACE 00116000 GRTNACDS DC AL1(WCC4,SBA) WRITE 'NOT ACCEPTED' IN STATUS AREA 00117000 DC AL1(&SA1,&SA2,SF,ATTR2),CL19'NOT ACCEPTED' HRC101DK 00118490 GRTNACL EQU *-GRTNACDS 00119000 SPACE 00120000 GRTRMIDS DC AL1(WCC0,SBA) POSITION FOR READ OF THE INPUT AREA 00121000 DC AL1(&RA1,&RA2) 00122000 GRTRMIL EQU *-GRTRMIDS 00123000 SPACE 00124000 GRTRUNDS DC AL1(WCC6,SBA) WRITE 'RUNNING' IN THE STATUS AREA 00125000 DC AL1(&IA1,&IA2,SF,ATTR7,SBA) 00126000 DC AL1(&SA1,&SA2,SF,ATTR2),CL10'RUNNING' HRC108DK 00127980 GRTRNST4 DC CL8' ',CL1' ' HRC108DK 00127990 GRTRUNL EQU *-GRTRUNDS 00128000 DC AL1(ETX) 00129000 GRTRUNRL EQU *-GRTRUNDS FOR REMOTE INCLUDE BSC CONTROL CHAR. 00130000 SPACE 00131000 GRTVMRDS DC AL1(WCC6,SBA) WRITE 'VM READ' IN THE STATUS AREA 00132000 DC AL1(&IA1,&IA2,SF,ATTR7) 00133000 GRTVMPDS DC AL1(SBA) 00134000 DC AL1(&SA1,&SA2,SF,ATTR2),CL10'VM READ' HRC108DK 00135980 GRTVMRST DC CL8' ',CL1' ' HRC108DK 00135990 GRTVMPL EQU *-GRTVMPDS 00136000 GRTVMRL EQU *-GRTVMRDS 00137000 SPACE 00138000 GRTWINDS DC AL1(WCC6,SBA) WRITE DATA IN THE INPUT AREA 00139000 DC AL1(&IA1,&IA2,EUA) 00140000 DC AL1(&SA1,&SA2,SBA) 00141000 DC AL1(&IA1,&IA2,SF,ATTR7,IC) 00142000 GRTWINL EQU *-GRTWINDS 00143000 GRTRSTDS DC AL1(WCC3) HRC101DK 00143200 GRTRSTL EQU *-GRTRSTDS HRC101DK 00143400 GRTLAST DC AL1(&SA1,&LC2) LAST CHAR ON SCREEN HRC101DK 00143600 SPACE 00144000 GRTWRTDS EQU GRTRUNDS+1 'RUNNING' STATUS USED FOR WRITES 00145000 GRTWRTL EQU GRTRUNL-1 00146000 GRTWRTRL EQU GRTRUNRL-1 FOR REMOTE INCLUDE BSC CONTROL CHAR. 00147000 SPACE 2 00148000 * 3270 WRITE CONTROL CHARACTERS 00149000 WCC0 EQU X'C0' NOTHING... 00150000 WCC3 EQU X'C2' RESTORE KEYBOARD 00150100 WCC4 EQU X'C6' RESTORE KEYBOARD,ALARM 00150200 WCC5 EQU X'C4' SOUND ALARM HRC101DK 00151590 WCC6 EQU X'C2' RESTORE KEYBOARD HRC101DK 00152180 WCC56 EQU X'C6' RESTORE KEYBOARD, ALARM HRC101DK 00152770 WCCALRM EQU X'04' BIT TO SOUND ALARM HRC101DK 00153360 SPACE 00154000 * 3270 DISPLAY STATION ORDERS 00155000 SBA EQU X'11' SET BUFFER ADDRESS 00156000 EUA EQU X'12' ERASE UNPROTECTED TO ADDRESS 00157000 IC EQU X'13' INSERT CURSOR 00158000 SF EQU X'1D' START FIELD DEFINITION 00159000 RA EQU X'3C' REPEAT CHARACTER TO ADDRESS 00160000 SPACE 00161000 * 3270 ATTRIBUTE CHARACTERS 00162000 ATTR2 EQU X'60' PROTECTED, LOW INTENSITY 00163000 ATTRPRHI EQU X'F8' PROTECTED, HI INTENSITY 00163500 ATTR7 EQU X'C1' UNPROTECTED, LOW INTENSITY, MDT 00164000 ATTR457 EQU X'4D' PROTECTED, INHIBIT DISPLAY, MDT 00165000 SPACE 00166000 *--------------------------------------------------------------HRC101DK 00166050 * EQUATES FOR THE VARIOUS OPCODES HRC101DK 00166100 *--------------------------------------------------------------HRC101DK 00166150 SPACE 1 HRC101DK 00166200 WR EQU X'01' LOCAL CCW OPCODE WRITE HRC101DK 00166250 EWR EQU X'05' LOCAL CCW OPCODE ERASE/WRITE HRC101DK 00166300 EWA EQU X'0D' LOCAL CCW OPCODE ERASE/WRITE ALTEHRC101DK 00166350 RM EQU X'06' LOCAL CCW OPCODE READ-MODIFIED HRC101DK 00166400 RB EQU X'02' LOCAL CCW OPCODE READ-BUFFER HRC101DK 00166450 SELECT EQU X'0B' SELECT (3270) HRC101DK 00166500 SELRM EQU X'0B' SELECT READ MODIFIED HRC101DK 00166550 SELRB EQU X'1B' SELECT READ BUFFER HRC101DK 00166600 SELRMP EQU X'2B' SELECT READ XXX HRC101DK 00166650 SELRBP EQU X'3B' SELECT READ XXX HRC101DK 00166700 SELWRT EQU X'4B' SELECT WRITE HRC101DK 00166750 WSF EQU X'11' WRITE STRUCTURED FIELD OP CODE HRC101DK 00166800 SENSEID EQU X'E4' SENSE ID OP CODE HRC101DK 00166850 * BSC CONTROL CHARACTERS FOR REMOTE DISPLAYS 00167000 ETX EQU X'03' END OF TEXT 00168000 SPACE 00169000 BUFAPL EQU (136+8)*2 TWICE CONSOLE INPUT BUFFER SIZE 00170000 EJECT 00171000 MEND 00172000