30 lines
904 B
Plaintext
30 lines
904 B
Plaintext
(Endless program)
|
|
|
|
(In a standalone interpreter, this should probably exit)
|
|
(at the main program M99. In task, the main program M99)
|
|
(should cause an endless loop, terminated by a counter.)
|
|
|
|
(*****************************************************)
|
|
(Don't *actually* run this program infinitely!)
|
|
(Stop after)#101 = 3(loops in case of failure)
|
|
#100 = [#100 + 1] (Counter; assume it starts at 0)
|
|
O1000 if [#100 GT #101]
|
|
(PRINT, "Stopping program after #101 loops")
|
|
#100 = 0 (Reset counter)
|
|
M30 (End program)
|
|
O1000 endif
|
|
(*****************************************************)
|
|
O1 (Main program begin)
|
|
(PRINT, X Loop number #100)
|
|
G1 X1 F40 (Junk move...)
|
|
M98 P100 (Call junk subprogram)
|
|
G1 X5 (Another junk move...)
|
|
M99 (Main program endless loop)
|
|
|
|
(*****************************************************)
|
|
O100 (Junk subprogram begin)
|
|
G1 Y-4 (Subprogram junk move...)
|
|
M99 (Return to main program)
|
|
|
|
%
|