(FILECREATED " 9-Aug-85 13:13:11" ("compiled on " {ERIS}SOURCES>PROC.;26) "23-Jul-85 01:45:24" recompiled changes: PROCESSWORLD \RELEASE.PROCESS \SELECTPROCESS PROCESS.BACKTRACE in "" dated "23-Jul-85 01:58:14") (FILECREATED " 9-Aug-85 13:11:58" {ERIS}SOURCES>PROC.;26 120716 changes to: (FNS \RELEASE.PROCESS PROCESSWORLD PROCESS.BACKTRACE \SELECTPROCESS) previous date: " 5-Aug-85 08:27:18" {ERIS}SOURCES>PROC.;24) PROCESSWORLDA0009A0010 D1 (NAME ERRORSET F 0 RESULT F 1 MACROY) "i oi ki Phll ci(34Q LVLPRINT 22Q SPACES 14Q PRIN1 3 TERPRI) NIL ( 10Q "??? Process mech. confused - strange RESULT in SCHEDULE") PROCESSWORLDA0009 D1 (NAME ERRORSET P 4 RESETSTATE P 3 MACROY P 1 OLDVALUE P 0 RESULT F 5 RESETVARSLST) \``X`g i 1gIhhUc og gJc gJ Li(130Q ERROR! 122Q APPLY 76Q PROCESSWORLDA0009A0010 43Q OUTPUT 36Q RETFROM 22Q \START.PROCESSES) (113Q OUTPUT 102Q ERROR 73Q INTERNAL 51Q OUTPUT 33Q PROCESSWORLD 26Q PSTAT.QUIT 13Q \PROCESSES 10Q PROCESS 5 #SCHEDULER#) ( 70Q (PROCESSWORLDA0009A0010)) PROCESSWORLD D1 (L (0 FLG)) w @gL`d h`` `g h`dj`h`i h`o@`d``ldI dkjg o ```Z`AL!MJhhJ_dgO OXf@jOj@hROdhE`Od6Od Od8Oghk Oid iO O_NOh^L\EO&d[:KK K g ghgggggi `$g ghgggggi g ghgggi `h HTogggggi X``H``gH `` Hoi `HH H (1163Q \RUN.PROCESS 1156Q \MAKE.PROCESS0 1132Q PROCESSWORLDA0009 1114Q MEMB 1102Q PUTWINDOWPROP 1042Q ADD.PROCESS 766Q ADD.PROCESS 741Q FIND.PROCESS 732Q ADD.PROCESS 677Q FIND.PROCESS 663Q ADD.PROCESS 630Q FIND.PROCESS 615Q \RUN.PROCESS 610Q \MAKE.PROCESS0 531Q \RELEASE.PROCESS 520Q \RELEASE.PROCESS 346Q \RELEASE.PROCESS 226Q CREATE.EVENT 213Q CREATE.EVENT 115Q RETTO 53Q PUTWINDOWPROP 17Q \RELEASE.PROCESS) (1150Q PROCESS 1143Q \PROCESSES 1137Q \PROCESSES 1121Q \TTY.PROCESS 1111Q \PROCESSES 1106Q \TTY.PROCESS 1076Q PROCESS 1073Q \TopLevelTtyWindow 1065Q \TopLevelTtyWindow 1062Q PROCESS 1053Q WINDOWTYPE# 1047Q \TopLevelTtyWindow 1035Q SCHEDULE 1032Q ALWAYS 1027Q RESTARTABLE 1024Q EXEC 1021Q NAME 1003Q PROCESS 1000Q PROCESS 775Q \TIMERQHEAD 771Q \TIMERQHEAD 761Q SCHEDULE 756Q SYSTEM 753Q RESTARTABLE 746Q \TIMER.PROCESS 736Q \TIMER.PROCESS 725Q SCHEDULE 722Q SYSTEM 717Q RESTARTABLE 714Q MOUSE 711Q NAME 704Q \MOUSE.PROCESS 674Q MOUSE 667Q TOPW 656Q SCHEDULE 653Q SYSTEM 650Q RESTARTABLE 645Q BACKGROUND 642Q NAME 635Q \BACKGROUND.PROCESS 625Q BACKGROUND 602Q PROCESS 572Q PROCESS 504Q PROCESS 473Q DELETED 470Q PROCESS 457Q PROCESS 445Q PROCESS 432Q PROCESS 422Q \TTY.PROCESS 410Q PROCESS 372Q PROCESS 357Q PROCESS 336Q EXEC 331Q PROCESS 316Q PROCESSQUEUE 302Q PROCESSQUEUE 276Q PROCESSQUEUE 270Q \PROCESSES 254Q \PROCESSES 246Q \HIGHEST.PRIORITY.QUEUE 241Q PROCESSQUEUETYPE# 235Q \HIGHEST.PRIORITY.QUEUE 231Q \PROCESS.AFTEREXIT.EVENT 216Q \TTY.PROCESS.EVENT 210Q TTY 201Q PROCESS 175Q #SCHEDULER# 153Q PROCESSTYPE# 144Q PROCESSTYPE# 137Q #SCHEDULER# 123Q \RUNNING.PROCESS 111Q PSTAT.QUIT 105Q #SCHEDULER# 101Q #SCHEDULER# 71Q PROCESS 63Q #SCHEDULER# 60Q \RUNNING.PROCESS 50Q PROCESS 45Q \TopLevelTtyWindow 37Q WINDOWTYPE# 33Q \TopLevelTtyWindow 30Q \TTY.PROCESS 11Q \PROCESSES 3 OFF) ( 1126Q (PROCESSWORLDA0009) 1016Q (\PROC.REPEATEDLYEVALQT) 223Q "After Exit" 130Q (Processes are already on)) ADD.PROCESS D1 (L (0 ARGS) P 26Q \INTERRUPTABLE) =e``@Hj@[K HdlA_l_(_&O(dO&Ldgi] ka_O(a_dgO _gOOdgO_gO_OdgO_ gO_"|OdgO_$lgO_`OdgO_PgOFOdgi9gO/HlOgOgOiO_OOOO_O(l_(3LgLdgh"iLgLdgiggL \OK _`dOdjdidKdLdJdjdMkj0dO,dO .dO"4dO$6dOdO"dO(dO:l_*dO* dk_O9OO O`IKO NO gO Ok@O(1054Q PUTWINDOWPROP 1042Q \RUN.PROCESS 1031Q \MAKE.PROCESS0 1017Q \INVALIDATE.PROCESS.WINDOW 775Q \GET.PRIORITY.QUEUE 557Q \UNIQUE.PROCESS.NAME 545Q \ILLEGAL.ARG 137Q \INSUREWINDOW 33Q \ILLEGAL.ARG) (1064Q PROCESS 1047Q PROCESS 1013Q \PROCESSES 1007Q \PROCESSES 767Q PROCESS 762Q PROCESS 564Q PROCESSTYPE# 540Q HARDRESET 533Q HARDRESET 523Q ALWAYS 514Q YES 477Q NEVER 470Q NO 415Q NO 406Q SYSTEM 364Q SUSPEND 352Q SCHEDULE 335Q RESTARTABLE 320Q RESTARTFORM 301Q INFOHOOK 264Q TTYEXITFN 245Q TTYENTRYFN 227Q BEFOREEXIT 207Q AFTEREXIT 171Q NAME 157Q SMALLP 150Q PRIORITY 127Q WINDOW 75Q SYSTEM 11Q PROC.DEFAULT.PRIORITY 6 \RUNNING.PROCESS) () DEL.PROCESS D1 (L (1 INTERNAL 0 PROC)) =@d`d j@ HddgAoH H i(71Q \FLUSH.PROCESS 64Q ERROR 27Q FIND.PROCESS) (47Q EXEC 42Q PROCESS 13Q PROCESS 5 PROCESSTYPE#) ( 60Q "Can't kill EXEC") PROCESS.RETURN D1 (L (0 VALUE)) .`H`HgH@Hi o@ (53Q ERROR 42Q DEL.PROCESS) (32Q PROCESS 24Q NORMAL 21Q PROCESS 12Q PROCESSTYPE# 2 \RUNNING.PROCESS) ( 47Q "PROCESS.RETURN called from outside of ProcessWorld") FIND.PROCESS D1 (L (1 ERRORFLG 0 PROC)) \@`@ jhh@`HhH&AH jHY@IiHXA @o (131Q ERROR) (76Q PROCESS 60Q PROCESS 33Q \PROCESSES 13Q PROCESS 4 PROCESSTYPE#) ( 126Q "not a live process") MAP.PROCESSES D1 (L (0 MAPFN)) 4` HhYd jdIl@HX(5 \APPEND2) (45Q PROCESS 37Q PROCESS 24Q PROCESS 2 \PROCESSES) () PROCESSP D1 (L (0 PROC)) @`@ jhhNIL (13Q PROCESS 4 PROCESSTYPE#) () RELPROCESSP D1 (L (0 PROCHANDLE)) @` @ jhNIL (13Q PROCESS 4 PROCESSTYPE#) () RESTART.PROCESS D1 (L (0 PROC) P 2 \INTERRUPTABLE) @d`d j@ HH`Hd`g` xkI`jkIkIkIkIgHI &kIjkIkI l YjoH HdkH`` H(267Q \RUN.PROCESS 232Q ERROR 164Q \MAKESTACKP 77Q RETTO 27Q FIND.PROCESS) (264Q \PROC.RESTARTME 256Q \PROC.RESTARTME 253Q PROCESS 240Q PROCESS 155Q \MAKE.PROCESS0 104Q PROCESS 74Q \PROC.RESTARTME 71Q \MAKE.PROCESS0 63Q \RUNNING.PROCESS 53Q \PROC.RESTARTME 50Q PROCESS 13Q PROCESS 5 PROCESSTYPE#) ( 226Q "Process's stack is malformed") WAKE.PROCESS D1 (L (1 STATUS 0 PROC) P 1 \INTERRUPTABLE) F@d`d j@ H(HdkHA` A`i(66Q \RUN.PROCESS 27Q FIND.PROCESS) (100Q PSTAT.WAKEUP 72Q PROCESS 63Q PSTAT.WAKEUP 45Q PROCESS 13Q PROCESS 5 PROCESSTYPE#) () SUSPEND.PROCESS D1 (L (0 PROC)) :@`Hd`%"d`@d j@i H(66Q \SUSPEND.PROCESS 61Q FIND.PROCESS 24Q \PROCESS.GO.TO.SLEEP) (43Q PROCESS 33Q PROCESSTYPE# 15Q \RUNNING.PROCESS 5 \RUNNING.PROCESS) () PROCESS.RESULT D1 (L (1 WAITFORRESULT 0 PROCESS)) X@bd j@A@ @@o HII@d jĿH (123Q AWAIT.EVENT 65Q CREATE.EVENT 62Q CONCAT) (107Q PROCESS 51Q PROCESS 45Q PROCESS 35Q PROCESS 23Q PROCESS 11Q PROCESS 3 PROCESS) ( 57Q "#Finish") PROCESS.FINISHEDP D1 (L (0 PROCESS)) @bd@ jghNIL (32Q ERROR 21Q PROCESS 11Q PROCESS 3 PROCESS) () THIS.PROCESS D1 NIL `NIL (2 \RUNNING.PROCESS) () TTY.PROCESS D1 (L (0 PROC) P 10Q \INTERRUPTABLE) ```@@dig g `@@i `2Hd j𢿰nIj`h 0[MZII$J $Hg `I6[IHlKHLH4[HIlK` _N Oh^O&(262Q NOTIFY.EVENT 171Q PROCESSPROP 157Q \NCONC2 132Q \GETSYSBUF 123Q \CARET.DOWN 63Q FIND.PROCESS 45Q FIND.PROCESS 35Q FIND.PROCESS) (257Q \TTY.PROCESS.EVENT 240Q PROCESS 233Q \CURRENTKEYACTION 226Q \TTY.PROCESS 206Q PROCESS 176Q \DEFAULTKEYACTION 166Q KEYACTION 151Q PROCESS 145Q PROCESS 116Q \CARET.UP 76Q PROCESS 66Q \TTY.PROCESS 52Q PROCESSTYPE# 42Q MOUSE 32Q EXEC 14Q \TTY.PROCESS 6 PROCESSTYPE# 2 \TTY.PROCESS) () TTY.PROCESSP D1 (L (0 PROC)) `h @``NIL (17Q \TTY.PROCESS 14Q \RUNNING.PROCESS 2 \RUNNING.PROCESS) () PROCESS.TTY D1 (L (0 PROC) F 0 TtyDisplayStream) 0@"@d`d j@ bd`P @g (55Q PROCESS.EVALV 32Q FIND.PROCESS) (52Q TtyDisplayStream 40Q \RUNNING.PROCESS 16Q PROCESS 10Q PROCESSTYPE#) () GIVE.TTY.PROCESS D1 (L (0 WINDOW)) W@d @ @ .H`ll%@ #d j@g @Y@kIh(102Q TTY.PROCESS 74Q PUTWINDOWPROP 17Q \INSUREWINDOW 12Q \ILLEGAL.ARG 4 WINDOWP) (111Q WINDOW 71Q PROCESS 56Q PROCESS 46Q WINDOW 32Q LASTMOUSEBUTTONS) () PROCESS.PREPARE.FOR.INPUT D1 NIL (2 WAIT.FOR.TTY) NIL () ALLOW.BUTTON.EVENTS D1 NIL `g` (23Q SPAWN.MOUSE) (20Q \RUNNING.PROCESS 12Q MOUSE 5 PROCESS 2 \RUNNING.PROCESS) () SPAWN.MOUSE D1 (L (0 INTERNAL) P 0 \INTERRUPTABLE) @@5g Yghgggg ig >@`g@nlKJggK d Kk[hdgIj0(140Q FIND.PROCESS 134Q PACK* 56Q FIND.PROCESS 43Q ADD.PROCESS 13Q FIND.PROCESS) (166Q PROCESS 157Q OLDMOUSE 130Q # 125Q OLDMOUSE 100Q MOUSE 73Q PROCESS 66Q PROCESS.MAXMOUSE 53Q OLDMOUSE 50Q PROCESS 37Q SYSTEM 34Q RESTARTABLE 31Q MOUSE 26Q NAME 21Q \MOUSE.PROCESS 10Q MOUSE) () \WAIT.FOR.TTY D1 NIL `d`h` (21Q AWAIT.EVENT) (16Q \TTY.PROCESS.EVENT 7 \TTY.PROCESS 2 \RUNNING.PROCESS) () WAIT.FOR.TTY D1 (L (1 NEEDWINDOW 0 MSECS) F 2 \OLDTTY F 3 TtyDisplayStream) `g` ```` ci`````K Aig S X H @l @`Id ```II h` i(220Q TTY.PROCESS 206Q TIMEREXPIRED? 160Q AWAIT.EVENT 145Q \CLOCK0 134Q OPENW 127Q OPENWP 123Q WFROMDS 116Q \GETSTREAM 45Q TTY.PROCESS 23Q SPAWN.MOUSE) (215Q \RUNNING.PROCESS 174Q \TTY.PROCESS 171Q \RUNNING.PROCESS 164Q \RUNNING.PROCESS 153Q \TTY.PROCESS.EVENT 113Q INPUT 76Q WINDOWTYPE# 72Q TOPW 64Q \TTY.PROCESS 61Q \RUNNING.PROCESS 54Q \RUNNING.PROCESS 42Q \RUNNING.PROCESS 35Q \TTY.PROCESS 32Q \RUNNING.PROCESS 26Q \RUNNING.PROCESS 20Q \RUNNING.PROCESS 12Q MOUSE 5 PROCESS 2 \RUNNING.PROCESS) () PROCESSPROP D1 (L (0 ARGS) P 5 OLDVALUE) e@Id`d jI ABIJdgIgIJdgIgIJdgIogI"bJdgI,RgI.EJdgI45gI6(JdgI(gI:I(\J']Hl'BJdgIK gJdgIK g>IKd2gKdgh"iKgKdgiggK JdgdgIK"dgIK,gIK.JdgIK4gIK6JdgIK(gIK:K*LdJIL(JNdN^LIJKh(JK (1031Q LISTPUT 537Q \ILLEGAL.ARG 437Q \INVALIDATE.PROCESS.WINDOW 431Q \UNIQUE.PROCESS.NAME 376Q PROCESS.WINDOW 37Q FIND.PROCESS) (1013Q PROCESS 750Q PROCESS 724Q PROCESS 716Q RESTARTFORM 706Q PROCESS 677Q USERDATA 665Q PROCESS 657Q TTYEXITFN 647Q PROCESS 640Q TTYENTRYFN 626Q PROCESS 620Q BEFOREEXIT 610Q PROCESS 601Q AFTEREXIT 570Q PROCESS 561Q INFOHOOK 550Q FORM 532Q HARDRESET 525Q HARDRESET 515Q ALWAYS 506Q YES 471Q NEVER 462Q NO 453Q PROCESS 444Q RESTARTABLE 425Q PROCESS 415Q NAME 403Q PRIORITY 366Q WINDOW 341Q PROCESS 332Q PROCESS 324Q RESTARTFORM 315Q PROCESS 306Q USERDATA 275Q PROCESS 267Q TTYEXITFN 260Q PROCESS 251Q TTYENTRYFN 240Q PROCESS 232Q BEFOREEXIT 223Q PROCESS 214Q AFTEREXIT 203Q PROCESS 175Q INFOHOOK 166Q PROCESS 157Q FORM 145Q PROCESS 137Q RESTARTABLE 127Q PROCESS 120Q NAME 105Q PROCESS 77Q PRIORITY 67Q PROCESS 60Q WINDOW 23Q PROCESS 15Q PROCESSTYPE#) () PROCESS.NAME D1 (L (1 NAME 0 PROC)) 3@d`d j@ HdAHA (55Q \UNIQUE.PROCESS.NAME 27Q FIND.PROCESS) (51Q PROCESS 41Q PROCESS 13Q PROCESS 5 PROCESSTYPE#) () PROCESS.WINDOW D1 (L (1 WINDOW 0 PROC)) ?@d`d j@ Hd AHA bAgH (73Q PUTWINDOWPROP 56Q \INSUREWINDOW 27Q FIND.PROCESS) (67Q PROCESS 52Q PROCESS 41Q PROCESS 13Q PROCESS 5 PROCESSTYPE#) () DISMISS D1 (L (2 NOBLOCK 1 TIMER 0 MSECSWAIT)) [ @*A`l jYlIhl @A$`ibH BhHi AH@(117Q \PROCESS.GO.TO.SLEEP 105Q TIMEREXPIRED? 63Q BLOCK 52Q \CLOCK0 23Q \CLOCK0) (127Q \\DISMISSTIMER.GLOBALRESOURCE 74Q \RUNNING.PROCESS 70Q FIXP 41Q \\DISMISSTIMER.GLOBALRESOURCE 13Q \\DISMISSTIMER.GLOBALRESOURCE) () BLOCK D1 (L (1 TIMER 0 MSECSWAIT) P 10Q \INTERRUPTABLE)  `qH`@AHYHIl!oH HiIHIHHh`K\ K[SdJ-L]jl%oL LjMJf L^jN Jfhl!oJ hA@3 Ahh @3 ``i hd_jOh(363Q DISMISS 351Q WINDOW.MOUSE.HANDLER 327Q \PROCESS.GO.TO.SLEEP 306Q \MP.ERROR 260Q \DECUSECOUNT 233Q \PROC.RESUME 207Q \MP.ERROR 66Q \MP.ERROR) (355Q BACKGROUNDFNS 345Q TOPW 333Q FIXP 265Q PROCESS 246Q PROCESS 240Q PROCESS 217Q PROCESS 214Q \RUNNING.PROCESS 167Q PROCESS 146Q PROCESSQUEUE 135Q PROCESSQUEUE 130Q \HIGHEST.PRIORITY.QUEUE 116Q PROCESSQUEUE 106Q PROCESS 102Q PROCESSQUEUE 73Q PROCESS 50Q PROCESSQUEUE 40Q PROCESS 12Q PROCESSTYPE# 2 \RUNNING.PROCESS) ( 302Q "No runnable process!!" 203Q "Process's stack has been released!" 62Q "Current process is not its queue's NEXT") WAITFORINPUT D1 (L (0 N)) u@d3 G` l j!H @ldٺYi ihIdJ @ hH!@g i H i h(157Q READP 152Q \TTYBACKGROUND 144Q \TTYBACKGROUND 140Q READP 132Q READP 123Q \GETSTREAM 101Q \CLOCKGREATERP 73Q \TTYBACKGROUND 66Q \CLOCKGREATERP 45Q READP 32Q \CLOCK0 21Q \CLOCK0) (120Q INPUT 110Q \\DISMISSTIMER.GLOBALRESOURCE 55Q \\DISMISSTIMER.GLOBALRESOURCE 11Q \\DISMISSTIMER.GLOBALRESOURCE) () \WAITFORSYSBUFP D1 (L (0 N)) \@3 Q`l jH Yih`I@ hH`h(126Q \SYSBUFP 122Q \WAIT.FOR.TTY 116Q BLOCK 111Q BLOCK 104Q \WAIT.FOR.TTY 62Q \CLOCKGREATERP 35Q \SYSBUFP 30Q \CLOCK0 17Q \CLOCK0) (76Q \TTY.PROCESS 71Q \\DISMISSTIMER.GLOBALRESOURCE 53Q \RUNNING.PROCESS 45Q \\DISMISSTIMER.GLOBALRESOURCE 7 \\DISMISSTIMER.GLOBALRESOURCE) () EVAL.AS.PROCESS D1 (L (0 FORM)) `@gg @,(15Q ADD.PROCESS) (12Q NO 7 RESTARTABLE 2 \RUNNING.PROCESS) () EVAL.IN.TTY.PROCESS D1 (L (1 WAITFORRESULT 0 FORM)) ```@,`@A (26Q PROCESS.EVAL) (21Q \TTY.PROCESS 11Q \TTY.PROCESS 6 \RUNNING.PROCESS 2 \RUNNING.PROCESS) () PROCESS.READA0001 D1 (NAME ERRORSET F 0 WINDOW F 1 PROMPT F 2 OLDW F 3 CLEAR?) -` PQ id hi cSP (50Q CLEARW 36Q TTYDISPLAYSTREAM 30Q PRIN1 21Q READ 5 TTY.PROCESS) (2 \RUNNING.PROCESS) () PROCESS.READ D1 (P 1 OLDW I 2 CLEAR? I 1 PROMPT I 0 WINDOW) `o H II (27Q TTYDISPLAYSTREAM 20Q TTY.PROCESS 14Q PROCESS.READA0001) (2 \TTY.PROCESS) ( 11Q (PROCESS.READA0001)) PROCESS.EVALV D1 (L (1 VAR 0 PROC)) J@d`d j@i AdAiAH`fhH A/IhI (106Q \SMASHLINK 72Q \SMASHLINK 30Q FIND.PROCESS) (65Q PROCESS 54Q \RUNNING.PROCESS 40Q LITATOM 13Q PROCESS 5 PROCESSTYPE#) () PROCESS.EVAL D1 (L (2 WAITFORRESULT 1 FORM 0 PROC)) h@d`d j@i `HIA,BI`2HgAIBhi B$Id2`2I`2(123Q \PROCESS.GO.TO.SLEEP 100Q \PROCESS.MAKEFRAME 30Q FIND.PROCESS) (142Q \PSTAT.NORESULT 137Q PROCESS 131Q PROCESS 115Q \PSTAT.NORESULT 110Q PROCESS 65Q \PROCESS.EVAL1 56Q \PSTAT.NORESULT 53Q PROCESS 33Q \RUNNING.PROCESS 13Q PROCESS 5 PROCESSTYPE#) () \PROCESS.EVAL1 D1 (L (2 WAITFORRESULT 1 PROC 0 FORM)) )A@,2BA`2`AkA h(44Q \RUN.PROCESS) (32Q PROCESS 25Q \PSTAT.NORESULT 20Q \PSTAT.NORESULT 15Q PROCESS 3 PROCESS) () PROCESS.APPLY D1 (L (3 WAITFORRESULT 2 ARGS 1 FN 0 PROC)) m@d`d j@i `HIAB CI`2HgABIChi C$Id2`2I`2(130Q \PROCESS.GO.TO.SLEEP 105Q \PROCESS.MAKEFRAME 47Q APPLY 30Q FIND.PROCESS) (147Q \PSTAT.NORESULT 144Q PROCESS 136Q PROCESS 122Q \PSTAT.NORESULT 115Q PROCESS 70Q \PROCESS.APPLY1 61Q \PSTAT.NORESULT 56Q PROCESS 33Q \RUNNING.PROCESS 13Q PROCESS 5 PROCESSTYPE#) () \PROCESS.APPLY1 D1 (L (3 WAITFORRESULT 2 PROC 1 ARGS 0 FN)) ,B@A 2CB`2`BkB h(47Q \RUN.PROCESS 10Q APPLY) (35Q PROCESS 30Q \PSTAT.NORESULT 23Q \PSTAT.NORESULT 20Q PROCESS 3 PROCESS) () CREATE.EVENT D1 (L (0 NAME)) `d@NIL (2 EVENTTYPE#) () NOTIFY.EVENT D1 (L (1 ONCEONLY 0 EVENT) P 3 \INTERRUPTABLE) [@b0@Z I>@k6*XJ@hZJH**HHhh*H@ iYJAh(114Q \RUN.PROCESS) (77Q PROCESS 73Q PROCESS 62Q PROCESS 56Q PROCESS 36Q PROCESS 3 EVENT) () AWAIT.EVENT D1 (L (2 TIMERP 1 TIMEOUT 0 EVENT)) @AB (10Q \PROCESS.GO.TO.SLEEP) (3 EVENT) () \UNQUEUE.EVENT D1 (L (1 EVENT 0 PROC)) VAHl!o@ 2I@H*Y@HAhH@**@dAA@*@h@h*h(21Q \MP.ERROR) (117Q PROCESS 110Q PROCESS 77Q PROCESS 55Q PROCESS 51Q PROCESS) ( 15Q "Process not on its EVENT/MONITOR queue") \ENQUEUE.EVENT/LOCK D1 (L (1 EVLOCK 0 PROC)) '@A@AX @*A@h*H@*NIL (34Q PROCESS 6 PROCESS) () OBTAIN.MONITORLOCK D1 (L (2 UNWINDSAVE 1 DONTWAIT 0 LOCK) P 3 \INTERRUPTABLE P 2 \INTERRUPTABLE F 4 RESETVARSLST F 5 \INTERRUPTABLE) p@b`U@d.Bo@hTc@H@H0H@0@H@jio@ AI@ h(151Q \PROCESS.GO.TO.SLEEP 136Q ERROR) (116Q MONITORLOCK 104Q MONITORLOCK 74Q PROCESS 64Q PROCESS 60Q MONITORLOCK 51Q MONITORLOCK 21Q MONITORLOCK 10Q \RUNNING.PROCESS 3 MONITORLOCK) ( 132Q "Trying to acquire lock exclusively owned already by this process" 34Q (RELEASE.MONITORLOCK OLDVALUE)) CREATE.MONITORLOCK D1 (L (1 EXCLUSIVE 0 NAME)) `AhHdIkjd@NIL (2 MONITORLOCKTYPE#) () RELEASE.MONITORLOCK D1 (L (1 EVENIFNOTMINE 0 LOCK) P 0 \INTERRUPTABLE F 6 OLDVALUE) @dgVb@`2IdJAh@hI0\d@EI@0Ld@(L@@h@[d*]K@h"\l!o@ KM**MMhh*M@ z(246Q \RUN.PROCESS 202Q \MP.ERROR) (231Q PROCESS 225Q PROCESS 214Q PROCESS 210Q PROCESS 163Q MONITORLOCK 143Q PROCESS 117Q MONITORLOCK 104Q MONITORLOCK 70Q PROCESS 53Q PROCESS 26Q \RUNNING.PROCESS 13Q MONITORLOCK 4 OLDVALUE) ( 176Q "Lock not found among owner's owned locks") MONITOR.AWAIT.EVENT D1 (L (3 TIMERP 2 TIMEOUT 1 EVENT 0 RELEASELOCK)) @ ABC @ (20Q OBTAIN.MONITORLOCK 14Q \PROCESS.GO.TO.SLEEP 3 RELEASE.MONITORLOCK) (7 EVENT) () \MAKE.PROCESS0A0001 D1 (NAME ERRORSET F 0 #FORM#) P,hNIL NIL () \MAKE.PROCESS0 D1 (L (1 HANDLE 0 FORM) P 20Q \INTERRUPTABLE P 16Q \PRIMIN.OFD P 15Q \PRIMOUT.OFD P 14Q \TTYWINDOW P 13Q \TERM.OFD P 12Q \INTERRUPTABLE P 11Q TtyDisplayStream P 10Q \PRIMTERMSA P 7 \PRIMTERMTABLE P 6 \PRIMREADTABLE P 5 \LINEBUF.OFD P 4 \#DISPLAYLINES P 3 \CURRENTDISPLAYLINE P 2 HELPFLAG P 1 #FORM# P 0 #MYHANDLE# F 21Q RESETVARSLST F 22Q \DRIBBLE.OFD F 23Q HELPFLAG F 24Q \LINEBUF.OFD F 25Q \PRIMREADTABLE F 26Q \PRIMTERMTABLE F 27Q \PRIMTERMSA) %A@W&gjl(`W(W*W,W.`j`g0`h2`h4l~OMg __M_gHl gHl8 H i_W"W$H0g Hog oi _HOHgDH:IO`HiH` o` ` HgW"W$H0Og`g ` h(441Q \FLUSH.PROCESS 432Q \PROCESS.UNWINDALL 355Q TERPRI 346Q PRIN1 333Q PRIN1 233Q \MAKE.PROCESS0A0001 221Q \GETSTREAM 201Q \PROCESS.UNWINDALL 151Q \MAKE.PROCESS1 144Q \SETFVARSLOT 131Q \SETFVARSLOT 106Q GETTOPVAL) (436Q \RUNNING.PROCESS 427Q RESET 421Q \PROC.RESETME 415Q ERROR 402Q PROCESS 365Q ERROR 362Q PROCESS 352Q PROMPTWINDOW 343Q PROMPTWINDOW 330Q PROMPTWINDOW 323Q PROCESS 311Q PROCESS 302Q \PROC.RESTARTME 267Q PROCESS 261Q NORMAL 256Q PROCESS 244Q PROCESS 216Q OUTPUT 206Q PROCESS 176Q HARDRESET 170Q PROCESS 135Q \DRIBBLE.OFD 122Q RESETVARSLST 103Q \TERM.OFD 64Q \InterfacePage 55Q \InterfacePage 47Q \PROCESS.MOVEFRAME 44Q \InterfacePage 33Q \DEFAULTTTYDISPLAYSTREAM 16Q \DEFAULTLINEBUF 10Q BREAK!) ( 340Q " aborted." 227Q (\MAKE.PROCESS0A0001)) \MAKE.PROCESS1 D1 (L (0 PROC) P 0 \INTERRUPTABLE) bfi @j@ kIml [@IkIjkIIlkIJl kIJl J K h(136Q \RESUME 132Q \INCUSECOUNT 34Q \DECUSECOUNT 7 \STACKARGPTR) (55Q PROCESS 27Q PROCESS 16Q PROCESS) () \PROCESS.MOVEFRAME D1 NIL b `d n ` Hl_kHH_kO`jkOjh]lOkOl\[`^H kJNYlNkI^NKm_JdOLljOl_JO JOԺNOپkJkHLKĿMkJk`kO`jkJLlJJLԺkJJOYkJMkHjHkHJlkJjkJkJ kJkkJ`jkJkkJdJHINK MHKlكHLK `J`d n J(512Q \MAKEFREEBLOCK 472Q \MAKEFREEBLOCK 222Q \MAKEFREEBLOCK 125Q \FREESTACKBLOCK) (525Q \EM.CURSORBITMAP 516Q \InterfacePage 117Q PROC.FREESPACESIZE 16Q \InterfacePage 2 \EM.CURSORBITMAP) () \RELEASE.PROCESS D1 (L (2 RESTARTFLG 1 KILLIT 0 PROC) P 3 \INTERRUPTABLE) @@IjI @jH@H @j@i AXB@` @k @l@@@hh:h@Z'@hJg @j@jj@hh(221Q PUTWINDOWPROP 115Q \INVALIDATE.PROCESS.WINDOW 106Q DREMOVE 71Q \UNQUEUE.TIMER 51Q \UNQUEUE.EVENT 31Q \DECUSECOUNT) (253Q PROCESS 240Q PROCESS 227Q PROCESS 216Q PROCESS 206Q PROCESS 175Q PROCESS 155Q PROCESS 151Q PROCESS 145Q PROCESS 133Q PROCESS 122Q PROCESS 111Q \PROCESSES 103Q \PROCESSES 56Q PROCESS 36Q PROCESS 11Q PROCESS 3 PROCESS) () \MAYBEBLOCK D1 (F 0 \INTERRUPTABLE) P(5 BLOCK) NIL () \BACKGROUND.PROCESS D1 NIL `djH(23Q BLOCK) (2 BACKGROUNDFNS) () \MOUSE.PROCESS D1 (P 1 \MOUSEBUSY P 0 \OLDTTY) {0`g9g ZJdg  J h`k0`g``d`H`Hi h`h$(166Q BLOCK 146Q TTY.PROCESS 112Q WINDOW.MOUSE.HANDLER 55Q DEL.PROCESS 46Q PROCESS.RETURN 41Q PROCESS.EVALV 26Q FIND.PROCESS) (157Q PROCESS 154Q \RUNNING.PROCESS 136Q \RUNNING.PROCESS 126Q \TTY.PROCESS 122Q \RUNNING.PROCESS 116Q \RUNNING.PROCESS 104Q MOUSE 101Q PROCESS 76Q \RUNNING.PROCESS 66Q PROCESS 63Q \RUNNING.PROCESS 36Q \MOUSEBUSY 23Q MOUSE 15Q MOUSE 10Q PROCESS 5 \RUNNING.PROCESS) () \TIMER.PROCESS D1 (P 1 \INTERRUPTABLE) *`!H Z J` (45Q \RUN.PROCESS 34Q TIMEREXPIRED? 21Q BLOCK) (42Q PSTAT.TIMEDOUT 27Q PROCESS 11Q PROCESS 2 \TIMERQHEAD) () \PROC.RESETRESTOREA0001 D1 (NAME ERRORSET) hg i(6 RESETRESTORE) (3 RESET) () \PROC.RESETRESTORE D1 (L (0 PROC) F 0 RESETVARSLST F 1 \DRIBBLE.OFD) Dg@l oi @d0@8g@l8 PQ0i (77Q RELEASE.MONITORLOCK 60Q DRIBBLE 54Q \SETFVARSLOT 21Q \PROC.RESETRESTOREA0001 11Q \SETFVARSLOT) (71Q PROCESS 45Q \DRIBBLE.OFD 37Q PROCESS 26Q PROCESS 2 RESETVARSLST) ( 15Q (\PROC.RESETRESTOREA0001)) \PROCESS.UNWINDALLA0001 D1 (NAME ERRORSET F 0 STATE) hP i(4 RESETRESTORE) NIL () \PROCESS.UNWINDALL D1 (I 0 STATE F 1 \DRIBBLE.OFD) :`Hd o H0H0 Q @gh(66Q DRIBBLE 47Q RELEASE.MONITORLOCK 25Q \PROCESS.UNWINDALLA0001) (61Q HARDRESET 42Q PROCESS 33Q PROCESS 12Q PROCESS 2 \RUNNING.PROCESS) ( 22Q (\PROCESS.UNWINDALLA0001)) \UNIQUE.PROCESS.NAME D1 (L (0 NAME)) i@ dg@@di5o@ bdgl@ @ bg@b@ l@IgH d HkԸ@(135Q FIND.PROCESS 131Q PACK* 111Q FIND.PROCESS 65Q MKATOM 56Q NCHARS 34Q ERROR 3 TYPENAME) (125Q # 74Q LISTP 44Q STRINGP 7 LITATOM) ( 30Q "Illegal Process Name") \START.PROCESSES D1 (P 0 \INTERRUPTABLE) |``Y`J[ JZSdI-K\jl%oK KjLIf K]jM Ifhl!oI (170Q \MP.ERROR 142Q \DECUSECOUNT 115Q \PROC.RESUME 71Q \MP.ERROR) (147Q PROCESS 130Q PROCESS 122Q PROCESS 101Q PROCESS 76Q \RUNNING.PROCESS 51Q PROCESS 30Q PROCESSQUEUE 17Q PROCESSQUEUE 12Q \HIGHEST.PRIORITY.QUEUE 5 #SCHEDULER#) ( 164Q "No runnable process!!" 65Q "Process's stack has been released!") \PROCESS.GO.TO.SLEEP D1 (L (3 DELETEFLG 2 TIMERP 1 TIMEOUT 0 EVLOCK) P 0 \INTERRUPTABLE) z `! O@`@j@j@OjO_d_OO*OOOOhh0l!o 'OOO l!oO YIOh@O@ OAj[KjhC=Oi h5i&OBAO ZlJl AO kOh`M^ M]WdL/N_jl%oN NjOLf N_jO Lfhl!oL (566Q \MP.ERROR 540Q \DECUSECOUNT 511Q \PROC.RESUME 464Q \MP.ERROR 370Q \ENQUEUE.TIMER 356Q \CLOCK0 307Q \RELEASE.PROCESS 252Q \ENQUEUE.EVENT/LOCK 222Q \MP.ERROR 162Q \MP.ERROR 16Q BLOCK) (545Q PROCESS 524Q PROCESS 516Q PROCESS 474Q PROCESS 471Q \RUNNING.PROCESS 443Q PROCESS 422Q PROCESSQUEUE 411Q PROCESSQUEUE 404Q \HIGHEST.PRIORITY.QUEUE 336Q PROCESS 324Q PROCESS 260Q PROCESS 237Q PROCESS 203Q PROCESS 176Q PROCESSQUEUE 171Q PROCESS 142Q PROCESSQUEUE 135Q PROCESSQUEUE 123Q PROCESSQUEUE 101Q PROCESSQUEUE 71Q PROCESS 60Q PROCESS 45Q EVENT 33Q EVENT 24Q EVENTTYPE# 5 \RUNNING.PROCESS) ( 562Q "No runnable process!!" 460Q "Process's stack has been released!" 215Q "Running process has no NEXT pointer" 157Q "Inconsistent process queue state") \PROC.RESUME D1 (L (1 OLDFX 0 FRAME)) 3fkHjkHHlkH@l kH@l Ad (60Q \DECUSECOUNT) NIL () \RUN.PROCESS D1 (L (2 BRUTALLY 1 REASON 0 PROC) P 5 \INTERRUPTABLE) @@2@kBo@ I@I @j@ HZHH@@@\LF`%H@KK@KJ!@JJ@H@@k@Ah(74Q \UNQUEUE.TIMER 55Q \UNQUEUE.EVENT 42Q ERROR) (262Q PROCESS 251Q PROCESS 241Q PROCESSQUEUE 231Q PROCESS 220Q PROCESS 214Q PROCESS 175Q PROCESS 164Q PROCESS 160Q PROCESS 151Q PROCESSQUEUE 143Q \PROC.RUN.NEXT.FLG 122Q PROCESS 116Q PROCESSQUEUE 112Q PROCESSQUEUE 101Q PROCESSQUEUE 62Q PROCESS 22Q PROCESS 11Q PROCESS 3 PROCESS) ( 36Q "Attempt to run already running process") \FLUSH.PROCESS D1 (L (0 PROC)) @d`i @@g@HH @dj@`_@kkjh@d @d0@`@g@h g @`i @`@ @i hddi h(235Q \PROCESS.GO.TO.SLEEP 225Q \RELEASE.PROCESS 217Q \SUSPEND.PROCESS 204Q TTY.PROCESS 171Q \PROCESS.UNWINDALL 162Q \PROCESS.MAKEFRAME 54Q NOTIFY.EVENT 13Q TTY.PROCESS) (211Q \RUNNING.PROCESS 176Q \TTY.PROCESS 166Q RESET 154Q \FLUSH.PROCESS 146Q \RUNNING.PROCESS 135Q PROCESS 124Q PROCESS 105Q PROCESS 76Q \RUNNING.PROCESS 63Q PROCESS 41Q PROCESS 32Q DELETED 27Q PROCESS 20Q PROCESS 4 \TTY.PROCESS) () \SUSPEND.PROCESS D1 (L (1 EVENT 0 PROC) P 0 \INTERRUPTABLE) @@dks@j@Y\ZJd@=JJ@@IIJIIhh@h+ZdL𲷿l!o j@ @[ A@A hA@K hb(253Q \UNQUEUE.EVENT 241Q \ENQUEUE.EVENT/LOCK 217Q \UNQUEUE.TIMER 200Q \MP.ERROR) (224Q PROCESS 205Q PROCESS 152Q PROCESS 136Q PROCESSQUEUE 132Q PROCESSQUEUE 124Q PROCESSQUEUE 113Q PROCESSQUEUE 101Q PROCESS 75Q PROCESS 56Q PROCESS 45Q PROCESSQUEUE 37Q PROCESS 26Q PROCESS 12Q PROCESS) ( 175Q "Can't find running process in its queue") \UNQUEUE.TIMER D1 (L (1 NOERROR 0 PROC)) E`Hd @H@   XAo@ @h @jh(60Q ERROR) (75Q PROCESS 65Q PROCESS 41Q PROCESS 30Q PROCESS 24Q PROCESS 12Q PROCESS 2 \TIMERQHEAD) ( 54Q "Process not found on timer queue") \ENQUEUE.TIMER D1 (L (0 PROC) P 0 \INTERRUPTABLE) R@`d J2`[d@J!KJjKJJY Z@J I@ hNIL (113Q PROCESS 104Q PROCESS 73Q PROCESS 62Q PROCESS 46Q PROCESS 32Q PROCESS 23Q \PROCTIMER.SCRATCH 11Q PROCESS 5 \TIMERQHEAD) () \GET.PRIORITY.QUEUE D1 (L (0 PRIORITY)) ]`!H#`d@H@HYX@H`d@dIdHIJJJNIL (126Q PROCESSQUEUE 121Q \HIGHEST.PRIORITY.QUEUE 70Q PROCESSQUEUETYPE# 54Q PROCESSQUEUE 46Q PROCESSQUEUE 32Q PROCESSQUEUE 25Q \HIGHEST.PRIORITY.QUEUE 13Q PROCESSQUEUETYPE# 2 \HIGHEST.PRIORITY.QUEUE) () \PROCESS.INIT D1 (L (0 DONTRESET)) g h`dgdgdgdgdg:dg8dg6dg4dg2dg0dg.dg*dg$ g gg i gg @(220Q HARDRESET 212Q MOVD 201Q /PUTD 175Q GETD 164Q \LOCKFN 156Q \DEFINEDEVICE 5 CCODEP) (207Q \BACKGROUND 204Q BLOCK 172Q \PROC.CODEFORTFRAME 167Q \CODEFORTFRAME 161Q \PROC.CODEFORTFRAME 150Q \GENERIC.READP 141Q NILL 132Q \IS.NOT.RANDACCESSP 123Q \ILLEGAL.DEVICEOP 114Q \IS.NOT.RANDACCESSP 105Q \ILLEGAL.DEVICEOP 76Q \GENERIC.BINS 67Q \GENERIC.BOUTS 60Q \GENERIC.RENAMEFILE 51Q NILL 42Q NILL 33Q \PROCESS.EVENTFN 24Q PROCESS 17Q FDEVTYPE# 2 \PROC.CODEFORTFRAME) () \PROCESS.EVENTFN D1 (L (1 EVENTNAME 0 DEV)) AgAgAgAdgf` !HhY jEId`<,ZdgI )gI J`IJIgI` HXgAgAgh(170Q \SUSPEND.PROCESS 132Q SUSPEND.PROCESS 117Q DEL.PROCESS 41Q \APPEND2) (215Q BEFORESYSOUT 207Q BEFORELOGOUT 201Q BEFOREMAKESYS 165Q \PROCESS.AFTEREXIT.EVENT 157Q \TIMER.PROCESS 152Q PROCESS 141Q EVENTTYPE# 124Q SUSPEND 110Q DELETE 101Q PROCESS 73Q \RUNNING.PROCESS 57Q PROCESS 36Q \PROCESSES 27Q AFTERSAVEVM 20Q AFTERMAKESYS 12Q AFTERSYSOUT 3 AFTERLOGOUT) () \PROCESS.BEFORE.LOGOUTA0001 D1 (NAME ERRORSET L (0 NIL) F 3 RESETVARSLST F 4 RESETY) }0`YhciZ.g]Hgoo XhhhScH oH JH oH H oH H Ji I(164Q PROCESS.RESULT 156Q TERPRI 151Q PRIN1 140Q TERPRI 133Q PRIN1 122Q PRIN1 107Q PRIN1 76Q TERPRI 55Q CREATEW) (114Q PROCESS 42Q CLOSEW 31Q DON'T 24Q PROCESS 5 \PROCESSES) ( 145Q " [Use the process status window to kill it if you really don't want to wait]" 127Q " to finish..." 103Q "Waiting for process " 52Q "Waiting for process(es) to finish" 46Q (404Q 367Q 705Q 255Q)) \PROCESS.BEFORE.LOGOUT D1 (P 1 RESETY P 0 LISPXHIST F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \PROCESS.BEFORE.LOGOUTA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\PROCESS.BEFORE.LOGOUTA0001)) \PROCESS.AFTER.EXIT D1 (L (0 FLG)) ` i(5 NOTIFY.EVENT) (11Q \PROC.READY 2 \PROCESS.AFTEREXIT.EVENT) () \PROCESS.RESET.TIMERS D1 NIL ]`#ddl HlHl j`HhYjIjId HX(125Q \RUN.PROCESS 41Q \CLOCK0 17Q GETTOPVAL) (117Q PROCESS 104Q PROCESS 71Q PROCESS 53Q \PROCESSES 2 \SYSTEMTIMERVARS) () \PROC.AFTER.WINDOWWORLD D1 NIL Sg H!``H``gH `#g ogggggi h(117Q ADD.PROCESS 65Q FIND.PROCESS 51Q PUTWINDOWPROP 5 FIND.PROCESS) (112Q SCHEDULE 107Q SYSTEM 104Q RESTARTABLE 101Q MOUSE 76Q NAME 62Q MOUSE 55Q TOPW 45Q PROCESS 42Q \TopLevelTtyWindow 34Q \TopLevelTtyWindow 31Q PROCESS 22Q WINDOWTYPE# 16Q \TopLevelTtyWindow 2 EXEC) ( 73Q (\MOUSE.PROCESS)) \TURN.ON.PROCESSES D1 (F 0 RESETVARSLST) 7`dj`hdo gPhg i g(61Q PROCESSWORLD 54Q RESETRESTORE 35Q ASKUSER) (64Q OK 51Q RESET 40Q Y 23Q AUTOPROCESSFLG 10Q PROCESS 2 \PROCESSES) ( 32Q "^D -- run process scheduler? ") \PROC.CODEFORTFRAME D1 (NAME T) (hg gl$o (43Q \REPEATEDLYEVALQT 40Q INITIALEVALQT 32Q \MP.ERROR 14Q \TURN.ON.PROCESSES 11Q CLEARSTK) (17Q OK 6 **CLEAR** 3 \RUNNING.PROCESS) ( 27Q "Unexpected (RETTO T)") \PROC.REPEATEDLYEVALQT D1 (NAME \REPEATEDLYEVALQT) ` i i (32Q EVALQT 26Q \RESETSYSTEMSTATE 22Q INPUT 15Q OUTPUT 10Q TTYDISPLAYSTREAM 2 INITIALEVALQT) (5 \TopLevelTtyWindow) () BREAK.PROCESS D1 (L (0 PROC)) ,@d`d j@ d`g h(50Q \PROCESS.MAKEFRAME 41Q \DOHELPINTERRUPT1 27Q FIND.PROCESS) (45Q \DOHELPINTERRUPT1 33Q \RUNNING.PROCESS 13Q PROCESS 5 PROCESSTYPE#) () \SELECTPROCESS D1 (L (0 TITLE)) 8 ``BH`A NOZIHJIJZE_[H+KI&O0jKdgK_OOh__N^O&_J`1 NO JIo gIhhIHJHo gHhh`gJdLd@di d`dg dgjdndhdM ddg5hdJ_OOh__N^OO&_ (465Q FIND.PROCESS 403Q SPAWN.MOUSE 366Q MENU 250Q CONCAT 215Q CONCAT 204Q \NCONC2) (423Q PROCESS 412Q PROCESS 374Q %[Spawn% Mouse%] 337Q DEFAULTMENUHELDFN 330Q CLRPROMPT 321Q INTERRUPTMENUFONT 273Q %[Spawn% Mouse%] 267Q MENUTYPE# 253Q QUOTE 220Q QUOTE 163Q \PROCESSES 117Q MOUSE 104Q PROCESS 63Q PROCESS 26Q \PROCESSES 15Q PROCESS 12Q \RUNNING.PROCESS 5 PROCESS 2 \TTY.PROCESS) ( 245Q " *tty" 212Q " *run") \PROCESS.MAKEFRAME D1 (L (3 FLG 2 ARGS 1 FN 0 PROC) P 4 \INTERRUPTABLE P 0 \INTERRUPTABLE) @ABI`Ijl!oA l!oI `g0`I2`J4l~`6[C l!oA @dk@ @Ki(166Q \RUN.PROCESS 145Q \MP.ERROR 61Q \MP.ERROR 46Q \MP.ERROR) (173Q PROCESS 153Q PROCESS 123Q \InterfacePage 110Q \InterfacePage 101Q \InterfacePage 73Q \PROCESS.MAKEFRAME0 70Q \InterfacePage 22Q \InterfacePage 6 PROCESS) ( 141Q "Can't build frame for process call" 55Q "PROC confused: a process other than the running one is in uninterruptable region" 42Q "PROC confused: trying to call a fn in a nonexistent process") \PROCESS.MAKEFRAME0 D1 (L (1 FN&ARGS 0 FRAME)) aAA2k@[dkK\kLlLkLؼIKL@dH ,Id l(@ ZdkJ@dH  l"oI (136Q \MP.ERROR 122Q \MAKEFRAME 103Q \FREESTACKBLOCK 62Q \MAKEFRAME) NIL ( 132Q "Failed to build frame for PROCESS use") \CHECK.PQUEUEA0001 D1 (NAME ERRORSET) hh(7 HELP) (3 \RUNNING.PROCESS) () \CHECK.PQUEUE D1 (L (1 THISP 0 P) F 3 RESETVARSLST) @d`b@H.I @i oi Hi oi i hI=oi Hi oi Hi oi Ii i hA3Id`,oi Ii oi `i i hkIIJ"oi Hi oi i h?IlH@0oi Ii oi Hi oi i hiPg`ScSYog HIdSHcJXZhS SkI H(574Q ERROR! 563Q NLEFT 554Q TAILP 511Q \CHECK.PQUEUEA0001 450Q TERPRI 443Q PRIN1 432Q PRIN1 424Q PRIN1 413Q PRIN1 405Q PRIN1 353Q TERPRI 346Q PRIN1 335Q PRIN1 327Q PRIN1 277Q TERPRI 272Q PRIN1 262Q PRIN1 251Q PRIN1 243Q PRIN1 212Q TERPRI 205Q PRIN1 177Q PRIN1 166Q PRIN1 153Q PRIN1 142Q PRIN1 134Q PRIN1 106Q TERPRI 101Q PRIN1 70Q PRIN1 62Q PRIN1 51Q PRIN1) (542Q PROCESS 517Q \RUNNING.PROCESS 506Q INTERNAL 465Q \RUNNING.PROCESS 462Q \RUNNING.PROCESS 370Q PROCESSQUEUE 307Q PROCESS 266Q \RUNNING.PROCESS 227Q \RUNNING.PROCESS 160Q PROCESS 116Q PROCESS 27Q PROCESSQUEUE 21Q PROCESSQUEUE 12Q PROCESS 5 PROCESSTYPE#) ( 503Q (\CHECK.PQUEUEA0001) 437Q " which is not LAST" 420Q " is " 401Q "Predecessor of NEXT = " 342Q " is NIL" 323Q "Successor of " 256Q " but running process = " 237Q "NEXT=" 173Q " but NEXT=" 147Q " points at " 130Q "Last=" 75Q " but no NEXT" 56Q " has a LAST = ") PPROC D1 (L (1 FILE 0 PROC)) @`j `RoA lojhdA oA A I[ IY#\AH LJL\dK쿰A oA A lhA oA A `M ] `^hAH MJdJAH N(265Q PPROC1 244Q PPROC1 210Q TERPRI 203Q PRIN1 172Q TAB 162Q TERPRI 155Q PRIN1 144Q PPROC1 114Q PPROC1 61Q TERPRI 54Q PRIN1 43Q FLUSHRIGHT 24Q PRIN1 6 CLOCK) (231Q \PROCESSES 221Q PROCESS 214Q \TIMERQHEAD 125Q PROCESS 77Q PROCESSQUEUE 66Q PROCESSQUEUE 11Q \HIGHEST.PRIORITY.QUEUE) ( 177Q "TimeLeft WakeCondition" 151Q " - - -" 50Q " state (run reason)" 33Q "prty" 20Q " name") PPROCWINDOW D1 (L (0 W)) K@do bgg @gg @gg @gg @g@g n}@ @(107Q DSPRIGHTMARGIN 100Q PUTWINDOWPROP 75Q GETWINDOWPROP 62Q PUTWINDOWPROP 50Q PUTWINDOWPROP 36Q PUTWINDOWPROP 24Q PUTWINDOWPROP 11Q CREATEW) (72Q HEIGHT 66Q PPROCHEIGHT 57Q PPROCRESHAPEFN 54Q RESHAPEFN 45Q SCROLLBYREPAINTFN 42Q SCROLLFN 33Q PPROCREPAINTFN 30Q REPAINTFN 21Q PPROCREPAINTFN 16Q BUTTONEVENTFN) ( 6 "Detailed process status") PPROCREPAINTFN D1 (L (1 REGION 0 WINDOW)) XAj@g @ hjh@ -`lHj HH @ @gh@ h@ @g@ (125Q PUTWINDOWPROP 122Q PPROCEXTENT 111Q PPROC 103Q PUTWINDOWPROP 100Q DSPYPOSITION 66Q CLEARW 57Q \FZEROP 26Q DSPFILL 16Q MOVETO 12Q GETWINDOWUSERPROP) (116Q EXTENT 73Q PPROCSTART 33Q LASTMOUSEBUTTONS 7 PPROCSTART) () PPROCRESHAPEFN D1 (L (2 REGION 1 OLDCONTENTS 0 WINDOW)) @g@g n}@ @AB (32Q RESHAPEBYREPAINTFN 24Q DSPRIGHTMARGIN 15Q PUTWINDOWPROP 12Q GETWINDOWPROP) (7 HEIGHT 3 PPROCHEIGHT) () PPROCEXTENT D1 (L (0 WINDOW)) (` ljh@ j@g HmHh(33Q GETWINDOWUSERPROP 16Q DSPLINEFEED 5 LENGTH) (30Q PPROCHEIGHT 2 \PROCESSES) () PPROC1 D1 (L (2 NOW 1 FILE 0 PROC)) 0@d jg`goA @0jgoA @A lhA @A kA @d`orkoA @A oN@jo$j@Bj bYoIA oA l iA @XoA A hd`HooA Jo(410Q PRIN1 344Q TERPRI 337Q PRIN1 315Q TAB 305Q PRIN1 274Q PRINTNUM 255Q CLOCK 210Q PRIN1 175Q PRIN1 135Q SPACES 127Q PRIN1 113Q TAB 103Q PRIN1 71Q PRIN1 43Q PRIN1) (375Q EVENT 362Q MONITORLOCK 353Q MONITORLOCKTYPE# 322Q PROCESS 244Q PROCESS 223Q PROCESS 202Q PROCESS 156Q PROCESS 142Q \RUNNING.PROCESS 120Q PROCESS 75Q PROCESS 60Q + 47Q PROCESS 32Q # 25Q \TTY.PROCESS 21Q * 7 PROCESS) ( 420Q "unnamed" 404Q "event " 371Q "lock " 333Q "blocked" 301Q "(expired)" 267Q (FIX 10Q) 235Q "(forever)" 215Q ")" 171Q "runnable (" 151Q "running " 65Q " " 37Q " ") PROCESS.STATUS.WINDOWA0020 D1 (L (0 WINDOW)) @` hNIL (15Q PROCMENU 12Q PROCESS.STATUS.WINDOW 3 PROCESS.STATUS.WINDOW) () PROCESS.STATUS.WINDOW D1 (L (0 WHERE))  0`dIHhZH&J `dHdggl _dOdi dg dgjdndh_dO Y`F`dodgdi dldg dgjdndh_dO I ` l ZI ` _dOO [` '@di"` ^N]J``Jٰ@ KJ b@` ` LMKJh ``o I`KI l` l ``gH `gg hH`In (657Q SHADEITEM 637Q PUTWINDOWPROP 623Q PUTWINDOWPROP 604Q ADDMENU 570Q CHECK/MENU/IMAGE 551Q CHECK/MENU/IMAGE 535Q ADDMENU 515Q CREATEW 500Q CLOSEW 471Q WINDOWP 454Q GETBOXPOSITION 445Q POSITIONP 411Q \INSUREWINDOW 372Q WINDOWP 363Q WIDTHIFWINDOW 340Q CHECK/MENU/IMAGE 325Q CHECK/MENU/IMAGE 320Q HEIGHTIFWINDOW 304Q CHECK/MENU/IMAGE 271Q CHECK/MENU/IMAGE 73Q FONTCREATE) (665Q SELECTEDPROC 650Q SELECTEDPROC 634Q PROCESS.STATUS.WINDOWA0020 631Q CLOSEFN 626Q PROCESS.STATUS.WINDOW 617Q PROCS 614Q PROCESS.STATUS.WINDOW 607Q SELECTEDPROC 573Q BITMAP 565Q PROCOPMENU 554Q BITMAP 544Q PROCESS.STATUS.WINDOW 541Q PROCMENU 526Q PROCESS.STATUS.WINDOW 523Q PROCOPMENU 520Q PROCESS.STATUS.WINDOW 475Q PROCESS.STATUS.WINDOW 466Q PROCESS.STATUS.WINDOW 435Q SCREENHEIGHT 427Q SCREENHEIGHT 406Q PROCESS.STATUS.WINDOW 367Q PROCESS.STATUS.WINDOW 343Q BITMAP 335Q PROCOPMENU 330Q BITMAP 307Q BITMAP 301Q PROCOPMENU 274Q BITMAP 264Q PROCOPMENU 232Q DEFAULTMENUHELDFN 223Q CLRPROMPT 201Q \PSWOP.SELECTED 164Q MENUTYPE# 157Q PROCOPMENU 124Q DEFAULTMENUHELDFN 115Q CLRPROMPT 66Q GACHA 60Q \PSW.SELECTED 46Q MENUTYPE# 14Q PROCESS 5 \PROCESSES) ( 532Q (0 . 0) 172Q (BT WHO? KILL BTV KBD_ RESTART BTV* INFO WAKE BTV! BREAK SUSPEND)) \PSW.SELECTED D1 (L (2 BUTTON 1 MENU 0 ITEM)) $`@d``Aj @An @(35Q SHADEITEM 24Q SHADEITEM) (41Q SELECTEDPROC 17Q SELECTEDPROC 11Q SELECTEDPROC 2 SELECTEDPROC) () \PSWOP.SELECTED D1 (L (2 BUTTON 1 MENU 0 ITEM)) `o @g` o ` `dn !Hoi `i i @dgH @g@g@g@dgH@ g6H"Y o I`HI HIHBh @dg2Hd`o 0jo H gH @dgxH`=`dododi dg dgjdndhdJ  Kdghdiigo & gH @g H`H h(635Q \SUSPEND.PROCESS 611Q BREAK.PROCESS 575Q WAKE.PROCESS 563Q PROCESS.READ 517Q MENU 376Q RESTART.PROCESS 361Q DEL.PROCESS 351Q PROMPTPRINT 325Q PROMPTPRINT 271Q PROCESS.APPLY 253Q PROCESS.EVAL 231Q PROMPTPRINT 177Q PROCESS.BACKTRACE 134Q TTY.PROCESS 117Q TERPRI 113Q PRIN1 104Q PRIN1 66Q FIND.PROCESS 52Q \PSW.SELECTED 36Q PROMPTPRINT 12Q PROMPTPRINT) (627Q \RUNNING.PROCESS 620Q SUSPEND 603Q BREAK 551Q Other 530Q NULL 514Q PROCOP.WAKEMENU 465Q DEFAULTMENUHELDFN 456Q CLRPROMPT 424Q MENUTYPE# 417Q PROCOP.WAKEMENU 407Q WAKE 370Q RESTART 334Q PROCESS 313Q \TTY.PROCESS 302Q KILL 244Q LAMBDASPLST 215Q PROCESS 206Q INFO 167Q BTV! 160Q BTV* 152Q BTV 143Q BT 125Q KBD_ 107Q SELECTEDPROC 56Q SELECTEDPROC 47Q PROCMENU 42Q PROCESS 25Q \TTY.PROCESS 17Q WHO? 2 \RUNNING.PROCESS) ( 560Q "Value to return to woken process: " 442Q "WakeUp Value" 432Q ((NIL (QUOTE NULL)) T Other) 346Q "Can't kill system process" 322Q "Can't kill the TTY process" 226Q "No info program supplied for this process" 100Q "Can't find process " 33Q "No process has the tty!!!" 7 "Processes are off!") PROCESS.BACKTRACE D1 (L (2 WINDOW 1 CMD 0 PROC)) 0B ` b w` ZJ`gJJk؊gJ`J`hohi b B`Igg gH ` gl H B XH i@LjgL ]hdAdgjH Md hgkAdglgl'(303Q RELSTK 274Q BAKTRACE 253Q \MAKESTACKP 224Q DSPRESET 214Q \INSUREWINDOW 207Q DSPFONT 203Q FONTCREATE 165Q DSPSCROLL 155Q ATTACHWINDOW 133Q \INSUREWINDOW 126Q CREATEW 31Q \INSUREWINDOW 21Q WINDOWP 13Q ATTACHEDWINDOWS) (334Q BTV! 322Q BTV* 310Q BTV 263Q BT 246Q \PSWOP.SELECTED 231Q PROCESS 176Q GACHA 171Q BACKTRACEFONT 161Q OFF 151Q LOCALCLOSE 146Q JUSTIFY 142Q PROCESS.STATUS.WINDOW 110Q PROCBACKTRACEHEIGHT 100Q PROCBACKTRACEHEIGHT 71Q BOTTOM 51Q TOP 43Q PROCBACKTRACEHEIGHT 26Q PROCESS.STATUS.WINDOW 10Q PROCESS.STATUS.WINDOW) ( 121Q "Process backtrace") \INVALIDATE.PROCESS.WINDOW D1 NIL :`d1 ,`gg Xg`gH hkg` h(66Q DSPFILL 52Q PUTWINDOWPROP 31Q PUTWINDOWPROP 13Q ACTIVEWP) (63Q PROCESS.STATUS.WINDOW 60Q INVERT 46Q OLDBUTTONEVENTFN 43Q PROCESS.STATUS.WINDOW 35Q \UPDATE.PROCESS.WINDOW 26Q \UPDATE.PROCESS.WINDOW 23Q BUTTONEVENTFN 20Q PROCESS.STATUS.WINDOW 5 PROCESS.STATUS.WINDOW) () \UPDATE.PROCESS.WINDOW D1 (L (0 WINDOW)) _@g `JI hi 9KKiJIkg` @g@g X @kHh(125Q PUTWINDOWPROP 121Q PUTWINDOWPROP 105Q DSPFILL 42Q PROCESS.STATUS.WINDOW 11Q GETWINDOWUSERPROP) (116Q OLDBUTTONEVENTFN 112Q BUTTONEVENTFN 102Q PROCESS.STATUS.WINDOW 77Q INVERT 51Q PROCESS 14Q \PROCESSES 6 PROCS) () (PRETTYCOMPRINT PROCCOMS) (RPAQQ PROCCOMS ((COMS (DECLARE: DONTCOPY (EXPORT (RECORDS PROCESS)) (RECORDS PROCESSQUEUE) (CONSTANTS \PSTAT.WAITING \PSTAT.RUNNING \PSTAT.DELETED)) (INITRECORDS PROCESS PROCESSQUEUE) (SYSRECORDS PROCESS PROCESSQUEUE)) (COMS (* User entries) (FNS PROCESSWORLD ADD.PROCESS DEL.PROCESS PROCESS.RETURN FIND.PROCESS MAP.PROCESSES PROCESSP RELPROCESSP RESTART.PROCESS WAKE.PROCESS SUSPEND.PROCESS PROCESS.RESULT PROCESS.FINISHEDP) (FNS THIS.PROCESS TTY.PROCESS TTY.PROCESSP PROCESS.TTY GIVE.TTY.PROCESS PROCESS.PREPARE.FOR.INPUT ALLOW.BUTTON.EVENTS SPAWN.MOUSE \WAIT.FOR.TTY WAIT.FOR.TTY) (FNS PROCESSPROP PROCESS.NAME PROCESS.WINDOW) (PROP ARGNAMES PROCESSPROP ADD.PROCESS) (COMS (* Temporary) (P (MOVD? (QUOTE PROCESS.RETURN) (QUOTE KILL.ME))))) (COMS (FNS DISMISS BLOCK WAITFORINPUT \WAITFORSYSBUFP) (GLOBALRESOURCES \DISMISSTIMER)) (COMS (FNS EVAL.AS.PROCESS EVAL.IN.TTY.PROCESS) (* The PROCESS.WAIT macro is an augmentation to BLOCK, waiting for a condition to come true, or a timeout, or a wakeup) (MACROS PROCESS.WAIT) (FNS PROCESS.READ PROCESS.EVALV PROCESS.EVAL \PROCESS.EVAL1 PROCESS.APPLY \PROCESS.APPLY1) (* Standard values for WAKEREASON -- PSTAT.TIMEDOUT is the only public one) (VARS (PSTAT.WAKEUP "default WakeUp") (PSTAT.TIMEDOUT "{time interval expired}") (PSTAT.QUIT "Quit") (\PSTAT.NORESULT "{no result yet}")) (GLOBALVARS PSTAT.WAKEUP PSTAT.TIMEDOUT PSTAT.QUIT \PSTAT.NORESULT)) (COMS (* Event stuff) (DECLARE: DONTCOPY (RECORDS EVENT)) (INITRECORDS EVENT) (SYSRECORDS EVENT) (FNS CREATE.EVENT NOTIFY.EVENT AWAIT.EVENT \UNQUEUE.EVENT \ENQUEUE.EVENT/LOCK) (MACROS AWAIT.CONDITION) (INITVARS (\TTY.PROCESS.EVENT) (\PROCESS.AFTEREXIT.EVENT )) (GLOBALVARS \TTY.PROCESS.EVENT \PROCESS.AFTEREXIT.EVENT)) (COMS (* Monitor stuff) (DECLARE: DONTCOPY (RECORDS MONITORLOCK)) (INITRECORDS MONITORLOCK) (SYSRECORDS MONITORLOCK) (FNS OBTAIN.MONITORLOCK CREATE.MONITORLOCK RELEASE.MONITORLOCK MONITOR.AWAIT.EVENT) (MACROS WITH.MONITOR WITH.FAST.MONITOR)) (FNS \MAKE.PROCESS0 \MAKE.PROCESS1 \PROCESS.MOVEFRAME \RELEASE.PROCESS \MAYBEBLOCK \BACKGROUND.PROCESS \MOUSE.PROCESS \TIMER.PROCESS \PROC.RESETRESTORE \PROCESS.UNWINDALL \UNIQUE.PROCESS.NAME) (COMS (FNS \START.PROCESSES \PROCESS.GO.TO.SLEEP \PROC.RESUME \RUN.PROCESS \FLUSH.PROCESS \SUSPEND.PROCESS \UNQUEUE.TIMER \ENQUEUE.TIMER \GET.PRIORITY.QUEUE) (DECLARE: DONTCOPY (MACROS \RESCHEDULE))) (COMS (FNS \PROCESS.INIT \PROCESS.EVENTFN \PROCESS.BEFORE.LOGOUT \PROCESS.AFTER.EXIT \PROCESS.RESET.TIMERS \PROC.AFTER.WINDOWWORLD \TURN.ON.PROCESSES) (* Redefinitions ) (FNS \PROC.CODEFORTFRAME \PROC.REPEATEDLYEVALQT)) (COMS (* switching stacks) (FNS BREAK.PROCESS \SELECTPROCESS \PROCESS.MAKEFRAME \PROCESS.MAKEFRAME0)) (INITVARS (#MYHANDLE#) (\TTY.PROCESS) ( #SCHEDULER#) (\RUNNING.PROCESS) (\PROCESSES) (PROCESS.MAXMOUSE 5) (PROC.FREESPACESIZE 1024) ( AUTOPROCESSFLG T) (BACKGROUNDFNS) (\TIMERQHEAD) (\HIGHEST.PRIORITY.QUEUE) (PROC.DEFAULT.PRIORITY 2) ( \DEFAULTLINEBUF) (\DEFAULTTTYDISPLAYSTREAM) (\PROCTIMER.SCRATCH (NCREATE (QUOTE FIXP))) (TOPW) ( \PROC.RUN.NEXT.FLG) (\PROC.READY T)) (ADDVARS (\SYSTEMCACHEVARS \PROC.READY) (\SYSTEMTIMERVARS)) (COMS (VARS (\PROC.RESTARTME "{restart flag}") (\PROC.RESETME "{reset flag}")) (DECLARE: DONTCOPY (EXPORT ( MACROS THIS.PROCESS TTY.PROCESS TTY.PROCESSP) (GLOBALVARS \RUNNING.PROCESS \TTY.PROCESS \PROC.RESTARTME \PROC.RESETME)) (GLOBALVARS \PROCESSES PROC.FREESPACESIZE #SCHEDULER# PROCESS.MAXMOUSE AUTOPROCESSFLG BACKGROUNDFNS \TopLevelTtyWindow \PROC.READY) (GLOBALVARS \TIMERQHEAD \PROCTIMER.SCRATCH \HIGHEST.PRIORITY.QUEUE PROC.DEFAULT.PRIORITY \PROC.RUN.NEXT.FLG \SYSTEMTIMERVARS) (MACROS ALIVEPROCP DEADPROCP \COERCE.TO.PROCESS) (LOCALVARS . T))) (COMS (* Debugging) (FNS \CHECK.PQUEUE) (FNS PPROC PPROCWINDOW PPROCREPAINTFN PPROCRESHAPEFN PPROCEXTENT PPROC1 PROCESS.STATUS.WINDOW \PSW.SELECTED \PSWOP.SELECTED PROCESS.BACKTRACE \INVALIDATE.PROCESS.WINDOW \UPDATE.PROCESS.WINDOW) (INITVARS (PROCMENU) (PROCOPMENU) (PROCOP.WAKEMENU) (PROCESS.STATUS.WINDOW) ( SELECTEDPROC) (PROCBACKTRACEHEIGHT 320)) (ADDVARS (BackgroundMenuCommands ("PSW" (QUOTE ( PROCESS.STATUS.WINDOW)) "Puts up a Process Status Window"))) (P (SETQQ BackgroundMenu)) (DECLARE: EVAL@COMPILE DONTCOPY (GLOBALVARS PROCESS.STATUS.WINDOW PROCMENU PROCOPMENU PROCOP.WAKEMENU PROCBACKTRACEHEIGHT SELECTEDPROC BACKTRACEFONT) (CONSTANTS LIGHTGRAYSHADE SELECTIONSHADE))) (DECLARE: DONTEVAL@LOAD DOCOPY (ADDVARS (WINDOWUSERFORMS (\PROC.AFTER.WINDOWWORLD))) (P (\PROCESS.INIT))) ( DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA PROCESSPROP ADD.PROCESS))))) (/DECLAREDATATYPE (QUOTE PROCESS) (QUOTE (WORD WORD BYTE POINTER BYTE POINTER BYTE POINTER FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER)) (QUOTE ((PROCESS 0 (BITS . 15)) (PROCESS 1 ( BITS . 15)) (PROCESS 2 (BITS . 7)) (PROCESS 2 POINTER) (PROCESS 4 (BITS . 7)) (PROCESS 4 POINTER) ( PROCESS 6 (BITS . 7)) (PROCESS 6 POINTER) (PROCESS 8 (FLAGBITS . 0)) (PROCESS 8 (FLAGBITS . 16)) ( PROCESS 8 (FLAGBITS . 32)) (PROCESS 8 (FLAGBITS . 48)) (PROCESS 8 (FLAGBITS . 64)) (PROCESS 8 ( FLAGBITS . 80)) (PROCESS 8 (FLAGBITS . 96)) (PROCESS 8 (FLAGBITS . 112)) (PROCESS 8 POINTER) (PROCESS 10 POINTER) (PROCESS 12 POINTER) (PROCESS 14 POINTER) (PROCESS 16 POINTER) (PROCESS 18 POINTER) ( PROCESS 20 POINTER) (PROCESS 22 POINTER) (PROCESS 24 POINTER) (PROCESS 26 POINTER) (PROCESS 28 POINTER ) (PROCESS 30 POINTER) (PROCESS 32 POINTER) (PROCESS 34 POINTER) (PROCESS 36 POINTER) (PROCESS 38 POINTER) (PROCESS 40 POINTER) (PROCESS 42 POINTER) (PROCESS 44 POINTER) (PROCESS 46 POINTER) (PROCESS 48 POINTER) (PROCESS 50 POINTER) (PROCESS 52 POINTER) (PROCESS 54 POINTER) (PROCESS 56 POINTER) ( PROCESS 58 POINTER) (PROCESS 60 POINTER) (PROCESS 62 POINTER))) (QUOTE 64)) (/DECLAREDATATYPE (QUOTE PROCESSQUEUE) (QUOTE (BYTE POINTER POINTER POINTER POINTER)) (QUOTE (( PROCESSQUEUE 0 (BITS . 7)) (PROCESSQUEUE 0 POINTER) (PROCESSQUEUE 2 POINTER) (PROCESSQUEUE 4 POINTER) (PROCESSQUEUE 6 POINTER))) (QUOTE 8)) (ADDTOVAR SYSTEMRECLST (DATATYPE PROCESS ((PROCFX0 WORD) (PROCFX WORD) (PROCSTATUS BYTE) (PROCNAME POINTER) (PROCPRIORITY BYTE) (PROCQUEUE POINTER) (NIL BYTE) (NEXTPROCHANDLE POINTER) (PROCTIMERSET FLAG) (PROCBEINGDELETED FLAG) (PROCDELETED FLAG) (PROCSYSTEMP FLAG) (PROCNEVERSTARTED FLAG) (NIL FLAG) (NIL FLAG) (NIL FLAG) (PROCWAKEUPTIMER POINTER) (PROCTIMERLINK POINTER) (PROCTIMERBOX POINTER) ( WAKEREASON POINTER) (PROCEVENTORLOCK POINTER) (PROCFORM POINTER) (RESTARTABLE POINTER) (PROCWINDOW POINTER) (PROCFINISHED POINTER) (PROCRESULT POINTER) (PROCFINISHEVENT POINTER) (PROCMAILBOX POINTER) ( PROCRESETVARSLST POINTER) (PROCINFOHOOK POINTER) (PROCTYPEAHEAD POINTER) (PROCREMOTEINFO POINTER) ( PROCUSERDATA POINTER) (PROCEVENTLINK POINTER) (PROCAFTEREXIT POINTER) (PROCBEFOREEXIT POINTER) ( PROCOWNEDLOCKS POINTER) (PROCEVAPPLYRESULT POINTER) (PROCTTYENTRYFN POINTER) (PROCTTYEXITFN POINTER) ( PROCDRIBBLEOFD POINTER) (PROCRESTARTFORM POINTER) (NIL POINTER) (NIL POINTER))) (DATATYPE PROCESSQUEUE ((PQPRIORITY BYTE) (PQHIGHER POINTER) (PQLOWER POINTER) (PQNEXT POINTER) (PQLAST POINTER)))) (PUTPROPS PROCESSPROP ARGNAMES (PROC PROP NEWVALUE)) (PUTPROPS ADD.PROCESS ARGNAMES (NIL (FORM . PROPS&VALUES) . U)) (MOVD? (QUOTE PROCESS.RETURN) (QUOTE KILL.ME)) (/SETTOPVAL (QUOTE \\DISMISSTIMER.GLOBALRESOURCE)) (PUTPROPS PROCESS.WAIT MACRO ((WAITCOND TIMEOUT) (bind ($$TIMEOUT _ (AND TIMEOUT (SETUPTIMER TIMEOUT)) ) until (AND $$TIMEOUT (TIMEREXPIRED? $$TIMEOUT)) do (if (SETQ $$VAL WAITCOND) then (RETURN $$VAL) else (BLOCK))))) (RPAQ PSTAT.WAKEUP "default WakeUp") (RPAQ PSTAT.TIMEDOUT "{time interval expired}") (RPAQ PSTAT.QUIT "Quit") (RPAQ \PSTAT.NORESULT "{no result yet}") (/DECLAREDATATYPE (QUOTE EVENT) (QUOTE (FLAG (BITS 7) POINTER POINTER)) (QUOTE ((EVENT 0 (FLAGBITS . 0 )) (EVENT 0 (BITS . 22)) (EVENT 0 POINTER) (EVENT 2 POINTER))) (QUOTE 4)) (ADDTOVAR SYSTEMRECLST (DATATYPE EVENT ((EVENTWAKEUPPENDING FLAG) (NIL BITS 7) (EVENTQUEUETAIL POINTER ) (EVENTNAME POINTER)))) (PUTPROPS AWAIT.CONDITION MACRO ((CONDITION EVNT TIMEOUT TIMERP) (PROG (($$TIMER TIMEOUT) ($$EV ( \DTEST EVNT (QUOTE EVENT)))) (DECLARE (LOCALVARS $$TIMER $$EV)) LP (RETURN (OR CONDITION (COND ((NEQ ( \PROCESS.GO.TO.SLEEP $$EV $$TIMER TIMERP) $$EV) NIL) (T (AND $$TIMER (SETQ $$TIMER T)) (GO LP)))))))) (RPAQ? \TTY.PROCESS.EVENT) (RPAQ? \PROCESS.AFTEREXIT.EVENT) (/DECLAREDATATYPE (QUOTE MONITORLOCK) (QUOTE (FLAG FLAG (BITS 6) POINTER POINTER POINTER POINTER)) ( QUOTE ((MONITORLOCK 0 (FLAGBITS . 0)) (MONITORLOCK 0 (FLAGBITS . 16)) (MONITORLOCK 0 (BITS . 37)) ( MONITORLOCK 0 POINTER) (MONITORLOCK 2 POINTER) (MONITORLOCK 4 POINTER) (MONITORLOCK 6 POINTER))) ( QUOTE 8)) (ADDTOVAR SYSTEMRECLST (DATATYPE MONITORLOCK ((NIL FLAG) (MLOCKPERPROCESS FLAG) (NIL BITS 6) ( MLOCKQUEUETAIL POINTER) (MLOCKOWNER POINTER) (MLOCKNAME POINTER) (MLOCKLINK POINTER)))) (PUTPROPS WITH.MONITOR MACRO ((LOCK . FORMS) (RESETLST (OBTAIN.MONITORLOCK LOCK NIL T) (PROGN . FORMS) ))) (PUTPROPS WITH.FAST.MONITOR MACRO ((LOCK . FORMS) (UNINTERRUPTABLY ((LAMBDA (UNLOCK) (PROG1 (PROGN . FORMS) (AND (NEQ UNLOCK T) (RELEASE.MONITORLOCK UNLOCK)))) (OBTAIN.MONITORLOCK LOCK))))) (RPAQ? #MYHANDLE#) (RPAQ? \TTY.PROCESS) (RPAQ? #SCHEDULER#) (RPAQ? \RUNNING.PROCESS) (RPAQ? \PROCESSES) (RPAQ? PROCESS.MAXMOUSE 5) (RPAQ? PROC.FREESPACESIZE 1024) (RPAQ? AUTOPROCESSFLG T) (RPAQ? BACKGROUNDFNS) (RPAQ? \TIMERQHEAD) (RPAQ? \HIGHEST.PRIORITY.QUEUE) (RPAQ? PROC.DEFAULT.PRIORITY 2) (RPAQ? \DEFAULTLINEBUF) (RPAQ? \DEFAULTTTYDISPLAYSTREAM) (RPAQ? \PROCTIMER.SCRATCH (NCREATE (QUOTE FIXP))) (RPAQ? TOPW) (RPAQ? \PROC.RUN.NEXT.FLG) (RPAQ? \PROC.READY T) (ADDTOVAR \SYSTEMCACHEVARS \PROC.READY) (ADDTOVAR \SYSTEMTIMERVARS) (RPAQ \PROC.RESTARTME "{restart flag}") (RPAQ \PROC.RESETME "{reset flag}") (RPAQ? PROCMENU) (RPAQ? PROCOPMENU) (RPAQ? PROCOP.WAKEMENU) (RPAQ? PROCESS.STATUS.WINDOW) (RPAQ? SELECTEDPROC) (RPAQ? PROCBACKTRACEHEIGHT 320) (ADDTOVAR BackgroundMenuCommands ("PSW" (QUOTE (PROCESS.STATUS.WINDOW)) "Puts up a Process Status Window")) (SETQQ BackgroundMenu) (ADDTOVAR WINDOWUSERFORMS (\PROC.AFTER.WINDOWWORLD)) (\PROCESS.INIT) (PUTPROPS PROC COPYRIGHT ("Xerox Corporation" T 1982 1983 1984 1985)) NIL