home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / mac2mac.cmd < prev    next >
OS/2 REXX Batch file  |  1995-10-17  |  1KB  |  49 lines
  1. /* rexxify */
  2.  
  3. /* (c) Copyright 1995 Strategic Solutions International Corporation */
  4. /* 1127 Tolland Turnpike, Manchester, CT., 06040-1678               */
  5. /* (860) 649-1900 (fax/bbs: 649-1230)                               */
  6.  
  7. /* REXX utility to convert from on MAC address format to another */
  8.  
  9. Say 'Enter the MAC Address to be converted (12 hexadecimal digits):'
  10. parse upper pull ADDR
  11.  
  12. ADDR_LEN = length(ADDR)
  13.  
  14. if (ADDR_LEN \= 12) then
  15. do
  16.    Say 'You only entered 'ADDR_LEN' digits.  Try again (bye).'
  17.    exit
  18. end
  19.  
  20. NEW_ADDR = ''
  21. BYTE_OFFSET = 0
  22.  
  23. do while(BYTE_OFFSET < 6)
  24.    BYTE_OFFSET = BYTE_OFFSET+1
  25.    POS = BYTE_OFFSET*2
  26.    TEMP_1 = left(ADDR,POS)
  27.    BYTE.BYTE_OFFSET = right(TEMP_1,2)
  28. end
  29. BYTE_OFFSET = 6
  30. do while(BYTE_OFFSET > 0)
  31.    TEMP_0 = value(BYTE.BYTE_OFFSET)
  32.    BYTE_OFFSET = BYTE_OFFSET-1
  33.    POS = BYTE_OFFSET*2
  34.    TEMP_1 = right(left(TEMP_0,2),1)
  35.    TEMP_2 = left(TEMP_0,1)
  36.    TEMP_3 = TEMP_1 || TEMP_2
  37.    NEW_BYTE.BYTE_OFFSET = translate(TEMP_3,'084C2A6E195D3B7F','0123456789ABCDEF')
  38. end
  39.  
  40. BYTE_OFFSET = 0
  41. do while(BYTE_OFFSET < 6)
  42.    NEW_ADDR = NEW_ADDR || NEW_BYTE.BYTE_OFFSET
  43.    BYTE_OFFSET = BYTE_OFFSET + 1
  44. end
  45.  
  46. Say 'Converted Address is:  ' NEW_ADDR
  47.  
  48. EXIT
  49.