2019-12-17 22:50:36 +01:00
|
|
|
; Zilog eZ80 ANSI C Compiler Release 3.4
|
|
|
|
; -optsize -noreduceopt -nomodsect -peephole -globalopt
|
|
|
|
; -localcse -const=ROM
|
|
|
|
FILE "SRC\MAIN.C"
|
|
|
|
.assume ADL=1
|
2019-12-19 19:56:26 +01:00
|
|
|
SEGMENT TEXT
|
|
|
|
_bulletAmount:
|
|
|
|
DW 5
|
|
|
|
DB 0
|
|
|
|
_baddieAmount:
|
2019-12-19 21:00:20 +01:00
|
|
|
DW 12
|
2019-12-19 19:56:26 +01:00
|
|
|
DB 0
|
2019-12-17 22:50:36 +01:00
|
|
|
SEGMENT DATA
|
2019-12-19 19:56:26 +01:00
|
|
|
_spriteActive:
|
|
|
|
DW 0
|
|
|
|
DB 0
|
2019-12-19 21:00:20 +01:00
|
|
|
_gamestate:
|
|
|
|
DW 0
|
|
|
|
DB 0
|
2019-12-17 22:50:36 +01:00
|
|
|
_speed:
|
|
|
|
DF 0.5
|
|
|
|
SEGMENT BSS
|
|
|
|
_i:
|
|
|
|
DS 3
|
2019-12-19 21:00:20 +01:00
|
|
|
_t:
|
|
|
|
DS 4*1
|
|
|
|
_dt:
|
|
|
|
DS 4*1
|
2019-12-17 22:50:36 +01:00
|
|
|
_player:
|
|
|
|
DS 16
|
|
|
|
SEGMENT CODE
|
|
|
|
_updatePlayer:
|
2019-12-19 19:56:26 +01:00
|
|
|
LD HL,-18
|
2019-12-17 22:50:36 +01:00
|
|
|
CALL __frameset
|
2019-12-19 19:56:26 +01:00
|
|
|
LD BC,_player+8
|
|
|
|
LD (IX+-12),BC
|
2019-12-17 22:50:36 +01:00
|
|
|
LD BC,_player
|
2019-12-19 19:56:26 +01:00
|
|
|
LD (IX+-9),BC
|
|
|
|
LD (IX+-6),BC
|
|
|
|
LD BC,_player+8
|
|
|
|
LD (IX+-15),BC
|
|
|
|
LD A,(_player+3)
|
|
|
|
LD E,A
|
|
|
|
LD A,(_player+11)
|
|
|
|
LD HL,(_player)
|
|
|
|
LD BC,(_player+8)
|
|
|
|
CALL __fsub
|
|
|
|
CALL __ftol
|
|
|
|
PUSH BC
|
|
|
|
CALL _abs
|
|
|
|
POP BC
|
|
|
|
LD BC,1
|
|
|
|
OR A,A
|
|
|
|
SBC HL,BC
|
|
|
|
CALL __setflag
|
|
|
|
JP P,L_2
|
|
|
|
LD BC,(IX+-9)
|
|
|
|
LD (IX+-6),BC
|
|
|
|
LD BC,(IX+-12)
|
|
|
|
LD (IX+-15),BC
|
|
|
|
LD IY,(IX+-9)
|
|
|
|
LD HL,(IY+4)
|
|
|
|
LD E,(IY+7)
|
|
|
|
LD IY,(IX+-12)
|
|
|
|
LD BC,(IY+4)
|
|
|
|
LD A,(IY+7)
|
|
|
|
CALL __fsub
|
|
|
|
CALL __ftol
|
|
|
|
PUSH BC
|
|
|
|
CALL _abs
|
|
|
|
POP BC
|
|
|
|
LD BC,1
|
|
|
|
OR A,A
|
|
|
|
SBC HL,BC
|
|
|
|
CALL __setflag
|
|
|
|
JP P,L_2
|
2019-12-17 22:50:36 +01:00
|
|
|
LD HL,(IX+6)
|
2019-12-19 19:56:26 +01:00
|
|
|
OR A,A
|
|
|
|
SBC HL,BC
|
|
|
|
JR NZ,L_3
|
|
|
|
L_2:
|
|
|
|
LD BC,(IX+-6)
|
|
|
|
LD (IX+-3),BC
|
2019-12-17 22:50:36 +01:00
|
|
|
LD IY,(IX+-3)
|
2019-12-19 19:56:26 +01:00
|
|
|
LD BC,(IY+4)
|
|
|
|
LD A,(IY+7)
|
|
|
|
CALL __ftol
|
|
|
|
PUSH BC
|
2019-12-17 22:50:36 +01:00
|
|
|
LD BC,(IY+0)
|
|
|
|
LD A,(IY+3)
|
2019-12-19 19:56:26 +01:00
|
|
|
CALL __ftol
|
|
|
|
PUSH BC
|
|
|
|
LD BC,_spaceship_data
|
|
|
|
PUSH BC
|
|
|
|
CALL _gfx_Sprite
|
|
|
|
POP BC
|
|
|
|
POP BC
|
|
|
|
POP BC
|
|
|
|
LD BC,(IX+-15)
|
|
|
|
LD (IX+-18),BC
|
|
|
|
LD IY,(IX+-3)
|
|
|
|
LD BC,(IY+0)
|
|
|
|
LD A,(IY+3)
|
|
|
|
LD IY,(IX+-18)
|
2019-12-17 22:50:36 +01:00
|
|
|
LD (IY+0),BC
|
|
|
|
LD (IY+3),A
|
2019-12-19 19:56:26 +01:00
|
|
|
LD IY,(IX+-3)
|
2019-12-17 22:50:36 +01:00
|
|
|
LD BC,(IY+4)
|
|
|
|
LD A,(IY+7)
|
2019-12-19 19:56:26 +01:00
|
|
|
LD IY,(IX+-18)
|
2019-12-17 22:50:36 +01:00
|
|
|
LD (IY+4),BC
|
|
|
|
LD (IY+7),A
|
2019-12-19 19:56:26 +01:00
|
|
|
L_3:
|
2019-12-17 22:50:36 +01:00
|
|
|
LD SP,IX
|
|
|
|
POP IX
|
|
|
|
RET
|
|
|
|
|
|
|
|
|
|
|
|
;**************************** _updatePlayer ***************************
|
|
|
|
;Name Addr/Register Size Type
|
2019-12-19 19:56:26 +01:00
|
|
|
;_spaceship_data IMPORT 1026 variable
|
|
|
|
;_gfx_Sprite IMPORT ----- function
|
|
|
|
;_abs IMPORT ----- function
|
2019-12-17 22:50:36 +01:00
|
|
|
;_player STATIC 16 variable
|
2019-12-19 19:56:26 +01:00
|
|
|
;G_4 IX-15 3 variable
|
|
|
|
;G_0 IX-12 3 variable
|
|
|
|
;G_1 IX-9 3 variable
|
|
|
|
;G_2 IX-6 3 variable
|
|
|
|
;G_3 IX-3 3 variable
|
2019-12-19 21:00:20 +01:00
|
|
|
;spriteActive IX+6 3 parameter
|
2019-12-17 22:50:36 +01:00
|
|
|
|
|
|
|
|
2019-12-19 19:56:26 +01:00
|
|
|
; Stack Frame Size: 27 (bytes)
|
2019-12-17 22:50:36 +01:00
|
|
|
; Spill Code: 0 (instruction)
|
|
|
|
|
|
|
|
|
|
|
|
SEGMENT BSS
|
2019-12-19 19:56:26 +01:00
|
|
|
_bulletSpawned:
|
|
|
|
DS 3
|
2019-12-17 22:50:36 +01:00
|
|
|
_bullets:
|
2019-12-19 21:00:20 +01:00
|
|
|
DS 85
|
2019-12-17 22:50:36 +01:00
|
|
|
SEGMENT CODE
|
|
|
|
_spawnBullet:
|
|
|
|
LD HL,-6
|
|
|
|
CALL __frameset
|
|
|
|
LD BC,0
|
|
|
|
LD (_i),BC
|
2019-12-19 19:56:26 +01:00
|
|
|
JR L_8
|
|
|
|
L_6:
|
2019-12-17 22:50:36 +01:00
|
|
|
LD HL,(_i)
|
2019-12-19 21:00:20 +01:00
|
|
|
LD A,17
|
2019-12-17 22:50:36 +01:00
|
|
|
CALL __imul_b
|
|
|
|
LD (IX+-3),HL
|
|
|
|
LD BC,_bullets
|
|
|
|
ADD HL,BC
|
|
|
|
LD IY,HL
|
|
|
|
LD A,(IY+0)
|
|
|
|
CP A,1
|
2019-12-19 19:56:26 +01:00
|
|
|
JR NZ,L_7
|
2019-12-17 22:50:36 +01:00
|
|
|
LD HL,(IX+-3)
|
|
|
|
ADD HL,BC
|
|
|
|
LD (IX+-6),HL
|
|
|
|
LD BC,(IX+6)
|
|
|
|
LD A,(IX+9)
|
|
|
|
LD IY,(IX+-6)
|
|
|
|
LD (IY+1),BC
|
|
|
|
LD (IY+4),A
|
|
|
|
LD BC,(IX+12)
|
|
|
|
LD A,(IX+15)
|
|
|
|
LD (IY+5),BC
|
|
|
|
LD (IY+8),A
|
|
|
|
LD (IY+0),0
|
|
|
|
LD HL,1
|
2019-12-19 19:56:26 +01:00
|
|
|
JR L_10
|
|
|
|
L_7:
|
2019-12-17 22:50:36 +01:00
|
|
|
LD BC,(_i)
|
|
|
|
INC BC
|
|
|
|
LD (_i),BC
|
2019-12-19 19:56:26 +01:00
|
|
|
L_8:
|
2019-12-17 22:50:36 +01:00
|
|
|
LD BC,5
|
|
|
|
LD HL,(_i)
|
|
|
|
OR A,A
|
|
|
|
SBC HL,BC
|
|
|
|
CALL __setflag
|
2019-12-19 19:56:26 +01:00
|
|
|
JP M,L_6
|
2019-12-17 22:50:36 +01:00
|
|
|
OR A,A
|
|
|
|
SBC HL,HL
|
2019-12-19 19:56:26 +01:00
|
|
|
L_10:
|
2019-12-17 22:50:36 +01:00
|
|
|
LD SP,IX
|
|
|
|
POP IX
|
|
|
|
RET
|
|
|
|
|
|
|
|
|
|
|
|
;**************************** _spawnBullet ***************************
|
|
|
|
;Name Addr/Register Size Type
|
2019-12-19 21:00:20 +01:00
|
|
|
;_bullets STATIC 85 variable
|
2019-12-17 22:50:36 +01:00
|
|
|
;_i STATIC 3 variable
|
2019-12-19 19:56:26 +01:00
|
|
|
;G_5 IX-3 3 variable
|
2019-12-17 22:50:36 +01:00
|
|
|
;posY IX+12 4 parameter
|
|
|
|
;posX IX+6 4 parameter
|
|
|
|
|
|
|
|
|
|
|
|
; Stack Frame Size: 24 (bytes)
|
|
|
|
; Spill Code: 0 (instruction)
|
|
|
|
|
|
|
|
|
2019-12-19 19:56:26 +01:00
|
|
|
_updateBullet:
|
2019-12-19 21:00:20 +01:00
|
|
|
LD HL,-30
|
2019-12-17 22:50:36 +01:00
|
|
|
CALL __frameset
|
2019-12-19 19:56:26 +01:00
|
|
|
LD HL,(IX+6)
|
2019-12-19 21:00:20 +01:00
|
|
|
LD A,17
|
2019-12-17 22:50:36 +01:00
|
|
|
CALL __imul_b
|
|
|
|
LD (IX+-3),HL
|
|
|
|
LD BC,_bullets
|
|
|
|
ADD HL,BC
|
2019-12-19 21:00:20 +01:00
|
|
|
LD (IX+-9),HL
|
|
|
|
LD IY,(IX+-9)
|
2019-12-17 22:50:36 +01:00
|
|
|
LD A,(IY+0)
|
|
|
|
OR A,A
|
2019-12-19 21:00:20 +01:00
|
|
|
JR NZ,L_17
|
|
|
|
LD IY,(IX+-9)
|
2019-12-17 22:50:36 +01:00
|
|
|
LD HL,(IY+1)
|
|
|
|
LD E,(IY+4)
|
|
|
|
LD BC,11010048
|
|
|
|
LD A,67
|
|
|
|
CALL __fcmp
|
2019-12-19 21:00:20 +01:00
|
|
|
JP P,L_15
|
|
|
|
LD BC,(IX+-3)
|
|
|
|
LD (IX+-12),BC
|
2019-12-17 22:50:36 +01:00
|
|
|
LD HL,(IX+-3)
|
2019-12-19 21:00:20 +01:00
|
|
|
LD BC,_bullets
|
2019-12-17 22:50:36 +01:00
|
|
|
ADD HL,BC
|
2019-12-19 21:00:20 +01:00
|
|
|
LD (IX+-18),HL
|
|
|
|
LD IY,(IX+-18)
|
2019-12-17 22:50:36 +01:00
|
|
|
LEA BC,IY+1
|
2019-12-19 21:00:20 +01:00
|
|
|
LD (IX+-15),BC
|
2019-12-17 22:50:36 +01:00
|
|
|
LD HL,(_speed)
|
|
|
|
LD A,(_speed+3)
|
2019-12-19 21:00:20 +01:00
|
|
|
LD IY,(IX+-15)
|
2019-12-17 22:50:36 +01:00
|
|
|
LD BC,(IY+0)
|
|
|
|
LD E,A
|
|
|
|
LD A,(IY+3)
|
|
|
|
CALL __fadd
|
|
|
|
LD (IY+0),BC
|
|
|
|
LD (IY+3),A
|
2019-12-19 21:00:20 +01:00
|
|
|
LD HL,(IY+0)
|
|
|
|
LD E,(IY+3)
|
|
|
|
LD IY,(IX+-18)
|
|
|
|
LD BC,(IY+9)
|
|
|
|
LD A,(IY+12)
|
|
|
|
CALL __fsub
|
|
|
|
CALL __ftol
|
|
|
|
PUSH BC
|
|
|
|
CALL _abs
|
|
|
|
POP BC
|
|
|
|
LD BC,1
|
|
|
|
OR A,A
|
|
|
|
SBC HL,BC
|
|
|
|
JP P,L_12
|
|
|
|
LD BC,(IX+-3)
|
|
|
|
LD (IX+-12),BC
|
|
|
|
LD HL,(IX+-3)
|
|
|
|
LD BC,_bullets
|
|
|
|
ADD HL,BC
|
|
|
|
LD (IX+-21),HL
|
|
|
|
LD IY,(IX+-21)
|
|
|
|
LD HL,(IY+5)
|
|
|
|
LD E,(IY+8)
|
|
|
|
LD BC,(IY+13)
|
|
|
|
LD A,(IY+16)
|
|
|
|
CALL __fsub
|
|
|
|
CALL __ftol
|
|
|
|
PUSH BC
|
|
|
|
CALL _abs
|
|
|
|
POP BC
|
|
|
|
LD BC,1
|
|
|
|
OR A,A
|
|
|
|
SBC HL,BC
|
|
|
|
CALL __setflag
|
|
|
|
JP M,L_13
|
|
|
|
L_12:
|
|
|
|
LD BC,(IX+-12)
|
|
|
|
LD (IX+-6),BC
|
|
|
|
LD HL,BC
|
|
|
|
LD BC,_bullets
|
|
|
|
ADD HL,BC
|
|
|
|
LD (IX+-27),HL
|
|
|
|
LD IY,(IX+-27)
|
|
|
|
LEA BC,IY+1
|
|
|
|
LD (IX+-24),BC
|
|
|
|
LD IY,(IX+-24)
|
2019-12-17 22:50:36 +01:00
|
|
|
LD BC,(IY+4)
|
|
|
|
LD A,(IY+7)
|
|
|
|
CALL __ftol
|
|
|
|
PUSH BC
|
|
|
|
LD BC,(IY+0)
|
|
|
|
LD A,(IY+3)
|
|
|
|
CALL __ftol
|
|
|
|
PUSH BC
|
|
|
|
LD BC,_bullet_data
|
|
|
|
PUSH BC
|
|
|
|
CALL _gfx_Sprite
|
|
|
|
POP BC
|
|
|
|
POP BC
|
|
|
|
POP BC
|
2019-12-19 21:00:20 +01:00
|
|
|
LD HL,(IX+-6)
|
|
|
|
LD BC,_bullets
|
|
|
|
ADD HL,BC
|
|
|
|
LD (IX+-30),HL
|
|
|
|
LD IY,(IX+-30)
|
|
|
|
LD BC,(IY+1)
|
|
|
|
LD A,(IY+4)
|
|
|
|
LD (IY+9),BC
|
|
|
|
LD (IY+12),A
|
|
|
|
LD BC,(IY+5)
|
|
|
|
LD A,(IY+8)
|
|
|
|
LD (IY+13),BC
|
|
|
|
LD (IY+16),A
|
|
|
|
L_13:
|
2019-12-19 19:56:26 +01:00
|
|
|
LD HL,1
|
2019-12-19 21:00:20 +01:00
|
|
|
JR L_18
|
|
|
|
L_15:
|
|
|
|
LD IY,(IX+-9)
|
2019-12-17 22:50:36 +01:00
|
|
|
LD (IY+0),1
|
2019-12-19 19:56:26 +01:00
|
|
|
LD HL,1
|
2019-12-19 21:00:20 +01:00
|
|
|
JR L_18
|
|
|
|
L_17:
|
2019-12-17 22:50:36 +01:00
|
|
|
OR A,A
|
2019-12-19 19:56:26 +01:00
|
|
|
SBC HL,HL
|
2019-12-19 21:00:20 +01:00
|
|
|
L_18:
|
2019-12-17 22:50:36 +01:00
|
|
|
LD SP,IX
|
|
|
|
POP IX
|
|
|
|
RET
|
|
|
|
|
|
|
|
|
2019-12-19 19:56:26 +01:00
|
|
|
;**************************** _updateBullet ***************************
|
2019-12-17 22:50:36 +01:00
|
|
|
;Name Addr/Register Size Type
|
|
|
|
;_bullet_data IMPORT 258 variable
|
|
|
|
;_gfx_Sprite IMPORT ----- function
|
2019-12-19 21:00:20 +01:00
|
|
|
;_abs IMPORT ----- function
|
2019-12-17 22:50:36 +01:00
|
|
|
;_speed STATIC 4 variable
|
2019-12-19 21:00:20 +01:00
|
|
|
;_bullets STATIC 85 variable
|
|
|
|
;G_9 IX-12 3 variable
|
|
|
|
;G_6 IX-9 3 variable
|
|
|
|
;G_10 IX-6 3 variable
|
2019-12-19 19:56:26 +01:00
|
|
|
;G_7 IX-3 3 variable
|
|
|
|
;i IX+6 3 parameter
|
2019-12-17 22:50:36 +01:00
|
|
|
|
|
|
|
|
2019-12-19 21:00:20 +01:00
|
|
|
; Stack Frame Size: 39 (bytes)
|
2019-12-17 22:50:36 +01:00
|
|
|
; Spill Code: 0 (instruction)
|
|
|
|
|
|
|
|
|
|
|
|
SEGMENT BSS
|
2019-12-19 19:56:26 +01:00
|
|
|
_baddieSpawned:
|
|
|
|
DS 3
|
2019-12-17 22:50:36 +01:00
|
|
|
_baddies:
|
2019-12-19 21:00:20 +01:00
|
|
|
DS 204
|
2019-12-17 22:50:36 +01:00
|
|
|
SEGMENT CODE
|
2019-12-19 19:56:26 +01:00
|
|
|
_spawnBaddie:
|
|
|
|
LD HL,-6
|
2019-12-17 22:50:36 +01:00
|
|
|
CALL __frameset
|
|
|
|
LD BC,0
|
|
|
|
LD (_i),BC
|
2019-12-19 21:00:20 +01:00
|
|
|
JR L_23
|
|
|
|
L_21:
|
2019-12-17 22:50:36 +01:00
|
|
|
LD HL,(_i)
|
2019-12-19 21:00:20 +01:00
|
|
|
LD A,17
|
2019-12-17 22:50:36 +01:00
|
|
|
CALL __imul_b
|
2019-12-19 19:56:26 +01:00
|
|
|
LD (IX+-3),HL
|
|
|
|
LD BC,_baddies
|
2019-12-17 22:50:36 +01:00
|
|
|
ADD HL,BC
|
2019-12-19 19:56:26 +01:00
|
|
|
LD IY,HL
|
|
|
|
LD A,(IY+0)
|
|
|
|
CP A,1
|
2019-12-19 21:00:20 +01:00
|
|
|
JR NZ,L_22
|
2019-12-19 19:56:26 +01:00
|
|
|
LD HL,(IX+-3)
|
|
|
|
ADD HL,BC
|
|
|
|
LD (IX+-6),HL
|
|
|
|
LD BC,(IX+6)
|
|
|
|
LD A,(IX+9)
|
|
|
|
LD IY,(IX+-6)
|
2019-12-17 22:50:36 +01:00
|
|
|
LD (IY+1),BC
|
2019-12-19 19:56:26 +01:00
|
|
|
LD (IY+4),A
|
|
|
|
LD BC,(IX+12)
|
|
|
|
LD A,(IX+15)
|
2019-12-17 22:50:36 +01:00
|
|
|
LD (IY+5),BC
|
2019-12-19 19:56:26 +01:00
|
|
|
LD (IY+8),A
|
|
|
|
LD (IY+0),0
|
|
|
|
LD HL,1
|
2019-12-19 21:00:20 +01:00
|
|
|
JR L_25
|
|
|
|
L_22:
|
2019-12-17 22:50:36 +01:00
|
|
|
LD BC,(_i)
|
|
|
|
INC BC
|
|
|
|
LD (_i),BC
|
2019-12-19 21:00:20 +01:00
|
|
|
L_23:
|
|
|
|
LD BC,12
|
2019-12-17 22:50:36 +01:00
|
|
|
LD HL,(_i)
|
|
|
|
OR A,A
|
|
|
|
SBC HL,BC
|
2019-12-19 21:00:20 +01:00
|
|
|
CALL __setflag
|
|
|
|
JP M,L_21
|
2019-12-19 19:56:26 +01:00
|
|
|
OR A,A
|
|
|
|
SBC HL,HL
|
2019-12-19 21:00:20 +01:00
|
|
|
L_25:
|
2019-12-17 22:50:36 +01:00
|
|
|
LD SP,IX
|
|
|
|
POP IX
|
|
|
|
RET
|
|
|
|
|
|
|
|
|
2019-12-19 19:56:26 +01:00
|
|
|
;**************************** _spawnBaddie ***************************
|
2019-12-17 22:50:36 +01:00
|
|
|
;Name Addr/Register Size Type
|
2019-12-19 21:00:20 +01:00
|
|
|
;_baddies STATIC 204 variable
|
2019-12-17 22:50:36 +01:00
|
|
|
;_i STATIC 3 variable
|
2019-12-19 21:00:20 +01:00
|
|
|
;G_12 IX-3 3 variable
|
2019-12-19 19:56:26 +01:00
|
|
|
;posY IX+12 4 parameter
|
|
|
|
;posX IX+6 4 parameter
|
2019-12-17 22:50:36 +01:00
|
|
|
|
|
|
|
|
2019-12-19 19:56:26 +01:00
|
|
|
; Stack Frame Size: 24 (bytes)
|
2019-12-17 22:50:36 +01:00
|
|
|
; Spill Code: 0 (instruction)
|
|
|
|
|
|
|
|
|
2019-12-19 19:56:26 +01:00
|
|
|
_updateBaddie:
|
2019-12-19 21:00:20 +01:00
|
|
|
LD HL,-30
|
2019-12-17 22:50:36 +01:00
|
|
|
CALL __frameset
|
2019-12-19 19:56:26 +01:00
|
|
|
LD HL,(IX+6)
|
2019-12-19 21:00:20 +01:00
|
|
|
LD A,17
|
2019-12-19 19:56:26 +01:00
|
|
|
CALL __imul_b
|
|
|
|
LD (IX+-3),HL
|
|
|
|
LD BC,_baddies
|
|
|
|
ADD HL,BC
|
2019-12-19 21:00:20 +01:00
|
|
|
LD (IX+-9),HL
|
|
|
|
LD IY,(IX+-9)
|
2019-12-19 19:56:26 +01:00
|
|
|
LD A,(IY+0)
|
2019-12-17 22:50:36 +01:00
|
|
|
OR A,A
|
2019-12-19 21:00:20 +01:00
|
|
|
JR NZ,L_32
|
|
|
|
LD IY,(IX+-9)
|
2019-12-19 19:56:26 +01:00
|
|
|
LD BC,(IY+1)
|
|
|
|
LD A,(IY+4)
|
2019-12-17 22:50:36 +01:00
|
|
|
OR A,A
|
|
|
|
SBC HL,HL
|
2019-12-19 19:56:26 +01:00
|
|
|
LD E,194
|
2019-12-17 22:50:36 +01:00
|
|
|
CALL __fcmp
|
2019-12-19 21:00:20 +01:00
|
|
|
JP P,L_30
|
|
|
|
LD BC,(IX+-3)
|
|
|
|
LD (IX+-12),BC
|
2019-12-19 19:56:26 +01:00
|
|
|
LD HL,(IX+-3)
|
2019-12-19 21:00:20 +01:00
|
|
|
LD BC,_baddies
|
2019-12-19 19:56:26 +01:00
|
|
|
ADD HL,BC
|
2019-12-19 21:00:20 +01:00
|
|
|
LD (IX+-18),HL
|
|
|
|
LD IY,(IX+-18)
|
2019-12-19 19:56:26 +01:00
|
|
|
LEA BC,IY+1
|
2019-12-19 21:00:20 +01:00
|
|
|
LD (IX+-15),BC
|
2019-12-17 22:50:36 +01:00
|
|
|
LD HL,(_speed)
|
|
|
|
LD A,(_speed+3)
|
2019-12-19 21:00:20 +01:00
|
|
|
LD IY,(IX+-15)
|
2019-12-17 22:50:36 +01:00
|
|
|
LD BC,(IY+0)
|
|
|
|
LD E,A
|
|
|
|
LD A,(IY+3)
|
|
|
|
CALL __fsub
|
|
|
|
LD (IY+0),BC
|
|
|
|
LD (IY+3),A
|
2019-12-19 21:00:20 +01:00
|
|
|
LD HL,(IY+0)
|
|
|
|
LD E,(IY+3)
|
|
|
|
LD IY,(IX+-18)
|
|
|
|
LD BC,(IY+9)
|
|
|
|
LD A,(IY+12)
|
|
|
|
CALL __fsub
|
|
|
|
CALL __ftol
|
|
|
|
PUSH BC
|
|
|
|
CALL _abs
|
|
|
|
POP BC
|
|
|
|
LD BC,1
|
|
|
|
OR A,A
|
|
|
|
SBC HL,BC
|
|
|
|
JP P,L_27
|
|
|
|
LD BC,(IX+-3)
|
|
|
|
LD (IX+-12),BC
|
|
|
|
LD HL,(IX+-3)
|
|
|
|
LD BC,_baddies
|
|
|
|
ADD HL,BC
|
|
|
|
LD (IX+-21),HL
|
|
|
|
LD IY,(IX+-21)
|
|
|
|
LD HL,(IY+5)
|
|
|
|
LD E,(IY+8)
|
|
|
|
LD BC,(IY+13)
|
|
|
|
LD A,(IY+16)
|
|
|
|
CALL __fsub
|
|
|
|
CALL __ftol
|
|
|
|
PUSH BC
|
|
|
|
CALL _abs
|
|
|
|
POP BC
|
|
|
|
LD BC,1
|
|
|
|
OR A,A
|
|
|
|
SBC HL,BC
|
|
|
|
CALL __setflag
|
|
|
|
JP M,L_28
|
|
|
|
L_27:
|
|
|
|
LD BC,(IX+-12)
|
|
|
|
LD (IX+-6),BC
|
|
|
|
LD HL,BC
|
|
|
|
LD BC,_baddies
|
|
|
|
ADD HL,BC
|
|
|
|
LD (IX+-27),HL
|
|
|
|
LD IY,(IX+-27)
|
|
|
|
LEA BC,IY+1
|
|
|
|
LD (IX+-24),BC
|
|
|
|
LD IY,(IX+-24)
|
2019-12-19 19:56:26 +01:00
|
|
|
LD BC,(IY+4)
|
|
|
|
LD A,(IY+7)
|
|
|
|
CALL __ftol
|
|
|
|
PUSH BC
|
|
|
|
LD BC,(IY+0)
|
|
|
|
LD A,(IY+3)
|
|
|
|
CALL __ftol
|
|
|
|
PUSH BC
|
|
|
|
LD BC,_baddie_data
|
|
|
|
PUSH BC
|
|
|
|
CALL _gfx_Sprite
|
|
|
|
POP BC
|
|
|
|
POP BC
|
|
|
|
POP BC
|
2019-12-19 21:00:20 +01:00
|
|
|
LD HL,(IX+-6)
|
|
|
|
LD BC,_baddies
|
|
|
|
ADD HL,BC
|
|
|
|
LD (IX+-30),HL
|
|
|
|
LD IY,(IX+-30)
|
|
|
|
LD BC,(IY+1)
|
|
|
|
LD A,(IY+4)
|
|
|
|
LD (IY+9),BC
|
|
|
|
LD (IY+12),A
|
|
|
|
LD BC,(IY+5)
|
|
|
|
LD A,(IY+8)
|
|
|
|
LD (IY+13),BC
|
|
|
|
LD (IY+16),A
|
|
|
|
L_28:
|
2019-12-19 19:56:26 +01:00
|
|
|
LD HL,1
|
2019-12-19 21:00:20 +01:00
|
|
|
JR L_33
|
|
|
|
L_30:
|
|
|
|
LD IY,(IX+-9)
|
2019-12-19 19:56:26 +01:00
|
|
|
LD (IY+0),1
|
|
|
|
LD HL,1
|
2019-12-19 21:00:20 +01:00
|
|
|
JR L_33
|
|
|
|
L_32:
|
2019-12-19 19:56:26 +01:00
|
|
|
OR A,A
|
|
|
|
SBC HL,HL
|
2019-12-19 21:00:20 +01:00
|
|
|
L_33:
|
2019-12-19 19:56:26 +01:00
|
|
|
LD SP,IX
|
|
|
|
POP IX
|
|
|
|
RET
|
|
|
|
|
|
|
|
|
|
|
|
;**************************** _updateBaddie ***************************
|
|
|
|
;Name Addr/Register Size Type
|
|
|
|
;_baddie_data IMPORT 1026 variable
|
|
|
|
;_gfx_Sprite IMPORT ----- function
|
2019-12-19 21:00:20 +01:00
|
|
|
;_abs IMPORT ----- function
|
2019-12-19 19:56:26 +01:00
|
|
|
;_speed STATIC 4 variable
|
2019-12-19 21:00:20 +01:00
|
|
|
;_baddies STATIC 204 variable
|
|
|
|
;G_17 IX-12 3 variable
|
|
|
|
;G_14 IX-9 3 variable
|
|
|
|
;G_18 IX-6 3 variable
|
|
|
|
;G_15 IX-3 3 variable
|
2019-12-19 19:56:26 +01:00
|
|
|
;i IX+6 3 parameter
|
|
|
|
|
|
|
|
|
2019-12-19 21:00:20 +01:00
|
|
|
; Stack Frame Size: 39 (bytes)
|
|
|
|
; Spill Code: 0 (instruction)
|
|
|
|
|
|
|
|
|
|
|
|
SEGMENT DATA
|
|
|
|
_distance:
|
|
|
|
DF 0.0
|
|
|
|
SEGMENT BSS
|
|
|
|
_difference:
|
|
|
|
DS 8
|
|
|
|
_a:
|
|
|
|
DS 3
|
|
|
|
SEGMENT CODE
|
|
|
|
_checkCollision:
|
|
|
|
LD HL,-42
|
|
|
|
CALL __frameset
|
|
|
|
LD BC,0
|
|
|
|
LD (_i),BC
|
|
|
|
JR L_47
|
|
|
|
L_45:
|
|
|
|
LD BC,0
|
|
|
|
LD (_a),BC
|
|
|
|
JR L_41
|
|
|
|
L_39:
|
|
|
|
LD HL,(_i)
|
|
|
|
LD A,17
|
|
|
|
CALL __imul_b
|
|
|
|
LD BC,_baddies
|
|
|
|
ADD HL,BC
|
|
|
|
LD (IX+-12),HL
|
|
|
|
LD HL,(_a)
|
|
|
|
LD A,17
|
|
|
|
CALL __imul_b
|
|
|
|
LD BC,_bullets
|
|
|
|
ADD HL,BC
|
|
|
|
LD (IX+-9),HL
|
|
|
|
LD IY,(IX+-12)
|
|
|
|
LD BC,(IY+1)
|
|
|
|
LD A,(IY+4)
|
|
|
|
LD HL,8388608
|
|
|
|
LD E,65
|
|
|
|
CALL __fadd
|
|
|
|
LD (IX+-25),BC
|
|
|
|
LD IY,(IX+-9)
|
|
|
|
LD BC,(IY+1)
|
|
|
|
LD (IX+-26),A
|
|
|
|
LD A,(IY+4)
|
|
|
|
OR A,A
|
|
|
|
SBC HL,HL
|
|
|
|
LD E,65
|
|
|
|
CALL __fadd
|
|
|
|
LD E,A
|
|
|
|
LD HL,BC
|
|
|
|
LD BC,(IX+-25)
|
|
|
|
LD A,(IX+-26)
|
|
|
|
CALL __fsub
|
|
|
|
LD (_difference),BC
|
|
|
|
LD (_difference+3),A
|
|
|
|
LD IY,(IX+-12)
|
|
|
|
LD BC,(IY+5)
|
|
|
|
LD A,(IY+8)
|
|
|
|
LD HL,8388608
|
|
|
|
LD E,65
|
|
|
|
CALL __fadd
|
|
|
|
LD (IX+-29),BC
|
|
|
|
LD IY,(IX+-9)
|
|
|
|
LD BC,(IY+5)
|
|
|
|
LD (IX+-30),A
|
|
|
|
LD A,(IY+8)
|
|
|
|
OR A,A
|
|
|
|
SBC HL,HL
|
|
|
|
LD E,65
|
|
|
|
CALL __fadd
|
|
|
|
LD E,A
|
|
|
|
LD HL,BC
|
|
|
|
LD BC,(IX+-29)
|
|
|
|
LD A,(IX+-30)
|
|
|
|
CALL __fsub
|
|
|
|
LD IY,_difference
|
|
|
|
LD (IY+4),BC
|
|
|
|
LD (IY+7),A
|
|
|
|
LD C,64
|
|
|
|
LD B,0
|
|
|
|
PUSH BC
|
|
|
|
LD A,(_difference+3)
|
|
|
|
LD C,A
|
|
|
|
LD DE,0
|
|
|
|
PUSH DE
|
|
|
|
PUSH BC
|
|
|
|
LD BC,(_difference)
|
|
|
|
PUSH BC
|
|
|
|
CALL _pow
|
|
|
|
LD (IX+-21),HL
|
|
|
|
LD H,0
|
|
|
|
POP BC
|
|
|
|
POP BC
|
|
|
|
POP BC
|
|
|
|
POP BC
|
|
|
|
LD (IX+-22),E
|
|
|
|
LD C,64
|
|
|
|
LD B,0
|
|
|
|
PUSH BC
|
|
|
|
LD BC,0
|
|
|
|
PUSH BC
|
|
|
|
LD IY,_difference
|
|
|
|
LD BC,(IY+4)
|
|
|
|
LD A,(IY+7)
|
|
|
|
LD L,A
|
|
|
|
PUSH HL
|
|
|
|
PUSH BC
|
|
|
|
CALL _pow
|
|
|
|
POP BC
|
|
|
|
POP BC
|
|
|
|
POP BC
|
|
|
|
POP BC
|
|
|
|
LD A,(IX+-22)
|
|
|
|
LD BC,(IX+-21)
|
|
|
|
CALL __fadd
|
|
|
|
LD DE,BC
|
|
|
|
LD C,A
|
|
|
|
LD B,0
|
|
|
|
PUSH BC
|
|
|
|
PUSH DE
|
|
|
|
CALL _sqrt
|
|
|
|
POP BC
|
|
|
|
POP BC
|
|
|
|
LD (_distance),HL
|
|
|
|
LD A,E
|
|
|
|
LD (_distance+3),A
|
|
|
|
LD HL,(_i)
|
|
|
|
LD A,17
|
|
|
|
CALL __imul_b
|
|
|
|
LD BC,_baddies
|
|
|
|
ADD HL,BC
|
|
|
|
LD (IX+-3),HL
|
|
|
|
LD IY,(IX+-3)
|
|
|
|
LD A,(IY+0)
|
|
|
|
OR A,A
|
|
|
|
JR NZ,L_40
|
|
|
|
LD HL,(_a)
|
|
|
|
LD A,17
|
|
|
|
CALL __imul_b
|
|
|
|
LD BC,_bullets
|
|
|
|
ADD HL,BC
|
|
|
|
LD (IX+-6),HL
|
|
|
|
LD IY,(IX+-6)
|
|
|
|
LD A,(IY+0)
|
|
|
|
OR A,A
|
|
|
|
JR NZ,L_40
|
|
|
|
LD HL,3145728
|
|
|
|
LD E,65
|
|
|
|
LD BC,(_distance)
|
|
|
|
LD A,(_distance+3)
|
|
|
|
CALL __fcmp
|
|
|
|
JP M,L_40
|
|
|
|
LD A,1
|
|
|
|
LD IY,(IX+-6)
|
|
|
|
LD (IY+0),A
|
|
|
|
LD IY,(IX+-3)
|
|
|
|
LD (IY+0),A
|
|
|
|
L_40:
|
|
|
|
LD BC,(_a)
|
|
|
|
INC BC
|
|
|
|
LD (_a),BC
|
|
|
|
L_41:
|
|
|
|
LD BC,4
|
|
|
|
LD HL,(_a)
|
|
|
|
OR A,A
|
|
|
|
SBC HL,BC
|
|
|
|
JP M,L_39
|
|
|
|
LD HL,(_i)
|
|
|
|
LD A,17
|
|
|
|
CALL __imul_b
|
|
|
|
LD BC,_baddies
|
|
|
|
ADD HL,BC
|
|
|
|
LD (IX+-18),HL
|
|
|
|
LD BC,_player
|
|
|
|
LD (IX+-15),BC
|
|
|
|
LD IY,(IX+-18)
|
|
|
|
LD BC,(IY+1)
|
|
|
|
LD A,(IY+4)
|
|
|
|
LD HL,8388608
|
|
|
|
LD E,65
|
|
|
|
CALL __fadd
|
|
|
|
LD (IX+-37),BC
|
|
|
|
LD IY,(IX+-15)
|
|
|
|
LD BC,(IY+0)
|
|
|
|
LD (IX+-38),A
|
|
|
|
LD A,(IY+3)
|
|
|
|
LD HL,8388608
|
|
|
|
LD E,65
|
|
|
|
CALL __fadd
|
|
|
|
LD E,A
|
|
|
|
LD HL,BC
|
|
|
|
LD BC,(IX+-37)
|
|
|
|
LD A,(IX+-38)
|
|
|
|
CALL __fsub
|
|
|
|
LD (_difference),BC
|
|
|
|
LD (_difference+3),A
|
|
|
|
LD IY,(IX+-18)
|
|
|
|
LD BC,(IY+5)
|
|
|
|
LD A,(IY+8)
|
|
|
|
LD HL,8388608
|
|
|
|
LD E,65
|
|
|
|
CALL __fadd
|
|
|
|
LD (IX+-41),BC
|
|
|
|
LD IY,(IX+-15)
|
|
|
|
LD BC,(IY+4)
|
|
|
|
LD (IX+-42),A
|
|
|
|
LD A,(IY+7)
|
|
|
|
LD HL,8388608
|
|
|
|
LD E,65
|
|
|
|
CALL __fadd
|
|
|
|
LD E,A
|
|
|
|
LD HL,BC
|
|
|
|
LD BC,(IX+-41)
|
|
|
|
LD A,(IX+-42)
|
|
|
|
CALL __fsub
|
|
|
|
LD IY,_difference
|
|
|
|
LD (IY+4),BC
|
|
|
|
LD (IY+7),A
|
|
|
|
LD C,64
|
|
|
|
LD B,0
|
|
|
|
PUSH BC
|
|
|
|
LD A,(_difference+3)
|
|
|
|
LD C,A
|
|
|
|
LD DE,0
|
|
|
|
PUSH DE
|
|
|
|
PUSH BC
|
|
|
|
LD BC,(_difference)
|
|
|
|
PUSH BC
|
|
|
|
CALL _pow
|
|
|
|
LD (IX+-33),HL
|
|
|
|
LD H,0
|
|
|
|
POP BC
|
|
|
|
POP BC
|
|
|
|
POP BC
|
|
|
|
POP BC
|
|
|
|
LD (IX+-34),E
|
|
|
|
LD C,64
|
|
|
|
LD B,0
|
|
|
|
PUSH BC
|
|
|
|
LD BC,0
|
|
|
|
PUSH BC
|
|
|
|
LD IY,_difference
|
|
|
|
LD BC,(IY+4)
|
|
|
|
LD A,(IY+7)
|
|
|
|
LD L,A
|
|
|
|
PUSH HL
|
|
|
|
PUSH BC
|
|
|
|
CALL _pow
|
|
|
|
POP BC
|
|
|
|
POP BC
|
|
|
|
POP BC
|
|
|
|
POP BC
|
|
|
|
LD A,(IX+-34)
|
|
|
|
LD BC,(IX+-33)
|
|
|
|
CALL __fadd
|
|
|
|
LD DE,BC
|
|
|
|
LD C,A
|
|
|
|
LD B,0
|
|
|
|
PUSH BC
|
|
|
|
PUSH DE
|
|
|
|
CALL _sqrt
|
|
|
|
POP BC
|
|
|
|
POP BC
|
|
|
|
LD (_distance),HL
|
|
|
|
LD A,E
|
|
|
|
LD (_distance+3),A
|
|
|
|
LD BC,(_i)
|
|
|
|
INC BC
|
|
|
|
LD (_i),BC
|
|
|
|
L_47:
|
|
|
|
LD BC,11
|
|
|
|
LD HL,(_i)
|
|
|
|
OR A,A
|
|
|
|
SBC HL,BC
|
|
|
|
CALL __setflag
|
|
|
|
JP M,L_45
|
|
|
|
LD SP,IX
|
|
|
|
POP IX
|
|
|
|
RET
|
|
|
|
|
|
|
|
|
|
|
|
;**************************** _checkCollision ***************************
|
|
|
|
;Name Addr/Register Size Type
|
|
|
|
;_player STATIC 16 variable
|
|
|
|
;_distance STATIC 4 variable
|
|
|
|
;_pow IMPORT ----- function
|
|
|
|
;_sqrt IMPORT ----- function
|
|
|
|
;_difference STATIC 8 variable
|
|
|
|
;_bullets STATIC 85 variable
|
|
|
|
;_baddies STATIC 204 variable
|
|
|
|
;_a STATIC 3 variable
|
|
|
|
;_i STATIC 3 variable
|
|
|
|
;G_21 IX-6 3 variable
|
|
|
|
;G_22 IX-3 3 variable
|
|
|
|
|
|
|
|
|
|
|
|
; Stack Frame Size: 48 (bytes)
|
2019-12-19 19:56:26 +01:00
|
|
|
; Spill Code: 0 (instruction)
|
|
|
|
|
|
|
|
|
|
|
|
_handleInput:
|
|
|
|
LD HL,-21
|
|
|
|
CALL __frameset
|
|
|
|
CALL _kb_Scan
|
|
|
|
LD A,(16056350)
|
|
|
|
AND A,1
|
2019-12-19 21:00:20 +01:00
|
|
|
JR Z,L_53
|
2019-12-19 19:56:26 +01:00
|
|
|
LD BC,_player
|
|
|
|
LD (IX+-3),BC
|
|
|
|
LD IY,(IX+-3)
|
|
|
|
LD HL,(IY+4)
|
|
|
|
LD E,(IY+7)
|
|
|
|
LD BC,5242880
|
|
|
|
LD A,67
|
|
|
|
CALL __fcmp
|
2019-12-19 21:00:20 +01:00
|
|
|
JP P,L_53
|
2019-12-19 19:56:26 +01:00
|
|
|
LD HL,(_speed)
|
|
|
|
LD A,(_speed+3)
|
|
|
|
LD IY,(IX+-3)
|
|
|
|
LD BC,(IY+4)
|
|
|
|
LD E,A
|
|
|
|
LD A,(IY+7)
|
|
|
|
CALL __fadd
|
|
|
|
LD (IY+4),BC
|
|
|
|
LD (IY+7),A
|
2019-12-19 21:00:20 +01:00
|
|
|
L_53:
|
2019-12-19 19:56:26 +01:00
|
|
|
LD A,(16056350)
|
|
|
|
AND A,8
|
2019-12-19 21:00:20 +01:00
|
|
|
JR Z,L_56
|
2019-12-19 19:56:26 +01:00
|
|
|
LD BC,_player
|
|
|
|
LD (IX+-6),BC
|
|
|
|
LD IY,(IX+-6)
|
|
|
|
LD BC,(IY+4)
|
|
|
|
LD A,(IY+7)
|
|
|
|
OR A,A
|
|
|
|
SBC HL,HL
|
|
|
|
LD E,0
|
|
|
|
CALL __fcmp
|
2019-12-19 21:00:20 +01:00
|
|
|
JP P,L_56
|
2019-12-19 19:56:26 +01:00
|
|
|
LD HL,(_speed)
|
|
|
|
LD A,(_speed+3)
|
|
|
|
LD IY,(IX+-6)
|
|
|
|
LD BC,(IY+4)
|
|
|
|
LD E,A
|
|
|
|
LD A,(IY+7)
|
|
|
|
CALL __fsub
|
|
|
|
LD (IY+4),BC
|
|
|
|
LD (IY+7),A
|
2019-12-19 21:00:20 +01:00
|
|
|
L_56:
|
2019-12-19 19:56:26 +01:00
|
|
|
LD A,(16056350)
|
|
|
|
AND A,2
|
2019-12-19 21:00:20 +01:00
|
|
|
JR Z,L_59
|
2019-12-19 19:56:26 +01:00
|
|
|
LD BC,_player
|
|
|
|
LD (IX+-9),BC
|
|
|
|
LD IY,(IX+-9)
|
|
|
|
LD BC,(IY+0)
|
|
|
|
LD A,(IY+3)
|
|
|
|
OR A,A
|
|
|
|
SBC HL,HL
|
|
|
|
LD E,0
|
|
|
|
CALL __fcmp
|
2019-12-19 21:00:20 +01:00
|
|
|
JP P,L_59
|
2019-12-19 19:56:26 +01:00
|
|
|
LD HL,(_speed)
|
|
|
|
LD A,(_speed+3)
|
|
|
|
LD IY,(IX+-9)
|
|
|
|
LD BC,(IY+0)
|
|
|
|
LD E,A
|
|
|
|
LD A,(IY+3)
|
|
|
|
CALL __fsub
|
|
|
|
LD (IY+0),BC
|
|
|
|
LD (IY+3),A
|
2019-12-19 21:00:20 +01:00
|
|
|
L_59:
|
2019-12-19 19:56:26 +01:00
|
|
|
LD A,(16056350)
|
|
|
|
AND A,4
|
2019-12-19 21:00:20 +01:00
|
|
|
JR Z,L_62
|
2019-12-17 22:50:36 +01:00
|
|
|
LD BC,_player
|
|
|
|
LD (IX+-12),BC
|
|
|
|
LD IY,(IX+-12)
|
|
|
|
LD HL,(IY+0)
|
|
|
|
LD E,(IY+3)
|
|
|
|
LD BC,9437184
|
|
|
|
LD A,67
|
|
|
|
CALL __fcmp
|
2019-12-19 21:00:20 +01:00
|
|
|
JP P,L_62
|
2019-12-17 22:50:36 +01:00
|
|
|
LD HL,(_speed)
|
|
|
|
LD A,(_speed+3)
|
|
|
|
LD IY,(IX+-12)
|
|
|
|
LD BC,(IY+0)
|
|
|
|
LD E,A
|
|
|
|
LD A,(IY+3)
|
|
|
|
CALL __fadd
|
|
|
|
LD (IY+0),BC
|
|
|
|
LD (IY+3),A
|
2019-12-19 21:00:20 +01:00
|
|
|
L_62:
|
2019-12-17 22:50:36 +01:00
|
|
|
LD A,(16056338)
|
|
|
|
AND A,32
|
2019-12-19 21:00:20 +01:00
|
|
|
JR Z,L_64
|
2019-12-17 22:50:36 +01:00
|
|
|
LD HL,(_bulletSpawned)
|
|
|
|
CALL __icmpzero
|
2019-12-19 21:00:20 +01:00
|
|
|
JR NZ,L_64
|
2019-12-17 22:50:36 +01:00
|
|
|
LD BC,_player
|
2019-12-19 19:56:26 +01:00
|
|
|
LD (IX+-15),BC
|
|
|
|
LD IY,(IX+-15)
|
2019-12-17 22:50:36 +01:00
|
|
|
LD BC,(IY+4)
|
|
|
|
LD A,(IY+7)
|
|
|
|
OR A,A
|
|
|
|
SBC HL,HL
|
|
|
|
LD E,65
|
|
|
|
CALL __fadd
|
2019-12-19 19:56:26 +01:00
|
|
|
LD (IX+-21),BC ; spill
|
2019-12-17 22:50:36 +01:00
|
|
|
LD C,A
|
|
|
|
LD HL,8388608
|
|
|
|
LD E,65
|
|
|
|
LD B,0
|
|
|
|
PUSH BC
|
2019-12-19 19:56:26 +01:00
|
|
|
LD (IX+-18),HL ; spill
|
|
|
|
LD HL,(IX+-21) ; unspill
|
2019-12-17 22:50:36 +01:00
|
|
|
PUSH HL
|
2019-12-19 19:56:26 +01:00
|
|
|
LD HL,(IX+-18) ; unspill
|
2019-12-17 22:50:36 +01:00
|
|
|
LD BC,(IY+0)
|
|
|
|
LD A,(IY+3)
|
|
|
|
CALL __fadd
|
|
|
|
LD DE,BC
|
|
|
|
LD C,A
|
|
|
|
LD B,0
|
|
|
|
PUSH BC
|
|
|
|
PUSH DE
|
|
|
|
CALL _spawnBullet
|
|
|
|
POP BC
|
|
|
|
POP BC
|
|
|
|
POP BC
|
|
|
|
POP BC
|
|
|
|
LD BC,1
|
|
|
|
LD (_bulletSpawned),BC
|
2019-12-19 21:00:20 +01:00
|
|
|
L_64:
|
2019-12-17 22:50:36 +01:00
|
|
|
LD A,(16056338)
|
|
|
|
CP A,32
|
2019-12-19 21:00:20 +01:00
|
|
|
JR Z,L_67
|
2019-12-17 22:50:36 +01:00
|
|
|
LD BC,0
|
|
|
|
LD (_bulletSpawned),BC
|
2019-12-19 21:00:20 +01:00
|
|
|
L_67:
|
2019-12-19 19:56:26 +01:00
|
|
|
LD A,(16056338)
|
|
|
|
AND A,64
|
2019-12-19 21:00:20 +01:00
|
|
|
JR Z,L_69
|
2019-12-19 19:56:26 +01:00
|
|
|
LD HL,(_baddieSpawned)
|
|
|
|
CALL __icmpzero
|
2019-12-19 21:00:20 +01:00
|
|
|
JR NZ,L_69
|
2019-12-19 19:56:26 +01:00
|
|
|
CALL _random
|
|
|
|
LD BC,209
|
|
|
|
CALL __iremu
|
|
|
|
LD BC,HL
|
|
|
|
XOR A,A
|
|
|
|
CALL __ultof
|
|
|
|
LD DE,BC
|
|
|
|
LD C,A
|
|
|
|
LD B,0
|
2019-12-17 22:50:36 +01:00
|
|
|
PUSH BC
|
2019-12-19 19:56:26 +01:00
|
|
|
PUSH DE
|
|
|
|
LD C,67
|
2019-12-17 22:50:36 +01:00
|
|
|
PUSH BC
|
2019-12-19 19:56:26 +01:00
|
|
|
LD BC,11534336
|
|
|
|
PUSH BC
|
|
|
|
CALL _spawnBaddie
|
|
|
|
POP BC
|
|
|
|
POP BC
|
|
|
|
POP BC
|
2019-12-17 22:50:36 +01:00
|
|
|
POP BC
|
|
|
|
LD BC,1
|
2019-12-19 19:56:26 +01:00
|
|
|
LD (_baddieSpawned),BC
|
2019-12-19 21:00:20 +01:00
|
|
|
L_69:
|
2019-12-19 19:56:26 +01:00
|
|
|
LD A,(16056338)
|
|
|
|
CP A,64
|
2019-12-19 21:00:20 +01:00
|
|
|
JR Z,L_70
|
2019-12-19 19:56:26 +01:00
|
|
|
LD BC,0
|
|
|
|
LD (_baddieSpawned),BC
|
|
|
|
; 1 // Libraries lol
|
|
|
|
; 2 #include <stddef.h>
|
|
|
|
; 3 #include <stdint.h>
|
|
|
|
; 4 #include <tice.h>
|
|
|
|
; 5 #include <math.h>
|
|
|
|
; 6 #include <stdio.h>
|
|
|
|
; 7 #include <stdlib.h>
|
|
|
|
; 8 #include <string.h>
|
|
|
|
; 9 #include <assert.h>
|
|
|
|
; 10 #include <debug.h>
|
|
|
|
; 11 #include <graphx.h>
|
|
|
|
; 12
|
|
|
|
; 13 // Graphics
|
|
|
|
; 14 #include "gfx/sprites.h"
|
|
|
|
; 15
|
|
|
|
; 16 // set global vars
|
|
|
|
; 17 const int bulletAmount = 5;
|
2019-12-19 21:00:20 +01:00
|
|
|
; 18 const int baddieAmount = 12;
|
2019-12-19 19:56:26 +01:00
|
|
|
; 19 int spriteActive = 0;
|
2019-12-19 21:00:20 +01:00
|
|
|
; 20 int gamestate = 0;
|
|
|
|
; 21 float speed = 0.5;
|
|
|
|
; 22 int i;
|
|
|
|
; 23 float t;
|
|
|
|
; 24 float dt;
|
|
|
|
; 25
|
|
|
|
; 26 // Include entity headers
|
|
|
|
; 27 #include "player.h"
|
|
|
|
; 28 #include "bullet.h"
|
|
|
|
; 29 #include "baddie.h"
|
|
|
|
; 30 #include "collision.h"
|
|
|
|
; 31 #include "controls.h"
|
2019-12-19 19:56:26 +01:00
|
|
|
; 32
|
2019-12-19 21:00:20 +01:00
|
|
|
; 33 void setup()
|
|
|
|
; 34 {
|
|
|
|
; 35 boot_Set48MHzModeI();
|
|
|
|
; 36
|
|
|
|
; 37 /* Initialize the 8bpp graphics */
|
|
|
|
; 38 gfx_Begin();
|
|
|
|
; 39
|
|
|
|
; 40 /* Set up the palette for our sprites */
|
|
|
|
; 41 gfx_SetPalette(sprites_pal, sizeof_sprites_pal, 0);
|
|
|
|
; 42
|
|
|
|
; 43 // Clear screen
|
|
|
|
; 44 gfx_FillScreen(01);
|
|
|
|
; 45
|
|
|
|
; 46 // Player starting position
|
|
|
|
; 47 player.pos.x = 10;
|
|
|
|
; 48 player.pos.y = 136;
|
|
|
|
; 49 player.oldPos.x = 10;
|
|
|
|
; 50 player.oldPos.y = 10;
|
|
|
|
; 51
|
|
|
|
; 52 // Reset all bullets
|
|
|
|
; 53 for (i = 0; i < bulletAmount; i++)
|
|
|
|
; 54 {
|
|
|
|
; 55 bullets[i].dead = true;
|
|
|
|
; 56 bullets[i].pos.x = 0;
|
|
|
|
; 57 bullets[i].pos.y = 0;
|
|
|
|
; 58 }
|
|
|
|
; 59
|
|
|
|
; 60 // Reset all baddies
|
|
|
|
; 61 for (i = 0; i < baddieAmount; i++)
|
|
|
|
; 62 {
|
|
|
|
; 63 baddies[i].dead = true;
|
|
|
|
; 64 baddies[i].pos.x = 0;
|
|
|
|
; 65 baddies[i].pos.y = 0;
|
|
|
|
; 66 }
|
|
|
|
; 67 }
|
|
|
|
; 68
|
|
|
|
; 69 void main(void)
|
|
|
|
; 70 {
|
|
|
|
; 71 setup();
|
|
|
|
; 72 do
|
|
|
|
; 73 {
|
|
|
|
L_70:
|
2019-12-19 19:56:26 +01:00
|
|
|
LD SP,IX
|
|
|
|
POP IX
|
|
|
|
RET
|
|
|
|
|
|
|
|
|
|
|
|
;**************************** _handleInput ***************************
|
|
|
|
;Name Addr/Register Size Type
|
|
|
|
;_random IMPORT ----- function
|
|
|
|
;_baddieSpawned STATIC 3 variable
|
|
|
|
;_bulletSpawned STATIC 3 variable
|
|
|
|
;_speed STATIC 4 variable
|
|
|
|
;_player STATIC 16 variable
|
|
|
|
;_kb_Scan IMPORT ----- function
|
2019-12-19 21:00:20 +01:00
|
|
|
;G_27 IX-12 3 variable
|
|
|
|
;G_26 IX-9 3 variable
|
|
|
|
;G_25 IX-6 3 variable
|
|
|
|
;G_24 IX-3 3 variable
|
2019-12-19 19:56:26 +01:00
|
|
|
|
|
|
|
|
|
|
|
; Stack Frame Size: 27 (bytes)
|
|
|
|
; Spill Code: 0 (instruction)
|
|
|
|
|
|
|
|
|
|
|
|
_setup:
|
|
|
|
LD HL,-12
|
|
|
|
CALL __frameset
|
|
|
|
CALL _boot_Set48MHzModeI
|
|
|
|
CALL _gfx_Begin
|
|
|
|
LD BC,0
|
2019-12-17 22:50:36 +01:00
|
|
|
PUSH BC
|
2019-12-19 19:56:26 +01:00
|
|
|
LD BC,26
|
2019-12-17 22:50:36 +01:00
|
|
|
PUSH BC
|
2019-12-19 19:56:26 +01:00
|
|
|
LD BC,_sprites_pal
|
2019-12-17 22:50:36 +01:00
|
|
|
PUSH BC
|
2019-12-19 19:56:26 +01:00
|
|
|
CALL _gfx_SetPalette
|
2019-12-17 22:50:36 +01:00
|
|
|
POP BC
|
|
|
|
POP BC
|
|
|
|
POP BC
|
2019-12-19 19:56:26 +01:00
|
|
|
LD BC,1
|
|
|
|
PUSH BC
|
|
|
|
CALL _gfx_FillScreen
|
|
|
|
POP BC
|
|
|
|
LD BC,_player
|
|
|
|
LD (IX+-6),BC
|
|
|
|
LD IY,(IX+-6)
|
|
|
|
LD BC,2097152
|
2019-12-17 22:50:36 +01:00
|
|
|
LD (IY+0),BC
|
2019-12-19 19:56:26 +01:00
|
|
|
LD A,65
|
2019-12-17 22:50:36 +01:00
|
|
|
LD (IY+3),A
|
2019-12-19 19:56:26 +01:00
|
|
|
LD BC,524288
|
|
|
|
LD (IY+4),BC
|
|
|
|
LD (IY+7),67
|
|
|
|
LD BC,_player+8
|
|
|
|
LD (IX+-3),BC
|
2019-12-17 22:50:36 +01:00
|
|
|
LD IY,(IX+-3)
|
2019-12-19 19:56:26 +01:00
|
|
|
LD BC,2097152
|
|
|
|
LD (IY+0),BC
|
|
|
|
LD (IY+3),A
|
2019-12-17 22:50:36 +01:00
|
|
|
LD (IY+4),BC
|
|
|
|
LD (IY+7),A
|
2019-12-19 19:56:26 +01:00
|
|
|
LD BC,0
|
|
|
|
LD (_i),BC
|
2019-12-19 21:00:20 +01:00
|
|
|
JR L_74
|
|
|
|
L_72:
|
2019-12-19 19:56:26 +01:00
|
|
|
LD HL,(_i)
|
2019-12-19 21:00:20 +01:00
|
|
|
LD A,17
|
2019-12-19 19:56:26 +01:00
|
|
|
CALL __imul_b
|
|
|
|
LD BC,_bullets
|
|
|
|
ADD HL,BC
|
|
|
|
LD (IX+-9),HL
|
|
|
|
LD IY,(IX+-9)
|
|
|
|
LD (IY+0),1
|
|
|
|
LD BC,0
|
|
|
|
LD (IY+1),BC
|
|
|
|
LD (IY+4),0
|
|
|
|
LD (IY+5),BC
|
|
|
|
LD (IY+8),0
|
|
|
|
LD BC,(_i)
|
|
|
|
INC BC
|
|
|
|
LD (_i),BC
|
2019-12-19 21:00:20 +01:00
|
|
|
L_74:
|
2019-12-19 19:56:26 +01:00
|
|
|
LD BC,5
|
|
|
|
LD HL,(_i)
|
|
|
|
OR A,A
|
|
|
|
SBC HL,BC
|
2019-12-19 21:00:20 +01:00
|
|
|
JP M,L_72
|
2019-12-19 19:56:26 +01:00
|
|
|
LD BC,0
|
|
|
|
LD (_i),BC
|
2019-12-19 21:00:20 +01:00
|
|
|
JR L_78
|
|
|
|
L_76:
|
2019-12-19 19:56:26 +01:00
|
|
|
LD HL,(_i)
|
2019-12-19 21:00:20 +01:00
|
|
|
LD A,17
|
2019-12-19 19:56:26 +01:00
|
|
|
CALL __imul_b
|
|
|
|
LD BC,_baddies
|
|
|
|
ADD HL,BC
|
|
|
|
LD (IX+-12),HL
|
|
|
|
LD IY,(IX+-12)
|
|
|
|
LD (IY+0),1
|
|
|
|
LD BC,0
|
|
|
|
LD (IY+1),BC
|
|
|
|
LD (IY+4),0
|
|
|
|
LD (IY+5),BC
|
|
|
|
LD (IY+8),0
|
|
|
|
LD BC,(_i)
|
|
|
|
INC BC
|
|
|
|
LD (_i),BC
|
2019-12-19 21:00:20 +01:00
|
|
|
L_78:
|
|
|
|
LD BC,12
|
2019-12-19 19:56:26 +01:00
|
|
|
LD HL,(_i)
|
|
|
|
OR A,A
|
|
|
|
SBC HL,BC
|
|
|
|
CALL __setflag
|
2019-12-19 21:00:20 +01:00
|
|
|
JP M,L_76
|
2019-12-19 19:56:26 +01:00
|
|
|
LD SP,IX
|
|
|
|
POP IX
|
|
|
|
RET
|
|
|
|
|
|
|
|
|
|
|
|
;**************************** _setup ***************************
|
|
|
|
;Name Addr/Register Size Type
|
2019-12-19 21:00:20 +01:00
|
|
|
;_baddies STATIC 204 variable
|
|
|
|
;_bullets STATIC 85 variable
|
2019-12-19 19:56:26 +01:00
|
|
|
;_i STATIC 3 variable
|
|
|
|
;_player STATIC 16 variable
|
|
|
|
;_gfx_FillScreen IMPORT ----- function
|
|
|
|
;_sprites_pal IMPORT 26 variable
|
|
|
|
;_gfx_SetPalette IMPORT ----- function
|
|
|
|
;_gfx_Begin IMPORT ----- function
|
|
|
|
;_boot_Set48MHzModeI IMPORT ----- function
|
|
|
|
|
|
|
|
|
|
|
|
; Stack Frame Size: 18 (bytes)
|
|
|
|
; Spill Code: 0 (instruction)
|
|
|
|
|
|
|
|
|
|
|
|
_main:
|
|
|
|
CALL _setup
|
2019-12-19 21:00:20 +01:00
|
|
|
L_93:
|
|
|
|
; 74
|
|
|
|
; 75 // Handle user input
|
|
|
|
; 76 handleInput();
|
2019-12-19 19:56:26 +01:00
|
|
|
CALL _handleInput
|
2019-12-19 21:00:20 +01:00
|
|
|
; 77
|
|
|
|
; 78 // Move all alive bullets
|
|
|
|
; 79 for (i = 0; i < bulletAmount; i++)
|
2019-12-19 19:56:26 +01:00
|
|
|
LD BC,0
|
|
|
|
LD (_i),BC
|
2019-12-19 21:00:20 +01:00
|
|
|
JR L_85
|
|
|
|
L_83:
|
|
|
|
; 80 {
|
|
|
|
; 81 if (updateBullet(i) == 1)
|
2019-12-19 19:56:26 +01:00
|
|
|
LD BC,(_i)
|
|
|
|
PUSH BC
|
|
|
|
CALL _updateBullet
|
|
|
|
POP BC
|
|
|
|
LD BC,1
|
|
|
|
OR A,A
|
|
|
|
SBC HL,BC
|
2019-12-19 21:00:20 +01:00
|
|
|
JR NZ,L_84
|
|
|
|
; 82 {
|
|
|
|
; 83 spriteActive = 1;
|
2019-12-19 19:56:26 +01:00
|
|
|
LD (_spriteActive),BC
|
2019-12-19 21:00:20 +01:00
|
|
|
; 84 }
|
|
|
|
; 85 }
|
|
|
|
L_84:
|
2019-12-19 19:56:26 +01:00
|
|
|
LD BC,(_i)
|
|
|
|
INC BC
|
|
|
|
LD (_i),BC
|
2019-12-19 21:00:20 +01:00
|
|
|
L_85:
|
2019-12-19 19:56:26 +01:00
|
|
|
LD BC,5
|
|
|
|
LD HL,(_i)
|
|
|
|
OR A,A
|
|
|
|
SBC HL,BC
|
|
|
|
CALL __setflag
|
2019-12-19 21:00:20 +01:00
|
|
|
JP M,L_83
|
|
|
|
; 86
|
|
|
|
; 87 // Move all alive baddies
|
|
|
|
; 88 for (i = 0; i < baddieAmount; i++)
|
2019-12-19 19:56:26 +01:00
|
|
|
LD BC,0
|
|
|
|
LD (_i),BC
|
2019-12-19 21:00:20 +01:00
|
|
|
JR L_90
|
|
|
|
L_88:
|
|
|
|
; 89 {
|
|
|
|
; 90 if (updateBaddie(i) == 1)
|
2019-12-19 19:56:26 +01:00
|
|
|
LD BC,(_i)
|
|
|
|
PUSH BC
|
|
|
|
CALL _updateBaddie
|
|
|
|
POP BC
|
|
|
|
LD BC,1
|
|
|
|
OR A,A
|
|
|
|
SBC HL,BC
|
2019-12-19 21:00:20 +01:00
|
|
|
JR NZ,L_89
|
|
|
|
; 91 {
|
|
|
|
; 92 spriteActive = 1;
|
2019-12-19 19:56:26 +01:00
|
|
|
LD (_spriteActive),BC
|
2019-12-19 21:00:20 +01:00
|
|
|
; 93 }
|
|
|
|
; 94
|
|
|
|
; 95 }
|
|
|
|
L_89:
|
2019-12-19 19:56:26 +01:00
|
|
|
LD BC,(_i)
|
|
|
|
INC BC
|
|
|
|
LD (_i),BC
|
2019-12-19 21:00:20 +01:00
|
|
|
L_90:
|
|
|
|
LD BC,12
|
2019-12-19 19:56:26 +01:00
|
|
|
LD HL,(_i)
|
|
|
|
OR A,A
|
|
|
|
SBC HL,BC
|
|
|
|
CALL __setflag
|
2019-12-19 21:00:20 +01:00
|
|
|
JP M,L_88
|
|
|
|
; 96
|
|
|
|
; 97 checkCollision();
|
|
|
|
CALL _checkCollision
|
|
|
|
; 98
|
|
|
|
; 99 // Redraw player if position has changed or if a bullet has been fired
|
|
|
|
; 100 updatePlayer(spriteActive);
|
2019-12-19 19:56:26 +01:00
|
|
|
LD BC,(_spriteActive)
|
|
|
|
PUSH BC
|
|
|
|
CALL _updatePlayer
|
|
|
|
POP BC
|
2019-12-19 21:00:20 +01:00
|
|
|
; 101
|
|
|
|
; 102 } while (kb_Data[6] != kb_Enter);
|
2019-12-17 22:50:36 +01:00
|
|
|
LD A,(16056348)
|
|
|
|
CP A,1
|
2019-12-19 21:00:20 +01:00
|
|
|
JR NZ,L_93
|
|
|
|
; 103
|
|
|
|
; 104 // Close the graphics
|
|
|
|
; 105 gfx_End();
|
2019-12-17 22:50:36 +01:00
|
|
|
CALL _gfx_End
|
|
|
|
RET
|
|
|
|
|
|
|
|
|
|
|
|
;**************************** _main ***************************
|
|
|
|
;Name Addr/Register Size Type
|
|
|
|
;_gfx_End IMPORT ----- function
|
2019-12-19 19:56:26 +01:00
|
|
|
;_spriteActive STATIC 3 variable
|
|
|
|
;_i STATIC 3 variable
|
|
|
|
|
|
|
|
|
|
|
|
; Stack Frame Size: 6 (bytes)
|
2019-12-17 22:50:36 +01:00
|
|
|
; Spill Code: 0 (instruction)
|
|
|
|
|
|
|
|
|
2019-12-19 19:56:26 +01:00
|
|
|
XREF _kb_Scan:ROM
|
2019-12-17 22:50:36 +01:00
|
|
|
XREF _sprites_pal:ROM
|
2019-12-19 19:56:26 +01:00
|
|
|
XREF _baddie_data:ROM
|
2019-12-17 22:50:36 +01:00
|
|
|
XREF _bullet_data:ROM
|
|
|
|
XREF _spaceship_data:ROM
|
|
|
|
XREF _gfx_Sprite:ROM
|
|
|
|
XREF _gfx_FillScreen:ROM
|
|
|
|
XREF _gfx_SetPalette:ROM
|
|
|
|
XREF _gfx_End:ROM
|
|
|
|
XREF _gfx_Begin:ROM
|
|
|
|
XREF _abs:ROM
|
2019-12-19 21:00:20 +01:00
|
|
|
XREF _sqrt:ROM
|
|
|
|
XREF _pow:ROM
|
2019-12-17 22:50:36 +01:00
|
|
|
XREF _boot_Set48MHzModeI:ROM
|
2019-12-19 19:56:26 +01:00
|
|
|
XREF _random:ROM
|
|
|
|
XREF __iremu:ROM
|
2019-12-17 22:50:36 +01:00
|
|
|
XREF __fadd:ROM
|
|
|
|
XREF __fsub:ROM
|
|
|
|
XREF __fcmp:ROM
|
|
|
|
XREF __ftol:ROM
|
2019-12-19 19:56:26 +01:00
|
|
|
XREF __ultof:ROM
|
2019-12-17 22:50:36 +01:00
|
|
|
XREF __frameset:ROM
|
|
|
|
XREF __setflag:ROM
|
|
|
|
XREF __icmpzero:ROM
|
|
|
|
XREF __imul_b:ROM
|
|
|
|
XDEF _main
|
|
|
|
XDEF _setup
|
2019-12-19 19:56:26 +01:00
|
|
|
XDEF _handleInput
|
2019-12-19 21:00:20 +01:00
|
|
|
XDEF _checkCollision
|
|
|
|
XDEF _a
|
|
|
|
XDEF _difference
|
|
|
|
XDEF _distance
|
2019-12-19 19:56:26 +01:00
|
|
|
XDEF _updateBaddie
|
|
|
|
XDEF _spawnBaddie
|
2019-12-17 22:50:36 +01:00
|
|
|
XDEF _baddies
|
2019-12-19 19:56:26 +01:00
|
|
|
XDEF _baddieSpawned
|
|
|
|
XDEF _updateBullet
|
2019-12-17 22:50:36 +01:00
|
|
|
XDEF _spawnBullet
|
|
|
|
XDEF _bullets
|
2019-12-19 19:56:26 +01:00
|
|
|
XDEF _bulletSpawned
|
2019-12-17 22:50:36 +01:00
|
|
|
XDEF _updatePlayer
|
|
|
|
XDEF _player
|
2019-12-19 21:00:20 +01:00
|
|
|
XDEF _dt
|
|
|
|
XDEF _t
|
2019-12-17 22:50:36 +01:00
|
|
|
XDEF _i
|
|
|
|
XDEF _speed
|
2019-12-19 21:00:20 +01:00
|
|
|
XDEF _gamestate
|
2019-12-19 19:56:26 +01:00
|
|
|
XDEF _spriteActive
|
|
|
|
XDEF _baddieAmount
|
|
|
|
XDEF _bulletAmount
|
2019-12-17 22:50:36 +01:00
|
|
|
END
|