|
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: 3072 (0xc00)
Types: TextFile
Names: »retalgp95tx «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
└─⟦75ff9bef3⟧
└─⟦this⟧ »retalgp95tx «
mode list.yes
tmp=edit algpass95tx
; abs own segment og abs own point : standard som i release 3.0
; hvorved lange referencer op til 2047 er mulige, mens
; lange referencer ud over 2047 burde opdages af pass 8
; switch i pass0 så korte referencer under 1024 segmenter
; lange altid er mulige
;
l./page 24/, r/88.12.29/90.08.31/
l./a84:/, d6, i/
a84: rl. w3 (a115.) ; abs own segment:
so. w3 (b38.) ; if pass0.modeword1.longjmp then
jl. a153. ; begin <*long jumps allowed as in rel <= 3.0*>
rl. w3 g8. ;
ws. w3 g27. ; curr segm :=
zl w0 0 ; outsegment - outbase;
wa w0 6 ; abs word :=
la. w0 b13. ; ((curr segm + rel segm) extract 11 +
wa. w0 g27. ; outbase);
jl. a154. ; end else
a153: el w0 0 ; begin <*jumps below 1024 segm. allowed anywhere*>
so w0 1<10 ; abs word := (if signbit pos then
la. w0 b13. ; abs word extract 11 else abs word) +
wa. w0 g8. ; outsegment;
; end;
a154: ls w0 1 ; absword := absword * 2 +
wa. w0 b11. ; 3<22;
jl. a35. ; end;
; goto store absword;
/
l./page 26/, r/88.12.29/90.08.30/
l./a38:/, d3, i/
a38: rl. w3 (a115.) ; own point:
so. w3 (b38.) ; if pass0.modeword1.longjmp then
jl. a155. ; begin <*long jumps allowed as in rel <= 3.0*>
rl. w3 g8. ; curr segm :=
ws. w3 g27. ; outsegment - outbase;
ea w3 0 ; bits (0, 11, point) :=
la. w3 b13. ; (rel segment + curr segm) extract 11 +
wa. w3 g27. ; outbase;
jl. a156. ; end else
a155: el w3 0 ; begin <*jumps below 1024 segm. allowed anywhere*>
so w3 1<10 ; bits (0, 11, point) :=
la. w3 b13. ; (if sign bit pos then w3 extract 11 else w3) +
wa. w3 g8. ; outbase;
a156: hs w3 0 ; end;
/
l./page 30/, r/88.12.16/90.08.31/
l./b19:/, l1, i/
b38: 1<17 ; longjmp bit in pass0.modeword1
/, p-1
l./m.jz/, r/89.08.10/90.08.31/
f
algpass96tx=edit tmp
l./page 24/, d./page 26/, d./a40:/, d./jl. a30./,
r/page 27/page 24/, r/83.05.17/90.08.31/
l./page 28/, r/page 28/page 25/, r/88.12.16/90.08.31/
l./page 29/, r/page 29/page 26/, r/83.05.17/90.08.31/
l./page 30/, r/page 30/page 27/,
l./page 31/, r/page 31/page 28/, r/88.12.16/90.08.31/
l./page 32/, s 1, d./page 23/, d./a83:/, d./jl. a35./,
r/page 24/page 31/
l./page 25/, r/page 25/page 32/, r/85.12.19/90.08.31/
l./page 26/, r/page 26/page 33/
l./page 27/, d./page 31/, d./a147:/
f
end
▶EOF◀