|
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: 2304 (0x900)
Types: TextFile
Names: »mdsortalgol «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
└─⟦75ff9bef3⟧
└─⟦this⟧ »mdsortalgol «
message mdsortalgol
head 1
;mdsortproc = algol tmdsortproc,
; spill.yes survey.yes
mdsortproc = algol mdsortpr6tx,
spill.yes survey.yes
head 1
(spillno=slang list.no
spillno)
b. e5, g1 ; block for insertproc
w.
d.p.<:fpnames:>
l.
k=10000
s. g5, j110 ; segment
h.
g0=0 ; no of externals
e5:
g1: g2 , g2 ; head word
j8: g0+ 8, 0 ; rs 8, end address expression
j13: g0+13, 0 ; rs 13, last used
j30: g0+30, 0 ; rs 30, saved stackref, saved w3
j104: g0+104,0 ; rs104, own process descr addr
;
g2=k-2-g1
w.
e0: g0 ; start ext. list:
0 ; halfwords to init
s3, s4 ; date and time
;
e1: rl. w2 (j13.) ; spillno:
ds. w3 (j30.) ;
;
rl. w3 (j104.) ; w3 := own process descr.:= current process
al w0 0 ; w0 := interrupt mask := 0;
rl w3 x3+36 ; w3:= interrupt address:= old interrupt address
jd 1<11+0 ; set interrupt
jl. (j8.) ; end address expression
;
g3: 0, r.252-(:g3-g1:)>1
<:spill no:>, 0
e.
g0: g1: ; first tail: last tail:
1 ; 1 segment
0, 0, 0, 0 ; name
1<23+e1-e5 ; segment 0 entry
1<18 ; no type procedure
0 ;
4<12+e0-e5 ; code procedure, start ext. list
1<12+0 ; 1 code segment, 0 own halfwords
d.p.<:insertproc:>
head 1
mdsort = algol tmdsort,
spill.yes survey.yes
search temp
lookup spillno mdsortproc mdsort
▶EOF◀