
B–61803E–1/10
A. MACRO PROGRAM EXAMPLE
APPENDIX
199
00010 O0040 ; Addreess variable test
00020 G202 P3 ; Screen erease
00030 #143=100 ;
00040 M98 P0011 ;
00050 N008 G243 X0 Y2 A1 B0 K520 ; Screen partially erased
00060 G243 X0 Y2 A1 B0 (ADDRESS VARIABLE TEST) ; Title display
00070 #141=100 ;
00080 M98 P0031 ;
00090 X0 Y4 (ADDRESS G READ TEST) ; Display ;
00100 N001 #101=G121.4 ; Emergency stop signal read
00110 IF [#101 EQ 0] GOTO 2 ;
00120 X0 Y6 Z1 F1.0 (ESP STATUS -- ) D#101 ( PUSH ESP) ;
00130 #142=#8501 ;
00140 IF [#142 EQ 16] GOTO 98 ;
00150 M99 P1 ;
00160 N002 X0 Y6 Z1 F1.0 (ESP STATUS -- ) D#101 ( RESET ESP) ;
00170 #141=100 ;
00180 M98 P0031 ;
00190 X0 Y4 K200 ; Screen partialloy cleared
00200 #141=100 ;
00210 M98 P0031 ;
00220 X0 Y4 (ADDRESS D WRITE TEST) ;
00230 M98 P0041 ; Subroutine of data table teat
00240 G243 X0 Y4 A1 B0 K200 ; Screen partially erased
00250 #141=100 ;
00260 M98 P0031 ;
00270 G243 X0 Y4 (PARAMETER READ) ;
00280 #102=0 ; Counter
00290 #8509=0033 ; The character string for display is O0033
00300 WHILE [#102 LE 2] DO 1 ;
00310 #103=P[#102*4+1821].1;Calculate parameter No.(P:parameter)
00320 G243 X0 Y[#102+6] (NUM ) Z1 F3.0 D[#102*4+1821]
00330 ( -- ) D#103 ;
00340 G243 ( ) P[#102*4+1821] ; “P” is sequence No. of character string.
00350 #102=#102+1
00360 END 1 ;
00370 #141=500 ;
00380 M98 P0031 ;
00390
#142=#8501 ;
00400 N099 IF [#142 NE 16] GOTO 97 ;
00410 N098 #8500=1 ;
00420 M99 ;
00430 N097 M99 P8 ;
00440 ;
Soft key display
Timer
Address G is
PMC ! NC input.
¼Emergency stop signal status display
Looped until the emergency stop signal is input,
but a push on the END key returns the display to
the menu.
¾Status display
Timer
Timer
Timer
Timer
A push on the END key returns
the display to the menu.