DataMuseum.dk

Presents historical artifacts from the history of:

Jet Computer Jet80

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

See our Wiki for more about Jet Computer Jet80

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦e9b76db88⟧ TextFile

    Length: 768 (0x300)
    Types: TextFile
    Names: »UBIOS.PAS«

Derivation

└─⟦d482c3728⟧ Bits:30005987 Turbo Pascal v2.00A (Jet80)
    └─ ⟦this⟧ »UBIOS.PAS«

TextFile

Function UBIOS (FN, PA, PBC, PDE, PHL: integer): integer;

type     ParameterBlock = record
         func, Areg: byte;
         BCreg, DEreg, HLreg: integer
         end;

var      BiosPB: ParameterBlock;
         Result: integer;

begin
    with BiosPB do begin
        func    := FN;
        Areg    := PA;
        BCreg   := PBC;
        DEreg   := PDE;
        HLreg   := PHL;
    end;
    Result:= 0;
    Case FN of
      2,3,7,13,14,15,17,18,19,24:   Result := Bdos(50, Addr(BiosPB));
      9,16,20,22,25:                Result := BdosHL(50, Addr(BiosPB));
      else                                    Bdos(50, Addr(BiosPB))
    end;
    UBIOS:= Result
end;   (* UBIOS *)
«eof»