DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

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

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦548f94450⟧ TextFile

    Length: 640 (0x280)
    Types: TextFile
    Names: »PINIT.PAS«

Derivation

└─⟦d814f614c⟧ Bits:30008872 EDB Trænings- og Erhvervs Center / Almen Nyttig Data Service
    └─⟦this⟧ »PINIT.PAS«

TextFile


PROCEDURE pinit(port,ctc_div,mask : INTEGER);
 (*initialiserer SIO og CTC'en            hvm 831202*) 
BEGIN
  port:=port+2;
  outÆ (port) Å := $18; (*channel reset*)
  outÆ (port) Å := $14; (*reset ext/status interrupts next writereg. 4*)   
  outÆ (port) Å := $4f; 
  outÆ (port) Å := $03; 
  outÆ (port) Å := $61; 
  outÆ (port) Å := $04; 
  outÆ (port) Å := mask;
  outÆ (port) Å := $05; 
  outÆ (port) Å := $0aa;
  outÆ (port) Å := $0d1;
  outÆ (port) Å := $00; 
  port:=port+2;
  outÆ (port) Å := $47; 
  outÆ (port) Å := ctc_div; 
END;

«eof»