guile18/qt/md/ksr1_b.s

   1 /*
   2  * QuickThreads -- Threads-building toolkit.
   3  * Copyright (c) 1993 by David Keppel
   4  *
   5  * Permission to use, copy, modify and distribute this software and
   6  * its documentation for any purpose and without fee is hereby
   7  * granted, provided that the above copyright notice and this notice
   8  * appear in all copies.  This software is provided as a
   9  * proof-of-concept and for demonstration purposes; there is no
  10  * representation about the suitability of this software for any
  11  * purpose.
  12  */
  13
  14         .file   "ksr1_b.s"
  15         .def    .debug; .endef
  16
  17         .globl b_call_reg$TXT
  18         .globl b_call_reg
  19         .globl b_call_imm$TXT
  20         .globl b_call_imm
  21         .globl b_add$TXT
  22         .globl b_add
  23         .globl b_load$TXT
  24         .globl b_load
  25
  26
  27 b_call_reg:
  28 b_call_imm:
  29 b_add:
  30 b_load:
  31         .word   b_call_reg$TXT
  32         .word   qt_error
  33         .word   qt_error$TXT
  34
  35
  36 b_call_reg$TXT:
  37 b_call_imm$TXT:
  38 b_add$TXT:
  39 b_load$TXT:
  40         finop                   ; cxnop
  41         finop                   ; cxnop
  42         finop                   ; ld8 16(%cp),%c4
  43         finop                   ; ld8 8(%cp),%cp
  44         finop                   ; cxnop
  45         finop                   ; cxnop
  46         finop                   ; jsr %c4,0(%c4)
  47         finop                   ; cxnop
  48         finop                   ; cxnop
  49