home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rxnum.zip / num.cmd < prev    next >
OS/2 REXX Batch file  |  1996-03-16  |  1KB  |  47 lines
  1. /**/
  2. numeric digits 16
  3. call RxFuncAdd 'numinit', 'RXNUM', 'numinit'
  4. call numinit(1)
  5.  
  6. value_1 = num2hex('d255')
  7. say value_1
  8. value_1 = num2dec('hff')
  9. say value_1
  10. value_1 = num2dec('o377')
  11. say value_1
  12. value_1 = num2dec('b11111111')
  13. say value_1
  14. value_1 = word(value_1,1)
  15. value_2 = 4
  16. say 'add  'numadd(value_1,value_2)
  17. say 'sub  'numsub(value_1, value_2)
  18. say 'prod 'numprod(value_1, value_2)
  19. say 'div  'numdiv(value_1,value_2)
  20. say 'mod  'nummod(value_1,value_2)
  21. say 'or   'numor(value_1,value_2)
  22. say 'and  'numand(value_1,value_2)
  23. say 'xor  'numxor(value_1,value_2)
  24. say 'shl  'numshl(value_1,value_2)
  25. say 'shr  'numshr(value_1,value_2)
  26.  
  27. if word(numadd(value_1,value_2),3) \= 0 then say "Result invalid!"
  28. say "*********************"
  29. say "'712311'x BITAND 'FE'x ="
  30. say "REXX: " c2x(bitand('712311'x,'fE'x))
  31. say "RXNUM: "word(num2hex('d'||word(numand(word(num2dec('h712311'),1),word(num2dec('hfe'),1)),1)),1)
  32.  
  33. say "**********************"
  34. say "'712311'x BITOR 'FF'x ="
  35. say "REXX: " c2x(bitor('712311'x,'ff'x))
  36. say "RXNUM: "word(num2hex('d'||word(numor(word(num2dec('h712311'),1),word(num2dec('hff'),1)),1)),1)
  37. say "**********************"
  38. say "Error conditions:"
  39. say numprod(4294967295,2)
  40. say numdiv(9999999999,2)
  41. say NUMDIV(100,0)
  42. say numdiv(0,0)
  43. say NUMMOD(100,0)
  44. say nummod(0,0)
  45. call numdrop
  46.  
  47.