User Tools

Site Tools


ibm:vm370-lib:macro:terminal.macro_src

TERMINAL Source

References

Source Listing

TERMINAL.MACRO.txt
  1. MACRO 00001000
  2. &NAME TERMINAL &TERM=,&SELECT=,&MODEL=2,&FEATURE= 00002000
  3. GBLA &RCUCNT,&RCHCNT,&RDVCNT,&RPCCNT,&RPCLST(16),&DIAL75(16) 00003100
  4. GBLC &CUPOLL,&RPCCU(16) 00004000
  5. LCLC &TYPE,&FEAT,&DVPOLL 00005000
  6. LCLA &NICNAME,&INDEX,&DTYP 00006000
  7. AIF (&RCUCNT NE 0 OR &RCHCNT NE 0 OR &RDVCNT NE 0).ERR1 00007000
  8. AIF (&RPCCNT EQ 0).ERR1 00008000
  9. AIF (T'&TERM EQ 'O').ERR2 00009000
  10. AIF ('&TERM' EQ '3277' OR '&TERM' EQ '3275').TERMOK 00010000
  11. AIF ('&TERM' EQ '3286' OR '&TERM' EQ '3288').PRTOK 00011000
  12. AIF ('&TERM' NE '3284').ERR3 00012000
  13. .PRTOK AIF ('&MODEL' NE '2').ERR4 00013000
  14. &TYPE SETC 'NICTERM+NICRSPL' 00014000
  15. AGO .SELAD 00015000
  16. .TERMOK ANOP 00016000
  17. &TYPE SETC 'NICTERM+NICGRAF' 00017000
  18. .SELAD ANOP 00018100
  19. AIF (&DIAL75(&RPCCNT) NE 0).NGP1 00018200
  20. AIF (T'&SELECT EQ 'O').ERR5 00018300
  21. AIF (K'&SELECT NE 4).ERR6 00019000
  22. &DVPOLL SETC '&CUPOLL'.'&SELECT'(3,2) 00020000
  23. .NGP1 ANOP 00020100
  24. AIF (('&TERM' EQ '3284') OR ('&TERM' EQ '3286')).NEXT 00021000
  25. AIF ('&TERM' EQ '3288').NEXT 00022000
  26. AIF (T'&FEATURE EQ 'O').NEXT 00023000
  27. AIF (K'&FEATURE NE 5).ERR7 00024000
  28. AIF ('&FEATURE' NE 'OPRDR').ERR7 00025000
  29. &FEAT SETC 'NIC&FEATURE' 00026000
  30. .NEXT ANOP 00027000
  31. AIF ('&MODEL' EQ '3' AND '&TERM' EQ '3275').SETPT 00028000
  32. AIF ('&MODEL' NE '2').ERR4 00029000
  33. AGO .CONT1 00030000
  34. .SETPT ANOP 00031000
  35. &INDEX SETA 1 00032000
  36. .CONT1 ANOP 00033000
  37. AIF ('&NAME' EQ '').SKIP1 00034000
  38. &NAME DS 0D 00035000
  39. AGO .SKIP2 00036000
  40. .SKIP1 ANOP 00037000
  41. DS 0D 00038000
  42. .SKIP2 ANOP 00039000
  43. &NICNAME SETA &RPCLST(&RPCCNT) 00040000
  44. DC AL2(&NICNAME),AL2(0) NICNAME, NICCORD 00041000
  45. DC AL1(NICDISA,NICPSUP) NICSTAT, NICFLAG 00042000
  46. AIF (K'&FEAT EQ 0).BYPASS 00043000
  47. DC AL1(80),AL1(&TYPE+&FEAT) NICLLEN, NICTYPE 00044000
  48. AGO .NEXT1 00045000
  49. .BYPASS ANOP 00046000
  50. DC AL1(80),AL1(&TYPE) NICLLEN, NICTYPE 00047000
  51. .NEXT1 ANOP 00048000
  52. AIF (&DIAL75(&RPCCNT) EQ 0).NGP2 00048100
  53. DC XL2'00',XL2'00' NICSELT, NICPOLL 00048200
  54. AGO .NGP3 00048300
  55. .NGP2 ANOP 00048400
  56. DC X'&SELECT',X'&DVPOLL' NICSELT, NICPOLL 00049000
  57. .NGP3 ANOP 00049100
  58. DC A(0) NICATRB 00050000
  59. DC V(DMKSYSVM) NICUSER 00051000
  60. DC A(0) NICQPNT 00052000
  61. AIF ('&TYPE' EQ 'NICTERM+NICGRAF').CONT2 00052060
  62. DC 8X'00' NICRSV 00052120
  63. AGO .CONT3 00052180
  64. .CONT2 ANOP 00052240
  65. DC AL1(0) NICRSV1 00052300
  66. AIF ('&TERM' EQ '3275').SET5 00052360
  67. &DTYP SETA 4 00052420
  68. AGO .CONT4 00052480
  69. .SET5 ANOP 00052540
  70. &DTYP SETA 2 00052600
  71. .CONT4 ANOP 00052660
  72. DC AL1(&DTYP) NICDTYPE 00052720
  73. DC AL1(2) NICMDL 00052780
  74. DC AL1(0) NICRSV2 00052840
  75. DC A(0) NICRSV3 00052900
  76. .CONT3 ANOP 00052960
  77. SPACE 00053000
  78. &RPCLST(&RPCCNT) SETA &RPCLST(&RPCCNT)+1 00054000
  79. AIF (&INDEX EQ 0).EXITRET 00055000
  80. &INDEX SETA 0 00056000
  81. &FEAT SETC '' 00057000
  82. &TYPE SETC 'NICTERM+NICRSPL' 00058000
  83. AGO .SKIP1 00059000
  84. .EXITRET ANOP 00060000
  85. MEXIT 00061000
  86. .ERR1 MNOTE 12,'TERMINAL MACRO OUT OF SEQUENCE' 00062000
  87. MEXIT 00063000
  88. .ERR2 MNOTE 8,'TERM NOT SPECIFIED' 00064000
  89. MEXIT 00065000
  90. .ERR3 MNOTE 8,'INVALID TERM OPERAND' 00066000
  91. MEXIT 00067000
  92. .ERR4 MNOTE 8,'INVALID MODEL NUMBER' 00068000
  93. MEXIT 00069000
  94. .ERR5 MNOTE 8,'SELECT NOT SPECIFIED' 00070000
  95. MEXIT 00071000
  96. .ERR6 MNOTE 8,'INVALID SELECT OPERAND' 00072000
  97. MEXIT 00073000
  98. .ERR7 MNOTE 4,'INVALID FEATURE OPERAND' 00074000
  99. AGO .NEXT 00075000
  100. MEND 00076000
ibm/vm370-lib/macro/terminal.macro_src.txt ยท Last modified: 2023/08/06 13:38 by Site Administrator