From 49a1eba341b9d6f0227490cb1524b544eb53251a Mon Sep 17 00:00:00 2001 From: Lars Brinkhoff Date: Thu, 24 Jan 2019 11:39:59 +0100 Subject: [PATCH] Bring back old Imlac terminal type for Imlac with SSV. Add OIMLAC to TCTYP. Add TTDIOM macro for TTYTYP. --- doc/_info_/tctyp.order | 18 +++++++++++------- src/syseng/{tctyp.153 => tctyp.154} | Bin 39022 -> 39160 bytes src/system/{its.1649 => its.1650} | 13 ++++++++++++- 3 files changed, 23 insertions(+), 8 deletions(-) rename src/syseng/{tctyp.153 => tctyp.154} (99%) rename src/system/{its.1649 => its.1650} (99%) diff --git a/doc/_info_/tctyp.order b/doc/_info_/tctyp.order index d5b0b9f8..1d9d8d98 100755 --- a/doc/_info_/tctyp.order +++ b/doc/_info_/tctyp.order @@ -7,7 +7,7 @@ Command names may be abbreviated if the abbreviation is unambiguous. The basic commands are: AAA AMBASSADOR C100 CDI DATAMEDIA DATAPOINT DISAPPOINT DM2500 EXECUPORT GLASS GT40 GT44 H19 HEATH HP2640 IMLAC -LA36 MBEE MEMOWRECK MINIBEE4 OMRON PRINTING S1GRINNEL SBEE +LA36 MBEE MEMOWRECK MINIBEE4 OIMLAC OMRON PRINTING S1GRINNEL SBEE SIMLAC SOFTWARE SUPERBEE T1061 T35 TEKTRONIX TELETYPE TERMINET TIMLAC TISILENT TT2500 TV VT50 VT52 Z19 340D. For other types of terminals, see INFO;CRTSTY >. @@ -62,12 +62,12 @@ would have been given. Thus, it is possible to find out what the effect of a command string would be without actually trying it, by adding "DESCRIBE" to it. -The "BASIC COMMANDS" are "AMBASSADOR" "DATAPOINT", "DISAPPOINT", "DATAMEDIA", -"CDI", "EXECUPORT", "GLASS", "GT40", "GT44", "HEATH", "HP2640", "IMLAC", -"LA36", "LOSER", "MEMOWRECK", "MBEE", "MINIBEE4", "OMRON", "PRINTING", -"SIMLAC", "SIMULATED", "SOFTWARE", "SBEE", "SUPERBEE", "T35", -"TELETYPE", "TIMLAC", "TISILENT", "TERMINET", "TV", "VT50", "VT52". -Some are aliases of others. +The "BASIC COMMANDS" are "AMBASSADOR" "DATAPOINT", "DISAPPOINT", +"DATAMEDIA", "CDI", "EXECUPORT", "GLASS", "GT40", "GT44", "HEATH", +"HP2640", "IMLAC", "LA36", "LOSER", "MEMOWRECK", "MBEE", "MINIBEE4", +"OIMLAC", "OMRON", "PRINTING", "SIMLAC", "SIMULATED", "SOFTWARE", +"SBEE", "SUPERBEE", "T35", "TELETYPE", "TIMLAC", "TISILENT", +"TERMINET", "TV", "VT50", "VT52". Some are aliases of others. Each basic command sets most of the major parameters. The other commands usually set only one parameter. If a parameter is set by @@ -244,6 +244,10 @@ NOUPPERCASE Stops conversion of lower case to upper case. OCO Tells the system to allow programs to type out even while a com-link is in progress. +OIMLAC Declares the terminal to be an Imlac PDS1 (DM Style), + with the old SSV console program. This type of Imlac + cannot print SAIL characters or send meta bits. + OMRON Declares the terminal to be an OMRON display. OVERPRINT Tells the system that overprinting is diff --git a/src/syseng/tctyp.153 b/src/syseng/tctyp.154 similarity index 99% rename from src/syseng/tctyp.153 rename to src/syseng/tctyp.154 index aa1b2c56c9db0b28abe1af12e9df198700609098..90c2d8bff1a79f514218ad8def8b65b03ecab4e8 100755 GIT binary patch delta 146 zcmaF2f$7IarVW+WO8%a{K8{wLUcmthjyjGZkpaO0T#g_?Ln}_z5I-Pea-5Zzn}1G< zf@f|{VzPcL7f{^aKP*TaNcn_=Dc>+B5YIO(6hyfO1%oJ{RvjHKPD2Ad1$zb6kU&pg e!_6hu3k+C5GMgoG&d9R?8IH~hn;&;~^8f&3Nh-Mj delta 29 lcmeydk?GwArVW+WoBvqPHem7e^>N%hJLio2=DeOR9st)F4Rini diff --git a/src/system/its.1649 b/src/system/its.1650 similarity index 99% rename from src/system/its.1649 rename to src/system/its.1650 index 8b508e01..903cabf6 100644 --- a/src/system/its.1649 +++ b/src/system/its.1650 @@ -273,6 +273,17 @@ T!N!$TCT==TCT T!N!$ROL==ROL TERMIN +;DEFINE TTY AS IMLAC. (USING OLD IMLAC CURSOR CODES) +DEFINE TTDOIM N,+SPEED=50K,ISPEED=25K,TT=0,TY=0,TO=0,TP=0,HOR=90.,VER=44.,TCT=%TNIML,ROL=10.,SMARTS=%TQIM1 +T!N!$SMT==SMARTS,, +T!N!$HOR==HOR +T!N!$VER==VER +T!N!$OPT==TO+%TOOVR+%TOLWR+%TOMVB+%TOMVU+%TOERS+%TOLID+%TOCID,,TP +T!N!$TYP==%TTDDI+TT+,,TY+ +T!N!$TCT==TCT +T!N!$ROL==ROL +TERMIN + ;DEFINE TTY AS VT52 DEFINE TTDVT N,+SPEED=9600,ISPEED=,TT=0,TY=0,TO=0,TP=%TPORS,HOR=80.,VER=24.,TCT=%TNESC,ROL=1,SMARTS=0 T!N!$SMT==SMARTS,, @@ -455,7 +466,7 @@ TERMIN $INSRT TTYTYP .CRFON EXPUNGE TTDPRT,TTDTRM,TTDDPT,TTDMRX,TTDGT40,TTD11,TTDRAN,TTDGRN,TTDVT,TTDTEK -EXPUNGE TTDTV,TTD2741,TTDSTY,TTDLPT,TTDIML,TTDLA36,TTDLSR +EXPUNGE TTDTV,TTD2741,TTDSTY,TTDLPT,TTDIML,TTDOIM,TTDLA36,TTDLSR EXPUNGE SPEEDC,SPEED1,CNTRLR,MCONDX,.ENDC,.ENDR ] ;END OF IF2