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

⟦af00e39b8⟧ TextFile

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

Derivation

└─⟦29e35ddf2⟧ Bits:30003931/CCPM_Tegn.imd Disketter indleveret af Steffen Jensen (Piccolo/Piccoline)
    └─⟦this⟧ »CONMAP.PAS«

TextFile

program console;

const
  xios_int = $28;
  xios_conf = 4;

type
  register_type=record
    ax,bx,cx,dx,bp,si,di,ds,es,flags:integer
  end;

var
  register: register_type;
  byte: ^integer;
  n : integer;

procedure con_map;
  begin
    with register do begin
      ax := xios_conf;
    end;
    swint(xios_int,register);
    for n:=0 to 22 do
      begin
        byte :=PTR(register.es,register.si+n);
        writeln(n,' ',byte^);
      end;
   end;
   
 begin
   con_map;
 end.
            «eof»