(FILECREATED "12-Nov-85 18:57:14" ("compiled on " {ERIS}LIBRARY>DLTTY.;12) "11-Nov-85 13:27:20" recompiled changes: nothing in "INTERLISP-D 11-Nov-85 ..." dated "11-Nov-85 13:40:00") (FILECREATED "12-Nov-85 18:56:23" {ERIS}LIBRARY>DLTTY.;12 40301 changes to: (VARS DLTTYCOMS DLTTYCOMMANDS DLTTYOUTCOMMANDS DLTTYSETPARAMETERCOMMANDS DVTTYBITS) (RECORDS DLTTY.IN.CSB DLTTY.OUT.COMMAND DLTTY.OUT.CSB DLTTY.SETPARAMETER.COMMAND Dove.TTYFCB) previous date: "29-Oct-85 13:59:17" {ERIS}LIBRARY>DLTTY.;11) \DLTTY.BIN D1 (P 2 NOTOPEN P 1 GOTCHAR P 0 CHAR I 0 STREAM) v0Io`$j@RkjhhZJ@ `%`l$j`,Hd`@i `@h iYiYH(54Q \EOF.ACTION 43Q BLOCK) (144Q STREAM 134Q \DLTTY.FLOWCONTROL 123Q STREAM 111Q \DLTTY.FLOWCONTROL 102Q \DLTTY.FLOWCONTROL 67Q \IOPAGE 60Q \IOPAGE 23Q STREAM 10Q \IOPAGE) () \DLTTY.BOUT D1 (I 1 BYTE I 0 STREAM) Zl`@ @ 7`%`@h `Al`li`l$j(125Q BLOCK 33Q READP 14Q BLOCK) (112Q \IOPAGE 100Q \IOPAGE 66Q \IOPAGE 57Q STREAM 46Q \DLTTY.FLOWCONTROL 40Q \IOPAGE 23Q STREAM 4 \IOPAGE) () \DLTTY.GET.PARAMETERS D1 (P 3 PARAMETER I 0 PARAMETERLIST) @@d[dgdg`"ogKdgK`"ogKdgK`"lذngKdgK`"C`SgKdgK`"jh9gKdgK`"jhgKgK`og`IHhZH&-JNIL (307Q \DLTTY.FLOWCONTROL 303Q XOnXOff 272Q \DLTTY.FLOWCONTROL 263Q FlowControl 255Q FLOW.CONTROL 241Q \IOPAGE 232Q CTS 223Q CLEAR.TO.SEND 207Q \IOPAGE 200Q DSR 171Q DATA.SET.READY 162Q \DLTTY.INVERSE.BAUD.RATES 154Q \IOPAGE 145Q BaudRate 136Q LINE.SPEED 123Q \IOPAGE 114Q BitsPerSerialChar 105Q CHAR.LENGTH 66Q \IOPAGE 56Q Parity 47Q PARITY 30Q \IOPAGE 23Q NoOfStopBits 15Q STOP.BITS) ( 276Q (1 21Q 23Q) 75Q ((0 . NONE) (1 . ODD) (3 . EVEN)) 37Q ((0 . 0) (1 . 1) (2 . 1.5) (3 . 2))) \DLTTY.INIT D1 (I 4 FLOWCONTROL I 3 STOPBITS I 2 PARITY I 1 BITSPERCHAR I 0 BAUDRATE) h@ABCDh `l`j#`l$jjdh`l$jпjdh`nl``l"jj`n?g@ gA gB gC gD h id(236Q \DLTTY.SET.PARAMETERS 224Q \APPEND2 214Q \APPEND2 204Q \APPEND2 174Q \APPEND2 164Q \APPEND2 124Q BLOCK 21Q \TTY.CREATE.FDEV) (246Q \TTY.READY 242Q \TTYFLG 220Q FLOW.CONTROL 210Q STOP.BITS 200Q PARITY 170Q CHAR.LENGTH 160Q LINE.SPEED 150Q \IOPAGE 145Q \DLTTY.STATE 132Q \IOPAGE 114Q \IOPAGE 102Q \IOPAGE 62Q \IOPAGE 42Q \IOPAGE 34Q \IOPAGE 24Q \IOPAGE 3 \TTY.READY) () \DLTTY.READP D1 (L (0 STREAM)) `$jhNIL (2 \IOPAGE) () \DLTTY.SET.PARAMETERS D1 (P 3 VALUE P 2 PARAMETER P 1 PARAMPAIR I 0 PARAMETERLIST) @qH `"Yl`IIJgJdg-Ko \9`K`L"`ngJdg*Ko]`K`M"`ngJdg1KlپjNNl`K`N"`ngJdg*K` _`K`O"C`n ugJdg`l"Kkj`nNgJdg`l"Kkj`n'gJg`KKdgoHX(350Q SASSOC 100Q SASSOC 41Q BLOCK) (573Q \DLTTY.FLOWCONTROL 561Q XOnXOff 545Q TTY.DEFAULT.INIT.INFO 537Q FlowControl 531Q FLOW.CONTROL 517Q \IOPAGE 500Q \IOPAGE 471Q CTS 462Q CLEAR.TO.SEND 450Q \IOPAGE 431Q \IOPAGE 422Q DSR 413Q DATA.SET.READY 401Q \IOPAGE 370Q \IOPAGE 362Q TTY.DEFAULT.INIT.INFO 345Q \DLTTY.BAUD.RATES 335Q BaudRate 326Q LINE.SPEED 313Q \IOPAGE 303Q \IOPAGE 274Q TTY.DEFAULT.INIT.INFO 241Q BitsPerSerialChar 232Q CHAR.LENGTH 217Q \IOPAGE 207Q \IOPAGE 177Q TTY.DEFAULT.INIT.INFO 154Q Parity 145Q PARITY 132Q \IOPAGE 122Q \IOPAGE 111Q TTY.DEFAULT.INIT.INFO 64Q NoOfStopBits 55Q STOP.BITS 31Q \IOPAGE 20Q \DLTTY.STATE 13Q \IOPAGE) ( 570Q (1 21Q 23Q) 165Q ((NONE . 0) (ODD . 1) (EVEN . 3)) 75Q ((0 . 0) (1 . 1) (1.5 . 2) (2 . 3))) \DLTTY.SHUTDOWN D1 NIL )l``n`"h(14Q BLOCK) (46Q \TTYFLG 43Q \TTY.READY 37Q \DLTTY.STATE 32Q \IOPAGE 22Q \IOPAGE 4 \IOPAGE) () \DVTTY.BIN D1 (P 2 NOTOPEN P 1 GOTCHAR P 0 CHAR I 0 STREAM) 0I{`(9nj@RkjhhZJ@ `!`d(9o9(`,Hd`@i `@h iYiYH(61Q \EOF.ACTION 50Q BLOCK) (160Q STREAM 150Q \DLTTY.FLOWCONTROL 137Q STREAM 125Q \DLTTY.FLOWCONTROL 116Q \DLTTY.FLOWCONTROL 74Q \DoveTTY.FCBPointer 65Q \DoveTTY.FCBPointer 30Q STREAM 10Q \DoveTTY.FCBPointer) ( 105Q -10401Q) \DVTTY.BOUT D1 (I 1 BYTE I 0 STREAM) l`(9n j@ @ E`!`,@h `Al!`d(o9(`9i`l$j(147Q BLOCK 37Q READP 20Q BLOCK) (134Q \IOPAGE 123Q \DoveTTY.FCBPointer 104Q \DoveTTY.FCBPointer 72Q \DoveTTY.FCBPointer 63Q STREAM 52Q \DLTTY.FLOWCONTROL 44Q \DoveTTY.FCBPointer 27Q STREAM 2 \DoveTTY.FCBPointer) ( 113Q -20001Q) \DVTTY.INIT D1 (I 4 FLOWCONTROL I 3 STOPBITS I 2 PARITY I 1 BITSPERCHAR I 0 BAUDRATE) hl @ABCDh `l$1`k$`kjh`k$kjh`k%kjh`d"9n\9"`d(9n`o9(`9g@ gA gB gC gD h id(245Q \DVTTY.SET.PARAMETERS 233Q \APPEND2 223Q \APPEND2 213Q \APPEND2 203Q \APPEND2 173Q \APPEND2 31Q \TTY.CREATE.FDEV 10Q \DoveIO.GetHandlerIORegionPtr) (255Q \TTY.READY 251Q \TTYFLG 227Q FLOW.CONTROL 217Q STOP.BITS 207Q PARITY 177Q CHAR.LENGTH 167Q LINE.SPEED 160Q \DoveTTY.FCBPointer 133Q \DoveTTY.FCBPointer 113Q \DoveTTY.FCBPointer 76Q \DoveTTY.FCBPointer 61Q \DoveTTY.FCBPointer 44Q \DoveTTY.FCBPointer 34Q \DoveTTY.FCBPointer 13Q \DoveTTY.FCBPointer 3 \TTY.READY) ( 150Q -11401Q) \DVTTY.SET.PARAMETERS D1 (P 4 VALUE P 3 PARAMETER P 2 PARAMPAIR P 1 workListImage I 0 PARAMETERLIST) p @`"9rH`In9"`9hZJKgKdg+Lo ]#`L`M%AIn 乱 gKdg(Lo^`L`N%aIn 乱gKdg4Ll_jOOl`dO%O$InP乱gKdg'L` _|`L`O9#In买dgKdg`k%In买FgKdg`k%In买(gKg`LLdgoHX(351Q SASSOC 102Q SASSOC) (547Q \DLTTY.FLOWCONTROL 535Q XOnXOff 521Q TTY.DEFAULT.INIT.INFO 513Q FlowControl 505Q FLOW.CONTROL 465Q \DoveTTY.FCBPointer 456Q CTS 447Q CLEAR.TO.SEND 427Q \DoveTTY.FCBPointer 420Q DSR 411Q DATA.SET.READY 367Q \DoveTTY.FCBPointer 361Q TTY.DEFAULT.INIT.INFO 346Q \DVTTY.BAUD.RATES 336Q BaudRate 327Q LINE.SPEED 276Q \DoveTTY.FCBPointer 237Q BitsPerSerialChar 230Q CHAR.LENGTH 207Q \DoveTTY.FCBPointer 177Q TTY.DEFAULT.INIT.INFO 154Q Parity 145Q PARITY 124Q \DoveTTY.FCBPointer 113Q TTY.DEFAULT.INIT.INFO 66Q NoOfStopBits 57Q STOP.BITS 36Q \DoveTTY.FCBPointer 21Q \DoveTTY.FCBPointer 3 \DoveTTY.FCBPointer) ( 544Q (1 21Q 23Q) 165Q ((NONE . 0) (ODD . 1) (EVEN . 3)) 77Q ((0 . 0) (1 . 1) (1.5 . 2) (2 . 3))) \DVTTY.READP D1 (L (0 STREAM)) `(9njhNIL (2 \DoveTTY.FCBPointer) () \DVTTY.GET.PARAMETERS D1 (P 3 PARAMETER I 0 PARAMETERLIST) @@d[dgdg`%AogKdgK`%aogKdgK`%lذogKdgK`#9`SgKdgK`%jh9gKdgK`%jhgKgK`og`IHhZH&,JNIL (310Q \DLTTY.FLOWCONTROL 304Q XOnXOff 273Q \DLTTY.FLOWCONTROL 264Q FlowControl 256Q FLOW.CONTROL 242Q \DoveTTY.FCBPointer 233Q CTS 224Q CLEAR.TO.SEND 210Q \DoveTTY.FCBPointer 201Q DSR 172Q DATA.SET.READY 163Q \DVTTY.INVERSE.BAUD.RATES 154Q \DoveTTY.FCBPointer 145Q BaudRate 136Q LINE.SPEED 123Q \DoveTTY.FCBPointer 114Q BitsPerSerialChar 105Q CHAR.LENGTH 66Q \DoveTTY.FCBPointer 56Q Parity 47Q PARITY 30Q \DoveTTY.FCBPointer 23Q NoOfStopBits 15Q STOP.BITS) ( 277Q (1 21Q 23Q) 75Q ((0 . NONE) (1 . ODD) (3 . EVEN)) 37Q ((1 . 1) (2 . 1.5) (3 . 2))) \DVTTY.SHUTDOWN D1 (L (4 FLOWCONTROL 3 STOPBITS 2 PARITY 1 BITSPERCHAR 0 BAUDRATE)) ]`k$`kjh`k$kjh`k%kjh`d"9n\9"`d(9n`o9(`9hdNIL (132Q \TTY.READY 126Q \TTYFLG 116Q \DoveTTY.FCBPointer 71Q \DoveTTY.FCBPointer 51Q \DoveTTY.FCBPointer 34Q \DoveTTY.FCBPointer 17Q \DoveTTY.FCBPointer 2 \DoveTTY.FCBPointer) ( 106Q -11401Q) \TTY.CREATE.FDEV D1 (I 0 INITINFO) `d`g`dgdjdj0dk dj@djPdj`dgdgdgdg dg dgdgdgdgdgdgdg dg"dg$hddhHdI(dg:dg8dg6dg4dg2dg0dg.dg*dgdg `(@(376Q \DEFINEDEVICE) (405Q FDEV 402Q \TTY.FDEV 373Q \TTY.FDEV 365Q NILL 356Q NILL 347Q NILL 340Q \IS.NOT.RANDACCESSP 331Q \ILLEGAL.DEVICEOP 322Q \IS.NOT.RANDACCESSP 313Q \ILLEGAL.DEVICEOP 304Q \GENERIC.BINS 275Q \GENERIC.BOUTS 266Q \GENERIC.RENAMEFILE 236Q \TTY.READP 227Q \TTY.PEEKBIN 220Q \TTY.BOUT 211Q \TTY.BIN 202Q NILL 173Q NILL 164Q \TTY.OPENFILE 155Q NILL 146Q \TTY.SETFILEINFO 137Q \TTY.GETFILEINFO 130Q \GENERATENOFILES 121Q \TTY.EVENTFN 112Q NILL 103Q \TTY.CLOSEFILE 30Q TTY 23Q FDEVTYPE# 20Q TTY 7 FDEVTYPE# 2 \TTY.FDEV) () \TTY.EVENTFN D1 (L (0 EVENT)) p@g@g@g@dg`l `"hg@g@g@g%` `l``"`n?iNIL (155Q \TTY.READY 143Q \IOPAGE 135Q \DLTTY.STATE 132Q \IOPAGE 122Q \MACHINETYPE 115Q \TTYFLG 107Q AFTERSAVEVM 101Q AFTERSYSOUT 73Q AFTERMAKESYS 64Q AFTERLOGOUT 60Q \TTY.READY 53Q \DLTTY.STATE 46Q \IOPAGE 36Q \MACHINETYPE 27Q BEFORESYSOUT 20Q BEFOREMAKESYS 12Q BEFORESAVEVM 3 BEFORELOGOUT) () \TTY.BIN D1 (I 0 STREAM) `dl@ l@ (31Q \NOMACHINETYPE 25Q \DVTTY.BIN 14Q \DLTTY.BIN) (2 \MACHINETYPE) () \TTY.BOUT D1 (I 1 BYTE I 0 STREAM) `dl@A l@A (33Q \NOMACHINETYPE 27Q \DVTTY.BOUT 15Q \DLTTY.BOUT) (2 \MACHINETYPE) () \TTY.READP D1 (I 0 STREAM) `dl@ l@ (31Q \NOMACHINETYPE 25Q \DVTTY.READP 14Q \DLTTY.READP) (2 \MACHINETYPE) () \TTY.CLOSEFILE D1 (P 0 TTYDEVICEINFO I 0 STREAM) 3`(@ dgHdggHhHh@ (60Q \SETACCESS 16Q \GETACCESS) (41Q BOTH 34Q OUTPUT 22Q INPUT 5 FDEV 2 \TTY.FDEV) () \TTY.OPENFILE D1 (P 4 EOLCONVENTION I 3 PARAMETERS I 2 RECOG I 1 ACCESS I 0 NAME) `` C&@Cd[KIHhZH&J Adg2`(` o` ` o yg0`(h` o` ` o EAdg:`(`('` o` ` o AgAg`j%gC`LdgjgkLdgsldMd`dg.dg,d`&dg"dg d`djd`dhdldjRdk@dk0dhdA jLLlL(614Q \SETACCESS 340Q \ILLEGAL.ARG 334Q ERRORX 324Q TERPRI 315Q PRIN1 302Q TERPRI 233Q ERRORX 223Q TERPRI 214Q PRIN1 201Q TERPRI 147Q ERRORX 137Q TERPRI 130Q PRIN1 115Q TERPRI 60Q TTY.SET.PARAMETERS 11Q \TTY.CREATE.FDEV) (541Q \STREAM.DEFAULT.MAXBUFFERS 525Q FILELINELENGTH 516Q \FILEOUTCHARFN 507Q \EOSERROR 500Q \NOIMAGEOPS 471Q \STREAM.NOT.OPEN 462Q \STREAM.NOT.OPEN 453Q \TTY.FDEV 432Q CRLF 421Q LF 410Q CR 402Q STREAMTYPE# 370Q EOLCONVENTION 360Q \IOPAGE 353Q BOTH 345Q OUTPUT 321Q TTY.ERROR.STREAM 312Q TTY.ERROR.STREAM 277Q TTY.ERROR.STREAM 266Q FDEV 263Q \TTY.FDEV 254Q FDEV 251Q \TTY.FDEV 242Q BOTH 220Q TTY.ERROR.STREAM 211Q TTY.ERROR.STREAM 176Q TTY.ERROR.STREAM 165Q FDEV 162Q \TTY.FDEV 154Q OUTPUT 134Q TTY.ERROR.STREAM 125Q TTY.ERROR.STREAM 112Q TTY.ERROR.STREAM 100Q FDEV 75Q \TTY.FDEV 66Q INPUT 6 TTY.DEFAULT.INIT.INFO 2 \TTY.FDEV) ( 331Q (11Q {TTY}) 307Q "TTY port is busy on input or output" 230Q (11Q {TTY}) 206Q "TTY port is busy on output" 144Q (11Q {TTY}) 122Q "TTY port is busy on input") TTY.INIT D1 (I 4 FlowControl I 3 NoOfStopBits I 2 Parity I 1 BitsPerSerialChar I 0 BaudRate) ]`dl$@ g` g@ @ABCD l#@ g` g@ @ABCD o (132Q ERROR 127Q MACHINETYPE 117Q \DVTTY.INIT 105Q APPLY 73Q APPLY 51Q \DLTTY.INIT 37Q APPLY 25Q APPLY) (101Q \DVTTY.INIT 70Q TTY.DEFAULT.INIT.INFO 65Q \DVTTY.INIT 33Q \DLTTY.INIT 22Q TTY.DEFAULT.INIT.INFO 17Q \DLTTY.INIT 2 \MACHINETYPE) ( 124Q "The TTY/PrinterPort is currently not supported on ") TTY.GET.PARAMETERS D1 (I 0 PARAMETERLIST) #`dl@ l@ o (40Q ERROR 35Q MACHINETYPE 25Q \DVTTY.GET.PARAMETERS 14Q \DLTTY.GET.PARAMETERS) (2 \MACHINETYPE) ( 32Q "RS232C is currently not supported on ") TTY.SET.PARAMETERS D1 (I 0 PARAMETERLIST) `dl@ l@ (31Q \NOMACHINETYPE 25Q \DVTTY.SET.PARAMETERS 14Q \DLTTY.SET.PARAMETERS) (2 \MACHINETYPE) () TTY.RESET.STREAMS D1 NIL `(`(hNIL (15Q FDEV 12Q \TTY.FDEV 5 FDEV 2 \TTY.FDEV) () TTY.SHUTDOWN D1 NIL `dll(27Q \NOMACHINETYPE 23Q \DVTTY.SHUTDOWN 13Q \DLTTY.SHUTDOWN) (2 \MACHINETYPE) () (PRETTYCOMPRINT DLTTYCOMS) (RPAQQ DLTTYCOMS ((COMS (* DLion TTY/Printer port head) (DECLARE: DONTCOPY (EXPORT (CONSTANTS * DLTTYCOMMANDS) (CONSTANTS * DLTTYOUTCOMMANDS) (CONSTANTS * DLTTYSETPARAMETERCOMMANDS) (RECORDS DLTTY.IN.CSB DLTTY.OUT.COMMAND DLTTY.OUT.CSB DLTTY.SETPARAMETER.COMMAND))) (INITVARS ( \DLTTY.BAUD.RATES (QUOTE ((50 . 0) (75 . 1) (110 . 2) (134.5 . 3) (150 . 4) (300 . 5) (600 . 6) (1200 . 7) (1800 . 8) (2000 . 9) (2400 . 10) (3600 . 11) (4800 . 12) (7200 . 13) (9600 . 14) (19200 . 15))) ) (\DLTTY.INVERSE.BAUD.RATES (QUOTE ((0 . 50) (1 . 75) (2 . 110) (3 . 134.5) (4 . 150) (5 . 300) (6 . 600) (7 . 1200) (8 . 1800) (9 . 2000) (10 . 2400) (11 . 3600) (12 . 4800) (13 . 7200) (14 . 9600) (15 . 19200))))) (RECORDS RS232C.INIT RS232C.XONXOFF) (INITVARS (\DLTTY.STATE 0) (\DLTTY.FLOWCONTROL ( create RS232C.XONXOFF FLAG _ 1 XON.CHAR _ (CHARCODE ^Q) XOFF.CHAR _ (CHARCODE ^S)))) (ADDVARS ( GLOBALVARS \DLTTY.BAUD.RATES \DLTTY.INVERSE.BAUD.RATES \DLTTY.STATE \DLTTY.FLOWCONTROL)) (FNS \DLTTY.BIN \DLTTY.BOUT \DLTTY.GET.PARAMETERS \DLTTY.INIT \DLTTY.READP \DLTTY.SET.PARAMETERS \DLTTY.SHUTDOWN)) (COMS (* Daybreak head) (DECLARE: DONTCOPY (FILES (SOURCE) DOVERS232C) (EXPORT ( RECORDS Dove.TTYFCB) (CONSTANTS * DVTTYBITS))) (INITVARS (\DoveTTY.FCBPointer) (\DVTTY.BAUD.RATES ( QUOTE ((50 . 5000) (75 . 3334) (110 . 2272) (150 . 1667) (300 . 833) (600 . 417) (1200 . 208) (1800 . 138) (2000 . 126) (2400 . 104) (3600 . 69) (4800 . 52) (7200 . 35) (9600 . 26) (19200 . 13)))) ( \DVTTY.INVERSE.BAUD.RATES (QUOTE ((5000 . 50) (3334 . 75) (2272 . 110) (1667 . 150) (833 . 300) (417 . 600) (208 . 1200) (138 . 1800) (126 . 2000) (104 . 2400) (69 . 3600) (52 . 4800) (35 . 7200) (26 . 9600) (13 . 19200))))) (GLOBALVARS \DoveTTY.FCBPointer \DVTTY.INVERSE.BAUD.RATES \DVTTY.BAUD.RATES) ( FNS \DVTTY.BIN \DVTTY.BOUT \DVTTY.INIT \DVTTY.SET.PARAMETERS \DVTTY.READP \DVTTY.GET.PARAMETERS \DVTTY.SHUTDOWN)) (COMS (* Machine independant face; for DLion and DayBreak) (DECLARE: DONTCOPY (FILES (LOADCOMP) DLRS232C)) (INITVARS (\TTY.FDEV) (\TTYFLG) (\TTY.READY)) (ADDVARS (GLOBALVARS \TTY.FDEV \TTYFLG \TTY.READY)) (DECLARE: DONTCOPY (EXPORT (RECORDS TTYSTREAM))) (FNS \TTY.CREATE.FDEV \TTY.EVENTFN \TTY.BIN \TTY.BOUT \TTY.READP \TTY.CLOSEFILE \TTY.OPENFILE)) (COMS (* Machine independant user face) (INITVARS (TTY.DEFAULT.INIT.INFO (create RS232C.INIT BaudRate _ 1200 BitsPerSerialChar _ 8 Parity _ (QUOTE NONE) NoOfStopBits _ 1 FlowControl _ \DLTTY.FLOWCONTROL)) (TTY.ERROR.STREAM PROMPTWINDOW)) (GLOBALVARS TTY.DEFAULT.INIT.INFO TTY.ERROR.STREAM) (FNS TTY.INIT TTY.GET.PARAMETERS TTY.SET.PARAMETERS TTY.RESET.STREAMS TTY.SHUTDOWN)))) (RPAQ? \DLTTY.BAUD.RATES (QUOTE ((50 . 0) (75 . 1) (110 . 2) (134.5 . 3) (150 . 4) (300 . 5) (600 . 6) (1200 . 7) (1800 . 8) (2000 . 9) (2400 . 10) (3600 . 11) (4800 . 12) (7200 . 13) (9600 . 14) (19200 . 15)))) (RPAQ? \DLTTY.INVERSE.BAUD.RATES (QUOTE ((0 . 50) (1 . 75) (2 . 110) (3 . 134.5) (4 . 150) (5 . 300) ( 6 . 600) (7 . 1200) (8 . 1800) (9 . 2000) (10 . 2400) (11 . 3600) (12 . 4800) (13 . 7200) (14 . 9600) (15 . 19200)))) (RECORD RS232C.INIT (BaudRate BitsPerSerialChar Parity NoOfStopBits FlowControl)) (RECORD RS232C.XONXOFF (FLAG XON.CHAR XOFF.CHAR)) (RPAQ? \DLTTY.STATE 0) (RPAQ? \DLTTY.FLOWCONTROL (create RS232C.XONXOFF FLAG _ 1 XON.CHAR _ (CHARCODE ^Q) XOFF.CHAR _ ( CHARCODE ^S))) (ADDTOVAR GLOBALVARS \DLTTY.BAUD.RATES \DLTTY.INVERSE.BAUD.RATES \DLTTY.STATE \DLTTY.FLOWCONTROL) (RPAQ? \DoveTTY.FCBPointer) (RPAQ? \DVTTY.BAUD.RATES (QUOTE ((50 . 5000) (75 . 3334) (110 . 2272) (150 . 1667) (300 . 833) (600 . 417) (1200 . 208) (1800 . 138) (2000 . 126) (2400 . 104) (3600 . 69) (4800 . 52) (7200 . 35) (9600 . 26) (19200 . 13)))) (RPAQ? \DVTTY.INVERSE.BAUD.RATES (QUOTE ((5000 . 50) (3334 . 75) (2272 . 110) (1667 . 150) (833 . 300) (417 . 600) (208 . 1200) (138 . 1800) (126 . 2000) (104 . 2400) (69 . 3600) (52 . 4800) (35 . 7200) ( 26 . 9600) (13 . 19200)))) (RPAQ? \TTY.FDEV) (RPAQ? \TTYFLG) (RPAQ? \TTY.READY) (ADDTOVAR GLOBALVARS \TTY.FDEV \TTYFLG \TTY.READY) (RPAQ? TTY.DEFAULT.INIT.INFO (create RS232C.INIT BaudRate _ 1200 BitsPerSerialChar _ 8 Parity _ (QUOTE NONE) NoOfStopBits _ 1 FlowControl _ \DLTTY.FLOWCONTROL)) (RPAQ? TTY.ERROR.STREAM PROMPTWINDOW) (PUTPROPS DLTTY COPYRIGHT ("Xerox Corporation" 1985)) NIL