
A. MACRO PROGRAM EXAMPLE
B–62093E–1/02
APPENDIX
170
00110 IF [#105 LT #146] GOTO 200 ;
00120 #105 = 0 ;
00130 #104 = #104 +1 ;
00140 #145 = #145 + 8 ;
00150 IF [#104 LT #147] GOTO 200 ;
00160 #104 = 0 ;
00170 #145 = #[10000 + [#100 –1] * 2] + #104 * 8 ;
00180 GOTO 200 ;
00190 N100 #105 = #105 – 1 ;
00200 IF [#105 GE 0] GOTO 200 ;
00210 #104 = #104 – 1 ;
00220 IF [#104 GE 0] GOTO 120 ;
00230 #104 = #147 – 1 ;
00240 N120 #145 = #[10000 + [#100 –1] * 2] + #104 * 8 ;
00250 #105 = #[#145 + 4] * #[#145 + 5] – 1 ;
00260 N200 IF [#[#145 + 7] EQ 1] GOTO 210 ;
00270 #139 = FIX [#105 / #[#145 + 4]] ;
00280 #148 = #105 – #139 * #[#145 + 4] ;
00290 GOTO 220 ;
00300 N210 #148 = FIX [#105 / #[#145 + 5]] ;
00310 #139 = #105 – #148 * #[#145 + 5] ;
00320 N220 #8505 = 1 ;
00330 #8506 = #[#145] + #[#145 + 2] * #148 ;
00340 #8507 = #[#145 + 1] + #[#145 + 3] * #139 ;
00350 N900 M99 ;
00360 ;
00370 ;
00380 ;
00390 ;
00400 ;
00010 O9503 ;
00020 #8502 = 1 ;
00030 #102 = #8501 ;
00040 #103 = #8503 ;
00050 #140 = 1 ;
00060 IF [#102 EQ 3] GOTO 10 ;
00070 IF [#102 NE 4] GOTO 20 ;
00080 #140 = 2 ;
00090 N10 M98 P9502 ;
00100 N20 M99 ;
00110 ;