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

⟦d262ab640⟧ TextFile

    Length: 461 (0x1cd)
    Types: TextFile
    Notes: EXECUD3 
    Names: »EXECUD3«

Derivation

└─⟦714f3848e⟧ Bits:30006597 ALM Copy 24.9.79
    └─ ⟦this⟧ »ASS2::EXECUD3«

TextFile

«ff»
  1500 PROC FIND
  1510   LET MIN=1; MAX=AREC; MIDT=AREC*(Å>ADR(Ø,1)) DIV (2-(Å>=ADR(Ø,MAX))); FUNDET=0
  1520   IF Å<=ADR(Ø,1) OR Å>=ADR(Ø,MAX) THEN GOTO 1610
  1530   WHILE ADR(Ø,MIDT)>=Å OR ADR(Ø,MIDT+1)<Å DO 
  1540     IF Å>ADR(Ø,MIDT) THEN 
  1550       LET MIN=MIDT
  1560     ELSE
  1570       LET MAX=MIDT
  1580     ENDIF
  1590     LET MIDT=(MIN+MAX) DIV 2
  1600   ENDWHILE
  1610   IF ADR(Ø,MIDT+1)=Å THEN LET FUNDET=1
  1620 ENDPROC