; Machine code inside an Action! program

BYTE counter=1536            ; a byte at address $0600

PROC Bump=*()                ; a routine written in machine code
[$EE $00 $06                 ; INC $0600  - add 1 to the byte at $0600
 $60]                        ; RTS        - return

PROC Main()
  counter=5
  Bump()
  Bump()
  Print("After two calls: ")
  PrintBE(counter)

  [$CE $00 $06]              ; DEC $0600  - a code block between statements
  Print("After the code block: ")
  PrintBE(counter)
RETURN