mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2025-01-03 09:31:04 +00:00
4325cdcc78
Resource forks are included only for .rsrc files. These are DeRezzed into their data fork. 'ckid' resources, from the Projector VCS, are not included. The Tools directory, containing mostly junk, is also excluded.
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 |