
B–62093E–1/02
A. MACRO PROGRAM EXAMPLE
APPENDIX
169
00010 O9501 ;
00020 IF [#100 EQ 0] GOTO 900 ;
00030 #145 = #[10000 + [#100 – 1] * 2] ;
00040 IF [#145 EQ 0] GOTO 900 ;
00050 #145 = #104 * 8 + #145 ;
00060 IF [#[#145+7] EQ 1] GOTO 10 ;
00070 #139 = FIX [#105 / #[#145 + 4]] ;
00080 #148 = #105 – #139 * #[#145 + 4] ;
00090 GOTO 20 ;
00100 N10 #148 = FIX [#105 / #[#145 + 5]] ;
00110 #139 = #105 – #148 * #[#145 + 5] ;
00120 N20 G243 F#140 Z#141 ;
00130 X[#[#145]+#[#145+2]*#148+#[#145+6]] Y[#[#145+1]+#[#145+3]*#139]
D#103
00140 #147 = #140 ;
00150 #140 = 1 ;
00160 M98 P9502 ;
00170 #140 = #147 ;
00180 N900 M99 ;
00190 ;
00200 ;
00210 ;
00220 ;
00230 ;
00010 O9502 ;
00020 IF [#100 EQ 0] GOTO 900 ;
00030 #145 = #[10000 + [#100–1] * 2] ;
00040 IF [#145 EQ 0] GOTO 900 ;
00050 #145 = #104 * 8 + #145 ;
00060 #146 = #[#145 + 4] * #[#145+5] ;
00070 #147 =#[10001 + [#100–1] * 2] ;
00080 IF [#140 EQ 0] GOTO 200 ;
00090 IF [#140 EQ 2] GOTO 100 ;
00100 #105 = #105 + 1 ;
A.2.5
List for Source
Program