DataMuseum.dk

Presents historical artifacts from the history of:

RC3500

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

See our Wiki for more about RC3500

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦7e9c73e1b⟧ TextFileVerbose

    Length: 768 (0x300)
    Types: TextFileVerbose
    Names: »filljob«

Derivation

└─⟦a41ae585a⟧ Bits:30001842 SW-save af projekt 1000, Alarm-system
    └─⟦72244f0ef⟧ 
        └─⟦this⟧ »filljob«

TextFileVerbose

job jg 3 200 time 11 0 area 10 size 100000
mode list.yes
fillbin = set 1 disc1
fillbin = pascal80 codesize.12000 

process fillcore;
 const
  wanted = #h8d8;          (*  insert number of bytes wanted    *)
  words = wanted div 2 - #h64 - #h14;
 type
  area = array (1..words) of integer;
 var
  used : area := area ( words *** 0);
 begin
  (*  do nothing   *)
end .

scope user fillbin
finis

«eof»