Trailing-Edge
-
PDP-10 Archives
-
BB-L289B-RK
-
tttbl.ddt
There are 2 other files named tttbl.ddt in the archive. Click here to see a list.
""COMMAND FILE TO DUMP TERMINAL DATA BASE"
""DAN DEUFEL"
""LAST EDITED: 16-DEC-81"
""NOTE:"
"" THIS COMMAND FILE REPORTS DATA STRUCTURES THAT DID NOT EXIST"
"" BEFORE VERSION 14-40."
"" STSW0 DEFINITIONS"
"" S0.ABR==100000 ; AUTO-BAUD REPORT PENDING"
"" S0.CON==040000 ; REMOTE LINE IS CONNECTED"
"" S0.ISP==001700 ; INPUT SPEED FIELD MASK"
"" S0.OSP==036000 ; OUTPUT SPEED FIELD MASK"
"" S0.MSK==S0.ABR!S0.CON ; BIT MASK FOR SETSPD TASK"
"" S0.SPD==S0.OSP!S0.ISP ; TERMINAL SPEED MASK"
"" STSW1 BIT DEFINITIONS"
"" TT.SND==140000 ; INDEX OF NEXT SEND-ALL TO DO FOR THIS LINE"
"" TT.SNI==040000 ; TO INCREMENT SEND-ALL INDEX"
"" TT.RSI==020000 ; RESTART TERMINAL INPUT ON TIMEOUT"
"" TT.FEC==014000 ; FRAMING ERROR COUNT FIELD"
"" TT.FEI==004000 ; TO INCREMENT FRAMING ERROR COUNT"
"" TT.RIP==002000 ; TTY REMOTE IN PROGRESS"
"" TT.SIP==001000 ; TTY SENDALL IN PROGRESS"
"" TT.NSA==000400 ; SUPPRESS SENDALLS"
"" TT.XOF==000200 ; TTY IS X'D OFF "
"" TT.RMT==000100 ; REMOTE FLAG"
"" TT.ABL==000040 ; AUTO-BAUD LINE"
"" TT.XEN==000020 ; XON/XOFF ENABLED ON THIS LINE"
"" TT.ABW==000010 ; LINE IS IN AUTO-BAUD WAIT"
"" TT.CRW==000004 ; WAITING FOR CARRIER FLAG"
"" TT.CTY==000002 ; TTY IS A CONSOLE TTY"
"" TT.OUT==000001 ; TTY OUTPUT FLAG"
"" STSW2 DEFINITIONS"
"" S2.DDN==BIT15 ; INPUT IS X'D OFF"
"" S2.DIP==BIT14 ; INPUT XOFF SEQUENCE IS IN PROGRESS"
"" S2.DIS==BIT13 ; DEFERRED INPUT XOFF REQUEST"
"" S2.ENB==BIT12 ; DEFRRRED INPUT XON REQUEST"
"" S2.LCL==BIT11 ; INPUT XOFF LOCAL REQUEST"
"" S2.RES==BIT10 ; RESERVED FOR EXTENSION"
"" S2.SSZ==BIT9 ; SET INPUT SPEED TO ZERO"
"" S2.CNT==BIT8!BIT9 ; WAIT COUNT FIELD"
"" S2.CHR==377 ; LOW BYTE HOLDS DEFERRED BREAK-THROUGH"
"" ; WRITE CHARACTER"
4C
""CTY LINE BLOCK"
DLTBL/
""DL11-E LINE BLOCKS"
DLETBL/
""DH11 LINE BLOCKS"
0-10<ZZ:
C
"" LINE POINTER DH11 CSR LINE SPEED STSW1 STSW2"
STSW2+10<SL:
%FOX1:
ZZ+10<ZZ:
SL+2<SL:
ZZ'10+1=DHTBL+ZZ/Q<YY:DHTBL+ZZ+2[Q<XX:DHTBL+ZZ+4/DHTBL+ZZ+6/SL/
%IF EQ YY %FOX3
""OUTPUT PENDING FOR THIS LINE"
%FOX2:
""NODE ADDRESS::"CYY=
""NEXT NODE ADDRESS::"YY/Q<YY:
""NUMBER OF CHARACTERS::"1B.+6/Q<WW:
""CHARACTER STRING::"WWT.+4/
%IF NE YY %FOX2
%FOX3:
%IF NE XX %FOX1
""END OF TERMINAL DATA BASE"