mirror of
https://github.com/Tolik-Trek/Spectrum.EXE.git
synced 2026-06-15 09:01:38 +03:00
New vROM support, added set CONFIG_DE, refactoring
This commit is contained in:
Anatoliy Belyanskiy
parent
4e38b3e1ec
commit
29b442dbe6
432
spectrum.asm
432
spectrum.asm
@ -1,28 +1,33 @@
|
||||
/*
|
||||
|
||||
.----------------. .----------------. .----------------. .----------------. .----------------. .----------------. .----------------. .----------------.
|
||||
| .--------------. || .--------------. || .--------------. || .--------------. || .--------------. || .--------------. || .--------------. || .--------------. |
|
||||
| | _______ | || | ______ | || | _________ | || | ______ | || | _________ | || | _______ | || | _____ _____ | || | ____ ____ | |
|
||||
| | / ___ | | || | |_ __ \ | || | |_ ___ | | || | .' ___ | | || | | _ _ | | || | |_ __ \ | || ||_ _||_ _|| || ||_ \ / _|| |
|
||||
| | | (__ \_| | || | | |__) | | || | | |_ \_| | || | / .' \_| | || | |_/ | | \_| | || | | |__) | | || | | | | | | || | | \/ | | |
|
||||
| | '.___`-. | || | | ___/ | || | | _| _ | || | | | | || | | | | || | | __ / | || | | ' ' | | || | | |\ /| | | |
|
||||
| | |`\____) | | || | _| |_ | || | _| |___/ | | || | \ `.___.'\ | || | _| |_ | || | _| | \ \_ | || | \ `--' / | || | _| |_\/_| |_ | |
|
||||
| | |_______.' | || | |_____| | || | |_________| | || | `._____.' | || | |_____| | || | |____| |___| | || | `.__.' | || ||_____||_____|| |
|
||||
| | | || | | || | | || | | || | | || | | || | | || | | |
|
||||
| '--------------' || '--------------' || '--------------' || '--------------' || '--------------' || '--------------' || '--------------' || '--------------' |
|
||||
'----------------' '----------------' '----------------' '----------------' '----------------' '----------------' '----------------' '----------------'
|
||||
;
|
||||
; .----------------. .----------------. .----------------. .----------------. .----------------. .----------------. .----------------. .----------------.
|
||||
; | .--------------. || .--------------. || .--------------. || .--------------. || .--------------. || .--------------. || .--------------. || .--------------. |
|
||||
; | | _______ | || | ______ | || | _________ | || | ______ | || | _________ | || | _______ | || | _____ _____ | || | ____ ____ | |
|
||||
; | | / ___ | | || | |_ __ \ | || | |_ ___ | | || | .' ___ | | || | | _ _ | | || | |_ __ \ | || ||_ _||_ _|| || ||_ \ / _|| |
|
||||
; | | | (__ \_| | || | | |__) | | || | | |_ \_| | || | / .' \_| | || | |_/ | | \_| | || | | |__) | | || | | | | | | || | | \/ | | |
|
||||
; | | '.___`-. | || | | ___/ | || | | _| _ | || | | | | || | | | | || | | __ / | || | | ' ' | | || | | |\ /| | | |
|
||||
; | | |`\____) | | || | _| |_ | || | _| |___/ | | || | \ `.___.'\ | || | _| |_ | || | _| | \ \_ | || | \ `--' / | || | _| |_\/_| |_ | |
|
||||
; | | |_______.' | || | |_____| | || | |_________| | || | `._____.' | || | |_____| | || | |____| |___| | || | `.__.' | || ||_____||_____|| |
|
||||
; | | | || | | || | | || | | || | | || | | || | | || | | |
|
||||
; | '--------------' || '--------------' || '--------------' || '--------------' || '--------------' || '--------------' || '--------------' || '--------------' |
|
||||
; '----------------' '----------------' '----------------' '----------------' '----------------' '----------------' '----------------' '----------------'
|
||||
;
|
||||
|
||||
*/
|
||||
/*
|
||||
To do:
|
||||
SYS:
|
||||
[ ] - § ¤ ¢ âì CONFIG_DE ¯¥à¥¤ § ¯ã᪮¬ ᯥªâà㬠¨ ¢ ¯¥à¥å¢ â稪¥ à¥á¥â
|
||||
images:
|
||||
SYS
|
||||
[+] - § ¤ ¢ âì CONFIG_DE ¯¥à¥¤ § ¯ã᪮¬ ᯥªâà㬠¨ ¢ ¯¥à¥å¢ â稪¥ à¥á¥â
|
||||
[+] - ¯®¤¤¥à¦ª ®¢ëå ®¡à §®¢ vROM
|
||||
[+] - ¤®¡ ¢«¥ ᮢ¬¥á⨬®áâì á ¤¥¬® ATARIN, ãᯮ«ì§ãî饥 ¥¯®«ãî ¤¥è¨äà æ¨î ¯®àâ AY
|
||||
[ ] - ¯à®¢¥àïâì ¬¥âªã ZX,¥á«¨ ¬ë ¥ £à㧨¬ 3 ®á®¢ëå vROM
|
||||
[ ] - ¢ ª®ä¨£¥ ¬®£ãâ ¡ëâì ¯à®¯ãé¥ë ¥ª®â®àë¥ vROM,®¨ ¥ § £à㦠îâáï
|
||||
;
|
||||
Images
|
||||
[+] - Load SCL image
|
||||
[ ] - Load TAP image
|
||||
[ ] - Load SNA file
|
||||
;
|
||||
features:
|
||||
Features
|
||||
[+] - …᫨ ¢ë¡à ® ret-zx,â® ¯à¨ ¦ ⨨ ¯à®¡¥« áà §ã ¯®á«¥ CAD ¢¥àñâ ¢ DSS
|
||||
[ ] - When image filename exist,then instead of SPECTRUM.CFG loads image_filename.cfg if exist too
|
||||
[ ] - ‚ë¤ ¢ âì á®®¡é¥¨ï ï§ëª¥ ãáâ ®¢«¥®¬ ¢ CMOS
|
||||
[ ] - Œ¥ïâì ᯥªâà㬮¢áªãî ¯ «¨âàã
|
||||
@ -39,9 +44,9 @@ To do:
|
||||
;
|
||||
; Defines section
|
||||
;***************************************
|
||||
ifndef DEBUG : define DEBUG 0 : endif
|
||||
ifndef EMULATOR 0 : define EMULATOR 0 : endif
|
||||
define EXE_HEADER 1
|
||||
IFNDEF DEBUG : DEFINE DEBUG 0 : ENDIF
|
||||
IFNDEF EMULATOR 0 : DEFINE EMULATOR 0 : ENDIF
|
||||
DEFINE EXE_HEADER 1
|
||||
; define NEED_LOADER 1
|
||||
; define NeedSafePort_Y 0
|
||||
;***************************************
|
||||
@ -50,23 +55,23 @@ To do:
|
||||
;
|
||||
; Included constants section
|
||||
;***************************************
|
||||
include 'Shared_Includes/constants/sp2000.inc'
|
||||
include 'Shared_Includes/constants/dss_equ.inc'
|
||||
include 'Shared_Includes/constants/BIOS_equ.inc'
|
||||
INCLUDE 'Shared_Includes/constants/sp2000.inc'
|
||||
INCLUDE 'Shared_Includes/constants/dss_equ.inc'
|
||||
INCLUDE 'Shared_Includes/constants/BIOS_equ.inc'
|
||||
;***************************************
|
||||
;
|
||||
|
||||
;
|
||||
; Included macroses section
|
||||
;***************************************
|
||||
include 'Shared_Includes/macroses/macros.z80'
|
||||
include 'Shared_Includes/macroses/accelerator.z80'
|
||||
INCLUDE 'Shared_Includes/macroses/macros.z80'
|
||||
INCLUDE 'Shared_Includes/macroses/accelerator.z80'
|
||||
;***************************************
|
||||
;
|
||||
|
||||
; Included LUA section
|
||||
;***************************************
|
||||
includelua <Shared_Includes/LUA/Functions.LUA>
|
||||
INCLUDELUA <Shared_Includes/LUA/Functions.LUA>
|
||||
;***************************************
|
||||
;
|
||||
|
||||
@ -111,7 +116,7 @@ OPTIONS_LINE EQU (CFG_FILE_LINES-1)*2
|
||||
; Code start section
|
||||
;[]-------------------------------------------------------------------[]
|
||||
IF EXE_HEADER
|
||||
include 'Shared_Includes/constants/EXE_Header.z80'
|
||||
INCLUDE 'Shared_Includes/constants/EXE_Header.z80'
|
||||
ORG org_addr
|
||||
ELSE
|
||||
ORG org_addr-CLP_Buffer
|
||||
@ -170,9 +175,7 @@ EXIT_ALL:
|
||||
|
||||
1: LD BC,Dss.Exit
|
||||
RST ToDSS
|
||||
|
||||
COMAND_LINE:
|
||||
LD HL,(LINE_X)
|
||||
COMAND_LINE: LD HL,(LINE_X)
|
||||
LD A,(HL)
|
||||
AND A
|
||||
JR Z,NO_FIL
|
||||
@ -195,8 +198,7 @@ NO_FIL: LD HL,CNF_FILE
|
||||
JR C,ERROR_FILE
|
||||
JP CONTINUE
|
||||
|
||||
FIND_FILES:
|
||||
PUSH HL
|
||||
FIND_FILES: PUSH HL
|
||||
|
||||
LD (X_FILE),HL
|
||||
LD DE,0
|
||||
@ -206,8 +208,7 @@ FIND_FILES:
|
||||
LD B,A
|
||||
JR NO_NEXT
|
||||
|
||||
FIND_T_LOOP:
|
||||
LD A,(HL)
|
||||
FIND_T_LOOP: LD A,(HL)
|
||||
INC HL
|
||||
CP "."
|
||||
CALL Z,POINT_F
|
||||
@ -220,12 +221,9 @@ FIND_T_LOOP:
|
||||
CP 13
|
||||
CALL Z,BLANK_X1
|
||||
JR Z,END_NO_IMAGE
|
||||
NO_NEXT: DJNZ FIND_T_LOOP
|
||||
|
||||
NO_NEXT:
|
||||
DJNZ FIND_T_LOOP
|
||||
|
||||
END_NO_IMAGE:
|
||||
POP HL
|
||||
END_NO_IMAGE: POP HL
|
||||
LD A,(CNF_NAME+1)
|
||||
AND A
|
||||
RET NZ
|
||||
@ -234,22 +232,17 @@ END_NO_IMAGE:
|
||||
LD DE,(X_FILE)
|
||||
JR Z,CNF_ALL
|
||||
LD DE,CNF_FILE
|
||||
CNF_ALL:
|
||||
LD (CNF_NAME),DE
|
||||
CNF_ALL: LD (CNF_NAME),DE
|
||||
RET
|
||||
|
||||
BLANK_X:
|
||||
LD (X_FILE),HL ; ©¤¥ ¯à®¡¥«, ¨¬ï ä ©« - ᮢ
|
||||
BLANK_X1:
|
||||
DEC HL
|
||||
BLANK_X: LD (X_FILE),HL ; ©¤¥ ¯à®¡¥«, ¨¬ï ä ©« - ᮢ
|
||||
BLANK_X1: DEC HL
|
||||
LD (HL),0
|
||||
INC HL
|
||||
RET
|
||||
|
||||
;------------------------------------[v]
|
||||
POINT_F:
|
||||
LD A,(HL)
|
||||
|
||||
POINT_F: LD A,(HL)
|
||||
CP 't'
|
||||
JR Z,.TRD
|
||||
CP 'T'
|
||||
@ -264,88 +257,60 @@ POINT_F:
|
||||
JR Z,.CNF
|
||||
CP 'Z'
|
||||
JR Z,.CNF
|
||||
.exit:
|
||||
DEC HL
|
||||
.exit: DEC HL
|
||||
LD A,(HL)
|
||||
INC HL
|
||||
RET
|
||||
|
||||
.SCL:
|
||||
ld de,IMAGE_FLAG
|
||||
ld a,1
|
||||
ld (de),a
|
||||
.TRD:
|
||||
LD DE,(X_FILE)
|
||||
.SCL: LD DE,IMAGE_FLAG
|
||||
LD A,1
|
||||
LD (DE),A
|
||||
.TRD: LD DE,(X_FILE)
|
||||
LD (IMAGE_NAME),DE
|
||||
JR .exit
|
||||
|
||||
.CNF:
|
||||
LD DE,(X_FILE)
|
||||
.CNF: LD DE,(X_FILE)
|
||||
LD (CNF_NAME),DE
|
||||
JR .exit
|
||||
;------------------------------------[^]
|
||||
|
||||
LINE_ZX: DB "ZX Spectrum PAGES",0
|
||||
LINE_ZX: DZ 'ZX Spectrum PAGES'
|
||||
LEN_LINE_ZX EQU $-LINE_ZX
|
||||
;*********************************************
|
||||
|
||||
MSG_EXIT1:
|
||||
db 13,10,"EXIT without run",13,10,0
|
||||
MSG_EXIT2:
|
||||
db 13,10,"‚ë室 ¡¥§ § ¯ã᪠"
|
||||
CR_LINE:
|
||||
db 13,10,0
|
||||
|
||||
START_MSG:
|
||||
db 13,10,'SPECTRUM launcher v',SP_VERSION,'.'
|
||||
db 13,10,'(c) Sprinter Team.'
|
||||
db 13,10,'Written by Ivan Mak.'
|
||||
db 13,10,'Modified by Anatoliy Belyanskiy.'
|
||||
db 13,10,BUILD_DATE,' - ', __TIME__, 13, 10, 0
|
||||
|
||||
MSG_EXIT1: DB 13,10,"EXIT without run",13,10,0
|
||||
MSG_EXIT2: DB 13,10,"‚ë室 ¡¥§ § ¯ã᪠"
|
||||
CR_LINE: DB 13,10,0
|
||||
START_MSG: DB 13,10,'SPECTRUM launcher v',SP_VERSION,'.'
|
||||
DB 13,10,'(c) Sprinter Team.'
|
||||
DB 13,10,'Written by Ivan Mak.'
|
||||
DB 13,10,'Modified by Anatoliy Belyanskiy.'
|
||||
DB 13,10,BUILD_DATE,' - ',__TIME__,13,10,0
|
||||
ERROR_FILE_MSG_X:
|
||||
db 13,10,"Error in file: ",0
|
||||
DB 13,10,"Error in file: ",0
|
||||
ERROR_FILE2_MSG_X:
|
||||
db 13,10,"Žè¨¡ª ¢ ä ©«¥: ",0
|
||||
ERROR_FILE_MSG:
|
||||
db 13,10,"Unable to work.",0
|
||||
DB 13,10,"Žè¨¡ª ¢ ä ©«¥: ",0
|
||||
ERROR_FILE_MSG: DB 13,10,"Unable to work.",0
|
||||
ERROR_FILE2_MSG:
|
||||
db 13,10,"<22> ¡®â ¥¢®§¬®¦ .",0
|
||||
|
||||
ERROR_CNF:
|
||||
db 13,10,"Unexpected CNF file end.",0
|
||||
ERROR_CNF2:
|
||||
db 13,10,"<22>¥®¦¨¤ ë© ª®¥æ CNF ä ©« .",0
|
||||
|
||||
NO_MEM_MSG:
|
||||
db 13,10,"The spesial pages are already used."
|
||||
db 13,10,"Clear memory and restart spectrum.exe again.",0
|
||||
NO_MEM_MSG2:
|
||||
db 13,10,"‘¯¥æ¨ «ìë¥ áâà ¨æë 㦥 § ïâë."
|
||||
db 13,10,"Žç¨áâ¨â¥ ¯ ¬ïâì ¨ ¯¥à¥§ ¯ãáâ¨â¥ spectrum.exe ᮢ .",0
|
||||
|
||||
MSG_NORMAL:
|
||||
db 13,10,"All files has been read successfully.",13,10
|
||||
db "MODE: ",0
|
||||
MSG_NORMAL2:
|
||||
db 13,10,"‚á¥ ä ©«ë áç¨â ë ®à¬ «ì®.",13,10
|
||||
db "Š®ä¨£ãà æ¨ï: ",0
|
||||
MSG_NO_MEM:
|
||||
db 13,10,"No memory space for image or",0
|
||||
MSG_NO_MEM2:
|
||||
db 13,10,"<22>¥ å¢ â ¥â ¯ ¬ï⨠¤«ï ®¡à § ¨«¨",0
|
||||
MSG_LOAD_IMAGE:
|
||||
db 13,10,"Image loading: ",0
|
||||
DB 13,10,"<22> ¡®â ¥¢®§¬®¦ .",0
|
||||
ERROR_CNF: DB 13,10,"Unexpected CNF file end.",0
|
||||
ERROR_CNF2: DB 13,10,"<22>¥®¦¨¤ ë© ª®¥æ CNF ä ©« .",0
|
||||
NO_MEM_MSG: DB 13,10,"The spesial pages are already used."
|
||||
DB 13,10,"Clear memory and restart spectrum.exe again.",0
|
||||
NO_MEM_MSG2: DB 13,10,"‘¯¥æ¨ «ìë¥ áâà ¨æë 㦥 § ïâë."
|
||||
DB 13,10,"Žç¨áâ¨â¥ ¯ ¬ïâì ¨ ¯¥à¥§ ¯ãáâ¨â¥ spectrum.exe ᮢ .",0
|
||||
MSG_NORMAL: DB 13,10,"All files has been read successfully.",13,10
|
||||
DB "MODE: ",0
|
||||
MSG_NORMAL2: DB 13,10,"‚á¥ ä ©«ë áç¨â ë ®à¬ «ì®.",13,10
|
||||
DB "Š®ä¨£ãà æ¨ï: ",0
|
||||
MSG_NO_MEM: DB 13,10,"No memory space for image or",0
|
||||
MSG_NO_MEM2: DB 13,10,"<22>¥ å¢ â ¥â ¯ ¬ï⨠¤«ï ®¡à § ¨«¨",0
|
||||
MSG_LOAD_IMAGE: DB 13,10,"Image loading: ",0
|
||||
MSG_LOAD_IMAGE2:
|
||||
db 13,10,"‡ £à㧪 ®¡à § : ",0
|
||||
|
||||
MSG_ZX_EXIT:
|
||||
db 13,10,"EXIT from Spectrum configuration",0
|
||||
MSG_ZX_EXIT2:
|
||||
db 13,10,"EXIT from ZX mode",0
|
||||
|
||||
PROGRES_IND:
|
||||
db '°',0 ; 176
|
||||
DB 13,10,"‡ £à㧪 ®¡à § : ",0
|
||||
MSG_ZX_EXIT: DB 13,10,"EXIT from Spectrum configuration",0
|
||||
MSG_ZX_EXIT2: DB 13,10,"EXIT from ZX mode",0
|
||||
PROGRES_IND: DB '°',0 ; 176
|
||||
|
||||
MEM_BLK: BYTE 0
|
||||
LINE_X: WORD 0
|
||||
@ -359,8 +324,7 @@ LEN_CNF: WORD 0
|
||||
A_LINES: BLOCK CFG_FILE_LINES*2,0
|
||||
;*********************************************
|
||||
|
||||
CONTINUE: ; CNF ä ©« ¯à®ç¨â , DE - ¤«¨ CNF
|
||||
LD (LEN_CNF),DE
|
||||
CONTINUE: LD (LEN_CNF),DE ; CNF ä ©« ¯à®ç¨â , DE - ¤«¨ CNF
|
||||
|
||||
LD HL,#C000
|
||||
LD DE,A_LINES
|
||||
@ -383,7 +347,6 @@ LOOP_L: LD A,(HL)
|
||||
CP ';'
|
||||
JR Z,N_LINE
|
||||
DJNZ LOOP_L
|
||||
|
||||
N_LINE: LD (HL),0
|
||||
INC HL
|
||||
LD A,(HL)
|
||||
@ -443,9 +406,7 @@ N_LINE: LD (HL),0
|
||||
LD A,Spec_Page
|
||||
OUT (SLOT3),A
|
||||
LD HL,(A_LINES+OPTIONS_LINE) ; áâப ¯ à ¬¥â஢
|
||||
|
||||
LOOP_PAR1:
|
||||
LD A,(HL)
|
||||
LOOP_PAR1: LD A,(HL)
|
||||
CP "/"
|
||||
JR Z,PARAM_TEST
|
||||
CP 0
|
||||
@ -457,25 +418,21 @@ LOOP_PAR1:
|
||||
INC HL
|
||||
JR LOOP_PAR1
|
||||
|
||||
PARAM_TEST:
|
||||
INC HL
|
||||
PARAM_TEST: INC HL
|
||||
PUSH HL
|
||||
|
||||
LD IX,PARAMS
|
||||
NEXT_PAR:
|
||||
LD E,(IX)
|
||||
NEXT_PAR: LD E,(IX)
|
||||
LD D,(IX+1)
|
||||
|
||||
LOOP_PAR2:
|
||||
LD A,(DE)
|
||||
LOOP_PAR2: LD A,(DE)
|
||||
CP (HL)
|
||||
JR NZ,PARAM_E1
|
||||
INC HL
|
||||
INC DE
|
||||
JR LOOP_PAR2
|
||||
|
||||
PARAM_E1:
|
||||
CP 255
|
||||
PARAM_E1: CP 255
|
||||
JR NZ,NO_PAR
|
||||
LD A,(HL)
|
||||
CP 20h
|
||||
@ -484,8 +441,7 @@ PARAM_E1:
|
||||
JR Z,PARAM_E2
|
||||
CP 13
|
||||
JR Z,PARAM_E2
|
||||
NO_PAR:
|
||||
POP HL
|
||||
NO_PAR: POP HL
|
||||
PUSH HL
|
||||
INC IX
|
||||
INC IX
|
||||
@ -497,8 +453,7 @@ NO_PAR:
|
||||
POP HL
|
||||
JR LOOP_PAR1
|
||||
|
||||
PARAM_E2:
|
||||
EX (SP),HL ; ®¢®¥ HL - á®åà ï¥âáï!
|
||||
PARAM_E2: EX (SP),HL ; ®¢®¥ HL - á®åà ï¥âáï!
|
||||
|
||||
LD A,(IX+3)
|
||||
LD (IX+2),A ; parameter alternate!
|
||||
@ -514,8 +469,7 @@ PARAM_E2:
|
||||
|
||||
;************************************
|
||||
|
||||
PARAM_END:
|
||||
LD A,#E2 ; ROM-ID - BASIC 128
|
||||
PARAM_END: LD A,#E2 ; ROM-ID - BASIC 128
|
||||
LD B,#42 ; page
|
||||
CALL SET_ROM
|
||||
|
||||
@ -553,8 +507,7 @@ PARAM_END:
|
||||
OUT (C),B
|
||||
JP C,ERROR_FILE
|
||||
|
||||
SKIP_IMAGE:
|
||||
LD A,(No_run_+2)
|
||||
SKIP_IMAGE: LD A,(No_run_+2)
|
||||
AND A
|
||||
LD HL,MSG_EXIT1
|
||||
JP Z,EXIT_ALL
|
||||
@ -564,15 +517,12 @@ SKIP_IMAGE:
|
||||
;LD HL,MSG_NORMAL
|
||||
;JP EXIT_ALL
|
||||
|
||||
;***************************************************
|
||||
|
||||
;********************************************
|
||||
;JP 0
|
||||
|
||||
;********************************************
|
||||
|
||||
; out B - old ROM-page
|
||||
SET_ROM:
|
||||
DI
|
||||
SET_ROM: DI
|
||||
;PUSH BC
|
||||
;PUSH AF
|
||||
|
||||
@ -596,7 +546,7 @@ SET_ROM:
|
||||
;OUT (C),A
|
||||
;LD A,CNF_0
|
||||
;OUT (SYS_PORT.OFF),A
|
||||
;
|
||||
|
||||
;POP AF
|
||||
;POP BC
|
||||
;RET
|
||||
@ -638,10 +588,9 @@ SET_ROM:
|
||||
OUT (SLOT3),A
|
||||
|
||||
RET
|
||||
|
||||
;********************************************
|
||||
READ_IMAGE:
|
||||
LD DE,ONE_FILE
|
||||
|
||||
READ_IMAGE: LD DE,ONE_FILE
|
||||
LD BC,FULL_FILE_NAME_LENGTH
|
||||
LDIR
|
||||
LD HL,ONE_FILE
|
||||
@ -653,16 +602,15 @@ READ_IMAGE:
|
||||
|
||||
LD (IMAGE_HANDLER),A
|
||||
|
||||
ld a,(IMAGE_FLAG)
|
||||
and a
|
||||
jr z,.Load_TRD
|
||||
LD A,(IMAGE_FLAG)
|
||||
AND A
|
||||
JR Z,.Load_TRD
|
||||
|
||||
CP 1 ; check if SCL
|
||||
jp z,Load_SCL
|
||||
JP Z,Load_SCL
|
||||
;jp Error_Flag ;!!!!!!!!!!!!!!!!
|
||||
|
||||
.Load_TRD:
|
||||
LD A,(IMAGE_HANDLER)
|
||||
.Load_TRD: LD A,(IMAGE_HANDLER)
|
||||
LD B,Dss.Move_FP.FrEnd
|
||||
LD HL,0
|
||||
LD IX,0
|
||||
@ -673,13 +621,12 @@ READ_IMAGE:
|
||||
PUSH IX
|
||||
POP DE
|
||||
|
||||
call Get_RAM_Disk_E
|
||||
ret c
|
||||
jp Load_IMAGE_File
|
||||
CALL Get_RAM_Disk_E
|
||||
RET C
|
||||
JP Load_IMAGE_File
|
||||
|
||||
Get_RAM_Disk_E:
|
||||
; hl:de - à §¬¥à ä ©« ¢ ¡ ©â å
|
||||
LD A,D
|
||||
Get_RAM_Disk_E: LD A,D
|
||||
ADD A,A
|
||||
ADC HL,HL
|
||||
ADD A,A
|
||||
@ -690,8 +637,8 @@ Get_RAM_Disk_E:
|
||||
OR E
|
||||
JR Z,.skip_inc
|
||||
INC HL
|
||||
.skip_inc: ; HL - ¤«¨ ä ©« ¢ áâà ¨æ å
|
||||
LD A,H
|
||||
;HL - ¤«¨ ä ©« ¢ áâà ¨æ å
|
||||
.skip_inc: LD A,H
|
||||
AND A
|
||||
JR NZ,ERROR_NO_MEM
|
||||
LD A,L
|
||||
@ -701,8 +648,7 @@ Get_RAM_Disk_E:
|
||||
;***************************************
|
||||
;!FIXIT ¡¥§®¯ á® § ¨¬ âì à ¬¤¨áª¨, ç⮡ ¯®«ì§®¢ â¥«ì ¥ áâà ¤ «
|
||||
; ®á¢®¡®¤¨âì ram-disk e:
|
||||
.free_disk:
|
||||
DI
|
||||
.free_disk: DI
|
||||
XOR A ; RAM-Drive E:
|
||||
LD C,BIOS.FreeMemRMD
|
||||
RST ToBIOS ; ®á¢®¡®¤¨âì e:
|
||||
@ -731,8 +677,7 @@ Load_IMAGE_File:
|
||||
|
||||
LD A,(MEM_BLK)
|
||||
|
||||
.load_loop:
|
||||
PUSH AF
|
||||
.load_loop: PUSH AF
|
||||
OUT (SLOT3),A
|
||||
|
||||
LD A,(IMAGE_HANDLER)
|
||||
@ -748,8 +693,7 @@ Load_IMAGE_File:
|
||||
|
||||
DI
|
||||
POP AF
|
||||
.scl_read_next:
|
||||
LD C,BIOS.GetMemPageNext
|
||||
.scl_read_next: LD C,BIOS.GetMemPageNext
|
||||
RST ToBIOS
|
||||
|
||||
CP #FF
|
||||
@ -764,7 +708,7 @@ Load_IMAGE_File:
|
||||
RST ToDSS
|
||||
|
||||
RET C
|
||||
; ret
|
||||
;RET
|
||||
|
||||
Set_RAM_Dsk_EtoA:
|
||||
DI
|
||||
@ -774,31 +718,27 @@ Set_RAM_Dsk_EtoA:
|
||||
AND A
|
||||
RET
|
||||
|
||||
ERROR_IN_READ:
|
||||
POP AF
|
||||
ERROR_IN_READ: POP AF
|
||||
JR ERROR_IMAGE_X
|
||||
|
||||
ERROR_NO_MEM:
|
||||
LD HL,MSG_NO_MEM
|
||||
ERROR_NO_MEM: LD HL,MSG_NO_MEM
|
||||
LD C,Dss.PChars
|
||||
RST ToDSS
|
||||
ERROR_IMAGE_X:
|
||||
LD A,(IMAGE_HANDLER)
|
||||
ERROR_IMAGE_X: LD A,(IMAGE_HANDLER)
|
||||
LD C,Dss.Close ; § ªàëâì ä ©«
|
||||
RST ToDSS
|
||||
SCF
|
||||
RET
|
||||
|
||||
SAV_PG3X: db 0
|
||||
SAV_PG3X: DB 0
|
||||
;********************************************
|
||||
READ_FILE_1:
|
||||
LD DE,ONE_FILE
|
||||
READ_FILE_1: LD DE,ONE_FILE
|
||||
LD BC,FULL_FILE_NAME_LENGTH
|
||||
LDIR
|
||||
LD HL,ONE_FILE
|
||||
OUT (SLOT3),A
|
||||
|
||||
READ_FILE:
|
||||
LD A,Dss.Open.R
|
||||
READ_FILE: LD A,Dss.Open.R
|
||||
LD C,Dss.Open
|
||||
RST ToDSS
|
||||
RET C ; ®è¨¡ª , ¥á«¨ ¥â ä ©«
|
||||
@ -821,13 +761,12 @@ READ_FILE:
|
||||
POP DE ; ¤«¨ áç¨â ëå ¤ ëå
|
||||
RET ; ®è¨¡ª ¯à¨ § ªàë⨨ ¨«¨ Ok
|
||||
|
||||
FILE_HANDLE: db 0
|
||||
FILE_HANDLE: DB 0
|
||||
|
||||
;********************************************
|
||||
;********************************************
|
||||
|
||||
EXIT_TO_DSS:
|
||||
DI
|
||||
;********************************************
|
||||
EXIT_TO_DSS: DI
|
||||
LD SP,#BFF0
|
||||
LD A,CNF_PORT.CNF_0
|
||||
OUT (SYS_PORT.OFF),A
|
||||
@ -874,7 +813,7 @@ NO_RET_FN:
|
||||
IN A,(SLOT0)
|
||||
LD (#FFF0),A ; DOS-PAGE
|
||||
IN A,(SLOT1)
|
||||
LD (#FFF1),A ;
|
||||
LD (#FFF1),A
|
||||
IN A,(SLOT2) ; á®åà ¨âì áâà ¨æã
|
||||
LD (#FFF2),A ; ¯à®£à ¬¬ë ¤«ï ¢®§¢à â
|
||||
IN A,(SLOT3)
|
||||
@ -882,48 +821,44 @@ NO_RET_FN:
|
||||
|
||||
;********************************************
|
||||
|
||||
RESET_TO_ZX:
|
||||
DI
|
||||
RESET_TO_ZX: DI
|
||||
LD SP,#BFF0
|
||||
|
||||
ld a,high ZXKeys.Line_7
|
||||
in a,(ZXKeys)
|
||||
and #1F
|
||||
cp #1E
|
||||
jr z,EXIT_TO_DSS
|
||||
LD A,high ZXKeys.Line_7
|
||||
IN A,(ZXKeys)
|
||||
AND #1F
|
||||
CP #1E
|
||||
JR Z,EXIT_TO_DSS
|
||||
|
||||
LD A,CNF_PORT.CNF_0
|
||||
OUT (SYS_PORT.ON),A ; System-page on & CNF = 0
|
||||
;LD A,CNF_PORT.CNF_3
|
||||
;OUT (SYS_PORT.ON),A ; System-page on & CNF = 0
|
||||
|
||||
;-------------[TEST ATARIN]-------------
|
||||
; #c0fd - +#05ED
|
||||
; ä¨ªá ¥¯®«®© ¤¥è¨äà 樨 ¯®àâ #FFFD (¯¨èãâ ¢ #C0FD)
|
||||
; [x] ¤®¡ ¢«¥ ¯®àâ #C0FD ¢® ¢á¥ ª àâë ¯®à⮢
|
||||
|
||||
ld bc,SLOT3
|
||||
in b,(c)
|
||||
|
||||
ld a,DCP_PAGE
|
||||
out (c),a
|
||||
; ¤®¡ ¢«¥ ¯®àâ #C0FD ¢® ¢á¥ ª àâë ¯®à⮢
|
||||
LD BC,SLOT3
|
||||
IN B,(C)
|
||||
LD A,DCP_PAGE
|
||||
OUT (C),A
|
||||
|
||||
; !HARDCODE ¤ «¥¥ ¢áñ ᪮àïª ¨ § å प®¦¥®
|
||||
; !TODO ¯¥à¥¤¥« âì ¯®¤ ®¢ãî äãªæ¨î ¤¥è¨äà 樨
|
||||
ld a,#90 ; AY-8910-port (FFFD)
|
||||
ld hl,#C000 + #05ED ; CNF 0
|
||||
ld (hl),a
|
||||
LD A,#90 ; AY-8910-port (FFFD)
|
||||
LD HL,#C000+#05ED ; CNF 0
|
||||
LD (HL),A
|
||||
|
||||
ld h,#c0 + #15 ; CNF 1
|
||||
ld (hl),a
|
||||
LD H,#C0+#15 ; CNF 1
|
||||
LD (HL),A
|
||||
|
||||
ld h,#c0 + #25 ; CNF 2
|
||||
ld (hl),a
|
||||
LD H,#C0+#25 ; CNF 2
|
||||
LD (HL),A
|
||||
|
||||
ld h,#c0 + #35 ; CNF 3
|
||||
ld (hl),a
|
||||
LD H,#C0+#35 ; CNF 3
|
||||
LD (HL),A
|
||||
|
||||
out (c),b
|
||||
OUT (C),B
|
||||
;---------------------------------------
|
||||
|
||||
LD A,(Ret_zx_+2)
|
||||
LD B,A
|
||||
LD A,(Ret_fn_+2)
|
||||
@ -976,8 +911,7 @@ ORIG1: LD BC,Port_All_Mode
|
||||
AND A ; 3
|
||||
JR NZ,Original
|
||||
LD A,(Int_sc_+2) ; 1/2
|
||||
Original:
|
||||
LD C,BIOS.FN_SYNC ; -> INT for Pentagon or Scorpion
|
||||
Original: LD C,BIOS.FN_SYNC ; -> INT for Pentagon or Scorpion
|
||||
RST ToBIOS_18
|
||||
|
||||
LD HL,#4000 ; clear ZX-Spectrum screen
|
||||
@ -1014,8 +948,7 @@ Original:
|
||||
|
||||
;!TEST
|
||||
LD A,8
|
||||
LOOP_P1:
|
||||
DEC A
|
||||
LOOP_P1: DEC A
|
||||
OUT (C),A ; #7FFD
|
||||
OUT (SLOT3),A
|
||||
JR NZ,LOOP_P1
|
||||
@ -1032,8 +965,7 @@ LOOP_P1:
|
||||
OUT (C),A ; #1FFD
|
||||
LD B,#7F
|
||||
LD A,8
|
||||
LOOP_P2:
|
||||
OUT (C),A ; #7FFD
|
||||
LOOP_P2: OUT (C),A ; #7FFD
|
||||
OUT (SLOT3),A
|
||||
INC A
|
||||
CP 16
|
||||
@ -1049,7 +981,7 @@ LOOP_P2:
|
||||
|
||||
LD HL,PROG_STARTS
|
||||
LD BC,PROG_STARTS.Length
|
||||
LD DE,#FF00 ;!!!!!!!!!!
|
||||
LD DE,#FF00 ;!HARDCODE
|
||||
LDIR
|
||||
|
||||
LD A,(Line312_+2)
|
||||
@ -1073,12 +1005,26 @@ LOOP_P2:
|
||||
LD E,A
|
||||
LD A,(To_trd_+2)
|
||||
LD D,A
|
||||
|
||||
;!TEST
|
||||
IN A,(SLOT3)
|
||||
LD C,A
|
||||
LD A,SYS_PAGE
|
||||
OUT (SLOT3),A
|
||||
|
||||
LD A,E
|
||||
LD (SYS_PAGE.CONFIG_DE),A
|
||||
XOR A
|
||||
LD (SYS_PAGE.CONFIG_DE+1),A
|
||||
|
||||
LD A,C
|
||||
OUT (SLOT3),A
|
||||
;
|
||||
JP #FF00 ;!!!!!!!!!!
|
||||
;
|
||||
JP #FF00 ;!HARDCODE
|
||||
|
||||
;***************************************
|
||||
PROG_STARTS:
|
||||
LD A,2
|
||||
PROG_STARTS: LD A,2
|
||||
OUT (SLOT2),A
|
||||
LD A,E
|
||||
OUT (SYS_PORT.OFF),A
|
||||
@ -1098,38 +1044,38 @@ PROG_STARTS:
|
||||
;
|
||||
; …᫨ ¯ à ¬¥âà § ¤ , â® ¢ë¡¨à ¥âáï § 票¥ Y
|
||||
PARAMS:; Y / N ; âãâ § ç¥¨ï ¤«ï ª«î祩 § ¯¨áë¢ îâáï ª ª 16 ¡¨â § 票¥, § ç¨â ®¡à âë© ¯®à冷ª ¡ ©â®¢
|
||||
Turbo__: dw Turbo_, #0302 ; ¢ª«îç¨âì TURBO
|
||||
Line312_ dw Lines312, #6141 ; ¢ª«îç¨âì 312 áâப
|
||||
Sprint_: dw Sprint, #040C ; ¢ª«îç¨âì Sprinter
|
||||
P_7FFD_: dw P_7FFD, #0030 ; ¢ª«îç¨âì 7FFD
|
||||
P_1FFD_: dw P_1FFD, #0040 ; ¢ª«îç¨âì 1FFD
|
||||
Mem512_: dw Mem512, #8000 ; ¢ª«îç¨âì 512k
|
||||
To_trd_: dw To_trd, #0100 ; ¢o©â¨ ¢ TR-DOS
|
||||
Int_sc_: dw Int_sc, #0102 ; ¢ª«îç¨âì INT "¯®-᪮௨®®¢áª¨"
|
||||
No_run_: dw no_run, #00FF ; ¥ § ¯ã᪠âì
|
||||
Int_or_: dw Int_or, #0300 ; ¢ª«îç¨âì INT "Original"
|
||||
Ret_zx_: dw Ret_zx, #4100 ; ¢ª«îç¨âì ¢®§¢à â ¢ ZX áâà ¨æ (#41) ¤®«¦ ᮢ¯ ¤ âì á ret_fn_
|
||||
Ret_fn_: dw Ret_fn, #4100 ; ¢ª«îç¨âì ¢®§¢à â ¢ FN áâà ¨æ (#41) ¤®«¦ ᮢ¯ ¤ âì á ret_zx_
|
||||
dw 0,0 ; end marker
|
||||
Turbo__: DW Turbo_, #0302 ; ¢ª«îç¨âì TURBO
|
||||
Line312_ DW Lines312, #6141 ; ¢ª«îç¨âì 312 áâப
|
||||
Sprint_: DW Sprint, #040C ; ¢ª«îç¨âì Sprinter
|
||||
P_7FFD_: DW P_7FFD, #0030 ; ¢ª«îç¨âì 7FFD
|
||||
P_1FFD_: DW P_1FFD, #0040 ; ¢ª«îç¨âì 1FFD
|
||||
Mem512_: DW Mem512, #8000 ; ¢ª«îç¨âì 512k
|
||||
To_trd_: DW To_trd, #0100 ; ¢o©â¨ ¢ TR-DOS
|
||||
Int_sc_: DW Int_sc, #0102 ; ¢ª«îç¨âì INT "¯®-᪮௨®®¢áª¨"
|
||||
No_run_: DW no_run, #00FF ; ¥ § ¯ã᪠âì
|
||||
Int_or_: DW Int_or, #0300 ; ¢ª«îç¨âì INT "Original"
|
||||
Ret_zx_: DW Ret_zx, #4100 ; ¢ª«îç¨âì ¢®§¢à â ¢ ZX áâà ¨æ (#41) ¤®«¦ ᮢ¯ ¤ âì á ret_fn_
|
||||
Ret_fn_: DW Ret_fn, #4100 ; ¢ª«îç¨âì ¢®§¢à â ¢ FN áâà ¨æ (#41) ¤®«¦ ᮢ¯ ¤ âì á ret_zx_
|
||||
DW 0,0 ; end marker
|
||||
|
||||
Turbo_: db "turbo", 255,0
|
||||
Lines312: db "lines312", 255,0
|
||||
Sprint: db "sprinter", 255,0
|
||||
P_7FFD: db "7FFD", 255,0
|
||||
P_1FFD: db "1FFD", 255,0
|
||||
Mem512: db "mem512", 255,0
|
||||
Int_sc: db "int-sc", 255,0
|
||||
To_trd: db "to-trdos", 255,0
|
||||
no_run: db "no-run", 255,0
|
||||
Int_or: db "origin", 255,0
|
||||
Ret_zx: db "ret-zx", 255,0
|
||||
Ret_fn: db "ret-fn", 255,0
|
||||
Turbo_: DB "turbo", 255,0
|
||||
Lines312: DB "lines312", 255,0
|
||||
Sprint: DB "sprinter", 255,0
|
||||
P_7FFD: DB "7FFD", 255,0
|
||||
P_1FFD: DB "1FFD", 255,0
|
||||
Mem512: DB "mem512", 255,0
|
||||
Int_sc: DB "int-sc", 255,0
|
||||
To_trd: DB "to-trdos", 255,0
|
||||
no_run: DB "no-run", 255,0
|
||||
Int_or: DB "origin", 255,0
|
||||
Ret_zx: DB "ret-zx", 255,0
|
||||
Ret_fn: DB "ret-fn", 255,0
|
||||
|
||||
;ZX_PROG_LEN EQU $-RELOAD_PROG
|
||||
|
||||
;/Turbo /Lines312 /Sprinter /7FFD /1FFD /Mem512 /Int-Sc /To-TRDOS /no-run /origin /ret-zx /ret-fn
|
||||
|
||||
CNF_FILE: db "SPECTRUM.CFG",0
|
||||
CNF_FILE: DB "SPECTRUM.CFG",0
|
||||
ONE_FILE: BLOCK FULL_FILE_NAME_LENGTH,0
|
||||
;
|
||||
;
|
||||
|
||||
370
trdscl.a80
370
trdscl.a80
@ -33,24 +33,22 @@ DelFilesNum BYTE 0
|
||||
DiskName TEXT 8,{" "} ; beta version
|
||||
ENDS
|
||||
|
||||
/*
|
||||
SYS_SECTOR:
|
||||
DB 0
|
||||
BLOCK 224,0
|
||||
.FirstFreeSec: DB 0
|
||||
.FirstFreeTrk: DB 1
|
||||
.DiskType DB #16 ; #16 = 80-2, #17 = 40-2, #18 = 80-1, #19 = 40-1
|
||||
.AllFilesNum: DB 0
|
||||
.FreeSectors: DW 2544
|
||||
DB #10
|
||||
DW 0000
|
||||
BLOCK 9,32
|
||||
DB 0
|
||||
.DelFilesNum: DB 0
|
||||
.DiskName: BLOCK 8,32
|
||||
BLOCK 3,0
|
||||
; SYS_SECTOR:
|
||||
; DB 0
|
||||
; BLOCK 224,0
|
||||
; .FirstFreeSec: DB 0
|
||||
; .FirstFreeTrk: DB 1
|
||||
; .DiskType DB #16 ; #16 = 80-2, #17 = 40-2, #18 = 80-1, #19 = 40-1
|
||||
; .AllFilesNum: DB 0
|
||||
; .FreeSectors: DW 2544
|
||||
; DB #10
|
||||
; DW 0000
|
||||
; BLOCK 9,32
|
||||
; DB 0
|
||||
; .DelFilesNum: DB 0
|
||||
; .DiskName: BLOCK 8,32
|
||||
; BLOCK 3,0
|
||||
;
|
||||
*/
|
||||
|
||||
; ÉÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
|
||||
; ºC¬¥é¥¨¥ ³„«¨ ³ H § 票¥ º
|
||||
@ -64,19 +62,18 @@ SYS_SECTOR:
|
||||
; º #0E ³ 1 ³ H®¬¥p 1£® c¥ªâ®p º
|
||||
; º #0F ³ 1 ³ H®¬¥p ¤®p®¦ª¨ º
|
||||
; ÈÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
|
||||
/*
|
||||
CAT_ELEMENT:
|
||||
.Name BLOCK 8,32
|
||||
.Type DB 0
|
||||
.Start DW 0000
|
||||
.Length DW 0000
|
||||
.Sectors DB 0
|
||||
.FirstSector DB 0
|
||||
.FirstTrack DB 0
|
||||
*/
|
||||
|
||||
; CAT_ELEMENT:
|
||||
; .Name BLOCK 8,32
|
||||
; .Type DB 0
|
||||
; .Start DW 0000
|
||||
; .Length DW 0000
|
||||
; .Sectors DB 0
|
||||
; .FirstSector DB 0
|
||||
; .FirstTrack DB 0
|
||||
|
||||
STRUCT CAT_Elements
|
||||
Name block 8
|
||||
Name BLOCK 8
|
||||
Type BYTE
|
||||
Start WORD
|
||||
Length WORD
|
||||
@ -95,215 +92,210 @@ FileBlock CAT_Elements
|
||||
; Page = 64 sectors = 4 tracks
|
||||
|
||||
;-----------[]
|
||||
Load_SCL:
|
||||
;-------[Œ¥âª ¤¨áª - ¨¬ï ä ©« ]-------
|
||||
ld hl,ONE_FILE
|
||||
ld de,SCL_Buffer
|
||||
ld bc,#0300+Dss.EX_Path
|
||||
rst ToDSS
|
||||
jr c,.skip
|
||||
|
||||
ld hl,SCL_Buffer
|
||||
ld a,'.'
|
||||
ld bc,0008
|
||||
ld de,SYS_SECTOR.DiskName
|
||||
;-------[Œ¥âª ¤¨áª - ¨¬ï ä ©« ]-------
|
||||
Load_SCL: LD HL,ONE_FILE
|
||||
LD DE,SCL_Buffer
|
||||
LD BC,#0300+Dss.EX_Path
|
||||
RST ToDSS
|
||||
JR C,.skip
|
||||
|
||||
LD HL,SCL_Buffer
|
||||
LD A,'.'
|
||||
LD BC,0008
|
||||
LD DE,SYS_SECTOR.DiskName
|
||||
.loop:
|
||||
cp (hl)
|
||||
jr z,.skip
|
||||
ldi
|
||||
jp pe,.loop
|
||||
CP (HL)
|
||||
JR Z,.skip
|
||||
LDI
|
||||
JP PE,.loop
|
||||
|
||||
.skip:
|
||||
;-------[¯à®¢¥àª 奤íà SINCLAIR]------
|
||||
|
||||
ld a,(IMAGE_HANDLER)
|
||||
ld hl,SCL_Buffer
|
||||
ld de,8
|
||||
ld c,Dss.Read
|
||||
rst ToDSS
|
||||
ret c ; ®¡à ¡®â稪 ®è¨¡ª¨
|
||||
LD A,(IMAGE_HANDLER)
|
||||
LD HL,SCL_Buffer
|
||||
LD DE,8 ; ¡ ©â®¢
|
||||
LD C,Dss.Read
|
||||
RST ToDSS
|
||||
RET C ; ®¡à ¡®â稪 ®è¨¡ª¨
|
||||
|
||||
ld hl,SCL_Buffer
|
||||
ld de,SCL_HEADER
|
||||
ld b,8
|
||||
.check_header:
|
||||
ld a,(de)
|
||||
cp (hl)
|
||||
jr nz,.error_header
|
||||
inc hl
|
||||
inc de
|
||||
djnz .check_header
|
||||
jr .get_size
|
||||
.error_header:
|
||||
scf
|
||||
ret
|
||||
LD HL,SCL_Buffer
|
||||
LD DE,SCL_HEADER
|
||||
LD B,8
|
||||
.check_header: LD A,(DE)
|
||||
CP (HL)
|
||||
JR NZ,.error_header
|
||||
INC HL
|
||||
INC DE
|
||||
DJNZ .check_header
|
||||
JR .get_size
|
||||
.error_header: SCF
|
||||
RET
|
||||
|
||||
;------[¢ëç¨á«¥¨¥ à §¬¥à ¤«ï TRD]-----
|
||||
.get_size:
|
||||
/* ld a,(IMAGE_HANDLER)
|
||||
ld hl,0
|
||||
ld ix,SclOffsets.Files
|
||||
ld b,l
|
||||
ld c,Dss.Move_FP
|
||||
rst ToDSS ; 㪠§ â¥«ì ¡ ©â ª®«¨ç¥á⢠¡«®ª®¢ (ä ©«®¢)
|
||||
ret c ; ®¡à ¡®â稪 ®è¨¡ª¨!!!!!
|
||||
;*/
|
||||
ld a,(IMAGE_HANDLER)
|
||||
ld hl,SCL_Buffer
|
||||
ld de,#701
|
||||
ld c,Dss.Read
|
||||
rst ToDSS ; !FIXIT ᤥ« âì ª®âà®«ì ®è¨¡ª¨? ; ç¨â ¥¬ ¡ ©â ª®«¨ç¥á⢠¡«®ª®¢ (ä ©«®¢)
|
||||
; LD A,(IMAGE_HANDLER)
|
||||
; LD HL,0
|
||||
; LD IX,SclOffsets.Files
|
||||
; LD B,L
|
||||
; LD C,Dss.Move_FP
|
||||
; RST ToDSS ; 㪠§ â¥«ì ¡ ©â ª®«¨ç¥á⢠¡«®ª®¢ (ä ©«®¢)
|
||||
; RET C ; ®¡à ¡®â稪 ®è¨¡ª¨!!!!!
|
||||
|
||||
LD A,(IMAGE_HANDLER)
|
||||
LD HL,SCL_Buffer
|
||||
LD DE,#701
|
||||
LD C,Dss.Read
|
||||
RST ToDSS ; !FIXIT ᤥ« âì ª®âà®«ì ®è¨¡ª¨? ; ç¨â ¥¬ ¡ ©â ª®«¨ç¥á⢠¡«®ª®¢ (ä ©«®¢)
|
||||
;
|
||||
ld a,(SCL_Buffer)
|
||||
ld l,a
|
||||
xor a
|
||||
ld h,a
|
||||
LD A,(SCL_Buffer)
|
||||
LD L,A
|
||||
XOR A
|
||||
LD H,A
|
||||
;
|
||||
add hl,hl ;*2
|
||||
push hl
|
||||
add hl,hl ;*4
|
||||
ld d,h
|
||||
ld e,l
|
||||
add hl,hl ;*8
|
||||
add hl,de ;*12
|
||||
pop de
|
||||
add hl,de ; ¢ HL § 票¥ A*14
|
||||
ADD HL,HL ;*2
|
||||
PUSH HL
|
||||
ADD HL,HL ;*4
|
||||
LD D,H
|
||||
LD E,L
|
||||
ADD HL,HL ;*8
|
||||
ADD HL,DE ;*12
|
||||
POP DE
|
||||
ADD HL,DE ; ¢ HL § 票¥ A*14
|
||||
|
||||
add hl,bc
|
||||
ADD HL,BC
|
||||
|
||||
ld de,SclOffsets.FileBlock
|
||||
add hl,de ; ¢ HL à §¬¥à ®â ç « SCL ¤® ç « ¡«®ª ¤ ëå (header_length)
|
||||
push hl
|
||||
LD DE,SclOffsets.FileBlock
|
||||
ADD HL,DE ; ¢ HL à §¬¥à ®â ç « SCL ¤® ç « ¡«®ª ¤ ëå (header_length)
|
||||
PUSH HL
|
||||
;
|
||||
ld a,(IMAGE_HANDLER)
|
||||
ld hl,0
|
||||
ld ix,4 ; ¨£®à¨¬ ª®â஫ìãî á㬬ã scl ä ©«
|
||||
ld b,2
|
||||
ld c,Dss.Move_FP
|
||||
rst ToDSS ; 㪠§ â¥«ì ª®¥æ ä ©«
|
||||
jr nc,1F ; ®¡à ¡®â稪 ®è¨¡ª¨!!!!!
|
||||
LD A,(IMAGE_HANDLER)
|
||||
LD HL,0
|
||||
LD IX,4 ; ¨£®à¨¬ ª®â஫ìãî á㬬ã scl ä ©«
|
||||
LD B,2
|
||||
LD C,Dss.Move_FP
|
||||
RST ToDSS ; 㪠§ â¥«ì ª®¥æ ä ©«
|
||||
JR NC,1F ;!FIXIT ®¡à ¡®â稪 ®è¨¡ª¨!!!!!
|
||||
|
||||
pop hl
|
||||
ret
|
||||
POP HL
|
||||
RET
|
||||
|
||||
1: push ix
|
||||
pop de ; § 票¥ ¬« ¤è¨å 16 ¡¨â à §¬¥à ä ©«
|
||||
ex (sp),hl ; § 票¥ header_length ¢ HL, áâ àè ï ç áâì à §¬¥à ä ©« á⥪¥
|
||||
ex de,hl ; ¢ HL § 票¥ ¬« ¤è¨å 16 ¡¨â à §¬¥à ä ©« , ¢ DE - header_length
|
||||
1: PUSH IX
|
||||
POP DE ; § 票¥ ¬« ¤è¨å 16 ¡¨â à §¬¥à ä ©«
|
||||
EX (SP),HL ; § 票¥ header_length ¢ HL, áâ àè ï ç áâì à §¬¥à ä ©« á⥪¥
|
||||
EX DE,HL ; ¢ HL § 票¥ ¬« ¤è¨å 16 ¡¨â à §¬¥à ä ©« , ¢ DE - header_length
|
||||
|
||||
sbc hl,de
|
||||
ld de,0
|
||||
ex (sp),hl ; ¬« ¤è ï ç áâì à §¬¥à ä ©« á⥪¥
|
||||
sbc hl,de ; ¢ HL áâ àè ï ç áâì à §¬¥à ä ©«
|
||||
SBC HL,DE
|
||||
LD DE,0
|
||||
EX (SP),HL ; ¬« ¤è ï ç áâì à §¬¥à ä ©« á⥪¥
|
||||
SBC HL,DE ; ¢ HL áâ àè ï ç áâì à §¬¥à ä ©«
|
||||
|
||||
ex (sp),hl ; áâ àè ï ç áâì à §¬¥à ä ©« á⥪¥
|
||||
ld de,#1000
|
||||
add hl,de
|
||||
EX (SP),HL ; áâ àè ï ç áâì à §¬¥à ä ©« á⥪¥
|
||||
LD DE,#1000
|
||||
ADD HL,DE
|
||||
|
||||
ex (sp),hl ; ¬« ¤è ï ç áâì à §¬¥à ä ©« á⥪¥
|
||||
ld de,0
|
||||
adc hl,de
|
||||
pop de ; âãâ ¢ hl:de à §¬¥à ¤«ï trd
|
||||
EX (SP),HL ; ¬« ¤è ï ç áâì à §¬¥à ä ©« á⥪¥
|
||||
LD DE,0
|
||||
ADC HL,DE
|
||||
POP DE ; âãâ ¢ hl:de à §¬¥à ¤«ï trd
|
||||
|
||||
;---------------------------------------
|
||||
|
||||
call Get_RAM_Disk_E
|
||||
ret c ; ®¡à ¡®â稪 ®è¨¡ª¨!!!!!
|
||||
CALL Get_RAM_Disk_E
|
||||
RET C ;!FIXIT ®¡à ¡®â稪 ®è¨¡ª¨!!!!!
|
||||
|
||||
Convert_SCLtoTRD:
|
||||
|
||||
LD A,(MEM_BLK)
|
||||
out (SLOT3),a ; ¢áâ ¢«ï¥¬ ¯¥à¢ãî áâà ¨æã RAM-¤¨áª
|
||||
OUT (SLOT3),A ; ¢áâ ¢«ï¥¬ ¯¥à¢ãî áâà ¨æã RAM-¤¨áª
|
||||
|
||||
ld hl,SCL_Buffer
|
||||
ld b,(hl) ; CAT_Elements
|
||||
inc hl
|
||||
ld de,#C000 ; RAM-drive's track 0
|
||||
ld ix,SYS_SECTOR
|
||||
ld (ix+SEEK.AllFilesNum),b
|
||||
.cat_loop:
|
||||
push bc
|
||||
ld a,(hl)
|
||||
LD HL,SCL_Buffer
|
||||
LD B,(HL) ; CAT_Elements
|
||||
INC HL
|
||||
LD DE,#C000 ; RAM-drive's track 0
|
||||
LD IX,SYS_SECTOR
|
||||
LD (ix+SEEK.AllFilesNum),B
|
||||
.cat_loop: PUSH BC
|
||||
LD A,(HL)
|
||||
CP 1
|
||||
jr nz,1F ; this file is not deleted
|
||||
inc (ix+SEEK.DelFilesNum)
|
||||
1: ld bc,CAT_Elements-2 ; ld bc,#0D
|
||||
ldir ; copy 14 bites of scl files table to trd image catalog
|
||||
JR NZ,1F ; this file is not deleted
|
||||
INC (ix+SEEK.DelFilesNum)
|
||||
1: LD BC,CAT_Elements-2 ; ld bc,#0D
|
||||
LDIR ; copy 14 bites of scl files table to trd image catalog
|
||||
|
||||
ld a,(SYS_SECTOR.FirstFreeSec)
|
||||
ld (de),a
|
||||
ld c,a ;!---[v 1]
|
||||
inc de
|
||||
ld a,(SYS_SECTOR.FirstFreeTrk)
|
||||
ld (de),a
|
||||
inc de ; Pointer on next filename in RAM drive
|
||||
LD A,(SYS_SECTOR.FirstFreeSec)
|
||||
LD (DE),A
|
||||
LD C,A ;!---[v 1]
|
||||
INC DE
|
||||
LD A,(SYS_SECTOR.FirstFreeTrk)
|
||||
LD (DE),A
|
||||
INC DE ; Pointer on next filename in RAM drive
|
||||
|
||||
dec hl ; set to number of sectors
|
||||
ld a,(hl) ; get file length in sectors from scl-table
|
||||
and #0F
|
||||
add a,c ;!---[^ 1]
|
||||
ld c,a ;!---[v 2]
|
||||
and #0F
|
||||
ld (SYS_SECTOR.FirstFreeSec),a
|
||||
ld a,#F0
|
||||
and c ;!---[^ 2]
|
||||
jr z,1F
|
||||
inc (ix+SEEK.FirstFreeTrk)
|
||||
1: ld a,(hl)
|
||||
srl a
|
||||
srl a
|
||||
srl a
|
||||
srl a
|
||||
add a,(ix+SEEK.FirstFreeTrk)
|
||||
ld (SYS_SECTOR.FirstFreeTrk),a
|
||||
DEC HL ; set to number of sectors
|
||||
LD A,(HL) ; get file length in sectors from scl-table
|
||||
AND #0F
|
||||
ADD A,C ;!---[^ 1]
|
||||
LD C,A ;!---[v 2]
|
||||
AND #0F
|
||||
LD (SYS_SECTOR.FirstFreeSec),A
|
||||
LD A,#F0
|
||||
AND C ;!---[^ 2]
|
||||
JR Z,1F
|
||||
INC (ix+SEEK.FirstFreeTrk)
|
||||
1: LD A,(HL)
|
||||
SRL A
|
||||
SRL A
|
||||
SRL A
|
||||
SRL A
|
||||
ADD A,(ix+SEEK.FirstFreeTrk)
|
||||
LD (SYS_SECTOR.FirstFreeTrk),A
|
||||
|
||||
inc hl ; Pointer on next filename in SCL_Buffer
|
||||
pop bc
|
||||
djnz .cat_loop
|
||||
INC HL ; Pointer on next filename in SCL_Buffer
|
||||
POP BC
|
||||
DJNZ .cat_loop
|
||||
|
||||
xor a
|
||||
ld (de),a ; file table end marker
|
||||
XOR A
|
||||
LD (DE),A ; file table end marker
|
||||
;---------------------------------------
|
||||
|
||||
; „®¤¥« âì!!!!!
|
||||
;!TODO „®¤¥« âì!!!!!
|
||||
; SYS_SECTOR.FreeSectors
|
||||
|
||||
; push hl ; ¡ ©â ¢ ¡ãä¥à¥ ®âªã¤ ¢ SCL ç¨ îâáï ¤ ë¥ (HL-SCL_Buffer)
|
||||
; push de ; ¡ ©â ¢ ram ¤¨áª¥ trd £¤¥ § ª 稢 ¥âáï â ¡«¨æ ¯®á«¥¤¥£® ä ©«
|
||||
|
||||
xor a
|
||||
ld de,SCL_Buffer-8 ; ¢ëç¨á«ï¥¬ § 票¥ á¬¥é¥¨ï ¢ ä ©«¥ ¨§ § 票ï á¬¥é¥¨ï ¢ ¡ãä¥à¥
|
||||
sbc hl,de
|
||||
push hl
|
||||
pop ix
|
||||
XOR A
|
||||
LD DE,SCL_Buffer-8 ; ¢ëç¨á«ï¥¬ § 票¥ á¬¥é¥¨ï ¢ ä ©«¥ ¨§ § 票ï á¬¥é¥¨ï ¢ ¡ãä¥à¥
|
||||
SBC HL,DE
|
||||
PUSH HL
|
||||
POP IX
|
||||
|
||||
ld a,(IMAGE_HANDLER)
|
||||
ld hl,0
|
||||
ld B,L ; b=0 - ®â ç « ä ©«
|
||||
ld c,Dss.Move_FP
|
||||
rst ToDSS ; 㪠§ â¥«ì ¯¥à¢ë© ¡ ©â ¤ ëå
|
||||
jr nc,1F ; ®¡à ¡®â稪 ®è¨¡ª¨!!!!!
|
||||
LD A,(IMAGE_HANDLER)
|
||||
LD HL,0
|
||||
LD B,L ; b=0 - ®â ç « ä ©«
|
||||
LD C,Dss.Move_FP
|
||||
RST ToDSS ; 㪠§ â¥«ì ¯¥à¢ë© ¡ ©â ¤ ëå
|
||||
JR NC,1F ; ®¡à ¡®â稪 ®è¨¡ª¨!!!!!
|
||||
|
||||
pop de
|
||||
ret
|
||||
POP DE
|
||||
RET
|
||||
|
||||
1: di
|
||||
ld hl,SYS_SECTOR_START
|
||||
ld de,#C800 ; sys sector of tr-dos disk in bank3 of ram-disk
|
||||
1: DI
|
||||
LD HL,SYS_SECTOR_START
|
||||
LD DE,#C800 ; sys sector of tr-dos disk in bank3 of ram-disk
|
||||
ACC_SetBlockSize
|
||||
ld a,0
|
||||
LD A,0
|
||||
ACC_CopyBlock
|
||||
ld a,(HL)
|
||||
ld (DE),a
|
||||
LD A,(HL)
|
||||
LD (DE),A
|
||||
ACC_Off
|
||||
; ei
|
||||
;EI
|
||||
|
||||
LD A,(IMAGE_HANDLER)
|
||||
LD HL,#D000 ; ¤®£à㧨âì ¤® ª®æ áâà ¨æë
|
||||
LD DE,#3000
|
||||
LD C,Dss.Read
|
||||
RST ToDSS
|
||||
JP C,ERROR_IN_READ ; ®¡à ¡®â稪 ®è¨¡ª¨!!!!!
|
||||
JP C,ERROR_IN_READ ;!FIXIT ®¡à ¡®â稪 ®è¨¡ª¨!!!!!
|
||||
|
||||
LD HL,MSG_LOAD_IMAGE ; loading image
|
||||
LD C,Dss.PChars
|
||||
@ -315,7 +307,7 @@ Convert_SCLtoTRD:
|
||||
|
||||
DI
|
||||
LD A,(MEM_BLK)
|
||||
jp Load_IMAGE_File.scl_read_next
|
||||
JP Load_IMAGE_File.scl_read_next
|
||||
|
||||
;-----------[]
|
||||
|
||||
@ -330,7 +322,7 @@ SYS_SECTOR_END: BLOCK 3,0
|
||||
SCL_FILE_ID: DB 0
|
||||
;-----------[¢ á ¬ë© ª®¥æ]-------------
|
||||
SCL_Buffer EQU $
|
||||
assert SCL_Buffer+#701 < #C000, "Buffer out of mem bank 2"
|
||||
ASSERT SCL_Buffer+#701<#C000,"Buffer out of mem bank 2"
|
||||
|
||||
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user