arch-msx/original-dome
2
0
Fork 0
Code Actions Activity
original-dome/src/init/init.asm
Willem 95503dd119 added dome and loader
2018-12-25 00:50:41 +01:00

717 lines
9.9 KiB
NASM
Raw Permalink Blame History

;------------------------------------
; DOME
;
; (c) 1998 PARAGON Productions
;
; DOME.COM
;
;------------------------------------
DOS .equ 0x5
D_OPEN .equ 0x0F
D_SETDMA .equ 0x1A
D_READ .equ 0x27
D_CLOSE .equ 0x10
.area _CODE
JP START
.db 0x0D ; type dome.com
.db 0x0D,0x0A
.str "DOME (c) 1999 PARAGON Productions"
.db 0x0D,0x0A
.db 0x1A ; Einde txt
TXT_END:
.ds 0x4000 ;-TXT_END (XASM CRACHED HIEROP !!!)
TXT_HELP:
.str "GETTING STATED WITH DOME"
.db 0x0A,0x0D
.db 0x0A,0x0D
.str "GAME STORY:"
.db 0x0A,0x0D
.db 0x0A,0x0D
.str "The evel harkonon are at war with"
.db 0x0A,0x0D
.str "the shadow attridis....."
.db 0x0A,0x0D
.db 0x0A,0x0D
.str "that is the true story of dome."
.db 0x0A,0x0D
.db 0x0A,0x0D
.str "GAME PLAY:"
.db 0x0A,0x0D
.db 0x0A,0x0D
.str "Very simple"
.db 0x0A,0x0D,0x1D
TXT_COM:
.str " "
.db 0x0A,0x0D
.str "Below you see a listing of all the"
.db 0x0A,0x0D
.str "extra options you can give to DOME."
.db 0x0A,0x0D
.str " "
.db 0x0A,0x0D
.str " /? = This text. "
.db 0x0A,0x0D
.str " "
.db 0x0A,0x0D
.str " /HELP = This functions give's you the entire "
.db 0x0A,0x0D
.str " help of DOME."
.db 0x0A,0x0D
.str " "
.db 0x0A,0x0D
.str " /TEST = START'S ONLY LEVEL 001 WITH MIN. INIT."
.db 0x0A,0x0D
.str " "
.db 0x0A,0x0D
.str " /MOUSEx = x is 1 or #2 so you can skip the mouse search."
.db 0x0A,0x0D
.str " "
.db 0x0A,0x0D
.str " /FMPAC = DOME asume's you have a FM-PAC."
.db 0x0A,0x0D
.str " And forces if moonsound drv is found to reload."
.db 0x0A,0x0D
.str " "
.db 0x0A,0x0D
.str " /NO_SCSI= DOME don't seek's thoug your MSX-SCSI config."
.db 0x0A,0x0D
.str " "
.db 0x0A,0x0D
.str " PS : Your are also able to type in small letter."
.db 0x0A,0x0D
.str " "
.db 0x0A,0x0D
.str "_______________DOME_______________"
.db 0x0A,0x0D
.str " PARAGON PRODUCTIONS (C)1999"
.db 0x0A,0x0D,0x1D
TXT_DOME_LIB: .str "LOADING : DOME_LIB...."
.db 0x1D
TXT_DOME_MUS: .str "LOADING : DOME_MUSDRV."
.db 0x1D
TXT_DOME_BIOS: .str "LOADING : DOME_BIOS..."
.db 0x1D
TXT_DOME_LOADER:.str "LOADING : DOME_LOADER."
.db 0x1D
TXT_READY: .str "Ready"
.db 0x0A,0x0D,0x1D
START:
LD A,(0x0080) ; aantal tekens
OR A
CALL NZ,GET_COM ; 0 tekens = geen tekst
CALL CHK_DISK
CALL CHK_MUS
LD A,(0x0080)
LD HL,#TXT_COM
BIT 0,A
JP NZ,PUT_TXT ; TEXT COMMMENT'S
BIT 1,A
JP NZ,PRT_HELP ; DOME HELP MOET GRAFISH
LD HL,#TXT_DOME_LIB
CALL PUT_TXT
; LD HL,#DOME_LIB
; CALL INIT_LIB
LD HL,#TXT_READY
CALL PUT_TXT
LD HL,#TXT_DOME_BIOS
CALL PUT_TXT
LD HL,#BIOS
LD DE,#0x0100
LD A,#0 ; 254
LD BC,#0x3000
CALL LOAD
LD HL,#TXT_READY
CALL PUT_TXT
LD HL,#TXT_DOME_LOADER
CALL PUT_TXT
LD HL,#LOADER
LD DE,#0x8000
LD A,#0 ; 255=+CLOSE
LD BC,#0x3000
CALL LOAD
LD HL,#TXT_READY
CALL PUT_TXT
ld e,#"0"
ld c,#0x02
call DOS
ld e,#0x0A
ld c,#0x02
call DOS
ld e,#0x0D
ld c,#0x02
call DOS
LD DE,#0x8000
DUMP_LOOP:
LD A,(DE)
PUSH DE
CALL PUTHEX
POP DE
INC DE
LD A,D
CP #0x81
JR NZ,DUMP_LOOP
DI ; VEILIGHEID
JP 0x8000
DOME_LIB: .str "DOME 000"
BIOS: .str "BIOS DAT"
LOADER: .str "LOADER DAT"
WAVEDRV: .str "WAVEDRV COM"
PUTHEX:
PUSH AF
RRCA
RRCA
RRCA
RRCA
CALL HEXSUB
POP AF
HEXSUB:
AND #0x0F
ADD A,#'0'
CP #'9'+1
JR C,HEXS1
ADD A,#'A'-10-'0'
HEXS1:
LD E,A
LD C,#2
CALL DOS
RET
CHK_DISK:
LD A,#0 ;CURRENT
LD C,#0x1B
CALL DOS
RET
CHK_MUS:
LD HL,#TXT_DOME_MUS
CALL PUT_TXT
CALL CHK_OPL4
LD HL,#TXT_READY
JP NZ,PUT_TXT
;CALL CHK_MUSIC
LD HL,#TXT_READY
JP PUT_TXT
CHK_OPL4:
LD A,#5
OUT (0xC6),A ; reg 5 ( FM)
PUSH BC
POP BC
LD A,#3
OUT (0xC5),A ; SET OPL4 REGISTER SET
PUSH BC
POP BC
LD A,#2
OUT (0x7E),A ; REG 2 (WAVE)
PUSH BC
POP BC
IN A,(0x7F) ;
CPL
OR A
RET Z ; GEEN OPL4 DUS OOK GEEN DRV
XOR A ; get mapper variable table
LD D,#4
LD E,#1
CALL 0xFFCA
LD A,C ; XOR A ???
LD BC,#2
ADD HL,BC
LD A,(HL)
CP #6 ; MUSIC NEED 4 SEGMENTS !!!!!!!!!!!!!!!!!!!
JP NC,CHK_OPL4_CONT ; MEER DAN 6
CALL CHECK_IF_INST
RET NZ ; GEEN DRV
LD HL,#WAVEDRV
CALL RELEASE_DRV
CHK_OPL4_EXIT:
LD A,#1
OR A ; NZ ANDERS MUSIC OOK
RET
CHK_OPL4_CONT:
LD A,(0x0080)
BIT 3,A
LD HL,#WAVEDRV
JR NZ,LOAD_DRV ; GEWWON NOG EEN KEER LADEN
CALL CHECK_IF_INST
JR Z,CHK_OPL4_EXIT
LD HL,#WAVEDRV
LOAD_DRV:
LD IY,#0x0080
LD A,(IY)
PUSH AF
LD (IY),#7
LD (IY),#" "
LD (IY),#"/"
LD (IY),#"I"
LD (IY),#">"
LD (IY),#"N"
LD (IY),#"U"
LD (IY),#"L"
LD DE,#0x0100
LD BC,#0x1000
LD A,#0
CALL LOAD
CALL 0x0100 ; WAVE DRV
POP AF
LD (0x0080),A
RET
RELEASE_DRV:
LD IY,#0x0080
LD A,(IY)
PUSH AF
LD (IY),#7
LD (IY),#" "
LD (IY),#"/"
LD (IY),#"R"
LD (IY),#">"
LD (IY),#"N"
LD (IY),#"U"
LD (IY),#"L"
LD DE,#0x0100
LD BC,#0x1000
LD A,#0
CALL LOAD
CALL 0x0100 ; WAVE DRV
POP AF
LD (0x0080),A
RET
; Check if replayer is installed
; output: if nz=0 not installed
; if z=1 installed
CHECK_IF_INST:
LD HL,#ID_FB04
LD DE,#0xFB04+21
LD B,#5
CHECK_IF_INST_LP:
LD A,(DE)
CP (HL)
RET NZ
INC HL
INC DE
DJNZ CHECK_IF_INST_LP
RET
ID_FB04:.str "MBTSR" ; If this is on address FB04h+21
;=====
GET_COM:
LD IY,#0x0080
LD HL,#0x0081
LD B,(IY)
LD (IY),#0
GET_COM_LP:
LD A,(HL)
INC HL
CP #"?"
JR NZ,GET_COM_CONT
SET 0,(IY) ; ACTIVATE HELP HIGHEST PIRIOTIJD
GET_COM_CONT:
PUSH BC
PUSH HL ; DOOR INC HL GA DOOR NAAR NEXT CMD
CP #"/"
CALL Z,GET_COM_STR
POP HL
POP BC
DJNZ GET_COM_LP
RET
;=====
GET_COM_STR:
LD DE,#GET_COM_TAB
GET_COM_STR_LP:
LD A,(HL)
LD C,A
LD A,(DE)
OR A
JR Z,GET_COM_BIT ; NEXT COM
CP #255 ; GEEN COMMANDO FOUND
RET Z
CP C
JR Z,GET_COM_STR_CONT ; A
ADD #32
CP C
JR Z,GET_COM_STR_CONT ; a
GET_COM_STR_NOT_LP:
LD A,(DE)
INC DE
OR A
JR NZ,GET_COM_STR_NOT_LP ; ZOEK TOT VOLGEND COM
INC DE
POP BC ; CALL STACK
POP HL ; ; org ADR OF CMD
PUSH HL
PUSH BC
JR GET_COM_STR_LP
GET_COM_STR_CONT:
INC HL
INC DE
JR GET_COM_STR_LP
;----
GET_COM_BIT:
INC DE
LD A,(DE)
DEC A
JR Z,COM_HELP
DEC A
JR Z,COM_DOS2
DEC A
JR Z,COM_FMPAC
DEC A
JR Z,COM_NO_SCSI
DEC A
JR Z,COM_MOUSE
DEC A
JR Z,COM_NO_TXT
RET
COM_HELP:
SET 1,(IY)
RET
COM_DOS2:
SET 2,(IY)
RET
COM_FMPAC:
SET 3,(IY)
RET
COM_NO_SCSI:
SET 4,(IY)
RET
COM_MOUSE:
SET 5,(IY)
LD A,(HL)
CP #"1"
RET Z
SET 6,(IY)
RET
COM_NO_TXT:
SET 7,(IY)
RET
GET_COM_TAB:
.str "HELP"
.db 0,1 ; /HELP = COM.. 0=LAST
.str "TEST"
.db 0,2
.str "FMPAC"
.db 0,3
.str "NO_SCSI"
.db 0,4
.str "MOUSE"
.db 0,5
.str "NO_TXT"
.db 0,6,255
PRT_HELP:
LD HL,#TXT_HELP
JP PUT_TXT
PUT_TXT:
LD A,(HL)
CP #0x1D
RET Z
LD E,A
LD C,#2
PUSH HL
CALL DOS
POP HL
INC HL
JR PUT_TXT
; IF A=NOT 254 OR A=NOT 255 THEN
;
; HL= FILE NAME (LOAD_BIN)
; DE= DMA-ADR
; A= HEADER TRACH
; BC= LENGTE
; ELSE
; HL= FILE NAME (LOAD_LIB)
; DE= DMA-ADR
;
; IF A=255 THEN CLOSE_LIB
; END
LOAD:
CP #254 ; CLOSE LIB ON EXIT
JR C,LOAD_BIN ; KLEINER DAN
EX AF,AF
PUSH DE ; ADR
CALL SEARCH_FILE ; if found lengte in HL
POP DE ; ADR
PUSH HL ; LENGT
CALL SETDMA ; DE is adres
POP HL
CALL READ
EX AF,AF
CP #255
RET NZ
JP CLOSE
;---------
LOAD_BIN:
PUSH BC
PUSH AF
PUSH DE
CALL PUT_NAM_FCB
CALL OPEN
POP DE
CALL SETDMA
POP HL
LD L,H ; KAN ??
LD H,#0
CALL READ ; kan dit ??
POP HL
CALL READ ; op oude DMA adres ???
CALL CLOSE ; ja !! raar he ?!
RET
; Zoek file op in directory en stel record number in
; In: HL: adres te laden file-naam
; DE: adres directory
; Uit: HL: lengte file
; A: 0 indien gelukt, 255 indien mislukt
SEARCH_FILE:
LD DE,#DIRECTORY ; eerste2 bytes zijn aantal files
SEARCH_FILE0:
PUSH HL ; adres naam v.d. file
PUSH DE ; adres directory
CALL CMP_STR
OR A
JR Z,SEARCH_FILE1
POP DE
LD HL,#11 + 2 + 3
ADD HL,DE
EX DE,HL ; DE = positie in directory
POP HL
JR SEARCH_FILE0
SEARCH_FILE1: ; HL = adres in directory
EX DE,HL
LD E,(HL)
INC HL
LD D,(HL) ; laad lengte
INC HL
PUSH DE
LD DE,#FCB + 33
LD BC,#3
LDIR ; Record Number naar FCB
XOR A ; drive ??
LD (DE),A
POP HL ; lengte in HL
POP DE
POP DE
RET
CMP_STR:
LD B,#11
CMP_STR1:
LD A,(DE)
CP (HL)
RET NZ
INC HL
INC DE
DJNZ CMP_STR1
XOR A
RET
; Laad directory
; In: HL: Adres filename
; DE: Bestemmingsadres directory
INIT_LIB:
LD DE,#DIRECTORY
PUSH DE
PUSH DE
CALL PUT_NAM_FCB ; put HL in FCB
CALL OPEN
cp #0
jr z,INIT_LIB_OK
LD HL,#FILE_ERROR
LD B,#10
CALL PUT_TXT
INIT_LIB_OK:
POP DE
CALL SETDMA ; destination is DIRECTORY
LD HL,#2
CALL READ
POP HL ; In BC aantal files
LD C,(HL)
INC HL
LD B,(HL)
LD HL,#0
LD DE,#11 + 3 + 2 ; lengte entry = name
CALC_LENGTH:
ADD HL,DE
DEC BC
LD A,B
OR C
JR NZ,CALC_LENGTH
CALL READ ; lees directory struct
RET
;=========================================================================
;=========================================================================
;=================== SUBS ==============================================
;=========================================================================
;=========================================================================
PUT_NAM_FCB: ; ; In: HL = file name pointer
LD DE,#FCB+1
LD BC,#0x0B ; Out: A = drive name (0 = def., 1 =
LDIR ; Cng: HL,DE BC,AF
XOR A
LD (FCB),A ; (DRVNAM) must be valid
RET
SETDMA:
LD C,#D_SETDMA ; DE=ADR
JP DOS
OPEN:
LD DE,#FCB
LD C,#D_OPEN
CALL DOS
LD HL,#0x01
LD (FCB+14),HL ; Record length = 1 byte
DEC L
LD (FCB+33),HL
LD (FCB+35),HL ; Current record number = 0
RET
READ:
LD DE,#FCB
LD C,#D_READ ; HL=NR BYTES
JP DOS
CLOSE:
LD DE,#FCB
LD C,#D_CLOSE
JP DOS
FILE_ERROR: .str " NOT FOUND" ; 10 len
.db 0x0A,0x0D
FCB: .db 0
FILENAME: .str " "
BLOCK: .dw #00
RECORDLENGTH: .dw #00
FILELENGTH: .dw #00,#00
SYSTEMVAR: .dw #00,#00,#00,#00,#00,#00
.db 0
RECORDNR: .dw #00,#00
DIRECTORY:
.db 0 ; 7 BYTES PER FILE OF 11+3+2 suckS
; ; NAAM - LENGTE - REC.NUM
.area _DATA
View git blame Copy permalink