Rockwell Automation 1746-BAS BASIC LANGUAGE - Manual (Page 189)

Publication 1746-RM001A-US-P
Output Functions 12-39
P. MTOP-10*6
24455
>PUSH 24455 : CALL 77
>P. MTOP
24455
>1 REM EXAMPLE PROGRAM
>5 DIM A(10),B(10)
>10 REM *** ARRAY SAVE ***
>20 FOR I = 0 TO 9
>30 A(I) = I+20
>40 PUSH A(I) : REM PUT NUMBER ON STACK
>50 ST@ 5FFFH–I*6
>60 NEXT I
>70 REM *** GET ARRAY ***
>80 FOR I = 0 TO 9
>90 LD@ 5FFFH–I*6
>100 POP B(I) : REM GET NUMBER FROM STACK
>110 PRINT B(I)
>120 NEXT I
READY
>RUN
20
21
22
23
24
25
26
27
28
29
READY
>PUSH 5FFFH : CALL 77
>P. MTOP
24575