Skip to content

Instantly share code, notes, and snippets.

/autoexec.bas

Created November 2, 2017 23:20
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save anonymous/3f5dfc924adfe8da5508988a08a33ef3 to your computer and use it in GitHub Desktop.
Save anonymous/3f5dfc924adfe8da5508988a08a33ef3 to your computer and use it in GitHub Desktop.
Download ZIP
1 '---------------------------------
Raw
autoexec.bas
1 '---------------------------------
2 ' blue mousing
3 ' MSX2
4 ' Have fun!
5 '2017 N.I Web: http://ni.x0.com/
6 '---------------------------------
7 clear200,&ha4ff:bload"BMOU.BIN"
8 defusr=&ha500:a=usr(0):stop
Raw
options.json
{"asm":{"filename":"bmou.bin","build":"bin"},"basic":{}}
Raw
program.asm
org #A500
call _main_005r_code
ret
_mode_002c_code:
ld hl,5
ld de,(_functiondatareferencestore)
add hl,de
ld l,(hl)
ld h,0
ld (_valuestore),hl
ld hl,(_valuestore)
ld bc,0
or a
sbc hl,bc
jp nz,__end_if_00000
jp _switchcase_00cu
jp __end_else_00000
__end_if_00000:
ld hl,(_valuestore)
ld bc,1
or a
sbc hl,bc
jp nz,__end_if_00001
jp _switchcase_00cv
jp __end_else_00001
__end_if_00001:
ld hl,(_valuestore)
ld bc,2
or a
sbc hl,bc
jp nz,__end_if_00002
jp _switchcase_00cw
jp __end_else_00002
__end_if_00002:
ld hl,(_valuestore)
ld bc,3
or a
sbc hl,bc
jp nz,__end_if_00003
jp _switchcase_00cx
jp __end_else_00003
__end_if_00003:
jp _switchexit_00ct
__end_else_00003:
__end_else_00002:
__end_else_00001:
__end_else_00000:
_switchcase_00cu:
ld hl,62432
push hl
ld hl,62432
ld a,(hl)
and 252
pop hl
ld (hl),a
ld a,8
ld (__spr_length),a
jp _switchexit_00ct
_switchcase_00cv:
ld hl,62432
push hl
ld hl,62432
ld a,(hl)
and 252
or 1
pop hl
ld (hl),a
ld a,8
ld (__spr_length),a
jp _switchexit_00ct
_switchcase_00cw:
ld hl,62432
push hl
ld hl,62432
ld a,(hl)
and 252
or 2
pop hl
ld (hl),a
ld a,32
ld (__spr_length),a
jp _switchexit_00ct
_switchcase_00cx:
ld hl,62432
push hl
ld hl,62432
ld a,(hl)
and 252
or 3
pop hl
ld (hl),a
ld a,32
ld (__spr_length),a
jp _switchexit_00ct
_switchexit_00ct:
ld hl,-1
ld de,(_functiondatareferencestore)
add hl,de
push hl
ld hl,64687
ld a,(hl)
pop hl
ld (hl),a
ld hl,-1
ld de,(_functiondatareferencestore)
add hl,de
ld l,(hl)
ld h,0
ld (_valuestore),hl
ld hl,(_valuestore)
ld bc,1
or a
sbc hl,bc
jp nz,__end_if_00004
jp _switchcase_00d1
jp __end_else_00004
__end_if_00004:
ld hl,(_valuestore)
ld bc,2
or a
sbc hl,bc
jp nz,__end_if_00005
jp _switchcase_00d2
jp __end_else_00005
__end_if_00005:
ld hl,(_valuestore)
ld bc,3
or a
sbc hl,bc
jp nz,__end_if_00006
jp _switchcase_00d3
jp __end_else_00006
__end_if_00006:
ld hl,(_valuestore)
ld bc,4
or a
sbc hl,bc
jp nz,__end_if_00007
jp _switchcase_00d4
jp __end_else_00007
__end_if_00007:
ld hl,(_valuestore)
ld bc,5
or a
sbc hl,bc
jp nz,__end_if_00008
jp _switchcase_00d5
jp __end_else_00008
__end_if_00008:
ld hl,(_valuestore)
ld bc,6
or a
sbc hl,bc
jp nz,__end_if_00009
jp _switchcase_00d6
jp __end_else_00009
__end_if_00009:
ld hl,(_valuestore)
ld bc,7
or a
sbc hl,bc
jp nz,__end_if_00010
jp _switchcase_00d7
jp __end_else_00010
__end_if_00010:
ld hl,(_valuestore)
ld bc,8
or a
sbc hl,bc
jp nz,__end_if_00011
jp _switchcase_00d8
jp __end_else_00011
__end_if_00011:
jp _switchexit_00d0
__end_else_00011:
__end_else_00010:
__end_else_00009:
__end_else_00008:
__end_else_00007:
__end_else_00006:
__end_else_00005:
__end_else_00004:
_switchcase_00d1:
_switchcase_00d2:
_switchcase_00d3:
ld hl,6912
ld (__spr_satblad),hl
ld hl,14336
ld (__spr_sgtblad),hl
jp _switchexit_00d0
_switchcase_00d4:
ld hl,7680
ld (__spr_satblad),hl
ld hl,7168
ld (__spr_sctblad),hl
ld hl,14336
ld (__spr_sgtblad),hl
jp _switchexit_00d0
_switchcase_00d5:
_switchcase_00d6:
ld hl,30208
ld (__spr_satblad),hl
ld hl,29696
ld (__spr_sctblad),hl
ld hl,30720
ld (__spr_sgtblad),hl
jp _switchexit_00d0
_switchcase_00d7:
_switchcase_00d8:
ld hl,64000
ld (__spr_satblad),hl
ld hl,63488
ld (__spr_sctblad),hl
ld hl,61440
ld (__spr_sgtblad),hl
jp _switchexit_00d0
_switchexit_00d0:
ld hl,-1
ld de,(_functiondatareferencestore)
add hl,de
ld a,(hl)
call __chgmod
ret
_sprite_002d_code:
ld hl,-2
ld de,(_functiondatareferencestore)
add hl,de
push hl
ld a,(__spr_length)
ld c,a
ld b,0
pop hl
ld (hl),c
inc hl
ld (hl),b
ld hl,4
ld de,(_functiondatareferencestore)
add hl,de
ld e,(hl)
inc hl
ld d,(hl)
push de
ld hl,6
ld de,(_functiondatareferencestore)
add hl,de
push hl
ld hl,-2
ld de,(_functiondatareferencestore)
add hl,de
ld c,(hl)
inc hl
ld b,(hl)
pop hl
ld e,(hl)
inc hl
ld d,(hl)
ex de,hl
ld de,0
ex de,hl
ld a,16
srl b
rr c
jr nc,$+3
add hl,de
sla e
rl d
dec a
jr nz,$-12
ld b,h
ld c,l
push bc
ld hl,(__spr_sgtblad)
pop bc
add hl,bc
push hl
ld hl,-2
ld de,(_functiondatareferencestore)
add hl,de
ld e,(hl)
inc hl
ld d,(hl)
push de
call _ldirvm_0019
inc sp
inc sp
inc sp
inc sp
inc sp
inc sp
ret
_spritecolor_002e_code:
ld hl,4
ld de,(_functiondatareferencestore)
add hl,de
ld e,(hl)
inc hl
ld d,(hl)
push de
ld hl,6
ld de,(_functiondatareferencestore)
add hl,de
ld e,(hl)
inc hl
ld d,(hl)
ex de,hl
ld a,16
ld de,0
ex de,hl
ld b,8
rra
jr nc,$+3
add hl,de
sla e
rl d
djnz $-8
ld b,h
ld c,l
push bc
ld hl,(__spr_sctblad)
pop bc
add hl,bc
push hl
ld hl,16
push hl
call _ldirvm_0019
inc sp
inc sp
inc sp
inc sp
inc sp
inc sp
ret
_start_004l_code:
ld hl,4
ld de,(_functiondatareferencestore)
add hl,de
ld e,(hl)
inc hl
ld d,(hl)
push de
ld hl,_loop_004o
push hl
call _reg_004n
inc sp
inc sp
inc sp
inc sp
ret
_main_005r_code:
ld a,15
push af
xor a
push af
push af
call _color_0010
inc sp
inc sp
inc sp
inc sp
inc sp
inc sp
ld a,5
call __chgmod
ld a,128
ld b,a
ld a,(#180)
cp #C3
ld a,b
call z,#180
ld a,3
push af
call _mode_002c
inc sp
inc sp
ld hl,_b_004y
push hl
ld hl,16
push hl
call _ldir_001o
inc sp
inc sp
inc sp
inc sp
ld hl,_i_004t
ld (hl),0&#00FF
__start_for_00000:
ld hl,_i_004t
ld a,(hl)
cp 32
jp nc,__end_for_00000
ld hl,_i_004t
ld l,(hl)
ld h,0
push hl
ld hl,_b_004y
push hl
call _spritecolor_002e
inc sp
inc sp
inc sp
inc sp
_forcontinue_00db:
ld hl,_i_004t
inc (hl)
jp __start_for_00000
__end_for_00000:
_forbreak_00dc:
ld hl,_i_004t
ld (hl),0&#00FF
__start_for_00001:
ld hl,_i_004t
ld a,(hl)
cp 4
jp nc,__end_for_00001
ld hl,_i_004t
ld l,(hl)
ld h,0
push hl
ld hl,_i_004t
ld a,(hl)
ld e,32
ld d,a
xor a
ld b,8
srl e
jr nc,$+3
add a,d
sla d
djnz $-7
ld c,a
ld b,0
ld hl,_spptn_0057
add hl,bc
push hl
call _sprite_002d
inc sp
inc sp
inc sp
inc sp
_forcontinue_00dd:
ld hl,_i_004t
inc (hl)
jp __start_for_00001
__end_for_00001:
_forbreak_00de:
ld hl,_i_004t
ld (hl),0&#00FF
__start_for_00002:
ld hl,_i_004t
ld a,(hl)
cp 12
jp nc,__end_for_00002
ld hl,_i_004t
ld c,(hl)
ld b,0
ld hl,_tx_0051
add hl,bc
push hl
ld a,256&#00FF
push af
call _rand_005s
inc sp
inc sp
pop hl
ld (hl),a
ld hl,_i_004t
ld c,(hl)
ld b,0
ld hl,_ty_0052
add hl,bc
push hl
ld a,192
push af
call _rand_005s
inc sp
inc sp
pop hl
ld (hl),a
ld hl,_i_004t
ld c,(hl)
ld b,0
ld hl,_txx_0053
add hl,bc
push hl
ld a,13
push af
call _rand_005s
inc sp
inc sp
sub 6
pop hl
ld (hl),a
ld hl,_i_004t
ld c,(hl)
ld b,0
ld hl,_tyy_0054
add hl,bc
push hl
ld a,7
push af
call _rand_005s
inc sp
inc sp
sub 3
pop hl
ld (hl),a
ld hl,_i_004t
ld l,(hl)
ld h,0
push hl
ld hl,_spcol_0056
push hl
call _spritecolor_002e
inc sp
inc sp
inc sp
inc sp
_forcontinue_00df:
ld hl,_i_004t
inc (hl)
jp __start_for_00002
__end_for_00002:
_forbreak_00dg:
ld a,1
push af
xor a
push af
call _setpage_003j
inc sp
inc sp
inc sp
inc sp
ld hl,_v_004r
ld bc,0
ld (hl),c
inc hl
ld (hl),b
__start_for_00003:
ld hl,_v_004r
ld e,(hl)
inc hl
ld d,(hl)
ex de,hl
ld bc,5
or a
sbc hl,bc
jp nc,__end_for_00003
ld hl,_v_004r
ld e,(hl)
inc hl
ld d,(hl)
ex de,hl
ld a,16
ld de,0
ex de,hl
ld b,8
rra
jr nc,$+3
add hl,de
sla e
rl d
djnz $-8
ld a,l
push af
xor a
push af
ld a,16
push af
push af
ld hl,_v_004r
ld e,(hl)
inc hl
ld d,(hl)
ex de,hl
ld a,16
ld de,0
ex de,hl
ld b,8
rra
jr nc,$+3
add hl,de
sla e
rl d
djnz $-8
ld a,16
ld de,0
ex de,hl
ld b,8
rra
jr nc,$+3
add hl,de
sla e
rl d
djnz $-8
ld b,h
ld c,l
ld hl,2
ld de,0
ex de,hl
ld a,b
ld b,16
sll c
rla
adc hl,hl
sbc hl,de
jr nc,$+4
dec c
add hl,de
djnz $-11
ld h,a
ld l,c
ld b,h
ld c,l
ld hl,_gra_00da
add hl,bc
push hl
call _put_003m
ld hl,10
add hl,sp
ld sp,hl
_forcontinue_00di:
ld hl,_v_004r
ld e,(hl)
inc hl
ld d,(hl)
inc de
ld (hl),d
dec hl
ld (hl),e
jp __start_for_00003
__end_for_00003:
_forbreak_00dj:
ld a,2
push af
ld a,1
push af
call _setpage_003j
inc sp
inc sp
inc sp
inc sp
ld hl,_i_004t
ld (hl),0&#00FF
__start_for_00004:
ld hl,_i_004t
ld a,(hl)
cp 16
jp nc,__end_for_00004
ld hl,_j_004u
ld (hl),0&#00FF
__start_for_00005:
ld hl,_j_004u
ld a,(hl)
cp 16
jp nc,__end_for_00005
ld hl,_j_004u
ld a,(hl)
ld e,16
ld d,a
xor a
ld b,8
srl e
jr nc,$+3
add a,d
sla d
djnz $-7
push af
ld hl,_i_004t
ld a,(hl)
ld e,16
ld d,a
xor a
ld b,8
srl e
jr nc,$+3
add a,d
sla d
djnz $-7
push af
ld a,16
push af
push af
ld a,64
push af
xor a
push af
ld a,8
push af
call _copy_003i
ld hl,14
add hl,sp
ld sp,hl
ld hl,_j_004u
ld a,(hl)
ld e,16
ld d,a
xor a
ld b,8
srl e
jr nc,$+3
add a,d
sla d
djnz $-7
push af
ld hl,_i_004t
ld a,(hl)
ld e,16
ld d,a
xor a
ld b,8
srl e
jr nc,$+3
add a,d
sla d
djnz $-7
push af
ld a,16
push af
push af
ld hl,_a_0050
ld b,(hl)
ld a,16
ld e,b
ld d,a
xor a
ld b,8
srl e
jr nc,$+3
add a,d
sla d
djnz $-7
push af
xor a
push af
ld a,8
push af
call _copy_003i
ld hl,14
add hl,sp
ld sp,hl
ld hl,_a_0050
inc (hl)
ld a,(hl)
cp 4
jp nz,__end_if_00012
ld hl,_a_0050
ld (hl),0&#00FF
__end_if_00012:
_forcontinue_00dm:
ld hl,_j_004u
inc (hl)
jp __start_for_00005
__end_for_00005:
_forbreak_00dn:
_forcontinue_00dk:
ld hl,_i_004t
inc (hl)
jp __start_for_00004
__end_for_00004:
_forbreak_00dl:
ld hl,_a_0050
ld (hl),0&#00FF
ld a,2
call _page_003k
ld a,10
push af
xor a
push af
ld a,7
push af
push af
call _color_003q
ld hl,8
add hl,sp
ld sp,hl
ld a,9
push af
xor a
push af
call _sound_001b
inc sp
inc sp
inc sp
inc sp
ld a,7
push af
ld a,184
push af
call _sound_001b
inc sp
inc sp
inc sp
inc sp
ld hl,__string_00000
push hl
ld hl,__string_00001
push hl
ld a,5
push af
ld a,1
push af
call _playset_005t
ld hl,8
add hl,sp
ld sp,hl
ld hl,_s2_005m
ld bc,0
ld (hl),c
inc hl
ld (hl),b
ld hl,_sxx_005n
ld bc,1
ld (hl),c
inc hl
ld (hl),b
ld hl,_p_ti_005i
ld (hl),0&#00FF
ld hl,_playloop_005u_code
push hl
call _start_004l
inc sp
inc sp
__start_while_00000:
ld a,1
or a
jp z,__end_while_00000
ld hl,_i_004t
ld (hl),2&#00FF
__start_for_00006:
ld hl,_i_004t
ld a,(hl)
cp 6
jp nc,__end_for_00006
ld hl,_i_004t
ld a,(hl)
push af
xor a
push af
ld a,5
push af
ld hl,_i_004t
push hl
ld hl,_a_0050
ld a,(hl)
ld e,2
ld d,a
xor a
ld b,8
sla d
rla
cp e
jr c,$+4
inc d
sub e
djnz $-8
ld a,d
ld b,a
pop de
ld a,(de)
add a,b
and 3
ld b,a
ld a,2
ld e,b
ld d,a
xor a
ld b,8
srl e
jr nc,$+3
add a,d
sla d
djnz $-7
ld b,a
ld a,1
add a,b
push af
call _color_003q
ld hl,8
add hl,sp
ld sp,hl
ld hl,_i_004t
ld a,(hl)
add a,4
push af
xor a
push af
ld a,4
push af
ld hl,_i_004t
push hl
ld hl,_a_0050
ld b,(hl)
pop de
ld a,(de)
add a,b
and 3
ld b,a
ld a,2
ld e,b
ld d,a
xor a
ld b,8
srl e
jr nc,$+3
add a,d
sla d
djnz $-7
ld b,a
ld a,1
add a,b
push af
call _color_003q
ld hl,8
add hl,sp
ld sp,hl
_forcontinue_00dq:
ld hl,_i_004t
inc (hl)
jp __start_for_00006
__end_for_00006:
_forbreak_00dr:
ld hl,_a_0050
inc (hl)
ld a,23
push af
ld hl,_a_0050
ld a,(hl)
push af
call _vdp_0040
inc sp
inc sp
inc sp
inc sp
ld hl,_i_004t
ld (hl),0&#00FF
__start_for_00007:
ld hl,_i_004t
ld a,(hl)
cp 12
jp nc,__end_for_00007
ld hl,_sx_004v
push hl
ld hl,_i_004t
ld c,(hl)
ld b,0
ld hl,_tx_0051
add hl,bc
ld a,(hl)
pop hl
ld (hl),a
ld hl,_sy_004w
push hl
ld hl,_i_004t
ld c,(hl)
ld b,0
ld hl,_ty_0052
add hl,bc
ld a,(hl)
pop hl
ld (hl),a
ld hl,_sc_004x
ld (hl),7&#00FF
call _next_0047
ld bc,3
ld a,h
and b
ld h,a
ld a,l
and c
ld l,a
ld bc,0
or a
sbc hl,bc
jp nz,__end_if_00013
ld hl,_i_004t
ld c,(hl)
ld b,0
ld hl,_th_0055
add hl,bc
push hl
ld a,2
push af
call _rand_005s
inc sp
inc sp
pop hl
ld (hl),a
ld hl,_i_004t
ld c,(hl)
ld b,0
ld hl,_th_0055
add hl,bc
ld a,(hl)
or a
jp nz,__end_if_00014
ld hl,_i_004t
ld c,(hl)
ld b,0
ld hl,_txx_0053
add hl,bc
push hl
call _next_0047
ld b,h
ld c,l
ld hl,13
ld de,0
ex de,hl
ld a,b
ld b,16
sll c
rla
adc hl,hl
sbc hl,de
jr nc,$+4
add hl,de
dec c
djnz $-11
ld a,l
sub 6
pop hl
ld (hl),a
ld hl,_i_004t
ld c,(hl)
ld b,0
ld hl,_tyy_0054
add hl,bc
push hl
call _next_0047
ld b,h
ld c,l
ld hl,7
ld de,0
ex de,hl
ld a,b
ld b,16
sll c
rla
adc hl,hl
sbc hl,de
jr nc,$+4
add hl,de
dec c
djnz $-11
ld a,l
sub 3
pop hl
ld (hl),a
__end_if_00014:
__end_if_00013:
ld hl,_i_004t
ld c,(hl)
ld b,0
ld hl,_th_0055
add hl,bc
ld l,(hl)
ld h,0
ld (_valuestore),hl
ld hl,(_valuestore)
ld bc,0
or a
sbc hl,bc
jp nz,__end_if_00015
jp _switchcase_00dw
jp __end_else_00015
__end_if_00015:
jp _switchdefault_00du
__end_else_00015:
_switchcase_00dw:
ld hl,_sx_004v
push hl
ld hl,_i_004t
ld c,(hl)
ld b,0
ld hl,_txx_0053
add hl,bc
ld a,(hl)
pop hl
add a,(hl)
ld (hl),a
ld hl,_sy_004w
push hl
ld hl,_i_004t
ld c,(hl)
ld b,0
ld hl,_tyy_0054
add hl,bc
ld a,(hl)
pop hl
add a,(hl)
ld (hl),a
ld hl,_i_004t
ld c,(hl)
ld b,0
ld hl,_txx_0053
add hl,bc
ld b,(hl)
ld a,128
cp b
jp nc,__end_if_00016
ld hl,_i_004t
ld c,(hl)
ld b,0
ld hl,_tc_004z
add hl,bc
push hl
ld hl,_i_004t
ld c,(hl)
ld b,0
ld hl,_tc_004z
add hl,bc
ld a,(hl)
or a
ld a,0
jr nz,$+3
inc a
or a
jp z,__conditional_false_00000
ld a,1
jp __conditional_end_00000
__conditional_false_00000:
xor a
__conditional_end_00000:
pop hl
ld (hl),a
jp __end_else_00016
__end_if_00016:
ld hl,_i_004t
ld c,(hl)
ld b,0
ld hl,_tc_004z
add hl,bc
push hl
ld hl,_i_004t
ld c,(hl)
ld b,0
ld hl,_tc_004z
add hl,bc
ld a,(hl)
cp 2
ld a,0
jr nz,$+3
inc a
or a
jp z,__conditional_false_00001
ld a,3
jp __conditional_end_00001
__conditional_false_00001:
ld a,2
__conditional_end_00001:
pop hl
ld (hl),a
__end_else_00016:
jp _switchexit_00dv
_switchdefault_00du:
ld hl,_i_004t
ld c,(hl)
ld b,0
ld hl,_tc_004z
add hl,bc
push hl
ld hl,_i_004t
ld c,(hl)
ld b,0
ld hl,_txx_0053
add hl,bc
ld b,(hl)
ld a,128
cp b
ld a,0
rla
or a
jp z,__conditional_false_00002
xor a
jp __conditional_end_00002
__conditional_false_00002:
ld a,2
__conditional_end_00002:
pop hl
ld (hl),a
jp _switchexit_00dv
_switchexit_00dv:
ld hl,_j_004u
ld (hl),0&#00FF
__start_for_00008:
ld hl,_j_004u
ld a,(hl)
cp 12
jp nc,__end_for_00008
ld hl,_i_004t
push hl
ld hl,_j_004u
ld b,(hl)
pop de
ld a,(de)
sub b
jr z,$+4
ld a,1
push af
ld hl,_j_004u
ld c,(hl)
ld b,0
ld hl,_tx_0051
add hl,bc
push hl
ld hl,_sx_004v
ld b,(hl)
pop de
ld a,(de)
sub b
bit 7,a
jr z,$+3
neg
cp 27
ld a,0
rla
ld b,a
pop af
or a
jr z,$+8
ld a,b
or a
jr z,$+4
ld a,1
push af
ld hl,_j_004u
ld c,(hl)
ld b,0
ld hl,_ty_0052
add hl,bc
push hl
ld hl,_sy_004w
ld b,(hl)
pop de
ld a,(de)
sub b
bit 7,a
jr z,$+3
neg
cp 24
ld a,0
rla
ld b,a
pop af
or a
jr z,$+8
ld a,b
or a
jr z,$+4
ld a,1
or a
jp z,__end_if_00017
ld hl,_sx_004v
push hl
ld hl,_j_004u
ld c,(hl)
ld b,0
ld hl,_tx_0051
add hl,bc
ld b,(hl)
pop de
ld a,(de)
cp b
jp nc,__end_if_00018
ld hl,_sx_004v
push hl
call _next_0047
ld b,h
ld c,l
ld hl,10
ld de,0
ex de,hl
ld a,b
ld b,16
sll c
rla
adc hl,hl
sbc hl,de
jr nc,$+4
add hl,de
dec c
djnz $-11
ld a,l
ld b,a
pop hl
ld a,(hl)
sub b
ld (hl),a
jp __end_else_00018
__end_if_00018:
ld hl,_sx_004v
push hl
call _next_0047
ld b,h
ld c,l
ld hl,10
ld de,0
ex de,hl
ld a,b
ld b,16
sll c
rla
adc hl,hl
sbc hl,de
jr nc,$+4
add hl,de
dec c
djnz $-11
ld a,l
pop hl
add a,(hl)
ld (hl),a
__end_else_00018:
ld hl,_sy_004w
push hl
ld hl,_j_004u
ld c,(hl)
ld b,0
ld hl,_ty_0052
add hl,bc
ld b,(hl)
pop de
ld a,(de)
cp b
jp nc,__end_if_00019
ld hl,_sy_004w
push hl
call _next_0047
ld b,h
ld c,l
ld hl,10
ld de,0
ex de,hl
ld a,b
ld b,16
sll c
rla
adc hl,hl
sbc hl,de
jr nc,$+4
add hl,de
dec c
djnz $-11
ld a,l
ld b,a
pop hl
ld a,(hl)
sub b
ld (hl),a
jp __end_else_00019
__end_if_00019:
ld hl,_sy_004w
push hl
call _next_0047
ld b,h
ld c,l
ld hl,10
ld de,0
ex de,hl
ld a,b
ld b,16
sll c
rla
adc hl,hl
sbc hl,de
jr nc,$+4
add hl,de
dec c
djnz $-11
ld a,l
pop hl
add a,(hl)
ld (hl),a
__end_else_00019:
__end_if_00017:
_forcontinue_00dx:
ld hl,_j_004u
inc (hl)
jp __start_for_00008
__end_for_00008:
_forbreak_00dy:
ld hl,_sy_004w
inc (hl)
ld hl,_sx_004v
ld a,(hl)
cp 16
jp nc,__end_if_00020
ld hl,_sx_004v
ld (hl),16&#00FF
__end_if_00020:
ld hl,_sx_004v
ld b,(hl)
ld a,160
cp b
jp nc,__end_if_00021
ld hl,_sx_004v
ld (hl),160&#00FF
__end_if_00021:
ld hl,_sy_004w
ld a,(hl)
cp 216
jp nz,__end_if_00022
ld hl,_sy_004w
ld (hl),217&#00FF
__end_if_00022:
ld hl,_i_004t
ld a,(hl)
push af
ld hl,_sx_004v
ld a,(hl)
push af
ld hl,_sy_004w
ld a,(hl)
push af
ld hl,_sc_004x
ld a,(hl)
push af
ld hl,_i_004t
ld c,(hl)
ld b,0
ld hl,_tc_004z
add hl,bc
ld a,(hl)
ld e,4
ld d,a
xor a
ld b,8
srl e
jr nc,$+3
add a,d
sla d
djnz $-7
push af
call _put_002f
ld hl,10
add hl,sp
ld sp,hl
ld hl,_i_004t
ld c,(hl)
ld b,0
ld hl,_tx_0051
add hl,bc
push hl
ld hl,_sx_004v
ld a,(hl)
pop hl
ld (hl),a
ld hl,_i_004t
ld c,(hl)
ld b,0
ld hl,_ty_0052
add hl,bc
push hl
ld hl,_sy_004w
ld a,(hl)
pop hl
ld (hl),a
_forcontinue_00ds:
ld hl,_i_004t
inc (hl)
jp __start_for_00007
__end_for_00007:
_forbreak_00dt:
ld a,7
call __snsmat
and 4
or a
jp nz,__end_if_00023
call __kilbuf
jp _whilebreak_00dp
__end_if_00023:
_whilecontinue_00do:
jp __start_while_00000
__end_while_00000:
_whilebreak_00dp:
call _stop_004m
ret
_rand_005s_code:
ld hl,5
ld de,(_functiondatareferencestore)
add hl,de
ld l,(hl)
ld h,0
push hl
call _next_0047
ld b,h
ld c,l
pop hl
ld de,0
ex de,hl
ld a,b
ld b,16
sll c
rla
adc hl,hl
sbc hl,de
jr nc,$+4
add hl,de
dec c
djnz $-11
ld a,l
ret
_playset_005t_code:
ld hl,_ply_p_0059
push hl
ld hl,10
ld de,(_functiondatareferencestore)
add hl,de
ld c,(hl)
inc hl
ld b,(hl)
pop hl
ld (hl),c
inc hl
ld (hl),b
ld hl,_ply_sta_005c
push hl
ld hl,_ply_p_0059
ld c,(hl)
inc hl
ld b,(hl)
pop hl
ld (hl),c
inc hl
ld (hl),b
ld hl,_ply_p2_005k
push hl
ld hl,8
ld de,(_functiondatareferencestore)
add hl,de
ld c,(hl)
inc hl
ld b,(hl)
pop hl
ld (hl),c
inc hl
ld (hl),b
ld hl,_ply_sta2_005l
push hl
ld hl,_ply_p2_005k
ld c,(hl)
inc hl
ld b,(hl)
pop hl
ld (hl),c
inc hl
ld (hl),b
ld hl,_ply_flg_005d
ld (hl),1&#00FF
ld hl,_ply_l_005e
ld (hl),0&#00FF
ld hl,_ply_sp_005h
push hl
ld hl,7
ld de,(_functiondatareferencestore)
add hl,de
ld a,(hl)
pop hl
ld (hl),a
ld hl,_ply_mo_005j
push hl
ld hl,5
ld de,(_functiondatareferencestore)
add hl,de
ld a,(hl)
pop hl
ld (hl),a
ret
_playloop_005u_code:
ld hl,_p_ti_005i
inc (hl)
ld a,(hl)
cp 3
jp nz,__end_if_00024
ld hl,_p_ti_005i
ld (hl),0&#00FF
jp __end_else_00024
__end_if_00024:
ret
__end_else_00024:
ld hl,_p_a_005a
push hl
ld hl,_ply_p_0059
ld e,(hl)
inc hl
ld d,(hl)
ld a,(de)
ld c,a
ld b,0
pop hl
ld (hl),c
inc hl
ld (hl),b
ld hl,_p_a_005a
ld e,(hl)
inc hl
ld d,(hl)
ex de,hl
ld bc,126
or a
sbc hl,bc
jp nz,__end_if_00025
ld hl,_ply_p_0059
push hl
ld hl,_ply_sta_005c
ld c,(hl)
inc hl
ld b,(hl)
pop hl
ld (hl),c
inc hl
ld (hl),b
ld hl,_p_a_005a
push hl
ld hl,_ply_p_0059
ld e,(hl)
inc hl
ld d,(hl)
ld a,(de)
ld c,a
ld b,0
pop hl
ld (hl),c
inc hl
ld (hl),b
__end_if_00025:
ld hl,_p_a_005a
ld e,(hl)
inc hl
ld d,(hl)
ex de,hl
ld bc,82
or a
sbc hl,bc
jp nz,__end_if_00026
ld a,9
push af
xor a
push af
call _sound_001b
inc sp
inc sp
inc sp
inc sp
jp __end_else_00026
__end_if_00026:
ld hl,_p_a_005a
ld e,(hl)
inc hl
ld d,(hl)
ex de,hl
ld bc,49
xor a
sbc hl,bc
ccf
rla
push af
ld hl,_p_a_005a
ld c,(hl)
inc hl
ld b,(hl)
ld hl,56
xor a
sbc hl,bc
ccf
rla
ld b,a
pop af
or a
jr z,$+8
ld a,b
or a
jr z,$+4
ld a,1
or a
jp z,__end_if_00027
ld hl,_ply_o_005f
push hl
ld hl,_p_a_005a
ld e,(hl)
inc hl
ld d,(hl)
ex de,hl
ld bc,49
or a
sbc hl,bc
ld a,l
pop hl
ld (hl),a
ld hl,_ply_p_0059
ld e,(hl)
inc hl
ld d,(hl)
inc de
ld (hl),d
dec hl
ld (hl),e
ld hl,_p_a_005a
push hl
ld hl,_ply_p_0059
ld e,(hl)
inc hl
ld d,(hl)
ld a,(de)
ld c,a
ld b,0
pop hl
ld (hl),c
inc hl
ld (hl),b
__end_if_00027:
ld hl,_p_p_005b
push hl
ld hl,_ply_o_005f
ld a,(hl)
inc a
ld c,a
ld b,0
pop hl
ld (hl),c
inc hl
ld (hl),b
ld hl,_p_p_005b
push hl
ld hl,_p_p_005b
ld e,(hl)
inc hl
ld d,(hl)
ex de,hl
ld a,14
ld de,0
ex de,hl
ld b,8
rra
jr nc,$+3
add hl,de
sla e
rl d
djnz $-8
ld b,h
ld c,l
ld hl,_ply_tbl_0058
add hl,bc
push hl
ld hl,_p_a_005a
ld e,(hl)
inc hl
ld d,(hl)
ex de,hl
ld bc,65
or a
sbc hl,bc
ld a,2
ld de,0
ex de,hl
ld b,8
rra
jr nc,$+3
add hl,de
sla e
rl d
djnz $-8
ld b,h
ld c,l
pop hl
add hl,bc
ld b,h
ld c,l
pop hl
ld (hl),c
inc hl
ld (hl),b
ld hl,_ply_l_005e
push hl
ld hl,_ply_sp_005h
ld a,(hl)
sub 2
pop hl
cp (hl)
ld a,0
rla
push af
ld hl,_ply_mo_005j
ld a,(hl)
cp 1
ld a,0
jr nz,$+3
inc a
ld b,a
pop af
or a
jr z,$+8
ld a,b
or a
jr z,$+4
ld a,1
push af
ld hl,_ply_p_0059
ld e,(hl)
inc hl
ld d,(hl)
ex de,hl
inc hl
ld a,(hl)
sub 46
jr z,$+4
ld a,1
ld b,a
pop af
or a
jr z,$+8
ld a,b
or a
jr z,$+4
ld a,1
or a
jp z,__end_if_00028
ld a,9
push af
xor a
push af
call _sound_001b
inc sp
inc sp
inc sp
inc sp
ld a,8
push af
xor a
push af
call _sound_001b
inc sp
inc sp
inc sp
inc sp
jp __end_else_00028
__end_if_00028:
ld a,9
push af
ld a,13
push af
call _sound_001b
inc sp
inc sp
inc sp
inc sp
ld a,9
push af
ld a,11
push af
call _sound_001b
inc sp
inc sp
inc sp
inc sp
__end_else_00028:
ld hl,_p_a_005a
push hl
ld hl,_p_p_005b
ld e,(hl)
inc hl
ld d,(hl)
ex de,hl
inc hl
ld c,(hl)
ld b,0
pop hl
ld (hl),c
inc hl
ld (hl),b
ld a,2
push af
ld hl,_p_a_005a
ld a,(hl)
push af
call _sound_001b
inc sp
inc sp
inc sp
inc sp
ld a,3
push af
ld hl,_p_p_005b
ld e,(hl)
inc hl
ld d,(hl)
ld a,(de)
push af
call _sound_001b
inc sp
inc sp
inc sp
inc sp
ld hl,_p_p_005b
push hl
ld hl,_ply_o_005f
ld a,(hl)
dec a
ld c,a
ld b,0
pop hl
ld (hl),c
inc hl
ld (hl),b
ld hl,_p_p_005b
push hl
ld hl,_p_p_005b
ld e,(hl)
inc hl
ld d,(hl)
ex de,hl
ld a,14
ld de,0
ex de,hl
ld b,8
rra
jr nc,$+3
add hl,de
sla e
rl d
djnz $-8
ld b,h
ld c,l
ld hl,_ply_tbl_0058
add hl,bc
push hl
ld hl,_p_a_005a
ld e,(hl)
inc hl
ld d,(hl)
ex de,hl
ld bc,65
or a
sbc hl,bc
ld a,2
ld de,0
ex de,hl
ld b,8
rra
jr nc,$+3
add hl,de
sla e
rl d
djnz $-8
ld b,h
ld c,l
pop hl
add hl,bc
ld b,h
ld c,l
pop hl
ld (hl),c
inc hl
ld (hl),b
ld hl,_p_a_005a
push hl
ld hl,_p_p_005b
ld e,(hl)
inc hl
ld d,(hl)
ex de,hl
inc hl
ld c,(hl)
ld b,0
pop hl
ld (hl),c
inc hl
ld (hl),b
xor a
push af
ld hl,_p_a_005a
ld a,(hl)
push af
call _sound_001b
inc sp
inc sp
inc sp
inc sp
ld a,1
push af
ld hl,_p_p_005b
ld e,(hl)
inc hl
ld d,(hl)
ld a,(de)
push af
call _sound_001b
inc sp
inc sp
inc sp
inc sp
__end_else_00026:
ld hl,_p_a_005a
push hl
ld hl,_ply_p2_005k
ld e,(hl)
inc hl
ld d,(hl)
ld a,(de)
ld c,a
ld b,0
pop hl
ld (hl),c
inc hl
ld (hl),b
ld hl,_p_a_005a
ld e,(hl)
inc hl
ld d,(hl)
ex de,hl
ld bc,126
or a
sbc hl,bc
jp nz,__end_if_00029
ld hl,_ply_p2_005k
push hl
ld hl,_ply_sta2_005l
ld c,(hl)
inc hl
ld b,(hl)
pop hl
ld (hl),c
inc hl
ld (hl),b
ld hl,_p_a_005a
push hl
ld hl,_ply_p2_005k
ld e,(hl)
inc hl
ld d,(hl)
ld a,(de)
ld c,a
ld b,0
pop hl
ld (hl),c
inc hl
ld (hl),b
__end_if_00029:
ld hl,_p_a_005a
ld e,(hl)
inc hl
ld d,(hl)
ex de,hl
ld bc,82
or a
sbc hl,bc
jp nz,__end_if_00030
ld a,10
push af
xor a
push af
call _sound_001b
inc sp
inc sp
inc sp
inc sp
jp __end_else_00030
__end_if_00030:
ld hl,_p_a_005a
ld e,(hl)
inc hl
ld d,(hl)
ex de,hl
ld bc,49
xor a
sbc hl,bc
ccf
rla
push af
ld hl,_p_a_005a
ld c,(hl)
inc hl
ld b,(hl)
ld hl,56
xor a
sbc hl,bc
ccf
rla
ld b,a
pop af
or a
jr z,$+8
ld a,b
or a
jr z,$+4
ld a,1
or a
jp z,__end_if_00031
ld hl,_ply_o2_005g
push hl
ld hl,_p_a_005a
ld e,(hl)
inc hl
ld d,(hl)
ex de,hl
ld bc,49
or a
sbc hl,bc
ld a,l
pop hl
ld (hl),a
ld hl,_ply_p2_005k
ld e,(hl)
inc hl
ld d,(hl)
inc de
ld (hl),d
dec hl
ld (hl),e
ld hl,_p_a_005a
push hl
ld hl,_ply_p2_005k
ld e,(hl)
inc hl
ld d,(hl)
ld a,(de)
ld c,a
ld b,0
pop hl
ld (hl),c
inc hl
ld (hl),b
__end_if_00031:
ld hl,_p_p_005b
push hl
ld hl,_ply_o2_005g
ld c,(hl)
ld b,0
pop hl
ld (hl),c
inc hl
ld (hl),b
ld hl,_p_p_005b
push hl
ld hl,_p_p_005b
ld e,(hl)
inc hl
ld d,(hl)
ex de,hl
ld a,14
ld de,0
ex de,hl
ld b,8
rra
jr nc,$+3
add hl,de
sla e
rl d
djnz $-8
ld b,h
ld c,l
ld hl,_ply_tbl_0058
add hl,bc
push hl
ld hl,_p_a_005a
ld e,(hl)
inc hl
ld d,(hl)
ex de,hl
ld bc,65
or a
sbc hl,bc
ld a,2
ld de,0
ex de,hl
ld b,8
rra
jr nc,$+3
add hl,de
sla e
rl d
djnz $-8
ld b,h
ld c,l
pop hl
add hl,bc
ld b,h
ld c,l
pop hl
ld (hl),c
inc hl
ld (hl),b
ld hl,_ply_l_005e
push hl
ld hl,_ply_sp_005h
ld a,(hl)
sub 2
pop hl
cp (hl)
ld a,0
rla
push af
ld hl,_ply_mo_005j
ld a,(hl)
cp 1
ld a,0
jr nz,$+3
inc a
ld b,a
pop af
or a
jr z,$+8
ld a,b
or a
jr z,$+4
ld a,1
push af
ld hl,_ply_p2_005k
ld e,(hl)
inc hl
ld d,(hl)
ex de,hl
inc hl
ld a,(hl)
sub 46
jr z,$+4
ld a,1
ld b,a
pop af
or a
jr z,$+8
ld a,b
or a
jr z,$+4
ld a,1
or a
jp z,__end_if_00032
ld a,10
push af
xor a
push af
call _sound_001b
inc sp
inc sp
inc sp
inc sp
jp __end_else_00032
__end_if_00032:
ld a,10
push af
ld a,12
push af
call _sound_001b
inc sp
inc sp
inc sp
inc sp
__end_else_00032:
ld hl,_p_a_005a
push hl
ld hl,_p_p_005b
ld e,(hl)
inc hl
ld d,(hl)
ex de,hl
inc hl
ld c,(hl)
ld b,0
pop hl
ld (hl),c
inc hl
ld (hl),b
ld a,4
push af
ld hl,_p_a_005a
ld a,(hl)
push af
call _sound_001b
inc sp
inc sp
inc sp
inc sp
ld a,5
push af
ld hl,_p_p_005b
ld e,(hl)
inc hl
ld d,(hl)
ld a,(de)
push af
call _sound_001b
inc sp
inc sp
inc sp
inc sp
__end_else_00030:
ld hl,_ply_l_005e
inc (hl)
ld a,(hl)
push af
ld hl,_ply_sp_005h
ld b,(hl)
pop af
cp b
jp nz,__end_if_00033
ld hl,_ply_l_005e
ld (hl),0&#00FF
ld hl,_ply_p_0059
ld e,(hl)
inc hl
ld d,(hl)
inc de
ld (hl),d
dec hl
ld (hl),e
ld hl,_ply_p2_005k
ld e,(hl)
inc hl
ld d,(hl)
inc de
ld (hl),d
dec hl
ld (hl),e
__end_if_00033:
ret
_color_0010:
ld hl,3
add hl,sp
ld a,(hl)
ld (#F3EB),a
inc hl
inc hl
ld a,(hl)
ld (#F3EA),a
inc hl
inc hl
ld a,(hl)
ld (#F3E9),a
jp __chgclr
_color_003q:
ld hl,3
add hl,sp
ld b,(hl)
inc hl
inc hl
ld e,(hl)
inc hl
inc hl
ld a,(hl)
inc hl
inc hl
ld d,(hl)
sla a
sla a
sla a
sla a
add a,b
ld ix,#14D
jp #15F
_copy_003i:
ld hl,3
add hl,sp
ld a,(hl)
push af
inc hl
inc hl
ld c,(hl)
inc hl
inc hl
ld b,(hl)
inc hl
inc hl
push bc
ld e,(hl)
inc hl
inc hl
ld d,(hl)
inc hl
inc hl
ld c,(hl)
inc hl
inc hl
ld b,(hl)
pop hl
push bc
di
call waitvdp
ld a,(7)
ld c,a
inc c
ld a,32
out (c),a
ld a,#80+17
out (c),a
inc c
inc c
xor a
out (c),h
out (c),a
ld a,(__srcpage)
out (c),l
out (c),a
pop hl
xor a
out (c),h
out (c),a
ld a,(__drawpage)
out (c),l
out (c),a
xor a
out (c),d
out (c),a
out (c),e
out (c),a
out (c),a
out (c),a
pop af
or %10010000
out (c),a
ei
ret
_functiondatareferencestore:
defw 0
_ldir_001o:
ld hl,2
add hl,sp
ld c,(hl)
inc hl
ld b,(hl)
dec bc
inc hl
ld e,(hl)
inc hl
ld d,(hl)
ld h,d
ld l,e
inc de
xor a
ld (hl),a
ldir
ret
_ldirvm_0019:
ld hl,2
add hl,sp
ld c,(hl)
inc hl
ld b,(hl)
inc hl
ld e,(hl)
inc hl
ld d,(hl)
inc hl
ld a,(hl)
inc hl
ld h,(hl)
ld l,a
jp __ldirvm
_loop_004o:
push af
push bc
push de
push hl
push ix
push iy
call __timer_jump
pop iy
pop ix
pop hl
pop de
pop bc
pop af
jp __timer_func_org
__timer_jump: ld hl,(__timer_func_addr)
jp (hl)
_mode_002c:
ld hl,(_functiondatareferencestore)
push hl
ld (_functiondatareferencestore),sp
ld hl,-1
add hl,sp
ld sp,hl
call _mode_002c_code
ld hl,(_functiondatareferencestore)
ld sp,hl
pop hl
ld (_functiondatareferencestore),hl
ret
_next_0047:
__rand:
ld de,0
ld a,d
ld h,e
ld l,253
or a
sbc hl,de
sbc a,0
sbc hl,de
ld d,0
sbc a,d
ld e,a
sbc hl,de
jr nc,__rand_1
inc hl
__rand_1:
ld (__rand+1),hl
ret
_page_003k:
ld c,#99
add a,a
add a,a
add a,a
add a,a
add a,a
or %11111
di
out (c),a
ei
ld a,128+2
out (c),a
ret
_playset_005t:
ld hl,(_functiondatareferencestore)
push hl
ld (_functiondatareferencestore),sp
call _playset_005t_code
pop hl
ld (_functiondatareferencestore),hl
ret
_put_002f:
ld hl,3
add hl,sp
ld a,(hl)
ld (__spr_satbl+2),a
inc hl
inc hl
ld a,(hl)
ld (__spr_satbl+3),a
inc hl
inc hl
ld a,(hl)
ld (__spr_satbl),a
inc hl
inc hl
ld a,(hl)
ld (__spr_satbl+1),a
inc hl
inc hl
ld a,(hl)
ld l,a
ld h,0
ld a,4
ld de,0
ex de,hl
ld b,8
rra
jr nc,$+3
add hl,de
sla e
rl d
djnz $-8
ld b,h
ld c,l
ld hl,(__spr_satblad)
add hl,bc
ex de,hl
ld bc,4
ld hl,__spr_satbl
jp #5C
_put_003m:
ld hl,2
add hl,sp
ld c,(hl)
inc hl
ld b,(hl)
push bc
pop ix
inc hl
inc hl
ld e,(hl)
inc hl
inc hl
ld d,(hl)
inc hl
inc hl
ld c,(hl)
inc hl
inc hl
ld b,(hl)
ld h,b
ld l,c
hmmc: di
call waitvdp
ld a,(7)
ld c,a
inc c
ld a,36
out (c),a
ld a,17+#80
out (c),a
inc c
inc c
xor a
out (c),h
out (c),a
ld a,(__drawpage)
out (c),l
out (c),a
xor a
out (c),d
out (c),a
out (c),e
out (c),a
ld h,(ix+0)
out (c),h
out (c),a
ld a,#F0
out (c),a
ld a,(7)
ld c,a
inc c
ld a,44+#80
out (c),a
ld a,17+#80
out (c),a
inc c
inc c
loop_hmmc: ld a,2
call getstatus
bit 0,a
jr z,exit_hmmc
bit 7,a
jr z,loop_hmmc
inc ix
ld a,(ix+0)
out (c),a
jr loop_hmmc
exit_hmmc:
ld a,0
call getstatus
ei
ret
_rand_005s:
ld hl,(_functiondatareferencestore)
push hl
ld (_functiondatareferencestore),sp
call _rand_005s_code
pop hl
ld (_functiondatareferencestore),hl
ret
_reg_004n:
ld hl,2
add hl,sp
ld c,(hl)
inc hl
ld b,(hl)
inc hl
ld e,(hl)
inc hl
ld d,(hl)
ex de,hl
ld (__timer_func_addr),hl
push bc
ld hl,#FD9F
ld de,__timer_func_org
ld bc,5
ldir
pop hl
di
ld a,#C3
ld (#FD9F),a
ld (#FDA0),hl
ei
ret
__timer_func_addr:
defs 2
__timer_func_org:
defs 5
_setpage_003j:
ld hl,3
add hl,sp
ld a,(hl)
ld (__srcpage),a
inc hl
inc hl
ld a,(hl)
ld (__drawpage),a
ret
_sound_001b:
ld hl,3
add hl,sp
ld e,(hl)
inc hl
inc hl
ld a,(hl)
jp __wrtpsg
_sprite_002d:
ld hl,(_functiondatareferencestore)
push hl
ld (_functiondatareferencestore),sp
ld hl,-2
add hl,sp
ld sp,hl
call _sprite_002d_code
ld hl,(_functiondatareferencestore)
ld sp,hl
pop hl
ld (_functiondatareferencestore),hl
ret
_spritecolor_002e:
ld hl,(_functiondatareferencestore)
push hl
ld (_functiondatareferencestore),sp
call _spritecolor_002e_code
pop hl
ld (_functiondatareferencestore),hl
ret
_spvalues_002b:
__spr_satbl:
defs 4
__spr_satblad:
defs 2
__spr_sgtblad:
defs 2
__spr_sctblad:
defs 2
__spr_length:
defs 1
_start_004l:
ld hl,(_functiondatareferencestore)
push hl
ld (_functiondatareferencestore),sp
call _start_004l_code
pop hl
ld (_functiondatareferencestore),hl
ret
_stop_004m:
di
ld hl,__timer_func_org
ld de,#FD9F
ld bc,5
ldir
ei
ret
_values_000y:
__chkram: equ #0000
__synchr: equ #0008
__rdslt: equ #000C
__chrgtr: equ #0010
__wrslt: equ #0014
__outdo: equ #0018
__calslt: equ #001C
__dcompr: equ #0020
__enaslt: equ #0024
__getypr: equ #0028
__callf: equ #0030
__keyint: equ #0038
__initio: equ #003B
__inifnk: equ #003E
__disscr: equ #0041
__enascr: equ #0044
__wrtvdp: equ #0047
__rdvrm: equ #004A
__wrtvrm: equ #004D
__setrd: equ #0050
__setwrt: equ #0053
__filvrm: equ #0056
__ldirmv: equ #0059
__ldirvm: equ #005C
__chgmod: equ #005F
__chgclr: equ #0062
__nmi: equ #0066
__clrspr: equ #0069
__initxt: equ #006C
__init32: equ #006F
__inigrp: equ #0072
__inimlt: equ #0075
__settxt: equ #0078
__sett32: equ #007B
__setgrp: equ #007E
__setmlt: equ #0081
__calpat: equ #0084
__calatr: equ #0087
__gspsiz: equ #008A
__grpprt: equ #008D
__gicini: equ #0090
__wrtpsg: equ #0093
__rdpsg: equ #0096
__strtms: equ #0099
__chsns: equ #009C
__chget: equ #009F
__chput: equ #00A2
__lptout: equ #00A5
__lptstt: equ #00A8
__cnvchr: equ #00AB
__pinlin: equ #00AE
__inlin: equ #00B1
__qinlin: equ #00B4
__breakx: equ #00B7
__beep: equ #00C0
__cls: equ #00C3
__posit: equ #00C6
__fnksb: equ #00C9
__erafnk: equ #00CC
__dspfnk: equ #00CF
__totext: equ #00D2
__gtstck: equ #00D5
__gttrig: equ #00D8
__gtpad: equ #00DB
__gtpdl: equ #00DE
__tapion: equ #00E1
__tapin: equ #00E4
__tapiof: equ #00E7
__tapoon: equ #00EA
__tapout: equ #00ED
__tapoof: equ #00F0
__stmotr: equ #00F3
__chgcap: equ #0132
__chgsnd: equ #0135
__rslreg: equ #0138
__wslreg: equ #013B
__rdvdp: equ #013E
__snsmat: equ #0141
__phydio: equ #0144
__isflio: equ #014A
__outdlp: equ #014D
__kilbuf: equ #0156
__calbas: equ #0159
_values_003e:
getstatus:
push bc
ld bc,(6)
inc c
out (c),a
ld a,#8F
out (c),a
in a,(c)
pop bc
ret
waitvdp:
ld a,2
call getstatus
and 1
jp nz,waitvdp
xor a
call getstatus
ret
__drawpage:
defs 1
__srcpage:
defs 1
_valuestore:
defw 0
_vdp_0040:
ld hl,3
add hl,sp
ld b,(hl)
inc hl
inc hl
ld c,(hl)
ld ix,#12D
jp #15F
__string_00000:
defb "4","C","5","C","4","G","R","D","R","D","R","4","C","5","C","4","E","R","G","R","B","R","4","C"
defb "5","C","4","G","R","D","R","E","R","4","C","5","C","4","E","R","G","R","C","R","4","C","5","C"
defb "R","R","4","G","R","C","R","5","C","R","4","G","R","5","C","R","D","R","4","C","5","C","4","G"
defb "R","C","G","5","C","R","4","G","5","C","4","C","R","C","R","R","R","~",#00
__string_00001:
defb "2","C","R","C","R","C","R","C","R","C","R","C","R","C","R","C","R","~",#00
_a_0050:
defb 0
_i_004t:
defb 0
_j_004u:
defb 0
_p_a_005a:
defw 0
_p_p_005b:
defw 0
_p_ti_005i:
defb 0
_ply_flg_005d:
defb 0
_ply_l_005e:
defb 0
_ply_mo_005j:
defb 0
_ply_o_005f:
defb 0
_ply_o2_005g:
defb 0
_ply_p_0059:
defw 0
_ply_p2_005k:
defw 0
_ply_sp_005h:
defb 0
_ply_sta_005c:
defw 0
_ply_sta2_005l:
defw 0
_s2_005m:
defw 0
_sc_004x:
defb 0
_sx_004v:
defb 0
_sxx_005n:
defw 0
_sy_004w:
defb 0
_v_004r:
defw 0
_b_004y:
defs 16
_gra_00da:
defb 0,0,0,0,0,0,0,0,0,51,48,0,0,3,51,0,3,68,67,0,0,52,68,48,3,68,67,0,0,52,68,48,3,51,51,51
defb 51,51,51,48,3,51,51,51,51,51,51,48,3,51,51,51,51,51,51,48,3,51,85,51,51,85,51,48,3,51,85,51
defb 51,85,51,48,0,51,51,51,51,51,51,0,0,51,51,51,51,51,51,0,0,3,51,51,51,51,48,0,0,3,51,51,51
defb 51,48,0,0,0,51,51,51,51,0,0,0,0,3,53,83,48,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,85
defb 80,0,0,4,68,0,4,85,84,0,0,69,85,64,4,85,84,0,0,69,85,64,4,68,68,68,68,68,68,64,4,68,68,68
defb 68,68,68,64,4,68,68,68,68,68,68,64,4,68,34,68,68,34,68,64,4,68,34,68,68,34,68,64,0,68,68,68
defb 68,68,68,0,0,68,68,68,68,68,68,0,0,4,68,68,68,68,64,0,0,4,68,68,68,68,64,0,0,0,68,68,68
defb 68,0,0,0,0,4,66,36,64,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,85,80,0,0,5,85,0,5,34,37
defb 0,0,82,34,80,5,34,37,0,0,82,34,80,5,85,85,85,85,85,85,80,5,85,85,85,85,85,85,80,5,85,85,85
defb 85,85,85,80,5,85,51,85,85,51,85,80,5,85,51,85,85,51,85,80,0,85,85,85,85,85,85,0,0,85,85,85
defb 85,85,85,0,0,5,85,85,85,85,80,0,0,5,85,85,85,85,80,0,0,0,85,85,85,85,0,0,0,0,5,83,53,80
defb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,34,32,0,0,2,34,0,2,51,50,0,0,35,51,32,2,51,50,0
defb 0,35,51,32,2,34,34,34,34,34,34,32,2,34,34,34,34,34,34,32,2,34,34,34,34,34,34,32,2,34,68,34
defb 34,68,34,32,2,34,68,34,34,68,34,32,0,34,34,34,34,34,34,0,0,34,34,34,34,34,34,0,0,2,34,34
defb 34,34,32,0,0,2,34,34,34,34,32,0,0,0,34,34,34,34,0,0,0,0,2,36,66,32,0,0,0,0,0,0,0,0,0,0
defb 102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,119,119,119,119,119,119,119,119
defb 119,119,119,119,119,119,119,119,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136
defb 153,153,153,153,153,153,153,153,153,153,153,153,153,153,153,153,102,102,102,102,102,102,102,102
defb 102,102,102,102,102,102,102,102,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119,119
defb 136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,136,153,153,153,153,153,153,153,153
defb 153,153,153,153,153,153,153,153
_ply_tbl_0058:
defb 7,242,7,20,13,93,11,231,10,155,10,2,8,235,3,249,3,138,6,175,5,244,5,78,5,1,4,118,1,253,1
defb 197,3,87,2,250,2,167,2,129,2,59,0,254,0,227,1,172,1,125,1,83,1,64,1,29,0,127,0,113,0,214,0
defb 190,0,170,0,160,0,143,0,64,0,57,0,107,0,95,0,85,0,80,0,71,0,32,0,28,0,53,0,48,0,42,0,40,0
defb 36,0,16,0,14,0,27,0,24,0,21,0,20,0,18
_spcol_0056:
defb 10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10
_spptn_0057:
defb 0,0,0,7,24,32,72,132,168,128,64,39,24,16,0,0,0,0,0,196,50,9,5,5,3,1,6,200,48,16,0,0,0,0
defb 0,7,24,32,72,132,168,128,64,39,24,12,0,0,0,0,0,193,49,9,5,5,3,1,6,200,48,96,0,0,0,0,0,35
defb 76,144,160,160,192,128,96,19,12,8,0,0,0,0,0,224,24,4,18,33,21,1,2,228,24,8,0,0,0,0,0,131
defb 140,144,160,160,192,128,96,19,12,6,0,0,0,0,0,224,24,4,18,33,21,1,2,228,24,48,0,0
_tc_004z:
defs 12
_th_0055:
defs 12
_tx_0051:
defs 12
_txx_0053:
defs 12
_ty_0052:
defs 12
_tyy_0054:
defs 12
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment