C GETTT GET TERMINAL CHARACTERISTICS OF ANY TERMINAL C RSX-11M V3.2 IAS V3.0 INTEGER GPRM(16), GSB(2), IGMC(1), SPEED(20) BYTE GMC(2),GST COMPLEX TYPE(20), TYPEI(24), RESSUS(0:3) EQUIVALENCE (GMC(1),IGMC(1)),(GST,GSB(1)) PARAMETER IFGMC="2560 DATA SPEED/0,50,75,100,110,134,150,200,300,600, X 1200,1800,2000,2400,3600,4800,7200,9600,0,0/ DATA TYPE/'ASR33','KSR33','ASR35','LA30S','LA30P', X 'LA36','VT05','VT50','VT52','VT55','VT61', X 'LA180S','VT100','LA120','SCRIPT','USR0', X '4006','ADDS','ADM3','4014'/ DATA TYPEI/'ASR33','KSR33','ASR35','LA30S','LA30P', X 'LA36','VT05','VT50','VT52','VT55','VT61', X 'LA180S','VT100','LA120','SCRIPT','USR0', X 'USR1','USR2','USR3','USR4', X '4006','ADDS','ADM3','4014'/ DATA RESSUS/'RESUME','SUSPEND','SUPPRESS','SUS/SUP'/ C CALL GETTSK(GPRM) ! GET SYSTEM TYPE ISYS = GPRM(15) ! 1=M 3=IAS CALL ERRSET(1,,,,,32767) CALL GETADR(GPRM(1),GMC(1)) GPRM(2)=2 1 WRITE (2,10) 10 FORMAT(/' ENTER TERMINAL NUMBER: '$) READ (2,11,END=99,ERR=1) N 11 FORMAT(O5) CALL ASNLUN(1,'TT',N,IDS) GST=0 IF(IDS.LT.0) GO TO 95 DO 5 I=1,58 GMC(1)=I CALL WTQIO(IFGMC,1,1,,GSB,GPRM,IDS) IF(IDS.LT.0) GO TO 95 IF(GST.EQ.-15) GO TO 5 IF(GST.LT.0) GO TO 95 IMC=GMC(2) IF(IMC.EQ.0) GO TO 5 GO TO (101,102,103,104,105,106,107,108,109,110, X 111,112,113,114,115,116,117,118,119,120, X 121,122,123,124,125,126,127,128,129,130, X 131,132,133,134,135,136,137,138,139,140, X 141,142,143,144,145,146,147,148,149,150, X 151,152,153,154,155,156,157,158),I 101 IF(IMC.LT.0)IMC=IMC+256 IF(ISYS.EQ.3) IMC=IMC-1 WRITE (2,21) 'WIDTH',IMC GO TO 5 102 IF(IMC.LT.0)IMC=IMC+256 WRITE (2,21) 'LENGTH',IMC GO TO 5 103 IF(IMC.GT.20) GO TO 1031 WRITE (2,21) 'RECV SPEED',SPEED(IMC) GO TO 5 1031 WRITE (2,21) 'RECV SPEED CODE',IMC GO TO 5 104 IF(IMC.GT.20) GO TO 1041 WRITE (2,21) 'XMIT SPEED',SPEED(IMC) GO TO 5 1041 WRITE (2,21) 'XMIT SPEED CODE',IMC GO TO 5 105 WRITE (2,21) 'TWO STOP BITS' GO TO 5 106 WRITE (2,23) 'SUB LINE NUMBER',IMC GO TO 5 107 WRITE (2,21) 'TYPE AHEAD CODE',IMC GO TO 5 108 IF(ISYS.NE.3) GO TO 1082 IF(IMC.GT.24) GO TO 1081 WRITE (2,24) 'TERMINAL TYPE',TYPEI(IMC) GO TO 5 1082 IF(IMC.GT.20)GO TO 1081 WRITE (2,24) 'TERMINAL TYPE',TYPE(IMC) GO TO 5 1081 WRITE (2,21) 'TERMINAL TYPE CODE',IMC GO TO 5 109 WRITE (2,21) 'SCRIPT LINE' GO TO 5 110 WRITE (2,21) 'SCOPE' GO TO 5 111 WRITE (2,21) 'HORIZONTAL FILL',IMC GO TO 5 112 WRITE (2,21) 'VERTICAL FILL' GO TO 5 113 WRITE (2,21) 'NEWLINE TERMINAL' GO TO 5 114 WRITE (2,21) 'SIMULATED FORM FEED' GO TO 5 115 WRITE (2,21) 'HARDWARE FORM FEED' GO TO 5 116 WRITE (2,21) 'LA36 VERTICAL FILL' GO TO 5 117 WRITE (2,21) 'HARDWARE TAB' GO TO 5 118 WRITE (2,21) 'NON-STANDARD TAB' GO TO 5 119 WRITE (2,21) 'HARDWARE BACKSPACE' GO TO 5 120 WRITE (2,21) 'AUTOMATIC C/R+LF' GO TO 5 121 WRITE (2,21) 'LOWER CASE INPUT' GO TO 5 122 WRITE (2,21) 'FORCED LOWER CASE INPUT' GO TO 5 123 WRITE (2,21) 'LOWER CASE OUTPUT' GO TO 5 124 WRITE (2,21) 'CONTROL-C FLUSH' GO TO 5 125 WRITE (2,21) 'RECOGNIZE ALTERNATIVE ALTMODE' GO TO 5 126 WRITE (2,21) 'INHIBIT IAS MESSAGES' GO TO 5 127 WRITE (2,21) 'NO KEYBOARD' GO TO 5 128 WRITE (2,21) 'NO PRINTER' GO TO 5 129 WRITE (2,21) 'ESCAPE SEQ RECOGNITION' GO TO 5 130 WRITE (2,21) 'LOCAL ECHO' GO TO 5 131 WRITE (2,21) 'PARITY GEN/CHECK' GO TO 5 132 WRITE (2,21) 'EVEN PARITY' GO TO 5 133 WRITE (2,21) 'DIALUP LINE' GO TO 5 134 WRITE (2,21) 'BLOCK MODE TERMINAL' GO TO 5 135 WRITE (2,21) 'FORMS MODE TERMINAL' GO TO 5 136 WRITE (2,21) 'HOLD MODE' GO TO 5 137 WRITE (2,21) 'TAPE READER' GO TO 5 138 WRITE (2,21) 'COMPATIBLE ESCAPE SEQUENCES' GO TO 5 139 WRITE (2,21) 'NO-ECHO MODE' GO TO 5 140 WRITE (2,21) 'SLAVE' GO TO 5 141 WRITE (2,21) 'PRIVILEGED' GO TO 5 142 WRITE (2,21) 'UC0' GO TO 5 143 WRITE (2,21) 'UC1' GO TO 5 144 WRITE (2,21) 'UC2' GO TO 5 145 WRITE (2,21) 'UC3' GO TO 5 146 WRITE (2,21) 'UC4' GO TO 5 147 WRITE (2,21) 'UC5' GO TO 5 148 WRITE (2,21) 'UC6' GO TO 5 149 WRITE (2,21) 'UC7' GO TO 5 150 WRITE (2,21) 'UC8' GO TO 5 151 WRITE (2,21) 'UC9' GO TO 5 152 WRITE (2,21) 'FULL-DUPLEX' GO TO 5 153 WRITE (2,21) 'BINARY INPUT' GO TO 5 154 WRITE (2,21) 'REMOTE' GO TO 5 155 WRITE (2,21) '8-BIT INPUT' GO TO 5 156 WRITE (2,21) '8-BIT READ-PASS-ALL' GO TO 5 157 WRITE (2,21) '# CHARACTERS IN TYPEAHEAD',IMC GO TO 5 158 IF(IMC.GT.4) GO TO 1581 WRITE (2,24) 'RESUME STATE',RESSUS(IMC) GO TO 5 1581 WRITE (2,21) 'RESUME CODE',IMC 5 CONTINUE GO TO 1 21 FORMAT(1X,A30,:,I5) 23 FORMAT(1X,A30,:,O5) 24 FORMAT(1X,A30,:,1X,2A4) 95 IF(IDS.EQ.-92)GO TO 96 IF(GST.EQ.-65)GO TO 97 WRITE (2,22) IDS,GST 22 FORMAT(' ERROR:'2I4) GO TO 1 96 WRITE (2,21) 'NO SUCH TERMINAL' GO TO 1 97 WRITE (2,21) 'TERMINAL IS OFFLINE' GO TO 1 99 CALL EXIT END