|
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: »retprocs4tx «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
└─⟦75ff9bef3⟧
└─⟦this⟧ »retprocs4tx «
mode list.yes
procsurv5tx=edit procsurv4tx
; start ext list = 500 => break 0
;
l./page ...1/, r/88.09.20/89.08.18/
l./first of buffer-1/, r/10/h0/
l./page ...4/, r/88.09.20/89.08.18/
l./d10:/, l./rl. w3 c15./, l-1, r/+/;/
l./rl. w3 c15./, i/
rl. w0 c2. ;
sn w0 500 ; if startext = 500 then
jl. d17. ; goto change segment;
/, p-3
l./rl. w3 c15./, r/;/; addr := addr +/
l./page ...5/, r/88.09.20/89.08.18/
l./rl. w1 h54./, r/ /d17: /
l./d15:/, r/;/; else/
l./d16:/, l-2, r/;/; +/
l./d16:/, d, i/
d16: al w1 x1+6 ; 6 +
wa. w1 c2. ; startext;
am +2000 ;
al. w1 x1+c27. ;
rs. w1 c3. ;
/
l./page ...9/, r/88.09.20/89.08.18/
l./d22:/, r/d22:/ /
l./page ...18/,
l./m./, r/88.09.20/89.08.18/
f
end
▶EOF◀