' *** GISTINIT.LST *** 2nd GFA-Manual, page 16-12 > PROCEDURE gist_init ' ' *** Install GIST-driver and declare some Global variables ' *** GISTDRVR.INL (2248 bytes) must be loaded into INLINE-line gist.driver% ' *** You have to reserve 3000 bytes (!) for the INLINE-line ' *** Driver uses 200 Hz system timer interrupt routine ' *** Always use Procedure Gist_exit to restore the system timer ' ' *** Global: gist.driver% gist.exit% gist.on% gist.off% gist.stop% ' *** gist.prior% gist.stop.all% ' LOCAL a gist.exit%=ADD(gist.driver%,148) gist.stop.all%=ADD(gist.driver%,176) gist.on%=ADD(gist.driver%,210) gist.stop%=ADD(gist.driver%,704) gist.off%=ADD(gist.driver%,782) gist.prior%=ADD(gist.driver%,868) a=CARD(C:gist.driver%()) ! install driver @gist_stop_all ! silence RETURN ' ********* '