TOURIAN

+++ cmp #$83 bne + ; move until Y coord = $83 inc ObjAction,x
+ jmp ShowElevatorElevatorScroll:
lda ScrollY bne ElevScrollRoom ; scroll until ScrollY = 0
lda #$4E lda #$41 sta AnimIndex
lda #$5D
sta AnimResetIndex,x lda #$50sta AnimIndex,x
inc ObjAction,x
lda #$40
sta Timer
jmp ShowElevator

ElevScrollRoom:
lda $030F,x bpl + ; branch if elevator going down jsr ScrollUp jmp ShowElevator jsr ScrollDown
jmp ShowElevator
LD8A3: inc ObjAction,x