hưs8p,LAMBDAF2Dp,lFASD-DATADjimOrson Welles٦S'F~FPDp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITElGigamos CambridgepB ,PACKAGE,TRANSPORTER-RAMpB lREADTABLEstandard Common-Lisp1DCIN-PACKAGEDÀQUOTEB51DB:DB;TRANSPORTER-RAM1DÀEXPORTDB;DCINITIALIZE-TRANSPORTER-RAMLOAD-TRANSPORTER-RAMCLOAD-TRANSPORTER-RAM-DATASET-TRANSPORTER-MODETRANSPORTER-TRAP-HANDLER1DDEFCONSTANTÃ*NUMBER-OF-TRANSPORTER-MODES*Dp,VINCULUMFIELD-MAXIMUMp,HARDWAREl%%MEMORY-CONTROL-TRANSPORTER-MODE1DBM*NUMBER-OF-TRANSPORT-TYPES*DBQpBR%%MEMORY-STATUS-TRANSPORT-TYPE1DBMÄ*NUMBER-OF-TRANSPORTER-MD-BYTE-VALUES*DBQpBRl%%TRANSPORTER-RAM-MD-BYTE1DDEFMACROÂWITH-TRANSPORTER-MODEDMODEÀTHUNKDplSIXR-BQ-LIST*DB;LETDpBilXR-BQ-LISTDBoDB;OLD-MODEDBoDB;MODIFY-TRANSPORTER-MODEBfDBoDB;BgBgDB;DDÀPROG1DFUNCALLBgDBGBp1DBMNO-TRANSpBO$$TRANSPORT-TYPE-NO-TRANSPORT1DBMÀTRANSpBOl$$TRANSPORT-TYPE-TRANSPORT1DBMVIS-EVCPpBO$$TRANSPORT-TYPE-VISIBLE-EVCP1DBMÀWRITEpBO$$TRANSPORT-TYPE-WRITE1DBMÀNORMALpBOl$$TRANSPORTER-MODE-NORMAL