home bbs files messages ]

Forums before death by AOL, social media and spammers... "We can't have nice things"

   comp.lang.pascal.borland      Borland Pascal was actually pretty neat      2,978 messages   

[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]

   Message 1,176 of 2,978   
   Wolfgang Ehrhardt to All   
   Re: detection of character-amount that f   
   10 Dec 04 18:27:24   
   
   From: Wolfgang.Ehrhardt.PLEASE.REMOVE@munich.netsurf.de   
      
   On Fri, 10 Dec 2004 01:57:57 +0100, "Femme Verbeek"  wrote:   
   >   
   >Did you test it in WNT W2000 WXP?   
      
   Yes in W2K, see below.   
   >   
   >Guess what   
   >   
   >Uses fastwrite;   
   >begin   
   >   writeln (textcols)   
   >   memw[Seg0040:$4a] := 78;   
   >   writeln (textcols)   
   >end.   
   >   
   >   
   >reports (grin)   
   >   
      
   I dont know you version, but my german W2k Prof behaves almost as W98.   
   Here the slightly enhanced program (with labels to mark the three   
   outputs).   
      
   uses   
     dos;   
   var   
     regs: registers;   
   begin   
     writeln('1:',memw[Seg0040:$4a]);   
     writeln;   
     memw[Seg0040:$4a] := 78;   
     writeln('2:',memw[Seg0040:$4a]);   
     writeln;   
     regs.AH := $f;   
     intr($10,regs);   
     writeln('3:',regs.ah);   
   end.   
      
   And the output modula newsreader word wrap   
      
   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
   ~~~~~~~~~~~~~~~~~   
             C:\TMP>33   
             1:80   
   2:78   
      
      
   3:78   
      
      
      
       C:\TMP>ver   
   Windows 98 [Ve   
   rsion 4.10.1998]   
      
   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~   
   ~~~~~~~~~~~~~~~   
   C:\TMP>33   
         1:80   
   2:78   
      
                                                                   3:78   
      
      
      
   C:\TMP>ver   
      
   Microsoft Windows 2000 [Version 5.00.2195]   
      
      
   Please note the (invisible) line breaks after 78? columns :)   
      
      
   Seriously: I wanted to say that most BIOSes get the AH output from   
   $40:$4A,, AL from $40:$49, and BH from $40:$62. Explicit stated and   
   written in plain clear English in my (old) Phoenix Technical Reference   
   Manual.   
      
   Wolfgang   
      
   --   
   In order to e-mail me a reply to this message, you will have   
   to remove PLEASE.REMOVE from the address shown in the header   
   or get it from http://home.netsurf.de/wolfgang.ehrhardt   
   (Free AES, CRC, Hash, and HMAC source for Pascal/Delphi)   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)   

[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]


(c) 1994,  bbs@darkrealms.ca