DataMuseum.dk

Presents historical artifacts from the history of:

RegneCentralen RC3600/RC7000

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

See our Wiki for more about RegneCentralen RC3600/RC7000

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦a4780c3af⟧ TextFile

    Length: 446 (0x1be)
    Types: TextFile
    Notes: ASS2::EXECUD2, EXECUD2 
    Names: »EXECUD2«

Derivation

└─⟦714f3848e⟧ Bits:30006597 ALM Copy 24.9.79
    └─⟦this⟧

TextFile

«ff»
  0320 PROC FIND
  0330   LET MIN=1; MAX=AREC; MIDT=AREC*(Å>ADR(1)) DIV (2-(Å>=ADR(MAX))); FUNDET=0
  0340   IF Å<=ADR(1) OR Å>=ADR(MAX) THEN GOTO 0430
  0350   WHILE ADR(MIDT)>=Å OR ADR(MIDT+1)<Å DO 
  0360     IF Å>ADR(MIDT) THEN 
  0370       LET MIN=MIDT
  0380     ELSE
  0390       LET MAX=MIDT
  0400     ENDIF
  0410     LET MIDT=(MIN+MAX) DIV 2
  0420   ENDWHILE
  0430   IF ADR(MIDT+1)=Å THEN LET FUNDET=1
  0440 ENDPROC
«nul»