%%CPDL0-TYPE-CODELISP-INTERNALS BYTE PRIMITIVES  %%CPDL0-RDESTLISP-INTERNALS BYTE PRIMITIVES %%CPDL0-GLOBAL-FRAMELISP-INTERNALS BYTE PRIMITIVES  %%CPDL0-BOX-BITSLISP-INTERNALS BYTE PRIMITIVES $$CPDL0-TYPE-OPENLISP-INTERNALS $$CPDL0-TYPE-OPEN-CALLLISP-INTERNALS $$CPDL0-TYPE-TOPENLISP-INTERNALS  $$CPDL0-TYPE-PROTECTED-OPEN-CALLLISP-INTERNALS CONTROL-PDL-FRAME-SIZELISP-INTERNALS %CONTROL-PDL-FRAME-OFFSET-TO-REGISTERSLISP-INTERNALS MAX-CALL-HARDWARE-DUMPLISP-INTERNALS * PRIMITIVES CONTROL-PDL-FRAME-SIZELISP-INTERNALS:The largest possible size that a call hardware dump can be CONTROL-PDL-AREALISP-INTERNALS+This is the area in which control pdls live MAKE-CONTROL-PDL-AREALISP-INTERNALS MAKE-CONTROL-PDL-AREALISP-INTERNALS   %%SETSYMBOL  MAKE-AREA AREA-DATA CEILING PRIMITIVES  %SYMBOL-VALUESYMBOL BOUNDPSYMBOLA@BD@@A @AA@BD@@A @AjD@A$A@@BB C@x@B(@AF CONTROL-PDL-AREALISP-INTERNALS CONTROL-PDL-AREALISP-INTERNALS CONTROL-PDL-AREALISP-INTERNALS CONTROL-PDL-ALLOCATION-QUANTUMLISP-INTERNALS * PRIMITIVES MAX-CALL-HARDWARE-DUMPLISP-INTERNALS7amount by which a control pdl is grown when it fills up CONTROL-PDL-STACK-GROUPLISP-INTERNALS CONTROL-PDL-STACK-GROUPLISP-INTERNALS   MACRO-REPORT-ARGS-ERRORSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS CARCONS CDRCONS LENGTHARRAY LENGTHARRAYj"@ C@g0@A@A C@g0@A @A@A C(@ BAb@%B(@AF Ab@bB @A  %VM-READARRAY 24+HARDWARE SET-CONTROL-PDL-STACK-GROUPLISP-INTERNALS SET-CONTROL-PDL-STACK-GROUPLISP-INTERNALS    MACRO-REPORT-ARGS-ERRORSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS CARCONS CDRCONS CDRCONS CARCONS CDRCONS LENGTHARRAY LENGTHARRAYj"@ C@q0@A@A C@q0@A @A@A C(A B C(@B(@ BAb@'B(@%F Af@fB @A   %VM-WRITEARRAY 24+HARDWARE CONTROL-PDL-POINTERLISP-INTERNALS CONTROL-PDL-POINTERLISP-INTERNALS   MACRO-REPORT-ARGS-ERRORSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS CARCONS CDRCONS LENGTHARRAY LENGTHARRAYj"@ C@g0@A@A C@g0@A @A@A C(@ BAf@%B(@AF Ab@bB @A  %VM-READARRAY 24+HARDWARE SET-CONTROL-PDL-POINTERLISP-INTERNALS SET-CONTROL-PDL-POINTERLISP-INTERNALS    MACRO-REPORT-ARGS-ERRORSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS CARCONS CDRCONS CDRCONS CARCONS CDRCONS LENGTHARRAY LENGTHARRAYj"@ C@q0@A@A C@q0@A @A@A C(A B C(@B(@ BAf@'B(@%F Af@fB @A   %VM-WRITEARRAY 24+HARDWARE CONTROL-PDL-BASELISP-INTERNALSMAdd to a control-pdl objects pointer to find the base for call hardware dumps MAKE-CONTROL-PDLLISP-INTERNALS MAKE-CONTROL-PDLLISP-INTERNALS ALLOCATE-STRUCTURE-IN-AREACONS  %SYMBOL-VALUESYMBOL MULTIPLY-GENERICNEW-MATH CEILING PRIMITIVES MAX-2LISP-INTERNALS!H"@@A "AH@@B(@@B(@AB@ py "Dx B C@A@Bp@@A Bp(@ "Dx@$D0@A@AlT@ $*X0!((x +&@pT@&Z@ +$@ T@$Z@*D CONTROL-PDL-AREALISP-INTERNALS  CONTROL-PDL-PLISP-INTERNALS  CONTROL-PDL-PLISP-INTERNALS   Fs?! @A  @Ae%`D@@@pE0@A  @AhDjDjD CONTROL-PDL-EMPTY-PLISP-INTERNALS  NAMED-LAMBDANC CONTROL-PDL-EMPTY-PLISP-INTERNALS  CONTROL-PDLLISP-INTERNALS PROGN PRIMITIVES WHEN PRIMITIVES < PRIMITIVES CONTROL-PDL-POINTERLISP-INTERNALS  CONTROL-PDLLISP-INTERNALS CONTROL-PDL-BASELISP-INTERNALS ERRORLISP-INTERNALS*control-pdl-pointer below control-pdl-base <= PRIMITIVES CONTROL-PDL-POINTERLISP-INTERNALS  CONTROL-PDLLISP-INTERNALS CONTROL-PDL-BASELISP-INTERNALS CONTROL-PDL-EMPTY-PLISP-INTERNALS  ERRORLISP-INTERNALS !b@@ATD@@q0@A@AA@B !b@@ATD@@q0@A@AhDjD*control-pdl-pointer below control-pdl-base CONTROL-PDL-LIMITLISP-INTERNALS  NAMED-LAMBDANC CONTROL-PDL-LIMITLISP-INTERNALS  CONTROL-PDLLISP-INTERNALS6if control-pdl-pointer reaches here we are out of room LDBHARDWARE  %VM-READ32ARRAY  CONTROL-PDLLISP-INTERNALS %%BOUNDSARRAY CONTROL-PDL-LIMITLISP-INTERNALS !`@ATD@ aD SAVE-CONTROL-PDL-STATELISP-INTERNALS  NAMED-LAMBDANC SAVE-CONTROL-PDL-STATELISP-INTERNALS SET-CONTROL-PDL-POINTERLISP-INTERNALS  *CONTROL-PDL*GLOBAL-REGISTERS LDBHARDWARE 24-HARDWARE *CONTROL-PDL-POINTER*GLOBAL-REGISTERS  *CONTROL-PDL*GLOBAL-REGISTERS BYTE PRIMITIVES SAVE-CONTROL-PDL-STATELISP-INTERNALSf@@ ac @@ acD@ aT@ Z@jD LOAD-CONTROL-PDL-STATELISP-INTERNALS  NAMED-LAMBDANC LOAD-CONTROL-PDL-STATELISP-INTERNALS MACROLET PRIMITIVES INDEX-TO-ADDRESSLISP-INTERNALS INDEXLISP-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS QUOTE PRIMITIVES  MAKE-POINTERCONS QUOTE PRIMITIVES $$DTP-UNBOXED-LOCATIVEVINCULUM  XR-BQ-LISTSYSTEM-INTERNALS QUOTE PRIMITIVES 24+HARDWARE QUOTE PRIMITIVES  *CONTROL-PDL*GLOBAL-REGISTERS INDEXLISP-INTERNALS SETQ PRIMITIVES *CONTROL-PDL-LIMIT*GLOBAL-REGISTERS INDEX-TO-ADDRESSLISP-INTERNALS CONTROL-PDL-LIMITLISP-INTERNALS  *CONTROL-PDL*GLOBAL-REGISTERS *CONTROL-PDL-POINTER*GLOBAL-REGISTERS INDEX-TO-ADDRESSLISP-INTERNALS CONTROL-PDL-POINTERLISP-INTERNALS  *CONTROL-PDL*GLOBAL-REGISTERS LOAD-CONTROL-PDL-STATELISP-INTERNALS`@@ a``@ATD@ aD@ EcD@ @@F#E`d@f@@ acb@@ATD@ EcD@ @@F#E`b@b`D SELECT-CONTROL-PDLLISP-INTERNALS SELECT-CONTROL-PDLLISP-INTERNALS CONTROL-PDL-POINTERLISP-INTERNALS SET-CONTROL-PDL-POINTERLISP-INTERNALS ILLOP-FUNCTIONTRAP  CONTROL-PDL-PLISP-INTERNALS CD@@A @AoA@B@ acDA a@`pB ``@``$@`@@ a``@ATD@ aD@ DD@ @@F#E`d@``"@`qC DD@ @@F#E`b@b`D "DUMPING-OR-RESTORING-CALL-HARDWARELISP-INTERNALS "DUMPING-OR-RESTORING-CALL-HARDWARELISP-INTERNALS"    ! MACRO-REPORT-ARGS-ERRORSYSTEM-INTERNALS  XR-BQ-LIST*SYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS  XR-BQ-LIST*SYSTEM-INTERNALS  XR-BQ-LIST*SYSTEM-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS CARCONS CDRCONS LENGTHARRAY LENGTHARRAY#j"@ C@g0@A@A C@g0@A @A@A C(@BD@@A@AA@AB(@@AB(A@@@B@AFE@@AF Ab@bB @A  *CH-DUMPER-RETURN-PC*GLOBAL-REGISTERS SETQ PRIMITIVES PROGN PRIMITIVES T PRIMITIVES *CH-DUMPER-RETURN-PC*GLOBAL-REGISTERS SETQ PRIMITIVES ILLOPTRAP.call hardware dump/restore entered recursively UNLESS PRIMITIVES *CH-DUMPER-RETURN-PC*GLOBAL-REGISTERS NULL PRIMITIVES TRAP-CALL-PROTECTION-COUNTLISP-INTERNALS