mirror of
https://github.com/elliotnunn/sys7.1-doc-wip.git
synced 2024-05-31 13:41:30 +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: © 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 |