home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 18 REXX
/
18-REXX.zip
/
rxnum.zip
/
num.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-03-16
|
1KB
|
47 lines
/**/
numeric digits 16
call RxFuncAdd 'numinit', 'RXNUM', 'numinit'
call numinit(1)
value_1 = num2hex('d255')
say value_1
value_1 = num2dec('hff')
say value_1
value_1 = num2dec('o377')
say value_1
value_1 = num2dec('b11111111')
say value_1
value_1 = word(value_1,1)
value_2 = 4
say 'add 'numadd(value_1,value_2)
say 'sub 'numsub(value_1, value_2)
say 'prod 'numprod(value_1, value_2)
say 'div 'numdiv(value_1,value_2)
say 'mod 'nummod(value_1,value_2)
say 'or 'numor(value_1,value_2)
say 'and 'numand(value_1,value_2)
say 'xor 'numxor(value_1,value_2)
say 'shl 'numshl(value_1,value_2)
say 'shr 'numshr(value_1,value_2)
if word(numadd(value_1,value_2),3) \= 0 then say "Result invalid!"
say "*********************"
say "'712311'x BITAND 'FE'x ="
say "REXX: " c2x(bitand('712311'x,'fE'x))
say "RXNUM: "word(num2hex('d'||word(numand(word(num2dec('h712311'),1),word(num2dec('hfe'),1)),1)),1)
say "**********************"
say "'712311'x BITOR 'FF'x ="
say "REXX: " c2x(bitor('712311'x,'ff'x))
say "RXNUM: "word(num2hex('d'||word(numor(word(num2dec('h712311'),1),word(num2dec('hff'),1)),1)),1)
say "**********************"
say "Error conditions:"
say numprod(4294967295,2)
say numdiv(9999999999,2)
say NUMDIV(100,0)
say numdiv(0,0)
say NUMMOD(100,0)
say nummod(0,0)
call numdrop