home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 300-399 / ff376.lzh / AztecArp / Sources.LZH / Glue / Toupper.asm < prev    next >
Assembly Source File  |  1990-08-01  |  196b  |  19 lines
  1.     section    text,code
  2.  
  3.     xref    _ArpBase
  4.     xdef    _Toupper
  5.  
  6. _Toupper:
  7.     move.l    a6,-(sp)
  8.     move.l    _ArpBase,a6
  9.     IF    INT16
  10.     move.w    8(sp),d0
  11.     ELSE
  12.     move.l    8(sp),d0
  13.     ENDC
  14.     jsr    -534(a6)
  15.     move.l    (sp)+,a6
  16.     rts
  17.  
  18.     end
  19.