|
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: »retalgp94tx «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
└─⟦75ff9bef3⟧
└─⟦this⟧ »retalgp94tx «
mode list.yes
algpass95tx=edit algpass94tx
; pass 9 message : to stks har forkert tilbagehopsindhold eller gal
; textaddresse, to stks yderligere skal afsluttes med <0>
;
; pass 9 size message under linkning af globals i external list :
; name address er gal så der skrives vrøvl i message
;
l./page 9/, r/83.05.17/89.07.12/
l./<:size:> /, r/<:size:> /<:size<0>:>/
l./page 10/, r/83.05.17/89.07.12/
l./<:entry:> /, r/<:entry:> /<:entry<0>:>/
l./page 12/, r/83.05.17/89.08.10/
l./a11:/, l./al w3 x3+h2/, d, i/
rx. w3 g15. ; save w3; get ext cat.curr entry;
al w3 x3+h2 ; w3 := ext cat.curr entry.name;
/, p-2
l./al w3 x3-h2/, d, i/
a138: al w3 x3-h2 ; w3 := ext cat.curr entry;
rx. w3 g15. ; save ext cat.curr entry; restore w3;
/, p-2
l./page 36a/, r/88.12.16/89.07.12/
l./<:owns:> /, r/<:owns:> /<:owns<0>:>/, i/
jl. a68. ;
/, p1
l./<:segs:> /, r/<:segs:> /<:segs<0>:>/, i/
jl. a69. ;
/, p1
l./m.jz/, r/88.12.29/89.08.10/
f
end
▶EOF◀