home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / lifeos2.zip / LIFE-1.02 / TESTS / REFOUT / WAMBRUNO.REF < prev    next >
Text File  |  1996-06-04  |  405b  |  28 lines
  1.  
  2. *** Yes
  3. > > 
  4. get_struct reg(U1) plus/5
  5. unify_variable reg(U2)
  6. unify_variable reg(U3)
  7. unify_variable reg(U4)
  8. unify_variable reg(U5)
  9. unify_const a
  10. get_struct reg(U4) t/2
  11. unify_const f
  12. unify_const g
  13. get_struct reg(U5) t/2
  14. unify_value reg(U2)
  15. unify_variable reg(U6)
  16. get_struct reg(U6) g/1
  17. unify_variable reg(U7)
  18.  
  19.  
  20. get_const reg(U1) l
  21.  
  22.  
  23. *** Yes
  24. J = reg(@), V = reg(@), X = reg(@), Y = reg(@).
  25. --1> 
  26. *** No
  27. > 
  28.