(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "29-Jan-98 10:12:58" ("compiled on " {DSK}disk2>jdstools>lc3>lispcore3.0>sources>TRSERVER.;1) "30-Mar-95 20:33:04" bcompl'd in "Medley 14-Aug-95 ..." dated "14-Aug-95 15:27:48") (FILECREATED "17-May-90 15:58:24" {DSK}local>lde>lispcore>sources>TRSERVER.;2 17572 changes to%: (VARS TRSERVERCOMS) previous date%: " 6-Jun-88 11:27:47" {DSK}local>lde>lispcore>sources>TRSERVER.;1) \DOTELERAID :D8 NIL l~(4 \TELERAIDSERVER) NIL () \TELERAIDINIT :D8 NIL fod od `l `` (99 \LOCKWORDS 64 \LOCKPAGES 52 \ALLOCATE.ETHERPACKET 30 \LOCKVAR 12 \LOCKFN) (92 BITMAP 87 \TELERAIDBITMAPS 82 \TELERAIDBLOCK 75 BITMAP 70 \TELERAIDBITMAPS 57 \TELERAIDPACKET 45 ETHERPACKET 40 \TELERAIDPACKET) ( 22 (\TELERAIDPACKET \TELERAIDBUFFER \TELERAIDIOCB \TELERAIDBLOCK \LOCALNDBS \PUP.READY \DEFSPACE) 4 (\TELERAIDSERVER \TELERAIDCOMMAND \DOTELERAID \TELERAIDGET \TELERAIDSEND \TELERAIDSETUP \TELERAIDENTRY \TELERAIDEXIT \TELEBLTCURSOR \3MBRAWTRANSMIT \3MBRAWRECEIVE \WRITERAWPBI \READRAWPBI \GETPACKETBUFFER \10MBRAWRECEIVE \10MBRAWTRANSMIT \TELERAIDRELEASE \10MBRAWENCAPSULATE \10MBSETUPRECEIVER FLIPCURSOR \KEYBOARDON \KEYBOARDOFF \10MB.TURNONETHER \QUEUE.OUTPUT.IOCB \QUEUE.INPUT.IOCB \10MB.GETPACKETSTATUS \10MB.GETPACKETLENGTH SETMAINTPANEL \TELERAIDBREAK \FREESTACKBLOCK \DOHELPINTERRUPT1 \MAKEFRAME \DoveEther.ByteSwapIOCB \DoveEther.DeQueue \DoveEther.EnQueue \DoveEther.GetPacketStatus \DoveEther.MakeSureOff \DoveEther.QueueInput \DoveEther.QueueOutput \DoveEther.TurnOn)) \TELERAIDSERVER :D8 (L (0 METADEBUGGING))  `` H@ ZJHIJ I#dlzId%lj$lI%ؼI$Ldqn0n0Il,K( ]VMjQM`kl`Il,`nĿInl"Il#HI +dlIl,^djjIl"Il#HI BkNlؼNLdqn0n0KN@ ]MjM`kl``KlNM`kil`Il"Il#HI lyI$I%__Il#HI k_nN KHIJ ;I#l*OnI%jI$Ok؍I%OkI$OiHI Ok԰hH hHI `lj`njE`lP H dgHi @#k~gH h`l `l"w`l _`OjO`l ``ln`lk(573 \TELEBLTCURSOR 558 \TELERAIDEXIT 538 HARDRESET 530 \TELERAIDEXIT 513 \TELERAIDCOMMAND 506 \TELEBLTCURSOR 464 \TELERAIDRELEASE 455 \TELERAIDEXIT 440 \TELERAIDRELEASE 382 \TELERAIDGET 364 \TELERAIDSEND 330 \TELERAIDSEND 252 \LOOKUPPAGEMAP 210 \TELERAIDSEND 165 \TELERAIDSEND 103 \LOOKUPPAGEMAP 34 \TELERAIDGET 19 \TELERAIDENTRY) (645 \MISCSTATS 632 \MISCSTATS 625 \RCLKSECOND 617 \MISCSTATS 600 \RCLKSECOND 588 \MISCSTATS 579 \MISCSTATS 565 \TELERAIDBLOCK 549 RETURN 519 RESET 498 \TELERAIDBLOCK 483 \EM.KBDAD2 470 \EM.KBDAD3 308 \VMEMACCESSFN 299 \TELERAIDBUFFER 281 \TELERAIDBUFFER 274 \VMEMACCESSFN 266 \TELERAIDBUFFER 136 \TELERAIDBUFFER 125 \VMEMACCESSFN 117 \TELERAIDBUFFER 9 \TELERAIDPACKET 4 \LOCALNDBS) () \TELEBLTCURSOR :D8 (L (0 CURSOR)) `@l`l(23 \DoveDisplay.SetCursorShape) (13 \MACHINETYPE 4 \EM.CURSORBITMAP) () \TELERAIDCOMMAND :D8 (L (0 NDB)) f`njs`l0 `nj`lj`nj`lj`nji`l hg`njs`l@ `nj`lj`nj`lj`nji`l hmg`nj`ljg@ `lj`lj`nj`lj`nji`l h`l`l`nj|`l` `nj`lj`nj`lj`nji`l hQ`l `nj/`l@j!`l `l (611 \TELEBLTCURSOR 598 \FLUSHVM 593 \TELEBLTCURSOR 550 \TELEBLTCURSOR 537 RAID 528 \TELEBLTCURSOR 442 \TELEBLTCURSOR 388 \TELEBLTCURSOR 303 SETMAINTPANEL 274 \TELERAIDBREAK 241 \TELEBLTCURSOR 155 \TELEBLTCURSOR 113 \TELEBLTCURSOR 27 \TELEBLTCURSOR) (603 \TELERAIDBLOCK 585 \TELERAIDBLOCK 571 \EM.KBDAD2 556 \EM.KBDAD1 542 \TELERAIDBLOCK 520 \TELERAIDBLOCK 504 \EM.KBDAD2 491 \EM.KBDAD3 476 \EM.KBDAD2 462 \EM.KBDAD3 447 \EM.KBDAD3 434 \TELERAIDBLOCK 419 \EM.KBDAD3 407 \MACHINETYPE 395 \MACHINETYPE 380 \TELERAIDBLOCK 364 \EM.KBDAD2 351 \EM.KBDAD3 336 \EM.KBDAD2 322 \EM.KBDAD3 308 \EM.KBDAD0 295 NDB 280 \EM.KBDAD0 260 \EM.KBDAD2 254 RETURN 233 \TELERAIDBLOCK 217 \EM.KBDAD2 204 \EM.KBDAD3 189 \EM.KBDAD2 175 \EM.KBDAD3 160 \EM.KBDAD3 147 \TELERAIDBLOCK 132 \EM.KBDAD3 126 RESET 105 \TELERAIDBLOCK 89 \EM.KBDAD2 76 \EM.KBDAD3 61 \EM.KBDAD2 47 \EM.KBDAD3 32 \EM.KBDAD0 19 \TELERAIDBLOCK 4 \EM.KBDAD0) () \TELERAIDBREAK :D8 NIL `a`lp H``Z`kH`jkHkHdgiAgkHjkHkH l XkN`jkNkNgkddHjHlلkHdldldldl ihUJ`nj`lj`nj`lj`njjiv`l `nj`lj`nj`lj`nj`l h`l hkH\dkL]kMlMkMؽgLMHd 'gd l(H [dkKHd YJ`I`Ig(500 \MAKEFRAME 484 \FREESTACKBLOCK 461 \MAKEFRAME 408 \TELEBLTCURSOR 393 \TELEBLTCURSOR 307 \TELEBLTCURSOR 218 FLIPCURSOR 22 \TELEBLTCURSOR) (527 RETURN 519 \InterfacePage 510 \InterfacePage 468 \DOHELPINTERRUPT1 451 \DOHELPINTERRUPT1 400 \TELERAIDBLOCK 385 \TELERAIDBLOCK 371 \EM.KBDAD2 357 \EM.KBDAD3 342 \EM.KBDAD2 328 \EM.KBDAD3 313 \EM.KBDAD2 299 \TELERAIDBLOCK 281 \EM.KBDAD2 268 \EM.KBDAD3 253 \EM.KBDAD2 239 \EM.KBDAD3 224 \EM.KBDAD2 152 \MP.ERROR 95 RAID 84 \MP.ERROR 49 \InterfacePage 41 \InterfacePage 28 \InterfacePage 14 \TELERAIDBLOCK 4 \InterfacePage) () \TELERAIDGET :D8 (L (2 RECEIVER 1 PACKET 0 NDB)) @AilB@ddlgl #@`hijd @` g(101 \10MBSETUPRECEIVER 89 \10MB.TURNONETHER 36 \TELEBLTCURSOR 6 \KEYBOARDOFF) (106 \10MBRAWRECEIVE 96 \TELERAIDPACKET 79 \TELERAIDBLOCK 67 \3MBRAWRECEIVE 54 NDB 44 \PUP.READY 28 \TELERAIDBLOCK 20 \EM.CURSORBITMAP 12 \TELERAIDBLOCK) () \TELERAIDEXIT :D8 (L (1 RESET 0 NDB)) 3@dl @h` `l A(48 \KEYBOARDON 40 \TELEBLTCURSOR 26 \10MB.TURNONETHER) (32 \TELERAIDBLOCK 21 \TELERAIDBLOCK 7 NDB) () \3MBRAWRECEIVE :D8 (L (1 PACKET 0 NDB) P 0 \INTERRUPTABLE) , YAlIlIkĿIAA!A(7 \READRAWPBI) (35 ETHERPACKET) () \3MBRAWTRANSMIT :D8 (L (1 PACKET 0 NDB) P 0 \INTERRUPTABLE) *Ab YdlAlAkI i(38 \WRITERAWPBI 15 \GETPACKETBUFFER) (5 ETHERPACKET) () \10MBRAWRECEIVE :D8 (L (2 METADEBUGGING 1 PACKET 0 NDB)) S`l`k@A h`B djk`A` AA!A(66 \10MB.GETPACKETLENGTH 40 \10MB.GETPACKETSTATUS 27 \10MBSETUPRECEIVER) (74 ETHERPACKET 61 \TELERAIDIOCB 53 \10MB.GETGARBAGE 34 \TELERAIDIOCB 14 \TELERAIDIOCB 4 \MACHINETYPE) () \10MBRAWTRANSMIT :D8 (L (1 PACKET 0 NDB)) +@`AlAdll ` jh(35 \10MB.GETPACKETSTATUS 25 \QUEUE.OUTPUT.IOCB) (30 \TELERAIDIOCB 5 \TELERAIDIOCB) () \10MBRAWENCAPSULATE :D8 (L (2 LENGTH 1 PACKET 0 NDB)) &AlBkAlAllAl`l&lNIL (29 \InterfacePage) () \10MBSETUPRECEIVER :D8 (L (1 PACKET 0 NDB)) @`Al` (19 \QUEUE.INPUT.IOCB) (14 \10MBPACKETLENGTH 5 \TELERAIDIOCB) () (PRETTYCOMPRINT TRSERVERCOMS) (RPAQQ TRSERVERCOMS ((FNS \DOTELERAID \TELERAIDINIT \TELERAIDSERVER \TELEBLTCURSOR \TELERAIDCOMMAND \TELERAIDBREAK \TELERAIDGET \TELERAIDSEND \TELERAIDRELEASE \TELERAIDENTRY \TELERAIDEXIT \3MBRAWRECEIVE \3MBRAWTRANSMIT \10MBRAWRECEIVE \10MBRAWTRANSMIT \10MBRAWENCAPSULATE \10MBSETUPRECEIVER) (INITVARS ( \TELERAIDBUFFER) (\TELERAIDBLOCK)) (BITMAPS \TELERAIDBITMAPS) (DECLARE%: EVAL@COMPILE DONTCOPY ( GLOBALVARS \TELERAIDPACKET \TELERAIDBUFFER \TELERAIDIOCB \TELERAIDBLOCK \TELERAIDBITMAPS) (RECORDS TRBLOCK) (MACROS \TELEKBDWAIT) (CONSTANTS \#WORDS.CURSOR) (FILES (LOADCOMP) LLETHER 10MBDRIVER REMOTEVMEM LLFAULT)) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\TELERAIDINIT))))) (RPAQ? \TELERAIDBUFFER) (RPAQ? \TELERAIDBLOCK) (RPAQQ \TELERAIDBITMAPS #*(16 160)@@@@@@NA@@@@@@NA@@@@@@@@IJML@@NAHOML@@NAIJML@@@@@@@@@@@@@@@@@@@@H@@@L@@@N@@@O@@@OH@@OL@@ON@@O@@@MH@@IH@@@L@@@L@@@F@@@F@@@C@@@C@@N@@@DNHNDHHHDNHNDHHHDNNN@@@@@@@@@@@@N@@@ICGFIEBENGBEJEBEIEGF@@@@@@@@@@@@@@@@@@GH@@DD@HDDALDDBJDD@HDD@HDD@HGH@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DD@@FD@HFDALEDBJED@HDL@HDL@HDD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FDELIFMBHGMBHEEBHEEBIDEBFDEL@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@N@@AICBGNDJIICJIIDJIIGGG@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@A@HHA@HJMBOCADHJALHJABOBAA@@@@@@@@@@@@@@@@@@@@GHD@HDJ@H@J@HAA@HEO@GJ@H@@@@@@@@DBMOFBDDEBHDDJ@DDF@DDB@D@@@@@@@@@@@@FDJ@HJJ@LJJ@BNJLJJD@LJD@@@@@@JDN@KEB@KE@@JMF@JMB@JEL@@@@@@@@ ) (\TELERAIDINIT) (PUTPROPS TRSERVER COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1988 1990)) NIL