|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1536 (0x600)
Types: TextFile
Names: »pagehead «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
└─⟦75ff9bef3⟧
└─⟦this⟧ »pagehead «
\f
; jz.fgs 1988.03.01 algol/fortran runtime system page ...137...
; end of doc from check and
; parent message from check spec
j17 = (:k-c20:) >9; define segment number
j18 = -1<22 + j17<1; - absword
b. a30, b30, g10 w. ;
b10: b11 ; rel of last absword
b5: j5 ; check spec segment
b6: j6 ; check segment
b8: d30-d0 ; saved (sref,w3)
b18: f17-d0 ; parent process address
b11 = k - 2 - b10 ; define rel of last absword
; working locations:
b1: 0 ; b1: saved w0
b3: 0, r.8 ; b3: parent message area and
; answer area and
; tail for extend area
;
0, r.4 ; b3+16: parent process name and
0 ; name table address
b2: ; fnc head parent message bs
44<12 +2.0110000<5 +1; fnc<12+pattern<5+wait
<:bs :> ; <:bs :>
0 ; 0 entries
0 ; segments
b15: 0, r.4 ; saved registers in parent message
▶EOF◀