TIX Test of MOD Versions

Date: 02-16-2022

Return to Index

 
'Compilable Example:  (Jose Includes)
#Compiler PBWin 9, PBWin 10
#Compile EXE
#Dim All
%Unicode=1
#Include "Win32API.inc"
%iLoopMax = 100000000
Global hDlg As Dword, T1,T2,T3,T4,T5 As Quad
 
Function PBMain() As Long
   Local i,n,j As Dword
   i = 80000 : n = 2000
 
   Tix T1
   j = i Mod n
   Tix End T1
 
   Tix T2
   j = i - n * i\n
   Tix End T2
 
   Tix T3
   While i >= n
      i = i - n
   Wend
   Tix End T3
 
   i = 80000 : n = 2000
   Tix T4
   Do Until i < n
      i = i - n
   Loop
   Tix End T4
 
   i = 80000 : n = 2000
   Tix T5
   ! mov eax, i
   ! xor edx, edx
   ! mov ecx, n
   ! div ecx        'result in EDX
   ! mov j , edx
   Tix End T5
 
   ?   "MOD" + $Tab + $Tab + Format$(T1,"#,###,###,###,###,###,###") + $crlf _
      + "Equation" + $Tab + $Tab + Format$(T2,"#,###,###,###,###,###,###") + $crlf _
      + "While...Wend" + $Tab + Format$(T3,"#,###,###,###,###,###,###") + $crlf _
      + "Do...Loop" + $Tab + Format$(T4,"#,###,###,###,###,###,###") + $crlf _
      + "ASM" + $Tab + Format$(T5,"#,###,###,###,###,###,###")
End Function
 
'gbs_01025
'Date: 03-10-2012

created by gbSnippets
http://www.garybeene.com/sw/gbsnippets.htm