arch-msx/original-dome
2
0
Fork 0
Code Actions Activity
original-dome/src/dome/dome.asm

8426 lines
98 KiB
NASM
Raw Normal View History

added dome and loader
2018-12-24 23:50:41 +00:00
;--------------------------------------
; DOME
;
; (c) 1997 / 98 / 99 Paragon Productions
;
;--------------------------------------
DOS .equ 0x5
ENASLT .equ 0x24
GET_INT .equ 0x0100
PUT_INT .equ 0x0103
COLOR_WHITE .equ 0x0106
COLOR_BLACK .equ 0x0109
SCREEN_ON .equ 0x010C
SCREEN_OFF .equ 0x010F
SET_SCREEN0 .equ 0x0112
SET_SCREEN5 .equ 0x0115
SPRITES_ON .equ 0x0118
SPRITES_OFF .equ 0x011B
;PUT_SPRITE .equ 0x011E
SET_PAGE .equ 0x0121
GET_TIME .equ 0x0124
PUT_TXT .equ 0x0127
PUT_TXT2 .equ 0x012A
INIT_BIOS .equ 0x012D
EXIT_ON_ERR .equ 0x0130
LOAD .equ 0x0133
INIT_LIB .equ 0x0136
SAVE .equ 0x0139
PUT_PAGE_FD .equ 0x013C
PUT_PAGE_FE .equ 0x013F
INIT_REP .equ 0x0142
LOAD_MUS .equ 0x0145
LOAD_SAM .equ 0x0148
;PLAY .equ 0x014B
;STOP .equ 0x014E
FADE .equ 0x0151
NEXT .equ 0x0154
MUS_NR .equ 0x0157
POP_UP_START .equ 0x015A
;PUTBLK .equ 0x015D
PUT_COLOR .equ 0x0160
DOME_MENU_CALL .equ 0x0163
RESTORE_MEM .equ 0x0166
INIT_BIOS_MEM .equ 0x0169
RUN_GAME .equ 0x016C
;INT_ROUTINE .equ 0x016F
HOOK_ON .equ 0x0172
HOOK_OFF .equ 0x0175
INIT_INT .equ 0x0178
; last modification date 5-04-99
JIFFY .equ 0xFC9E ; wordt nog gebruikt
TANK_DATA .equ 32 ; 32 bytes
BUILD_DATA .equ 13
VELD_ADRES .equ 0x4000
TANKTAB .equ 0x2000
TANK1 .equ 0x2000+32 ;adres tank tabel !!!!!!!!!!!!!!!!!
TANKRED .equ 0x2000+128*TANK_DATA
;------------- DOME ---------------- kick off !!
.area _CODE
; org 0x8000
ST:
LD (EXIT_STACK),SP
CALL INIT_DUNE2
XOR A
LD (EVENT),A
MAIN_LOOP:
LD A,(FIRE_BUTTONS)
BIT 4,A
JR NZ,RESET_BUTTON0
CALL Z,CHECK_COOR
MAIN_LOOP2:
LD A,(FIRE_BUTTONS)
BIT 5,A
JR NZ,RESET_BUTTON1
CALL Z,CANCELACTION
MAIN_LOOP3:
; CALL CHK_SPATIE
; CALL Z,TEST_ADD_TNK
; CALL NZ,SPICE_BOOM
LD A,(STOP)
OR A
JP NZ,EXIT_DUNE2
CALL UPDATE_EVENT
JR MAIN_LOOP
UPDATE_EVENT:
LD A,(EVENT)
INC A
CP #6
JR NZ,UPD2
XOR A
UPD2:
LD (EVENT),A
LD HL,#EVENTHANDLER
SLA A
LD C,A
LD B,#0
ADD HL,BC
LD E,(HL)
INC HL
LD D,(HL)
EX DE,HL
JP (HL)
RESET_BUTTON0:
LD HL,#BUT_PRESSED
RES 0,(HL)
JR MAIN_LOOP2
RESET_BUTTON1:
LD HL,#BUT_PRESSED
RES 1,(HL)
JR MAIN_LOOP3
;-----------------------------------------
INIT_DUNE2:
LD A,#0
LD (B_BALK_NR),A
LD A,#8
LD (T_BALK_NR),A
LD A,#0
LD (B_BALK_TYPE),A
CALL INIT_BBAR
CALL MMODULE_INIT
LD HL,#CPYTT
LD B,#79
XOR A
LOOP0: LD (HL),A
INC HL
DJNZ LOOP0
LD (STOP),A
LD HL,(ADR)
LD BC,#9*256+17*4
ADD HL,BC
LD (ADR),HL
LD A,#18
LD (OFFSET),A
LD A,#10
LD (OFFSET+1),A
LD IX,#SPRATR+4 ; radar sprite
LD 0(IX),#128+10
LD 1(IX),#193+18
; even roode cc yard erbij
CALL MAKE_RED_BASE
CALL FREE_BLW_BASE ; creer gezichtsveld 1e keer
;--------------------
CALL PUT_SPRITE ; radarsprite
CALL INIT_RADAR ; maak radar
CALL PUT_MONEY ; plaatsmoney
CALL CLEAR_ITEM ; maak itemscherm schoon
CALL INIT_MOUSE ; start mouse lookup
LD HL,#INT_GAME
CALL PUT_INT ; PUT ADR DOME-INT
HALT ; geef buttons een kans
RET
;-------------------------------------
INIT_MOUSE:
LD A,#15
OUT (0xA0),A
IN A,(0xA2)
AND #0x8F
OR #0x30
LD (MOUSE_PORT),A
XOR A
LD (MOUSE_USE),A
LD (MOUSE_OFF),A
LD HL,#0x002D
LD A,#0 ;(0xFCC1) ; SLOT ADR BIOS = 0
CALL 0x0C ; interslot call
CP #3
JR Z,INIT_MOUSE_TR
LD A,#31
LD (MOUSE_WAIT1),A
LD A,#10
LD (MOUSE_WAIT2),A
RET
INIT_MOUSE_TR:
LD A,#31*5
LD (MOUSE_WAIT1),A
LD A,#10*5
LD (MOUSE_WAIT2),A
RET
;-----------------------------------------
EXIT_DUNE2:
JP EXIT_ON_ERR
RET
;-------------------------------------------------
; check op scrollen randjes
;------------------------------------------------
CHKXY:
LD IX,#SPRATR+4
CALL PUT_SPRITE
LD D,#4
SCRL:
LD A,(MOUSEX)
CP #245
JP NC,SCRL_R
CP #4
JP C,SCRL_L
LD A,(MOUSEY)
CP #200
JP NC,SCRL_D
CP #4
JP C,SCRL_U
LD A,(CURSOR_TYPE)
LD (MOUSE_SHAPE),A
RET
SCRL_R:
LD A,#16
LD (MOUSE_SHAPE),A
LD HL,#MAXSET
LD A,(OFFSET)
CP (HL)
RET Z
INC A
LD (OFFSET),A
INC 1(IX)
LD HL,(ADR)
LD B,#0
LD C,D
ADD HL,BC
LD (ADR),HL
CALL BUILD
JP CHKXY
SCRL_L:
LD A,#24
LD (MOUSE_SHAPE),A
LD A,(OFFSET)
CP #1
RET Z
DEC A
LD (OFFSET),A
DEC 1(IX)
LD HL,(ADR)
LD B,#0
LD C,D
SBC HL,BC
LD (ADR),HL
CALL BUILD
JP CHKXY
SCRL_D:
LD A,#20
LD (MOUSE_SHAPE),A
LD HL,#MAXSET+1
LD A,(OFFSET+1)
CP (HL)
RET Z
INC A
LD (OFFSET+1),A
INC 0(IX)
XOR A
LD HL,(ADR)
INC H
LD (ADR),HL
CALL BUILD
JP CHKXY
SCRL_U:
LD A,#12
LD (MOUSE_SHAPE),A
LD A,(OFFSET+1)
CP #1
RET Z
DEC A
LD (OFFSET+1),A
DEC 0(IX)
XOR A
LD HL,(ADR)
DEC H
LD (ADR),HL
CALL BUILD
JP CHKXY
;---------------- Tabel update !!!----------
CX: .db 0
CY: .db 0
UPDATE:
LD IX,#TANK1
UPDATELOOP:
LD A,13(IX)
OR A
CALL NZ,TEST_WAT_NU
LD DE,#TANK_DATA
ADD IX,DE
LD HL,#TOTTANK
DEC (HL)
JP NZ,UPDATELOOP
LD A,#254
LD (TOTTANK),A
RET
TOTTANK: .db 254
TEST_WAT_NU:
BIT 4,11(IX)
JP NZ,DO_MOVE
CALL IMPACT_GFX
BIT 6,11(IX)
JP NZ,DO_ATTACK
JP CHECK_MOVE
RET
DO_MOVE:
LD A,6(IX)
OR A
JR Z,UPDATEXY
DEC 6(IX) ; verlaag de step byte
LD A,4(IX) ; x offset
SUB 7(IX) ; x speed eraf
LD 4(IX),A
LD A,5(IX)
SUB 8(IX) ; y speed eraf
LD 5(IX),A
RET
UPDATEXY:
LD 4(IX),#0
LD 5(IX),#0
LD 6(IX),#0
LD 7(IX),#0
LD 8(IX),#0
BIT 5,23(IX) ; DIT BIT JE IS GUARD
CALL NZ,TNK_CHK ; KIJK EEN RONDJE OM ZICH HEEN
CHECK_MOVE:
BIT 5,11(IX)
CALL NZ,ATT_MOVE ; geen jump ?? WEL DUS !!
LD A,15(IX)
AND #0b11110000
JP NZ,AFWK_MOVE
LD A,0(IX)
SUB 2(IX)
LD B,A
LD A,#0
RL A
LD (CX),A
LD A,1(IX)
SUB 3(IX)
LD C,A
LD A,#0
RL A
LD (CY),A
LD A,B
OR C
JP Z,TURN_ROUND
XOR A
LD A,0x00(IX)
SUB 0x02(IX)
JP Z,J82F1
LD A,0x01(IX)
SUB 0x03(IX)
JP Z,J82E6
LD A,(CX)
OR A
JR Z,SCHUIN
LD A,(CY)
OR A
JP Z,POSITIE_2
JP POSITIE_4
SCHUIN: LD A,(CY)
OR A
JP Z,POSITIE_8
JP POSITIE_6
J82E6: LD A,(CX)
OR A
JP Z,POSITIE_7
JP POSITIE_3
J82F1: LD A,(CY)
OR A
JP Z,POSITIE_1
JP POSITIE_5
POSITIE_1:
LD B,0(IX)
LD C,1(IX)
CALL CALC_ADR
LD D,H
LD E,L
CALL CHKUP
LD A,#1
JP NZ,POS1_KAN
CALL CHKUPLT
LD A,#1+(8*16)
JP NZ,POS8_KAN
CALL CHKUPRI
LD A,#1+(2*16)
JP NZ,POS2_KAN
CALL CHKLT
LD A,#1+(7*16)
JP NZ,POS7_KAN
CALL CHKRI
LD A,#1+(3*16)
JP NZ,POS3_KAN
JP TANK_VAST
POSITIE_2:
LD B,0(IX)
LD C,1(IX)
CALL CALC_ADR
LD D,H
LD E,L
CALL CHKUPRI
LD A,#2
JP NZ,POS2_KAN
CALL CHKUP
LD A,#2+(1*16)
JP NZ,POS1_KAN
CALL CHKRI
LD A,#2+(3*16)
JP NZ,POS3_KAN
CALL CHKUPLT
LD A,#2+(8*16)
JP NZ,POS8_KAN
CALL CHKDORI
LD A,#2+(4*16)
JP NZ,POS4_KAN
JP TANK_VAST
POSITIE_3:
LD B,0(IX)
LD C,1(IX)
CALL CALC_ADR
LD D,H
LD E,L
CALL CHKRI
LD A,#3
JP NZ,POS3_KAN
CALL CHKUPRI
LD A,#3+(2*16)
JP NZ,POS2_KAN
CALL CHKDORI
LD A,#3+(4*16)
JP NZ,POS4_KAN
CALL CHKUP
LD A,#3+(1*16)
JP NZ,POS1_KAN
CALL CHKDN
LD A,#3+(5*16)
JP NZ,POS5_KAN
JP TANK_VAST
POSITIE_4:
LD B,0(IX)
LD C,1(IX)
CALL CALC_ADR
LD D,H
LD E,L
CALL CHKDORI
LD A,#4
JP NZ,POS4_KAN
CALL CHKDN
LD A,#4+(5*16)
JP NZ,POS5_KAN
CALL CHKRI
LD A,#4+(3*16)
JP NZ,POS3_KAN
CALL CHKUPRI
LD A,#4+(2*16)
JP NZ,POS2_KAN
CALL CHKDOLT
LD A,#4+(6*16)
JP NZ,POS6_KAN
JP TANK_VAST
POSITIE_5:
LD B,0(IX)
LD C,1(IX)
CALL CALC_ADR
LD D,H
LD E,L
CALL CHKDN
LD A,#5
JP NZ,POS5_KAN
CALL CHKDOLT
LD A,#5+(6*16)
JP NZ,POS6_KAN
CALL CHKDORI
LD A,#5+(4*16)
JP NZ,POS4_KAN
CALL CHKLT
LD A,#5+(7*16)
JP NZ,POS7_KAN
CALL CHKRI
LD A,#5+(3*16)
JP NZ,POS3_KAN
JP TANK_VAST
POSITIE_6:
LD B,0(IX)
LD C,1(IX)
CALL CALC_ADR
LD D,H
LD E,L
CALL CHKDOLT
LD A,#6
JP NZ,POS6_KAN
CALL CHKLT
LD A,#6+(7*16)
JP NZ,POS7_KAN
CALL CHKDN
LD A,#6+(5*16)
JP NZ,POS5_KAN
CALL CHKUPLT
LD A,#6+(8*16)
JP NZ,POS8_KAN
CALL CHKDORI
LD A,#6+(4*16)
JP NZ,POS4_KAN
JP TANK_VAST
POSITIE_7:
LD B,0(IX)
LD C,1(IX)
CALL CALC_ADR
LD D,H
LD E,L
CALL CHKLT
LD A,#7
JP NZ,POS7_KAN
CALL CHKDOLT
LD A,#7+(6*16)
JP NZ,POS6_KAN
CALL CHKUPLT
LD A,#7+(8*16)
JP NZ,POS8_KAN
CALL CHKUP
LD A,#7+(1*16)
JP NZ,POS1_KAN
CALL CHKDN
LD A,#7+(5*16)
JP NZ,POS5_KAN
JP TANK_VAST
POSITIE_8:
LD B,0(IX)
LD C,1(IX)
CALL CALC_ADR
LD D,H
LD E,L
CALL CHKUPLT
LD A,#8
JP NZ,POS8_KAN
CALL CHKUP
LD A,#8+(1*16)
JP NZ,POS1_KAN
CALL CHKLT
LD A,#8+(7*16)
JP NZ,POS7_KAN
CALL CHKUPRI
LD A,#8+(2*16)
JP NZ,POS2_KAN
CALL CHKDOLT
LD A,#8+(6*16)
JP NZ,POS6_KAN
JP TANK_VAST
POS1_KAN: LD 15(IX),A
POS10KAN: SET 4,0x0B(IX)
CALL RES_TANK_LAY
DEC H
LD (HL),A
DEC HL
DEC HL
LD A,(HL)
OR A
JR Z,POS10KAN1
LD (HL),B
POS10KAN1:
LD 0x09(IX),#0
LD A,0x0A(IX)
LD 0x07(IX),#0
; NEG
LD 0x08(IX),A
; NEG
LD 4(IX),#0
LD 5(IX),#16
DEC 1(IX) ; Y=Y-1
JP SPEED_STEP
POS2_KAN: LD 15(IX),A
POS20KAN: SET 4,0x0B(IX)
CALL RES_TANK_LAY
DEC H ; - 256
INC HL
INC HL
INC HL
INC HL ; + 4
LD (HL),A
DEC HL
DEC HL
LD A,(HL)
OR A
JR Z,POS20KAN1
LD (HL),B
POS20KAN1:
LD 0x09(IX),#1
LD A,0x0A(IX)
NEG
LD 0x07(IX),A
NEG
; NEG
LD 0x08(IX),A
; NEG
LD 4(IX),#-16
LD 5(IX),#16
INC 0(IX) ; X=X-1
DEC 1(IX) ; Y = Y -1
JP SPEED_STEP
POS3_KAN: LD 15(IX),A
POS30KAN: SET 4,0x0B(IX)
CALL RES_TANK_LAY
INC HL
INC HL
INC HL
INC HL
LD (HL),A
DEC HL
DEC HL
LD A,(HL)
OR A
JR Z,POS30KAN1
LD (HL),B
POS30KAN1:
LD 0x09(IX),#2
LD A,0x0A(IX)
NEG
LD 0x07(IX),A
NEG
LD 0x08(IX),#0
LD 4(IX),#-16
LD 5(IX),#0
INC 0(IX) ; X=X+1
JP SPEED_STEP
POS4_KAN: LD 15(IX),A
POS40KAN: SET 4,0x0B(IX)
CALL RES_TANK_LAY
INC HL
INC HL
INC HL
INC HL
INC H
LD (HL),A
DEC HL
DEC HL
LD A,(HL)
OR A
JR Z,POS40KAN1
LD (HL),B
POS40KAN1:
LD 0x09(IX),#3
LD A,0x0A(IX)
NEG
LD 0x07(IX),A
LD 0x08(IX),A
NEG
LD 4(IX),#-16
LD 5(IX),#-16
INC 0(IX) ; X=X-1
INC 1(IX) ; Y = Y -1
JP SPEED_STEP
POS5_KAN: LD 15(IX),A
POS50KAN: SET 4,0x0B(IX)
CALL RES_TANK_LAY
INC H
LD (HL),A
DEC HL
DEC HL
LD A,(HL)
OR A
JR Z,POS50KAN1
LD (HL),B
POS50KAN1:
LD 0x09(IX),#4
LD A,0x0A(IX)
NEG
LD 0x08(IX),A
NEG
LD 0x07(IX),#0
LD 4(IX),#0
LD 5(IX),#-16
INC 1(IX) ; Y = Y + 1
JP SPEED_STEP
POS6_KAN: LD 15(IX),A
POS60KAN: SET 4,0x0B(IX)
CALL RES_TANK_LAY
INC H
DEC HL
DEC HL
DEC HL
DEC HL
LD (HL),A
DEC HL
DEC HL
LD A,(HL)
OR A
JR Z,POS60KAN1
LD (HL),B
POS60KAN1:
LD 0x09(IX),#5
LD A,0x0A(IX)
; NEG
LD 0x07(IX),A
; NEG
NEG
LD 0x08(IX),A
NEG
LD 4(IX),#16
LD 5(IX),#-16
DEC 0(IX) ; X=X-1
INC 1(IX) ; Y = Y -1
JP SPEED_STEP
POS7_KAN: LD 15(IX),A
POS70KAN: SET 4,0x0B(IX)
CALL RES_TANK_LAY
DEC HL
DEC HL
DEC HL
DEC HL
LD (HL),A
DEC HL
DEC HL
LD A,(HL)
OR A
JR Z,POS70KAN1
LD (HL),B
POS70KAN1:
LD 0x09(IX),#6
LD A,0x0A(IX)
LD 0x07(IX),A
LD 0x08(IX),#0
LD 4(IX),#16
LD 5(IX),#0
DEC 0(IX) ; X=X-1
JP SPEED_STEP
POS8_KAN: LD 15(IX),A
POS80KAN: SET 4,0x0B(IX)
CALL RES_TANK_LAY
DEC HL
DEC HL
DEC HL
DEC HL
DEC H
LD (HL),A
DEC HL
DEC HL
LD A,(HL)
OR A
JR Z,POS80KAN1
LD (HL),B
POS80KAN1:
LD 0x09(IX),#7
LD A,0x0A(IX)
; NEG
LD 0x07(IX),A
LD 0x08(IX),A
; NEG
LD 4(IX),#+16
LD 5(IX),#16
DEC 0(IX) ; X=X-1
DEC 1(IX) ; Y = Y -1
JP SPEED_STEP
TANK_VAST: LD A,0(IX) ; kan geen kant op !!
LD 2(IX),A
LD A,1(IX)
LD 3(IX),A
LD 15(IX),#0
LD 7(IX),#0
LD 8(IX),#0
RET
AFWK_MOVE: LD A,15(IX)
AND #0b00001111
LD HL,#CHK_TABEL
DEC A
SLA A
SLA A
LD C,A
LD B,#0
ADD HL,BC
PUSH HL
LD DE,#DYNACALL+1
LD A,(HL)
LD (DE),A
INC HL
INC DE
LD A,(HL)
LD (DE),A
LD B,0(IX)
LD C,1(IX)
CALL CALC_ADR
CALL DYNACALL
POP HL
JR Z,J84FB
LD 15(IX),#0
INC HL
INC HL
LD DE,#DYNAJUMP+1
LD A,(HL)
LD (DE),A
INC DE
INC HL
LD A,(HL)
LD (DE),A
JP DYNAJUMP
RET
J84FB: LD HL,#CHK_TABEL
LD A,15(IX)
AND #0b11110000
SRL A
SRL A
SUB #4
LD C,A
LD B,#0
ADC HL,BC
PUSH HL
LD DE,#DYNACALL+1
LD A,(HL)
LD (DE),A
INC HL
INC DE
LD A,(HL)
LD (DE),A
LD B,0(IX)
LD C,1(IX)
CALL CALC_ADR
CALL DYNACALL
POP HL
JR Z,REVERSE_MOVE
INC HL
INC HL
LD DE,#DYNAJUMP+1
LD A,(HL)
LD (DE),A
INC DE
INC HL
LD A,(HL)
LD (DE),A
JP DYNAJUMP
RET
REVERSE_MOVE:
LD 15(IX),#0
RET
DYNACALL: CALL 0x0
RET
DYNAJUMP: JP 0x0
CHK_TABEL:
.dw CHKUP+2
.dw POS10KAN
.dw CHKUPRI+2
.dw POS20KAN
.dw CHKRI+2
.dw POS30KAN
.dw CHKDORI+2
.dw POS40KAN
.dw CHKDN+2
.dw POS50KAN
.dw CHKDOLT+2
.dw POS60KAN
.dw CHKLT+2
.dw POS70KAN
.dw CHKUPLT+2
.dw POS80KAN
ATT_MOVE: ; ;attack en doel zoeken
BIT 3,11(IX)
JP NZ,ATT_MOVE_B ; op 1 is gebouw aanvallen
LD A,11(IX) ; type tank
AND #0b00000111
SLA A
LD HL,#RADARS
LD C,A
LD B,#0
ADD HL,BC
LD E,(HL)
INC HL
LD D,(HL)
EX DE,HL
LD A,14(IX)
PUSH IX
CALL A_TO_IX
LD B,0(IX) ; doel enemy
LD C,1(IX) ; doel enemy
POP IX
LD D,0(IX)
LD E,1(IX)
CHECK_AROUND: LD A,(HL)
CP #100
JR Z,END_CHK_RND
XOR A
LD A,B
ADC A,(HL)
CP D
INC HL
JR NZ,J85A0
XOR A
LD A,C
ADC A,(HL)
CP E
JR Z,FND_TARGET
J85A0:
INC HL
JP CHECK_AROUND
FND_TARGET:
LD A,B ; set geattacked coor in ix+20 & 21
LD 20(IX),A
LD A,C
LD 21(IX),A
LD E,(HL)
DEC HL
LD D,(HL)
CALL CALC_RICHT
LD A,0(IX) ; set x en y op einde
LD 2(IX),A
LD A,1(IX)
LD 3(IX),A
RES 4,11(IX) ; reset move bit
RES 5,11(IX) ; reset att move bit
SET 6,11(IX) ; set att bit
POP AF ; return adres van stack af einde
; ; update subroutine
RET
END_CHK_RND: ; eindcoordinaat
LD 2(IX),B
LD 3(IX),C
RET
;-------------------------------
; ATTACK GEBOUW
;-------------------------------
ATT_MOVE_B:
LD A,11(IX) ; type tank
AND #0b00000111
SLA A
LD HL,#RADARS
LD C,A
LD B,#0
ADD HL,BC
LD E,(HL)
INC HL
LD D,(HL)
EX DE,HL
LD B,2(IX) ; doel gebouw
LD C,3(IX) ; doel gebouw (loopt echt niet weg !)
LD D,0(IX) ; gebouw kan hooguit al kapot zijn!
LD E,1(IX) ; huidige coordinaten
CHECKAROUND2: LD A,(HL)
CP #100
RET Z ;nog niet in zicht dus rij maardoor
XOR A
LD A,B
ADC A,(HL)
CP D
INC HL
JR NZ,CONT_001
XOR A
LD A,C
ADC A,(HL)
CP E
JR Z,FND_TAR_BLD
CONT_001:
INC HL
JP CHECKAROUND2
FND_TAR_BLD:
CALL COLOR_WHITE
LD E,(HL)
DEC HL
LD D,(HL)
CALL CALC_RICHT
LD A,0(IX)
LD 2(IX),A
LD A,1(IX)
LD 3(IX),A
LD 4(IX),#0
LD 5(IX),#0
RES 5,11(IX)
SET 6,11(IX) ; set do_attack bitje
RET
;----------------------------------
; berekend de richting waarheen de tank moet staan !
;--------------------------------
CALC_RICHT:
LD C,#4
LD A,D
OR A
JR Z,TARGET_XNUL
RL A
JR C,TARGET_XNEG
LD A,E
OR A
JR Z,TARGET_YNUL
RL A
JR C,TARGET_YNEG
INC C
TARGET_YNUL:
INC C
TARGET_YNEG:
INC C
JP SET_RICHTING
TARGET_XNEG:
LD A,E
OR A
JR Z,TARGET_YNUL2
RL A
JR C,TARGET_YNEG2
DEC C
TARGET_YNUL2:
DEC C
TARGET_YNEG2:
DEC C
JP SET_RICHTING
TARGET_XNUL:
RL E
LD C,#0
JR NC,SET_RICHTING
LD C,#4
JP SET_RICHTING
SET_RICHTING:
LD 9(IX),C ; radar found bitje ook weer op 0
RET
;---------------------------------------
TURN_ROUND:
RES 4,11(IX) ; move uit !
LD A,13(IX)
CP #127
JR NC,CONT_TURNR
BIT 7,9(IX)
JR NZ,CONT_TURNR
SET 7,9(IX)
LD A,11(IX) ; type tank
AND #0b00000111
SLA A
LD HL,#RADARS
LD C,A
LD B,#0
ADD HL,BC
LD E,(HL)
INC HL
LD D,(HL)
TURN_LOOP:
LD A,(DE)
CP #100
JR Z,CONT_TURNR
ADD 1(IX)
LD C,A
INC DE
LD A,(DE)
ADD 0(IX)
LD B,A
LD (FOG_COOR),BC
CALL CALC_ADR
DEC HL
INC DE
LD A,(HL)
OR A
JR Z,TURN_LOOP
PUSH DE
LD (HL),#0 ; reveal fog of war
INC HL
CALL POINT
LD D,A ; inhoud adres
LD BC,(FOG_COOR)
LD A,C
LD C,B
LD B,A
SRL B
RR C
CALL D_TO_POINT
POP DE
JR TURN_LOOP
FOG_COOR: .dw 0
CONT_TURNR:
LD A,11(IX)
AND #0b00000111 ; GEEN DRAAI HARV/COUNTER ATT
JP Z,AI_HARVB ; DE AI VAN DE BLAUWE HARV
BIT 5,23(IX)
CALL NZ,TNK_CHK ; GUARD FUNCTIE VOOR ROOD ALLEEN
LD A,(TURN_WAIT)
DEC A
LD (TURN_WAIT),A
RET NZ
LD A,R
AND #0b00001111
LD (TURN_WAIT),A
LD A,9(IX)
LD B,A
LD A,R ;refresh is random ??
AND #0b00000011 ; yes!!! is coool
OR A
RET Z
CP #2
JP Z,T_ROUND_DEC
INC B
JP Z,UPDATE_TURN
T_ROUND_DEC:
DEC B
UPDATE_TURN:
LD A,9(IX)
AND #0b10000000
OR B ; fout correctie !
AND #0b10000111 ; radar update bitje meenemen
LD 9(IX),A
RET
TURN_WAIT: .db 10
;---------------------------------------------
DO_ATTACK: ; attack iets ??
CALL SHOOT_GFX
DEC 18(IX)
RET NZ
BIT 3,11(IX)
JP NZ,DO_ATT_BLD
LD L,13(IX) ; eigen nummer
LD A,19(IX) ; wait time before shot
LD 18(IX),A
LD A,14(IX) ; nummer van slachtoffer
LD (QUAKE),A ;
LD H,16(IX) ; power
LD E,20(IX)
LD D,21(IX)
PUSH IX
CALL A_TO_IX
LD A,4(IX) ; offset is niet 0 !!!
OR 5(IX)
JR NZ,STOP_ATTACK
LD A,0(IX)
CP E
JR NZ,STOP_ATTACK
LD A,1(IX)
CP D
JR NZ,STOP_ATTACK
; attack kan !
LD A,H
SUB 17(IX) ; -shield
LD B,A
LD A,12(IX) ; power van QUAKE
SUB B
LD 12(IX),A
JR NC,CONT_ATTACK
CALL REMOVE_TANK
POP IX
RET
CONT_ATTACK:
SET 4,22(IX) ; voor inslag ani 0e frame
; BIT 5,23(IX) ; schiet nooit terug
;JR NZ,CONTATTACK2 ; jajajaja dit werkt lekker
LD 14(IX),L ; nummer degene die schiet
LD A,11(IX) ; harvest filteren
AND #0b00000111
JR Z,CONTATTACK3
RES 3,11(IX) ; reset attack build !!!
RES 4,11(IX) ; move uit
SET 5,11(IX) ; attack move aan
CALL TNK_CHK_HELP
CONTATTACK2:
POP IX
SET 1,22(IX) ; voor schiet ani
RET
CONTATTACK3:
LD 14(IX),L
POP IX
SET 1,22(IX)
RET
STOP_ATTACK:
LD A,13(IX)
POP IX
LD 14(IX),A
RES 6,11(IX)
SET 5,11(IX)
RET
DO_ATT_BLD:
LD A,14(IX)
CALL A_TO_BLD
LD A,0(IY) ;geen gebouw
OR A
JR Z,STOP_ATT_B
SET 1,22(IX) ; schiet ani
LD A,19(IX) ; wait time before shot
LD 18(IX),A
LD A,16(IX) ;power TAnk
SUB 7(IY) ; -shield VAN GEBOUW
LD B,A
LD A,6(IY) ; power van GEBOUW
SUB B
LD 6(IY),A
JR Z,KILL_B
RET NC ; alles is goed schiet nog maar eens
KILL_B:
PUSH IX
CALL REMOVE_BUILD
POP IX
STOP_ATT_B:
RES 6,11(IX) ; kappe met schietn
RES 5,11(IX)
RET
;------------------------------------
SPEED_STEP: LD B,A
LD C,#0
LD A,#16
J8608: SUB B
JR Z,J860F
INC C
JP J8608
J860F: LD 6(IX),C
RET
;--------------------------------------
SHOOT_GFX:
LD A,22(IX)
AND #0b00000110
OR A
RET Z
LD IY,#IMPACT0
SLA A
SLA A
SLA A
LD B,A
LD A,#144
ADD B
LD 0(IY),A
CALL COPY_SHOOT
LD A,22(IX)
LD C,A
AND #0b11111001
LD B,A
LD A,C
AND #0b00000110
SRL A
INC A
AND #0b00000011
SLA A
OR B
LD 22(IX),A
RET
IMPACT_GFX:
LD A,22(IX)
AND #0b00110000
OR A
RET Z
LD IY,#IMPACT0
LD B,A
LD A,#192
ADD B
LD 0(IY),A
CALL COPY_SHOOT
LD A,22(IX)
LD C,A
AND #0b11001111
LD B,A
LD A,C
AND #0b00110000
SRL A
SRL A
SRL A
SRL A
INC A
AND #0b00000011
SLA A
SLA A
SLA A
SLA A
OR B
LD 22(IX),A
RET
COPY_SHOOT:
LD BC,(OFFSET) ; tank in veld ??
LD A,0(IX)
SUB C
RET C
CP #10
RET NC
LD A,1(IX)
SUB B
RET C
CP #10
RET NC
EXX
LD HL,(OFFSET)
LD A,0(IX)
SUB L
INC A
ADD A
ADD A
ADD A
ADD A
LD 4(IY),A
; CP 16
; RET C
; CP 161
; RET NC
LD A,1(IX)
SUB H
INC A
ADD A
ADD A
ADD A
ADD A
LD 6(IY),A
; CP 16
; RET C
; CP 161
; RET NC
LD A,(SWAP) ; ??? waarom
LD 7(IY),A
CALL PUTBLK
EXX
RET
;-------------------------------------
CHKUP:
LD H,D
LD L,E
DEC H
JP CHK_ALL
CHKDN:
LD H,D
LD L,E
INC H
JP CHK_ALL
CHKRI:
LD H,D
LD L,E
LD BC,#4
ADD HL,BC
JP CHK_ALL
CHKLT:
LD H,D
LD L,E
LD BC,#-4
ADC HL,BC
JP CHK_ALL
CHKUPRI:
LD H,D
LD L,E
DEC H
LD BC,#4
ADD HL,BC
JP CHK_ALL
CHKDORI:
LD H,D
LD L,E
INC H
LD BC,#4
ADD HL,BC
JP CHK_ALL
CHKDOLT:
LD H,D
LD L,E
INC H
LD BC,#-4
ADC HL,BC
JP CHK_ALL
CHKUPLT:
LD H,D
LD L,E
DEC H
LD BC,#-4
ADC HL,BC
CHK_ALL:
LD A,(HL)
CP #80
JP NC,RETURN_VAST
CHK_TANK_OBJ:
INC HL ; 2 byte van velddata
LD A,(HL) ; tank nummer
OR A
JP Z,RETURN_LOS
RETURN_VAST:
XOR A
OR A
RET
RETURN_LOS:
LD A,#1
OR A
RET
;------------------------------------------------
; update het radar scherm en je money
;------------------------------------------------
RADAR_UPDATE:
LD A,(RADAR)
INC A
AND #0b00000011
LD (RADAR),A
CP #2 ; eens in de 4 keer
JR Z,MAKE_RAD_MON
JP NZ,SHOW_POWER
RET
MAKE_RAD_MON:
; ; alle tanks even doorlopen
LD B,#254
LD IX,#TANK1
LD C,#TANK_DATA
MAKE_RAD_LP1:
LD A,13(IX)
OR A
JR Z,MAKE_RAD_END
PUSH BC
LD D,0(IX)
LD E,1(IX)
LD B,24(IX)
LD C,25(IX)
LD A,D
CP B
JR NZ,MAKE_RAD_LP2
LD A,E
CP C
JR Z,MAKE_RAD_END2
MAKE_RAD_LP2:
CALL CALC_ADR
DEC HL
LD A,(HL)
OR A
JR NZ,MAKE_RAD_END3
INC HL
PUSH DE ; ligt aan CALC_ADR
CALL POINT
; ; vlak in A
LD D,A
CALL PLACE_UNIT
POP BC ; nieuwe coor in BC
LD 24(IX),B
LD 25(IX),C
CALL CALC_ADR
DEC HL
LD A,(HL)
OR A
JR NZ,MAKE_RAD_END2
INC HL
CALL POINT2
LD D,A
CALL PLACE_UNIT
MAKE_RAD_END2:
POP BC
MAKE_RAD_END:
LD A,B
LD B,#0
ADD IX,BC
LD B,A
DJNZ MAKE_RAD_LP1
RET
MAKE_RAD_END3:
LD 24(IX),D
LD 25(IX),E
JR MAKE_RAD_END2
PLACE_UNIT:
LD C,24(IX)
LD B,25(IX)
SRL B
RR C
D_TO_POINT:
LD HL,#96
ADD HL,BC ; hahyahah hihihiih lache he
LD B,H
LD C,L
DI
LD A,#1
CALL SETVDP2
LD A,D
OUT (0x98),A ; oude positie weg
EI
LD H,B
LD L,C
DI
LD A,#3
CALL SETVDP2
LD A,D
OUT (0x98),A
EI
RET
POINT:
LD A,L
AND #0b00000111
CP #0b00000001
JR NZ,POINT_R
EX DE,HL
LD A,(DE)
LD HL,#RAD_COL_TAB_L
SRL A
SRL A
SRL A
SRL A ; / 16
LD C,A
LD B,#0
ADD HL,BC ; adres
LD A,(HL)
EX AF,AF
INC DE
INC DE
INC DE
LD A,(DE)
OR A
JR NZ,POINT_L_Z
INC DE
LD A,(DE)
LD HL,#RAD_COL_TAB_R
SRL A
SRL A
SRL A
SRL A
LD C,A
LD B,#0
ADD HL,BC
LD D,(HL)
EX AF,AF
OR D
RET
POINT_L_Z:
LD D,#0
EX AF,AF
OR D
RET
POINT_R:
EX DE,HL
LD A,(DE)
LD HL,#RAD_COL_TAB_R
SRL A
SRL A
SRL A
SRL A ; / 16
LD C,A
LD B,#0
ADD HL,BC ; adres
LD A,(HL)
EX AF,AF
DEC DE
DEC DE
DEC DE
DEC DE
DEC DE
LD A,(DE)
OR A
JR NZ,POINT_R_Z
INC DE
LD A,(DE)
LD HL,#RAD_COL_TAB_L
SRL A
SRL A
SRL A
SRL A
LD C,A
LD B,#0
ADD HL,BC
LD D,(HL)
EX AF,AF
OR D
RET
POINT_R_Z:
LD D,#0
EX AF,AF
OR D
RET
POINT2:
LD A,L
AND #0b00000111
CP #0b00000001
JR NZ,POINT2_R
EX DE,HL
LD A,13(IX)
CP #128
JR C,POINT2_1
LD A,#0b10100000
JR POINT2_2
POINT2_1:
LD A,#0b11010000
POINT2_2:
EX AF,AF
INC DE
INC DE
INC DE
LD A,(DE)
OR A
JR NZ,POINT2_L_Z
INC DE
INC DE
LD A,(DE)
OR A
JR Z,POINT2_23
CP #128
JR C,POINT2_22
LD D,#0b00001010
JR POINT2_24
POINT2_22:
LD D,#0b00001101
JR POINT2_24
POINT2_23:
DEC DE
LD A,(DE)
LD HL,#RAD_COL_TAB_R
SRL A
SRL A
SRL A
SRL A
LD C,A
LD B,#0
ADD HL,BC
LD D,(HL)
POINT2_24:
EX AF,AF
OR D
RET
POINT2_L_Z:
LD D,#0
EX AF,AF
OR D
RET
POINT2_R:
EX DE,HL
LD A,13(IX)
CP #128
JR C,POINT2_3
LD A,#0b00001010
JR POINT2_4
POINT2_3:
LD A,#0b00001101
POINT2_4:
EX AF,AF
DEC DE
DEC DE
DEC DE
DEC DE
DEC DE
LD A,(DE)
OR A
JR NZ,POINT2_R_Z
INC DE
INC DE
LD A,(DE)
OR A
JR Z,POINT2_43
CP #128
JR C,POINT2_42
LD D,#0b10100000
JR POINT2_44
POINT2_42:
LD D,#0b11010000
JR POINT2_44
POINT2_43:
DEC DE
LD A,(DE)
LD HL,#RAD_COL_TAB_L
SRL A
SRL A
SRL A
SRL A
LD C,A
LD B,#0
ADD HL,BC
LD D,(HL)
POINT2_44:
EX AF,AF
OR D
RET
POINT2_R_Z:
LD D,#0
EX AF,AF
OR D
RET
RAD_COL_TAB_R:
.db 0b00000001
.db 0b00000010
.db 0b00000011
.db 0b00000100
.db 0b00000100
.db 0b00000101
.db 0b00001101
.db 0b00001101
.db 0b00001010
.db 0b00001010
RAD_COL_TAB_L:
.db 0b00010000
.db 0b00100000
.db 0b00110000
.db 0b01000000
.db 0b01000000
.db 0b01010000
.db 0b11010000
.db 0b11010000
.db 0b10100000
.db 0b10100000
;------------------------------------
INIT_RADAR: LD DE,#VELD_ADRES
LD HL,#96
LD (VDPADR),HL
LD A,#1
CALL SETVDP
LD B,#64 ; hoogte v.d. radar ?
J89B7: PUSH BC
LD B,#32 ; lengte
J89BB:
LD A,(DE)
OR A
LD A,#0
JR NZ,INIT_RADAR2
PUSH BC
PUSH DE
INC DE
EX DE,HL
CALL POINT
POP DE
POP BC
INIT_RADAR2:
OUT (0x98),A
INC DE
INC DE
INC DE
INC DE
INC DE
INC DE
INC DE
INC DE
DJNZ J89BB
LD HL,(VDPADR)
LD BC,#128
ADD HL,BC
LD (VDPADR),HL
LD A,#1
CALL SETVDP
POP BC
DJNZ J89B7
LD HL,#0
XOR A
CALL SETVDP
LD IY,#RADCOP
CALL SPRITES_OFF
CALL PUTBLK
CALL SPRITES_ON
RET
SETVDP: DI
OUT (0x99),A
LD A,#14
SET 7,A
OUT (0x99),A
SET 6,H
RES 7,H
LD A,L
OUT (0x99),A
LD A,H
OUT (0x99),A
EI
RET
SETVDP2:
OUT (0x99),A
LD A,#14
SET 7,A
OUT (0x99),A
SET 6,H
RES 7,H
LD A,L
OUT (0x99),A
LD A,H
OUT (0x99),A
RET
;------------ BUILD -------------------
; main build event
;--------------------------------------
BUILD:
; XOR A
; LD (0xFC9E),A
LD A,(SWAP)
XOR #1
LD (SWAP),A
CALL VELD
CALL TANKS
CALL BUILD_SEL
LD A,(ISTEXT)
OR A
CALL NZ,PUT_TEXT
LD A,(SWAP)
ADD A ; dit schijnt sneller te zijn !
ADD A ; DAN SLA, SLA ,SLA EN SLA SLA
ADD A
ADD A
ADD A
ADD #31
DI ; nu altijd in int. dus ...
OUT (0x99),A
LD A,#2+128
OUT (0x99),A
EI
RET
BUILD_SEL:
LD A,(ITEMSELECTED)
CP #128
RET C
LD IX,(P_BUILD)
BUILD_SEL1:
LD DE,(OFFSET)
LD A,2(IX)
SUB E
SLA A
SLA A
SLA A
SLA A
ADD #16
LD H,A
LD A,3(IX)
SUB D
SLA A
SLA A
SLA A
SLA A
ADD #16
LD L,A
LD A,2(IX)
LD B,A
LD A,(OFFSET)
LD C,A
DEC A
CP B
JP NC,BUILD_SEL3
ADD A,#10
CP B
RET C
LD A,3(IX)
LD B,A
LD A,(OFFSET+1)
LD C,A
DEC A
CP B
JP NC,BUILD_SEL2
ADD A,#10
CP B
RET C
LD IY,#COP_BSEL_1
LD 4(IY),H
LD 6(IY),L
EXX
CALL PUTBLK
EXX
BUILD_SEL2:
LD A,3(IX)
ADD 5(IX)
DEC A
LD B,A
LD A,(OFFSET+1)
LD C,A
DEC A
CP B
RET NC
ADD A,#10
CP B
JP C,BUILD_SEL3
LD IY,#COP_BSEL_2
LD A,5(IX)
DEC A
SLA A
SLA A
SLA A
SLA A
ADD L
LD 4(IY),H
LD 6(IY),A
EXX
CALL PUTBLK
EXX
BUILD_SEL3:
LD A,2(IX)
ADD 4(IX)
DEC A
LD B,A
LD A,(OFFSET)
LD C,A
DEC A
CP B
RET NC
ADD A,#10
CP B
RET C
LD A,3(IX)
LD B,A
LD A,(OFFSET+1)
LD C,A
DEC A
CP B
JP NC,BUILD_SEL4
ADD A,#10
CP B
RET C
LD IY,#COP_BSEL_3
LD A,4(IX)
DEC A
SLA A
SLA A
SLA A
SLA A
ADD H
LD 4(IY),A
LD 6(IY),L
EXX
CALL PUTBLK
EXX
BUILD_SEL4:
LD A,3(IX)
ADD 5(IX)
DEC A
LD B,A
LD A,(OFFSET+1)
LD C,A
DEC A
CP B
RET NC
ADD A,#10
CP B
RET C
LD IY,#COP_BSEL_4
LD A,5(IX)
DEC A
SLA A
SLA A
SLA A
SLA A
ADD L
LD 6(IY),A
LD A,4(IX)
DEC A
SLA A
SLA A
SLA A
SLA A
ADD H
LD 4(IY),A
EXX
JP PUTBLK
RET
TANKS:
LD IY,#TNKCOP
LD 2(IY),#160
LD 10(IY),#16
LD 8(IY),#16
LD 0(IY),#0
LD A,(SWAP)
LD 7(IY),A
XOR A
LD (SELECTED),A
LD HL,#CPYTT
FIELD_LOOP: ; ; eerst alles binnen kader
LD A,(HL)
OR A
JR Z,REMOVE_SPR ; klaar !!!
PUSH HL
CALL HL_TO_IX ; elke unit 1 keer
FIELD:
JP PTANK
IN_SCREEN:
POP HL
LD (HL),#3 ; binnen scherm voor ontplof tabel
BIT 7,11(IX)
JR Z,J8C14
LD IX,#SPRATR+8
LD A,4(IY)
LD 1(IX),A
LD A,6(IY)
LD 0(IX),A
EXX
CALL PUT_SPRITE
EXX
LD A,#1
LD (SELECTED),A
JP J8C14
CONT2:
POP HL
J8C14:
INC HL
INC HL
JP FIELD_LOOP
REMOVE_SPR: LD A,(SELECTED)
OR A
JR NZ,RAND1
LD IX,#SPRATR+8
LD 0(IX),#212
CALL PUT_SPRITE
RAND1:
LD HL,#CPYTT
RAND1_LOOP:
LD A,(HL)
OR A
JR Z,RAND2
CP #2
JR NC,RAND1_4
LD BC,(OFFSET) ; c=x & b=y
CALL HL_TO_IX
LD A,C
SUB 0(IX)
JR Z,RAND1_6
DEC A
JR NZ,RAND1_4
LD A,4(IX) ; mogelijkheid 3 check
BIT 7,A
JR NZ,RAND1_4
RAND1_6:
DEC C
DEC B
LD A,0(IX)
SUB C
ADD A
ADD A
ADD A
ADD A ; x * 16
LD C,A ; 0 v 16
LD A,1(IX)
SUB B
ADD A
ADD A
ADD A
ADD A
ADD 5(IX)
LD B,A ; y* 16 + offset
LD A,4(IX)
OR A
JR Z,RAND1_4 ; positie 1 op 0 punt
CP #-16
JR Z,RAND1_4
LD A,C
ADD 4(IX)
LD C,A
LD A,B
CP #16
JR C,RAND1_4
CP #161
JR NC,RAND1_4
PUSH HL
CALL PTANK_RI
POP HL
LD (HL),#2
RAND1_4:
INC HL
INC HL
JP RAND1_LOOP
RAND2:
LD HL,#CPYTT
RAND2_LOOP:
LD A,(HL)
OR A
JR Z,RAND3
CP #2
JR NC,RAND2_4
LD BC,(OFFSET) ; c=x & b=y
CALL HL_TO_IX
LD A,B ; cp y offset
SUB 1(IX)
JR Z,RAND2_6 ; ligt ie binnen de randjes !
DEC A
JR NZ,RAND2_4
LD A,5(IX) ; mogelijkheid 3 check
BIT 7,A
JR NZ,RAND2_4
RAND2_6:
DEC C
DEC B
LD A,0(IX)
SUB C
ADD A
ADD A
ADD A
ADD A ; x * 16 + OFFSET
ADD 4(IX)
LD C,A
LD A,1(IX)
SUB B
ADD A
ADD A
ADD A
ADD A
LD B,A ; y* 16
LD A,5(IX)
OR A
JR Z,RAND2_4 ; positie 1 op 0 punt
CP #-16
JR Z,RAND2_4
LD A,B
ADD 5(IX)
LD B,A
LD A,C
CP #16
JR C,RAND2_4
CP #161
JR NC,RAND2_4
PUSH HL
CALL PTANK_DN
POP HL
LD (HL),#2
RAND2_4:
INC HL
INC HL
JP RAND2_LOOP
RAND3:
LD HL,#CPYTT
RAND3_LOOP:
LD A,(HL)
OR A
JR Z,RAND4
CP #2
JR NC,RAND3_4
LD BC,(OFFSET) ; c=x & b=y
LD A,C
ADD #10
LD C,A
CALL HL_TO_IX
LD A,C
SUB 0(IX)
JR Z,RAND3_6
DEC A
JR Z,RAND3_5
JP RAND3_4
RAND3_6:
LD A,4(IX) ; mogelijkheid 4 check
BIT 7,A
JR Z,RAND3_4
RAND3_5:
DEC C
DEC B
LD A,0(IX)
SUB C
ADD A
ADD A
ADD A
ADD A ; x * 16
ADD #160 ; einde rand erbij
LD C,A ; 160 v 176 eruit
LD A,1(IX)
SUB B
ADD A
ADD A
ADD A
ADD A
ADD 5(IX)
LD B,A ; y* 16 + offset
LD A,4(IX)
OR A
JR Z,RAND3_4 ; positie 1 op 0 punt
CP #16
JR Z,RAND3_4
LD A,C
ADD 4(IX)
LD C,A
LD A,B
CP #16
JR C,RAND3_4
CP #161
JR NC,RAND3_4
PUSH HL
CALL PTANK_LT
POP HL
LD (HL),#2
RAND3_4:
INC HL
INC HL
JP RAND3_LOOP
RAND4:
LD HL,#CPYTT
RAND4_LOOP:
LD A,(HL)
OR A
RET Z
CP #2
JR NC,RAND4_4
LD BC,(OFFSET) ; c=x & b=y
LD A,B
ADD #10
LD B,A
CALL HL_TO_IX
LD A,B
SUB 1(IX)
JR Z,RAND4_6
DEC A
JR Z,RAND4_5
JP RAND4_4
RAND4_6:
LD A,5(IX) ; mogelijkheid 4 check
BIT 7,A
JR Z,RAND4_4
RAND4_5:
DEC C
DEC B
LD A,0(IX)
SUB C
ADD A
ADD A
ADD A
ADD A ; x * 16 +offset
ADD 4(IX)
LD C,A
LD A,1(IX)
SUB B
ADD A
ADD A
ADD A
ADD A
ADD #160
LD B,A ; y* 16 + offset
LD A,5(IX)
OR A
JR Z,RAND4_4 ; positie 1 op 0 punt
CP #16
JR Z,RAND4_4
LD A,B
ADD 5(IX)
LD B,A
LD A,C
CP #16
JR C,RAND4_4
CP #161
JR NC,RAND4_4
PUSH HL
CALL PTANK_UP
POP HL
LD (HL),#2
RAND4_4:
INC HL
INC HL
JP RAND4_LOOP
;-------------------------------------
; .include the AI.ASM !
.include "ai_new.asm"
;-----------------------------------
; ALLERLEI ZOOI
;-----------------------------------
ALGEMEEN:
CALL RED_DEAD
; CALL PUT_MONEY
CALL PUT_FPS
CALL CHECK_BUILD
CALL UPDATE_STEPS
CALL MSELECTED
CALL REP_UPGR
CALL COMMANDO
ONTPLOFFEN:
LD A,(PLOF_COUNT)
OR A
RET Z ; helemaal nix
LD B,A
LD IX,#PLOF_TABEL-3
LABEL0003:
INC IX
INC IX
INC IX
LD A,2(IX)
OR A
JR Z,LABEL0003
EXX
CALL NZ,DOE_ONTPLOF
EXX
DJNZ LABEL0003
RET ; geen ontploffingen !
DOE_ONTPLOF:
CP #11
JR Z,ENDPLOF
LD IY,#PLOF_COP
ADD A
ADD A
ADD A
ADD A
LD 0(IY),A
CALL PLOF_IN_RAND
LD A,B
OR A
JP Z,DOE_ONTPLOF2
LD HL,(OFFSET)
LD A,0(IX)
SUB L
INC A
ADD A
ADD A
ADD A
ADD A
LD 4(IY),A
LD A,1(IX)
SUB H
INC A
ADD A
ADD A
ADD A
ADD A
LD 6(IY),A
LD A,(SWAP)
LD 7(IY),A
CALL PUTBLK
DOE_ONTPLOF2:
INC 2(IX)
RET
ENDPLOF:
XOR A
LD 0(IX),A
LD 1(IX),A
LD 2(IX),A
LD A,(PLOF_COUNT)
DEC A
LD (PLOF_COUNT),A
RET
PLOF_IN_RAND:
LD B,#0
LD HL,(OFFSET)
LD A,L
ADD A,#10
LD E,A
LD A,H
ADD A,#10
LD D,A
LD A,0(IX)
CP L
RET C
CP E
RET NC
LD A,1(IX)
CP H
RET C
CP D
RET NC
LD B,#1
RET
REP_UPGR:
LD IX,#BUILDING1
LD C,#BUILD_DATA
LD B,#50 ; max
REPAIR_LOOP:
BIT 0,8(IX)
CALL NZ,DO_REPAIR
BIT 1,8(IX)
CALL NZ,DO_UPGRADE
LD A,B
LD B,#0
ADD IX,BC
LD B,A
DJNZ REPAIR_LOOP
RET
DO_REPAIR:
INC 6(IX)
LD A,6(IX)
CP #255
RET NZ
RES 0,8(IX)
CALL RES_MENU
RET
DO_UPGRADE:
INC 11(IX)
LD A,11(IX)
OR A
RET NZ
RES 1,8(IX)
CALL RES_MENU
INC 9(IX) ; upgrade lev 1 up
LD A,1(IX)
CP #7 ; yard is +1 upgrade
JR Z,UPGR_BBAR
CP #4
JR Z,UPGR_TBAR
RET
RES_MENU:
XOR A
LD (ACTIVE_MENU),A
PUSH IX
POP DE
LD HL,(P_BUILD)
SBC HL,DE
RET NZ
PUSH BC
LD (P_BUILD),IX
CALL P_BLD_IMG ; reset build img
CALL COMMAND_B
LD IX,(P_BUILD)
POP BC ; terug in loop
RET
UPGR_BBAR:
LD A,(UPG_LEV_BLD)
CP #3
RET Z ; max upg lev bereikt
EXX
PUSH IX
INC A
LD (UPG_LEV_BLD),A
ADD #4 ; ????
ADD A ; *2
ADD A ; *4
LD C,A
LD B,#0
LD HL,#BBB_VALUE
ADD HL,BC
LD (HL),#1 ; maak beschikbaar
CALL INIT_BBAR
POP IX
EXX
XOR A
LD (IS_BLD_UPGRADING),A
RET ; terug in loop
UPGR_TBAR:
LD A,(UPG_LEV_UNT)
CP #4
RET Z
EXX
INC A
LD (UPG_LEV_UNT),A
ADD A
ADD A
LD C,A
LD B,#0
LD HL,#TBB_VALUE
ADD HL,BC
LD (HL),#1
PUSH IX
CALL INIT_BBAR
POP IX
EXX
XOR A
LD (IS_UNT_UPGRADING),A
RET
MSELECTED:
LD A,(HAS_SELECT)
OR A
RET Z
XOR A
LD (TOTAL_SELECT),A
LD HL,(OFFSET)
LD A,(SEL_X0)
SRL A
SRL A
SRL A
SRL A
ADD L
LD B,A ; X0
LD A,(SEL_X1)
SRL A
SRL A
SRL A
SRL A
ADD L
LD C,A ; X1
LD A,(SEL_Y0)
SRL A
SRL A
SRL A
SRL A
ADD H
LD D,A ; Y0
LD A,(SEL_Y2)
SRL A
SRL A
SRL A
SRL A
ADD H
LD E,A ; Y2
LD HL,#CPYTT
LOOP_MSEL:
LD A,(HL)
OR A
RET Z
CP #3
JR NZ,LOOP_MSEL2
INC HL
LD A,(HL)
PUSH HL
CALL IN_MSEL
POP HL
INC HL
JR LOOP_MSEL
LOOP_MSEL2:
INC HL
INC HL
JR LOOP_MSEL
IN_MSEL:
PUSH BC
CALL A_TO_IX
POP BC
BIT 7,13(IX) ;type tank
RET NZ
RES 0,22(IX)
LD A,0(IX)
LD H,A
CP B
RET C
CP C
RET NC
LD A,1(IX)
LD L,A
CP D
RET C
CP E
RET NC
LD A,(TOTAL_SELECT)
CP #25
RET Z ; niet meer erbij !
INC A
LD (TOTAL_SELECT),A
LD A,#1
LD (MSELECT_ON),A
SET 0,22(IX)
RET
RED_DEAD:
LD A,(BLD_CNT_RED)
LD A,(CHK_RED_DEAD)
INC A
AND #0b00111111
LD (CHK_RED_DEAD),A
RET NZ
CHK_RED:
LD HL,#TANKRED
LD BC,#13
ADD HL,BC
LD DE,#TANK_DATA
LD B,#128
LP_CHK_RED:
BIT 7,(HL)
RET NZ
ADD HL,DE
DJNZ LP_CHK_RED
LD A,#1
LD (STOP),A
RET
CHK_RED_DEAD:
.db 0
COMMANDO:
LD A,(MBUSY)
OR A
RET NZ
LD A,(ITEMSELECTED)
OR A
RET Z
CP #127
JR NC,COMM_BLD
DEC A
JP Z,COMM_TNK_RED
DEC A
JR Z,COMM_HRV_RED
RET
COMM_BLD:
CP #192
RET NC ; geen rood gebouw
LD HL,(P_BUILD)
LD BC,#8
ADD HL,BC
LD A,(ACTIVE_MENU)
BIT 0,(HL)
JR Z,COMM_BLD2
LD IY,#MENU_RED_REP
LD B,#8
CP B
JR NZ,COMM_BLD3
RET
COMM_BLD2:
BIT 1,(HL)
RET Z
LD IY,#MENU_RED_UPG
LD B,#9
CP B
RET Z
COMM_BLD3:
LD A,B
LD (ACTIVE_MENU),A
PUSH IY
CALL COMMAND_B
POP IY
JP PUTBLK
COMM_HRV_RED:
LD HL,(TNKADR)
LD BC,#11
ADD HL,BC
LD A,(ACTIVE_MENU)
BIT 4,(HL)
JR Z,COMM_HRV_RED2
EX AF,AF
LD BC,#15
ADD HL,BC
LD A,(HL)
OR A
JR Z,COMM_HRV_RED1
EX AF,AF
LD IY,#MENU_RED_RET
LD B,#11
CP B
RET Z
JR COMM_HRV_RED3
COMM_HRV_RED1:
EX AF,AF
LD IY,#MENU_RED_MOV
LD B,#4
CP B
RET Z
JR COMM_HRV_RED3
COMM_HRV_RED2:
LD BC,#11
ADD HL,BC ; ix+22
BIT 7,(HL)
JR Z,COMM_HRV_RED22
LD IY,#MENU_RED_HRV
LD B,#10 ; 10 is harvsten menu
CP B
RET Z
JR COMM_HRV_RED3
COMM_HRV_RED22:
LD IY,#MENU_RED_STP
LD B,#1
CP B
RET Z
COMM_HRV_RED3:
LD A,B
LD (ACTIVE_MENU),A
PUSH IY
CALL COMMAND_HARV
POP IY
JP PUTBLK
COMM_TNK_RED:
LD HL,(TNKADR)
LD BC,#11
ADD HL,BC
LD A,(ACTIVE_MENU)
BIT 4,(HL)
JR Z,COMM_TNK_RED2
LD IY,#MENU_RED_MOV
LD B,#4
CP B
JR NZ,COMM_TNK_RED4
RET
COMM_TNK_RED2:
BIT 6,(HL)
JR Z,COMM_TNK_RED3
LD IY,#MENU_RED_ATT
LD B,#6
CP B
JR NZ,COMM_TNK_RED4
RET
COMM_TNK_RED3:
LD IY,#MENU_RED_STP
LD B,#1
CP B
RET Z
COMM_TNK_RED4:
LD A,B
LD (ACTIVE_MENU),A
PUSH IY
CALL COMMAND_TANK
POP IY
JP PUTBLK
ACTIVE_MENU:
.db 0
;----------------------------------------------
; Check op bouwen gebouwen steps ??
;--------------------------------------------
CHECK_BUILD:
LD HL,#BBB_VALUE
LD B,#18 ; max 18 was 13
L_CHK_BUILD1:
PUSH BC
LD A,(HL)
CP #2
CALL Z,CHECK_BUILD2
CP #3
CALL Z,READY_BUILD2
POP BC
INC HL
INC HL
INC HL
INC HL
DJNZ L_CHK_BUILD1
RET
CHECK_BUILD2:
LD A,B
CP #6 ; lager/gelijk aan 5 is AI
RET C
; ; B-5 doen ?
LD A,B ; correctie voor lus 13
SUB #5
LD B,A
LD A,#14 ; max 13
SUB B
LD B,A
LD A,(B_BALK_TYPE)
OR A
LD A,(B_BALK_NR)
JR Z,CHECK_BUILD22
LD A,(T_BALK_NR) ; is het visible ???
CHECK_BUILD22:
CP B
RET NC
ADD A,#4
CP B
RET C
LD IY,#BB_STEPS_BAR
SUB #4
LD C,A
LD A,B
SUB C
ADD A
ADD A
ADD A
ADD A
ADD A
ADD #2
LD 4(IY),A
PUSH HL
INC HL
INC HL
LD A,(HL)
SRL A
SRL A
SRL A
INC A
LD 10(IY),A
CALL PUTBLK
LD A,7(IY)
XOR #1
LD 7(IY),A
CALL PUTBLK
POP HL
RET
READY_BUILD2:
LD A,B
CP #6
JP C,AI_CREATE_CAR
LD A,B ; hack correctie is weg te werken !
SUB #5
LD B,A
EX AF,AF
LD A,B
CP #6
LD A,(B_BALK_NR)
JR NC,READY_BUILD22
LD A,(T_BALK_NR)
READY_BUILD22:
LD E,A
LD (HL),#4 ; kan ook 3 zijn
LD A,#13 ; building + tanks
SUB B
LD B,A
LD D,A
INC B
EX AF,AF
CP #6
JR C,CREATE_CAR ; create car ook als niet vis
LD A,(B_BALK_TYPE)
OR A
RET NZ ; if tbar visible then NOT
LD A,E ; is het visible ???
CP B
RET NC
ADD A,#4
CP B
RET C
LD C,E
LD A,B
SUB C
DEC A
ADD A
ADD A
ADD A
ADD A
ADD A
ADD #32
LD E,A
LD A,D
ADD A
ADD A
ADD A
ADD A
ADD A
LD D,A
PUSH HL
LD IY,#BB_BLW_COP
CALL PUTBLK
CALL BB_PUT_BUILD
LD IY,#BB_READY_COP
CALL PUTBLK
CALL P_BB_PART
POP HL
RET
;-----------------------------------------
CREATE_CAR:
LD C,E
LD A,B
SUB C
DEC A
ADD A
ADD A
ADD A
ADD A
ADD A
ADD #32
LD E,A
EX AF,AF
LD A,D
LD (TYPE_OF_CAR),A
PUSH HL ; push bb_bar adres
LD HL,#BUILDING1
INC HL
LD C,#BUILD_DATA
LD B,#25 ; 25 gebouwen van jou
LOOP_CRT_CAR:
PUSH HL
PUSH BC
LD A,(HL)
CP #4 ; gevonden ? dan createcar
CALL Z,CREATE_CAR2
POP BC
POP HL
LD A,B
LD B,#0
ADD HL,BC
LD B,A
DJNZ LOOP_CRT_CAR
JR CANT_CREATE_TNK
RET ; mag eigenlijk niet hier komen
; komt hier als geen enkele factory kan plaatsen
CREATE_CAR2:
; ; if gevonden POP stack en cont
; ; else RET
INC HL
LD B,(HL) ; ?
DEC B
INC HL
LD C,(HL) ; hoekje factory
CALL CALC_ADR
LD DE,#FACTORY_DEPLOY
CREATE_CAR2_LP:
LD A,(DE)
CP #100
RET Z ; volgende factory
PUSH HL
LD A,(DE)
LD C,A
INC DE
LD A,(DE)
LD B,A
INC DE
ADD HL,BC
LD A,(HL)
CP #80
JR NC,CREATE_CAR2_LP2 ; kan niet op rots of huis
INC HL
LD A,(HL)
OR A
JR NZ,CREATE_CAR2_LP2 ; kan niet op tank
JR CREATE_CAR3
CREATE_CAR2_LP2:
POP HL
JR CREATE_CAR2_LP
RET ; probeer volgende factory
CREATE_CAR3:
POP AF ; adres
POP AF ; stack
POP AF ; BC from 1st loop
POP AF ; building data
LD BC,#VELD_ADRES
SBC HL,BC
SRL L
SRL L
LD A,L
LD L,H
LD H,A
LD A,(TYPE_OF_CAR)
LD D,A
LD A,#12
SUB D
LD C,A
LD B,#1 ;blauw
CALL ADD_TANK
; ; add tank kan ook fout gaan
OR A
JR Z,CANT_CREATE_TNK
POP HL ; adres bb_bar
LD (HL),#1 ; clear tank bar
INC HL ; dit pas NA dat
LD A,(HL) ; de tank gebouwd is
INC HL
DEC A
LD (HL),A
LD A,(B_BALK_TYPE)
OR A
RET Z
LD A,(TYPE_OF_CAR)
SUB #8
ADD A
ADD A
ADD A
ADD A
ADD A
LD D,A
EX AF,AF
OR A
RET Z
LD E,A
LD IY,#BB_BLW_COP
CALL PUTBLK
CALL BB_PUT_BUILD
JP P_BB_PART
RET
CANT_CREATE_TNK:
; ; bbar een stapje terug doen zodat ie
; ; weer in de queue stapt
POP HL
LD (HL),#2
INC HL
LD A,#255
SUB (HL)
INC HL
LD (HL),A
RET ; en even een message
TYPE_OF_CAR: .db 0
;----------------------------------
; check mouse na druk op knop
;----------------------------------
CHECK_COOR:
LD HL,#BUT_PRESSED
SET 0,(HL)
LD DE,(MOUSEY)
LD A,D
CP #16
JR C,AREA3
CP #176
JR NC,AREA3
LD A,E
CP #16
JR C,AREA3
CP #176
JR NC,AREA3
LD A,#1 ; VOOR MSEL
LD (PLAYFIELD),A
LD A,(MBUSY) ; doe commando
OR A
JP NZ,EXEC_COMMAND
JP WHICH_OBJECT ; pak een tank
AREA3:
XOR A
LD (PLAYFIELD),A
LD A,D
CP #193
JR C,AREA4
CP #255
JR NC,AREA4
LD A,E
CP #128
JR C,AREA4
CP #192
JR NC,AREA4
JP MOVE_RAD_SCR
AREA4: LD A,D
CP #200
JR C,AREA5
CP #248
JR NC,AREA5
LD A,E
CP #16
JR C,AREA5
CP #104
JR NC,AREA5
JP WHICH_ITEM
AREA5:
LD A,D
CP #32
JR C,AREA51
CP #160
JR NC,AREA51
LD A,E
CP #176
JR C,AREA51
JP SEL_FROM_BB
AREA51:
LD A,D
CP #16
JR C,AREA6
CP #32
JR NC,AREA6
LD A,E
CP #176
JR C,AREA6
CP #200
JR NC,AREA6
JP SCRL_BB_L
AREA6:
LD A,D
CP #160
JR C,AREA6A
CP #176
JR NC,AREA6A
LD A,E
CP #176
JR C,AREA6A
CP #200
JR NC,AREA6A
JP SCRL_BB_R
AREA6A:
LD A,D
CP #226
JR C,AREA6B
CP #246
JR NC,AREA6B
LD A,E
CP #192
JR C,AREA6B
CP #200
JR NC,AREA6B
JP SCRL_BB_UP
AREA6B:
LD A,D
CP #194
JR C,AREA7
CP #224
JR NC,AREA7
LD A,E
CP #192
JR C,AREA7
CP #200
JR NC,AREA7
JP SCRL_BB_DN
AREA7:
LD A,D ; option
CP #80
JR C,AREA8
CP #128
JR NC,AREA8
LD A,E
CP #0
JR C,AREA8
CP #12
JR NC,AREA8
JP OPTION_MENU
AREA8:
LD A,D
CP #16
JR C,AREA9
CP #64
JR NC,AREA9
LD A,E
CP #0
JR C,AREA9
CP #12
JR NC,AREA9
LD A,#1
LD (STOP),A
RET
AREA9:
RET
;--------------------------------------------
WHICH_OBJECT:
CALL XYTO16
LD B,D
LD C,E
CALL CALC_ADR
DEC HL
LD A,(HL)
OR A
RET NZ ; op onzichtbaar
INC HL
INC HL
LD A,(HL)
OR A
JP Z,WHICH_OBJCT2 ; geen tank !!!
CALL A_TO_IX
LD B,13(IX)
LD IY,(TNKADR)
LD A,13(IY)
CP B
RET Z ; dezelfde tank !
RES 7,11(IY)
LD (TNKADR),IX
CALL P_TNK_IMG
BIT 7,13(IX) ; soort bit
JR NZ,ENEMY_SELTD
LD A,#100
LD (ISTEXT),A
LD A,R
AND #0b00000011
CALL INIT_TEXT
XOR A
LD (ACTIVE_MENU),A
LD A,11(IX)
AND #0b00000111
JR Z,HARV_SELTD
LD A,#1
LD (ITEMSELECTED),A
; CALL COMMAND_TANK ;gebeurt al in COMMANDO
CALL SHOW_POWER
SET 7,11(IX)
RET
HARV_SELTD:
LD A,#2
LD (ITEMSELECTED),A
; CALL COMMAND_HARV
CALL SHOW_POWER
SET 7,11(IX)
RET
ENEMY_SELTD:
LD A,#32
LD (ITEMSELECTED),A
CALL COMMAND_ENM ; misschien cursor type reset
CALL SHOW_POWER
SET 7,11(IX)
RET ; klaar dus uit de loop
WHICH_OBJCT2:
DEC HL
LD A,(HL)
CP #96
RET C
CP #160
RET Z
LD C,#7 ; yard
CP #100
JR C,LOOP0_OBJCT2
LD C,#1 ; windtrap
CP #104
JR C,LOOP0_OBJCT2
LD C,#2 ; ref
CP #110
JR C,LOOP0_OBJCT2
LD C,#5 ; radar
CP #114
JR C,LOOP0_OBJCT2
LD C,#3 ; silo
CP #118
JR C,LOOP0_OBJCT2
LD C,#4
CP #124
JR C,LOOP0_OBJCT2
LD C,#7
CP #132
JR C,LOOP1_OBJCT2
LD C,#1
CP #136
JR C,LOOP1_OBJCT2
LD C,#4
CP #156
JR C,LOOP1_OBJCT2
RET
LOOP0_OBJCT2:
LD IX,#BUILDING1
LD B,#25 ; 25 blauwe
LD H,#128 ; voor itemselected
JP LOOP0_OBJ2
LOOP1_OBJCT2:
LD IX,#BUILDING1+24*BUILD_DATA
LD H,#192 ; itemsel
LD B,#25 ; 25 x rood
LOOP0_OBJ2:
PUSH BC
LD A,1(IX)
CP C
JR NZ,LOOP0_OBJ21
LD A,2(IX)
DEC A
CP D
JR NC,LOOP0_OBJ21
ADD 4(IX)
CP D
JR C,LOOP0_OBJ21
LD A,3(IX)
DEC A
CP E
JR NC,LOOP0_OBJ21
ADD 5(IX)
CP E
JR C,LOOP0_OBJ21
LD IY,(TNKADR)
RES 7,11(IY)
LD (P_BUILD),IX
LD A,H ; itemselected = 128 + c ???
ADD C ; YARD is 128
LD (ITEMSELECTED),A
CP #191
JR NC,ENEMY_BUILD
CALL COMMAND_B
JR LAB0023
ENEMY_BUILD:
CALL COMMAND_ENM ; misschien cursor type reset
LAB0023:
CALL P_BLD_IMG
CALL SHOW_POWER
POP BC
LD HL,#TANKTAB ; tnkadr resetten op 0
LD (TNKADR),HL
XOR A
LD (ACTIVE_MENU),A
RET ; building gevonden !!!
LOOP0_OBJ21:
LD BC,#BUILD_DATA
ADD IX,BC
POP BC
DJNZ LOOP0_OBJ2
RET
;-----------------------------------------
; PUT TANK IMAGE
;-------------------------------------------
P_TNK_IMG:
LD IY,#GRAY_ITEM
CALL PUTBLK
LD IY,#TANK_IMG
LD A,11(IX)
AND #0b00000111
LD B,A
LD A,#4
SUB B
ADD A
ADD A
ADD A
ADD A
ADD A
LD 0(IY),A
CALL PUTBLK
LD IY,#PUT_ITEM
LD 7(IY),#0
CALL PUTBLK
LD 7(IY),#1
CALL PUTBLK
RET
;-----------------------------------------
; PUT BUILDING IMAGE
;-------------------------------------------
P_BLD_IMG:
LD IY,#GRAY_ITEM
CALL PUTBLK
LD IY,#BUILD_IMG
LD A,1(IX)
ADD A
ADD A
ADD A
ADD A
ADD A
LD 0(IY),A
CALL PUTBLK
LD IY,#PUT_ITEM
LD 7(IY),#0
CALL PUTBLK
LD 7(IY),#1
CALL PUTBLK
RET
;-------------------------------------------------
MOVE_RAD_SCR: ;
LD IX,#SPRATR+4
LD HL,#VELD_ADRES+260 ;ADR+193 !!!
LD A,D
CP #246
JR C,MOV_RAD_SCR1
LD A,#245
MOV_RAD_SCR1: LD 1(IX),A
SUB #193
LD C,A
INC A
LD (OFFSET),A
SLA C
SLA C
LD B,#0
ADD HL,BC
LD A,E
CP #181
JR C,MOV_RAD_SCR2
LD A,#180
MOV_RAD_SCR2: LD 0(IX),A
SUB #128
LD C,A
INC A
LD (OFFSET+1),A
LD B,C
LD C,#0
ADD HL,BC
LD BC,(ADR)
LD (ADR),HL
XOR A
SBC HL,BC
RET Z
CALL PUT_SPRITE
JP BUILD ; om ontploffen niet buiten build om
;------------------------------------
WHICH_ITEM: LD A,(MBUSY)
OR A
JP NZ,CHK_CANCEL
LD A,(ITEMSELECTED)
OR A
RET Z
CP #191 ; enemy building
RET NC
CP #64 ; bb bar
JR NC,BUILDING_COM
CP #31 ; geen enemy of gebouw ??
RET NC
CP #2 ; eigen harv
JR Z,HARV_COMMAND
TANK_COMMAND:
LD A,E
CP #96
JR NC,TANK_CANCEL ; moet eigenlijk stop zijn !!
CP #88
JR NC,TANK_GUARD
CP #80
JP NC,TANK_MOVE
CP #72
JP NC,TANK_ATTACK
RET
HARV_COMMAND:
LD A,E
CP #96
JP NC,HARV_RETURN ; return !
CP #88
JR NC,TANK_GUARD ; stop !
CP #80
JP NC,TANK_MOVE ; gewoon een move
CP #72
JR NC,TANK_ATTACK ; wordt opgevat als harvest
RET
BUILDING_COM:
LD A,E
CP #96
JP NC,BUILD_CANCEL
CP #88
RET NC
CP #80
JP NC,BUILD_UPGR
CP #72
JP NC,BUILD_REP
RET
CHK_CANCEL:
LD A,E
CP #96
RET C
CHK_CANCEL2:
LD A,(ITEMSELECTED)
OR A
RET Z
CP #64
JR NC,CANCEL_BB
CP #31 ; enemy selected geen cancel
RET NC
CP #2
JR Z,CANCEL_HARV
CANCEL_TANK:
XOR A
LD (MBUSY),A
LD (CURSOR_TYPE),A
CALL COMMAND_TANK
RET
CANCEL_HARV:
XOR A
LD (MBUSY),A
LD (CURSOR_TYPE),A
CALL COMMAND_HARV ; command harv!!
RET
CANCEL_BB:
XOR A
LD (MBUSY),A
LD (CURSOR_TYPE),A
LD (ITEMSELECTED),A
CALL CLEAR_ITEM
JP BB_CANCEL
TANK_CANCEL:
CALL CLEAR_ITEM
LD IX,(TNKADR)
RES 7,11(IX)
LD HL,#TANKTAB
LD (TNKADR),HL
RET
TANK_GUARD: LD IX,(TNKADR)
LD A,0(IX)
LD 2(IX),A
LD A,1(IX)
LD 3(IX),A
RES 5,11(IX)
RES 6,11(IX)
RES 7,22(IX) ;eigenlijk alleen voor harvesters :)
RET
TANK_ATTACK:
CALL CANCEL_ITEM
LD A,#2
LD (MBUSY),A
LD A,#28
LD (CURSOR_TYPE),A
RET
TANK_MOVE:
CALL CANCEL_ITEM
LD A,#1
LD (MBUSY),A
LD A,#28
LD (CURSOR_TYPE),A
RET
EXEC_COMMAND:
XOR A
LD (ACTIVE_MENU),A
LD A,(ITEMSELECTED)
CP #1
JR Z,TNK_COMMAND
CP #2
JR Z,HRV_COMMAND
CP #128 ; gebouw geselecteerd ??
RET NC
CP #64 ; alles tussen 64 - 128
JP NC,BB_COMMAND
RET ; enemy
HRV_COMMAND:
LD A,(MBUSY)
CP #1
JR Z,TNK_COM_MOVE
CP #2
JP Z,HRV_COM_HRV
RET
TNK_COMMAND: LD A,(MBUSY)
CP #1
JR Z,TNK_COM_MOVE
CP #2
JR Z,TNK_COM_ATT
RET
TNK_COM_MOVE: CALL XYTO16
LD IX,(TNKADR)
LD 2(IX),D
LD 3(IX),E
RES 5,11(IX)
RES 6,11(IX)
RES 7,22(IX) ;harvest bitje uit
XOR A
LD 26(IX),A ; harvest wachttijd uit
LD A,(MSELECT_ON)
OR A
CALL NZ,MOVE_MSEL
LD A,(ITEMSELECTED)
CP #1
CALL Z,COMMAND_TANK
CP #2
CALL Z,COMMAND_HARV
XOR A
LD (MBUSY),A
LD (CURSOR_TYPE),A
RET
MOVE_MSEL:
BIT 0,22(IX)
RET Z
LD A,#127 ; tanksum
LD BC,#TANK_DATA
LD IX,#TANK1
LD IY,#DEST_OFFSET
LP_MOVE_MSEL:
BIT 0,22(IX)
CALL NZ,DO_SEL_MOVE
ADD IX,BC
DEC A
RET Z
JP LP_MOVE_MSEL
DO_SEL_MOVE:
EX AF,AF
LD A,0(IY)
ADD A,D
LD 2(IX),A
LD A,1(IY)
ADD A,E
LD 3(IX),A
INC IY
INC IY
EX AF,AF
RES 5,11(IX)
RES 6,11(IX)
RES 7,22(IX) ;harvest bitje uit
RET
TNK_COM_ATT:
LD IX,(TNKADR)
RES 6,11(IX)
CALL XYTO16
LD B,D
LD C,E
CALL CALC_ADR
LD A,(HL)
CP #80
JR C,TNK_COM_ATT2
CP #144
JR NC,TNK_COM_ATT2
JP TNK_ATT_BLD
TNK_COM_ATT2:
INC HL
LD A,(HL) ; geen rooie
CP #128
RET C
LD 14(IX),A ; nummer enemy tank
RES 3,11(IX) ; je valt een tank aan
SET 5,11(IX)
LD 2(IX),D ; x en y van enemy
LD 3(IX),E
LD A,(MSELECT_ON) ; multiple select attack
OR A
CALL NZ,ATT_MSEL
J8895: XOR A
LD (MBUSY),A
LD (CURSOR_TYPE),A
CALL COMMAND_TANK
RET
ATT_MSEL:
BIT 0,22(IX)
RET Z
LD B,#127 ; tnksum
LD C,#TANK_DATA
LD IX,#TANK1
LP_ATT_MSEL:
BIT 0,22(IX)
CALL NZ,DO_SEL_ATT
LD A,B
LD B,#0
ADD IX,BC
LD B,A
DJNZ LP_ATT_MSEL
RET
DO_SEL_ATT:
; zorg dat de harvesters niet in ATTSEL zitten !!!
LD A,11(IX)
AND #0b00000111
OR #0
RET Z
RES 3,11(IX)
SET 5,11(IX)
LD 2(IX),D
LD 3(IX),E
LD A,(HL)
LD 14(IX),A
RET
TNK_ATT_BLD:
SET 3,11(IX) ;ATT BUILDING
SET 5,11(IX)
LD 2(IX),D
LD 3(IX),E ; rij erheen
LD IY,#BUILDING1
LD B,#50 ; 50 blauwe
LOOP1_OBJ2:
PUSH BC
LD A,2(IY)
DEC A
CP D
JR NC,LOOP1_OBJ21
ADD 4(IY)
CP D
JR C,LOOP1_OBJ21
LD A,3(IY)
DEC A
CP E
JR NC,LOOP1_OBJ21
ADD 5(IY)
CP E
JR C,LOOP1_OBJ21
POP BC
LD H,0(IY) ;nummer gebouw
LD 14(IX),H
LD A,(MSELECT_ON) ; multiple select attack
OR A ; on building
CALL NZ,ATT_MSEL2
JP J8895 ; menu goed
LOOP1_OBJ21:
LD BC,#BUILD_DATA
ADD IY,BC
POP BC
DJNZ LOOP1_OBJ2
RET ; als het goed is komt ie hier nooit !
ATT_MSEL2:
BIT 0,22(IX)
RET Z
LD IX,#TANK1
LD B,#127 ; tnksum
LD C,#TANK_DATA
LP_ATT_MSEL2:
BIT 0,22(IX)
CALL NZ,DO_SEL_ATT2
LD A,B
LD B,#0
ADD IX,BC
LD B,A
DJNZ LP_ATT_MSEL2
RET
DO_SEL_ATT2:
;zorg dat de harvesters niet in ATTSEL zitten !!!
LD A,11(IX)
AND #0b00000111
OR #0
RET Z
SET 3,11(IX)
SET 5,11(IX)
LD 2(IX),D
LD 3(IX),E
LD 14(IX),H
RET
;----------------------------------
HRV_COM_HRV:
CALL XYTO16
PUSH DE
LD B,D
LD C,E
CALL CALC_ADR
POP DE
LD A,(HL)
CP #16
RET C
CP #48
RET NC
LD IX,(TNKADR)
LD 2(IX),D
LD 3(IX),E
SET 7,22(IX)
CALL COMMAND_HARV
XOR A
LD (MBUSY),A
LD (CURSOR_TYPE),A
RET
HARV_RETURN:
LD A,#50 ; timer wait bij refinery
LD 26(IX),A
LD IX,(TNKADR)
HARV_RETURN2:
LD HL,#BUILDING1
INC HL
LD DE,#BUILD_DATA
LD B,#25 ; max
HARV_R_LOOP:
LD A,(HL)
CP #2
JR Z,HARV_RET2
HARV_R_LOOP2:
ADD HL,DE
DJNZ HARV_R_LOOP
RET
HARV_RET2:
PUSH HL
POP IY
LD A,11(IY) ; eigenlijk ix+12 :) = bezet byte
OR A
JR NZ,HARV_R_LOOP2
LD 11(IY),#1
INC HL
LD A,(HL)
ADD #3
LD 2(IX),A
INC HL
LD A,(HL)
ADD #2
LD 3(IX),A
RET
BUILD_REP:
LD IX,(P_BUILD)
LD A,6(IX)
INC A
RET Z
BIT 1,8(IX)
RET NZ
SET 0,8(IX)
RET
BUILD_UPGR:
LD IX,(P_BUILD)
LD A,10(IX)
SUB 9(IX)
RET Z
BIT 0,8(IX) ; repair is busy
RET NZ
LD A,1(IX)
CP #7
JR Z,BUILD_UPGR2
LD A,(IS_UNT_UPGRADING)
OR A
RET NZ
SET 1,8(IX)
LD A,#1
LD (IS_UNT_UPGRADING),A
RET
BUILD_UPGR2:
LD A,(IS_BLD_UPGRADING)
OR A
RET NZ
SET 1,8(IX)
LD A,#1
LD (IS_BLD_UPGRADING),A
RET
BUILD_CANCEL:
LD HL,#BUT_PRESSED
BIT 0,(HL)
RET NZ
LD IX,(P_BUILD)
BIT 0,8(IX)
JR NZ,BUILD_CANCEL3
BIT 1,8(IX)
JR NZ,BUILD_CANCEL2
JP CLEAR_ITEM
BUILD_CANCEL2:
RES 1,8(IX)
LD 11(IX),#0 ; upgrade lev op 0
LD A,1(IX)
CP #7
JR Z,BUILD_CANCEL4
XOR A
LD (IS_UNT_UPGRADING),A
JR BUILD_CANCEL3
BUILD_CANCEL4:
XOR A
LD (IS_BLD_UPGRADING),A
BUILD_CANCEL3:
RES 0,8(IX)
SET 0,(HL)
XOR A
LD (ACTIVE_MENU),A
CALL COMMAND_B
RET
;---------------------------------------
BB_COMMAND:
LD A,(BB_BLOCKED)
OR A
RET NZ
LD A,(ITEMSELECTED)
CP #64
JR Z,P_BETON
CP #65
JP Z,P_WINDTRAP
CP #66
JP Z,P_REFINERY
CP #67
JP Z,P_SILO
CP #68
JP Z,P_FACTORY
CP #69
JP Z,P_RADAR
RET
P_BETON:
CALL XYTO16
LD B,D
LD C,E
CALL CALC_ADR
LD (HL),#64 ; danbeton erop
JP RESET_STATUS
P_CONST_Y:
; to be done
RET
P_REFINERY:
CALL XYTO16
PUSH DE
LD H,#2 ; refinery is 3
CALL ADD_BUILDING
POP DE
OR A
RET Z ; building vol
LD B,D
LD C,E
CALL CALC_ADR
CALL NO_BETON_CHK
LD (HL),#104 ; refinery erop
INC HL
INC HL
INC HL
INC HL
CALL NO_BETON_CHK
LD (HL),#105
INC HL
INC HL
INC HL
INC HL
CALL NO_BETON_CHK
LD (HL),#106
INC H
CALL NO_BETON_CHK
LD (HL),#109
DEC HL
DEC HL
DEC HL
DEC HL
CALL NO_BETON_CHK
LD (HL),#108
DEC HL
DEC HL
DEC HL
DEC HL
CALL NO_BETON_CHK
LD (HL),#107
LD L,E
INC L
LD H,D
INC H
INC H
LD B,#1
LD C,#0
CALL ADD_TANK
JP RESET_STATUS
P_FACTORY:
CALL XYTO16
PUSH DE
LD H,#4
CALL ADD_BUILDING
POP DE
OR A
RET Z ; max. bereikt
LD A,(UPG_LEV_UNT)
LD 9(IX),A
LD B,D
LD C,E
CALL CALC_ADR
CALL NO_BETON_CHK
LD (HL),#118 ; refinery erop
INC HL
INC HL
INC HL
INC HL
CALL NO_BETON_CHK
LD (HL),#119
INC HL
INC HL
INC HL
INC HL
CALL NO_BETON_CHK
LD (HL),#120
INC H
CALL NO_BETON_CHK
LD (HL),#123
DEC HL
DEC HL
DEC HL
DEC HL
CALL NO_BETON_CHK
LD (HL),#122
DEC HL
DEC HL
DEC HL
DEC HL
CALL NO_BETON_CHK
LD (HL),#121
; ; Maak de eerste unit beschikbaar
LD HL,#TBB_VALUE
LD (HL),#1
JP RESET_STATUS
P_RADAR:
CALL XYTO16
PUSH DE
LD H,#5 ; radar is 4
CALL ADD_BUILDING
POP DE
OR A
RET Z ; building vol
LD B,D
LD C,E
CALL CALC_ADR
CALL NO_BETON_CHK
LD (HL),#110 ; windtrap erop
INC HL
INC HL
INC HL
INC HL
CALL NO_BETON_CHK
LD (HL),#111
INC H
CALL NO_BETON_CHK
LD (HL),#113
DEC HL
DEC HL
DEC HL
DEC HL
CALL NO_BETON_CHK
LD (HL),#112
JP RESET_STATUS
P_SILO:
CALL XYTO16
PUSH DE
LD H,#3 ; silo is 5
CALL ADD_BUILDING
POP DE
OR A
RET Z ; building vol
LD B,D
LD C,E
CALL CALC_ADR
CALL NO_BETON_CHK
LD (HL),#114 ; windtrap erop
INC HL
INC HL
INC HL
INC HL
CALL NO_BETON_CHK
LD (HL),#115
INC H
CALL NO_BETON_CHK
LD (HL),#117
DEC HL
DEC HL
DEC HL
DEC HL
CALL NO_BETON_CHK
LD (HL),#116
JP RESET_STATUS
P_WINDTRAP:
CALL XYTO16
PUSH DE
LD H,#1 ; windtrap is 2
CALL ADD_BUILDING
POP DE
OR A
RET Z ; building vol
LD B,D
LD C,E
CALL CALC_ADR
CALL NO_BETON_CHK
LD (HL),#100 ; windtrap erop
INC HL
INC HL
INC HL
INC HL
CALL NO_BETON_CHK
LD (HL),#101
INC H
CALL NO_BETON_CHK
LD (HL),#103
DEC HL
DEC HL
DEC HL
DEC HL
CALL NO_BETON_CHK
LD (HL),#102
JP RESET_STATUS
ADD_BUILDING:
LD A,(BUILDINGS) ; jammer niet meer
CP #50 ; dan 10 stuks !!
LD A,#0
RET Z ; voor de veiligheid
LD IX,#BUILDING1
LD BC,#BUILD_DATA ; even loopen
LD A,#50 ; max 50 stuks
LD L,A
LOOP_ADD_B:
LD A,0(IX)
OR A
JR Z,ADD_BUILD2
LD (BUILD_NUM),A
ADD IX,BC
DEC L
JR NZ,LOOP_ADD_B
RET
BUILD_NUM: .db 0
ADD_BUILD2:
LD A,(BUILD_NUM)
INC A
LD 0(IX),A ; nummer vorige + 1
LD A,H ;type gebouw
LD 1(IX),A
LD 2(IX),D
LD 3(IX),E
EXX
; bewaar info per huisje
; anders
LD HL,#EXTR_B_DATA
LD B,#0
LD C,A
SLA C
SLA C
SLA C
ADD HL,BC
PUSH IX
POP DE ; DE is dest.
INC DE ; num
INC DE ; type
INC DE ; x
INC DE ; y
LD BC,#8
LDIR ; pompen of verzuipen !
EXX
LD HL,#BUILDINGS
INC (HL)
LD A,#1 ; gebouw is goed toegevoegd
RET
NO_BETON_CHK:
LD A,(HL)
CP #64
RET Z
LD A,6(IX)
SUB #32
LD 6(IX),A
RET
RESET_STATUS:
LD A,(ITEMSELECTED)
SUB #64
LD D,A
LD HL,#BBB_VALUE
SLA A
SLA A
LD C,A
LD B,#0
ADD HL,BC
LD (HL),#1 ; maak weer beschikbaar
INC HL
LD A,(HL)
INC HL
DEC A
LD (HL),A
INC D ; correctie voor berekening
LD A,(B_BALK_NR)
LD E,A
CP D
JR NC,RESETSTATUS2
ADD A,#4
CP D
JR C,RESETSTATUS2
SUB #4
DEC D
LD A,D
SUB E
ADD A
ADD A
ADD A
ADD A
ADD A
ADD #32
LD E,A
LD A,D
ADD A
ADD A
ADD A
ADD A
ADD A
LD D,A
LD IY,#BB_BLW_COP
CALL PUTBLK
CALL BB_PUT_BUILD
CALL P_BB_PART
RESETSTATUS2:
JP CANCEL_BB
;---------------------------------------
CANCELACTION:
LD HL,#BUT_PRESSED
BIT 1,(HL)
RET NZ
SET 1,(HL)
LD A,(MSELECT_ON)
OR A
CALL NZ,MSEL_OFF
LD A,(MBUSY)
OR A
JP NZ,CHK_CANCEL2
LD A,(ITEMSELECTED)
OR A
RET Z
CALL CLEAR_ITEM
LD IX,(TNKADR)
RES 7,11(IX)
LD HL,#TANKTAB
LD (TNKADR),HL ; ook voor gebouwen ?
LD HL,#0
LD (P_BUILD),HL ; ja dus
RET
MSEL_OFF:
LD HL,#TANK1
LD BC,#22 ;BYTE 22
ADD HL,BC
LD B,#127 ;tank sum
LD DE,#TANK_DATA
CANCEL_LOOP:
RES 0,(HL)
ADD HL,DE
DJNZ CANCEL_LOOP
RET
;-----------------------------------------
BB_CANCEL:
LD BC,#4
LD HL,#SPRATR+16
LD (HL),#212
ADD HL,BC
LD (HL),#212
ADD HL,BC
LD (HL),#212
ADD HL,BC
LD (HL),#212
ADD HL,BC
LD (HL),#212
ADD HL,BC
LD (HL),#212
DI
LD A,#1
OUT (0x99),A
LD A,#0x8E
OUT (0x99),A
LD A,#0x10
OUT (0x99),A
LD A,#0x76
OUT (0x99),A
LD HL,#SPRATR+16
LD BC,#0x1898
OTIR
EI
RET
;---------------------------------------
; Build Balk commando
;---------------------------------------
SCRL_BB_L:
LD A,(BB_WAIT)
OR A
RET NZ
LD A,(B_BALK_TYPE)
OR A
JR Z,SCRL_BBB_L
LD A,(T_BALK_NR)
CP #8
RET Z
DEC A
LD (T_BALK_NR),A
JP INIT_BBAR
SCRL_BBB_L:
LD A,(B_BALK_NR)
OR A
RET Z
DEC A
LD (B_BALK_NR),A
JP INIT_BBAR
SCRL_BB_R:
LD A,(BB_WAIT)
OR A
RET NZ
LD A,(B_BALK_TYPE)
OR A
JR Z,SCRL_BBB_R
LD A,(T_BALK_NR)
CP #9
RET Z
INC A
LD (T_BALK_NR),A
JP INIT_BBAR
SCRL_BBB_R:
LD A,(B_BALK_NR)
CP #4
RET Z
INC A
LD (B_BALK_NR),A
JP INIT_BBAR
SCRL_BB_UP:
LD A,(BB_WAIT)
OR A
RET NZ
LD A,(B_BALK_TYPE)
CP #0
RET Z
LD A,#0
LD (B_BALK_TYPE),A
JP INIT_BBAR
SCRL_BB_DN:
LD A,(BB_WAIT)
OR A
RET NZ
LD A,(B_BALK_TYPE)
CP #32
RET Z
LD A,#32
LD (B_BALK_TYPE),A
INIT_BBAR:
LD A,#6
LD (BB_WAIT),A
LD A,(B_BALK_TYPE)
OR A
JR Z,PLACE_BBAR
PLACE_TBAR:
CALL SPRITES_OFF
LD HL,#TBB_VALUE
LD A,(T_BALK_NR)
SUB #8 ; start op 9
ADD A
ADD A
LD C,A
LD B,#0
ADD HL,BC ; begin van tbb_valuelijst
ADD A
ADD A
ADD A
LD D,A
CALL INIT_LOOP_BB
RET
PLACE_BBAR:
CALL SPRITES_OFF
LD HL,#BBB_VALUE
LD A,(B_BALK_NR)
ADD A ; * 4
ADD A
LD C,A
LD B,#0
ADD HL,BC
ADD A
ADD A
ADD A
LD D,A
INIT_LOOP_BB:
LD B,#4 ; aantal plaatjes
LD E,#32 ; plaats op scherm
LOOP_P_BBAR0:
PUSH BC
PUSH HL
LD A,(HL)
CP #0
JP Z,P_BB_EMPTY
CP #1
JP Z,P_BB_OCC
CP #2
JP Z,P_BB_BUSY
JP P_BB_READY
END_LOOP_BB:
POP HL
POP BC
LD A,E
ADD #32
LD E,A
LD A,D
ADD #32
END_LOOPBB3:
LD D,A
INC HL
INC HL
INC HL
INC HL
DJNZ LOOP_P_BBAR0
CALL SPRITES_ON
RET
P_BB_EMPTY:
LD IY,#BB_X_COP
CALL PUTBLK
CALL P_BB_PART
JP END_LOOP_BB
P_BB_OCC:
LD IY,#BB_BLW_COP
CALL PUTBLK
CALL BB_PUT_BUILD
CALL P_BB_PART
JP END_LOOP_BB
P_BB_BUSY:
LD IY,#BB_BLW_COP
CALL PUTBLK
CALL BB_PUT_BUILD
LD IY,#BB_BUSY_COP
CALL PUTBLK
CALL P_BB_PART
JP END_LOOP_BB
P_BB_READY:
LD IY,#BB_BLW_COP
CALL PUTBLK
CALL BB_PUT_BUILD
LD IY,#BB_READY_COP
CALL PUTBLK
CALL P_BB_PART
JP END_LOOP_BB
BB_PUT_BUILD:
; ; check if tank bar
LD A,(B_BALK_TYPE)
OR A
JR Z,BB_PUT_BUILD2
BB_PUT_TANK2:
LD IY,#BB_TNK_COP
LD A,D
LD 0(IY),A
JP PUTBLK
BB_PUT_BUILD2:
LD IY,#BB_BLD_COP
LD A,D
; ADD 32
LD 0(IY),A
JP PUTBLK
P_BB_PART:
LD IY,#BB_MOVE_COP
LD 4(IY),E ; plek op scherm
LD 7(IY),#0
CALL PUTBLK
LD 7(IY),#1
CALL PUTBLK
RET
;-------------------------------------------
SEL_FROM_BB:
LD A,(MBUSY)
OR A
RET NZ
LD A,(B_BALK_TYPE)
OR A
JR Z,SEL_BUILDING
LD A,D
SUB #32
SRA A
SRA A
SRA A
SRA A
SRA A ; / 32
LD B,A
LD A,(T_BALK_NR)
SUB #8
ADD B
LD E,A
ADD A ; * 4
ADD A ;
LD C,A
LD B,#0
LD HL,#TBB_VALUE
ADD HL,BC
LD A,(HL)
OR A ; niet mogelijk
RET Z
CP #2 ; al bezig
RET Z
CP #1 ; ga beginnen
JP Z,START_BUILD
RET
RET
SEL_BUILDING:
LD A,D
SUB #32
SRA A
SRA A
SRA A
SRA A
SRA A ; / 32
LD B,A
LD A,(B_BALK_NR)
ADD B
LD E,A
ADD A ; * 4
ADD A ;
LD C,A
LD B,#0
LD HL,#BBB_VALUE
ADD HL,BC
LD A,(HL)
OR A ; niet mogelijk
RET Z
CP #2 ; al bezig
RET Z
CP #1 ; ga beginnen
JP Z,START_BUILD
; anders is ie ready !!!!!!
LD A,E
LD C,A
ADD #64 ; 64 + item
LD (ITEMSELECTED),A
LD A,#1
LD (MBUSY),A
LD HL,#BB_TYPES ; cursor
LD B,#0
ADD HL,BC
LD A,(HL)
LD (BB_SIZE),A
LD IX,(TNKADR)
RES 7,11(IX) ; geen tank
LD IX,#IX_FOR_B
; INC C
LD 1(IX),C
CALL P_BLD_IMG
CALL CANCEL_ITEM
RET
IX_FOR_B:
.db 0,0
START_BUILD:
PUSH HL
INC HL
INC HL
INC HL
LD A,(HL)
LD C,A
LD B,#0
CALL CALC_MONEY
POP HL
JR C,NO_START ; niet genoeg geld
LD (HL),#2
LD A,D ; cursor positie
AND #0b11100000
LD IY,#BB_BLD2_COP
LD 4(IY),A
CALL PUTBLK
LD A,7(IY)
XOR #1
LD 7(IY),A
CALL PUTBLK
RET
NO_START:
LD A,#50
LD (ISTEXT),A
LD A,#5
CALL INIT_TEXT
RET
;-----------------------------------------
; OPTION MENU Win 98 version ! cool
; doet even nix
;-----------------------------------------
OPTION_MENU:
LD A,#200
LD (ISTEXT),A
LD A,#4
CALL INIT_TEXT
RET
LD A,(MBUSY)
OR A
RET NZ
XOR A
LD (MSTOP),A
LD (MOUSE_SHAPE),A
LD (CURSOR_TYPE),A
CALL PULL_DOWN
MENU_MAIN:
XOR A
; CALL FIRE_BUTTON0
CALL Z,MENU_COOR
LD A,(MSTOP)
OR A
RET NZ
JP MENU_MAIN
MENU_COOR:
LD DE,(MOUSEY)
LD A,D
CP #96
JR C,MAREA2
CP #144
JR NC,MAREA2
LD A,E
CP #125
JR C,MAREA2
CP #140
JR NC,MAREA2
LD A,#1
LD (MSTOP),A
RET
MAREA2:
RET
PULL_DOWN:
LD A,(SWAP)
LD IY,#MENU_COP
LD 7(IY),A
CALL SPRITES_OFF
LD B,#110
DO_SCROLL:
XOR A
LD (JIFFY),A
CALL MENU_SCRL
MWAIT_LOOP:
LD A,(JIFFY)
CP #1
;JR C,MWAIT_LOOP
XOR A
LD (JIFFY),A
DEC B
DEC B
JR NZ,DO_SCROLL
CALL MENU_SCRL
CALL SPRITES_ON
RET
MENU_SCRL:
LD A,#112
SUB B
LD 2(IY),B
LD 10(IY),A
LD 8(IY),A
EXX
CALL PUTBLK
EXX
RET
;---------------------------------------------
; INTERRUPT ROUTINE !!!
;-----------------------------------------
INT_ROUTINE:
DI
PUSH AF
; XOR A
; OUT (0x99),A
; LD A,0x8F ; reg 15 op 0
; OUT (0x99),A
IN A,(0x99) ; CHK OF INT VAN VDP IS
AND A
JP P,INT_NOT_V9938
PUSH BC
PUSH DE
PUSH HL
PUSH IX
PUSH IY
EXX
PUSH BC
PUSH DE
PUSH HL
CALL INTERRUPT
POP HL
POP DE
POP BC
EXX
POP IY
POP IX
POP HL
POP DE
POP BC
INT_NOT_V9938:
POP AF
EI
RETI ; Z80 NORM....
;---------------------------------------
INTERRUPT:
LD A,(ISTEXT)
OR A
JR Z,INTT_1
DEC A
LD (ISTEXT),A
INTT_1:
LD A,(BB_WAIT)
OR A
JR Z,INTT_2
DEC A
LD (BB_WAIT),A
INTT_2:
CALL I_READ_BUTTONS ; buttons uitlezen
CALL READ_MOUSIE
LD A,(ITEMSELECTED)
CP #128
JP NC,INTT_3
CP #64
JP NC,PLACE_BB_SPR
INTT_3:
JP MULTIPLE_SEL
RET
READ_MOUSIE:
; Gebruik spratr om x en y op te slaan !
LD A,(MOUSE_PORT) ; Get mouse port in C
LD C,A
MOUSE1:
LD A,(MOUSE_WAIT1)
LD B,A ; Get Y move
CALL READ_MOUSE
RLCA
RLCA
RLCA
RLCA
LD H,A
CALL READ_MOUSE
OR H
LD H,A
CALL READ_MOUSE ; Get X move
RLCA
RLCA
RLCA
RLCA
LD L,A
CALL READ_MOUSE
OR L
LD C,H ; B = X-move / C = Y-move
LD B,A
LD A,B ; Move -1,-1 ?
INC A
LD H,A
LD A,C
INC A
OR H
JR NZ,MOUSE3
LD A,(MOUSE_USE) ; Check mouse use
OR A
JR NZ,MOUSE2
LD A,(MOUSE_PORT) ; Check other port
XOR #0b01000000
LD (MOUSE_PORT),A
JR KEYBOARD
MOUSE2:
LD A,(MOUSE_OFF) ; na 20 keer -1,-1 is uit
INC A
LD (MOUSE_OFF),A
CP #20
JR C,MOUSE4
XOR A ; Deactivate mouse
LD (MOUSE_USE),A
JR KEYBOARD
MOUSE3: ; Activate mouse / Keep mouse activat
XOR A ; counter op 0
LD (MOUSE_OFF),A
DEC A ; wordt weer gebruikt
LD (MOUSE_USE),A
MOUSE4:
LD A,B ; If mouse is moved then skip keyboar
OR C
JR NZ,CHK_PIJL_BORD ; niet 0,0 dan check
KEYBOARD:
; nog even geen keyboard
; RET
CHK_PIJL_BORD: ; In: B=y-coordinaat
LD HL,#SPRATR
LD A,(HL)
SUB B
BIT 7,B
JR NZ,CHK_PIJL_BORD_Y1
JR NC,CHK_PIJL_BORD_Y3
XOR A
JR CHK_PIJL_BORD_Y3
CHK_PIJL_BORD_Y1:
JR NC,CHK_PIJL_BORD_Y2
CP #204
JR C,CHK_PIJL_BORD_Y3
CHK_PIJL_BORD_Y2:
LD A,#203
CHK_PIJL_BORD_Y3:
LD (HL),A
INC HL
LD A,(HL)
SUB C
BIT 7,C
JR NZ,CHK_PIJL_BORD_X1
JR NC,CHK_PIJL_BORD_X3
XOR A
JR CHK_PIJL_BORD_X3
CHK_PIJL_BORD_X1:
JR NC,CHK_PIJL_BORD_X2
CP #249
JR C,CHK_PIJL_BORD_X3
CHK_PIJL_BORD_X2:
LD A,#248
CHK_PIJL_BORD_X3:
LD (HL),A
MOUSE_SPRITE:
DEC HL
; spratr in hl !!
LD A,#1
OUT (0x99),A
LD A,#0x8E
OUT (0x99),A
LD A,#0x00 ; ff
OUT (0x99),A
LD A,#0x76 ; 35
OUT (0x99),A
LD BC,#0x0498
OTIR
RET
READ_MOUSE:
LD A,#15
OUT (0xA0),A
LD A,C
OUT (0xA1),A
XOR #0b00110000
LD C,A
LD A,#14
OUT (0xA0),A
READ_MOUSE_L:
DJNZ READ_MOUSE_L
LD A,(MOUSE_WAIT2)
LD B,A
IN A,(0xA2)
AND #0x0F
RET
;-----------------------------------------
I_READ_BUTTONS:
XOR A
CALL I_FIR_P1
LD (FIRE_BUTTONS),A
RET
I_FIR_P1: LD B,A ; A=0 PORT 1 / A=1 PORT 2
LD A,#15
OUT (0xA0),A
NOP
IN A,(0xA2)
DJNZ I_FIR_S1
AND #0xDF
OR #0x4C
JR I_FIR_S2
I_FIR_S1: AND #0xAF
OR #3
I_FIR_S2: OUT (0xA1),A
LD A,#14
OUT (0xA0),A
NOP
IN A,(0xA2)
RET
CHK_SPATIE:
IN A,(0xAA) ; check op spatie...
AND #0xF0
OR #8
OUT (0xAA),A
IN A,(0xA9)
AND #1
RET
;--------------------------------------------
;- SUBS -
;--------------------------------------------
UPDATE_STEPS:
LD HL,#BBB_VALUE
LD B,#18
UPD_STEPS_L1:
LD A,(HL)
CP #2
JP Z,DO_STEP_UPD
INC HL
INC HL
INC HL
INC HL
UPD_STEPS_L2:
DJNZ UPD_STEPS_L1
RET
DO_STEP_UPD:
INC HL
LD A,(HL)
LD C,A
INC HL
LD A,(HL)
ADD C
CP #255
JP Z,STEP_READY
LD (HL),A
INC HL
INC HL
JP UPD_STEPS_L2
STEP_READY:
DEC HL
DEC HL
LD (HL),#3
JP UPD_STEPS_L1
;---------------------------------------
MULTIPLE_SEL:
LD A,(PLAYFIELD)
OR A
JR Z,LABEL0009
LD A,(FIRE_BUTTONS)
BIT 4,A
JR Z,MS_1
LABEL0009: ; ; ms uit
XOR A
LD (MS_COUNT),A
LD (HAS_SELECT),A
LD (TOTAL_SELECT),A
LD B,#4
LD IX,#SPRATR+40
LD DE,#4
LABEL0008:
LD 0(IX),#212
EXX
CALL PUT_SPRITE2
EXX
ADD IX,DE
DJNZ LABEL0008
RET
MS_1:
LD A,(MS_COUNT)
CP #10
JR Z,MS_2_2
INC A
LD (MS_COUNT),A
CP #9
RET NZ
MS_2:
INC A
LD (MS_COUNT),A
LD HL,#SPRATR
LD E,(HL)
INC HL
LD D,(HL)
LD (ORIGIN_Y),DE
LD A,#1
LD (HAS_SELECT),A
EXX
LD A,(MSELECT_ON)
OR A
CALL NZ,MSEL_OFF
EXX
MS_2_2:
LD HL,#SPRATR
LD E,(HL)
INC HL
LD D,(HL)
LD A,(ORIGIN_X)
CP D
JR NC,LABEL0005
LD (SEL_X0),A
LD A,D
LD (SEL_X1),A
JP LABEL0006
LABEL0005:
LD (SEL_X1),A
LD A,D
LD (SEL_X0),A
LABEL0006:
LD A,(ORIGIN_Y)
CP E
JR NC,LABEL0007
LD (SEL_Y0),A
LD A,E
LD (SEL_Y2),A
JP SEL_METH1
LABEL0007:
LD (SEL_Y2),A
LD A,E
LD (SEL_Y0),A
SEL_METH1:
LD BC,(SEL_Y0)
LD HL,(SEL_Y2)
LD DE,#4
LD IX,#SPRATR+40
LD 0(IX),C
LD 1(IX),B
EXX
CALL PUT_SPRITE2
EXX
ADD IX,DE
LD 0(IX),L
LD 1(IX),B
EXX
CALL PUT_SPRITE2
EXX
ADD IX,DE
LD 0(IX),C
LD 1(IX),H
EXX
CALL PUT_SPRITE2
EXX
ADD IX,DE
LD 0(IX),L
LD 1(IX),H
CALL PUT_SPRITE2
RET
ORIGIN_Y:
.db 0
ORIGIN_X:
.db 0
SEL_Y0: .db 0
SEL_X0: .db 0
SEL_Y2: .db 0
SEL_X1: .db 0
;------------------------------------------
A_TO_IY:
EXX ; schaduw BC,DE,HL !!!!
OR A
CALL Z,CRASH
LD IY,#TANK1-32
RRC A
RRC A
RRC A
LD B,A
AND #0b11100000
LD C,A
LD A,B
AND #0b00011111
LD B,A
ADD IY,BC
EXX
RET
HL_TO_IX: INC HL
LD A,(HL)
DEC HL
A_TO_IX:
EXX ; schaduw BC,DE,HL !!!!
OR A
CALL Z,CRASH
LD IX,#TANK1-32
RRC A
RRC A
RRC A
LD B,A
AND #0b11100000
LD C,A
LD A,B
AND #0b00011111
LD B,A
ADD IX,BC
EXX
RET
CRASH:
CALL COLOR_WHITE
; POP HL
; POP HL
; LD (CRASH_ADR),HL
;LD HL,#INT_DOS
;CALL PUT_INT
;CALL SET_SCREEN0
;LD SP,(EXIT_STACK)
RET ; einde prog
EXIT_STACK: .dw 0
CRASH_ADR:
.dw 0
A_TO_BLD:
LD IY,#BUILDING1-BUILD_DATA
EXX
LD C,A
LD B,#0
SLA C ; *2
RL B
SLA C ; *4
RL B
LD D,B ; DE met 4maal
LD E,C
ADD IY,DE
ADD IY,DE ; *8
ADD IY,DE ; *12
LD C,A
LD B,#0
ADD IY,BC
EXX
RET
;----------------------------------------------
VELD:
LD A,(SWAP)
LD (DOEL_PAGE),A
XOR A
LD (DOEL_Y),A
LD (DOEL_X),A
LD HL,(ADR)
DEC H
DEC HL
DEC HL
DEC HL
DEC HL
LD DE,#CPYTT
LD B,#12 ; 12 * 12 cpytt ; x in lengte
LD C,#12
J8CAF:
LD A,(HL)
EX AF,AF
LD A,C
CP #1
JR Z,MAKE_CPYTT
CP #12
JR Z,MAKE_CPYTT
LD A,B
CP #1
JR Z,MAKE_CPYTT
CP #12
JR Z,MAKE_CPYTT
LD A,(HL)
OR A
INC HL
JR Z,PUT_FIELD
LD A,#16
LD (BRON_X),A
XOR A
JR CONT_VELD
PUT_FIELD:
LD A,(HL)
ADD A
ADD A
ADD A
ADD A
LD (BRON_X),A
LD A,(HL)
AND #0b11110000
CONT_VELD:
LD (BRON_Y),A
LD A,(DOEL_X)
ADD #16
LD (DOEL_X),A
EXX
LD HL,#FASTCOP
DI ; vdp klaar ?
LD A,#32 ; reg 32 + GEEN auto inc.
OUT (0x99),A ; als control register
LD A,#0x91 ;in reg 17
OUT (0x99),A
LD A,#2 ; waarde 2 in reg 15
OUT (0x99),A
LD A,#0x8F ; execute
OUT (0x99),A
LUS3:
IN A,(0x99) ;lees status
RRA ; is CE nog 1 dan C is loop
JR C,LUS3
XOR A ; status reg. op 0
OUT (0x99),A
LD A,#0x8F
OUT (0x99),A
LD C,#0x9B
OUTI
OUTI
OUTI
OUTI
OUTI
OUTI
OUTI
OUTI
OUTI
OUTI
OUTI
OUTI
OUTI
OUTI
OUTI
EI
EXX
DEC HL
MAKE_CPYTT:
INC HL
INC HL
EX AF,AF
OR A
JR NZ,CONT_CPYTT
LD A,(HL)
OR A
JR Z,CONT_CPYTT
BLW_CPYTT:
LD A,#1
LD (DE),A
INC DE
LD A,(HL) ; nummer tank of zo ???
LD (DE),A
INC DE
CONT_CPYTT:
INC HL
INC HL
DEC B
JP NZ,J8CAF
DEC C
JR Z,END_VELD
LD A,(DOEL_Y)
ADD #16
LD (DOEL_Y),A
XOR A
LD (DOEL_X),A
LD A,C
LD BC,#208 ; 54+128 ; !!! 64-10 + 2*64
ADC HL,BC
LD C,A
LD B,#12
JP J8CAF
END_VELD:
XOR A
LD (DE),A
INC DE
LD (DE),A ; laatste entry leeg
RET
;----------------------------------------
MLBC16:
LD B,#0
LD C,A
SLA C
RL B
SLA C
RL B
SLA C
RL B
SLA C
RL B
RET
;-----------------------------------------
PTANK:
LD A,(OFFSET)
LD B,A
LD A,0(IX)
SUB B
INC A
ADD A,A
ADD A,A
ADD A,A
ADD A,A
ADD A,4(IX)
LD 4(IY),A
CP #16
JP C,CONT2
CP #161
JP NC,CONT2
LD A,(OFFSET+1)
LD B,A
LD A,1(IX)
SUB B
INC A
ADD A,A
ADD A,A
ADD A,A
ADD A,A
ADD A,5(IX)
LD 6(IY),A
CP #16
JP C,CONT2
CP #161
JP NC,CONT2
CALL RITANK
CALL PUTBLK
LD 0(IY),#0
LD 2(IY),#160
BIT 0,22(IX)
JP Z,IN_SCREEN
LD HL,#0 ; super multiple select update
LD A,4(IY)
SRL A
LD C,A
LD B,#0
ADD HL,BC
LD A,6(IY)
LD D,A
LD B,A
SRL B
RR C
LD C,#0
ADD HL,BC
LD A,D
AND #0b10000000
RLC A
LD E,A
CALL SETVDP
LD A,#0xFF
OUT (0x98),A
LD BC,#7
ADD HL,BC
LD A,E
CALL SETVDP
LD A,#0xFF
OUT (0x98),A
;----------------------------------
LD BC,#15*128-7
ADD HL,BC
LD A,D
ADD #15
AND #0b10000000
RLC A
LD E,A
CALL SETVDP
LD A,#0xFF
OUT (0x98),A
LD BC,#7
ADD HL,BC
LD A,E
CALL SETVDP
LD A,#0xFF
OUT (0x98),A
JP IN_SCREEN
PTANK_UP:
LD 4(IY),C
LD 6(IY),B
LD A,#176
SUB B
LD 10(IY),A
LD 8(IY),#16
CALL RITANK
CALL PUTBLK
LD 2(IY),#160
LD 10(IY),#16
LD 0(IY),#0
RET
PTANK_LT:
LD 6(IY),B
LD 4(IY),C
LD A,#176
SUB C
LD 8(IY),A
; LD 4(IY),A
LD 10(IY),#16
CALL RITANK
CALL PUTBLK
LD 0(IY),#0
LD 2(IY),#160
RET
PTANK_DN:
LD 4(IY),C
LD 10(IY),B
LD A,#16
SUB B
ADD #160
LD 2(IY),A
LD 6(IY),#16
LD 8(IY),#16
CALL RITANK
CALL PUTBLK
LD 0(IY),#0
LD 2(IY),#160
RET
PTANK_RI:
LD 6(IY),B
LD 8(IY),C ; offset copieren
LD A,#16
SUB C
LD 0(IY),A
LD 4(IY),#16
LD 10(IY),#16
CALL RITANK
CALL PUTBLK
LD 0(IY),#0
LD 2(IY),#160
RET
RITANK: LD A,9(IX) ; richting
AND #0b00000111 ; eventuele radar found bitje weg..
ADD A,A
ADD A,A
ADD A,A
ADD A,A
ADD A,0(IY)
LD 0(IY),A
LD A,11(IX)
AND #0b00000111 ; type tank
ADD A,A
ADD A,A
ADD A,A
ADD A,A
ADD A,2(IY)
LD 2(IY),A
LD A,13(IX)
AND #0b10000000 ;soort bit
ADD A,0(IY)
LD 0(IY),A
RET
;---------------------------------------------
XYTO16: LD A,D
SRL A
SRL A
SRL A
SRL A
LD B,A
LD A,(OFFSET)
ADD A,B
DEC A
LD D,A
LD A,E
SRL A
SRL A
SRL A
SRL A
LD B,A
LD A,(OFFSET+1)
ADD A,B
DEC A
LD E,A
RET
;------------------------------------
;--- sub routine blocked !!!
;-----------------------------------
BLCKED:
LD A,(HL)
CP #64
RET ; deze return waarde kan nog veranderen !
CALC_ADR:
LD HL,#VELD_ADRES
LD A,C ; Y MAAL 256
ADD H
LD H,A
SLA B ; X MAAL 4
SLA B
LD C,B
LD B,#0
ADD HL,BC ; plus x
INC HL
RET
;
; PUSH HL
; PUSH IX
; INC HL
; LD A,(HL)
; OR A
; JR Z,CALC_ADR2
; CALL A_TO_IX
; LD B,0(IX)
; LD C,1(IX)
; LD HL,VELD_ADRES
; LD A,C ; Y MAAL 256
; ADD H
; LD H,A
; SLA B ; X MAAL 4
; SLA B
; LD C,B
; LD B,0
; ADD HL,BC ; plus x
; INC HL
; POP IX
; POP BC
; SBC HL,BC
;JP NZ,CRASH
; PUSH BC
; POP HL
; RET
;
CALC_ADR2:
; POP IX
; POP HL
; RET
;--------------------------------------
; UPD_TANK_LAY
;--------------------------------------
RES_TANK_LAY:
LD B,0(IX)
LD C,1(IX)
CALL CALC_ADR
LD A,(HL)
CP #1
JR Z,RES_TANK_LAY2
CP #16
JR NC,RES_TANK_LAY2
LD A,9(IX)
AND #0b00000011
ADD #2
LD (HL),A
RES_TANK_LAY2:
LD B,#0
LD A,13(IX)
CP #127
JR NC,NO_RADREVEAL ; rood ontdekt niet !!
LD B,#255
NO_RADREVEAL:
INC B
INC HL
LD (HL),#0 ; RESET tank positie
RET
;-----------------------------------------------
CLEAR_ITEM:
XOR A
LD (ITEMSELECTED),A
LD (CURSOR_TYPE),A
LD (MBUSY),A
LD (ACTIVE_MENU),A ; commando balk reset
CALL SPRITES_OFF
LD IY,#MENU_COM_CLN
XOR A
LD 7(IY),A
LD A,#72
LD 6(IY),A
CALL PUTBLK
LD A,#80
LD 6(IY),A
CALL PUTBLK
LD A,#88
LD 6(IY),A
CALL PUTBLK
LD A,#96
LD 6(IY),A
CALL PUTBLK
LD A,#58
LD 6(IY),A
CALL PUTBLK
LD IY,#MENU_COM_SWP
CALL PUTBLK
LD IY,#EMPTY
LD 7(IY),#0
CALL PUTBLK
LD 7(IY),#1
CALL PUTBLK
JP SPRITES_ON
SHOW_POWER:
LD A,(ITEMSELECTED)
OR A
RET Z
CP #2
JP Z,HARV_INHOUD
CP #127
JR NC,BUILDING_POW
CP #64
RET NC
LD IX,(TNKADR)
LD A,12(IX) ; power berekenen
JP SHOW_POW2
BUILDING_POW:
LD IX,(P_BUILD)
LD A,6(IX)
SHOW_POW2:
EX AF,AF
LD A,(SWAP)
XOR #1
LD E,A
LD IY,#POWER_INFO ; volledige balk
LD 7(IY),E ; naar onzichtbare scherm
CALL PUTBLK
EX AF,AF
SRL A
SRL A
SRL A
LD B,A
LD A,#31
SUB B
RES 0,A ; even getal
OR A
JR Z,SHOW_POW3 ; full power
;
LD IY,#POWER_BALK
LD 8(IY),A
LD 7(IY),E
CALL PUTBLK
SHOW_POW3:
LD IY,#POWER_COP
LD 3(IY),E ; from onzichtbaar
LD A,E
XOR #1
LD 7(IY),A ; to zichtbaar
CALL PUTBLK
; nou nog het upgrade balkje
LD A,(ITEMSELECTED)
CP #127
RET C
BIT 1,8(IX)
RET Z ; geen upgrade bar
LD A,11(IX) ; upgrade status
OR A
RET Z
SRL A
SRL A
SRL A
RES 0,A
OR A
RET Z
LD B,A
LD IY,#HARV_BALK
LD A,#32
SUB B
LD 2(IY),A
ADD #24
LD 6(IY),A
LD 10(IY),B
LD A,(SWAP)
LD 7(IY),A
EX AF,AF
CALL PUTBLK
LD IY,#HARV_COP
EX AF,AF
LD 3(IY),A
XOR #1
LD 7(IY),A
JP PUTBLK
RET
HARV_INHOUD: ; ; harv inhoud displayen
LD IX,(TNKADR)
LD A,16(IX)
CP #7
RET C
SUB #6
SRL A
LD B,A
LD IY,#HARV_BALK
LD A,#32
SUB B
LD 2(IY),A
ADD #24
LD 6(IY),A
LD 10(IY),B
LD A,(SWAP)
LD 7(IY),A
EX AF,AF
CALL PUTBLK
LD IY,#HARV_COP
EX AF,AF
LD 3(IY),A
XOR #1
LD 7(IY),A
JP PUTBLK
COMMAND_TANK:
LD D,#0b10000111
JP EXTRACT_COM
COMMAND_HARV:
LD D,#0b00011110
JP EXTRACT_COM
COMMAND_B:
LD IY,(P_BUILD)
LD D,#0b01000000
BIT 0,8(IY)
JR NZ,COMMAND_B3
LD D,#0b00100000
BIT 1,8(IY)
JR NZ,COMMAND_B3
LD D,#0
LD A,6(IY)
CP #255 ; niet helemaal
JR Z,COMMAND_B2 ; ?huh
LD D,#0b01000000
COMMAND_B2:
LD A,10(IY)
SUB 9(IY)
JR Z,COMMAND_B4
LD A,#0b00100000
OR D
LD D,A
JP COMMAND_B4
COMMAND_B3:
LD A,#0b10000000
OR D
LD D,A
COMMAND_B4:
JP EXTRACT_COM
CANCEL_ITEM:
LD D,#0b10000000
JP EXTRACT_COM
COMMAND_ENM:
LD D,#0
EXTRACT_COM:
CALL SPRITES_OFF
LD IY,#MENU_COM_CLN
XOR A
LD 7(IY),A
LD A,#72
LD 6(IY),A
CALL PUTBLK
LD A,#80
LD 6(IY),A
CALL PUTBLK
LD A,#88
LD 6(IY),A
CALL PUTBLK
LD A,#96
LD 6(IY),A
CALL PUTBLK
BIT 0,D
LD IY,#MENU_COM_ATT
CALL NZ,PUTBLK
BIT 1,D
LD IY,#MENU_COM_MOV
CALL NZ,PUTBLK
BIT 2,D
LD IY,#MENU_COM_STP
CALL NZ,PUTBLK
BIT 3,D
LD IY,#MENU_COM_RET
CALL NZ,PUTBLK
BIT 4,D
LD IY,#MENU_COM_HRV
CALL NZ,PUTBLK
BIT 5,D
LD IY,#MENU_COM_UPG
CALL NZ,PUTBLK
BIT 6,D
LD IY,#MENU_COM_REP
CALL NZ,PUTBLK
BIT 7,D
LD IY,#MENU_COM_CAN
CALL NZ,PUTBLK
LD IY,#MENU_COM_SW2
CALL PUTBLK
JP SPRITES_ON
;-------------------------------------------
REMOVE_TANK:
; XOR A ; sample nummer 0
; CALL PLAY
LD D,0(IX)
LD E,1(IX)
LD B,D
LD C,E
PUSH IX
LD IX,#PLOF_BUF
LD 0(IX),D
LD 1(IX),E
CALL ADD_PLOFJE
POP IX
CALL CALC_ADR ; 2 byte veld layer op 0
LD A,(HL)
CP #16
JR NC,REMOVE_TANK2
LD A,R
AND #0b00000011
ADD #6
LD (HL),A
REMOVE_TANK2:
INC HL
LD (HL),#0
LD C,25(IX) ; Y
LD B,24(IX) ; X
CALL CALC_ADR
DEC HL
LD A,(HL)
OR A
JR NZ,REMOVE_TANK3
INC HL
CALL POINT
LD D,A
CALL PLACE_UNIT
REMOVE_TANK3:
BIT 7,11(IX)
CALL NZ,CLEAR_ITEM
LD A,23(IX)
AND #0x0F
CALL NZ,AI_UPDATE ; ALS TNK EEN MIS HEEFT UPD DAN
LD A,13(IX) ; nummer tank
LD H,A
LD B,#254 ; tank sum
LD DE,#TANK_DATA ;loop door de tabel om attack
LD IY,#TANK1 ; nummers te resetten !!
LABEL0010:
LD A,14(IY)
CP H
CALL Z,RES_ATTACK
ADD IY,DE
DJNZ LABEL0010
; remove tank uit tnk_totaal
; verschilt per tank
LD A,13(IX)
CP #128
JR C,REM_TNK_BLW
LD HL,(DED_CNT_RED)
INC HL
LD (DED_CNT_RED),HL
LD HL,#TNK_CNT_RED
JR LABEL0012
REM_TNK_BLW:
LD HL,(DED_CNT_BLW)
INC HL
LD (DED_CNT_BLW),HL
LD HL,#TNK_CNT_BLW
LABEL0012:
DEC (HL)
PUSH IX
POP HL
LD BC,#TANK_DATA
LABEL0011:
LD (HL),#0
INC HL
DEC BC
LD A,B
OR C
JP NZ,LABEL0011
RET
RES_ATTACK:
LD 14(IY),#0
RES 5,11(IY)
RES 6,11(IY)
SET 4,11(IY)
LD A,22(IY) ; reset inslag shoot en
AND #0b10000001 ; of er op je geschotenis
LD 22(IY),A
LD A,0(IY)
LD 2(IY),A
LD A,1(IY)
LD 3(IY),A
RET
REMOVE_BUILD:
LD IX,#PLOF_BUF
LD D,2(IY)
LD E,3(IY)
LD B,D
LD C,E
CALL CALC_ADR
LD B,5(IY) ;hoogte gebouw
REM_B_LOOPY:
PUSH HL
PUSH DE
PUSH BC
LD B,4(IY) ; lengte gebouw
REM_B_LOOPX:
LD 0(IX),D
LD 1(IX),E
CALL ADD_PLOFJE
LD A,R
AND #0b00000011
ADD #65
LD (HL),A ; random stukje
INC D
INC HL
INC HL
INC HL
INC HL
DJNZ REM_B_LOOPX
POP BC
POP DE
POP HL
INC E
INC H
DJNZ REM_B_LOOPY
LD HL,#BUILDINGS
DEC (HL) ; gebouw -1
LD A,0(IY)
LD 0(IY),#0 ; nummer op 0 is gebouw weg
LD A,(ITEMSELECTED)
BIT 7,A
RET Z
PUSH IY
POP BC
LD IX,(P_BUILD)
PUSH IX
POP HL
SBC HL,BC
JP Z,CLEAR_ITEM
RET
;-----------------------------------
; ADD_PLOFJE
;
; IN: PLOF_BUF GEVULD ! X EN Y
;
;-----------------------------------
PLOF_BUF: .db 0,0
ADD_PLOFJE:
EXX
LD A,(PLOF_BUF)
LD D,A
LD A,(PLOF_BUF+1)
LD E,A
LD HL,#PLOF_TABEL
INC HL
INC HL
LD A,#80 ; max ontplof stukjes
LD B,A
CHECK_PLOF:
LD A,(HL)
OR A
JR Z,LABEL0002
INC HL
INC HL
INC HL
DJNZ CHECK_PLOF ; even opletten
RET ; max. plof bereikt
LABEL0002:
LD A,(PLOF_COUNT)
INC A ; 1 plofke erbij
LD (PLOF_COUNT),A
LD (HL),#8 ; NUMMER
DEC HL
LD (HL),E ; EN Y
DEC HL
LD (HL),D ; EN X
EXX
RET
;----------------------------------
; SPICE PLOF
;----------------------------------
WAIT: .db 0
SPICE_BOOM:
LD A,(WAIT)
INC A
AND #0b00000111
LD (WAIT),A
RET NZ
LD IX,(TNKADR)
LD B,0(IX)
LD C,1(IX)
CALL CALC_ADR
PUSH HL
LD IX,#SPICE_RAD
LD B,#9
SPICE_BOOM_LP:
POP HL
PUSH HL
LD E,0(IX)
LD D,1(IX)
ADC HL,DE
LD D,#0
LD A,(HL)
CP #48
JR NC,END_BOOM_LP
CP #16
JR C,NORMAL_SPICE
CP #32
JR C,EXTRA_SPICE
LD (HL),#32
JR END_BOOM_LP
EXTRA_SPICE:
LD A,#16
LD D,A
NORMAL_SPICE:
LD A,2(IX)
ADD D
LD (HL),A
END_BOOM_LP:
LD DE,#3
ADD IX,DE
DJNZ SPICE_BOOM_LP
POP HL
RET
;-----------------------------------
; Music Module init
;-----------------------------------
MMODULE_INIT:
LD B,#12
LD HL,#PDATA_1
PLOOP1: LD A,(HL)
OUT (0xC0),A ; OUT REG
INC HL
LD A,(HL)
OUT (0xC1),A ; OUT INHOUD
INC HL
DJNZ PLOOP1 ; TILL B=0
RET
;------------------------------------
; Play a sample
; A register bevat nummer sample
;-----------------------------------
PLAY:
LD HL,#SAMPLES
SLA A
LD C,A
LD B,#0
ADD HL,BC
LD E,(HL)
INC HL
LD D,(HL)
EX DE,HL
LD B,#6
PLOOP2: LD A,(HL)
OUT (0xC0),A ; OUT REG
INC HL
LD A,(HL)
OUT (0xC1),A ; OUT INHOUD
INC HL
DJNZ PLOOP2 ; TILL B=0
RET
SAMPLES:
.dw SAM_PLOF1
.dw SAM_PLOF2
SAM_PLOF1:
.db 7,1 ; MOET!!!
.db 9,0
.db 10,0
.db 11,0xFF ; EI LOW
.db 12,0x07 ; EI HI
.db 7,0xA0 ; IETS (0xA0 IS PLAY)
SAM_PLOF2:
.db 7,1 ; MOET!!!
.db 9,0
.db 10,0
.db 11,0xFF ; EI LOW
.db 12,0x07 ; EI HI
.db 7,0xA0 ; IETS (0xA0 IS PLAY)
; --------- swap mode ----------------
CHANGE_INT:
DI ; is dit nodig ?
LD A,(0xF3DF)
RES 4,A
LD (0xF3DF),A
OUT (0x99),A
LD A,#128+0
OUT (0x99),A
LD A,#16
OUT (0x99),A
LD A,#128+19
OUT (0x99),A
EI
RET
;---------------------------------
; CALCULATE MONEY
; BC bevat bedrag * 10
; UIT Carry is te weinig !!!
;---------------------------------
CALC_MONEY:
LD HL,(MONEY)
SBC HL,BC
RET C
LD (MONEY),HL
RET
;---------------------------------
; PLAATS MONEY
;----------------------------------
PUT_MONEY:
LD HL,(DIS_MONEY)
LD BC,(MONEY)
SBC HL,BC
RET Z
LD HL,(DIS_MONEY)
JR C,INC_MONEY
DEC HL
DEC HL
DEC HL
DEC HL
INC_MONEY:
INC HL
INC HL
LD (DIS_MONEY),HL
LD IY,#DEEL2
LD IX,#MONEY_CHAR
LD B,#5 ; aantal cijfers te delen
CALL DLINI
LD IX,#MONEY_CHAR
LD HL,(MONEY_POS)
LD D,#5
JP PUT_CHARS
PUT_FPS:
RET
; LD HL,(DED_CNT_RED)
; LD IY,DEEL2
; LD IX,MONEY_CHAR
; LD B,5 ; aantal cijfers te delen
; CALL DLINI
;
; LD IX,MONEY_CHAR
; LD HL,(MONEY_POS)
; LD D,5
; JP PUT_CHARS
;----------------------------------
; DEEL - delen van getallen
;----------------------------------
DLINI:
LD D,1(IY)
LD E,0(IY)
XOR A
DEEL:
SBC HL,DE
JR C,ENDLP1
INC A
JR DEEL
ENDLP1:
ADD HL,DE
LD 0(IX),A
LD A,B
CP #1
RET Z
INC IX
INC IY
INC IY
DEC B
LD D,1(IY)
LD E,0(IY)
XOR A
JR DEEL
;----------------------------------------
; PUT KARAKTER
;-------------------------------------
PUT_CHARS:
LD IY,#LETCOP
LD 4(IY),L
LD 6(IY),H
PUT1LP:
LD A,0(IX)
SLA A
SLA A
SLA A ;3 KEER = 8 > 2^3
;LD B,A
; LD A,96
;ADD B
LD 0(IY),A
CALL PUTBLK
LD A,7(IY)
XOR #1
LD 7(IY),A
CALL PUTBLK
LD A,4(IY)
ADD #8
LD 4(IY),A
INC IX
DEC D
JR NZ,PUT1LP
RET
;--------------------------------------------
INIT_TEXT:
EXX
LD HL,#TEXTTAB
LD B,#0
LD C,A
SLA C
RL B
ADD HL,BC
LD E,(HL)
INC HL
LD D,(HL)
LD (TEXTADR),DE
EXX
RET
;--------------------------------------------
PUT_TEXT:
LD IY,#LETCOP2
LD DE,(TEXTADR)
LD 4(IY),#20
LD 6(IY),#20
PUT2LP:
LD A,(DE)
CP #255
RET Z
CP #32
JR Z,PUT2LP_CONT
DEBUG:
SUB #46
LD B,#0
SLA A
RL B
SLA A
RL B
SLA A ;3 KEER = 8 > 2^3
RL B
LD 0(IY),A
SLA B
SLA B
SLA B
LD A,B
ADD #136
LD 2(IY),A
LD A,(SWAP)
LD 7(IY),A
CALL PUTBLK
PUT2LP_CONT:
INC DE
LD A,4(IY)
ADD #6
LD 4(IY),A
CP #160
JR C,PUT2LP
LD A,6(IY)
ADD #8
LD 6(IY),A
LD A,#20
LD 4(IY),A
JR PUT2LP
;--------------------------------------
; routine voor kopieren van stukken scherm
; gewijzigd worden
; AF
; BC
; HL
PUTBLK:
DI ; vdp klaar ?
LD A,#2 ; waarde 2 in reg 15
OUT (0x99),A
LD A,#0x8F ; execute
OUT (0x99),A
NOP
NOP ; wacht op vdp
LUS2:
IN A,(0x99) ;lees status
RRA ; is CE nog 1 dan C is loop
JR C,LUS2
XOR A ; status reg. op 0
OUT (0x99),A
LD A,#0x8F ; reg 15 op 0 voor int!
OUT (0x99),A
PUSH IY ; hl moet iy bevatten !!
POP HL
LD A,#0x20 ; register 32
OUT (0x99),A ; als control register
LD A,#0x91 ;in reg 17
OUT (0x99),A
; LD BC,0x0F9B ; 15 bytes naar port 9b
LD C,#0x9B
OUTI
OUTI
OUTI
OUTI
OUTI
OUTI
OUTI
OUTI
OUTI
OUTI
OUTI
OUTI
OUTI
OUTI
OUTI
EI
RET
;--------------------------------------------
; put sprite
; in = IX met attribuut tabel bevat ook nummer sprite
;-----------------------------------------
PUT_SPRITE:
DI
LD A,#1
OUT (0x99),A
LD A,#0x8E
OUT (0x99),A
LD C,3(IX)
LD B,#0
LD HL,#0x7600 ; ipv 35FF
ADD HL,BC
LD A,L
OUT (0x99),A
LD A,H
OUT (0x99),A
PUSH IX
POP HL ; hl bevat attribuut tabel
LD BC,#0x0498
OTIR
EI
RET
PUT_SPRITE2:
LD A,#1
OUT (0x99),A
LD A,#0x8E
OUT (0x99),A
LD C,3(IX)
LD B,#0
LD HL,#0x7600 ; ipv 35FF
ADD HL,BC
LD A,L
OUT (0x99),A
LD A,H
OUT (0x99),A
PUSH IX
POP HL ; hl bevat attribuut tabel
LD BC,#0x0498
OTIR
RET
SPRITE_CLR:
LD A,#1 ; Zet sprite kleur
OUT (0x99),A
LD A,#0x8E
OUT (0x99),A
LD HL,#0x7400 ; 33FF
ADD HL,BC
LD A,L
OUT (0x99),A
LD A,H
OUT (0x99),A
EX DE,HL
LD BC,#0x1098
OTIR
RET
PLACE_BB_SPR:
XOR A
LD (BB_BLOCKED),A
LD A,#1
LD (BB_OUT_RANGE),A
LD IX,#SPRATR+16
LD IY,#BB_SERIE
LD HL,#SPRATR
LD A,(HL)
AND #0b11110000
LD E,A
INC HL
LD A,(HL)
AND #0b11110000
LD D,A
PUSH DE
CALL XYTO16 ; adres van eerste
LD B,D
LD C,E
CALL CALC_ADR
LD A,(BB_SIZE)
LD 0(IY),A ; size in serie
INC IY
LD B,A
SPR_LOOP0:
LD A,(BB_OUT_RANGE)
OR A
JR Z,SPR_LOOP0_CNT
CALL IS_OUT_RANGE
; LD A,(BB_OUT_RANGE)
; OR A
; JR NZ,ADD_RED
SPR_LOOP0_CNT:
DEC HL
LD A,(HL)
INC HL
LD D,(HL)
INC HL
LD E,(HL)
DEC HL
OR A
JR NZ,ADD_RED
LD A,E
OR A
JR NZ,ADD_RED
LD A,D
CP #64
JR C,ADD_RED
CP #80
JR NC,ADD_RED
ADD_WHT:
XOR A
LD 0(IY),A
JP END_LOOP0
ADD_RED:
LD A,#1
LD 0(IY),A
END_LOOP0:
INC IY
CALL CALC_NXT_ADR
DJNZ SPR_LOOP0
POP DE ;adres weer terug
LD IY,#BB_SERIE
LD B,0(IY)
LD C,#0
INC IY
SPR_LOOP1:
PUSH BC
PUSH DE
LD A,E
CP #16
JP C,OUT_RANGE
CP #176
JP NC,OUT_RANGE
LD A,D
CP #16
JP C,OUT_RANGE
CP #176
JP C,IN_RANGE
OUT_RANGE:
LD E,#212
IN_RANGE:
LD 0(IX),E
LD 1(IX),D
CALL KAN_BB_SPR
POP DE
LD BC,#4
ADD IX,BC
INC IY
POP BC
INC C
CALL NEXT_COOR
DJNZ SPR_LOOP1
RET
NEXT_COOR:
LD A,B
DEC A
RET Z
CP #1
JP Z,NEXT_COOR1
CP #2
JP Z,NEXT_COOR2
CP #3
JP Z,NEXT_COOR1
CP #4
JP Z,NEXT_COOR2
NEXT_COOR1:
LD A,E
ADD A,#16
LD E,A
RET
NEXT_COOR2:
LD A,D
ADD A,#16
LD D,A
LD A,E
SUB #16
LD E,A
RET
CALC_NXT_ADR:
LD A,B
DEC A
RET Z
CP #1
JP Z,NEXT_ADR1
CP #2
JP Z,NEXT_ADR2
CP #3
JP Z,NEXT_ADR1
CP #4
JP Z,NEXT_ADR2
NEXT_ADR1:
INC H
RET
NEXT_ADR2:
DEC H
INC HL
INC HL
INC HL
INC HL
RET
KAN_BB_SPR:
LD A,C
ADD #4
LD C,A
SLA C
SLA C
SLA C
SLA C
LD B,#0
LD A,0(IY)
CP #0
JP Z,BB_SPR_WHT
JP BB_SPR_RED
IS_OUT_RANGE:
PUSH HL
LD D,#1
DEC H
CALL BB_TEST_RANGE
INC HL
INC HL
INC HL
INC HL
CALL BB_TEST_RANGE
INC H
CALL BB_TEST_RANGE
INC H
CALL BB_TEST_RANGE
DEC HL
DEC HL
DEC HL
DEC HL
CALL BB_TEST_RANGE
DEC HL
DEC HL
DEC HL
DEC HL
CALL BB_TEST_RANGE
DEC H
CALL BB_TEST_RANGE
DEC H
CALL BB_TEST_RANGE
POP HL
LD A,D
LD (BB_OUT_RANGE),A
RET
BB_TEST_RANGE:
LD A,(HL)
CP #128
RET NC
LD (STORAGE1),A
LD A,(ITEMSELECTED)
CP #64
JR NZ,BB_TEST_RANGE2
LD A,(HL)
CP #64
JR Z,BB_TEST_RANGE3
BB_TEST_RANGE2:
LD A,(STORAGE1)
CP #96
RET C
BB_TEST_RANGE3:
LD D,#0
RET
STORAGE1: .db 0
BB_SPR_WHT:
LD A,(BB_OUT_RANGE)
OR A
JR NZ,BB_SPR_RED
LD DE,#SPRKLR_WHT
CALL SPRITE_CLR
JP PUT_SPRITE2
BB_SPR_RED:
LD A,#1
LD (BB_BLOCKED),A
LD DE,#SPRKLR_RD
CALL SPRITE_CLR
JP PUT_SPRITE2
;--------------------------------------------------
; ADD TANK !!
;
; routine die een tank toevoegd
;
; IN:
; HL = coordinaten H=Y L=X
; BC = soort tank & type B=soort C=type
;
; UIT:
; A = nummer tank > 0 is gelukt
;
;-----------------------------------------------
ADD_TANK:
LD A,B
OR A
JP Z,ADD_TNK_RED
LD A,(TNK_CNT_BLW)
CP #127 ; NIET MEER DAN 127 TANKS
LD A,#0
RET Z ;
LD A,(TNK_CNT_BLW)
INC A
LD (TNK_CNT_BLW),A
LD IX,#TEMPLATE_TNK
LD 11(IX),C
LD 0(IX),H ; X EN Y
LD 2(IX),H
LD 1(IX),L ;
LD 3(IX),L ; dest. = source
LD IY,#TANK1
LD DE,#TANK_DATA
LD B,#0 ; niet 0 MAAR 1 !!!!!
LP_CALC_BLW:
INC B
LD A,13(IY)
OR A
JR Z,ADD_TANK3
ADD IY,DE
JR LP_CALC_BLW
ADD_TANK3:
LD 13(IX),B ; nummer
LD 12(IX),#255 ; power
LD HL,#TEMP_HARV ; search template
LD B,#0
SLA C
SLA C
ADD HL,BC
LD A,(HL)
LD 10(IX),A ;speed byte
INC HL
LD A,(HL)
LD 16(IX),A ; attack
INC HL
LD A,(HL)
LD 17(IX),A ; shield
INC HL
LD A,(HL)
LD 18(IX),#1 ; wait time
LD 19(IX),A
PUSH IX
POP HL ;bron
LD BC,#TANK_DATA ; aantal
PUSH IY
POP DE ; dest
LDIR
LD B,0(IY)
LD C,1(IY)
CALL CALC_ADR
LD A,13(IX)
INC HL
LD (HL),A ; update veld layer
DEC HL
DEC HL
LD (HL),#0
RET
ADD_TNK_RED:
LD A,(TNK_CNT_RED)
CP #127 ; NIET MEER DAN 127 TANKS
LD A,#0
RET Z ;
LD A,(TNK_CNT_RED)
INC A
LD (TNK_CNT_RED),A
LD IX,#TEMPLATE_TNK
LD 11(IX),C
LD 0(IX),H ; X EN Y
LD 2(IX),H
LD 1(IX),L ;
LD 3(IX),L ; dest. = source
LD IY,#TANKRED
LD DE,#TANK_DATA
LD B,#127 ; dan is ie 128 bij de eerste loop
LP_CALC_RED:
INC B
LD A,13(IY)
OR A
JR Z,ADD_TANK4
ADD IY,DE
JR LP_CALC_RED
ADD_TANK4:
LD 13(IX),B ; nummer
LD 12(IX),#255 ; power
LD HL,#TEMP_HARV ; search template
LD B,#0
SLA C
SLA C
ADD HL,BC
LD A,(HL)
LD 10(IX),A ;speed byte
INC HL
LD A,(HL)
LD 16(IX),A ; attack
INC HL
LD A,(HL)
LD 17(IX),A ; shield
INC HL
LD A,(HL)
LD 18(IX),#1 ; wait time
LD 19(IX),A
PUSH IX
POP HL ;bron
LD BC,#TANK_DATA ; aantal
PUSH IY
POP DE ; dest
LDIR
LD B,0(IY)
LD C,1(IY)
CALL CALC_ADR
LD A,13(IX)
INC HL
LD (HL),A ; update veld layer
RET
TEST_ADD_TNK:
; LD HL,(MONEY) ; MAX 2TOTDE15
; LD BC,30
; XOR A
; SBC HL,BC
; RET C
LD A,R
AND #0b00000011
ADD #25
LD B,A
LD C,#18
PUSH BC
CALL CALC_ADR
INC HL
LD A,(HL)
OR A
POP HL
RET NZ
LD A,R
AND #0b00000001
LD B,#1 ; 1 = blauw / 0 = rood
LD A,#3 ; random tank !!
; AND 0b00000011 ; joepie werkt !!
INC A ; 0 = 1 / 3 = 4
LD C,A
CALL ADD_TANK
OR A
RET Z
LD HL,(MONEY) ; MAX 2TOTDE15
LD BC,#30
XOR A
SBC HL,BC
LD (MONEY),HL
RET
MAKE_RED_BASE:
LD B,#25 ; over de steentjes heen....
LD C,#13 ; dit moet ook weg !!
CALL CALC_ADR
LD (HL),#96
INC HL
INC HL
INC HL
INC HL
LD (HL),#97
INC H
LD (HL),#99
DEC HL
DEC HL
DEC HL
DEC HL
LD (HL),#98
LD B,#50 ; dit kan dus hierna weer weg !
LD C,#46
CALL CALC_ADR
LD (HL),#112+16
INC HL
INC HL
INC HL
INC HL
LD (HL),#113+16
INC H
LD (HL),#115+16
DEC HL
DEC HL
DEC HL
DEC HL
LD (HL),#114+16
LD B,#49 ; dit kan dus hierna weer weg !
LD C,#49
CALL CALC_ADR
LD (HL),#118+32 ; factory
INC HL
INC HL
INC HL
INC HL
LD (HL),#119+32
INC HL
INC HL
INC HL
INC HL
LD (HL),#120+32
INC H
LD (HL),#123+32
DEC HL
DEC HL
DEC HL
DEC HL
LD (HL),#122+32
DEC HL
DEC HL
DEC HL
DEC HL
LD (HL),#121+32
LD B,#53 ; EN DIT OOK
LD C,#46
CALL CALC_ADR
LD (HL),#132
INC HL
INC HL
INC HL
INC HL
LD (HL),#133
INC H
LD (HL),#135
DEC HL
DEC HL
DEC HL
DEC HL
LD (HL),#134
RET
FREE_BLW_BASE: ; ; maak wat radar schoon !
LD B,#25
LD C,#10
CALL FREE_PART
LD B,#29
LD C,#12
CALL FREE_PART
LD B,#28
LD C,#19
CALL FREE_PART
LD B,#50 ; stukie rode base
LD C,#46
CALL FREE_PART
LD B,#49
LD C,#52
CALL FREE_PART
LD B,#53
LD C,#49
CALL FREE_PART
RET
FREE_PART:
LD DE,#RAD_SIEGE
CALL FREE_PART_LOOP
CALL CALC_ADR
DEC HL
LD (HL),#0
RET
FREE_PART_LOOP:
LD A,(DE)
CP #100
RET Z
PUSH BC
ADD B
LD B,A
INC DE
LD A,(DE)
ADD C
LD C,A
INC DE
CALL CALC_ADR
POP BC
DEC HL
LD (HL),#0
JR FREE_PART_LOOP
RET
;------------------------------------------------
; Variabelen en data gebied
;------------------------------------------------
INT_DOS: .dw 0
INT_GAME: .dw INT_ROUTINE
ADR: .dw 0x4000+260 ; waar staat het veld ???? + de rand
LINE: .db 10
FASTCOP:
BRON_X: .db 0,0
BRON_Y: .db 0,2
DOEL_X: .db 0,0
DOEL_Y: .db 0
DOEL_PAGE: .db 0
NUM_X: .db 16,0
NUM_Y: .db 16,0
.db 0,0
VDP_LOG: .db 0xD0
ALGCOP: .db 0,0,0,2,0,0,0,0,16,0,16,0,0,0,0xD0
TNKCOP: .db 0,0,160,2,0,0,0,0,16,0,16,0,0,0,0x98
TNKCOP_RI: .db 0,0,160,2,0,0,0,0,16,0,16,0,0,0,0x98
TNKCOP_DN: .db 0,0,160,2,0,0,0,0,16,0,16,0,0,0,0x98
TNKCOP_LT: .db 0,0,160,2,0,0,0,0,16,0,16,0,0,0,0x98
TNKCOP_UP: .db 0,0,160,2,0,0,0,0,16,0,16,0,0,0,0x98
TANK_IMG: .db 0,0,96,3,224,0,0,3,32,0,32,0,0,0,0x98
BUILD_IMG: .db 0,0,64,3,224,0,0,3,32,0,32,0,0,0,0x98
EMPTY: .db 160,0,0,3,208,0,24,0,32,0,32,0,0,0,0xD0
RADCOP: .db 192,0,128,0,192,0,128,1,65,0,65,0,0,0,0xD0
POWER_BALK: .db 200,0,56,3,208,0,58,0,32,0,8,0,0,0,0xD0
POWER_INFO: .db 200,0,40,3,208,0,58,0,32,0,8,0,0,0,0xD0
POWER_COP: .db 208,0,58,0,208,0,58,0,32,0,8,0,0,0,0xD0
HARV_BALK: .db 192,0,0,3,232,0,24,0,8,0,32,0,0,0,0xD0
HARV_COP: .db 232,0,24,0,232,0,24,0,8,0,32,0,0,0,0xD0
ITEM_CANCEL: .db 208,0,120,3,200,0,96,0,48,0,8,0,0,0,0xD0
CANCEL_COP: .db 208,0,96,3,200,0,72,0,48,0,32,0,0,0,0xD0
LIJN_COP: .db 0,0,0,3
.db 64,0,31,0
.db 112,0,1,0
.db 0,0,0xD0
MENU_COP: .db 0,0,0,3
.db 64,0,32,0
.db 112,0,112,0
.db 0,0,0xD0
PLOF_COP: .db 0,0,64,2
.db 0,0,0,0
.db 16,0,16,0
.db 0,0,0x98
LETCOP: .db 0,0,128,3,0,0,0,0,8,0,8,0,0,0,0xD0
LETCOP2: .db 0,0,136,3,0,0,0,0,8,0,8,0,0,0,0x98
CONCRETE_COP: .db 0,0,80,2
.db 0,0,0,0
.db 16,0,16,0
.db 0,0,0xD0
SHOOT0:
.db 128,0,0,2
.db 0,0,0,0
.db 16,0,16,0
.db 0,0,0x98
SHOOT1:
.db 144,0,0,2
.db 0,0,0,0
.db 16,0,16,0
.db 0,0,0x98
IMPACT0:
.db 192,0,0,2
.db 0,0,0,0
.db 16,0,16,0
.db 0,0,0x98
COP_BSEL_1:
.db 192,0,64,2
.db 0,0,0,0
.db 16,0,16,0
.db 0,0,0x98
COP_BSEL_2:
.db 224,0,64,2
.db 0,0,0,0
.db 16,0,16,0
.db 0,0,0x98
COP_BSEL_3:
.db 208,0,64,2
.db 0,0,0,0
.db 16,0,16,0
.db 0,0,0x98
COP_BSEL_4:
.db 240,0,64,2
.db 0,0,0,0
.db 16,0,16,0
.db 0,0,0x98
BB_BUSY_COP:
.db 0,0,0,3
.db 224,0,0,3
.db 32,0,32,0
.db 0,0,0x98
BB_BLW_COP:
.db 32,0,0,3
.db 224,0,0,3
.db 32,0,32,0
.db 0,0,0xD0
BB_RED_COP:
.db 64,0,0,3
.db 224,0,0,3
.db 32,0,32,0
.db 0,0,0xD0
BB_X_COP:
.db 96,0,0,3
.db 224,0,0,3
.db 32,0,32,0
.db 0,0,0xD0
BB_READY_COP:
.db 128,0,0,3
.db 224,0,0,3
.db 32,0,32,0
.db 0,0,0x98
BB_BLD_COP:
.db 0,0,64,3
.db 224,0,0,3
.db 32,0,32,0
.db 0,0,0x98
BB_TNK_COP:
.db 0,0,96,3
.db 224,0,0,3
.db 32,0,32,0
.db 0,0,0x98
BB_BLD2_COP:
.db 0,0,0,3
.db 0,0,176,0
.db 32,0,32,0
.db 0,0,0x98
BB_MOVE_COP:
.db 224,0,0,3
.db 0,0,176,0
.db 32,0,32,0
.db 0,0,0xD0
BB_STEPS_BAR:
.db 194,0,0,3
.db 0,0,176,0
.db 4,0,16,0
.db 0,0,0xD0
GRAY_ITEM:
.db 160,0,0,3
.db 224,0,0,3
.db 32,0,32,0
.db 0,0,0xD0
PUT_ITEM:
.db 224,0,0,3
.db 208,0,24,0
.db 32,0,32,0
.db 0,0,0xD0
MENU_COM_ATT:
.db 0,0,32,3
.db 200,0,72,0
.db 48,0,8,0
.db 0,0,0xD0
MENU_RED_ATT:
.db 0,0,48,3
.db 200,0,72,0
.db 48,0,8,0
.db 0,0,0xD0
MENU_COM_MOV:
.db 48,0,32,3
.db 200,0,80,0
.db 48,0,8,0
.db 0,0,0xD0
MENU_RED_MOV:
.db 48,0,48,3
.db 200,0,80,0
.db 48,0,8,0
.db 0,0,0xD0
MENU_COM_HRV:
.db 144,0,32,3
.db 200,0,72,0
.db 48,0,8,0
.db 0,0,0xD0
MENU_RED_HRV:
.db 144,0,48,3
.db 200,0,72,0
.db 48,0,8,0
.db 0,0,0xD0
MENU_COM_RET:
.db 192,0,32,3
.db 200,0,96,0
.db 48,0,8,0
.db 0,0,0xD0
MENU_RED_RET:
.db 192,0,48,3
.db 200,0,96,0
.db 48,0,8,0
.db 0,0,0xD0
MENU_COM_STP:
.db 0,0,40,3
.db 200,0,88,0
.db 48,0,8,0
.db 0,0,0xD0
MENU_RED_STP:
.db 0,0,56,3
.db 200,0,88,0
.db 48,0,8,0
.db 0,0,0xD0
MENU_COM_REP:
.db 48,0,40,3
.db 200,0,72,0
.db 48,0,8,0
.db 0,0,0xD0
MENU_RED_REP:
.db 48,0,56,3
.db 200,0,72,0
.db 48,0,8,0
.db 0,0,0xD0
MENU_COM_UPG:
.db 96,0,40,3
.db 200,0,80,0
.db 48,0,8,0
.db 0,0,0xD0
MENU_RED_UPG:
.db 96,0,56,3
.db 200,0,80,0
.db 48,0,8,0
.db 0,0,0xD0
MENU_COM_CAN:
.db 144,0,40,3
.db 200,0,96,0
.db 48,0,8,0
.db 0,0,0xD0
MENU_COM_CLN:
.db 144,0,56,3
.db 200,0,72,0
.db 48,0,8,0
.db 0,0,0xD0
MENU_COM_SWP:
.db 200,0,58,0
.db 200,0,58,1
.db 48,0,46,0
.db 0,0,0xD0
MENU_COM_SW2:
.db 200,0,72,0
.db 200,0,72,1
.db 48,0,32,0
.db 0,0,0xD0
SWAP: .db 0
OFFSET: .db 1,1 ; zorg dat er altijd een rand #0xomeen is !
MAXSET: .db 53,53 ; vierkant veld !! is max offset + breedt
BALK: .db 0 ; xlengte
.db 0 ; ylengte
.dw 0 ; xbegin
.dw 0 ; ybegin
STOP: .db 0 ; anders dan 0 is stop
MSTOP: .db 0
MBUSY: .db 0
TNKADR: .dw 0
B_BALK_TYPE: .db 0
B_BALK_NR: .db 0
T_BALK_NR: .db 0
BB_WAIT: .db 0
BB_UP_DOWN: .db 0
RADAR: .db 0 ; niet elke keer updaten !!
VDPADR: .dw 0x0300+100
MS_COUNT:
.db 0 ; multiple select counter
TEMPLATE_TNK:
.ds TANK_DATA ; template voor toevoegen tank !
TEMP_HARV: ; ; templates per tank
.db 2 ; speed byte
.db 0,140 ; ATTACK / SHIELD
.db 60
TEMP_SIEGE:
.db 2
.db 190,150
.db 19
TEMP_TANK:
.db 2
.db 175,140
.db 15
TEMP_QUAD:
.db 4
.db 160,120
.db 10
TEMP_TRIKE:
.db 8
.db 155,80
.db 7
SPRATR:
MOUSEY: .db 96
MOUSEX: .db 128
MOUSE_SHAPE: .db 0
.db 4
.db 0,0,4,4
.db 0,0,8,8
.db 0,0,12,12
.db 0,0,32,16 ; build vlak sprite
.db 0,0,32,20
.db 0,0,32,24
.db 0,0,32,28
.db 0,0,32,32
.db 0,0,32,36
.db 0,0,36,40
.db 0,0,40,44
.db 0,0,44,48
.db 0,0,48,52
SPRKLR_WHT:
.db 15,15,15,15,15,15,15,15
.db 15,15,15,15,15,15,15,15
SPRKLR_RD:
.db 10,10,10,10,10,10,10,10
.db 10,10,10,10,10,10,10,10
BB_TYPES: .db 1,4,6,4,6,4,1,4,255 ; zie bb
BB_SIZE: .db 0 ; 1, 4(2) of 6(3)
BB_BLOCKED: .db 0 ; 1 is blocked 0 is vrij !
BB_OUT_RANGE: .db 0
BB_SERIE:
.db 0,0,0,0,0,0,0 ; Hoe groot en welke spritesvoor BB
BBB_VALUE:
; 1 = aanwezig , build step, current step
; 2 = busy with building
; 3 = ready building
; 0 = niet aanwezig
.db 1,64,63,2 ; status, steps, current, money neede
.db 1,8,7,24
.db 1,2,1,80
.db 1,16,15,10
.db 1,2,1,90
.db 0,4,3,14
.db 0,8,7,1
.db 0,2,1,2
TBB_VALUE:
.db 0,16,15,0 ; 5types units
.db 0,8,7,0
.db 0,4,3,0
.db 0,2,1,0
.db 0,2,1,0 ; BBB +13
ETB_VALUE:
.db 1,16,15,0
.db 1,8,7,0
.db 1,4,3,0
.db 1,2,1,0
.db 0,2,1,0 ; BBB + 18
UPG_LEV_BLD: .db 0 ; total upg level
UPG_LEV_UNT: .db 0 ; MAX 4 ?
IS_UNT_UPGRADING: .db 0 ; 1 per keer aub
IS_BLD_UPGRADING: .db 0
ITEMSELECTED:
.db 0 ; 0- 31 is enemy tanks of buildin
; ; 32-63 is eigen tanks of building
; ; 64-? item van build balk
SELECTED:
.db 0 ; is er een tank geselecteerd
HAS_SELECT:
.db 0 ;er is multiple select gedaan
MSELECT_ON:
.db 0 ; er zijn tanks geselecteerd
TOTAL_SELECT: .db 0 ; nax 25 in selectie !
CURSOR_TYPE:
.db 0 ; ??
FIRE_BUTTONS: .db 0
BUT_PRESSED: .db 0 ; bit 0 pressed but1
; ; bit 1 pressed but2
RADARS:
.dw RAD_DUMMY
.dw RAD_SIEGE
.dw RAD_TANK
.dw RAD_QUAD
.dw RAD_TRIKE
RAD_DUMMY: .db 100,100
RAD_SIEGE: ; altijd op 100,100 eindigen
.db -1,-3,0,-3,1,-3
.db -2,-2,-1,-2,0,-2,1,-2,2,-2
.db -3,-1,-2,-1,-1,-1,0,-1,1,-1,2,-1,3,-1
.db -3,0,-2,0,-1,0,1,0,2,0,3,0
.db -3,1,-2,1,-1,1,0,1,1,1,2,1,3,1
.db -2,2,-1,2,0,2,1,2,2,2
.db -1,3,0,3,1,3
.db 100,100
RAD_TANK: ; altijd op 100,100 eindigen
.db -1,-2,0,-2,1,-2
.db -2,-1,-1,-1,0,-1,1,-1,2,-1
.db -2,0,-1,0,1,0,2,0
.db -2,1,-1,1,0,1,1,1,2,1
.db -1,2,0,2,1,2
.db 100,100
RAD_QUAD: ; altijd op 100,100 eindigen
.db -1,-1,0,-1,1,-1,-1,0,1,0,-1,1,0,1,1,1,100,100
RAD_TRIKE: ; altijd op 100,100 eindigen
.db -1,-1,0,-1,1,-1,-1,0,1,0,-1,1,0,1,1,1,100,100
RAD_HARVB: ; altijd op 100,100 eindigen
.db -1,-1,0,-1,1,-1,-1,0,1,0,-1,1,0,1,1,1
.db 0,-2,2,0,0,2,-2,0,2,-2,2,2,-2,2,-2,-2,100,100
RAD_HARVR: ; altijd op 100,100 eindigen
.db -1,-1,0,-1,1,-1,-1,0,1,0,-1,1,0,1,1,1
.db 0,-2,2,0,0,2,-2,0,2,-2,2,2,-2,2,-2,-2
.db 0,-3,3,0,0,3,-3,0,3,-3,3,3,-3,3,-3,-3
.db 0,-4,4,0,0,4,-4,0,4,-4,4,4,-4,4,-4,-4
.db 0,-5,5,0,0,5,-5,0,5,-5,5,5,-5,5,-5,-5
.db 0,-6,6,0,0,6,-6,0,6,-6,6,6,-6,6,-6,-6
.db 0,-7,7,0,0,7,-7,0,7,-7,7,7,-7,7,-7,-7,100,100
SPICE_RAD:
.dw -1*4+-1*256
.db 17
.dw 0+-1*256
.db 18
.dw 1*4+-1*256
.db 19
.dw -1*4+0*256
.db 20
.dw 0+0
.db 16
.dw 1*4+0*256
.db 21
.dw -1*4+1*256
.db 22
.dw 0*4+1*256
.db 23
.dw 1*4+1*256
.db 24
FACTORY_DEPLOY:
.dw (0*4)+0*256,(1*4)-1*256
.dw (2*4)-1*256,(3*4)-1*256,(4*4)+0*256,(4*4)+1*256
.dw (3*4)+2*256,(2*4)+2*256,(1*4)+2*256,(0*4)+256
.dw (-1*4)+0,0-1*256,(1*4)-2*256,(2*4)-2*256
.dw (3*4)-2*256,(4*4)-1*256,5*4,(5*4)+1*256,(4*4)+2*256
.dw (3*4)+3*256,(2*4)+3*256,(1*4)+3*256,(0*4)+2*256
.dw (-1*4)+1*256,100,100
QUAKE: .db 0 ; nummer van slachtoffer
PLAYFIELD: .db 0 ; cursor binnen area 3 = 1
MOUSE_OFF: .db 0 ; AAN OF UIT
MOUSE_USE: .db 0 ; " """"""""
MOUSE_PORT: .db 0 ; PORT 1 OF 2
MOUSE_WAIT1: .db 0 ; WAIT CYCLE 1
MOUSE_WAIT2: .db 0 ; WAIT CYCLE 2
DIS_MONEY: .dw 200
MONEY: .dw 300 ; maal 10
MONEY_POS: .db 204,4
MONEY_CHAR: .db 0,0,0,0,0
FPS_OUT: .dw 0
DEEL2: .dw 10000
DEEL1: .dw 1000
.dw 100
DEEL0: .dw 10
.dw 1
ISTEXT: .db 0
TEXTADR: .dw 0
TEXTTAB:
.dw TEXT_TNK1
.dw TEXT_TNK2
.dw TEXT_TNK3
.dw TEXT_TNK4
.dw TEXT_MENU1
.dw TEXT_OUTOFMONEY
TEXT_TNK1: .str "YES SIR >>"
.db 255
TEXT_TNK2: .str "YO >>"
.db 255
TEXT_TNK3: .str "AFFIRMITIVE.."
.db 255
TEXT_TNK4: .str "ACKNOWLEDGED"
.db 255
TEXT_MENU1: .str "DOME ALPHA 3"
.db 255
TEXT_OUTOFMONEY: .str "NOT ENOUGH FUNDS..."
.db 255
PDATA_1:
.db 4,0x78 ; CONTREL/FLAG
.db 7,1 ; MOET!!!
.db 8,0 ; DIV INIT
.db 9,0 ; ST LOW
.db 10,0 ; ST HI
.db 11,0x0 ; EI LOW
.db 12,0x0 ; EI HI
.db 16,0xF0 ; 16 Khz PLAY
.db 17,0x51 ; 16 Khz PLAY
.db 18,255 ; VOL ADPCM
.db 24,8 ; ADPCM AAN
.db 7,0x60 ; IETS (0xA0 IS PLAY)
DEST_OFFSET:
.db 0,0,1,0,0,1,1,1
.db 2,0,2,1,0,2,1,2,2,2
.db 3,0,3,1,3,2,0,3,1,3,2,3,3,3
.db 4,0,4,1,4,2,4,3,0,4,1,4,2,4,3,4,4,4
PLOF_COUNT: .db 0
PLOF_TABEL:
.db 0,0,0 ; X Y nummer
.db 0,0,0 ; nummer = 0 > leeg einde rij
.db 0,0,0 ; nummer = 1 > plof aanwezig
.db 0,0,0
.ds 240 ; genoeg ruimte ?
EVENT: .db 0
EVENTHANDLER:
.dw BUILD
.dw UPDATE
.dw CHKXY
.dw RADAR_UPDATE
.dw AI
.dw ALGEMEEN
CPYTT: ; copy tank tabel
.ds 144*2 ; indeling is 0 1 of 2 en dan ix+
.db 0,0 ; voor de afronding z.w.m.z. en dus 40 un
P_BUILD: .dw 0 ; pointer naar huidig geslect building
EXTR_B_DATA:
.ds 8 ; steen
.db 2,2,255,154,0,0,0,0 ; windtrap
.db 3,2,255,154,0,0,0,0 ; ref
.db 2,2,255,154,0,0,0,0 ; silo
.db 3,2,255,154,0,0,2,0 ; factory
.db 2,2,255,154,0,0,0,0 ; radar
.db 1,1,255,154,0,0,0,0 ; tower
.db 2,2,255,154,0,0,3,0 ; const yard.
.ds 8
BUILDINGS:
.db 4
BUILDING1:
.db 1,7,25,13,2,2,200,150 ; yard coors
.db 0b00000000
; 0 ; repair bitje
; 0 ; is upgrading..
.db 0 ; cur. upgrade level
.db 3 ; max. upgrade level
.db 0 ; upgrade status
.db 0 ; refinery bezet ja/nee
.ds BUILD_DATA*24
;---------------------------------------------
BUILDING_RED:
.db 26,7,50,46,2,2,255,100,0,0,0,0,0
.db 27,1,53,46,2,2,255,100,0,0,0,0,0
.db 28,4,49,49,3,2,255,100,0,0,0,0,0
.ds BUILD_DATA*22 ; 50 stuks max.
; 25 blauw / 25 rood
TNK_CNT_BLW: .db 2
TNK_CNT_RED: .db 2
BLD_CNT_BLW: .db 1
BLD_CNT_RED: .db 0
DED_CNT_BLW: .dw 0
DED_CNT_RED: .dw 0
.area _DATA
Copy permalink