32 lines
655 B
Plaintext
32 lines
655 B
Plaintext
&ACCESS RVO
|
|
&COMMENT HANDLER on external automatic
|
|
DEF CELL ( )
|
|
;EXT EXAMPLE1 ( )
|
|
;EXT EXAMPLE2 ( )
|
|
;EXT EXAMPLE3 ( )
|
|
|
|
;FOLD INIT
|
|
DECL CHAR DMY[3]
|
|
DMY[]="---"
|
|
;ENDFOLD (INIT)
|
|
;FOLD BASISTECH INI
|
|
GLOBAL INTERRUPT DECL 3 WHEN $STOPMESS==TRUE DO IR_STOPM ( )
|
|
INTERRUPT ON 3
|
|
BAS (#INITMOV,0 )
|
|
;ENDFOLD (BASISTECH INI)
|
|
;FOLD CHECK HOME
|
|
$H_POS=XHOME
|
|
IF CHECK_HOME==TRUE THEN
|
|
P00 (#CHK_HOME,#PGNO_GET,DMY[],0 ) ;Testing Home-Position
|
|
ENDIF
|
|
;ENDFOLD (CHECK HOME)
|
|
|
|
Initmove()
|
|
;FOLD AUTOEXT INI
|
|
P00 (#INIT_EXT,#PGNO_GET,DMY[],0 ) ; Initialize extern mode
|
|
;ENDFOLD (AUTOEXT INI)
|
|
LOOP
|
|
MainModule()
|
|
ENDLOOP
|
|
END
|
