%%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$A@@BB C"@x@"@~B@!F 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 @A C) B@AAb@& B@%F 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 @A! C. B@A@A! C* B) B@AAb@, 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 @A C) B@AAf@& B@%F 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 @A! C. B@A@A! C* B) B@AAf@, 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 @A@A"AH@@ B4@@A B2@@AB@ p0y "Dx B C.@A@ Bp@0@@.@- 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 CONTROL-PDL-ASSURE-ROOMLISP-INTERNALS CONTROL-PDL-ASSURE-ROOMLISP-INTERNALS  GROW-CONTROL-PDLLISP-INTERNALS !b@@ATD@$B@ C"x !`@ATD@ aD@@ D0@A @A!G D GROW-CONTROL-PDLLISP-INTERNALS GROW-CONTROL-PDLLISP-INTERNALS  STRUCTURE-SETLISP-INTERNALS MAKE-CONTROL-PDLLISP-INTERNALS" !b@@AT.@ !`@ATD@ aD@HB@ C,x.@- B !`@ATD@ a(@b&@@(0@A@A  `@AT$@$T@ *X0&&x@A Az@.@*B !"@jT@"Z@*D  STACK-GROUPLISP-INTERNALS 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 "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 @A! C*BD@@A @A@A@AA@@ B@(@@A BA@@@ B@&@%FE@@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 CALL-HARDWARE-UNDERFLOW-CATCHERLISP-INTERNALS CALL-HARDWARE-UNDERFLOW-CATCHERLISP-INTERNALS RESTORE-CALL-HEADWARELISP-INTERNALSD@!%aD@pa0@A @A`@!G FORGE-CATCHER-FRAMELISP-INTERNALS FORGE-CATCHER-FRAMELISP-INTERNALS  MACRO-REPORT-ARGS-ERRORSYSTEM-INTERNALS LENGTHARRAY j"@ C@c0@A @A A`@`B@AD  PROGN PRIMITIVES WRITE-RETURN-PC-RETURN-DESTHARDWARE DPB-MULTIPLE-UNBOXED PRIMITIVES DPB-MULTIPLE-UNBOXED PRIMITIVES $$I-REG-BASE-ACTIVEHARDWARE  %%I-REG-BASEHARDWARE %%I-REG-OFFSETHARDWARE UNBOXED-CONSTANTHARDWARE %%CH-RPCD-RETURN-DESTHARDWARE %COMPILED-FUNCTION-CODEK2 SYMBOL-FUNCTIONSYMBOL QUOTE PRIMITIVES CALL-HARDWARE-UNDERFLOW-CATCHERLISP-INTERNALS %%CH-RPCD-RETURN-PCHARDWARE UNBOXED-CONSTANTHARDWARE  CH-OPEN-CALLHARDWARE !WHERE-TO-RESTORE-FROM-CONTROL-PDLLISP-INTERNALS !WHERE-TO-RESTORE-FROM-CONTROL-PDLLISP-INTERNALS!  ILLOP-FUNCTIONTRAP FLOOR PRIMITIVES" !b@@ATD@B@@C(x`&@j$@`"@p#p0@A  @ApDApB@ D0@A@A$D@$p0@A@A_A@BB@@$B(x0&&x $```@ATD@pc@A @A($@&"@ RESTORE-CALL-HARDWARELISP-INTERNALS RESTORE-CALL-HARDWARELISP-INTERNALSLZ\SXR_QfPmOtN{ML KJIH%G,F3E:DAC?D8E1F*G#HIJKLMyNrOkPdQ]RVS7040160=/D.K-R,Y+`*g)n(u'|&% $#"!"#$%&z's(l)e*^+W,P-I.B/;041/8.2-8,5 #TV ERRORLISP-INTERNALS" ILLOP-FUNCTIONTRAP !WHERE-TO-RESTORE-FROM-CONTROL-PDLLISP-INTERNALS %COMPILED-FUNCTION-CODEK2 SYMBOL-FUNCTIONSYMBOL ILLOP-FUNCTIONTRAP]t`@@A@AlA@B `t@ `h@@AA@ B$B mD@#E@C f@@ ac"@@ acD@ aT@"Z@`qC Ecf@D@`B@ C`r@b`p@f`b@@qc@ATAA@qc@A#@A`A@Bf``@A0gcf@T`j@0k`@ |B@ C@@A@A5@A 8@A 2@A 8@A lB@&/C`j@pk`@A1@Af`b0gcf@`7k`jT@pk`@A0@Af`b0gcf@`7k`jT@pk`@A/@Af`b0gcf@`7k`jT@pk`@A.@Af`b0gcf@`7k`jT@pk`@A-@Af`b0gcf@`7k`jT@pk`@A,@Af`b0gcf@`7k`jT @pk`@A+@Af`b0gcf@`7k`jT @pk`@A*@Af`b0gcf@`7k`jT@pk`@A)@Af`b0gcf@`7k`jT@pk`@A(@Af`b0gcf@`7k`jT@pk`@A'@Af`b0gcf@`7k`jT@pk`@A&@Af`b0gcf@`7k`jT@pk`@A%@Af`b0gcf@`7k`jT@pk`@A$@Af`b0gcf@`7k`jT@pk`@A#@Af`b0gcf@`7k`jT@pk`@A"@Af`b0gcf@`7k`jT@ f`` f`` f`` f`` f`` |f`` uf`` nf`` gf`` `f`` Yf`` Rf`` Kf`` Df`` =f`` 6f`` 0gcf@@A0@A 0gcf@@A0@A @@D@!"ED$!?E`@A@A@A@Al`@@A@C D@!"E@A@ADD@a#EDf``@A0gcf@lB@G'/C`l@TD@#7E`l@lB@d&/C`n@lB@&/C`j@pk`@ASAAf`b0gcf@`7k`jT @pk`@ARAAf`b0gcf@`7k`jT"@pk`@AQAAf`b0gcf@`7k`jT$@pk`@APAAf`b0gcf@`7k`jT&@pk`@AOAAf`b0gcf@`7k`jT(@pk`@ANAAf`b0gcf@`7k`jT*@pk`@AMAAf`b0gcf@`7k`jT,@pk`@ALAAf`b0gcf@`7k`jT.@pk`@AKAAf`b0gcf@`7k`jT0@pk`@AJAAf`b0gcf@`7k`jT2@pk`@AIAAf`b0gcf@`7k`jT4@pk`@AHAAf`b0gcf@`7k`jT6@pk`@AGAAf`b0gcf@`7k`jT8@pk`@AFAAf`b0gcf@`7k`jT:@pk`@AEAAf`b0gcf@`7k`jT<@pk`@ADAAf`b0gcf@`7k`jT>@ Af`` :f`` 3f`` ,f`` %f`` f`` f`` f`` f`` f`` {f`` tf`` mf`` ff`` _f`` Xf`` `t@A@Bb@@pc0@A \AAh`Dh`DUcall hardware restored CALL-HARDWARE-UNDERFLOW-CATCHERLISP-INTERNALS TRAP-CALL-PROTECTION-COUNTLISP-INTERNALS WITH-DUMPER-MACROSLISP-INTERNALS WITH-DUMPER-MACROSLISP-INTERNALS  XR-BQ-LIST*SYSTEM-INTERNALS CDRCONSj"@ CE@%F PREVIOUS-A-FRAMELISP-INTERNALS QUOTE PRIMITIVES  *CH-TEMP-0*GLOBAL-REGISTERS ACCUMULATED-BOX-BITSLISP-INTERNALS QUOTE PRIMITIVES  *CH-TEMP-1*GLOBAL-REGISTERS  SAVED-CSPLISP-INTERNALS QUOTE PRIMITIVES  *CH-TEMP-2*GLOBAL-REGISTERS PROTECTION-COUNTLISP-INTERNALS QUOTE PRIMITIVES  *CH-TEMP-3*GLOBAL-REGISTERS THIS-RPCLISP-INTERNALS QUOTE PRIMITIVES  *CH-TEMP-4*GLOBAL-REGISTERS WORD-1LISP-INTERNALS QUOTE PRIMITIVES  *CH-TEMP-5*GLOBAL-REGISTERS  SAVE-REGISTERLISP-INTERNALS REGISTERK  XR-BQ-LIST*SYSTEM-INTERNALS QUOTE PRIMITIVES PROGN PRIMITIVES  XR-BQ-LISTSYSTEM-INTERNALS QUOTE PRIMITIVES WRITE-MD-UNBOXEDHARDWARE  XR-BQ-LISTSYSTEM-INTERNALS REGISTERK QUOTE PRIMITIVES "VMA-START-WRITE-NO-GC-TRAP-UNBOXEDHARDWARE *CONTROL-PDL-POINTER*GLOBAL-REGISTERS SETQ PRIMITIVES *CONTROL-PDL-POINTER*GLOBAL-REGISTERS 24+HARDWARE *CONTROL-PDL-POINTER*GLOBAL-REGISTERS  SAVE-BOX-BITLISP-INTERNALS REGISTERK  XR-BQ-LISTSYSTEM-INTERNALS QUOTE PRIMITIVES SETF PRIMITIVES QUOTE PRIMITIVES ACCUMULATED-BOX-BITSLISP-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS QUOTE PRIMITIVES ACCUMULATE-BOX-BITSHARDWARE QUOTE PRIMITIVES ACCUMULATED-BOX-BITSLISP-INTERNALS  XR-BQ-LISTSYSTEM-INTERNALS REGISTERK MACROLET PRIMITIVES WRITE-OPEN-CALL-FRAMELISP-INTERNALS WRITE-OPEN-CALL-FRAMELISP-INTERNALSvdjlbuw T@b`Xb@@ ccb@>D@+Ecj@"T@b`Xb@@ ccb@<D@+Ecj@$T@b`Xb@@ ccb@:D@+Ecj@&T@b`Xb@@ ccb@8D@+Ecj@(T@b`Xb@@ ccb@6D@+Ecj@*T@b`Xb@@ ccb@4D@+Ecj@,T@b`Xb@@ ccb@2D@+Ecj@.T@b`Xb@@ ccb@0D@+Ecj@0T@b`Xb@@ ccb@.D@+Ecj@2T@b`Xb@@ ccb@,D@+Ecj@4T@b`Xb@@ ccb@*D@+Ecj@6T@b`Xb@@ ccb@(D@+Ecj@8T@b`Xb@@ ccb@&D@+Ecj@:T@b`Xb@@ ccb@$D@+Ecj@<T@b`Xb@@ ccb@"D@+Ecj@>T@b`Xb@@ ccb@ D@+Ecj@8ocp@A u@AbD@ w`vp`@@ aD@@B@@C0@Al@A`n@"/w`Tn@@ ccXb@@ ucD@D@@A@AjD9ocnxdpD@ WRITE-OPEN-FRAMELISP-INTERNALS WRITE-OPEN-FRAMELISP-INTERNALSiT@b`Xb@@ ccb@D@+Ecj@T@b`Xb@@ ccb@D@+Ecj@T@b`Xb@@ ccb@D@+Ecj@T@b`Xb@@ ccb@D@+Ecj@T@b`Xb@@ ccb@D@+Ecj@ T@b`Xb@@ ccb@D@+Ecj@ T@b`Xb@@ ccb@D@+Ecj@T@b`Xb@@ ccb@D@+Ecj@T@b`Xb@@ ccb@D@+Ecj@T@b`Xb@@ ccb@ D@+Ecj@T@b`Xb@@ ccb@ D@+Ecj@T@b`Xb@@ ccb@D@+Ecj@T@b`Xb@@ ccb@D@+Ecj@T@b`Xb@@ ccb@D@+Ecj@T@b`Xb@@ ccb@D@+Ecj@T@b`Xb@@ ccb@D@+Ecj@"/w`Tn@@ ccXb@@ ucD@D@@A@AjD  CLEAR-R-FRAMELISP-INTERNALS  CLEAR-R-FRAMELISP-INTERNALSl@@lB@lD@lF@lH@lJ@lL@lN@lP@lR@lT@lV@lX@lZ@l\@l^@b@@ oCD@D@@A@AjD  WRITE-STUFFLISP-INTERNALS  WRITE-STUFFLISP-INTERNALS   MACRO-REPORT-ARGS-ERRORSYSTEM-INTERNALS CARCONS CDRCONS LENGTHARRAY LENGTHARRAYj"@ C@g0@A@A C@g0@A @A@A @A C$B@AjD Ab@bB @A DUMP-CALL-HARDWARELISP-INTERNALS DUMP-CALL-HARDWARELISP-INTERNALS|GqGgrIAew WRITE-OPEN-FRAMELISP-INTERNALSr WRITE-OPEN-CALL-FRAMELISP-INTERNALSj WRITE-OPEN-FRAMELISP-INTERNALSS CONTROL-PDL-ASSURE-ROOMLISP-INTERNALSM TRAP-ONTRAPB WRITE-OPEN-CALL-FRAMELISP-INTERNALS ILLOP-FUNCTIONTRAP}t`@@A@AlA@B `t@D@A"E@`n@`h@D@`B@ C`l@@@0sar@D@ OE`@A@A@A@A@AD@~B@ C`p@`vD@lB@%C`x@G gw`vD@lB@d&C`x@$!gw`v@A@A@A@A@A@AD@ 7E`@A@A@A@A@ADD@a#ED@A@A@A@Ap`T@b@@ ccXD@`B@'C`x@f@@ ccb@D@&aD@pcEc0@A e@A`t@(D@`B@'C`h@@@pKmc0@A @AAF D@A"E@@Cf@@ ac @@ acD@ aT@ Z@`xC`@@ a``@ATD@ aD@ EcD@ @@F#E`d@f@@ acb@@ATD@ EcD@ @@F#E`b@`t@jDpcic0@A r@A`@@ w`v`t@(D@`B@'C`h@@F AG @AG@A `t@(f@@ ccb@f@@ w`v`t@(D@`B@'C`h@@F G@A