(* The definition of the record FX must be obtained from LLSTK. *)
(* VAG2 must be acquired from somewhere; \VAG2 seems to work
   as a substitute, however. *)


(DEFINEQ (COMPUTEDGO.UFN (TOP-1 TOP)
   (PROG ()
     (ADD (FETCH (FX PC) OF (\MYALINK))
          (ITIMES TOP 3))
     (RETURN TOP-1))))

(DEFINEQ (INSTALL-COMPUTEDGOTO ()
   (SETQ \OPCODES (APPEND \OPCODES 
     (QUOTE ((347Q GO* 0 T -1 NIL COMPUTEDGO.UFN)))))
   (SETQ \OPCODEARRAY NIL)
   (\SETUFNENTRY (OP# GO*) (QUOTE COMPUTEDGO.UFN) 2 0) ))

(DEFINEQ (SAMPLE-1 (N)
  (PROG ()
     X1 (GO X1)
     X2 (GO X1))))