home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / C / SASC6571.LZX / rexx / makeaptr.cpr < prev    next >
Encoding:
Text File  |  1996-12-24  |  293 b   |  18 lines
  1. /* */
  2. address 'COMMAND'
  3. 'version >nil: exec.library 36 '
  4. lrc = rc
  5.  
  6. if (rc = 0) then
  7.   check = addlib('rexxsupport.library',0,-30,0) 
  8.  
  9. address
  10.  
  11. parse arg addr
  12. if (~datatype(addr,'x')) then
  13.    do
  14.    'd "Invalid hex number' arg '"'
  15.    exit(0)
  16.    end
  17. 'd "' c2x(d2c(c2d(x2c(addr))*4,4)) '"'
  18. exit(0)