hưs2Dp,lFASD-DATADwkfLovefF|FDp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITElGigamos CambridgepB ,PACKAGE,NEW-MATHpB lREADTABLEstandard Common-Lisp1DCIN-PACKAGEDÀQUOTEB51DDEFMACROÁFLOAT-ERROR-PDÀSTATUSDplSIlXR-BQ-LISTDB;p,HARDWAREl32LOGBITPDBEDB;pBFl32LOGICAL-SHIFT-UPFBADpBF,UNBOXED-CONSTANTD ÀLOGIORDASHFDC1+pBF$$FPU-EXACT-INFINITYDBRFDBTpBF$$FPU-OVERFLOW-INEXACTDBRFDBTpBF$$FPU-X-DENORMALIZEDDBRFDBTpBF$$FPU-Y-DENORMALIZEDDBRFDBTpBF$$FPU-XY-DENORMALIZEDDBRFDBTpBFl$$FPU-ZERO-DIVIDEDBRFDBTpBF$$FPU-X-NANDBRFDBTpBF$$FPU-Y-NANDBRFDBTpBF$$FPU-XY-NANDBRFDBTpBF,$$FPU-INVALID-OPERATION1DB?CFPU-STATUSNILDB;DpBFFIELD-EXTRACTDpBFREAD-PROCESSOR-STATUSpBF,%%PROCESSOR-STATUS-FLOATING-POINT-STATUS1DDEFCONSTANTÂ%%DPB-SHORT-IN-SINGLEDBYTEFF1DBÂ%%DPB-SHORT-ROUND-BITDBFF1DB?SHORT-STATUSDÀSHORTDBEDB;pBFDPBDpBCXR-BQ-LIST*DB;pBFLDBBDB;DpBFl%%SHORT-FLOAT-SIGNp,GLOBAL-REGISTERSl*ALL-ZERO*DB;pBF%%ALU-STATUS-NEGATIVEDBDB;ÀPROGNDBEDB;SETFDB;DpBFlR0BDB;DDpBF,READ-ALU-STATUS1DBMANT-SIZE-CONSTDBTF41DBHIGH-SIZE-CONSTDBTF