d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

transfer made to work on pdp/11 EM intrpreter

Browse source
This commit is contained in:
ceriel 1987-05-20 14:11:22 +00:00
parent 72e27e7dab
commit 0fff5cc80f
1 changed files with 19 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

39
lang/m2/libm2/transfer.e
View file

@ -58,7 +58,7 @@
cal $_ChkSize cal $_ChkSize
asp EM_WSIZE asp EM_WSIZE
lfr EM_WSIZE lfr EM_WSIZE
sil EM_WSIZE ; store size in area (indicated by A) sil EM_PSIZE ; store size in area (indicated by A)
lal EM_PSIZE lal EM_PSIZE
loi EM_PSIZE ; address of area (A) loi EM_PSIZE ; address of area (A)
lal 0 lal 0
@ -117,6 +117,18 @@ _target
loi EM_PSIZE loi EM_PSIZE
adp -2*EM_PSIZE adp -2*EM_PSIZE
sti EM_PSIZE ; save it sti EM_PSIZE ; save it
lor 1 ; load SP
lae _CurrentProcess
loi EM_PSIZE
adp -EM_PSIZE
sti EM_PSIZE ; save it
; Now, we must find a stack we can temporarily use.
; Just take the one from the main program.
lae _MainProcess
loi EM_PSIZE
adp -EM_PSIZE
loi EM_PSIZE
str 1 ; temporary stackpointer
lae _CurrentProcess lae _CurrentProcess
loi EM_PSIZE loi EM_PSIZE
lae _MainProcess lae _MainProcess
@ -143,21 +155,8 @@ _target
adp -3*EM_PSIZE-EM_WSIZE adp -3*EM_PSIZE-EM_WSIZE
loi EM_WSIZE loi EM_WSIZE
bls EM_WSIZE ; copy bls EM_WSIZE ; copy
2 2
lor 1 ; load SP
lae _CurrentProcess
loi EM_PSIZE
adp -EM_PSIZE
sti EM_PSIZE ; save it
; Now, we must find a stack we can temporarily use.
; Just take the one from the main program.
lae _MainProcess
loi EM_PSIZE
adp -EM_PSIZE
loi EM_PSIZE
str 1 ; temporary stackpointer
lae _target lae _target
loi EM_PSIZE loi EM_PSIZE
dup EM_PSIZE dup EM_PSIZE
@ -209,16 +208,16 @@ _target
loi EM_WSIZE loi EM_WSIZE
bls EM_WSIZE bls EM_WSIZE
4 4
lae _target
loi EM_PSIZE
adp -EM_PSIZE
loi EM_PSIZE
str 1 ; restore SP
lae _target lae _target
loi EM_PSIZE loi EM_PSIZE
adp -2*EM_PSIZE adp -2*EM_PSIZE
loi EM_PSIZE loi EM_PSIZE
str 0 ; restore LB str 0 ; restore LB
lae _target
loi EM_PSIZE
adp -EM_PSIZE
loi EM_PSIZE
str 1 ; restore SP
ret 0 ret 0
end 0 end 0