mirror of
https://github.com/elliotnunn/sys7.1-doc-wip.git
synced 2024-06-12 14:29:29 +00:00
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_ |