LDA #$BE ; Load initial state STA $0200 ; Store "Being" CLC ; Clear for transition ADC #$01 ; Increment state STA $0201 ; Result: "Becoming" RTS ; Return to new form