;;; Compilation of /home/juergen/hdlProjekte/tetrad/lisp/mevalxp/system/print-02.lisp, ;;; by juergen on LispWorks Personal Edition 5.1.1 at 2011/06/14 20:59:21. ;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0 ;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3 ;;; Source level debugging is on ;;; Source file recording is on ;;; Cross referencing is on AST TESU ITSYSTEM - MAKE-SAFE-FOR-TAIL-CALLH- COMPILER%NOTE-START-OF-FILE6umake-safe-for-tail-call-365& ;%vuU%RUNTIMEGEBAD-ARGS-OR-STACKHBO E-?C COMMON-LISPPATHNAMEKEYWORD UNSPECIFICB CABSOLUTEhomePjuergen hdlProjektetetradlispmevalxpsystem> >EUUprint-02ST2lispB;TpC  LISPWORKS&//TOP-LEVEL-FORM>>>E%= ,6;%v)u$Uh* %2BH *%ENTRY-TABLE-STABHCTuLET ISETF COMMON-LISP-USERGET-WORD?> ?SETQBQUOTEB%PRINT>dDEFUNNEXT-IIMADDR-AND%+>BB?B%MOD-MBBIFHz%>=BBEF%-BBBB--F BASE_CTRLP-CONSTR ALL= DEFCONSTANTGA *RAW-QUEUE*>pB?,pSET-WORD>d==B>d>=BIRQXBBCHBB>GET-PTB>d=RMINSRT-PTB>d>SET-BYTEBBIP-SHIFTLB>BO-N INSRT-PT1BB>BNOT~%=BBB>d>BBS GET-STATUS SET-STATUSBADDR-IORB ?BBB=>=%SYMBOL-FUNCTIONBBB?BBBBB >B%/=SABBBBB >B?BTO-ASCIIVALB%<=B> BB>0BB>7BPRINT-HEX-DIGITLPOSB"BNSBASE_VGABB>BBBPRINT-HEX-BYTEB%BBBB >BB>BBBTAG-AND6P-SHIFTRB>=>B PRINT-HEXB%BBVB)BBB >BBB >?BBB >BBB.BBB>=?BBB >BBB.BBB>=?BBBB$BB>=?B?CBB)B =B??S?KEEQ)E)%EIT%QIeJQ)TIIJEQDTJJDDeDIRDe)%ETR%E%RD%RDTf*EIPJT)QIQD%QDeRDTfR  *PRINT01*+HCB>>>E%=  U BHLOAD-XREF-INFOBB& ;%vuU%BHC XREF-INFOCALLSB-BBSETSB>> EPRTJQ+CB>>>E%= s