Import guile-1.8 as multiple upstream tarball component

[lilypond.git] / guile18 / qt / md / axp_b.s

diff --git a/guile18/qt/md/axp_b.s b/guile18/qt/md/axp_b.s
new file mode 100644 (file)
index 0000000..82194d5
--- /dev/null
+++ b/guile18/qt/md/axp_b.s
@@ -0,0 +1,111 @@
+       #
+       # QuickThreads -- Threads-building toolkit.
+       # Copyright (c) 1993 by David Keppel
+       #
+       # Permission to use, copy, modify and distribute this software and
+       # its documentation for any purpose and without fee is hereby
+       # granted, provided that the above copyright notice and this notice
+       # appear in all copies.  This software is provided as a
+       # proof-of-concept and for demonstration purposes; there is no
+       # representation about the suitability of this software for any
+       # purpose.
+       #
+
+       .text
+       .globl b_call_reg
+       .globl b_call_imm
+       .globl b_add
+       .globl b_load
+
+       .ent b_null
+b_null:
+       ret $31,($18),1
+       .end b_null
+
+       .ent b_call_reg
+b_call_reg:
+       lda $27,b_null
+$L0:
+       jsr $18,($27)
+       jsr $18,($27)
+       jsr $18,($27)
+       jsr $18,($27)
+       jsr $18,($27)
+
+       jsr $18,($27)
+       jsr $18,($27)
+       jsr $18,($27)
+       jsr $18,($27)
+       jsr $18,($27)
+
+       subq $16,1,$16
+       bgt $16,$L0
+
+       ret $31,($26),1
+       .end
+
+
+       .ent b_call_imm
+b_call_imm:
+$L1:
+       jsr $18,b_null
+       jsr $18,b_null
+       jsr $18,b_null
+       jsr $18,b_null
+       jsr $18,b_null
+
+       jsr $18,b_null
+       jsr $18,b_null
+       jsr $18,b_null
+       jsr $18,b_null
+       jsr $18,b_null
+
+       subq $16,1,$16
+       bgt $16,$L1
+
+       ret $31,($26),1
+       .end
+
+
+       .ent b_add
+b_add:
+$L2:
+       addq $31,$31,$31
+       addq $31,$31,$31
+       addq $31,$31,$31
+       addq $31,$31,$31
+       addq $31,$31,$31
+
+       addq $31,$31,$31
+       addq $31,$31,$31
+       addq $31,$31,$31
+       addq $31,$31,$31
+       addq $31,$31,$31
+
+       subq $16,1,$16
+       bgt $16,$L2
+
+       ret $31,($26),1
+       .end
+
+
+       .ent b_load
+b_load:
+$L3:
+       ldq $31,0($30)
+       ldq $31,8($30)
+       ldq $31,16($30)
+       ldq $31,24($30)
+       ldq $31,32($30)
+
+       ldq $31,0($30)
+       ldq $31,8($30)
+       ldq $31,16($30)
+       ldq $31,24($30)
+       ldq $31,32($30)
+
+       subq $16,1,$16
+       bgt $16,$L3
+
+       ret $31,($26),1
+       .end