13 lines
247 B
Plaintext
13 lines
247 B
Plaintext
&ACCESS RV
|
|
DEF Initmove ( )
|
|
CONTINUE
|
|
IF ($T1 OR $T2) AND NOT $NEAR_POSRET THEN
|
|
CONTINUE
|
|
GLOBAL INTERRUPT DECL 3 WHEN $STOPMESS==TRUE DO IR_STOPM ( )
|
|
INTERRUPT ON 3
|
|
BAS (#INITMOV,0 )
|
|
CONTINUE
|
|
PTP $POS_ACT C_DIS
|
|
ENDIF
|
|
END
|
