~trn/reduce-algebra

edb436a07ab940394e34b6f19f57fd6ee73f7712 — Jeffrey H. Johnson 7 days ago 409cfd2 + bf13e39
Merge branch 'svn/trunk'
M packages/support/revision.red => packages/support/revision.red +1 -1
@@ 31,6 31,6 @@

fluid '(revision!*);

revision!* := 6002;
revision!* := 6012;

end;

M psl/dist/comp/aarch64/aarch64-asm.sl => psl/dist/comp/aarch64/aarch64-asm.sl +5 -1
@@ 38,6 38,10 @@
% Revisions:
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% $Id$
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

(compiletime (load if-system))



@@ 97,7 101,7 @@
(setq MainEntryPointName* '!m!a!i!n)     % chose a simple default
                                         % main procedure name

(setq NumericRegisterNames* '[nil "X0" "X1" "X2" "X3" "X4" "X5", "X6", "X7"])
(setq NumericRegisterNames* '[nil "X0" "X1" "X2" "X3" "X4" "X5" "X6" "X7"])

(setq LabelFormat* "%w:%n")             % Labels are in the first column
(setq CommentFormat* "// %p%n")          % Comments begin with //

M psl/dist/comp/aarch64/aarch64-cmac.sl => psl/dist/comp/aarch64/aarch64-cmac.sl +10 -30
@@ 30,7 30,11 @@
% POSSIBILITY OF SUCH DAMAGE.
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
%
% $Id$
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

(on fast-integers)

(compiletime (load if-system))


@@ 525,7 529,7 @@
%%%  (idloc id)   and    (quote (idloc id)),
%%% since the quote in the latter form is stripped before passing it on.
%%% Therefore, a special form (saveidloc id) is used.  This will be handled in
%%% ExpandItem (see the redefintion in armv6-spec.sl).
%%% ExpandItem (see the redefinition in aarch64-spec.sl).

(de *LoadIDLoc (dest src)
  (let ((idnumber (WConstEvaluable src))


@@ 1152,22 1156,22 @@
(DefCMacro *JumpWlessp)

(de *JumpWlessp (Lbl ArgOne ArgTwo)
        (*JumpIF ArgOne ArgTwo Lbl '(b!.lt . b!.ge)))
        (*JumpIF ArgOne ArgTwo Lbl '(b!.lt . b!.gt)))

(DefCMacro *JumpWgreaterp)

(de *JumpwGreaterp (Lbl ArgOne ArgTwo)
        (*JumpIF ArgOne ArgTwo Lbl '(b!.gt . b!.le)))
        (*JumpIF ArgOne ArgTwo Lbl '(b!.gt . b!.lt)))

(DefCMacro *JumpWleq)

(de  *JumpWleq(Lbl ArgOne ArgTwo)
        (*JumpIF ArgOne ArgTwo Lbl '(b!.le . b!.gt)))
        (*JumpIF ArgOne ArgTwo Lbl '(b!.le . b!.ge)))

(DefCMacro *JumpWgeq)

(de *JumpWgeq (Lbl ArgOne ArgTwo)
        (*JumpIF ArgOne ArgTwo Lbl '(b!.ge . b!.lt)))
        (*JumpIF ArgOne ArgTwo Lbl '(b!.ge . b!.le)))

% --------------------



@@ 1674,27 1678,3 @@ preload  (setq initload
      ))

(DefCMacro !*foreignlink)

(put 'bstruct-tag 'compiler-constant? t)
(put 'hbytes-tag 'compiler-constant? t)
(put 'hhalfwords-tag 'compiler-constant? t)
(put 'hwords-tag 'compiler-constant? t)
(put 'hvect-tag 'compiler-constant? t)
(put 'forward-tag 'compiler-constant? t)
(put 'btr-tag 'compiler-constant? t)
(put 'unbound-tag 'compiler-constant? t)
(put 'id-tag 'compiler-constant? t)
(put 'negint-tag 'compiler-constant? t)

(put 'bstruct-tag 'compiler-constant-value 246)
(put 'hbytes-tag 'compiler-constant-value 247)
(put 'hhalfwords-tag 'compiler-constant-value 248)
(put 'hwords-tag 'compiler-constant-value 249)
(put 'hvect-tag 'compiler-constant-value 250)
(put 'forward-tag 'compiler-constant-value 251)
(put 'btr-tag 'compiler-constant-value 252)
(put 'unbound-tag 'compiler-constant-value 253)
(put 'id-tag 'compiler-constant-value 254)
(put 'negint-tag 'compiler-constant-value 255)

(put 'infbitlength 'compiler-constant 56)

M psl/dist/comp/aarch64/aarch64-comp.sl => psl/dist/comp/aarch64/aarch64-comp.sl +4 -0
@@ 57,6 57,10 @@
%   Translated from Rlisp to Lisp.
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% $Id$
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

(PUT 'CARCDRPAT 'PATTERN 
  '(NIL NIL

M psl/dist/comp/aarch64/aarch64-cross.sl => psl/dist/comp/aarch64/aarch64-cross.sl +86 -106
@@ 33,6 33,10 @@
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% $Id$
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% This file contains redefinitions of compiler internals for 64/32 bit cross
% compilation.
%


@@ 76,51 80,47 @@
         ForwardInternalReferences*
         ))

(de codefiletrailer ()
  (prog (s)
        (systemfaslfixup)
        (binarywrite codeout* (idifference (isub1 nextidnumber*) 
                                           first-local-id-number))
        % Number of local IDs
        (foreach x in (car orderedidlist*) do
                 (progn (remprop x fasl-idnumber-property*)
                        (setq x (strinf (faslid2string x)))
                        (setq s (strlen x))
                        (binarywrite codeout* s)
                        (binarywriteblock codeout* (strbase x)
                                          (strpack s))))
        (binarywrite codeout* % S is size in words
                     (setq s
                      (iquotient
                       (iplus2 CurrentOffset*
                        (isub1 addressingunitsperitem))
                       addressingunitsperitem)))
        (printf "code size is %d/%x%n" s s)
        (printf "initoffset is %d/%x%n" initoffset* initoffset*)
        (binarywrite codeout* initoffset*)
        (binarywriteblock codeout* CodeBase* s)
	(if *compact-bittable
         (let((b (compact-bittable bittablebase* bittableoffset*))
              (bpw (quotient bitsperword 8)))
           (binarywrite codeout*
            (setq s (iquotient
                       (iplus2 (car b)
                        (isub1 bpw))
                       bpw)))
           (binarywriteblock codeout* (strbase (strinf (cdr b))) s)
         )
         (progn
          (binarywrite codeout*
                     (setq s
                      (iquotient
                       (iplus2 bittableoffset*
                        (isub1 bittable-entries-per-word))
                       bittable-entries-per-word)))
          (binarywriteblock codeout* bittablebase* s)
        ))
        (printf "bittable size is %d/%x%n" s s)
        (binarywriteblock codeout* bittablebase* s)
        (deallocatefaslspaces)))
%% (de codefiletrailer ()
%%   (prog (s)
%%         (systemfaslfixup)
%%         (binarywrite codeout* (idifference (isub1 nextidnumber*) 
%%                                            first-local-id-number))
%%         % Number of local IDs
%%         (foreach x in (car orderedidlist*) do
%%                  (progn (remprop x fasl-idnumber-property*)
%%                         (setq x (strinf (faslid2string x)))
%%                         (setq s (strlen x))
%%                         (binarywrite codeout* s)
%%                         (binarywriteblock codeout* (strbase x)
%%                                           (strpack s))))
%%         (binarywrite codeout* % S is size in words
%%                      (setq s
%%                       (iquotient
%%                        (iplus2 CurrentOffset*
%%                         (isub1 addressingunitsperitem))
%%                        addressingunitsperitem)))
%%         (binarywrite codeout* initoffset*)
%%         (binarywriteblock codeout* CodeBase* s)
%% 	(if *compact-bittable
%%          (let((b (compact-bittable bittablebase* bittableoffset*))
%%               (bpw (quotient bitsperword 8)))
%%            (binarywrite codeout*
%%             (setq s (iquotient
%%                        (iplus2 (car b)
%%                         (isub1 bpw))
%%                        bpw)))
%%            (binarywriteblock codeout* (strbase (strinf (cdr b))) s)
%%          )
%%          (progn
%%           (binarywrite codeout*
%%                      (setq s
%%                       (iquotient
%%                        (iplus2 bittableoffset*
%%                         (isub1 bittable-entries-per-word))
%%                        bittable-entries-per-word)))
%%           (binarywriteblock codeout* bittablebase* s)
%%         ))
%%         (deallocatefaslspaces)))

(compiletime
 (if_system x86_64


@@ 132,35 132,32 @@
     (put 'getword32 'opencode '((LDR (reg w0) (indexed (reg 1) (reg 2)) ))))
   ))

(de deposit32bitword (x) %% cross
  (put_a_halfword (wplus2 codebase* currentoffset*) x)
  (updatebittable 4 0)
  (setq currentoffset* (plus currentoffset* 4)))

(de deposit-relocated-word (offset)
  % Given an OFFSET from CODEBASE*, deposit a word containing the
  % absolute address of that offset.
  (put_a_halfword (wplus2 CodeBase* CurrentOffset*)
	   (iplus2 offset (if *writingfaslfile 0 CodeBase*)))
  (updatebittable 4 (const reloc_word))
  (setq CurrentOffset* (plus CurrentOffset* 4)))

(de depositwordidnumber (x) 
  (cond
    ((or (not *writingfaslfile) (leq (idinf x) 256)) 
     (deposit32bitword (idinf X)))
    (t
      (put_a_halfword (wplus2 CodeBase* CurrentOffset*)
	       (makerelocword (const reloc_id_number) (findidnumber x))) 
      (setq CurrentOffset* (plus CurrentOffset* 4)) 
      (updatebittable 4 (const reloc_word)))))


%% (de deposit32bitword (x) %% cross
%%   (put_a_halfword (wplus2 codebase* currentoffset*) x)
%%   (updatebittable 4 0)
%%   (setq currentoffset* (plus currentoffset* 4)))

%% (de deposit-relocated-word (offset)
%%   % Given an OFFSET from CODEBASE*, deposit a word containing the
%%   % absolute address of that offset.
%%   (put_a_halfword (wplus2 CodeBase* CurrentOffset*)
%% 	   (iplus2 offset (if *writingfaslfile 0 CodeBase*)))
%%   (updatebittable 4 (const reloc_word))
%%   (setq CurrentOffset* (plus CurrentOffset* 4)))

%% (de depositwordidnumber (x) 
%%   (cond
%%     ((or (not *writingfaslfile) (leq (idinf x) 256)) 
%%      (deposit32bitword (idinf X)))
%%     (t
%%       (put_a_halfword (wplus2 CodeBase* CurrentOffset*)
%% 	       (makerelocword (const reloc_id_number) (findidnumber x))) 
%%       (setq CurrentOffset* (plus CurrentOffset* 4)) 
%%       (updatebittable 4 (const reloc_word)))))

(de DepositQuadWordExpression (x)
  % Only limited expressions now handled
  (let (y)
%    (printf "Deposit %w at %x -> %x%n" x CurrentOffset* (wplus2 CodeBase* CurrentOffset*))
    (cond
      ((fixp x) (depositword (int2sys x)))
      ((labelp x) (deposit-relocated-word (LabelOffset x)))


@@ 184,40 181,30 @@
      ((memq (first x) '(fluid global $fluid $global)) (DepositValueCellLocation (second x)))
      ((setq y (wconstevaluable x)) (DepositWord (int2sys y)))
      (t (stderror (bldmsg "Expression too complicated %r" x))))
%    (printf "Deposited at %x: %x >%x< %x%n"
%	    (wplus2 (wplus2 CodeBase* CurrentOffset*) -4)
%	    (getword32 (wplus2 (wplus2 CodeBase* CurrentOffset*) -8) 0)
%	    (getword32 (wplus2 (wplus2 CodeBase* CurrentOffset*) -4) 0)
%	    (getword32 (wplus2 CodeBase* CurrentOffset*) 0)
%	    )
    ))

(de depositwordidnumber (x) 
  (cond
    ((or (not *writingfaslfile) (leq (idinf x) 256)) 
     (deposit32bitword (idinf X)))
    (t
      (put_a_halfword (wplus2 CodeBase* CurrentOffset*)
	       (makerelocword (const reloc_id_number) (findidnumber x))) 
      (setq CurrentOffset* (plus CurrentOffset* 4)) 
      (updatebittable 4 (const reloc_word)))))

%% (de depositwordidnumber (x) 
%%   (cond
%%     ((or (not *writingfaslfile) (leq (idinf x) 256)) 
%%      (deposit32bitword (idinf X)))
%%     (t
%%       (put_a_halfword (wplus2 CodeBase* CurrentOffset*)
%% 	       (makerelocword (const reloc_id_number) (findidnumber x))) 
%%       (setq CurrentOffset* (plus CurrentOffset* 4)) 
%%       (updatebittable 4 (const reloc_word)))))

(compiletime (load addr2id))


(de findidnumber (u)
  (prog (i)
        (return (cond ((null u) 256)
		      ((ileq (setq i (idinf u)) 256) i)
                      ((setq i (get u fasl-idnumber-property*)) i)
                      (t
		       (if (extraargumentp nextidnumber*)
			   (stderror "Too many identifiers is fasl file")
			 (progn
			   (put u fasl-idnumber-property* (setq i nextidnumber*))
			   (setq orderedidlist* (tconc orderedidlist* u))
			   (setq nextidnumber* (iadd1 nextidnumber*)) i)))))))
%% (de findidnumber (u)
%%   (prog (i)
%%         (return (cond ((null u) 256)
%% 		      ((ileq (setq i (idinf u)) 256) i)
%%                       ((setq i (get u fasl-idnumber-property*)) i)
%% 		      ((extraargumentp nextidnumber*)
%% 		       (stderror "Too many identifiers in fasl file"))
%%                       (t (put u 'idnumber (setq i nextidnumber*))
%% 			 (setq orderedidlist* (tconc orderedidlist* u))
%% 			 (setq nextidnumber* (iadd1 nextidnumber*)) i)))))


(de initsymval1 (x)


@@ 258,10 245,3 @@
                         (findidnumber x))))))))
(setq nil-t-diff* 140)

%(remprop '*get-stack 'opencode)
%(remprop '*put-stack 'opencode)

%(remprop 'wconst 'anyregresolutionfunction)
%(remprop 'wconst 'anyregpatterntable)

%(remprop 'cons 'opencode)

M psl/dist/comp/aarch64/aarch64-lap-to-asm.sl => psl/dist/comp/aarch64/aarch64-lap-to-asm.sl +13 -2
@@ 99,6 99,12 @@
%   Changed SEMIC* declaration from global to fluid.                      
% <PSL.COMP>LAP-TO-ASM.RED.5, 30-Apr-82 14:47:52, Edit by BENSON           
%   Removed EVAL and IGNORE processing                                     
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% $Id$
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

(fluid '(semic* *comp *plap dfprint* charactersperword 
                 addressingunitsperitem addressingunitsperfunctioncell 


@@ 387,6 393,8 @@
        (return (cond ((null u) 256)
                      ((leq (setq i (id2int u)) 255) i)
                      ((setq i (get u 'idnumber)) i)
		      ((extraargumentp nextidnumber*)
		       (stderror "Too many identifiers in fasl file"))
                      (t (put u 'idnumber (setq i nextidnumber*)) 
                         (setq orderedidlist* (tconc orderedidlist* u)) 
                         (setq nextidnumber* (plus nextidnumber* 1)) i)))))


@@ 521,8 529,11 @@
(de asmoutlap (u)
  (prog (locallabels* oldout)
        (setq u (pass1lap u))
	(setq U (LapoptFrame u))
	(setq U (LapoptPeep u)) 
%        (setq u (pass1lap (&fillframeholes u)))
	(setq u (LapoptFrame u))
	(setq u (LapoptPeep u))
%	(setq u (ReformBranches u))
	(setq u (AlignData u))  
        % Expand cmacros, quoted expressions                               
        (codeblockheader)
        (setq oldout (wrs codeout*))

M psl/dist/comp/aarch64/aarch64-lap.sl => psl/dist/comp/aarch64/aarch64-lap.sl +12 -9
@@ 32,16 32,23 @@
% POSSIBILITY OF SUCH DAMAGE.
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Revisions
%
% Revisions:
%
% 28-Apr-92 (herbert Melenk)
% no relocation for quoted small ID's
%
% 3-Apr-90 (Winfried Neun)
% added support for new car and cdr scheme in modr/m
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% $Id$
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

(compiletime (load if-system))


% ------------------------------------------------------------
% Fluid declarations:
% ------------------------------------------------------------


@@ 680,6 687,9 @@
	     (eqcar (cdr x) 'LSL)
	     (pairp (cddr x)) (memq (caddr x) '(0 12)))))

(de imm12-neg-shiftedp (x)
    (and (Inump x) (imm12-shiftedp (wminus x))))

(de imm16-shiftedp (x)
    (or (and (fixp x) (eq x (land x 16#ffff)))
	(and (pairp x) (fixp (car x)) (eq (car x) (land (car x) 16#ffff))


@@ 2459,7 2469,6 @@
(de DepositQuadWordExpression (x)
  % Only limited expressions now handled
  (let (y)
%    (printf "Deposit %w at %x -> %x%n" x CurrentOffset* (wplus2 CodeBase* CurrentOffset*))
    (cond
      ((fixp x) (depositword (int2sys x)))
      ((labelp x) (deposit-relocated-word (LabelOffset x)))


@@ 2483,12 2492,6 @@
      ((memq (first x) '(fluid global $fluid $global)) (DepositValueCellLocation (second x)))
      ((setq y (wconstevaluable x)) (DepositWord (int2sys y)))
      (t (stderror (bldmsg "Expression too complicated %r" x))))
%    (printf "Deposited at %x: %x >%x< %x%n"
%	    (wplus2 (wplus2 CodeBase* CurrentOffset*) -4)
%	    (getword32 (wplus2 (wplus2 CodeBase* CurrentOffset*) -8) 0)
%	    (getword32 (wplus2 (wplus2 CodeBase* CurrentOffset*) -4) 0)
%	    (getword32 (wplus2 CodeBase* CurrentOffset*) 0)
%	    )
    ))

(de depositwordidnumber (x) 

M psl/dist/comp/aarch64/aarch64-spec.sl => psl/dist/comp/aarch64/aarch64-spec.sl +6 -0
@@ 31,6 31,12 @@
% POSSIBILITY OF SUCH DAMAGE.
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% $Id$
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% This code is intended for filling the 'holes' in the frame.
% e.g. in the following function

M psl/dist/comp/aarch64/comp-decls.sl => psl/dist/comp/aarch64/comp-decls.sl +4 -0
@@ 70,6 70,10 @@
%  Changed W to !%!%!%W in the EQCAR to avoid subst W into EQCAR form
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% $Id$
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

(put '!*JUMPNOTEQ      'NEGJMP '!*JUMPEQ)
(put '!*JUMPWLESSP     'NEGJMP '!*JUMPWGEQ)

M psl/dist/comp/aarch64/compiler.sl => psl/dist/comp/aarch64/compiler.sl +4 -0
@@ 32,6 32,10 @@
% POSSIBILITY OF SUCH DAMAGE.
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% $Id$
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

(makeunbound 'bitsperword)


M psl/dist/comp/aarch64/geninstr.sl => psl/dist/comp/aarch64/geninstr.sl +4 -0
@@ 36,6 36,10 @@
%
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% $Id$
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
% Note form of DefOpcode, similar to DefAnyreg or DefCmacro
%      A trailing OpFailure will be appended unless (T is used)

M psl/dist/comp/aarch64/muls.sl => psl/dist/comp/aarch64/muls.sl +6 -2
@@ 33,11 33,15 @@
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% $Id$
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% Double length multiply and divide for the  processor.
% These are the open codes which embed the extended arithmetic 
% operations such that they are accessible from compiled LISP top level.
% They map the 2*30 bit operations needed by BIG to the 2*32 bit operations
% of the processor by shifting etc.


(fluid '(*second-value*))
 


M psl/dist/comp/aarch64/nbittab.sl => psl/dist/comp/aarch64/nbittab.sl +4 -0
@@ 29,6 29,10 @@
% ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
% POSSIBILITY OF SUCH DAMAGE.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% $Id$
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

(compiletime (load inum fasl-decls))


M psl/dist/comp/aarch64/sys-consts.sl => psl/dist/comp/aarch64/sys-consts.sl +4 -0
@@ 36,6 36,10 @@
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% $Id$
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


(imports '(tags))


M psl/dist/comp/aarch64/sys-dm.sl => psl/dist/comp/aarch64/sys-dm.sl +4 -0
@@ 54,6 54,10 @@
%   Changed use of "autodecrement" (in a comment) to "predecrement".
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% $Id$
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

(load tags)


M psl/dist/comp/aarch64/tags.sl => psl/dist/comp/aarch64/tags.sl +4 -0
@@ 52,6 52,10 @@
%  Added header.
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% $Id$
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
(CompileTime
 

M psl/dist/kernel/aarch64/aarch64-cross => psl/dist/kernel/aarch64/aarch64-cross +11 -7
@@ 21,9 21,10 @@ $psys/pslcomp <<EOF
(load aarch64-cmac)
(load aarch64-comp)
(load aarch64-spec)
(load aarch64-cross)
%(remprop 'wquotient 'opencode)
%(remprop 'wremainder 'opencode)
(setq nil-t-diff* 140)
%(setq nil-t-diff* 140)
%(put 'NEGINTP 	'OPENTST 	'(TSTPAT2 !*JUMPTYPE    31))
%(put 'NOTNEGINTP 'OPENTST 	'(TSTPAT2 !*JUMPNOTTYPE 31))
%(put 'IDP 	'OPENTST 	'(TSTPAT2 !*JUMPTYPE    30))


@@ 36,12 37,15 @@ $psys/pslcomp <<EOF
%(put 'NOTIDP 	'OPENFN 	'(TVPAT-tag !*JUMPNOTTYPE 30))
%(put 'BSTRUCTP 'OPENFN 		'(TVPAT-tag !*JUMPTYPE    22))
%(put 'NOTBSTRUCTP 'OPENFN 	'(TVPAT-tag !*JUMPNOTTYPE 22))
(put 'id-tag 'compiler-constant? t)
(put 'bstruct-tag 'compiler-constant? t)
(put 'negint-tag 'compiler-constant? t)
(put 'id-tag 'compiler-constant-value 254)
(put 'bstruct-tag 'compiler-constant-value 246)
(put 'negint-tag 'compiler-constant-value 255)
(print (list 'tags (get 'id-tag 'compiler-constant-value)
                   (get 'bstruct-tag 'compiler-constant-value)
                   (get 'negint-tag 'compiler-constant-value)))
%(put 'id-tag 'compiler-constant? t)
%(put 'bstruct-tag 'compiler-constant? t)
%(put 'negint-tag 'compiler-constant? t)
%(put 'id-tag 'compiler-constant-value 254)
%(put 'bstruct-tag 'compiler-constant-value 246)
%(put 'negint-tag 'compiler-constant-value 255)
(print (list "nextidnumber*" nextidnumber*))

(remd 'foreignlink)

M psl/dist/kernel/aarch64/bpsl => psl/dist/kernel/aarch64/bpsl +0 -0
M psl/dist/kernel/aarch64/dmain.s => psl/dist/kernel/aarch64/dmain.s +68 -68
@@ 1108,6 1108,10 @@ symprp:
  .space 2395936
 .globl symnam
symnam:
 .globl l0494
 .quad [[4<<56]+l0494]
 .globl l0495
 .quad [[4<<56]+l0495]
 .globl l0496
 .quad [[4<<56]+l0496]
 .globl l0497


@@ 2122,10 2126,6 @@ symnam:
 .quad [[4<<56]+l1001]
 .globl l1002
 .quad [[4<<56]+l1002]
 .globl l1003
 .quad [[4<<56]+l1003]
 .globl l1004
 .quad [[4<<56]+l1004]
  .space 2395936
 .globl symfnc
symfnc:


@@ 2436,8 2436,8 @@ symfnc:
 .quad l0041
 .quad undefinedfunction
 .quad undefinedfunction
 .globl l0387
 .quad l0387
 .globl l0385
 .quad l0385
 .quad undefinedfunction
 .quad undefinedfunction
 .quad undefinedfunction


@@ 2448,10 2448,10 @@ symfnc:
 .quad l0083
 .globl l0062
 .quad l0062
 .globl l0388
 .quad l0388
 .globl l0442
 .quad l0442
 .globl l0386
 .quad l0386
 .globl l0440
 .quad l0440
 .globl _psl_main
 .quad _psl_main
 .globl reduceup


@@ 2464,8 2464,8 @@ symfnc:
 .quad undefinedfunction
 .quad undefinedfunction
 .quad undefinedfunction
 .globl l0435
 .quad l0435
 .globl l0433
 .quad l0433
 .globl l0108
 .quad l0108
 .globl initcode


@@ 2477,30 2477,30 @@ symfnc:
 .globl faslin
 .quad faslin
 .quad undefinedfunction
 .globl l0433
 .quad l0433
 .globl l0434
 .quad l0434
 .globl l0087
 .quad l0087
 .globl l0431
 .quad l0431
 .globl l0432
 .quad l0432
 .globl l0437
 .quad l0437
 .globl l0376
 .quad l0376
 .globl l0087
 .quad l0087
 .globl l0430
 .quad l0430
 .globl l0435
 .quad l0435
 .globl l0374
 .quad l0374
 .globl binaryopenread
 .quad binaryopenread
 .globl l0453
 .quad l0453
 .globl l0451
 .quad l0451
 .globl binaryread
 .quad binaryread
 .globl l0445
 .quad l0445
 .globl l0443
 .quad l0443
 .globl binaryreadblock
 .quad binaryreadblock
 .globl l0444
 .quad l0444
 .globl l0442
 .quad l0442
 .globl binaryclose
 .quad binaryclose
 .quad undefinedfunction


@@ 2528,8 2528,8 @@ symfnc:
 .quad l0168
 .globl l0172
 .quad l0172
 .globl l0300
 .quad l0300
 .globl l0299
 .quad l0299
 .quad undefinedfunction
 .quad undefinedfunction
 .globl plantunbound


@@ 2546,11 2546,11 @@ symfnc:
 .quad l0209
 .globl l0198
 .quad l0198
 .globl l0390
 .quad l0390
 .globl l0388
 .quad l0388
 .quad undefinedfunction
 .globl l0358
 .quad l0358
 .globl l0356
 .quad l0356
 .globl delbps
 .quad delbps
 .globl bittable


@@ 2590,41 2590,45 @@ symfnc:
 .quad interrogate
 .globl modify
 .quad modify
 .globl l0315
 .quad l0315
 .globl l0313
 .quad l0313
 .globl put
 .quad put
 .globl l0326
 .quad l0326
 .globl l0324
 .quad l0324
 .globl atsoc
 .quad atsoc
 .quad undefinedfunction
 .globl l0324
 .quad l0324
 .globl l0335
 .quad l0335
 .globl l0322
 .quad l0322
 .globl l0333
 .quad l0333
 .globl plantcodepointer
 .quad plantcodepointer
 .quad undefinedfunction
 .quad undefinedfunction
 .globl l0350
 .quad l0350
 .globl l0348
 .quad l0348
 .globl fluid
 .quad fluid
 .quad undefinedfunction
 .globl l0355
 .quad l0355
 .globl l0353
 .quad l0353
 .quad undefinedfunction
 .globl plantlambdalink
 .quad plantlambdalink
 .globl l0368
 .quad l0368
 .globl l0366
 .quad l0366
 .globl undefinedfunction
 .quad undefinedfunction
 .quad undefinedfunction
 .quad undefinedfunction
 .globl compiledcallinginterpreted
 .quad compiledcallinginterpreted
 .globl l0375
 .quad l0375
 .globl l0376
 .quad l0376
 .globl l0377
 .quad l0377
 .globl l0378


@@ 2641,12 2645,12 @@ symfnc:
 .quad l0383
 .globl l0384
 .quad l0384
 .globl l0385
 .quad l0385
 .globl l0386
 .quad l0386
 .globl l0387
 .quad l0387
 .globl l0389
 .quad l0389
 .globl l0390
 .quad l0390
 .globl l0391
 .quad l0391
 .globl l0392


@@ 2721,28 2725,28 @@ symfnc:
 .quad l0426
 .globl l0427
 .quad l0427
 .globl sigrelse
 .quad sigrelse
 .globl l0428
 .quad l0428
 .globl l0429
 .quad l0429
 .globl sigrelse
 .quad sigrelse
 .globl l0430
 .quad l0430
 .globl l0431
 .quad l0431
 .globl l0434
 .quad l0434
 .globl l0436
 .quad l0436
 .globl l0437
 .quad l0437
 .globl l0438
 .quad l0438
 .globl l0439
 .quad l0439
 .globl l0440
 .quad l0440
 .globl l0441
 .quad l0441
 .globl l0443
 .quad l0443
 .globl l0444
 .quad l0444
 .globl l0445
 .quad l0445
 .globl l0446
 .quad l0446
 .globl l0447


@@ 2753,10 2757,10 @@ symfnc:
 .quad l0449
 .globl l0450
 .quad l0450
 .globl l0451
 .quad l0451
 .globl l0452
 .quad l0452
 .globl l0453
 .quad l0453
 .globl l0454
 .quad l0454
 .globl l0455


@@ 2809,10 2813,6 @@ symfnc:
 .quad l0478
 .globl l0479
 .quad l0479
 .globl l0480
 .quad l0480
 .globl l0481
 .quad l0481
 .quad undefinedfunction
 .globl codeaddressp
 .quad codeaddressp

M psl/dist/kernel/aarch64/main.s => psl/dist/kernel/aarch64/main.s +1231 -1245
@@ 1171,20 1171,20 @@ l0168:
 add X3, X3, X11
 mov X4, X28
 str X4, [X3]
 ldr X0, [sp, #16]
 lsl X0, X0, #3
 ldr X5, [sp, #16]
 lsl X5, X5, #3
// ($global symget)
 ldr X11, l0166
 ldr X11, [X24, X11, lsl #3]
 add X0, X0, X11
 str X4, [X0]
 ldr X0, [sp, #16]
 lsl X0, X0, #3
 add X0, X0, X24
 ldr X1, [sp, #16]
 add X5, X5, X11
 str X4, [X5]
 ldr X6, [sp, #16]
 lsl X6, X6, #3
 add X6, X6, X24
 ldr X7, [sp, #16]
 mov X11, #253
 bfi X1, X11, #56, #8
 str X1, [X0]
 bfi X7, X11, #56, #8
 str X7, [X6]
 ldr X0, [sp, #16]
// (idloc plantunbound)
 ldr X11, l0167


@@ 1206,23 1206,20 @@ l0164:
// (*entry hash-function expr 1)
 .globl l0172
l0172:
 stp X29, X30, [sp, #-48]!
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 str X28, [sp, #40]
 ubfx X0, X0, #0, #56
 str X0, [sp, #24]
 mov X6, X0
 ldr X0, [X0]
 sbfx X0, X0, #0, #56
 str X0, [sp, #16]
 mov X5, X0
 mov X0, #0
 str X0, [sp, #32]
 ldr X11, [sp, #16]
 cmp X11, #20
 mov X7, X0
 cmp X5, #20
 b.le l0173
 mov X9, #20
 str X9, [sp, #16]
 mov X5, #20
l0173:
 ldr X1, [sp, #16]
 mov X1, X5
 mov X0, #0
 mov X4, X0
 mov X3, X1


@@ 1231,8 1228,7 @@ l0174:
 b.gt l0175
 mov X1, X4
 mov X0, #8
 ldr X11, [sp, #24]
 add X0, X0, X11
 add X0, X0, X6
 ldrsb X0, [X0, X1]
 mov X2, #56
 subs X2, X2, X1


@@ 1243,18 1239,18 @@ l0174:
l0169:
 lsl X0, X0, X2
l0170:
 ldr X10, [sp, #32]
 eor X0, X0, X10
 str X0, [sp, #32]
 eor X0, X0, X7
 mov X7, X0
 add X4, X4, #1
 b l0174
l0175:
 ldr X1, l0171
 ldr X0, [sp, #32]
 ldp X29, X30, [sp], #48
 mov X0, X7
 ldp X29, X30, [sp], #16
 udiv X9, X0, X1
 msub X0, X9, X1, X0
 ret
 nop
l0171:
 .quad 393241
 .quad 1


@@ 2316,7 2312,7 @@ l0291:
 ldr X11, l0289
 ldr X10, [X23, X11, lsl #3]
 blr X10
 str X0, [sp, #56]
 mov X5, X0
 ldr X1, [sp, #40]
 mov X0, #0
 mov X4, X0


@@ 2333,17 2329,17 @@ l0292:
 mov X2, X0
 mov X1, X4
 mov X0, #8
 ldr X11, [sp, #56]
 add X0, X0, X11
 add X0, X0, X5
 strb W2, [X0, X1]
 add X4, X4, #1
 b l0292
l0293:
 ldr X0, [sp, #56]
 mov X0, X5
 mov X11, #4
 bfi X0, X11, #56, #8
 ldp X29, X30, [sp], #64
 ret
 nop
l0289:
 .quad 387
l0288:


@@ 2354,10 2350,9 @@ l0287:
// (*entry search-string-for-character expr 2)
 .globl l0294
l0294:
 stp X29, X30, [sp, #-32]!
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 str X28, [sp, #24]
 str X0, [sp, #16]
 mov X5, X0
 mov X4, X1
 ubfx X1, X1, #0, #56
 ldr X1, [X1]


@@ 2369,77 2364,68 @@ l0295:
 cmp X3, X2
 b.le l0296
 mov X0, X28
 b l0297
 ldp X29, X30, [sp], #16
 ret
l0296:
 mov X1, X3
 ubfx X0, X4, #0, #56
 add X0, X0, #8
 ldrsb X0, [X0, X1]
 ldr X11, [sp, #16]
 cmp X11, X0
 b.ne l0298
 cmp X5, X0
 b.ne l0297
 mov X0, X1
 b l0297
l0298:
 ldp X29, X30, [sp], #16
 ret
l0297:
 add X3, X3, #1
 b l0295
l0297:
 ldp X29, X30, [sp], #32
 ret
 .quad 2
// (*entry unchecked-string-equal expr 2)
 .globl l0300
l0300:
 stp X29, X30, [sp, #-48]!
 .globl l0299
l0299:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 str X28, [sp, #40]
 str X28, [sp, #32]
 mov X5, X28
 ubfx X0, X0, #0, #56
 str X0, [sp, #16]
 mov X6, X0
 ubfx X1, X1, #0, #56
 str X1, [sp, #24]
 mov X7, X1
 ldr X2, [X0]
 sbfx X2, X2, #0, #56
 mov X4, X2
 ldr X3, [X1]
 sbfx X3, X3, #0, #56
 cmp X2, X3
 b.eq l0301
 b.eq l0300
 mov X0, X28
 b l0302
 ldp X29, X30, [sp], #16
 ret
l0300:
 mov X5, #0
l0301:
 mov X9, #0
 str X9, [sp, #32]
l0303:
 ldr X11, [sp, #32]
 cmp X11, X4
 b.le l0304
 ldr X0, l0299
 b l0302
l0304:
 ldr X1, [sp, #32]
 cmp X5, X4
 b.le l0302
 ldr X0, l0298
 ldp X29, X30, [sp], #16
 ret
l0302:
 mov X1, X5
 mov X0, #8
 ldr X11, [sp, #16]
 add X0, X0, X11
 add X0, X0, X6
 ldrsb X0, [X0, X1]
 mov X2, X0
 mov X0, #8
 ldr X11, [sp, #24]
 add X0, X0, X11
 add X0, X0, X7
 ldrsb X0, [X0, X1]
 cmp X2, X0
 b.eq l0305
 b.eq l0303
 mov X0, X28
 b l0302
l0305:
 ldr X10, [sp, #32]
 add X10, X10, #1
 str X10, [sp, #32]
 b l0303
l0302:
 ldp X29, X30, [sp], #48
 ldp X29, X30, [sp], #16
 ret
l0299:
l0303:
 add X5, X5, #1
 b l0301
l0298:
 .quad [[254<<56]+116]
 .quad 2
// (*entry copystringtofrom expr 2)


@@ 2455,28 2441,28 @@ copystringtofrom:
 ldr X4, [X3]
 sbfx X4, X4, #0, #56
 str X4, [sp, #16]
 ldr X0, [X2]
 sbfx X0, X0, #0, #56
 cmp X0, X4
 b.ge l0306
 str X0, [sp, #16]
l0306:
 mov X0, #9
 ldr X5, [X2]
 sbfx X5, X5, #0, #56
 cmp X5, X4
 b.ge l0304
 str X5, [sp, #16]
l0304:
 mov X6, #9
 ldr X11, [sp, #16]
 add X0, X0, X11
 mov X1, X0
 lsr X1, X1, #61
 add X0, X0, X1
 asr X0, X0, #3
 sub X0, X0, #1
 str X0, [sp, #16]
 mov X1, X0
 add X6, X6, X11
 mov X7, X6
 lsr X7, X7, #61
 add X6, X6, X7
 asr X6, X6, #3
 sub X6, X6, #1
 str X6, [sp, #16]
 mov X1, X6
 mov X0, #0
 mov X3, X0
 mov X2, X1
l0307:
l0305:
 cmp X3, X2
 b.gt l0308
 b.gt l0306
 mov X0, #1
 add X0, X0, X3
 lsl X0, X0, #3


@@ 2490,8 2476,8 @@ l0307:
 ldr X9, [X1]
 str X9, [X0]
 add X3, X3, #1
 b l0307
l0308:
 b l0305
l0306:
 ldr X0, [sp, #40]
 ldp X29, X30, [sp], #48
 ret


@@ 2506,7 2492,7 @@ cons:
 str X1, [sp, #24]
 mov X0, #2
// (idloc gtheap)
 ldr X11, l0309
 ldr X11, l0307
 ldr X10, [X23, X11, lsl #3]
 blr X10
 ldr X9, [sp, #16]


@@ 2517,7 2503,7 @@ cons:
 bfi X0, X11, #56, #8
 ldp X29, X30, [sp], #32
 ret
l0309:
l0307:
 .quad 384
 .quad 1
// (*entry interrogate expr 1)


@@ 2551,15 2537,15 @@ put:
 mov X29, sp
 ldp X29, X30, [sp], #16
// (idloc unchecked-put)
 ldr X11, l0310
 ldr X11, l0308
 ldr X10, [X23, X11, lsl #3]
 br X10
l0310:
l0308:
 .quad 391
 .quad 3
// (*entry unchecked-put expr 3)
 .globl l0315
l0315:
 .globl l0313
l0313:
 stp X29, X30, [sp, #-48]!
 mov X29, sp
 str X28, [sp, #40]


@@ 2567,23 2553,23 @@ l0315:
 str X1, [sp, #24]
 str X2, [sp, #32]
// (idloc unchecked-prop)
 ldr X11, l0311
 ldr X11, l0309
 ldr X10, [X23, X11, lsl #3]
 blr X10
 str X0, [sp, #40]
 mov X1, X0
 ldr X0, [sp, #24]
// (idloc atsoc)
 ldr X11, l0312
 ldr X11, l0310
 ldr X10, [X23, X11, lsl #3]
 blr X10
 cmp X0, X28
 b.eq l0316
 b.eq l0314
 ubfx X10, X0, #0, #56
 ldr X9, [sp, #32]
 str X9, [X10, #8]
 b l0317
l0316:
 b l0315
l0314:
 ldr X1, [sp, #32]
 ldr X0, [sp, #24]
 str X0, [X21]


@@ 2593,14 2579,14 @@ l0316:
 str X1, [X21, #8]
 add X21, X21, #16
 cmp X21, X22
 b.lt l0318
 b.lt l0316
 stp X0, X1, [sp, #16]!
// (idloc !%reclaim)
 ldr X11, l0313
 ldr X11, l0311
 ldr X10, [X23, X11, lsl #3]
 blr X10
 ldp X0, X1, [sp], #16
l0318:
l0316:
 ldr X1, [sp, #40]
 str X0, [X21]
 mov X0, #9


@@ 2609,31 2595,31 @@ l0318:
 str X1, [X21, #8]
 add X21, X21, #16
 cmp X21, X22
 b.lt l0319
 b.lt l0317
 stp X0, X1, [sp, #16]!
// (idloc !%reclaim)
 ldr X11, l0313
 ldr X11, l0311
 ldr X10, [X23, X11, lsl #3]
 blr X10
 ldp X0, X1, [sp], #16
l0319:
l0317:
 mov X1, X0
 ldr X0, [sp, #16]
// (idloc unchecked-setprop)
 ldr X11, l0314
 ldr X11, l0312
 ldr X10, [X23, X11, lsl #3]
 blr X10
l0317:
l0315:
 ldr X0, [sp, #32]
 ldp X29, X30, [sp], #48
 ret
l0314:
l0312:
 .quad 396
l0313:
l0311:
 .quad 395
l0312:
l0310:
 .quad 394
l0311:
l0309:
 .quad 393
 .quad 2
// (*entry atsoc expr 2)


@@ 2641,43 2627,43 @@ l0311:
atsoc:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
l0320:
l0318:
 ubfx X11, X1, #56, #8
 cmp X11, #9
 b.eq l0321
 b.eq l0319
 mov X0, X28
 ldp X29, X30, [sp], #16
 ret
l0321:
l0319:
 ubfx X9, X1, #0, #56
 ldr X11, [X9]
 ubfx X11, X11, #56, #8
 cmp X11, #9
 b.ne l0322
 b.ne l0320
 ubfx X10, X1, #0, #56
 ldr X10, [X10]
 ubfx X10, X10, #0, #56
 ldr X11, [X10]
 cmp X0, X11
 b.ne l0322
 b.ne l0320
 ubfx X0, X1, #0, #56
 ldr X0, [X0]
 ldp X29, X30, [sp], #16
 ret
l0322:
l0320:
 ubfx X1, X1, #0, #56
 ldr X1, [X1, #8]
 b l0320
 b l0318
 .quad 2
// (*entry unchecked-setprop expr 2)
 .globl l0324
l0324:
 .globl l0322
l0322:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ubfx X0, X0, #0, #56
 lsl X0, X0, #3
// ($global symprp)
 ldr X11, l0323
 ldr X11, l0321
 ldr X11, [X24, X11, lsl #3]
 add X0, X0, X11
 str X1, [X0]


@@ 2685,24 2671,24 @@ l0324:
 ldp X29, X30, [sp], #16
 ret
 nop
l0323:
l0321:
 .quad 357
 .quad 1
// (*entry unchecked-prop expr 1)
 .globl l0326
l0326:
 .globl l0324
l0324:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ubfx X0, X0, #0, #56
 lsl X0, X0, #3
// ($global symprp)
 ldr X11, l0325
 ldr X11, l0323
 ldr X11, [X24, X11, lsl #3]
 add X0, X0, X11
 ldr X0, [X0]
 ldp X29, X30, [sp], #16
 ret
l0325:
l0323:
 .quad 357
 .quad 3
// (*entry putd expr 3)


@@ 2712,20 2698,20 @@ putd:
 mov X29, sp
 ldp X29, X30, [sp], #16
// (idloc code-putd)
 ldr X11, l0327
 ldr X11, l0325
 ldr X10, [X23, X11, lsl #3]
 br X10
l0327:
l0325:
 .quad 397
l0334:
l0332:
 .quad 26
 .byte 66,97,100,32,112,97,114,97,109,101
 .byte 116,101,114,115,32,116,111,32,67,79
 .byte 68,69,45,80,85,84,68,0,0,0,0,0
 .quad 3
// (*entry code-putd expr 3)
 .globl l0335
l0335:
 .globl l0333
l0333:
 stp X29, X30, [sp, #-48]!
 mov X29, sp
 str X28, [sp, #40]


@@ 2734,56 2720,56 @@ l0335:
 str X2, [sp, #32]
 ubfx X11, X0, #56, #8
 cmp X11, #254
 b.ne l0336
 b.ne l0334
 ubfx X11, X1, #56, #8
 cmp X11, #254
 b.ne l0336
 b.ne l0334
 ubfx X11, X2, #56, #8
 cmp X11, #20
 b.eq l0337
l0336:
 ldr X0, l0328
 b.eq l0335
l0334:
 ldr X0, l0326
// (idloc kernel-fatal-error)
 ldr X11, l0329
 ldr X11, l0327
 ldr X10, [X23, X11, lsl #3]
 blr X10
l0337:
l0335:
 ldr X1, [sp, #32]
 ubfx X1, X1, #0, #56
 ldr X0, [sp, #16]
 ubfx X0, X0, #0, #56
// (idloc plantcodepointer)
 ldr X11, l0330
 ldr X11, l0328
 ldr X10, [X23, X11, lsl #3]
 blr X10
 ldr X9, [sp, #24]
 ldr X10, l0331
 ldr X10, l0329
 cmp X9, X10
 b.eq l0338
 b.eq l0336
 ldr X2, [sp, #24]
 ldr X1, l0332
 ldr X1, l0330
 ldr X0, [sp, #16]
 ldp X29, X30, [sp], #48
// (idloc put)
 ldr X11, l0333
 ldr X11, l0331
 ldr X10, [X23, X11, lsl #3]
 br X10
l0338:
l0336:
 mov X0, X28
 ldp X29, X30, [sp], #48
 ret
l0333:
l0331:
 .quad 392
l0332:
l0330:
 .quad [[254<<56]+399]
l0331:
l0329:
 .quad [[254<<56]+400]
l0330:
l0328:
 .quad 398
l0329:
l0327:
 .quad 334
l0328:
 .quad [[4<<56]+l0334]
l0326:
 .quad [[4<<56]+l0332]
 .quad 1
// (*entry fluid expr 1)
 .globl fluid


@@ 2799,26 2785,26 @@ fluid:
 mov X11, X9
 ubfx X11, X11, #56, #8
 cmp X11, #9
 b.ne l0340
 b.ne l0338
 ldr X0, [sp, #24]
 ubfx X0, X0, #0, #56
 ldr X0, [X0]
 b l0341
l0340:
 b l0339
l0338:
 mov X0, X28
l0341:
l0339:
 str X0, [sp, #32]
l0342:
l0340:
 ldr X11, [sp, #24]
 ubfx X11, X11, #56, #8
 cmp X11, #9
 b.eq l0343
 b.eq l0341
 mov X0, X28
 b l0344
l0343:
 b l0342
l0341:
 ldr X0, [sp, #32]
// (idloc fluid1)
 ldr X11, l0339
 ldr X11, l0337
 ldr X10, [X23, X11, lsl #3]
 blr X10
 ldr X0, [sp, #24]


@@ 2827,39 2813,39 @@ l0343:
 str X0, [sp, #24]
 ubfx X11, X0, #56, #8
 cmp X11, #9
 b.ne l0345
 b.ne l0343
 ubfx X0, X0, #0, #56
 ldr X0, [X0]
 b l0346
l0345:
 b l0344
l0343:
 mov X0, X28
l0346:
 str X0, [sp, #32]
 b l0342
l0344:
 str X0, [sp, #32]
 b l0340
l0342:
 ldp X29, X30, [sp], #48
 ret
 nop
l0339:
l0337:
 .quad 401
 .quad 1
// (*entry fluid1 expr 1)
 .globl l0350
l0350:
 .globl l0348
l0348:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldr X2, l0347
 ldr X1, l0348
 ldr X2, l0345
 ldr X1, l0346
 ldp X29, X30, [sp], #16
// (idloc put)
 ldr X11, l0349
 ldr X11, l0347
 ldr X10, [X23, X11, lsl #3]
 br X10
l0349:
l0347:
 .quad 392
l0348:
l0346:
 .quad [[254<<56]+403]
l0347:
l0345:
 .quad [[254<<56]+402]
 .quad 1
// (*entry stderror expr 1)


@@ 2869,33 2855,33 @@ stderror:
 mov X29, sp
 ldp X29, X30, [sp], #16
// (idloc kernel-fatal-error)
 ldr X11, l0351
 ldr X11, l0349
 ldr X10, [X23, X11, lsl #3]
 br X10
l0351:
l0349:
 .quad 334
 .quad 2
// (*entry *define-constant expr 2)
 .globl l0355
l0355:
 .globl l0353
l0353:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ubfx X2, X0, #0, #56
 lsl X2, X2, #3
 add X2, X2, X24
 str X1, [X2]
 ldr X2, l0352
 ldr X1, l0353
 ldr X2, l0350
 ldr X1, l0351
 ldp X29, X30, [sp], #16
// (idloc put)
 ldr X11, l0354
 ldr X11, l0352
 ldr X10, [X23, X11, lsl #3]
 br X10
l0354:
l0352:
 .quad 392
l0353:
l0351:
 .quad [[254<<56]+405]
l0352:
l0350:
 .quad [[254<<56]+116]
 .quad 1
// (*entry plantunbound expr 1)


@@ 2903,12 2889,12 @@ l0352:
plantunbound:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldr X9, l0356
 ldr X9, l0354
 str X9, [X23, X0, lsl #3]
 ldp X29, X30, [sp], #16
 ret
 .quad 0
l0356:
l0354:
 .quad undefinedfunction
 .quad 2
// (*entry plantcodepointer expr 2)


@@ 2926,17 2912,17 @@ plantcodepointer:
plantlambdalink:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldr X9, l0357
 ldr X9, l0355
 str X9, [X23, X0, lsl #3]
 ldp X29, X30, [sp], #16
 ret
 .quad 0
l0357:
l0355:
 .quad compiledcallinginterpreted
 .quad 1
// (*entry addressapply0 expr 1)
 .globl l0358
l0358:
 .globl l0356
l0356:
 br X0
 nop
 .quad 2


@@ 2951,13 2937,13 @@ bittable:
 ubfx X2, X3, #32, #2
 lsl X2, X2, #1
 subs X2, X2, #6
 b.ge l0359
 b.ge l0357
 neg X10, X2
 lsr X0, X0, X10
 b l0360
l0359:
 b l0358
l0357:
 lsl X0, X0, X2
l0360:
l0358:
 ubfx X0, X0, #32, #2
 ldp X29, X30, [sp], #16
 ret


@@ 2969,12 2955,12 @@ undefinedfunction:
 mov X29, sp
 mov X9, X11
// (idloc undefinedfunction-aux)
 ldr X11, l0361
 ldr X11, l0359
 ldr X10, [X23, X11, lsl #3]
 br X10
l0361:
l0359:
 .quad 407
l0367:
l0365:
 .quad 26
 .byte 85,110,100,101,102,105,110,101,100
 .byte 32,102,117,110,99,116,105,111,110,32


@@ 2982,47 2968,47 @@ l0367:
 .byte 0
 .quad 1
// (*entry undefinedfunction-aux expr 1)
 .globl l0368
l0368:
 .globl l0366
l0366:
 stp X29, X30, [sp, #-32]!
 mov X29, sp
 str X28, [sp, #24]
 str X9, [sp, #16]
 ldr X0, l0362
 ldr X0, l0360
// (idloc console-print-string)
 ldr X11, l0363
 ldr X11, l0361
 ldr X10, [X23, X11, lsl #3]
 blr X10
// ($fluid symnam)
 ldr X11, l0364
 ldr X11, l0362
 ldr X10, [X24, X11, lsl #3]
 ldr X9, [sp, #16]
 ldr X0, [X10, X9, lsl #3]
// (idloc console-print-string)
 ldr X11, l0363
 ldr X11, l0361
 ldr X10, [X23, X11, lsl #3]
 blr X10
// (idloc console-newline)
 ldr X11, l0365
 ldr X11, l0363
 ldr X10, [X23, X11, lsl #3]
 blr X10
 mov X0, #0
// (idloc exit-with-status)
 ldr X11, l0366
 ldr X11, l0364
 ldr X10, [X23, X11, lsl #3]
 blr X10
 ldp X29, X30, [sp], #32
 ret
l0366:
l0364:
 .quad 310
l0365:
l0363:
 .quad 326
l0364:
l0362:
 .quad 343
l0363:
l0361:
 .quad 325
l0362:
 .quad [[4<<56]+l0367]
l0360:
 .quad [[4<<56]+l0365]
 .quad 0
// (*entry compiledcallinginterpreted expr 0)
 .globl compiledcallinginterpreted


@@ 3031,60 3017,60 @@ compiledcallinginterpreted:
 mov X11, #254
 bfi X9, X11, #56, #8
// ($fluid codeform*)
 ldr X11, l0369
 ldr X11, l0367
 str X9, [X24, X11, lsl #3]
// (idloc compiledcallinginterpretedaux)
 ldr X11, l0370
 ldr X11, l0368
 ldr X10, [X23, X11, lsl #3]
 br X10
l0370:
l0368:
 .quad 410
l0369:
l0367:
 .quad 409
l0375:
l0373:
 .quad 12
 .byte 70,65,84,65,76,32,69,82,82,79,82,58
 .byte 32,0,0,0
 .quad 1
// (*entry kernel-fatal-error expr 1)
 .globl l0376
l0376:
 .globl l0374
l0374:
 stp X29, X30, [sp, #-32]!
 mov X29, sp
 str X28, [sp, #24]
 str X0, [sp, #16]
 ldr X0, l0371
 ldr X0, l0369
// (idloc console-print-string)
 ldr X11, l0372
 ldr X11, l0370
 ldr X10, [X23, X11, lsl #3]
 blr X10
 ldr X0, [sp, #16]
// (idloc console-print-string)
 ldr X11, l0372
 ldr X11, l0370
 ldr X10, [X23, X11, lsl #3]
 blr X10
// (idloc console-newline)
 ldr X11, l0373
 ldr X11, l0371
 ldr X10, [X23, X11, lsl #3]
 blr X10
 movn X0, #0
 ldp X29, X30, [sp], #32
// (idloc exit-with-status)
 ldr X11, l0374
 ldr X11, l0372
 ldr X10, [X23, X11, lsl #3]
 br X10
l0374:
l0372:
 .quad 310
l0373:
l0371:
 .quad 326
l0372:
l0370:
 .quad 325
l0371:
 .quad [[4<<56]+l0375]
l0369:
 .quad [[4<<56]+l0373]
 .quad 0
// (*entry echoon expr 0)
 .globl l0377
l0377:
 .globl l0375
l0375:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 3103,8 3089,8 @@ l0377:
 ret
 .quad 0
// (*entry echooff expr 0)
 .globl l0378
l0378:
 .globl l0376
l0376:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 3123,8 3109,8 @@ l0378:
 ret
 .quad 1
// (*entry external_charsininputbuffer expr 1)
 .globl l0379
l0379:
 .globl l0377
l0377:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 3143,8 3129,8 @@ l0379:
 ret
 .quad 0
// (*entry flushstdoutputbuffer expr 0)
 .globl l0380
l0380:
 .globl l0378
l0378:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 3163,8 3149,8 @@ l0380:
 ret
 .quad 0
// (*entry external_user_homedir_string expr 0)
 .globl l0381
l0381:
 .globl l0379
l0379:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 3183,8 3169,8 @@ l0381:
 ret
 .quad 1
// (*entry external_anyuser_homedir_string expr 1)
 .globl l0382
l0382:
 .globl l0380
l0380:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 3203,8 3189,8 @@ l0382:
 ret
 .quad 1
// (*entry alterheapsize expr 1)
 .globl l0383
l0383:
 .globl l0381
l0381:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 3223,8 3209,8 @@ l0383:
 ret
 .quad 1
// (*entry allocatemorebps expr 1)
 .globl l0384
l0384:
 .globl l0382
l0382:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 3243,8 3229,8 @@ l0384:
 ret
 .quad 0
// (*entry get_imagefilepath expr 0)
 .globl l0385
l0385:
 .globl l0383
l0383:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 3263,8 3249,8 @@ l0385:
 ret
 .quad 3
// (*entry get_file_status expr 3)
 .globl l0386
l0386:
 .globl l0384
l0384:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 3283,8 3269,8 @@ l0386:
 ret
 .quad 2
// (*entry os_startup_hook expr 2)
 .globl l0387
l0387:
 .globl l0385
l0385:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 3303,8 3289,8 @@ l0387:
 ret
 .quad 0
// (*entry os_cleanup_hook expr 0)
 .globl l0388
l0388:
 .globl l0386
l0386:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 3323,8 3309,8 @@ l0388:
 ret
 .quad 0
// (*entry get_execfilepath expr 0)
 .globl l0389
l0389:
 .globl l0387
l0387:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 3343,8 3329,8 @@ l0389:
 ret
 .quad 2
// (*entry clear_cache expr 2)
 .globl l0390
l0390:
 .globl l0388
l0388:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 3363,8 3349,8 @@ l0390:
 ret
 .quad 4
// (*entry wxquotientdouble expr 4)
 .globl l0391
l0391:
 .globl l0389
l0389:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 3383,8 3369,8 @@ l0391:
 ret
 .quad 1
// (*entry external_alarm expr 1)
 .globl l0392
l0392:
 .globl l0390
l0390:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 3403,8 3389,8 @@ l0392:
 ret
 .quad 2
// (*entry external_ualarm expr 2)
 .globl l0393
l0393:
 .globl l0391
l0391:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 3423,8 3409,8 @@ l0393:
 ret
 .quad 1
// (*entry external_time expr 1)
 .globl l0394
l0394:
 .globl l0392
l0392:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 3443,8 3429,8 @@ l0394:
 ret
 .quad 1
// (*entry external_timc expr 1)
 .globl l0395
l0395:
 .globl l0393
l0393:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 3463,8 3449,8 @@ l0395:
 ret
 .quad 2
// (*entry external_stat expr 2)
 .globl l0396
l0396:
 .globl l0394
l0394:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 3483,8 3469,8 @@ l0396:
 ret
 .quad 2
// (*entry external_link expr 2)
 .globl l0397
l0397:
 .globl l0395
l0395:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 3503,8 3489,8 @@ l0397:
 ret
 .quad 1
// (*entry external_unlink expr 1)
 .globl l0398
l0398:
 .globl l0396
l0396:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 3523,8 3509,8 @@ l0398:
 ret
 .quad 1
// (*entry external_rmdir expr 1)
 .globl l0399
l0399:
 .globl l0397
l0397:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 3543,8 3529,8 @@ l0399:
 ret
 .quad 2
// (*entry external_mkdir expr 2)
 .globl l0400
l0400:
 .globl l0398
l0398:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 3563,8 3549,8 @@ l0400:
 ret
 .quad 1
// (*entry external_strlen expr 1)
 .globl l0401
l0401:
 .globl l0399
l0399:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 3583,8 3569,8 @@ l0401:
 ret
 .quad 2
// (*entry external_setenv expr 2)
 .globl l0402
l0402:
 .globl l0400
l0400:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 3603,8 3589,8 @@ l0402:
 ret
 .quad 1
// (*entry external_getenv expr 1)
 .globl l0403
l0403:
 .globl l0401
l0401:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 3623,8 3609,8 @@ l0403:
 ret
 .quad 2
// (*entry uxfloat expr 2)
 .globl l0404
l0404:
 .globl l0402
l0402:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 3643,8 3629,8 @@ l0404:
 ret
 .quad 1
// (*entry uxfix expr 1)
 .globl l0405
l0405:
 .globl l0403
l0403:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 3663,8 3649,8 @@ l0405:
 ret
 .quad 2
// (*entry uxassign expr 2)
 .globl l0406
l0406:
 .globl l0404
l0404:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 3683,8 3669,8 @@ l0406:
 ret
 .quad 2
// (*entry uxminus expr 2)
 .globl l0407
l0407:
 .globl l0405
l0405:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 3703,8 3689,8 @@ l0407:
 ret
 .quad 3
// (*entry uxplus2 expr 3)
 .globl l0408
l0408:
 .globl l0406
l0406:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 3723,8 3709,8 @@ l0408:
 ret
 .quad 3
// (*entry uxdifference expr 3)
 .globl l0409
l0409:
 .globl l0407
l0407:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 3743,8 3729,8 @@ l0409:
 ret
 .quad 3
// (*entry uxtimes2 expr 3)
 .globl l0410
l0410:
 .globl l0408
l0408:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 3763,8 3749,8 @@ l0410:
 ret
 .quad 3
// (*entry uxquotient expr 3)
 .globl l0411
l0411:
 .globl l0409
l0409:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 3783,8 3769,8 @@ l0411:
 ret
 .quad 4
// (*entry uxgreaterp expr 4)
 .globl l0412
l0412:
 .globl l0410
l0410:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 3803,8 3789,8 @@ l0412:
 ret
 .quad 4
// (*entry uxlessp expr 4)
 .globl l0413
l0413:
 .globl l0411
l0411:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 3823,8 3809,8 @@ l0413:
 ret
 .quad 3
// (*entry uxwritefloat expr 3)
 .globl l0414
l0414:
 .globl l0412
l0412:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 3843,8 3829,8 @@ l0414:
 ret
 .quad 2
// (*entry uxdoubletofloat expr 2)
 .globl l0415
l0415:
 .globl l0413
l0413:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 3863,8 3849,8 @@ l0415:
 ret
 .quad 2
// (*entry uxfloattodouble expr 2)
 .globl l0416
l0416:
 .globl l0414
l0414:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 3883,8 3869,8 @@ l0416:
 ret
 .quad 2
// (*entry uxsin expr 2)
 .globl l0417
l0417:
 .globl l0415
l0415:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 3903,8 3889,8 @@ l0417:
 ret
 .quad 2
// (*entry uxcos expr 2)
 .globl l0418
l0418:
 .globl l0416
l0416:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 3923,8 3909,8 @@ l0418:
 ret
 .quad 2
// (*entry uxtan expr 2)
 .globl l0419
l0419:
 .globl l0417
l0417:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 3943,8 3929,8 @@ l0419:
 ret
 .quad 2
// (*entry uxasin expr 2)
 .globl l0420
l0420:
 .globl l0418
l0418:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 3963,8 3949,8 @@ l0420:
 ret
 .quad 2
// (*entry uxacos expr 2)
 .globl l0421
l0421:
 .globl l0419
l0419:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 3983,8 3969,8 @@ l0421:
 ret
 .quad 2
// (*entry uxatan expr 2)
 .globl l0422
l0422:
 .globl l0420
l0420:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 4003,8 3989,8 @@ l0422:
 ret
 .quad 2
// (*entry uxsqrt expr 2)
 .globl l0423
l0423:
 .globl l0421
l0421:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 4023,8 4009,8 @@ l0423:
 ret
 .quad 2
// (*entry uxexp expr 2)
 .globl l0424
l0424:
 .globl l0422
l0422:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 4043,8 4029,8 @@ l0424:
 ret
 .quad 2
// (*entry uxlog expr 2)
 .globl l0425
l0425:
 .globl l0423
l0423:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 4063,8 4049,8 @@ l0425:
 ret
 .quad 3
// (*entry uxatan2 expr 3)
 .globl l0426
l0426:
 .globl l0424
l0424:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 4083,8 4069,8 @@ l0426:
 ret
 .quad 0
// (*entry external_pwd expr 0)
 .globl l0427
l0427:
 .globl l0425
l0425:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 4103,8 4089,8 @@ l0427:
 ret
 .quad 2
// (*entry sun3_sigset expr 2)
 .globl l0428
l0428:
 .globl l0426
l0426:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 4123,8 4109,8 @@ l0428:
 ret
 .quad 2
// (*entry sun3_sigrelse expr 2)
 .globl l0429
l0429:
 .globl l0427
l0427:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 4163,8 4149,8 @@ sigrelse:
 ret
 .quad 2
// (*entry mask_signal expr 2)
 .globl l0430
l0430:
 .globl l0428
l0428:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 4183,8 4169,8 @@ l0430:
 ret
 .quad 4
// (*entry unexec expr 4)
 .globl l0431
l0431:
 .globl l0429
l0429:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 4203,8 4189,8 @@ l0431:
 ret
 .quad 1
// (*entry unixputc expr 1)
 .globl l0432
l0432:
 .globl l0430
l0430:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 4223,8 4209,8 @@ l0432:
 ret
 .quad 1
// (*entry unixputs expr 1)
 .globl l0433
l0433:
 .globl l0431
l0431:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 4243,8 4229,8 @@ l0433:
 ret
 .quad 1
// (*entry unixputn expr 1)
 .globl l0434
l0434:
 .globl l0432
l0432:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 4263,8 4249,8 @@ l0434:
 ret
 .quad 0
// (*entry unixcleario expr 0)
 .globl l0435
l0435:
 .globl l0433
l0433:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 4283,8 4269,8 @@ l0435:
 ret
 .quad 1
// (*entry expand_file_name expr 1)
 .globl l0436
l0436:
 .globl l0434
l0434:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 4303,8 4289,8 @@ l0436:
 ret
 .quad 2
// (*entry unixopen expr 2)
 .globl l0437
l0437:
 .globl l0435
l0435:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 4323,8 4309,8 @@ l0437:
 ret
 .quad 1
// (*entry unixcd expr 1)
 .globl l0438
l0438:
 .globl l0436
l0436:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 4343,8 4329,8 @@ l0438:
 ret
 .quad 1
// (*entry ctime expr 1)
 .globl l0439
l0439:
 .globl l0437
l0437:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 4363,8 4349,8 @@ l0439:
 ret
 .quad 1
// (*entry external_system expr 1)
 .globl l0440
l0440:
 .globl l0438
l0438:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 4383,8 4369,8 @@ l0440:
 ret
 .quad 1
// (*entry external_fullpath expr 1)
 .globl l0441
l0441:
 .globl l0439
l0439:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 4403,8 4389,8 @@ l0441:
 ret
 .quad 1
// (*entry external_exit expr 1)
 .globl l0442
l0442:
 .globl l0440
l0440:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 4423,8 4409,8 @@ l0442:
 ret
 .quad 2
// (*entry fopen expr 2)
 .globl l0443
l0443:
 .globl l0441
l0441:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 4443,8 4429,8 @@ l0443:
 ret
 .quad 1
// (*entry fclose expr 1)
 .globl l0444
l0444:
 .globl l0442
l0442:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 4463,8 4449,8 @@ l0444:
 ret
 .quad 4
// (*entry fread expr 4)
 .globl l0445
l0445:
 .globl l0443
l0443:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 4483,8 4469,8 @@ l0445:
 ret
 .quad 2
// (*entry fputc expr 2)
 .globl l0446
l0446:
 .globl l0444
l0444:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 4503,8 4489,8 @@ l0446:
 ret
 .quad 1
// (*entry fgetc expr 1)
 .globl l0447
l0447:
 .globl l0445
l0445:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 4523,8 4509,8 @@ l0447:
 ret
 .quad 3
// (*entry fgets expr 3)
 .globl l0448
l0448:
 .globl l0446
l0446:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 4543,8 4529,8 @@ l0448:
 ret
 .quad 4
// (*entry fwrite expr 4)
 .globl l0449
l0449:
 .globl l0447
l0447:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 4563,8 4549,8 @@ l0449:
 ret
 .quad 1
// (*entry fflush expr 1)
 .globl l0450
l0450:
 .globl l0448
l0448:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 4583,8 4569,8 @@ l0450:
 ret
 .quad 3
// (*entry fseek expr 3)
 .globl l0451
l0451:
 .globl l0449
l0449:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 4603,8 4589,8 @@ l0451:
 ret
 .quad 1
// (*entry clearerr expr 1)
 .globl l0452
l0452:
 .globl l0450
l0450:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 4623,8 4609,8 @@ l0452:
 ret
 .quad 1
// (*entry xgetw expr 1)
 .globl l0453
l0453:
 .globl l0451
l0451:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 4643,8 4629,8 @@ l0453:
 ret
 .quad 2
// (*entry putw expr 2)
 .globl l0454
l0454:
 .globl l0452
l0452:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 4663,8 4649,8 @@ l0454:
 ret
 .quad 2
// (*entry signal expr 2)
 .globl l0455
l0455:
 .globl l0453
l0453:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 4683,8 4669,8 @@ l0455:
 ret
 .quad 1
// (*entry sleep expr 1)
 .globl l0456
l0456:
 .globl l0454
l0454:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 4703,8 4689,8 @@ l0456:
 ret
 .quad 3
// (*entry ieee_handler expr 3)
 .globl l0457
l0457:
 .globl l0455
l0455:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 4723,8 4709,8 @@ l0457:
 ret
 .quad 4
// (*entry ieee_flags expr 4)
 .globl l0458
l0458:
 .globl l0456
l0456:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 4743,8 4729,8 @@ l0458:
 ret
 .quad 1
// (*entry setlinebuf expr 1)
 .globl l0459
l0459:
 .globl l0457
l0457:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 4763,8 4749,8 @@ l0459:
 ret
 .quad 0
// (*entry getpid expr 0)
 .globl l0460
l0460:
 .globl l0458
l0458:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 4783,8 4769,8 @@ l0460:
 ret
 .quad 0
// (*entry gethostid expr 0)
 .globl l0461
l0461:
 .globl l0459
l0459:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 4803,8 4789,8 @@ l0461:
 ret
 .quad 2
// (*entry unixsocketopen expr 2)
 .globl l0462
l0462:
 .globl l0460
l0460:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 4823,8 4809,8 @@ l0462:
 ret
 .quad 3
// (*entry getsocket expr 3)
 .globl l0463
l0463:
 .globl l0461
l0461:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 4843,8 4829,8 @@ l0463:
 ret
 .quad 3
// (*entry writesocket expr 3)
 .globl l0464
l0464:
 .globl l0462
l0462:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 4863,8 4849,8 @@ l0464:
 ret
 .quad 1
// (*entry unixclosesocket expr 1)
 .globl l0465
l0465:
 .globl l0463
l0463:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 4883,8 4869,8 @@ l0465:
 ret
 .quad 0
// (*entry fork expr 0)
 .globl l0466
l0466:
 .globl l0464
l0464:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 4903,8 4889,8 @@ l0466:
 ret
 .quad 1
// (*entry wait expr 1)
 .globl l0467
l0467:
 .globl l0465
l0465:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 4923,8 4909,8 @@ l0467:
 ret
 .quad 2
// (*entry popen expr 2)
 .globl l0468
l0468:
 .globl l0466
l0466:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 4943,8 4929,8 @@ l0468:
 ret
 .quad 1
// (*entry pclose expr 1)
 .globl l0469
l0469:
 .globl l0467
l0467:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 4963,8 4949,8 @@ l0469:
 ret
 .quad 3
// (*entry shmctl expr 3)
 .globl l0470
l0470:
 .globl l0468
l0468:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 4983,8 4969,8 @@ l0470:
 ret
 .quad 3
// (*entry shmget expr 3)
 .globl l0471
l0471:
 .globl l0469
l0469:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 5003,8 4989,8 @@ l0471:
 ret
 .quad 3
// (*entry shmat expr 3)
 .globl l0472
l0472:
 .globl l0470
l0470:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 5023,8 5009,8 @@ l0472:
 ret
 .quad 1
// (*entry shmdt expr 1)
 .globl l0473
l0473:
 .globl l0471
l0471:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 5043,8 5029,8 @@ l0473:
 ret
 .quad 4
// (*entry semctl expr 4)
 .globl l0474
l0474:
 .globl l0472
l0472:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 5063,8 5049,8 @@ l0474:
 ret
 .quad 3
// (*entry semget expr 3)
 .globl l0475
l0475:
 .globl l0473
l0473:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 5083,8 5069,8 @@ l0475:
 ret
 .quad 3
// (*entry semop expr 3)
 .globl l0476
l0476:
 .globl l0474
l0474:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 5103,8 5089,8 @@ l0476:
 ret
 .quad 2
// (*entry dlopen expr 2)
 .globl l0477
l0477:
 .globl l0475
l0475:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 5123,8 5109,8 @@ l0477:
 ret
 .quad 1
// (*entry dlerror expr 1)
 .globl l0478
l0478:
 .globl l0476
l0476:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 5143,8 5129,8 @@ l0478:
 ret
 .quad 2
// (*entry dlsym expr 2)
 .globl l0479
l0479:
 .globl l0477
l0477:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 5163,8 5149,8 @@ l0479:
 ret
 .quad 1
// (*entry dlclose expr 1)
 .globl l0480
l0480:
 .globl l0478
l0478:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 5183,8 5169,8 @@ l0480:
 ret
 .quad 4
// (*entry unix-profile expr 4)
 .globl l0481
l0481:
 .globl l0479
l0479:
 stp X29, X30, [sp, #-16]!
 mov X29, sp
 ldp X29, X30, [sp], #16


@@ 5210,78 5196,78 @@ codeaddressp:
 str X28, [sp, #24]
 ubfx X0, X0, #0, #56
 str X0, [sp, #16]
 ldr X0, l0482
 ldr X0, l0480
// (idloc getfcodepointer)
 ldr X11, l0483
 ldr X11, l0481
 ldr X10, [X23, X11, lsl #3]
 blr X10
 ubfx X0, X0, #0, #56
 ldr X11, [sp, #16]
 cmp X0, X11
 b.le l0488
 b.le l0486
 mov X0, X28
 b l0489
l0488:
 ldr X0, l0484
l0489:
 b l0487
l0486:
 ldr X0, l0482
l0487:
 cmp X0, X28
 b.eq l0490
 ldr X0, l0485
 b.eq l0488
 ldr X0, l0483
// (idloc getfcodepointer)
 ldr X11, l0483
 ldr X11, l0481
 ldr X10, [X23, X11, lsl #3]
 blr X10
 ubfx X0, X0, #0, #56
 ldr X11, [sp, #16]
 cmp X11, X0
 b.lt l0491
 b.lt l0489
 mov X0, X28
 b l0490
l0491:
 ldr X0, l0484
l0490:
 b l0488
l0489:
 ldr X0, l0482
l0488:
 cmp X0, X28
 b.ne l0492
 b.ne l0490
// ($global bpslowerbound)
 ldr X11, l0486
 ldr X11, l0484
 ldr X0, [X24, X11, lsl #3]
 ubfx X0, X0, #0, #56
 ldr X11, [sp, #16]
 cmp X0, X11
 b.le l0493
 b.le l0491
 mov X0, X28
 b l0494
l0493:
 ldr X0, l0484
l0494:
 b l0492
l0491:
 ldr X0, l0482
l0492:
 cmp X0, X28
 b.eq l0492
 b.eq l0490
// ($global nextbps)
 ldr X11, l0487
 ldr X11, l0485
 ldr X0, [X24, X11, lsl #3]
 ubfx X0, X0, #0, #56
 ldr X11, [sp, #16]
 cmp X11, X0
 b.lt l0495
 b.lt l0493
 mov X0, X28
 b l0492
l0495:
 ldr X0, l0484
l0492:
 b l0490
l0493:
 ldr X0, l0482
l0490:
 ldp X29, X30, [sp], #32
 ret
 nop
l0487:
l0485:
 .quad 287
l0486:
l0484:
 .quad 285
l0485:
l0483:
 .quad [[254<<56]+508]
l0484:
l0482:
 .quad [[254<<56]+116]
l0483:
l0481:
 .quad 506
l0482:
l0480:
 .quad [[254<<56]+257]
 .quad 1
// (*entry lastkernel expr 1)


@@ 5304,2251 5290,2251 @@ initcode:
 .globl symval
 .globl symprp
 .globl symnam
 .globl l0494
l0494:
 .quad 0
 .byte 0,0,0,0,0,0,0,0
 .globl l0495
l0495:
 .quad 0
 .byte 1,0,0,0,0,0,0,0
 .globl l0496
l0496:
 .quad 0
 .byte 0,0,0,0,0,0,0,0
 .byte 2,0,0,0,0,0,0,0
 .globl l0497
l0497:
 .quad 0
 .byte 1,0,0,0,0,0,0,0
 .byte 3,0,0,0,0,0,0,0
 .globl l0498
l0498:
 .quad 0
 .byte 2,0,0,0,0,0,0,0
 .byte 4,0,0,0,0,0,0,0
 .globl l0499
l0499:
 .quad 0
 .byte 3,0,0,0,0,0,0,0
 .byte 5,0,0,0,0,0,0,0
 .globl l0500
l0500:
 .quad 0
 .byte 4,0,0,0,0,0,0,0
 .byte 6,0,0,0,0,0,0,0
 .globl l0501
l0501:
 .quad 0
 .byte 5,0,0,0,0,0,0,0
 .byte 7,0,0,0,0,0,0,0
 .globl l0502
l0502:
 .quad 0
 .byte 6,0,0,0,0,0,0,0
 .byte 8,0,0,0,0,0,0,0
 .globl l0503
l0503:
 .quad 0
 .byte 7,0,0,0,0,0,0,0
 .byte 9,0,0,0,0,0,0,0
 .globl l0504
l0504:
 .quad 0
 .byte 8,0,0,0,0,0,0,0
 .byte 10,0,0,0,0,0,0,0
 .globl l0505
l0505:
 .quad 0
 .byte 9,0,0,0,0,0,0,0
 .byte 11,0,0,0,0,0,0,0
 .globl l0506
l0506:
 .quad 0
 .byte 10,0,0,0,0,0,0,0
 .byte 12,0,0,0,0,0,0,0
 .globl l0507
l0507:
 .quad 0
 .byte 11,0,0,0,0,0,0,0
 .byte 13,0,0,0,0,0,0,0
 .globl l0508
l0508:
 .quad 0
 .byte 12,0,0,0,0,0,0,0
 .byte 14,0,0,0,0,0,0,0
 .globl l0509
l0509:
 .quad 0
 .byte 13,0,0,0,0,0,0,0
 .byte 15,0,0,0,0,0,0,0
 .globl l0510
l0510:
 .quad 0
 .byte 14,0,0,0,0,0,0,0
 .byte 16,0,0,0,0,0,0,0
 .globl l0511
l0511:
 .quad 0
 .byte 15,0,0,0,0,0,0,0
 .byte 17,0,0,0,0,0,0,0
 .globl l0512
l0512:
 .quad 0
 .byte 16,0,0,0,0,0,0,0
 .byte 18,0,0,0,0,0,0,0
 .globl l0513
l0513:
 .quad 0
 .byte 17,0,0,0,0,0,0,0
 .byte 19,0,0,0,0,0,0,0
 .globl l0514
l0514:
 .quad 0
 .byte 18,0,0,0,0,0,0,0
 .byte 20,0,0,0,0,0,0,0
 .globl l0515
l0515:
 .quad 0
 .byte 19,0,0,0,0,0,0,0
 .byte 21,0,0,0,0,0,0,0
 .globl l0516
l0516:
 .quad 0
 .byte 20,0,0,0,0,0,0,0
 .byte 22,0,0,0,0,0,0,0
 .globl l0517
l0517:
 .quad 0
 .byte 21,0,0,0,0,0,0,0
 .byte 23,0,0,0,0,0,0,0
 .globl l0518
l0518:
 .quad 0
 .byte 22,0,0,0,0,0,0,0
 .byte 24,0,0,0,0,0,0,0
 .globl l0519
l0519:
 .quad 0
 .byte 23,0,0,0,0,0,0,0
 .byte 25,0,0,0,0,0,0,0
 .globl l0520
l0520:
 .quad 0
 .byte 24,0,0,0,0,0,0,0
 .byte 26,0,0,0,0,0,0,0
 .globl l0521
l0521:
 .quad 0
 .byte 25,0,0,0,0,0,0,0
 .byte 27,0,0,0,0,0,0,0
 .globl l0522
l0522:
 .quad 0
 .byte 26,0,0,0,0,0,0,0
 .byte 28,0,0,0,0,0,0,0
 .globl l0523
l0523:
 .quad 0
 .byte 27,0,0,0,0,0,0,0
 .byte 29,0,0,0,0,0,0,0
 .globl l0524
l0524:
 .quad 0
 .byte 28,0,0,0,0,0,0,0
 .byte 30,0,0,0,0,0,0,0
 .globl l0525
l0525:
 .quad 0
 .byte 29,0,0,0,0,0,0,0
 .byte 31,0,0,0,0,0,0,0
 .globl l0526
l0526:
 .quad 0
 .byte 30,0,0,0,0,0,0,0
 .byte 32,0,0,0,0,0,0,0
 .globl l0527
l0527:
 .quad 0
 .byte 31,0,0,0,0,0,0,0
 .byte 33,0,0,0,0,0,0,0
 .globl l0528
l0528:
 .quad 0
 .byte 32,0,0,0,0,0,0,0
 .byte 34,0,0,0,0,0,0,0
 .globl l0529
l0529:
 .quad 0
 .byte 33,0,0,0,0,0,0,0
 .byte 35,0,0,0,0,0,0,0
 .globl l0530
l0530:
 .quad 0
 .byte 34,0,0,0,0,0,0,0
 .byte 36,0,0,0,0,0,0,0
 .globl l0531
l0531:
 .quad 0
 .byte 35,0,0,0,0,0,0,0
 .byte 37,0,0,0,0,0,0,0
 .globl l0532
l0532:
 .quad 0
 .byte 36,0,0,0,0,0,0,0
 .byte 38,0,0,0,0,0,0,0
 .globl l0533
l0533:
 .quad 0
 .byte 37,0,0,0,0,0,0,0
 .byte 39,0,0,0,0,0,0,0
 .globl l0534
l0534:
 .quad 0
 .byte 38,0,0,0,0,0,0,0
 .byte 40,0,0,0,0,0,0,0
 .globl l0535
l0535:
 .quad 0
 .byte 39,0,0,0,0,0,0,0
 .byte 41,0,0,0,0,0,0,0
 .globl l0536
l0536:
 .quad 0
 .byte 40,0,0,0,0,0,0,0
 .byte 42,0,0,0,0,0,0,0
 .globl l0537
l0537:
 .quad 0
 .byte 41,0,0,0,0,0,0,0
 .byte 43,0,0,0,0,0,0,0
 .globl l0538
l0538:
 .quad 0
 .byte 42,0,0,0,0,0,0,0
 .byte 44,0,0,0,0,0,0,0
 .globl l0539
l0539:
 .quad 0
 .byte 43,0,0,0,0,0,0,0
 .byte 45,0,0,0,0,0,0,0
 .globl l0540
l0540:
 .quad 0
 .byte 44,0,0,0,0,0,0,0
 .byte 46,0,0,0,0,0,0,0
 .globl l0541
l0541:
 .quad 0
 .byte 45,0,0,0,0,0,0,0
 .byte 47,0,0,0,0,0,0,0
 .globl l0542
l0542:
 .quad 0
 .byte 46,0,0,0,0,0,0,0
 .byte 48,0,0,0,0,0,0,0
 .globl l0543
l0543:
 .quad 0
 .byte 47,0,0,0,0,0,0,0
 .byte 49,0,0,0,0,0,0,0
 .globl l0544
l0544:
 .quad 0
 .byte 48,0,0,0,0,0,0,0
 .byte 50,0,0,0,0,0,0,0
 .globl l0545
l0545:
 .quad 0
 .byte 49,0,0,0,0,0,0,0
 .byte 51,0,0,0,0,0,0,0
 .globl l0546
l0546:
 .quad 0
 .byte 50,0,0,0,0,0,0,0
 .byte 52,0,0,0,0,0,0,0
 .globl l0547
l0547:
 .quad 0
 .byte 51,0,0,0,0,0,0,0
 .byte 53,0,0,0,0,0,0,0
 .globl l0548
l0548:
 .quad 0
 .byte 52,0,0,0,0,0,0,0
 .byte 54,0,0,0,0,0,0,0
 .globl l0549
l0549:
 .quad 0
 .byte 53,0,0,0,0,0,0,0
 .byte 55,0,0,0,0,0,0,0
 .globl l0550
l0550:
 .quad 0
 .byte 54,0,0,0,0,0,0,0
 .byte 56,0,0,0,0,0,0,0
 .globl l0551
l0551:
 .quad 0
 .byte 55,0,0,0,0,0,0,0
 .byte 57,0,0,0,0,0,0,0
 .globl l0552
l0552:
 .quad 0
 .byte 56,0,0,0,0,0,0,0
 .byte 58,0,0,0,0,0,0,0
 .globl l0553
l0553:
 .quad 0
 .byte 57,0,0,0,0,0,0,0
 .byte 59,0,0,0,0,0,0,0
 .globl l0554
l0554:
 .quad 0
 .byte 58,0,0,0,0,0,0,0
 .byte 60,0,0,0,0,0,0,0
 .globl l0555
l0555:
 .quad 0
 .byte 59,0,0,0,0,0,0,0
 .byte 61,0,0,0,0,0,0,0
 .globl l0556
l0556:
 .quad 0
 .byte 60,0,0,0,0,0,0,0
 .byte 62,0,0,0,0,0,0,0
 .globl l0557
l0557:
 .quad 0
 .byte 61,0,0,0,0,0,0,0
 .byte 63,0,0,0,0,0,0,0
 .globl l0558
l0558:
 .quad 0
 .byte 62,0,0,0,0,0,0,0
 .byte 64,0,0,0,0,0,0,0
 .globl l0559
l0559:
 .quad 0
 .byte 63,0,0,0,0,0,0,0
 .byte 65,0,0,0,0,0,0,0
 .globl l0560
l0560:
 .quad 0
 .byte 64,0,0,0,0,0,0,0
 .byte 66,0,0,0,0,0,0,0
 .globl l0561
l0561:
 .quad 0
 .byte 65,0,0,0,0,0,0,0
 .byte 67,0,0,0,0,0,0,0
 .globl l0562
l0562:
 .quad 0
 .byte 66,0,0,0,0,0,0,0
 .byte 68,0,0,0,0,0,0,0
 .globl l0563
l0563:
 .quad 0
 .byte 67,0,0,0,0,0,0,0
 .byte 69,0,0,0,0,0,0,0
 .globl l0564
l0564:
 .quad 0
 .byte 68,0,0,0,0,0,0,0
 .byte 70,0,0,0,0,0,0,0
 .globl l0565
l0565:
 .quad 0
 .byte 69,0,0,0,0,0,0,0
 .byte 71,0,0,0,0,0,0,0
 .globl l0566
l0566:
 .quad 0
 .byte 70,0,0,0,0,0,0,0
 .byte 72,0,0,0,0,0,0,0
 .globl l0567
l0567:
 .quad 0
 .byte 71,0,0,0,0,0,0,0
 .byte 73,0,0,0,0,0,0,0
 .globl l0568
l0568:
 .quad 0
 .byte 72,0,0,0,0,0,0,0
 .byte 74,0,0,0,0,0,0,0
 .globl l0569
l0569:
 .quad 0
 .byte 73,0,0,0,0,0,0,0
 .byte 75,0,0,0,0,0,0,0
 .globl l0570
l0570:
 .quad 0
 .byte 74,0,0,0,0,0,0,0
 .byte 76,0,0,0,0,0,0,0
 .globl l0571
l0571:
 .quad 0
 .byte 75,0,0,0,0,0,0,0
 .byte 77,0,0,0,0,0,0,0
 .globl l0572
l0572:
 .quad 0
 .byte 76,0,0,0,0,0,0,0
 .byte 78,0,0,0,0,0,0,0
 .globl l0573
l0573:
 .quad 0
 .byte 77,0,0,0,0,0,0,0
 .byte 79,0,0,0,0,0,0,0
 .globl l0574
l0574:
 .quad 0
 .byte 78,0,0,0,0,0,0,0
 .byte 80,0,0,0,0,0,0,0
 .globl l0575
l0575:
 .quad 0
 .byte 79,0,0,0,0,0,0,0
 .byte 81,0,0,0,0,0,0,0
 .globl l0576
l0576:
 .quad 0
 .byte 80,0,0,0,0,0,0,0
 .byte 82,0,0,0,0,0,0,0
 .globl l0577
l0577:
 .quad 0
 .byte 81,0,0,0,0,0,0,0
 .byte 83,0,0,0,0,0,0,0
 .globl l0578
l0578:
 .quad 0
 .byte 82,0,0,0,0,0,0,0
 .byte 84,0,0,0,0,0,0,0
 .globl l0579
l0579:
 .quad 0
 .byte 83,0,0,0,0,0,0,0
 .byte 85,0,0,0,0,0,0,0
 .globl l0580
l0580:
 .quad 0
 .byte 84,0,0,0,0,0,0,0
 .byte 86,0,0,0,0,0,0,0
 .globl l0581
l0581:
 .quad 0
 .byte 85,0,0,0,0,0,0,0
 .byte 87,0,0,0,0,0,0,0
 .globl l0582
l0582:
 .quad 0
 .byte 86,0,0,0,0,0,0,0
 .byte 88,0,0,0,0,0,0,0
 .globl l0583
l0583:
 .quad 0
 .byte 87,0,0,0,0,0,0,0
 .byte 89,0,0,0,0,0,0,0
 .globl l0584
l0584:
 .quad 0
 .byte 88,0,0,0,0,0,0,0
 .byte 90,0,0,0,0,0,0,0
 .globl l0585
l0585:
 .quad 0
 .byte 89,0,0,0,0,0,0,0
 .byte 91,0,0,0,0,0,0,0
 .globl l0586
l0586:
 .quad 0
 .byte 90,0,0,0,0,0,0,0
 .byte 92,0,0,0,0,0,0,0
 .globl l0587
l0587:
 .quad 0
 .byte 91,0,0,0,0,0,0,0
 .byte 93,0,0,0,0,0,0,0
 .globl l0588
l0588:
 .quad 0
 .byte 92,0,0,0,0,0,0,0
 .byte 94,0,0,0,0,0,0,0
 .globl l0589
l0589:
 .quad 0
 .byte 93,0,0,0,0,0,0,0
 .byte 95,0,0,0,0,0,0,0
 .globl l0590
l0590:
 .quad 0
 .byte 94,0,0,0,0,0,0,0
 .byte 96,0,0,0,0,0,0,0
 .globl l0591
l0591:
 .quad 0
 .byte 95,0,0,0,0,0,0,0
 .byte 97,0,0,0,0,0,0,0
 .globl l0592
l0592:
 .quad 0
 .byte 96,0,0,0,0,0,0,0
 .byte 98,0,0,0,0,0,0,0
 .globl l0593
l0593:
 .quad 0
 .byte 97,0,0,0,0,0,0,0
 .byte 99,0,0,0,0,0,0,0
 .globl l0594
l0594:
 .quad 0
 .byte 98,0,0,0,0,0,0,0
 .byte 100,0,0,0,0,0,0,0
 .globl l0595
l0595:
 .quad 0
 .byte 99,0,0,0,0,0,0,0
 .byte 101,0,0,0,0,0,0,0
 .globl l0596
l0596:
 .quad 0
 .byte 100,0,0,0,0,0,0,0
 .byte 102,0,0,0,0,0,0,0
 .globl l0597
l0597:
 .quad 0
 .byte 101,0,0,0,0,0,0,0
 .byte 103,0,0,0,0,0,0,0
 .globl l0598
l0598:
 .quad 0
 .byte 102,0,0,0,0,0,0,0
 .byte 104,0,0,0,0,0,0,0
 .globl l0599
l0599:
 .quad 0
 .byte 103,0,0,0,0,0,0,0
 .byte 105,0,0,0,0,0,0,0
 .globl l0600
l0600:
 .quad 0
 .byte 104,0,0,0,0,0,0,0
 .byte 106,0,0,0,0,0,0,0
 .globl l0601
l0601:
 .quad 0
 .byte 105,0,0,0,0,0,0,0
 .byte 107,0,0,0,0,0,0,0
 .globl l0602
l0602:
 .quad 0
 .byte 106,0,0,0,0,0,0,0
 .byte 108,0,0,0,0,0,0,0
 .globl l0603
l0603:
 .quad 0
 .byte 107,0,0,0,0,0,0,0
 .byte 109,0,0,0,0,0,0,0
 .globl l0604
l0604:
 .quad 0
 .byte 108,0,0,0,0,0,0,0
 .byte 110,0,0,0,0,0,0,0
 .globl l0605
l0605:
 .quad 0
 .byte 109,0,0,0,0,0,0,0
 .byte 111,0,0,0,0,0,0,0
 .globl l0606
l0606:
 .quad 0
 .byte 110,0,0,0,0,0,0,0
 .byte 112,0,0,0,0,0,0,0
 .globl l0607
l0607:
 .quad 0
 .byte 111,0,0,0,0,0,0,0
 .byte 113,0,0,0,0,0,0,0
 .globl l0608
l0608:
 .quad 0
 .byte 112,0,0,0,0,0,0,0
 .byte 114,0,0,0,0,0,0,0
 .globl l0609
l0609:
 .quad 0
 .byte 113,0,0,0,0,0,0,0
 .byte 115,0,0,0,0,0,0,0
 .globl l0610
l0610:
 .quad 0
 .byte 114,0,0,0,0,0,0,0
 .byte 116,0,0,0,0,0,0,0
 .globl l0611
l0611:
 .quad 0
 .byte 115,0,0,0,0,0,0,0
 .byte 117,0,0,0,0,0,0,0
 .globl l0612
l0612:
 .quad 0
 .byte 116,0,0,0,0,0,0,0
 .byte 118,0,0,0,0,0,0,0
 .globl l0613
l0613:
 .quad 0
 .byte 117,0,0,0,0,0,0,0
 .byte 119,0,0,0,0,0,0,0
 .globl l0614
l0614:
 .quad 0
 .byte 118,0,0,0,0,0,0,0
 .byte 120,0,0,0,0,0,0,0
 .globl l0615
l0615:
 .quad 0
 .byte 119,0,0,0,0,0,0,0
 .byte 121,0,0,0,0,0,0,0
 .globl l0616
l0616:
 .quad 0
 .byte 120,0,0,0,0,0,0,0
 .byte 122,0,0,0,0,0,0,0
 .globl l0617
l0617:
 .quad 0
 .byte 121,0,0,0,0,0,0,0
 .byte 123,0,0,0,0,0,0,0
 .globl l0618
l0618:
 .quad 0
 .byte 122,0,0,0,0,0,0,0
 .byte 124,0,0,0,0,0,0,0
 .globl l0619
l0619:
 .quad 0
 .byte 123,0,0,0,0,0,0,0
 .byte 125,0,0,0,0,0,0,0
 .globl l0620
l0620:
 .quad 0
 .byte 124,0,0,0,0,0,0,0
 .byte 126,0,0,0,0,0,0,0
 .globl l0621
l0621:
 .quad 0
 .byte 125,0,0,0,0,0,0,0
 .byte 127,0,0,0,0,0,0,0
 .globl l0622
l0622:
 .quad 0
 .byte 126,0,0,0,0,0,0,0
 .byte -128,0,0,0,0,0,0,0
 .globl l0623
l0623:
 .quad 0
 .byte 127,0,0,0,0,0,0,0
 .byte -127,0,0,0,0,0,0,0
 .globl l0624
l0624:
 .quad 0
 .byte -128,0,0,0,0,0,0,0
 .byte -126,0,0,0,0,0,0,0
 .globl l0625
l0625:
 .quad 0
 .byte -127,0,0,0,0,0,0,0
 .byte -125,0,0,0,0,0,0,0
 .globl l0626
l0626:
 .quad 0
 .byte -126,0,0,0,0,0,0,0
 .byte -124,0,0,0,0,0,0,0
 .globl l0627
l0627:
 .quad 0
 .byte -125,0,0,0,0,0,0,0
 .byte -123,0,0,0,0,0,0,0
 .globl l0628
l0628:
 .quad 0
 .byte -124,0,0,0,0,0,0,0
 .byte -122,0,0,0,0,0,0,0
 .globl l0629
l0629:
 .quad 0
 .byte -123,0,0,0,0,0,0,0
 .byte -121,0,0,0,0,0,0,0
 .globl l0630
l0630:
 .quad 0
 .byte -122,0,0,0,0,0,0,0
 .byte -120,0,0,0,0,0,0,0
 .globl l0631
l0631:
 .quad 0
 .byte -121,0,0,0,0,0,0,0
 .byte -119,0,0,0,0,0,0,0
 .globl l0632
l0632:
 .quad 0
 .byte -120,0,0,0,0,0,0,0
 .byte -118,0,0,0,0,0,0,0
 .globl l0633
l0633:
 .quad 0
 .byte -119,0,0,0,0,0,0,0
 .byte -117,0,0,0,0,0,0,0
 .globl l0634
l0634:
 .quad 0
 .byte -118,0,0,0,0,0,0,0
 .byte -116,0,0,0,0,0,0,0
 .globl l0635
l0635:
 .quad 0
 .byte -117,0,0,0,0,0,0,0
 .byte -115,0,0,0,0,0,0,0
 .globl l0636
l0636:
 .quad 0
 .byte -116,0,0,0,0,0,0,0
 .byte -114,0,0,0,0,0,0,0
 .globl l0637
l0637:
 .quad 0
 .byte -115,0,0,0,0,0,0,0
 .byte -113,0,0,0,0,0,0,0
 .globl l0638
l0638:
 .quad 0
 .byte -114,0,0,0,0,0,0,0
 .byte -112,0,0,0,0,0,0,0
 .globl l0639
l0639:
 .quad 0
 .byte -113,0,0,0,0,0,0,0
 .byte -111,0,0,0,0,0,0,0
 .globl l0640
l0640:
 .quad 0
 .byte -112,0,0,0,0,0,0,0
 .byte -110,0,0,0,0,0,0,0
 .globl l0641
l0641:
 .quad 0
 .byte -111,0,0,0,0,0,0,0
 .byte -109,0,0,0,0,0,0,0
 .globl l0642
l0642:
 .quad 0
 .byte -110,0,0,0,0,0,0,0
 .byte -108,0,0,0,0,0,0,0
 .globl l0643
l0643:
 .quad 0
 .byte -109,0,0,0,0,0,0,0
 .byte -107,0,0,0,0,0,0,0
 .globl l0644
l0644:
 .quad 0
 .byte -108,0,0,0,0,0,0,0
 .byte -106,0,0,0,0,0,0,0
 .globl l0645
l0645:
 .quad 0
 .byte -107,0,0,0,0,0,0,0
 .byte -105,0,0,0,0,0,0,0
 .globl l0646
l0646:
 .quad 0
 .byte -106,0,0,0,0,0,0,0
 .byte -104,0,0,0,0,0,0,0
 .globl l0647
l0647:
 .quad 0
 .byte -105,0,0,0,0,0,0,0
 .byte -103,0,0,0,0,0,0,0
 .globl l0648
l0648:
 .quad 0
 .byte -104,0,0,0,0,0,0,0
 .byte -102,0,0,0,0,0,0,0
 .globl l0649
l0649:
 .quad 0
 .byte -103,0,0,0,0,0,0,0
 .byte -101,0,0,0,0,0,0,0
 .globl l0650
l0650:
 .quad 0
 .byte -102,0,0,0,0,0,0,0
 .byte -100,0,0,0,0,0,0,0
 .globl l0651
l0651:
 .quad 0
 .byte -101,0,0,0,0,0,0,0
 .byte -99,0,0,0,0,0,0,0
 .globl l0652
l0652:
 .quad 0
 .byte -100,0,0,0,0,0,0,0
 .byte -98,0,0,0,0,0,0,0
 .globl l0653
l0653:
 .quad 0
 .byte -99,0,0,0,0,0,0,0
 .byte -97,0,0,0,0,0,0,0
 .globl l0654
l0654:
 .quad 0
 .byte -98,0,0,0,0,0,0,0
 .byte -96,0,0,0,0,0,0,0
 .globl l0655
l0655:
 .quad 0
 .byte -97,0,0,0,0,0,0,0
 .byte -95,0,0,0,0,0,0,0
 .globl l0656
l0656:
 .quad 0
 .byte -96,0,0,0,0,0,0,0
 .byte -94,0,0,0,0,0,0,0
 .globl l0657
l0657:
 .quad 0
 .byte -95,0,0,0,0,0,0,0
 .byte -93,0,0,0,0,0,0,0
 .globl l0658
l0658:
 .quad 0
 .byte -94,0,0,0,0,0,0,0
 .byte -92,0,0,0,0,0,0,0
 .globl l0659
l0659:
 .quad 0
 .byte -93,0,0,0,0,0,0,0
 .byte -91,0,0,0,0,0,0,0
 .globl l0660
l0660:
 .quad 0
 .byte -92,0,0,0,0,0,0,0
 .byte -90,0,0,0,0,0,0,0
 .globl l0661
l0661:
 .quad 0
 .byte -91,0,0,0,0,0,0,0
 .byte -89,0,0,0,0,0,0,0
 .globl l0662
l0662:
 .quad 0
 .byte -90,0,0,0,0,0,0,0
 .byte -88,0,0,0,0,0,0,0
 .globl l0663
l0663:
 .quad 0
 .byte -89,0,0,0,0,0,0,0
 .byte -87,0,0,0,0,0,0,0
 .globl l0664
l0664:
 .quad 0
 .byte -88,0,0,0,0,0,0,0
 .byte -86,0,0,0,0,0,0,0
 .globl l0665
l0665:
 .quad 0
 .byte -87,0,0,0,0,0,0,0
 .byte -85,0,0,0,0,0,0,0
 .globl l0666
l0666:
 .quad 0
 .byte -86,0,0,0,0,0,0,0
 .byte -84,0,0,0,0,0,0,0
 .globl l0667
l0667:
 .quad 0
 .byte -85,0,0,0,0,0,0,0
 .byte -83,0,0,0,0,0,0,0
 .globl l0668
l0668:
 .quad 0
 .byte -84,0,0,0,0,0,0,0
 .byte -82,0,0,0,0,0,0,0
 .globl l0669
l0669:
 .quad 0
 .byte -83,0,0,0,0,0,0,0
 .byte -81,0,0,0,0,0,0,0
 .globl l0670
l0670:
 .quad 0
 .byte -82,0,0,0,0,0,0,0
 .byte -80,0,0,0,0,0,0,0
 .globl l0671
l0671:
 .quad 0
 .byte -81,0,0,0,0,0,0,0
 .byte -79,0,0,0,0,0,0,0
 .globl l0672
l0672:
 .quad 0
 .byte -80,0,0,0,0,0,0,0
 .byte -78,0,0,0,0,0,0,0
 .globl l0673
l0673:
 .quad 0
 .byte -79,0,0,0,0,0,0,0
 .byte -77,0,0,0,0,0,0,0
 .globl l0674
l0674:
 .quad 0
 .byte -78,0,0,0,0,0,0,0
 .byte -76,0,0,0,0,0,0,0
 .globl l0675
l0675:
 .quad 0
 .byte -77,0,0,0,0,0,0,0
 .byte -75,0,0,0,0,0,0,0
 .globl l0676
l0676:
 .quad 0
 .byte -76,0,0,0,0,0,0,0
 .byte -74,0,0,0,0,0,0,0
 .globl l0677
l0677:
 .quad 0
 .byte -75,0,0,0,0,0,0,0
 .byte -73,0,0,0,0,0,0,0
 .globl l0678
l0678:
 .quad 0
 .byte -74,0,0,0,0,0,0,0
 .byte -72,0,0,0,0,0,0,0
 .globl l0679
l0679:
 .quad 0
 .byte -73,0,0,0,0,0,0,0
 .byte -71,0,0,0,0,0,0,0
 .globl l0680
l0680:
 .quad 0
 .byte -72,0,0,0,0,0,0,0
 .byte -70,0,0,0,0,0,0,0
 .globl l0681
l0681:
 .quad 0
 .byte -71,0,0,0,0,0,0,0
 .byte -69,0,0,0,0,0,0,0
 .globl l0682
l0682:
 .quad 0
 .byte -70,0,0,0,0,0,0,0
 .byte -68,0,0,0,0,0,0,0
 .globl l0683
l0683:
 .quad 0
 .byte -69,0,0,0,0,0,0,0
 .byte -67,0,0,0,0,0,0,0
 .globl l0684
l0684:
 .quad 0
 .byte -68,0,0,0,0,0,0,0
 .byte -66,0,0,0,0,0,0,0
 .globl l0685
l0685:
 .quad 0
 .byte -67,0,0,0,0,0,0,0
 .byte -65,0,0,0,0,0,0,0
 .globl l0686
l0686:
 .quad 0
 .byte -66,0,0,0,0,0,0,0
 .byte -64,0,0,0,0,0,0,0
 .globl l0687
l0687:
 .quad 0
 .byte -65,0,0,0,0,0,0,0
 .byte -63,0,0,0,0,0,0,0
 .globl l0688
l0688:
 .quad 0
 .byte -64,0,0,0,0,0,0,0
 .byte -62,0,0,0,0,0,0,0
 .globl l0689
l0689:
 .quad 0
 .byte -63,0,0,0,0,0,0,0
 .byte -61,0,0,0,0,0,0,0
 .globl l0690
l0690:
 .quad 0
 .byte -62,0,0,0,0,0,0,0
 .byte -60,0,0,0,0,0,0,0
 .globl l0691
l0691:
 .quad 0
 .byte -61,0,0,0,0,0,0,0
 .byte -59,0,0,0,0,0,0,0
 .globl l0692
l0692:
 .quad 0
 .byte -60,0,0,0,0,0,0,0
 .byte -58,0,0,0,0,0,0,0
 .globl l0693
l0693:
 .quad 0
 .byte -59,0,0,0,0,0,0,0
 .byte -57,0,0,0,0,0,0,0
 .globl l0694
l0694:
 .quad 0
 .byte -58,0,0,0,0,0,0,0
 .byte -56,0,0,0,0,0,0,0
 .globl l0695
l0695:
 .quad 0
 .byte -57,0,0,0,0,0,0,0
 .byte -55,0,0,0,0,0,0,0
 .globl l0696
l0696:
 .quad 0
 .byte -56,0,0,0,0,0,0,0
 .byte -54,0,0,0,0,0,0,0
 .globl l0697
l0697:
 .quad 0
 .byte -55,0,0,0,0,0,0,0
 .byte -53,0,0,0,0,0,0,0
 .globl l0698
l0698:
 .quad 0
 .byte -54,0,0,0,0,0,0,0
 .byte -52,0,0,0,0,0,0,0
 .globl l0699
l0699:
 .quad 0
 .byte -53,0,0,0,0,0,0,0
 .byte -51,0,0,0,0,0,0,0
 .globl l0700
l0700:
 .quad 0
 .byte -52,0,0,0,0,0,0,0
 .byte -50,0,0,0,0,0,0,0
 .globl l0701
l0701:
 .quad 0
 .byte -51,0,0,0,0,0,0,0
 .byte -49,0,0,0,0,0,0,0
 .globl l0702
l0702:
 .quad 0
 .byte -50,0,0,0,0,0,0,0
 .byte -48,0,0,0,0,0,0,0
 .globl l0703
l0703:
 .quad 0
 .byte -49,0,0,0,0,0,0,0
 .byte -47,0,0,0,0,0,0,0
 .globl l0704
l0704:
 .quad 0
 .byte -48,0,0,0,0,0,0,0
 .byte -46,0,0,0,0,0,0,0
 .globl l0705
l0705:
 .quad 0
 .byte -47,0,0,0,0,0,0,0
 .byte -45,0,0,0,0,0,0,0
 .globl l0706
l0706:
 .quad 0
 .byte -46,0,0,0,0,0,0,0
 .byte -44,0,0,0,0,0,0,0
 .globl l0707
l0707:
 .quad 0
 .byte -45,0,0,0,0,0,0,0
 .byte -43,0,0,0,0,0,0,0
 .globl l0708
l0708:
 .quad 0
 .byte -44,0,0,0,0,0,0,0
 .byte -42,0,0,0,0,0,0,0
 .globl l0709
l0709:
 .quad 0
 .byte -43,0,0,0,0,0,0,0
 .byte -41,0,0,0,0,0,0,0
 .globl l0710
l0710:
 .quad 0
 .byte -42,0,0,0,0,0,0,0
 .byte -40,0,0,0,0,0,0,0
 .globl l0711
l0711:
 .quad 0
 .byte -41,0,0,0,0,0,0,0
 .byte -39,0,0,0,0,0,0,0
 .globl l0712
l0712:
 .quad 0
 .byte -40,0,0,0,0,0,0,0
 .byte -38,0,0,0,0,0,0,0
 .globl l0713
l0713:
 .quad 0
 .byte -39,0,0,0,0,0,0,0
 .byte -37,0,0,0,0,0,0,0
 .globl l0714
l0714:
 .quad 0
 .byte -38,0,0,0,0,0,0,0
 .byte -36,0,0,0,0,0,0,0
 .globl l0715
l0715:
 .quad 0
 .byte -37,0,0,0,0,0,0,0
 .byte -35,0,0,0,0,0,0,0
 .globl l0716
l0716:
 .quad 0
 .byte -36,0,0,0,0,0,0,0
 .byte -34,0,0,0,0,0,0,0
 .globl l0717
l0717:
 .quad 0
 .byte -35,0,0,0,0,0,0,0
 .byte -33,0,0,0,0,0,0,0
 .globl l0718
l0718:
 .quad 0
 .byte -34,0,0,0,0,0,0,0
 .byte -32,0,0,0,0,0,0,0
 .globl l0719
l0719:
 .quad 0
 .byte -33,0,0,0,0,0,0,0
 .byte -31,0,0,0,0,0,0,0
 .globl l0720
l0720:
 .quad 0
 .byte -32,0,0,0,0,0,0,0
 .byte -30,0,0,0,0,0,0,0
 .globl l0721
l0721:
 .quad 0
 .byte -31,0,0,0,0,0,0,0
 .byte -29,0,0,0,0,0,0,0
 .globl l0722
l0722:
 .quad 0
 .byte -30,0,0,0,0,0,0,0
 .byte -28,0,0,0,0,0,0,0
 .globl l0723
l0723:
 .quad 0
 .byte -29,0,0,0,0,0,0,0
 .byte -27,0,0,0,0,0,0,0
 .globl l0724
l0724:
 .quad 0
 .byte -28,0,0,0,0,0,0,0
 .byte -26,0,0,0,0,0,0,0
 .globl l0725
l0725:
 .quad 0
 .byte -27,0,0,0,0,0,0,0
 .byte -25,0,0,0,0,0,0,0
 .globl l0726
l0726:
 .quad 0
 .byte -26,0,0,0,0,0,0,0
 .byte -24,0,0,0,0,0,0,0
 .globl l0727
l0727:
 .quad 0
 .byte -25,0,0,0,0,0,0,0
 .byte -23,0,0,0,0,0,0,0
 .globl l0728
l0728:
 .quad 0
 .byte -24,0,0,0,0,0,0,0
 .byte -22,0,0,0,0,0,0,0
 .globl l0729
l0729:
 .quad 0
 .byte -23,0,0,0,0,0,0,0
 .byte -21,0,0,0,0,0,0,0
 .globl l0730
l0730:
 .quad 0
 .byte -22,0,0,0,0,0,0,0
 .byte -20,0,0,0,0,0,0,0
 .globl l0731
l0731:
 .quad 0
 .byte -21,0,0,0,0,0,0,0
 .byte -19,0,0,0,0,0,0,0
 .globl l0732
l0732:
 .quad 0
 .byte -20,0,0,0,0,0,0,0
 .byte -18,0,0,0,0,0,0,0
 .globl l0733
l0733:
 .quad 0
 .byte -19,0,0,0,0,0,0,0
 .byte -17,0,0,0,0,0,0,0
 .globl l0734
l0734:
 .quad 0
 .byte -18,0,0,0,0,0,0,0
 .byte -16,0,0,0,0,0,0,0
 .globl l0735
l0735:
 .quad 0
 .byte -17,0,0,0,0,0,0,0
 .byte -15,0,0,0,0,0,0,0
 .globl l0736
l0736:
 .quad 0
 .byte -16,0,0,0,0,0,0,0
 .byte -14,0,0,0,0,0,0,0
 .globl l0737
l0737:
 .quad 0
 .byte -15,0,0,0,0,0,0,0
 .byte -13,0,0,0,0,0,0,0
 .globl l0738
l0738:
 .quad 0
 .byte -14,0,0,0,0,0,0,0
 .byte -12,0,0,0,0,0,0,0
 .globl l0739
l0739:
 .quad 0
 .byte -13,0,0,0,0,0,0,0
 .byte -11,0,0,0,0,0,0,0
 .globl l0740
l0740:
 .quad 0
 .byte -12,0,0,0,0,0,0,0
 .byte -10,0,0,0,0,0,0,0
 .globl l0741
l0741:
 .quad 0
 .byte -11,0,0,0,0,0,0,0
 .byte -9,0,0,0,0,0,0,0
 .globl l0742
l0742:
 .quad 0
 .byte -10,0,0,0,0,0,0,0
 .byte -8,0,0,0,0,0,0,0
 .globl l0743
l0743:
 .quad 0
 .byte -9,0,0,0,0,0,0,0
 .byte -7,0,0,0,0,0,0,0
 .globl l0744
l0744:
 .quad 0
 .byte -8,0,0,0,0,0,0,0
 .byte -6,0,0,0,0,0,0,0
 .globl l0745
l0745:
 .quad 0
 .byte -7,0,0,0,0,0,0,0
 .byte -5,0,0,0,0,0,0,0
 .globl l0746
l0746:
 .quad 0
 .byte -6,0,0,0,0,0,0,0
 .byte -4,0,0,0,0,0,0,0
 .globl l0747
l0747:
 .quad 0
 .byte -5,0,0,0,0,0,0,0
 .byte -3,0,0,0,0,0,0,0
 .globl l0748
l0748:
 .quad 0
 .byte -4,0,0,0,0,0,0,0
 .byte -2,0,0,0,0,0,0,0
 .globl l0749
l0749:
 .quad 0
 .byte -3,0,0,0,0,0,0,0
 .byte -1,0,0,0,0,0,0,0
 .globl l0750
l0750:
 .quad 0
 .byte -2,0,0,0,0,0,0,0
 .globl l0751
l0751:
 .quad 0
 .byte -1,0,0,0,0,0,0,0
 .globl l0752
l0752:
 .quad 2
 .byte 110,105,108,0,0,0,0,0
 .globl l0753
l0753:
 .globl l0751
l0751:
 .quad 10
 .byte 102,105,114,115,116,107,101,114,110
 .byte 101,108,0,0,0,0,0
 .globl l0754
l0754:
 .globl l0752
l0752:
 .quad 4
 .byte 115,116,97,99,107,0,0,0
 .globl l0755
l0755:
 .globl l0753
l0753:
 .quad 12
 .byte 97,114,103,117,109,101,110,116,98,108
 .byte 111,99,107,0,0,0
 .globl l0756
l0756:
 .globl l0754
l0754:
 .quad 10
 .byte 116,111,107,101,110,98,117,102,102
 .byte 101,114,0,0,0,0,0
 .globl l0757
l0757:
 .globl l0755
l0755:
 .quad 5
 .byte 98,110,100,115,116,107,0,0
 .globl l0758
l0758:
 .globl l0756
l0756:
 .quad 9
 .byte 99,97,116,99,104,115,116,97,99,107
 .byte 0,0,0,0,0,0
 .globl l0759
l0759:
 .globl l0757
l0757:
 .quad 8
 .byte 104,97,115,104,116,97,98,108,101,0
 .byte 0,0,0,0,0,0
 .globl l0760
l0760:
 .globl l0758
l0758:
 .quad 12
 .byte 111,110,101,119,111,114,100,98,117
 .byte 102,102,101,114,0,0,0
 .globl l0761
l0761:
 .globl l0759
l0759:
 .quad 7
 .byte 115,97,118,101,97,114,103,99,0,0,0
 .byte 0,0,0,0,0
 .globl l0762
l0762:
 .globl l0760
l0760:
 .quad 7
 .byte 115,97,118,101,97,114,103,118,0,0,0
 .byte 0,0,0,0,0
 .globl l0763
l0763:
 .globl l0761
l0761:
 .quad 9
 .byte 100,97,116,101,98,117,102,102,101,114
 .byte 0,0,0,0,0,0
 .globl l0764
l0764:
 .globl l0762
l0762:
 .quad 7
 .byte 104,101,97,112,108,97,115,116,0,0,0
 .byte 0,0,0,0,0
 .globl l0765
l0765:
 .globl l0763
l0763:
 .quad 12
 .byte 104,101,97,112,116,114,97,112,98,111
 .byte 117,110,100,0,0,0
 .globl l0766
l0766:
 .globl l0764
l0764:
 .quad 8
 .byte 98,110,100,115,116,107,112,116,114
 .byte 0,0,0,0,0,0,0
 .globl l0767
l0767:
 .globl l0765
l0765:
 .quad 15
 .byte 98,110,100,115,116,107,108,111,119
 .byte 101,114,98,111,117,110,100,0,0,0,0
 .byte 0,0,0,0
 .globl l0768
l0768:
 .globl l0766
l0766:
 .quad 15
 .byte 98,110,100,115,116,107,117,112,112
 .byte 101,114,98,111,117,110,100,0,0,0,0
 .byte 0,0,0,0
 .globl l0769
l0769:
 .globl l0767
l0767:
 .quad 15
 .byte 109,111,118,101,45,114,101,103,115
 .byte 45,116,111,45,109,101,109,0,0,0,0,0
 .byte 0,0,0
 .globl l0770
l0770:
 .globl l0768
l0768:
 .quad 12
 .byte 99,97,116,99,104,115,116,97,99,107
 .byte 112,116,114,0,0,0
 .globl l0771
l0771:
 .globl l0769
l0769:
 .quad 13
 .byte 104,101,97,112,108,111,119,101,114
 .byte 98,111,117,110,100,0,0
 .globl l0772
l0772:
 .globl l0770
l0770:
 .quad 3
 .byte 104,101,97,112,0,0,0,0
 .globl l0773
l0773:
 .globl l0771
l0771:
 .quad 12
 .byte 105,110,105,116,45,112,111,105,110
 .byte 116,101,114,115,0,0,0
 .globl l0774
l0774:
 .globl l0772
l0772:
 .quad 16
 .byte 103,99,97,114,114,97,121,108,111,119
 .byte 101,114,98,111,117,110,100,0,0,0,0
 .byte 0,0,0
 .globl l0775
l0775:
 .globl l0773
l0773:
 .quad 16
 .byte 103,99,97,114,114,97,121,117,112,112
 .byte 101,114,98,111,117,110,100,0,0,0,0
 .byte 0,0,0
 .globl l0776
l0776:
 .globl l0774
l0774:
 .quad 10
 .byte 111,108,100,104,101,97,112,108,97,115
 .byte 116,0,0,0,0,0
 .globl l0777
l0777:
 .globl l0775
l0775:
 .quad 15
 .byte 111,108,100,104,101,97,112,116,114
 .byte 97,112,98,111,117,110,100,0,0,0,0,0
 .byte 0,0,0
 .globl l0778
l0778:
 .globl l0776
l0776:
 .quad 13
 .byte 104,101,97,112,117,112,112,101,114
 .byte 98,111,117,110,100,0,0
 .globl l0779
l0779:
 .globl l0777
l0777:
 .quad 13
 .byte 95,105,110,102,98,105,116,108,101,110
 .byte 103,116,104,95,0,0
 .globl l0780
l0780:
 .globl l0778
l0778:
 .quad 6
 .byte 108,97,115,116,98,112,115,0
 .globl l0781
l0781:
 .globl l0779
l0779:
 .quad 12
 .byte 98,112,115,108,111,119,101,114,98,111
 .byte 117,110,100,0,0,0
 .globl l0782
l0782:
 .globl l0780
l0780:
 .quad 18
 .byte 109,97,105,110,115,116,97,114,116,105
 .byte 110,105,116,105,97,108,105,122,101
 .byte 0,0,0,0,0
 .globl l0783
l0783:
 .globl l0781
l0781:
 .quad 6
 .byte 110,101,120,116,98,112,115,0
 .globl l0784
l0784:
 .globl l0782
l0782:
 .quad 16
 .byte 111,108,100,104,101,97,112,117,112
 .byte 112,101,114,98,111,117,110,100,0,0
 .byte 0,0,0,0,0
 .globl l0785
l0785:
 .globl l0783
l0783:
 .quad 16
 .byte 111,108,100,104,101,97,112,108,111
 .byte 119,101,114,98,111,117,110,100,0,0
 .byte 0,0,0,0,0
 .globl l0786
l0786:
 .globl l0784
l0784:
 .quad 14
 .byte 115,116,97,99,107,117,112,112,101,114
 .byte 98,111,117,110,100,0
 .globl l0787
l0787:
 .globl l0785
l0785:
 .quad 8
 .byte 117,110,105,120,115,116,100,105,110
 .byte 0,0,0,0,0,0,0
 .globl l0788
l0788:
 .globl l0786
l0786:
 .quad 9
 .byte 117,110,105,120,115,116,100,111,117
 .byte 116,0,0,0,0,0,0
 .globl l0789
l0789:
 .globl l0787
l0787:
 .quad 9
 .byte 117,110,105,120,115,116,100,101,114
 .byte 114,0,0,0,0,0,0
 .globl l0790
l0790:
 .globl l0788
l0788:
 .quad 7
 .byte 117,110,105,120,110,117,108,108,0,0
 .byte 0,0,0,0,0,0
 .globl l0791
l0791:
 .globl l0789
l0789:
 .quad 6
 .byte 117,110,105,120,101,111,102,0
 .globl l0792
l0792:
 .globl l0790
l0790:
 .quad 6
 .byte 117,110,105,120,116,116,121,0
 .globl l0793
l0793:
 .globl l0791
l0791:
 .quad 16
 .byte 42,42,42,109,117,115,116,45,98,101
 .byte 45,110,105,108,42,42,42,0,0,0,0,0,0
 .byte 0
 .globl l0794
l0794:
 .globl l0792
l0792:
 .quad 20
 .byte 42,42,42,109,117,115,116,45,98,101
 .byte 45,110,105,108,45,116,111,111,42,42
 .byte 42,0,0,0
 .globl l0795
l0795:
 .globl l0793
l0793:
 .quad 7
 .byte 42,102,97,115,116,99,97,114,0,0,0,0
 .byte 0,0,0,0
 .globl l0796
l0796:
 .globl l0794
l0794:
 .quad 10
 .byte 105,110,105,116,45,102,108,117,105
 .byte 100,115,0,0,0,0,0
 .globl l0797
l0797:
 .globl l0795
l0795:
 .quad 5
 .byte 115,121,109,118,97,108,0,0
 .globl l0798
l0798:
 .globl l0796
l0796:
 .quad 5
 .byte 115,121,109,102,110,99,0,0
 .globl l0799
l0799:
 .globl l0797
l0797:
 .quad 14
 .byte 111,115,95,115,116,97,114,116,117,112
 .byte 95,104,111,111,107,0
 .globl l0800
l0800:
 .globl l0798
l0798:
 .quad 3
 .byte 97,114,103,99,0,0,0,0
 .globl l0801
l0801:
 .globl l0799
l0799:
 .quad 3
 .byte 97,114,103,118,0,0,0,0
 .globl l0802
l0802:
 .globl l0800
l0800:
 .quad 7
 .byte 101,98,120,115,97,118,101,42,0,0,0
 .byte 0,0,0,0,0
 .globl l0803
l0803:
 .globl l0801
l0801:
 .quad 14
 .byte 115,116,97,99,107,108,111,119,101,114
 .byte 98,111,117,110,100,0
 .globl l0804
l0804:
 .globl l0802
l0802:
 .quad 11
 .byte 105,110,105,116,45,103,99,97,114,114
 .byte 97,121,0,0,0,0
 .globl l0805
l0805:
 .globl l0803
l0803:
 .quad 7
 .byte 112,114,101,45,109,97,105,110,0,0,0
 .byte 0,0,0,0,0
 .globl l0806
l0806:
 .globl l0804
l0804:
 .quad 15
 .byte 101,120,105,116,45,119,105,116,104
 .byte 45,115,116,97,116,117,115,0,0,0,0,0
 .byte 0,0,0
 .globl l0807
l0807:
 .globl l0805
l0805:
 .quad 14
 .byte 111,115,95,99,108,101,97,110,117,112
 .byte 95,104,111,111,107,0
 .globl l0808
l0808:
 .globl l0806
l0806:
 .quad 12
 .byte 101,120,116,101,114,110,97,108,95,101
 .byte 120,105,116,0,0,0
 .globl l0809
l0809:
 .globl l0807
l0807:
 .quad 8
 .byte 95,112,115,108,95,109,97,105,110,0
 .byte 0,0,0,0,0,0
 .globl l0810
l0810:
 .globl l0808
l0808:
 .quad 7
 .byte 114,101,100,117,99,101,117,112,0,0
 .byte 0,0,0,0,0,0
 .globl l0811
l0811:
 .globl l0809
l0809:
 .quad 8
 .byte 95,114,101,100,117,99,101,117,112,0
 .byte 0,0,0,0,0,0
 .globl l0812
l0812:
 .globl l0810
l0810:
 .quad 9
 .byte 115,116,114,105,110,103,111,112,101
 .byte 110,0,0,0,0,0,0
 .globl l0813
l0813:
 .globl l0811
l0811:
 .quad 9
 .byte 42,108,105,115,112,95,104,111,111,107
 .byte 0,0,0,0,0,0
 .globl l0814
l0814:
 .globl l0812
l0812:
 .quad 2
 .byte 114,100,115,0,0,0,0,0
 .globl l0815
l0815:
 .globl l0813
l0813:
 .quad 2
 .byte 119,114,115,0,0,0,0,0
 .globl l0816
l0816:
 .globl l0814
l0814:
 .quad 5
 .byte 98,101,103,105,110,49,0,0
 .globl l0817
l0817:
 .globl l0815
l0815:
 .quad 4
 .byte 99,108,111,115,101,0,0,0
 .globl l0818
l0818:
 .globl l0816
l0816:
 .quad 10
 .byte 117,110,105,120,99,108,101,97,114,105
 .byte 111,0,0,0,0,0
 .globl l0819
l0819:
 .globl l0817
l0817:
 .quad 22
 .byte 105,110,105,116,105,97,108,105,122
 .byte 101,45,115,121,109,98,111,108,45,116
 .byte 97,98,108,101,0
 .globl l0820
l0820:
 .globl l0818
l0818:
 .quad 7
 .byte 105,110,105,116,99,111,100,101,0,0
 .byte 0,0,0,0,0,0
 .globl l0821
l0821:
 .globl l0819
l0819:
 .quad 19
 .byte 99,111,110,115,111,108,101,45,112,114
 .byte 105,110,116,45,115,116,114,105,110
 .byte 103,0,0,0,0
 .globl l0822
l0822:
 .globl l0820
l0820:
 .quad 14
 .byte 99,111,110,115,111,108,101,45,110,101
 .byte 119,108,105,110,101,0
 .globl l0823
l0823:
 .globl l0821
l0821:
 .quad 5
 .byte 102,97,115,108,105,110,0,0
 .globl l0824
l0824:
 .globl l0822
l0822:
 .quad 10
 .byte 108,111,97,100,101,114,45,109,97,105
 .byte 110,0,0,0,0,0
 .globl l0825
l0825:
 .globl l0823
l0823:
 .quad 7
 .byte 117,110,105,120,112,117,116,115,0,0
 .byte 0,0,0,0,0,0
 .globl l0826
l0826:
 .globl l0824
l0824:
 .quad 7
 .byte 117,110,105,120,112,117,116,110,0,0
 .byte 0,0,0,0,0,0
 .globl l0827
l0827:
 .globl l0825
l0825:
 .quad 19
 .byte 99,111,110,115,111,108,101,45,112,114
 .byte 105,110,116,45,110,117,109,98,101,114
 .byte 0,0,0,0
 .globl l0828
l0828:
 .globl l0826
l0826:
 .quad 7
 .byte 117,110,105,120,112,117,116,99,0,0
 .byte 0,0,0,0,0,0
 .globl l0829
l0829:
 .globl l0827
l0827:
 .quad 7
 .byte 117,110,105,120,111,112,101,110,0,0
 .byte 0,0,0,0,0,0
 .globl l0830
l0830:
 .globl l0828
l0828:
 .quad 17
 .byte 107,101,114,110,101,108,45,102,97,116
 .byte 97,108,45,101,114,114,111,114,0,0,0
 .byte 0,0,0
 .globl l0831
l0831:
 .globl l0829
l0829:
 .quad 13
 .byte 98,105,110,97,114,121,111,112,101,110
 .byte 114,101,97,100,0,0
 .globl l0832
l0832:
 .globl l0830
l0830:
 .quad 4
 .byte 120,103,101,116,119,0,0,0
 .globl l0833
l0833:
 .globl l0831
l0831:
 .quad 9
 .byte 98,105,110,97,114,121,114,101,97,100
 .byte 0,0,0,0,0,0
 .globl l0834
l0834:
 .globl l0832
l0832:
 .quad 4
 .byte 102,114,101,97,100,0,0,0
 .globl l0835
l0835:
 .globl l0833
l0833:
 .quad 14
 .byte 98,105,110,97,114,121,114,101,97,100
 .byte 98,108,111,99,107,0
 .globl l0836
l0836:
 .globl l0834
l0834:
 .quad 5
 .byte 102,99,108,111,115,101,0,0
 .globl l0837
l0837:
 .globl l0835
l0835:
 .quad 10
 .byte 98,105,110,97,114,121,99,108,111,115