added levels code
This commit is contained in:
Willem
parent
4ba1c4a4f6
commit
41839649b3
4
Makefile
4
Makefile
|
|
@ -46,6 +46,10 @@ define mod_link_asm_dos
|
||||||
@echo === Link module asm dos.
|
@echo === Link module asm dos.
|
||||||
$(SDCC) $(SDCC_FLAG_CPU) --no-std-crt0 --code-loc 0x0100 -o $(1) $(2)
|
$(SDCC) $(SDCC_FLAG_CPU) --no-std-crt0 --code-loc 0x0100 -o $(1) $(2)
|
||||||
endef
|
endef
|
||||||
|
define mod_link_asm_1000
|
||||||
|
@echo === Link module asm 0x1000.
|
||||||
|
$(SDCC) $(SDCC_FLAG_CPU) --no-std-crt0 --code-loc 0x1000 -o $(1) $(2)
|
||||||
|
endef
|
||||||
define mod_link_asm_4000
|
define mod_link_asm_4000
|
||||||
@echo === Link module asm 0x4000.
|
@echo === Link module asm 0x4000.
|
||||||
$(SDCC) $(SDCC_FLAG_CPU) --no-std-crt0 --code-loc 0x4000 -o $(1) $(2)
|
$(SDCC) $(SDCC_FLAG_CPU) --no-std-crt0 --code-loc 0x4000 -o $(1) $(2)
|
||||||
|
|
|
||||||
32
src/levels/0module.mk
Normal file
32
src/levels/0module.mk
Normal file
|
|
@ -0,0 +1,32 @@
|
||||||
|
|
||||||
|
LEVELS_NAME := levels
|
||||||
|
LEVELS_SRC := $(PATH_SRC)/$(LEVELS_NAME)
|
||||||
|
LEVELS_BIN := $(PATH_BIN)/$(LEVELS_NAME)
|
||||||
|
|
||||||
|
$(LEVELS_BIN):
|
||||||
|
$(call mod_mkdir,$(LEVELS_BIN));
|
||||||
|
cp $(LEVELS_SRC)/*.00* $(LEVELS_BIN);
|
||||||
|
|
||||||
|
$(LEVELS_BIN)/code001.rel: $(LEVELS_SRC)/code001.asm | $(LEVELS_BIN)
|
||||||
|
$(call mod_compile_asm,$@,$<)
|
||||||
|
|
||||||
|
$(LEVELS_BIN)/code002.rel: $(LEVELS_SRC)/code001.asm | $(LEVELS_BIN)
|
||||||
|
$(call mod_compile_asm,$@,$<)
|
||||||
|
|
||||||
|
$(LEVELS_BIN)/code001.hex: $(LEVELS_BIN)/code001.rel
|
||||||
|
$(call mod_link_asm_1000,$@,$<)
|
||||||
|
|
||||||
|
$(LEVELS_BIN)/code002.hex: $(LEVELS_BIN)/code002.rel
|
||||||
|
$(call mod_link_asm_1000,$@,$<)
|
||||||
|
|
||||||
|
$(LEVELS_BIN)/code001.dat: $(LEVELS_BIN)/code001.hex
|
||||||
|
$(call mod_hex2dat,$<,$@)
|
||||||
|
|
||||||
|
$(LEVELS_BIN)/code002.dat: $(LEVELS_BIN)/code002.hex
|
||||||
|
$(call mod_hex2dat,$<,$@)
|
||||||
|
|
||||||
|
$(LEVELS_BIN)/code.001: $(LEVELS_BIN)/code001.dat
|
||||||
|
cp $< $@
|
||||||
|
|
||||||
|
$(LEVELS_BIN)/code.002: $(LEVELS_BIN)/code002.dat
|
||||||
|
cp $< $@
|
||||||
302
src/levels/code001.asm
Normal file
302
src/levels/code001.asm
Normal file
|
|
@ -0,0 +1,302 @@
|
||||||
|
;=================================
|
||||||
|
; DOME IN-GAME-CODE
|
||||||
|
;
|
||||||
|
; CODE.XXX = LEVEL
|
||||||
|
;
|
||||||
|
;=================================
|
||||||
|
|
||||||
|
|
||||||
|
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
|
||||||
|
|
||||||
|
|
||||||
|
; org 0x1000
|
||||||
|
|
||||||
|
JP INIT_DOME_HOOK ;0x1000
|
||||||
|
JP ALGEMEEN_HOOK ;0x1003
|
||||||
|
JP AI_MS_HOOK1 ;0x1006
|
||||||
|
JP AI_MS_HOOK2 ;0x1009
|
||||||
|
JP INT_HOOK ;0x100C
|
||||||
|
;---
|
||||||
|
JP BRIEFING_START ;0x100F
|
||||||
|
JP BRIEFING_DEAD ;0x1002
|
||||||
|
JP BRIEFING_END ;0x1005
|
||||||
|
|
||||||
|
INIT_DOME_HOOK:
|
||||||
|
CALL GET_TIME
|
||||||
|
LD (BEGIN_TIME),HL
|
||||||
|
RET
|
||||||
|
|
||||||
|
ALGEMEEN_HOOK:
|
||||||
|
CALL TIME
|
||||||
|
RET
|
||||||
|
|
||||||
|
|
||||||
|
TIME:
|
||||||
|
CALL GET_TIME
|
||||||
|
LD DE,(BEGIN_TIME)
|
||||||
|
XOR A
|
||||||
|
SBC HL,DE
|
||||||
|
RET NZ
|
||||||
|
;LD A,#435 (ERR CODE)
|
||||||
|
;JP MISSION_FAILD (BIOS)
|
||||||
|
|
||||||
|
BEGIN_TIME: .dw 0
|
||||||
|
|
||||||
|
BLABLA: .str "YOU CONCED DOME REAL ENMY SO BE NOT IN SHIT NEXT TIME...."
|
||||||
|
.db 0x0A,0x0D,0x1D
|
||||||
|
|
||||||
|
|
||||||
|
AI_MS_HOOK1:
|
||||||
|
RET
|
||||||
|
|
||||||
|
AI_MS_HOOK2:
|
||||||
|
RET
|
||||||
|
|
||||||
|
INT_HOOK:
|
||||||
|
RET
|
||||||
|
|
||||||
|
BRIEF: .str "BRIEF ZOP"
|
||||||
|
PAGE5: .str "PAGE5 ZOP"
|
||||||
|
|
||||||
|
BRIEFING_START:
|
||||||
|
|
||||||
|
LD HL,#PAGE5
|
||||||
|
LD DE,#0x4000
|
||||||
|
LD BC,#0x2000
|
||||||
|
LD A,#0
|
||||||
|
CALL LOAD
|
||||||
|
LD HL,#0x4000
|
||||||
|
LD DE,#0x8000
|
||||||
|
LD A,#1
|
||||||
|
CALL POP_UP_START
|
||||||
|
|
||||||
|
LD HL,#BRIEF
|
||||||
|
LD DE,#0x4000
|
||||||
|
LD BC,#0x1000
|
||||||
|
LD A,#0
|
||||||
|
CALL LOAD
|
||||||
|
LD HL,#0x4000
|
||||||
|
LD DE,#0x8000
|
||||||
|
LD A,#0
|
||||||
|
CALL POP_UP_START
|
||||||
|
|
||||||
|
LD HL,#COLOR_DOME_GAME
|
||||||
|
CALL PUT_COLOR
|
||||||
|
|
||||||
|
CALL SCREEN_ON
|
||||||
|
|
||||||
|
LD A,#63
|
||||||
|
CALL SET_PAGE
|
||||||
|
|
||||||
|
LD HL,#MISSION_NAME
|
||||||
|
CALL PUT_TXT_GFX2
|
||||||
|
|
||||||
|
LD HL,#MISSION_BRIEFING
|
||||||
|
CALL PUT_TXT_GFX
|
||||||
|
CALL CHK_SPATIE
|
||||||
|
RET
|
||||||
|
|
||||||
|
CHK_SPATIE:
|
||||||
|
IN A,(0xAA) ; check op spatie...
|
||||||
|
AND #0xF0
|
||||||
|
OR #8
|
||||||
|
OUT (0xAA),A
|
||||||
|
IN A,(0xA9)
|
||||||
|
AND #1
|
||||||
|
RET Z
|
||||||
|
EI
|
||||||
|
HALT
|
||||||
|
JR CHK_SPATIE
|
||||||
|
|
||||||
|
PUT_TXT_GFX2:
|
||||||
|
|
||||||
|
PUSH HL
|
||||||
|
POP DE
|
||||||
|
|
||||||
|
LD IY,#LETCOP2
|
||||||
|
|
||||||
|
LD 4(IY),#16
|
||||||
|
LD 6(IY),#8
|
||||||
|
JR PUT2LP
|
||||||
|
|
||||||
|
PUT_TXT_GFX:
|
||||||
|
|
||||||
|
PUSH HL
|
||||||
|
POP DE
|
||||||
|
|
||||||
|
LD IY,#LETCOP2
|
||||||
|
|
||||||
|
LD 4(IY),#0
|
||||||
|
LD 6(IY),#48
|
||||||
|
PUT2LP:
|
||||||
|
LD A,(DE)
|
||||||
|
CP #0x1D ; END
|
||||||
|
RET Z
|
||||||
|
CP #32
|
||||||
|
JR Z,PUT2LP_CONT ; SPACE
|
||||||
|
CP #0x0A
|
||||||
|
JR Z,LEFT ; TO LEFT SIDE OF SCREEN
|
||||||
|
CP #0x0D
|
||||||
|
JR Z,RETURN ; NEXT LINE
|
||||||
|
|
||||||
|
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
|
||||||
|
|
||||||
|
PUSH IY
|
||||||
|
POP HL
|
||||||
|
CALL PUTBLK
|
||||||
|
|
||||||
|
IN A,(0xAA) ; check op spatie...
|
||||||
|
AND #0xF0
|
||||||
|
OR #8
|
||||||
|
OUT (0xAA),A
|
||||||
|
IN A,(0xA9)
|
||||||
|
AND #1
|
||||||
|
RET Z
|
||||||
|
|
||||||
|
EI
|
||||||
|
HALT
|
||||||
|
HALT
|
||||||
|
HALT
|
||||||
|
HALT
|
||||||
|
HALT
|
||||||
|
HALT
|
||||||
|
HALT
|
||||||
|
HALT
|
||||||
|
|
||||||
|
PUT2LP_CONT:
|
||||||
|
INC DE
|
||||||
|
LD A,4(IY)
|
||||||
|
ADD #6
|
||||||
|
LD 4(IY),A
|
||||||
|
CP #148
|
||||||
|
JR C,PUT2LP
|
||||||
|
|
||||||
|
LD A,6(IY)
|
||||||
|
ADD #8
|
||||||
|
LD 6(IY),A
|
||||||
|
|
||||||
|
XOR A
|
||||||
|
LD 4(IY),A
|
||||||
|
JR PUT2LP
|
||||||
|
LEFT:
|
||||||
|
INC DE
|
||||||
|
XOR A
|
||||||
|
LD 4(IY),A
|
||||||
|
JR PUT2LP
|
||||||
|
RETURN:
|
||||||
|
INC DE
|
||||||
|
LD A,6(IY)
|
||||||
|
ADD #8
|
||||||
|
LD 6(IY),A
|
||||||
|
JR PUT2LP
|
||||||
|
|
||||||
|
LETCOP2: .db 0,0,136,3,0,0,0,1,8,0,8,0,0,0,0x98
|
||||||
|
|
||||||
|
|
||||||
|
MISSION_NAME:
|
||||||
|
.str "FIRST CONTACT :"
|
||||||
|
.db 0x0A,0x0D,0x1D
|
||||||
|
|
||||||
|
|
||||||
|
MISSION_BRIEFING: ; " <== TOT DAAR DE TEXT OF ANDERS !!!
|
||||||
|
.str "IT IS YOUR DUTY AS"
|
||||||
|
.db 0x0A,0x0D
|
||||||
|
.str "AN OFFICIER OF THE"
|
||||||
|
.db 0x0A,0x0D
|
||||||
|
.str "FORCE TO PROTECT"
|
||||||
|
.db 0x0A,0x0D
|
||||||
|
.str "YOUR BASE."
|
||||||
|
.db 0x0A,0x0D
|
||||||
|
.str "AND DESTROY THE ENEMY"
|
||||||
|
.db 0x0A,0x0D
|
||||||
|
.str "COMPLETELY."
|
||||||
|
.db 0x0A,0x0D
|
||||||
|
.str "BUT BE AWARE THAT"
|
||||||
|
.db 0x0A,0x0D
|
||||||
|
.str "THE ENEMY IS VERY"
|
||||||
|
.db 0x0A,0x0D
|
||||||
|
.str "INTELLIGENT AND HAS"
|
||||||
|
.db 0x0A,0x0D
|
||||||
|
.str "A GREAT DEFENSIVE"
|
||||||
|
.db 0x0A,0x0D
|
||||||
|
.str "ARMY"
|
||||||
|
.db 0x0A,0x0D
|
||||||
|
.str "WE WILL SENT SOME"
|
||||||
|
.db 0x0A,0x0D
|
||||||
|
.str "MORE TROOPS TO"
|
||||||
|
.db 0x0A,0x0D
|
||||||
|
.str "SUPPORT YOU IN YOUR"
|
||||||
|
.db 0x0A,0x0D
|
||||||
|
.str "MISSION.GOOD LUCK."
|
||||||
|
.db 0x0A,0x0D
|
||||||
|
.db 0x0A,0x0D
|
||||||
|
.str " PRESS SPACE"
|
||||||
|
.db 0x0A,0x0D
|
||||||
|
.db 0x1D ; END BRIEFING
|
||||||
|
|
||||||
|
|
||||||
|
COLOR_DOME_GAME:
|
||||||
|
.db #00,#00,#62,#04,#52,#03,#50,#02
|
||||||
|
.db #23,#02,#20,#01,#53,#04,#11,#01
|
||||||
|
.db #00,#04,#45,#04,#40,#01,#72,#05
|
||||||
|
.db #04,#01,#06,#02,#00,#00,#77,#07
|
||||||
|
|
||||||
|
BRIEFING_DEAD:
|
||||||
|
LD HL,#BLABLA
|
||||||
|
RET ; GET BACK TO THE GAME OVER SCROOL
|
||||||
|
|
||||||
|
BRIEFING_END:
|
||||||
|
LD HL,#BLABLA
|
||||||
|
RET ; GET BACK TO THE CHOOSER CODE..
|
||||||
|
|
||||||
|
.area _DATA
|
||||||
Loading…
Reference in a new issue