hashem_wolf
چهارشنبه 12 تیر 1387, 21:46 عصر
بی زحمت دیباگ و کمپایل کد زیر رو اگر لطف کنند
ممنون میشم!
;by hashem<hashem_2_wolf@yahoo.com>
;http://www.RashtOnline.ir
#include "TI86.inc"
.plugin lite86
.org _asm_exec_ram
nop
jp start
.dw 0
.dw description
description:
.db "Mastermind "
title:
.db "v1.1 "
author:
.db "by Jonah Cohen",0
.db $19,$28,"http://jonah.ticalc.org",0
start:
ld hl,try_num
ld b,8
call _CLRLP
;set answer balls
ld b,4
ball_loop
push bc
push hl
call _OP1SET0
call _OP2SET4
call _RANDINT ;get random ball value from 0-4
call _CONVOP1
pop hl
pop bc
ld (hl),a
inc hl
djnz ball_loop
call _flushAllMenus
call _runIndicOff
ld hl,title_screen
ld de,$fc00
DispRLE:
ld bc,1024 ;we need to copy
DispRLEL:
ld a,(hl) ;get the next byte
cp $91 ;is it a run?
jr z,DispRLERun ;then we need to decode the run
ldi ;copy the byte, and update counters
DispRLEC:
ld a,b ;check the low byte and
or c ;the high byte for 0
jr nz,DispRLEL ;if not, then we're not done either
jr done_title ;if it's zero, we're done
DispRLERun:
inc hl ;move to the run value
ld a,(hl) ;get the run value
inc hl ;move to the run count
push hl ;save source pointer
ld h,(hl) ;get the run count
ex de,hl ;swap source and destination pointers
DispRLERunL:
ld (hl),a ;copy the byte
inc hl ;increase destination pointer
dec bc ;decrease byte count
dec d ;decrease run count
jr nz,DispRLERunL ;if we're not done, then loop
ex de,hl ;swap pointers back
pop hl ;recover source pointer
inc hl ;advance the source pointer
jr DispRLEC ;check to see if we should loop
done_title:
set 3,(iy+5) ;inverse video
ld hl,title
ld bc,$201f
call vputs_bc
call vputs
res 3,(iy+5) ;normal video
call getkey
cp K_EXIT
jp z,exit
call _clrLCD
ld hl,main_screen
ld de,$fc37
ld bc,8
ld a,11 ;number of rows
copy_main_screen:
push bc
ldir
pop bc
ex de,hl
add hl,bc
ex de,hl
dec a
jr nz,copy_main_screen
ld hl,author+2
ld bc,$1045
call vputs_bc
;draw answer box
ld hl,$fe49
ld de,12
ld bc,$0aff
draw_answer_box:
ld (hl),$3f
inc hl
ld (hl),c
inc hl
ld (hl),c
inc hl
ld (hl),c
inc hl
ld (hl),$80
add hl,de
djnz draw_answer_box
;draw vertical lines
ld l,$00
ld a,4
call vert_line
ld l,$04
ld a,16
call vert_line
ld l,$06
ld a,4
call vert_line
;draw horizontal bars
ld hl,$fc00
ld de,16*8+10
horiz_lines:
ld (hl),$07
inc hl
ld bc,$05ff
horiz_line:
ld (hl),c
inc hl
djnz horiz_line
ld (hl),$fc
add hl,de
jr nc,horiz_lines
;draw numbers
ld b,7
ld de,$0101
num_loop:
ld (_penCol),de
ld a,b
add a,'0'
push bc
push de
call _vputmap
pop de
pop bc
ld a,d
add a,9
ld d,a
djnz num_loop
call draw_balls
;*****************************main loop
main_loop:
call getkey
sub K_LEFT
jp z,move_left
dec a ;right
jp z,move_right
dec a ;up
jp z,update_pegs
sub K_SECOND-K_UP
jp z,toggle_ball
dec a ;exit
jr nz,main_loop
;***************************exit sequences
lose:
ld hl,lose_text
jr disp_exit
win:
ld hl,win_text
disp_exit:
ld (iy+5),%00001010
call vputs
ld (iy+5),a
dec a ;-1
ld (try_num),a
ld hl,ansball1
ld de,ball1
ld bc,4
ldir
ld hl,$fe59 ;start of black squares
ld de,13
ld b,8
exit_loop:
ld (hl),$20
inc hl
ld (hl),d
inc hl
ld (hl),d
inc hl
ld (hl),d
add hl,de
djnz exit_loop
call draw_balls
call cursor
call getkey
exit:
jp _clrWindow
;**************************update the pegs
update_pegs:
ld hl,black
ld bc,8
ld (hl),b ;no blacks yet
inc hl
ld (hl),b ;no whites yet
ld hl,ball1
ld de,tempball
ldir
ld de,tempans
ld b,4
check_black:
ld a,(de)
cp (hl)
jr nz,black_not_found
ld a,-1 ;trash value, since it's been used
ld (de),a
dec a ;trash value, since it's been used
ld (hl),a
ld a,(black)
inc a
ld (black),a
black_not_found:
inc de
inc hl
djnz check_black
ld b,4
check_white:
dec hl
call get_white
djnz check_white
ld a,(black)
push af ;save number of black
ld a,(try_num)
call get_y
ld b,37 ;x coordinate
do_black:
ld a,(black)
or a
jr z,do_white
ld ix,black_box
call putsprite
dec a
ld (black),a
inc b
inc b
inc b
inc b
jr do_black
do_white:
ld a,(white)
or a
jr z,finish_update
ld ix,white_box
call putsprite
dec a
ld (white),a
inc b
inc b
inc b
inc b
jr do_white
finish_update:
call cursor
pop af ;retrieve number of blacks
cp 4 ;if all 4 are black, then you win
jp z,win
ld hl,try_num ;increment try number
inc (hl)
ld a,7
cp (hl)
jp z,lose
call draw_balls ;draw the new balls
jp main_loop
get_white:
;updates white if ball is found
push hl
push bc
ld de,tempans
ld b,4
compare_loop:
ld a,(de)
cp (hl)
jr z,found
inc de
djnz compare_loop
jr finish_get_value ;z flag set by djnz
found:
ld a,-1 ;trash value, since it's been used
ld (de),a
dec a ;trash value, since it's been used
ld (hl),a
ld hl,white
inc (hl)
finish_get_value:
pop bc
pop hl
ret
;**************************movement
move_right:
call cursor
ld hl,ball_num
inc (hl)
ld a,4
cp (hl)
push af
push hl
call nz,cursor
pop hl
pop af
jp nz,main_loop
dec (hl)
call cursor
jp main_loop
move_left:
call cursor
ld hl,ball_num
dec (hl)
ld a,-1
cp (hl)
push af
push hl
call nz,cursor
pop hl
pop af
jp nz,main_loop
inc (hl)
call cursor
jp main_loop
get_y:
ld a,(try_num)
inc a
jr nz,return_y
ld c,37 ;answer balls
ret
return_y:
ld b,a
ld a,64
y_loop:
sub 9
djnz y_loop
ld c,a
ret
get_x:
;a=ball number to give x coordinates for
ld b,a
ld a,(try_num)
inc a
ld a,-1 ;x coordinate of first ball-7
jr nz,return_x
;answer balls
ld a,68
return_x:
inc b
x_loop:
add a,7
djnz x_loop
ld b,a
ret
;**************************toggle the ball
toggle_ball:
call draw_balls
ld a,(ball_num)
ld hl,ball1
ld e,a
ld d,0
add hl,de
inc (hl)
ld a,(hl)
cp 5
jr nz,finish_toggle
xor a
ld (hl),a
finish_toggle:
call draw_balls
jp main_loop
;**************************drawing
draw_balls:
ld a,3
draw_ball_loop:
push af
push af
push af
call get_y
pop af
call get_x
pop af
ld h,ball1/256
ld l,a
ld a,(hl) ;get ball number
add a,a
add a,a
add a,a ;multiply by 8, since 8 bytes per sprite
ld ix,ball_sprites
ld e,a
ld d,0
add ix,de
call putsprite
pop af
dec a
jp p,draw_ball_loop
cursor:
call get_y
ld a,(ball_num)
call get_x
ld ix,highlight
;**************************putsprite
putsprite:
push af
push bc
ld h,$fc>>2
ld a,c
add a,a
add a,a
ld l,a
ld a,b
rra
add hl,hl
rra
add hl,hl
rra
or l
ld l,a
ld a,b
and 7
ld (putspritex-1),a
ld bc,$0800
putspritel:
ex de,hl
ld l,(ix)
ld h,c
inc ix
jr putspritex
putspritex:
add hl,hl
add hl,hl
add hl,hl
add hl,hl
add hl,hl
add hl,hl
add hl,hl
add hl,hl
ex de,hl
ld a,d
xor (hl)
ld (hl),a
inc hl
ld a,e
xor (hl)
ld (hl),a
ld de,15
add hl,de
djnz putspritel
pop bc
pop af
ret
;**************************misc routines
vputs:
ld c,(hl)
inc hl
ld b,(hl)
inc hl
vputs_bc:
ld (_penCol),bc
jp _vputs
getkey:
halt
call _getcsc
or a
jr z,getkey
res 4,(iy+9)
ret
vert_line:
ld h,$fc
ld de,16
vert_line_loop:
ld (hl),a
add hl,de
jr nc,vert_line_loop
ret
;**************************data
win_text: .db $17,$1a," Congratulations! You win!",0
lose_text: .db $21,$1a," You lose. Try again.",0
ball_sprites:
.db %00000000
.db %00111100
.db %01000010
.db %01000010
.db %01000010
.db %01000010
.db %00111100
.db %00000000
.db %00000000
.db %00111100
.db %01111110
.db %01111110
.db %01111110
.db %01111110
.db %00111100
.db %00000000
.db %00000000
.db %00111100
.db %01101010
.db %01010110
.db %01101010
.db %01010110
.db %00111100
.db %00000000
.db %00000000
.db %00111100
.db %01100110
.db %01011010
.db %01011010
.db %01100110
.db %00111100
.db %00000000
.db %00000000
.db %00111100
.db %01011010
.db %01111110
.db %01111110
.db %01011010
.db %00111100
.db %00000000
highlight:
.db %11111111
.db %10000001
.db %10000001
.db %10000001
.db %10000001
.db %10000001
.db %10000001
.db %11111111
black_box:
.db %00000000
.db %00000000
.db %00000000
.db %11100000
.db %11100000
.db %11100000
.db %00000000
.db %00000000
white_box:
.db %00000000
.db %00000000
.db %00000000
.db %11100000
.db %10100000
.db %11100000
.db %00000000
.db %00000000
title_screen:
.db $91,$ff,$ab,$c7,$ff,$e3,$91,$ff,$04,$f8,$38,$7f
.db $ff,$f8,$ff,$ff,$f0,$70,$c7,$ff,$e3,$91,$ff,$04
.db $f8,$38,$7f,$ff,$f8,$ff,$ff,$f0,$70,$ff,$ff,$e3
.db $91,$ff,$04,$f8,$38,$7c,$78,$60,$38,$71,$30,$70
.db $fc,$4f,$03,$91,$ff,$04,$f8,$30,$70,$10,$20,$30
.db $30,$10,$60,$c4,$06,$03,$91,$ff,$04,$f8,$10,$61
.db $00,$18,$e3,$10,$00,$20,$c4,$00,$03,$91,$ff,$04
.db $f8,$10,$63,$03,$18,$e3,$11,$80,$20,$c4,$60,$63
.db $91,$ff,$04,$f8,$10,$63,$03,$18,$e3,$11,$80,$20
.db $c4,$60,$63,$91,$ff,$04,$f8,$00,$63,$01,$18,$e3
.db $11,$80,$00,$c4,$60,$63,$91,$ff,$04,$f8,$02,$7c
.db $10,$f8,$e0,$11,$f0,$04,$c4,$60,$63,$91,$ff,$04
.db $f8,$82,$78,$18,$38,$e0,$11,$f1,$04,$c4,$60,$63
.db $91,$ff,$04,$f8,$82,$71,$1e,$18,$e3,$f1,$f1,$04
.db $c4,$60,$63,$91,$ff,$04,$f8,$86,$63,$03,$18,$e3
.db $11,$f1,$0c,$c4,$60,$63,$91,$ff,$04,$f8,$c6,$63
.db $03,$18,$e3,$11,$f1,$8c,$c4,$60,$63,$91,$ff,$04
.db $f8,$c6,$63,$03,$18,$63,$11,$f1,$8c,$c4,$60,$63
.db $91,$ff,$04,$f8,$c6,$60,$10,$3c,$30,$11,$f1,$8c
.db $c4,$60,$03,$91,$ff,$04,$f8,$ce,$70,$18,$7c,$38
.db $31,$f1,$9c,$c4,$62,$03,$91,$ff,$ff,$91,$ff,$ff
.db $91,$ff,$54
main_screen:
.db $07,$38,$00,$30,$00,$39,$D8,$03
.db $07,$38,$00,$30,$00,$39,$C0,$03
.db $07,$BB,$EF,$FB,$EF,$BD,$DB,$DF
.db $07,$BB,$6F,$B3,$6D,$BD,$DA,$DB
.db $07,$FB,$6D,$B3,$6D,$BF,$DA,$DB
.db $07,$F9,$EF,$33,$6C,$3F,$DA,$DB
.db $07,$F9,$E7,$B3,$EC,$3F,$DA,$DB
.db $06,$FB,$6F,$B3,$6C,$37,$DA,$DB
.db $06,$DB,$6D,$B3,$6C,$36,$DA,$DB
.db $06,$DB,$6D,$BB,$6C,$36,$DA,$DB
.db $06,$DB,$EF,$BB,$EC,$36,$DA,$DF
try_num = $8100-4
ball_num = try_num+1
black = ball_num+1
white = black+1
ball1 = white+1 ;on $00 boundary
ball2 = ball1+1
ball3 = ball2+1
ball4 = ball3+1
ansball1 = ball4+1
ansball2 = ansball1+1
ansball3 = ansball2+1
ansball4 = ansball3+1
tempball = ansball4+1 ;4 bytes
tempans = tempball+4 ;4 bytes
.end
ممنون میشم!
;by hashem<hashem_2_wolf@yahoo.com>
;http://www.RashtOnline.ir
#include "TI86.inc"
.plugin lite86
.org _asm_exec_ram
nop
jp start
.dw 0
.dw description
description:
.db "Mastermind "
title:
.db "v1.1 "
author:
.db "by Jonah Cohen",0
.db $19,$28,"http://jonah.ticalc.org",0
start:
ld hl,try_num
ld b,8
call _CLRLP
;set answer balls
ld b,4
ball_loop
push bc
push hl
call _OP1SET0
call _OP2SET4
call _RANDINT ;get random ball value from 0-4
call _CONVOP1
pop hl
pop bc
ld (hl),a
inc hl
djnz ball_loop
call _flushAllMenus
call _runIndicOff
ld hl,title_screen
ld de,$fc00
DispRLE:
ld bc,1024 ;we need to copy
DispRLEL:
ld a,(hl) ;get the next byte
cp $91 ;is it a run?
jr z,DispRLERun ;then we need to decode the run
ldi ;copy the byte, and update counters
DispRLEC:
ld a,b ;check the low byte and
or c ;the high byte for 0
jr nz,DispRLEL ;if not, then we're not done either
jr done_title ;if it's zero, we're done
DispRLERun:
inc hl ;move to the run value
ld a,(hl) ;get the run value
inc hl ;move to the run count
push hl ;save source pointer
ld h,(hl) ;get the run count
ex de,hl ;swap source and destination pointers
DispRLERunL:
ld (hl),a ;copy the byte
inc hl ;increase destination pointer
dec bc ;decrease byte count
dec d ;decrease run count
jr nz,DispRLERunL ;if we're not done, then loop
ex de,hl ;swap pointers back
pop hl ;recover source pointer
inc hl ;advance the source pointer
jr DispRLEC ;check to see if we should loop
done_title:
set 3,(iy+5) ;inverse video
ld hl,title
ld bc,$201f
call vputs_bc
call vputs
res 3,(iy+5) ;normal video
call getkey
cp K_EXIT
jp z,exit
call _clrLCD
ld hl,main_screen
ld de,$fc37
ld bc,8
ld a,11 ;number of rows
copy_main_screen:
push bc
ldir
pop bc
ex de,hl
add hl,bc
ex de,hl
dec a
jr nz,copy_main_screen
ld hl,author+2
ld bc,$1045
call vputs_bc
;draw answer box
ld hl,$fe49
ld de,12
ld bc,$0aff
draw_answer_box:
ld (hl),$3f
inc hl
ld (hl),c
inc hl
ld (hl),c
inc hl
ld (hl),c
inc hl
ld (hl),$80
add hl,de
djnz draw_answer_box
;draw vertical lines
ld l,$00
ld a,4
call vert_line
ld l,$04
ld a,16
call vert_line
ld l,$06
ld a,4
call vert_line
;draw horizontal bars
ld hl,$fc00
ld de,16*8+10
horiz_lines:
ld (hl),$07
inc hl
ld bc,$05ff
horiz_line:
ld (hl),c
inc hl
djnz horiz_line
ld (hl),$fc
add hl,de
jr nc,horiz_lines
;draw numbers
ld b,7
ld de,$0101
num_loop:
ld (_penCol),de
ld a,b
add a,'0'
push bc
push de
call _vputmap
pop de
pop bc
ld a,d
add a,9
ld d,a
djnz num_loop
call draw_balls
;*****************************main loop
main_loop:
call getkey
sub K_LEFT
jp z,move_left
dec a ;right
jp z,move_right
dec a ;up
jp z,update_pegs
sub K_SECOND-K_UP
jp z,toggle_ball
dec a ;exit
jr nz,main_loop
;***************************exit sequences
lose:
ld hl,lose_text
jr disp_exit
win:
ld hl,win_text
disp_exit:
ld (iy+5),%00001010
call vputs
ld (iy+5),a
dec a ;-1
ld (try_num),a
ld hl,ansball1
ld de,ball1
ld bc,4
ldir
ld hl,$fe59 ;start of black squares
ld de,13
ld b,8
exit_loop:
ld (hl),$20
inc hl
ld (hl),d
inc hl
ld (hl),d
inc hl
ld (hl),d
add hl,de
djnz exit_loop
call draw_balls
call cursor
call getkey
exit:
jp _clrWindow
;**************************update the pegs
update_pegs:
ld hl,black
ld bc,8
ld (hl),b ;no blacks yet
inc hl
ld (hl),b ;no whites yet
ld hl,ball1
ld de,tempball
ldir
ld de,tempans
ld b,4
check_black:
ld a,(de)
cp (hl)
jr nz,black_not_found
ld a,-1 ;trash value, since it's been used
ld (de),a
dec a ;trash value, since it's been used
ld (hl),a
ld a,(black)
inc a
ld (black),a
black_not_found:
inc de
inc hl
djnz check_black
ld b,4
check_white:
dec hl
call get_white
djnz check_white
ld a,(black)
push af ;save number of black
ld a,(try_num)
call get_y
ld b,37 ;x coordinate
do_black:
ld a,(black)
or a
jr z,do_white
ld ix,black_box
call putsprite
dec a
ld (black),a
inc b
inc b
inc b
inc b
jr do_black
do_white:
ld a,(white)
or a
jr z,finish_update
ld ix,white_box
call putsprite
dec a
ld (white),a
inc b
inc b
inc b
inc b
jr do_white
finish_update:
call cursor
pop af ;retrieve number of blacks
cp 4 ;if all 4 are black, then you win
jp z,win
ld hl,try_num ;increment try number
inc (hl)
ld a,7
cp (hl)
jp z,lose
call draw_balls ;draw the new balls
jp main_loop
get_white:
;updates white if ball is found
push hl
push bc
ld de,tempans
ld b,4
compare_loop:
ld a,(de)
cp (hl)
jr z,found
inc de
djnz compare_loop
jr finish_get_value ;z flag set by djnz
found:
ld a,-1 ;trash value, since it's been used
ld (de),a
dec a ;trash value, since it's been used
ld (hl),a
ld hl,white
inc (hl)
finish_get_value:
pop bc
pop hl
ret
;**************************movement
move_right:
call cursor
ld hl,ball_num
inc (hl)
ld a,4
cp (hl)
push af
push hl
call nz,cursor
pop hl
pop af
jp nz,main_loop
dec (hl)
call cursor
jp main_loop
move_left:
call cursor
ld hl,ball_num
dec (hl)
ld a,-1
cp (hl)
push af
push hl
call nz,cursor
pop hl
pop af
jp nz,main_loop
inc (hl)
call cursor
jp main_loop
get_y:
ld a,(try_num)
inc a
jr nz,return_y
ld c,37 ;answer balls
ret
return_y:
ld b,a
ld a,64
y_loop:
sub 9
djnz y_loop
ld c,a
ret
get_x:
;a=ball number to give x coordinates for
ld b,a
ld a,(try_num)
inc a
ld a,-1 ;x coordinate of first ball-7
jr nz,return_x
;answer balls
ld a,68
return_x:
inc b
x_loop:
add a,7
djnz x_loop
ld b,a
ret
;**************************toggle the ball
toggle_ball:
call draw_balls
ld a,(ball_num)
ld hl,ball1
ld e,a
ld d,0
add hl,de
inc (hl)
ld a,(hl)
cp 5
jr nz,finish_toggle
xor a
ld (hl),a
finish_toggle:
call draw_balls
jp main_loop
;**************************drawing
draw_balls:
ld a,3
draw_ball_loop:
push af
push af
push af
call get_y
pop af
call get_x
pop af
ld h,ball1/256
ld l,a
ld a,(hl) ;get ball number
add a,a
add a,a
add a,a ;multiply by 8, since 8 bytes per sprite
ld ix,ball_sprites
ld e,a
ld d,0
add ix,de
call putsprite
pop af
dec a
jp p,draw_ball_loop
cursor:
call get_y
ld a,(ball_num)
call get_x
ld ix,highlight
;**************************putsprite
putsprite:
push af
push bc
ld h,$fc>>2
ld a,c
add a,a
add a,a
ld l,a
ld a,b
rra
add hl,hl
rra
add hl,hl
rra
or l
ld l,a
ld a,b
and 7
ld (putspritex-1),a
ld bc,$0800
putspritel:
ex de,hl
ld l,(ix)
ld h,c
inc ix
jr putspritex
putspritex:
add hl,hl
add hl,hl
add hl,hl
add hl,hl
add hl,hl
add hl,hl
add hl,hl
add hl,hl
ex de,hl
ld a,d
xor (hl)
ld (hl),a
inc hl
ld a,e
xor (hl)
ld (hl),a
ld de,15
add hl,de
djnz putspritel
pop bc
pop af
ret
;**************************misc routines
vputs:
ld c,(hl)
inc hl
ld b,(hl)
inc hl
vputs_bc:
ld (_penCol),bc
jp _vputs
getkey:
halt
call _getcsc
or a
jr z,getkey
res 4,(iy+9)
ret
vert_line:
ld h,$fc
ld de,16
vert_line_loop:
ld (hl),a
add hl,de
jr nc,vert_line_loop
ret
;**************************data
win_text: .db $17,$1a," Congratulations! You win!",0
lose_text: .db $21,$1a," You lose. Try again.",0
ball_sprites:
.db %00000000
.db %00111100
.db %01000010
.db %01000010
.db %01000010
.db %01000010
.db %00111100
.db %00000000
.db %00000000
.db %00111100
.db %01111110
.db %01111110
.db %01111110
.db %01111110
.db %00111100
.db %00000000
.db %00000000
.db %00111100
.db %01101010
.db %01010110
.db %01101010
.db %01010110
.db %00111100
.db %00000000
.db %00000000
.db %00111100
.db %01100110
.db %01011010
.db %01011010
.db %01100110
.db %00111100
.db %00000000
.db %00000000
.db %00111100
.db %01011010
.db %01111110
.db %01111110
.db %01011010
.db %00111100
.db %00000000
highlight:
.db %11111111
.db %10000001
.db %10000001
.db %10000001
.db %10000001
.db %10000001
.db %10000001
.db %11111111
black_box:
.db %00000000
.db %00000000
.db %00000000
.db %11100000
.db %11100000
.db %11100000
.db %00000000
.db %00000000
white_box:
.db %00000000
.db %00000000
.db %00000000
.db %11100000
.db %10100000
.db %11100000
.db %00000000
.db %00000000
title_screen:
.db $91,$ff,$ab,$c7,$ff,$e3,$91,$ff,$04,$f8,$38,$7f
.db $ff,$f8,$ff,$ff,$f0,$70,$c7,$ff,$e3,$91,$ff,$04
.db $f8,$38,$7f,$ff,$f8,$ff,$ff,$f0,$70,$ff,$ff,$e3
.db $91,$ff,$04,$f8,$38,$7c,$78,$60,$38,$71,$30,$70
.db $fc,$4f,$03,$91,$ff,$04,$f8,$30,$70,$10,$20,$30
.db $30,$10,$60,$c4,$06,$03,$91,$ff,$04,$f8,$10,$61
.db $00,$18,$e3,$10,$00,$20,$c4,$00,$03,$91,$ff,$04
.db $f8,$10,$63,$03,$18,$e3,$11,$80,$20,$c4,$60,$63
.db $91,$ff,$04,$f8,$10,$63,$03,$18,$e3,$11,$80,$20
.db $c4,$60,$63,$91,$ff,$04,$f8,$00,$63,$01,$18,$e3
.db $11,$80,$00,$c4,$60,$63,$91,$ff,$04,$f8,$02,$7c
.db $10,$f8,$e0,$11,$f0,$04,$c4,$60,$63,$91,$ff,$04
.db $f8,$82,$78,$18,$38,$e0,$11,$f1,$04,$c4,$60,$63
.db $91,$ff,$04,$f8,$82,$71,$1e,$18,$e3,$f1,$f1,$04
.db $c4,$60,$63,$91,$ff,$04,$f8,$86,$63,$03,$18,$e3
.db $11,$f1,$0c,$c4,$60,$63,$91,$ff,$04,$f8,$c6,$63
.db $03,$18,$e3,$11,$f1,$8c,$c4,$60,$63,$91,$ff,$04
.db $f8,$c6,$63,$03,$18,$63,$11,$f1,$8c,$c4,$60,$63
.db $91,$ff,$04,$f8,$c6,$60,$10,$3c,$30,$11,$f1,$8c
.db $c4,$60,$03,$91,$ff,$04,$f8,$ce,$70,$18,$7c,$38
.db $31,$f1,$9c,$c4,$62,$03,$91,$ff,$ff,$91,$ff,$ff
.db $91,$ff,$54
main_screen:
.db $07,$38,$00,$30,$00,$39,$D8,$03
.db $07,$38,$00,$30,$00,$39,$C0,$03
.db $07,$BB,$EF,$FB,$EF,$BD,$DB,$DF
.db $07,$BB,$6F,$B3,$6D,$BD,$DA,$DB
.db $07,$FB,$6D,$B3,$6D,$BF,$DA,$DB
.db $07,$F9,$EF,$33,$6C,$3F,$DA,$DB
.db $07,$F9,$E7,$B3,$EC,$3F,$DA,$DB
.db $06,$FB,$6F,$B3,$6C,$37,$DA,$DB
.db $06,$DB,$6D,$B3,$6C,$36,$DA,$DB
.db $06,$DB,$6D,$BB,$6C,$36,$DA,$DB
.db $06,$DB,$EF,$BB,$EC,$36,$DA,$DF
try_num = $8100-4
ball_num = try_num+1
black = ball_num+1
white = black+1
ball1 = white+1 ;on $00 boundary
ball2 = ball1+1
ball3 = ball2+1
ball4 = ball3+1
ansball1 = ball4+1
ansball2 = ansball1+1
ansball3 = ansball2+1
ansball4 = ansball3+1
tempball = ansball4+1 ;4 bytes
tempans = tempball+4 ;4 bytes
.end