;@modern
; ASM: assembler instructions by name inside an Action! program

BYTE counter
BYTE ARRAY page6(256)=$600

PROC Bump()                  ; add 1 to counter
ASM
        inc counter
        rts
ENDASM

PROC FillPage(BYTE value)    ; fill the 256 bytes of page 6
ASM
        lda value
        ldx #0
loop    sta $0600,x
        inx
        bne loop
        rts
ENDASM

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

  FillPage(42)
  Print("page6(0) and page6(255): ")
  PrintB(page6(0))
  Put(' )
  PrintBE(page6(255))
RETURN