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

⟦432cbd1fb⟧ TextFile

    Length: 1536 (0x600)
    Types: TextFile
    Names: »LNKDF5.PAS«

Derivation

└─⟦2079929d2⟧ Bits:30009789/_.ft.Ibm2.50006583.imd Mogens Pelles Zilog 80,000 / EOS projekt
    └─⟦this⟧ »LNKDF5.PAS« 
└─⟦243948191⟧ Bits:30009789/_.ft.Ibm2.50007349.imd Mogens Pelles Zilog 80,000 / EOS projekt
    └─⟦this⟧ »LNKDF5.PAS« 
└─⟦94d85ef43⟧ Bits:30009789/_.ft.Ibm2.50006584.imd Mogens Pelles Zilog 80,000 / EOS projekt
    └─⟦this⟧ »LNKDF5.PAS« 
└─⟦da8d53b95⟧ Bits:30009789/_.ft.Ibm2.50006585.imd Mogens Pelles Zilog 80,000 / EOS projekt
    └─⟦this⟧ »LNKDF5.PAS« 
└─⟦dbb5cfece⟧ Bits:30009789/_.ft.Ibm2.50007354.imd Mogens Pelles Zilog 80,000 / EOS projekt
    └─⟦this⟧ »LNKDF5.PAS«

TextFile

(******************************************************************************)
(*                                                                            *)
(*   Copyright (1985) by Metanic Aps., Denmark                                *)
(*                                                                            *)
(*   Author: Lars Gregers Jakobsen.                                           *)
(*                                                                            *)
(******************************************************************************)

      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»