ibm:vm370-lib:macro:terminal.macro_src
Table of Contents
TERMINAL Source
References
- Fixes Applied : 1
- This Source Date : Friday, December 8, 1978
- Last Fix ID : [R09296DK]
Source Listing
- TERMINAL.MACRO.txt
- MACRO 00001000
- &NAME TERMINAL &TERM=,&SELECT=,&MODEL=2,&FEATURE= 00002000
- GBLA &RCUCNT,&RCHCNT,&RDVCNT,&RPCCNT,&RPCLST(16),&DIAL75(16) 00003100
- GBLC &CUPOLL,&RPCCU(16) 00004000
- LCLC &TYPE,&FEAT,&DVPOLL 00005000
- LCLA &NICNAME,&INDEX,&DTYP 00006000
- AIF (&RCUCNT NE 0 OR &RCHCNT NE 0 OR &RDVCNT NE 0).ERR1 00007000
- AIF (&RPCCNT EQ 0).ERR1 00008000
- AIF (T'&TERM EQ 'O').ERR2 00009000
- AIF ('&TERM' EQ '3277' OR '&TERM' EQ '3275').TERMOK 00010000
- AIF ('&TERM' EQ '3286' OR '&TERM' EQ '3288').PRTOK 00011000
- AIF ('&TERM' NE '3284').ERR3 00012000
- .PRTOK AIF ('&MODEL' NE '2').ERR4 00013000
- &TYPE SETC 'NICTERM+NICRSPL' 00014000
- AGO .SELAD 00015000
- .TERMOK ANOP 00016000
- &TYPE SETC 'NICTERM+NICGRAF' 00017000
- .SELAD ANOP 00018100
- AIF (&DIAL75(&RPCCNT) NE 0).NGP1 00018200
- AIF (T'&SELECT EQ 'O').ERR5 00018300
- AIF (K'&SELECT NE 4).ERR6 00019000
- &DVPOLL SETC '&CUPOLL'.'&SELECT'(3,2) 00020000
- .NGP1 ANOP 00020100
- AIF (('&TERM' EQ '3284') OR ('&TERM' EQ '3286')).NEXT 00021000
- AIF ('&TERM' EQ '3288').NEXT 00022000
- AIF (T'&FEATURE EQ 'O').NEXT 00023000
- AIF (K'&FEATURE NE 5).ERR7 00024000
- AIF ('&FEATURE' NE 'OPRDR').ERR7 00025000
- &FEAT SETC 'NIC&FEATURE' 00026000
- .NEXT ANOP 00027000
- AIF ('&MODEL' EQ '3' AND '&TERM' EQ '3275').SETPT 00028000
- AIF ('&MODEL' NE '2').ERR4 00029000
- AGO .CONT1 00030000
- .SETPT ANOP 00031000
- &INDEX SETA 1 00032000
- .CONT1 ANOP 00033000
- AIF ('&NAME' EQ '').SKIP1 00034000
- &NAME DS 0D 00035000
- AGO .SKIP2 00036000
- .SKIP1 ANOP 00037000
- DS 0D 00038000
- .SKIP2 ANOP 00039000
- &NICNAME SETA &RPCLST(&RPCCNT) 00040000
- DC AL2(&NICNAME),AL2(0) NICNAME, NICCORD 00041000
- DC AL1(NICDISA,NICPSUP) NICSTAT, NICFLAG 00042000
- AIF (K'&FEAT EQ 0).BYPASS 00043000
- DC AL1(80),AL1(&TYPE+&FEAT) NICLLEN, NICTYPE 00044000
- AGO .NEXT1 00045000
- .BYPASS ANOP 00046000
- DC AL1(80),AL1(&TYPE) NICLLEN, NICTYPE 00047000
- .NEXT1 ANOP 00048000
- AIF (&DIAL75(&RPCCNT) EQ 0).NGP2 00048100
- DC XL2'00',XL2'00' NICSELT, NICPOLL 00048200
- AGO .NGP3 00048300
- .NGP2 ANOP 00048400
- DC X'&SELECT',X'&DVPOLL' NICSELT, NICPOLL 00049000
- .NGP3 ANOP 00049100
- DC A(0) NICATRB 00050000
- DC V(DMKSYSVM) NICUSER 00051000
- DC A(0) NICQPNT 00052000
- AIF ('&TYPE' EQ 'NICTERM+NICGRAF').CONT2 00052060
- DC 8X'00' NICRSV 00052120
- AGO .CONT3 00052180
- .CONT2 ANOP 00052240
- DC AL1(0) NICRSV1 00052300
- AIF ('&TERM' EQ '3275').SET5 00052360
- &DTYP SETA 4 00052420
- AGO .CONT4 00052480
- .SET5 ANOP 00052540
- &DTYP SETA 2 00052600
- .CONT4 ANOP 00052660
- DC AL1(&DTYP) NICDTYPE 00052720
- DC AL1(2) NICMDL 00052780
- DC AL1(0) NICRSV2 00052840
- DC A(0) NICRSV3 00052900
- .CONT3 ANOP 00052960
- SPACE 00053000
- &RPCLST(&RPCCNT) SETA &RPCLST(&RPCCNT)+1 00054000
- AIF (&INDEX EQ 0).EXITRET 00055000
- &INDEX SETA 0 00056000
- &FEAT SETC '' 00057000
- &TYPE SETC 'NICTERM+NICRSPL' 00058000
- AGO .SKIP1 00059000
- .EXITRET ANOP 00060000
- MEXIT 00061000
- .ERR1 MNOTE 12,'TERMINAL MACRO OUT OF SEQUENCE' 00062000
- MEXIT 00063000
- .ERR2 MNOTE 8,'TERM NOT SPECIFIED' 00064000
- MEXIT 00065000
- .ERR3 MNOTE 8,'INVALID TERM OPERAND' 00066000
- MEXIT 00067000
- .ERR4 MNOTE 8,'INVALID MODEL NUMBER' 00068000
- MEXIT 00069000
- .ERR5 MNOTE 8,'SELECT NOT SPECIFIED' 00070000
- MEXIT 00071000
- .ERR6 MNOTE 8,'INVALID SELECT OPERAND' 00072000
- MEXIT 00073000
- .ERR7 MNOTE 4,'INVALID FEATURE OPERAND' 00074000
- AGO .NEXT 00075000
- MEND 00076000
ibm/vm370-lib/macro/terminal.macro_src.txt · Last modified: 2023/08/06 13:38 by Site Administrator