; Orange programmer module v4.1
; (c) 2006 CnCLab
; HPL buffer mark example
; Пример демонстрирует работу с командами выделения.

ALLPINS=0

["#!Invert Mark"]
ADR=0
LOOP($SIZE){
R0=MARK,R0=^1,MARK=R0
ADR=+1	    ;increment address
}


["#!Mark counter"]
ADR=0
R1=0	;counter init
LOOP($SIZE){
R0=MARK
R0?1{R1=+1} ;increment counter
ADR=+1	    ;increment address
}
PRINT=("Marked=%u",R1)