
A. MACRO PROGRAM EXAMPLE
B–62073E–2/03
146
(1) Main Program
00010 O0001 ; Main
00020 G390 ; Absolute mode specification
00030 G202 P3 ; Screen clear
00040 G230 L0 ; Cursor OFF
00050 G243 X0 Y0 A1 B0 (SAMPLE PROGRAM) ;
00060 X2 Y3 (1 –– KEY TEST) ;
00070 X2 Y5 (2 –– COUSOR TEST) ;
00080 X2 Y7 (3 –– DISPLAY TEST) ;
00190 X2 Y9 (4 –– ADDRESS VARIABLE) ;
00100 X2 Y11 (5 – CIRCLE) ;
00110 #8509 = 0033 ; Character registered program number
00120 #143 = 300 ; Software key display
00130 M98 P0011;
00140 N001 #142 = #8501 ; Key input variable reading
00150 IF [ #142 EQ 0 ]GOTO 99 ; Loop if nothing is displayed
00160 IF [ #142 LT 12 ]GOTO 99 ;
00170 IF [ #142 GT 16 ]GOTO 99 ;
00180 #8500 =[ #142 – 11 ]
*
10 ;
00190 M99 ;
00200 N099 M99 P1 ;
00010 O0010 ; Key test
00020 N10 G202 P3 ;
00030 N20 G243 X0 Y2 A1 B0(KEYTEST ––HIT ANY KEY––); Title display
00040 N30 #143 = 100 ;
00050 M98 P0011 ;
00060 N100 #8502 = 2 ; Input of address and numerical value
00070 N110 #142 = #8501 ; Save of key input variable
00080 IF [ #142EQ0 ]GOTO 200; Determines presence/absence of key input, loop if none
00090 #101 = #142 ;
00100 #102 = #8503 ;
00110 #103 = #8504 ;
00120 G243 X0 Y4 A1 B0 (CONTROL ) F8.3 Z0 D#101 ;
00130 G243 X0 Y5 A1 B0 (ADDRESS ) F8.3 Z0 D#103 ;
00140 G243 X0 Y6 A1 B0 (DATA ) F8.3 Z0 D#102 ;
00150 N200 IF [ #142 NE 16 ]GOTO 220 ; Returns to menu if end key is pressed
00160 N210 #8500 = 1 ; Next execution program is number No. O0001
00170 M99 ;
00180 N220 M99 P100 ;
00190 N300 M99 P110 ;
00010 O0011 ; Software key display
00020 #100 = 0 ; Counter clear
00030 WHILE [ #100 LT 5 ] DO 1 ;
00040 #1 = #143 + #100 ; Obtains display character sequence number
00050 G243 X[ #100
*
7 + 2 ]Y25 A1 B0 P [ #1 ];
00060 #100 = #100 + 1 ; Counter + 1
00070 END 1 ;
00080 M99 ;
00010 O0020 ; Cursor control
00020 G202 P3 ; Screen clear
00030 G230 L0 ; Cursor OFF
00040 #8502 = 0 ; No key input
00050 N008 G243 X0 Y1 (CORSOR TEST –– MOVE COUSOR ––) ; Title display
00060 G243 X0 Y3 (A) ;
00070 G243 X0 Y4 (B) ;
00080 G243 X0 Y5 (C) ;
00090 G243 X0 Y6 (D) ;
00100 G243 X0 Y7 (E) ;
00110 G243 X0 Y8 (F) ;
A.6
PROGRAM
DESCRIPTION
Menu display
Software key display, #143 is head of display character sequence number
Key input data reading
Key input data display
Displays cursor menu