DataMuseum.dk

Presents historical artifacts from the history of:

RegneCentralen RC700 "Piccolo"

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

See our Wiki for more about RegneCentralen RC700 "Piccolo"

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦39d57c658⟧ TextFile

    Length: 384 (0x180)
    Types: TextFile
    Names: »BITOFF.C«

Derivation

└─⟦4dd5d59b6⟧ Bits:30003303 Mix C version 2.1 og debugger til RC703
    └─ ⟦this⟧ »BITOFF.C« 
└─⟦b6190e06c⟧ Bits:30003304 Mix C version 2.1 til RC703
└─⟦b6190e06c⟧ Bits:30005327 Mix C version 2.1 til RC703
    └─ ⟦this⟧ »BITOFF.C«

TextFile

#include <bdscio.h>

main(argc,argv)
int argc; char *argvÆÅ;
æ
  int fd, antal;
  char bufÆ32768Å;
  unsigned i;

  fd = open(argvÆ1Å,2);
  antal = read(fd,buf,256);

  for (i = 0; i < antal*128; i++)
    bufÆiÅ &= 0X7F;

  seek(fd,0,0);
  write(fd,buf,antal);
  close(fd); 


å
«eof»