mirror of
https://github.com/wfjm/w11.git
synced 2026-03-01 01:50:01 +00:00
61b3d9d809
- tools - asm-11/lib/defs_xu.mac: add more definitions - asm-11/mlib: rename callp->calls; add callr - src/librtools/RtimerFd.cpp: BUGFIX: SetRelative(): correct is-positive check - src/librw11/Rw11CntlDEUNA.cpp: log transitions into and out of kStateRxPoll
31 lines
833 B
Plaintext
31 lines
833 B
Plaintext
; $Id: calls.mac 1375 2023-02-19 15:54:12Z mueller $
|
|
; SPDX-License-Identifier: GPL-3.0-or-later
|
|
; Copyright 2023- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
|
;
|
|
; set up 'jsr pc' call with argument list on stack
|
|
;
|
|
.macro calls,func,p0,p1,p2,p3,p4,p5,p6,p7
|
|
.mcall callsp
|
|
$$$csp = 0
|
|
callsp p7
|
|
callsp p6
|
|
callsp p5
|
|
callsp p4
|
|
callsp p3
|
|
callsp p2
|
|
callsp p1
|
|
callsp p0
|
|
call func
|
|
.if ne,$$$csp ; any arguments ?
|
|
.if eq,$$$csp-1 ; 1 argument ?
|
|
tst (sp)+ ; pop one
|
|
.iff
|
|
.if eq,$$$csp-2 ; 2 arguments ?
|
|
cmp (sp)+,(sp)+ ; pop two
|
|
.iff
|
|
add #2*$$$csp,sp ; pop n
|
|
.endc
|
|
.endc
|
|
.endc
|
|
.endm
|