;.UU*U*UDEFUN`XCONDATOMLISTQUOTEEQ,U*UjUCARCADRTCONSCDRxSSTATUSFEATUREJLK-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:OUTTTYx*BREAK16-FUNCTION xTTY-RETURN-MSGSTATUSFEATURU+U*WMACSYMA(Console connected with MACSYMA)(Console connected with LISP)    !!""xLNULLJOB-RINGCRLF ##$$xU&!JOB-INTERRUPT-HANDLERSUBR,8z<9|  6@g " BQBG$Q*DTTY&,XPUSH-SELECT-JOB& "'JOB-USET-READ'a$,8 "(',8 "(' $F0,XPIRQC-DECODE)ARBITRATE-INTERRUPTS),8,<,80,87@g+ .[gZ@ @(N@ Np "p[g[ D` $ Bg% 0 "*JOB-USET-WRITE*[`ZZ1B+ Q,8 g~C`/+ `RANDOM-CLASS1-INTERRUPT+Q@POP-SELECT-JOB+Zg Bg+ //)DB"z<9|  4B!7D+!@@ ,xP%,+%",<,8,8 p4n8@ ,<,<".FJOB-INTERRUPT-LIST,8,, ,",8,8g,8AP"",</ (hA ,%,8,8",</ Da *jB ,),8,8,8E",*ARRAYE$R<8-,READTABLE8 &9 $9%FU "9SETSYNTAX:*READ:,YYES- Q;;z hv`MEMQ<5B/@@`7@`+6TTY-RETURN-PROMPT?@@<% " "NOINTERRUPT=-,TTY-RETURN= ,5,8(`b,8g",VALRET<>, 4+<@# ,3Z 84N:*TERPRI>`F>A@ 4/,x5.MKSxwa_ yb?y[C3,PMx/a?p?G|7q_@|;pOIy'c`I#v@86Oc_ x/d_xd@Z M2xOa.G#Xxd_ x!` 0%VALUE-STRING?MAKNAM"?(%I,8(B ,N,8CURRENT-JOB,8@,8c",<,8 ,S,8,8 g~$.,< *p,8",FILEPOS Q<@/ ,V,8,8g",TYI<A ,8,< p5N[ gCLOSEA `QD NREVERSEB+a ,],8,8g",<A `@ "p,<-,,\ B` Np+W/0%]/,xINBLOCKBCxZ`*c$p%JPUT-JCLaR,8,84Di(D{6 +iEXPLODEC $D`R `,? B`7@`+u $D  `PNGETE,=g,86@`+o $ "pQD0DEPOSIT-JOBE+t[` "pE p..Z`  B` Np+l//+v "t/,x8%cSET-JCL-0,<6D@@!#+{ ,{,8,8 ",ERROR<F,8!@ ! "G' `G,< $p "G*0 @  Z,85B-, B`  . @ * Q "wLISTIFYHJCL F@0 &H $,XPUTPROPI "//0) ,xNo job - :JCL I` wSTART-JOB,<,86F@@ 0+ ,,8,8",<F p4NA. *. @ * Q @JOB-START-ADRJ D Np5N ,,8,8",<F $p!@``R "K*,X4/,xNo job - START-JOBK`!Q+No start address? L % ,83B@+ SELECT-JOBL`0 @  (A.-, /,x] (%SET-JOB-START-ADR .A * Q -,0, ,x P%$,86D@+, ,,,8,8D@$",<F7@`+57B+3 ,0,8,8 ",PRINT-CONSOLE-MSG<M ,3,8,8D",<3 ,I$3 B@@@@ $ "N* "$0!' .A5N< @J $ "K*!RH:% "= $ "N* p1: "OSLEEPG#!O7@`+A%TBNOT-OFFP*ATTYP "=J% /,xNo job - CONTINUE-JOB QEQH%(P`WAIT-FOR-JOB,8 "= `-,-,  @ "D' 5NL `WAIT-FOR-JOB-INTR+H `],& "/,x %EMAKE-JOBT!,8 *-,^W S ,U,8,8V)&,8W,8UNAMETz|X631 ,8",< /0KP+%CHANNEL-INT-HANDLERT 0%NDISOWN-JOB,8LB3B@+YL7B+\2B`+\@@ $!I "N*,8 "G' `B,< $p!D "G* ,e,8,8j,8jTHE-JOB-INPUT-CHANNEL,8U",Q@SYSCALL<V6@g ",85,X/0 $]/,xDISOWNV P%W:CONTIN!H# "4 ,x p%kP> W x%mP:START-0,< p5Nq "+r 0dZ( $J /,x nPG-0,<> "pH $ "XQAA:*APPLYY/,x  t:DISOWN @"UX %y,< p(NtA. 0Ap,<,<BF0N+ "p*BREAK16-HANDLERZ+0N+ "pQE!*BREAK12-HANDLERZ+ *j , ,8 "' .A,< *p,8,8",<//2  (h ,,8 &w,8,8", </ &f ,,8 *p,8,8",@@4</ ,,8,8",</ "/,xS2~ G",</ ,2,8H2,8",</ "\O 4 "@`//+@+S2~ G@,8!z,%* D  5BJ ,J,8,8A",<05NW6B_@$)+W ,N,8,8],8",<3!z,%*  i!4BP7]PRINCT "`,87D +S "+V)D4B!z,%*  4BU7^(LISP) "` E`/1(dQ FORCE-OUTPUTa7B<+Z `TTY-RETURN-PROMPTERCa! " * J< "/,xCbMR, (MACSYMA)b P%E-0,<H-,Q$ARGSc $ "/YZc "/Y,0%/,x ^CLEAR-TTY-RETURN[zP_'L0Q-, B = "=, ( H< \ B^zU` ,x 8%e <<xTTYRETFUNLISP-PROMPT aa !ddx,80BB+q@1 ,3Z 84No>`r>+q :W "/,x H%kDEFAULT-RETURN-TO-DDT-LISTDDT-RETURN eeexW)RETURN-TO-DDT-LISTfexRETURN-TO-DDT $_ f, e BfD),x h%s ,x,8,8",<3!z,%*  P* 4Bz7 "`,86@7(DDT) "gC`" ,,8,8",<3@@@@/QiKPDDT-EXIT gAhMQ X%v^Z-CHAR-INTERRUPT,8 ,,8,8",<04N , ,8,8gAG:W",<A/ f %TTYINT iihxW@ ijhx-0,8 Z(,8B0 g0.+ +Z(-,-,14S7D+*FILEMODEjz~{D, 4B*[ &Z0J3+!z,%*  4B* ,3ZD 84N ,,8,8",</ ,,8 ,80",<3 ,),8,81 ,#,8,8 #",LINEL<k g,<FLATCk,\/ &./.,< *p,8",<3/1 7B+. ,.,8,8g,8",</ @R>/, ",xLlR,@ 1Hl X  ,8 @-, BlB ,X"Lh%17B+<[JOBPm4B9DD[L+=[2D+;@@Z F u*U+5 ",x8%5TYPEINBADPIAROV340DPYILOPRU*U*USYSDEDIOCILUAD1PROCSLOWCLOCKMPVMARLTPENPDLOVU*U*UCLIRESTRSYSDBGARMTP1ARMTP2ARMTP3SYSUUOPURINSPURPGU*U*WARFOVPARERRPITTYPIATY<4.5><4.6>RUNTIMREALTM,mnnooppqqrrssttuuvvwwxxyyzz{{||xU8OR:SL :VP }[=>}x ,Q,vd.l,v ,D ",x %= B "6@@ ",xX$ (%A  "al o/TRUTH "~,x P%D~ < "~,x x%G;