DataMuseum.dk

Presents historical artifacts from the history of:

DANOSI

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

See our Wiki for more about DANOSI

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦63d8200a3⟧ TextFile

    Length: 364 (0x16c)
    Types: TextFile
    Names: »EKB.PAS«

Derivation

└─⟦02956c927⟧ Bits:30010510 DVBS1.SW2114.src.2.14-1 SW2114 REAL #1/4 TIME PASCAL SOURCE REL 2.14
    └─⟦this⟧ »RTP\EKB.PAS« 
└─⟦4f587ad96⟧ Bits:30010518 DVBS1.SW2114.src.2.7-1 SW2114 1/4 Real Time Pascal 2.7 92.06.16
    └─⟦this⟧ »RTP\EKB.PAS« 
└─⟦a2a9e188c⟧ Bits:30010526 DVBS1.SW2114.src.2.6-4 RTP Compiler Source SW2104+SW2114 Disk 1 92.02.03 HEJ HHA
    └─⟦this⟧ »RTP\EKB.PAS« 
└─⟦b607d6035⟧ Bits:30010532 RTP compiler Source 1 2.14 26/9(?)-92 DVBS1.SW2114.src.2.14-8
    └─⟦this⟧ »EKB.PAS« 
└─⟦fd2665794⟧ Bits:30010523 DVBS1.SW2114.src.2.6-1 RTP compiler source SW2104+SW2114 Disk#1 30/1-92 HHA
    └─⟦this⟧ »RTP\EKB.PAS«

TextFile

PROC eqbyt(VAL INT ch, count, addr)\r
  INT start, curcount:\r
  SEQ\r
    GUY\r
      LDL count\r
      STL curcount\r
      LDC 0\r
      STL start\r
      LDL count\r
      CJ  .endloop\r
      loop:\r
      \r
          LDL i\r
          LDL addr\r
          BSUB\r
          LB\r
          LDL ch\r
          DIFF\r
          EQC 0\r
          CJ .exit\r
            \r