Cave Escape 2 by sunnyjum/DuFfY

@0
S:MOV DOWN ACC
  ADD ACC
  ADD DOWN
  ADD 39
  JEZ F #-39
  SUB 19
  JEZ F #-20
  SUB 14
  JEZ F #-6
  ADD 4
  JEZ F #-10
  MOV DOWN DOWN
  JMP S
F:MOV DOWN NIL
  MOV -1 DOWN

@1
## CAVE ESCAPE 2
# PLAYER INPUT
S:MOV UP ACC
  SUB 4
  JLZ D
  SUB 2
  JGZ U
  ADD 1
  MOV 0 RIGHT #Z
  MOV ACC RIGHT #X
  JMP S
U:MOV -1 RIGHT #Z
  JMP E
D:MOV 1 RIGHT #Z
E:MOV 0 RIGHT #X

@2
  MOV DOWN NIL
  MOV ANY ACC #Z
  SWP
  MOV LAST ACC #X
  MOV ACC DOWN #X
  SWP
  MOV ACC DOWN #Z
A:JRO DOWN
  SWP # UNDO MOVE
  NEG
  MOV ACC DOWN #X
  SWP
  NEG
  MOV ACC DOWN #Z
  JMP A

@3
  MOV 4 LEFT   #Z
  MOV 16 LEFT  #X
  MOV 60 ACC   #
L:SWP          #^
  MOV 512 ACC  #S
A:SUB 1        #T
  JNZ A        #A
  SWP          #R
  SUB 1        #T
  JEZ E        #
  MOV 0 LEFT   #P
  MOV 0 LEFT   #O
  JMP L        #S
E:MOV -1 DOWN
  JRO 0 #TIMEUP

@4
  MOV RIGHT ACC
  MOV ACC UP
A:ADD 11 #MAZEVARB
  JLZ A
  JEZ A
  MOV ACC DOWN
  ADD DOWN
  ADD RIGHT
  MOV ACC UP
B:SUB 13 #MAZEVARC
  JGZ B
  ADD 13 #MAZEVARC
  MOV ACC DOWN
  MOV DOWN UP
  MOV UP RIGHT

@5
S:MOV ANY ACC  # C
  JEZ A        # A
  SUB 35       # V
  JEZ A        # E
  MOV ACC LEFT #
  MOV LAST ACC # W
  MOV ACC LEFT # A
  ADD 997      # L
  SUB 999      # L
  ADD LEFT     #
  JLZ B        # C
  MOV 1 LAST   # H
  JMP S        # E
A:MOV LAST NIL # C
B:MOV 2 LAST   # K

@6
W:MOV 1 UP #MOVING
  ADD UP #X
  MOV ACC LEFT
  SWP
  ADD UP #Z
  MOV ACC LEFT
  SWP
  JRO LEFT
  JMP A #AIR (1)
  JMP W #WALL (2)
A:MOV -7 UP
  MOV ACC RIGHT
  SWP
  MOV ACC RIGHT
  SWP

@7
S:MOV ANY ACC
  JLZ E
  MOV NIL DOWN
  MOV ACC DOWN
  MOV LEFT DOWN
  MOV 4 DOWN
  JMP S
E:MOV ANY ACC
  MOV NIL DOWN
  MOV ACC DOWN
  MOV LEFT DOWN
  MOV 3 DOWN
  JRO 0

@8
MOV 0 ACC # MAZE
JRO UP  # RANDOM
ADD 1 #1,0  GEN
SUB 1 #2,-1
SUB 1 #3,0
ADD 2 #4,1
SUB 2 #5,-1
NOP #6,1
ADD 2 #7,1
NOP #8,-1
SUB 1 #9,-1
NOP #10,0
SUB 1 #11,0
ADD 1 #12,1
MOV ACC UP #13,0

@9
  MOV RIGHT ACC
Z:SUB 1
  SWP
  MOV 36 ACC
X:SUB 1
  MOV ACC UP
  MOV ACC RIGHT
  SWP
  MOV ACC UP
  MOV ACC RIGHT
  SWP
  MOV UP RIGHT
  JNZ X
  SWP     # RENDER
  JGZ Z   # SCENE

@10
  MOV 22 LEFT
S:MOV ANY DOWN  #M
  MOV LAST ACC  #E
  MOV ACC DOWN  #R
  SUB 22        #G
  JEZ C         #E
  MOV LAST DOWN #
  MOV -1 DOWN   #R
  JMP S         #E
C:MOV -1 DOWN   #N
  MOV 0 DOWN    #D
  MOV 10 DOWN   #E
F:MOV 0 DOWN    #R
  MOV 3 DOWN
  JMP F

@11
# RENDER PLAYER
MOV UP NIL
MOV ACC LEFT
SWP
MOV ACC LEFT
MOV 1 LEFT
MOV UP ACC
MOV ACC LEFT
SWP
MOV UP ACC
MOV ACC LEFT
SWP
MOV UP LEFT