DataMuseum.dk

top - metrics - download

    Length: 896 (0x380)
    Types: TextFile
    Names: »XBDOS.SRC«

└─⟦e44a40b06⟧ Bits:30005968 SW1820/I8 RC855 Pascal MT+ Release 5.5
    └─⟦this⟧ »XBDOS.SRC« 

TextFile

(* 5.5 *)
MODULE BDOSFUNC;

(*$M @BDOS*)
(*$M @DFLT*)
(*$M **)


EXTERNAL PROCEDURE @IOERR(CPMFUNCNUM:INTEGER);

FUNCTION @BDOS(FUNC:INTEGER; PARM:WORD):INTEGER;
CONST
  CPMENTRYPOINT = 5;
VAR
  RESULT : INTEGER;
BEGIN

   INLINE( "LHLD / FUNC /
	   "MOV C,L /
	   "LHLD / PARM /
	   "XCHG /
	   "CALL / CPMENTRYPOINT /
	   "MOV L,A /
	   "MVI H / 0 /
	   "SHLD / RESULT );

  @BDOS := RESULT;
  IF FUNC < 15 THEN
    EXIT;
  IF FUNC = 26 THEN
    EXIT;
  IF (FUNC=15) OR (FUNC=16) OR (FUNC=22) THEN
    BEGIN
      IF RESULT = 255 THEN
        @IOERR(FUNC)
    END
  ELSE
    IF (FUNC = 21) THEN
      IF RESULT <> 0 THEN
         @IOERR(FUNC);
END;

PROCEDURE @DFLT;
VAR
  I : INTEGER;
BEGIN
  I := @BDOS(26,WRD($80));	(* DEFAULT DMA ADDRESS *)
END;


MODEND.

«eof»