DataMuseum.dk

Presents historical artifacts from the history of:

Bogika Butler

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

See our Wiki for more about Bogika Butler

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦c1e667682⟧ TextFile

    Length: 640 (0x280)
    Types: TextFile
    Names: »LNKDF5.BAK«

Derivation

└─⟦d36b687c5⟧ Bits:30009789/_.ft.Ibm2.50007363.imd Mogens Pelles Zilog 80,000 / EOS projekt
    └─⟦this⟧ »LNKDF5.BAK«

TextFile

      PROCEDURE TSTbmb(Bmb: BitMapBufferType
                      );

         VAR
            I: 0..15;

        BEGIN (*TSTBMB*)
         write(TestOut, 'Y1,Y0,I,P= ', Bmb.Y1:3, ' ', Bmb.Y0:3, ' ');
         FOR I := 15 DOWNTO 8 DO
            IF I IN Bmb.I THEN
               write(TestOut, '1')
            ELSE
               write(TestOut, '0');
         write(TestOut, ' ');
         FOR I := 7 DOWNTO 0 DO
            IF I IN Bmb.I THEN
               write(TestOut, '1')
            ELSE
               write(TestOut, '0');
         write(TestOut, ' ', Bmb.P:3, '   ');
        END;  (*TSTBMB*)

«eof»