|
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: »setblprttx «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
└─⟦75ff9bef3⟧
└─⟦this⟧ »setblprttx «
; code procedure to set blockprocedure in a given zone
b.
w.
d.
p. <:fpnames:> ; block for fpnames
l.
b. g1, e2 ; names for insertproc
s. g5, j50, f2 ; block for procedure
h.
g0 = 0 ; no externals
e2 :
g1 : g2, g2 ; headword
j13: g0 + 13, 0 ; rs entry 13, saved last used
j30: g0 + 30, 0 ; rs entry 30, saved sref, w3
j8 : g0 + 8, 0 ; rs entry 8, end address expression
g2 = k - 2 - g1
w.
e0 : g0 ; start external list: no of globals, no of ext
0 ; no half to copy to own core
s3 ; date
s4 ; time
e1 : rl. w2 (j13.) ; entry setblockpr:
ds. w3 (j30.) ; save sref, w3;
dl w1 x2+12 ; get procedure from second formal;
ls w0 -4 ; remove kind from second formal;
rl w3 x2+ 8 ; get zone addr from first formal;
ds w1 x3+h4+2 ; zone.blockproc := zone;
jl. (j8.) ; end address expression;
g3 : 0, r.252 - (:g3 - g1:) > 1; fill segment
<:setblockpr<0>:> ; alarmtext
e. ; end block of procedure
w.
g1 :
g0 : 1 ; 1 segment
0, 0, 0, 0 ; name
1<23+e1-e2 ; entry point
1<18+31<12+8<6, 0 ; no type proc (zone, proc)
4<12+e0-e2 ; contents, start ext list
1<12 ; code segments, own jalfs
d.
p. <:insertproc:>
l.
e.
▶EOF◀