¢MODULE ; Action! version of Example 5¢¢; First, let's define the PROC's¢; to be called:¢¢PROC Print1=*()¢ PrintE("Number 1")¢RETURN¢¢PROC Print2=*()¢ PrintE("Number 2")¢RETURN¢¢PROC Print3=*()¢ PrintE("Number 3")¢RETURN¢¢; Next, we define a dummy PROC which¢; holds the addresses of the PROC's¢; we want to execute:¢;¢; (We can't define these in a¢; CARD ARRAY because they're NOT¢; constants and Action! would choke¢; on them.)¢¢PROC dummy=*() [¢ Print1 Print2 Print3 ]¢¢¢; Now, a MODULE statement because¢; we have to declare a variable:¢¢MODULE ; for CARD ARRAY declaration¢¢; This declares a CARD ARRAY that¢; points (suprize!) to "dummy"¢¢CARD ARRAY¢ ptrary = dummy¢¢¢; This routine does a JMP indirect¢;to the address passed to it:¢¢PROC Indirect=*(CARD address) [¢¢ ; ("address" is passed in the A and¢ ; X registers)¢¢ $85 $AE ;STA $AE save low byte¢ $86 $AF ;STX $AF save high byte¢¢; NOTE! To change this to emulate¢; ON x GOTO rather than¢; ON x GOSUB, add this line here:¢; $68 $68 ;PLA/PLA pull off¢ ; return address¢¢ $6C $AE $00 ] ;JMP ($AE)¢; jump indirect to routine, which¢; RTS's itself to the calling PROC¢¢¢; Now, our version of the¢; C "main" function:¢¢PROC main()¢BYTE i¢¢ FOR i = 0 TO 2 DO¢ ; Fetch address of routine to¢ ; call ( ptrary(i) ) and execute¢ ; it (via "Indirect" PROC)¢ Indirect(ptrary(i))¢ OD¢RETURN¢¢
