DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

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

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦f5b49d324⟧ TextFile

    Length: 1536 (0x600)
    Types: TextFile
    Names: »COMP.BAK«

Derivation

└─⟦cbdf9d390⟧ Bits:30005867/disk19.imd Dokumenter (RCSL m.m.)
    └─⟦this⟧ »COMP.BAK«

TextFile

begin
  array
  _ a1, a2, a3, b1, b2, b3 (1 : 128);
  
  integer
  _ i1, i2, i3, l;
  
  tofrom (b1, a1, 512);
  
  b1 (128) := b1 (128) add (1 shift 16);
  
  i1       := 265 * 3 - 1;
  i2       := 256 * 3    ;
  i3       := 256 * 3 + 1;
  
  tofromchar (a2, 2, a1, 1, 256 * 3 - 1);
  tofromchar (b2, 2, b1, 1, 256 * 3 - 1);
  
  tofromchar (a3, 3, a1, 1, 256 * 3 - 2);
  tofromchar (b3, 3, b1, 1, 256 * 3 - 2);
  
  for l:= 1 step 1 until 256 * 3 - 2 do
  write (out, <<  -ddd>,
  _      "nl", 2, <:a-b:>, l,
  _      comparechar (a1, i1 - l, b1, i1 - l, l),
  _      comparechar (a1, i1 - l, b2, i2 - l, l),
  _      comparechar (a1, i1 - l, b3, i3 - l, l),
  _      comparechar (a2, i2 - l, b1, i1 - l, l),
  _      comparechar (a2, i2 - l, b2, i2 - l, l),
  _      comparechar (a2, i2 - l, b3, i3 - l, l),
  _      comparechar (a3, i3 - l, b1, i1 - l, l),
  _      comparechar (a3, i3 - l, b2, i2 - l, l),
  _      comparechar (a3, i3 - l, b3, i3 - l, l),
  _      "nl", 1, <:b-a:>, l,
  _      comparechar (b1, i1 - l, a1, i1 - l, l),
  _      comparechar (b1, i1 - l, a2, i2 - l, l),
  _      comparechar (b1, i1 - l, a3, i3 - l, l),
  _      comparechar (b2, i2 - l, a1, i1 - l, l),
  _      comparechar (b2, i2 - l, a2, i2 - l, l),
  _      comparechar (b2, i2 - l, a3, i3 - l, l),
  _      comparechar (b3, i3 - l, a1, i1 - l, l),
  _      comparechar (b3, i3 - l, a2, i2 - l, l),
  _      comparechar (b3, i3 - l, a3, i3 - l, l))
end
«eof»