mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2024-09-07 09:54:37 +00:00
97 lines
1.9 KiB
Plaintext
97 lines
1.9 KiB
Plaintext
|
;
|
|||
|
; File: IICTest.a
|
|||
|
;
|
|||
|
; Contains: xxx put contents here xxx
|
|||
|
;
|
|||
|
; Written by: xxx put writers here xxx
|
|||
|
;
|
|||
|
; Copyright: <09> 1992 by Apple Computer, Inc., all rights reserved.
|
|||
|
;
|
|||
|
; Change History (most recent first):
|
|||
|
;
|
|||
|
; <P2> 6/11/92 DH Added VDC Interrupt service routine
|
|||
|
;
|
|||
|
;
|
|||
|
|
|||
|
;
|
|||
|
; FileName: MUNITest.a
|
|||
|
;
|
|||
|
; History:
|
|||
|
;
|
|||
|
; 05/20/91 gjs Add 040 move16 for MUNI Block move...
|
|||
|
;___________________________________________________________________________
|
|||
|
;
|
|||
|
; INCLUDES
|
|||
|
;___________________________________________________________________________
|
|||
|
;
|
|||
|
PRINT ON
|
|||
|
|
|||
|
;___________________________________________________________________________
|
|||
|
|
|||
|
CASE OBJ ; allow upper and lower case
|
|||
|
;___________________________________________________________________________
|
|||
|
;
|
|||
|
; Segment Definitions
|
|||
|
;___________________________________________________________________________
|
|||
|
;
|
|||
|
; SEG 'IICTEST'
|
|||
|
;___________________________________________________________________________
|
|||
|
;
|
|||
|
|
|||
|
string pascal
|
|||
|
|
|||
|
print off
|
|||
|
include 'SysEqu.a'
|
|||
|
include 'SysErr.a'
|
|||
|
include 'Traps.a'
|
|||
|
; include 'ToolEqu.a'
|
|||
|
print on
|
|||
|
;___________________________________________________________________________
|
|||
|
;
|
|||
|
; EXPORTS
|
|||
|
;___________________________________________________________________________
|
|||
|
;
|
|||
|
;
|
|||
|
; Exports for the IICTest.a code
|
|||
|
;
|
|||
|
MACHINE MC68040
|
|||
|
|
|||
|
EgretGlu proc export
|
|||
|
|
|||
|
|
|||
|
StackFrame record 0,increment
|
|||
|
frameAddr ds.l 1
|
|||
|
retAddr ds.l 1
|
|||
|
parmBegin equ *
|
|||
|
EgretPB ds.l 1
|
|||
|
parmSize equ *-parmBegin
|
|||
|
endr
|
|||
|
|
|||
|
|
|||
|
WITH StackFrame
|
|||
|
link a6,#0
|
|||
|
; pea EnterMove16
|
|||
|
; _DebugStr
|
|||
|
move.l (8,sp), a0
|
|||
|
_EgretDispatch
|
|||
|
tst.w d0
|
|||
|
bne.s MoveDone
|
|||
|
getout
|
|||
|
unlk a6
|
|||
|
rts
|
|||
|
|
|||
|
MoveDone
|
|||
|
; pea NotAligned
|
|||
|
; _DebugStr
|
|||
|
bra.s getout
|
|||
|
ENDWITH
|
|||
|
|
|||
|
STRING PASCAL
|
|||
|
EnterMove16 dc.b '*** Begin Egret Glue...'
|
|||
|
NotAligned dc.b '*** Buffer not quad long aligned...'
|
|||
|
ALIGN 2
|
|||
|
STRING ASIS
|
|||
|
ENDP
|
|||
|
|
|||
|
|
|||
|
END
|