(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) (FILECREATED "25-Oct-2021 15:12:34" ("compiled on " |{DSK}larry>medley>sources>MAIKOETHER.;2|) "23-Oct-2021 14:55:09" |brecompiled| |changes:| |nothing| |in| "FULL 22-Oct-2021 ..." |dated| "22-Oct-2021 22:15:17") (FILECREATED "25-Oct-2021 15:12:33" |{DSK}larry>medley>sources>MAIKOETHER.;2| 28792 |changes| |to:| (FNS \\DISPLAYLINE) (VARS MAIKOETHERCOMS) |previous| |date:| "25-Mar-2021 09:50:57" |{DSK}larry>medley>sources>MAIKOETHER.;1|) \\10MB.RESTART.ETHER :D8 NIL }9NIL NIL () \\10MB.STARTDRIVER :D8 (P 0 CSB I 2 MYNSNUMBER I 1 RESTARTFLG I 0 NDB) ±}8ªo ¿@````Ö@hdBµijd @É`ª¿@ÉjÍ``lÐ}<@g@d´dið¬3µg@hhgggg @(171 ADD.PROCESS 87 \\ALLOCATE.ETHERPACKET 70 \\10MB.TURNONETHER 18 ERROR 7 \\INIT.ETHER.BUFFER.POOL) (165 DELETE 160 AFTEREXIT 155 SYSTEM 150 RESTARTABLE 138 QUOTE 121 \\10MBWATCHER 109 \\MAIKO.INPUT.PACKET 104 \\10MBPACKETLENGTH 92 \\MAIKO.INPUT.PACKET 81 \\MAIKO.INPUT.PACKET 55 \\10MB.INPUT.TIMEOUT 49 \\10MB.EXPECTED.RECEIVE.INTERVAL 44 \\RCLKSECOND 39 \\10MB.RAWPACKETQ 33 |SYSQUEUETYPE#| 25 |SYSQUEUETYPE#|) ( 13 "Unable to create buffer pool") \\10MB.TURNOFFETHER :D8 NIL }8NIL NIL () \\10MB.TURNONETHER :D8 (P 0 CSB I 5 OUTINTERRUPT I 4 ININTERRUPT I 3 NSHOSTNUMBER I 2 NEWSTATE I 1 SMASHSTATE I 0 NDB) b@ÉHµ@`lÀÐX¿HjÍHjÍC²CiðœH`l&ÐlÄ†HC ¿E”HEÍ¿D”HDÍ¿HjÍHjÍHjÍ };}9@(61 \\STORENSHOSTNUMBER 10 \\MAIKO.ETHERSUSPEND) (47 |\\InterfacePage| 19 \\IOPAGE) () \\10MBSENDPACKET :D8 (P 6 \\INTERRUPTABLE P 2 COPYPACKET I 1 PACKET I 0 NDB) À`›Ag ¿AÊpjð²*`AlÐHÈIÈð´HÈIÈð´ HÈIÈð²LJlÐAlÐAÈkØÄ¿J@¿J`AÈ!KµCLÍ¿`›Jg ¿J AÈdlñ¢¿lAlÐ}=¿Ah¿A i½LMð“M°·K[°®(172 \\REQUEUE.ETHERPACKET 138 \\HANDLE.RAW.PACKET 131 \\MAYBEPRINTPACKET 70 \\ALLOCATE.ETHERPACKET 16 \\MAYBEPRINTPACKET) (126 RAWGET 119 \\RAWTRACING 99 \\10MBTYPE.TRANSLATIONS 30 \\MY.NSADDRESS 11 RAWPUT 4 \\RAWTRACING) () \\10MBWATCHER :D8 (P 4 \\INTERRUPTABLE P 3 PACKET P 2 MESSAGE-LENGTH P 1 MESSAGE-BUFFER P 0 CNTR I 0 NDB) cj1}x²*Iµn Yn}yZ˜IkJ„o ¿}?¿@ [Kµ¿j¸°¹ ¿HkÔX`ýñ²å°¤(81 \\HANDLE.RAW.PACKET 71 BLOCK 61 \\MAIKO.INPUT.INTERRUPT 47 PROMPTPRINT 36 SUBSTRING 19 ALLOCSTRING) (91 \\MAXWATCHERGETS) ( 42 "?? system message: polling failed") \\MAIKO.10MBSENDPACKET :D8 (L (1 PACKET 0 NDB) P 4 \\INTERRUPTABLE) Ï`›Ag ¿AÊpjð²*`AlÐHÈIÈð´HÈIÈð´ HÈIÈð²VHlÐAlÐAÈkØÄ¿H@¿H`AÈ!IµHJÍ¿`›Hg ¿H AÈdlñ¢¿lAlÐ}=¿Ah¿A i»JKð“K°²IY°©(187 \\REQUEUE.ETHERPACKET 148 \\HANDLE.RAW.PACKET 141 \\MAYBEPRINTPACKET 70 \\ALLOCATE.ETHERPACKET 16 \\MAYBEPRINTPACKET) (177 ETHERPACKET 136 RAWGET 129 \\RAWTRACING 109 \\10MBTYPE.TRANSLATIONS 104 ETHERPACKET 94 ETHERPACKET 30 \\MY.NSADDRESS 11 RAWPUT 4 \\RAWTRACING) () \\MAIKO.10MBWATCHER :D8 (L (0 NDB) P 4 \\INTERRUPTABLE) cj1}x²*Iµn Yn}yZ˜IkJ„o ¿}?¿@ [Kµ¿j¸°¹ ¿HkÔX`ýñ²å°¤(81 \\HANDLE.RAW.PACKET 71 BLOCK 61 \\MAIKO.INPUT.INTERRUPT 47 PROMPTPRINT 36 SUBSTRING 19 ALLOCSTRING) (91 \\MAXWATCHERGETS) ( 42 "?? system message: polling failed") \\MAIKO.ETHERRESUME :D8 NIL }9NIL NIL () \\MAIKO.ETHERSUSPEND :D8 NIL }8NIL NIL () \\MAIKO.INPUT.INTERRUPT :D8 (L (0 NDB)) •`@ÉÈYjð³}HIÍ¿HlÐw¿H@¿H`HÈ!JµCKÍ¿`›Hg ¿H¿@ÉjÍ¿``lÐ}<¿¼KLð“L°·JZ°®h(93 \\ALLOCATE.ETHERPACKET 86 \\MAYBEPRINTPACKET) (121 \\MAIKO.INPUT.PACKET 116 \\10MBPACKETLENGTH 105 NDB 98 \\MAIKO.INPUT.PACKET 81 RAWGET 74 \\RAWTRACING 54 \\10MBTYPE.TRANSLATIONS 49 ETHERPACKET 39 ETHERPACKET 13 NDB 4 \\MAIKO.INPUT.PACKET) () \\NS.SETTIME :D8 (I 0 RETFLG) !@–@ ›lh}1¿(30 DAYTIME 25 \\PROCESS.RESET.TIMERS 7 STRINGP) (19 |\\TimeZoneComp|) () \\PUP.SETTIME :D8 (I 0 RETFLG) !@–@ ›lh}1¿(30 DAYTIME 25 \\PROCESS.RESET.TIMERS 7 STRINGP) (19 |\\TimeZoneComp|) () \\MAIKO.10MBSTARTDRIVER :D8 (L (2 MYNSNUMBER 1 RESTARTFLG 0 NDB)) Ž}8ªo ¿@````Ö@dhdBµijd @¿`ª¿@ÉjÍ``lÐ}<”@(138 \\MAIKO.ETHER-INTERRUPT 99 \\ALLOCATE.ETHERPACKET 81 \\10MB.TURNONETHER 18 ERROR 7 \\INIT.ETHER.BUFFER.POOL) (126 \\MAIKO.INPUT.PACKET 121 \\10MBPACKETLENGTH 111 NDB 104 \\MAIKO.INPUT.PACKET 93 \\MAIKO.INPUT.PACKET 87 NDB 66 \\MAIKO.10MB.NDB 60 \\10MB.INPUT.TIMEOUT 54 \\10MB.EXPECTED.RECEIVE.INTERVAL 49 \\RCLKSECOND 44 \\10MB.RAWPACKETQ 38 |SYSQUEUETYPE#| 30 |SYSQUEUETYPE#| 25 NDB) ( 13 "Unable to create buffer pool") \\MAIKO.10MBTURNONETHER :D8 (L (5 OUTINTERRUPT 4 ININTERRUPT 3 NSHOSTNUMBER 2 NEWSTATE 1 SMASHSTATE 0 NDB)) l@ÉHµ@`lÀÐX¿HjÍHjÍC²CiðœH`l&ÐlÄ†HC ¿E”HEÍ¿D”HDÍ¿HjÍHjÍHjÍ };}9@(71 \\STORENSHOSTNUMBER 15 \\MAIKO.ETHERSUSPEND) (57 |\\InterfacePage| 29 \\IOPAGE 24 NDB 5 NDB) () \\MAIKO.10MB.RESTART.ETHER :D8 (L (0 NDB)) }9NIL NIL () \\MAIKO.CHECKSUM :D8 (L (2 INITSUM 1 NWORDS 0 BASE)) @AB}7NIL NIL () \\MAIKO.ETHER-INTERRUPTA0003 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 4 NDB F 5 LENGTH) ·`hg`TÉÈc jð’±HUÍ¿HlÐw¿HT¿H`HÈ!IµRJÍ¿`›Hg ¿H ¿¿TÉjÍ¿``lÐ}<´`¸±ÿw»JKð“K°¨IY°Ÿh(118 \\ALLOCATE.ETHERPACKET 112 \\HANDLE.RAW.PACKET 105 \\MAYBEPRINTPACKET 15 OBTAIN.MONITORLOCK) (159 \\MAIKO.INPUT.PACKET 146 \\MAIKO.INPUT.PACKET 141 \\10MBPACKETLENGTH 130 NDB 123 \\MAIKO.INPUT.PACKET 100 RAWGET 93 \\RAWTRACING 73 \\10MBTYPE.TRANSLATIONS 68 ETHERPACKET 58 ETHERPACKET 29 NDB 20 \\MAIKO.INPUT.PACKET 10 WITH.MONITOR 4 |\\ETHERtopMonitor|) () \\MAIKO.ETHER-INTERRUPT :D8 (P 4 \\INTERRUPTABLE P 3 SI::*RESETFORMS* P 2 SI::*LOCKED-MONITOR* P 1 LENGTH P 0 NDB) 8`1`jÏ¿jdðhðhZ»g ¿$h(48 SI::MONITOR-UNWIND 43 \\MVLIST 38 \\MAIKO.ETHER-INTERRUPTA0003) (33 SI::MONITOR-UNWIND 12 \\INTERRUPTSTATE 4 \\MAIKO.10MB.NDB) () \\MAIKO.CONSOLE-LOG-PRINT :D8 NIL S `jÏ¿jdðhð}x´<` ¿Hµn Xn}yY˜HkI„o` ¿°Ã(77 PRIN1 61 SUBSTRING 44 ALLOCSTRING 32 FRESHLINE) (72 PROMPTWINDOW 27 PROMPTWINDOW 7 \\INTERRUPTSTATE) ( 67 "?? system message: polling failed") \\MAIKO.IO-INTERRUPT :D8 NIL D`jÏ ¿jdðhð`1HµhY`åZjð³J–J §I»jK¿HX°×(52 \\FZEROP) (36 \\MAIKO.IO-INTERRUPT-FLAGS 19 \\MAIKO.IO-INTERRUPT-VECTOR 4 \\INTERRUPTSTATE) () (RPAQQ MAIKOETHERCOMS ((FNS \\10MB.RESTART.ETHER \\10MB.STARTDRIVER \\10MB.TURNOFFETHER \\10MB.TURNONETHER \\10MBSENDPACKET \\10MBWATCHER \\MAIKO.10MBSENDPACKET \\MAIKO.10MBWATCHER \\MAIKO.ETHERRESUME \\MAIKO.ETHERSUSPEND \\MAIKO.INPUT.INTERRUPT \\NS.SETTIME \\PUP.SETTIME \\MAIKO.10MBSTARTDRIVER \\MAIKO.10MBTURNONETHER \\MAIKO.10MB.RESTART.ETHER \\MAIKO.CHECKSUM) (INITVARS (\\MAIKO.INPUT.PACKET) (|\\ETHERtopMonitor| (CREATE.MONITORLOCK "ETHERTopMonitor"))) (DECLARE\: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP) 10MBDRIVER) (GLOBALVARS \\MAIKO.INPUT.PACKET |\\ETHERtopMonitor|) (* |;;| "The NDB for Maiko's 10MB connection; used by \\MAIKO.ETHER-INTERRUPT:") (GLOBALVARS \\MAIKO.10MB.NDB) (GLOBALVARS \\MAIKO.IO-INTERRUPT-FLAGS \\MAIKO.IO-INTERRUPT-VECTOR)) ( ADDVARS (\\MAIKO.MOVDS (\\MAIKO.10MBSTARTDRIVER \\10MB.STARTDRIVER) (\\MAIKO.10MBWATCHER \\10MBWATCHER ) (\\MAIKO.10MBSENDPACKET \\10MBSENDPACKET) (\\MAIKO.ETHERSUSPEND \\10MB.TURNOFFETHER) ( \\MAIKO.10MBTURNONETHER \\10MB.TURNONETHER) (\\MAIKO.ETHERRESUME \\10MB.RESTART.ETHER) ( \\MAIKO.CHECKSUM \\CHECKSUM))) (COMS (* \; "MAIKO handler for new interrupt-driven incoming ethernet communication, rather than polling for it.") (FNS \\MAIKO.ETHER-INTERRUPT)) (COMS (* \; "MAIKO Log & Console message handling. Interrupt-driven message printing, instead of polled printing." ) (FNS \\MAIKO.CONSOLE-LOG-PRINT)) (COMS (* |;;| "Asynchronous I/O handling") (FNS \\MAIKO.IO-INTERRUPT) (VARS \\EPT.3TO10 (\\MAIKO.IO-INTERRUPT-FLAGS (\\CREATECELL \\FIXP)) ( \\MAIKO.IO-INTERRUPT-VECTOR NIL))))) (RPAQ? \\MAIKO.INPUT.PACKET) (RPAQ? |\\ETHERtopMonitor| (CREATE.MONITORLOCK "ETHERTopMonitor")) (ADDTOVAR \\MAIKO.MOVDS (\\MAIKO.10MBSTARTDRIVER \\10MB.STARTDRIVER) (\\MAIKO.10MBWATCHER \\10MBWATCHER) (\\MAIKO.10MBSENDPACKET \\10MBSENDPACKET) (\\MAIKO.ETHERSUSPEND \\10MB.TURNOFFETHER) ( \\MAIKO.10MBTURNONETHER \\10MB.TURNONETHER) (\\MAIKO.ETHERRESUME \\10MB.RESTART.ETHER) ( \\MAIKO.CHECKSUM \\CHECKSUM)) (RPAQQ \\EPT.3TO10 513) (RPAQ \\MAIKO.IO-INTERRUPT-FLAGS (\\CREATECELL \\FIXP)) (RPAQQ \\MAIKO.IO-INTERRUPT-VECTOR NIL) (PUTPROPS MAIKOETHER COPYRIGHT ("Venue & Xerox Corporation" 1988 1989 1990 1991 2021)) NIL