Trailing-Edge
-
PDP-10 Archives
-
bb-bt99e-bb
-
dntty.c09
There is 1 other file named dntty.c09 in the archive. Click here to see a list.
REP 1/1 ;09C1
.SBTTL DNTTY - TERMINAL ROUTINES 10 AUG 83
WIT
.SBTTL DNTTY - TERMINAL ROUTINES 21 AUG 84
REP 8/1 ;09C2
VRTTY=110 ;FILE EDIT NUMBER
WIT
VRTTY=111 ;FILE EDIT NUMBER
REP 55/2 ;09C3
.BYTE 0 ;DB.EPL
SETLCB \NXTDH
WIT
.BYTE 0 ;DB.EPL
SETLCB \NXTDH ;DB.LCB
REP 52/4 ;09C4
SETLCB \NXTDZ
WIT
SETLCB \<NXTDZ+<NDH11*20>> ;DB.LCB
REP 48/6 ;09C5
.BYTE 0,0,0,0,0,0 ; DB.FIL
.BYTE 0 ;DB.EPL
SETLCB \NXTDH
WIT
.BYTE 0,0,0,0,0,0 ;DB.FIL
.BYTE 0 ;DB.EPL
SETLCB \NXTDH ;DB.LCB
REP 47/7 ;09C6
.BYTE 0,0,0,0,0,0 ; DB.FIL
.BYTE 0 ;DB.EPL
SETLCB \NXTDZ
WIT
.BYTE 0,0,0,0,0,0 ;DB.FIL
.BYTE 0 ;DB.EPL
SETLCB \<NXTDZ+<NDH11*20>> ;DB.LCB
INS 43/15 ;09C7
BIC #DS.IST,@J ;LET THE -10 GENERATE THE XON
REP 14/25 ;09C8
1$: CMP #20,JIFFLG ;IF CLOCK LEVEL HAS RUN WITHIN
BGE XMT.0 ; THEN IT'S OK TO RUN
MOVB #3,DB.TIM(J) ;IF WE'VE BEEN TYING UP THE MACHINE
5$: RTS PC ;MAKE SURE IRMA CATCHES US SOON,
; AND SHUT DOWN THIS LINE
WIT
1$: CMP #20,JIFFLG ;IF CLOCK LEVEL HAS RUN RECENTLY
BGE XMT.0 ; THEN IT'S OK TO RUN TERMINALS NOW
MOVB #3,DB.TIM(J) ;IF WE'VE BEEN TYING UP THE MACHINE
BIS #DS.ACT,@J ;FLAG THE LINE AS "ACTIVE"
5$: RTS PC ;BUT OTHERWISE SHUT IT DOWN
; (LETTING IRMA RESTART IT LATER)
INS 16/34 ;09C9
CMPB #LCS.RU,LC.STA(R2) ;LINE O.K.?
BGT LRTS ;IF IT ISN'T, PUNT THE CHAR
CMPB #LCS.RC,LC.STA(R2) ;LINE O.K.?
BLT LRTS ;IF IT ISN'T, PUNT THE CHAR
DEL 3/35 ;09C10
MOV DB.LCB(J),R2 ;GET POINTER TO LCB,
CMPB #LCS.RU,LC.STA(R2) ;LINE OK?
BGT LRTS ; IF IT ISN'T, PUNT THE CHAR
CMPB #LCS.RC,LC.STA(R2) ;LINE OK?
BLT LRTS ; IF IT ISN'T, PUNT THE CHAR
SUM 2647