github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-02-14 12:04:03 +00:00
Code Issues Releases Wiki Activity

Bring back old Imlac terminal type for Imlac with SSV.

Browse Source 
Add OIMLAC to TCTYP.  Add TTDIOM macro for TTYTYP.
This commit is contained in:
Lars Brinkhoff
2019-01-24 11:39:59 +01:00
parent 9fa303662f
commit 49a1eba341
3 changed files with 23 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
src/system/its.1649 → src/system/its.1650
View File

@@ -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+<SPEEDC ISPEED,SPEED>,,TY+<CNTRLR N>
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