ibm:vm370-lib:macro:grtblok.macro_src
Table of Contents
GRTBLOK Source
References
- Fixes Applied : 4
- This Source Date : Friday, December 8, 1978
- Last Fix ID : [HRC108DK]
Source Listing
- GRTBLOK.MACRO.txt
- 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
ibm/vm370-lib/macro/grtblok.macro_src.txt · Last modified: 2023/08/06 13:38 by Site Administrator