home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Club Amiga de Montreal - CAM
/
CAM_CD_1.iso
/
files
/
553.lha
/
Icon_v1.0
/
Bypass.asm
next >
Wrap
Assembly Source File
|
1991-09-09
|
2KB
|
133 lines
* $Revision Header * Header built automatically - do not edit! *************
*
* (C) Copyright 1990 by Olaf Barthel & MXM
*
* Name .....: Bypass.asm
* Created ..: Friday 10-May-91 17:38
* Revision .: 1
*
* Date Author Comment
* ========= ======== ====================
* 10-May-91 Olsen Created this file!
*
* $Revision Header *********************************************************
section text,code
CALL macro
xref _LVO\1
jsr _LVO\1(a6)
endm
*----------------------------------------------------------------------*
xdef _Printf
xdef _SPrintf
xdef _MyExamine
xdef _MyExNext
xdef _MyOpen
xdef _MyClearMenuStrip
*----------------------------------------------------------------------*
_Printf:
movem.l d2/a6,-(sp)
move.l 12(sp),d1
lea 16(sp),a0
move.l a0,d2
move.l _DOSBase(a4),a6
CALL VPrintf
movem.l (sp)+,d2/a6
rts
*----------------------------------------------------------------------*
_SPrintf:
movem.l a2/a3/a6,-(sp)
move.l 4+12(sp),a3
move.l 8+12(sp),a0
lea 12+12(sp),a1
lea stuffchar(pc),a2
move.l 4,a6
CALL RawDoFmt
movem.l (sp)+,a2/a3/a6
rts
stuffchar:
move.b d0,(a3)+
rts
*----------------------------------------------------------------------*
_MyExamine:
pea (a6)
move.l _DOSBase(a4),a6
move.l _OldExamine,a0
jsr (a0)
move.l (sp)+,a6
rts
*----------------------------------------------------------------------*
_MyExNext:
pea (a6)
move.l _DOSBase(a4),a6
move.l _OldExNext,a0
jsr (a0)
move.l (sp)+,a6
rts
*----------------------------------------------------------------------*
_MyOpen:
pea (a6)
move.l _DOSBase(a4),a6
move.l _OldOpen,a0
jsr (a0)
move.l (sp)+,a6
rts
*----------------------------------------------------------------------*
_MyClearMenuStrip:
pea (a6)
move.l _IntuitionBase(a4),a6
move.l _OldClearMenuStrip,a1
jsr (a1)
move.l (sp)+,a6
rts
*----------------------------------------------------------------------*
lea __BSSBAS,a0
move.l #__BSSLEN,d0
*----------------------------------------------------------------------*
csect __MERGED
xref _DOSBase
xref _IntuitionBase
xref _OldExamine
xref _OldExNext
xref _OldOpen
xref _OldClearMenuStrip
*----------------------------------------------------------------------*
xref __BSSBAS
xref __BSSLEN
*----------------------------------------------------------------------*
end