home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Club Amiga de Montreal - CAM
/
CAM_CD_1.iso
/
files
/
466.lha
/
AztecArp_v1.9
/
Source.LZH
/
Glue
/
Toupper.asm
< prev
next >
Wrap
Assembly Source File
|
1990-12-05
|
189b
|
19 lines
section text,code
xref _ArpBase
xdef _Toupper
_Toupper:
pea (a6)
move.l _ArpBase,a6
IF INT16
move.w 8(sp),d0
ELSE
move.l 8(sp),d0
ENDC
jsr -534(a6)
move.l (sp)+,a6
rts
end