PROC Main:
LOCAL Reg%(6),D%
DO
IF D%=0
Reg%(1)=$2000
D%=1
ELSEIF D%=1
Reg%(1)=$2002
D%=0
ENDIF
OS($8E,ADDR(Reg%()))
UNTIL GET=27
ENDP