07 Apr 96 16:18, Sander Smeenk escrib¡a a All:
Hola Sander!
 SS> How do I get PowerBasic to set Register AL, AH and BL?
 SS> The help only says something about AX,BX,CX etc...
 Asm Mov AL,12
 :-? Or...
-----------------------====---------------------------------
 Dim AX as INTEGER
 AX=&H1234      'AH=12 AL=34
 AX=SetRegByte(AX,"L",&H0A)
 Print Hex$(AX) 'Now AX may be '&H120A' AH=12 AL=0A
 End
 Function SetRegByte(Regi as INTEGER,Part as STRING, NewVal as Byte) as 
INTEGER
          Select Case Ucase$(Part)
                 Case "L"
                      SetRegByte=(Regi And &HFF00) Or NewVal
                 Case "H"
                      SetRegByte=(Regi And &H00FF) Or (NewVal*256)
                 Case Else
                      Error 5
          End Select
 End Function
-----------------------====---------------------------------
Saludotes,
       ,,,   JOS (2:348/102)
      `0-0'  jmejuto@redestb.es
     /-(_)-\ mejuto@sfdzuma.usc.es
     http://www.geocities.com/SiliconValley/4551
--- FD2.12+ & GoldED 2.50+ & FE145+
---------------