Trailing-Edge
-
PDP-10 Archives
-
decuslib20-04
-
decus/20-0135/comp/vtmvda.mac
There are 2 other files named vtmvda.mac in the archive. Click here to see a list.
00020 COMMENT* package for control of display terminals*; OPTIONS(/l/e);
00040 COMMENT* Copyright (c) Swedish National Defense Research Institute*;
00280 UNIVERSAL VTMVDA
00300 .DIRECTIVE .NOBIN
00320 SALL
00340 ;! No sorting of parameters, simple def of WRD macro
00360 DEFINE WRD(X,T,L)<
00380 C$==<X==C$>+1>
00400 DEFINE WORD(X)<WRD(X,A,1)>
00420 DEFINE REF(X)<WRD(X,R,1)>
00440 DEFINE TEXT(X)<WRD(X,T,2)>
00460 SYN WORD,INTEGER
00480 SYN WORD,BOOLEAN
00500 SYN WORD,CHARACTER
00520 SYN REF,ARRAY
00540
00560 C$==2 ;! Initial offset (no prefix)
01720 INTEGER width; ! Screen width or less;
01740 INTEGER height; ! Screen height or less;
01860 REF termin
01880 REF termout
01900 BOOLEAN qechoenabled
01980 INTEGER trmtyp
02040 INTEGER trmspeed;