Macintosh-SW/mac-rom
1
0
Fork 0
mirror of https://github.com/elliotnunn/mac-rom.git synced 2024-06-28 22:29:38 +00:00
Code Issues Projects Releases Wiki Activity

Correct names of NK Event Group wrapper code

Browse Source 
The names of the NanoKernel MP calls made by this 68k ROM library were
found by inspecting the PowerPC MPLibrary, which makes these and many
other MP calls. The document "Adding Multitasking Capability to
Applications Using Multiprocessing Services" gave some background
information. It also helped to determine the function signatures of the
MP calls and of these ROM wrappers.
This commit is contained in:
Elliot Nunn 2017-11-18 16:53:08 +08:00
parent 3226ee4220
commit d5615091e0
2 changed files with 77 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
BuildResults/RISC/Obj/NKEventGroupRelated.a.o
View File

Binary file not shown.

119
OS/NKEventGroupWrapper.a
View File

@ -1,55 +1,90 @@
; Straightforward 68k wrappers for three NanoKernel MPCalls related to EventGroups ; Straightforward 68k wrappers for three NanoKernel MPCalls related to EventGroups
MPCall49 PROC EXPORT ; create an EventGroup (will be for blue), return its ID ; How the FE1F trap makes MP calls:
;
Link A6, #$0 ; 68 reg | input | output
MoveQ.L #49, D0 ; -----------------------------------------------
dc.w $fe1f ; D0 | r0/MPCall selector | r3/return value 1
Move.L D0, $C(A6) ; A0 | r3/argument 1 | r4/return value 2
Move.L $8(A6), D0 ; D1 | r4/argument 2 | r5/return value 3
BEQ.B (* + $6) ; A1 | r5/argument 3 | r6/return value 4
MoveA.L D0, A1
Move.L A0, (A1)
Unlk A6
MoveA.L (SP)+, A0
AddQ #$4, SP
Jmp (A0)
MPCall54 PROC EXPORT ; pascal OSStatus NKCreateEvent(long return_space, MPEventID *event);
Link A6, #$0 NKCreateEvent PROC EXPORT
MoveA.L $C(A6), A0
Move.L $8(A6), D1 LINK A6, #0
MoveQ.L #54, D0
dc.w $fe1f MOVEQ.L #49, D0
Move.L D0, $10(A6) DC.W $FE1F ; CALL
Unlk A6
MoveA.L (SP)+, A0 MOVE.L D0, $C(A6) ; return r3;
AddQ.L #$8, SP
Jmp (A0) MOVE.L $8(A6), D0 ; if(event) *event = r4;
BEQ.S @NOPTR
MOVE.L D0, A1
MOVE.L A0, (A1)
@NOPTR
UNLK A6
MOVE.L (SP)+, A0
ADDQ #4, SP
JMP (A0)
MPCall52 PROC EXPORT ; pascal OSStatus NKSetSWIEvent(long return_space, MPEventID event, long swi);
Link A6, #$0 NKSetSWIEvent PROC EXPORT
MoveA.L $8(A6), A1
MoveA.L $10(A6), A0 LINK A6, #0
MoveQ.L #52, D0
dc.w $fe1f MOVE.L $C(A6), A0 ; r3 = event;
Move.L D0, $14(A6) MOVE.L $8(A6), D1 ; r4 = swi;
Move.L $C(A6), D0
BEQ.B (* + $6) MOVEQ.L #54, D0
MoveA.L D0, A1 DC.W $FE1F ; CALL
Move.L A0, (A1)
Unlk A6 MOVE.L D0, $10(A6) ; return r3;
MoveA.L (SP)+, A0
DC.W $defc, $000c UNLK A6
; AddA.W #$C, SP MOVE.L (SP)+, A0
Jmp (A0) ADDQ.L #8, SP
JMP (A0)
END ; pascal OSStatus NKWaitForEvent(MPEventID event, MPEventFlags *flags, Duration duration)
NKWaitForEvent PROC EXPORT
LINK A6, #$0
MOVE.L $8(A6), A1 ; r5 = duration;
MOVE.L $10(A6), A0 ; r3 = event;
MOVEQ.L #52, D0
DC.W $FE1F ; CALL
MOVE.L D0, $14(A6) ; return r3;
MOVE.L $C(A6), D0 ; if(flags) *flags = r4;
BEQ.B @NOPTR
MOVE.L D0, A1
MOVE.L A0, (A1)
@NOPTR
UNLK A6
MOVE.L (SP)+, A0
; DC.W $DEFC, $000C
OPT NONE ; not sure how this instruction got here!
ADDA.W #$C, SP
JMP (A0)
END