home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / TURBOPAS / PMLINK.LBR / GETBTS.INL next >
Text File  |  2000-06-30  |  512b  |  11 lines
  1.  
  2.   begin {Modul GETBTS}
  3.     InLine (
  4.   {0000}     $21/$00/$00/$3A/NBITS  /$4F/$3A/BITCNT /$B9/$30/$23/$47/$79/$90/
  5.   {0010}     $32/NBITS  /$3A/WB     /$CD/*+40   /$E5/$CD/INBYTE /$3A/NBITS  /
  6.   {0020}     $47/$3E/$08/$90/$32/BITCNT /$7D/$E1/$CD/*+21   /$32/WB     /$C9/
  7.   {0030}     $41/$90/$32/BITCNT /$3A/WB     /$CD/*+6    /$32/WB     /$C9/$CB/
  8.   {0040}     $27/$CB/$15/$10/$FA/$C9)
  9.   end;  {GETBTS}
  10.     $41/$90/$32/BITCNT /$3A/WB     /$CD/*+6    /$32/WB     /$C9/$CB/
  11.   {0040}     $27/$CB/$15/$10