home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / gnu / grtxbind / srtxtrap.s < prev   
Encoding:
Text File  |  1990-02-09  |  2.4 KB  |  140 lines
  1. #APP
  2.  
  3. | 16 bit int rtx re-entrant bindings, when __NO_INLINE__ && __MSHORT__
  4. |     assumption: rtx functions 201,203 do not destroy a2,d2
  5. |         otherwise we are up sh** creek.
  6. |
  7. |     bammi@dsrgsun.ces.cwru.edu
  8. | 
  9.     .globl _bios
  10.     .text
  11.     .even
  12. _bios:
  13.     movl a2,sp@-        |  save a2, d2 (clobbered reggies)
  14.     movw #201,sp@-
  15.     trap #5
  16.     movl d2,sp@-
  17.     movw #201,sp@-
  18.     trap #5
  19.     lea  sp@(12),sp
  20.  
  21.     movw #201,sp@-        | save return address
  22.     trap #5
  23.     addql #6,sp        | pop return off stack
  24.  
  25.     trap #13        | do it
  26.     movl d0,sp@-        | save return value on stack
  27.  
  28.     movw #203,sp@-        |  get saved return address into a0
  29.     trap #5
  30.     movl d0,a0
  31.     movw #203,sp@-        | get saved d2
  32.     trap #5
  33.     movl d0,d2
  34.     movw #203,sp@-        | get saved a2
  35.     trap #5
  36.     movl d0,a2
  37.     addql #6,sp
  38.     
  39.     movl sp@+,d0        | set up return value
  40.     jmp a0@
  41.  
  42.     .globl _xbios
  43.     .text
  44.     .even
  45. _xbios:
  46.     movl a2,sp@-        |  save a2, d2 (clobbered reggies)
  47.     movw #201,sp@-
  48.     trap #5
  49.     movl d2,sp@-
  50.     movw #201,sp@-
  51.     trap #5
  52.     lea  sp@(12),sp
  53.  
  54.     movw #201,sp@-        | save return address
  55.     trap #5
  56.     addql #6,sp        | pop return off stack
  57.  
  58.     trap #14        | do it
  59.     movl d0,sp@-        | save return value on stack
  60.  
  61.     movw #203,sp@-        |  get saved return address into a0
  62.     trap #5
  63.     movl d0,a0
  64.     movw #203,sp@-        | get saved d2
  65.     trap #5
  66.     movl d0,d2
  67.     movw #203,sp@-        | get saved a2
  68.     trap #5
  69.     movl d0,a2
  70.     addql #6,sp
  71.     
  72.     movl sp@+,d0        | set up return value
  73.     jmp a0@
  74.  
  75.     .globl _gemdos
  76.     .text
  77.     .even
  78. _gemdos:
  79.     movl a2,sp@-        |  save a2, d2 (clobbered reggies)
  80.     movw #201,sp@-
  81.     trap #5
  82.     movl d2,sp@-
  83.     movw #201,sp@-
  84.     trap #5
  85.     lea  sp@(12),sp
  86.  
  87.     movw #201,sp@-        | save return address
  88.     trap #5
  89.     addql #6,sp        | pop return off stack
  90.  
  91.     trap #1            | do it
  92.     movl d0,sp@-        | save return value on stack
  93.  
  94.     movw #203,sp@-        |  get saved return address into a0
  95.     trap #5
  96.     movl d0,a0
  97.     movw #203,sp@-        | get saved d2
  98.     trap #5
  99.     movl d0,d2
  100.     movw #203,sp@-        | get saved a2
  101.     trap #5
  102.     movl d0,a2
  103.     addql #6,sp
  104.     
  105.     movl sp@+,d0        | set up return value
  106.     jmp a0@
  107.  
  108.     .globl _rtxbind
  109.     .text
  110.     .even
  111. _rtxbind:
  112.     movl a2,sp@-        |  save a2, d2 (clobbered reggies)
  113.     movw #201,sp@-
  114.     trap #5
  115.     movl d2,sp@-
  116.     movw #201,sp@-
  117.     trap #5
  118.     lea  sp@(12),sp
  119.  
  120.     movw #201,sp@-        | save return address
  121.     trap #5
  122.     addql #6,sp        | pop return off stack
  123.  
  124.     trap #5            | do it
  125.     movl d0,sp@-        | save return value on stack
  126.  
  127.     movw #203,sp@-        |  get saved return address into a0
  128.     trap #5
  129.     movl d0,a0
  130.     movw #203,sp@-        | get saved d2
  131.     trap #5
  132.     movl d0,d2
  133.     movw #203,sp@-        | get saved a2
  134.     trap #5
  135.     movl d0,a2
  136.     addql #6,sp
  137.     
  138.     movl sp@+,d0        | set up return value
  139.     jmp a0@
  140.