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