; .UU*U*UDEFUN`XCONDATOMLISTQUOTEEQ,U*UjUCARCADRTCONSCDR   xSSTATUSFEATUREJLK-LISP-MACROSu*U*UxNOTGETLCREATE-JOBLSUBRAUTOLOADDEFPROPHUMBLEFASLU:U.UDSKLIBLSP     xBOUNDPSEND-*VALUE-TO-DDT?SETQ x*VALUE*VALUE-HANDLERU*U*U*BREAK*BREAK-HANDLER^ZTYPED^Z-INTERRUPTPIDCLDEFERRED-CALLLISP-CURSORPOSWAITING-FOR-JOB-INTNULLU*U*UASCIIJOB-STACKJ*STADRGETDDTSYMJ.STADRJ*CRUFTJ.CRUFT%OPCMDU*U*U%OPLSPTTY-PASSING-MSGJOB-HAD-TTY?TTY-YANKED?TTY-VERBOSEJOB-MSG-FILEOPENU+UjUTTY:OUTTTY!#%')+-/13579;=#x*BREAK16-FUNCTION ??xTTY-RETURN-MSGSTATUSFEATURU+U*WMACSYMA(Console connected with MACSYMA)(Console connected with LISP)   A!C"ExLNULLJOB-RINGCRLF#G$IxU&!JOB-INTERRUPT-HANDLERSUBRz<9| gA "70*DTTY&PUSH-SELECT-JOB`M "'JOB-USET-READ`Oa$ "(`OQ`O $F0PIRQC-DECODE)ARBITRATE-INTERRUPTS`S,<,80,87@g+ [gZ@ @(N@ Np "p[g[ D` $ a "*JOB-USET-WRITEaU[`ZZ1B+ g~C`+ `RANDOM-CLASS1-INTERRUPT+Q@POP-SELECT-JOB`WZg Bg+/1!" z<9| gA4B!7D+!@@),x(Kk+ LK",<,8,8 p4n8@ ,<,<KFJOB-INTERRUPT-LIST,8,,,7`i`y0 ,ggZ 8u*TERPRI`}`F`}A@7`i,x5.MKSxwa_ yb?y[lPMx/a??߁Oy'c`I#v@q6Oc_x/d_x@exOa.G#Xx_ x!` KVALUE-STRING?MAKNAMhK ! ,N,8CURRENT-JOB,8@,8c",o; ,8 *p",FILEPOSo ,83KTYI<A ,8 p5N[CLOSE` `QD NREVERSEB` ,8,8gK<A `@ "p-, B` Np`0%],xINBLOCKCxXcIKPUT-JCLaR,84Di6 +iEXPLODEC $D`R `,` B`7@``   `PNGETEs6@`` + "pQD0DEPOSIT-JOBa+t[` "pa pˀZ`  B` Np`+v "t/,xK SET-JCL-0,<6D@@!#` ,8KERRORo,80 C "G`O `G $paU0 @ @ -,1 B`  . @ DDLISTIFYHJCL F@0 $PUTPROPI "/0) ,xNo job - :JCL 0wSTART-JOB,<,86F@@ 0`! !,8,8Ko p)+ *À; @@-DD @JOB-START-ADR` D Np3 3,8,8Ko $p!@``R "KaU`i,xNo job - START-JOB!+No start address? LPK 3B@`ASELECT-JOB``0 @-+-,,x]TK=SET-JOB-START-ADR A@-DD -, ,xhK$6D@+, ,,,8,8D@$Ko7@``k7B+3 a,8 KPRINT-CONSOLE-MSGo ,3,8Kog ,I$gg'@@@@ + "NaU+0C`O A5N< @` $ "KaU!RH:% "= +aU u "OSLEEPC`7@``%TBNOT-OFFP*ATTY` "= JK),xNo job - CONTINUE-JOB QEK(P`WAIT-FOR-JOB "= `-,-,C 1@`O 5NL `WAIT-FOR-JOB-INT```],& ",xKEMAKE-JOB@j! *-,^W ,8)&,8WUNAMETz|X631gA",< 0KP+%CHANNEL-INT-HANDLERKDISOWN-JOBLB3B@``7B+\2B`+\@@ +!I "NaU,8 "G`O `B $p!DaU ,8,8jTHE-JOB-INPUT-CHANNELKQ@SYSCALL<V "`k/0 $],x+DISOWNK:CONTIN2 ; "`i),xKkP`} WKmP:START-0,< p5Nq++r 2 @ $J),xnPG-0,<`} "pH $ "X0`#*APPLYY,x:DISOWN @"UXK,< p+ Ap,<BF0N+ "p*BREAK16-HANDLERZ`-0N` "p1AC*BREAK12-HANDLER``- *j ,8+`O A *p,8",</2  (:3 ,8 5", </ &f ,,8 *p7",@@4</ -,8,8Ko_ ",xS2~ G:,C,X!K .AE?`C-,# $?Y+8 "+8 .@AM! *j9`k $+8 .(AS`kP" $+8 *j: a,8+`O A *p,8;",</1 (:w ,5,83,8=",</ od,8,8Ko_ $,x}U:6@KXS2~ G:,C,FK $LAMBDA[zP\yQ-,{ "= `@`c,<,<0N+S,<0,<(Nw˃ˀ $;3;  p ``c` p `; B` Np`B`iÀm(Nw $; Np;`c A #.7 @@-DD7`i`i p1#`7`i`i0N+c7`iD"`i+i @ @ $#1I7`i`i0N`7`i`iHbA+n7`i`i *:o ,u,8!@+`O A *pq",A</ (h9 ,83uD",</ ,|,8,8Ko_`i(Nw" $; Np;=N @- $p "wa`i p0N+D@7`i`i+ +a7#`i`i0N+ +a7`iD%`i+ @ @ GET21a $a7`i`i0N`1!D@ "`i`i`9 +a7@ `i`i0N`I,<`c $P# "pa + "wa7`i  C`i *j; W,8+`O A 02 *p,8<",</ (@:y ,0,83,8>",</ e,8H2,8Ko_ "\`7`i "@`/+@+S2~ G@:,C,FS2~ G*W:,C,FK{DEFAULT-TTY-RETURN-LISTDEFAULT-TTY-RETURNTTYRETARG ]xU+@bTTY-RETURN-HANDLERTTY-RETURN-LISTTTY-YANKED-FLAG{^_x-, -,1TB _ ( HEVAL , `k,+K}Cz,%* D gA ,J,8,8AK<06B_S` ,8,8],8",ogCz,%* gA@!PRINCT "`7D ` "+V)D4BCz,%* gA7^(LISP) E`1(dQ FORCE-OUTPUTay` `TTY-RETURN-PROMPTERp! " *y ",xCbR, (MACSYMA)K-0,<H-,Q$ARGSc $ "/YZc_Y,0%,xCLEAR-TTY-RETURN[zP_'L0Q-, B{ "=, (yA,xK yyxTTYRETFUNLISP-PROMPT ACdx+q011 ,ggZ 8`}8`}` :W ",x$KkDEFAULT-RETURN-TO-DDT-LISTDDT-RETURN eexW)RETURN-TO-DDT-LISTfexRETURN-TO-DDT f, e BfS,x4Ks ,8,8KogCz,%* gAP*  "`6@7(DDT) "gC`" ,,8,8Kog@@@@QiKPDDT-EXIThAh,Kv^Z-CHAR-INTERRUPT  ,8K<0 ,83AG:WK<AhDK TTYINTixW@ijx-0 @B00.` `!Z(-,-,14S9+*FILEMODEz~{D,gA4B*[ &Zg`'Cz,%* gA4B* ,ggZD 89 9,8,8Ko_ ,,8 aKog S,8,81 ,#,8,8 #KLINEL<k gFLATC,\ &. *p",og!9`] ,.,83,8",</ @R`}/, ",xLlR,@ 1Hl  @-, B;! 1h4Kc7B`y[JOBPm4B9DD[`+=[2D+;@@Z F u*U+5 ",x\K5TYPEINBADPIAROV340DPYILOPRU*U*USYSDEDIOCILUAD1PROCSLOWCLOCKMPVMARLTPENPDLOVU*U*UCLIRESTRSYSDBGARMTP1ARMTP2ARMTP3SYSUUOPURINSPURPGU*U*WARFOVPARERRPITTYPIATY<4.5><4.6>RUNTIMREALTM,#nopq!rstuvwxyz%{|#xU8OR:SL :VP }[{>x Q,vd.l,v ,D ",xK{ B "6@' ",x K "alo/TRUTH "~,xhK~ < "~,x<KG;