home *** CD-ROM | disk | FTP | other *** search
/ Fish 'n' More 2 / fishmore-publicdomainlibraryvol.ii1991xetec.iso / fish / programming / aztecarp_436 / src / source.lzh / Glue / Toupper.asm < prev    next >
Assembly Source File  |  1990-12-05  |  189b  |  19 lines
  1.     section    text,code
  2.  
  3.     xref    _ArpBase
  4.     xdef    _Toupper
  5.  
  6. _Toupper:
  7.     pea    (a6)
  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.