$1
JMP 20
$20
LDA i
0 [INIT HORIZ
STC 4X
LDA i
700 [INIT HEIGHT
STC 4Y
LDA i
4
STC 4V
LDA i
4 [INIT HOR VEL
STC 4H
LDA i
500 [WALL POS
STC 4W
LDA i
1 [INIT GRAVITY
STC 4G
[
#1A JMP 2D
LDA
4G
ADM
4V
COM
ADM
4Y
APO i
JMP 1B
CLR
STC 4Y
LDA
4V
ROL 4
COM
ADD 4V
SCR 4
STA
4V
#1B LDA
4H
ADM
4X
APO
JMP 1C
COM
ADA
4W
APO i
JMP 1D
#1C LDA
4H
COM
STC 4H
#1D JMP 2E
ADD 4V
AZE
JMP 1A
ADD 4Y
AZE
JMP 1A
HLT
[
[ DRAW SUBR.
#2D LDA
4X
STC 1
LDA
4Y
ADA i
-377
DIS 1
JMP 0
[
[ DELAY SUBR.
#2E SET 15
0
SAM 0
ADA i
-1000
STC 2
XSK i 2
JMP p-1
JMP 15
[
#4G [GRAVITY
#4H [HORIZONTAL VEL
#4V [VELOCITY DOWN
#4W [WALL POSITION
#4X [HORZ POS
#4Y [HEIGHT