home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l216 / 1.ddi / BIOS.PRO next >
Encoding:
Prolog Source  |  1987-03-23  |  6.0 KB  |  210 lines
  1. /************************************************************************
  2.  
  3.      Turbo Prolog Toolbox
  4.      (C) Copyright 1987 Borland International.
  5.  
  6.             SMALL BIOS CALLS
  7.  
  8. ************************************************************************/
  9.  
  10.  
  11. /************************************************************************
  12.     Dosver returns the actual dos version number in a real.
  13. ***********************************************************************/
  14.  
  15. PREDICATES
  16.   dosver(REAL)
  17.  
  18. CLAUSES
  19.   dosver(VERSION):-
  20.     AX=48*256,bios($21,reg(AX,0,0,0,0,0,0,0),reg(VV,_,_,_,_,_,_,_)),
  21.     L=VV div 256, H=VV-256*L, VERSION=H+L/100.0.
  22.  
  23.  
  24. /************************************************************************
  25.  
  26.  Diskspace returns the total number of bytes and the number of free
  27.  bytes for a given disk.
  28.  
  29.    DISK=0: Current Actual disk
  30.    DISK=1: A
  31.    DISK=2: B
  32.    DISK=3: C
  33.    DISK= ....
  34.  
  35. ************************************************************************/
  36.  
  37. PREDICATES
  38.   diskspace(INTEGER,REAL,REAL)
  39.  
  40. CLAUSES
  41.   diskspace(DISK,TOTALBYTES,FREEBYTES):-
  42.         AAX=54*256,
  43.         bios($21,reg(AAX,0,0,DISK,0,0,0,0),reg(AX,BX,CX,DX,_,_,_,_)),
  44.         FREEBYTES=1.0*BX*CX*AX,
  45.         TOTALBYTES=1.0*DX*CX*AX.
  46.  
  47.  
  48. /************************************************************************
  49.  
  50.  GetVerify returns the state of the verify switch
  51.  SetVerify sets the state of verify switch
  52.  
  53.    Ex. GetVerify(Switch)
  54.     Switch    =    0    Verify is off
  55.         =    1    Verify is on
  56.  
  57.  If verify is on, every write operation will be followed by
  58.  a read operation to ensure data is stored correctly.
  59.  
  60. ************************************************************************/
  61.  
  62. Predicates
  63.   GetVerify(Integer)
  64.   SetVerify(Integer)
  65.  
  66. Clauses
  67.   GetVerify(Switch) :-
  68.       AX=$5400, bios($21,reg(AX,0,0,0,0,0,0,0),reg(Sw1,_,_,_,_,_,_,_)),
  69.       bitand(Sw1,255,Switch).
  70.   
  71.   SetVerify(Switch) :-
  72.       AX=$2E00+Switch, bios($21,reg(AX,0,0,0,0,0,0,0),_).
  73.  
  74.  
  75. /************************************************************************
  76.  Creation and deletion of a subdirectory.
  77.  
  78.  Eg: mkdir("subdir") Will create a subdirectory with the name
  79.  "subdir"
  80. ************************************************************************/
  81.  
  82. PREDICATES
  83.   mkdir(STRING)
  84.   rmdir(STRING)
  85.  
  86. CLAUSES
  87.   mkdir(NAME):-
  88.         ptr_dword(NAME,DS,DX),
  89.         AX=256*57,
  90.         bios($21,reg(AX,0,0,DX,0,0,DS,0),_).
  91.  
  92.   rmdir(NAME):-
  93.           ptr_dword(NAME,DS,DX),
  94.         AX=256*58,
  95.         bios($21,reg(AX,0,0,DX,0,0,DS,0),_).
  96.  
  97.  
  98. /************************************************************************
  99.  
  100.     Changing the color of the border
  101.     Works only in 80*25 Alphanumeric modes
  102.     Eg: border(15)
  103. ************************************************************************/
  104.  
  105. Predicates
  106.   Border(Integer)
  107.  
  108. Clauses
  109.   Border(Color) :- bios($10, reg($0B00,Color,0,0,0,0,0,0),_).
  110.  
  111.  
  112. /************************************************************************
  113.  
  114.  Returning all matching files to a file specified by backtracking.
  115.  
  116.  Ex: FindMatch("c:\\prolog\\*.PRO",SearchAttribute,MatchFileName,
  117.         FilesAttribute,Hour,Min,Year,Month,Day, FilesSize)
  118.  
  119.  
  120.   Ex: FindMatch("c:\\*.*",63,MatchFileName,FilesAttribute,Hour,Min,
  121.                           Year,Month,Day, FilesSize)
  122.  
  123.  Range for attributes remembering it is a bitmask
  124.  Attributes    =    0    Search for ordinary files
  125.         =    1    File is read only
  126.         =    2    Hidden file
  127.         =    4    System file
  128.         =    8    Volume label
  129.         =    16    Subdirectory
  130.         =    32    Archive file (used by backup & restore)
  131.  
  132.  Hour        =    0-23    Hour of day when the file was created
  133.  Min        =    0-59    Minutes
  134.  Year        =    1980-2099
  135.  Month        =    1-12
  136.  Day        =    1-31
  137.  FilesSize    =    0-30MB    Size of file
  138.  
  139. ************************************************************************/
  140.  
  141. PREDICATES
  142.   nondeterm FindMatch(String,Integer, String,Integer,Integer,Integer,Real,Integer,Integer,Integer)
  143.   nondeterm findfiles(STRING,INTEGER)
  144.   nondeterm findnext
  145.   convert_Match(String,String,Integer,Integer,Integer,Real,Integer,Integer,Integer)
  146.  
  147.   DTA_word(String,Integer,Integer)
  148.   FrontChar2(String,Char,String)
  149.   isolate_bits(Integer,Integer,Integer,Integer)
  150.  
  151. CLAUSES
  152.   FindMatch(FileSpec,Attribute, FileName,FilesAttr,Hour,Min,Year,Month,Day,FilesSize) :-
  153.     /* Allocate Default Disk buffer area */
  154.     str_len(DTA,128),
  155.     ptr_dword(DTA,DTA_SEG,DTA_OFF),
  156.     AX = $1A00, DS=DTA_SEG, DX=DTA_OFF,
  157.     bios($21, reg(AX,0,0,DX,0,0,DS,0),_),
  158.     findfiles(FileSpec,Attribute),
  159.     convert_Match(DTA,FileName,FilesAttr,Hour,Min,Year,Month,Day,FilesSize).
  160.  
  161.   findfiles(FileSpec,Attribute):-
  162.     ptr_dword(FileSpec,FSPEC_SEG,FSPEC_OFF),
  163.     bios($21, reg($4E00,0,Attribute,FSPEC_OFF,0,0,FSPEC_SEG,0),_),
  164.     findnext.
  165.  
  166.   findnext.
  167.   findnext:-
  168.     bios($21, reg($4F00,0,0,0,0,0,0,0),reg(AX,_,_,_,_,_,_,_)),
  169.     AX=0,
  170.     findnext.
  171.  
  172.   convert_Match(DTA,FileName,FilesAttr,Hour,Min,Year,Month,Day,FilesSize) :-
  173.     DTA_word(DTA,21,FAttr), bitand(Fattr,255,FilesAttr),
  174.     DTA_word(DTA,22,FilesTime), bitand(FilesTime,63,Min),
  175.     isolate_bits(FilesTime,6,31, Hour),
  176.     DTA_word(DTA,24,FilesDate), bitand(FilesDate,31,Day),
  177.     isolate_bits(FilesDate,5,15,Month),
  178.     isolate_bits(FilesDate,9,127,Year1),Year=Year1+1980,
  179.     DTA_word(DTA,26,LowSize),
  180.     DTA_word(DTA,28,HighSize), FilesSize=LowSize+1024.0*64*HighSize,
  181.     ptr_dword(DTA,DTA_SEG,DTA_OFF),
  182.     NEW_OFF = DTA_OFF+30,
  183.     ptr_dword(FileName1,DTA_SEG,NEW_OFF),
  184.     concat(FileName1,"",FileName).    /* Create a copy */
  185.  
  186. /************************************************************************
  187.     Return a word from the DTA area
  188. ************************************************************************/
  189.  
  190.   DTA_word(DTA,OFF,WORD):-
  191.     ptr_dword(DTA,DTA_SEG,DTA_OFF),
  192.     NEW_OFF = DTA_OFF+OFF,
  193.     memword(DTA_SEG,NEW_OFF,WORD).
  194.     
  195.  
  196. /************************************************************************
  197.     Special version of frontchar
  198. ************************************************************************/
  199.  
  200.   FrontChar2(S,C,S2) :- FrontChar(S,C,S2),!.
  201.   FrontChar2(S,'\000',S2) :-
  202.     ptr_dword(S,S_SEG,S_OFF),
  203.     S2_OFF=S_OFF+1,
  204.     ptr_dword(S2,S_SEG,S2_OFF).
  205.  
  206.   isolate_bits(Word,ShiftFac,BitMask,V) :-
  207.     bitright(Word,ShiftFac,V1),
  208.     bitand(V1,BitMask,V).
  209.  
  210.