minix/lib/ack/libm2/par_misc.e

175 lines
3.3 KiB
Text
Executable file

#
;
; (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
; See the copyright notice in the ACK home directory, in the file "Copyright".
;
;
; Module: coroutine primitives
; Author: Kees Bot, Edwin Scheffer, Ceriel Jacobs
; Version: $Header$
;
mes 2,_EM_WSIZE,_EM_PSIZE
; topsize takes care of two things:
; - given a stack-break,
; it computes the size of the chunk of memory needed to save the stack;
; - also, if this stack-break = 0, it creates one, assuming that caller is
; the stack-break.
;
; This implementation assumes a continuous stack growing downwards
exp $topsize
#ifdef __sparc
inp $topsize2
pro $topsize, 0
mes 11
zer _EM_PSIZE
lal 0
loi _EM_PSIZE
cal $topsize2
asp 2*_EM_PSIZE
lfr _EM_WSIZE
ret _EM_WSIZE
end 0
pro $topsize2, (3*_EM_WSIZE+3*_EM_PSIZE)
#else
pro $topsize, (3*_EM_WSIZE+3*_EM_PSIZE)
#endif
; local space for line-number, ignoremask, filename, stack-break, size,
; and stack-pointer (see the topsave routine)
mes 11
lal 0
loi _EM_PSIZE
loi _EM_PSIZE ; stack-break or 0
zer _EM_PSIZE
cmp
zne *1
lxl 0
dch ; local base of caller
#ifdef __sparc
dch ; because of the extra layer
#endif
lal 0
loi _EM_PSIZE
sti _EM_PSIZE
1
lal 0
loi _EM_PSIZE
loi _EM_PSIZE
lpb ; convert this local base to an argument base.
; An implementation of a sort of "topsize" EM
; instruction should take a local base, and save
; the whole frame.
lor 1 ; stack-break SP
sbs _EM_WSIZE ; stack-break-SP
ret _EM_WSIZE ; return size of block to be saved
end 3*_EM_WSIZE+3*_EM_PSIZE
exp $topsave
#ifdef __sparc
inp $topsave2
pro $topsave,0
mes 11
lal 0
loi 2*_EM_PSIZE
cal $topsave2
asp 2*_EM_PSIZE
lfr _EM_WSIZE
ret _EM_WSIZE
end 0
pro $topsave2,0
#else
pro $topsave, 0
#endif
mes 11
loe 0
lae 4 ; load line number and file name
loi _EM_PSIZE
lim ; ignore mask
lor 0 ; LB
lal 0
loi _EM_PSIZE ; stack-break
lpb
lor 1
sbs _EM_WSIZE
loc _EM_WSIZE
adu _EM_WSIZE ; gives size
dup _EM_WSIZE
stl 0 ; save size
lor 1 ; SP (the SP BEFORE pushing)
lor 1 ; SP (address of stack top to save)
lal _EM_PSIZE ; area
loi _EM_PSIZE
lol 0 ; size
bls _EM_WSIZE ; move whole block
asp 3*_EM_PSIZE+3*_EM_WSIZE ; remove the lot from the stack
loc 1
ret _EM_WSIZE ; return 1
end 0
sv
bss _EM_PSIZE,0,0
exp $topload
#ifdef __sparc
inp $topload1
pro $topload,0
lal 0
loi _EM_PSIZE
cal $topload1
asp _EM_PSIZE
lfr _EM_WSIZE
ret _EM_WSIZE
end 0
pro $topload1, 0
#else
pro $topload, 0
#endif
mes 11
lal 0
loi _EM_PSIZE
lae sv
sti _EM_PSIZE ; saved parameter
lxl 0
2
dup _EM_PSIZE
adp -3*_EM_PSIZE
lal 0
loi _EM_PSIZE ; compare target SP with current LB to see if we must
loi _EM_PSIZE
cmp ; find another LB first
zgt *1
dch ; just follow dynamic chain to make sure we find
; a legal one
bra *2
1
str 0
lae sv
loi _EM_PSIZE
loi _EM_PSIZE ; load indirect to
str 1 ; restore SP
asp 0-_EM_PSIZE ; to stop int from complaining about non-existent memory
lae sv
loi _EM_PSIZE ; source address
lor 1
adp _EM_PSIZE ; destination address
lae sv
loi _EM_PSIZE
adp _EM_PSIZE
loi _EM_WSIZE ; size of block
bls _EM_WSIZE
asp _EM_PSIZE+_EM_WSIZE ; drop size + SP
str 0 ; restore local base
sim ; ignore mask
lae 4
sti _EM_PSIZE
ste 0 ; line and file
loc 0
ret _EM_WSIZE
end 0