hưs2Dp,lFASD-DATADnahaLoveJF{FZDp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITELMI CambridgepB ,PACKAGELISP-INTERNALSpB lREADTABLEstandard Common-Lisp1DCIN-PACKAGEDÀQUOTEB51DDEFCONSTANTC%%CPDL0-TYPE-CODEDBYTEF1DB?Á%%CPDL0-RDESTDBAFF1DB?%%CPDL0-GLOBAL-FRAMEDBAFF 1DB?%%CPDL0-BOX-BITSDBAFF1DB?C$$CPDL0-TYPE-OPEN1DB?Â$$CPDL0-TYPE-OPEN-CALLF1DB?C$$CPDL0-TYPE-TOPENF1DB?$$CPDL0-TYPE-PROTECTED-OPEN-CALLF1DB?ÂCONTROL-PDL-FRAME-SIZEF1DB?ÄCONTROL-PDL-FRAME-OFFSET-TO-REGISTERSF1DB?ÂMAX-CALL-HARDWARE-DUMPDC*FBiFlThe largest possible size that a call hardware dump can be1DÀDEFVARCONTROL-PDL-AREANILThis is the area in which control pdls live1DB?ÃCONTROL-PDL-ALLOCATION-QUANTUMDBrFBq,amount by which a control pdl is grown when it fills up1DDEFMACROCONTROL-PDL-STACK-GROUPDCONTROL-PDLReturn the stack group associated with the CONTROL-PDLDplSIlXR-BQ-LISTDB;pARRAY,%VM-READDBDB;p,HARDWARE24+FB1DBSET-CONTROL-PDL-STACK-GROUPDBSTACK-GROUPSet the stack group associated with CONTROL-PDL to STACK-GROUPDBDB;pBl%VM-WRITEDBDB;BFBB1DBCONTROL-PDL-POINTERDBReturn the saved value of CONTROL-PDL's top of stack pointerDBDB;BDBDB;BFB1DBSET-CONTROL-PDL-POINTERDBNEW-POINTERChanges the saved value of CONTROL-PDL's top of stack pointer to NEW-POINTERDBDB;BDBDB;BFBB1DB?CONTROL-PDL-BASEFAdd to a control-pdl objects pointer to find the base for call hardware dumps1DplNC,DEF-DECLARATIONCONTROL-PDL-EMPTY-PÀSUBSTDB;DpBNAMED-LAMBDABDBDÀPROGNDWHENDC