DataMuseum.dk

Presents historical artifacts from the history of:

RC4000/8000/9000

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RC4000/8000/9000

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦4c439674b⟧ TextFile

    Length: 1536 (0x600)
    Types: TextFile
    Names: »retinitz3tx «

Derivation

└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
    └─⟦75ff9bef3⟧ 
        └─⟦this⟧ »retinitz3tx «

TextFile

mode list.yes
initzone4tx=edit initzone3tx
; h53 ændres fra 16 til 18 i fp release 4.0
; ændret algoritme i a5

l./page 1/, r/83.11.28/88.11.09/
l./c2,a5/, r/c2/c9/

l./page 2/, r/86.10.02/88.11.09/
l./c0:/, l1, r/    /c3: /
l./rl  w0  x1+h5+h4+2;/, d./hs. w0  b15./, i/
    rl  w0  x1+h5+h4+2;
    sz  w0  1         ;   if rel entry block proc odd then
    am      h53       ;     char conv table claim := h53
    al  w0  0         ;   else
    hs. w0  b15.      ;     char conv table claim := 0  ;
/
l./a5:/, r/a5:/   /
l./al  w3  x1+h0+h5/, d1
l./ds. w0  b1.+4/, l1, i/

    rl. w1  b3.       ;   last zone := no of zones;
    al. w2  b1.       ;   load shares array
    jl. w3  c3.       ;      (last zone);

    al  w1  h5        ;   last zone address           :=
    wm. w1  b3.       ;     zone descriptor length    *
    wa. w1  b6.       ;     no of zones + addr zone 0 ;
    al  w0  h6        ;   top of zone array buffer    :=
    wm. w0  b1.-2     ;     share descriptor length   *
    wa  w0  x1+h0+2   ;     no of shares (last zone)  + 
    ea. w0  1         ;     last zone.last of buffer  +
    rs. w0  b4.       ;     1                         ;
/, p-10


l./page 7/,
l./m.fgs/, r/86.10.02/88.11.17/
f

end
▶EOF◀