home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / amos_tips / vector / vector.asc < prev   
Encoding:
Text File  |  1992-03-02  |  635 b   |  31 lines
  1. '*************************************** 
  2. '*             Vector.AMOS             * 
  3. '*      ©1992 by Volker Stepprath      * 
  4. '*  Checks the vectors of its pointer  * 
  5. '*************************************** 
  6. '
  7. '**** Get address of Exec.library **** 
  8. '
  9. EXECBASE=4
  10. EXECBASE=Leek(EXECBASE)
  11. '
  12. '**** Check vectors **** 
  13. '
  14. For I=0 To 4
  15.   Read VECTOR$,OFFSET
  16.   N=EXECBASE+OFFSET
  17.   N=Leek(N)
  18.   Print VECTOR$;Hex$(N,8);
  19.   If N Then Print " abnormal" Else Print " ok"
  20. Next 
  21. '  
  22. End 
  23. '
  24. '**** Vectornames + Offsets **** 
  25. '
  26. Data "ColdCapture ",$2A
  27. Data "CoolCapture ",$2E
  28. Data "WarmCapture ",$32
  29. Data "KickMemPtr  ",$222
  30. Data "KickTagPtr  ",$226
  31.