home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 451-475 / apd453 / vector.amos / vector.amosSourceCode
AMOS Source Code  |  1993-01-08  |  536b  |  21 lines
  1. '*             Vector.AMOS             * 
  2. '*      ï¿½1992 by Volker Stepprath      * 
  3. '*  Checks the vectors of its pointer  * 
  4. '**** Get address of Exec.library **** 
  5. EXECBASE=4
  6. EXECBASE=Leek(EXECBASE)
  7. '**** Check vectors **** 
  8. For I=0 To 4
  9.   Read VECTOR$,OFFSET
  10.   N=EXECBASE+OFFSET
  11.   N=Leek(N)
  12.   Print VECTOR$;Hex$(N,8);
  13.   If N Then Print " abnormal" Else Print " ok"
  14. Next 
  15. End 
  16. '**** Vectornames + Offsets **** 
  17. Data "ColdCapture ",$2A
  18. Data "CoolCapture ",$2E
  19. Data "WarmCapture ",$32
  20. Data "KickMemPtr  ",$222
  21. Data "KickTagPtr  ",$226