(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 8-Dec-86 16:55:32" ("compiled on " {ERIS}LIBRARY>DLRS232C.;49) "30-Nov-86 17:19:54" recompiled changes%: \DVRS232C.OUTPUT.INTERRUPT \DVRS232C.PARSE.STATUS \DVRS232C.ISSUE.SHORT.COMMAND \DVRS232C.INIT \DVRS232C.SET.PARAMETERS \DVRS232C.DEQUEUE.IOCB \DVRS232C.GET.PARAMETER \DLRS232C.GET.PARAMETER \DLRS232C.QUEUE.OUTPUT.IOCB \DLRS232C.RELEASE.IOCB \DLRS232C.SEND.PACKET \RS232C.CREATE.FDEV \RS232C.FORCEOUTPUT \RS232C.GETFILEINFO \RS232C.SETFILEINFO \RS232C.TRACE.PACKET RS232C.SHUTDOWN RS232C.GET.PARAMETERS RS232C.REPORT.STATUS RS232MODEMCONTROL RS232MODEMSTATUSP \RS232C.MSP1 RS232MODIFYMODEMCONTROL in "Xerox Lisp 30-Nov-86 ..." dated "30-Nov-86 17:50:29") (FILECREATED " 8-Dec-86 16:50:09" {ERIS}LIBRARY>DLRS232C.;49 191759 changes to%: (VARS DLRS232CCOMS) (FNS \DVRS232C.OUTPUT.INTERRUPT \DLRS232C.SEND.PACKET \DVRS232C.PARSE.STATUS \RS232C.FORCEOUTPUT \DVRS232C.DEQUEUE.IOCB \DLRS232C.RELEASE.IOCB \DVRS232C.SET.PARAMETERS \DVRS232C.GET.PARAMETER \DLRS232C.GET.PARAMETER \RS232C.SETFILEINFO RS232MODEMSTATUSP \RS232C.MSP1 RS232C.SHUTDOWN \RS232C.TRACE.PACKET RS232C.REPORT.STATUS RS232MODEMCONTROL RS232MODIFYMODEMCONTROL \RS232C.CREATE.FDEV \RS232C.GETFILEINFO RS232C.GET.PARAMETERS \DLRS232C.QUEUE.OUTPUT.IOCB \DVRS232C.ISSUE.SHORT.COMMAND \DVRS232C.INIT) previous date%: " 3-Dec-86 03:22:51" {ERIS}LIBRARY>DLRS232C.;47) \DVRS232C.OUTPUT.INTERRUPT D1 (P 3 EVENT P 2 IOCB P 1 ACCEPTSTATUS P 0 PACKET I 0 NDB) y@1Hde Zd^djU@ J`l- J YHHjjdh H`n H J[K Jg Ih(115 \DLRS232C.RELEASE.IOCB 107 NOTIFY.EVENT 95 \REQUEUE.ETHERPACKET 91 \TEMPUNLOCKPAGES 57 \DVRS232C.PARSE.STATUS 53 \DVRS232C.DEQUEUE.IOCB 43 \DEQUEUE) (112 OUTPUT 102 EVENT 82 \DLRS232C.DEFAULT.PACKET.LENGTH 66 ETHERPACKET 62 ETHERPACKET 47 \DoveRS232C.FCBPointer 38 NDB 20 ETHERPACKET 8 SYSQUEUE 3 NDB) () \DVRS232C.INPUT.INTERRUPT D1 (P 3 LENGTH P 2 ACCEPTSTATUS P 1 IOCB P 0 PACKET I 0 NDB) @ !HH YJj@ I I`l3 I9HKH@ KnHnj``H H`n `X`n HI IHl` @ H j(173 \ENQUEUE 162 \DLRS232C.QUEUE.INPUT.IOCB 142 \TEMPLOCKPAGES 129 \ALLOCATE.ETHERPACKET 120 \TEMPUNLOCKPAGES 106 \ENQUEUE 58 \DVRS232C.DEQUEUE.IOCB 47 \DVRS232C.PARSE.STATUS 42 \DEQUEUE) (167 NDB 159 \DLRS232C.DEFAULT.PACKET.LENGTH 147 ETHERPACKET 133 \DLRS232C.DEFAULT.PACKET.LENGTH 124 \RS232FLG 111 \DLRS232C.DEFAULT.PACKET.LENGTH 102 \DLRS232C.RAW.PACKET.QUEUE 98 \RS232FLG 76 ETHERPACKET 52 \DoveRS232C.FCBPointer 37 NDB 19 ETHERPACKET 8 SYSQUEUE 3 NDB) () \DVRS232C.PARSE.STATUS D1 (P 2 STATUS P 0 rsIOCBType I 0 IOCB) V@ !@djgdlgdlggZdi&dg`i#`dgHk`gHj` o` Jdg~odlHjigkHki@lй` `jgqId jgb0jgVIj` jg?Ijg2i.go?Jdgo1go&JdgogoJdgo` ` J(338 TERPRI 331 PRIN1 120 PRIN1 109 TERPRI) (335 RS232C.ERROR.STREAM 328 RS232C.ERROR.STREAM 318 checksumError 306 asynchFramingError 294 ParityError 281 DataLost 269 FrameTimeout 256 Disaster 246 checksumError 233 asynchFramingError 224 \DoveRS232C.DCBPointer 210 ParityError 198 DataLost 183 DataLost 174 \DoveRS232C.DCBPointer 153 FrameTimeout 126 Aborted 117 RS232C.ERROR.STREAM 106 RS232C.ERROR.STREAM 91 INPUT 88 \RS232C.REPORT.STATUS 77 OUTPUT 73 \RS232C.REPORT.STATUS 66 \RS232C.REPORT.STATUS 52 Aborted 40 Disaster 29 Aborted 18 PollRxOrTx) ( 325 "checksum error" 312 "transmission frame out of sync" 301 "parity error" 287 "data lost" 276 "transmission timeout" 262 "Error during transmission, data lost" 134 "Operation aborted" 114 "RS232 error: ") \DVRS232C.ISSUE.SHORT.COMMANDA0001 D1 (NAME ERRORSET F 0 rsWorkListImage F 1 rsCommandWorkListImage F 2 COMMAND F 3 RESETY) q`hi `9nj`9c`9cRdlQncdlQn@cdl`lk0Pncdl`lj0PncdlQncdkK`ljp`lj `lj@`lj`ljPnc`j JjG`lkp`lk `lk@`lk`l`k PncPnj`P9`Qn9`:9`9njci(363 \DVRS232C.GATHER.STATUS 344 BLOCK 25 BLOCK 7 OBTAIN.MONITORLOCK) (348 \DoveRS232C.DCBPointer 336 \DoveRS232C.FCBPointer 323 \DoveRS232C.DCBPointer 314 \DoveRS232C.DCBPointer 290 \DoveRS232C.DCBPointer 281 \DoveRS232C.DCBPointer 270 \DoveRS232C.DCBPointer 259 \DoveRS232C.DCBPointer 248 \DoveRS232C.DCBPointer 237 \DoveRS232C.DCBPointer 224 \DoveRS232C.DCBPointer 205 \DoveRS232C.DCBPointer 194 \DoveRS232C.DCBPointer 183 \DoveRS232C.DCBPointer 172 \DoveRS232C.DCBPointer 161 \DoveRS232C.DCBPointer 118 \DoveRS232C.DCBPointer 90 \DoveRS232C.DCBPointer 40 \DoveRS232C.DCBPointer 30 \DoveRS232C.DCBPointer 11 \DoveRS232C.DCBPointer 2 \DLRS232C.COMMAND.LOCK) () \DVRS232C.ISSUE.SHORT.COMMAND D1 (P 4 RESETZ P 3 RESETY P 2 LISPXHIST P 1 rsWorkListImage P 0 rsCommandWorkListImage I 0 COMMAND F 5 LISPXHIST F 6 RESETVARSLST) % U!Vog hg\ LK(32 ERROR! 27 RESETRESTORE 17 \DVRS232C.ISSUE.SHORT.COMMANDA0001) (23 ERROR 14 INTERNAL) ( 11 (\DVRS232C.ISSUE.SHORT.COMMANDA0001)) \DVRS232C.GATHER.STATUS D1 NIL r`l 1`lй`jHdpjKlH`jKl@HPjKlIdjKlIjKl JdjKlJjKkKNIL (18 \DoveRS232C.DCBPointer 11 \DoveRS232C.DCBPointer 2 \DoveRS232C.DCBPointer) () \DVRS232C.INIT D1 (I 4 FlowControl I 3 NoOfStopBits I 2 Parity I 1 BitsPerSerialChar I 0 BaudRate) l dl;oooooooogCgBgAg@gDh j @ @ABCDh id(122 \RS232C.CREATE.FDEV 102 \RS232C.PACKET.TIMEOUT 98 \DVRS232C.ISSUE.SHORT.COMMAND 94 \DVRS232C.SET.PARAMETERS 20 \DLRS232C.CREATE.NDB 17 \DVRS232C.SHUTDOWN 4 \DoveIO.GetHandlerIORegionPtr) (130 \RS232FLG 126 \RS232C.READY 119 RS232C.DEFAULT.INIT.INFO 105 \DLRS232C.OUTPUT.TIMEOUT 75 FlowControl 70 BaudRate 65 BitsPerSerialChar 60 Parity 55 NoOfStopBits 14 \DoveRS232C.DCBPointer 7 \DoveRS232C.FCBPointer) ( 52 (LINE.TYPE . 3) 48 (DATA.TERMINAL.READY . T) 44 (REQUEST.TO.SEND . T) 40 (RESET.DATA.LOST . T) 36 (RESET.BREAK.DETECTED . T) 32 (RESET.RING.HEARD . T) 28 (CORRESPONDENT . 4) 24 (FRAME.TIMEOUT . 5)) \DVRS232C.SET.PARAMETERS D1 (P 19 WR7Base P 18 WR5Base P 17 WR4Base P 16 WR3Base P 15 WR1Base P 14 NV P 8 VAL P 7 PROP P 6 COMMANDWORK P 5 MAJORFLG P 4 NOTFOUND P 3 PROP.VAL P 2 rsCommandWorkListImage P 1 rsWorkListImage I 0 PARAMETERLIST) @d`9`9 HNG`J9i]:[_K_Odg"O`9`Ol j9g`Ollj OdggOdgR`O`OdkkllO iIn`Odkkllj |gOdg`OO`jg%`jhjg`jhkg+iInOg`lj`lk`OdgkgjO gOdg9`OOl_`iIn`O`OgOdgJO` O`OO O_f`9iIl`O9gOdgri`OOOo Ko_C`O_j4O)n `Oj9 `Oj9  j`j g`l`l`l`l`lOdl?`j O jO j0O j@O jPO"kO$jpIni]jo oO EOdg`l jP.g`l jpOdg`l j`gOdg5iIn`lOkj_`OjJnZJoZgOdg5iIn`lOkj_OjJnZJoZg{Osddg3iIn`lOkj_`OjJn亰AJo庰8g0iIn`lOkj_OjJn争Jo庁ii\HXM,In`I9`:9`9njLh(1152 BLOCK 791 ERROR 781 HELP 647 \FZEROP 577 STRING.EQUAL 492 \RS232C.PACKET.TIMEOUT 472 SASSOC 374 \ILLEGAL.ARG 221 \ILLEGAL.ARG 185 \ILLEGAL.ARG) (1156 \DoveRS232C.DCBPointer 1144 \DoveRS232C.FCBPointer 1135 \DoveRS232C.DCBPointer 1072 \DoveRS232C.DCBPointer 1058 DTR 1018 \DoveRS232C.DCBPointer 1003 RTS 990 ModemControl 948 \DoveRS232C.DCBPointer 933 DTR 925 DATA.TERMINAL.READY 883 \DoveRS232C.DCBPointer 868 RTS 860 REQUEST.TO.SEND 847 \DoveRS232C.DCBPointer 841 RESET.DATA.LOST 825 \DoveRS232C.DCBPointer 820 RESET.BREAK.DETECTED 807 \DoveRS232C.DCBPointer 801 RESET.RING.HEARD 714 \DoveRS232C.DCBPointer 696 \DoveRS232C.DCBPointer 690 \DoveRS232C.DCBPointer 684 \DoveRS232C.DCBPointer 678 \DoveRS232C.DCBPointer 672 \DoveRS232C.DCBPointer 664 LINE.TYPE 655 \DoveRS232C.DCBPointer 629 \DoveRS232C.DCBPointer 614 \DoveRS232C.DCBPointer 590 \DoveRS232C.DCBPointer 555 RS232C.DEFAULT.INIT.INFO 546 FlowControl 538 FLOW.CONTROL 526 \DoveRS232C.DCBPointer 509 \DoveRS232C.DCBPointer 495 \DLRS232C.OUTPUT.TIMEOUT 483 RS232C.DEFAULT.INIT.INFO 469 \DVRS232C.BAUD.RATES 460 BaudRate 452 LINE.SPEED 441 \DoveRS232C.DCBPointer 432 \DoveRS232C.DCBPointer 413 \DoveRS232C.DCBPointer 398 RS232C.DEFAULT.INIT.INFO 391 BitsPerSerialChar 383 CHAR.LENGTH 365 ODD 357 EVEN 351 \DoveRS232C.DCBPointer 340 \DoveRS232C.DCBPointer 327 \DoveRS232C.DCBPointer 322 NONE 304 EVEN 290 \DoveRS232C.DCBPointer 285 ODD 272 \DoveRS232C.DCBPointer 267 NONE 258 \DoveRS232C.DCBPointer 247 RS232C.DEFAULT.INIT.INFO 238 Parity 230 PARITY 201 \DoveRS232C.DCBPointer 161 \DoveRS232C.DCBPointer 151 RS232C.DEFAULT.INIT.INFO 144 NoOfStopBits 136 STOP.BITS 128 SYNCH.CHAR 106 \DoveRS232C.DCBPointer 100 CORRESPONDENT 83 \DoveRS232C.DCBPointer 71 \DoveRS232C.DCBPointer 62 FRAME.TIMEOUT 34 \DoveRS232C.DCBPointer 15 \DoveRS232C.DCBPointer 8 \DoveRS232C.DCBPointer) ( 1104 -513 1051 -1025 982 -513 917 -1025 786 "Illegal line type" 778 "Bit synchronous RS232 not implemented yet" 583 (1 17 19) 574 "xonxoff") \DVRS232C.DEQUEUE.IOCB D1 (I 1 QUEUEBASE I 0 IOCB) 8@A (A@ll@Al Al@llĿ@l o@ (53 ERROR 44 \DoveIO.MakeOpieAddress 23 \DoveIO.PointerFromOpieAddress 4 \DoveIO.PointerFromOpieAddress) NIL ( 49 "IOCB is not at the head of the queue") \DVRS232C.ABORT.QUEUE D1 (P 0 AbortPtr I 0 QueueBase) @ HdlHl X(23 \DoveIO.PointerFromOpieAddress 3 \DoveIO.PointerFromOpieAddress) NIL () \DVRS232C.SHUTDOWN D1 (P 0 PACKET) `jh` `l3 l `l- l k `l-l `l3l ` X` Xd`n H `n H (149 \RELEASE.ETHERPACKET 144 \TEMPUNLOCKPAGES 129 \RELEASE.ETHERPACKET 124 \TEMPUNLOCKPAGES 107 \DEQUEUE 93 \DEQUEUE 82 \CLEARWORDS 71 \CLEARWORDS 60 \RS232C.ISSUE.SHORT.COMMAND 56 \RS232C.ISSUE.SHORT.COMMAND 51 \DVRS232C.ABORT.QUEUE 42 \RS232C.ISSUE.SHORT.COMMAND 37 \DVRS232C.ABORT.QUEUE 28 BLOCK 25 DEL.PROCESS) (135 \DLRS232C.DEFAULT.PACKET.LENGTH 115 \DLRS232C.DEFAULT.PACKET.LENGTH 102 NDB 99 \DLRS232C.LOCAL.NDB 88 NDB 85 \DLRS232C.LOCAL.NDB 74 \DoveRS232C.FCBPointer 63 \DoveRS232C.FCBPointer 45 \DoveRS232C.FCBPointer 31 \DoveRS232C.FCBPointer 20 NDB 17 \DLRS232C.LOCAL.NDB 14 \RS232C.READY 11 \RS232FLG 5 \DLRS232C.LOCAL.NDB) () \DVRS232C.GET.PARAMETER D1 (I 0 PROP) @g `9@g @g !`dkkdlollj@g @g )`j`dkgjggg@g @g `l@g @g "`9`YhdH:I@g @g ` 9` 9` 9h@g @g ` Pjh@g @g ` pjh@g @g ` `jh@g @g ``jh@g @g `jh@g @g l l jh@g @g l ljh@g @g l kjh@g @g l ljh(480 \RS232C.ISSUE.SHORT.COMMAND 473 STRING.EQUAL 465 STRING.EQUAL 451 \RS232C.ISSUE.SHORT.COMMAND 445 STRING.EQUAL 437 STRING.EQUAL 422 \RS232C.ISSUE.SHORT.COMMAND 416 STRING.EQUAL 408 STRING.EQUAL 393 \RS232C.ISSUE.SHORT.COMMAND 387 STRING.EQUAL 379 STRING.EQUAL 360 STRING.EQUAL 352 STRING.EQUAL 333 STRING.EQUAL 325 STRING.EQUAL 306 STRING.EQUAL 298 STRING.EQUAL 279 STRING.EQUAL 271 STRING.EQUAL 252 STRING.EQUAL 244 STRING.EQUAL 209 STRING.EQUAL 201 STRING.EQUAL 160 STRING.EQUAL 152 STRING.EQUAL 134 STRING.EQUAL 126 STRING.EQUAL 78 STRING.EQUAL 70 STRING.EQUAL 30 STRING.EQUAL 22 STRING.EQUAL 6 STRING.EQUAL) (470 CARRIER.DETECT 462 RLSD 442 RING.INDICATOR 434 RI 413 DATA.SET.READY 405 DSR 384 CLEAR.TO.SEND 376 CTS 364 \DoveRS232C.DCBPointer 357 DTR 349 DATA.TERMINAL.READY 337 \DoveRS232C.DCBPointer 330 RTS 322 REQUEST.TO.SEND 310 \DoveRS232C.DCBPointer 303 RESET.DATA.LOST 295 DATA.LOST 283 \DoveRS232C.DCBPointer 276 RESET.BREAK.DETECTED 268 BREAK.DETECTED 256 \DoveRS232C.DCBPointer 249 RESET.RING.HEARD 241 RING.HEARD 228 \DoveRS232C.DCBPointer 221 \DoveRS232C.DCBPointer 214 \DoveRS232C.DCBPointer 206 FlowControl 198 FLOW.CONTROL 175 \DVRS232C.BAUD.RATES 165 \DoveRS232C.DCBPointer 157 BaudRate 149 LINE.SPEED 138 \DoveRS232C.DCBPointer 131 BitsPerSerialChar 123 CHAR.LENGTH 118 NONE 114 UNKNOWN 110 ODD 103 EVEN 93 \DoveRS232C.DCBPointer 83 \DoveRS232C.DCBPointer 75 Parity 67 PARITY 35 \DoveRS232C.DCBPointer 27 NoOfStopBits 19 STOP.BITS 10 \DoveRS232C.DCBPointer 3 FRAME.TIMEOUT) ( 53 1.5) \DLRS232C.ABORT.OUTPUT D1 (P 2 PACKET P 1 NDBTQ P 0 IOCB) T``hI Zdl  J g Jh J`k J (79 \RELEASE.ETHERPACKET 74 \TEMPUNLOCKPAGES 55 \DLRS232C.RELEASE.IOCB 35 \RS232C.ISSUE.SHORT.COMMAND 21 \DEQUEUE) (68 \DLRS232C.DEFAULT.PACKET.LENGTH 60 ETHERPACKET 52 OUTPUT 47 ETHERPACKET 39 ETHERPACKET 30 \DLRS232C.PUT.QUEUE.END 27 \DLRS232C.PUT.QUEUE.START 17 \DLRS232C.ACTIVE.PUT 8 NDB 5 \DLRS232C.LOCAL.NDB 2 \DLRS232C.ACTIVE.PUT) () \DLRS232C.ALLOCATE.IOCBS D1 (P 0 IOCB.SIZE) `dll ll ``mi n nH``k`k\JKdH[Lk԰Kh``dII`ll`(51 \CLEARWORDS 39 \DONEWEPHEMERALPAGE 21 \NOMACHINETYPE) (140 \DLRS232C.IOCB.TOTAL 137 \DLRS232C.INPUT.IOCB.ALLOC 134 \DLRS232C.INPUT.IOCB.TOTAL 131 \DLRS232C.OUTPUT.IOCB.ALLOC 128 \DLRS232C.OUTPUT.IOCB.TOTAL 119 \DLRS232C.IOCB.TOTAL 116 \DLRS232C.IDEAL.INPUT.LENGTH 105 \DLRS232C.IOCB.TOTAL 102 \DLRS232C.MAX.INPUT.LENGTH 73 \DLRS232C.IOCB.PAGE 68 \DLRS232C.IOCB.TOTAL 65 \DLRS232C.IOCB.FREELIST 62 \DLRS232C.IOCB.PAGE 59 \DLRS232C.IOCB.TOTAL 45 \DLRS232C.IOCB.ENDPAGE 42 \DLRS232C.IOCB.PAGE 32 \IOPAGE 27 \DLRS232C.IOCB.PAGE 2 \MACHINETYPE) () \DLRS232C.CREATE.NDB D1 NIL -`dgdgdgdgdh (39 \DLRS232C.START.DRIVER) (42 \DLRS232C.LOCAL.NDB 28 \DLRS232C.SHUTDOWN 21 NILL 14 NILL 7 \DLRS232C.SEND.PACKET 2 |NDBTYPE#|) () \DLRS232C.PARSE.STATUS D1 (P 2 ERROR P 0 IOPSTATUS I 1 DIRECTION I 0 STATUS) l @3#` o` Adgeoljo` o` Adgogoo` `I.@JjJ` IYgoo` Hl@johHljoh (190 \DLRS232C.SET.PARAMETERS 187 \APPEND2 157 PRIN1 131 PRIN1 100 PRIN1 66 PRIN1 55 TERPRI 29 PRIN1 18 TERPRI 4 \RS232C.ISSUE.SHORT.COMMAND) (154 RS232C.ERROR.STREAM 140 OUT 128 RS232C.ERROR.STREAM 104 \DLRS232C.IOCB.STATUS.CODES 97 RS232C.ERROR.STREAM 83 OUT 72 IN 63 RS232C.ERROR.STREAM 52 RS232C.ERROR.STREAM 35 IN 26 RS232C.ERROR.STREAM 15 RS232C.ERROR.STREAM) ( 182 ((RESET.BREAK.DETECTED . T)) 169 ((RESET.DATA.LOST . T)) 151 "???" 146 "output" 94 "???: " 89 "output: " 79 "input: " 60 "RS232 Error(s) on " 43 "input" 23 "Unknown RS232 error on ") \DLRS232C.GET.PARAMETER D1 (P 0 CSB I 0 PROP) `lp@g H@g H@g H@g @g HPk@g @g "Hdjgdkglgg@g @g Hl@g H@g @g H4` @g @g HHHh@g Hjh@g Hjh@g H jh@g @g H0jh@g @g H@jh@g @g l l jh@g @g l ljh@g @g l kjh@g @g l ljh(422 \RS232C.ISSUE.SHORT.COMMAND 415 STRING.EQUAL 407 STRING.EQUAL 393 \RS232C.ISSUE.SHORT.COMMAND 387 STRING.EQUAL 379 STRING.EQUAL 364 \RS232C.ISSUE.SHORT.COMMAND 358 STRING.EQUAL 350 STRING.EQUAL 335 \RS232C.ISSUE.SHORT.COMMAND 329 STRING.EQUAL 321 STRING.EQUAL 304 STRING.EQUAL 296 STRING.EQUAL 279 STRING.EQUAL 271 STRING.EQUAL 254 STRING.EQUAL 237 STRING.EQUAL 220 STRING.EQUAL 198 STRING.EQUAL 190 STRING.EQUAL 181 SASSOC 170 STRING.EQUAL 162 STRING.EQUAL 149 STRING.EQUAL 133 STRING.EQUAL 125 STRING.EQUAL 84 STRING.EQUAL 76 STRING.EQUAL 61 STRING.EQUAL 53 STRING.EQUAL 40 STRING.EQUAL 27 STRING.EQUAL 15 STRING.EQUAL) (412 CARRIER.DETECT 404 RLSD 384 RING.INDICATOR 376 RI 355 DATA.SET.READY 347 DSR 326 CLEAR.TO.SEND 318 CTS 301 DTR 293 DATA.TERMINAL.READY 276 RTS 268 REQUEST.TO.SEND 251 RESET.DATA.LOST 234 RESET.BREAK.DETECTED 217 RESET.RING.HEARD 195 FlowControl 187 FLOW.CONTROL 178 \DLRS232C.INVERSE.BAUD.RATES 167 BaudRate 159 LINE.SPEED 146 SYNCH.COUNT 130 BitsPerSerialChar 122 CHAR.LENGTH 117 UNKNOWN 113 EVEN 105 ODD 97 NONE 81 Parity 73 PARITY 58 NoOfStopBits 50 STOP.BITS 37 SYNCH.CHAR 24 CORRESPONDENT 12 FRAME.TIMEOUT 2 \IOPAGE) () \DLRS232C.SET.PARAMETERS D1 (P 5 VAL P 4 PROP P 3 MAJORFLG P 2 PROP.VAL P 1 CSB I 0 PARAMETERLIST F 8 \DLRS232C.OUTPUT.TIMEOUT) l@dg`lpbH KElBZJLdgMI!iIMgMIiIMLdgMIiIMgLdg#`MMk]IPiIMPgLdg2`MMdgkglj]IiIMugLdg"`MMl]ISiIMHgMI9iIMұ.LgLdg1`MM cM` ]MI4iIM4gLdgCi`MMdgo]IMIMjIMjIjg5M-d^gNdgIk@gNgIk0k԰jLdgIMkjVgIMkjFLdgIMkj 3gLdgIMkj0gLgIMkj_@OHXl `6jh(606 \DLRS232C.ISSUE.SHORT.COMMAND 330 SASSOC 320 \RS232C.PACKET.TIMEOUT) (610 \IOPAGE 578 DTR 572 DATA.TERMINAL.READY 555 RTS 548 REQUEST.TO.SEND 531 RESET.DATA.LOST 513 RESET.BREAK.DETECTED 496 RESET.RING.HEARD 475 REQUEST.TO.SEND 469 RTS 456 DATA.TERMINAL.READY 449 DTR 437 ModemControl 387 XOnXOff 375 RS232C.DEFAULT.INIT.INFO 366 FlowControl 359 FLOW.CONTROL 327 \DLRS232C.BAUD.RATES 313 RS232C.DEFAULT.INIT.INFO 306 BaudRate 299 LINE.SPEED 272 SYNCH.COUNT 241 RS232C.DEFAULT.INIT.INFO 234 BitsPerSerialChar 227 CHAR.LENGTH 198 EVEN 190 ODD 180 RS232C.DEFAULT.INIT.INFO 173 Parity 166 PARITY 134 RS232C.DEFAULT.INIT.INFO 127 NoOfStopBits 120 STOP.BITS 93 SYNCH.CHAR 65 CORRESPONDENT 40 FRAME.TIMEOUT 8 \IOPAGE) ( 394 (1 17 19)) \DLRS232C.SHUTDOWN D1 (P 1 DEVINFO P 0 PACKET) P`hl l k ` ` X1` X7`l{`l`ljjd-k+`n H `n H jZJjh`h4`h[3K`L2`L1h(141 \RELEASE.ETHERPACKET 136 \TEMPUNLOCKPAGES 121 \RELEASE.ETHERPACKET 116 \TEMPUNLOCKPAGES 68 \DEQUEUE 54 \DEQUEUE 43 DEL.PROCESS 32 \RS232C.ISSUE.SHORT.COMMAND 28 \RS232C.ISSUE.SHORT.COMMAND 23 \RS232C.ISSUE.SHORT.COMMAND) (200 \DLRS232C.ACTIVE.GET 197 \DLRS232C.ACTIVE.PUT 194 \DLRS232C.LOCAL.NDB 185 \IOPAGE 177 \IOPAGE 166 \IOPAGE 158 \IOPAGE 127 \DLRS232C.DEFAULT.PACKET.LENGTH 107 \DLRS232C.DEFAULT.PACKET.LENGTH 88 \IOPAGE 82 \IOPAGE 74 \MACHINETYPE 63 NDB 60 \DLRS232C.LOCAL.NDB 49 NDB 46 \DLRS232C.LOCAL.NDB 38 NDB 35 \DLRS232C.LOCAL.NDB 18 \RS232C.READY 15 \RS232FLG 5 \DLRS232C.LOCAL.NDB) () \DLRS232C.FINISH.GET.AND.PUT D1 (P 0 EVENT I 0 IOCB) 3@kkjh`@h`@h@XH (48 NOTIFY.EVENT) (42 EVENT 34 \DLRS232C.ACTIVE.PUT 27 \DLRS232C.ACTIVE.PUT 23 \DLRS232C.ACTIVE.GET 16 \DLRS232C.ACTIVE.GET) () \DLRS232C.GET.IOCB D1 (P 0 IOCB I 0 USE) h`X@dg`g`@ j;@g`m`m`XHh`lHl H` (99 AWAIT.EVENT 91 \CLEARWORDS 32 \ILLEGAL.ARG) (96 \DLRS232C.IOCB.FREELIST.EVENT 81 \MACHINETYPE 72 \DLRS232C.IOCB.FREELIST 66 \DLRS232C.IOCB.FREELIST 62 \DLRS232C.OUTPUT.IOCB.ALLOC 56 \DLRS232C.OUTPUT.IOCB.ALLOC 51 \DLRS232C.INPUT.IOCB.ALLOC 45 \DLRS232C.INPUT.IOCB.ALLOC 40 INPUT 27 \DLRS232C.OUTPUT.IOCB.ALLOC 22 OUTPUT 18 \DLRS232C.INPUT.IOCB.ALLOC 12 INPUT 5 \DLRS232C.IOCB.FREELIST) () \DLRS232C.INIT D1 (I 4 FlowControl I 3 NoOfStopBits I 2 Parity I 1 BitsPerSerialChar I 0 BaudRate F 0 \DLRS232C.OUTPUT.TIMEOUT) eDgob`djFj 3`lpdl`l`j`kkjh`kkjh`k kjh`k0kjh`k@kjh`CdkjlkoC P`la`Bdgkglj`Al`j`@`  o@ 4@ c`jD#`D`Dj`Dj`jl `6j@ABCDh ido o o (354 HELP 346 HELP 338 HELP 322 \RS232C.CREATE.FDEV 305 \DLRS232C.CREATE.NDB 292 \DLRS232C.ISSUE.SHORT.COMMAND 235 \RS232C.PACKET.TIMEOUT 228 ERROR 217 SASSOC 154 ERROR 31 \RS232C.ISSUE.SHORT.COMMAND 27 \DLRS232C.SHUTDOWN) (330 \RS232FLG 326 \RS232C.READY 319 RS232C.DEFAULT.INIT.INFO 295 \IOPAGE 283 \DLRS232C.PARAMETER.CSB 270 \DLRS232C.PARAMETER.CSB 258 \DLRS232C.PARAMETER.CSB 250 \DLRS232C.PARAMETER.CSB 240 \DLRS232C.PARAMETER.CSB 214 \DLRS232C.BAUD.RATES 210 \DLRS232C.PARAMETER.CSB 203 \DLRS232C.PARAMETER.CSB 193 \DLRS232C.PARAMETER.CSB 181 EVEN 173 ODD 168 \DLRS232C.PARAMETER.CSB 160 \DLRS232C.PARAMETER.CSB 132 \DLRS232C.PARAMETER.CSB 119 \DLRS232C.PARAMETER.CSB 106 \DLRS232C.PARAMETER.CSB 93 \DLRS232C.PARAMETER.CSB 80 \DLRS232C.PARAMETER.CSB 67 \DLRS232C.PARAMETER.CSB 60 \DLRS232C.PARAMETER.CSB 52 \DLRS232C.PARAMETER.CSB 44 \DLRS232C.PARAMETER.CSB 38 \IOPAGE 15 \IOPAGE 3 XOnXoff) ( 351 "There is no RS232C hardware in your machine!" 343 "Unable to activate RS232C interface" 335 "Error setting parameters for RS232C" 224 "ILLEGAL BAUD RATE" 150 "ILLEGAL NUMBER OF STOP BITS (MUST BE 1 OR 2)" 9 (1 17 19)) \DLRS232C.INPUT.INTERRUPT D1 (P 4 LENGTH P 3 ACCEPTSTATUS P 2 NEXTIOCB P 1 IOCB P 0 PACKET I 0 NDB) @ 1H``jH Y`I@ IZhIjhIIHLH@ `lLnHnj`H I JaH`n X`n HI IHl` @ H Kddi`i`gKg K (249 \DLRS232C.START.INPUT 244 \DLRS232C.PARSE.STATUS 212 \ENQUEUE 201 \DLRS232C.QUEUE.INPUT.IOCB 181 \TEMPLOCKPAGES 168 \ALLOCATE.ETHERPACKET 164 \TEMPUNLOCKPAGES 147 \DLRS232C.FINISH.GET.AND.PUT 142 \ENQUEUE 66 \DEQUEUE) (241 IN 235 INPUT 232 \RS232C.REPORT.STATUS 226 \RS232C.REPORT.STATUS 206 NDB 198 \DLRS232C.DEFAULT.PACKET.LENGTH 186 ETHERPACKET 172 \DLRS232C.DEFAULT.PACKET.LENGTH 155 \DLRS232C.DEFAULT.PACKET.LENGTH 138 \DLRS232C.RAW.PACKET.QUEUE 116 \MACHINETYPE 109 ETHERPACKET 79 \DLRS232C.GET.QUEUE.END 74 \DLRS232C.GET.QUEUE.START 61 NDB 51 \DLRS232C.ACTIVE.GET 41 ETHERPACKET 28 \IOPAGE 21 \DLRS232C.ACTIVE.GET 8 SYSQUEUE 3 NDB) () \DLRS232C.ISSUE.SHORT.COMMAND D1 (P 1 UNLOCK P 0 \INTERRUPTABLE I 0 COMMAND) N` `j`@ÿ`lkk`j`5IiI (74 RELEASE.MONITORLOCK 59 BLOCK 23 BLOCK 8 OBTAIN.MONITORLOCK) (64 \IOPAGE 50 \IOPAGE 37 \IOPAGE 29 \IOPAGE 14 \IOPAGE 5 \DLRS232C.COMMAND.LOCK) () \DLRS232C.LOADINPUTQ D1 (P 0 CNT I 1 PACKETS I 0 NDB) 7jAH`n A Al` AbHkԸ(37 \DLRS232C.QUEUE.INPUT.IOCB 20 \TEMPLOCKPAGES) (42 ETHERPACKET 34 \DLRS232C.DEFAULT.PACKET.LENGTH 25 ETHERPACKET 11 \DLRS232C.DEFAULT.PACKET.LENGTH) () \DLRS232C.OUTPUT.INTERRUPT D1 (P 4 CLOCK P 3 NEXTIOCB P 2 IOCB P 1 STATUS P 0 PACKET I 0 NDB) @1Hd Z``jd`d[dhJ Kf@ HHjjdh H`n H JjhJYJg Iddi`i`gIg I J`PHl `>l ` o` lL HlL `lkkjh(252 \PUTBASEFIXP 241 \CLOCK0 231 PRIN1 220 TERPRI 214 \RS232C.ISSUE.SHORT.COMMAND 203 CLOCKDIFFERENCE 200 \GETBASEFIXP 181 \DLRS232C.START.OUTPUT 176 \DLRS232C.PARSE.STATUS 145 \DLRS232C.RELEASE.IOCB 124 \REQUEUE.ETHERPACKET 120 \TEMPUNLOCKPAGES 87 \DEQUEUE 75 \DLRS232C.FINISH.GET.AND.PUT) (256 \IOPAGE 246 ETHERPACKET 228 RS232C.ERROR.STREAM 217 RS232C.ERROR.STREAM 206 \DLRS232C.OUTPUT.TIMEOUT 195 ETHERPACKET 188 \DLRS232C.ACTIVE.PUT 173 OUT 167 OUTPUT 164 \RS232C.REPORT.STATUS 158 \RS232C.REPORT.STATUS 142 OUTPUT 111 \DLRS232C.DEFAULT.PACKET.LENGTH 95 ETHERPACKET 91 ETHERPACKET 82 NDB 70 \DLRS232C.PUT.QUEUE.END 65 \DLRS232C.PUT.QUEUE.START 50 \DLRS232C.ACTIVE.PUT 35 \IOPAGE 28 \DLRS232C.ACTIVE.PUT 22 ETHERPACKET 8 SYSQUEUE 3 NDB) ( 225 "Output request was stuck!") \DLRS232C.QUEUE.INPUT.IOCB D1 (P 2 DoveIO.OpieAddressBox P 1 rxQueueChA P 0 \INTERRUPTABLE I 2 LENGTH I 1 BUFFER I 0 IOCB) `dlV@jjdh@jjdh@A@A@j@j@B@h``@@@`d hl@j @B9 @lA @l @j@j `l3I IIl l@ `Ll J@ jJ Il`kl9`9J Il`l9JIl@ h(255 \NOMACHINETYPE 244 \DoveIO.MakeOpieAddress 216 \HINUM 190 \LONUM 184 \DoveIO.MakeOpieAddress 176 \CREATECELL 165 \DoveIO.MakeOpieAddress 158 \DoveIO.PointerFromOpieAddress 148 \DoveIO.PointerFromOpieAddress 125 \DoveIO.MakeOpieAddress 118 \DoveIO.MakeOpieAddress 89 \DLRS232C.START.INPUT) (249 \DoveIO.OpieAddressBox.GLOBALRESOURCE 235 \DoveIO.OpieAddressBox.GLOBALRESOURCE 224 \DoveIORegion 210 \DoveRS232C.FCBPointer 198 \DoveIORegion 169 \DoveIO.OpieAddressBox.GLOBALRESOURCE 138 \DoveRS232C.FCBPointer 84 \DLRS232C.ACTIVE.GET 81 \DLRS232C.GET.QUEUE.END 76 \DLRS232C.GET.QUEUE.START 68 \DLRS232C.GET.QUEUE.END 64 \DLRS232C.GET.QUEUE.START 2 \MACHINETYPE) () \DLRS232C.QUEUE.OUTPUT.IOCBA0005 D1 (NAME ERRORSET P 0 \INTERRUPTABLE F 1 IOCB F 2 RESETY) 1`hi ``QQQ`Q hci(40 \DLRS232C.START.OUTPUT 7 OBTAIN.MONITORLOCK) (35 \DLRS232C.ACTIVE.PUT 31 \DLRS232C.PUT.QUEUE.END 26 \DLRS232C.PUT.QUEUE.START 18 \DLRS232C.PUT.QUEUE.END 14 \DLRS232C.PUT.QUEUE.START 2 \DLRS232C.OUTPUT.LOCK) () \DLRS232C.QUEUE.OUTPUT.IOCBA0006 D1 (NAME ERRORSET P 2 DoveIO.OpieAddressBox P 1 txQueueChA P 0 \INTERRUPTABLE F 3 IOCB F 4 RESETY) `hi  `l-Y IIl lS `il JS jJ Il`kl9`9J Il`l9JIlS `d9n 9`:9cih(117 \DoveIO.MakeOpieAddress 89 \HINUM 63 \LONUM 57 \DoveIO.MakeOpieAddress 49 \CREATECELL 38 \DoveIO.MakeOpieAddress 31 \DoveIO.PointerFromOpieAddress 21 \DoveIO.PointerFromOpieAddress 7 OBTAIN.MONITORLOCK) (151 \DoveIO.OpieAddressBox.GLOBALRESOURCE 138 \DoveRS232C.FCBPointer 121 \DoveRS232C.DCBPointer 108 \DoveIO.OpieAddressBox.GLOBALRESOURCE 97 \DoveIORegion 83 \DoveRS232C.FCBPointer 71 \DoveIORegion 42 \DoveIO.OpieAddressBox.GLOBALRESOURCE 14 \DoveRS232C.FCBPointer 2 \DLRS232C.OUTPUT.LOCK) () \DLRS232C.QUEUE.OUTPUT.IOCB D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 LENGTH I 1 BUFFER I 0 IOCB F 3 LISPXHIST F 4 RESETVARSLST) `dlU@kkjh@jjdh@A@A@B@h@j@jS!Tog hgZ JIlD@k @B9 @lA @l @j@j S!Tog hgZ JI(165 \NOMACHINETYPE 157 RESETRESTORE 147 \DLRS232C.QUEUE.OUTPUT.IOCBA0006 122 \DoveIO.MakeOpieAddress 115 \DoveIO.MakeOpieAddress 88 ERROR! 83 RESETRESTORE 73 \DLRS232C.QUEUE.OUTPUT.IOCBA0005) (153 ERROR 144 INTERNAL 79 ERROR 70 INTERNAL 2 \MACHINETYPE) ( 141 (\DLRS232C.QUEUE.OUTPUT.IOCBA0006) 67 (\DLRS232C.QUEUE.OUTPUT.IOCBA0005)) \DLRS232C.RELEASE.IOCB D1 (P 3 \INTERRUPTABLE P 0 NOTIFYP I 1 USE I 0 IOCB) 0@@@``غJIIJo@ `Adg`dji`kg`dji`kA `l@l @``i@H` (147 NOTIFY.EVENT 119 \CLEARWORDS 105 \ILLEGAL.ARG 41 ERROR) (144 \DLRS232C.IOCB.FREELIST.EVENT 137 \DLRS232C.IOCB.FREELIST 130 \DLRS232C.IOCB.FREELIST 124 \DLRS232C.IOCB.FREELIST 109 \MACHINETYPE 100 \DLRS232C.OUTPUT.IOCB.ALLOC 95 \DLRS232C.OUTPUT.IOCB.ALLOC 85 \DLRS232C.OUTPUT.IOCB.ALLOC 79 OUTPUT 74 \DLRS232C.INPUT.IOCB.ALLOC 69 \DLRS232C.INPUT.IOCB.ALLOC 59 \DLRS232C.INPUT.IOCB.ALLOC 52 INPUT 20 \DLRS232C.IOCB.PAGE 15 \DLRS232C.IOCB.PAGE) ( 37 "ARG NOT IOCB") \DLRS232C.START.DRIVER D1 (P 5 PACKET P 4 IOCB P 1 IQ P 0 LEN I 1 RESTARTFLG I 0 NDB) o @`@ j@ I@I X@`Y `H1k[J?g \6]`n ML LMl` IM HkԸKk԰@H @g@ddi3 g@hhgggg @(189 ADD.PROCESS 126 \ENQUEUE 120 \DLRS232C.QUEUE.INPUT.IOCB 100 \TEMPLOCKPAGES 87 \ALLOCATE.ETHERPACKET 81 \DLRS232C.GET.IOCB 47 \DLRS232C.LOADINPUTQ 25 \DLRS232C.STARTUP 10 ERROR 2 \DLRS232C.ALLOCATE.IOCBS) (185 DELETE 182 AFTEREXIT 179 SYSTEM 176 RESTARTABLE 166 QUOTE 152 \DLRS232C.WATCHER 149 NDB 141 NDB 117 \DLRS232C.DEFAULT.PACKET.LENGTH 105 ETHERPACKET 91 \DLRS232C.DEFAULT.PACKET.LENGTH 78 INPUT 64 \DLRS232C.IDEAL.INPUT.LENGTH 56 |SYSQUEUETYPE#| 53 NDB 42 SYSQUEUE 30 NDB 18 |SYSQUEUETYPE#| 15 NDB) ( 7 "Unable to create IOCB pool") \DLRS232C.STARTUP D1 (P 0 VAR) HodH `dll l l`l-l `l3l (69 \NOMACHINETYPE 65 \CLEARWORDS 54 \CLEARWORDS 37 \RS232C.ISSUE.SHORT.COMMAND 32 \RS232C.ISSUE.SHORT.COMMAND 13 SET) (57 \DoveRS232C.FCBPointer 46 \DoveRS232C.FCBPointer 21 \MACHINETYPE) ( 3 (\DLRS232C.ACTIVE.GET \DLRS232C.ACTIVE.PUT \DLRS232C.GET.QUEUE.START \DLRS232C.GET.QUEUE.END \DLRS232C.PUT.QUEUE.START \DLRS232C.PUT.QUEUE.END)) \DLRS232C.START.INPUT D1 (I 0 IOCB) B@``jh@j"`@4`@3`lk@@bNIL (56 \DLRS232C.ACTIVE.GET 44 \IOPAGE 36 \IOPAGE 28 \IOPAGE 9 \IOPAGE 5 \DLRS232C.ACTIVE.GET) () \DLRS232C.START.OUTPUT D1 (I 0 IOCB) B@``jh@j"`@2`@1`lk@@bNIL (56 \DLRS232C.ACTIVE.PUT 44 \IOPAGE 36 \IOPAGE 28 \IOPAGE 9 \IOPAGE 5 \DLRS232C.ACTIVE.PUT) () \RS232C.ISSUE.SHORT.COMMAND D1 (I 0 COMMAND) `dl@ l@ (25 \NOMACHINETYPE 21 \DVRS232C.ISSUE.SHORT.COMMAND 12 \DLRS232C.ISSUE.SHORT.COMMAND) (2 \MACHINETYPE) () \DLRS232C.GET.PACKET D1 NIL ` (5 \DEQUEUE) (2 \DLRS232C.RAW.PACKET.QUEUE) () \DLRS232C.SEND.PACKET D1 (P 7 EVENT P 6 IOCB P 5 PACKET P 4 CLOCK P 3 \INTERRUPTABLE P 2 BUFLENGTH P 1 IOCB P 0 DROPIT I 2 EVENT I 1 PACKET I 0 NDB) ` j` j!AkH@A Ah g YIAI AAnJl k lL AlL @A `dlIBIAlJ NlF@!MIBIAlJ ' ^NjN_O Ii(230 \NOMACHINETYPE 224 AWAIT.EVENT 191 \DLRS232C.QUEUE.OUTPUT.IOCB 152 \DLRS232C.QUEUE.OUTPUT.IOCB 127 \ENQUEUE 116 \PUTBASEFIXP 105 \CLOCK0 94 \TEMPLOCKPAGES 88 ASSERT-FAIL 58 \DLRS232C.GET.IOCB 41 \ENQUEUE 11 RAND) (217 EVENT 196 ETHERPACKET 168 SYSQUEUE 163 NDB 131 \MACHINETYPE 121 NDB 110 ETHERPACKET 67 ETHERPACKET 55 OUTPUT 46 ETHERPACKET 35 NDB 23 ETHERPACKET 8 \RS232C.LIGHTNING 2 \RS232C.LIGHTNING) () \RS232C.HANDLE.PACKET D1 (P 2 PACKET.QUEUE P 1 MAX.BUFFERS P 0 INSTREAM I 0 PACKET) n`b`(!HKHZ?HH0H g&@jJ@ HHkH @ @ (107 \RELEASE.ETHERPACKET 102 \RELEASE.ETHERPACKET 97 NOTIFY.EVENT 74 \ENQUEUE 56 \GETACCESS) (92 STREAM 82 STREAM 78 STREAM 59 INPUT 47 STREAM 41 STREAM 35 SYSQUEUE 29 STREAM 23 STREAM 13 FDEV 10 \RS232C.FDEV 5 FDEV 2 \RS232C.FDEV) () \RS232C.PACKET.TIMEOUT D1 (L (0 BAUDRATE)) `o@jNIL (2 \DLRS232C.DEFAULT.PACKET.LENGTH) ( 6 10000.0) \DLRS232C.WATCHER D1 (P 2 \INTERRUPTABLE P 1 PACKET P 0 CNTR I 0 NDB) t`dl3j@ @ Y j HkX`l2j@ @ Y j HkX`(113 \NOMACHINETYPE 96 \RS232C.HANDLE.PACKET 88 BLOCK 82 \DLRS232C.GET.PACKET 78 \DVRS232C.OUTPUT.INTERRUPT 73 \DVRS232C.INPUT.INTERRUPT 43 \RS232C.HANDLE.PACKET 35 BLOCK 29 \DLRS232C.GET.PACKET 25 \DLRS232C.OUTPUT.INTERRUPT 20 \DLRS232C.INPUT.INTERRUPT) (104 \MAXWATCHERGETS 51 \MAXWATCHERGETS 2 \MACHINETYPE) () \RS232C.EVENTFN D1 (P 1 DONE P 0 BASE I 1 EVENT I 0 DEVICE) AgAgAgAgh`d`dl`djhhlIiF`@`;`IHi H`HnиiY``(` ```IHi H`HnиiYh(152 \DONEWEPHEMERALPAGE 127 RS232C.INIT 84 \DONEWEPHEMERALPAGE) (157 \DLRS232C.IOCB.ENDPAGE 141 \DLRS232C.IOCB.PAGE 136 \DLRS232C.IOCB.ENDPAGE 131 \DLRS232C.IOCB.PAGE 124 RS232C.DEFAULT.INIT.INFO 114 FDEV 111 \RS232C.FDEV 107 \RS232C.FDEV 89 \DLRS232C.IOCB.ENDPAGE 73 \DLRS232C.IOCB.PAGE 68 \DLRS232C.IOCB.ENDPAGE 63 \DLRS232C.IOCB.PAGE 42 \IOPAGE 33 \MACHINETYPE 28 \RS232FLG 22 AFTERSAVEVM 16 AFTERSYSOUT 10 AFTERMAKESYS 3 AFTERLOGOUT) () \RS232C.CREATE.FDEV D1 (I 0 INITINFO) ;`%g`dgdjdj0dk dk@dkPdj`dkpdgdgdgdg dg dgdgdgdgdgdgdg dg"dg$dg*dg&dg>dg4dg2dg@dg0dg.dg6dg8dg:dgRdgNhddhHdI(dgTdgdg `(@(298 \DEFINEDEVICE) (305 FDEV 302 \RS232C.FDEV 295 \RS232C.FDEV 289 NILL 282 NILL 275 NILL 251 \GENERIC.OPENP 244 NILL 237 \ILLEGAL.DEVICEOP 230 \BUFFERED.BOUTS 223 \BUFFERED.BINS 216 \IS.NOT.RANDACCESSP 209 ZERO 202 \IS.NOT.RANDACCESSP 195 \IS.NOT.RANDACCESSP 188 NILL 181 \RS232C.GETNEXTBUFFER 174 \RS232C.BACKFILEPTR 167 \RS232C.FORCEOUTPUT 160 \RS232C.READP 153 \BUFFERED.PEEKBIN 146 \BUFFERED.BOUT 139 \BUFFERED.BIN 132 NILL 125 \RS232C.REOPENFILE 118 \RS232C.OPENFILE 111 \RS232C.GETFILENAME 104 \RS232C.SETFILEINFO 97 \RS232C.GETFILEINFO 90 \GENERATENOFILES 83 \RS232C.EVENTFN 76 NILL 69 \RS232C.CLOSEFILE 20 RS232 15 |FDEVTYPE#| 12 RS232 5 FDEV 2 \RS232C.FDEV) () \RS232C.FORCEOUTPUT D1 (P 1 EVENT P 0 PACKET I 1 WAITFORFINISH I 0 STREAM) q@g a@@ HLH@l.Hg @@@j0jj@h`HAI A HjhI (108 AWAIT.EVENT 89 \DLRS232C.SEND.PACKET 48 \RS232C.TRACE.PACKET 6 OPENP) (96 ETHERPACKET 81 \DLRS232C.LOCAL.NDB 75 STREAM 60 STREAM 56 STREAM 52 STREAM 45 OUTPUT 34 STREAM 27 ETHERPACKET 18 STREAM 12 STREAM 3 OUTPUT) () \RS232C.GETNEXTBUFFER D1 (P 5 \INTERRUPTABLE P 4 NEXTPACKET P 3 LASTBUFFER P 2 OLDPACKET P 1 EVENT P 0 QUEUE I 2 NOERRORFLG I 1 WHATFOR I 0 STREAM) @@ @@Adg@jJ@lj@@@@@@@@@l.\J&KX@J@@@h@djjH \6@@mLg @L@l.l.@Li I g2@l.@ @d`0`@l.@\LgioA (280 ERROR 261 \ALLOCATE.ETHERPACKET 238 \RS232C.FORCEOUTPUT 216 AWAIT.EVENT 209 \RELEASE.ETHERPACKET 183 \RS232C.TRACE.PACKET 157 \DEQUEUE) (268 FREE 250 \RS232C.OUTPUT.PACKET.LENGTH 244 \RS232C.OUTPUT.PACKET.LENGTH 228 STREAM 221 WRITE 180 INPUT 168 STREAM 164 STREAM 132 STREAM 124 STREAM 98 STREAM 94 STREAM 88 STREAM 84 STREAM 72 STREAM 68 STREAM 62 STREAM 58 STREAM 28 READ 18 STREAM 9 STREAM 3 STREAM) ( 276 "Illegal stream operation ") \RS232C.BACKFILEPTR D1 (P 1 \INTERRUPTABLE P 0 BYTEDEFICIT I 1 NBYTES I 0 STREAM) @Akbl.@Rkr@jjjHj@]Hl.@O@@@@@@@@@dH@lkkjhi@ @@jAi(145 \IS.NOT.RANDACCESSP) (154 STREAM 150 STREAM 110 STREAM 106 STREAM 100 STREAM 96 STREAM 85 STREAM 81 STREAM 75 STREAM 71 STREAM 57 STREAM 46 STREAM 22 STREAM 3 STREAM) () \RS232C.GETFILENAME D1 (L (2 DEVICE 1 RECOG 0 NAME)) @NIL NIL () \RS232C.GETFILEINFO D1 (I 2 DEVICE I 1 ATTR I 0 NAME.OR.STREAM) `dlA lA (25 \NOMACHINETYPE 21 \DVRS232C.GET.PARAMETER 12 \DLRS232C.GET.PARAMETER) (2 \MACHINETYPE) () \RS232C.SETFILEINFO D1 (I 3 DEVICE I 2 VALUE I 1 ATTR I 0 NAME.OR.STREAM) $`dlABh lABh (33 \NOMACHINETYPE 29 \DVRS232C.SET.PARAMETERS 16 \DLRS232C.SET.PARAMETERS) (2 \MACHINETYPE) () \RS232C.READP D1 (I 0 STREAM) @ h@jh @(3 \PAGEDEOFP) (26 SYSQUEUE 21 STREAM) () \RS232C.OPENFILE D1 (P 6 OUTSTREAM P 5 INSTREAM P 4 DEVINFO I 4 DEVICE I 3 PARAMETERS I 2 RECOG I 1 ACCESS I 0 NAME) w`C&@Cd[KIHhZH&J D`oD Adg0D(` o` ` o sg.D(d` o` ` o AAdg6D(D('` o` ` o D(AgAg~Ll dDdjdjdg.dg,d`&dg"dg djd`djd`dhdldjRdk@dk0dhdg AgAgAgLl dDdjdjdj0dg.dg,d`&dg"dg djd`djd`dhdldjRdk@dk0dhdg M NAgAdg7M  M`MjM`gAdgN (628 \ILLEGAL.ARG 577 CREATE.EVENT 566 CREATE.EVENT 532 \SETACCESS 375 \SETACCESS 231 \ILLEGAL.ARG 227 ERRORX 219 TERPRI 212 PRIN1 201 TERPRI 166 ERRORX 158 TERPRI 151 PRIN1 140 TERPRI 116 ERRORX 108 TERPRI 101 PRIN1 90 TERPRI 63 ERROR 45 RS232C.SET.PARAMETERS 6 RS232C.INIT) (621 APPEND 614 OUTPUT 606 \RS232C.MAX.INPUT.BUFFERS 603 STREAM 595 STREAM 587 |SYSQUEUETYPE#| 584 STREAM 574 STREAM 563 STREAM 555 BOTH 548 INPUT 529 OUTPUT 487 \STREAM.DEFAULT.MAXBUFFERS 475 FILELINELENGTH 462 \FILEOUTCHARFN 455 \EOSERROR 448 \NOIMAGEOPS 441 \STREAM.NOT.OPEN 434 \STREAM.NOT.OPEN 398 BOTH 392 APPEND 385 OUTPUT 372 INPUT 330 \STREAM.DEFAULT.MAXBUFFERS 318 FILELINELENGTH 305 \FILEOUTCHARFN 298 \EOSERROR 291 \NOIMAGEOPS 284 \STREAM.NOT.OPEN 277 \STREAM.NOT.OPEN 251 BOTH 245 INPUT 236 FDEV 216 RS232C.ERROR.STREAM 209 RS232C.ERROR.STREAM 198 RS232C.ERROR.STREAM 189 FDEV 181 FDEV 173 BOTH 155 RS232C.ERROR.STREAM 148 RS232C.ERROR.STREAM 137 RS232C.ERROR.STREAM 128 FDEV 121 OUTPUT 105 RS232C.ERROR.STREAM 98 RS232C.ERROR.STREAM 87 RS232C.ERROR.STREAM 77 FDEV 69 INPUT 53 FDEV 50 \RS232C.FDEV 2 \RS232C.READY) ( 224 (9 {RS232}) 206 "RS232C port is busy on input or output" 163 (9 {RS232}) 145 "RS232C port is busy on output" 113 (9 {RS232}) 95 "RS232C port is busy on input" 59 "RS232C device doesn't agree with DEVICE argument to \RS232C.OPENFILE!") \RS232C.CLOSEFILE D1 (P 3 PACKET P 2 QUEUE P 1 DEVINFO P 0 DEVICE I 0 STREAM) U@H(@ g,@J [@@mK I@ Ih@ @(81 \SETACCESS 71 \RS232C.FORCEOUTPUT 61 \RELEASE.ETHERPACKET 38 \DEQUEUE 19 \GETACCESS) (49 STREAM 45 STREAM 29 STREAM 22 INPUT 12 FDEV 3 STREAM) () \RS232C.TRACE.PACKET D1 (P 3 %%CODE P 2 CH P 1 CHINDEX I 1 FORWHAT I 0 PACKET) @`dik` A` o` @l.kl.IHh@IZdll `oJ K jKhlK` IkYgAgoo` (149 PRIN1 115 CL:WRITE-CHAR 87 CL:FORMAT 43 PRIN1 32 PRIN1 24 TERPRI) (146 RS232C.TRACEFILE 132 INPUT 125 PEEK 112 RS232C.TRACEFILE 79 RS232C.TRACEFILE 40 RS232C.TRACEFILE 29 RS232C.TRACEFILE 21 RS232C.TRACEFILE 12 RS232C.TRACEFLG 3 ETHERPACKET) ( 143 "!" 138 "+" 83 "[~O]" 37 ": ") RS232C.INIT D1 (I 4 FLOWCONTROL I 3 STOPBITS I 2 PARITY I 1 BITSPERCHAR I 0 BAUDRATE) ]`dl$@ g` g@ @ABCD l#@ g` g@ @ABCD o (90 ERROR 87 MACHINETYPE 79 \DVRS232C.INIT 69 APPLY 59 APPLY 41 \DLRS232C.INIT 31 APPLY 21 APPLY) (65 \DVRS232C.INIT 56 RS232C.DEFAULT.INIT.INFO 53 \DVRS232C.INIT 27 \DLRS232C.INIT 18 RS232C.DEFAULT.INIT.INFO 15 \DLRS232C.INIT 2 \MACHINETYPE) ( 84 "RS232 is currently not supported on ") RS232C.SHUTDOWN D1 (P 2 INSTREAM P 1 OUTSTREAM P 0 DEVICE-INFO) d`_o `;`(!HHJ J J HhI I I Hh`dll(97 \DVRS232C.SHUTDOWN 88 \DLRS232C.SHUTDOWN 70 \CLOSEFILE 65 OPENP 60 STREAMP 51 \CLOSEFILE 46 OPENP 41 STREAMP 11 RS232C.SET.PARAMETERS) (79 \MACHINETYPE 25 FDEV 22 \RS232C.FDEV 17 FDEV 14 \RS232C.FDEV 2 \RS232FLG) ( 8 ((RTS) (DTR))) RS232C.OTHER.STREAM D1 (I 0 STREAM) N@ g$@(5gghd@ @(gghd@ (75 \RS232C.OPENFILE 42 \RS232C.OPENFILE 3 \GETACCESS) (69 STREAM 63 INPUT 60 {RS232} 52 FDEV 47 STREAM 36 STREAM 30 OUTPUT 27 {RS232} 18 FDEV 13 STREAM 6 INPUT) () RS232C.OUTPUTSTREAM D1 (I 0 INPUTSTREAM) `(gghd` (29 \RS232C.OPENFILE) (25 \RS232C.FDEV 20 OUTPUT 17 {RS232} 8 FDEV 5 FDEV 2 \RS232C.FDEV) () RS232C.OUTPUT.PACKET.LENGTH D1 (P 1 SIZE P 0 NEWVALUE) 1e`Hj%kaIdjjII IdnBnB(30 \ILLEGAL.ARG) (45 \RS232C.OUTPUT.PACKET.LENGTH 6 \RS232C.OUTPUT.PACKET.LENGTH) () RS232C.GET.PARAMETERS D1 (P 3 X I 0 PARAMETERLIST) $@@d[K IHhZH&J(15 GETFILEINFO 11 RS232C.OUTPUTSTREAM) NIL () RS232C.SET.PARAMETERS D1 (I 0 PARAMETERLIST) 0`$`dl@ l@ o o (45 ERROR 37 ERROR 34 MACHINETYPE 26 \DVRS232C.SET.PARAMETERS 17 \DLRS232C.SET.PARAMETERS) (7 \MACHINETYPE 2 \RS232FLG) ( 42 "RS232C is not running" 31 "RS232C is currently not supported on ") RS232C.READP.EVENT D1 (I 0 STREAM) @ g@ o@ (23 ERROR 3 \GETACCESS) (12 STREAM 6 INPUT) ( 19 "FILE NOT OPEN") RS232C.REPORT.STATUS D1 (L (0 NEWSTATUS)) e`HkkaNIL (15 \RS232C.REPORT.STATUS 6 \RS232C.REPORT.STATUS) () RS232C.TRACEA0001 D1 (L (0 WINDOW)) hNIL (3 RS232C.TRACEFLG) () RS232C.TRACEA0002 D1 (I 0 WINDOW) `lHj HH hh`di!` o` ` g>g` o` ` h` o` ` i(128 TERPRI 121 PRIN1 110 TERPRI 100 TERPRI 93 PRIN1 82 TERPRI 64 TERPRI 57 PRIN1 46 TERPRI 26 \FZEROP 2 GETMOUSESTATE) (133 RS232C.TRACEFLG 125 RS232C.TRACEFILE 118 RS232C.TRACEFILE 107 RS232C.TRACEFILE 97 RS232C.TRACEFILE 90 RS232C.TRACEFILE 79 RS232C.TRACEFILE 73 PEEK 68 PEEK 61 RS232C.TRACEFILE 54 RS232C.TRACEFILE 43 RS232C.TRACEFILE 34 RS232C.TRACEFLG 6 LASTMOUSEBUTTONS) ( 115 "[Tracing now on]" 87 "[Tracing now off]" 51 "[Tracing now peek]") RS232C.TRACE D1 (I 0 MODE) V@i@dgGho o` g` ` `gg `gg @(78 PUTWINDOWPROP 65 PUTWINDOWPROP 51 WINDOWP 44 DSPSCROLL 34 DSPFONT 20 CREATEW) (83 RS232C.TRACEFLG 75 RS232C.TRACEA0002 72 BUTTONEVENTFN 69 RS232C.TRACEFILE 62 RS232C.TRACEA0001 59 CLOSEFN 56 RS232C.TRACEFILE 48 RS232C.TRACEFILE 41 RS232C.TRACEFILE 38 ON 31 RS232C.TRACEFILE 23 RS232C.TRACEFILE 8 PEEK) ( 28 (GACHA 8) 17 "RS232 Trace File") RS232MODEMCONTROL D1 (P 1 MODEMSIGNALS P 0 NARGS) eo kHHk2KdJL I1 OEOadgdgih#KadgogoM Nh]Kk[N&d&dgggg_OOh__O_O&_(35 RS232C.SET.PARAMETERS 10 RS232C.GET.PARAMETERS) (138 RTS 132 REQUEST.TO.SEND 128 DTR 122 DATA.TERMINAL.READY 85 RTS 74 DTR 59 RTS 53 DTR) ( 92 (REQUEST.TO.SEND . T) 81 (DATA.TERMINAL.READY . T) 7 (DATA.TERMINAL.READY REQUEST.TO.SEND)) RS232MODEMSTATUSP D1 (P 5 SIGNAL P 1 STATUS I 0 SPEC) i`]l `dl`5lHj@30odMI MhZK J\[L [JI o (102 ERROR 94 \RS232C.MSP1 85 LAST 60 \RS232C.MSP1 9 \RS232C.ISSUE.SHORT.COMMAND) (24 \IOPAGE 15 \MACHINETYPE 2 \RS232FLG) ( 99 "RS232C is not running" 48 (CTS DSR RI RLSD)) \RS232C.MSP1 D1 (I 1 STATUS I 0 SPEC) @dl5A@dgl !gl@dgkgl@ jhI@dg@A @bdg@A @bg@A h@ (132 \ILLEGAL.ARG 125 \RS232C.MSP1 103 \RS232C.MSP1 78 \RS232C.MSP1 52 \ILLEGAL.ARG) (116 NOT 92 OR 67 AND 43 RLSD 35 RI 24 DSR 14 CTS) () RS232MODIFYMODEMCONTROL D1 (P 0 MODEMSIGNALS I 1 SIGNALSOFFLST I 0 SIGNALSONLST) o 0@'ddggggiJIh[I&K0A'ddgggghJIh[I&K H1IJd dggggK Lh[ZIYL&[(111 RS232C.SET.PARAMETERS 108 \APPEND2 6 RS232C.GET.PARAMETERS) (147 RTS 141 REQUEST.TO.SEND 137 DTR 131 DATA.TERMINAL.READY 85 REQUEST.TO.SENT 79 RTS 75 DATA.TERMINAL.READY 69 DTR 37 REQUEST.TO.SENT 31 RTS 27 DATA.TERMINAL.READY 21 DTR) ( 3 (DATA.TERMINAL.READY REQUEST.TO.SEND)) RS232SENDBREAKA0001A0002 D1 NIL l (4 \RS232C.ISSUE.SHORT.COMMAND) NIL () RS232SENDBREAKA0001 D1 (NAME ERRORSET F 0 RESETVARSLST F 1 EXTRALONG? F 2 RESETY) $ghhhPcl Qn l ci(30 BLOCK 18 \RS232C.ISSUE.SHORT.COMMAND) (2 RS232SENDBREAKA0001A0002) () RS232SENDBREAK D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 0 EXTRALONG? F 3 LISPXHIST F 4 RESETVARSLST) >`2`dldl#S!Tog hgZ JIo (59 ERROR 49 ERROR! 44 RESETRESTORE 34 RS232SENDBREAKA0001) (40 ERROR 31 INTERNAL 7 \MACHINETYPE 2 \RS232FLG) ( 56 "RS232C is not running" 28 (RS232SENDBREAKA0001)) RS232MODEMHANGUPA0001A0002 D1 (F 0 STATUS) o c(6 RS232C.SET.PARAMETERS) NIL ( 3 ((DATA.TERMINAL.READY . T))) RS232MODEMHANGUPA0001 D1 (NAME ERRORSET F 0 RESETVARSLST F 1 RESETY) !ghhhPco n ci(27 BLOCK 20 RS232C.SET.PARAMETERS) (2 RS232MODEMHANGUPA0001A0002) ( 17 ((DATA.TERMINAL.READY))) RS232MODEMHANGUP D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 STATUS F 4 LISPXHIST F 5 RESETVARSLST) %T!Uog hg[ KH(33 ERROR! 27 RESETRESTORE 17 RS232MODEMHANGUPA0001) (23 ERROR 14 INTERNAL) ( 11 (RS232MODEMHANGUPA0001)) (PRETTYCOMPRINT DLRS232CCOMS) (RPAQQ DLRS232CCOMS ((* ;; "Merged DLion & DayBreak RS232 Head. ") (COMS (* ;;; "daybreak specific constants/functions RS232 head. ") (DECLARE%: DONTCOPY (FILES (SOURCE) DOVERS232C) ) (INITVARS (\DVRS232C.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)))) (* ;; "removed (19200 . 13) as an option") (\DVRS232C.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)))) (\DoveRS232C.FCBPointer) ( \DoveRS232C.DCBPointer)) (GLOBALVARS \DVRS232C.BAUD.RATES \DVRS232C.INVERSE.BAUD.RATES \DoveRS232C.FCBPointer \DoveRS232C.DCBPointer) (RESOURCES DoveIO.OpieAddressBox) (FNS \DVRS232C.OUTPUT.INTERRUPT \DVRS232C.INPUT.INTERRUPT \DVRS232C.PARSE.STATUS \DVRS232C.ISSUE.SHORT.COMMAND \DVRS232C.GATHER.STATUS \DVRS232C.INIT \DVRS232C.SET.PARAMETERS \DVRS232C.DEQUEUE.IOCB \DVRS232C.ABORT.QUEUE \DVRS232C.SHUTDOWN \DVRS232C.GET.PARAMETER)) (COMS (* ;; "mainly DLion specific code here") (DECLARE%: DONTCOPY (* ;; "") (EXPORT (CONSTANTS * DLRS232C.IOP.STATUS.CODES) (CONSTANTS * DLRS232C.IOP.COMMANDS) (CONSTANTS (DLRS232C.IOCB.SIZE 10) ( DLRS232C.IOCB.PAGES 1)) (CONSTANTS (\MIN2PAGEBUFLENGTH 232)) (RECORDS DLRS232C.HDW.CONF DLRS232C.IOP.GET.FLAG DLRS232C.IOP.MISC.CMD DLRS232C.IOP.PUT.FLAG DLRS232C.CSB.PTRS DLRS232C.IOCB DLRS232C.PARAMETER.CSB DLRS232C.PARAMETER.OUTCOME DLRS232C.DEVICE.STATUS))) (INITVARS ( \DLRS232C.IOCB.FREELIST) (\DLRS232C.IOCB.PAGE) (\DLRS232C.IOCB.ENDPAGE) (\DLRS232C.ACTIVE.GET) ( \DLRS232C.ACTIVE.PUT) (\DLRS232C.GET.QUEUE.START) (\DLRS232C.GET.QUEUE.END) (\DLRS232C.PUT.QUEUE.START ) (\DLRS232C.PUT.QUEUE.END) (\DLRS232C.LOCAL.NDB) (\DLRS232C.IDEAL.INPUT.LENGTH) ( \DLRS232C.DEFAULT.PACKET.LENGTH 578) (\DLRS232C.MAX.INPUT.LENGTH 10) (\DLRS232C.RAW.PACKET.QUEUE ( NCREATE (QUOTE SYSQUEUE))) (\DLRS232C.OUTPUT.LOCK (CREATE.MONITORLOCK "RS232 Output Queue Lock")) ( \DLRS232C.COMMAND.LOCK (CREATE.MONITORLOCK "RS232C Command Lock")) (\DLRS232C.PARAMETER.CSB) ( \DLRS232C.IOCB.FREELIST.EVENT (CREATE.EVENT "IOCB Freelist non-empty")) (\DLRS232C.BAUD.RATES (QUOTE ( (50 . 0) (75 . 1) (110 . 2) (134.5 . 3) (150 . 4) (300 . 5) (600 . 6) (1200 . 7) (2400 . 8) (3600 . 9) (4800 . 10) (7200 . 11) (9600 . 12)))) (* ;; "PUT BACK IN removed (19200 . 13) (28800 . 14) (38400 . 15) (48000 . 16) (56000 . 17) (57600 . 18)") ( \DLRS232C.INVERSE.BAUD.RATES (QUOTE ((0 . 50) (1 . 75) (2 . 110) (3 . 134.5) (4 . 150) (5 . 300) (6 . 600) (7 . 1200) (8 . 2400) (9 . 3600) (10 . 4800) (11 . 7200) (12 . 9600))))) (VARS \DLRS232C.IOCB.STATUS.CODES) (GLOBALVARS \DLRS232C.IOCB.FREELIST \DLRS232C.IOCB.PAGE \DLRS232C.IOCB.ENDPAGE \DLRS232C.ACTIVE.GET \DLRS232C.ACTIVE.PUT \DLRS232C.LOCAL.NDB \DLRS232C.IDEAL.INPUT.LENGTH \DLRS232C.DEFAULT.PACKET.LENGTH \DLRS232C.IOCB.TOTAL \DLRS232C.INPUT.IOCB.ALLOC \DLRS232C.INPUT.IOCB.TOTAL \DLRS232C.OUTPUT.IOCB.ALLOC \DLRS232C.OUTPUT.IOCB.TOTAL \DLRS232C.MAX.INPUT.LENGTH \DLRS232C.GET.QUEUE.START \DLRS232C.GET.QUEUE.END \DLRS232C.PUT.QUEUE.START \DLRS232C.PUT.QUEUE.END \DLRS232C.RAW.PACKET.QUEUE \DLRS232C.OUTPUT.LOCK \DLRS232C.PARAMETER.CSB \DLRS232C.COMMAND.LOCK \DLRS232C.IOCB.STATUS.CODES \DLRS232C.IOCB.FREELIST.EVENT \DLRS232C.BAUD.RATES \DLRS232C.INVERSE.BAUD.RATES) (FNS \DLRS232C.ABORT.OUTPUT \DLRS232C.ALLOCATE.IOCBS \DLRS232C.CREATE.NDB \DLRS232C.PARSE.STATUS \DLRS232C.GET.PARAMETER \DLRS232C.SET.PARAMETERS \DLRS232C.SHUTDOWN \DLRS232C.FINISH.GET.AND.PUT \DLRS232C.GET.IOCB \DLRS232C.INIT \DLRS232C.INPUT.INTERRUPT \DLRS232C.ISSUE.SHORT.COMMAND \DLRS232C.LOADINPUTQ \DLRS232C.OUTPUT.INTERRUPT \DLRS232C.QUEUE.INPUT.IOCB \DLRS232C.QUEUE.OUTPUT.IOCB \DLRS232C.RELEASE.IOCB \DLRS232C.START.DRIVER \DLRS232C.STARTUP \DLRS232C.START.INPUT \DLRS232C.START.OUTPUT)) (COMS (* ;;; "More or less machine independant functions and structures. ") (CONSTANTS * \RS232C.DUPLEXITIES) (CONSTANTS * \RS232C.LINE.TYPES) (CONSTANTS * \RS232C.CORRESPONDENTS ) (RECORDS RS232C.DEVICEINFO RS232C.STREAM) (INITVARS (\RS232C.LIGHTNING) (\RS232C.READY) ( \RS232C.READY.EVENT (CREATE.EVENT "RS232C is running")) (\RS232C.FDEV) (\RS232FLG) ( \RS232C.REPORT.STATUS T) (\RS232C.OUTPUT.PACKET.LENGTH 578) (\RS232C.MAX.INPUT.BUFFERS 10)) ( GLOBALVARS \RS232C.LIGHTNING \RS232C.READY \RS232C.READY.EVENT \RS232C.FDEV \RS232FLG \RS232C.REPORT.STATUS \RS232C.OUTPUT.PACKET.LENGTH \RS232C.MAX.INPUT.BUFFERS) (ADDVARS ( \SYSTEMCACHEVARS \RS232C.READY)) (DECLARE%: DONTCOPY (EXPORT (RECORDS RS232C.ENCAPSULATION RS232C.STREAM) (MACROS \DLRS232C.ALLOCATE.PACKET))) (* ; "Stream interface") (FNS \RS232C.ISSUE.SHORT.COMMAND \DLRS232C.GET.PACKET \DLRS232C.SEND.PACKET \RS232C.HANDLE.PACKET \RS232C.PACKET.TIMEOUT \DLRS232C.WATCHER \RS232C.EVENTFN \RS232C.CREATE.FDEV \RS232C.FORCEOUTPUT \RS232C.GETNEXTBUFFER \RS232C.BACKFILEPTR \RS232C.GETFILENAME \RS232C.GETFILEINFO \RS232C.SETFILEINFO \RS232C.READP \RS232C.OPENFILE \RS232C.CLOSEFILE \RS232C.TRACE.PACKET)) (COMS (* ; "User functions") ( RECORDS RS232C.INIT RS232C.XONXOFF) (INITVARS (RS232C.ERROR.STREAM PROMPTWINDOW) ( RS232C.DEFAULT.INIT.INFO (create RS232C.INIT BaudRate _ 1200 BitsPerSerialChar _ 8 Parity _ (QUOTE NONE) NoOfStopBits _ 1 FlowControl _ (create RS232C.XONXOFF FLAG _ 1 XON.CHAR _ (CHARCODE ^Q) XOFF.CHAR _ (CHARCODE ^S))))) (GLOBALVARS RS232C.ERROR.STREAM RS232C.DEFAULT.INIT.INFO RS232C.TRACEFLG RS232C.TRACEFILE) (FNS RS232C.INIT RS232C.SHUTDOWN RS232C.OTHER.STREAM RS232C.OUTPUTSTREAM RS232C.OUTPUT.PACKET.LENGTH RS232C.GET.PARAMETERS RS232C.SET.PARAMETERS RS232C.READP.EVENT RS232C.REPORT.STATUS RS232C.TRACE)) (COMS (* ; "Modem control functions, compatible with old RS232") ( FNS RS232MODEMCONTROL RS232MODEMSTATUSP \RS232C.MSP1 RS232MODIFYMODEMCONTROL RS232SENDBREAK RS232MODEMHANGUP)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) ( NLAML) (LAMA RS232MODEMCONTROL RS232C.REPORT.STATUS RS232C.OUTPUT.PACKET.LENGTH))))) (RPAQ? \DVRS232C.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)))) (RPAQ? \DVRS232C.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)))) (RPAQ? \DoveRS232C.FCBPointer) (RPAQ? \DoveRS232C.DCBPointer) (PUTDEF (QUOTE DoveIO.OpieAddressBox) (QUOTE RESOURCES) (QUOTE (NEW (\CREATECELL \FIXP)))) (RPAQ? \DLRS232C.IOCB.FREELIST) (RPAQ? \DLRS232C.IOCB.PAGE) (RPAQ? \DLRS232C.IOCB.ENDPAGE) (RPAQ? \DLRS232C.ACTIVE.GET) (RPAQ? \DLRS232C.ACTIVE.PUT) (RPAQ? \DLRS232C.GET.QUEUE.START) (RPAQ? \DLRS232C.GET.QUEUE.END) (RPAQ? \DLRS232C.PUT.QUEUE.START) (RPAQ? \DLRS232C.PUT.QUEUE.END) (RPAQ? \DLRS232C.LOCAL.NDB) (RPAQ? \DLRS232C.IDEAL.INPUT.LENGTH) (RPAQ? \DLRS232C.DEFAULT.PACKET.LENGTH 578) (RPAQ? \DLRS232C.MAX.INPUT.LENGTH 10) (RPAQ? \DLRS232C.RAW.PACKET.QUEUE (NCREATE (QUOTE SYSQUEUE))) (RPAQ? \DLRS232C.OUTPUT.LOCK (CREATE.MONITORLOCK "RS232 Output Queue Lock")) (RPAQ? \DLRS232C.COMMAND.LOCK (CREATE.MONITORLOCK "RS232C Command Lock")) (RPAQ? \DLRS232C.PARAMETER.CSB) (RPAQ? \DLRS232C.IOCB.FREELIST.EVENT (CREATE.EVENT "IOCB Freelist non-empty")) (RPAQ? \DLRS232C.BAUD.RATES (QUOTE ((50 . 0) (75 . 1) (110 . 2) (134.5 . 3) (150 . 4) (300 . 5) (600 . 6) (1200 . 7) (2400 . 8) (3600 . 9) (4800 . 10) (7200 . 11) (9600 . 12)))) (RPAQ? \DLRS232C.INVERSE.BAUD.RATES (QUOTE ((0 . 50) (1 . 75) (2 . 110) (3 . 134.5) (4 . 150) (5 . 300 ) (6 . 600) (7 . 1200) (8 . 2400) (9 . 3600) (10 . 4800) (11 . 7200) (12 . 9600)))) (RPAQQ \DLRS232C.IOCB.STATUS.CODES ((1 . "disaster ") (2 . "I/O Aborted ") (4 . "invalid character ") (8 . "asynchrononous framing error ") (16 . "parity error ") (32 . "checksum error ") (64 . "frame timeout ") (128 . "device error ") (256 . "data lost "))) (RPAQQ \RS232C.DUPLEXITIES ((RS232C.DUPLEX.FULL 0) (RS232C.DUPLEX.HALF 1))) (RPAQQ RS232C.DUPLEX.FULL 0) (RPAQQ RS232C.DUPLEX.HALF 1) (CONSTANTS (RS232C.DUPLEX.FULL 0) (RS232C.DUPLEX.HALF 1)) (RPAQQ \RS232C.LINE.TYPES ((RS232C.LT.BIT.SYNCH 0) (RS232C.LT.BYTE.SYNCH 1) (RS232C.LT.ASYNCH 3) ( RS232C.LT.AUTO 4))) (RPAQQ RS232C.LT.BIT.SYNCH 0) (RPAQQ RS232C.LT.BYTE.SYNCH 1) (RPAQQ RS232C.LT.ASYNCH 3) (RPAQQ RS232C.LT.AUTO 4) (CONSTANTS (RS232C.LT.BIT.SYNCH 0) (RS232C.LT.BYTE.SYNCH 1) (RS232C.LT.ASYNCH 3) (RS232C.LT.AUTO 4)) (RPAQQ \RS232C.CORRESPONDENTS ((RS232C.CP.XEROX800 0) (RS232C.CP.XEROX850 1) (RS232C.CP.SYSTEM6 2) ( RS232C.CP.CMCII 3) (RS232C.CP.TTYHOST 4) (RS232C.CP.NS.ELEMENT 5) (RS232C.CP.3270.HOST 6) ( RS232C.CP.2770.HOST 7) (RS232C.CP.6670.HOST 8) (RS232C.CP.6670 9) (RS232C.CP.XEROX860 10) ( RS232C.CP.NS.ELEMENT.BSC 11) (RS232C.CP.SIEMENS9750 12))) (RPAQQ RS232C.CP.XEROX800 0) (RPAQQ RS232C.CP.XEROX850 1) (RPAQQ RS232C.CP.SYSTEM6 2) (RPAQQ RS232C.CP.CMCII 3) (RPAQQ RS232C.CP.TTYHOST 4) (RPAQQ RS232C.CP.NS.ELEMENT 5) (RPAQQ RS232C.CP.3270.HOST 6) (RPAQQ RS232C.CP.2770.HOST 7) (RPAQQ RS232C.CP.6670.HOST 8) (RPAQQ RS232C.CP.6670 9) (RPAQQ RS232C.CP.XEROX860 10) (RPAQQ RS232C.CP.NS.ELEMENT.BSC 11) (RPAQQ RS232C.CP.SIEMENS9750 12) (CONSTANTS (RS232C.CP.XEROX800 0) (RS232C.CP.XEROX850 1) (RS232C.CP.SYSTEM6 2) (RS232C.CP.CMCII 3) ( RS232C.CP.TTYHOST 4) (RS232C.CP.NS.ELEMENT 5) (RS232C.CP.3270.HOST 6) (RS232C.CP.2770.HOST 7) ( RS232C.CP.6670.HOST 8) (RS232C.CP.6670 9) (RS232C.CP.XEROX860 10) (RS232C.CP.NS.ELEMENT.BSC 11) ( RS232C.CP.SIEMENS9750 12)) (RECORD RS232C.DEVICEINFO (INSTREAM OUTSTREAM INIT)) (ACCESSFNS RS232C.STREAM ((EVENT (fetch (STREAM F1) of DATUM) (replace (STREAM F1) of DATUM with NEWVALUE)) (PACKET.QUEUE (fetch (STREAM F2) of DATUM) (replace (STREAM F2) of DATUM with NEWVALUE)) ( LASTBUFFER (fetch (STREAM F3) of DATUM) (replace (STREAM F3) of DATUM with NEWVALUE)) ( LASTBUFFER.CBUFSIZE (fetch (STREAM FW6) of DATUM) (replace (STREAM FW6) of DATUM with NEWVALUE)) ( FLAGS (fetch (STREAM FW7) of DATUM) (replace (STREAM FW7) of DATUM with NEWVALUE)) (QUEUE.LENGTH ( fetch (STREAM FW8) of DATUM) (replace (STREAM FW8) of DATUM with NEWVALUE))) (ACCESSFNS RS232C.STREAM ((FLAGBASE (LOCF (fetch (RS232C.STREAM FLAGS) of DATUM)))) (BLOCKRECORD FLAGBASE ((DID.BACKFILEPTR FLAG))))) (RPAQ? \RS232C.LIGHTNING) (RPAQ? \RS232C.READY) (RPAQ? \RS232C.READY.EVENT (CREATE.EVENT "RS232C is running")) (RPAQ? \RS232C.FDEV) (RPAQ? \RS232FLG) (RPAQ? \RS232C.REPORT.STATUS T) (RPAQ? \RS232C.OUTPUT.PACKET.LENGTH 578) (RPAQ? \RS232C.MAX.INPUT.BUFFERS 10) (ADDTOVAR \SYSTEMCACHEVARS \RS232C.READY) (RECORD RS232C.INIT (BaudRate BitsPerSerialChar Parity NoOfStopBits FlowControl)) (RECORD RS232C.XONXOFF (FLAG XON.CHAR XOFF.CHAR)) (RPAQ? RS232C.ERROR.STREAM PROMPTWINDOW) (RPAQ? RS232C.DEFAULT.INIT.INFO (create RS232C.INIT BaudRate _ 1200 BitsPerSerialChar _ 8 Parity _ ( QUOTE NONE) NoOfStopBits _ 1 FlowControl _ (create RS232C.XONXOFF FLAG _ 1 XON.CHAR _ (CHARCODE ^Q) XOFF.CHAR _ (CHARCODE ^S)))) (PUTPROPS DLRS232C COPYRIGHT ("Xerox Corporation" 1985 1986)) NIL