Programmer 7500/MAX_PROGRAMMERS.iso/INFO/TURBOPAS/TURBO9.ZIP/MEM.INC

Text File | 1984-07-13 | 331 b | 18 lines

PROCEDURE ShowMem;
{ procedure for Bios interrupt $12 (memory size)
{ Danny Cavasos       June 1984 }
TYPE
  MemRec=RECORD
    AX,BX,CX,DX,BP,SI,DI,DS,ES,FLAGS:INTEGER;
  END;
VAR
  MemParm:MemRec;
BEGIN
  GOTOXY(40,24);
  WITH MemParm DO
    BEGIN
      INTR($12,Memparm);
      WRITE(AX,'K Ram');
    END;
END;