mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2024-06-13 10:29:34 +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.
96 lines
2.1 KiB
Plaintext
96 lines
2.1 KiB
Plaintext
;---------------------------------------------------------------------------
|
|
; File: SubtestController.a
|
|
;
|
|
; Contains: This file contains the subtest controller macros which are used to
|
|
; interface to the run time modules in the CTE kernel. These macros
|
|
; push arguments onto the stack, make the C style call, then clean up
|
|
; stack.
|
|
;
|
|
; This file was created on
|
|
; Thursday, August 9, 1990 8:44:21 AM using the MakeAsmInc script:
|
|
;
|
|
; MakeAsmInc SubtestController.h :asm_incs:SubtestController.h.a
|
|
;
|
|
; Written by: Scott Smyers
|
|
;
|
|
; Copyright: © 1990, 1992 by Apple Computer, Inc., all rights reserved.
|
|
;
|
|
; Change History (most recent first):
|
|
;
|
|
; <2> 1/15/92 KC Repair "uncompleated conditional directive" error.
|
|
; <1> 8/31/90 SS first checked in
|
|
;
|
|
;
|
|
;---------------------------------------------------------------------------
|
|
|
|
INCLUDE 'StdMacros.a'
|
|
|
|
IF &TYPE('_SubtestController_')='UNDEFINED' THEN
|
|
_SubtestController_ EQU 1
|
|
;
|
|
; SubtestController.a
|
|
;
|
|
|
|
|
|
SUBTEST_NAME_SIZE EQU 40
|
|
|
|
Node STRUCTURE 0 ; struct Node
|
|
DSF.L succ ; struct Node *succ ;
|
|
DSF.L pred ; struct Node *pred ;
|
|
DSF.L key ; ULONG key ;
|
|
DSF.L contents ; void *contents ;
|
|
ENDSTRUCT ; } ;
|
|
|
|
SubtestNode STRUCTURE 0 ; struct SubtestNode
|
|
|
|
Node DS.B Node.sizeofNode ;Allocate a node structure here
|
|
|
|
DSF.L subtestPtr ; Subtest *subtestPtr ;
|
|
DSF.L subtestSize ; int subtestSize ;
|
|
DSF.L pbSize ; int pbSize ;
|
|
DSF.L rbSize ; int rbSize ;
|
|
DSF.L name ; char *name ;
|
|
ENDSTRUCT ; } ;
|
|
|
|
MACRO
|
|
Item &fields
|
|
STRUCTITEM , &fields
|
|
ENDM
|
|
|
|
IF &TYPE('__cplusplus')<>'UNDEFINED' THEN
|
|
IMPORT InstallSubtest
|
|
|
|
; Calls: SubtestNode *FindSubtest(CTEGlobals *globs, SubtestID id) ;
|
|
;
|
|
IMPORT FindSubtest
|
|
|
|
paramCntOf_FindSubtest EQU 2
|
|
|
|
MACRO
|
|
FindMSubtest &globs, &id
|
|
move.l &id,-(sp)
|
|
pea &globs
|
|
jsr FindSubtest
|
|
add.l #4*paramCntOf_FindSubtest,sp
|
|
ENDM
|
|
|
|
|
|
|
|
; Calls: SubtestErr DoSubtest(CTEGlobals *globs) ;
|
|
;
|
|
IMPORT DoSubtest
|
|
|
|
paramCntOf_DoSubtest EQU 1
|
|
|
|
MACRO
|
|
DoMSubtest &globs
|
|
pea &globs
|
|
jsr DoSubtest
|
|
add.l #4*paramCntOf_DoSubtest,sp
|
|
ENDM
|
|
|
|
|
|
|
|
ENDIF ;__cplusplus
|
|
|
|
ENDIF ;_SubtestController_ |