Manual for Data Media Elite 2500 terminal?

Phil Budne phil at ultimate.com
Thu May 31 10:59:35 CDT 2018


FreeBSD termcap has:

dm2500|datamedia2500|2500|datamedia 2500:\
        :do=^J:al=15^P\n^X^]^X^]:le=^H:bs:ce=^W:cl=^^^^\177:\
        :cm=^L%r%n%.%.:co#80:dc=10*^P\b^X^]:dl=10*^P^Z^X^]:\
        :dm=^P:ed=^X^]:ei=10\377\377^X^]:ho=^B:ic=10*^P^\^X^]:\
        :im=^P:li#24:nc:nd=^\:pc=\377:so@=^N:se=^X^]:up=^Z:

(whatever THAT means!)

And in english (from an old copy of ITS TECO):

IFN DM2500,[
SUBTTL DM2500
 
DM25TB: 2000+24.,,79.
        (%TOERS+%TOMVB+%TOMVU+%TOLWR+%TOLID+%TOCID+%TOFCI)
        CALL DMCPS
        CALL DMCEOL
        CALL DMCEOL             ;CLOSEST WE CAN COME
        CALL DMCLRS
REPEAT 3, NOP
        CALL DMINSL
        CALL DMDELL
        CALL DMINSC
        CALL DMDELC
        CALL DMRST
 
DMCPS:  JUMPE B,[MOVEI A,^B     ;HOME IS EASY
                  PBOUT
                  RET]
        MOVEI A,^L              ;ELSE ^L<HPOS#140><VPOS#140>
        PBOUT
        HRRZ A,B
        XORI A,"`
        PBOUT
        HLRZ A,B
        XORI A,"`
DMCP2:  PBOUT
        RET
 
DMCEOL: MOVEI A,^W
        JRST DMCP2
 
DMCLRS: MOVEI A,^^
        PBOUT                           ;[
DMRST:  MOVEI A,^]                      ;RESTORE ROLL MODE
        JRST DMCP2
 
DMINSL: SAVE C
        SAVE B
        CALL DMINS1                     ;POSITION RIGHT AND ENTER I/D MODE
        MOVEI A,30.                     ;COMPUTE AMOUNT OF FILL NEEDED
        SUBI A,(BP)                     ;((30.-(BP))*OSPEED-2400.)/14400.
        SKIPN B,OSPEED                  ;SPEED OF OUTPUT
         MOVEI B,9600.                  ;ASSUME MAX IF UNKNOWN
        IMULI B,(A)
        SUBI B,2400.
        IDIVI B,14400.                  ;MAGIC NUMBER IN B
DMINS2: MOVEI A,^J                      ;INSERT A LINE
        PBOUT
        MOVEI A,177                     ;FILL CHARACTER
        SKIPE C,B                       ;GET NUMBER OF FILL CHARS NEEDED
         PBOUT
        SOJG C,.-1                      ;OUTPUT THAT MANY
        SOJG Q,DMINS2                   ;REPEAT FOR NUMBER OF LINES REQUESTED
        REST B
DMINS3: REST C
        MOVEI A,^X
        JRST DMCP2
 
DMDELL: SAVE C
        CALL DMINS1
DMDEL2: MOVEI A,^Z                      ;DELETE A LINE
        PBOUT
        MOVEI A,177                     ;ONE FILL CHAR
        SKIPE C,OSPEED
         CAIL C,9600.
         PBOUT                          ;ONLY FOR 9600 BAUD OR MORE THOUGH
        SOJG Q,DMDEL2
        JRST DMINS3
 
DMINS1: HRROI A,[.BYTE 7 ? ^L ? "` ? 0]
        PSOUT
        MOVEI A,140(BP)
        PBOUT
        MOVEI A,^P
        PBOUT
        RET

DMINSC: SAVE C
        HRROI A,[.BYTE 7 ? ^P ? ^\ ? ^X ? 0]
        SKIPE C,OSPEED
         CAIL C,9600.           ;IF AT 9600 OR MORE,
         HRROI A,[.BYTE 7 ? ^P ? 40 ? 177 ? ^X ? ^H ? 40 ? ^H]  ;USE HAIRY ONE
        PSOUT
        REST C
        SOJG Q,DMINSC
        RET
 
DMDELC: HRROI A,[.BYTE 7 ? ^P ? ^H ? 0]
        PSOUT
        SAVE C
        MOVEI A,177
        SKIPE C,OSPEED
         CAIL C,9600.           ;IF AT 9600 OR MORE,
         PBOUT                  ;NEED ONE FILL CHAR
        JRST DMINS3
]       ;DM2500


More information about the cctech mailing list